This commit was manufactured by cvs2svn to create tag

'mlminidom_0_2_2'.

diff --git a/CVSROOT/checkoutlist b/CVSROOT/checkoutlist
deleted file mode 100644 (file)
index b04b350..0000000
--- a/CVSROOT/checkoutlist
+++ /dev/null
@@ -1,13 +0,0 @@
-# The "checkoutlist" file is used to support additional version controlled
-# administrative files in $CVSROOT/CVSROOT, such as template files.
-#
-# The first entry on a line is a filename which will be checked out from
-# the corresponding RCS file in the $CVSROOT/CVSROOT directory.
-# The remainder of the line is an error message to use if the file cannot
-# be checked out.
-#
-# File format:
-#
-#      [<whitespace>]<filename><whitespace><error message><end-of-line>
-#
-# comment lines begin with '#'

diff --git a/CVSROOT/commitinfo b/CVSROOT/commitinfo
deleted file mode 100644 (file)
index b19e7b7..0000000
--- a/CVSROOT/commitinfo
+++ /dev/null
@@ -1,15 +0,0 @@
-# The "commitinfo" file is used to control pre-commit checks.
-# The filter on the right is invoked with the repository and a list 
-# of files to check.  A non-zero exit of the filter program will 
-# cause the commit to be aborted.
-#
-# The first entry on a line is a regular expression which is tested
-# against the directory that the change is being committed to, relative
-# to the $CVSROOT.  For the first match that is found, then the remainder
-# of the line is the name of the filter to run.
-#
-# If the repository name does not match any of the regular expressions in this
-# file, the "DEFAULT" line is used, if it is specified.
-#
-# If the name "ALL" appears as a regular expression it is always used
-# in addition to the first matching regex or "DEFAULT".

diff --git a/CVSROOT/config b/CVSROOT/config
deleted file mode 100644 (file)
index 8069cad..0000000
--- a/CVSROOT/config
+++ /dev/null
@@ -1,11 +0,0 @@
-# Set this to "no" if pserver shouldn't check system users/passwords
-#SystemAuth=no
-
-# Set `PreservePermissions' to `yes' to save file status information
-# in the repository.
-#PreservePermissions=no
-
-# Set `TopLevelAdmin' to `yes' to create a CVS directory at the top
-# level of the new working directory when using the `cvs checkout'
-# command.
-#TopLevelAdmin=no

diff --git a/CVSROOT/cvswrappers b/CVSROOT/cvswrappers
deleted file mode 100644 (file)
index 0accaf1..0000000
--- a/CVSROOT/cvswrappers
+++ /dev/null
@@ -1,23 +0,0 @@
-# This file affects handling of files based on their names.
-#
-# The -t/-f options allow one to treat directories of files
-# as a single file, or to transform a file in other ways on
-# its way in and out of CVS.
-#
-# The -m option specifies whether CVS attempts to merge files.
-#
-# The -k option specifies keyword expansion (e.g. -kb for binary).
-#
-# Format of wrapper file ($CVSROOT/CVSROOT/cvswrappers or .cvswrappers)
-#
-#  wildcard    [option value][option value]...
-#
-#  where option is one of
-#  -f          from cvs filter         value: path to filter
-#  -t          to cvs filter           value: path to filter
-#  -m          update methodology      value: MERGE or COPY
-#  -k          expansion mode          value: b, o, kkv, &c
-#
-#  and value is a single-quote delimited value.
-# For example:
-#*.gif -k 'b'

diff --git a/CVSROOT/editinfo b/CVSROOT/editinfo
deleted file mode 100644 (file)
index d78886c..0000000
--- a/CVSROOT/editinfo
+++ /dev/null
@@ -1,21 +0,0 @@
-# The "editinfo" file is used to allow verification of logging
-# information.  It works best when a template (as specified in the
-# rcsinfo file) is provided for the logging procedure.  Given a
-# template with locations for, a bug-id number, a list of people who
-# reviewed the code before it can be checked in, and an external
-# process to catalog the differences that were code reviewed, the
-# following test can be applied to the code:
-#
-#   Making sure that the entered bug-id number is correct.
-#   Validating that the code that was reviewed is indeed the code being
-#       checked in (using the bug-id number or a seperate review
-#       number to identify this particular code set.).
-#
-# If any of the above test failed, then the commit would be aborted.
-#
-# Actions such as mailing a copy of the report to each reviewer are
-# better handled by an entry in the loginfo file.
-#
-# One thing that should be noted is the the ALL keyword is not
-# supported.  There can be only one entry that matches a given
-# repository.

diff --git a/CVSROOT/loginfo b/CVSROOT/loginfo
deleted file mode 100644 (file)
index 5a59f0a..0000000
--- a/CVSROOT/loginfo
+++ /dev/null
@@ -1,26 +0,0 @@
-# The "loginfo" file controls where "cvs commit" log information
-# is sent.  The first entry on a line is a regular expression which must match
-# the directory that the change is being made to, relative to the
-# $CVSROOT.  If a match is found, then the remainder of the line is a filter
-# program that should expect log information on its standard input.
-#
-# If the repository name does not match any of the regular expressions in this
-# file, the "DEFAULT" line is used, if it is specified.
-#
-# If the name ALL appears as a regular expression it is always used
-# in addition to the first matching regex or DEFAULT.
-#
-# You may specify a format string as part of the
-# filter.  The string is composed of a `%' followed
-# by a single format character, or followed by a set of format
-# characters surrounded by `{' and `}' as separators.  The format
-# characters are:
-#
-#   s = file name
-#   V = old version number (pre-checkin)
-#   v = new version number (post-checkin)
-#
-# For example:
-#DEFAULT (echo ""; id; echo %s; date; cat) >> $CVSROOT/CVSROOT/commitlog
-# or
-#DEFAULT (echo ""; id; echo %{sVv}; date; cat) >> $CVSROOT/CVSROOT/commitlog

diff --git a/CVSROOT/modules b/CVSROOT/modules
deleted file mode 100644 (file)
index cb9e9ef..0000000
--- a/CVSROOT/modules
+++ /dev/null
@@ -1,26 +0,0 @@
-# Three different line formats are valid:
-#      key     -a    aliases...
-#      key [options] directory
-#      key [options] directory files...
-#
-# Where "options" are composed of:
-#      -i prog         Run "prog" on "cvs commit" from top-level of module.
-#      -o prog         Run "prog" on "cvs checkout" of module.
-#      -e prog         Run "prog" on "cvs export" of module.
-#      -t prog         Run "prog" on "cvs rtag" of module.
-#      -u prog         Run "prog" on "cvs update" of module.
-#      -d dir          Place module in directory "dir" instead of module name.
-#      -l              Top-level directory only -- do not recurse.
-#
-# NOTE:  If you change any of the "Run" options above, you'll have to
-# release and re-checkout any working directories of these modules.
-#
-# And "directory" is a path to a directory relative to $CVSROOT.
-#
-# The "-a" option specifies an alias.  An alias is interpreted as if
-# everything on the right of the "-a" had been typed on the command line.
-#
-# You can encode a module within a module by using the special '&'
-# character to interpose another module into the current module.  This
-# can be useful for creating a module that consists of many directories
-# spread out over the entire source repository.

diff --git a/CVSROOT/notify b/CVSROOT/notify
deleted file mode 100644 (file)
index 34f0bc2..0000000
--- a/CVSROOT/notify
+++ /dev/null
@@ -1,12 +0,0 @@
-# The "notify" file controls where notifications from watches set by
-# "cvs watch add" or "cvs edit" are sent.  The first entry on a line is
-# a regular expression which is tested against the directory that the
-# change is being made to, relative to the $CVSROOT.  If it matches,
-# then the remainder of the line is a filter program that should contain
-# one occurrence of %s for the user to notify, and information on its
-# standard input.
-#
-# "ALL" or "DEFAULT" can be used in place of the regular expression.
-#
-# For example:
-#ALL mail %s -s "CVS notification"

diff --git a/CVSROOT/rcsinfo b/CVSROOT/rcsinfo
deleted file mode 100644 (file)
index 49e59f4..0000000
--- a/CVSROOT/rcsinfo
+++ /dev/null
@@ -1,13 +0,0 @@
-# The "rcsinfo" file is used to control templates with which the editor
-# is invoked on commit and import.
-#
-# The first entry on a line is a regular expression which is tested
-# against the directory that the change is being made to, relative to the
-# $CVSROOT.  For the first match that is found, then the remainder of the
-# line is the name of the file that contains the template.
-#
-# If the repository name does not match any of the regular expressions in this
-# file, the "DEFAULT" line is used, if it is specified.
-#
-# If the name "ALL" appears as a regular expression it is always used
-# in addition to the first matching regex or "DEFAULT".

diff --git a/CVSROOT/taginfo b/CVSROOT/taginfo
deleted file mode 100644 (file)
index 274a46d..0000000
--- a/CVSROOT/taginfo
+++ /dev/null
@@ -1,20 +0,0 @@
-# The "taginfo" file is used to control pre-tag checks.
-# The filter on the right is invoked with the following arguments:
-#
-# $1 -- tagname
-# $2 -- operation "add" for tag, "mov" for tag -F, and "del" for tag -d
-# $3 -- repository
-# $4->  file revision [file revision ...]
-#
-# A non-zero exit of the filter program will cause the tag to be aborted.
-#
-# The first entry on a line is a regular expression which is tested
-# against the directory that the change is being committed to, relative
-# to the $CVSROOT.  For the first match that is found, then the remainder
-# of the line is the name of the filter to run.
-#
-# If the repository name does not match any of the regular expressions in this
-# file, the "DEFAULT" line is used, if it is specified.
-#
-# If the name "ALL" appears as a regular expression it is always used
-# in addition to the first matching regex or "DEFAULT".

diff --git a/CVSROOT/verifymsg b/CVSROOT/verifymsg
deleted file mode 100644 (file)
index 86f747c..0000000
--- a/CVSROOT/verifymsg
+++ /dev/null
@@ -1,21 +0,0 @@
-# The "verifymsg" file is used to allow verification of logging
-# information.  It works best when a template (as specified in the
-# rcsinfo file) is provided for the logging procedure.  Given a
-# template with locations for, a bug-id number, a list of people who
-# reviewed the code before it can be checked in, and an external
-# process to catalog the differences that were code reviewed, the
-# following test can be applied to the code:
-#
-#   Making sure that the entered bug-id number is correct.
-#   Validating that the code that was reviewed is indeed the code being
-#       checked in (using the bug-id number or a seperate review
-#       number to identify this particular code set.).
-#
-# If any of the above test failed, then the commit would be aborted.
-#
-# Actions such as mailing a copy of the report to each reviewer are
-# better handled by an entry in the loginfo file.
-#
-# One thing that should be noted is the the ALL keyword is not
-# supported.  There can be only one entry that matches a given
-# repository.

diff --git a/helm/DEVEL/.cvsignore b/helm/DEVEL/.cvsignore
deleted file mode 100644 (file)
index c1fcbc4..0000000
--- a/helm/DEVEL/.cvsignore
+++ /dev/null
@@ -1,7 +0,0 @@
-*.cmo
-*.cmx
-*.cmi
-
-*.o
-*.a
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0-1.i386.rpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0-1.i386.rpm
deleted file mode 100644 (file)
index 78f0a3b..0000000
Binary files a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0-1.i386.rpm and /dev/null differ

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0-1.spec b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0-1.spec
deleted file mode 100644 (file)
index 4b579e8..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0-1.spec
+++ /dev/null
@@ -1,25 +0,0 @@
-Summary: LablGTK : an interface to the GIMP Tool Kit for OCaml
-Name: lablgtk_20000829
-Version: 0.1.0
-Release: 1
-Copyright: LGPL
-Group: Development/Libraries
-Source: ftp://ftp.kurims.kyoto-u.ac.jp/pub/lang/olabl/lablgtk-20000829.tar.gz
-%description
-LablGTK is an interface to the GIMP Tool Kit for OCaml.
-
-%prep
-%setup
-
-%build
-make configure
-make
-make opt
-
-%install
-make install
-
-%files
-%doc CHANGES COPYING README doc
-
-/usr/lib/ocaml/lablgtk/

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0-1.src.rpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0-1.src.rpm
deleted file mode 100644 (file)
index 7ebeed1..0000000
Binary files a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0-1.src.rpm and /dev/null differ

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0.tar.gz b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0.tar.gz
deleted file mode 100644 (file)
index ba7056f..0000000
Binary files a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0.tar.gz and /dev/null differ

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/.cvsignore b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/.cvsignore
deleted file mode 100644 (file)
index da3c3c5..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/.cvsignore
+++ /dev/null
@@ -1,11 +0,0 @@
-.depend
-config.make
-var2conv
-var2def
-lablgtk
-lablgtktop
-lablgtktop_t
-lablgtkrun
-*_tags.c
-*_tags.h
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/CHANGES b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/CHANGES
deleted file mode 100644 (file)
index f5afeef..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/CHANGES
+++ /dev/null
@@ -1,358 +0,0 @@
-$Id$
-
-2000.8.29
-  * bugs in color selection reported by Nicolas George
-  * changed the license
-
-2000.8.21
-  * correct GtkStyle.set_font bug reported by Patrick Doane
-
-2000.7.27
-  * changed GUtil.signal and GUtil.variable for better usability
-  * suppressed obsolete color settings in tooltips
-
-2000.6.19
-  * patch by Michael Welsh for Gdk regions
-
-2000.6.15
-  * add CList.set_cell_style/set_row_style
-  * change set_usize/set_uposition into set_geometry
-  * return an option rather than raise an exception for null pointers
-  * map empty strings to NULL when meaningful
-  * Gdk.Font.get_type/ascent/descent
-
-2000.6.14
-  * add GDraw.optcolor for functions with a default (Jerome suggested)
-
-2000.6.8
-  * apply Jerome Vouillon's patch
-  * changes in GtkSignal and GtkArgv.ml
-
-2000.6.7
-  * create #misc#connect for widget generic signals
-
-2000.6.6
-  * move notebook from GMisc to GPack
-  * #connect#event, #add_event, #misc#event, #misc#set_events_extension
-    transferred to #event su-bobject.
-  * #connect#drag -> #drag#connect.
-  * #get_type, #connect#disconnect, #connect#stop_emit transferred to #misc.
-
-2000.5.25
-  * split misc.ml into gaux.ml and gpointer.ml
-
-2000.5.23
-  * add GMisc.notebook#get_{tab,menu}_label. Rename nth_page to get_nth_page.
-  * modified ML signals in GUtil, to allow signals without widget.
-
-2000.5.22
-  * Incompatible!: Change default for ~expand in Box.pack,
-    Pack.build_options, Table.build_options. Now defaults to false/`NONE.
-    This means that all options default to false/`NONE, except ~show
-    (true for all widgets except windows) and ~fill (always true but
-    effect controlled by ~expand).
-  * add GtkArgv.get_nativeint and GtkArgv.set_nativeint.
-  * make offset and length optional in GtkArgv.string_at_pointer.
-
-2000.5.10
-  * rename GtkFrame to GtkBin and GFrame to GBin
-  * move socket to GBin
-
-2000.5.9
-  * add arrow and image classes to GMisc
-  * add list and set_item_string methods to GEdit.combo
-  * add socket and plug classes to GContainer and GWindow
-  * two new examples: combo.ml and socket.ml
-
-2000.4.28
-  * add GUtil.variable
-
-2000.4.27
-  * add GtkXmHTML widget
-
-2000.4.26
-  * release 1.00
-
-2000.4.24
-  * merge in changes for ocaml 3.00: label and syntax changes, autolink
-  * added better visual and colormap handling to Gdk
-  * GdkObj renamed to GDraw, GtkPixmap moved to GMisc
-  * Initialize Gtk in gtkInit.cmo/cmx, start a thread in gtkInitThread.cmo.
-    These are only included in toplevels, link them explicitely or call
-    GMain.Main.init and GtkThread.start otherwise.
-  * install to caml standard library
-  * many other forgotten changes...
-
-2000.3.02
-  * move locale setting inside GtkMain.init, since it requires an
-    X display
-
-2000.2.24
-  * add checks in add methods, to avoid critical errors
-
-2000.2.23
-  * add dcalendar.ml (submitted by Ken Wakita) and csview.ml
-  * correct bug in GdkObj.pixmap#line
-
-1999.12.19
-  * release lablGTK beta2
-
-1999.12.16
-  * upgraded unison to version 1.169
-  * radio groups are of type {radio_menu_item,radio_button} obj option,
-    otherwise you could not use them several times
-
-1999.12.13
-  * added GtkEdit::{insert_text,delete_text} signals
-  * better syntax highlighting and ergonomy in the browser's shell
-
-1999.11...
-  * switched to Objective Caml 3
-  * constructors are no longer classes, but simple functions
-
-1999.10.29
-  * changed GtkArgv.get_{string,pointer,object} to return option types
-
-1999.10.27
-  * added radtest/CHANGES for cooperative editing on radtest
-
-1999.10.21
-  * added a UI for unison
-    (ask bcpierce@saul.cis.upenn.edu about how to get unison)
-
-1999.10.20
-  * corrected CList signals
-  * moved initialization out of the library, in gtkInit.cmo
-
-1999.10.15
-  * release lablGTK beta1
-
-1999.10.13
-  * improved gtkThread.ml (no timer)
-  * modify Sys.argv in place (gtkMain.ml)
-  * add set_row_data and get_row_data for GtkCList
-
-1999.10.11
-  * bugfixes in Makefile, radtest and lv
-
-1999.10.6
-  * added Gdk.X.flush and Gdk.X.beep 
-  * Gdk.X.flush is exported in GtkMain.Main
-
-1999.9.9
-  * added font selection dialog
-
-1999.8.25
-  * re-added connect#draw
-
-1999.8.10
-  * reduced the number of methods in widget
-  * moved disconnect and stop_emit to object_signals
-  * moved ?:after to each signal
-  * more functions in applications/browser
-
-1999.8.9
-  * Major change: created one set_param method by parameter,
-    rather than grouping them and using options.
-    You can get previous versions with tag "changing_set"
-  * corrected examples, radtest and browser for these changes
-  * a bit of clean-up in radtest (treew.ml and Makefile)
-
-1999.8.5
-  * corrected a bad bug with indirected pointers in caml heap
-
-1999.7.15
-  * add GdkKeysyms for exotic keysyms
-
-1999.7.14
-  * moved Truecolor inside Gdk
-  * added COPYING
-  * prepared for release
-
-1999.7.12
-  * clean up drag-and-drop
-
-1999.7.9
-  * corrected bug in Container.children
-  * added ML signal support in GUtil
-
-1999.7.6
-  * added DnD, improved radtest (Hubert)
-  * small corrections (Jacques)
-
-1999.7.1
-  * added some gdk functions related window and ximage
-  * also added applications/lv, "labl image viewer" with
-    the camlimage library.
-  (JPF)
-
-1999.7.1
-  * added applications/lablglade (Koji)
-
-1999.6.28
-  * added applications/radtest (Hubert)
-
-1999.6.23
-  * improved variant conversions for space.
-
-1999.6.22
-  * updated olabl.patch. With this new version you can access fields
-    of records without opening modules.  You can also use several times
-    the same label in one module.
-  * examples/GL/morph3d.ml uses it.
-
-1999.6.21
-  * moved event functions to GdkEvent
-
-1999.6.20
-  * new example: radtest.ml (Hubert)
-
-1999.6.18
-  * added GL extension
-
-1999.6.15
-  * grouped set methods into set_<keyword>
-  * added width and height option to all classes
-  * windows not shown are automatically destroyed by the GC
-
-1999.6.14
-  * added GPack.layout, GPack.packer, GPack.paned, GMisc.notebook,
-    GRange.scale, GMisc.calendar
-  * added 3 examples
-  * #add_events only available on windowed widgets
-
-1999.6.11
-  * added CList widget in GList module, and examples/clist.ml
-  * improved pixmap abstraction in GdkObj / GPix
-
-1999.6.10
-  * suppressed almost all raw pointers from the code. Pointers are now
-    either boxed (second field of an abstract block) or marked (lowest
-    bit set to 1).
-
-1999.6.9
-  * added GtkBase.Object.get_id and GObj.gtkobj#get_id to get an
-    unique identifier to gtk objects. Nice for hash-tables, etc...
-  * GUtil.memo is such an hash-table, allowing you to recover an
-    object's wrapper.
-  * added a show option to all classes, commanding whether the widget
-    should be shown immediately.  It is by default true on all widgets
-    except in module GWindow.
-  * moved non-OO examples to examples/old. Do "cvs update -d old" to
-    get them.
-  * changes in Gdk/GtkData/GObj about styles.
-
-1999.6.8
-  * updated olabl.patch
-
-1999.6.7
-  * split gtk.ml into gtk*.ml
-
-1999.6.5
-  * grouped Container focus operations in a "focus" subwidget
-
-1999.6.4
-  * slightly reorganized widget grouping
-
-1999.6.3
-  * disabled gtk_caller
-  * subtle hack to have GTree get the right interface
-  * switched completely to the new widget scheme (including examples)
-  * added olabl.patch to apply to olabl-2.02 to compile new sources
-
-1999.6.2
-  * integrated changes from Hubert in Gtk, GtkObj and testgtk.ml
-  * added G* modules to replace GtkObj. "make lablgtk2" for it
-
-1999.6.1
-  * added experimental GtkMenu for a cleaner approach to OO (Jacques)
-
-1999.5.31
-  * GtkObj: list, tree and menu_shell inherit from item_container (Jacques)
-  * Argv.get_{string,pointer,object} may raise Null_pointer (Jacques)
-  * Support for creating new widgets (Hubert)
-
-1999.5.28
-  * a few stylistic corrections
-  * added Packer in gtk.ml
-
-1999.5.27
-  * new Gtk.Main.main Gtk.Main.quit and GtkThread.main (for modal windows)
-  * added x: and y: to Window.setter
-  * new methods: object#get_type widget#misc#lock_accelerators
-    widget#misc#visible widget#misc#parent container#set_focus#vadjustment
-    container#set_focus#hadjustment (could be container#set_focus#adjustment with a dir param)
-    window#set_modal window#set_position window#set_default_size
-    window#set_transient_for
-    menu#set_accel_group
-  * new classes: handle_box_skel handle_box_signals handle_box
-    bbox color_selection color_selection_dialog toolbar
-    and the corresponding modules in gtk.ml
-    new class type: is_window and method as_window
-  * new param tearoff: in new_menu_item
-    new param x: and y: modal: in Window.setter
-  * Widget.event and Widget.activate return bool
-  * new example: examples/testgtk.ml and test.xpm
-  (Hubert)
-
-1999.5.25
-  * upgraded to gtk+-1.2.3 (all examples work)
-  * suppressed deprecated function calls and corrected examples
-  * added a patch to use toplevel threads in olabl-2.02
-
-1998.12.13
-  * upgraded to olabl-2.01
-
-1998.12.9
-  * replicated Main, Timeout and Grab to GtkObj (no need to open Gtk anymore)
-  * moved some non standard classes to GtkExt
-
-1998.12.8
-  * added the first application, xxaplay, Playstation audio track 
-    player for linux. (How architecture specific!) (Furuse)
-
-1998.12.8
-  * more widgets in GtkObj
-  * refined memory management
-  * all variants in upper case
-
-1998.12.7
-  * after deeper thought, re-introduced the connect sub-object
-  * simplified GtkObj: use simple inheritance and allow easy subtyping
-  * updated olabl.diffs for bugs in class functions parsing and printing
-  * add ThreadObj for concurrent object programming
-  (Jacques)
-
-1998.12.3
-  * pousse.ml is now a reversi game (idea for strategy ?)
-  * solved startup bug (a value checker for ocaml is now available)
-  (Jacques)
-
-1998.12.2
-  * added GdkObj for high level drawing primitives (Jacques)
-
-1998.11.30
-  * removed cast checking for NULL valued widgets (ml_gtk.[ch])
-  * module Arg is renamed as GtkArg because of the name corrision with
-       the module Arg in the standard library
-  * Makefile : native code compilation added
-  (Furuse)
- 
-1998.11.29
-  * renamed widget_ops sub-object to misc
-  * various improvements of set functions
-  (Jacques)
-
-1998.11.28
-  * switched to object-oriented model. GtkObj is now the standard way
-    to access the library, but not all objects are ready (see README)
-  * removed inheritance in gtk.ml
-  (Jacques)
-
-1998.11.24
-  * added inheritance in gtk.ml
-
-1998.11.22
-  * added gtkObj.ml and examples/*_obj.ml
-  * various modifications in gtk.ml
-                                  

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/COPYING b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/COPYING
deleted file mode 100644 (file)
index d417b8b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/COPYING
+++ /dev/null
@@ -1,28 +0,0 @@
-This library is made available under the LGPL.
-You should have got a copy of the LGPL with Objective Caml.
-The LGPL applies to all the files in this directory, but not in
-subdirectories.
-
-For the examples subdirectory, there is no specific licensing policy,
-but you may freely take inspiration from the code, and copy parts of
-it in your application.
-
-For the applications subdirectory, stricter rules apply:
-
-* You are free to do anything you want with this code as long as it is
-  for personal use.
-
-* Redistribution can only be "as is".  Binary distribution and bug
-  fixes are allowed, but you cannot extensively modify the code
-  without asking the authors.
-
-The authors may choose to remove any of the above restrictions on a
-per request basis.
-
-Authors:
-       Jacques Garrigue <garrigue@kurims.kyoto-u.ac.jp>
-       Hubert Fauque  <hubert.fauque@wanadoo.fr>
-       Jun Furuse     <Jun.Furuse@inria.fr>
-       Koji Kagawa    <kagawa@eng.kagawa-u.ac.jp>
-
-$Id$
\ No newline at end of file

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/Makefile b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/Makefile
deleted file mode 100644 (file)
index 23157f2..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/Makefile
+++ /dev/null
@@ -1,190 +0,0 @@
-# $Id$
-# Makefile for lablgtk.
-
-TARGETS = var2conv var2def lablgtktop lablgtktop_t lablgtkrun lablgtk
-
-all: $(TARGETS)
-
-opt: lablgtkopt
-
-configure:
-       @rm -f config.make
-       @$(MAKE) --no-print-directory -f configure.mk
-
-depend:
-       @rm -f .depend
-       @$(MAKE) --no-print-directory -f configure.mk .depend
-
-.depend config.make:
-       @$(MAKE) --no-print-directory -f configure.mk
-
-COMPILER = $(CAMLC) $(MLFLAGS) -w s -labels -c
-LINKER = $(CAMLC) $(MLFLAGS)
-COMPOPT = $(CAMLOPT) $(MLFLAGS) -w s -labels -c
-LINKOPT = $(CAMLOPT) $(MLFLAGS)
-TOPLEVEL = ocamlmktop $(MLFLAGS)
-
-include config.make
-
-INSTALLDIR = $(LIBDIR)/lablgtk
-LABLGLDIR = $(LIBDIR)/lablGL
-
-MLLIBS = lablgtk.cma
-CLIBS = liblablgtk.a
-MLLINK = unix.cma str.cma
-
-ifdef DEBUG
-CFLAGS = -g $(GTKCFLAGS)
-MLLINK += -cclib -lcamlrund
-MLFLAGS = -g
-else
-CFLAGS = -O -DGTK_NO_CHECK_CASTS -DGTK_DISABLE_COMPAT_H $(GTKCFLAGS)
-endif
-
-THFLAGS = -thread
-THLINK = unix.cma threads.cma
-
-ifdef USE_CC
-CCOMPILER = $(CC) -c -I$(LIBDIR) $(CFLAGS)
-else
-CCOMPILER = ocamlc -c -ccopt "$(CFLAGS)"
-endif
-
-ifdef USE_GL
-MLFLAGS += -I $(LABLGLDIR)
-MLLINK += lablgl.cma
-MLLIBS += lablgtkgl.cma
-CLIBS += liblablgtkgl.a
-GLLINK = -cclib -llablgtkgl -cclib -lgtkgl
-GLMLOBJS = glGtk.cmo
-GLCOBJS = ml_gtkgl.o
-
-endif
-
-ifdef USE_GNOME
-MLLIBS += lablgnome.cma
-CLIBS += liblablgnome.a
-GNOMEMLOBJS = gtkXmHTML.cmo gHtml.cmo
-GNOMECOBJS = ml_gtkxmhtml.o
-endif
-
-# Rules
-.SUFFIXES: .ml .mli .cmo .cmi .cmx .c .o .var .h .opt .def
-.c.o:
-       $(CCOMPILER) $<
-.ml.cmo:
-       $(COMPILER) $<
-.mli.cmi:
-       $(COMPILER) $<
-.ml.cmx:
-       $(COMPOPT) $<
-.var.h:
-       ./var2def < $< > $@
-.var.c:
-       ./var2conv < $< > $@
-
-# Targets
-COBJS = ml_gtk.o ml_gdk.o ml_glib.o wrappers.o
-MLOBJS = gaux.cmo gpointer.cmo glib.cmo gdk.cmo gdkEvent.cmo gdkKeysyms.cmo \
-       gtk.cmo gtkArgv.cmo gtkSignal.cmo \
-       gtkData.cmo gtkBase.cmo gtkPack.cmo gtkButton.cmo \
-       gtkMenu.cmo gtkMisc.cmo gtkWindow.cmo gtkTree.cmo gtkList.cmo \
-       gtkBin.cmo gtkEdit.cmo gtkRange.cmo gtkMain.cmo gtkNew.cmo \
-       gDraw.cmo \
-       gObj.cmo gMain.cmo gData.cmo gContainer.cmo gPack.cmo gButton.cmo \
-       gMenu.cmo gMisc.cmo gWindow.cmo gTree.cmo gList.cmo gBin.cmo \
-       gEdit.cmo gRange.cmo gUtil.cmo
-THOBJS = gtkThread.cmo
-INITOBJS = gtkInit.cmo
-THINITOBJS = gtkThInit.cmo
-ALLOBJS = $(MLOBJS) $(GLMLOBJS) $(GNOMEMLOBJS) $(THOBJS) \
-       $(INITOBJS) $(THINITOBJS)
-
-lablgtktop: $(CLIBS) $(MLLIBS) $(INITOBJS)
-       $(TOPLEVEL) -o $@ $(MLLINK) -ccopt -L. $(MLLIBS) $(INITOBJS)
-
-lablgtktop_t: $(CLIBS) $(MLLIBS) $(THOBJS) $(INITOBJS) $(THINITOBJS)
-       $(TOPLEVEL) $(THFLAGS) -o $@ $(THLINK) $(MLLINK) \
-          -ccopt -L. $(MLLIBS) $(THOBJS) $(INITOBJS) $(THINITOBJS)
-
-lablgtk: Makefile config.make lablgtk.in
-       sed -e "s|@INSTALLDIR@|$(INSTALLDIR)|g" \
-           -e "s|@LABLGLDIR@|$(LABLGLDIR)|g" \
-           -e "s|@LIBDIR@|$(LIBDIR)|g" \
-           < lablgtk.in > $@
-       chmod 755 $@
-
-lablgtkrun: $(CLIBS) $(MLLIBS)
-       $(LINKER) -o $@ -make-runtime $(MLLINK) -ccopt -L. $(MLLIBS)
-
-lablgtkopt: $(CLIBS) $(MLLIBS:.cma=.cmxa) $(INITOBJS:.cmo=.cmx) \
-       $(THOBJS:.cmo=.cmx)
-
-install:
-       if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
-       cp $(ALLOBJS:.cmo=.cmi) $(INSTALLDIR)
-       cp *.mli $(INSTALLDIR)
-       cp *.h $(INSTALLDIR)
-       cp $(ALLOBJS:.cmo=.ml) $(INSTALLDIR)
-       cp $(MLLIBS) $(THOBJS) $(INITOBJS) $(THINITOBJS) $(INSTALLDIR)
-       cp $(CLIBS) $(INSTALLDIR)
-       cp lablgtktop  lablgtktop_t $(INSTALLDIR)
-       cp lablgtk lablgtkrun $(BINDIR)
-       if test -f lablgtk.cmxa; then \
-          cp $(MLLIBS:.cma=.cmxa) $(MLLIBS:.cma=.a) \
-             $(INITOBJS:.cmo=.cmx) $(INITOBJS:.cmo=.o) $(INSTALLDIR); fi
-       if test -f gtkThread.cmx; then \
-          cp $(THOBJS:.cmo=.cmx) $(THOBJS:.cmo=.o) $(INSTALLDIR); fi
-
-liblablgtk.a: $(COBJS)
-       ar rc $@ $(COBJS)
-       $(RANLIB) $@
-lablgtk.cma: $(MLOBJS)
-       $(LINKER) -a -custom -o $@ $(MLOBJS) \
-         -cclib -llablgtk $(GTKLIBS)
-lablgtk.cmxa: $(MLOBJS:.cmo=.cmx)
-       $(LINKOPT) -a -o $@ $(MLOBJS:.cmo=.cmx) \
-         -cclib -llablgtk $(GTKLIBS)
-
-liblablgtkgl.a: $(GLCOBJS)
-       ar rc $@ $(GLCOBJS)
-       $(RANLIB) $@
-lablgtkgl.cma: $(GLMLOBJS)
-       $(LINKER) -a -custom -o $@ $(GLLINK) $(GLMLOBJS)
-lablgtkgl.cmxa: $(GLMLOBJS:.cmo=.cmx)
-       $(LINKOPT) -a -o $@ $(GLLINK) $(GLMLOBJS:.cmo=.cmx)
-
-liblablgnome.a: $(GNOMECOBJS)
-       ar rc $@ $(GNOMECOBJS)
-       $(RANLIB) $@
-lablgnome.cma: $(GNOMEMLOBJS)
-       $(LINKER) -a -custom -o $@ $(GNOMEMLOBJS) \
-         -cclib -llablgnome $(GNOMELIBS)
-lablgnome.cmxa: $(GNOMEMLOBJS:.cmo=.cmx)
-       $(LINKOPT) -a -o $@ $(GNOMEMLOBJS:.cmo=.cmx) \
-         -cclib -llablgnome $(GNOMELIBS)
-
-gtkThread.cmo: gtkThread.ml
-       $(COMPILER) $(THFLAGS) gtkThread.ml
-
-gtkThread.cmx: gtkThread.ml
-       if test -f $(LIBDIR)/libthreadsnat.a; then \
-          $(COMPOPT) $(THFLAGS) gtkThread.ml; fi
-
-var2conv: var2conv.cmo
-       $(LINKER) -o $@ var2conv.cmo
-       rm -f *_tags.c
-
-var2def: var2def.cmo
-       $(LINKER) -o $@ var2def.cmo
-       rm -f *_tags.h
-
-clean:
-       rm -f *.cm* *.o *.a *_tags.[ch] $(TARGETS)
-
-ml_gtk.o: gtk_tags.c gtk_tags.h ml_gtk.h ml_gdk.h wrappers.h
-ml_gdk.o: gdk_tags.c gdk_tags.h ml_gdk.h wrappers.h
-ml_gtkgl.o: gtkgl_tags.c gtkgl_tags.h ml_gtk.h ml_gdk.h wrappers.h
-ml_gtkxmhtml.o: gtkxmhtml_tags.c gtkxmhtml_tags.h ml_gtk.h ml_gdk.h wrappers.h
-
-include .depend

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/Makefile.nt b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/Makefile.nt
deleted file mode 100644 (file)
index bdf5b6c..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/Makefile.nt
+++ /dev/null
@@ -1,147 +0,0 @@
-# $Id$
-# Makefile for lablgtk.
-
-EXE = .exe
-TARGETS = var2conv var2def lablgtk$(EXE) lablgtk_t$(EXE) \
-       lablgtkrun$(EXE) config.make
-
-all: $(TARGETS)
-
-opt: lablgtkopt
-
-CAMLC = ocamlc
-CAMLOPT = ocamlopt
-COMPILER = $(CAMLC) $(MLFLAGS) -w s -labels -c
-LINKER = $(CAMLC) $(MLFLAGS)
-COMPOPT = $(CAMLOPT) $(MLFLAGS) -w s -labels -c
-LINKOPT = $(CAMLOPT) $(MLFLAGS)
-
-TOPLEVEL = ocamlmktop $(MLFLAGS)
-### How to invoke the librarian
-MKLIB=lib /nologo /debugtype:CV /out:
-
-!include config.make.nt
-
-INSTALLDIR = $(LIBDIR:/=\)\lablgtk
-BINDIR = $(LIBDIR:/=\)\..\bin
-LABLGLDIR = $(LIBDIR)/lablGL
-
-CFLAGS = -O -DGTK_NO_CHECK_CASTS -DGTK_DISABLE_COMPAT_H $(GTKCFLAGS)
-LDFLAGS = $(GTKLIBS)
-
-THFLAGS = -thread
-THLIBS = unix.cma threads.cma
-
-!if $(USE_CC) == 1
-CCOMPILER = $(CC) -c -I$(LIBDIR) $(CFLAGS)
-!else
-CCOMPILER = ocamlc -c -ccopt "$(CFLAGS)"
-!endif
-
-!if $(USE_GL) == 1
-MLFLAGS = $(MLFLAGS) -I $(LIBDIR)/lablGL
-GLLINK = -I $(LABLGLDIR) lablgl.cma -cclib -lgtkgl
-GLMLOBJS = glGtk.cmo
-GLCOBJS = ml_gtkgl.o
-!endif
-
-# Rules
-.SUFFIXES: .ml .mli .cmo .cmi .cmx .c .obj .var .h .opt .def
-.c.obj:
-       $(CCOMPILER) $<
-.ml.cmo:
-       $(COMPILER) $<
-.mli.cmi:
-       $(COMPILER) $<
-.ml.cmx:
-       $(COMPOPT) $<
-.var.h:
-       ocamlrun ./var2def < $< > $@
-.var.c:
-       ocamlrun ./var2conv < $< > $@
-
-# Targets
-COBJS = ml_gtk.obj ml_gdk.obj ml_glib.obj wrappers.obj $(GLCOBJS)
-OLDMLOBJS = misc.cmo glib.cmo gdk.cmo gtk.cmo gdkObj.cmo gtkObj.cmo gtkExt.cmo
-MLOBJS = misc.cmo glib.cmo gdk.cmo gdkEvent.cmo gdkKeysyms.cmo \
-       gtk.cmo gtkArgv.cmo gtkSignal.cmo \
-       gtkData.cmo gtkBase.cmo gtkPack.cmo gtkButton.cmo \
-       gtkMenu.cmo gtkMisc.cmo gtkWindow.cmo gtkTree.cmo gtkList.cmo \
-       gtkFrame.cmo gtkEdit.cmo gtkRange.cmo gtkMain.cmo gtkNew.cmo \
-       gDraw.cmo \
-       gObj.cmo gMain.cmo gData.cmo gContainer.cmo gPack.cmo gButton.cmo \
-       gMenu.cmo gMisc.cmo gWindow.cmo gTree.cmo gList.cmo gFrame.cmo \
-       gEdit.cmo gRange.cmo gUtil.cmo $(GLMLOBJS)
-THOBJS = gtkThread.cmo threadObj.cmo
-INITOBJS = gtkInit.cmo
-THINITOBJS = gtkThInit.cmo
-ALLOBJS = $(MLOBJS) $(THOBJS) $(INITOBJS) $(THINITOBJS)
-
-lablgtk$(EXE): liblablgtk.lib lablgtk.cma $(INITOBJS)
-       $(TOPLEVEL) -custom -o $@ unix.cma str.cma $(GLLINK) \
-           lablgtk.cma $(INITOBJS)
-
-lablgtk_t$(EXE): liblablgtk.lib lablgtk.cma $(THOBJS) $(INITOBJS) $(THINITOBJS)
-       $(TOPLEVEL) -custom $(THFLAGS) -o $@ $(THLIBS) str.cma $(GLLINK) \
-           lablgtk.cma $(THOBJS) $(INITOBJS) $(THINITOBJS)
-
-lablgtkrun$(EXE): liblablgtk.lib lablgtk.cma
-       $(LINKER) -o $@ -make-runtime $(GLLINK) lablgtk.cma
-
-lablgtkopt: liblablgtk.lib lablgtk.cmxa gtkInit.cmx
-
-install:
-       if not exist $(INSTALLDIR) mkdir $(INSTALLDIR)
-       cp $(ALLOBJS:.cmo=.cmi) $(INSTALLDIR)
-       cp *.mli $(INSTALLDIR)
-       cp $(ALLOBJS:.cmo=.ml) $(INSTALLDIR)
-       cp lablgtk.cma $(THOBJS) $(INITOBJS) $(THINITOBJS) $(INSTALLDIR)
-       cp liblablgtk.lib $(INSTALLDIR)
-       cp lablgtk$(EXE) lablgtk_t$(EXE) lablgtkrun$(EXE) $(BINDIR)
-       if exist lablgtk.cmxa cp lablgtk.cmxa lablgtk.lib gtkInit.cmx gtkInit.obj $(INSTALLDIR)
-
-liblablgtk.lib: $(COBJS)
-       $(MKLIB)$@ $(COBJS)
-
-lablgtk.cma: $(MLOBJS)
-       $(LINKER) -a -custom -o $@ $(MLOBJS) \
-         -cclib -llablgtk $(GTKLIBS)
-
-lablgtk.cmxa: $(MLOBJS:.cmo=.cmx)
-       $(LINKOPT) -a -o $@ $(MLOBJS:.cmo=.cmx) \
-         -cclib -llablgtk $(GTKLIBS)
-
-gtkThread.cmo: gtkThread.ml
-       $(COMPILER) $(THFLAGS) gtkThread.ml
-
-threadObj.cmo: threadObj.ml
-       $(COMPILER) $(THFLAGS) threadObj.ml
-
-gtkThread.cmx: gtkThread.ml
-       $(COMPOPT) $(THFLAGS) gtkThread.ml
-
-threadObj.cmx: threadObj.ml
-       $(COMPOPT) $(THFLAGS) threadObj.ml
-
-var2conv: var2conv.cmo
-       $(LINKER) -o $@ var2conv.cmo
-       rm -f *_tags.c
-
-var2def: var2def.cmo
-       $(LINKER) -o $@ var2def.cmo
-       rm -f *_tags.h
-
-clean:
-       rm -f *.cm* *.obj *.lib *_tags.[ch] $(TARGETS)
-
-config.make: config.make.nt
-       cp config.make.nt config.make
-
-depend .depend:
-       ocamldep *.ml *.mli > .depend
-
-ml_gtk.obj: gtk_tags.c gtk_tags.h ml_gtk.h ml_gdk.h wrappers.h
-ml_gdk.obj: gdk_tags.c gdk_tags.h ml_gdk.h wrappers.h
-ml_gtkgl.obj: gtkgl_tags.c gtkgl_tags.h ml_gtk.h ml_gdk.h wrappers.h
-
-!include .depend

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/README b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/README
deleted file mode 100644 (file)
index eabc247..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/README
+++ /dev/null
@@ -1,238 +0,0 @@
-
-               LablGTK : an interface to the GIMP Tool Kit
-
-
-Needed:
-       ocaml-3.00
-       gtk-1.2.x
-       gmake (there is no standard for conditionals)
-
-How to compile:
-
-       You should normally not need to modify Makefiles.
-       First type "make configure <options>".
-       Options are
-               USE_CC=1        to use $(CC) rather than gcc
-               USE_GL=1        to compile with OpenGL support (see lower)
-
-       Then just type "make" to build the library and toplevels.
-
-       On FreeBSD, you need to link with libxpg4.so for Japanese
-       output.
-
-Contents:
-
-       gdk.ml          low-level interface to the General Drawing Kit
-       gtk.ml          low-level interface to the GIMP Tool Kit
-       gtkThread.ml    main loop for threaded version
-       g[A-Z]*.ml      object-oriented interface to GTK
-       gdkObj.ml       object-oriented interface to GDK
-
-       lablgtk         toplevel
-
-       examples/*.ml   various examples
-       applications/*  applications using the library
-               radtest         a very experimental RAD for lablgtk
-                               (by Hubert Fauque)
-               browser         the begin of a port of OCamlBrowser
-                               (by Jacques Garrigue)
-                unison          a frontend for the Unison file synchronizer
-                                see the README for details.
-
-Upgrading from lablgtk-1.00:
-  There are a few incompatibilities between this version and the
-  previous release. We do not describe them all, since usually a type
-  error message will inform you.
-  * all signals are no longer under #connect. #connect#event changed
-    to #event#connect, and some signals are under #misc#connect or
-    #grab#connect. See lower for a description of the new widget
-    structure.
-  * some defaults changed. In particular GPack.box#pack have now all
-    its parameter defaulting to false rather than true. See lower for
-    the new default policy. Beware that this does not cause type
-    errors, just changes in the aspect.
-
-How to run the examples:
-  In the examples directory just type:
-       lablgtk -labels examples/???.ml
-
-  Before installing lablgtk you have to be more explicit:
-       ../lablgtktop -labels -w s -I .. ???.ml
-
-How to link them:
-  lablgtktop contains an extra module GtkInit, whose only contents is:
-        let locale = GtkMain.Main.init ()
-  You must either add this line, or add this module to your link,
-  before calling any Gtk function.
-  ocamlc -I CAMLLIB/lablgtk -labels -w s lablgtk.cma gtkInit.cmo ???.ml -o ???
-
-How to use the threaded toplevel:
-
-       % lablgtk -thread           (or lablgtktop_t before installing)
-               Objective Caml version 3.00
-       
-       # let w = GWindow.window ~show:true ();;
-
-  You should at once see a window appear.
-  The GTK main loop is running in a separate thread. Any command
-  is immediately reflected by the system.
-  Beware that you cannot switch threads within a callback, that is the
-  only thread related command you may use in a callback is
-  Thread.create. On the other hand, all newly created threads will be
-  run directly by the caml main loop, so they can use all thread
-  operations.
-
-Structure of the (raw) Gtk* modules:
-
-  These modules are composed of one submodule for each class.
-  Signals specific to a widget are in a Signals inner module.
-  A setter function is defined to give access to set_param functions.
-
-Structure of the G[A-Z]* modules:
-
-  These modules provide classes to wrap the raw function calls.
-  Here are the widget classes contained in each module:
-
-  GDraw         Gdk pixmaps, etc...
-  GObj         gtkobj, widget, style
-  GData                data, adjustment, tooltips
-  GContainer   container, item_container
-  GWindow      window, dialog, color_selection_dialog, file_selection, plug
-  GPack                box, button_box, table, fixed, layout, packer, paned, notebook
-  GBin         scrolled_window, event_box, handle_box, frame,
-               aspect_frame, viewport, socket
-  GButton      button, toggle_button, check_button, radio_button, toolbar
-  GMenu                menu_item, tearoff_item, check_menu_item, radio_menu_item,
-               menu_shell, menu, option_menu, menu_bar, factory
-  GMisc                separator, statusbar, calendar, drawing_area,
-               misc, arrow, image, pixmap, label, tips_query,
-                color_selection, font_selection
-  GTree                tree_item, tree
-  GList                list_item, liste, clist
-  GEdit                editable, entry, spin_button, combo, text
-  GRange       progress, progress_bar, range, scale, scrollbar
-
-  While subtyping follows the Gtk widget hierarchy, you cannot always
-  use width subtyping (i.e. #super is not unifiable with all the
-  subclasses of super). Still, it works for some classes, like
-  #widget and #container, and allows subtyping without coercion towards
-  these classes (cf. #container in pousse.ml for instance).
-
-  Practically, each widget class is composed of:
-  * a coerce method, returning the object coerced to the type widget.
-  * an as_widget method, returning the raw Gtk widget used for packing, etc...
-  * a connect sub-object, allowing one to widget specific
-    signals (this is what prevents width subtyping in subclasses.)
-  * a misc sub-object, giving access to miscellanous functionality of
-    the basic gtkwidget class, and a misc#connect sub-object.
-  * an event sub-object, for Xevent related functions (only if the widget
-    has an Xwindow), and an event#connect sub-object.
-  * a grab sub-object, containing drag and drop functions,
-    and a grab#connect sub-object.
-  * widget specific methods.
-
-  Here is a diagram of the structure (- for methods, + for sub-objects)
-        - coerce : widget
-        - as_widget : Gtk.widget obj
-        - destroy : unit -> unit
-        - ...
-        + connect : mywidget_signals
-        |   - after
-        |   - signal_name : callback:(... -> ...) -> GtkSignal.id
-        + misc : misc_ops
-        |   - show, hide, disconnect, ...
-        |   + connect : misc_signals
-        + event : event_ops
-        |   - add, ...
-        |   + connect : event_signals
-        + grab : grab_ops
-        |   - ...
-        |   + connect : grab_signals
-
-  You create a widget by [<Module>.<widget name> options ... ()].
-  Many optional arguments are admitted. The last two of them, packing:
-  and show:, allow you respectively to call a function on your newly
-  created widget, and to decide wether to show it immediately or not.
-  By default all widgets except toplevel windows (GWindow module) are
-  shown immediately.
-
-Default arguments:
-  For many constructor or method arguments, default values are provided.
-  Generally, this default value is defined by GTK, and you must refer
-  to GTK's documentation.
-  For ML defined defaults, usually default values are either false, 0, None
-  or `NONE, according to the expected type.
-  Important exceptions are ~show, which default to true in all widgets
-  except those in GWindow, and ~fill, which defaults to true or `BOTH.
-
-Note about unit as method argument:
-
-  O'Caml introduces no distinction between methods having side-effects
-  and methods simply returning a value. In practice, this is
-  confusing, and awkward when used as callbacks. For this reason all
-  methods having noticeable side-effects should take arguments, and
-  unit if they have no argument.
-
-Memory management:
-
-  Important efforts have been dedicated to cooperate with Gtk's
-  reference counting mechanism. As a result you should generally be
-  able to use Gdk/Gtk data structures without caring about memory
-  management. They will be freed when nobody points to them any more.
-  This also means that you do not need to pay too much attention to
-  whether a data structure is still alive or not. If it is not, you
-  should get an error rather than a core dump.
-  The case of Gtk objects deserves special care. Since they are
-  interactive, we cannot just destroy them when they are no longer
-  referenced. They have to be explicitely destroyed. If a widget was
-  added to a container widget, it will automatically be destroyed when
-  its last container is destroyed. For this reason you need only
-  destroy toplevel widgets.
-
-GL extension
-
-  You can use lablgtk in combination with LablGL
-
-  * get and install lablGL 0.94 from
-    http://wwwfun.kurims.kyoto-u.ac.jp/soft/olabl/lablgl.html
-  * get and install gtkglarea-1.2.x.tar.gz from
-    http://www.student.oulu.fi/~jlof/gtkglarea/index.html
-  * reconfigure: "make configure USE_GL=1"
-
-  You can then use the widget GlGtk.gl_area as an OpenGL window.
-  Some examples are in examples/GL, but basically any LablGL example
-  can be easily ported.
-
-Windows port
-
-  A Win32 port is provided. In order to compile it, you will need to
-  get and unpack glib-dev-????.zip and gtk+-dev-????.zip from
-        http://www.gimp.org/~tml/gimp/win32/
-  Do not forget to get also extralibs-dev-????.zip, since you will
-  need some of the DLLs.
-
-  Edit config.make.nt, then, using Visual C++,
-        nmake -f Makefile.nt
-        nmake -f Makefile.nt opt        (if you have an MS Assembler)
-  Then install with
-        nmake -f Makefile.nt install
-
-  Since the link is dynamic you will also need to have in your path:
-  gnu-intl.dll (extralibs), glib-1.3.dll, module-1.3.dll and
-  gthread-1.3.dll (glib), gdk-1.3.dll and gtk-1.3.dll (gtk+).
-
-  I checked with the 2000-02-02 version of these libraries.
-  Currently threads do not seem to work, but otherwise everything
-  seems OK. In particular, you can run all examples, and build
-  applications\unison as usual.
-
-Authors:
-       Jacques Garrigue <garrigue@kurims.kyoto-u.ac.jp>
-       Hubert Fauque  <hubert.fauque@wanadoo.fr>
-       Jun Furuse     <Jun.Furuse@inria.fr>
-       Koji Kagawa    <kagawa@eng.kagawa-u.ac.jp>
-                                  
-Bug reports:
-       Jacques Garrigue <garrigue@kurims.kyoto-u.ac.jp>
-
-$Id$

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/.cvsignore b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/.cvsignore
deleted file mode 100644 (file)
index bc09d74..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/.cvsignore
+++ /dev/null
@@ -1,3 +0,0 @@
-olabl-src
-browser
-.depend
\ No newline at end of file

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/Makefile b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/Makefile
deleted file mode 100644 (file)
index 8822e47..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/Makefile
+++ /dev/null
@@ -1,41 +0,0 @@
-# $Id$
-# Makefile for lablgtk.
-
-all: browser
-
-CAMLC = ocamlc
-CAMLOPT = ocamlopt
-COMPILER = $(CAMLC) $(MLFLAGS) -labels -w s -c
-LINKER = $(CAMLC) $(MLFLAGS)
-COMPOPT = $(CAMLOPT) $(MLFLAGS) -labels -w s -c
-LINKOPT = $(CAMLOPT) $(MLFLAGS)
-
-RANLIB = ranlib
-
-include ../../config.make
-
-MLFLAGS = -I ../.. -I ocaml-src/utils -I ocaml-src/parsing
-
-# Rules
-.SUFFIXES: .ml .mli .cmo .cmi .cmx .c .o .var .h .opt .def
-.ml.cmo:
-       $(COMPILER) $<
-.mli.cmi:
-       $(COMPILER) $<
-.ml.cmx:
-       $(COMPOPT) $<
-
-# Targets
-MLOBJS = text.cmo file.cmo lexical.cmo shell.cmo editor.cmo
-
-browser: $(MLOBJS)
-       $(LINKER) -o $@ toplevellib.cma str.cma unix.cma \
-           lablgtk.cma $(MLOBJS) 
-
-clean:
-       rm -f *.cm* browser
-
-.depend:
-       ocamldep *.ml *.mli > .depend
-
-include .depend

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/README b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/README
deleted file mode 100644 (file)
index a6f01ce..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/README
+++ /dev/null
@@ -1,18 +0,0 @@
-       Browser: the beginning of a port of the LablBrowser
-
-Installation:
-
-* make a link from a directory where the O'Labl distribution is
-  compiled to olabl-src
-       ln -s /path/to/olabl/ocaml-2.02 olabl-src
-  (actually only the directory parsing needs to be compiled)
-
-* just type "make"
-
-Use:
-
-When you run browser, you just get a customized editor with lexical
-coloring. Nothing very fancy.
-In the file menu you can open a shell, running olabl as subprocess.
-
-Jacques Garrigue
\ No newline at end of file

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/TODO b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/TODO
deleted file mode 100644 (file)
index 0c8bb53..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/TODO
+++ /dev/null
@@ -1,4 +0,0 @@
-* lexical coloring (done)
-* hyperlinks (call signal with position)
-* keyboard popup
-* protection

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/editor.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/editor.ml
deleted file mode 100644 (file)
index d4adbfb..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/editor.ml
+++ /dev/null
@@ -1,101 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-class editor ?packing ?show () =
-  let text = GEdit.text ~editable:true ?packing ?show () in
-object (self)
-  inherit GObj.widget text#as_widget
-
-  val mutable filename = None
-
-  method text = text
-
-  method load_file name =
-    try
-      let ic = open_in name in
-      filename <- Some name;
-      text#freeze ();
-      text#delete_text ~start:0 ~stop:text#length;
-      let buf = String.create 1024 and len = ref 0 in
-      while len := input ic ~buf ~pos:0 ~len:1024; !len > 0 do
-       if !len = 1024 then text#insert buf
-       else text#insert (String.sub buf ~pos:0 ~len:!len)
-      done;
-      text#set_point 0;
-      text#thaw ();
-      close_in ic
-    with _ -> ()
-
-  method open_file () = File.dialog ~title:"Open" ~callback:self#load_file ()
-
-  method save_file () =
-    File.dialog ~title:"Save" ?filename () ~callback:
-      begin fun name ->
-       try
-         if Sys.file_exists name then Sys.rename ~src:name ~dst:(name ^ "~");
-         let oc = open_out name in
-         output_string oc (text#get_chars ~start:0 ~stop:text#length);
-         close_out oc
-       with _ -> prerr_endline "Save failed"
-      end
-end
-
-open GdkKeysyms
-
-class editor_window ?(show=false) () =
-  let window = GWindow.window ~width:500 ~height:300
-      ~title:"Program Editor" () in
-  let vbox = GPack.vbox ~packing:window#add () in
-
-  let menubar = GMenu.menu_bar ~packing:vbox#pack () in
-  let factory = new GMenu.factory menubar in
-  let accel_group = factory#accel_group
-  and file_menu = factory#add_submenu "File"
-  and edit_menu = factory#add_submenu "Edit"
-  and comp_menu = factory#add_submenu "Compiler" in
-
-  let hbox = GPack.hbox ~packing:vbox#add () in
-  let scrollbar =
-    GRange.scrollbar `VERTICAL ~packing:(hbox#pack ~from:`END) ()
-  and editor = new editor ~packing:hbox#add () in
-object (self)
-  inherit GObj.widget window#as_widget
-
-  method window = window
-  method editor = editor
-  method show = window#show
-
-  initializer
-    window#connect#destroy ~callback:Main.quit;
-    let factory = new GMenu.factory file_menu ~accel_group in
-    factory#add_item "Open..." ~key:_O ~callback:editor#open_file;
-    factory#add_item "Save..." ~key:_S ~callback:editor#save_file;
-    factory#add_item "Shell"
-      ~callback:(fun () -> Shell.f ~prog:"ocaml" ~title:"Objective Caml Shell");
-    factory#add_separator ();
-    factory#add_item "Quit" ~key:_Q ~callback:window#destroy;
-    let factory = new GMenu.factory edit_menu ~accel_group in
-    factory#add_item "Copy" ~key:_C ~callback:editor#text#copy_clipboard;
-    factory#add_item "Cut" ~key:_X ~callback:editor#text#cut_clipboard;
-    factory#add_item "Paste" ~key:_V ~callback:editor#text#paste_clipboard;
-    factory#add_separator ();
-    factory#add_check_item "Word wrap" ~active:false
-      ~callback:editor#text#set_word_wrap;
-    factory#add_check_item "Read only" ~active:false
-      ~callback:(fun b -> editor#text#set_editable (not b));
-    let factory = new GMenu.factory comp_menu ~accel_group in
-    factory#add_item "Lex" ~key:_L
-      ~callback:(fun () -> Lexical.tag editor#text);
-    window#add_accel_group accel_group;
-    editor#text#set_vadjustment scrollbar#adjustment;
-    if show then self#show ()
-end
-
-let _ =
-  Main.init ();
-  if Array.length Sys.argv >= 2 && Sys.argv.(1) = "-shell" then
-    Shell.f ~prog:"ocaml" ~title:"Objective Caml Shell"
-  else
-    ignore (new editor_window ~show:true ());
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/file.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/file.ml
deleted file mode 100644 (file)
index e9c0cf3..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/file.ml
+++ /dev/null
@@ -1,13 +0,0 @@
-(* $Id$ *)
-
-let dialog ~title ~callback ?filename () =
-  let sel =
-    GWindow.file_selection ~title ~modal:true ?filename () in
-  sel#cancel_button#connect#clicked ~callback:sel#destroy;
-  sel#ok_button#connect#clicked ~callback:
-    begin fun () ->
-      let name = sel#get_filename in
-      sel#destroy ();
-      callback name
-    end;
-  sel#show ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/lexical.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/lexical.ml
deleted file mode 100644 (file)
index 9acb9c0..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/lexical.ml
+++ /dev/null
@@ -1,155 +0,0 @@
-(* $Id$ *)
-
-open Parser
-
-type tags = [`none|`control|`define|`structure|`char|`infix|`label|`uident]
-
-let colors : (tags * GDraw.color) list Lazy.t =
-  lazy
-    (List.map ~f:(fun (tag,col) -> tag, `COLOR (GDraw.color (`NAME col)))
-       [ `control, "blue";
-        `define, "forestgreen";
-        `structure, "purple";
-        `char, "gray40";
-        `infix, "indianred4";
-        `label, "brown";
-        `uident, "midnightblue";
-         `none, "black" ])
-
-let tag ?(start=0) ?stop:pend (tw : GEdit.text) =
-  let pend = Gaux.default tw#length ~opt:pend in
-  let colors = Lazy.force colors in
-  tw#freeze ();
-  let position = tw#position
-  and text = tw#get_chars ~start ~stop:pend in
-  let replace ~start:pstart ~stop:pend ~tag =
-    if pend > pstart then begin
-      tw#delete_text ~start:(start+pstart) ~stop:(start+pend);
-      tw#set_point (start+pstart);
-      tw#insert ~foreground:(List.assoc tag colors)
-       (String.sub text ~pos:pstart ~len:(pend-pstart));
-    end
-  and next_lf = ref (-1) in
-  let colorize ~start:rstart ~stop:rend ~tag =
-    let rstart = ref rstart in
-    while !rstart < rend do
-      if !next_lf < !rstart then begin
-       try next_lf := String.index_from text !rstart '\n'
-       with Not_found -> next_lf := pend-start
-      end;
-      replace ~start:!rstart ~stop:(min !next_lf rend) ~tag;
-      rstart := !next_lf + 1
-    done
-  in
-  let buffer = Lexing.from_string text
-  and last = ref (EOF, 0, 0)
-  and last_pos = ref 0 in
-  try
-    while true do
-    let token = Lexer.token buffer
-    and start = Lexing.lexeme_start buffer
-    and stop = Lexing.lexeme_end buffer in
-    let tag =
-      match token with
-        AMPERAMPER
-      | AMPERSAND
-      | BARBAR
-      | DO | DONE
-      | DOWNTO
-      | ELSE
-      | FOR
-      | IF
-      | LAZY
-      | MATCH
-      | OR
-      | THEN
-      | TO
-      | TRY
-      | WHEN
-      | WHILE
-      | WITH
-          -> `control
-      | AND
-      | AS
-      | BAR
-      | CLASS
-      | CONSTRAINT
-      | EXCEPTION
-      | EXTERNAL
-      | FUN
-      | FUNCTION
-      | FUNCTOR
-      | IN
-      | INHERIT
-      | INITIALIZER
-      | LET
-      | METHOD
-      | MODULE
-      | MUTABLE
-      | NEW
-      | OF
-      | PARSER
-      | PRIVATE
-      | REC
-      | TYPE
-      | VAL
-      | VIRTUAL
-          -> `define
-      | BEGIN
-      | END
-      | INCLUDE
-      | OBJECT
-      | OPEN
-      | SIG
-      | STRUCT
-          -> `structure
-      | CHAR _
-      | STRING _
-          -> `char
-      | BACKQUOTE
-      | INFIXOP1 _
-      | INFIXOP2 _
-      | INFIXOP3 _
-      | INFIXOP4 _
-      | PREFIXOP _
-      | QUESTION2
-      | SHARP
-          -> `infix
-      | LABEL _
-      | OPTLABEL _
-      | QUESTION
-      | TILDE
-          -> `label
-      | UIDENT _ -> `uident
-      | LIDENT _ ->
-          begin match !last with
-            (QUESTION | TILDE), _, _ -> `label
-          | _ -> `none
-          end
-      | COLON ->
-          begin match !last with
-            LIDENT _, lstart, lstop when lstop = start ->
-              colorize ~tag:`none ~start:!last_pos ~stop:lstart;
-              colorize ~tag:`label ~start:lstart ~stop;
-              last_pos := stop;
-              `none
-          | _ -> `none
-          end
-      | EOF -> raise End_of_file
-      | _ -> `none
-    in
-    if tag <> `none then begin
-      colorize ~tag:`none ~start:!last_pos ~stop:start;
-      colorize ~tag ~start ~stop;
-      last_pos := stop
-    end;
-    last := (token, start, stop)
-    done
-  with exn ->
-    colorize ~tag:`none ~start:!last_pos ~stop:(pend-start);
-    tw#thaw ();
-    tw#set_position position;
-    tw#set_point position;
-    match exn with
-      End_of_file | Lexer.Error _ -> ()
-    | _ -> raise exn

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/list2.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/list2.ml
deleted file mode 100644 (file)
index 0d7798a..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/list2.ml
+++ /dev/null
@@ -1,25 +0,0 @@
-(* $Id$ *)
-
-let rec cut l ~len =
-  if len <= 0 then [], l else
-  match l with
-    a::l ->
-      let l1, l2 = cut l ~len:(len-1) in
-      a::l1, l2
-  | [] ->
-      invalid_arg "cut_list"
-
-let rec chop l ~len =
-  if l = [] then [] else
-  let l1, l2 =
-    try cut_list l ~len
-    with Invalid_argument _ -> l, []
-  in
-  l1 :: chop l2 ~len
-
-
-let rec iteri_aux ~f:f ~i = function
-    [] -> ()
-  | a::l -> f ~i a; iteri_aux ~f:f ~i:(i+1) l
-
-let iteri = iteri_aux ~i:0

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/shell.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/shell.ml
deleted file mode 100644 (file)
index fbe0f92..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/shell.ml
+++ /dev/null
@@ -1,255 +0,0 @@
-(* $Id$ *)
-
-open GdkKeysyms
-open Printf
-
-(* Nice history class. May reuse *)
-
-class ['a] history () = object
-  val mutable history = ([] : 'a list)
-  val mutable count = 0
-  method empty = history = []
-  method add s = count <- 0; history <- s :: history
-  method previous =
-    let s = List.nth history count in
-    count <- (count + 1) mod List.length history;
-    s
-  method next =
-    let l = List.length history in
-    count <- (l + count - 1) mod l;
-    List.nth history ((l + count - 1) mod l)
-end
-
-(* The shell class. Now encapsulated *)
-
-let protect f x = try f x with _ -> ()
-
-class shell ~prog ~args ~env ?packing ?show () =
-  let (in2,out1) = Unix.pipe ()
-  and (in1,out2) = Unix.pipe ()
-  and (err1,err2) = Unix.pipe () in
-  let _ = List.iter ~f:Unix.set_nonblock [out1;in1;err1] in
-object (self)
-  val textw = GEdit.text ~editable:true ?packing ?show ()
-  val pid = Unix.create_process_env
-      ~prog ~args ~env ~stdin:in2 ~stdout:out2 ~stderr:err2
-  val out = Unix.out_channel_of_descr out1
-  val h = new history ()
-  val mutable alive = true
-  val mutable reading = false
-  val mutable input_start = 0
-  method text = textw
-  method alive = alive
-  method kill () =
-    textw#set_editable false;
-    if alive then begin
-      alive <- false;
-      protect close_out out;
-      List.iter ~f:(protect Unix.close) [in1; err1; in2; out2; err2];
-      try
-       Unix.kill ~pid ~signal:Sys.sigkill;
-       Unix.waitpid pid ~mode:[]; ()
-      with _ -> ()
-    end
-  method interrupt () =
-    if alive then try
-      reading <- false;
-      Unix.kill ~pid ~signal:Sys.sigint
-    with Unix.Unix_error _ -> ()
-  method send s =
-    if alive then try
-      output_string out s;
-      flush out
-    with Sys_error _ -> ()
-  method private read ~fd ~len =
-    try
-      let buf = String.create len in
-      let len = Unix.read fd ~buf ~pos:0 ~len in
-      if len > 0 then begin
-       textw#set_position textw#length;
-       self#insert (String.sub buf ~pos:0 ~len);
-       input_start <- textw#position;
-      end;
-      len
-    with Unix.Unix_error _ -> 0
-  method history (dir : [`next|`previous]) =
-    if not h#empty then begin
-      if reading then begin
-       textw#delete_text ~start:input_start ~stop:textw#position;
-      end else begin
-       reading <- true;
-       input_start <- textw#position
-      end;
-      self#insert (if dir = `previous then h#previous else h#next);
-    end
-  val mutable lexing = false
-  method private lex ~start ~stop:e =
-    if not lexing && start < e then begin
-      lexing <- true;
-      Lexical.tag textw ~start ~stop:e;
-      lexing <- false
-    end
-  method insert ?(lex=true) text =
-    let start = Text.line_start textw in
-    textw#insert text;
-    if lex then self#lex ~start ~stop:(Text.line_end textw)
-  method private keypress c =
-    if not reading & c > " " then begin
-      reading <- true;
-      input_start <- textw#position
-    end
-  method private return () =
-    if reading then reading <- false
-    else input_start <- textw#position;
-    textw#set_position (Text.line_end textw);
-    let s = textw#get_chars ~start:input_start ~stop:textw#position in
-    h#add s;
-    self#send s;
-    self#send "\n"
-  method private paste () =
-    if not reading then begin
-      reading <- true;
-      input_start <- textw#position;
-    end
-  initializer
-    textw#event#connect#key_press ~callback:
-      begin fun ev ->
-       if GdkEvent.Key.keyval ev = _Return && GdkEvent.Key.state ev = []
-       then self#return ()
-       else self#keypress (GdkEvent.Key.string ev);
-        false
-      end;
-    textw#connect#after#insert_text ~callback:
-      begin fun s ~pos ->
-        if not lexing then
-          self#lex ~start:(Text.line_start textw ~pos:(pos - String.length s))
-            ~stop:(Text.line_end textw ~pos)
-      end;
-    textw#connect#after#delete_text ~callback:
-      begin fun ~start:pos ~stop ->
-        if not lexing then
-          self#lex ~start:(Text.line_start textw ~pos)
-            ~stop:(Text.line_end textw ~pos)
-      end;
-    textw#event#connect#button_press ~callback:
-      begin fun ev ->
-       if GdkEvent.Button.button ev = 2 then self#paste ();
-       false
-      end;
-    textw#connect#destroy ~callback:self#kill;
-    GMain.Timeout.add ~ms:100 ~callback:
-      begin fun () ->
-       if alive then begin
-         List.iter [err1;in1]
-           ~f:(fun fd -> while self#read ~fd ~len:1024 = 1024 do () done);
-         true
-       end else false
-      end;
-    ()
-end
-
-(* Specific use of shell, for LablBrowser *)
-
-let shells : (string * shell) list ref = ref []
-
-(* Called before exiting *)
-let kill_all () =
-  List.iter !shells ~f:(fun (_,sh) -> if sh#alive then sh#kill ());
-  shells := []
-let _ = at_exit kill_all
-
-let get_all () =
-  let all = List.filter !shells ~f:(fun (_,sh) -> sh#alive) in
-  shells := all;
-  all
-
-let may_exec prog =
-  try Unix.access prog ~perm:[Unix.X_OK]; true
-  with Unix.Unix_error _ -> false
-
-let f ~prog ~title =
-  let progargs =
-    List.filter ~f:((<>) "") (Str.split ~sep:(Str.regexp " ") prog) in
-  if progargs = [] then () else
-  let prog = List.hd progargs in
-  let path = try Sys.getenv "PATH" with Not_found -> "/bin:/usr/bin" in
-  let exec_path = Str.split ~sep:(Str.regexp":") path in
-  let prog =
-    if not (Filename.is_implicit prog) then
-      if may_exec prog then prog else ""
-    else
-      List.fold_left exec_path ~init:"" ~f:
-       begin fun acc dir ->
-         if acc <> "" then acc else
-         let prog = Filename.concat dir prog in
-         if may_exec prog then prog else acc
-       end
-  in
-  if prog = "" then () else
-  let reg = Str.regexp "TERM=" in
-  let env = Array.map (Unix.environment ()) ~f:
-      begin fun s ->
-       if Str.string_match ~pat:reg s ~pos:0 then "TERM=dumb" else s
-      end in
-  let load_path =
-    List.flatten (List.map !Config.load_path ~f:(fun dir -> ["-I"; dir])) in
-  let args = Array.of_list (progargs @ load_path) in
-  let current_dir = ref (Unix.getcwd ()) in
-
-  let tl = GWindow.window ~title ~width:500 ~height:300 () in
-  let vbox = GPack.vbox ~packing:tl#add () in
-  let menus = GMenu.menu_bar ~packing:vbox#pack () in
-  let f = new GMenu.factory menus in
-  let accel_group = f#accel_group in
-  let file_menu = f#add_submenu "File"
-  and history_menu = f#add_submenu "History"
-  and signal_menu = f#add_submenu "Signal" in
-
-  let hbox = GPack.hbox ~packing:vbox#add () in
-  let sh = new shell ~prog ~env ~args ~packing:hbox#add () in
-  let sb =
-    GRange.scrollbar `VERTICAL ~adjustment:sh#text#vadjustment
-      ~packing:hbox#pack ()
-  in
-
-  let f = new GMenu.factory file_menu ~accel_group in
-  f#add_item "Use..." ~callback:
-    begin fun () ->
-      File.dialog ~title:"Use File" ~filename:(!current_dir ^ "/") () ~callback:
-       begin fun name ->
-         current_dir := Filename.dirname name;
-         if Filename.check_suffix name ".ml" then
-           let cmd = "#use \"" ^ name ^ "\";;\n" in
-           sh#insert cmd;
-           sh#send cmd
-       end
-    end;
-  f#add_item "Load..." ~callback:
-    begin fun () ->
-      File.dialog ~title:"Load File" ~filename:(!current_dir ^ "/") () ~callback:
-       begin fun name ->
-         current_dir := Filename.dirname name;
-         if Filename.check_suffix name ".cmo" or
-           Filename.check_suffix name ".cma"
-         then
-           let cmd = Printf.sprintf "#load \"%s\";;\n" name in
-           sh#insert cmd;
-           sh#send cmd
-       end
-    end;
-  f#add_item "Import path" ~callback:
-    begin fun () ->
-      List.iter (List.rev !Config.load_path)
-       ~f:(fun dir -> sh#send (sprintf "#directory \"%s\";;\n" dir))
-    end;
-  f#add_item "Close" ~key:_W ~callback:tl#destroy;
-
-  let h = new GMenu.factory history_menu ~accel_group ~accel_modi:[`MOD1] in
-  h#add_item "Previous" ~key:_P ~callback:(fun () -> sh#history `previous);
-  h#add_item "Next" ~key:_N ~callback:(fun () -> sh#history `next);
-  let s = new GMenu.factory signal_menu ~accel_group in
-  s#add_item "Interrupt" ~key:_G ~callback:sh#interrupt;
-  s#add_item "Kill" ~callback:sh#kill;
-  shells := (title, sh) :: !shells;
-  tl#add_accel_group accel_group;
-  tl#show ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/text.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/text.ml
deleted file mode 100644 (file)
index 729f310..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/text.ml
+++ /dev/null
@@ -1,16 +0,0 @@
-(* $Id$ *)
-
-open GEdit
-
-let line_start ?pos (text : GEdit.text) =
-  let pos = Gaux.default text#position ~opt:pos in
-  if pos = 0 then 0 else
-  let start = max 0 (pos-256) in
-  let buffer = text#get_chars ~start ~stop:pos in
-  try start + String.rindex buffer '\n' with Not_found -> 0
-
-let line_end ?pos (text : GEdit.text) =
-  let pos = Gaux.default text#position ~opt:pos in
-  if pos = text#length then text#length else
-  let buffer = text#get_chars ~start:pos ~stop:(min text#length (pos+256)) in
-  try pos + String.index buffer '\n' with Not_found -> text#length

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/useunix.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/useunix.ml
deleted file mode 100644 (file)
index c4860a8..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/useunix.ml
+++ /dev/null
@@ -1,36 +0,0 @@
-(* $Id$ *)
-
-open Unix
-
-let get_files_in_directory dir =
-  try
-  let dirh = opendir dir in
-  let rec get_them () =
-    try
-      let x = readdir dirh in
-      x :: get_them ()
-    with
-      _ -> closedir dirh; [] 
-  in
-    Sort.list ~order:(<) (get_them ())
-  with Unix_error _ -> []
-
-let is_directory name =
-  try
-    (stat name).st_kind = S_DIR
-  with _ -> false
-
-let get_directories_in_files ~path =
-  List.filter ~pred:(fun x -> is_directory  (path ^ "/" ^ x))
-
-(************************************************** Subshell call *)
-let subshell ~cmd =
-  let rc = open_process_in ~cmd in
-  let rec it () =
-    try 
-      let x = input_line rc in x :: it ()
-    with _ -> []
-  in 
-  let answer = it () in
-  close_process_in rc;
-  answer

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/widgets.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/widgets.ml
deleted file mode 100644 (file)
index c27ca9f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/browser/widgets.ml
+++ /dev/null
@@ -1,34 +0,0 @@
-(* $Id$ *)
-
-open GObj
-
-class multibox ~rows ~columns ?(row_view = rows) ?(col_view = columns)
-    ?packing ?show () =
-  let sw =
-    GBin.scrolled_window ~hpolicy:`AUTOMATIC ~vpolicy:`AUTOMATIC
-      ?show ?packing () in
-  let vp = GBin.viewport ~shadow_type:`NONE ~packing:sw#add in
-  let table =
-    GPack.table ~columns ~rows ~homogeneous:true ~packing:vp#add () in
-  let buttons =
-    Array.init ~len:columns
-      ~f:(fun left -> Array.init ~len:rows
-         ~f:(fun top -> GButton.button
-              ~packing:(table#attach ~top ~left ~expand:`BOTH)))
-  in
-  object (self)
-    inherit widget sw#as_widget
-    method cell ~col ~row = buttons.(col).(row)
-    initializer
-      let id = ref None in
-      id := Some
-         (sw#event#connect#expose ~after:true ~callback:
-            begin fun _ ->
-              may !id ~f:sw#connect#disconnect;
-              let height = table#misc#allocation.height * row_view / rows
-              and width = table#misc#allocation.width * col_view / columns in
-              vp#misc#set_size ~height ~width;
-              false
-            end);
-      table#focus#set_vadjustment vp#vadjustment
-  end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/.cvsignore b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/.cvsignore
deleted file mode 100644 (file)
index a2d75da..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/.cvsignore
+++ /dev/null
@@ -1,3 +0,0 @@
-.depend radtest
-*_parser.ml *_parser.mli
-*_lexer.ml

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/CHANGES b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/CHANGES
deleted file mode 100644 (file)
index e87fc0a..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/CHANGES
+++ /dev/null
@@ -1,16 +0,0 @@
-$Id$
-
-2000.05.15
-  * suppressed treew.ml; replaced by ti*.ml
-  * new widgets
-  * less known bugs  (Hubert)
-1999.10.28
-  * re-objectified property.ml
-  * split it into common.mli/property.ml/propwin.ml
-  * undo is back
-  * restructure menu code in main.ml
-
-1999.10.27
-  * simplified property.ml, and corrected treew.ml accordingly.
-    undo is temporarily disabled.
-    (Jacques)
\ No newline at end of file

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/Makefile b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/Makefile
deleted file mode 100644 (file)
index 175eca9..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/Makefile
+++ /dev/null
@@ -1,86 +0,0 @@
-# $Id$
-# Makefile for lablgtk.
-
-all: radtest
-
-CAMLC = ocamlc
-CAMLOPT = ocamlopt
-COMPILER = $(CAMLC) $(MLFLAGS) -c
-LINKER = $(CAMLC) $(MLFLAGS)
-COMPOPT = $(CAMLOPT) $(MLFLAGS) -c
-LINKOPT = $(CAMLOPT) $(MLFLAGS)
-
-RANLIB = ranlib
-
-include ../../config.make
-
-MLFLAGS = -I ../.. -w s -labels
-
-ifdef DEBUG
-CFLAGS = -g $(GTKCFLAGS)
-MLFLAGS += -g
-else
-CFLAGS = -O -DGTK_NO_CHECK_CASTS -DGTK_DISABLE_COMPAT_H $(GTKCFLAGS)
-endif
-
-ifdef USE_CC
-CCOMPILER = $(CC) -c -I$(LIBDIR) $(CFLAGS)
-else
-CCOMPILER = ocamlc -c -ccopt "$(CFLAGS)"
-endif
-
-
-# Rules
-.SUFFIXES: .ml .mli .cmo .cmi .cmx .c .o .var .h .opt .def
-.c.o:
-       $(CCOMPILER) $<
-.ml.cmo:
-       $(COMPILER) $<
-.mli.cmi:
-       $(COMPILER) $<
-.ml.cmx:
-       $(COMPOPT) $<
-
-# Targets
-MLOBJS = utils.cmo property.cmo propwin.cmo \
-       load_parser.cmo load_lexer.cmo tiBase.cmo tiContainer.cmo tiBin.cmo \
-       tiButton.cmo tiEdit.cmo tiList.cmo tiMisc.cmo tiPack.cmo tiWindow.cmo \
-       tiWidget.cmo main.cmo
-
-MLSRC = common.mli utils.ml property.mli property.ml propwin.mli \
-       propwin.ml \
-       load_parser.ml load_lexer.ml tiBase.ml tiContainer.ml tiBin.ml \
-       tiButton.ml tiEdit.ml tiList.ml tiMisc.ml tiPack.ml tiWindow.ml \
-       tiWidget.ml main.ml
-
-radtest: $(MLOBJS)  libgtk2.a gtk2.cma
-       $(LINKER) -o $@ lablgtk.cma gtkInit.cmo -I . gtk2.cma \
-           $(MLOBJS)
-
-radtestopt: $(MLOBJS:.cmo=.cmx) libgtk2.a gtk2.cmxa
-       $(LINKOPT) -o $@ lablgtk.cmxa gtkInit.cmx -I . gtk2.cmxa \
-           $(MLOBJS:.cmo=.cmx)
-
-%.mli %.ml: %.mly
-       ocamlyacc $<
-
-%.ml: %.mll
-       ocamllex $<
-
-libgtk2.a: gtktree2.o gtktreeitem2.o ml_gtk2.o
-       ar rc $@ gtktree2.o gtktreeitem2.o ml_gtk2.o
-       $(RANLIB) $@
-
-gtk2.cma: gtkTree2.cmo gTree2.cmo gToolbar2.cmo libgtk2.a
-       $(LINKER) -a -o $@ gtkTree2.cmo gTree2.cmo gToolbar2.cmo -cclib -lgtk2
-
-gtk2.cmxa: gtkTree2.cmx gTree2.cmx gToolbar2.cmx libgtk2.a
-       $(LINKOPT) -a -o $@ gtkTree2.cmx gTree2.cmx gToolbar2.cmx -cclib -lgtk2
-
-clean:
-       rm -f *.cm* *.o *.a radtest *_parser.ml *_parser.mli *_lexer.ml
-
-.depend: $(MLSRC) load_parser.ml load_lexer.ml
-       ocamldep $(MLSRC) load_parser.ml* load_lexer.ml* > .depend
-
-include .depend

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/README b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/README
deleted file mode 100644 (file)
index aedd81f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/README
+++ /dev/null
@@ -1,24 +0,0 @@
-       Lablgtk RADTEST
-
-Author: Hubert Fauque, hubert.fauque@inria.fr
-
-This is an experimental R.A.D. for Lablgtk.
-You can compile it simply by make.
-
-
-When radtest starts a new empty project is open;
-you can add new windows to this project by clicking on
-the window icon at the top of the icons window;
-
-by clicking on an item in the tree window with the third button
-you can add or remove widgets;
-you can also drag widgets from the icons window and drop them
-on the tree;
-
-when a widget is selected (click on it in the tree) you can
-move it up or down (if its parent is a box) with CTRL-up_arrow
-or CTRL-down_arrow; with up_arrow and down_arrow you select
-the widget which is above or below the currently selected widget;
-
-Save the project by Project->Save, and load an already existing
-project by Project->Open.

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/aspectframe.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/aspectframe.xpm
deleted file mode 100644 (file)
index 66b9ca1..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/aspectframe.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *aspectframe_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++   + +++++++++++",
-"+...X X X   X......O+",
-"+.OOX   X X XOOOOO.O+",
-"+.OXX X X   XXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXX.XXXXXXX.O+",
-"+.OXXXXXX...XXXXXX.O+",
-"+.OXXXXX.X.X.XXXXX.O+",
-"+.OXXXXXXX.XXXXXXX.O+",
-"+.OXX.XXXX.XXXX.XX.O+",
-"+.OX.XXXXX.XXXXX.X.O+",
-"+.O................O+",
-"+.OX.XXXXX.XXXXX.X.O+",
-"+.OXX.XXXX.XXXX.XX.O+",
-"+.OXXXXX.X.X.XXXXX.O+",
-"+.OXXXXXX...XXXXXX.O+",
-"+.OXXXXXXX.XXXXXXX.O+",
-"+..................O+",
-"+OOOOOOOOOOOOOOOOOOO+",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/button.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/button.xpm
deleted file mode 100644 (file)
index 62ebc30..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/button.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *button_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+OOOOOOOOOOOOOOOOOO +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXX   XXX XXX XX. +",
-"+OXX XXX XX XX XXX. +",
-"+OXX XXX XX X XXXX. +",
-"+OXX XXX XX  XXXXX. +",
-"+OXX XXX XX X XXXX. +",
-"+OXX XXX XX XX XXX. +",
-"+OXXX   XXX XXX XX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+O................. +",
-"+                   +",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/checkbutton.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/checkbutton.xpm
deleted file mode 100644 (file)
index 314ba97..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/checkbutton.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *checkbutton_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++OOOOOOOOOOO+++++",
-"+++++OXXXXXXXXX +++++",
-"+++++OXXXXXXXX. +++++",
-"+++++OXXXXXXXX. +++++",
-"+++++OXXXXXXXX. +++++",
-"+++++OXXXXXXXX. +++++",
-"+++++OXXXXXXXX. +++++",
-"+++++OXXXXXXXX. +++++",
-"+++++OXXXXXXXX. +++++",
-"+++++OX........ +++++",
-"+++++O          +++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/clist.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/clist.xpm
deleted file mode 100644 (file)
index 2dd61e7..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/clist.xpm
+++ /dev/null
@@ -1,30 +0,0 @@
-/* XPM */
-static char *clist_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 3 1",
-"  c Gray0",
-". c Gray87",
-"X c Gray100",
-/* pixels */
-"                     ",
-" ...... ...... ..... ",
-" ...... ...... ..... ",
-" ...... ...... ..... ",
-"                     ",
-" XXXXXX XXXXXX XXXXX ",
-" XXXXXX XXXXXX XXXXX ",
-" XXXXXX XXXXXX XXXXX ",
-"                     ",
-" XXXXXX XXXXXX XXXXX ",
-" XXXXXX XXXXXX XXXXX ",
-" XXXXXX XXXXXX XXXXX ",
-"                     ",
-" XXXXXX XXXXXX XXXXX ",
-" XXXXXX XXXXXX XXXXX ",
-" XXXXXX XXXXXX XXXXX ",
-"                     ",
-" XXXXXX XXXXXX XXXXX ",
-" XXXXXX XXXXXX XXXXX ",
-" XXXXXX XXXXXX XXXXX ",
-"                     "
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/colorselection.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/colorselection.xpm
deleted file mode 100644 (file)
index 0bb0914..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/colorselection.xpm
+++ /dev/null
@@ -1,35 +0,0 @@
-/* XPM */
-static char *colorselection_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 8 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c Blue",
-"o c Green",
-"O c Red",
-"+ c #b3cece",
-"@ c Gray100",
-"# c None",
-/* pixels */
-"#####################",
-"#####################",
-"#####################",
-"#####################",
-"#####################",
-"##................###",
-"##.@@@@@@@@@@@@@@. ##",
-"##.@@@@@@@@@@@@@@. ##",
-"##.@@@@@@@@@@@@@@. ##",
-"##.@@OOOoooXXX@@@. ##",
-"##.@@OOOoooXXX@@@. ##",
-"##.@@OOOoooXXX@@@. ##",
-"##.@@OOOoooXXX@@@. ##",
-"##.@@@@@@@@@@@@@@. ##",
-"##.@@@@@@@@@@@@@@. ##",
-"##.@@@@@@@@@@@@@@. ##",
-"##................ ##",
-"###                ##",
-"#####################",
-"#####################",
-"#####################"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/combo.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/combo.xpm
deleted file mode 100644 (file)
index 3b4055b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/combo.xpm
+++ /dev/null
@@ -1,34 +0,0 @@
-/* XPM */
-static char *combo_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 7 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray87",
-"+ c Gray100",
-"@ c None",
-/* pixels */
-"@@@@@@@@@@@@@@@@@@@@@",
-"                     ",
-" +++++++++++++ OOOOO ",
-" +++++++++++++  OOO  ",
-" +++++++++++++   O   ",
-"                     ",
-" +++++++++++++ ++++++",
-" +++++++++++++ XXXXX ",
-" +.........+++ XX XX ",
-" +++++++++++++ X   X ",
-" +++++++++++++ XXXXX ",
-" +...........+       ",
-" +++++++++++++ +++++ ",
-" +++++++++++++ +XXXX ",
-" +..........++ ..... ",
-" +++++++++++++ +++++ ",
-" +++++++++++++ XXXXX ",
-" +...........+ X   X ",
-" +++++++++++++ XX XX ",
-" +++++++++++++ XXXXX ",
-"                     "
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/common.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/common.mli
deleted file mode 100644 (file)
index 7050f9f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/common.mli
+++ /dev/null
@@ -1,27 +0,0 @@
-(* $Id$ *)
-
-type range =
-  |  String
-  | Int
-  | Float of float * float
-  | Enum of string list
-  | Enum_string of string list
-  | Adjust
-  | CList_titles
-  | File
-
-class type prop =
-  object
-    method name : string       (* name of the property *)
-    method range : range       (* range of its values *)
-    method get : string                (* current value *)
-    method set : string -> unit        (* change value *)
-    method modified : bool     (* value differs from default *)
-    method code : string       (* encoded value for the ml code *)
-    method save_code : string   (* encoded value for saving *)
-  end
-
-class type tiwidget_base = object
-  method name : string
-  method proplist : (string * prop) list
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/entry.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/entry.xpm
deleted file mode 100644 (file)
index cb90041..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/entry.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *entry_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"....................O",
-".                  XO",
-". OOOOOOOOOOOOOOOOOXO",
-". OOOOOOOOOOOOOOO OXO",
-". OOOOOOOO OOOOOO OXO",
-". OOOOOOOO OOOOOO OXO",
-". OOO   OO X  OOO OXO",
-". OO XOX O  O. OO OXO",
-". OOOOOO O OOO OO OXO",
-". OOO    O OOO OO OXO",
-". OO XOO O OOO OO OXO",
-". OO XOO O OO. OO OXO",
-". OOO    O    OOO OXO",
-". OOOOOOOOOOOOOOO OXO",
-". OOOOOOOOOOOOOOOOOXO",
-".XXXXXXXXXXXXXXXXXXXO",
-"OOOOOOOOOOOOOOOOOOOOO",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/eventbox.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/eventbox.xpm
deleted file mode 100644 (file)
index 73da445..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/eventbox.xpm
+++ /dev/null
@@ -1,34 +0,0 @@
-/* XPM */
-static char *eventbox_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 7 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c Blue",
-"o c #d6d6d6",
-"O c #b3cece",
-"+ c Gray100",
-"@ c None",
-/* pixels */
-"@@@@@@@@@@X+@@@@@@@@@",
-"@@@@@@@@@XX+@@@@@@@@@",
-"@@@@@@@@XX+@@@@@@@@@@",
-"@@@@@@@XX+@@@@@@@@@@@",
-"@@@@@@@@XX+@@@@@@@@@@",
-"@@@@@@@@@XX+@@@@@@@@@",
-"@@@@@@@@@@XX+@@@@@@@@",
-"@@@++++++XX++++++ @@@",
-"@@@+ooooXX+ooooo. @@@",
-"@@@+oooXX+oooooo. @@@",
-"@@@+ooooXX+ooooo. @@@",
-"@@@+oooooXX+oooo. @@@",
-"@@@+ooooooXX+ooo. @@@",
-"@@@+oooooooooooo. @@@",
-"@@@+oooooooooooo. @@@",
-"@@@+oooooooooooo. @@@",
-"@@@+............. @@@",
-"@@@               @@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/fixed.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/fixed.xpm
deleted file mode 100644 (file)
index 2e04815..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/fixed.xpm
+++ /dev/null
@@ -1,31 +0,0 @@
-/* XPM */
-static char *fixed_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 4 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c Gray100",
-/* pixels */
-"oooooooooooooooooooo ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXooooo XXXXXXXXXXX. ",
-"oXoXXX. XXXXXXXXXXX. ",
-"oXoXXX. XXXXooooo X. ",
-"oXo.... XXXXoXXX. X. ",
-"oX      XXXXoXXX. X. ",
-"oXXXXXXXXXXXo.... X. ",
-"oXXXXXXXXXXX      X. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXooooo XXXXXXXX. ",
-"oXXXXoXXX. XXXXXXXX. ",
-"oXXXXoXXX. XXXXXXXX. ",
-"oXXXXo.... XXXXXXXX. ",
-"oXXXX      XXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"o................... ",
-"                     "
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/frame.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/frame.xpm
deleted file mode 100644 (file)
index c8c8b57..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/frame.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *frame_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++   + +++++++++++",
-"+...X X X   X......O+",
-"+.OOX   X X XOOOOO.O+",
-"+.OXX X X   XXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+..................O+",
-"+OOOOOOOOOOOOOOOOOOO+",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gToolbar2.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gToolbar2.ml
deleted file mode 100644 (file)
index c2ad0a8..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gToolbar2.ml
+++ /dev/null
@@ -1,65 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkButton
-open GObj
-open GContainer
-open GButton
-
-module Toolbar2 = struct
-  external set_text : [>`toolbar] obj -> string -> int -> unit =
-    "ml_gtk_toolbar2_set_text"
-  external set_icon : [>`toolbar] obj -> [>`widget] obj -> int -> unit =
-    "ml_gtk_toolbar2_set_icon"
-end
-
-class toolbar2 obj = object
-  inherit container_full (obj : Gtk.toolbar obj)
-  method insert_widget ?tooltip ?tooltip_private ?pos w =
-    Toolbar.insert_widget obj (as_widget w) ?tooltip ?tooltip_private ?pos
-
-  method insert_button ?text ?tooltip ?tooltip_private ?icon
-      ?pos ?callback () =
-    let icon = may_map icon ~f:as_widget in
-    new button
-      (Toolbar.insert_button obj ~kind:`BUTTON ?icon ?text
-        ?tooltip ?tooltip_private ?pos ?callback ())
-
-  method insert_toggle_button ?text ?tooltip ?tooltip_private ?icon
-      ?pos ?callback () =
-    let icon = may_map icon ~f:as_widget in
-    new toggle_button
-      (ToggleButton.cast
-        (Toolbar.insert_button obj ~kind:`TOGGLEBUTTON ?icon ?text
-           ?tooltip ?tooltip_private ?pos ?callback ()))
-
-  method insert_radio_button ?text ?tooltip ?tooltip_private ?icon
-      ?pos ?callback () =
-    let icon = may_map icon ~f:as_widget in
-    new radio_button
-      (RadioButton.cast
-        (Toolbar.insert_button obj ~kind:`RADIOBUTTON ?icon ?text
-           ?tooltip ?tooltip_private ?pos ?callback ()))
-
-  method insert_space = Toolbar.insert_space obj
-
-  method set_orientation = Toolbar.set_orientation obj
-  method set_style = Toolbar.set_style obj
-  method set_space_size = Toolbar.set_space_size obj
-  method set_space_style = Toolbar.set_space_style obj
-  method set_tooltips = Toolbar.set_tooltips obj
-  method set_button_relief = Toolbar.set_button_relief obj
-  method button_relief = Toolbar.get_button_relief obj
-  method set_text = Toolbar2.set_text obj
-  method set_icon (icon : widget) = Toolbar2.set_icon obj icon#as_widget
-end
-
-let toolbar2 ?(orientation=`HORIZONTAL) ?style
-    ?space_size ?space_style ?tooltips ?button_relief
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Toolbar.create orientation ?style () in
-  Toolbar.set w ?space_size ?space_style ?tooltips ?button_relief;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new toolbar2 w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gTree2.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gTree2.ml
deleted file mode 100644 (file)
index 62c38ac..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gTree2.ml
+++ /dev/null
@@ -1,78 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkTree2
-open GObj
-open GContainer
-
-class tree_item_signals obj = object
-  inherit item_signals obj
-  method expand = GtkSignal.connect obj ~sgn:TreeItem.Signals.expand ~after
-  method collapse = GtkSignal.connect obj ~sgn:TreeItem.Signals.collapse ~after
-end
-
-class tree_item obj = object
-  inherit container obj
-  method event = new GObj.event_ops obj
-  method as_item : Gtk.tree_item obj = obj
-  method connect = new tree_item_signals obj
-  method set_subtree (w : tree) = TreeItem.set_subtree obj w#as_tree
-  method remove_subtree () = TreeItem.remove_subtree obj
-  method expand () = TreeItem.expand obj
-  method collapse () = TreeItem.collapse obj
-  method subtree =
-    try Some(new tree (TreeItem.subtree obj)) with Gpointer.Null -> None
-end
-
-and tree_signals obj = object
-  inherit container_signals obj
-  method selection_changed =
-    GtkSignal.connect obj ~sgn:Tree.Signals.selection_changed ~after
-  method select_child ~callback =
-    GtkSignal.connect obj ~sgn:Tree.Signals.select_child ~after
-      ~callback:(fun w -> callback (new tree_item (TreeItem.cast w))) 
-  method unselect_child ~callback =
-    GtkSignal.connect obj ~sgn:Tree.Signals.unselect_child ~after
-      ~callback:(fun w -> callback (new tree_item (TreeItem.cast w))) 
-end
-
-and tree obj = object (self)
-  inherit [tree_item] item_container obj
-  method event = new GObj.event_ops obj
-  method as_tree = Tree.coerce obj
-  method insert w ~pos = Tree.insert obj w#as_item ~pos
-  method connect = new tree_signals obj
-  method clear_items = Tree.clear_items obj
-  method select_item = Tree.select_item obj
-  method unselect_item = Tree.unselect_item obj
-  method child_position (w : tree_item) = Tree.child_position obj w#as_item
-  method remove_items items =
-    Tree.remove_items obj
-      (List.map ~f:(fun (t : tree_item) -> t#as_item) items)
-(*  method set_selection_mode = Tree.set_selection_mode obj
-  method set_view_mode = Tree.set_view_mode obj *)
-  method set_view_lines = Tree.set_view_lines obj
-  method selection =
-    List.map ~f:(fun w -> self#wrap (Widget.coerce w)) (Tree.selection obj)
-  method item_up ~pos =
-    Tree.item_up obj pos
-  method private wrap w =
-    new tree_item (TreeItem.cast w)
-end
-
-let tree_item ?label ?border_width ?width ?height ?packing ?show () =
-  let w = TreeItem.create ?label () in
-  Container.set w ?border_width ?width ?height;
-  let self = new tree_item w in
-  may packing ~f:(fun f -> (f self : unit));
-  if show <> Some false then self#misc#show ();
-  self
-
-let tree ?selection_mode ?view_mode ?view_lines
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Tree.create () in
-  Tree.set w ?selection_mode ?view_mode ?view_lines;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new tree w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gTree2.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gTree2.mli
deleted file mode 100644 (file)
index c288e15..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gTree2.mli
+++ /dev/null
@@ -1,73 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GContainer
-
-class tree_item_signals : 'a obj ->
-  object
-    inherit item_signals
-    constraint 'a = [>`treeitem|`container|`item|`widget]
-    val obj : 'a obj
-    method collapse : callback:(unit -> unit) -> GtkSignal.id
-    method expand : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class tree_item : Gtk.tree_item obj ->
-  object
-    inherit GContainer.container
-    val obj : Gtk.tree_item obj
-    method event : event_ops
-    method as_item : Gtk.tree_item obj
-    method collapse : unit -> unit
-    method connect : tree_item_signals
-    method expand : unit -> unit
-    method remove_subtree : unit -> unit
-    method set_subtree : tree -> unit
-    method subtree : tree option
-  end
-
-and tree_signals : Gtk.tree obj ->
-  object
-    inherit container_signals
-    val obj : Gtk.tree obj
-    method select_child : callback:(tree_item -> unit) -> GtkSignal.id
-    method selection_changed : callback:(unit -> unit) -> GtkSignal.id
-    method unselect_child : callback:(tree_item -> unit) -> GtkSignal.id
-  end
-
-and tree : Gtk.tree obj ->
-  object
-    inherit [tree_item] item_container
-    val obj : Gtk.tree obj
-    method event : event_ops
-    method as_tree : Gtk.tree obj
-    method child_position : tree_item -> int
-    method clear_items : start:int -> stop:int -> unit
-    method connect : tree_signals
-    method insert : tree_item -> pos:int -> unit
-    method item_up : pos:int -> unit
-    method remove_items : tree_item list -> unit
-    method select_item : pos:int -> unit
-    method selection : tree_item list
-(*    method set_selection_mode : Tags.selection_mode -> unit *)
-    method set_view_lines : bool -> unit
-(*    method set_view_mode : [`LINE|`ITEM] -> unit *)
-    method unselect_item : pos:int -> unit
-    method private wrap : Gtk.widget obj -> tree_item
-  end
-
-val tree_item :
-  ?label:string ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(tree_item -> unit) -> ?show:bool -> unit -> tree_item
-
-val tree :
-  ?selection_mode:Tags.selection_mode ->
-  ?view_mode:[`LINE|`ITEM] ->
-  ?view_lines:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int -> ?packing:(GObj.widget -> unit) -> ?show:bool -> unit -> tree

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gtkTree2.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gtkTree2.ml
deleted file mode 100644 (file)
index 46d1e02..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gtkTree2.ml
+++ /dev/null
@@ -1,82 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module TreeItem = struct
-  let cast w : tree_item obj =
-    if Object.is_a w "GtkTreeItem" then Obj.magic w
-    else invalid_arg "Gtk.TreeItem.cast"
-  external create : unit -> tree_item obj = "ml_gtk_tree_item2_new"
-  external create_with_label : string -> tree_item obj
-      = "ml_gtk_tree_item2_new_with_label"
-  let create ?label () =
-    match label with None -> create ()
-    | Some label -> create_with_label label
-  external set_subtree : [>`treeitem] obj -> [>`widget] obj -> unit
-      = "ml_gtk_tree_item2_set_subtree"
-  external remove_subtree : [>`treeitem] obj -> unit
-      = "ml_gtk_tree_item2_remove_subtree"
-  external expand : [>`treeitem] obj -> unit
-      = "ml_gtk_tree_item2_expand"
-  external collapse : [>`treeitem] obj -> unit
-      = "ml_gtk_tree_item2_collapse"
-  external subtree : [>`treeitem] obj -> tree obj
-      = "ml_GTK_TREE_ITEM2_SUBTREE"
-  let subtree t = try subtree t with Gpointer.Null -> raise Not_found
-  module Signals = struct
-    open GtkSignal
-    let expand : ([>`treeitem],_) t =
-      { name = "expand"; marshaller = marshal_unit }
-    let collapse : ([>`treeitem],_) t =
-      { name = "collapse"; marshaller = marshal_unit }
-  end
-end
-
-module Tree = struct
-  let cast w : tree obj =
-    if Object.is_a w "GtkTree" then Obj.magic w
-    else invalid_arg "Gtk.Tree.cast"
-  external coerce : [>`tree] obj -> tree obj = "%identity"
-  external create : unit -> tree obj = "ml_gtk_tree2_new"
-  external insert : [>`tree] obj -> [>`treeitem] obj -> pos:int -> unit
-      = "ml_gtk_tree2_insert"
-  external remove_items : [>`tree] obj -> [>`treeitem] obj list -> unit
-      = "ml_gtk_tree2_remove_items"
-  external clear_items : [>`tree] obj -> start:int -> stop:int -> unit
-      = "ml_gtk_tree2_clear_items"
-  external select_item : [>`tree] obj -> pos:int -> unit
-      = "ml_gtk_tree2_select_item"
-  external unselect_item : [>`tree] obj -> pos:int -> unit
-      = "ml_gtk_tree2_unselect_item"
-  external child_position : [>`tree] obj -> [>`treeitem] obj -> int
-      = "ml_gtk_tree2_child_position"
-(*  external set_selection_mode : [>`tree] obj -> selection_mode -> unit
-      = "ml_gtk_tree2_set_selection_mode"
-  external set_view_mode : [>`tree] obj -> [`LINE|`ITEM] -> unit
-      = "ml_gtk_tree2_set_view_mode"
-*)
-  external set_view_lines : [>`tree] obj -> bool -> unit
-      = "ml_gtk_tree2_set_view_lines"
-  external selection : [>`tree] obj -> tree_item obj list =
-    "ml_gtk_tree2_selection"
-  external item_up : [>`tree] obj -> int -> unit =
-    "ml_gtk_tree2_item_up"
-
-  let set ?selection_mode ?view_mode ?view_lines w =
-    let may_set f = may ~f:(f w) in
-(*    may_set set_selection_mode selection_mode;
-    may_set set_view_mode view_mode; *)
-    may_set set_view_lines view_lines
-  module Signals = struct
-    open GtkSignal
-    let selection_changed : ([>`tree],_) t =
-      { name = "selection_changed"; marshaller = marshal_unit }
-    let select_child : ([>`tree],_) t =
-      { name = "select_child"; marshaller = Widget.Signals.marshal }
-    let unselect_child : ([>`tree],_) t =
-      { name = "unselect_child"; marshaller = Widget.Signals.marshal }
-  end
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gtktree2.c b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gtktree2.c
deleted file mode 100644 (file)
index db37a1f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gtktree2.c
+++ /dev/null
@@ -1,1385 +0,0 @@
-/* GTK - The GIMP Toolkit
- * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Library General Public License for more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with this library; if not, write to the
- * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
- * Boston, MA 02111-1307, USA.
- */
-
-/*
- * Modified by the GTK+ Team and others 1997-1999.  See the AUTHORS
- * file for a list of people on the GTK+ Team.  See the ChangeLog
- * files for a list of changes.  These files are distributed with
- * GTK+ at ftp://ftp.gtk.org/pub/gtk/. 
- */
-
-#include "gtktree2.h"
-#include "gtktreeitem2.h"
-
-#include <gtk/gtkmain.h>
-#include <gtk/gtksignal.h>
-#include <gtk/gtklist.h>
-
-enum {
-  SELECTION_CHANGED,
-  SELECT_CHILD,
-  UNSELECT_CHILD,
-  LAST_SIGNAL
-};
-
-static void gtk_tree2_class_init      (GtkTree2Class   *klass);
-static void gtk_tree2_init            (GtkTree2        *tree);
-static void gtk_tree2_destroy         (GtkObject      *object);
-static void gtk_tree2_map             (GtkWidget      *widget);
-static void gtk_tree2_unmap           (GtkWidget      *widget);
-static void gtk_tree2_realize         (GtkWidget      *widget);
-static void gtk_tree2_draw            (GtkWidget      *widget,
-                                     GdkRectangle   *area);
-static gint gtk_tree2_expose          (GtkWidget      *widget,
-                                     GdkEventExpose *event);
-static gint gtk_tree2_motion_notify   (GtkWidget      *widget,
-                                     GdkEventMotion *event);
-static gint gtk_tree2_button_press    (GtkWidget      *widget,
-                                     GdkEventButton *event);
-static gint gtk_tree2_button_release  (GtkWidget      *widget,
-                                     GdkEventButton *event);
-static void gtk_tree2_size_request    (GtkWidget      *widget,
-                                     GtkRequisition *requisition);
-static void gtk_tree2_size_allocate   (GtkWidget      *widget,
-                                     GtkAllocation  *allocation);
-static void gtk_tree2_add             (GtkContainer   *container,
-                                     GtkWidget      *widget);
-static void gtk_tree2_forall          (GtkContainer   *container,
-                                     gboolean        include_internals,
-                                     GtkCallback     callback,
-                                     gpointer        callback_data);
-
-static void gtk_real_tree2_select_child   (GtkTree2       *tree,
-                                         GtkWidget     *child);
-static void gtk_real_tree2_unselect_child (GtkTree2       *tree,
-                                         GtkWidget     *child);
-
-static GtkType gtk_tree2_child_type  (GtkContainer   *container);
-
-static GtkContainerClass *parent_class = NULL;
-static guint tree_signals[LAST_SIGNAL] = { 0 };
-
-GtkType
-gtk_tree2_get_type (void)
-{
-  static GtkType tree_type = 0;
-  
-  if (!tree_type)
-    {
-      static const GtkTypeInfo tree_info =
-      {
-       "GtkTree2",
-       sizeof (GtkTree2),
-       sizeof (GtkTree2Class),
-       (GtkClassInitFunc) gtk_tree2_class_init,
-       (GtkObjectInitFunc) gtk_tree2_init,
-       /* reserved_1 */ NULL,
-        /* reserved_2 */ NULL,
-        (GtkClassInitFunc) NULL,
-      };
-      
-      tree_type = gtk_type_unique (gtk_container_get_type (), &tree_info);
-    }
-  
-  return tree_type;
-}
-
-static void
-gtk_tree2_class_init (GtkTree2Class *class)
-{
-  GtkObjectClass *object_class;
-  GtkWidgetClass *widget_class;
-  GtkContainerClass *container_class;
-  
-  object_class = (GtkObjectClass*) class;
-  widget_class = (GtkWidgetClass*) class;
-  container_class = (GtkContainerClass*) class;
-  
-  parent_class = gtk_type_class (gtk_container_get_type ());
-  
-  tree_signals[SELECTION_CHANGED] =
-    gtk_signal_new ("selection_changed",
-                   GTK_RUN_FIRST,
-                   object_class->type,
-                   GTK_SIGNAL_OFFSET (GtkTree2Class, selection_changed),
-                   gtk_marshal_NONE__NONE,
-                   GTK_TYPE_NONE, 0);
-  tree_signals[SELECT_CHILD] =
-    gtk_signal_new ("select_child",
-                   GTK_RUN_FIRST,
-                   object_class->type,
-                   GTK_SIGNAL_OFFSET (GtkTree2Class, select_child),
-                   gtk_marshal_NONE__POINTER,
-                   GTK_TYPE_NONE, 1,
-                   GTK_TYPE_WIDGET);
-  tree_signals[UNSELECT_CHILD] =
-    gtk_signal_new ("unselect_child",
-                   GTK_RUN_FIRST,
-                   object_class->type,
-                   GTK_SIGNAL_OFFSET (GtkTree2Class, unselect_child),
-                   gtk_marshal_NONE__POINTER,
-                   GTK_TYPE_NONE, 1,
-                   GTK_TYPE_WIDGET);
-  
-  gtk_object_class_add_signals (object_class, tree_signals, LAST_SIGNAL);
-  
-  object_class->destroy = gtk_tree2_destroy;
-  
-  widget_class->map = gtk_tree2_map;
-  widget_class->unmap = gtk_tree2_unmap;
-  widget_class->realize = gtk_tree2_realize;
-  widget_class->draw = gtk_tree2_draw;
-  widget_class->expose_event = gtk_tree2_expose;
-  widget_class->motion_notify_event = gtk_tree2_motion_notify;
-  widget_class->button_press_event = gtk_tree2_button_press;
-  widget_class->button_release_event = gtk_tree2_button_release;
-  widget_class->size_request = gtk_tree2_size_request;
-  widget_class->size_allocate = gtk_tree2_size_allocate;
-  
-  container_class->add = gtk_tree2_add;
-  container_class->remove = 
-    (void (*)(GtkContainer *, GtkWidget *)) gtk_tree2_remove_item;
-  container_class->forall = gtk_tree2_forall;
-  container_class->child_type = gtk_tree2_child_type;
-  
-  class->selection_changed = NULL;
-  class->select_child = gtk_real_tree2_select_child;
-  class->unselect_child = gtk_real_tree2_unselect_child;
-}
-
-static GtkType
-gtk_tree2_child_type (GtkContainer     *container)
-{
-  return GTK_TYPE_TREE_ITEM2;
-}
-
-static void
-gtk_tree2_init (GtkTree2 *tree)
-{
-  tree->children = NULL;
-  tree->root_tree = NULL;
-  tree->selection = NULL;
-  tree->tree_owner = NULL;
-  tree->selection_mode = GTK_SELECTION_SINGLE;
-  tree->indent_value = 9;
-  tree->current_indent = 0;
-  tree->level = 0;
-  tree->view_mode = GTK_TREE2_VIEW_LINE;
-  tree->view_line = 1;
-}
-
-GtkWidget*
-gtk_tree2_new (void)
-{
-  return GTK_WIDGET (gtk_type_new (gtk_tree2_get_type ()));
-}
-
-void
-gtk_tree2_append (GtkTree2   *tree,
-                GtkWidget *tree_item)
-{
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-  gtk_tree2_insert (tree, tree_item, -1);
-}
-
-void
-gtk_tree2_prepend (GtkTree2   *tree,
-                 GtkWidget *tree_item)
-{
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-  gtk_tree2_insert (tree, tree_item, 0);
-}
-
-void
-gtk_tree2_insert (GtkTree2   *tree,
-                GtkWidget *tree_item,
-                gint       position)
-{
-  gint nchildren;
-  
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-  nchildren = g_list_length (tree->children);
-  
-  if ((position < 0) || (position > nchildren))
-    position = nchildren;
-  
-  if (position == nchildren)
-    tree->children = g_list_append (tree->children, tree_item);
-  else
-    tree->children = g_list_insert (tree->children, tree_item, position);
-  
-  gtk_widget_set_parent (tree_item, GTK_WIDGET (tree));
-  
-  if (GTK_WIDGET_REALIZED (tree_item->parent))
-    gtk_widget_realize (tree_item);
-
-  if (GTK_WIDGET_VISIBLE (tree_item->parent) && GTK_WIDGET_VISIBLE (tree_item))
-    {
-      if (GTK_WIDGET_MAPPED (tree_item->parent))
-       gtk_widget_map (tree_item);
-
-      gtk_widget_queue_resize (tree_item);
-    }
-}
-
-/* moves the pos child up in the tree */
-void
-gtk_tree2_item_up (GtkTree2   *tree,
-                gint       position)
-{
-  gint nchildren, i;
-  GList *children, *tmp;
-  
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-  children = (tree->children);
-  nchildren = g_list_length (tree->children);
-  
-  if ((position < 1) || (position >= nchildren))
-    return;
-  
-  for (i=1; i < position; i++)
-    children = (children->next);
-
-  tmp = children->next;
-  if (position == 1)
-    {
-      tree->children = children->next;
-      children->next->prev = NULL;
-    }
-  else
-    {
-      children->prev->next = children->next;
-      children->next->prev = children->prev;
-    }
-  children->next = tmp->next;
-  children->prev = tmp;
-  if (tmp->next)
-      tmp->next->prev = children;
-  tmp->next = children;
-  
-  if (GTK_WIDGET_VISIBLE (tree))
-    {
-/*      if (GTK_WIDGET_VISIBLE (GTK_WIDGET(children->data)))
-       gtk_widget_queue_resize (GTK_WIDGET(children->data));
-      if (GTK_WIDGET_VISIBLE (GTK_WIDGET(tmp->data)))
-       gtk_widget_queue_resize (GTK_WIDGET(tmp->data));
-*/
-      gtk_widget_queue_resize (GTK_WIDGET(tree));
-    }
-}
-
-static void
-gtk_tree2_add (GtkContainer *container,
-             GtkWidget    *child)
-{
-  GtkTree2 *tree;
-  
-  g_return_if_fail (container != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (container));
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (child));
-  
-  tree = GTK_TREE2 (container);
-  
-  tree->children = g_list_append (tree->children, child);
-  
-  gtk_widget_set_parent (child, GTK_WIDGET (container));
-  
-  if (GTK_WIDGET_REALIZED (child->parent))
-    gtk_widget_realize (child);
-
-  if (GTK_WIDGET_VISIBLE (child->parent) && GTK_WIDGET_VISIBLE (child))
-    {
-      if (GTK_WIDGET_MAPPED (child->parent))
-       gtk_widget_map (child);
-
-      gtk_widget_queue_resize (child);
-    }
-  
-  if (!tree->selection && (tree->selection_mode == GTK_SELECTION_BROWSE))
-    gtk_tree2_select_child (tree, child);
-}
-
-static gint
-gtk_tree2_button_press (GtkWidget      *widget,
-                      GdkEventButton *event)
-{
-  GtkTree2 *tree;
-  GtkWidget *item;
-  
-  g_return_val_if_fail (widget != NULL, FALSE);
-  g_return_val_if_fail (GTK_IS_TREE2 (widget), FALSE);
-  g_return_val_if_fail (event != NULL, FALSE);
-  
-  tree = GTK_TREE2 (widget);
-  item = gtk_get_event_widget ((GdkEvent*) event);
-  
-  while (item && !GTK_IS_TREE_ITEM2 (item))
-    item = item->parent;
-  
-  if (!item || (item->parent != widget))
-    return FALSE;
-  
-  switch(event->button) 
-    {
-    case 1:
-      gtk_tree2_select_child (tree, item);
-      break;
-    case 2:
-      if(GTK_TREE_ITEM2(item)->subtree) gtk_tree_item2_expand(GTK_TREE_ITEM2(item));
-      break;
-    case 3:
-      if(GTK_TREE_ITEM2(item)->subtree) gtk_tree_item2_collapse(GTK_TREE_ITEM2(item));
-      break;
-    }
-  
-  return TRUE;
-}
-
-static gint
-gtk_tree2_button_release (GtkWidget      *widget,
-                        GdkEventButton *event)
-{
-  GtkTree2 *tree;
-  GtkWidget *item;
-  
-  g_return_val_if_fail (widget != NULL, FALSE);
-  g_return_val_if_fail (GTK_IS_TREE2 (widget), FALSE);
-  g_return_val_if_fail (event != NULL, FALSE);
-  
-  tree = GTK_TREE2 (widget);
-  item = gtk_get_event_widget ((GdkEvent*) event);
-  
-  return TRUE;
-}
-
-gint
-gtk_tree2_child_position (GtkTree2   *tree,
-                        GtkWidget *child)
-{
-  GList *children;
-  gint pos;
-  
-  
-  g_return_val_if_fail (tree != NULL, -1);
-  g_return_val_if_fail (GTK_IS_TREE2 (tree), -1);
-  g_return_val_if_fail (child != NULL, -1);
-  
-  pos = 0;
-  children = tree->children;
-  
-  while (children)
-    {
-      if (child == GTK_WIDGET (children->data)) 
-       return pos;
-      
-      pos += 1;
-      children = children->next;
-    }
-  
-  
-  return -1;
-}
-
-void
-gtk_tree2_clear_items (GtkTree2 *tree,
-                     gint     start,
-                     gint     end)
-{
-  GtkWidget *widget;
-  GList *clear_list;
-  GList *tmp_list;
-  guint nchildren;
-  guint index;
-  
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-  nchildren = g_list_length (tree->children);
-  
-  if (nchildren > 0)
-    {
-      if ((end < 0) || (end > nchildren))
-       end = nchildren;
-      
-      if (start >= end)
-       return;
-      
-      tmp_list = g_list_nth (tree->children, start);
-      clear_list = NULL;
-      index = start;
-      while (tmp_list && index <= end)
-       {
-         widget = tmp_list->data;
-         tmp_list = tmp_list->next;
-         index++;
-         
-         clear_list = g_list_prepend (clear_list, widget);
-       }
-      
-      gtk_tree2_remove_items (tree, clear_list);
-    }
-}
-
-static void
-gtk_tree2_destroy (GtkObject *object)
-{
-  GtkTree2 *tree;
-  GtkWidget *child;
-  GList *children;
-  
-  g_return_if_fail (object != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (object));
-  
-  tree = GTK_TREE2 (object);
-  
-  children = tree->children;
-  while (children)
-    {
-      child = children->data;
-      children = children->next;
-      
-      gtk_widget_ref (child);
-      gtk_widget_unparent (child);
-      gtk_widget_destroy (child);
-      gtk_widget_unref (child);
-    }
-  
-  g_list_free (tree->children);
-  tree->children = NULL;
-  
-  if (tree->root_tree == tree)
-    {
-      GList *node;
-      for (node = tree->selection; node; node = node->next)
-       gtk_widget_unref ((GtkWidget *)node->data);
-      g_list_free (tree->selection);
-      tree->selection = NULL;
-    }
-  
-  if (GTK_OBJECT_CLASS (parent_class)->destroy)
-    (* GTK_OBJECT_CLASS (parent_class)->destroy) (object);
-}
-
-static void
-gtk_tree2_draw (GtkWidget    *widget,
-              GdkRectangle *area)
-{
-  GtkTree2 *tree;
-  GtkWidget *subtree;
-  GtkWidget *child;
-  GdkRectangle child_area;
-  GList *children;
-  
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (widget));
-  g_return_if_fail (area != NULL);
-  
-  if (GTK_WIDGET_DRAWABLE (widget))
-    {
-      tree = GTK_TREE2 (widget);
-      
-      children = tree->children;
-      while (children)
-       {
-         child = children->data;
-         children = children->next;
-         
-         if (gtk_widget_intersect (child, area, &child_area))
-           gtk_widget_draw (child, &child_area);
-         
-         if((subtree = GTK_TREE_ITEM2(child)->subtree) &&
-            GTK_WIDGET_VISIBLE(subtree) &&
-            gtk_widget_intersect (subtree, area, &child_area))
-           gtk_widget_draw (subtree, &child_area);
-       }
-    }
-  
-}
-
-static gint
-gtk_tree2_expose (GtkWidget      *widget,
-                GdkEventExpose *event)
-{
-  GtkTree2 *tree;
-  GtkWidget *child;
-  GdkEventExpose child_event;
-  GList *children;
-  
-  
-  g_return_val_if_fail (widget != NULL, FALSE);
-  g_return_val_if_fail (GTK_IS_TREE2 (widget), FALSE);
-  g_return_val_if_fail (event != NULL, FALSE);
-  
-  if (GTK_WIDGET_DRAWABLE (widget))
-    {
-      tree = GTK_TREE2 (widget);
-      
-      child_event = *event;
-      
-      children = tree->children;
-      while (children)
-       {
-         child = children->data;
-         children = children->next;
-         
-         if (GTK_WIDGET_NO_WINDOW (child) &&
-             gtk_widget_intersect (child, &event->area, &child_event.area))
-           gtk_widget_event (child, (GdkEvent*) &child_event);
-       }
-    }
-  
-  
-  return FALSE;
-}
-
-static void
-gtk_tree2_forall (GtkContainer *container,
-                gboolean      include_internals,
-                GtkCallback   callback,
-                gpointer      callback_data)
-{
-  GtkTree2 *tree;
-  GtkWidget *child;
-  GList *children;
-  
-  
-  g_return_if_fail (container != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (container));
-  g_return_if_fail (callback != NULL);
-  
-  tree = GTK_TREE2 (container);
-  children = tree->children;
-  
-  while (children)
-    {
-      child = children->data;
-      children = children->next;
-
-      (* callback) (child, callback_data);
-
-      if (include_internals && GTK_TREE_ITEM2(child)->subtree)
-      (* callback) (GTK_TREE_ITEM2(child)->subtree, callback_data);
-    }
-}
-
-static void
-gtk_tree2_map (GtkWidget *widget)
-{
-  GtkTree2 *tree;
-  GtkWidget *child;
-  GList *children;
-  
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (widget));
-  
-  GTK_WIDGET_SET_FLAGS (widget, GTK_MAPPED);
-  tree = GTK_TREE2 (widget);
-  
-  if(GTK_IS_TREE2(widget->parent)) 
-    {
-      /* set root tree for this tree */
-      tree->root_tree = GTK_TREE2(widget->parent)->root_tree;
-      
-      tree->level = GTK_TREE2(GTK_WIDGET(tree)->parent)->level+1;
-      tree->indent_value = GTK_TREE2(GTK_WIDGET(tree)->parent)->indent_value;
-      tree->current_indent = GTK_TREE2(GTK_WIDGET(tree)->parent)->current_indent + 
-       tree->indent_value;
-      tree->view_mode = GTK_TREE2(GTK_WIDGET(tree)->parent)->view_mode;
-      tree->view_line = GTK_TREE2(GTK_WIDGET(tree)->parent)->view_line;
-    } 
-  else
-    tree->root_tree = tree;
-  
-  children = tree->children;
-  while (children)
-    {
-      child = children->data;
-      children = children->next;
-      
-      if (GTK_WIDGET_VISIBLE (child) &&
-         !GTK_WIDGET_MAPPED (child))
-       gtk_widget_map (child);
-      
-      if (GTK_TREE_ITEM2 (child)->subtree)
-       {
-         child = GTK_WIDGET (GTK_TREE_ITEM2 (child)->subtree);
-         
-         if (GTK_WIDGET_VISIBLE (child) && !GTK_WIDGET_MAPPED (child))
-           gtk_widget_map (child);
-       }
-    }
-
-  gdk_window_show (widget->window);
-}
-
-static gint
-gtk_tree2_motion_notify (GtkWidget      *widget,
-                       GdkEventMotion *event)
-{
-  g_return_val_if_fail (widget != NULL, FALSE);
-  g_return_val_if_fail (GTK_IS_TREE2 (widget), FALSE);
-  g_return_val_if_fail (event != NULL, FALSE);
-  
-#ifdef TREE_DEBUG
-  g_message("gtk_tree2_motion_notify\n");
-#endif /* TREE_DEBUG */
-  
-  return FALSE;
-}
-
-static void
-gtk_tree2_realize (GtkWidget *widget)
-{
-  GdkWindowAttr attributes;
-  gint attributes_mask;
-  
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (widget));
-  
-  GTK_WIDGET_SET_FLAGS (widget, GTK_REALIZED);
-  
-  attributes.window_type = GDK_WINDOW_CHILD;
-  attributes.x = widget->allocation.x;
-  attributes.y = widget->allocation.y;
-  attributes.width = widget->allocation.width;
-  attributes.height = widget->allocation.height;
-  attributes.wclass = GDK_INPUT_OUTPUT;
-  attributes.visual = gtk_widget_get_visual (widget);
-  attributes.colormap = gtk_widget_get_colormap (widget);
-  attributes.event_mask = gtk_widget_get_events (widget) | GDK_EXPOSURE_MASK;
-  
-  attributes_mask = GDK_WA_X | GDK_WA_Y | GDK_WA_VISUAL | GDK_WA_COLORMAP;
-  
-  widget->window = gdk_window_new (gtk_widget_get_parent_window (widget), &attributes, attributes_mask);
-  gdk_window_set_user_data (widget->window, widget);
-  
-  widget->style = gtk_style_attach (widget->style, widget->window);
-  gdk_window_set_background (widget->window, 
-                            &widget->style->base[GTK_STATE_NORMAL]);
-}
-
-void
-gtk_tree2_remove_item (GtkTree2      *container,
-                     GtkWidget    *widget)
-{
-  GList *item_list;
-  
-  g_return_if_fail (container != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (container));
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (container == GTK_TREE2 (widget->parent));
-  
-  item_list = g_list_append (NULL, widget);
-  
-  gtk_tree2_remove_items (GTK_TREE2 (container), item_list);
-  
-  g_list_free (item_list);
-}
-
-/* used by gtk_tree2_remove_items to make the function independant of
-   order in list of items to remove.
-   Sort item bu depth in tree */
-static gint 
-gtk_tree2_sort_item_by_depth(GtkWidget* a, GtkWidget* b)
-{
-  if((GTK_TREE2(a->parent)->level) < (GTK_TREE2(b->parent)->level))
-    return 1;
-  if((GTK_TREE2(a->parent)->level) > (GTK_TREE2(b->parent)->level))
-    return -1;
-  
-  return 0;
-}
-
-void
-gtk_tree2_remove_items (GtkTree2 *tree,
-                      GList   *items)
-{
-  GtkWidget *widget;
-  GList *selected_widgets;
-  GList *tmp_list;
-  GList *sorted_list;
-  GtkTree2 *real_tree;
-  GtkTree2 *root_tree;
-  
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-#ifdef TREE_DEBUG
-  g_message("+ gtk_tree2_remove_items [ tree %#x items list %#x ]\n", (int)tree, (int)items);
-#endif /* TREE_DEBUG */
-  
-  /* We may not yet be mapped, so we actively have to find our
-   * root tree
-   */
-  if (tree->root_tree)
-    root_tree = tree->root_tree;
-  else
-    {
-      GtkWidget *tmp = GTK_WIDGET (tree);
-      while (tmp->parent && GTK_IS_TREE2 (tmp->parent))
-       tmp = tmp->parent;
-      
-      root_tree = GTK_TREE2 (tmp);
-    }
-  
-  tmp_list = items;
-  selected_widgets = NULL;
-  sorted_list = NULL;
-  widget = NULL;
-  
-#ifdef TREE_DEBUG
-  g_message("* sort list by depth\n");
-#endif /* TREE_DEBUG */
-  
-  while (tmp_list)
-    {
-      
-#ifdef TREE_DEBUG
-      g_message ("* item [%#x] depth [%d]\n", 
-                (int)tmp_list->data,
-                (int)GTK_TREE2(GTK_WIDGET(tmp_list->data)->parent)->level);
-#endif /* TREE_DEBUG */
-      
-      sorted_list = g_list_insert_sorted(sorted_list,
-                                        tmp_list->data,
-                                        (GCompareFunc)gtk_tree2_sort_item_by_depth);
-      tmp_list = g_list_next(tmp_list);
-    }
-  
-#ifdef TREE_DEBUG
-  /* print sorted list */
-  g_message("* sorted list result\n");
-  tmp_list = sorted_list;
-  while(tmp_list)
-    {
-      g_message("* item [%#x] depth [%d]\n", 
-               (int)tmp_list->data,
-               (int)GTK_TREE2(GTK_WIDGET(tmp_list->data)->parent)->level);
-      tmp_list = g_list_next(tmp_list);
-    }
-#endif /* TREE_DEBUG */
-  
-#ifdef TREE_DEBUG
-  g_message("* scan sorted list\n");
-#endif /* TREE_DEBUG */
-  
-  tmp_list = sorted_list;
-  while (tmp_list)
-    {
-      widget = tmp_list->data;
-      tmp_list = tmp_list->next;
-      
-#ifdef TREE_DEBUG
-      g_message("* item [%#x] subtree [%#x]\n", 
-               (int)widget, (int)GTK_TREE_ITEM2_SUBTREE(widget));
-#endif /* TREE_DEBUG */
-      
-      /* get real owner of this widget */
-      real_tree = GTK_TREE2(widget->parent);
-#ifdef TREE_DEBUG
-      g_message("* subtree having this widget [%#x]\n", (int)real_tree);
-#endif /* TREE_DEBUG */
-      
-      
-      if (widget->state == GTK_STATE_SELECTED)
-       {
-         selected_widgets = g_list_prepend (selected_widgets, widget);
-#ifdef TREE_DEBUG
-         g_message("* selected widget - adding it in selected list [%#x]\n",
-                   (int)selected_widgets);
-#endif /* TREE_DEBUG */
-       }
-      
-      /* remove this item from its real parent */
-#ifdef TREE_DEBUG
-      g_message("* remove widget from its owner tree\n");
-#endif /* TREE_DEBUG */
-      real_tree->children = g_list_remove (real_tree->children, widget);
-      
-      /* remove subtree associate at this item if it exist */      
-      if(GTK_TREE_ITEM2(widget)->subtree) 
-       {
-#ifdef TREE_DEBUG
-         g_message("* remove subtree associate at this item [%#x]\n",
-                   (int) GTK_TREE_ITEM2(widget)->subtree);
-#endif /* TREE_DEBUG */
-         if (GTK_WIDGET_MAPPED (GTK_TREE_ITEM2(widget)->subtree))
-           gtk_widget_unmap (GTK_TREE_ITEM2(widget)->subtree);
-         
-         gtk_widget_unparent (GTK_TREE_ITEM2(widget)->subtree);
-         GTK_TREE_ITEM2(widget)->subtree = NULL;
-       }
-      
-      /* really remove widget for this item */
-#ifdef TREE_DEBUG
-      g_message("* unmap and unparent widget [%#x]\n", (int)widget);
-#endif /* TREE_DEBUG */
-      if (GTK_WIDGET_MAPPED (widget))
-       gtk_widget_unmap (widget);
-      
-      gtk_widget_unparent (widget);
-      
-      /* delete subtree if there is no children in it */
-/* HF supprime */
-/*       if(real_tree->children == NULL && 
-        real_tree != root_tree)
-       {
-*/
-#ifdef TREE_DEBUG
-         g_message("* owner tree don't have children ... destroy it\n");
-#endif /* TREE_DEBUG */
-/*
-         gtk_tree_item2_remove_subtree(GTK_TREE_ITEM2(real_tree->tree_owner));
-       }
-*/      
-#ifdef TREE_DEBUG
-      g_message("* next item in list\n");
-#endif /* TREE_DEBUG */
-    }
-  
-  if (selected_widgets)
-    {
-#ifdef TREE_DEBUG
-      g_message("* scan selected item list\n");
-#endif /* TREE_DEBUG */
-      tmp_list = selected_widgets;
-      while (tmp_list)
-       {
-         widget = tmp_list->data;
-         tmp_list = tmp_list->next;
-         
-#ifdef TREE_DEBUG
-         g_message("* widget [%#x] subtree [%#x]\n", 
-                   (int)widget, (int)GTK_TREE_ITEM2_SUBTREE(widget));
-#endif /* TREE_DEBUG */
-         
-         /* remove widget of selection */
-         root_tree->selection = g_list_remove (root_tree->selection, widget);
-         
-         /* unref it to authorize is destruction */
-         gtk_widget_unref (widget);
-       }
-      
-      /* emit only one selection_changed signal */
-      gtk_signal_emit (GTK_OBJECT (root_tree), 
-                      tree_signals[SELECTION_CHANGED]);
-    }
-  
-#ifdef TREE_DEBUG
-  g_message("* free selected_widgets list\n");
-#endif /* TREE_DEBUG */
-  g_list_free (selected_widgets);
-  g_list_free (sorted_list);
-  
-  if (root_tree->children && !root_tree->selection &&
-      (root_tree->selection_mode == GTK_SELECTION_BROWSE))
-    {
-#ifdef TREE_DEBUG
-      g_message("* BROWSE mode, select another item\n");
-#endif /* TREE_DEBUG */
-      widget = root_tree->children->data;
-      gtk_tree2_select_child (root_tree, widget);
-    }
-  
-  if (GTK_WIDGET_VISIBLE (root_tree))
-    {
-#ifdef TREE_DEBUG
-      g_message("* query queue resizing for root_tree\n");
-#endif /* TREE_DEBUG */      
-      gtk_widget_queue_resize (GTK_WIDGET (root_tree));
-    }
-}
-
-void
-gtk_tree2_select_child (GtkTree2   *tree,
-                      GtkWidget *tree_item)
-{
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-  gtk_signal_emit (GTK_OBJECT (tree), tree_signals[SELECT_CHILD], tree_item);
-}
-
-void
-gtk_tree2_select_next_child (GtkTree2   *tree,
-                      GtkWidget *tree_item, gboolean descend)
-{
-  GList *children;
-
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-  if (descend && GTK_TREE2(GTK_TREE_ITEM2(tree_item)->subtree)->children)
-    {
-      gtk_signal_emit (GTK_OBJECT (GTK_TREE_ITEM2(tree_item)->subtree), tree_signals[SELECT_CHILD], GTK_TREE2(GTK_TREE_ITEM2(tree_item)->subtree)->children->data);
-      return;
-    }
-
-  children = tree->children;
-  while (children)
-    {
-      if (tree_item == GTK_WIDGET (children->data)) 
-       break;
-      
-      children = children->next;
-    }
-  if (!children) return;
-  
-  if (children->next)
-    gtk_signal_emit (GTK_OBJECT (tree), tree_signals[SELECT_CHILD], children->next->data);
-  else if (tree != tree->root_tree)
-    {
-      children = GTK_TREE2(GTK_WIDGET(tree)->parent)->children;
-       gtk_tree2_select_next_child (GTK_TREE2(GTK_WIDGET(tree)->parent), tree->tree_owner, FALSE);
-    }
-
-}
-
-/* we know that tree is not the roor_tree and that
-   tree_items always have subtrees */
-void
-gtk_tree2_select_prev_child (GtkTree2   *tree,
-                      GtkWidget *tree_item)
-{
-  GList *children;
-  GtkTreeItem2 *tree_item2;
-
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-
-  children = tree->children;
-  while (children)
-    {
-      if (tree_item == GTK_WIDGET (children->data)) 
-       break;
-      
-      children = children->next;
-    }
-  if (!children) return;
-  
-  if (children = children->prev)
-    {
-      tree_item2 = GTK_TREE_ITEM2(children->data);
-      while (GTK_TREE2(tree_item2->subtree)->children)
-       {
-         children = GTK_TREE2(tree_item2->subtree)->children;
-         while (children->next)
-           children = children->next;
-         tree_item2 = GTK_TREE_ITEM2(children->data);
-       }
-    gtk_signal_emit (GTK_OBJECT (GTK_WIDGET(tree_item2)->parent), tree_signals[SELECT_CHILD], tree_item2);
-    }
-  else
-    {
-      gtk_signal_emit (GTK_OBJECT (GTK_WIDGET(tree)->parent), tree_signals[SELECT_CHILD], tree->tree_owner);
-    }
-
-}
-
-void
-gtk_tree2_select_item (GtkTree2   *tree,
-                     gint       item)
-{
-  GList *tmp_list;
-  
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-  tmp_list = g_list_nth (tree->children, item);
-  if (tmp_list)
-    gtk_tree2_select_child (tree, GTK_WIDGET (tmp_list->data));
-  
-}
-
-static void
-gtk_tree2_size_allocate (GtkWidget     *widget,
-                       GtkAllocation *allocation)
-{
-  GtkTree2 *tree;
-  GtkWidget *child, *subtree;
-  GtkAllocation child_allocation;
-  GList *children;
-  
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (widget));
-  g_return_if_fail (allocation != NULL);
-  
-  tree = GTK_TREE2 (widget);
-  
-  widget->allocation = *allocation;
-  if (GTK_WIDGET_REALIZED (widget))
-    gdk_window_move_resize (widget->window,
-                           allocation->x, allocation->y,
-                           allocation->width, allocation->height);
-  
-  if (tree->children)
-    {
-      child_allocation.x = GTK_CONTAINER (tree)->border_width;
-      child_allocation.y = GTK_CONTAINER (tree)->border_width;
-      child_allocation.width = MAX (1, (gint)allocation->width - child_allocation.x * 2);
-      
-      children = tree->children;
-      
-      while (children)
-       {
-         child = children->data;
-         children = children->next;
-         
-         if (GTK_WIDGET_VISIBLE (child))
-           {
-             GtkRequisition child_requisition;
-             gtk_widget_get_child_requisition (child, &child_requisition);
-             
-             child_allocation.height = child_requisition.height;
-             
-             gtk_widget_size_allocate (child, &child_allocation);
-             
-             child_allocation.y += child_allocation.height;
-             
-             if((subtree = GTK_TREE_ITEM2(child)->subtree))
-               if(GTK_WIDGET_VISIBLE (subtree))
-                 {
-                   child_allocation.height = subtree->requisition.height;
-                   gtk_widget_size_allocate (subtree, &child_allocation);
-                   child_allocation.y += child_allocation.height;
-                 }
-           }
-       }
-    }
-  
-}
-
-static void
-gtk_tree2_size_request (GtkWidget      *widget,
-                      GtkRequisition *requisition)
-{
-  GtkTree2 *tree;
-  GtkWidget *child, *subtree;
-  GList *children;
-  GtkRequisition child_requisition;
-  
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (widget));
-  g_return_if_fail (requisition != NULL);
-  
-  tree = GTK_TREE2 (widget);
-  requisition->width = 0;
-  requisition->height = 0;
-  
-  children = tree->children;
-  while (children)
-    {
-      child = children->data;
-      children = children->next;
-      
-      if (GTK_WIDGET_VISIBLE (child))
-       {
-         gtk_widget_size_request (child, &child_requisition);
-         
-         requisition->width = MAX (requisition->width, child_requisition.width);
-         requisition->height += child_requisition.height;
-         
-         if((subtree = GTK_TREE_ITEM2(child)->subtree) &&
-            GTK_WIDGET_VISIBLE (subtree))
-           {
-             gtk_widget_size_request (subtree, &child_requisition);
-             
-             requisition->width = MAX (requisition->width, 
-                                       child_requisition.width);
-             
-             requisition->height += child_requisition.height;
-           }
-       }
-    }
-  
-  requisition->width += GTK_CONTAINER (tree)->border_width * 2;
-  requisition->height += GTK_CONTAINER (tree)->border_width * 2;
-  
-  requisition->width = MAX (requisition->width, 1);
-  requisition->height = MAX (requisition->height, 1);
-  
-}
-
-static void
-gtk_tree2_unmap (GtkWidget *widget)
-{
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (widget));
-  
-  GTK_WIDGET_UNSET_FLAGS (widget, GTK_MAPPED);
-  gdk_window_hide (widget->window);
-  
-}
-
-void
-gtk_tree2_unselect_child (GtkTree2   *tree,
-                        GtkWidget *tree_item)
-{
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-  gtk_signal_emit (GTK_OBJECT (tree), tree_signals[UNSELECT_CHILD], tree_item);
-}
-
-void
-gtk_tree2_unselect_item (GtkTree2 *tree,
-                       gint     item)
-{
-  GList *tmp_list;
-  
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-  tmp_list = g_list_nth (tree->children, item);
-  if (tmp_list)
-    gtk_tree2_unselect_child (tree, GTK_WIDGET (tmp_list->data));
-  
-}
-
-static void
-gtk_real_tree2_select_child (GtkTree2   *tree,
-                           GtkWidget *child)
-{
-  GList *selection, *root_selection;
-  GList *tmp_list;
-  GtkWidget *tmp_item;
-  
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (child != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (child));
-  
-  root_selection = tree->root_tree->selection;
-  
-  switch (tree->root_tree->selection_mode)
-    {
-    case GTK_SELECTION_SINGLE:
-      
-      selection = root_selection;
-      
-      /* remove old selection list */
-      while (selection)
-       {
-         tmp_item = selection->data;
-         
-         if (tmp_item != child)
-           {
-             gtk_tree_item2_deselect (GTK_TREE_ITEM2 (tmp_item));
-             
-             tmp_list = selection;
-             selection = selection->next;
-             
-             root_selection = g_list_remove_link (root_selection, tmp_list);
-             gtk_widget_unref (tmp_item);
-             
-             g_list_free (tmp_list);
-           }
-         else
-           selection = selection->next;
-       }
-      
-      if (child->state == GTK_STATE_NORMAL)
-       {
-         gtk_tree_item2_select (GTK_TREE_ITEM2 (child));
-         root_selection = g_list_prepend (root_selection, child);
-         gtk_widget_ref (child);
-       }
-      else if (child->state == GTK_STATE_SELECTED)
-       {
-         gtk_tree_item2_deselect (GTK_TREE_ITEM2 (child));
-         root_selection = g_list_remove (root_selection, child);
-         gtk_widget_unref (child);
-       }
-      
-      tree->root_tree->selection = root_selection;
-      
-      gtk_signal_emit (GTK_OBJECT (tree->root_tree), 
-                      tree_signals[SELECTION_CHANGED]);
-      break;
-      
-      
-    case GTK_SELECTION_BROWSE:
-      selection = root_selection;
-      
-      while (selection)
-       {
-         tmp_item = selection->data;
-         
-         if (tmp_item != child)
-           {
-             gtk_tree_item2_deselect (GTK_TREE_ITEM2 (tmp_item));
-             
-             tmp_list = selection;
-             selection = selection->next;
-             
-             root_selection = g_list_remove_link (root_selection, tmp_list);
-             gtk_widget_unref (tmp_item);
-             
-             g_list_free (tmp_list);
-           }
-         else
-           selection = selection->next;
-       }
-      
-      tree->root_tree->selection = root_selection;
-      
-      if (child->state == GTK_STATE_NORMAL)
-       {
-         gtk_tree_item2_select (GTK_TREE_ITEM2 (child));
-         root_selection = g_list_prepend (root_selection, child);
-         gtk_widget_ref (child);
-         tree->root_tree->selection = root_selection;
-         gtk_signal_emit (GTK_OBJECT (tree->root_tree), 
-                          tree_signals[SELECTION_CHANGED]);
-       }
-      break;
-      
-    case GTK_SELECTION_MULTIPLE:
-      if (child->state == GTK_STATE_NORMAL)
-       {
-         gtk_tree_item2_select (GTK_TREE_ITEM2 (child));
-         root_selection = g_list_prepend (root_selection, child);
-         gtk_widget_ref (child);
-         tree->root_tree->selection = root_selection;
-         gtk_signal_emit (GTK_OBJECT (tree->root_tree), 
-                          tree_signals[SELECTION_CHANGED]);
-       }
-      else if (child->state == GTK_STATE_SELECTED)
-       {
-         gtk_tree_item2_deselect (GTK_TREE_ITEM2 (child));
-         root_selection = g_list_remove (root_selection, child);
-         gtk_widget_unref (child);
-         tree->root_tree->selection = root_selection;
-         gtk_signal_emit (GTK_OBJECT (tree->root_tree), 
-                          tree_signals[SELECTION_CHANGED]);
-       }
-      break;
-      
-    case GTK_SELECTION_EXTENDED:
-      break;
-    }
-}
-
-static void
-gtk_real_tree2_unselect_child (GtkTree2   *tree,
-                             GtkWidget *child)
-{
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (child != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (child));
-  
-  switch (tree->selection_mode)
-    {
-    case GTK_SELECTION_SINGLE:
-    case GTK_SELECTION_MULTIPLE:
-    case GTK_SELECTION_BROWSE:
-      if (child->state == GTK_STATE_SELECTED)
-       {
-         GtkTree2* root_tree = GTK_TREE2_ROOT_TREE(tree);
-         gtk_tree_item2_deselect (GTK_TREE_ITEM2 (child));
-         root_tree->selection = g_list_remove (root_tree->selection, child);
-         gtk_widget_unref (child);
-         gtk_signal_emit (GTK_OBJECT (tree->root_tree), 
-                          tree_signals[SELECTION_CHANGED]);
-       }
-      break;
-      
-    case GTK_SELECTION_EXTENDED:
-      break;
-    }
-}
-
-void
-gtk_tree2_set_selection_mode (GtkTree2       *tree,
-                            GtkSelectionMode mode) 
-{
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-  tree->selection_mode = mode;
-}
-
-void
-gtk_tree2_set_view_mode (GtkTree2       *tree,
-                       GtkTree2ViewMode mode) 
-{
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-  tree->view_mode = mode;
-}
-
-void
-gtk_tree2_set_view_lines (GtkTree2       *tree,
-                        guint          flag) 
-{
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-  tree->view_line = flag;
-}
-
-void 
-gtk_tree2_item_up_1 (GtkTree2       *tree,
-                  guint pos)
-{
-  GList *tmp;
-  guint length;
-  gpointer data;
-
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-  tmp = tree->children;
-  length = g_list_length (tmp);
-  if (pos <= 0 || pos >= length) { return; }
-  data = g_list_nth_data (tree->children, pos);
-  g_list_remove (tree->children, data);
-  tree->children = g_list_insert (tree->children, data, pos-1);
-}

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gtktree2.h b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gtktree2.h
deleted file mode 100644 (file)
index 291a1d1..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gtktree2.h
+++ /dev/null
@@ -1,139 +0,0 @@
-/* GTK - The GIMP Toolkit
- * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Library General Public License for more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with this library; if not, write to the
- * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
- * Boston, MA 02111-1307, USA.
- */
-
-/*
- * Modified by the GTK+ Team and others 1997-1999.  See the AUTHORS
- * file for a list of people on the GTK+ Team.  See the ChangeLog
- * files for a list of changes.  These files are distributed with
- * GTK+ at ftp://ftp.gtk.org/pub/gtk/. 
- */
-
-#ifndef __GTK_TREE2_H__
-#define __GTK_TREE2_H__
-
-/* set this flag to enable tree debugging output */
-/* #define TREE_DEBUG */
-
-#include <gdk/gdk.h>
-#include <gtk/gtkcontainer.h>
-
-
-#ifdef __cplusplus
-extern "C" {
-#endif /* __cplusplus */
-
-
-#define GTK_TYPE_TREE2                  (gtk_tree2_get_type ())
-#define GTK_TREE2(obj)                  (GTK_CHECK_CAST ((obj), GTK_TYPE_TREE2, GtkTree2))
-#define GTK_TREE2_CLASS(klass)          (GTK_CHECK_CLASS_CAST ((klass), GTK_TYPE_TREE2, GtkTree2Class))
-#define GTK_IS_TREE2(obj)               (GTK_CHECK_TYPE ((obj), GTK_TYPE_TREE2))
-#define GTK_IS_TREE2_CLASS(klass)       (GTK_CHECK_CLASS_TYPE ((klass), GTK_TYPE_TREE2))
-
-#define GTK_IS_ROOT_TREE2(obj)   ((GtkObject*) GTK_TREE2(obj)->root_tree == (GtkObject*)obj)
-#define GTK_TREE2_ROOT_TREE(obj) (GTK_TREE2(obj)->root_tree ? GTK_TREE2(obj)->root_tree : GTK_TREE2(obj))
-#define GTK_TREE2_SELECTION(obj) (GTK_TREE2_ROOT_TREE(obj)->selection)
-
-typedef enum 
-{
-  GTK_TREE2_VIEW_LINE,  /* default view mode */
-  GTK_TREE2_VIEW_ITEM
-} GtkTree2ViewMode;
-
-typedef struct _GtkTree2       GtkTree2;
-typedef struct _GtkTree2Class  GtkTree2Class;
-
-struct _GtkTree2
-{
-  GtkContainer container;
-  
-  GList *children;
-  
-  GtkTree2* root_tree; /* owner of selection list */
-  GtkWidget* tree_owner;
-  GList *selection;
-  guint level;
-  guint indent_value;
-  guint current_indent;
-  guint selection_mode : 2;
-  guint view_mode : 1;
-  guint view_line : 1;
-};
-
-struct _GtkTree2Class
-{
-  GtkContainerClass parent_class;
-  
-  void (* selection_changed) (GtkTree2   *tree);
-  void (* select_child)      (GtkTree2   *tree,
-                             GtkWidget *child);
-  void (* unselect_child)    (GtkTree2   *tree,
-                             GtkWidget *child);
-};
-
-
-GtkType    gtk_tree2_get_type           (void);
-GtkWidget* gtk_tree2_new                (void);
-void       gtk_tree2_append             (GtkTree2          *tree,
-                                       GtkWidget        *tree_item);
-void       gtk_tree2_prepend            (GtkTree2          *tree,
-                                       GtkWidget        *tree_item);
-void       gtk_tree2_insert             (GtkTree2          *tree,
-                                       GtkWidget        *tree_item,
-                                       gint              position);
-void       gtk_tree2_remove_items       (GtkTree2          *tree,
-                                       GList            *items);
-void       gtk_tree2_clear_items        (GtkTree2          *tree,
-                                       gint              start,
-                                       gint              end);
-void       gtk_tree2_select_item        (GtkTree2          *tree,
-                                       gint              item);
-void       gtk_tree2_unselect_item      (GtkTree2          *tree,
-                                       gint              item);
-void       gtk_tree2_select_child       (GtkTree2          *tree,
-                                       GtkWidget        *tree_item);
-void       gtk_tree2_unselect_child     (GtkTree2          *tree,
-                                       GtkWidget        *tree_item);
-gint       gtk_tree2_child_position     (GtkTree2          *tree,
-                                       GtkWidget        *child);
-void       gtk_tree2_set_selection_mode (GtkTree2          *tree,
-                                       GtkSelectionMode  mode);
-void       gtk_tree2_set_view_mode      (GtkTree2          *tree,
-                                       GtkTree2ViewMode   mode); 
-void       gtk_tree2_set_view_lines     (GtkTree2          *tree,
-                                       guint            flag);
-
-/* deprecated function, use gtk_container_remove instead.
- */
-void       gtk_tree2_remove_item        (GtkTree2          *tree,
-                                       GtkWidget        *child);
-void       gtk_tree2_item_up             (GtkTree2   *tree,
-                                        gint       position);
-
-void gtk_tree2_select_next_child (GtkTree2   *tree,
-                                 GtkWidget *tree_item, gboolean descend);
-
-void gtk_tree2_select_prev_child (GtkTree2   *tree,
-                                 GtkWidget *tree_item);
-
-#ifdef __cplusplus
-}
-#endif /* __cplusplus */
-
-
-#endif /* __GTK_TREE2_H__ */

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gtktreeitem2.c b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gtktreeitem2.c
deleted file mode 100644 (file)
index 7e6f811..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gtktreeitem2.c
+++ /dev/null
@@ -1,1110 +0,0 @@
-/* GTK - The GIMP Toolkit
- * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Library General Public License for more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with this library; if not, write to the
- * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
- * Boston, MA 02111-1307, USA.
- */
-
-/*
- * Modified by the GTK+ Team and others 1997-1999.  See the AUTHORS
- * file for a list of people on the GTK+ Team.  See the ChangeLog
- * files for a list of changes.  These files are distributed with
- * GTK+ at ftp://ftp.gtk.org/pub/gtk/. 
- */
-
-#include <gtk/gtklabel.h>
-#include "gtktree2.h"
-#include "gtktreeitem2.h"
-#include <gtk/gtkeventbox.h>
-#include <gtk/gtkpixmap.h>
-#include <gtk/gtkmain.h>
-#include <gtk/gtksignal.h>
-
-#include "tree_plus.xpm"
-#include "tree_minus.xpm"
-
-#define DEFAULT_DELTA 9
-
-enum {
-  COLLAPSE_TREE,
-  EXPAND_TREE,
-  LAST_SIGNAL
-};
-
-typedef struct _GtkTree2Pixmaps GtkTree2Pixmaps;
-
-struct _GtkTree2Pixmaps {
-  gint refcount;
-  GdkColormap *colormap;
-  
-  GdkPixmap *pixmap_plus;
-  GdkPixmap *pixmap_minus;
-  GdkBitmap *mask_plus;
-  GdkBitmap *mask_minus;
-};
-
-static GList *pixmaps = NULL;
-
-static void gtk_tree_item2_class_init (GtkTreeItem2Class *klass);
-static void gtk_tree_item2_init       (GtkTreeItem2      *tree_item);
-static void gtk_tree_item2_realize       (GtkWidget        *widget);
-static void gtk_tree_item2_size_request  (GtkWidget        *widget,
-                                        GtkRequisition   *requisition);
-static void gtk_tree_item2_size_allocate (GtkWidget        *widget,
-                                        GtkAllocation    *allocation);
-static void gtk_tree_item2_draw          (GtkWidget        *widget,
-                                        GdkRectangle     *area);
-static void gtk_tree_item2_draw_focus    (GtkWidget        *widget);
-static void gtk_tree_item2_paint         (GtkWidget        *widget,
-                                        GdkRectangle     *area);
-static gint gtk_tree_item2_button_press  (GtkWidget        *widget,
-                                        GdkEventButton   *event);
-static gint gtk_tree_item2_expose        (GtkWidget        *widget,
-                                        GdkEventExpose   *event);
-static gint gtk_tree_item2_focus_in      (GtkWidget        *widget,
-                                        GdkEventFocus    *event);
-static gint gtk_tree_item2_focus_out     (GtkWidget        *widget,
-                                        GdkEventFocus    *event);
-static void gtk_tree_item2_forall        (GtkContainer    *container,
-                                        gboolean         include_internals,
-                                        GtkCallback      callback,
-                                        gpointer         callback_data);
-
-static void gtk_real_tree_item2_select   (GtkItem          *item);
-static void gtk_real_tree_item2_deselect (GtkItem          *item);
-static void gtk_real_tree_item2_toggle   (GtkItem          *item);
-static void gtk_real_tree_item2_expand   (GtkTreeItem2      *item);
-static void gtk_real_tree_item2_collapse (GtkTreeItem2      *item);
-static void gtk_real_tree_item2_expand   (GtkTreeItem2      *item);
-static void gtk_real_tree_item2_collapse (GtkTreeItem2      *item);
-static void gtk_tree_item2_destroy        (GtkObject *object);
-static void gtk_tree_item2_subtree_button_click (GtkWidget *widget);
-static void gtk_tree_item2_subtree_button_changed_state (GtkWidget *widget);
-
-static void gtk_tree_item2_map(GtkWidget*);
-static void gtk_tree_item2_unmap(GtkWidget*);
-
-static void gtk_tree_item2_add_pixmaps    (GtkTreeItem2       *tree_item);
-static void gtk_tree_item2_remove_pixmaps (GtkTreeItem2       *tree_item);
-
-static GtkItemClass *parent_class = NULL;
-static guint tree_item_signals[LAST_SIGNAL] = { 0 };
-
-GtkType
-gtk_tree_item2_get_type (void)
-{
-  static GtkType tree_item_type = 0;
-
-  if (!tree_item_type)
-    {
-      static const GtkTypeInfo tree_item_info =
-      {
-       "GtkTreeItem",
-       sizeof (GtkTreeItem2),
-       sizeof (GtkTreeItem2Class),
-       (GtkClassInitFunc) gtk_tree_item2_class_init,
-       (GtkObjectInitFunc) gtk_tree_item2_init,
-       /* reserved_1 */ NULL,
-        /* reserved_2 */ NULL,
-        (GtkClassInitFunc) NULL,
-      };
-
-      tree_item_type = gtk_type_unique (gtk_item_get_type (), &tree_item_info);
-    }
-
-  return tree_item_type;
-}
-
-static void
-gtk_tree_item2_class_init (GtkTreeItem2Class *class)
-{
-  GtkObjectClass *object_class;
-  GtkWidgetClass *widget_class;
-  GtkContainerClass *container_class;
-  GtkItemClass *item_class;
-
-  object_class = (GtkObjectClass*) class;
-  widget_class = (GtkWidgetClass*) class;
-  item_class = (GtkItemClass*) class;
-  container_class = (GtkContainerClass*) class;
-
-  parent_class = gtk_type_class (gtk_item_get_type ());
-  
-  tree_item_signals[EXPAND_TREE] =
-    gtk_signal_new ("expand",
-                   GTK_RUN_FIRST,
-                   object_class->type,
-                   GTK_SIGNAL_OFFSET (GtkTreeItem2Class, expand),
-                   gtk_marshal_NONE__NONE,
-                   GTK_TYPE_NONE, 0);
-  tree_item_signals[COLLAPSE_TREE] =
-    gtk_signal_new ("collapse",
-                   GTK_RUN_FIRST,
-                   object_class->type,
-                   GTK_SIGNAL_OFFSET (GtkTreeItem2Class, collapse),
-                   gtk_marshal_NONE__NONE,
-                   GTK_TYPE_NONE, 0);
-
-  gtk_object_class_add_signals (object_class, tree_item_signals, LAST_SIGNAL);
-
-  object_class->destroy = gtk_tree_item2_destroy;
-
-  widget_class->realize = gtk_tree_item2_realize;
-  widget_class->size_request = gtk_tree_item2_size_request;
-  widget_class->size_allocate = gtk_tree_item2_size_allocate;
-  widget_class->draw = gtk_tree_item2_draw;
-  widget_class->draw_focus = gtk_tree_item2_draw_focus;
-  widget_class->button_press_event = gtk_tree_item2_button_press;
-  widget_class->expose_event = gtk_tree_item2_expose;
-  widget_class->focus_in_event = gtk_tree_item2_focus_in;
-  widget_class->focus_out_event = gtk_tree_item2_focus_out;
-  widget_class->map = gtk_tree_item2_map;
-  widget_class->unmap = gtk_tree_item2_unmap;
-
-  container_class->forall = gtk_tree_item2_forall;
-
-  item_class->select = gtk_real_tree_item2_select;
-  item_class->deselect = gtk_real_tree_item2_deselect;
-  item_class->toggle = gtk_real_tree_item2_toggle;
-
-  class->expand = gtk_real_tree_item2_expand;
-  class->collapse = gtk_real_tree_item2_collapse;
-}
-
-/* callback for event box mouse event */
-static void 
-gtk_tree_item2_subtree_button_click (GtkWidget *widget)
-{
-  GtkTreeItem2* item;
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_EVENT_BOX (widget));
-  
-  item = (GtkTreeItem2*) gtk_object_get_user_data (GTK_OBJECT (widget));
-  if (!GTK_WIDGET_IS_SENSITIVE (item))
-    return;
-  
-  if (item->expanded)
-    gtk_tree_item2_collapse (item);
-  else
-    gtk_tree_item2_expand (item);
-}
-
-/* callback for event box state changed */
-static void
-gtk_tree_item2_subtree_button_changed_state (GtkWidget *widget)
-{
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_EVENT_BOX (widget));
-  
-  if (GTK_WIDGET_VISIBLE (widget))
-    {
-      
-      if (widget->state == GTK_STATE_NORMAL)
-       gdk_window_set_background (widget->window, &widget->style->base[widget->state]);
-      else
-       gdk_window_set_background (widget->window, &widget->style->bg[widget->state]);
-      
-      if (GTK_WIDGET_DRAWABLE (widget))
-       gdk_window_clear_area (widget->window, 0, 0, 
-                              widget->allocation.width, widget->allocation.height);
-    }
-}
-
-static void
-gtk_tree_item2_init (GtkTreeItem2 *tree_item)
-{
-  GtkWidget *eventbox, *pixmapwid;
-  
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-
-  tree_item->expanded = FALSE;
-  tree_item->subtree = NULL;
-  GTK_WIDGET_SET_FLAGS (tree_item, GTK_CAN_FOCUS);
-  
-  /* create an event box containing one pixmaps */
-  eventbox = gtk_event_box_new();
-  gtk_widget_set_events (eventbox, GDK_BUTTON_PRESS_MASK);
-  gtk_signal_connect(GTK_OBJECT(eventbox), "state_changed",
-                    (GtkSignalFunc)gtk_tree_item2_subtree_button_changed_state, 
-                    (gpointer)NULL);
-  gtk_signal_connect(GTK_OBJECT(eventbox), "realize",
-                    (GtkSignalFunc)gtk_tree_item2_subtree_button_changed_state, 
-                    (gpointer)NULL);
-/* HF inutile
-  gtk_signal_connect(GTK_OBJECT(eventbox), "button_press_event",
-                    (GtkSignalFunc)gtk_tree_item2_subtree_button_click,
-                    (gpointer)NULL);
-*/
-  gtk_object_set_user_data(GTK_OBJECT(eventbox), tree_item);
-  tree_item->pixmaps_box = eventbox;
-
-  /* create pixmap for button '+' */
-  pixmapwid = gtk_type_new (gtk_pixmap_get_type ());
-  if (!tree_item->expanded) 
-    gtk_container_add (GTK_CONTAINER (eventbox), pixmapwid);
-  gtk_widget_show (pixmapwid);
-  tree_item->plus_pix_widget = pixmapwid;
-  gtk_widget_ref (tree_item->plus_pix_widget);
-  gtk_object_sink (GTK_OBJECT (tree_item->plus_pix_widget));
-  
-  /* create pixmap for button '-' */
-  pixmapwid = gtk_type_new (gtk_pixmap_get_type ());
-  if (tree_item->expanded) 
-    gtk_container_add (GTK_CONTAINER (eventbox), pixmapwid);
-  gtk_widget_show (pixmapwid);
-  tree_item->minus_pix_widget = pixmapwid;
-  gtk_widget_ref (tree_item->minus_pix_widget);
-  gtk_object_sink (GTK_OBJECT (tree_item->minus_pix_widget));
-  
-  gtk_widget_set_parent (eventbox, GTK_WIDGET (tree_item));
-}
-
-
-GtkWidget*
-gtk_tree_item2_new (void)
-{
-  GtkWidget *tree_item;
-
-  tree_item = GTK_WIDGET (gtk_type_new (gtk_tree_item2_get_type ()));
-
-  return tree_item;
-}
-
-GtkWidget*
-gtk_tree_item2_new_with_label (gchar *label)
-{
-  GtkWidget *tree_item;
-  GtkWidget *label_widget;
-
-  tree_item = gtk_tree_item2_new ();
-  label_widget = gtk_label_new (label);
-  gtk_misc_set_alignment (GTK_MISC (label_widget), 0.0, 0.5);
-
-  gtk_container_add (GTK_CONTAINER (tree_item), label_widget);
-  gtk_widget_show (label_widget);
-
-
-  return tree_item;
-}
-
-void
-gtk_tree_item2_set_subtree (GtkTreeItem2 *tree_item,
-                          GtkWidget   *subtree)
-{
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  g_return_if_fail (subtree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (subtree));
-
-  if (tree_item->subtree)
-    {
-      g_warning("there is already a subtree for this tree item\n");
-      return;
-    }
-
-  tree_item->subtree = subtree; 
-  GTK_TREE2 (subtree)->tree_owner = GTK_WIDGET (tree_item);
-
-  /* show subtree button */
-  if (tree_item->pixmaps_box)
-    gtk_widget_show (tree_item->pixmaps_box);
-
-  if (tree_item->expanded)
-    gtk_widget_show (subtree);
-  else
-    gtk_widget_hide (subtree);
-
-  gtk_widget_set_parent (subtree, GTK_WIDGET (tree_item)->parent);
-
-  if (GTK_WIDGET_REALIZED (subtree->parent))
-    gtk_widget_realize (subtree);
-
-  if (GTK_WIDGET_VISIBLE (subtree->parent) && GTK_WIDGET_VISIBLE (subtree))
-    {
-      if (GTK_WIDGET_MAPPED (subtree->parent))
-       gtk_widget_map (subtree);
-
-      gtk_widget_queue_resize (subtree);
-    }
-}
-
-void
-gtk_tree_item2_select (GtkTreeItem2 *tree_item)
-{
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-
-  gtk_item_select (GTK_ITEM (tree_item));
-}
-
-void
-gtk_tree_item2_deselect (GtkTreeItem2 *tree_item)
-{
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-
-  gtk_item_deselect (GTK_ITEM (tree_item));
-}
-
-void
-gtk_tree_item2_expand (GtkTreeItem2 *tree_item)
-{
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-
-  gtk_signal_emit (GTK_OBJECT (tree_item), tree_item_signals[EXPAND_TREE], NULL);
-}
-
-void
-gtk_tree_item2_collapse (GtkTreeItem2 *tree_item)
-{
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-
-  gtk_signal_emit (GTK_OBJECT (tree_item), tree_item_signals[COLLAPSE_TREE], NULL);
-}
-
-static void
-gtk_tree_item2_add_pixmaps (GtkTreeItem2 *tree_item)
-{
-  GList *tmp_list;
-  GdkColormap *colormap;
-  GtkTree2Pixmaps *pixmap_node = NULL;
-
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-
-  if (tree_item->pixmaps)
-    return;
-
-  colormap = gtk_widget_get_colormap (GTK_WIDGET (tree_item));
-
-  tmp_list = pixmaps;
-  while (tmp_list)
-    {
-      pixmap_node = (GtkTree2Pixmaps *)tmp_list->data;
-
-      if (pixmap_node->colormap == colormap)
-       break;
-      
-      tmp_list = tmp_list->next;
-    }
-
-  if (tmp_list)
-    {
-      pixmap_node->refcount++;
-      tree_item->pixmaps = tmp_list;
-    }
-  else
-    {
-      pixmap_node = g_new (GtkTree2Pixmaps, 1);
-
-      pixmap_node->colormap = colormap;
-      gdk_colormap_ref (colormap);
-
-      pixmap_node->refcount = 1;
-
-      /* create pixmaps for plus icon */
-      pixmap_node->pixmap_plus = 
-       gdk_pixmap_create_from_xpm_d (GTK_WIDGET (tree_item)->window,
-                                     &pixmap_node->mask_plus,
-                                     NULL,
-                                     tree_plus);
-      
-      /* create pixmaps for minus icon */
-      pixmap_node->pixmap_minus = 
-       gdk_pixmap_create_from_xpm_d (GTK_WIDGET (tree_item)->window,
-                                     &pixmap_node->mask_minus,
-                                     NULL,
-                                     tree_minus);
-
-      tree_item->pixmaps = pixmaps = g_list_prepend (pixmaps, pixmap_node);
-    }
-  
-  gtk_pixmap_set (GTK_PIXMAP (tree_item->plus_pix_widget), 
-                 pixmap_node->pixmap_plus, pixmap_node->mask_plus);
-  gtk_pixmap_set (GTK_PIXMAP (tree_item->minus_pix_widget), 
-                 pixmap_node->pixmap_minus, pixmap_node->mask_minus);
-}
-
-static void
-gtk_tree_item2_remove_pixmaps (GtkTreeItem2 *tree_item)
-{
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-
-  if (tree_item->pixmaps)
-    {
-      GtkTree2Pixmaps *pixmap_node = (GtkTree2Pixmaps *)tree_item->pixmaps->data;
-      
-      g_assert (pixmap_node->refcount > 0);
-      
-      if (--pixmap_node->refcount == 0)
-       {
-         gdk_colormap_unref (pixmap_node->colormap);
-         gdk_pixmap_unref (pixmap_node->pixmap_plus);
-         gdk_bitmap_unref (pixmap_node->mask_plus);
-         gdk_pixmap_unref (pixmap_node->pixmap_minus);
-         gdk_bitmap_unref (pixmap_node->mask_minus);
-         
-         pixmaps = g_list_remove_link (pixmaps, tree_item->pixmaps);
-         g_list_free_1 (tree_item->pixmaps);
-         g_free (pixmap_node);
-       }
-
-      tree_item->pixmaps = NULL;
-    }
-}
-
-static void
-gtk_tree_item2_realize (GtkWidget *widget)
-{    
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-
-  if (GTK_WIDGET_CLASS (parent_class)->realize)
-    (* GTK_WIDGET_CLASS (parent_class)->realize) (widget);
-  
-  gdk_window_set_background (widget->window, 
-                            &widget->style->base[GTK_STATE_NORMAL]);
-
-  gtk_tree_item2_add_pixmaps (GTK_TREE_ITEM2 (widget));
-}
-
-static void
-gtk_tree_item2_size_request (GtkWidget      *widget,
-                           GtkRequisition *requisition)
-{
-  GtkBin *bin;
-  GtkTreeItem2* item;
-  GtkRequisition child_requisition;
-
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-  g_return_if_fail (requisition != NULL);
-
-  bin = GTK_BIN (widget);
-  item = GTK_TREE_ITEM2(widget);
-
-  requisition->width = (GTK_CONTAINER (widget)->border_width +
-                       widget->style->klass->xthickness) * 2;
-  requisition->height = GTK_CONTAINER (widget)->border_width * 2;
-
-  if (bin->child && GTK_WIDGET_VISIBLE (bin->child))
-    {
-      GtkRequisition pix_requisition;
-      
-      gtk_widget_size_request (bin->child, &child_requisition);
-
-      requisition->width += child_requisition.width;
-
-      gtk_widget_size_request (item->pixmaps_box, 
-                              &pix_requisition);
-      requisition->width += pix_requisition.width + DEFAULT_DELTA + 
-       GTK_TREE2 (widget->parent)->current_indent;
-
-      requisition->height += MAX (child_requisition.height,
-                                 pix_requisition.height);
-    }
-}
-
-static void
-gtk_tree_item2_size_allocate (GtkWidget     *widget,
-                            GtkAllocation *allocation)
-{
-  GtkBin *bin;
-  GtkTreeItem2* item;
-  GtkAllocation child_allocation;
-  guint border_width;
-  int temp;
-
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-  g_return_if_fail (allocation != NULL);
-
-  widget->allocation = *allocation;
-  if (GTK_WIDGET_REALIZED (widget))
-    gdk_window_move_resize (widget->window,
-                           allocation->x, allocation->y,
-                           allocation->width, allocation->height);
-
-  bin = GTK_BIN (widget);
-  item = GTK_TREE_ITEM2(widget);
-
-  if (bin->child)
-    {
-      border_width = (GTK_CONTAINER (widget)->border_width +
-                     widget->style->klass->xthickness);
-
-      child_allocation.x = border_width + GTK_TREE2(widget->parent)->current_indent;
-      child_allocation.y = GTK_CONTAINER (widget)->border_width;
-
-      child_allocation.width = item->pixmaps_box->requisition.width;
-      child_allocation.height = item->pixmaps_box->requisition.height;
-      
-      temp = allocation->height - child_allocation.height;
-      child_allocation.y += ( temp / 2 ) + ( temp % 2 );
-
-      gtk_widget_size_allocate (item->pixmaps_box, &child_allocation);
-
-      child_allocation.y = GTK_CONTAINER (widget)->border_width;
-      child_allocation.height = MAX (1, (gint)allocation->height - child_allocation.y * 2);
-      child_allocation.x += item->pixmaps_box->requisition.width+DEFAULT_DELTA;
-
-      child_allocation.width = 
-       MAX (1, (gint)allocation->width - ((gint)child_allocation.x + border_width));
-
-      gtk_widget_size_allocate (bin->child, &child_allocation);
-    }
-}
-
-static void 
-gtk_tree_item2_draw_lines (GtkWidget *widget) 
-{
-  GtkTreeItem2* item;
-  GtkTree2* tree;
-  guint lx1, ly1, lx2, ly2;
-
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-
-  item = GTK_TREE_ITEM2(widget);
-  tree = GTK_TREE2(widget->parent);
-
-  /* draw vertical line */
-  lx1 = item->pixmaps_box->allocation.width;
-  lx1 = lx2 = ((lx1 / 2) + (lx1 % 2) + 
-              GTK_CONTAINER (widget)->border_width + 1 + tree->current_indent);
-  ly1 = 0;
-  ly2 = widget->allocation.height;
-
-  if (g_list_last (tree->children)->data == widget)
-    ly2 = (ly2 / 2) + (ly2 % 2);
-
-  if (tree != tree->root_tree)
-    gdk_draw_line (widget->window, widget->style->black_gc, lx1, ly1, lx2, ly2);
-
-  /* draw vertical line for subtree connecting */
-  if(g_list_last(tree->children)->data != (gpointer)widget)
-    ly2 = (ly2 / 2) + (ly2 % 2);
-  
-  lx2 += DEFAULT_DELTA;
-
-  if (item->subtree && item->expanded)
-    gdk_draw_line (widget->window, widget->style->black_gc,
-                  lx2, ly2, lx2, widget->allocation.height);
-
-  /* draw horizontal line */
-  ly1 = ly2;
-  lx2 += 2;
-
-  gdk_draw_line (widget->window, widget->style->black_gc,
-                lx1, ly1, lx2, ly2);
-
-  lx2 -= DEFAULT_DELTA+2;
-  ly1 = 0;
-  ly2 = widget->allocation.height;
-
-  if (tree != tree->root_tree)
-    {
-      item = GTK_TREE_ITEM2 (tree->tree_owner);
-      tree = GTK_TREE2 (GTK_WIDGET (tree)->parent);
-      while (tree != tree->root_tree)
-       {
-         lx1 = lx2 -= tree->indent_value;
-         
-         if (g_list_last (tree->children)->data != item)
-           gdk_draw_line (widget->window, widget->style->black_gc, lx1, ly1, lx2, ly2);
-         item = GTK_TREE_ITEM2 (tree->tree_owner);
-         tree = GTK_TREE2 (GTK_WIDGET (tree)->parent);
-       } 
-    }
-}
-
-static void
-gtk_tree_item2_paint (GtkWidget    *widget,
-                    GdkRectangle *area)
-{
-  GtkBin *bin;
-  GdkRectangle child_area, item_area;
-  GtkTreeItem2* tree_item;
-
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-  g_return_if_fail (area != NULL);
-
-  if (GTK_WIDGET_DRAWABLE (widget))
-    {
-      bin = GTK_BIN (widget);
-      tree_item = GTK_TREE_ITEM2(widget);
-
-      if (widget->state == GTK_STATE_NORMAL)
-       {
-         gdk_window_set_back_pixmap (widget->window, NULL, TRUE);
-         gdk_window_clear_area (widget->window, area->x, area->y, area->width, area->height);
-       }
-      else 
-       {
-         if (!GTK_WIDGET_IS_SENSITIVE (widget)) 
-           gtk_paint_flat_box(widget->style, widget->window,
-                              widget->state, GTK_STATE_INSENSITIVE,
-                              area, widget, "treeitem",
-                              0, 0, -1, -1);
-         else
-           gtk_paint_flat_box(widget->style, widget->window,
-                              widget->state, GTK_SHADOW_ETCHED_OUT,
-                              area, widget, "treeitem",
-                              0, 0, -1, -1);
-       }
-
-      /* draw left size of tree item */
-      item_area.x = 0;
-      item_area.y = 0;
-      item_area.width = (tree_item->pixmaps_box->allocation.width + DEFAULT_DELTA +
-                        GTK_TREE2 (widget->parent)->current_indent + 2);
-      item_area.height = widget->allocation.height;
-
-
-      if (gdk_rectangle_intersect(&item_area, area, &child_area)) 
-       {
-         
-         gtk_tree_item2_draw_lines(widget);
-
-         if (tree_item->pixmaps_box && 
-             GTK_WIDGET_VISIBLE(tree_item->pixmaps_box) &&
-             gtk_widget_intersect (tree_item->pixmaps_box, area, &child_area))
-           gtk_widget_draw (tree_item->pixmaps_box, &child_area);
-       }
-
-      if (GTK_WIDGET_HAS_FOCUS (widget))
-       gtk_paint_focus (widget->style, widget->window,
-                        NULL, widget, "treeitem",
-                        0, 0,
-                        widget->allocation.width - 1,
-                        widget->allocation.height - 1);
-      
-    }
-}
-
-static void
-gtk_tree_item2_draw (GtkWidget    *widget,
-                   GdkRectangle *area)
-{
-  GtkBin *bin;
-  GdkRectangle child_area;
-
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-  g_return_if_fail (area != NULL);
-
-  if (GTK_WIDGET_DRAWABLE (widget))
-    {
-      bin = GTK_BIN (widget);
-
-      gtk_tree_item2_paint (widget, area);
-     
-      if (bin->child && 
-         gtk_widget_intersect (bin->child, area, &child_area))
-       gtk_widget_draw (bin->child, &child_area);
-
-    }
-}
-
-static void
-gtk_tree_item2_draw_focus (GtkWidget *widget)
-{
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-
-  gtk_widget_draw(widget, NULL);
-}
-
-static gint
-gtk_tree_item2_button_press (GtkWidget      *widget,
-                           GdkEventButton *event)
-{
-/* HF
-  g_return_val_if_fail (widget != NULL, FALSE);
-  g_return_val_if_fail (GTK_IS_TREE_ITEM2 (widget), FALSE);
-  g_return_val_if_fail (event != NULL, FALSE);
-
-  if (event->type == GDK_BUTTON_PRESS
-       && GTK_WIDGET_IS_SENSITIVE(widget)
-       && !GTK_WIDGET_HAS_FOCUS (widget))
-      gtk_widget_grab_focus (widget);
-
-  return FALSE;
-
-*/
-}
-
-static gint
-gtk_tree_item2_expose (GtkWidget      *widget,
-                     GdkEventExpose *event)
-{
-  GdkEventExpose child_event;
-  GtkBin *bin;
-
-  g_return_val_if_fail (widget != NULL, FALSE);
-  g_return_val_if_fail (GTK_IS_TREE_ITEM2 (widget), FALSE);
-  g_return_val_if_fail (event != NULL, FALSE);
-
-  if (GTK_WIDGET_DRAWABLE (widget))
-    {
-      bin = GTK_BIN (widget);
-      
-      gtk_tree_item2_paint (widget, &event->area);
-
-      child_event = *event;
-      if (bin->child && GTK_WIDGET_NO_WINDOW (bin->child) &&
-         gtk_widget_intersect (bin->child, &event->area, &child_event.area))
-       gtk_widget_event (bin->child, (GdkEvent*) &child_event);
-   }
-
-  return FALSE;
-}
-
-static gint
-gtk_tree_item2_focus_in (GtkWidget     *widget,
-                       GdkEventFocus *event)
-{
-  g_return_val_if_fail (widget != NULL, FALSE);
-  g_return_val_if_fail (GTK_IS_TREE_ITEM2 (widget), FALSE);
-  g_return_val_if_fail (event != NULL, FALSE);
-
-  GTK_WIDGET_SET_FLAGS (widget, GTK_HAS_FOCUS);
-  gtk_widget_draw_focus (widget);
-
-
-  return FALSE;
-}
-
-static gint
-gtk_tree_item2_focus_out (GtkWidget     *widget,
-                        GdkEventFocus *event)
-{
-  g_return_val_if_fail (widget != NULL, FALSE);
-  g_return_val_if_fail (GTK_IS_TREE_ITEM2 (widget), FALSE);
-  g_return_val_if_fail (event != NULL, FALSE);
-
-  GTK_WIDGET_UNSET_FLAGS (widget, GTK_HAS_FOCUS);
-  gtk_widget_draw_focus (widget);
-
-
-  return FALSE;
-}
-
-static void
-gtk_real_tree_item2_select (GtkItem *item)
-{    
-  GtkTreeItem2 *tree_item;
-  GtkWidget *widget;
-
-  g_return_if_fail (item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (item));
-
-  tree_item = GTK_TREE_ITEM2 (item);
-  widget = GTK_WIDGET (item);
-
-  gtk_widget_set_state (GTK_WIDGET (item), GTK_STATE_SELECTED);
-
-  if (!widget->parent || GTK_TREE2 (widget->parent)->view_mode == GTK_TREE2_VIEW_LINE)
-    gtk_widget_set_state (GTK_TREE_ITEM2 (item)->pixmaps_box, GTK_STATE_SELECTED);
-}
-
-static void
-gtk_real_tree_item2_deselect (GtkItem *item)
-{
-  GtkTreeItem2 *tree_item;
-  GtkWidget *widget;
-
-  g_return_if_fail (item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (item));
-
-  tree_item = GTK_TREE_ITEM2 (item);
-  widget = GTK_WIDGET (item);
-
-  gtk_widget_set_state (widget, GTK_STATE_NORMAL);
-
-  if (!widget->parent || GTK_TREE2 (widget->parent)->view_mode == GTK_TREE2_VIEW_LINE)
-    gtk_widget_set_state (tree_item->pixmaps_box, GTK_STATE_NORMAL);
-}
-
-static void
-gtk_real_tree_item2_toggle (GtkItem *item)
-{
-  g_return_if_fail (item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (item));
-
-  if(!GTK_WIDGET_IS_SENSITIVE(item))
-    return;
-
-  if (GTK_WIDGET (item)->parent && GTK_IS_TREE2 (GTK_WIDGET (item)->parent))
-    gtk_tree2_select_child (GTK_TREE2 (GTK_WIDGET (item)->parent),
-                          GTK_WIDGET (item));
-  else
-    {
-      /* Should we really bother with this bit? A listitem not in a list?
-       * -Johannes Keukelaar
-       * yes, always be on the safe side!
-       * -timj
-       */
-      if (GTK_WIDGET (item)->state == GTK_STATE_SELECTED)
-       gtk_widget_set_state (GTK_WIDGET (item), GTK_STATE_NORMAL);
-      else
-       gtk_widget_set_state (GTK_WIDGET (item), GTK_STATE_SELECTED);
-    }
-}
-
-static void
-gtk_real_tree_item2_expand (GtkTreeItem2 *tree_item)
-{
-  GtkTree2* tree;
-  
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-  if (tree_item->subtree && !tree_item->expanded)
-    {
-      tree = GTK_TREE2 (GTK_WIDGET (tree_item)->parent); 
-      
-      /* hide subtree widget */
-      gtk_widget_show (tree_item->subtree);
-      
-      /* hide button '+' and show button '-' */
-      if (tree_item->pixmaps_box)
-       {
-         gtk_container_remove (GTK_CONTAINER (tree_item->pixmaps_box), 
-                               tree_item->plus_pix_widget);
-         gtk_container_add (GTK_CONTAINER (tree_item->pixmaps_box), 
-                            tree_item->minus_pix_widget);
-       }
-      if (tree->root_tree)
-       gtk_widget_queue_resize (GTK_WIDGET (tree->root_tree));
-      tree_item->expanded = TRUE;
-    }
-}
-
-static void
-gtk_real_tree_item2_collapse (GtkTreeItem2 *tree_item)
-{
-  GtkTree2* tree;
-  
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-  if (tree_item->subtree && tree_item->expanded) 
-    {
-      tree = GTK_TREE2 (GTK_WIDGET (tree_item)->parent);
-      
-      /* hide subtree widget */
-      gtk_widget_hide (tree_item->subtree);
-      
-      /* hide button '-' and show button '+' */
-      if (tree_item->pixmaps_box)
-       {
-         gtk_container_remove (GTK_CONTAINER (tree_item->pixmaps_box), 
-                               tree_item->minus_pix_widget);
-         gtk_container_add (GTK_CONTAINER (tree_item->pixmaps_box), 
-                            tree_item->plus_pix_widget);
-       }
-      if (tree->root_tree)
-       gtk_widget_queue_resize (GTK_WIDGET (tree->root_tree));
-      tree_item->expanded = FALSE;
-    }
-}
-
-static void
-gtk_tree_item2_destroy (GtkObject *object)
-{
-  GtkTreeItem2* item;
-  GtkWidget* child;
-
-  g_return_if_fail (object != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (object));
-
-#ifdef TREE_DEBUG
-  g_message("+ gtk_tree_item2_destroy [object %#x]\n", (int)object);
-#endif /* TREE_DEBUG */
-
-  item = GTK_TREE_ITEM2(object);
-
-  /* free sub tree if it exist */
-  child = item->subtree;
-  if (child)
-    {
-      gtk_widget_ref (child);
-      gtk_widget_unparent (child);
-      gtk_widget_destroy (child);
-      gtk_widget_unref (child);
-      item->subtree = NULL;
-    }
-  
-  /* free pixmaps box */
-  child = item->pixmaps_box;
-  if (child)
-    {
-      gtk_widget_ref (child);
-      gtk_widget_unparent (child);
-      gtk_widget_destroy (child);
-      gtk_widget_unref (child);
-      item->pixmaps_box = NULL;
-    }
-  
-  
-  /* destroy plus pixmap */
-  if (item->plus_pix_widget)
-    {
-      gtk_widget_destroy (item->plus_pix_widget);
-      gtk_widget_unref (item->plus_pix_widget);
-      item->plus_pix_widget = NULL;
-    }
-  
-  /* destroy minus pixmap */
-  if (item->minus_pix_widget)
-    {
-      gtk_widget_destroy (item->minus_pix_widget);
-      gtk_widget_unref (item->minus_pix_widget);
-      item->minus_pix_widget = NULL;
-    }
-  
-  /* By removing the pixmaps here, and not in unrealize, we depend on
-   * the fact that a widget can never change colormap or visual.
-   */
-  gtk_tree_item2_remove_pixmaps (item);
-  
-  GTK_OBJECT_CLASS (parent_class)->destroy (object);
-  
-#ifdef TREE_DEBUG
-  g_message("- gtk_tree_item2_destroy\n");
-#endif /* TREE_DEBUG */
-}
-
-void
-gtk_tree_item2_remove_subtree (GtkTreeItem2* item) 
-{
-  g_return_if_fail (item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2(item));
-  g_return_if_fail (item->subtree != NULL);
-  
-  if (GTK_TREE2 (item->subtree)->children)
-    {
-      /* The following call will remove the children and call
-       * gtk_tree_item2_remove_subtree() again. So we are done.
-       */
-      gtk_tree2_remove_items (GTK_TREE2 (item->subtree), 
-                            GTK_TREE2 (item->subtree)->children);
-      return;
-    }
-
-  if (GTK_WIDGET_MAPPED (item->subtree))
-    gtk_widget_unmap (item->subtree);
-      
-  gtk_widget_unparent (item->subtree);
-  
-  if (item->pixmaps_box)
-    gtk_widget_hide (item->pixmaps_box);
-  
-  item->subtree = NULL;
-
-  if (item->expanded)
-    {
-      item->expanded = FALSE;
-      if (item->pixmaps_box)
-       {
-         gtk_container_remove (GTK_CONTAINER (item->pixmaps_box), 
-                               item->minus_pix_widget);
-         gtk_container_add (GTK_CONTAINER (item->pixmaps_box), 
-                            item->plus_pix_widget);
-       }
-    }
-}
-
-static void
-gtk_tree_item2_map (GtkWidget *widget)
-{
-  GtkBin *bin;
-  GtkTreeItem2* item;
-
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-
-  bin = GTK_BIN (widget);
-  item = GTK_TREE_ITEM2(widget);
-
-  GTK_WIDGET_SET_FLAGS (widget, GTK_MAPPED);
-
-  if(item->pixmaps_box &&
-     GTK_WIDGET_VISIBLE (item->pixmaps_box) &&
-     !GTK_WIDGET_MAPPED (item->pixmaps_box))
-    gtk_widget_map (item->pixmaps_box);
-
-  if (bin->child &&
-      GTK_WIDGET_VISIBLE (bin->child) &&
-      !GTK_WIDGET_MAPPED (bin->child))
-    gtk_widget_map (bin->child);
-
-  gdk_window_show (widget->window);
-}
-
-static void
-gtk_tree_item2_unmap (GtkWidget *widget)
-{
-  GtkBin *bin;
-  GtkTreeItem2* item;
-
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-
-  GTK_WIDGET_UNSET_FLAGS (widget, GTK_MAPPED);
-  bin = GTK_BIN (widget);
-  item = GTK_TREE_ITEM2(widget);
-
-  gdk_window_hide (widget->window);
-
-  if(item->pixmaps_box &&
-     GTK_WIDGET_VISIBLE (item->pixmaps_box) &&
-     GTK_WIDGET_MAPPED (item->pixmaps_box))
-    gtk_widget_unmap (bin->child);
-
-  if (bin->child &&
-      GTK_WIDGET_VISIBLE (bin->child) &&
-      GTK_WIDGET_MAPPED (bin->child))
-    gtk_widget_unmap (bin->child);
-}
-
-static void
-gtk_tree_item2_forall (GtkContainer *container,
-                     gboolean      include_internals,
-                     GtkCallback   callback,
-                     gpointer      callback_data)
-{
-  GtkBin *bin;
-  GtkTreeItem2 *tree_item;
-
-  g_return_if_fail (container != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (container));
-  g_return_if_fail (callback != NULL);
-
-  bin = GTK_BIN (container);
-  tree_item = GTK_TREE_ITEM2 (container);
-
-  if (bin->child)
-    (* callback) (bin->child, callback_data);
-/*  if (include_internals && tree_item->subtree)
-    (* callback) (tree_item->subtree, callback_data); */
-}

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gtktreeitem2.h b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gtktreeitem2.h
deleted file mode 100644 (file)
index bbbb364..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/gtktreeitem2.h
+++ /dev/null
@@ -1,91 +0,0 @@
-/* GTK - The GIMP Toolkit
- * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Library General Public License for more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with this library; if not, write to the
- * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
- * Boston, MA 02111-1307, USA.
- */
-
-/*
- * Modified by the GTK+ Team and others 1997-1999.  See the AUTHORS
- * file for a list of people on the GTK+ Team.  See the ChangeLog
- * files for a list of changes.  These files are distributed with
- * GTK+ at ftp://ftp.gtk.org/pub/gtk/. 
- */
-
-#ifndef __GTK_TREE_ITEM2_H__
-#define __GTK_TREE_ITEM2_H__
-
-
-#include <gdk/gdk.h>
-#include <gtk/gtkitem.h>
-
-
-#ifdef __cplusplus
-extern "C" {
-#endif /* __cplusplus */
-
-
-#define GTK_TYPE_TREE_ITEM2              (gtk_tree_item2_get_type ())
-#define GTK_TREE_ITEM2(obj)              (GTK_CHECK_CAST ((obj), GTK_TYPE_TREE_ITEM2, GtkTreeItem2))
-#define GTK_TREE_ITEM2_CLASS(klass)      (GTK_CHECK_CLASS_CAST ((klass), GTK_TYPE_TREE_ITEM2, GtkTreeItem2Class))
-#define GTK_IS_TREE_ITEM2(obj)           (GTK_CHECK_TYPE ((obj), GTK_TYPE_TREE_ITEM2))
-#define GTK_IS_TREE_ITEM2_CLASS(klass)   (GTK_CHECK_CLASS_TYPE ((klass), GTK_TYPE_TREE_ITEM2))
-
-#define GTK_TREE_ITEM2_SUBTREE(obj)      (GTK_TREE_ITEM2(obj)->subtree)
-
-
-typedef struct _GtkTreeItem2       GtkTreeItem2;
-typedef struct _GtkTreeItem2Class  GtkTreeItem2Class;
-
-struct _GtkTreeItem2
-{
-  GtkItem item;
-
-  GtkWidget *subtree;
-  GtkWidget *pixmaps_box;
-  GtkWidget *plus_pix_widget, *minus_pix_widget;
-
-  GList *pixmaps;              /* pixmap node for this items color depth */
-
-  guint expanded : 1;
-};
-
-struct _GtkTreeItem2Class
-{
-  GtkItemClass parent_class;
-
-  void (* expand)   (GtkTreeItem2 *tree_item);
-  void (* collapse) (GtkTreeItem2 *tree_item);
-};
-
-
-GtkType    gtk_tree_item2_get_type       (void);
-GtkWidget* gtk_tree_item2_new            (void);
-GtkWidget* gtk_tree_item2_new_with_label (gchar       *label);
-void       gtk_tree_item2_set_subtree    (GtkTreeItem2 *tree_item,
-                                        GtkWidget   *subtree);
-void       gtk_tree_item2_remove_subtree (GtkTreeItem2 *tree_item);
-void       gtk_tree_item2_select         (GtkTreeItem2 *tree_item);
-void       gtk_tree_item2_deselect       (GtkTreeItem2 *tree_item);
-void       gtk_tree_item2_expand         (GtkTreeItem2 *tree_item);
-void       gtk_tree_item2_collapse       (GtkTreeItem2 *tree_item);
-
-
-#ifdef __cplusplus
-}
-#endif /* __cplusplus */
-
-
-#endif /* __GTK_TREE_ITEM2_H__ */

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/handlebox.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/handlebox.xpm
deleted file mode 100644 (file)
index e4d792c..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/handlebox.xpm
+++ /dev/null
@@ -1,34 +0,0 @@
-/* XPM */
-static char *handlebox_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 7 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray87",
-"+ c Gray100",
-"@ c None",
-/* pixels */
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@++++++++++++++++++ @",
-"@+OOOO.XXXXXXXXXXX. @",
-"@++OOO.XXXXXXXXXXX. @",
-"@+O.+O.XXXXXXXXXXX. @",
-"@+OOO..XXXXXXXXXXX. @",
-"@++OOO.XXXXXXXXXXX. @",
-"@+O.+O.XXXXXXXXXXX. @",
-"@+OOO..XXXXXXXXXXX. @",
-"@++OOO.XXXXXXXXXXX. @",
-"@+O.+O.XXXXXXXXXXX. @",
-"@+OOO..XXXXXXXXXXX. @",
-"@+................. @",
-"@                   @",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/hbox.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/hbox.xpm
deleted file mode 100644 (file)
index 7363317..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/hbox.xpm
+++ /dev/null
@@ -1,31 +0,0 @@
-/* XPM */
-static char *hbox_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 4 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c Gray100",
-/* pixels */
-"oooooo oooooo oooooo ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"o..... o..... o..... ",
-"                     "
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/hbuttonbox.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/hbuttonbox.xpm
deleted file mode 100644 (file)
index 77d73dc..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/hbuttonbox.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *hbuttonbox_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+OOOOO +OOOOO +OOOOO ",
-"+OXXX. +OXXX. +OXXX. ",
-"+OXXX. +OXXX. +OXXX. ",
-"+O.... +O.... +O.... ",
-"+      +      +      ",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/hseparator.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/hseparator.xpm
deleted file mode 100644 (file)
index 41ad8aa..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/hseparator.xpm
+++ /dev/null
@@ -1,31 +0,0 @@
-/* XPM */
-static char *hseparator_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 4 1",
-"  c #7b7b7b",
-". c #b3cece",
-"X c Gray100",
-"o c None",
-/* pixels */
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"o                   o",
-"oXXXXXXXXXXXXXXXXXXXo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/label.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/label.xpm
deleted file mode 100644 (file)
index 013e13a..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/label.xpm
+++ /dev/null
@@ -1,30 +0,0 @@
-/* XPM */
-static char *label_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 3 1",
-"  c Gray0",
-". c #b3cece",
-"X c None",
-/* pixels */
-"XXXXXXXXXXXXXXXXXXXXX",
-"XXXXXXXXXXXXXXXXXXXXX",
-"XXXXXXXXXXXXXXXXXXXXX",
-"XXXXXXXXXX  XXXXXXXXX",
-"XXXXXXXXX   XXXXXXXXX",
-"XXXXXXXXX   XXXXXXXXX",
-"XXXXXXXX     XXXXXXXX",
-"XXXXXXXX     XXXXXXXX",
-"XXXXXXXX      XXXXXXX",
-"XXXXXXX  X    XXXXXXX",
-"XXXXXXX  X     XXXXXX",
-"XXXXXX  XX     XXXXXX",
-"XXXXXX          XXXXX",
-"XXXXX           XXXXX",
-"XXXXX  XXXXX    XXXXX",
-"XXXX   XXXXX     XXXX",
-"XXX    XXXXX      XXX",
-"XXX     XXX       XXX",
-"XXXXXXXXXXXXXXXXXXXXX",
-"XXXXXXXXXXXXXXXXXXXXX",
-"XXXXXXXXXXXXXXXXXXXXX"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/load_lexer.mll b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/load_lexer.mll
deleted file mode 100644 (file)
index 46aa5ac..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/load_lexer.mll
+++ /dev/null
@@ -1,46 +0,0 @@
-{
-open Load_parser
-} 
-
-rule token = parse
-  [ ' ' '\t' '\n']+     { token lexbuf }
-| "<window"             { WINDOW_START }
-| "</window>"           { WINDOW_END }
-| "name"                { NAME }
-|  '='                  { EQUAL }
-|  '>'                  { SUP }
-
-| "<" ['A'-'Z' 'a'-'z' '0'-'9' '_']+
-  {
-    let l = Lexing.lexeme lexbuf in
-    let s = String.sub l ~pos:1 ~len:(String.length l - 1) in
-    WIDGET_START s
-  }
-
-| "</" ['A'-'Z' 'a'-'z' '0'-'9' '_']+ '>'
-  {
-    let l = Lexing.lexeme lexbuf in
-    let s = String.sub l ~pos:2 ~len:(String.length l - 3) in
-    WIDGET_END s
-  }
-
-| '"' [^ '"']* '"'
-  {
-    let l = Lexing.lexeme lexbuf in
-    let s = String.sub l ~pos:1 ~len:(String.length l - 2) in
-    IDENT s
-  }
-
-| '\'' [^ '\'']* '\''
-  {
-    let l = Lexing.lexeme lexbuf in
-    let s = String.sub l ~pos:1 ~len:(String.length l - 2) in
-    IDENT s
-  }
-
-| ['A'-'Z' 'a'-'z' '0'-'9' '_' '.']+
-  {
-    let s = Lexing.lexeme lexbuf in IDENT s
-  }
-
-| eof               { EOF }

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/load_parser.mly b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/load_parser.mly
deleted file mode 100644 (file)
index 09c7b7b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/load_parser.mly
+++ /dev/null
@@ -1,56 +0,0 @@
-%{
-open Utils
-%}
-
-%token EOF NAME EQUAL SUP WINDOW_START WINDOW_END
-%token <string> WIDGET_START WIDGET_END IDENT
-
-%type <string> window_start
-%type <string * string> property widget_start
-%type <(string * string) list> property_list
-%type <Utils.yywidget_tree> widget window
-%type <Utils.yywidget_tree list> children window_list project
-
-%start project
-%start window
-%start widget
-
-%%
-
-project : window_list EOF        { List.rev $1 }
-
-window_list :                    { [] }
-            | window_list window { $2 :: $1 }
-; 
-
-window : window_start property_list children WINDOW_END 
-  { 
-    Node (("window", $1, List.rev $2), $3)
-  } 
-;
-
-window_start : WINDOW_START NAME EQUAL IDENT SUP   { $4 }
-;
-
-children  :                  { [] }
-         | children widget   { $2 :: $1 }
-;
-
-widget : widget_start property_list children WIDGET_END
-  { 
-    let classe, name = $1 in
-    if classe <> $4 then raise Parsing.Parse_error;
-    Node ((classe, name, List.rev $2), $3)
-  } 
-;
-
-widget_start  : WIDGET_START NAME EQUAL IDENT SUP   { $1, $4 }
-;
-
-property_list :                         { [] }
-              | property_list property  { $2 :: $1 }
-;
-
-property      : IDENT EQUAL IDENT       { $1, $3 }
-;
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/main.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/main.ml
deleted file mode 100644 (file)
index cb150e0..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/main.ml
+++ /dev/null
@@ -1,393 +0,0 @@
-(* $Id$ *)
-
-open GdkKeysyms
-open Gtk
-open GObj
-
-open Utils
-open TiBase
-
-let main_project_modify = ref false
-
-let main_window  = GWindow.window ~title:"ZOOM" ~x:10 ~y:10 ()
-let main_vbox    = GPack.vbox ~packing:main_window#add ()
-let main_menu    = GMenu.menu_bar ~packing:(main_vbox#pack ~expand:false) ()
-
-let can_copy = ref (fun _ -> assert false)
-let can_paste = ref (fun _ -> assert false)
-
-class project () =
-  let project_box = GPack.vbox ~packing:main_vbox#pack () in
-  let project_tree = GTree2.tree ~packing:project_box#pack () in
-  object(self)
-    val mutable window_list = []
-
-(* the selected window *)
-    val mutable selected = (None : window_and_tree option)
-
-    method change_selected sel =
-      match selected with
-      |        None ->
-         selected <- Some sel;
-         sel#project_tree_item#misc#set_state `SELECTED;
-         !can_copy true
-      |        Some old_sel ->
-         if sel = old_sel then begin
-           selected <- None;
-           sel#project_tree_item#misc#set_state `NORMAL;
-           !can_copy false
-         end else begin
-           old_sel#project_tree_item#misc#set_state `NORMAL;
-           selected <- Some sel;
-           sel#project_tree_item#misc#set_state `SELECTED;
-           !can_copy true
-         end
-
-    val mutable filename = ""
-    val mutable dirname = ""
-
-    method set_filename f =
-      let dir, file = split_filename f ~ext:".rad" in
-      filename <- file;
-      dirname <- dir
-
-    method get_filename () =
-      get_filename ~callback:self#set_filename ~dir:dirname ()
-
-    method dirname = dirname
-
-(*    method set_dirname f = dirname <- f *)
-
-    method add_window ~name ?tree:wt () =
-      let wt = match wt with
-      |        None -> new window_and_tree ~name
-      |        Some wt -> wt in
-      let tiwin = wt#tiwin and tw=wt#tree_window in
-      let project_tree_item = wt#project_tree_item in
-      project_tree#append project_tree_item;
-      let show = ref true in
-      project_tree_item#event#connect#button_press ~callback:
-       (fun ev ->
-       match GdkEvent.get_type ev with
-       | `BUTTON_PRESS ->
-           if GdkEvent.Button.button ev = 1 then begin
-             self#change_selected wt
-           end else
-           if GdkEvent.Button.button ev = 3 then begin
-             let menu = GMenu.menu () in
-             let name = wt#tiwin#name in
-             let mi_remove = GMenu.menu_item ~label:("delete " ^ name)
-                 ~packing:menu#append ()
-             and mi_copy = GMenu.menu_item ~label:("copy " ^ name)
-                 ~packing:menu#append ()      
-             and mi_cut = GMenu.menu_item ~label:("cut " ^ name)
-                 ~packing:menu#append () in
-             mi_remove#connect#activate
-               ~callback:(fun () -> self#delete_window wt);
-             mi_copy#connect#activate
-               ~callback:(fun () -> self#copy_wt wt);
-             mi_cut#connect#activate
-               ~callback:(fun () -> self#cut_wt wt);
-             menu#popup ~button:3 ~time:(GdkEvent.Button.time ev)
-           end;
-            GtkSignal.stop_emit ();
-            true
-       | `TWO_BUTTON_PRESS ->
-           if GdkEvent.Button.button ev = 1 then begin
-             if !show then begin
-               show := false;
-               tiwin#widget#misc#hide ();
-               tw#misc#hide ()
-             end
-             else begin
-               show := true;
-               tiwin#widget#misc#show ();
-               tw#misc#show ()
-             end
-           end;
-           true
-       | _ -> false);
-      tiwin#connect_event#delete ~callback:
-       (fun _ -> show := false; tiwin#widget#misc#hide (); true);
-      tw#event#connect#delete ~callback:
-       (fun _ -> show := false; tw#misc#hide (); true);
-      window_list <- wt :: window_list;
-      add_undo (Remove_window name);
-      main_window#misc#set_can_focus false;
-      main_window#misc#grab_focus ()
-
-      
-    method add_window_by_node
-       (Node ((classe, name, proplist), children)) =
-      if classe <> "window"
-      then failwith "add_window_by_node: class <> \"window\"";
-      let name = change_name name in  (* for paste *)
-      let wt = new window_and_tree ~name in
-      let tiwin = wt#tiwin in
-      List.iter proplist ~f:(fun (n,v) -> tiwin#set_property n v);
-      begin match children with
-      | [] -> ()
-      | [ ch ] -> tiwin#add_children_wo_undo ch; ()
-      | _ -> failwith "add_window_by_node: more than one child"
-      end;
-      self#add_window ~name ~tree:wt ()
-
-    method delete_window (wt : window_and_tree) =
-      let tiwin = wt#tiwin in
-      project_tree#remove wt#project_tree_item;
-      tiwin#remove_me ();
-      wt#tree_window#destroy ();
-      window_list <- list_remove ~f:(fun w -> w = wt) window_list
-
-    method delete_window_by_name ~name =
-      let wt = List.find window_list ~f:(fun wt -> wt#tiwin#name = name) in
-      self#delete_window wt
-      
-    method delete () =
-      List.iter window_list
-       ~f:(fun wt -> self#delete_window wt);
-      main_vbox#remove project_box#coerce;
-(* remove after test *)
-      if !name_list <> [] then failwith "name_list not empty"
-
-    method save_as () = if self#get_filename () then self#save ()
-
-    method save () =
-      if filename = "" then self#save_as ()
-      else begin
-       let outch = open_out (dirname ^ filename ^ ".rad") in
-       let f = Format.formatter_of_out_channel outch in
-       List.iter window_list ~f:(fun wt -> wt#tiwin#save f);
-       close_out outch;
-       main_project_modify := false
-      end
-
-    method copy_wt (wt : window_and_tree) =
-      wt#tiwin#copy ();
-      !can_paste true
-
-    method cut_wt (wt : window_and_tree) =
-      self#copy_wt wt;
-      self#delete_window wt
-
-    method copy () =
-      match selected with
-      |        None -> failwith "main_project copy"
-      |        Some sel -> self#copy_wt sel
-
-    method cut () =
-      match selected with
-      |        None -> failwith "main_project cut"
-      |        Some sel -> self#cut_wt sel
-
-    method paste () =
-      let lexbuf = Lexing.from_string !window_selection in
-      let node = Load_parser.window Load_lexer.token lexbuf in
-      self#add_window_by_node node
-
-    method emit () =
-      let outc = open_out (dirname ^ filename ^ ".ml") in
-      let f = Format.formatter_of_out_channel outc in
-      List.iter window_list ~f:(fun wt -> wt#emit f);
-      Format.fprintf f "let main () =@\n";
-(* this is just for demo *)
-      List.iter window_list ~f:
-       begin fun wt ->
-         let name = wt#tiwin#name in
-         Format.fprintf f "  let %s = new %s () in %s#show ();@\n"
-           name name name
-       end;
-      Format.fprintf f
-       "  GMain.Main.main ()@\n@\nlet _ = main ()@\n";
-      close_out outc
-
-  end
-
-
-let main_project = ref (new project ())
-
-let load () =
-  let filename = ref "" in
-  get_filename ~callback:(fun f -> filename := f) ~dir:!main_project#dirname ();
-  if !filename <> "" then begin
-    !main_project#delete ();
-    main_project := new project ();
-    let inch = open_in !filename in
-    let lexbuf = Lexing.from_channel inch in
-    let project_list = Load_parser.project Load_lexer.token lexbuf in
-    close_in inch;
-    List.iter project_list
-      ~f:(fun node -> !main_project#add_window_by_node node);
-    !main_project#set_filename !filename
-  end
-
-
-let interpret_undo = function
-  | Add (parent_name, node, pos) ->
-      let parent = Hashtbl.find widget_map parent_name in
-      parent#add_children node ~pos
-  | Remove child_name ->
-      let child  = Hashtbl.find widget_map child_name in
-      child#remove_me ()
-  | Property (property, value_string) ->
-      property#set value_string
-  | Add_window node -> !main_project#add_window_by_node node
-  | Remove_window name -> !main_project#delete_window_by_name ~name
-
-let undo () =
-  if !last_action_was_undo then begin
-    match !next_undo_info with
-    | hd :: tl -> interpret_undo hd; next_undo_info := tl
-    | [] -> message "no more undo info"
-  end
-  else begin
-    match !undo_info with
-    | hd :: tl -> interpret_undo hd; next_undo_info := tl
-    | [] -> message "no undo info"
-  end;
-  last_action_was_undo := true
-
-
-let targets = [  { target = "STRING"; flags = []; info = 0}  ]
-
-let xpm_window () =
-  let source_drag_data_get classe _ (data : selection_data) ~info ~time =
-    data#set ~typ:data#target ~format:0 ~data:classe in
-  let window = GWindow.window ~title:"icons" ~x:250 ~y:10 () in
-  window#misc#realize ();
-  let vbox = GPack.vbox ~packing:window#add () in
-  let table = GPack.table ~rows:1 ~columns:5 ~border_width:20
-      ~packing:vbox#pack () in
-  let tooltips = GData.tooltips () in
-  let add_xpm ~file ~left ~top ~tip =
-    let gdk_pix = GDraw.pixmap_from_xpm ~file ~window () in
-    let ev = GBin.event_box ~packing:(table#attach ~left ~top) () in
-    let pix = GMisc.pixmap gdk_pix ~packing:ev#add () in
-    ev#event#connect#button_press ~callback:
-      (fun ev -> match GdkEvent.get_type ev with
-       | `BUTTON_PRESS ->
-           if GdkEvent.Button.button ev = 1 then begin
-             !main_project#add_window ~name:(make_new_name "window") ()
-           end;
-           true
-       | _ -> false);
-    tooltips#set_tip ev#coerce ~text:tip
-  in
-  add_xpm ~file:"window.xpm" ~left:0 ~top:0 ~tip:"window";
-  GMisc.separator `HORIZONTAL ~packing:vbox#pack ();
-  let table = GPack.table ~rows:6 ~columns:6 ~packing:vbox#pack
-      ~row_spacings:20 ~col_spacings:20 ~border_width:20 () in
-  let add_xpm file ~left ~top ~classe =
-    let gdk_pix = GDraw.pixmap_from_xpm ~file ~window () in
-    let ev = GBin.event_box ~packing:(table#attach ~left ~top) () in
-    let pix = GMisc.pixmap gdk_pix ~packing:ev#add () in
-    ev#drag#source_set ~modi:[`BUTTON1] targets ~actions:[`COPY];
-    ev#drag#source_set_icon ~colormap:window#misc#style#colormap 
-      gdk_pix; 
-    ev#drag#connect#data_get ~callback:(source_drag_data_get classe);
-    tooltips#set_tip ev#coerce ~text:classe
-  in
-  
-  add_xpm "button.xpm"         ~left:0 ~top:0 ~classe:"button";
-  add_xpm "togglebutton.xpm"   ~left:1 ~top:0 ~classe:"toggle_button";
-  add_xpm "checkbutton.xpm"    ~left:2 ~top:0 ~classe:"check_button";
-  add_xpm "radiobutton.xpm"    ~left:3 ~top:0 ~classe:"radio_button";
-  add_xpm "toolbar.xpm"        ~left:4 ~top:0 ~classe:"toolbar";
-  add_xpm "hbox.xpm"           ~left:0 ~top:1 ~classe:"hbox";
-  add_xpm "vbox.xpm"           ~left:1 ~top:1 ~classe:"vbox";
-  add_xpm "hbuttonbox.xpm"     ~left:2 ~top:1 ~classe:"hbutton_box";
-  add_xpm "vbuttonbox.xpm"     ~left:3 ~top:1 ~classe:"vbutton_box";
-  add_xpm "fixed.xpm"          ~left:4 ~top:1 ~classe:"fixed";
-  add_xpm "frame.xpm"          ~left:0 ~top:2 ~classe:"frame";
-  add_xpm "aspectframe.xpm"    ~left:1 ~top:2 ~classe:"aspect_frame";
-  add_xpm "scrolledwindow.xpm" ~left:2 ~top:2 ~classe:"scrolled_window";
-  add_xpm "eventbox.xpm"       ~left:3 ~top:2 ~classe:"event_box";
-  add_xpm "handlebox.xpm"      ~left:4 ~top:2 ~classe:"handle_box";
-  add_xpm "viewport.xpm"       ~left:5 ~top:2 ~classe:"viewport";
-  add_xpm "hseparator.xpm"     ~left:0 ~top:3 ~classe:"hseparator";
-  add_xpm "vseparator.xpm"     ~left:1 ~top:3 ~classe:"vseparator";
-  add_xpm "clist.xpm"          ~left:2 ~top:3 ~classe:"clist";
-  add_xpm "label.xpm"          ~left:0 ~top:4 ~classe:"label";
-  add_xpm "statusbar.xpm"      ~left:1 ~top:4 ~classe:"statusbar";
-  add_xpm "notebook.xpm"       ~left:2 ~top:4 ~classe:"notebook";
-  add_xpm "colorselection.xpm" ~left:3 ~top:4 ~classe:"color_selection";
-  add_xpm "pixmap.xpm"         ~left:4 ~top:4 ~classe:"pixmap";
-  add_xpm "entry.xpm"          ~left:0 ~top:5 ~classe:"entry";
-  add_xpm "spinbutton.xpm"     ~left:1 ~top:5 ~classe:"spin_button";
-  add_xpm "combo.xpm"          ~left:2 ~top:5 ~classe:"combo";
-
-  window#show ();
-  window
-
-
-let main () =
-  let _ = GMain.Main.init () in
-  let prop_win = Propwin.init () in
-  let palette = xpm_window () in
-  main_window#show ();
-  main_window#connect#destroy ~callback:GMain.Main.quit;
-
-  let mp = main_project in
-  let f = new GMenu.factory main_menu in
-  let accel_group  = f#accel_group in
-  main_window#add_accel_group accel_group;
-  prop_win#add_accel_group accel_group;
-  palette#add_accel_group accel_group;
-
-  let file_menu    = new GMenu.factory (f#add_submenu "File") ~accel_group
-  and edit_menu    = new GMenu.factory (f#add_submenu "Edit") ~accel_group
-  and view_menu    = new GMenu.factory (f#add_submenu "View") ~accel_group
-  and project_menu = new GMenu.factory (f#add_submenu "Project") ~accel_group
-  in
-
-  file_menu#add_item "Quit" ~key:_Q ~callback:GMain.Main.quit;
-
-  project_menu#add_item "New" ~key:_N
-    ~callback:(fun () -> !mp#delete (); mp := new project ());
-  project_menu#add_item "Open..." ~key:_O ~callback:load;
-  project_menu#add_item "Save" ~key:_S ~callback:(fun () -> !mp#save ());
-  project_menu#add_item "Save as..." ~callback:(fun () -> !mp#save_as ());
-  project_menu#add_separator ();
-  project_menu#add_item "Emit code" ~callback:(fun () -> !mp#emit ());
-
-  let copy_item =
-    edit_menu#add_item "Copy" ~key:_C ~callback:(fun () -> !mp#copy ())
-  and cut_item =
-    edit_menu#add_item "Cut" ~key:_X ~callback:(fun () -> !mp#cut ())
-  and paste_item =
-    edit_menu#add_item "Paste" ~key:_V ~callback:(fun () -> !mp#paste ())
-  in
-  can_copy :=
-    (fun b -> copy_item#misc#set_sensitive b; cut_item#misc#set_sensitive b);
-  can_paste := paste_item#misc#set_sensitive;
-  !can_copy false; !can_paste false;
-  edit_menu#add_item "Undo" ~key:_Z ~callback:undo;
-
-  let palette_visible = ref true in
-  palette#event#connect#delete ~callback:
-    (fun _ -> palette_visible := false; palette#misc#hide (); true);
-  view_menu#add_item "Palette"
-    ~callback:(fun () ->
-      if !palette_visible then begin
-       palette#misc#hide ();
-       palette_visible := false
-      end else begin
-       palette#misc#show ();
-       palette_visible := true
-      end);
-  let prop_win_visible = ref true in
-  prop_win#event#connect#delete ~callback:
-    (fun _ -> prop_win_visible := false; prop_win#misc#hide (); true);
-  view_menu#add_item "Properties window"
-    ~callback:(fun () ->
-      if !prop_win_visible then begin
-       prop_win#misc#hide ();
-       prop_win_visible := false
-      end else begin
-       prop_win#misc#show ();
-       prop_win_visible := true
-      end);
-
-  GMain.Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/ml_gtk2.c b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/ml_gtk2.c
deleted file mode 100644 (file)
index 49ce27b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/ml_gtk2.c
+++ /dev/null
@@ -1,124 +0,0 @@
-/* $Id$ */
-
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "../../wrappers.h"
-#include "../../ml_glib.h"
-#include "../../ml_gdk.h"
-#include "../../ml_gtk.h"
-#include "../../gtk_tags.h"
-
-#include "gtktree2.h"
-#include "gtktreeitem2.h"
-
-#include <stdio.h>
-
-value Val_GtkObject_sink (GtkObject *);
-
-#define Val_GtkAny(w) Val_GtkObject((GtkObject*)w)
-#define Val_GtkAny_sink(w) Val_GtkObject_sink((GtkObject*)w)
-
-#define GtkWidget_val(val) check_cast(GTK_WIDGET,val)
-
-/* gtkwidget.h */
-
-
-#define Val_GtkWidget Val_GtkAny
-#define Val_GtkWidget_sink Val_GtkAny_sink
-
-
-/* gtktreeitem2.h */
-
-#define GtkTreeItem2_val(val) check_cast(GTK_TREE_ITEM2,val)
-ML_0 (gtk_tree_item2_new, Val_GtkWidget_sink)
-ML_1 (gtk_tree_item2_new_with_label, String_val, Val_GtkWidget_sink)
-ML_2 (gtk_tree_item2_set_subtree, GtkTreeItem2_val, GtkWidget_val, Unit)
-ML_1 (gtk_tree_item2_remove_subtree, GtkTreeItem2_val, Unit)
-ML_1 (gtk_tree_item2_expand, GtkTreeItem2_val, Unit)
-ML_1 (gtk_tree_item2_collapse, GtkTreeItem2_val, Unit)
-ML_1 (GTK_TREE_ITEM2_SUBTREE, GtkTreeItem2_val, Val_GtkWidget)
-
-/* gtktree2.h */
-
-#define GtkTree2_val(val) check_cast(GTK_TREE2,val)
-ML_0 (gtk_tree2_new, Val_GtkWidget_sink)
-ML_3 (gtk_tree2_insert, GtkTree2_val, GtkWidget_val, Int_val, Unit)
-ML_3 (gtk_tree2_clear_items, GtkTree2_val, Int_val, Int_val, Unit)
-ML_2 (gtk_tree2_select_item, GtkTree2_val, Int_val, Unit)
-ML_2 (gtk_tree2_unselect_item, GtkTree2_val, Int_val, Unit)
-ML_2 (gtk_tree2_select_child, GtkTree2_val, GtkWidget_val, Unit)
-ML_2 (gtk_tree2_unselect_child, GtkTree2_val, GtkWidget_val, Unit)
-ML_2 (gtk_tree2_child_position, GtkTree2_val, GtkWidget_val, Val_int)
-
-/*
-ML_2 (gtk_tree2_set_selection_mode, GtkTree2_val, Selection_mode_val, Unit)
-ML_2 (gtk_tree2_set_view_mode, GtkTree2_val, Tree_view_mode_val, Unit)
-*/
-
-ML_2 (gtk_tree2_set_view_lines, GtkTree2_val, Bool_val, Unit)
-ML_2 (gtk_tree2_item_up, GtkTree2_val, Int_val, Unit)
-ML_3 (gtk_tree2_select_next_child, GtkTree2_val, GtkWidget_val, Bool_val, Unit)
-ML_2 (gtk_tree2_select_prev_child, GtkTree2_val, GtkWidget_val, Unit)
-
-static value val_gtkany (gpointer p) { return Val_GtkAny(p); }
-value ml_gtk_tree2_selection (value tree)
-{
-  GList *selection = GTK_TREE2_SELECTION(GtkTree2_val(tree));
-  return Val_GList(selection, val_gtkany);
-}
-static gpointer gtkobject_val (value val) { return GtkObject_val(val); }
-value ml_gtk_tree2_remove_items (value tree, value items)
-{
-  GList *items_list = GList_val (items, gtkobject_val);
-  gtk_tree2_remove_items (GtkTree2_val(tree), items_list);
-  return Val_unit;
-}
-
-value ml_gtk_tree2_children (value tree)
-{
-  GList *children = (GtkTree2_val(tree))->children;
-  return Val_GList(children, val_gtkany);
-}
-
-
-
-#define GtkToolbar_val(val) check_cast(GTK_TOOLBAR,val)
-/* sets the text of the label of a button; creates the label
-   if necessary */
-value ml_gtk_toolbar2_set_text (value toolbar, value text, value pos)
-{
-  GtkToolbar *t = GtkToolbar_val(toolbar);
-  GtkToolbarChild *ch = (GtkToolbarChild *)g_list_nth_data (t->children, Int_val(pos));
-  GtkWidget *label = ch->label;
-
-  if (label)
-    gtk_label_set_text (GTK_LABEL(label), String_val(text));
-  else {
-    label = ch->label = gtk_label_new (String_val(text));
-    gtk_box_pack_end (GTK_BOX (GTK_BIN(ch->widget)->child), label, FALSE, FALSE, 0);
-    if (t->style != GTK_TOOLBAR_ICONS)
-      gtk_widget_show (label);
-  }
-
-  return Val_unit;
-}
-
-value ml_gtk_toolbar2_set_icon (value toolbar, value icon, value pos)
-{
-  GtkToolbar *t = GtkToolbar_val(toolbar);
-  GtkToolbarChild * ch =
-    (GtkToolbarChild *)g_list_nth_data (t->children, Int_val(pos));
-  GtkWidget *vbox = GTK_BIN(ch->widget)->child;
-  gtk_container_remove (GTK_CONTAINER(vbox), ch->icon);
-  ch->icon = GtkWidget_val(icon);
-  gtk_box_pack_end (GTK_BOX (vbox), ch->icon, FALSE, FALSE, 0);
-  if (t->style != GTK_TOOLBAR_TEXT)
-    gtk_widget_show (ch->icon);
-  
-  return Val_unit;
-}

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/notebook.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/notebook.xpm
deleted file mode 100644 (file)
index 77ac20d..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/notebook.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *notebook_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+OOOOOO.OOOO.OOOO.+++",
-"+OXXXXX.X.X..X.X..+++",
-"+OXXXXX..X.X..X.X.+++",
-"+OXXXXX.X.X..X.X..+++",
-"+OXXXXX.OOOOOOOOOOO +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+O................. +",
-"+                   +",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/pixmap.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/pixmap.xpm
deleted file mode 100644 (file)
index d76a5ec..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/pixmap.xpm
+++ /dev/null
@@ -1,39 +0,0 @@
-/* XPM */
-static char *pixmap_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 12 1",
-"  c Gray0",
-". c #007b00",
-"X c #7b7b7b",
-"o c Blue",
-"O c Green",
-"+ c Cyan",
-"@ c Yellow",
-"# c #d6d6d6",
-"$ c #b3cece",
-"% c Gray87",
-"& c Gray100",
-"* c None",
-/* pixels */
-"*********************",
-"*********************",
-"*********************",
-"*                    ",
-"* +++++%%%&+++++++++ ",
-"* +&&&++%%++&+++XX++ ",
-"* +++++++%+++++X@@X+ ",
-"* ++&&++++XX+++X@@X+ ",
-"* +++++++ XXX&++XX++ ",
-"* &+++++XXXXXX++++&+ ",
-"* +++++        +++++ ",
-"* +++++ ###### +++++ ",
-"* +++++ #o##o# +++++ ",
-"* ..... ###### ..... ",
-"* OOOOO ##oo## OOOOO ",
-"* OOOOO ##oo## OOOOO ",
-"* OOOOO        OOOOO ",
-"* OOOOOOOOOOOOOOOOOO ",
-"*                    ",
-"*********************",
-"*********************"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/property.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/property.ml
deleted file mode 100644 (file)
index 829e40b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/property.ml
+++ /dev/null
@@ -1,175 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GEdit
-open GData
-open GPack
-open GMisc
-open GWindow
-
-open Common
-open Utils
-
-(* external id : 'a -> 'a = "%identity" *)
-
-class virtual vprop ~name ~init ~set =
-  object (self)
-    val mutable s : string = init
-    val name : string = name
-    method private virtual parse : string -> 'a
-    method get = s
-    method set s' =
-      if s' <> s then begin
-       let v = self#parse s' in
-       if (set v) then begin
-         add_undo (Property ((self :> prop), s));
-         s <- s'
-       end
-      end
-    method modified = s <> init
-    method name = name
-    method code = s
-    method virtual range : range
-    method save_code = self#code
-  end
-
-let invalid_prop kind name s =
-  invalid_arg (Printf.sprintf "Property.%s(%s) <- %s" kind name s)
-
-class prop_enum ~values ~name ~init ~set =
-  object (self)
-    inherit vprop ~name ~init ~set
-    method private parse s =
-      try List.assoc s values
-      with Not_found -> invalid_prop "enum" name s
-    method range = Enum (List.map ~f:fst values)
-  end
-
-(* used for radio_button groups; there is nothing to do
-  in radtest when setting a radio_button group, only when writing
-  code or saving *)
-class prop_enum_dyn ~values ~name ~init ~set =
-  object (self)
-    inherit vprop ~name ~init ~set
-    method private parse s = ()
-    method range = Enum (values ())
-  end
-
-let bool_values =
-  [ "true", true; "false", false ]
-
-let shadow_type_values : (string * Tags.shadow_type) list =
-  [ "NONE", `NONE; "IN", `IN; "OUT", `OUT;
-    "ETCHED_IN", `ETCHED_IN; "ETCHED_OUT", `ETCHED_OUT ]
-
-let policy_type_values : (string * Tags.policy_type) list =
-  [ "ALWAYS", `ALWAYS; "AUTOMATIC", `AUTOMATIC ]
-
-let orientation_values : (string * Tags.orientation) list =
-  [ "HORIZONTAL", `HORIZONTAL; "VERTICAL", `VERTICAL ]
-
-let toolbar_style_values : (string * Tags.toolbar_style) list =
-  [ "ICONS", `ICONS; "TEXT", `TEXT; "BOTH", `BOTH ]
-
-let toolbar_space_style_values : (string * [`EMPTY | `LINE]) list =
-  [ "EMPTY", `EMPTY; "LINE", `LINE ]
-
-let relief_style_values : (string * Tags.relief_style) list =
-  [ "NORMAL", `NORMAL; "HALF", `HALF; "NONE", `NONE ]
-
-let position_values : (string * Tags.position) list =
-  [ "LEFT", `LEFT; "RIGHT", `RIGHT; "TOP", `TOP; "BOTTOM", `BOTTOM ]
-
-let combo_use_arrows_values : (string * [ `NEVER | `DEFAULT | `ALWAYS ]) list =
-[ "NEVER", `NEVER; "DEFAULT", `DEFAULT; "ALWAYS", `ALWAYS ] 
-
-let spin_button_update_policy_values :
-    (string * Tags. spin_button_update_policy) list =
-  [ "ALWAYS", `ALWAYS; "IF_VALID", `IF_VALID ]
-
-let button_box_style_values : (string * Tags.button_box_style) list =
-  [ "DEFAULT_STYLE", `DEFAULT_STYLE; "SPREAD", `SPREAD; "EDGE", `EDGE;
-    "START", `START; "END", `END ]
-
-let update_type_values : (string * Tags.update_type) list =
-  [ "CONTINUOUS", `CONTINUOUS; "DISCONTINUOUS", `DISCONTINUOUS;
-    "DELAYED", `DELAYED ]
-
-
-class prop_bool = prop_enum ~values:bool_values
-
-(*
-class prop_variant ~values ~name ~init ~set : prop =
-  object
-    inherit prop_enum ~values ~name ~init ~set
-    method code = "`" ^ s
-  end
-*)
-
-class prop_shadow = prop_enum ~values:shadow_type_values
-class prop_policy = prop_enum ~values:policy_type_values
-class prop_orientation = prop_enum ~values:orientation_values
-class prop_toolbar_style = prop_enum ~values:toolbar_style_values
-class prop_toolbar_space_style = prop_enum ~values:toolbar_space_style_values
-class prop_relief_style = prop_enum ~values:relief_style_values
-class prop_position = prop_enum ~values:position_values
-class prop_combo_use_arrows = prop_enum ~values:combo_use_arrows_values
-class prop_spin_button_update_policy = prop_enum
-    ~values:spin_button_update_policy_values
-class prop_button_box_style = prop_enum ~values:button_box_style_values
-class prop_update_type = prop_enum ~values:update_type_values
-
-class prop_int ~name ~init ~set : prop =
-  object
-    inherit vprop ~name ~init ~set
-    method private parse s =
-      try int_of_string s with _ -> invalid_prop "int" name s
-    method range = Int
-  end
-
-(* NB: float_of_string doesn't raise an exception in case of error *)
-class prop_float ~name ~init ~min ~max ~set : prop =
-  object
-    inherit vprop ~name ~init ~set
-    method private parse s =
-      try float_of_string s with _ -> invalid_prop "float" name s
-    method code =
-      if String.contains s '.' || String.contains s 'e' then s
-      else s ^ ".0"
-    method range = Float(min,max)
-  end
-
-class prop_string ~name ~init ~set : prop =
-  object
-    inherit vprop ~name ~init ~set
-    method private parse s = s
-    method range = String
-    method code = "\"" ^ String.escaped s ^ "\""
-  end
-
-class prop_adjustment ~name ~init ~set : prop =
-  object
-    inherit vprop ~name ~init ~set
-    method private parse = get5floats_from_string
-    method range = Adjust
-  end
-
-class prop_clist_titles ~name ~init ~set : prop =
-  object
-    inherit vprop ~name ~init ~set
-    method private parse = split_string ~sep:' '
-    method range = CList_titles
-    method code = "[ \"" ^
-      String.concat ~sep:"\"; \"" (split_string ~sep:' ' s) ^ "\" ]"
-    method save_code = "\"" ^ s ^ "\""
-  end
-
-class prop_file ~name ~init ~set : prop =
-  object
-    inherit vprop ~name ~init ~set
-    method private parse s = s
-    method range = File
-    method code = "\"" ^ String.escaped s ^ "\""
-  end
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/property.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/property.mli
deleted file mode 100644 (file)
index ccf2650..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/property.mli
+++ /dev/null
@@ -1,96 +0,0 @@
-(* $Id$ *)
-
-open Gtk.Tags
-open Common
-
-class virtual vprop :
-  name:string ->               (* property's name *)
-  init:string ->               (* default value *)
-  set:('a -> bool) ->
-  object
-    val name : string
-    val mutable s : string
-    method code : string       (* encoded value *)
-    method get : string
-    method modified : bool
-    method name : string
-    method private virtual parse : string -> 'a
-    method virtual range : range
-    method save_code : string
-    method set : string -> unit
-  end
-
-class prop_int :
-  name:string -> init:string -> set:(int -> bool) -> prop
-
-class prop_float :
-  name:string ->
-  init:string -> min:float -> max:float -> set:(float -> bool) -> prop
-
-class prop_string :
-  name:string -> init:string -> set:(string -> bool) -> prop
-
-class prop_bool :
-  name:string -> init:string -> set:(bool -> bool) -> prop
-(*
-class prop_variant :
-  values:(string * 'a) list ->
-  name:string -> init:string -> set:('a -> bool) -> prop
-*)
-class prop_shadow :
-  name:string -> init:string -> set:(shadow_type -> bool) -> prop
-
-class prop_policy :
-  name:string -> init:string -> set:(policy_type -> bool) -> prop
-
-class prop_orientation :
-  name:string ->
-  init:string -> set:(Gtk.Tags.orientation -> bool) -> prop
-
-class prop_toolbar_style :
-  name:string ->
-  init:string -> set:(Gtk.Tags.toolbar_style -> bool) -> prop
-
-class prop_toolbar_space_style :
-  name:string -> init:string -> set:([ `EMPTY | `LINE] -> bool) -> prop
-
-class prop_relief_style :
-  name:string ->
-  init:string -> set:(Gtk.Tags.relief_style -> bool) -> prop
-
-class prop_position :
-  name:string ->
-  init:string -> set:(Gtk.Tags.position -> bool) -> prop
-
-class prop_combo_use_arrows :
-  name:string ->
-  init:string -> set:([ `NEVER | `DEFAULT | `ALWAYS] -> bool) -> prop
-
-class prop_spin_button_update_policy :
-  name:string ->
-  init:string -> set:(Gtk.Tags.spin_button_update_policy -> bool) -> prop
-
-class prop_button_box_style :
-  name:string ->
-  init:string -> set:(Gtk.Tags.button_box_style -> bool) -> prop
-
-class prop_update_type :
-  name:string ->
-  init:string -> set:(Gtk.Tags.update_type -> bool) -> prop
-
-class prop_enum_dyn :
-  values:(unit -> string list) -> name:string ->
-  init:string -> set:(unit -> bool) -> prop
-
-class prop_adjustment :
-  name:string -> init:string ->
-    set:(float * float * float * float * float -> bool) -> prop
-
-class prop_clist_titles :
-  name:string -> init:string ->
-    set:(string list -> bool) -> prop
-
-class prop_file :
-  name:string -> init:string -> set:(string -> bool) -> prop
-
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/propwin.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/propwin.ml
deleted file mode 100644 (file)
index 2f8b291..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/propwin.ml
+++ /dev/null
@@ -1,180 +0,0 @@
-(* $Id$ *)
-
-open GObj
-
-open Common
-open Utils
-
-class type tiwidget_base = object
-  method name : string
-  method proplist : (string * prop) list
-end
-
-let prop_widget (prop : prop) =
-  match prop#range with
-    Enum l ->
-      let w = GEdit.combo ~popdown_strings:l ~use_arrows:`ALWAYS () in
-      w#entry#connect#changed ~callback:(fun () -> prop#set w#entry#text);
-      w#entry#set_editable false;
-      w#entry#set_text prop#get;
-      w#coerce
-  | String ->
-      let w = GEdit.entry ~text:prop#get () in
-      w#connect#activate ~callback:(fun () -> prop#set w#text);
-      w#coerce
-  | File ->
-      let w = GPack.hbox () in
-      let e = GEdit.entry ~text:prop#get ~editable:false ~packing:w#pack () in
-      let b = GButton.button ~label:"..." ~packing:w#pack () in
-      b#connect#clicked
-       ~callback:(fun () -> get_filename
-           ~callback:(fun name -> e#set_text name; prop#set name) (); ());
-      w#coerce
-  | Int ->
-      let adjustment =
-       GData.adjustment ~value:(float_of_string prop#get)
-         ~lower:(-2.) ~upper:5000. ~step_incr:1. ~page_incr:10. ~page_size:0. ()
-      in
-      let w = GEdit.spin_button ~rate:0.5 ~digits:0 ~adjustment () in
-      w#connect#activate
-       ~callback:(fun () -> prop#set (string_of_int w#value_as_int));
-      w#coerce
-  | Float (lower, upper) ->
-(*      let adjustment =
-       GData.adjustment ~value:(float_of_string prop#get)
-         ~lower ~upper ~step_incr:((upper-.lower)/.100.)
-         ~page_incr:((upper-.lower)/.10.) ~page_size:0. ()
-      in
-      let w = GEdit.spin_button ~rate:0.5 ~digits:2 ~adjustment () in
-      w#connect#activate
-       ~callback:(fun () -> prop#set (string_of_float w#value));
-      w#coerce
-*)
-      let w = entry_float ~init:(float_of_string prop#get) () in
-      w#connect#activate
-       ~callback:(fun () -> prop#set (string_of_float w#value));
-      w#coerce
-(*  | Adjust ->
-      let wpop = GWindow.window ~title:"Adjustment values" () in
-      let vb = GPack.vbox ~packing:wpop#add()  in
-      let hb1 = GPack.hbox ~packing:vb#pack () in
-      let l1 = GMisc.label ~text:"lower" ~packing:hb1#pack () in
-      let e1 = entry_float ~packing:hb1#pack
-         ~init:(float_of_string prop#get) ~set:prop#set in
-*)    
-  | CList_titles ->
-      let wpop = GWindow.window ~title:"titles of the columns" () in
-      let vb = GPack.vbox ~packing:wpop#add () in
-      let titles = split_string prop#get ~sep:' ' in
-      let n = List.length titles in
-      let rtitles = ref titles in
-      let rget = ref [] and rset = ref [] in
-      for i = 1 to n do
-       match !rtitles with
-       | hd::tl ->
-           let hb = GPack.hbox ~packing:vb#pack () in
-           let _ = GMisc.label ~text:("column" ^ (string_of_int i))
-               ~packing:hb#pack () in
-           let e = GEdit.entry ~text:hd ~packing:hb#pack () in
-           rtitles := tl;
-           rget := (fun () -> e#text) :: !rget;
-           rset := e#set_text :: !rset;
-       | _ -> failwith "CList_titles: this cannot happen!!"
-      done;
-      rtitles := titles;
-      rget := List.rev !rget;
-      rset := List.rev !rset;
-      let hb = GPack.hbox ~packing:vb#pack () in
-      let ok = GButton.button ~label:"OK" ~packing:hb#pack () in
-      let cancel = GButton.button ~label:"Cancel" ~packing:hb#pack () in
-      ok#connect#pressed
-       ~callback:(fun () ->
-         let tit = List.map ~f:(fun f -> f ()) !rget in
-         prop#set (String.concat ~sep:" " tit);
-         rtitles := tit;
-         wpop#misc#hide ());
-      cancel#connect#pressed
-       ~callback:(fun () ->
-         wpop#misc#hide ();
-         List.iter2 ~f:(fun f v -> f v) !rset !rtitles);
-      let e = GEdit.entry ~text:"double click here" ~editable:false () in
-      e#event#connect#button_press ~callback:
-       (fun ev -> 
-          GdkEvent.get_type ev = `TWO_BUTTON_PRESS &&
-         GdkEvent.Button.button ev = 1 &&
-          begin
-           wpop#misc#show ();
-            GtkSignal.stop_emit ();
-            true
-         end);
-      e#coerce
-
-let prop_box list =
-  let vbox = GPack.vbox () in
-  List.iter list ~f:
-    begin fun (name, prop) ->
-      let hbox =
-       GPack.hbox ~homogeneous:true ~packing:(vbox#pack ~expand:false) () in
-      GMisc.label ~text:name ~packing:hbox#pack ();
-      hbox#pack ~fill:true (prop_widget prop);
-      GMisc.separator `HORIZONTAL ~packing:(vbox#pack ~expand:false) ();
-      ()
-    end;
-  vbox
-
-class ['a] frozen lz = object
-  method get : 'a = Lazy.force lz
-end
-
-let vbox =
-  new frozen (lazy (GWindow.window ~show:true ~title:"Properties" ()))
-
-let init () = vbox#get
-
-let widget_pool = Hashtbl.create 7
-
-let boxref = ref None
-let shown_widget = ref ""
-
-let show_prop_box vb =
-  Gaux.may !boxref ~f:vbox#get#remove;
-  vbox#get#add vb#coerce;
-  boxref := Some vb#coerce
-
-let show (w : #tiwidget_base) =
-  let name = w#name in
-  let vb =
-    try
-      Hashtbl.find widget_pool name
-    with Not_found ->
-      let vb = prop_box w#proplist in
-      Hashtbl.add widget_pool ~key:name ~data:vb;
-      vb
-  in
-  show_prop_box vb;
-  shown_widget := name
-
-let add (w : #tiwidget_base) =
-  let vb = prop_box w#proplist in
-  Hashtbl.add widget_pool ~key:w#name ~data:vb
-
-
-let remove name =
-  Hashtbl.remove widget_pool name;
-  if !shown_widget = name then begin
-    shown_widget := "";
-    show_prop_box (GMisc.label ~text:"No widget selected" ())
-  end
-
-(*
-let change_name oldname newname =
-  let vb = Hashtbl.find widget_pool oldname in
-  Hashtbl.remove widget_pool oldname;
-  Hashtbl.add widget_pool ~key:newname ~data:vb
-*)
-
-let update (w : #tiwidget_base) show_modif =
-  let vb = prop_box w#proplist in
-  Hashtbl.remove widget_pool w#name;
-  Hashtbl.add widget_pool ~key:w#name ~data:vb;
-  if show_modif && !shown_widget = w#name then show_prop_box vb

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/propwin.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/propwin.mli
deleted file mode 100644 (file)
index 6636a4f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/propwin.mli
+++ /dev/null
@@ -1,10 +0,0 @@
-(* $Id$ *)
-
-open Common
-
-val init : unit -> GWindow.window
-val show : #tiwidget_base -> unit
-val add : #tiwidget_base -> unit
-val remove : string -> unit
-(* val change_name : string -> string -> unit *)
-val update : #tiwidget_base -> bool -> unit

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/radiobutton.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/radiobutton.xpm
deleted file mode 100644 (file)
index 0f5fbbd..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/radiobutton.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *radiobutton_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"++++++++++.++++++++++",
-"+++++++++...+++++++++",
-"++++++++.. ..++++++++",
-"+++++++.. X ..+++++++",
-"++++++.. XXX ..++++++",
-"+++++.. XXXXX ..+++++",
-"++++++OOXXXXXOO++++++",
-"+++++++OOXXXOO+++++++",
-"++++++++OOXOO++++++++",
-"+++++++++OOO+++++++++",
-"++++++++++O++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/scrolledwindow.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/scrolledwindow.xpm
deleted file mode 100644 (file)
index 44e59f6..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/scrolledwindow.xpm
+++ /dev/null
@@ -1,30 +0,0 @@
-/* XPM */
-static char *scrolledwindow_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 3 1",
-"  c Gray0",
-". c #d6d6d6",
-"X c Gray100",
-/* pixels */
-"XXXXXXXXXXXXXXXXXXXXX",
-"X.............X..... ",
-"X.............X.. .. ",
-"X.............X.   . ",
-"X.............X..... ",
-"X.............X      ",
-"X.............XXXXXX ",
-"X.............XX.... ",
-"X.............XX.... ",
-"X.............XXXXXX ",
-"X.............X..... ",
-"X.............X.   . ",
-"X.............X.. .. ",
-"X.............X..... ",
-"XXXXXXXXXXXXXXX      ",
-"X.... XXX .... ......",
-"X.. . X.. . .. ......",
-"X.  . X.. .  . ......",
-"X.. . X.. . .. ......",
-"X.... X.. .... ......",
-"X              ......"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/spinbutton.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/spinbutton.xpm
deleted file mode 100644 (file)
index f3a313b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/spinbutton.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *spinbutton_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+                   +",
-"+ OOOOOOOOOOO OOOOO +",
-"+ OOOOOOOOOOO OX X. +",
-"+ OOOOOOOOOOO O   . +",
-"+ OOOOOOOOOOO OOOOO +",
-"+ OOOOOOOOOOO O   . +",
-"+ OOOOOOOOOOO OX X. +",
-"+ OOOOOOOOOOO ..... +",
-"+                   +",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/statusbar.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/statusbar.xpm
deleted file mode 100644 (file)
index 8576d88..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/statusbar.xpm
+++ /dev/null
@@ -1,34 +0,0 @@
-/* XPM */
-static char *statusbar_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 7 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray87",
-"+ c Gray100",
-"@ c None",
-/* pixels */
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@+XX.@@@@@@@@@@@@@@",
-"@@@+XX.@@@@@@@@@@@@@@",
-"@@@+XX.@@@@@@@@@@@@@@",
-"@@@+XX.@@@@@@@@@@@@@@",
-"@@@+XX++++++++++++@@@",
-"@@@+XXXXXXXXXXXXXX@@@",
-"@@@+XXXXXXXXXXXXXX@@@",
-"@@@+XX............@@@",
-"@@@+XX.OOOOOOOOOOO@@@",
-"@@@+XX.OOOOOOOOOOO@@@",
-"@@@+XX.OOOOOOOOOOO@@@",
-"@@@+XX++++++++++++@@@",
-"@@@+XXXXXXXXXXXXXX@@@",
-"@@@+XXXXXXXXXXXXXX@@@",
-"@@@               @@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiBase.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiBase.ml
deleted file mode 100644 (file)
index 3907493..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiBase.ml
+++ /dev/null
@@ -1,671 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GObj
-open GContainer
-
-open Utils
-open Common
-open Property
-
-(* possible children; used to make the menus *)
-let widget_add_list =
-  [ "vbox"; "hbox"; "vbutton_box"; "hbutton_box"; "fixed";
-    "frame"; "aspect_frame"; "handle_box"; "event_box";
-    "hseparator"; "vseparator"; "statusbar"; "label"; "notebook";
-    "color_selection";
-    "button";
-    "toggle_button"; "check_button"; "radio_button"; "scrolled_window";
-
-    "entry"; "spin_button"; "combo"; "clist"; "toolbar"]
-
-
-(*********** selection ***********)
-
-let selection = ref ""
-let window_selection = ref ""
-
-
-(**************** signals class ***************)
-
-class tiwidget_signals ~signals =
-  let name_changed : string signal = signals in
-  object
-    val after = false
-    method after = {< after = true >}
-    method name_changed = name_changed#connect ~after
-  end
-
-
-(************* class type ***************)
-(* the ti<gtkwidget> classes encapsulate the corresponding gtk
-   widget which will be in the gtk-window and a tree item
-   labelled with the name of the widget which will be in the
-   tree-window.
-   all these classes have the same following interface *)
-
-class virtual tiwidget0 = object
-  method virtual widget : GObj.widget
-  method virtual connect_event : GObj.event_signals
-  method virtual parent : tiwidget0 option
-  method virtual set_parent : tiwidget0 -> unit
-  method virtual base : GObj.widget
-  method virtual tree_item : GTree2.tree_item
-  method virtual tree : GTree2.tree
-  method virtual children : (tiwidget0 * Gtk.Tags.pack_type) list
-  method virtual name : string
-  method virtual proplist : (string * prop) list
-  method virtual add_to_proplist : (string * prop) list -> unit
-  method virtual change_name_in_proplist : string -> string -> unit
-  method virtual set_property : string -> string -> unit
-  method virtual forall :  callback:(tiwidget0 -> unit) -> unit
-  method virtual remove : tiwidget0 -> unit
-(*  method virtual add_child_with_name : string -> string -> pos:int -> tiwidget0 *)
-  method virtual add_children : ?pos:int -> yywidget_tree -> unit
-  method virtual add_children_wo_undo : ?pos:int -> yywidget_tree -> string
-  method virtual remove_me  : unit -> unit
-  method virtual remove_me_without_undo  : unit -> unit
-  method virtual emit_code : Format.formatter -> char list -> unit
-  method virtual emit_init_code : Format.formatter -> packing:string -> unit
-  method virtual emit_method_code : Format.formatter -> unit
-  method virtual emit_initializer_code : Format.formatter -> unit
-  method virtual save : Format.formatter -> unit
-  method virtual copy : unit -> unit
-  method virtual connect : tiwidget_signals
-  method virtual disconnect : GtkSignal.id -> bool
-  method virtual child_up : tiwidget0 -> unit
-  method virtual up : unit -> unit
-  method virtual child_down : tiwidget0 -> unit
-  method virtual down : unit -> unit
-  method virtual next : tiwidget0
-  method virtual next_child : tiwidget0 -> tiwidget0
-  method virtual last : tiwidget0
-  method virtual prev : tiwidget0
-  method virtual set_full_menu : bool -> unit
-end
-
-class virtual window_and_tree0 = object
-  method virtual tiwin : tiwidget0
-(*  method virtual tree_window : window *)
-  method virtual change_selected : tiwidget0 -> unit
-  method virtual remove_sel : tiwidget0 -> unit
-  method virtual add_param : char
-  method virtual remove_param : char -> unit
-(*  method virtual emit : unit -> unit *)
-end
-
-(* forward declaration of function new_widget *)
-let new_tiwidget :
-    (classe:string -> ?pos:int -> name:string ->parent_tree:GTree2.tree ->
-      ?insert_evbox:bool -> ?listprop:(string * string) list -> window_and_tree0 -> tiwidget0) ref =
-  ref (fun ~classe ?pos ~name ~parent_tree ?insert_evbox ?listprop w -> failwith "new_tiwidget")
-
-
-let widget_map = Hashtbl.create 17
-
-(* list of names of radio_buttons (for groups) *)
-let radio_button_pool = ref []
-
-
-(************* window creation class *************)
-(* an instance of this class is created for each window opened
-   in radtest. It contains the tree window and the gtk window (tiwin) *)
-
-class window_and_tree ~name =
-  let tree_window = GWindow.window ~show:true ~title:(name ^ "-Tree") () in
-  let vbox = GPack.vbox ~spacing:2 ~packing:tree_window#add () in
-  let root_tree = GTree2.tree ~packing:vbox#pack ~selection_mode:`EXTENDED () in
-  let project_tree_item = GTree2.tree_item () in
-  let label = GMisc.label ~text:name ~xalign:0. ~yalign:0.5
-      ~packing:project_tree_item#add () in
-
-  object(self)
-
-    inherit window_and_tree0
-
-(* the params of the window class; because the class clist needs a param
-   I suppose there will be no more than 26 clists in a single window    *)
-    val param_list = Array.create 26 false
-
-    method add_param =
-      let i = ref 0 in
-      while param_list.(!i) do incr i done;
-      param_list.(!i) <- true;
-      char_of_int (97 + !i)
-
-    method remove_param c =
-      param_list.(int_of_char c - 97) <- false
-
-    method private param_list =
-      let r = ref [] in
-      for i = 25 downto 0 do
-       if Array.unsafe_get param_list i then r := (char_of_int (i+97)) :: !r
-      done;
-      !r
-
-(* I use magic here because the real initialization is done
-   below in the initializer part. It can't be done here because
-   of the call to self *)
-    val mutable tiwin = (Obj.magic 0 : tiwidget0)
-
-    method tiwin = tiwin
-    method tree_window = tree_window
-
-    method project_tree_item = project_tree_item
-
-(* the selected item in this window *)
-    val mutable selected = (None : tiwidget0 option)
-
-(* what to do when a new item is selected.
-   this method is passed to all the tiwidgets (by the select_fun
-   parameter) and they will call it when they are clicked on;
-   she is also called when changing the selection the arrow keys
-   (see in the initializer part) *)
-    method change_selected sel =
-      match selected with
-      |        None ->
-         selected <- Some sel;
-         sel#tree_item#misc#set_state `SELECTED;
-         sel#base#misc#set_state `SELECTED;
-         Propwin.show sel
-      |        Some old_sel ->
-         if sel = old_sel then begin
-           selected <- None;
-           sel#base#misc#set_state `NORMAL;
-           sel#tree_item#misc#set_state `NORMAL
-         end else begin
-           old_sel#tree_item#misc#set_state `NORMAL;
-           old_sel#base#misc#set_state `NORMAL;
-           selected <- Some sel;
-           sel#tree_item#misc#set_state `SELECTED;
-           sel#base#misc#set_state `SELECTED;
-           Propwin.show sel
-         end
-
-(* the tiwidget tiw is being removed; if it was selected,
-   put the selection to None *)
-    method remove_sel tiw =
-      match selected with
-      |        Some sel when sel = tiw -> selected <- None
-      |        _ -> ()
-
-(* emits the code corresponding to this window *)
-    method emit c = tiwin#emit_code c self#param_list;
-
-    method delete () =
-      tiwin#remove_me_without_undo ();
-      tree_window#destroy ();
-
-    initializer
-      tiwin <- !new_tiwidget ~classe:"window" ~name ~parent_tree:root_tree
-         (self : #window_and_tree0 :> window_and_tree0);
-
-      tiwin#connect#name_changed ~callback:
-         (fun n -> label#set_text n; tree_window#set_title (n ^ "-Tree"));
-
-      Propwin.show tiwin;
-
-      tree_window#event#connect#key_press ~callback:
-       begin fun ev ->
-         let state = GdkEvent.Key.state ev in
-         let keyval = GdkEvent.Key.keyval ev in
-         if keyval = GdkKeysyms._Up then begin
-           match selected with
-           | None -> ()
-           | Some t -> 
-               if List.mem `CONTROL state then t#up ()
-               else try
-                 self#change_selected t#prev
-               with Not_found -> ()
-         end
-         else if keyval = GdkKeysyms._Down then begin
-           match selected with
-           | None -> ()
-           | Some t -> 
-               if List.mem `CONTROL state then t#down ()
-               else try
-                 self#change_selected t#next
-               with Not_found -> ()
-         end;
-         GtkSignal.stop_emit ();
-          true
-       end;
-      ()
-  end
-
-
-
-(***************** class implementation *****************)
-(* this is the base class of the ti<gtkwidget> hierarchy.
-   all these classes will inherit from tiwidget, but without
-   adding new methods. In this way all the classes have the
-   same interface and we can use them in lists, pass them to
-   functions without caring on the type.
-   All methods needed by any of the classes are defined in
-   tiwidget but if a method is not pertinent in tiwidget
-   it has for implementation:
-      failwith "<name of the method>"
-   the real implementation of the method is done in the
-   class (or classes) in which it is needed (or sometimes
-   in tiwidget anyway).
-   Additionally, to workaround some problem with recursive types
-   the type of the (public) methods of tiwidget is defined in
-   tiwidget0 of which tiwidget inherits.
-   The parent_tree parameter is the tree in which the
-   tiwidget#tree_item will be inserted at position :pos.
-*)
-
-class virtual tiwidget ~name ~parent_tree:(parent_tree : GTree2.tree) ~pos
-    ~widget ?(insert_evbox=true) (parent_window : window_and_tree0) =
-object(self)
-
-  inherit tiwidget0
-  inherit has_ml_signals
-
-  val evbox =
-    if insert_evbox then
-      let ev = GBin.event_box () in ev#add widget#coerce; Some ev
-    else None
-
-(* used only for windows delete_event *)
-  method connect_event = failwith "tiwidget::connect_event"
-
-  val widget = widget#coerce
-  method widget = widget
-
-  val mutable parent = None
-  method set_parent p = parent <- Some p
-  method parent =  parent
-  method private sure_parent =
-    match parent with
-    | None -> failwith "sure_parent"
-    | Some p -> p
-
-  method base =
-    match evbox with
-    | None -> widget#coerce
-    | Some ev -> ev#coerce
-
-(* this is the name used in new_tiwidget for the creation
-   of an object of this class *)
-  val mutable classe = ""
-
-  val tree_item = GTree2.tree_item ()
-  method tree_item = tree_item
-
-  val mutable stree = GTree2.tree ()
-  method tree = stree
-
-  val label = GMisc.label ~text:name ~xalign:0. ~yalign:0.5 ()
-
-  val mutable name : string = name
-  method name = name
-
-(* this is the complete name for the creation of the widget
-   in lablgtk e.g. GPack.vbox; used in emit_init_code *)
-  method private class_name = ""
-
-  val mutable proplist : (string * prop) list = []
-  method proplist = proplist
-  method private get_mandatory_props = []
-
-  method add_to_proplist plist = proplist <- proplist @ plist
-
-(* for children of a box *)
-  method change_name_in_proplist : string -> string -> unit =
-    fun _ _ -> ()
-  method set_property name value_string = try
-    (List.assoc name proplist)#set value_string
-  with Not_found -> Printf.printf "Property not_found %s, %s\n" name value_string;
-    flush stdout
-
-  method private get_property name =
-    (List.assoc name proplist)#get
-
-
-(* the proplist with some items removed e.g. the expand... in a box
-   used for saving and emitting code *)
-  method private emit_clean_proplist =
-    List.fold_left ~f:(fun l p -> List.remove_assoc p l)
-      ~init:proplist
-      ([ "name"; "expand"; "fill"; "padding" ] @ self#get_mandatory_props)
-(*  method private emit_clean_proplist plist =
-    List.fold_left ~init:plist ~f:
-      (fun pl propname -> List.remove_assoc propname pl)
-       [ "name"; "expand"; "fill"; "padding" ]
-*)
-
-  method private save_clean_proplist =
-    List.fold_left ~f:(fun l p -> List.remove_assoc p l)
-      ~init:proplist ("name" :: self#get_mandatory_props)
-(*  method private save_clean_proplist =
-    List.remove_assoc "name" proplist *)
-
-  val mutable children : (tiwidget0 * Gtk.Tags.pack_type) list = []
-  method children = children
-  method forall =
-    fun ~callback -> List.iter (List.map children ~f:fst) ~f:callback
-
-(* encapsulate container#add and container#remove 
-   they are here because they depend on the type of the widget:
-   e.g.: gtkbin->add scrolled_window->add_with_viewport box->pack *)
-  method private add = failwith (name ^ "::add")
-  method remove = failwith (name ^ "::remove")
-
-
-(* removes self from his parent;
-   will be different for a window *)
-  method remove_me () =
-    let sref = ref "" in
-    self#save_to_string sref;
-    let pos = list_pos ~item:(self : #tiwidget0 :> tiwidget0)
-       (List.map self#sure_parent#children ~f:fst) in
-    let lexbuf = Lexing.from_string !sref in
-    let node = Load_parser.widget Load_lexer.token lexbuf in
-    add_undo (Add (self#sure_parent#name, node, pos));
-    self#remove_me_without_undo ()
-
-  method remove_me_without_undo () =
-(* it should be enough to only recursively remove the children from the
-   name_list and do the tip#remove and tip#tree#remove
-   only for self *)
-    self#forall ~callback:(fun tiw -> tiw#remove_me_without_undo ());
-    parent_window#remove_sel (self : #tiwidget0 :> tiwidget0);
-    match parent with
-    | None -> failwith "remove without parent"
-    | Some (tip : #tiwidget0) ->
-       tip#tree#remove tree_item;
-       tip#remove (self : #tiwidget0 :> tiwidget0);
-       name_list := list_remove !name_list ~f:(fun n -> n=name);
-       Hashtbl.remove widget_map name;
-       Propwin.remove name
-
-(* used for undo *)
-  method private remove_child_by_name name () =
-    let child = fst (List.find children
-       ~f:(fun (ch, _) -> ch#name = name)) in
-    child#remove_me ()
-
-(* for most widgets we make a child with new_tiwidget and then add it
-   to self; for toolbars we use toolbar#insert_button...     *)
-      method private make_child = !new_tiwidget
-
-(* adds a child and shows his properties;
-   used when adding a child by the menu or DnD *)
-  method private add_child classe ?name ?(undo = true) ?(affich = true) ?(pos = -1) ?(listprop = []) () =
-    let name = match name with
-    | None -> make_new_name classe
-    | Some n -> n in
-    let child = self#make_child ~classe ~name ~parent_tree:stree parent_window ~pos ~listprop in
-    child#set_parent (self : #tiwidget0 :> tiwidget0);
-    self#add child ~pos;
-    if affich then Propwin.show child;
-    if undo then add_undo (Remove name);
-    child
-
-
-(* adds the subtree saved in the Node *)
-  method add_children ?(pos = -1) node =
-    let child_name = self#add_children_wo_undo node ~pos in
-    add_undo (Remove child_name)
-
-  method add_children_wo_undo ?(pos = -1) (Node (child, children)) =
-    let classe, name, property_list = child in
-    let rname = change_name name in
-    let tc = self#add_child classe ~name:rname ~undo:false ~affich:false ~pos ~listprop:property_list () in
-    List.iter (List.rev children)
-      ~f:(fun c -> tc#add_children_wo_undo c; ());
-    List.iter property_list ~f:(fun (n,v) -> tc#set_property n v);
-    rname
-
-(* only a tiwindow can emit code *)
-  method emit_code = failwith "emit_code"
-
-(* some methods for emitting code *)
-(* this one calculates the expand, fill and padding parameters
-   of a box child *)
-  method private get_packing packing =
-    let aux name =
-      let prop  = List.assoc name proplist in
-      if prop#modified then " ~" ^ name ^ ":" ^ prop#code else ""
-    in
-    let efp = try
-      (aux "expand") ^ (aux "fill") ^ (aux "padding")
-    with Not_found -> "" in
-    if efp = "" then ("~packing:" ^ packing)
-    else ("~packing:(" ^ packing ^ efp ^ ")")
-
-(* this one emits the declaration code of the widget *)
-  method emit_init_code formatter ~packing =
-    Format.fprintf formatter "@ @[<hv 2>let %s =@ @[<hov 2>%s"
-      name self#class_name;
-    List.iter self#get_mandatory_props
-      ~f:begin fun name ->
-       Format.fprintf formatter "@ ~%s:%s" name
-         (List.assoc name proplist)#code
-      end;
-    let packing = self#get_packing packing in
-    if packing <> "" then Format.fprintf formatter "@ %s" packing;
-    self#emit_prop_code formatter;
-    Format.fprintf formatter "@ ()@ in@]@]"
-
-(* this one emits the properties which do not have their
-   default value; used by emit_init_code *)
-  method private emit_prop_code formatter =
-    let mandatory = self#get_mandatory_props in
-    List.iter self#emit_clean_proplist ~f:
-      begin  fun (name, prop) ->
-       if List.mem name mandatory then () else
-       if prop#modified then
-         Format.fprintf formatter "@ ~%s:%s" prop#name prop#code
-      end
-
-(* this one emits the method returning this widget *)
-  method emit_method_code formatter =
-    Format.fprintf formatter "@ method %s = %s" name name;
-
-(* emits the code in the initializer part for this widget *)
-  method emit_initializer_code _ = ()
-
-(* for saving the project to a file. Used also by copy and cut *)
-  method private save_start formatter =
-    Format.fprintf formatter "@\n@[<2><%s name=%s>" classe name;
-    List.iter
-      ~f:(fun p -> Format.fprintf formatter 
-         "@\n%s=\"%s\"" p (List.assoc p proplist)#get)
-      self#get_mandatory_props
-      
-
-  method private save_end formatter =
-    Format.fprintf formatter "@]@\n</%s>" classe
-
-  method save formatter =
-    self#save_start formatter;
-    List.iter self#save_clean_proplist ~f:
-      (fun (name, prop) ->
-       if prop#modified then
-         Format.fprintf formatter "@\n%s=%s" name prop#save_code);
-    self#forall ~callback:(fun w -> w#save formatter);
-    self#save_end formatter
-
-
-  method private save_to_string string_ref =
-    let b = Buffer.create 80 in
-    let f = Format.formatter_of_buffer b in
-    self#save f;
-    Format.pp_print_flush f ();
-    string_ref := Buffer.contents b
-
-  method private copy_to_sel selection = self#save_to_string selection
-
-  method copy () = self#copy_to_sel selection
-
-  method private cut () =
-    self#copy ();
-    self#remove_me ()
-
-  method private paste () =
-    let lexbuf = Lexing.from_string !selection in
-    let node = Load_parser.widget Load_lexer.token lexbuf in
-    self#add_children node
-    
-
-(* ML signal used when the name of the widget is changed *)
-  val name_changed : string signal = new signal
-  method connect = new tiwidget_signals ~signals:name_changed
-  method private call_name_changed = name_changed#call
-
-
-(* this is necessary because gtk_tree#remove deletes the tree
-   when removing the last item  *)
-(* suppressed this in gtktree2 
-  method new_tree () =
-    stree <- GTree2.tree;
-    tree_item#set_subtree stree;
-    tree_item#expand ()
-*)
-
-(* when full_menu is true we use the menu else the restricted menu *)
-  val mutable full_menu  = true
-  method set_full_menu b = full_menu <- b
-
-(* the menu for this widget 
-   This menu is recalculated when one clicks on the 3rd button.
-   There is nothing to do e.g. when the name of the widget changes,
-   it will change in the menu the next time. *)
-  method private menu ~time = self#restricted_menu ~time
-
-(* the restricted menu for this widget 
-   used for containers when they are full *)
-  method private restricted_menu ~time =
-    let menu = GMenu.menu () in
-    let mi_remove = GMenu.menu_item ~packing:menu#append       ~label:"remove" ()
-    and mi_cut  = GMenu.menu_item ~packing:menu#append ~label:"Cut" ()
-    and mi_copy = GMenu.menu_item ~packing:menu#append ~label:"Copy" () in
-    mi_remove#connect#activate ~callback:self#remove_me;
-    mi_copy#connect#activate ~callback:self#copy;
-    mi_cut#connect#activate ~callback:self#cut;
-    menu#popup ~button:3 ~time
-
-(* changes all that depends on the name *)
-  method private set_new_name new_name =
-    if test_unique new_name then begin
-      Hashtbl.remove widget_map name;
-      Hashtbl.add widget_map ~key:new_name
-       ~data:(self : #tiwidget0 :> tiwidget0);
-      if (classe = "radio_button") then begin
-       radio_button_pool := new_name ::
-         (list_remove !radio_button_pool ~f:(fun x -> x = name));
-       List.iter
-         ~f:(fun x -> Propwin.update (Hashtbl.find widget_map x) false)
-         !radio_button_pool
-      end;
-      label#set_text new_name;
-      let old_name = name in
-      name <- new_name;
-(*      Propwin.change_name old_name new_name; *)
-      name_list :=
-       new_name :: (list_remove !name_list ~f:(fun n -> n=old_name));
-      begin match self#parent with
-      | None -> ()
-      | Some p -> p#change_name_in_proplist old_name new_name
-      end;
-      self#call_name_changed new_name;
-      true
-    end
-    else begin
-      message_name ();
-      Propwin.update self true;
-      false
-    end
-
-
-(* moves the present tiw up in his parents' children list *)
-(* does something only when the parent is a box *)
-  method child_up = fun _ -> ()
-
-  method up () = match parent with
-  | None -> ()
-  | Some t -> t#child_up (self : #tiwidget0 :> tiwidget0)
-
-  method child_down = fun _ -> ()
-
-  method down () = match parent with
-  | None -> ()
-  | Some t -> t#child_down (self : #tiwidget0 :> tiwidget0)
-
-
-(* get the next tiwidget in the tree (used with Down arrow) *)
-  method next =
-    if children <> [] then fst (List.hd children)
-    else begin
-      match parent with
-      |        None -> raise Not_found
-      |        Some p -> p#next_child (self : #tiwidget0 :> tiwidget0)
-    end
-
-  method next_child child =
-    let _, tl = cut_list ~item:child (List.map ~f:fst children) in
-    match tl with
-    | ch :: next :: _ -> next
-    | ch :: [] -> begin
-       match parent with
-       | None -> raise Not_found
-       | Some p -> p#next_child (self : #tiwidget0 :> tiwidget0)
-    end
-    | _ -> failwith "next_child"
-
-(* get the last child of the last child ... of our last child.
-   Used by prev. *)
-  method last =
-    if children = [] then (self : #tiwidget0 :> tiwidget0)
-    else (fst (List.hd (List.rev children)))#last
-
-(* get the previous tiwidget in the tree (used with Up arrow) *)
-  method prev =
-    match parent with
-    | None -> raise Not_found
-    | Some p ->
-       let hd, _ = cut_list ~item:(self : #tiwidget0 :> tiwidget0)
-           (List.map ~f:fst p#children) in
-       match hd with
-       | [] -> p
-       | h :: _ -> h#last
-
-  initializer
-    Hashtbl.add widget_map ~key:name ~data:(self : #tiwidget0 :> tiwidget0);
-    name_list := name :: !name_list;
-    parent_tree#insert tree_item ~pos;
-    tree_item#set_subtree stree;
-    tree_item#add label#coerce;
-    tree_item#expand ();
-
-    proplist <-  proplist @
-      [ "name",
-        new prop_string ~name:"name" ~init:name ~set:self#set_new_name; 
-        "width", new prop_int ~name:"width" ~init:"-2"
-         ~set:(fun v -> widget#misc#set_geometry ~width:v (); true);
-        "height", new prop_int ~name:"height" ~init:"-2"
-         ~set:(fun v -> widget#misc#set_geometry ~height:v (); true) ];
-
-    self#add_signal name_changed;
-
-    tree_item#event#connect#button_press ~callback:
-      (fun ev -> match GdkEvent.get_type ev with
-      | `BUTTON_PRESS ->
-         if GdkEvent.Button.button ev = 1 then begin
-           parent_window#change_selected
-             (self : #tiwidget0 :> tiwidget0);
-         end
-         else if GdkEvent.Button.button ev = 3 then begin
-           if full_menu
-           then self#menu ~time:(GdkEvent.Button.time ev)
-           else self#restricted_menu ~time:(GdkEvent.Button.time ev);
-         end;
-         GtkSignal.stop_emit ();
-          true
-      | _ -> false);
-    ()
-end
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiBin.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiBin.ml
deleted file mode 100644 (file)
index 5ebcb3e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiBin.ml
+++ /dev/null
@@ -1,185 +0,0 @@
-open Gtk
-
-open Utils
-open Property
-
-open TiContainer
-
-class tiframe ~(widget : GBin.frame) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object
-  val frame = widget
-  inherit ticontainer ~name ~widget ~parent_tree ~pos
-      ~insert_evbox parent_window as container
-
-  method private class_name = "GBin.frame"
-
-  method private get_mandatory_props = [ "label" ]
-
-  initializer
-    classe <- "frame";
-    frame#set_label name;
-    proplist <- proplist @
-      [ "label",
-       new prop_string ~name:"label" ~init:name ~set:(ftrue frame#set_label);
-       "label_xalign",
-       new prop_float ~name:"label_xalign" ~init:"0.0" ~min:0. ~max:1.
-            ~set:(fun x -> frame#set_label_align ~x (); true);
-       "shadow_type",
-       new prop_shadow ~name:"shadow_type" ~init:"ETCHED_IN"
-         ~set:(ftrue frame#set_shadow_type) ]
-end
-
-let new_tiframe ~name ?(listprop = []) =
-  new tiframe ~widget:(GBin.frame ()) ~name
-
-
-
-
-class tiaspect_frame ~(widget : GBin.aspect_frame) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object
-  val aspect_frame = widget
-  inherit tiframe ~name ~widget:(widget :> GBin.frame) ~parent_tree ~pos
-      ~insert_evbox parent_window
-
-  method private class_name = "GBin.aspect_frame"
-
-  initializer
-    classe <- "aspect_frame";
-    frame#set_label name;
-    proplist <- proplist @
-      [ "obey_child",
-       new prop_bool ~name:"obey_child" ~init:"true"
-         ~set:(ftrue aspect_frame#set_obey_child);
-       "ratio",
-       new prop_float ~name:"ratio" ~init:"1.0" ~min:0. ~max:1.
-            ~set:(ftrue aspect_frame#set_ratio)
-      ]        
-end
-
-let new_tiaspect_frame ~name ?(listprop = []) =
-  new tiaspect_frame ~widget:(GBin.aspect_frame ()) ~name
-
-
-
-
-class tievent_box ~(widget : GBin.event_box) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object
-  val event_box = widget
-  inherit ticontainer ~name ~widget ~parent_tree ~pos
-      ~insert_evbox parent_window
-
-  method private class_name = "GBin.event_box"
-  initializer
-    classe <- "event_box"
-end
-
-let new_event_box ~name ?(listprop = []) =
-  new tievent_box ~widget:(GBin.event_box ()) ~name
-
-
-
-
-class tihandle_box ~(widget : GBin.handle_box) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object
-  val handle_box = widget
-  inherit ticontainer ~name ~widget ~parent_tree ~pos
-      ~insert_evbox parent_window
-
-  method private class_name = "GBin.handle_box"
-
-  initializer
-    classe <- "handle_box";
-    proplist <- proplist @
-      [ "shadow_type",
-       new prop_shadow ~name:"shadow_type" ~init:"OUT"
-         ~set:(ftrue handle_box#set_shadow_type);
-       "handle_position",
-       new prop_position ~name:"handle_position" ~init:"LEFT"
-         ~set:(ftrue handle_box#set_handle_position);
-       "snap_edge",
-       new prop_position ~name:"snap_edge" ~init:"TOP"
-         ~set:(ftrue handle_box#set_snap_edge)
-      ]
-end
-
-let new_handle_box ~name ?(listprop = []) =
-  new tihandle_box ~widget:(GBin.handle_box ()) ~name
-
-
-
-
-
-class tiviewport ~(widget : GBin.handle_box) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object
-  val viewport = widget
-  inherit ticontainer ~name ~widget ~parent_tree ~pos
-      ~insert_evbox parent_window
-
-  method private class_name = "GBin.viewport"
-
-  initializer
-    classe <- "viewport";
-    proplist <- proplist @
-      [ "shadow_type",
-       new prop_shadow ~name:"shadow_type" ~init:"OUT"
-         ~set:(ftrue viewport#set_shadow_type)
-      ]
-end
-
-let new_viewport ~name ?(listprop = []) =
-  new tiviewport ~widget:(GBin.handle_box ()) ~name
-
-
-
-
-
-class tiscrolled_window ~(widget : GBin.scrolled_window)
-    ~name ~parent_tree ~pos ?(insert_evbox=true) parent_window =
-  object(self)
-    val scrolled_window = widget
-    inherit ticontainer ~name ~insert_evbox
-       ~parent_tree ~pos ~widget parent_window
-
-    method private class_name = "GBin.scrolled_window"
-    method private name_of_add_method = "#add_with_viewport"
-
-    method private add rw ~pos =
-      scrolled_window#add_with_viewport (rw#base);
-      children <- [ rw, `START];
-      self#set_full_menu false;
-      tree_item#drag#dest_unset ()
-
-(* we must remove the child from the viewport,
-   not from the scrolled_window;
-   it is not mandatory to remove the viewport
-   from the scrolled_window *)
-    method remove child =
-      let viewport = (new GContainer.container (GtkBase.Container.cast (List.hd scrolled_window#children)#as_widget)) in
-      viewport#remove child#base;
-(*      scrolled_window#remove (List.hd scrolled_window#children); *)
-      children <- [ ];
-      self#set_full_menu true;
-      tree_item#drag#dest_set ~actions:[`COPY]
-       [ { target = "STRING"; flags = []; info = 0} ]
-
-
-    initializer
-      classe <- "scrolled_window";
-      proplist <- proplist @
-       [ "hscrollbar_policy",
-         new prop_policy ~name:"hscrollbar_policy" ~init:"ALWAYS"
-           ~set:(ftrue scrolled_window#set_hpolicy);
-         "vscrollbar_policy",
-         new prop_policy ~name:"vscrollbar_policy" ~init:"ALWAYS"
-           ~set:(ftrue scrolled_window#set_vpolicy) ]
-end
-
-let new_tiscrolled_window ~name ?(listprop = []) =
-  new tiscrolled_window ~widget:(GBin.scrolled_window ()) ~name
-
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiButton.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiButton.ml
deleted file mode 100644 (file)
index 174c6eb..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiButton.ml
+++ /dev/null
@@ -1,372 +0,0 @@
-open Utils
-open Property
-
-open TiBase
-open TiContainer
-
-(* the button inherits from widget because it can't accept
-   a child; 
-   needs to add the border_width property *)
-class tibutton ~(widget : #GButton.button) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val button = widget
-  inherit tiwidget ~name ~widget ~parent_tree ~pos ~insert_evbox
-       parent_window as widget
-
-  method private class_name = "GButton.button"
-
-  method private get_mandatory_props = [ "label" ]
-
-  initializer
-    classe <- "button";
-    proplist <-  proplist @
-      [ "border_width",        new prop_int ~name:"border_width" ~init:"0"
-                         ~set:(ftrue button#set_border_width);
-       "label",
-       new prop_string ~name:"label" ~init:name ~set:
-         begin fun v ->
-           button#remove (List.hd button#children)#coerce;
-           GMisc.label ~text:v ~xalign:0.5 ~yalign:0.5 ~packing:button#add ();
-           true
-         end ]
-end
-
-let new_tibutton ~name ?(listprop = []) =
-  let b = GButton.button ~label:name () in
-  b#event#connect#enter_notify
-    ~callback:(fun _ -> GtkSignal.stop_emit (); true);
-  b#event#connect#leave_notify
-    ~callback:(fun _ -> GtkSignal.stop_emit (); true);
-  new tibutton ~widget:b ~name
-
-
-class ticheck_button ~(widget : #GButton.toggle_button) ~name
-    ~parent_tree ~pos ?(insert_evbox=true) parent_window =
-object(self)
-  val button = widget
-  inherit tiwidget ~name ~widget ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-
-  method private class_name = "GButton.check_button"
-
-  method private get_mandatory_props = [ "label" ]
-
-  initializer
-    classe <- "check_button";
-    proplist <-  proplist @
-      [ "border_width",        new prop_int ~name:"border_width" ~init:"0"
-                        ~set:(ftrue button#set_border_width);
-       "label",
-       new prop_string ~name:"label" ~init:name ~set:
-         begin fun v ->
-           button#remove (List.hd button#children)#coerce;
-           GMisc.label ~text:v ~xalign:0.5 ~yalign:0.5 ~packing:button#add ();
-           true
-         end
-      ]
-end
-
-let new_ticheck_button ~name ?(listprop = []) =
-  new ticheck_button ~widget:(GButton.check_button ~label:name ()) ~name
-
-
-
-class titoggle_button ~(widget : #GButton.toggle_button) ~name
-    ~parent_tree ~pos ?(insert_evbox=true) parent_window =
-object(self)
-  val button = widget
-  inherit tiwidget ~name ~widget ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  method private class_name = "GButton.toggle_button"
-
-  method private get_mandatory_props = [ "label" ]
-
-  initializer
-    classe <- "toggle_button";
-    proplist <-  proplist @
-      [ "border width",        new prop_int ~name:"border_width" ~init:"0"
-                         ~set:(ftrue button#set_border_width);
-       "label",
-       new prop_string ~name:"label" ~init:name ~set:
-         begin fun v ->
-           button#remove (List.hd button#children)#coerce;
-           GMisc.label ~text:v ~xalign:0.5 ~yalign:0.5 ~packing:button#add ();
-           true
-         end ]
-end
-
-let new_titoggle_button ~name ?(listprop = []) =
-  let b = GButton.toggle_button ~label:name () in
-(*  b#connect#event#enter_notify
-    ~callback:(fun _ -> GtkSignal.stop_emit ());
-  b#connect#event#leave_notify
-    ~callback:(fun _ -> GtkSignal.stop_emit ());
-*)
-  new titoggle_button ~name ~widget:b
-
-
-class tiradio_button ~(widget : #GButton.radio_button) ~name:nname
-    ~parent_tree ~pos ?(insert_evbox=true) parent_window =
-object(self)
-  val button = widget
-  inherit tiwidget ~name:nname ~widget ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  val group_prop =
-    new prop_enum_dyn ~values:(fun () -> !radio_button_pool) ~name:"group"
-      ~set:(fun () -> true) ~init:nname
-
-
-  method private class_name = "GButton.radio_button"
-
-  method remove_me_without_undo () =
-    radio_button_pool := list_remove !radio_button_pool
-       ~f:(fun x -> x = name);
-    widget#remove_me_without_undo ()
-
-  method private get_mandatory_props = [ "label" ]
-
-  method private emit_clean_proplist =
-    List.remove_assoc "group" widget#emit_clean_proplist
-
-  method emit_initializer_code formatter =
-    let groupname = group_prop#get in
-    if name <> groupname then
-      Format.fprintf formatter "@ %s#set_group %s#group;" name groupname
-
-  initializer
-    classe <- "radio_button";
-    radio_button_pool := name :: !radio_button_pool;
-    List.iter
-      ~f:(fun x -> Propwin.update (Hashtbl.find widget_map x) true)
-      (List.tl !radio_button_pool);
-
-    proplist <-  proplist @
-      [ "border_width",        new prop_int ~name:"border_width" ~init:"0"
-                         ~set:(ftrue button#set_border_width);
-       "label",
-       new prop_string ~name:"label" ~init:name ~set:
-         begin fun v ->
-           button#remove (List.hd button#children)#coerce;
-           GMisc.label ~text:v ~xalign:0.5 ~yalign:0.5 ~packing:button#add ();
-           true
-         end ;
-       "group", group_prop
-      ]
-end
-
-let new_tiradio_button ~name ?(listprop = []) =
-  let b = GButton.radio_button ~label:name () in
-  (*
-  b#event#connect#enter_notify
-    ~callback:(fun _ -> b#misc#stop_emit ~name:"enter_notify_event"; true);
-  b#event#connect#leave_notify
-    ~callback:(fun _ -> b#misc#stop_emit ~name:"leave_notify_event"; true);
-  *)
-  new tiradio_button ~name ~widget:b
-
-
-
-
-class tibutton_toolbar ~(widget : #GButton.button) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window ~toolbar =
-object(self)
-  val button = widget
-  inherit tibutton ~name ~widget ~parent_tree ~pos ~insert_evbox
-       parent_window as button
-
-  method private get_mandatory_props =
-    [ "text"; "tooltip"; "tooltip_private" ]
-
-  method emit_init_code formatter ~packing =
-    Format.fprintf formatter "@ @[<hv 2>let %s =@ @[<hov 2>%s#insert_button"
-      name toolbar#name;
-    List.iter self#get_mandatory_props ~f:
-      begin fun name ->
-       Format.fprintf formatter "@ ~%s:%s" name
-         (List.assoc name proplist)#code
-      end;
-    Format.fprintf formatter "@ ()@ in@]@]"
-
-  initializer
-    proplist <- List.remove_assoc "label" proplist
-end
-
-
-class titoggle_button_toolbar ~(widget : #GButton.toggle_button) ~name
-    ~parent_tree ~pos ?(insert_evbox=true) parent_window ~toolbar =
-object(self)
-  val button = widget
-  inherit titoggle_button ~name ~widget ~parent_tree ~pos ~insert_evbox
-       parent_window as button
-
-  method private get_mandatory_props =
-    [ "text"; "tooltip"; "tooltip_private" ]
-
-  method emit_init_code formatter ~packing =
-    Format.fprintf formatter
-      "@ @[<hv 2>let %s =@ @[<hov 2>%s#insert_toggle_button"
-      name toolbar#name;
-    List.iter self#get_mandatory_props ~f:
-      begin fun name ->
-       Format.fprintf formatter "@ ~%s:%s" name
-         (List.assoc name proplist)#code
-      end;
-    Format.fprintf formatter "@ ()@ in@]@]"
-
-  initializer
-    proplist <- List.remove_assoc "label" proplist
-end
-
-
-class tiradio_button_toolbar ~(widget : #GButton.radio_button) ~name
-    ~parent_tree ~pos ?(insert_evbox=true) parent_window ~toolbar =
-object(self)
-  val button = widget
-  inherit tiradio_button ~name ~widget ~parent_tree ~pos ~insert_evbox
-       parent_window as button
-
-  method private get_mandatory_props =
-    [ "text"; "tooltip"; "tooltip_private" ]
-
-  method emit_init_code formatter ~packing =
-    Format.fprintf formatter
-      "@ @[<hv 2>let %s =@ @[<hov 2>%s#insert_radio_button"
-      name toolbar#name;
-    List.iter self#get_mandatory_props ~f:
-      begin fun name ->
-       Format.fprintf formatter "@ ~%s:%s" name
-         (List.assoc name proplist)#code
-      end;
-    Format.fprintf formatter "@ ()@ in@]@]"
-
-  initializer
-    proplist <- List.remove_assoc "label" proplist
-end
-
-
-
-
-class titoolbar ~(widget : GToolbar2.toolbar2) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val toolbar = widget
-  inherit ticontainer ~name ~widget ~parent_tree ~pos
-    ~insert_evbox parent_window
-
-  method private class_name = "GButton.toolbar"
-
-  method private add child ~pos =
-    children <- children @ [child, `START]
-
-  method private get_pos child =
-    let rec aux n = function
-      |        [] -> failwith "toolbar::get_pos"
-      |        (hd, _)::tl -> if hd = child then n else aux (n+1) tl in
-    aux 0 children
-
-  method private make_child ~classe ?(pos = -1) ~name ~parent_tree
-      ?(insert_evbox = true) ?(listprop = []) parent_window =
-    match classe with
-    | "button" ->
-       let t = try List.assoc "text" listprop with Not_found -> "" in
-       let tt = try List.assoc "tooltip" listprop with Not_found -> "" in
-       let ptt = try List.assoc "tooltip_private" listprop
-       with Not_found -> "" in
-       let listp = List.fold_left ~f:(fun l p -> List.remove_assoc p l)
-           ~init:listprop
-           [ "text"; "tooltip"; "tooltip_private" ] in
-       let b = toolbar#insert_button ~text:t ~tooltip:tt
-           ~tooltip_private:ptt () in
-       let child = new tibutton_toolbar ~name ~widget:b ~pos:(-1)
-             ~insert_evbox:false ~parent_tree:stree parent_window ~toolbar:self in
-       let tp = new prop_string ~name:"text" ~init:t
-           ~set:(fun v -> 
-             toolbar#set_text v (self#get_pos child); true)
-       and ttp = new prop_string ~name:"tooltip" ~init:tt
-           ~set:(fun _ -> true)
-       and pttp = new prop_string ~name:"tooltip_private" ~init:ptt
-           ~set:(fun _ -> true) in
-       child#add_to_proplist
-         [ "text", tp; "tooltip", ttp; "tooltip_private", pttp ];
-       child
-    | "toggle_button" ->
-       let t = try List.assoc "text" listprop with Not_found -> "" in
-       let tt = try List.assoc "tooltip" listprop with Not_found -> "" in
-       let ptt = try List.assoc "tooltip_private" listprop
-       with Not_found -> "" in
-       let listp = List.fold_left ~f:(fun l p -> List.remove_assoc p l)
-           ~init:listprop
-           [ "text"; "tooltip"; "tooltip_private" ] in
-       let b = toolbar#insert_toggle_button ~text:t ~tooltip:tt
-           ~tooltip_private:ptt () in
-       let child = new titoggle_button_toolbar ~name ~widget:b ~pos:(-1)
-             ~insert_evbox:false ~parent_tree:stree parent_window ~toolbar:self in
-       let tp = new prop_string ~name:"text" ~init:t
-           ~set:(fun v -> toolbar#set_text v (self#get_pos child); true)
-       and ttp = new prop_string ~name:"tooltip" ~init:tt
-           ~set:(fun _ -> true)
-       and pttp = new prop_string ~name:"tooltip_private" ~init:ptt
-           ~set:(fun _ -> true) in
-       child#add_to_proplist
-         [ "text", tp; "tooltip", ttp; "tooltip_private", pttp ];
-       child
-    | "radio_button" ->
-       let t = try List.assoc "text" listprop with Not_found -> "" in
-       let tt = try List.assoc "tooltip" listprop with Not_found -> "" in
-       let ptt = try List.assoc "tooltip_private" listprop
-       with Not_found -> "" in
-       let listp = List.fold_left ~f:(fun l p -> List.remove_assoc p l)
-           ~init:listprop
-           [ "text"; "tooltip"; "tooltip_private" ] in
-       let b = toolbar#insert_radio_button ~text:t ~tooltip:tt
-           ~tooltip_private:ptt () in
-       let child = new tiradio_button_toolbar ~name ~widget:b ~pos:(-1)
-             ~insert_evbox:false ~parent_tree:stree parent_window ~toolbar:self in
-       let tp = new prop_string ~name:"text" ~init:t
-           ~set:(fun v -> toolbar#set_text v (self#get_pos child); true)
-       and ttp = new prop_string ~name:"tooltip" ~init:tt
-           ~set:(fun _ -> true)
-       and pttp = new prop_string ~name:"tooltip_private" ~init:ptt
-           ~set:(fun _ -> true) in
-       child#add_to_proplist
-         [ "text", tp; "tooltip", ttp; "tooltip_private", pttp ];
-       child
-    | _ -> failwith "toolbar"
-
-
-
-  method remove child =
-    toolbar#remove (child#base);
-    children <- list_remove ~f:(fun (ch, _) -> ch = child) children;
-
-  initializer
-    classe <- "toolbar";
-    proplist <- proplist @
-      [ "orientation",
-       new prop_orientation ~name:"orientation" ~init:"HORIZONTAL"
-         ~set:(ftrue toolbar#set_orientation);
-       "style",
-       new prop_toolbar_style ~name:"style" ~init:"BOTH"
-         ~set:(ftrue toolbar#set_style);
-       "space_size",
-       new prop_int ~name:"space_size" ~init:"5"
-         ~set:(ftrue toolbar#set_space_size);
-       "space_style",
-       new prop_toolbar_space_style ~name:"space_style" ~init:"EMPTY"
-         ~set:(ftrue toolbar#set_space_style);
-       "tooltips",
-       new prop_bool ~name:"tooltips" ~init:"true"
-         ~set:(ftrue toolbar#set_tooltips);
-       "button_relief",
-       new prop_relief_style ~name:"button_relief" ~init:"NORMAL"
-         ~set:(ftrue toolbar#set_button_relief)
-      ]
-end
-
-let new_toolbar ~name ?(listprop = []) =
-  new titoolbar ~name ~widget:(GToolbar2.toolbar2 ())
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiContainer.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiContainer.ml
deleted file mode 100644 (file)
index ddf04d3..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiContainer.ml
+++ /dev/null
@@ -1,92 +0,0 @@
-
-open Gtk
-open GObj
-open GContainer
-
-open Utils
-open Property
-
-open TiBase
-
-(* for containers being able to have at least one child;
-   not for buttons (can't have children) *)
-
-class virtual ticontainer ~widget ~name
-    ?(insert_evbox=true) ~parent_tree ~pos parent_window =
-object(self)
-
-  val container = (widget : #container :> container)
-
-  inherit tiwidget ~name ~widget ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-(* name of the add method: add for most bin widgets,
-   pack for boxes, add_with_viewport for scrolled windows... *)
-  method private name_of_add_method = "#add"
-
-  method private add child ~pos =
-    container#add child#base;
-    children <- [child, `START];
-    self#set_full_menu false;
-    tree_item#drag#dest_unset ()
-
-  method remove child =
-    container#remove child#base;
-    children <- [];
-    self#set_full_menu true;
-    tree_item#drag#dest_set ~actions:[`COPY]
-      [ { target = "STRING"; flags = []; info = 0} ]
-
-  method private menu ~time =
-    let menu = GMenu.menu () and menu_add = GMenu.menu () in
-    List.iter
-      ~f:(fun n ->
-       let mi = GMenu.menu_item ~packing:menu_add#append ~label:n ()
-       in mi#connect#activate
-         ~callback:(fun () -> self#add_child n ();()); ())
-      widget_add_list;      
-    let mi_add = GMenu.menu_item ~packing:menu#append
-       ~label:("add to " ^ name) ()
-    and mi_remove = GMenu.menu_item ~packing:menu#append
-       ~label:("remove " ^ name) ()
-    and mi_cut  = GMenu.menu_item ~packing:menu#append ~label:"Cut" ()
-    and mi_copy = GMenu.menu_item ~packing:menu#append ~label:"Copy" ()
-    and mi_paste = GMenu.menu_item ~packing:menu#append ~label:"Paste" () in
-    mi_remove#connect#activate ~callback:self#remove_me;
-    mi_add#set_submenu menu_add;
-    mi_copy#connect#activate ~callback:self#copy;
-    mi_cut#connect#activate ~callback:self#cut;
-    if !selection <> ""
-    then begin mi_paste#connect#activate ~callback:self#paste; () end
-    else mi_paste#misc#set_sensitive false;
-    menu#popup ~button:3 ~time
-
-  method emit_init_code c ~packing =
-    widget#emit_init_code c ~packing;
-    self#forall ~callback:(fun child -> child#emit_init_code c
-       ~packing:(name ^ self#name_of_add_method))
-
-  method emit_method_code c =
-    widget#emit_method_code c;
-    self#forall ~callback:(fun child -> child#emit_method_code c)
-
-  method emit_initializer_code c =
-    widget#emit_initializer_code c;
-    self#forall ~callback:(fun child -> child#emit_initializer_code c)
-
-
-  initializer
-    proplist <-  proplist @
-      [ "border_width",        new prop_int ~name:"border_width" ~init:"0"
-                         ~set:(ftrue container#set_border_width) ];
-
-    tree_item#drag#dest_set ~actions:[`COPY]
-      [ { target = "STRING"; flags = []; info = 0} ];
-    tree_item#drag#connect#data_received ~callback:
-      begin fun (context : drag_context) ~x ~y
-         (data : selection_data) ~info ~time ->
-           self#add_child data#data ();
-           context#finish ~success:true ~del:false ~time
-      end;()
-end
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiEdit.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiEdit.ml
deleted file mode 100644 (file)
index 4b0977b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiEdit.ml
+++ /dev/null
@@ -1,153 +0,0 @@
-open Utils
-open Property
-
-open TiBase
-
-
-
-class tientry ~(widget : GEdit.entry) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object
-  val entry = widget
-  inherit tiwidget ~name ~widget ~parent_tree ~pos
-      ~insert_evbox parent_window
-
-  method private class_name = "GEdit.entry"
-  initializer
-    classe <- "entry";
-      proplist <- proplist @
-      [ "visibility",
-       new prop_bool ~name:"visibility" ~init:"true"
-                    ~set:(ftrue entry#set_visibility);
-       "editable",
-       new prop_bool ~name:"editable" ~init:"true"
-                    ~set:(ftrue entry#set_editable)
-      ]
-end
-
-let new_tientry ~name ?(listprop = []) =
-  new tientry ~name ~widget:(GEdit.entry ())
-
-
-class tispin_button ~(widget : GEdit.spin_button) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object
-    val spin_button = widget
-  inherit tientry ~widget:(widget :> GEdit.entry) ~name ~parent_tree ~pos
-      ~insert_evbox parent_window
-
-  method private class_name = "GEdit.spin_button"
-  initializer
-    classe <- "spin_button";
-      proplist <- proplist @
-      [ "digits",
-       new prop_int ~name:"digits" ~init:"0"
-                    ~set:(ftrue spin_button#set_digits);
-       "update_policy",
-       new prop_spin_button_update_policy ~name:"update_policy"
-         ~init:"ALWAYS"
-         ~set:(ftrue spin_button#set_update_policy);
-       "numeric",
-       new prop_bool ~name:"numeric" ~init:"false"
-         ~set:(ftrue spin_button#set_numeric);
-       "wrap",
-       new prop_bool ~name:"wrap" ~init:"false"
-         ~set:(ftrue spin_button#set_wrap);
-       "shadow_type",
-       new prop_shadow ~name:"shadow_type" ~init:"NONE"
-         ~set:(ftrue spin_button#set_shadow_type);
-       "snap_to_ticks",
-       new prop_bool ~name:"snap_to_ticks" ~init:"false"
-         ~set:(ftrue spin_button#set_snap_to_ticks)
-      ]
-    
-end
-
-
-let get_adjustment () =
-  let rv = ref 0. and rl = ref 0. and ru = ref 100. and rsi = ref 1.
-      and rpi = ref 10. and rps = ref 10. in
-  let w  = GWindow.window ~modal:true () in
-  let v  = GPack.vbox  ~packing:w#add () in
-  let l  = GMisc.label ~text:"adjustment properties" ~packing:v#pack () in
-  let h1 = GPack.hbox ~packing:v#pack () in
-  let l1 = GMisc.label ~text:"value" ~packing:h1#pack () in
-  let e1 = GEdit.entry ~text:"0." ~packing:h1#pack () in
-  let h2 = GPack.hbox ~packing:v#pack () in
-  let l2 = GMisc.label ~text:"lower" ~packing:h2#pack () in
-  let e2 = GEdit.entry ~text:"0." ~packing:h2#pack () in
-  let h3 = GPack.hbox ~packing:v#pack () in
-  let l3 = GMisc.label ~text:"upper" ~packing:h3#pack () in
-  let e3 = GEdit.entry ~text:"100." ~packing:h3#pack () in
-  let h4 = GPack.hbox ~packing:v#pack () in
-  let l4 = GMisc.label ~text:"step_incr" ~packing:h4#pack () in
-  let e4 = GEdit.entry ~text:"1." ~packing:h4#pack () in
-  let h5 = GPack.hbox ~packing:v#pack () in
-  let l5 = GMisc.label ~text:"page_incr" ~packing:h5#pack () in
-  let e5 = GEdit.entry ~text:"10." ~packing:h5#pack () in
-  let h6 = GPack.hbox ~packing:v#pack () in
-  let l6 = GMisc.label ~text:"page_size" ~packing:h6#pack () in
-  let e6 = GEdit.entry ~text:"10." ~packing:h6#pack () in
-  let h7 = GPack.hbox ~packing:v#pack () in
-  let b1 = GButton.button ~label:"OK" ~packing:h7#pack () in
-  let b2 = GButton.button ~label:"Cancel" ~packing:h7#pack () in
-  w#show ();
-  b1#connect#clicked
-    ~callback:(fun () ->
-      begin
-       try rv  := float_of_string e1#text with _ ->
-       try rv  := float_of_int (int_of_string e1#text) with _ -> () end;
-      begin
-       try rl  := float_of_string e2#text with _ ->
-       try rl  := float_of_int (int_of_string e2#text) with _ -> () end;
-      begin
-       try ru  := float_of_string e3#text with _ ->
-       try ru  := float_of_int (int_of_string e3#text) with _ -> () end;
-      begin
-       try rsi := float_of_string e4#text with _ ->
-       try rsi := float_of_int (int_of_string e4#text) with _ -> () end;
-      begin
-       try rpi := float_of_string e5#text with _ ->
-       try rpi := float_of_int (int_of_string e5#text) with _ -> () end;
-      begin
-       try rps := float_of_string e6#text with _ ->
-       try rps := float_of_int (int_of_string e6#text) with _ -> () end;
-      w#destroy ());
-  b2#connect#clicked ~callback:w#destroy;
-  w#connect#destroy ~callback:GMain.Main.quit;
-  GMain.Main.main ();
-  !rv, !rl, !ru, !rsi, !rpi, !rps
-
-let new_tispin_button ~name ?(listprop = []) =
-  let v, l, u, si, pi, ps = get_adjustment () in
-  new tispin_button ~name
-    ~widget:(GEdit.spin_button ~adjustment:
-              (GData.adjustment ~value:v ~lower:l ~upper:u
-                 ~step_incr:si ~page_incr:pi ~page_size:ps ()) ())
- 
-
-
-class ticombo ~(widget : GEdit.combo) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object
-  val combo = widget
-  inherit tiwidget ~name ~widget ~parent_tree ~pos
-      ~insert_evbox parent_window
-
-  method private class_name = "GEdit.combo"
-  initializer
-    classe <- "combo";
-      proplist <- proplist @
-      [ "use_arrows",
-       new prop_combo_use_arrows ~name:"use_arrows" ~init:"true"
-                    ~set:(ftrue combo#set_use_arrows);
-       "case_sensitive",
-       new prop_bool ~name:"case_sensitive" ~init:"false"
-                    ~set:(ftrue combo#set_case_sensitive)
-      ]
-end
-
-let new_ticombo ~name ?(listprop = []) =
-  new ticombo ~name ~widget:(GEdit.combo ())
-
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiList.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiList.ml
deleted file mode 100644 (file)
index 770e19b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiList.ml
+++ /dev/null
@@ -1,66 +0,0 @@
-
-open Utils
-open Property
-
-open TiBase
-
-class ticlist ~(widget : 'a GList.clist) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window ~columns ~titles =
-  object(self)
-    val clist = widget
-    inherit tiwidget ~name ~widget ~parent_tree ~pos
-       ~insert_evbox parent_window as widget
-
-    val param = parent_window#add_param
-
-    method private class_name = "GList.clist"
-
-    method private get_mandatory_props = [ "columns" ]
-
-    method remove_me_without_undo () =
-      parent_window#remove_param param;
-      widget#remove_me_without_undo ()
-
-    method emit_init_code formatter ~packing =
-      Format.fprintf formatter 
-       "@ @[<hv 2>let (%s : '%c GList.clist) =@ @[<hov 2>GList.clist"
-       name param;
-      List.iter self#get_mandatory_props ~f:
-       begin fun name ->
-         Format.fprintf formatter "@ ~%s:%s" name
-           (List.assoc name proplist)#code
-       end;
-      let packing = self#get_packing packing in
-      if packing <> "" then Format.fprintf formatter "@ %s" packing;
-      self#emit_prop_code formatter;
-      Format.fprintf formatter "@ ()@ in@]@]"
-
-
-    initializer
-      classe <- "clist";
-      proplist <- proplist @
-      [ "columns",
-       new prop_int ~name:"columns" ~init:(string_of_int columns)
-         ~set:(fun _ -> true);
-       "titles",
-       new prop_clist_titles ~name:"titles" ~init:(String.concat ~sep:" " titles)
-         ~set:(fun v ->
-           let v = Array.of_list v in
-           for i = 0 to Array.length v - 1 do
-             clist#set_column i ~title:v.(i)
-           done;
-           true)
-      ]
-end
-
-let new_clist ~name ?(listprop = []) =
-  let c, lp = match listprop with
-  | [] -> (get_a_number "number of columns" 3), []
-  | ("columns", n)::tl -> (int_of_string n), tl
-  | _ -> failwith "new_clist"
-  in
-  let rtitles = ref [] in
-  for i = c downto 1 do rtitles := ("column" ^(string_of_int i)):: !rtitles done;
-  new ticlist ~name ~widget:(GList.clist ~columns:c ~titles: !rtitles ()) ~columns:c ~titles: !rtitles
-    
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiMisc.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiMisc.ml
deleted file mode 100644 (file)
index f4f435a..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiMisc.ml
+++ /dev/null
@@ -1,176 +0,0 @@
-
-open Utils
-open Property
-
-open TiBase
-open TiContainer
-
-
-class tiseparator ~(dir : Gtk.Tags.orientation) ~(widget : GObj.widget_full)
-    ~name ~parent_tree ~pos ?(insert_evbox=true) parent_window =
-object
-  val separator = widget
-  inherit tiwidget ~name ~widget ~parent_tree ~pos parent_window ~insert_evbox
-
-  method private class_name =
-    match dir with `VERTICAL -> "GMisc.separator `VERTICAL"
-    | `HORIZONTAL -> "GMisc.separator `HORIZONTAL"
-  initializer
-    classe <-
-    (match dir with `VERTICAL -> "vseparator" | `HORIZONTAL -> "hseparator")
-
-end
-
-let new_tihseparator ~name ?(listprop = []) =
-  new tiseparator ~dir: `HORIZONTAL ~name
-    ~widget:(GMisc.separator `HORIZONTAL ())
-let new_tivseparator ~name ?(listprop = []) = 
-  new tiseparator ~dir: `VERTICAL ~name
-    ~widget:(GMisc.separator `VERTICAL ())
-
-
-
-
-class tistatusbar ~(widget : GMisc.statusbar) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val statusbar = widget
-  inherit ticontainer ~name ~widget ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  method private class_name = "GMisc.statusbar"
-
-  initializer
-    classe <- "statusbar"
-end
-
-let new_tistatusbar ~name ?(listprop = []) =
-  new tistatusbar ~widget:(GMisc.statusbar ()) ~name
-
-
-
-class timisc ~(widget : GMisc.misc) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val misc = widget
-  inherit tiwidget ~name ~widget ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  method private class_name = failwith "timisc::class_name"
-
-  initializer
-    proplist <- proplist @
-      [ "x_alignment",
-       new prop_float ~name:"x alignment" ~init:"0.5" ~min:0. ~max:1.
-         ~set:(fun v -> misc#set_alignment ~x:v (); true);
-       "y_alignment",
-       new prop_float ~name:"y alignment" ~init:"0.5" ~min:0. ~max:1.
-         ~set:(fun v -> misc#set_alignment ~y:v (); true);
-       "x_padding",
-       new prop_int ~name:"x padding" ~init:"0.5"
-         ~set:(fun v -> misc#set_padding ~x:v (); true);
-       "y_padding",
-       new prop_int ~name:"y padding" ~init:"0.5"
-         ~set:(fun v -> misc#set_padding ~y:v (); true)
-
-      ]
-end
-
-
-class tiarrow ~(widget : GMisc.arrow) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val arrow = widget
-  inherit timisc ~name ~widget:(widget :> GMisc.misc) ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  method private class_name = "GMisc.arrow"
-  initializer
-    classe <- "arrow";
-end
-
-
-(* TODO   fenetre demandant kind et shadow 
-let new_tiarrow ~name = new tiarrow ~widget:(GMisc.arrow ()) ~name
-*)
-
-
-class tilabel ~(widget : GMisc.label) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val labelw = widget
-  inherit timisc ~name ~widget:(widget :> GMisc.misc) ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  method private class_name = "GMisc.label"
-
-  method private get_mandatory_props = [ "text" ]
-
-  initializer
-    classe <- "label";
-    proplist <-  proplist @
-      [ "text",
-       new prop_string ~name:"text" ~init:name ~set:(ftrue labelw#set_text);
-       "line_wrap",
-       new prop_bool ~name:"line_wrap" ~init:"true"
-         ~set:(ftrue labelw#set_line_wrap)
-      ]
-end
-
-let new_tilabel ~name ?(listprop = []) =
-  new tilabel ~widget:(GMisc.label ~text:name ()) ~name
-
-
-
-
-
-class ticolor_selection ~(widget : GMisc.color_selection) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val color_selection = widget
-  inherit tiwidget ~name ~widget ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  method private class_name = "GMisc.color_selection"
-
-  initializer
-    classe <- "color_selection";
-    proplist <-  proplist @
-      [ "use_opacity",
-       new prop_bool ~name:"use_opacity" ~init:"false"
-         ~set:(ftrue color_selection#set_opacity);
-       "update_policy",
-       new prop_update_type ~name:"update_policy" ~init:"CONTINUOUS"
-         ~set:(ftrue color_selection#set_update_policy)
-      ]
-end
-
-let new_ticolor_selection ~name ?(listprop = []) =
-  new ticolor_selection ~widget:(GMisc.color_selection ()) ~name
-
-
-class tipixmap ~(widget : GMisc.pixmap) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val pixmap = widget
-  inherit timisc ~name ~widget:(widget :> GMisc.misc) ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  method private class_name = "GMisc.pixmap"
-  initializer
-    classe <- "pixmap";
-    proplist <- proplist @
-      [ "file",
-       new prop_file ~name:"file" ~init:""
-         ~set:(fun v ->
-           pixmap#set_pixmap
-             (GDraw.pixmap_from_xpm ~window:parent_window#tiwin#widget
-                ~file:v ());
-           true)
-      ]
-end
-
-let new_tipixmap ~name ?(listprop = []) ~parent_tree ~pos ?(insert_evbox=true) (parent_window : window_and_tree0) =
-  new tipixmap ~widget:(GMisc.pixmap (GDraw.pixmap_from_xpm 
-   ~window:parent_window#tiwin#widget ~file:"pixmap.xpm" ()) ()) ~name
-    ~parent_tree ~pos ~insert_evbox parent_window

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiPack.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiPack.ml
deleted file mode 100644 (file)
index 291eec9..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiPack.ml
+++ /dev/null
@@ -1,300 +0,0 @@
-
-open Utils
-open Property
-
-open TiContainer
-
-class tibox ~(dir : Gtk.Tags.orientation) ~(widget : GPack.box)
-    ~name ~parent_tree ~pos ?(insert_evbox=true) parent_window =
-  let class_name =
-    match dir with `VERTICAL -> "GPack.vbox" | _ -> "GPack.hbox" in
-object(self)
-  val box = widget
-  inherit ticontainer ~name ~widget ~parent_tree ~pos ~insert_evbox
-      parent_window as container
-
-  method private class_name = class_name
-
-  method private name_of_add_method = "#pack"
-
-(* removes the ::expand ::fill ::padding in the proplist of a box
-   assumes that these are the only properties with a :: in the name *)
-  method private save_clean_proplist =
-    List.filter container#save_clean_proplist
-      ~f:(fun (n,p) ->
-       try
-         let i = String.index n ':' in
-         i = String.length n || n.[i+1] <> ':'
-       with Not_found -> true)
-
-  method private emit_clean_proplist =
-    List.filter container#emit_clean_proplist
-      ~f:(fun (n,p) ->
-       try
-         let i = String.index n ':' in
-         i = String.length n || n.[i+1] <> ':'
-       with Not_found -> true)
-
-  method change_name_in_proplist oldn newn =
-    proplist <- List.fold_left ~init:proplist ~f:
-       (fun pl propname ->
-         change_property_name (oldn ^ propname) (newn ^ propname) pl)
-       [ "::expand"; "::fill"; "::padding" ];
-    Propwin.update self false
-
-  method child_up child =
-    let pos = list_pos ~item:child (List.map ~f:fst children) in
-    if pos > 0 then begin
-      box#reorder_child child#base ~pos:(pos-1);
-      children <- list_reorder_up children ~pos;
-      stree#item_up ~pos
-    end
-           
-  method child_down child =
-    let pos = list_pos ~item:child (List.map ~f:fst children) in
-    if pos < (List.length children - 1) then begin
-      box#reorder_child child#base ~pos:(pos+1);
-      children <- list_reorder_down children ~pos;
-      stree#item_up ~pos:(pos+1)
-    end
-           
-  method private add child ~pos =
-    box#pack  child#base;
-    if pos < 0 then begin
-      children <-  children @ [(child, `START)]
-    end
-    else begin
-      children <- list_insert ~item:(child, `START) children ~pos;
-      box#reorder_child child#base ~pos
-    end;
-    let n = child#name in
-    let expand =
-      new prop_bool ~name:"expand" ~init:"false" ~set:
-       begin fun v ->
-         box#set_child_packing (child#base) ~expand:v;
-         Propwin.update child false;
-         Propwin.update self false; true
-       end
-    and fill =
-      new prop_bool ~name:"fill" ~init:"true" ~set:
-       begin fun v ->
-         box#set_child_packing (child#base) ~fill:v;
-         Propwin.update child false;
-         Propwin.update self false; true
-       end
-    and padding =
-      new prop_int ~name:"padding" ~init:"0" ~set:
-       begin fun v ->
-         box#set_child_packing (child#base) ~padding:v;
-         Propwin.update child false;
-         Propwin.update self false; true
-       end
-    in
-    proplist <-  proplist @ 
-      [ (n ^ "::expand"),  expand;
-       (n ^ "::fill"),    fill;
-        (n ^ "::padding"), padding ];
-    child#add_to_proplist
-      [ "expand", expand; "fill", fill; "padding", padding ];
-    Propwin.update self true
-         
-
-  method remove child =
-    box#remove (child#base);
-    children <- list_remove ~f:(fun (ch, _) -> ch = child) children;
-    let n = child#name in
-    proplist <-  List.fold_left ~init:proplist
-       ~f:(fun acc n -> List.remove_assoc n acc)
-       [ (n ^ "::expand"); (n ^ "::fill"); (n ^ "::padding") ];
-    Propwin.update self true
-
-  initializer
-    classe <- (match dir with `VERTICAL -> "vbox" | _ -> "hbox");
-    proplist <-  proplist @
-      [ "homogeneous",
-       new prop_bool ~name:"homogeneous" ~init:"false"
-         ~set:(ftrue box#set_homogeneous);
-       "spacing",
-       new prop_int ~name:"spacing" ~init:"0"
-         ~set:(ftrue box#set_spacing)
-      ]
-end
-
-class tihbox = tibox ~dir:`HORIZONTAL
-class tivbox = tibox ~dir:`VERTICAL
-
-let new_tihbox ~name ?(listprop = []) = new tihbox ~widget:(GPack.hbox ()) ~name
-let new_tivbox ~name ?(listprop = []) = new tivbox ~widget:(GPack.vbox ()) ~name
-
-
-
-
-class tibbox ~(dir : Gtk.Tags.orientation) ~(widget : GPack.button_box)
-    ~name ~parent_tree ~pos ?(insert_evbox=true) parent_window =
-  let class_name =
-    match dir with `VERTICAL -> "GPack.button_box `VERTICAL"
-    | _ -> "GPack.button_box `HORIZONTAL" in
-object(self)
-  val bbox = widget
-  inherit tibox ~dir ~widget:(widget :> GPack.box)
-    ~name ~parent_tree ~pos ~insert_evbox parent_window
-
-  method private class_name = class_name
-
-initializer
-    classe <- (match dir with `VERTICAL -> "vbutton_box" | _ -> "hbutton_box");
-    proplist <-  proplist @
-      [ "layout",
-       new prop_button_box_style ~name:"layout" ~init:"DEFAULT_STYLE"
-         ~set:(ftrue bbox#set_layout);
-       "spacing",
-       new prop_int ~name:"spacing"
-         ~init:(match dir with `VERTICAL -> "10" | _ -> "30")
-(*  donne -1 (defaut)  
-(GtkPack.BBox.get_spacing bbox#as_button_box) *)
-         ~set:(fun v -> bbox#set_spacing v;
-           GtkBase.Widget.queue_resize bbox#as_widget; true);
-       "child_width",
-       new prop_int ~name:"child_width" ~init:"85"
-         ~set:(fun v ->
-           bbox#set_child_size ~width:v
-             ~height:(int_of_string (self#get_property "child_height")) ();
-           GtkBase.Widget.queue_resize bbox#as_widget; true);
-       "child_height",
-       new prop_int ~name:"child_height" ~init:"27"
-         ~set:(fun v ->
-           bbox#set_child_size ~height:v
-             ~width:(int_of_string (self#get_property "child_width")) (); 
-           GtkBase.Widget.queue_resize bbox#as_widget; true);
-       "child_ipad_x",
-       new prop_int ~name:"child_ipad_x" ~init:"7"
-         ~set:(fun v ->
-           bbox#set_child_ipadding ~x:v
-             ~y:(int_of_string (self#get_property "child_ipad_y")) ();
-           GtkBase.Widget.queue_resize bbox#as_widget; true);
-       "child_ipad_y",
-       new prop_int ~name:"child_ipad_y" ~init:"0"
-         ~set:(fun v ->
-           bbox#set_child_ipadding ~y:v
-             ~x:(int_of_string (self#get_property "child_ipad_x")) (); 
-           GtkBase.Widget.queue_resize bbox#as_widget; true);
-      ]
-end
-
-
-(* TODO:  pour proplist/spacing il faudrait implementer
-          les fonctions get_spacing ... (voir dans gtkPack) *)
-
-class tihbutton_box = tibbox ~dir:`HORIZONTAL
-class tivbutton_box = tibbox ~dir:`VERTICAL
-
-let new_tihbutton_box ~name ?(listprop = []) =
-  new tihbutton_box ~widget:(GPack.button_box `HORIZONTAL ()) ~name
-
-let new_tivbutton_box ~name ?(listprop = []) =
-  new tivbutton_box ~widget:(GPack.button_box `VERTICAL ()) ~name
-
-
-
-
-let get_fixed_pos () =
-  let rx = ref 0 and ry = ref 0 in
-  let w  = GWindow.window ~modal:true () in
-  let v  = GPack.vbox  ~packing:w#add () in
-  let l  = GMisc.label ~text:"Enter position for child" ~packing:v#pack () in
-  let h1 = GPack.hbox ~packing:v#pack () in
-  let l1 = GMisc.label ~text:"x:" ~packing:h1#pack () in
-  let e1 = GEdit.entry ~text:"0" ~packing:h1#pack () in
-  let h2 = GPack.hbox ~packing:v#pack () in
-  let l2 = GMisc.label ~text:"y" ~packing:h2#pack () in
-  let e2 = GEdit.entry ~text:"0" ~packing:h2#pack () in
-  let h7 = GPack.hbox ~packing:v#pack () in
-  let b1 = GButton.button ~label:"OK" ~packing:h7#pack () in
-  let b2 = GButton.button ~label:"Cancel" ~packing:h7#pack () in
-  w#show ();
-  b1#connect#clicked
-    ~callback:(fun () ->
-      begin
-       try rx  := int_of_string e1#text with _ -> () end;
-      begin
-       try ry  := int_of_string e2#text with _ -> () end;
-      w#destroy ());
-  b2#connect#clicked ~callback:w#destroy;
-  w#connect#destroy ~callback:GMain.Main.quit;
-  GMain.Main.main ();
-  !rx, !ry
-
-
-class tifixed ~(widget : GPack.fixed)
-    ~name ~parent_tree ~pos ?(insert_evbox=true) parent_window =
-object(self)
-  val fixed = widget
-  inherit ticontainer ~widget
-    ~name ~parent_tree ~pos ~insert_evbox parent_window
-
-  method private class_name = "GPack.fixed"
-
-  method private add child ~pos =
-    let x, y = get_fixed_pos () in
-    fixed#put child#base ~x ~y;
-    children <-  children @ [(child, `START)]
-  initializer
-    classe <- "fixed"
-end
-
-let new_tifixed ~name ?(listprop = []) =
-  new tifixed ~widget:(GPack.fixed ()) ~name
-
-
-
-
-
-class tinotebook ~(widget : GPack.notebook) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val notebook = widget
-  inherit ticontainer ~name ~widget ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  method private class_name = "GPack.notebook"
-
-  method private add child ~pos =
-    children <- children @ [child, `START];
-    notebook#insert_page child#base ~pos;
-    child#add_to_proplist
-      [ "tab_label",
-       new prop_string ~name:"tab_label" ~init:""
-         ~set:(fun v -> notebook#set_page
-             ~tab_label:((GMisc.label ~text:v())#coerce) child#base; true)
-      ]
-
-
-  initializer
-    classe <- "notebook";
-    proplist <-  proplist @
-      [ "tab_pos",
-       new prop_position ~name:"tab_ pos" ~init:"TOP"
-         ~set:(ftrue notebook#set_tab_pos);
-       "show_tabs",
-       new prop_bool ~name:"show_tabs" ~init:"true"
-         ~set:(ftrue notebook#set_show_tabs);
-       "homogeneous_tabs",
-       new prop_bool ~name:"homogeneous_tabs" ~init:"true"
-         ~set:(ftrue notebook#set_homogeneous_tabs);
-       "show_border",
-       new prop_bool ~name:"show_border" ~init:"true"
-         ~set:(ftrue notebook#set_show_border);
-       "scrollable",
-       new prop_bool ~name:"scrollable" ~init:"false"
-         ~set:(ftrue notebook#set_scrollable);
-       "tab_border",
-       new prop_int ~name:"tab_border" ~init:"2"
-         ~set:(ftrue notebook#set_tab_border);
-       "popup_enable",
-       new prop_bool ~name:"popup_enable" ~init:"false"
-         ~set:(ftrue notebook#set_popup)
-      ]
-end
-
-let new_tinotebook ~name ?(listprop = []) =
-  new tinotebook ~widget:(GPack.notebook ()) ~name

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiWidget.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiWidget.ml
deleted file mode 100644 (file)
index 5a6e3ac..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiWidget.ml
+++ /dev/null
@@ -1,43 +0,0 @@
-
-let new_class_list (* :
-  (string *
-  (name:string -> ?listprop:string list ->
-   parent_tree:GTree2.tree -> pos:int ->
-   ?insert_evbox:bool ->
-   
-   TiBase.window_and_tree0 -> TiBase.tiwidget0)) list *)
-= [
-  "window",          TiWindow.new_tiwindow;
-  "hbox",            TiPack.new_tihbox;
-  "vbox",            TiPack.new_tivbox;
-  "hbutton_box",     TiPack.new_tihbutton_box;
-  "vbutton_box",     TiPack.new_tivbutton_box;
-  "fixed",           TiPack.new_tifixed;
-  "notebook",        TiPack.new_tinotebook;
-  "button",          TiButton.new_tibutton;
-  "check_button",    TiButton.new_ticheck_button;
-  "toggle_button",   TiButton.new_titoggle_button;
-  "radio_button",    TiButton.new_tiradio_button;
-  "toolbar",         TiButton.new_toolbar;
-  "hseparator",      TiMisc.new_tihseparator;
-  "vseparator",      TiMisc.new_tivseparator;
-  "statusbar",       TiMisc.new_tistatusbar;
-  "label",           TiMisc.new_tilabel;
-  "color_selection", TiMisc.new_ticolor_selection;
-  "pixmap",          TiMisc.new_tipixmap;
-  "frame",           TiBin.new_tiframe;
-  "aspect_frame",    TiBin.new_tiaspect_frame;
-  "handle_box",      TiBin.new_handle_box;
-  "viewport",        TiBin.new_viewport;
-  "event_box",       TiBin.new_event_box;
-  "scrolled_window", TiBin.new_tiscrolled_window;
-  "entry",           TiEdit.new_tientry;
-  "spin_button",     TiEdit.new_tispin_button;
-  "combo",           TiEdit.new_ticombo;
-  "clist",           TiList.new_clist
-]
-
-let _ =
-  TiBase.new_tiwidget :=
-    (fun ~classe ?(pos = -1) ~name ~parent_tree ?insert_evbox ?(listprop = []) -> (List.assoc classe new_class_list) ~pos ~name ~parent_tree ?insert_evbox ~listprop)
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiWindow.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiWindow.ml
deleted file mode 100644 (file)
index b44b4d4..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tiWindow.ml
+++ /dev/null
@@ -1,117 +0,0 @@
-
-open Utils
-open Property
-
-open TiBase
-open TiContainer
-
-
-class tiwindow ~widget ~name ~parent_tree ~pos ?(insert_evbox=true)
-    parent_window =
-object(self)
-  val window = widget
-  inherit ticontainer ~name ~widget
-      ~insert_evbox:false ~parent_tree ~pos parent_window as container
-
-  method connect_event = window#event#connect
-
-  method private class_name = "GWindow.window"
-
-  method private get_mandatory_props = [ "title" ]
-
-(*  method private save_clean_proplist =
-    List.remove_assoc "title" container#save_clean_proplist
-
-  method private emit_clean_proplist plist =
-    List.remove_assoc "title" (container#emit_clean_proplist plist)
-*)
-  method remove_me () =
-    let sref = ref "" in
-    self#save_to_string sref;
-    let lexbuf = Lexing.from_string !sref in
-    let node = Load_parser.window Load_lexer.token lexbuf in
-    add_undo (Add_window node);
-    self#remove_me_without_undo ()
-
-  method copy () = self#copy_to_sel window_selection
-
-  method remove_me_without_undo () =
-    self#forall ~callback:(fun tiw -> tiw#remove_me_without_undo ());
-    parent_window#remove_sel (self : #tiwidget0 :> tiwidget0);
-    name_list := list_remove !name_list ~f:(fun n -> n=name);
-    Hashtbl.remove widget_map name;
-    Propwin.remove name;
-    widget#destroy ()
-
-  method private get_packing packing = ""
-
-  method emit_code f param_list =
-    let param_string =
-      match param_list with
-      |         [] -> ""
-      |        _ -> "['" ^
-         (String.concat ~sep:", '"
-            (List.map ~f:(fun c -> (String.make 1 c)) param_list)) ^
-         "] " in
-    Format.fprintf f "(* Code for %s *)@\n@\n@[<hv 2>class %s%s () ="
-      name param_string name;
-    self#emit_init_code f ~packing:"";
-    Format.fprintf f "@]@\n@[<hv 2>object (self)";
-    self#emit_method_code f;
-    Format.fprintf f "@ method show () = %s#show ()" name;
-    Format.fprintf f "@ @[<v 2>initializer";
-    self#emit_initializer_code f;
-    Format.fprintf f "@ ()@]@]@ end@\n@\n"
-
-(*  method private save_start formatter =
-    Format.fprintf formatter "@[<0>@\n@[<2><window name=%s>" name;
-    Format.fprintf formatter "@\ntitle=\"%s\""
-      (List.assoc "title" proplist)#get
-*)
-  method private save_end formatter =
-    Format.fprintf formatter "@]@\n</window>@\n@]"
-
-  method private menu ~time =
-    let menu = GMenu.menu () and menu_add = GMenu.menu () in
-    List.iter
-      ~f:(fun n ->
-       let mi = GMenu.menu_item ~packing:menu_add#append ~label:n ()
-       in mi#connect#activate
-         ~callback:(fun () -> self#add_child n (); ()); ())
-      widget_add_list;      
-    let mi_add = GMenu.menu_item ~packing:menu#append ~label:("add to "^ name) ()
-    and mi_paste = GMenu.menu_item ~packing:menu#append ~label:"Paste" ()
-    in
-    mi_add#set_submenu menu_add;
-    if !selection <> ""
-    then begin mi_paste#connect#activate ~callback:self#paste; () end
-    else mi_paste#misc#set_sensitive false;
-    menu#popup ~button:3 ~time
-
-
-  initializer
-    classe <- "window";
-    window#set_title name;
-    proplist <-        proplist @
-      [ "title",
-       new prop_string ~name:"title" ~init:name ~set:(ftrue window#set_title);
-       "allow_shrink", new prop_bool ~name:"allow_shrink" ~init:"false"
-                         ~set:(ftrue window#set_allow_shrink);
-       "allow_grow", new prop_bool ~name:"allow_grow" ~init:"true"
-                       ~set:(ftrue window#set_allow_grow);
-       "auto_shrink", new prop_bool ~name:"auto_shrink" ~init:"false"
-                        ~set:(ftrue window#set_auto_shrink);
-       "x position", new prop_int ~name:"x" ~init:"-2"
-         ~set:(fun x -> window#misc#set_geometry ~x (); true);
-       "y position", new prop_int ~name:"y" ~init:"-2"
-         ~set:(fun y -> window#misc#set_geometry ~y (); true) ]
-end
-
-let new_tiwindow ~name ?(listprop = []) =
-  let w = GWindow.window ~show:true () in
-  w#misc#set_can_focus false;
-  w#misc#set_can_default false;
-  new tiwindow ~widget:w ~name
-
-
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/togglebutton.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/togglebutton.xpm
deleted file mode 100644 (file)
index f29d769..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/togglebutton.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *togglebutton_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+..................O+",
-"+.                 O+",
-"+. XXXXXXXXXXXXXXXXO+",
-"+. XXXXXXXXXXXXXXXXO+",
-"+. XXX   XXX XXX XXO+",
-"+. XX XXX XX  XX XXO+",
-"+. XX XXX XX  XX XXO+",
-"+. XX XXX XX X X XXO+",
-"+. XX XXX XX XX  XXO+",
-"+. XX XXX XX XX  XXO+",
-"+. XXX   XXX XXX XXO+",
-"+. XXXXXXXXXXXXXXXXO+",
-"+. XXXXXXXXXXXXXXXXO+",
-"+. XXXXXXXXXXXXXXXXO+",
-"+OOOOOOOOOOOOOOOOOOO+",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/toolbar.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/toolbar.xpm
deleted file mode 100644 (file)
index d9a5217..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/toolbar.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *toolbar_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+OOOOOOOOOOOOOOOOOOO ",
-"+OXXXXXXXXXXXXXXXXX. ",
-"+OXOOOO OOOO OOOO X. ",
-"+OXOXXX OXXX OXXX X. ",
-"+OXOXXX OXXX OXXX X. ",
-"+OXO    O    O    X. ",
-"+OXXXXXXXXXXXXXXXXX. ",
-"+O.................. ",
-"+                    ",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tree_minus.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tree_minus.xpm
deleted file mode 100644 (file)
index cce0679..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tree_minus.xpm
+++ /dev/null
@@ -1,18 +0,0 @@
-/* XPM */
-static char *tree_minus[] = {
-/* width height num_colors chars_per_pixel */
-"     9     9        2            1",
-/* colors */
-". c #000000",
-"# c #f8fcf8",
-/* pixels */
-".........",
-".#######.",
-".#######.",
-".#######.",
-".#.....#.",
-".#######.",
-".#######.",
-".#######.",
-"........."
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tree_plus.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tree_plus.xpm
deleted file mode 100644 (file)
index d0ba80c..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/tree_plus.xpm
+++ /dev/null
@@ -1,18 +0,0 @@
-/* XPM */
-static char *tree_plus[] = {
-/* width height num_colors chars_per_pixel */
-"     9     9        2            1",
-/* colors */
-". c #000000",
-"# c #f8fcf8",
-/* pixels */
-".........",
-".#######.",
-".###.###.",
-".###.###.",
-".#.....#.",
-".###.###.",
-".###.###.",
-".#######.",
-"........."
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/utils.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/utils.ml
deleted file mode 100644 (file)
index 0b37975..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/utils.ml
+++ /dev/null
@@ -1,353 +0,0 @@
-(* $Id$ *)
-
-open GObj
-
-open Common
-
-external test_modifier : Gdk.Tags.modifier -> int -> bool
-    = "ml_test_GdkModifier_val"
-
-
-(************* types *************)
-(* used in the load_parser and for the selection *)
-
-(* widget: class * name * property list
-   where property = name * value_string *)
-type yywidget = string * string * (string * string) list
-type yywidget_tree = Node of yywidget * yywidget_tree list
-
-
-(*********** some utility functions **************)
-let rec list_remove ~f = function
-  | [] -> []
-  | hd :: tl -> if f hd then tl else hd :: (list_remove ~f tl)
-
-
-(* cut the list at the element elt; elt stays in tail;
-   hd stays in reverse order *)
-let cut_list ~item l =
-  let rec aux h t = match t with
-  | hd :: tl -> if hd = item then h, t
-       else aux (hd :: h) tl
-  | [] -> failwith "cut_list"
-  in aux [] l
-
-let list_pos ~item l =
-  let rec aux pos = function
-    | [] -> raise Not_found
-    | hd :: tl -> if hd = item then pos else aux (pos+1) tl
-  in aux 0 l
-
-(* moves the pos element up; pos is >= 1;
-   the first element is numbered 0 *)
-let rec list_reorder_up ~pos = function
-    | hd1 :: hd2 :: tl when pos = 1 -> hd2 :: hd1 :: tl
-    | hd :: tl when pos > 1 -> hd :: (list_reorder_up ~pos:(pos-1) tl)
-    | _ -> failwith "list_reorder"
-
-(* moves the pos element down; pos is < length of l - 1;
-   the first element is numbered 0 *)
-let rec list_reorder_down ~pos = 
-  list_reorder_up ~pos:(pos+1)
-
-
-let rec list_insert ~item l ~pos =
-  if pos=0 then item :: l
-  else
-    match l with
-    | [] ->  failwith "list_insert"
-    | hd :: tl -> hd :: (list_insert ~item tl ~pos:(pos-1))
-
-
-let rec change_property_name oldname newname = function
-  | (n, p) :: tl when oldname = n -> (newname, p) :: tl
-  | (n, p) :: tl -> (n, p) :: change_property_name oldname newname tl
-  | [] -> failwith "change_property_name: name not found"
-
-
-
-(* contains the list of names of widgets in the current project;
-   used to test if a name is already used;
-   a name is added to the list when a tiwrapper is created (in
-   the initilizer part of tiwrapper,
-   it is removed when the widget is removed from his parent,
-   in method remove_me of tiwrapper *)
-let name_list = ref ([] : string list)
-
-let split name =
-  let l = String.length name in
-  let i = ref (l-1) in
-  while !i >= 0 && name.[!i] >= '0' && name.[!i] <= '9' do decr i done;
-  if !i = l-1 then
-    name, (-1)
-  else
-    (String.sub name ~pos:0 ~len:(!i+1)),
-    int_of_string (String.sub name ~pos:(!i+1) ~len:(l- !i-1))
-
-let test_unique name = not (List.mem name !name_list)
-
-let make_new_name ?(index=1) base =
-  let index, name =
-    if index = -1 then ref 1, ref base
-    else ref index, ref (base ^ (string_of_int index)) in
-  while not (test_unique !name) do
-    incr index;
-    name := base ^ (string_of_int !index)
-  done;
-  !name
-
-let change_name name =
-  let base, index = split name in make_new_name base ~index
-
-let message s =
-  let w = GWindow.window ~show:true ~modal:true () in
-  let v = GPack.vbox ~packing:w#add () in
-  let l = GMisc.label ~text:s ~packing:v#add () in
-  let b = GButton. button ~label:"OK" ~packing:v#add () in
-  b#connect#clicked ~callback:w#destroy;
-  w#connect#destroy ~callback:GMain.Main.quit;
-  GMain.Main.main ()
-
-let message_name () = message "name already in use\npick a new name"
-
-(* better: use a spin button *)
-let get_a_number s default=
-  let res = ref default in
-  let w = GWindow.window ~show:true ~modal:true () in
-  let v = GPack.vbox ~packing:w#add () in
-  let l = GMisc.label ~text:s ~packing:v#add () in
-  let e = GEdit.entry ~text:(string_of_int default) ~packing:v#add () in
-  let b = GButton. button ~label:"OK" ~packing:v#add () in
-  b#connect#clicked ~callback:(fun () ->
-    begin try res := int_of_string e#text with Failure _ -> () end;
-    w#destroy ());
-  w#connect#destroy ~callback:GMain.Main.quit;
-  GMain.Main.main ();
-  !res
-
-
-(*************** file selection *****************)
-
-let get_filename ~callback:set_filename ?(dir="") () =
-  let res = ref false in
-  let file_selection = GWindow.file_selection ~modal:true () in
-  if dir <> "" then file_selection#set_filename dir;
-  file_selection#show ();
-  file_selection#ok_button#connect#clicked
-    ~callback:(fun () -> set_filename file_selection#get_filename;
-      res := true;
-      file_selection#destroy ());
-  file_selection#cancel_button#connect#clicked
-    ~callback:file_selection#destroy;
-  file_selection#connect#destroy ~callback:GMain.Main.quit;
-  GMain.Main.main ();
-  !res
-
-(* returns the directory and the file name (without the extension) *)
-let split_filename filename ~ext =
-  let lext = String.length ext in
-  let l = String.length filename in
-  let filename, l =
-    if (l > lext) && (String.sub filename ~pos:(l - lext) ~len:lext = ext)
-    then (String.sub filename ~pos:0 ~len:(l-lext)), l-lext
-    else filename, l in
-  let i = 1 + (String.rindex filename '/') in
-  String.sub filename ~pos:0 ~len:i,
-  String.sub filename ~pos:i ~len:(l-i)
-
-
-(******************  ML signals *****************)
-let signal_id = ref 0
-
-let next_callback_id () : GtkSignal.id =
-  decr signal_id; Obj.magic (!signal_id : int)
-
-class ['a] signal = object
-  val mutable callbacks : (GtkSignal.id * ('a -> unit)) list = []
-  method connect ~callback ~after =
-    let id = next_callback_id () in
-    callbacks <-
-      if after then callbacks @ [id,callback] else (id,callback)::callbacks;
-    id
-  method call arg =
-    List.iter callbacks ~f:(fun (_,f) -> f arg)
-  method disconnect id =
-    List.mem_assoc id callbacks &&
-    (callbacks <- List.remove_assoc id callbacks; true)
-  method reset () = callbacks <- []
-end
-
-class type disconnector =
-  object
-    method disconnect : GtkSignal.id -> bool
-    method reset : unit -> unit
-  end
-
-class has_ml_signals = object
-  val mutable disconnectors = []
-  method private add_signal (sgn : 'a signal) =
-    disconnectors <- (sgn :> disconnector) :: disconnectors
-
-  method disconnect id =
-    List.exists disconnectors ~f:(fun d -> d#disconnect id)
-end
-
-
-(****************** undo information ********************)
-
-type undo_action =
-  | Add of string * yywidget_tree * int
-  | Remove of string
-  | Property of prop * string
-  | Add_window of yywidget_tree
-  | Remove_window of string
-
-let undo_info = ref ([] : undo_action list)
-let next_undo_info = ref ([] : undo_action list)
-let last_action_was_undo = ref false
-
-let add_undo f =
-  undo_info := f :: !undo_info;
-  last_action_was_undo := false
-
-
-(**********************************************************)
-let ftrue f = fun x -> f x; true
-
-
-(**********************************************************)
-
-let toolbar_child_prop kind =
-  let rt = ref "" and rtt = ref "" and rptt = ref "" and ok = ref false in
-  let w  = GWindow.window ~modal:true () in
-  let v  = GPack.vbox ~packing:w#add () in
-  let h1 = GPack.hbox ~packing:v#pack () in
-  let h2 = GPack.hbox ~packing:v#pack () in
-  let h3 = GPack.hbox ~packing:v#pack () in
-  let h4 = GPack.hbox ~packing:v#pack () in
-  let l1 = GMisc.label ~text:"text" ~packing:h1#pack () in
-  let e1 = GEdit.entry ~packing:h1#pack () in
-  let l2 = GMisc.label ~text:"tooltip_text" ~packing:h2#pack () in
-  let e2 = GEdit.entry ~packing:h2#pack () in
-  let l3 = GMisc.label ~text:"private_text" ~packing:h3#pack () in
-  let e3 = GEdit.entry ~packing:h3#pack () in
-  let b1 = GButton.button ~label:"OK" ~packing:h4#pack () in
-  let b2 = GButton.button ~label:"Cancel" ~packing:h4#pack () in
-  w#show ();
-  b1#connect#clicked
-    ~callback:(fun () -> rt := e1#text; rtt := e2#text;
-      rptt := e3#text; ok := true;
-      w#destroy ());
-  b2#connect#clicked ~callback:w#destroy;
-  w#connect#destroy ~callback:GMain.Main.quit;
-  GMain.Main.main ();
-  !ok, !rt, !rtt, !rptt
-
-
-
-(**********************************************************)
-
-let get5floats_from_string s =
-  try
-    let n1 = String.index s ' ' in
-    let f1 = float_of_string (String.sub s ~pos:0 ~len:(n1-1)) in
-    let n2 = String.index_from s (n1+1) ' ' in
-    let f2 = float_of_string (String.sub s ~pos:(n1+1) ~len:(n2-1)) in
-    let n3 = String.index_from s (n2+1) ' ' in
-    let f3 = float_of_string (String.sub s ~pos:(n2+1) ~len:(n3-1)) in
-    let n4 = String.index_from s (n3+1) ' ' in
-    let f4 = float_of_string (String.sub s ~pos:(n3+1) ~len:(n4-1)) in
-    let f5 = float_of_string (String.sub s ~pos:(n4+1) ~len:
-                               ((String.length s) -1)) in
-    f1, f2, f3, f4, f5
-  with _ -> failwith "get5floats_of_string"
-
-
-
-(**********************************************************)
-
-exception Float_of_string
-let my_float_of_string s =
-  let l = String.length s in
-  if l=0 then raise Float_of_string;
-  let sign, d = match s.[0] with
-  | '+' ->  1, 1
-  | '-' -> -1, 1
-  | _   ->  1, 0 in
-  let m, p =
-    let p = 
-      try
-       String.index s '.'
-      with Not_found -> l in
-    if p=d then 0, p
-    else
-      try int_of_string (String.sub s ~pos:d ~len:(p-d)), p
-      with Failure "int_of_string" -> raise Float_of_string
-  in
-  if p=l then float_of_int m
-  else begin
-    let f = ref 0. and r = ref 0.1 in
-    for i = p+1 to l-1 do
-      let k = (int_of_char s.[i]) - 48 in
-      if k > 9 || k < 0 then raise Float_of_string;
-      f := !f +. (float_of_int k) *. !r;
-      r := !r *. 0.1
-    done;
-    !f +. (float_of_int m)
-  end
-
-    
-  
-
-class entry_float obj ~init = let rv = ref init in
-object
-  inherit GEdit.entry obj as entry
-  method value =
-    try 
-      let v = my_float_of_string entry#text in
-      rv := v;
-      v
-    with Float_of_string ->
-      let pop = GWindow.window ~title:"error" ~modal:true () in
-      let vb = GPack.vbox ~packing:pop#add () in
-      let l = GMisc.label ~text:"value must be a float" ~packing:vb#pack () in
-      let b = GButton.button ~label:"OK" ~packing:vb#pack () in
-      b#connect#clicked ~callback:pop#destroy;
-      pop#event#connect#delete ~callback:(fun _ -> pop#destroy (); true);
-      pop#connect#destroy ~callback:GtkMain.Main.quit;
-      pop#show ();
-      GtkMain.Main.main ();
-      entry#set_text (string_of_float !rv);
-      !rv
-end
-
-
-let set_editable ?editable ?(width = -2) ?(height = -2) w =
-  Gaux.may editable ~f:(GtkEdit.Editable.set_editable w);
-  if width <> -2 || height <> -2 then GtkBase.Widget.set_usize w ~width ~height
-
-
-let entry_float ~init ?max_length ?visibility ?editable
-    ?width ?height ?packing ?show () = 
-  let w = GtkEdit.Entry.create ?max_length () in
-  GtkEdit.Entry.set w ~text:(string_of_float init) ?visibility;
-  set_editable w ?editable ?width ?height;
-  pack_return (new entry_float w ~init) ~packing ~show
-
-
-(*************************************************************)
-
-
-let split_string s ~sep =
-  let l = String.length s in
-  let r = ref [] in
-  let j = ref 0 in
-  for i = 0 to l-1 do
-    if String.unsafe_get s i = sep then begin
-      r := (String.sub s ~pos:!j ~len:(i - !j)) :: !r;
-      j := i + 1
-    end
-  done;
-  List.rev ((String.sub s ~pos:!j ~len:(l - !j)) :: !r)
-
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/vbox.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/vbox.xpm
deleted file mode 100644 (file)
index 1c557b0..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/vbox.xpm
+++ /dev/null
@@ -1,31 +0,0 @@
-/* XPM */
-static char *vbox_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 4 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c Gray100",
-/* pixels */
-"oooooooooooooooooooo ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"o................... ",
-"                     ",
-"oooooooooooooooooooo ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"o................... ",
-"                     ",
-"oooooooooooooooooooo ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"o................... ",
-"                     "
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/vbuttonbox.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/vbuttonbox.xpm
deleted file mode 100644 (file)
index 0c2bc95..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/vbuttonbox.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *vbuttonbox_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"++++++++OOOOO +++++++",
-"++++++++OXXX. +++++++",
-"++++++++OXXX. +++++++",
-"++++++++O.... +++++++",
-"++++++++      +++++++",
-"+++++++++++++++++++++",
-"++++++++OOOOO +++++++",
-"++++++++OXXX. +++++++",
-"++++++++OXXX. +++++++",
-"++++++++O.... +++++++",
-"++++++++      +++++++",
-"+++++++++++++++++++++",
-"++++++++OOOOO +++++++",
-"++++++++OXXX. +++++++",
-"++++++++OXXX. +++++++",
-"++++++++O.... +++++++",
-"++++++++      +++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/viewport.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/viewport.xpm
deleted file mode 100644 (file)
index 71e5e80..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/viewport.xpm
+++ /dev/null
@@ -1,34 +0,0 @@
-/* XPM */
-static char *viewport_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 7 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray87",
-"+ c Gray100",
-"@ c None",
-/* pixels */
-"@@@@@@@@@@@@@@@@@@@@@",
-"@...................@",
-"@.                +O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@.+++++++++++++++++O@",
-"@.OOOOOOOOOOOOOOOOOO@",
-"@@@@@@@@@@@@@@@@@@@@@"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/vseparator.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/vseparator.xpm
deleted file mode 100644 (file)
index 3455f74..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/vseparator.xpm
+++ /dev/null
@@ -1,31 +0,0 @@
-/* XPM */
-static char *vseparator_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 4 1",
-"  c #7b7b7b",
-". c #b3cece",
-"X c Gray100",
-"o c None",
-/* pixels */
-"ooooooooooooooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"ooooooooooooooooooooo"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/window.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/window.xpm
deleted file mode 100644 (file)
index 8407e28..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/radtest/window.xpm
+++ /dev/null
@@ -1,38 +0,0 @@
-/* XPM */
-static char *window_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 11 1",
-"  c Gray0",
-". c #00007b",
-"X c #7b7b7b",
-"o c Green",
-"O c Cyan",
-"+ c Red",
-"@ c Yellow",
-"# c #d6d6d6",
-"$ c #b3cece",
-"% c Gray100",
-"& c None",
-/* pixels */
-"&&&&&&&&&&&&&&&&&&&&&",
-"&&&&&&&&&&&&&&&&&&&&&",
-"&&&&&&&&&&&&&&&&&&&&&",
-"XXXXXXXXXXXXXXXXXXXX&",
-"X.+@...............X ",
-"X.Oo.%%%.%%.....# #X ",
-"XXXXXXXXXXXXXXXXXXXX ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"XXXXXXXXXXXXXXXXXXXX ",
-"&                    ",
-"&&&&&&&&&&&&&&&&&&&&&",
-"&&&&&&&&&&&&&&&&&&&&&"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/unison/.cvsignore b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/unison/.cvsignore
deleted file mode 100644 (file)
index 31706ab..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/unison/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-unison-*

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/unison/README b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/unison/README
deleted file mode 100644 (file)
index 73bcc25..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/unison/README
+++ /dev/null
@@ -1,19 +0,0 @@
-       A GUI for Unison
-
-Here is a lablGTK port of Unison's GUI.
-Or rather was, since this is now the standard GUI for unison.
-
-Unison is a file synchronization software developped by Benjamin
-Pierce, Trevor Jim, and others.
-
-As of version 2.3.12, unison is based on LablGTK 1.00.
-To use it with the current version, you must:
- * get unison-2.3.12/src.tar.gz from http://www.cis.upenn.edu/~bcpierce/unison/
- * untar it in this directory
- * copy or make links for uigtk.ml here inside unison-2.3.12
-        ln -fs ../uigtk.ml .
- * make and follow instructions in INSTALL.txt
-
-Jacques Garrigue
-
-$Id$

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/unison/uigtk.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/unison/uigtk.ml
deleted file mode 100644 (file)
index 6efacd6..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/applications/unison/uigtk.ml
+++ /dev/null
@@ -1,1434 +0,0 @@
-(* $Id$ *)
-
-open Util
-open Os
-open Common
-open Uicommon
-open Printf
-open Trace
-
-(**********************************************************************)
-(*                           GRAPHICAL INTERFACE                      *)
-(**********************************************************************)
-
-module Private : Uicommon.UI = struct
-
-open GMain
-open GdkKeysyms
-
-let debugprogress = Trace.debug "progress"
-
-(**********************************************************************)
-(* UI preferences                                                     *)
-(**********************************************************************)
-
-let fontMonospaceMedium =
-  if Sys.os_type = "Win32" then
-    lazy (Gdk.Font.load "-*-Courier New-Medium-R-Normal--*-110-*-*-*-*-*-*")
-  else
-    lazy (Gdk.Font.load "-*-Clean-Medium-R-Normal--*-130-*-*-*-*-*-*")
-let fontMonospaceBold =
-  if Sys.os_type = "Win32" then
-    lazy (Gdk.Font.load "-*-Courier New-Bold-R-Normal--*-110-*-*-*-*-*-*")
-  else
-    lazy (Gdk.Font.load "-*-Courier-Bold-R-Normal--*-120-*-*-*-*-*-*")
-
-(**********************************************************************)
-(* UI state variables                                                 *)
-(**********************************************************************)
-
-type stateItem = { ri : reconItem;
-                   mutable bytesTransferred : int;
-                   mutable whatHappened : unit confirmation option }
-let theState = ref [||]
-
-let current = ref None
-
-let currentWindow = ref None
-let grabFocus t =
-  match !currentWindow with
-    Some w -> t#set_transient_for w;
-              w#misc#set_sensitive false
-  | None   -> ()
-let releaseFocus () =
-  begin match !currentWindow with
-    Some w -> w#misc#set_sensitive true
-  | None   -> ()
-  end
-
-(**********************************************************************)
-(*                         Lock management                            *)
-(**********************************************************************)
-
-let busy = ref false
-
-let getLock f =
-  if !busy then
-    Trace.message "Synchronizer is busy, please wait..\n"
-  else begin
-    busy := true; f (); busy := false
-  end
-
-(**********************************************************************)
-(* Some widgets                                                              *)
-(**********************************************************************)
-
-class scrolled_text ?editable ?word_wrap ?width ?height ?packing ?show
-    () =
-  let sw =
-    GBin.scrolled_window ?width ?height ?packing ~show:false
-      ~hpolicy:`NEVER ~vpolicy:`AUTOMATIC ()
-  in
-  let text = GEdit.text ?editable ?word_wrap ~packing:sw#add () in
-  object
-    inherit GObj.widget_full sw#as_widget
-    method text = text
-    method insert ?(font=fontMonospaceMedium) s =
-      text#freeze ();
-      text#delete_text ~start:0 ~stop:text#length;
-      text#insert ~font:(Lazy.force font) s;
-      text#thaw ()
-    method show () = sw#misc#show ()
-    initializer
-      if show <> Some false then sw#misc#show ()
-  end
-
-let gtk_sync () = while Glib.Main.iteration false do () done
-
-(**********************************************************************)
-(*                           YES OR NO FUNCTION                       *)
-(**********************************************************************)
-(* val yesOrNo : string -> string -> (unit -> unit) -> (unit -> unit) *)
-(*                      -> unit                                       *)
-(* Displays a window with two buttons : YES and NO                    *)
-(* yesOrNo title message yesFunction noFunction open the title        *)
-(* window in which is displayed message. yesFunction and noFunctions  *)
-(* are the functions associated two the two buttons                   *)
-(**********************************************************************)
-let yesOrNo ~title ~message ~yes:yesFunction ~no:noFunction =
-  let t = GWindow.dialog ~title ~wm_name:title ~modal:true ~position:`CENTER () in
-  grabFocus t;
-  let theLabel = GMisc.label ~text:message
-      ~packing:(t#vbox#pack ~padding:4) () in
-  let yes = GButton.button ~label:"Yes" ~packing:t#action_area#add ()
-  and no = GButton.button ~label:"No" ~packing:t#action_area#add () in
-  no#grab_default ();
-  ignore
-    (yes#connect#clicked ~callback:(fun () -> t#destroy (); yesFunction ()));
-  ignore
-    (no#connect#clicked  ~callback:(fun () -> t#destroy (); noFunction ()));
-  t#show ();
-  ignore (t#connect#destroy ~callback:Main.quit);
-  Main.main ();
-  releaseFocus ()
-
-(**********************************************************************)
-(*                         SAFE EXIT FUNCTION                         *)
-(**********************************************************************)
-
-(* Avoid recursive invocations of the function below
-   (a window receives delete events even when it is not sensitive) *)
-let inExit = ref false
-
-let safeExit () =
-  if not !inExit then begin
-    inExit := true;
-    if not !busy then exit 0 else
-    yesOrNo ~title:"Premature exit"
-      ~message:"Unison is working, exit anyway ?"
-      ~yes:(fun () -> exit 0) ~no:(fun () -> ());
-    inExit := false
-  end
-
-(**********************************************************************)
-(* okBox: Display a message in a window and wait for the user         *)
-(* to hit the "OK" button.                                            *)
-(**********************************************************************)
-let okBox ~title ~message =
-  let t = GWindow.dialog ~title ~wm_name:title ~modal:true ~position:`CENTER () in
-  grabFocus t;
-  let theLabel = GMisc.label ~text:message
-      ~packing:(t#vbox#pack ~padding:4) () in
-  let ok = GButton.button ~label:"OK" ~packing:t#action_area#add () in
-  ok#grab_default ();
-  ignore (ok#connect#clicked ~callback:(fun () -> t#destroy()));
-  t#show ();
-  (* Do nothing until user destroys window *)
-  ignore (t#connect#destroy ~callback:Main.quit);
-  Main.main ();
-  releaseFocus ()
-
-(**********************************************************************)
-(* warnBox: Display a warning message in a window and wait for the    *)
-(* user to hit "OK" or "Exit".                                        *)
-(**********************************************************************)
-let warnBox ~title ~message =
-  inExit := true;
-  let t = GWindow.dialog ~title ~wm_name:title ~modal:true ~position:`CENTER () in
-  grabFocus t;
-  let theLabel =
-    GMisc.label ~text:message
-      ~packing:(t#vbox#pack ~padding:4) () in
-  let ok = GButton.button ~label:"OK" ~packing:t#action_area#add () in
-  ok#grab_default ();
-  ignore (ok#connect#clicked ~callback:(fun () -> t#destroy()));
-  let exi = GButton.button ~label:"Exit" ~packing:t#action_area#add () in
-  ignore (exi#connect#clicked ~callback:(fun () -> exit 0));
-  t#show ();
-  (* Do nothing until user destroys window *)
-  ignore (t#connect#destroy ~callback:Main.quit);
-  Main.main ();
-  releaseFocus ();
-  inExit := false
-
-(**********************************************************************)
-(* Standard file dialog                                               *)
-(**********************************************************************)
-let file_dialog ~title ~callback ?filename () =
-  let sel = GWindow.file_selection ~title ~modal:true ?filename () in
-  grabFocus sel;
-  ignore (sel#cancel_button#connect#clicked ~callback:sel#destroy);
-  ignore (sel#ok_button#connect#clicked ~callback:
-            (fun () ->
-               let name = sel#get_filename in
-               sel#destroy ();
-               callback name));
-  sel#show ();
-  Main.main ();
-  releaseFocus ()
-
-(**********************************************************************)
-(* The root selection dialog                                          *)
-(**********************************************************************)
-let rootSelect cont =
-  let t = GWindow.dialog ~title:"Root selection" ~wm_name:"Root selection"
-      ~modal:true ~allow_grow:true () in
-  t#misc#grab_focus ();
-  
-  let makeGetRoot title =
-    let fr =
-      GBin.frame ~label:title ~border_width:2 ~packing:(t#vbox#add) () in
-
-    let vb = GPack.vbox ~border_width:4 ~packing:fr#add () in
-  
-    let f = GPack.vbox ~packing:(vb#add) () in
-    let f0 = GPack.hbox ~spacing:4 ~packing:f#add () in
-    ignore (GMisc.label ~text:"Host:" ~packing:f0#pack ());
-    let localB = GButton.radio_button ~packing:f0#pack
-        ~label:"Local" () in
-    let remoteB = GButton.radio_button ~group:localB#group
-        ~packing:f0#pack ~label:"Remote" () in
-    let hostE = GEdit.entry ~packing:f0#add () in
-    let f1 = GPack.hbox ~spacing:4 ~packing:f#add () in
-    ignore (GMisc.label ~text:"File:" ~packing:f1#pack ());
-    let fileE = GEdit.entry ~packing:f1#add () in
-    let browseCommand() =
-      file_dialog ~title:"Select a local file"
-        ~callback:(fun file -> fileE#set_text file) ~filename:fileE#text ()
-    in
-    let b = GButton.button ~label:"Browse"
-        ~packing:f1#pack () in
-    ignore (b#connect#clicked ~callback:browseCommand);
-    let varLocalRemote = ref (`Local : [`Local|`Remote]) in
-    let localState() =
-      varLocalRemote := `Local;
-      hostE#misc#set_sensitive false;
-      b#misc#set_sensitive true
-    in
-    let remoteState() =
-      varLocalRemote := `Remote;
-      hostE#misc#set_sensitive true;
-      b#misc#set_sensitive false
-    in
-    ignore (localB#connect#clicked ~callback:localState);
-    ignore (remoteB#connect#clicked ~callback:remoteState);
-    localState();
-    let getRoot() =
-      let filePart = fileE#text in
-      let remoteHost = hostE#text in
-      (* FIX: should do sanity checking here *)
-      match !varLocalRemote with
-        `Local -> filePart
-      | `Remote -> "//"^remoteHost^"/"^filePart in
-    getRoot
-  in
-  
-  let getRoot1 = makeGetRoot "Root 1" in
-  let getRoot2 = makeGetRoot "Root 2" in
-  
-  let f3 = t#action_area in
-  let okCommand() =
-    let root1 = getRoot1() in
-    let root2 = getRoot2() in
-    Prefs.setPref Uicommon.roots Prefs.TempSetting [root1;root2];
-    t#destroy ();
-    cont ()
-  in
-  let okButton = GButton.button ~label:"OK" ~packing:f3#add () in
-  ignore (okButton#connect#clicked ~callback:okCommand);
-  okButton#grab_default ();
-  let cancelButton = GButton.button ~label:"Cancel" ~packing:f3#add () in
-  ignore (cancelButton#connect#clicked ~callback:safeExit);
-  
-  (* The profile editing dialog has been installed into the Gtk
-     main interaction loop; wait until it completes. *)
-  t#show ();
-  ignore (t#connect#destroy ~callback:Main.quit);
-  Main.main ()
-
-(**********************************************************************)
-(* The root selection dialog                                          *)
-(**********************************************************************)
-let editProfile prof =
-  (* FIX:
-     Scan the profile (if it is defined)
-     Extract the roots
-     Modifications
-     Save with new roots *)
-  let t = GWindow.dialog ~title:"Edit profile" ~wm_name:"Edit profile"
-      ~modal:true ~allow_grow:true () in
-  t#misc#grab_focus ();
-  
-  let vb = GPack.vbox ~border_width:4 ~packing:t#vbox#add () in
-  
-  let makeGetRoot() =
-    let f = GPack.vbox ~packing:(vb#pack ~expand:true ~padding:4) () in
-    let f0 = GPack.hbox ~spacing:4 ~packing:f#add () in
-    ignore (GMisc.label ~text:"Host:" ~packing:f0#pack ());
-    let localB = GButton.radio_button ~packing:f0#pack ~label:"Local" () in
-    let remoteB = GButton.radio_button ~group:localB#group
-        ~packing:f0#pack ~label:"Remote" () in
-    let hostE = GEdit.entry ~packing:f0#add () in
-    let f1 = GPack.hbox ~spacing:4 ~packing:f#add () in
-    ignore (GMisc.label ~text:"File:" ~packing:f1#pack ());
-    let fileE = GEdit.entry ~packing:f1#add () in
-    let browseCommand() =
-      file_dialog ~title:"Select a local file"
-        ~callback:(fun file -> fileE#set_text file) ()
-    in
-    let b = GButton.button ~label:"Browse" ~packing:f1#pack () in
-    ignore (b#connect#clicked ~callback:browseCommand);
-    let varLocalRemote = ref (`Local : [`Local|`Remote]) in
-    let localState() =
-      varLocalRemote := `Local;
-      hostE#set_editable false;
-      b#misc#set_state `NORMAL
-    in
-    let remoteState() =
-      varLocalRemote := `Remote;
-      hostE#set_editable true;
-      b#misc#set_state `INSENSITIVE
-    in
-    ignore (localB#connect#clicked ~callback:localState);
-    ignore (remoteB#connect#clicked ~callback:remoteState);
-    localState();
-    let getRoot() =
-      let filePart = fileE#text in
-      let remoteHost = hostE#text in
-      (* FIX: should do sanity checking here *)
-      match !varLocalRemote with
-        `Local -> filePart
-      | `Remote -> "//"^remoteHost^"/"^filePart in
-    getRoot
-  in
-  
-  
-  ignore (GMisc.label ~text:"Root 1:" ~xalign:0.
-            ~packing:(vb#pack ~expand:true ~padding:4) ());
-  let getRoot1 = makeGetRoot() in
-  
-  ignore (GMisc.label ~text:"Root 2:" ~xalign:0.
-            ~packing:(vb#pack ~expand:true ~padding:4) ());
-  let getRoot2 = makeGetRoot() in
-  
-  let f3 = t#action_area in
-  let okCommand() =
-    let root1 = getRoot1() in
-    let root2 = getRoot2() in
-    Prefs.setPref Uicommon.roots Prefs.PermanentSetting [root1;root2];
-    Globals.savePrefs();
-    t#destroy () in
-  let okButton = GButton.button ~label:"OK" ~packing:f3#add () in
-  ignore (okButton#connect#clicked ~callback:okCommand);
-  let cancelCommand() =
-    t#destroy ()
-  in
-  let cancelButton = GButton.button ~label:"Cancel" ~packing:f3#add () in
-  ignore (cancelButton#connect#clicked ~callback:cancelCommand);
-  
-  (* The profile editing dialog has been installed into the Gtk
-     main interaction loop; wait until it completes. *)
-  t#show ();
-  ignore (t#connect#destroy ~callback:Main.quit);
-  Main.main ()
-
-(**********************************************************************)
-(*                        Documentation window                        *)
-(**********************************************************************)
-let documentation sect =
-  let title = "Documentation" in
-  let t = GWindow.dialog ~title ~wm_name:title () in
-  let t_dismiss =
-    GButton.button ~label:"dismiss" ~packing:t#action_area#add () in
-  t_dismiss#grab_default ();
-  let dismiss () = t#destroy () in
-  ignore (t_dismiss#connect#clicked ~callback:dismiss);
-  ignore (t#event#connect#delete ~callback:(fun _ -> dismiss (); true));
-
-  let (name, docstr) = List.assoc sect Strings.docs in
-  let hb = GPack.hbox ~packing:(t#vbox#pack ~expand:false ~padding:2) () in
-  let optionmenu =
-    GMenu.option_menu ~packing:(hb#pack ~fill:false) () in
-
-  let charW = Gdk.Font.char_width (Lazy.force fontMonospaceMedium) 'M' in
-  let charH = 16 in
-  let t_text =
-    new scrolled_text ~editable:false
-      ~width:(charW * 80) ~height:(charH * 20) ~packing:t#vbox#add ()
-  in
-  t_text#insert docstr;
-
-  let sect_idx = ref 0 in
-  let idx = ref 0 in
-  let menu = GMenu.menu () in
-  let addDocSection (shortname, (name, docstr)) =
-    if shortname <> "" && name <> "" then begin
-      if shortname = sect then sect_idx := !idx;
-      incr idx;
-      let item = GMenu.menu_item ~label:name ~packing:menu#append () in
-      ignore
-        (item#connect#activate ~callback:(fun () -> t_text#insert docstr))
-    end
-  in
-  Safelist.iter addDocSection Strings.docs;
-  optionmenu#set_menu menu;
-  optionmenu#set_history !sect_idx;
-
-  t#show ()
-
-(**********************************************************************)
-(* The profile selection dialog                                       *)
-(**********************************************************************)
-let profileSelect cont =
-(* FIX:
-  - Choix du profil par defaut
-*)
-  let profilesAndRoots =
-    ref
-      (Safelist.map
-         (fun f ->
-            let filename = fspath2string (Os.fileInUnisonDir f) in
-            let roots =
-              Safelist.map snd
-                (Safelist.filter (fun (n, v) -> n = "root")
-                   (Prefs.scanPreferencesFile filename))
-            in
-            (Filename.chop_suffix f ".prf", roots))
-         (Files.ls (fspath2string Os.synchronizerFspath) "*.prf")) in
-
-  (* The selected profile *)
-  let selection = ref None in
-  
-  (* Build the dialog *)
-  let t = GWindow.dialog ~title:"Profiles" ~wm_name:"Profiles" () in
-  
-  let okCommand() =
-    match !selection with
-      Some profile ->
-        Globals.prefsFileName := profile ^ ".prf";
-        currentWindow := None;
-        t#destroy ();
-        cont ()
-    | _ ->
-        ()
-  in
-  let okButton = GButton.button ~label:"OK" ~packing:t#action_area#add () in
-  ignore (okButton#connect#clicked ~callback:okCommand);
-  okButton#misc#set_sensitive false;
-  okButton#grab_default ();
-  let cancelCommand() = t#destroy (); Main.quit () in
-  let cancelButton = GButton.button ~label:"Cancel"
-      ~packing:t#action_area#add () in
-  ignore (cancelButton#connect#clicked ~callback:cancelCommand);
-  cancelButton#misc#set_can_default true;
-  
-  let vb = t#vbox in
-  
-  ignore (GMisc.label
-            ~text:"Select an existing profile or create a new one"
-            ~xpad:2 ~ypad:2 ~packing:vb#pack ());
-  
-  let sw =
-    GBin.scrolled_window ~packing:vb#add ~height:100
-      ~hpolicy:`AUTOMATIC ~vpolicy:`AUTOMATIC ()
-  in
-  let lst = GList.clist ~selection_mode:`BROWSE ~packing:(sw#add) () in
-  let fillLst default =
-    lst#freeze ();
-    lst#clear ();
-    let selRow = ref 0 in
-    let i = ref 0 in (* FIX: Work around a lablgtk bug *)
-    Safelist.iter
-      (fun (profile, roots) ->
-         ignore (lst#append [profile]);
-         if profile = default then selRow := !i;
-         lst#set_row_data !i (profile, roots);
-         incr i)
-      (List.sort (fun (p, _) (p', _) -> compare p p') !profilesAndRoots);
-    let r = lst#rows in
-    let p = if r < 2 then 0. else float !selRow /. float (r - 1) in
-    lst#scroll_vertical `JUMP p;
-    lst#thaw ()
-  in
-  let tbl =
-    GPack.table ~rows:2 ~columns:2 ~packing:vb#pack ()
-  in
-  tbl#misc#set_sensitive false;
-  ignore (GMisc.label ~text:"Root 1:" ~xpad:2
-            ~packing:(tbl#attach ~left:0 ~top:0 ~expand:`NONE) ());
-  ignore (GMisc.label ~text:"Root 2:" ~xpad:2
-            ~packing:(tbl#attach ~left:0 ~top:1 ~expand:`NONE) ());
-  let root1 =
-    GEdit.entry ~packing:(tbl#attach ~left:1 ~top:0) ~editable:false () in
-  let root2 =
-    GEdit.entry ~packing:(tbl#attach ~left:1 ~top:1) ~editable:false () in
-  root1#misc#set_can_focus false;
-  root2#misc#set_can_focus false;
-  let hb =
-    GPack.hbox ~border_width:2 ~spacing:2 ~packing:(vb#pack ~expand:false) ()
-  in
-  let nw =
-    GButton.button ~label:"Create new profile"
-      ~packing:hb#pack () in
-  ignore (nw#connect#clicked ~callback:(fun () ->
-    let t =
-      GWindow.dialog ~title:"New profile" ~wm_name:"New profile" ~modal:true ()
-    in
-    let vb = GPack.vbox ~border_width:4 ~packing:t#vbox#add () in
-    let f = GPack.vbox ~packing:(vb#pack ~expand:true ~padding:4) () in
-    let f0 = GPack.hbox ~spacing:4 ~packing:f#add () in
-    ignore (GMisc.label ~text:"Profile name:"
-              ~packing:f0#pack ());
-    let prof = GEdit.entry ~packing:f0#add () in
-    prof#misc#grab_focus ();
-
-    let exit () = t#destroy (); Main.quit () in
-    ignore (t#event#connect#delete ~callback:(fun _ -> exit (); true));
-
-    let f3 = t#action_area in
-    let okCommand () =
-      let profile = prof#text in
-      if profile <> "" then
-        let file = profile ^ ".prf" in
-        let fspath = Os.fileInUnisonDir file in
-        let filename = fspath2string fspath in
-        if Sys.file_exists filename then
-          okBox (myName ^ " error")
-            ("Profile \""
-             ^ profile
-             ^ "\" already exists!\nPlease select another name.")
-        else
-          (* Make an empty file *)
-          let ch =
-            open_out_gen
-              [Open_wronly; Open_creat; Open_trunc] 0o600 filename in
-          close_out ch;
-          profilesAndRoots := (profile, [])::!profilesAndRoots;
-          fillLst profile;
-          exit ()
-    in
-    let okButton = GButton.button ~label:"OK" ~packing:f3#add () in
-    ignore (okButton#connect#clicked ~callback:okCommand);
-    okButton#grab_default ();
-    let cancelButton = GButton.button ~label:"Cancel" ~packing:f3#add () in
-    ignore (cancelButton#connect#clicked ~callback:exit);
-
-    t#show ();
-    grabFocus t;
-    Main.main ();
-    releaseFocus ()));
-  let ed =
-    GButton.button ~label:"Edit" (*~packing:(hb#pack ~expand:false)*) () in
-  let sd =
-    GButton.button ~label:"Set default" (*~packing:(hb#pack ~expand:false)*) ()
-  in
-  let hlp =
-    GButton.button ~label:"Help"
-      ~packing:(hb#pack ~expand:false ~from:`END) () in
-  ignore (hlp#connect#clicked ~callback:(fun () -> documentation "tutorial"));
-
-  ignore (lst#connect#unselect_row ~callback:(fun _ _ _ ->
-    root1#set_text ""; root2#set_text "";
-    selection := None;
-    tbl#misc#set_sensitive false;
-    okButton#misc#set_sensitive false;
-    ed#misc#set_sensitive false;
-    sd#misc#set_sensitive false));
-  ignore (lst#connect#select_row ~callback:(fun i _ _ ->
-    (* Inserting the first row trigger the signal, even before the row
-       data is set. So, we need to catch the corresponding exception *)
-    try
-      let (profile, roots) = lst#get_row_data i in
-      selection := Some profile;
-      begin match roots with
-        [r1; r2] -> root1#set_text r1; root2#set_text r2;
-                    tbl#misc#set_sensitive true
-      | _        -> root1#set_text ""; root2#set_text "";
-                    tbl#misc#set_sensitive false
-      end;
-      okButton#misc#set_sensitive true;
-      ed#misc#set_sensitive true;
-      sd#misc#set_sensitive true
-    with Gpointer.Null -> ()));
-  ignore (lst#event#connect#button_press ~callback:(fun ev ->
-    match GdkEvent.get_type ev with
-      `TWO_BUTTON_PRESS ->
-        okCommand ();
-        true
-    | _ ->
-        false));
-  fillLst "default";
-  lst#misc#grab_focus ();
-  currentWindow := Some (t :> GWindow.window);
-  ignore (t#event#connect#delete ~callback:(fun _ -> Main.quit (); true));
-  t#show ()
-
-(**********************************************************************)
-(* Function to display a message in a new window                      *)
-(**********************************************************************)
-let messageBox ~title ?(label = "Dismiss") ?(action = fun t -> t#destroy)
-    ?(modal = false) message =
-  let t = GWindow.dialog ~title ~wm_name:title ~modal ~position:`CENTER () in
-  let t_dismiss = GButton.button ~label ~packing:t#action_area#add () in
-  t_dismiss#grab_default ();
-  ignore (t_dismiss#connect#clicked ~callback:(action t));
-  let charW = Gdk.Font.char_width (Lazy.force fontMonospaceMedium) 'M' in
-  let charH = 16 in
-  let t_text =
-    new scrolled_text ~editable:false
-      ~width:(charW * 80) ~height:(charH * 20) ~packing:t#vbox#add ()
-  in
-  t_text#insert message;
-  ignore (t#event#connect#delete ~callback:(fun _ -> action t (); true));
-  t#show ();
-  if modal then begin
-    grabFocus t;
-    Main.main ();
-    releaseFocus ()
-  end
-
-(**********************************************************************)
-(* Fatal error handling                                               *)
-(**********************************************************************)
-let fatalError =
-  messageBox ~title:"Fatal Error" ~label:"Exit" ~modal:true
-    ~action:(fun t () -> exit 1)
-
-
-(**********************************************************************)
-(*                      Toplevel window                               *)
-(**********************************************************************)
-let createToplevelWindow () =
-  let toplevelWindow = GWindow.window ~wm_name:myName () in
-  let toplevelVBox = GPack.vbox ~packing:toplevelWindow#add () in
-
-  (**********************************************************************)
-  (* Groups of same sensitivity                                         *)
-  (**********************************************************************)
-  let grAction = ref [] in
-  let grDiff = ref [] in
-  let grProceed = ref [] in
-  let grRestart = ref [] in
-  let grAdd gr w = gr := w#misc::!gr in
-  let grSet gr st = List.iter (fun x -> x#set_sensitive st) !gr in
-
-  (**********************************************************************)
-  (* Create the menu bar                                                *)
-  (**********************************************************************)
-  let menuBar =
-    GMenu.menu_bar ~border_width:2 ~packing:toplevelVBox#pack ()
-  in
-  let menus = new GMenu.factory ~accel_modi:[] menuBar in
-  let accel_group = menus#accel_group in
-  toplevelWindow#add_accel_group accel_group;
-  let add_submenu ?(modi=[]) ~label () =
-    new GMenu.factory ~accel_group ~accel_modi:modi (menus#add_submenu label)
-  in
-  
-  (**********************************************************************)
-  (* Create the menus                                                   *)
-  (**********************************************************************)
-  let fileMenu = add_submenu ~label:"Synchronization" ()
-  and actionsMenu = add_submenu ~label:"Actions" ()
-  and ignoreMenu = add_submenu ~modi:[`SHIFT] ~label:"Ignore" ()
-  and helpMenu = add_submenu ~label:"Help" () in
-
-  (**********************************************************************)
-  (* Create the main window                                             *)
-  (**********************************************************************)
-  let mainWindow =
-    let sw =
-      GBin.scrolled_window ~packing:(toplevelVBox#add)
-        ~height:(Prefs.readPref mainWindowHeight * 12)
-        ~hpolicy:`AUTOMATIC ~vpolicy:`AUTOMATIC ()
-    in
-    GList.clist
-      ~columns:5 ~titles_show:true ~selection_mode:`BROWSE ~packing:sw#add ()
-  in
-  mainWindow#misc#grab_focus ();
-  (* FIX: roots2string should return a pair *)
-  let s = roots2string () in
-  Array.iteri
-    (fun i data ->
-       mainWindow#set_column
-         ~title_active:false ~auto_resize:true ~title:data i)
-    [| " " ^ String.sub s ~pos:0 ~len:12 ^ " "; "  Action  ";
-       " " ^ String.sub s ~pos:15 ~len:12 ^ " "; "  Status  "; " Path" |];
-  let status_width =
-    let font = mainWindow#misc#style#font in
-    4 + max (Gdk.Font.string_width font "working")
-            (Gdk.Font.string_width font "skipped")
-  in
-  mainWindow#set_column ~justification:`CENTER 1;
-  mainWindow#set_column
-    ~justification:`CENTER ~auto_resize:false ~width:status_width 3;
-
-  (**********************************************************************)
-  (* Create the details window                                          *)
-  (**********************************************************************)
-
-  let charW = Gdk.Font.char_width (Lazy.force fontMonospaceMedium) 'M' in
-  let charH = if Sys.os_type = "Win32" then 20 else 16 in
-
-  let detailsWindow =
-    let sw =
-      GBin.scrolled_window ~packing:(toplevelVBox#pack ~expand:false)
-        ~hpolicy:`AUTOMATIC ~vpolicy:`AUTOMATIC ()
-    in
-    GEdit.text ~editable:false ~height:(3 * charH) ~width: (96 * charW)
-      ~line_wrap:false ~packing:sw#add () in
-  detailsWindow#misc#set_can_focus false;
-  let style = detailsWindow#misc#style#copy in
-  style#set_font (Lazy.force fontMonospaceMedium);
-  detailsWindow#misc#set_style style;
-  let updateButtons () =
-    match !current with
-      None ->
-        grSet grAction false;
-        grSet grDiff false
-    | Some row ->
-        let (activate1, activate2) =
-          match !theState.(row).whatHappened, !theState.(row).ri.replicas with
-            Some _, _                                    -> (false, false)
-          | None,   Different((FILE,_, _),(FILE,_, _),_) -> (true, true)
-          | None,   _                                    -> (true, false)
-        in
-        grSet grAction activate1;
-        grSet grDiff activate2
-  in
-
-  let makeRowVisible row =
-    if mainWindow#row_is_visible row <> `FULL then begin
-      let adj = mainWindow#vadjustment in
-      let current = adj#value
-      and upper = adj#upper and lower = adj#lower in
-      let v =
-        float row /. float (mainWindow#rows + 1) *. (upper-.lower) +. lower
-      in
-      adj#set_value (min v (upper -. adj#page_size))
-    end
-  in
-
-  let updateDetails () =
-    detailsWindow#freeze ();
-    detailsWindow#delete_text ~start:0 ~stop:detailsWindow#length;
-    begin match !current with
-      None ->
-        ()
-    | Some row ->
-        makeRowVisible row;
-        let details =
-          match !theState.(row).whatHappened with
-            None -> details2string !theState.(row).ri "  "
-          | Some(Succeeded(_)) -> details2string !theState.(row).ri "  "
-          | Some(Failed(s)) -> s in
-        detailsWindow#insert (path2string !theState.(row).ri.path);
-        detailsWindow#insert "\n";
-        detailsWindow#insert details
-    end;
-    (* Display text *)
-    detailsWindow#thaw ();
-    updateButtons ()
-  in
-
-  (**********************************************************************)
-  (*                       CREATE THE STATUS WINDOW                     *)
-  (**********************************************************************)
-
-  let statusWindow =
-    GMisc.statusbar ~packing:toplevelVBox#pack () in
-  let statusContext = statusWindow#new_context ~name:"status" in
-  ignore (statusContext#push "");
-
-  let displayStatus s1 s2 =
-    Threads.do_on_main_thread (fun () ->
-      (* Concatenate the new message *)
-      let m =
-        s1 ^ (String.make (max 2 (30 - String.length s1)) ' ') ^ s2 in
-      statusContext#pop ();
-      ignore (statusContext#push m);
-      (* Force message to be displayed immediately *)
-      gtk_sync ())
-  in
-
-  (* Tell the Trace module about the status printer *)
-  Trace.statusPrinter := Some displayStatus;
-
-  (**********************************************************************)
-  (*            FUNCTIONS USED TO PRINT IN THE MAIN WINDOW              *)
-  (**********************************************************************)
-
-  let select i =
-    let r = mainWindow#rows in
-    let p = if r < 2 then 0. else (float i +. 0.5) /. float (r - 1) in
-    mainWindow#scroll_vertical `JUMP (min p 1.)
-  in
-
-  ignore (mainWindow#connect#unselect_row ~callback:
-      (fun ~row ~column ~event -> current := None; updateDetails ()));
-  ignore (mainWindow#connect#select_row ~callback:
-      (fun ~row ~column ~event -> current := Some row; updateDetails ()));
-
-  let nextInteresting () =
-    let l = Array.length !theState in
-    let start = match !current with Some i -> i + 1 | None -> 0 in
-    let rec loop i =
-      if i < l then
-        match !theState.(i).ri.replicas with
-          Different (_, _, dir)
-              when not (Prefs.readPref auto) || !dir = Conflict ->
-            select i
-        | _ ->
-            loop (i + 1)
-    in
-    loop start
-  in
-  let selectSomethingIfPossible () =
-    if !current=None then nextInteresting ()
-  in
-
-  let columnsOf i =
-    let oldPath = if i = 0 then emptypath else !theState.(i-1).ri.path in
-    let status =
-      match !theState.(i).whatHappened with
-        None -> "      "
-      | Some conf ->
-          match !theState.(i).ri.replicas with
-            Different(_,_,{contents=Conflict}) | Problem _ ->
-              "      "
-          | _ ->
-              match conf with
-                Succeeded _ -> "done  "
-              | Failed _    -> "failed"
-    in
-    let s = reconItem2string oldPath !theState.(i).ri status in
-    (* FIX: This is ugly *)
-    (String.sub s ~pos:0 ~len:8,
-     String.sub s ~pos:9 ~len:5,
-     String.sub s ~pos:15 ~len:8,
-     String.sub s ~pos:25 ~len:6,
-     String.sub s ~pos:32 ~len:(String.length s - 32))
-  in
-
-  let rightArrow =
-    GDraw.pixmap_from_xpm_d ~window:toplevelWindow ~data:Pixmaps.copyAB () in
-  let leftArrow =
-    GDraw.pixmap_from_xpm_d ~window:toplevelWindow ~data:Pixmaps.copyBA () in
-  let rightArrowBlack =
-    GDraw.pixmap_from_xpm_d
-      ~window:toplevelWindow ~data:Pixmaps.copyABblack () in
-  let leftArrowBlack =
-    GDraw.pixmap_from_xpm_d
-      ~window:toplevelWindow ~data:Pixmaps.copyBAblack () in
-  let ignoreAct =
-    GDraw.pixmap_from_xpm_d ~window:toplevelWindow ~data:Pixmaps.ignore () in
-  let doneIcon = 
-    GDraw.pixmap_from_xpm_d ~window:toplevelWindow ~data:Pixmaps.success () in
-  let failedIcon = 
-    GDraw.pixmap_from_xpm_d ~window:toplevelWindow ~data:Pixmaps.failure () in
-
-  let displayArrow i action =
-    match action with
-      "<-?->" -> mainWindow#set_cell ~pixmap:ignoreAct i 1
-    | "---->" -> mainWindow#set_cell ~pixmap:rightArrow i 1
-    | "<----" -> mainWindow#set_cell ~pixmap:leftArrow i 1
-    | "error" -> mainWindow#set_cell ~pixmap:failedIcon i 1
-    |    _    -> assert false
-  in
-
-  let displayStatusIcon i status =
-    match status with
-    | "failed" -> mainWindow#set_cell ~pixmap:failedIcon i 3
-    | "done  " -> mainWindow#set_cell ~pixmap:doneIcon i 3
-    | _        -> mainWindow#set_cell ~text:status i 3
-  in
-
-  let displayMain() =
-    mainWindow#freeze ();
-    mainWindow#clear ();
-    for i = 0 to Array.length !theState - 1 do
-      let (r1, action, r2, status, path) = columnsOf i in
-      ignore (mainWindow#append [ r1; ""; r2; status; path ]);
-      displayArrow i action
-    done;
-    selectSomethingIfPossible ();
-    begin match !current with Some idx -> select idx | None -> () end;
-    mainWindow#thaw ();
-    updateDetails ()
-  in
-
-  let redisplay i =
-    let (r1, action, r2, status, path) = columnsOf i in
-    mainWindow#freeze ();
-    mainWindow#set_cell ~text:r1     i 0;
-    displayArrow i action;
-    mainWindow#set_cell ~text:r2     i 2;
-    displayStatusIcon i status;
-    mainWindow#set_cell ~text:path   i 4;
-    if status = " failed " then mainWindow#set_row ~foreground:(`NAME"red") i;
-    mainWindow#thaw ();
-    if !current = Some i then updateDetails ();
-    updateButtons ()
-  in
-
-  let showProgress i bytes =
-    !theState.(i).bytesTransferred <- !theState.(i).bytesTransferred + bytes;
-    let b = !theState.(i).bytesTransferred in
-    let len = Common.riLength !theState.(i).ri in
-    let newstatus =
-      if b=0 || len = 0 then "working "
-      else if len = 0 then sprintf "%8d" b 
-      else
-        let percentage = (int_of_float ((float b) *. 100.0 /. (float len))) in
-        if percentage > 100 then
-          debugprogress (fun() -> errmsg "Progress amount miscalculated for %s\n"
-                                    (path2string (!theState.(i).ri.path)));
-        sprintf "  %3d%%  " (max 100 percentage) in
-    Threads.do_on_main_thread (fun () ->
-      mainWindow#set_cell ~text:newstatus i 3;
-      gtk_sync ())
-  in
-
-  (* Install showProgress so that we get called back by low-level
-     file transfer stuff *)
-  Util.progressPrinter := Some(showProgress);
-
-  (* Apply new ignore patterns to the current state, expecting that the
-     number of reconitems will grow smaller. Adjust the display, being
-     careful to keep the cursor as near as possible to its position
-     before the new ignore patterns take effect. *)
-  let ignoreAndRedisplay () =
-    let lst = Array.to_list !theState in
-    (* FIX: we should actually test whether any prefix is now ignored *)
-    let keep sI = not (Pred.test Globals.ignore (path2string sI.ri.path)) in
-    begin match !current with
-      None ->
-        theState := Array.of_list (Safelist.filter keep lst)
-    | Some index ->
-        let i = ref index in
-        let l = ref [] in
-        Array.iteri
-          (fun j sI -> if keep sI then l := sI::!l
-                       else if j < !i then decr i)
-          !theState;
-        current := if !l = [] then None else Some !i;
-        theState := Array.of_list (Safelist.rev !l)
-    end;
-    displayMain();
-  in
-  
-  (**********************************************************************)
-  (*                         FUNCTION DETECT UPDATES                    *)
-  (**********************************************************************)
-
-  let detectUpdatesAndReconcile () =
-    grSet grAction false;
-    grSet grDiff false;
-    grSet grProceed false;
-    grSet grRestart false;
-
-    let (r1,r2) = Globals.getReplicaRoots () in
-    let t = Trace.startTimer "Checking for updates" in
-    let findUpdates () =
-      let updates = Update.findUpdates () in
-      Trace.showTimer t;
-      updates
-    in
-    let reconcile updates =
-      let t = Trace.startTimer "Reconciling" in
-      Recon.reconcileAll updates
-    in
-    let reconItemList = reconcile (findUpdates ()) in
-    Trace.showTimer t;
-    if reconItemList = [] then
-      Trace.status "Everything is up to date"
-    else
-      Trace.status ("Check and/or adjust selected actions; "
-                    ^ "then press Proceed");
-    theState :=
-      Array.of_list
-         (Safelist.map
-            (fun ri -> { ri = ri; bytesTransferred = 0; whatHappened = None })
-            reconItemList);
-    current := None;
-    displayMain();
-    grSet grProceed (Array.length !theState > 0);
-    grSet grRestart true
-  in
-
-  (**********************************************************************)
-  (* The ignore dialog                                                  *)
-  (**********************************************************************)
-
-  let ignoreDialog () =
-    let t = GWindow.dialog ~title: "Ignore" ~wm_name: "Ignore" () in
-    let hbox = GPack.hbox ~packing:t#vbox#add () in
-    let sb = GRange.scrollbar `VERTICAL
-        ~packing:(hbox#pack ~from:`END) () in
-    let regExpWindow =
-      GList.clist ~columns:1 ~titles_show:false ~packing:hbox#add
-        ~vadjustment:sb#adjustment ~width:400 ~height:150 () in
-    
-    (* Local copy of the regular expressions; the global copy will
-       not be changed until the Apply button is pressed *)
-    let theRegexps = Pred.extern Globals.ignore in
-    Safelist.iter (fun r -> ignore (regExpWindow#append [r])) theRegexps;
-    let maybeGettingBigger = ref false in
-    let maybeGettingSmaller = ref false in
-    let selectedRow = ref None in
-    ignore
-      (regExpWindow#connect#select_row ~callback:
-         (fun ~row ~column ~event -> selectedRow := Some row));
-    ignore
-      (regExpWindow#connect#unselect_row ~callback:
-         (fun ~row ~column ~event -> selectedRow := None));
-    
-    (* Configure the add frame *)
-    let hbox = GPack.hbox ~spacing:4 ~packing:t#vbox#pack () in
-    ignore (GMisc.label ~text: "Regular expression:"
-              ~packing:(hbox#pack ~padding:2) ());
-    let entry = GEdit.entry ~packing:hbox#add () in
-    let add () =
-      let theRegExp = entry#text in
-      if theRegExp<>"" then begin
-        entry#set_text "";
-        regExpWindow#unselect_all ();
-        ignore (regExpWindow#append [theRegExp]);
-        maybeGettingSmaller := true
-      end
-    in
-    let addButton = GButton.button ~label:"Add"
-        ~packing:hbox#pack () in
-    ignore (addButton#connect#clicked ~callback:add);
-    ignore (entry#connect#activate ~callback:add);
-    entry#misc#grab_focus ();
-    
-    (* Configure the delete button *)
-    let delete () =
-      match !selectedRow with
-        Some x ->
-          (* After a deletion, updates must be detected again *)
-          maybeGettingBigger := true;
-          (* Delete xth regexp *)
-          regExpWindow#unselect_all ();
-          regExpWindow#remove ~row:x
-      | None ->
-          ()
-    in
-    let deleteButton = GButton.button ~label:"Delete"
-        ~packing:hbox#pack () in
-    ignore (deleteButton#connect#clicked ~callback:delete);
-    
-    ignore
-      (regExpWindow#event#connect#after#key_press ~callback:
-         begin fun ev ->
-           let key = GdkEvent.Key.keyval ev in
-           if key = _Up || key = _Down || key = _Prior || key = _Next ||
-           key = _Page_Up || key = _Page_Down then begin
-             regExpWindow#select (regExpWindow#focus_row) 0;
-             true
-           end else if key = _Delete then begin
-             delete (); true
-           end else
-             false
-         end);
-    
-    (* A function to refresh the state and ignore list *)
-    let refresh () =
-      let theRegexps = ref [] in
-      for i = regExpWindow#rows - 1 downto 0 do
-        theRegexps := regExpWindow#cell_text i 0 :: !theRegexps
-      done;
-      Pred.intern Globals.ignore (!theRegexps);
-      if !maybeGettingBigger || !maybeGettingSmaller then begin
-        Globals.savePrefs();
-        Globals.propagatePrefs()
-      end;
-      if !maybeGettingBigger then detectUpdatesAndReconcile ()
-      else if !maybeGettingSmaller then ignoreAndRedisplay();
-      maybeGettingBigger := false;
-      maybeGettingSmaller := false;
-    in
-    
-    (* Install the main buttons *)
-    let applyButton =
-      GButton.button ~label:"Apply" ~packing:t#action_area#add () in
-    ignore (applyButton#connect#clicked ~callback:refresh);
-    let cancelButton =
-      GButton.button ~label:"Cancel" ~packing:t#action_area#add () in
-    ignore (cancelButton#connect#clicked ~callback:(t#destroy));
-    let okButton =
-      GButton.button ~label:"OK" ~packing:t#action_area#add () in
-    ignore
-      (okButton#connect#clicked
-         ~callback:(fun () -> refresh (); t#destroy ()));
-    ignore (t#connect#destroy ~callback:Main.quit);
-    grabFocus t;
-    t#show ();
-    Main.main ();
-    releaseFocus ()
-  in
-
-  (**********************************************************************)
-  (* Add entries to the Help menu                                       *)
-  (**********************************************************************)
-  let addDocSection (shortname, (name, docstr)) =
-    if shortname <> "" && name <> "" then
-      ignore (helpMenu#add_item
-               ~callback:(fun () -> documentation shortname)
-                name)
-  in
-  Safelist.iter addDocSection Strings.docs;
-
-  (**********************************************************************)
-  (* Add entries to the Ignore menu                                     *)
-  (**********************************************************************)
-  let addRegExpByPath pathfunc =
-    match !current with
-      Some i ->
-        addIgnorePattern (pathfunc !theState.(i).ri.path);
-        ignoreAndRedisplay ()
-    | None ->
-        ()
-  in
-  grAdd grAction
-    (ignoreMenu#add_item ~key:_i
-       ~callback:(fun () -> getLock (fun () -> addRegExpByPath ignorePath))
-       "Ignore this file permanently");
-  grAdd grAction
-    (ignoreMenu#add_item ~key:_E
-       ~callback:(fun () -> getLock (fun () -> addRegExpByPath ignoreExt))
-       "Ignore files with this extension");
-  grAdd grAction
-    (ignoreMenu#add_item ~key:_N
-       ~callback:(fun () -> getLock (fun () -> addRegExpByPath ignoreName))
-       "Ignore files with this name");
-
-(*
-  grAdd grRestart
-    (ignoreMenu#add_item ~callback:
-       (fun () -> getLock ignoreDialog) "Edit ignore patterns");
-*)
-
-  (**********************************************************************)
-  (*                       MAIN FUNCTION : SYNCHRONIZE                  *)
-  (**********************************************************************)
-  let synchronize () =
-    if Array.length !theState = 0 then
-      Trace.status "Nothing to synchronize"
-    else begin
-      grSet grAction false;
-      grSet grDiff false;
-      grSet grProceed false;
-      grSet grRestart false;
-
-      Trace.status "Propagating changes";
-      let t = Trace.startTimer "Propagating changes" in
-      let (start, wait) = Threads.thread_maker () in
-      let background = let i = 55000 in `RGB (i, i, i) in
-      let finish i =
-        redisplay i;
-        mainWindow#set_row ~background:`WHITE i;
-        gtk_sync ()
-      in
-      for i = 0 to Array.length !theState - 1 do
-        let theSI = !theState.(i) in
-        assert (theSI.whatHappened = None);
-        start
-          (fun () ->
-             Threads.do_on_main_thread (fun () ->
-               mainWindow#set_row ~background i;
-               makeRowVisible i);
-             theSI.whatHappened <- Some (Transport.transportItem theSI.ri i);
-             i)
-          finish
-      done;
-      wait finish;
-      
-      Trace.showTimer t;
-      Trace.status "Updating synchronizer state";
-      let t = Trace.startTimer "Updating synchronizer state" in
-      Update.commitUpdates();
-      Trace.showTimer t;
-      Trace.status "Synchronization complete";
-
-      grSet grRestart true
-    end
-  in
-
-  (**********************************************************************)
-  (*                  CREATE THE ACTION BAR                             *)
-  (**********************************************************************)
-  let actionBar =
-    GButton.toolbar
-      ~orientation:`HORIZONTAL ~tooltips:true ~space_size:10
-      ~packing:toplevelVBox#pack () in
-
-  (**********************************************************************)
-  (*         CREATE AND CONFIGURE THE QUIT BUTTON                       *)
-  (**********************************************************************)
-  actionBar#insert_space ();
-  ignore (actionBar#insert_button ~text:"Quit" ~callback:safeExit ());
-
-  (**********************************************************************)
-  (*         CREATE AND CONFIGURE THE PROCEED BUTTON                    *)
-  (**********************************************************************)
-  actionBar#insert_space ();
-  grAdd grProceed
-    (actionBar#insert_button ~text:"Proceed"
-       (* tooltip:"Proceed with displayed actions" *)
-       ~callback:(fun () ->
-                    getLock synchronize) ());
-
-  (**********************************************************************)
-  (*           CREATE AND CONFIGURE THE RESCAN BUTTON                   *)
-  (**********************************************************************)
-  let detectCmdName = "Restart" in
-  let detectCmd () =
-    getLock detectUpdatesAndReconcile;
-    if Prefs.readPref batch then begin
-      Prefs.setPref batch Prefs.TempSetting false; synchronize()
-    end
-  in
-  actionBar#insert_space ();
-  grAdd grRestart
-    (actionBar#insert_button ~text:detectCmdName ~callback:detectCmd ());
-
-  (**********************************************************************)
-  (* Buttons for <--, -->, Skip                                         *)
-  (**********************************************************************)
-  let doAction f =
-    match !current with
-      Some i ->
-        let theSI = !theState.(i) in
-        begin match theSI.whatHappened, theSI.ri.replicas with
-          None, Different(_, _, dir) ->
-            f dir;
-            redisplay i;
-            nextInteresting ()
-        | _ ->
-            ()
-        end
-    | None ->
-        ()
-  in
-  let leftAction     _ = doAction (fun dir -> dir := Replica2ToReplica1) in
-  let rightAction    _ = doAction (fun dir -> dir := Replica1ToReplica2) in
-  let questionAction _ = doAction (fun dir -> dir := Conflict) in
-
-  (**********************************************************************)
-  (*             CREATE AND CONFIGURE THE DIFF BUTTON and KEY           *)
-  (**********************************************************************)
-  let diffCmd () =
-    match !current with
-      Some i ->
-        getLock (fun () ->
-          showDiffs !theState.(i).ri
-            (fun title text -> messageBox ~title text)
-            Trace.status i)
-    | None ->
-        ()
-  in
-
-  actionBar#insert_space ();
-  grAdd grAction
-    (actionBar#insert_button
-       ~icon:((GMisc.pixmap leftArrowBlack ())#coerce)
-       ~callback:leftAction ());
-  actionBar#insert_space ();
-  grAdd grAction
-    (actionBar#insert_button
-       ~icon:((GMisc.pixmap rightArrowBlack ())#coerce)
-       ~callback:rightAction ());
-  actionBar#insert_space ();
-  grAdd grAction
-    (actionBar#insert_button ~text:"Skip" ~callback:questionAction ());
-  actionBar#insert_space ();
-  grAdd grDiff (actionBar#insert_button ~text:"Diff" ~callback:diffCmd ());
-
-  (**********************************************************************)
-  (* Configure keyboard commands                                        *)
-  (**********************************************************************)
-  ignore
-    (mainWindow#event#connect#key_press ~callback:
-       begin fun ev ->
-         let key = GdkEvent.Key.keyval ev in
-         if key = _Left then begin
-           leftAction (); GtkSignal.stop_emit (); true
-         end else if key = _Right then begin
-           rightAction (); GtkSignal.stop_emit (); true
-         end else
-           false
-       end);
-
-  (**********************************************************************)
-  (* Add entries to the Action menu                                     *)
-  (**********************************************************************)
-  let (root1,root2) = Globals.getReplicaRoots () in
-  let loc1 = root2hostname root1 in
-  let loc2 = root2hostname root2 in
-  let descr =
-    if loc1 = loc2 then "left to right" else
-    Printf.sprintf "from %s to %s" loc1 loc2
-  in
-  let left =
-    actionsMenu#add_item ~key:_greater ~callback:rightAction
-      ("Propagate " ^ descr) in
-  grAdd grAction left;
-  left#add_accelerator ~group:accel_group ~modi:[`SHIFT] _greater;
-  
-  let descl =
-    if loc1 = loc2 then "right to left" else
-    Printf.sprintf "from %s to %s" loc2 loc1
-  in
-  let right =
-    actionsMenu#add_item ~key:_less ~callback:leftAction
-      ("Propagate " ^ descl) in
-  grAdd grAction right;
-  right#add_accelerator ~group:accel_group ~modi:[`SHIFT] _less;
- 
-  grAdd grAction
-    (actionsMenu#add_item ~key:_slash ~callback:questionAction
-       "Do not propagate changes");
-
-  ignore (actionsMenu#add_separator ());
-  grAdd grDiff (actionsMenu#add_item ~key:_d ~callback:diffCmd "Show diffs");
-
-  (**********************************************************************)
-  (* Add commands to the Synchronization menu                           *)
-  (**********************************************************************)
-  grAdd grProceed
-    (fileMenu#add_item ~key:_g
-       ~callback:(fun () ->
-                    getLock synchronize)
-       "Proceed");
-  grAdd grRestart (fileMenu#add_item ~key:_r ~callback:detectCmd detectCmdName);
-  grAdd grRestart
-    (fileMenu#add_item ~key:_a
-       ~callback:(fun () ->
-                    getLock detectUpdatesAndReconcile; 
-                    getLock synchronize)
-       "Atomically detect updates and proceed");
-  ignore (fileMenu#add_separator ());
-  let cm =
-    fileMenu#add_check_item ~active:(Prefs.readPref Transport.backups)
-      ~callback:(fun b -> Prefs.setPref Transport.backups Prefs.TempSetting b)
-      "Make backups"
-  in
-  cm#set_show_toggle true;
-  grAdd grRestart cm;
-  ignore (fileMenu#add_separator ());
-  ignore (fileMenu#add_item ~key:_q ~callback:safeExit "Quit");
-
-  grSet grAction false;
-  grSet grDiff false;
-  grSet grProceed false;
-  grSet grRestart false;
-
-  ignore (toplevelWindow#event#connect#delete ~callback:
-            (fun _ -> safeExit (); true));
-  toplevelWindow#show ();
-  currentWindow := Some toplevelWindow;
-  detectCmd ()
-
-(**********************************************************************)
-(* Starting up...                                                     *)
-(**********************************************************************)
-let start _ =
-  begin try
-    (* Initialize the library *)
-    ignore (Main.init ());
-
-    Util.warnPrinter := Some (warnBox "Warning");
-    (* Ask the Remote module to call us back at regular intervals during
-       long network operations. *)
-    Threads.tickProc := Some gtk_sync;
-
-    (**********************************************************************)
-    (* Set things up to initialize the client/server connection and       *)
-    (* detect updates after the ui is displayed.                          *)
-    (* This makes a difference when the replicas are large and it takes   *)
-    (* a lot of time to detect updates.                                   *)
-    (**********************************************************************)
-    let msg = ref None in
-    Uicommon.uiInit
-      profileSelect
-      rootSelect
-      (fun () ->
-         let w =
-           GWindow.window ~kind:`TOPLEVEL ~position:`CENTER
-             ~wm_name:"Unison" ~border_width:16 () in
-         ignore (GMisc.label ~text: "Contacting server..."
-                   ~packing:(w#add) ());
-         w#show ();
-         ignore (w#event#connect#delete ~callback:(fun _ -> exit 0));
-         msg := Some w)
-      (fun () ->
-         begin match !msg with
-           None   -> ()
-         | Some w -> w#destroy ()
-         end;
-         createToplevelWindow ());
-
-    (**********************************************************************)
-    (* Display the ui                                                     *)
-    (**********************************************************************)
-    ignore (Timeout.add 500 (fun _ -> true));
-              (* Hack: this allows signals such as SIGINT to be
-                 handled even when Gtk is waiting for events *)
-    Main.main ()
-  with exn ->
-    fatalError (exn2string exn)
-  end
-
-end (* module Private *)
-
-(**********************************************************************)
-(*                               MODULE MAIN                          *)
-(**********************************************************************)
-
-module Body : Uicommon.UI = struct
-
-let start = function
-    Text -> Uitext.Body.start Text
-  | Graphic -> Private.start Graphic
-
-end (* module Body *)
-
-(*
-FIX:
-- Édition (minimale) et création des profiles
-- Profile par défaut
-- Sanity checks pour "Root selection"
-- Edition du filtrage
-*)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/config.make.nt b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/config.make.nt
deleted file mode 100644 (file)
index 3fe6b56..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/config.make.nt
+++ /dev/null
@@ -1,6 +0,0 @@
-LIBDIR=c:/Home/garrigue/ocaml/lib
-GTKCFLAGS=-I../glib -I../gtk+
-GTKSRC=c:\Home\garrigue
-GTKLIBS=$(GTKSRC)/glib/gmodule-1.3.lib $(GTKSRC)/glib/glib-1.3.lib $(GTKSRC)/gtk+/gdk/gdk-1.3.lib $(GTKSRC)/gtk+/gtk/gtk-1.3.lib
-USE_GL=0
-USE_CC=0

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/configure.mk b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/configure.mk
deleted file mode 100644 (file)
index 49b3d70..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/configure.mk
+++ /dev/null
@@ -1,50 +0,0 @@
-# makefile for configuring lablGTK
-
-# Default compilers
-CAMLC = ocamlc
-CAMLOPT = ocamlopt
-
-# Default installation directories
-BINDIR = `$(GETBINDIR)`
-INSTALLDIR = $(LIBDIR)/lablgtk
-
-# Autoconf
-GETLIBDIR = ocamlc -v | grep "^Standard" | sed 's/^.*: *//'
-LIBDIR = `$(GETLIBDIR)`
-GETBINDIR = $(GETLIBDIR) | sed -e 's|/lib/[^/]*$$|/bin|' -e 's|/lib$$|/bin|'
-GETRANLIB = which ranlib 2>/dev/null | sed -e 's|.*/ranlib$$|!|' -e 's/^[^!]*$$/:/' -e 's/!/ranlib/'
-
-ifdef USE_GNOME
-GTKGETCFLAGS = gtk-config --cflags`" -I"`gnome-config --includedir
-GNOMELIBS = `gnome-config --libs gtkxmhtml`
-else
-GTKGETCFLAGS = gtk-config --cflags
-endif
-
-GTKGETLIBS = gtk-config --libs
-
-configure: .depend config.make
-
-.depend:
-       ocamldep *.ml *.mli > .depend
-
-config.make:
-       @echo CAMLC=$(CAMLC) > config.make
-       @echo CAMLOPT=$(CAMLOPT) >> config.make
-       @echo USE_GL=$(USE_GL) >> config.make
-       @echo USE_GNOME=$(USE_GNOME) >> config.make
-       @echo USE_CC=$(USE_CC) >> config.make
-       @echo DEBUG=$(DEBUG) >> config.make
-       @echo CC=$(CC) >> config.make
-       @echo RANLIB=`$(GETRANLIB)` >> config.make
-       @echo LIBDIR=$(LIBDIR) >> config.make
-       @echo BINDIR=`$(GETBINDIR)` >> config.make
-       @echo INSTALLDIR=$(INSTALLDIR) >> config.make
-       @echo GTKCFLAGS=`$(GTKGETCFLAGS)` >> config.make
-       @echo GTKLIBS=`$(GTKGETLIBS)` | \
-         sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
-         >> config.make
-       @echo GNOMELIBS=$(GNOMELIBS) | \
-         sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
-         >> config.make
-       cat config.make

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/doc/formula.eps b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/doc/formula.eps
deleted file mode 100644 (file)
index 31ddafc..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/doc/formula.eps
+++ /dev/null
@@ -1,409 +0,0 @@
-%!PS-Adobe-2.0 EPSF-2.0
-%%Creator: dvipsk 5.78 p1.4c Copyright 1996-99 ASCII Corp.(www-ptex@ascii.co.jp)
-%%dvipsk 5.78 Copyright 1998 Radical Eye Software (www.radicaleye.com)
-%%Title: formula.dvi
-%%BoundingBox: 71 318 395 524
-%%DocumentFonts: Symbol Times-Italic Times-Roman Helvetica
-%%EndComments
-%DVIPSCommandLine: dvips -E -o formula.eps formula
-%DVIPSParameters: dpi=300, compressed
-%DVIPSSource:  TeX output 1999.08.19:0906
-%%BeginProcSet: texc.pro
-%!
-/TeXDict 300 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N
-/X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72
-mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1}
-ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
-isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div
-hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul
-TR[matrix currentmatrix{dup dup round sub abs 0.00001 lt{round}if}
-forall round exch round exch]setmatrix}N /@landscape{/isls true N}B
-/@manualfeed{statusdict /manualfeed true put}B /@copies{/#copies X}B
-/FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{
-/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N
-string /base X array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N
-end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{
-/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0]
-N df-tail}B /E{pop nn dup definefont setfont}B /ch-width{ch-data dup
-length 5 sub get}B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{
-128 ch-data dup length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub
-get 127 sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data
-dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N
-/rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup
-/base get 2 index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx
-0 ch-xoff ch-yoff ch-height sub ch-xoff ch-width add ch-yoff
-setcachedevice ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff
-.1 sub]/id ch-image N /rw ch-width 7 add 8 idiv string N /rc 0 N /gp 0 N
-/cp 0 N{rc 0 ne{rc 1 sub /rc X rw}{G}ifelse}imagemask restore}B /G{{id
-gp get /gp gp 1 add N dup 18 mod S 18 idiv pl S get exec}loop}B /adv{cp
-add /cp X}B /chg{rw cp id gp 4 index getinterval putinterval dup gp add
-/gp X adv}B /nd{/cp 0 N rw exit}B /lsh{rw cp 2 copy get dup 0 eq{pop 1}{
-dup 255 eq{pop 254}{dup dup add 255 and S 1 and or}ifelse}ifelse put 1
-adv}B /rsh{rw cp 2 copy get dup 0 eq{pop 128}{dup 255 eq{pop 127}{dup 2
-idiv S 128 and or}ifelse}ifelse put 1 adv}B /clr{rw cp 2 index string
-putinterval adv}B /set{rw cp fillstr 0 4 index getinterval putinterval
-adv}B /fillstr 18 string 0 1 17{2 copy 255 put pop}for N /pl[{adv 1 chg}
-{adv 1 chg nd}{1 add chg}{1 add chg nd}{adv lsh}{adv lsh nd}{adv rsh}{
-adv rsh nd}{1 add adv}{/rc X nd}{1 add set}{1 add clr}{adv 2 chg}{adv 2
-chg nd}{pop nd}]dup{bind pop}forall N /D{/cc X dup type /stringtype ne{]
-}if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup
-length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{
-cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin
-0 0 moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul
-add .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore userdict
-/eop-hook known{eop-hook}if showpage}N /@start{userdict /start-hook
-known{start-hook}if pop /VResolution X /Resolution X 1000 div /DVImag X
-/IE 256 array N 2 string 0 1 255{IE S dup 360 add 36 4 index cvrs cvn
-put}for pop 65781.76 div /vsize X 65781.76 div /hsize X}N /dir 0 def
-/dyy{/dir 0 def}B /dyt{/dir 1 def}B /dty{/dir 2 def}B /dtt{/dir 3 def}B
-/p{dir 2 eq{-90 rotate show 90 rotate}{dir 3 eq{-90 rotate show 90
-rotate}{show}ifelse}ifelse}B /RMat[1 0 0 -1 0 0]N /BDot 260 string N
-/rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V{}B /RV statusdict
-begin /product where{pop false[(Display)(NeXT)(LaserWriter 16/600)]{dup
-length product length le{dup length product exch 0 exch getinterval eq{
-pop true exit}if}{pop}ifelse}forall}{false}ifelse end{{gsave TR -.1 .1
-TR 1 1 scale rulex ruley false RMat{BDot}imagemask grestore}}{{gsave TR
--.1 .1 TR rulex ruley scale 1 1 false RMat{BDot}imagemask grestore}}
-ifelse B /QV{gsave newpath transform round exch round exch itransform
-moveto rulex 0 rlineto 0 ruley neg rlineto rulex neg 0 rlineto fill
-grestore}B /a{moveto}B /delta 0 N /tail{dup /delta X 0 rmoveto}B /M{S p
-delta add tail}B /b{S p tail}B /c{-4 M}B /d{-3 M}B /e{-2 M}B /f{-1 M}B
-/g{0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{4 M}B /w{0 rmoveto}B /l{p -4 w}B
-/m{p -3 w}B /n{p -2 w}B /o{p -1 w}B /q{p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{
-p 4 w}B /x{0 S rmoveto}B /y{3 2 roll p a}B /bos{/SS save N}B /eos{SS
-restore}B end
-
-%%EndProcSet
-%%BeginProcSet: 8r.enc
-% @@psencodingfile@{
-%   author = "S. Rahtz, P. MacKay, Alan Jeffrey, B. Horn, K. Berry",
-%   version = "0.6",
-%   date = "22 June 1996",
-%   filename = "8r.enc",
-%   email = "kb@@mail.tug.org",
-%   address = "135 Center Hill Rd. // Plymouth, MA 02360",
-%   codetable = "ISO/ASCII",
-%   checksum = "119     662    4424",
-%   docstring = "Encoding for TrueType or Type 1 fonts to be used with TeX."
-% @}
-% 
-% Idea is to have all the characters normally included in Type 1 fonts
-% available for typesetting. This is effectively the characters in Adobe
-% Standard Encoding + ISO Latin 1 + extra characters from Lucida.
-% 
-% Character code assignments were made as follows:
-% 
-% (1) the Windows ANSI characters are almost all in their Windows ANSI
-% positions, because some Windows users cannot easily reencode the
-% fonts, and it makes no difference on other systems. The only Windows
-% ANSI characters not available are those that make no sense for
-% typesetting -- rubout (127 decimal), nobreakspace (160), softhyphen
-% (173). quotesingle and grave are moved just because it's such an
-% irritation not having them in TeX positions.
-% 
-% (2) Remaining characters are assigned arbitrarily to the lower part
-% of the range, avoiding 0, 10 and 13 in case we meet dumb software.
-% 
-% (3) Y&Y Lucida Bright includes some extra text characters; in the
-% hopes that other PostScript fonts, perhaps created for public
-% consumption, will include them, they are included starting at 0x12.
-% 
-% (4) Remaining positions left undefined are for use in (hopefully)
-% upward-compatible revisions, if someday more characters are generally
-% available.
-% 
-% (5) hyphen appears twice for compatibility with both ASCII and Windows.
-% 
-/TeXBase1Encoding [
-% 0x00 (encoded characters from Adobe Standard not in Windows 3.1)
-  /.notdef /dotaccent /fi /fl
-  /fraction /hungarumlaut /Lslash /lslash
-  /ogonek /ring /.notdef
-  /breve /minus /.notdef 
-% These are the only two remaining unencoded characters, so may as
-% well include them.
-  /Zcaron /zcaron 
-% 0x10
- /caron /dotlessi 
-% (unusual TeX characters available in, e.g., Lucida Bright)
- /dotlessj /ff /ffi /ffl 
- /.notdef /.notdef /.notdef /.notdef
- /.notdef /.notdef /.notdef /.notdef
- % very contentious; it's so painful not having quoteleft and quoteright
- % at 96 and 145 that we move the things normally found there down to here.
- /grave /quotesingle 
-% 0x20 (ASCII begins)
- /space /exclam /quotedbl /numbersign
- /dollar /percent /ampersand /quoteright
- /parenleft /parenright /asterisk /plus /comma /hyphen /period /slash
-% 0x30
- /zero /one /two /three /four /five /six /seven
- /eight /nine /colon /semicolon /less /equal /greater /question
-% 0x40
- /at /A /B /C /D /E /F /G /H /I /J /K /L /M /N /O
-% 0x50
- /P /Q /R /S /T /U /V /W
- /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore
-% 0x60
- /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o
-% 0x70
- /p /q /r /s /t /u /v /w
- /x /y /z /braceleft /bar /braceright /asciitilde
- /.notdef % rubout; ASCII ends
-% 0x80
- /.notdef /.notdef /quotesinglbase /florin
- /quotedblbase /ellipsis /dagger /daggerdbl
- /circumflex /perthousand /Scaron /guilsinglleft
- /OE /.notdef /.notdef /.notdef
-% 0x90
- /.notdef /.notdef /.notdef /quotedblleft
- /quotedblright /bullet /endash /emdash
- /tilde /trademark /scaron /guilsinglright
- /oe /.notdef /.notdef /Ydieresis
-% 0xA0
- /.notdef % nobreakspace
- /exclamdown /cent /sterling
- /currency /yen /brokenbar /section
- /dieresis /copyright /ordfeminine /guillemotleft
- /logicalnot
- /hyphen % Y&Y (also at 45); Windows' softhyphen
- /registered
- /macron
-% 0xD0
- /degree /plusminus /twosuperior /threesuperior
- /acute /mu /paragraph /periodcentered
- /cedilla /onesuperior /ordmasculine /guillemotright
- /onequarter /onehalf /threequarters /questiondown
-% 0xC0
- /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla
- /Egrave /Eacute /Ecircumflex /Edieresis
- /Igrave /Iacute /Icircumflex /Idieresis
-% 0xD0
- /Eth /Ntilde /Ograve /Oacute
- /Ocircumflex /Otilde /Odieresis /multiply
- /Oslash /Ugrave /Uacute /Ucircumflex
- /Udieresis /Yacute /Thorn /germandbls
-% 0xE0
- /agrave /aacute /acircumflex /atilde
- /adieresis /aring /ae /ccedilla
- /egrave /eacute /ecircumflex /edieresis
- /igrave /iacute /icircumflex /idieresis
-% 0xF0
- /eth /ntilde /ograve /oacute
- /ocircumflex /otilde /odieresis /divide
- /oslash /ugrave /uacute /ucircumflex
- /udieresis /yacute /thorn /ydieresis
-] def
-
-%%EndProcSet
-%%BeginProcSet: texps.pro
-%!
-TeXDict begin /rf{findfont dup length 1 add dict begin{1 index /FID ne 2
-index /UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
-exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]/Metrics
-exch def dict begin 0 1 255{exch dup type /integertype ne{pop pop 1 sub
-dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}
-ifelse}for Metrics /Metrics currentdict end def[2 index currentdict end
-definefont 3 -1 roll makefont /setfont cvx]cvx def}def /ObliqueSlant{
-dup sin S cos div neg}B /SlantFont{4 index mul add}def /ExtendFont{3 -1
-roll mul exch}def /ReEncodeFont{/Encoding exch def}def end
-
-%%EndProcSet
-%%BeginProcSet: special.pro
-%!
-TeXDict begin /SDict 200 dict N SDict begin /@SpecialDefaults{/hs 612 N
-/vs 792 N /ho 0 N /vo 0 N /hsc 1 N /vsc 1 N /ang 0 N /CLIP 0 N /rwiSeen
-false N /rhiSeen false N /letter{}N /note{}N /a4{}N /legal{}N}B
-/@scaleunit 100 N /@hscale{@scaleunit div /hsc X}B /@vscale{@scaleunit
-div /vsc X}B /@hsize{/hs X /CLIP 1 N}B /@vsize{/vs X /CLIP 1 N}B /@clip{
-/CLIP 2 N}B /@hoffset{/ho X}B /@voffset{/vo X}B /@angle{/ang X}B /@rwi{
-10 div /rwi X /rwiSeen true N}B /@rhi{10 div /rhi X /rhiSeen true N}B
-/@llx{/llx X}B /@lly{/lly X}B /@urx{/urx X}B /@ury{/ury X}B /magscale
-true def end /@MacSetUp{userdict /md known{userdict /md get type
-/dicttype eq{userdict begin md length 10 add md maxlength ge{/md md dup
-length 20 add dict copy def}if end md begin /letter{}N /note{}N /legal{}
-N /od{txpose 1 0 mtx defaultmatrix dtransform S atan/pa X newpath
-clippath mark{transform{itransform moveto}}{transform{itransform lineto}
-}{6 -2 roll transform 6 -2 roll transform 6 -2 roll transform{
-itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll curveto}}{{
-closepath}}pathforall newpath counttomark array astore /gc xdf pop ct 39
-0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}if}N
-/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1 -1
-scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3 get
-ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip yflip
-not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub neg 0
-TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{noflips{TR
-pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop 90 rotate 1
--1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg
-TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr 1 get neg
-sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr 2 get ppr
-0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4 -1 roll add
-2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S TR}if}N /cp
-{pop pop showpage pm restore}N end}if}if}N /normalscale{Resolution 72
-div VResolution 72 div neg scale magscale{DVImag dup scale}if 0 setgray}
-N /psfts{S 65781.76 div N}N /startTexFig{/psf$SavedState save N userdict
-maxlength dict begin /magscale true def normalscale currentpoint TR
-/psf$ury psfts /psf$urx psfts /psf$lly psfts /psf$llx psfts /psf$y psfts
-/psf$x psfts currentpoint /psf$cy X /psf$cx X /psf$sx psf$x psf$urx
-psf$llx sub div N /psf$sy psf$y psf$ury psf$lly sub div N psf$sx psf$sy
-scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub TR
-/showpage{}N /erasepage{}N /copypage{}N /p 3 def @MacSetUp}N /doclip{
-psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
-roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
-moveto}N /endTexFig{end psf$SavedState restore}N /@beginspecial{SDict
-begin /SpecialSave save N gsave normalscale currentpoint TR
-@SpecialDefaults count /ocount X /dcount countdictstack N}N /@setspecial
-{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
-closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
-sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
-}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
-CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
-lineto closepath clip}if /showpage{}N /erasepage{}N /copypage{}N newpath
-}N /@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{
-end}repeat grestore SpecialSave restore end}N /@defspecial{SDict begin}
-N /@fedspecial{end}B /li{lineto}B /rl{rlineto}B /rc{rcurveto}B /np{
-/SaveX currentpoint /SaveY X N 1 setlinecap newpath}N /st{stroke SaveX
-SaveY moveto}N /fil{fill SaveX SaveY moveto}N /ellipse{/endangle X
-/startangle X /yrad X /xrad X /savematrix matrix currentmatrix N TR xrad
-yrad scale 0 0 1 startangle endangle arc savematrix setmatrix}N end
-
-%%EndProcSet
-%%BeginProcSet: color.pro
-%!
-TeXDict begin /setcmykcolor where{pop}{/setcmykcolor{dup 10 eq{pop
-setrgbcolor}{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll
-}repeat setrgbcolor pop}ifelse}B}ifelse /TeXcolorcmyk{setcmykcolor}def
-/TeXcolorrgb{setrgbcolor}def /TeXcolorgrey{setgray}def /TeXcolorgray{
-setgray}def /TeXcolorhsb{sethsbcolor}def /currentcmykcolor where{pop}{
-/currentcmykcolor{currentrgbcolor 10}B}ifelse /DC{exch dup userdict exch
-known{pop pop}{X}ifelse}B /GreenYellow{0.15 0 0.69 0 setcmykcolor}DC
-/Yellow{0 0 1 0 setcmykcolor}DC /Goldenrod{0 0.10 0.84 0 setcmykcolor}
-DC /Dandelion{0 0.29 0.84 0 setcmykcolor}DC /Apricot{0 0.32 0.52 0
-setcmykcolor}DC /Peach{0 0.50 0.70 0 setcmykcolor}DC /Melon{0 0.46 0.50
-0 setcmykcolor}DC /YellowOrange{0 0.42 1 0 setcmykcolor}DC /Orange{0
-0.61 0.87 0 setcmykcolor}DC /BurntOrange{0 0.51 1 0 setcmykcolor}DC
-/Bittersweet{0 0.75 1 0.24 setcmykcolor}DC /RedOrange{0 0.77 0.87 0
-setcmykcolor}DC /Mahogany{0 0.85 0.87 0.35 setcmykcolor}DC /Maroon{0
-0.87 0.68 0.32 setcmykcolor}DC /BrickRed{0 0.89 0.94 0.28 setcmykcolor}
-DC /Red{0 1 1 0 setcmykcolor}DC /OrangeRed{0 1 0.50 0 setcmykcolor}DC
-/RubineRed{0 1 0.13 0 setcmykcolor}DC /WildStrawberry{0 0.96 0.39 0
-setcmykcolor}DC /Salmon{0 0.53 0.38 0 setcmykcolor}DC /CarnationPink{0
-0.63 0 0 setcmykcolor}DC /Magenta{0 1 0 0 setcmykcolor}DC /VioletRed{0
-0.81 0 0 setcmykcolor}DC /Rhodamine{0 0.82 0 0 setcmykcolor}DC /Mulberry
-{0.34 0.90 0 0.02 setcmykcolor}DC /RedViolet{0.07 0.90 0 0.34
-setcmykcolor}DC /Fuchsia{0.47 0.91 0 0.08 setcmykcolor}DC /Lavender{0
-0.48 0 0 setcmykcolor}DC /Thistle{0.12 0.59 0 0 setcmykcolor}DC /Orchid{
-0.32 0.64 0 0 setcmykcolor}DC /DarkOrchid{0.40 0.80 0.20 0 setcmykcolor}
-DC /Purple{0.45 0.86 0 0 setcmykcolor}DC /Plum{0.50 1 0 0 setcmykcolor}
-DC /Violet{0.79 0.88 0 0 setcmykcolor}DC /RoyalPurple{0.75 0.90 0 0
-setcmykcolor}DC /BlueViolet{0.86 0.91 0 0.04 setcmykcolor}DC /Periwinkle
-{0.57 0.55 0 0 setcmykcolor}DC /CadetBlue{0.62 0.57 0.23 0 setcmykcolor}
-DC /CornflowerBlue{0.65 0.13 0 0 setcmykcolor}DC /MidnightBlue{0.98 0.13
-0 0.43 setcmykcolor}DC /NavyBlue{0.94 0.54 0 0 setcmykcolor}DC
-/RoyalBlue{1 0.50 0 0 setcmykcolor}DC /Blue{1 1 0 0 setcmykcolor}DC
-/Cerulean{0.94 0.11 0 0 setcmykcolor}DC /Cyan{1 0 0 0 setcmykcolor}DC
-/ProcessBlue{0.96 0 0 0 setcmykcolor}DC /SkyBlue{0.62 0 0.12 0
-setcmykcolor}DC /Turquoise{0.85 0 0.20 0 setcmykcolor}DC /TealBlue{0.86
-0 0.34 0.02 setcmykcolor}DC /Aquamarine{0.82 0 0.30 0 setcmykcolor}DC
-/BlueGreen{0.85 0 0.33 0 setcmykcolor}DC /Emerald{1 0 0.50 0
-setcmykcolor}DC /JungleGreen{0.99 0 0.52 0 setcmykcolor}DC /SeaGreen{
-0.69 0 0.50 0 setcmykcolor}DC /Green{1 0 1 0 setcmykcolor}DC
-/ForestGreen{0.91 0 0.88 0.12 setcmykcolor}DC /PineGreen{0.92 0 0.59
-0.25 setcmykcolor}DC /LimeGreen{0.50 0 1 0 setcmykcolor}DC /YellowGreen{
-0.44 0 0.74 0 setcmykcolor}DC /SpringGreen{0.26 0 0.76 0 setcmykcolor}
-DC /OliveGreen{0.64 0 0.95 0.40 setcmykcolor}DC /RawSienna{0 0.72 1 0.45
-setcmykcolor}DC /Sepia{0 0.83 1 0.70 setcmykcolor}DC /Brown{0 0.81 1
-0.60 setcmykcolor}DC /Tan{0.14 0.42 0.56 0 setcmykcolor}DC /Gray{0 0 0
-0.50 setcmykcolor}DC /Black{0 0 0 1 setcmykcolor}DC /White{0 0 0 0
-setcmykcolor}DC end
-
-%%EndProcSet
-TeXDict begin 40258437 52099154 1000 300 300 (formula.dvi)
-@start /Fa 134[ 41 5[ 41 3[ 46 46 1[ 18 6[ 46 15[ 60
-4[ 55 14[ 55 23[ 28 28 40[{  TeXBase1Encoding ReEncodeFont } 11
-82.6359 /Helvetica rf /Fb 205[ 34 34 49[{
- TeXBase1Encoding ReEncodeFont } 2 68.8667 /Times-Roman
-rf /Fc 154[ 30 101[{ } 1 68.8667 /Symbol rf
-%DVIPSBitmapFont: Fd cmr10 19.907 4
-/Fd 4 94 df<146014E0EB01C0EB0380EB0700130E5B133C13385B13F05B1201485AA248
-5AA348C7FCA25A121EA2123EA2123CA2127CA5127812F8B01278127CA5123CA2123EA212
-1EA2121F7EA26C7EA36C7EA26C7E12007F13707F133C131C7F7FEB0380EB01C0EB00E014
-60135278BD20> 40 D<7E7E7E12707E7E7E120F7E6C7E7F12017F6C7EA21378A37FA213
-3E131EA2131FA27FA21480A5130714C0B01480130FA51400A25BA2131EA2133E133CA25B
-A35BA2485A5B12035B48C7FC5A120E5A5A5A5A5A5A12527BBD20> I<EAFFF8A4EAF000B3
-B3B3B3A3EAFFF8A40D5378BD17> 91 D<EAFFF8A4EA0078B3B3B3B3A3EAFFF8A40D537F
-BD17> 93 D E
-%EndDVIPSBitmapFont
-/Fe 197[ 23 58[{  TeXBase1Encoding ReEncodeFont } 1 82.6359
-/Times-Roman rf
-%DVIPSBitmapFont: Ff cmsy10 19.907 4
-/Ff 4 106 df<0060161800F0163CA26C167C00781678007C16F8003C16F0A2003E1501
-001E16E0A2001F15036C16C06D140700071680A26D140F000316006D5C6CB612FEA36C5D
-01F8C7127C01781478A2017C14F8013C5CA2013E1301011E5C011F13036D5CA2EC800701
-075CECC00F010391C7FCA26E5A0101131EECF03E0100133CA2ECF87CEC7878A2EC7CF8EC
-3CF0143F6E5AA36E5AA26E5AA26EC8FC2E3A80B82F> 56 D<126012F0B3A7B8FC1780A3
-00F0CAFCB3A8126029397CB832> 96 D<14C0EB01E0A2130314C013071480A2130F1400
-A25B131E133E133CA2137C137813F85BA212015BA212035B12075BA2120F90C7FC5A121E
-A2123E123CA2127C127812F85AA27E1278127C123CA2123E121EA2121F7E7F1207A27F12
-037F1201A27F1200A27F1378137C133CA2133E131E131F7FA214801307A214C0130314E0
-1301A2EB00C0135278BD20> 104 D<126012F0A27E1278127C123CA2123E121EA2121F7E
-7F1207A27F12037F1201A27F1200A27F1378137C133CA2133E131E131F7FA214801307A2
-14C0130314E01301A2130314C013071480A2130F1400A25B131E133E133CA2137C137813
-F85BA212015BA212035B12075BA2120F90C7FC5A121EA2123E123CA2127C127812F85AA2
-126013527CBD20> I E
-%EndDVIPSBitmapFont
-%DVIPSBitmapFont: Fg cmmi10 19.907 1
-/Fg 1 59 df<121C123E127FEAFF80A3EA7F00123E121C0909798817> 58
-D E
-%EndDVIPSBitmapFont
-/Fh 158[ 41 31[ 50 65[{  TeXBase1Encoding ReEncodeFont } 2
-82.6359 /Times-Italic rf /Fi 139[ 36 50 13[ 36 101[{ } 3
-82.6359 /Symbol rf end
-%%EndProlog
-%%BeginSetup
-%%Feature: *Resolution 300dpi
-TeXDict begin
-
-%%EndSetup
-0 0 bop Black Black 0 0.7 0 TeXcolorrgb Fh 567 883 a(A) p
-Ff 636 883 a(`) p Fh 705 883 a(a) p Fe 765 883 a(:) p
-0 0 1 TeXcolorrgb Fi 806 883 a(t) p Fb 842 900 a(1) p
-0 0.7 0 TeXcolorrgb Fd 948 883 a(\() p 0 0 1 TeXcolorrgb
-Fi(t) p Fb 1016 900 a(1) p 0 0.7 0 TeXcolorrgb Fe 1071
-883 a(:) p 0 0 1 TeXcolorrgb Fi 1112 883 a(t) p 0 0.7 0
-TeXcolorrgb Fe 1167 883 a(:) p 0 0 1 TeXcolorrgb Fi 1208
-883 a(t) p Fb 1244 900 a(2) p 0 0.7 0 TeXcolorrgb Fd
-1281 883 a(\)) p 567 920 746 4 v Fh 704 995 a(A) p Ff
-773 995 a(`) p Fd 842 995 a(\() p Fh(a) p Fe 934 995
-a(:) p 0 0 1 TeXcolorrgb Fi 975 995 a(t) p 0 0.7 0 TeXcolorrgb
-Fd(\)) p Fe 1062 995 a(:) p 0 0 1 TeXcolorrgb Fi 1103
-995 a(t) p Fb 1139 1012 a(2) p 0 0.7 0 TeXcolorrgb Black
-Fa 2 939 a(\(Ann\)) p 0 0.7 0 TeXcolorrgb Black 0 0.7 0
-TeXcolorrgb Fh 540 1208 a(A) p Ff 609 1208 a(`) p Fh
-678 1208 a(a) p Fe 738 1208 a(:) p 0 0 1 TeXcolorrgb
-Fi 779 1208 a(s) p Fb 829 1225 a(1) p 0 0.7 0 TeXcolorrgb
-Fd 934 1208 a(\() p 0 0 1 TeXcolorrgb Fi(s) p Fb 1016
-1225 a(1) p 0 0.7 0 TeXcolorrgb Fe 1071 1208 a(:) p 0 0 1
-TeXcolorrgb Fi 1112 1208 a(s) p 0 0.7 0 TeXcolorrgb Fe
-1180 1208 a(:) p 0 0 1 TeXcolorrgb Fi 1222 1208 a(s) p
-Fb 1272 1225 a(2) p 0 0.7 0 TeXcolorrgb Fd 1308 1208
-a(\)) p 540 1245 801 4 v Fh 661 1321 a(A) p Ff 730 1321
-a(`) p Fd 799 1321 a([) p Fh(a) p Fe 881 1321 a(:) p
-0 0 1 TeXcolorrgb Fi 923 1321 a(s) p 0 0.7 0 TeXcolorrgb
-Fd 972 1321 a(]) p Fe 1014 1321 a(:) p 0 0 1 TeXcolorrgb
-Fd 1055 1321 a([) p Fi(s) p Fb 1128 1338 a(2) p Fd 1164
-1321 a(]) p Fc 1187 1297 a(e) p 0 0.7 0 TeXcolorrgb Black
-Fa 2 1264 a(\(P) l(oly\)) p 0 0.7 0 TeXcolorrgb Black
-0 0.7 0 TeXcolorrgb Fh 704 1537 a(A) p Ff 773 1537 a(`) p
-Fh 842 1537 a(a) p Fe 902 1537 a(:) p 0 0 1 TeXcolorrgb
-Ff 943 1537 a(8) p Fi(e) p Fg(:) p Fd([) p Fi(s) p Fd(]) p
-Fc 1145 1507 a(e) p 0 0.7 0 TeXcolorrgb 704 1573 472
-4 v Fh 764 1649 a(A) p Ff 833 1649 a(`) p 902 1649 a(h) p
-Fh(a) p Ff(i) p Fe 1025 1649 a(:) p 0 0 1 TeXcolorrgb
-Fi 1067 1649 a(s) p 0 0.7 0 TeXcolorrgb Black Fa 2 1592
-a(\(Use\)) p 0 0.7 0 TeXcolorrgb Black Black Black 90 rotate
-dyy eop
-%%Trailer
-end
-userdict /end-hook known{end-hook}if
-%%EOF

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/doc/lablgtk.mgp b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/doc/lablgtk.mgp
deleted file mode 100644 (file)
index 3eac793..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/doc/lablgtk.mgp
+++ /dev/null
@@ -1,558 +0,0 @@
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%deffont "code" xfont "itc avant garde gothic-demi-r", tfont "verdana.ttf"
-%deffont "code-bold" xfont "terminal-bold-r", tfont "verdanab.ttf"
-%deffont "sans" xfont "helvetica-medium-r", tfont "comic.ttf"
-%deffont "sans-bold" xfont "helvetica-bold-r", tfont "comicbd.ttf"
-%deffont "sansit" xfont "helvetica-medium-i", tfont "marlett.ttf"
-%deffont "title" xfont "times-medium-r", tfont "times.ttf"
-%deffont "title-bold" xfont "times-bold-r", tfont "timesbd.ttf"
-%default 1 right, size 2, fore "white", bgrad
-%default 1 vfont "goth", font "sans-bold", vgap 100
-%default 2 leftfill, size 8, vgap 60, prefix " ", font "sans"
-%default 3 size 4, bar "beige", vgap 10
-%default 4 size 5, fore "white", vgap 20, prefix " "
-%tab 1 size 5, vgap 40, prefix "  ", icon box "green" 50
-%tab 2 size 5, vgap 40, prefix "      ", icon arc "yellow" 50
-%tab 3 size 5, vgap 40, prefix "            ", icon arc "white" 40
-%tab com1      size 4, prefix "     "
-%tab com2      size 4, prefix "          "
-%tab com3      size 4, prefix "             "
-%tab txt       font "sans", size 5, fore "white", prefix " "
-%tab vspace    size 2
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-%nodefault
-%size 9, font "title-bold"
-%fore "beige", back "navyblue", vgap 20
-%center
-
-
-A Type System in Action:
-
-the LablGTK Interface
-
-
-%size 7, font "title"
-Jacques Garrigue
-Kyoto University
-%size 6, font "code"
-garrigue@kurims.kyoto-u.ac.jp
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-2
-Synopsis
-
-       Objective Label introduction
-%size 2
-
-       Why GTK+?
-       GTK+/LablGTK structure
-%size 2
-
-       Low Level
-               Type encoding with variants
-               Labeled parameters
-%size 2
-
-       High Level
-               Object-orientation
-               Optional arguments
-               Polymorphic methods
-%size 2
-
-       Conclusion
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-3
-Objective Label
-
-       Based on Objective Caml
-               ML syntax and type inference
-               Class-based object system
-
-       Several extensions
-               Labeled and optional parameters
-               Polymorphic variants
-               Polymorphic methods
-
-       Tools
-               Type-based browser
-               GUI and 3D graphics
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-4
-Labels and optionals
-
-%font "code", size 4, prefix "    ", fore "yellow"
-let rec map fun:f = function
-    [] -> []
-  | x :: l -> f x :: map fun:f l
-%fore "lightpink"
-val map : fun:('a -> 'b) -> 'a list -> 'b list
-
-%pause, fore "yellow", font "code"
-let f = map [1;2;3]
-%fore "lightpink"
-val f : fun:(int -> 'a) -> 'a list
-%fore "yellow"
-f fun:(fun x -> 2*x)
-%fore "lightpink"
-- : int list = [2; 3; 4]
-
-%pause, fore "yellow", font "code"
-let f x ?incr:y [< 1 >] = x + y
-%fore "lightpink"
-val f : int -> ?incr:int -> int
-%fore "yellow"
-f 1
-%fore "lightpink"
-- : int = 2
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-5
-Polymorphic variants
-
-
-%font "code", size 4, prefix "    ", fore "yellow"
-[`on; `off]
-%fore "lightpink"
-- : [> off on] list = [`on; `off]
-
-%pause, fore "yellow", font "code"
-`number 1;;
-%fore "lightpink"
-- : [> number(int)] = `number 1
-
-%pause, fore "yellow", font "code"
-let f = function `on -> 1 | `off -> 0 | `number n -> n
-%fore "lightpink"
-val f : [< number(int) off on] -> int
-
-%pause, fore "yellow", font "code"
-type t = [on off number(int)]
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-6
-Polymorphic methods
-
-Not allowed in Objective Caml
-%size 2
-
-%font "code", size 4, prefix "    ", fore "yellow"
-class c = object method m x = x end
-%fore "red"
-Some type variables are unbound in this type:
-  class c : object method m : 'a -> 'a end
-The method m has type 'a -> 'a where 'a is unbound
-
-%pause, font "sans", size 5, prefix " ", fore "white"
-Need explicit annotation in O'Labl
-%size 2
-
-%font "code", size 4, prefix "    ", fore "yellow"
-class c = object
-    method m : 'a. 'a -> 'a = fun x -> x
-end
-%fore "lightpink"
-class c : object method m : 'a -> 'a end
-%fore "yellow"
-let o = new c
-%fore "lightpink"
-val o : c = <obj>
-%fore "yellow"
-o#m 1, o#m true
-%fore "lightpink"
-- : int * bool = 1, true
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-7
-Why GTK+ ?
-
-Why use the GIMP Tool Kit?
-%size 3
-
-       Widely used in free software
-
-       Easy to interface
-               Written in C (QT uses C++)
-               Memory management
-
-Drawbacks
-%size 3
-
-       Design lacks uniformity
-       Extensive use of dynamic typing
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-8
-GTK+ Structure
-
-Class hierarchy based on GtkObject
-%size 2
-
-       Single inheritance
-&com1 New widgets may redefine methods
-%size 2
-
-       Dynamically checked
-&com1 Casting necessay both up and down
-%size 2
-
-       Developper-side hierarchy
-&com1 Inheritance is not always meaningful to the user
-%size 2
-
-%size 5
-Signal-based callback mechanism
-%size 2
-
-       May use multiple callbacks
-%size 2
-
-       Signals are polymorphic
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-9
-LablGTK structure
-
-Typed at all levels
-
-       Low-level interface
-%size 2
-
-               C stub functions -- typechecked by C
-
-               ML type declarations -- ML abstract types
-
-       High-level interface
-%size 2
-
-               ML class wrappers -- ML concrete types
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-10
-Low Level Interface
-
-Goals
-
-       Strongly typed interface
-&com1 heavy use of advanced typing techniques
-
-       Very little ML code
-&com1 C-stubs and external declarations
-
-       Safe memory management
-&com1 have the library cooperate with the GC
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-11
-Low level encoding (I)
-
-
-How to represent widget subtyping in ML?
-
-       Example: buttons' hierarchy
-%size 2
-
-%font "code", size 5, prefix "      ", fore "yellow"
-GtkObject
-    GtkWidget
-        GtkContainer
-            GtkButton
-                GtkToggleButton
-                    GtkRadioButton
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-12
-Variants as set constraints
-
-
-Variants can be seen as sets of possible values:
-
-       [tag1 ... tagn] = {tag1,...,tagn}
-
-
-Polymorphic variants introduce constraints
-
-       \e$B&A\e(B[> tag1 ... tagn] \e$B"N\e(B \e$B&A\e(B \e$B"?\e(B {tag1,...,tagn}
-       \e$B&A\e(B[< tag1 ... tagn] \e$B"N\e(B \e$B&A\e(B \e$B">\e(B {tag1,...,tagn}
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-13
-Encoding hierarchies
-
-Define an abstract type
-&vspace
-%font "code", fore "yellow", size 5
-      type 'a obj
-
-&txt Use tags to represent properties
-&vspace
-%font "code", fore "yellow", size 5
-      type t = [class1 ... classn] obj
-
-&txt Functions check properties
-&vspace
-%font "code", fore "yellow", size 5
-      val f : [> class1 ... classn] obj -> ...
-&txt
-       Subsumes Haskell type classes
-&vspace
-       Allows multiple inheritance
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-14
-Low level encoding (II)
-
-Example: buttons' hierarchy
-%size 2
-
-%font "code", size 4, prefix "    ", fore "yellow"
-type 'a obj
-type widget = [widget] obj
-type container = [widget container] obj
-type button = [widget container button] obj
-type toggle_button = [widget ... togglebutton] obj
-type radio_button = [widget ... radiobutton] obj
-type state_type = [ NORMAL
-     ACTIVE PRELIGHT SELECTED INSENSITIVE ] 
-val set_state : [> widget] obj -> state_type -> unit
-val children : [> container] obj -> [widget] obj list
-val clicked : [> button] obj -> unit
-val set_group : [> radiobutton] obj -> group -> unit
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-15
-Alternate encoding
-
-Use only standard ML features
-%size 2
-
-%font "code", size 4, prefix "  ", fore "yellow", vgap 50
-type 'a obj
-type 'a widget
-...
-type 'a radio
-type state_type = NORMAL | ACTIVE | ... | INSENSITIVE
-val set_state : 'a widget obj -> state_type -> unit
-val children :
-    'a container widget obj -> unit widget obj list
-val clicked : 'a button container widget obj -> unit
-
-&txt Weaknesses
-       No multiple inheritance
-       Not very intuitive for the user
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-16
-Low level encoding (III)
-
-Use of labeled parameters
-%size 2
-
-%font "code", size 4, prefix "  ", fore "yellow", vgap 50
-val adjustment_new :
-    value:float -> lower:float -> upper:float ->
-    step_incr:float -> page_incr:float ->
-    page_size:float -> adjustment obj
-
-&txt Signals
-%size 2
-
-%font "code", size 4, prefix "  ", fore "yellow", vgap 50
-type ('a,'b) signal =
-    { name: string; marshaller: 'b -> GtkArgv.t -> unit }
-val connect : 'a obj -> sig:('a,'b) signal ->
-               callback:'b -> ?after:bool -> id
-val button_clicked : ([> button], unit -> unit) signal
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-17
-High-Level Interface
-
-Problems with GTK+
-%size 2
-
-       Name space is scattered
-&com1 One has to know in which superclass a function is defined
-       Developper oriented design
-&com1 There is no clear distinction between public and private definitions
-
-&txt LablGTK design
-%size 2
-
-       OCaml classes to reunify name space
-       Omit developper-oriented methods
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-18
-High-level classes
-
-%font "code", size 4, prefix "  ", fore "yellow"
-class button :
-%fore "lightgreen"
-  ?label:string ->
-%fore "lightpink"
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-%fore "lightgray"
-  ?packing:(GButton.button -> unit) ->
-  ?show:bool ->
-%fore "yellow"
-  object
-%fore "lightgray"
-    method destroy : unit -> unit
-    method as_widget : Gtk.widget obj
-    method misc : GObj.widget_misc
-%fore "lightpink"
-    method add : #is_widget -> unit
-    method set_border_width : int -> unit
-%fore "lightgreen"
-    method clicked : unit -> unit
-    method connect : GButton.button_signals
-    method grab_default : unit -> unit
-%fore "yellow"
-  end
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-19
-High-level features
-
-       Objective Caml classes
-&com1 allow collecting methods from different modules
-
-       Use optionals in class constructors
-&com1 makes widget creation much easier
-
-       Polymorphic methods
-&com1 needed for container widgets
-%size 2
-
-%font "code", size 4, fore "yellow", vgap 50
-        method add : 'a. (#is_widget as 'a) -> unit
-
-%fore "white", font "sans"
-       Polymorphic variants
-&com1 for C-style enumeration types, avoid name-space dependancies
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-20
-Polymorphic methods (I)
-
-       Instance of first-class polymorphism
-%size 2
-
-               first-class polytypes cannot be inferred
-               they are propagated by the definition flow
-
-       Technically
-%size 2
-
-               use polymorphism to track available information
-               type system excludes derivations based on "guessed" information
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-21
-First class polymorphism
-
-%prefix "            "
-%image "formula.eps" 512x384
-%size 2
-
-%prefix " ", size 5, fore "lightblue"
-  (\e$B&R\e(B1 : \e$B&R\e(B : \e$B&R\e(B2) \e$B"N\e(B \e$B&R\e(B1 = \e$B&H\e(B(\e$B&Q\e(B1(\e$B&R\e(B)) \e$B"J\e(B \e$B&R\e(B2 = \e$B&H\e(B(\e$B&Q\e(B2(\e$B&R\e(B))
-%fore "white"
-where \e$B&H\e(B instantiates free variables, and \e$B&Q\e(B1,\e$B&Q\e(B2 rename free labels of \e$B&R\e(B.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-22
-Polymorphic methods (II)
-
-Definitions
-%size 2
-
-%font "code", size 4, prefix "    ", fore "yellow", vgap 50
-type is_widget = < as_widget : widget obj >
-type #is_widget = < as_widget : widget obj; .. >
-type container =
-    < ... ; add : 'a. (#as_widget as 'a) -> unit; ... >
-
-%pause
-&txt Propagation
-%size 2
-
-%font "code", size 4, prefix "    ", fore "lightgreen", vgap 50
-fun (cont : container) -> cont#add widget
-
-%pause
-let button = new button in button#add widget
-
-%pause, fore "red"
-fun cont -> cont#add widget
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-23
-Programming example
-
-Hello World
-%size 2
-
-%font "code", size 4, prefix "    ", fore "yellow"
-open GMain
-
-let window =
-    new GWindow.window border_width: 10
-
-let button =
-    new GButton.button
-        label: "Hello World" packing: window#add
-
-let _ =
-  window#connect#destroy callback: Main.quit;
-  button#connect#clicked callback: window#destroy;
-  window#show ();
-  Main.main ()
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-24
-Conclusion
-
-       Results
-%size 2
-
-               Could build a strongly typed interface
-
-               It is easier to use than the C API
-
-               Makes effective use of extensions to the type system
-
-       Comments
-%size 2
-
-               Still difficulties with the Caml object system 
-&com2 class recursion, method type refinement, etc...

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/GL/morph3d.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/GL/morph3d.ml
deleted file mode 100644 (file)
index a08726e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/GL/morph3d.ml
+++ /dev/null
@@ -1,607 +0,0 @@
-(* $Id$ *)
-
-(*-
- * morph3d.c - Shows 3D morphing objects (TK Version)
- *
- * This program was inspired on a WindowsNT(R)'s screen saver. It was written 
- * from scratch and it was not based on any other source code. 
- * 
- * Porting it to xlock (the final objective of this code since the moment I
- * decided to create it) was possible by comparing the original Mesa's gear
- * demo with it's ported version, so thanks for Danny Sung for his indirect
- * help (look at gear.c in xlock source tree). NOTE: At the moment this code
- * was sent to Brian Paul for package inclusion, the XLock Version was not
- * available. In fact, I'll wait it to appear on the next Mesa release (If you
- * are reading this, it means THIS release) to send it for xlock package 
- * inclusion). It will probably there be a GLUT version too.
- *
- * Thanks goes also to Brian Paul for making it possible and inexpensive
- * to use OpenGL at home.
- *
- * Since I'm not a native english speaker, my apologies for any gramatical
- * mistake.
- *
- * My e-mail addresses are
- *
- * vianna@cat.cbpf.br 
- *         and
- * marcelo@venus.rdc.puc-rio.br
- *
- * Marcelo F. Vianna (Feb-13-1997)
- *)
-
-(*
-This document is VERY incomplete, but tries to describe the mathematics used
-in the program. At this moment it just describes how the polyhedra are 
-generated. On futhurer versions, this document will be probabbly improved.
-
-Since I'm not a native english speaker, my apologies for any gramatical
-mistake.
-
-Marcelo Fernandes Vianna 
-- Undergraduate in Computer Engeneering at Catholic Pontifical University
-- of Rio de Janeiro (PUC-Rio) Brasil.
-- e-mail: vianna@cat.cbpf.br or marcelo@venus.rdc.puc-rio.br
-- Feb-13-1997
-
-POLYHEDRA GENERATION
-
-For the purpose of this program it's not sufficient to know the polyhedra
-vertexes coordinates. Since the morphing algorithm applies a nonlinear 
-transformation over the surfaces (faces) of the polyhedron, each face has
-to be divided into smaller ones. The morphing algorithm needs to transform 
-each vertex of these smaller faces individually. It's a very time consoming
-task.
-
-In order to reduce calculation overload, and since all the macro faces of
-the polyhedron are transformed by the same way, the generation is made by 
-creating only one face of the polyhedron, morphing it and then rotating it
-around the polyhedron center. 
-
-What we need to know is the face radius of the polyhedron (the radius of 
-the inscribed sphere) and the angle between the center of two adjacent 
-faces using the center of the sphere as the angle's vertex.
-
-The face radius of the regular polyhedra are known values which I decided
-to not waste my time calculating. Following is a table of face radius for
-the regular polyhedra with edge length = 1:
-
-    TETRAHEDRON  : 1/(2*sqrt(2))/sqrt(3)
-    CUBE        : 1/2
-    OCTAHEDRON   : 1/sqrt(6)
-    DODECAHEDRON : T^2 * sqrt((T+2)/5) / 2     -> where T=(sqrt(5)+1)/2
-    ICOSAHEDRON  : (3*sqrt(3)+sqrt(15))/12
-
-I've not found any reference about the mentioned angles, so I needed to
-calculate them, not a trivial task until I figured out how :)
-Curiously these angles are the same for the tetrahedron and octahedron.
-A way to obtain this value is inscribing the tetrahedron inside the cube
-by matching their vertexes. So you'll notice that the remaining unmatched
-vertexes are in the same straight line starting in the cube/tetrahedron
-center and crossing the center of each tetrahedron's face. At this point
-it's easy to obtain the bigger angle of the isosceles triangle formed by
-the center of the cube and two opposite vertexes on the same cube face.
-The edges of this triangle have the following lenghts: sqrt(2) for the base
-and sqrt(3)/2 for the other two other edges. So the angle we want is:
-     +-----------------------------------------------------------+
-     | 2*ARCSIN(sqrt(2)/sqrt(3)) = 109.47122063449069174 degrees |
-     +-----------------------------------------------------------+
-For the cube this angle is obvious, but just for formality it can be
-easily obtained because we also know it's isosceles edge lenghts:
-sqrt(2)/2 for the base and 1/2 for the other two edges. So the angle we 
-want is:
-     +-----------------------------------------------------------+
-     | 2*ARCSIN((sqrt(2)/2)/1)   = 90.000000000000000000 degrees |
-     +-----------------------------------------------------------+
-For the octahedron we use the same idea used for the tetrahedron, but now
-we inscribe the cube inside the octahedron so that all cubes's vertexes
-matches excatly the center of each octahedron's face. It's now clear that
-this angle is the same of the thetrahedron one:
-     +-----------------------------------------------------------+
-     | 2*ARCSIN(sqrt(2)/sqrt(3)) = 109.47122063449069174 degrees |
-     +-----------------------------------------------------------+
-For the dodecahedron it's a little bit harder because it's only relationship
-with the cube is useless to us. So we need to solve the problem by another
-way. The concept of Face radius also exists on 2D polygons with the name
-Edge radius:
-  Edge Radius For Pentagon (ERp)
-  ERp = (1/2)/TAN(36 degrees) * VRp = 0.6881909602355867905
-  (VRp is the pentagon's vertex radio).
-  Face Radius For Dodecahedron
-  FRd = T^2 * sqrt((T+2)/5) / 2 = 1.1135163644116068404
-Why we need ERp? Well, ERp and FRd segments forms a 90 degrees angle, 
-completing this triangle, the lesser angle is a half of the angle we are 
-looking for, so this angle is:
-     +-----------------------------------------------------------+
-     | 2*ARCTAN(ERp/FRd)        = 63.434948822922009981 degrees |
-     +-----------------------------------------------------------+
-For the icosahedron we can use the same method used for dodecahedron (well
-the method used for dodecahedron may be used for all regular polyhedra)
-  Edge Radius For Triangle (this one is well known: 1/3 of the triangle height)
-  ERt = sin(60)/3 = sqrt(3)/6 = 0.2886751345948128655
-  Face Radius For Icosahedron
-  FRi= (3*sqrt(3)+sqrt(15))/12 = 0.7557613140761707538
-So the angle is:
-     +-----------------------------------------------------------+
-     | 2*ARCTAN(ERt/FRi)        = 41.810314895778596167 degrees |
-     +-----------------------------------------------------------+
-
-*)
-
-
-let scale = 0.3
-
-let vect_mul (x1,y1,z1) (x2,y2,z2) =
-  (y1 *. z2 -. z1 *. y2, z1 *. x2 -. x1 *. z2, x1 *. y2 -. y1 *. x2)
-
-let sqr a = a *. a
-
-(* Increasing this values produces better image quality, the price is speed. *)
-(* Very low values produces erroneous/incorrect plotting *)
-let tetradivisions =            23
-let cubedivisions =             20
-let octadivisions =             21
-let dodecadivisions =           10
-let icodivisions =              15
-
-let tetraangle =                109.47122063449069174
-let cubeangle =                 90.000000000000000000
-let octaangle =                 109.47122063449069174
-let dodecaangle =               63.434948822922009981
-let icoangle =                  41.810314895778596167
-
-let pi = acos (-1.)
-let sqrt2 = sqrt 2.
-let sqrt3 = sqrt 3.
-let sqrt5 = sqrt 5.
-let sqrt6 = sqrt 6.
-let sqrt15 = sqrt 15.
-let cossec36_2 = 0.8506508083520399322
-let cosd x =  cos (float x /. 180. *. pi)
-let sind x =  sin (float x /. 180. *. pi)
-let cos72 = cosd 72
-let sin72 = sind 72
-let cos36 = cosd 36
-let sin36 = sind 36
-
-(*************************************************************************)
-
-let front_shininess =   60.0
-let front_specular  =   0.7, 0.7, 0.7, 1.0
-let ambient         =   0.0, 0.0, 0.0, 1.0
-let diffuse         =   1.0, 1.0, 1.0, 1.0
-let position0       =   1.0, 1.0, 1.0, 0.0
-let position1       =   -1.0,-1.0, 1.0, 0.0
-let lmodel_ambient  =   0.5, 0.5, 0.5, 1.0
-let lmodel_twoside  =   true
-
-let materialRed     =   0.7, 0.0, 0.0, 1.0
-let materialGreen   =   0.1, 0.5, 0.2, 1.0
-let materialBlue    =   0.0, 0.0, 0.7, 1.0
-let materialCyan    =   0.2, 0.5, 0.7, 1.0
-let materialYellow  =   0.7, 0.7, 0.0, 1.0
-let materialMagenta =   0.6, 0.2, 0.5, 1.0
-let materialWhite   =   0.7, 0.7, 0.7, 1.0
-let materialGray    =   0.2, 0.2, 0.2, 1.0
-let all_gray = Array.create 20 materialGray
-
-let vertex ~xf ~yf ~zf ~ampvr2 =
-  let xa = xf +. 0.01 and yb = yf +. 0.01 in
-  let xf2 = sqr xf and yf2 = sqr yf in
-  let factor = 1. -. (xf2 +. yf2) *. ampvr2
-  and factor1 = 1. -. (sqr xa +. yf2) *. ampvr2
-  and factor2 = 1. -. (xf2 +. sqr yb) *. ampvr2 in
-  let vertx = factor *. xf and verty = factor *. yf
-  and vertz = factor *. zf in
-  let neiax = factor1 *. xa -. vertx and neiay = factor1 *. yf -. verty
-  and neiaz = factor1 *. zf -. vertz and neibx = factor2 *. xf -. vertx
-  and neiby = factor2 *. yb -. verty and neibz = factor2 *. zf -. vertz in
-  GlDraw.normal3 (vect_mul (neiax, neiay, neiaz) (neibx, neiby, neibz));
-  GlDraw.vertex3 (vertx, verty, vertz)
-
-let triangle ~edge ~amp ~divisions ~z =
-  let divi = float divisions in
-  let vr = edge *. sqrt3 /. 3. in
-  let ampvr2 = amp /. sqr vr
-  and zf = edge *. z in
-  let ax = edge *. (0.5 /. divi)
-  and ay = edge *. (-0.5 *. sqrt3 /. divi)
-  and bx = edge *. (-0.5 /. divi) in
-  for ri = 1 to divisions do
-    GlDraw.begins `triangle_strip;
-    for ti = 0 to ri - 1 do
-      vertex ~zf ~ampvr2
-       ~xf:(float (ri-ti) *. ax +. float ti *. bx)
-       ~yf:(vr +. float (ri-ti) *. ay +. float ti *. ay);
-      vertex ~zf ~ampvr2
-       ~xf:(float (ri-ti-1) *. ax +. float ti *. bx)
-       ~yf:(vr +. float (ri-ti-1) *. ay +. float ti *. ay)
-    done;
-    vertex ~xf:(float ri *. bx) ~yf:(vr +. float ri *. ay) ~zf ~ampvr2;
-    GlDraw.ends ()
-  done
-
-let square ~edge ~amp ~divisions ~z =
-  let divi = float divisions in
-  let zf = edge *. z
-  and ampvr2 = amp /. sqr (edge *. sqrt2 /. 2.) in
-  for yi = 0 to divisions - 1 do
-    let yf = edge *. (-0.5 +. float yi /. divi) in
-    let yf2 = sqr yf in
-    let y = yf +. 1.0 /. divi *. edge in
-    let y2 = sqr y in
-    GlDraw.begins `quad_strip;
-    for xi = 0 to divisions do
-      let xf = edge *. (-0.5 +. float xi /. divi) in
-      vertex ~xf ~yf:y ~zf ~ampvr2;
-      vertex ~xf ~yf ~zf ~ampvr2
-    done;
-    GlDraw.ends ()
-  done
-
-let pentagon ~edge ~amp ~divisions ~z =
-  let divi = float divisions in
-  let zf = edge *. z
-  and ampvr2 = amp /. sqr(edge *. cossec36_2) in
-  let x =
-    Array.init 6
-      ~f:(fun fi -> -. cos (float fi *. 2. *. pi /. 5. +. pi /. 10.)
-                    /. divi *. cossec36_2 *. edge)
-  and y =
-    Array.init 6
-      ~f:(fun fi -> sin (float fi *. 2. *. pi /. 5. +. pi /. 10.)
-                    /. divi *. cossec36_2 *. edge)
-  in
-  for ri = 1 to divisions do
-    for fi = 0 to 4 do
-      GlDraw.begins `triangle_strip;
-      for ti = 0 to ri-1 do
-       vertex ~zf ~ampvr2
-         ~xf:(float(ri-ti) *. x.(fi) +. float ti *. x.(fi+1))
-         ~yf:(float(ri-ti) *. y.(fi) +. float ti *. y.(fi+1));
-       vertex ~zf ~ampvr2
-         ~xf:(float(ri-ti-1) *. x.(fi) +. float ti *. x.(fi+1))
-         ~yf:(float(ri-ti-1) *. y.(fi) +. float ti *. y.(fi+1))
-      done;
-      vertex ~xf:(float ri *. x.(fi+1)) ~yf:(float ri *. y.(fi+1)) ~zf ~ampvr2;
-      GlDraw.ends ()
-    done
-  done
-
-let call_list list color =
-  GlLight.material ~face:`both (`diffuse color);
-  GlList.call list
-
-let draw_tetra ~amp ~divisions ~color =
-  let list = GlList.create `compile in
-  triangle ~edge:2.0 ~amp ~divisions ~z:(0.5 /. sqrt6);
-  GlList.ends();
-
-  call_list list color.(0);
-  GlMat.push();
-  GlMat.rotate ~angle:180.0 ~z:1.0 ();
-  GlMat.rotate ~angle:(-.tetraangle) ~x:1.0 ();
-  call_list list color.(1);
-  GlMat.pop();
-  GlMat.push();
-  GlMat.rotate ~angle:180.0 ~y:1.0 ();
-  GlMat.rotate ~angle:(-180.0 +. tetraangle) ~x:0.5 ~y:(sqrt3 /. 2.) ();
-  call_list list color.(2);
-  GlMat.pop();
-  GlMat.rotate ~angle:180.0 ~y:1.0 ();
-  GlMat.rotate ~angle:(-180.0 +. tetraangle) ~x:0.5 ~y:(-.sqrt3 /. 2.) ();
-  call_list list color.(3);
-
-  GlList.delete list
-
-let draw_cube ~amp ~divisions ~color =
-  let list = GlList.create `compile in
-  square ~edge:2.0 ~amp ~divisions ~z:0.5;
-  GlList.ends ();
-
-  call_list list color.(0);
-  for i = 1 to 3 do
-    GlMat.rotate ~angle:cubeangle ~x:1.0 ();
-    call_list list color.(i)
-  done;
-  GlMat.rotate ~angle:cubeangle ~y:1.0 ();
-  call_list list color.(4);
-  GlMat.rotate ~angle:(2.0 *. cubeangle) ~y:1.0 ();
-  call_list list color.(5);
-
-  GlList.delete list
-
-let draw_octa ~amp ~divisions ~color =
-  let list = GlList.create `compile in
-  triangle ~edge:2.0 ~amp ~divisions ~z:(1.0 /. sqrt6);
-  GlList.ends ();
-
-  let do_list (i,y) =
-    GlMat.push();
-    GlMat.rotate ~angle:180.0 ~y:1.0 ();
-    GlMat.rotate ~angle:(-.octaangle) ~x:0.5 ~y ();
-    call_list list color.(i);
-    GlMat.pop()
-  in
-  call_list list color.(0);
-  GlMat.push();
-  GlMat.rotate ~angle:180.0 ~z:1.0 ();
-  GlMat.rotate ~angle:(-180.0 +. octaangle) ~x:1.0 ();
-  call_list list color.(1);
-  GlMat.pop();
-  List.iter [2, sqrt3 /. 2.0; 3, -.sqrt3 /. 2.0] ~f:do_list;
-  GlMat.rotate ~angle:180.0 ~x:1.0 ();
-  GlLight.material ~face:`both (`diffuse color.(4));
-  GlList.call list;
-  GlMat.push();
-  GlMat.rotate ~angle:180.0 ~z:1.0 ();
-  GlMat.rotate ~angle:(-180.0 +. octaangle) ~x:1.0 ();
-  GlLight.material ~face:`both (`diffuse color.(5));
-  GlList.call list;
-  GlMat.pop();
-  List.iter [6, sqrt3 /. 2.0; 7, -.sqrt3 /. 2.0] ~f:do_list;
-
-  GlList.delete list
-
-let draw_dodeca ~amp ~divisions ~color =
-  let tau = (sqrt5 +. 1.0) /. 2.0 in
-  let list = GlList.create `compile in
-  pentagon ~edge:2.0 ~amp ~divisions
-    ~z:(sqr(tau) *. sqrt ((tau+.2.0)/.5.0) /. 2.0);
-  GlList.ends ();
-
-  let do_list (i,angle,x,y) =
-    GlMat.push();
-    GlMat.rotate ~angle:angle ~x ~y ();
-    call_list list color.(i);
-    GlMat.pop();
-  in
-  GlMat.push ();
-  call_list list color.(0);
-  GlMat.rotate ~angle:180.0 ~z:1.0 ();
-  List.iter ~f:do_list
-    [ 1, -.dodecaangle, 1.0, 0.0;
-      2, -.dodecaangle, cos72, sin72;
-      3, -.dodecaangle, cos72, -.sin72;
-      4, dodecaangle, cos36, -.sin36;
-      5, dodecaangle, cos36, sin36 ];
-  GlMat.pop ();
-  GlMat.rotate ~angle:180.0 ~x:1.0 ();
-  call_list list color.(6);
-  GlMat.rotate ~angle:180.0 ~z:1.0 ();
-  List.iter ~f:do_list
-    [ 7, -.dodecaangle, 1.0, 0.0;
-      8, -.dodecaangle, cos72, sin72;
-      9, -.dodecaangle, cos72, -.sin72;
-      10, dodecaangle, cos36, -.sin36 ];
-  GlMat.rotate ~angle:dodecaangle ~x:cos36 ~y:sin36 ();
-  call_list list color.(11);
-
-  GlList.delete list
-
-let draw_ico ~amp ~divisions ~color =
-  let list = GlList.create `compile in
-  triangle ~edge:1.5 ~amp ~divisions
-    ~z:((3.0 *. sqrt3 +. sqrt15) /. 12.0);
-  GlList.ends ();
-
-  let do_list1 i =
-    GlMat.rotate ~angle:180.0 ~y:1.0 ();
-    GlMat.rotate ~angle:(-180.0 +. icoangle) ~x:0.5 ~y:(sqrt3/.2.0) ();
-    call_list list color.(i)
-  and do_list2 i =
-    GlMat.rotate ~angle:180.0 ~y:1.0 ();
-    GlMat.rotate ~angle:(-180.0 +. icoangle) ~x:0.5 ~y:(-.sqrt3/.2.0) ();
-    call_list list color.(i)
-  and do_list3 i =
-    GlMat.rotate ~angle:180.0 ~z:1.0 ();
-    GlMat.rotate ~angle:(-.icoangle) ~x:1.0 ();
-    call_list list color.(i)
-  in
-  GlMat.push ();
-  call_list list color.(0);
-  GlMat.push ();
-  do_list3 1;
-  GlMat.push ();
-  do_list1 2;
-  GlMat.pop ();
-  do_list2 3;
-  GlMat.pop ();
-  GlMat.push ();
-  do_list1 4;
-  GlMat.push ();
-  do_list1 5;
-  GlMat.pop();
-  do_list3 6;
-  GlMat.pop ();
-  do_list2 7;
-  GlMat.push ();
-  do_list2 8;
-  GlMat.pop ();
-  do_list3 9;
-  GlMat.pop ();
-  GlMat.rotate ~angle:180.0 ~x:1.0 ();
-  call_list list color.(10);
-  GlMat.push ();
-  do_list3 11;
-  GlMat.push ();
-  do_list1 12;
-  GlMat.pop ();
-  do_list2 13;
-  GlMat.pop ();
-  GlMat.push ();
-  do_list1 14;
-  GlMat.push ();
-  do_list1 15;
-  GlMat.pop ();
-  do_list3 16;
-  GlMat.pop ();
-  do_list2 17;
-  GlMat.push ();
-  do_list2 18;
-  GlMat.pop ();
-  do_list3 19;
-
-  GlList.delete list
-
-class view area = object (self)
-  val area : GlGtk.area = area
-  val mutable smooth = true
-  val mutable step = 0.
-  val mutable obj = 1
-  val mutable draw_object = fun ~amp -> ()
-  val mutable magnitude = 0.
-
-  method width =  area#misc#allocation.Gtk.width
-  method height = area#misc#allocation.Gtk.height
-
-  method draw () =
-    let ratio = float self#height /. float self#width in
-    GlClear.clear [`color;`depth];
-    GlMat.push();
-    GlMat.translate ~z:(-10.0) ();
-    GlMat.scale ~x:(scale *. ratio) ~y:scale ~z:scale ();
-    GlMat.translate ()
-      ~x:(2.5 *. ratio *. sin (step *. 1.11))
-      ~y:(2.5 *. cos (step *. 1.25 *. 1.11));
-    GlMat.rotate ~angle:(step *. 100.) ~x:1.0 ();
-    GlMat.rotate ~angle:(step *. 95.) ~y:1.0 ();
-    GlMat.rotate ~angle:(step *. 90.) ~z:1.0 ();
-    draw_object ~amp:((sin step +. 1.0/.3.0) *. (4.0/.5.0) *. magnitude);
-    GlMat.pop();
-    Gl.flush();
-    area#swap_buffers ();
-    step <- step +. 0.05
-
-  method reshape ~width ~height =
-    GlDraw.viewport ~x:0 ~y:0 ~w:width ~h:height;
-    GlMat.mode `projection;
-    GlMat.load_identity();
-    GlMat.frustum ~x:(-1.0, 1.0) ~y:(-1.0, 1.0) ~z:(5.0, 15.0);
-    GlMat.mode `modelview
-
-  method key sym =
-    begin match sym with
-      "1" -> obj <- 1
-    | "2" -> obj <- 2
-    | "3" -> obj <- 3
-    | "4" -> obj <- 4
-    | "5" -> obj <- 5
-    | "\r" -> smooth <- not smooth
-    | "\027" -> area#misc#toplevel#destroy (); exit 0
-    | _ -> ()
-    end;
-    self#pinit
-
-  method pinit =
-    begin match obj with
-      1 ->
-       draw_object <- draw_tetra
-            ~divisions:tetradivisions
-            ~color:[|materialRed;  materialGreen;
-                    materialBlue; materialWhite|];
-       magnitude <- 2.5
-    | 2 ->
-       draw_object <- draw_cube
-            ~divisions:cubedivisions
-            ~color:[|materialRed; materialGreen; materialCyan;
-                    materialMagenta; materialYellow; materialBlue|];
-       magnitude <- 2.0
-    | 3 ->
-       draw_object <- draw_octa
-            ~divisions:octadivisions
-            ~color:[|materialRed; materialGreen; materialBlue;
-                    materialWhite; materialCyan; materialMagenta;
-                    materialGray; materialYellow|];
-       magnitude <- 2.5
-    | 4 ->
-      draw_object <- draw_dodeca
-          ~divisions:dodecadivisions
-          ~color:[|materialRed; materialGreen; materialCyan;
-                  materialBlue; materialMagenta; materialYellow;
-                  materialGreen; materialCyan; materialRed;
-                  materialMagenta; materialBlue; materialYellow|];
-      magnitude <- 2.0
-    | 5 ->
-       draw_object <- draw_ico
-            ~divisions:icodivisions
-            ~color:[|materialRed; materialGreen; materialBlue;
-                    materialCyan; materialYellow; materialMagenta;
-                    materialRed; materialGreen; materialBlue;
-                    materialWhite; materialCyan; materialYellow;
-                    materialMagenta; materialRed; materialGreen;
-                    materialBlue; materialCyan; materialYellow;
-                    materialMagenta; materialGray|];
-       magnitude <- 3.5
-    | _ -> ()
-    end;
-    GlDraw.shade_model (if smooth then `smooth else `flat)
-  initializer
-    area#connect#display ~callback:self#draw;
-    area#connect#reshape ~callback:self#reshape;
-    ()
-end
-
-open GMain
-
-let main () =
-  List.iter ~f:print_string
-    [ "Morph 3D - Shows morphing platonic polyhedra\n";
-      "Author: Marcelo Fernandes Vianna (vianna@cat.cbpf.br)\n";
-      "Ported to LablGL by Jacques Garrigue\n\n";
-      "  [1]    - Tetrahedron\n";
-      "  [2]    - Hexahedron (Cube)\n";
-      "  [3]    - Octahedron\n";
-      "  [4]    - Dodecahedron\n";
-      "  [5]    - Icosahedron\n";
-      "[RETURN] - Toggle smooth/flat shading\n";
-      " [ESC]   - Quit\n" ];
-  flush stdout;
-
-  let window =
-    GWindow.window ~title:"Morph 3D - Shows morphing platonic polyhedra" ()
-  in
-  window#connect#destroy ~callback:Main.quit;
-  window#set_resize_mode `IMMEDIATE;
-
-  let area = GlGtk.area [`DEPTH_SIZE 1;`RGBA;`DOUBLEBUFFER]
-      ~width:640 ~height:480 ~packing:window#add () in
-
-  let view = new view area in
-
-  area#connect#realize ~callback:
-    begin fun () ->
-      view#pinit;
-      GlClear.depth 1.0;
-      GlClear.color (0.0, 0.0, 0.0);
-      GlDraw.color (1.0, 1.0, 1.0);
-
-      GlClear.clear [`color;`depth];
-      Gl.flush();
-
-      List.iter ~f:(GlLight.light ~num:0)
-       [`ambient ambient; `diffuse diffuse; `position position0];
-      List.iter ~f:(GlLight.light ~num:1)
-       [`ambient ambient; `diffuse diffuse; `position position1];
-      GlLight.light_model (`ambient lmodel_ambient);
-      GlLight.light_model (`two_side lmodel_twoside);
-      List.iter ~f:Gl.enable
-       [`lighting;`light0;`light1;`depth_test;`normalize];
-
-      GlLight.material ~face:`both (`shininess front_shininess);
-      GlLight.material ~face:`both (`specular front_specular);
-
-      GlMisc.hint `fog `fastest;
-      GlMisc.hint `perspective_correction `fastest;
-      GlMisc.hint `polygon_smooth `fastest
-    end;
-
-  window#event#connect#key_press
-    ~callback:(fun ev -> view#key (GdkEvent.Key.string ev); true);
-
-  Timeout.add ~ms:20
-    ~callback:(fun _ -> if area#misc#visible then view#draw (); true);
-  window#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/GL/planet.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/GL/planet.ml
deleted file mode 100644 (file)
index 51f947c..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/GL/planet.ml
+++ /dev/null
@@ -1,125 +0,0 @@
-(* $Id$ *)
-
-class planet area = object (self)
-  val area : GlGtk.area = area
-  val mutable year = 0.0
-  val mutable day = 0.0
-  val mutable eye = 0.0
-  val mutable time = 0.0
-
-  method tick new_time =
-    if time = 0. then time <- new_time else
-    let diff = new_time -. time in
-    time <- new_time;
-    day <- mod_float (day +. diff *. 200.) 360.0;
-    year <- mod_float (year +. diff *. 20.) 360.0
-  method day_add () =
-    day <- mod_float (day +. 10.0) 360.0
-  method day_subtract () =
-    day <- mod_float (day -. 10.0) 360.0
-  method year_add () =
-    year <- mod_float (year +. 5.0) 360.0
-  method year_subtract () =
-    year <- mod_float (year -. 5.0) 360.0
-  method eye x =
-    eye <- x; self#display ()
-
-  method display () =
-    GlClear.clear [`color;`depth];
-
-    GlDraw.color (1.0, 1.0, 1.0);
-    GlMat.push();
-    GlMat.rotate ~angle:eye ~x:1. ();
-(*     draw sun        *)
-    GlLight.material ~face:`front (`specular (1.0,1.0,0.0,1.0));
-    GlLight.material ~face:`front (`shininess 5.0);
-    GluQuadric.sphere ~radius:1.0 ~slices:32 ~stacks:32 ();
-(*     draw smaller planet     *)
-    GlMat.rotate ~angle:year ~y:1.0 ();
-    GlMat.translate ~x:3.0 ();
-    GlMat.rotate ~angle:day ~y:1.0 ();
-    GlDraw.color (0.0, 1.0, 1.0);
-    GlDraw.shade_model `flat;
-    GlLight.material ~face:`front(`shininess 128.0);
-    GluQuadric.sphere ~radius:0.2 ~slices:10 ~stacks:10 ();
-    GlDraw.shade_model `smooth;
-    GlMat.pop ();
-    Gl.flush ();
-    area#swap_buffers ()
-end
-
-let myinit () =
-  let light_ambient = 0.5, 0.5, 0.5, 1.0
-  and light_diffuse = 1.0, 0.8, 0.2, 1.0
-  and light_specular = 1.0, 1.0, 1.0, 1.0
-  (*  light_position is NOT default value      *)
-  and light_position = 1.0, 1.0, 1.0, 0.0
-  in
-  List.iter ~f:(GlLight.light ~num:0)
-    [ `ambient light_ambient; `diffuse light_diffuse;
-      `specular light_specular; `position light_position ];
-  GlFunc.depth_func `less;
-  List.iter ~f:Gl.enable [`lighting; `light0; `depth_test];
-  GlDraw.shade_model `smooth
-
-
-let my_reshape ~width:w ~height:h =
-  GlDraw.viewport ~x:0 ~y:0 ~w ~h;
-  GlMat.mode `projection;
-  GlMat.load_identity();
-  GluMat.perspective ~fovy:60.0 ~aspect:(float w /. float h) ~z:(1.0,20.0);
-  GlMat.mode `modelview;
-  GlMat.load_identity();
-  GlMat.translate ~z:(-5.0) ()
-
-(*  Main Loop
- *  Open window with initial window size, title bar, 
- *  RGBA display mode, and handle input events.
- *)
-open GMain
-open GdkKeysyms
-
-let main () =
-  let w = GWindow.window ~title:"Planet" () in
-  w#connect#destroy ~callback:(fun () -> Main.quit (); exit 0);
-  w#set_resize_mode `IMMEDIATE;
-  let hb = GPack.hbox ~packing:w#add () in
-  let area = GlGtk.area [`DOUBLEBUFFER;`RGBA;`DEPTH_SIZE 1]
-      ~width:700 ~height:500 ~packing:hb#add () in
-  area#event#add [`KEY_PRESS];
-
-  let planet = new planet area in
-  let adjustment = GData.adjustment ~value:0. ~lower:(-90.) ~upper:90.
-      ~step_incr:1. ~page_incr:5. ~page_size:5. () in
-  let scale = GRange.scale `VERTICAL ~adjustment ~draw_value:false
-      ~packing:hb#pack () in
-  adjustment#connect#value_changed
-    ~callback:(fun () -> planet#eye adjustment#value);
-  w#event#connect#key_press ~callback:
-    begin fun ev ->
-      let key = GdkEvent.Key.keyval ev in
-      if key = _Left then planet#year_subtract () else
-      if key = _Right then planet#year_add () else
-      if key = _Up then planet#day_add () else
-      if key = _Down then planet#day_subtract () else
-      if key = _Escape then w#destroy ();
-      planet#display ();
-      true
-    end;
-  
-  Timeout.add ~ms:20 ~callback:
-    begin fun () ->
-      planet#tick (Sys.time ()); planet#display (); true
-    end;
-  area#connect#display ~callback:planet#display;
-  area#connect#reshape ~callback:my_reshape;
-
-  area#connect#realize ~callback:
-    begin fun () ->
-      myinit ();
-      my_reshape ~width:700 ~height:500
-    end;
-  w#show ();
-  Main.main ()
-
-let _ = Printexc.print main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/GL/simple.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/GL/simple.ml
deleted file mode 100644 (file)
index ea6ebde..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/GL/simple.ml
+++ /dev/null
@@ -1,33 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let main () =
-  let w = GWindow.window ~title:"LablGL/Gtk" () in
-  w#connect#destroy ~callback:Main.quit;
-  let area =
-    GlGtk.area [`RGBA;`DEPTH_SIZE 1] ~width:500 ~height:500 ~packing:w#add () in
-  area#connect#realize ~callback:
-    begin fun () ->
-      GlMat.mode `projection;
-      GlMat.load_identity ();
-      GlMat.ortho ~x:(-1.0,1.0) ~y:(-1.0,1.0) ~z:(-1.0,1.0);
-    end;
-  area#connect#display ~callback:
-    begin fun () ->
-      GlClear.color (0.0, 0.0, 0.0);
-      GlClear.clear [`color];
-      GlDraw.color (1.0, 1.0, 1.0);
-      GlDraw.begins `polygon;
-      GlDraw.vertex ~x:(-0.5) ~y:(-0.5) ();
-      GlDraw.vertex ~x:(-0.5) ~y:(0.5) ();
-      GlDraw.vertex ~x:(0.5) ~y:(0.5) ();
-      GlDraw.vertex ~x:(0.5) ~y:(-0.5) ();
-      GlDraw.ends ();
-      Gl.flush ()
-    end;
-  Timeout.add ~ms:10000 ~callback:(fun () -> w#destroy ();false);
-  w#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/README b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/README
deleted file mode 100644 (file)
index 6cbb5b6..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/README
+++ /dev/null
@@ -1,17 +0,0 @@
-Since this library was written in commuting label mode, examples were
-also written in this mode.
-Still, the following examples also compile in classic mode without
-any modification.
-
-* calendar.ml
-* clist.ml
-* drawing.ml
-* entry.ml
-* events.ml
-* fifteen.ml
-* hello.ml
-* image.ml
-* radiobuttons.ml
-* rpn.ml
-* scrolledwin.ml
-* testinput.ml
\ No newline at end of file

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/buttons.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/buttons.ml
deleted file mode 100644 (file)
index 78eebb0..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/buttons.ml
+++ /dev/null
@@ -1,26 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let xpm_label_box ~(window : #GContainer.container)
-    ~file ~text ?packing ?(show=true) () =
-  if not (Sys.file_exists file) then failwith (file ^ " does not exist");
-  let box = GPack.hbox ~border_width: 2 ?packing ~show:false () in
-  let pixmap = GDraw.pixmap_from_xpm ~file ~window () in
-  GMisc.pixmap pixmap ~packing:(box#pack ~padding:3) ();
-  GMisc.label ~text ~packing:(box#pack ~padding:3) ();
-  if show then box#misc#show ();
-  new GObj.widget_full box#as_widget
-
-let main () =
-  let window = GWindow.window ~title:"Pixmap'd Buttons!" ~border_width:10 () in
-  window#connect#destroy ~callback:Main.quit;
-  let button = GButton.button ~packing:window#add () in
-  button#connect#clicked ~callback:
-    (fun () -> prerr_endline "Hello again - cool button was pressed");
-  xpm_label_box ~window ~file:"test.xpm" ~text:"cool button"
-    ~packing:button#add ();
-  window#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/calc.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/calc.ml
deleted file mode 100644 (file)
index 405d1bf..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/calc.ml
+++ /dev/null
@@ -1,114 +0,0 @@
-(* $Id$ *)
-
-(* A simple calculator ported from LablTk to LablGtk *)
-
-let mem_string ~char s =
-  try
-    for i = 0 to String.length s -1 do
-      if s.[i] = char then raise Exit
-    done; false
-  with Exit -> true
-
-let ops = ['+',(+.); '-',(-.); '*',( *.); '/',(/.)]
-
-(* The abstract calculator class. Does not use Gtk *)
-
-class virtual calc = object (calc)
-  val mutable x = 0.0
-  val mutable op = None
-  val mutable displaying = true
-
-  method virtual set : string -> unit
-  method virtual get : string
-  method virtual quit : unit -> unit
-  method insert s = calc#set (calc#get ^ s)
-  method get_float = float_of_string (calc#get)
-
-  initializer calc#set "0"
-
-  method command s =
-    if s <> "" then match s.[0] with
-      '0'..'9' ->
-       if displaying then (calc#set ""; displaying <- false);
-       calc#insert s
-    | '.' ->
-       if displaying then
-         (calc#set "0."; displaying <- false)
-       else
-         if not (mem_string ~char:'.' calc#get) then calc#insert s
-    | '+'|'-'|'*'|'/' as c ->
-       displaying <- true;
-       begin match op with
-         None ->
-           x <- calc#get_float;
-           op <- Some (List.assoc c ops)
-       | Some f ->
-           x <- f x (calc#get_float);
-           op <- Some (List.assoc c ops);
-           calc#set (string_of_float x)
-       end
-    | '='|'\n'|'\r' ->
-       displaying <- true;
-       begin match op with
-         None -> ()
-       | Some f ->
-           x <- f x (calc#get_float);
-           op <- None;
-           calc#set (string_of_float x)
-       end
-    | 'q' -> calc#quit ()
-    | _ -> ()
-end
-
-(* Buttons for the calculator *)
-
-let m =
-  [|[|"7";"8";"9";"+"|];
-    [|"4";"5";"6";"-"|];
-    [|"1";"2";"3";"*"|];
-    [|"0";".";"=";"/"|]|]
-
-(* The physical calculator. Inherits from the abstract one *)
-
-open GMain
-
-class calculator ?packing ?show () =
-  let table = GPack.table ~rows:5 ~columns:4 ~homogeneous:true ~show:false () in
-  object (calc)
-    inherit calc
-
-    val label =
-      let frame = GBin.frame ~shadow_type:`IN ()
-       ~packing:(table#attach ~left:0 ~top:0 ~right:4 ~expand:`BOTH) in
-      let evbox = GBin.event_box ~packing:frame#add () in
-      evbox#misc#set_style evbox#misc#style#copy;
-      evbox#misc#style#set_bg [`NORMAL,`WHITE];
-      GMisc.label ~justify:`RIGHT ~xalign:0.95 ~packing:evbox#add ()
-    val table = table
-
-    method set = label#set_text
-    method get = label#text
-    method quit = Main.quit
-
-    initializer
-      for i = 0 to 3 do for j = 0 to 3 do
-       let button =
-         GButton.button ~label:("  " ^ m.(i).(j) ^ "  ")
-           ~packing:(table#attach ~top:(i+1) ~left:j ~expand:`BOTH) () in
-       button#connect#clicked ~callback:(fun () -> calc#command m.(i).(j));
-      done done;
-      ignore (GObj.pack_return table ~packing ~show)
-  end
-
-(* Finally start everything *)
-
-let w = GWindow.window ~auto_shrink:true ()
-
-let applet = new calculator ~packing: w#add ()
-
-let _ =
-  w#connect#destroy ~callback: Main.quit;
-  w#event#connect#key_press
-    ~callback:(fun ev -> applet#command (GdkEvent.Key.string ev); true);
-  w#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/calendar.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/calendar.ml
deleted file mode 100644 (file)
index 233c744..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/calendar.ml
+++ /dev/null
@@ -1,21 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let main () =
-  let window = GWindow.window () in
-  window#connect#destroy ~callback:Main.quit;
-
-  let calendar = GMisc.calendar ~packing:window#add () in
-  calendar#connect#day_selected ~callback:
-    begin fun () ->
-      let (year,month,day) = calendar#date in
-      Printf.printf "You selected %d/%d/%02d.\n"
-       day (month+1) (year mod 100);
-      flush stdout
-    end;
-
-  window#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/clist.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/clist.ml
deleted file mode 100644 (file)
index f900f17..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/clist.ml
+++ /dev/null
@@ -1,51 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let main () =
-  let window = GWindow.window ~title:"CList example" ~width:300 ~height:150 () in
-  window#connect#destroy ~callback:Main.quit;
-
-  let vbox = GPack.vbox ~border_width:5 ~packing:window#add () in
-
-  let hbox = GPack.hbox ~packing:vbox#add () in
-  let sb =
-    GRange.scrollbar `VERTICAL ~packing:(hbox#pack ~from:`END) () in
-  let clist =
-    GList.clist ~titles:["Ingredients";"Amount"] ~shadow_type:`OUT
-      ~packing:hbox#add ~vadjustment:sb#adjustment () in
-  clist#connect#select_row ~callback:
-    begin fun ~row ~column ~event ->
-      let text = clist#cell_text row column in
-      Printf.printf "You selected row %d. More specifically you clicked in column %d, and the text in this cell is %s\n\n" row column text;
-      flush stdout
-    end;
-
-  let hbox = GPack.hbox ~packing:vbox#pack () in
-
-  let button_add = GButton.button ~label:"Add List" ~packing:hbox#add () in
-  button_add#connect#clicked ~callback:
-    begin fun () ->
-      List.iter ~f:(fun t -> ignore (clist#append t))
-       [ ["Milk"; "3 Oz"];
-         ["Water"; "6 l"];
-         ["Carrots"; "2"];
-         ["Snakes"; "55"] ]
-    end;
-
-  let button_clear = GButton.button ~label:"Clear List" ~packing:hbox#add () in
-  button_clear#connect#clicked ~callback:clist#clear;
-
-  let button_hide_show =
-    GButton.button ~label:"Hide/Show titles" ~packing:hbox#add () in
-  let flag = ref false in
-  button_hide_show#connect#clicked ~callback:
-    begin fun () ->
-      clist#set_titles_show !flag;
-      flag := not !flag
-    end;
-
-  window#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/combo.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/combo.ml
deleted file mode 100644 (file)
index 9aff1b3..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/combo.ml
+++ /dev/null
@@ -1,23 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let make_arrow_label combo ~label ~string =
-  let item = GList.list_item () in (* no packing here, it blocks GTK *)
-  let hbox = GPack.hbox ~spacing:3 ~packing:item#add () in
-  GMisc.arrow ~kind:`RIGHT ~shadow:`OUT ~packing:hbox#pack ();
-  GMisc.label ~text:label ~packing:hbox#pack ();
-  combo#set_item_string item string;
-  combo#list#add item;
-  item
-
-let main () =
-  let window = GWindow.window ~border_width:10 () in
-  window#connect#destroy ~callback:Main.quit;
-  let combo = GEdit.combo ~packing:window#add () in
-  make_arrow_label combo ~label:"First item" ~string:"1st item";
-  make_arrow_label combo ~label:"Second item" ~string:"2nd item";
-  window#show ();
-  Main.main ()
-  
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/csview.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/csview.ml
deleted file mode 100644 (file)
index eaf8de1..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/csview.ml
+++ /dev/null
@@ -1,155 +0,0 @@
-(* $Id$ *)
-
-(* A simple CSV data viewer *)
-
-type data =
-    { fields : string list;
-      titles : string list;
-      data : string list list }
-
-let mem_string ~char s =
-  try
-    for i = 0 to String.length s - 1 do
-      if s.[i] = char then raise Exit
-    done;
-    false
-  with Exit -> true
-
-let rec until ~chars ?(escapes="") ?(buf = Buffer.create 80) s =
-  match Stream.peek s with
-    Some c ->
-      if mem_string ~char:c escapes then begin
-        Stream.junk s;
-        Buffer.add_char buf (Stream.next s);
-        until ~chars ~escapes ~buf s
-      end else if mem_string ~char:c chars then
-        Buffer.contents buf
-      else begin
-        Buffer.add_char buf c;
-        Stream.junk s;
-        until ~chars ~escapes ~buf s
-      end
-  | None ->
-      if Buffer.length buf > 0 then raise (Stream.Error "until")
-      else raise Stream.Failure
-
-let rec ignores ?(chars = " \t") s =
-  match Stream.peek s with
-    Some c when mem_string ~char:c chars ->
-      Stream.junk s; ignores ~chars s
-  | _ -> ()
-
-let parse_field = parser
-    [< ''"'; f = until ~chars:"\"" ~escapes:"\\"; ''"'; _ = ignores >] ->
-      for i = 0 to String.length f - 1 do
-        if f.[i] = '\031' then f.[i] <- '\n'
-      done;
-      f
-  | [< f = until ~chars:",\n\r" >] -> f
-  | [< >] -> ""
-
-let comma = parser [< '','; _ = ignores >] -> ()
-
-let rec parse_list ~item ~sep = parser
-    [< i = item; s >] ->
-      begin match s with parser
-        [< _ = sep; l = parse_list ~item ~sep >] -> i :: l
-      | [< >] -> [i]
-      end
-  | [< >] -> []
-
-let parse_one = parse_list ~item:parse_field ~sep:comma
-
-let lf = parser [< ''\n'|'\r'; _ = ignores ~chars:"\n\r"; _ = ignores >] -> ()
-
-let parse_all = parse_list ~item:parse_one ~sep:lf
-
-let read_file file =
-  let ic = open_in file in
-  let s = Stream.of_channel ic in
-  let data = parse_all s in
-  close_in ic;
-  match data with
-    ("i"::fields) :: ("T"::titles) :: data ->
-      {fields=fields; titles=titles; data=List.map ~f:List.tl data}
-  | titles :: data ->
-      {fields=titles; titles=titles; data=data}
-  | _ -> failwith "Insufficient data"
-
-let print_string s =
-  Format.print_char '"';
-  for i = 0 to String.length s - 1 do
-    match s.[i] with
-      '\'' -> Format.print_char '\''
-    | '"' -> Format.print_string "\\\""
-    | '\160'..'\255' as c -> Format.print_char c
-    | c -> Format.print_string (Char.escaped c)
-  done;
-  Format.print_char '"'  
-
-(*
-#install_printer print_string;;
-*)
-
-open GMain
-
-let field_widths =
-  [ "i", 0;
-    "ATTR", 0;
-    "NAME", 17;
-    "NAPR", 8;
-    "TEL1", 14;
-    "ZIPC", 12;
-    "ADR1", 40;
-    "BRTH", 10;
-    "RMRK", 20;
-    "CHK1", 0;
-    "CHK2", 0;
-    "CHK3", 0;
-    "CHK4", 0;
-    "TIM1", 16;
-    "TIM2", 16;
-    "ALRM", 0;
-    "ATTM", 0;
-  ]
-
-let main argv =
-  if Array.length argv <> 2 then begin
-    prerr_endline "Usage: csview <csv file>";
-    exit 2
-  end;
-  let data = read_file argv.(1) in
-  let w = GWindow.window () in
-  w#misc#realize ();
-  let style = w#misc#style in
-  let font = Gdk.Font.load_fontset "-schumacher-clean-medium-r-normal--13-*-*-*-c-60-*,-mnkaname-fixed-*--12-*" in
-  let w0 = Gdk.Font.char_width font '0' in
-  style#set_font font;
-  w#connect#destroy ~callback:Main.quit;
-  let sw = GBin.scrolled_window ~width:600 ~height:300 ~packing:w#add () in
-  let cl = GList.clist ~titles:data.titles ~packing:sw#add () in
-  List.fold_left data.fields ~init:0 ~f:
-    begin fun acc f ->
-      let width = try List.assoc f field_widths with Not_found -> -1 in
-      if width = 0 then
-        cl#set_column ~visibility:false acc
-      else begin
-        if width > 0 then cl#set_column ~width:(width * w0) acc
-        else cl#set_column ~auto_resize:true acc;
-        if f = "NAPR" || f = "TIM1" || f = "CLAS" then
-          cl#set_sort ~auto:true ~column:acc ();
-        try
-          let ali = GBin.alignment_cast (cl#column_widget acc) in
-          let lbl = GMisc.label_cast (List.hd ali#children) in
-          lbl#set_alignment ~x:0. ()
-        with _ ->
-          prerr_endline ("No column widget for field " ^ f)
-      end;
-      succ acc
-    end;
-  List.iter data.data
-    ~f:(fun l -> if List.length l > 1 then ignore (cl#append l));
-  w#show ();
-  Main.main ()
-
-let _ = main Sys.argv

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/dcalendar.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/dcalendar.ml
deleted file mode 100644 (file)
index 6128506..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/dcalendar.ml
+++ /dev/null
@@ -1,247 +0,0 @@
-(* $Id$ *)
-
-(* A small calendar *)
-(* Needs Unix module, so use with lablgtk_t *)
-
-open Printf
-
-type date = { mutable year: int; mutable mon: int; mutable mday: int }
-
-    (* Load the schedule data *)
-let calendar_file = Filename.concat (Sys.getenv "HOME") ".camlendar"
-
-let schedule =
-  try
-    let ichan = open_in calendar_file in
-    let (s : (int * int * int, string) Hashtbl.t) =
-      Marshal.from_channel ichan in
-    close_in ichan;
-    s
-  with Sys_error msg ->
-    prerr_endline msg; flush stderr;
-    Hashtbl.create 13;;
-
-    (* Saves the schedule data when the application terminates *)
-at_exit (fun () ->
-  let ochan = open_out calendar_file in
-  Marshal.to_channel ochan schedule ~mode: [];
-  close_out ochan);;
-
-    (* date: Current date initialized to "today" *)
-let date =
-  let tm = Unix.localtime (Unix.time ()) in
-  { year = 1900 + tm.Unix.tm_year; mon = tm.Unix.tm_mon; mday = 1 }
-
-
-    (* previous_month, next_month: change application status *)
-let previous_month () =
-  date.mday <- 1;
-  if date.mon = 0 then
-    (date.year <- date.year - 1; date.mon <- 11)
-  else date.mon <- date.mon - 1
-
-let next_month () =
-  date.mday <- 1;
-  if date.mon = 11 then (date.year <- date.year + 1; date.mon <- 0)
-  else date.mon <- date.mon + 1
-
-    (* leap, mon_name, wday_name: Calendar related function and data *)
-let leap year =
-  (year mod 400 = 0) or
-  (year mod 4 = 0) & (year mod 100 <> 0)
-
-let mdays_in_month = [|31; 28; 31; 30; 31; 30; 31; 31; 30; 31; 30; 31|]
-
-let mon_name =
-  [|"Jan"; "Feb"; "Mar"; "Apr"; "May"; "Jun";
-    "Jul"; "Aug"; "Sep"; "Oct"; "Nov"; "Dec"|]
-
-let wday_name =
-  [|"Sun"; "Mon"; "Tue"; "Wed"; "Thu"; "Fri"; "Sat"|]
-
-let s_normal = 0 and s_focused = 1 and s_planned = 2
-let styles =
-  let default = (Obj.magic () : GObj.style) in
-  [| default; default; default |]
-
-   (* class date_button: one button for each day in the month *)
-class date_button i (calendar : GPack.table) =
-  let mday = i + 1 in
-
-  object (self)
-    val widget = GButton.button ~label: (string_of_int mday) ~show: false ()
-    val mday = mday
-    val mutable show = false
-    val mutable have_plan = false
-
-    method widget = widget
-    method focus_on =
-      date.mday <- mday;
-      widget#misc#set_style styles.(s_focused)
-    method focus_off =
-      widget#misc#set_style styles.(if have_plan then s_planned else s_normal)
-    method set_plan =
-      have_plan <- true;
-      widget#misc#set_style styles.(s_planned)
-    method unset_plan =
-      have_plan <- false;
-      widget#misc#set_style styles.(s_normal)
-       
-    method show wday0 =
-      if not show then
-       let top = (mday + wday0) / 7 + 1
-       and left = (mday + wday0) mod 7 in
-       calendar#attach ~left ~top ~expand:`BOTH widget#coerce;
-       widget#misc#show ();
-       show <- true
-           
-    method hide =
-      if show then
-       (widget#misc#hide ();
-        calendar#remove widget#coerce;
-        show <- false)
-  end
-
-let update_calendar (calendar : GPack.table) (buttons : date_button array) =
-  let now = Unix.localtime (Unix.gettimeofday ()) in
-  let _, first = Unix.mktime { now with 
-                              Unix.tm_mday = 1;
-                              Unix.tm_mon = date.mon;
-                              Unix.tm_year = date.year - 1900 } in
-
-  (* wday0: day of the week of the zero'th day in the month *)
-  let wday0 = (first.Unix.tm_wday - 1 + 7) mod 7 in
-  
-  let ndays =
-    if date.mon = 1 & leap date.year then mdays_in_month.(date.mon) + 1
-    else mdays_in_month.(date.mon) in
-
-  Array.iter ~f: (fun button -> button#hide)
-    buttons;
-
-  for i = 0 to ndays - 1 do buttons.(i)#show wday0 done
-
-let create_GUI () =
-  
-  (* views part *)
-
-  let win =
-    GWindow.window ~title: "Camlendar" ~show: true
-      ~allow_shrink: false ~allow_grow: false () in
-  win#event#connect#delete
-    ~callback: (fun _ -> GMain.Main.quit (); exit 0; false);
-
-  let style = win#misc#style#copy in
-  styles.(s_normal) <- style;
-  
-  let style = style#copy in
-  style#set_bg [`NORMAL, `NAME "light green";
-               `PRELIGHT, `NAME "light green"];
-  styles.(s_focused) <- style;
-
-  styles.(s_focused) <- style;
-  let style = style#copy in
-  style#set_bg [`NORMAL, `NAME "sky blue";
-               `PRELIGHT, `NAME "sky blue"];
-  styles.(s_planned) <- style;
-
-  let vbox = GPack.vbox ~packing: win#add () in
-  let packing = vbox#add in
-  let toolbar = GButton.toolbar ~style: `TEXT ~packing () in
-
-  let prev =
-    toolbar#insert_button ~text: "Prev" ~tooltip: "Show previous month" () in
-  let next =
-    toolbar#insert_button ~text: "Next" ~tooltip: "Show next month" () in
-  
-  let calendar =
-    GPack.table ~homogeneous: true ~rows: 7 ~columns: 7
-      ~border_width: 10 ~row_spacings: 2 ~col_spacings: 2 ~packing () in
-
-  Array.iteri
-    ~f: (fun i wday ->
-      ignore (GButton.button ~label: wday
-               ~packing:(calendar#attach ~top: 0 ~left: i ~expand:`BOTH) ()))
-    wday_name;
-
-  let buttons =
-    Array.init 31 ~f: (fun i -> new date_button i calendar) in
-
-  let date_view = GMisc.label ~justify: `CENTER ~packing () in
-
-  let text = GEdit.text ~editable: true ~width: 70 ~height: 50 ~packing () in
-
-  (* Controls part *)
-
-  let save_text () =
-    let data = text#get_chars ~start: 0 ~stop: text#length in
-    let key = (date.year, date.mon, date.mday) in
-    Hashtbl.remove schedule key;
-    if data <> "" then
-      (Hashtbl.add schedule ~key ~data;
-       buttons.(date.mday - 1)#set_plan)
-    else buttons.(date.mday - 1)#unset_plan in
-
-  let restore_text () =
-    text#delete_text ~start: 0 ~stop: text#length;
-    try
-      text#insert_text ~pos: 0
-       (Hashtbl.find schedule (date.year, date.mon, date.mday));
-      ()
-    with Not_found -> () in
-
-  let update_date_view () =
-    date_view#set_text (sprintf "%d %s, %d\n"
-                         date.mday mon_name.(date.mon) date.year) in
-  
-  let update_view () =
-    update_calendar calendar buttons;
-    update_date_view ();
-    Array.iteri ~f: (fun i button ->
-      (try
-       Hashtbl.find schedule (date.year, date.mon, i + 1);
-       button#set_plan
-      with Not_found -> button#unset_plan);
-      button#focus_off) buttons;
-    win#set_title (sprintf "Camlendar: %s, %d"
-                    mon_name.(date.mon) date.year) in
-
-  prev#connect#clicked
-    ~callback: (fun () ->
-      save_text ();
-      previous_month ();
-      
-      update_view ();
-      restore_text ();
-      buttons.(0)#focus_on);
-  
-  next#connect#clicked
-    ~callback: (fun () ->
-      save_text ();
-      next_month ();
-      
-      update_view ();
-      restore_text ();
-      buttons.(0)#focus_on);
-  
-  Array.iteri
-    ~f: (fun i button ->
-      button#widget#connect#clicked
-       ~callback: (fun () ->
-         save_text ();
-         buttons.(date.mday - 1)#focus_off;
-
-         button#focus_on;
-         restore_text ();
-         update_date_view ());
-      ())
-    buttons;
-
-  update_view ();
-  buttons.(0)#focus_on;;
-
-GMain.Main.init ();
-print_endline (GtkMain.Main.set_locale ());
-flush stdout;
-create_GUI ();
-GMain.Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/drawing.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/drawing.ml
deleted file mode 100644 (file)
index a4623ba..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/drawing.ml
+++ /dev/null
@@ -1,19 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let window = GWindow.window ~show:true ()
-
-let w = window#misc#window
-let drawing = new GDraw.drawable w
-
-let redraw _ =
-  drawing#polygon ~filled:true
-    [ 10,100; 35,35; 100,10; 165,35; 190,100;
-      165,165; 100,190; 35,165; 10,100 ];
-  false
-
-let _ =
-  window#connect#destroy ~callback:Main.quit;
-  window#event#connect#after#configure ~callback:redraw;
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/editor.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/editor.ml
deleted file mode 100644 (file)
index 5e3da80..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/editor.ml
+++ /dev/null
@@ -1,101 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let file_dialog ~title ~callback ?filename () =
-  let sel =
-    GWindow.file_selection ~title ~modal:true ?filename () in
-  sel#cancel_button#connect#clicked ~callback:sel#destroy;
-  sel#ok_button#connect#clicked ~callback:
-    begin fun () ->
-      let name = sel#get_filename in
-      sel#destroy ();
-      callback name
-    end;
-  sel#show ()
-
-class editor ?packing ?show () = object (self)
-  val text = GEdit.text ~editable:true ?packing ?show ()
-  val mutable filename = None
-
-  method text = text
-
-  method load_file name =
-    try
-      let ic = open_in name in
-      filename <- Some name;
-      text#freeze ();
-      text#delete_text ~start:0 ~stop:text#length;
-      let buf = String.create 1024 and len = ref 0 in
-      while len := input ic ~buf ~pos:0 ~len:1024; !len > 0 do
-       if !len = 1024 then text#insert buf
-       else text#insert (String.sub buf ~pos:0 ~len:!len)
-      done;
-      text#set_point 0;
-      text#thaw ();
-      close_in ic
-    with _ -> ()
-
-  method open_file () = file_dialog ~title:"Open" ~callback:self#load_file ()
-
-  method save_dialog () =
-    file_dialog ~title:"Save" ?filename
-      ~callback:(fun file -> self#output ~file) ()
-
-  method save_file () =
-    match filename with
-      Some file -> self#output ~file
-    | None -> self#save_dialog ()
-
-  method output ~file =
-    try
-      if Sys.file_exists file then Sys.rename ~src:file ~dst:(file ^ "~");
-      let oc = open_out file in
-      output_string oc (text#get_chars ~start:0 ~stop:text#length);
-      close_out oc;
-      filename <- Some file
-    with _ -> prerr_endline "Save failed"
-end
-
-let window = GWindow.window ~width:500 ~height:300 ~title:"editor" ()
-let vbox = GPack.vbox ~packing:window#add ()
-
-let menubar = GMenu.menu_bar ~packing:vbox#pack ()
-let factory = new GMenu.factory menubar
-let accel_group = factory#accel_group
-let file_menu = factory#add_submenu "File"
-let edit_menu = factory#add_submenu "Edit"
-
-let hbox = GPack.hbox ~packing:vbox#add ()
-let editor = new editor ~packing:hbox#add ()
-let scrollbar = GRange.scrollbar `VERTICAL ~packing:hbox#pack ()
-
-open GdkKeysyms
-
-let _ =
-  window#connect#destroy ~callback:Main.quit;
-  let factory = new GMenu.factory file_menu ~accel_group in
-  factory#add_item "Open..." ~key:_O ~callback:editor#open_file;
-  factory#add_item "Save" ~key:_S ~callback:editor#save_file;
-  factory#add_item "Save as..." ~callback:editor#save_dialog;
-  factory#add_separator ();
-  factory#add_item "Quit" ~key:_Q ~callback:window#destroy;
-  let factory = new GMenu.factory edit_menu ~accel_group in
-  factory#add_item "Copy" ~key:_C ~callback:editor#text#copy_clipboard;
-  factory#add_item "Cut" ~key:_X ~callback:editor#text#cut_clipboard;
-  factory#add_item "Paste" ~key:_V ~callback:editor#text#paste_clipboard;
-  factory#add_separator ();
-  factory#add_check_item "Word wrap" ~active:false
-    ~callback:editor#text#set_word_wrap;
-  factory#add_check_item "Read only" ~active:false
-    ~callback:(fun b -> editor#text#set_editable (not b));
-  window#add_accel_group accel_group;
-  editor#text#event#connect#button_press
-    ~callback:(fun ev ->
-      let button = GdkEvent.Button.button ev in
-      if button = 3 then begin
-       file_menu#popup ~button ~time:(GdkEvent.Button.time ev); true
-      end else false);
-  editor#text#set_vadjustment scrollbar#adjustment;
-  window#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/entry.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/entry.ml
deleted file mode 100644 (file)
index 30f3c3d..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/entry.ml
+++ /dev/null
@@ -1,48 +0,0 @@
-(* $Id$ *)
-
-open Printf
-open GMain
-
-let enter_callback entry =
-  printf "Entry contents: %s\n" entry#text;
-  flush stdout
-
-let entry_toggle_editable button entry =
-  entry#set_editable button#active
-
-let entry_toggle_visibility button entry =
-  entry#set_visibility button#active
-
-let main () =
-
-  let window = GWindow.window ~title: "GTK Entry" ~width: 200 ~height: 100 () in
-  window#connect#destroy ~callback:Main.quit;
-
-  let vbox = GPack.vbox ~packing: window#add () in
-
-  let entry = GEdit.entry ~max_length: 50 ~packing: vbox#add () in
-  entry#connect#activate ~callback:(fun () -> enter_callback entry);
-  entry#set_text "Hello";
-  entry#append_text " world";
-  entry#select_region ~start:0 ~stop:entry#text_length;
-
-  let hbox = GPack.hbox ~packing: vbox#add () in
-
-  let check = GButton.check_button ~label: "Editable" ~active: true
-      ~packing: hbox#add () in
-  check#connect#toggled ~callback:(fun () -> entry_toggle_editable check entry);
-
-  let check =
-    GButton.check_button ~label:"Visible" ~active:true ~packing:hbox#add () in
-  check#connect#toggled
-    ~callback:(fun () -> entry_toggle_visibility check entry);
-
-  let button = GButton.button ~label: "Close" ~packing: vbox#add () in
-  button#connect#clicked ~callback:window#destroy;
-  button#grab_default ();
-
-  window#show ();
-
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/events.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/events.ml
deleted file mode 100644 (file)
index 91a9872..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/events.ml
+++ /dev/null
@@ -1,25 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let _ =
-  let window = GWindow.window () in
-  window#connect#destroy ~callback:Main.quit;
-
-  let text = GEdit.text ~editable:true ~packing:window#add () in
-  text#event#connect#button_press ~callback:
-    begin fun ev ->
-      GdkEvent.Button.button ev = 3 &&
-      GdkEvent.get_type ev = `BUTTON_PRESS &&
-      begin
-       let pos = text#position in
-       GdkEvent.Button.set_button ev 1;
-       text#event#send (GdkEvent.coerce ev);
-       Printf.printf "Position is %d.\n" text#position;
-       flush stdout;
-       text#set_position pos;
-       true
-      end
-    end;
-  window#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/fifteen.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/fifteen.ml
deleted file mode 100644 (file)
index efdf51f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/fifteen.ml
+++ /dev/null
@@ -1,97 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GObj
-open GMain
-
-class position ~init_x ~init_y ~min_x ~min_y ~max_x ~max_y = object
-  val mutable x = init_x
-  val mutable y = init_y
-  method current = (x, y)
-  method up ()    = if y > min_y then y <- y-1 else (); (x, y)
-  method down ()  = if y < max_y then y <- y+1 else (); (x, y)
-  method left ()  = if x > min_x then x <- x-1 else (); (x, y)
-  method right () = if x < max_x then x <- x+1 else (); (x, y)
-end
-
-let game_init () = (* generate initial puzzle state *)
-  let rec game_aux acc rest n_invert =
-    let len = List.length rest in
-    if len=0 then
-      if n_invert mod 2 = 0 then
-       acc (* to be solvable, n_invert must be even *)
-      else
-       (List.hd (List.tl acc))::(List.hd acc)::(List.tl (List.tl acc))
-    else begin
-      let rec extract n xs =
-       if (n=0) then (List.hd xs, List.tl xs)
-       else
-         let (ans, ys) = extract (n-1) (List.tl xs) in
-          (ans, List.hd xs :: ys) in
-      let ran = Random.int len in
-      let (elm, rest1) = extract ran rest in
-      let rec count p xs = match xs with
-       [] -> 0
-      |        y :: ys -> let acc = count p ys in
-                if p y then 1+acc else acc
-      in
-      let new_n_invert = count (fun x -> elm > x) acc in
-      game_aux (elm :: acc) rest1 (n_invert+new_n_invert)
-    end in
-  let rec from n = if n=0 then [] else n :: from (n-1) in
-  game_aux [] (from 15) 0
-      
-let _ = Random.init (int_of_float (Sys.time () *. 1000.))
-let window = GWindow.window ()
-let _ = window#connect#destroy ~callback:GMain.Main.quit
-
-let tbl = GPack.table ~rows:4 ~columns:4 ~homogeneous:true ~packing:window#add ()
-let dummy = GMisc.label ~text:"" ~packing:(tbl#attach ~left:3 ~top:3) ()
-let arr = Array.create_matrix ~dimx:4 ~dimy:4 dummy
-let init = game_init ()
-let _ =
-  for i = 0 to 15 do
-    let j = i mod 4  in
-    let k = i/4 in
-    let frame =
-      GBin.frame ~shadow_type:`OUT ~width:32 ~height:32
-       ~packing:(tbl#attach ~left:j ~top:k) () in
-    if i < 15 then
-      arr.(j).(k) <-
-       GMisc.label ~text:(string_of_int (List.nth init i))
-         ~packing:frame#add ()
-  done
-let pos = new position ~init_x:3 ~init_y:3 ~min_x:0 ~min_y:0 ~max_x:3 ~max_y:3
-    
-open GdkKeysyms
-
-let _ =
-  window#event#connect#key_press ~callback:
-    begin fun ev ->
-      let (x0, y0) = pos#current in
-      let wid0 = arr.(x0).(y0) in
-      let key = GdkEvent.Key.keyval ev in
-      if key = _q || key = _Escape then (Main.quit (); exit 0) else
-      let (x1, y1) =
-       if key = _h || key = _Left then 
-          pos#right ()
-       else if key = _j || key = _Down then
-         pos#up ()
-       else if key = _k || key = _Up then
-         pos#down ()
-       else if key = _l || key = _Right then
-         pos#left ()
-       else (x0, y0)
-      in
-      let wid1 = arr.(x1).(y1) in
-      wid0#set_text (wid1#text);
-      wid1#set_text "";
-      true
-    end
-             
-let main () = 
-  window#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/fixed_editor.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/fixed_editor.ml
deleted file mode 100644 (file)
index 1cde124..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/fixed_editor.ml
+++ /dev/null
@@ -1,279 +0,0 @@
-open Gdk  
-open Gtk
-open GObj
-open GMain
-
-let dnd_source_window () =
-  let window = GWindow.window ~position:`MOUSE () in
-  let vbx = GPack.vbox ~border_width:10 ~packing:window#add ()
-  in   
-  let evb = GBin.event_box ~border_width:0 ~packing:vbx#add () in
-  let frm = GBin.frame ~shadow_type:`OUT ~packing:evb#add () in
-  let lbl = GMisc.label ~text:"hello" ~packing:frm#add () in
-  let lbl2 = GMisc.label ~text:"drag from here!" ~packing:vbx#add () in
-  let targets = [ { target = "STRING"; flags = []; info = 0} ] in
-  begin
-    window#show ();
-    evb#drag#source_set targets ~modi:[`BUTTON1] ~actions:[`COPY];
-    evb#drag#connect#data_get ~callback: begin
-      fun _ data ~info ~time:_ ->
-       data#set ~typ:data#target ~format:0 ~data:"hello! "
-    end
-  end
-
-let corner_width  = 7  
-let corner_height = 7
-
-type drag_action_type =
-    GB_DRAG_NONE
-  | GB_MIDDLE
-  | GB_TOP
-  | GB_BOTTOM
-  | GB_LEFT
-  | GB_RIGHT
-  | GB_TOP_LEFT
-  | GB_TOP_RIGHT
-  | GB_BOTTOM_LEFT
-  | GB_BOTTOM_RIGHT
-
-let get_position_in_widget w ~x ~y ~width ~height =
-  if (x <= corner_width) then
-    if (y <= corner_height) then
-      GB_TOP_LEFT
-    else if (y >= height-corner_width) then
-      GB_BOTTOM_LEFT
-    else GB_LEFT
-  else if (x >= width-corner_width) then
-    if (y <= corner_height) then
-      GB_TOP_RIGHT
-    else if (y >= height-corner_width) then
-      GB_BOTTOM_RIGHT
-    else GB_RIGHT
-  else if (y <= corner_height) then
-      GB_TOP
-    else if (y >= height-corner_width) then
-      GB_BOTTOM
-    else GB_MIDDLE
-    
-class drag_info = object
-  val mutable drag_action = GB_DRAG_NONE
-  val mutable drag_offset = (0, 0)
-  val mutable toimen      = (0, 0)
-  val mutable drag_widget = None
-  method drag_action = drag_action
-  method drag_offset = drag_offset
-  method toimen = toimen (* coord. of opposite corner *)
-  method set_drag_widget (w : GObj.widget) = begin
-    match drag_widget with
-      None -> begin
-       GMain.Grab.add w;
-       drag_widget <- Some w;
-       ()
-      end
-    | Some w -> ()
-  end
-  method unset_drag_widget () = begin
-    match drag_widget with
-      Some w -> begin
-       GMain.Grab.remove w;
-       drag_widget <- None;
-       ()
-      end
-    | None -> ()
-  end
-  method set_drag_offset ~x ~y = drag_offset <- (x, y)
-  method set_drag_action (w : Gdk.window) ~x ~y =
-    begin
-      let (x0, y0) = Window.get_position w in
-      let (width, height) = Window.get_size w in
-      drag_action <- get_position_in_widget w ~x ~y ~width ~height;
-      let (x1, y1) = (x0+width, y0+height) in
-      toimen <-
-       match drag_action with
-         GB_TOP_LEFT     -> (x1, y1)
-       | GB_BOTTOM_LEFT  -> (x1, y0)
-       | GB_TOP_RIGHT    -> (x0, y1)
-       | GB_BOTTOM_RIGHT -> (x0, y0)
-       | GB_TOP          -> (x0, y1)
-       | GB_BOTTOM       -> (x0, y0)
-       | GB_LEFT         -> (x1, y0)
-       | GB_RIGHT        -> (x0, y0)
-       |  _              -> (-1, -1) 
-    end
-  method unset_drag_action () = drag_action <- GB_DRAG_NONE
-end
-
-    
-let to_grid g x = x - (x mod g)
-  
-let to_grid2 g (x, y) = (to_grid g x, to_grid g y)
-
-class fix_editor ~width ~height ~packing =
-  let info = new drag_info in
-  let fix = GPack.fixed ~width ~height ~packing () in
-  let _ = fix#misc#realize () in
-  let fix_window = fix#misc#window in
-  let fix_drawing = new GDraw.drawable fix_window in
-
-  object (self)
-    inherit GObj.widget fix#as_widget
-    val mutable grid = 1
-    method set_grid g =
-      if (grid != g) then begin
-       let pix =
-          GDraw.pixmap ~window:fix ~width:g ~height:g ~mask:true () in
-       let c = fix#misc#style#bg `NORMAL in
-       pix#set_foreground (`COLOR c);
-       pix#rectangle ~filled:true ~x:0 ~y:0 ~width:g ~height:g ();
-       pix#set_foreground `BLACK;
-       pix#point ~x:0 ~y:0;
-       Gdk.Window.set_back_pixmap (fix#misc#window) (`PIXMAP pix#pixmap)
-      end;
-      grid <- g
-
-    method new_child ~name ~x ~y ~width ~height ~callback =
-      let evb = GBin.event_box ~border_width:0 ~packing:fix#add () in
-      let lbl = GMisc.label ~text:name ~width ~height ~packing:evb#add () in
-      evb#misc#realize ();
-      evb#misc#set_geometry ~x ~y ();
-      self#connect_signals ~ebox:evb ~widget:lbl#coerce ~callback;
-      ()
-
-    method private connect_signals
-      ~ebox:(ebox : GBin.event_box) ~widget:(widget : widget) ~callback:cbfun =
-      let drawing = new GDraw.drawable (ebox#misc#window) in
-      let draw_id = ref None in
-      let exps_id = ref None in
-      let on_paint _ =
-       let (width, height) = Window.get_size (ebox#misc#window) in begin
-         drawing#set_foreground `BLACK;
-         drawing#rectangle ~filled:true ~x:0 ~y:0
-           ~width:corner_width ~height:corner_height ();
-         drawing#rectangle ~filled:true ~x:(width-corner_width) ~y:0
-           ~width:corner_width ~height:corner_height ();
-         drawing#rectangle ~filled:true
-           ~x:(width-corner_width)
-           ~y:(height-corner_height)
-           ~width:corner_width ~height:corner_height ();
-         drawing#rectangle ~filled:true
-           ~x:0
-           ~y:(height-corner_height)
-           ~width:corner_width ~height:corner_height ();
-         drawing#rectangle ~filled:false
-           ~x:0 ~y:0 ~width:(width-1) ~height:(height-1) ();
-       end
-      in
-      ebox#event#connect#button_press ~callback:
-       begin fun ev -> 
-         let bx = int_of_float (GdkEvent.Button.x ev) in
-         let by = int_of_float (GdkEvent.Button.y ev) in
-         info#set_drag_action (ebox#misc#window) ~x:bx ~y:by;
-         info#set_drag_offset ~x:bx ~y:by;
-         true
-       end;
-      ebox#event#connect#motion_notify ~callback:
-       begin fun ev ->
-         info#set_drag_widget ebox#coerce;
-         let action = info#drag_action in
-         let (mx, my) = fix#misc#pointer in
-         let (ox, oy) = info#drag_offset in
-         begin match action with
-           GB_MIDDLE ->
-             let (nx, ny) = to_grid2 grid (mx-ox, my-oy) in
-             ebox#misc#set_geometry ~x:nx ~y:ny ();
-             if cbfun ~x:nx ~y:ny ~width:(-2) ~height:(-2) then
-               ()
-             else (* should we undo ? *) ()
-         | GB_DRAG_NONE -> () (* do nothing *)
-         | GB_TOP_LEFT | GB_BOTTOM_LEFT
-         | GB_TOP_RIGHT | GB_BOTTOM_RIGHT ->
-             let (toi_x, toi_y) =  info#toimen in
-             let (mx, my) = to_grid2 grid (mx, my) in
-             let (lx, rx) =
-               if mx<toi_x then (mx, toi_x) else (toi_x, mx) in
-             let (ty, by) =
-               if my<toi_y then (my, toi_y) else (toi_y, my) in
-             let (w, h) = (rx-lx, by-ty) in
-             ebox#misc#set_geometry ~x:lx ~y:ty ~width:w ~height:h ();
-             if cbfun ~x:lx ~y:ty ~width:w ~height:h then
-               ()
-             else (* should we undo ? *) ()
-         | GB_TOP | GB_BOTTOM ->
-             let (lx, toi_y) = info#toimen in
-             let my = to_grid grid my in
-             let (ty, by) = if my<toi_y then (my, toi_y) else (toi_y, my) in
-             let h = by-ty in
-             ebox#misc#set_geometry ~y:ty ~height:h ();
-             if cbfun ~x:lx ~y:ty ~width:(-2) ~height:h then
-               ()
-             else (* should we undo ? *) ()
-         | GB_LEFT | GB_RIGHT ->
-             let (toi_x, ty) = info#toimen in
-             let mx = to_grid grid mx in
-             let (lx, rx) = if mx<toi_x then (mx, toi_x) else (toi_x, mx) in
-             let w = rx-lx in 
-             ebox#misc#set_geometry ~x:lx ~width:w ();
-             if cbfun ~x:lx ~y:ty ~width:w ~height:(-2) then
-               ()
-             else (* should we undo ? *) ()
-         end;
-         true
-       end;
-      ebox#event#connect#button_release ~callback:
-       begin fun ev -> 
-         info#unset_drag_action ();
-         info#unset_drag_widget ();
-         true
-       end;
-      exps_id := Some (ebox#event#connect#after#expose
-                         ~callback:(fun _ -> on_paint(); false));
-      draw_id := Some (ebox#misc#connect#draw ~callback:on_paint);
-      ()
-    initializer
-      fix#drag#dest_set ~actions:[`COPY]
-       [ { target = "STRING"; flags = []; info = 0} ];
-      fix#drag#connect#data_received ~callback: begin
-       fun context ~x ~y data ~info ~time ->
-         let name = data#data in
-         let _ = self#new_child ~name ~x ~y ~width:32 ~height:32
-             ~callback:(fun ~x ~y ~width ~height -> true) in
-(*               Printf.printf "%s %d %d\n" (data#data) x y;
-                 flush stdout; *)
-         context#finish ~success:true ~del:false ~time;
-      end;
-      ()
-  end
-    
-(* the following is for test only *)
-let window1 () =    
-  let window = GWindow.window () in
-  let _ = window#connect#destroy ~callback: Main.quit in
-  let fix = new fix_editor ~width:640 ~height:480 ~packing:window#add in
-  fix#set_grid 5;
-  let setter = fix#new_child ~name:"hello" ~x:100 ~y:200 ~width:32 ~height:32
-      ~callback:begin fun ~x ~y ~width ~height ->
-       (* Printf.printf "name=%s, x=%d, y=%d, width=%d, height=%d\n"
-                     "hello" x y width height;
-       flush stdout; *)
-       true
-      end in
-   window#show ();
-  ()
-
-
-    
-let main () =
-  window1 ();
-  dnd_source_window ();
-  Main.main ()
-  
-let _ = main ()
-
-(* Todo
-   
-   change mouse cursor
-   resize fixed itself
-   remove_child
-   (drag and) drop
-   
-*)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/fixpoint.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/fixpoint.ml
deleted file mode 100644 (file)
index c33b74d..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/fixpoint.ml
+++ /dev/null
@@ -1,30 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let rec fix ~f ~eq x =
-  let x' = f x in
-  if eq x x' then x
-  else fix ~f ~eq x'
-
-let eq_float x y = abs_float (x -. y) < 1e-13
-
-let _ =
-  let top = GWindow.window () in
-  top#connect#destroy ~callback:Main.quit;
-  let vbox = GPack.vbox ~packing: top#add () in
-  let entry = GEdit.entry ~max_length: 20 ~packing: vbox#add () in
-  let tips = GData.tooltips () in
-  tips#set_tip entry#coerce ~text:"Initial value for fix-point";
-  let result =
-    GEdit.entry ~max_length: 20 ~editable: false ~packing: vbox#add () in
-
-  entry#connect#activate ~callback:
-    begin fun () ->
-      let x = try float_of_string entry#text with _ -> 0.0 in
-      entry#set_text (string_of_float (cos x));
-      let res = fix ~f:cos ~eq:eq_float x in
-      result#set_text (string_of_float res)
-    end;
-  top#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/hello.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/hello.ml
deleted file mode 100644 (file)
index 15ede9a..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/hello.ml
+++ /dev/null
@@ -1,18 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let window = GWindow.window ~border_width: 10 ()
-
-let button = GButton.button ~label:"Hello World" ~packing: window#add ()
-
-let main () =
-  window#event#connect#delete 
-    ~callback:(fun _ -> prerr_endline "Delete event occured"; true);
-  window#connect#destroy ~callback:Main.quit;
-  button#connect#clicked ~callback:(fun () -> prerr_endline "Hello World");
-  button#connect#clicked ~callback:window#destroy;
-  window#show ();
-  Main.main ()
-
-let _ = Printexc.print main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/image.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/image.ml
deleted file mode 100644 (file)
index faf82cf..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/image.ml
+++ /dev/null
@@ -1,67 +0,0 @@
-(* $Id$ *)
-
-open GMain
-open Gdk
-
-(* load image *)
-let buf = String.create (256*256*3)
-let ic = open_in_bin "image256x256.rgb"
-let _ = 
-  really_input ic ~buf:buf ~pos:0 ~len:(256*256*3);
-  close_in ic
-
-let rgb_at x y =
-  let offset = (y * 256 + x) * 3 in
-  (int_of_char buf.[offset  ],
-   int_of_char buf.[offset+1],
-   int_of_char buf.[offset+2])
-
-(* let id = Thread.create GtkThread.main () *)
-
-(* Choose a visual appropriate for RGB *)
-let _ =
-  Gdk.Rgb.init ();
-  GtkBase.Widget.set_default_visual (Gdk.Rgb.get_visual ());
-  GtkBase.Widget.set_default_colormap (Gdk.Rgb.get_cmap ())
-
-(* We need show: true because of the need of visual *)
-let window = GWindow.window ~show:true ~width: 256 ~height: 256 ()
-
-let visual = window#misc#visual
-
-let color_create = Truecolor.color_creator visual
-
-let w = window#misc#window
-let drawing = new GDraw.drawable w
-
-let _ =
-  window#connect#destroy ~callback:Main.quit;
-
-  let image =
-    Image.create ~kind: `FASTEST ~visual: visual ~width: 256 ~height: 256
-  in
-
-  let draw () =
-    for x = 0 to 255 do
-      for y = 0 to 255 do
-        let r,g,b = rgb_at x y in
-        Image.put_pixel image ~x: x ~y: y 
-          ~pixel: (color_create ~red: (r * 256) ~green: (g * 256) ~blue: (b * 256))
-      done
-    done 
-  in
- 
-  let display () =
-    drawing#image image ~xsrc:0 ~ysrc:0 ~xdest:0 ~ydest:0 ~width:256 ~height:256
-  in
-
-  draw (); 
-
-  window#event#connect#after#expose ~callback:
-    begin fun _ ->
-      display (); false
-    end;
-  (* Thread.join id *)
-
-  window#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/image256x256.rgb b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/image256x256.rgb
deleted file mode 100644 (file)
index 25d4995..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/image256x256.rgb
+++ /dev/null
@@ -1,19 +0,0 @@
-\94·â\95º�\9b±�\93­�\8f\9fÒ\9f¤Ã\9f¦Î¤¦Ûª¤ÎªªÚ¯\9eפ\95�¡\99Ô±¬â­©Þ®§ç\9e®�\9a¶É\94¸Ë¡¶¼¥®Å¢³Ó ´Îª½Æ¨¼Ó¬·Ó¶´�µÀÆ´°¼¬¾À·³ÄÄö¾½ÂÇÀ¼¿½·ÆĹÑÆ�Â�·ÃÌÅ�ÉÙ¼�Ó¿Ê�Æ�ÇÄã�Õß�ØÕ�ÎÜÌÇãÑÑâÙÔ×ÚÈâÈÔÜÄÌØÈÒÒÇ�×ÃÅÛ��áÇËà ÊËêËÚð½×ïÅáíËÞõ¼ñø¿âã·Úæ¾ÜÙÈáâÅÜÙÃÖ×®Ö̳ÞȱØÉ·�Ô²ÑØ«ÑÑ¡Î�\8eÒÜ\97ÔØ\8cà �\91ÖÊ\8f�¼\83ɼ\88μ\88��\90ÔËzãÇwØÉ\80ÚÆ{âÎ\7fçÓ\89�×\85á×\82ÖÜ\7fÓÞ\8aÙÔ\93ØØ\8cÓØ\82Îá\86ÎÒ|Ûà sÓÛzÞ×ráÙyà Ôs×Üi×ØgäÆkåÑoÜ�_á�dà ÈR߸C׸?Ö´GÙ°WÚ°Kç¸EÚ·YÜÊ]ÞÂOÕ¿;Ù½@ÞÃHâË9íÇ<éË@ðÇ8éÉAè´@æ·AòÌ9�Ä7é´@ܲ?Þ½Eä¯CÙ²RάL�¯PÒ¡R�©]̨RÀ¿UÀ²XÉ©FÌ´J�±PŹFË�JÄ¿FÆÄQȼDÒ°OÔ­DدHÒ³PѵPɶY�Ä^Ë¿WÙ¬PÎ\9e[ѧWتOˬW�¨Y�\98ZÎ\9ddØ£ZÌ·X�°EŹPε\�®N½»T½³Y´ÃY¶¸N¹¶D°³S±¨Y«¨Mª¬U¦¬[§®@ª®T ¯M¥¢M£\9eZ \9cG¬\91E£\91K¥\8fY¢\8cK·\8f[¨\85S¦\97E\9e\90N§\90`¡\96R\9d\98X\9f\83[\91\86Q\9a\82S\9a\91R\99\87U§\80W©\80T\9c\87J¢~Q\9c~C\96tO\94iL\95rS\94tN©lPªoJ¢zT¯pB¥qI\9e[M lC«gC¤lD±cC³YT�SI¸OQ´IBÀIE»ZK»OE¸QH°WU¬TK«QG¹VK®TGºV?¬MD¶Z[¾MGÂUK»ZK²QO½NX¸JZ�HP³KV½J[¼ESÀF]Ä@WÆ;VÆ;\\8f·à \9a´Ù\97«Ò\94¬Õ\99 Î£¥Ê¥±Ë¡­Ø¤«Ñª«Ù¬¤Ò¦\9bѯ\9a�¬ ×«¦×¦§Û\9b«Ê\9e¸Å\97®Æ ²À§¾Èª¹Î±¾ÅªÀÆ£Æ˨��¸¹Ç½¼½¾·¸®²¼½µ»½Â²¼È³ÄÄÀ�·ÂÌ»ÀǽÀÂË¿�ÀÃ�ÃÑÌ��Å�ÉÈÞËËÞÀÓßË�ØÌÇäοáÔÄÕÖÒÚÑ��ÎÑÓËËÑË�ÑÒÆÖÇÄØËÓÙÄÑÞÊÙèÉÛò½á÷ÃÛîÄãö½ëõ¶èé´Úá�å�¸áá¾ÜØ»ÞׯÓ˳ÒƸÊɳ�Ñ°�È£Ç�\9dÆÖ\99È×\8fÎÆ\96ÙÅ\8cÔÂ\95ÌÅ\8f�Ê\96�¾\8fÌÈ\8aÚ�\83äÉ~�Æx�Æzè×\83ãÖ~ßà \85ÙÜ\81Ùß\88ÑÛ\8cÑË\8eÎ×\91�×\85ÎÕxÓØyÙ�\7fÙÔzÞØnßÚmÔânÙØmÙÑfèÓpÚÕm�ÉjèÂ_ã¾Oç·Oä¹IزUÓ¯VÙºQâ»Kß½MÖÈVÓ�P×À@à �>ä¾=ðÀ;ñÌEîÒ8íÌ4êË@ïºDêÀCëÄ4íÄ9�À8ܹ?æ´B�«R�§PѲIË®SØ®QÔ¤\�µQõU�¯L�«PβDĵDƶ?ηHÒ±RɺKDZR�·K̼G�¯HÒ¶HÌ®V׿\ÖÀRÛ±XѨU�\9f[Æ OÀ¤YɬTÒ\9dSÖ\9fSÛ§PÕ®ZÔ´WƱIʺLβZÉ»bÅ´Z»¸^±¹U¹ªHº¬D±ªAª¨I±­U°®Q­©Q \9cG¨¡Q¦¤J¤\97G\9d\98N£\8bO¦\8bQ£\8eO \8aP°\84W®\8cQ¬\99Y¦\95O¨\92N¦\94\\9a\96Z\9b\94P \8dR\99\80S\9c\81Y\9b\83U¢\80X¥\87R\9bzL zW¤x\¡\7fP\9cqY\9amR\9boP\9brS©oN©lI\9fvG¦oL\9faW\99]T¨fL©jD³n=¶bD²\C»^I´OR½HJ¸HH¿RFÆJG¼EV²SI«XH©TL´LO¾MBºU9ÀU@·VO¿MAÄUAÃVI·ML¼LV³H\³GZ·PTÂKZ¼IUÈMTÈ@Y½ARº9V\93°Ù¤ºÙ\91«Õ\8b©×\99\9d�\9f¤�\9f¦Ñ®´Õ²¦Î¨¤�´¤Ô£¥�«£Ø©«Ø±¢Û¯¨�¬¹Ô¢·É¢»Å«³Ã\9bº�¡·�¦ÂÌ©ÄĨ½À©É�°Èɶ»¸³¼¸½º³³¼°¶Ã²¼Â¸¸Î»ËÇÿĺ�ÅÄÃÎ�ÂÀËÈÇ�ÒÃÈÌÌÄÔ×¾ÇÑÀÓÛÌÊ×ÔÃ�Ñ¿ÙÑÀà ÓÊÙÎ×ÒÊÔÖÎ�ÚÎÑÔÜÈ�É�ÓÓÔÕÔ×èÈà æ�áêÉßô»ÚóÂÞî¶êõµçñ¸åëÅÚé´à áÀá�³ÛÛ©äÙ«ÒÇ´Ôη×ĹÉ΢�Å\9eÓÑ\94ØÎ\93�Ñ\95à �\8cÔÂ\8aÒÂ\88ÓÆ\82ÔÀ\87ÙÄ\82ßÈzÞÉ|äÌnÛØwíà uèÚuÕêzÜâ\86ßÒ\86×Ñ\83Ñ×\91ÙÓ\89�Î\8aÓ�\87ÓÖ\83ÜÔsåÚ\80ß�zÚÞjà �qæâ}êÛlè�uéÊq�È[áÅ^à ÊLÞÄIÞÂLÕ¿Tà ­RÔ»RæÉXØ¿X×ÄIãÀFåÃJå�JíÈIíËD÷ÉHõÈ:ëÕ9ôÂ9ö¿Fä½7îÇ7á·2áÆ?ç¾FæªKà ªWÞ TÒ­VÒ­LÎ\9e]Ö\9d^Ò¨Pö^�§O̳T�¶K�´MʼBѼIÖ»Kʱ?̯JÕ¯?Ë­FÚ¨Kׯ?Ú¦BÜ´N�²Sß°K΢I�¥N�ªNÆ®OÒ¯JÕ¦LÙ¨I�­NѱRŶT·RÄ´O¾º^ǺS�²Zµ»Q¯²O·©@¿¡G¼¯9°¤?¨ª<²­F¯¥A² E«\96B¢ E®\95@¨\9aQ¨\89R\9d\8bN©\95G¡\91K¥\87Q®\92P°\8aD­\8fN¨\90K¥\8fX\99\8cU \97N\9b\93Y\97\8a^ \89`£\8f_ \90X\9c\86\\9f\81Y\9c\87Z£\83M\93zV\99}U\9cwZ\98iM\92jR¢lU dJ qV¡kP£]L\93W_£`W iLª\M´YT³\O´PQ²RSÂJJ¹DEÂGD·MT·EI²FU¦[O¤GR­BN±MHºJCºZ<°_CÄ]<ÊNBÇKE�TK¿O[¶N\ÃLMÂGOÃGPÃDWÇJLË:YÄ8Pº4\\98²Þ\9d³�\99²Ô\92¢�\9aªÙ¡ Ûª¯�­±Øµ©Ì³£�·«Ñ®¦Ó¶¥Ù´©Ô±ºÈ±¹Ë®¸É±¶Å¨¯�¦¹Ë\9d¶�\9e�Å¡ºÆ¢»Ä¬ÂħÇÆ«Ì»¸¿¶½»¼½¾³º½³´Â³µÌ¹»ÈµÂÑÀ¿Ì¹�À·ÎĹ�¼�ÓÅ�×Å�ÔËÌÒ�Ã�ÈÄËÃÔÂÌÖÄËÖÅÛ×ÌÙ�Î�Ñ�ÙÌÉÑ��ÚÛ�××��ËÈÒ��×ÔÛç�ÖðÂ�éÃáî�áñ·Úì·áëµìè¾ìè½ãæ¸ãÛ´ÞÔµáÛ¯�ÔªÜ�¯ØȵÖÆ°ÎÀ´ÒȨá̦ÞÄ\92�Î\8b×Ê\8b��\92�Ë\8aÖÅ\85ÕÇ\7f�ÒsØÒpæØqä×tåÑtá×vßäuÙâuÕÚnßÕwÒÚ\81ÔÑ\86ÒÌ\8bà Ì\80ä×\82ÜÑ\80å�\81à Ówæ�{âÕvâ�|ìÚ{ïßyéÛoÞÜbâÔYêË\à ÅWá¿TÛÀU�¶SÞ»NÜÃHÞÆS×ÉVÚ�IáÂPê¹EåÆ@ëÆHõÈN÷ÅBíËHò�CêÓ?íÆCéÊ=å¼9æ¹5ã»Bæ°IÞ®NÔ«\Ó¤YÚ \Ó§UÌ®YΣQÒ¡^ɪ]ά_ëXŲPÉ·J�·@�ºDÖ³HÒ¸DÌ­>̬A�®:׫AÓ­7�¦;ÚµGÙ³JÜ®RØ­I�¬RÇ­RÒ«JÕ²HÒ²SÔ¨N�«KÖ«MѸWÄ·P¼ÃV¼ÄY·ÇO¾¾PĽN¸µF³­<³¡?­©:·¦9·¡:±\9e=µ\98Aº¢7µ\936¯\929´\93B§\8aH¢\8aG \8cE§\87> \92E¦\94Iª\94@¦\92=¬\90C¡\94Q\9e\94X\92\8cW\94\93W\95\8fT\99\84_¤\8e]¤\91b£\8bd\9e\8bW£\88O \89O\9e\8aS\93zP\96\83P\93zQ\94sS\97jJ\8fsS\93lV\9bhW\9c\Y\97b\\9bWY\95SY\9d]R¨RT¯RU®PT´MM¶KN½DJ½GMÄFL¶MN®HF¥KOªMU¯DG§EI¤GG®NCµMI·Y=´S@¾QD¼QNÉTUÅNZÅSUÀTXÀCJÀ>IÉCPÊIYÊAQ�4\¿.X\9e·Û ¶à \92³à \97ªÎ¡¤Ö¥¦Ó¢²Ô±¦Ó¯©Õ©°�¢­Ô©®Õ¥£Ó§¦Õ«±Ì¯¸Ã¯»Å°ÀǬ»Ä¥®¿¦¶½¬À¾¥´É¨º½¡½Â¬Éƶ¾½ÄË®¼º­ºÊ¶»Ã´µ¿²¾¸°¹Æ·¿Ê¬¼Ë¶ÄȮøÓü˾ÇÔ�ÌÜÅÅÊÊÂÃÃÆÇ�Ê�ÆÒËËÒÊ�ØÂØÌËÖÒ�ÛÒÀÛËÊ��ÂÈÕÎÚÑÎÞÃ�ÛÌÞâÌ�çÊÙèËØñ¿ãï®ãò³à ë½äá¿Þí¿ßß·äÙ±ßÙµéβ�Ò³ê̲ÞÄ­Ò�­ÑË\9fÙ�¥ØÆ\9fÙÄ\92ÞÂ\95�Ò\8bÜÓ\88��\90ÖÆ\89ÑÊ}�Ö\7fÜà qÕßtÞÙsèà |à ä|åÙt�è}à ár×âvÑÚ}Ú×~ÓÔ\83à Ö\81ÞÓ}Üà \88ÔÖ}â×qá×oßÓpíâ{èãzêáwïÛlçÓaÜÖaÚÓWÒÊdÞÃ`Ó¾_áÅRãºKÖ·Kæ·UÛµGéÇGæ´Hã¹Iä¿CãÂLîÃIéÊEçÉMíÑCéÂ@èÈJí½A�ÅDâ�<ç±JåºBÚ©DÖ²OÚ­PÞ¬[Þ«O�¦SɱQÌ°Z¿¨gÀ§UDzYDzRɲKʹPÑ¿?×·?ر7�¸?�¡@�¥?�«AÕ\9e@Ôª4Õ­Iß­HÖ·CÌ´L�¦QÆ®[ȪVƪF�\9cGʧIÓ\9eA�¨HõM¿¸KÀ¶NɳMŶQ»ÄB�·?²µB¬­=ª¨<² ;µ£2°¤<¢:¼¥=¼\9dA³\9c;§\97F°\8dC³\96N \87L©\95D\9e\8bE¡\8aF«\96;´\915©\92G¦\97O¥\98K\97\8dU\94\94W\97\93R\90\92`\97\83[\98\8f_\9e\91b\8f\93]\9a\99M\9c\86W\9f\8aT\91\88U\91yW\9dtM\90yP¡rK\9cmN£aR¡^Q\96fV `Y\9aZW\94Z]¤]Q©cL¨TU´QL·MW°QT³OF²OS³UK¿OX¼ET°JU¸HZ®JW´FY¬<S«BR­KI·F<½RJ²YHÀRQ´KOÇOV¼KKÎSTÉLN½>N�=F�:T�BTÌ;Z�6[Ê4Y\91Â×\98¼Þ\9d±ä\98¦Û\97«ß\9a°Ö¢´Õ£©Û¡µÙ¢µÒ£´�¥¨Ë«³Ñ¡°Ó¬¸Ó·¼Ç¯·Ä¡¼Ì\9b²È\9d´Ä©±¿¨¿¹°·º©³Æ³¼º«Æµ»Å­Ãȱ»Ê«¼Æ«½ºµ³¸¶¼�²´½³Ä®ȿ¬¾Ê±ÄÆ·�º¹É¾ÌÖÊÒ×�ÆËØ¿ÉÎÄØ�ÅÕÅÎÕÆØÌÌÑ��ØÆÙ�ÄÞÆÇÕÂÑÌÅ�ÊÕÌ×ÎÃÜÀÔß¾Ôà ÌÙë�ÒíÉÜî¹Úã±âç¸�íµåä´à ã¸êá¬èß«ïÖªéÌ«à ѧç�©äʨÙÆ\9bÚÄ\98çË¡à � à É\91ãÎ\92Ù�\94ÓÔ\9b�Ë\91�Ñ\8dÓÒ\83Òá\83ÕÞ\7fÛæ\87ÞÜ\7fØá\80ÚázÞßpßìv×ëwÙ�\85Üá\87ÓÕ~Õ×\80ÒÕ{ÔÛ\88Öç\87ÜîyÖç{åé\82æà xà äyà ÞyçãyïÚqìÕnßÔlÔÈdѾcÕ¶hÔ»^Û»XÖ»SÙ¾XܱLä²Jë¿Lì´Eå¹Hà ºMâÌMäËQç�Iñ�PìÑHäÄMìÃAæ�>ãÂAà ÄMà ¸Hå­LÙ­?à ´RÕ¯XÓ®UÙ¬VÛ¦c�®_˹`�µc̳`ѨKʪD�¸IÔ·DǵIʳI�¶:³C¢JÅ¡RÒ£IÕ¦Eʨ=ʬLÖ¯QѪCÆ®FÆ­DѧRÄ¥IÄ\9fLÄ\99KÂ\9a<̧CÆ­;êAɯ9ʨ7ƲF¾·MþEÀº?¶µ4º°3±§1±\9f7±\9c.·\91/Â\972´\9f<¶\9d:±\9a=°\8cF¯\95J´\95D¤\9a:¤\90<¦\93?£\8a?¦\883®\856µ\85Eª\91I©\98G\9d\8eN\96\94X\99\8cU\95\84P\9b\88Z\93\8dY\91\83S\8f\8fK\8a\95O\8e\94F\9b\8fM\96\84L\91zY\92yZ\9dyU\9eoW\9feW¤ZR\9f]M\9aiF\94dI\99TR\99Q[\9bRZ¦XP®^LªXM§[TµTJ±MS²UR¯\XµYW±Mb½H\¸O^µMW°?\­?R´CM¹EG¸DD¸OH¾QW´JW±PO·KWÆHNÈLNÌHH¾FSÇJWÇ@O�1`¼/`Â6UÌ,P\92Æá\95Èà  ¿×\9a¸Ù¡¸Ú\99´ä¥²�¡©Ú©³Î¢¼Ò\9b³�\9e¨�¡¯�¬´�¦½Ç®À˧ºÊ\9d°¿£µ¹ µ¼\9d¼½©¾½ª»Å³¯»°Æ²¬À¸À¿©»¿´Ã¿®¿À©¯¼±ªµ©³Ä¤¹Ã©¶»ªÈĢ¹¯¿½§Ì¿²Æ½¼ÖÉÊÜ�Å�ÓÆÎ�¹�ÅÃÞÎÃËÌÈÉ�ÎÇÌÉÅÇ�ÉÈÓÓÒ¿ÇØÌÒ��ÒØ�Ç�ÄÔÙÇÚÖÉÛãÀÙâÀÕÙÂØà ½×è¾ßë½ê�µ�Ò¹äÛ´ëà ®éÓªäÄ°ìɱèȲáѧé�\99à È£îÇ\98åÖ\9eæÖ\8eæ×\93ÓÒ\90�Ó\93ÉÑ\8bÔË\8bÒØ\8fä�\8açÚ\85�×\82êç\83çâyëç{äé\7fäæuäã|ÙÛ\82Þâ~�Þz×ã\89Ñáw��\84Õå}ÒæwÕçsÛêuãåxâà pÜæsÞÖnîÕjç×mà ÎfáÑ_˾cÔ¼eÙ·^ܳ`Ô³Qã¶QܶNæµTå�Rè½Uõ½Fë�JêÒLðÉKòÖTòÌAáËLãÈDèÄJéÆHãÄ@à ÇKÞ´Kè²Hâ´CÖªI�°PصTß­V�µZÉ©d�¶`Ĺ`̳^˦SħTβN³NÀ©JÊ®D̸E�¢HÆ\9f>É«>É«L�§@¾ @�«AÖ«DÔ·H�¸OÊ­@Ò£K�¡D˨EÇ\969Ä\9b7Ǫ?­8�¥>Dz1ǵ:�´;º¼Cº¹>�²@²¾,µµ5·´'·¤/Ã\9d4¼\9b8 /µ\97,´\983°\9cA¶\88Eº\94K¹\9a;µ\97E¦\949¨\89B¥\87;¤\83>²\847¨\90;¯\91Qª\89E\9d\99P¥\92W£\8aV\99\83T\99\8bV\8f\87V\94|Y\88\91X\87\8eW\8f\91Y\92\89L\97\8dY\98wb\9at\\92uS\95jW§mW\95eT¢dS\8fXU\99cA\91aF\9bSH¥VV¨JM£LM³WN¯XNµK\µJKªRU¨WN»_T±]O¸LY·GVµSK½JP±HD·AH¼?E·@H¯MV°JO»TR¿JYºFN·GYËKVÇ?WÂ:ZÇFNÊ@\Ì>Z�/ZÉ4TÑ4Q\90ÄÞ\90Âã\90»é\9e¿ã«ÄÚ©¾à ©¬Ö§ª�§¦Ô ²Ö\9e©Ó£°Ó¤­Êª³Â­®Â¬´Ã¡µÄ¤±¶¨«¼©³»«¾Å¥�À©Å´­»´®½¹¸È­·Å§ºÄª±Ì¢²Ê\9e´¼\9a²½§³Ä¡°¼¡ºÃ\9f�¾§¿½­Ç¿¦Æ½®�¾¸�dzÙʾ�ÑÀÕ�¸�Ë�ÖÉÈÙÒÅÎÉÉÑÈÕÒÃ�Ë�ÌÔÎÉÙÑËÒ���ÑÅËÓÈÑÛÀØÜÃÞã¸Ùà ½à ØÀÚÖ�áâ¶ßÞºáÓ½éÒºìÓ±ìÑ®èÔ®ìǦöÊ®ðÒ®õΩíÉ¡öâð�\92öË\99î×\99ã�\99ØÒ\8eÎË\90ÓÕ\90ÜØ\99Û�\93ìç\90íá\81çè\87ìâ\80ðå|ôä\83èá\7féè~à éz�ßyÕØ}Îà \87Çë\82�å\80�æ|Øëzæå}åà oâèqìãsíápáßoéÜgê�iâËfãÄZß�UÖÊ_ÜÂbÔ¿]Û½\ÞºXå»Zß�Rê·[ð·Xí¼Q÷¾QóÉNî�WêÈTô�QåÚAçÓBåÑDðÌLï�Lí�Hç¿?ê�D�¹<à ¯?å²<æ°Dè·N�·Yà ¶YÓ§`ʲcƬa̵R­QůLƲG�©DÊ©F¼²K»©D½¨9»¢;º­D§CÈ¥DÀ¨@Å¥A�±F�³>Ò´FÑ·BÈ©Cë>Ǥ5ʦ8Ä\9e<º¦@¼®7©5Ç­7õ,¿®0¸¸5¸°6º¯.²¹-¶µ/¼°+¹ª/Å\9c,¾\9f'Ã\9b2¿ 6¸\982°\98A·\90B¼\95=¹\92>¬\945¯\8a;«\8f6¨\8bB©\85Bµ\86A´\8cE´\8dH°\8dG¨\9aR¢\99R¥\91N¡\8dH\9f\89N\99\82R\8f\86Z\84\8aS\88\8dW\90\95b\99\8f[\9f\91U\99\85Y\94{\\93zW\9fnN\9dhT\9di[\95_T\92`G\97\I\9b]G\99VF\9bSG§MR¬P\³K[¯EX¬I\¯DV¦HS°M`µZ[½RM³[J­NPµINµLD¾AF²@E³BOµ=O¬>Z¨L^²L[±DX½JQºNTÃHU�@P¼>ZÃE`ÆC`È=^�4ZÊ)`Î+[\9d¹å\94Ã�\92¸Ø\9e´â\99¹ß«·�§­�­¬Õ©­�\9c®Î\99·Ú¦¬�\9d«Î£¯�¡²É´µÄ¬­º©¸½¥¬Ä©»µ ¿À\9e¶²§²® »´±Ã±±Ä³³¼¦¼½«´Ä¤²�\99¨½¤«¿¦¨�­²�¡¿Ä£¼¾£º³¶Î·®Å»»Ò¾ÂÕ»»ÚÉÀ�Ⱦ��­ÓÌÀÛ�ÈÑÆ»ËÀÈÕÊÊ��¿Ê�¿×Ù�Ñ�ÎÈ×ÎÒÊÉ�ÙÄÅÙ¸Ñ߸Ëå½Ûà ¸�á¼Ôà ÈÕÖµÔî¶à ÙµëÉ»ä�·ïÌ«å�°î�«òѦ÷θëË®ñÉ\9fðÆ\99÷À\98é�\99çÜ\8cÞ�\8eÖÒ\8dÞ�\88ÑÕ\87ÖÌ\84ÞÜ\85ÞÒ\8bêÞ\80à Úwæè{äê\86ñî\86ææ|ÞÙ\84ÛÙxåæ\88ÜÜ\82�æ\85×é\87Çâ\86Ùè{Óò{Þéx×ãvÞâjîáiéånÙÛiÛØeßØoæËkßÊ]ÖÒ[ÚÅgÛÈcѶW×¼WÕ»`ã¶Ué¾Rì¾NéµTì¾Uð�MúÇ^ï�`öÆSïÑMìÆBóËKó�@îÎCôÉEë¿Gç¾Må¸EÞÃ@ܳ>ä°Háµ<Ù®EÙº\Ó±`Ô­YÔ«^È¥eÉ¡a� SƦQ»·C¬HÇ\9eG½«G°£<·¡D¿\9d?¾¤9­C¾¬H»¤E»­<ŪJŬ>ų=Ê©KȬC¯A¸¢2¾ <Ç\996¾¥5Ŷ5�±:Ť8˧1È­2½¤:¯§9´«0³´*÷$¸¸&¹¤.Â\9a)É£1Ê\998»\9f=·\96<¿\9cD¹\9aH­\8b@ª\8eC«\82>¯\84H¢\829«\8a>«\89I¯}F®\91H³\8eL¤\96F­\9bU\9d\9aP¢\8bN\92\90U\99\84H\8f\8dR\8b\85\\8f\92Q\86\8fO\90\93Y\93\87\\9a\80e\93\7fd\9c}W\9cpU\9dnb¨t_\9bo_\9cZX\97[[\98`P\9bUI\99PI¤KQ¦HZ¦U_¬Dd¨JY¦IS¦U`£UU¦W^©S[³YV°XH¯\F¨HJ¯CC¶@@°:H·?L±@PµJS­EO¯KYµH_³ATÄB]ºLZÀDZ³>VÄ:ZÀB\�1UÇ3SÑ(S�2Y\90¯Ò\95¹�\92·�\9fµÞ¥±à \9f¯Ñ¢¯Ø£´Ö¨«Ø\9c«Ô¦±�¥­Ñ¡³É¦»Ê¨·Ñ«´È¦½�¡´È\9b²·¤¼·\9f·»¦°³¡½µ¤º¨«¶²¨²­¶»«½Ä¯½¾\9e·¹\9e³�ª§º¤©¼±µ¼²¶Ä¯²º­�¾ºË°»�²ÈÒ½ÄÌǺӿ³Û�«ÓɲÊǯҺ¼Ô¼ÊÇ»Ñ̳Ø�¼ÒÒÉÊÔÄÅ�ËÎÔÈÌØÆÈÒº�Ô¶Ìã»Èß®Ñ×®Ëá¹�Ú¾Ûç¶Øí¾ÛÚ·ß�°ÜÖ©èÕ­ä�²äÒ§äØ©ôÔ´ïÕ¤ñÊ¥íÌ¢ðÄ\9dåÄ\93åÒ\89â�\92âÄ\89à Å\84à ×\81âÖw×É}ãÊzâÖwäÜ|à �záß\83âì}å�|äÚ\7fßß\86Ûâ\8aÑà ~�á{Îè\85Ñð\86à ô\88�ê\84ÞïzÚãréäxæäpÞäsâÓqáÔpÛÙj�Þ\ÖÓ^��dÎË]ËÃ`×½WѵSؽ`á²]ïµ[ï­Xð²Mý·MøºOó½Yð�aðÉYãÌDçÔHñËBðÎCïÎHä�Kê»Páµ@æ¼=è·7ã½=Þ¸Dä¬CÙ­QÒ¯Uί^×¹_Ô³l˦hΪ`Ǥ^¸©O·®L¹¨H· N¸ C¯©C¶ H¾¡?´§Bº«E¹®B¼£B¿±DůE»°F·¤>³­<½¦IÀ®9·¦7¹«=Â¥A¸±7¿¬9½¤.�«1¿ª8Ħ-½§6µ¨6º£2À¨5ʪ$ð"ɨ+¾§5»\9e2Å\906�\962Ä\98=¸\969³\92>¨\915§\8b;¦\86E£\82D \8bF¦\85?¯~C³\85C±\85N¨\90O¬\95Z¥\97S\93\9dY\91\95V\97\83S\94~G\8d\8eT\97\8cX\97\92V\95\96Q\8c\86[\90\84[\8ez[\87wa\97pb\9eta\9dq`¡wa¨wf\9ff^¦bW£gQ\99V\\9aS[\9cQ^®SX¬Qe«Id©K_\9eS[¥][°ZW©a]¬Z[¬^U·XQ°ZF¦UE­HI¤FB¥=E²BL³;S²DL¹DK³LS±MX·BZ½FQ¿DT»4X¹5Rº?[Ç9`É.f�0\È-^É*Z\96¼�\95·Ô¦ªÕ¡­Ù\9b¦Ó¡±Ë¤±Ó\9f²Ù£°Ñ\94±Ë\9f±�\9c³¿£±Æ§¼�¬³Ç¯ÂË­¾�§ÂÕ£³Ë£½·¦¹´¨±· µ±£¾³¥¼¥\9dº¤®µ¤²·¤·�\9d¶¾©¶º§§Â\9a¬´¢½²¥¶°¶½¹³�µ»Æ±¿É½Åʶ¿Ë²¶Ö¸°�¾°Î¸ѹ®Ó°ÃÚ¶³Ì»ÀÊÅÃÇƺÎÖ¿�ÑÉÌßËÑâ�ËÖÅ�áÂÑÛµ�á¼ÑÖ·ÌÜ®��®ÞÓ¿Ùç±ÙêºãéµçܨâاÜÒ«à Ù­ë�¯ãÎ¥èزôÕ¤äΠçÒ\9fíΣé�\8fêÆ\8bèÅ\81æ¾\86�É\7fæËzÜËwÜÅtæÓ|ØØtÛÜxä�sà à \7fà â\82äà \85äÙ\86×á\82Ñà wßáxÌé\7fÓç\81×éwâå}æð\88êá\7fæÜläâpêßjáãpÞÛlÖÓhÙà jÚ�dÒÑYÑÌhÉËZÖ�eØ�[æ½Và ±að»_ø½U÷´Rè»Uù»V÷ÃRù¼OïÆ[é�TáÎ?åÌ<èÑ>éÎDá�GçÄ>æ¿Bâ»FÛ¶BêºEܼ?ë´Dá®B׫DÙ«SÓ¹OØÄX�¬`ħj�«fÇ£bÀ¦Z³¢L´©Qª\95W©§Dª¦L¬\9bA°¢D½©G¼«K�¨M¡<ű<Ç©7µ­G°§<À£I·¬O½§?®°6¸¨1´¦B´\9f2â4½¥.¾«2²§0±³-·±:°«:¯«:µ\9f3¼¨1Ç£ Ä­&¿¤5Ä\951Â\96?½\90CÇ\8dA¼\92Bº\8b=²\91A¡\912¬\83B©\8aE©\89I«\87G°\8b?­\89?¨\84G­\92T¤\97L\9b\94Q\90\8dQ\8c\8dN\8e\89V\8f~G\92\8aL\8b\89W\8f\8dP\95\90S\94\8bI\8f\8eM\8cy[\91\80[\8at^£rd¥te¤w_§z`\9fe^¨b\\9b^a¥W_­Sa²Nd­O^¥Wd¡Vh¦V] [_¥RV\9fO^®Vb­[\±PL£RH°SO¢YD£G@¨GA²HG´QPµDF±GJ¯DQµAR¶JSÂ;V¶=Q�GPÄ<X½*TÅ9W·6a»*U¸'^Å-P�,Y\98­Ü¡²Ó¥§Ö¤©È¦¨Ç¨«Åª¯�\9e²Ì\9a¯�\95µÅ¢ªÄ ­½\9c»¿\9d¾Ì¢¸Õª�ѬÉÌ«ÂÓ´¿È¬ºÂ¤½¼­¸¯ªº¶¢·±\97µ¬\9d¹©¡¼\9f­¹£§·¨±·¦¬¿¨°¸\9f¼¹¥¶¯£¿´´¸®·À«Æ˯ÄÆ»ÃÌ·½Õ¬Âά·Ë°²�¶³Óº®Ø¶º�À¼�»½Î¿ºÇʼÅÊÄÊÙÇÎáËËáÇÆäÌÒßÀßä·ÚÞµÑ�¬ÓÓ²ÔÓµßÖ±äâ­Ùè±åä§äߧÛÞ³Ü�±�Ô®éÚ®ãÔ´ëÔªåÑ¥à ÒªÞ�£å�£éˤà �\96×Æ\88�Å\80æÂzà �qåÆråÉvßÈu�Ósßãmãèv�ëxâÞ\82íã\84èÚ\7fèátØØt×åpØè}à è\7fÛáy�Ü~ãè\80áâ\82ëÛtñâuå�r×åeÖãbÓçbØÞ^Êà ^�Ñ^ÔÖcÓÓdßË\â¾[â±båµ`åÃVñÄYô¿PðÀWð�Tò½PíºZîÀ[îÆQíËIç�Bç�Aä�;à Æ9éÀ7é»Dß³@ß·Lå¶Dæ·Bï²@ë¯<ë¶@ܲHÙ°GÕ½SØÂX̵^ɸ`ʬ[²`¸¦Y­¨S«\9bY§¦Q¯¥H³¨A«\9dH«\9eH¸\9fEº©>¸¢G»ª=¸®5¹­Dµ¨F±¯@¶­E®¨9±®9º«?³\9b5¹£7¿©)¶©)·­.®°9®¹2°¶4µ³1¹«+µ¢1¹ 5Æ¥)¾ª-½\9d3¿\9e1É\92=Æ\97<½\8b9�\89;¸\87=°\906¬\8e:¨\8bB§\89@¥\89H³\8aG­\88L°\8bC¨\88E¦\84Q§\8fI\98\8eN\8d\96P\8a\94F\90\93M\88\86S\91\86N\8e\8cX\8f\97I\91\98J\8c\94H\8e\86N\84\89S\8a~Z\8c}X\9bv`¤zd\9c{c¥sZ©t^¢sf£eb£df®`d°Zh¯Ta¤Oj¢Wf¦^b£\a\9cWZ\9dS`¡QY©TW§HP\9eHO§JF¢PK¥IF¤KC¥UH¯OGªUO¢SN¤SR§E^¸He¼;aÅ<T�BUÆ<[½-aÂ2_¸+]º/X½$SË"\Ì#Y\95¯Î\9e¹×¢®�¡ªÎ\9d¤Î¦«� µÀ\99²È\95¶Ì\99¼É¤±È\9a±º©�Ä©¹Î¨·�£Ä�§¼Ë¦¿Ò¤¾Ô¦µ�¢³Ã²´º¥½­«¹»\9fº±\99º¢¨®®²½\9f£µ\9d©¶ ¨®\9eº½¡¯½§»ª¬½«³³¶®Å²ºÈ·½¾¿µÈ¸²Ê±·�°ÂǬºÈ®³Öµ»Ë¾¿ËÀÃѽ»Ä»´ÎÇ·�ȺÈ�ÅÕÖËÒÛ�×ÜÃÔÞµÌâ´ÒÒ¶Ù�©ßÑ¥ØÛ´�ß´âè¨�èªÛì©äåªà Ó­åÞ©ïÓ¤èÓ°éÒ¥åѬäؤåÕ\9fæÙ\99à Ù£ëÔ\99�Ã\95ÛÅ\89ë�\8cëÃ\82ëÇ~äÀ~óÅsßÌ|âà zæÕvÛâyãÞ\81êèyà ãvìáv�åyÚä~Ú�\85Üæ\81ÜäyâÞwØä{Þê\8däê|çÜuéäuÙÚpÙåpÑã]ÕÖ_�ä_ÌÕ^×ÉeÒØ[ÓÕ^Ü�fß¼\ê¹bë»Rî½P��Vð¿\ò½aíÂYâ�VîÉXíº^é¾RçÉEðÉBâÉEà Ì:ìµ?à ¿Jä¿Oà ²>ä·@æ¾Jí¼Bã¹=Þ¹JܱBÙ´E�¬OÖµQɯU˲aÓ´bË·[¿´Z¼ªW±¥`¼¡_±©H¯¤=±\9fI¦\96J¯\94@¿\95M¼\96H®¤A·¦=½«;¯©5³¡7°¡A®±=¹¬@¹­E­¨9º\9a-Â\9d2�®(º¨.·°2½¸&¬µ3±²/¯³-µ§+²£3¼¦0Ǥ)¿¢2Ê\934Ê\903È\96;Ã\91<º\899º\80:»\80:µ\80<²\88A°\818§\8aG°\8dB³\80D¨\8dI¡\8dK§\89O£\8bB\99\87B\94\8cG\8d\94M\81\98C\8a\87J\87\85U\84\91X\8f\92T\8f\99R\90\99>\8d\94K\90\87E\8c\87I\91z^\90|\\8dv\\93\84l\97\82h¥|b¥{]£tc©i^¥aj\9e\o§Tc¯^g®Yc§[b¦[Y®^a \c\9c]]©YP£[L¤RN£CL\9bAZ\9bD\ªNO¤OP¬XI HM¢FM\99CS\9fDX§EY¯HV«Ea¾GR�>c¿:S¾)U¹.S»(]¶3^³)S½-aÌ$Y\9f¶Õ\9fµÑ£¦Ñ §×¦¦Æ¥­Å¡²Ç\99¿É¨À»§¼½§À¸\9e½¾¤µÀ¦¼Èª·Ä©·Ç¥¿Ê­·�§¬È\9e±Ê\9e´È¨·»¨®´¦¯´¦ª·¤³¨¡»¬¦±¢¦³£¦­\9c²¯\94¶¹\9c²·¦·¶­²­¶¼µ­²Âµ³½·¶¼¼»»²»±ºÄ­»�²¶�¶³Ë½µÆĹĿÂ�³¾Èµ»Å½¹Ó¿¾�ÈÄÌÒË×��ÖÕ��Ö³�ܶÕѹÚÛ³à Ó¤×Ö¦�Ù³ßé«åéªÚé¨ßÜ¥ëå§èÜ\9bòؤðÖ°í�¥à Ò¡æÖ\94ë�\94îÎ\90ì×\93â�\8déË\94ñÎ\88é¿\8aç¹\8fë½\85îÈtðÌtâ×zÞÛyÔã\80Ú�wà èpáèxÜë|èâ~Ùí\7fÔéwÑî\83ßå\8aãè\80åã\81Ùì\81Ûå\88Öñ\89Ùí{ÓêtÞètß�c×ÓaÚà f�Ü^ØÔ`Õ�cÙÇ]âÉeë�hâÅZâ¶Wé·Té�SØÃRâÂZê»`åÂ_ÚÅ]à Â[�¿Xá¾OæËFëÈ@ëÓAåÃGèµMê±Câ²Hç®CÞ¬@å¸Dè»JØ¿R׺LÒ¸IηQØ®UÖ­L�¥R̪YË·YǹR«_¾¥\¿ªT¿¤UÀ©F¹\9dBº¤N­ J¹ J·\90I°\9aK¬ >·\9f;³\9f9´\9c,µ©0²¨<¶¦9¯°8±¨A½\9e0¹£+Ƥ3Â¥.�¨2¯0¸°+²²%²¯!¯«)¯ª)»¡9¸\998º\981¾\98/È\90<Ë\94BÄ\8bAº\85@½\864¸{:½}C�yK¶\7fD¸\8f@©\8dA¯\82<µ\80<­\7fC¡\81G\9a{<\9e\84?\96\88>\99\8fL\8c\85G\85\8aL\83\86Q\88\8dR\8a\96E\8e\93I\8d\97C\8b\94B\8d\9cA\8b\95F\95\95F\98\85R\99\86\\8f\80`\8dwn\96~j\9c~a yf¨vd©lg£gf\9a\j­\l±Xp±Xm§\f©YY¨`W¦cUª][°[O©VL«WS LU\99?W\9dA^\9eC`¨SWªYV¡PQ\9bC]\9e@[\9dEV­CZ¯>]«=V´AZ¾F`�>d¿2X´9Yµ1Z´&V´)^³(a¼%e\9b¯Ú¡ªË\9c²Ù\9a®Û¡µ×\9e¨�¤½Ì©ÃÉ\9f¸É¨´�¤±¿¡�É\9fÃÂ\9cÄ�«±Ä °Ã\9f´Ì¢²É\97¶�\9d»Æ\9c·Ã ²¼ ²¶¤«¸ª·«¡¸¢\9d½«ª±\9e©³¢¨¶ª²¹¥·¼\98»«©²²¨¹¹\9e»·¦¯´±º¸¼°¼²¾²°¸»¶Â¼±�¿´¿¿º�¼·Àº´Êijù°Ã´¶ÈǾÌɺÓÅÄÜƸÞ˵ÜÖ²�ÔµÛ׶çß°ÜÖªåÙ �Î¥à Õ¸ä×®îë¨à á¢èÜ«äá\9eâÛ\94æß õØ ç׫ëÕ\9dçÓ¦ìß\9dúÕ\96óÛ\94ìÈ\8dù�\85ë¾\83êÂ\8aïÄ~ü¼{ð¾\7fïÇ{ã×uïÚoæß|ÔÞu×ÞzÜè\81ÛÜ\82çëxÚê}��\8bà æ\88áã\8eÙê\8bÜá\83ßâ\8féé\8eÙç\85ØãrÔè~ßãpÜâd×ÖY�ÓeÖÊiÜÓdãÊYæ�hçÇbÛÎcä�^Þ¼Z�¾ZßÃW�ÅOÔ¾Tæ¸^ØÀVÙÆeÖÆVÞ½SÖÄK�ÆR�ËPåÒPèÄCܬRܬFÚ²NׯCâªDÙºMæ¾Jç¾CÛÀAÒ¸TѼRÙºEß½HÒ©MÕ§TÔ±MƽXªQʯOÈ\9fIº«BĨ@½¤>·¢E¯¦Dº\99;¯\8b<»\975°\9e<¹\9a3©£?µ\990º\9e1´¢+²®4ºªA¸¥;°°:½ª3¶\9a$¶\9a(¿§.Ê£0¸£$»¥/±«)´©'³\9b6¼\9f4¹ >Å\9b/Ã\947À\8e<È\8e3Ä\91B½\8e=¸\888Æ\83<µ|<À\89>­~F¹\8c>­\84G¦\8c7²\869²\86>¦\86J\9b\8c<\96\84G\97\91N\91\8eQ\87\94S\85\90W\8a\90O\84\9bN\82\8cK\8d\8fQ\8f\98H\8d\8cG\94\92F\86\8dD\8c\93N\94\83X\92\89P \81`\9e}k\9d\80h\91vd¤zd§vl\9cjs\9afk\90Xs\9cai [i£Qe¬]]¢][¢cR ]a«Ze¢X_©XH\97XM\9cVV\9fCV\98@h¢@Z\9fJb¦N^¥DX£>Q¤;[\9f>Y¬I]±BU±?R¬B[­?b±?n¶9`­1Z²,Y­6k±0nµ/d»,m\92©É\98«Õ¢«Ò\9c´�¥³Ú\9d´×\9d½Î©¿Ì£´Ê¡´¾¤¶Ã\99¹Â\9e²¿\9f»É¡À�\9f¶É\94¯Ç\96¸Ñ\9eµÔ\9d¼Ë\9f»Ê\9f°�¦«Æ\9fµ¼¦¯®\9d·«¢¼«£·¨£º²°°«·­¤»´¤°²\99®¬\9d®¶\99³µ¤­°¦°¯²»·°¸³¹®¾À´º¸·¿¹½¾·Æ®ǾªÊIJ½½±Ã�¶ÃĺÈȲÕ´�À°Ø�±ØÚ­à Û¬èÙ´éá®åÔ³ïÔ©èÙ±áÕ®ßקæáªãÜ­ßå¥íã¨ëë\9aõè\91îÜ\97ìÞ\99êá£üà \9fþá\9fûá\93þÒ\87ÿÇ\84ÿÆ\7fÿ�|úÉ\83õ¾zýÄzóÄzïÃ}ò�qðÒtâÛxßÖxâà z�áxã�}×â}Øé\8cÖÞ\8eÚê\86Ûí\8cÛê\89�ì\8bÜç\92åê\8aÛá\86ÞÚxåáyÞßqåÛeÛÒ`âÉ]ØÉb×Ç]å¾[âÂ`âÄ\äÆgßÆbÖ¿[ÚÅ[ßÌNÒÂR�ÀWܼ[Ú»YÔÀbÚÃ`ÒÅWÒÌOÔÎWÖ�VáÄNá¶X×°PÙ°\á°Vé³Mß´Mâ²Iâ²Iä±JܹFÕ±EѺMÜ¿SÞ¾KܱQÙ²UÙ´M˺VʵWίPÇ©B½§?í7·¡>¶¥1¿\9d2¹\91.³\94;±\8d;µ\915²\957­\9e4¼\9a(¹ ,°«3±«4®­8¶¯5·¡.º¤0¾ª1»\9f#¼£$¨"¨!½\9c0¹\9c/¶ ,½¥8µ\9b<´£<À\9d<Ç\95?¾\935¿\91=À\8c5À|8¿}DÃ\82H½\81@º\80<µ\8aF¹\82<°\84<¤\84G©\89@\9f\888¥\88?\9c\95@\99\90E\8f\96P\91\93M\8c\99P\8e\97Y\91¢P\82\9bS\7f\98S\89\94K\86\8dM\8c\90F\92\8aM\91\94F\9d\8dO\99\89M\9a\8f`\9f\89d\9bzo\97vi\92x_\9awe¤ta\9dim\9e\n\94_s\97Ur\9fOn£Pr¦\d¬^]§[[¦VeªL^¡FS\9ePT LJ\95NQ\90AR\94Ca\9e@b\9bBa\9aAb HW§F_©BV¬E`ªA]±7e¦>_£9g­El©>h¬>s³@t°8f¹;o´5q±.mº#l\9a¢Ë\8e³Ì\8fª�\98µ�\9a­Ü\96»Ù¨±�¦­Î\9f¸»\9b§¹\9f¸�£¾»\97µÆ\9e®É£­Ã¢­�¡ª�\99¶É\9f°¾\9b¶Ë\99¸È\99¶�\99¯¸\99´°§²»¢½±­¹¦¦º§³°§±®­¸¦²¹© º¶\9c¬¬¨³±\9f²±³±±°«¦¹²§¬Ãµ¶»­µÀ®¼¸·±Ä¿²Éµ·¾½¯»Ã·�®¶�°�ʳÖ̲à ʹÚóÜÓ´âѱÛܬÙß­ç�°äÕ¯êÜ©öß«æ�§à Ö¢íØ£êØ\9dèÙ\9fëÜ\9açæ\9cäâ\90ç�\9dèà £ëè£íæ\9cëÛ\9c÷Û\90ø�\8bòÇ\8aÿ¿~ø¼\83ù¿\81óÊ\80öË\7föË{ûÆyèËwà ÖxâËqç�vãÖsßÖsâáxÜâ\8bà é\88âì\7fßé|äó\80èò\81Üé\80äé\87à å\7fáäxäÙ{æÙkç�fáÜgØÓcÖ�kÙÕlÜÌ[èÃUíÇZá�UØÇT×ÉV×�^Õ¿]Úº]Õ¸^ã¹\Ù¹XܾV��d�ÅTÒÂZÜÀZ×ÌUÙÊKÜ¿UÙ¸Jå­RÞ¸Nè¬Nê¬Rì¹Ië²Mç»Iå·OÔÀMÒÃUÙ·Y�½O�µJÒ¬KÉ®YɧW�´YɶVÅ®IÊ®C»¢E´¬D¼\9e<²¤:¾\9d(·\93.²\97C©\9aB·\989­\9b8°\9a@³¤6«\9d/®¥0¸¬)²§2°\9d'²¤4¼¡3¶¬1¹\9d\1fº¤$¹¤"´\9e,º\9a2½\9e6²\9f7¾ 9¿¢>Ã\9b4¼\97F�\94@º\968¶\8a5µ\8d8°\83>Ä\85@´\8d8³\7fF½\86H«\84@·\7fB¤\7f5¢}@\9f\84D¯\90;§\85C¤\95D\8d\88C\95\93O\95\8fR\8e\95[\92\8eQ\86\96V\86\99J\8f\96M\93\97U\82\8bH\8f\8bN\91\90T\95\8eM\95\89I\88\8dO\95\91[\9e\85Y\96\84V\9doZ\94th\96hc\90bm\95gr\97ar\8eOe\9eYl\97Hl\9fMu®fj«cf¤Rf¢Tf¬]g¢T[ªSV£T]\90O[\93Fa\9aQg Jf\99Ha¨DW CW¤BM¤HZ¨Cf©NW­?a®?[³<n¯Gv§=u³Ai¹Af°5b½8mº:k¿,f²%v\91¬Ú\90¯�\91³�\95¬Ì\97¯Å\9bµ�\9d¸Ñ«©Å¦¬¿\9e§½ «Ä\9b·º\98µÉ\9f­Ç¡³½\95¨¼\9e¢¹\97¬À\96¹º\98µ¾\94¶¾\9f¯·¤¬©\99¤«¥µ­®¹º­¶®¨««©¥§¹§°³¦¥´¨ª¸¢©®­£¸°¬¶¨°°¨²·§¯¶©¸À¥²µ©¶»¯·º»�À¿¾È½¼¾°µ¿·ª·Â«¼�¯ÂË­É�³à ʬ�Ò´ÞÒ¯æÖµÞÚ®�ѳáË«âÕ¬óâ¡öÕ­ôÔ©è� èØ\98ãÓ¡ãÖ\98îÓ¡ðá\9dèÚ\93çÕ\93ÜÛ¡Üâ\9d�Ù\8cáÜ\8cæÞ\96êÑ\91õÇ\90ÿÂ\83ÿ·\81ý½\81íÂ\83ìË\84ð½\82÷¾\81òÊ}áÓpìÒrëÉvâÃ}ç�sëÓz�Û\87ßÚwçêxãëväî\7fÛî{ãìxÛé\83�ê|ÞïyëæmèåræÜlÕÙqÒ�iÕÚmáÕháÇhçÅVâÅUäÄXé�XÞ�UåÎZá�P߶`׸^Õ¹XäÅUæ½Qç»Yßµ_ÕµTÙÂX×ÄOÛµVܳOêµDæ»Hé·Cá°Eç¸>ê±Dê²Lç¼NÛ�LؼVÞ¹_Ú¼VÒ·Q�«GÔ\9eDÉ¢QÃ¥OȪXÆ¢UɨH·¬I´®B½ 8¶\999²\980¶\95+µ\8d*©\91:°\967¯\9e@µ¢8¯¢>ª\9e7¥\9c2²¨3µ¨,±ª)·\9c$ê,½«.¾¬*¸ &±\97\1d¸\98 ´¢*»¥*¸¢,½¢4·¡2¼\995Â\8e?Ã\90@·\87B·\8c9²\860®\83/º\86,·\948·\939¶\8c=¬\87>°\87>¬\885¦{6­\7f5¥\8a6¨\8eE¨\91F\9a\8eD\92\8c<\8c\9bO\8d\98R\92\93L\91\91Q\8d\9aX\87\9bO\8f\95U\8b\8cP\8d\85V\8b\8eN\94\9aI\92\97S\86\9aU\87\93L\8c\8eF\8c\81P\94sO\93p\\8fpX\91aa\90`]\98\g\9c_k\97Pa\9cO`\9cMp¡]r¨`o¡_d£Ui\9fab£`bª[a¥TV\9fTT\9aU[\92Ud\98P[¢OS¢N[©PK¥LG£OP\9cNb¡Kc\9fIa£LV«E\¯>f«Hn²Cn¸>l·@`µ6dº=j¸2d½%dº!p\90¤É\86¥Ë\89¬�\86«Ã\97¨¾ ­�\9c¯À\9c¢¾\9b«·¤ª³\97¨�¥¬º ¦Ä\9d¤Ä\9d­¿\91­»\9f±µ\99¶¾£¨Ã ¬» «¿\9a¤¶¢¥«¢¡¤\9e©®²¯´±¥¶°£¶¹±±�¬»¶ ©½\9b¨¹«©µ¨¤³§¬´\9b®·¦¬¿£©�\9e¶·\9e°Ç£ºÆ¬´¹µ´Ê¹ÂÆ»Àƹ¼¼³¼µÈ·ÇɳÈƪ×ήæ̬ÛÔ³ÞÊ£èÖ²ß�´ìÚ²îÑ\9fåÒ¦øÞ\9eéá¡õ�¥é�\9cçÞ\94íÖ\92èØ\96÷Ü\94úÜ\9dõ�\92ðÕ\91åÓ\9açÞ\9báÒ\9dãÔ\8dêÎ\8dëÆ\97òÄ\94òÃ\92ÿÂ\7fúÈ\87ÿÀ~íÀ\81ë½\89óÃ\7fèÌ\7fèÓxéÅlë�pêÔwÙÕkéÑtßÞ\80ßÛ|êð|æéxâìsÞæzÜê|çé{âìsâçxÞífáÞjëâbâáp�ëfÓÚdÜ×pÛ�_áÊdã�]ãÀUßÂLÜÒWßÄFä�Hç·NæÂP�ºTéÅQê¾Zå¹\æ½Wå®TØ®YÚ¬SÜ°Hà ®KÞµEé¶Qì®?Þ±Eê©=î±;é¾JæºRä³Qà �Qã´OسWÒ»KγKÒ¦R�¦OƧT¹±R¯K¹©Rº¯L¸¦:º©0³\98-¶\9f.¯\9b+¨\9b%ª\9a0ª\9f=¢\98A\9f\9cG¦¡H­¤7±\95?¨¢3¨¤0´\98)¼\9e*¸¢-²¦-½¦/±£!¶\94-³\9a\1e²¥\1c·¬(®§'¾¦+¹\9f3½\980´\99<¹\91?¹\90B¯\8e3¯\818µ\85%©\96.«\97-¶\99/­\96=´\861º\8a:¦\854¢\841£\8f3«\96,\9a\97C¥\8aD\95\91C\92\8a=\8e\8eL\96\96W\8e\93G\8e¡H\92¡H\90\94O\85\91N\8b\8aT\89\8eK\91\93N\89\8cK\95\88J\88\89K\8c\93Q\83\87Y\88\86Z\93v\\91eX\88aY\99WY\95ab ]j\98Xe\9aW\\9aJl Pl\98]j©ed©dp\99Zj¤Vf£XZ¢MU®V]ªQP¡ZZ\9eNZ\94Nh\9fS^§I^¬KX«PK¡FM¨O\\98Mf\9dBm¨E]«HY°OZ©Fo¶Pf¾>e´?]·4j¿2b»7f»#l»&s~«Ê\82¢Ã|§�\85¡Ã\96\9fÅ\99¥¸¢«¶\9a¡À\9f\9c¹ \9e¶¨\9eº£¬¾£¤Æ\97«¾\8c¦È\90¯�\93®·¤¶·©®½¨¬¾¬«°¢ª«¦¢¨¤§­¤®µ¤§±®¢µ³¬´¾°¹·¥¶·\9d±º\9b¬¾\97®³\9e¥·\98¯¸\9eª´\9cª¹\9d²Ã¥´» »½ ·Ç¨³Î¥±Å®·¼³¹�µ¾¸¾µ»¾²Ä�¬Ì�§ÕΫÞ�°Ü�¯ÞʦðÒ­ð�°ëÑ\9f÷Þ\9fêä\9bëÜ\99ë�\93ë�\9bèÓ\95òÓ\99÷Þ\9cøÛ\9aïÕ\8cõÜ\8eï�\8fïÒ\94íÎ\96áÒ\94êÎ\9bêÈ\94âÌ\8cæÄ\92éÈ\9aõ»\94ù»\8eÿÃ\88ÿÇ\7fû�\87ûÉ\82ïÈyñËxãÌqÜÇuæ�uß×{ÛÙoæÜoäÔ}éÙrïäqìÞyêáwâÛ\82à ä|éÞtæà xÛìnáèoãéiåæcáíbÜédÖênÖ�fÞ×háØcâÕYåËX�ÖVß�JÞÀKãÀHí¼?é�GêÈVìÂUïºMê´Tæ»Vã°\ê¤Væ¥Xå¬WÙ¯L×°MÞ¬Kî«PìµEì¹Dä±@ê´K߸Eã¸E�½Oá¿QÞ¹ZعTÛ¶NɧSƧJŤM´®L·¦I¶©M±«E¶¦6¶ +»\98,³£!¨\9d#¢\95-¨\92/©\9e6\9a\9fA\97\9a9¡ A¨\99?­\9d;§\9d.§\9b1°£-°\9b+´\98!µ #¯¡)¯\96&±\98"«\97&©\94*±¡#µ\98'²\9e3®\9f2·\96<¾\8c>µ\8d7»\8f-°\894°\8a)°\8e"¸\93\1c¯\94#¹\99%±\95,¸\8f4·\8c5²\867ª\857 \861¥\923 \989\9a\93=\9c\9aB\9b\8fL¥\94E\9d\9aL\9a\9dD\91\9fM\96\9fR\8e\99K\93\93U\8d\97U\8e\8fY\87\94T\85\93R\8b\88R\8c\8dO\89\8bT\8b\81R\85\83Z\81{]\88jb\90ij\90^b\97^f\98Wk\8fX`\94Nd\92[n\9fWg ag\9e`i\97`s\9d]m\9e^^¬M\­W`°RU³ZO±SX\9fSf\9eTd S`\9fLU§QI¯WK¬ULªEY\9d@g\9eAk¦Bg¥G_²D[²QbµIa½I]·C]½<j�2lµ-m´1a¿$e~\9aÒ\85§É\88\9dÄ\8a¥º\88\9a·\93§·\89\9b¶\92\9f´\95¦¸¡£¾\95¡¿\98\9cÀ\98¬¶\8e«·\8b¯´\9b³Â¡¨»\9b¦»¬¦´ª§¾£«¾¢\9f®©ª¨¡£´\9d«´¬ªª®¤µ©°»¯¨¼­§»®£ª´\94¨³¢¬�\98¡º\99°¼\97±�\9e¯� ¼¹¢°Âª¼Ë«¾È¯¸�¦½¼­½È¸µÀ¹¬Â»²¼µ³ÆÈ­ÌʯÜŬä˵æÊ£Ü�§ëÓ¤êÒ¨úѦ÷Ú\9bæÛ¥îÓ\9cîÎ\99ðÚ\96ê�\95èË\97óÔ\9añÑ\91÷Ü\97üÙ\95ôÑ\88ð×\95æÊ\87ëÖ\8eçË\8fíÉ\8dã¿\8bì½\82ì»\81ñº\8böÆ\8dõÈ\87úÄ\8aü¿\84ý¾vö½~ëÎ}×Ì\80ãÓxåÓ{ÛÔ|ßÖlìÞyêÑ{íà \7féäsóéyíìyäèr�×wçÞkÖâqåámÛÜqâábÖçgãÞe�ç^âä]á×[ÛÒ]ÛÊVÚÊ^çÈZåÆMçÈTÙËTâÈMä»Dç·Hí¹Jê»Qê»MòµWì¸Oä«`å³Të¦]Ù«RÙªK�«Pß­Vç°BܵIܳ=Þ¨Dã¶Jå±>ÔºG�ÅIλJÞ²RÙ©T�´Jɱ>¿ªJ¾ªF±¤J­¯C¶§G¶\9eF·¢@±¥,­\93.·\96*¨\9d/­\90.³\927¨\97C\9a\98G\9f¥:¥¥C ¡5«£:«ª;\96©6\9c\993®\92)²\9c(¯¤(²\96)¦\97+§\97* \90+­\9a%°\92!­\9f#¬\9e3¯\997®\9b0¬\98.µ\8f6ª\86*ª\91$°\8a+°\91-¸\920­\8e%ª\96!ª\95,·\8b4²\823©\88=©\8f5£\864 \93:©\8b@ \8fC\9f\95;\9c\97D\9f\8cP¨\96J¢\9fO \96Q\8b\97T\95\91J\90\8fI\8a\98V\8b\98I\88\91Q\82\8aW\8c\8bR\81\8c\\8e\82L\8e\82S\93uZ\8du\\8fih\95o`\8b`o\95\j\8dQu\98Ww\92]i\91Zm\94]k\92`e¦]m\9f^l¢Oc\9eTi¨Od¬Q\­R^²PU¬Oa£QX\9eY^ Za¥QS¤]U©SI«RV±Q^£Hc\9aDf¥Bh¬Fj¯Ie¹Fh´?fÄAb�GcÀDl·.h±$m�%hÆ$dx¦Î}¡�\80\95¼\90\98¶\84£·\81§¾\86¢»\93\92µ\9b\94µ\92£Ã\85£¿\89\9c�\8a\98»\94\9b´\8d¬»\94«½ ¦¿\9f¡¶£©½¤¡È\9b¢¾\9e¤²¤¥¹¤¡·¨£´«\9e«¦ µ°¯¶¤¢·¨ ´©¥´¸\9d¯¼\9c©À\95§Ê\93¢È\98§Î\96ªÆ\9d¸Ã¦³½¬½½³²Ê²·Æ¸»¹®¸Ê¶¯É·ª½Âº»½º¹¼»Å½¯�̸áÌ´á�¨�Ç¥ë�¦ôΰç�¥ëÓ¤éÒ æÊ\9díÕ\9dîÔ\96éÉ\98êÇ\8eå×\8aìÖ\8e÷É\91òÌ\93ôÈ\93ëÑ\8få�\8dîÑ\83éÆ\80óÊ\8bõÊ|é¿}ôÀ\7fó»\82ùÇ|÷Ç\80ð¼\85ùÂ\7fó¾wõ½råÌyÛÊ}ÚÔt�Ô{çØríÖzáÔ\80áÖzäÕxðÓyîÚvóêmíåfåÔn�ÒfÖÚfà ßlØÕnÛÔhÔ×bÔØiÜã^åÖbáÖZ×Ö^Ù�YäÊ^äÈYæÓ^áÌYÙËKßÄHá¼Fí·EçºVéµWæ±Mè½Tå¶WíµXí°SÞµRè´Mä¶Të¯SìµRâµT�¥Dã£CÙ«Hå¨Lã¯FÚ°LÓ¼TÒ¼SήKÉ´LÊ©Eɧ>¸£=²©H²¢B¬\9bE®£M½«A¨9¾\91(°\8b#»\8b%·\8c-¾\93=´ <¦\999\9b\9dA\99\96D \995¡\9e=¢¥9\97«4\95©0\99\9d2\9d\99,£\9e)¢\9f1\9c\94/\9f\99$\9c\99# \8f1\9c\94$¥\90(ª\992§\922\9e\8c/¦\8f#²\87!º\8e#¹\95\1f©\8b"µ\82'µ\88-²\86-¯\8c+¤\8f'ª\8f%±\8c%§\88+\9e\811¦\88> \93?§\8fA¥\94E¡\93>¤\9cD¦\99D§\8bC¡\8eM¥\90V£\92R\9a\99P\8d\90U\86\8cX\8a\8fJ\8d\89V\89\83R\87\89P\87\80]\85zU\83zO\83sT\91rd\90il\93of\94dl\92go\8aau\92Rs\95Qx\94_w\97ar\8bYd\9cdm\9f]g\9bR`\9bQf\9eQe \l\9bQd§VY°OU®O[­\^\9faZ£eX¨`X§WS®SO­ST¯Pa¦Ba¦Bc²Ea±Hg¯Ol´Fc¾>eº;nÂ9e¸;j²6v·)sµ'o d\85\9cÆ\83\9d½\8d¦½\95¤¾\85\9aµ\81¡¼\87\99¼\83\9b°\90\96½\8c£À\83¡À\80\9eµ\8e\97¶\91\96À\9a¤Â\90¦·\95¡À¡¤¹\9e ¿¦¬Ë\95£Å\9d¬®\9a®­\9c­±¬¡¶¥\9f±­\9d«¥ª°\9e§¥\9c\97³¯\94­±\9e«¶\97£»£¨¿\9d§Ê\9c¦�\97®Î\97¶Ë¢³»¥¶½¯¾Ã«±É§´Â¶´¾¬´Æ´®Ë¶®�¾·¾¼¶ÄŹĮ̀Þˬá�¢çÌ\9aáÇ õÔ¬ôË éÒ§é�\97꾦à Ñ£ðÊ\9fâÉ\9aôË\8cñ�\95éÓ\93åÂ\8fñÃ\92ð�\97ãÔ\8cìÊ\88òÑ}åÌ\85ôÎ\86ùÎ\88ìÅ\7fñÂsùÄvó¹\81ÿÈtù¼\80ù¼qè»z÷ÇzéÉ}��xÓÒ\80ÜÛxÚÚsï×nâÕpìØyê�yíÜnôåvçßjìâsáÚjâÞ`ÒÚa��kÕÜ^ÖÒjÚÎgÒÕ^ÞÜ]åÓVêÚ[ä�Xä�TäËNå�[çËL�ÌUæÆSÙ¼IåÀPà ÃJîºLî°Tè¿Hò¼JçÀSð�Vï¹\ä¨Vâ®Kë¨LߪVã´Lì´Fæ§Jà ¡Jß²P×·Uç³GÚ¯V�¾XÇ´XƯKƵAƪCÄ´=º´@®­J¸¬@®¤?¯ªR³§>Ç£3³\935º\8b%ª\97)ª\8b6®\98=ª¡1¨\9a;¡\99A ¢5¤ 4\96§7\94ª5\92®2\8e¤5\8eª.\9e 0\9b£(¢£0\9f£$\9b\99#\98\923¡\91,¢\9b3\9d\95%¬\92.­\94-¯\8d(¢\93\19®\85'·\8e\1d¬\8b#³\89 ¦\8b0§\8f/²\95(£\97!«\90'®\89)¤\8e2¤\85)¥\89-ª\886¢\8a<£\9b5°\9aE¤\9a@¨\99I©\96L£\94A§\8aM£\8aR¢\84D\9a\8cQ\8a\90N\87\8fK\8e\83P\90\8aT\8d\88T\88{R\8e}Z\8a\7f\\8esO\8apb\97qe\93oa\98xc\93mi\93dl\93_o\8bYz\90_y\88Rl\8fZn\8d\h\8aas\95[g\9bR`\95Xa\9bTg\9eYg¡So¬W[²X]°Id¦Z[¯`R¬aY§gP±QK«TQ³XP²RT«KU§DZ©I[©Yg³K_¸NlÀCp»Ae¸8m¿Gb»4i³)uµ%i¿!e\8b\9aÀ\85¢º\8c ¶\8a¡¹\82¦Â\86¥À\8b¦¶~\97³\82¢¹\7f\9d½\8a\93¼\84\98´\93\9cº\94¢À\8f »\9a\9f¸¢¨¾¡ªµ\99³·\98ªÀ\95­¼\94­º\92¥¯\9e©³¤\9b±¦\9c´¦¢©¡¢¥¥\97©\9f\9a¨«\9f£¯\98­½\9e«Ã¥¤�§®Æ\9e°À\9b±Ë\9b¬�£±Æ¤´¿§»Â©±Ä¶¸À±µÄº»�±¸Å»±�õν½Ìǵʼ®Ø½¦ÜÄ¡êÌ çÑ¥éÈ\9cêÅ çÆ\99ܾ\9dß�\9e�¼\9cçàäÈ\9aìÂ\8fìÅ\95ÞÄ\92ê¼\89äÂ\8dëÀ\8fãÊ\8eè¿\86ëÃ~éÀ}é�\83ò�\80ûËuÿÇrÿ¼oûºvý½xö¼pëÇqñ�wçÄ}ßÄ\82ÙÊuÕÛtÚÚwßÕiåØißÒfêÛiðßoèÚgèävêà tßßläÙnØÒoÛ�`ÒÎX×Ô_ÛÚgÖÖcÔ�^Ú�`äÚ^â×TÞÛSëÙVãÎTã�MÞÑNà ÎMÛËPÛÀQÙÈTâÅNí¾Rè»Jê¿Rñ»NíÂXç¼Xè¯_ìªYí©Tæ«Oã´Nå±Sé¨Qá¤Má¬MÙ­TÚ°Y�µYÓ®UÓ¸ZηZɸIÄÀP�¶G»®A»³E¹ºM±³J¶´F»ªFÀ¦@À¤;Â\9d.µ\93/ª\9b8«\947´\98:¯\9e5¡£2¡¡0 £5\9d\9f9\91¥4\91¤2\9c¤9\95©7\94­,\8f¤,\98¦+\9e£-\98¥*£\9f/\9e\9d2\9c\9a*\98\9b0¥\95&¦\92\1f¨\94)°\86)­\89\1d«\90$­\8e ¯\91*¬\91*­\96#§\8b'¬\8f"\9f\93(\9c\87,¥\8b)\9f\8d&¨\88.¤\937¨\95?¦\9a9­\999«\91?ª\90A°\96F§\8eI¦\86E©\8fG¢\8a>\9d\83C\99\87F\94\84K\8a\86H\89\84J\88\83T\8d\87O\8dzI\8bvS\85qR\8ct_\98t_\95qg\9aqb\91qf\85ai\88bj\87dl\8car\81bq\85Vj\81^t\89Yr\93\x\97Yl\99Pe\9fTb Na¢Xk®Tq«Qh¯T_±T\³aU°_SµdR¯]O®]Z©WT¤\N¥\X¯R\«U[¬ZY§X]¦S^´Gl±Fo¾<b½>dÂAeÄ;m½9w¿-r�.w\88\99�\80£¶\7f\9e·\85¤º|\9b¼\8c\94°\85¢¸t\9b¾\7f¡³z\9fµ\7f ¸\89\94¯\92¢¾\8f\99�\94\9e¼\92¡µ\94¤¾§\9fÀ\96\9e³\95©¿\99¢Ã\8e´¾\99´­¢­ª\97¦¤\9c ¨\99¨©\9a \9c\9b\99«\9c\9c§¥\96§«\98¥­¤¥¹¨­¸\97­É\99­Ä©¨Ñ\9d§Ç£´¿«½Ä¨µÌ³©Ç®¬Ç«¾Ä«¶¿¸»Ñ±´ÌůÌúÒÆ®�º¨×½«ê¼¥êÅ\9bí�\98ðÂ\9eìÈ\92îÃ\91Û¾\95æÎ\8fçÅ\93å·\97ì»\8bìµ\84åÇ\8eãË\92éÆ\7fïÄ\80äÄ\82çË\86âÂzãÃuðÆrð�qû¾xÿ¼vö¹{ÿ»zÿ¾tÿÀoðÆpïÉxæÀ{è¸xåÌyãÓzØØoãÓx��hÞÎeáÖkÞ�vâ�oêÖqèÔuççmì�tã�cÞÊeáÉbØ×^×Ëeá�eÖÕ\á�cÜÒ`��VãÓUâ�NêØYë�WìÓSãÈVâÅUé¿VåÆUá·Jí¸MíÀVä²Gç¼Gò»Sé²RÞ°Rè¸Vê¤`ä¡Uä§KÞ¬Læ±IÛ±Hà ¡FÞ­H̬XÛ«V߯Q�¹QغVÕºTȶJÌ¿TÄ®N¸ª@µ°=º¹K«¬>²®@´£@¸\94;º\9bA¶\8f2­\936¬\95;­\9b6³\9f2¶\9e2£¤+¦ 7\99\950\98\9e0\99¢;\9f /\96¤7\90£6\9c\9a+\91¡1££.¨\9d6¡\9a%®\99+©\9f& \96$©\93"§\95+£\8c-ª\970¤\8f"¡\90'¥\8b#³\96\1e«\97.¯\98.¦\8f,\9f\88# \95(§\97#¡\91)¦\8b&§\8b'\9f\94+¥\93<¢¢@£\959ª\95@¯\99Aª\88@£\86E¦\92?®\87F£~O\9a\80@\98\7f=\99\8aN\91\7fL\97\85P\8b\8bL\90\80P\8c\84Q\84\87U\82{X\85ub\88nZ\8dpj\88wX\8ah^\95c^\88f`\87fm\91lr\93_w\87dq\81]o\92Um\92Pg\91Tj\98Oo\96Zl\9a`a\9cVm¥^g\9c[g¬Ug¯_`¥T]§bZ²gT¨XV¢_Q£aQ°RZ§TW¦XN°^b \g©]dªVg­K`­Hf®Gkµ=p½Bd½9j¾6l¼9}¹/xÊ+m\8a\93³\7f\9aµy\9c·\7f¥¯~£ª\85\94¯\7f\92®y\97¼~\9d¬w\98ªu ±\80\99­\90\9a¹\8f\95·\8e\9aµ\93¢À\90¢»\9c\9d¼\94¥¹\93£¾\9d ´\96©·\94¦­\9d²¦¥°§\9e¬¡\9f©\9a£\9f\9e©\9d¥\9d¥¨¨®°©¥«²¡´¶\9c®³¤³À\9eª¿©¦Å«³Å©´Â³¶Æ·¯Æ¶®Å²¸Ä©¼Â±À¹´Ã½¶Ó¹·�µªÛ¶«Ö¾ Ú´¢ßº§ëàç�\95åÃ\94à À\8cã�\95íÆ\8dæË\8dïÇ\83ó¸\89ñ³\87è·|à »{æÈ\85æÂzé¾wôÀyï¾\81â¾ußÄrçÇné¼pò½|ÿ½xÿ¹wÿ¾sÿÂpþ¾i÷Ãpñ¹\82ä¿\81ç¹\81à �\82ÜÒv�ÖuÞÛpãÓgäÓháÒvâÑrëÔmêÕmîÖmëänòáríÛgÜÉkÚÇeÛ�]Ø�]ÖË[ã�^à Õ_çËfà ÉXêÉQæÇPê�KäÖFïÎRôÉRçÉOßÉUåÀWð·QîºLó«Wí«Qê¼Uê¾JíºHæ²Lå¤UÞ¥VÞ\9e\Þ¤X×­TØ®Nã¥Xà ¦PÙ¢S�­R׫V�³YɺOÔ¸J�·N˼V¾²S¿¯G±®@°³E«®D®­C®\9b8»\963·\8c2²\8d:­\90:¯\998¶\8d2±\919´\97:­£1¡ /\9d\9b6\98¡6£\961\9d 5¢\995 \9e5\92\9c:\9e\95:\9b\97-§£)§\9f-¥\9d-©\95(©\8a'¦\8f(¢\911£\89.¥\93-¨\8c*¦\92&¡\91'©\950°\9d)®\9d"­\98#¨\98&\9b\91*\9d\87*\9d\8c\e®\94)­\93*­\91/\9c\913\9b\94.  4\9c\9b1\9e\9e8¥\96>§\8a4¨\93B©\8dF©\8eD¡~M\9c\8aC\95\8aE\95}S\96~X\8b~R\8e\81J\93\84O\90\84T\8f\7fY\89\81M\7f\81_\84yf\89\7fg\8c|Z\8awb\94fX\85`V\87je\81qu\89ks\8fho\8e[o\91[f\8dWe\96Zc\93Oo\96Wd\9e^g\9e`f\96R`\9aJdªRi§^f¤a]°fgµde´[f¢RY X]ª]Z¦]V¨VQ¨[b¦^c²[a²Tl¦Qg«Jh®LxºGwÂGuÂ8kÉ6hÅ2vÇ)xÃ*o\84\9e¹y\9bµ|¨·\88\9e±|\9e®\81\9d°\7f\9b³}\94·x\97·r\9b«{\97¬\86\96£~\95®\8d\95«\86¢¹\88¤½\9aª´¢\9c²\9b£±\92¨­\92¤­\97£­\98§¥\97°¤¡©¬\9d¢£\9b ¤\9a¡\9c\9b\9a¯\9f\9fª¦ ¤¨¦®´\9fª®\99¦« ©²\97®±\9c­À¨®Â©²É°©Ç²¬Å³«Ë¯©Ë³®Ë¸°Ä¾«Ç´­�¸²Ñµ¬çº±Û­¨Ø¯\9dæ¾\9bà ´\9aßµ\8fà ¾\94ܾ\93áÂ\8aßÈ\8fð�~ã¼\85åµ{òµyñ±\80ò´|ë¿tê¾qâ�xßÆtæÃwãÂjèÅjë½tá¼\7fö½sòº\83ñ¾\7fÿÄw÷ÅpÿÃeøÇzïºxè½\80çÃzì¼\80çÄrÞ�xÔÞgØ�dÞÙdå×d��fêÒlà ÖfâÚoïðpéÚeçà gà Òsà ÅfÞÇhØÔ`ßÖeâÊh�ÑcëÉaæ�bá�OæÃNÜÈVìÇRðÅZñÄMïËOíÇKç¾WäµSòµRä²Jí©Nê°LéÄSæ´Nå±KߪSß²Và ¦Ká\9ePÛªVâ¡UÞ£^à ©XѱVÙ·Q�®TÈ©S̯OƲIι[Ì®X�¹Q�¶FÀ«M¬µ:«­@¤¢8² ?±\9a0ª\942§\924¯\927®\8e5´\9b4¯\9b?´\9a;¯¡0¤¤3\99¤=\9d\9e3¤\9f4\9e\993\9a\975\9c\92=\95\96:\98\94+\97¢'¤\95.¤\980 \93!¬\8b+¢\89\1f­\90"ª\852§\81.£\8d0²\8c*¡\930¦\87#°\950´£(§¢ ¯\96&\9e\9a$ \8b/¦\8d"\9b\87\1a\9d\94"§\97"\9c\99.¢\9f*¢\9e7\98¦0¢\9f;¤\9e=¯\8b9­\86<§\84?ª\81E¤\83A\9d\87D\9e\85M\9e\80H\9a\84M\90\84Z\95\82O\92~R\8a}K\89\85O\8e\8cO\85\8aP\85\80^\8f\83Z\8f\80a\87|P\8coK lS\98q^\86ug\82rm\7fet\89fm\8eYo\87aa\92\l\8cRj\92[r\96Qo\97eq\95\o\95Qj£Rc¡SiªZk¦\g§ae§as X`¡QR\9a^T¡[\¡Xb§L[\9e]`¬Tb²Qo¨HiªPl²Rl¾Ri�G}¿Mwº;zÇ;wÅ?\82Ì)tÅ!p\83\9bÀ\81\9aº\85\9b¿\83¤µ\7f\99®s\9bªn\93³s\96±}\8eº}\95²\7f\9a¶\82\94¨\8a\96¬\85\9c«\86£¬\88©º\98©«\97\9dª\95\95§\9a\9c¬¡\9c¬\97§®\9c©´\9aªª¨§¯¤¦ª\9a££\9b\98¢\9d\97¬¥¡²­¢¶¯¡¯¯\9d¯­\9d£¬\96¤§\9bª³\9b\9e²\9d\9eµ­ Å¯¥Ì²¬Ä¹¦À¸¤Ç°±Ò¹ªÑ´¨Ñ¶¬Ñ³§Ø±¨á±¦Ù«¤áµ\9dܸ\9bÚ°\95Ö¬\8dâ¶\8bß�\87äÀ\8bâÌ\81êÆ}ðÅtåµzî¶~õ¶yï¾ué½jéÇhåÂnè»oÙ¾c�ÄkâËmà ËwéÅ~ï»|ð´}ì¾\86ö½~ùÂvùÄoíº{î¾zðÃwíÀ~éÉzéÃ\7fßÒ|×ØoØÓpÚÓdèÖ`å�gâ�aßÞaçÞeèêeòÜcêÖjæËjè�sêÉuãÓsâ�oåÑbèÕ]ã×_à �SæÉWã»`Þ»Zá¼PêÂVíÈOåÂYâÅJì¹Jñ»Xä¶Uë¬Uâ®Oà ¯Hß»K�¶E�¸JÛ¶Ié­Ið\9eYê\9eXñ `ì\9fZÛ¡dÚ«\�´[Ñ°[Ñ¥KΧL΢S¢W£TʱUùUÅ´L»«K¯©>²­3¥¢4¦\9a6§\942¤\912¬\95=°\8bH¨\8eB¦\93Eª¡@§\9f7¬¡9¥§< ¦<¦¨;\9d\9d8\96\954\96\945¡\96.¢\93-¢\940\9f\9d-\9c\9d(¦\94%¡\88\1e\9f\87&ª\8e+¬\89(®\86$¨\86,²\8c#«\87'°\87"¨\8a-­\92.§\9b(±\9e$­\99\1f¦\91\1f¢\8c#§\8f)ª\89&­\92%£\9b$¦\9e(\9b "\96\98-\99\9f4\9a\8e-©\8c2²\8b0¬\8d6¥\919£\85<\9e\88G¤\7f@\9d\829\99\80C£wO\9bzV\97zV\97\81Y\91\87N\87\83O\86\81P\8f\87L\95\81S\91\82Y\91}Y\8dlK\90pJ\9dhR\8fjW\8apa\87h^\86ne\90ln\8fYi\8f\i\86Vg\8fXg\8a\s\90Wy\9fZs\9e[s ]s¡Xg\95\l\94Uf¤Yk¯Ul¨Xo Yn\9c^\¤TT Z[§W]¢Ra¥Ve¤Vd«Vi¯Ij¯RmµNj¹Kh¼Ot¾Ky´D\81ºHzÆ>}Ì/\82Ó$u\89\9dµ|\98¶\81\99»\80¬¸v\9c³r¤¶w\9a´j\92ªt\9dµx\95«z\97¯\7f\8b­|\90 \84\97¡}\99¬\8c§»\8a\9e­\97§°\91¤ª\94¥¥\8a©ª\98 ¦\92««\93­­\98¨¦\99\9d¨¥\96ª\96\98\9f\9a\9d¥¡¦¨ \96®«§®£\9c°¦\9e¢¦\98®¨\95 ¬¢¥¶\9f¡´£¤¼¦®Ä¨¥¸¶«½´¦Ç­¨Ñ±§�´ Ô²¡Ù²¦�³\98Ò­\9fá®\97è¹\9eá³\96â¯\90ä°\92é³\81é»\84Þ¶\80åÈ\80ìÅ|ð¾~í¶wö±sò�kñ·nå³rèÂvèÌgç¾eÖÃiáºaâÆqïÃfìÃuçµpåµ\82ò½zñÊkù½kð·n÷½mñÈvï�wæÂ{ñÂpðÑsåÒkÞßnáØjâÑcéÕoïÒdãÕgÛÖfÚçdáðnêájà Ùhæ�ví�wêÌsåÒsñ�läÛcäÔg×Ó]åÔ_à ÒLáÆRäµYã�Xñ¿LâÅLåºMà ¼Zð¶Oêµ]â·T×»RÙ¬QÙ·PÔ»EáµUׯJà ­Qà ·Fá®OÞ¡Yã©]ß\9bSå¦_�¤PܨZ�®LѪTÎ¥MÓ\9cEÇ\9ePÒ«VÑ®RÌ¡V�¥G¼®9´°3­ ?­\9b:ª¡<­\90<¥\9b4¡\92>\9e\91F±\91C¡\8a?¤\91=³\9e7±£D²ª@ª\9bA¨§7\9d\987\9c¡,\98\974\9d\9c,¯\97.\9a\91+¢\97"¦ ) \93$\9b\89\1d\9c\87$«\87/§\8b.¯\91*¦\8f'¦\8c\1fµ\8b&­\8d ¨\8e#­\8e*\9f\9a(\9d\910¦\99$\9b\91*\9b\97%\9d\8b)®\8a3¦\98-§\9f/\9a\95#\91\93 \90\9a0\9f\944¤\8e6£\9a1¥\8d/¨\9b,¯\92> }Cª\84G§yE¦|<\9cwD\91vF\9c}P\92vW\8e\8bL\84}M\8d\85Q\8a\86I\95\8aW\90\86O\8b\84Z\96\80^\8bsP\8cpP\9ecS\95hW\97v\\91sc\8egj\91mb\95[l\8e[j\7f]p\85[x\91Vr\93Yy\9fUp\9e[v¡Ms\95\u\8b^m\96Wc\99To\9d\t¥Nh¡[o¨^]§Xa\9fQe¥P\ªLl\9cJ`¡JX®Nm«Di´Rd·Gs®RtÃJr²MqµAy½F\80À;{Ê8\82�$|\83\93¼}\9c·\84¦À\86­¸\82¬´x¦´uª¯k\9e«i¢­o¢®j\99 t\92¡~¢ }¡¢\86\9f«~\9cµ\80«­\93«©\93¬¤\86¬«\85°¦\94¨§\8d«¥\96« \93ª \9d¥\9f\96¡\98\94\93\9c\99\9c\9b\9c\99\9a¦¡®¢\9b²« ¯¢\97¨ª\96«©\92§¬\94§¯\9d£©\99«´£§±¤ ½´¨½¬¤Ç¨©Ç² Ã¬\9bĪ �­ Ëµ\9eÑ·\93Ú¯\97å³\9dï­\93ê¯\86ç°}ß©\80ظ\84ܵ\86îÄ\83ïÃ\80ñ·yù²|û´nöºiò°jæ²uõ·móÇpë¸hä¹eéÆpéÂiè¿hè¶fëµiå­zéµlñÆhó¼n÷¹fï¼pôÂiöËlîÆtëÈpêÒn�ÕrÖÕsÛØjÞÔiâÕpç�eéËjà ÔpâÙiÛèsÜçtßÚnäßuãØoäÞlìÚbëÔ`îÖ[êÖaÜÄcãÆTëÊMò¾Hè½KáºNæÀMêºTâÃKÛ¿Räº\�±XÞ±Y߯TØ·`à ·WתMÛ©QÞ§Qß©GÜ°NÛ°Uã«SצUÜ¡\Ö¡[Õ\9bUß\96Wà \9cMÚ¤JÙ\9bJË\99Q΢F�\99SÓ\9aWÓ\9eEÈ\9aB�¨7º¥3³©,®\9d4¥¤5¨\995¡\9b=\9d\8e<£\84;ª\8b@­\87<§\8f9®\975¯©>¯¬B±\9e>®\9e7®\9f/®£:¨\9d3£\942¯\954§\99%\99\99"\9f\95\1e\9d\99$¤\94'\9a\91(ª\92%¬\91.²\8b#®\8f&¨\89'³\8a ¯\8e(¤\8b!\9d\8d+\9e\981\9b\925¥\8a+¡\96"\95\98*\9d\96*£\911¥\98*\9f\96- \92-\96\94-\9f\9b.\98\97'  $¥\99-²\946°\981¬\8c3¦\838¡\88=¥\7fD\9a\82G\94xM\9cuN\9dyS\96wI\88\84J\8e\83K\8e\85U\84\8aZ\8b\81W\8ezQ\91\81W\8cw`\8euZ\8cn_\92gW\8amT\93j\\91rb\8cme\8bcd\91gn\94[r\88Zr\84\r\8dNu\90Xt\9e[|\94S\82\9bMz\9bIj\8ePk\8bUq\95_l¢Xg To¨_k£]a§[e¨J^¡Ae¥Fm¡H\¨O[¨Oc¤Pp­Wf©Ok´Li¼Mt¿No¼>zµ9~¿<\80�0tÇ!u\7f\96¼\88\95·\7f\9b·\82­¶\80¥ªw\9e°n£¢p¢ªh¤\9en¥£u\9c\9an\9a¢\83\98\9d\82\9d\9d\81¤°\80\9a±\82£ \8f­¨\86°©\83¨¨\8c¥ª\99« \95\9e\9d\8e¬§\97¨\97\9f\99£¡\93\97\9c\8c¦\93\90¤\9e\9b¥\9d\93¢«¡¥¬\9d¦¢\91¯¨\96¬¤\9a¤´¡¯´\9e¤³\98ª¹§¦¹±\9c·®¥·ª\9c�µ\9fÀ¨¡Ê¨\96Ó²¡Óµ\96Ó«\9fܸ\98Úµ\95è¯\99äµ\94è§\81ä³\8dà §|Þ¨{ä°\82ä¸\82öÃ\86îµ~ö·rþºoú´nù½oò·kë¹gùºgô¾qð­gôÀmìÄfë½cé´oè²oé¶tôºjëÃgõ¹níÄo÷ÈhúÌiø�céÅkçÔtæØmëÕqà ÌmßÔißÕfãÓkáÜqÛÒo�Ôg×à n�ëpÚ×j×à pßÓpá×hçÔeì�]à �cîÒb�ÎVß�]ÜÉ]ã�Já»Tî·Ræ¾Q�ÄGßÇSÙ¿TÕ¹Tè¿YÙ»bÓ¼[Ó·aÒ¸_ض^Ó²SÓ²QÖ§YÚ«VرFÞ¡Pä¦[Û\99[æ\9bVà ¤ZÒ¡YÚ£QØ\9aRÙ\9dNÛ\9aWÕ\91V�\9bK�\9aWØ\98WÓ\97HÅ\97K�\9f4À\9d3º\9c;¶\986ª\983®\8a@\9f\939¢\90G£\8b6§\979¬\8aE®\89G¤£<ª\9e>¦ 5¨\9f9¤¦)²\9e/¦¡)«¨/·\9b4³\98/\9f\95*¢\9f\1e¥\93#\9d\8b"\9b\95,\95\98.¡\8b2¥\93.¢\902«\87+¤\8d"©\88#¬\8e%£\87-\9d\93%¥\95*¡\900\96\8e/\9c\931\90\931\99\9a&\96\9e(\97\936\9f\8f*\94\8f)\96\9a'\9a\9a5 \981¢\9a* \9a%\9f\9a8£\98=«\94<©\8b9¨\898¥\7f:\99\7f<\95\82E\93|S\90\7fJ\8b~R\91{Y\97\83Z\91\85c\96wV\8e{e\8b\89U\92}Q\90z\\8bq[\8eyT\92sT\8fwO\92mV\9bf]\90k`\91j]\96ql\88ia\84\t\85Sw\89Wx\92K\7f\90]\7f\95Os\9aUy\99Uu\97Is\9eYv\97W{¡Uz¤Pi¢\i¦P`\9eRl§Da¡Ae¡En§Hc¬K[«La®Lp§Nt©Jg±DmÂF{ÅBr»=yÇ3~Ä6|�1zÃ.|\82\9a°\83\91²\84\93ºv£¸y«¯~¢¥r¡¥u\9c£n¢¢m\97\97q\96¢v\9a\9dx¢\9c\83¥©\86£«\85£¤\81§¡\82\9e\9d\81¢\99\85­\9e\8f¢¡\95\9d§\93\9b£\96¡¤\9d¢\99\9c\95\9c\92\92\9f\95\90\9e\97\89ª\92\8c¥\98\89«¤\97¥ \98\9fª\8e¦¬\8b¡­\95ª¤\9d±ª\9c¨¬ ¥®§\99¶¢\95®¤\94º®\9c¾´\94Ë­\8eÒ¯\94Óµ\93×·\9cà ¼\94Ü°\8fæ³\8bäº\8bñ»\82íª\8aã¦\8bãª\86Ú¢}�©wã±\7fë»zðµyùÀrø¹lô´jó½eó¾ló¶eôºjú®nô±oø¯gí¼jï½iíÂkç¶tì¸kî®iì²uñ¿wîÀlîÃcðÑdóÚkõÑfñÎkóÔtéÔmêÎpà Îtß�pÙÛqÛÜnÓÖfÕÖm×ÞoßÞnåÖaÜ�dÚØ_ßÚaÚØaà Øaà Ñ\åÈXéÈRã�SÜ�OãÃUêÀ[èÂRè¾SÞ�Qà �UÓ¸V�¾^ÜÄ]Ü»ZÙµUâ°`Ü·aâ¬[Û±Tã«^Ú¤Wß\9fPߣOâ©Tã¤Rç\96Nå\97Yå [Ø\9fQÚ\9b^á ZÕ£VØ\9cSÛ\9aNÚ\8cY�\93N�\91NÈ\8cBÅ\8aDÇ\90C¸\94:Â\964º\893´\87;©\8b>§\97G«\95@¯\98=¦\9b?« B°\94E¨¡E©\9dA§ 7¤¨-¬ 3«§,µ«1¶©-¯¥)­\9e(¦\9d ©\99'¥\97&\9a\8d \96\88,¡\90'\98\94,\9c\97*¥\952 \890\9d\84)¨\8d*­\80$«\83,\9d\89/\9c\84&\9e\89/\95\94.\9d\8f-\9b\92.\91\9f&\98\9b)\9c\9f(£\970\97\94,\99\8e2\9e\8c7¡\92+¦\861§\89+£\90. \907\9b\89*¢\87. \83;\9d\889¡{D¡{@\93\85A\94\83N\9a\80U\8e|Y\8d\84[\96{`\8etg\8e~a\98\88f\98\82[\94\7f]\95v[\97pW\95uW t\\9cuR\95pX\97nW\97hZ\8bkZ\86[h\8eZm\89X~\87T}\94M~\91S|\8fG}\8bLv\93Is\97S{\9cT\80\9dO}\9eWr\9aTn\9bWh\9eHm¨Hs£Gm©Ge¤;i¥>f\9eDg§@k¨:k´>l°Ct´@q¼Gy¼DzÀ<uÈ@wË5uÓ*~�/\89{\87²{\8c³v\97»\81\9e¸r\9f«~\9e¤~\9d¤u\94\9fv\8d\9be\8a£p¡\94p¦\9cy¤\9c\89«¡\8aª\9e\84\9a\99\81\9f¤|\9d\96|¨\9d\88 \9f\8c¦\99\8c£«\98ª\9c\97©¢\8c ¢\95\95\95\93\97\97\9c\92¢\9b\94\9d\93\9b \9c¡¥¨¥£¯\98¨«\96¯°\8d«µ\94«§\91««\94\9e±¢§®ª¡µ­\9a¨¥\91±¦\96Ŷ\94�©\91Ω\91�²\9aʶ¢�¬\9cÖ¯\8bÙ±\91ß»\85æµ\82ê®\8a�¦\88è´\84Ú¬\83æ´vòµtõÀ{ø¸tô¹bñ»jþ¾hð¿põÃiù¸aöÂbô�cí¼hë¼dç²kò¼oö�dò´mñ½rð³líÀkí�fâÄlòÊ^éÂZóÕaïÔfòÚgùÕgòËiîÃtäÔuáÒyÒà nÛÖk×ÑlÚÑnØØqÖßrßßpß×bØÕjÓÑYà ØWãÔbéÃVáÂVà ÈYîËRèÂXà ½SâÂOçÈXßÇI�½JÙ»PدUÔ·X×�dѽ]äµOÙ²Zß½a�¬câ¶VߦMÛ£Yå\9aJ� Tè Và \99IÛ\9eGÞ\90Oå\95TÓ\9fL�¤Yé WÔ\9cHÔ\96WØ\97PÞ\85LÎ\8fRÈ\90QÒ\8cBÈ\8c=µ\90:´\916°\8f9À\8b>«\886¯\83B¤\8c4´\99B±\9aA¢¥>°¥=£\9eLª\92C\9e\94F\9f\996\9b\97.£\9e*­\99'­¥(©¥"«\95$©¡%¤\93"©\94(©\96-\95\8c\1e\96\850\9e\91+\9c\93 \99\8b)¡\8d(\9f\8f/¬\95+¦\8e,¢\96)¯\8d\1e\9f\92/\99\88%¢\90#\96\9b$\9c\912\9a\9e(\9c\8e4\8f\9a4\9f\97)ª\96)¦\92)\99\89, \8d(\9e\95(\99\97)ª\95.\9e\98/\9c\8f:\92\867\9e\811\9d\821\96\85:\98{B\9ex>\8a|I\87\8bR\96~X\8bt[\99\82R yV\8d\84b\8e}b\95tQ\9a\7fT\98oW\8eka\90k]\95r\\9dp[¡sc\92iV\98sR\90fV\87b^\95hp\97fx\8cSm\81Ls\95W}\91Yz\8aV{\85U\80\8cMr\92Ku\8fM\82\95K\7f\99I{ Rx£Xj\95Tp\94Nu\94Rj\96Lf\9fCl§Gf¤Qu\9dNq¦Cy¦Ir®A\80¦M\83·C\7fºG{¹6\7f¼AuÆ8\8aÉ4\80Ñ6\8am\89«w\8d¯x\88¬}\94µq\8b³r\90ª\82\96ª\80\95«t\92©m\8d§x\97\9ay£\94} \99\84©\99\83¡ \87¡\9d\8b¢¤\82§\9a\83£\98\88\9c\9b\90£¥\87  \86ª\96\8f¨\9d\8c£\9e\92\9f\9e\8b \9c\94\92\96\9e\95\9e\9b\9b\9e¡£ª¦¢«¬¤¥§\96ª¤\8f¡±\95\9e¬\9d¥³\9a\9a³\9b\9c¸¤ ¬¤\9b±ª\91±¥\98�¨\8f¿­\90À³\98¿´ Î©¡Ì±\9aÛ´\93Ö·\91Ôª\86Ú±~Ù¨\85Þ³\8c�®\82â¬~ì¶ró¾nô½uò�jæ½bë¹Zù¹]ÿ»e÷¶jú½k÷½còÅgë½dà µb߶oá½sî¼eñµoó¹wïÂrâÀoÜÄqßÉcè�]ò¿_æÄgã�^ìÊhñÓdôÑgïÇtëÂ}ÛÎwÚÑ{ÑÙq×�gÜÛgØÚdÙárÔáp�ÜhÚÎfÖÎXÖÆ_çÂ\êÀXßÅJß¿KìÆOîÈUíÇVë¹VؼNÕÆK�ÇIÓÆL�³ZÔ¶aÌ´`Þ¼Sà ²RÒ­R�·`Ô±bç²Tá¤P�£Vß\9aLæ\9ePä\99Oà \94Mà \92IÙ\99GÛ\9cG�§V× NߨEΪSÎ\9cOÕ\97B�\8cAÒ\91?�\8dCÓ\98@Å\93F¶\8eJ´\92?¼\91G»\8cH²\91C±\8b5®\8b5«\978¯\96>ª F\9f£<\9f¥A¦\9fF\9f\939©\8d-¢\95,¥\9b(¨\9c,¥\9a#­\91&³\93!¯ )­¥*©\99,¥\8a0\9d\80+£\7f5£\8e/\9e\8e)¢\90$¥\8d%\9e\97"¨\8e#©\96+¦\90(ª\91 ¥\8e,\96\935¡\91.£\97'\9c\9d(\9d\9c)\97\94-\91\8d. \994§\9b*\99\8e$\99\92 \99\8f!\96\92,\95\9c2 \9a1\97\930\98\94:\95\8e:\8e\84?\93\8a7\99\849\91{D\8b}B\87yH\86\82U\93xQ\91z[\8fyW\9ayX\92z\\95{R\8d}^\8dxX\8cr`\90kX\9apZ¢qe£f_\9akf\9cu`\91rZ\97kd\8fjh\95ip\92cy\8dUv\88Rq\94Yv\95Tz\8cL{\89Oz\88R\7f\8aNw\89Pp\90Qw\9eL\80\9fNy\99Ip\97Uv\94Op\93Ug\97Dg\9dDb¦Jh¡Ou£J{\9aHy\9eF\7f¥L\7f¡J\87«M\84·K\82½9zÉ9\86Ã>\8dÇ=\84Ò<\83n|²|\8c¶x\88ª\81\9d´x\98²r\96¬\82\8a§w\92¬u\93£o\88¦p\9d\95p¢\94z¢\97}©¡{¤\9b\88©¤\7f§\97\87¥\9a\85\97\92\8e\9c\96\8b\92\9e\92¢£\88¡\96\93«¥\8e¢\95\92\9d\9e\9b\96¢\94\96\9d\92\9e£¡\93\9b\99¥©£¬ \9c§­£\9d§¥\9a\9e«£¡®\9d¨­ ©¬\9f¤³±¦±¦\9a´¸\99¹¶\8a±\93ê\8aµ±\92À±¢Ñ \9bƤ\94Ì¥\99Ú³\85Ö¦\88�¢\8bÙ°\8cà ¤~ܳ\80�»~ó�zî½gø¿rö¶bæ½bôº^óÀZìÂ]ú½iô»kñ¸aï³föÄmà ¼fÚ¿ié�gé·oñÃrò°vé³oãÄiêÃeà ÎbëÆgîÀhãÀlà ÎZßÓhß×véÔmæËuß�xÚÊjØÕtÙÙv×ÓkÜÖoØåkÒåwÓÒs�ÛoÖ�jÓÑdÙËWÜÆXèÇUÞÃMæ»GéÀKã¼[èÄ`ãÇYÖ·SÒ½LËÂFÆÄNȶ^ɶ`Ô«a×»WÓ®ZÔ©QÙªbã°Zè\9fQâ\9c^á¦Sé¦TÛ\95[å\96Pæ\8fIß\98BÚ\9eNè¤Nè®På\9bLÓ\9c>Ô\96@Ì\98NÔ\96@Ú\94;Ô\8eIÌ\93C¾\8aD�\8aK¿\8e>»\89L�\84?µ\93Eº\8fF©\8f>«\85@¡\8aA¥¡B\9f >£ 7\95\9a0\96\974\9b\92-\9c\9f/¬\9a4°¢0°\963º\94+¶\971¹\93-®\984¬\9c.µ\8d$¢\8d/ª},\9c\832\9f\89-¡\8d5°\8c1©\8f,¥\9b-¦\9b&´\92$¯\94%®\9e\19\9f\920£\9f:\93\934\9c\8e6\9c\9d6\94\94.\9c\95&\93\9c-\98\98(¬\90'\97\91"\94\90'\90\95'\96\9d&\9b\900\9f\9c*\8d\9b1\95\95>\95\88:\8ax.\9a\85=\93\7f=\9a\8dC\87\83D\88\8bH\90\81Q\94\85U\92\82S\8fyT\90vQ\96yT\98yT\8buY\8by[\95kT\98mZ\98ma\9eu_\95o`\9arW\8akg\93n]\8dhf\82hj\8a`w\8eex\90Wt\83Py\8fX~\92\q\87U\81\82Vr\84Xz\94Hx\96S{\90L\83\8cNx\9dKm\92Mx\93Vh\9aTq\8f[e\9bUc\98Ue\9fKg\9dKo\9fU\82\97H\81\9cS\82¢E\8e¬J\85´D\8b·E\7fµ<\7fÅ9\8c�<\8dÌ=\86�8~{\84¯z\82®q\91°y\97¯x\8f·\83\95²\86\8d²|\85¥u\85¦s\8d\98z\9b¢w\9e\9cz\95\98}\98\97}\97\9e\7f¤§\80«¤\80¢\99\89\9f£\8e\93\9c\87\92\93\8c\9c\98\8a\9b\95\92ª\9b\9fª\9a ¤\92\9f§\91\9e\9a\9e\93\97¢\97\96¨\93\9d¥ ¤¦\9f¢\99¢¡\9c\9f¡ª£¥§\9e«¯¦³¨¢®©®­ ¥®\96§¹\93®¼\89µ±\89½¹\96¸²\94»©\94Ƥ\9f�¢\99Ê\9f\8dÇ©\93ѯ\8fÛ­\94Þ§\87å¥\8fß´\89è´\83î¼që´ní±gî¹aô½\øÆXñÃYúÃXñ¸aõ±iù²gú¼kó¾læ²qå·tã½xä¿xë»m÷·sý¿yó·näµhà ÂjÔ¾vÙ¼r�»jà Ægà �uÙ�zØÔvà ËzÞÎkÑÆmÔ�mÖÊt×ËrÊÛoÒÕuÒÜtÙÎuÙ�jØÉc�ÇbÑÊfß¿X�ÉKéÄJïÃNå»Rê¶Zç½\ì¹Nâ½Mß�L��R�¹R�²Y×·X�²XȱW�´ZÚ¯]تTקTå\99Uà \99Pè\9d\é\9f_á\9dZ�¤Vä\99Hî\96@é\9aGߧAã£LÜ¡HÑ\97CÌ\97GÑ @Ó\9dFÒ\8cCÃ\86C�\8dD�\95FÀ\8b?Å\88AÂ\8bKº\8cG´\8b@±\90@¥\88<ª\8bJ¦\8dI­\9cN¥£E\99\9a>\99\990\97\930\9f\9a-§\9c1§\9a7¯\9c8º\9b>µ¤A¼\9d:º\91;³\90.¶\93*°\87"®\89,§\83+°\7f3§\833®\915°\90/§\99&­\99+©\9e%¯\9b\18©\9d\18¢\9f!¥¤2¡\9e1\96¡7\8f\925\92\9b8\90\976\88\98,\8f\9a'\93\97. \90+\9f\912\9a\94+\8d\91&\91\9e%\92\984\97\991\93\8f6\89\852\86\844\92z*\94\851\9b\846\9e\90:\93\8cA\8c\8fP\8a\82S\8a\84O\8f{M\92zZ\8cqY\8drN\95wR\8cqS\8dmZ\9cnU\9boY¡j]\9bmc\98jZ\91sY\8cia\8cpa\87qc\85hs\8d_x\89cy\86Zz\8cV\81\8e]}\95Tu\95Vz\8bVx\8eR~\91S\83\97[y\8dU\7f\96Sw\92Rp\9c]r\9b\h\9fbk\98Xj\9dWg\97\t\99Yt£Pt¥O|\9fW\86©P\89£O\8b«M\90ºG\8f¶F\8d¾I\8d´L\91»A\88·;\8fÀ<\8av\89«~~³|\8a®x\86¦\80\97²{\91¨\80\85³\80\8a¨v\8d\9ds\8e ~\90¤{\97\9bx¢\98\7f¤\9d\85\9c¢\81\9b¨\86¦¥\83¤¡\85\9b\92\93\9d\9d\8e\95\8e\88£\8f\8c¨\94\97¬\94\94\9a\96\9e¢\8f\9d\9a\92\9d\97\9d\97¡\9f\92£ \9e£¢\9e¯®¢\9d\9d¡\9b\9e¢¨\9e¥\9f§²°¢¦ª£µ©£® \9d¨¨\98£³\8cµ¦\93¸­\86´«\93º¬\92¾¥\9cÄ\9b\9aé\90Â¥\95Òµ\92�­\91Ôµ\84å±\89ç­\8d�°\8cæ²yî½tã½uá­qí¾]ð±jé¾Zô½[ê¿_ë¹gö¸bó¨]æ³dç¼dî²të¾kçµtîÃqó¯oç´dó¾uô¿läÊiÛÄdåÀeÕ»nÞÌqÚËsâÆnÙ�s×Ó~à ÖnØ×j�Êt×ÌhÎÓoÑÖrÓØrÌÞlÓÜmÌØfÖËcÑÉjȼaØÆVÞ¾T�ÃIèºJâ¹UìµSÞ¸^ß³[â¯NØ·ZθNËÄIÌ·UѼP̲Y×®^Ú»]Ò¬PÕ­[�®WÖ£XÛ\97Rê\9fRô\9fIè\9fOâ¥Uê\9bNÚ\8dLè\94CÛ\92HØ£HÕ\9aI�¤NÒ£?Ù\9dIË¢<Õ\93CÉ\8cF�\85H½\83F½\84=¾\89;�\90B�\89L¹\8c>¾\8f>¯\84:³\915 \8d>ª\8eB©\9b@\9e\9c9©\91D\9c\8d@­ ;¢\930ª =¯\99?µ\93;¼\98@¹\97@¹\999·\9c,«\8b)²\90.·\89*¨\85.³\8d,²\84-·\87:³\8a(±\89!®\990©\9e.ª\90%¨\8e ¥\9e\e\99 !\96\94 \9d¡5\9c\97;\8f\8e=\90\9a3\94\933\91\947\96¥'\9d\8d,\9b\97$\9b\8c\1f\96\8b\1f\9b\9d'\94¥\18\96\9c-\97\95+\91\870\8e\81,\95~+\86x-\8f\88+\94\8a8\8axA\8e~@\92uP\8e\84Q\8e\81M\83zL\8cxY\97x[\91mX\92zc\91yZ\95wb\91t[\96dc\92r^\9fhe\99la\9bmh\98lY\8bkc\88ll\86`l\92fo\91ps\94bu\91Z\88\97_s\8bPu\87bo\8a_m\8cX}\98\\86\8dPy\8eX\80\91Y|\8dWs\97bj fc\9b_o\9dbu\98Xt¢Yp\9e^|\9cTt\97]z\9fT\85¢U\88¯O\88¶L\8b«J\92ºI\94»O\97·A\85°I\82µE\7fÌB\8er\87§v\84«v\80¤w\86¬x\83±w\88®t|±y~²{\82®~\95¥\81\98«|\91¦z \9f\81\9e\9b\88\96­\7f\97­\8a\9c£\84\99§\81\96\9b\88\9c\8d\91 \97\8d¥\8f\89¯\98\8b§\97\98\99\92\9a\96\99\9c\99\92©\9d\93¢\9e¢\9e\9f©¥¨££¨¥¥¢ª\9f\9b¢¦¡¡®\9d\9e¦£\94®®\9a´ \98¯ \94µ\9f\88®¡\8dµ¨\8d¸£\92¾¤\9a�£\92Ã\9d\99É\99\96Â\9a\93¼ª\94Ê®\8aÓ¼\83Ü·\84Þ©\8aÞ¦\87ç±\80ä©vá±oÚ½fä·lç¯hâ¯gëµeë¾QíÆZðÂbì³fè¬cí¶cçºeßÀmæ´në¶hì¸lð¶hã°féºuíÅ{ìÅ{äÇn�ÇmßÈjÕ�rÜÄxÕËtØÄw�ÉwãÚr�áiÖ×oÔÖcÒ×h�ÖbÊÔh��g×ÙqØÎcÈÔeÉÈ\Ò¹[ξVÔ¾W�ÀOí¿Hä¿Hã½Xç±Xâ³XÕ¸SÔ¯W�³KÌ�NÕÈCÑÀI×»YÔ¸\Óº_à ¬WÚ®RÕ­Nß©NÚ¡Pá¦Hî\9eGå\97Jå\9eNä\9fDá\8eHÙ\8aGÛ\96QØ\9cP�\9dBË\95KÕ\9eJÜ£CÑ IÕ\93FÈ\8eI�\8e>Ç\86@½\8b@·\95CÀ\95@Æ\83JÊ\83M¿\8dA¾\8b3¯\8d6­\87<\9d\8e<\9b\88>¤\91>­\92F¬\92C·\913°\992§\95:­\95G¦\8eL­\98@·\96@½ 3°\927´\8a.«\83,­\89;ª\8a-±\8e)´\8a-¹\802º\7f0¾\8d#²\8c+©\95)¢\90+©\92"¢\8b\1d\9b\90 \9c\99#\96\920\9b\98=\96\928\8f\9c1\96\9f9\91¥4\98\9e&\98\93(\9b\8d\18\99\8f\1c\93\93!\98\9f%\8e\9c\19\88\9a\1e\8b\91'\8e\8d&\8cy0\91~;\8b\857\97\862\93\7f4\92|7\8at>\83p<\82tK~\80P\88\80O\89\82T\9avd\97zf\97sc\9d{[\92yY\91u\\8fih\9agh£ma\9bqc\9ehf\98ad\98i^\8ahe\8dej\88s{\8ep}\8aqz\97g\7f\8bf{\8f[t\93_{\89aq\96^\80\99X}\89\x\86O{\88Sz\86Yp\8daf\98_l\8fbr\97`u\9aTl¨VnªWx\9cW\80\96Y{\9fX\85§X\83°Y\90¨L\85©N\8a¯C\97±H\97°O\95³E\81¾>\86ÊB\86p|¯j{²s\85²pz³oz½z\83Àr|º||°\85\87±\87\96³z\93¨}\8c¨x\8f\9f|\95\98\82\96\9f\82\9c\9f\7f\91\9d\87\92¨\80\9c\9b\8b\92\98\92\9e\90\92\9d\94\8c\96\95\95\9d\9c\98¢\96¥\95\95£\93\8fª£\9b\9e  ©\97\9f¥\95®§§¬¤\97¡¬\9d\9c­¤£¨\9d§³¥\97´¢\97»¨\97« \97º \8aµ£\87¹ª\95¹¨\8b²®\94¯¤\90º¨\95¼\97\93¼ \91¸«\9aÀµ\8cǶ\7fÖ¶\81Ó²~à ¸yê­xä¶nà ¾gã»så¯n�«låªdä¸Té¼XêºUò´_å¹Sâ¬\íºWâ»YèÂdâ¾rå¯hð°jâºké¼mç¹mæ»mê¼pçÃxß�\7fåÊpåÉ{ÚËrÞÎrÙ×uâÖráÙuÖÜnÖ�}Ò�x�ÜdÒÔcÊ�rÒÕiÊà eÖØnÔÕq�Æ]ÑÄXÒ»TÚÃPãÀ[ïÄJÚ½KèµTä¬Lç¬Ná±UÕ³VײQѹSÔ¶U�ÃJÙ±MÔ±NÑ«[× L×°TÙ¢FÖ®RÞªSæ\98Hç\9cEê\9eS�\91MÕ\9aWÛ\93VÖ\9fWÓ\99GÙ\90QÉ\90>Ê\9eLÖ£OÙ¥LÜ\9aAË\95JÇ\8d;�\8aBÆ\8eGÀ\87NÆ\8f@È\8bEÀ\81@Æ\84I¾\8d@½\87:¶\939¦\909\9f\961¨\911£\8f2©\948¯\8c>´\99E¼\9c=®\8e<¶\8eB°\95B¸¡Bº\966¶¥1¾\92/°\98;«\8e<¹\94<¯\8f6¸\915½\91$¾\851°\81)µ\8b$¸\94 ª\93\1d±\8d#¤\9b\e\9c\96"\98\97- \8c"\9a\8f(\93\958\93\929\8f\90;\9c¢:\8d\97.\93\9f0\8b\99\1e\8b\96\e\96\95\12\89\9a\17\8b\9e\19\7f\9d\e\88\99!\8d\8e#\82\83$\86\80/\92z8\8axA\92\82=\8ft6\86\81:\92u:\8ds@\8duJ\8buL\90xK\96yZ\98{f\9c}\ nc\9dra\92wg\9ejj\99po¥al¤cX¤ng\9dbd¦md\94j[\98^i\9agb\96nz\8fpy\8en\83\97q|\8agr\8d^n\95i\7f\8em{\98a}\8fc{\8dPz\8a\z\94Yy\8cVu\89Xq\92X|\95^l\9eax [w\9bV{\9dN{¡N\82¨Z\8a¥K\88©S\81²\\91³O\8b¥B\8f®P\8c¸N\94µ>\8d±G\81¼I\8d¾9\90h\83°jy¿s{�r}½wyÉ}yÃ}\88Â}\86·~\8e±\82\8d¯x\8a·v\8a´w\8b¨\86\96¥\8d\96©\86\92¡\84\91¢}\9b\98\84\98\8d\84\97\93\91\96\93\92\91\95\98\9c\91\98\9b\99\99¤\96§ \90¡ \93£\9d\99\9f\91¡£\93¡³\92¥²\9a¨¶§¤·¢£®£ª±\9a©¹\96\9f¹\97\98´¢\94³¥\96»£\99¹©\8e»ª\89²¦\8f«¤\96¬ª\8cº­\90»¡\8c¹²\86õ\8f̶\8eɵ\7f�¯\84Ô·|Û·u�´t�ºlÛºlà ³må³méªbë¯^ä¯Vî¿Zè·Lð·Oò°Yä¶Yà ´Vç¿Uï»déºfî®cê²lé¼oß¹kêÀqï�kè½sëÆ}îÆ{ãÈ\85îÒ\83éÌ|ÞØ}áÙoÔÜkÔÕwÕÛrÊÓ|ÖÒzÕ�qÓÙm×ÙjÓ�eÌÕiÊÛnÕ�oßÅcܾcØ¿]â»XèÀWà »UåµIÜ­Hå®KÞ²K�³MܾSܾT�¸TÚ²UÖ¹YÖ´XÒ±QÕ¥KÖ¤Ká®Iá¨Lå§W�¢Pá\9cLà \95EÙ\99MÜ\8dTß\99OÕ\96TÒ\97N�\9eLÒ\99MÌ\92AÔ\99@Ì\9dEÎ\9a=Ø\9d?�\946È\9b=Å\9eGÄ\92JÆ\8fJÄ\90NÈ\95H½\8fGÃ\8a>¾\88B¿\8b7±\939¦\90.¢\902\9c\919¢\935\9b\8b5¥\87C­\90=¶\8eD»\93L´\8dB­\96<´\9cG¼\99<´\9e<»\9a;²\98=µ\98>¹\999µ\8f1¸\8a1¯\8f.³\8c\1e±\8c\eº\8e °\96%¯\9a ª\92#§\93\1d¥\9b&\99\96(\8f\90)\95\940\9d\8b.\97\8e5\99\948\96\98,\96\8d+\87\93-\81\93+\89\9c\1a\8a\91\11\89\95\14\89\91\10\81\9d\1a\82\94%\89\8b+\8b\8c-\89\7f1\8f\833\84v@\8a|F\8cz;\95wE\8euB\90vO\8czN\8f{K\8fsS\9cwT\9bta\9d}k¡ug¢|_\9etg ke¦ekªf[\9fc\\9f^g¤ge¥[c\9e_a\9eii\9agf\8cso\88qx\82ut\86ww\82w\80\8foy\8at~\91n{\99mv\91^|\93[q\99Wl\9b]s\8d[o\8bZw\9aS|\97U}¢Yw\97]\86\9aT\83 Z\7f¦S\8a¢J\85¤M\85±L\90®O\8b§M\93¦C\8a´J\8f²F\8d·K\87µC\92¸9\90Â7\8ce\81±iv®s\85¶n\8a»}~½\83\7f°zx²x{µ\85\89º\7f\88²~\8b«t\90§r\93ª\7f\9a\9by\99 \86\8c\9b\8b\97 \8c\9d\96\85\96\9f\89¤\98\90\99\96\92\91\97\8d¡\9b\99\9d\8f¡ \93\9f¤\98«\99\9f\9f¤\96\99¡\98\9d\97\9c®\94\9f¬\8c¦³£¨²\99\9f´\98¤¯\9e¢¦\9b¢¬¢ ²¢\9d¤\9a\91µ \8d´\9f~°¥\92« \95¨ \89ª£\87¾\9b\87¹£\8d¹¨\8dÄ­\81̳\84ïwÖ®\81�¹t׸wâ´sÔ¬uå³lè®lã»eð½Zö°YêÀVí¶Pð´SçÀ]áÂRä³Uâ¼^çºeâ�eÜ�pà ´fá¯cé±aÙ¶kè´ièÀgãÉvã¿zÞÄx�½~×ÃzÜ�\83ÛÓ\7fä�yÑÌw××kÓ�}ÆÈ{ÆÜl×änØà tÖÓmÎÙdØÙl�ÎeÒÙ_ÖÎbÖÂeãÆWåÆMÚÅUÙ½LÖ¾SØ®V׺Mß»C×ÂI�¶VÌ�PDZLÕ¸[Ùµ]�¯PÒ·RÒ­FÓ\9bOÒ\9fDÕ\9ePß\9fMä\9bMâ\94EÛ\95Oß\9cFÖ\95NÓ\9cMÖ\95_Î\97[Ë VÆ\94AÅ\94B�\9b@Û\9cKס=�\97BÙ\9eLÆ\9eHÇ\9bDÆ\92GÄ\90MË\93G¿\91L½\90I¾\8e<¸\95:±\89:®\965ª\8f=¨\9d;¢\9e0¨\95< \8e:\9d\90>©\8aF¨\96>µ\90H©\8cJ­\98D® ?·\9cA±\9a>©\8e6²\8a@¨\96A°\93>©\8b0¯\86.·\85%·\93,­\8c#­\8f%ª\8f'«\9a\1f«\92\16³\99\e§\93# \94!£\9a-\92\8e4\8d\97/\96\92)\8b\9a4\96\98/\8e $\89\90#\8f\99-\83\95\1f\8e\90%\86\91\16\90\9d\1f\88¢%\8e\9a%\8c\83%\87\8e*\82\8e/\86v/\87\7f9\91r4\8azE\93\81C\8d\82E\8ezL\87rG\89sM\99\80\\95{X§yZ©oh wl {d¨yt¤oo du\9bgf¤uW¦a_ kn¢\g¤e`\9bnn\9fin\8aio\90xv\90z\81\96rt\8eu{\8cjk\8cn~\90n{\94b\84\94cy\8b\u\9ebs\8deq\90gq\96^s§Q\82¦aw¡Pq¥Sw\9cUv£S\7f®M\8a®X\8d¤N\90«H\8dºC\86¥N\8a¤I\82³O\8c­Q\95±B\8e¶F\8d»D\91»1\8ab~¤h~ªc\83¯o\89¶n\81®x\83­n}´o\80½\81\7f±\84\8c§v\92©r\89¡s\8a\9cu\99\9bz\93¡~\8f\9f\86\93§\8b\8e£}\9e¢\7f\9f\90\87\97\8f\88\97\97\8f¨\8f¢¬\94¦­\94¤\9c\9f£§\98\9d¡\9a\9a¦§£¤¥²\9f£³\8c\9b«\9d\9b± \9fª\9c\9b«\97\99¦\96\9e¤¦ ¦\96\98¡\96\8f\9d\9b\8e£\97\7f\9b\9e\83£¥\93©§\8c³\98\88¸\9e\8eÃ\9a\94Ç¢\86½¢{¾¦|ȲzιuÒ¶qÔ·{Öºwß®så¦a�®]á³bâ°Zó»[ô�Væ¶Wíº[éÀcì�bæ¼_é¾cçºiÞ¸uÞ½që»géµjè¿fÙ¼cÛ¸pé½rë�\7fæ½|ÛÇxÛÃ\7fÔÎ\86ÔÎ\80ÙÅzØÆw�Òl�Øm�×qÓÌvÖ�sÇ�n×�hÙÎhÖ�rÖÜmØÔiÓ�W�ËU�Äc�Ê`ÜÃO�ÈKÕÂTÚ·RÞ¶R×ÂHßÀIÛÃJÜ»MËÀJ÷OȸUÕ³TÛ­U×­RάGÔ\9bJÑ\97HØ\9bFß\92Cà \9aIÞ\94LØ\93JÛ¤EÔ¦MÎ\9bSÌ\96ZÉ¢ŢQàDÈ\9bG×\91GÙ\94JÒ¢GØ\9eH×\9dTÑ\97OÄ\8fF¸\93FÀ\99DÈ\95@Ê\99I»\90A¼\907·\9b=²\96>´\883¶\8f<¯\9a6§¡7\9f\9c1£\925£\8cH¦\8aI£\96E­\9eA®\96J¹£Nµ¢Aµ\91<­\8f=¢\8aB§\8b:¥\8dA¦\86@°~=ª\81-«\88'ª\911²\8f+±\91 ¹\8d\18±\92\1a¯\9d\1c²\99!«\94\1d«\9e$£\9c/\98\91)\9b\8e&\90\91.\88 0\90\9e.\96¡"\97\97$\8a\93(\8a\8c)\90\8e.\88\91)\81\9a+\8b\99#\8b\92"\89\8c\1e\8f\951\8a\8c6\86\89/\84x5\84s5\92uB\91\82O\8a\88P\89yO\90zG\91uG\9d|Tªz_©wa¨{g\9c|i§pq¥mq£ru¡sn\99qh\9dv[\9aw\\97hi\9ejk¨cc\9cmq\9coq\93mw\8apw\8at}\95|~\95pu\8fln\88l{\8ah~\85m\83\91f\85\8cj\8a\94d\86\8d\\81\8ae}\9de\86¤^~¢Vv¡Wp¬Qt¥Rs±Pv«N\81±O\89³V\8a²G\88´E\80·Oz©K\80¤S\8e¨L\91®J\96ÀG\8bÈ<\8b¾<\7ff\80ª`{±b\80°c\82¨q~§w\80«w\85µs\84°\82\84µ\85\80¦\83\94 v\8d\9b~\89\9cs\8a¦\84\88¦|\90\9b}\8b§\82\9b¢\8c\98\95~¢\98\82\9b\95\93\97\94\96\9b\96¨ª\98\99§\96 \99\9fª\9a¥¤­\97ª¨\98¯\99\9c²\9c\9d©\91\95±\9e\95¬¢\9d®\9a\9b¤\9d\96¤\99\9c \98\92\9e\9b\93¥\9a\8f«\93\86¢\9a\81­\9f\83\9e\9e\8f°«\8f³¡|À\9c\88º£\8a¾\99\84¿¡\84È©wÒ²xˬrÕ±uܸqÕ·mÜ®kå®`ܧhá¶aêµ\ó´Vçµbð¶\ìÀ\æÀaá¹`ãÄVà Åeî·eæ�tÞ¼nç¶jß¼pؽlÓ´\�µpê¸vèÄqßÅuéÇ\82ÔÄtÙ�\7fÙÉrÖÒpÇÓqÓ�nØÔj�ÑiÚÛq�Öx�âkÓÕlÓ×_�ÜcØÛaÖ�`ã�QÓ�U�ÀbÚÀTâËUá¾OÙ¹[׿QÛ´VÖ»IܺK�¾J×¼QÔ®X̼N�ªWשPѦ[ܯ^Ù¤W�\96IÓ\91FÔ A�\93D×\96DÞ\91S� FÚ£Q�¢D�¢NÈ\98^�¤VˤPÒªUÅ\9aNË\9cHÚ¤D×\96P�\9dEÕ\9dIÌ\90FÆ\91A¿ DÃ\9eK»\97D½ G´\9e@·\91Eº\94Aµ\8a6±\835­\90@¨\94@¤\966¦\96<¤¡A©\8fJ¨\9cF\9e\93J\9e\9dR°\9fT§£R¶\9dE·\95K¯\92?©\88:©\8e:®\90:±\85C­\90<®\881«\89)¬\9e*²\9d!¨\9b#µ\98'¯\98!²¢\15¹£\1aª\9d$¡£$¥\99&\91\9b&\9c\923\93\9b0\90\9d6\8f\94'\92\943\96\98&\86\8a$\80\912\8c\89'\8c\8b!\8c\96*\90\97\1a\8f\90#\82\93+\87\93'\82\931\88\8c2\92\81A\8d\87F\97}:\97\81E\86\8fE\87{F\8c\80I\99\86V¡z]\9dw\¤wc§uk\9bmp£yi§rt\9fkr­nh¬wp\9em[ xo¦lr£hn¦ej§sq\92uq\97mp\93r{\92pr\9anx\93s{\90kn\94hr\92ky\97g\8b\9a`\88\98k\87\94h\8b\8cl\85\9bf}\92\\88¬U\88¥W\7f¡Os\9f^o\9e\{©Uv­S~¬O\82©I\84­P}²C\83µF}·A~¬H\86¬A\96»<\8aÄ<\81Ç6\8dÇ4\89[\8f\9f\\88¬h\89©f\82ªl\84©w\85¬y\88©t|°{{³\82\82¬\80\85\9b\81\96\9b|\8c\96\82\88¡\85\8a¦z\8f¢~\94¢\81\9a¢\82\9e\94\86¢\96\8f\99\94\93¡\96\93¦\90 ©\95\98\9e\96¡¤\9f\9c«£¢¨¡¡¥\9a«\99\96®\9d\98§\92\93©\93\9b¦\9f ¥§\9b§¥\9d¤\99\99\99\99\88\9c\9f\86\9e\94\7f« \83©\9c~£\99\89§§\83º«x»«{¨z¾\9b\88¼\98\91¾\95\88Π\83Σ\82Ø«uÕ«wÎ¥zÕ¯qÕ£jקcÞª]ë­]è¨eñ³^í³Sî·Yé½\è²`ê�gÞÂ\à ¼dä½hãÅjâ½tÛ¹sã½pä¾s�»fâ¾ué¿uè¸\82ç»\7fÛÊ{ÚËtÒ�oÓÇrÔÊyÇ�q�Ön�ÑwÇ×q��mÆØj�ÖmÑÔfØÛ`ãÕYÜÒ^ç�Xá�XãÇ^Ù¿VáÅVßÂKصNÕ·RÒ¶NʲJÖ¸QÑ�U�²TÑ´R�·Xʱ^ΫRǬT΢_Ó¢^Ö\96XÒ\94RÖ\93SÜ\9aLÓ\92QÌ\94KÆ\96KÑ\9dN�ªDȪKÅ¢PÊ©XÊ©QצXÛªYÒ¨X�©T�¤MÇ S�\97G�\93GÆ\96IÃ\9fN�¤F¸¡E´¥E´\9cN¸\9fI»\9bI¿\94Fµ\87;³\89@±\8b?¦\95D§\8f@¢\9a@¢¡E  >¤\9eJ \98F\9c\96O¤\99R³\92U·\98Pµ\91C§\8c<°\8d<«\879¥\923­\907°\8c;¬\8a3ª\98.®\9a0§\9b0«\9a%¨\92\18¯\9b\e©§\16²¦!¤ª"\9b¦)\95¡'\98¢0\9a¤-\95\983\9a\8e3\96\91.\8c\8b(\8a\87-~\87'\82\90.\83\94.\84\94"~\9a(\83\93"\85\97\1c\89\8f'\8d\90(\84\88.\92\8d5\8e\8c<\92\8dF\98\84B\8b\81?\8e\84@\95\7fE\8c\87Q\92~X¡\83T\9c\82b§t_¤j]¥jj¨se\9eri¢w`ªvg±~l¦ul\9fzi¤rt«kv¢op xr\99pg\99xm\9fxr or£l}\9brt\94tx\98f\81\94f\82\9c`\88\97\\89\93a\83\92d\8c\9b`\87\9bg\87£`}£Z\84¡\\7f«Tt©Pv¥W\7f\9fZ{\9eSz¥EwªGy«@\82»I\85¸A\86·@\8c¾:\8c³E\89¶>\88¼8\88À?\8fÅ=\87c\8e¯`\8d¦g\88¡l\8c¥e~ªh~·ey°p{µm\8d«z\8a°s\8f\9cv\97 r\90§\80\92©s\90\9e~\8f\9c~\8d¨}\90\99\85\99\92\8b®\97\8f \8f\8a \9e\99¤\93\97\9f\97\9e\9d\94 °\97 ¡\9b\98\9b\9f« \9f©\9b\96¦¡\93²\98\96¤\9f¡¦\9f¥­\9e\95\9f \98\9b\9b\94§\9a\89¡\94\88¨\96\85\9d\9d\7f¦\92\8a\9d\99\86¬©|®¤\7fº«\86¬\9d\82³\98\84¸\9a\87½\9c\83º\9a\87Ã\9esǨ{ظn�¬oÚ§vѤsà ±`ã²aåµ^â·hà �WéÀ[öÀVä²\í®fã´[á¼[à ÃcÚ·nÚ¸yÞÀnæ´v×»m׸iسrçÀeçÃpâ»uä½\7fåºzÒÇ}Û�nØÄqÖÊjÉÇpÑÒwÕÒjÚÔmÔ×kÑÒfÎÒvÓØ`��gÓÌ_ÞÆSÔÂRäÅVÖÉLÛÀN×½PÚ¾P̾TÉÄXÊ�NÑ»P�ÄOÊÉKÛºU�±]Ƶ`�¨W�¬Z�´]Ö§\�\9ec�\95QÌ\9bMÜ\95J�¢MʤFÓ\9dRÒ\9cPÉ£WÓ¡XɧEÌ\9fUÇ¢MɬNÒ¬QÈ°WÖ¦^�¡W�\9dV�\99JÃ\93MÈ E¼\99IË\9dQ¬AëOÂ\9cP¿\99L³ Mº J¬\93I¶\98J¤\91>¬\92;³\968®\988¥\8aC¤\929£\92?\9f\95>\98\8b?\9c\96A¡\9fHª\98H­¢F§\97H\9f\97C£\857¤\876«\93;¦\893¤\956£\924®\871¯\8f0®\912¯\96/³\9d"¯\9a\15¥ª"«®%¬§\1f¨\98%¡\97%\95 0\99¡;\8e\9e/\87\993\89\94,\85\8c5\88\99'{\95*y\8d)\80\99*\84\96\1cz\97 }\96\1d\91\8f(\91\8f+\91\97*\8a\945\91\938\89\8e2\87\90@\98\87<\99\8fF\8f\867\91\83C\8a\92T\99\7fQª~O«wV¨tg§rl¯plªl^¢{`¡}f¤}m°to©liªugªzp¬ll¢w~\9clm¨~r\99~v\9czt\99wz\95du\99fm\98qu\99tr\9bl}\97a\88\9cf\85\92i\90\8e]\81\9eb\86\9b`\8d\9e^y\9bWv\9eW~¯_u§Z\80£U\83¤Oz¥R\82¤J\7f®L}±J}´R\90´A\86»>\92¹?\82º@\89µB\87µ:\8eËB\92Ê;\86^\88\9fS\80¥a\81¡f\89¥n\87¤ez²]}ªd\82³g\94­e\95¨h\91\9cp\91\9f|\8c§x\8d\9fu\8c y\96¡t\93\9ct\94\98y¤\8e~«\8a\82¬\97\90¦\95\96\9c\98\96¡\8e\95¨\89\9cª\92£¤\92\9b\9c\8e\9a\98\91©£\9e¦\99\9e¯\98\98ª\90¡ \99\99\9b©\8e¤¬\92¥¨\93ª£\89±¦\80©\9ez\9c\97x\9e\94\84§\98|¦¦\82­\9c\86§\99\80ª\9b\83´\92}½\9b\83¹ª\84Ų\7fƨr˵mʶp�«tÜ­s�§pÚ¯hà ¯e�Àlâ¹`ßÂZâÅSôÃWïÆbá¹`ßÃfæ¿dÞÅiá¾påÀs߸vâ±wÖ¸q�´zØ´t�¼jâÈiâÅgáÅqØÀxØ¿uÚÀy�ÇlÖÆqÑÃtÜ�sÖ�lÞËhÚÊnÞØp�ØoÓÚnÌÕ_ÒÉQ�ÃPÓ·]×¼XÕËTÜÈKßÉP�»IÄ¿MÈÃXÄÆK̽L�¾RÔÉPÙ¼]Ù¸`Ù®eȯZÙ¨Y�ªbÚ\98eØ\96dÓ\93ZÔ\92QÖ\9cT�\9aQÆ\9bOʦOÄ¢NÈ\9a[�\9eWÔ¬LÓ¨GÒ\9fPÒ¬YʯPÄ´U˪bȤV¾\99P¿\9bQÅ\95FÅ\9dQÃ\9cLÉ£GĬF¼®D¾\9eIÀ O¼ Eª\9fK¦\95B\9c\95D \8eB¯\96C¯\957¯\8b:¡\8bB\9d\8fA\99\8f@\98\8c?\9c\8aB\9c\93;¥\97<¬\9bF¦\9aH«\9eC¢\92C¦\936¥\840¤\925¯\921­\8e+«\8a+²\8a/­\88&©\8e1¬\9d,¤¨*¦¦ ¡©(§¬%§¤!ª\97.© 7¡\9a/\9d\942\8c\926\83\9b.\84\97+\87\97(} 1y\945u\99(p¢#w \1e{\9c\1c\87\91\1d\8c\97\18\8e\9e \8c\9f-\89\98+\85\91.\89\935\8a\8b;\8f\84F\8e\85>\96\8f<\94\8fD\99\8bN\9c}W¤zO®v^ªpf®q^¨m^\9bod\9asd\9dzr§vn¥zj¨og¢tp¤\7fk\9e|u¤nz©|u­|~¥rt\97wm\9fhy\97jv\94sn\8cqk\89s\80\95k\86\9fg\89\98e\87\9f]\81\99\\86\96Z\7f\9d_\83\94j{\9ceu bt£Xk©Y~¤X\82\9aP\8b\9dD\83¦G\88¬K\80¤B\83­J\8d´C\87�@\8a»:\8dÄ=\8a½5\86½:\93Æ>\94Ì7\8bR\82ªZ\82§]\8c¨\\8bª\\81³a\7f®[\88°k\85±a\8c­e\8c¯m\97«k\96\97o\90\94f\89\91m\9a z\95\9fv\94\9b\82¡\93\85\9c\8f\86£\89\87¤\83\97\9f\91\98¨\89\9b£\91\9e¦\8a\97­\8f\98\9c\8e\9e \88«\96\8d£\98 ª\95\9c¥\9a\95¡¡\91¬\9c\9b\9c\9d\98¨«\92¬¯\85¡\9d\83ª¨\80\9f\96x\9e\93\83¡\90\8d¨\95\85© \8c¢\93{¦\95}¤\92\86§\8e\82µ\94\80À\9du¾ª|Æ£kÄ´h�°pÓ¹n�¸tÜ®wÛ¸kÙ´nâºmÖ¾lÙÅcäÈ`ë�^ç¹Yß¼cá¸XïÂe�Àc�µrØÀj×´oÙ°nѹmÞ¿hÙ¶mßÊjäÌcê�h�ÃjÙ»tܺuÙÅf×�jÛÃyÙÇvÖÌiÞÓiØÇoâÎpÑ�jÜØlÕÒb�ÊVÑÃVÖ½QÖÂ[ÓÄPÔÅGâ�L�ÈF×ÄP×ÄJÓÆ\˽XÄ�RÓÄQÖÌPà ·bܲcÚ±fÙ±_Ù¯_اiâ\9fcÖ\9cdÚ\9b_Ì\9a]�\9bW�\9cXÕ\9a\Ô®QѦVÖ\9aOÛ¬PÖ¤ZÓªJÑ\99Vؤ^˧YÈ®a΢`�\9e[�\97XǤJº\9fNÆ\9cHº¢T£S�£E¶¤B¿£K�£@¶\998¨\936¬\8d9\9e\94D\98\84=¤\875¢\924©\93<¢\8a:\98\8c9¡\85A£\91A¤\8e6\9d\94;©\91H\9e\9cC§\91G¨\8cH¨\90H\9d\8d?ª\8e-¤\899§\8a9«\8b'§\8c1­\880ª\8b,§\99#¤¡ ¬\9b*ª¨$\9e\9e#§¡)§¥%¬\9f$¬\98. \986\98\99/\87\8e+\8f\93*\81¤3\82\9d*w¥*|¡*t¡/\82¦\1f\84\9a\1e\84 \e\81\94%\85\91\1c\90\96\1d\91\94\1f\86\9e"\8b\98'\92\9a.\95\97/\98\87D \8f;\97\97;\9c\8fL¡\91R\95\84L\9d~J¨|U©kb¦ma\9eka i^\94jf\9a~j¥|m¥qg©vo¡\81i¨~p¢~uªns¥tx«xt¨u}\95ty\95pu\97fu\95dz\98kt\99ky\97_\7f\9ea\82\96b\8a\99b~¢hz\9be\84£\z\9b^~\9b\s©Vo\9f^x¡P~ªR\7f\9fP\86¥I\8d¦M\8b¦T\80µF\86¸>\90®I\97¿D\8b¿D\8c½H\8d¼<\85¾;\90ËG\97Õ;\8cZ\8fªU\90«Q\85¥R\86¨^{³Y~°c\84«c\85¯^\86²]\85ªc\92¤e\98\9ck\9c\98e\90\91k\92\8cu\99\90\81\9e\8d~\9d\89\7fª\83\86ª\87\90«\88\8e¥\85\90¤\81\9d¨\8e¥ª\9a\9e \94¡¤\98§¤\90©¦\8c©\97\99°\9f\8d¨\9e\8f¬\9d\89¨¤\94¥¤\92\9c¥\86¢¬\83¤¤} ¥x¢\9b\80©\98| \8f\87£\99\8a¡\91\85 \91\83¥\94{\9f\8e\87ª\98\83µ\97y»\9fuº¤m¹­j¾·fƵróg�´jÔ¾h�¿vÒÀ~áÃuå�rÞÈdâºoê¼hä½jí�\ê½]ê¾c�»mÜ·kÜ´dÛ´n�·jÛ´fß´kÛ¾qÜÅoèËmà ÂyäÇs�ÅqÚ¿kÔ�sÒÊp�½pØ�tà �x×�j×ÊpÚ×dÕÙ\Ö�]ÕÌTÌÌNÚÄIÖÂPÜÇSÑËQÖÂOÖÀDÓ¼GÓÈJÉËG�¿OŵZʸ[ѵcØ�[â�cÛ¹[á·\Ú±aâ¤Zâ\9d^Ú\9adÙ\9bd�\94dÓ\96YÒ cÒ\9b_�\9aaÌ¥b�¯dÒ©TÓ¬XÞ­Yâ§[Ö¤W�¤UÕ©cÈ«ZÆ£^É\99VÉ\9bS¾\9cM¾£S²¤U¶ªX®¬V³¥Lº\98C°\9b>±\968·\9a6³\99:ª\8e:¥\930¡\891¦\8a-\99\869\9d\926£\908¦\867\9d\888 \92.¡\8f5 \96<¡\92B¥\8fH¦\89H\9f\87J\9e\86A\9e\86C¨\869¬z4°}3°\7f9­\89.®\8c+¬\91)¥\96%¬\97$±\98'¦\98+®¤.¨¡%«§$§¢$¨\95"¢\94,\98\8b$\91\90+\86\960\86\9f,{¥"{\9a'\7f¥.z§(\83® \84¥(\82\9e%}\9c!~\98\1f\83\97)\90\90$\94\99!\8f\92&\8e\92)\93\948\9b\967\97\96:\9e\938\95\86@\9a\89M\93\8eF\97\83O£\80Z\9fvf\9ams£un\99|f\9brh sj§}b±yo©{m®}j³xm®uv¯xz±x~¬qy wu\9exu\92vy\94ix\95ho\98`s\9eet\95b|\94[\83\98_\84 ]}\9dd|\95\u\98`x\9eVo\9cWt\9e[s¨Vv¥N}©G\8a¦?\94­G\8e¯I\93¬K\91¸M\8e³=\8f´F\97µL\97�R\93ÆJ\8cÉK\8dÃL\88ÄB\91ÎC\93T\86¶`\8a¤[\89®Y\85£Z}£^}±`~¬g\80¬c\87¢d\90¤^\8f\9ba\96\9e]\97\97q\8f\96d\93\8cp\9b\8bu¢\8fz¡\89\88¡\85\89ª\87\90¥\90\98£\97\9b \93¢¥\97\99¥\90\95¤\89 \9d\8d¨ \94\9d\9d\8e \99\91\99\9e\97\9c\99\89¥\9b\8e©£\84£\9f\7f¢¥\86§¢\87©¡\86­\9f\84¨\94\8b¡\9d\85\9c\99\88¦\8d\83¤\89\81¦\86\84\9d\8e\88­\96\8b¦\9c\85³\9cv²\9cw�\9bg¹©m»¥fÀ¯v¿³mÌ®pδyÕ¾rÕÆoÕÈmÕÌnà Æl�¸oß»jß�\ôÅeå»^â¶lçÀmÒ·gÖ´`�®cÖ³hâºdÓ¼qÛÀuÞ¾ráÊrãÑfãÊrã»qؼj�ÇpÇ�tÌ�qá�}ÚÃláÔiÙÒqá�_��kÊÊ]ËÒSÎÉNÒÉV�¾HÔÊM�ÓQ�ÌIÔ¾=×ÆOǺR��G˲SκX�¼_ι]ܳaرVÛ°Vá¬_à ¸\Û²]Û¥]Ü©^�¬_Ú\9aY�\90fÓ\9eW�\9aSÕ Z̨`À VÒªH�µQ߬SÖ¯W�¦[×\9eSʬXê]¹\9ag¼©aƤL�£M²¨\³\9fMº¢V¸\9dX°\9fC·¦@²\98L´\96>³\9b>¯\937¶\939 \8b5§\87/¨\85/¤~: \90B£\96=\9f\891 \8c<¦\861 \841\96\83?\9c\86H\9d\8cN«~N \85K\9f\86<\9b\8a?¥\8aB¨}3¥\88-\9d|,ª\82+¤\896©\8d2§\8f.§\9c, \980¢\9d+¨\94#²¡!©§\1f¢\9f* ¤"« *\94\98'\8a\9b+\84£"y¢*~ª0|¢"\84\9f.~¦'x£+\84\9f&\81\9d\1fu\9c&~\93&\8e\8e0\95\99-\9e  \8d\9f+\8b\918\9b\9c>£\8d5\9c\97=\9e\92<\9f\98=¡\94L\90\8fW¡\91M\95\8aS\9b{j xm£sc\95um ke\9ezf§|k­\7fi©sq¥zt²vs°wt¯v}°|q®ts\9dyp®~o¢km\93fw\92fu¤e}\92`y\90g\89\9bb\85\9d`}\9a^\7f\9fb\85\9e`\81\96[v ]| Tv§U\80´L}¨T\81¯J\8a±L\8aµR\83­L\89°@\88¶C\89·I\95¼E\8d¼D\8b�O\87ÉX\97ÄF\84ÈF\93ÑL\95ÑE\9dSt°[{¨Y\83£V\88¨V\84£]\81¯`\7f¤`\84§^\95°Y\94¨U\88¢\\8b\9da\88\92o\8d\93r\8e\8ce\9a\90u\9b\8ft\9b\8c\84¤\91\87\9d\94\8d¨\8e\94§\98\92«\9c\96¡\99\9a\9e\93\99¤\8f\9d¡\8a¦¥\89\9b¡\92\9f\97\91\98\96\8f\95\9a\94\91\92\87\98\94}£\96v ¦}¢\9d~«\92}°\90\87¨\9d\86ª\96\7f©\94\84¨\8e\82¡\8b{©\84\88¤\8b\86¥\91\8eª\8f\86­\99\82°\9ar³ iÄ\9djÇ\9do»£j¬i�¬tίvÚ¾xÓÌjÖÈhÔÅdØÂpÖ½dà µeæ¼]é½dë¼j�¹hÖ½h׳`η^Ò¹gà ¿jß¼hÞÃk�ÅmÈ�sÒÊpÓÅnäÌfßÀhá¼gÎÅ`É�fË�tÞÅvåÔxà ÙqÖÖqÚÅh×�gÄÓbÇÊ^ÑÈLÛÆR�ÃKÕÄUÇÊMÇÄP�ÂCËÂ@˳MÊ»O̶MÔ³WÕ¯RÛ»RÓµ_Ù·_Ø°Z×±Yå²^ë°eß±`Ù¨cÙ°]Ó§ZÙ\99h�\9dbÕ£TŨV�¡U¾«K±JDzJÒ¬L΢LÉ\9bW�\9dUȦQ¾\9cU·¢d�§YŨOº­V¶¡S¹\99L¯¡O³£R¶\9cK°\98Jª\9eM§\97F®\9fG±\9eF±\93:¢\8f.£\8d1\9e\86<£\82:\9d\8e8¡\96B©\967¡\84/¤}1\9a\832\99\83B\99\89I¦\85I¦\7fQ\9e\84M¤zF \83:£\85:\97\821\9b\878\9f\8d7\98\83.\9c\831\98\932\9e\9c)\9e\9a*\9c¡&ª\97(«¡&¬\9d\1f¬¡ ¨\9f+\9e\9f#£§( °)\93ª(\8a®0y¬+\82§*\82©&\7f¬&\83\9e2\7f\9b'|\9b&{\9b\1et\95\1f\84\98 \8a\95(\8e\9a(\96\99+\98\9e.\8a\9c=\89\96C\99\8f8\97\96E\93\97A\95\93D\96\97L\98\92N\9d\93Q\9d\89`\9f\89^\98z_\95xc\99mf\9bop¥zk¦\83i£ti«se nk¦oy¨y{­xv¨}}\9fxz\9f\82|®\7fm\9dsq\9bgw\99s\7f\9eo~\9ak\83\97j\84\9bc{ g{¦Z\82 Z\88\9ec}\9c\y¤_{®b}«]\85µS\81¸X\81«[\8c»]\81»P\83¶H\92°D\8f¶Q\93²P\91´M\95ÂB\8b¾R\8dÆU\90¾N\90ÆM\8dÄL\89�N\95W}©X\80ªN\85­Z\85­[\89¦\\83­[\83«b\87§^\91©]\8d\9fW\91\9e_\87\9ce\8f¡q\93 d\93\8do\8a\98p\8a\92s\97\87{\9c\91\84\91\8f\91¢\8e\92¤\9c\8f©\9a\92°\9a\9d¡\92¡\9f\8f£\9a\94ª\9d\92\9c\8e\94\9d\94\8e\94\96\8e\95\9d\9a\9d\91\8e\94\9bx\9a\94|\9c¦v\9c£z¯\9a{«\90\84©\9d\86²\8f\81§\97~­\91\85¨\8eyª\95\84§\8f\87¥\91\89©\88\87°\8f|§\9aiÀ\9cn½¡iÂ\9dhº©h¼¦s�°z�¹wÔ·mߺhÖÂnÕºnè¼f�¼då´gå¹Yâ´eÖµ_Ú·jÙ¯]Ó«bÛ±b�µi�ÀbãÇ`ØÃaØ�gØÅ`ÑÊfÞ»`ÜÊYÛÌi�¼gØ�^ÈÌpËÄkÎÄvÛ×}ÞÜjÙÒh��gÎÇ\¿�W�¾TÒºSÓÆTÔÂIÓÀD�ÄNŽCĹC�ºLÉ«NÊ»K̯HÒ·XÉ«Wض[Õ²TέRѹYáµaÚ¬^׸aá´fÓ«e×°`Ú¤hÕ\98cØ\98S×¢TÂ\9cT�£O·«SÈ©D½¨F½\9fA½¢QÉ\92GÉ\99PÈ\9eX¸£]¾\9bf¶¡SÆ©QÇ\9aL·\99Q³\99U¾\9bL¶\97F¨\9eB¬§D±\9eJ¯\9fAº\94J­\8aJ«\89C®\913\98\8b6\94\843\9d\81;\94\93?¡\9a9\97\877\9a\896\9b\83<\9b\8a4£\82;\95~G¤\80K\9d|R\98vP \86J\93\859¤\88:\90~0\93z.\9az,\91}6\8f\830\9a\8b4\93\9a-\9a\97$\9d\93+\9f\9c(«\96) \9f\1c\9a\9d.\9e\99#\9c /\9b¢$\91¥4\90£&\81¡'y ){¢5\8c¨3\8e\9d-\88\997\88§,{\9b"\85 \1c\80¢\e\82\9d \89\953\90\94-\91\97/\89\8eB\8b\92C\8d\94<\99\8eD\97\8cA\98\98O\9b\9bR\9b\98\¥\9eX\9d\95`©\8de£\92_¥\8fd\95}^¤tb\9cxr¨zj\9e|e«rbª|iµqj¬\7fx®\80~¥w{«\81|\9c\84}­\7f{°zr«q{\9bg\85¥sz£pw\99n~\94v\80\99i\85£j~¨\|¢g\80\9d^}\9e`x¥e\85¨f\83³W\84¯a\83·T\82¸Z\8e°W\88³M\82·H\83´E\93½G\85¹I\90ºK\89ËH\83ÀI\83ÄT\8c¿R\94¾M\8d�S\94�R\94A\86¦J\83¯Q\88°U\88°T\8b¡Q\92£K\90¤U\8c¡R\8c¤\\86\96e}\96`\82 _\87\97k\8a\9er\85\98g\88\94e\8a\87o\8f\8a\7f\96\95\88\95\90\87\98\90\8e\9f\99\88\9e \8f­\9b\98¥\8f\99\95\8e\99\97\8d¤\92\90¦\87\8a\99\8b\8e\93\95\96\94\90\8f\9d\90\7f\95\91}\9a\98s ¡z\9c\9f|§\92w«\8fu²\91}´\97t©\94y©\8fy«\93\81³\92\8bª\97\87¨\96\82ª\91\81«\8cx¬\95o½\95tÃ\9foÇ£kÀ\9fsÉ£tÅ­uɬyÛ¬nå²dß»dà ·aèµ^Þ¸Uà ¹]׳^Þ·_ß¼dÖº]�º]Ô³b׺gÓ¶fÓ·]ÛÆcÔÀcÑÄ]ÔÃVÕ»_Ù½aÙ½]�»ZÎÊ_ÖÔlÓÎlÑÌs�ÌuÚ×rÙ×t�ÓbÊÇZ�½ZÃÃTǸQƽS�ÉP�ÇD�ÈCÌÇBýEľOɯZƱVɹK˹JÒ¯JʲSǪTÒ§QΦUØ´\ß²c�µbÞ²`Õ­gصh×´i̳a�¦[Æ\97]É\97XË\92Y¿\96M¾¥H½¨M´¬Qµ G¶£MÂ\94FÄ\9aMÇ\94X¼ Y¸£[À¦_ŧYȦMÂ\9aQ�\9bM¼\99Q°\9cR¦¦H \9eA¨¡?­\97<µ\93H­\83M«\84@¤\82H\97\84@\95\83<\91\8e<\91\947\90\8eA\90\8fI\9f\8d@\99\90<\9f\877¨\815¢}>¦\83C¤|M¡wG\92\82<\8fy0\94}5\98z2\8b}3\91\89<\93\83:\97\808\96\86)\9e\8a$\96\96*\92\92'\99\9c\1d\9b\98 \9f\94$\94\96.\96£,\92­0\97ª/\8f¤7\84¬.\8a 1\7f¥3\80 0\8b¡1\84\9d*\88\9f+\84ª(\80¥\1f\80¦\1c\80¡"\7f\9a'\83\996\83 @\87\99?\85\8e=\90\86K\9c\87O\96\88M\98\96J\9e\98P\99¡[\9d\98]\9e\9a]ª\9bg±\99c¦\93^ª\98b \8b] \83g \81e£{m ~l¯rq°vo©{y¯\7fy¤|l¦|p¥\84x¡\81|¤\80|«tw\9ey\81¢r\81¦r{¨j\81\9fr\80 pv¦b|ªd\7f³^y±c{¶^\80«]~§iy±g\81·d\89³`\83´U\7f´V\8cÀX\8f»K\8b¾C\8c�I\90¹I\83·Q\83·S~ÈK\85ÅP\89ÈR\8c¾X\93Ä]\8eÈZ\9cÑU L\81\98L|\9dZ}\9cX\8c U\83\9fS\98£K\8c¤S\82\9e]\83\9bX\84\9bg\8b\96h\85¢`\89\9aa\87\94l\8f\8ea\8a\8ei\8d\92x\86\8b\7f\8a\92\81\9a\9e\86\97\95\97\9b\92\8e§ \86ª\9d\90\9c\94\8f\9f\92\9d\92\8e\9f\8d\83\99\8a\85\97\8c\89\9b\89\83\94\8c\84\9b\8e\82\96\8b}\9d\92z\9d¤y¢\9ds¯\99s©\96s´\90\88±\93\7f¨\8e{¨\88\81\9a\92w­\8a\82²\88z§\92\81­\97t´\9bzª\9bg´\95w¼\9dqŬx¸£n¾¨qȸz̲uá­lß´dÓµ_Ú·hà ©fã¿eعYÙ¿gÛ·]×±]Ô·S̬fÔ±_Æ»eÔ°fÕ¶]ÉÆ]ζQÅ�]�ºP�Æ\Ò·Q׶]ʽeÉÅdÇÃ]Ç�j�Ôu��rÒÑq�Ó{ÕËg�ÖaÇÒ^¾Â[ÎÃQżS�ÊLËÎDÆÎGÕ�Q�ÀI¼ÄPξWŹ^Ê¿W�ºT�±YÊ£ZŧL�¥J�²\Ò¯a�ªcض\�¯[Ù¯eØ­iÔ®bÒ¬Y�³_É\9cRÅ\9eZÌ\99]Ã\9fH¾¨N¼§IÄ¢Q±\9fP¶¤EÃ\92DÆ\8fE¼\91T¿\9cU¬¥X�\9dRË P¡RãV¶\9dT²§W²¢G\9f\9fF¨¤Cµ\96C´\9b?¸\98O«\87C¯\8dF¢\92>\95\8cK\9f\8c9\98\895\9a\8eE\90\8eG\8c\87?\97\8bB\90~<\90\8eG\9d\86:\9dvA§\7fA\9eyI\9dvH\94yB\88\83:\88\80B\96}7\89\82;\98\8c6\9a\91D\8e\91.\93\81*\9e\88&\9c\8f/\94\94.¤\9f!\98\9b\1a¢\99\e\9a\9d'\91¤'\8f\9f$\92¡-\8e¦.\84\9f-\7f£&\8a¤(z\998|\9b:\86\9a4\89\9b4|¥&\8c¯%y§\1c\82\98!\88\991\83 9\89\9d8\83\92B\85\90L\8f\93N\8b\94@\9f\92D\9e\94J\9c\90L\9c\9aU\99\90_¥\96f§\9bh¡\93^²\9df¢\8c_\9c\8ff \8eX\9e\8d^¥{f¨wj¯\7fv´\82x²zs«\87t¥\80t³\85s \85s\9ct\82±|\80¯h\7f£ky\9f~\8b¢~\82®v\89²p}¨n{¬qv°dz«p\88µk|¬i\81·`\82·a\7fÂc|³^|½f\87¿g\86Ãe\86¶T\8d²R\89ÅT\94»E\89¿M\85¶_\83¿R\8fÃR\88ÄU\95ÎU\95Î[\92�`\97ÇW\98ÔSªOw\8cZ|\93Z\82\94M\82\9cQ\83\9cL\8d\9dO\85¥[\89¢U\8e\9f^\89\8fb\8b\90_\82\9cU}\99Y\89\8d[\94\8dd\8f\8bm\87\97u\8a\96~\97\92z\9b\9a\87\9a\8d\8f¥\8b\90\9f\97\89¥\9e\93¦\98\91\99\89\9b\9d\81¥\96\85¡\9c\88\9b\90\91\93\8a\8b\9c\92{ \92v\96\92\82\9d\9b{¦\9ap¡\8ek©\92s°\8b\85¶\8f\88µ\93\82§\94z\98\86~\9a\87x\9c\8a\80¨\87~«\85t«\8du­\8ds´\95k²¤t¸ªw´¯f¿¯eÉ©p̳w�§zÙ¨pÜ¥n�®hØ©fß®bà ½fÛ¿a×ÆdÕ½^ÕµZÜ´ZÉ«`Ƴa�¸[ðT¿­VǵRεXȱSÈÀVÃ�P÷XξWÔÅ^�Æ]��]ÌÅl�ÌnÎÎq�ÊsËÖsÒÛ^ÕÕYÒËaÈÊaÅÅZǾV�ÈJÃÈLË�S�ÆRÑÅOļL�ÄJÌÃTǽPƾOĪQÄ¥W»¬S¾¬Tî\̦bÖ¬[κd˵k̺bʸgÆ´hˬ]À´VÅ¥X¿\9a[�¨RȬP�®U�\9fN·\96J¹\9dG·\9dAÅ\9e@¼\9cI¸\91J½¢H±¦IÂ\9fPÂ\9cVÅ\94PÀ\9bY¶\9fW©§S±\9fS¨\98Dª\94@°\8fA¯\8dD¬\8dLª\90L£\90@¥\8dL\98\8eJ\9c\8fF\9d\867\98\85A\8c|G\88\82;\8e{<\94\87>\90\88K\95}Q\96\80J¤\87L¤\81Q\93sJ\90qA\8a|H\8b~@\8c\82E\8f\83=\96\81A\95\8fB\94\946\98\8b.\9d\8c*\9d\88-\9a\88*\9d\93)©\9f(¨\9b\1a\9a \1e\9b (\9e\9b$\90§#\98 #\90\9e)\86¦.\87\9e.~\9a8u\9c9|\9d7\83\98:\85\9b.\89©+\88\9c'u\9a&\7f\92&\8a\9a/\82\947\8b\8fI\89\8dG\8b\9b@\91\96N\9a\97K\94\97R\92\8aV\9c\99U\9a\96V\9d\91Y\9e\8b\¦\8c\°\98h¨\93g©\93]¯\90W¥\91]²\7fe¯zf¥\7fnª\80x­\8bvª\86s°\85q·\87{©|\87£v\82ªsz²k\82¦s\8a¡~\85¡\81\8d­|\90ºx\84¸g}»d\86»o\7f­x\7f°u\85¾j\86¾n|¾o\86Äa~Àa\84Çi\85Ã`\8aÉb\8a½Y\90¹M\8e·G\96ÀR\90½[\8d¯_\86¾^\82»^\8cÉf\99Éb\97Äg\8eË]\96ÊQ\96ÑQ¥T~\98P\81\94K{\9dM\8b\97V\91\98K\93\94W\84\9fZ\90\95V}\9bU\87\89X\82\8a^\81\91X\81\92`\87\90_\83\91l\85\85j\93\92u\95\97|\9c\9er\9b\92\82\9c\9d\84¤\9a\82¥\93\83\9f\95\87£\90\97\98\9a\94\90\94§\97\8e¤\8b\80 \85\8f\99\85\89£\94{¢\93s\90\87v\9b\92x\9c\93sª\91q¦\84y­\8b\80®\9a\85®\91\8c¦\8e\85£\91{\93\92u\9b\84w\9f\93z¥\8ct®\83w¬\87n©\8ah¸\9av´ j·±m·±kË«k�¦lÒ¤hÓ¨dÖ®kέb׬_Ù§eÖ±]à ´Y×®TÛ¹_Ò°[�¯VΧdȪ]Ê®]È«TɺMýMűXÆ·M¾¼Y̳\¿»Z�ºRý^Æ·]˽h�ºf�Âk�ÃnÉ�eÓÎrÇÕgÔÚ[Ñ�\ÕÈXÇÃUÃÊ]È¿PÇ�QÊÄWȽN�½KøIÒ·]ѲS˲\ȺRȨO�¯YÀ§U¹£YÇ«Säa�¦dÓ®jô\¼°fŹZ¾¼Zĺa�­T¸¤\�¬fíTÀ¬UǨTƦW½\96Hµ\9cK½£Iº¢H¼ D­ H¸\9fC¼¥S½\99PÄ\9eN¸¢T¸ N®\9bV¥\9bV¦¤Eª\8e=¨\8cA§\92F\9e\89O\9f\94T§\94Q\97\8eP¢\8bK¡\8cI\9f\81F\93\89;\95\84B\93\839\93vC\90\80<\86\7fG\92\84H\9a\84I\9cvP\9d\84K\97\88S\92wI\93qB\97qD\87\82E\8a\80<\90\80>\97\86;\99\8fB\99\874 \895\93\8b0\9e\82.©\861¬\8b& \8b\1d¤\91%\9c\91%¡\99#\92\98+\90\97.\91 %\90\94%\89¥'\8c\99*\82\9d&x 4x\9c9x\94:\84\9e<\84¤&z\9c0\80\97)\85¥4\81¤9\82\9b:\83\9aI\89\92G\81\9d;\8b\9aH \92Q\9b\92R\97\97_\94\99b\93\97] \90a\9e\93\±\9ceµ\98k±\97i³\98]´\8d`¬\93f±\95h¯\90g´\7fnª\8ax«\87{®\87{©\8dw±\81|­\80\87¤z\86ª\81\7f®p\82\9fr\86£~\87¡\84\91°\81\8b®\82\92µx\8b±t}Â}}¹}\90·t\8c¹s\8bÀr|¹n\88�f\84Àd}ÃnvÇ`\84�c\8c½a\85¹M\89Æ]\88ÀS\8d½_\8e¸_\89·d\8a»\\86·`\90Åk\94¿h\95�Z\8eÈY¢�W\9bL\8a\95S\86\95P\80\8eS\87\91U\82\96K\8d\89V\91\92O\85\95S\81\93J{\87X|\8eT\82\87X\8a\82e\80\8dr\7f\83r\89\84q\90\82v\98\90|\9c\8fy\94\96w\97\91\86\9c\9d\8b\9f\93\8e¡\94\8a\98\99\8c\9c\9a\8b\93\9b\9a\92\8c\9d\85\8f\9d\89\80\9f\8a\80\99\8cw \80y\9a\83s\99~x\9d\85w \87\7f\99\85uª\94\80ª\93\86¯\97\8b­\8b\85\9e\89\84\9d\8f~¡\96\81£\93w¢\92x \88v«\86t¤\8ds¨\9du²£m³ t¾¬kË´cΪiÒ¦fË­cÔ¨hÒ¤_Ú£XÓ¤bܱ\à ²Zصaá§VÒ¯YΨ`É¥aÓ®Yȱ_Å°Wù[ɵOÆ°Zº²T�±OǵXξSÄ¿^È·[�³_Å¿l˺nÙÂoÕ¿d�ÉhÎ�l�ØeÆÔhÉ�cÒÈ[ÔÌWÉÊXÂÅUÀËL¿ÆQ˾YƼUξW×·WÕ±\̨`É°\ǤPÀ©QÄ­P½©V»¤RÇ©WΩYȯf�¬i½±_ƹT¿µY´·W¹¨b´±g¾¬añ`¿ªYÄ¢SÅ\9fN¼ TÀ\94Q¼\9aR·\9aEµ\97H°¢@¶§H¸\9bL¸\9aX¸\98R¼\9aO¶¥S¶ M¥\9dO\9a\91B\9f\95F\9b\95H\9f\8bT\9c\8fV \96N¢\92W\98\97P \92V\9c\8dL\9a\82E\93\82A\94\89=\95~9\98\85;\8b~K\96~K\92yM\96{C\90{I\97\85I\90~S\96\84P\90yJ\90qO\8fyM\9c\84L\97\8bG\8c\8f;\92\8a?\9c\85.\96\90-\9b\962\9e\8d- \87+ª\8b/ª\91,£\95$¢\92&\9c\8b&\91\87(\8e\92+\84\90*\81\9a%}\97\1f\81£)|¦/|§*s«1v¡9~©1\80«/\85¬+\7f¤6v\9dCz§E\83\9bN\87\98E\8c\8dK\88\92G\96\94I\96\93P\90\9aO\91\98[\8f\99h\99\8ad\9f\8bl§\9ae¦\98e®\98f³\95a±\9cZ³\9ad»\97cÀ\9e`µ\95l¸\85s±\83y«\88\86²\81\88³\8d\8c´\88\89º\90\81°\89\80¬\80\88¦v\83¦v}¡z\80«u\91®\81\90±|\94±\83\90²\87\91¾y\8b½u\8fÊt\8fÌs\84Ây\85Àg\7f»e\80º\\83ÉaxÇb\89�Z\8aÑ[\8aÆZ\89¾V\8b¶X\8b·`\89¸j\8a�^\85¼b\8dÂf\86ºm\8eºn\97Åc\96Ô_\90Ñ_\97T\85\9bO\81\97R\89\8bG\86\9aJ\8b\8cG\90\89S\7f\91R\81\90I{\92N\7f\8cV\7f\8dO}\8cY\88\8b`\88\97g\88\84~\91\83p\89\8cq\91\8b~\9d\8f{\97\8fu\9b\9f\86\98\9c\8b\9e\93\8d\95\98\86\9c\9a\81\97\9a\91\95\91\8f\91|\9d\89\8a\95\8b\84\9e\87\80\92\87y\91\84r\99\8cv\95}j\99\84o\97\87o\97\95{\98\89u«\96\83\9c\8f\86¨\93\81©\8by\97\95\7f\95\86z¦\86w\9d\92w\9d\91x \8dy£\90k®\97j«\9cm®\9fp³¬sŤdË°eÓ³b�´Vʪ_ΣSÕ«aÙ©bã¨Tå¨Ræ¨`à ®Y�³\ɪ[űZ�µQ¸X¼°Y̺KýUűUƸS¾®MÂÀV·¶TĺZÉÀ`�²ZÆ»h�¼cβjɳfÆ�iÓÈtÊÒaÈÕhÈ�bžeÆÄSÇ�ZÉ�KÂ�I�ÄN½ÃVÄÊ[ȹZ˸QÔÀd̹Uʵ[�¯UÀ¬\·¥\ĪW©XÇ¢U�²`�§X»´V�²\Ä¥S¼¶Y¿°_¶¯Uº©`çZ³^�®T»\9cPÃ\9fK¹\93A²\8eD¶\9c?½\9dF·\9e=«¦;²£C»\9eJ­\98S¸ F»\98O¶\98Fª\9aG¤£O£\94G\9b\96>§\8aD\96\92[ \91X\97\90M\96\92U¤\92G \95I\9b\8cG\91\8aF\93|A\90~5\95\829\94\87F\8a\88B\8dvB\95\7f@\8c\82M\97zO\8brH\9a~S\94tQ\8d\7fI\88\81R\8d\81O\8a\82J\94\80H\98\7fH\8e\84I\94\8a@\95\95=\9b\92.\98\994\9e\8e2¢\906\93\89&\96\8a)\94\96 \9a\8f'\95\92(\95\97/\8a\9d+\83 %\8a¦0~¬0\83©0w£&\80¥/r¤:|­.zª5tª-\80¥/\82\9c=z\97C\81\95=\7f\92I\84\9fF\84\99I\90¤G\9c\9bP\9e\91X\94\9bU\98\9fX¡\90h\9e\98i©\97\¤\99]±\9bh° `¨¡b¼\91h½\9dfµ\91d¬\92l·\89y¬yt·\85{©\7f\80­\8f\84°\95\86·\8b\8a´\8c~´}\84¤~\86¨\80~¥~\8d´{\95±z\92ª|\8aº|\8f°s\8a»u\93Éq\94Àj\95Àp\8fÅ}\96Æs\8fÀj\80Çn\82Ãj\81ËczÊd\8b�\\80�\\89È[\8cÀ`\83°f\8c�f\8cÂf\8d¼o\84¹`\89¼m\8fºb\8f¿a\8eÌ_\96ÆZ\8eR\84\93H{\94?\82\9bGy\94N\81\91R\87\8fG\86\8eDs\94Av\91Nu\8fN|\8eSv\97c\81\98j\8c\92x\93\90{\8d\84u\8c\8b{\98\86m\9d\88n\93\96m\93\9d}\95\99\8e\91¡\8d\8d\9b\84\8f\92\85\8c\8c\8e\8d\81\95\95}\98\96\82\9a\90|\97\94s\93\8bu\9b\8dh\9b\83l¨yj£|q\9d\8cw\9e\97o¥\94x\9d\98\83\96\91}\9a\94\84¢\8dy\9d\8dz¢\8bn\99\85n\94\8co\9d\97n\9b\90y \93s¦\94l¤¤eª\98b²\9dj½ iȦcɲ^È®UÈ´OάLß³JߪV�®Tä¦ZÞ¨NÜ°SÊ®Pȱ[˵OƬHĹQĽXÊ¿M�¼M»µKÅ°WżX´¼T¼ÅQ»½U¶¶WÀ®]ʱWÅ´`�¯`»µ_ȼkÊ�j¾¿lÂÅ_ËÆgŹ_ý[À�UÉÌXÀ�NÂÈT»�]¶¿^¸ÀY��RǾ[¾_¾·_�»gÅ·_¿¹Z¼©Vº\9fMÆ¡TË\9fOĬRƪ_¶¤\¶­[�ª\Æ¡XÀ¨SDz\¿®[©S¹¨U¼¤P¾\9bA¿\91?µ\95G±\99G³\929´\99:²\9c8±£<²¡O«\99Pµ\9eJ¼\9eB¼\98G¾\9bB® E§\9dN \92G£\9bM\9d\9aQ \90J\9a\92T\9f\94W¨\98O\9b\93I\92\96L\94\8dK\9f\84=¡\8d:\9b\86=\94\87C\9a\82C£xH\9c{>\97sK\93yS\9d\81Q\9bzI\95\86K\8a\83U\8c}W\89yI\8b~M\88{F\91\80E\9b\8fD\98\8cE\8f\90@\92\9c=\9a\99A\98\91@\8c\926\90\940\97\8e)\94\93(\89\9c1\8b\92<\8a\995\87\9d5\86¢(\8c­%\86¦0\88«(x /y\9e-u¦9m«8n¢0lª:xª6\83¨7\80\95A\86\949\86\96<\86¦D\85¨M\92¨S\99 O\9a¡V\94\9bY£\94_§\9db£\97d\9f\91Y¨\92^±\95fª\92g­\94q°\9fn·\9a[¬\96a°\8dt±\80g°wk®|n¬\84w¨\8b\80°\93\80²\8d\8b¯\7f\87µ\86\89°|~¬|\85²~\91®}\9c¯s\96²|\8a²v\86¶q\8d¿t\90¹m\94ºi\8dÅu\96¿v\95Çu\8a�p\8aÊp\82Ëc\83Âh{Çh~Ãd\88Êi\83Àa\85¸j\82»s\8cºk\89Éo\87Çj\85Ìh\89Ê]\86Ê]\80¾\\88ÇV\8dÄX\96N~\94Mz\8fIy\94Ms\88M|\8aIy\8bL\7f\91Fo\86J\7f\90J|\8dW{\88Ku\99W\80\8ce\90\89r\87\7fq\8b\82|\8d\86w\90\8aj\9b\88r\9c\91q\95\9a{\94\8f\86\97\95\87\8c\9f\92\84\8e\8b\81\89\97\8e\85\94\9cw\92\92{\98\9b\7f\90\90v\8b\8br\99\92m\9a\8di\95\8fu§\7fn¡\8de\99\88k¦\8ep¤\98|\9b\9b\81\9b\8f\80\94\94\83\9c\89y¤\95z\94\8ak\98\90s\92\9as¥\90p§\97w©\97k¦\9e_²\9dfµ¥c�\9fV̧U�¥R¼¬QÒ¦QÙªMÒ¡Nå¤Tß¡Nç­Lè¦KÙ¸G�°GÒªXƳGË»QαFÀ¼MÇ�VÇ»PÀ¶\ı_·¯[³¹Yµ°T°¶O¶µa²¨[´¬g¸ºb´²i±Ã`¿Ãi�º[ÀËVÈ�a˺dǹa�ÃV»ÈZÂ�S¿ÔM·�[ÀÆ\¼ÃY¶ÊV»¹`úZÀºi¹¼eÀ¶Y¸±_»±e¶\9fe¾£cÄ\9eRŬW»®P·®L«¥X±\9eU¼£R³\9fR¶\9aP¿\9bT»£Z¶¬O²£UÀ¥P¸\99G¹\99B·\92B¹\8e8®\8f5´\99<¶\9fH¥\99;¥\97O¯¢Fµ\98K´\95@µ¡A¯\9aK¬\9fJª\92N\9e\8cQ\9a\91Iª\9fV \92J¨\94Q«\8eQ§\9aU\99\94H\94\8fI\91\89@\9d\8c8\9c|>\9a\89C\97\82?\99\84;\99\83A\99xE\90\84I\9f|H\9arN¦xP\91\80L\95\83G\95\81N\87{B\89\81G\86y@\8c\87A\9b\88B\92\8dI\8a\89A\85\92J\90\94L\89\91G\88\95@\86\89>\8f\92,\8f\8b/\92\9cA\8f\970\80\990\82\9e3\84­)\87¤0\85¢6}\9f&~£0}¬.}³,w¢,o %v¡)z¡0}\9c-v\9d;{\9d<\84¥>\84\9fB\8a§H\8b°J\91£S\9eªX\92 T\9f\9aW¤ Z\9e¦d\9e\97`¥\9be¬\91hª\8dj\9f\92i«\97c³\92h§\96e©\8dh²\86t²tt²uk§\82u±\81}®\98\83®\8a{´\8a\87´\82\83±~\8b©~\8c©t\87µ\81\8e­y\97«z\85´x\81½m\84¹g\88Äu\88¶o\94Âx\93Æl\94�t\8cÆu\92�j~�l\84Îk\8bÂc\88Ç`\84Ée\85¾i}Âg\80»n\86ºm\90¾e\8eÔh\8aÉk\8e�Y\93Â[\89Ç\\84Ë]\94ÀS\9a?}\8aFt\8d@|\87Hx\86Ny\83Eu~@u|Cv\81E\82~E\7f\84L\82\93T~\95d\84\8ff\8f\84r\99\8av\92\83u\8e\86n\95\82p\99\81r\96\90{\99\93r\92\93u\86\90\83\88\91\85\8f\84\91\87\84\93\8f|\8e\94\80\90\9e\83\8b\99w\92\99i\91\96h\8d\92k\93\97m\92\8bh\9c\88g¢\86j\9a\88f\9b\98m¤\9bx\99¢w\99\97z \94v\9b\8bw\9e\8ay\9e\94w\9c\9fm\98\9at\95¤r\9e\9dm¢£b«\9fe³\97^´\9eT¾ªUÀ¨W¤KÀ©O¢OÓ£LÛ\9cGß Dá£Bà ®Fé­Eà ¶?Þ°<�±HűIżIÑ¿LÌ»L�µY¿¾YÆÄ`ǾYð\¼³`½©W®­T³§Tª­]¶­e±·e¸¿g³À_À¿dŽZ»¹]ÂÅSÇÉZ½aÆÃ]ÇÃYÂ�PÀ�V¼É^¸Ä_ºÈbªÃX­Äg¶¶g¼Àc»g½³k³·a³¨`¹£e¸\9f[µ£aµ¬]¶¦L´©N±¤G¨¤N¯\98W­\9dT»\95V�¥V¾¥W· T»\9dPÀ\9bD¿\9fH·\97B»\9b;¸\99:·\8a8¸\86=¨\90F£\9fC§\9cB«\9bC¯\93A«\9a@±\9cH§\92K£\96W©\95V¢\96R®\9aP«\98K² R§\96I§\9fQ¡\98N\9a\8fG\96\92D\94\928\97\898\9c\86:\95\809\8ew>\8a|=\91\7f9\94~B\95\80J\9d|B\98\81L {J\9esI\91wA\8ev@\91\80I\87\86M\89\81A\93}N\95\85M\8b\8aC\85\8aE\8e\93A\8a\92E\8b\8e>\83\93F\8c\98@\8d\92<\94\8eF\90\91A\8a\937\84\967\80¢0\83¨*{¢'y§.t§2|¨)|¤'}¯0oª&q\9c$f\9b$k\9e-u¥)y«3\85°=\8e¤C\8e¯P\97³P\8c¬U\8d®_\8e²_\9c©Q¢¯X¢©U\9e\9fd¥£f®\95q§\90p\9f\96e\9a\8ch\98\9bg\9f\98g¡\91iª\8bi¬\84m²\7fl·yl±~l¬\8cz²\8e|­\8b\88®\8e\85°\8f\8d²\81\88·\83\81ª{\81´v\85®t\8a·q\8e¾s\83¶p\81½g\81µm\8bºt\91Âh\8b»m\91Èd\95Æj\8c¿k\83Èv\82Ìk~Ìm\8aÌq\88Âd\87Âi\81Àl\87Ät\82Ä|\86�n\8cÓd\86Õg\91�^\8e�_\8c�d\8fÈi\94½^\90By\90Ks\8cHj\86Bs\8cFp\89;i\83LjvMqvK~~Ux\8dVu\95[u\9bV\81\89k\87\88i\84\83x\93\7ff\88\85o\94\84k\94\81y\94~q\8d\88v\90\8e\80\88\92\84\84\88\82\8a\8e\8d\89\90\91\93\8b\8f\8e{\8b\94x\8e\9am\92\8av\8f\8e_\98\8fo\97\95e\9d\86k\94\82^\97\88m\93\96j\94\93w©\9d{£¡\7f\92\98z\92\93w\90\87}\96\91s\93\95u\98\93u\99\9fn\99\94f©\9d`³¥^²¢X¶¤a¬\99K· Tº\98ZæVÉ\9eLíMëGɱQÒ¯OÞ¬BØ­JÖ·HײOÕ»LÇ·VıK±NDZB¿OÎÃJÈÀUÆ�^½­Uí`µ²b±¶a«·]®±V§¸R§«^®¶`¯³_»¸\¼ÂQº¾_þOÀ�W�ÂVĹ[¾ÀZË¿YÉÆ]ÂÈ\¿¼\µ½c´�d¨¾`¦¿^·Â^µ­W¸¬]®«Y¸±f°£a»\9fV¹\9fUª\9c\±§O­¡G°§P¬ A´\9eGµ\95S¼\96]µ\9bV´¦[Ã¥ZÀ¥U¸\97S¹\9bM· E±\9fD²\94D½\88;¸\89Fµ\8c8³\8aD®\97:¢\9b;±\96K©\95G²\9aJ­\9bB¤\9bJ\99\90F\9d\9eF¤\95Rª\92F®\8eK§\99I\9b\8dN¢\99F\9f\8f?\96\9dA\94\91H£\96@¡\83A\93\8a;\99\8d9 }>\96\807\91\80:\91\858\98\84D\93z9\95yG¤sD\9dyI\8dwL\87\80L\92vH\85{?\82y?\92~L\9a}U\84~Q\85\86M~}H\81\91C\86\89C\7f\93H\8c\8aI\83\8b;\85\88:\8d\8a=\83\99:\82\9b6\80\9b1\87\9d,}«9x¥>wª0\81§$u¬4p¦8o¢5k¬$i¨.a©6s\9e0u¬6\7f©B\82\9eA\8a¥R\95³\\96¶`\88¹c\8f­_\96§Y\9e£P\9f«R¥¡_ª¡b¨\93c\9b\9bo\9d\9bf \9cf \91c\9d d¯\8f_¬\81c¹\84`»~d´\82h±\81sµ\87n½\8as«\88s¶\92\83­\7f|·z\85¶\80\8aªz{¨w\80²q\93­n}´lx¬c\87±b\87¹s\8dÂn\84¿n\8a¹o\99Ëk\99Âl\88�k\92Å|\80Âk\81�w|Ìj\87�m}¸o\8b¶o\8bÆu\94½u\96Îs\85Êk\8eÌk\8cËg\8bÊa\94Åb\8fÌe\84À[\93Qt\8dGq\8bEb\81Ba\86D[{;c|GntMuyPu\89Tv\8f[y\91Qw\97b\81\9cc\87\94j\81\87s\84~g\8e\86e\8a\7fj\85yy\84}r\8f\83t\8d\82z\8a\7f\83~\85\85\8b\8f\83\91\8d\87\8d\8f\84\87\85\8a\8at\91\8at\8b\8ah\88\88e\88\91i\99\8db\95\8a_\9b~_\98\8ek\8d\97n\9e\93p¢\9cx\90\99\82\8d\93z\8c\95r\93\85y\9c\94x\99\98g\9e\96t¢\9bt§\99t®¡d¯\9f]µ\9f\¯¢M­\95Lº\9eK�\96XŤYÇ RĤJîOÆ©F˲MÒ¸I̹?Ç·CνPʶS�²S�»RÄ´MÀ²QÄ»HʶJȽRÊ®OÀ¬Z»£Y¶ª^¯©_¯¯d¦«a¤´W£»`­¸e¸ÃX¸¾X»¼V½¯S¿³T·¸VÀ¿a¼¹dÀÅm¿Ée�»Y¾¾T³Ã]¯¶^±¹R«½W©ÅXª¼Q©¼P¯«_®ªf³¦^ª©\¯\9eV¶\9cO­\99Q« G£¤G§¤E±£F¶¨J®\9dZ¬©Qµ£O²¥[¶\9eX¹\9bL»¢DèA»§@­\9bL«\99L´\86L³\81D´\84>µ\8c;­\95?®\8fD±\99Dª\9fE¬\99Aª\9aC¤\9c@ \96=©\91> \9bG¢\8cL¨\8cPª\95H\9d\8fM \95F\93\93?\95\8eF¡\96@¥\8e:\9c\89B¨\887£\898\9a\835\9b\845\97\856\96|6\98{1\96\898¢x8£sI\9b{O\95~K\87tJ\83oD\81lP\85uL\87rM\94\7fR\87\81V~wR|{G\84\83?\88\83B\84\8dM\87\8bE\87\86?\86\859\80\8c8~\87A~\91=u\9b>|\998k¬8g®=j®-w¤.p\9e+r©/h°0o²3qª7g«<n¨5o£7z£?x E\87\9aR\84¢\\8e¨a\8dºV\8e±\\98±S\9c¥Z ª]¤¨V¡ ]¦\9bc\9c\9cp\9a¤b§\9be°\92]¨\98e¬\88e²\87b¯\81j·\86fº\8cg­\88m­\88p¶\8bj°\80u¯\86q¯{\81±|\89³\80\8aª|\7f¯\7f\81©p\8a¨o}©k{«f\80¬_\80´q\85Ås\85Ãg\97Åk\9bÌo\9dÉi\90Èp\87Å~\8b�n\84Ëo\7fÎm\88�y\83Àu\8a½n\91¸{\8b¿v\94Åy\8f¾u\94Än\8aÇc\8c¾k\86�k\86Èo\80¾a\88Kd\89Al\8bJ[\86:X\7f:h\8aEe|IpxBj\84Qp\80Jn\82Sr\92Nu\96Xt\96Z\81\87_y\8cl\8b\8ae\8d\85\\84{g\89ywxvq\89\80w\92uu\8dyx|\8bw\8a~\88\82z\85\8a\84\83\8b~\8c\7fy\80\8ay\8a\86k\95\82h\8d\82k\96\89l\8d\81_\9b\8ah\8b\8fn\96\92s\94\96g\8f\99y\8f\9bv\87\9dy\8e\90z\8c\93}\94\8al \8fk¡\9ae¢\9fq¡¡_§\97T¬\97Uª\9a^¨\9dS¯ IÀ\92YÃ\9dL¼¤GÌ\9fE¾£E�³KʯC�³@�´CÅÀBʺKÊ´P˼K�°Q�½U¼³G̺QË�NʹM̽OººQ·®Q�­Y²¶Wµªf¯¹b©³c©¹V±±V¢®_±¶S¹ÂR¸·Pº³V¹°]¸±f²º\·¿g¸»hµºb»Âa²·Q¥¿T§®V¥µa¡µO\9dµP£°X¡§]°¬Z®¡a¦¡Y¢¥^®\99R¥\9bM¯\9fU¬£S££I«¥P±\9bT©\9eI±\95O´\9cPª¥K±¥Q®¦L¯\95I©\9eO­\98I­«K¥¡B¬\93I®\86Lª\89<µ\88K¸\85G³\90:®\89C\9f\8bE¨\8dH\9c\93A¦\94>\9e\9aC§\9cE\9f\9cI¢\97J\9f\99O¦\93P\9c\91P\91\92T\94\89L\98\89G \8fD\9a\8f7\9d\846¦\8d6\9f\886¡\7f;\9cz6\9e\88?§\88>£\84=\9c\884\95\836¥\82D\9dzD\97~C\98{?\95{>|h;\8bpH\8csO\84\7fR\87\82H\88\80M\8asT\87pJ\80\82<~~F\81\8bN\8f{M\89~:\88\80H\8c\89A\88\925|\8c8t\9a6m\98Ct\9e8`§Ij¤Cv¨6k¦<j¨3pª<c§>d¦0b©>w¬=m­1q©>}ªD\83£T\8a«_\88¨W\8e·T\9b»P\9b°\\97£Z\90©_\97\9ca¡\98f¨ d\99\98o\9a k¥\9bg\9e\91h±\96g¬\95a©\8bm·\91m¬\8fq´\8dkª\96fµ\89d·\85c¯\8fiµ|l­\80y·\85\8b´\81\88§\81x°\82\8a°{\8d¡p\83¢{~±p\87§b\85­q\89¾u\8f¹e\97Çq ¼k\93Ìr\9aÈp\93Çu\8c�v\88�t\8d�t\87Ç|\8fÀ\84\91�y\8dÇy\88Åv\94Èo\8aÈt\94Èl\87�n\87Åm\8c½q\8e¿e\8dÀ^\85FW\9dA^\94Ac\94;]\846g\88Ae\82Gh\7fHf\82Lm}Jo}Hj~Ok\87To\80Pu\86`|\7fc\84\89l\8czd\82{n\85|uy\7fr\86~\7f\86v{\85\80x\87\81~\84~\81\81w|\89~\83\89\7f\7f\82v\80\85w\8e\82r\91\8ak\94\8ak\87\8ad\8c\8a^\91\88_\87\8bn\8d\97m\87\8ep\8c\94h\87\8e`\8d\98f\92\99q\93\94o\9d\8bp\9e\8dg\9e\99l¦\94j¨\94W°\93S±\8eO­\90P®\90Z´\9eSÆ\99UÈ\99LÌ¡> AÇ¡GŨJƨIÅ©>Ì´<ʼGκE�¹N�µR¿·UŹOþIÊ�KƹM¼B¿³EÇ°Q¾¬Lº«Z¹°X¯µU«³`©¼a«¸U¨¹[¨­\£¶Z©´S¶¹R·±[¯¬Y¬¯d¦¯]¯¿b³Ã_´¹e´¹]©�[¦²[\9b±Z\9a­R\9d®R§´Z¥¨Y\9c­_¤¯_¨°d\9e¥_\9d\9bQ¡\9aS§\9bO¦\9dR\9e\9eW\9b\9aK¤\9aK©\9dT¨\95R©\92O®\91J¥\9eQ¦\9bDª\9eG±\92L¦\96O¯\9bK¨\9dJ£\9dF¨\8dP§\84D®\8bC«\8bF¯\8cH®\87I­\8e>§\85D\99\85:\9c\8eA\99\90=¡ D¡\9eD\9b\9bF\9f\9d>\9c¢E\9c\99J\99\91K\96\93I\95\96H\98\90A\9f\8c4 \893¬\8e.¬\867§}?¦\7f6£\859§}A¢\87=«\87>\9f\8b>¢\8b:\97\85A\99~A\8ey@\93z6\8es2\85r;\8cz;\88pH\7fwD\80zM\8a|Q\84oT}nTwrJ\86sM\88wH\8ey=\86\83B\81|J\8a\85F\81\95F~\96=m\93Fj\9fAe\9cEj£CiªJf\9fDg\9a5c¥7d\9d8_¦9m©4m¯9m´4y¬;v¥Gw©Q|¯R\81¨[\82´V\94´Y\97®U\9a±[\8e²N\90¢Q\90¤]\9f\9ea§\9ff¡¡b¥\98`\9e\99f\9e\8dj«\8c]´\89\­\90k«\97l©\90l§\8dd´\99h·\95p«\8eh¸\89e´\80i°\88u¬\81|µ~v¯\85}°\85\87ª|\84¥~x¤y{¢v~¯l\86±r\91¶o\95Ãb\90Åf\94Êi\99Àq\95Ât\91Ìt\8e�m\88Ât\8dÊ\83\86�\81\8cÄ~\8eÀ\86\89¾z\87�x\8eÇ\81\90Éz\83Ìy\8c¿k\88Åp~Êg\84�f\82Â_\84<W\94=b\99DW\87DZ\91?c\8dAZ\86H^\89FjxUn\80On\84QfyVl\7fVu\8bNu\90c\80\90\\82\86_\83\87ev{mx\83k\84ur||pxwpvxn\86\85\84\88}\83xq\88\87|{\88w\80\7f{\82\81\80~\87w\8a\8dj\8d\83m\87\8ck\88\8ad\8b\90[\93\93a\8a\8bk\89\9cf\97\8c`\8f\8ca\90\92o\99\86s\9e\86j \8cs¦\8ep\97\94i \94k¨\99d©\97`±\9bU¬\8fO¨\9f\´\9bZ�¡R¿ªMÄ\9eOÅ KÆ\9fRȬDÈ¥DÀ¤BȬCÌ´K÷HÇ�LÆ·MþPº½E�¶N¾´I¹·MÆ»Wº²I¹­VȪZµ´]¶°Z°·T¶¬[¤¬[«ª[ª¸V¦°_¢¹Z¦ºZ®ªO¬­]³¶]¦³a©¿kº¼]«·d¯Àc§º_\9eµS\9f¿Z¢¹U£¹Q¦¹[\9b«Y¦°S¥³b¤®Y\9d¯\\9f¤T\99§Z£¢O¦¤N¢§L¤\9dR\96\99N¤¤Q¥¢L¤\91Q\9c\93P\9b\96K¢\95Q©\99G³\9b=©¤E¬\98@¥\99F¤¢E¢¢Q©\9aV«\88B¬\87F´\90?´\8d>¨\92Fª\919¬\8e?\97\8dH \98=£\9b8¨\9f= \9f@§\96H\99\988¥\98:\95\99B\90\8fE\9b\8dJ\90\8fA\99\89<\97\8e=\9b\8c=¥|0§\834¦x-©u8§{1\9e~6\9f\7fC\9d\87F\94\7f<¢\91>\9f\86F\9a}>\92\82?\9ct=\8f}0\89x7\8bo>\91{A\80rF\7fsMvyL}nIt}J{|L\89tB\8dy>\8e~?\88\8eF\8d\83@\87\93F|\92G\7f\8c:s\9bA{¥8l\9fBj¢Fg¥Lp§Pe£Af©<g¢6d¬Aa¬:aº7u¹?m¬>s©Hk¬O|ªU\82³Z\86´T\9d¿J\93¬S\96¬]\8f®P\8e¯T\98«_\93«c\9d\9c`\94¡g\9e£e\9b\9ec\9b\8fa\9c\94]\9a\8f`¡\97f¥\8ds\9f\9bd§\90t© r£\8e`¦\92^ª\92b³\8dv¯\80w¨\81t§~\82¬\7f\81µ|~µ}\87³\85\89¤|}¥z\85¬r\93©n\96¯w\92¼l\97½s\98¾w\90·u\88¼l\8eÒo\8c¾j\84Âx\83¹r\85¸~\86»z\87Â\82\85Ì~\89Ê\80\8a�w\88�k\87Æh\87¶o\90¸b\8bÅi\83Ç[\82Ãe\86>Y\94@`\8f;c\89Dd\92>]\93I`\87Lc\85SozSa\82Mc}M]xKf{Pr\86W\7f\8ce\82\91a\8d\93h\88\84cxvbsqf\7f{f|\82kswo}xqx\85u~z\83}x\8b\81n\82\8aq\82|w\81\7fx\89\84n\88\7fl\88\82a\8a\94e\94\99e\91\98b\83\9b^\85\8cW\86\89^\98\95e\94\8di\97\88g \84p\97\87o¡\85t¢\83l\9b\89g\99\8em\9b\99h­\94^«\9b`¦\98\´£Q²¡Vº\9fL·©F³¥O¸¦S»±GȪK�¥K¦NÀªOê>ʲF˹RƹK¾³SľR¹·F�¹L½¹N»»T½·YÅ©Z�¤WÄ¥\ºµY¼©b¯§_¨¢a­¦Z³©d­³c³°`§®T©¹J°´PµµR¨°`«À\´Àe­½V²·V©±O¤·W§¯H\9b°J\9a«T\9e·W¦·_ ­Z\9c¨[\9aªU\9d±^\9c§W\98§K¥ E\9f¨P¢¥K\99¡K\9d\9eB\9d\98>\99\99K\97\9aN\98\96J\9b\9aB\9b\90Aª\8e5­\9b5¥¥2¥\9f;\9f\9cI¤¤J¦\9fN¤\97P®\89F´\83=ª\80:±\8cB´\8aB«\8dA¡\97D\9d\99I¨¡K©\9cD¨\98L\99\92I\9e\9b@¤\94@\9c\99E\99\98@\98 Q\90\97V\9c\96N\9d\8eG\9f\83;\96\806\97\820¡\816£|:¦y/\9dv1\9e}6\95~:\8f\80B\8d\81:\96\85>\98\846\91\85>\92x:\98y<\98r3\94|7\90\81G\8avJ}sAqyHnuMt|J|yE|\84C\80}:\90\86;\91\8dM\92\89M\95\87K\8c\91<\84\978{\91?v\8f7\82\99<\81¨Hy©Jn¥Jh©Lf¤;]©:c¤E[­>_¸Gcµ>`ºFm·=h¯Mn³Q\7f¿X\7fºQ\83»H\94¸I\98¯K\8c°T\89«V\8e¯Q\91¨Z\96¬[\93©b\90\9fd\93\9c]\90¡^\91\9eP\95\8bR\9d\97Z\9d\9bd\93£j\98\9dm\95¡i£\9bm¬\96n¬\92`­\97p¤\8ew\9b\7fv¢vv©\82~¬\86y¨\8a|°\86\87¨\86\8e­~\8b\9fv\90¢p\91©|\8f·x\96µ\81\96»y\8aµx\91µr\8a¹p\86Ék\8bÀn\85¼p\82¼s\88·~\7f½s\85Ät\8bÀ\80\8bÅ{\81¾y}·e\80¸m\8f·k\8d²m\8a´j\89¸d~º_|Ha¡=o\92Hl\93Qj\8dKd\8aOp\84OoyWfxYjwT_vQl\85Sn\88Mk}cr\90b~\93\\88\8b_\84\82fu}ns\80es|d{t`sqpq\80t{|u\82s|\88p}\83w~\8bq\8c~o\88\86s\84\84o\86\88g\8f\93m\81\98f\84\95d\97\97a\8a\9a\\90\95Y\92\8fb\9d\8fd\9a\94k\8c\83c\97\85k\98\8ek\9e\8ar\9e\88i\93\8ae\8e\90z¤\88c¥\9b]§\95g¨\8db¯\9c\º¦Y¼©W¹§E¯«Mº¬OÅ\9fVˤJ�¨Q½\9eU̬L�§GéI˾Sº¯M¾¶UÇ´WÅ·IÆ´J¼¬KÇ®T»µZ½¦]¼¡[À©^³°S³¦S°ªX¯¡W·°a±¥f­³`§³Y\9f¶^£­X¨±W®­Q²¦_±¶^¶�d«¿W´®Wª³\§»N\99¾P\9fµH\9b³R¡µT\97¼M ¶P\9e­Y\9d«Y¥§T¢¤W§¦Rª£>¨\9eF\9d£H\98¢>\9d G\9c\9fM\98¡=\96\95A\8f\94=¡\8d<\9c\933\9d\9b7ª 8¬\95?\9f D \96D\9a\9cK©\97H¦\8dTª\91Qª~E³\81B²\8cJ¨\81I£\91K¥\9c@\9a¡B¢\99I©¡J£\90@\94\96K\9a\93F£\8fJ\9c\95I\93\9fB\96\94H\9a\88U\96\87S\99\8fF\97\8a=\97~C\97\8a8¤\84:¥\83@\9e~8\95\84,\97\863\96\861\90z=\95\80C\8a\85:\98\87@\8d\8bA\8f\87>\8a\7fI\99\84C\98\8bB\92\81F\91vJ}vMw\86@yyO\7f\86J\80\8dF\86\8a<\86\8bH\89\91F\94\87I\93\94M\9a\90L\90\8cL\8a\97J\84\94E\86\95;\81¦I\80¦?q£Os¢Ik ?c¨Df¢:f®7_¨C^¶BX«C^¾?b´>g¸Go·L}·D\83®R|¹M\85±I\92°U\8f´S\8dªN\88·Y\95«b\93§\\8a§V\86ªc\96\9dg\8e£_\98£R\96\94U\8d\93U\90\9a_\98¢h\91\97d\95\99d\9a\9ag\9c\9dc¦\94b§\90i¬\92~«\88m\9dzm\9e\81m¡~\7f¤\8d\87¨\85}®\86\8d¦\86\8e±\84\89¨y\8f°\85\92¶\84\90·\83\96±z\89·{\8b¿y\96Æp\93¼r\89´x\8b¹rzµt\88¹|}»y\8aºq\82Ày\81µs\87Âu\8b½h\8d�m\91¶b\90½^\8c¹e\90¾c\84·_\838l£Bx\9eQ\81\96Rx\96Tx\8cYo\88Yh\82Wl~crz]jy\hwTj\83Sq\8c^r\8d[r\8bh\83\89j\7f\85kt\80n}ybxrhpwfomsny}zzt\83z{\82mx\82b\83\81h\8a\80q\88|j\89|i\86\85h\82\93^\85\93e\87\96f\91\94^\8c\8ac\91\8fd\8a\9ae\91\97a\8d\97l\90\8di\91\92c\94\88n\8b\85r\8a\88h\90\83o\93\85u\9f\8an \91f²\93h´\93e¹\99^²¢S´­Y´¦U¹\9eX¸¢LÀ«J¿¢SÀ£TÈ\9bQ�\9fJÄ©B¸¶J¼³JÀ¶K�°O�¬QδX�³QÈ°PÉ®VÄ®MÀªSº®W±¨X®®U­´\¢ª^¡¢T¯«Y¦¶b«²^«¶`¥´a©©U¥©P¨¦L¬¤T«­T¶±U¨®K¨¶M§¹K¬µT\9b³R\99ÀO\9f½L\9a¾O¥¾W¡¸O °S¥£[\9f\9dY\9e§T¢£R \9bD \9d>\9e§; ¬D\9d G ¥:\93\9f<\90\9f8\96\97>¤\94;¦\903¤\982¢\948\9d\8dK \8fL¨\99T¡\99L²\98V³\8aPµ\82S±\85K¬\84A´\7fA·\82@ª\8eG£\99L£\9aJ«\9e<­\9d>¦\94G\9a\8eI\9f\97E\99\92D\99\9b@\97\98F\93\93D\99\8aP\9c\85A\9a\89>¡\84G\9a\87> \8dA\9e\85D\9e|D\9c\829\89~;\86\881\88\7f=\85\807\89|E\89\84E\89\8e<\94\8e?\94\8cI\8a\95L\8a\88M\8f\8aF\83|P\87~O{\84At\83Dy\82>\83\8bH\88\8e=\90\93B\89\98?\8f\8fL\89\8bD\92\96G\8f\8eJ\95\8eQ\87\97V\8a\9bK\7f\97Bx£E|£Au\9cNn\9aHn\95>k\97=j¡C[¤@Z²>^¸H]°Ba½=`º7m³5p½?l³Ey³AyµF\86¸L\8f²O\87²S\8c»[\90²_\95³]\8c§]\92®\\87¥^\90©`\94£Y\8f¤P\91\9bU\8c\92]\8e\94T\8c¢_\96\9e_\98\9dl\9d k\9d\99i£\9cj\9d\96k¥\85v«\84y¥\7fp¡|}§\81x¤\85\7f±\8d\82´\8d\8f­\80\8c£\8b\89ª\88\90µ\81\91¶\83\94¯\86\91·\89\8f·\86\95¿\89\9a·\81\95·v\92±m\82µt\82�o\87Àu\86½~\82´z\86®~\8d°w\84»o\92»n\91´f\94·\\8f³^\93´]\86´Z\80´d~Ih£Jl\9fOl\9cWo\94\m\93\i\86Zf\88Um\81So\81\j\82Tn\86]k\7fYp\82ao\89iy\85c\87\82p{\8berzg\80\81[ylhykozrwwv}ps\83{s}\81e\88}o\8a\7fa\80\7fk\8dne\8b{b\8ft[\8c}a\8a\93a\87\8bg\88\95b\86\8fc\94\98d\97\8d^\99\99d\8e\93r\8d\89p\8d\85s\8b\8ez\88\87s\88\8bf\8f\82d\92\87s\94\85o\9f\87s©\98sµ\90d¶\97X¶\9cYª¥N²\9eK²\9cF¶\9fI½¤E¹¥EÀ¦D�¡PÉ®AÊ«FÆ«CÊ©KħG�£S�®RÇ­MƨIÄ­RÌ­S©Q¢R¿¯Z¶®U´³T¥¯S\97°V«­S³¯^¤µUª·X­«^¢²f¤¥[®¢P­­L³\9dX®§Q­´P±°Y¥¹L«±X\9f­\¢¯S¡·G\98ÀL\9bµM¢·U­±F¢©V§£M¤¢O\98£N\9d\9e?§«E¡\9bE¤ª@\99£J ¦C\9b\9e?\93£4\97\94C\9d\98C¢\935\9d\986\97\9b9\97\909¦\95:°\86K\9b\92M \9cN¡\8eD¬\82K¯\86G´\8aJ­\8a<³\845¬\877­\8f;¦\94E¨\96J¦¦C¬\9b@¦\95<¡\8fI¡\93N\9a\9bQ\96\9eI \94O\99\99A\99\87K\9f\90K \91=\91\84C\91\85>\9d\89E¤\81K\8f\8a=\8cv;\8d\866\93\8f>\8a\89A\8c\84B\84}D\85\7fJ\84\85?\8c\8eL\82\91H\8b\88A\81\87E\91\87K\81\8a>\7f\82Gw\8aHv\80Fy\86L\8c\8bI\8a\92E\8f\98H\87\92B\84\8d@\85\93J\8b\92L\88\94B\8f\91S\8b\9fK|¤Cw\9bH\80\9dA\82©@\81§Cs\98Jk\9f;r¥Aj¨@`§FT 2X¦?g±:]­@nµ2h°;p¶8r¸:o°Eu½>\83ÂG~½F\89¶L}±S\80¹_\87¯[\7f\9fQ\81ªa\8c­_\8c£a\84ªW\84£V\84\99T\97¢K\90¡P\8b£_\8e\96[\94\9aj\95 g\9a¡k\99¨l¦\9cj\9e\8do\99\8as\99\86l\9d\82n\9e\86y£\8d\86¶\8e\89¥\87\8a®\8e~¢\84\89©\96\91ª\92\90«\7f\8eµ\8a\8f¹\86\91�\85\9a¾\83\8dÂz\99�r\8f¹v\89µ\7f\83Æ|\92Äp\82�\7f\8e²z\8a²\80\89¹y\80¹l\87¶]\86¬b\87³^\87¶`\84¶\\8c¯V~£i\89<p\9aJo\9bQk\9bUu [k\93Tn\8fQm\89KkyLfy^r}Xr\87[e\8cXp\85dn\85l\80\8bd\82\8b`\84\80fz\81js\81cwrjpuvvxsqq}syz{m\81yj\86{h\80\80k\8bya\88pg\88p]\8ar^\88\81_\88\85c\88\88Z\8b\85Z\8e\97V\86\99a\8b\92c\9d\91q\9e\95r\96\89s\94\89l\8c\95t\92\86h\94\83k\8d\83g\8f\7fk\9e\8fj\9d\8dr¢\97q¯\93l¯\98b±\98Y±¥K°¡G´§Q´©I¯ªC²®Bµ³BÇ«EĬ@Ä­L�¦NÆ\9dEΠUÓ£XÌ\9cQË¢E�\9eO�ªXέ\Ç Y¬a¾®Z»ªY°¯Qª®M\9cµY\98·Q¥±X­³P¦³L¥µY¥«Z©®X¬¨U²¨Z«§Mª¥[³¯\·ªQ²±U¥¬W¡±_\9cµZ£³N\99¯I\99µN ­H§®N¢«F¬¦E¬«@\9e§I\9d¨A£«5¦«E\9b H¨¢P¤\9aH\9a E\9c\96:\9a\8d7\9f\93=\9f\9c@\95¡7\9a\9d=\9a\972§\8f5®\88C¨\99J \99Bª\8bL£\88I¡\86H®\84N¹\88M¾\90:±\8a4³\8a>¹\92B® A® ;¥¡B©\95G­\96H\9e\92C\9d\98O\9d\93I\9c\95P¦\96M\9e\95?\93\9b?\96\91C\99\92I\93\8eB\8f\95L\98\8dM\91~A\8a{8\8a\88B\8f\85F\87\8eM\8a\8cK\8a\87M\87\86B\88\95L\8c\92I}\94P~\86F\83\87@\82\91F}\82=\84\84@{\8dBw\84B\83\86A\89\88M\86\8b?\8e\96@\87\8d:\85\8e@\8e\9fE\8a\9eE\86\9aL\91\99K\81\9dN|¦I\83\9dHx£G\80©<\82¢>z¥=i¤A_\9dHd¤@^¥9^\9c7]¨Da©Ca¥Ek¨5p«:u¹4m»Au®C}±N\81�G\87»D\85½Qw½Mz¹Pz²Wx¨Qz¨Q\85«V\8a£Y\85«Y\8d Q\85¡R\94\9bL\97¢Q\97 V\8c\9bd\99\96h\9b\97Z\9d a\9b¦\\9c\9ce \99c\98\9ck\9e\8fu¥\8cr \86z©\96z¯\98\85°\8b\87\9f\8e|¬\8c\86¶\94\90¯\8d\91ª\8c\84¸\91\96À\85\98¾z\93¼|\8f¾w\86¿z\89¼\7f\8eÂ\82\94Ç\83\9aÂy\8e¸\81\7f¯}~°\82\86´}\8b²e\8e°]\8c³`\8e«e\8b´T\90«R\89\9eX\87¢b\83?n\9fKn\8fTu\9eV}\9eVu\90Qy\92Vp\85Ln\87Qq~Qk~]k\80Wq\88`r\8eWy\90_z\82]\82\82c\80\82hv\8brz\83s~\7fo\7f|t{py\7fzylvvku}iqt{osutwxu\7fqs\82qc\83n^{\80\\88\87a\8d\85]\8b\7fb\89\8ba\8e\9bc\91\97m\97\98h\9a\90v\93\86t\8b\93w\8c\92s\97\8bq\92{i\8f\84q\95\86n\97\88t\95\95p£\97p«\96p²\9e[­\99]©¦Y¯§Cµ­B¿µK°§M©²F±³@�´JÅ­L̪FǨAÒ\9eL�§RÌ\9cPÙ¨KÖ¤MÊ P̱OÇ¥YÀ©O¸¡P¼±Z°¶Y¯¯O¢¹O\97´Q¤±M\9c³W\97­V\97ªN\9f£O\97§S¢¨Z®®V¤¥W­¥J§­M¬°`³ºX§½M¤´R¬¿d§±`£·O¢«M\9e§I\98¯M\98¢S\9e°@£ I\9cªI¥§= ©9§©2§°8\99¢;¨¤K\9c\9dA¥\9b9\9f\9b5\94\92>\9d\9f5¡¤@\98 5\9c\9b@\9b\8c7¥\96:¨\8dD­\8d3£\93<¨\8fD¯\85K·\86L¼\87>´\8d<½\8eA¶\92Cº\95?¹\9d7©¥>« F§¢L­\9bBª\98J§\8cP\9f\8dH\9f\99S©\92M\9c\9bL¡\88B\9c\8b<\94\91H\92\84?\98\88A\8a\90F\96\92M\8a\80@\88}9\8d\8cD\91\84@\90\8eM\83\89I\89\8bI\8a\91K\80\98B\7f\9cHx\95H}\84C\7f\8bB\80\8fF{\8cB{\8b?\7f\86;\80\80E|\8dN\86\86K\87\8b<\87\93:\87\99:\88\9a>\82\99@\84¦B\89§F\8c§E{©J\81°D\83\9bC\81¡Az¢?\89¤A}¦:f¦>l\98Hr¡:c 6]¡0e 6c¯EY¬:_£:k¬:hµ7jª=i§Iq¶?uÀNxÂFp½Do²Hp²En»Jl»Ft²L\7f¯T\89±V\7f²Q\86¯M~\9fV\8c«L\92¯L\8b¬S\8f£`\9a\9d_\98\99[\9d V\9c«b\95\99g¤\8eh\95\8bq\9e\8cs\9b\8eq\9f\85}©\88\85§\94\87¨\9e\85¬\9a\82«\9c\85»\95\8e°\95\8a«\8d\8bº\86\91º\83\8d¾\80\95¹\8c\8f³~\8cÃ\89\91¸\88\93¼\86\94º|\91¾{\81³\82\8a±zx²\82\81­o\8c°e\88­j\85®[\8d¨a\8c¢U\84§Y\88¨]\88¡d\8bA|\91Eu\94Jv\97H\7f\98T{\90Ts\97Jr\97Q{\86X|\93Ss\8fU|\86^s\88Uu\8dX}\8a^~\8dgu\80e\82}i~\85ku}u{\80n\84{k\80mlzlrunwfishjypjtmwug{xdr\83om}ph~uc~ye\89\83l\82\7fd\95\88k\97\8bf\9c\8cq\9a\94n\9c\8bm\99\88o\99\95p\8a\91n\8e\8dh\92\82h\8e~b\93\83m\90\90k\98\99c\99\99Z§\9dbª\9c\°¤\¸¡Y°©I¶ªN¹µB½°H±²D¨°;°­C¤JÃ¥FÃ\9fFÓ\9eJÑ\9fGÑ\9cQË\9d[Ó¤WÖ¬XÈ©N´QÆ­N¿¨D°¤J¤¥M ¶V¤¹P µV\98´N\95¨H\9e¤E\98¥O\94°_\98«]\9a¢[§ªW±ªL¬±Q¤²X©¸X¡Ä\ ¿V¦º_¨�[§²P\96°V\96±F\97ªB\91\9f?\97¢I¡£D\9f§A¤¢?\9e¤8\9d¤5¨¨8¬¥7¨©5§°?\9f¨G\9a\9fC\9a\9e:\96¥<\97¤>¡¥<\9c\9f5\9e\969¥\90A¦\915¤\885¨\898¨\8a5­\96:¯\93=®\96Dº\8e>Â\86GÄ\8eHÅ\98E¾\99>¼\9bD´¦?¬­J°¢D¢\93R¡\91O©\97J¡\8eJ¢\98G©\93P£\8fE¥\8cB¨\90A \8aF\9d\8fC\90\87K\95\89@\8c\8eC\93\81P\8a\81K\8c\88B\85\8fD\88\96I\7f\8fP\84\98V\83\95N\86\9aP|\98Ax\8dOs\89Kw\86G}\89Mu\8fCy\8fC\80\92P\7f\86K\81\81K\85\81=~\88@\84\89=\8c\92?\88\9b:\8d\9e8\8d\9f?\7f¦>\81¨C~­I\81¨>\83\99G\87\9aD\7f\9a?~\9aAy\96Dt\9d?y\95Fr\9eAs£:i®6c©.Zª6d¯8aª=jª5l°>c®Ab°E`±Gm¼Md¸Jj¹Hg¸Lq·Hj½Cn¼DyµA}­N}±N\85©W\8f±S\88ªR\97¯M\94«W\93¢^\95¤_\93£b\9b¦U\9aªR\9d¥_\95\99i\9d\94h¢\8dw\9d\8et\9f\8f~¦\8f\82\9e\8f\84\9d\95\7f«\9e~©\9e|«\92\80°\96\88³\8b}º\88\81µ\91\84¸\88\8d®\85\90³\90\91®\86\8a·\8b\8eÀ\8d\87¾\86\85¾\8c\82¸\88\84º|\89µ|\83µ|\7f§o\81¢l~®f\86¬d\89©]\84¡]\82\99`\81\9b\\8b\9dT\8bI}\90Mz\96Ow\8bMx\89M\7f\94Pt\8eH{\91Mq\8cQ{\88U~\8cTr\89Uw\80cx\81^{~[~\83fw\86`}\88i~\84jx\86mwyt\81{z}mmrmprdnqbybdmjuwlrnessnr\84rk\84yhyrf~{a}tc{{a\87\80b\90\7fv\96\8bm\95\90t\90\8ev\96\7fn\89\86n\85\94t\92\8an\8b\89g\94zm\94~h\9e\8ag\97\88b¨\97b©\9cd­\9d\§§Z©\9bE©©?®¡J·²B¾°O²§K¸¦H¸©G·±OÉ¥>ȦJ�\9dKÒ\97OÑ¢HÉ£F�¯N�¢MÇ°V�«KɬP¸¨L°­C­°N§¯]\9d±Z£·S£¨P\9e©J\9a¡K ¢O\9d¦[¡«V¢±_§®]©¨U§§Xª¶Z¬ÀRª½W¨µO¥¾V ¶T ¸Q£²R\9e­O¥¯C¢¦A¢©H¨¤G£¢K£¢;\9a\9c:©°D¤­D ®6§¤>\9d¡;\9c\9bJ¢ D\95\9dC\95£E¦«5\9e\9bC\9d\99C\9b\9fD¬\98A¢\90B§\900©\842«\907¦\8a=®\9a>»\8b3º\9a@¾\90CÄ\89B¾\98:À\9f:¢A½\9b<ºªH¸ª9¥¢N©\90I\9b\94D§\8dI­\90C¤\9bM¢\8fD£\858¡\8f?\98\87D\92\8cB\9a\85C\94\92A\8d\90>\88\8dP\90}O\92\88K\89\8bE{\95?w\84>z\90=\87\91>\84\9dC\82\96Ez\92>~\8aKw\92Sx\84I|\93Dv\8b=\81\93M}\8a@\83\85A\81\7f=v\83@{\8fA\84\97B\8c\91?\87\9a7\8c©>\7f«8~ª<\84¯?\80°4y\9c=x\93Eu\9b>r\908w\992u\9e5q 6n¡B^ª2d£8W§Agª:\²8`¶6]³Gd·Gf¶@m³Al¸@n³Ej¾@k¼Bo¯Jm·Mq¸Qt²EoªKt¯Bx¨J\8bªQ\7f«W}§M\8a±Y\99³R\97­Y\9c§W\91¤]\90¤X\95©_\91 k\95£g\9d\94o\9d\96w\9a\94u¤\8f}£\85\84\9a\89z¦\93\82 \95}©¢{£\9e}µ\9fy¸\8d\81±\86x°\85\85º\8e\92³\87\84²\8a~²\93\84²\90\89º\86~¸\82\88«\86\87³|\81¬\87\85©x\88¬s{¤q}¥f\7f«r\82¨^\8b¨\\81\97V{\99Xy¥^\8a¢R\89Ly\8bL{\8cT\81\85M}}BpzDo\84Fk\81Px\86Rq\8bUw\7fXqxRtoSxucw{atz_z}a\85\88e\80\84ay\82ewpykm{p{yrsppblvmnlkuvwstr{qq|ne}pj\80th\80ug\82xk\88sc\83yl\8f}s\8eyt\8exp\9b\85n\92\84x\88\83p\8c\89e\81\90h\83\8fe\8d\82g\8ex`\97xj\93\80]\95\88_¦\9b`¬ X¤£O¢¡I¯\9dD«¡;±¦E¾§Jº®I³«O·±P¾®N¬FΩDÉ¢=¾ BʦDÓ D�¡M¬LɯSÊ°QƬXº³M´¥U²¤L¹±L°²R¤­W\9f°U\9fªM ­Q\9e¬S¢\9eP£¥N¦³R¨¯W¸¸T·³`²®Z¯¼Zµ¾QµºV¬´X§½Q¨»N¤ÃM¦¿L«¾J¤·O¦´Q\9c²Mª\9fP®\9dG¢£>\9c¡<\9e£@¤±F¡±>\9a«;\97¨@\9d\9dN\95\9dO\9c¡?¥­F©¨;\9c\96?\9f\94A¦\9fI¥\99N \98=¢\928«\8a;¢\8c7¨\8f@³\937³\9a9»\970¾\8e0³\95?º >Ã\9f?À\99H´\96C¬¡9®§<¤§@£ I¤¤D¨\99F¡\99C§\9aG\9d\95>\9a\857\9b\82A\99\85K\99\8aO\95\8fG\94\86O\99\89J\98\81Q\8a\81R\85\7fH\8c\89J\88\89:w\89;\82\92?\83\96<}\937v\93Bt\96D~\8eMq\89Nm\8cHm\96Gr\92F|\95Hz\87Dw\89N|\84L|\7fFu\86H~\86E\88\94@\88\9dE\82­>\86ª1\89ª0y£/z¨3\81£:w\97:u\924u\932p\99:v 4p£:\¢5W\9f6X\9c>e\9cCd¤9`ªB\±9f¶:d¯Fe´Ij³Ce»>j¸@m»Bf³Dd»El»Lw½Os­Jt®Bv±G{ºQ\7f¶S~³W\83³V\82²P\8fªY\92´[\98¯[\9aªb\95¡f\8f¢i\8c\9eg\92\92g\98\94j\9c\8ek\9c\8eu\9b\95o£\8bt¢\91\7f\9f\97\85\9b\9fx¢¥w¬\9c\7f® x°¢wª\93\80­\8c\88¯\94\89¦\92\85¬\88|²\8ew®\93x­\85u©~\83«\83\85°\7f\7fª\88|¡\80\80\9b\80\85£p}£n\86\9fm\86\9ed\86\98c\82\97V~ V}\99]\80\9bY|@x\8d?\82\8aPtwFsrPi|@g~Dy}I|zEv|HiwWqjUtg\kq`pvTp{av|ay\85bp~_\80|bxkrousq}|iewd]uljpcvuqqt|y\7fkm{qfwqk||g\85|c\8ezb\85}p\94|m\96ql\90~i\98yn\93\85f\99\8dr\89\84z\8f\84g\89\87j\8b\86k\93\8bo\9a\82f\94qp\99\82l\95\8ci¨\92]´\9dZ°\9aR\9e\9aR¦\9eN©§A±¢AÅ¢Q»¦QæXʲKǶEά@Ë©?é<Ç©>Ì\9b=É\99GÂ¥I¸±K�ºIÀ°UùXººU°¦N®±B°°S©¸W©«R¤®Y\9d²U¯®V©®L®¦Q£ªS¤°Z±²RÀ´R�¹O¿°O¶¸W¸²J­ÀO¼¶\¥ÅO¥ÀO«¶N¢¹L¦´Rª´WªµU\97¬R¦±H«¢N£¥J\9c¤A©ª<°²I¡±<£¦@¤\9d<\9f¥C\9a§L¤\9f?ª¡I§¥6¤¨8\9b\9bK\9b\9cC¡\95Q¤\97E¡\98G\9e\9aA«\8f?¢\9dB´\93=³¢=¹ 1±\9c5³¦>¹\94@½ =¼ ;¼\99C°\98G´¥=©«A¡«K±\9aD¡§C¥\92D¥\96I¡\8bA\95\8b2£\8dG\9b\8fR\91\8eJ\95\95N\9c\92O\93\8bP\97\83J\89\86I\85\8dB\8e\90G{\94A~\93<\82\8bC\8a\9a5{\919t\9cD{\90I}\8dOw\8aCo\8fHp\92Lo\90At\8dB}\85D\84\90Kz\82Ry\86E{\8cD\85\99D\7f¦>\80 <\84¬2\89®<|¤.x¯.v¤;n\9f;r\98>f\9a:i\991f\99.o¤0i¨2\ ;^¢>U\99;\«7d¥3_°7b¦6e§9a²K[­@Y°>\¬Gj»?b¬>m½Io±Hu¹Nl¼Tk¹Gm´Bi¬C|µO\81¬F\8a­U\86µT\90µR\88¦W\8f¶\\9a®Z\8b±b\94±e\84¯a\85\9fa\8b\96f\91\92k\8e\9am\91\95s \96i§\92w¤\93u\94\92\83©\9fu¤§z¬ v\9d«s¯\98y¯\8d\80°\8e|²\97\87¨\8e\83·\8ez®\93\83¯\96{¨\90s¨}\86«w\82§\7f\85 ~\81£\81\83¥p{«i\80\9fq\80\9ew\8e\9eg\80\94h\84\97X\8b\93R\8b\98Sz\96]v;\86\85>y\7fE{\80HpwDtuHi}Ivu=vsCmjKhhTfnPohRsrOhtTfv[t{ds\84_m}Z{te{svwwvmowigyghxkouiozxprwqspfwtft{k}yk\7f\80a\92wd\93oc\95si\96~`\91~e\9b\81d\93\89o\98\8dq\90\81t\8b\8cn\8b\87o\8e\88c\99\88e\91\84k\99zi\97\89j\98\89e\9e\95Zª\98Z¡\9cW§£T°£P«\9c=°£G¾«JȧOƯS�³FαJˤMÆ¥@� 9˪9Ë©9�¡GȱB¿µH¿MÀ·V°°K¬·O«¸B«­A¦¯H¡³M¤¼O«´T«®W®¦T´\9dC´£@¹¯M¬¶V¹ºV¹µY¶µLîL¼¹G¼²R¼¹OºÂT¹ÅS¨ÂM±¹Y¬¶T°¹\©¸Z\9d²N¢²G§§G«¡I©\9bD¦¥A­°Dª´C­­<©«@¤ @ \9cH\9c\9aO¥¨Mª«Hª­A¦©H¥«D\96\9cH\97\97K\99\8dS \92S¢\8cO¥\94G­\98G®¢=±¢;»¥5¶ª5·¥2¼¤.´\9a2²¢<¾\98=Å\979»\9f>²¥:°©B¥\9fEª£H¤\94R\9c\8fJ¦\8a@\9e\8d9\97\96I\9a\92L\96\8cN\94\8bK\9b\89O\94\92M\95\96F\90\8cH\8c\99E\86\9c@\8a\93<}\98;\89\9f5\84\97=\86\9d;w\96@\81\8eKy\90Ep\99Hr\9eEu\91Ir\91F\80\8aE\80\8dO\81\8bR~\91V\80\95Vw\96M|\9eA\83¦6\8a¥.\8a­4\88\9f:\7f¢4p¬6m¨2nª7b\9b4h\997i\985m\972_¡=Z¥4Z¤3Y­5b¥:g§,a©-d©6c\9f5a\9d3]§BR¯BV³DZ¯Nd®Fe»Mg»If¶HvºKt¶Vo¹Qj¬Ij«Fx¦E\7f§F\82¦M\85°Z\82¨[\85©c\8bµ^\90·Y\83¾[\82¶Z\8c¯\\87¨h\85¢r\91¡p\99\9eq\93\9dl\90\96j\9c m¡¤q\9a\96z\9b\9fy¥¤q¨¥w\9c«u \9cw§\95\82«\9b\84¤\94\84¢\96\8a±\89\82·\83|­\89w¤\83x¬\83} {{\9f~z£\81z¤v{¡w\81¬sv®w\81ªs\84¥f\8b\94b\8e\96\\91\8cT\8f\96V\8a\8eU|C~{Fv\86?y|Lyq<ip5av5jx=msExuLnoHykPygSllHnpOvsWsnVonev{^mqlpsm}f}nkrrdshgvqbqevpuntxpisc|}py{p}pj\7frf\92~^\94uh\8cwo\94ym\98{n\8c\8am\93\82o\92\82u\8d\80h\97\87t\91\83q\91\84g\9a\85_\92wl\9fqi\95\85^\95\88]¦\8aV¯\98Z­\9eR\9f¡S©¢J·¡?±§>¼µ>�ªC¾«OÆ´C�ªQɬK¿¯HÆ°>Ó°7À\9c=Ì£EɯJ¾½KÆ¿L»¶L°ºO®´N³®L´·F°²J®¦=¤³B¦¶U²¸V©¶G³®A¸­?¹²D±®O¼®XôböZ¸²V¼µ[¶´Zºº]ƾW±¸TµºZ¥ÄM¦¿H´¼U¯�\­µT´¹E²´N®®E¯°Fª¤>¤®E¡¦> ®C¥\9cA¨¤;¡\9a?¥\9d>¢£@§¨C«¦C®©E«§?¥\9c?\98£E\92¡O¦\91C\9e\91F¤\94F«\94J®¤H¨\9e>®¡'ª¢*¬¥+±£3¯\9b1ª\97@³§>¼\9f<³©=¹¤>¬¬9¨«:¢¥@®¢@¬\9eA\9d\917\9e\992 \8a<\98\9a:\9b\99E\9f\90< \8fD\98\99G\94\95H\8f\89>\86\8cF\91\95>\85\90B|\9bA\8a\986\81\956y\9a;z\9eIx\9c8\81\978s\94Bm\98Fy\93G\84\98?\81\9cH\88\9eM{\95D\87\98L{\9fB}\94M\80¨G\87¦7\80¤2\85ª>\8a±:\84¦)q¨/z«9h\9b2c\988f£=n\9c<iª:j©-^¨2Tª@Y\9e1i­4]®.[µ*_¡3[¡7[­1\¢:^¦9Y¦9f¤Arµ?gµOfµLx¹Rt±FsµCjµOg¹Pq¨Hl­Jp°Cr­K\81¼Zx§O\88±_\8dµW\95¼P\82²W\84±V\86°f\8a¥r\89\9dj\8f\9fj\9d¥l\90ªf\9f\9cn\95©u\94¦s\90¢q\9c¡l\9b\9fp¡\9fp\9c«o§©s­\9f|\9e\9dv\9e\96{§\92\83¥\8f{¶\8bt²\8bw«\86rª\82}¥\8ar\9e\81\7f\98\80\80\9fuz¨|\7f§st¥s\88\9co| h\7f\95e\87\99a\89\92[\88\95Y\83\97Tu9h\80Ar\7f=u}@yv5st3jq>q};ryF{mFziGwoOvnX|iO|ePrp\oif}d`~glvkqoe{vktyhmhjqeawaholouygizklzrsyj}tc\7fpf\88\7fm\8d}h\8bua\8a}i\95wd\95{e\9b\86l\94\82t\9c\89k\93\8bg\8f\86g\99\8fv\9f\84l\94\85`\99wb\95td\8c{a\92\83c\94\91]¢\90P£\8fM¡\92D¯\98Gµ¢?³«;¿°AêF¿²L˹AÈ®FÇ´OèF�¬MΧBÄ\9aLÆ\9bRÀ¦PÄ´R¶ÃN¹�P·¸G¶µE¶�H´»D±³;µ©<¬²A°°H©¯F²´H¾°C¿§<ȤMĪU�¥[Ȩ\¿¯S¸«P¾¨R¶°\įb�³Y·½`±¿\«½T©·M¯²F·¸M¹»Gµ¹JªºD¬«E±¯I§¬F¤¦J¨¨D\9a\9f>\9b\9eD\9a§G¥\9f<£«>¥®/«§2°°<³¯A¥¤; ¬H\95¤N\9c\9bB\9a\99?\9a\96@©\9d>¯\94C¨\99D¬£=®­(±\9d4¬\9d/¦\997§ 7¢\9d@®§@²\9eC®¡?®\9fFµ£=°\9c:«\9f;²ª4¬£:°¡>®\98:ª\949¡\930ª\8f4£\959\9d\8eA\9c\94<\99\92H\97\90E\8a\98@\8c\98I\82\99N\84\8dD{\95G\7f\8f8\87\9bG~\98G\82\988\82¢7w¨Hs¡H\83\95E\87\97?~\9dB\7f£L\80¨E\82\9fAv\98?z D{¢J\81§B}µ7\88¸=\8d¸-\80¨-{¥,u /h§=k¡9a¢3c¦9i°8cª)U¬.Xª;Y¥<c¤;W©:V¯,Z´*W®4W¬:\­5Zª?b\9f?b­In®Al²Ir¹Pq°Dx¬Ci´Dd¶Og°El«=q¢Bn¨Ny¬Yy¶W\7f³W\80®I\85³Y\88²W\82ªU\82©S\86«e\8d¨n\90¨h\9b¦a\9f°i\9dªg\95®l\99¥t\96\9ax\91\9fr\99\98n\96\9fl\9c¡m£§v¬¤w©©k®¨j¨\96y®\89\7fª\8dwµ\8cz±\81}£\8e|¡\8bv«\85z£\81z©{|\9d}{\9d}|®{~\9ex}\9fg\85£b\81\99`\81\98\}\9cb\82\97h~\90_}9w\841g\82;o\812uw6ny+u{5rk:y|;xs6yjD\82hGubH\7fiPvfU}ePwbdoa^qe_u^ulmwu]w}a}y^uj^wuasqto}dr\81mi\82fw{n}yb\7fid\8bqp\89\7fo\8a\84k\86\89m\87\86i\96vj\8dvo\8a\83r\8d\84v\96\89k\96\85r\8e\8em\8d\8de\94yg\8c{_\8dzf\9a\80d\8a\89^\99\92P\9b\8aR\9d\98F\9e\8bAª\9eJ«¡A»\9dCɧHʲH°PÅ»Iέ=άMŬBˬB�©MÄ©GÄ«VβKÀ®E�°J�½KÀ¾I½¹EĶG¼´G²²;�²6´¸Cª¨E·³Aµ¥B³§D¾¡FïBȨU˶RʱS�©J�³W¸¶V³»S½µ`½µU¹·V½·^»Å\¯¼V¯³IÄ»H¹µI¼¿M²²K±«?¨¯@¬¯K°±=§¥C¥®8£\9e;¡¥@¦«9\9e§.¦´5¦¨;¬ª/©\9e2¬«;\9d¤D\95£G\96 @\92\9b9\9f\9f;¬¡8«\9f@¢\9aF¦ 4¨­'¤©&®\9e0¤¥2\9f©5¦¡-²¨0°¥A¦¨;²£6²²D­°B«¤5ª©=°©<¶\987±\9a5¬\991°\943¦\9e-¥ -© 3\99\96=\9d\979\96\9bM\91\9dK\8a\99A\89\8eL\85\97P}\8f>~\968w\94<y\98A\7f¤9~\9bE\81\9d7\80¥9\81£9\7f¤9\87\9dJ\81©A\88¦I\84¥G\83­E\87\9dEv¦7\82®7t¦?\81½3y®?|­2w¤2{\9d4n 7t±>`±1Y­4a¬8Y­-R¨/X¦6Y­9`¢8b¯7\±)c¯7Rª?_«7gª7d¬A_¬Fr§Gv­Kr¥Ju±LvªEo´Km»Ni´No¼Bv­<pªGy²Kq¹Uv²MrªR\82°N\7f¸G\88³R{°U{¯V\90°]\8a¢k\95¥a\96§b\95¦i\97 r¡­r¡¡r\9e\9bs\92\9cy\9f\97r£ p¦\9fm\9e«q¦¤g£§b©ªk­\9fy\9f\9ax¬\95t¯\93l¨\8fx®\85y¨}h¥zm\9cvz¢\80~\98m\87£u}£{\83¨o\84¢d~\96b\88\9cm\88\8fi\84\91W\82\9cV\80\8f_z\1ei\7f%m}$wx-w\7f5\83s-~v*{r8un?|t5ti5|cD\81bJw]HzZLxbQx^]|j`oilubksdyyXwuX~oXvqasw^n\7fkw\7fou{kzxpv|ey~f\84sr\82{o\91}q\94\87s\8b\83r\86}h\87zh\94ze\91|s\96\85x\93\84q\95\81w\93\86m\94\83p\8e{e\8fyh\8c\83\\8c\83`\91\85R\8e\94Q\9c\91N\9d\8cL«\93N¦\98Q±£H²\9eDáLɪKÈ´D�·DιAÕ°IέI�¦I�ªM�®QÉ©J�´CůA�¸IÀ¼LÅ´RÊ°I�¬G�¸B¸¾:¾¾7²À;°°;¸²:½¤D¼¨I¸¤LÅ«F�²KÀ±CÇ°K�¾R˼QúR¾½YÅÃUùY¿¿[¾¿W¼·N¿½VÄÄMÀ�Q·ÂO¸µR¸±P¬±G©´F¥µ?\9f¦@ª¥5££1«ª-\9d¢/\9f©2\9a¥9\9a©6\9dª2¥\9f,\9f /¦¥1 ª0\99¤? ¤A\98\99C\95 A¢\99@\9d\98;¨¥=®¡3«¦/©§*§¯5\9d¦1£©2¢\9f+¯¢+´¥6®«8­¶A¥°@ª­A­¬@±°:´¨:±¥?¬\974­\927®\912¥\926  1«\959¤\96A\9a <\9e\9bE\9a¢H\94\9c>\87\96C\88\96K\8d\99Q\81¢E\82\9fI}\9b=\87\98?\85\9cB\8d¡F\87¥;\80³=~¯>{¬F\82§G\87²E\86°@\81²C\84¥9\83¥6s¤7z¯0t´5k¯4i·:g®2pª+l¶2m³5_³)[¨,[§9T¦=a ?\ª<Y©<]¦5W®6_¬7]£A\¦<f¡3e¨5j¤9m§>p¬Lm¨Lj¡>m¤@l²Dj³Gh¼Eq¸As¯Kp¶C|±By»F|¶It¯Hw±DrµB|µJ\7f´P\87°Z\80´a\85¦Y\93¡`\91¦f\96\9bn\90¡q\9b¦k\9b°h\97«j\9d©k\99\9du\9a¨n¡¡k¦ q ªn£©h¡±j¡²f£¥p\9e\98j¥\96f \8cg¢\8eq§\80n©wj¡ut\9eus\9axy\94n\82\9ep~\9fo}\9aky¢q\86\95f|\98h\82\8fZ\81\8eY\82\90Z\84\96W\80/iw8eu8l\818ts6l|?t|3muCgf9giAsa5qbDycE}gG\83eFnZJp^Vr^_pZeidqldkw_ynOitWjehom_usp|utuwk\81|l{}n}|t\87qx\8d\83r\89\83i\82\82n\88\7ft\8f|c\8byd\8ayl\97ol\99wv\88~p\91}f\8f\89n\8f\80n\89}f\8f\83`\8c\8f[\8f\83Z\96\8eH\91\8bV\9c\97I§\8bI\9d\86H©\94>¨©Gª\9a>¸«K�ªLDz>ºA�³4ŸEÊ®R�§DÇ\9fL¬BįKÀ²HÀ°AøL½¶I¸¬O�°KɪH´»6º¿C¿¼:ºµ>¯­:³¨B´«DÀ\9fI�¥M� >µ§=¼­@ªS½¼G»ÃB·ÃO¹ÄVĸZ¼·^¼QƶPIJVøI�¿J´ÀO­¾G¶µG§°K«°R\9f°H£¥:­£?´£;¡¨5\9f *¦\9e.¥ 2\99¥,\9b¥7\9fª:³¡,®¡-¥¤:\9bª9¡­: \996¨\9f9¢\9b?¢\9fA¨£9£°<  <ª£1°©1°ª>\9f¤9¦§8¡ 7¨¨-¥©-¦¯4\9e¯3ª´3§ª:ª¦C¶¬5¹¬>·\9e<«\98;¶\9a5°\9e9¦\994¥¡6©\9f5¤\9f>¢¨B£¤@\93\9a?\94\98C\87\99K\8b\9aG\7f¦D\85©H\87¦M~¦?\8e\9b?\8f\9e6\87 =\8e D}§>\80ªC\85®@\82¥Q{¨B\83²;\8a¦<}©9x¯8\81«At¹@t¹<p¶1d«+n¶'h®/t³'i´+m±2e¢3c®-`µA_¦<a«6V§>Y±9c¶<a³Ae²?V·;c¶@X¯>]¦:j¥9i°Lw¦Ph¤Jg­Dj§@cºId¸Ls¸?i²HlÀEsÄ;s½Fp´Jz¶Ex»Ow¨@w«J\81³P\80®V\85§R\8e±[\8b°[\8d¤X\9c¤\\99®`£¤n\93°_\94«m\8d­i\95§}\97 n\97ªj\9a§e\95¥t\9d¦k\96ªk\9fªl¢\99l¨\95e¥\94m¦\8fi£\94u\9d\83t\99zi\97\82h\9d|r wz\97}|\92tp\9crs¡pr\90dp\90b{\91`t\90aw\8e_\84\9c`|\94S}1mt;ct4cs6bu:p~?ru<mhBckBjb<r\<{^6ya>sfMz`KkQRfMPoIRtVanTeeVlo]ovUegchfbgsjmxm|xo\80ur~\82m\87\80n\86\80f\88}n\86\84p~\82pxyo{od\89yb\8e{a\8bxe\94rk\90vj\8b\81m\89xl\93~k\99\83]\94\85Z\9a\89e\8f\8bc\93\8b\\9a\91O\91\8dQ\98\8fU¢\87W\9f\8aG©\9aH¨¡9¡¦:«¦H©¦M´¥C¼³C¾´8¾©=»®IȬQŤH�¤IìAÀ¨I»¢H�°O¹°H·¨?¿©D¾´@¸¶:º³>¶²>¾¹Dµ°E¬¶L´®G¼°;»¡<¿¡@¶¨>±±J¶ªLµºBµ½DÀÄSººY²³Nµ¶T¹´PõWľI¼·Jº¹M²�H´ÃKª¸C¢¯Q¥§Pª£A¤¡9­¬5¯¨B­\9a@¡\9b5¨ -¡§4¦¡0ª 2±\9a:¯¡2¤©A©¦B¢®:¢¥6¬¦?¯¡? \9e=\9e\9b4\9bª(¥­,¬³4§«9«®8ª­6¦²>§¥5°¥5ª«9\9f®>\9d¦:\9f§2£¦7§§6µ\9d?¯\9c7³§6´\95-®\924«\95;°§1«¨5®§=¥¬>\9c¬@\94§?\9d«E\96¢G\99\94G\8d\9cE\84\9fN\8b¥L\84¢F\7f\9eN\8a\9fI\93\995\8d\992\89\9c7\84\9eB~\9fI}±?\83©N\84\9dO~°E\83±@}¯B\80²D\87¶>~¸;\83»?~¶:v¬2n¬,f¯'f¯(k§(p®&k°)_ª(_®1[³7cµ4b°AY²2\³0f·;bº=[º0^·3T±6Z±<c»;l´@z´>v«Dv¤Kh¥Sc¬Fc¶Ir¯Ht­Et²<iÅ;dÆ:lºElÃMv½J\83¹B\80ªK\80´K~®J{£K|¤M\81¬X\89¯R\8b²V\92¤Y\9f²a¢²`\9d²e\8e¥j\90\9fp\91¥u\9d¤n\9c§n\94«n\98 h\9b«d\8f­m\9c¡p\9a\9co\9a\97p£\9aq\9f\9dj\9e\98g\94\93k\96\8cl\96\87z\9fty\91sv\93~w\91{y\9csl\8ehq\8egk\8fji\93io\9aj~\9c\~\9c_\81\92]\850fo7Zo@ek4jwEaxJcp<fg9_n@iZGj^6nT6w^Hi\PoVCeRGaLPcSWlLc`Z`jVp`YugTcgVnlfmvbcphwpe\82xk\81sd\89}i\88v`\8c\7fi{vn\87\80d\84ypxgn\83rc\89yf\8fn\\92pf\95vd\87\81c\8bwi\88\86[\92\88h\92\87]\89\84g\86\90g\8f\87Q\99\96T\9e\97T\9e\88K¬\8cJ¯\95<°\979«\991­\9e<³\9c;¬¡?¹\9d;»¤5´±=º²D³¥K¾¡MÀ¬D¹­NÀ¢L¹¦I¼¥S»¢H²³B¼¢=�¢F»ª@¸¦9¼¬=¼¥@»«<¿ªK¾§:°´=¶³;¶«Cµ¤;¼°B�§L·¦C½¬M¸·J³�U¸¾N½¯X»­G½®RÇ´ZÄ°V½±T¾«D³ºP°®M¦©? ¨B®¬I ¢G§\98?¡\9d?ª¤C§£?\97§6\9f 8¦¦3¡£7 ¦7 £:¯¡<¡\9cG ¢C¤\9eD¢¤<§¬B´¥A±¨4¤©+°¡%³«/´³7¦´>ª¯9¨ª7\9fª8ª®2¤°>¤¤C¨\9e?¨«/©\9f-¥¡1­¡<±\9f7²¡5Â¥;°\96?¯\8d3¬\973´£6ª­8§¡=\9e¯G¥²E ¨=\9c©?\9f¢J\91\92B\95\9eL\80\9cF\87\96@{\97B\89\96;\82\9dH\81\9b8\80£2\86¥>}¬B|¡8\7f 9\86¬<\80¤Q\89£E}­J\80­F{¸A|¼F~´Gx³G\80²>s¿2u¶+p­,d¶8h¯4f¨/e¨5k«/Z«4gÂ=b¼2l²<Z±7]À-QÀ@`³:\¶7[À6T«C\³;h»>t²Ep¯Co¤Cg£Sb¤Jl¯Hb©Am¯Fh·>l�Dl�Bv»DmÄ>nÅ?r¿Hs²Ly¸I\82ªR\80°R\7f©O\88¦Sz³Q\7f¨M\8f¬Q\92ª]\96´W\9e·c\92¶c\89¯q\95«i\93 v\94¡l\91¤l\8d¬r\94¦i\96¡q\8a®c\8c£k\9b\99e\92\9dg¥\91n¢\9cr\91\93e\98\8do\8c\92i\9f\84j£\7ft\95yt\98zy\96rl\91yq\91wi\90me\90ut\9bkq\95bw\94e\80\95Yt\93`|3ct7]n5Ys>`t?UhGYbCai?cb;gXGlS:s\<nYIaODeUJlO?dPLdQYZMZbPa_Zbbcie`do\ip\jm_jvbxpk}qfvsh}|_\84}Z\80~\\7f\82\\82uc\86wi\80mj\81dk\82k]\90p^\8fwa\92\7fV\84wZ\86\86Y\83\83W\8b\81e\8c}a\92\8bZ\88\88_\88\93R\8c\96R\9d\99T¤\92Q­\96K´\92>µ\8eB°\8e:§\9a>©¡3ª¬:­¥8«\9e1·¡6À«?¼¤GÄ©>À¬@êE¼§MÂ\9fW¼¢Pº©J´¦D¶¨E´¢;¯\996²¡8µ¡:À\9f9· ;¿¢B·¨>±«5¹µ>µ²:³¨A½¬?»§Bº±D´»Q¸·R¹¼L··Q¸«F�«K¾°F¾²Qº±S¿§R°¦R°®F£¦?£¨Iª¨Mª¥F©£H¨\9cC©¡F¤¨>¡£1\98©4\91­9\99¡8\95§0\9d\9c9ª\9f@§\99B©\9fI¢\9dK¡¨A±©A«¥8°¦1³¦1ª¨)ª¤ ¶¨$¼­3³°2±¨,¥«.ª¦>©¬<­¨7­¨@ª«3¡ 1¡\95;©\963¹ 0¸\9b=¾\9eEÀ\97>´\9fD¹\96Cµ\96?¬¢:«\9e?®§8 ª9£§E¦£F\9a©>\92¡=\8c\9dE\85\96@\88\9cE\89\9bF\82\99<\82\92D\8a\99A\89\9f:\83£=}¥?\83«8\86¥A\87\9f=\91ªD\8a¨F\84´L~±Ds±Cv²J{·Sv²L\80¾L{½?pÆ@m¾5tÄ8k¾8k¶;f®8f·2n²3`¸/bÀ5b·:i»:^¼3V�5Xº<S½?QµIR¹J`«Da®Bp®>r¶Ao¨JvªPe¯Ie¬Je¬OeªIm»Ii»Geº=r�7uÈEsÃGrÉKm½Em½M|¼P\89µT\84«H\83¯G\8a¬W\80¨N}­U\8a®S\8d¸_\8e³X\9dµ^\9d±Z\8b¹f\86´^\89ªg\7f¡b\7f¢n\86§a\87ªb\83¨f\8e­j\89¥h\90¥^\8e¢h\98\98i\9d\93b\94\8el\96\84e\8f\86c\91\83f\9b\86k\90|q\92yq\8btu\95\7fh\9c~f\95|h\9atq\94in\9b]{\94bv\95g{\86[z3jl+nc.bk3buAZh@T_B]V:Y\BfYGaTAe[@h[E[R?bJ:`SCVQN[^GcVM^\[VSecXriZajTal[eiejqajsmnthtvb\7fn]~\81f\86\7fbzuY\86y[|wY|te\85jb\8bbd\91wi\86s\\92t^\80s[\8c\83_\84\80N\8cxU\80|V\90\87\\90\85^\84\91^\8e\97P\8f\96T\9b\9aL¡\8dR§\94=©\97;·\9b?´\9a<¨\979©©5²ª.¸¥,¼¦9±§:¯\99N¹§9°¥?�\9f=´¨E¹\9c@µ\9cBµ£H·¨B®¨Kº¨D®\9b:­\9a3¼\985¿¢7À\9eBà7Ã¥A�¡7¹±6³­3´¬7¹«?»¦<ȤK¼§N¶¯L·®N²µK¿¸V½ªG¾®D�±N»©Iµ¨X¶¯HºªC¸®D´«C¸§Aº£E« I¤\9b>¨­>¬­9£´9«³2\99\9e;¡¤5¥\9bB¨©;\9e¡A£\9f4­¤>®¡J® 9µ¥4´\9e:º©4­¥1£©3­©'´¡/¬².¶«<£¨6\9fª5\9e¦:¦­A¨¬?·©:­\9e=¥\9e8¬\989±\8d6º\9a<µ\96@·\9bA°\95G°\99@¼\9b<³\99B§¢A¥¨6¯©;¤¦4¦¬7\98¬5¡¨8\9c¨G\9a\98I\8d\98L\8d¦@\8e\9aH\89\9d?\84£;\92\9eB\8a\97E\7f¡;\84®>\8a­2\7f§=}«@\89¤=~¯F\80´P~³G\85¹F}²L\81ªP\80µA\84»=vµB{½An´8y�4pÂ8wº5n»<wº<h»2o²4]³9g¸:f½:gÀ/ZÌ0N�=L¾<U¸DQÆC]¿?i¹>o°=t´Gt¸Gw¦Pq¦Oo¬Nm¨Bn¬Dp¬Ij¶Bs³@o»;n·6t»MkºOi»Bu¼R|¿V\82¬O\86´K\81°F{©\\81­Z\84¬M\89µO\87»O\8b¾R\95«W\8e´Z\92¼h\8b»e\94¸n\91©k\89¡e\8d¤h\82©g\82­_\80¬e\8f£k\8e\9e]\94\9dn\96\90m\98\8aq\96\93m\91\86h\8f\8cd\92|l\8f\87a\95\80c\91|q\92\81g\96ym\99\83g\90\81p\8dzk\8aoq\8dru\8b`z\91a{\86]\81.td/md7mg.\n+\]2\X8RT<VSG^WFcX:_];abB_RGXO>[UAR[GTdEZ\LVRS]PdiLjfTrt^iq]ordijhkpakvapiapl`\80{\\80\81_\89re\84nY\86k_\7fn\\8cs`\90g`\85p`\8bue\90uh\8bs`\8au]\8d~K\82\83I\81~T\87\85_\89\88b\88\7fc\94\87\\90\92M\98\94L\94\91I\9c\8aIª\88?­\97E°\9b;§\9e?¦\9f0­¡/´¡6¹\9c5¯¥B²\9dCª\98B°\9b=° @· >»\9cI·¦Eª£;ª¦B®\9d@½\9dJ¾\94K¯\96=²\9eG¶\9cE³\9a;»¥9¹¨3Ĥ<¿£8³¦8¶\9e>â<ƬFÄ¥G� E½ªI·§M°ªV·ªJ¼´M¿¨Q¾¢J¶\9bQ¯¤L®°J²²;¶¬C¼¯DÀ¥B»\9e:±ª<§¥?±©J³´C©³=¯¬A\9f¡;\9d\9a8¬§>²¥=®\9d0¦¤4¬\96B­\99B¤¢6§\9e4­¥-»­*¹¹/¨µ.°¦-®§5¬­6®©7¨©9¥¡>¡¬<¨°E¨¨3°¦/§\9c1¥\996°\9dA°\92Bµ\98:¶\99B®\9c<ª\96D¼\95<¿\9c=¤9³\9f?µ°<ª´;¡ª8¦¥7¦¯3\96´:\9d£E\9a¡G\8f¡M\86¢I\87¦D\96\9fA\8f\9f@\8e¢F\84©8\89\9f5\8b­8\82®3z§C\81°B\88«E}¯My´I\86ªJw®Rv¶T\85²J\84¨=}©B|¶D|¿:v¸<\84·?\80Æ4\84»-x½/p¿0q»<r·2g·6b»,`Ì2cÄ-`Ì1ZÊ/NÌ0IÆ.NÂ<\¸3a³9p­Km¬Nt®Uq±Rj¢Uj¤Pe§Jn³<i­Gp±Dqµ=t¶6v¹;jÀBr¾Dj²My·Sw°M\83²D\82­H\80­Ru©P|©R\88£V\83®U\8b¼O\93¯U\8d²_\94¯j\96¸d\99¾k\8e´e\95²`\8f e\8a§h\8a\9eZ\89\9cZ}\9df\8f\99k\91\9di\8e\9dh\94\96m\95\8fn\8d\8do\86\92q\85\85n\89\87c\91}a\89\80h\8a}_\8fx^\8a\82`\96~j\92\80j\90ym\86xe\89if\86cq\8ago\88]x;q`;te3m^1Z^.ab6WW<WO2[W;b[L`OHaT;S`E`TAaQ@WTIK^CTUGZMRZX^aVaYUgab^mW`hhejjcr\eubhvcsy_pj[{sV\7fvR\80m`\7fpV\83hb|k\\82th\8dm[\8fw]\88v]\8agY\8bfh\86sR\88xN\80mX\83uU\8a\81`\8d\84[\8e\89]\93\85S\9a\87H\97\88Q\90\8dA\99\8fB\9d\8cD­\96G« @\9d\9e8©\981°¢,·\92<®\96:º\9cG¶\8eF¸\929ª\8c9·\9a5« @°¢;­¦E¤\99K¥¦@»©L·¤P´\96<µ¡Bµ\94BÅ\9eB·\9cAŦD¿\9b8Ä >Ä G´\9d:Ä\986�¡@À\99;�¬C¾¨G»©K�°W©ªMº®Mµ¯Mº¢I½\9eI¯ªNº§L­±F³§?¶«1·²8º\9e3µ\9d3·¡=¬\9f>®µ=¸«=¬«Eª­I¦¤Fª\9dG²\98>±\9f@±§4®\99+¦\9b/ª\958§\94:«£6¨¥-¯²2¯¨,¯®5²¨,²¯1´«0·µ9®®:¬¤4¬¤1©®G¥ 4°«<¨\9f8 £3\9e\98<ª\9f=¨\9c@ª\9bAª\8cB­\8a=ª\9b=¿\99<²\9c:¶¨B¦ªB¬¬7£¤?\9f£6\98¢6\98¨2\9c¦B\90³P\89©Q\90¥P\89ªF\9e«E\98©I\87 E\8a¤G\89\9c7\81¤7\8a²:\8bµE\82¼Oy®C\85¬G\83²Ky´G\80§F\86·N\86µQ\89°;\89·A\8b¶>\87¼8|ºDv¸<\86È7\7fÅ5}Ä9{½Ax¿>~ÊEjÉ6mÄ>kÕ)`Æ(\È7`Ó0X�4WÊ,YË.aÉ:b·;\»?jºKkºNqµUmºIk§Nt·Er±;n³Do©:j°6e¼?oÂ6oÀ=hº<e¬Om±Go®Yw«Tt«M\80­V{²M}ªH\8e¨L\90¶I\86ÂO\8c°N\8b»\\8a²Z\95»Y\97®U\89®X\8f©X\8eªZ\8b¢_\89\9ee\83¢b\88\9c`\7f£c\93\9cl\8e\9ec\90\92i\87\8ce\91\8dh\83\83e{\92c\80\7f_\8f~b\85~S\93\84R\8b\80`\8azd\83\85g\90\80m\87\80g\8buh\82ee\8bab\8e[l\8aUtBgo>nc0pY.a^4\];VS@XP8\Q4USA^MJZWBSW@UX?YP;[ZFSXINSWZOXeSZ^Ud^c]]gh\_cifjeanmZmt[ktTluS{mS\7fuW{qUul[zmW\7fz]\7fy_\83z]\88wg\96yc\92i`\8aj\\91f_\85jT\85iT\8ah^\82s_\8asX\83wZ\82yO\89zP\94\7fG\93\88J\8c\8aJ\96\95?¥\8aG¤\90Bª\98H£\97@£\96=°\94:³\99F¬\8dC°\84I­\89?©\82=³\894¬\8c2¥\97:«\9eH \9fE\9f\99E­\9cE±¦=¾¥Eµ¤H½\9dF½\909Ã\91:Å\9d7Ã\9aA¿\91CÈ\93K¿\96B½\9aF¸\9eK¹\97@¹ LĦMÀ²T¯U¿¯P±ªQ¬ L± I¬¡K±¦?¶¡7³¢@·¬6¶ª9º«4µ£,µ©+¼«4¾¡@³¨>»¦A¹¯G­¡N¨¢E® L¬\9cD¸\9b;¼\9eC·¥>¹\9c2¶ +¯\9f5®¥;²\9d5²¬0¬¯8«²,»¯1±¸4¸·)¸­2³°-²¶2±­*±¢6ª¡:®¬9­¦@¦¥?¦\9b6\9c£>\9f\9d9\9a\99< \93F¯\8bE­\8f@³\98K²\9fDªªG­°Cª´E¤­>§¯?\9c¤5\9f¡1\92¬;\93¸=\8b¶J\8b·F\90­H\8f®B\94²D\8f°B\8e¨?\8e©H\8d¦C\96§E\8d¯;\8a±<\7f¶L\87­P\85³K\81µG|·B\8b¨C\88©K~­R~¯G\88·B\88³;\88¶5~¶=|¸2\83Å3\89Æ>\81ÆD|�L\81ÌD\80×I|ÖBxÔ3h�-f×5[Ñ/R×4WË/aÔ.aË+V¾4XÂ8XÄCV¹FW±Pi·Jv·=sº>h¼4j±;d¬<m²?a½@b¾6l·1nÀ5i»HfµI`©Hc§Vo«]r¨Rw¦J}®P\86³S\87«F\8e³D\88¸G\90¹F\89»Q\8b¼L\91¼X\98¾W\8e¯R\95²S\8c¥]\85\9cZ\81£d\80§f\82¢a\8b\9ea\85\9b`\89\9ef\87\9dj\83\8fh\8a\8df\84\8bc\81\8f]\86\84\\82\84\\8d\8b]\8b\8aT\81\7f[\83\81]\87\85_|\83d\81wb\89zd\8epf\87bb\90\q\88]p7rb:d\-eW6^h3Z\-YL7SV9bQ4UM=^S<QG6QO9WXGYQNKPMS^VLLXOKR[\^Q`a\cVZ]_jhWjdjq]gi]fp]osbpqTukPthOzkM~jW\7fpW\7fr]\8dlW\8el^\86t^\8aqh\90e\\8dpU\90rQ\8bfM\86sY\8atY~q`\87n_\83xR\80\7fH\8a\83V\97\81C\97\8aJ\90\8e@\98\909¦\8aDª\96E¢\88D \8fH \8a>¦\9d5¡\92C\9f\8e9§\85<£\813©\8a1­\901¦\93;¨\8b=©\91=\9b\97>\9e\9f8¯\98C´\9fA¸¢Eµ\9c@Å\9a@Ã\9eB¹\94:Ã\957Â\8eBÇ\98F¼\92EÈ\99JÃ¥B¼\98KÀ L¶\95;¹£I¼ C¸\9fI·\9bT¶¤J«\99I±\9eM¸\9fM¸¢F³\99C®¦D¶£7½\9e:º\9e6­¢2¿ª2´²9¸¨3¯¬>¹±B¼§Fº¯<®¬F³ H­¡B¹\94D¯£F¸§@¿¡2°¡3§\96(®\91/©¢3µ\98-¶¢9¹¤'�­2ij2º±*¼«*¼°%º³)¸«:´­6©\9a6©\9b<¬\9e:­\95D¦\9d?­\9e: \9a?¡\94@¥\88H¦\91Fµ\91J©\9f?¨\9d= §>ª®<£²D¥¦D¦¨? £4\9e¤<\98·=\98¦=\98©K\94¬F\96¢L\97±:\9b´C\94©?\86 K\8b¥=\8f¨D\9a¬B\8a­9\88¨K\8f½B\8c²L\88¸D\80µD|ºC\87¶K\8c¯F\7f©B|©A\8a¬E~¸={·@{³1|¼?|Ê:zÉ@|Ò>\83ÆCsÉFrÅ>zÚ@pÚ9gÑ7^Î6dÖ.cË,SÌ5ZÌ3fÎ3^Â3ZÀ3a¿BUÃAj´Dl½KlµAhÀ>f´7[³=^»Bi¹5fÂ6iµ8l�7p¿;q¸Ek½Kk©N_¢Un¨Lu¡Vv§Gz¨R\86«H\84¦G\87®E\8b»I\85±Q\91µH\8b¸W\85ÃO\80»I\83·U\8e³M\8e¤V\86\9fc~§Y\81¦^\83«R\84\99V\83£d}\98]\86\9cf\91\96h\8f\8d\\84\89Y|\93]\83\8e`\91\8ba\85\87U\83\86Yw\87Uz\89a\80\85V\85\81e\8e\86X\94zj\8bl]\84f[\89cp\8amm;kZ0gW/f\3ad/bP+bK4bR.ZW3UM*[G+OS0TS@OR@ULGTWTJWXLUZSRZPb\Sd`O_]W^^g^Qj^]hYkf[npaqjdsqYphKobOxfP\84fK\7fuJ\84nZ\8bfY\8dea\95hc\8bmb\8bpa\95mc\8epS\88oN\83zN|sH\84lR~kS\84sO\8eoV\89{K\93}@\95}E\9dy?\9f\81B\9c\90=¦\948£\916£\88>¤\88D¬\94A¬\97;\9c\905\9d\903\9e\807¡\81< \8c4¡\874°\8a0¯\91-¤\898\9d\94D§\9c?«\9fD®\96:¡@Ê\9cB½\9b@º\95AÀ\9bA¼\8f<¸\9e7¿\9d=Ê©FȧEÆ¥G¶\9fG»\96;¹\97:¼\94:¹\97@µ\9eL·\99T³\9cW±£Iº\9cNº\95B²\9b7®¢<®¢.²\9e,¹\9d)°©7²°4»±3¾¸1¶¯?°¨<²©6·±?²§:±¡>µ\96@­\95C¯\9a;¾\99=À©1À¥%®\94'µ\9c(¯\97(¶\97*�\9e1Ȧ3È¥$�¯ ·¶-¾©/­(¾©6´ª8¬¢=±\9d:³¢A¯ 9©\93E¤\8e@©\965±\93;§\8bG©\8eO­\97N°¢L­\9b?¤\92>©\91;¡¡D\9c\9c?¨¨A\9b±?\96¬A\9fªF\9c±>\9c²J\9a©P\97®L\8b¥A\99¬7\97ª>\89ª;\8c\9bF\95\9eH\98¨D\8eªN\95§G\8f¬A\8f¶?\81±D~¶;\8bºA\88¹L\8d²P\86¸C\7f¬<\84±C~»E\85µ<|¹A~µ4vÂA|Ë=\84�:zÌ6oÄFsÉJtÑ<l�>o×6gÕ<\�2^Ö.UÎ:ZÅ?\Ë0Z�/]½.V¹;b¼>`Ã4pÅ8y¿Fn·Ci¾<gÈA[Ã?]É3]¿7^½3d¹3m�.o»4f»7k»Hh¸Sc£Od¦Oh£Ns©Iw¥Dx¤H\88¤K{«N\7f¯Q\8a¯U\92¸N\8dºL|ºQ|¹V\7f¼I~¯H\81­Vy­R|¤Q\84°K\7f¬Nx¡Y{\9d]\88¡W\90\9d\\84¥Z\88\9d[\8e\8fR\82\86U\86\8cV\8f\8da\8f\7f[}~^s|\t\87]u\8ea\84\85\\81|U\8e|^\90u`\80w]\84ta\8bnn,aO3_X,[_/c`)[O,VS3c[3\R(ZX!PO2SP/RM4EMHNLCUJYTVSOSRQURW[]O]Y[ZW\eR^XYZc_Whgahpgehn]r\[{gK\82lO\7foI}oG~fO\8a^S\88gO\8em]\9ae^\9aw]\95rb\96le\99x\\90|X\87tF\8a\81L\8dtN\87wU\8arO\95tJ\86uN\98\80D\98{E\95|;\97\8e;\9d\85=ª\8c8\9e\8d6©\8cH¡\88B\9f\85L¢\86<\9c\88@\96\83?\9ey?¥\82?¡\866¯\85.¬\939 \840©\85.¢\901©\968¸\9f5¸\92,Å :Ä\9d@Ç\9dEÃ\9bE»\94BÇ\91A¶\9a:½\9e7º«>Ã\9eN½\9d;²\9c7´\9b=º\9c2¼\8f@�\9dIÀ\99J¶¡Mº\9fQÀ¥N»\95D¿\9aD¯\911µ\9d.±¢/­\98(´\9d.²ª8µ©:¶³1·«>¾°9¯§0«©;§\9c7«®;­¤=©\97@±\9cC¯\95:¾£5½¦/±£0¬\9e/ª\92!¨\96.À\920Ä\9c,½§#ñ,¾².ij/ì-Ä­"·²,¿«+©¨8¯¤3³¨3©©=¨\95C¦\93A¯\9aA³\9b6©\9aF«\90C°\98N³\98P¢\93N\9c\93K\9a\9d@¢¡9\9b¦H\9f°;\99¯G\9bªB\97­E¡¶I\9e­G\9d¦Q\93¨J\8f£H\9a¦F\9eªN\8b¥J\8b\97>\89 J\92\9fB\9a¯B\97¬G\8c¶E\94²:\86¸>\82±8\80¸>|·?\80¾E\82¼F\92¹J\84¸B\88�?\93°A\84·:~¼7x¿9\84Å>tÎD~ÉE{ÊDqÇFnÒ;x�FtÉGsÜClÌAi�.^É?_Ë@\È1_�/fÉ;[Ä<\Æ,h¾3o·5\83Â?w½Co·E`Å9VÃ<_�0`¾=`·9e¹0k¼8h¿5c´Co°Jc°Oj¨Pi¨Lo¥Ik\9fL\7f¢B~ª@\84®E\85®Q\7f¸L\7f¬N\8b¿S\8a²V\84µH\81·Gy±HuºT\85«KwµNq©Yu§N|®J~°X\87¡M\80¨Y\84 P\83\9eR\84\97`\88\8eY\8d\9a_\8b\8aX\8b\8e^\87\8ae{\80ay\89hs\84ax\8chy\86^\8c\85g\8e\83[\85vg|}e}}c\80wd0T_,aU7YN7`V1Y_+TZ"XQ'\N$RX%OR%MX1CP??IDBQKQNRQU]XTYNSXP`WWeXSeQZZUSSRY]UPb^Wib`ckaav`[~aL}_M\83mL\8alQ\82^H\8aaF\88aQ\98nW\98oT\97qV\94ta\9duf\9brb\9d\7fP\96\7fO\96{P\97\7fW\8dyN\93pP\95qU\93{K\98};\9a\82<\93\80:\97\8dA\9a\904¡\8a6\99\8aC\9d\81G \7fB\98\87E\9c}J\9a}D\9fwG¤w9\9b\86?¢\8d=®\8b=«\8f;®\8c<¤\874±\872¬\8b1®\8e*¿\9c-¿\9b.Æ\9b9�\91D�\90BÇ\97FÀ\99E¶¡9º¡=»¡;ĦFº\9bD¼\9e7µ\989¸\929´\9bD¿\9dEÆ\95M½\9aG¾\9eL¾\9aC³\94>³\98:¸\96=º\98.´\96)´ 3´\9c/¯£5½ 8¼­<¼«0· 4³\998©\9f7©¥0³¤4ª\9c.¬\9a6­\97;¸ :¸¥7¾¨4µ¥2¶¦(µ\9d+²\94+»\93 Ä\9c$Ä£-ì,ȱ.É®.�¬*²(µ#¸¦.¨©7¤ª<ª¦3ª¢;¯¢:®\93<¨\96:®\97=±\8f=¬\98H²\93E®\90Q£\96R\9c\98L\97ªH\9c¬?¢¯F\9e°>§·F\9e®H ¦K\98ªL\98±V\94§R\95©Q\99\9eO\9b\97O\99\9aL\95\95P\8e\9fC\8e¨E\95¥9\98®<\91³B\95¼9\87»9{»5~²:v­D|¹<\82�6\8bÄA\8bÃ?\92ÅJ\98½H\91¶D\88Ã=\84ÉE\84Ë?{Ì<pËJt�IpÆDyÇGuÊ>wÔ@jÎ@mÒAsÓ=kÌ9gÈ7]ÈAcÆ@iÈ4lÉ0e¿5dÄ3hº0r·;{À8xº5i¸=]¸3_�9WÂ5_Ç2k¾(h¼/k¼6]·=_²<d±:p¥Ap¦Qu\9cUm\9cTr\9cMv¡Ft¥Mv²Lx¯My°K\81µS\87´R\81±T\7f¿M\84¿Xy¶R}­Z}®Pn¯Im¶Ri¶Ev±G{¹H\83°M\80¤X~©T\8e§M\8c\9bT\89¥N\8d\9eW\8e\94`\8a\91g\88\8ei\85\8e`z\8egt\83hv\8ab{\89^\8c\8ai\8e\81g\92zd\87~c{wl\7fsd-UU&[[3`R.VM9RF/VU&RN4WG&HE0LE)AT1>P<EO>JTLK[WIZWDTUFXTUi^Tp^[iTTdWNT]PUUSVd`an_coX_mbTsZQxaLylI\80fK{hF\88^O\8c^O\8abT\94f]\8dgV\91q]\8cnb\95o`\97\82R\96\87P\9avS\90uN\92wJ\8fqI\9awH\8d\81;\98\7f>\98\86?\8d~D\92\90M\9c\8d8¥\8f0¡\8aB\99}A\9d\89@\9a\8e@\9f\87<\96sH\9c\82F­}C z=\9c\91Aª\8d?¯\90C«\8a<­\811·\8d,±\880½\8c6Â\959Â\924¿\9a,Ë\8a<�\90<Ã\98HÂ\95F¾\9b<¸¡D¼£@¿¡;¶\99CÀ\985´\96A¼\97/¿\92EÃ\96:¡;¿¢:º\9c?º\98C±\9e1´\8f0¼\914¾\96.²\94/» ,º\9e:¬«5¯¡?¸²?²¦Bº\9c:·\9d2¯¢;¤¤?ª¬5« <® 6¹¡9¼§=Ä¥/Å¢6´­4º¬.¯\9f)º\91*·\9b)Ä¢*Å©&Ī/�¤/¿³6ǵ3õ(¾¯%�©.¬\9d3¬¦6«\9d9·\99=±\97F \8b@¦\9bK\9c\94A\9c\9b<«\91M©\9bB§\8dR\9f\98Q\9a¨S\92¡K\9f¦F\9d°?\9b°I\98³J\9c®F\9b§H\9c±O\9e°J\98²P\93«N\9b¥Y\8f¨J\92¥H\8a¡R\94\9dB\88¬G\8a¨>\93²A\91°A\95µE\89¯I\82¹:\81¾>{¼B\81²;\81·D\82¿?\92Ã@\83Â?\85½M\8d¶N\88¹D\80ÇC\89Ç@\80Ú=tÑ>nÉBoÌG\80ÒJ{Æ<\80Ò;uØCt�GpÔHcÈB`Ò7]�G^À:aÈ3f¾7g�0bÇ9qÄ6h�=rÎ0xÃ6a·8b»;eÊ4i»5cÆ/e¸,r°1k¸9`´0g¶0]³9l¨Go£Mh\9aNj\99Mo\9e?j§Ez®?i¤Ly¯Qs¬Dy­L\8a¸G\89²L\83ÆL|¿Fl»Ix«Bz¶Sh°Fg·Rs±FqªG|±P\8f¯Nz´I{²M\8a­I\84\9fM\91\9a^\86\9cR\8d\91c\81\8c_\80\90a\8d\90_x\85`{\8df\7f\8eb{\89c\80\86j\8d\7fm\8b\88l\88\81_\83wl{\7f`.[_)JW4SP2[F9VH6QC-IN/JM+IM4IC-HA6JK7DM>O]RNWZI[`HZWHbYNoeKnaOhWO_VRW[WU\PXfYUcOdjVguZYw^X\80`L~dMykK~nO\8cpZ\88jS\8ajX\7ffT\82kT\91sV\8dmR\93xW\8e{Q\95\7fV\99xR\95yM\98\85L\97\7fB\96\848\98\85<\96\83B\90\87D\8b\8a@\90\81G\99\85A\9e\888¦yD\9ex>\9f\87D \85E\96\81L\9dwC£\80?§y>£\853¤\886£\914¯\89>­\83?»\84/À\8d/¼\882»\875´\884½\93-Å\8c.Ä\979»\92B¹ BÄ DʦDÂ\9a9Ä\9d5º\946Ã\96?¼\91>¼\8d7Â\906¼\9e?À\9c>¹¨4¸¢;¹£>·\9e8·\9b4¸\912²\93/´\9a;¼\9c;¹\9b3«¡1®¬:»¬9¾§?æC»\9b6º\9a2©¨6\9fªB¦¦<¡\9d4¦\9a=«¨3¸©0¶¤-�£8²ª.´¤(µ\9f(³\99,µ\9d-³£+¼¥(È\99$Ǥ)·©-²¬-¾·4½³,» -½¤/±\9d=¹\95=²\9dE«\9fH¢\94M¢\9cI\9b\9eJ \9a=\9f\93@\9d\8e?\9c\96N\95\9fP\97§N\97¦F\97©H\9b«O °J¥£F¢¢H\9d®O\98²L\94²B\96®H\9c¤W\96£Z\8f¬W\8d­J\86§L\8a¨L\89­F\86ªO\86­P\95¬?\96§I\8c¬J\7f±J{¿G\85²H~¶?\80¼E\85�?\8cÇD\83É;\84Ç>\88¸M\8dÀL\80Æ<\8aÊ8\84Ù=\80ÛEuÕ?x�;wÌ<{�5\80�;\84×D{�IoÊKd�FfÈ=kÃ=_Ã5\Ê=\Ì:aË:`ÆBkÇCfË9qÊ7sÆ5g¼-k½%hÈ.bÅ,^µ5dº/kµ/e¬3Z³3S�4]½0f®8j¬?p¨Gp\9dDm¡Bn«=g¡Jk¤Nv Pr¤C{´E\84³M\82µIw½Jl¹Fn¯Av½KlºHi³Qm¸Jq¯Rn¯Pt²Q\89¥J\86ªE~®K\89²P\83¨P\8a¢U\89\95[\8a\92Z\81\91X\83\95[\87\8bb\85\94bs\96mx\95e\84\82c\7f\84g|~q\89~m\84\80f\89\86m~\7fc&MJ%QW2VD4XC1PI.HD)MF+CK(GG/ED=HM1CV:CONMeUOZRCaXETP@ZYIedKlXT_ZQgRSY_[abK\VV^h_hh\mi]it[dphZ|fWyeSylWz`W~_]}k]vnT\8cg^\85{[\90vR\8fqT\90qZ\9ayI\91uF\99p=\8dy@\9e~E\94\80G\8f\83H\99\8aM\9c\81J\95{E\8c\85K\9a|I\93\8aB\9c\849\99u3\9d\83:\9c\80B¡\83B£z>¨|9¤}D±\850¨\89.§{+±\821®\824¹{0¿z)»~:¶\83/¸\924µ\8a0Ê\91/¼\8e0³\97;Ä\96AÀ\97DÄ\93?Â\91>½\955²\92.²\954°\91=µ\8f3»\87;�\986º\95;¯¥C³ 8¸ C¸\9c:µ\9b=µ\9b(¹¢:¾ .®\9d5´\981³«8¸ªC» 6½¥6µ\9aAº\9bG¨¥=§¨EªªF¦¥?¤§G±¢?«¨D¸¬4ºªBÀ\9d9¼\9b1´\9d,³\99)½\973»\9f(³¤/´\9f'º\91)Æ\9b2ª3�¡5¶µ8¸ >µ\9b3°\969³\9f9»\9fC¼¨E±£R«\98S\9a\91J\92\9dP\93¡@¦\9aD¡\95E \98H\9a\9eS \9eU ¦Q\94¤N\9c£P\9d¨F\9bªU\95¢R\9fªJ\98²S\92¬R\9d±R\9d®X\93°R\8b±W\89²[\80°R\8a£Y\87§Z\7f§W\86¤L\99±M\95²C\86®M\7f­F\7fÄ=\8e·?\85¸A\84¾9\8f�C\8f�I\8bÇA\85É?\88ÃP\8dÌ>\86�;\8eÌ9\8dÒG\82Ò?{Ì:{ÕDsÄ=\7fÌ6\84Ù<vÔ:\82ÖEnÖAbÜHeÕJoÆEhÈ:b×LeÉFk�8hÑIqÆ?uÆ9q�?p¾6l¿1gÉ)gÈ4mº0^¾=lº5o±6l´=i³6a½/S¼8[¹7\ª9_³>s¡Ca\9c>a©Ap\9fJj¢Ns¥Ak¡=w´Ou«N~°Nn²Ep¶Js¸?m°Hj­KjºCu�Jq»O}®W\85¨T\8a¥Ry°T{³T}¢S\89¤\\8e\9b[\8d\8eZ\82\94b\80\9b^\89\90T\8e\90Zz\93i\7f\9fkx\98]\85\91h\81\81a~}iz\81j\81w^\85wd\84\83`.OF*NN&FK-GF7JK5HE-LA+EI4MN0EI2@T:GQ=MYMH^KGWNDZECdL>\V=f_KeXSj`JeYHZXQ^YPkPMf_S]]^cn_^qfbs^R{]RueUze_}mbte]|iZ}tU\85rW\86sX\84lQ\90vZ\99wZ\94oJ\95fE\8fn=\93xF\93\80?\97\87?\91\85G\92\81K\96\7fK\90yS\8byI\8c\81L\95|?\95\820\95\802¢z1 }5®\83;¬\86<£\84B©~:ª\7f-®}+µy.³|.´w)³y*µ\81&�\802º\89*¸\8c*¾\904¾\92.Â\9e/¸\999À\975Â\9d7Ã\97;¶\954°\8a8·\8b+µ\92-µ\874À\849¹\8e7±\8dAª\99?´\97?® :º\9aD·¡<À¥;»\9e.µ\9f2¼«0¿«*±¦/¶§1²§=±¤>¯\9c;¯¦:¯¤G­\9a?°¡E¤¥K¨\9bF£¢E¬\9f;²ªBµ¬F¼©E·¦>º\9a9Ã\9d)ɧ+¿ )¶\99*º\9b.¹\9f+½\990Æ\9d*Æ\9a(�¨/»ª5´\9b@·\99?°\9a>¸\9d@³\9aF´£G«\97G¢\99M¦\97L\99\97M\92\93O\9b\9bC\9d¥M\9d\9dH\9b§R\9c¥K¡¨R\97\9dX\8c©N\90¤R\99«K\94±R\93µK\9a±N\9b°R\9aºJ\93¶P\8a´R\86©P\83¦^\81¤b\83§Z\83«Y\80 X\8c¨U\92«K\91¯D\8c¯B\90®D\8cºB\94¶F\95¼:\90·C\8cÀ?\8d¾J\90ËG\89ÃI\87ËD\82ÕK\88�A\82ÕA\8aÒF\84ÎE}ÉD\81Æ<}Ë:\81×A\80Ñ8\81ÙE{×FqÚ=lÛCqÛEkÌ?p�CpÖIqËAg�Gs�FmÈCkÊBxÒ=sÇ:f¾5c»3i¿/k»0k»3q¸,g¹3iºAiµ?e¾?Z¶9b¼>Y·4\ª?e¨@l¡<b\9cBh¨Eg£?j«Gp­H{³Nu°Nr¯Eo·Cu·Gk³@n©@v¯?u°?pºEq»N\80ªS}ªU|«Vu°S\7f¨[\89¡R\89¨Y\88§X\87\97b\81\97X\7f\97X{\91T\85\92a\83\93`y\98`\80\99[\7f\9adt\8dht\8cg\84{`\86ye~q^\86xZ$NH\1eKH%LF+HB6IM6B@)PM1NE.BO5>K3LG7RNADV@?PT9RL>HS:WR>OVNd[H`VLYWV[TOcWP]PRdTO\OYec\encefa]sVQo]TnXW{^]nadpeayq_\84hQ\80jP\85x\\8cv\\8du^\99oS\99yI\8bqN\8anB\8f~=\9b\84E\8e\86@\91~N\9a\8aI¤\87Q\94\81O\90|9\94u@\96s;\9dw1\9d\81.§x7¨\8a5¬}8«\83;«\812¢\827­\83/§\8a9¶}.¬v&¸z-¶\810º~'Ç~0¿\7f)Â\8c)·\87*¿\93(º\8f0½¡:¸\999Ä¡=º\97+º\8c5¯\8d/¯\92'µ\8d4·\8e0²\953¬\89@°\919¬\94C´\9cB§¡?ª Aº\97A�\9a6¾¤4»\9c1­\9d7¶¤4°®.¬¯1±­9³\9a>ª\9bFº¢Fµ¯N°\9dE¶©E´\96G¤\97I¤¤Gº\9f8¸\9fH²´Q·ªHÀ°9¸«;¿\9b3Â\970�¡)¼\9d6¶\982Ä\985Â\9f4É\9a+¾\9d4¼­6ǬB·©7±¦GÀ¦J¿¨=º§Gº¢A¤£E\9e\9cU\99\91M\97\9aR\9a\9aD\99\97D££J¢\97L\9b¨Q\95£C\98¤Q¡ªV\9a£N\9a²S\95©R\9b²K\98­Q¡´I\96¶Y\91ªP\8bµL\89±M\8a©Y\91­^\87¥V\86¥Y\8e¦]\86¬W\87¯\\8cµO\8e°P\88²J\83µD\93±F\86¸I\92Ç@\8eº=\8dÉ5\88ÈB\8aÃH\87ÇD\89Æ@\92ÊA\89Ñ?\80�K\82ÑT|ËB\7fÄK|ÊK\89ØG\83Ò;vÕ@}Ú@\80�Ly�GjØGsÒFpÅ>j�GrÒFdÒHgËHnÆNdÂEqÆEzÓ:uÎ>fÃ>l�6`�0j´-j±+e³/_µ9g³4`±7b¶D`¼8[°8\´<b²7eªCoªMh¤Eq©An¯Ig¡Po«Ix¥OoµEsµJx²Kp¤Fp¬Nt¯Iq´Bn½Fz¶<w·D\89ªUw­P\84¦^\87ªT{«[\8c\9ca\85ªY\82\96W\85¡a\83\9fXu¤U|\96a\83\90X\86\9bU{\9ce\85\96f\84\9d_u\8bZw\8d[w\84]~{Z\7f\7f_\87{P\1e>>\1cAA\1d@G$>L&JM1MK&HI*SD8JH5BUCDSBOJ8?A?@GG=BU;GWJPMGOVFPWE^XI`MRVQIPbH[\NUT[YP`d[Z]d[`lTZfR`hUYvfTrf_sdglm]no]~iP\8cdS\89oN\95uM\97xP\98yO\90yR\96}E\8cr=\8dy;\9b|D\9e\88M\90\84G¡\8eJ¡\8fM¤\89=\9e\82:£\847\9exA\9b\80:\9d|,¬\886©\86;«\828\9b|1\9a\7f9¡u=ªy:¢\87;±\822µ\81.­y"¯~%±}0¿s+¿\84/Â\8e9Ì\863Æ\8d3Ç\96-¿\9a5È\9c<Ê\965Ê\99:Å\91/À\874ª\8b.­\8c&®\8a,¯\8f3°\95A¾\94?»\9c@µ\9b3¥\985¨\9b;µ\9e<¹¡1¼¤1¼£;¬\9c3²§0¬¥>´®?¬ª6¸ªD³\9bAº¤E·«E·°:®£7¤¥C§\9aFµ¤A·§=¼«L³­K¼«D½°:·¢0¾\962¾\9f/º\978Â\8f/½\97*¿¦*Æ¥/¿¢6Æ©1�³5˵=¼·?¶¬@²\9fE¾£I¹£Q³§Kª\98S¢\98P\9f\97P\99\9bP\93\94M\9b\9aQ¥¡O\9e\9eG\96¦Q\95«I\93®K¡­G£§M\98®K\98©K\9b±M\9e¯L¡¯U\91´Q\8e¨V\80ªW\80¦H\85§O\8d­O\87²R\89²_\94·Y\91±]\8a¼Z\8d¸L\82°M\87®V\83µM\8a¯L\8f¯L\8eÀE\86Ç;\8eÄ<\90½I\82ÄG\88ÈA\8eÌ=\84ÆI\89ÊG\87�I}ÅR\86ÉM\81ÇB|ÌQ\84ÔO\80ßNxßF\81Ô>{ÕEv�EnÌFuÉ>kÄ?l�;eÆ;]ÎDeÑFiËKgÈFhÔCj�=tÉ=nÎBmÑBbÄ?Zº?`¶3_À8g¼5^´<c°=^³:]¾7b»<c¬;s·Hr±Lk§Aq¤Bu¨Ji®EvªMtªRn­Ps­F~®H{¤C~¥Kv¤Jp¥Ct³Bu¼={¸7|²<\84¯R{¬Y~¡W\7f¦\\80¡W\7f¥\\87\9a`\81\94c\89\9f\}\9e^w¡Tu\9cR\83\96W\8c [\85\9f`\82\98_\80\97_t\8fXt\8f\q\8aT}\8c\\84\88T\86~Q I?\18MC)<B%EG#CD3ML0NR%]E8LN3QL;DGHUHE?IGGKG8FUGJQ:JGHRM@LKN\MK^JH[]S[bC_TW[dR`\`OcYRj]`n\Xdb[b]Zm`Yr`Xtk[qfY~kQ\80t]\8euQ\8fgT\8djJ\98mW\8blP\8doN\93rQ\8fnD\95vF\9b\82<\96\80:\8b\81J¡\87L \8d@¡\85A \865§\80=£}?\96{0\91\85&¢w)­\861¤\848£}9«t7¬t>¤~C\9f\83?¥\8a+©\81-³\841¨\84.¬|+°r*µ\80(´\89/¹\8f;¾\93AÉ\99<è/Ë\9e1Å\99/Ê\9a6·\95=½\874·\90<´\8a7³\972¶\8b<µ\98@»\90A±\93;®\946¬\91=ª\9bEº¢D±§;»®0´¤-³«5»\9c<·ª;µ\9b=²ª?²«;¨¢K¯ªE±£Bµ£8¹­8²¢@´¦G³ K®¤G­®J±«D¸¬C®¶B¹¥4·\98<¼\9bC¶\97BÂ\98?À\997Æ£*»\9a5é/Æ®9Ò§0Ê©6Ì´=¼ :À­F¹£B¯¡Eµ\98Q¨\97N£\98S¦\94J¨¥O£¡R\9b\9eI\9e¢K\99©R\95­Q\9e¥M\9e§O\9c£O\9d´G °V\99´J\9d¼Lª°Z£ªM\9f¤S\8d¢W\87©J\87¦H\8f¶H\87·Z\93¶W\95¯b\89¯Z\95¹^\8fµR\90ÅN\97³R\96¯I\8c¹Q\87±J\89�F\8fÀO\94¸>\89ÈI\8bÆE\88ÆJ\86Ä@\83Å@\89ÅJ\89�K\83ÈNvÌL\85ÌE\86�L\8a�N\8dÚOwØK}â@yØF|ÓKyØGmÎAlÉCh�>uÒ>gÓAiÑDe�Fl�=mÊ>f�=pÆJrÈHkÃ?_ÎGaÇChÄ:a¼8`¾5fÂ6nµ>sº>a®Aa´?c½8t­Au¯Is¶Lz¬Co¤@n¨Gy­Ns²M}µN~¦M{¨R\83ªQs¨Q|¦G\81£Hw\9d=o­>}¨@u²3w®@~²S}­R}\99Q\89©R\82¢S\82¥\\94\9a`\8e\9b[\8a¡bx\9cV{¨[{©T\87\99]}\9a`\86¡k\87\9ehz h}\8efx\95Z}\89az\83`\82\83`\8b\82O\19U?"I@%=?$BO*RI#PI+RC.VM3YK@RNJXHCNM<DWF?OOBSIEI@9HE=DL>FDIRHP]KOYPJSYMZaIRcNXfW\m\OgTSj]Xb\Rj_UnbYmaTsjZudR|ga\85q^\87iX\8cpY\88sO\89sU\85wT\8eoR\9bvP\99rH\9czG\93\8a?\98\887\95\81>¢\85E\9f\8bC¡\8f=§\87?¤~>\9d\844\96\887\94\7f.\9e\868 ~3¤w/­r/³o6¨x@©\86A­\83:¢~.¨\82+¨\83+¥{'¢v(°z&ª\85*¬\8a'±\940»\99=Ä¢8Ȥ6�ª.È¡0·\9c:·\919¹\8c6²\8e;¾\8cG¿\95B¸\989º\99=¯¡<³\99;º\9c;±\8eB«\8e7°\9e=°\9b7º©-¸¤+À©:¶ Aµ\9eG¯\9cK§\9aC³¤F®ªJ²£Eµ¨I¿£K»­=°­:³®>°©?®¥Mº\9eMµ¢Cº¢M¯«G«¡@¨\9aA¶\90;µ\93C½\8d=º\93>´\9c1¿\9f5¦5ʨ4Õ©5Ñ­6É£8Ë¡D¿\9bA»¦I¯¡S«\97Tª\91^©\9aZª\99S§\9fN¦\92K©\96R¤¦U\9f§Q\9b¡L\9e¦U\9e«J\99¤M\9f®R¡±Uª¯\ª¶U¢²K£ªM\98\9eT\8f¡J\84«G\8a«N\85¸N\83·[\88¼f\91¯b\8a·e\8c¿a\89»f\91ÄY\8cÅQ\94µK\99¶N\8c´O\8f·G\95�I\91¹M\92»E\88ÃO\81ÄK{�@\84ÎE\89Æ?\82ÇB~ÈLwÉT\82ÆN\85ÎJ\8fÜJ\88ÙQ\82åFxáJrâBtÙ@wÔAhËMiÌOqÌKoÈArÓCh×Fo�;mÈ7kÌ;tÔ@nÊHs�?hÉ<_Ò8_Ë@^¼9b¹6f¶6o¹:z¿>t¹1lº3l²;u´Jt¼Kw¼Ey´Gs³R|­Kz­S~´Q\81´Zv³X\81º[\83¯O|¨K{¦Ow\9dH\84£M\84¢Gy\9b<\83¨<}¨=\7f¡E{¥Gy©U\85\9eX\86¥U\87¦_\8c£S\93\9dS\90\9cQ\7f\9fX\80§Vuª\\7f¬\~\9f\w \\7f¢g\88\9bb\7f\9ej\86\93d}\8fat\8eis\8ab\81\89`~\80\$L>!IC.PG"AT\1fEE+QF$NG:TL1GEAUO<HEFLJ<GOBA=INB?EG;HG>>FDAOPJLOUPKPNPHN]QSbJ[]ITePOcMMd\RhYFi^IicYikKriSo_ZrdQ\83gR\83hb\81aR\83dX\81lM\80jQ\85fG\8bkF\99gM\94wK\94tN\9e|:\91\86E\8b\92=\8c\90:\97\8d8\97\86>¥\83A¤\8b1\93\8d8\9e\8b<\98\851\9a\84=£{.\9et-¯{7§w@¥wIµ\856¥z@¯{2¡}2­\7f-´{8³x#²\7f%ª\871´\813ª\94.¸\8d;Å\9cCÈ\9b5Å\99/ɦ6Ǥ.¶\9f1¸\94/«\9c7µ\96EÂ\96D·\90JÀ\9cCº 9³\95C±\9b;ª\96J«\929º\950´\998¸£6¿«4¾£9»¨<µ¤<® J®¨D¹­O¿°E»¬J¿¤I³®M»§DÀ¦B¶°D´ªQª²Pµ­E¿©G¼±N½¤Oª\9dL«\9dI°\96EÂ\95M·\8fIÄ\8fB½£9�\9d8½¦7À¬:̪4È©8�§GÌ¥LĪD¾\9eD´¦J§¥V¦£Z®\9cW§¤]¨\9eSª\98H¥\9aV¥\9cO¨¯X\97¬Q\9a§T¥¡N\9e\9eG¥©J\9d§V °O¨ªU\9f¯U\98®K¤¥Q\93£E\8b¯T\88²H\88´N\8b¼O\8e´V\99µa\9bÀW\8e¾U\9b¿_\90ÃU\9a¸N\93¼J\8b¸T\7f½N\8a�M\8f·I\96¾L\8dÃJ\85»F\7fÉE\8fÃC\8cÊE\81É>\86ÂH\85ËC~�YwËV\81ÉD\86ÎY\84Û_\82ÞW\81ÜUr×ShÚ?pÓAfÑTqÊFx�JsÈNvÃ@mÅ=qÎ?g¿>tÇFlÂChÆGjÊEh¿3bÇA`�?aÃ;d¶2k±3tµ;p¸;k·1j·?oº9o¾Bn³A{¶@\80¹A\86¸Qy»M~®Q\80°Z\81®[\83®P\85²O\87«F~®K\86 Q\80¡U\8b§L|¨K\7f§E\82«?~©Lu\9dFt¥J\84\97J|\96X\87\9eU\92\9fS\91\98^\95 P\81\97\w\9eMt­S|­dx©X\80¨X\80ªX~«d\85¡_\89\9bh}\8e[\82\98g\83\97]\81\93cv\88Y\81\84P\1dHN'DE,F>0OG%QL)KJ2LN4KM>LA=IFDME9NAAP=8M<>I:?Q@DJK?BG=AHKPDON>QNFISJQQVRUV`IMZQVcNNjHPdQBc^DkaSfeYklTz[Vz[S{ZP{[[x\Y~bM}gG~dH~fK\8dfK\8fpN\8foO\8ezJ\98}A\96\8fC\8c\91@\87\94B\90\87<\88\8c:\91\8eA\90\8d>\9a\8d0\9e\8c3\94z?\9fz9\9cz4£o<¡u8±r9³|A³\82<¨{6­}9¤}8¨\84<³\848ª\84-±\89*²\825ª\811°\87A®\8e?´\97<¿\93<½ 9­8Å\9e7¹\9c/¸\9d;°\998¹\8b:·\8dA³\99A¶ L­\92Mµ\92@¬\8fJ®\9cD·\9a<º\984¼\990�¡5Ä\9b+À\9c2¹¦1¾§Aµ­Iº¯C¼¨AÀ§O½«G·«P¸¬PÀ\9dSµ¤M°£S©©Yª°U¶®V¹¯I¸§O»¤V®¤N°\9bE¼\9bEÃ\9fSÀ\99Y�\96NÂ\9fAÇ£=Å HÅ CΤBÊ®?É«EÅ­C½¯?¾¡<­¨?¬¢M®\9bS¬¥\«\99V \94O\9e\92G£\92H\9e\9aV£ªT¡£K\9c\9dF¡\9cF¦¥O\9e V¥¢V£®U­¬N£¨F\99¢I¢«J¡¦Q\93¬Q\91±O\98´R\8d½M\99�W\99·T\94ÇO\93ÅU\9cÎ\\9eÆW\9aÈZ\90ÀM\8a¼Z\80½W\8f¶R\96¹E\9aÀL\93ÀL\8dËB\89ÄG\84Ñ@\8eÑI\88ÑO\88ÃIwÆSsÈLyÇQ\87�M\8a�X\8bà ]~Üa{ÛWrØKi�JnØKqÔNtÔIsËFlÊIu¾Gn¿Mk¾Bu¾<vÅ@{ÎNo�Kp�K_¾:XË>XÈ;Z¼<c¹;`Ã8g¼?o¶Bq¸=cµ<b»9k¹6w»D\85´H\86·J\89±K\86¼R\8c­S\8b®S\89¶S\85¯X\82ªN\87¯L\8b°Q\86¤G\8c\9eE\84§O\90 O\8aªA|¥Ey\9cK\7f\9eNz\9fJx\9dO}\9aX\87\93_\90\94T\93¡O\8c\9fW\8a\9cQ~¡K\87­Q~§[|¬Uw\9f_zªZ\80§_\88\9a_\87\98`\85\96_\88\96]\85\92Z\8b\91V\84\8bJ~\87N\16I@\19GB'IC4II4P>0NG7LB6IA;V?<PFCJC@H87EA4N>8L@9EDJE@>E=C@JUHFRJOHOQLGVYGOUCUZ?RkAHeMKlQO`SIaaLfeKh_StfR}_[{[KvZL\7f\Q|_Iw^K\83TF\80YH\80aH\87hM\8ekN\92wL\95{N\9d\80?\89\908\8f\97?\8e\87<\94\8d3\88\89>\8b\89B\91\8e8\97\84>\9a\8d:\99\848\99{;£\84F r<¥nG¯{A¯vC¨u>£\82<ª\82?¤\837¥y8¦\820³\880­\7f*¥\8b0¦\8a-°\8e:®\875±\96B½\9b6�¦0À±<¿\9c;½\95-³\984·\91F®\95C´\8a=¼\9dM»\92E²\95A¼\94@¬\92@³\94I» :º @¶\9a1¼¡:È 3Ì«>¾¨:æF¶©F®;¼§HÀ²QƦM¾¬Y¼­XÅ\9fYº R¦¥I­¨K®¨Y®¤O¼©T²ªT¾¬O´§N¬\9dH·¤R»§MÉ\96WË\92HÅ\9bJ�\98?Î\9f?΢C�¤I�°7Â¥EɯBÌ¡CɦB¢G¶©Nµ\9dW®¬^¤\96R®\95J¯\9aL«\9aM\9e\9dW¦«J «Q\99«N\9a«K \9eN¦¤W©¦R¤¨O§ T\9cªH\9d\9bJ¢¢H§ªY\99­W\94¹J\8d´R\96³S\94µP\8fÀ]\93ÀS\92ÂW¡¼V\94·Z\9e¾[\96ÄZ\8b¾Q\87º\\8e·T\86¾B\8fÂS\94¹[\91�O\84ÆQ\81ÉV\93ÄK\8fÊK\85ÎH\8bÇNuËV|ËH\84ÑJ\80Ò\\8cÚV}ÒVrÒYrÉRlÊUsÑXpØSd�CiËLr¿Dh¿;eºBuÀNn�<v¹Ai¿Ir�Ig�HZÂFZÄBd»:[»;eÀ:k°@i¶8c¶>w´5q¸BhÂBkµ=r³Ku¸M\80»E\87´O~½L\82¸W\88«X\88ºU\8b½Y\8b¶O~ºF\86°I\8f¬;\8b­J}±I\88°B\85¡D~\9fH\82\9fK\83\9fL|\9aNw\92F\80\92T\83\96U\88\9eW\92\97T\8f«Y\8a¥Ux£L\7f«[~«^s¢X} dw\99a\81¦Xw¥a\81¥X\8d\9a_\84\98_\8f\8cc\8e\94S\80\88S}\8fW\1a[?\eRI PA+IF5LF>T<>XE?ODDOC:VCAVG9K@7MCAC<BN<CIFAOIHKDI@;XC@\JLPER^MSZCP^<HY>I]FBlKDkUIcbJl^GihGy`G|^S{`R~fSveXyVKu^N\80XJ\84VJxUCz^C\85gA\87o@\83xE\8cxE\92\81B\86\90:\82\8e5\8c\90?\86\877\87\8a6\88~5\92\7f5\93\89@\97\86;\9f\8f@¬\85J©\83F°}K©vM«yG¯}@®\80?«\80@¤\7fB®|:«\85>¦\8a8 \80:©\853£\84*®\911¨\8f/§\89<·\8e5¸\9a0º£-º¥0¾\9c6´\9e9¹\9d=­\95F®\8fP·\94J´\8eR¸\95H·\9cH¿\94D³\97:²\9a=³¤Aº\9c=º\99CŦ;Ì¢>È«:É£:¾¬> ?À£=È£BîMÀµS°[½¦W¸¡V¸ S«¦J±£T­­Pª¯W®\9fQ¸¦R¸¢UµªY·©LºªK¾\9dP»\9aUÇ\99LÆ\92FÆ\9bN�¡GÉ¡HÄ\9fI�ª9βBůFÄ¥FÈ¥A�®E²¬M·¦G­¢R¯¡V²\9dP®\98X¬\9fS¬¨P¢©K¢¯E\9c¨K\9a¯M¥¨Y¯\9cU¨\9bW¨¡W¢\99O£\95S¢¢T¦²P\9c²O\92»J\92³R\92µY\94µ\\8eÄS\93ÂV\9cÉQ\9cÀS\9d·T\97·Y\95·O\96ÄV\8aÉJ\85¿O{¿R\81ÇP\8cÊ[\8eÃX\80¸`\80»`\89Å\\87Ã[\89ÅS\8eËL\8bÉG\82ÖQxßZ\7fÙS|âL\7fÙVwØXu�[{�Vr�Ut�^eÒUdÇGcÅGeºIc¸@a¿Jo¸Ip³Jj»Fh·<fÂ?dËG\ÄAaÇDc¸;^²;j¸@e´5c±4g¾3l»1gÅ:h½?m¸7z¹@\83®@\80±N\8a½P\85¹J\8c¶S\8b°T\88µW\8d¼W\82ÀN\85¶O\81³G\89¸@\88¸D\84¬B\8c¨M\83§N\80\9aH\88\99M~\94H\82\8eB\82\90D\86\96D\82\9fF\8e\9fH\8a¤R\8f©S\85®K\81£T}£W\81©V|¢Rs£]r\98ev\98[u¤Y~ a\82¢[\85\96[\8c\88X\90\8b_\94\83b\89\8bS\1fIG\ePJ'BA0BL4JA<NJ9KCEHMCHF;JB9RB;G>9OEFD<AELDOGIGJEG:UL>U>DNJGTAL[:OW;IWGA\FCiM<iI=dX>i_Jc`=d`OghFijLufI\81aEu\FnQ9rW9\82SD\80aI~SB\86WF\86^I~b<\80u7\81wF\88\88H\83\8c8\83\82:\85\893\8fx;\82};\85{/\8b\7f;\8e~9 \7fF\96\81H\9f\80D¦\8bL§\87J´vJ©\83?­\84Cª|=±\7f6¯\848²\87E°\86<ª\8c3²\8a8«\87>¦\8d0±\92@¨\92Cª\8cB«\968«\9b.¼\99)¹¦-­¡7© B± I¨\97F²\91Q±\9aI¯\9cE±\8dJÀ\94KÀ¡D½\97=º\9dA»\9d7½\939´©C¿®8¢>È©@«@´¤I¾¨?Ĥ=Ä©L¼¤Ié]ɪ^­N·§P¶¦G®¥H°«P¶¢O¯ M±\95I¸\9cZ¸ U¹ Nµ¢Nº\9bT²\97ZÃ\8eNÈ\9cRÅ\9fHÇ¢VÇ¡VÄ¢NʤC�£@�¢:Å«D�®D̨7µ­J°¬M³¦Sµ¤Sµ©Q¬¬B¦«N«¥C¦©I\9f\9fA\9c¤F\9a¦M\9c¢K©¢T\9f¥Z°\9fU¤¤_\9d¨]¢¢R\9f¨[¨ª\¥¹[\9c»W\9b´P\97·N\97½S\9bÀY\98´`\93½[\96ËQ\9fÀ[\98´\\8fÀN\8b¸X\8a¹]\8a´Y\81�\\82ÒT\8d�S\92º_\82ÀV\8a¹_\81»U}ÄR\8bÓX\8cÑO\7fÜW\86ÛI\82ÜR~ÎW{Û^wß[tÔ[\7fÔZwØ\lÕOkÜU]ÌUeÒRa¿@]ÄKj·Gr²Ck»Jg¼;iÄ9e»HcÈ>^ÅKd´;e²@^¸9eÀ3k¹=o¼6d³Cr³1q°2uÂ5bÅEvÂGp�C\80¾Oy±O\85´I\83¸F\82³L\88·S\86ªP\8bºV\8c­J~µH\87¶K\8cµC\81±G\89¯7\81§?\84\9eH\8d\99G\8a¢=\85\91H\90\95E~\9eK\87\97B\83¨?\8e¥O\93ªQ\8f³P\86§Hz¢W\80ªR\8a\9dU~¨\\80«a{\9eet [\80£b\82\99c\85\9a]y\93Y\87\8c^\8e\95^\86\96R\90\94T\1cG>&L>2M?0?I/KM3JN3KJ<GL>>H9DL4BE5NI<HB?JHAMAPMETQKGN@VK<VD>XKN\CLaFP]:H`<AlMEtM?kKAr_Dla>jdI^[IZgAgdAf_>tfBug=l\8~X8\7f\3v^>wZDy\J\81^F\7f_8\8ae:\81wJ\85\80H\8e}F\8e~A\87n<\88o;\85\7f:\8c\82.\9c\80/\9aq5\96s>\9buI¯zJ²\89G°\838´\7f7¸\81@±\86>¹}A±x4ª\87C®\8aGµ\85>³\88?¥\81D£\81?°\7f;¬\89?£\8fA¡\87>©\95@¥\936±\980¹\99$»\979®¡=¯£B±\98K±\9eH¬¡F¨¢G®\95R°\99DÀ£<¼\973²\924º\9dC³\99F¿¢C�­>ɯ;ĬB¸¤;»¨CŪF�¬BÉ¡D�¡MƧY�\9c[½¦Lµ§F»©B²\9dK¸\9aL¸¤N·¨I´\9cR¹¡W²¡Y²§O�\9bK´\92Nµ\92U´\97FÄ\92GÌ\96IÈ£S̪UË\9fL�¥GÒ¡9Ø­4Ò©6È¢CÅ >¾®>¹¬E´£Q»¡M½«H­­B£®<¡ D\9e¡J¬¡F¤\9fL\99©U\9b¥]\9e¥U¬¬Y¨§_¨¨X¢¦`¡§^­¡T¨¤Z\9e³]\98²T\98·O\96½Q\8c¿T\9c�R\9bµX\9eÀ[\90ÅV\96¶R\98µT\91ÀU\8d¹V\90¼Z\8bº_\8c½^\94�[\89�b\8eÀZ\90Âb\83½`\7fÉ]xÌZ\87Ö[\84×P\85ÛSyÜNrÕ[{�Y\82�]{ÕWwÓ]\7fÖQ|ÒQuÞLtÜNcÕL`ÉEbÉBkÃBn�Hf½Bm¸?r·Fl»<b»HhÄKhÄ@i²D_¯Df²9o´7gº3p²@h±Ag²Eu³At³Ak�;tÅClºDn¹@y²M\83±U{­M\88²P\84³T\8f³I\8c¨F\87«F|§I\85\9fS\80¤P\8c£M\8e¯:\94¤>\88\997~\98.\84\9a6\83¡9\8f\9aI\90¥N\82£D\8f£Q\8f¦N\8aªG\84®F| Mz\9dT\86£[\89\9bb\85¥e\85¥b\81\9ab\81\98aw¡\|\9c_\81\8e]~\8fd\85\98^\8b\97U\85¡V\8b\9f\*N=&U>(L91?J1II2BP:AD4CF@CQAAQ<DO<DIDOSHQECJRUIKLR@QI@YK9X9<WE;ZBLd;HW8@`AKiD<fGDfVCsO:q^?j]Fa[KhY8oU7iWCehHhk@tdCt^8~T7|\6iVFp\Bx]I|\J\7fg>\80hA\84zJ\8b~?\89t;\8dw2\81l>\8fl.\83{0\96u9\99h>\99o3£oB¥\84I¯\7f?¯y6¾z?­\861±\87A«\80;¨z=¥~6³\83<¤\93:©\909¤\89?£\86D¨\8e5¯\867«\87;¦\86?¥\966£\9d3¬\91/ª\9f\1f­\947´©?¶\99>·\99Jº\9e=®\9e@³¤K´ T²\98H»\97>±\9f?¾\9c@½\8e9µ\99E»\99J¸®Fµ\9eL»¬H¿\9e@¼¬CÆ\9bAÒ¦RÄ£OàSÄ NÈ¢Z¼¦U·­Hº\9cNº\9aN½¦S¢U¼\9bV°\9aM¿\9bXµ«J·¢FÇ¡O»\97H¼\98K»\99IÇ\9e@ȧ?�¨MÃ\9bTÂ\9dMÆ\9eMË\98;ɨ>Ë¡C�©BÒ©7ǧHÀªK�®H¹§L¸ H®£F´¡C«ªJ§\9f=¯\9b?¢©P\98±N¢­[\9c°R\9d©R±«_¬£^¢®[¥«c§ªS§±_¥¯T¨¼Q¢¯K\95¾X\93¾W\99³M\92±U\8aºO\97Ê[\92¸Y\93´W\92»P\96ºM\8cÆa\89Èc\8d�W\91ÄN\90ÀP\85ÌT}ÂV\86¾V{�U\81ËU\83ÉP\8a�S\84ÖX\82ÑVuË\\7fÒS\7fÑbt�a{Ô`|�W}ÞOuãIcáM_ÒXXÇLcÅAjÉKqÇTnÀBmÃ?nÀBeÀA]´C_ºNlÂ=jºDa³Aj±De¶AbÉ7nÃ7d¾@tºDp°PsÂBq¹KrÃD}º;\80±Nv­Iz­M\85¶N\87ºU\85·R\85©C\82\9c>y¡Ly¢M~£G\87\9eJ\8b­E\89±<\97«6\8e >\8f\9b@\7f\996\83\9f:\93\94B\82\9eH{©E\7f³I\92³I\88®C\86­C\84¨N\7f¢\\81\9cU\8d\9ad\8a¨[\93¥X\80©\\83£]~\98Z\80¨_u\96X{\90Z{\97P\91\94U\92¦M\95\9eX%I3-M4,O6'IH$GS-DL+HL5?H5CE8MI@KGDJQLBNBJNLSRMLJRA?T?9W43Z:<c::c=Ca=?ZD?\H6aI=`W>oY=oV=rZ3m`8dW;l\7gS>`Q8c`=nk9sf<l]1pZ1j]4kaAogBzbGt\F|aN\88sK\8dtC\89x7\81p1|n5\83k2\83k/\8ah=\89i5\8dm8\97x?\9aw:£x9¬|A®uD¸{<²y?¹\866¹\85:§\888¡\8b4ª\8cA¤\8b<¡\8f5«\8f/¦\8d:±\897­\862²\907©\919©\8f9¤\962«\9d5«\96*¼¤'»¡/»¤7¹§E¹¨A²\9c?³\9aL²\9dN­\99K°\97B�\9e?�\9b?Å\9a>¾\94C»£Hµ U°\9eR¼\9bOÇ\99JÆ¡D�\93NÇ\92T�\9cUÊ\97Z¼§P½©KƲN�®J¸§X¶¢X½ ^¿ YÄ\98O½ J¹ªD»£L´\97C¾\95G´\8aE¶\8fN¶ H¹¢B¶­F¹¦D½¤IÀ¤PÆ\9fPÉ KÀ¡?�¢CÎ¥=�¨=Ó¥KÌ¥GƱD¾¬N� S»\9eO®\9aK©¤>¡ªG¨ C§°A\9f±L¥©R¥©T£°\­§[¦´Zª¶b¥±g¦´c¤¹^¨®U\9e¼Q¢¸W ·Y¤ºQ¤�O\93»Q\99¶V\8eÀQ\99�Y\99�[\9b¾V\9e¾R\99¿R\90É\\90¾[\8eÂM\8cÌI\8aÆQ~�Y}ÈZ\82ÅX|�_\7fÚZ\81×U{ÛX}�S\82Î]uÌVo×WrÑf\7fÌf{×a|ÕXuÜQbÚ[`ÔW[Ê[^ÂNaÇOiÆNq�MqÈJb¼LcºGa¿@aºCf¾CiÃ8l¼7_¼=dÅ9nÇ;v�DqÄHmÉSw¾QuÈOtÂK}�H}·B~¹K|²J|¹F\81³L{´R~³H~¡M\80 E\84\99H\7f¢F\84¤E\82§N\8e¢D\91«D\98©C\95¤A\87¡2\85\9b4\81\9e8\87\9fA\8c§?\85¬L\8c§M\86³F\86®=\80§B|\9dE\86\9dT~\9d\\84\9b[\88\97Z\90£V\88¢O\8dªU\82¡P\80¤N}\9dZy\95Z\8b\9c]\8b\9dP\8b\98Z\8d¢S"<3&I<\1c@8\1d>I\1fKE*C;)HD2A=.F>1::@G>8=I<ARKISE@FIDIQ??JF:ZC<]<4W6=WJ<fJA[F>cDCcG=]U=aV7q^2kd4d^6gL?dTC_ODc]@`hAh[<j^=ob3mR7uY:qT;tc6o\8\7f_E\80h?\80nH\8ff?\8fm9\80o>\84m?\8bx<\89r9\8fkB\8ea1\92c.\9ax-¤r;£m5ªt9·u>º|8¿\895¿\87A¹~8®\89=¯\8b4§\95;\9f\8a9«\853£\939«\8a6\9f\888 \97/ª\89>´\96:°\8f0\9c\8a;¥\9b,ª\8e%«\9a&½¡.»¦0»¡;¸\97:´\96F¸\97:µ\9dF´\99?µ§B½\99HÀ\90F¾\9c@¯\97>¿§Cµ§S¼\9aH�\98M»¦UÂ\9bTÀ\9fNÄ\99PÄ\9cOÇ\99Z�¥S¹¦V»¦N�§D¹ S±\9eK¾ª[Ä­S½©VǤR�¡S�ªP¼ J¿\9cO·\93Oµ\97R¸\97Cµ\98O¼¤Oµ©G¾­@Ç¢N¼ªJÀ\95EΣKȤ=�¢IÊ\9f9Ò¬BÃ\9eCɱ<¿±CëPº¥R°¯C¸±8®¤=°£E¯§F±±Q\9d®K«°L¬µVµ°e®¬d\9eµV¥­Y¨ÀZ£¸_\9b½Yªµa¤�g ºY£ÅJ\9a¿W\94ÄY\8cºQ\8eÅV\94¸[\97½V\95Ê]\99¼S\8d�U\88Ç[\8dÌa\8d�W\88É]\8aÓT\85�^~ÓW\81Õ`\89Ä]\86Ì]\85�[\85Ód\85ÇTtÔasÎZrÉXrÕotÖdzÒ^rÞirÙafÑ]iÓO_�N\¿UaÈRe�FiÆFj�KeÄBrÃF]³K^¿Q^·>`»;gÅ@cÂAgÂ>iÂIfÂCwÀDzµQ\80µRw¿L|¼M\83½H\7f·Ez´I|´Px®N\89²G\81µAx·J\7f³@\80ªK\86ªE|§?\83§<\80¦N\84©N\89³C\8c§H\91¥=\95£;\8b\9d,\91¤3\8e¨?\86¥I\85¥O\8a³F\88´@\81¨Ku¯G\83¨B\7f\99P~\9eU\81¥^\87¦U\8b¬Y\94«Y\93¥X\8b±Oz«Yu\9ca\84\9db\87¥W\81\9dF\81\9eX\82®V\103/\1d:9\1f<9\1c@D+<>.@8)E@.:C+=8-3<-=:77B=EOJCLNJHJ?IL@JNGLI9IO5;UE6RF>YK@eLAdO5^N7gU<dZ1cW0d];]_:dR7l]@hXAde<ac:k\4k]0rP7lO8mQ8tV=pX2s^5\85_;\88h8\93e:\91h7\8dsA\8ewC\8br<\84v4\8aq0\90g=\91g8\94e+\96g/¡w6¤x>³j8¸pA®\829¹z;¼\7f=·\85A°\885¨\8a3\9f\8e6\9f\94:§\89?\9e\91@¢\934¦\926¡\97:§ >¯\97=«\94A¤\8b4§\96*¡\92.\9f\95'­\980³¡4²\98?¶\9a:«\96?® C³\9d?·\9bL»¨K²\9dK¶\93B¶\9fI¬¦J®\9cE¾¢Lº\9fI¿¢Rº§Zº\9fU¿ O¸\9fY´\9eT¿ SÆ\9f[�\9aU¹\9cQ¿¨IÅ­O¼©JÄ°Y¾­\º¬VƦP»¯F½ªLÆ\9eIÆ\95EÄ\94?´\9cG¬\9cH²\98Jµ¤O¶¨HÆ¥Kŧ?¼\9cBÃ\9bDÊ @Ѥ<Õ¨:È¡EÈ«?Ǧ9ñDɪ=Æ¥C¾°L¼±F³@¶¨9·®=»«Q±¬U¥®W ±R«¯d¯°e©«e\9b°V\9d½`£ºb¡¶^\9d½W¢¶_ª¸g\9aÃd\91ÅO\96�J\8dÆU\8bÃY\8d½N\92ÆX\97ÄY\8aÆR\8aÈ\\91�_\91Êa\89Æf\8aÎb\8cÊW\81Ò[\86ÒZ\82ÖX\82�W\89È[\8cÆe\86Õb\86�^\80�d|�g|ÎZvÒ_rÙfvÎmvÒgqÕ`mÜioÜ_s�RtÌWg�[hÆWpÆOmÎPfÓJmÄNo¼G_³R]¹Q`ºH\½K_ÄE`ÅBc¹F_·Jk»Lp¼E|½D|¶L{°H~²D\7f©G\85°?{¯F{¬N}¤K\82­:~³A}±?v«D}®A\86®=\89¦=\90§@\89 C\91£M\92ªI\8d¨H\97\9a5\8b¦7\90¥-\99«;\90¡@\95¦:\94ªB\84£?\84«Hy³Jz¬;{©<x¦I\82¨O\80ªd\80¤U\8c¨Q\94¦R\92¨W\87®a}ª`\84¥a\80\9fct\9fUx¨J\81¡V}ªS\18;4#41%<>\1e:D 0C1351.D.=@24>+0:46G66DA9B>BHMBKD4RT:KJEFVF;I:FZG;ZJ0cB8jP2mP4mH8kQ8kV5b_;iaBaU8lQ/^W@_Z<\VGbd;`c/a\/dW5mV6iW;lV>v]9t]3ua<\8c_:\8cc4\8en;\8en>\91fJ\87i;\85{8\91q?\89k4\92h1\91^&¢k,¡i0«q3®e>¸l9·w7¹\86>±|@²\8b2¬\8f;§\960¢\962\9c\8c3°\8a@©\939\9b\95/¤\97A¢\87?®\8fA¤\998¥\8b7ª\8c5¦\8e1\9e\8f'\9f\8d+«\96,©\973­\99;\9c\984\9c\98@¬\96:©©<¶\99M»¡V­\97E¸¡V¯\99U©¡G·\9eP³\9c[¶¢Rµ\90U¶\94\µ\99S°\9e\¿\91Z¶\9dTâ`º\93WÉ\95Y¼ X»®JéUñUĦQ»¯LÆ©ZãXÅ¥Tº¦Q·\97EÆ\9cJº\99E¿\99Tµ\9dJ¯\99N±\98I·¡BĨ<¼\9eEÊ\99@É\9e@È\9e@Õ\9d?Ì¢FÕ¢D�ªA̵:Ô°=̶7�®F¼·;˲BÇ»EÀ°J¯¶?±¨G·¸Mµ´Q²¹P¥³[\9f»_\9eÀ]\99¼b\98¿^\9a½[¢¹`\98ÅU\98·a ½b¢»Z\98È[\9bÇY\8a½W\93»L\85ÂJ\8bË[\8fÆU\90ÌT\94Éb\94È]\93Ã`\85Ño\84Ì_\87�h\8a�X\81Ù_\85Ö\\90×\\8aÊ[\85Ú_~Ód\81ÚauÕjuÒbr�fpÚ[oäjnà j}Ò`nÛqfÚet�htÕ_kÉ\lÉ[m�S`¿^eÉZbÕLiÅYk»P_�NZÅWeÄQ\ÊNg¿FZÉGcÉFdÃDc¹MzºNz¶@z¿I\86¼D\8bº<\83¬7\91·>\8eªC\82¬M{¹L\84ªD\80¶Au®9\83«4|±A\84¤>\83¤3\8e\9e6\82¢B\8a\9bA\99\9cD\8f¥;\99¢;\8d\9d2\97­-\9a¤-\94£:\93ª9\94µ>\8d®H\93¬;\82¦G\85¡<s®I{§Ou¬N~«d\86§P\7f£R\83¤X\88®N\8b²Xw­c\82¦]}¬f|¤Vq­Uw¬J\84©Q\197"#2%\1d05".7 ,7():)0<)0B*,B6,G2-K;7=56>>@>E;?N9MP8RR7EW7FTD?ZC;g@2e;4gG4bH0kF4bK)aT-jN3iV:lT=gU8]S6]_D]T@_X=b`;[W7\Q1lU+t`.oY2kU7uX0\80X>\85_:~j6\81g8\84bF\88dD\85hH\89n>\87p=\90p:\8eq/\98g,¥i*£].¬h-°h2³s*ºs2½\81=´\80>±\897«\93;©\987¡\92:®\88;ª\8dA¯\887¢\8d;£\81D«\83<\9e\8eA¢\8e?ª\92F©\92@¤\96:\9d\98.\9d\9b*\97\942\9c\9a,\97\95-\92\9a2\98¡7\9b\9c?©£@¥¢K¬\97S±\9bR²\9dX­¡Z®\99T¸\9cU´\9bX´\96X­\8e]¬\88_±\8eW±\94Q·\91Q¾\9d_�\97]¾\9eUÅ\9d\˦ZȦXÄ«YÆ©UʨI�¦L¼\9cPÃ\9dT½\96SÂ\9fPµ\9dGµ\9cM´\9eM½\9aQ¶\9dY¹\96R·£D¢?Ç\99:½\9b<½¢<Å©EÅ©PÉ¡MÉ£GÒ©KرDÙµ<Ö±6�»:ÆÅ<ÊÀ7ȶ7ʲE¿¸H·°C·ºH¹·M¿�P³¹X©º_\9dÃ_\96�j\9a�d\9a�]\98Éa\96ÆW\92Ã\\9b¹h ¼c¢»n �h\9aÇd\93ÀZ\8e¾U\8a�U\81ÓY\87Ë[\8a�_\8dÎ^\85Êb\8eÆh\8eÎq\82Óm\7fÔn\87Ò`\88Êa\8c�j\8eËc\86Ö`|Ó`yÛmyÜuz�l}ÖbqÚ`m×]kÞiqÛorÙgk�llÖmlÚbhÎcrÈekÇ_bÄ\`Çej�^jË^i¿`lÄVhÇReÈWnÄSlÉYpÀQe�RhÇOeÆIpÀArÂJt¹;\82»9\81¸4\89µ:\83³1\8b»9\85¹;\8aµ@\8a®K\87³E\8b¯@~µ9\7f´0\8c¨/\92\9e:\89\9f5\8e\92>\88\95>\8e\90>\93\9b=\96¡3\93¢0\96£4\95­2\97­2\97­/\96ª0\97°A\93³F\90¥>\8c¬K\81¡It§Ox­N{©V\82¦Z|¬O\80¯R\8b³L\8c¬U\84¨]~°b\89­\\83¯[\82¬Uz´W|¶Q|ªJ\19>.$4)*1:#.<032/(<3/9+4J7.E,/@8.C1?@24:9<HN7GJ<LHANP@@X@CSF>cC.gL.^P8eB1_K5lP4eQ4hb9]_+aa7eX;qWDrN@d_4dS?]R3]`1VR/fZ.l`$fT+p_,uZ'xW/xX9\85e>}_:\82r5\82hD\80cC\83u;\81m9\85m7\99s>\99t=\95p.\9fq2®_+³i1¯n6®q6¼v:ºs7§}E°\8b=²\7fJ­\889\9d\879 \84@¨\87<£\8f8¤\91F\9f\85G®\88I\9c\84H£\86:©\8f5¬\978¢\920£\986\92\9c(\9c\8f/\9d\99(\8f\925¤\969 ¨?¦\9d4\9b¦@ \9fD\9f\9aV©¡U¶\9bS«\9bW«\96Qµ¤M¸¢`²\97Y´\92Y¶\96P¬\90Z¸\8fT·\9cO³ SÃ\98[¹\97aÇ\9aVÅ©^¾£XÅ«]ºµ\À©R¹°MÄ¡NÅ¡OÀ\98Y²£P¹«WÀ¡V¹\9dT½£_¿©Rµ\9fN¶¢C¼\9a=Ä©8¶\9b=Â¥=À­Mɤ@˦?ɯHÖ­DÕ®?�»:Ǻ?Ì»?ÿBαDòO�´LÆ°Q¼¨J´¶H°·P³·\²»[¡¿Y¦Çb\9dÄ`\92Éc\9eË]\9aÒ\\93�T\9aÅc¢»f¡¶]\94¼d\9e�j\94¶Z\8c»T\90ÂV\8b¿\\89ÎP\91Æb\8aÅ\\8fÊ_\97Éf\9cÂk\88Är\82Äk\81Ó_\86Ìa\85Êf\97Ôc\88�e\8bÞZ\87Óm\82Úo\86Òj\85Òk\81Ó`v×arÔ`e×dnÞoqÞmhÕimÜhmÊhmÚ_iÖioÖc`ÉibÇZ]¿gbÎfc¿ahÃVeÉZ_½\mÊ`nÉ_e¾Lm¸Nk¸Up»FmÃBoÄE|³:w³F~¹9~±?\81²7\90¯>\84»F\90²C\84²7\7f´Bz´4\84¬7\87¨/\83­3\84®)\83\9d4\8f .\85\9b7\87¤;\91 F\94¦<\95©8\98¦4\8d¶<\9b°4\94©,\8f§=\9c¶7\8a­G\8c«D\8c A\8d\9cEx°O|®Hr°P} \\81®Y\7f«W\87²Y\89¯\\7f·U\7f©a\80·X}ºT{µ_w´[\84µH\82±I\1f7+&52\1f+4(-:-57*-0$&>.)B53?.399.D65F/9J92FK0DQ1LP5NKE>SHBXM:WE7[M0cD-hK2lH(bN+dX9]`7bb:f\2oR;rK>mL=qS/gR-e\8`R1`X*]b&h])o\(t[.uU6wZ.{c8z^4x_@\83k:\88s<\83r;\80j6\8al@\89gG\91m@\91h;\9ds2\9fm/ªr0¶{2°w@·u?°s3§u?©zK¦\84B±|H®\82:\9e\884\9f\884¢\856©\8c4\9e\90@\9c\93M\9f\92Iª\86H¦\86=§\8d> \98;¢\94>¢\954\94\99+\93\99+\90\8c6\96\8d4§ <©¡8¢¤F\9e¡B\9f«J\9f§G¢\9bSµ\93N³\95J¬\9aKµ§^»©`³«]¯\9c`± N³\94Lº\99Vµ Uº¥`À¡Y�\9f_·\99W°¡Y¹©T�±P·°XÀ·S¸¯DÀ£G·£M¶\9dO°¡W¿£]¿¯W¶ªQ¹¨[¹¤Y¹¯M²¦L¼\9cD¹¤@¶¬CÄ°MÅ®IÒ¢C�¤<ƯE�¯?Õ´:ѳ=®=�´E�¹MÒ­JĵUïT¼­Q»«T±®S·¬Z¸³O³´S­³V£¼Y\9fÀN\96ÈQ\9bÔR¤�R\9bÎ[ Ê[¡�] ½g\9d¶j\8cº`\87½d\87¼\\8e�Z\89½Z\85ÅR\8eÒW\9aÂ_\9bÃi\91Æk\98Äe\94Àh\93Æj\95ÎW\8aÆR\89ÑR\95Ö`\9b×[\94×_\8cØb\93Òp\89ßc\89�cxÕZuÜbzÖ`mÑii�nm×cuÑbpÑpw×gsÕ^o�koÓip�jfÂ^eÉ]gÅan�cnÇYdÀ\\ÀbYÈbgÅTh¹Vx¾T}·Pu¼PlÀAj·Ch�BuºBt¶Ezº@\84»C\83²D\85¨C\8a¯E}²:~¸3}²1\82¬=\82©6\8a±,\83µ4\83¨-\84§5\8c\998\8d\9aG\80¤L\87\9f=\88\9f>\93¡B\91´5\98«4\8f¦5\98¨<\97±<\95¹G\8c´B\86«=\8c¨E\80§Kt²El°EsªPt³I{´K\84®M~±[y±Y\81²So¶[n¸\sÀWv¶T\83ÀQ\86¸J%,8%;*\1c73)71$7-!6+*5=/*F38@27J4:H2:@78J7><F;FL3IE7>VI7TG4UI5QF<VK0\I9bU9aO9dX3l^3eX>l^5gQ*kL9hC9uC7iE9bL/kR4gM/tU4pY+kY'mY,if2ya,nY/q[7ka@oh8}`9yiByk?\8bkB\8caF\95pI\96pK\8d{;\9e|2¦x;©i3ªyD²w@§q<­~F¤|Gµ\81J­\83H­\7f@´\897\9b\8a9£\8c6 \888¢\83;¥\97L\9d\8f>­\93J®\88=¨\86?¬\86>§\9a5\9b\92/\98\90>\99\94:\95 +\9e\92-¡\8e:\9b\9b5©\99B\9cªI\95\9fD¡\9aE¥\98D³\94B²\9dLµ\9cT­\99Y½¢[¸¯Y±¦`ª\96S·\9a[²\9fH²\9dRº\9aQº\9aOÅ\9aO¿¦Jº¨L®£Q½±P·°Uµ­P°³M¹±Q·«M·´M¬±T°®Y°¤P³µTÀ³U³´`±±\¹²I¼¯N¹¨F°ªE·¢Qµ³JÇ®C̬C̦6�¸:ζ<�¸FÒ®?ʱ=Æ©H�­NÔ¸DÒ´JÂ¥O¹¨Z¹¦V¼­\´¤`¹²_¶®W®±K\9dÂM¨�K\9eÈQ\9f�]\99ËQ\9aÂa\94Æ^\9bÊZ\99¾a\94¹]\8d¼W\8a³`\8c�S\84¾X\91ºU\91Èd\92È\\93Ì[\92�i\99½g\9bÃd¥�a\95¾k\96ËX\97ÈT\98É_\95�^\92Òc\99Úk\99Öj\97�p\8d�h\87Û`\87Ú\nØckÓeqØ]m×^gÎ^wÖjtÄ`uËcz�lzÒer�noÇ^s�]iËboÑ^eÄZhÊScÊ]YÃZ^Â\aÆNgÅVvÎMqÅTq¶Aq´Nj±Mi¹Ln·DxÀ>z¶C|º@z·?u³=\80±D|®9q«5~¨?zµ7\88²2\8b§5\80«3\7f¥7\89¡,\8d\9d@\87©;\85¨D\80\9e@\89\9e@\84§:\92²6\97«8\93´9\89¨2\96°:\83®F\8b¥@\82«M\83§F\82±Bs¹GnªPk®Us¯W~¸Lt±U}°[\7f©N\83´Jw³Mvµ^r¸b}¸Zx¶K\81´J\1d,2\1f1/\e62\1a7-\19=)\1e53#1;-4C57K90I1:M4:F8;B?=;J3:D4;G10S=2P:3ND4U=-\E2dU7eY>aUFkW<mT6iY9eY3kN3pG9nIBsN5fB7mA6jO0jW9vU3q\5v`,t`,oh:wd?qh=sk?ieFegCqf=oaB{_F\80bD\8cg;\93l<\91qG\98|I\95xA\9eoJ mAªiF°s=¥|D¦|JªzR±|H³zCµ\84D°\80=©}:¦|C¡\84E¤\8fH¦\91O®\8eIª\87<¢\8aC«\919³\921«\8d2\9e\8d6\9e\9c=§\9d5£\964¡\8b:¥\905­\9eE£\9fF¤\9fL\98©W\9c§T¤\9aO¦\95P²\98C«\9aT¯\9eUµ\9aU»¥]³\9fS³\9eW¬¡P¯ªL±«E¶\9aD�¡EÄ\9dJ½¨Fµ¯K´·N³¯V°§Y²°Mº¯H¸³PµÀV¹½M²¹O­³\¶©S±¯Y¬²`¶³^¶«Y°¨S¨«^®«X¸¡\±¦Pº¬S·­Gų>Ǹ9ƽD˺?Ô¬DÑ©GÌ­GǬGóA�²HȲKĪPÇ®Oé^Ç©c¼¦_ª·[§·N¨ÂJ¤ÀM\9e»K¥ÅX¡¿_\9fÃV\9eÌZ\99Ì`\9a�[\99ÅW\9a»L\97�O\91ÂJ\89µU\8e¯[\8cº\\94¿c\93Êb\8bÉc\94Ã`\95Ãa£Ên\9fÊk¤½e\9b¾b\9aÅY\9e�[¡Õ^¡åg\9cãn\97âc\98Úg\8f�o\88Üg\84ßXx�YyØdrÒ_hÉZnÑZsÎasÆ_nÄftÅhpÆdrÒimÔgpÑgrÌfu�_mÑYf�Rb×TdÌYoÆQiÎOuÓQwÎJwÇLt»BlÀKb¹Gcº@e¼FpºCo¾Iw¸GsµHz¤<v¡;m®=p©Ay¥:x²8\84¥7\89©,\83\9d2\8c\9d2\90­5\8f®8\89°=\81«H\85®G\8b«P\8e£P\8c«H\87§D\8d±<\8f°>\87ª<\80«?\84¦L\82¦E\83·L\8a´O\83®Eq­Jo´Pw³Lw³U{±Vo£MpªQu­Kp³Zm³]{®Zy·Yv±O|µG\18',$-3\1977$;+$?<-8=*0:9>=64;:6C/6?93DA<8BA;FA2F.1C.7C22K?6BB8EE.UB:_T<bY5^]:cW>lV5rV6`H._O6_E<hF<hF7_A;mP._V5qX7r`5kY0oX8sj7}k6|iCrk=gbCdo=mnFwtH\85jD\81\H\8ecA\82^7\87g9\8dj@\9dn;\90\7f:\94n<§n=©k;°o@¦vF¥q;¸uH³yD¸sM°}H·yB´\80>®\87@¨~G¥\8bD \91S¨\92O²\85=­\82C¡\88>¨\89=\9f\93?\9f\99=\9a\925\9b\992\9a\93<¤\8e9 \8e;\9f\989¡ K\9f¨G\95\9fW¤\9bP\9c¡Q­\92B¹\8b<µ\93P¾¢K¶ªQ»\9fTÀ\9fY±ªL¯¢S­±J°\9eB± F±\9aK¸\99W² I¼\9eE¼ \¿±]·°T·«W¸¹W·µE¿¹J·¿]°µR¡´]«®W«¯\­·T·¯bº±Q±¦V´¯Y²¨\¬­O±ªR¶®L°¥=²µB¸¹>Ë¿IÉÄNÅ°EÖ®OĵSβO¿¸O¾µLãN·¦Xµ²^¶²^�°c½§Y·©Z²¼I§�K¥¶J¡ÅT§¾^¤Ã\\9e»\ Ä^\9eÇd£ÃV\91ºa\95ÅU\93Ê]\93»[\83µP\85¼V\86º\\8eÅ[\95Â[\96Â`\98Ê^¡Ël¤Àj\9b�i£Æo¥Äe¤ÉZ§�e\9eÖn\97åg\97ëg\98Þm\93à g\93Òj\85×d\89Þ]\8aà [\84Ø^w�axÉbkÉZ|ÇXs�_o�g\83ÅhnÇboÊbsÕjmÛqjÚexÙ]wÉZlÓYsÖXoÊTgËTnÕYlÈF{ÕGt�ItÈCk¾>n³Gm°Kk°@u¯BkÂBk¼Ei´Nm¨Hl¡5y\9d2u®<u²:}´6\83¥7\84¥8\8dª<\88ªA\81¡?\85¬<y¡Hv§Bx°Kv¬Q\8e®H\8f»M\85«K{±9\82§C\91·7~«=\8c­J\86«I~®Iz¶Ou®E}³Kk­Ss­Vp¨Of¬Ju Jp§Ql Mi¬Rh¸`pªOv­\w´Rq±Q'-)\1a('\18+6\1f79#04-887>369;-C>/<@./?=3B@78DB7J:/P17N=3C76GF<BO8EP7KN3RG-WM7fV>fS4rU3lP8nG9bH8^M4c@AfD@eF3_X:e[4nf4l_;f\@o`4|c9~\9xdDpjIrqJkg:nrDzqG\82jO\8bhH\89aG\88c?\88p9\92p@\96o:\99{?\9ezA\9ck9¯i;±jE·nE²k7«i;´pK¸yR²tI®y>¯{Aª\83F¶\88@±\8cE§\93M«\97I¨\8fK¢\8a<§\83<\9d\89F\96\90@\96\92;\99\8d3¤\8d: \927 \915\95\8e=\8b\96<\92\99C\9f K\9e\9d^¨\9dQ¢ J®\96A¯\8fF¯\99I½¦N¼¦Pº©Sµ¥T¶¤L°§M³«Mµ­F±ªJº\9fF»\9bSº£N´\9eO¶©[¿£b·¢U¹²R¸´V±®K´¸T·µ\¨®]¦®a°ªV²«R©¦W¯±V»°Q·³X¾¶\¶ªW»¯O²§E°\9eH®£B·ªO¸²L½»LνK�¹EίJƱIĹUǵJ¸¬O·¥X³£W¯±T°®Q´£Sµ¤d©¹Y¬¼L¤¶F¡ºM\9aµW£¼V\9f¾Q »W§¾^¢Â]\97¾]\98½a\95½b\97ÃZ\8f¼R\8a»S\92»V\88�]\8a¿]\92À] Âe ¿l¦Ài\9dÅq\9bÅr\98Êg\9e¼a¡¼a\9eËl\9cØm\9cÜg âm\9cÚp\99Ùr\96Öv\89Ún\92Ûh\8aáY\84ÎZ\82ËXtÑbwÇa{ÊetÉ`zÎg\82Éo~ÔnnÑfkÌcwÔi{Þin×ikÑlxË^xØ_o×QhÜPrÑToÖLv�NuÈCjÅ@pÊHm½Lp²Eq¬=l®Fl¶Dk­=l±Ex£?r 5vª:w¢0{¬2\83©8\84«1\82\9d3\7f\9c;\81©?|¥Ez\9fLs¥J{©H}ª?r´Ex¿J\8c¼M~¸Mx¨B\85³:\89¹=\8d°=\82®:\80ª>|µJqªRn­Sv¨Xq¯Mq¬J`¢Jc¢Tj®Rh¦Vf¤Yq ak­[q¯SoªNs¯Hi¬S\1c"*#"3'.-\1c,<!72,6=*/?4=.>;7287?4HB=<KB9N6BR65V><O?6D;ACE?NRDNVACT4JI=OQ2f[<dZ=rY2rU8lS@eD0pJ>eN?mM2fE2sY<g]2eb=r`?ma;q[6{a7|YEuaC~dFydKgn>osOvvA\82kH\88rF\88p;\85_B\98_8\92d<\9ci=\9bpC qD\93s?©lF¬nF«v?³h6©r9±j@¯uL¼tP´uQ¼pE°t>¿\84H´\87L«\8eVª\90N«\8bDª\826°\8c; \897\95\91@\94\854\94\95/\9b\966\8f\93@\9b\8b<\9c\8a@\90\8aC¢\9dF\97¢M \97Z¬\9dS££H¦\97N¶\97E¯\9bRµ§CÀ§E²¢V¶¢E³¥E±±U¾³Kº¥L®´G¾\9fF³ W·«O°\9eJ¿¡W¹£d´¨e³¯X½¶Qª¬X¸¨Qµ·X²ªZ²¶V±­Q®µN®¸M©±Q³¯N¶¹N¬¶L³´T¸¨M­¤C¹°@µ§G¶£Q³²M¸°UÊ¿JË°YδZǬW¾»_ŸM»³M½«T²¤P´­O¨­J«³[³¡f´µ\§°V\9dÀI\98ºG\9e�T\97ÆN\97½[\9dÄ[\95ÊU Ë]¢ÃZ\98Èb\92Ç`¢Ì\\8fÂQ\8d¿`\8bµP\99¶b\96Â^\8f¾b\9b¹d\97¹`\9d½h¢¾q\9dËl\95Âf\9dÆZ¥Ég¦Ìj¨Õc\9d×n§Úi¡áf\94ßm\92Òn\87ãs\8aÞ_\8dãZ\87ÑQ\83�L\82Ô^\8eÈf\86�g\84�_\81�`\8bÂmyÉjvÔhyÓo~×`qÜnpØjxÛcx�W}Ô`pÑ]sÙWvÎRsËLyÈSs¼Hb¹Dc�Jdº@i±>w°6y·8k²8uªIr®Am D~¡5\7f¬0~²-|­2\85±=}°2{ª3~©B~­Hw\99@~\9fNy§Mv¡P|ªK{®Qx¿R\7f¶R\85®Ds®?}¸?\81�<x³Is²Fq®L\7f¾Ot¬Tw´Ls¯Hs¦Oa¢FX©Pfª][­W]µTh¯dd¨fh°^`²PgªXc£Oe³Q!-6#-4\1e,6#'7++9,852:1560>8>=D<C=8M>BW89Q3?H>DO;AHB<RJHQTHKTCOPCKP:OU>XV2ba0i\7i_<mX;tY4rK4kO1jK9fM0oQ8rZDr]>o`:m^5q`2qe;tZEwZD\80ZO~dMrrNrnOwtNvpH}kF\87nG\93iE\92f>\99dD\9de=\98i?\99sE\97r@\98kI«u=¬v@¨wG©v?¹kF·l?¹lC¼kG¹rEºlOµzR¾~J¿|J¯\82Q³\82K¦\82;®\8b<ª\866¨\857\9f\867\92\86>\8e\8e4\94\8b4\8f\87E\93\82J\98\8dL\9b\8eN¡\96P\9c¢K\9e\9fV¥\99L°\9dPº\9dU³\97M±\9fF³¤D¹\9aD¹ M¿¡G»¤KƯD�±L�µQ´­K¸®P¼­J²T»§Lµ°L¼¨]¯Y¹°c¾©d³°Y±³U°±W¶­U¬²W£²L©®R§¯O¬¶X¬¬L§²P¬®K´»P¶ºI²ªF©¬Q¯«O³§N¹¤SÀ®UÀ²Y¼­Wƶ]¿²eÀ²`º°SúSÅ·Z·±R±®Q°´O­©M²­Z¹°^®¬[\9d°N\9b¾K\93¾I\93�P\9eÊX\98ÈR\96�S\94ÃU\97¼X\96ÂY\91ÅV\9cÆR\93ÂV\93À]\9a¿V\99¹U\91¾a\96·^\99¶\\97Â]\95Àb¢Æg\9aÉf\97½X\9eÊ` È\¥ÃZ¤Ê]§�[¥à i¢Ö`\9cÖc\94à m\91à f\99à `\99Ö[\94ØM\92ÕO\8eËX\96Èc\8bÇg\86�i\86Ãm\88Êa\81Éa{�k\83Ñg}ÜfuÛhvÜauà g\7fØ]vÖ^t�XiÊOlÉRf½PqÀJd¼Of²Cj©Bj±En¸As¼=tÀ?w´9w§@q¤@\7f§F{¦<\84²B\81°8w¨4zª6w£@r­Dx£Iy¡Cz\9cBx\9aKj\98Mm¢Lx¬O}¹SwÀNz¼L\82¹SyºJ\80µNy·@sµMq­Nq¬Qp¸HnµBy°Mn©Io§Gm°I_²W]²YY­^^®c]²g[«b^£^[®^W«\f²cd¬Z+47(%<**9,.7.(8#7;)28+)749>C<<C;EN89T4EJ;=G>FC>6P=HKI;TL6KQ?MW=CM;KO8_W1XL7lT=j\?iQ>jO6rJ6mD;eB?rN7eQ9q[=s_Erd=oh-nV<{f<mb>ycI\80\Fxf>zgE{lFudG\81jE{iC\83iI\87qH\8cr<\8fu;\9fnH\94sC\9euC\98rH\96rH\9bkJ£~>®m6\9fmB¥b7¸lH½o>¶jMÂtB½qI¾tE´xK¹vSµ\82N©\8cN¤\8eG©\82D­{8¦\80C\9d\8eC\9d\918\91\961\8d\8b8\9f\81I\9b\85@¡\8aU\9b\91Q£\9cQ©\95U\97 \¨£]§\9cL§\99S­\9cU¼\95K¼\9bE±¥N¸\9bR´£L²¤N¹¡NɧE»«B¿µO¶²D¿£M®«Y´¤N² ^¸ `¾°U¹®]¯µa¶¤\¯²T»§T©´R£´\­¹]¬±Q®®_¯½[¬�[­ÀI®»Jº¿Y·ºX¼µT³«W²ºL­µK´°Wµ¶Q¸®Q¾³S¿³W½½[½¬fîVµ½`´´Sµ®Xº±W«´]µ¼T¥»R³°X¯¶b¬°X£ÀG¡³T\8dºL\93ÅV\95ËK\98Æ[\9bÉS\91ÉV£¾[\9eÂ^\97ÇS\9e¼c\91È_\9d�X\8fµX\98¾]\93±c\94¾Z¢Î_\9bÆm\98Ëd¢¾i\9cÇb\9eÒf\9fÈU¥Ì_ ÌU Üc§á`¦×j¤ác\9cÙ^\97�c\98�X\8cÕM\98ÕZ\8fØW\8eÕ[\8fÓY\8dÓ]{Òe\81�g\8b�_\7fÎr~ÓpuÉfp�czÙj\80Ù\tÒT\7fÒ^q�\sÖXeÔWuËSl¾Ls¹Op¾Ad¶5p³;g¦Au¹9s´@\80·Bx³<|³>}©>\7f©4\86«6}´>\81§3v®,z\9d0vª=r¶@r­@w¯Ar£Hu\99Fp Eo¨Ds¸Lv¸X\7f¶Rq¶Rr´Kv¸P|ºBs¾Gr¶Br³Mh¾Db¸Gu¹Ql¯Hi¬Em¥Ob²Ka¨a^¨SY´XU¨\ZµhT°cV¡aeª]Vªfa¯ak¡T%/7\1f,9)'2$&<(-3('0(28.-05/??-A@'AO13G6?H?@M69E98D:4SB<GM=JX2AY?IP:MI/YO,fN.fN5mU7bX;jXBdF8bA=gG?bL0eT/gT>kcEzhDza6~b)sU-{ZAvfCv\A\83X?~WA\81^G\84kI}hB\86j9\85h?\86o5\84x<\8fxG\93oK\93qB\9bmB£v;\99nB¥vI¤w>\9foB¢c8³[<´`F¬pD´tJ°lNºkJ¶n@¯{@²yC²|V©\85V£\8cK±\86D­x@°\88@¢\8b?¡\91C\90\95<\98\89F \87D\9f\8f@ \8fL§\88P¦\92Q¦\95N  Z¥\9c^©¡Y¥¢U®\9cN¶\98X½\99V·\9fN³\9bR»¥Hº¦JÀ¦DÀªN¹µR¼°D¿\9eO³\9bQ¬\9e\°ª\µ¤Q¹¢V¾¥b¸¯_¾«V²¥X®­Pµ¬Vµµ\£»T­º`¶³\¹�R­ÅT°»T®¼Q®¹S±¶W¼±_º²X¶¶X´·X¶µY¼¼N··O¹ºW³»`·º\½¯`»²f±¬f³°^³¸[¸±b¹½[³¹Yª°T¤·R¦³S¨±[¬´W¥¸O\9d»M\94·J\95µS\9f¾O\96¿W\98Äa\93�U\9fÇW\9aÇS\98½\\92¾b\97Éb\94À^\95¿[\8f¼h\99¶h¡Åa\9fËi\9fÃ_\97¾c\9aÎa\97�i ÉY¡ÓYªÓ[¨�[ªãeªçb­ÜW¤Ü]¡Ú_\9fÖj\97ÌU\8b�O\86ÖV\8dßN\83à R\83×\yÓezÊh~Õe\84�m|Îq~ÈmqÎno�jsÇZyÒ[x×WsÖPqÔVhÖKj�UnÈRx¹Cu¹Dl¾Fs¹8w²<n£<x°I}²G{·Ju­=p©7{§>\84¬B\87¸8}³/v¯5u¦/\85\9f/\85¢4\7f±<o¯;l°Gx´J{§Ns£Ep¥Jp²Nv½N|ºYsµZr¾\x¸Qw½Eq¾CnÇHgÂHc¿Sd¿Ld¶Lg­Om®Pc¯Hc´WW­[V´SY±RT´^Y®cW­d_«XY¤ad¥el£\c§Z-+4,1(*&8'.7.1)51+1+42,.9-69)><19K08G?=C8=M>8G??FC4XL=JR4N]6FX1SK<MP*]P5eM7cL._O;bN7[S2ZL-^G;aK6cZ;cQ2l\@wd=wZ:\81b3}Y'}](|\7y\;vU7z^F~`>\7faEzfE~kG\8al?\8cjC\8btC\8e\7fF\89hB\91pO\9bcJ\90kP\91`N\9ehH¦t;«jB§fD\9bk9¬iD¨dH­iL£hJ®xA±vE²uK¡yE¯xI¨\7fN\9f\90E£\91F¯\8aI¥\80I¤}F§\83>\99\99K\8e\95K\9e\8dI¨\89D¡\87G¥\83M¥\86F¯\94T¨\97Q¢\96Z¦\9cXª\9e]¹¥L·\9cG³\95Oº¡Z±\9aK¹¤R½¤J�¥NÄ\9eT·«O´¯P¹§V¿\9dP®\92L¯\99U³\9dP³¤U´¦W¹¡O«®T¶§U²¢Y·¥T³ªb¥±R\9e³P³³Y®°R¼ÂY²¿V¶¾Zµ¸Uº°`«¹c¯¹`±°]±¬V¼¶[¸À^´Ã`¯ÅT»Â\»ÆQ·ÇR¹Å\À·cµºf´¹e±±e¸®i­º^°¸R³²W®»Uª·[\9f¬W\9d±R¡±M¢½R\8eºJ\9e´U\9e¿^\9c¾Q\96¹S\9dÈ\\96ÂM¢ÌQ¢ÀW\9dÎ^\9fÎ\\9cÎb Å] ¼hªµl\9eÈp¨Ì^¤Êl\96¾j¢Çh¡Óaª�_\9fÖ^«�i­�a£ã\¨âl§Þ\£ç\¥Ód§�m\9cÒ\\86ÕN\87×J\89ÚU|ÓX\84ØX\80Öa\86Èg\81Ç]\86�e|Å_\86ÆkqËbeÓggÉfzÓWwÉQsÜVm�HeÙDe�PeÆLq½Nq·JpÂ?k¶:w«;zª=u£7x´Cz«Ko¥@}¡B}®6\89©/\88·6|¬:\84©2{¨0\85\9c+\8a©3z¦B{¬FuªAo¦@|¤Fx­Ho¤Ez¶Er´Su¾V{¸Uv¶Ul»Yq¶OgµJnÅRp¿Kb¾TeÊKb¸U`¸I`¸He·N`«WW·UZ°Zd¾]W°aYµad¸WVª_`ªaf\9fha c^£a+\e,(%(,/'150*/21+*/,45)5:)::.::6>F/6C<6H:6P@;HD9FB4RI6TE<IR6MX:MS9NX:ZU-^P/bI,eO1aI/_D0^C1ZC6aO7]TCj^?if3wc8|\4wV-y["zV#u`2~]2\80a2{]A\80dA{cI\81eF\82lF\7fmB\84yB\81uJ\8axI\90mV\8eeT\96\T\8dcT\8biU\93`L£hD¨j>¨i9¡e?\9ckC¥cF¡jF¢jB±yA±y<«x? wE£\85M¤\88G«\86B§\8cM­\8bN§~I¦\8dP \8bF£\8eB\97\96I\9c\96N¦\8aB\9f\90H§\88B«\8dO¶\89T»\8dN³\9dV¿\9aQº\9fY´©V²¤Qª¨U±\9dQ«¡R³¢O¹¤T¿\98SÂ\9cS»¡O¼\9eN¶§V³\9bW¹\99L¸\9cJ¾\9bR¾¢\°¬X³²]¥ªS§£U­ a´¤`¬¬a®­X¨µN¥¸U«¼T±¹X¾Ç_µËZ¼À_¶²g«°_­´W©ªYª¶\´µU¹¾]²Ãb±¾[±�[¹ÉS´ÆX»½d¸Äa°Ëa·Âj¼¾d¸­`¶ª]¬µ\³®Xª²[£¹_\9b³R\9b¼V\9dºT\90¶W\93¿X\9c²Y\9d¶_¥¶\¤¶T\9bÆU\9cËR\9eÉP£È_ �X¤ÇZ\9dË^\9d�c§ÄgªÅj©�j¬Êd«Åc\9aÉi¥ÕgªØd­Úk¨Öc«×g¤à o°ân«ág¬áf£äZ\9dà d£Ô_ äV\8câZ\80ä\\82ÜN\8aÞZ\81ØU\82×\\81ÊW{ÆVvÇb|Ìc}Äc|Ìdj�cnÄYlÃ`wÊOqÑOmÕEoËJrÅMkÇFfºBh¾DpÂ4m¸4t¸>z©7|¥<\7f°@u«:t¦E~©A\86­5\88²8\88¸3\89¯.\83«+\8b¯2\81£3y\9d5\81¨@\7f°8t®9z°6o¨BjµNk°Mm·Mt¼RzÇTxÀ^x�]pÀ^d¿Rd½OmÄLrÇTuÅRmÆOj¸Pa¸O[¹Q^±M]¸Wh°Yl»__»[c¿_^´Zb·YW¶bZ®gW§]X©RR§W(\18)((+50+31444*,-\1f.(,3+)?/.>)1D24D47;.+E@+@@:BH*I>:PB8EU,IT2NL+P\<WT*QV0QO.`U4WF5ZL+^G5[W(bY6[V2\M8kO1x`.vd,n`1|_1r[!uX)\86['ye6\81bB}\>\80XE\87eF\8bmE|s=\8aqA\7fyC\88kF\86v;\88mM\8feN\84aI\91aX\8b`F\97mC\9d^I¨a8¡k9\9bp<\9dh>¢cG§kC\9dqG¬p<³wC±v>¤\86;°\87;²\82?©\8cC°\84I­\81L \83Q¤\90O\98\8aP\91\89B\92\92P\95\8eH§\91V\9e\82C©\83?ª\8eQ±\95Wµ\94S´\8fO¾\93U±\9d]¶¤Z¸\99P²\97Xµ\92X¹\96^ª¢Tµ\98X¶\92S¼\95UÃ\99Pº\9fL¬\97V¶ O®¢N¶¤LÀ\9eT¯®Y¬¦^³¡]©\9aV¨\9dX¬¥b«­W¯©Q£µQª³G¨ÃV¬ÄO¬ÀYÂÆa¸�d»V¹µY©ªT±±X®®e¯¹Uª¶V­ÈU¸ÃXªËVµÇ^¸ÇQ·Ã\½ÌX�Åc«»j©¸n¦¿h¬¶i¯»^ ¹U¦¬X£ÀU¦¸T\9e¸Z\98³V\97®S\9f¸Y\98½W\93°b\9d´]\99¼W\99ÇT¤ÃR\9dËZ¤ËY\99Óf£ÑeªÊj£Ç`\9aÓk¡Ìn³Ës±Ëb¯Äf¥¾` Îu\9fÊf¬Øf¤�a¢�f®Ö`¢Öd¨Ù^¶æg­×W\9açT\95ØO¡�_\8dßY\85äQ\83ÖY\83à N\84ßV\85ÓN\82ÔR\84ÈW\81Ô_\80Èa\82Î_yËi{Ì^uÊZj�brºarËOl¿FlÊDnÅKlÄ?p¾Eg¹Kkµ<j·A|´4z°8\81³4y©6v¨>\81´=yªJ}«4\84²:\80¬-\81¼8\8cµ*~§&} ,\86©<\87¥?\86­7u­Bo¤=v¥Am±DnµSr»Wv´XtµOhÃ^xÃir¾fmÇTm¿\qÎSjÎNgËMd�VaÄXXÀKT½Vc�LU³Tb¸Zf¬Qb¶V_µ`W½\S°Y]ºXX°ZW©bS±`R§WK\9fS.";2\1c4(\e8-'-.5-71%30*4.&A0#>'/=13?,&C0+<8/:=3;?*@=6?I9LP/HQ.F[2QZ0Jb/J\4IN8XQ+YW&JQ*[[%`[0dR/`T2ZK7cN/iV1xU*sV%sZ+vR,~O#\7fW1\80^:\83c8\82cB\84iF\8b^C\89kF\82kE\82pN\82iM\87gF\8eb<\95_?\90hE\86]M\88`O\91^I\8emJ\91c?\9ee:\97c6\97m;\9ckD©gF±rB©l?¯v4©t:®z7«\845©}:®\809´}:¨~@¬\86D¤\8bM\9c\8eL\9b\8dI\92\90C\94\93K\93\98K \8cX­\8aM¨\8cC±\95@­\91H¹\89Aµ\8dI´\89T·\92X¾\98X¸\9fL®\95^±\90_°£V°¨]¯©]¯\99T²\93WÄ\9cQ¼\96J³\95N¹\9eT²\9cM³¨H±¦Rµ©P¶¬Z¹ªN°\9aS«¥W­¨cª¬R²©P©¶M£½N«¶M«»Y²Å\¾ÀU¼¿U¹¹Z«¹U®°L¯±T·¼_­À^¬ÄP¦Î\¬ÉX®ÊY´ÌY¸ÒS´�S¿�Q¹Ä]ª¶V§²`ª¹a¡¼g\9d²Z¡«^¨®Z¬¼T¢³T\96¬Y\92­Y\91ªa\8c¬a\97½`\9c°V\96°W\91¿M\93ÇR\9eÃU\9c�b¤Ò^\9aÎa­�n±Ói¨�s¢Ìm¯Ìk¯Îo¯Èf¤»`\9fÀg Åp Ãn\9eÉ\¢�g¨Õb¤Éb¬Ë]ªÚ\²ß]¡ØV\9cØS\98×M\94ÌS\87ÔO\89×S\80×H\87äM\7f×T{ÚI{ÛF\81ÒNyË\\81ÕYyÊX~�]pÕVp�`mÇXsÂ`xÇYm¾KnÅDmÅMr·Pr·Bhº@l°=sº=zµ6x¿6\81¹4w¸4~§5t²>{¼B\81±<\83¬2\82²3\81À7~µ;\82­.\7f£/z¨8\7f\9f/\85¦7\82§;vªAw¯Gq®En²Pt¶Vm­Yh´[fºfjÀbm¼YmÂVoÂTo�afË`lÄTgÊY`ËWb½XR½Z]Å\[¼Vb»SY¶PP³TR´U\³aU®^P¨]X³TQ²RH¶`MªXL¦_4\1c(0!2= )3(&/'\1e9/\1f01 ?%(C5.831@;/44#72\eAC$ED\1fDJ/>D09O*IJ6CL.FL,BX+BT3@\;NV1WQ3TW.HS-RQ&[W\1eaY'dS*jV&kS+hU'z\*tW-}c"|b\1f~P!\85]2\85W1~_5\8d`9~Y<\88f>\85nK~oA\87nC\87hB~a@\8c^A~`C\8efG\8a_Q\86\Q\8fnJ\93iC\96n@ k5\9er9\9em; jE©tE©l? f<£t=°w3¯x:­\8a=²{?¨\7f9¨\7f:¥\86;¡\83J\98\97M\94\88H\9d\89@\9c\95K\91\92X\96\93U \8dY \8fI£\87U¨\89Qµ\91D­\88I¸\8bS½\8bT«\93T·\94O¾\9eWµ\94Vº\8af·\97d²ªb·¤T¹\99^Ä `Å\99]·\9aV»\99W®\94O¸\93W·\9bY°¢c´\9c\²¢_¨§]«¡c«¨W°ª_¥ [««^ª¹P¥ºT´²[¸²P·Ã_¼ºNÂ�RÀµY·¿O¸¾H¾¾Z°º\¹¿_³¿P¯�a®Ì\®Ã_¯ÄR®ËR¬×T®ÄT«ËX¨ÀY\99¸]¤´e\9bºj¡·`£µi¦¿e¦µY\9a¸\ §]\9c´T\8c±d\9fºe\9f²c\98°V\9b·`\97·^\97¹N¤Ë\§Ée£Ëa§Ô^¦Øc·Ùj¨Éb¤Ën®�m¯Éu¬Äcª³k¦½b¡»d¢Ãm§Ña Ê[§Ò[¡ÎX°×YµÙ_¤ÙT¢ÛW\99Ô\\9f�R\89�`\85à Y\92ÕQ\87ØM\8dÜR}âW\84Ü[}âJ\84ÞR\83ØT\84ÙXwÙ`\81ÒUpÖWuØTtËN{ÂO~»Vt»HoÇGwËLvÄ@q³Di·;p¸8jº4t¯<\80±7u´@\86´=w´8\80µ2\7f�C\83³:\88·:}À7}¿4\82¿1\80²6}¸-y±2\83°<|¢9\84¥:~¶I\7f²EpºAo´Js¼\m¹Pu´VrÃ]sÃatÌ`rÇ[sÇYnÒbbÑi`Ì\[�\WËe\ÂVL¾^OÃOZ¾\L¿YT¹NU¹UL·T\µ^U§^N¹RR¬LT¯RN¿ZQ®[Qª\;%)<\1c,5 %7\1d\1f<$\188\1e\1a?.!<-&E;\1fA9(C@\e8>\1c9B#=A\1a5@\1e>C)E?)AI+IW2BU7=V=CJ3FK0GT0L^)J`/La&H`%NU\1eUQ\1cWV\1c_V\1djK nL\1fpY\1ajV%qS y_%~V){]"t`-yU9\86S9\86Z<\7f`;\82]C\89iG\8anB\87qC\83lA\88hB\7f^@\87`F~jF\8djA\8beK\8bgF\8aeK\96]E\97b9\9eiF¢rF\9ez;¡s@£tB£mA«z4¨x8§v8¦\853ª\89@©\80@¬\88@©\85B£\939\9c\96@\99\8aH\92\8eH\9a\91T\9d\97Y\9e\95\¤\9aT¥\93P¯\8cU¸\8bS¸\8bN¼\8aO¶\8cN¹\8dQ¯\92U¯\8d`³\8bZ¶\86e½\8f`µ\96`º\9aa¾\96fÇ\99aÈ\9diÀ£c¶¥a·\9eZ¾\95SÀ\98[º\99e¯¢d°\99k­\9ab°\96d­\9ed´\9fc«¨Z©¨_¨«[®­M§¸O¬¯[¸µX¹¾OºÀS¸ºT·�Pµ¹S¾½N³ÅQ¸¿_¯�Z±Å^«Ñd®�`¶Ç_¸É\±�P°ÑP®ÊL§ËS§ÉX\9aÇY\9b¼Z\99·[\9eÄe\9aÀe\96¼Z\9f·[\95²X\98­U\9b¯b\98¬]¤º] ¸_\97²`\96·\\9f¸b\9cºX\9c¼d¢�a¥�hª�g©Êf¬Îf¨Éd§Æc¬Ém£Çk\9cÂu\9e¹q\9fÄg¤¿i\9bÉk\9f�c¨�g§�YªØS¬ÒN£�M¦ËU£Âa\9fÈ[\9dÕ_\8bÙ\\92ÛY\8aà Z\8e�T\87ØS\8eå`\8bâ[\85Ü\}ÜWzà U{ßV\80ÒW{�W\80ÔWu�N}ÊU|ÀMz¿Nz¼A\7fºJsÇGqÄBwµ<z½8l³<r²Aj¸Ap´;zµ:|®5|¶0\7f»1\84¾5\8a»:\8dÀ6\92Ã5\85º0x´+x¾,\80»<}·=\83ª=\83­>\81¯J{±E{»E\80½K{ºOuºWo�Xr¶RlÃTkÇ^s�doÓjmÑghÌf`Òf\Ñg_Æ^RÅaSÉ\TÀRP»WH¶SE°RE»SM�SUºU\°SX°UZ°[K²UG¼NQ¼VW¶ZRµ`5 $9\19'=\172:%0: !/,\1c12.A)465'2;\1e15&CB'4F\1c;A\1cH@%ID.JP%BE/AV19O@>Z;BQ8JN.FK)AV2D[+N]6A`.GZ.MJ\19bZ\1eiW+kV*qN#iY'de%g_%vf+nU(rd0uY+y`1~ZE\88\D~YA\84g?\8b^:~aE|f@\86iL}mI\7f^<~fF\80aA\8c[K\8cgK\8c`?\95dJ\8af<\98_>\93jI\9fpD\9fk? l>§l<¦\80D£|6®q? w3ª{?¤{G²\84E²|I¡zP\9a\8eH\9d\89H\96\8fN\9b\8dT\9a\99P¢\8fe¥\91\¡\9dY\9e\8cY²\91O³\93Z¹\8dV¶\87Mµ\8fJÀ\94F¸\8fM»\92]²\96b¾\91Y¹¡^°\99f³\95fº\9c_Å\97c¤aÄ\9a^�\9bi² d¸¢]¶\93_¶\9fQ· S±¢b°\99`¯\9d_²¨d§®W¦¢a ®]§ªS©´[ ·[¸�N°°V¸ÂS¶�`º½QÀ´X�ÀN¶¶O³¶Yµ¸S¯ÈYª�V°ËWºËk³�Y¬ÑX³ÎW¤ÌQ¬ÓG\9cÂK¡Ã\\9eÀZ\96µc\98¼Z\91³b\97Ã]\9fÅW\98�^\99º]\9f»L\93§X\9a±R\98¸X\96²^\98¼\\8e³]\91µa\91´a\97½`\9dÌk\9bÆ\«ÀY¡Èk§Çi¡Ë`±¿d¦Çj¨ºm\9f¾f©¾m¤ºk¢Åf§¸Z©¼`¥¾T§¿V¨�Y¨ÌP§�R¦ÄS\9b�\\9aÉZ\9eÖT\91×U\92ÕT\8fÙU\85ÛZ\92�Y\8fÖY\8açN\83Ö\\83ÕZ|ÕXvÜ[t×M\81�^~�N~ÈLz�Mv½PpºOxÂG{ÂLpÃ@p½E{¹@vª3uªBf¹Gj»Jo±=\86¹F\82¹;\86´7\8cµ2\8cÀ:\7f¿5~�8\84´3w�7\7f².\7f¹.v³2\87²J\86´L\8d³Mz¨J\80©?x­Fz²P\85´Z{ºP}¼Xu´OhºYj»lb»aeÊkf�gsÒ[i�_`ÒkSÂjWÌcM¸`Q¹RF½]N²]O±`H¸bXº`Uµ]_³SY°PQ©TM©KR²ZE¶aV®cN°_;'2<"*1\1d35%1</053,90)4371-%20!<=%<? CF#@B(:B/BC:DF)MM%LU8?U9KM+LU.DO5MJ/QS6G]7GQ.JR3UY0UQ%X\$hV*qT n^&rg&kb$u^0n^,lf,x^1z`0\81Z8\80e;z^Jue?\80_7|k;\83eB\80c>|hEwjK}i@\88`?\87]>\91_?\8dZE\94]<\99b>\92n@\8emL\9arA¡t?«jE¥pA§z@¤\81;¡{<¤{C\9a\838\9d\81>­\7fG°yM¯tR£|O¤\84K\9d\88Q\99\8cP¡\96U\9b\91W \93b§\89e\9e\8f_\9d\86\«\8bX²\93O­\8fR¾\91S�\8bDº\8aM¸\9aO�\99\¹\91a³\95[´¡c¼\9cg²\96\µ\97X½\9e`¹¦e»\9ed·\92j¼\97b´\97`¼\9aW¿\98N±\97M¸\96S¶ `©\9cU¦¤X¤ ^¥¬e\9f·Y£µX®¼_¨¹X®¶aµ¼\¿¿_¸�aµ¼W»²[¹²^²½W«¹S¥¼UªÈ`´Ç[³Ëa´Éf±�[±ÈN«�K¤ÅI¡ÄO\98ÊM\9aÀQ¡½Z\98³`\92¶a\96�d\91ÀY\96»U\94¾Y\95½V\9f¸T\93³T\8e©O\8d©W\8b¸R\92¹P\91¬W\97´W\97³c\8fºp\98Äk¢¿^ªº[­Ç\¢ÎdªÂ\«ºb¨¹f¨·m¬�t©Ãpªºd®�]ª¶\¤³\¯´Oª¸R£½U\9e¼M§¼O¢ÅP\9bÊK£ÑN\9aÈT\8c�V\84ÚX\85ÚU\88ÑK\8cÑO\84ÛV~ÚQ\82�K\85�K\86×Uv�N\7fÉX{Ò[v�\{ÀQuÅHs¼Il¿NoÌBlÆLrÀGs²8}°7x®4r«?z¨9s±Du¬=\83¬@\87¯@\85¾@\8d¾D\88·6xÀ1u�<m¶>t¹9t½.{»4\80±;\86¯H\88·N\86¶U\7f²P\84¤I\8b¦T\81ªT\85µY{²Uv¶Q{°Xw¹ec¶hd²ijºmp»]mÊ]\ÈbWÅjUËeNÉaR·bJ¶SBµWE®dL³_Lª_U¬]b±WY²QY­UN«SR¬MH«UD²_HµYN­V8(/F)12'.:#103-11&229:8?.851'$?-&9B*@9"@="GG4G=?H>+OA-B@'DE9PM4PV/GM.TM3II5NU3IS/PH3RG(_O(fP(qR'eO5hW'uT/ph1jb)pb(kY'ya-{e2yZ@\80d;{lE\86j:\84g8\86n=\7f`I\87fH\88u8\7fh<\7fsC\8al=\89lM\87fC\86eR\8ekN\8eo?\98iE\92tE\95lF\9arA\9dj@¡nD vF¦sF§\81<\96yF£{K \85D­}R®~O¢x[¥\83O\9e\89X\9c\8bW \8fX\9d\91O¤\9c`£\9cY«\8eXª\96Z°\84]§\94O­\8d\¯\8cS±\88M·\85<Ã\96HÇ\97UÃ\97Y¸\96V´\9e_±¤b«¤f²\9ej­¥^«¡`²\98h±\95a± `±\98a°\9eYµ\92M»\97I²\9cI«\91\²\94^®\9fW­¢P§ªb\9a§g\9c±W¢µY¢º^°»SµÀa·Àb¼º]±Å]·¿h¦¯[¯­`«¼d«»`¢ºS¯¿_³Ãg²Åe¸Éd©Åa³¾N¦¿Tª�G\99ÂI\9a¼P\9c¸N\95ÅM\9f¶Z\9a¾S\9aÇW\98ÃY\99ÅU\91¾`\9aºQ\8e³R\97´K\8dµM\91¯X\8a¼N\8f¶S\8d¬N\88¬P\8d»b\8f¹]\95ºi\97Àa£Ä^\9eÈZ¥�^¤Ëa°¼`¨�e¬¿r£¼v«´n«¸`­·f¤±^®¶Y¤¶P¬­P¥²M\9f·R ¶O\96»H¨ÈO\9cÔU¥ÄO\9eÔ\\8e�X\8aÙY\81ÛS\85ÙY\84ÛZ\7fÛZ\7fÙJ\89ÎCyÄLr�P\82ÌZsÑ_\85É`\86�OuÊWx½SvÉD}�:t¿GzÃGy¸7\7f´7\80³:o¨Az¥Cn²Gv¨;\81°G\82ª=\83®K\81µ8{¶CxÀ>pÀBpÀ9{º>}¹:t¾9\7f·E\81¾G\8d¶N\8d´[\84±S{¥Y~¯_{±W\84¬Zw½Qy¸V{·Yf±hg³pd¯ajº_g½\cÃfWÇdY¼_LÉ\VÇ\F¾^GÂVC¼`D­dN±_R¡^\¦Zb±P`°X^¸]P§JM¯JU²ZN¬aS±ZS«bB%6>+7@+>:)5..92-+6-,576/103,%77%B5%<< G7'LD,R?7WF.O>,N@0JD(SH)UH.QF2LQ5RG+VM0RN2RM5YJ1\M+dR-jL0kM(hP1kS/sa,nf0t_&|^&s`5x_=ncGlj@xhE\85n;\83f?\83h@\89l@\82jC\84q9\81g:\80k?}mL\89pN\87pH\88bQ\86kM\8eoQ\91vN\99lK\9aiF jI¢mD¢lH§lD\9esJ\9ezN\97\85F\96\83M¥\8aV¢~Y£\7fX\99}U\9f\84]\96\84c\9e\7fa§\94S¦\97V\9e P£\9cW°\95P®\8bW¥\93\¨\8dU¸\82Q¶\85Q³\86S»\8fDÆ\94FÅ\8dOÆ\90T¿\9cZÃ\9f]¶\9bh¯\9dp®£gª\9fc§£j¦ i«\94f¬\90`¬\9aS®\9cT¼\90O¶\8aN®\8fN±\92V±\99Q°\97O¥¥Q©©P ¢]\9c¨[©°bªºb©¸\¬¼V¶½^µ¶c±º]¨¾e\9eºc\9c»_\9f«b\9e¨\ª¶Yª»^ªÄb¶¿W´ÈZ¹¿S­ÂT¯¸J¦±P\9c«G\97µM\9b¼F\8fÀH\99ÃM\9bÈV\9cÅP\9aÀR\94¾U\9c¶a\9b¼Z\8d¹Q\89³T\8b¹O\87·T\8d¼Q\89¾R\8e°Q\8c¯V\8dºU\8a½b\96³l\9e¿m¢Â`¥¾c¦Äa°¾b«�_\9e¸n¡ºn¯¼h«­l²¹o³µaµµW¯¶U¯²O\9f¯W\9c·Y\9d½L\96»O\99½D\9dÈP¦ÇV\9cÉ_ ÉY\98Ç\\87ÑT\89ØQ}ØQ\88ÖY\85�W\87ÒI|�L{ÇMxÅOrÑV|�^z�Y\81Ã]tÌ[rÇOxÄM|¾=\7fº9\83Â=\7f³:\82±2\83«.|¨;}ª;x²>\7f¶8x¯=tª:\80®Du¸Ez³D\7f¶EvÆ:l�;rÆ=xÆ?qÉD\80�R\82»Q\82¬O\84­]y©f{¨]|±]\81ªa~»X{ºRy¹Vl¬edµdi±lp¶^n¼_o¸af¼f]¿bV¸WZ¾PLÄWIÅXMÀYQ²]I­fF­XQ¦Y_­Oa³TW²SV¶SZ¬UN¦TW¦ON£YIªcH®_585A%2968D52?:26<0=;+A2895+>-8;.(A0)I@.I76R@,R@2R@+TB6ZI)YD#L>1OD&ZK7XV:\X:XW9WR7NU<WJ5cK7bE7xP<tS7lG9rO3ye/je9sW6t`*e]0olGzl>x_C\82gP\84mF\85b@\84eA\85gG\8apG\81s@~w9\82iD{i<ziC\81bI\8c]R\91jV\91`L\98sN¡oT\9apO\9bsO§tD¦jB¨xQ\9duB¥|M\9f\83P§\89Uª\83UªzT¡uZ\9azQ¦~\\97\88T\93\7fZ\9e\86d\9f\9cS \97Y¤¡\¦\9dV·\9aY¦\8bV\9d\8aM«\8dT¸\82J¶\95O´\91K¿\97Q¼\94K¶\8fPÀ\9b]¶ d´\9ec³¦j³\97o«¥^­\9dk©\9a_ª¦]³\99Z³\95X»\95N²\85Z²\92R¸\8cPª\9fX¨£Zª\9fS£¢Z \9c`\9d\9bh\9a\9ag£ª[§¶g¥³_¨¯g³²[°ºWª¬f¡·b£»Y\99°Y¥¬f£±Y§±\¯¯S°¿^©Âb®ÊO¡¿_\9a±]\98´J¡¬V\99¬O\97³G\94¿K\8e½O\9dÉR\94Ê^\9cÃR\97Æ\\97Àe¡¹`\9a·^\96ÀJ\95·U\8c¹Q\93·Q\95º[\97¼Z\8d¯Z\8c°P\91®`\99²Z\9a±d\97À`\9d³f£½d\9cÌj­Èg§Ìj¯´n¤²t¤±k´­m·«b®¶]¸®Y´¹T§®O\9d²U¥²G¥ÅL\98´A\9d´E\94ÆL¢ËR£ÊY¡�W\8aËP}ÕW\84Ø[xÔQ\81ÇK\81½J\87ÆL~�OxÌH}¿X\7fÅQ~Ó]}Ë^\8cÆ^{¼Rz¼FwÂCz¿?~½G|»=\85ºA\83¥7\7f£Bs§;s­I\7f­>|¤D\88¤8\80¥@z±>|°L\89»>}ÀJn¿F{¼Bn¹HzÃIyË={¸P\8a¼_\7f©W\7f­_r\9eU{£Q|\9dby¤W\7f³Yy¼Sk§ai¯Zm¢dp©wj²sn±ak¶_g½`_±fT³aYµWG¾LGµULÃXJµ\H³eS¬gL£^b¥XXµVVµZ^¸XV­VW [O«SH©\L¦TK¡W=399/.=0&G9)P>)HB,DB*=67816D9<S-8P13J;6PC8Y?.TE-O<-ZD/_C5W@*Z=4RG.YI<UP=`T9\P9]O<X[?eR=kL;mO2vH8|D=tM7tM7x[AiZ@iZ5c`7fh9ok8vhE\83hW\83_W\82fO\85mE}sG\81iEynJ\80kD\7fn<\7frEzg;yj@za>\8bdI\88eM\89`T\91fX\9dmY\95qU\97qW¡iZ§iKªtO¡|I\9f\7fN \86P \85T¡\82X\9e\7fT¡tU\98tR\9d}X\9e\83X\94\80^\92\90c\9b\91^\9f S¬ S°\9dZ®\9cS­\97W\9e\91T\9f\95S¬\89P«\8dJ³\98Hª\94F°\97O±\93\¾\98Y¬¡R« Z¨\9d\®\9cg§\92b®\98Z¥ ^§¦Pº U»\96S°\98P°\8aY±\91b±\93]ª\98V¬¤U¯£S¨\9c`©\99f\9d\99f¢ j\9d d\9f ^\9a®c£²_§¯a\9e¨h\9c­a\98ªd£¬`§®T£±Y§¶\ ¬W¬·X©¹X\9e¿^£¼R\9c·Z\97±X\95·\\91¶O\90³H\9bªK\9b¼R\96¾Z\96¼^\97ÇW\8cÉS\91¾_\9c¼a\96Èf\98ËZ\93ÈR\91ÇJ\88ÂL\94ÈY\92¾T\93«U\90©^\8e®a\90­^\99³]\9e¶^¥²`¨³eª�a£Çc¥Ãm¯Åo¨¸p­³q¨³r¯­h­¬f¶µY³¬T´´Q§¨Mª­T¤­S¥¾A\9c�F\9d¸C\9e¸B\94ÂN\91ÀE\97ÃI\89ÊE\83�LyÅYzÆY\7f»M\85¾E\87ÀD\85ÇLxÉO|ÊP\87Å^\8bË^\8f¿_\85¿S\82ºMz�G{¾Q~ÂK\88ÀI\84´:\87§E\85©>\87®C{§Cx±F}±H\8cªD\89 ={¢>xªF\83ª>\8b¶G\86²Hu¯Cw¬@t¸G{ÄG}ÂE{¼M\84²^\7f´do¥Zh\9eOn Tg£Sk¥Zu±Uy¬Xw¥[l§Wr¬iv¡rk¥lg­nh°n[°^V¾fXºgS»USµQNºZJ½UU°eO°eX¦cX¦VX©L\¬OS¦U[¬]Q©ZX¨UO®ZG´PW§YW¤P780A019@/F=&=K!EE)<K'=5.L58@;4K?>V11P38G<:NG4JL1P=4TL1WE/ZB8[A2]C3^F4`N8YJ@^S>YV:aS3oR3pWBvV:uG5sFEpPCnV?sXIoYJpP@bU9jd?sdJwdLr`Q\89`P\88]W\87bK\86nV\87lVyeG{qV|rGw|L\85tM{nC~eI\80rK\8ceQ\91_L\99_K\9esT\93x_\9ayT\96p`\9auK\9b{T§\80P\9c\85R­\80T\9e\84c¤za§\82e£o_\9d\80W\9f\7fU\94zS\98\86T\99\8dY\98\8dQ«\97`°\9d[ \99P«\8fR¦\98Q\9b\8aP \87W©\87Sµ\97M¹¡N¼\96R»¢I²\96Nµ\97_¹§Q«\9d`¬¡Z¶\9af´\9fc²\96Zµ V¬¬K´¢R¶\94I©\97Y­\91V¶\9bO±\98S©\99S­ _¡\99f¦\92a\93¡n\9d\9be\98\97f\94\98`\94­^\99°c\94«b§¨f\9f¨a\9dµb¡¥c ¥R\9c­S¨¶_£µO\9b©Y¦³Pª¯W¥¹T\9b°P\97©Y\8d¦^\8f²[\93¬Y\8e£N\91§L\8d¸T\88¶[\94¿Y\95½\\86ÃO\8aÃT\93ÄV\91Ãg\8eÇa\92�R\81¿W\85ÈK\81ÂV\8b¹Y\92°c\98²c\91¸V\9c¯T\96®\\99µ[¨µ_¨¶^\9c¿m¦Äa«Èl§Âi³²k²­q¯¬c¬«a©¼e»¿U±¸]µ¶K«¶T¦¬J²¼C§¹F\9e»J¡ºJ\98¶F\93¿T\93ÊI\8a½A\8dÌA\83ÂI\82ÊS\82ÈO\8a�L\8eµC}ºS~ÇG\88ÂD\8aÂG\85¸P\8eÄQ\83¼Y\81ÀJ\83·D|»J\7fºE\84¹O\85«H\82ªD\84´F\7f³:\82°Cx¯I}¨K\83µH\88£H\8eª>\7f«F\85¥L\8d«M\93¬?\84¹9\84³Eu»;m²<r»K{µG\83¹Wu­Uu¯bw¢bi¨br\9f`t\9f\s¦`g\9f^s£cu¤Yq¥`o¦`}\9clmªpk©g\¥j\³`a¬j_½eS¸^O³XZ»a]¸`[ºaX¬XR¢T]°VS¯T]­XZ©ZU¥SX¤SW©QZ¬XF¯WW¡QO O69%8>&DI,FG)=F+@N'II,GE3E?/J96U9?T:=H;:H>8R?/QA6SI<ZC9Y=7Y>;SGB\K;XS3_N:o[;m[4iT:gW8qV4o[;jPCtP<zGHtOHiVBnZHiXEhUJn\Dl_JxTKrVIrWU}`V\80cd{``}^V\82fW~oS\7fgX\7fiM\7fvF\85yK\84yJ\84mO\84nD\94sA\94hH\94`J\95g[¡l\¡xb\9bpb\9by\\94x_\9c\85\¥\81h©\82e \86^¤~e¥\81[\9f{`¦|h¡}^\96\8cR\95\89V\9c\92R\9f\91O\99\98Z¤\9c] \94c\99\90]\97\89Q£\92S¬\94Mª\94K±\9eG¸\9cQ±¦Mµ\9eO¶¥\°¢Y¶¥Pª U³©U¯¦Z«\9cP¬\9cP«©H¶¤O©©S¬\9fK°\9cN°\98X±\97T®¡R¤\9aY©\9b\\9c\97e\99\96l\8d¤h\8d¤h\8e¤g\86¡e\8f£h\91§Y\99¤`\99 _\9f¦b\97¬\\9c³_\95«P\9d§W\9b±T\93±L\9a¶M ·Q¢«Q¢°V\9d¥T\95­N\8c§V\8a¨N\94\9eW\93¬Q\8b©X\8d­S\7f´R|�O\82¼O\85ÉJ{ÈV|È_\89ÈY\8d�T\89Ë^\89ËU\83ÉT{¸a\83¶^\8a´]\94´Y\9bµ^\9a½[\98½f¡¸`\95µk\9a´f©¸o§½n¤Âi£»h«¸r©·j®�f²¹Z­³U°¸Z®²\ª¼P°´E©»H®¯U®³P©°T¡®L\92·I\93�O\97¼C\8bÂE\94ËG\8fÄL\88½V\84ÂS\8e¸Q\87¹I{²M\7f¸P\8c±M\8dµF\94¶P\8bµO\93¼T\8a¸L\86¶N\86²L\8b¨H\81£P{¥K}¥Ez´Cx±>~³=v±I\86®J\87´K\8c²@\88¥=\90¡;\87§G\82¬@\8b­>\8d¬@\82¹:}´=v½?x±A~±Ay©Hs²X{§^x¦fm¡cl¤`i«ak£]e¢\p¦]{¨eu¡hz«gu£jo¡ad¦ef­f\§id«q`´j[¸iYº`c±[a³a]©`WªUXª_P©^V¯YU¤\S\9aUS RO§UV°ZW¦[V Q^¡JT¥R:591B&EE/DD)EI+E="EB%OA4L;6N;+X:1T@FY<7KE<MA4PF6\N0NN<T?2^>0RE3VP<SI7dS=`P>]^@cb@pa4vZ;zV<oR>o]Ay]Bf\MpU=mOCkVIbTBq]Jk`SqaQtdT}XQ{dTtb]\82me|f_|iV{hVslU{uQ~uP\81tQ|qU|iL\84xQ\87rE\94mQ\96dL\97aY\90kW\8e\7fd\9dxV\9e\80^\9b\85c\97zV\9a{X¦\84g\9e\82b¢\82h¦xc¢nd\95\83Z\92\85X\93}M\93\88T\94\8cM\98\8fF£\9aL©\99[¢\8c\\99\96]¨\99O¤¡Y«\90P© U²\9eP´\9b_­¢O¨\9cN©\96W²\9aR¨\9cV§\99]¶©`±\9dY§\9ec«\9eV±\9dP­©Zº¤M«\96L¯\9dO»\95\²\9f`¥\9bYª\94V¢\9d^\9a\9f_\98\9c_\99ª\\8c£n\8b¢a\8b\97e\8a\9c[\99¥P\8f\9eR\92\96Q\96¨R\9d¨d\92²R\9c²V\9d®W¢¬K\94±X¥³Y¥¢H\9c±G¨§R¥²S\91®P\93­L\8f\9dK\8f\9fV\91¨P\82¥`\7f¶Z\85ºS\85²O\88¼O\80·K\8b¼S\80ÇQ\83¿T\83Ñ`\89Õ_\8d�N\8fÉL\80¾Z~µX\89ºV\92½b\91¿V\9dÀg\96²i¢ºi ´_\99ºf\9b¾h¦Äq¢¼k\9b²`\9c¼i ¬k¦½_¨²`\9d¿R¡º\¥³P­¼R­ºN¯¹Lª¯H\9bµV¤­I\9f¶J\96°G\88¼U\8bÀE\90¼F\90¼M\8eÉT\94ÉL\86ÊU\88ÄU\84½O\89¼F\8e³K\84»C\81±C\89»R\84µZ\89¯L\8a¾@\85ºO\8b±H}´K~¤F\82©L}©>\80¥Is«Kz«J\82²Q\83²?}©@\81¨G\86¦E\86\9dC\85¦K\80§B\85¯;\82¯B{¼D{ºB\80ºBw´H|°Fp±Tm«Zo°[|©cv¤WqªXp£dl\9bes\9cgyªez¬fr¦`s°dk¯np£ii¥cXªmd\9ekZ©dW±fY¿`[±gb³]a°V^¨Ua±aT«XL\9fdU¡XX¥fS£^S\99YZ­OOªUV¨N\ W^©WO§`>;,7D*5B\1eAE#>;+@=%KB-FD.OI4MF/IJ0TC>V=:U;5Z<3XN.YQ)NI1LD2XJ2TE1MH/T[)Y]0Xa7\X@meGmg>k_CuT6~[GuZKmZMiXAaMB`Q=ZR=daBg]LkbNieLpdMunZ|iZvkYyjYug`|tdrySpuLplSmnJslG\7fhQ\82vY|vO\87vO\94gO\91^]\8e`a\94r^\8czU\8exf\96ye\9cy_\93yW\8b\80\\94\88i\98\91g\9e\89k¡\81b qX\9d\84[\93\8aX\92\8eR\9c\84I\93\91N\9b\93L\9c\9dV¥\95P \8cQ\9f\92Sª\9cZ§\9eQ¬\9dV¡\9dY®\9ac¯£]ª\9aWª¢Q³£Z·\96V´\9bQ²¢Sµ\9b]ª£c¨¢b²¬]¯ [° V°\9a^²\9c]»\94W·\9dZ®\97Zª\97`¦\95X¥\9e[\9f¨T\99¡Z\9c­]\8d­c\83¬h\85\9c]\93¤_\97§W\92\9b^\96\99S\99¡^\92¯]\8c¤]\94¨\\9f«S\9b°O\97«T\9e¤S¥¬K£¥B\9d©D¢¯F\93¢?\8a¢H\87ª@\8d¤E\8e¬L\87¯V~´J~´L\8b©H\8e¬T\87­J\89¶M\8c¼T\7fÅR}�O\85ÑS\8bÅI\8fÂN\83Ç]\84»a\8b¿c\8c¶Z\90¿[\94¼b\99ºm¬°o¨±f¥µg­·t©»v ¹h\9b®_\9f¨b¥±g\99²X\97¹Z\95¶S\99¹V\9c¯]\9f¬\\9e®N¦³M£µL\98¨S\9a³R\9b·K\92µJ\86­I\94¶@\95¶B\95¼J\90ÀQ\97ÅK\8cÇQ\80ÆS\83»L\80½H\8c³D\89¶K\84·N\90­I\8c®S\93¹U\95¶E\89­E\80«F\81±K\8b°M\8b¦I\81\9cG\84\9dMu My¬D\82¶J\84§C{¡<x¥?\85\98;{\9eI\81­E\81º;\81µ=zºE\84�G\7f�Iy³Ay­Pq¯Ok°Zu²[~¨^v¯Yx¬er\9f_o\9aXo¤by¤as¢aw¢Xo±_q®fr©le³ka³qX³u_¡ma¦oSµjP¶q[¸hT´XT¶VZ°_`§eV\9ceK\96`P\97WZ¤_]¥bY\9b]Y©]Y±RY·P[«UY¨^U\98`.93<?;5:*@3#>;,:D\1eH:"LE"B>0P?.X<3W@BTC4\=>UG/ZT1[P,XS%NV'SM0JH2TW-NQ.Rf6\d5YX?faCj_Ioa7u\=fY@xcKu\?jUAdKBfM;jV<m[Hu`@ljHzhL~fG\80oSr_[ri[qk_{iWqufujZrzTysKthQqlNrs]\83lW}qM\87xY\9crO\9ak\\96n^\98x^\98wQ\88zf\8a\80\\90{_\90{c\93\89f\8f\8cm\9c\87l\92\90^ \84W\9dp`\90\89T\9a\8fP£\90R\9e\85C\9c\86J\98\90N¨\8eI\9f\8e[£\98M¢\8dW¡\99[®\9c[ª\9cT¡\9f\¦¥W¥\9b_­\9eO¦\99H¨\9aR¸\8cYµ\9dT°¢K©©U«®Y­¨[´¯Y«¬c« Y¯­Q°§Y¶¤U°£b¥\99V¦\95f«\95^¨\95V\9a\96]\95\9f^\8a\9bh\8c¨l\82¦c\8a¢k\95£^ \96`\95\98^\9a\9bV\9b£Z\98§\\9a°U£¥P\9a¢N\94§R\9e°S¡\9fU\9c¨K¢¡D\9f°G\97ªG\9c®M\96®N\8e¤O\8a¥C\91¥P~³J\89·M\85¶E\90ºU\97ªT\8f¹R\87½L|¼L|ÈM\87ÉO\8dÄO\95ÊM\99ÉR\94ºU\86º]\8cºZ\83¾f\96³Z\8f¸h\9d¹o¥ªh¨²n\9f®k ¬k¯ªs\9d¹g\9cºj¡²`\9b¶e\9b»a\92ª[\93«R\9dµ\\94°\¡°T¢¶\¢°R\99¸J\9a­N\98¬J\95³@\8b¨=\86¯L\87­C\8c¼O\8b´G\97¶J\94ÅO\99ÂO\95¶P\8c¼P\90¹F\90ªE\94¬J\91»U\92­J\91¥K\94µD\96¬G\8d·?\80­E\90§C\93µA\80¦L}\94Jx\98Pp\9aNs¡E\83¸K}«K\88 I\88\98=\84\93;\83¤F\89¦D\84®D\8bµ={Â<z»<z³D\82´6}·Hy´Cy²Mr¬^y¨Xp¨Xp¯[j\9fck¤fs Y{ªYm«[m¢dq¦_x±nq³jo¦uhµoaªa^¡bX¬mY²bZ¹dZ³iT´`K±d[ ag¥`W cV\99cI\9f`Z¢^Y\9ecW `V¡TT­IZ¡RQ\9bNa\9f`V\93]24627>25691*<//;:$B;$AF%HL,JB+J;6WB;\EA_O7WW4UQ7_R6ZN(YH#NS+XU6X_6\\4Rb8cf9bc9hh:rfGe^DdeAch=j\FmSFoONkWHgWDk\LidEpm@xqL\83sU\80pR\81rUxf^vgavma}kgtp^shdzqbmmTonTmsZrl]sn_\82sY\91iO\92oS\96nY\91j_\99{d\92{\\86{]\8a\7f`\8d|a\93\80f\88\87a\88\89d\90\89]\93\88X\8b|W\93z`\97\7f`\9a\8bR¥\84Q¢\8aN¤\92S£\94M\9d\8fS\9b\8aT\92\87N\9a\94V\9d\9e]¥\99T«\93K§\9dQ¡\9da§\99_¯\96^ª\96O°\94J±\90T¨\9cU¯ Q³¢_±©[´­\¶²`°°d´ªYª¤V­ªX¥«_®¨[°\96Y§\94\ª\91^¥\94U\9c\8cY\94\94e\8f d\87¥d\8b¨j\88\9bi\99\99b\99\95^\9c\9d]\97\94c ¢l\9a£c\9d\9f^¢«R\9c¥Y\9b§S\9b W\9b¦R¥²H\9e­F\98¨?\95§@\9c­?\96±E\96¨F\92¦J\86¨L\81°C\8e¹L\8c·K\8f³M\8e°X\8a»F\84¼E~ËM\86ÎF\8fÎ?\8cÃD\88ÀR\93¾N\91µ`\97¶a\97¾b\88ºg\94¾d\92¾d\9d±b¦¯m¢´f¤³k¨²m¨¨n¥¯r\97·h\8f¼h\97¹Y\94©\\8b¨S\91§V\93«\\8e£a\91¬Y\8dµc\91´[\91°V\8e¸H\8b²@\8a­<~±E\81«?\86·G\8b¶N\86±I\92¶R\8e»G\9a¹K\8b±M\8d·C\91»@\8a®?\8e°=\97µL¡µK\9e¬H\92¬I\8e¬9\8c©3\8e¯>\87·=\89­C{¡Ou\9cQ}\9aHt£Hv¦M\84ªF\8e£@\92§D\8cªG\8f\9eG\8b¦<\83£<\86¶:\84º<|µ?\80¸@}µ>~¾<rÆHq¾Fi´Jj¬XiªVt«Xl¬fn¯ix©it¥_o¨it¦dq£mw£kz¯g|¯lw¥en©jj¢ha¬`X®\Z³\P´dP°jQ®iM\9epZ¦m\ eR\9acU\9fZQ\98`L\94ZY\90SX\9dSZ¦U[¡N_¡NX\9cPY\98Y_\9c\75B37A7=8C+"4@"5I(AA&BN+GL0TJ%YG5YH;YM9SV4TQA[J4UI/SW+\T*\Y*]Y,PW5Z\<\f8`l9dg;sc<jdPfbKc\Fo[HmXLtWNoOOtYMd\BqbHucIskNvqM|pX|mJ}jav^Z\7fsUzrSxfenuaztaxjW}hQpnNoc]niazri\84jg|ze\8bnh\91x`\92oh\90{`\94~b\86t_\84~l\8c\87e\95}h\8e\80[\81\88f\92\89h\94\8bZ\90~f\90u\\99\84d£\90a£\91M£\90M\9c\8cS\9a\92O\95\96G\9e\82Q\96\84Y©\92W¡\8b^\9b\9cS¨£Y¨\9eK\9d\9b`\9d\9fc«\97P¡\9d]®\95U¸\9dQ²\9bS«£W«¨]®±Zµ¥_¸«X¸¬c¶²[¬«P¤¯[ª¤Y·«W©¥Y \9cT\9d U©\9bU¢\9f\\99\96g\97¡e\88¨k\91\98l\90\8fa\9a\90h\9d\99c\98\99[\97£a\93\9eg\9e\99\\95ªW\94ªS\91©U\8d¬H\8f P\9c®F\9c\9fH\97§@\98©A\91¥>\92¡; «9\98¥:\92¨>\8f¨H\85·A\89¯?\8d«U\8eªS\95¯H\89®R\85µH\81¿?\88ËC|Ç>~�=\88½P\98ÀT\98»Z\92·a\82ÀV\89»c\95¾d\93Æi\93³r§²m\9d¶d¡·q¬¯h\9e§q§«o\9d³c¢µc\92ºX\9d§]\95¦T\93¥a\97´f\95 `\97 b\8e§U\98²`\8a»P\91®K\86»?\8b²2\86¥A\8e¨<\89¬G\94°J\8a«@ ²E\94·E\9f°A\96µD\8f«F\95«;\8f¨;\8e£E\9c§=¢¢B« =¢ªE\97¢=\8f¥B\95´D\96¬8\8b¯K\85¡D|¤Bs¦M\86¤>\81§H\87ªI\92ªM\8b«@\8e­C\91\9cA\81\9e@\86¤G\89¹A\83¶:\84¾8\81ÂE\84Â7\7f¶Bt²Bn»El¸OyªZu¤\t«Qs¥Zz¥gq£ns«]n²[t¨\{¢j{¢`{«f~ªgo¦qx¨cq£kh¦ff±dU§nY«lW°rQ¨lL¥lP\9df^\9aaW¢[\\93]O¡^J\9d^N\9fP\\9dX^\9dSX\9cHa¡MaªUe\99QW\99WA:;86:?<$A5\1f:6!>H/:Q2;I)A@"O@([=8YHAPR6NO7PO8[O<WUBZX6^R4\[6\S9PX8Zi7Yj9dc<fa?g_AohIrfOiaHxhNuaPm[Jt]BrfJodMh_RpfPrqOyoVtfWvnStj`\7fac\82i\}tUwfephcrr[vr[yoPxiUvb^ngdymqvno\84\7fx\82~o}qs\87qe\8cyg\90vc\8c\85a\8d\82h\91\81b\8e\8a]\93\8bc\8a\8ag\83\88n\8b\8cg\8b\84e\95\80c\9c\84i\9c\87_\9c\88R¥\90O\98\97N\94\91U\9d\8aS\99\8aG¨\88T¨\84Y\9d\98]\9f\9cU\9e£T\97\99T\93\92U\99\9bZ¡\94Z¥\9a\²\9cOµ\9aS­\9dZ¯\94Q¨\9ca«ªcº­`·¯T¹±b¯¯_«¦T¢§T¯­`¯¬_¤ªU§§S«\99X\9f\9aU\95\95`\8e\9fi\8f\98k\90\9fo\8e\9fg\96\92_\9d\90k \8be\99\97f\94¦g\98¢c\9a\9e\\96 T\8d¢Q\94¬G\8eªB\92£I\98¦C\8a¥M\8c\9fJ\8b¦O\98¦L\9c¡<\98¢8\90¨6\85°;\84¸5\89°7\8a²L\90¬Q\8f·N\90´I\93±P\89¶N\82ºC\85ÆB\82ÆD}¹E\87»N\8d²W\8c­N\85¶T\7f·V\87º\\8fÄ^\98½e\9bÄe\9d¼sªºk«¬h\9f\9fj\9e h ¥`«©i¡²`\96°Y¡­V\9b\9da\9c­a\97­e\9b¦W\9a Z\99±c\8e²c\8d¬]\84²O\80µ>\8b³4\89¬7\90¬:\8a¶?\92¯G\92¨9\9c§;¡«7\99­@\93¬A\97¡; \9f8\9d¦8\98¢6\91¤4¢¨9¨\9f9¥£:\95\9e7\98¥<\92³;\8c®B\91¡G\88¤Nx«C\7f©@\86\9cE\92¥;\8f«>\88«C\85¦H\8d©J\91¨I\8c¥B\84¨@\89·J\7f¾D\87ÃA\81�9|¼=t¶=k¸Dn¯Mw®Xw§Ul²Zn°Zq²^{£o|¬st«er·`}±_uªXz­b\82±l\81¨k\83§bu­it©ca§ee¥o[ s^¢rS\9eqM\9biX¥cY\99[T\9ccN\90aU\95Y\\93VQ\9cVR¡QP¡UV£[U¡OR£H`¦MY\9bV_\9fY5;.54,:?":8\1fEI$EG.>N1EM%DD&PK*GO;MN>\N:Z[2XU8]T0aX1eK3a\9dR?dV>\b2Wh?]f:ekDgY?pi>naCqg?nj9ugEyiLyiKxdHljFrfO{aTo^VrqTwnStwZyqV~p^za\vj`|tTomWrc`roitp_ycg|fdyglssdtogp|q}os\81smy\80f\87\80u\8ard\8e\82g\84\80d\8bza\92\8cb\80\8cY\83\8d^\84\8dg\89\88f\83\8e_\83\80f\91\83d\8e\89c\99\8bY\95\90\ \8f\\99\97X¡\8fV\96\8eT\9c\8dA§~N\9b\84\£\93^\98\90V\9c\91V\95\99V\9d\95a\9d\9cX \94U§\92^¥\95\°\98U¶\95`´\9bW§\9eU¢¨Y¬¬X¬ªU²¨[³©b°´`¢¡\\9c®`­±a¡¤^¦§Z\9c\9eU\96\99V\9c\98f\8a¡n\95\93p\88\90q\97\95h\94\90m\8f\92j\9d\90k\96\93_\99\96^\92¦f\93©^\9d¬U\91§W\8c®F\8b°M\8b§F\99¢F\8a¥K\88©L\89¨G\8f§A\8f¦G\90\9d;\87¡8\96©7\8e£=\82µ@\89²9\8b¨L\87¯D\8eµL\8b´E{µR{µO|�D\80ÂJ|¾J|³S\81ºY\83¶`\88®c\83½U\90�g\90¸]\9c³o\95·j¡�k§ºn ©h§­l¦¡kª£c©¡[ §d\95ªa\93 W\91¡d\98\9cg\9b\9ea\99\9fW\8c\96Y\9a©[\93°^\89³L\88¯D\91¦=\8dµ;\8c±?\8f§:\95°8\93©>\98±G\9e\9d;\93­4\9e¨8\9e¤<\97\9fE\9f\9a1\99®>¢ª=¦\986\9c\9d8©\9e5\9c\9c<\9b\9d@\96­H\97®:\96\9f=\97¨O\82\9e@\84¥K\85¯G\83£P\86¤@\96¤?\82¥I\88²I\81®N\8e¢M\8d°L\81­E\7f²H|½G\80³Cu¹FvµGq²Nh¹Pr«Tm²V}¬\s¯Tw­Y\82«dv¬et¯oz©qp«`\84®[\7f´hx­h\7f«l\7f¯py­kw³me d`£ti\9bp[\9ep\\97zZ\9fmY£kYªbO¦l[¢nN\96aV¢aU\98bT\91TN£]J¥ZI\98IT¥Q_£T`«K[¬OW£PG3)94(;9*@B'7H#:C#9@\1eGK)GX&BT1GS6MY8TX4\^1WY,ZR1eU9^J@_TDgV<`XB[Z=X^8^j5gl:f]Ce]Eg^BdbGna;neBniIpjRunL}sDumKupE|gMzoT\81r_\82sZzi\zl_xpTxybtu`rhZvfYpagqfkkqkpmiore{trr}srxqrtizvmzzq\80\80u\8a|o\88\81o\88\83s\8c|i\86\8bk}\8c\\80\8cb\7f\8b^\88\92W\84\89Z\86\93Z\8a\8eZ\94\95Y\8c\8cQ\8b\87P\98\93W \95N¡\8cU«\80N¤\83K\9b\8bR\93\85Q\9b\8bT\97\8bZ\9c\88Y\9e\8a] \92Z\9b\91Z\9d\96[¡\98`©\9bd®\9db¤\9dc©¤h¬\9f_ª \\9f¨]¤¨Q°ª_¯®[¯§_ «\¢§[\9f¥S\9e¥_ \9da\9e\97g\99\9cd\96\9bj\8a\95k\8a\93i\8b\8fh\8c\90j\8b\88l\8f\8cd\94\96b¢\9bb¡\95`¤\97V\9c¥Y\90«X\91¨M\8a§K\8e¥F\8f¡C\96\9bH\97\9eA\8e¦G\88­@\85¨D\88\9dE\8d\9d9\95¢/\95\9f3\8b£<\8c«>\84«8|³?\86¹A\81±Ly·G~ºM{ÄR~¿Lw´Ky±V\82¯W~µ^\81µ[\83±a\80®h\8eºe\8fÀo\9c¸j¨¸j¦·j«¬g¥©q«¢n¨§g¤£i  [\9b¢W\9e\98W\9b¡b\90 a\95§e\8e\9e]\88\9eb\8e\96c\91¤Y\95 Z\96¤H\8d¥C\8a¯B\88«@\96­A\93²9\94¬7\9b±=\96¤7¢ 9\99£4\98\9f9¥¤;¡\9d=¨\9f2¤¨8°¨2«\975£\9a8\9e\9a7\9b¨@ ¨D\9d§B\9a§I\8e¡Q\90¡I\8b¢D\84¬H\81§I\8d­O\85¬N\8b©I\8c³@\89­G\84³E\83¬G~±=\84ªD|¯>{³By¼Ev¶AwÀFu¹Nv°Wm®PoªVx¶R\85·\\82¹V\84°bz©frªcp­my«m{«d}¦[{¨_vªfsªlm§cj¨gd\9bxn\97wk\8f}f\92v[\94w]\91lW\99aR\9ecX¡`Y\9dkO\9fnO¡eU\97aU\92cV\94UK\9cQM\9bJS¢O[¦Na§Zb­]^¢T;'&52$J9/D?0;I"HQ DG5RM6KT)RS2RT3VW;XS:\S.\N7RU2RT7VX-dZ7]T5fP7`YAXa:av.bm6b^CnSBmW9m_?lZAna7vuJod?ufG{jKilWstKzr\~iS\8alYyn^uwa\83sZ{uWmm^quhoeeqdTxdiqjuwotniunuxw}rrmr~mzykj{nx{\82rt\89u\85\84p\82\83y\8e\7fo\93|f\82}pv\8c_\80\8e\\80\83i\84\87e}\83Z\8b\8di\91\82_\8e\88`\9a\8b]\9e\8f]¥\83X¡\90[¤\8e\\97\8dM\96\8bD\9b\82M\99\88O\9b\80T\93\8dY\9f\86P\94\95W\93\91[\94\88]¢\89Q£\96Y¡\97`´£[µ\98`«\9db¦\99^¯\99Xª¥]¦\9dWª\9c`°¯^ª W\99¨]\9b£d\90\9fQ¡¢_\9c£j\97\95b\9b\8cg\88\93c\8a\8dg\83\96a\91\8fk\94\8fj\8a\94\\98\8fl\8c\8fa\9b\99g¡\9de\9a¢g\93¢Y\93¥W\85¨R\86\9fM\8f¦Q\90©H\8f£K\8b\97>\8d¤?\8e\9eF\93©>\8b§G\85\9d4\8c 6\8e¤@\8a¬6\84¡>\85±@\81²Ju¹B|½Kw¹M\85µD\7f´IwµN\86±G\86®Sy¬V\8a´d\80©T\8a²`\84·f\8e¿^\8d³b\9f´k£ºm¤¾o\9a±l\9c©f©ªe\9f¤i¨©j¥\94b\9a\9bS \96U\9f\9b]\8dª`\92¥X\8f¡S\8b\9cX\93\9cZ\8b\9aR\91\9cP\8b\9eL\91§>\8a\9fI\81ªF\8c«A\95­<\8b³9\93ª:\8d¦- £2\97¥;\90\9c6\93\98:\97¦8\9c¢.\9b¢8¡\9e4¨\97+«\9e,§\92:©\97@ ¥O\95\9dK\9b\9b?\91£L\90§E\8fªN\90¦E\90§J\98\9bR\8f\9fD\8e¨?\8a¬A\8e¨G\86¥=\84\9f:\80¦>\80¬>\81­H\80£D\7f©A{®Nx¹Rw»Tt´Ls¨Nu«Rv¹Y{´X\80°d\83´]u«a\83¤mzµe\81­`t³dx«Zw\9ddx\9ebz§hj§oq¯gj¡lj mg uh\8euW\8ara\95cT\95d]\9c^a\9fkZ\96t\\90kK\91cT\93bU\91\V\95XP\9c^X§U_\9cL[\9aN^¢Xh\9cSl ZJ/3B)/A**K6)BK2DP-KN-LT9JK1XH/QL8SJ9[D4TF/U>5SG0MP(T\*WO1^N.T\6WY9em6ep2i]?g[<^]7fZ=o`5n_=rj4lo<kcFwgGwmIkt\qn[suZuh^\88ga\80pcvwe{pY\81pWyc[idhqkdth^jcnjgnea{mdvljpmtlrvx\80nu\86lvzpv\81tly\88p{\88n\88{x\8czl\8d\84h\82\85u{\81r~\80u\7f\83f{|h\85\86i\87\8el\87\87j\99\8fd\99\90b\9c\80g¢\81b©\81f¤\86Y\97\92L\96\90M\9a\85K\9c\80F¢\82D\9e\86O\97\91W\96\97X\8d\90S\92\90W\95\8eV£\8dP¬\8c\°\9aV·\99Q´\9bM´\97Nª\9f\¡\9af¤\9e_ \99e¡\9f`¨«i\9e«f\96©l\90\9f`\98¥`\93¡d\9b\97o\99\8dh\8e\8ff\82\95i\85\90i\90\94k\92\8dj\8d\8fY\93\93d\93\98k\94\9bd\9a\9b^\98\97`\92\93j\95\93\\89\99P\8a£O\8d§T\8b©G\8e\9c=\8a\9aJ\97¢E\9b\9eE\93¤D\89¨?~¨9|¬7\89\9eC\86¤I\84¦@\83©Fw³T~½Lw¹H\80ÀG\85¹G|±H{·M\80±M\89¶K\8a®Z\86¬]\86©a\7f¬U\8b±X\90¹`\96³g\97³g\95­c\9f¶f\9d¼b\97°h\9a¬g¤®l\9a\9ac\9a\96Y\9f\8bS\9e\91Q\9b\9fT\95¤R\94\9b^\86\92X\90\97P\93\95Y\93¢Q\96¡N\8d\9b@\87\9eB\83¦G\83¨A\86¯=\8e­1\8f«-\8d£.\8a«1\8d¦0\95\9b8\92\9d5\93¥0\94\9e)\91¦&\9f .¡¢*§\9a+¬\974¦\907ª\88D\9d\90H\9f\9dL\9a\98C\92¤H\8b¥H\94¦O\96¬D\9d G\93\99J\90§L\92¨C\87¤L\87¤G\81¨E\89£>\84 D\8b¡E\89\9bM\82¢Mw§Pw©R\82µa\83´^\81²O~­O\87¥V\81ªcy°j}®d\84²b\81¤_\89§i\81°lt­av©eq¢bx¡az\9fku¦nm¨pt¨`h¤ek ra\99kc\93md\97bV\8bdP\8b_[\91cc\8dn^\8fl^\8acT\91^V\9f[X\9b_P¦_S eY\9ba`\9cQY\9dWX\90\e\96Oi\98R?*0=$7K18M60JA/QE6RU;NSA^V2^Z8WQ1JP:ML,WK-PG,^H5\N4\\#ZK&QK%SR*d\>b\:fl.m]:cb5oc9p`;q^>lbCwj;qvAoh?urBysMvu_wp]vkd~cZ\84db\84cnrkl\81k`{niqhiifcgl[lmdkdhqcvhiqkZvzekolt\80po\8bdq}nu\80|wz|uw\84wx\85ot{p\85\86|\85\82q|\8at~\81j}\81r{|o\81\83l\82wd}\83g\81\83a\8c~f\9b\8e\¤~g§\7fZ¡\85\ \86^\95\8c[\94\8aG\97\8eR\95\89?\9b\91Q¢\8fT\95\91P\95\91P\9c\96X\90\93L\95\8eQ \95I¥\91L¬\90V´\9bX¤\9cT¦\98Y£\9c[®\9dV«\99S§¨Yª¤[¥ a\9f\9di\93\9ff\95\97]\98\99g\8a\90m\8c\8eh\96\89h\89\8c^\81\91`\8a\93g\87\88b\89\8bb\8f\95V\8e\8cj\98\91b\9c\97j\93\9da\8e\94n\95\8bh\95\9bi\8f£[\94\9fO\8a£U\91\9cG\90\9dF\95¬;\99¢I\8d¥G\8d¢?\80¬I\7f£D\87¥D\88§J\86¦F\82\9eO{¤K~«Mw­Q}°N\89µ?\84¶K\8a­?\7f¯J\80ºK\87³R\85®Z\88±c\85³P}¯X\8d­S\8cµ[\95¼i\8f¹d\9e¶e£­h\9a°a\9cªn\9e¯a\9d¨i\9f©c\98\90\\97\9aS¢\97O\9f\97P\99¤T\91\97Y\8f\94`\8b\9dR\8e\94V\8f\97N\90\98P\87¡=\83¦:\83¯={«8|¤4\8c¤,\88©1\8d\984\92¤7\95\95,\8f¢8\95\930\99\9a+\93\94*\9a\9e3 \931§\955¨ -£\97:£\8b9¤\89>¤\96;\99\95M\99\95B\8c\8eN\89\99F\8e¡>\94\9eJ\8f\9cH\86 F\97\9dA\91ªG\89¨N\88£@~\9aG\82¨@\88 N\91\9cL\88¦I\92\99M\86«X~¯b|®b}¶\\82´^\81¨Xy«^\88²^\7f¥ht²b\7f­f\82ªg\7f±d\82§o} ut\9cpx¥n~ mo¬mo§ek®cj¬je£_m¤_j\9fmf\8akW\97_Y\85d`\90b`\8fl[\95jb\87ha\8ecQ\94k[\9bk[\98bT\9cbd\98Zf\9a]d\9bT^\9d]k\98\c\98Jk\8eN90<F.<A:@D84IF;VK=XO9ZTAWQ2VZ3[N+NL*OQ$SM%`O$_L-UN&ZQ+VV)UU)\d1eb6gf;ce6dj>gc7nc:heBhe<roAmrGxoCyhD\80rH{lKtoZruezi_zqa\81jivoqsgkvihymisd`yb`l\[habcgmmell[hq`ppe|zgy\89ot\86in\8aqi\83ynt\82zt\85~y\8c\82p\86vr\81w\7f\8cx\82\80s{\83l\81\7fnyxf\85oc\7fw`~\7fl\86}f\95}f\9bz]\96va\9e{[\95\7fQ\93\80S\97\85O\98\8dO\9f\94J\98\8cF\99\8aC¤\8eK¦\8aL\9b\96L  U\9c\98Pª\9cJ§\99M«\9bNª\97J«\8eS¥\96U£¥]«¨S¶\9eW³ W¦\9ce§¤d¨£b\9a\9ak\9a\95e\93\93e\91\94l\92\8dk\98\86d\8d\8cb\8a\90c\82\91Xz\8c`\82\85]\87\89\\85\94^\88\9be\90\90e\89\8ep\90\90j\9a\8er\93\93k\90\95q\90\9de\8d\94W\92\97T\98¤J\8d§B\97¨<\9a¬?\92¤<\8c§E\85­H\7f«?\80´L~®Sv³O~§U\88¦Z\82ªSw¥U}®Jz¢B\88§C\8f¯B\8a´D\84ºN\8f®P\8f¨^\86¯\\7f¾Y\82»U\86µV\93µ[\8a®k\91°j\90±i\97£l\9a\9dp\9e¤h¤¦b\9e£_ \9c\\9c\9bV\93 O\9b\9aU\96£c\9a\9bc\8b\95b\8b\9ad\87\95Y\8b\93M\85\9bI\8f\9bG\89¨J\8a©A\80¦@}®;~¦5{©1\89¦;\8e\954\8d\8e>\94\8f7\8b\8c,\8b\95)\8b\98+\9a\8d. \8b)\97\950\9f\934¥\9e5¬\924¨\953¡\8a0 \8f>\90\88=\8d\90I\8e\91F\8b\8dB\96\96@\96\99B\88¤=\87¢D\8a\9cK\8d\9eK\81\93O\84\95G\8b\92N\83\9eH\89¡J\8f¨K\93¦N\92 [\89ª\\83¬f\85¨g\86¬`~¦i\84£i~¤f\85ªg\81®fzªb\85³j\7f±h\80¶kw©o{\9duv\9bpz\9bsz\9fx{\9dtp«lh£dm¢ce\9ef]\9d[^\9b]`\8eca\96cZ\8ek_\91fg\87fa\84le\8cnc\89oT\8bq\\88kV\92hc\88bg\8b]c\96am\97Xu\94Nm\8fKd\90Sj\8fOH68=49;?;>G7KBBU?DSTEaTBN]DVR+JQ*UH!VS.RQ"SP.VN1PR VZ&Y[1WN)`W:_[9`e>k\*_i=n`7le9cnCpmAuk<pfE}dCycGzqA\85oNtm`~eTzdV\81dg|f_vljn_ovgd\82h]yf`rbbneeo^\obgxY`jerv]p{kmtgt\89pr\83gu\81ik\88zpzv~~\90\82y\8czl\82qr\91sy\8e\7f\7f\8cuv~ozwm\82uo}ya}~h\8arl\89va\8a{^\98~b\91~X¢ye\9c\82]\9d\84W\9f\86I\9c\93W\96\90R \8eO£\90P\9e\97R\9c\8fH \93P\99\94F ¢@¤ L¤\8fI«\95I\9d\98C\9e\98T¤\9aI¢ªO±¨P²\9bVª\9b\«\9cf¤©m¥\9bg¤¢k¡\92i\9a\9ce\8f\85r\8d\83s\95\8ai\87\8bm\84\8fa~\8dW\8a\92a\81\8b[|\8bh\89\91f\8e\89\\97\87f\8c\97l\93\92j\85\96o\94\91_\85\92`\8f\92k\8d\97]\88\9bI\8bªL\93¬Q\8eª@\99¬C\8c¯H\90¦H\88¡H{£@z¨O\82¨W~¥W~£Jy¨W|®P\88¨U\88\9fQ\87­M\84ªS}°@\89¯;\86¨D\8bª^\86®Q\88·d\8d¬T\82®R\91®Y\96±^\90¥a\85°e\8e¥i\9c\9fl\94\9cc\98\9c] ¥b\92¡`\95¡Y\99\97Z¢¤^¤\9aV\91\9fb\88¦c\83\9bX\88\92]\89\9cM\85\9aG\92\9dS\93ªD\97¦@\84§C\81¨<\84±3\83ª5y¨/}£5\88\9c4\8b\99<\92\92/\86\91(\80\89-\8b\88!¢\85$\97\8f*\8f\9f)\96¢0\9b¤0¤\974¢\96+¦\8f:¤\94B\92\95@\8c\8bI\99\89;\94\91:\92\93C\98\90;\93\97@\88¡>\8d\93C\83\8fK\8a\97E\94\97C\8d\98D\80\9f<\8c¢H\89\98R\89\9bQ\95\9b\\8f\9aY\8d\9dk\8e¡m\8b j\8d§a~\9cn}¡d\85£b\82¨l{¥k\83¦g{°s~³b}¯ls«o~\9alq\98hw¢lr¢ju _j¡ie\99[m\9c__\9c]^\9baX\8d]Z\88``\91ic\8ddd\89^d\8ff\\87nY\95pQ\8asZ\8di\\89\Z\98an\99cl\9b^f\9b\p\95[q\8bXj\8dSb\8fQD44?<7<:2GI5OA3TD@]M?XRKRRCKW2QX(US)^V.YX&O\\1fMV#MX)\a$S\/RX.__2[b:ja7gc/bb5i^5hlCchBf`Ey`Gxc@sa>\7fmK\81hFy`H}_X\80_S\87_S\90d]\88]a\81iiuhm{ccy]\w]RnbYqV_gU\j``w^_lXgmZryelvhp\82fk\8bsp~iu}ot\83~qy\8d}}\87|u\8fxz\8cww\87~t\81o\81\80n}mjzki\88rf\88uo\8d}d\89u^\91\84U\96\84Z\93{e\98}a\9b}[\98\86K\99\8aW \98U¡\95H\9b\88J \94Q\9e\99R\9f\90N \90L\96\95E\97¡A§\9f@¥\96D¤\96<\9d\9aE¯¥C¯¦J®§U¬¦P¤ªO  V\9c\98e\9e¡h\9a¤^¢\9ab\9a\99g\97\96h\93\85j\8f\82o\8f}s\91\88h\93\8c[\83\86^\80\84i\87\8eg}\8fm\81\8eg\7f\88b\8c\89]\8c\88f\8d\96b\93\8eZ\87\8cb\83\8dd\8d\98`\8f\9bQ\8f¤K\8f\9cN\9a£P\8f§C\8f§C\88¦>\8a¡;\8b§G\80«K}§Hx¦Ut£Lw¤Pr¬S|¥]\7f¬Z\83¡Y\89©W\7f¯TyµI}³C\87§I\82¦[z£b\80­_\86®V\8aªU\90¢P\92£T\88\9c^\89¢]\96\9di\9c¤g\9e§i\9c¤[\9a\9d_\96\9b`\97¡Y¤\9eZ\9d¢T¡\99[\96\9a`\87¡Z\82¦[~\9aW~\9cT\8b¢O\92£O\93ªG\95¤E\8f«M\91¬<\81­<{¤:}¨<\83\9c9\86\928~\93@\86\8f6}\923\84\88!\94\87+\9b\8a*\98\8e%\94\9a%\98\9a1 \9b3§\9d,«\9d2ª\909\99\94?\96\8eB\91\8b>\92\945\9a\8f9\94\958\95\8f?\8d\8bA\86\98A\8d\93E\88\8eT\90\8fS\92\8eA\85\8eF\80\91@\82\8fQ\92\96[\8c\90^\88\99c\81 X\8a\9f^\8f©c\88¢l\81\9fq\87\9ae\83\9ad\86¥l\8b®p\8aªo\82¢j\83¤m\80¬kz°b}¤`x\9bbp\9c[t«\y¡fz _o\9b[g\92^r\96dm\94bj\99``\8eae\8aae\83hX\8b[Z\83_Z\8bhc\8d`g\8be^\92ne\90_g\8d^c\96Ue\9a\^\95[h\9cNk\95Od\96]a\97Wi\86\>1FG;BFA>EBDRQFNGJ^NA\YCPLCHK3K]4SU5X](RW&M[ RT/[U4`c,P^6Te2X]8]cFan@ja:dd6q_=f]=mZCf\Fx^BoiA\7f]@\84fF\8bgI\7f[S\8aYT\8eWU\89Za\84da\87]i\86imr]mt_dq`[kZVhXcsYZkYWjOckYgzZnsTu}ahyhv\8buu\91wg~wh\7f\82q\7f\87x{\8e\81q\92x|\8b\86s\8a||\86\89p\89\81\83wr}prwnj\83ys\7f{m\7fzd\8fqb\87\81^\8e\81Y\8c\84_\8a\85]\9b\89V\9f\89S\96\87N\97\9bO¥\8bI\9f\92Q£\99W¦\9fQ¤\8fV¤\8dA¡\8fG\9c\97C\96\93F¥\9dG\98\96D \97O¡¦M§£Qµ§F²¤W¢\9cM¡¢U¤\9bX¦¨k\9e\99l£¤h\9e\9co\9d\8ca\97\88o\9b\82p\97\89d\8a\81n\8a\87i\8d\85l\87\8cc\84\86i\8c\88]\82\8cb\89\88d\7f\89f\85\8eaw\8fa\88\8de\81\86a\84\8dZ\90 ^\8a¤R\8a¦Q\8c¨J\9a\98R\97«O\8e¦A\93­<\8d§9\81¦B\81¦D}¤Q|³]x°Qw Jz\9eW~­\\83§Y}\9bUy§\}¹O\82ªTv°J\84­R\80¯U|¤U\8c´Z\8e¬V\81§Y\8f£[\86¤V\8b\98\\93¤V\94¤b\94£f\91\97c\94\92Y\9c\96h\98\8fe \92j\9a\9ci\9f\9d[\9c\9b_\91ªS\8d\9eX\7f¦]\81\9a[\85¨M\8e\9dL\86²O\85´L\91²B\8d©>\86¥G\86ªA\87¬=\88¤F\7f\962\84\96+\8e\8f9\81\8d(\80\95$\88\8d'\9d\85* \92!\9b\90*\9b\9a$\98\9c'\9d\9b'¤\9a6©\910¨\943¤\8f<\95\897\9f\8e>\95\88D\99\93@\95\8cC\9b\90?\8b\8aO\82\91O\89\97J\8e\8bK\8b\93G\8b\8fN\88\97D\87\94A\92\95K\90\99]\83\9dW\8a\9bk\92\90d\83¢h\92\92g\8b\97q\8e\99r\87\96q\85\9fh\8b\9er\83¢p\86 l\8d§w\85©j}¥nv­fu¡hz«Y\7f£Y|°b}\9e]}£by\9fTq\95Yl\94^l\96br\8a\d\90fZ\8ccb\84mj\80\j\83h^\8e[i\8cf`\89bd\8dn`\98_j\96\b\93ac\94_b\93Sg\9aWp\9cMd\9aae\9bQj\8fVM9?K:HM:IHJAGRMSOMNWDYUKPRCPPBSU@KZ=Le1Ub,M]1M[,P^6Xd:Za<Qa4Xc?alAer>bg<dgAj^<lV5kY:ue<ne3ml8}bA~`J\8aaC\8eYK\8bbQ\91Z\\85Y^\7fY^\82d`\89\b\7fZhu\_l[dvQ_pTcr_XiX]t]`pPnn[gwXoyar\86ls\85hp\88qk\82vi|\83i\80\88u}\84yv\8czv\85\82o|\84u\84\83yx\8aty\7fxn}xss\87po\86yl\8ato\86zc\8byW\81{[\8a\80X\8a\8eT\8c\8bQ\98\8fS\98\8fH\9d\92L¤\8cR\9f\94P\99\98Y\9e\9eR\9c\9eN¥\95D\9c\91E\9f\99G\9b\9eL\9d\95C\9a\90P\9d\99T\9e\9dW®\9cN¬\9aJ®\9fR¦\96X¢\95S\9e\9ccª\9edª£c¡\9fj\98\9bp\98\8dk \92n\9a\86h\8c\82g\89\82d\8a\81o\96\8aj\9a\8em\92\88e\8e\94d\7f\93_\80\99cy\90_|\9c]q\96hw\99hx\90hz\9ac\8b\9aO\87¤N\8d¥K\99\9fM\95\9dC\92¦H\8f©G\94³J\8d«@\85®F\7f®C\83§M\81®Uu¥Wy¤Ux¤Ly¦Ou§V~¦Yq­St±Rs²T~­O|§Sz­N~¸M\87³V\86°a\86§]|\9eR\80£T\80¢[\8d\99V\8e\9eN\95\97V\90\90V\9a\8eZ\9c\91e\9c\94h\97\9dm\9f\9eg¢§\\94£]\85«b\82©V\80¢Wzª\~©]\88¥V\85¨V\87µG\90µD\8f®=\8f°F\86¨F\87\9dA\8d£B\85\9e>\89\93+\82\9a0\8a\9a+\84\90.\8f\90(\90\890¢\8e(¢\8f*¥\98+¢\9b&ª\8f+¨\89%¦\93+ \97/\9f\8b8\99\92<\9f\872\9e\896\90\94H\8d\8aQ\90\90M\8b\8bK\89\93V\94\91M\8e\8bO\96\93E\91\95I\96\9cM\8f\95C\8b\90O\89\8fX\91\8fY\88\92c\88\8c_\8a\95e\88\99n\93\90n\8f\95y\90\89w\8b\89y\85\94y\88\9cu\87 w\82§k}¥nq«er¥bp©Y{«`y«ey§av¤ew\9c]p\93bt\99Xt\91Ov\90Vm\98_a\90]_\88h_\8caf\8eZi\85ac\82ke\90gk\96iq\91\i\95]m\98cp\91Wg\91Zo\92^s\94Qr\92Qf\9cTm\9dMl\92W9>B=CJK<K:HIKMARXQ\PN[[IXYKRR;MN<Pa<Tc7P_<QS4TU6Jb/^b>Yc6Yf0Y]7]gB^bGZd:a]9k_:j_:q]2y]>ri0\80fC\85gD\80gF\87dG\8aiJ\92_[\89\N\8e\`\8cd^yaezkZ{Zc{aXhZhxa`nXXhOSsTVoO]uSep]hrihu]l\84qi}mn\8b{j\8c{i\82}iy\83nw\82voz\81x\82\7fsz\89t\86\7fx\83}v\7f|y}~\80mt\7f~z\88\82k\7f\82r\8aql\82zZ\8a\80U\8d\88`\8a\86Y\94\8dS\8d\8cM\9b\8eX \9aH\9e\94G\9c\8eL¡\93O\9b\99S\98¡X¥\97J¥\9aN\9f\92M\9c\9eR\94\97M\97\95T\95\9dV®\9bU°\9cO®\94J°\9fY±\94K­\8eV®\95T¨£Z¥\9bh© d\9b\95b\8d\94e\9d\94j\9b\85b\8d~d\8b\81c\8f\84]\9c\8ck\9b\80`\95\80k\95\84^\81\90W~\92a\80\88ds\87dv\8eb~\8fgy\93p\7f `\8b\9dP\84\99M\8e\97M\86\9cE\97¢B\8a­P\85°S\85®E\86£J~­G|¯Lp£I\7f¦Sy¥X}©W}¦_r\9e\w¦V\83°[x¦TlºPy§Zx«L\82¢Lz®JxµR\87®Z\81°]\8b±[y«[}©[\85£V\81 X\85\9bX\97\98Q\97\9cW\98\9c\\9a\93c\98\96j\9a\9bc\95\9de \9dU\97¢R\8d\9f[\8e¤N\84¨\~£U\89®]\82¦I\7fªU\84¯G\86²B\8c¦A\87¨=\83ªH\8c :\8b\9d9\8d\972\8c\96)\8c\97.\85\8a(\97\94+\9a\942\9a\8d*\95\87/£\95*±\93-­\95&¤\94&«\953©\93$ª\877¤\944 \8f1¢\8e0\8f\8bA\91\8eK\8b\8bG\8d\8fQ\88\86X\8c\8aR\86\95K\80\8b@\90\88E\94\90G\99\90B\91\83I\8b\86S\8e\8eT\8f\90\\8b\96c\81\90m\88\92k\8c\87g\8e\92k\88\90m\87\89p\85\8bn|\8er\80\9fq\81¦m\88\98mv¥x}\99sl\9few c|®jx fz£pz\98j\81\9dUw\94Tx\94Qs\99Vw\91`v\8bba\8cQ]\86T]\8c]Y\83_[\83ia\7f^c\8eih\8cal\8fff\89Ym\9a[l\96`l\93Yn\8baw\8cMt\93Qg\97Ud\93ag\8fV@=T;AK=CF;?K;LCKPFUPD`RDTWCXUA[]CTZ;OT6IX?HZ0JM.NO-T_1XY5`Y/\Z=c`Gb^BZg=aoGogHsj>q`;\80`8\7fb<zgG|ZNwiL{fB\87kH\8fkT\8e_T\89^T\7fjR~l_w^c\81`YweXj[_iX]vWWwRNmVVrTdo\mihtojo\80cf\81hh\83ir\87vk\8ctp\85\80oz\81twwxxvys~\83gs|gx\85sn\86xt~yp\7fyry\80{v{}v\86xj\83we\84~e\89\8aU\81~Y\87\82a\8a\83W\89\89W\9b\95Q\9d\99R\98\9aM\91\94Q\9b\98L\99\9cT\98\9dU\93\99Y\96\99b \9bZ\96\91X\9c\94O\9c\8bW\9d\91W§\8aT²\8eU¸\92U·\9bT«¢N®\98R§\95S¡\98Z \94Z\9f\9e]\95\9ac\92\8ek\8f\94i\99\8bb \87f\9b|Z\9fzV\94\89`\9b\90i\98\89a\94\93d\90\8f^\87\84Sx\84Xv\90c~\93a\83\9af\80\9bi\83\9cW\82\9fP\8b£I\88\97N\87¡L\8d§E\84²U\8a¬T\8c«V\8a¤L\84\9eIr©En¡Go¨Ln¯^x¦ak¥eo£ax V~®\q±Ttµ]p¨Q|£Vx¦\z¬S\81¤\\80ª[\86¶X\82¶Qv°Xv¨Q{¤Q\85¡R\80¤[\88\9bR\84\9ec\84 b\8f\9d^\92\8df\97\90m\96\98d\94¥b\98 P\93ªT\93§W\88¦U{¤Y\7f£P\89«F\8c´N\83¹U\8eºP\87¯E\8b³C\8d¬>\89\9bB\86\95?\93\933\92\9b+\89\8f7\8e\8a4\92\8f0\9e\89*¡\815\98\848\9f\89*®\8c*¡\8e0\9e\8c.ª\822ª\83%«\8c$¦\8b4\9d\8d1\99\8b9\8d\95C\90\92H\83\87L\87\86V\93\85Y\92\8bJ\93\89=\83\90A\92\86B\90\89R\95~J\91\7fK\93{H\94\86I\89\8eP\89\90a\87\86m\8a\8ch\8c\8fn\8d\8cv\83\94v\82\8fkz\86s\80\86m\89\8as\82\9eq\81§z~\9eyz\99qs\98s{¡tt¦mw\9fo\82£m\82\97f\87\96\~\99_r\92Rt\8bWx\8ebr\8b]i\93Qi\8eP\\7fV\\84U[\84eZyce|[i\85_a\8fb`\8dbn\8abj\90[d\8b_k\93\n\92Xn\87Wp\87dg\88`g\88f5@K>GR=FS9HO>LCCLJVOEYG@RZ=MW=NOAPXAMNA=Z9HS6AJ:AQ4V]+[S0U\9`b<i[O^aHegEkYLt`GsdHn[A\7fYE~\P\84gN\84_G\88`M}c?\83lN\90gK\88kR\83fV\87fZxe_\85`_yZ[xd^lS]}Tf}R\wUZm[[{\fsfkzlh{nu\81nj\7frj\81ooyvzxwr\83~|\83~q\7f{\80{p~vo\85p}\7fos\8fht\84z\85\8cq|\89oz}z\85\84q\7f{szk{wjz\83Y~\83R\7f~U\8bzd\7f\88]\91\82U\8a\93P\8e\90M\9c\90M\8a\8eQ\8a\93X\93\8ec\98\9cb\99\90X\99\94a\9f\93]¥\8fW\9b\92X\9e\8eW¥\93L±\92M·\92Tª\8fP®\9fO±\98P\9e\9dU¦\92d\94\9eZ\96\9f_\9d\97]\9e\9db\95\94q\8e\8b`\9b\94Z\9b\8bV¢yR\98\83Y\91\8fd\9f\86f\9b\87h\92\93^\91\91m\85\8fk\81~Z|\81g\84\93a\82\99c\83\9ah\83\92Ux£T\88\9cQ{\9cP\82¡I\86\9cW\89¨V\8eªS\8c Y\8c©M\81®Rm¨Tr¢Vo L{\9dW\80\9feu¡co¥\r¬Yu¯dr¨Uv¬Wl­Tz¢Zx§Tq±Vw³Mo¶Nw´On·\|©\r±]s ^\85«Z\83¦N\86£M\84¢]\81\99X\8b\96f\90\98d\8c\9cc\8b\95d\8e\9d^\9c¤X\92«O\90«M\81 J}¡S\7fªV{©J{¶Lyº[t²H\81·;\80¸5\90¬5\88¢7\90\9a?\91\9b9\90\997\9b\8f7\8f\812\93\8e<\93\8a)£\874¢\81A\9a\8c9³\916ª\8d/\9c|3¥\88.¥w#­\81)§\88/\9e\8b:\91\8eC\8e\86H\88\8aD\91\8cR\92\89O\92\8eW\89\93U\94\87M\8c\93G\83\88L\86\82S\95|Q\8e{T\9cyQ\9d\8fI\97\8cS\91\91T\8b\93h\8f\8ea\92\94j\93\83q\8c\93r\8d\89m|\92s\87\85p\84\92r{\9dz{\9fy}\98|z\99up¡ol\95lp¢x\81\9ei\85\9ct{\94`\8a\92dv\99[y\92Wr\8bWj\89gq\8eZe\8bXd\8a^_\85\b\85ag\85e[\86]ft__\87ed|[i~ce\84\p\7f[b\7fZo\89ac\88Qp\91fm\93]k\88_j\8abH8JE<GJHG?GLEKGH@MNOPVMLQWCOW9K\8OP8IU0@W9EN4AK@@F>GI5IO;[S:\N@bZLb\NbVLhQSv]Py^TvbKtbNycS{XY\89^P\8c[G\85fH\85rG\84oI\8atD\88kJ\80sN{oYtb_}bhvgm{Zc{a^}WizZeyi^na`sfhpltxsqsty}\80v\80wpy{xzx\7fzl\80{g\7fzr{xvu{n~kx\81h~\87k\8b\8en\87\8cw|\8es\81\88o\87\88n\8c\81p\85up\83hq{e\80\84`\87wc\87y]\8e\7fV\87\86^\8d\8dT\8d\93M\8a\88P\91\8bO\8c\86Q\8a\91b\89\95Z\8e\8fV\98\97X\90\99_\93\99^§\95P§\99R¬\92M¬\96Eª\88J¥\92L¬\93W¦\95X\9b\98b\93\9df\98\99`\9b\93c\9d\8fi\97\93h\98\9ae\96\95Y\96\93\\92\85Q\9e\85V\98\86b\9f\89h\98\92k\93\93l\86\8df\82\8bo\8d\88h\86\86f\7f\88f\87\84\}\93\\7f\94^}\95^|\96`y\90Px\92Nq\95Mx¡\\80ªW\83ªV\8d¦Z\86¨]~¯Sx§Q\82¤V~\9bY\7f\9dWv\9e[z¦Ut§S}«Uv³[i²\m¨[q¥Ws©[n®Wh²SfºYi±Qh¥_h©\k­at¯[\80«Vz¥ax¨a\7f\9eS\86\9bR\82\9dP\8c\98S\84\95a\7f\96T\89\99T\85¡L\8e«N\8c­T\90ªK\95®H\89¤O\89 Ox©Vs­Tt­Qm¹Ju¶<\82¸9\85­4\86¯1\90£/\90\9b/\94\948\8d\89?\97\83<\99\811\99\832\9a\8e/\9c\8c9£\929¦\8b7ª\857¨{(¦{\1e y\1e\9e\87&¢\891\9e\843\97\87>\99\8d@\8c\86O\98\89M\92\90O\90\96M\8c\93R\84\88S\8c\8aH\88\8aG\87~D\96~S\95|Q\94\8a^\9e\86Z\97\80W\99\88T\97\90b\90\8ah\92\8dh\96\8am\8c\86r\8a\8fu\8b\82t\85\86l{\92t}\91{x\95}z yn\9b\7fq\9cst\94|w\8dz{\8dxz\99iy\94g\87\9b_y\8da|\8dXp\95Zi\8baq\86Vh\87Zg\82^[\83WY\80PdxVayaY|[_\80Z[x`c\7fil\84dq\7fZf|^b\7fde\82Zi\8c`n\8d`x\8flp\90j@<CH>EE@PDANHKRJLWRNTQJN[FMLQ>\V?VDCJL5DS7JR=CILNTACR;UOA[X6eSEZ^Ig[FXJWdUIm]GpdJqaO|_L\83YK\86cO\80]L\83gU\8dfV\8deK\8ahO~sZylS~sRmg`u_]zch\81Z[y^Z}U`yWl{ek\80i^rij|gpwqp\83tp\7fpm\83|q~\80p||qymv\7foxxp\80vp\80\85qz\82w|py}sy\90j\84\8dx|\80rz\87iq\83l\88\8cr\89\86k\8bzmzlv\88eozgw\83k\89rg|}c\8a\86c\8d\92\\88\91V\80\8aZ\8d\8dW\84\8cX\92\91b\93\93j\8a\8dX\8d\95X\97\96\ \9cU\9d\9c[¡\98S©\9bM°\8eO¨\98O©\92U´\99M§\91\\9f\8dd\9d\93Y\9d\9eV\9d\8ae\97\88[£\97_\95\96Y\94\96X\99\90V\92\88Z\91\7fQ¡\86a\91\98h\8d\93m\91\8cf\86\94o\87\8fn\85\8d`\91\8cd\8e\8eT\87\94]\8f\91b~\93_}\99\\87\92S\83\96]o\91K|\9cJq\9bR\81¥R\80£b\88¬W\82¦\\88¬[}\9eP|\9c\\88£_y\97]p§^t\9dcz¨Zs°]nµPt§_h©[g¢bk¨fq²\q®So¸Zq­Qn«Yp§cjªSr³b{«ct©kwª`\83\9d[\7f\9aM\84 L\83\8f[~\9a]\7f\96^\86\93W\87¥U\8f­P\8d¡O\8eªL\90§O\82 Q\8a¥Qy«F\7f®Q}¯@~­Kz­Hz´@~¤1\83¦9\8f\9e6\94\9e9\96\8e+\97\8d8\98\93<\95\819\9b\851\92\840\9d\8e6 }3\99\85@ª},«\830£v)©l"\98z" \8c/\8f\83:\93yA\96\80C\9a\8aS\89\83Q\97\92E\95\97K\92\8dR\8c\85Y\90\83N\85\88M~\80J\8a\83Z\8asO\96\81]¢}b\95\87V\95\83^\90\82a\8b\83[\8e\7fh\9c\83^\9a\8dt\91\90x\8a\7fo\95|n\85\8dy|\83v\85\95}~\9a~r\9ert\8dxw\8f{w\86~}\88m{\92i\8d\92c\84\8fiy\93h~\8c^n\88[c\95`r\8f]c\83[\\83ZZ~`ZzTh\7f[f|Q]\80aX\80Zg}_g\80e^\82f\w]_xc`{\^\7fZfvdc\8alq\85bo\8bv=KN@KQ?=J9@TF<VMGOMIYMHVQLOWNMWG<\@<WB:IQ7CUGHJF?NEESFFS=QK=aSCcXJ]OIWLP_WJiVHeZRpfOxXR\84YL\7faP\85ZM\8aWQ\8cbS\91cZ\8dlW|bbzf[taWpi\xja\81``w^e~bb\81`ly\lue^}f_|jbvif{hu~mv|hryrj{vi\81yo\89\7fv\84v}\80x\81\80qv|k\83|p\86os\8ds\81\8bm\87\83t\80\84ru\90ir\8ed\80\8ah\80\88u\80vq\81mo\80wn|tsyl{zj\88|h\88\8b`\80\88`\7f\94S\85\95Y\82\91[\88\90\\8d\93h\8a\94d\90\90k\90\94g\92\98X\99\98U£\91V\9c\94S¦\95R¦\90K¬\98S±\98Q¬\8eT \89Z\9a\89T§\8bX¦\93\\9f\87T¢\89Q\9e\90U¢\95N\9d\96]\9d\99^\98\92V\91\87W\93\94W\94\96b\90\8fg\8c\91e\8c\8ef\94\8bc\97\95T\94\95U\88\96a\8b\97\\84\95\\8a\90Q\82\9cV\88\96T\7f\9fJv\97Nt\97Jx\9cQ\80¢S{©^x±X\84¬T\84¨T{\9eI\7f\9cK\80\9f^~ Zt\9fZo\99by fz®Wo¯Uv¤al¢bv¨eo¬jt«li¬caµah¶Qr®Tp²Yf§cl§[i¦go it\9fX}¡W~\97R\80\95W\80\96]\88\97X\84\9bU\7f\9d]\86\9bQ\8b¢T\83\99N\7f\9bS\8b\9fS\85§M\83°P\83©G\84®K|°=p¥@r«C~¦=\82¡1\84\9f5\89¡6\84¢:\86\98.\97\973\97\92;\92\84:\99\81<\9c{A\95\828\93\85:\99\7f@ w2¢z1ªw& l!\9dr*\94}*\91s)\8cz5\97\7f8\97\84H\93\8dE\8a\8cK\92\88P\91\8bW\96\8dN\90\8aV\82|\\7fw[|tb\87y[\8btT\97u[\98w^\91\83V\8c}[\8c\7fX\93\80a\98\7f^\9d\89f\93\89o\8c\8ct\96\80s\94\86v\85~{{\8f}|\96~{\8doz\87py{y\80~}~|w\84\82u\8f\81x\8d\8dk|\92ls\92jv\89bm\91gn\8den\8bZg\8dTa\87Xa|[j\7fRdvX[vXesWdsVY|c]{abr^es_^t^[ric\7fm`{oq~ls\8bp@EJDJMDKP>9W:JRJIVIJUMANLLOWIQ\JLcEGKN5HS2OFCMTETIINJISOC\G7WX?aZIVUHaDRiKFnSQjSMn[R{cWpYSwdT\88[O\8d`P\8dZW\86_T\8ea]}rZ\80tawj]qg]zj]ol[|b[yrb\7f\_\7fat\82eazbe}hd|eguet}w{\80xt\8ath\8arf\84|o\80\82u\86r|\87u\81\82\81w|}\82~y\92\7f~\8dj~\93{y\91t|\92xt\86kl\99mo\8bes\8eks\80puvv\7frqy\7frym\81~x{\84o\83\8fez\8dc\82\8b[z\92Y~\93a\82\8e[\87\93c\88\8ek\8d\96q\95\94a\96\8cf\93\8d`£\96c¢\9b\®\92X­\91Y±\98b°\93Y¯\8eP¦\86X\9a\88I¦\82Y«\8dU©\90M«\88H«\88Oª\91G\9f\8eU¡\9f^\98\9cS\91\8bU\93\98V\9a\92Y\97\99a\95\92f\8d\88a\9b\91U\90\8bP\8f\91\\93\90]\85 T\88\91N\91\97V\88\8aP\8a\8eX|\93H\81\99Fu\97U\7f\9dSo§Uw R|¤Vy Ux\9fSx O{\9dUu¥Xy bx«cl¥cp¥hq¡ht¥Vw¤^r©fr©le§sk£j^¡[m­Xj¯^q©bg·\o¤Wr©dl¡hn¨cqªarª\~\9a_\82\97Z\82\96c~ S\82¦Zy\9aS\86¦I\81¢G\85\98N\84\96N\81\9bD\8fªC\8c£L}¥A}ª<w¤B~¥9x 4u\9c0\7f\9c-\84\952\86\984x\99<\80\954\87\994\94\956\96\927\98\858 \81>\9e\83=\92\86?\91\816¡\830¡~+\9bv$¡j(¤{'\94s%\90p.\87x2\8dvD\9c}E\98zG\89\82?\94\84P\92\84M\87\88V\88}_\82xR\85yT\87}T\81vc\8dl^\8eiP\99{Q\97tZ\94\82b\84qe\8e{e\8f\81Y\97\89e\8c\81d\95\84q\97xt\92wl\8bz|\8b\84~\82\89w~\8cu\85\80p~\81v\84|z\8a\81y\8b\83r\80\83q\89\89q\7f\83gk\8din\8fjh\87ts\95ii\8bhf\8b\d~[q~_hsWeuQa\7f\cr]es^gpWVxdYn\euqaujXnoUox`usivuu\82mCDV7KQBGX>=YI9ZDENAFKOAOIGDNBDZHGYEASIFOO;UM8MNBLE;ZHAaA8VI@^IM\QHfSFaKMdPKiMWkXMj\ToSNmYU~\W\82gU}i_\82aW|e`\82c_\82sf\80rf\86ogzn_ty[lu[mr`oqcnih|enwfcwdf\80_g\84hxykp}xv{|s\8a{l\8dpk\83vr\86|s\82\7fw\7fxz{\81yu\85\89{\82\8c\7fw\87ry\90zx\93r{\8ftv\90ol\92qk\8bok\82no\86jt\7fpl\83uty\7fx\80w\86x}\84z\80\8dw\7f\89g\81\86g\85\7fl\89\87a\86\85l\85\89i\8c\82q\8f\8bg\92\91^\93\90f\9a\97q\9f\9ck£\9c]¤\95_¡\9ad©\90`¥\8bX¡\87M\9e\88D\9e\8aJ¡\88H¬\84O¯\89D«\87E¯\86Eª\94J¢\99H¡\98P\99\9cH\96\98M\8c\93T\92\9aY\90\90V\93\8ad\8c\90U\92\98Q\98\9cK\95\95Q\93\90O\8f\99R\90\9bL\8e\91V\85\8eK\89\8eK\81\8dI\82\9bMy\98Tw Pt¢Yr\9dSp\97Pt\97X\82\99P~¤Vy§_o°\t°mr±nr°mk¥po\9fjt¨do­bk¥^g ad©kc¨`\¥`h¬gh±fn®cm¬cj©dm¨h|£jy¥a\80ªlw«hu°e\80¤b}\9d_| [\80\9fP\80¤Kx\9fNw\99Fz\98G\85\9bL\81\9fA\89«G\83«={\9d:x¡9y¤<}\9a2\7f\9b/\80\997z\9b4y\9d=t\969s\8e4~\891|\957\81\928\88\8e8\99\8c<\99\8aC\95\84A\9b~<\9a\838\95\81:\9c\83/\97s5¡p)\99s$\99v.\98z;\91t@\96{C\98zE\93{I\8f\81C\94yC\8d\7fM\90\82Y\81\81\z\81_|}[\86x]\84r]\8awU\91mV\93oV\94v^\95w]\8atd\8e}]\92\7fa\8c~d\8b\7fj\94xu\97vr\93xx\8c}o\8d\85|\8b\84x\88\83}\85\86|\8a\80~\88\80|\8c\8cz\80\8er|\92|\83\8by{\8dqr\81mj\7fkk\8auj\84le\8blc\8bfl\80amtdlu[es^k|]i\80ek|[`\7f^`q``vgZkranuYmsgo|djymqng|o?BV6DWDIW?FYO>UHFRCAQD>UQ>DMB>PCDUKJ[KKLREWGFJCKLTFWJGTHNYAKRPF]^Qd]UaXMZY[bUZmc]hfRvdVyY]uWV\85bU\82Z\v\dv]eu_^wfn}hs}ngva_{gbuudyjmzqnvikycg~al}nrwgrzilurx}~xuxp~~i\7furztdw|n~\87s\84\83o\7f\8dt|\8c\8d\80{\97\80\81\8byq\9dt\81\93p\85\97nr\8enz\99`y\8bnu\89cq\88k{\86eo\81kqv{}os\83{y}yv\8azy~j\7f\8cd{\8f^y\81a}\82mw\86i\90\83c\8d\8bi\8f\95h\86\91o\9a\9as\99\9ds\9f\96n¡\87d¡\88c ~h¤\8aS®\89[¦\83S\98\83C¦\87Q´\89L£\82P±\8cF\9d\84L¨\89I\9d\92T\9a\8cX\99\97K\96\8aM\8f\91\\98\93a\85\95_\83\91Z\86\8bS\86\91L\87\8bR\91\90Y\92\97\\8f\95]\88\8fQ\8b\90X\85\93X\91\92B\84\8bR\80\92G|\8eCv\97It\96Hp ]x\9eRp\9e`t¤Lx¥Q\7f\9dRp©et£lt¯ht¬kp\9crv\9fcz±cp¬Xa®W`¬\]¦qa«`d\9ejb°ep¨ti¬ok£hpª`h¤lt¡ip\9fft¦cg¥d{«k}§hs\98Zy\98O\82¤Z}\9cU\7f\97Uw\91P}\98F{\9cK\86ªE\85¥K\89ªB}¤K\81¡=x¤Fx\9cGy\95;\87\987\84¡0z\9c?{ ?r\862\87\810\83\847\84\86B\96\93@\9c\89>\97\93<\8c\8dF\97|=\98\893\9cx0 \81+§v$¨t\1c£q-\90q%\9eu/\92q;\9dy?\92{6\9bx<\8c{D\8b~;\8b\85C\84\82Oyr[\81w]\88rd\85rT\8dyS\8fnU\87rR\94qY\8e{a\8bzY\8c\7f]\94\83l\99vj\92~g\8e{n\89ro\8f|u\8est\90\85h\91|n\90\8b}\8e\7f\84\96z\82\88\82\80\8by|\87\86~\8f\8a}\8c\89{\87\88{\83~q}~l{yq{\86vi\82mf\8cio\8cok\8bih}[sx`dyghveqq`p{W_n^c\80W_xn[epZhpbsklo{c|\82syri\83p=MY<MR@RMLHNV>IQ>LE4VI;QQ=DY?H`GS^GP[FOWIKMLAJHCTHE]VRXUOXFIYKTY[NVe\\cXYZbb_]`h`ie]m]U\80ZV\84UV\86\T\82b_yhhqjjw\ekcbn^nuemtdhuj`vlermm{gu{nmqoprjvthpyqisjmvsn}x}wxxm\80rv{n|~ep}`t\89l{\8cw}\8f}q\81\8fv{\92xw\9a\82y \85{¡y\84\93sz\94b~\95cz\8fdr\7fay{fr\85c|\82k{ws|uz\83p{\7fvwytz|x\89\8fl}\90az\84f\81}`z\80i\8b\83n\8f\8ds\8e\8fq\87\97k\8b\93s\94\90l\9b\89o\9d\8ae |h¥{a¢\7fV©zZ\9dxK \87I­\8dD¯\8fO£\92S§\8aW¤\8dM\9a\80H\9a\88P\9f\83X\8e\87S\8d\87T\87\92S\8c\93]\8f\94f\84\87]\8e\90\\89\96V\82\8bS\89\89X\88\88T\8e\87V\97\83V\94\8cd\89\8dT\8a\94J\7f\8bM|\89C|\88L}\92G~\9bGv\97Xs\9f_x\95Ws\96\{¢O~\9fUx\9e`k¡ek\9bij¢hg iq¦a~¨Ws®Th«]i§fa´g_¦rn§nv£un¦sx\9brr¡or§ga§ci\99Zh\96`o\9aff£fu\9dg\7f¥_\81¥Ru\98N~\98Xy\93Yy\95T\81\8fPx\92Ax¢=\81¡C\87¨?\80©N\83ªL|\9cD\7f\9fH\80\91B\82\91H\82\95I\7f\9c8}\939w\98<\84\8dF\80\82?\88\835\92\84;\99\8b?\91\8e>\95\8a<\8d\8b;\92\885¢~9¨q5\9ep(\9fm$\9eo\e\9cp&\97l&\9en)\9dl8\94t7\90{4\8cu8\92y6\98q6\95zD\88sQ|oZ\84nX\8awb\90s[\86wY\83wa\87z^\94qS\92xW\97{f\8a\7fe\92}n\98wg\91tj\8e\81u\87sp\8drr\9avl\98\84j\97\8ek\92\8d}\9a\89\83\98\7f}\87~z\84sq\84zy\92\87x\8e\88~\81\88\80yz\7fzxq~\84x\83\84p}\85jq~mw\8fry\8egq\90dn\84_nxbjtehmXdpV^pY`~WiwYcnljlt`zpd\80wr}yo\81wv\87k<MdBPUBKURNWZIH[CJP>OK<VWBSXEQaCVUGRTL\aKPKTSOQHVRGdYTbONVSF`PQ]PT\`R[_`^e`lU\fgUqfXnfSza\\84W\\86^Xx^Z|[ey^a}Wpz[jxbqv`wvkqu]or]tubtu_v|`myey}pluczvij|vvwhvwwtrnpx\80oo\81ou\86`p\7fiu\87l{\89t}\87\88m\88\82z\81\8eu}\92\89\85\99x\82\9dz\83\90s\86\98c\82\93m\87\7fn\85\81`~yi{\84mu{u|\84q~s~sxx}o\88\83m\8c\82t\80\85t\84\91r}\83t\87\89dx\84m\8b\82n\8b\8e{\81\88h\89\8cp\84\95m\92\8eb\93\8bm\90\87p\9e}k©qf\9bx]­tR¡xK\9a\83Gª\83N¬\89O\9f\8fS¨\82V\99\80H\8e~H\95\81K\99zU\95}`\90\87e\8f\8b`\84\88i\82\8b^\8c\89R\81\84S\84\95c\8f\89X\8a\88U\8b\82W\83\83]\87\95[\95\8e\\95\92V\8a\9fL\87\8aH\88\82@x\92M\7f\90@|\8cUs\97Un\98Ov\8fYo\94Vt\92Mt\93Px\97To\91kb\9ane\9ake [x\9ee}«[q§Tiªdp®ja¸[h²fo§bw«mr­hn£fq rk\97pb\9bg^\8ffe\89n]\9cig\9b`g\9e`|\9dey\94]y\9aOt\9dQ{\8aZt\8aTy\96O\87\90Kz¢A\89\9a:\89\9fF\8b\9fE\7f\9fJy«G\81¦Q\84\91I\87\8e=\83\8e8y\98?v\99>m\8e?|\83B|\88B\83\84?\8a\838\94\804\8b\87A\8e\93=\89\880\9d~2\9cu1§~/¢z,£o"¦k\e\9co"©m. r5\97o0\92m5\98z-\9ay<\99v.\90~F\8e}L\8ayL~h_\82x\\82xX\83vW\91q]\8dvV\8fyf\90\84`\89zV\8bz\\92wa\91sg\98vs\95xf\8f\80r\8b\7ft\8flk\97yk\93\87n\9e\88v\95\8a\81\90~v\98x}\99~n\87xu\8f\81m\92\87q\89\7fv|~~\81\84}\8dxw\83zv\8e\80n\81vu\83\82n\83\88bx\8fet\7fgs\87bm}gvpnjqWry`iwQcvTgu]ithr|ae\85nkzo{\85q\80\88||\84p=EiDBhQIiRSXVUUYONPM\WHYSLR\BYcJX[Ja]Mh]S^\W\ONLTIKdJNkZLeXS^]RaUYg_Ueg\scNqYNvTJw\TucZp\en[m|XdnS^p[^pXly_lrWrw_mrbxj`yrSypWsqWp\80`s{ay\87bw\8ahw{ht{h{yprtt|mqtxrkurplspr}gl|pv||{~~t\89\83o\7f\86p\84\8f{\80\9d~\88 q\89¥m\8e\99i\81\8di\82\86p\7f\85l\88\81n\83\83mz~ut\81zm\82uq\82wsw\82{u\88\82p\8c\88o\87\8bz\8b\82z\84\83r\80}j\83\85g\81zg\83\80q|\85h\86\90p\87\97e\88\91i\87\81d\90\7fn\94}h\9bt]\9c|T¢sS¥~L\9b\80Q\97\81P\9e\8bY£\8dR \8bI\93\86I\8f~M\8d\86O\94}Q\97\89Y\92\8be\89\90^\8d\84c\84\8c[\8a\8dW\92\8b^\88\86_\80\80V\89\84]\87\84[\89\90^\8a\99f\8d\9a`\87\9da\8f\98X\91\99L\83\8bMy\8aP|\91G{\96Ow\96Qv\9dSr\93Vl\91Lt\8fQu\90Ml\8aWp\96`e\96jk\9bhe£^d¡ct¬Yo¨Xo¯dmµhj«^t®eu°[|±bs¨lu«ao¢cs\93be\93n_\8bt]\8bnj\99ei\98^g\96ei\95\r\9day\97Tx\94Y|\8fZ{\97P~\96O\85\96N\8b\91N\86\96K\87\9eB\83\9bB\81¡D\81¦Hx¢L\80\92?z\8d:x\8e:v\8c<y\87;t\852|\86/\82\8e9~\91>\84\8c?\88\8bB\8b\85;\99\8b<\95\8a5\93\8a/¡|4¢y5«{.¯\7f)ªs\1f§k'«s4¤u/\9dg5\96i-\96u/\98u9\9d\816\8eyJ\8a}P\8dzO\86qW\8erZ\85t]\91ma\8cn\\85{[\86\7f^\87z_\87}d\82{h\8cv`\8d\80c\93\81p\8cuc\8eqg\8ctn\8bvm\8exp\94\7f{\8fyx\99\82|£\81\82\9bv}\92wt\94wm\91wj\87\82m\88}n\83}t\81\80y\8f\7fs\89\81r\8azs\90\83t\86{q\83\8bhz\8e\\81\8cY~}fzth}xgv~iov]k~^p{\q\81]r}Zz\88gr\8acv\81l\7f\81s\82\8es\84\8dz:EqMDlGQaWVV`VUZJ[[O`PQXMD_YM_SQ[cWc^NY]UU]QX\S\VRXb\P[X]g\XcfUeYTc_SfmdvicifS{\Y\84\Nti`pelzf\\89\`\80YfmV\uVdl[qkbun\}o^|rX{kUpv]s|cq\84aoub|~c}\80pk~pj|mrskktqompmjopvu|k\80zh\7fvv\81|yx\80rz{u\83\88p\90\89q\84\9cp\8a\9e~\8c\9f{\8f\94o\84\95m\93\8dj\88\91m\82\7fdy\81ixwtr~st\88yi\80}hwvpq\85wv\91{x\87\81|\8e\92v\8b\8ap\80{~v\8bi\82\89r}\84h~\7fp\80\8dr\80\84s\87\8bv|\82k\84\85q\93~o\8ath\96zf\95s[\98u[\95y\\96\83V\91\81\\98\7fc\89\83Y\93\81E\93~D\8cuO\84|Q\8a\85M\81\81c\8b\8bk\82}Y\92\81a\84\8f]\8d\8d]\80\8c`\88\89]\90\84^\8d\86P\86\85a\82\86V\8e\8eV\96\93b\8d\8eQ\8e\8dV\90\89O\87\85Hx\8eCy\98@{\99Ev\9dL{\90Lz\91Lx\87O\80\8dNw\8cOu\92Q_\93dh\9d^d\9ajf¡Yx©Wr°[{«b~©_u±Zo£bs°R}¥\n¤\{\9ddp¡m{\9chk\9bkm\93lh\8clg\86bn\8fhf\97bb\92Sm\89Os\86Uv\93Ip\8cJ\7f\8e\t\96U\7f\8eP\85\8cN\8c\90R\8f\8fC\8e\9cM\88\96K\83 @u\9dE\7f\94N~\8dJx\839|\88Aw\8fBu\85:}{/}\87=\8a\82=\8b\85@\90\86J\85~?\8c\828\91{C\93y2\9fv8¤j0 o.®p7ªl ´w\1c¥d\1e®g&­`(\9fl3\93g4\9ft9\9bt1\9a\857\9bzJ\90tM\8fyR\94nN\8bnV\81zW\89~`\83pS\8du]\8b{W\96\80R\93\82\\8bud\95yX\89ri\90~c\85xd\83on\8exg\8bml\94so\9f\88{\94\86s\8d\8cq\9az{¢{o\92tw¤tj\97tv\8bqp\81ss\83sp\82ux\81qq\83rt\90\82l\86|m\8cul~\82_u\90g}\90c|\87m|\7fg\83|govirwal\85jx\8aanzfuzdu\8b`s\8b^{}b}\8bm|\87r\8e\86\7f<QaGG^VGf[W_dMV\K]WT_PWbZRaRRa[[_]S\\STPJ]XHaZObZRT[`Va`T[hcnoYohXqvTsv]vkfmkczsf\81kWtk[vcfzeb\89^cx^^w[gmZpj\soW\7fvU|qR~iZ}mW}qex{ewv[osbmupumuxtumrslxpjkzqlrlhwtk\86xr\8bsh\89wp~|w\7f~y\84\8cy\81\8dz\84\8do\8f\98m\92\90|\85\99p\88\9fs\8b\96p\8f\8cs\8e\8bs\85~h{|gz}tx~w~|mv\81vxx|jl}hu\8as}\8b\85t\8f\8cr\7f\83o{\83x~\85pv\84w}}ow\81k\80\82r\89\88u\81\81w~\7fs\82|i\86xh\8ezh\97}d\92\85c\9c}]\8e\7fc\90\82_\93\82W\84y^\8arT\85tK\87jUypRvuVx|P~\84Uy\89c}\81_\85~Z\84\85b\7f\8cb\88\8e^\89\83U\92\8cL\8e\88R\8d\83[\7f\8a^\8d\91b\8e\95U\89\93Z\8f\88X\8f\8aR\88\84J\7f\8bJy\90Bs\93C}\9f@\84\8d?y\8bN}\8aM}\86Ir\86Lm\91R^\8bT`\95]k\9dgv£c{¬b\7f°Ry¦R{¬az¦^t¬[q­^z«Wx\9d[z\96fy\9f`v\9d^r\9bmt\9ckj\94pp\90gl\9cdl\96bj\88Xm\84Rk\8eVu\89Ky\91Wp\93S\82\90U\82\82T\8b\83V\86\8dS\82\9cG\88\9dI|\9b=t\9c;\80\9a=~\89Fu\88As\88Hw\7fA}\817\7fy/\80z4\88\86C\8f\80E\87tG\8brE\91qD\93\81A\9bp<\93k?\92d<\9ai-¢_/¤f.²h#±j#±j\1e±a\1c¥\(¡b-\97c/\98n3\96rC\96xD\98\7fH\8dy@\92xL\95lL\90pI\8b\80O\83zO\88xY\90vM\97nQ\9dwS\91}V\8etR\95m_\96t\\85yf\8fqc\89yl\96wv\92qq\94|w\9c\86q\93\8bq\92\8bt\8f\84p\97|r\96}t¤\7fu\97s\7f\90py\8ezr\8csm\80ot\83sj\84rt\8c}o\8bxb\81}\\86\91g\81\93dy\8ef|\80f~xb\82\7f[~\86`q\84gq\8bn~\87mw\86ur\80lr}t{\83j}\86pw\85f{\8bv\8e\86zJEnJQZOR_]YgPY_SOeY^eU]i_[q[YqPSmZUg^]kNQiYOgSQkRbfQd_cekZicnhgop^xy]|nYwmcyoe{j[wk^\82idxjg\82_`\8a[r\84Wnv_pqYypetgWymY\7fqU\84j[yy\v{`\86tgrtbro_m~mzuxgwsrwsps\82pw{cfrfg\7for\8aoq\8c{r\81ym{xn\88{t{\8d|\89\93t\89\93o\88\9cs\86\9dr\8b\97y\82\95y\7f\87p\84\8fu\85\84e\89zj\86}h}{sqvnovryy|qy\87qo}l|\7fqw\83\87x\93\82{\84\84\80{\8dr\84\8ew\81\82uw\85{x\8c~\84\8fo\81\86sz\8bsvzpy\86n}wq\89\81`\90\80d\95~^ \7fX\89wg\83v_\8a~^\83tP}uZ\84nO{oSyk]|~`\80\83S{zV{w]v|U~\80\w\87\\81\83ex\8cU\82\7f`\85\90_\8a\89]}\8bU\87\97W\88\94R\88\94N\85\8aZ\93\90I\8a\91R\80\87I\83\89K\85\98K\85\9aI\87 D\85\8fFq\86J\81\8eN\83\87>\83\91Mt\8bMk\86Oj\95Te\97Qy\9cVu«Z\82¬Q\83\9d]}¦Zz¢ay¢Zn£\u\9c\v\9agy\8fap\95ct¢Z{\9af{\9fov\97iq\8fbp\96\v\92gx\94aw\8bZw\8a^p\8cMu\8dIq\84Rp\81St\83V\7f\83[z\8dT\85\97Jz\98D|\9c;q\9d2n\906u\83>u\81Ex\85O~\84I\82\838\89\844\81x7\8f{B\8epI\94oF\8fwG\87jJ\8bw>\8c{>\96r6\99l9¦o(\9fl4®e6­r/±a$¸d\1e½g\1d²m\1e¨Y$¦[4\96],¢iA\97{B\92xD\92wF\91sB\95pG\9bwS\90}M\90yT\86\80L\94~J\99\81R\8auM\8euT\8diV\8ekX\88s^\8cl_\87ua\96tf\89}j\95xk\90\80u\9b\86|\8e\7fp\99\89q\9f\84p\9d\88q\9d~m£sx\98\82o¢zt\96nl\99tg\8ayf\87\7fe\8axj\88\80f\8ezj\93\85h\80\8a\\85\8ad\89\8e`\8cz^|\86b\89|c\81\82jw\8cc}\86e\81\8dfv\8bjs\8bpu\86mv\89r\81\87l~\8fa\80\89j\8d\81zYH`XJgSVpWUjQ`bV[k_il^fuYpoZis_gvS[lRcbY]iT^rUZiXWqVen^rn`neotgpxaoz_~q`}gYzcV}hU}fa}d^\86_b\83Xf\83^s~SvzXqtasob|ubzq]zsVxo\{rY\82we\82lZ{l`yy`{zio{mj}wmsznv\82mq\89iq\80iz\8cir\86rz\88up\86ur\87\82t\82\83t\81\90~\83\8c|\84\88r\87\95u\8f\92w\85\9c}}\89y}\86~z~s\87\85r\84\8aj\84\80`\84\80gu\7fpjyinpysv\80rq{kz\82ts\8fyw\8f\88|\8e\88{\84\8dv\84\82~}\88~\83\8a\87y\8a\80p\8e\85x\89x{\8bxv}z\81z~z\82p\82zk~\82^\91|f\93x^\8cx^\85ka\86ia\7fsS\83wWxpQttPvs]\81r^zx^}vSsuWxo_vt]wzh{\88as\81_y\87[\82\90X\81\8dW\81\88J\89\94L\8c\8dY\84\8dT\8b\89I\88\8eF\83\8eD\86\8d?\8e\97:\87\91F\8c\91<\84\96?}\89Mz\8dI\7f\89C\81\8dA\86\8eP}\88Ot\83Mf\8bNl\8fMr\98Zq\9fZv¡Yy\9dVy\9acs\9bhp§[u\99W}\94c\80\8f[x\93az\9aZ{\95d~\98_s\96il\93at\92^}\8a`z\8bgz\95k|\8dis\82_{\80Wu\7fT\7f\84Pw|Ms\82Z|\8dRw\95Nr\9cIy\98Ko\8dJu\939s\85Au\85<svFwxE\87\84L\8a\80C\8b\80B\91\7f;\8ds:\90oA\85mD\89lG\8dtJ\8emF\87jF\90r5¡n/¤h.¢d1§q,¬o"´h ¸e\1a¸l$±b#ªa%¦W\1f\9c\*\9ak=\9al?\99q:\8f|B\97\7fL\94{D¡tB\9cvO\9a{T\95\83N\99\89R\91\84K\98rQ\8fq[\9arV\94f^\8bhf\8coi\97lb\97th\97}p\90\81n\8c\87p\8e\88}\96\84{\9f\82|\98\80}\99\86r£\88~§x{¢xn§\7fg\99~i\9bwh\9azf\98|g\8cuf\8a\7f\\88\82h\94\86b\8d\8e]\8b\84d\8b\7fm\8b\80d\82\83_\86\81]\8e\87d\89\8bn\8a\88tz\8cmx\84_z\88bz\82b\7f\81j\84\87b\8b\8fc\8f\88f\91\89pZKrV[hW_j`_v`flXejamrcd}Xp\7fYlwXWx]_i]XiTe`S_eU]l_^raoi^urgmdowbxxhzx_utoxpb\7fbW\83e^~uo\8ano\8bei\8cWf~Zq}ZqqSyoT\7fjT}t[\80ya\82nh|r^pof}wb\87k]{ij}zezrruvqpt}v\7f\84gp\85w~\8cer\88jp\88mo\89vm\91nj\94~o\8f}u\8d{k\8c\8dw\87\8am\7f\89~\86\8ct\7f\95p\8f\91t\86\8au\86\91{\86\89j\83\85u\8d}k\81\89s\85\81fozht\82sozuwryuz\81zy\8buv\90\81y\93\85~\8d\8d\80~\91xz\8a\81{}\7fx\88\82u\8c~q\83\80\81|po~zv}mx~p\80\85ruyo{uX\86w[\89i[\8fyX\86m]vkZvzR~qP}xTpwRvx\t{Y~\81]t}a|zUsqPmnYp\81Yt\7fZt\8f`\80\8f]{\91T\89\83Q\85\91P\80\8aE\82\8bU|\8b[z\90H\7f\81N\85\8fF\83~G\82\85<\91\93:\8b\95:z\888\82\87Ev\8fH\7f\87Cz\8eG\80\92E\7f\8cHt\84Hk\87Tm\8aXr\98Nu\90\p\8f_v¡c|¡Zu¡Sr¢]z\9eYx¤]\82¡]v\97Uw\9c\\80\90`\84\89`v\92gu\8bhu\8abt\8cgr\91a\82\91b\83\85n\83{_\83vd\83x]~\83b\80\8bWs\8a]\7f\93O|\91Ty\97Lo\90Gu\98Dt\959v\89D~y9q}IzuF\85wI\8eyP\82\85>\92\82K\94v:\95x:\94vA\88oJ\85kE\8fyB\97v;\9bf6\9em*¢h- k+£v,¥f&·g*°n"µi\1f²h#¥`*\9fd%¬\+¢\;\9dg<\9at:\8dr;\8eqI\90oD\91tA\9f}F\9a\83F\91\87I\8bzI\8axK\98sY\91pW\98gg\9es`\93tq\93wv\8brt\8bnf\9b\7fl\9fwi\9b\83z\9c{q\9e|u¢\83|¢\81m¢\87u¢\85o¢{~²~s°tl£|j\9azh\99\82p\9c\7fe\9azj\8f\82]\93x[\9e|`\93\7f^\94\8c^\88\81j\89uh\85\81m\90~]\92\81h\92\88i\87\86l\8b\84k\86\86n\87\8cf\80|j\80\89l\8d\8c`\8c\8bk\96\82h\8b\8dwTV~Q]wQ^uZfzekwafthd|_n\84fcwdfoeUv^TtU^kVacQjdOhgbhrgmmloq_ske|`n|fjsqsknremtii\82rs\83xu~hi\85dl\87_i\87Yn\80V|yX|pSznSzt`~xg\7frhpwcovdvz[\81n]\84pk{up\7fvqqz|jv\80p~\84my\88r\84\8en}\8flk\93gj\85ru\91lr\91uu\8b}j\8e\81s\88\89o\82\88s\81\8ex|\8cj\85\8di\8d\8bq\90\8cw\86\8al\88\8bi\85\82n\82\7fk\85\87p\83\80oz\7fvp\7f~vyuuuwywz|\83\85v\87\83\7f\7f\92\81}\87~\83w\84\8bpx\84vx\80x\87|y\85\7f}}xx\80uv\82ow\8aor\8fzz\82}|ukxp`um\\82kd}le\82~Zs|NqoOvoFs}M~nI|pPzsZr~Vrw]vmWwpRnyXw\83Qy\82Pw\8cW\80\89W\83\83T\80\87Lr\89Eu\8cJq\90Mm\92Rx\8aPv\81Rz|R\86\80K\85\92E\8b\939y\98<x\8b={\92>y\8aA\81\93Dx\8cGs\86Fx\91Cm\89Br\8cKm\8dKr\96Px\89Uy\8a[w\9cdt\9f^u¡[y\9bT}¢St¢Ov\95R{\99Sy\8d[\80\8ba\81\94c\83\90o~\8cg\82\92p{\8dft\89j}\90`\81\87a\88}h~nc\87|i\84\85b}\87^q\87Y}\8fN\80\90Rx\88Sr\8aPz\92Q|\8dC~\7fE\81u?{x>y\81Hy~T\85\83T\82\81S\82\84I\8d\83?\89r@\84w?\8d{J\93rI\8ezB\98y@\99k:\94x7\94w&\9dl*¨l\1e¢s+¨i*¬e#¯`!®^#¯_1¤^9ªj2\9fg8¢`A\97d<\9coA\92vI\99oF\94|?\97~H\98\82R\91\86M\94\7fR\90tZ\91p\\9ar]\9bkh\9dni\9dtv\91mt\8fli\8eso\97qh\9dyq\9cuv\9cxr\97~|¢\7fx¦\83|\9d\8bp©yq«xo¥qf­ue£pi¨qq¡tn\9a\82r\9d\84f¡xb£rd\9bzf¡\86b\9c\84[\93\85_\88{i\91tc\8cqf\8b|h\8e\85e\92\81c\90\88o\8d{p\85~l~zl\84\81c\91\82p\92\80n\88|q\8c\88rQI\81Y[\7f[a}Zc\89Zl~Zs\80`ez`d\81^l\7f\coZ^yi[nbfifcsQdhLkfSer_htkrvfylcwml|tqxlxko\80xf|xg\7fss\84\80}\87m|\81qp\81cu|aysRuxU\84qT\80nZxqV\7fp[|}ZtoglsXt\80a{wh\86pw\7ftm~lsttrry~tm~jj\8euu\92t|\8fwt\86kx\83~g\88tj\8fwq\92\7fi\89{g\87\83iy~d{\85t\84\8ar\8f\8bk\8a\84d\8b\81m\88\8dq\8d\80j\8b\87m\8f\85c\88}q\81{u|}\7ft\82\7f\80w\85w\80~\83}\81r\85\7f{\84\8b}\82\8d\85\81\80{\85\81}\85z}\8foz\8f{p\90y~\88ow\83zwyoxst\88w|x\83w\83~ttm~v^|oc\88n^tsZtpX}~]ryLrrRwwHmvJ~mMutVj}UopUy|]wkYhxYz~Tt\80Wv\80Ow\7fIz\82Jz~Tv}Dp\8aDo\84Ro\91\l\89Lt\8bG}\88Ez{F\8b\80<\84\92@\87\94A\82\8f7r\8cCx\8b@w\88Nw\97Fp\87Pk\93Is\8dIr\8eQv\91Ps\91Pm\90Sq\83\j\8e`l\8eUq\9dPv\9fU|\9eJu¢O\82\94J\88\95O\7f\8a`~\88c{\8fe\8b\9bi|\98r\84\8diz\8f_q\85gy\88[x\83i|pf\8api\8cvc\86\83l~\83Xt\86Sz\8f`\82\83\|\90Yq\8eTv\8cY\84\8fP\83\82G\86w=\88w@\85\7fH\81yL\83\82L{\85U~\90O\8byP\8dyN\84vJ\90\84T\8bwO\9c\7fD\9fs=\92n-\9fz/\9ao*\97j,ªt(\9fi-¬f'¦k.¡j)°]1«c9ªn:°l6\9f^;£[H\9bjE\97o;\99eK\93tK\93nU¡zG \7fH¢\7fN\9d\82L\8esM\9br[\91pe\94wo\95mg\98mr\9aqq\9esj\99{w\9but\95vo£v\7f\9f}z§\86\83 \7f\81\9e\8br¢\82yª\83p¤}w°tc¦\80m¨qj§mq¡yk¡\8czª}q |k§wc¦\80k\9e\82f\95\82g\94ye\8a|i\8cwh\8bre\96yf\8f\81_\8f\89k\8e\88k\91xg\85}r\8e\80s\8c~n\90wm\8c\85h\9a\85x\8a\7fo\X}eO\84ja\87jh\86lg~do\84ao\80\g\83]]\82[Z}eaxdbsljwheqbmhXigZugZptfk|ksrtwuu~qrxu{ysy\7fn\88zl\88\83s\83{y~x~tu\7f\80cwzawuV}pS\84nS\89zX\84x\{w_ux[poaup[v}d}|duws~ss\7fkltcpgkzkk\86qj\8bpv\83p}\8ax~\81|w\85xx\8epj\92jd\97va\8c|]\8c{f\80\84^~\86b\8b\81b\8f~j\94\87d\8e\86h\93\82l\95\82h\8b\8am\89\83c\88~k{\7fnx||x\81\82\83\81\8a\85\83\82{\8c}\85\83|\80\84y\7f}\87\89\86|\85\8dzv\90vy\8fsv\8dto\90oq\92wq\88x|\85vq}yt\86uy{\7fzy\84{v\81qk\87s\|mYnl^mq_wvasxUl|TsyHpqOupHojKsrVyy^oy\ezcio]sq^xtPxvRs}Gy{Mw{Pr\84Vg\80J^\89Wf\8aUo\93Yk\8cLn\86D\7f~I\8c\87M\87\88B\82\838}\8d>y\8dCz\95Iu\97Rn\94Mf\88Nl\8cSo\88Mj\84Ot\80Mu|Iw~Pm\84Pb\8fWh\89Sp\8eKs\95Tt¢Yt\9eLv\99S\84\95T}\90b~\91b\8b\96q\87\99n\88\96c~\8dg}\82`s\80]ruX\7fwa\8axf\88n]\84kh\82sf\80xj\84\8a\}\8d^w\87_u\82]|\8dd\80\86e\85\86\\8b}S\8atE\8bnN\89wS\85\81N}\82Tz\8bJ\86\8aM\8f\82S\87\81O\8a}V\94\84O\95\82S\9bzE p6\96r0\9du)\96t0\91o4\9ck)¥r%¦p"¨l$\9ep0\9en.¨h0£fB¯mB§lB£aE\9ea@\9d_A\9fbB\9biP\9coZ\9cmT\9boM¢zD¥\82C\9cxQ\91w^\96|i\9btl\8fwr\98pn\9dst\99\7fj\9d~n\94}s\9c~}\95\89\82\9a\88\81\98\8f\8b¥\8a\83¢\8ey¡\84}£\8fy§\89m¢\83n§{g¨\7fg¥xo¨\87n¨\84v¤\87m¦\80n¡\81m«\83a¢\82k\9fzg\92wk\96n`\91rX\9bq_¤v[\9b\7fg\9e~l\97}j\9c\84w\90~r\8dwm\8dsl\8b\7fs\93{r\90\84v\97\83v^T}kS\85qU}qbz^a\8b[j\84dp\86hk\86ae\85[\}cathrvohnfmkbnoghq]qkipwmvxjz}fyyry\80y|\83xv\80y\81}~\84}z~z}|w\7fy\81to\83xe\82yd\84{c\85{\\82v\\84{c\87}ayx[xpZmxkvya{\81b}\81oyznx~krlpqwqnm\80nv\81ss\80wy\81x{\94nv\8et{\8dws\95ei\8cgg\86to\91xo\84zf\87\80e\8b\83j\83v_\93\89^\88~c\89\81l\91\8cf\83\8an\81\91i\88\83c\90yb\84yo{\86t\7f|x\83\89}~\8a\81y\8b\88\82|u\87\86{\7f\8e{\83\8f\86z\89}p\90r{\8bpy\81ur\8dvu\88m~\88w}ztt\80}q\81pi\84|k\81zro\82dg~ijtoWgq_fpPp|WxyNn\84Nq~LhyOihDooKukVjoXou\jn[j{Tq{IytFj|RnuLyvI|{Pr~EfuQ]\83QZ\87Kf\84Hl~To\85N\89\80Ay\82G\80\88My\86Hp\8dEx\96Ip\89Lx\8fQm\92Um\93Om\93Xb~Iq\7fHn\86RrtHs\81Ro\84Qh\84Pv\8eWo\91To\98My\9fKr\91Oz\91X\90\87Z\81\8db\8a\94g\8e\9ed\89\92h\80\9cm\88\92g\85\86d|v[\81\83b\85te\8dti\83{f\86miws`}\83V\83\84Q\84\84]x\82j\7f~fy\82\\7f\88[\82\84Z\84\81L\87tD\89}R\85s\{{M|yP\7f\86N\86\89K\86\88O\91\82G\86~R\88\83Q\94}H \81F\99oA\91y;\8fl-\9fu*\97t&\9ft&©h&±s)¤y%¢z'£v.«a6¡m4°aH¦m>\9cb<\9eeB\95h9£nJ£kS\9alO\9crP\9btD\9etK\9c\7fL\96~P\94~[\97xi\95\80f\8cpk\8c|f\9erx\90\7fi\91~o\95\81o¥\81u\9f\83\84\94\8b\87¤\87\86­\88\90¢\86\8b«~\82£\82t£\8cs«\87n£rf¡\81j\99vi¢\82o¯|g©|p¬\83`¤\87`¥\8a` uk§tp\9f{i¡h\\96ih¨s[©{c¥wn¢xq\8fzv\90wg\8c\87m\8e\80r\93tp\93\83h\98\85x\8e}w\93zvm`\83l^\8aj^\8dgY\7f`f\83cl\83bk~eh\88f_\8ece\82ee|qt{jl{mrkaxgdlpantkwx^xz`\7f|a\88\7fl\84\87h\81\89pu}|~\87~\84\85u}\83w\86{x\85\82qy\7fkk\86td\83{b~to\8ark\88ub~ld~s\z}Zrvft\7fl\82xi\80|r\83yivvyszyr{yykuzos}zzp}\7fk\84\90js\8ckn\91in\94pj\8dfm\91qm\90{u\88zk\87xw\8a|q\86zj\8e\87a\8a\85f\8d\90^\85\8dm\82\98s\7f\92q\85\84i\89\80i\80{kq~j\81\82j\81\7fr\84{\81y{}}\82\7f\7f\82\7f\86\8d|\85\8awz\8dxx\80\81\7f{z~}{s\82ps\7fno\83pu~|n}{g{qexkmzwnsthkyidqhefsXe|QpuVu}Uv\83Nl\82JfySkmKkpKnp[ryVt{\rwNtvJo\80Gh{Jj|OtnM}xFxtBkvNbwKhwN_\86Ji\7fMiqWz{I\82w>t\81<uyGo\7fFo\92Es\8d?i\83Al\90Bl\95Qd\95Uh\8bTn\8dVk}M{\85S}{W\80zMqyBj\87Rt\85Tz\8bPs\93Nu\97R|\95]\82\88T\8c\88T\86\8eT\84\92_\88\98h\8e\9bp\8d\98n\81\8bl\80\88q\88|i|{c\7fze\8e\80a\8dwj\81yh{r[y~\\81\85Wy|cv\81e\7f\82e~\85`y\87]\83\81R~}K\81kH~zV\88\7fT\86\87Nu\7fJy|F\85{L\8c\82S\96\82J\90\85@\88wD\93zF¢vH¡oF\95y7\9b~;\96s4\9cs+¤p(­i+³p2­l+¤u+\9fx/¡j:¬\B®_D¯`C¤gA\9eb>\98h?\94fH\9feD\98q>\9csI\9etI¦pG\9bzN\9azR\9cwb\96\7fd\98\80Z\93y`\90re\93ur\90\7fv\96\86m\9f\84p\9f\80v\98x}\98|~¤\8c\8b§\8c\8e¬\86\8f¦\88\84©}\80\9e}w¢\83z£zt¥\87{\9a\85p¨ym§~b \80j¨\82a«\84[©\81dª|n\9dsj x]£s[¤wY¤id¬wp¨tm¥lo\98ls\93mq\93\7fg\99~q\92\80p\90\88u\98\83t\95v~\98x|cS}g`~sc\7fjV\8bmZ\8ckc~bd\84lp\84ld\82imwlo\81nm\81vrss\82vd}piqspxr`\89~d\7f\85_\87\8c[\81\80g\83\92j\8b\82m{\88q}\80n\91\8bm\89\86q~\7f|\7fyrs\81}n}|f}so\83wn\89ug\81uo\83lh\84uj\85tb\84k_vyb|ui}xlzyftvm}tw}qlvfyyyy{sux|\8ah\82\8dfw\8buv\92sm\87mo\92rl\89lo\96ym\94\81s\91|p\92zw\95\80c\90\84\\8f\89c\8e\8eb\89\8bh\83\91g\88\95u\83\8dk\8d{n\80\83cryo}w_~}i\7fwwt\80~wz\81~\81}{\85\82{\88\82\83\8c~t|\81{}~w\80vr\86ro\86oo{vx~we\81vp\7fgrtqephdimkgotfrvjixYd\7fXr\7fVq\81]e\86Ll\84Op\81RnvDlmKqv]uoSvyYxxOpyPq|VdqGpsKnkSo{Srv=ouA`rFg\81FgwWetLhiLloS|~A~~;q\80Iu\8bCo\8cAo\86Cw\90Cv\86Cd\94Ek\8cIr\88Xp\84Mk\82Ru{Qt\88Tz\86Pv\84J\80~Mv~O\7f\83Sy\8fS\88\90V\81\91\\8d\84T\8b\8dS\8c\90^\92\90Y\91\8e_\94\96b\92\86g\86\80c\90\81f\85qe\91{j\81ss\80{b\8f{n\88pdxukszWx~_u\83d{{d~}ezzb\84t^\85v\\87xUzrM\88oJxwM\85\81V~rM\81tK\89xS\8fxE\94sM\8dp@\8emD\96lH\9dsC\9c}K\9cu@\9ewA¢t1¢x5±m(¶s-·i:¯g1§u4§q4§j:¢`?­hI§gF¤mB jC\9efB\9boA\9ffE\94qM¢tN\9b|F¨~P¢wU¡|W\93xY\94\80c\95\80[\95\82]\90\86o\96\80w\91\81k\8d\84r\99\90y\92\83s\8fzv\96\84s\98~\89¤\82\81\9f\7f\82\9d\80\81¥\86\83£ztª|}¦{v \8cn\98\83q\9a~c \83[ª\89Y¦\83i¤}i©\89c¯tp¤ro®\80^²\80]®}]§ij\9dni¡kk¤jn£nq\95}m\9f\83h\9e\82q\9fwh \87q\97}w\95\82\81\96z\87lS\83mZ\80oZ~oZ\85kV\83m^\89uj\88ri\82um\82yjzym\80xrzn}|o\80ul\84rr\83{n~|_\89}Y\83}a\8a\8cj\8d\90b\90\94d\8b\8ei\85\89b\85\81l\8f\81o\88~t\85\81q\82\7ftswvxywn}\82v\81|x~tw\84np\89lo\88mg\84nd\8aph\83jj\83l_|wc\85sd\7f|dysf}sh}psxmqo{xtsyh|\86l\83\89r\7f\8dv\80\84mx\89qq\93tm\93\80p\8f\82k\96\80l\96xl\96\80h\93\83c\8f\89_\95\88^\91\91l\8d\8bl\86\87r\81\88n\83\86g\81~h|\7fhs\88bt\7ffw\85ps~~r}\83v\84\88\7f\85\85z\93\84x\8cwv\89\82q\83~z~}s\83}i\7fqc\87ti\82mt\83poreiyjcnsnjnrplwmgs_j~ej\80^_\82Wc\80\`\8aRi\84Qj}Lt~KqzStzPk~LowVvq\ryTk}VasPeoYdwSguSe|Hf~E^vM_tM]pTkiQqpOmlRutFps<{x=}\84Av\8aG~\93Eu\92Ir\87?k\88Bp\87F{\90N~\85Gx\88Ou\86Iu\86Ss\88W\82~I|\80D\85\88C|\81Q\81\87P\90\82`\8e\7fb\91\8cf\89\88`\84\8fd\90\8e]\98\88e\8f\8ae\8d}h\8axg\8aye\93to\8auv\88lr\8cnj\81seyt_|ni\81ydxzbwyj\82|m{}e|qhuxfvp[th_\80oR{rPymV\80tP\82uQ|{T\84vS\95|T\94uE\9ezE\99n>\92yG\96vH\9dsM\95nC£o:£p8°n>±y6¬r>°p4¬u:¢h<©l8¤e2©c?«f<¥^E¦gD¬lD¤h;§p:\99iD\94mA\96zJ \82N\9b{K sR\9dyX\98}X\8d\8cY\90\90a\93\87c\91\82g\96\88t\91\8dk\8b\8fl\8c\87l\91\8ay\8b\7fw\8d\81w\92\8a\86\9a\85\85\92\83\85\99\85\84ª\84}©\80v\9d\85|\9b\81r\95\91q \90l¨\84a\9f\88b\9a\87j\9d\85b¬\85^ª\84f¥}b©{j­xm³\80j©vl©v`¡j[ n[\9ah[\9dmh\99|h¦}mªxq\9f}n§yj¥zt§z|\9e}\80lW\82gN\85pT\8cjc\7ftd\80n_\8dgl\81gg\8bkr\8bxn\88lx\7fvxsw{\81u\7fzh\85\80k~\82a\89\82k\8f\86g\87\8eq\91\89l\86\93j}\98b\80\86h~\91q\8d\85i\91\8fw~\80l\82xz\85\82tvysw\7ftm\87~x\8au~{kw|qu\85nk{zcxmr\82mk\84lnzfswmc\81idrsdzsq{{v\7fvn\7frsoulpt{qs~n\81\80i|}uu~q\81\83ks\86{{\8f\81e\95\87g\91\85n\91|c\9a\87k\91\8dh\93\8cf\8a\8b]\8c\83b\86\8bw\82\8dl\88\8er\88\8ap|\8c_\87|c\81\7flx\87iq\85h\83tzu\83\88\83\8f\88~\8f\84\7f\95\82t\97nt\92vq\8fzv{~o\87wj\86yr|md\81wdtylmbilbiteinjsnpr^fmeivai}S[x[`\88Sg~^_zNlqZi}Kj\81P~qDk{Kp|^evRk{Pd\7fMbwPexOfqPgpJh|?^w@[qHcwR[oMbqMlnSnzNi~?o|CxzLnvExzRn\82Ds\8fEi\82Me}Mp\80E|\8aIu\85Jv\7fRv\83Tp\84Sr{T\81zG|\87N}\81J}\7fO~\82N\88~T\92{i\8c\8bW\85\82a\92\84X\88\83_\94~g\8b\88l\8d\7f_\89}_\93mr\8fve\93gr\8fjo\8anh}ro~{f}lb\81p_o{U{ob\8bsj\84sa~k]\80s^zia\87s\\82eQ\86uO~rJ\8cqI\8dmC\8asQ|lK\8dsN\9aoF\97kO p<\90pA\95{B\9dtA\9fo= hF¡j4¡p1«s*«p:°k?¬h4³d;¥e@\9bi0¦f/§d>¦e7¬iC¨b:§iG£nE\9fiB£kF\98\7f@\95{B¥qV£zN£~T\9atW\94\88W\95\82_\9b|a \86t\91\7fq\96\80{\9d\84~\98\83y\95\84\7f\8a\85r\88vq\9a\88\82\9a~{\91\87\83¦\7fu¤\83v\9f{\80\9f\87m¢\80i\95\88e¥\8a^\9b\80m£\8dg¡\89a\95{g§\82m¦\80a¥vl­vq£ta¥|h³v[°}Yªq^¡qi¡ej¦ma\99nc«ye\9fqg£\81v\98rq\99p}£{\80\9dv\86kO\8deQ\92oV\90je\84sg}qh\7ftf\82lr\89jt\81hx\88hw\7fnw{x\81\80r\86zu\88\7fg\86\84i\84\7ff\86\88f\89\83q\88\88r\88\8em{\8epx\95p\80\8es\7f\91p\88\8b{\81~ty\80t|\87x\81\89\7f\80\8awp\87o|\83nv\86mwxjmvtg~vn}vo~wn\8drj\8bgu\7fjv\83euvhzv{qyuk\80xtvyltuqu}rxx\84jw\86gv|fx\88sz\85uq\85vw\8d\83q\98|b\9a\83^\96\8ek\97\8co\98\8ek\97\94a\8f\83e\8e\81i\87\82p\8a\91q\88\91k\82\83g\8e\8bd\88\88q\83\89py\8fo~\8cn\82{m\81\8c}\82\93\84v\99yz\99s\80\9dtu\93xz\94|y\83{o\80km\89okwfeurmsrltlgk_npdkx^woivcqv\dwRaqWX\7fR]\82V[tRaqV_s\krYiyUvvIzmUpqWmoVfwG]rJYyV`~Z`vPkt?ms?`z>]zF^hG_cKfgU^{XdwTjvHd~UozTzvQwyT\80zVx\83Ox}Np\7fXm\80Zx\85O\80yR|wNsyRtwV\7fvMy\84H}\88B\80\83MqtKquM}\85S\88\83`~\7fS\84\88T\84\8bO\89\82U\84wb\8dth\83lo\89pe\8ejf\91il\92j^\8bu`\87na\87wm}nn{tazl^vrU\85pX\82rZrnbsvc~w]\80l^\81dW\8beT\88oH\8arG\94xI\91uD\88oI\85iJ\8dbP\92jW\93bM\9afF\98kN\9auI\9fv@\98q;\99c9\9ce?¬]/®d-®h4¶i=¾g4µo8°l9\9eh7®k;®a6£i7¡d6\9ek7\9dfC\97pC\9fmM\97mC\9ftD¨mR eQ§lR§vZ¯pb¥u]¥~e\99xb\93|q\9d\83z¦z{¤u\83\9ez\8b\9dz\82\8fwv\90{w\8b{\7f\8d\80\82¡\7f\81¤\80s¥\81w£{}¢\8aw\9b\8fe¡\8bc\9f\80a©\8ac¬\85l\9d}h\9c~o\98wo\9czdªrl¯nj¦y^\9exa±zf³w]§jl\9clo¦qt¡ok\9etf¤hm\9djo¢tw qw\9dt{\92z\81\8e{}mX\8enY\94fX\8fif\90rh\87mo\84ft\86or\84ft\8b`z\8fi~\89mozsy\88dw\8cp\82}r\84}j\86\84e\82}j}\8az\7f\80uu\8exr\88lt\97t}\9cp\7f\93d\88\8ery\86hw~mu\82|\81\87xs\88qm~jv\88jq\82wx\7fhstpjquexpu\83vo\8cpw\89pz\7fkq\80m~{pqvurz}wsrr|{sly|jw}pyxlv\83rz\80u~\81vv\8cm\7f\88vy\82\86u\96\88i\93~`\8f\89h\9a\93f\9a\91g\97\8dk\99\8bf\9c\7ff\8e\92o\90\8cf\96\90o\84\82g\88\8fg\90\8ch\81\91u\83\91|\83\83{~\87\81\83\91~{\9c\83q\9a\80y\97zx\9dmn\95pr\91l~\8cml\80nj~^fw`pqerzitl`ojktlf|z_xxiwjq\81ck|gk\82\]~^f|Wj\83Vf\81[fuaryXm~Mx}UqxTf|QdoRYrE[yM_{NXuUk|DkxHtmH_uJh\81FelVigTZrPQ~KY\82Mj{LauPl\7fVysR\7ftItrWluVo\80Ovx`r|Mx\83S\7f\82IzzU\86xZ\84|X\7ft[{\85Tv\81N~\86RtpXyzX~rNw\80Q|\85V\8avZ\8a}Z\81sb\83mZ\88i]\84rWyxU\86ui\8aoa\8cri\87t]\81v[\84nq\84~l|l_}{^\7f~^{rP\88}R\80pOzu]}kY{nP\89nW\8f]O\96cS\8eeE\89vM\8asM\94kD\8cjI\8ajL\90cW\9fgR¥iO¢cH§l<£d9\9cf2©n4¬q9«b6­n7¯g7¸i<¶lAµo9²a4£c:¥_/¨]@¢a=¯[:¦b4\9deA\9fbJ¢_K¨gN«nG£fJ¦fY«qV¯mN¨u`«h\¥kd¥p`ª~w¡w\82¢w\82\9dt\88£s\80 ~\81\9dzz\9a||\92xx\96y\80\9ez\82\9e}x£\80\81\9e\84s \8c} \8ci§\7fi\9d~`\9dyl¥\8an¤ym¦xm\9asd\9emd©pe­mm£u]\9dgb¤ig²xi«vj\9blj§er\9flk¤rq\9cqz wq¨x\7f\9bs|\96w|\97\84w\8c\80\82_c\98ea\9fv`\98u]\94gj\9cie\98us\90ox\8ag\82\90d\7f\89n}\88lr\87ao\8afv\8eh\85\90o\8c\86s\8c\83k\81}gx\83r|\85w}\84tt\87n\82\94q\80\9art\94ex\89h|\85m\80\84k\84ysy}o~\89px\85vs\89pv\83xlrsoqll~ug{qm|po\8bh{\8aqx\81tszj{tm{wrnvnsxwrqyrr\81~pxwy{vq\80\81{w|wv\8avr\8aos\89|v\87\83y\98\7fl\99\89a\98\95^\8c\8f^\98\8f`\94\8cg\95\92\\9a\89[£\91c \94n\9c\90g\96\8fm\94\91m\86\98n\8d\88y\87\87\7f|\8e}\82\8bx{\99\7fr\9c\84t |r\9fwt\9arv\94f|\8aks\89lq\84gs|`w\82dn|mrwersljvequd}|czvpukm\7fk`|]d\86]`|]azYc\84cj\7fbmsfru[u\80Nq\7fOg\7fIgvQZzP[yIWoK[uMYwKdwBoxEjoKbpMcwVhrOakQ[oMTvK^yJ\\81Rk}TpsLtzK}qMruPowLfq\k{ZxvXz\80T}wT\7fyL\82~O\87}Y|\83S\82yZz\7f^~|Ty|PvoTulLrrMrmY\7fuZ\7fh^\7fk]vlb~nY\84iPzqT\8atY\88la|kX\7fj_\84njzvcwxd~s\\87qW\88zZ\89~N\88{O\86|M|tQ\85oT\7fiL\86`G\91aK\8e_M\94iB\9adI\94pG\99eR\95]U\98ZX\92]X\91\U\9e[J¥[I¤g:¦f0©b-¢f,ªm5°j5°s7»v-µk4¶j9¬b:§_:¨Y0ªd>£e;­h4¯`2¯d;§Y8\9fYB§bI²bU±lT©mZ¬cO§iR²cS¨__¯j`µtg­po¦x~¢r\7f\9cn\84\9bz\84£~\84¡v|\97}\7f\93}z\96us\92y{\9e\80v\9fwy£\82r£\84zª\88x®\82x¦\87q©\83b \82b¡\7fo§uw¤os¦jd¤mf¢tf¦ll¦dc«e^´l`«re¬ri«`eªbb `m\9aor\9anw\9bhr¤pv\9c\80}\94~y\90|s\8f\80}gd\9fr]¨mh\9ar\\9bq_\9a`j\8bqo\93hz\86ip\92nt\8dmo\8dlo\87hu\82q{\88u\8d\84x\87\8ed\88\81m\87\81q\80\81g\8a\80m\84\8d}v\8euw\94m\7f\9af\83\9bl\84\87a\81\83c~ynw\85hy~nz{ts\82ou\82ss\8asq~nvvyq|nawnkzjk\91du\8eqx\80itycqubvxiw\7fvxvwqqwwk{xqy|vxqyjx\80o\85\83r\8bop\8ali\8bqo\93\7fq\9a\8ag\8e\89j\94\8bV\92\8b^\9a\89Y\98\8a_\99\89`\8f\90^\96\8da\9c\91f\99\94k\96\96h\8b\9fs\8a§l\85\90o\93\88|\83\87{\7f\90z\7f\99\7fu\94}\7f\96qs\9az| h\7f\91lp\8db\80\8fgx\87a}}hvynp~_wokzjemtgl\80c}nnqhp}fk\80nd\80di\8bkb\80gd\80Xn|gr|gjqbwz`t\80Nh~KgxI_oJhpPYuUVzOasSWjN_u?jsMjqIhjJgkRYiQdvN]nHUvLY\81M]vJ_|ThmSmnJ}lHyxHmvJz~St|Y}~N\83zUsxN}vS{\7fW\84sV|tS\82rYwnY}t\yf]~v^ygU\7fn]~ocxndzqf\82cd\83kc\85iUxr[vqX{aa\81lb\7fgd\7fm\\82{auvp|u^tja\80zQ\88rS\8a}S\84|L\8axE\7fmU\89jV\80_N\83^T\8bYQ\90]H\95h@\94m>\90qF\95_H\8biJ\8fWU\8eXP\9d_F\9eTJ\9f[B¥oF«e7 a1¦^5¬b-°c,¹d8³j0¬b-°Z7¨X+¤S'§_,ªU.«W9°[2¶Y1§`7°^0®]=\9ciCªeS¯bG¥eL¢eP¯bQ«nV²nU­l]£qa©di\9fe{¤kt¢v}\9co\80 u\80\9au{\98y|\9dt|\95u\83\95w~\97us\9epx¥s{\9ew{\9b\86{¤wiª\85l¤\84a sp©\80p­vv­ez©nl©pi¢j`£de£bl®`e§pm®ah¯hp¥]l«\y\9edr\99^~\9ecz§fz©ct\96yv\9c~}\8fyt\92v\84ma­v`¡k_§oa£hn\9dhn\8fdz\90ot\92ov\97rt\8fvl\91hr\88h\82\87s\82\89o\8e\88r\8c\8do\84\93h\86\94f\82\97g\8b\89h\8a\8et\81\95j\85\95j|\9da}\93g\7f\96d|\8dfx|j|\7f_~\84i\7fxrrytw\7fuu\7fqq\80nlztesliskmwmh\8cnp\8b`}\85h\7f\83dq\7flv\80gr|nwx{~pnzrlo~rz\80jvsm\84rg\84\82k\88\81w~qo\8b{i\92wr\97{o\93\8e]\97\8c[\98\8bc\93\8a^\9b\91^\92\95f\94\98g\95\95j \91s\9f\9ao\92\93m\9a¢s\94¤z\8e\93q\8f\93p\95\9bx\8c\99t\8a¡z\7f\9d~u\9crv\9bkr\96fw\9ee}\93`\83\8dg}\85_\81\8aes\8aft}du\7fmtrpr}huyp}piyegxmp\84jl|qc\80gfvda}[bw]qnctndo\7fYqt`kmVnmUfuIc{FbqP]oPbnI`iK[cH]hTmmTccOafG^mNZzJdtP^vNd\7fUcyNa~IdsKyvP}xT}uP|}PuzOs\7fU\7f\81Q~\81S\81yYvySs|\wr^qo^{o^tmX|f`\84d_\80k`zie\84me{bg\80eg|f\\81_^\87k[\84fb\83ei\81cd\81jn|fkwkk|ujupnpwnwk`vi_}eQ~qR\81~S\80}P\8buL\8ajH\82_X\84dZ\8biS\91_O\87]G\89fM\91jQ\8deC\8d_D\8eeJ\88ZI\8d[H\9caO\99^D\9ajD§iB¤n?¦c/ª_1£U+¯`2²^/®Z/²b(¹T(®Q,·X(¯_&§\*¥T'·V)ºU.·Z)®a1¨d> iE kP§cK°fL§eF§eG®nWµh^ªid®gi¦bi©kp¨nx«w\83£q\82 s\81\9fv\7f¡sq\96ls\95hw\95q\85¢kx£qs¢zw\95{v\97\82s\9dyf\9f|k¢yf\9e~e¦rk®otªho¨bq\9eci¤`d¨\c°cn¦hr¢mc®ae¨hs¯`}´Z\80¬X~­_}¡i\81¨`\7f¬cv¥jx\93p{\94pw\98s\80ie h^\9fim¨io¤uk\9cm~\93v\80\94yy\8f{r\99vo\8eum\98ar\89p}\98hu\96v\82\8d{\8e\91u\8a\97o\88\8d_\87\92b\92\94`\95\90i\8e\8do\7f\91o}\9fd\80\94c\83\90h\80\82_u\83er\88_{\85^s|qw~ov|go~cnzgjqslyirzro\83ql\8a]}\8bbv\87ao\85joyju\7f`x\82esum\84\7fjt\86o\83\86`wwlv\81n\8b\82o\8d\7fk\85\86{}yt\87\7fx\91us\8c\85n\8b\87f\8f\83W\95\86[\9f\8af¢\8ab¡\94f\90\94b\9c\8ei\98\95r\97\91y\9a\91m\9b\98z\9d©y\91¥|\8e£p\96\95}\85\9b}\8d§s}\9cv{\9bwr\97k\7f\9eh\87\9bj\8c\92m\82\97[\7f\8a^\80\89gy\82bw\87h\80|mzxs}zjvyh{fb\86lq~dsz`rzeqzcon\orfoifeuV`kdp~`en]ewakx\\rWcnWbdN]gJeeRhcNfcWicLefNgsWapSYkQUrIdySfqTexUkk]mtTdwKmnKnvLyzIk}MztHs\87T|~Kt\89Rq\8aQn\82Sx{_l{a|mR\80pW}lZ\83X`\88ha\82a[ylf\85d_\81`av\avY_\83cZ\89X`~Za{[h\87_f\7fiarnfyugvlb~wjnnitq_|d\~m_xnU~sZ\81{Q\88jF\93tP\8flV\82kW\8bfO\97dQ\97_V\8bfQ\98bJ\8fcI\8a]G\9c]N\94WT\91^F\9e_E\9f`D\96f@¨i;¦fA Z:­W5¨W4¨P'´Q*ªX$²Q/¶R*¬V °Q*¸\*¶]\1f­V#¸V(»K2¾^6·d8³_;«]:§\?§`J¶kP·jD¨mZ©vR¥o[§ob¯jh¨boªdl¹ey²op¢k}£jy zu¡nr\97tz\9bv~\9bz\8a\98s\86§s}\93ju\98sz wg¤xq\9cve\9evq\9eqo¨hm\9efh§el¥pf©`f¡Ye¨\l¯ho¢gl°ku¬dr©ar²a\86°Y\7f¤\\87¢f\82¦f~\9db\84­b\88¤h\7f r~¡n\80\9fo\81hh¯kbªwm¡rv\9fz\80£t\86\97p\80\94v\82\93v\84 wz\9brv\97ju\92c}\92mt\9bq~\9dt~\95r\81\90h\8f\8ea\8c\8bd\90\8d_\8f\91a\95\89o\96\94k\8d\93s\82\8bm\81\8ec{\8ce{\89kv\81al\85dsyfqwmw}cr}dh{dmxlp\82ni\84st}ht\80]v\86ax\86bw\83ay\81hr|bt|a|\82my\83b|\83b\86\8ad\8a\8ci\86\85f\8c\8bq\8d\86r\83\7fo\81\85qzzv\81~j\8e\81j\8d\82f\8eyd\94~c§}]«\8dk§\85h\97\85m\94\8el\97\92n¡\8cu\9e\97|\96\9as\9b£p\91\9fu\98¢|\8b¥r\8d©n\89\9fo\8b¡oz¨nz¤r\8a£h\88\9bi\8e\9aj\8b\96h\8b\8c`\80\8cb~\8dd\86\86g}~o|xw\7fmmzkg\83ok\81op}lgw`esdqpbot\on`ir_bkZilTbv_f\80Z_yaho]_vTbeOYdX[dYggSalQkdTjiW]iT[tKdsPYnO^uVep\fyUqk[qj]zl\rqMpfIokMvmPkvQp{Vy\80I~\8cUw\89Zo\81\o\81\i\7f\qyT}lVwhX\84bf\83Zc|Y_\82`f\84ikzfarf\xXdyQ[\7f[`\84Vd\83_d\86dc\85_cubovgklnksserxfynjvm\vh_\7fj[|nZ\85kQ\84jN\8feG\93pP\93oJ\8dcO\8cjW\90aV\9acP\9a`M\97TK\97YT\9bYQ\9aSQ\98QS\9b]K\9a[F\9cfO¤fM\9b[D¨bH§[>±N@¬P1´V7­J-¬V-±Q(½R,»R\1f¸Q\19²Q$¶R!¹Y%¼U1·O1¹Q7¹X;¸^?®_5­i5´dC·kMµbM°gX©p]¯o_°oa·nb´jq¯iy¹hs³n{±cs®jmªrt¦yq£ru¦u\88\9fr\8a\9em\8a\9bi{\97wt\96ut\9dxt ol\95ni\9bsk\9cgg\99go¢nb¡oa i\¥bg¢Wa§[d©ae¨fh¥av±^w¯X\87¶V\87©X\81§Z\8a [\80¨b\80«k\8b f\8a\9ch\83¢v\82¦y\83\98x\84sg¤gl­vl\9crq¨{t\96pv\90nz\96y~\96n\7f\9cv}\8fp{\96`q\91h}\99o\81\99wu\9fuy\9cl\8f\98m\94\98h\95\8fh\91\98d\99\8ea\86\8fo\8b\9au\96\9fs\8e\99f{\95jx\8bqy\89ku\89lw\82it\7fdl~anxdv\83cq~jstnw\81di\7fkuxeyvjt\7ffxybx\86]}\86ft\8b]u\81gy\91fp\8fu\82\8cp\89\93t\8c\8eq\86\8dp\84\88j\8c\8ao\89\88p\8c\82d\89\90l\8a\84f\85\84m\90\90f\9d\87c\94\88h£}f¤\92b \8bg¦\87q¥\97f¥\97w\95\9dr\9b\9e|\97\9bx§¨w ¢s\98\9bl\99¤s\8a¬o\8b§s\92§q\89\9fg\82ªo\88\9da\87¥`\89\98_\8b\97^\8e\96Z\89\89e\8a\88l\87\80k{\86k\81sg{w_\80ma\85xZ\84iaom\xi\wjdofaw_qzcfqmio`jsifthajmWwc]rajyTgoOl\Wb_TbsLfaUaeUYaXYePUf\YnQXiWSqUZlPamTpm`qf]ueYrfLiuLltPvkVuwKntMz{Ev\82Qz\8dOk\86Sj|To\7f]wwO}oU{eV\82X`|aczZ\\7fck\85acxa[wae\80c[\80\WxNX\83__\7f^p\86db\8fed\81[j{hnstnzxl\84gb|ig\7fig{dZ\85cc\82kR\8abV\8dgI\83oM\95n]\8elY\86lO\90`R\8a[Z\92\T\96aV\9fcX\99_T\9dVX ]M§]W¤_T\97fJ\9ehM\99gI\9f\C«XD§N>«X:ªG,«C1¡R)©T,§R&°O(¹K+ºS%±G\1c½O ¬M'­N2µM2ºN5½T@°R=¬b2¬ZB³^<»ZG½fM±aY­mU°]f®ed±ik­ge²pjÀohºesµ]u¶_|¹s~¤dr¡l\80\9avx¡j\8a\9bg\8a\9dmv\95j{\98nv\9coy¢oo¤gr¦mk©mt\9e]r­gq¯b`¦b\±Th§]l³\m°Uq±Vg©Vk®Yy©S\80¥Z\82¨Q\81®X\89¢^\89¤Y\8a\98k\86\9di\8b\9bs\8f\9ee\80\9b{\86¢p\8ahg°ll¦rq§vz¥ww§tw\98uq\94uz\8fiq\88iq\8fkw¡gv¡my¤k|¤v{¡z\81\9dk\87\9cd\8d\97c\8f\9df\9c\94j\93\95i\88\98h\95¢r\90\9do\84\93o\82\8dn|\86lw\8cl\80\89k\83zfv\83dr}ho\81ouwl}|h\82sgt|ipyaqvZw}fy\85l}}r\82|j|}f\82\8e\y\90^x\91or\92{x\99u~\97n\85\8ax\97\86u\8d\8fq\7f\96e\85\91h\87\8cg\89\92f\94\94i\98\8cc\94\8cj\9e\8bi \80d¤\88hª\8ce®\8bc­\8em°\9bm¦\99l\9b\9cr\9b\98u\9a¢u¡§f\93©c\91¤k\8e\9et\8b¤r\8e\9eo\91¨i\95§m\87 p\86§j\7f j\8e\9aY\8f\89c\94\88c\90\8cd\86\7fd\88\7fc\88\84g~}i\85~_\82~U\83yWynbuibnj_hkYnmaxrkwosrtlnnqiermkbvi_nehplmlbnm^nePpnXioRgfQaeVaa\UkQXkZZd\Vf^VfTYmRejYew_srWkrU`kObkUmkSsgMzjPtwQ~wQz{Mr\7fQvv[ryZysMtnOu]T\81]]rZ`sbQzgV\81^a~V]\83Z\\88af\82]^zO\yP\\81[_~`k\87\e\8bY]\82\Ztghyrd\7flcy^h\82`\\84a]xqa|dW\89aV\92jY\8fgN\93mP\89h[\8dpO\8dgN\90VQ\8eU[\8a^M\8ebO\95^O\9bd_¢Z_¡`W¥VK¦XK\9eZH\9eaH¡^G¬]DªW=¡QFªQ@¡C2¤C.¢R*«Q(®V#µN,²K0°C&¹D ±@)®I6ºG1¹D=®@E´HCªV:ªX9¶O8²OE·RC¹^P¹^J´YO»dW·^k·_g·lb¿inºji¼luÀ^|µa\83·f~±]u¤d{¦c\84¦q\86 a\80\98b}\95bx\95o{\93iz\99ls¥kk¨qi¥og«`o¥Tf°WfµOb®Ua¸Sbµ[l¶[xªQv®Rs Qq¨Uv¤Xt©azµ^\88®^\84\9eV\82\9bh\89\96j\8b\98f\8e£d\88¤q\89¡y\8dqe«is¦oh°~r²rxªst\99wy\96w\85\90vq\9cwp\9avp\99kv\9bs\83ªi\87 n\80¡}\88\9dn\86\9de\91\9dm\98\90g\92\9ce\8f\8d^\89\8ek\92\94g\8c¢m\84\9bd\7f\93^z\8df\82\8cp\80\7fkx}at\80`v\7fis~s}ym{pr\7f\7fh\7frl}w_\82\80\|z\\81xj\8b\7fl|ylx\85hy\8a`z\8e\{\99dz\91s\86\94j\8f\92v\87\89{\98\8bo\88\8dy\85\90p~\9bi\8e\95i\90\91]\8e\8d_\92\98d\92\91_\94\85e\9f\83p­\8cd¦\88b³\89a¥\8c`¦ a­¢q §p\9e\9ah\9f­g\9d©k£\9dj\8f¦d\8b\9cx\95¢q\88\9fi\94¢f\94©m\8a¨d\89\9a_\87\96d\8b\90S\8a\81P\84\90]\81\90T\83\83f\82}X\87\83\|\86`\86\80]\80yS{yQwnWvg_bsUeoZjobjmfk{gwofizldhkshpmr_slcrhhvmpi`liTmjL^nO_eQc_TTdSY]Y`]^QlXOh[VgYbaUfpUacJsoVinH[ePneEelOmgH}gDreLrfXwrYw\7fQl}R}z^rs]|vRvh^xkVu[PjaPyWW\84T^\83Oa\88U]~T^\8cO`\8aR[\87Vc}Zh\8c\i\85[b\89Na\82^h\83ZqvZbx^h\83^W\89j^~gX\83b`\84i^\80a]\8ekU\8fn]\90gU\8elY\8fm\\90_O\9bbT O\\92RU\97_[\99^R\8fiV\99]Y¢iZ¢\K¦SC¥SN¥\P«eHªZH¥\H QP\9bJB¤FB R/¢L1¦V/´^"ªN%¬U(»J+µA/²K3°L<´L1·K@¾EG¸OC»T?®W<®J8²N>¶QG´UH²IU²R[²S[¿ah¾Zn·lc�oaÃkfÂ]r·[\7f�WyÂf\85¶ct¦k\82®o}£f\8a£gz¥h\84¨h\83\9dj\80¡qr\9cps¢gk oh®cl¹jn®ao­Zf²Qg³^p³_k¹^p°Wm¨Kv®I{©PwªVo¤_q§[u¬X} \\84¥Sy¤f\84\95l\85\9cb\89\97_\83\9bh\8f t\91ds¦mq©kq²ym­~o¥z}¦z\85¨w\82\9e}s©}t§~y¡ot¢h~\9br\88£n\87¬n\8f£u\8b¢j\89\92a\96\8b]\94\94\\94\8fZ\93\92]\91\97h\8f\9bh\86\8e\\81\8b]\8d\92b\88\8fm\82\93g}\86b\81\8adt\82g}\85q\83zh\80tl\89zl\82uj\85xb\82r]~{a\86}_\89\7f`\82\89d\83\88g\81\90^~\97g\86\9dh|\9ao\80\90g\92\92h\97\8ft\94\94t\8f\94o\88\99u\85¡n\8b\9ef\8f\9f[\8b\97^\87\88[\92\89[ ~c \83a¬\82i±\8d^­\97^©\9b_±\9cd¯¡i®¤]«ªhª«e\9f¬`¤¥d\97\9ef\92\99j\8d¤d\92§k\93¥\\99¥\\8f¥\\94\98S\8e\9aZ\86\95V\87\89M\8a\8aN\83\85S\80\8d[\84\8bN\7f\84R~\88X\83\80Uz\82Nw\7fRorOjyRdpM`tM`yMi}XpxSk{^g{nlvponhqweqrmwtmrntn^qvZmkNcfS[_HWcNVdZ^^[[^\RgMTiTWfOXaPViRekUbkGlr<dp@ftLijGnnDr`Io\Vpc_um]tmWxl\vtQyuZ~v\|qcwgXnfLr\O\7fUV\81PYzUg\7fSj\8aOe\88Nj\8aJn\89Sg\8aUn\8c^d\94Yj\91Sm\90Ve\85[i\8c[e\81\g\87\_\81gRz_O\7f]O}`Z\83]W\82YS\88e]\8c[[\8fbV\8egP\92cS\98`_¡U`¥Y]\9eUW\8f_a\91^\\97cY¢bKªTI¬WE²TJ¦^K©bJ­]@ªOB\9fQL¤SL¥GD°R9°L?¦V7¨Y/¦L,­O%µG'»@/¹J1¼D2Å@B¿ICºQ>¸RC±IG³M<§KD¬@D®=E³FM·HP¹Ja¾Pb½[e¾XjÇfoÑ\rÊ_jÉWrºRz¿Z~¿Z|¶`y®f|«b\82®g\87²d\88³i}±_\87¤e\80¢r\80\9emv\9dml¥jn²fkµdnµak´Ov¿Tw¼]r¶Up¶^p¯]g­Vm®Qo£G{°H\80¬Ux®S\80°Q{¡]t ]|\9d]\8b\9b_\89\94f\80\92`\83\9cn\86\99r\8bkq°cq²lk²pw¥npªvq­zs\9fs{\9co}©\81m¯wn d\83§r\81¤r\83ªn\88¤q\97\9dk\88¤l\84\9f_\8e\99a\8a\9dX\93\9eT\92\90c\8c\93q\90¥b\92\9cV\82\98`\84\9b\z\8f^}\92j\83\93aw\83Zt\8fj\83}o\88\86^}uh\80ui\8c\86d\80\81b|yW\80\7fWx\87Q\82\84b\81\91`\88\8baz\8bg\8b\91^\83\9a_\87\8fh\8c¡d\87 m\8e\95{\8b\99{\88\94j\85£i\8a§n\9b b\8c¡j\8b\91e\97\8dc\96\9aa \91c\9c\8ca¤\94f¸\8fl±\92_ª\95X·\98^¸¥]®¨`©¥a\9f¢_\9f°g\9d¥Y¡­f\94¤a\96¨X\8e¢W\92¨b\84¬Y\8e\9eY\87 Y\98\9b]\91\97_\89\94[\87\87[\83\8bQ\82\84T\88\8cR\87\8cRq\8bZs\7fKo\8cIj\81JomLlnUlvShrMgnYbu_j\82T^yYa\81chygjjalm`mflsmkobll]qhVppXjlNgbPO]\VaVRcaLfU[sTWkRcgRVoXYeJanTecDafDlnMjiCmg@l^OgeTofYqeZkiXnbQsl]tkUniTrs[qkVxgXuXUvbR\86]`\8cSd}V`uT[\82U`\81Xq\7fXm\8dXq\84U^\87\e\8cUk\8dUj\87Re\91Z\\86\d\85Xg~eT\81dF\87_S}YV\88WP\82R^\88Rb\93X_\94^_\9abS\91\`\97Y`¢`[\9aKc\9aYW£[R c\\8bZS\95_V\9fbJ§RG­OH®MI±ZF¤UB¶SJ®[F­GB­JM HB¬DC¸H5§H>¢O;§U1¶K4°O-¶N5¹@5¿H9¾IHÈJ=¼@C¾D=¹K=ÀB>½G<¸HD¯MA¹LG¯PQ®@[ÀPb¼]eºTf�a`ÆXcÂ^k¹_rÇJpµY}¾S\82¸]v´Z{´g|´]\8c¹e\80¼_~´[\88°l\8c°j\85¢m} f}®Yz³[m±]x¹Xv´Mu­Vn²Ww¼Ws³Ws°Ss®Uy±Uv\9dM\84 J\85¸[\82¯S{¸O\82¥]w¬f}¤^\8e\95^\87 U\83¡e~\96h\8e«i\93ju©fh±mtªf{¤lm©km©el¬m|¦s|¢uq«hy¢c\82ªi\86¥e\8a«g\93®m\96¥j\8e\9ch\87£`\87®U\91¨O\93\9fW\96\9dg\9c\98j\97¤`\8cª[\83¤d\81\9e]}\9f\\87\97g\89\91`\82\8cZw\8fb\85\83_\82\84W\85y_\84~[~\83X|\87R\83\8a]z\80W{\85S\7f\8a[~\8aY{\94]}\94b\89\89b\8b\8e`\81\92Y|\9dc\84£u\84¢w\8e\98x\8e r\93 j\9b¥a\9b¡f\9e\9eo\9b\93p©\98l¦\99p¤\95b£\97`¥\94h­\8ee°\98`µ\97T¹¢Y¶©b°¡e ¨d®\9fb®¢d¢§U\9bªO££X ¨U\9a¢Q\8a©_\86¡`\88¢Y\8f\98W\91\93^\89\8cV\8c\8fU\85\83Y\8d\83]\8f\8aV\8b\95R\86\89Kp\84Lp\8eRp\87Qv\85JoxQu~WjxSt|LoqSp}\_\80Sg\87[_\82]Ypg^ohWpjajn_nmjco`[kdafkTifU^_VV[ZY\\Q\bZfVSmVVqV_jW^nUcgO`eTldJp`FbiSffIksFfoIk_Zn_biaXs]YtZ[ud[|mVkfKk^Qs`Tm\_tYW\80\\\80^Y\85Pb\84MfvJZuRa|Th\84Hf\84Mm\89Zg~YcxX`\82\i\8dYc\8dR\\87Xa\81b]\87eT\86_K\8dWN\89^P\89U^\8aNZ\88K]\94XY\98]_\97VZ\9eWi \f\9fM[£L`\9fX[¨ZT\99dW\96^S\9eWQ RS\9eLI¨IMªIQ¯IG°US°WP¯GI°FE£=E\9f>H­FAµA0«B2¥H8²U;±Q3ÀW@¿LA¼VC¼QI¼F;ÅA>Å=C»?B¸DF½>IÉJBÃGIÂAK¸GK·?]´F]»I\¼NiÈSlÆKaºMh¼YgÆZiÄQw¸L\82´Q}·VxÀX{®c\7f«]\88µ[\86»W\86À]\86³c\87°b\81³ez®`u«W{®Q\7fªJv¦Jr®Co¬Gm«XxµX\81²Z~ºPx·Ry¯Su\9eD\81¨Kz³T\84½O\7f¹J~³^\83­`\86 X\8b\9bW\95\9fR\86\9fZ\86¢]\8c¬b\96et¨ev§_}¡\}©cx\9fhj´ps¬nx£r{­s{³fy³c\84¨\\8c¯g\93¥d\85¯k\92ª`\90¯_\8f°_\93«U\9b¶O\95¡U\9b­W\9f£k\94\9cb\8c\9cZ\87\9cc\7f¨f\8a¤[~\9dn\86\8bX\8c\8ea\85\94a\85\89]\92\8b\\85\86i\8b\83b\88\84^~\90Z\85\8aT\8a\8c_}\89[\85\8eQ\81\8aX\88\95e\81\8bg\84\8ec\8f\98c\82\9ca\8e e\8e\9fm\8d r\8d¢k\91¡j\9e\9b`\97©e\9e\9ek\9a\9dm\9b m«¢o¤\91iª\95j­\94f¡\92n§\9be±\96c´\9fe¬¢\´²Vª¦Q³§\¨ W©©P¨©R¦®Uª­R¥°O\90\9cL\8d¥Q\8d\9eU\90\9aW\8e\9f\\94\92S\8a\96U\83\8bW~\88Z\8a\89M\81\8dZ\85\8aN\82\8cSo\92Sw\92Sn\8bCl\8aPo\80MdxYhtSpuR_~W_\83f^\89W]\8bbe\7f^_~mYqi^r_hwekitnhike^nbdbgn`]bcTacbV[XYk`^kcaeV\kSZ]_X`Y_]LggMmeIj_KjqRgoMbeIq_OjgWt\PnaXq^WtUYx[Uw[SocRpVOqPOsOSsZ\tZU}SY|T[\86U[yISwP\\7fTeuJlzFm|Gk\82SgyZg{a[\8f\\\84Zb\89Ua\8di`\85^T\8a]U\82`L\8aOT\83U[\8eVb\8b[X\94S`\96Q`¡JeªPb©Z_§I\®IX¢PV\9cYU¥RU\98QS§ZY£TO¬KF¨SU¨ES¶PI±WH¯QV¬KR²BC±DN¢C@©?;­J5©I7³A7©S8³O7ºJC�K9¿K@ÃNGÃQD¹IB¸?F¶EBÆHR»;P¸GM½DBÇAB²AN¾AN¯K]¿CYÂE[ÌIkÑDf¼J`ÆOcÃUjÈUw½Wu¹Zm´NqÇSy´Q\85²W\8a»[~¼a\7f·\\8e¾\\88¿f\85µ_}ÂWx¾Uu¹V{§Ss¥Lr¨>i·Iz¯Lv©Lx±T|°L|²Tp§Kt¦Ls°N\7f¬MtºJt¸Q|«M\86³[\8e¬a\8e\9b]\94©a\8e\9fV\8b¦^\8a²Y\96q\81«oz¨o{§by¤iu¥dp®d{·kw®czµl|¶]z½\\81³\\89§W\8d¬V\94¦X\8a®]\8e¦\\96­R\94µY\99´V ¸Y¡¬`\93¨Z\95¥b\86¥`\87¢Y\81¡b\87¡\\89\98c\8d\8fg\8d\96_\8d\8di\8b\83b\90\89\\85\88a\89\83c\81\89Y\82\8aT\88\88W\89\89X\8e\80U\86\84O\87\90T\88\8cb\84\85d\88\88f\8f\93i\8b\99`\8e\9ag\89\98e\89¥r\99 o \9fa§\9fg¬\98c¤¢c¡¢m¨§n©¢n¯\99n«\9da«\9ei­\9ad© f¤ªc©«_¤¤W®«N¬¥Kµ\9dTµ\9fS©¤M­¢O§¢W¦¤Q¥¦Q\93\9eX\91\9da\8e£X\90\99Y\8d\8b]\86\8cT\8d\87V\82\88Q|\88V}\8eP\82\92Q\81\90[\82\93Vy\98In\94Kk\8dMt\91Ep\83Gd\84Si}Tgz__~\V\84_Y\86Xb\80_`\81bd\7fkb\7fmhyaeznaijeildaakdfmdf`ckg[eca[djWlg]nWa`We_Q^`YY]V[bYhiXffQddSdgJjhHjhOf]OlbMp[Mr`Ys\Xh\Zm[WpYXgP]fSPbRXkMWhJYkK^uQ_{Pb\81Tc\82R]{DZ|F^wKU{K]\83TX\81Mb\83Zh\83W]\83b_\8a\Z\8feR\8beR\85hL\88`R\89[L\8fNO\89TL\8bQZ\8cS^\8dW[\97OW¤L_¨F_¯NV«Cd­Ia¦Ec\9eK_¢VV£OR¥NU¯QJ¸SH¯KM®J[¸NW±UO³LN¶HMµLIµIF®EC¹D;´L8´L9±I5­JD­FBµH@¸SAÄK>ÃPIÇTN¾FM½?U½CSÉFQÃ=Gº<KÀH=¹ID½CHÀLT¸KQ¾?WÂA\ÄB`ÊMg¿IgÃReÇP_ÄRj»Jc½QmÄGqÀM}½O\81´\~ªa\8b°]\88±[\8a¾Y\83¾T\81ÅX\84ÌS~ÂPy¼Os¯Mv±B{°Bq¹Js¹Eq´@~±L|ºRx³Vw®Lo¬Nu¬OqªMp¥Jv¯M~®M\8b©]\8e¨[\93¢`\92£`\93¨a\96±Y\95¬`\91g|°k\80¨j\80«[y¥lwªbv¢n}ªc\81\9ek\7f¨m~¬k\85±g\80¥U\85µO\8e¯R\86¯U\95±L\8b­^\92­S\93´Z\8e­Y\92ªd ³e\9a«d¢£\\90¦[\86©g\86¥d\8b\9dj\88¢X\8e\93[\8b\93`\8e\8bX\90\91Y\92\90]\83\87d\8c\86f\8e\82[\84\82R\89\86V\83\8eP\8d\91]\84\8bR\87\92Y\88\8cS\86\8b_\83\85b\80\87e\85\92]\94\9e^\95\93m\92¤m\9c\94f§\96h\9f\9e_£\98d©\9cm±\9a_ª\9b_« m§\9b\«\99b¡\96c­£p¬\9bj¯\99d£«_°\9d\¹¨W°\9aXµ¥Q¨¤P§\9cU\9e\9eJ£\9aP\9c\9eU \9fL\9a\9eY\99 Q\92\97U\97\9bX\94\9c_\82\9dV\87\88Z\83\89b\8a\8aS|\8cY\7f\90S\7f\89Xz\88Ut\97Pl\86Bq\8dCn\87>h\89Hh}Lf\85N^\83Rf\7f^\\8a\S\82d_~c[zc^\86i]\86\\zc\id`fbjYhc`_ejeg\Zc^`ZVbdW^jWTjcTka`bUfcM^aQa^[icRa\PciZ\gVe^BefBmbHs\UnYRmfVv`_u^Sj^VuZ^l_Vga^jVTjU\\7fAUvI[mAcoKV\87Zf|La\88S\zGb|KY\87Ni\89Hi\88Uk\7fMa\87L[\8eUT\86^P\8biZ\87cP\88ZZ\85`]}[Z\81[L\90WP\8c\S\88K\\8aWQ\88]]\8fVb\9eP\¢GUªUU\9eQV¬DZ\9fOg\98Lb\96LQ¡RI©TH§KQ²LH®JF©@U«JI­ET²ILºGJ°GF¬?L±C<«K?­B8¥Q;±E0´K>³K8·D;¿T?ÅEN�CQÈRRºLL¼MGÆHUÇ@KÂDBÊDB¸AE·F>¼DN�:F½FT¾IW¼<^ÅHbÅGX¾T\ÀQg¶MfºIj³Mo¸Rs¸Nt¹Yv¼\r·S\80¨\y³Z\81®[\80²S\83¼Y\87Æ]\81¾Lt¶X|¶Wp¸So¼Lj²Cs±=z�Lt°Ds¹Rz¸S\7f·GuµV\7fªS}¬NzªSu¯T\81³N\85²L\82©S\84£Y\90\98[\88§d\88ª^\92§g\95¢i\95oz«s~£o\83§b|¦c\7f\9fou¢t\7f¤k\81\9fe\83¡iy¨h\7f¨a~§]\84¯R\89°L\88§G\90­L\8f§Y\98¦V\9b¯]\8e¦g\9c©e\9f«o\9c¥k\9e¯j\9a¨`\95\9fj\94\9ai\82\9ag|¡Y\7f\9cS\82\99^\93\93]\85\93]\82\95^\85\91_\8d\89g\89\8ee\89\83`\8d\89S\84\95_\82\97Z\82\87O\8b\8fN\86\98P\82\8cS\83\8b_\84\88Z\80\8b[\90\90`\9a\9ce¡\9fe\9d\98`\9f\9bf\9e\9dl¨\9ce¯\9dZ®\95_°\9cZ§\9ed¬§g¥\9e`¨\9eh¬\98n¥\9fh¨\98h©\9c_¥§]²¢\«£_±¡T¢\94U¢\95Qª\8fQ¦\95Z¢\96V\9e\97N\99\9fQ\96\97W\97\94U\9b\96Y\97\93W\8f\9eT\88\8fa\89\8eX\8b\8b]\81\8a[\83\91Uw\91[p\86Ou\87Fs\84Dy\80>n~Hi\8aJ`\88V^\86Qc\8aMl\86Ui\8cb[\82`f\80`exb`}]Z}dZph_gbX_k]XedVX`daagYY^[NZeTQ[YL]mXYlWX_Tca\edS`cOkW[d^Vi`WgWQ]^J][BlZHlWLz_X~bbz]_qbZp[ThUTk`Pw]TvW_wVU\81FPsE^uB[xP^\82R\\86SW\88J^~SZ\80Lc\82Ga\8bKf\8fVo\87Qf\8fZc\8aRX\84WU\8adT\8aYVy]\xbT\7fcT\83jR\82`T\8aXR\8fQO\90J[\8aRX\8cJ[\9fJX¡LZ\95Xa\98Sc\9eJc\9aGY\98L\\8fO]\95LO\9bOK¡CF¡DH§>J\9d7L¢@J«HX¹MU²JGµ:@³C;§>D£F:ªH@\9fB8¢E8±D2±F7·O:¾FIÆLF�BM½NR¼LI¹BIÂFLÈGOÄHDÂMM¾JI·<F½8Nº<VÃ>PÈCXÃ=T¼JV¹GZ»J`±Q_ºGf±Jk¨En­Pv¶Pl´SoªTm­Y{®Ut­T}¬Ry²S}ÀV\7f¿Y{ºMq³Qu¹Kq½LvµQn³In²G\7f¸B\83¼F~ºM\7f¬Nx­By´Qp­OsªHo¶Rv©Pu¥O\7f¨M\83ªZ\83\9eX\84\9bY\89\9cT\90¤W\90\9fT\96©b\95u\89±m\89¤k\85¬`{«b\7f¬ms\9eb\86£d\84\9ap\84¤f{¦]\82¦f{²V\82²V~±K\8a¬A\8bªN\8f©^\95¥Y\90¥Y\9a°e\90«c¨¬j\9b¢n\9f«k\9b­]\91 b\95¥f\8a\9db\7f\93_\87\93g\85\9aa\88\8ee\84\88m\87\95k~\97\\84\85]\8b\92^\8e\92\\82\99R\83\94R\8b\8eQ|\81L\81\8eM\88\98L\81\95O\80\92S\88\90]\8a\89^\97\92i£\9fi\98\9fa¢\9ac¨¥]°¢d¬\97b§\97`´¥`±¦^¥¡Z ®h\9dªd§\97k¦\9at©\93m\9e\91hª¡b±\97`ª¡bµ¥X¤\9a^\9e\94c£\97Qª\96M\9d\8eK£\91M¤\99W\95\95X\9b\99Z\93\9f\\92\96V\97\97X\99\99Z\8a\9ei\8a\91Z\87\85L\84\8aH{\8bL{\92P\7f\84Sy\80L\80\81Gn|VvyWmzQb\82TZ~Nb\82Jl\88Na\7f`e|ahvS`yX\r\]v[Unlb_c\ejYV`Y]QZR_WSTPZRYS]NSeYXcdQZeQg`VagYflUlb[bUSc\_h_SiaG`WRiUTnULqXXpa[\81XTy\X~Q\t\W{^[va^nP[qT[~EW\80NU\82?X\81I`zK`}G^|U^\8aTh\84JY\8dTk\83Wa\8eSj\84Ho\8eFn\8aKc\8dMP\8f]Z\80cW\81[X\81aZ\7fX[\80\Z~XS\82^a}P[\84XY\8cYR\86P[\99\U\9dY[\94MX\93Tc\9fHd\94Qj Q\\92RP\94MT\91TP\95NI\9aML¨HJ\9fFG\9fIH¡IN£=VµMR´=Hµ4R¨>G³7I¦:L¨>P ME¨DJ¨PF°R@»IL´KM´DQÂ@Q½AJ¶NUÄEBËFG¼HAÃPDÆKOÂLQ¸=QÇ@Jº:TÅJQÂHMÀ<UÂ<Z¼HZµFd¯Od®Jn¼Rg³Ku°Zw§Oz«Tm¬Xv¦`\85«Yz­[{­Y\88¯Ry¾Sz¹P\82²X\80¯W\82¼Tu²\u½U\80½Rq´E\81Ã;\8d¼I\8b´I\8c´A\84²G\82¨D~§Qw¶G{²W}¯Kz¦X\86°H\86µT\87°P\82¡T}\9bX\90¤_\93«^\8a¦c n\8e¸i\84¶b\89¼k\80³ny±i\80¨c\81 d\86¥d\8f±j\86«g\83­_\80¬d\84®Y\7f¡X\7f¤K\86¨J\97\9dW\97 O\95®U\94¬X£®j ¨oª¨k¢¥k¤¥c\9c¦g\8c¢g\86\95p\8b\92g~\8a\\85\8e_\86\8em\86\90l\80\8dn\87\97h~\91b~\93\\8b\99U\95\90S\8e\91W\8f\8bL\83\8bU~\8fU\84\94W\84\94U}\8c]|\8e_\89\8bb\96\91d\9e\92c§\9aY¢¢X§¢X³\9ej©¢j° j¯¬j¨«^£¤`\9cª\¤\9d_\9b¡l \9bi \93i¤\98b¤\94X¦\92X« ]ª\9dW¢\9eZ\99\98_ \93[ª\95W¢\8dT\98\92Q\99\93Z\99\97R\9b\9fe\9c\97g\99\9fc\9e¥d\94\9fb\87\9e_}\99S|\98I\81\86Av\87Gx\87F\80\91L\80\89Ny\80QtzUksYfu]e\7fVd\83Ne\86PexSd}Wm\81[rxTeu[bmYXh[\m^TcY[e_eYW`LROJ\UQWLPOUNRYNWaQacV`b_if_ggUbhYgbWic\m`UeUL\TPbWMn\VkUOy[Uw]PuXYzVWwQZ\80RP|[QwX]\7fIOwJQuGN\84IV\87AW\82BS\83Oa~K^xO]\83Zd\8cWc\8bVc\8aLh\89Ni\91Hh\8bJe\93FZ\8aIT\81HY|XP|SS{ZS}YXx[RwP[yR^\81Ya\87RW\92[K\8b]O\93^]\90]\\94X^\95QU\9aO_\9bN_\97N_\99RU\9fTU\9cJK\97QY\9bHW\9f<K\99=P¢;J©GO£JI«AI§@N©<U¤6O¯?M²BK£DU\9dNX¨PM§KC­MIºRN¹KC®QH´MOºHP½FP¹DJÂIE¾LK´RGµTSÄHN¿DOÃBIÈ=ZÂGY½>T¼EY�FV¿JYºR[³Hk®Dk¹Nj¶[t¬Ww­Ty¥Qz§_\82¯^~¨R\85­T\82²N|·K\83½HzµL{¬H\80²P\86­[\8b¶[\84¸^~ÂR}ÄT}¼D\8dÆF\84¾D\8c¾E\88®;\8a­<\86°G{²At¯Lx´N\84¬P\80²Q|¯I\7f¤X}¨W\81\9f^\86¤g\86¡d\9a¤i\9ec\8a±p\8f«`\88«p|¬n\8d¬n\88¨b\86\9eh\8c\9e_\92\9e[\84¦c\8a¬X\86«R|¢[\8a­Y\83©M\8f¥[\89 Q\97\94S\94\9cQ\8e«e\9b l\95¬i\9f¥e\9b\9fd\9a­g\96¥d\8a\9de\84¢py\8fow\9ag\83\9dV\82\8fay\9bf~\96b\81\8ba\7f\97h\80\8e[\86\9e`\92\95[\84 Y\82\9cX\83\8eK\80\97]\8c\8cR\87\96Wz\86Y\83\87e\84\8e`\8f\9bX\8f\9fZ\99\91U\96\9eX¥§S©\9fe¬ t¨ªb¬¢h¦\9d[¥«b\9d¤_¢©\§\99h\9d\93h\9d\91l\9f\97i°\8fV©\94W´\9cT\9f\9d]\9b\9aa\9e\9a^¨\99_\9e\9bK\9b\94P\9a\89J\94\94[ \9dO\9b\9b_\9c k\95\9dg\90\97b\97 b\80¡`\80\91T\87\97T\86\92D{\8dJ~\8ePx|F\83\81Nv\84Wq\7fUm}`hxUf{`_\8fZ\~Q`\81T]\83V`|Ri{UfiR[fUedXUbQUbSTed[]b[^aLQQTQTJUOGK`OGd^Sc]S]ZU`iO]iTbfZ`gXhjLhWLrSEh^LcVVjTXaZTg_YrZXn`UxWTy[MrUSw\Xq]X|P_xEW{GS}TM\80JL\80HJ\84GU\8dS`\84M`\8aTd\92Wk\8dJ_\8cV`\8eCh\8cU^\95U[\92RS\90PP\8cZV\7fVY\86cJyXH~YT}XO~]Z~P[\80U]\89U^\86__\93dI\95f]\8aj_\95_Z\9cRV\9aN\¢YY¡PR\99MI\9bMM\98HS LT\989M IE\97BN§AN¨<Y¦DQ§AC®CQ\9d6O¦6O°=N©HI¨OL\9cKL¢IR®GK¨RQ»ME¼FL¼KQ°@W²CS¼G[�@W¾>E±GS¹KP¼ES»QYºATÀAP¾HF¼PT½H[¶URºSWÃHbÂH\¹Pn°Hs­Hp¯Hj«JoªNu§Jw±S}°X\86 M\88¨S\8d§K\88¯M\87¬O\80¨C\85®M}»M\87¯V\82¹Y\7f¶L{�[\81ÆI~¿E\8eµH\87¿F\95°G\88°?\8aºA\86³K|¬P\88±Sx¨Z\81µ`\83¯Q\89¬R\81±W\8b·f\89µh\8b¬h\92±`\9a\9co£e\9a¢h\98£a\89­e\88¬h\8aªm\96£r\94§g\95¦[\8d¡W\8e¦\\81¨Z|¬]z¨O\85«[\8c\9eV\86\9c[\8c\9fT\97\94R\90¡Y\95¢]\95 q\90 l\90¥d\9f¨r\9a¤t\89¤q} iz\9ed\80\9ejx\9bh\80¡\\83¡d~\94\}\91Sy\96Z\84\9bd\8d\92g\8b\93`\8d\95Y\81 ^\81\9aS~\98S\80\95U\92\90S\8f\92[\87\8bX}\8dc\82\91]\84\91X\91\9bZ\99\9aQ\92\98V\96\9c]¢¥k\9d§n£¬q\9c b¢\98_\9d\95]¥¢a¡§Xª¡^¤\96` \95d¤\9de¯\9bV®\95V¯\8eV®\90\£\96Z¥\8fS¢\98J\9c\8dO\99\92T \8fT \8e\ \9dX\9f\9a]\9f\98l\96\90e\9a\99[\92\95m\8b\97m{\9a_\80\98Z\80\94Pz\90C|\88>{\85Hy{Vo\80Zqz[l~_cz^T|aV\89PV{P_zT\vT_zSbqSfg`[o]alY`nNb_Q]cYYWaPWaJ\SGUUHMcOIbOO_SU`XVb_YZZPYfVWdKihToeMv]St[Hh^HfXPb`Yg\[vW_tcUn^QndQpdSsdMvlYoc[tbO\84OO\82HS\82NO\86VL\8bYR\94\R\8bMR\88V[\8cNc\84Ih\8cM^\8dDY\89HY\97VP\96RV\91WS\8dW\\84VX\85aS}VQ\86[K\84bI\85_S}]N\82US\86]`\8b^c\90X`\8b[Q\92eR\8de`\8fW[\96VZ¢QW\9fU[¥LT\9bFK\9aAH\9dHI\9bGO£9O\9aFC\9cFB DHªAQ©9T¤6G£7O¢8M¤GI¤HP\99KK\9eJF\96RJ\9bLK\9bKU¬PS´CM¼?Q¾F]¹C^¶@T»MW·BP²>T¯CN­IN­MN´LU´DV¾DN»KFÄKJÄHQ½SZºU_¹Md·Ki¼Na½Aj­Ds¬?k´IhµKn¦R\7f¬P\8e¨K\8d\9fK\86\9dG\8d¨N\90¤G\88 B~§I\83²K{·J}¶C\87¹I\82ÅY\82ÇZ{ÃPzÇR\80¿V\8d·J\93¸E\8f½C\83¹P\88¶M\8a¸R\82³Q\82¯Y\81±d\85¯b\95¶W\94�]\94»e\8bºj\8e¶f\90§^\9d¤d\99^\93\9dm\9d\9cl\96­i\8f®d\95«q\9e¨l\9b c\94¤k\92­b\9b¬Q\86°]\8aªM\88°L\88ªQ\83£Z\87£Y\8a\90\\97\91U\9b\9e_\89\95a\87\9fp\84\9dd\8e¢d£\98g\90\9de\8f¡c\84§j\81\9dm\82\9boy©b\7f¢kx§e{\98b\80\93Z\86\9dY\84\9fX\86\95c\81\8da{¢`\86\9aU\86¢Lv\9a^\87\92X\93\8dX\95\8bT\93~b\8d\88a\85\95Y\89\8fZ\8e\94N\8e\9aX\8b\9d_\9e¢Z\99¡[\9a j\9f¤a¦¦g¥\94i¦\9e]£¡S \9ea°\9aZ¨\92d¨\91]¡\95b°\8da©\92U¯\87^«\93d¦\8eS¡\95X©\8eX¢\95S¤\92Z\9c\83V¥\8cV\9e\8b\\99\99_\96\8bm\95\8dj\89\91h\95\96n\86\94nv\8f\}\99dr\98Nu\88Gn\87Th\8bWt\7fXe\8d\o\88Vn~Y[~]U\83i[\84TY\7fJb}X[\80S_pNghKfcV_kb]aRhaVeXT[bRLZ]OPZE\Z@KWJNfPO`KMcQPbOVgPSiSV]]K[eQ]fMt`Fs_Vs[WjZUcaQmUSn^XwhPg^Pk^SsgOlbRwaOp_KsaZycSwdN\84]R\85QJ\84_F\91[R\8aMQ\87GN\91NY\96GX\92T[\93R\\92L[\85UO\8dWW\99VX\99^N\96bQ\89^P\90kO\83fZ\85WQ|YKzeZ\86eU|bT\89b_\85^]\8a]`\97ZK\94]V\96^T\98VV\89P[\93PU¥V^£NK£IJ\95ND\98BM¡GJ¡4G¨@@¡HE£AL¤8W\9f@Q\9b>R£<J\9e3I\9d?T\9d?O\9dLL\9fNV DR\98KO\9fBNªOW«BU¶C_¹=fºE\°Kc¹DZ´I\­HPµIM·IP´JP«?T·LQÅBYÇHH¿LHÄGW¸O[¬I_­G`¼OW½Ei°Mmª<p²Fg²Oc¡T{¢Lz\9bS\8c£Q\8a\9f@\92 A\87\94F\8f¢>\90¡E\82­E\89³S\87±T~½U\89½M\86ÃU\8bÉO\82ÅX{ÅN\83ÆO\8a°K\8d½Q\82¼P\80¸S\85¶P\91�T\8c±d\95·`\91²b\8bºf\8dµg\92Ã^\97¼h\8dµj\9aµh\92±c\9c±Z\94]\9f\99h\9d¢n «p\9a©r\97°h¡¯f\97²p\99§i\94¡b\98¤Y\94§S\8b«[\8a©W\91 K\9b¤N\94\98P\9d\97V\98\90_\89\96k\89\8fp\82\98e\86\97r\94\94q\97\99k\95\9cb\8d¡\\8c¨g|¦c\84 c\82«^\81­iy gu£h~\9ac\81\92a\81\95]\89\9cV\81\95_\7f\97Y\82£\|\9bU}\95a\86\95\\8c\8bR\89\8fQ\8e\81[\88\7fY\8b\8b^\92\83Z\95\8a[\9c\8aY\91\91Y\9b\8dS\94\99Y\9f¨_«¦a¯©g©\9e]©\97]§\96_°\95]¬\94U®\8fV¤\90[´\8fT²\8b^¨\84`¯\8ef«\8ee«\95a¨\91Xª\8eQ \92[\9e\89^\9b~[£\84a\9d\89a¤\91a\9c\89f\93\8fd\91\89e\89\93_\8a\8eg|\88kz\87dr\8a^w\82Ql\85Zn\8bba\90a^\90_i\8e`f\8dcY\92lT\84gZ\87fT\87UY|MWrTTvNXySblZllVg\^b[]W[ZZ_VKX_NV[KTYQR^GOjFNeSQnOKeOMaNSiORhYH_[LkUSgZLqdRs\Vi^QjZVnSWrXXsgSkfNmgYucYogNniRjmStaRseUvjY~gV\8d_Q\8a`I\90UH\8fIU\90JP\92EQ\96PT\94X]\93OZ\8bZ]\8fVR\92VR\95[T\98\T\8dlQ\91nR\90jZ\84]V\7f]Q|_Q\7fe[\8a`b\85jY\8ea`\85hb\91lV\92aT\8f]T\93_V\8dWM\8dYO\9aTU\99JS£IV¢DL¦FM\9eCH¥CD\9a<D¦@M§?I¤@G¬6V«3[¢;P¨8J¡?H\9a;P\9c=Q¥<[\9dDZ\9e?Q GT¥GO«>T©6\«;g´>]¶9d²A^µGdº>c´CY¬CYµATµCP³?MºBKºHR¾MK½NQ»KS¯MR©SM©RX±KVµGb¬>a¬El£=g©Fl£Mm P}¥D}\9cI\89\9cF\8d\93G\82\91E\8f\9e@\8f¬>\8a«L\8a¯R\80±L\80½M\7f¿S\8f¿Y\8d¾N\8a¿R\8fÄN\89¶L\90·J\88¼V\7f�[\86»V\8fÂ]\89Âb\8eºf\98±_\95·f\93³d\90¿j\9d¼j\99¾m\98µk\9c¯d\9d±b\92¯a\95b¡\9dc\9a©m\9aªu\9a¯l\9a°n££w\9c¦p\9dªv\8c§`\97\9fe\91¨_\8a¢[\88©P\91¤W\98\98C\97\97[\95\94`£\97Z\8d\90o\88\92_\8d\8ek\97\99n\9e\9eq\9d¤g\95\9bb\94§e\81\9eot\9bo\83©r\7f¢a{¨ds\95l\83\9f`{\8fa\7f\96b\82¦d\89¡Y\7f¡_\82©Z\82¤X\88¦Uw\9eX\7f\96W\82\9a^\84\8eX\8c~_\7f\89W\82\93V\83\92N\98\97Y\91\96P\98\9c]\8d\99T\92¥V¢\9cT¥¢d³\9cf²\98X¬\93U¶\9eP§\92T­\87X®\8dT«\90N¢\91I¶\8dV¯\82]´\8eh©\95]§\90R©\96Y©\8bU©\8dZ\9f\85b \91d¨\82_§\8fZ\91\8cf\92\88^\8c\8fZ\96\8ff\82\8bY}\8d_\83\86ix\8fds\7fUv\86QqwT_\84fW\8fY^\8dc^\83eg\90``\87bP\8fj`\84aW\88YMu`]wV[mXapZ]i_\gZgUYbTTNSPU][IYQHOYTDaGOWGGZNJlQPbPVcSIdUJ_NSfNSbXOn_KkUQrdUsh[u]UgYVvRNnXV|[OpVS|aVx\_tXUq[Vm^WnaXvj[}jS\89[R\83fD\86TT\96HE\93LI\84MT\95QO\89SL\85ZR\86ZR\8f_U\8e`K\92dK\8fWL\98cY\99cQ\8ega\90nT\92l]\8cg\\8b^S\89[]\8a]d~h\{ad\8cqb\81[V\84]O\90]T\8b^]\8d_]\96^X\8dXS\95OU\8fJQ\93BL\9cKE\9aAF\96=@\927N\946D\97>D¢2W©?K¦DJ¨<P¦>W\9d1L\9f5P\9d;U\9cCZ\9fEe\98Hb\92=b¦IZª7T§9[¥K^´I\µ8i±D^­Ec³Bgº>^¹9S®EU¹GZ¯JP±CL·CS¾EYÃ>[¨BT«N]©E`©Nc²S^­HX©<g­?m¢=g¡Be¦Gu\9dF\8a\92O\8e\9dC\95\97M\8f\95@\85\9aL\94¦;\94 I\89´W\83µS\8d©T\89»L\88»P\8a¼G\80�P\89ÄY\84¼O\8cÂP\8f²Z\84¹\\8c¼[\88¸\\92³T\8e±\\9d»a\9c·a\9f¸o\97¯e\92¸h\8f¸j\9dÂh¡±_\97¦^£¦Z\93¶\\93`\99¦`¡¤n\9aªn\9b²t¢¦n\9a§q\92®t\92¤z\96\9en\8b\9fk\88§_\8a£]\97\9eN\95¤T\9b«I\8f Q\9a\9c`\9f\95^\9f\99f\8f\99e\93\9ch \9bh\99\9ap\9f£d\9d¡f\91¤_\87¡e} qt¤st¤p}¤hv\97ot\98g\7f\93k\84¡h\8a¦k\86£c\8c£Z\8a®U\8d¨W\84¥Y\80\9e[\84\9fV\85\97[\89\95]\7f\8aW\84\8a^}\8dS\82\8cQ\89\96N\8c\95U\95 M\95 T\9a¢[¡¬Q¬«P¶¡Y²\95Z²\8dX³\95M°\93M¬\8bV§\92M£\87K±\85O²\87Qª\8dcª\8a]±\97V®\94]²\98R¬\8bX£\8cf¡\92m«\86c©\89X£\86X\8e\83^\93\90a\96\95b\95\93X\8c\8cS\88\88Y\85\91^|\8a^t\85^k\82XgzVb\81X\\82WZ\86a]\82cd\83c[~fQ\81hU\84hXucQvVVvZTjXXg`[l^QZXUMX[JSUOZ^N\U[XQRRTC_PG`RCdGGeHSaUUYTPYYMdNEnMEjPHlPMoZZs\]ybRscTmXJxcVx^YwW^yTZxWX\7f\cwY`tZWv`OmcSvXS\83YX\80fN\80fF\90^C\8eLO\8aNX\89JR\88WS\87TE\89QG\86WX\89^O\97dF\9f_?\98\G\9bgT\96`Y\97iY\95d_\87__\87kU\8b]U\8bZa\83hf}l`\81sW\88h_\8c`P\84^R\8bZT\8d[[\9cXS\9d\Z\94XW\8fIM\90RO\8dKJ\98I=\95H?\95CI\90CO\94=P\979P\9d<I\95>Q\98KJ\9fHO¨;U£3W\99<X\94?`\99@X\99?_\8fC^\93?b\8dD[\98>Z¤?b I\¤Cc¯EgµEm´Ge²F]¯9Y­Cb®@Zº=R¶KX¯>T¯@V¼?\·<e¨7f Cb¤Bi¯Jd²Je±K_°<`¨;f¬=o\9e@n\9e<y\9b@\85\93D\90\90J\94¤F\9b¦C\97¬>\8eªE\93²S\93¯Q\82«K\8c°K\8d­J\8c­M\82­O\83»Q\82ÂL\8e¼W\91°V\8eµY~³X\8c»]\88¸]\94²U\98±[¢¹b\9c³n\98³h\9d¶p\97¯p\91­f¤µe¥¶h ¦i¢«^ ®\\8fX¨\9eU\9d c¦©e\98µa\93«l\93¥m\97\9dv\92 j\92¥l\95\9dc\95\9e_\95¨\\95¬`\91ªO\92¢P\90\9e^¤¤\©\99c¦\99b\99\9b_¢\96f¢\9bp¡\99k\9c¢r\8c\99o\8e¦k\82£i\80 o|\96vs\9eg|\9ae\7f\90bt\9ba\83\93g\87¥n\84 j\86\9ek\8e\9eg\82¢^\88«_\85\9eY}¢X\86\94a\88\91_\81\9cc\8c\88i\80\96f\86\8d\\88\90S\88\95R\89¡T\9c\9dQ\95\9bH\9b«Q­¬Xµ\9fT¯\96W±\8dRª\94T±\93N¯\89L¯\97P´\85A²\82H¥\8aJ¯\92U¬\93Y«\93S¯\8b`­\95a¯\95Q¦\8aWª\8c`¢\84b©\90[¥\8fc\95\8ce\8d\88[\8c\82f\97\92[\95\84[\94\82_\8f\93R}\93]v\88Vo\89Qf\86X`\84Zf\86\Y\89hS\80iU\86[T\7f\^\84_P\87iS\87eS{l_uXVlaSk[de\VkbYVSQQTRMZXHPOP^PSULTK[@VZN^OJaO?jHJgPL`WObWHoKJlZDuMJj]Ujb`vaXo`NoXUkWSr\[v\Rn`_\80QZsUS\7fMV~YUy[ZwRZ|_P\82YR\86NK\87`C\84^A\82ZI\8fHU\8cFT\8cQK\8aKO\86OA\88_I|YL\8d^N\87mR\91_J\9abE\9fbU\96cQ\94pW\91fX\88aP\91m[\88[Z\90S^\8b^Y{ga\83g[\92jX\8acQ~aR\8fTa\95V]\8fSR\8fYM\94MJ\8bVF\8fSM\8bJ?\90KI\8dJE\93JG\91HM\8d<H\98AL\91@M\94FT\94CU\97>W\987[\9b:S 6V\959Y\9fG`\9d=Z\8dC]\8dC_\8fIV\94EU\98Hb\9cLX¤Jb¥Ae¦>aªD^«<`µ<Y±:^¤<Y¥@\©EY²;c«Cb»;Zº9]²H\§Cj£Gi©K^¬Mc²Hn²<gµAw¦9j¥9u\9fLz¡F\89£M\8c\98H\97\95@\95¥F\90¨E\91­G\96´J\86±R\82¬K\83©J\98ªL\89¨I}»S\8c½V\8bºV\8e­U\92µT\86§S\87±T\87­e\96¶Z\99¹Q¢·T\99±[\99ªh\9d³l¢­h¢¬j\99¯a\9f¦b\9f­^\9f§a¦´d\93¯W\99T©\99Wª¦cª¬]£®_\96 _\95¢n\92¥k\9c©h¡£k\9e«k\91¯h\95¦g\91¡h\99\9f]\94 U\9d¡Z\9f W©\99U¦\94V¢\9ea\9b¤Z\9f¡d\9c\9em\9a\9ev\94\98n\84\9ds\85\9ch~ rz\92k{\94t\7f\9am}\94m\7f\9ef\81 p\87\9bj\7f¤i\85¦l\7f\99l\8e\9b[\8d\9cQ\90¢X\88\98d\89\99`\87\9bh\8e\96f\87\93d~\98c\82\95^\86\9dT\8c\94L\8e\96T\9a\9fU§§M¨¤R³¤N± J¯\96W®\91\¯\90Y´\93U³\94O¿\92Q´\84D¶\7fD°\8fK©\8fZ­\8fY£\97Z©\98]¥\8f^ \87_«\88bª\86h¤\83]¨\8da\9e\87i\99~j\91\83h\92~b\8e\8aX\8e\88V\8c\81_\88\81Z\85\8bR\7f\83[{\87Wk\8aPc\84Z^\81X`~eS|lV\82d^\8f][\8ebY\84bM\86[^\7fdaz[^o`cm_]_W\YTZM\UN]OG_TPYQHVPLNTOORK]R?YMCZVG_PD`YI^YO`TSnVJk]JrRW{R^u_UzcTm`Qj_Mf_Xa^\j`SkRYwSS|I^\80MY\81ITzMQwPV{SNxKK\81OE\83Y@\84YL|[M\80PQ\88MU\90LK\85UB\84MC\86ZC\82bI\83eM\83eP\90cF\99nK\9ftF\9drN\97iP\8doS\89l`\92_[\94Te\8bXd\8a[X\89VP\8bcJ\8afP\80aR\87b]\8e^S\94OX\8dQM\8fOO\92XF\8dXH\8cQ=\88WA\87N?\8cTH\8aSC\93OK\98GM\8b=U\88FJ\8cFJ\96BH\93BS\88>X\8e@O\92EV\9a>[\99CW\93Cc\98C]\8c>_\9aAe\98FY\91MX\98Qa\92J`\9cI\©Kg¦<d¡C_«;i°;`§B^®?a©;a®3e¸;i¹Cd¸<e©=\¥Bc§G_£Af®Ci²AnªGo°>y­Fy¦B|¨H}§J~\9aL\7f\98B\8b\95<\82\9b?\88 J\95­P\91²L\8d·S\8c¹^\92®Y\93ªX\8b®K\84¶M\83¶P\89°R\8d¨]\8a«W\8a¥[\85§g\87ªa\93¯f\95´Y\9dª]¢«`¥¦f\9c£b\9c\9eZ\99\9dc\9d©fª¥e¥¢c ¯d¤­`\99¬P\94X¤¢V\9e«V\99\9e[\9a­a\98¬k\9a¦b£«p§±s ­p\97 m\91¥]\99¯d\8f\9fe¡©c\9e¢^ \9eX\9e£W\9b\95P\9d¡R¡«V©¦]£\9a\¢\9al\9f\96q\8d\99m\92\9ef\83¢h}\9cuy\9cjt\93g~\93i\86\95c\83\96hx¨n\86©l~ªq\84\9brz£l\89\9cg\94\9de\83\9be\8b§g\88¥h\92 h\8c\98\\80\8eW\80\96i\81£d\87\9aN\94\99[\92\98R\9a\93U\9d\98V¡\9eP­\97Hµ\9cL±\9bRµ\8dL¼\88X°\9aX¯\90O¸\8aK®\85C·\85E´\88J \98W£\8dS¥\90^­\8bN¨\91S¤\86R¦\86]ª\8d_©\80d£\7fW¡~h\96\80^\8b\82h\94\85Z\97\7fd\92\8fZ\80\90\\81\92[\82\85X{\85bz\8e]o\87\b\83Td\88_f\85`Z\82pUzhN\87eO}cR\81]V\7f]^zgWybci]]qd]f\fRaZT\]U]UTjTP`WL\QMbSMZQO_QGQM=_PAhQI_RDhNU`YNmNSbPLlMNq[ZlOMvTOl]Tg\QrfWf`TbeOiQR|YH~MG\8aUK}MUyKN\83VN{SG\82NN\87YM\81X@\8fRK|ZR\89XI\90PN\93FO\89U@\90PE\93^B\82d?\8flG\80kF\87cA\93tP\8fvP\98fM\96gW\8biQ\8beU\90ZO\94]]\8eWX\87aX\90UX\86eW\99ZI\8aVW\8aTY\92UR\98W_\86XL\8dQS\90ZB\86T>\85]K\84^H\8aW>\90UC\8aYC\8dOF\89KE\90>Q\8aEG\8dJP\8cHY\9aCW\98>O\9eF_\94F_\9eFW\9e<i\92Ag\86Cc\89<]\8b:_\9c=j\8f?e\9bVk\95Mb¦B^£<i ;r¬De§;f¢9`´<c£FX @e²9a´?c¨2g¯?dªCb¤As«Df\9fAs¡=d°Am§:p¨8z«=w\9fEn§Ht©Fw£E{\98B\8e\95?\84¥B\93¦@\8e¯Z\87´M\8dªL\85§[\94§U\90®P\8e©A\94¦L\91±R\89«R\82¬O\90¢]\82\9ca\84¥X\96±_\95°`\98¯a\9a®Y\9e\9eZ\9f®g\9b¬n¤¦f¤\9dj\96\9b`¤\9eY£¡a£¬cª²Q\94¸[\8fX¤ªa ¥h\9e\9f_\9a\9fh\9b§o¦¬i¥«p¦§q\9a¥l\99£]\92¢_\98§f\97«d\99¦Z\9f\98V\9a\99U\94\99P\9b\9fP\9a\9b\¢§U¡ª[¢¢g ¡a\95\91c\8f\92o\90\9bg\88¢my\9asx\8fuy\92l~¡p} sz\98i|\9eiv¥v}¢g\86\9di\81§`\81¦a\89§h\84£b}¥i\82§_\8b\9ed\82\9dX\82\94a\8f\9f_\8a e\8a\99Y\99\9bO\98\90I\9a\8fV\93\8dQ\9d\97F¤\93Eª\9b>·\90H²\88E®\93Nº\90V¹\8cO±\85W²\87N­\88P¦\89C¤\8fN§\91S«\93I£\8eO«\8bT­\90S²\8bS·\84a®\7fc |Z }X\9c\80^\8f\81a\94\89c\94\84]\83\94X\83\96\v\96\t\86Zk\8eah\92es\88Wm}[j~]_\82kQwtQqmKoeQ|eVz]W\80c[zcWmb`c_febcZnd\ic^^`X^`UjTTdVCeMBgP?hRBgIDVOCaNFeRL_JJcOT\QV`PW]Y[iTUkVNnLLrNYlSVxZQvcZvdZgYRlWKzXK\88\C\89RG\90DG\85GJwHFzVL\8aSI\89_E\84\@\89X@~OI\82PM\86LH\95HB\8dG=\94RA\91a?\91f?\89]@\86a>\90gD\94oF\96jM\93iS\8cba\8ae`\91^T\87WR\93`Y\8dd]\95[`\8c`V\8bdU\97WF\8aSE\86WR\90QQ\91WU\8d]V\81\Q\88SA\81NB\82Y9\91X>\97WK\8fYJ\90TJ\90PA\88?G\88>I\89?M\97EU\8bGU\8fGY\90GV\9fLd\96Q^\96L`\96E_\97Gf\8cG_\858i\956o\93=l\8f<k\8fKs\9b<w\9f>k\99Fo =o¨8n¥Ch¬>^¯;e±FZ¢I]©8]¢4c§?d\9f;hª?t©Hq°DtªAr§>i¦3m¤>n\9fCo§Cs\9dFl\9b;w¡8v\939z\95@\87\94>\8e\9f@\8e©L\94±S\8e¨L\93¥U\8e¡S\87¡P\8b©M\91¤H\95¨O\91¤X\82¤T\81£P\8e\9bR\85\9dX\8b\9fY\9a­[\97ª_\92§j\8e `\8c\9eb\95§f\95ªo¢«b\99\9da\97\97d¤\9fX®¤T¬¤V ¯^\98´W\99d\99¨d¤©i\98¢h\94\9ag« n«°q¡®r «n £q¡ªh¡°d¥ªh£ [¡¥U¥¤a«\9fO\9d\99I¤ U¦\9aP©¥X¢£b\9a\9ce\97\99[\8c\91k\88\9an\92¢f\83\92nx\92i{\9apx\96js\9bmr£r\85¦t{\95o\81£wy\9bh\83\9be\84¦c\84\9eb\8f£d\8dª]|¨`|¤b\85\9e`\7f\91d\86\8c_\88\91a\92¦U\94\97Z\9c\91S\98\98E\96\8bR\9b\87A£\98D£\96M¦\8e=¬\8c<½\84I´\83H·\8f@º\82B¸\87K¸\7fI­~K´\83B­\8c@¥\8aS±\8eC¦\85I·\86F°\92Q±\8cQ®\86]·\8cY¨\87W\9e\87g\91\89X\98\8a\\94\8db\94\90d\81\92_\87\91`\82\85g|\88dl\94Ul\96_r\83Wf|[l\7f_hxd\tsUufTslZ~oX\7f\_th[ke[ggUnjkflbbhjYpZQbfTfdYdTWpRVoZNh[ClNH^PI_MF^LQhKPiRQcSPgLQdVZmU[h\XlVGvVKjWUjHZwPXveSj[YnQJqTDoXCzQK\8eKK~LK\89PK\83KS}\I\85QH\87g@\90SB\87\:~^M\86MK\90TF\90RG\8aV?\8fP9\98P@\90[F\8efH\8ei=\87a@\89hK\99oJ\92i\\98`^\8ea\\85c[\87SM\87dY\86hZ\87^Z\92WX\8dSK\9eRG\93QG\8cXH\91OK\8c]R\89RP\80TA\88ZF\88O;\87S?\8fT@\89[A\8eTO\89VO\92KH\87FE\8eFM\8fPU\91IU\90TU\89P\\94GX\9aK`\97Ee\9dR_\9dDq\9fAl\93Dn\91=s\94@i\8cIg\87Ky\8fAp\97Ai£Ic\98Dv\9bJu¨Lt\9cEc >^©5h¢=`\9dKb«Ah @r\9fCk\98:g\9eKy¥=l©7x£?r\9d2m¦/m\9b1s\99Ce\9cEu\9d=v§9t\9b9s¦:|\959\8c\9e7\7f«=\8b§A\90±O\91£P\94­V\8e\9fU\92\9cU\92¢M\87¦J\8d\9eW\86¡T\7f¡R\82¦W\8e\9f`\8c \\91°[\90²k\8e¬d\95¬l\86¥j\9b¤h\90§e\9e¤i\9fªr\9a\9cp\91¡g¢¥T¬¥[­¡a¢©[¨´N©m\92¥`\99ªj\98®c\9f£g¯¢b­¨c®©m¨°p\9c°p\9c¬s\98©d£­]«¡^®¡W±\9a[ª U°\97S±\9aQ­\9dS¨£N¥¥X¢ W\97¥c\91\98c\96\9cf\8a\9b^\89\9ee|\98]v\9eau\92p\7f\9crx\9bwv\9dt\80\9dt{¨qx¡rz\9dk\86\9dg~¢_\87¤d\87\99a\84\9be\8a d\81\98g{\9fi\80\95h\82\98_\91\9c`\98\9eU\92\8eY\8c\84P\93\88H\9b\88B\9d\8fF¬\8bH¬\85B¶\8b<¼\857´\80B¹\86D²\80D¼\80L»}Gµ\84?¨\90D©\8aF«\7fJ«~P¨\89D±\8eQ·\85Q¯\8cY¬\89V²\87^ª\80d¦\86a\9f\82_\93\85a\8f\8de\90\8e^\8e\87g\80\85_\80\8fau\90at\91Xj\96dg\88`h\88ng\81nhxw_xn^rgSkoRur]vkXqiXpvSml__rcUq_`ga[ifYoZRu]WkbWlgIs[KkNFiRKaLIdKFiUEaNNfGNiNQrPQlSKuZKrVQjaGpZNjVWqNZwZVxUMvOJuYP{ORrNFxE@\81LF\8aDD\85GC\8bJF\86ST\8caK\90]D\84`=\88WC\89RK\7fXE\85OJ\87WA\94W>\93O@\94V=\90ZF\84Z=\89j@\82pG\8biD\8cbR\93gT\98[V\8d[Z\92^]\89UV\8e^_\8dc]\8fXP\97XO\8dOV\94WN\95SP\88^A\8bU>\84TD\85TJ\8eO@\8aM=\85QE\8fW8\91X<\8d^I\8fSH\8bJQ\8eNK\94HM\96PD\91[L\8fUW\95R[\91OY\92Dc\96E\\9f@h\99Gg\928m\95:t\9b5p\8f?n\89@k\88Es\92;j\92<q\94Jm\9aIl\99Ii£Hp\96Oe\9aGf\97:i¥>c\9dJc¦Dg£Lh\9eBo\9dAz\9bEw©Ao§Ax\9f@\81¤2~§7|\9d1q\9f,p\944h\931g\99:o\98Ao¢<n¤An :\7f¯7\83¯E|¦L\88«G\84­J\8d§U\8d£T\8f§O\8e¥U\81\9cJ~\95N|\9eN\83\99R\8b¥`\8b£]\8f§a\8d§k\87®l\8dªj\88§m\8e¦g\95\9cq\9b p\9c\9dh\9d\9cb\9f¦m\97«h§¨`¦£a¨¨b°©W¦¨V©i¦µf\99©f¢¬s ¨p¨\9ei¦­l®µy¦®l¤·l\9d¨n\9e¶k\95©`\9b¯n\9f¯`³¡Z­¬WµªT¯©\° ^\9d­e¥¤c\98©j\91¤a\8d\9ci\8b\97^\8e\8fi\83\95_v¡i\85\8ees\99k\80\9fm\82\9alv¢v\81¥j\86\9do\86¤e\88«h\87 [\8a©g\89¦[\8f©f\8b\9bjz¡g{\9bk}\99b\82\92g\88 l\93\9e[\97\8fW\90\90_\92\8fP\8b\8cH \8cO\9b\8dN\9e\8bK§\8dP³\88I´\85L°\89<±yEÀz?½\85A¶~C¾zB¶\8bE¬\85D¬\80F¬\83J¥\84E¨\81K­\86R¥\85X°\8b^¤\83S\9e\80^\9c\8ck\90\8d]\95\81f\8c\93[\8d\88]\86\92d\81\92et\8a_n\92bm\8fXh\8fXc\92ai\83_e\7frd}q_ukh{oXtbZ|oYjnRejUes]js_lvWZd]U`Y\gQPt[Lh\QmbXiVUn[JpYEmMJaEB`JFhHRdIRrBQrFFiWKkNUpLNo\MqOJmYQgKXtGbwMTr]VoYUjXVyQNs\DwZF\8aLD\87Q@\82J;\84VD\80PU\83OR\92QC\89P<\8eUD\8dXE\86fG\86V<\8e`8\92]7\8eW9\87UJ\88PM\8deD\8chR\82iI\87_B\88`K\88gS\93cY\90gV\8fdV\8cY\\86a[\8eiV\8fcY\8abW\8d_T\8bUW\89_O\8b`R\8b]O\87VA\85SE\80[G\86\C\85XB\89S<\85[?\8aUI\8fLR\8cGK\91JL\8dQC\95EJ\84MN\85IZ\83OR\89T[\98Gd\8fAe\8fA^\97Mm\9aKj\96Ci\96Hm\92Kh\95Er\8cNz\8a;r\97=m\90Jq\97Js\9eKo¥Qq\96Ff¤Iq\9c=`§@e\9d:g\93?d Al\9a?p @v Gq¨?p­=o¨6v¢*x¥/v\9c7q¡)w\9e4z£?q\9f>m\987h\9c2m\9dBx C\82¨@\82³It±H{¢O{ªJ~°G\8d\9eG\92§A\90\9fP\8e\95V\85\9dI\80ªY\81¦U\87ªU\8c\9cd\87\9cZ\8d«e\88³h\90­`\97§c\8f­d\9d¦h\93\9dk\9d§l\94ªd\9a®h\93§a ªY®§Z¯©eª³Z¨¨P¬o¨ªo\9e©m\9c¤t¦\9bq«¬g©¯m¥¨y§°k­­d£¯b\96ªp\98¯q\99´n¡°iª§c·ªa¸¥\´¦]®«c\9e°k\9d±d\91¤a\85 o\85\99a\85\95Y\85\8d^\81\95e\81\9ddz\9ff~\95fz\90^{\9bmw\99j|¡c\87¤j\83¬k\86¯Z\86¬e\8aµe\92¯d\8f¨j\87¤a~\9ad\7f\95^\83\97]\88\9dd\8f£j\9d\98d\9c\93d\9e\97]\95\88Y\91\89N\94\86L¢\8cR¬\89Gª\86T¦\8bR°\7fT±\84G¶xM¶\7fC·\8aM¿|M¸|L¯\84G¨\8cC¨\8fB¤\86;\9d~C\9a\80@\97\86I£\85R£\81U\9e\86S\93\84_\97\8el\97\8fg\91\8cX\84\88Z\88\93X\7f\92c\83\90f}\91Zq\8bTk\95Za\92bk\8e[l\8f[b\86lX~qf\84qb~o^{^WvcUknZeg`jkVlsPdsRcnMYePNcYPgYNtUJsUOqWSr^QkOChI?_ICVQBgONpERtCDuIEyFKlONmLKyZXmYKhPMoIPoNYxWZyUU|QTpSYl]Zw[IzNG\83PB\8cS@\8fP?\94QQ\87VY\8cSP\82K>\83S>\85`7\80]F\87bE\8aj>\84c=\91W>\93[@\8dQB\82QF\85VT\8bgR\84cO\7fcD\82gR\88[O\8aaU\89eL\84mV\80hV\89`N\8ecT\92l`\8ahZ\92eU\8eaP\86]Q\8a^T\83aP{XBx];\80`E\83V:\80S;{IG\80MR\80FV\8aMJ\81SH\83HH\80DT\88IR\7fLQ\80F[\7fSS\84PZ\89Ng\98Eb\9aF_\98Id\9eLa\99Bb\9aNe\97Mr\93Fq\8dGs\93Oo\9eHi\9eDn\91>~\90<z\9dHr\9aCz\9eNp\9dAs¦?f\9dDo\91Fj\87Ov\8cFu\9aLu¡Mm¤Fs¨<t\9e5z\9f-\81\99.z\9c/|\992\81 -\81¡2s\9d?o§3k¤4s\9fA\7f\9c@\81\9cEy§Dy\9eNq£Mx¡S\7f¬I\87®?\83¡B\85\9bR\8b\9cW\90©P\96§U\8c¢\\88¤U\8b¢_\89\9eX\8cªb\8f¨h\8d³`\91¬Y\95¬X\90¨c\95«e\99©b\8d­^\93¦X\99¥Y\9c¯b®³]¢ªX¡­Z\9f®Y®q\9a­qª«zªª{¥¦j¢ qª¦o¢¨\7f ®t¥±o¥«m§±k\94«v¢¯i¦¦j®¯i¹¬d½¬b²°i¦­]¤­a¡«_\99¦o\91\9bg\81\9b^\8f\9a[\94\97U\8c\94d\85\92Y\8b\99e\82\8ca\82\8cV\85\9ad\83¥Wx\9f_\86¤d\85­e\8b¦b\82¢a\89±j\98«j\96°i\92§d\90\9d`\85¤U\8d£Y\93\9bY\96 i¢\9ek\97\8fg\95\90^\99\8aY\94\84W¦\85P¦\8dI¨\87M«\82K«\83T³\83V±\80Q¶zM±|L­\82I²\88V«\83O°\81Lª\86@¡\86B¢\81H\97\81?\95\88H \8aS\9d\8aV\97\90`\91\8f]\9c\8ea\96\84c\8d\90b\83\8bb\8b\8baz\91ay\86a\86\8aau\92Vv\8cZu\93bf\8adb\8a_`\89kk\81sZ\83dZ\84o\\83a\\7fcXpmYpaYerUaq_ejNklYilW[oNLoOJcRPi]ApWRt]LsZSmKDjPNaSGURFcO?wCHsNP\80JLlOPwFQzLTtZLqRXgNOsPYjTRsKVzJNvYRrJYz[R\83]N~^E\85X;\86TF\8cSG\8aWG\88RX\8aKD\83VC\7fTA\8bY2~W>\85kG\8dZA\89Z?\8e]@\8ab;\81^?{OO{RS\83fX\80aS\7f]F\83YI\82iJ\85ZEzfH\8afR\88nL\85fR\8ffK\8cgY\8ep_\8egX\8ae]\88b]\8c\U|^J\81ZI\81eC\7ffN\87aL\84\F\7fO=~LK\84SH{PK\81VK\81ZP\85RS\85AI\82IQ\82HQ\83O[\81PT\80UV\87Sf\95P^\95Rl\9bFd\8cG^\9aPk\8dSo\97Mz\91Km\99Rg\95Hr\94Ap\8e:\84\92E\84¡E}\99Lx\98Ks\98Np¢Lm\9dJo\95Io\89Ru\85Lp\9cNo\9bKz\97Ep\9c0u\9d3|\95<}§:\84\9d(\82¨'\86¦'\81\9a0x\90=t\91:{\9aE\7f¡4w¥5{¡5|©;\83¤<y¬@\81 M\89¦D\82§C\83¦@\92\9eB\89\9fU\8e¤R\86\9dP\96£S\8b N\85¤Z\8c£f\81\99Y\84«Z\8f©^\91®_\8e£`\93¥]\95°e\94¬^\86±S\90¦P\92²S\9c±\£ªX©ªT²¬T­£aµ{¤·v©¸n²©u©§m¦¡r£ r\9c¦w\9c«z¥°r¨©o¡­l §i§¨t±¡r¹ªk·®f±±g¯¯g­·g¡²e\9c¥a\9e\9eg\9c\95j\8e\99i\90¥_\96\9f\\92\9cY\91\94U\84\8bW\81\8c_|\90^\81\97Qz§T\83¨Y~®Y\85¬Z\8a¦Z\85¤h\96¦d\97¬j\8c¯b\8b«Y\92¦Y\90£b\95 Z\93\9eX¡\9ed£\9db¥\97Y\9d\91\\9a\8fX¢\87Q\9f\80R \83O\9f\88K©\8bJ¢\8dN¦\84W­\87O§{T°\7fY¯\84W¯\8aV­\85S¤\8dU©\88I\9e\8cF¤\82@§}C\9a\81G\93\82R\95\88[\9a\90`\90\90c\95\8bb\98\8b]\89\87Y\86\90V{\92cy\85g{\7fb\7f\83`x\7f^u\8ack\87_n\86Vk\86]^\8cZd\8fhg\87ae\81efxmdmoYpcaoe`ejUkjVilP`oRdlN`kRPaSAaXAeQIhRDrNEuRJkPM`QLdQL]H=aIAtG<yE@zONuNEsIK{GJxRKrIRoKQnOZnURlOIsNMqJGoKQsXE\80VJ\84WD\87\<\8eb@\84VH\80JD\8aMM\8d[F\80Y:\82Z4\86Z;\85[=\89cG\86hH\93^E\97^K\8c\D\8ccL~]Rz\XzUV\7fQV\87YL\80ZB\80gH\83mQ|aHwe@\7fmG\7fnG\88wS\88tR\80zW~zX\8ao]\84cW\8df]\84g]|mN\88^O\87_R\86`B\89SC~XLxVDsTH|\T\85TP\85[X~MV\7fINxIT~STwRQ\80TZ\89M_\84Wd\86Of\93Ti\95Pd\8cNd\8dKl\8cWq\8a\k\8eQp\96Kw\96Hs\91Mz\93C\82\90@{\94C~\9fOu\99Rr\9cMk\95Oo\92S{\98V{\98N\7f\8fUz\8cK}\91K}\99Hw\955t\944\80\9a9~\9c8\7f«0\84¯3\80¥.y¡1\82\93=|\91J~\94E|\9c=\81¢:\82¤6\8e¥8\8a\9f@\8c©?\80©<\89¨J\89¡C\8b¦B\90¦D\88«J\8f\9fW\8f£[\8f£Z\91\9dV\86£[\83\9bd\83\99e\7f\9dY\85©\\86¨S\93¥Z\85©U\87¥^\8a¨\\8f¨Z\8d¯S\9c®]\98¯V¢¦^² Z³\9fe®¦a±sª°f¦³p®³s¥§o¡\9fp¯©x§©s\9a£l\9b¨w\9b²m¢¥j\9f±k««o®\9ej««c½¸m¬³eª±^§¹b\9c¹d\98²l\9bª_\94 p\87\97d\8b\9eU\8f¢[\95¦[\88\97S\7f\93^\80\99c\83\97^\89\90U\82¥Q\84\9aX\84¡b\85¬T\91£S\90¯Y\8b§`\94£f\8b®j\8d°Z\94§h\9c\9d\\93¥O ¡^\9c§g§\9bc£¢`\9c\91R\94\8aZ\9d\8bZ\9c\83Q\9a\88X\9f\90Q¨\84V\9f\80N¢\80V¨{Q¬~Y±\85V«\82`ª\8bU±\83W¯\8dP°\8cE­\8aM§\88C¤|R\99{N\98xJ\96xY\8az\\8f\88Y\91\8aY\9b\86[\83\90X\87\89]\82\85m\7f\8agq\85]{\7fko\84p}\84os\8ecf\8a`g\82Zd\90f[\83h`|\^\80hhwbexpgm_]kakdYdf\WZ`OWgRS^X^lKT_T?nP<kP8hWGoTJvOCcUH]IAcTFiA:mG?lK5tKCvQ>{AA{@G\81>N\83@QsIXkKToSQoLPuPYmPOxVPnGIxM>w]B\84\K\84_G|RA}TC\83MJ\8cGF}QG\84R9|\A\82^=\83d@\8ad=\8a\G\92kK\85hC\86`G\89YI\7fXOzcQv`SxZUx]E\85ZR\84gK\86kD}`SwkMydK\84nW\8bzT\87|M\81{X\81vN\8bu`\82c`\82d]\85sK\84kP{kO\84cV\8feQ\91`F|RL}VAp\K\7f`K}]M\88[_|YS\85SW\82NM~[R\85NY\89T[\8bNe\89Wj\91ah\92T`\88`^\84Xh\92Xh\94Zt\8fNk\8eTl\8eUz\9a?|\9bHw\9eIx\9a9\8a\8bD{\9b@z¢Hp\91En\9bUt\96Sl\8b[u\93Yu\90R\7f\92I\80\91Ep\96Cw\98B}\8e5v\93B\81\98?\81¤>\80\9d9\85¥/\80\9b7\84\9d8{\9b8\82\93=\89\96C\8b¤6\8c¡7\87\9e;\89\9c8\83§9\83 :~§=\8d\9bB\8e§A\97ªG\89¬L\83\9fR\89¡Y\83¢\\91«X\90¥a\84¤`\7f\9d\\86\97b\8a\9aX\94¤X\91­Q\99§]\93«`\90¤\\87ªV\95°]\9b«X\95£_\9c§^¤\9f\¸\9d[§¦d¨n ¬d§©qª¤o§¥u ¬jª«r\99\9eu\98¡w\94¥m\9a°t¥«q¥¯j¬©j¥¤k·®a»·a«²f¬µb«°X\9b®e\9f²g\96±e\8d¨l\91\9b^\8e¦Z\88¤`\7f¨[\85§]}¥S\85\9bd\86\9cd\88\99]\88\99W\89\9c]\8b«Z\8e®T\88¨T\93±]\96¥[\91¤j\8b¢h\96£i\9e¥e\98¡W¡\9aT\9c£V§\9f^¥\9e[§¥U\9a\9aU\95\8bR\96\81O\93\81M \85O\9c\84[§\8eX\9b\80V\9e\83K\9c\82Q¦\81P«zT¨{^¥\82Y­\89L¨\8dI°\8f@µ\8fD¨\8dF©\8dR\9b~S\9a\80D\8cxP\8d\7f^\99{\\92\88U\8f\90]\88\8ch\82\92kv\8cg{\90do\96hp\8ch|\88pz\8emk\8bni\89_a\85[Y\8fe_}b\ta`j]anb\xcgt\fm\k]S`e[U\[T\\SSbQWcUScLMlO9gG;nJ>gB:eDEhGFhK;qG;oI6yH2tA6zL2oG;yE;w=K\7f9T\83=P\84HWwKSvQWvORnQ]sQVvKKzJB\81N8}V<\83WF\85RF|QD{OD}NB\86JH\8bJH\82T;\8a\F\87[D\8d_<\89Y?\84dK\8aiK\8diK\81iD~^O\8c\R\86WS\7f\Q}aQyeN|kW|cO|bM\80hO}dD\83dE\8fuQ\89}^\82s\zwOtkL|kVyeR\7flV\87qW}xK}uO\89`V\8bZL\88`P\80]OrZKn_JpVNr^N|XWzXOzOQ~LX{QO{U]\88JZ\93X]\8c[e\93`j\8d\`\89de\80^a~ca\8dYe\92Ym\96Xq\95Ou\9fAv\99Hs\9cA\7f\9a>{\90=\87\92H\87\9cHw£Il\9aOo\96[u\8bUn\92Zy\96W}\91Mp\99Lj\96Dl\95Iu\8d?o\92<s\9d4w¥;\88\9a8\83\976\86¤Ey¦B|ª8\85\9d.\90\972\8f\9e?\85\94:}\9a<\86¤5\90¨<\8c\9c6\81¡:\84\9d7\8b¡=\91¦>\95£A\88£K\82¦W\88«T\8e©Y\8e¢Z\91\9fT\8c¦T\96\9c_\92\9f^\96\9eV\9b¤S¢¯`\9c´^\98­d\8b§f\8aªc\94¨f\95\9e^\94¤X§ªT¬\9eaµ\9b\¬g\9f­j­¤g¥¨k±°b©£c««o¡¥o\97¬j¡£r ¬i«¤t¯¢m¥°e®¬a²¸]º®f¶¶g¯·c¦«Z\9f«^\9b¨n\9b«n\94©n\95£b\91¨N\92±X\8e§S|¯]\89¤N\88¥^\82\9e]\85\94a\8f\99U\90£Q\90«^\9a©S\98¬S\91¨`\8e²`\9d­`\9b¢p\94 _\99\9cb¤\9eZ§ U§ªX\9e\9f_¯\96`§\9cW¢\95\\94\8aV¢\82_\9c\82U¨\92^\9c\8bb\9a\91\\97\8a_\9a~M¦\86K¢zS°\87W¬~Q³\86a¦\89]©\90W²\8dO£\92P\9e\8cG \8e\\9b~T\9azN\94tP\8f\7fU\89\82X\83\82Q\8e\8b]\81\93h\88\91i\7f\8e[{\8a^z\8a_j\95gk\86qv\8aui\8dlh\84ob\7f\_\8agg}c]ud^o[nrcpqVoxWerangVfWOQaUIXZSMWMHUIV]MAiFEoD<rJEoQ8fJ>a?=^I9lJ=lD1i?1m>1n=4l?8~B?v;M\84:K|@PzDMyNMzRN|FEzHHwMZvTM\80DJ{RJ\81Z:\86LC\82JMzH?\88RE\87R;\83J?\84U7\8aTF\87Y?\88ZC\82]A\90g?\8ajF\83aH\87lG~gB\8ciC\90dI\80fI\84`NzjN\83bV~dH\81kQz^V~mNxpJwhOzqO\82\81YtqMzqR\7flHxmJrfU\80gXznK\85~N~sQ\81pV}iV\89jW{]Gz]GzYRtPFpVGxYTzMXnNV\80[TsRYzX`\7fK]\86QZ\8eOa\88Ne\91Rd\8b]b~Ve\8a\b\83]o\88Vo\93Rz\9bUm£Pv\9fE|\92Rt\9aC|\9c>\84\909|\99Kz\9dJk\90Fl\97Ir\99Zl\95Px\9a^v\9eXw\9bNi\9cGw\91Hv\95Bs\98@}¤B|¨;\8b¡A\84\989\82\9d?z\9fA\87§0\89\9f7\94\9e-\88\930\98\90>\88\98:\86 8\92\9c<\8f\9eB\8e\9aE\86\9e@\87¨6\80£7\87 D\8b¢C\87©M\85\9eL\8b§X\91\98[\95\9dU\90\9f]\94¢S\91 W\95¢[\95¤W\9f§`\96³c\9f§_\99­_\90ª^\97¯X\9c¨\\98§T\96®Vª\9f\¡\9ec¨h°±j®«n³³e«ª`´¨i®£p«¬w¤¦x«¤j¡¬u\9e¯qª£qª§d­´e·²c³³[¥¬Y¦°a¦­\\99©X\98§e\8f«\\8f®a\90®X\86¸O\8b´Y\83­R\84¦U\83®T\7f¦U\88 X\82\9dU\8e\98Q\8d J\90\9fT\96©S\93 U\99¦Z\94¢_\9b©^\9d¡g\98\9bb¢\9b`§\98c«\96[¡¥]¨ \­\9eg¨¤b¢\9cd¥\97X\9f\8eZ¥\91b£\8ej\9c\86a\9d\82X\9e|W\98\81X\9c\80S¢\83J­\80M¬\86X¬\8c[¯\8f[¶\95T­\8aR©\92Q¤\8eS\9f\93W\97\8bM\97zJ\8bzU\83~R\81\83V\84\84W\85\81Z\84\88\\7f\87]v\84`v\8feq\93du\91cj\89op\8dkp}qn}wo\7fmg~pi}cazd^}VixYb\80VlxNovTgfRdbOQVYLLVLPTOVXMKiCKiJDpP9iM;iI5dF<^=>d@/l?5nE7gMAkK;nB;rB8|=;\7f=D|BH\849O\88EQ\83DK\8dOE\86HIwJTtNOuIKvFE}JH~QB~QD\84NH\81H?\86J9{K9\7fW3\87Y8\81X?\88cA\88]@\88fM\8bjN\93aK\89gJ\8dlF\89k=\82n>\87fE\84kF\81kO\7f`X\7f^PyjU|jMrdRseNvmNuwI\7f\82Jy|WouLvvHptCtkN|rHziP~jU\86rW~rZ\7fwMwxU{jMqhPrYOpQTsVNwNLtTKpVIs\V|V_yXWxM`\83R^\84W_\8dOj\83In\87Rb\81Rd\82M^\8aYg\83Xm\8bRu\92Vx\8bUr\95Mv\90Js\93Qx\9eR{\99A|\91;y\90=o\8d=g\93Kl¡Lj\9dMl\96Xu\95Ym bi\9b\h\8eLs\92Mx\99Fw\99Iz\9e>z¡5\82¬;\88©B}¯7\8b¨;\8c£8\98\99/\93\949\9e\971\9b\98:\92\8f7\8e\97C\8b\9a>\96\9fH\94\9fA\93\99G\88¡;\7f H\83\9dE\8f\9cA\96§I\91¢P\8a\9eT\92¥L\97\9eT\91\9f_\98£X\97¤Z\8e\9f`\96\9fc¢¨b\9c¶Z\9c²]\99¬^\96³\\92«Q\90¢W\95«[\9cªU\9f¥_£ f¡`®·m©°h§°`¤ªh§ªl¥¬j\9f¢u\9d©v£¦g¨¢m¨¦r¬¨l¬²k³²k«ª]°¼` ¸Z\98­V\9a¶S\92®b\8c«d\8e¨a\8a²]\8bµP\83ªT\90¢\\83ª_~¤O\8d¤R|¨V\8c\9fX\82¦^\87£]\92¯R\8e¬^\89¤T\91®\\93\9c\\95­c\95¬c\99®\\99\9af ¥^\9f\9b]ª¦b£«c¡\9ef³¨c§\97g£\9cd¡\8d[\9e\8cWª\8fc\9c\93_¥\8cU£\94R¥\89S¥\8d]¥\7fZ°\8eK¥\8bS£\8cN°\95_¹\98O³\93O¨\8dR«\89G\9f\86X \89L£\88H\9a\82Q\92tV\8bwZ\82\89S\82~T\81\8a[}\8dU\83\7fX\84\8bc\7f\90Y~\8dhu\8apn\96xf\93sd\88ch\87un\7fsg|m_zdYr^[}[iuTjyOdvP^rXbi[X^X^QYLTbGQXNUh\PqHBnM<sA;qEHpF=gA6gF6tB<rJ0nD>vI/z<8uN:sEA\84CFzAD\83@@\871E\8e@I\7fJ>\89IH\84JH\84CBvAKtEJm@4~S:vQ<xOD{GFxS:\80I-\83R1\8aX)\80R9\85XB{_>\8dX3\7fgC\85rI\8dcF\8c_K\89nA\8c^D\8ca={Z8\80cI~iD\83mK\83bW{`IviOtfCzhSplB\82sK\7ftM\85\86KtrHrvRvvIniXwoYtmN|xRzyN\7fvTwmLtoNtlTodVvZNzZNv[Jy_XpVSzVKyaWrbQzW]wVc\7fRg\8a]e\80Id\80Ln\85Zq\86Ka\86P^\85Yr\83Tp\8a]u\84K{\92Nr\94J~\93S|\8aH|\92Ky\98E\80\92Gw\8d?{\9e?y\90Kg\98Uq\9bTu\96Yi\8cUp\91Ql\99Xh\97Ow\94Ks\8fJ\81\95B}\92E\85\96<\86£A\89«H\7fªA\8b¡7\92\910\91\9d%\96\92(\8e\9e.\97\927\8b\9a8\90\9c7\88\99C\8e =\94\9a;\89 5\8b\9d>~\9bC\7f¨>\92¢@\8c¤E\95\9cW\94\9eS\8d\96O\97¢[\91¨P\8e¦T\99¢T\92­X\99©a\95¥[§\9fU\9eªe\97®c\95º[\99¤`\8f®]\96£`\95§Xª V¡¦d¨]±Äd³�j¬¾c¦¯m¢²o¨¦q¬\9f|¥©z\9e§t¥£|¦£{¦¥l©«b±®b¥´a¦³[¦ºe\99·a\97²X\92²]\97¶_\8c¬V\81ª^\85¯W\87¯V\83 V\7f\9e]\89£]\85 V\87\99U\8c\96Y\85¤\\94§W\91¬\\86¤\\88¬Z\89\9eZ\90\9fb\94°Y\95±U¤¬R¡ [¦\9e[\9e ]\9c\9da¥ l¨ªe«¢j­\9bc¬\96Z¢\96[¢\93Z \91[¦\90S«\8bS®\94P¥\8e[£\87[­\87S¯\88X´\94Xª\91X¯\91[³\95Q®\94R¬\8bW¥\88Lª\81Q \8bN\9f\88H¡\82F\92xV\8e{\\8c}V\82|_~\8cUy\90V}\85Tu\8a_~\94]\83\88`z\8cem\91pk\8djl\8bdf\85cg\82oonlqr`arifu`crWVcTZdTYldcpa_aU]]cNfcP^bQ^iZVnMKxD@j<@mCDkO=jJ?qOAuH9\7fK4yJ5w=;}>8}ME~KG{=F\818F~5@\858B\8f>8\8cC;\8276\81;;}E>\81A@x?7mH1rI4~JB{M?}LB\83P<wR0}V*\87Z*\82b0x_9xc:\86^2\84_>\85hJ\8b`L\8afQ\8cmL\8abO\87_C}X8wZ8|k@wdQylRsfF~^B}_Dy_J\84tH\80zE{{?\80\84D\86uI}qOtnQpuQywNzj[w{Tv|N~{XzlSvtP|lL{qXufXqiWpaTm[PuXTwX\o_SmaexVe\80Xg{]_y[[\82S\{S`xZs{Lm}Mm\80Mr\80Ww\81Tl\82Lo\85Lw\90Lx\8bLw\8dCy\96Hz\9dGz\99D\80\99A|\968p\99@p\8fQu\8e\z\8aZs\8c`t\94Um\97On\97Ql\98Oy\95E\82\97J\83\93P\80\98G\81£M\85£B\86\956\91\939\95\92+\9d\92*\94\9d-\91\97/\8f\9d-\8d\990\97\9a1\8d\8e?\87\92?\81\9c@\85\95:z\9f:\7f\9e@~¬@\83\9cE\89\9dI\88\9bV\93\9bS\98\9cI\99\9fP\88¦G\83 J\8bªY\89©[\92 Z\9d\9fS §X¥¡b¦«_\9a¯W\9e¯a\92¬f\8e¢^\94 Z£¬W ­d¨e§ºb®»k²²a«ºb³³q°²p·´y´¨t«¦z°®v«·{³¶m¦·[£®[§²X\9b¿`§¹d\9e²Y\97±S\90µb\8f¸l\8c¦l\8d±j\84¥V\82¢V{\9dU~¨\\85§R\7f¥P\89¥`\80\9bZ\92«b\83ªb\94°S\86 [\8c¢U\91§U\8e\9aL\91¥^\9f¶[\9b®X¡¤V©¥T©¡X¯¥_©\9dZµ­a¶\9eY©¦\³¦c¢\9eZ¢\96a¢\89Y \96_¨\94O±\93Y­\8f[ª\8fRª\83W®\8cQ¥\8ea§\8cX±\92R²\94^©\92Q­\88V\9e\7fK£\88K¥|R\92\89H\93\80S\8fzL\86y[\84\87^~\82Zt\83]y\89Os\85S}\82Uu\95_~\8bbw\83fv\88rn\7ffk\83guynvqglmfhs[hdccbe`obhbWdf[iki`lcblbZc\b`_][fWTm[WjYO\7fHK}N=qAN|L<p>AqJEw@>\83I:z@=yM5\82B:}DE}A?\8aBN\825A\8b6H\8c99\8963\90>0\89<5}57\81??\80<8qE/r9*tA-t?<{?A\7fJD}?:lF+sM+~`-}W+\80_4\7fX-\85d=\84Z3\82l:\82gJ\85eN\81`H}hEwgJvS>t]8~aC|eDtmKwlFx^H}`BndD\80nK\84w;\83uFw\85D\83z=\84|A\81lGvn[{o\{oV{x[p\80Or~SzsJpjO|lWu^Tw]Zn^VuVRp_O|eSj^\hYWv]as`]|Y_t]_vY[nV^yKmuR|tYm|Uhs\o\88Wz\86Yv\85Vy\87Mu\93U\86\9aSv\8dIp\8fJs\99Ju\91:s\95E\82\91>x\9f>y\91J}\8b[s\96`u\95d{\96Uj\97Lq\96Ns\93Pt\8cK\84\98F\7f\9dCv\98E\88\9fH\8c§?\81\9dC\90\900\9b\94-\91\91(\95\97+\99\89'\87\903\95\8b.\88\898\86\8eG\92\9b<\8a\99C\90\9b8\89\9e:\8f§A\7f©?~\9fA\88¡P\83\9fS\91¨I\98\9bN\96¡P\92¦R\91¬Q\85­O\84¨U\85©S\9a\9cT\9a¢T\9a¡_ª§U¡§Z¢¬_\92¨l\94¤i\96¦f\9b f¨¨b¦r¶Âk¯Äa·¹h³¶r·²nº·pµ·\82¶±\7f«·{«¹u¤»w®»p¨¸e£¿a\9f¼]\9fÂ\\9cÈS¢½R£»Z\9b¯e\94¬h\8a°e\84£m\83¡\\87¢[}¢]{\9fV\88\9c\\86§R\82¥X\90©]\8f¨^\95¦]\89ª^\8fªS\8d\9cU\94\94M\98\9aH\98\9eS\9d©X§\9cO¡\9d[\9e£Y¨¤R¬¤U¶¦Z¸¡\´¨b¨®d¨¤Z¦¢Z\9e\8e]¤\87b§\8ab²\8fY­\99a«\9aW¨\89T³\91V³\89\§\83^¦\8e]¯\8cVª\94R\9d\8bT¡\8dW\9e\86V\9e\80X\9auI\93yK\98\86P\8d\84P\80\81\}\86[t\7f[z\86av~Uo\86Ot\90Xx\8afw\87fx\83kp\84gq\7flp\81j|v`sjbtfWwh\kck^dk]bpaahhjiimcdjedfdffcldkeYnmJjcL{UCzSG\86TO\81HKz<Au?B\80=D\85;G}DG\84GF\88E:\82N?\81R<\89GD\87DD\87>F\8cH=\91@;\8fA6\92<0\8c@6\8a?6\8462v9=~8:w:1r>7n>3xB8x:5pE2qD*tL,~U+wS'zO'\81\1\84^7\80b<\81g9\89ZD\85]L\85gJ\80eKxaLx^;zeJyeHnp>rjCvf;qkDwpErnJr~>}|Aw\7fF|{B\83xJ}vB\7fvQzrW\84qZ|tN\7f\83Mz\81Um~HltLkhSphPqaVj\Lp_SuYV~UUva]sabrZcr`]qf_te`idad_`ePfdXonPwv[wnZp\81\z\82]x~dy\88a~\87e~\91W\83\9bU\83\9dSr\95Lz\96Es\95Au\93=\7f\8c@\83\95H\85\99O\80\8e[w\92V{\91]r\86Yr\85Qm\87Iq\8aGz\91Du\8aIw\94J\83\99F\80\93I\85\9bB\8d\8f8\90\912\97\8f)\9e\85'\97\843\9a\8c-\8e\8d)\92\8a.\86\875\83\8d>\8c\8fF\96\99B\90¡A\94£:\92\9bA\86\9c8\84\98?\8d¢J\8b«V\93©P\8e\9fL\94 I\8d§L\84§H\86¯E\86¦G\88ªV\8e\9cT\9a\96P¡\9dY¤\9aZ\9a§d\96¨]\97¥f\94¢h\99¨p\9b©p¢¬p\9etµÅp¿Âj¼Çr´¶t»ºe¸»r¶¸|½|¶¹z«»\7f°·{­Åe§Ài\9e»g\9fÆi\9d¿[\9e½U¡¶Z\91°e\93«^\8a³f\8d¬j\8c¨p\88­e\89¨d\82\98Z\88\9cf\86\95]~¦]\8f£\\8b©a\89­e\8b®^\93«V\91\9fN\99©J\8f¡R\97¡J\9a©X\98¨W¤«]\98¡M¨¥`¤¢Y¤¨Qµ¥T±¤_¯\9eX«\9f`¨\9eX®\90h¡\96g¤\97h±\94d¶\97\´\90U±\94P°\8fP©\8eJ¬\8fN©\91O®\85X¤\90S¯\8bOª\92W¡\82_¢\82]¢\85O¡\87T\9b}U\89\8a[\84\88a\83\85gwvbu\81bs\87U\81{\q\88S|\8bOz~Sv\84W\7f\82bpslv\83eixkmf[wieocgqjdrdk\WiWUkd^Y_khg^ggahZbh^eqafrebsiRxcOq^KsWLtWG\81KFtCEyBNy7E}3E\846L\7f<J\7fI8~?5\83?5\8e?@\8e79\8c>A\82A;\9077\91;6\9371\85</\9790\80>8}77s@0\817.rA-}B-{A5\85C9\82<&x9*tF!\87M)\83T zO'tZ-~V5\85XA\85XE\88cJ\87b=\8ddI}gC\80cA\80l?{eD{g<piGrdOtlLuoG|k<tiLsy@t{FwuE\83zNqrLvs?}zU}\7f[}\82Xx\82Oy}H|{Tf}Rn}OilQbcTjfKafMl_NmhSggYfcUnh_miofhjmec_kbZfi_VcgSgjNrkUnpSuv\nzSv\84\x\80`\86\85c\8b\8dY\8a\8d[\89\8dW\85\91W\84\8cM}\8bCy\8eCz\8eCs\89:y\8fF}\96Ey\98Oz\8dSn\98Wn\94R~\80Lq\83K~\83M{\83F\8a\8aF\86\94S}\96R\7f\8aL\85\9a@\8f\95:\90\905\91\904\8e\90/\93\85-\94\82*\95\91.\88\8f@\8a\8b6\8c\95@\92\97B\96\98N\8b ?\8e¥2¡\9a9\93\9c@\93\9cD\87¨C\87ªE\88ªU\88\9eG\86¥J\95§C\89¡?\87¡C\8b¦T\90¦J\8c\97R\8e\99\¡\94S¬\9bY¥\9fb\9e©c\8f ^\97ªj\99¬h ¢p\97ªv\9bt¹Ét½Ås¶Âp¸Æf³¼m¸½q¶ºvþp·ÅzºÇo²Ën¨¿l¬Èc\9e¿]\9fÇg\9a¾d\94¶b\9a¹Z\8a«a\8b«]\8c³f\92«b\86­i\80§e\81ª_\89\9bf\81\99g\86\99c\8f¤f\8b\9dg\8c\9f[\8dªY\94¢c\8e£d\90\9bY\93¤M\90£L\98¨\\9f©\\95±_¢´Z\9f¨[\98ªU\9f Q¡«[¬°]ª `¹¡T¹¤W°\98X´\92e«\94jµ\9e^¶\99XÀ\95U¸\92R¶\92R´\98T®\94O§\91G¤\93L­\89P¸\8eVµ\86\¨\81Z\9e\85V\98\88\¢\87[ \82\\92~X\8e{]\88\89^\86~`\82tc\84w`y~j\86\83b\83\82W\82\80W}\80YwzVtoipzmm}dmo`hgYxp`wjhqZjjZoeUj`Yf``Yg^]iV\eZlYUoX`y^izZazb_|_V~_Z}SVyMPpSKqONw:Q{:O\849J\88EK{?E\819A\8997\8905\8873\8a0)\883.\8c8<\8a19\81A7\87A:\88C4\94B7\8193\7f=7\847,\83:'\845,\81=4\8858\84:5\834'|;"w?(\83J%|T&vS+uQ'{\2\80X1\81RA\90QB\8da?\8c\3\80^8veA|l>wpCzc7p]HvfJzgP{nDtjHqs>m}>rzH}wHx\7fLywMvqJ~yX}\7fU~\81Hv\82Lj~FnsHkwOgwTfrWdjIkgNhjZicZmhYf`Yb^Rf]]`jj]kga\ncip\qehcqdVkjZwnOsuNwnMu{aovcx|[~\84_\87\85]\85\8aX\83\87N\85\8dJ\86\8eJu\82@t\8cIo\85Dw\80Gw\80?\84\82F\88\91K}\90T~\8das\87Sw\8cS\84\85W\8e\8dP\8a\83J\92\87J\8e\88T\88\89V\83\8bQ\8f\89@\96\8c?\93\957\9b\8e/\93\923\8f\8c(\96\89,\8b\95:\8a\96A\90\91F\8e\8e<\8c\99C\87\9cI\8f§D\9d¢8\9e©=\94¤<\96¦@\97 L\86¥N\8dªK\8e§K\8b\99J\8d£Q\85¨G\82¦S\8a¦P\8f\9fK\95 S\8f\9aX\90\8fQ¢\99T\95£^\96\98`\8f\97b\97\9fg\90¨o\94°y\8d®q\90tÊÄ\7f¿ÂvÄÂo½�l½½v¾ÇvºÆp¼¿z½�{À�}®Æm³Ìq¤Êm¨Ìc\98Ãc\9e¼r\9fÂv\97Äj\9e½c\88³l\8d´j\87®c\82¥b\84¡l\8b¡`\8a¨h\86\98o\87¡g\92\97k\87\98j\91¡^\88±V\82¦T\88¥S\93\9b`\9c¦R\91£Y\96§S\91®\\9b©U\97±d\9cª_\9d¤bª°Uª©e«©Y¬«\®\9f`²\9bZ©\98W³ ]³\9cY¶\92a²\95T³\92U±\96H»\9aW»\9aK±\90P¥\8cU°\91S¬\97N¯\8dV«\8dT¡\85`\9c\82X\9d\89]¦\80R\94\89`\89\80d\90|\\97\80^\84\84\\83yV\83y`wx\xxV|sbt~S~wZ{uYmxctxbopendet]cqfjydcgbgkSjo^hhY^fbUacX^`T[^l\cl\gzZbz`e\84e_}^U|_\\80LX\80ONuKF\80PR{:V\809N\849E\82A?\84>?}@A\8083~5.|73\8c*-\8b*-\8f7*\8e,:\8847\8a/.\8e25\90;=\8a:*\8685\8cB/\846*\88?1\8559}06\7f8/v4,w@+zA\1e\80J/|H/vI#\82P2\83[:tZ>\81YB|S<\87g>\82^B\83d:vm5sk@xp7tp6qlEyj@ql@\82j?wo:qvAy}@{|@r\84@psNnwPwoTt\81Nn\80QoxPr\83KgqGl{E]}V[lW[v\kmRcpZki[jkTclZacU\_Xahg\hd\lhj[tipw\li\aha^fm_nkWomWxo[uxY\81|T|t\\85\82Q\8f\8b_~\90b|\91Rz\88O\87\88J|\86Ay\80@w\80Jt\84=wwD~\83I\7f\8bJ|\89[y\8cTy\83K\89\7fK\8b\85J\91\80L\8a\88J\85\94V\8d\88L\92\8dX\8e\86R\94\8eF¡\85@\92\98?\9f\978¢\8d;\94\93?\8f\8e3\98\88C\99\93@\8b\97@\90\92L\90\9bP\92\9dG\92\97H ¦:\97¢9\98©>\94©M\88¥E\8c¢W\86¤X\88\9fF\8a\9aC\8a¨?\82©H\94¨S\91 U\9b©Y\8d©N\94\9aV£\93V\9d\97O\9c\8f[¤\95\\96\99^\97¡f\9d¦q\9b\9do\99¢t\8dsȼzƽ}ÃÆxÂËpÊÅtÂÀp»Åx¿ÅxÅÇ\7f¼Är�Ñu·Îw©Óz¤Ñq\9b�k\9eÇw¤Éx\9f�|\9aÄr\90¼k\94­q\8cªn\89¤a\8c©m\92«g\97©f\99¨i\91\9fm\85\99m\85\9fe\8b\9c]\8aªW\86\9cS\85\9fO\92\9eX\95\9e^\9b\96]\8f\9eb\90¦Y\90«_\90¯e\9b§e\99°_§®i«²b°©Z¯¥^­\9e`¦¡\ª\9f\´\9a\¹\92R´\90Y¶\99P¯\94O´\9eS¼\9dL³\90Y³\93[®\91V«\8fX°\94M²\86P®\89P«\7fZ\9c\82W¤\83S\9e\86W wa\91yj\98ze\94}^\8ezV\8c{P\83}[\83tR{rW|r_vq^tudqxaet`cubiibnhgp]lj[lo^ja[_d\`ic`keSbdW_[b^_[a[^dYrV^pZ[v[btaa\80_`\81a`|UW~\YxQK|IV\7f?S\83:Jw9Lw<H\82>=\80=8}=,u<4}2/\8822\8b01\9013\8e4)\914/\89.&\935(\9071\942+\87=%\86<"\83:*\85+2z-2\82,,\7f3,\7f80x9$u9/zD(\7fF)\85F*\88E.|N5\82N3|R9~b@\88c9\86g6\82a:ze:zp1wi1}sA\81u?wwB~tA{v@z\80?|y?\80wE\7f\7fFw\84HqxEw\82Iv~NuzKl\83MdxEhvA`\80EdyIfoK[pY`wUesWZpW`qVZfTcdUa`\ZkaUq\alajimbdsj`}blzcdnn^ppb|i\vrb\84pb\83tc\89{V\81}R\87yR\85\88Q\89\89]\7f\92T\84\8dK~\8aUw\82N{\81Iw\88Cw~Hu\7fJs\82Km\85Tu\7fZ}}R\84{N\86|I\89|P\89\83O\8e\92K\8b\8fQ\8a\88Z\8e\8aR\95\89S\93\84S\9c\83G¢\90G\9d\93O\9d\8fG\9d\8c@\9c\8a=\97\84K\96\8dM\96\92H\90\91K\92\8dG\90\99R\9d\95U¤\9eF\9a§B\9a¢B\8c\9cQ\97¥O\92\99W\8e\9cT\91\9bJ\8d\9fH\84£L\89 D\94\9aJ\8e T\95¡U\94£R\9c\96P\9c\92P\9b\94O¤\8c_¢\9c]\97\9bh\9d\9ce£\9da\9f\9c^¤£j\97}��{�Îy¾�xÈÂyƽuÃÄzÇÂmÉË{¿Êp¿ÈwÃÄnµÆx¶×s±Ëh\9fÌi­Ép­Ët¦Ês\9aÅj\9b�m\93·h\97ºd\97¶g\8e·h\97µf\92®e\8e¥m\93©e\8d¤g\86®m\8c«m\8c£e\82 _\8b¥[\8e¥b\98\99[\92 X\88\95c\87\9cX\98¤_\9a¡`\92\9fa¥§a¨£U°ªT­\9bV°\9a\§¨W£¤Y§\9a[º\9b^²\9eW½\95a²¢U³\95U¼\93M¹\95Z¸\8d^¸\92]¸\87c°\97Y­\8bS¯\8cG¨\91\¨\89Z\9b\87\©yX®\81X\95{[\8awh\8a{g\9a\81`\94u_\83x\\8cwc\8do\~lVzmWzv_wtYdm]jp\ht[^d\k_aigjoVusammdiu\ji[Xo^[p^^nOakUUfKjYOzXUw[YuV^|`drb[q`Ur`QrVWsPVyBMx@TsJKrB=xBAyDA\83;2z;-\81>1\7f4>\894:\8775\859#\8b7)\86>#\8c94\8e1+\91B*\90?*\839+\809"\8a71\8569y5;\80+9\81=,sC5\7fB's=.xD!}O.|G$zT.{R>~N5y[>\86Z.\86f<\8ee>~_-\82g4\84s3\80y9rs<nr?|z;vk<yq;ot?sr7zxJ\83tJouFktDpyIm|Eb\80G^yTbvOkwEauMX\7fNXoJ[|XcpRhmV`rQ[wXeq\`jYXf^[o\\`fWlm]cdghm_hoUl{g_xe\lp_lj`|f]tqa\85vV\80\80_\86\7f[\80~^\83\81\\82xO\81|Vx\82M}\83K\83\88N{\81C|\85M\80\80Bz\84SutHyzR{zN\80tS\80\83L\82~T\84\87R\86\85O\90~X\89\81Y\97\8dK\90\81R\93\81U\93{R¤\81J¢\91@\97\8d?\95\8dB\92\8f:\99\8b=\99\8cI\8c}D\90\81D\8e\87K\91\85@\8c\87H\94\91?\92\9dK¦ L\8e¡Q\8f«P\94¤N\98\98R\99\95N\96¡O\86¡Uy\94I\83\94U\8e\9bR\8e\9f_\97\99K\8c¢H\9d\9cP \9bJ\9c\9bT\99\9bT \9ch\98\91f\97\9fa\93\99`¡\9ak\9a®k\97\84¶Ì{½Î\83¾Å\89ÈÄ\82½Æx¿ÅtÌÀpοjÉÅmÈÈlÈÄm¶Îl²�h®Òb¬Ôm«Æh²È`©Ãl¡Åo\98¾r\99¸j\98Àp\8f»u\94¸p\9d±t\98®y\99­o\91ªr\84±n\88µj\85§l\84£b\87¡g\92«`\8b¢h\8f \\8b\9fW\85\96a\8a a\96¡T\9a§W\99\9f`\9f¦a­¢S¹¡Vµ\97Rª\9b]©¥^¤\9ba¯\92d¶\95d¶\9bb°\9c[±\9f]¶\9aQ¼\98Y»\99`¬\98`º\91a¶\8bZ·\89`­\8eN¥\8aK¨\89R¥\7fZ¡}S­{]®xd¤nd\93uW\96oY\91tZ\90nf\81m\\81q^\8aoY}heuncuuVqmXgm]eccedaclfla`i`qs`qu^kw[lvch}k^rbclTamQ\bJZfJllRpbMk_Ow\bmYWobUgdVm[Rq\YmOQsQE{GHzB8rG7m;8y:3\847/\82:.z@:uE=w90\8a8'\7fA,\80I\1f\87>"\8344\8cB+\8cD/\8d<3\857)\85;3\8b?3\8a=8{35y27\8299\80E6vC*zE!sH\1evJ vN&xT1yT;|]=\84[2\80U+\85Z3\83Z3\87j0\81p5\7fn6tq@ws>v|Dpu?soDmkFvj8zh8\80n9ufHmr@op;ksK_kL[vL]{NexN]rEb{HYyH[}J[|QcrVhvRdoMaxTkr[gjTbiVYcYUlfUjiYmp\`gQafUcvbjwddobSmdRviWxt\zq[v{_\80{Y\86~[\83zP\85vKvsIw\7fUu\82P\80|R\7f\80G\85|I}|J{zMy\80LyvQ\84xR~qcvtc\84\85R\81\85X\85{M\85\83G\8f\82P\92\88X\98\89N\8d\8aN\8f}L\9f\88A\9f\83C\9f\86?\98\83G\96\80=\93~=\8dx;\96~;\98zD\8a\83I\8a~<\8b\86>\92\8dH\94\92D¡\91P\98\9fQ\93\9aT\8f¤J\96\9dO\99\95V\8d\99N\8f\9dS\7f\9b[\88\96T\89\9eP\8d\99Z\88¦P\94¡H\96¤I\95\9aP \9bQ\9d¤X\97£Z\94\95`\90\9aZ\90\99Z\97©j\9c§m\9dv½ÊuÈ�xÇÊ\86ÅÈ\85Ë�|Ä�m�¿uËÈkÂÊvÇÆh¹ÅqµÆo²�g²Ôi¥Îr³Êm¨Óf«Ìf¤»f\9b¸u¡Ål\96¹u\95µv¥·u¤®q£°q\96±i\9b·m\9a¬b\8a´s\87ªl\90ªw\8dªq\88£j\88§m\88£_\8e\99`\8b\9ca\91\9b]\95\9ff\9a\99Z¡\91f\9a\9ai¦¢_­ W¯\99f¯¦a²\9dX¶\98\¸\96X¾\92d®\9d^»\99^ª\94R°\96ZÃ\98T²\90Vº\92g²\8d\·\85b¸\80Y³\81T³\81J£{V |Z¡sV«zT²zX¡ue\93rY\98wT\90we\85om{dg\8eqf\8diZ\82gczndulOok[ql[maZf^big[`fdhc`gai|\jkcptSmqT_g^\rVaeTd`IYeIaYQwfFhdKng_uYPhVMn`ThZJhSUjSSlKEsXIrICqE<sH=y=;z73\7f7;\84HApD;vI9\82D.\84H-\83C\1f\86>*\87I*\87G)\8a>+\83C3\899!\83D+\83=1}E4\827.w;6\8a@=\8242u>2yD#oM\1cvR/vO5\83P-{\CzT8z`AyY6zXAzh/\85k8xq3\80rB{n=rz>px=i{Gqr;rv@tbCpg;yhLnlAmm:kg9on?jhA[t?U|FduH[zR^|FcqE\{UTtPXySgvTg}W^tXpm^aqVkk\^\Zde_Sad^`ldSgQZqZ`|aVufZwa`re\sgb\80u]xwc\81|p\7fx\}p\~pYtrH\82vGulUsvW\84tM\80rR\7foH|tP\84zH\85|Q\83|X\8clSvvinz[y\83S\82\82W\80{Z\8f~H\8e~R\90\86L\8b\89R\87\88L\8d\80F\9bv@\94}D\98{@¢wD\99\87A\9d\81=\88}<\94yB\8f\83J\95\84C\95u8\95\823\95\8fD\98\8c8\9a\9c@\9d\94I\9a\9dU\91¤T\98¡S\88\9aV\85\92N\85\91L~\8fN\83\9dX\87\98N~\97_\81\93S\95 K\9e O £T©¥O  ^\9a\9fU\9c\97b\8f£^\8c\9a[\90\9ck\93§a \85ÃÈzÈÄ|ÑÄ\86��yÖÙqÑÒtÚÆqÑÆmÇËx�ÆyµÂqºÅp¹Çu­Êg°Ôe®Óo±Óh­�q¥�i¨¼m­¸s£Âp\9cÇx¤»u¥¹z¦³v\98³m\99¶b\97®f\98´s\9dµo\92®j\8b\9fv\8e\9cn\93\9fm\87\9ek\85¤b\89\98]\91 e\93\9ah\8e\99n\99\8ce¡\87f§\93d¢\9dgª\9aa¨\96[´ f¿\9e_º\9dX³\91^µ\95W¶\8cV±\90^®\90Y¸\91]�\93X½\8aXÂ\84aµ~^²{W¬\7fX²\81S«|M¨rX¬q[µwT¯sU§uc\95sX\9bj^\90jb\88bf\85_j\84ah\85i\\86^_~d^uiSgfWh`Mh\QhbWh^_c`_iYfxdiv_doXilTrsQilR`oMafP^^KcYKpdLoeIimSmdTf^QoZJr^AqdIcYBf]Ki[AnZ>~M<|N9sD0zI4{L;\83=:\87:4zE=zE>|N/\85D$\80K)vF"zN#zF1~D1\8aK'\8aD&\80D.\82D0\83G.\80;4x@0\8194wB7}>+\82K1vQ)tS2vZ2\86T9\89[:}U@{\?ydB{bA}l<|o6yr9}i>vsAmoDpsAoz=}w9|sAtpHufDmc>skHrqIpf<ff5gq7dy:ZvG]|HZ{U]~N`sS^qW]zNU}O^tXczVlr[mm[koVfdReaZ_e`Z\cTX[\Wb\ct[]v_[v_UzgXwp]ztg}ldx|jq}oqraqpbtsQunM|fH\82iKxvB{xG\86tF\8fmI\88tE\8crP\8fzL\90qW\85r[\7fz`wyXx{[\85}d\83|[\90\87Y\8d\87H\91\81C\89\86J\90\83I\96|N\93yR\9e}D\9b~H\9fxA¡\81@\95\826\94\89;\9e~>\97\80D\9duD\92tE\90y7\9a\7f?¦\8b<¢\93E\99\98N\95\94Y\88\96R\8c\9eQ\87\95Z\83\92]\84\88U\80\8eX\87\96J\81\95F\86\94S\85\90N\93\99V\9b\9aR\97¤M£¯U\9f©\¢£S\95\9bY\92\98\\8a c\90\9eZ\98\9e`¢\84�Õ\80ÎÕ\85�×{ÌÔqÓÔrÈËvÊ�zÑÇiÃÉm·�v·ÉpÃÂ}¿Êw´Ôm³Ùb­�kª�`ªÔm Îq¢�w­º{¡¿w®Ç}¥Ã\85¦¿w\99­u\93®i\98½h\92¿o\98¹h\8e¹l\98«s\90ªo\88\9as\8c\98y\82\98f\8a\95j\8f\8e[\8c\8f\\9b\9ad\9a\94h\99\98_¦\98jª\90n¤\98o¥\9fc¥\9ab«\9ce°\98hº¡f­\92q¬\97f®\8fl°\87Y¶\92^ª\94_¶\95fµ\8c]·}kµ\80`­\86X±\84Yµ\85W«uP«pV¯uM®hV¥zYªvb r_\9aeY\90c^\91dl\87h^\8cfd\8andxp\\7fbcjj[k__lYVcdbhaThZXlZZpbde`mkUom__tNcuZcsOkiNgeZb]DjbCc_DjcKu[JqjMrfGlkCf`OgeOpcEj]QmX<j`>zP:\7fN>zO7sF.pM1}H;yF5vRBtQ6\81V4\84O1\82L)~T+}G!\80Q2|C9yA6|N,\82D4\87;,\8cA-\8eG4~B:x3-t4+s3.\82J$\81P.\80V3\80^'\84T5\8aa3|g6\80Z;wm?t`>wgAqg1\83kBuqGlxKekNiwAp\817pzGt{;pgCllGshEddEon9sb0lk1jy:XsFO|QRtST\80L`lUijPcyJZoZfyTex_jve[l\`hUseXjlUddUf]`iVcgSi`]gcUhg[yaau`[\7fnSso`|t^\80uh{zfzplknnrnZ|hWvwGymRxqP\83vN{}K\84kG~qL\81yM\8a|P\90|Y\92\82Z}uV|rXv\83U\85\83Q\86\85a\81\89]\87\81Y\90\7fL\92\86M\95\7fF\92\80P\89\7fP\96qI\93\80A\8fvJ\9a{J\9dw6\90w-\8at<\8eq>\97yH\9cq=\9cr<\91\84@\91~7\97|;\9d\87F\94\89L\97\94U\8e\93Z\8a\91O\8d\8a_\87\85X\84\85Wy\92U\7f\9aT\8c\92\~\92Sy\9a[\8b\9d[\94\99L£\9fT\97 S\9aªV¡ªV\9b¢R\9c\9dY\9a©[\8b¢\ ¢i©\85ÇÕ\87Ê×}É�}ÑÒ\80ÔÇs�Èl×ÊqÑÃo�Ñn¾�\7f�Î~ÂÂpµ�q²Îq®Õ`¯�\¨Ùh¥ÕmªËw£�q­Ìv©¿~±Ç\81¨Â\8a\98·\84\96±z ¾u\9a¼m\97Âs\92·{\95±u\91¬k\90\9eo\8e¡l\84ªt\8b£l\93\95b\98\91\\9d\90^\9c\90i\9a\99g\98\9dk\97\97a¥\98f¡\97j§\9ag£\90m©\96a«\99c·\94rµ\97r±\8ay»\8fpµ\85l¯\90d«\92g´\95c®\8b`´\80l½wfµ{Pº\82JÀ~I¼{G¯mS²kS°nQ¬tW¬sU¤nZ\91bY\8fg[\89rh\8dwe\85\7fe\87we|bdx^fm[`_eek^cn\fj``gfff[be[kjaid\\tR`rXZjU_oXZcYc\S_cAca>pbKmYSeaNk`GrhHnmGkjOabI_SRkTIyTDwU;qJDuB=yO2nK*uH.kN:jNHqPFkQ1tU-tU.\80J/vM0{N-\80Q2\83L6\87H2zH7zJ2\82</\8eG3\8aA-|69y36v/&z9&|A)}E0\85B7{P-~b6\87i6}b7\84iD\82m;xm<\80p3wp;\7fx@|rCyuDntGksEp};p\80:dqBbqGhgDcgJdk?^cAfh1nn9is:gmMSvQSnOZvTgkWcnRUiMUpXerWgzeXtaZrZjdUr_Zded_]^f`WjY_j\[[]gh`yhb{k[{_c\82oU\81mSys[swg|tf~tjolhtj_\81pQ\7frJ}xG\7fqQ\87kI\89vQ\85s[{n[\81\81^\90\82R\8d\7f^\88\82\\86\81c\88z`\82\85Uz\86Sz\88Q\7f\86[\85\8b^\89\84S\90\81T\88\83L\8axI\8bxH\88xG\8fv@\8e\80K\8fzD\99z>\94s2\8cp1\8dn;\95kD\9fhG\9br;\91\7f@\91x@\96w;\9d~E\92\80O\8c\88U\84\8ba\83\8b`\89}S\7f\8b[~\8aY|\94[z\90^\85\96Yy\8e_~\97Z\88\9eU\99¨V£«L\9b¢U\9a¡\\96¦^\92¨P\98°Q\99¦V\8d¥V\9a\9bb¥\89É�\87ÈÞ\81ÆÖ\81ÑÑyÕÈzÑÊtËÌpÉÃyÀ�sÀ�\82½¿}»ÄmºÃl©Ëb«�j¢Ún±�l®Þw¨Îw\9dÊ|¥Óz¦�}¨Ã\81¬Ã\83 ¿\80\9b®\85\95¶\81\90³v\93¯q\8a©\80\87\9fs\84«o\83\9cl\95\98h\8d¤s\85\95e\8e\9fa\9f\90b¢\9aW \95f\9c\9eiª\99d®\9aY¨\8ch¦\9cm©\8cl£\92l©\8em¨\92b±\93q­\83x¬\8aq±\7fu´\8cn·\80c´\8eg¦\86c±\80aº\83c¹\82[»y[Ã}TµsN¾xS¸wQ°uU¯|Q¯qN±tZ tX\95gW\96if\99rb\98{`\82}f\89tc|qf\7fhehehglZej^gc^nn_ok`nahja[afZcbWrfZe\[e]^`^`^ShYU\`KdfI_hHeiYqiKfhHi\DkgN_^>`aFaZ;q]@eWFtT?wK8lC5wL)qA/sG+zL2tM5wKJnO=vP7wZ7\87U8{L3zV9~G+\80O+\8bL+\81L2\85D-\8b::\8272\8aI1xB+x:7\7f=)z3.\81=&\80D)\85E-\84U+~_;\7f`0}f?\83fE\88q?\83e7}rC\7fkB\80p>xnMth>hl>tzGfnDck;heEjl9fe=kj@bd5Z`>jd5^o9]h;anNSyKRyFZsL[mN[uLbjXNiZbr_jybjnXXhUcbdm`bahg\U]ie[gVjback^fp_rp\{_^sXhzbYufPwpc}yevv_r}fym`qnayx]\80qWzrW\82eO\92lY\86vL\8ajP\8dyR\91tU\86\83_\8e\89d\88{`~yc\88\7fe}\86U\88\90V|\92^\85\8ea\85\8eU\94\85R\99\8fN\93\82D\8a\82B\8ewL\86q?\86p=\83xG\85\80;\8el4\91r,\89n2\91g>\9br=\8fiM\9crO\93}L\90w?\98rD\9a{>\92mT\8cqP\87ye\88\83V~y[\84\87\\89\80Z\80\8aX\86\8dY\8f\83e\84\8dY\88\96S\95\96[\97\98S\97ªQ\93«N\9c\9cW\94¡^\94¯Z\94¬Z\9a§S\99¥c\94\9c]¢\87×Ü\87�Ô\81�×\83ËÜ\82Ã�yÉÊy�ÄzÑÆ\85ÊÄ~ÄÆuËÌ|ÀÈq°ÈjªÓq¤Õm¦Öo¦Øh«Ûi¥ßs\9eÔ\83\9e�\81\9fÇ\7f\9eÄ\83¤�\86©¹\86\9c»\80\93�\82\8f·\83\98­{\92£\82\8a\96z\83\9am\80\9di\8d\94a\88\93h\8d\98a\99\8db\98\91X\9c\90_\9f\9a`\9c\94cª\97^µ\9d[®\91Y²\95_«\8eg©\95p§\92m«\81rª\80r±\8ax·\83q·|s´\85q±}p¯\82v°|r±\83k¹\81e³\81d³~U¼vX»nP¹qS³}Q¸wK¼tS±wa«v_©w[¡pb\93pZ\9cl`\93ra\89xj\83rk\85k_}nbzcagadhagelbokbrf]robii[mkXfk\`f^imako[`d_Zffe^chUahFbbGjjNplJiaIgZMcZJ`hK`g@`_:iU5nN7lJ;rD4lB+iC1iD0xR6wS0uP:yU<\81[2}Y4xM4\82N=~S;\80T;\8eQ;\8dK/\94G/\90I+\92D9\87;7}G:}A7xB2\83<,\868.\7f='\84@1\87H3\81J>\8aX7\89\;}e;\82j:\83k@\7fe5~l7ti3zj;ycIukGue>npBruAlp?sb:l^@hW7d_9]]:bd;fd=_d;d_AY`GcmN]mJcnF`vBcwQ\lO`m[TrbVve^rbfl^feamgkicnjXjj^hi_jmdfxjru`ln\mmWvbZq`^nd\}fX{dR\85rZ\80qlwwpz|kwqdwwa{qW\85qX\86gZ\8bdO\84mO\8ctQ\89sZ\92xW\92\86c\87\8ad\86\7fa\83\87]z\88_\82\87a\83\92_\8a\96_\88\89W\86\88R\8c\90P\94\95F\92\88<\91\889\8ey>\8c{J\92vD\87u9\8cu5\88k1\88l7\95k>\94i>\92cD\9alD\9eoE\93oM\97tA\9csE\9ahL\97iJ\8eoP\8bs\\8dxV\8dwX\84~R\83~[\89w_\88}c\8c\80W\92\8bW\89\8aW\8b\8fS\9a\9fX\97¡R\97¥Y\9e ^\98¤\\90¯V\92¦_\90¤[\96¢^\8fª_\97\8aÛâ\81ÙÎ\89��|ÓÜ{ÎÌpÊÌzÆÑsÎ�\82ÊÄv��|�È\85ËÓv»Ös´Øx³ÜnªÛt®Ôl¯×y£Ú}\9a�\84ªÓ\82\9e�\8d\9e¿\82§¿\84\95¸\93\94º\87\9aª\7f\97¬\80\91¯\8a\8b¤\81\90¨\86\90\9br\88 n\8f\8cx\90\95i\8b\94j\95\8cq\98\85d \9bl\9d\9di¤\97b©\9ak¬\90l®\8eh¦\8cb \83l¡\89w®\93t²\90u¯\83m¯\88o­\88pª}o©{q¶|o´\80s­\7fq¨um®pl­qd´|c¹|X¯v[®nO»sU°}S»rV¸|c¦yb¥yf\97sd\8coi\96od\97ej\82pf\83kd\84d`~ekochnfadc\kmbge[sfgpiad`\igW`dbfnW^pUjf_bddbciiS]gJ`nDadNclJ]_OddN\YBX`BZ_JanH`^>kWFbZCpF8mD2uR;f?6fK+jP)~K8qO3vP9zK0\82X,zR3\83U7\86I?\81L.\83O%\8fL(\8fB2\8cI/\8a=/\81;4\7f47}39\8aD/\8a9(\83@ yJ%|P$\83L3\89O5\7fX(\88V*\84`9u[?~_9\83d1\83u.{p=zl?wp@moHloEoe9uj;snImt6_d5fh4]h5ca5[`6\_1a`9YlBVe?ZcOSsEbjM^vC]pHakYckQ[h^[kWloWorXkg_chggeflineffrZjcdieimz[rm_nk]~qU{sYurUti]xqc\7fnW|mexvmyoet~^smi\85he\89o_\8bjY\8cm\\8atQ\86lR\86i]\93xW\85\89f\87\85V}vd\8a}W\82\8ea\81\84T\8c\89^\8d\82M\8b\8eY\81\90E\89\88A\90\88A\89\81A\89}@\8c\83F\82w?\86qDzsC\89q:\86f7\96o,\92k4\9ck<\8do;\9fr7\9cwJ\8fwD\8dvM\94m?\9dwB\8dxG\91mN\8fsa\95yR\8c|S\8d~V\90vQ\8d~Z\95\84\\8c\8d\\90\92S\94\89S\91\8dN\94\9fH¢\9bW\9d\97O\96ª_¡\9e_\98ªZ\8d§W\9b V¡¥V\9b X¦sÛÒx�Õ\82Ù�\7fÊ�\81��vÌÌzÚ�vÖÉwÑ�z�ØwÑÓ\81ÊÔwÈ�w½Îy¶Òn«Õx­Ìq©Ër¬Ö|¡×{«Ê\84ªÈ\8c£¿\89\9eµ\88¢¸\8e\95´\94\95¨\88\92¦\85\86°\89\7f¬\83\89ª\8d\8c \88\89\91w\96\93y\97\91y\98\91\7f\99\95v\90\8ap¢\93r¦\98s²\94i¬\90k¢\8bn§\8eo§\8es\9f\86v«\86u¨\92w·\91g´\85t·}o­\82m¶zl­\7fi§~v¨yw¡|p¨mp¥hb«ohµli®u[¸dY±bg¸kc®ub¹xa´vb£ta\9em]\8cod\85sg\86jh\8ebs\8a\nwfj\80llyjl{oivcdviXk]emRblXbkYbd^Z]ecblbgtU`nVabhe[iq]bmR`lZ_oQ[pM]_LT_J\]A]i6Wf<Yj?_j?[j=^\E`\NiLEsG>oS9jB2rA#vM0uR.uO)|O1\86U.\80Q+zP.yP=\82U6}N'|M-\8aG&\8bD'\88=2\8bE;\89?6\884)\836-\8dB.\8d?+\8bC,|K$vL$|R)yZ\1d\80S!\81P-~\2}Z-v`+\80c+yl2}p<su<he;fb>cd5mh6rj=ntAbo?`l;Y`.Y`0\f1[].[X0b`4cf9_iG`fOZoJ_nFckJmsMfqUci]gd_ieUrk\ig_pqdpummggkgtlessgphadkgjmenw]qtZ~xZ}uWynW{kX\80tUzr`xii|mf\87ym\83{bzp]\8clf\8fs]\90i^\7fq]zqL\85nW\83pP\83{Z\84|Y\81}U\81xU\84wU\81\85T\8b\81\\81|R\82\80P\86\85K\89\8b@\87\87B|\828\80\898}\87>\85\84F\82vB~uH|u;xj0\83d0\8bi'\97j;\94hA\94r=\8fu;\99y@\98t@\8evE\86p@\8euN\8cxO\8at\\93xZ\8cxS\93\80P\9a\82F¢}M\99\8cL\92\8d\\98\92Q\91\8eV\93\8bM\9a\97M\9d\94U\94\91P\9a\92T\96£N ¨S\9a\9f`\97¡Z\9b§Z ¤^¢\99\¤\86ÒÙ\85ØØ\82ÖÒzËÕs�ÒpÒÎqÎË{Ø�\80ÒÎy×à \82Òß\88�ÎzÊÙ|É�o³Ëx¬Éx¬×o±ÆzµÆx±É~¨Ì\8c¨¹\80¨¾\87\99³\8f¢¸\8e\90²\88\94¨~\94¥\80\89¤\83~®\81\8f¡\89\8f¥\80\91\95\80\98\96|\9d\8bv\91\95v\97\96y\8d\87s\93\8er¤\8czª\95o±\96w¯\82i«\8ct\9d\85}£\82s¨\88x®\8by°\8dh»\85r³\88f¢\81k¯\83tªvj¬tq¤vlªjp\9brt§hg©onªke©jc«mZªhY¤jk\9fq_¡hl³y_ f`\98gj\93pg\8ekh\84m]\83hf\8ads\82gpzdqvceyfb{a^u]Sg]S]PYh\a[]\e^cdml_sXjgbpahhabs\asYXoJXsGXfNVfN`lPZh=U`GTeEZcET\CSh=]g<]X@^\GfYHoM?j[=qW4vD(lB/rI1rP$~Q3sL6\7fL)\7fR6|R=xO1|R.\8aE(\8fC'\84N/\8b@*\9284\88=2~C+\82:5\8c:,\90F1\8cG \83W#\89L#~U\1e|Y*\82U\1d\7f[+\83]0\7fZ#{a/sd-ps9vk5s}3cu5``0nl*ln.pk-`s9]p>er=bd5ba([m.dd,gk+hf:ar<Xt>XrKZiO_oHbnLduDooLmr]ig]xbcnqalhiqnjn]ivdfqcstmnv]nj`hgWjee{q\vuM\81vR\7fuave[|qg\7foa}vb\7foi\88ik\84qh\83qgykj\81yg\83m\\92ej\88oY\82mV\90cM\7foL\7fkP\85}_\82\7fQ\89yP\8d\7fX\83~Y\88\86^\90uW\86\80U\84\82G\83\81BzwA\83\88I\82\83Auz?yxE\7fr?yqJ\87n:{t+{j(\84s#\99b2\96k;\89f>\93w5\92zC\88zH\91pI\93tH\87jS\8as[\8cyL\96qZ\8f~M\96uN\94zZ\93|F¡\8bL¤\86[\9f\8eK\99~H\9b\8bO\9a\92D¢\8cJ\9c\8bT\99\94J¤\98D\9e\8fY£\9dV\94£^\98\9aX¥\99^\99\9dc¤\80�Ü\80×Ò\82�×yÓÔyÕÖzÜÕwÖÚtÕÞtÛÕyÑÜtÎ�\80�Ô{ÊÓoÈÊo¹Òs´Ìp³Õt½Î|½Ò\83¶É\7f¹�\8b¬±\88§«\8b\9d®~\9f®~\97³|\8a­\81\89©~\91 \86\8c¤\88\8c\9d\8c\8b¡\87\86\98~\91\9c{\8d\99z\9a\88\7f\93\8c\83\95\93\87\9c\9b|£\91s¢\89vª\8cm¤\84m¢\80p\9d\86w¦\8bxª\91y­\8an­\7ft±\84i¤\7fb§\84eªtp©qp«ij\9ejr\98ro\9foo¦to¦ps\98cj\9a`m¡be¢^l¥ae\9b`d¨op¤tf¦k`\9cci\8dm`\8bgb\8ab^\88gl\82hh\80kpydf|g`|bbrg[a^X^UZbU\]VdY__Yjgbtd^oifgendim]aobed^YgO`cQUkM[eDUlCRdGS`ET[IQXGWZNQbLJgIT]<a`AaV?eS<p\3pS(mN+uK.mJ#qJ%zK(pJ+vS6zZ6rT4w[/~T6\84V3\84K'\84O\1d\8fG$\86>*\87>&\81?/\82@,\80D.\87N*\8bI\1f\8bU\e\8eJ\14\85M\1euL&tS)w`&v_$qi'pf*zj0rj/fk.ku)`s,dm)jr,br#bl1_u1hp3_g5`k1[g,\d1\q$]k-cp/hv<`m=[oGfoFdqLngJtqGioIlhKukX|oSrn^qbg~^ruapv_sv^uzhwvfoubwsb\85lX\83tW\82tP\7fvY{i^vdhwgjw`brjewmf\8akq\8cqz\8eos\81jd\8cuc\87qh\93hf\91h]\88dV\8abV\82bV\83eW\84saype\81xW\88\84a\81\80Z\8ave\85|^\8avX\86wS\83rG\8bsK\81v@~\80Cu~=|z?\85~:\8cs=\83o7\88q0\83k0\8dm+\94n:\8eh;\8ac=\86o=\8co:\93pH\8bmO\8frH\8cgR\8bmV\93oL\9cnR\97zO\9e{Z\97x\\9c\85O¢\85Iª{M¢\81I\9f\7fK\95\8aP\9e\90J\95\8cF \8fK\9b\87O\9c\8bI\9c\92T\96\90W\9b\97Y\9f\95b¡\9bc¢\9d[\9e\89�Ø\86âÞ{�Ù\7fÒÒ}�ÚzÛà s�äz�çvÎä{�ßy�Ñ~ÒÙz�ÎvÌÅoÄÎxµÖs³Êx��~­Â\93­¾\8a¶´\89¨·\80£«\85¦­|\98¨\84\96¯\86\89¯|\8d\9f\7f\85\9c}\87©\8c\94\9c\90\8b\99\7f\89\9a{\8a\9c\82\8e\86s\9e}\83\99\83}\9b\86\81\9c\8f\84\9f\91t\9e\94}°\92q¦\88r¨\83k¥\89oª\8bk¬\8au±\85i°\86o²\82i¤\8bc¦\83j\9fqs£rq\9boh\93og£ja\98kk\98qy¤oc¡hb¡i[£Zh\9aY^¦cd\9dgn\9eqg\9eoo¡uf\97lc\88h^\84ec~gc\8c^e\89jr\89ik\86mkuqjmeelnXod\`NPhUPXRZbYU`lYal^lmbjfbncXbeWn^`jQYgQ\vHKnQQnJPh>Xq?JiSQeO[aCVdHVkHT\GPe>`[CZ`CiX@mb1gY,l[#oV"sV"iH\1dzG\1fqN0vV-qK)uU3uQ6\86P*\87P)\89V/\81K%\86Q!\87B!\87=*\8f?/\8bI)\81C&\86P+\86P"\8eQ\1c\81Q\1d\87R\17\86K'~Y-uW)xa$qa+ej"l_+qm8od)me1ip-_r&_k"cq0[m,]m-Vh2dh>Vl&[]0Rf'Qd&Zl+dv4cp@]jDek:fhGadCfnJjfL\rJsjUll_liYyha{do}mh{e}u`up[xrdn}curczzU\81lP\88xU\85}K{wW\86g_\80neufspeg~okwok\82ju\89cm\8fsk\90fi\80tc\83pb\8epk\8ccY\8c`R\8fb\\88dO\7flX\83o_xjU\88pT\90{V\89\86Z\8a|X\84xZ\7fuM\85lL\82}QxxMwsBss?|vC~tE~rE\81tC\84p<\81v9\87e+\80v%\83j5\8fqB\84mJ\91qH\87kL\92vH\80qC\89sB\81uQ\8eyK\9d}T\9a~V\97r[\9ap`¡\84M\9a\87R®\81W¥vG\9b\83I \8aQ\90\81V\91\89J\9d\88K¢\83W\93\8aW\9d\8dV\9e\8aQ\9d\92a\9f\96a§\91c£\90]¡©W\94\8a�é|ÛÛzÛ�yØ�xÖÒ|�ãyÙêwÕä\86ØÓ\87ÉÑ\86ÆË\82ÉÌ\7f�Ô\81Ò�wÆÒw¼Õz½�x¸É\8cº�\91ªÀ\94§¼\85®º\82¥¬\7f«¨\8b\99£\88\91¥\86\83ª}\83£\88\8b\9a\84\8a\9f\84\87\90\8b\93\8e\86\94\90\89\94\96|\8d\87y\97\80w¤}\84¢\88\8a¤\8d\81¡\90z\9b\8dr¤\8dy§\84r£\85t§\7fq¤\86i \88n¬\88l¤\8ai©\89f®\8aq«~p\9cvh\95il\94sm\95ti\9dna\9dib\99pq¡fc\9ag`\9egc¡\`\99Ud\9eXe jpªnn¥md\9aei\99l`\8eld\7fnozmm\7fbt\82iw\87qyzlrtmdrrgkg]l]^nXQiQQ\YXe_[kebea^hldcoXhdScd]fYXpYYpYUrUIvEMpH[qFMrOMtOUdOY]@RdCUfISeH]`:Tg@Z]9Vb6Xb:g^4p`#nU+jT$kS*jM\1erU$yM'\81Q2zL-~V&}[+za.\81\-\80\'\8aJ \93?(\8d=*\8eD-\8bI,\84D1\8dN*\8eH#\85R'\8cK#\86N\14\7fO\19\81P${R\1cuQ\1fi\&i]*j_._h/fk(^e'di*ai(Tc/Ra0Pf5Vc4Ql<Ze5`g3U`&O`*Vc.]e-^n8_l5Wv9]n=^h<im:dkIegU_tR^lQmgWvYcq\_qibukmqrzvg\81}Z|zVsu_{l^\83va\80|T\84~V\8byM\82kU\8ahZ\86hc\83ilwil|qc\80ftyaw\82dm\8cki\90di\86hm~ka\86g`\87k_\86`]\89nY}lM|iYxjT}sO\83jQ\8bsa\87\83f\8exc\83oT}nI}oKq{Kh{ToyJ{lHyuB\7fp>|l?ys>um?~l@}p2xm(\83t2\80sA\8euE\85nN\8atH\89zK\86|K\89zJ\82\81B\90}G\9bxK\98\83Y\95\84[\96uY\9bxT\9e|S©yJ£xL\9f\82L\98\87V\98\84N\9e\8eM¤\84Q\9d\86U\9b\81U \89V¨\92b©\91\§\96_¬\89S¢\96K\95£S\99\80Þá~Öæ{�ß~ÒÌxÊÖ\86ÖØ\80ËêxÚê}Ôç\81ÈÙ\89��\80ÒÎ|ÇÇ\88ÆÇzÇ�wÄØ\81·Ì\89³Ò\87²Â\86¯¾\8c©µ\7f¬º\8c±­|¦¥\7f©«\7f\97\9bz\8d£x\8b\96\81\92\90\84\86\91\84\94\8a\8c\96\8f\8f\89\8b\89\94\99\88\98\88\85\9a\84\84\94\7f\85\9a\86w \8e\84¤\8b\83\98\86u\9b\82t \83t \81x¤\88y\97yn§\84x¬\83u\99\81u\96\84u¢tw\9e|l\9epe\96nf\9bii\94mn\9dbk\9dak\99i`ªad¥`d¨`^\9bYg§bc¢[k§pv\9bfo\98er\94mn\92oh\85pi~px\81pzvus}kxzu{~qo{bjqfkec\maas]W`aJ[UPa]VidYh`XfaV`^VbY^jV\laTdXPp]LvFFsKF~IRrCYyLUvPUq=^_8TlAS]CN]IWhGM^4_c;Ma0Sb9X`&f[*m^*n\&iS'jL\1csU\1aoV\1eyQ)vX"\7fX \84`\1e{^"zd/z\*\8aS\1d\88G(\88K#\86I+\96R#\92L(\8eU%\83Z)\89N(}U'\89R\19\87P#wT\15\7fU\1f|Z\19pW+fZ&`j0]l)X[$U`)Um.ed2_c<Zb=Mc1Vb2Ok1Yf0Pi2[]-]a"b\/Un2]n?[j3^gHag6Zj8Wu:TpJgjO[nI_jRnleb`]ibhkZgx^tuc{xm}vZ}rTmkY\80kW\81zV\88uZvqU~vU\84v[yqT\84i^~ljxrg{up\81ql\86lq\83dm\82\d\8ekq}eo\8akn~gf\85h\\85h`\8bd[}`O\81gQ{hZzc\\8an_\81wU|yc\8dn]\89yTzwKwsTswLh~UiwHmaVscLn`@pcIkp=zqBmk?}i0th+|u=\8amD\88yF\92xR\90vP\8apQ\8bsE\8auK\87\82S\94~M\92\83V\9a\87[\9dv[\98}X\98\80S\9evY§}P£vT\9ez[\9f\81P\93\88N©\8bJ£\8dT­~Q¦\89U¢\8dTª\84Y \89Q­\8eN¥\88F©\97R\9e\95O¦\80äâ}Øà v�äyÖÖ\86�ß\81ÎÜ\84�ç~�á\87Îã\88Óä\8aÔÞ\82ÖÔ\85ÕÓ\8cÈÌ\85ÊÕ\83É�\85ÄÊ\90µÒ\93·Ç\8c¬�\8aµ·\84°ª\83µ¬\85¨¤\88¨§\83\9d\9e}\94 }\90\94s\8a\97z\8c\8e\83\86\8c\8a\89\90\83\92\87\8b\89\8a\8a\93\87\85\8f\86w\94\8ez\9e\89~¥\89\81¡}x\9eyz\9a\7fu\9a~w\97\82r\94{s\90wx\9c\83q\9d\80r tv\94tx\95nr\9dup\96os\9bks\9agf\91jj\8eal\9b]j¨a_£db jg¢cm¢Zm¤]u\9ahn jy¤et\9afm\97fr\8ckl\87kt\83m~\80l|vw~sur~nmzkup\rj[dn_[lcVle[mbTj_OpWVh_S_dZg]ZcbS_XJi`Qj\YeWWfPLsGLwMO~EK\80AZ\82C[yIYjM_f?blLXeJUePLfEOlERj5Tp3Rg)\k1c`,of,lb(b]!bQ)oO rN\18s[\11zV\e\80U\18\82a\1etW#v]&\7fR\1d~K%\81E&\85L$\8dX\1e\8fT$\8eM/\8dL*\95N#\8bY&\8d`)\7fa\1cz_\esS\15vM\1cuW\1eo`!ed&\`'Yc&aa%Y_&V\2Yf7Yi?Z]>[i>Uf2Uh/Qd.Yg-`\)h^&bf&Zf*Vh5]c@XfETn;SsARgFUl;bo=hfJhb]_kaXk^b^drWmtasuc\80sj|hi~kWtiT\81rX\7frS\83wPwwV{z\}{\|s^yjevqf\80zg\89rk\8cth\93lj\88dc\83^i\7fec\82bh\86kl\84ja\83eT}fW\81d[\85[Q\80_I\82`P\85pYwp]yme}s`~lV{qO{|PmuPlwTltOrfNy`YrXYm_NghMri=qb3tc3qg2\81h7\81s?\89pJ\8dsP\8evK\8etG\95oE\95tR\8a}Q\88zH\98\80H\98}N\91\84O\9b\7fL\99\7fN \83Q¤v\£v`©wZ\9dzP\9d\88N\9d\92E¢\8bF«\8cF®\85N­\88U¥\83P£\7fM£\88O¡\93H¤\98J¡\9fO\9e\98V§\80é�xà è\85Ü×}ÜÞxÙÞ}Öã\80Ôà |�à {×Ü\83Ñß\7fÞÑ~ÒÇ\81ØÔ\88ÑÓ}ÓÓ}ÑÌ\81¾Å\84¼¿\84®È\94§À\89¨¹\83««x«\9e~¤¤}¦¥\86\9e£|\9e\9a\81\8b\9b\83\96\96\87\90\92\83\95\86\84\84\8c\7f\82\93}\86\90\8c\86\88\8a\96\8f~\99\80\81\93{}\99\81\81\9d\83\80\99\80v\96\7f|\98\82{ \83s\91zt\99uu¡\80w¢\80l\91pq\94sy\95po\91|o vd\9fdg\98_i\95_e\9ehs\97Zb\9a_e\98fj\9af`¢\h\97_e\98Ve£hj dr\95Zv\99[z\98aq\85gs\84cqznpxnxrukztx}rhymkmVllVjj[Zh_a`\Xla]g_Rq[VqaRfa_c`[lZ^oNOjPZ`KYaNVsCWrELxNQtNE}@PyEbn:]c<biHa^:Z^BXhIMl9Mk;Nl*Ri%Tg$_[)a_,kV\1fmb+jX \R(aO'oW\17{M\17}N\1cyY\1f{P\1fxY\1d|Z2\83V\1f\81U$\81C"~B,\81M#\8bJ\1d\89S)~T)|M%~[%ug\1avg\1dnT\1azU\1dnQ\1dmZ\18i`%mb\17aj"Pk4Yi3[\1^k4VhD_b:h[5[e6Yo7Uf;Vg+da-fk2`o3Wi4at/`eDWt@foNQw=NsCSs:WbGafRpoW`eRZbgY^e]Wjmmfsoxnj\80om{iqvhfuj_~|eupX~sWtxZs{g}~Z\80s]\84{a\80t_\8bwm\8btd\87mq\7fnl\88fo\89fl\88ap\80`l\8fif\80h_\89qZ\7fbU\90jN\8b]G\7f_Vx_X\83gXyo_{k[~q^\81vZ\83lV|qQ~tMypQs{\jpXlcYpmPugNr_?yh>|`<qa9\7fd;}d9zjB\85xQ\83iG\92pO\8czH\98tW\90sT\95|Q\8cxT\96}N\99~F\9b\88O\94\84P\9b\84]¡yb«w^£vg§}]\9c}T\9e\83W\9b|S\9f\89V£\80M¥\83J¶\84S®\87T£\86X¢\88P \8dQ®\88W¦\93J§\92[ u�Úzæà \88Üä\84Ùâ\83ßÚ\82ØÞ{ÓßtÛÙqà Ü}ÕÜyà Ê{ÙÇ\7fÓÌ\89ÓÔ\86�ËvÉ�rÅ¿\7f·½\8b·�\96­¹\94­®\81¦¬\84¯©x±\9a}«\9d~ \9b\83\97\96\8b\92\99\8c\8f\98\8a\95\8c\8a\89\89\87\8d\87\85\8c\8f\7f\8a\89\85\8d\80\87\96\88\89\91\86\84\93x\80¡}|§\85}£\86}\95v\83\99\85\7f¦\88\8b¥\7f\86\99tx\9as{\9fs}\9dqm\95zl\97sv\94ui\98ha£fe\9agj\9c_n£Zh\9bfd\9b`i\9ace\91dj\94Ub\91Qa\9c^h¡bj\9aZi Wq\9baz\95Ur\89Zv\84^l\7fklrmlvclyft~hlx^bsa`nfimZkqc`e\]gRahOWlTWqaVjXTnTWuK[rJadGYbD\l<QtESqMMyDE\81AMyMQk@[e;]^<^aJ^]HSW8Zc;Pj:Pk1Il(Uk)eX$^X#hV$c]%`[#fS#dP\1daL&kW!j^\16vW\ f\83[ \84P\1f\83`-s^0\80U,\89M$\82G\1ezG'xC\1e\86M%|N-xN,}R#pY\17pe\1ekf"jc\13wW\14iX\11iS\18kZ\15cd\19_j(Nd4Wf9Qe-ae5bj@f`@db<egC]rAbk9V_8fd=fr:Ys7]o0_j8YpH]hEbqISsHTq@]kCXhNggRfgR]]Sd`]Z\Y]`d\kgdtvrr|{xzvvykovvft|axtazzWw}exva\84ti\80{c~\85^\85\7f]\8cui\8cxf\89ml\8bdl\80_s{dm\85ib\7fhd\86i^\81nY\85qU\8fiI\91jH\83gN~nM\87dN\7fiO}iS\87rX}ob\80y^\85uX\88xY\7fpUzqZ{v]or^ln[xc[~eXrhPsb=}]B\7fhA\87`?\89e>|gDysI\81vB\8djI\8byN\91~Y\93yW\9ewM\99\82V\8d\80N\89\81J\87\8eT\8c\8c\\97~_¡|`¢\83h¤\8ag¢\86[¦\84]\98|Y\98zS\9b\80[ \89K¡\8fK°\80R­\81P\9e\7fU£\8aV¬\8c\¤\85S¨\89L¨\8eV\9b\84Þé\87æì\83Úí\84Ùâ\86Ùè\80åâ\7fâãqÙãvÛÓ\84Ñ×uÓÓ\82Ú�\81�Ç\8eÓ�{ØÌoÈ�wÂ�}¿¹\8d°¶\90¯º\8e³±\8e\9f­y«©\7f³\99z«§z\9f¢\81\9a\9c\83\8b\99\8c\8a\9a\8a\9d\97\8b\91\92\8a\93\86\7f\84\8c\85\94\86\82\98|\8d\93\81\82\99|\8a\8f|\80\98u\88\9d\86\89¥\7fz\9b}\88\9f~\81¡\83~\9f\80\8b\9dp\85£z|£lv¡rl\8exs\92hz¡pl\99``\9eXh¥Xo£bo¡_u\98Uh\95dg\9aYf\8fQm\95Rc\98Rf§Pg\98Rm¡Ji\95Ty\8dav\8dS\80\80Vkvct|auyjtpjjp\u~Vkrbjlgke`mk]paer[ZbcVhhOZeNczVapZWlN\wKgkRYpCcgJVpLZj?]q=OzAWnGL}CUg@W_8bg;Sf@\]CXX?He=Qe;Kh3Vl1Z[+aU&eV&_d\16_X\17\_\ecW\17bY\14qS\1ezO\1a\7fW\1d\7f^\16yS\11}P\1d\87S\1auX-z\\1e\85K%zO\18\85C"\83R&|Z yN\1f~W'oT&uR\1ffY"fg\19lc\17x]\1diS\12lZ\16he\17hg\18Wc+Jg)Oe9`Y1eb2Zd?a`=jjC_s7amFZh8cm;^m3k|3Yv4]|0Xn7VrIYmLcfB\pDad:TlM_^CZhG]cS_dYgfPgf^]kmalrhxzuwo{xvxttqm}pf\84xc\84wfxvV|x\xya\83pg\8awd\88yd\82\80W\89\7fk\93lj\88ci\92kg\8beo\80bt\8din\90\j\8dh_\96db\93cQ\88dD\88bP\8bfH|eR\86gKzmS~p]\8cxc\8ag`\88kX\8dr[\8ct[\80sX\86mR~mWzncthYud_waRvkGrgA~nJxm=\86m;\88m7\82mC\88tC\84gO\87mI\8doP\8etV\9bsL\92\80W\9c{K\93\87]\9a\82X\8e\82S\87\8a[\8f\84[\98\86`¥\85^©\89a«\7fZ©z^¢\89`\99\84T \83T \81Wª\8dF­\8cR¢\80P¤\8bV¯\89X±\89Z\9f\8aZ\9d\8aZ\9f\90Y\96\8eëì\8eâî\96êä\8fçç\8aëÞ\86åÛ\82ÜÚx��tà Ú|×�zÓÓ\84ÙÇ\8bÓ�\81�Ê\86ÚÇyÒÎ\86Ç�\86ÈÂ\85ÇÅ\8c¸¿\83¸�\89©±\85ª§z©¤\83 ¯\83\92­\89\89§\8c\8f¢\8a\96ª\93\94¢\96\8a\9a\87\88\8e\86\8a\8c\7f\91\7f\80\92x\85 }{¢{\82\9c|\87¤\7f\88£}\7f¬~\83ª{\8d¢\7f\8e£{\86ªn\88­p{«w~£v\83\98f|\98fs\97_l\9fdk£`c [k\99cf [l\98Op\9fSt\99Nm\8aSu\93Ln\94Mp\98Lg¡P^\98Cf\9bGv\90Rx\8aS|\86W|\84Svt\uobnsawpckqcfvUilSombti]uidokes`_he_ihMllKdsSfq^]sYh|NdsM`hM_f?baAbeJcuKZwD\nBRrBRp:Wa>Ue;V]9IY=MV:HSBN_>VY<T]0U]$TX#b_"e`\16d^\11i\\1dq]\19oS\1cpU\12|O\16\80S\15}`\10\82b\17\85X\11}_\15\7fX'wP'|M!\88O \82O\17\85X\15~]\15y[\18s[!vc\19kZ\17i_!d_\1eff$o[#hY%g[\1d]](db(Yi0Vb/Vd5e]:jbCa`<cb@bnAfq9ap@iq6bk:`t9du:_q?Vy=`wK\iI\lK`dI\d>dcD]e=Z`AYkLagGmtJoqQkpgksmluoi|wftutuurtzqv\83vm\84xg\81|c\7f|c}sg\89qc\84{j\8bye\85{k\89|a\8d{`\8bmg\95bc\93ak\8adg\92ik\8dnq\95al\93fa\93a^\9a_\\91kN\90bS\86hN\86tM\87rS\86wZ\81x[\8b|_\95pg\91nm\87ya\7f~_\81uT\82tZunbwxf\82q^\80lR|iU~qK\82lR{qJxuH~v8\80k9\89r>\8fiJ\8crP\86jQ\8cpL\88vQ\92{V\8f{S\98\85T\9f}\\99xd\8d\84Z\92z_\8d~g\94vj¡}e\9e\83a\9b\82a¥|bª\85\\9d\8c\«\85Oª\8cM£\8bQª\85Qª~Vª\85T±\84_§\8cc¥\85[\9f\88[¥\86Q\9f\8dêó\8fêî\85çà \8aÜâ\88åç\8aå�\8bçå{âÙ\82ÔÛzÒ�\88ÎÊ\88ÔÆ\89ÓÓ}��tÙ�zÑÀwÇÆyËÎ\81»Ç\88µµ\8c­¶\89µ®\82«°r«®\83¦°\81\95¤\82\9b£}\8d\9d\87\8a¥\8c\98\9b\8e\93\9b\83\93\8e\7f\8c\93\91\9c\87\81\98\86\8a¤\81\8e\96\85\8e¤y\84¤\82\8a¤\84\8a¥\80\80£x\85¨q\8c\9e|\81¨p\80\9e~z\99zu¢ws\96pr\97qx\97b\7f¢ei\97hr Xl\9dRt¤Th\9eR{¤W{\9cQp\90Nf\8dNl\9aGb\97Vm¡Mf\9fLc\8cPb\93Si\85KkxJt{RnsUiuYtwMhz]tnZby\tzWjwYvgXq_eze_tmWzhOftGivMk~WXnU[{K`kSWpC]q9__?__I[dCWpMYm9Sr;Qo?[a@Q\:Pc@TV8O]6YN1H[8Ld:S]1Sc.OX(P[*SU%fZ\1efZ\19nb\11rT\1esN\1dnY\13zR\19\7fZ\ ey]\vsS\12\81Z\1duM\19xQ\1d~Y*qO)\7fK!\7fV\1c\81O\15vO\14|S\1cl]\1csV\18cV\10nY\17eQ"jV)hd*YV\1ddU+dX*gc%Rb'[`.\b2]a2Xb7cj7]l5Zw=_gEfhHeo@lmI`m9bs9c\80BV\7fI^z9Uv<]aGe`Nc`A\bFbeJY]JbhHcgRaaSmeTuoXpspo|pn|fn|itwppuxpnt\7frw\82h\84wmt|cv|[\85pf\87nd\82tb{yq\7fps\8a~m\89vf\8egd\8fim\8cmq\93bl\99ir\93Yn\9c[]\8e_[ j[\8fyT\90rL\81gQ\83j]\8fmS\8ep_\8dw[\94mb\94ti\8du_\8exU\85zQzwW{sS\80je\80h\\88ma\83gV}hJxcMxoR{pR\86tE\81iK{vE\81lH\80tO\82pK\8fmW\87tQ\96nO\93yV\94}a\90sX\9f\7fY\9f\85O\9b{O\9c\85a\8fxk\93{d\9f\8b]\9c}i \84i\9b}m¤\84e\9f\81f¢\7f[­\8d^\9e\88T©\80`¡\83^\9e\7fU«\89S¢{\¨\82S¥\82\¢\83R\98\7f�ñ~ãí{äì\83áÚ\8eßß\89ë�\85ßÛ\84×á\7fÜÓ\82Ø�\83ÕÈ\82ÔÒ\89�Ì\84Ì�\84ÖÆtÕÃ\7fÇÃyÂÈ~ÈÀ\84½³|±±|²¸v²·{¨±\84\9b®\80\9b¥\88\92«~\8c£\7f\87\9a|\8c\95\85\95\91\83\91\8e\8f\9d\96\92\9c\92\88 \92\86\9f\8c\86 \81\90\9c{\8c\9bv\90£y\90\9cw\8a¥p\87\9fn\83\94z\87\9a~| }\81\9fvy\98ry\9bwv\9ak\83\9fa\84\94c\83\9e]r¢^k\9eYq¨Sw Wx\9dLp\94Tt\92Of\88Fb\8fNj\91Um\94Ul\8aOh\8eQe\83Pc\7fReqEvtEvpAmnJdsKisIgzZo{Zqt[poSxadw_cxc_wvTz{SrqEp}J`xQ[vTZzGSuGReFWj9Te4Qh?UgIchG`k?\oGWp=X`6U^3Vd4J[3OV7SP0OW2MY5RX(Ph#J]-Ma%]W!fW\16ob\fk[\10lR\11qU\16lY
-pa\10xf\10v\\ f{Q
-pQ\1cqV!xW |J(sN'xQ&\81V rN\elJ\1enI\14pU\13m[\1chY\1ac[\edQ!\N#Q\"]\)]Q'`Z&Z\-P\.Rb3Xd/Ob+Qb6Th9Tm=[q:co5ag>mfKglGgt9Zs:bxG]{Cb{IZt>\o9_eEUe@YlGgiNciLdfJedPn]Sid`piiutdsomlvfxpbrsgyoisqlyfk\7fey\84nvzirx^\80s\\82s`\7fxi{uj\87us\8czg\90xi\8ckt\98`n\92\q\93hr\93`j\90^j\9a^k\9emZ\94oN\91vJ\85p[\87w[\86s[\90uT\93vR\8enY\8cud\88x]\91vR\85\7fT\82|M\86\7fS\81xayn]\7fl]\88uY\89gL}cNxkJ\7fkP\83qT\85mP\84iFxoI}pG\84rV\87kU\8af[\8bqS\94qQ\91q^\9as]\92}T\8fzQ\9d\80K\95\80O\9d\84\\9ey^\98\83^¡\88f \89f\9d~k\95{t\99{k¢\7fh \82_¡\80X\9d\8f_\9f\96\\9c\8b]¡\82Z§\80X yY§{W¨\8bI\9d\8dJ¢\92åß\87èé\82èä\7fîã\87íÛ\80à ß\7fÚÒ~ÙÒ\7fäÕ\82ØÎ\81âÕ\80ÙÎ\85ÙÊ\85Ò�vØÃsÑ�\7fÇÃ~ÉÂ\85¾À{º¹z¸�~µ¿\81¶°~\9f·{\9e®\84\97ª\87\97\9f\84\8f§x\95¤\89\95\96|\89\8d\85\89\93\8d\91\90\8a\8d\96\86\9a\86\8f\95\92\95\93\87\9c\97\87\98§w\8d¥s\90ªl\87\9ex\84\9a|\80\9cs\84\97o\84\9cu\85\97z}\97x\88\96j{\9dl\8b\9fc\81\9c^\86\9cZ{¡bz©cu Z| Tv\97Lo\90U|\9aXl\8cMl\87Sl\92Kj\91Rj\88[`\88TixW`pMgnBlvIuy?sqDszL|nBztT|vZwxWolStmZva]ziLtiTpxIlwJe{QdyIe~NVs?_mEWlCPp>Ik7MeELkDWl9ao9``6O^<T]6Nj9Pf+G\0FX8HS+U^-EX8FW%El\17Qh\1aUX$\`\1caU\12cR\18fN\16fZ\1enX\1ckT\17bU\18t[\bmW\17tP\16qM"pK\17jO\1czK!qL\eoP&xR\17iV\efW\17lN\12_N\17^[\13`W\1e\H\1feH$[L*XL&PQ$]E+SG0^T(VX,SX0R^&NY%^i1Zk>Tq<bq>an6gl=dnDhg=fsEWy@Y\81?f\85Ii\81KbwI]jLatL\nA`fLakGZdP[]Hd`Njd\gdeoebsj[pgelqkiwiordnulvilljux_qqdx{hmlesvhv~kvslq\81i\7fn|\8d{l\85yi\89gu\8bal\99an\90hg\96hl\99Yi¡l_\90iY\89iS\95vU\87rS\87wa\8eqb\8b}[\95~Z\92w^\90oW\94rc\8f~]\94zR\8e}Z\88~M\89|SxvR{nVymV\86mV}kK\83bS\7faK\8cmK\8d_W\85rV\82oK}jP\80v[\81f_\90m_\89uV\87vI\91oY\94p[\9do\\99~W\94}V¢\86X\96{a\95yg\9c\7fj\9d\91a\90\8ck\93yr yc£\84n§\86o\9c\83h§\8dh\9a\90`¢\89_\9f\8di\97\85f\98\88Z\9avV\9erQ©\84P\9e\8dI\9c\94âÜ\93äÞ\8fåØ\85ïà \89ìå\86áØ\87æÛ\88äÔ\87ãÈxçÊtÙÆvÙÉwÎÈxÑ�}ÙÃ}ÒÅqÔ¾uÒ¼\80�Â\80ȼ~»Æ\86µ¾\82¨µ\83§¶\86\9e±\8b\98®\8a\92 \81\92\9d\7f\9c\9c\86\99\97\89\91\92\81\8e\8e\87\8c\94\8a\8c\91\94\8b\86\96\9a\88\91\9c\88\9a\97\83\9d \81\93¢w\89¦r\8d¤p\80\9er\82\9ar\86\9bj\8e\9cn\88\9cx\88¡x\8d\9cs\8a\96g\83\9ce\89\9ea\8f\9d^\86£_x\9aVx\9dXy\9dSv\91]w\8c_x\90Oq\8dHs\84Ld\8bSe\87Y[\83T\\86V`{HcqHfxGgsBjoHotArvG}zBsuFxnPwlGxiHllFqhRssNplHsmVjyRj~RbwCUs=XzE\\81@YzJQlIKk=I^CN_7Wh3Uf@[^<W\2P].Ef2=]2Aa0AX,N\7GR/HV-Kd+Hd\1cQf\eTY\14MU\12SU\12bN\1e`P\1eXQ\1eaU\1edS\1a_M\ ffN\14lV\15lP\13mK jQ$mF!vE\1cnM\18nR\emN\1ccT"fW\18jY \P\19XI\19\L\1fTI\18ZI"[K%MB,OE6KF1PC3VF(RN1RS*P]3^]/Sk1Vi7Sf=a`C`bD_k>[o@WlCYl;^v<l|<i}DiqCauFnuMivFhiB_dEUhDYeIR[LU]Zd_Zacdh_Ynd[ll^skmwwuvwmrqbjnfvepsdqvlykdpzh~wb{wjq}nvup\81xs~rn\81wo\86xs\8fiy\95ls\8d`i\95gn\9cai\99fd\95dg\8fpd\8fmY\8dta\91~Y\97\81a\99|d\9b\83d\92xb\98x`\8d{a\91\84X\93}T\8e\83Q\91wN\8atX\85uRzuUymO~pJ\82oF}kS\87cQ\83`H\87bO\8bpI\81nO\81cW\83hZ\85q^\8au^\87u`\96uP\99}X\93uW\98o`\9ar^\96wZ\9f{Y\9dwa\9c}k \8cl\92\8am\91\82t\98\81j\9b\86j\9b\80o\9c\8aj§\8fh¡\8ck\9c\8d`\9b\93e\8e\88f\90|l\97~`\95\80X\99x[\9b\82Y\9d\85P¡\86ìß\92éã\91îé\7fõè\8aï×\81êÚ\88èÖ\85áßzæ�wòÉ}ã�v�ÀyÜÂ\7fÚÎ\8b�É\87×¼\7fÊÉzÑ»y�µz»{¸¹\81»½\7f°¶\7f±®| ¬\82\98ª{\98­\86\9b\9b\83\98¡~ \93\86\9c\8f\82\93\8e\82\95\94\91\9c\96\90\96\8e\94 \8b\92\9b\80\8e\9ev\92\99w\95§\80\92«t\87¡q\89\99o\84\9dr\8e\90s\83\92o\8b\98x\94£v\8f\91u\95\8fh\97\94f\97\9e_\89\97_z\9fe\7f\9eYu\97S\7f\9f[m Qu\90Ju\8eYp\8cPu\8dOi\82O]\84bk\87]_zMj~ShrGkxGglAdmFpmHrs>o\80M{mLynUqoEpnDpcI|nKucMirKk|Cc\80MlxEeyDRpDSw=SnHUl=TqHMg5Vi>Ii9Yl?UfEPo9F_7Hi+Dh0Kd3Bh*Ng5F]2GU0DP*QT\1cBb\1dUY
-PP\13\R\1aYO\f]J\12bS\18iI\1egQ cK\ f_F\10bX
-uY\17dM\elL#gG\erR$kL\18jL!`N%gJ%^O\1e^N&fC\1fRD WN!]I+VQ(PI#TP!SB/GH7QL-[D/MA/OS&OP#SU&\b6bV5\a.[l;`i3f`BaiBYn=Zm>QsCXpBil:esIjgBcl>kgB_r;ggC`l?\iHSeTVh\WbXY\Zgfnol[ykexpjxue}sqrqovmbqodenft[ml^xdbzw^xt_\89op~}hwvw\86tr\85orzeh\7fhv\87hm\97ad m^\92l]\9e_^\97e^\8bnh\90l[\95ja\8bmV\8f}V\91qW\9c\81c\92se\9ev\\91vf\97uc\89~Z\89uZ\8e~R\86yP\8dzR\83vOypR\86xV\83yS\80jF\82iT\82[E{gO\8bmP\80nX\8cq[\92jT\80eT\89hc\81tW\88r^\97z[\92}P\8dzQ\92wS\8dyV\95w^\8e|W\98\87Y\9b\7fb\99\85l\8f\95i\99\86r\96}u\96\80u\96\84u\99\88e¡\89h\98\8dc\9b\8aT\9d\90d\91\86T\9e|a\9axU\93{S\97~S\98\7fR£\87R§\8aóð\88õë\83ýß\89öã\8eðØ\8bôÙ\84ëà \83èÜ\83åã\82ðØ\85è�\82ì¿\82äÅ\89â�\86ßË\8e�¿\87̼~ÃÄ|ʾ}Æ´uǽz¾Â\88¸¼\84«³\83©­\82\9e±\82¢§~\9e¥}\97\9c\87\97 \81\9b\95\88\90\99\84\99\8c\86¢\90\96¥\8a\98\99~\95\97\82\8e y\8d¤u\87¦{\8eªx\8f¤s\87\9ds\84\96o|\9cf\84\94h\86\91m\93\99u\8d\98r\93\91c\94\90j\95\99a\88\9dc|\9cat\97Wz\8d[p\9bWr\9dHw\9aKm\8dSt\94Rs\89No\83Tb\8bbk\8ccl}UpzKe\80Ql\81XguQvzCsv>j{Lg{Mt|HqqKgp?ej>uc8{f;rsHiqNbwHlzBh}AbwEPq?Kz3Mz>Oj=Rp9\h:On@Nh9Om6Vo8Jk;Cm3Mc#J_"TX,Na(Mc7Kc9NU)QV)PS%DW\14IT\ fPM\11NV\18ZM\ fUW\f`R\ ecI\1cgL\1c^F\18ZE\17_N\14nW\14oL\19_M#nT\1dkW$k]#cS gJ dP ^P#`>%`B(YG\1e^I\1dRS%TI1NE+SE(GS)SN+WJ6]B2QJ,WS%T\+bb4`Y4QT-SW+[c4Wn4`m6_j>[sDVsAPp<Zm<]c@aj?fl;[d>bd;fb@f`DbiC\`TTgSWlQUh_Qmb]jfac[ui^trctneuqc\7fukxmfjffe\rqamlh|jk{jg\80n\\8doa\8dxp\86wu\80x}\80gz|`i\83ef\95dj\9aa_\9cmc\9am_\9fda\96da\8cqb\90o]\96h]\92a^\8dj^\98oZ\9axa\99t[\93oa\8dxb\89vZ\8fq`\97sU\8eu_\87|Z\80sV|iL\80uY\82vW\87uQytMyfK\81bH\83eM\89nQ\85{S\8cvW\92sV\93j\\89ob\86t]\8awT\93pV\92tO\8f\82X\89\8aS\8f\81U\8c\80]\8d\81[\98\7fe\99\88g\91\94e\94\90q\8f\8an\8e~o\98xk\97~s\92\83q\9b\8ah\97\86g\99\91X\9c\81L\9b~Q\9b\80U\91\80P\8c\83\\9d~Y\9e\85Z¬\8c[¨\8bõð\80ðí\8dõè\8bóæ\89òå\91ôâ\85úÙ\8díæ\89îá\85ìÒ\85çÄ\81ðÅ\8bß�~ÚÊ\8bÚÃ\96ÑÈ\83ž~¾Ç\81½Ä|ɺ{¿µ~ƽ\80´Ä\8c°¿\8d¦²\85ª®\8d«©\8e\9c£\83\98\9c\8b\94\92\87\94\94\81\9c \86\9e\9b{¨\8e\90§}\90\9b~\91\9cp\86¡t\8a\9av\86\9c}\82\9fv\92ªo\93¤t\8e\99f\88\99p\8b\9fh\8c\94v\93\94q\98\8dq\9d\95f\90\99c\93\9ei\8d\95U\80\91T\8b\89X\89\90L\84\95Tv\95Tz\9aIu\93Uf\89Lu\85Ze\87[g\92]k\8c_i{Zly[mxPbwUj\81Qw~LxuIlrJf~@pnEliDnv8noFyp7vl8np=elFoj:l{3as:fz=Yo/Pn7Nn6Xg0Ug>^h3No1NfAJn.Hk,Gh/Ri7Pb/SZ%T^([d$UZ-O[4Pf4R[$W_$IX\11IM\13LZ\vVJ\ 1NM\ fXU\ 4VK\ 6gQ\16dR\18`N\19]M\vgW
-mY\1afQ\1ebG$`R"eW#dQ\1aZ\&^R(_D\19g@#b>,\;\1e[;\1cYD&TL&]Q\1dGR,KT"HR4HV8]L9SN+^W<R_6^g(UY3ZQ6aW8YP/Vb.^n:]r@^b=_oGWh;]f=\i@Td?[^C_m<^hDhm>`]:iaHUeM`n\SjV_ifced_pb]pkmolseXxr`{gk\80f_~ljto`gijghpa`liiymg\84hc\8dtb\91og\8cso\8ekz\8ctuz`z\8d`o\88fl\98gn\8eme\9ede\9ehY\94i[\96h[\8fm`\89qb\8bef\98h_\8bmT\91r\\8btZ\88mW\94qX\85rQ\91}W\96kX\98kZ\97te\90x^\84n\\88hG\83iJ\82h[\87qO|fD\82iE{hP\80nK\8drL\8bw]\96yS\8eq`\8fhg\8bob\95}g\86yZ\89\84a\8f\86[\87x`\82\86_\8d\87`\95~Y\8c\87_\9a\8cc\8f}c\91\8eg\93\93i\90\84z\8a\81s\91\81k\94\83w\97zj\97\85\\97\81U\93\8cU\96\86Y \87M\8f\90G\8e\87N\99\83W\9e\8bV\9a\86Jª\91W©\8dîæ\89ïæ\80öí\85ðå\86ñè\87ûÞ\83÷â\85÷â\80üà \80ð×\81÷�\87íÃ\84ßÉ\7fÕÌ\84�Ó\8c�Î\8dÊÌ\80ľ\85õ\81�¼}¿¸{ÀÂ~¼À\83º½\87�·\8a¸¹\89©©\8f¨¤\93«\93\96¢\93\8a \8d\89¤\95~¥\8c}«\8e\82§\7f\86«z\8c\9b|\8d\97q\8b\9em\83\98p\84\9cg\83¢c\86\9ed\97\9fh\92\9ce\98\9ak\92\8ck\8b\8em\8a\85t\97\87r\9b\87m\8f\91c\9a\88V\94\8bM\8c\84N\8c\8bK\84\92S}\9aVr\9aMq\96Qk\9b^f\8e]c\8cRe\87Xb\88Q_\82Vc\87Pg|Tn}Oq{Gz}KuuMmzAmrBon7co:frDpk<lb;se9va4jh.`j)gq5fm/eq/_d&Qf+Vh1_l(^o1^x:Qp<Ii;Ni:He0MW*QW-\X'U\$ag*^b0_g&Za)[h!Xa%S`\1aRZ\13QZ\ 4XZ\ 3]\\0SM\ 4WV\ 4PQ\ 6UR\13bI\13dJ\10bR
-fK\11_L\10SW\1aXR\13TU\18aT\1f_\,[V'bK(`E\1cbC\18d>%aD\1cg>#hB\1caQ\19^Y\1fPT#SP3QR1WS/QF0YP8\]:Tg5V`6^T2bS1eN.]Z,a_3]f.fi9`f=VmF[gEYgKQlD]h8_b:^h@]h;gc;ah>YjGXfVWea`ea_jbgfb`iajtjqpeno^skYyf_pk^xj_tqnkik_ajafm\kral\85lh\82v`\8dkm\97hq\91^r\85dv\85\y\87_l\8f[m\95al\91c]\9el\\9cuZ\9bm`\93f]\92fT\92rR\9bl]\92fU\85qS\82yR\82t[\86pU\88uS\8b{Y\96tZ\9fkY¢pb\99th\89sb\7fxZ\8cvO\87kG\8dkO\86gS\8bfL\87oQ}tJ\82xJ\83zT\8euS\89l[\92sj\90mg\8fta\98\81`\8f\84_\9a\87^\96\85i\9a}b\8c\87_\8d\85Z\94\7fW\97\85U\95\86_\9c\81k\9c\8be\95\91p\95\96r\8b\90v\89\86q\94\82l\91\88i\99~[\9a~T\9c\8a\\9d\90O\95\94N\94\92M\94\8cL\95\8fM\95\89F£\8eF\9f\85R xùã\88êã\86çÛ\80èæ}ú�\7fóØ{úà \83ôÔ\8aóã\85ðÛ\84ñÊ\93å�\8fá�\8dà Æ\82ÑÇ\95ØÙ\8dÕÀ\8b̽\8a�µ\8bż\85ľ\86¼´\83´¸|°»\8c²·\89µª\8d¼§\8e©\98\89ª\90\9a¯\95\8e¨\91\94«\98\86°\8f\88§\90\8a¬|\88§y\87¨\83\8c\9es\8c\98o\8e\9ep\7f¥q\8c¦o\8e h\94\99b\91¢m\97 g\99\8fh\89\93h\95\87a\8b\93e\92\96m\93\8d[\8a\95S\9b\85P\96\88S\90\91J\8b\87[\8b\8fN\81\8dQq\9cXd\8fMd\83Nc\8cRk\85Lf\86Wa\85[m~JtyVpzPguItpIyvMszCim8rwEck6ie6jh@dp=lh0so4sh;mm7bk6fq-Wp!Rq&Lk\eVe)Zi \y-X\829Ro.Ok,Ic,Hq(Wd'PZ-R^*J_\17Ni\1dY_,Wk\1cgk\1fZj\1eOc#Q\\11N^\fXV
-_X\0OR\ 5RM\ 1UU\ 5OO
-_J\10aT\ e[U\12hZ\f_N\14_F\12eO\11VX\1fUU"]S\19UK\1fcL+bG&g@\12`@\14e5%^9&h>!fI\19bE\ fQW\15F[\17OO#HL%TJ2M>-ZQ)\Z*d^,Yf;dY4dP5XU9Ma8V_<W\5^_1`h@ZnA_i>ZsLNn>Si8Yb9dj9dd;[_G`lNa_N`qW\aYap_\fbXnb_j]kzgcvhoz\rnkuwbofmtkgpbpmog`jl[iebjqfg\80oo\8dwa\98gb\91dv\8e_t\87ov\86jn\88\w\87cl\8b[e\8f_d\9aqc\97uh mk¡tb\9bgf\93m\\8euh\8fn`\85d\\86d`\8eic\8bmd\89w]\91pQ\94lW\9exU\97sY tg\92|n\8cmY\8coX\87kN\81gN\86hK\8bsP\8coF\88xP\87yQ\80zL\8axN\92yd\87uX\8dvf\8e\80U\8a}Y\86\89\\89\81b\86\85i\8a\86^\86\83i\85vW\90\83U\93\8aX\93\8ad\91\8f\\9e\89p\91\90r\97\8ee\8a\97f\90\89q\86\85f\91|c\91uk¢\89_\98\91a\9e\88U\9b\8bP¥\94Y\91\8fV\8d\89G\99\95T\9c\84R \81^©sóävìã~éå\7fîßxíÖvíÜzðÒ\81úÖ\88ñá\8cíÛ\95æÕ\93äÑ\98îÄ\92çÄ\88à È\8cØÔ\86ÙÉ\8cÎÃ\85Ⱥ\8c¿º\83ƽ\83¾¶\81²¶\82´°\8c°¨\88½¨\86¦\86·\97\8a¸\91\96²\8f\95©\8a\8f¯\8e\93¨\8a\8b¥\84\87¦\8a\83¤\7f\88\9d~\8a§\7f\88¢x\8c\97t\84£i\83¥n\8b\9ec\98\90h\90\9ed\99\9ei\95\90g\93\8ba\95\89\\8c\93h\8e\93i\8a\8d[\97\8a[\96\8f]\8f\8ec\91\8cX\8a\8fW\8c\81P}\8fTo\94\h\96Yn\86Gb\85Nf\85LcyXm}Up}LwxKjvRlkLuoGzqNrs>jv9ug;nd?ot5ar9av2co2pu3qq6ev5iu.Zu(Vp#Sv\16Wj\19cs\17_t&]|-S{&Ju$Jg+Qs1Sp-Pf$[h'Qc\1cOh\ fKj\11Wj\18cp\16cf!Wf$Mc\16Kf\12P]
-YZ\ 2XG\ 3YE\0]O\0YJ\ 4\O\b`J\10^U        ZT\ eeP\18jQ\18bH\1cZR$a[\1f]P#[V\1e[P$_N ]E\1c]9\16\A\1fd9\19b6\1aY="YK"[J\14JL\11GQ\18OF\19KH'GB!NE\1dTP\1a_L'ZY0\a2Xb.[\2Yg8Nc=JaANc?Z[7W]9akHamFVrGYqGXmI^a;_]Aih;]`CVfOXnN]jW]fLcoMfiaZse`k^endol\nvcwv`qvmuvhkkknktnfmrldedhemmplzmn\8bja\91bl\88fp\86mk\92mo\8edi\94br\90et\91_n\8dgr\87ms\8erv\92tr op¢hj\92js\8dto\8af`\83f`\8bke\8add\88sX\94p]\94rb\92rX\95nX\96qY\9dye\97vi\8eqb\86v_\8ffX\93eO\86sS\7fpL\86rJ\90uK\89lO\8apJ\81mQ\8at[\89uY\90xX\93\80X\90\85T\8b\83V\92\82g\87\8bo\87\86i\83\82]\88xa\86y[\90\86Y\90\8fY\89\8cY\93\87_\94\8ep\92\8fc\93\8da\93\82^\90\81d\8d|_\91|i¢\84`©\89[§\8cS\9f\81T¥\91S¡\93V\96\9bY\97\92R\9b\95`ª\8d^©uöõ~ïã\81÷ä\7fîãrîéwõå{ùØ\84òÖ\85ëÓ\8cîÔ\98íÕ\8fã�\92çÔ\98äÌ\8aÙ�\93×Ë\90ÖÌ\8fËÂ\8bÈÇ\94ø\8f°\7f·½}²°\85¸¬~²¨\85�¦\8b´ª\83¼\94\8e®\92\97¶\89\8c°\89\8d¦\87\92§\85\8e\9e\84\80\9f\84\88¯\8b\8bª\85\8b¤w\8f¥r\8c\96u\91¢{\87\9bt\8e\9av\9a\91n\94\93n\9b\94q\9c\97]\95\8aZ\99\93[\97\95]\95\90a\8e\97_\87\84b\9a\93_\97\8bT\96\8cQ\92\8bQ\8eyZy\87Rt\8cSw\84PwwI|yGl\82Bl\89HuuMr\80GpoNpsPjmIvsQvgDwn=jo1et?gm5ao/dc4cc,Zh%ds*ko"kg&eg#jh+`d"cp\19Yl\14Xs\1c\i$`h*Rn$Xg\1aYi!Yp*Ko\1cMt!Tj\17Rk\11[m\ 4``\ f`h\16Xl\12ea\1dYa\19^Z\16SV\vUW\ eYP      XG\ 3_D\ fYM
-XM\ 4VV\0VS\ 3[R\ 5^T
-f`\1aYP\1efN\15\J\16ZU\11ZS\1eRM\16`T\18TN\12UD\10W7\15W9\ f]B\va@\16_8\1cXK\17YH\11JR\14NQ\11EG\15KG$OG#^K\19]F\1c^R2]T%_^6_`:be3Lc5O[>Rk@Um8Uk8ObESh<TcHTpBbsA^fLbiBZm?lgIWaH[pSdpL^fNavQlsA[tK]vae}h]sa`\7fojrbguckzermommmgfo_memjljisib{fn{pi\8ebp\88ds\85fs\86]q\96bf\8dey\92br\94gk\96]l\96gy\8euu\8ctn\92yz om\9eqa\92of\99of\8frm\93g]\89^d\8d_f\93fd\96w`\9apY\9blX\9dyT\99}X§mb\9ake\9axg\86o^\89jZ\87gY\8coN\87gR\86rG\86sE\88vM\8bkR}hL\84xW\87vZ\89oN\98wR\8d\8eU\83\80T\8b\91d\92\91Y\8d\8dg\81\86\\86\80U\8b\86Y\8a{U\90\85X\8d\8aS\8e\86h\96\93e\95\88i\99\90h\8f\8cf\8e\89n\90\85^\95ua\9b\84Y¬\82^¨|U\9fyU­\8d^\9a\97S\97\99U\9d\95R¡\8a_\9f\94_©|úñwùítÿêwÿßxøèrÿç}ÿã\82ôÛ\84ôÞ\92ðÔ\9aë�\91áÔ\8fçÇ\90æÇ\93ã�\8a�È\84ÕÉ\88�Æ\8bɺ\8cȵ\86ɽ\83¿´\81ø\84¹µ\81¼²\85À±\8d³©\88·\9a\90·\90\98µ\8c\93²\8a\94¨\8a\99¦\8b\94¥\89\91ª\88\82©\87\82¨\87\82¯|\86³t\88¥q\8c\9bw\90\95y\93\90n\8a\94m\90\97c\99\95j\98\8eh\9b\91`\9a\98d\99\99]\99\9ba\8e\91_\90\85f\90\86a\90\88^\96\86S\92\8bX\83\81R\82\82P\80\85U\88z[\83yXxxSy\82IsyJ~~G~uBvpFvs?olDtjA|jBzl7jp3ll>gf9a^6e`(bl$_o%_q'kn\1ebq$df!`d\1adb\16ig\15^f\1c_c\e`h$Yo\1aVl\e]f\1d\i\17]k Ol\19Hg\13Kj\ 6Rf\ 6Yq\bUo\10`_\10Vh\10[b
-``\11`W\ f^P\17UN\ eTQ\bSI
-QK
-`Q\ eX[\aT^\ 6U\\v[W\vaX\14W_\11P^\17ZX\18VR\ e^N\fUU
-XL\12[M\10SM\f_B\ 6]A\11V=
-XG
-XN
-^C\12]=\15TB\17SN\16QI\eTL\19QO\16WJ\16\G\1f[D)`N0aP2Z^.^b,W^:V_?Qa<Rg4Th8WmDOfEMgGWcI]iK_fDRlAViMTnBamGWkCYiL\hRfiFcnCirEd{Pa{UZvgb\80il}phyjmujk{ib\7fmcsjXto\pm]iqghvhfxji}op|ep\8cXh\95\h\8efs\8dgm\9aip\99rw\9ekp\98jr\91py\98kt\93rl\98tq\99rr\98xh\94wg\98qm\91gn\9bjf\95nh\94el\95cb\9aqf\8fqj\90o`\9bzi\99za t`£qh\94si\84xh\82\7fa\83t`\84u]\8ciV\90rN\88mL\8akP\83uO\83vL\90jQ\8bmX\91sP\92\84O\83\85Y\85\83[\91\90S\8d\94S\87\89\\86\87Y\91|U\90x]\95~b\93\85`\97\80]\8c\82^\84\8cd\8d\88\\90\88e\96\8bh\91\82g\96\83g\96{Y£|^¥\7fU¦}] z\¤\83]\9e\8a_\9e\86S¦\93S¢\97]\98\8aW\9f
\ No newline at end of file

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/kaimono.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/kaimono.ml
deleted file mode 100644 (file)
index e524156..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/kaimono.ml
+++ /dev/null
@@ -1,130 +0,0 @@
-(* $Id$ *)
-
-open GMain
-open Printf
-
-let file_dialog ~title ~callback ?filename () =
-  let sel = GWindow.file_selection ~title ~modal:true ?filename () in
-  sel#cancel_button#connect#clicked ~callback:sel#destroy;
-  sel#ok_button#connect#clicked ~callback:
-    begin fun () ->
-      let name = sel#get_filename in
-      sel#destroy ();
-      callback name
-    end;
-  sel#show ()
-
-let w = GWindow.window ~title:"Okaimono" ()
-let vb = GPack.vbox ~packing:w#add ()
-
-let menubar = GMenu.menu_bar ~packing:vb#pack ()
-let factory = new GMenu.factory menubar
-let file_menu = factory#add_submenu "File"
-let edit_menu = factory#add_submenu "Edit"
-
-let sw = GBin.scrolled_window ~height:200 ~packing:vb#add
-    ~hpolicy:`AUTOMATIC ~vpolicy:`AUTOMATIC ()
-let vp = GBin.viewport ~width:340 ~shadow_type:`NONE ~packing:sw#add ()
-let table = GPack.table ~columns:4 ~rows:256 ~packing:vp#add ()
-let _ =
-  table#focus#set_vadjustment (Some vp#vadjustment)
-
-let top = ref 0
-and left = ref 0
-let add_to_table  w =
-  table#attach ~left:!left ~top:!top ~expand:`X w;
-  incr left;
-  if !left >= 4 then (incr top; left := 0)
-
-let entry_list = ref []
-
-let add_entry () =
-  let entry =
-    List.map [40;200;40;60]
-      ~f:(fun width -> GEdit.entry ~packing:add_to_table ~width ())
-  in entry_list := entry :: !entry_list
-
-let _ =
-  List.iter2 ["Number";"Name";"Count";"Price"] [40;200;40;60] ~f:
-    begin fun text width ->
-      ignore (GButton.button ~label:text ~width ~packing:add_to_table ())
-    end;
-  for i = 1 to 9 do add_entry () done
-
-let split ~sep s =
-  let len = String.length s in
-  let rec loop pos =
-    let next =
-      try String.index_from s pos sep with Not_found -> len
-    in
-    let sub = String.sub s ~pos ~len:(next-pos) in
-    if next = len then [sub] else sub::loop (next+1)
-  in loop 0
-
-let load name =
-  try
-    let ic = open_in name in
-    List.iter !entry_list
-      ~f:(fun l -> List.iter l ~f:(fun e -> e#set_text ""));
-    let entries = Stack.create () in
-    List.iter !entry_list ~f:(fun x -> Stack.push x entries);
-    try while true do
-      let line = input_line ic in
-      let fields = split ~sep:'\t' line in
-      let entry =
-       try Stack.pop entries
-       with Stack.Empty ->
-         add_entry (); List.hd !entry_list
-      in
-      List.fold_left fields ~init:entry ~f:
-       begin fun acc field ->
-         (List.hd acc)#set_text field;
-         List.tl acc
-       end
-    done
-    with End_of_file -> close_in ic
-  with Sys_error _ -> ()
-    
-
-let save name =
-  try
-    let oc = open_out name in
-    List.iter (List.rev !entry_list) ~f:
-      begin fun entry ->
-       let l = List.map entry ~f:(fun e -> e#text) in
-       if List.exists l ~f:((<>) "") then
-         let rec loop = function
-             [] -> ()
-           | [x] -> fprintf oc "%s\n" x
-           | x::l -> fprintf oc "%s\t" x; loop l
-         in loop l
-      end;
-    close_out oc
-  with Sys_error _ -> ()
-
-open GdkKeysyms
-
-let _ =
-  w#connect#destroy ~callback:Main.quit;
-  w#event#connect#key_press ~callback:
-    begin fun ev ->
-      let key = GdkEvent.Key.keyval ev and adj = vp#vadjustment in
-      if key = _Page_Up then
-       adj#set_value (adj#value -. adj#page_increment)
-      else if key = _Page_Down then
-       adj#set_value (min (adj#value +. adj#page_increment)
-                        (adj#upper -. adj#page_size));
-      false
-    end;
-  w#add_accel_group factory#accel_group;
-  let ff = new GMenu.factory file_menu ~accel_group:factory#accel_group in
-  ff#add_item ~key:_O "Open..."
-    ~callback:(file_dialog ~title:"Open data file" ~callback:load);
-  ff#add_item ~key:_S "Save..."
-    ~callback:(file_dialog ~title:"Save data" ~callback:save);
-  ff#add_separator ();
-  ff#add_item ~key:_Q "Quit" ~callback:w#destroy;
-  let ef = new GMenu.factory edit_menu ~accel_group:factory#accel_group in
-  ef#add_item ~key:_A "Add line" ~callback:add_entry;
-  w#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/label.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/label.ml
deleted file mode 100644 (file)
index b9829fb..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/label.ml
+++ /dev/null
@@ -1,48 +0,0 @@
-(* $Id$ *)
-
-(* Embedding xpm data into an ML file *)
-
-let openfile = [|
-(* width height num_colors chars_per_pixel *)
-"    20    19       5            1";
-(* colors *)
-". c None";
-"# c #000000";
-"i c #ffffff";
-"s c #7f7f00";
-"y c #ffff00";
-(* pixels *)
-"....................";
-"....................";
-"....................";
-"...........###......";
-"..........#...#.#...";
-"...............##...";
-"...###........###...";
-"..#yiy#######.......";
-"..#iyiyiyiyi#.......";
-"..#yiyiyiyiy#.......";
-"..#iyiy###########..";
-"..#yiy#sssssssss#...";
-"..#iy#sssssssss#....";
-"..#y#sssssssss#.....";
-"..##sssssssss#......";
-"..###########.......";
-"....................";
-"....................";
-"...................." |]
-
-open GMain
-
-let main () =
-  let w = GWindow.window ~border_width:2 () in
-  w#misc#realize ();
-  let hbox = GPack.hbox ~spacing:10 ~packing:w#add () in
-  let pm = GDraw.pixmap_from_xpm_d ~data:openfile ~window:w () in
-  GMisc.pixmap pm ~packing:hbox#add ();
-  GMisc.label ~text:"Embedded xpm" ~packing:hbox#add ();
-  w#show ();
-  w#connect#destroy ~callback:Main.quit;
-  Main.main ()
-
-let () = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/lissajous.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/lissajous.ml
deleted file mode 100644 (file)
index 9d6cf3b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/lissajous.ml
+++ /dev/null
@@ -1,48 +0,0 @@
-(* $Id$ *)
-(* Lissajous \e$B?^7A\e(B *)
-
-open GMain
-
-
-let main () =
-  let window = GWindow.window ~border_width: 10 () in
-  window#event#connect#delete
-     ~callback:(fun _ -> prerr_endline "Delete event occured"; true);
-  window#connect#destroy ~callback:Main.quit;
-  let vbx = GPack.vbox ~packing:window#add () in
-  let quit = GButton.button ~label:"Quit" ~packing:vbx#add () in
-  quit#connect#clicked ~callback:window#destroy;
-  let area = GMisc.drawing_area ~width:200 ~height:200 ~packing:vbx#add () in
-  let drawing = area#misc#realize (); new GDraw.drawable (area#misc#window) in
-  let m_pi = acos (-1.) in
-  let c = ref 0. in
-  let expose_event _ =
-    drawing#set_foreground `WHITE;
-    drawing#rectangle ~filled:true ~x:0 ~y:0 ~width:200 ~height:200 ();
-    drawing#set_foreground `BLACK;
-(*    drawing#line x:0 y:0 x:150 y:150; 
-      drawing#polygon filled:true [10,100; 35,35; 100,10; 10, 100];
-*)
-    let n = 200 in
-    let r = 100. in
-    let a = 3 in let b = 5 in 
-    for i=0 to n do
-      let theta0 = 2.*.m_pi*.(float (i-1))/. (float n) in
-      let x0 = 100 + (truncate (r*.sin ((float a)*.theta0))) in
-      let y0 = 100 - (truncate (r*.cos ((float b)*.(theta0+. !c)))) in
-      let theta1 = 2.*.m_pi*.(float i)/.(float n) in
-      let x1 = 100 + (truncate (r*.sin((float a)*.theta1))) in
-      let y1 = 100 - (truncate (r*.cos((float b)*.(theta1+. !c)))) in
-      drawing#line ~x:x0 ~y:y0 ~x:x1 ~y:y1
-    done;  
-    false
-  in 
-  area#event#connect#expose ~callback:expose_event;
-  let timeout _ = c := !c +. 0.01*.m_pi;
-                  expose_event ();
-                 true in 
-  Timeout.add ~ms:500 ~callback:timeout;
-  window#show ();
-  Main.main ()
-
-let _ = Printexc.print main()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/nihongo.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/nihongo.ml
deleted file mode 100644 (file)
index 48f7d8c..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/nihongo.ml
+++ /dev/null
@@ -1,31 +0,0 @@
-(* $Id$ *)
-
-(* ¤³¤ì¤ò¼Â¹Ô¤¹¤ë�°¤ËLC_CTYPE=ja_JP.EUC¤Ê¤É¤È»ØÄꤷ¤Ê¤±¤ì¤�¤Ê¤é¤Ê¤¤ *)
-
-(* cut-and-paste ¤âÂ�±þ¤·¤Æ¤¤¤Þ¤¹¤¬¡¢edit¤�¤¦¤Þ¤¯¤¤¤­¤Þ¤»¤ó *)
-
-open GMain
-
-let window = GWindow.window ()
-let box = GPack.vbox ~packing: window#add ()
-let text = GEdit.text ~editable: true ~packing: box#add ()
-let font = Gdk.Font.load_fontset
-    "-*-fixed-medium-r-normal--24-*-c-120-iso8859-1, \
-     -*-fixed-medium-r-normal--24-*-jisx0208.1983-0, \
-     -*-fixed-medium-r-normal--24-*-jisx0201.1976-0"
-let button = GButton.button ~label: "½ªÎ»" ~packing: box#add ()
-let label = GMisc.label ~text:"¤³¤ì¤Ë¤�±Æ¶�¤·¤Ê¤¤" ~packing: box#add ()
-
-let _ =
-  window#connect#destroy ~callback:Main.quit;
-  text#misc#realize ();
-  text#insert "¤³¤ó¤Ë¤�¤�" ~font;
-  let style = button#misc#style#copy in
-  button#misc#set_style style;
-  style#set_font font;
-  style#set_bg [`NORMAL,`NAME "green"; `PRELIGHT,`NAME "red"];
-  button#connect#clicked ~callback:Main.quit
-
-let _ =
-  window#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/old/fixpoint.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/old/fixpoint.ml
deleted file mode 100644 (file)
index c41b11b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/old/fixpoint.ml
+++ /dev/null
@@ -1,39 +0,0 @@
-(* $Id$ *)
-
-open GtkData
-open GtkBase
-open GtkPack
-open GtkWindow
-open GtkEdit
-open GtkMain
-
-let rec fix fun:f :eq x =
-  let x' = f x in
-  if eq x x' then x
-  else fix fun:f :eq x'
-
-let eq_float x y = abs_float (x -. y) < 1e-13
-
-let _ =
-  let top = Window.create `TOPLEVEL in
-  GtkSignal.connect sig:Object.Signals.destroy top callback:Main.quit;
-  let hbox = Box.create `VERTICAL in
-  Container.add top hbox;
-  let entry = Entry.create () in
-  Entry.set entry max_length:20;
-  let tips = Tooltips.create () in
-  Tooltips.set_tip tips entry text:"Initial value for fix-point";
-  let result = Entry.create () in
-  Entry.set result max_length:20 editable:false;
-  Box.pack hbox entry;
-  Box.pack hbox result;
-
-  GtkSignal.connect sig:Editable.Signals.activate entry callback:
-    begin fun () ->
-      let x = try float_of_string (Entry.get_text entry) with _ -> 0.0 in
-      Entry.set entry text:(string_of_float (cos x));
-      let res = fix fun:cos eq:eq_float x in
-      Entry.set result text:(string_of_float res)
-    end;
-  Widget.show_all top;
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/old/hello.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/old/hello.ml
deleted file mode 100644 (file)
index 60506e3..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/old/hello.ml
+++ /dev/null
@@ -1,23 +0,0 @@
-(* $Id$ *)
-
-open GtkBase
-open GtkButton
-open GtkWindow
-open GtkMain
-
-let window = Window.create `TOPLEVEL
-
-let button = Button.create label:"Hello World"
-
-let main () =
-  GtkSignal.connect sig:Widget.Signals.Event.delete window
-    callback:(fun _ -> prerr_endline "Delete event occured"; true);
-  GtkSignal.connect sig:Object.Signals.destroy window callback:Main.quit;
-  Container.set_border_width window 10;
-  GtkSignal.connect sig:Button.Signals.clicked button
-    callback:(fun () -> prerr_endline "Hello World"; Object.destroy window);
-  Container.add window button;
-  Widget.show_all window;
-  Main.main ()
-
-let _ = Printexc.print main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/old/progressbar.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/old/progressbar.ml
deleted file mode 100644 (file)
index f4ad465..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/old/progressbar.ml
+++ /dev/null
@@ -1,60 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GtkBase
-open GtkMisc
-open GtkWindow
-open GtkRange
-open GtkPack
-open GtkButton
-open GtkMain
-
-
-class bar bar = object
-  val bar : progress_bar obj = bar
-  val mutable pstat = true
-  method progress =
-    let pvalue = Progress.get_percentage bar in
-    let pvalue =
-      if pvalue >= 1.0 || not pstat then (pstat <- true; 0.0)
-      else pvalue +. 0.01
-    in
-    ProgressBar.update bar percent:pvalue;
-    true
-  method progress_r =
-    pstat <- false
-end
-
-let main () =
-
-  let window = Window.create `TOPLEVEL in
-  GtkSignal.connect sig:Object.Signals.destroy window callback:Main.quit;
-  Container.set_border_width window 10;
-
-  let table = Table.create rows:3 columns:2 in
-  Container.add window table;
-  
-  let label = Label.create "Progress Bar Example" in
-  Table.attach table label left:0 right:2 top:0 expand:`X shrink:`BOTH;
-  
-  let pbar = ProgressBar.create () in
-  Table.attach table pbar left:0 right:2 top:1 fill:`X shrink:`BOTH;
-
-  let bar = new bar pbar in
-  let ptimer = Timeout.add 100 callback:(fun () -> bar#progress) in
-
-  let button = Button.create label:"Reset" in
-  GtkSignal.connect sig:Button.Signals.clicked button
-    callback:(fun () -> bar#progress_r);
-  Table.attach table button left:0 top:2 expand:`NONE fill:`X shrink:`BOTH;
-
-  let button = Button.create label:"Cancel" in
-  GtkSignal.connect sig:Button.Signals.clicked button callback:Main.quit;
-  Table.attach table button left:1 top:2 expand:`NONE fill:`X shrink:`BOTH;
-
-  Widget.show_all window
-
-
-let _ =
-  main ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/pousse.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/pousse.ml
deleted file mode 100644 (file)
index ecf0dff..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/pousse.ml
+++ /dev/null
@@ -1,199 +0,0 @@
-(* $Id$ *)
-
-(* The game logic *)
-
-type color = [`none|`white|`black]
-
-module type BoardSpec = sig
-  type t
-  val size : int
-  val get : t -> x:int -> y:int -> color
-  val set : t -> x:int -> y:int -> color:color -> unit
-end
-
-module Board (Spec : BoardSpec) = struct
-  open Spec
-  let size = size
-
-  let on_board x y =
-    x >= 0 && x < size && y >= 0 && y < size
-
-  let rec string board ~x ~y ~dx ~dy ~color l =
-    let x = x+dx and y = y+dy in
-    if on_board x y then
-      let col = get board ~x ~y in 
-      if col = (color : [`white|`black] :> color) then l else
-      if col = `none then [] else
-      string board ~x ~y ~dx ~dy ~color ((x,y)::l)
-    else []
-
-  let find_swaps board ~x ~y ~color =
-    if get board ~x ~y <> `none then [] else
-    List.fold_left [-1,-1; -1,0; -1,1; 0,-1; 0,1; 1,-1; 1,0; 1,1]
-      ~init:[]
-      ~f:(fun acc (dx,dy) -> string board ~x ~y ~dx ~dy ~color [] @ acc)
-
-  let action board ~x ~y ~color =
-    let swaps = find_swaps board ~x ~y ~color in
-    if swaps = [] then false else begin
-      List.iter ((x,y)::swaps)
-       ~f:(fun (x,y) -> set board ~x ~y ~color:(color :> color));
-      true
-    end
-
-  let check_impossible board ~color =
-    try
-      for x = 0 to size - 1 do for y = 0 to size - 1 do
-       if find_swaps board ~x ~y ~color <> [] then raise Exit
-      done done;
-      true
-    with Exit -> false
-
-  let count_cells board =
-    let w = ref 0 and b = ref 0 in
-    for x = 0 to size - 1 do for y = 0 to size - 1 do
-      match get board ~x ~y with
-       `white -> incr w
-      | `black -> incr b
-      | `none -> ()
-    done done;
-    (!w,!b)
-end
-
-(* GUI *)
-
-open GMain
-
-(* Toplevel window *)
-
-let window = GWindow.window ~title:"pousse" ()
-
-(* Create pixmaps *)
-
-let pixdraw =
-  GDraw.pixmap ~window ~width:40 ~height:40 ~mask:true ()
-let pixdraw1 =
-  GDraw.pixmap ~window ~width:40 ~height:40 ~mask:true ()
-let pixdraw2 =
-  GDraw.pixmap ~window ~width:40 ~height:40 ~mask:true ()
-
-let _ =
-  pixdraw1#set_foreground `BLACK;
-  pixdraw1#arc ~x:3 ~y:3 ~width:34 ~height:34 ~filled:true ();
-  pixdraw2#set_foreground `WHITE;
-  pixdraw2#arc ~x:3 ~y:3 ~width:34 ~height:34 ~filled:true ();
-  pixdraw2#set_foreground `BLACK;
-  pixdraw2#arc ~x:3 ~y:3 ~width:34 ~height:34 ()
-
-(* The cell class: a button with a pixmap on it *)
-
-class cell ?packing ?show () =
-  let button = GButton.button ?packing ?show () in
-object (self)
-  inherit GObj.widget button#as_widget
-  method connect = button#connect
-  val mutable color : color = `none
-  val pm = GMisc.pixmap pixdraw ~packing:button#add ()
-  method color = color
-  method set_color col =
-    if col <> color then begin
-      color <- col;
-      pm#set_pixmap
-       (match col with `none -> pixdraw
-       | `black -> pixdraw1
-       | `white -> pixdraw2)
-    end
-end
-
-module RealBoard = Board (
-  struct
-    type t = cell array array
-    let size = 8
-    let get (board : t) ~x ~y = board.(x).(y)#color
-    let set (board : t) ~x ~y ~color = board.(x).(y)#set_color color
-  end
-)
-
-(* Conducting a game *)
-
-open RealBoard
-
-class game ~(frame : #GContainer.container) ~(label : #GMisc.label)
-    ~(statusbar : #GMisc.statusbar) =
-  let table = GPack.table ~columns:size ~rows:size ~packing:frame#add () in
-object (self)
-  val cells =
-    Array.init size
-      ~f:(fun i -> Array.init size
-         ~f:(fun j -> new cell ~packing:(table#attach ~top:i ~left:j) ()))
-  val label = label
-  val turn = statusbar#new_context ~name:"turn"
-  val messages = statusbar#new_context ~name:"messages"
-  val mutable current_color = `black
-  method board = cells
-  method table = table
-  method player = current_color
-
-  method swap_players () =
-    current_color <-
-      match current_color with
-       `white -> turn#pop (); turn#push "Player is black"; `black
-      | `black -> turn#pop (); turn#push "Player is white"; `white
-
-  method finish () =
-    turn#pop ();
-    let w, b = count_cells cells in
-    turn#push
-      (if w > b then "White wins" else
-       if w < b then "Black wins" else
-       "Game is a draw");
-    ()
-
-  method update_label () =
-    let w, b = count_cells cells in
-    label#set_text (Printf.sprintf "White: %d Black: %d " w b)
-
-  method play x y =
-    if action cells ~x ~y ~color:current_color then begin
-      self#update_label ();
-      self#swap_players ();
-      if check_impossible cells ~color:current_color then begin
-       self#swap_players ();
-       if check_impossible cells ~color:current_color then self#finish ()
-      end
-    end else
-      messages#flash "You cannot play there"
-
-  initializer
-    for i = 0 to size-1 do for j = 0 to size-1 do
-      let cell = cells.(i).(j) in
-      cell#connect#enter ~callback:cell#misc#grab_focus;
-      cell#connect#clicked ~callback:(fun () -> self#play i j)
-    done done;
-    List.iter ~f:(fun (x,y,col) -> cells.(x).(y)#set_color col)
-      [ 3,3,`black; 4,4,`black; 3,4,`white; 4,3,`white ];
-    self#update_label ();
-    turn#push "Player is black";
-    ()
-end
-
-(* Graphical elements *)
-
-let vbox = GPack.vbox ~packing:window#add ()
-let frame = GBin.frame ~shadow_type:`IN ~packing:vbox#add ()
-let hbox = GPack.hbox ~packing:vbox#pack ()
-
-let bar = GMisc.statusbar ~packing:hbox#add ()
-
-let frame2 = GBin.frame ~shadow_type:`IN ~packing:hbox#pack ()
-let label =
-  GMisc.label ~justify:`LEFT ~xpad:5 ~xalign:0.0 ~packing:frame2#add ()
-
-let game = new game ~frame ~label ~statusbar:bar
-
-(* Start *)
-
-let _ =
-  window#connect#destroy ~callback:Main.quit;
-  window#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/progressbar.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/progressbar.ml
deleted file mode 100644 (file)
index b614f08..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/progressbar.ml
+++ /dev/null
@@ -1,51 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-class bar bar = object
-  val bar : #GRange.progress = bar
-  val mutable pstat = true
-  method progress () =
-    let pvalue = bar#percentage in
-    let pvalue =
-      if pvalue > 0.99 || not pstat then (pstat <- true; 0.0)
-      else pvalue +. 0.01
-    in
-    bar#set_percentage pvalue;
-    true
-  method reset () =
-    pstat <- false
-end
-
-let main () =
-
-  let window = GWindow.window ~border_width: 10 () in
-  window#connect#destroy ~callback:Main.quit;
-
-  let table = GPack.table ~rows:3 ~columns:2 ~packing: window#add () in
-  
-  GMisc.label ~text:"Progress Bar Example" ()
-    ~packing:(table#attach ~left:0 ~right:2 ~top:0 ~expand:`X ~shrink:`BOTH);
-  
-  let pbar =
-    GRange.progress_bar ~bar_style:`DISCRETE ~discrete_blocks:20 ()
-      ~packing:(table#attach ~left:0 ~right:2 ~top:1
-                  ~expand:`BOTH ~fill:`X ~shrink:`BOTH) in
-
-  let bar = new bar pbar in
-  let ptimer = Timeout.add ~ms:50 ~callback:bar#progress in
-
-  let button = GButton.button ~label:"Reset" ()
-      ~packing:(table#attach ~left:0 ~top:2
-                  ~expand:`NONE ~fill:`X ~shrink:`BOTH) in
-  button#connect#clicked ~callback:bar#reset;
-
-  let button = GButton.button ~label:"Cancel" ()
-      ~packing:(table#attach ~left:1 ~top:2
-                  ~expand:`NONE ~fill:`X ~shrink:`BOTH) in
-  button#connect#clicked ~callback:Main.quit;
-
-  window#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/radiobuttons.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/radiobuttons.ml
deleted file mode 100644 (file)
index 5743ee2..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/radiobuttons.ml
+++ /dev/null
@@ -1,39 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let main () =
-
-  let window = GWindow.window ~title: "radio buttons" ~border_width: 0 () in
-  window#connect#destroy ~callback:Main.quit;
-
-  let box1 = GPack.vbox ~packing: window#add () in
-
-  let box2 = GPack.vbox ~spacing:10 ~border_width: 10 ~packing: box1#add () in
-
-  let button1 = GButton.radio_button ~label:"button1" ~packing: box2#add () in
-  button1#connect#clicked ~callback:(fun () -> prerr_endline "button1");
-
-  let button2 = GButton.radio_button ~group:button1#group ~label:"button2"
-      ~active:true ~packing: box2#add () in
-  button2#connect#clicked ~callback:(fun () -> prerr_endline "button2");
-
-  let button3 = GButton.radio_button
-      ~group:button1#group ~label:"button3" ~packing: box2#add () in
-  button3#connect#clicked ~callback:(fun () -> prerr_endline "button3");
-
-  let separator =
-    GMisc.separator `HORIZONTAL ~packing: box1#pack () in
-
-  let box3 = GPack.vbox ~spacing: 10 ~border_width: 10
-      ~packing: box1#pack () in
-
-  let button = GButton.button ~label: "close" ~packing: box3#add () in
-  button#connect#clicked ~callback:Main.quit;
-  button#grab_default ();
-
-  window#show ();
-
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/rpn.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/rpn.ml
deleted file mode 100644 (file)
index e701f18..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/rpn.ml
+++ /dev/null
@@ -1,129 +0,0 @@
-(* $Id$ *)
-
-(* reverse polish calculator *)
-
-open GMain
-
-let wow _ = prerr_endline "Wow!"; ()
-let main () =
-  let stack = Stack.create () in       
-
-  (* toplevel window *)
-  let window =
-    GWindow.window ~border_width: 10 ~title:"Reverse Polish Calculator" () in
-  window#connect#destroy ~callback:Main.quit;
-
-
-  (* vbox *)
-  let vbx = GPack.vbox ~packing:window#add () in
-
-  (* entry *)
-  let entry =
-    GEdit.entry ~text:"0" ~editable:false ~max_length: 20 ~packing: vbx#add () in
-
-  (* BackSpace, Clear, All Clear, Quit *) 
-  let table0 = GPack.table ~rows:1 ~columns:4 ~packing:vbx#add () in
-  let bs_clicked _ = begin
-    let txt = entry#text in
-    let len = String.length txt in 
-    if len <= 1 then
-      entry#set_text "0"
-    else entry#set_text (String.sub txt ~pos:0 ~len:(len-1))
-  end in
-  let c_clicked _ = entry#set_text("0") in
-  let ac_clicked _ = Stack.clear stack; entry#set_text("0") in
-  let labels0 = [("BS", bs_clicked) ; ("C", c_clicked);
-                ("AC", ac_clicked); ("Quit", window#destroy)] in
-  let rec loop0 labels n =
-    match labels 
-    with  [] -> ()
-        | (lbl, cb) :: t  ->
-    let button =
-      GButton.button ~label:lbl
-        ~packing:(table0#attach ~left:n ~top:1 ~expand:`BOTH) () in
-    button#connect#clicked ~callback:cb;
-    loop0 t (n+1) in
-  loop0 labels0 1;
-
-  (* Numerals *)
-  let table1 = GPack.table ~rows:4 ~columns:5 ~packing:vbx#add () in
-  let labels1 = ["7"; "8"; "9"; "4"; "5"; "6"; "1"; "2"; "3"; "0"] in
-  let numClicked n _ =
-     let txt = entry#text in
-     if (txt = "0") then
-       entry#set_text n
-     else begin
-       entry#append_text n
-     end in
-  let rec loop1 labels n =
-    match labels with [] -> ()
-    | lbl :: lbls ->
-        let button = GButton.button ~label:(" "^lbl^" ")
-           ~packing:(table1#attach ~left:(n mod 3) ~top:(n/3) ~expand:`BOTH)
-            () in
-        button#connect#clicked ~callback:(numClicked lbl);
-        loop1 lbls (n+1) in
-  loop1 labels1 0; 
-
-  (* Period *)
-  let periodClicked _ = 
-     let txt = entry#text in
-     if (String.contains txt '.') then begin
-       Printf.printf "\a";
-        flush stdout;
-     end
-     else
-       entry#append_text "." in
-  (GButton.button ~label:" . "
-     ~packing:(table1#attach ~left:1 ~top:3 ~expand:`BOTH) ())
-    #connect#clicked ~callback:periodClicked;
-
-  (* Enter (Push) *)
-  let enterClicked _ =
-     let txt = entry#text in
-     let n = float_of_string txt in begin
-       Stack.push n stack;
-       entry#set_text "0"
-     end in
-  (GButton.button ~label:"Ent"
-     ~packing:(table1#attach ~left:2 ~top:3 ~expand:`BOTH) ())
-    #connect#clicked ~callback:enterClicked;
-
-  (* Operators *)
-  let op2Clicked op _ =
-    let n1 = float_of_string (entry#text) in
-    let n2 = Stack.pop stack in
-    entry#set_text (string_of_float (op n2 n1)) 
-  in
-  let op1Clicked op _ =
-    let n1 = float_of_string (entry#text) in
-    entry#set_text (string_of_float (op n1)) 
-  in
-  let modClicked _ =
-    let n1 = int_of_string (entry#text) in
-    let n2 = truncate (Stack.pop stack) in
-    entry#set_text (string_of_int (n2 mod n1))
-  in
-  let labels2 = [(" / ", op2Clicked (/.)); (" * ", op2Clicked ( *. ));
-                (" - ", op2Clicked (-.)); (" + ", op2Clicked (+.));
-                ("mod", modClicked); (" ^ ", op2Clicked ( ** ));
-                ("+/-", op1Clicked (~-.));
-                 ("1/x", op1Clicked (fun x -> 1.0/.x))] in
-  let rec loop2 labels n =
-    match labels
-    with [] -> ()
-    | (lbl, cb) :: t ->
-       let button = GButton.button ~label:lbl
-            ~packing:(table1#attach ~left:(3 + n/4) ~top: (n mod 4)
-                        ~expand:`BOTH)
-            () in
-       button#connect#clicked ~callback:cb;
-       loop2 t (n+1)
-  in
-  loop2 labels2 0;
-
-  (* show all and enter event loop *)
-  window#show ();
-  Main.main ()
-
-let _ = Printexc.print main()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/scrolledwin.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/scrolledwin.ml
deleted file mode 100644 (file)
index 8f4bee2..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/scrolledwin.ml
+++ /dev/null
@@ -1,35 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let main () =
-  let window = GWindow.dialog ~title: "dialog"
-      ~border_width: 10 ~width: 300 ~height: 300 () in
-  window#connect#destroy ~callback:Main.quit;
-
-  let scrolled_window = GBin.scrolled_window
-      ~border_width: 10 ~hpolicy: `AUTOMATIC ~packing: window#vbox#add ()
-  in
-
-  let table = GPack.table ~rows:10 ~columns:10
-      ~row_spacings: 10 ~col_spacings: 10
-      ~packing: scrolled_window#add_with_viewport ()
-  in
-
-  for i = 0 to 9 do
-    for j = 0 to 9 do
-      let label = Printf.sprintf "button (%d,%d)\n" i j in
-      GButton.toggle_button ~label
-        ~packing:(table#attach ~left: i ~top: j ~expand: `BOTH) ()
-    done
-  done;
-
-  let button =
-    GButton.button ~label: "close" ~packing: window#action_area#add () in
-  button#connect#clicked ~callback: Main.quit;
-  button#grab_default ();
-  window#show ();
-  Main.main ()
-
-let _ = main ()
-    

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/socket.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/socket.ml
deleted file mode 100644 (file)
index 687389c..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/socket.ml
+++ /dev/null
@@ -1,16 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let main () =
-  let w = GWindow.window ~title:"Socket example" () in
-  w#connect#destroy ~callback:Main.quit;
-  let vbox = GPack.vbox ~packing:w#add () in
-  let label = GMisc.label ~packing:vbox#pack () in
-  let socket = GBin.socket ~packing:vbox#add ~height:40 () in
-  label#set_text ("XID to plug into this socket: 0x" ^ 
-                  Int32.format "%x" socket#xwindow);
-  w#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/test.xpm b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/test.xpm
deleted file mode 100644 (file)
index 9b0d2ef..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/test.xpm
+++ /dev/null
@@ -1,92 +0,0 @@
-/* XPM */
-static char *openfile[] = {
-/* width height num_colors chars_per_pixel */
-"    20    19       66            2",
-/* colors */
-".. c None",
-".# c #000000",
-".a c #dfdfdf",
-".b c #7f7f7f",
-".c c #006f6f",
-".d c #00efef",
-".e c #009f9f",
-".f c #004040",
-".g c #00bfbf",
-".h c #ff0000",
-".i c #ffffff",
-".j c #7f0000",
-".k c #007070",
-".l c #00ffff",
-".m c #00a0a0",
-".n c #004f4f",
-".o c #00cfcf",
-".p c #8f8f8f",
-".q c #6f6f6f",
-".r c #a0a0a0",
-".s c #7f7f00",
-".t c #007f7f",
-".u c #5f5f5f",
-".v c #707070",
-".w c #00f0f0",
-".x c #009090",
-".y c #ffff00",
-".z c #0000ff",
-".A c #00afaf",
-".B c #00d0d0",
-".C c #00dfdf",
-".D c #005f5f",
-".E c #00b0b0",
-".F c #001010",
-".G c #00c0c0",
-".H c #000f0f",
-".I c #00007f",
-".J c #005050",
-".K c #002f2f",
-".L c #dfcfcf",
-".M c #dfd0d0",
-".N c #006060",
-".O c #00e0e0",
-".P c #00ff00",
-".Q c #002020",
-".R c #dfc0c0",
-".S c #008080",
-".T c #001f1f",
-".U c #003f3f",
-".V c #007f00",
-".W c #00000f",
-".X c #000010",
-".Y c #00001f",
-".Z c #000020",
-".0 c #00002f",
-".1 c #000030",
-".2 c #00003f",
-".3 c #000040",
-".4 c #00004f",
-".5 c #000050",
-".6 c #00005f",
-".7 c #000060",
-".8 c #00006f",
-".9 c #000070",
-"#. c #7f7f80",
-"## c #9f9f9f",
-/* pixels */
-"........................................",
-"........................................",
-"........................................",
-".......................#.#.#............",
-".....................#.......#...#......",
-"...............................#.#......",
-".......#.#.#.................#.#.#......",
-".....#.y.i.y.#.#.#.#.#.#.#..............",
-".....#.i.y.i.y.i.y.i.y.i.#..............",
-".....#.y.i.y.i.y.i.y.i.y.#..............",
-".....#.i.y.i.y.#.#.#.#.#.#.#.#.#.#.#....",
-".....#.y.i.y.#.s.s.s.s.s.s.s.s.s.#......",
-".....#.i.y.#.s.s.s.s.s.s.s.s.s.#........",
-".....#.y.#.s.s.s.s.s.s.s.s.s.#..........",
-".....#.#.s.s.s.s.s.s.s.s.s.#............",
-".....#.#.#.#.#.#.#.#.#.#.#..............",
-"........................................",
-"........................................",
-"........................................"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/testdnd.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/testdnd.ml
deleted file mode 100644 (file)
index 8c10f7b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/testdnd.ml
+++ /dev/null
@@ -1,510 +0,0 @@
-(* this is a translation in Caml of the gtk+ example testdnd.c  *)
-
-
-open Gaux
-open Gtk
-open GObj
-open GMain
-
-(* GtkThread.start() *)
-
-let drag_icon_xpm = [|
-"36 48 9 1";
-"      c None";
-".     c #020204";
-"+     c #8F8F90";
-"@     c #D3D3D2";
-"#     c #AEAEAC";
-"$     c #ECECEC";
-"%     c #A2A2A4";
-"&     c #FEFEFC";
-"*     c #BEBEBC";
-"               .....................";
-"              ..&&&&&&&&&&&&&&&&&&&.";
-"             ...&&&&&&&&&&&&&&&&&&&.";
-"            ..&.&&&&&&&&&&&&&&&&&&&.";
-"           ..&&.&&&&&&&&&&&&&&&&&&&.";
-"          ..&&&.&&&&&&&&&&&&&&&&&&&.";
-"         ..&&&&.&&&&&&&&&&&&&&&&&&&.";
-"        ..&&&&&.&&&@&&&&&&&&&&&&&&&.";
-"       ..&&&&&&.*$%$+$&&&&&&&&&&&&&.";
-"      ..&&&&&&&.%$%$+&&&&&&&&&&&&&&.";
-"     ..&&&&&&&&.#&#@$&&&&&&&&&&&&&&.";
-"    ..&&&&&&&&&.#$**#$&&&&&&&&&&&&&.";
-"   ..&&&&&&&&&&.&@%&%$&&&&&&&&&&&&&.";
-"  ..&&&&&&&&&&&.&&&&&&&&&&&&&&&&&&&.";
-" ..&&&&&&&&&&&&.&&&&&&&&&&&&&&&&&&&.";
-"................&$@&&&@&&&&&&&&&&&&.";
-".&&&&&&&+&&#@%#+@#@*$%$+$&&&&&&&&&&.";
-".&&&&&&&+&&#@#@&&@*%$%$+&&&&&&&&&&&.";
-".&&&&&&&+&$%&#@&#@@#&#@$&&&&&&&&&&&.";
-".&&&&&&@#@@$&*@&@#@#$**#$&&&&&&&&&&.";
-".&&&&&&&&&&&&&&&&&&&@%&%$&&&&&&&&&&.";
-".&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&.";
-".&&&&&&&&$#@@$&&&&&&&&&&&&&&&&&&&&&.";
-".&&&&&&&&&+&$+&$&@&$@&&$@&&&&&&&&&&.";
-".&&&&&&&&&+&&#@%#+@#@*$%&+$&&&&&&&&.";
-".&&&&&&&&&+&&#@#@&&@*%$%$+&&&&&&&&&.";
-".&&&&&&&&&+&$%&#@&#@@#&#@$&&&&&&&&&.";
-".&&&&&&&&@#@@$&*@&@#@#$#*#$&&&&&&&&.";
-".&&&&&&&&&&&&&&&&&&&&&$%&%$&&&&&&&&.";
-".&&&&&&&&&&$#@@$&&&&&&&&&&&&&&&&&&&.";
-".&&&&&&&&&&&+&$%&$$@&$@&&$@&&&&&&&&.";
-".&&&&&&&&&&&+&&#@%#+@#@*$%$+$&&&&&&.";
-".&&&&&&&&&&&+&&#@#@&&@*#$%$+&&&&&&&.";
-".&&&&&&&&&&&+&$+&*@&#@@#&#@$&&&&&&&.";
-".&&&&&&&&&&$%@@&&*@&@#@#$#*#&&&&&&&.";
-".&&&&&&&&&&&&&&&&&&&&&&&$%&%$&&&&&&.";
-".&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&.";
-".&&&&&&&&&&&&&&$#@@$&&&&&&&&&&&&&&&.";
-".&&&&&&&&&&&&&&&+&$%&$$@&$@&&$@&&&&.";
-".&&&&&&&&&&&&&&&+&&#@%#+@#@*$%$+$&&.";
-".&&&&&&&&&&&&&&&+&&#@#@&&@*#$%$+&&&.";
-".&&&&&&&&&&&&&&&+&$+&*@&#@@#&#@$&&&.";
-".&&&&&&&&&&&&&&$%@@&&*@&@#@#$#*#&&&.";
-".&&&&&&&&&&&&&&&&&&&&&&&&&&&$%&%$&&.";
-".&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&.";
-".&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&.";
-".&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&.";
-"...................................." |]
-
-
-
-let trashcan_closed_xpm = [|
-"64 80 17 1";
-"      c None";
-".     c #030304";
-"+     c #5A5A5C";
-"@     c #323231";
-"#     c #888888";
-"$     c #1E1E1F";
-"%     c #767677";
-"&     c #494949";
-"*     c #9E9E9C";
-"=     c #111111";
-"-     c #3C3C3D";
-";     c #6B6B6B";
-">     c #949494";
-",     c #282828";
-"'     c #808080";
-")     c #545454";
-"!     c #AEAEAC";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                       ==......=$$...===                        ";
-"                 ..$------)+++++++++++++@$$...                  ";
-"             ..=@@-------&+++++++++++++++++++-....              ";
-"          =.$$@@@-&&)++++)-,$$$$=@@&+++++++++++++,..$           ";
-"         .$$$$@@&+++++++&$$$@@@@-&,$,-++++++++++;;;&..          ";
-"        $$$$,@--&++++++&$$)++++++++-,$&++++++;%%'%%;;$@         ";
-"       .-@@-@-&++++++++-@++++++++++++,-++++++;''%;;;%*-$        ";
-"       +------++++++++++++++++++++++++++++++;;%%%;;##*!.        ";
-"        =+----+++++++++++++++++++++++;;;;;;;;;;;;%'>>).         ";
-"         .=)&+++++++++++++++++;;;;;;;;;;;;;;%''>>#>#@.          ";
-"          =..=&++++++++++++;;;;;;;;;;;;;%###>>###+%==           ";
-"           .&....=-+++++%;;####''''''''''##'%%%)..#.            ";
-"           .+-++@....=,+%#####'%%%%%%%%%;@$-@-@*++!.            ";
-"           .+-++-+++-&-@$$=$=......$,,,@;&)+!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           =+-++-+++-+++++++++!++++!++++!+++!++!+++=            ";
-"            $.++-+++-+++++++++!++++!++++!+++!++!+.$             ";
-"              =.++++++++++++++!++++!++++!+++!++.=               ";
-"                 $..+++++++++++++++!++++++...$                  ";
-"                      $$=.............=$$                       ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                "  |]
-
-let trashcan_open_xpm = [|
-"64 80 17 1";
-"      c None";
-".     c #030304";
-"+     c #5A5A5C";
-"@     c #323231";
-"#     c #888888";
-"$     c #1E1E1F";
-"%     c #767677";
-"&     c #494949";
-"*     c #9E9E9C";
-"=     c #111111";
-"-     c #3C3C3D";
-";     c #6B6B6B";
-">     c #949494";
-",     c #282828";
-"'     c #808080";
-")     c #545454";
-"!     c #AEAEAC";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                      .=.==.,@                  ";
-"                                   ==.,@-&&&)-=                 ";
-"                                 .$@,&++;;;%>*-                 ";
-"                               $,-+)+++%%;;'#+.                 ";
-"                            =---+++++;%%%;%##@.                 ";
-"                           @)++++++++;%%%%'#%$                  ";
-"                         $&++++++++++;%%;%##@=                  ";
-"                       ,-++++)+++++++;;;'#%)                    ";
-"                      @+++&&--&)++++;;%'#'-.                    ";
-"                    ,&++-@@,,,,-)++;;;'>'+,                     ";
-"                  =-++&@$@&&&&-&+;;;%##%+@                      ";
-"                =,)+)-,@@&+++++;;;;%##%&@                       ";
-"               @--&&,,@&)++++++;;;;'#)@                         ";
-"              ---&)-,@)+++++++;;;%''+,                          ";
-"            $--&)+&$-+++++++;;;%%'';-                           ";
-"           .,-&+++-$&++++++;;;%''%&=                            ";
-"          $,-&)++)-@++++++;;%''%),                              ";
-"         =,@&)++++&&+++++;%'''+$@&++++++                        ";
-"        .$@-++++++++++++;'#';,........=$@&++++                  ";
-"       =$@@&)+++++++++++'##-.................=&++               ";
-"      .$$@-&)+++++++++;%#+$.....................=)+             ";
-"      $$,@-)+++++++++;%;@=........................,+            ";
-"     .$$@@-++++++++)-)@=............................            ";
-"     $,@---)++++&)@===............................,.            ";
-"    $-@---&)))-$$=..............................=)!.            ";
-"     --&-&&,,$=,==...........................=&+++!.            ";
-"      =,=$..=$+)+++++&@$=.............=$@&+++++!++!.            ";
-"           .)-++-+++++++++++++++++++++++++++!++!++!.            ";
-"           .+-++-+++++++++++++++++++++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!+++!!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           =+-++-+++-+++++++++!++++!++++!+++!++!+++=            ";
-"            $.++-+++-+++++++++!++++!++++!+++!++!+.$             ";
-"              =.++++++++++++++!++++!++++!+++!++.=               ";
-"                 $..+++++++++++++++!++++++...$                  ";
-"                      $$==...........==$$                       ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                "  |]
-
-let window = GWindow.window ~title:"DnD Test" ()
-let _ = window#misc#realize ()
-
-let drag_icon =
-  GDraw.pixmap_from_xpm_d ~data:drag_icon_xpm ~window ()
-
-let trashcan_open =
-  GDraw.pixmap_from_xpm_d ~data:trashcan_open_xpm ~window ()
-
-let trashcan_closed =
-  GDraw.pixmap_from_xpm_d ~data:trashcan_closed_xpm ~window ()
-
-let targets = [
-  { target = "STRING"; flags = []; info = 0};
-  { target = "text/plain"; flags = []; info = 0};
-  { target = "text/uri-list"; flags = []; info = 2};
-  { target = "application/x-rootwin-drop"; flags = []; info = 1}
-]
-
-class drag_handler = object
-  method private beginning (_ : drag_context) = ()
-  method private data_delete (_ : drag_context) = ()
-  method private data_get (_ : drag_context) (_ : selection_data)
-      ~info:(_ : int) ~time:(_ : int) = ()
-  method private data_received (_ : drag_context) ~x:(_ : int) ~y:(_ : int)
-      (_ : selection_data) ~info:(_ : int) ~time:(_ : int) = ()
-  method private drop (_ : drag_context) ~x:(_ : int) ~y:(_ : int)
-      ~time:(_ : int) = false
-  method private ending (_ : drag_context) = ()
-  method private leave (_ : drag_context) ~time:(_ : int) = ()
-  method private motion (_ : drag_context) ~x:(_ : int) ~y:(_ : int)
-      ~time:(_ : int) = false
-end
-
-
-class target_drag ?packing ?show () =
-  let pixmap = GMisc.pixmap trashcan_closed ?packing ?show () in
-object (self)
-  inherit widget pixmap#as_widget
-  inherit drag_handler
-  val mutable have_drag = false
-
-  method leave _ ~time =
-    print_endline "leave"; flush stdout;
-    have_drag <- false;
-    pixmap#set_pixmap trashcan_closed
-
-  method motion context ~x ~y ~time =
-    if not have_drag then begin
-      have_drag <- true;
-      pixmap#set_pixmap trashcan_open
-    end;
-    let source_typename =
-      try
-       context#source_widget#misc#get_type
-      with Gpointer.Null -> "unknown"
-    in
-    Printf.printf "motion, source %s\n" source_typename; flush stdout;
-    context#status [context#suggested_action] ~time;
-    true
-
-  method drop context ~x ~y ~time =
-    prerr_endline "drop"; flush stdout;
-    have_drag <- false;
-    pixmap#set_pixmap trashcan_closed;
-    match context#targets with
-    | [] -> false
-    | d :: _ -> pixmap#drag#get_data d ~context ~time; true
-
-  method data_received context ~x ~y data ~info ~time =
-    if data#format = 8 then begin
-      Printf.printf "Received \"%s\" in trashcan\n" data#data;
-      flush stdout;
-      context#finish ~success:true ~del:false ~time
-    end
-    else context#finish ~success:false ~del:false ~time
-
-  initializer
-    pixmap#drag#dest_set targets ~actions:[`COPY;`MOVE];
-    pixmap#drag#connect#leave ~callback:self#leave;
-    pixmap#drag#connect#motion ~callback:self#motion;
-    pixmap#drag#connect#drop ~callback:self#drop;
-    pixmap#drag#connect#data_received ~callback:self#data_received;
-    ()
-end
-
-class label_drag ?packing ?show () =
-  let label = GMisc.label ~text:"Drop Here\n" ?packing ?show () in
-object (self)
-  inherit widget label#as_widget
-  inherit drag_handler
-  method data_received context ~x ~y data ~info ~time =
-    if data#format = 8 then  begin
-      Printf.printf "Received \"%s\" in label\n" data#data;
-      flush stdout;
-      context#finish ~success:true ~del:false ~time
-    end
-    else context#finish ~success:false ~del:false ~time
-
-  initializer
-    label#drag#dest_set targets ~actions:[`COPY; `MOVE ];
-    label#drag#connect#data_received ~callback:self#data_received;
-    ()
-end
-
-class source_drag ?packing ?show () =
-  let button = GButton.button ~label:"Drag Here\n" ?packing ?show () in
-object (self)
-  inherit widget button#as_widget
-  inherit drag_handler
-  method data_get _ data ~info ~time =
-    if info = 1 then begin
-      print_endline "I was dropped on the rootwin"; flush stdout
-    end
-    else if info = 2 then
-      data#set ~typ:data#target ~format:8
-       ~data:"file:///home/otaylor/images/weave.png"
-    else
-      data#set ~typ:data#target ~format:8 ~data:"I'm Data!"
-
-  method data_delete _ =
-    print_endline "Delete the data!"; flush stdout
-
-  initializer
-    button#drag#source_set targets
-      ~modi:[`BUTTON1; `BUTTON3 ] ~actions:[`COPY; `MOVE ];
-    button#drag#source_set_icon drag_icon;
-    button#drag#connect#data_get ~callback:self#data_get;
-    button#drag#connect#data_delete ~callback:self#data_delete;
-    ()
-end
-
-class popup () = object (self)
-  inherit drag_handler
-  val mutable popup_window = (None : GWindow.window option)
-  val mutable popped_up = false
-  val mutable in_popup = false
-  val mutable popdown_timer = None
-  val mutable popup_timer = None
-
-  method timer = popup_timer
-  method remove_timer () =
-    may popup_timer
-      ~f:(fun pdt -> Timeout.remove pdt; popup_timer <- None)
-  method add_timer time ~callback =
-    popup_timer <- Some (Timeout.add ~ms:time ~callback)
-
-  method popdown () =
-    popdown_timer <- None;
-    may popup_window ~f:(fun w -> w#misc#hide ());
-    popped_up <- false;
-    false
-
-  method motion (_ : drag_context) ~x ~y ~time =
-    if not in_popup then begin
-      in_popup <- true;
-      may popdown_timer ~f:
-       begin fun pdt ->
-         print_endline "removed popdown"; flush stdout;
-         Timeout.remove pdt;
-         popdown_timer <- None
-       end
-    end;
-    true
-
-  method leave (_ : drag_context) ~time =
-    if in_popup then begin
-      in_popup <- false;
-      if popdown_timer = None then begin
-       print_endline "added popdown"; flush stdout;
-       popdown_timer <- Some (Timeout.add ~ms:500 ~callback:self#popdown)
-      end
-    end
-
-  method popup () =
-    if not popped_up then begin
-      if popup_window = None then begin
-       let w = GWindow.window ~kind:`POPUP ~position:`MOUSE () in
-       popup_window <- Some w;
-       let table = GPack.table ~rows:3 ~columns:3 ~packing:w#add () in
-       for i = 0 to 2 do
-         for j = 0 to 2 do
-           let button =
-             GButton.button ~label:(string_of_int i ^ "," ^ string_of_int j)
-               ~packing:(table#attach ~left:i ~top:j ~expand:`BOTH) ()
-           in
-           button#drag#dest_set targets ~actions:[`COPY; `MOVE ];
-           button#drag#connect#motion ~callback:self#motion;
-           button#drag#connect#leave ~callback:self#leave;
-         done
-       done
-      end;
-      may popup_window ~f:(fun w -> w#show ());
-      popped_up <- true
-    end;
-    popdown_timer <- Some (Timeout.add ~ms:500 ~callback:self#popdown);
-    print_endline "added popdown"; flush stdout;
-    self#remove_timer ();
-    false
-end
-
-class popsite ?packing ?show () =
-  let label = GMisc.label ~text:"Popup\n" ?packing ?show ()
-  and popup = new popup () in
-object (self)
-  inherit widget label#as_widget
-  inherit drag_handler
-  method motion _ ~x ~y ~time =
-    if popup#timer = None then begin
-      print_endline "added popdown"; flush stdout;
-      popup#add_timer 500 ~callback:popup#popup
-    end;
-    true
-
-  method leave _ ~time =
-    popup#remove_timer ()
-
-  initializer
-    label#drag#dest_set targets ~actions:[`COPY; `MOVE ];
-    label#drag#connect#motion ~callback:self#motion;
-    label#drag#connect#leave ~callback:self#leave;
-    ()
-end
-
-let main () =
-  window#connect#destroy ~callback: Main.quit;
-  let table = GPack.table ~rows:2 ~columns:2 ~packing:window#add () in
-  let attach = table#attach ~expand:`BOTH in
-  new label_drag ~packing:(attach ~left:0 ~top:0) ();
-  new target_drag ~packing:(attach ~left:1 ~top:0) ();
-  new source_drag ~packing:(attach ~left:0 ~top:1) ();
-  new popsite ~packing:(attach ~left:1 ~top:1) ();
-
-  window#show ();
-  Main.main ()
-
-let _ =
-  main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/testgtk.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/testgtk.ml
deleted file mode 100644 (file)
index 6c937f5..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/testgtk.ml
+++ /dev/null
@@ -1,1140 +0,0 @@
-(* $Id$ *)
-
-open GdkKeysyms
-open GMain
-open GObj
-
-let create_bbox direction title spacing child_w child_h layout =
-  let frame = GBin.frame ~label: title () in
-  let bbox = GPack.button_box direction ~border_width: 5 ~packing: frame#add 
-      ~layout: layout ~child_height: child_h ~child_width: child_w
-      ~spacing: spacing () in
-  GButton.button ~label: "OK"     ~packing: bbox#add ();
-  GButton.button ~label: "Cancel" ~packing: bbox#add ();
-  GButton.button ~label: "Help"   ~packing: bbox#add ();
-  frame#coerce
-
-let create_button_box =
-  let rw = ref None in
-  let aux () =
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title: "Button Boxes" ~border_width: 0 () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-
-       let main_vbox = GPack.vbox ~packing: (window#add) () in
-
-       let frame_horz = GBin.frame ~label: "Horizontal Button Boxes"
-           ~packing:(main_vbox#pack ~expand:true ~fill:true ~padding:10) () in
-       
-       let vbox = GPack.vbox ~border_width: 10 ~packing: frame_horz#add () in
-       
-       vbox#add  (create_bbox `HORIZONTAL "Spread" 40 85 20 `SPREAD);
-       vbox#pack (create_bbox `HORIZONTAL "Edge"   40 85 20 `EDGE) 
-          ~expand: true ~fill: true ~padding: 5;
-       vbox#pack (create_bbox `HORIZONTAL "Start"  40 85 20 `START)
-          ~expand: true ~fill: true ~padding: 5;
-       vbox#pack (create_bbox `HORIZONTAL "End"    40 85 20 `END)
-          ~expand: true ~fill: true ~padding: 5;
-
-       let frame_vert = GBin.frame ~label: "Vertical Button Boxes"
-           ~packing:(main_vbox#pack ~expand:true ~fill:true ~padding:10) () in
-       
-       let hbox = GPack.hbox ~border_width: 10 ~packing: frame_vert#add () in
-       hbox#add  (create_bbox `VERTICAL "Spread" 30 85 20 `SPREAD);
-       hbox#pack (create_bbox `VERTICAL "Edge"   30 85 20 `EDGE)
-          ~expand: true ~fill: true ~padding: 5;
-       hbox#pack (create_bbox `VERTICAL "Start"  30 85 20 `START)
-          ~expand: true ~fill: true ~padding: 5;
-       hbox#pack (create_bbox `VERTICAL "End"    30 85 20 `END)
-          ~expand: true ~fill: true ~padding: 5;
-       window #show () 
-
-    | Some window -> window #destroy ()
-in aux
-
-
-let button_window button _ =
-  if button #misc#visible then
-    button #misc#hide ()
-  else
-    button #misc#show ()
-
-let create_buttons =
-  let rw = ref None in
-  let aux () =
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title: "GtkButton" ~border_width: 0 () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-
-       let box1 = GPack.vbox ~packing:window#add () in
-       
-       let table = GPack.table ~rows:3 ~columns:3 ~homogeneous:false 
-           ~row_spacings:3 ~col_spacings:3 ~border_width:10
-           ~packing:box1#add () in
-
-       let button = Array.create 9 (GButton.button ~label:"button1" ()) in
-       for i = 2 to 9 do
-         button.(i-1) <- GButton.button ~label:("button" ^ string_of_int i) ();
-       done;
-
-       let f i l r t b =
-         button.(i) #connect#clicked ~callback:(button_window button.(i+1));
-         table #attach button.(i)#coerce ~left:l ~right:r ~top:t ~bottom:b
-           ~xpadding:0 ~ypadding:0 ~expand:`BOTH
-       in
-       f 0 0 1 0 1;
-       f 1 1 2 1 2;
-       f 2 2 3 2 3;
-       f 3 0 1 2 3;
-       f 4 2 3 0 1;
-       f 5 1 2 2 3;
-       f 6 1 2 0 1;
-       f 7 2 3 1 2;
-       button.(8) #connect#clicked ~callback:(button_window button.(0)); 
-       table #attach button.(8)#coerce ~left:0 ~right:1 ~top:1 ~bottom:2
-         ~xpadding:0 ~ypadding:0 ~expand:`BOTH;
-
-       GMisc.separator `HORIZONTAL ~packing:box1#pack ();
-       
-       let box2 = GPack.vbox ~spacing: 10 ~border_width: 10
-            ~packing: box1#pack () in
-
-       let button = GButton.button ~label: "close" ~packing: box2#add () in
-       button #connect#clicked ~callback: window#destroy;
-       button #grab_default ();
-       window #show ()
-
-    | Some window -> window #destroy ()
-in aux
-
-
-
-let create_check_buttons =
-  let rw = ref None in
-  let aux () =
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title: "GtkCheckButton"
-           ~border_width: 0 () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-
-       let box1 = GPack.vbox ~packing:window#add () in
-       let box2 = GPack.vbox ~spacing: 10 ~border_width: 10
-           ~packing: box1#pack () in
-       
-       for i = 1 to 3 do
-         GButton.check_button ~label:("button" ^ (string_of_int i))
-           ~packing: box2#add ();
-       done;
-
-       GMisc.separator `HORIZONTAL ~packing: box1#pack ();
-       
-       let box2 = GPack.vbox ~spacing:10 ~border_width:10
-           ~packing: box1#pack () in
-
-       let button = GButton.button ~label: "close" ~packing:box2#add () in
-       button #connect#clicked ~callback: window#destroy;
-       button #grab_default ();
-       window #show ()
-       
-    | Some window ->  window #destroy ()
-in aux
-
-
-let create_radio_buttons =
-  let rw = ref None in
-  let aux () =
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title: "radio buttons"
-           ~border_width: 0 () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-
-       let box1 = GPack.vbox ~packing:window#add () in
-       
-       let box2 = GPack.vbox ~spacing:10 ~border_width:10 
-           ~packing: box1#pack () in
-       
-       let button = GButton.radio_button ~label:"button1"
-           ~packing: box2#add () in
-
-       let button = GButton.radio_button ~label:"button2" ~group:button#group
-           ~packing: box2#add ~active:true () in
-       
-       let button = GButton.radio_button ~label:"button3" ~group:button#group
-           ~packing: box2#add () in
-
-       GMisc.separator `HORIZONTAL ~packing: box1#pack ();
-       
-       let box2 = GPack.vbox ~spacing:10 ~border_width:10
-            ~packing: box1#pack () in
-
-       let button = GButton.button ~label: "close" ~packing: box2#add () in
-       button #connect#clicked ~callback: window #destroy;
-       button #grab_default ();
-       window #show ()
-       
-    | Some window -> window #destroy ()
-in aux
-
-
-let create_toggle_buttons =
-  let rw = ref None in
-  let aux () =
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title: "GtkToggleButton"
-           ~border_width: 0 () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-
-       let box1 = GPack.vbox ~packing: window#add () in
-       
-       let box2 = GPack.vbox ~spacing: 10 ~border_width: 10
-           ~packing: box1#pack () in
-       
-       for i = 1 to 3 do
-         GButton.toggle_button ~label:("button" ^ (string_of_int i))
-           ~packing: box2#add ()
-       done;
-
-       GMisc.separator `HORIZONTAL ~packing: box1#pack ();
-       
-       let box2 = GPack.vbox ~spacing: 10 ~border_width: 10
-           ~packing: box1#pack () in
-
-       let button = GButton.button ~label: "close" ~packing:box2#add () in
-       button #connect#clicked ~callback: window#destroy;
-       button #grab_default ();
-       window #show ()
-       
-    | Some window -> window #destroy ()
-in aux
-
-
-(* Menus *)
-
-let create_menu depth tearoff =
-  let rec aux depth tearoff =
-    let menu = GMenu.menu () and group = ref None in
-    if tearoff then ignore (GMenu.tearoff_item ~packing: menu#append ());
-    for i = 0 to 4 do
-      let menuitem = GMenu.radio_menu_item ?group:!group
-         ~label:("item " ^ string_of_int depth ^ " - " ^ string_of_int (i+1))
-         ~packing:menu#append ~show_toggle:(depth mod 2 <> 0)
-         () in
-      group := Some (menuitem #group);
-      if i = 3 then menuitem #misc#set_sensitive false;
-      if depth > 1 then
-       menuitem #set_submenu (aux (depth-1) true)
-    done;
-
-    menu
-  in aux depth tearoff
-
-
-let create_menus =
-  let rw = ref None in
-  fun () ->
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title: "menus"
-           ~border_width: 0 () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-       window #event#connect#delete ~callback:(fun _ -> true);
-
-       let accel_group = GtkData.AccelGroup.create () in
-       window #add_accel_group accel_group  ;
-
-       let box1 = GPack.vbox ~packing:window#add () in
-
-       let menubar = GMenu.menu_bar ~packing: box1#pack () in
-
-       let menuitem = GMenu.menu_item ~label:"test\nline2"
-           ~packing: menubar#append () in
-       menuitem #set_submenu (create_menu 2 true);
-
-       let menuitem = GMenu.menu_item ~label:"foo"
-           ~packing: menubar#append () in
-       menuitem #set_submenu (create_menu 3 true);
-       menuitem #right_justify ();
-
-       let box2 = GPack.vbox ~spacing: 10 ~packing: box1#add
-           ~border_width: 10 () in
-
-       let menu = create_menu 1 false in
-       menu #set_accel_group accel_group;
-
-       let menuitem = GMenu.check_menu_item ~label:"Accelerate Me"
-           ~packing:menu#append () in
-       menuitem #add_accelerator ~group:accel_group _M
-         ~flags:[`VISIBLE; `SIGNAL_VISIBLE];
-
-       let menuitem = GMenu.check_menu_item ~label:"Accelerator Locked"
-           ~packing:menu#append () in
-       menuitem #add_accelerator ~group:accel_group _L
-         ~flags:[`VISIBLE; `LOCKED];
-
-       let menuitem = GMenu.check_menu_item ~label:"Accelerators Frozen"
-           ~packing:menu#append () in
-       menuitem #add_accelerator ~group:accel_group _F
-         ~flags:[`VISIBLE];
-       menuitem #misc#lock_accelerators ();
-
-       let optionmenu = GMenu.option_menu ~packing: box2#add () in
-       optionmenu #set_menu menu;
-       optionmenu #set_history 3;
-
-       GMisc.separator `HORIZONTAL ~packing: box1#pack ();
-
-       let box2 = GPack.vbox ~spacing:10 ~border_width:10
-           ~packing: box1#pack () in
-
-       let button = GButton.button ~label: "close" ~packing: box2#add () in
-       button #connect#clicked ~callback: window#destroy;
-       button #grab_default ();
-       window #show ()
-
-    | Some window -> window #destroy ()
-
-
-
-(* Modal windows *)
-
-let cmw_destroy_cb _ =
-  Main.quit ()
-
-let cmw_color parent _ =
-  let csd = GWindow.color_selection_dialog ~modal:true
-      ~title:"This is a modal color selection dialog" () in
-  csd # set_transient_for parent;
-  csd # connect#destroy ~callback:cmw_destroy_cb;
-  csd # ok_button # connect#clicked ~callback:csd#destroy;
-  csd # cancel_button # connect#clicked ~callback:csd#destroy;
-  csd # show ();
-  Main.main ()
-
-let cmw_file parent _ =
-  let fs = GWindow.file_selection ~modal:true
-      ~title:"This is a modal file selection dialog" () in
-  fs # set_transient_for parent;
-  fs # connect#destroy ~callback:cmw_destroy_cb;
-  fs # ok_button # connect#clicked ~callback:fs#destroy;
-  fs # cancel_button # connect#clicked ~callback:fs#destroy;
-  fs # show ();
-  Main.main ()
-
-let create_modal_window () =
-  let window = GWindow.window ~modal:true ~title:"This window is modal" () in
-  let box1 = GPack.vbox ~spacing:5 ~border_width:3 ~packing:window#add () in
-  let frame1 = GBin.frame ~label:"Standard dialogs in modal form"
-      ~packing:(box1#pack ~expand:true ~padding:4) () in
-  let box2 = GPack.vbox ~homogeneous:true ~spacing:5 ~packing:frame1#add () in
-  let btnColor = GButton.button ~label:"Color" 
-      ~packing:(box2#pack ~padding:4) ()
-  and btnFile = GButton.button ~label:"File selection" 
-      ~packing:(box2#pack ~padding:4) ()
-  and btnClose = GButton.button ~label:"Close" 
-      ~packing:(box2#pack ~padding:4) () in
-  GMisc.separator `HORIZONTAL
-    ~packing:(box1#pack ~padding:4) ();
-  
-  btnClose #connect#clicked ~callback:(fun _ -> window #destroy ());
-  window #connect#destroy ~callback:cmw_destroy_cb;
-  btnColor #connect#clicked ~callback: (cmw_color window);
-  btnFile #connect#clicked ~callback: (cmw_file window);
-  window # show ();
-  Main.main ()
-
-
-(* corrected bug in testgtk.c *)
-let scrolled_windows_remove, scrolled_windows_clean =
-  let parent = ref None and float_parent = ref None in
-  let remove (scrollwin : GBin.scrolled_window) () =
-    match !parent with
-    | None ->
-       parent := scrollwin#misc#parent;
-       let f = GWindow.window ~title:"new parent" () in
-       float_parent := Some f#coerce;
-       f #set_default_size ~width:200 ~height:200;
-       scrollwin #misc#reparent f#coerce;
-       f #show ()
-    | Some p ->
-       scrollwin #misc#reparent p;
-       match !float_parent with
-       | None -> ()
-       | Some f ->
-         f #destroy ();
-       float_parent := None;
-       parent := None
-  and clean () =
-    match !float_parent with
-    | None -> ()
-    | Some p -> p #destroy (); parent := None; float_parent := None
-  in remove, clean
-
-
-(* scrolled windows *)
-
-let create_scrolled_windows =
-  let rw = ref None in
-  let aux () =
-    match !rw with
-    | None ->
-       let window = GWindow.dialog ~title:"dialog" ~border_width:0 () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun  _ -> rw := None);
-       window #connect#destroy ~callback:scrolled_windows_clean;
-
-       let scrolled_window = GBin.scrolled_window ~border_width:10
-           ~hpolicy: `AUTOMATIC ~vpolicy:`AUTOMATIC
-           ~packing: window#vbox#add () in
-
-       let table = GPack.table ~rows:20 ~columns:20 ~row_spacings:10
-           ~col_spacings:10 ~packing:scrolled_window#add_with_viewport () in
-       table #focus#set_hadjustment (Some scrolled_window # hadjustment);
-       table #focus#set_vadjustment (Some scrolled_window # vadjustment);
-
-       for i = 0 to 19 do
-         for j=0 to 19 do
-           GButton.toggle_button
-             ~label:("button ("^ string_of_int i ^","^ string_of_int j ^")\n")
-             ~packing:(table #attach ~left:i ~top:j ~expand:`BOTH) ()
-         done
-       done;
-
-       let button = GButton.button ~label:"close"
-           ~packing:window#action_area#add () in
-       button #connect#clicked ~callback:(window #destroy);
-       button #grab_default ();
-
-       let button = GButton.button ~label:"remove"
-           ~packing:window#action_area#add () in
-       button #connect#clicked
-         ~callback:(scrolled_windows_remove scrolled_window);
-       button #grab_default ();
-       
-       window #set_default_size ~width:300 ~height:300;
-       window #show ()
-
-    | Some window -> window #destroy ()
-  in aux
-
-
-(* Toolbar *)
-
-let make_toolbar (toolbar : GButton.toolbar) window =
-  let icon =
-    let info = GDraw.pixmap_from_xpm ~file:"test.xpm" ~window () in
-    fun () -> (GMisc.pixmap info ())#coerce
-  in
-
-  toolbar #insert_button ~text:"Horizontal"
-    ~tooltip:"Horizontal toolbar layout"
-    ~tooltip_private:"Toolbar/Horizontal"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_orientation `HORIZONTAL) ();
-  
-  toolbar #insert_button ~text:"Vertical"
-    ~tooltip:"Vertical toolbar layout"
-    ~tooltip_private:"Toolbar/Vertical"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_orientation `VERTICAL) ();
-  
-  toolbar #insert_space ();
-  
-  toolbar #insert_button ~text:"Icons"
-    ~tooltip: "Only show toolbar icons"
-    ~tooltip_private:"Toolbar/IconsOnly"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_style `ICONS) ();
-  
-  toolbar #insert_button ~text:"Text"
-    ~tooltip: "Only show toolbar text"
-    ~tooltip_private:"Toolbar/TextOnly"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_style `TEXT) ();
-  
-  toolbar #insert_button ~text:"Both"
-    ~tooltip: "Show toolbar icons and text"
-    ~tooltip_private:"Toolbar/Both"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_style `BOTH) ();
-  
-  toolbar #insert_space ();
-  
-  GEdit.entry ~packing:(toolbar #insert_widget
-                        ~tooltip:"This is an unusable GtkEntry"
-                        ~tooltip_private: "Hey don't click me!!!") ();
-  
-  toolbar #insert_button ~text:"Small"
-    ~tooltip:"Use small spaces"
-    ~tooltip_private:"Toolbar/Small"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_space_size 5) ();
-  
-  toolbar #insert_button ~text:"Big"
-    ~tooltip:"Use big spaces"
-    ~tooltip_private:"Toolbar/Big"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_space_size 10) ();
-  
-  toolbar #insert_space ();
-  
-  toolbar #insert_button ~text:"Enable"
-    ~tooltip:"Enable tooltips"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_tooltips true) ();
-  
-  toolbar #insert_button ~text:"Disable"
-    ~tooltip:"Disable tooltips"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_tooltips false) ();
-  
-  toolbar #insert_space ();
-  
-  toolbar #insert_button ~text:"Borders"
-    ~tooltip:"Show borders"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_button_relief `NORMAL) ();
-  
-  toolbar #insert_button ~text:"Borderless"
-    ~tooltip:"Hide borders"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_button_relief `NONE) ();
-  
-  toolbar #insert_space ();
-  
-  toolbar #insert_button ~text:"Empty"
-    ~tooltip:"Empty spaces"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_space_style `EMPTY) ();
-  
-  toolbar #insert_button ~text:"Lines"
-    ~tooltip:"Lines in spaces"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_space_style `LINE) ();
-  ()
- 
-let create_toolbar =
-  let rw = ref None in
-  let aux () =
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title: "Toolbar test"
-           ~border_width: 0 ~allow_shrink: false ~allow_grow: true
-           ~auto_shrink: true () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-       window #misc #realize ();
-       
-       let toolbar = GButton.toolbar ~packing: window#add () in
-       make_toolbar toolbar window;
-       
-       window #show ()
-         
-    | Some window -> window #destroy ()
-  in aux
-
-
-(* Handlebox *)
-
-let handle_box_child_signal action (hb : GBin.handle_box) child =
-  Printf.printf "%s: child <%s> %s\n" hb#misc#get_type child#misc#get_type action
-
-let create_handle_box =
-  let rw = ref None in
-  let aux () =
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title: "Handle box test"
-           ~border_width: 20 ~allow_shrink: false ~allow_grow: true
-           ~auto_shrink: true () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-       window #misc #realize ();
-
-       let vbox = GPack.vbox ~packing:window#add () in
-
-       GMisc.label ~text:"Above" ~packing:vbox#add ();
-       GMisc.separator `HORIZONTAL ~packing:vbox#add ();
-
-       let hbox = GPack.hbox ~spacing:10 ~packing:vbox#add () in
-       GMisc.separator `HORIZONTAL ~packing:vbox#add ();
-
-       GMisc.label ~text:"Below" ~packing:vbox#add ();
-       let handle_box = GBin.handle_box ~packing:hbox#pack () in
-       handle_box #connect#child_attached
-         ~callback:(handle_box_child_signal "attached" handle_box);
-       handle_box #connect#child_detached
-         ~callback:(handle_box_child_signal "detached" handle_box);
-
-       let toolbar = GButton.toolbar ~packing:handle_box#add () in
-       make_toolbar toolbar window;
-       toolbar #set_button_relief `NORMAL;
-
-       let handle_box = GBin.handle_box ~packing:hbox#pack () in
-       handle_box #connect#child_attached
-         ~callback:(handle_box_child_signal "attached" handle_box);
-       handle_box #connect#child_detached
-         ~callback:(handle_box_child_signal "detached" handle_box);
-
-       let handle_box2 = GBin.handle_box ~packing:handle_box#add () in
-       handle_box2 #connect#child_attached
-         ~callback:(handle_box_child_signal "attached" handle_box);
-       handle_box2 #connect#child_detached
-         ~callback:(handle_box_child_signal "detached" handle_box);
-
-       GMisc.label ~text:"Fooo!" ~packing:handle_box2#add ();
-       window #show ()
-         
-    | Some window -> window #destroy ()
-  in aux
-
-
-
-(* Tree *)
-
-class tree_and_buttons () =
-object
-  val tree = GTree.tree ()
-  val add_button = GButton.button ~label: "Add Item" ()
-  val remove_button = GButton.button ~label:"Remove Item(s)" ()
-  val subtree_button = GButton.button ~label:"Remove Subtree" ()
-  val mutable nb_item_add = 0
-
-  method tree = tree
-  method add_button = add_button
-  method remove_button = remove_button
-  method subtree_button = subtree_button
-  method nb_item_add = nb_item_add
-  method incr_nb_item_add = nb_item_add <- nb_item_add + 1
-end
-
-let cb_tree_destroy_event w = ()
-
-let cb_add_new_item (treeb : tree_and_buttons) _ =
-  let subtree =
-    match treeb#tree#selection with
-    | []  -> treeb#tree
-    | selected_item :: _ ->
-       match selected_item#subtree with Some t -> t
-       | None ->
-          let t = GTree.tree () in
-          selected_item#set_subtree t;
-          t
-  in
-  let item_new = GTree.tree_item ~packing:(subtree#insert ~pos:0)
-      ~label:("item add " ^ string_of_int treeb # nb_item_add) () in
-  treeb #incr_nb_item_add
-
-
-let cb_remove_item (treeb : tree_and_buttons) _  = 
-  let tree = treeb#tree in
-  match tree #selection with
-  | [] -> ()
-  |  selected -> tree #remove_items selected
-
-
-let cb_remove_subtree (treeb : tree_and_buttons) _ =
-  match treeb#tree #selection with
-  | [] -> ()
-  | selected_item :: _ ->
-    try selected_item#subtree; selected_item#remove_subtree ()
-    with Not_found -> ()
-
-let cb_tree_changed (treeb : tree_and_buttons) _ =
-  let tree = treeb#tree in
-  let nb_selected = List.length (tree#selection) in
-  if nb_selected = 0 then begin
-    treeb # remove_button #misc#set_sensitive false;
-    treeb # subtree_button #misc#set_sensitive false;
-  end else begin
-    treeb # remove_button #misc#set_sensitive true;
-    treeb # subtree_button #misc#set_sensitive (nb_selected = 1);
-    treeb # add_button #misc#set_sensitive (nb_selected = 1);
-  end
-  
-  
-let rec create_subtree (item : GTree.tree_item) level nb_item_max
-    recursion_level_max =
-  if level = recursion_level_max then ()
-  else begin
-    let item_subtree = GTree.tree () in
-    for nb_item = 1 to nb_item_max do
-      let item_new = GTree.tree_item ~packing:(item_subtree#insert ~pos:0)
-         ~label:("item" ^ string_of_int level ^ "-" ^ string_of_int nb_item) ()
-      in
-      create_subtree item_new (level + 1) nb_item_max recursion_level_max;
-    done;
-    item # set_subtree item_subtree
-  end
-
-
-let create_tree_sample selection_mode draw_line view_line no_root_item
-    nb_item_max recursion_level_max =
-  let window = GWindow.window ~title:"Tree Sample" () in
-  let box1 = GPack.vbox ~packing:window#add () in
-  let box2 = GPack.vbox ~packing:box1#add ~border_width:5 () in
-  let scrolled_win = GBin.scrolled_window ~packing:box2#add
-      ~hpolicy: `AUTOMATIC ~vpolicy:`AUTOMATIC
-      ~width:200 ~height:200 () in
-
-  let root_treeb = new tree_and_buttons () in
-  let root_tree = root_treeb#tree in
-  root_tree #connect#selection_changed ~callback:(cb_tree_changed root_treeb);
-  scrolled_win #add_with_viewport root_tree#coerce;
-  root_tree #set_selection_mode selection_mode;
-  root_tree #set_view_lines draw_line;
-  root_tree #set_view_mode
-    (match view_line with `LINE -> `ITEM | `ITEM -> `LINE);
-
-  if no_root_item then
-    for nb_item = 1 to nb_item_max do
-      let item_new = GTree.tree_item ~label:("item0-" ^ string_of_int nb_item)
-         ~packing:(root_tree#insert ~pos:0) () in
-      create_subtree item_new 1 nb_item_max recursion_level_max;
-    done
-  else begin
-    let root_item = GTree.tree_item ~label:"root item"
-       ~packing:(root_tree #insert ~pos:0) () in
-    create_subtree root_item 0 nb_item_max recursion_level_max
-  end;
-
-  let box2 = GPack.vbox ~border_width:5 ~packing:box1#pack () in
-
-  let button = root_treeb #add_button in
-  button #misc#set_sensitive false;
-  button #connect#clicked ~callback:(cb_add_new_item root_treeb);
-  box2 #add button#coerce;
-
-  let button = root_treeb #remove_button in
-  button #misc#set_sensitive false;
-  button #connect#clicked ~callback:(cb_remove_item root_treeb);
-  box2 #add button#coerce;
-
-  let button = root_treeb #subtree_button in
-  button #misc#set_sensitive false;
-  button #connect#clicked ~callback:(cb_remove_subtree root_treeb);
-  box2 #add button#coerce;
-
-  GMisc.separator `HORIZONTAL ~packing:box1#pack ();
-
-  let button = GButton.button ~label:"Close" ~packing:box2#add () in
-  button #connect#clicked ~callback:window#destroy;
-
-  window #show ()
-
-
-let create_tree_mode_window =
-  let rw = ref None in
-  let aux () =
-    let default_number_of_item = 3.0 in
-    let default_recursion_level = 3.0 in
-    let single_button = GButton.radio_button ~label:"SINGLE" () in
-    let browse_button = GButton.radio_button
-       ~group:single_button#group ~label:"BROWSE" () in
-    let multiple_button = GButton.radio_button
-       ~group:browse_button#group ~label:"MULTIPLE" () in
-    let draw_line_button = GButton.check_button ~label:"Draw line" () in
-    let view_line_button = GButton.check_button ~label:"View line mode" () in
-    let no_root_item_button = GButton.check_button
-       ~label:"Without Root item" () in
-    let nb_item_spinner = GEdit.spin_button
-       ~adjustment:(GData.adjustment ~value:default_number_of_item
-          ~lower:1.0 ~upper:255.0 ~step_incr:1.0 ~page_incr:5.0
-          ~page_size:0.0 ()) ~rate:0. ~digits:0 () in
-    let recursion_spinner = GEdit.spin_button
-       ~adjustment:(GData.adjustment ~value:default_recursion_level
-          ~lower:0.0 ~upper:255.0 ~step_incr:1.0 ~page_incr:5.0
-          ~page_size:0.0 ()) ~rate:0. ~digits:0 () in
-    let cb_create_tree _ =
-      let selection_mode =
-       if single_button #active then `SINGLE
-       else if browse_button #active then `BROWSE
-       else `MULTIPLE in
-      let nb_item = nb_item_spinner#value_as_int  in
-      let recursion_level = recursion_spinner#value_as_int in
-      create_tree_sample selection_mode (draw_line_button #active)
-       (if (view_line_button #active) then `ITEM else `LINE)
-       (no_root_item_button #active)
-       nb_item recursion_level
-    in
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title:"Set Tree Parameters" () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-
-       let box1 = GPack.vbox ~packing:window#add () in
-
-       let box2 = GPack.vbox ~spacing:5 ~packing:box1#add
-           ~border_width:5 () in
-
-       let box3 = GPack.hbox ~spacing:5 ~packing:box2#add () in
-
-       let frame = GBin.frame ~label:"Selection Mode" ~packing:box3#add ()
-       in
-       
-       let box4 = GPack.vbox ~packing:frame#add ~border_width:5 () in
-
-       box4 #add single_button#coerce;
-       box4 #add browse_button#coerce;
-       box4 #add multiple_button#coerce;
-
-       let frame = GBin.frame ~label:"Options" ~packing:box3#add () in
-       
-       let box4 = GPack.vbox ~packing:frame#add ~border_width:5 () in
-       box4 #add draw_line_button#coerce;
-       draw_line_button #set_active true;
-       
-       box4 #add view_line_button#coerce;
-       view_line_button #set_active true;
-       
-       box4 #add no_root_item_button#coerce;
-
-       let frame = GBin.frame ~label:"Size Parameters" ~packing:box2#add ()
-       in
-
-       let box4 = GPack.hbox ~spacing:5 ~packing:frame#add ~border_width:5 () in
-
-       let box5 = GPack.hbox ~spacing:5 ~packing:box4#add () in
-       let label = GMisc.label ~text:"Number of items : "
-            ~xalign:0. ~yalign:0.5 ~packing:box5#pack () in
-       box5 #pack nb_item_spinner#coerce;
-       
-       let label = GMisc.label ~text:"Depth : " ~xalign:0. ~yalign:0.5
-           ~packing:box5#pack () in
-       box5 #pack recursion_spinner#coerce;
-       
-       GMisc.separator `HORIZONTAL ~packing:box1#pack ();
-
-       let box2 = GPack.hbox ~homogeneous:true ~spacing:10 ~border_width:5
-           ~packing:box1#pack () in
-
-       let button = GButton.button ~label:"Create Tree"
-            ~packing:box2#add () in
-       button #connect#clicked ~callback:cb_create_tree;
-
-       let button = GButton.button ~label: "close" ~packing:box2#add () in
-       button #connect#clicked ~callback: window#destroy;
-       button #grab_default ();
-       window #show ()
-       
-    | Some window -> window #destroy ()
-  in aux
-
-
-
-(* Tooltips *)
-
-let tips_query_widget_entered (toggle : GButton.toggle_button)
-    (tq : GMisc.tips_query) _ ~text ~privat:_  =
-  if toggle #active then begin
-    tq #set_text
-      (match text with
-      | None -> "There is no tip!" | Some _ -> "There is a tip!");
-    GtkSignal.stop_emit ()
-  end
-
-let tips_query_widget_selected (w : #widget option) ~text ~privat:tp _ =
-  (match w with
-  | None -> ()
-  | Some w -> 
-    Printf.printf "Help \"%s\" requested for <%s>\n"
-       (match tp with None -> "None" | Some t -> t)
-       (w #misc#get_type));
-   true
-
-
-let create_tooltips =
-  let rw = ref None in
-  let aux () =
-     match !rw with
-    | None ->
-
-       let window = GWindow.window ~title:"Tooltips"
-           ~border_width:0 ~allow_shrink:false ~allow_grow:false
-           ~auto_shrink:true () in
-       rw := Some window;
-       let tooltips = GData.tooltips () in
-       window #connect#destroy 
-         ~callback:(fun _ -> tooltips #destroy ();  rw := None);
-
-       let box1 = GPack.vbox ~packing:window#add () in
-
-       let box2 = GPack.vbox ~spacing:10 ~border_width:10
-           ~packing:box1#add () in
-
-       let button = GButton.toggle_button ~label:"button1"
-            ~packing:box2#add ()
-       in
-       tooltips #set_tip button#coerce ~text:"This is button1"
-         ~privat:"ContextHelp/buttons/1";
-       
-       let button = GButton.toggle_button ~label:"button2"
-            ~packing:box2#add ()
-       in
-       tooltips #set_tip button#coerce
-         ~text:"This is button 2. This is also a really long tooltip which probably won't fit on a single line and will therefore need to be wrapped. Hopefully the wrapping will work correctly."
-         ~privat:"ContextHelp/buttons/2_long";
-
-       let toggle = GButton.toggle_button ~label:"Override TipsQuery Label" 
-           ~packing:box2#add () in
-       tooltips #set_tip toggle#coerce ~text:"Toggle TipsQuery view."
-         ~privat:"Hi msw! ;)";
-
-       let box3 = GPack.vbox ~spacing:5 ~border_width:5 () in
-
-       let button = GButton.button ~label:"[?]" 
-           ~packing:box3#pack () in
-
-       let tips_query = GMisc.tips_query ~packing:box3#add () in
-       button #connect#clicked ~callback:(tips_query #start);
-
-       tooltips #set_tip button#coerce ~text:"Start the Tooltips Inspector"
-         ~privat:"ContextHelp/buttons/?";
-
-       tips_query #set_caller button#coerce;
-       tips_query #connect#widget_entered
-         ~callback:(tips_query_widget_entered toggle tips_query);
-       tips_query #connect#widget_selected ~callback:tips_query_widget_selected;
-
-       let frame = GBin.frame ~label:"Tooltips Inspector"
-           ~border_width:0 ~packing:(box2#pack ~expand:true ~padding:10) 
-           ~label_xalign:0.5 ~label_yalign:0.0 () in
-       frame #add box3#coerce;
-
-       GMisc.separator `HORIZONTAL ~packing:box1#pack ();
-
-       let box2 = GPack.vbox ~spacing: 10 ~border_width: 10
-           ~packing: box1#pack () in
-
-       let button = GButton.button ~label: "close" ~packing: box2#add () in
-       button #connect#clicked ~callback: window#destroy;
-       button #grab_default ();
-       tooltips #set_tip button#coerce ~text:"Push this button to close window"
-         ~privat:"ContextHelp/buttons/Close";
-
-       window #show ();
-
-    | Some window -> window #destroy ()
-  in aux
-
-
-(* Labels *)
-let create_labels =
-  let rw = ref None in
-  let aux () =
-     match !rw with
-    | None ->
-
-       let window = GWindow.window ~title:"Labels" ~border_width:5 () in
-       rw := Some window;
-       window #connect#destroy 
-         ~callback:(fun _ -> rw := None);
-
-       let hbox = GPack.hbox ~spacing:5 ~packing:window#add () in
-       let vbox = GPack.vbox ~spacing:5 ~packing:hbox#add () in
-
-       let frame = GBin.frame ~label:"Normal Label"
-           ~packing:vbox#pack () in
-       GMisc.label ~text:"This is a normal label" ~packing:frame#add ();
-
-       let frame = GBin.frame ~label:"Multi_line Label"
-           ~packing:vbox#pack () in
-       GMisc.label ~packing:frame#add
-         ~text:"This is a multi-line label.\nSecond line\nThird line" ();
-
-       let frame = GBin.frame ~label:"Left Justified Label"
-           ~packing:vbox#pack () in
-       GMisc.label ~packing:frame#add ~justify:`LEFT
-         ~text:"This is a left justified\nmulti_line label\nThird line" ();
-
-       let frame = GBin.frame ~label:"Right Justified Label"
-           ~packing:vbox#pack () in
-       GMisc.label ~packing:frame#add ~justify:`RIGHT
-         ~text:"This is a right justified\nmulti_line label\nThird line" ();
-
-       let vbox = GPack.vbox ~spacing:5 ~packing:hbox#add () in
-
-       let frame = GBin.frame ~label:"Line wrapped Label"
-           ~packing:vbox#pack () in
-       GMisc.label ~packing:frame#add ~line_wrap:true
-         ~text:"This is an example of a line-wrapped label.  It should not be taking up the entire             width allocated to it, but automatically wraps the words to fit.  The time has come, for all good men, to come to the aid of their party.  The sixth sheik's six sheep's sick.\n     It supports multiple paragraphs correctly, and  correctly   adds many          extra  spaces. " ();
-
-       let frame = GBin.frame ~label:"Underlined Label"
-           ~packing:vbox#pack () in
-       GMisc.label ~text:"This label is underlined!\nThis one is underlined in a quite a funky fashion" ~packing:frame#add
-         ~justify:`LEFT ~pattern:"_________________________ _ _________ _ _____ _ __ __  ___ ____ _____" ();
-
-       window #show ();
-
-    | Some window -> window #destroy ()
-  in aux
-
-
-(* reparent *)
-
-
-let set_parent child old_parent =
-  let name_opt = function
-    | None -> "(NULL)"
-    | Some w -> w#misc#get_type in
-  Printf.printf
-    "set parent for \"%s\": new parent: \"%s\", old parent: \"%s\"\n" 
-    child#misc#get_type
-    (match child#misc#parent with Some p -> p#misc#get_type | None -> "(NULL)")
-    (name_opt old_parent)
-
-let reparent_label (label : GMisc.label) new_parent _ =
-  label #misc#reparent new_parent
-
-
-
-let create_reparent =
-  let rw = ref None in
-  let aux () =
-     match !rw with
-    | None ->
-
-       let window = GWindow.window ~title:"Reparent" ~border_width:5 () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-
-       let vbox = GPack.vbox ~packing:window#add () in
-       let hbox = GPack.hbox ~spacing:5 ~border_width:10
-            ~packing:vbox#add () in
-
-       let frame = GBin.frame ~label:"Frame1"  ~packing:hbox#add () in
-       let vbox2 = GPack.vbox ~spacing:5 ~border_width:5
-            ~packing:frame#add () in
-       let label = GMisc.label ~text:"Hello world"
-           ~packing:vbox2#pack () in
-       label #misc#connect#parent_set ~callback:(set_parent label);
-       let button = GButton.button ~label:"switch"
-           ~packing:vbox2#pack () in
-       button #connect#clicked ~callback:(reparent_label label vbox2#coerce);
-
-       let frame = GBin.frame ~label:"Frame2"  ~packing:hbox#add () in
-       let vbox2 = GPack.vbox ~spacing:5 ~packing:frame#add ~border_width:5 () in
-       let button = GButton.button ~label:"switch"
-           ~packing:vbox2#pack () in
-       button #connect#clicked ~callback:(reparent_label label vbox2#coerce);
-
-       GMisc.separator `HORIZONTAL ~packing:vbox#pack ();
-
-       let vbox = GPack.vbox ~spacing:10 ~border_width:10
-           ~packing:vbox#pack () in
-
-       let button = GButton.button ~label: "close" ~packing:vbox#add () in
-       button #connect#clicked ~callback: window#destroy;
-       button #grab_default ();
-
-       window #show ();
-
-    | Some window -> window #destroy ()
-  in aux
-
-
-
-
-let create_main_window () =
-  let buttons = [
-    "button box", Some create_button_box;
-    "buttons", Some create_buttons;
-    "check buttons", Some create_check_buttons;
-    "clist", None;
-    "color selection", None;
-    "ctree", None;
-    "cursors", None;
-    "dialog", None;
-    "entry", None;
-    "event watcher", None;
-    "file selection", None;
-    "font selection", None;
-    "gamma curve", None;
-    "handle box", Some create_handle_box;
-    "item factory", None;
-    "labels", Some create_labels;
-    "layout", None;
-    "list", None;
-    "menus", Some create_menus;
-    "modal windows", Some create_modal_window;
-    "notebooks", None;
-    "panes", None;
-    "pixmap", None;
-    "preview color", None;
-    "preview gray", None;
-    "progress bar", None;
-    "radio buttons", Some create_radio_buttons;
-    "range controls", None;
-    "rc file", None;
-    "reparent", Some create_reparent;
-    "rulers", None;
-    "saved position", None;
-    "scrolled windows", Some create_scrolled_windows;
-    "shapes", None;
-    "spinbutton", None;
-    "statusbar", None;
-    "test idle", None;
-    "test mainloop", None;
-    "test scrolling", None;
-    "test selection", None;
-    "test timeout", None;
-    "text", None;
-    "toggle buttons", Some create_toggle_buttons;
-    "toolbar", Some create_toolbar;
-    "tooltips", Some create_tooltips;
-    "tree", Some create_tree_mode_window;
-    "WM hints", None
-  ] in
-
-  let window = GWindow.window ~title:"main window" ~allow_shrink:false
-      ~allow_grow:false ~auto_shrink:false ~width:200 ~height:400 ~x:20 ~y:20 () in
-
-  window #connect#destroy ~callback: Main.quit;
-
-  let box1 = GPack.vbox ~packing: window#add () in
-
-  GMisc.label ~text: "Gtk+ v1.2" ~packing:box1#pack ();
-
-  let scrolled_window = GBin.scrolled_window ~border_width: 10
-      ~hpolicy: `AUTOMATIC ~vpolicy: `AUTOMATIC
-      ~packing:box1#add () in
-
-  let box2 = GPack.vbox ~border_width: 10
-      ~packing:scrolled_window#add_with_viewport () in
-  box2 #focus#set_vadjustment (Some scrolled_window#vadjustment);
-
-  let rec aux = function
-    | [] -> ()
-    | (_,     None) :: tl -> aux tl
-    | (label, Some func) :: tl ->
-       let button = GButton.button ~label: label ~packing: box2#add () in
-       button #connect#clicked ~callback: func;
-       aux tl
-  in aux buttons;
-
-  GMisc.separator `HORIZONTAL ~packing: box1#pack ();
-
-  let box2 = GPack.vbox ~spacing: 10 ~border_width: 10
-      ~packing: box1#pack () in
-
-  let button = GButton.button ~label: "close"  ~packing: box2#add () in
-  button #connect#clicked ~callback: window#destroy;
-  button #grab_default ();
-
-  window #show ();
-
-  Main.main ()
-
-let _ = create_main_window ()
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/testinput.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/testinput.ml
deleted file mode 100644 (file)
index a6aceb8..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/testinput.ml
+++ /dev/null
@@ -1,43 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let main () =
-  let window = GWindow.window () in
-  window#misc#set_name "Test input";
-  window#connect#destroy ~callback:Main.quit;
-
-  let vbox = GPack.vbox ~packing:window#add () in
-
-  let drawing_area =
-    GMisc.drawing_area ~width:200 ~height:200 ~packing:vbox#add () in
-
-  drawing_area#event#connect#key_press ~callback:
-    begin fun ev ->
-      let key = GdkEvent.Key.keyval ev in
-      if key >= 32 && key < 256 then
-       Printf.printf "I got a %c\n" (Char.chr key)
-      else
-       print_string "I got another key\n";
-      flush stdout;
-      true
-    end;
-
-  drawing_area#event#add
-    [`EXPOSURE;`LEAVE_NOTIFY;`BUTTON_PRESS;
-     `POINTER_MOTION;`POINTER_MOTION_HINT;`PROXIMITY_OUT];
-  drawing_area#event#set_extensions `ALL;
-  drawing_area#misc#set_can_focus true;
-  drawing_area#misc#grab_focus ();
-
-  GButton.button ~label:"Input Dialog" ~packing:vbox#pack ();
-
-  let button =
-    GButton.button ~label:"Quit" ~packing:vbox#pack () in
-
-  button#connect#clicked ~callback:window#destroy;
-
-  window#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/tictactoe.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/tictactoe.ml
deleted file mode 100644 (file)
index be01e19..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/tictactoe.ml
+++ /dev/null
@@ -1,113 +0,0 @@
-(* $Id$ *)
-
-open GtkNew
-open GtkBase
-
-(* To create a new widget:
-   create an array sig_array containing the signals defined by
-   the new widget;
-   call:
-      make_new_widget name parent:parent signal_array:sig_array
-   where name is the name of the new widget (a string)
-   parent is the type of the parent: of type Gtk.New.object_type
-   This call returns a triple:
-     (get_type_func, new_func, sig_array_num)
-   where get_type_func is the new widget get_type function,
-   new_func is the function returning a new widget of the new type
-   sig_array_num is an array containing the Gtk id of the signals
-   of the new widget.
-*)
-
-module Tictactoe = struct
-  type t = [`widget|`container|`box|`tictactoe]
-  module Signals = struct
-    open GtkSignal
-    let tictactoe : ([>`tictactoe],_) t =
-      { name = "tictactoe"; marshaller = marshal_unit }
-    let emit_tictactoe = emit_unit ~sgn:tictactoe
-  end
-  let create : unit -> t Gtk.obj =
-    let _,tictactoe_new = make_new_widget
-       ~name:"Tictactoe" ~parent:VBOX ~signals:[Signals.tictactoe]
-    in fun () -> Object.try_cast (tictactoe_new ()) "Tictactoe"
-end
-
-open GMain
-
-class tictactoe_signals obj = object
-  inherit GContainer.container_signals obj
-  method tictactoe =
-    GtkSignal.connect ~sgn:Tictactoe.Signals.tictactoe obj ~after
-end
-
-exception Trouve
-
-class tictactoe ?packing ?show () =
-  let obj : Tictactoe.t Gtk.obj = Tictactoe.create () in
-  let box = new GPack.box_skel obj in
-object (self)
-  inherit GObj.widget obj
-  val mutable buttons = [||]
-  val mutable buttons_handlers = [||]
-  val label = GMisc.label ~text:"Go on!" ~packing:box#add ()
-  method clear () =
-    for i = 0 to 2 do
-      for j = 0 to 2 do
-       let button = buttons.(i).(j)
-       and handler = buttons_handlers.(i).(j) in
-       button#misc#handler_block handler;
-       button#set_active false;
-       button#misc#handler_unblock handler
-      done
-    done
-  method connect = new tictactoe_signals obj
-  method emit_tictactoe () =
-    GtkSignal.emit_unit obj ~sgn:Tictactoe.Signals.tictactoe
-  method toggle () =
-    let rwins = [| [| 0; 0; 0 |]; [| 1; 1; 1 |]; [| 2; 2; 2 |];
-                   [| 0; 1; 2 |]; [| 0; 1; 2 |]; [| 0; 1; 2 |];
-                   [| 0; 1; 2 |]; [| 0; 1; 2 |] |]
-    and cwins = [| [| 0; 1; 2 |]; [| 0; 1; 2 |]; [| 0; 1; 2 |];
-                   [| 0; 0; 0 |]; [| 1; 1; 1 |]; [| 2; 2; 2 |];
-                   [| 0; 1; 2 |]; [| 2; 1; 0 |] |] in
-    label#set_text"Go on!";
-    try
-      for k = 0 to 7 do
-       let rec aux i =
-         (i = 3) ||
-         (buttons.(rwins.(k).(i)).(cwins.(k).(i))#active) && (aux (i+1)) in
-       if aux 0 then raise Trouve
-      done
-    with Trouve -> label#set_text "Win!!"; self#emit_tictactoe ()
-       
-  initializer
-    let table =
-      GPack.table ~rows:3 ~columns:3 ~homogeneous:true ~packing:box#add () in
-    buttons <-
-      Array.init 3 ~f:
-       (fun i -> Array.init 3 ~f:
-           (fun j ->
-             GButton.toggle_button ~width:20 ~height:20
-               ~packing:(table#attach ~left:i ~top:j ~expand:`BOTH) ()));
-    buttons_handlers <-
-      Array.mapi buttons ~f:
-       (fun i -> Array.mapi ~f:
-         (fun j button -> button #connect#toggled ~callback:self#toggle));
-    GObj.pack_return self ~packing ~show;
-    ()
-end
-
-let win (ttt : tictactoe)  _ =
-  Printf.printf "Gagne!!\n" ;
-  ttt #clear ()
-
-let essai () =
-  let window = GWindow.window ~title:"Tictactoe" ~border_width:10 () in
-  window #connect#destroy ~callback:Main.quit;
-  let ttt = new tictactoe ~packing:window#add () in
-  ttt #connect#tictactoe ~callback:(win ttt);
-  window #show ();
-  Main.main ()
-
-let _ = essai ()
-  

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/tron.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/tron.ml
deleted file mode 100644 (file)
index eced44a..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/tron.ml
+++ /dev/null
@@ -1,204 +0,0 @@
-(* $Id$ *)
-
-(* Tron? Game *)
-open GMain
-
-let m_pi = acos (-1.)
-let clRed   = `NAME "red"  (* `BLACK *)
-let clBlue  = `NAME "blue" (* `WHITE *)
-let clBlack = `BLACK
-
-type point = {mutable x: int; mutable y: int}
-
-let main () =
-(* Game State *)
-  let gameSize = 64 in
-  let gameState =
-    Array.create_matrix ~dimx:(gameSize+2) ~dimy:(gameSize+2) 0 in
-  let gameInit _ = 
-    for i=1 to gameSize do
-      for j=1 to gameSize do
-        gameState.(i).(j) <- 0;
-      done
-    done;
-    for i=0 to gameSize do
-      gameState.(0).(i) <- 3;            (* left wall *)
-      gameState.(i).(gameSize+1) <- 3;   (* floor *) 
-      gameState.(gameSize+1).(i+1) <- 3; (* right wall *)
-      gameState.(i+1).(0) <- 3           (* ceiling *)
-    done in
-  gameInit ();
-  let lpos = {x=4; y=4} in
-  let lspeed = {x=0; y=1} in
-  let rpos = {x=gameSize-3; y=gameSize-3} in
-  let rspeed = {x=0; y= -1} in
-  let keys = "asdfhjkl" in
-  let keyMapL = [|(-1, 0); (0, -1); (0, 1); (1, 0)|] in
-  let keyMapR = [|(-1, 0); (0, 1); (0, -1); (1, 0)|] in
-
-(* User Interface *)
-  let window = GWindow.window ~border_width:10 ~title:"tron(?)" () in
-  window#event#connect#delete
-     ~callback:(fun _ -> prerr_endline "Delete event occured"; false);
-  window#connect#destroy ~callback:Main.quit;
-  let vbx = GPack.vbox ~packing:window#add () in
-  let area = GMisc.drawing_area ~width:((gameSize+2)*4) ~height:((gameSize+2)*4)
-      ~packing:vbx#add () in
-  let drawing = area#misc#realize (); new GDraw.drawable (area#misc#window) in
-  let style = area#misc#style#copy in
-  style#set_bg [`NORMAL,`WHITE];
-  area#misc#set_style style;
-  drawing#set_background `WHITE;
-  let area_expose _ =
-    for i=0 to gameSize+1 do
-      for j=0 to gameSize+1 do
-        if gameState.(i).(j) = 1 then begin
-          drawing#set_foreground clRed;
-          drawing#rectangle ~filled:true ~x:(i*4) ~y:(j*4) ~width:4 ~height:4 ()
-        end
-        else if gameState.(i).(j) = 2 then begin
-          drawing#set_foreground clBlue;
-          drawing#rectangle ~filled:true ~x:(i*4) ~y:(j*4) ~width:4 ~height:4 ()
-        end
-        else if gameState.(i).(j) = 3 then begin
-          drawing#set_foreground clBlack;
-          drawing#rectangle ~filled:true ~x:(i*4) ~y:(j*4) ~width:4 ~height:4 ()
-        end 
-      done
-    done;
-    false
-  in
-  area#event#connect#expose ~callback:area_expose;
-  let control = GPack.table ~rows:3 ~columns:7 ~packing:vbx#pack () in
-
-  let abuttonClicked num (lbl : GMisc.label) _ = begin
-    let dialog =
-      GWindow.window ~kind:`DIALOG ~border_width:10 ~title:"Key remap" () in
-    let dvbx = GPack.box `VERTICAL ~packing:dialog#add () in
-    let entry  = GEdit.entry ~max_length:1 ~packing: dvbx#add () in
-    let txt = String.make 1 keys.[num] in
-    entry#set_text txt;
-    let dquit = GButton.button ~label:"OK" ~packing: dvbx#add () in 
-    dquit#connect#clicked ~callback:
-      begin fun _ ->
-       let chr = entry#text.[0] in
-        let txt2 = String.make 1 chr in
-        lbl#set_text txt2;
-        keys.[num]<-chr; 
-        dialog#destroy ()
-      end;
-    dialog#show ()
-  end in
-  let attach = control#attach ~expand:`BOTH in
-  let new_my_button ~label:label ~left:left ~top:top =
-      let str = String.make 1 keys.[label] in
-      let btn = GButton.button ~packing:(attach ~left:left ~top:top) () in
-      let lbl = GMisc.label ~text:str ~packing:(btn#add) () in
-      btn#connect#clicked ~callback:(abuttonClicked label lbl);
-      btn
-  in
-  new_my_button ~label:0 ~left:1 ~top:2;
-  new_my_button ~label:1 ~left:2 ~top:1;
-  new_my_button ~label:2 ~left:2 ~top:3;
-  new_my_button ~label:3 ~left:3 ~top:2;
-  new_my_button ~label:4 ~left:5 ~top:2;
-  new_my_button ~label:5 ~left:6 ~top:3;
-  new_my_button ~label:6 ~left:6 ~top:1;
-  new_my_button ~label:7 ~left:7 ~top:2;
-  let quit =
-    GButton.button ~label:"Quit" ~packing:(attach ~left:4 ~top:2) () in
-  quit#connect#clicked ~callback:window#destroy;
-  let message = GMisc.label ~text:"tron(?) game" ~packing:vbx#pack () in
-
-  let game_step () =
-        let lx = lpos.x in let ly = lpos.y in
-        gameState.(lx).(ly) <- 1;
-        drawing#set_foreground clRed;
-        drawing#rectangle ~filled:true ~x:(lx*4) ~y:(ly*4) ~width:4 ~height:4 ();
-        let rx = rpos.x in let ry = rpos.y in
-        gameState.(rx).(ry) <- 2;
-        drawing#set_foreground clBlue;
-        drawing#rectangle ~filled:true ~x:(rx*4) ~y:(ry*4) ~width:4 ~height:4 ()
-  in
-  game_step ();
-  let keyDown ev = begin
-    let key = GdkEvent.Key.keyval ev in
-    for i=0 to (Array.length keyMapL)-1 do
-       let (x, y) = keyMapL.(i) in
-       let k = keys.[i] in
-       if key = Char.code k then begin
-         lspeed.x <- x;
-         lspeed.y <- y 
-       end;
-       let (x, y) = keyMapR.(i) in
-       let k = keys.[i+4] in
-       if key = Char.code k then begin
-         rspeed.x <- x;
-         rspeed.y <- y 
-       end
-    done;       
-    false end in
-  window#event#connect#key_press ~callback:keyDown;
-  let safe_check _ = 
-    if lpos.x == rpos.x && lpos.y == rpos.y then
-      3
-    else
-      (* player 1 *)
-      (if gameState.(lpos.x).(lpos.y) != 0  then 2 else 0)
-      +
-      (* player 2 *)
-      (if gameState.(rpos.x).(rpos.y) != 0  then 1 else 0)
-      in
-  let timerID = ref (* dummy *) (Timeout.add ~ms:100 ~callback:(fun _ -> true)) in
-  let timerTimer _ = begin
-     lpos.x <- lpos.x+lspeed.x;
-     lpos.y <- lpos.y+lspeed.y;
-     rpos.x <- rpos.x+rspeed.x;
-     rpos.y <- rpos.y+rspeed.y;
-     let result = safe_check() in
-     if result!=0 then begin
-        Timeout.remove (!timerID);
-        message#set_text ("player "^string_of_int result^" won.")
-     end
-     else begin
-       game_step()
-     end;
-     true
-  end in
-  let count = ref 3 in
-  let timerTimer2 _ = begin
-(*    message#set_label (string_of_int (!count)); *)
-    if (!count==0) then begin
-      Timeout.remove (!timerID);
-      timerID := Timeout.add ~ms:100 ~callback:timerTimer
-    end
-    else begin
-      count := !count-1;
-    end;
-    true
-  end in
-  let restartClicked () =
-    Timeout.remove !timerID;
-    gameInit();
-    lpos.x <- 4; lpos.y <- 4;
-    lspeed.x <- 0; lspeed.y <- 1;
-    rpos.x <- gameSize-3; rpos.y <- gameSize-3;
-    rspeed.x <- 0; rspeed.y <- -1;
-    drawing#set_foreground `WHITE;
-    drawing#rectangle ~filled:true ~x:0 ~y:0
-      ~width:((gameSize+2)*4) ~height:((gameSize+2)*4) ();
-    area_expose();
-    count := 3;
-    timerID := Timeout.add ~ms:300 ~callback:timerTimer2;
-  in
-  let restart =
-    GButton.button ~label: "Restart" ~packing:(attach ~left:4 ~top:3) () in
-  restart#connect#clicked ~callback:restartClicked;
-  restartClicked ();
-
-  window#show ();
-  Main.main ()
-
-let _ = Printexc.print main ()
-
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/xmhtml/test.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/xmhtml/test.ml
deleted file mode 100644 (file)
index 6c9d371..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/xmhtml/test.ml
+++ /dev/null
@@ -1,38 +0,0 @@
-(* $Id$ *)
-
-let test_string2 = String.concat ~sep:"" [
-  "<html>\n";
-  "<head><title>The Gtk/XmHTML test</title></head>\n";
-  "This is the Gtk/XmHTML test program<p>\n";
-  "You can invoke this program with a command line argument, like this:\n";
-  "<hr>";
-  "<tt>./xtest filename.html</tt>";
-  "<hr>";
-  "Click here to load a different <a href=\"nothing\">test message</a>";
-  "</html>";
-]
-
-let read_file file =
-  let ic = open_in file in
-  let b = Buffer.create 16384 and s = String.create 1024 and len = ref 0 in
-  while len := input ic ~buf:s ~pos:0 ~len:1024; !len > 0 do
-    Buffer.add_substring b s ~pos:0 ~len:!len
-  done;
-  Buffer.contents b
-
-open GMain
-
-let _ =
-  let w = GWindow.window ~width:600 ~height:500 () in
-  w#connect#destroy ~callback:Main.quit;
-  let source =
-    if Array.length Sys.argv > 1 then begin
-      Sys.chdir (Filename.dirname Sys.argv.(1));
-      read_file (Filename.basename Sys.argv.(1))
-    end
-    else test_string2 in
-  let html = GHtml.xmhtml ~source ~packing:w#add () in
-  html#set_anchor_buttons false;
-  html#set_anchor_underline [`SINGLE;`DASHED];
-  w#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gBin.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gBin.ml
deleted file mode 100644 (file)
index f248ba0..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gBin.ml
+++ /dev/null
@@ -1,153 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkBin
-open GObj
-open GContainer
-
-class scrolled_window obj = object
-  inherit container_full (obj : Gtk.scrolled_window obj)
-  method hadjustment =
-    new GData.adjustment (ScrolledWindow.get_hadjustment obj)
-  method vadjustment =
-    new GData.adjustment (ScrolledWindow.get_vadjustment obj)
-  method set_hadjustment adj =
-    ScrolledWindow.set_hadjustment obj (GData.as_adjustment adj)
-  method set_vadjustment adj =
-    ScrolledWindow.set_vadjustment obj (GData.as_adjustment adj)
-  method set_hpolicy hpolicy = ScrolledWindow.set_policy' obj ~hpolicy
-  method set_vpolicy vpolicy = ScrolledWindow.set_policy' obj ~vpolicy
-  method set_placement = ScrolledWindow.set_placement obj
-  method add_with_viewport w =
-    ScrolledWindow.add_with_viewport obj (as_widget w)
-end
-
-let scrolled_window ?hadjustment ?vadjustment ?hpolicy ?vpolicy
-    ?placement ?border_width ?width ?height ?packing ?show () =
-  let w =
-    ScrolledWindow.create ()
-      ?hadjustment:(may_map ~f:GData.as_adjustment hadjustment)
-      ?vadjustment:(may_map ~f:GData.as_adjustment vadjustment) in
-  ScrolledWindow.set w ?hpolicy ?vpolicy ?placement;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new scrolled_window w) ~packing ~show
-
-class event_box obj = object
-  inherit container_full (obj : Gtk.event_box obj)
-  method event = new GObj.event_ops obj
-end
-
-let event_box ?border_width ?width ?height ?packing ?show () =
-  let w = EventBox.create () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new event_box w) ~packing ~show
-
-class handle_box_signals obj = object
-  inherit container_signals obj
-  method child_attached ~callback =
-    GtkSignal.connect ~sgn:HandleBox.Signals.child_attached obj ~after
-      ~callback:(fun obj -> callback (new widget obj))
-  method child_detached ~callback =
-    GtkSignal.connect ~sgn:HandleBox.Signals.child_detached obj ~after
-      ~callback:(fun obj -> callback (new widget obj))
-end
-
-class handle_box obj = object
-  inherit container (obj : Gtk.handle_box obj)
-  method set_shadow_type     = HandleBox.set_shadow_type     obj
-  method set_handle_position = HandleBox.set_handle_position obj
-  method set_snap_edge       = HandleBox.set_snap_edge       obj
-  method connect = new handle_box_signals obj
-  method event = new GObj.event_ops obj
-end
-
-let handle_box ?border_width ?width ?height ?packing ?show () =
-  let w = HandleBox.create () in
-  let () = Container.set w ?border_width ?width ?height in
-  pack_return (new handle_box w) ~packing ~show
-
-class frame_skel obj = object
-  inherit container obj
-  method set_label = Frame.set_label obj
-  method set_label_align ?x ?y () = Frame.set_label_align' obj ?x ?y
-  method set_shadow_type = Frame.set_shadow_type obj
-end
-
-class frame obj = object
-  inherit frame_skel (Frame.coerce obj)
-  method connect = new container_signals obj
-end
-
-let frame ?(label="") ?label_xalign ?label_yalign ?shadow_type
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Frame.create label in
-  Frame.set w ?label_xalign ?label_yalign ?shadow_type;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new frame w) ~packing ~show
-
-class aspect_frame obj = object
-  inherit frame_skel (obj : Gtk.aspect_frame obj)
-  method connect = new container_signals obj
-  method set_alignment ?x ?y () = AspectFrame.set obj ?xalign:x ?yalign:y
-  method set_ratio ratio = AspectFrame.set obj ~ratio
-  method set_obey_child obey_child = AspectFrame.set obj ~obey_child
-end
-
-let aspect_frame ?label ?xalign ?yalign ?ratio ?obey_child
-    ?label_xalign ?label_yalign ?shadow_type
-    ?border_width ?width ?height ?packing ?show () =
-  let w =
-    AspectFrame.create ?label ?xalign ?yalign ?ratio ?obey_child () in
-  Frame.set w ?label_xalign ?label_yalign ?shadow_type;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new aspect_frame w) ~packing ~show
-
-class viewport obj = object
-  inherit container_full (obj : Gtk.viewport obj)
-  method event = new event_ops obj
-  method set_hadjustment adj =
-    Viewport.set_hadjustment obj (GData.as_adjustment adj)
-  method set_vadjustment adj =
-    Viewport.set_vadjustment obj (GData.as_adjustment adj)
-  method set_shadow_type = Viewport.set_shadow_type obj
-  method hadjustment = new GData.adjustment (Viewport.get_hadjustment obj)
-  method vadjustment = new GData.adjustment (Viewport.get_vadjustment obj)
-end
-
-let viewport ?hadjustment ?vadjustment ?shadow_type
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Viewport.create ()
-      ?hadjustment:(may_map ~f:GData.as_adjustment hadjustment)
-      ?vadjustment:(may_map ~f:GData.as_adjustment vadjustment) in
-  may shadow_type ~f:(Viewport.set_shadow_type w);
-  Container.set w ?border_width ?width ?height;
-  pack_return (new viewport w) ~packing ~show
-
-class alignment obj = object
-  inherit container_full (obj : Gtk.alignment obj)
-  method set_alignment ?x ?y () = Alignment.set ?x ?y obj
-  method set_scale ?x ?y () = Alignment.set ?xscale:x ?yscale:y obj
-end
-
-let alignment ?x ?y ?xscale ?yscale
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Alignment.create ?x ?y ?xscale ?yscale () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new alignment w) ~packing ~show
-  
-let alignment_cast w = new alignment (Alignment.cast w#as_widget)
-
-class socket obj = object (self)
-  inherit container_full (obj : Gtk.socket obj)
-  method steal = Socket.steal obj
-  method xwindow =
-    self#misc#realize ();
-    Gdk.Window.get_xwindow self#misc#window
-end
-
-let socket ?border_width ?width ?height ?packing ?show () =
-  let w = Socket.create () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new socket w) ?packing ?show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gBin.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gBin.mli
deleted file mode 100644 (file)
index 9593650..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gBin.mli
+++ /dev/null
@@ -1,163 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GContainer
-
-class scrolled_window : Gtk.scrolled_window obj ->
-  object
-    inherit container_full
-    val obj : Gtk.scrolled_window obj
-    method add_with_viewport : widget -> unit
-    method hadjustment : GData.adjustment
-    method set_hadjustment : GData.adjustment -> unit
-    method set_hpolicy : Tags.policy_type -> unit
-    method set_placement : Tags.corner_type -> unit
-    method set_vadjustment : GData.adjustment -> unit
-    method set_vpolicy : Tags.policy_type -> unit
-    method vadjustment : GData.adjustment
-  end
-val scrolled_window :
-  ?hadjustment:GData.adjustment ->
-  ?vadjustment:GData.adjustment ->
-  ?hpolicy:Tags.policy_type ->
-  ?vpolicy:Tags.policy_type ->
-  ?placement:Tags.corner_type ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> scrolled_window
-
-class event_box : Gtk.event_box obj ->
-  object
-    inherit container_full
-    val obj : Gtk.event_box obj
-    method event : event_ops
-  end
-val event_box :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> event_box
-
-class handle_box_signals : 'a obj ->
-  object
-    inherit container_signals
-    constraint 'a = [>`handlebox|`container|`widget]
-    val obj : 'a obj
-    method child_attached : callback:(widget -> unit) -> GtkSignal.id
-    method child_detached : callback:(widget -> unit) -> GtkSignal.id
-  end
-
-class handle_box : Gtk.handle_box obj ->
-  object
-    inherit container
-    val obj : Gtk.handle_box obj
-    method event : event_ops
-    method connect : handle_box_signals
-    method set_handle_position : Tags.position -> unit
-    method set_shadow_type : Tags.shadow_type -> unit
-    method set_snap_edge : Tags.position -> unit
-  end
-val handle_box :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> handle_box
-
-class frame_skel : 'a obj ->
-  object
-    inherit container
-    constraint 'a = [>`frame|`container|`widget]
-    val obj : 'a obj
-    method set_label : string -> unit
-    method set_label_align : ?x:clampf -> ?y:clampf -> unit -> unit
-    method set_shadow_type : Tags.shadow_type -> unit
-  end
-class frame : [>`frame] obj ->
-  object
-    inherit frame_skel
-    val obj : Gtk.frame obj
-    method connect : GContainer.container_signals
-  end
-val frame :
-  ?label:string ->
-  ?label_xalign:clampf ->
-  ?label_yalign:clampf ->
-  ?shadow_type:Tags.shadow_type ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> frame
-
-class aspect_frame : Gtk.aspect_frame obj ->
-  object
-    inherit frame
-    val obj : Gtk.aspect_frame obj
-    method set_alignment : ?x:clampf -> ?y:clampf -> unit -> unit
-    method set_obey_child : bool -> unit
-    method set_ratio : clampf -> unit
-  end
-val aspect_frame :
-  ?label:string ->
-  ?xalign:clampf ->
-  ?yalign:clampf ->
-  ?ratio:float ->
-  ?obey_child:bool ->
-  ?label_xalign:clampf ->
-  ?label_yalign:clampf ->
-  ?shadow_type:Tags.shadow_type ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> aspect_frame
-
-class viewport : Gtk.viewport obj ->
-  object
-    inherit container_full
-    val obj : Gtk.viewport obj
-    method event : event_ops
-    method hadjustment : GData.adjustment
-    method set_hadjustment : GData.adjustment -> unit
-    method set_shadow_type : Gtk.Tags.shadow_type -> unit
-    method set_vadjustment : GData.adjustment -> unit
-    method vadjustment : GData.adjustment
-  end
-val viewport :
-  ?hadjustment:GData.adjustment ->
-  ?vadjustment:GData.adjustment ->
-  ?shadow_type:Tags.shadow_type ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> viewport
-
-class alignment : Gtk.alignment obj ->
-  object
-    inherit container_full
-    val obj : Gtk.alignment obj
-    method set_alignment : ?x:Gtk.clampf -> ?y:Gtk.clampf -> unit -> unit
-    method set_scale : ?x:Gtk.clampf -> ?y:Gtk.clampf -> unit -> unit
-  end
-val alignment :
-  ?x:Gtk.clampf ->
-  ?y:Gtk.clampf ->
-  ?xscale:Gtk.clampf ->
-  ?yscale:Gtk.clampf ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> alignment
-val alignment_cast : < as_widget : 'a obj; .. > -> alignment
-
-class socket : Gtk.socket obj ->
-  object
-    inherit container_full
-    val obj : Gtk.socket obj
-    method steal : Gdk.xid -> unit
-    method xwindow : Gdk.xid
-  end
-
-val socket :
-  ?border_width:int -> ?width:int -> ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> socket

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gButton.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gButton.ml
deleted file mode 100644 (file)
index 08ac704..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gButton.ml
+++ /dev/null
@@ -1,124 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkButton
-open GObj
-open GContainer
-
-class button_skel obj = object (self)
-  inherit container obj
-  method clicked () = Button.clicked obj
-  method grab_default () =
-    Widget.set_can_default obj true;
-    Widget.grab_default obj
-end
-
-class button_signals obj = object
-  inherit container_signals obj
-  method clicked = GtkSignal.connect ~sgn:Button.Signals.clicked ~after obj
-  method pressed = GtkSignal.connect ~sgn:Button.Signals.pressed ~after obj
-  method released = GtkSignal.connect ~sgn:Button.Signals.released ~after obj
-  method enter = GtkSignal.connect ~sgn:Button.Signals.enter ~after obj
-  method leave = GtkSignal.connect ~sgn:Button.Signals.leave ~after obj
-end
-
-class button obj = object
-  inherit button_skel (Button.coerce obj)
-  method connect = new button_signals obj
-  method event = new GObj.event_ops obj
-end
-
-let button ?label ?border_width ?width ?height ?packing ?show () =
-  let w = Button.create ?label () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new button w) ~packing ~show
-
-class toggle_button_signals obj = object
-  inherit button_signals obj
-  method toggled =
-    GtkSignal.connect ~sgn:ToggleButton.Signals.toggled obj ~after
-end
-
-class toggle_button obj = object
-  inherit button_skel obj
-  method connect = new toggle_button_signals obj
-  method active = ToggleButton.get_active obj
-  method set_active = ToggleButton.set_active obj
-  method set_draw_indicator = ToggleButton.set_mode obj
-end
-
-let toggle_button ?label ?active ?draw_indicator
-    ?border_width ?width ?height ?packing ?show () =
-  let w = ToggleButton.create_toggle ?label () in
-  ToggleButton.set w ?active ?draw_indicator;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new toggle_button w) ~packing ~show
-
-let check_button ?label ?active ?draw_indicator
-    ?border_width ?width ?height ?packing ?show () =
-  let w = ToggleButton.create_check ?label () in
-  ToggleButton.set w ?active ?draw_indicator;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new toggle_button w) ~packing ~show
-
-class radio_button obj = object
-  inherit toggle_button (obj : Gtk.radio_button obj)
-  method set_group = RadioButton.set_group obj
-  method group = Some obj
-end
-
-let radio_button ?group ?label ?active ?draw_indicator
-    ?border_width ?width ?height ?packing ?show () =
-  let w = RadioButton.create ?group ?label () in
-  ToggleButton.set w ?active ?draw_indicator;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new radio_button w) ~packing ~show
-
-class toolbar obj = object
-  inherit container_full (obj : Gtk.toolbar obj)
-  method insert_widget ?tooltip ?tooltip_private ?pos w =
-    Toolbar.insert_widget obj (as_widget w) ?tooltip ?tooltip_private ?pos
-
-  method insert_button ?text ?tooltip ?tooltip_private ?icon
-      ?pos ?callback () =
-    let icon = may_map icon ~f:as_widget in
-    new button
-      (Toolbar.insert_button obj ~kind:`BUTTON ?icon ?text
-        ?tooltip ?tooltip_private ?pos ?callback ())
-
-  method insert_toggle_button ?text ?tooltip ?tooltip_private ?icon
-      ?pos ?callback () =
-    let icon = may_map icon ~f:as_widget in
-    new toggle_button
-      (ToggleButton.cast
-        (Toolbar.insert_button obj ~kind:`TOGGLEBUTTON ?icon ?text
-           ?tooltip ?tooltip_private ?pos ?callback ()))
-
-  method insert_radio_button ?text ?tooltip ?tooltip_private ?icon
-      ?pos ?callback () =
-    let icon = may_map icon ~f:as_widget in
-    new radio_button
-      (RadioButton.cast
-        (Toolbar.insert_button obj ~kind:`RADIOBUTTON ?icon ?text
-           ?tooltip ?tooltip_private ?pos ?callback ()))
-
-  method insert_space = Toolbar.insert_space obj
-
-  method set_orientation = Toolbar.set_orientation obj
-  method set_style = Toolbar.set_style obj
-  method set_space_size = Toolbar.set_space_size obj
-  method set_space_style = Toolbar.set_space_style obj
-  method set_tooltips = Toolbar.set_tooltips obj
-  method set_button_relief = Toolbar.set_button_relief obj
-  method button_relief = Toolbar.get_button_relief obj
-end
-
-let toolbar ?(orientation=`HORIZONTAL) ?style
-    ?space_size ?space_style ?tooltips ?button_relief
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Toolbar.create orientation ?style () in
-  Toolbar.set w ?space_size ?space_style ?tooltips ?button_relief;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new toolbar w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gButton.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gButton.mli
deleted file mode 100644 (file)
index ee2653d..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gButton.mli
+++ /dev/null
@@ -1,144 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GContainer
-
-class button_skel :
-  'a obj ->
-  object
-    inherit container
-    constraint 'a = [>`widget|`button|`container]
-    val obj : 'a obj
-    method clicked : unit -> unit
-    method grab_default : unit -> unit
-  end
-class button_signals :
-  'b obj ->
-  object ('a)
-    inherit container_signals
-    constraint 'b = [>`button|`container|`widget]
-    val obj : 'b obj
-    method clicked : callback:(unit -> unit) -> GtkSignal.id
-    method enter : callback:(unit -> unit) -> GtkSignal.id
-    method leave : callback:(unit -> unit) -> GtkSignal.id
-    method pressed : callback:(unit -> unit) -> GtkSignal.id
-    method released : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class button :
-  [>`button] obj ->
-  object
-    inherit button_skel
-    val obj : Gtk.button obj
-    method event : event_ops
-    method connect : button_signals
-  end
-val button :
-  ?label:string ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> button
-
-class toggle_button_signals :
-  'b obj ->
-  object ('a)
-    inherit button_signals
-    constraint 'b = [>`toggle|`button|`container|`widget]
-    val obj : 'b obj
-    method toggled : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class toggle_button :
-  'a obj ->
-  object
-    inherit button_skel
-    constraint 'a = [>`toggle|`button|`container|`widget]
-    val obj : 'a obj
-    method active : bool
-    method connect : toggle_button_signals
-    method set_active : bool -> unit
-    method set_draw_indicator : bool -> unit
-  end
-val toggle_button :
-  ?label:string ->
-  ?active:bool ->
-  ?draw_indicator:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> toggle_button
-val check_button :
-  ?label:string ->
-  ?active:bool ->
-  ?draw_indicator:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> toggle_button
-
-class radio_button :
-  Gtk.radio_button obj ->
-  object
-    inherit toggle_button
-    val obj : Gtk.radio_button obj
-    method group : Gtk.radio_button group
-    method set_group : Gtk.radio_button group -> unit
-  end
-val radio_button :
-  ?group:Gtk.radio_button group ->
-  ?label:string ->
-  ?active:bool ->
-  ?draw_indicator:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> radio_button
-
-class toolbar :
-  Gtk.toolbar obj ->
-  object
-    inherit container_full
-    val obj : Gtk.toolbar obj
-    method button_relief : Tags.relief_style
-    method insert_button :
-      ?text:string ->
-      ?tooltip:string ->
-      ?tooltip_private:string ->
-      ?icon:widget ->
-      ?pos:int -> ?callback:(unit -> unit) -> unit -> button
-    method insert_radio_button :
-      ?text:string ->
-      ?tooltip:string ->
-      ?tooltip_private:string ->
-      ?icon:widget ->
-      ?pos:int -> ?callback:(unit -> unit) -> unit -> radio_button
-    method insert_space : ?pos:int -> unit -> unit
-    method insert_toggle_button :
-      ?text:string ->
-      ?tooltip:string ->
-      ?tooltip_private:string ->
-      ?icon:widget ->
-      ?pos:int -> ?callback:(unit -> unit) -> unit -> toggle_button
-    method insert_widget :
-      ?tooltip:string ->
-      ?tooltip_private:string -> ?pos:int -> widget -> unit
-    method set_button_relief : Tags.relief_style -> unit
-    method set_orientation : Tags.orientation -> unit
-    method set_space_size : int -> unit
-    method set_space_style : [`EMPTY|`LINE] -> unit
-    method set_style : Tags.toolbar_style -> unit
-    method set_tooltips : bool -> unit
-  end
-val toolbar :
-  ?orientation:Tags.orientation ->
-  ?style:Tags.toolbar_style ->
-  ?space_size:int ->
-  ?space_style:[`EMPTY|`LINE] ->
-  ?tooltips:bool ->
-  ?button_relief:Tags.relief_style ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> toolbar

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gContainer.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gContainer.ml
deleted file mode 100644 (file)
index 2ea765e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gContainer.ml
+++ /dev/null
@@ -1,75 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GObj
-open GData
-
-class focus obj = object
-  val obj = obj
-  method circulate = Container.focus obj
-  method set (child : widget option) =
-    let child = may_map child ~f:(fun x -> x#as_widget) in
-    Container.set_focus_child obj (Gpointer.optboxed child)
-  method set_hadjustment adj =
-    Container.set_focus_hadjustment obj
-      (Gpointer.optboxed (may_map adj ~f:as_adjustment))
-  method set_vadjustment adj =
-    Container.set_focus_vadjustment obj
-      (Gpointer.optboxed (may_map adj ~f:as_adjustment))
-end
-
-class container obj = object (self)
-  inherit widget obj
-  method add w =
-    (* Hack to avoid creating a bin class *)
-    if GtkBase.Object.is_a obj "GtkBin" && Container.children obj <> [] then
-      raise (Gtk.Error "GContainer.container#add: already full");
-    Container.add obj (as_widget w)
-  method remove w = Container.remove obj (as_widget w)
-  method children = List.map ~f:(new widget) (Container.children obj)
-  method set_border_width = Container.set_border_width obj
-  method focus = new focus obj
-end
-
-class container_signals obj = object
-  inherit widget_signals obj
-  method add ~callback =
-    GtkSignal.connect ~sgn:Container.Signals.add obj ~after
-      ~callback:(fun w -> callback (new widget w))
-  method remove ~callback =
-    GtkSignal.connect ~sgn:Container.Signals.remove obj ~after
-      ~callback:(fun w -> callback (new widget w))
-end
-
-class container_full obj = object
-  inherit container obj
-  method connect = new container_signals obj
-end
-
-let cast_container (w : widget) =
-  new container_full (GtkBase.Container.cast w#as_widget)
-
-class virtual ['a] item_container obj = object (self)
-  inherit widget obj
-  method add (w : 'a) =
-    Container.add obj w#as_item
-  method remove (w : 'a) =
-    Container.remove obj w#as_item
-  method private virtual wrap : Gtk.widget obj -> 'a
-  method children : 'a list =
-    List.map ~f:self#wrap (Container.children obj)
-  method set_border_width = Container.set_border_width obj
-  method focus = new focus obj
-  method virtual insert : 'a -> pos:int -> unit
-  method append (w : 'a) = self#insert w ~pos:(-1)
-  method prepend (w : 'a) = self#insert w ~pos:0
-end
-
-class item_signals obj = object
-  inherit container_signals obj
-  method select = GtkSignal.connect ~sgn:Item.Signals.select obj ~after
-  method deselect = GtkSignal.connect ~sgn:Item.Signals.deselect obj ~after
-  method toggle = GtkSignal.connect ~sgn:Item.Signals.toggle obj ~after
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gContainer.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gContainer.mli
deleted file mode 100644 (file)
index 2909829..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gContainer.mli
+++ /dev/null
@@ -1,79 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-
-class focus :
-  'a obj ->
-  object
-    constraint 'a = [>`container]
-    val obj : 'a obj
-    method circulate : Tags.direction_type -> bool
-    method set : widget option -> unit
-    method set_hadjustment : GData.adjustment option -> unit
-    method set_vadjustment : GData.adjustment option -> unit
-  end
-
-class container :
-  'a obj ->
-  object
-    inherit widget
-    constraint 'a = [>`container|`widget]
-    val obj : 'a obj
-    method add : widget -> unit
-    method children : widget list
-    method remove : widget -> unit
-    method focus : focus
-    method set_border_width : int -> unit
-  end
-
-class container_signals :
-  'a obj ->
-  object
-    inherit widget_signals
-    constraint 'a = [>`container|`widget]
-    val obj : 'a obj
-    method add : callback:(widget -> unit) -> GtkSignal.id
-    method remove : callback:(widget -> unit) -> GtkSignal.id
-  end
-
-class container_full :
-  'a obj ->
-  object
-    inherit container
-    constraint 'a = [>`container|`widget]
-    val obj : 'a obj
-    method connect : container_signals
-  end
-
-val cast_container : widget -> container_full
-(* may raise [Gtk.Cannot_cast "GtkContainer"] *)
-
-class virtual ['a] item_container :
-  'c obj ->
-  object
-    constraint 'a = < as_item : [>`widget] obj; .. >
-    constraint 'c = [>`container|`widget]
-    inherit widget
-    val obj : 'c obj
-    method add : 'a -> unit
-    method append : 'a -> unit
-    method children : 'a list
-    method virtual insert : 'a -> pos:int -> unit
-    method prepend : 'a -> unit
-    method remove : 'a -> unit
-    method focus : focus
-    method set_border_width : int -> unit
-    method private virtual wrap : Gtk.widget obj -> 'a
-  end
-
-class item_signals :
-  'a obj ->
-  object
-    inherit container_signals
-    constraint 'a = [>`container|`item|`widget]
-    val obj : 'a obj
-    method deselect : callback:(unit -> unit) -> GtkSignal.id
-    method select : callback:(unit -> unit) -> GtkSignal.id
-    method toggle : callback:(unit -> unit) -> GtkSignal.id
-  end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gData.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gData.ml
deleted file mode 100644 (file)
index 52aa3f1..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gData.ml
+++ /dev/null
@@ -1,60 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkData
-open GObj
-
-class data_signals obj = object
-  inherit gtkobj_signals obj
-  method disconnect_data =
-    GtkSignal.connect ~sgn:Data.Signals.disconnect obj ~after
-end
-
-class adjustment_signals obj = object
-  inherit data_signals obj
-  method changed = GtkSignal.connect ~sgn:Adjustment.Signals.changed obj ~after
-  method value_changed =
-    GtkSignal.connect ~sgn:Adjustment.Signals.value_changed obj ~after
-end
-
-class adjustment obj = object
-  inherit gtkobj obj
-  method as_adjustment : Gtk.adjustment obj = obj
-  method connect = new adjustment_signals obj
-  method set_value = Adjustment.set_value obj
-  method clamp_page = Adjustment.clamp_page obj
-  method lower = Adjustment.get_lower obj
-  method upper = Adjustment.get_upper obj
-  method value = Adjustment.get_value obj
-  method step_increment = Adjustment.get_step_increment obj
-  method page_increment = Adjustment.get_page_increment obj
-  method page_size = Adjustment.get_page_size obj
-end
-
-let adjustment ?(value=0.) ?(lower=0.) ?(upper=100.)
-    ?(step_incr=1.) ?(page_incr=10.) ?(page_size=10.) () =
-  let w =
-    Adjustment.create ~value ~lower ~upper ~step_incr ~page_incr ~page_size in
-  new adjustment w
-
-let as_adjustment (adj : adjustment) = adj#as_adjustment
-
-class tooltips obj = object
-  inherit gtkobj (obj : Gtk.tooltips obj)
-  method as_tooltips = obj
-  method connect = new data_signals obj
-  method enable () = Tooltips.enable obj
-  method disable () = Tooltips.disable obj
-  method set_tip ?text ?privat w =
-    Tooltips.set_tip obj (as_widget w) ?text ?privat
-  method set_delay = Tooltips.set_delay obj
-end
-
-let tooltips ?delay () =
-  let tt = Tooltips.create () in
-  Tooltips.set tt ?delay;
-  new tooltips tt
-
-
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gData.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gData.mli
deleted file mode 100644 (file)
index ae7b29e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gData.mli
+++ /dev/null
@@ -1,60 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-
-class data_signals :
-  'a obj ->
-  object
-    inherit GObj.gtkobj_signals
-    constraint 'a = [>`data]
-    val obj : 'a obj
-    method disconnect_data : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class adjustment_signals :
-  'a obj ->
-  object
-    inherit data_signals
-    constraint 'a = [>`adjustment|`data]
-    val obj : 'a obj
-    method changed : callback:(unit -> unit) -> GtkSignal.id
-    method value_changed : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class adjustment : Gtk.adjustment obj ->
-  object
-    inherit GObj.gtkobj
-    val obj : Gtk.adjustment obj
-    method as_adjustment : Gtk.adjustment obj
-    method clamp_page : lower:float -> upper:float -> unit
-    method connect : adjustment_signals
-    method set_value : float -> unit
-    method lower : float
-    method upper : float
-    method value : float
-    method step_increment : float
-    method page_increment : float
-    method page_size : float
-  end
-val adjustment :
-  ?value:float ->
-  ?lower:float ->
-  ?upper:float ->
-  ?step_incr:float ->
-  ?page_incr:float -> ?page_size:float -> unit -> adjustment
-
-val as_adjustment : adjustment -> Gtk.adjustment obj
-
-class tooltips :
-  Gtk.tooltips obj ->
-  object
-    inherit GObj.gtkobj
-    val obj : Gtk.tooltips obj
-    method as_tooltips : Gtk.tooltips obj
-    method connect : data_signals
-    method disable : unit -> unit
-    method enable : unit -> unit
-    method set_delay : int -> unit
-    method set_tip : ?text:string -> ?privat:string -> GObj.widget -> unit
-  end
-val tooltips : ?delay:int -> unit -> tooltips

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gDraw.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gDraw.ml
deleted file mode 100644 (file)
index 5782079..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gDraw.ml
+++ /dev/null
@@ -1,163 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gdk
-
-type color = [
-  | `COLOR of Color.t
-  | `WHITE
-  | `BLACK
-  | `NAME of string
-  | `RGB of int * int * int
-]
-
-let default_colormap = GtkBase.Widget.get_default_colormap
-
-let color ?(colormap = default_colormap ()) (c : color) =
-  match c with
-  | `COLOR col -> col
-  | #Gdk.Color.spec as def -> Color.alloc ~colormap def
-
-type optcolor = [
-  | `COLOR of Color.t
-  | `WHITE
-  | `BLACK
-  | `NAME of string
-  | `RGB of int * int * int
-  | `DEFAULT
-]
-
-let optcolor ?colormap (c : optcolor) =
-  match c with
-  | `DEFAULT -> None
-  | #color as c -> Some (color ?colormap c)
-
-class ['a] drawable ?(colormap = default_colormap ()) w =
-object (self)
-  val colormap = colormap
-  val gc = GC.create w
-  val w : 'a Gdk.drawable = w
-  method color = color ~colormap
-  method set_foreground col = GC.set_foreground gc (self#color col)
-  method set_background col = GC.set_background gc (self#color col)
-  method gc_values = GC.get_values gc
-  method set_clip_region region = GC.set_clip_region gc region
-  method set_line_attributes ?width ?style ?cap ?join () =
-    let v = GC.get_values gc in
-    GC.set_line_attributes gc
-      ~width:(default v.GC.line_width ~opt:width)
-      ~style:(default v.GC.line_style ~opt:style)
-      ~cap:(default v.GC.cap_style ~opt:cap)
-      ~join:(default v.GC.join_style ~opt:join)
-  method point = Draw.point w gc
-  method line = Draw.line w gc
-  method rectangle = Draw.rectangle w gc
-  method arc = Draw.arc w gc
-  method polygon ?filled l = Draw.polygon w gc ?filled l
-  method string s = Draw.string w gc ~string:s
-  method image ~width ~height ?(xsrc=0) ?(ysrc=0) ?(xdest=0) ?(ydest=0) image =
-    Draw.image w gc ~image ~width ~height ~xsrc ~ysrc ~xdest ~ydest
-end
-
-class pixmap ?colormap ?mask pm = object
-  inherit [[`pixmap]] drawable ?colormap pm as pixmap
-  val bitmap = may_map mask ~f:
-      begin fun x ->
-        let mask = new drawable x in
-        mask#set_foreground `WHITE;
-        mask
-      end
-  val mask : Gdk.bitmap option = mask
-  method pixmap = w
-  method mask = mask
-  method set_line_attributes ?width ?style ?cap ?join () =
-    pixmap#set_line_attributes ?width ?style ?cap ?join ();
-    may bitmap ~f:(fun m -> m#set_line_attributes ?width ?style ?cap ?join ())
-  method point ~x ~y =
-    pixmap#point ~x ~y;
-    may bitmap ~f:(fun m -> m#point ~x ~y)
-  method line ~x ~y ~x:x' ~y:y' =
-    pixmap#line ~x ~y ~x:x' ~y:y';
-    may bitmap ~f:(fun m -> m#line ~x ~y ~x:x' ~y:y')
-  method rectangle ~x ~y ~width ~height ?filled () =
-    pixmap#rectangle ~x ~y ~width ~height ?filled ();
-    may bitmap ~f:(fun m -> m#rectangle ~x ~y ~width ~height ?filled ())
-  method arc ~x ~y ~width ~height ?filled ?start ?angle () =
-    pixmap#arc ~x ~y ~width ~height ?filled ?start ?angle ();
-    may bitmap
-      ~f:(fun m -> m#arc ~x ~y ~width ~height ?filled ?start ?angle ());
-  method polygon ?filled l =
-    pixmap#polygon ?filled l;
-    may bitmap ~f:(fun m -> m#polygon ?filled l)
-  method string s ~font ~x ~y =
-    pixmap#string s ~font ~x ~y;
-    may bitmap ~f:(fun m -> m#string s ~font ~x ~y)
-end
-
-class type misc_ops = object
-  method allocation : Gtk.rectangle
-  method colormap : colormap
-  method draw : Rectangle.t option -> unit
-  method hide : unit -> unit
-  method hide_all : unit -> unit
-  method intersect : Rectangle.t -> Rectangle.t option
-  method pointer : int * int
-  method realize : unit -> unit
-  method set_app_paintable : bool -> unit
-  method set_geometry :
-    ?x:int -> ?y:int -> ?width:int -> ?height:int -> unit -> unit
-  method show : unit -> unit
-  method unmap : unit -> unit
-  method unparent : unit -> unit
-  method unrealize : unit -> unit
-  method visible : bool
-  method visual : visual
-  method visual_depth : int
-  method window : window
-end
-
-let pixmap ~(window : < misc : #misc_ops; .. >)
-    ~width ~height ?(mask=false) () =
-  window#misc#realize ();
-  let window =
-    try window#misc#window
-    with Gpointer.Null -> failwith "GDraw.pixmap : no window"
-  and depth = window#misc#visual_depth
-  and colormap = window#misc#colormap in
-  let mask =
-    if not mask then None else
-    let bm = Bitmap.create window ~width ~height in
-    let mask = new drawable bm in
-    mask#set_foreground `BLACK;
-    mask#rectangle ~x:0 ~y:0 ~width ~height ~filled:true ();
-    Some bm
-  in
-  new pixmap (Pixmap.create window ~width ~height ~depth) ~colormap ?mask
-
-let pixmap_from_xpm ~window ~file ?colormap ?transparent () =
-  window#misc#realize ();
-  let window =
-    try window#misc#window
-    with Gpointer.Null -> failwith "GDraw.pixmap_from_xpm : no window" in
-  let pm, mask =
-    try Pixmap.create_from_xpm window ~file ?colormap
-       ?transparent:(may_map transparent ~f:(fun c -> color c))
-    with Gpointer.Null -> invalid_arg ("GDraw.pixmap_from_xpm : " ^ file) in
-  new pixmap pm ?colormap ~mask
-
-let pixmap_from_xpm_d ~window ~data ?colormap ?transparent () =
-  window#misc#realize ();
-  let window =
-    try window#misc#window
-    with Gpointer.Null -> failwith "GDraw.pixmap_from_xpm_d : no window" in
-  let pm, mask =
-    Pixmap.create_from_xpm_d window ~data ?colormap
-      ?transparent:(may_map transparent ~f:(fun c -> color c)) in
-  new pixmap pm ?colormap ~mask
-
-class drag_context context = object
-  val context = context
-  method status ?(time=0) act = DnD.drag_status context act ~time
-  method suggested_action = DnD.drag_context_suggested_action context
-  method targets = DnD.drag_context_targets context
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gDraw.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gDraw.mli
deleted file mode 100644 (file)
index 2b5fc86..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gDraw.mli
+++ /dev/null
@@ -1,107 +0,0 @@
-(* $Id$ *)
-
-open Gdk
-
-type color =
-  [ `COLOR of Color.t
-  | `WHITE
-  | `BLACK
-  | `NAME of string
-  | `RGB of int * int * int]
-
-val color : ?colormap:colormap -> color -> Color.t
-
-type optcolor =
-  [ `COLOR of Color.t
-  | `WHITE
-  | `BLACK
-  | `NAME of string
-  | `RGB of int * int * int
-  | `DEFAULT ]
-
-val optcolor : ?colormap:colormap -> optcolor -> Color.t option
-
-class ['a] drawable : ?colormap:colormap -> 'a Gdk.drawable ->
-  object
-    val gc : gc
-    val w : 'a Gdk.drawable
-    method arc :
-      x:int ->
-      y:int ->
-      width:int ->
-      height:int ->
-      ?filled:bool -> ?start:float -> ?angle:float -> unit -> unit
-    method color : color -> Color.t
-    method gc_values : GC.values
-    method image :
-      width:int ->
-      height:int ->
-      ?xsrc:int -> ?ysrc:int -> ?xdest:int -> ?ydest:int -> image -> unit
-    method line : x:int -> y:int -> x:int -> y:int -> unit
-    method point : x:int -> y:int -> unit
-    method polygon : ?filled:bool -> (int * int) list -> unit
-    method rectangle :
-      x:int ->
-      y:int -> width:int -> height:int -> ?filled:bool -> unit -> unit
-    method set_background : color -> unit
-    method set_foreground : color -> unit
-    method set_clip_region : region -> unit
-    method set_line_attributes :
-      ?width:int ->
-      ?style:GC.gdkLineStyle ->
-      ?cap:GC.gdkCapStyle -> ?join:GC.gdkJoinStyle -> unit -> unit
-    method string : string -> font:font -> x:int -> y:int -> unit
-  end
-
-class pixmap :
-  ?colormap:colormap -> ?mask:bitmap -> [ `pixmap] Gdk.drawable ->
-  object
-    inherit [[`pixmap]] drawable
-    val bitmap : [ `bitmap] drawable option
-    val mask : bitmap option
-    method mask : bitmap option
-    method pixmap : Gdk.pixmap
-  end
-
-class type misc_ops =
-  object
-    method allocation : Gtk.rectangle
-    method colormap : colormap
-    method draw : Rectangle.t option -> unit
-    method hide : unit -> unit
-    method hide_all : unit -> unit
-    method intersect : Rectangle.t -> Rectangle.t option
-    method pointer : int * int
-    method realize : unit -> unit
-    method set_app_paintable : bool -> unit
-    method set_geometry :
-      ?x:int -> ?y:int -> ?width:int -> ?height:int -> unit -> unit
-    method show : unit -> unit
-    method unmap : unit -> unit
-    method unparent : unit -> unit
-    method unrealize : unit -> unit
-    method visible : bool
-    method visual : visual
-    method visual_depth : int
-    method window : window
-  end
-
-val pixmap :
-  window:< misc : #misc_ops; .. > ->
-  width:int -> height:int -> ?mask:bool -> unit -> pixmap
-val pixmap_from_xpm :
-  window:< misc : #misc_ops; .. > ->
-  file:string ->
-  ?colormap:colormap -> ?transparent:color -> unit -> pixmap
-val pixmap_from_xpm_d :
-  window:< misc : #misc_ops; .. > ->
-  data:string array ->
-  ?colormap:colormap -> ?transparent:color -> unit -> pixmap
-
-class drag_context : Gdk.drag_context ->
-  object
-    val context : Gdk.drag_context
-    method status : ?time:int -> Tags.drag_action list -> unit
-    method suggested_action : Tags.drag_action
-    method targets : atom list
-  end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gEdit.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gEdit.ml
deleted file mode 100644 (file)
index 467ee45..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gEdit.ml
+++ /dev/null
@@ -1,147 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkEdit
-open GObj
-
-class editable_signals obj = object
-  inherit widget_signals obj
-  method activate = GtkSignal.connect ~sgn:Editable.Signals.activate obj ~after
-  method changed = GtkSignal.connect ~sgn:Editable.Signals.changed obj ~after
-  method insert_text =
-    GtkSignal.connect ~sgn:Editable.Signals.insert_text obj ~after
-  method delete_text =
-    GtkSignal.connect ~sgn:Editable.Signals.delete_text obj ~after
-end
-
-class editable obj = object
-  inherit widget obj
-  method connect = new editable_signals obj
-  method select_region = Editable.select_region obj
-  method insert_text = Editable.insert_text obj
-  method delete_text = Editable.delete_text obj
-  method get_chars = Editable.get_chars obj
-  method cut_clipboard () = Editable.cut_clipboard obj
-  method copy_clipboard () = Editable.copy_clipboard obj
-  method paste_clipboard () = Editable.paste_clipboard obj
-  method delete_selection () = Editable.delete_selection obj
-  method set_position = Editable.set_position obj
-  method position = Editable.get_position obj
-  method set_editable = Editable.set_editable obj
-  method selection =
-    if Editable.has_selection obj then
-      Some (Editable.selection_start_pos obj, Editable.selection_end_pos obj)
-    else None
-end
-
-class entry obj = object
-  inherit editable obj
-  method event = new GObj.event_ops obj
-  method set_text = Entry.set_text obj
-  method append_text = Entry.append_text obj
-  method prepend_text = Entry.prepend_text obj
-  method set_visibility = Entry.set_visibility obj
-  method set_max_length = Entry.set_max_length obj
-  method text = Entry.get_text obj
-  method text_length = Entry.text_length obj
-end
-
-let set_editable ?editable ?(width = -2) ?(height = -2) w =
-  may editable ~f:(Editable.set_editable w);
-  if width <> -2 || height <> -2 then Widget.set_usize w ~width ~height
-
-let entry ?max_length ?text ?visibility ?editable
-    ?width ?height ?packing ?show () =
-  let w = Entry.create ?max_length () in
-  Entry.set w ?text ?visibility;
-  set_editable w ?editable ?width ?height;
-  pack_return (new entry w) ~packing ~show
-
-class spin_button obj = object
-  inherit entry (obj : Gtk.spin_button obj)
-  method adjustment =  new GData.adjustment (SpinButton.get_adjustment obj)
-  method value = SpinButton.get_value obj
-  method value_as_int = SpinButton.get_value_as_int obj
-  method spin = SpinButton.spin obj
-  method update = SpinButton.update obj
-  method set_adjustment adj =
-    SpinButton.set_adjustment obj (GData.as_adjustment adj)
-  method set_digits = SpinButton.set_digits obj
-  method set_value = SpinButton.set_value obj
-  method set_update_policy = SpinButton.set_update_policy obj
-  method set_numeric = SpinButton.set_numeric obj
-  method set_wrap = SpinButton.set_wrap obj
-  method set_shadow_type = SpinButton.set_shadow_type obj
-  method set_snap_to_ticks = SpinButton.set_snap_to_ticks obj
-end
-
-let spin_button ?adjustment ?rate ?digits ?value ?update_policy
-    ?numeric ?wrap ?shadow_type ?snap_to_ticks
-    ?width ?height ?packing ?show () =
-  let w = SpinButton.create ?rate ?digits
-      ?adjustment:(may_map ~f:GData.as_adjustment adjustment) () in
-  SpinButton.set w ?value ?update_policy
-    ?numeric ?wrap ?shadow_type ?snap_to_ticks;
-  set_editable w ?width ?height;
-  pack_return (new spin_button w) ~packing ~show
-
-class combo obj = object
-  inherit GObj.widget (obj : Gtk.combo obj)
-  method entry = new entry (Combo.entry obj)
-  method list = new GList.liste (Combo.list obj)
-  method set_popdown_strings = Combo.set_popdown_strings obj
-  method set_use_arrows = Combo.set_use_arrows' obj
-  method set_case_sensitive = Combo.set_case_sensitive obj
-  method set_value_in_list = Combo.set_value_in_list obj
-  method disable_activate () = Combo.disable_activate obj
-  method set_item_string (item : GList.list_item) =
-    Combo.set_item_string obj item#as_item
-end
-
-let combo ?popdown_strings ?use_arrows
-    ?case_sensitive ?value_in_list ?ok_if_empty
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Combo.create () in
-  Combo.set w ?popdown_strings ?use_arrows
-    ?case_sensitive ?value_in_list ?ok_if_empty;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new combo w) ~packing ~show
-
-class text obj = object (self)
-  inherit editable (obj : Gtk.text obj) as super
-  method get_chars ~start ~stop:e =
-    if start < 0 || e > Text.get_length obj || e < start then
-      invalid_arg "GEdit.text#get_chars";
-    super#get_chars ~start ~stop:e
-  method event = new GObj.event_ops obj
-  method set_point = Text.set_point obj
-  method set_hadjustment adj =
-    Text.set_adjustment obj ~horizontal:(GData.as_adjustment adj) ()
-  method set_vadjustment adj =
-    Text.set_adjustment obj ~vertical:(GData.as_adjustment adj) ()
-  method set_word_wrap = Text.set_word_wrap obj
-  method set_line_wrap = Text.set_line_wrap obj
-  method hadjustment = new GData.adjustment (Text.get_hadjustment obj)
-  method vadjustment = new GData.adjustment (Text.get_vadjustment obj)
-  method point = Text.get_point obj
-  method length = Text.get_length obj
-  method freeze () = Text.freeze obj
-  method thaw () = Text.thaw obj
-  method insert ?font ?foreground ?background text =
-    let colormap = try Some self#misc#colormap with _ -> None in
-    Text.insert obj text ?font
-      ?foreground:(may_map foreground ~f:(GDraw.color ?colormap))
-      ?background:(may_map background ~f:(GDraw.color ?colormap))
-end
-
-let text ?hadjustment ?vadjustment ?editable
-    ?word_wrap ?line_wrap ?width ?height ?packing ?show () =
-  let w = Text.create ()
-      ?hadjustment:(may_map ~f:GData.as_adjustment hadjustment)
-      ?vadjustment:(may_map ~f:GData.as_adjustment vadjustment) in
-  may word_wrap ~f:(Text.set_word_wrap w);
-  may line_wrap ~f:(Text.set_line_wrap w);
-  set_editable w ?editable ?width ?height;
-  pack_return (new text w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gEdit.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gEdit.mli
deleted file mode 100644 (file)
index 3b2c286..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gEdit.mli
+++ /dev/null
@@ -1,146 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-
-class editable_signals : 'a obj ->
-  object
-    inherit widget_signals
-    constraint 'a = [>`editable|`widget]
-    val obj : 'a obj
-    method activate : callback:(unit -> unit) -> GtkSignal.id
-    method changed : callback:(unit -> unit) -> GtkSignal.id
-    method delete_text :
-      callback:(start:int -> stop:int -> unit) -> GtkSignal.id
-    method insert_text :
-      callback:(string -> pos:int -> unit) -> GtkSignal.id
-  end
-
-class editable : 'a obj ->
-  object
-    inherit widget
-    constraint 'a = [>`editable|`widget]
-    val obj : 'a obj
-    method connect : editable_signals
-    method copy_clipboard : unit -> unit
-    method cut_clipboard : unit -> unit
-    method delete_selection : unit -> unit
-    method delete_text : start:int -> stop:int -> unit
-    method get_chars : start:int -> stop:int -> string
-    method insert_text : string -> pos:int -> int
-    method paste_clipboard : unit -> unit
-    method position : int
-    method select_region : start:int -> stop:int -> unit
-    method selection : (int * int) option
-    method set_editable : bool -> unit
-    method set_position : int -> unit
-  end
-
-class entry : 'a obj ->
-  object
-    inherit editable
-    constraint 'a = [>`entry|`editable|`widget]
-    val obj : 'a obj
-    method event : event_ops
-    method append_text : string -> unit
-    method prepend_text : string -> unit
-    method set_max_length : int -> unit
-    method set_text : string -> unit
-    method set_visibility : bool -> unit
-    method text : string
-    method text_length : int
-  end
-val entry :
-  ?max_length:int ->
-  ?text:string ->
-  ?visibility:bool ->
-  ?editable:bool ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> entry
-
-class spin_button : Gtk.spin_button obj ->
-  object
-    inherit entry
-    val obj : Gtk.spin_button obj
-    method adjustment : GData.adjustment
-    method set_adjustment : GData.adjustment -> unit
-    method set_digits : int -> unit
-    method set_numeric : bool -> unit
-    method set_shadow_type : Tags.shadow_type -> unit
-    method set_snap_to_ticks : bool -> unit
-    method set_update_policy : [`ALWAYS|`IF_VALID] -> unit
-    method set_value : float -> unit
-    method set_wrap : bool -> unit
-    method spin : Tags.spin_type -> unit
-    method update : unit
-    method value : float
-    method value_as_int : int
-  end
-val spin_button :
-  ?adjustment:GData.adjustment ->
-  ?rate:float ->
-  ?digits:int ->
-  ?value:float ->
-  ?update_policy:[`ALWAYS|`IF_VALID] ->
-  ?numeric:bool ->
-  ?wrap:bool ->
-  ?shadow_type:Tags.shadow_type ->
-  ?snap_to_ticks:bool ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> spin_button
-
-class combo : Gtk.combo obj ->
-  object
-    inherit widget
-    val obj : Gtk.combo obj
-    method disable_activate : unit -> unit
-    method entry : entry
-    method list : GList.liste
-    method set_case_sensitive : bool -> unit
-    method set_item_string : GList.list_item -> string -> unit
-    method set_popdown_strings : string list -> unit
-    method set_use_arrows : [`NEVER|`DEFAULT|`ALWAYS] -> unit
-    method set_value_in_list :
-      ?required:bool -> ?ok_if_empty:bool -> unit -> unit
-  end
-val combo :
-  ?popdown_strings:string list ->
-  ?use_arrows:[`NEVER|`DEFAULT|`ALWAYS] ->
-  ?case_sensitive:bool ->
-  ?value_in_list:bool ->
-  ?ok_if_empty:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> combo
-
-class text : Gtk.text obj ->
-  object
-    inherit editable
-    val obj : Gtk.text obj
-    method event : event_ops
-    method freeze : unit -> unit
-    method hadjustment : GData.adjustment
-    method insert :
-      ?font:Gdk.font ->
-      ?foreground:GDraw.color -> ?background:GDraw.color -> string -> unit
-    method length : int
-    method point : int
-    method set_hadjustment : GData.adjustment -> unit
-    method set_point : int -> unit
-    method set_vadjustment : GData.adjustment -> unit
-    method set_word_wrap : bool -> unit
-    method set_line_wrap : bool -> unit
-    method thaw : unit -> unit
-    method vadjustment : GData.adjustment
-  end
-val text :
-  ?hadjustment:GData.adjustment ->
-  ?vadjustment:GData.adjustment ->
-  ?editable:bool ->
-  ?word_wrap:bool ->
-  ?line_wrap:bool ->
-  ?width:int ->
-  ?height:int -> ?packing:(widget -> unit) -> ?show:bool -> unit -> text

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gHtml.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gHtml.ml
deleted file mode 100644 (file)
index 1150790..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gHtml.ml
+++ /dev/null
@@ -1,33 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GObj
-open GtkXmHTML
-
-class xmhtml obj = object (self)
-  inherit widget_full (obj : GtkXmHTML.xmhtml obj)
-  method event = new GObj.event_ops obj
-  method freeze = freeze obj
-  method thaw = thaw obj
-  method source = source obj
-  method set_fonts = set_font_familty obj
-  method set_fonts_fixed = set_font_familty_fixed obj
-  method set_anchor_buttons = set_anchor_buttons obj
-  method set_anchor_cursor = set_anchor_cursor obj
-  method set_anchor_underline = set_anchor_underline_type obj
-  method set_anchor_visited_underline = set_anchor_visited_underline_type obj
-  method set_anchor_target_underline = set_anchor_target_underline_type obj
-  method set_topline = set_topline obj
-  method topline = get_topline obj
-  method set_strict_checking = set_strict_checking obj
-  method set_bad_html_warnings = set_bad_html_warnings obj
-  method set_imagemap_draw = set_imagemap_draw obj
-end
-
-let xmhtml ?source ?border_width ?width ?height ?packing ?show () =
-  let w = create () in
-  Container.set w ?border_width ?width ?height;
-  may source ~f:(GtkXmHTML.source w);
-  pack_return (new xmhtml w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gList.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gList.ml
deleted file mode 100644 (file)
index 3b1abe4..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gList.ml
+++ /dev/null
@@ -1,162 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkList
-open GObj
-open GContainer
-
-class list_item obj = object
-  inherit container (obj : Gtk.list_item obj)
-  method event = new GObj.event_ops obj
-  method as_item = obj
-  method select () = Item.select obj
-  method deselect () = Item.deselect obj
-  method toggle () = Item.toggle obj
-  method connect = new item_signals obj
-end
-
-let list_item ?label ?border_width ?width ?height ?packing ?(show=true) () =
-  let w = ListItem.create ?label () in
-  Container.set w ?border_width ?width ?height;
-  let item = new list_item w in
-  may packing ~f:(fun f -> (f item : unit));
-  if show then item#misc#show ();
-  item
-
-class liste obj = object
-  inherit [list_item] item_container (obj : Gtk.liste obj)
-  method private wrap w = new list_item (ListItem.cast w)
-  method insert w = Liste.insert_item obj w#as_item
-  method clear_items = Liste.clear_items obj
-  method select_item = Liste.select_item obj
-  method unselect_item = Liste.unselect_item obj
-  method child_position (w : list_item) = Liste.child_position obj w#as_item
-end
-
-let liste ?selection_mode ?border_width ?width ?height
-    ?packing ?show () =
-  let w = Liste.create () in
-  may selection_mode ~f:(Liste.set_selection_mode w);
-  Container.set w ?border_width ?width ?height;
-  pack_return (new liste w) ~packing ~show
-
-(* Cell lists *)
-
-class clist_signals obj = object
-  inherit container_signals obj
-  method click_column =
-    GtkSignal.connect ~sgn:CList.Signals.click_column obj ~after
-  method select_row =
-    GtkSignal.connect ~sgn:CList.Signals.select_row obj ~after
-  method unselect_row =
-    GtkSignal.connect ~sgn:CList.Signals.unselect_row obj ~after
-  method scroll_vertical =
-    GtkSignal.connect ~sgn:CList.Signals.scroll_vertical obj ~after
-  method scroll_horizontal =
-    GtkSignal.connect ~sgn:CList.Signals.scroll_horizontal obj ~after
-end
-
-class ['a] clist obj = object (self)
-  inherit widget (obj : Gtk.clist obj)
-  method set_border_width = Container.set_border_width obj
-  method event = new GObj.event_ops obj
-  method connect = new clist_signals obj
-  method rows = CList.get_rows obj
-  method columns = CList.get_columns obj
-  method focus_row = CList.get_focus_row obj
-  method hadjustment = new GData.adjustment (CList.get_hadjustment obj)
-  method vadjustment = new GData.adjustment (CList.get_vadjustment obj)
-  method set_button_actions = CList.set_button_actions obj
-  method freeze () = CList.freeze obj
-  method thaw () = CList.thaw obj
-  method column_title = CList.get_column_title obj
-  method column_widget col =
-    new widget (CList.get_column_widget obj col)
-  method columns_autosize () = CList.columns_autosize obj
-  method optimal_column_width = CList.optimal_column_width obj
-  method moveto ?(row_align=0.) ?(col_align=0.) row col =
-    CList.moveto obj row col ~row_align ~col_align
-  method row_is_visible = CList.row_is_visible obj
-  method cell_type = CList.get_cell_type obj
-  method cell_text = CList.get_text obj
-  method cell_pixmap row col =
-    let pm, mask = CList.get_pixmap obj row col in
-    may_map pm ~f:(fun x -> new GDraw.pixmap ?mask x)
-  method cell_style  row col =
-    try Some (new style (CList.get_cell_style obj row col))
-    with Gpointer.Null -> None
-  method row_selectable row = CList.get_selectable obj ~row
-  method row_style row =
-    try Some (new style (CList.get_row_style obj ~row))
-    with Gpointer.Null -> None
-  method set_shift = CList.set_shift obj
-  method insert ~row texts =
-    let texts = List.map texts ~f:(fun x -> Some x) in
-    CList.insert obj ~row texts
-  method append = self#insert ~row:self#rows
-  method prepend = self#insert ~row:0
-  method remove = CList.remove obj
-  method select = CList.select obj
-  method unselect = CList.unselect obj
-  method clear () = CList.clear obj
-  method get_row_column = CList.get_row_column obj
-  method select_all () = CList.select_all obj
-  method unselect_all () = CList.unselect_all obj
-  method swap_rows = CList.swap_rows obj
-  method row_move = CList.row_move obj
-  method sort () = CList.sort obj
-  method set_hadjustment adj =
-    CList.set_hadjustment obj (GData.as_adjustment adj)
-  method set_vadjustment adj =
-    CList.set_vadjustment obj (GData.as_adjustment adj)
-  method set_shadow_type = CList.set_shadow_type obj
-  method set_button_actions = CList.set_button_actions obj
-  method set_selection_mode = CList.set_selection_mode obj
-  method set_reorderable = CList.set_reorderable obj
-  method set_use_drag_icons = CList.set_use_drag_icons obj
-  method set_row_height = CList.set_row_height obj
-  method set_titles_show = CList.set_titles_show obj
-  method set_titles_active = CList.set_titles_active obj
-  method set_sort = CList.set_sort obj
-  method set_column ?widget =
-    CList.set_column obj ?widget:(may_map widget ~f:as_widget)
-  method set_row ?foreground ?background ?selectable ?style =
-    let color = may_map ~f:(fun c -> Gpointer.optboxed (GDraw.optcolor c))
-    and style = may_map ~f:(fun (st : style) -> st#as_style) style in
-    CList.set_row obj
-      ?foreground:(color foreground) ?background:(color background)
-      ?selectable ?style
-  method set_cell ?text ?pixmap ?spacing ?style =
-    let pixmap, mask =
-      match pixmap with None -> None, None
-      | Some (pm : GDraw.pixmap) -> Some pm#pixmap, pm#mask
-    and style = may_map ~f:(fun (st : style) -> st#as_style) style in
-    CList.set_cell obj ?text ?pixmap ?mask ?spacing ?style
-  method set_row_data n ~data =
-    CList.set_row_data obj ~row:n (Obj.repr (data : 'a))
-  method get_row_data n : 'a = Obj.obj (CList.get_row_data obj ~row:n)
-  method scroll_vertical =
-    CList.Signals.emit_scroll obj ~sgn:CList.Signals.scroll_vertical
-  method scroll_horizontal =
-    CList.Signals.emit_scroll obj ~sgn:CList.Signals.scroll_horizontal
-end
-
-let clist ?(columns=1) ?titles ?hadjustment ?vadjustment
-    ?shadow_type ?button_actions ?selection_mode
-    ?reorderable ?use_drag_icons ?row_height
-    ?titles_show ?titles_active ?auto_sort ?sort_column ?sort_type
-    ?border_width ?width ?height ?packing ?show () =
-  let w =
-    match titles with None -> CList.create ~cols:columns
-    | Some titles -> CList.create_with_titles (Array.of_list titles)
-  in
-  CList.set w 
-    ?hadjustment:(may_map ~f:GData.as_adjustment hadjustment)
-    ?vadjustment:(may_map ~f:GData.as_adjustment vadjustment)
-    ?shadow_type ?button_actions ?selection_mode ?reorderable
-    ?use_drag_icons ?row_height ?titles_show ?titles_active;
-  CList.set_sort w ?auto:auto_sort ?column:sort_column ?dir:sort_type ();
-  Container.set w ?border_width ?width ?height;
-  pack_return (new clist w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gList.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gList.mli
deleted file mode 100644 (file)
index 17f4cef..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gList.mli
+++ /dev/null
@@ -1,158 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GContainer
-
-class list_item : Gtk.list_item obj ->
-  object
-    inherit container
-    val obj : Gtk.list_item obj
-    method event : event_ops
-    method as_item : Gtk.list_item obj
-    method connect : item_signals
-    method deselect : unit -> unit
-    method select : unit -> unit
-    method toggle : unit -> unit
-  end
-val list_item :
-  ?label:string ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(list_item -> unit) -> ?show:bool -> unit -> list_item
-
-class liste : Gtk.liste obj ->
-  object
-    inherit [list_item] item_container
-    val obj : Gtk.liste obj
-    method child_position : list_item -> int
-    method clear_items : start:int -> stop:int -> unit
-    method insert : list_item -> pos:int -> unit
-    method select_item : pos:int -> unit
-    method unselect_item : pos:int -> unit
-    method private wrap : Gtk.widget obj -> list_item
-  end
-val liste :
-  ?selection_mode:Tags.selection_mode ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> liste
-
-class clist_signals : 'a obj ->
-  object
-    inherit container_signals
-    constraint 'a = [>`clist|`container|`widget]
-    val obj : 'a obj
-    method click_column : callback:(int -> unit) -> GtkSignal.id
-    method select_row :
-      callback:(row:int ->
-                column:int -> event:GdkEvent.Button.t option -> unit) ->
-      GtkSignal.id
-    method unselect_row :
-      callback:(row:int ->
-                column:int -> event:GdkEvent.Button.t option -> unit) ->
-      GtkSignal.id
-    method scroll_horizontal :
-      callback:(Tags.scroll_type -> pos:clampf -> unit) -> GtkSignal.id
-    method scroll_vertical :
-      callback:(Tags.scroll_type -> pos:clampf -> unit) -> GtkSignal.id
-  end
-
-class ['a] clist : Gtk.clist obj ->
-  object
-    inherit widget
-    val obj : Gtk.clist obj
-    method event : event_ops
-    method append : string list -> int
-    method cell_pixmap : int -> int -> GDraw.pixmap option
-    method cell_style : int -> int -> style option
-    method cell_text : int -> int -> string
-    method cell_type : int -> int -> Tags.cell_type
-    method clear : unit -> unit
-    method column_title : int -> string
-    method column_widget : int -> widget
-    method columns : int
-    method columns_autosize : unit -> unit
-    method connect : clist_signals
-    method focus_row : int
-    method freeze : unit -> unit
-    method get_row_column : x:int -> y:int -> int * int
-    method get_row_data : int -> 'a
-    method hadjustment : GData.adjustment
-    method insert : row:int -> string list -> int
-    method moveto :
-      ?row_align:clampf -> ?col_align:clampf -> int -> int -> unit
-    method optimal_column_width : int -> int
-    method prepend : string list -> int
-    method remove : row:int -> unit
-    method row_is_visible : int -> Tags.visibility
-    method row_move : int -> dst:int -> unit
-    method row_selectable : int -> bool
-    method row_style : int -> style option
-    method rows : int
-    method scroll_vertical : Tags.scroll_type -> pos:clampf -> unit
-    method scroll_horizontal : Tags.scroll_type -> pos:clampf -> unit
-    method select : int -> int -> unit
-    method select_all : unit -> unit
-    method set_border_width : int -> unit
-    method set_button_actions : int -> Tags.button_action list -> unit
-    method set_cell :
-      ?text:string ->
-      ?pixmap:GDraw.pixmap ->
-      ?spacing:int -> ?style:style -> int -> int -> unit
-    method set_column :
-      ?widget:widget ->
-      ?title:string ->
-      ?title_active:bool ->
-      ?justification:Tags.justification ->
-      ?visibility:bool ->
-      ?resizeable:bool ->
-      ?auto_resize:bool ->
-      ?width:int -> ?min_width:int -> ?max_width:int -> int -> unit
-    method set_hadjustment : GData.adjustment -> unit
-    method set_reorderable : bool -> unit
-    method set_row :
-      ?foreground:GDraw.optcolor ->
-      ?background:GDraw.optcolor ->
-      ?selectable:bool ->
-      ?style:style -> int -> unit
-    method set_row_data : int -> data:'a -> unit
-    method set_row_height : int -> unit
-    method set_selection_mode : Tags.selection_mode -> unit
-    method set_shadow_type : Tags.shadow_type -> unit
-    method set_shift : int -> int -> vertical:int -> horizontal:int -> unit
-    method set_sort :
-      ?auto:bool -> ?column:int -> ?dir:Tags.sort_type -> unit -> unit
-    method set_titles_active : bool -> unit
-    method set_titles_show : bool -> unit
-    method set_use_drag_icons : bool -> unit
-    method set_vadjustment : GData.adjustment -> unit
-    method sort : unit -> unit
-    method swap_rows : int -> int -> unit
-    method thaw : unit -> unit
-    method unselect : int -> int -> unit
-    method unselect_all : unit -> unit
-    method vadjustment : GData.adjustment
-  end
-val clist :
-  ?columns:int ->
-  ?titles:string list ->
-  ?hadjustment:GData.adjustment ->
-  ?vadjustment:GData.adjustment ->
-  ?shadow_type:Tags.shadow_type ->
-  ?button_actions:(int * Tags.button_action list) list ->
-  ?selection_mode:Tags.selection_mode ->
-  ?reorderable:bool ->
-  ?use_drag_icons:bool ->
-  ?row_height:int ->
-  ?titles_show:bool ->
-  ?titles_active:bool ->
-  ?auto_sort:bool ->
-  ?sort_column:int ->
-  ?sort_type:Tags.sort_type ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> 'a clist

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gMain.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gMain.ml
deleted file mode 100644 (file)
index 811f490..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gMain.ml
+++ /dev/null
@@ -1,26 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GtkMain
-open GObj
-
-module Main : sig
-  val init : unit -> string (* returns the locale name *)
-  val main : unit -> unit
-  val quit : unit -> unit
-  val version : int * int * int
-  val flush : unit -> unit
-end = Main
-
-module Grab = struct
-  open Grab
-  let add (w : #widget) = add w#as_widget
-  let remove (w : #widget) = remove w#as_widget
-  let get_current () = new widget (get_current ())
-end
-
-module Timeout : sig
-  type id
-  val add : ms:int -> callback:(unit -> bool) -> id
-  val remove : id -> unit
-end = Timeout

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gMenu.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gMenu.ml
deleted file mode 100644 (file)
index 52f05a4..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gMenu.ml
+++ /dev/null
@@ -1,199 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkData
-open GtkBase
-open GtkMenu
-open GObj
-open GContainer
-
-(* Menu type *)
-
-class menu_shell_signals obj = object
-  inherit container_signals obj
-  method deactivate =
-    GtkSignal.connect ~sgn:MenuShell.Signals.deactivate obj ~after
-end
-
-class type virtual ['a] pre_menu = object
-  inherit ['a] item_container
-  method as_menu : Gtk.menu Gtk.obj
-  method deactivate : unit -> unit
-  method connect : menu_shell_signals
-  method event : event_ops
-  method popup : button:int -> time:int -> unit
-  method popdown : unit -> unit
-  method set_accel_group : accel_group -> unit
-end
-
-(* Menu items *)
-
-class menu_item_signals obj = object
-  inherit item_signals obj
-  method activate = GtkSignal.connect ~sgn:MenuItem.Signals.activate obj
-end
-
-
-class ['a] pre_menu_item_skel obj = object
-  inherit container obj
-  method as_item = MenuItem.coerce obj
-  method set_submenu (w : 'a pre_menu) = MenuItem.set_submenu obj w#as_menu
-  method remove_submenu () = MenuItem.remove_submenu obj
-  method configure = MenuItem.configure obj
-  method activate () = MenuItem.activate obj
-  method right_justify () = MenuItem.right_justify obj
-  method add_accelerator ~group ?modi:m ?flags key=
-    Widget.add_accelerator obj ~sgn:MenuItem.Signals.activate group ?flags
-      ?modi:m ~key
-end
-
-class menu_item obj = object
-  inherit [menu_item] pre_menu_item_skel obj
-  method connect = new menu_item_signals obj
-  method event = new GObj.event_ops obj
-end
-
-class menu_item_skel = [menu_item] pre_menu_item_skel
-
-let pack_item self ~packing ~show =
-  may packing ~f:(fun f -> (f (self :> menu_item) : unit));
-  if show <> Some false then self#misc#show ();
-  self
-
-let menu_item ?label ?border_width ?width ?height ?packing ?show () =
-  let w = MenuItem.create ?label () in
-  Container.set w ?border_width ?width ?height;
-  pack_item (new menu_item w) ?packing ?show
-
-let tearoff_item ?border_width ?width ?height ?packing ?show () =
-  let w = MenuItem.tearoff_create () in
-  Container.set w ?border_width ?width ?height;
-  pack_item (new menu_item w) ?packing ?show
-
-class check_menu_item_signals obj = object
-  inherit menu_item_signals obj
-  method toggled =
-    GtkSignal.connect ~sgn:CheckMenuItem.Signals.toggled obj ~after
-end
-
-class check_menu_item obj = object
-  inherit menu_item_skel obj
-  method set_active = CheckMenuItem.set_active obj
-  method set_show_toggle = CheckMenuItem.set_show_toggle obj
-  method active = CheckMenuItem.get_active obj
-  method toggled () = CheckMenuItem.toggled obj
-  method connect = new check_menu_item_signals obj
-  method event = new GObj.event_ops obj
-end
-
-let check_menu_item ?label ?active ?show_toggle
-    ?border_width ?width ?height ?packing ?show () =
-  let w = CheckMenuItem.create ?label () in
-  CheckMenuItem.set w ?active ?show_toggle;
-  Container.set w ?border_width ?width ?height;
-  pack_item (new check_menu_item w) ?packing ?show
-
-class radio_menu_item obj = object
-  inherit check_menu_item (obj : Gtk.radio_menu_item obj)
-  method group = Some obj
-  method set_group = RadioMenuItem.set_group obj
-end
-
-let radio_menu_item ?group ?label ?active ?show_toggle
-    ?border_width ?width ?height ?packing ?show () =
-  let w = RadioMenuItem.create ?group ?label () in
-  CheckMenuItem.set w ?active ?show_toggle;
-  Container.set w ?border_width ?width ?height;
-  pack_item (new radio_menu_item w) ?packing ?show
-
-(* Menus *)
-
-class menu_shell obj = object
-  inherit [menu_item] item_container obj
-  method private wrap w = new menu_item (MenuItem.cast w)
-  method insert w = MenuShell.insert obj w#as_item
-  method deactivate () = MenuShell.deactivate obj
-  method connect = new menu_shell_signals obj
-  method event = new GObj.event_ops obj
-end
-
-class menu obj = object
-  inherit menu_shell obj
-  method popup = Menu.popup obj
-  method popdown () = Menu.popdown obj
-  method as_menu : Gtk.menu obj = obj
-  method set_accel_group = Menu.set_accel_group obj
-end
-
-let menu ?border_width ?packing ?show () =
-  let w = Menu.create () in
-  may border_width ~f:(Container.set_border_width w);
-  let self = new menu w in
-  may packing ~f:(fun f -> (f (self :> menu) : unit));
-  if show <> Some false then self#misc#show ();
-  self
-
-(* Option Menu (GtkButton?) *)
-
-class option_menu obj = object
-  inherit GButton.button_skel obj
-  method connect = new GButton.button_signals obj
-  method event = new GObj.event_ops obj
-  method set_menu (menu : menu) = OptionMenu.set_menu obj menu#as_menu
-  method get_menu = new menu (OptionMenu.get_menu obj)
-  method remove_menu () = OptionMenu.remove_menu obj
-  method set_history = OptionMenu.set_history obj
-end
-
-let option_menu ?border_width ?width ?height ?packing ?show () =
-  let w = OptionMenu.create () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new option_menu w) ~packing ~show
-
-(* Menu Bar *)
-
-let menu_bar ?border_width ?width ?height ?packing ?show () =
-  let w = MenuBar.create () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new menu_shell w) ~packing ~show
-
-(* Menu Factory *)
-
-class ['a] factory
-    ?(accel_group=AccelGroup.create ())
-    ?(accel_modi=[`CONTROL])
-    ?(accel_flags=[`VISIBLE]) (menu_shell : 'a) =
-  object (self)
-    val menu_shell : #menu_shell = menu_shell
-    val group = accel_group
-    val m = accel_modi
-    val flags = accel_flags
-    method menu = menu_shell
-    method accel_group = group
-    method private bind ?key ?callback (item : menu_item) =
-      menu_shell#append item;
-      may key ~f:(item#add_accelerator ~group ~modi:m ~flags);
-      may callback ~f:(fun callback -> item#connect#activate ~callback)
-    method add_item ?key ?callback ?submenu label =
-      let item = menu_item ~label () in
-      self#bind item ?key ?callback;
-      may (submenu : menu option) ~f:item#set_submenu;
-      item
-    method add_check_item ?active ?key ?callback label =
-      let item = check_menu_item ~label ?active () in
-      self#bind (item :> menu_item) ?key
-       ?callback:(may_map callback ~f:(fun f () -> f item#active));
-      item
-    method add_radio_item ?group ?active ?key ?callback label =
-      let item = radio_menu_item ~label ?group ?active () in
-      self#bind (item :> menu_item) ?key
-       ?callback:(may_map callback ~f:(fun f () -> f item#active));
-      item
-    method add_separator () = menu_item ~packing:menu_shell#append ()
-    method add_submenu ?key label =
-      let item = menu_item ~label () in
-      self#bind item ?key;
-      menu ~packing:item#set_submenu ();
-    method add_tearoff () = tearoff_item ~packing:menu_shell#append ()
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gMenu.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gMenu.mli
deleted file mode 100644 (file)
index 505249b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gMenu.mli
+++ /dev/null
@@ -1,196 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GContainer
-
-class menu_shell_signals : 'b obj ->
-  object ('a)
-    inherit container_signals
-    constraint 'b = [>`menushell|`container|`widget]
-    val obj : 'b obj
-    method deactivate : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class menu_item_signals : 'b obj ->
-  object ('a)
-    inherit item_signals
-    constraint 'b = [>`menuitem|`container|`item|`widget]
-    val obj : 'b obj
-    method activate : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class menu_item_skel :
-  'a obj ->
-  object
-    inherit container
-    constraint 'a = [>`widget|`container|`menuitem]
-    val obj : 'a obj
-    method activate : unit -> unit
-    method add_accelerator :
-      group:accel_group ->
-      ?modi:Gdk.Tags.modifier list ->
-      ?flags:Tags.accel_flag list -> Gdk.keysym -> unit
-    method as_item : Gtk.menu_item obj
-    method configure : show_toggle:bool -> show_indicator:bool -> unit
-    method remove_submenu : unit -> unit
-    method right_justify : unit -> unit
-    method set_submenu : menu -> unit
-  end
-and menu_item : 'a obj ->
-  object
-    inherit menu_item_skel
-    constraint 'a = [>`widget|`container|`item|`menuitem]
-    val obj : 'a obj
-    method event : event_ops
-    method connect : menu_item_signals
-  end
-and menu : Gtk.menu obj ->
-  object
-    inherit [menu_item] item_container
-    val obj : Gtk.menu obj
-    method add : menu_item -> unit
-    method event : event_ops
-    method append : menu_item -> unit
-    method as_menu : Gtk.menu obj
-    method children : menu_item list
-    method connect : menu_shell_signals
-    method deactivate : unit -> unit
-    method insert : menu_item -> pos:int -> unit
-    method popdown : unit -> unit
-    method popup : button:int -> time:int -> unit
-    method prepend : menu_item -> unit
-    method remove : menu_item -> unit
-    method set_accel_group : accel_group -> unit
-    method set_border_width : int -> unit
-    method private wrap : Gtk.widget obj -> menu_item
-  end
-
-val menu :
-  ?border_width:int -> ?packing:(menu -> unit) -> ?show:bool -> unit -> menu
-val menu_item :
-  ?label:string ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(menu_item -> unit) -> ?show:bool -> unit -> menu_item
-val tearoff_item :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(menu_item -> unit) -> ?show:bool -> unit -> menu_item
-
-class check_menu_item_signals : 'a obj ->
-  object
-    inherit menu_item_signals
-    constraint 'a = [>`checkmenuitem|`container|`item|`menuitem|`widget]
-    val obj : 'a obj
-    method toggled : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class check_menu_item : 'a obj ->
-  object
-    inherit menu_item_skel
-    constraint 'a = [>`widget|`checkmenuitem|`container|`item|`menuitem]
-    val obj : 'a obj
-    method active : bool
-    method event : event_ops
-    method connect : check_menu_item_signals
-    method set_active : bool -> unit
-    method set_show_toggle : bool -> unit
-    method toggled : unit -> unit
-  end
-val check_menu_item :
-  ?label:string ->
-  ?active:bool ->
-  ?show_toggle:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(menu_item -> unit) -> ?show:bool -> unit -> check_menu_item
-
-class radio_menu_item : Gtk.radio_menu_item obj ->
-  object
-    inherit check_menu_item
-    val obj : Gtk.radio_menu_item obj
-    method group : Gtk.radio_menu_item group
-    method set_group : Gtk.radio_menu_item group -> unit
-  end
-val radio_menu_item :
-  ?group:Gtk.radio_menu_item group ->
-  ?label:string ->
-  ?active:bool ->
-  ?show_toggle:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(menu_item -> unit) -> ?show:bool -> unit -> radio_menu_item
-
-class menu_shell : 'a obj ->
-  object
-    inherit [menu_item] item_container
-    constraint 'a = [>`widget|`container|`menushell]
-    val obj : 'a obj
-    method event : event_ops
-    method deactivate : unit -> unit
-    method connect : menu_shell_signals
-    method insert : menu_item -> pos:int -> unit
-    method private wrap : Gtk.widget obj -> menu_item
-  end
-
-val menu_bar :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(GObj.widget -> unit) -> ?show:bool -> unit -> menu_shell
-
-class option_menu : 'a obj ->
-  object
-    inherit GButton.button_skel
-    constraint 'a = [>`optionmenu|`button|`container|`widget]
-    val obj : 'a obj
-    method event : event_ops
-    method connect : GButton.button_signals
-    method get_menu : menu
-    method remove_menu : unit -> unit
-    method set_history : int -> unit
-    method set_menu : menu -> unit
-  end
-val option_menu :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(GObj.widget -> unit) -> ?show:bool -> unit -> option_menu
-
-class ['a] factory :
-  ?accel_group:accel_group ->
-  ?accel_modi:Gdk.Tags.modifier list ->
-  ?accel_flags:Tags.accel_flag list ->
-  'a ->
-  object
-    constraint 'a = #menu_shell
-    val flags : Tags.accel_flag list
-    val group : accel_group
-    val m : Gdk.Tags.modifier list
-    val menu_shell : 'a
-    method accel_group : accel_group
-    method add_check_item :
-      ?active:bool ->
-      ?key:Gdk.keysym ->
-      ?callback:(bool -> unit) -> string -> check_menu_item
-    method add_item :
-      ?key:Gdk.keysym ->
-      ?callback:(unit -> unit) ->
-      ?submenu:menu -> string -> menu_item
-    method add_radio_item :
-      ?group:Gtk.radio_menu_item group ->
-      ?active:bool ->
-      ?key:Gdk.keysym ->
-      ?callback:(bool -> unit) -> string -> radio_menu_item
-    method add_separator : unit -> menu_item
-    method add_submenu : ?key:Gdk.keysym -> string -> menu
-    method add_tearoff : unit -> menu_item
-    method private bind :
-      ?key:Gdk.keysym -> ?callback:(unit -> unit) -> menu_item -> unit
-    method menu : 'a
-  end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gMisc.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gMisc.ml
deleted file mode 100644 (file)
index 13fd7b4..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gMisc.ml
+++ /dev/null
@@ -1,217 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkMisc
-open GObj
-
-let separator dir ?(width = -2) ?(height = -2) ?packing ?show () =
-  let w = Separator.create dir in
-  if width <> -2 || height <> -2 then Widget.set_usize w ~width ~height;
-  pack_return (new widget_full w) ~packing ~show
-
-class statusbar_context obj ctx = object (self)
-  val obj : statusbar obj = obj
-  val context : Gtk.statusbar_context = ctx
-  method context = context
-  method push text = Statusbar.push obj context ~text
-  method pop () = Statusbar.pop obj context
-  method remove = Statusbar.remove obj context
-  method flash ?(delay=1000) text =
-    let msg = self#push text in
-    GtkMain.Timeout.add ~ms:delay ~callback:(fun () -> self#remove msg; false);
-    ()
-end
-
-class statusbar obj = object
-  inherit GContainer.container_full (obj : Gtk.statusbar obj)
-  method new_context ~name =
-    new statusbar_context obj (Statusbar.get_context obj name)
-end
-
-let statusbar ?border_width ?width ?height ?packing ?show () =
-  let w = Statusbar.create () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new statusbar w) ~packing ~show
-
-class calendar_signals obj = object
-  inherit widget_signals obj
-  method month_changed =
-    GtkSignal.connect obj ~sgn:Calendar.Signals.month_changed ~after
-  method day_selected =
-    GtkSignal.connect obj ~sgn:Calendar.Signals.day_selected ~after
-  method day_selected_double_click =
-    GtkSignal.connect obj
-      ~sgn:Calendar.Signals.day_selected_double_click ~after
-  method prev_month =
-    GtkSignal.connect obj ~sgn:Calendar.Signals.prev_month ~after
-  method next_month =
-    GtkSignal.connect obj ~sgn:Calendar.Signals.next_month ~after
-  method prev_year =
-    GtkSignal.connect obj ~sgn:Calendar.Signals.prev_year ~after
-  method next_year =
-    GtkSignal.connect obj ~sgn:Calendar.Signals.next_year ~after
-end
-
-class calendar obj = object
-  inherit widget (obj : Gtk.calendar obj)
-  method event = new GObj.event_ops obj
-  method connect = new calendar_signals obj
-  method select_month = Calendar.select_month obj
-  method select_day = Calendar.select_day obj
-  method mark_day = Calendar.mark_day obj
-  method unmark_day = Calendar.unmark_day obj
-  method clear_marks = Calendar.clear_marks obj
-  method display_options = Calendar.display_options obj
-  method date = Calendar.get_date obj
-  method freeze () = Calendar.freeze obj
-  method thaw () = Calendar.thaw obj
-end
-
-let calendar ?options ?(width = -2) ?(height = -2) ?packing ?show () =
-  let w = Calendar.create () in
-  if width <> -2 || height <> -2 then Widget.set_usize w ~width ~height;
-  may options ~f:(Calendar.display_options w);
-  pack_return (new calendar w) ~packing ~show
-
-class drawing_area obj = object
-  inherit widget_full (obj : Gtk.drawing_area obj)
-  method event = new GObj.event_ops obj
-  method set_size = DrawingArea.size obj
-end
-
-let drawing_area ?(width=0) ?(height=0) ?packing ?show () =
-  let w = DrawingArea.create () in
-  if width <> 0 || height <> 0 then DrawingArea.size w ~width ~height;
-  pack_return (new drawing_area w) ~packing ~show
-
-class misc obj = object
-  inherit widget obj
-  method set_alignment = Misc.set_alignment obj
-  method set_padding = Misc.set_padding obj
-end
-
-class arrow obj = object
-  inherit misc obj
-  method set_arrow kind ~shadow = Arrow.set obj ~kind ~shadow
-end
-
-let arrow ~kind ~shadow
-    ?xalign ?yalign ?xpad ?ypad ?width ?height ?packing ?show () =
-  let w = Arrow.create ~kind ~shadow in
-  Misc.set w ?xalign ?yalign ?xpad ?ypad ?width ?height;
-  pack_return (new arrow w) ~packing ~show
-
-class image obj = object
-  inherit misc obj
-  method set_image ?mask image = Image.set obj image ?mask
-end
-
-let image image ?mask
-    ?xalign ?yalign ?xpad ?ypad ?width ?height ?packing ?show () =
-  let w = Image.create image ?mask in
-  Misc.set w ?xalign ?yalign ?xpad ?ypad ?width ?height;
-  pack_return (new image w) ~packing ~show
-
-class label_skel obj = object
-  inherit misc obj
-  method set_text = Label.set_text obj
-  method set_justify = Label.set_justify obj
-  method set_pattern = Label.set_pattern obj
-  method set_line_wrap = Label.set_line_wrap obj
-  method text = Label.get_text obj
-end
-
-class label obj = object
-  inherit label_skel (Label.coerce obj)
-  method connect = new widget_signals obj
-end
-
-let label ?(text="") ?justify ?line_wrap ?pattern
-    ?xalign ?yalign ?xpad ?ypad ?width ?height ?packing ?show () =
-  let w = Label.create text in
-  Label.set w ?justify ?line_wrap ?pattern;
-  Misc.set w ?xalign ?yalign ?xpad ?ypad ?width ?height;
-  pack_return (new label w) ~packing ~show
-
-let label_cast w = new label (Label.cast w#as_widget)
-
-class tips_query_signals obj = object
-  inherit widget_signals obj
-  method widget_entered ~callback = 
-    GtkSignal.connect ~sgn:TipsQuery.Signals.widget_entered obj ~after
-      ~callback:(function None -> callback None
-       | Some w -> callback (Some (new widget w)))
-  method widget_selected ~callback = 
-    GtkSignal.connect ~sgn:TipsQuery.Signals.widget_selected obj ~after
-      ~callback:(function None -> callback None
-       | Some w -> callback (Some (new widget w)))
-end
-
-class tips_query obj = object
-  inherit label_skel (obj : Gtk.tips_query obj)
-  method start () = TipsQuery.start obj
-  method stop () = TipsQuery.stop obj
-  method set_caller (w : widget) = TipsQuery.set_caller obj w#as_widget
-  method set_emit_always = TipsQuery.set_emit_always obj
-  method set_label_inactive inactive = TipsQuery.set_labels obj ~inactive
-  method set_label_no_tip no_tip = TipsQuery.set_labels obj ~no_tip
-  method connect = new tips_query_signals obj
-end
-
-let tips_query ?caller ?emit_always ?label_inactive ?label_no_tip
-    ?xalign ?yalign ?xpad ?ypad ?width ?height ?packing ?show () =
-  let w = TipsQuery.create () in
-  let caller = may_map caller ~f:(fun (w : #widget) -> w#as_widget) in
-  TipsQuery.set w ?caller ?emit_always ?label_inactive ?label_no_tip;
-  Misc.set w ?xalign ?yalign ?xpad ?ypad ?width ?height;
-  pack_return (new tips_query w) ~packing ~show
-
-class color_selection obj = object
-  inherit GObj.widget_full (obj : Gtk.color_selection obj)
-  method set_update_policy = ColorSelection.set_update_policy obj
-  method set_opacity = ColorSelection.set_opacity obj
-  method set_color ~red ~green ~blue ?opacity () =
-    ColorSelection.set_color obj ~red ~green ~blue ?opacity
-  method get_color = ColorSelection.get_color obj
-end
-
-let color_selection ?border_width ?width ?height ?packing ?show () =
-  let w = ColorSelection.create () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new color_selection w) ~packing ~show
-
-class pixmap obj = object
-  inherit misc (obj : Gtk.pixmap obj)
-  method connect = new widget_signals obj
-  method set_pixmap (pm : GDraw.pixmap) =
-    Pixmap.set obj ~pixmap:pm#pixmap ?mask:pm#mask
-  method pixmap =
-    new GDraw.pixmap (Pixmap.pixmap obj)
-      ?mask:(try Some(Pixmap.mask obj) with Gpointer.Null -> None)
-end
-
-let pixmap (pm : #GDraw.pixmap) ?xalign ?yalign ?xpad ?ypad
-    ?(width = -2) ?(height = -2) ?packing ?show () =
-  let w = Pixmap.create pm#pixmap ?mask:pm#mask in
-  Misc.set w ?xalign ?yalign ?xpad ?ypad;
-  if width <> -2 || height <> -2 then Widget.set_usize w ~width ~height;
-  pack_return (new pixmap w) ~packing ~show
-
-class font_selection obj = object
-  inherit widget_full (obj : Gtk.font_selection obj)
-  method notebook = new GPack.notebook obj
-  method event = new event_ops obj
-  method font = FontSelection.get_font obj
-  method font_name = FontSelection.get_font_name obj
-  method set_font_name = FontSelection.set_font_name obj
-  method preview_text = FontSelection.get_preview_text obj
-  method set_preview_text = FontSelection.set_preview_text obj
-  method set_filter = FontSelection.set_filter obj
-end
-
-let font_selection ?border_width ?width ?height ?packing ?show () =
-  let w = FontSelection.create () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new font_selection w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gMisc.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gMisc.mli
deleted file mode 100644 (file)
index 7008369..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gMisc.mli
+++ /dev/null
@@ -1,263 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GContainer
-
-val separator :
-  Tags.orientation ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> widget_full
-
-class statusbar_context :
-  Gtk.statusbar obj -> Gtk.statusbar_context ->
-  object
-    val context : Gtk.statusbar_context
-    val obj : Gtk.statusbar obj
-    method context : Gtk.statusbar_context
-    method flash : ?delay:int -> string -> unit
-    method pop : unit -> unit
-    method push : string -> statusbar_message
-    method remove : statusbar_message -> unit
-  end
-
-class statusbar : Gtk.statusbar obj ->
-  object
-    inherit container_full
-    val obj : Gtk.statusbar obj
-    method new_context : name:string -> statusbar_context
-  end
-val statusbar :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> statusbar
-
-class calendar_signals : 'a obj ->
-  object
-    inherit widget_signals
-    constraint 'a = [>`calendar|`widget]
-    val obj : 'a obj
-    method day_selected : callback:(unit -> unit) -> GtkSignal.id
-    method day_selected_double_click :
-      callback:(unit -> unit) -> GtkSignal.id
-    method month_changed : callback:(unit -> unit) -> GtkSignal.id
-    method next_month : callback:(unit -> unit) -> GtkSignal.id
-    method next_year : callback:(unit -> unit) -> GtkSignal.id
-    method prev_month : callback:(unit -> unit) -> GtkSignal.id
-    method prev_year : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class calendar : Gtk.calendar obj ->
-  object
-    inherit widget
-    val obj : Gtk.calendar obj
-    method event : event_ops
-    method clear_marks : unit
-    method connect : calendar_signals
-    method date : int * int * int
-    method display_options : Tags.calendar_display_options list -> unit
-    method freeze : unit -> unit
-    method mark_day : int -> unit
-    method select_day : int -> unit
-    method select_month : month:int -> year:int -> unit
-    method thaw : unit -> unit
-    method unmark_day : int -> unit
-  end
-val calendar :
-  ?options:Tags.calendar_display_options list ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> calendar
-
-class drawing_area : Gtk.drawing_area obj ->
-  object
-    inherit widget_full
-    val obj : Gtk.drawing_area obj
-    method event : event_ops
-    method set_size : width:int -> height:int -> unit
-  end
-val drawing_area :
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> drawing_area
-
-class misc : 'a obj ->
-  object
-    inherit widget
-    constraint 'a = [>`misc|`widget]
-    val obj : 'a obj
-    method set_alignment : ?x:float -> ?y:float -> unit -> unit
-    method set_padding : ?x:int -> ?y:int -> unit -> unit
-  end
-
-class arrow : 'a obj ->
-  object
-    inherit misc
-    constraint 'a = [>`arrow|`misc|`widget]
-    val obj : 'a obj
-    method set_arrow : Tags.arrow_type -> shadow:Tags.shadow_type -> unit
-  end
-
-val arrow :
-  kind:Tags.arrow_type ->
-  shadow:Tags.shadow_type ->
-  ?xalign:float ->
-  ?yalign:float ->
-  ?xpad:int ->
-  ?ypad:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> arrow
-
-class image : 'a obj ->
-  object
-    inherit misc
-    constraint 'a = [>`image|`misc|`widget]
-    val obj : 'a obj
-    method set_image : ?mask:Gdk.bitmap -> Gdk.image -> unit
-  end
-
-val image :
-  Gdk.image ->
-  ?mask:Gdk.bitmap ->
-  ?xalign:float ->
-  ?yalign:float ->
-  ?xpad:int ->
-  ?ypad:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> image
-
-class label_skel : 'a obj ->
-  object
-    inherit misc
-    constraint 'a = [>`label|`misc|`widget]
-    val obj : 'a obj
-    method set_justify : Tags.justification -> unit
-    method set_line_wrap : bool -> unit
-    method set_pattern : string -> unit
-    method set_text : string -> unit
-    method text : string
-  end
-
-class label : [>`label] obj ->
-  object
-    inherit label_skel
-    val obj : Gtk.label obj
-    method connect : widget_signals
-  end
-val label :
-  ?text:string ->
-  ?justify:Tags.justification ->
-  ?line_wrap:bool ->
-  ?pattern:string ->
-  ?xalign:float ->
-  ?yalign:float ->
-  ?xpad:int ->
-  ?ypad:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> label
-val label_cast : < as_widget : 'a obj ; .. > -> label
-
-class tips_query_signals : 'a obj ->
-  object
-    inherit widget_signals
-    constraint 'a = [>`tipsquery|`widget]
-    val obj : 'a obj
-    method widget_entered :
-      callback:(widget option ->
-                text:string option -> privat:string option -> unit) ->
-      GtkSignal.id
-    method widget_selected :
-      callback:(widget option -> text:string option ->
-                privat:string option -> GdkEvent.Button.t option -> bool) ->
-      GtkSignal.id
-  end
-
-class tips_query : Gtk.tips_query obj ->
-  object
-    inherit label_skel
-    val obj : Gtk.tips_query obj
-    method connect : tips_query_signals
-    method set_caller : widget -> unit
-    method set_emit_always : bool -> unit
-    method set_label_inactive : string -> unit
-    method set_label_no_tip : string -> unit
-    method start : unit -> unit
-    method stop : unit -> unit
-  end
-val tips_query :
-  ?caller:#widget ->
-  ?emit_always:bool ->
-  ?label_inactive:string ->
-  ?label_no_tip:string ->
-  ?xalign:float ->
-  ?yalign:float ->
-  ?xpad:int ->
-  ?ypad:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> tips_query
-
-class pixmap : Gtk.pixmap Gtk.obj ->
-  object
-    inherit misc
-    val obj : Gtk.pixmap Gtk.obj
-    method connect : GObj.widget_signals
-    method pixmap : GDraw.pixmap
-    method set_pixmap : GDraw.pixmap -> unit
-  end
-val pixmap :
-  #GDraw.pixmap ->
-  ?xalign:float ->
-  ?yalign:float ->
-  ?xpad:int ->
-  ?ypad:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> pixmap
-
-class color_selection : Gtk.color_selection obj ->
-  object
-    inherit widget_full
-    val obj : Gtk.color_selection obj
-    method get_color : Gtk.color
-    method set_color :
-      red:float -> green:float -> blue:float -> ?opacity:float -> unit -> unit
-    method set_opacity : bool -> unit
-    method set_update_policy : Tags.update_type -> unit
-  end
-val color_selection :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> color_selection
-
-class font_selection : Gtk.font_selection obj ->
-  object
-    inherit widget_full
-    val obj : Gtk.font_selection obj
-    method event : event_ops
-    method notebook : GPack.notebook
-    method font : Gdk.font option
-    method font_name : string option
-    method preview_text : string
-    method set_filter :
-      ?kind:Tags.font_type list ->
-      ?foundry:string list ->
-      ?weight:string list ->
-      ?slant:string list ->
-      ?setwidth:string list ->
-      ?spacing:string list ->
-      ?charset:string list -> Tags.font_filter_type -> unit
-    method set_font_name : string -> unit
-    method set_preview_text : string -> unit
-  end
-val font_selection :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> font_selection

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gObj.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gObj.ml
deleted file mode 100644 (file)
index 5c4819f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gObj.ml
+++ /dev/null
@@ -1,292 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkData
-open GtkBase
-
-(* Object *)
-
-class gtkobj obj = object
-  val obj = obj
-  method destroy () = Object.destroy obj
-  method get_id = Object.get_id obj
-end
-
-class gtkobj_misc obj = object
-  val obj = obj
-  method get_type = Type.name (Object.get_type obj)
-  method disconnect = GtkSignal.disconnect obj
-  method handler_block = GtkSignal.handler_block obj
-  method handler_unblock = GtkSignal.handler_unblock obj
-end
-
-class gtkobj_signals ?(after=false) obj = object
-  val obj = obj
-  val after = after
-  method after = {< after = true >}
-  method destroy = GtkSignal.connect ~sgn:Object.Signals.destroy obj
-end
-
-(* Widget *)
-
-class event_signals ?(after=false) obj = object
-  val obj = Widget.coerce obj
-  val after = after
-  method after = {< after = true >}
-  method any = GtkSignal.connect ~sgn:Widget.Signals.Event.any ~after obj
-  method button_press =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.button_press ~after obj
-  method button_release =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.button_release ~after obj
-  method configure =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.configure ~after obj
-  method delete =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.delete ~after obj
-  method destroy =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.destroy ~after obj
-  method enter_notify =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.enter_notify ~after obj
-  method expose =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.expose ~after obj
-  method focus_in =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.focus_in ~after obj
-  method focus_out =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.focus_out ~after obj
-  method key_press =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.key_press ~after obj
-  method key_release =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.key_release ~after obj
-  method leave_notify =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.leave_notify ~after obj
-  method map = GtkSignal.connect ~sgn:Widget.Signals.Event.map ~after obj
-  method motion_notify =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.motion_notify ~after obj
-  method property_notify =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.property_notify ~after obj
-  method proximity_in =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.proximity_in ~after obj
-  method proximity_out =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.proximity_out ~after obj
-  method selection_clear =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.selection_clear ~after obj
-  method selection_notify =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.selection_notify ~after obj
-  method selection_request =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.selection_request ~after obj
-  method unmap = GtkSignal.connect ~sgn:Widget.Signals.Event.unmap ~after obj
-end
-
-class event_ops obj = object
-  val obj = Widget.coerce obj
-  method add = Widget.add_events obj
-  method connect = new event_signals obj
-  method send : Gdk.Tags.event_type Gdk.event -> bool = Widget.event obj
-  method set_extensions = Widget.set_extension_events obj
-end
-
-class style st = object
-  val style = st
-  method as_style = style
-  method copy = {< style = Style.copy style >}
-  method bg state = Style.get_bg style ~state
-  method colormap = Style.get_colormap style
-  method font = Style.get_font style
-  method set_bg =
-    List.iter ~f:
-      (fun (state,c) -> Style.set_bg style ~state ~color:(GDraw.color c))
-  method set_font = Style.set_font style
-  method set_background = Style.set_background style
-end
-
-class selection_data (sel : Selection.t) = object
-  val sel = sel
-  method selection = Selection.selection sel
-  method target = Selection.target sel
-  method seltype = Selection.seltype sel
-  method format = Selection.format sel
-  method data = Selection.get_data sel
-  method set = Selection.set sel
-end
-
-class drag_signals ?(after=false) obj = object
-  val obj =  Widget.coerce obj
-  val after = after
-  method after = {< after = true >}
-  method beginning ~callback =
-    GtkSignal.connect ~sgn:Widget.Signals.drag_begin ~after obj
-      ~callback:(fun context -> callback (new drag_context context))
-  method ending ~callback =
-    GtkSignal.connect ~sgn:Widget.Signals.drag_end ~after obj
-      ~callback:(fun context -> callback (new drag_context context))
-  method data_delete ~callback =
-    GtkSignal.connect ~sgn:Widget.Signals.drag_data_delete ~after obj
-      ~callback:(fun context -> callback (new drag_context context))
-  method leave ~callback =
-    GtkSignal.connect ~sgn:Widget.Signals.drag_leave ~after obj
-      ~callback:(fun context -> callback (new drag_context context))
-  method motion ~callback =
-    GtkSignal.connect ~sgn:Widget.Signals.drag_motion ~after obj
-      ~callback:(fun context -> callback (new drag_context context))
-  method drop ~callback =
-    GtkSignal.connect ~sgn:Widget.Signals.drag_drop ~after obj
-      ~callback:(fun context -> callback (new drag_context context))
-  method data_get ~callback =
-    GtkSignal.connect ~sgn:Widget.Signals.drag_data_get ~after obj
-      ~callback:(fun context data -> callback (new drag_context context)
-              (new selection_data data))
-  method data_received ~callback =
-    GtkSignal.connect ~sgn:Widget.Signals.drag_data_received ~after obj
-      ~callback:(fun context ~x ~y data -> callback (new drag_context context)
-              ~x ~y (new selection_data data))
-
-end
-
-and drag_ops obj = object
-  val obj = Widget.coerce obj
-  method connect = new drag_signals obj
-  method dest_set ?(flags=[`ALL]) ?(actions=[]) targets =
-    DnD.dest_set obj ~flags ~actions ~targets:(Array.of_list targets)
-  method dest_unset () = DnD.dest_unset obj
-  method get_data ?(time=0) ~context:(context : drag_context) target =
-    DnD.get_data obj (context : < context : Gdk.drag_context; .. >)#context
-      ~target ~time
-  method highlight () = DnD.highlight obj
-  method unhighlight () = DnD.unhighlight obj
-  method source_set ?modi:m ?(actions=[]) targets =
-    DnD.source_set obj ?modi:m ~actions ~targets:(Array.of_list targets)
-  method source_set_icon ?(colormap = Gdk.Color.get_system_colormap ())
-      (pix : GDraw.pixmap) =
-    DnD.source_set_icon obj ~colormap pix#pixmap ?mask:pix#mask
-  method source_unset () = DnD.source_unset obj
-end
-
-and drag_context context = object
-  inherit GDraw.drag_context context
-  method context = context
-  method finish = DnD.finish context
-  method source_widget =
-    new widget (Object.unsafe_cast (DnD.get_source_widget context))
-  method set_icon_widget (w : widget) =
-    DnD.set_icon_widget context (w#as_widget)
-  method set_icon_pixmap ?(colormap = Gdk.Color.get_system_colormap ())
-      (pix : GDraw.pixmap) =
-    DnD.set_icon_pixmap context ~colormap pix#pixmap ?mask:pix#mask
-end
-
-and misc_signals ?after obj = object
-  inherit gtkobj_signals ?after obj
-  method draw ~callback =
-    GtkSignal.connect obj ~sgn:Widget.Signals.draw ~after ~callback:
-      begin fun rect ->
-       callback
-         { x = Gdk.Rectangle.x rect ; y = Gdk.Rectangle.y rect;
-           width = Gdk.Rectangle.width rect;
-           height = Gdk.Rectangle.height rect }
-      end
-  method show = GtkSignal.connect ~sgn:Widget.Signals.show ~after obj
-  method hide = GtkSignal.connect ~sgn:Widget.Signals.hide ~after obj
-  method map = GtkSignal.connect ~sgn:Widget.Signals.map ~after obj
-  method unmap = GtkSignal.connect ~sgn:Widget.Signals.unmap ~after obj
-  method realize = GtkSignal.connect ~sgn:Widget.Signals.realize ~after obj
-  method state_changed =
-    GtkSignal.connect ~sgn:Widget.Signals.state_changed ~after obj
-  method parent_set ~callback =
-    GtkSignal.connect obj ~sgn:Widget.Signals.parent_set ~after ~callback:
-      begin function
-         None   -> callback None
-       | Some w -> callback (Some (new widget (Object.unsafe_cast w)))
-      end
-  method style_set ~callback =
-    GtkSignal.connect obj ~sgn:Widget.Signals.style_set ~after ~callback:
-      (fun opt -> callback (may opt ~f:(new style)))
-end
-
-and misc_ops obj = object
-  inherit gtkobj_misc (Widget.coerce obj)
-  method connect = new misc_signals obj
-  method show () = Widget.show obj
-  method unparent () = Widget.unparent obj
-  method show_all () = Widget.show_all obj
-  method hide () = Widget.hide obj
-  method hide_all () = Widget.hide_all obj
-  method map () = Widget.map obj
-  method unmap () = Widget.unmap obj
-  method realize () = Widget.realize obj
-  method unrealize () = Widget.unrealize obj
-  method draw = Widget.draw obj
-  method activate () = Widget.activate obj
-  method reparent (w : widget) =  Widget.reparent obj w#as_widget
-  method popup = Widget.popup obj
-  method intersect = Widget.intersect obj
-  method grab_focus () = Widget.grab_focus obj
-  method grab_default () = Widget.grab_default obj
-  method is_ancestor (w : widget) = Widget.is_ancestor obj w#as_widget
-  method add_accelerator ~sgn:sg ~group ?modi ?flags key =
-    Widget.add_accelerator obj ~sgn:sg group ~key ?modi ?flags
-  method remove_accelerator ~group ?modi key =
-    Widget.remove_accelerator obj group ~key ?modi
-  method lock_accelerators () = Widget.lock_accelerators obj
-  method set_name = Widget.set_name obj
-  method set_state = Widget.set_state obj
-  method set_sensitive = Widget.set_sensitive obj
-  method set_can_default = Widget.set_can_default obj
-  method set_can_focus = Widget.set_can_focus obj
-  method set_geometry ?(x = -2) ?(y = -2) ?(width = -2) ?(height = -2)  () =
-    if x+y <> -4 then Widget.set_uposition obj ~x ~y;
-    if width+height <> -4 then Widget.set_usize obj ~width ~height
-  method set_style (style : style) = Widget.set_style obj style#as_style
-  (* get functions *)
-  method name = Widget.get_name obj
-  method toplevel =
-    try Some (new widget (Object.unsafe_cast (Widget.get_toplevel obj)))
-    with Gpointer.Null -> None
-  method window = Widget.window obj
-  method colormap = Widget.get_colormap obj
-  method visual = Widget.get_visual obj
-  method visual_depth = Gdk.Window.visual_depth (Widget.get_visual obj)
-  method pointer = Widget.get_pointer obj
-  method style = new style (Widget.get_style obj)
-  method visible = Widget.visible obj
-  method has_focus = Widget.has_focus obj
-  method parent =
-    try Some (new widget (Object.unsafe_cast (Widget.parent obj)))
-    with Gpointer.Null -> None
-  method set_app_paintable = Widget.set_app_paintable obj
-  method allocation = Widget.allocation obj
-end
-
-and widget obj = object (self)
-  inherit gtkobj obj
-  method as_widget = Widget.coerce obj
-  method misc = new misc_ops obj
-  method drag = new drag_ops (Object.unsafe_cast obj)
-  method coerce =
-    (self :> < destroy : _; get_id : _; as_widget : _; misc : _;
-               drag : _; coerce : _ >)
-end
-
-(* just to check that GDraw.misc_ops is compatible with misc_ops *)
-let _ = fun (x : #GDraw.misc_ops) -> (x : misc_ops)
-
-class widget_signals ?after (obj : [> `widget] obj) =
-  gtkobj_signals ?after obj
-
-(*
-class widget_coerce obj = object
-  inherit widget obj
-  method coerce = (self :> widget)
-end
-*)
-
-class widget_full obj = object
-  inherit widget obj
-  method connect = new widget_signals obj
-end
-
-let as_widget (w : widget) = w#as_widget
-
-let pack_return self ~packing ~show =
-  may packing ~f:(fun f -> (f (self :> widget) : unit));
-  if show <> Some false then self#misc#show ();
-  self

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gObj.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gObj.mli
deleted file mode 100644 (file)
index 7c37cf1..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gObj.mli
+++ /dev/null
@@ -1,267 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-
-(* Object *)
-
-class gtkobj :
-  'a obj ->
-  object
-    val obj : 'a obj
-    method destroy : unit -> unit
-    method get_id : int
-  end
-
-class gtkobj_signals :
-  ?after:bool -> 'a obj ->
-  object ('b)
-    val obj : 'a obj
-    val after : bool
-    method after : 'b
-    method destroy : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class gtkobj_misc : 'a obj ->
-  object
-    method get_type : string
-    method disconnect : GtkSignal.id -> unit
-    method handler_block : GtkSignal.id -> unit
-    method handler_unblock : GtkSignal.id -> unit
-  end
-
-(* Widget *)
-
-class event_signals :
-  ?after:bool -> [>`widget] obj ->
-  object ('a)
-    method after : 'a
-    method any :
-       callback:(Gdk.Tags.event_type Gdk.event -> bool) -> GtkSignal.id
-    method button_press : callback:(GdkEvent.Button.t -> bool) -> GtkSignal.id
-    method button_release :
-       callback:(GdkEvent.Button.t -> bool) -> GtkSignal.id
-    method configure : callback:(GdkEvent.Configure.t -> bool) -> GtkSignal.id
-    method delete : callback:([`DELETE] Gdk.event -> bool) -> GtkSignal.id
-    method destroy : callback:([`DESTROY] Gdk.event -> bool) -> GtkSignal.id
-    method enter_notify :
-       callback:(GdkEvent.Crossing.t -> bool) -> GtkSignal.id
-    method expose : callback:(GdkEvent.Expose.t -> bool) -> GtkSignal.id
-    method focus_in : callback:(GdkEvent.Focus.t -> bool) -> GtkSignal.id
-    method focus_out : callback:(GdkEvent.Focus.t -> bool) -> GtkSignal.id
-    method key_press : callback:(GdkEvent.Key.t -> bool) -> GtkSignal.id
-    method key_release : callback:(GdkEvent.Key.t -> bool) -> GtkSignal.id
-    method leave_notify :
-       callback:(GdkEvent.Crossing.t -> bool) -> GtkSignal.id
-    method map : callback:([`MAP] Gdk.event -> bool) -> GtkSignal.id
-    method motion_notify :
-       callback:(GdkEvent.Motion.t -> bool) -> GtkSignal.id
-    method property_notify :
-       callback:(GdkEvent.Property.t -> bool) -> GtkSignal.id
-    method proximity_in :
-       callback:(GdkEvent.Proximity.t -> bool) -> GtkSignal.id
-    method proximity_out :
-       callback:(GdkEvent.Proximity.t -> bool) -> GtkSignal.id
-    method selection_clear :
-       callback:(GdkEvent.Selection.t -> bool) -> GtkSignal.id
-    method selection_notify :
-       callback:(GdkEvent.Selection.t -> bool) -> GtkSignal.id
-    method selection_request :
-       callback:(GdkEvent.Selection.t -> bool) -> GtkSignal.id
-    method unmap : callback:([`UNMAP] Gdk.event -> bool) -> GtkSignal.id
-  end
-
-class event_ops : [>`widget] obj ->
-  object
-    method add : Gdk.Tags.event_mask list -> unit
-    method connect : event_signals
-    method send : Gdk.Tags.event_type Gdk.event -> bool
-    method set_extensions : Gdk.Tags.extension_events -> unit
-  end
-
-class style : Gtk.style ->
-  object ('a)
-    val style : Gtk.style
-    method as_style : Gtk.style
-    method bg : Tags.state_type -> Gdk.Color.t
-    method colormap : Gdk.colormap
-    method copy : 'a
-    method font : Gdk.font
-    method set_background : Gdk.window -> Tags.state_type -> unit
-    method set_bg : (Tags.state_type * GDraw.color) list -> unit
-    method set_font : Gdk.font -> unit
-  end
-
-class selection_data :
-  GtkData.Selection.t ->
-  object
-    val sel : GtkData.Selection.t
-    method data : string       (* May raise Null_pointer *)
-    method format : int
-    method selection : Gdk.atom
-    method seltype : Gdk.atom
-    method target : Gdk.atom
-    method set : typ:Gdk.atom -> format:int -> ?data:string -> unit
-  end
-
-class drag_ops : [>`widget] obj ->
-  object
-    method connect : drag_signals
-    method dest_set :
-      ?flags:Tags.dest_defaults list ->
-      ?actions:Gdk.Tags.drag_action list -> target_entry list -> unit
-    method dest_unset : unit -> unit
-    method get_data : ?time:int -> context:drag_context -> Gdk.atom ->unit
-    method highlight : unit -> unit
-    method source_set :
-      ?modi:Gdk.Tags.modifier list ->
-      ?actions:Gdk.Tags.drag_action list -> target_entry list -> unit
-    method source_set_icon : ?colormap:Gdk.colormap -> GDraw.pixmap -> unit
-    method source_unset : unit -> unit
-    method unhighlight : unit -> unit
-  end
-
-and misc_ops :
-  [>`widget] obj ->
-  object
-    inherit gtkobj_misc
-    val obj : Gtk.widget obj
-    method activate : unit -> bool
-    method add_accelerator :
-      sgn:(Gtk.widget, unit -> unit) GtkSignal.t ->
-      group:accel_group -> ?modi:Gdk.Tags.modifier list ->
-      ?flags:Tags.accel_flag list -> Gdk.keysym -> unit
-    method allocation : rectangle
-    method colormap : Gdk.colormap
-    method connect : misc_signals
-    method draw : Gdk.Rectangle.t option -> unit
-    method grab_default : unit -> unit
-    method grab_focus : unit -> unit
-    method has_focus : bool
-    method hide : unit -> unit
-    method hide_all : unit -> unit
-    method intersect : Gdk.Rectangle.t -> Gdk.Rectangle.t option
-    method is_ancestor : widget -> bool
-    method lock_accelerators : unit -> unit
-    method map : unit -> unit
-    method name : string
-    method parent : widget option
-    method pointer : int * int
-    method popup : x:int -> y:int -> unit
-    method realize : unit -> unit
-    method remove_accelerator :
-      group:accel_group -> ?modi:Gdk.Tags.modifier list -> Gdk.keysym -> unit
-    method reparent : widget -> unit
-    method set_app_paintable : bool -> unit
-    method set_can_default : bool -> unit
-    method set_can_focus : bool -> unit
-    method set_name : string -> unit
-    method set_sensitive : bool -> unit
-    method set_state : Tags.state_type -> unit
-    method set_style : style -> unit
-    method set_geometry :
-      ?x:int -> ?y:int -> ?width:int -> ?height:int -> unit -> unit
-    method show : unit -> unit
-    method show_all : unit -> unit
-    method style : style
-    method toplevel : widget option
-    method unmap : unit -> unit
-    method unparent : unit -> unit
-    method unrealize : unit -> unit
-    method visible : bool
-    method visual : Gdk.visual
-    method visual_depth : int
-    method window : Gdk.window
-  end
-
-and widget :
-  'a obj ->
-  object
-    inherit gtkobj
-    constraint 'a = [>`widget]
-    val obj : 'a obj
-    method as_widget : Gtk.widget obj
-    method coerce : widget
-    method drag : drag_ops
-    method misc : misc_ops
-  end
-
-and misc_signals :
-  ?after:bool -> Gtk.widget obj ->
-  object ('b)
-    inherit gtkobj_signals 
-    val obj : Gtk.widget obj
-    method after : 'b
-    method draw : callback:(Gtk.rectangle -> unit) -> GtkSignal.id
-    method hide : callback:(unit -> unit) -> GtkSignal.id
-    method map : callback:(unit -> unit) -> GtkSignal.id
-    method parent_set : callback:(widget option -> unit) -> GtkSignal.id
-    method realize : callback:(unit -> unit) -> GtkSignal.id
-    method show : callback:(unit -> unit) -> GtkSignal.id
-    method state_changed :
-      callback:(Gtk.Tags.state_type -> unit) -> GtkSignal.id
-    method style_set : callback:(unit -> unit) -> GtkSignal.id
-    method unmap : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-and drag_context :
-  Gdk.drag_context ->
-  object
-    val context : Gdk.drag_context
-    method context : Gdk.drag_context
-    method finish : success:bool -> del:bool -> time:int -> unit
-    method source_widget : widget 
-    method set_icon_pixmap :
-      ?colormap:Gdk.colormap -> GDraw.pixmap -> hot_x:int -> hot_y:int -> unit
-    method set_icon_widget : widget -> hot_x:int -> hot_y:int -> unit
-    method status : ?time:int -> Gdk.Tags.drag_action list -> unit
-    method suggested_action : Gdk.Tags.drag_action
-    method targets : Gdk.atom list
-  end
-
-and drag_signals :
-  ?after:bool -> Gtk.widget obj ->
-  object ('a)
-    method after : 'a
-    method beginning :
-      callback:(drag_context -> unit) -> GtkSignal.id
-    method data_delete :
-      callback:(drag_context -> unit) -> GtkSignal.id
-    method data_get :
-      callback:(drag_context -> selection_data -> info:int -> time:int -> unit)
-      -> GtkSignal.id
-    method data_received :
-      callback:(drag_context -> x:int -> y:int ->
-               selection_data -> info:int -> time:int -> unit) -> GtkSignal.id
-    method drop :
-      callback:(drag_context -> x:int -> y:int -> time:int -> bool) ->
-      GtkSignal.id
-    method ending :
-      callback:(drag_context -> unit) -> GtkSignal.id
-    method leave :
-      callback:(drag_context -> time:int -> unit) -> GtkSignal.id
-    method motion :
-      callback:(drag_context -> x:int -> y:int -> time:int -> bool) ->
-      GtkSignal.id
-  end
-
-class widget_signals : ?after:bool -> 'a obj ->
-  object
-    inherit gtkobj_signals
-    constraint 'a = [>`widget]
-    val obj : 'a obj
-  end
-
-class widget_full : 'a obj ->
-  object
-    inherit widget
-    constraint 'a = [>`widget]
-    val obj : 'a obj
-    method connect : widget_signals
-  end
-
-val as_widget : widget -> Gtk.widget obj
-
-val pack_return :
-    (#widget as 'a) ->
-    packing:(widget -> unit) option -> show:bool option -> 'a
-    (* To use in initializers to provide a ?packing: option *)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gPack.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gPack.ml
deleted file mode 100644 (file)
index 3641349..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gPack.ml
+++ /dev/null
@@ -1,217 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkPack
-open GObj
-open GContainer
-
-class box_skel obj = object
-  inherit container obj
-  method pack ?from:f ?expand ?fill ?padding w =
-    Box.pack obj (as_widget w) ?from:f ?expand ?fill ?padding
-  method set_homogeneous = Box.set_homogeneous obj
-  method set_spacing = Box.set_spacing obj
-  method set_child_packing ?from:f ?expand ?fill ?padding w =
-    Box.set_child_packing obj (as_widget w) ?from:f ?expand ?fill ?padding
-  method reorder_child w = Box.reorder_child obj (as_widget w)
-end
-
-class box obj = object
-  inherit box_skel obj
-  method connect = new container_signals obj
-end
-  
-let box dir ?homogeneous ?spacing ?border_width ?width ?height
-    ?packing ?show () =
-  let w = Box.create dir ?homogeneous ?spacing () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new box w) ~packing ~show
-
-let vbox = box `VERTICAL
-let hbox = box `HORIZONTAL
-
-class button_box obj = object
-  inherit box_skel (obj : Gtk.button_box obj)
-  method connect = new container_signals obj
-  method set_layout  = BBox.set_layout  obj
-  method set_spacing = BBox.set_spacing obj
-  method set_child_size = BBox.set_child_size obj
-  method set_child_ipadding = BBox.set_child_ipadding obj
-end
-
-let button_box dir ?spacing ?child_width ?child_height ?child_ipadx
-    ?child_ipady ?layout ?border_width ?width ?height ?packing ?show ()=
-  let w = BBox.create dir in
-  BBox.set w ?spacing ?child_width ?child_height ?child_ipadx
-    ?child_ipady ?layout;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new button_box w) ~packing ~show
-
-class table obj = object
-  inherit container_full (obj : Gtk.table obj)
-  method attach ~left ~top ?right ?bottom ?expand ?fill ?shrink
-      ?xpadding ?ypadding w =
-    Table.attach obj (as_widget w) ~left ~top ?right ?bottom ?expand
-      ?fill ?shrink ?xpadding ?ypadding
-  method set_row_spacing = Table.set_row_spacing obj
-  method set_col_spacing = Table.set_col_spacing obj
-  method set_row_spacings = Table.set_row_spacings obj
-  method set_col_spacings = Table.set_col_spacings obj
-  method set_homogeneous = Table.set_homogeneous obj
-end
-
-let table ~rows ~columns ?homogeneous ?row_spacings ?col_spacings
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Table.create ~rows ~columns ?homogeneous () in
-  Table.set w ?row_spacings ?col_spacings;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new table w) ~packing ~show
-
-class fixed obj = object
-  inherit container_full (obj : Gtk.fixed obj)
-  method event = new GObj.event_ops obj
-  method put w = Fixed.put obj (as_widget w)
-  method move w = Fixed.move obj (as_widget w)
-end
-
-let fixed ?border_width ?width ?height ?packing ?show () =
-  let w = Fixed.create () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new fixed w) ~packing ~show
-
-class layout obj = object
-  inherit container_full (obj : Gtk.layout obj)
-  method event = new GObj.event_ops obj
-  method put w = Layout.put obj (as_widget w)
-  method move w = Layout.move obj (as_widget w)
-  method set_hadjustment adj =
-    Layout.set_hadjustment obj (GData.as_adjustment adj)
-  method set_vadjustment adj =
-    Layout.set_vadjustment obj (GData.as_adjustment adj)
-  method set_width width = Layout.set_size obj ~width
-  method set_height height = Layout.set_size obj ~height
-  method hadjustment = new GData.adjustment (Layout.get_hadjustment obj)
-  method vadjustment = new GData.adjustment (Layout.get_vadjustment obj)
-  method freeze () = Layout.freeze obj
-  method thaw () = Layout.thaw obj
-  method width = Layout.get_width obj
-  method height = Layout.get_height obj
-end
-
-let layout ?hadjustment ?vadjustment ?layout_width ?layout_height
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Layout.create
-      (Gpointer.optboxed (may_map ~f:GData.as_adjustment hadjustment))
-      (Gpointer.optboxed (may_map ~f:GData.as_adjustment vadjustment)) in
-  if layout_width <> None || layout_height <> None then
-    Layout.set_size w ?width:layout_width ?height:layout_height;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new layout w) ~packing ~show
-
-
-class packer obj = object
-  inherit container_full (obj : Gtk.packer obj)
-  method pack ?side ?anchor ?expand ?fill
-      ?border_width ?pad_x ?pad_y ?i_pad_x ?i_pad_y w =
-    let options = Packer.build_options ?expand ?fill () in
-    if border_width == None && pad_x == None && pad_y == None &&
-      i_pad_x == None && i_pad_y == None
-      then Packer.add_defaults obj (as_widget w) ?side ?anchor ~options
-      else Packer.add obj (as_widget w) ?side ?anchor ~options
-         ?border_width ?pad_x ?pad_y ?i_pad_x ?i_pad_y
-  method set_child_packing ?side ?anchor ?expand ?fill
-      ?border_width ?pad_x ?pad_y ?i_pad_x ?i_pad_y w =
-    Packer.set_child_packing obj (as_widget w) ?side ?anchor
-      ~options:(Packer.build_options ?expand ?fill ())
-      ?border_width ?pad_x ?pad_y ?i_pad_x ?i_pad_y
-  method reorder_child w = Packer.reorder_child obj (as_widget w)
-  method set_spacing = Packer.set_spacing obj
-  method set_defaults = Packer.set_defaults obj
-end
-
-let packer ?spacing ?border_width ?width ?height ?packing ?show () =
-  let w = Packer.create () in
-  may spacing ~f:(Packer.set_spacing w);
-  Container.set w ?border_width ?width ?height;
-  pack_return (new packer w) ~packing ~show
-
-class paned obj = object
-  inherit container_full (obj : Gtk.paned obj)
-  method event = new GObj.event_ops obj
-  method add w =
-    if List.length (Container.children obj) = 2 then
-      raise(Error "Gpack.paned#add: already full");
-    Container.add obj (as_widget w)
-  method add1 w =
-    try ignore(Paned.child1 obj); raise(Error "GPack.paned#add1: already full")
-    with _ -> Paned.add1 obj (as_widget w)
-  method add2 w =
-    try ignore(Paned.child2 obj); raise(Error "GPack.paned#add2: already full")
-    with _ -> Paned.add2 obj (as_widget w)
-  method set_handle_size = Paned.set_handle_size obj
-  method set_gutter_size = Paned.set_gutter_size obj
-  method child1 = new widget (Paned.child1 obj)
-  method child2 = new widget (Paned.child2 obj)
-  method handle_size = Paned.handle_size obj
-  method gutter_size = Paned.gutter_size obj
-end
-
-let paned dir ?handle_size ?gutter_size
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Paned.create dir in
-  Paned.set w ?handle_size ?gutter_size;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new paned w) ~packing ~show
-
-class notebook_signals obj = object
-  inherit GContainer.container_signals obj
-  method switch_page =
-    GtkSignal.connect obj ~sgn:Notebook.Signals.switch_page ~after
-end
-
-class notebook obj = object (self)
-  inherit GContainer.container obj
-  method event = new GObj.event_ops obj
-  method connect = new notebook_signals obj
-  method insert_page ?tab_label ?menu_label ~pos child =
-      Notebook.insert_page obj (as_widget child) ~pos
-       ~tab_label:(Gpointer.may_box tab_label ~f:as_widget)
-       ~menu_label:(Gpointer.may_box menu_label ~f:as_widget)
-  method append_page = self#insert_page ~pos:(-1)
-  method prepend_page = self#insert_page ~pos:0
-  method remove_page = Notebook.remove_page obj
-  method current_page = Notebook.get_current_page obj
-  method goto_page = Notebook.set_page obj
-  method previous_page () = Notebook.prev_page obj
-  method next_page () = Notebook.next_page obj
-  method set_tab_pos = Notebook.set_tab_pos obj
-  method set_show_tabs = Notebook.set_show_tabs obj
-  method set_homogeneous_tabs = Notebook.set_homogeneous_tabs obj
-  method set_show_border = Notebook.set_show_border obj
-  method set_scrollable = Notebook.set_scrollable obj
-  method set_tab_border = Notebook.set_tab_border obj
-  method set_popup = Notebook.set_popup obj
-  method page_num w = Notebook.page_num obj (as_widget w)
-  method get_nth_page n = new widget (Notebook.get_nth_page obj n)
-  method get_tab_label w =
-    new widget (Notebook.get_tab_label obj (as_widget w))
-  method get_menu_label w =
-    new widget (Notebook.get_tab_label obj (as_widget w))
-  method set_page ?tab_label ?menu_label page =
-    let child = as_widget page in
-    may tab_label
-      ~f:(fun lbl -> Notebook.set_tab_label obj child (as_widget lbl));
-    may menu_label
-      ~f:(fun lbl -> Notebook.set_menu_label obj child (as_widget lbl))
-end
-
-let notebook ?tab_pos ?tab_border ?show_tabs ?homogeneous_tabs
-    ?show_border ?scrollable ?popup
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Notebook.create () in
-  Notebook.set w ?tab_pos ?tab_border ?show_tabs
-    ?homogeneous_tabs ?show_border ?scrollable ?popup;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new notebook w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gPack.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gPack.mli
deleted file mode 100644 (file)
index 994c8b8..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gPack.mli
+++ /dev/null
@@ -1,267 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GContainer
-
-class box_skel :
-  'a obj ->
-  object
-    inherit container
-    constraint 'a = [>`box|`container|`widget]
-    val obj : 'a obj
-    method pack :
-      ?from:Tags.pack_type ->
-      ?expand:bool -> ?fill:bool -> ?padding:int -> widget -> unit
-    method reorder_child : widget -> pos:int -> unit
-    method set_child_packing :
-      ?from:Tags.pack_type ->
-      ?expand:bool -> ?fill:bool -> ?padding:int -> widget -> unit
-    method set_homogeneous : bool -> unit
-    method set_spacing : int -> unit
-  end
-class box :
-  'a obj ->
-  object
-    inherit box_skel
-    constraint 'a = [>`box|`container|`widget]
-    val obj : 'a obj
-    method connect : GContainer.container_signals
-  end
-
-val box :
-  Tags.orientation ->
-  ?homogeneous:bool ->
-  ?spacing:int ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int -> ?packing:(widget -> unit) -> ?show:bool -> unit -> box
-val vbox :
-  ?homogeneous:bool ->
-  ?spacing:int ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int -> ?packing:(widget -> unit) -> ?show:bool -> unit -> box
-val hbox :
-  ?homogeneous:bool ->
-  ?spacing:int ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int -> ?packing:(widget -> unit) -> ?show:bool -> unit -> box
-
-class button_box :
-  Gtk.button_box obj ->
-  object
-    inherit container_full
-    val obj : Gtk.button_box obj
-    method pack :
-      ?from:Tags.pack_type ->
-      ?expand:bool -> ?fill:bool -> ?padding:int -> widget -> unit
-    method reorder_child : widget -> pos:int -> unit
-    method set_child_ipadding : ?x:int -> ?y:int -> unit -> unit
-    method set_child_packing :
-      ?from:Tags.pack_type ->
-      ?expand:bool -> ?fill:bool -> ?padding:int -> widget -> unit
-    method set_child_size : ?width:int -> ?height:int -> unit -> unit
-    method set_homogeneous : bool -> unit
-    method set_layout : GtkPack.BBox.bbox_style -> unit
-    method set_spacing : int -> unit
-  end
-val button_box :
-  Tags.orientation ->
-  ?spacing:int ->
-  ?child_width:int ->
-  ?child_height:int ->
-  ?child_ipadx:int ->
-  ?child_ipady:int ->
-  ?layout:GtkPack.BBox.bbox_style ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> button_box
-
-class table :
-  Gtk.table obj ->
-  object
-    inherit container_full
-    val obj : Gtk.table obj
-    method attach :
-      left:int ->
-      top:int ->
-      ?right:int ->
-      ?bottom:int ->
-      ?expand:Tags.expand_type ->
-      ?fill:Tags.expand_type ->
-      ?shrink:Tags.expand_type ->
-      ?xpadding:int -> ?ypadding:int -> widget -> unit
-    method set_col_spacing : int -> int -> unit
-    method set_col_spacings : int -> unit
-    method set_homogeneous : bool -> unit
-    method set_row_spacing : int -> int -> unit
-    method set_row_spacings : int -> unit
-  end
-val table :
-  rows:int ->
-  columns:int ->
-  ?homogeneous:bool ->
-  ?row_spacings:int ->
-  ?col_spacings:int ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> table
-
-class fixed :
-  Gtk.fixed obj ->
-  object
-    inherit container_full
-    val obj : Gtk.fixed obj
-    method event : event_ops
-    method move : widget -> x:int -> y:int -> unit
-    method put : widget -> x:int -> y:int -> unit
-  end
-val fixed :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> fixed
-
-class layout :
-  Gtk.layout obj ->
-  object
-    inherit container_full
-    val obj : Gtk.layout obj
-    method event : event_ops
-    method freeze : unit -> unit
-    method hadjustment : GData.adjustment
-    method height : int
-    method move : widget -> x:int -> y:int -> unit
-    method put : widget -> x:int -> y:int -> unit
-    method set_hadjustment : GData.adjustment -> unit
-    method set_height : int -> unit
-    method set_vadjustment : GData.adjustment -> unit
-    method set_width : int -> unit
-    method thaw : unit -> unit
-    method vadjustment : GData.adjustment
-    method width : int
-  end
-val layout :
-  ?hadjustment:GData.adjustment ->
-  ?vadjustment:GData.adjustment ->
-  ?layout_width:int ->
-  ?layout_height:int ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> layout
-
-class notebook_signals : 'a obj ->
-  object
-    inherit container_signals
-    constraint 'a = [>`notebook|`container|`widget]
-    val obj : 'a obj
-    method switch_page : callback:(int -> unit) -> GtkSignal.id
-  end
-
-class notebook : ([> `widget | `container | `notebook] as 'a) obj ->
-  object
-    inherit container
-    val obj : 'a obj
-    method event : event_ops
-    method append_page :
-      ?tab_label:widget -> ?menu_label:widget -> widget -> unit
-    method connect : notebook_signals
-    method current_page : int
-    method get_menu_label : widget -> widget
-    method get_nth_page : int -> widget
-    method get_tab_label : widget -> widget
-    method goto_page : int -> unit
-    method insert_page :
-      ?tab_label:widget -> ?menu_label:widget -> pos:int -> widget -> unit
-    method next_page : unit -> unit
-    method page_num : widget -> int
-    method prepend_page :
-      ?tab_label:widget -> ?menu_label:widget -> widget -> unit
-    method previous_page : unit -> unit
-    method remove_page : int -> unit
-    method set_homogeneous_tabs : bool -> unit
-    method set_page :
-      ?tab_label:widget -> ?menu_label:widget -> widget -> unit
-    method set_popup : bool -> unit
-    method set_scrollable : bool -> unit
-    method set_show_border : bool -> unit
-    method set_show_tabs : bool -> unit
-    method set_tab_border : int -> unit
-    method set_tab_pos : Tags.position -> unit
-  end
-val notebook :
-  ?tab_pos:Tags.position ->
-  ?tab_border:int ->
-  ?show_tabs:bool ->
-  ?homogeneous_tabs:bool ->
-  ?show_border:bool ->
-  ?scrollable:bool ->
-  ?popup:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> notebook
-
-class packer :
-  Gtk.packer obj ->
-  object
-    inherit container_full
-    val obj : Gtk.packer obj
-    method pack :
-      ?side:Tags.side_type ->
-      ?anchor:Tags.anchor_type ->
-      ?expand:bool ->
-      ?fill:Tags.expand_type ->
-      ?border_width:int ->
-      ?pad_x:int ->
-      ?pad_y:int -> ?i_pad_x:int -> ?i_pad_y:int -> widget -> unit
-    method reorder_child : widget -> pos:int -> unit
-    method set_child_packing :
-      ?side:Tags.side_type ->
-      ?anchor:Tags.anchor_type ->
-      ?expand:bool ->
-      ?fill:Tags.expand_type ->
-      ?border_width:int ->
-      ?pad_x:int ->
-      ?pad_y:int -> ?i_pad_x:int -> ?i_pad_y:int -> widget -> unit
-    method set_defaults :
-      ?border_width:int ->
-      ?pad_x:int ->
-      ?pad_y:int -> ?i_pad_x:int -> ?i_pad_y:int -> unit -> unit
-    method set_spacing : int -> unit
-  end
-val packer :
-  ?spacing:int ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> packer
-
-class paned :
-  Gtk.paned obj ->
-  object
-    inherit container_full
-    val obj : Gtk.paned obj
-    method add1 : widget -> unit
-    method add2 : widget -> unit
-    method event : event_ops
-    method child1 : widget
-    method child2 : widget
-    method gutter_size : int
-    method handle_size : int
-    method set_gutter_size : int -> unit
-    method set_handle_size : int -> unit
-  end
-val paned :
-  Tags.orientation ->
-  ?handle_size:int ->
-  ?gutter_size:int ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> paned

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gRange.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gRange.ml
deleted file mode 100644 (file)
index 7df53ce..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gRange.ml
+++ /dev/null
@@ -1,83 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkRange
-open GObj
-
-class progress obj = object
-  inherit widget_full obj
-  method set_adjustment adj =
-    Progress.set_adjustment obj (GData.as_adjustment adj)
-  method set_show_text = Progress.set_show_text obj
-  method set_format_string = Progress.set_format_string obj
-  method set_text_alignment = Progress.set_text_alignment obj
-  method set_activity_mode = Progress.set_activity_mode obj
-  method set_value = Progress.set_value obj
-  method set_percentage = Progress.set_percentage obj
-  method configure = Progress.configure obj
-  method value = Progress.get_value obj
-  method percentage = Progress.get_percentage obj
-  method current_text = Progress.get_current_text obj
-  method adjustment = new GData.adjustment (Progress.get_adjustment obj)
-end
-
-class progress_bar obj = object
-  inherit progress (obj : Gtk.progress_bar obj)
-  method event = new GObj.event_ops obj
-  method set_bar_style = ProgressBar.set_bar_style obj
-  method set_discrete_blocks = ProgressBar.set_discrete_blocks obj
-  method set_activity_step = ProgressBar.set_activity_step obj
-  method set_activity_blocks = ProgressBar.set_activity_blocks obj
-  method set_orientation = ProgressBar.set_orientation obj
-end
-
-let progress_bar ?adjustment ?bar_style ?discrete_blocks
-    ?activity_step ?activity_blocks ?value ?percentage ?activity_mode
-    ?show_text ?format_string ?text_xalign ?text_yalign
-    ?packing ?show () =
-  let w =
-    match adjustment with None -> ProgressBar.create ()
-    | Some adj ->
-       ProgressBar.create_with_adjustment (GData.as_adjustment adj)
-  in
-  ProgressBar.set w ?bar_style ?discrete_blocks
-    ?activity_step ?activity_blocks;
-  Progress.set w ?value ?percentage ?activity_mode
-    ?show_text ?format_string ?text_xalign ?text_yalign;
-  pack_return (new progress_bar w) ~packing ~show
-
-class range obj = object
-  inherit widget_full obj
-  method adjustment = new GData.adjustment (Range.get_adjustment obj)
-  method set_adjustment adj =
-    Range.set_adjustment obj (GData.as_adjustment adj)
-  method set_update_policy = Range.set_update_policy obj
-end
-
-class scale obj = object
-  inherit range (obj : Gtk.scale obj)
-  method set_digits = Scale.set_digits obj
-  method set_draw_value = Scale.set_draw_value obj
-  method set_value_pos = Scale.set_value_pos obj
-end
-
-let scale dir ?adjustment ?digits ?draw_value ?value_pos
-    ?packing ?show () =
-  let w =
-    Scale.create dir ?adjustment:(may_map ~f:GData.as_adjustment adjustment)
-  in
-  let () = Scale.set w ?digits ?draw_value ?value_pos in
-  pack_return (new scale w) ~packing ~show
-
-class scrollbar obj = object
-  inherit range (obj : Gtk.scrollbar obj)
-  method event = new GObj.event_ops obj
-end
-
-let scrollbar dir ?adjustment ?update_policy ?packing ?show () =
-  let w = Scrollbar.create dir
-      ?adjustment:(may_map ~f:GData.as_adjustment adjustment) in
-  let () = may update_policy ~f:(Range.set_update_policy w) in
-  pack_return (new scrollbar w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gRange.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gRange.mli
deleted file mode 100644 (file)
index ac9b38c..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gRange.mli
+++ /dev/null
@@ -1,87 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-
-class progress : 'a obj ->
-  object
-    inherit widget_full
-    constraint 'a = [>`progress|`widget]
-    val obj : 'a obj
-    method adjustment : GData.adjustment
-    method configure : current:float -> min:float -> max:float -> unit
-    method current_text : string
-    method percentage : float
-    method set_activity_mode : bool -> unit
-    method set_adjustment : GData.adjustment -> unit
-    method set_format_string : string -> unit
-    method set_percentage : float -> unit
-    method set_show_text : bool -> unit
-    method set_text_alignment : ?x:float -> ?y:float -> unit -> unit
-    method set_value : float -> unit
-    method value : float
-  end
-
-class progress_bar : Gtk.progress_bar obj ->
-  object
-    inherit progress
-    val obj : Gtk.progress_bar obj
-    method event : event_ops
-    method set_activity_blocks : int -> unit
-    method set_activity_step : int -> unit
-    method set_bar_style : [`CONTINUOUS|`DISCRETE] -> unit
-    method set_discrete_blocks : int -> unit
-    method set_orientation : Tags.progress_bar_orientation -> unit
-  end
-val progress_bar :
-  ?adjustment:GData.adjustment ->
-  ?bar_style:[`CONTINUOUS|`DISCRETE] ->
-  ?discrete_blocks:int ->
-  ?activity_step:int ->
-  ?activity_blocks:int ->
-  ?value:float ->
-  ?percentage:float ->
-  ?activity_mode:bool ->
-  ?show_text:bool ->
-  ?format_string:string ->
-  ?text_xalign:float ->
-  ?text_yalign:float ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> progress_bar
-
-class range : 'a obj ->
-  object
-    inherit widget_full
-    constraint 'a = [>`range|`widget]
-    val obj : 'a obj
-    method adjustment : GData.adjustment
-    method set_adjustment : GData.adjustment -> unit
-    method set_update_policy : Tags.update_type -> unit
-  end
-
-class scale : Gtk.scale obj ->
-  object
-    inherit range
-    val obj : Gtk.scale obj
-    method set_digits : int -> unit
-    method set_draw_value : bool -> unit
-    method set_value_pos : Tags.position -> unit
-  end
-val scale :
-  Tags.orientation ->
-  ?adjustment:GData.adjustment ->
-  ?digits:int ->
-  ?draw_value:bool ->
-  ?value_pos:Tags.position ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> scale
-
-class scrollbar : Gtk.scrollbar obj ->
-  object
-    inherit range
-    val obj : Gtk.scrollbar obj
-    method event : event_ops
-  end
-val scrollbar :
-  Tags.orientation ->
-  ?adjustment:GData.adjustment ->
-  ?update_policy:Tags.update_type ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> scrollbar

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gTree.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gTree.ml
deleted file mode 100644 (file)
index 80dab7b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gTree.ml
+++ /dev/null
@@ -1,76 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkTree
-open GObj
-open GContainer
-
-class tree_item_signals obj = object
-  inherit item_signals obj
-  method expand = GtkSignal.connect obj ~sgn:TreeItem.Signals.expand ~after
-  method collapse = GtkSignal.connect obj ~sgn:TreeItem.Signals.collapse ~after
-end
-
-class tree_item obj = object
-  inherit container obj
-  method event = new GObj.event_ops obj
-  method as_item : Gtk.tree_item obj = obj
-  method connect = new tree_item_signals obj
-  method set_subtree (w : tree) = TreeItem.set_subtree obj w#as_tree
-  method remove_subtree () = TreeItem.remove_subtree obj
-  method expand () = TreeItem.expand obj
-  method collapse () = TreeItem.collapse obj
-  method subtree =
-    try Some(new tree (TreeItem.subtree obj)) with Gpointer.Null -> None
-end
-
-and tree_signals obj = object
-  inherit container_signals obj
-  method selection_changed =
-    GtkSignal.connect obj ~sgn:Tree.Signals.selection_changed ~after
-  method select_child ~callback =
-    GtkSignal.connect obj ~sgn:Tree.Signals.select_child ~after
-      ~callback:(fun w -> callback (new tree_item (TreeItem.cast w))) 
-  method unselect_child ~callback =
-    GtkSignal.connect obj ~sgn:Tree.Signals.unselect_child ~after
-      ~callback:(fun w -> callback (new tree_item (TreeItem.cast w))) 
-end
-
-and tree obj = object (self)
-  inherit [tree_item] item_container obj
-  method event = new GObj.event_ops obj
-  method as_tree = Tree.coerce obj
-  method insert w ~pos = Tree.insert obj w#as_item ~pos
-  method connect = new tree_signals obj
-  method clear_items = Tree.clear_items obj
-  method select_item = Tree.select_item obj
-  method unselect_item = Tree.unselect_item obj
-  method child_position (w : tree_item) = Tree.child_position obj w#as_item
-  method remove_items items =
-    Tree.remove_items obj
-      (List.map ~f:(fun (t : tree_item) -> t#as_item) items)
-  method set_selection_mode = Tree.set_selection_mode obj
-  method set_view_mode = Tree.set_view_mode obj
-  method set_view_lines = Tree.set_view_lines obj
-  method selection =
-    List.map ~f:(fun w -> self#wrap (Widget.coerce w)) (Tree.selection obj)
-  method private wrap w =
-    new tree_item (TreeItem.cast w)
-end
-
-let tree_item ?label ?border_width ?width ?height ?packing ?show () =
-  let w = TreeItem.create ?label () in
-  Container.set w ?border_width ?width ?height;
-  let self = new tree_item w in
-  may packing ~f:(fun f -> (f self : unit));
-  if show <> Some false then self#misc#show ();
-  self
-
-let tree ?selection_mode ?view_mode ?view_lines
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Tree.create () in
-  Tree.set w ?selection_mode ?view_mode ?view_lines;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new tree w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gTree.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gTree.mli
deleted file mode 100644 (file)
index d48e09b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gTree.mli
+++ /dev/null
@@ -1,72 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GContainer
-
-class tree_item_signals : 'a obj ->
-  object
-    inherit item_signals
-    constraint 'a = [>`treeitem|`container|`item|`widget]
-    val obj : 'a obj
-    method collapse : callback:(unit -> unit) -> GtkSignal.id
-    method expand : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class tree_item : Gtk.tree_item obj ->
-  object
-    inherit GContainer.container
-    val obj : Gtk.tree_item obj
-    method event : event_ops
-    method as_item : Gtk.tree_item obj
-    method collapse : unit -> unit
-    method connect : tree_item_signals
-    method expand : unit -> unit
-    method remove_subtree : unit -> unit
-    method set_subtree : tree -> unit
-    method subtree : tree option
-  end
-
-and tree_signals : Gtk.tree obj ->
-  object
-    inherit container_signals
-    val obj : Gtk.tree obj
-    method select_child : callback:(tree_item -> unit) -> GtkSignal.id
-    method selection_changed : callback:(unit -> unit) -> GtkSignal.id
-    method unselect_child : callback:(tree_item -> unit) -> GtkSignal.id
-  end
-
-and tree : Gtk.tree obj ->
-  object
-    inherit [tree_item] item_container
-    val obj : Gtk.tree obj
-    method event : event_ops
-    method as_tree : Gtk.tree obj
-    method child_position : tree_item -> int
-    method clear_items : start:int -> stop:int -> unit
-    method connect : tree_signals
-    method insert : tree_item -> pos:int -> unit
-    method remove_items : tree_item list -> unit
-    method select_item : pos:int -> unit
-    method selection : tree_item list
-    method set_selection_mode : Tags.selection_mode -> unit
-    method set_view_lines : bool -> unit
-    method set_view_mode : [`LINE|`ITEM] -> unit
-    method unselect_item : pos:int -> unit
-    method private wrap : Gtk.widget obj -> tree_item
-  end
-
-val tree_item :
-  ?label:string ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(tree_item -> unit) -> ?show:bool -> unit -> tree_item
-
-val tree :
-  ?selection_mode:Tags.selection_mode ->
-  ?view_mode:[`LINE|`ITEM] ->
-  ?view_lines:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int -> ?packing:(GObj.widget -> unit) -> ?show:bool -> unit -> tree

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gUtil.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gUtil.ml
deleted file mode 100644 (file)
index 260c2ac..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gUtil.ml
+++ /dev/null
@@ -1,80 +0,0 @@
-(* $Id$ *)
-
-open GObj
-
-class ['a] memo () = object
-  constraint 'a = #widget
-  val tbl = Hashtbl.create 7
-  method add (obj : 'a) =
-    Hashtbl.add tbl ~key:obj#get_id ~data:obj
-  method find (obj : widget) = Hashtbl.find tbl obj#get_id
-  method remove (obj : widget) = Hashtbl.remove tbl obj#get_id
-end
-
-let signal_id = ref 0
-
-let next_callback_id () : GtkSignal.id =
-  decr signal_id; Obj.magic (!signal_id : int)
-
-class ['a] signal () = object (self)
-  val mutable callbacks : (GtkSignal.id * ('a -> unit)) list = []
-  method callbacks = callbacks
-  method connect ~after ~callback =
-    let id = next_callback_id () in
-    callbacks <-
-      if after then callbacks @ [id,callback] else (id,callback)::callbacks;
-    id
-  method call arg =
-    List.exists callbacks ~f:
-      begin fun (_,f) ->
-        let old = GtkSignal.push_callback () in
-        try f arg; GtkSignal.pop_callback old
-        with exn -> GtkSignal.pop_callback old; raise exn
-      end;
-    ()
-  method disconnect key =
-    List.mem_assoc key callbacks &&
-    (callbacks <- List.remove_assoc key callbacks; true)
-end
-
-class virtual ml_signals disconnectors =
-  object (self)
-    val after = false
-    method after = {< after = true >}
-    val mutable disconnectors : (GtkSignal.id -> bool) list = disconnectors
-    method disconnect key =
-      ignore (List.exists disconnectors ~f:(fun f -> f key))
-  end
-
-class virtual add_ml_signals obj disconnectors =
-  object (self)
-    val mutable disconnectors : (GtkSignal.id -> bool) list = disconnectors
-    method disconnect key =
-      if List.exists disconnectors ~f:(fun f -> f key) then ()
-      else GtkSignal.disconnect obj key
-  end
-
-class ['a] variable_signals ~(set : 'a signal) ~(changed : 'a signal) =
-  object
-    inherit ml_signals [changed#disconnect; set#disconnect]
-    method changed = changed#connect ~after
-    method set = set#connect ~after
-  end
-
-class ['a] variable x =
-  object (self)
-    val changed = new signal ()
-    val set = new signal ()
-    method connect = new variable_signals ~set ~changed
-    val mutable x : 'a = x
-    method get = x
-    method set = set#call
-    method private equal : 'a -> 'a -> bool = (=)
-    method private real_set y =
-      let x0 = x in x <- y;
-      if changed#callbacks <> [] && not (self#equal x x0)
-      then changed#call y
-    initializer
-      ignore (set#connect ~after:false ~callback:self#real_set)
-  end
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gUtil.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gUtil.mli
deleted file mode 100644 (file)
index cd88d86..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gUtil.mli
+++ /dev/null
@@ -1,109 +0,0 @@
-(* $Id$ *)
-
-open GObj
-
-(* The memo class provides an easy way to remember the real class of
-   a widget.
-   Insert all widgets of class in one single t memo, and you can then
-   recover their original ML object with #find.
-*)
-
-class ['a] memo : unit ->
-  object
-    constraint 'a = #widget
-    val tbl : (int, 'a) Hashtbl.t
-    method add : 'a -> unit
-    method find : widget -> 'a
-    method remove : widget -> unit
-  end
-
-(* The ML signal mechanism allows one to add GTK-like signals to
-   arbitrary objects.
-*)
-
-val next_callback_id : unit -> GtkSignal.id
-
-class ['a] signal :
-  unit ->
-  object
-    val mutable callbacks : (GtkSignal.id * ('a -> unit)) list
-    method callbacks : (GtkSignal.id * ('a -> unit)) list
-    method call : 'a -> unit
-    method connect : after:bool -> callback:('a -> unit) -> GtkSignal.id
-    method disconnect : GtkSignal.id -> bool
-  end
-(* As with GTK signals, you can use [GtkSignal.stop_emit] inside a
-   callback to prevent other callbacks from being called. *)
-
-class virtual ml_signals : (GtkSignal.id -> bool) list ->
-  object ('a)
-    val after : bool
-    method after : 'a
-    method disconnect : GtkSignal.id -> unit
-    val mutable disconnectors : (GtkSignal.id -> bool) list
-  end
-class virtual add_ml_signals :
-  'a Gtk.obj -> (GtkSignal.id -> bool) list ->
-  object
-    method disconnect : GtkSignal.id -> unit
-    val mutable disconnectors : (GtkSignal.id -> bool) list
-  end
-
-(* To add ML signals to a LablGTK object:
-
-   class mywidget_signals obj ~mysignal1 ~mysignal2 = object
-     inherit somewidget_signals obj
-     inherit add_ml_signals obj [mysignal1#disconnect; mysignal2#disconnect]
-     method mysignal1 = mysignal1#connect ~after
-     method mysignal2 = mysignal2#connect ~after
-   end
-
-   class mywidget obj = object (self)
-     inherit somewidget obj
-     val mysignal1 = new signal obj
-     val mysignal2 = new signal obj
-     method connect = new mywidget_signals obj ~mysignal1 ~mysignal2
-     method call1 = mysignal1#call
-     method call2 = mysignal2#call
-   end
-
-   You can also add ML signals to an arbitrary object; just inherit
-   from [ml_signals] in place of [widget_signals]+[add_ml_signals].
-
-   class mysignals ~mysignal1 ~mysignal2 = object
-     inherit ml_signals [mysignal1#disconnect; mysignal2#disconnect]
-     method mysignal1 = mysignal1#connect ~after
-     method mysignal2 = mysignal2#connect ~after
-   end
-*)
-
-(* The variable class provides an easy way to propagate state modifications.
-   A new variable is created by [new variable init]. The [#set] method just
-   calls the [set] signal, which by default only calls [real_set].
-   [real_set] sets the variable and calls [changed] when needed.
-   Deep equality is used to compare values, but check is only done if
-   there are callbacks for [changed].
-*)
-
-class ['a] variable_signals :
-  set:'a signal -> changed:'a signal ->
-  object ('b)
-    val after : bool
-    method after : 'b
-    method set : callback:('a -> unit) -> GtkSignal.id
-    method changed : callback:('a -> unit) -> GtkSignal.id
-    method disconnect : GtkSignal.id -> unit
-    val mutable disconnectors : (GtkSignal.id -> bool) list
-  end
-
-class ['a] variable : 'a ->
-  object
-    val set : 'a signal
-    val changed : 'a signal
-    val mutable x : 'a
-    method connect : 'a variable_signals
-    method get : 'a
-    method set : 'a -> unit
-    method private equal : 'a -> 'a -> bool
-    method private real_set : 'a -> unit
-  end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gWindow.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gWindow.ml
deleted file mode 100644 (file)
index 9ee3136..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gWindow.ml
+++ /dev/null
@@ -1,151 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkWindow
-open GtkMisc
-open GObj
-open GContainer
-
-class ['a] window_skel obj = object
-  constraint 'a = _ #window_skel
-  inherit container obj
-  method event = new GObj.event_ops obj
-  method as_window = Window.coerce obj
-  method activate_focus () = Window.activate_focus obj
-  method activate_default () = Window.activate_default obj
-  method add_accel_group = Window.add_accel_group obj
-  method set_modal = Window.set_modal obj
-  method set_default_size = Window.set_default_size obj
-  method set_position = Window.set_position obj
-  method set_resize_mode = Container.set_resize_mode obj
-  method set_transient_for (w : 'a) =
-    Window.set_transient_for obj w#as_window
-  method set_title = Window.set_title obj
-  method set_wm_name name = Window.set_wmclass obj ~name
-  method set_wm_class cls = Window.set_wmclass obj ~clas:cls
-  method set_allow_shrink allow_shrink = Window.set_policy obj ~allow_shrink
-  method set_allow_grow allow_grow = Window.set_policy obj ~allow_grow
-  method set_auto_shrink auto_shrink = Window.set_policy obj ~auto_shrink
-  method show () = Widget.show obj
-end
-
-class window obj = object
-  inherit [window] window_skel (Window.coerce obj)
-  method connect = new container_signals obj
-end
-
-let window ?kind:(t=`TOPLEVEL) ?title ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y
-    ?border_width ?width ?height ?(show=false) () =
-  let w = Window.create t in
-  Window.set w ?title ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y;
-  Container.set w ?border_width ?width ?height;
-  if show then Widget.show w;
-  new window w
-
-class dialog obj = object
-  inherit [window] window_skel (Dialog.coerce obj)
-  method connect = new container_signals obj
-  method action_area = new GPack.box (Dialog.action_area obj)
-  method vbox = new GPack.box (Dialog.vbox obj)
-end
-
-let dialog ?title ?wm_name ?wm_class ?position ?allow_shrink
-    ?allow_grow ?auto_shrink ?modal ?x ?y ?border_width ?width ?height
-    ?(show=false) () =
-  let w = Dialog.create () in
-  Window.set w ?title ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y;
-  Container.set w ?border_width ?width ?height;
-  if show then Widget.show w;
-  new dialog w
-
-class color_selection_dialog obj = object
-  inherit [window] window_skel (obj : Gtk.color_selection_dialog obj)
-  method connect = new container_signals obj
-  method ok_button =
-    new GButton.button (ColorSelection.ok_button obj)
-  method cancel_button =
-    new GButton.button (ColorSelection.cancel_button obj)
-  method help_button =
-    new GButton.button (ColorSelection.help_button obj)
-  method colorsel =
-    new GMisc.color_selection (ColorSelection.colorsel obj)
-end
-
-let color_selection_dialog ?(title="Pick a color")
-    ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y
-    ?border_width ?width ?height ?(show=false) () =
-  let w = ColorSelection.create_dialog title in
-  Window.set w ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y;
-  Container.set w ?border_width ?width ?height;
-  if show then Widget.show w;
-  new color_selection_dialog w
-
-class file_selection obj = object
-  inherit [window] window_skel (obj : Gtk.file_selection obj)
-  method connect = new container_signals obj
-  method set_filename = FileSelection.set_filename obj
-  method get_filename = FileSelection.get_filename obj
-  method set_fileop_buttons = FileSelection.set_fileop_buttons obj
-  method ok_button = new GButton.button (FileSelection.get_ok_button obj)
-  method cancel_button =
-    new GButton.button (FileSelection.get_cancel_button obj)
-  method help_button = new GButton.button (FileSelection.get_help_button obj)
-end
-
-let file_selection ?(title="Choose a file") ?filename
-    ?(fileop_buttons=false)
-    ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y
-    ?border_width ?width ?height ?(show=false) () =
-  let w = FileSelection.create title in
-  FileSelection.set w ?filename ~fileop_buttons;
-  Window.set w ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y;
-  Container.set w ?border_width ?width ?height;
-  if show then Widget.show w;
-  new file_selection w
-
-class font_selection_dialog obj = object
-  inherit [window] window_skel (obj : Gtk.font_selection_dialog obj)
-  method connect = new container_signals obj
-(*
-  method font = FontSelectionDialog.get_font obj
-  method font_name = FontSelectionDialog.get_font_name obj
-  method set_font_name = FontSelectionDialog.set_font_name obj
-  method preview_text = FontSelectionDialog.get_preview_text obj
-  method set_preview_text = FontSelectionDialog.set_preview_text obj
-  method set_filter = FontSelectionDialog.set_filter obj
-*)
-  method selection =
-    new GMisc.font_selection (FontSelectionDialog.font_selection obj)
-  method ok_button =  new GButton.button (FontSelectionDialog.ok_button obj)
-  method apply_button =
-    new GButton.button (FontSelectionDialog.apply_button obj)
-  method cancel_button =
-    new GButton.button (FontSelectionDialog.cancel_button obj)
-end
-
-let font_selection_dialog ?title ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y
-    ?border_width ?width ?height ?(show=false) () =
-  let w = FontSelectionDialog.create ?title () in
-  Window.set w ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y;
-  Container.set w ?border_width ?width ?height;
-  if show then Widget.show w;
-  new font_selection_dialog w
-
-class plug (obj : Gtk.plug obj) = window obj
-
-let plug ~window:xid ?border_width ?width ?height ?(show=false) () =
-  let w = Plug.create xid in
-  Container.set w ?border_width ?width ?height;
-  if show then Widget.show w;
-  new plug w

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gWindow.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gWindow.mli
deleted file mode 100644 (file)
index 4c89a76..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gWindow.mli
+++ /dev/null
@@ -1,156 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-
-class ['a] window_skel : 'b obj ->
-  object
-    inherit GContainer.container
-    constraint 'a = 'a #window_skel
-    constraint 'b = [>`widget|`container|`window]
-    val obj : 'b obj
-    method activate_default : unit -> unit
-    method activate_focus : unit -> unit
-    method add_accel_group : accel_group -> unit
-    method event : event_ops
-    method as_window : Gtk.window obj
-    method set_allow_grow : bool -> unit
-    method set_allow_shrink : bool -> unit
-    method set_auto_shrink : bool -> unit
-    method set_default_size : width:int -> height:int -> unit
-    method set_modal : bool -> unit
-    method set_position : Tags.window_position -> unit
-    method set_resize_mode : Tags.resize_mode -> unit
-    method set_title : string -> unit
-    method set_transient_for : 'a -> unit
-    method set_wm_class : string -> unit
-    method set_wm_name : string -> unit
-    method show : unit -> unit
-  end
-
-class window : [>`window] obj ->
-  object
-    inherit [window] window_skel
-    val obj : Gtk.window obj
-    method connect : GContainer.container_signals
-  end
-val window :
-  ?kind:Tags.window_type ->
-  ?title:string ->
-  ?wm_name:string ->
-  ?wm_class:string ->
-  ?position:Tags.window_position ->
-  ?allow_shrink:bool ->
-  ?allow_grow:bool ->
-  ?auto_shrink:bool ->
-  ?modal:bool ->
-  ?x:int ->
-  ?y:int ->
-  ?border_width:int ->
-  ?width:int -> ?height:int -> ?show:bool -> unit -> window
-
-class dialog : [>`dialog] obj ->
-  object
-    inherit [window] window_skel
-    val obj : Gtk.dialog obj
-    method action_area : GPack.box
-    method connect : GContainer.container_signals
-    method event : event_ops
-    method vbox : GPack.box
-  end
-val dialog :
-  ?title:string ->
-  ?wm_name:string ->
-  ?wm_class:string ->
-  ?position:Tags.window_position ->
-  ?allow_shrink:bool ->
-  ?allow_grow:bool ->
-  ?auto_shrink:bool ->
-  ?modal:bool ->
-  ?x:int ->
-  ?y:int ->
-  ?border_width:int ->
-  ?width:int -> ?height:int -> ?show:bool -> unit -> dialog
-
-class color_selection_dialog : Gtk.color_selection_dialog obj ->
-  object
-    inherit [window] window_skel
-    val obj : Gtk.color_selection_dialog obj
-    method cancel_button : GButton.button
-    method colorsel : GMisc.color_selection
-    method connect : GContainer.container_signals
-    method help_button : GButton.button
-    method ok_button : GButton.button
-  end
-val color_selection_dialog :
-  ?title:string ->
-  ?wm_name:string ->
-  ?wm_class:string ->
-  ?position:Tags.window_position ->
-  ?allow_shrink:bool ->
-  ?allow_grow:bool ->
-  ?auto_shrink:bool ->
-  ?modal:bool ->
-  ?x:int ->
-  ?y:int ->
-  ?border_width:int ->
-  ?width:int -> ?height:int -> ?show:bool -> unit -> color_selection_dialog
-
-class file_selection : Gtk.file_selection obj ->
-  object
-    inherit [window] window_skel
-    val obj : Gtk.file_selection obj
-    method cancel_button : GButton.button
-    method connect : GContainer.container_signals
-    method get_filename : string
-    method help_button : GButton.button
-    method ok_button : GButton.button
-    method set_filename : string -> unit
-    method set_fileop_buttons : bool -> unit
-  end
-val file_selection :
-  ?title:string ->
-  ?filename:string ->
-  ?fileop_buttons:bool ->
-  ?wm_name:string ->
-  ?wm_class:string ->
-  ?position:Tags.window_position ->
-  ?allow_shrink:bool ->
-  ?allow_grow:bool ->
-  ?auto_shrink:bool ->
-  ?modal:bool ->
-  ?x:int ->
-  ?y:int ->
-  ?border_width:int ->
-  ?width:int -> ?height:int -> ?show:bool -> unit -> file_selection
-
-class font_selection_dialog : Gtk.font_selection_dialog obj ->
-  object
-    inherit [window] window_skel
-    val obj : Gtk.font_selection_dialog obj
-    method apply_button : GButton.button
-    method cancel_button : GButton.button
-    method connect : GContainer.container_signals
-    method selection : GMisc.font_selection
-    method ok_button : GButton.button
-  end
-val font_selection_dialog :
-  ?title:string ->
-  ?wm_name:string ->
-  ?wm_class:string ->
-  ?position:Tags.window_position ->
-  ?allow_shrink:bool ->
-  ?allow_grow:bool ->
-  ?auto_shrink:bool ->
-  ?modal:bool ->
-  ?x:int ->
-  ?y:int ->
-  ?border_width:int ->
-  ?width:int -> ?height:int -> ?show:bool -> unit -> font_selection_dialog
-
-class plug : Gtk.plug obj -> window
-
-val plug :
-  window:Gdk.xid ->
-  ?border_width:int ->
-  ?width:int -> ?height:int -> ?show:bool -> unit -> plug

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gaux.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gaux.ml
deleted file mode 100644 (file)
index a117291..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gaux.ml
+++ /dev/null
@@ -1,17 +0,0 @@
-(* $Id$ *)
-
-(* Option handling *)
-
-let may ~f x =
-  match x with None -> ()
-  | Some x -> let _ = f x in ()
-
-let may_map ~f x =
-  match x with None -> None
-  | Some x -> Some (f x)
-
-let default x ~opt =
-  match opt with None -> x | Some y -> y
-
-let may_default f x ~opt =
-  match opt with None -> f x | Some y -> y

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gdk.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gdk.ml
deleted file mode 100644 (file)
index c22c4b5..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gdk.ml
+++ /dev/null
@@ -1,535 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-
-type colormap
-type visual
-type region
-type gc
-type 'a drawable
-type window = [`window] drawable
-type pixmap = [`pixmap] drawable
-type bitmap = [`bitmap] drawable
-type font
-type image
-type atom = int
-type keysym = int
-type 'a event
-type drag_context
-type cursor
-type xid = int32
-
-exception Error of string
-let _ = Callback.register_exception "gdkerror" (Error"")
-
-module Tags = struct
-  type event_type =
-    [ `NOTHING|`DELETE|`DESTROY|`EXPOSE|`MOTION_NOTIFY|`BUTTON_PRESS
-     |`TWO_BUTTON_PRESS|`THREE_BUTTON_PRESS
-     |`BUTTON_RELEASE|`KEY_PRESS
-     |`KEY_RELEASE|`ENTER_NOTIFY|`LEAVE_NOTIFY|`FOCUS_CHANGE
-     |`CONFIGURE|`MAP|`UNMAP|`PROPERTY_NOTIFY|`SELECTION_CLEAR
-     |`SELECTION_REQUEST|`SELECTION_NOTIFY|`PROXIMITY_IN
-     |`PROXIMITY_OUT|`DRAG_ENTER|`DRAG_LEAVE|`DRAG_MOTION|`DRAG_STATUS
-     |`DROP_START|`DROP_FINISHED|`CLIENT_EVENT|`VISIBILITY_NOTIFY
-     |`NO_EXPOSE ]
-
-  type event_mask =
-    [ `EXPOSURE
-     |`POINTER_MOTION|`POINTER_MOTION_HINT
-     |`BUTTON_MOTION|`BUTTON1_MOTION|`BUTTON2_MOTION|`BUTTON3_MOTION
-     |`BUTTON_PRESS|`BUTTON_RELEASE
-     |`KEY_PRESS|`KEY_RELEASE
-     |`ENTER_NOTIFY|`LEAVE_NOTIFY|`FOCUS_CHANGE
-     |`STRUCTURE|`PROPERTY_CHANGE|`VISIBILITY_NOTIFY
-     |`PROXIMITY_IN|`PROXIMITY_OUT|`SUBSTRUCTURE
-     |`ALL_EVENTS ]
-
-  type extension_events =
-    [ `NONE|`ALL|`CURSOR ]
-
-  type visibility_state =
-    [ `UNOBSCURED|`PARTIAL|`FULLY_OBSCURED ]
-
-  type input_source =
-    [ `MOUSE|`PEN|`ERASER|`CURSOR ]
-
-  type notify_type =
-    [ `ANCESTOR|`VIRTUAL|`INFERIOR|`NONLINEAR|`NONLINEAR_VIRTUAL|`UNKNOWN ] 
-
-  type crossing_mode =
-    [ `NORMAL|`GRAB|`UNGRAB ]
-
-  type modifier =
-    [ `SHIFT|`LOCK|`CONTROL|`MOD1|`MOD2|`MOD3|`MOD4|`MOD5|`BUTTON1
-     |`BUTTON2|`BUTTON3|`BUTTON4|`BUTTON5 ]
-
-  type drag_action =
-    [ `DEFAULT|`COPY|`MOVE|`LINK|`PRIVATE|`ASK ]
-
-end
-open Tags
-
-module Convert = struct
-  external test_modifier : modifier -> int -> bool
-      = "ml_test_GdkModifier_val"
-  let modifier i =
-    List.filter [`SHIFT;`LOCK;`CONTROL;`MOD1;`MOD2;`MOD3;`MOD4;`MOD5;
-                `BUTTON1;`BUTTON2;`BUTTON3;`BUTTON4;`BUTTON5]
-      ~f:(fun m -> test_modifier m i)
-end
-
-module Screen = struct
-  external width : unit -> int = "ml_gdk_screen_width"
-  external height : unit -> int = "ml_gdk_screen_height"
-end
-
-module Visual = struct
-  type visual_type =
-    [ `STATIC_GRAY|`GRAYSCALE|`STATIC_COLOR
-     |`PSEUDO_COLOR|`TRUE_COLOR|`DIRECT_COLOR ]
-
-  external get_best : ?depth:int -> ?kind:visual_type -> unit -> visual
-      = "ml_gdk_visual_get_best"
-  external get_type : visual -> visual_type = "ml_GdkVisual_type"
-  external depth : visual -> int = "ml_GdkVisual_depth"
-  external red_mask : visual -> int = "ml_GdkVisual_red_mask"
-  external red_shift : visual -> int = "ml_GdkVisual_red_shift"
-  external red_prec : visual -> int = "ml_GdkVisual_red_prec"
-  external green_mask : visual -> int = "ml_GdkVisual_green_mask"
-  external green_shift : visual -> int = "ml_GdkVisual_green_shift"
-  external green_prec : visual -> int = "ml_GdkVisual_green_prec"
-  external blue_mask : visual -> int = "ml_GdkVisual_blue_mask"
-  external blue_shift : visual -> int = "ml_GdkVisual_blue_shift"
-  external blue_prec : visual -> int = "ml_GdkVisual_blue_prec"
-end
-
-module Image = struct
-  type image_type =
-    [ `NORMAL|`SHARED|`FASTEST ] 
-
-  external create_bitmap : visual: visual -> data: string -> 
-    width: int -> height: int -> image 
-      = "ml_gdk_image_new_bitmap"
-  external create : kind: image_type -> visual: visual -> 
-    width: int -> height: int -> image
-      = "ml_gdk_image_new"
-  external get :
-      'a drawable -> x: int -> y: int -> width: int -> height: int -> image
-      = "ml_gdk_image_get"
-  external put_pixel : image -> x: int -> y: int -> pixel: int -> unit
-    = "ml_gdk_image_put_pixel"
-  external get_pixel : image -> x: int -> y: int -> int
-    = "ml_gdk_image_get_pixel"
-  external destroy : image -> unit
-    = "ml_gdk_image_destroy"
-end
-
-module Color = struct
-  type t
-
-  external color_white : colormap -> t = "ml_gdk_color_white"
-  external color_black : colormap -> t = "ml_gdk_color_black"
-  external color_parse : string -> t = "ml_gdk_color_parse"
-  external color_alloc : colormap -> t -> bool = "ml_gdk_color_alloc"
-  external color_create : red:int -> green:int -> blue:int -> t
-      = "ml_GdkColor"
-
-  external get_system_colormap : unit -> colormap
-      = "ml_gdk_colormap_get_system"
-  external colormap_new : visual -> privat:bool -> colormap
-      = "ml_gdk_colormap_new"
-  let get_colormap ?(privat=false) vis = colormap_new vis ~privat
-
-  type spec = [ `BLACK | `NAME of string | `RGB of int * int * int | `WHITE]
-  let color_alloc ~colormap color =
-    if not (color_alloc colormap color) then raise (Error"Color.alloc");
-    color
-  let alloc ~colormap color =
-    match color with
-      `WHITE -> color_white colormap
-    | `BLACK -> color_black colormap
-    | `NAME s -> color_alloc ~colormap (color_parse s)
-    | `RGB (red,green,blue) ->
-       color_alloc ~colormap (color_create ~red ~green ~blue)
-
-  external red : t -> int = "ml_GdkColor_red"
-  external blue : t -> int = "ml_GdkColor_blue"
-  external green : t -> int = "ml_GdkColor_green"
-  external pixel : t -> int = "ml_GdkColor_pixel"
-end
-
-module Rectangle = struct
-  type t
-  external create : x:int -> y:int -> width:int -> height:int -> t
-      = "ml_GdkRectangle"
-  external x : t -> int = "ml_GdkRectangle_x"
-  external y : t -> int = "ml_GdkRectangle_y"
-  external width : t -> int = "ml_GdkRectangle_width"
-  external height : t -> int = "ml_GdkRectangle_height"
-end
-
-module Window = struct
-  type background_pixmap = [ `NONE | `PARENT_RELATIVE | `PIXMAP of pixmap]
-  external visual_depth : visual -> int = "ml_gdk_visual_get_depth"
-  external get_visual : window -> visual = "ml_gdk_window_get_visual"
-  external get_parent : window -> window = "ml_gdk_window_get_parent"
-  external get_size : window -> int * int = "ml_gdk_window_get_size"
-  external get_position : window -> int * int =
-    "ml_gdk_window_get_position"
-  external root_parent : unit -> window = "ml_GDK_ROOT_PARENT"
-  external set_back_pixmap : window -> pixmap -> int -> unit = 
-    "ml_gdk_window_set_back_pixmap"
-  external clear : window -> unit = "ml_gdk_window_clear"
-  external get_xwindow : window -> xid = "ml_GDK_WINDOW_XWINDOW"
-
-  let set_back_pixmap w pix = 
-    let null_pixmap = (Obj.magic Gpointer.boxed_null : pixmap) in
-    match pix with
-      `NONE -> set_back_pixmap w null_pixmap 0
-    | `PARENT_RELATIVE -> set_back_pixmap w null_pixmap 1
-    | `PIXMAP(pixmap) -> set_back_pixmap w pixmap 0 
-       (* anything OK, Maybe... *) 
-end
-
-module PointArray = struct
-  type t = { len: int}
-  external create : len:int -> t = "ml_point_array_new"
-  external set : t -> pos:int -> x:int -> y:int -> unit = "ml_point_array_set"
-  let set arr ~pos =
-    if pos < 0 || pos >= arr.len then invalid_arg "PointArray.set";
-    set arr ~pos
-end
-
-module Region = struct
-  type gdkFillRule = [ `EVEN_ODD_RULE|`WINDING_RULE ]
-  type gdkOverlapType = [ `IN|`OUT|`PART ]
-  external create : unit -> region = "ml_gdk_region_new"
-  external destroy : region -> unit = "ml_gdk_region_destroy"
-  external polygon : PointArray.t -> gdkFillRule -> region 
-      = "ml_gdk_region_polygon"
-  let polygon l =
-    let len = List.length l in
-    let arr = PointArray.create ~len in
-    List.fold_left l ~init:0
-      ~f:(fun pos (x,y) -> PointArray.set arr ~pos ~x ~y; pos+1);
-    polygon arr    
-  external intersect : region -> region -> region
-      = "ml_gdk_regions_intersect"
-  external union : region -> region -> region 
-      = "ml_gdk_regions_union"
-  external subtract : region -> region -> region 
-      = "ml_gdk_regions_subtract"
-  external xor : region -> region -> region 
-      = "ml_gdk_regions_xor"
-  external union_with_rect : region -> Rectangle.t -> region
-      = "ml_gdk_region_union_with_rect"
-  external offset : region -> x:int -> y:int -> unit = "ml_gdk_region_offset"
-  external shrink : region -> x:int -> y:int -> unit = "ml_gdk_region_shrink"
-  external empty : region -> bool = "ml_gdk_region_empty"
-  external equal : region -> region -> bool = "ml_gdk_region_equal"
-  external point_in : region -> x:int -> y:int -> bool 
-      = "ml_gdk_region_point_in"
-  external rect_in : region -> Rectangle.t -> gdkOverlapType
-      = "ml_gdk_region_rect_in"
-  external get_clipbox : region -> Rectangle.t -> unit
-      = "ml_gdk_region_get_clipbox"
-end
-      
-
-module GC = struct
-  type gdkFunction = [ `COPY|`INVERT|`XOR ]
-  type gdkFill = [ `SOLID|`TILED|`STIPPLED|`OPAQUE_STIPPLED ]
-  type gdkSubwindowMode = [ `CLIP_BY_CHILDREN|`INCLUDE_INFERIORS ]
-  type gdkLineStyle = [ `SOLID|`ON_OFF_DASH|`DOUBLE_DASH ]
-  type gdkCapStyle = [ `NOT_LAST|`BUTT|`ROUND|`PROJECTING ]
-  type gdkJoinStyle = [ `MITER|`ROUND|`BEVEL ]
-  external create : 'a drawable -> gc = "ml_gdk_gc_new"
-  external set_foreground : gc -> Color.t -> unit = "ml_gdk_gc_set_foreground"
-  external set_background : gc -> Color.t -> unit = "ml_gdk_gc_set_background"
-  external set_font : gc -> font -> unit = "ml_gdk_gc_set_font"
-  external set_function : gc -> gdkFunction -> unit = "ml_gdk_gc_set_function"
-  external set_fill : gc -> gdkFill -> unit = "ml_gdk_gc_set_fill"
-  external set_tile : gc -> pixmap -> unit = "ml_gdk_gc_set_tile"
-  external set_stipple : gc -> pixmap -> unit = "ml_gdk_gc_set_stipple"
-  external set_ts_origin : gc -> x:int -> y:int -> unit
-      = "ml_gdk_gc_set_ts_origin"
-  external set_clip_origin : gc -> x:int -> y:int -> unit
-      = "ml_gdk_gc_set_clip_origin"
-  external set_clip_mask : gc -> bitmap -> unit = "ml_gdk_gc_set_clip_mask"
-  external set_clip_rectangle : gc -> Rectangle.t -> unit
-      = "ml_gdk_gc_set_clip_rectangle"
-  external set_clip_region : gc -> region -> unit = "ml_gdk_gc_set_clip_region"
-  external set_subwindow : gc -> gdkSubwindowMode -> unit
-      = "ml_gdk_gc_set_subwindow"
-  external set_exposures : gc -> bool -> unit = "ml_gdk_gc_set_exposures"
-  external set_line_attributes :
-      gc -> width:int -> style:gdkLineStyle -> cap:gdkCapStyle ->
-      join:gdkJoinStyle -> unit
-      = "ml_gdk_gc_set_line_attributes"
-  external copy : dst:gc -> gc -> unit = "ml_gdk_gc_copy"
-  type values = {
-      foreground : Color.t;
-      background : Color.t;
-      font : font option;
-      fonction : gdkFunction;
-      fill : gdkFill;
-      tile : pixmap option;
-      stipple : pixmap option;
-      clip_mask : bitmap option;
-      subwindow_mode : gdkSubwindowMode;
-      ts_x_origin : int;
-      ts_y_origin : int;
-      clip_x_origin : int;
-      clip_y_origin : int;
-      graphics_exposures : bool;
-      line_width : int;
-      line_style : gdkLineStyle;
-      cap_style : gdkCapStyle;
-      join_style : gdkJoinStyle;
-    }
-  external get_values : gc -> values = "ml_gdk_gc_get_values"
-end
-
-module Pixmap = struct
-  external create : window -> width:int -> height:int -> depth:int -> pixmap
-      = "ml_gdk_pixmap_new"
-  external create_from_data :
-      window -> string -> width:int -> height:int -> depth:int ->
-      fg:Color.t -> bg:Color.t -> pixmap
-      = "ml_gdk_pixmap_create_from_data_bc" "ml_gk_pixmap_create_from_data"
-  external create_from_xpm :
-      window -> ?colormap:colormap -> ?transparent:Color.t ->
-      file:string -> pixmap * bitmap
-      = "ml_gdk_pixmap_colormap_create_from_xpm"
-  external create_from_xpm_d :
-      window -> ?colormap:colormap -> ?transparent:Color.t ->
-      data:string array -> pixmap * bitmap
-      = "ml_gdk_pixmap_colormap_create_from_xpm_d"
-end
-
-module Bitmap = struct
-  let create : window -> width:int -> height:int -> bitmap =
-    Obj.magic (Pixmap.create ~depth:1)
-  external create_from_data :
-      window -> string -> width:int -> height:int -> bitmap
-      = "ml_gdk_bitmap_create_from_data"
-end
-
-module Font = struct
-  external load : string -> font = "ml_gdk_font_load"
-  external load_fontset : string -> font = "ml_gdk_fontset_load"
-  external string_width : font -> string -> int = "ml_gdk_string_width"
-  external char_width : font -> char -> int = "ml_gdk_char_width"
-  external string_height : font -> string -> int = "ml_gdk_string_height"
-  external char_height : font -> char -> int = "ml_gdk_char_height"
-  external string_measure : font -> string -> int = "ml_gdk_string_measure"
-  external char_measure : font -> char -> int = "ml_gdk_char_measure"
-  external get_type : font -> [`FONT | `FONTSET] = "ml_GdkFont_type"
-  external ascent : font -> int = "ml_GdkFont_ascent"
-  external descent : font -> int = "ml_GdkFont_descent"
-end
-
-module Draw = struct
-  external point : 'a drawable -> gc -> x:int -> y:int -> unit
-      = "ml_gdk_draw_point"
-  external line : 'a drawable -> gc -> x:int -> y:int -> x:int -> y:int -> unit
-      = "ml_gdk_draw_line_bc" "ml_gdk_draw_line"
-  external rectangle :
-      'a drawable -> gc ->
-      filled:bool -> x:int -> y:int -> width:int -> height:int -> unit
-      = "ml_gdk_draw_rectangle_bc" "ml_gdk_draw_rectangle"
-  let rectangle w gc ~x ~y ~width ~height ?(filled=false) () =
-    rectangle w gc ~x ~y ~width ~height ~filled
-  external arc :
-      'a drawable -> gc -> filled:bool -> x:int -> y:int ->
-      width:int -> height:int -> start:int -> angle:int -> unit
-      = "ml_gdk_draw_arc_bc" "ml_gdk_draw_arc"
-  let arc w gc ~x ~y ~width ~height ?(filled=false) ?(start=0.)
-      ?(angle=360.) () =
-    arc w gc ~x ~y ~width ~height ~filled
-      ~start:(truncate(start *. 64.))
-      ~angle:(truncate(angle *. 64.))
-  external polygon : 'a drawable -> gc -> filled:bool -> PointArray.t -> unit
-      = "ml_gdk_draw_polygon"
-  let polygon w gc ?(filled=false) l =
-    let len = List.length l in
-    let arr = PointArray.create ~len in
-    List.fold_left l ~init:0
-      ~f:(fun pos (x,y) -> PointArray.set arr ~pos ~x ~y; pos+1);
-    polygon w gc ~filled arr
-  external string : 'a drawable -> font: font -> gc -> x: int -> y: int ->
-    string: string -> unit
-      = "ml_gdk_draw_string_bc" "ml_gdk_draw_string"   
-  external image : 'a drawable -> gc -> image: image -> 
-    xsrc: int -> ysrc: int -> xdest: int -> ydest: int -> 
-    width: int -> height: int -> unit
-      = "ml_gdk_draw_image_bc" "ml_gdk_draw_image"
-end
-
-module Rgb = struct
-  external init : unit -> unit = "ml_gdk_rgb_init"
-  external get_visual : unit -> visual = "ml_gdk_rgb_get_visual"
-  external get_cmap : unit -> colormap = "ml_gdk_rgb_get_cmap"
-end
-
-module DnD = struct
-  external drag_status : drag_context -> drag_action list -> time:int -> unit
-      = "ml_gdk_drag_status"
-  external drag_context_suggested_action : drag_context -> drag_action
-      = "ml_GdkDragContext_suggested_action"
-  external drag_context_targets : drag_context -> atom list
-      = "ml_GdkDragContext_targets"
-end
-
-module Truecolor = struct
-  (* Truecolor quick color query *) 
-
-  type visual_shift_prec = {
-      red_shift : int;
-      red_prec : int;
-      green_shift : int;
-      green_prec : int;
-      blue_shift : int;
-      blue_prec : int
-    }
- 
-  let shift_prec visual = {
-    red_shift = Visual.red_shift visual;
-    red_prec = Visual.red_prec visual;
-    green_shift = Visual.green_shift visual;
-    green_prec = Visual.green_prec visual;
-    blue_shift = Visual.blue_shift visual;
-    blue_prec = Visual.blue_prec visual;
-  }
-
-  let color_creator visual =
-    match Visual.get_type visual with
-      `TRUE_COLOR | `DIRECT_COLOR ->
-       let shift_prec = shift_prec visual in
-       Format.eprintf "red : %d %d, "
-         shift_prec.red_shift shift_prec.red_prec;
-       Format.eprintf "green : %d %d, "
-         shift_prec.green_shift shift_prec.green_prec;
-       Format.eprintf "blue : %d %d"
-         shift_prec.blue_shift shift_prec.blue_prec;
-       Format.pp_print_newline Format.err_formatter ();
-       let red_lsr = 16 - shift_prec.red_prec
-       and green_lsr = 16 - shift_prec.green_prec
-       and blue_lsr = 16 - shift_prec.blue_prec in
-       fun ~red: red ~green: green ~blue: blue ->
-         (((red lsr red_lsr) lsl shift_prec.red_shift) lor 
-          ((green lsr green_lsr) lsl shift_prec.green_shift) lor
-          ((blue lsr blue_lsr) lsl shift_prec.blue_shift))
-    | _ -> raise (Invalid_argument "Gdk.Truecolor.color_creator")
-
-  let color_parser visual =
-    match Visual.get_type visual with
-      `TRUE_COLOR | `DIRECT_COLOR ->
-       let shift_prec = shift_prec visual in
-       let red_lsr = 16 - shift_prec.red_prec
-       and green_lsr = 16 - shift_prec.green_prec
-       and blue_lsr = 16 - shift_prec.blue_prec in
-       let mask = 1 lsl 16 - 1 in
-       fun pixel ->
-         ((pixel lsr shift_prec.red_shift) lsl red_lsr) land mask,
-         ((pixel lsr shift_prec.green_shift) lsl green_lsr) land mask,
-         ((pixel lsr shift_prec.blue_shift) lsl blue_lsr) land mask
-    | _ -> raise (Invalid_argument "Gdk.Truecolor.color_parser")
-end
-
-module X = struct
-  (* X related functions *)
-  external flush : unit -> unit
-      = "ml_gdk_flush"
-  external beep : unit -> unit
-      = "ml_gdk_beep"
-end
-
-module Cursor = struct
-  type cursor_type = [
-    | `X_CURSOR
-    | `ARROW
-    | `BASED_ARROW_DOWN
-    | `BASED_ARROW_UP
-    | `BOAT
-    | `BOGOSITY
-    | `BOTTOM_LEFT_CORNER
-    | `BOTTOM_RIGHT_CORNER
-    | `BOTTOM_SIDE
-    | `BOTTOM_TEE
-    | `BOX_SPIRAL
-    | `CENTER_PTR
-    | `CIRCLE
-    | `CLOCK
-    | `COFFEE_MUG
-    | `CROSS
-    | `CROSS_REVERSE
-    | `CROSSHAIR
-    | `DIAMOND_CROSS
-    | `DOT
-    | `DOTBOX
-    | `DOUBLE_ARROW
-    | `DRAFT_LARGE
-    | `DRAFT_SMALL
-    | `DRAPED_BOX
-    | `EXCHANGE
-    | `FLEUR
-    | `GOBBLER
-    | `GUMBY
-    | `HAND1
-    | `HAND2
-    | `HEART
-    | `ICON
-    | `IRON_CROSS
-    | `LEFT_PTR
-    | `LEFT_SIDE
-    | `LEFT_TEE
-    | `LEFTBUTTON
-    | `LL_ANGLE
-    | `LR_ANGLE
-    | `MAN
-    | `MIDDLEBUTTON
-    | `MOUSE
-    | `PENCIL
-    | `PIRATE
-    | `PLUS
-    | `QUESTION_ARROW
-    | `RIGHT_PTR
-    | `RIGHT_SIDE
-    | `RIGHT_TEE
-    | `RIGHTBUTTON
-    | `RTL_LOGO
-    | `SAILBOAT
-    | `SB_DOWN_ARROW
-    | `SB_H_DOUBLE_ARROW
-    | `SB_LEFT_ARROW
-    | `SB_RIGHT_ARROW
-    | `SB_UP_ARROW
-    | `SB_V_DOUBLE_ARROW
-    | `SHUTTLE
-    | `SIZING
-    | `SPIDER
-    | `SPRAYCAN
-    | `STAR
-    | `TARGET
-    | `TCROSS
-    | `TOP_LEFT_ARROW
-    | `TOP_LEFT_CORNER
-    | `TOP_RIGHT_CORNER
-    | `TOP_SIDE
-    | `TOP_TEE
-    | `TREK
-    | `UL_ANGLE
-    | `UMBRELLA
-    | `UR_ANGLE
-    | `WATCH
-    | `XTERM
-  ]
-  external create : cursor_type -> cursor = "ml_gdk_cursor_new"
-  external create_from_pixmap :
-    pixmap -> mask:bitmap ->
-    fg:Color.t -> bg:Color.t -> x:int -> y:int -> cursor
-    = "ml_gdk_cursor_new_from_pixmap_bc" "ml_gdk_cursor_new_from_pixmap"
-  external destroy : cursor -> unit = "ml_gdk_cursor_destroy"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gdk.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gdk.mli
deleted file mode 100644 (file)
index 2914b60..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gdk.mli
+++ /dev/null
@@ -1,447 +0,0 @@
-(* $Id$ *)
-
-type colormap
-type visual
-type region
-type gc
-type 'a drawable
-type window = [`window] drawable
-type pixmap = [`pixmap] drawable
-type bitmap = [`bitmap] drawable
-type font
-type image
-type atom = int
-type keysym = int
-type 'a event
-type drag_context
-type cursor
-type xid = int32
-
-exception Error of string
-
-module Tags : sig
-  type event_type =
-    [ `NOTHING|`DELETE|`DESTROY|`EXPOSE|`MOTION_NOTIFY|`BUTTON_PRESS
-     |`TWO_BUTTON_PRESS|`THREE_BUTTON_PRESS
-     |`BUTTON_RELEASE|`KEY_PRESS
-     |`KEY_RELEASE|`ENTER_NOTIFY|`LEAVE_NOTIFY|`FOCUS_CHANGE
-     |`CONFIGURE|`MAP|`UNMAP|`PROPERTY_NOTIFY|`SELECTION_CLEAR
-     |`SELECTION_REQUEST|`SELECTION_NOTIFY|`PROXIMITY_IN
-     |`PROXIMITY_OUT|`DRAG_ENTER|`DRAG_LEAVE|`DRAG_MOTION|`DRAG_STATUS
-     |`DROP_START|`DROP_FINISHED|`CLIENT_EVENT|`VISIBILITY_NOTIFY
-     |`NO_EXPOSE ]
-  type event_mask =
-    [ `EXPOSURE
-     |`POINTER_MOTION|`POINTER_MOTION_HINT
-     |`BUTTON_MOTION|`BUTTON1_MOTION|`BUTTON2_MOTION|`BUTTON3_MOTION
-     |`BUTTON_PRESS|`BUTTON_RELEASE
-     |`KEY_PRESS|`KEY_RELEASE
-     |`ENTER_NOTIFY|`LEAVE_NOTIFY|`FOCUS_CHANGE
-     |`STRUCTURE|`PROPERTY_CHANGE|`VISIBILITY_NOTIFY
-     |`PROXIMITY_IN|`PROXIMITY_OUT|`SUBSTRUCTURE
-     |`ALL_EVENTS ]
-  type extension_events = [ `NONE|`ALL|`CURSOR ]
-  type visibility_state = [ `UNOBSCURED|`PARTIAL|`FULLY_OBSCURED ]
-  type input_source = [ `MOUSE|`PEN|`ERASER|`CURSOR ]
-  type notify_type =
-    [ `ANCESTOR|`VIRTUAL|`INFERIOR|`NONLINEAR|`NONLINEAR_VIRTUAL|`UNKNOWN ] 
-  type crossing_mode = [ `NORMAL|`GRAB|`UNGRAB ]
-  type modifier =
-    [ `SHIFT|`LOCK|`CONTROL|`MOD1|`MOD2|`MOD3|`MOD4|`MOD5|`BUTTON1
-     |`BUTTON2|`BUTTON3|`BUTTON4|`BUTTON5 ]
-  type drag_action = [ `DEFAULT|`COPY|`MOVE|`LINK|`PRIVATE|`ASK ]
-end
-
-module Convert :
-  sig
-    val modifier : int -> Tags.modifier list
-  end
-
-module Screen :
-  sig
-    external width : unit -> int = "ml_gdk_screen_width"
-    external height : unit -> int = "ml_gdk_screen_height"
-  end
-
-module Visual :
-  sig
-    type visual_type =
-      [ `STATIC_GRAY|`GRAYSCALE|`STATIC_COLOR
-       |`PSEUDO_COLOR|`TRUE_COLOR|`DIRECT_COLOR ]
-    external get_best : ?depth:int -> ?kind:visual_type -> unit -> visual
-        = "ml_gdk_visual_get_best"
-    external get_type : visual -> visual_type = "ml_GdkVisual_type"
-    external depth : visual -> int = "ml_GdkVisual_depth"
-    external red_mask : visual -> int = "ml_GdkVisual_red_mask"
-    external red_shift : visual -> int = "ml_GdkVisual_red_shift"
-    external red_prec : visual -> int = "ml_GdkVisual_red_prec"
-    external green_mask : visual -> int = "ml_GdkVisual_green_mask"
-    external green_shift : visual -> int = "ml_GdkVisual_green_shift"
-    external green_prec : visual -> int = "ml_GdkVisual_green_prec"
-    external blue_mask : visual -> int = "ml_GdkVisual_blue_mask"
-    external blue_shift : visual -> int = "ml_GdkVisual_blue_shift"
-    external blue_prec : visual -> int = "ml_GdkVisual_blue_prec"
-  end
-
-module Image :
-  sig
-    type image_type = [ `FASTEST|`NORMAL|`SHARED ]
-    external create_bitmap :
-      visual:visual -> data:string -> width:int -> height:int -> image
-      = "ml_gdk_image_new_bitmap"
-    external create :
-      kind:image_type ->
-      visual:visual -> width:int -> height:int -> image = "ml_gdk_image_new"
-    external get :
-      'a drawable -> x:int -> y:int -> width:int -> height:int -> image
-      = "ml_gdk_image_get"
-    external put_pixel : image -> x:int -> y:int -> pixel:int -> unit
-      = "ml_gdk_image_put_pixel"
-    external get_pixel : image -> x:int -> y:int -> int
-      = "ml_gdk_image_get_pixel"
-    external destroy : image -> unit = "ml_gdk_image_destroy"
-  end
-
-module Color :
-  sig
-    external get_system_colormap : unit -> colormap
-       = "ml_gdk_colormap_get_system"
-    val get_colormap : ?privat:bool -> visual -> colormap
-
-    type t
-    type spec = [
-      | `BLACK
-      | `NAME of string
-      | `RGB of int * int * int
-      | `WHITE
-    ]
-    val alloc : colormap:colormap -> spec -> t
-    external red : t -> int = "ml_GdkColor_red"
-    external blue : t -> int = "ml_GdkColor_blue"
-    external green : t -> int = "ml_GdkColor_green"
-    external pixel : t -> int = "ml_GdkColor_pixel"
-  end
-
-module Rectangle :
-  sig
-    type t
-    external create : x:int -> y:int -> width:int -> height:int -> t
-      = "ml_GdkRectangle"
-    external x : t -> int = "ml_GdkRectangle_x"
-    external y : t -> int = "ml_GdkRectangle_y"
-    external width : t -> int = "ml_GdkRectangle_width"
-    external height : t -> int = "ml_GdkRectangle_height"
-  end
-
-module Window :
-  sig
-    type background_pixmap = [ `NONE|`PARENT_RELATIVE|`PIXMAP of pixmap ]
-    external visual_depth : visual -> int = "ml_gdk_visual_get_depth"
-    external get_visual : window -> visual = "ml_gdk_window_get_visual"
-    external get_parent : window -> window = "ml_gdk_window_get_parent"
-    external get_size : window -> int * int = "ml_gdk_window_get_size"
-    external get_position : window -> int * int
-      = "ml_gdk_window_get_position"
-    external root_parent : unit -> window = "ml_GDK_ROOT_PARENT"
-    external clear : window -> unit = "ml_gdk_window_clear"
-    external get_xwindow : window -> xid = "ml_GDK_WINDOW_XWINDOW"
-    val set_back_pixmap : window -> background_pixmap -> unit
-  end
-
-module PointArray :
-  sig
-    type t = { len: int }
-    external create : len:int -> t = "ml_point_array_new"
-    val set : t -> pos:int -> x:int -> y:int -> unit
-  end
-
-module Region :
-  sig
-    type gdkFillRule = [ `EVEN_ODD_RULE|`WINDING_RULE ]
-    type gdkOverlapType = [ `IN|`OUT|`PART ]
-    external create : unit -> region = "ml_gdk_region_new"
-    external destroy : region -> unit = "ml_gdk_region_destroy"
-    val polygon : (int * int) list -> gdkFillRule -> region 
-    external intersect : region -> region -> region
-      = "ml_gdk_regions_intersect"
-    external union : region -> region -> region 
-      = "ml_gdk_regions_union"
-    external subtract : region -> region -> region 
-      = "ml_gdk_regions_subtract"
-    external xor : region -> region -> region 
-      = "ml_gdk_regions_xor"
-    external union_with_rect : region -> Rectangle.t -> region
-      = "ml_gdk_region_union_with_rect"
-    external offset : region -> x:int -> y:int -> unit = "ml_gdk_region_offset"
-    external shrink : region -> x:int -> y:int -> unit = "ml_gdk_region_shrink"
-    external empty : region -> bool = "ml_gdk_region_empty"
-    external equal : region -> region -> bool = "ml_gdk_region_equal"
-    external point_in : region -> x:int -> y:int -> bool 
-      = "ml_gdk_region_point_in"
-    external rect_in : region -> Rectangle.t -> gdkOverlapType
-      = "ml_gdk_region_rect_in"
-    external get_clipbox : region -> Rectangle.t -> unit
-      = "ml_gdk_region_get_clipbox"
-  end
-
-module GC :
-  sig
-    type gdkFunction = [ `COPY|`INVERT|`XOR ]
-    type gdkFill = [ `SOLID|`TILED|`STIPPLED|`OPAQUE_STIPPLED ]
-    type gdkSubwindowMode = [ `CLIP_BY_CHILDREN|`INCLUDE_INFERIORS ]
-    type gdkLineStyle = [ `SOLID|`ON_OFF_DASH|`DOUBLE_DASH ]
-    type gdkCapStyle = [ `NOT_LAST|`BUTT|`ROUND|`PROJECTING ]
-    type gdkJoinStyle = [ `MITER|`ROUND|`BEVEL ]
-    external create : 'a drawable -> gc = "ml_gdk_gc_new"
-    external set_foreground : gc -> Color.t -> unit
-      = "ml_gdk_gc_set_foreground"
-    external set_background : gc -> Color.t -> unit
-      = "ml_gdk_gc_set_background"
-    external set_font : gc -> font -> unit = "ml_gdk_gc_set_font"
-    external set_function : gc -> gdkFunction -> unit
-      = "ml_gdk_gc_set_function"
-    external set_fill : gc -> gdkFill -> unit = "ml_gdk_gc_set_fill"
-    external set_tile : gc -> pixmap -> unit = "ml_gdk_gc_set_tile"
-    external set_stipple : gc -> pixmap -> unit = "ml_gdk_gc_set_stipple"
-    external set_ts_origin : gc -> x:int -> y:int -> unit
-      = "ml_gdk_gc_set_ts_origin"
-    external set_clip_origin : gc -> x:int -> y:int -> unit
-      = "ml_gdk_gc_set_clip_origin"
-    external set_clip_mask : gc -> bitmap -> unit = "ml_gdk_gc_set_clip_mask"
-    external set_clip_rectangle : gc -> Rectangle.t -> unit
-      = "ml_gdk_gc_set_clip_rectangle"
-    external set_clip_region : gc -> region -> unit
-       = "ml_gdk_gc_set_clip_region"
-    external set_subwindow : gc -> gdkSubwindowMode -> unit
-      = "ml_gdk_gc_set_subwindow"
-    external set_exposures : gc -> bool -> unit = "ml_gdk_gc_set_exposures"
-    external set_line_attributes :
-      gc ->
-      width:int ->
-      style:gdkLineStyle -> cap:gdkCapStyle -> join:gdkJoinStyle -> unit
-      = "ml_gdk_gc_set_line_attributes"
-    external copy : dst:gc -> gc -> unit = "ml_gdk_gc_copy"
-    type values = {
-        foreground : Color.t;
-        background : Color.t;
-        font : font option;
-        fonction : gdkFunction;
-        fill : gdkFill;
-        tile : pixmap option;
-        stipple : pixmap option;
-        clip_mask : bitmap option;
-        subwindow_mode : gdkSubwindowMode;
-        ts_x_origin : int;
-        ts_y_origin : int;
-        clip_x_origin : int;
-        clip_y_origin : int;
-        graphics_exposures : bool;
-        line_width : int;
-        line_style : gdkLineStyle;
-        cap_style : gdkCapStyle;
-        join_style : gdkJoinStyle;
-      }
-    external get_values : gc -> values = "ml_gdk_gc_get_values"
-  end
-
-module Pixmap :
-  sig
-    external create :
-      window -> width:int -> height:int -> depth:int -> pixmap
-      = "ml_gdk_pixmap_new"
-    external create_from_data :
-      window ->
-      string ->
-      width:int ->
-      height:int -> depth:int -> fg:Color.t -> bg:Color.t -> pixmap
-      = "ml_gdk_pixmap_create_from_data_bc" "ml_gk_pixmap_create_from_data"
-    external create_from_xpm :
-      window ->
-      ?colormap:colormap ->
-      ?transparent:Color.t -> file:string -> pixmap * bitmap
-      = "ml_gdk_pixmap_colormap_create_from_xpm"
-    external create_from_xpm_d :
-      window ->
-      ?colormap:colormap ->
-      ?transparent:Color.t -> data:string array -> pixmap * bitmap
-      = "ml_gdk_pixmap_colormap_create_from_xpm_d"
-  end
-
-module Bitmap :
-  sig
-    val create : window -> width:int -> height:int -> bitmap
-    external create_from_data :
-      window -> string -> width:int -> height:int -> bitmap
-      = "ml_gdk_bitmap_create_from_data"
-  end
-
-module Font :
-  sig
-    external load : string -> font = "ml_gdk_font_load"
-    external load_fontset : string -> font = "ml_gdk_fontset_load"
-    external string_width : font -> string -> int = "ml_gdk_string_width"
-    external char_width : font -> char -> int = "ml_gdk_char_width"
-    external string_height : font -> string -> int = "ml_gdk_string_height"
-    external char_height : font -> char -> int = "ml_gdk_char_height"
-    external string_measure : font -> string -> int = "ml_gdk_string_measure"
-    external char_measure : font -> char -> int = "ml_gdk_char_measure"
-    external get_type : font -> [`FONT | `FONTSET] = "ml_GdkFont_type"
-    external ascent : font -> int = "ml_GdkFont_ascent"
-    external descent : font -> int = "ml_GdkFont_descent"
-  end
-
-module Draw :
-  sig
-    external point : 'a drawable -> gc -> x:int -> y:int -> unit
-      = "ml_gdk_draw_point"
-    external line :
-      'a drawable -> gc -> x:int -> y:int -> x:int -> y:int -> unit
-      = "ml_gdk_draw_line_bc" "ml_gdk_draw_line"
-    val rectangle :
-      'a drawable -> gc ->
-      x:int -> y:int -> width:int -> height:int -> ?filled:bool -> unit -> unit
-    val arc :
-      'a drawable -> gc ->
-      x:int -> y:int -> width:int -> height:int ->
-      ?filled:bool -> ?start:float -> ?angle:float -> unit -> unit
-    val polygon :
-      'a drawable -> gc -> ?filled:bool ->(int * int) list -> unit
-    external string :
-      'a drawable ->
-      font:font -> gc -> x:int -> y:int -> string:string -> unit
-      = "ml_gdk_draw_string_bc" "ml_gdk_draw_string"
-    external image :
-      'a drawable ->
-      gc ->
-      image:image ->
-      xsrc:int ->
-      ysrc:int -> xdest:int -> ydest:int -> width:int -> height:int -> unit
-      = "ml_gdk_draw_image_bc" "ml_gdk_draw_image"
-  end
-
-module Rgb :
-  sig
-    external init : unit -> unit = "ml_gdk_rgb_init"
-    external get_visual : unit -> visual = "ml_gdk_rgb_get_visual"
-    external get_cmap : unit -> colormap = "ml_gdk_rgb_get_cmap"
-  end
-
-module DnD :
-  sig
-    external drag_status :
-      drag_context -> Tags.drag_action list -> time:int -> unit
-      = "ml_gdk_drag_status"
-    external drag_context_suggested_action : drag_context -> Tags.drag_action
-      = "ml_GdkDragContext_suggested_action"
-    external drag_context_targets : drag_context -> atom list
-      = "ml_GdkDragContext_targets"
-  end
-
-module Truecolor :
-  sig
-    val color_creator : visual -> (red: int -> green: int -> blue: int -> int)
-       (* [color_creator visual] creates a function to calculate 
-          the pixel color id for given red, green and blue component 
-          value ([0..65535]) at the client side. [visual] must have 
-           `TRUE_COLOR or `DIRECT_COLOR type. This function improves
-           the speed of the color query of true color visual greatly. *)
-       (* WARN: this approach is not theoretically correct for true color
-          visual, because we need gamma correction. *)
-
-    val color_parser : visual -> int -> int * int * int
-  end
-
-module X :
-  (* X related functions *)
-  sig
-    val flush : unit -> unit (* also in GtkMain *)
-    val beep : unit -> unit
-  end
-
-module Cursor : sig
-  type cursor_type = [
-    | `X_CURSOR
-    | `ARROW
-    | `BASED_ARROW_DOWN
-    | `BASED_ARROW_UP
-    | `BOAT
-    | `BOGOSITY
-    | `BOTTOM_LEFT_CORNER
-    | `BOTTOM_RIGHT_CORNER
-    | `BOTTOM_SIDE
-    | `BOTTOM_TEE
-    | `BOX_SPIRAL
-    | `CENTER_PTR
-    | `CIRCLE
-    | `CLOCK
-    | `COFFEE_MUG
-    | `CROSS
-    | `CROSS_REVERSE
-    | `CROSSHAIR
-    | `DIAMOND_CROSS
-    | `DOT
-    | `DOTBOX
-    | `DOUBLE_ARROW
-    | `DRAFT_LARGE
-    | `DRAFT_SMALL
-    | `DRAPED_BOX
-    | `EXCHANGE
-    | `FLEUR
-    | `GOBBLER
-    | `GUMBY
-    | `HAND1
-    | `HAND2
-    | `HEART
-    | `ICON
-    | `IRON_CROSS
-    | `LEFT_PTR
-    | `LEFT_SIDE
-    | `LEFT_TEE
-    | `LEFTBUTTON
-    | `LL_ANGLE
-    | `LR_ANGLE
-    | `MAN
-    | `MIDDLEBUTTON
-    | `MOUSE
-    | `PENCIL
-    | `PIRATE
-    | `PLUS
-    | `QUESTION_ARROW
-    | `RIGHT_PTR
-    | `RIGHT_SIDE
-    | `RIGHT_TEE
-    | `RIGHTBUTTON
-    | `RTL_LOGO
-    | `SAILBOAT
-    | `SB_DOWN_ARROW
-    | `SB_H_DOUBLE_ARROW
-    | `SB_LEFT_ARROW
-    | `SB_RIGHT_ARROW
-    | `SB_UP_ARROW
-    | `SB_V_DOUBLE_ARROW
-    | `SHUTTLE
-    | `SIZING
-    | `SPIDER
-    | `SPRAYCAN
-    | `STAR
-    | `TARGET
-    | `TCROSS
-    | `TOP_LEFT_ARROW
-    | `TOP_LEFT_CORNER
-    | `TOP_RIGHT_CORNER
-    | `TOP_SIDE
-    | `TOP_TEE
-    | `TREK
-    | `UL_ANGLE
-    | `UMBRELLA
-    | `UR_ANGLE
-    | `WATCH
-    | `XTERM
-  ]
-  external create : cursor_type -> cursor = "ml_gdk_cursor_new"
-  external create_from_pixmap :
-    pixmap -> mask:bitmap ->
-    fg:Color.t -> bg:Color.t -> x:int -> y:int -> cursor
-    = "ml_gdk_cursor_new_from_pixmap_bc" "ml_gdk_cursor_new_from_pixmap"
-  external destroy : cursor -> unit = "ml_gdk_cursor_destroy"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gdkEvent.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gdkEvent.ml
deleted file mode 100644 (file)
index 87c0e88..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gdkEvent.ml
+++ /dev/null
@@ -1,159 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gdk
-open Tags
-
-external coerce : 'a event -> event_type event = "%identity"
-external unsafe_copy : Gpointer.boxed -> #event_type event
-    = "ml_gdk_event_copy"
-external copy : (#event_type as 'a) event -> 'a event
-    = "ml_gdk_event_copy"
-external get_type : 'a event -> 'a = "ml_GdkEventAny_type"
-external get_window : 'a event -> window = "ml_GdkEventAny_window"
-external get_send_event : 'a event -> bool = "ml_GdkEventAny_send_event"
-
-external create : (#event_type as 'a) -> 'a event
-    = "ml_gdk_event_new"
-external set_window : 'a event -> window -> unit
-    = "ml_gdk_event_set_window"
-
-module Expose = struct
-  type t = [ `EXPOSE ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with `EXPOSE -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Expose.cast"
-  external area : t -> Rectangle.t = "ml_GdkEventExpose_area"
-  external count : t -> int = "ml_GdkEventExpose_count"
-end
-
-module Visibility = struct
-  type t = [ `VISIBILITY_NOTIFY ] event
-  let cast (ev :  event_type event) : t =
-    match get_type ev with `VISIBILITY_NOTIFY -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Visibility.cast"
-  external visibility : t -> visibility_state
-      = "ml_GdkEventVisibility_state"
-end
-
-module Motion = struct
-  type t = [ `MOTION_NOTIFY ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with `MOTION_NOTIFY -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Motion.cast"
-  external time : t -> int = "ml_GdkEventMotion_time"
-  external x : t -> float = "ml_GdkEventMotion_x"
-  external y : t -> float = "ml_GdkEventMotion_y"
-  external pressure : t -> float = "ml_GdkEventMotion_pressure"
-  external xtilt : t -> float = "ml_GdkEventMotion_xtilt"
-  external ytilt : t -> float = "ml_GdkEventMotion_ytilt"
-  external state : t -> int = "ml_GdkEventMotion_state"
-  external is_hint : t -> bool = "ml_GdkEventMotion_is_hint"
-  external source : t -> input_source = "ml_GdkEventMotion_source"
-  external deviceid : t -> int = "ml_GdkEventMotion_deviceid"
-  external x_root : t -> float = "ml_GdkEventMotion_x_root"
-  external y_root : t -> float = "ml_GdkEventMotion_y_root"
-end
-
-module Button = struct
-  type types =
-      [ `BUTTON_PRESS|`TWO_BUTTON_PRESS|`THREE_BUTTON_PRESS|`BUTTON_RELEASE ]
-  type t = types event
-  let cast (ev : event_type event) : t =
-    match get_type ev with
-      `BUTTON_PRESS|`TWO_BUTTON_PRESS|`THREE_BUTTON_PRESS|`BUTTON_RELEASE
-      -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Button.cast"
-  external time : t -> int = "ml_GdkEventButton_time"
-  external x : t -> float = "ml_GdkEventButton_x"
-  external y : t -> float = "ml_GdkEventButton_y"
-  external pressure : t -> float = "ml_GdkEventButton_pressure"
-  external xtilt : t -> float = "ml_GdkEventButton_xtilt"
-  external ytilt : t -> float = "ml_GdkEventButton_ytilt"
-  external state : t -> int = "ml_GdkEventButton_state"
-  external button : t -> int = "ml_GdkEventButton_button"
-  external source : t -> input_source = "ml_GdkEventButton_source"
-  external deviceid : t -> int = "ml_GdkEventButton_deviceid"
-  external x_root : t -> float = "ml_GdkEventButton_x_root"
-  external y_root : t -> float = "ml_GdkEventButton_y_root"
-  external set_type : t -> #types -> unit
-      = "ml_gdk_event_set_type"
-  external set_button : t -> int -> unit
-      = "ml_gdk_event_button_set_button"
-end
-
-module Key = struct
-  type t = [ `KEY_PRESS|`KEY_RELEASE ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with
-      `KEY_PRESS|`KEY_RELEASE -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Key.cast"
-  external time : t -> int = "ml_GdkEventKey_time"
-  external state : t -> int = "ml_GdkEventKey_state"
-  external keyval : t -> keysym = "ml_GdkEventKey_keyval"
-  external string : t -> string = "ml_GdkEventKey_string"
-  let state ev = Convert.modifier (state ev)
-end
-
-module Crossing = struct
-  type t = [ `ENTER_NOTIFY|`LEAVE_NOTIFY ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with
-      `ENTER_NOTIFY|`LEAVE_NOTIFY -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Crossing.cast"
-  external subwindow : t -> window = "ml_GdkEventCrossing_subwindow"
-  external detail : t -> notify_type = "ml_GdkEventCrossing_detail"
-end
-
-module Focus = struct
-  type t = [ `FOCUS_CHANGE ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with `FOCUS_CHANGE -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Focus.cast"
-  external focus_in : t -> bool = "ml_GdkEventFocus_in"
-end
-
-module Configure = struct
-  type t = [ `CONFIGURE ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with `CONFIGURE -> Obj.magic ev
-    |  _ -> invalid_arg "GdkEvent.Configure.cast"
-  external x : t -> int = "ml_GdkEventConfigure_x"
-  external y : t -> int = "ml_GdkEventConfigure_y"
-  external width : t -> int = "ml_GdkEventConfigure_width"
-  external height : t -> int = "ml_GdkEventConfigure_height"
-end
-
-module Property = struct
-  type t = [ `PROPERTY_NOTIFY ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with `PROPERTY_NOTIFY -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Property.cast"
-  external atom : t -> atom = "ml_GdkEventProperty_atom"
-  external time : t -> int = "ml_GdkEventProperty_time"
-  external state : t -> int = "ml_GdkEventProperty_state"
-end
-
-module Selection = struct
-  type t = [ `SELECTION_CLEAR|`SELECTION_REQUEST|`SELECTION_NOTIFY ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with
-      `SELECTION_CLEAR|`SELECTION_REQUEST|`SELECTION_NOTIFY -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Selection.cast"
-  external selection : t -> atom = "ml_GdkEventSelection_selection"
-  external target : t -> atom = "ml_GdkEventSelection_target"
-  external property : t -> atom = "ml_GdkEventSelection_property"
-  external requestor : t -> int = "ml_GdkEventSelection_requestor"
-  external time : t -> int = "ml_GdkEventSelection_time"
-end
-
-module Proximity = struct
-  type t = [ `PROXIMITY_IN|`PROXIMITY_OUT ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with
-      `PROXIMITY_IN|`PROXIMITY_OUT -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Proximity.cast"
-  external time : t -> int = "ml_GdkEventProximity_time"
-  external source : t -> input_source = "ml_GdkEventProximity_source"
-  external deviceid : t -> int = "ml_GdkEventProximity_deviceid"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gdkKeysyms.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gdkKeysyms.ml
deleted file mode 100644 (file)
index b0257b4..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gdkKeysyms.ml
+++ /dev/null
@@ -1,1320 +0,0 @@
-(* $Id$ *)
-
-open Gdk
-let _VoidSymbol : keysym = 0xFFFFFF
-let _BackSpace : keysym = 0xFF08
-let _Tab : keysym = 0xFF09
-let _Linefeed : keysym = 0xFF0A
-let _Clear : keysym = 0xFF0B
-let _Return : keysym = 0xFF0D
-let _Pause : keysym = 0xFF13
-let _Scroll_Lock : keysym = 0xFF14
-let _Sys_Req : keysym = 0xFF15
-let _Escape : keysym = 0xFF1B
-let _Delete : keysym = 0xFFFF
-let _Multi_key : keysym = 0xFF20
-let _SingleCandidate : keysym = 0xFF3C
-let _MultipleCandidate : keysym = 0xFF3D
-let _PreviousCandidate : keysym = 0xFF3E
-let _Kanji : keysym = 0xFF21
-let _Muhenkan : keysym = 0xFF22
-let _Henkan_Mode : keysym = 0xFF23
-let _Henkan : keysym = 0xFF23
-let _Romaji : keysym = 0xFF24
-let _Hiragana : keysym = 0xFF25
-let _Katakana : keysym = 0xFF26
-let _Hiragana_Katakana : keysym = 0xFF27
-let _Zenkaku : keysym = 0xFF28
-let _Hankaku : keysym = 0xFF29
-let _Zenkaku_Hankaku : keysym = 0xFF2A
-let _Touroku : keysym = 0xFF2B
-let _Massyo : keysym = 0xFF2C
-let _Kana_Lock : keysym = 0xFF2D
-let _Kana_Shift : keysym = 0xFF2E
-let _Eisu_Shift : keysym = 0xFF2F
-let _Eisu_toggle : keysym = 0xFF30
-let _Zen_Koho : keysym = 0xFF3D
-let _Mae_Koho : keysym = 0xFF3E
-let _Home : keysym = 0xFF50
-let _Left : keysym = 0xFF51
-let _Up : keysym = 0xFF52
-let _Right : keysym = 0xFF53
-let _Down : keysym = 0xFF54
-let _Prior : keysym = 0xFF55
-let _Page_Up : keysym = 0xFF55
-let _Next : keysym = 0xFF56
-let _Page_Down : keysym = 0xFF56
-let _End : keysym = 0xFF57
-let _Begin : keysym = 0xFF58
-let _Select : keysym = 0xFF60
-let _Print : keysym = 0xFF61
-let _Execute : keysym = 0xFF62
-let _Insert : keysym = 0xFF63
-let _Undo : keysym = 0xFF65
-let _Redo : keysym = 0xFF66
-let _Menu : keysym = 0xFF67
-let _Find : keysym = 0xFF68
-let _Cancel : keysym = 0xFF69
-let _Help : keysym = 0xFF6A
-let _Break : keysym = 0xFF6B
-let _Mode_switch : keysym = 0xFF7E
-let _script_switch : keysym = 0xFF7E
-let _Num_Lock : keysym = 0xFF7F
-let _KP_Space : keysym = 0xFF80
-let _KP_Tab : keysym = 0xFF89
-let _KP_Enter : keysym = 0xFF8D
-let _KP_F1 : keysym = 0xFF91
-let _KP_F2 : keysym = 0xFF92
-let _KP_F3 : keysym = 0xFF93
-let _KP_F4 : keysym = 0xFF94
-let _KP_Home : keysym = 0xFF95
-let _KP_Left : keysym = 0xFF96
-let _KP_Up : keysym = 0xFF97
-let _KP_Right : keysym = 0xFF98
-let _KP_Down : keysym = 0xFF99
-let _KP_Prior : keysym = 0xFF9A
-let _KP_Page_Up : keysym = 0xFF9A
-let _KP_Next : keysym = 0xFF9B
-let _KP_Page_Down : keysym = 0xFF9B
-let _KP_End : keysym = 0xFF9C
-let _KP_Begin : keysym = 0xFF9D
-let _KP_Insert : keysym = 0xFF9E
-let _KP_Delete : keysym = 0xFF9F
-let _KP_Equal : keysym = 0xFFBD
-let _KP_Multiply : keysym = 0xFFAA
-let _KP_Add : keysym = 0xFFAB
-let _KP_Separator : keysym = 0xFFAC
-let _KP_Subtract : keysym = 0xFFAD
-let _KP_Decimal : keysym = 0xFFAE
-let _KP_Divide : keysym = 0xFFAF
-let _KP_0 : keysym = 0xFFB0
-let _KP_1 : keysym = 0xFFB1
-let _KP_2 : keysym = 0xFFB2
-let _KP_3 : keysym = 0xFFB3
-let _KP_4 : keysym = 0xFFB4
-let _KP_5 : keysym = 0xFFB5
-let _KP_6 : keysym = 0xFFB6
-let _KP_7 : keysym = 0xFFB7
-let _KP_8 : keysym = 0xFFB8
-let _KP_9 : keysym = 0xFFB9
-let _F1 : keysym = 0xFFBE
-let _F2 : keysym = 0xFFBF
-let _F3 : keysym = 0xFFC0
-let _F4 : keysym = 0xFFC1
-let _F5 : keysym = 0xFFC2
-let _F6 : keysym = 0xFFC3
-let _F7 : keysym = 0xFFC4
-let _F8 : keysym = 0xFFC5
-let _F9 : keysym = 0xFFC6
-let _F10 : keysym = 0xFFC7
-let _F11 : keysym = 0xFFC8
-let _L1 : keysym = 0xFFC8
-let _F12 : keysym = 0xFFC9
-let _L2 : keysym = 0xFFC9
-let _F13 : keysym = 0xFFCA
-let _L3 : keysym = 0xFFCA
-let _F14 : keysym = 0xFFCB
-let _L4 : keysym = 0xFFCB
-let _F15 : keysym = 0xFFCC
-let _L5 : keysym = 0xFFCC
-let _F16 : keysym = 0xFFCD
-let _L6 : keysym = 0xFFCD
-let _F17 : keysym = 0xFFCE
-let _L7 : keysym = 0xFFCE
-let _F18 : keysym = 0xFFCF
-let _L8 : keysym = 0xFFCF
-let _F19 : keysym = 0xFFD0
-let _L9 : keysym = 0xFFD0
-let _F20 : keysym = 0xFFD1
-let _L10 : keysym = 0xFFD1
-let _F21 : keysym = 0xFFD2
-let _R1 : keysym = 0xFFD2
-let _F22 : keysym = 0xFFD3
-let _R2 : keysym = 0xFFD3
-let _F23 : keysym = 0xFFD4
-let _R3 : keysym = 0xFFD4
-let _F24 : keysym = 0xFFD5
-let _R4 : keysym = 0xFFD5
-let _F25 : keysym = 0xFFD6
-let _R5 : keysym = 0xFFD6
-let _F26 : keysym = 0xFFD7
-let _R6 : keysym = 0xFFD7
-let _F27 : keysym = 0xFFD8
-let _R7 : keysym = 0xFFD8
-let _F28 : keysym = 0xFFD9
-let _R8 : keysym = 0xFFD9
-let _F29 : keysym = 0xFFDA
-let _R9 : keysym = 0xFFDA
-let _F30 : keysym = 0xFFDB
-let _R10 : keysym = 0xFFDB
-let _F31 : keysym = 0xFFDC
-let _R11 : keysym = 0xFFDC
-let _F32 : keysym = 0xFFDD
-let _R12 : keysym = 0xFFDD
-let _F33 : keysym = 0xFFDE
-let _R13 : keysym = 0xFFDE
-let _F34 : keysym = 0xFFDF
-let _R14 : keysym = 0xFFDF
-let _F35 : keysym = 0xFFE0
-let _R15 : keysym = 0xFFE0
-let _Shift_L : keysym = 0xFFE1
-let _Shift_R : keysym = 0xFFE2
-let _Control_L : keysym = 0xFFE3
-let _Control_R : keysym = 0xFFE4
-let _Caps_Lock : keysym = 0xFFE5
-let _Shift_Lock : keysym = 0xFFE6
-let _Meta_L : keysym = 0xFFE7
-let _Meta_R : keysym = 0xFFE8
-let _Alt_L : keysym = 0xFFE9
-let _Alt_R : keysym = 0xFFEA
-let _Super_L : keysym = 0xFFEB
-let _Super_R : keysym = 0xFFEC
-let _Hyper_L : keysym = 0xFFED
-let _Hyper_R : keysym = 0xFFEE
-let _ISO_Lock : keysym = 0xFE01
-let _ISO_Level2_Latch : keysym = 0xFE02
-let _ISO_Level3_Shift : keysym = 0xFE03
-let _ISO_Level3_Latch : keysym = 0xFE04
-let _ISO_Level3_Lock : keysym = 0xFE05
-let _ISO_Group_Shift : keysym = 0xFF7E
-let _ISO_Group_Latch : keysym = 0xFE06
-let _ISO_Group_Lock : keysym = 0xFE07
-let _ISO_Next_Group : keysym = 0xFE08
-let _ISO_Next_Group_Lock : keysym = 0xFE09
-let _ISO_Prev_Group : keysym = 0xFE0A
-let _ISO_Prev_Group_Lock : keysym = 0xFE0B
-let _ISO_First_Group : keysym = 0xFE0C
-let _ISO_First_Group_Lock : keysym = 0xFE0D
-let _ISO_Last_Group : keysym = 0xFE0E
-let _ISO_Last_Group_Lock : keysym = 0xFE0F
-let _ISO_Left_Tab : keysym = 0xFE20
-let _ISO_Move_Line_Up : keysym = 0xFE21
-let _ISO_Move_Line_Down : keysym = 0xFE22
-let _ISO_Partial_Line_Up : keysym = 0xFE23
-let _ISO_Partial_Line_Down : keysym = 0xFE24
-let _ISO_Partial_Space_Left : keysym = 0xFE25
-let _ISO_Partial_Space_Right : keysym = 0xFE26
-let _ISO_Set_Margin_Left : keysym = 0xFE27
-let _ISO_Set_Margin_Right : keysym = 0xFE28
-let _ISO_Release_Margin_Left : keysym = 0xFE29
-let _ISO_Release_Margin_Right : keysym = 0xFE2A
-let _ISO_Release_Both_Margins : keysym = 0xFE2B
-let _ISO_Fast_Cursor_Left : keysym = 0xFE2C
-let _ISO_Fast_Cursor_Right : keysym = 0xFE2D
-let _ISO_Fast_Cursor_Up : keysym = 0xFE2E
-let _ISO_Fast_Cursor_Down : keysym = 0xFE2F
-let _ISO_Continuous_Underline : keysym = 0xFE30
-let _ISO_Discontinuous_Underline : keysym = 0xFE31
-let _ISO_Emphasize : keysym = 0xFE32
-let _ISO_Center_Object : keysym = 0xFE33
-let _ISO_Enter : keysym = 0xFE34
-let _dead_grave : keysym = 0xFE50
-let _dead_acute : keysym = 0xFE51
-let _dead_circumflex : keysym = 0xFE52
-let _dead_tilde : keysym = 0xFE53
-let _dead_macron : keysym = 0xFE54
-let _dead_breve : keysym = 0xFE55
-let _dead_abovedot : keysym = 0xFE56
-let _dead_diaeresis : keysym = 0xFE57
-let _dead_abovering : keysym = 0xFE58
-let _dead_doubleacute : keysym = 0xFE59
-let _dead_caron : keysym = 0xFE5A
-let _dead_cedilla : keysym = 0xFE5B
-let _dead_ogonek : keysym = 0xFE5C
-let _dead_iota : keysym = 0xFE5D
-let _dead_voiced_sound : keysym = 0xFE5E
-let _dead_semivoiced_sound : keysym = 0xFE5F
-let _dead_belowdot : keysym = 0xFE60
-let _First_Virtual_Screen : keysym = 0xFED0
-let _Prev_Virtual_Screen : keysym = 0xFED1
-let _Next_Virtual_Screen : keysym = 0xFED2
-let _Last_Virtual_Screen : keysym = 0xFED4
-let _Terminate_Server : keysym = 0xFED5
-let _AccessX_Enable : keysym = 0xFE70
-let _AccessX_Feedback_Enable : keysym = 0xFE71
-let _RepeatKeys_Enable : keysym = 0xFE72
-let _SlowKeys_Enable : keysym = 0xFE73
-let _BounceKeys_Enable : keysym = 0xFE74
-let _StickyKeys_Enable : keysym = 0xFE75
-let _MouseKeys_Enable : keysym = 0xFE76
-let _MouseKeys_Accel_Enable : keysym = 0xFE77
-let _Overlay1_Enable : keysym = 0xFE78
-let _Overlay2_Enable : keysym = 0xFE79
-let _AudibleBell_Enable : keysym = 0xFE7A
-let _Pointer_Left : keysym = 0xFEE0
-let _Pointer_Right : keysym = 0xFEE1
-let _Pointer_Up : keysym = 0xFEE2
-let _Pointer_Down : keysym = 0xFEE3
-let _Pointer_UpLeft : keysym = 0xFEE4
-let _Pointer_UpRight : keysym = 0xFEE5
-let _Pointer_DownLeft : keysym = 0xFEE6
-let _Pointer_DownRight : keysym = 0xFEE7
-let _Pointer_Button_Dflt : keysym = 0xFEE8
-let _Pointer_Button1 : keysym = 0xFEE9
-let _Pointer_Button2 : keysym = 0xFEEA
-let _Pointer_Button3 : keysym = 0xFEEB
-let _Pointer_Button4 : keysym = 0xFEEC
-let _Pointer_Button5 : keysym = 0xFEED
-let _Pointer_DblClick_Dflt : keysym = 0xFEEE
-let _Pointer_DblClick1 : keysym = 0xFEEF
-let _Pointer_DblClick2 : keysym = 0xFEF0
-let _Pointer_DblClick3 : keysym = 0xFEF1
-let _Pointer_DblClick4 : keysym = 0xFEF2
-let _Pointer_DblClick5 : keysym = 0xFEF3
-let _Pointer_Drag_Dflt : keysym = 0xFEF4
-let _Pointer_Drag1 : keysym = 0xFEF5
-let _Pointer_Drag2 : keysym = 0xFEF6
-let _Pointer_Drag3 : keysym = 0xFEF7
-let _Pointer_Drag4 : keysym = 0xFEF8
-let _Pointer_Drag5 : keysym = 0xFEFD
-let _Pointer_EnableKeys : keysym = 0xFEF9
-let _Pointer_Accelerate : keysym = 0xFEFA
-let _Pointer_DfltBtnNext : keysym = 0xFEFB
-let _Pointer_DfltBtnPrev : keysym = 0xFEFC
-let _3270_Duplicate : keysym = 0xFD01
-let _3270_FieldMark : keysym = 0xFD02
-let _3270_Right2 : keysym = 0xFD03
-let _3270_Left2 : keysym = 0xFD04
-let _3270_BackTab : keysym = 0xFD05
-let _3270_EraseEOF : keysym = 0xFD06
-let _3270_EraseInput : keysym = 0xFD07
-let _3270_Reset : keysym = 0xFD08
-let _3270_Quit : keysym = 0xFD09
-let _3270_PA1 : keysym = 0xFD0A
-let _3270_PA2 : keysym = 0xFD0B
-let _3270_PA3 : keysym = 0xFD0C
-let _3270_Test : keysym = 0xFD0D
-let _3270_Attn : keysym = 0xFD0E
-let _3270_CursorBlink : keysym = 0xFD0F
-let _3270_AltCursor : keysym = 0xFD10
-let _3270_KeyClick : keysym = 0xFD11
-let _3270_Jump : keysym = 0xFD12
-let _3270_Ident : keysym = 0xFD13
-let _3270_Rule : keysym = 0xFD14
-let _3270_Copy : keysym = 0xFD15
-let _3270_Play : keysym = 0xFD16
-let _3270_Setup : keysym = 0xFD17
-let _3270_Record : keysym = 0xFD18
-let _3270_ChangeScreen : keysym = 0xFD19
-let _3270_DeleteWord : keysym = 0xFD1A
-let _3270_ExSelect : keysym = 0xFD1B
-let _3270_CursorSelect : keysym = 0xFD1C
-let _3270_PrintScreen : keysym = 0xFD1D
-let _3270_Enter : keysym = 0xFD1E
-let _space : keysym = 0x020
-let _exclam : keysym = 0x021
-let _quotedbl : keysym = 0x022
-let _numbersign : keysym = 0x023
-let _dollar : keysym = 0x024
-let _percent : keysym = 0x025
-let _ampersand : keysym = 0x026
-let _apostrophe : keysym = 0x027
-let _quoteright : keysym = 0x027
-let _parenleft : keysym = 0x028
-let _parenright : keysym = 0x029
-let _asterisk : keysym = 0x02a
-let _plus : keysym = 0x02b
-let _comma : keysym = 0x02c
-let _minus : keysym = 0x02d
-let _period : keysym = 0x02e
-let _slash : keysym = 0x02f
-let _0 : keysym = 0x030
-let _1 : keysym = 0x031
-let _2 : keysym = 0x032
-let _3 : keysym = 0x033
-let _4 : keysym = 0x034
-let _5 : keysym = 0x035
-let _6 : keysym = 0x036
-let _7 : keysym = 0x037
-let _8 : keysym = 0x038
-let _9 : keysym = 0x039
-let _colon : keysym = 0x03a
-let _semicolon : keysym = 0x03b
-let _less : keysym = 0x03c
-let _equal : keysym = 0x03d
-let _greater : keysym = 0x03e
-let _question : keysym = 0x03f
-let _at : keysym = 0x040
-let _A : keysym = 0x041
-let _B : keysym = 0x042
-let _C : keysym = 0x043
-let _D : keysym = 0x044
-let _E : keysym = 0x045
-let _F : keysym = 0x046
-let _G : keysym = 0x047
-let _H : keysym = 0x048
-let _I : keysym = 0x049
-let _J : keysym = 0x04a
-let _K : keysym = 0x04b
-let _L : keysym = 0x04c
-let _M : keysym = 0x04d
-let _N : keysym = 0x04e
-let _O : keysym = 0x04f
-let _P : keysym = 0x050
-let _Q : keysym = 0x051
-let _R : keysym = 0x052
-let _S : keysym = 0x053
-let _T : keysym = 0x054
-let _U : keysym = 0x055
-let _V : keysym = 0x056
-let _W : keysym = 0x057
-let _X : keysym = 0x058
-let _Y : keysym = 0x059
-let _Z : keysym = 0x05a
-let _bracketleft : keysym = 0x05b
-let _backslash : keysym = 0x05c
-let _bracketright : keysym = 0x05d
-let _asciicircum : keysym = 0x05e
-let _underscore : keysym = 0x05f
-let _grave : keysym = 0x060
-let _quoteleft : keysym = 0x060
-let _a : keysym = 0x061
-let _b : keysym = 0x062
-let _c : keysym = 0x063
-let _d : keysym = 0x064
-let _e : keysym = 0x065
-let _f : keysym = 0x066
-let _g : keysym = 0x067
-let _h : keysym = 0x068
-let _i : keysym = 0x069
-let _j : keysym = 0x06a
-let _k : keysym = 0x06b
-let _l : keysym = 0x06c
-let _m : keysym = 0x06d
-let _n : keysym = 0x06e
-let _o : keysym = 0x06f
-let _p : keysym = 0x070
-let _q : keysym = 0x071
-let _r : keysym = 0x072
-let _s : keysym = 0x073
-let _t : keysym = 0x074
-let _u : keysym = 0x075
-let _v : keysym = 0x076
-let _w : keysym = 0x077
-let _x : keysym = 0x078
-let _y : keysym = 0x079
-let _z : keysym = 0x07a
-let _braceleft : keysym = 0x07b
-let _bar : keysym = 0x07c
-let _braceright : keysym = 0x07d
-let _asciitilde : keysym = 0x07e
-let _nobreakspace : keysym = 0x0a0
-let _exclamdown : keysym = 0x0a1
-let _cent : keysym = 0x0a2
-let _sterling : keysym = 0x0a3
-let _currency : keysym = 0x0a4
-let _yen : keysym = 0x0a5
-let _brokenbar : keysym = 0x0a6
-let _section : keysym = 0x0a7
-let _diaeresis : keysym = 0x0a8
-let _copyright : keysym = 0x0a9
-let _ordfeminine : keysym = 0x0aa
-let _guillemotleft : keysym = 0x0ab
-let _notsign : keysym = 0x0ac
-let _hyphen : keysym = 0x0ad
-let _registered : keysym = 0x0ae
-let _macron : keysym = 0x0af
-let _degree : keysym = 0x0b0
-let _plusminus : keysym = 0x0b1
-let _twosuperior : keysym = 0x0b2
-let _threesuperior : keysym = 0x0b3
-let _acute : keysym = 0x0b4
-let _mu : keysym = 0x0b5
-let _paragraph : keysym = 0x0b6
-let _periodcentered : keysym = 0x0b7
-let _cedilla : keysym = 0x0b8
-let _onesuperior : keysym = 0x0b9
-let _masculine : keysym = 0x0ba
-let _guillemotright : keysym = 0x0bb
-let _onequarter : keysym = 0x0bc
-let _onehalf : keysym = 0x0bd
-let _threequarters : keysym = 0x0be
-let _questiondown : keysym = 0x0bf
-let _Agrave : keysym = 0x0c0
-let _Aacute : keysym = 0x0c1
-let _Acircumflex : keysym = 0x0c2
-let _Atilde : keysym = 0x0c3
-let _Adiaeresis : keysym = 0x0c4
-let _Aring : keysym = 0x0c5
-let _AE : keysym = 0x0c6
-let _Ccedilla : keysym = 0x0c7
-let _Egrave : keysym = 0x0c8
-let _Eacute : keysym = 0x0c9
-let _Ecircumflex : keysym = 0x0ca
-let _Ediaeresis : keysym = 0x0cb
-let _Igrave : keysym = 0x0cc
-let _Iacute : keysym = 0x0cd
-let _Icircumflex : keysym = 0x0ce
-let _Idiaeresis : keysym = 0x0cf
-let _ETH : keysym = 0x0d0
-let _Eth : keysym = 0x0d0
-let _Ntilde : keysym = 0x0d1
-let _Ograve : keysym = 0x0d2
-let _Oacute : keysym = 0x0d3
-let _Ocircumflex : keysym = 0x0d4
-let _Otilde : keysym = 0x0d5
-let _Odiaeresis : keysym = 0x0d6
-let _multiply : keysym = 0x0d7
-let _Ooblique : keysym = 0x0d8
-let _Ugrave : keysym = 0x0d9
-let _Uacute : keysym = 0x0da
-let _Ucircumflex : keysym = 0x0db
-let _Udiaeresis : keysym = 0x0dc
-let _Yacute : keysym = 0x0dd
-let _THORN : keysym = 0x0de
-let _Thorn : keysym = 0x0de
-let _ssharp : keysym = 0x0df
-let _agrave : keysym = 0x0e0
-let _aacute : keysym = 0x0e1
-let _acircumflex : keysym = 0x0e2
-let _atilde : keysym = 0x0e3
-let _adiaeresis : keysym = 0x0e4
-let _aring : keysym = 0x0e5
-let _ae : keysym = 0x0e6
-let _ccedilla : keysym = 0x0e7
-let _egrave : keysym = 0x0e8
-let _eacute : keysym = 0x0e9
-let _ecircumflex : keysym = 0x0ea
-let _ediaeresis : keysym = 0x0eb
-let _igrave : keysym = 0x0ec
-let _iacute : keysym = 0x0ed
-let _icircumflex : keysym = 0x0ee
-let _idiaeresis : keysym = 0x0ef
-let _eth : keysym = 0x0f0
-let _ntilde : keysym = 0x0f1
-let _ograve : keysym = 0x0f2
-let _oacute : keysym = 0x0f3
-let _ocircumflex : keysym = 0x0f4
-let _otilde : keysym = 0x0f5
-let _odiaeresis : keysym = 0x0f6
-let _division : keysym = 0x0f7
-let _oslash : keysym = 0x0f8
-let _ugrave : keysym = 0x0f9
-let _uacute : keysym = 0x0fa
-let _ucircumflex : keysym = 0x0fb
-let _udiaeresis : keysym = 0x0fc
-let _yacute : keysym = 0x0fd
-let _thorn : keysym = 0x0fe
-let _ydiaeresis : keysym = 0x0ff
-let _Aogonek : keysym = 0x1a1
-let _breve : keysym = 0x1a2
-let _Lstroke : keysym = 0x1a3
-let _Lcaron : keysym = 0x1a5
-let _Sacute : keysym = 0x1a6
-let _Scaron : keysym = 0x1a9
-let _Scedilla : keysym = 0x1aa
-let _Tcaron : keysym = 0x1ab
-let _Zacute : keysym = 0x1ac
-let _Zcaron : keysym = 0x1ae
-let _Zabovedot : keysym = 0x1af
-let _aogonek : keysym = 0x1b1
-let _ogonek : keysym = 0x1b2
-let _lstroke : keysym = 0x1b3
-let _lcaron : keysym = 0x1b5
-let _sacute : keysym = 0x1b6
-let _caron : keysym = 0x1b7
-let _scaron : keysym = 0x1b9
-let _scedilla : keysym = 0x1ba
-let _tcaron : keysym = 0x1bb
-let _zacute : keysym = 0x1bc
-let _doubleacute : keysym = 0x1bd
-let _zcaron : keysym = 0x1be
-let _zabovedot : keysym = 0x1bf
-let _Racute : keysym = 0x1c0
-let _Abreve : keysym = 0x1c3
-let _Lacute : keysym = 0x1c5
-let _Cacute : keysym = 0x1c6
-let _Ccaron : keysym = 0x1c8
-let _Eogonek : keysym = 0x1ca
-let _Ecaron : keysym = 0x1cc
-let _Dcaron : keysym = 0x1cf
-let _Dstroke : keysym = 0x1d0
-let _Nacute : keysym = 0x1d1
-let _Ncaron : keysym = 0x1d2
-let _Odoubleacute : keysym = 0x1d5
-let _Rcaron : keysym = 0x1d8
-let _Uring : keysym = 0x1d9
-let _Udoubleacute : keysym = 0x1db
-let _Tcedilla : keysym = 0x1de
-let _racute : keysym = 0x1e0
-let _abreve : keysym = 0x1e3
-let _lacute : keysym = 0x1e5
-let _cacute : keysym = 0x1e6
-let _ccaron : keysym = 0x1e8
-let _eogonek : keysym = 0x1ea
-let _ecaron : keysym = 0x1ec
-let _dcaron : keysym = 0x1ef
-let _dstroke : keysym = 0x1f0
-let _nacute : keysym = 0x1f1
-let _ncaron : keysym = 0x1f2
-let _odoubleacute : keysym = 0x1f5
-let _udoubleacute : keysym = 0x1fb
-let _rcaron : keysym = 0x1f8
-let _uring : keysym = 0x1f9
-let _tcedilla : keysym = 0x1fe
-let _abovedot : keysym = 0x1ff
-let _Hstroke : keysym = 0x2a1
-let _Hcircumflex : keysym = 0x2a6
-let _Iabovedot : keysym = 0x2a9
-let _Gbreve : keysym = 0x2ab
-let _Jcircumflex : keysym = 0x2ac
-let _hstroke : keysym = 0x2b1
-let _hcircumflex : keysym = 0x2b6
-let _idotless : keysym = 0x2b9
-let _gbreve : keysym = 0x2bb
-let _jcircumflex : keysym = 0x2bc
-let _Cabovedot : keysym = 0x2c5
-let _Ccircumflex : keysym = 0x2c6
-let _Gabovedot : keysym = 0x2d5
-let _Gcircumflex : keysym = 0x2d8
-let _Ubreve : keysym = 0x2dd
-let _Scircumflex : keysym = 0x2de
-let _cabovedot : keysym = 0x2e5
-let _ccircumflex : keysym = 0x2e6
-let _gabovedot : keysym = 0x2f5
-let _gcircumflex : keysym = 0x2f8
-let _ubreve : keysym = 0x2fd
-let _scircumflex : keysym = 0x2fe
-let _kra : keysym = 0x3a2
-let _kappa : keysym = 0x3a2
-let _Rcedilla : keysym = 0x3a3
-let _Itilde : keysym = 0x3a5
-let _Lcedilla : keysym = 0x3a6
-let _Emacron : keysym = 0x3aa
-let _Gcedilla : keysym = 0x3ab
-let _Tslash : keysym = 0x3ac
-let _rcedilla : keysym = 0x3b3
-let _itilde : keysym = 0x3b5
-let _lcedilla : keysym = 0x3b6
-let _emacron : keysym = 0x3ba
-let _gcedilla : keysym = 0x3bb
-let _tslash : keysym = 0x3bc
-let _ENG : keysym = 0x3bd
-let _eng : keysym = 0x3bf
-let _Amacron : keysym = 0x3c0
-let _Iogonek : keysym = 0x3c7
-let _Eabovedot : keysym = 0x3cc
-let _Imacron : keysym = 0x3cf
-let _Ncedilla : keysym = 0x3d1
-let _Omacron : keysym = 0x3d2
-let _Kcedilla : keysym = 0x3d3
-let _Uogonek : keysym = 0x3d9
-let _Utilde : keysym = 0x3dd
-let _Umacron : keysym = 0x3de
-let _amacron : keysym = 0x3e0
-let _iogonek : keysym = 0x3e7
-let _eabovedot : keysym = 0x3ec
-let _imacron : keysym = 0x3ef
-let _ncedilla : keysym = 0x3f1
-let _omacron : keysym = 0x3f2
-let _kcedilla : keysym = 0x3f3
-let _uogonek : keysym = 0x3f9
-let _utilde : keysym = 0x3fd
-let _umacron : keysym = 0x3fe
-let _overline : keysym = 0x47e
-let _kana_fullstop : keysym = 0x4a1
-let _kana_openingbracket : keysym = 0x4a2
-let _kana_closingbracket : keysym = 0x4a3
-let _kana_comma : keysym = 0x4a4
-let _kana_conjunctive : keysym = 0x4a5
-let _kana_middledot : keysym = 0x4a5
-let _kana_WO : keysym = 0x4a6
-let _kana_a : keysym = 0x4a7
-let _kana_i : keysym = 0x4a8
-let _kana_u : keysym = 0x4a9
-let _kana_e : keysym = 0x4aa
-let _kana_o : keysym = 0x4ab
-let _kana_ya : keysym = 0x4ac
-let _kana_yu : keysym = 0x4ad
-let _kana_yo : keysym = 0x4ae
-let _kana_tsu : keysym = 0x4af
-let _kana_tu : keysym = 0x4af
-let _prolongedsound : keysym = 0x4b0
-let _kana_A : keysym = 0x4b1
-let _kana_I : keysym = 0x4b2
-let _kana_U : keysym = 0x4b3
-let _kana_E : keysym = 0x4b4
-let _kana_O : keysym = 0x4b5
-let _kana_KA : keysym = 0x4b6
-let _kana_KI : keysym = 0x4b7
-let _kana_KU : keysym = 0x4b8
-let _kana_KE : keysym = 0x4b9
-let _kana_KO : keysym = 0x4ba
-let _kana_SA : keysym = 0x4bb
-let _kana_SHI : keysym = 0x4bc
-let _kana_SU : keysym = 0x4bd
-let _kana_SE : keysym = 0x4be
-let _kana_SO : keysym = 0x4bf
-let _kana_TA : keysym = 0x4c0
-let _kana_CHI : keysym = 0x4c1
-let _kana_TI : keysym = 0x4c1
-let _kana_TSU : keysym = 0x4c2
-let _kana_TU : keysym = 0x4c2
-let _kana_TE : keysym = 0x4c3
-let _kana_TO : keysym = 0x4c4
-let _kana_NA : keysym = 0x4c5
-let _kana_NI : keysym = 0x4c6
-let _kana_NU : keysym = 0x4c7
-let _kana_NE : keysym = 0x4c8
-let _kana_NO : keysym = 0x4c9
-let _kana_HA : keysym = 0x4ca
-let _kana_HI : keysym = 0x4cb
-let _kana_FU : keysym = 0x4cc
-let _kana_HU : keysym = 0x4cc
-let _kana_HE : keysym = 0x4cd
-let _kana_HO : keysym = 0x4ce
-let _kana_MA : keysym = 0x4cf
-let _kana_MI : keysym = 0x4d0
-let _kana_MU : keysym = 0x4d1
-let _kana_ME : keysym = 0x4d2
-let _kana_MO : keysym = 0x4d3
-let _kana_YA : keysym = 0x4d4
-let _kana_YU : keysym = 0x4d5
-let _kana_YO : keysym = 0x4d6
-let _kana_RA : keysym = 0x4d7
-let _kana_RI : keysym = 0x4d8
-let _kana_RU : keysym = 0x4d9
-let _kana_RE : keysym = 0x4da
-let _kana_RO : keysym = 0x4db
-let _kana_WA : keysym = 0x4dc
-let _kana_N : keysym = 0x4dd
-let _voicedsound : keysym = 0x4de
-let _semivoicedsound : keysym = 0x4df
-let _kana_switch : keysym = 0xFF7E
-let _Arabic_comma : keysym = 0x5ac
-let _Arabic_semicolon : keysym = 0x5bb
-let _Arabic_question_mark : keysym = 0x5bf
-let _Arabic_hamza : keysym = 0x5c1
-let _Arabic_maddaonalef : keysym = 0x5c2
-let _Arabic_hamzaonalef : keysym = 0x5c3
-let _Arabic_hamzaonwaw : keysym = 0x5c4
-let _Arabic_hamzaunderalef : keysym = 0x5c5
-let _Arabic_hamzaonyeh : keysym = 0x5c6
-let _Arabic_alef : keysym = 0x5c7
-let _Arabic_beh : keysym = 0x5c8
-let _Arabic_tehmarbuta : keysym = 0x5c9
-let _Arabic_teh : keysym = 0x5ca
-let _Arabic_theh : keysym = 0x5cb
-let _Arabic_jeem : keysym = 0x5cc
-let _Arabic_hah : keysym = 0x5cd
-let _Arabic_khah : keysym = 0x5ce
-let _Arabic_dal : keysym = 0x5cf
-let _Arabic_thal : keysym = 0x5d0
-let _Arabic_ra : keysym = 0x5d1
-let _Arabic_zain : keysym = 0x5d2
-let _Arabic_seen : keysym = 0x5d3
-let _Arabic_sheen : keysym = 0x5d4
-let _Arabic_sad : keysym = 0x5d5
-let _Arabic_dad : keysym = 0x5d6
-let _Arabic_tah : keysym = 0x5d7
-let _Arabic_zah : keysym = 0x5d8
-let _Arabic_ain : keysym = 0x5d9
-let _Arabic_ghain : keysym = 0x5da
-let _Arabic_tatweel : keysym = 0x5e0
-let _Arabic_feh : keysym = 0x5e1
-let _Arabic_qaf : keysym = 0x5e2
-let _Arabic_kaf : keysym = 0x5e3
-let _Arabic_lam : keysym = 0x5e4
-let _Arabic_meem : keysym = 0x5e5
-let _Arabic_noon : keysym = 0x5e6
-let _Arabic_ha : keysym = 0x5e7
-let _Arabic_heh : keysym = 0x5e7
-let _Arabic_waw : keysym = 0x5e8
-let _Arabic_alefmaksura : keysym = 0x5e9
-let _Arabic_yeh : keysym = 0x5ea
-let _Arabic_fathatan : keysym = 0x5eb
-let _Arabic_dammatan : keysym = 0x5ec
-let _Arabic_kasratan : keysym = 0x5ed
-let _Arabic_fatha : keysym = 0x5ee
-let _Arabic_damma : keysym = 0x5ef
-let _Arabic_kasra : keysym = 0x5f0
-let _Arabic_shadda : keysym = 0x5f1
-let _Arabic_sukun : keysym = 0x5f2
-let _Arabic_switch : keysym = 0xFF7E
-let _Serbian_dje : keysym = 0x6a1
-let _Macedonia_gje : keysym = 0x6a2
-let _Cyrillic_io : keysym = 0x6a3
-let _Ukrainian_ie : keysym = 0x6a4
-let _Ukranian_je : keysym = 0x6a4
-let _Macedonia_dse : keysym = 0x6a5
-let _Ukrainian_i : keysym = 0x6a6
-let _Ukranian_i : keysym = 0x6a6
-let _Ukrainian_yi : keysym = 0x6a7
-let _Ukranian_yi : keysym = 0x6a7
-let _Cyrillic_je : keysym = 0x6a8
-let _Serbian_je : keysym = 0x6a8
-let _Cyrillic_lje : keysym = 0x6a9
-let _Serbian_lje : keysym = 0x6a9
-let _Cyrillic_nje : keysym = 0x6aa
-let _Serbian_nje : keysym = 0x6aa
-let _Serbian_tshe : keysym = 0x6ab
-let _Macedonia_kje : keysym = 0x6ac
-let _Byelorussian_shortu : keysym = 0x6ae
-let _Cyrillic_dzhe : keysym = 0x6af
-let _Serbian_dze : keysym = 0x6af
-let _numerosign : keysym = 0x6b0
-let _Serbian_DJE : keysym = 0x6b1
-let _Macedonia_GJE : keysym = 0x6b2
-let _Cyrillic_IO : keysym = 0x6b3
-let _Ukrainian_IE : keysym = 0x6b4
-let _Ukranian_JE : keysym = 0x6b4
-let _Macedonia_DSE : keysym = 0x6b5
-let _Ukrainian_I : keysym = 0x6b6
-let _Ukranian_I : keysym = 0x6b6
-let _Ukrainian_YI : keysym = 0x6b7
-let _Ukranian_YI : keysym = 0x6b7
-let _Cyrillic_JE : keysym = 0x6b8
-let _Serbian_JE : keysym = 0x6b8
-let _Cyrillic_LJE : keysym = 0x6b9
-let _Serbian_LJE : keysym = 0x6b9
-let _Cyrillic_NJE : keysym = 0x6ba
-let _Serbian_NJE : keysym = 0x6ba
-let _Serbian_TSHE : keysym = 0x6bb
-let _Macedonia_KJE : keysym = 0x6bc
-let _Byelorussian_SHORTU : keysym = 0x6be
-let _Cyrillic_DZHE : keysym = 0x6bf
-let _Serbian_DZE : keysym = 0x6bf
-let _Cyrillic_yu : keysym = 0x6c0
-let _Cyrillic_a : keysym = 0x6c1
-let _Cyrillic_be : keysym = 0x6c2
-let _Cyrillic_tse : keysym = 0x6c3
-let _Cyrillic_de : keysym = 0x6c4
-let _Cyrillic_ie : keysym = 0x6c5
-let _Cyrillic_ef : keysym = 0x6c6
-let _Cyrillic_ghe : keysym = 0x6c7
-let _Cyrillic_ha : keysym = 0x6c8
-let _Cyrillic_i : keysym = 0x6c9
-let _Cyrillic_shorti : keysym = 0x6ca
-let _Cyrillic_ka : keysym = 0x6cb
-let _Cyrillic_el : keysym = 0x6cc
-let _Cyrillic_em : keysym = 0x6cd
-let _Cyrillic_en : keysym = 0x6ce
-let _Cyrillic_o : keysym = 0x6cf
-let _Cyrillic_pe : keysym = 0x6d0
-let _Cyrillic_ya : keysym = 0x6d1
-let _Cyrillic_er : keysym = 0x6d2
-let _Cyrillic_es : keysym = 0x6d3
-let _Cyrillic_te : keysym = 0x6d4
-let _Cyrillic_u : keysym = 0x6d5
-let _Cyrillic_zhe : keysym = 0x6d6
-let _Cyrillic_ve : keysym = 0x6d7
-let _Cyrillic_softsign : keysym = 0x6d8
-let _Cyrillic_yeru : keysym = 0x6d9
-let _Cyrillic_ze : keysym = 0x6da
-let _Cyrillic_sha : keysym = 0x6db
-let _Cyrillic_e : keysym = 0x6dc
-let _Cyrillic_shcha : keysym = 0x6dd
-let _Cyrillic_che : keysym = 0x6de
-let _Cyrillic_hardsign : keysym = 0x6df
-let _Cyrillic_YU : keysym = 0x6e0
-let _Cyrillic_A : keysym = 0x6e1
-let _Cyrillic_BE : keysym = 0x6e2
-let _Cyrillic_TSE : keysym = 0x6e3
-let _Cyrillic_DE : keysym = 0x6e4
-let _Cyrillic_IE : keysym = 0x6e5
-let _Cyrillic_EF : keysym = 0x6e6
-let _Cyrillic_GHE : keysym = 0x6e7
-let _Cyrillic_HA : keysym = 0x6e8
-let _Cyrillic_I : keysym = 0x6e9
-let _Cyrillic_SHORTI : keysym = 0x6ea
-let _Cyrillic_KA : keysym = 0x6eb
-let _Cyrillic_EL : keysym = 0x6ec
-let _Cyrillic_EM : keysym = 0x6ed
-let _Cyrillic_EN : keysym = 0x6ee
-let _Cyrillic_O : keysym = 0x6ef
-let _Cyrillic_PE : keysym = 0x6f0
-let _Cyrillic_YA : keysym = 0x6f1
-let _Cyrillic_ER : keysym = 0x6f2
-let _Cyrillic_ES : keysym = 0x6f3
-let _Cyrillic_TE : keysym = 0x6f4
-let _Cyrillic_U : keysym = 0x6f5
-let _Cyrillic_ZHE : keysym = 0x6f6
-let _Cyrillic_VE : keysym = 0x6f7
-let _Cyrillic_SOFTSIGN : keysym = 0x6f8
-let _Cyrillic_YERU : keysym = 0x6f9
-let _Cyrillic_ZE : keysym = 0x6fa
-let _Cyrillic_SHA : keysym = 0x6fb
-let _Cyrillic_E : keysym = 0x6fc
-let _Cyrillic_SHCHA : keysym = 0x6fd
-let _Cyrillic_CHE : keysym = 0x6fe
-let _Cyrillic_HARDSIGN : keysym = 0x6ff
-let _Greek_ALPHAaccent : keysym = 0x7a1
-let _Greek_EPSILONaccent : keysym = 0x7a2
-let _Greek_ETAaccent : keysym = 0x7a3
-let _Greek_IOTAaccent : keysym = 0x7a4
-let _Greek_IOTAdiaeresis : keysym = 0x7a5
-let _Greek_OMICRONaccent : keysym = 0x7a7
-let _Greek_UPSILONaccent : keysym = 0x7a8
-let _Greek_UPSILONdieresis : keysym = 0x7a9
-let _Greek_OMEGAaccent : keysym = 0x7ab
-let _Greek_accentdieresis : keysym = 0x7ae
-let _Greek_horizbar : keysym = 0x7af
-let _Greek_alphaaccent : keysym = 0x7b1
-let _Greek_epsilonaccent : keysym = 0x7b2
-let _Greek_etaaccent : keysym = 0x7b3
-let _Greek_iotaaccent : keysym = 0x7b4
-let _Greek_iotadieresis : keysym = 0x7b5
-let _Greek_iotaaccentdieresis : keysym = 0x7b6
-let _Greek_omicronaccent : keysym = 0x7b7
-let _Greek_upsilonaccent : keysym = 0x7b8
-let _Greek_upsilondieresis : keysym = 0x7b9
-let _Greek_upsilonaccentdieresis : keysym = 0x7ba
-let _Greek_omegaaccent : keysym = 0x7bb
-let _Greek_ALPHA : keysym = 0x7c1
-let _Greek_BETA : keysym = 0x7c2
-let _Greek_GAMMA : keysym = 0x7c3
-let _Greek_DELTA : keysym = 0x7c4
-let _Greek_EPSILON : keysym = 0x7c5
-let _Greek_ZETA : keysym = 0x7c6
-let _Greek_ETA : keysym = 0x7c7
-let _Greek_THETA : keysym = 0x7c8
-let _Greek_IOTA : keysym = 0x7c9
-let _Greek_KAPPA : keysym = 0x7ca
-let _Greek_LAMDA : keysym = 0x7cb
-let _Greek_LAMBDA : keysym = 0x7cb
-let _Greek_MU : keysym = 0x7cc
-let _Greek_NU : keysym = 0x7cd
-let _Greek_XI : keysym = 0x7ce
-let _Greek_OMICRON : keysym = 0x7cf
-let _Greek_PI : keysym = 0x7d0
-let _Greek_RHO : keysym = 0x7d1
-let _Greek_SIGMA : keysym = 0x7d2
-let _Greek_TAU : keysym = 0x7d4
-let _Greek_UPSILON : keysym = 0x7d5
-let _Greek_PHI : keysym = 0x7d6
-let _Greek_CHI : keysym = 0x7d7
-let _Greek_PSI : keysym = 0x7d8
-let _Greek_OMEGA : keysym = 0x7d9
-let _Greek_alpha : keysym = 0x7e1
-let _Greek_beta : keysym = 0x7e2
-let _Greek_gamma : keysym = 0x7e3
-let _Greek_delta : keysym = 0x7e4
-let _Greek_epsilon : keysym = 0x7e5
-let _Greek_zeta : keysym = 0x7e6
-let _Greek_eta : keysym = 0x7e7
-let _Greek_theta : keysym = 0x7e8
-let _Greek_iota : keysym = 0x7e9
-let _Greek_kappa : keysym = 0x7ea
-let _Greek_lamda : keysym = 0x7eb
-let _Greek_lambda : keysym = 0x7eb
-let _Greek_mu : keysym = 0x7ec
-let _Greek_nu : keysym = 0x7ed
-let _Greek_xi : keysym = 0x7ee
-let _Greek_omicron : keysym = 0x7ef
-let _Greek_pi : keysym = 0x7f0
-let _Greek_rho : keysym = 0x7f1
-let _Greek_sigma : keysym = 0x7f2
-let _Greek_finalsmallsigma : keysym = 0x7f3
-let _Greek_tau : keysym = 0x7f4
-let _Greek_upsilon : keysym = 0x7f5
-let _Greek_phi : keysym = 0x7f6
-let _Greek_chi : keysym = 0x7f7
-let _Greek_psi : keysym = 0x7f8
-let _Greek_omega : keysym = 0x7f9
-let _Greek_switch : keysym = 0xFF7E
-let _leftradical : keysym = 0x8a1
-let _topleftradical : keysym = 0x8a2
-let _horizconnector : keysym = 0x8a3
-let _topintegral : keysym = 0x8a4
-let _botintegral : keysym = 0x8a5
-let _vertconnector : keysym = 0x8a6
-let _topleftsqbracket : keysym = 0x8a7
-let _botleftsqbracket : keysym = 0x8a8
-let _toprightsqbracket : keysym = 0x8a9
-let _botrightsqbracket : keysym = 0x8aa
-let _topleftparens : keysym = 0x8ab
-let _botleftparens : keysym = 0x8ac
-let _toprightparens : keysym = 0x8ad
-let _botrightparens : keysym = 0x8ae
-let _leftmiddlecurlybrace : keysym = 0x8af
-let _rightmiddlecurlybrace : keysym = 0x8b0
-let _topleftsummation : keysym = 0x8b1
-let _botleftsummation : keysym = 0x8b2
-let _topvertsummationconnector : keysym = 0x8b3
-let _botvertsummationconnector : keysym = 0x8b4
-let _toprightsummation : keysym = 0x8b5
-let _botrightsummation : keysym = 0x8b6
-let _rightmiddlesummation : keysym = 0x8b7
-let _lessthanequal : keysym = 0x8bc
-let _notequal : keysym = 0x8bd
-let _greaterthanequal : keysym = 0x8be
-let _integral : keysym = 0x8bf
-let _therefore : keysym = 0x8c0
-let _variation : keysym = 0x8c1
-let _infinity : keysym = 0x8c2
-let _nabla : keysym = 0x8c5
-let _approximate : keysym = 0x8c8
-let _similarequal : keysym = 0x8c9
-let _ifonlyif : keysym = 0x8cd
-let _implies : keysym = 0x8ce
-let _identical : keysym = 0x8cf
-let _radical : keysym = 0x8d6
-let _includedin : keysym = 0x8da
-let _includes : keysym = 0x8db
-let _intersection : keysym = 0x8dc
-let _union : keysym = 0x8dd
-let _logicaland : keysym = 0x8de
-let _logicalor : keysym = 0x8df
-let _partialderivative : keysym = 0x8ef
-let _function : keysym = 0x8f6
-let _leftarrow : keysym = 0x8fb
-let _uparrow : keysym = 0x8fc
-let _rightarrow : keysym = 0x8fd
-let _downarrow : keysym = 0x8fe
-let _blank : keysym = 0x9df
-let _soliddiamond : keysym = 0x9e0
-let _checkerboard : keysym = 0x9e1
-let _ht : keysym = 0x9e2
-let _ff : keysym = 0x9e3
-let _cr : keysym = 0x9e4
-let _lf : keysym = 0x9e5
-let _nl : keysym = 0x9e8
-let _vt : keysym = 0x9e9
-let _lowrightcorner : keysym = 0x9ea
-let _uprightcorner : keysym = 0x9eb
-let _upleftcorner : keysym = 0x9ec
-let _lowleftcorner : keysym = 0x9ed
-let _crossinglines : keysym = 0x9ee
-let _horizlinescan1 : keysym = 0x9ef
-let _horizlinescan3 : keysym = 0x9f0
-let _horizlinescan5 : keysym = 0x9f1
-let _horizlinescan7 : keysym = 0x9f2
-let _horizlinescan9 : keysym = 0x9f3
-let _leftt : keysym = 0x9f4
-let _rightt : keysym = 0x9f5
-let _bott : keysym = 0x9f6
-let _topt : keysym = 0x9f7
-let _vertbar : keysym = 0x9f8
-let _emspace : keysym = 0xaa1
-let _enspace : keysym = 0xaa2
-let _em3space : keysym = 0xaa3
-let _em4space : keysym = 0xaa4
-let _digitspace : keysym = 0xaa5
-let _punctspace : keysym = 0xaa6
-let _thinspace : keysym = 0xaa7
-let _hairspace : keysym = 0xaa8
-let _emdash : keysym = 0xaa9
-let _endash : keysym = 0xaaa
-let _signifblank : keysym = 0xaac
-let _ellipsis : keysym = 0xaae
-let _doubbaselinedot : keysym = 0xaaf
-let _onethird : keysym = 0xab0
-let _twothirds : keysym = 0xab1
-let _onefifth : keysym = 0xab2
-let _twofifths : keysym = 0xab3
-let _threefifths : keysym = 0xab4
-let _fourfifths : keysym = 0xab5
-let _onesixth : keysym = 0xab6
-let _fivesixths : keysym = 0xab7
-let _careof : keysym = 0xab8
-let _figdash : keysym = 0xabb
-let _leftanglebracket : keysym = 0xabc
-let _decimalpoint : keysym = 0xabd
-let _rightanglebracket : keysym = 0xabe
-let _marker : keysym = 0xabf
-let _oneeighth : keysym = 0xac3
-let _threeeighths : keysym = 0xac4
-let _fiveeighths : keysym = 0xac5
-let _seveneighths : keysym = 0xac6
-let _trademark : keysym = 0xac9
-let _signaturemark : keysym = 0xaca
-let _trademarkincircle : keysym = 0xacb
-let _leftopentriangle : keysym = 0xacc
-let _rightopentriangle : keysym = 0xacd
-let _emopencircle : keysym = 0xace
-let _emopenrectangle : keysym = 0xacf
-let _leftsinglequotemark : keysym = 0xad0
-let _rightsinglequotemark : keysym = 0xad1
-let _leftdoublequotemark : keysym = 0xad2
-let _rightdoublequotemark : keysym = 0xad3
-let _prescription : keysym = 0xad4
-let _minutes : keysym = 0xad6
-let _seconds : keysym = 0xad7
-let _latincross : keysym = 0xad9
-let _hexagram : keysym = 0xada
-let _filledrectbullet : keysym = 0xadb
-let _filledlefttribullet : keysym = 0xadc
-let _filledrighttribullet : keysym = 0xadd
-let _emfilledcircle : keysym = 0xade
-let _emfilledrect : keysym = 0xadf
-let _enopencircbullet : keysym = 0xae0
-let _enopensquarebullet : keysym = 0xae1
-let _openrectbullet : keysym = 0xae2
-let _opentribulletup : keysym = 0xae3
-let _opentribulletdown : keysym = 0xae4
-let _openstar : keysym = 0xae5
-let _enfilledcircbullet : keysym = 0xae6
-let _enfilledsqbullet : keysym = 0xae7
-let _filledtribulletup : keysym = 0xae8
-let _filledtribulletdown : keysym = 0xae9
-let _leftpointer : keysym = 0xaea
-let _rightpointer : keysym = 0xaeb
-let _club : keysym = 0xaec
-let _diamond : keysym = 0xaed
-let _heart : keysym = 0xaee
-let _maltesecross : keysym = 0xaf0
-let _dagger : keysym = 0xaf1
-let _doubledagger : keysym = 0xaf2
-let _checkmark : keysym = 0xaf3
-let _ballotcross : keysym = 0xaf4
-let _musicalsharp : keysym = 0xaf5
-let _musicalflat : keysym = 0xaf6
-let _malesymbol : keysym = 0xaf7
-let _femalesymbol : keysym = 0xaf8
-let _telephone : keysym = 0xaf9
-let _telephonerecorder : keysym = 0xafa
-let _phonographcopyright : keysym = 0xafb
-let _caret : keysym = 0xafc
-let _singlelowquotemark : keysym = 0xafd
-let _doublelowquotemark : keysym = 0xafe
-let _cursor : keysym = 0xaff
-let _leftcaret : keysym = 0xba3
-let _rightcaret : keysym = 0xba6
-let _downcaret : keysym = 0xba8
-let _upcaret : keysym = 0xba9
-let _overbar : keysym = 0xbc0
-let _downtack : keysym = 0xbc2
-let _upshoe : keysym = 0xbc3
-let _downstile : keysym = 0xbc4
-let _underbar : keysym = 0xbc6
-let _jot : keysym = 0xbca
-let _quad : keysym = 0xbcc
-let _uptack : keysym = 0xbce
-let _circle : keysym = 0xbcf
-let _upstile : keysym = 0xbd3
-let _downshoe : keysym = 0xbd6
-let _rightshoe : keysym = 0xbd8
-let _leftshoe : keysym = 0xbda
-let _lefttack : keysym = 0xbdc
-let _righttack : keysym = 0xbfc
-let _hebrew_doublelowline : keysym = 0xcdf
-let _hebrew_aleph : keysym = 0xce0
-let _hebrew_bet : keysym = 0xce1
-let _hebrew_beth : keysym = 0xce1
-let _hebrew_gimel : keysym = 0xce2
-let _hebrew_gimmel : keysym = 0xce2
-let _hebrew_dalet : keysym = 0xce3
-let _hebrew_daleth : keysym = 0xce3
-let _hebrew_he : keysym = 0xce4
-let _hebrew_waw : keysym = 0xce5
-let _hebrew_zain : keysym = 0xce6
-let _hebrew_zayin : keysym = 0xce6
-let _hebrew_chet : keysym = 0xce7
-let _hebrew_het : keysym = 0xce7
-let _hebrew_tet : keysym = 0xce8
-let _hebrew_teth : keysym = 0xce8
-let _hebrew_yod : keysym = 0xce9
-let _hebrew_finalkaph : keysym = 0xcea
-let _hebrew_kaph : keysym = 0xceb
-let _hebrew_lamed : keysym = 0xcec
-let _hebrew_finalmem : keysym = 0xced
-let _hebrew_mem : keysym = 0xcee
-let _hebrew_finalnun : keysym = 0xcef
-let _hebrew_nun : keysym = 0xcf0
-let _hebrew_samech : keysym = 0xcf1
-let _hebrew_samekh : keysym = 0xcf1
-let _hebrew_ayin : keysym = 0xcf2
-let _hebrew_finalpe : keysym = 0xcf3
-let _hebrew_pe : keysym = 0xcf4
-let _hebrew_finalzade : keysym = 0xcf5
-let _hebrew_finalzadi : keysym = 0xcf5
-let _hebrew_zade : keysym = 0xcf6
-let _hebrew_zadi : keysym = 0xcf6
-let _hebrew_qoph : keysym = 0xcf7
-let _hebrew_kuf : keysym = 0xcf7
-let _hebrew_resh : keysym = 0xcf8
-let _hebrew_shin : keysym = 0xcf9
-let _hebrew_taw : keysym = 0xcfa
-let _hebrew_taf : keysym = 0xcfa
-let _Hebrew_switch : keysym = 0xFF7E
-let _Thai_kokai : keysym = 0xda1
-let _Thai_khokhai : keysym = 0xda2
-let _Thai_khokhuat : keysym = 0xda3
-let _Thai_khokhwai : keysym = 0xda4
-let _Thai_khokhon : keysym = 0xda5
-let _Thai_khorakhang : keysym = 0xda6
-let _Thai_ngongu : keysym = 0xda7
-let _Thai_chochan : keysym = 0xda8
-let _Thai_choching : keysym = 0xda9
-let _Thai_chochang : keysym = 0xdaa
-let _Thai_soso : keysym = 0xdab
-let _Thai_chochoe : keysym = 0xdac
-let _Thai_yoying : keysym = 0xdad
-let _Thai_dochada : keysym = 0xdae
-let _Thai_topatak : keysym = 0xdaf
-let _Thai_thothan : keysym = 0xdb0
-let _Thai_thonangmontho : keysym = 0xdb1
-let _Thai_thophuthao : keysym = 0xdb2
-let _Thai_nonen : keysym = 0xdb3
-let _Thai_dodek : keysym = 0xdb4
-let _Thai_totao : keysym = 0xdb5
-let _Thai_thothung : keysym = 0xdb6
-let _Thai_thothahan : keysym = 0xdb7
-let _Thai_thothong : keysym = 0xdb8
-let _Thai_nonu : keysym = 0xdb9
-let _Thai_bobaimai : keysym = 0xdba
-let _Thai_popla : keysym = 0xdbb
-let _Thai_phophung : keysym = 0xdbc
-let _Thai_fofa : keysym = 0xdbd
-let _Thai_phophan : keysym = 0xdbe
-let _Thai_fofan : keysym = 0xdbf
-let _Thai_phosamphao : keysym = 0xdc0
-let _Thai_moma : keysym = 0xdc1
-let _Thai_yoyak : keysym = 0xdc2
-let _Thai_rorua : keysym = 0xdc3
-let _Thai_ru : keysym = 0xdc4
-let _Thai_loling : keysym = 0xdc5
-let _Thai_lu : keysym = 0xdc6
-let _Thai_wowaen : keysym = 0xdc7
-let _Thai_sosala : keysym = 0xdc8
-let _Thai_sorusi : keysym = 0xdc9
-let _Thai_sosua : keysym = 0xdca
-let _Thai_hohip : keysym = 0xdcb
-let _Thai_lochula : keysym = 0xdcc
-let _Thai_oang : keysym = 0xdcd
-let _Thai_honokhuk : keysym = 0xdce
-let _Thai_paiyannoi : keysym = 0xdcf
-let _Thai_saraa : keysym = 0xdd0
-let _Thai_maihanakat : keysym = 0xdd1
-let _Thai_saraaa : keysym = 0xdd2
-let _Thai_saraam : keysym = 0xdd3
-let _Thai_sarai : keysym = 0xdd4
-let _Thai_saraii : keysym = 0xdd5
-let _Thai_saraue : keysym = 0xdd6
-let _Thai_sarauee : keysym = 0xdd7
-let _Thai_sarau : keysym = 0xdd8
-let _Thai_sarauu : keysym = 0xdd9
-let _Thai_phinthu : keysym = 0xdda
-let _Thai_maihanakat_maitho : keysym = 0xdde
-let _Thai_baht : keysym = 0xddf
-let _Thai_sarae : keysym = 0xde0
-let _Thai_saraae : keysym = 0xde1
-let _Thai_sarao : keysym = 0xde2
-let _Thai_saraaimaimuan : keysym = 0xde3
-let _Thai_saraaimaimalai : keysym = 0xde4
-let _Thai_lakkhangyao : keysym = 0xde5
-let _Thai_maiyamok : keysym = 0xde6
-let _Thai_maitaikhu : keysym = 0xde7
-let _Thai_maiek : keysym = 0xde8
-let _Thai_maitho : keysym = 0xde9
-let _Thai_maitri : keysym = 0xdea
-let _Thai_maichattawa : keysym = 0xdeb
-let _Thai_thanthakhat : keysym = 0xdec
-let _Thai_nikhahit : keysym = 0xded
-let _Thai_leksun : keysym = 0xdf0
-let _Thai_leknung : keysym = 0xdf1
-let _Thai_leksong : keysym = 0xdf2
-let _Thai_leksam : keysym = 0xdf3
-let _Thai_leksi : keysym = 0xdf4
-let _Thai_lekha : keysym = 0xdf5
-let _Thai_lekhok : keysym = 0xdf6
-let _Thai_lekchet : keysym = 0xdf7
-let _Thai_lekpaet : keysym = 0xdf8
-let _Thai_lekkao : keysym = 0xdf9
-let _Hangul : keysym = 0xff31
-let _Hangul_Start : keysym = 0xff32
-let _Hangul_End : keysym = 0xff33
-let _Hangul_Hanja : keysym = 0xff34
-let _Hangul_Jamo : keysym = 0xff35
-let _Hangul_Romaja : keysym = 0xff36
-let _Hangul_Codeinput : keysym = 0xff37
-let _Hangul_Jeonja : keysym = 0xff38
-let _Hangul_Banja : keysym = 0xff39
-let _Hangul_PreHanja : keysym = 0xff3a
-let _Hangul_PostHanja : keysym = 0xff3b
-let _Hangul_SingleCandidate : keysym = 0xff3c
-let _Hangul_MultipleCandidate : keysym = 0xff3d
-let _Hangul_PreviousCandidate : keysym = 0xff3e
-let _Hangul_Special : keysym = 0xff3f
-let _Hangul_switch : keysym = 0xFF7E
-let _Hangul_Kiyeog : keysym = 0xea1
-let _Hangul_SsangKiyeog : keysym = 0xea2
-let _Hangul_KiyeogSios : keysym = 0xea3
-let _Hangul_Nieun : keysym = 0xea4
-let _Hangul_NieunJieuj : keysym = 0xea5
-let _Hangul_NieunHieuh : keysym = 0xea6
-let _Hangul_Dikeud : keysym = 0xea7
-let _Hangul_SsangDikeud : keysym = 0xea8
-let _Hangul_Rieul : keysym = 0xea9
-let _Hangul_RieulKiyeog : keysym = 0xeaa
-let _Hangul_RieulMieum : keysym = 0xeab
-let _Hangul_RieulPieub : keysym = 0xeac
-let _Hangul_RieulSios : keysym = 0xead
-let _Hangul_RieulTieut : keysym = 0xeae
-let _Hangul_RieulPhieuf : keysym = 0xeaf
-let _Hangul_RieulHieuh : keysym = 0xeb0
-let _Hangul_Mieum : keysym = 0xeb1
-let _Hangul_Pieub : keysym = 0xeb2
-let _Hangul_SsangPieub : keysym = 0xeb3
-let _Hangul_PieubSios : keysym = 0xeb4
-let _Hangul_Sios : keysym = 0xeb5
-let _Hangul_SsangSios : keysym = 0xeb6
-let _Hangul_Ieung : keysym = 0xeb7
-let _Hangul_Jieuj : keysym = 0xeb8
-let _Hangul_SsangJieuj : keysym = 0xeb9
-let _Hangul_Cieuc : keysym = 0xeba
-let _Hangul_Khieuq : keysym = 0xebb
-let _Hangul_Tieut : keysym = 0xebc
-let _Hangul_Phieuf : keysym = 0xebd
-let _Hangul_Hieuh : keysym = 0xebe
-let _Hangul_A : keysym = 0xebf
-let _Hangul_AE : keysym = 0xec0
-let _Hangul_YA : keysym = 0xec1
-let _Hangul_YAE : keysym = 0xec2
-let _Hangul_EO : keysym = 0xec3
-let _Hangul_E : keysym = 0xec4
-let _Hangul_YEO : keysym = 0xec5
-let _Hangul_YE : keysym = 0xec6
-let _Hangul_O : keysym = 0xec7
-let _Hangul_WA : keysym = 0xec8
-let _Hangul_WAE : keysym = 0xec9
-let _Hangul_OE : keysym = 0xeca
-let _Hangul_YO : keysym = 0xecb
-let _Hangul_U : keysym = 0xecc
-let _Hangul_WEO : keysym = 0xecd
-let _Hangul_WE : keysym = 0xece
-let _Hangul_WI : keysym = 0xecf
-let _Hangul_YU : keysym = 0xed0
-let _Hangul_EU : keysym = 0xed1
-let _Hangul_YI : keysym = 0xed2
-let _Hangul_I : keysym = 0xed3
-let _Hangul_J_Kiyeog : keysym = 0xed4
-let _Hangul_J_SsangKiyeog : keysym = 0xed5
-let _Hangul_J_KiyeogSios : keysym = 0xed6
-let _Hangul_J_Nieun : keysym = 0xed7
-let _Hangul_J_NieunJieuj : keysym = 0xed8
-let _Hangul_J_NieunHieuh : keysym = 0xed9
-let _Hangul_J_Dikeud : keysym = 0xeda
-let _Hangul_J_Rieul : keysym = 0xedb
-let _Hangul_J_RieulKiyeog : keysym = 0xedc
-let _Hangul_J_RieulMieum : keysym = 0xedd
-let _Hangul_J_RieulPieub : keysym = 0xede
-let _Hangul_J_RieulSios : keysym = 0xedf
-let _Hangul_J_RieulTieut : keysym = 0xee0
-let _Hangul_J_RieulPhieuf : keysym = 0xee1
-let _Hangul_J_RieulHieuh : keysym = 0xee2
-let _Hangul_J_Mieum : keysym = 0xee3
-let _Hangul_J_Pieub : keysym = 0xee4
-let _Hangul_J_PieubSios : keysym = 0xee5
-let _Hangul_J_Sios : keysym = 0xee6
-let _Hangul_J_SsangSios : keysym = 0xee7
-let _Hangul_J_Ieung : keysym = 0xee8
-let _Hangul_J_Jieuj : keysym = 0xee9
-let _Hangul_J_Cieuc : keysym = 0xeea
-let _Hangul_J_Khieuq : keysym = 0xeeb
-let _Hangul_J_Tieut : keysym = 0xeec
-let _Hangul_J_Phieuf : keysym = 0xeed
-let _Hangul_J_Hieuh : keysym = 0xeee
-let _Hangul_RieulYeorinHieuh : keysym = 0xeef
-let _Hangul_SunkyeongeumMieum : keysym = 0xef0
-let _Hangul_SunkyeongeumPieub : keysym = 0xef1
-let _Hangul_PanSios : keysym = 0xef2
-let _Hangul_KkogjiDalrinIeung : keysym = 0xef3
-let _Hangul_SunkyeongeumPhieuf : keysym = 0xef4
-let _Hangul_YeorinHieuh : keysym = 0xef5
-let _Hangul_AraeA : keysym = 0xef6
-let _Hangul_AraeAE : keysym = 0xef7
-let _Hangul_J_PanSios : keysym = 0xef8
-let _Hangul_J_KkogjiDalrinIeung : keysym = 0xef9
-let _Hangul_J_YeorinHieuh : keysym = 0xefa
-let _Korean_Won : keysym = 0xeff

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gdk_tags.var b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gdk_tags.var
deleted file mode 100644 (file)
index a443fc0..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gdk_tags.var
+++ /dev/null
@@ -1,165 +0,0 @@
-(* $Id$ *)
-
-exception ml_raise_gdk
-
-type gdkEventType = "GDK_"
-  [ `NOTHING | `DELETE | `DESTROY | `EXPOSE | `MOTION_NOTIFY | `BUTTON_PRESS
-  | `TWO_BUTTON_PRESS "GDK_2BUTTON_PRESS"
-  | `THREE_BUTTON_PRESS "GDK_3BUTTON_PRESS"
-  | `BUTTON_RELEASE | `KEY_PRESS
-  | `KEY_RELEASE | `ENTER_NOTIFY | `LEAVE_NOTIFY | `FOCUS_CHANGE
-  | `CONFIGURE | `MAP | `UNMAP | `PROPERTY_NOTIFY | `SELECTION_CLEAR
-  | `SELECTION_REQUEST | `SELECTION_NOTIFY | `PROXIMITY_IN
-  | `PROXIMITY_OUT
-  | `DRAG_ENTER | `DRAG_LEAVE | `DRAG_MOTION | `DRAG_STATUS
-  | `DROP_START | `DROP_FINISHED | `CLIENT_EVENT | `VISIBILITY_NOTIFY
-  | `NO_EXPOSE ]
-
-type event_mask = "GDK_"
-  [ `EXPOSURE
-  | `POINTER_MOTION | `POINTER_MOTION_HINT
-  | `BUTTON_MOTION | `BUTTON1_MOTION | `BUTTON2_MOTION | `BUTTON3_MOTION
-  | `BUTTON_PRESS | `BUTTON_RELEASE
-  | `KEY_PRESS | `KEY_RELEASE
-  | `ENTER_NOTIFY | `LEAVE_NOTIFY | `FOCUS_CHANGE
-  | `STRUCTURE | `PROPERTY_CHANGE | `VISIBILITY_NOTIFY
-  | `PROXIMITY_IN | `PROXIMITY_OUT | `SUBSTRUCTURE
-  | `ALL_EVENTS ] "_MASK"
-
-type public extension_events = "GDK_EXTENSION_EVENTS_"
-  [ `NONE | `ALL | `CURSOR ]
-
-type gdkVisibilityState = "GDK_VISIBILITY_"
-  [ `UNOBSCURED | `PARTIAL | `FULLY_OBSCURED ]
-
-type gdkInputSource = "GDK_SOURCE_"
-  [ `MOUSE | `PEN | `ERASER | `CURSOR ]
-
-type gdkCrossingMode = "GDK_CROSSING_"
-  [ `NORMAL | `GRAB | `UNGRAB ]
-
-type gdkNotifyType = "GDK_NOTIFY_"
-  [ `ANCESTOR | `VIRTUAL | `INFERIOR | `NONLINEAR | `NONLINEAR_VIRTUAL
-  | `UNKNOWN ] 
-
-type gdkFillRule = "GDK_"
-  [ `EVEN_ODD_RULE | `WINDING_RULE ]
-
-type gdkOverlapType = "GDK_OVERLAP_RECTANGLE_"
-  [ `IN | `OUT | `PART ]
-
-type gdkFunction = "GDK_"
-  [ `COPY | `INVERT | `XOR ]
-
-type gdkFill = "GDK_"
-  [ `SOLID | `TILED | `STIPPLED | `OPAQUE_STIPPLED ]
-
-type gdkSubwindowMode = "GDK_"
-  [ `CLIP_BY_CHILDREN | `INCLUDE_INFERIORS ]
-
-type gdkLineStyle = "GDK_LINE_"
-  [ `SOLID | `ON_OFF_DASH | `DOUBLE_DASH ]
-
-type gdkCapStyle = "GDK_CAP_"
-  [ `NOT_LAST | `BUTT | `ROUND | `PROJECTING ]
-
-type gdkJoinStyle = "GDK_JOIN_"
-  [ `MITER | `ROUND | `BEVEL ]
-
-type gdkModifier = "GDK_"
-  [ `SHIFT | `LOCK | `CONTROL | `MOD1 | `MOD2 | `MOD3 | `MOD4 | `MOD5
-  | `BUTTON1 | `BUTTON2 | `BUTTON3 | `BUTTON4 | `BUTTON5 ] "_MASK"
-
-type gdkImageType = "GDK_IMAGE_"
-  [ `NORMAL | `SHARED | `FASTEST ]
-
-type gdkVisualType = "GDK_VISUAL_"
-  [ `STATIC_GRAY | `GRAYSCALE | `STATIC_COLOR | `PSEUDO_COLOR
-  | `TRUE_COLOR | `DIRECT_COLOR ]
-
-type gdkFontType = "GDK_FONT_"
-  [ `FONT | `FONTSET ]
-
-type gdkDragAction = "GDK_ACTION_"
-  [ `DEFAULT | `COPY | `MOVE | `LINK | `PRIVATE | `ASK ]
-
-type gdkCursorType = "GDK_" [
-  | `NUM_GLYPHS
-  | `X_CURSOR
-  | `ARROW
-  | `BASED_ARROW_DOWN
-  | `BASED_ARROW_UP
-  | `BOAT
-  | `BOGOSITY
-  | `BOTTOM_LEFT_CORNER
-  | `BOTTOM_RIGHT_CORNER
-  | `BOTTOM_SIDE
-  | `BOTTOM_TEE
-  | `BOX_SPIRAL
-  | `CENTER_PTR
-  | `CIRCLE
-  | `CLOCK
-  | `COFFEE_MUG
-  | `CROSS
-  | `CROSS_REVERSE
-  | `CROSSHAIR
-  | `DIAMOND_CROSS
-  | `DOT
-  | `DOTBOX
-  | `DOUBLE_ARROW
-  | `DRAFT_LARGE
-  | `DRAFT_SMALL
-  | `DRAPED_BOX
-  | `EXCHANGE
-  | `FLEUR
-  | `GOBBLER
-  | `GUMBY
-  | `HAND1
-  | `HAND2
-  | `HEART
-  | `ICON
-  | `IRON_CROSS
-  | `LEFT_PTR
-  | `LEFT_SIDE
-  | `LEFT_TEE
-  | `LEFTBUTTON
-  | `LL_ANGLE
-  | `LR_ANGLE
-  | `MAN
-  | `MIDDLEBUTTON
-  | `MOUSE
-  | `PENCIL
-  | `PIRATE
-  | `PLUS
-  | `QUESTION_ARROW
-  | `RIGHT_PTR
-  | `RIGHT_SIDE
-  | `RIGHT_TEE
-  | `RIGHTBUTTON
-  | `RTL_LOGO
-  | `SAILBOAT
-  | `SB_DOWN_ARROW
-  | `SB_H_DOUBLE_ARROW
-  | `SB_LEFT_ARROW
-  | `SB_RIGHT_ARROW
-  | `SB_UP_ARROW
-  | `SB_V_DOUBLE_ARROW
-  | `SHUTTLE
-  | `SIZING
-  | `SPIDER
-  | `SPRAYCAN
-  | `STAR
-  | `TARGET
-  | `TCROSS
-  | `TOP_LEFT_ARROW
-  | `TOP_LEFT_CORNER
-  | `TOP_RIGHT_CORNER
-  | `TOP_SIDE
-  | `TOP_TEE
-  | `TREK
-  | `UL_ANGLE
-  | `UMBRELLA
-  | `UR_ANGLE
-  | `WATCH
-  | `XTERM
-  ]

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/glGtk.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/glGtk.ml
deleted file mode 100644 (file)
index c7020a4..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/glGtk.ml
+++ /dev/null
@@ -1,86 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-
-type visual_options = [
-  | `USE_GL
-  | `BUFFER_SIZE of int
-  | `LEVEL of int
-  | `RGBA
-  | `DOUBLEBUFFER
-  | `STEREO
-  | `AUX_BUFFERS of int
-  | `RED_SIZE of int
-  | `GREEN_SIZE of int
-  | `BLUE_SIZE of int
-  | `ALPHA_SIZE of int
-  | `DEPTH_SIZE of int
-  | `STENCIL_SIZE of int
-  | `ACCUM_GREEN_SIZE of int
-  | `ACCUM_ALPHA_SIZE of int
-]
-
-type gl_area = [`widget|`drawing|`glarea]
-
-module Raw = struct
-  external create :
-    visual_options list -> share:[>`glarea] optobj -> gl_area obj
-    = "ml_gtk_gl_area_new"
-
-  external swap_buffers : [>`glarea] obj -> unit
-    = "ml_gtk_gl_area_swapbuffers"
-
-  external make_current : [>`glarea] obj -> bool
-    = "ml_gtk_gl_area_make_current"
-end
-
-class area_signals obj =
-object (connect)
-  inherit GObj.widget_signals obj
-  method display ~callback =
-    (new GObj.event_signals ~after obj)#expose ~callback:
-      begin fun ev ->
-       if GdkEvent.Expose.count ev = 0 then
-         if Raw.make_current obj then callback ()
-         else prerr_endline "GlGtk-WARNING **: could not make current";
-       true
-      end
-  method reshape ~callback =
-    (new GObj.event_signals ~after obj)#configure ~callback:
-      begin fun ev ->
-       if Raw.make_current obj then begin
-         callback ~width:(GdkEvent.Configure.width ev)
-           ~height:(GdkEvent.Configure.height ev)
-       end
-       else prerr_endline "GlGtk-WARNING **: could not make current";
-       true
-      end
-  method realize ~callback =
-    let connect = new GObj.misc_signals ~after (GtkBase.Widget.coerce obj) in
-    connect#realize ~callback:
-      begin fun ev ->
-       if Raw.make_current obj then callback ()
-       else prerr_endline "GlGtk-WARNING **: could not make current"
-      end
-end
-
-class area obj = object (self)
-  inherit GObj.widget (obj : gl_area obj)
-  method as_area = obj
-  method event = new GObj.event_ops obj
-  method connect = new area_signals obj
-  method set_size = GtkMisc.DrawingArea.size obj
-  method swap_buffers () = Raw.swap_buffers obj
-  method make_current () =
-    if not (Raw.make_current obj) then
-      raise (Gl.GLerror "make_current")
-end
-
-let area options ?share ?(width=0) ?(height=0) ?packing ?show () =
-  let share =
-    match share with Some (x : area) -> Some x#as_area | None -> None in
-  let w = Raw.create options ~share:(Gpointer.optboxed share) in
-  if width <> 0 || height <> 0 then GtkMisc.DrawingArea.size w ~width ~height;
-  GtkBase.Widget.add_events w [`EXPOSURE];
-  GObj.pack_return (new area w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/glGtk.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/glGtk.mli
deleted file mode 100644 (file)
index 599f24a..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/glGtk.mli
+++ /dev/null
@@ -1,63 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-
-type visual_options = [
-    `USE_GL
-  | `BUFFER_SIZE of int
-  | `LEVEL of int
-  | `RGBA
-  | `DOUBLEBUFFER
-  | `STEREO
-  | `AUX_BUFFERS of int
-  | `RED_SIZE of int
-  | `GREEN_SIZE of int
-  | `BLUE_SIZE of int
-  | `ALPHA_SIZE of int
-  | `DEPTH_SIZE of int
-  | `STENCIL_SIZE of int
-  | `ACCUM_GREEN_SIZE of int
-  | `ACCUM_ALPHA_SIZE of int
-]
-type gl_area = [`widget|`drawing|`glarea]
-
-module Raw :
-  sig
-    external create :
-      visual_options list -> share:[>`glarea] optobj -> gl_area obj
-      = "ml_gtk_gl_area_new"
-    external swap_buffers : [>`glarea] obj -> unit
-      = "ml_gtk_gl_area_swapbuffers"
-    external make_current : [>`glarea] obj -> bool
-      = "ml_gtk_gl_area_make_current"
-  end
-
-class area_signals : 'a obj ->
-  object
-    inherit widget_signals
-    constraint 'a = [>`glarea|`widget]
-    val obj : 'a obj
-    method display : callback:(unit -> unit) -> GtkSignal.id
-    method realize : callback:(unit -> unit) -> GtkSignal.id
-    method reshape :
-      callback:(width:int -> height:int -> unit) -> GtkSignal.id
-  end
-
-class area : gl_area obj ->
-  object
-    inherit widget
-    val obj : gl_area obj
-    method event : event_ops
-    method as_area : gl_area obj
-    method connect : area_signals
-    method make_current : unit -> unit
-    method set_size : width:int -> height:int -> unit
-    method swap_buffers : unit -> unit
-  end
-
-val area :
-  visual_options list ->
-  ?share:area ->
-  ?width:int ->
-  ?height:int -> ?packing:(widget -> unit) -> ?show:bool -> unit -> area

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/glib.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/glib.ml
deleted file mode 100644 (file)
index 2fd0140..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/glib.ml
+++ /dev/null
@@ -1,21 +0,0 @@
-(* $Id$ *)
-
-type warning_func = string -> unit
-
-external set_warning_handler : (string -> unit) -> warning_func
-    = "ml_g_set_warning_handler"
-
-type print_func = string -> unit
-
-external set_print_handler : (string -> unit) -> print_func
-    = "ml_g_set_print_handler"
-
-module Main = struct
-  type t
-  external create : bool -> t = "ml_g_main_new"
-  external iteration : bool -> bool = "ml_g_main_iteration"
-  external pending : unit -> bool = "ml_g_main_pending"
-  external is_running : t -> bool = "ml_g_main_is_running"
-  external quit : t -> unit = "ml_g_main_quit"
-  external destroy : t -> unit = "ml_g_main_destroy"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gpointer.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gpointer.ml
deleted file mode 100644 (file)
index 7d28a1f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gpointer.ml
+++ /dev/null
@@ -1,41 +0,0 @@
-(* $Id$ *)
-
-(* marked pointers *)
-type 'a optaddr
-
-let optaddr : 'a option -> 'a optaddr =
-  function
-      None -> Obj.magic 0
-    | Some x -> Obj.magic x
-
-(* naked pointers *)
-type optstring
-
-external get_null : unit -> optstring = "ml_get_null"
-let raw_null = get_null ()
-
-let optstring : string option -> optstring =
-  function
-      None -> raw_null
-    | Some x -> Obj.magic x
-
-(* boxed pointers *)
-type boxed
-let boxed_null : boxed = Obj.magic (0, raw_null)
-
-type 'a optboxed
-
-let optboxed : 'a option -> 'a optboxed =
-  function
-      None -> Obj.magic boxed_null
-    | Some obj -> Obj.magic obj
-
-let may_box ~f obj : 'a optboxed =
-  match obj with
-    None -> Obj.magic boxed_null
-  | Some obj -> Obj.magic (f obj : 'a)
-
-(* Exceptions *)
-
-exception Null
-let _ =  Callback.register_exception "null_pointer" Null

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtk.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtk.ml
deleted file mode 100644 (file)
index 0c7892e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtk.ml
+++ /dev/null
@@ -1,158 +0,0 @@
-(* $Id$ *)
-
-exception Error of string
-exception Warning of string
-exception Cannot_cast of string * string
-type 'a obj
-type 'a optobj = 'a obj Gpointer.optboxed
-type clampf = float
-
-module Tags = struct
-  type arrow_type = [ `UP|`DOWN|`LEFT|`RIGHT ]
-  type attach_options = [ `EXPAND|`SHRINK|`FILL ]
-  type direction_type = [ `TAB_FORWARD|`TAB_BACKWARD|`UP|`DOWN|`LEFT|`RIGHT ]
-  type justification = [ `LEFT|`RIGHT|`CENTER|`FILL ]
-  type match_type = [ `ALL|`ALL_TAIL|`HEAD|`TAIL|`EXACT|`LAST ]
-  type metric_type = [ `PIXELS|`INCHES|`CENTIMETERS ]
-  type orientation = [ `HORIZONTAL|`VERTICAL ]
-  type corner_type = [ `TOP_LEFT|`BOTTOM_LEFT|`TOP_RIGHT|`BOTTOM_RIGHT ]
-  type pack_type = [ `START|`END ]
-  type path_type = [ `WIDGET|`WIDGET_CLASS|`CLASS ]
-  type policy_type = [ `ALWAYS|`AUTOMATIC|`NEVER ]
-  type position = [ `LEFT|`RIGHT|`TOP|`BOTTOM ]
-  type preview_type = [ `COLOR|`GRAYSCALE ]
-  type relief_style = [ `NORMAL|`HALF|`NONE ]
-  type resize_mode = [ `PARENT|`QUEUE|`IMMEDIATE ]
-  type signal_run_type = [ `FIRST|`LAST|`BOTH|`NO_RECURSE|`ACTION|`NO_HOOKS ]
-  type scroll_type =
-      [ `NONE|`STEP_FORWARD|`STEP_BACKWARD|`PAGE_BACKWARD|`PAGE_FORWARD|`JUMP ]
-  type selection_mode = [ `SINGLE|`BROWSE|`MULTIPLE|`EXTENDED ]
-  type shadow_type = [ `NONE|`IN|`OUT|`ETCHED_IN|`ETCHED_OUT ]
-  type state_type = [ `NORMAL|`ACTIVE|`PRELIGHT|`SELECTED|`INSENSITIVE ] 
-  type submenu_direction = [ `LEFT|`RIGHT ]
-  type submenu_placement = [ `TOP_BOTTOM|`LEFT_RIGHT ]
-  type toolbar_style = [ `ICONS|`TEXT|`BOTH ]
-  type trough_type = [ `NONE|`START|`END|`JUMP ]
-  type update_type = [ `CONTINUOUS|`DISCONTINUOUS|`DELAYED ]
-  type visibility = [ `NONE|`PARTIAL|`FULL ]
-  type window_position = [ `NONE|`CENTER|`MOUSE|`CENTER_ALWAYS ]
-  type window_type = [ `TOPLEVEL|`DIALOG|`POPUP ]
-  type sort_type = [ `ASCENDING|`DESCENDING ]
-  type fundamental_type =
-    [ `INVALID|`NONE|`CHAR|`BOOL|`INT|`UINT|`LONG|`ULONG|`FLOAT|`DOUBLE
-     |`STRING|`ENUM|`FLAGS|`BOXED|`FOREIGN|`CALLBACK|`ARGS|`POINTER
-     |`SIGNAL|`C_CALLBACK|`OBJECT ]
-
-  type accel_flag = [ `VISIBLE|`SIGNAL_VISIBLE|`LOCKED ]
-  type button_box_style = [ `DEFAULT_STYLE|`SPREAD|`EDGE|`START|`END ]
-  type expand_type = [ `X|`Y|`BOTH|`NONE ]
-  type packer_options = [ `PACK_EXPAND|`FILL_X|`FILL_Y ]
-  type side_type = [ `TOP|`BOTTOM|`LEFT|`RIGHT ]
-  type anchor_type = [ `CENTER|`NORTH|`NW|`NE|`SOUTH|`SW|`SE|`WEST|`EAST ]
-  type update_policy = [ `ALWAYS|`IF_VALID|`SNAP_TO_TICKS ]
-  type cell_type = [ `EMPTY|`TEXT|`PIXMAP|`PIXTEXT|`WIDGET ]
-  type button_action = [ `SELECTS|`DRAGS|`EXPANDS ]
-  type calendar_display_options =
-    [ `SHOW_HEADING|`SHOW_DAY_NAMES|`NO_MONTH_CHANGE|`SHOW_WEEK_NUMBERS
-     |`WEEK_START_MONDAY ]
-  type spin_button_update_policy = [ `ALWAYS|`IF_VALID ]
-  type spin_type =
-    [ `STEP_FORWARD|`STEP_BACKWARD|`PAGE_FORWARD|`PAGE_BACKWARD
-     |`HOME|`END|`USER_DEFINED of float ]
-  type progress_bar_style = [ `CONTINUOUS|`DISCRETE ]
-  type progress_bar_orientation =
-    [ `LEFT_TO_RIGHT|`RIGHT_TO_LEFT|`BOTTOM_TO_TOP|`TOP_TO_BOTTOM ]
-  type dest_defaults = [ `MOTION|`HIGHLIGHT|`DROP|`ALL ]
-  type target_flags = [ `SAME_APP|`SAME_WIDGET ]
-  type font_metric_type = [ `PIXELS|`POINTS ]
-  type font_type = [ `BITMAP|`SCALABLE|`SCALABLE_BITMAP|`ALL ]
-  type font_filter_type = [ `BASE|`USER ]
-end
-open Tags
-
-type gtk_type
-type gtk_class
-
-type accel_group
-
-type style
-type 'a group = 'a obj option
-
-type statusbar_message
-type statusbar_context
-
-type color = { red: float; green: float; blue: float; opacity: float }
-type rectangle  = { x: int; y: int; width: int; height: int }
-type target_entry = { target: string; flags: target_flags list; info: int }
-
-type data = [`data]
-type adjustment = [`data|`adjustment]
-type tooltips = [`data|`tooltips]
-type widget = [`widget]
-type container = [`widget|`container]
-type alignment = [`widget|`container|`bin|`alignment]
-type event_box = [`widget|`container|`bin|`eventbox]
-type frame = [`widget|`container|`bin|`frame]
-type aspect_frame = [`widget|`container|`bin|`frame|`aspect]
-type handle_box = [`widget|`container|`bin|`handlebox]
-type invisible = [`widget|`container|`bin|`invisible]
-type item = [`widget|`container|`bin|`item]
-type list_item = [`widget|`container|`bin|`item|`listitem]
-type menu_item = [`widget|`container|`bin|`item|`menuitem]
-type check_menu_item = [`widget|`container|`bin|`item|`menuitem|`checkmenuitem]
-type radio_menu_item =
-    [`widget|`container|`bin|`item|`menuitem|`checkmenuitem|`radiomenuitem]
-type tree_item = [`widget|`container|`bin|`item|`treeitem]
-type viewport = [`widget|`container|`bin|`viewport]
-type window = [`widget|`container|`bin|`window]
-type color_selection_dialog = [`widget|`container|`window|`colorseldialog]
-type dialog = [`widget|`container|`bin|`window|`dialog]
-type input_dialog = [`widget|`container|`bin|`window|`dialog|`inputdialog]
-type file_selection = [`widget|`container|`bin|`window|`filesel]
-type font_selection_dialog = [`widget|`container|`bin|`window|`fontseldialog]
-type plug = [`widget|`container|`bin|`window|`plug]
-type box = [`widget|`container|`box]
-type button_box = [`widget|`container|`box|`bbox]
-type gamma_curve = [`widget|`container|`bbox|`gamma]
-type color_selection = [`widget|`container|`box|`colorsel]
-type combo = [`widget|`container|`box|`combo]
-type statusbar = [`widget|`container|`box|`statusbar]
-type button = [`widget|`container|`button]
-type toggle_button = [`widget|`container|`button|`toggle]
-type radio_button = [`widget|`container|`button|`toggle|`radio]
-type option_menu = [`widget|`container|`button|`optionmenu]
-type clist = [`widget|`container|`clist]
-type fixed = [`widget|`container|`fixed]
-type layout = [`widget|`container|`layout]
-type liste = [`widget|`container|`list]
-type menu_shell = [`widget|`container|`menushell]
-type menu = [`widget|`container|`menushell|`menu]
-type menu_bar = [`widget|`container|`menushell|`menubar]
-type notebook = [`widget|`container|`notebook]
-type font_selection = [`widget|`container|`notebook|`fontsel]
-type packer = [`widget|`container|`packer]
-type paned = [`widget|`container|`paned]
-type scrolled_window = [`widget|`container|`scrolled]
-type socket = [`widget|`container|`socket]
-type table = [`widget|`container|`table]
-type toolbar = [`widget|`container|`toolbar]
-type tree = [`widget|`container|`tree]
-type calendar = [`widget|`calendar]
-type drawing_area = [`widget|`drawing]
-type editable = [`widget|`editable]
-type entry = [`widget|`editable|`entry]
-type spin_button = [`widget|`editable|`entry|`spinbutton]
-type text = [`widget|`editable|`text]
-type misc = [`widget|`misc]
-type arrow = [`widget|`misc|`arrow]
-type image = [`widget|`misc|`image]
-type label = [`widget|`misc|`label]
-type tips_query = [`widget|`misc|`label|`tipsquery]
-type pixmap = [`widget|`misc|`pixmap]
-type progress = [`widget|`progress]
-type progress_bar = [`widget|`progress|`progressbar]
-type range = [`widget|`range]
-type scale = [`widget|`range|`scale]
-type scrollbar = [`widget|`range|`scrollbar]
-type ruler = [`widget|`ruler]
-type separator = [`widget|`separator]

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkArgv.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkArgv.ml
deleted file mode 100644 (file)
index 5e60c8d..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkArgv.ml
+++ /dev/null
@@ -1,106 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-
-type data =
-  | NONE
-  | CHAR of char
-  | BOOL of bool
-  | INT of int
-  | FLOAT of float
-  | STRING of string option
-  | OBJECT of unit obj option
-  | POINTER of Gpointer.boxed option
-
-type 'a result =
-  [ `NONE
-  | `CHAR of char | `BOOL of bool | `INT of int
-  | `UINT of int32 | `LONG of nativeint | `ULONG of nativeint
-  | `FLOAT of float | `DOUBLE of float
-  | `STRING of string option | `ENUM of int | `FLAGS of int32
-  | `BOXED of Gpointer.boxed option
-  | `POINTER of Gpointer.boxed option
-  | `OBJECT of 'a obj option ]
-
-module Arg = struct
-  type t
-  external shift : t -> pos:int -> t = "ml_gtk_arg_shift"
-  external get_type : t -> gtk_type = "ml_gtk_arg_get_type"
-  external get : t -> data = "ml_gtk_arg_get"
-  external set_retloc : t -> 'a result -> unit = "ml_gtk_arg_set_retloc"
-  external get_pointer : t -> Gpointer.boxed = "ml_gtk_arg_get_pointer"
-  external get_nativeint : t -> nativeint = "ml_gtk_arg_get_nativeint"
-
-  (* Safely get an argument *)
-  (*
-  external get_char : t -> char = "ml_gtk_arg_get_char"
-  external get_bool : t -> bool = "ml_gtk_arg_get_bool"
-  external get_int : t -> int = "ml_gtk_arg_get_int"
-  external get_float : t -> float = "ml_gtk_arg_get_float"
-  external get_string : t -> string option = "ml_gtk_arg_get_string"
-  external get_object : t -> unit obj option = "ml_gtk_arg_get_object"
-  *)
-  (* Safely set a result
-     Beware: this is not the opposite of get, arguments and results
-     are two different ways to use GtkArg. *)
-  (*
-  external set_char : t -> char -> unit = "ml_gtk_arg_set_char"
-  external set_bool : t -> bool -> unit = "ml_gtk_arg_set_bool"
-  external set_int : t -> int -> unit = "ml_gtk_arg_set_int"
-  external set_nativeint : t -> nativeint -> unit = "ml_gtk_arg_set_nativeint"
-  external set_float : t -> float -> unit = "ml_gtk_arg_set_float"
-  external set_string : t -> string -> unit = "ml_gtk_arg_set_string"
-  external set_pointer : t -> Gpointer.boxed -> unit = "ml_gtk_arg_set_pointer"
-  external set_object : t -> 'a obj -> unit = "ml_gtk_arg_set_object"
-  *)
-end
-
-open Arg
-type raw_obj
-type t = { referent: raw_obj; nargs: int; args: Arg.t }
-let nth arg ~pos =
-  if pos < 0 || pos >= arg.nargs then invalid_arg "GtkArg.Vect.nth";
-  shift arg.args ~pos
-let result arg =
-  if arg.nargs < 0 then invalid_arg "GtkArgv.result";
-  shift arg.args ~pos:arg.nargs
-external wrap_object : raw_obj -> unit obj = "Val_GtkObject"
-let referent arg =
-  if arg.referent == Obj.magic (-1) then invalid_arg "GtkArgv.referent";
-  wrap_object arg.referent
-let get_result_type arg = get_type (result arg)
-let get_type arg ~pos = get_type (nth arg ~pos)
-let get arg ~pos = get (nth arg ~pos)
-let set_result arg = set_retloc (result arg)
-
-let get_args arg =
-  let rec loop args ~pos =
-    if pos < 0 then args
-    else loop (get arg ~pos :: args) ~pos:(pos-1)
-  in loop [] ~pos:(arg.nargs - 1)
-
-let get_pointer arg ~pos = get_pointer (nth arg ~pos)
-let get_nativeint arg ~pos = get_nativeint (nth arg ~pos)
-
-(*
-let get_char arg ~pos = get_char (nth arg ~pos)
-let get_bool arg ~pos = get_bool (nth arg ~pos)
-let get_int arg ~pos = get_int (nth arg ~pos)
-let get_float arg ~pos = get_float (nth arg ~pos)
-let get_string arg ~pos = get_string (nth arg ~pos)
-let get_object arg ~pos = get_object (nth arg ~pos)
-let set_result_char arg = set_char (result arg)
-let set_result_bool arg = set_bool (result arg)
-let set_result_int arg = set_int (result arg)
-let set_result_nativeint arg = set_nativeint (result arg)
-let set_result_float arg = set_float (result arg)
-let set_result_string arg = set_string (result arg)
-let set_result_pointer arg = set_pointer (result arg)
-let set_result_object arg = set_object (result arg)
-*)
-
-external string_at_pointer : ?pos:int -> ?len:int -> Gpointer.boxed -> string
-    = "ml_string_at_pointer"
-external int_at_pointer : Gpointer.boxed -> int
-    = "ml_int_at_pointer"

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkBase.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkBase.ml
deleted file mode 100644 (file)
index 3b1a00f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkBase.ml
+++ /dev/null
@@ -1,414 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-
-module Type = struct
-  external name : gtk_type -> string = "ml_gtk_type_name"
-  external from_name : string -> gtk_type = "ml_gtk_type_from_name"
-  external parent : gtk_type -> gtk_type = "ml_gtk_type_parent"
-  external get_class : gtk_type -> gtk_class = "ml_gtk_type_class"
-  external parent_class : gtk_type -> gtk_class = "ml_gtk_type_parent_class"
-  external is_a : gtk_type -> gtk_type -> bool = "ml_gtk_type_is_a"
-  external fundamental : gtk_type -> fundamental_type
-      = "ml_gtk_type_fundamental"
-end
-
-module Object = struct
-  external get_type : 'a obj -> gtk_type = "ml_gtk_object_type"
-  let is_a obj name =
-    Type.is_a (get_type obj) (Type.from_name name)
-  external destroy : 'a obj -> unit = "ml_gtk_object_destroy"
-  external coerce : 'a obj -> unit obj = "%identity"
-  external unsafe_cast : 'a obj -> 'b obj = "%identity"
-  let try_cast w name =
-    if is_a w name then unsafe_cast w
-    else raise (Cannot_cast(Type.name(get_type w), name))
-  let get_id (obj : 'a obj) : int = (snd (Obj.magic obj) lor 0)
-  module Signals = struct
-    open GtkSignal
-    let destroy : (_,_) t =
-      { name = "destroy"; marshaller = marshal_unit }
-  end
-end
-
-module Widget = struct
-  let cast w : widget obj = Object.try_cast w "GtkWidget"
-  external coerce : [>`widget] obj -> widget obj = "%identity"
-  external unparent : [>`widget] obj -> unit = "ml_gtk_widget_unparent"
-  external show : [>`widget] obj -> unit = "ml_gtk_widget_show"
-  external show_now : [>`widget] obj -> unit = "ml_gtk_widget_show_now"
-  external show_all : [>`widget] obj -> unit = "ml_gtk_widget_show_all"
-  external hide : [>`widget] obj -> unit = "ml_gtk_widget_hide"
-  external hide_all : [>`widget] obj -> unit = "ml_gtk_widget_hide_all"
-  external map : [>`widget] obj -> unit = "ml_gtk_widget_map"
-  external unmap : [>`widget] obj -> unit = "ml_gtk_widget_unmap"
-  external realize : [>`widget] obj -> unit = "ml_gtk_widget_realize"
-  external unrealize : [>`widget] obj -> unit = "ml_gtk_widget_unrealize"
-  external queue_draw : [>`widget] obj -> unit = "ml_gtk_widget_queue_draw"
-  external queue_resize : [>`widget] obj -> unit = "ml_gtk_widget_queue_resize"
-  external draw : [>`widget] obj -> Gdk.Rectangle.t option -> unit
-      = "ml_gtk_widget_draw"
-  external draw_focus : [>`widget] obj -> unit
-      = "ml_gtk_widget_draw_focus"
-  external draw_default : [>`widget] obj -> unit
-      = "ml_gtk_widget_draw_default"
-  external event : [>`widget] obj -> 'a Gdk.event -> bool
-      = "ml_gtk_widget_event"
-  external activate : [>`widget] obj -> bool
-      = "ml_gtk_widget_activate"
-  external reparent : [>`widget] obj -> [>`widget] obj -> unit
-      = "ml_gtk_widget_reparent"
-  external popup : [>`widget] obj -> x:int -> y:int -> unit
-      = "ml_gtk_widget_popup"
-  external intersect :
-      [>`widget] obj -> Gdk.Rectangle.t -> Gdk.Rectangle.t option
-      = "ml_gtk_widget_intersect"
-  external set_can_default : [>`widget] obj -> bool -> unit
-      = "ml_gtk_widget_set_can_default"
-  external set_can_focus : [>`widget] obj -> bool -> unit
-      = "ml_gtk_widget_set_can_focus"
-  external grab_focus : [>`widget] obj -> unit
-      = "ml_gtk_widget_grab_focus"
-  external grab_default : [>`widget] obj -> unit
-      = "ml_gtk_widget_grab_default"
-  external set_name : [>`widget] obj -> string -> unit
-      = "ml_gtk_widget_set_name"
-  external get_name : [>`widget] obj -> string
-      = "ml_gtk_widget_get_name"
-  external set_state : [>`widget] obj -> state_type -> unit
-      = "ml_gtk_widget_set_state"
-  external set_sensitive : [>`widget] obj -> bool -> unit
-      = "ml_gtk_widget_set_sensitive"
-  external set_uposition : [>`widget] obj -> x:int -> y:int -> unit
-      = "ml_gtk_widget_set_uposition"
-  external set_usize : [>`widget] obj -> width:int -> height:int -> unit
-      = "ml_gtk_widget_set_usize"
-  external add_events : [>`widget] obj -> Gdk.Tags.event_mask list -> unit
-      = "ml_gtk_widget_add_events"
-  external set_events : [>`widget] obj -> Gdk.Tags.event_mask list -> unit
-      = "ml_gtk_widget_set_events"
-  external set_extension_events :
-      [>`widget] obj -> Gdk.Tags.extension_events -> unit
-      = "ml_gtk_widget_set_extension_events"
-  external get_toplevel : [>`widget] obj -> widget obj
-      = "ml_gtk_widget_get_toplevel"
-  external get_ancestor : [>`widget] obj -> gtk_type -> widget obj
-      = "ml_gtk_widget_get_ancestor"
-  external get_colormap : [>`widget] obj -> Gdk.colormap
-      = "ml_gtk_widget_get_colormap"
-  external get_visual : [>`widget] obj -> Gdk.visual
-      = "ml_gtk_widget_get_visual"
-  external get_pointer : [>`widget] obj -> int * int
-      = "ml_gtk_widget_get_pointer"
-  external is_ancestor : [>`widget] obj -> [>`widget] obj -> bool
-      = "ml_gtk_widget_is_ancestor"
-  external set_style : [>`widget] obj -> style -> unit
-      = "ml_gtk_widget_set_style"
-  external set_rc_style : [>`widget] obj -> unit
-      = "ml_gtk_widget_set_rc_style"
-  external ensure_style : [>`widget] obj -> unit
-      = "ml_gtk_widget_ensure_style"
-  external get_style : [>`widget] obj -> style
-      = "ml_gtk_widget_get_style"
-  external restore_default_style : [>`widget] obj -> unit
-      = "ml_gtk_widget_restore_default_style"
-  external add_accelerator :
-      ([>`widget] as 'a) obj -> sgn:('a,unit->unit) GtkSignal.t ->
-      accel_group -> key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list ->
-      ?flags:accel_flag list -> unit
-      = "ml_gtk_widget_add_accelerator_bc" "ml_gtk_widget_add_accelerator"
-  external remove_accelerator :
-      [>`widget] obj -> accel_group ->
-      key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> unit
-      = "ml_gtk_widget_remove_accelerator"
-  external lock_accelerators : [>`widget] obj -> unit
-      = "ml_gtk_widget_lock_accelerators"
-  external unlock_accelerators : [>`widget] obj -> unit
-      = "ml_gtk_widget_unlock_accelerators"
-  external accelerators_locked : [>`widget] obj -> bool
-      = "ml_gtk_widget_accelerators_locked"
-  external window : [>`widget] obj -> Gdk.window
-      = "ml_GtkWidget_window"
-  external visible : [>`widget] obj -> bool
-      = "ml_GTK_WIDGET_VISIBLE"
-  external has_focus : [>`widget] obj -> bool
-      = "ml_GTK_WIDGET_HAS_FOCUS"
-  external parent : [>`widget] obj -> widget obj
-      = "ml_gtk_widget_parent"
-  external set_app_paintable : [>`widget] obj -> bool -> unit
-      = "ml_gtk_widget_set_app_paintable"
-  external allocation : [>`widget] obj -> rectangle
-      = "ml_gtk_widget_allocation"
-  external set_colormap : [>`widget] obj -> Gdk.colormap -> unit
-      = "ml_gtk_widget_set_colormap"
-  external set_visual : [>`widget] obj -> Gdk.visual -> unit
-      = "ml_gtk_widget_set_visual"
-  external set_default_colormap : Gdk.colormap -> unit
-      = "ml_gtk_widget_set_default_colormap"
-  external set_default_visual : Gdk.visual -> unit
-      = "ml_gtk_widget_set_default_visual"
-  external get_default_colormap : unit -> Gdk.colormap
-      = "ml_gtk_widget_get_default_colormap"
-  external get_default_visual : unit -> Gdk.visual
-      = "ml_gtk_widget_get_default_visual"
-  external push_colormap : Gdk.colormap -> unit
-      = "ml_gtk_widget_push_colormap"
-  external push_visual : Gdk.visual -> unit
-      = "ml_gtk_widget_push_visual"
-  external pop_colormap : unit -> unit
-      = "ml_gtk_widget_pop_colormap"
-  external pop_visual : unit -> unit
-      = "ml_gtk_widget_pop_visual"
-  module Signals = struct
-    open GtkArgv
-    open GtkSignal
-    let marshal f _ = function
-      | OBJECT(Some p) :: _ -> f (cast p)
-      |        _ -> invalid_arg "GtkBase.Widget.Signals.marshal"
-    let marshal_opt f _ = function
-      | OBJECT(Some obj) :: _ -> f (Some (cast obj))
-      | OBJECT None :: _ -> f None
-      | _ -> invalid_arg "GtkBase.Widget.Signals.marshal_opt"
-    let marshal_style f _ = function
-      | POINTER p :: _ -> f (Obj.magic p : Gtk.style option)
-      | _ -> invalid_arg "GtkBase.Widget.Signals.marshal_opt"
-    let marshal_drag1 f _ = function
-      | POINTER(Some p) :: _ -> f (Obj.magic p : Gdk.drag_context)
-      |        _ -> invalid_arg "GtkBase.Widget.Signals.marshal_drag1"
-    let marshal_drag2 f _ = function
-      | POINTER(Some p) :: INT time :: _ ->
-         f (Obj.magic p : Gdk.drag_context) ~time
-      |        _ -> invalid_arg "GtkBase.Widget.Signals.marshal_drag2"
-    let marshal_drag3 f argv = function
-      | POINTER(Some p) :: INT x :: INT y :: INT time :: _ ->
-         let res = f (Obj.magic p : Gdk.drag_context) ~x ~y ~time
-         in GtkArgv.set_result argv (`BOOL res)
-      |        _ -> invalid_arg "GtkBase.Widget.Signals.marshal_drag3"
-    let show : ([>`widget],_) t =
-      { name = "show"; marshaller = marshal_unit }
-    let hide : ([>`widget],_) t =
-      { name = "hide"; marshaller = marshal_unit }
-    let map : ([>`widget],_) t =
-      { name = "map"; marshaller = marshal_unit }
-    let unmap : ([>`widget],_) t =
-      { name = "unmap"; marshaller = marshal_unit }
-    let realize : ([>`widget],_) t =
-      { name = "realize"; marshaller = marshal_unit }
-    let draw : ([>`widget],_) t =
-      let marshal f _ = function
-       | POINTER(Some p) :: _ -> f (Obj.magic p : Gdk.Rectangle.t)
-       | _ -> invalid_arg "GtkBase.Widget.Signals.marshal_draw"
-      in { name = "draw"; marshaller = marshal }
-    let draw_focus : ([>`widget],_) t =
-      { name = "draw_focus"; marshaller = marshal_unit }
-    let draw_default : ([>`widget],_) t =
-      { name = "draw_default"; marshaller = marshal_unit }
-    external val_state : int -> state_type = "ml_Val_state_type"
-    let state_changed : ([>`widget],_) t =
-      let marshal f = marshal_int (fun x -> f (val_state x)) in
-      { name = "state_changed"; marshaller = marshal }
-    let parent_set : ([>`widget],_) t =
-      { name = "parent_set"; marshaller = marshal_opt }
-    let style_set : ([>`widget],_) t =
-      { name = "style_set"; marshaller = marshal_style }
-    let drag_begin : ([>`widget],_) t =
-      { name = "drag_begin"; marshaller = marshal_drag1 }
-    let drag_end : ([>`widget],_) t =
-      { name = "drag_end"; marshaller = marshal_drag1 }
-    let drag_data_delete : ([>`widget],_) t =
-      { name = "drag_data_delete"; marshaller = marshal_drag1 }
-    let drag_leave : ([>`widget],_) t =
-      { name = "drag_leave"; marshaller = marshal_drag2 }
-    let drag_motion : ([>`widget],_) t =
-      { name = "drag_motion"; marshaller = marshal_drag3 }
-    let drag_drop : ([>`widget],_) t =
-      { name = "drag_drop"; marshaller = marshal_drag3 }
-    let drag_data_get : ([>`widget],_) t =
-      let marshal f argv = function
-        | POINTER(Some p) :: POINTER(Some q) :: INT info :: INT time :: _ ->
-           f (Obj.magic p : Gdk.drag_context)
-             (Obj.magic q : GtkData.Selection.t) 
-             ~info
-             ~time
-       | _ -> invalid_arg "GtkBase.Widget.Signals.marshal_drag_data_get"
-      in
-      { name = "drag_data_get"; marshaller = marshal }
-    let drag_data_received : ([>`widget],_) t =
-      let marshal f _ = function
-        | POINTER(Some p) :: INT x :: INT y :: POINTER(Some q) ::
-          INT info :: INT time :: _ ->
-           f (Obj.magic p : Gdk.drag_context) ~x ~y
-              (Obj.magic q : GtkData.Selection.t)
-             ~info ~time
-       | _ -> invalid_arg "GtkBase.Widget.Signals.marshal_drag_data_received"
-      in
-      { name = "drag_data_received"; marshaller = marshal }
-
-    module Event = struct
-      let marshal f argv = function
-        | [POINTER(Some p)] ->
-           let ev = GdkEvent.unsafe_copy p in
-            GtkArgv.set_result argv (`BOOL(f ev))
-       | _ -> invalid_arg "GtkBase.Widget.Event.marshal"
-      let any : ([>`widget], Gdk.Tags.event_type Gdk.event -> bool) t =
-       { name = "event"; marshaller = marshal }
-      let button_press : ([>`widget], GdkEvent.Button.t -> bool) t =
-       { name = "button_press_event"; marshaller = marshal }
-      let button_release : ([>`widget], GdkEvent.Button.t -> bool) t =
-       { name = "button_release_event"; marshaller = marshal }
-      let motion_notify : ([>`widget], GdkEvent.Motion.t -> bool) t =
-       { name = "motion_notify_event"; marshaller = marshal }
-      let delete : ([>`widget], [`DELETE] Gdk.event -> bool) t =
-       { name = "delete_event"; marshaller = marshal }
-      let destroy : ([>`widget], [`DESTROY] Gdk.event -> bool) t =
-       { name = "destroy_event"; marshaller = marshal }
-      let expose : ([>`widget], GdkEvent.Expose.t -> bool) t =
-       { name = "expose_event"; marshaller = marshal }
-      let key_press : ([>`widget], GdkEvent.Key.t -> bool) t =
-       { name = "key_press_event"; marshaller = marshal }
-      let key_release : ([>`widget], GdkEvent.Key.t -> bool) t =
-       { name = "key_release_event"; marshaller = marshal }
-      let enter_notify : ([>`widget], GdkEvent.Crossing.t -> bool) t =
-       { name = "enter_notify_event"; marshaller = marshal }
-      let leave_notify : ([>`widget], GdkEvent.Crossing.t -> bool) t =
-       { name = "leave_notify_event"; marshaller = marshal }
-      let configure : ([>`widget], GdkEvent.Configure.t -> bool) t =
-       { name = "configure_event"; marshaller = marshal }
-      let focus_in : ([>`widget], GdkEvent.Focus.t -> bool) t =
-       { name = "focus_in_event"; marshaller = marshal }
-      let focus_out : ([>`widget], GdkEvent.Focus.t -> bool) t =
-       { name = "focus_out_event"; marshaller = marshal }
-      let map : ([>`widget], [`MAP] Gdk.event -> bool) t =
-       { name = "map_event"; marshaller = marshal }
-      let unmap : ([>`widget], [`UNMAP] Gdk.event -> bool) t =
-       { name = "unmap_event"; marshaller = marshal }
-      let property_notify : ([>`widget], GdkEvent.Property.t -> bool) t =
-       { name = "property_notify_event"; marshaller = marshal }
-      let selection_clear : ([>`widget], GdkEvent.Selection.t -> bool) t =
-       { name = "selection_clear_event"; marshaller = marshal }
-      let selection_request : ([>`widget], GdkEvent.Selection.t -> bool) t =
-       { name = "selection_request_event"; marshaller = marshal }
-      let selection_notify : ([>`widget], GdkEvent.Selection.t -> bool) t =
-       { name = "selection_notify_event"; marshaller = marshal }
-      let proximity_in : ([>`widget], GdkEvent.Proximity.t -> bool) t =
-       { name = "proximity_in_event"; marshaller = marshal }
-      let proximity_out : ([>`widget], GdkEvent.Proximity.t -> bool) t =
-       { name = "proximity_out_event"; marshaller = marshal }
-    end
-  end
-end
-
-module Container = struct
-  let cast w : container obj = Object.try_cast w "GtkContainer"
-  external coerce : [>`container] obj -> container obj = "%identity"
-  external set_border_width : [>`container] obj -> int -> unit
-      = "ml_gtk_container_set_border_width"
-  external set_resize_mode : [>`container] obj -> resize_mode -> unit
-      = "ml_gtk_container_set_resize_mode"
-  external add : [>`container] obj -> [>`widget] obj -> unit
-      = "ml_gtk_container_add"
-  external remove : [>`container] obj -> [>`widget] obj -> unit
-      = "ml_gtk_container_remove"
-  let set ?border_width ?(width = -2) ?(height = -2) w =
-    may border_width ~f:(set_border_width w);
-    if width <> -2 || height <> -2 then
-      Widget.set_usize w ?width ?height
-  external foreach : [>`container] obj -> f:(widget obj-> unit) -> unit
-      = "ml_gtk_container_foreach"
-  let children w =
-    let l = ref [] in
-    foreach w ~f:(fun c -> l := c :: !l);
-    List.rev !l
-  external focus : [>`container] obj -> direction_type -> bool
-      = "ml_gtk_container_focus"
-  (* Called by Widget.grab_focus *)
-  external set_focus_child : [>`container] obj -> [>`widget] optobj -> unit
-      = "ml_gtk_container_set_focus_child"
-  external set_focus_vadjustment :
-      [>`container] obj -> [>`adjustment] optobj -> unit
-      = "ml_gtk_container_set_focus_vadjustment"
-  external set_focus_hadjustment :
-      [>`container] obj -> [>`adjustment] optobj -> unit
-      = "ml_gtk_container_set_focus_hadjustment"
-  module Signals = struct
-    open GtkSignal
-    let add : ([>`container],_) t =
-      { name = "add"; marshaller = Widget.Signals.marshal }
-    let remove : ([>`container],_) t =
-      { name = "remove"; marshaller = Widget.Signals.marshal }
-    let need_resize : ([>`container],_) t =
-      let marshal f argv _ = GtkArgv.set_result argv (`BOOL(f ())) in
-      { name = "need_resize"; marshaller = marshal }
-    external val_direction : int -> direction_type = "ml_Val_direction_type"
-    let focus : ([>`container],_) t =
-      let marshal f argv = function
-        | GtkArgv.INT dir :: _ ->
-            GtkArgv.set_result argv (`BOOL(f (val_direction dir)))
-        | _ -> invalid_arg "GtkBase.Container.Signals.marshal_focus"
-      in { name = "focus"; marshaller = marshal }
-  end
-end
-
-module Item = struct
-  let cast w : item obj = Object.try_cast w "GtkItem"
-  external coerce : [>`item] obj -> item obj = "%identity"
-  external select : [>`item] obj -> unit = "ml_gtk_item_select"
-  external deselect : [>`item] obj -> unit = "ml_gtk_item_deselect"
-  external toggle : [>`item] obj -> unit = "ml_gtk_item_toggle"
-  module Signals = struct
-    open GtkSignal
-    let select : ([>`item],_) t =
-      { name = "select"; marshaller = marshal_unit }
-    let deselect : ([>`item],_) t =
-      { name = "deselect"; marshaller = marshal_unit }
-    let toggle : ([>`item],_) t =
-      { name = "toggle"; marshaller = marshal_unit }
-  end
-end
-
-
-module DnD = struct
-  external dest_set :
-      [>`widget] obj -> flags:dest_defaults list ->
-      targets:target_entry array -> actions:Gdk.Tags.drag_action list -> unit 
-    = "ml_gtk_drag_dest_set"
-  external dest_unset : [>`widget] obj -> unit
-      = "ml_gtk_drag_dest_unset"
-  external finish :
-      Gdk.drag_context -> success:bool -> del:bool -> time:int -> unit
-      = "ml_gtk_drag_finish"
-  external get_data :
-      [>`widget] obj -> Gdk.drag_context -> target:Gdk.atom -> time:int -> unit
-      = "ml_gtk_drag_get_data"
-  external get_source_widget : Gdk.drag_context -> widget obj
-      = "ml_gtk_drag_get_source_widget"
-  external highlight : [>`widget] obj -> unit = "ml_gtk_drag_highlight"
-  external unhighlight : [>`widget] obj -> unit = "ml_gtk_drag_unhighlight"
-  external set_icon_widget :
-      Gdk.drag_context -> [>`widget] obj -> hot_x:int -> hot_y:int -> unit
-      = "ml_gtk_drag_set_icon_widget"
-  external set_icon_pixmap :
-      Gdk.drag_context -> colormap:Gdk.colormap ->
-      Gdk.pixmap -> ?mask:Gdk.bitmap -> hot_x:int -> hot_y:int -> unit
-      = "ml_gtk_drag_set_icon_pixmap_bc" "ml_gtk_drag_set_icon_pixmap"
-  external set_icon_default : Gdk.drag_context -> unit
-      = "ml_gtk_drag_set_icon_default"
-  external set_default_icon :
-      colormap:Gdk.colormap -> Gdk.pixmap ->
-      ?mask:Gdk.bitmap -> hot_x:int -> hot_y:int -> unit
-      = "ml_gtk_drag_set_default_icon"
-  external source_set :
-      [>`widget] obj -> ?modi:Gdk.Tags.modifier list ->
-      targets:target_entry array -> actions:Gdk.Tags.drag_action list -> unit
-      = "ml_gtk_drag_source_set"
-  external source_set_icon :
-      [>`widget] obj -> colormap:Gdk.colormap ->
-      Gdk.pixmap -> ?mask:Gdk.bitmap -> unit
-      = "ml_gtk_drag_source_set_icon"
-  external source_unset : [>`widget] obj -> unit
-      = "ml_gtk_drag_source_unset"
-(*  external dest_handle_event : [>`widget] -> *)
-end
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkBin.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkBin.ml
deleted file mode 100644 (file)
index ab4cc7e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkBin.ml
+++ /dev/null
@@ -1,170 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module Alignment = struct
-  let cast w : alignment obj = Object.try_cast w "GtkAlignment"
-  external create :
-      x:clampf -> y:clampf -> xscale:clampf -> yscale:clampf -> alignment obj
-      = "ml_gtk_alignment_new"
-  let create ?(x=0.5) ?(y=0.5) ?(xscale=1.) ?(yscale=1.) () =
-    create ~x ~y ~xscale ~yscale
-  external set :
-      ?x:clampf -> ?y:clampf -> ?xscale:clampf -> ?yscale:clampf ->
-      [>`alignment] obj -> unit
-      = "ml_gtk_alignment_set"
-end
-
-module EventBox = struct
-  let cast w : event_box obj = Object.try_cast w "GtkEventBox"
-  external create : unit -> event_box obj = "ml_gtk_event_box_new"
-end
-
-module Frame = struct
-  let cast w : frame obj = Object.try_cast w "GtkFrame"
-  external coerce : [>`frame] obj -> frame obj = "%identity"
-  external create : string -> frame obj = "ml_gtk_frame_new"
-  external set_label : [>`frame] obj -> string -> unit
-      = "ml_gtk_frame_set_label"
-  external set_label_align : [>`frame] obj -> x:clampf -> y:clampf -> unit
-      = "ml_gtk_frame_set_label_align"
-  external set_shadow_type : [>`frame] obj -> shadow_type -> unit
-      = "ml_gtk_frame_set_shadow_type"
-  external get_label_xalign : [>`frame] obj -> float
-      = "ml_gtk_frame_get_label_xalign"
-  external get_label_yalign : [>`frame] obj -> float
-      = "ml_gtk_frame_get_label_yalign"
-  let set_label_align' ?x ?y w =
-    set_label_align w
-      ~x:(may_default get_label_xalign w ~opt:x)
-      ~y:(may_default get_label_yalign w ~opt:y)
-  let set ?label ?label_xalign ?label_yalign ?shadow_type w =
-    may label ~f:(set_label w);
-    if label_xalign <> None || label_yalign <> None then
-      set_label_align' w ?x:label_xalign ?y:label_yalign;
-    may shadow_type ~f:(set_shadow_type w)
-end
-
-module AspectFrame = struct
-  let cast w : aspect_frame obj = Object.try_cast w "GtkAspectFrame"
-  external create :
-      label:string -> xalign:clampf ->
-      yalign:clampf -> ratio:float -> obey_child:bool -> aspect_frame obj
-      = "ml_gtk_aspect_frame_new"
-  let create ?(label="") ?(xalign=0.5) ?(yalign=0.5)
-      ?(ratio=1.0) ?(obey_child=true) () =
-    create ~label ~xalign ~yalign ~ratio ~obey_child
-  external set :
-      [>`aspect] obj ->
-      xalign:clampf -> yalign:clampf -> ratio:float -> obey_child:bool -> unit
-      = "ml_gtk_aspect_frame_set"
-  external get_xalign : [>`aspect] obj -> clampf
-      = "ml_gtk_aspect_frame_get_xalign"
-  external get_yalign : [>`aspect] obj -> clampf
-      = "ml_gtk_aspect_frame_get_yalign"
-  external get_ratio : [>`aspect] obj -> clampf
-      = "ml_gtk_aspect_frame_get_ratio"
-  external get_obey_child : [>`aspect] obj -> bool
-      = "ml_gtk_aspect_frame_get_obey_child"
-  let set ?xalign ?yalign ?ratio ?obey_child w =
-    if xalign <> None || yalign <> None || ratio <> None || obey_child <> None
-    then set w
-       ~xalign:(may_default get_xalign w ~opt:xalign)
-       ~yalign:(may_default get_yalign w ~opt:yalign)
-       ~ratio:(may_default get_ratio w ~opt:ratio)
-       ~obey_child:(may_default get_obey_child w ~opt:obey_child)
-end
-
-module HandleBox = struct
-  let cast w : handle_box obj = Object.try_cast w "GtkHandleBox"
-  external create : unit -> handle_box obj = "ml_gtk_handle_box_new"
-  external set_shadow_type : [>`handlebox] obj -> shadow_type -> unit =
-   "ml_gtk_handle_box_set_shadow_type"
-  external set_handle_position : [>`handlebox] obj -> position -> unit =
-   "ml_gtk_handle_box_set_handle_position"
-  external set_snap_edge : [>`handlebox] obj -> position -> unit =
-   "ml_gtk_handle_box_set_snap_edge"
-  module Signals = struct
-    open GtkSignal
-    let child_attached : ([>`handlebox],_) t =
-      { name = "child_attached"; marshaller = Widget.Signals.marshal }
-    let child_detached : ([>`handlebox],_) t =
-      { name = "child_detached"; marshaller = Widget.Signals.marshal }
-  end
-end
-
-module Viewport = struct
-  let cast w : viewport obj = Object.try_cast w "GtkViewport"
-  external create :
-      [>`adjustment] optobj -> [>`adjustment] optobj -> viewport obj
-      = "ml_gtk_viewport_new"
-  let create ?hadjustment ?vadjustment () =
-    create (Gpointer.optboxed hadjustment) (Gpointer.optboxed vadjustment)
-  external get_hadjustment : [>`viewport] obj -> adjustment obj
-      = "ml_gtk_viewport_get_hadjustment"
-  external get_vadjustment : [>`viewport] obj -> adjustment obj
-      = "ml_gtk_viewport_get_vadjustment"
-  external set_hadjustment : [>`viewport] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_viewport_set_hadjustment"
-  external set_vadjustment : [>`viewport] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_viewport_set_vadjustment"
-  external set_shadow_type : [>`viewport] obj -> shadow_type -> unit
-      = "ml_gtk_viewport_set_shadow_type"
-  let set ?hadjustment ?vadjustment ?shadow_type w =
-    may hadjustment ~f:(set_hadjustment w);
-    may vadjustment ~f:(set_vadjustment w);
-    may shadow_type ~f:(set_shadow_type w)
-end
-
-module ScrolledWindow = struct
-  let cast w : scrolled_window obj = Object.try_cast w "GtkScrolledWindow"
-  external create :
-      [>`adjustment] optobj -> [>`adjustment] optobj -> scrolled_window obj
-      = "ml_gtk_scrolled_window_new"
-  let create ?hadjustment ?vadjustment () =
-    create (Gpointer.optboxed hadjustment) (Gpointer.optboxed vadjustment)
-  external set_hadjustment : [>`scrolled] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_scrolled_window_set_hadjustment"
-  external set_vadjustment : [>`scrolled] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_scrolled_window_set_vadjustment"
-  external get_hadjustment : [>`scrolled] obj -> adjustment obj
-      = "ml_gtk_scrolled_window_get_hadjustment"
-  external get_vadjustment : [>`scrolled] obj -> adjustment obj
-      = "ml_gtk_scrolled_window_get_vadjustment"
-  external set_policy : [>`scrolled] obj -> policy_type -> policy_type -> unit
-      = "ml_gtk_scrolled_window_set_policy"
-  external add_with_viewport : [>`scrolled] obj -> [>`widget] obj -> unit
-      = "ml_gtk_scrolled_window_add_with_viewport"
-  external get_hscrollbar_policy : [>`scrolled] obj -> policy_type
-      = "ml_gtk_scrolled_window_get_hscrollbar_policy"
-  external get_vscrollbar_policy : [>`scrolled] obj -> policy_type
-      = "ml_gtk_scrolled_window_get_vscrollbar_policy"
-  external set_placement : [>`scrolled] obj -> corner_type -> unit
-      = "ml_gtk_scrolled_window_set_placement"
-  let set_policy' ?hpolicy ?vpolicy w =
-    set_policy w
-      (may_default get_hscrollbar_policy w ~opt:hpolicy)
-      (may_default get_vscrollbar_policy w ~opt:vpolicy)
-  let set ?hpolicy ?vpolicy ?placement w =
-    if hpolicy <> None || vpolicy <> None then
-      set_policy' w ?hpolicy ?vpolicy;
-    may placement ~f:(set_placement w)
-end
-
-module Socket = struct
-  let cast w : socket obj = Object.try_cast w "GtkSocket"
-  external coerce : [>`socket] obj -> socket obj = "%identity"
-  external create : unit -> socket obj = "ml_gtk_socket_new"
-  external steal : [>`socket] obj -> Gdk.xid -> unit = "ml_gtk_socket_steal"
-end
-
-(*
-module Invisible = struct
-  let cast w : socket obj = Object.try_cast w "GtkInvisible"
-  external coerce : [>`invisible] obj -> invisible obj = "%identity"
-  external create : unit -> invisible obj = "ml_gtk_invisible_new"
-end
-*)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkButton.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkButton.ml
deleted file mode 100644 (file)
index 6d9ddf5..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkButton.ml
+++ /dev/null
@@ -1,148 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module Button = struct
-  let cast w : button obj = Object.try_cast w "GtkButton"
-  external coerce : [>`button] obj -> button obj = "%identity"
-  external create : unit -> button obj = "ml_gtk_button_new"
-  external create_with_label : string -> button obj
-      = "ml_gtk_button_new_with_label"
-  let create ?label () =
-    match label with None -> create ()
-    | Some x -> create_with_label x
-  external pressed : [>`button] obj -> unit = "ml_gtk_button_pressed"
-  external released : [>`button] obj -> unit = "ml_gtk_button_released"
-  external clicked : [>`button] obj -> unit = "ml_gtk_button_clicked"
-  external enter : [>`button] obj -> unit = "ml_gtk_button_enter"
-  external leave : [>`button] obj -> unit = "ml_gtk_button_leave"
-  module Signals = struct
-    open GtkSignal
-    let pressed : ([>`button],_) t =
-      { name = "pressed"; marshaller = marshal_unit }
-    let released : ([>`button],_) t =
-      { name = "released"; marshaller = marshal_unit }
-    let clicked : ([>`button],_) t =
-      { name = "clicked"; marshaller = marshal_unit }
-    let enter : ([>`button],_) t =
-      { name = "enter"; marshaller = marshal_unit }
-    let leave : ([>`button],_) t =
-      { name = "leave"; marshaller = marshal_unit }
-  end
-end
-
-module ToggleButton = struct
-  let cast w : toggle_button obj = Object.try_cast w "GtkToggleButton"
-  external coerce : [>`toggle] obj -> toggle_button obj = "%identity"
-  external toggle_button_create : unit -> toggle_button obj
-      = "ml_gtk_toggle_button_new"
-  external toggle_button_create_with_label : string -> toggle_button obj
-      = "ml_gtk_toggle_button_new_with_label"
-  external check_button_create : unit -> toggle_button obj
-      = "ml_gtk_check_button_new"
-  external check_button_create_with_label : string -> toggle_button obj
-      = "ml_gtk_check_button_new_with_label"
-  let create_toggle ?label () =
-    match label with None -> toggle_button_create ()
-    | Some label -> toggle_button_create_with_label label
-  let create_check ?label () =
-    match label with None -> check_button_create ()
-    | Some label -> check_button_create_with_label label
-  external set_mode : [>`toggle] obj -> bool -> unit
-      = "ml_gtk_toggle_button_set_mode"
-  external set_active : [>`toggle] obj -> bool -> unit
-      = "ml_gtk_toggle_button_set_active"
-  let set ?active ?draw_indicator w =
-    may ~f:(set_mode w) draw_indicator;
-    may ~f:(set_active w) active
-  external get_active : [>`toggle] obj -> bool
-      = "ml_gtk_toggle_button_get_active"
-  external toggled : [>`toggle] obj -> unit
-      = "ml_gtk_toggle_button_toggled"
-  module Signals = struct
-    open GtkSignal
-    let toggled : ([>`toggle],_) t =
-      { name = "toggled"; marshaller = marshal_unit }
-  end
-end
-
-module RadioButton = struct
-  let cast w : radio_button obj = Object.try_cast w "GtkRadioButton"
-  external create : radio_button group -> radio_button obj
-      = "ml_gtk_radio_button_new"
-  external create_with_label : radio_button group -> string -> radio_button obj
-      = "ml_gtk_radio_button_new_with_label"
-  external set_group : [>`radio] obj -> radio_button group -> unit
-      = "ml_gtk_radio_button_set_group"
-  let create ?(group = None) ?label () =
-    match label with None -> create group
-    | Some label -> create_with_label group label
-end
-
-module Toolbar = struct
-  let cast w : toolbar obj = Object.try_cast w "GtkToolbar"
-  external create : orientation -> style:toolbar_style -> toolbar obj
-      = "ml_gtk_toolbar_new"
-  let create dir ?(style=`BOTH) () = create dir ~style
-  external insert_space : [>`toolbar] obj -> pos:int -> unit
-      = "ml_gtk_toolbar_insert_space"
-  let insert_space w ?(pos = -1) () = insert_space w ~pos
-  external insert_button :
-      [>`toolbar] obj -> kind:[`BUTTON|`TOGGLEBUTTON|`RADIOBUTTON] ->
-      text:string -> tooltip:string ->
-      tooltip_private:string ->
-      icon:[>`widget] optobj -> pos:int -> button obj
-      = "ml_gtk_toolbar_insert_element_bc" "ml_gtk_toolbar_insert_element"
-  let insert_button w ?(kind=`BUTTON) ?(text="") ?(tooltip="")
-      ?(tooltip_private="") ?icon ?(pos = -1) ?callback () =
-    let b =insert_button w ~kind ~text ~tooltip ~tooltip_private ~pos
-        ~icon:(Gpointer.optboxed icon)
-    in
-    match callback with
-    | None   -> b
-    | Some c -> GtkSignal.connect b ~sgn:Button.Signals.clicked
-         ~callback: c; b
-  external insert_widget :
-      [>`toolbar] obj -> [>`widget] obj ->
-      tooltip:string -> tooltip_private:string -> pos:int -> unit
-      = "ml_gtk_toolbar_insert_widget"
-  let insert_widget w ?(tooltip="") ?(tooltip_private="") ?(pos = -1) w' =
-    insert_widget w w' ~tooltip ~tooltip_private ~pos
-  external set_orientation : [>`toolbar] obj -> orientation -> unit =
-    "ml_gtk_toolbar_set_orientation"
-  external set_style : [>`toolbar] obj -> toolbar_style -> unit =
-    "ml_gtk_toolbar_set_style"
-  external set_space_size : [>`toolbar] obj -> int -> unit =
-    "ml_gtk_toolbar_set_space_size"
-  external set_space_style : [>`toolbar] obj -> [ `EMPTY|`LINE ] -> unit =
-    "ml_gtk_toolbar_set_space_style"
-  external set_tooltips : [>`toolbar] obj -> bool -> unit =
-    "ml_gtk_toolbar_set_tooltips"
-  external set_button_relief : [>`toolbar] obj -> relief_style -> unit =
-    "ml_gtk_toolbar_set_button_relief"
-  external get_button_relief : [>`toolbar] obj -> relief_style =
-    "ml_gtk_toolbar_get_button_relief"
-  let set ?orientation ?style ?space_size
-      ?space_style ?tooltips ?button_relief w =
-    may orientation ~f:(set_orientation w);
-    may style ~f:(set_style w);
-    may space_size ~f:(set_space_size w);
-    may space_style ~f:(set_space_style w);
-    may tooltips ~f:(set_tooltips w);
-    may button_relief ~f:(set_button_relief w)
-  module Signals = struct
-    open GtkSignal
-    external val_orientation : int -> orientation = "ml_Val_orientation"
-    external val_toolbar_style : int -> toolbar_style
-       = "ml_Val_toolbar_style"
-    let orientation_changed : ([>`toolbar],_) t =
-      let marshal f = marshal_int (fun x -> f (val_orientation x)) in
-      { name = "orientation_changed"; marshaller = marshal }
-    let style_changed : ([>`toolbar],_) t =
-      let marshal f = marshal_int (fun x -> f (val_toolbar_style x)) in
-      { name = "style_changed"; marshaller = marshal }
-  end
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkData.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkData.ml
deleted file mode 100644 (file)
index 5b7f90e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkData.ml
+++ /dev/null
@@ -1,148 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-
-module AccelGroup = struct
-  external create : unit -> accel_group = "ml_gtk_accel_group_new"
-  external activate :
-      accel_group -> key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> bool
-      = "ml_gtk_accel_group_activate"
-  external groups_activate :
-      'a obj -> key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> bool
-      = "ml_gtk_accel_groups_activate"
-  external attach : accel_group -> 'a obj -> unit
-      = "ml_gtk_accel_group_attach"
-  external detach : accel_group -> 'a obj -> unit
-      = "ml_gtk_accel_group_detach"
-  external lock : accel_group -> unit
-      = "ml_gtk_accel_group_lock"
-  external unlock : accel_group -> unit
-      = "ml_gtk_accel_group_unlock"
-  external lock_entry :
-      accel_group -> key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> bool
-      = "ml_gtk_accel_group_lock_entry"
-  external add :
-      accel_group -> key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list ->
-      ?flags:accel_flag list ->
-      call:'a obj -> sgn:('a,unit->unit) GtkSignal.t -> unit
-      = "ml_gtk_accel_group_add_bc" "ml_gtk_accel_group_add"
-  external remove :
-      accel_group ->
-      key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> call:'a obj -> unit
-      = "ml_gtk_accel_group_remove"
-  external valid : key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> bool
-      = "ml_gtk_accelerator_valid"
-  external set_default_mod_mask : Gdk.Tags.modifier list option -> unit
-      = "ml_gtk_accelerator_set_default_mod_mask"
-end
-
-module Style = struct
-  external create : unit -> style = "ml_gtk_style_new"
-  external copy : style -> style = "ml_gtk_style_copy"
-  external attach : style -> Gdk.window -> style = "ml_gtk_style_attach"
-  external detach : style -> unit = "ml_gtk_style_detach"
-  external set_background : style -> Gdk.window -> state_type -> unit
-      = "ml_gtk_style_set_background"
-  external draw_hline :
-      style -> Gdk.window -> state_type -> x:int -> x:int -> y:int -> unit
-      = "ml_gtk_draw_hline_bc" "ml_gtk_draw_hline"
-  external draw_vline :
-      style -> Gdk.window -> state_type -> y:int -> y:int -> x:int -> unit
-      = "ml_gtk_draw_vline_bc" "ml_gtk_draw_vline"
-  external get_bg : style -> state:state_type -> Gdk.Color.t
-      = "ml_gtk_style_get_bg"
-  external set_bg : style -> state:state_type -> color:Gdk.Color.t -> unit
-      = "ml_gtk_style_set_bg"
-  external get_dark_gc : style -> state:state_type -> Gdk.gc
-      = "ml_gtk_style_get_dark_gc"
-  external get_light_gc : style -> state:state_type -> Gdk.gc
-      = "ml_gtk_style_get_light_gc"
-  external get_colormap : style -> Gdk.colormap = "ml_gtk_style_get_colormap"
-  external get_font : style -> Gdk.font = "ml_gtk_style_get_font"
-  external set_font : style -> Gdk.font -> unit = "ml_gtk_style_set_font"
-(*
-  let set st ?:background ?:font =
-    let may_set f = may fun:(f st) in
-    may_set set_background background;
-    may_set set_font font
-*)
-end
-
-module Data = struct
-  module Signals = struct
-    open GtkSignal
-    let disconnect : ([>`data],_) t =
-      { name = "disconnect"; marshaller = marshal_unit }
-  end
-end
-
-module Adjustment = struct
-  external create :
-      value:float -> lower:float -> upper:float ->
-      step_incr:float -> page_incr:float -> page_size:float -> adjustment obj
-      = "ml_gtk_adjustment_new_bc" "ml_gtk_adjustment_new"
-  external set_value : [>`adjustment] obj -> float -> unit
-      = "ml_gtk_adjustment_set_value"
-  external clamp_page :
-      [>`adjustment] obj -> lower:float -> upper:float -> unit
-      = "ml_gtk_adjustment_clamp_page"
-  external get_lower : [>`adjustment] obj -> float
-      = "ml_gtk_adjustment_get_lower"
-  external get_upper : [>`adjustment] obj -> float
-      = "ml_gtk_adjustment_get_upper"
-  external get_value : [>`adjustment] obj -> float
-      = "ml_gtk_adjustment_get_value"
-  external get_step_increment : [>`adjustment] obj -> float
-      = "ml_gtk_adjustment_get_step_increment"
-  external get_page_increment : [>`adjustment] obj -> float
-      = "ml_gtk_adjustment_get_page_increment"
-  external get_page_size : [>`adjustment] obj -> float
-      = "ml_gtk_adjustment_get_page_size"
-  module Signals = struct
-    open GtkSignal
-    let changed : ([>`adjustment],_) t =
-      { name = "changed"; marshaller = marshal_unit }
-    let value_changed : ([>`adjustment],_) t =
-      { name = "value_changed"; marshaller = marshal_unit }
-  end
-end
-
-module Tooltips = struct
-  external create : unit -> tooltips obj = "ml_gtk_tooltips_new"
-  external enable : [>`tooltips] obj -> unit = "ml_gtk_tooltips_enable"
-  external disable : [>`tooltips] obj -> unit = "ml_gtk_tooltips_disable"
-  external set_delay : [>`tooltips] obj -> int -> unit
-      = "ml_gtk_tooltips_set_delay"
-  external set_tip :
-      [>`tooltips] obj ->
-      [>`widget] obj -> ?text:string -> ?privat:string -> unit
-      = "ml_gtk_tooltips_set_tip"
-  external set_colors :
-      [>`tooltips] obj ->
-      ?foreground:Gdk.Color.t -> ?background:Gdk.Color.t -> unit -> unit
-      = "ml_gtk_tooltips_set_colors"
-  let set ?delay ?foreground ?background tt =
-    may ~f:(set_delay tt) delay;
-    if foreground <> None || background <> None then
-      set_colors tt ?foreground ?background ()
-end
-
-
-module Selection = struct
-  type t
-  external selection : t -> Gdk.atom
-      = "ml_gtk_selection_data_selection"
-  external target : t -> Gdk.atom
-      = "ml_gtk_selection_data_target"
-  external seltype : t -> Gdk.atom
-      = "ml_gtk_selection_data_type"
-  external format : t -> int
-      = "ml_gtk_selection_data_format"
-  external get_data : t -> string
-      = "ml_gtk_selection_data_get_data"       (* May raise Gpointer.null *)
-  external set :
-      t -> typ:Gdk.atom -> format:int -> ?data:string -> unit
-      = "ml_gtk_selection_data_set"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkEdit.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkEdit.ml
deleted file mode 100644 (file)
index bef2fed..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkEdit.ml
+++ /dev/null
@@ -1,223 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module Editable = struct
-  let cast w : editable obj = Object.try_cast w "GtkEditable"
-  external coerce : [>`editable] obj -> editable obj = "%identity"
-  external select_region : [>`editable] obj -> start:int -> stop:int -> unit
-      = "ml_gtk_editable_select_region"
-  external insert_text : [>`editable] obj -> string -> pos:int -> int
-      = "ml_gtk_editable_insert_text"
-  external delete_text : [>`editable] obj -> start:int -> stop:int -> unit
-      = "ml_gtk_editable_delete_text"
-  external get_chars : [>`editable] obj -> start:int -> stop:int -> string
-      = "ml_gtk_editable_get_chars"
-  external cut_clipboard : [>`editable] obj -> unit
-      = "ml_gtk_editable_cut_clipboard"
-  external copy_clipboard : [>`editable] obj -> unit
-      = "ml_gtk_editable_copy_clipboard"
-  external paste_clipboard : [>`editable] obj -> unit
-      = "ml_gtk_editable_paste_clipboard"
-  external claim_selection :
-      [>`editable] obj -> claim:bool -> time:int -> unit
-      = "ml_gtk_editable_claim_selection"
-  external delete_selection : [>`editable] obj -> unit
-      = "ml_gtk_editable_delete_selection"
-  external changed : [>`editable] obj -> unit = "ml_gtk_editable_changed"
-  external set_position : [>`editable] obj -> int -> unit
-      = "ml_gtk_editable_set_position"
-  external get_position : [>`editable] obj -> int
-      = "ml_gtk_editable_get_position"
-  external set_editable : [>`editable] obj -> bool -> unit
-      = "ml_gtk_editable_set_editable"
-  external selection_start_pos : [>`editable] obj -> int
-      = "ml_gtk_editable_selection_start_pos"
-  external selection_end_pos : [>`editable] obj -> int
-      = "ml_gtk_editable_selection_end_pos"
-  external has_selection : [>`editable] obj -> bool
-      = "ml_gtk_editable_has_selection"
-  module Signals = struct
-    open GtkArgv
-    open GtkSignal
-    let activate : ([>`editable],_) t =
-      { name = "activate"; marshaller = marshal_unit }
-    let changed : ([>`editable],_) t =
-      { name = "changed"; marshaller = marshal_unit }
-    let marshal_insert f argv = function
-      | STRING _ :: INT len :: POINTER(Some pos) :: _ ->
-          (* XXX These two accesses are implementation-dependent *)
-          let s = string_at_pointer (get_pointer argv ~pos:0) ~len
-          and pos = int_at_pointer pos in
-          f s ~pos
-      | _ -> invalid_arg "GtkEdit.Editable.Signals.marshal_insert"
-    let insert_text : ([>`editable],_) t =
-      { name = "insert_text"; marshaller = marshal_insert }
-    let marshal_delete f _ = function
-      | INT start :: INT stop :: _ ->
-          f ~start ~stop
-      | _ -> invalid_arg "GtkEdit.Editable.Signals.marshal_delete"
-    let delete_text : ([>`editable],_) t =
-      { name = "delete_text"; marshaller = marshal_delete }
-  end
-end
-
-module Entry = struct
-  let cast w : entry obj = Object.try_cast w "GtkEntry"
-  external coerce : [>`entry] obj -> entry obj = "%identity"
-  external create : unit -> entry obj = "ml_gtk_entry_new"
-  external create_with_max_length : int -> entry obj
-      = "ml_gtk_entry_new_with_max_length"
-  let create ?max_length () =
-    match max_length with None -> create ()
-    | Some len -> create_with_max_length len
-  external set_text : [>`entry] obj -> string -> unit
-      = "ml_gtk_entry_set_text"
-  external append_text : [>`entry] obj -> string -> unit
-      = "ml_gtk_entry_append_text"
-  external prepend_text : [>`entry] obj -> string -> unit
-      = "ml_gtk_entry_prepend_text"
-  external get_text : [>`entry] obj -> string = "ml_gtk_entry_get_text"
-  external set_visibility : [>`entry] obj -> bool -> unit
-      = "ml_gtk_entry_set_visibility"
-  external set_max_length : [>`entry] obj -> int -> unit
-      = "ml_gtk_entry_set_max_length"
-  let set ?text ?visibility ?max_length w =
-    let may_set f = may ~f:(f w) in
-    may_set set_text text;
-    may_set set_visibility visibility;
-    may_set set_max_length max_length
-  external text_length : [>`entry] obj -> int
-      = "ml_GtkEntry_text_length"
-end
-
-module SpinButton = struct
-  let cast w : spin_button obj = Object.try_cast w "GtkSpinButton"
-  external create :
-      [>`adjustment] optobj -> rate:float -> digits:int -> spin_button obj
-      = "ml_gtk_spin_button_new"
-  let create ?adjustment ?(rate=0.5) ?(digits=0) () =
-    create (Gpointer.optboxed adjustment) ~rate ~digits
-  external configure :
-    [>`spinbutton] obj -> adjustment:[>`adjustment] obj ->
-    rate:float -> digits:int -> unit
-    = "ml_gtk_spin_button_configure"
-  external set_adjustment : [>`spinbutton] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_spin_button_set_adjustment"
-  external get_adjustment : [>`spinbutton] obj -> adjustment obj
-      = "ml_gtk_spin_button_get_adjustment"
-  external set_digits : [>`spinbutton] obj -> int -> unit
-      = "ml_gtk_spin_button_set_digits"
-  external get_value : [>`spinbutton] obj -> float
-      = "ml_gtk_spin_button_get_value_as_float"
-  let get_value_as_int w = truncate (get_value w +. 0.5)
-  external set_value : [>`spinbutton] obj -> float -> unit
-      = "ml_gtk_spin_button_set_value"
-  external set_update_policy :
-      [>`spinbutton] obj -> [`ALWAYS|`IF_VALID] -> unit
-      = "ml_gtk_spin_button_set_update_policy"
-  external set_numeric : [>`spinbutton] obj -> bool -> unit
-      = "ml_gtk_spin_button_set_numeric"
-  external spin : [>`spinbutton] obj -> spin_type -> unit
-      = "ml_gtk_spin_button_spin"
-  external set_wrap : [>`spinbutton] obj -> bool -> unit
-      = "ml_gtk_spin_button_set_wrap"
-  external set_shadow_type : [>`spinbutton] obj -> shadow_type -> unit
-      = "ml_gtk_spin_button_set_shadow_type"
-  external set_snap_to_ticks : [>`spinbutton] obj -> bool -> unit
-      = "ml_gtk_spin_button_set_snap_to_ticks"
-  external update : [>`spinbutton] obj -> unit
-      = "ml_gtk_spin_button_update"
-  let set ?adjustment ?digits ?value ?update_policy
-      ?numeric ?wrap ?shadow_type ?snap_to_ticks w =
-    let may_set f = may ~f:(f w) in
-    may_set set_adjustment adjustment;
-    may_set set_digits digits;
-    may_set set_value value;
-    may_set set_update_policy update_policy;
-    may_set set_numeric numeric;
-    may_set set_wrap wrap;
-    may_set set_shadow_type shadow_type;
-    may_set set_snap_to_ticks snap_to_ticks
-end
-
-module Text = struct
-  let cast w : text obj = Object.try_cast w "GtkText"
-  external create : [>`adjustment] optobj -> [>`adjustment] optobj -> text obj
-      = "ml_gtk_text_new"
-  let create ?hadjustment ?vadjustment () =
-    create (Gpointer.optboxed hadjustment) (Gpointer.optboxed vadjustment)
-  external set_word_wrap : [>`text] obj -> bool -> unit
-      = "ml_gtk_text_set_word_wrap"
-  external set_line_wrap : [>`text] obj -> bool -> unit
-      = "ml_gtk_text_set_line_wrap"
-  external set_adjustment :
-      [>`text] obj -> ?horizontal:[>`adjustment] obj ->
-      ?vertical:[>`adjustment] obj -> unit -> unit
-      = "ml_gtk_text_set_adjustments"
-  external get_hadjustment : [>`text] obj -> adjustment obj
-      = "ml_gtk_text_get_hadj"
-  external get_vadjustment : [>`text] obj -> adjustment obj
-      = "ml_gtk_text_get_vadj"
-  external set_point : [>`text] obj -> int -> unit
-      = "ml_gtk_text_set_point"
-  external get_point : [>`text] obj -> int = "ml_gtk_text_get_point"
-  external get_length : [>`text] obj -> int = "ml_gtk_text_get_length"
-  external freeze : [>`text] obj -> unit = "ml_gtk_text_freeze"
-  external thaw : [>`text] obj -> unit = "ml_gtk_text_thaw"
-  external insert :
-      [>`text] obj -> ?font:Gdk.font -> ?foreground:Gdk.Color.t ->
-      ?background:Gdk.Color.t -> string -> unit
-      = "ml_gtk_text_insert"
-  let set ?hadjustment ?vadjustment ?word_wrap w =
-    if hadjustment <> None || vadjustment <> None then
-      set_adjustment w ?horizontal: hadjustment ?vertical: vadjustment ();
-    may word_wrap ~f:(set_word_wrap w)
-end
-
-module Combo = struct
-  let cast w : combo obj = Object.try_cast w "GtkCombo"
-  external create : unit -> combo obj = "ml_gtk_combo_new"
-  external set_value_in_list :
-      [>`combo] obj -> ?required:bool -> ?ok_if_empty:bool -> unit -> unit
-      = "ml_gtk_combo_set_value_in_list"
-  external set_use_arrows : [>`combo] obj -> bool -> unit
-      = "ml_gtk_combo_set_use_arrows"
-  external set_use_arrows_always : [>`combo] obj -> bool -> unit
-      = "ml_gtk_combo_set_use_arrows_always"
-  external set_case_sensitive : [>`combo] obj -> bool -> unit
-      = "ml_gtk_combo_set_case_sensitive"
-  external set_item_string : [>`combo] obj -> [>`item] obj -> string -> unit
-      = "ml_gtk_combo_set_item_string"
-  external entry : [>`combo] obj -> entry obj= "ml_gtk_combo_entry"
-  external list : [>`combo] obj -> liste obj= "ml_gtk_combo_list"
-  let set_popdown_strings combo strings =
-    GtkList.Liste.clear_items (list combo) ~start:0 ~stop:(-1);
-    List.iter strings ~f:
-      begin fun s ->
-       let li = GtkList.ListItem.create_with_label s in
-       Widget.show li;
-       Container.add (list combo) li
-      end
-  let set_use_arrows' w (mode : [`NEVER|`DEFAULT|`ALWAYS]) =
-    let def,always =
-      match mode with
-       `NEVER -> false, false
-      |        `DEFAULT -> true, false
-      |        `ALWAYS -> true, true
-    in
-    set_use_arrows w def;
-    set_use_arrows_always w always
-  let set ?popdown_strings ?use_arrows
-      ?case_sensitive ?value_in_list ?ok_if_empty w =
-    may popdown_strings ~f:(set_popdown_strings w);
-    may use_arrows ~f:(set_use_arrows' w);
-    may case_sensitive ~f:(set_case_sensitive w);
-    if value_in_list <> None || ok_if_empty <> None then
-      set_value_in_list w ?required:value_in_list ?ok_if_empty ()
-  external disable_activate : [>`combo] obj -> unit
-      = "ml_gtk_combo_disable_activate"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkInit.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkInit.ml
deleted file mode 100644 (file)
index 5ce40db..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkInit.ml
+++ /dev/null
@@ -1,5 +0,0 @@
-(* $Id$ *)
-
-(* Does the initialization for toplevels *)
-
-let locale = GtkMain.Main.init ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkList.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkList.ml
deleted file mode 100644 (file)
index 4d2ae09..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkList.ml
+++ /dev/null
@@ -1,294 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module ListItem = struct
-  let cast w : list_item obj = Object.try_cast w "GtkListItem"
-  external create : unit -> list_item obj = "ml_gtk_list_item_new"
-  external create_with_label : string -> list_item obj
-      = "ml_gtk_list_item_new_with_label"
-  let create ?label () =
-    match label with None -> create ()
-    | Some label -> create_with_label label
-end
-
-module Liste = struct
-  let cast w : liste obj = Object.try_cast w "GtkList"
-  external create : unit -> liste obj = "ml_gtk_list_new"
-  external insert_item :
-      [>`list] obj -> [>`listitem] obj -> pos:int -> unit
-      = "ml_gtk_list_insert_item"
-  let insert_items l wl ~pos =
-    let wl = if pos < 0 then wl else List.rev wl in
-    List.iter wl ~f:(insert_item l ~pos)
-  let append_items l = insert_items l ~pos:(-1)
-  let prepend_items l = insert_items l ~pos:0
-  external clear_items : [>`list] obj -> start:int -> stop:int -> unit =
-    "ml_gtk_list_clear_items"
-  external select_item : [>`list] obj -> pos:int -> unit
-      = "ml_gtk_list_select_item"
-  external unselect_item : [>`list] obj -> pos:int -> unit
-      = "ml_gtk_list_unselect_item"
-  external select_child : [>`list] obj -> [>`listitem] obj -> unit
-      = "ml_gtk_list_select_child"
-  external unselect_child : [>`list] obj -> [>`listitem] obj -> unit
-      = "ml_gtk_list_unselect_child"
-  external child_position : [>`list] obj -> [>`listitem] obj -> int
-      = "ml_gtk_list_child_position"
-  external set_selection_mode : [>`list] obj -> selection_mode -> unit
-      = "ml_gtk_list_set_selection_mode"
-  module Signals = struct
-    open GtkSignal
-    let selection_changed : ([>`list],_) t =
-      { name = "selection_changed"; marshaller = marshal_unit }
-    let select_child : ([>`list],_) t =
-      { name = "select_child"; marshaller = Widget.Signals.marshal }
-    let unselect_child : ([>`list],_) t =
-      { name = "unselect_child"; marshaller = Widget.Signals.marshal }
-  end
-end
-
-module CList = struct
-  let cast w : clist obj = Object.try_cast w "GtkCList"
-  external create : cols:int -> clist obj = "ml_gtk_clist_new"
-  external create_with_titles : string array -> clist obj
-      = "ml_gtk_clist_new_with_titles"
-  external get_rows : [>`clist] obj -> int = "ml_gtk_clist_get_rows"
-  external get_columns : [>`clist] obj -> int = "ml_gtk_clist_get_columns"
-  external get_focus_row : [>`clist] obj -> int
-      = "ml_gtk_clist_get_focus_row"
-  external set_hadjustment : [>`clist] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_clist_set_hadjustment"
-  external set_vadjustment : [>`clist] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_clist_set_vadjustment"
-  external get_hadjustment : [>`clist] obj -> adjustment obj
-      = "ml_gtk_clist_get_hadjustment"
-  external get_vadjustment : [>`clist] obj -> adjustment obj
-      = "ml_gtk_clist_get_vadjustment"
-  external set_shadow_type : [>`clist] obj -> shadow_type -> unit
-      = "ml_gtk_clist_set_shadow_type"
-  external set_selection_mode : [>`clist] obj -> selection_mode -> unit
-      = "ml_gtk_clist_set_selection_mode"
-  external set_reorderable : [>`clist] obj -> bool -> unit
-      = "ml_gtk_clist_set_reorderable"
-  external set_use_drag_icons : [>`clist] obj -> bool -> unit
-      = "ml_gtk_clist_set_use_drag_icons"
-  external set_button_actions :
-      [>`clist] obj -> int -> button_action list -> unit
-      = "ml_gtk_clist_set_button_actions"
-  external freeze : [>`clist] obj -> unit = "ml_gtk_clist_freeze"
-  external thaw : [>`clist] obj -> unit = "ml_gtk_clist_thaw"
-  external column_titles_show : [>`clist] obj -> unit
-      = "ml_gtk_clist_column_titles_show"
-  external column_titles_hide : [>`clist] obj -> unit
-      = "ml_gtk_clist_column_titles_hide"
-  external column_title_active : [>`clist] obj -> int -> unit
-      = "ml_gtk_clist_column_title_active"
-  external column_title_passive : [>`clist] obj -> int -> unit
-      = "ml_gtk_clist_column_title_passive"
-  external column_titles_active : [>`clist] obj -> unit
-      = "ml_gtk_clist_column_titles_active"
-  external column_titles_passive : [>`clist] obj -> unit
-      = "ml_gtk_clist_column_titles_passive"
-  external set_column_title : [>`clist] obj -> int -> string -> unit
-      = "ml_gtk_clist_set_column_title"
-  external get_column_title : [>`clist] obj -> int -> string
-      = "ml_gtk_clist_get_column_title"
-  external set_column_widget : [>`clist] obj -> int -> [>`widget] obj -> unit
-      = "ml_gtk_clist_set_column_widget"
-  external get_column_widget : [>`clist] obj -> int -> widget obj
-      = "ml_gtk_clist_get_column_widget"
-  external set_column_justification :
-      [>`clist] obj -> int -> justification -> unit
-      = "ml_gtk_clist_set_column_justification"
-  external set_column_visibility : [>`clist] obj -> int -> bool -> unit
-      = "ml_gtk_clist_set_column_visibility"
-  external set_column_resizeable : [>`clist] obj -> int -> bool -> unit
-      = "ml_gtk_clist_set_column_resizeable"
-  external set_column_auto_resize : [>`clist] obj -> int -> bool -> unit
-      = "ml_gtk_clist_set_column_auto_resize"
-  external columns_autosize : [>`clist] obj -> unit
-      = "ml_gtk_clist_columns_autosize"
-  external optimal_column_width : [>`clist] obj -> int -> int
-      = "ml_gtk_clist_optimal_column_width"
-  external set_column_width : [>`clist] obj -> int -> int -> unit
-      = "ml_gtk_clist_set_column_width"
-  external set_column_min_width : [>`clist] obj -> int -> int -> unit
-      = "ml_gtk_clist_set_column_min_width"
-  external set_column_max_width : [>`clist] obj -> int -> int -> unit
-      = "ml_gtk_clist_set_column_max_width"
-  external set_row_height : [>`clist] obj -> int -> unit
-      = "ml_gtk_clist_set_row_height"
-  external moveto :
-      [>`clist] obj ->
-      int -> int -> row_align:clampf -> col_align:clampf -> unit
-      = "ml_gtk_clist_moveto"
-  external row_is_visible : [>`clist] obj -> int -> visibility
-      = "ml_gtk_clist_row_is_visible"
-  external get_cell_type : [>`clist] obj -> int -> int -> cell_type
-      = "ml_gtk_clist_get_cell_type"
-  external set_text : [>`clist] obj -> int -> int -> string -> unit
-      = "ml_gtk_clist_set_text"
-  external get_text : [>`clist] obj -> int -> int -> string
-      = "ml_gtk_clist_get_text"
-  external set_pixmap :
-      [>`clist] obj ->
-      int -> int -> Gdk.pixmap -> Gdk.bitmap Gpointer.optboxed -> unit
-      = "ml_gtk_clist_set_pixmap"
-  external get_pixmap :
-      [>`clist] obj -> int -> int -> Gdk.pixmap option * Gdk.bitmap option
-      = "ml_gtk_clist_get_pixmap"
-  external set_pixtext :
-      [>`clist] obj -> int -> int ->
-      string -> int -> Gdk.pixmap -> Gdk.bitmap Gpointer.optboxed -> unit
-      = "ml_gtk_clist_set_pixtext_bc" "ml_gtk_clist_set_pixtext"
-  external set_foreground :
-      [>`clist] obj -> row:int -> Gdk.Color.t Gpointer.optboxed -> unit
-      = "ml_gtk_clist_set_foreground"
-  external set_background :
-      [>`clist] obj -> row:int -> Gdk.Color.t Gpointer.optboxed -> unit
-      = "ml_gtk_clist_set_background"
-  external get_cell_style : [>`clist] obj -> int -> int -> Gtk.style
-      = "ml_gtk_clist_get_cell_style"
-  external set_cell_style : [>`clist] obj -> int -> int -> Gtk.style -> unit
-      = "ml_gtk_clist_set_cell_style"
-  external get_row_style : [>`clist] obj -> row:int -> Gtk.style
-      = "ml_gtk_clist_get_row_style"
-  external set_row_style : [>`clist] obj -> row:int -> Gtk.style -> unit
-      = "ml_gtk_clist_set_row_style"
-  external set_selectable : [>`clist] obj -> row:int -> bool -> unit
-      = "ml_gtk_clist_set_selectable"
-  external get_selectable : [>`clist] obj -> row:int -> bool
-      = "ml_gtk_clist_get_selectable"
-  external set_shift :
-      [>`clist] obj -> int -> int -> vertical:int -> horizontal:int -> unit
-      = "ml_gtk_clist_set_shift"
-  external insert : [>`clist] obj -> row:int -> Gpointer.optstring array -> int
-      = "ml_gtk_clist_insert"
-  let insert w ~row texts =
-    let len = get_columns w in
-    if List.length texts > len then invalid_arg "CList.insert";
-    let arr = Array.create (get_columns w) None in
-    List.fold_left texts ~init:0
-      ~f:(fun pos text -> arr.(pos) <- text; pos+1);
-    let r = insert w ~row (Array.map ~f:Gpointer.optstring arr) in
-    if r = -1 then invalid_arg "GtkCList::insert";
-    r
-  external remove : [>`clist] obj -> row:int -> unit
-      = "ml_gtk_clist_remove"
-  external set_row_data : [>`clist] obj -> row:int -> Obj.t -> unit
-      = "ml_gtk_clist_set_row_data"
-  external get_row_data : [>`clist] obj -> row:int -> Obj.t
-      = "ml_gtk_clist_get_row_data"
-  external select : [>`clist] obj -> int -> int -> unit
-      = "ml_gtk_clist_select_row"
-  external unselect : [>`clist] obj -> int -> int -> unit
-      = "ml_gtk_clist_unselect_row"
-  external clear : [>`clist] obj -> unit = "ml_gtk_clist_clear"
-  external get_row_column : [>`clist] obj -> x:int -> y:int -> int * int
-      = "ml_gtk_clist_get_selection_info"
-  external select_all : [>`clist] obj -> unit = "ml_gtk_clist_select_all"
-  external unselect_all : [>`clist] obj -> unit = "ml_gtk_clist_unselect_all"
-  external swap_rows : [>`clist] obj -> int -> int -> unit
-      = "ml_gtk_clist_swap_rows"
-  external row_move : [>`clist] obj -> int -> dst:int -> unit
-      = "ml_gtk_clist_row_move"
-  external set_sort_column : [>`clist] obj -> int -> unit
-      = "ml_gtk_clist_set_sort_column"
-  external set_sort_type : [>`clist] obj -> sort_type -> unit
-      = "ml_gtk_clist_set_sort_type"
-  external sort : [>`clist] obj -> unit
-      = "ml_gtk_clist_sort"
-  external set_auto_sort : [>`clist] obj -> bool -> unit
-      = "ml_gtk_clist_set_auto_sort"
-  let set_titles_show w = function
-      true -> column_titles_show w
-    | false -> column_titles_hide w
-  let set_titles_active w = function
-      true -> column_titles_active w
-    | false -> column_titles_passive w
-  let set ?hadjustment ?vadjustment ?shadow_type
-      ?(button_actions=[]) ?selection_mode ?reorderable
-      ?use_drag_icons ?row_height ?titles_show ?titles_active w =
-    let may_set f param = may param ~f:(f w) in
-    may_set set_hadjustment hadjustment;
-    may_set set_vadjustment vadjustment;
-    may_set set_shadow_type shadow_type;
-    List.iter button_actions ~f:(fun (n,act) -> set_button_actions w n act);
-    may_set set_selection_mode selection_mode;
-    may_set set_reorderable reorderable;
-    may_set set_use_drag_icons use_drag_icons;
-    may_set set_row_height row_height;
-    may_set set_titles_show titles_show;
-    may_set set_titles_active titles_active
-  let set_sort w ?auto ?column ?dir:sort_type () =
-    may auto ~f:(set_auto_sort w);
-    may column ~f:(set_sort_column w);
-    may sort_type ~f:(set_sort_type w)
-  let set_cell w ?text ?pixmap ?mask ?(spacing=0) ?style row col =
-    begin match text, pixmap with
-    | Some text, None ->
-        set_text w row col text
-    | None, Some pm ->
-        set_pixmap w row col pm (Gpointer.optboxed mask)
-    | Some text, Some pm ->
-        set_pixtext w row col text spacing pm (Gpointer.optboxed mask)
-    | _ -> ()
-    end;
-    may style ~f:(set_cell_style w row col)
-  let set_column w ?widget ?title ?title_active ?justification
-      ?visibility ?resizeable ?auto_resize ?width ?min_width ?max_width
-      col =
-    let may_set f param = may param ~f:(f w col) in
-    may_set set_column_widget widget;
-    may_set set_column_title title;
-    may title_active
-      ~f:(fun active -> if active then column_title_active w col
-                                   else column_title_passive w col);
-    may_set set_column_justification justification;
-    may_set set_column_visibility visibility;
-    may_set set_column_resizeable resizeable;
-    may_set set_column_auto_resize auto_resize;
-    may_set set_column_width width;
-    may_set set_column_min_width min_width;
-    may_set set_column_max_width max_width
-  let set_row w ?foreground ?background ?selectable ?style row =
-    let may_set f = may ~f:(f w ~row) in
-    may_set set_foreground foreground;
-    may_set set_background  background;
-    may_set set_selectable  selectable;
-    may_set set_row_style style
-  module Signals = struct
-    open GtkArgv
-    open GtkSignal
-    let marshal_select f argv = function
-      | INT row :: INT column :: POINTER p :: _ ->
-          let event : GdkEvent.Button.t option =
-           may_map ~f:GdkEvent.unsafe_copy p
-          in
-          f ~row ~column ~event
-      | _ -> invalid_arg "GtkList.CList.Signals.marshal_select"
-    let select_row : ([>`clist],_) t =
-      { name = "select_row"; marshaller = marshal_select }
-    let unselect_row : ([>`clist],_) t =
-      { name = "unselect_row"; marshaller = marshal_select }
-    let click_column : ([>`clist],_) t =
-      { name = "click_column"; marshaller = marshal_int }
-    external val_scroll_type : int -> scroll_type = "ml_Val_scroll_type"
-    let marshal_scroll f argv = function
-      | INT st :: FLOAT (pos : clampf) :: _ ->
-          f (val_scroll_type st) ~pos
-      | _ -> invalid_arg "GtkList.CList.Signals.marshal_scroll"
-    let scroll_horizontal : ([>`clist],_) t =
-      { name = "scroll_horizontal"; marshaller = marshal_scroll }
-    let scroll_vertical : ([>`clist],_) t =
-      { name = "scroll_vertical"; marshaller = marshal_scroll }
-    external emit_scroll :
-        'a obj -> name:string -> Tags.scroll_type -> pos:clampf -> unit
-        = "ml_gtk_signal_emit_scroll"
-    let emit_scroll = emit ~emitter:emit_scroll
-  end
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkMain.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkMain.ml
deleted file mode 100644 (file)
index 7ef3443..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkMain.ml
+++ /dev/null
@@ -1,50 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-
-let _ = Callback.register_exception "gtkerror" (Error"")
-
-module Timeout = struct
-  type id
-  external add : ms:int -> callback:(GtkArgv.t -> unit) -> id
-      = "ml_gtk_timeout_add"
-  let add ~ms ~callback =
-    add ~ms ~callback:(fun arg -> GtkArgv.set_result arg (`BOOL(callback ())))
-  external remove : id -> unit = "ml_gtk_timeout_remove"
-end
-
-module Main = struct
-  external init : string array -> string array = "ml_gtk_init"
-  (* external exit : int -> unit = "ml_gtk_exit" *)
-  external set_locale : unit -> string = "ml_gtk_set_locale"
-  (* external main : unit -> unit = "ml_gtk_main" *)
-  let locale = set_locale ()
-  let init () =
-    (* let locale = set_locale () in *)
-    let argv = init Sys.argv in
-    Array.blit ~src:argv ~dst:Sys.argv ~len:(Array.length argv)
-      ~src_pos:0 ~dst_pos:0;
-    Obj.truncate (Obj.repr Sys.argv) ~len:(Array.length argv);
-    locale
-  open Glib
-  let loops = ref [] 
-  let main () =
-    let loop = (Main.create true) in
-    loops := loop :: !loops;
-    while Main.is_running loop do Main.iteration true done;
-    loops := List.tl !loops
-  and quit () = Main.quit (List.hd !loops)
-  external get_version : unit -> int * int * int = "ml_gtk_get_version"
-  let version = get_version ()
-
-  let flush = Gdk.X.flush
-end
-
-module Grab = struct
-  external add : [>`widget] obj -> unit = "ml_gtk_grab_add"
-  external remove : [>`widget] obj -> unit = "ml_gtk_grab_remove"
-  external get_current : unit -> widget obj= "ml_gtk_grab_get_current"
-end
-
-let _ = Glib.set_warning_handler (fun msg -> raise (Warning msg))
-let _ = Glib.set_print_handler (fun msg -> print_string msg)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkMenu.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkMenu.ml
deleted file mode 100644 (file)
index 2f1eb30..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkMenu.ml
+++ /dev/null
@@ -1,144 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-
-module MenuItem = struct
-  let cast w : menu_item obj = Object.try_cast w "GtkMenuItem"
-  external coerce : [>`menuitem] obj -> menu_item obj = "%identity"
-  external create : unit -> menu_item obj = "ml_gtk_menu_item_new"
-  external create_with_label : string -> menu_item obj
-      = "ml_gtk_menu_item_new_with_label"
-  external tearoff_create : unit -> menu_item obj
-      = "ml_gtk_tearoff_menu_item_new"
-  let create ?label () =
-    match label with None -> create ()
-    | Some label -> create_with_label label
-  external set_submenu : [>`menuitem] obj -> [>`menu] obj -> unit
-      = "ml_gtk_menu_item_set_submenu"
-  external remove_submenu : [>`menuitem] obj -> unit
-      = "ml_gtk_menu_item_remove_submenu"
-  external configure :
-      [>`menuitem] obj -> show_toggle:bool -> show_indicator:bool -> unit
-      = "ml_gtk_menu_item_configure"
-  external activate : [>`menuitem] obj -> unit
-      = "ml_gtk_menu_item_activate"
-  external right_justify : [>`menuitem] obj -> unit
-      = "ml_gtk_menu_item_right_justify"
-  module Signals = struct
-    open GtkSignal
-    let activate : ([>`menuitem],_) t =
-      { name = "activate"; marshaller = marshal_unit }
-    let activate_item : ([>`menuitem],_) t =
-      { name = "activate_item"; marshaller = marshal_unit }
-  end
-end
-
-module CheckMenuItem = struct
-  let cast w : check_menu_item obj = Object.try_cast w "GtkCheckMenuItem"
-  external coerce : [>`checkmenuitem] obj -> check_menu_item obj = "%identity"
-  external create : unit -> check_menu_item obj = "ml_gtk_check_menu_item_new"
-  external create_with_label : string -> check_menu_item obj
-      = "ml_gtk_check_menu_item_new_with_label"
-  let create ?label () =
-    match label with None -> create ()
-    | Some label -> create_with_label label
-  external set_active : [>`checkmenuitem] obj -> bool -> unit
-      = "ml_gtk_check_menu_item_set_active"
-  external get_active : [>`checkmenuitem] obj -> bool
-      = "ml_gtk_check_menu_item_get_active"
-  external set_show_toggle : [>`checkmenuitem] obj -> bool -> unit
-      = "ml_gtk_check_menu_item_set_show_toggle"
-  let set ?active ?show_toggle w =
-    may active ~f:(set_active w);
-    may show_toggle ~f:(set_show_toggle w)
-  external toggled : [>`checkmenuitem] obj -> unit
-      = "ml_gtk_check_menu_item_toggled"
-  module Signals = struct
-    open GtkSignal
-    let toggled : ([>`checkmenuitem],_) t =
-      { name = "toggled"; marshaller = marshal_unit }
-  end
-end
-
-module RadioMenuItem = struct
-  let cast w : radio_menu_item obj = Object.try_cast w "GtkRadioMenuItem"
-  external create : radio_menu_item group -> radio_menu_item obj
-      = "ml_gtk_radio_menu_item_new"
-  external create_with_label :
-      radio_menu_item group -> string -> radio_menu_item obj
-      = "ml_gtk_radio_menu_item_new_with_label"
-  let create ?(group = None) ?label () =
-    match label with None -> create group
-    | Some label -> create_with_label group label
-  external set_group : [>`radiomenuitem] obj -> radio_menu_item group -> unit
-      = "ml_gtk_radio_menu_item_set_group"
-end
-
-module OptionMenu = struct
-  let cast w : option_menu obj = Object.try_cast w "GtkOptionMenu"
-  external create : unit -> option_menu obj = "ml_gtk_option_menu_new"
-  external get_menu : [>`optionmenu] obj -> menu obj
-      = "ml_gtk_option_menu_get_menu"
-  external set_menu : [>`optionmenu] obj -> [>`menu] obj -> unit
-      = "ml_gtk_option_menu_set_menu"
-  external remove_menu : [>`optionmenu] obj -> unit
-      = "ml_gtk_option_menu_remove_menu"
-  external set_history : [>`optionmenu] obj -> int -> unit
-      = "ml_gtk_option_menu_set_history"
-  let set ?menu ?history w =
-    may menu ~f:(set_menu w);
-    may history ~f:(set_history w)
-end
-
-module MenuShell = struct
-  let cast w : menu_shell obj = Object.try_cast w "GtkMenuShell"
-  external coerce : [>`menushell] obj -> menu_shell obj = "%identity"
-  external append : [>`menushell] obj -> [>`widget] obj -> unit
-      = "ml_gtk_menu_shell_append"
-  external prepend : [>`menushell] obj -> [>`widget] obj -> unit
-      = "ml_gtk_menu_shell_prepend"
-  external insert : [>`menushell] obj -> [>`widget] obj -> pos:int -> unit
-      = "ml_gtk_menu_shell_insert"
-  external deactivate : [>`menushell] obj -> unit
-      = "ml_gtk_menu_shell_deactivate"
-  module Signals = struct
-    open GtkSignal
-    let deactivate : ([>`menushell],_) t =
-      { name = "deactivate"; marshaller = marshal_unit }
-  end
-end
-
-module Menu = struct
-  let cast w : menu obj = Object.try_cast w "GtkMenu"
-  external create : unit -> menu obj = "ml_gtk_menu_new"
-  external popup :
-      [>`menu] obj -> [>`menushell] optobj ->
-      [>`menuitem] optobj -> button:int -> time:int -> unit
-      = "ml_gtk_menu_popup"
-  let popup ?parent_menu ?parent_item w =
-    popup w (Gpointer.optboxed parent_menu) (Gpointer.optboxed parent_item)
-  external popdown : [>`menu] obj -> unit = "ml_gtk_menu_popdown"
-  external get_active : [>`menu] obj -> widget obj= "ml_gtk_menu_get_active"
-  external set_active : [>`menu] obj -> int -> unit = "ml_gtk_menu_set_active"
-  external set_accel_group : [>`menu] obj -> accel_group -> unit
-      = "ml_gtk_menu_set_accel_group"
-  external get_accel_group : [>`menu] obj -> accel_group
-      = "ml_gtk_menu_get_accel_group"
-  external ensure_uline_accel_group : [>`menu] obj -> accel_group
-      = "ml_gtk_menu_ensure_uline_accel_group"
-  external attach_to_widget : [>`menu] obj -> [>`widget] obj -> unit
-      = "ml_gtk_menu_attach_to_widget"
-  external get_attach_widget : [>`menu] obj -> widget obj
-      = "ml_gtk_menu_get_attach_widget"
-  external detach : [>`menu] obj -> unit = "ml_gtk_menu_detach"
-  let set ?active ?accel_group w =
-    may active ~f:(set_active w);
-    may accel_group ~f:(set_accel_group w)
-end
-
-module MenuBar = struct
-  let cast w : menu_bar obj = Object.try_cast w "GtkMenuBar"
-  external create : unit -> menu_bar obj = "ml_gtk_menu_bar_new"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkMisc.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkMisc.ml
deleted file mode 100644 (file)
index ded7f48..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkMisc.ml
+++ /dev/null
@@ -1,323 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module GammaCurve = struct
-  let cast w : gamma_curve obj = Object.try_cast w "GtkGammaCurve"
-  external create : unit -> gamma_curve obj = "ml_gtk_gamma_curve_new"
-  external get_gamma : [>`gamma] obj -> float = "ml_gtk_gamma_curve_get_gamma"
-end
-
-module ColorSelection = struct
-  let cast w : color_selection obj = Object.try_cast w "GtkColorSelection"
-  external create : unit -> color_selection obj = "ml_gtk_color_selection_new"
-  external create_dialog : string -> color_selection_dialog obj
-      = "ml_gtk_color_selection_dialog_new"
-  external set_update_policy : [>`colorsel] obj -> update_type -> unit
-      = "ml_gtk_color_selection_set_update_policy"
-  external set_opacity : [>`colorsel] obj -> bool -> unit
-      = "ml_gtk_color_selection_set_opacity"
-  let set ?update_policy ?opacity w =
-    may update_policy ~f:(set_update_policy w);
-    may opacity ~f:(set_opacity w)
-  external set_color :
-      [>`colorsel] obj ->
-      red:float -> green:float -> blue:float -> ?opacity:float -> unit
-      = "ml_gtk_color_selection_set_color"
-  external get_color : [>`colorsel] obj -> color
-      = "ml_gtk_color_selection_get_color"
-
-  external ok_button : [>`colorseldialog] obj -> button obj =
-    "ml_gtk_color_selection_dialog_ok_button"
-  external cancel_button : [>`colorseldialog] obj -> button obj =
-    "ml_gtk_color_selection_dialog_cancel_button"
-  external help_button : [>`colorseldialog] obj -> button obj =
-    "ml_gtk_color_selection_dialog_help_button"
-  external colorsel : [>`colorseldialog] obj -> color_selection obj =
-    "ml_gtk_color_selection_dialog_colorsel"
-  module Signals = struct
-    open GtkSignal
-    let color_changed : ([>`colorsel],_) t =
-      { name = "color_changed"; marshaller = marshal_unit }
-  end
-end
-
-module Statusbar = struct
-  let cast w : statusbar obj = Object.try_cast w "GtkStatusbar"
-  external create : unit -> statusbar obj = "ml_gtk_statusbar_new"
-  external get_context : [>`statusbar] obj -> string -> statusbar_context
-      = "ml_gtk_statusbar_get_context_id"
-  external push :
-      [>`statusbar] obj ->
-      statusbar_context -> text:string -> statusbar_message
-      = "ml_gtk_statusbar_push"
-  external pop : [>`statusbar] obj -> statusbar_context ->  unit
-      = "ml_gtk_statusbar_pop"
-  external remove :
-      [>`statusbar] obj -> statusbar_context -> statusbar_message -> unit
-      = "ml_gtk_statusbar_remove"
-  module Signals = struct
-    open GtkSignal
-    let text_pushed : ([>`statusbar],_) t =
-      let marshal f _ = function
-        | GtkArgv.INT ctx :: GtkArgv.STRING s :: _ ->
-           f (Obj.magic ctx : statusbar_context) s
-        | _ -> invalid_arg "GtkMisc.Statusbar.Signals.marshal_text"
-      in
-      { name = "text_pushed"; marshaller = marshal }
-  end
-end
-
-module Calendar = struct
-  let cast w : calendar obj = Object.try_cast w "GtkCalendar"
-  external create : unit -> calendar obj = "ml_gtk_calendar_new"
-  external select_month : [>`calendar] obj -> month:int -> year:int -> unit
-      = "ml_gtk_calendar_select_month"
-  external select_day : [>`calendar] obj -> int -> unit
-      = "ml_gtk_calendar_select_day"
-  external mark_day : [>`calendar] obj -> int -> unit
-      = "ml_gtk_calendar_mark_day"
-  external unmark_day : [>`calendar] obj -> int -> unit
-      = "ml_gtk_calendar_unmark_day"
-  external clear_marks : [>`calendar] obj -> unit
-      = "ml_gtk_calendar_clear_marks"
-  external display_options :
-      [>`calendar] obj -> Tags.calendar_display_options list -> unit
-      = "ml_gtk_calendar_display_options"
-  external get_date : [>`calendar] obj -> int * int * int
-      = "ml_gtk_calendar_get_date"   (* year * month * day *)
-  external freeze : [>`calendar] obj -> unit
-      = "ml_gtk_calendar_freeze"
-  external thaw : [>`calendar] obj -> unit
-      = "ml_gtk_calendar_thaw"
-  module Signals = struct
-    open GtkSignal
-    let month_changed : ([>`calendar],_) t =
-      { name = "month_changed"; marshaller = marshal_unit }
-    let day_selected : ([>`calendar],_) t =
-      { name = "day_selected"; marshaller = marshal_unit }
-    let day_selected_double_click : ([>`calendar],_) t =
-      { name = "day_selected_double_click"; marshaller = marshal_unit }
-    let prev_month : ([>`calendar],_) t =
-      { name = "prev_month"; marshaller = marshal_unit }
-    let next_month : ([>`calendar],_) t =
-      { name = "next_month"; marshaller = marshal_unit }
-    let prev_year : ([>`calendar],_) t =
-      { name = "prev_year"; marshaller = marshal_unit }
-    let next_year : ([>`calendar],_) t =
-      { name = "next_year"; marshaller = marshal_unit }
-  end
-end
-
-module DrawingArea = struct
-  let cast w : drawing_area obj = Object.try_cast w "GtkDrawingArea"
-  external create : unit -> drawing_area obj = "ml_gtk_drawing_area_new"
-  external size : [>`drawing] obj -> width:int -> height:int -> unit
-      = "ml_gtk_drawing_area_size"
-end
-
-(* Does not seem very useful ...
-module Curve = struct
-  type t = [widget drawing curve] obj
-  let cast w : t = Object.try_cast w "GtkCurve"
-  external create : unit -> t = "ml_gtk_curve_new"
-  external reset : [>`curve] obj -> unit = "ml_gtk_curve_reset"
-  external set_gamma : [>`curve] obj -> float -> unit
-      = "ml_gtk_curve_set_gamma"
-  external set_range :
-      [>`curve] obj -> min_x:float -> max_x:float ->
-      min_y:float -> max_y:float -> unit
-      = "ml_gtk_curve_set_gamma"
-end
-*)
-
-module Misc = struct
-  let cast w : misc obj = Object.try_cast w "GtkMisc"
-  external coerce : [>`misc] obj -> misc obj = "%identity"
-  external set_alignment : [>`misc] obj -> x:float -> y:float -> unit
-      = "ml_gtk_misc_set_alignment"
-  external set_padding : [>`misc] obj -> x:int -> y:int -> unit
-      = "ml_gtk_misc_set_padding"
-  external get_xalign : [>`misc] obj -> float = "ml_gtk_misc_get_xalign"
-  external get_yalign : [>`misc] obj -> float = "ml_gtk_misc_get_yalign"
-  external get_xpad : [>`misc] obj -> int = "ml_gtk_misc_get_xpad"
-  external get_ypad : [>`misc] obj -> int = "ml_gtk_misc_get_ypad"
-  let set_alignment w ?x ?y () =
-    set_alignment w ~x:(may_default get_xalign w ~opt:x)
-      ~y:(may_default get_yalign w ~opt:y)
-  let set_padding w ?x ?y () =
-    set_padding w ~x:(may_default get_xpad w ~opt:x)
-      ~y:(may_default get_ypad w ~opt:y)
-  let set ?xalign ?yalign ?xpad ?ypad ?(width = -2) ?(height = -2) w =
-    if xalign <> None || yalign <> None then
-      set_alignment w ?x:xalign ?y:yalign ();
-    if xpad <> None || ypad <> None then
-      set_padding w ?x:xpad ?y:ypad ();
-    if width <> -2 || height <> -2 then Widget.set_usize w ~width ~height
-end
-
-module Arrow = struct
-  let cast w : arrow obj = Object.try_cast w "GtkArrow"
-  external create : kind:arrow_type -> shadow:shadow_type -> arrow obj
-      = "ml_gtk_arrow_new"
-  external set : [>`arrow] obj -> kind:arrow_type -> shadow:shadow_type -> unit
-      = "ml_gtk_arrow_set"
-end
-
-module Image = struct
-  let cast w : image obj = Object.try_cast w "GtkImage"
-  external create : Gdk.image -> ?mask:Gdk.bitmap -> image obj
-      = "ml_gtk_image_new"
-  let create ?mask img = create img ?mask
-  external set : [>`image] obj -> Gdk.image -> ?mask:Gdk.bitmap -> unit
-      = "ml_gtk_image_set"
-end
-
-module Label = struct
-  let cast w : label obj = Object.try_cast w "GtkLabel"
-  external coerce : [>`label] obj -> label obj = "%identity"
-  external create : string -> label obj = "ml_gtk_label_new"
-  external set_text : [>`label] obj -> string -> unit = "ml_gtk_label_set_text"
-  external set_justify : [>`label] obj -> justification -> unit
-      = "ml_gtk_label_set_justify"
-  external set_pattern : [>`label] obj -> string -> unit
-      = "ml_gtk_label_set_pattern"
-  external set_line_wrap : [>`label] obj -> bool -> unit
-      = "ml_gtk_label_set_line_wrap"
-  let set ?text ?justify ?line_wrap ?pattern w =
-    may ~f:(set_text w) text;
-    may ~f:(set_justify w) justify;
-    may ~f:(set_line_wrap w) line_wrap;
-    may ~f:(set_pattern w) pattern
-  external get_text : [>`label] obj -> string = "ml_gtk_label_get_label"
-end
-
-module TipsQuery = struct
-  let cast w : tips_query obj = Object.try_cast w "GtkTipsQuery"
-  external create : unit -> tips_query obj = "ml_gtk_tips_query_new"
-  external start : [>`tipsquery] obj -> unit = "ml_gtk_tips_query_start_query"
-  external stop : [>`tipsquery] obj -> unit = "ml_gtk_tips_query_stop_query"
-  external set_caller : [>`tipsquery] obj -> [>`widget] obj -> unit
-      = "ml_gtk_tips_query_set_caller"
-  external set_labels :
-      [>`tipsquery] obj -> inactive:string -> no_tip:string -> unit
-      = "ml_gtk_tips_query_set_labels"
-  external set_emit_always : [>`tipsquery] obj -> bool -> unit
-      = "ml_gtk_tips_query_set_emit_always"
-  external get_caller : [>`tipsquery] obj -> widget obj
-      = "ml_gtk_tips_query_get_caller"
-  external get_label_inactive : [>`tipsquery] obj -> string
-      = "ml_gtk_tips_query_get_label_inactive"
-  external get_label_no_tip : [>`tipsquery] obj -> string
-      = "ml_gtk_tips_query_get_label_no_tip"
-  external get_emit_always : [>`tipsquery] obj -> bool
-      = "ml_gtk_tips_query_get_emit_always"
-  let set_labels ?inactive ?no_tip w =
-    set_labels w
-      ~inactive:(may_default get_label_inactive w ~opt:inactive)
-      ~no_tip:(may_default get_label_no_tip w ~opt:no_tip)
-  let set ?caller ?emit_always ?label_inactive ?label_no_tip w =
-    may caller ~f:(set_caller w);
-    may emit_always ~f:(set_emit_always w);
-    if label_inactive <> None || label_no_tip <> None then
-      set_labels w ?inactive:label_inactive ?no_tip:label_no_tip
-  module Signals = struct
-    open GtkArgv
-    open GtkSignal
-    let start_query : ([>`tipsquery],_) t =
-      { name = "start_query"; marshaller = marshal_unit }
-    let stop_query : ([>`tipsquery],_) t =
-      { name = "stop_query"; marshaller = marshal_unit }
-    let widget_entered :
-       ([>`tipsquery],
-        widget obj option ->
-        text:string option -> privat:string option -> unit) t =
-      let marshal f _ = function
-        | OBJECT opt :: STRING text :: STRING privat :: _ ->
-           f (may_map ~f:Widget.cast opt) ~text ~privat
-        | _ -> invalid_arg "GtkMisc.TipsQuery.Signals.marshal_entered"
-      in
-      { name = "widget_entered"; marshaller = marshal }
-    let widget_selected :
-       ([>`tipsquery],
-        widget obj option ->
-        text:string option ->
-        privat:string option -> GdkEvent.Button.t option -> bool) t =
-      let marshal f argv = function
-        | OBJECT obj :: STRING text :: STRING privat :: POINTER p :: _ ->
-           let stop = 
-             f (may_map ~f:Widget.cast obj) ~text ~privat
-               (may_map ~f:GdkEvent.unsafe_copy p)
-            in set_result argv (`BOOL stop)
-        | _ -> invalid_arg "GtkMisc.TipsQuery.Signals.marshal_selected"
-      in
-      { name = "widget_selected"; marshaller = marshal }
-  end
-end
-
-module Pixmap = struct
-  let cast w : pixmap obj = Object.try_cast w "GtkPixmap"
-  external create : Gdk.pixmap -> ?mask:Gdk.bitmap -> pixmap obj
-      = "ml_gtk_pixmap_new"
-  let create ?mask img = create img ?mask
-  external set :
-      [>`pixmap] obj -> ?pixmap:Gdk.pixmap -> ?mask:Gdk.bitmap -> unit
-      = "ml_gtk_pixmap_set"
-  external pixmap : [>`pixmap] obj -> Gdk.pixmap = "ml_GtkPixmap_pixmap"
-  external mask : [>`pixmap] obj -> Gdk.bitmap = "ml_GtkPixmap_mask"
-end
-
-module Separator = struct
-  let cast w : separator obj = Object.try_cast w "GtkSeparator"
-  external hseparator_new : unit -> separator obj = "ml_gtk_hseparator_new"
-  external vseparator_new : unit -> separator obj = "ml_gtk_vseparator_new"
-  let create (dir : Tags.orientation) =
-    if dir = `HORIZONTAL then hseparator_new () else vseparator_new ()
-end
-
-module FontSelection = struct
-  type null_terminated
-  let null_terminated arg : null_terminated =
-    match arg with None -> Obj.magic Gpointer.raw_null
-    | Some l ->
-       let len = List.length l in
-       let arr = Array.create (len + 1) "" in
-       let rec loop i = function
-           [] -> arr.(i) <- Obj.magic Gpointer.raw_null
-         | s::l -> arr.(i) <- s; loop (i+1) l
-       in loop 0 l;
-       Obj.magic (arr : string array)
-  let cast w : font_selection obj =
-    Object.try_cast w "GtkFontSelection"
-  external create : unit -> font_selection obj
-      = "ml_gtk_font_selection_new"
-  external get_font : [>`fontsel] obj -> Gdk.font
-      = "ml_gtk_font_selection_get_font"
-  let get_font w =
-    try Some (get_font w) with Gpointer.Null -> None
-  external get_font_name : [>`fontsel] obj -> string
-      = "ml_gtk_font_selection_get_font_name"
-  let get_font_name w =
-    try Some (get_font_name w) with Gpointer.Null -> None
-  external set_font_name : [>`fontsel] obj -> string -> unit
-      = "ml_gtk_font_selection_set_font_name"
-  external set_filter :
-    [>`fontsel] obj -> font_filter_type -> font_type list ->
-    null_terminated -> null_terminated -> null_terminated ->
-    null_terminated -> null_terminated -> null_terminated -> unit
-    = "ml_gtk_font_selection_set_filter_bc"
-      "ml_gtk_font_selection_set_filter"
-  let set_filter w ?kind:(tl=[`ALL]) ?foundry
-      ?weight ?slant ?setwidth ?spacing ?charset filter =
-    set_filter w filter tl (null_terminated foundry)
-      (null_terminated weight) (null_terminated slant)
-      (null_terminated setwidth) (null_terminated spacing)
-      (null_terminated charset)
-  external get_preview_text : [>`fontsel] obj -> string
-      = "ml_gtk_font_selection_get_preview_text"
-  external set_preview_text : [>`fontsel] obj -> string -> unit
-      = "ml_gtk_font_selection_set_preview_text"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkNew.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkNew.ml
deleted file mode 100644 (file)
index 532a709..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkNew.ml
+++ /dev/null
@@ -1,56 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-
-type t
-
-(* if you modify this type modify widget_info_array 
-   in ml_gtk.c in accordance *)
-type object_type =
-  | OBJECT  | WIDGET  | MISC  | LABEL  | ACCELLABEL  | TIPSQUERY  | ARROW
-  | IMAGE   | PIXMAP  | CONTAINER  | BIN  | ALIGNMENT  | FRAME  | ASPECTFRAME
-  | BUTTON  | TOGGLEBUTTON  | CHECKBUTTON  | RADIOBUTTON  | OPTIONMENU
-  | ITEM  | MENUITEM  | CHECKMENUITEM  | RADIOMENUITEM  | TEAROFFMENUITEM
-  | LISTITEM  | TREEITEM  | WINDOW  | COLORSELECTIONDIALOG  | DIALOG
-  | INPUTDIALOG  | FILESELECTION  | FONTSELECTIONDIALOG  | PLUG
-  | EVENTBOX  | HANDLEBOX  | SCROLLEDWINDOW  | VIEWPORT  | BOX
-  | BUTTONBOX  | HBUTTONBOX  | VBUTTONBOX  | VBOX  | COLORSELECTION
-  | GAMMACURVE  | HBOX  | COMBO  | STATUSBAR  | CLIST  | CTREE  | FIXED
-  | NOTEBOOK  | FONTSELECTION  | PANED  | HPANED  | VPANED  | LAYOUT
-  | LIST  | MENUSHELL  | MENUBAR  | MENU  | PACKER  | SOCKET  | TABLE
-  | TOOLBAR  | TREE  | CALENDAR  | DRAWINGAREA  | CURVE  | EDITABLE
-  | ENTRY  | SPINBUTTON  | TEXT  | RULER  | HRULER  | VRULER  | RANGE
-  | SCALE  | HSCALE  | VSCALE  | SCROLLBAR  | HSCROLLBAR  | VSCROLLBAR
-  | SEPARATOR  | HSEPARATOR  | VSEPARATOR  | PREVIEW  | PROGRESS
-  | PROGRESSBAR  | DATA  | ADJUSTMENT  | TOOLTIPS  | ITEMFACTORY
-
-external set_ml_class_init  : (t -> unit) -> unit = "set_ml_class_init"
-external signal_new : string -> int -> t -> object_type -> int  -> int
-    = "ml_gtk_signal_new"
-external object_class_add_signals : t -> int array -> int -> unit
-    = "ml_gtk_object_class_add_signals"
-external type_unique :
-    name:string -> parent:object_type -> nsignals:int -> gtk_type
-    = "ml_gtk_type_unique"
-external type_new : gtk_type -> unit obj
-    = "ml_gtk_type_new"
-
-open GtkSignal
-
-let make_new_widget ~name ~parent
-    ~(signals : ('a, unit -> unit) GtkSignal.t list) =
-  let nsignals = List.length signals in
-  let new_type = type_unique ~name ~parent ~nsignals in
-  let signal_num_array = Array.create nsignals 0 in
-  let class_init_func classe =
-    List.fold_left signals ~init:0 ~f:
-      (fun i signal ->
-       signal_num_array.(i) <- signal_new signal.name 1 classe parent i;
-       i+1);
-    object_class_add_signals classe signal_num_array nsignals
-  in
-  new_type,
-  (fun () ->
-    set_ml_class_init class_init_func;
-    type_new new_type)
-  (* , signal_num_array *)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkPack.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkPack.ml
deleted file mode 100644 (file)
index 20adb05..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkPack.ml
+++ /dev/null
@@ -1,318 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module Box = struct
-  let cast w : box obj = Object.try_cast w "GtkBox"
-  external coerce : [>`box] obj -> box obj = "%identity"
-  external pack_start :
-      [>`box] obj -> [>`widget] obj ->
-      expand:bool -> fill:bool -> padding:int -> unit
-      = "ml_gtk_box_pack_start"
-  external pack_end :
-      [>`box] obj -> [>`widget] obj ->
-      expand:bool -> fill:bool -> padding:int -> unit
-      = "ml_gtk_box_pack_end"
-  let pack box ?from:( dir = (`START : pack_type))
-      ?(expand=false) ?(fill=true) ?(padding=0) child =
-    (match dir with `START -> pack_start | `END -> pack_end)
-      box child ~expand ~fill ~padding
-  external reorder_child : [>`box] obj -> [>`widget] obj -> pos:int -> unit
-      = "ml_gtk_box_reorder_child"
-  external set_homogeneous : [>`box] obj -> bool -> unit
-      = "ml_gtk_box_set_homogeneous"
-  external set_spacing : [>`box] obj -> int -> unit
-      = "ml_gtk_box_set_spacing"
-  let set ?homogeneous ?spacing w =
-    may homogeneous ~f:(set_homogeneous w);
-    may spacing ~f:(set_spacing w)
-  type packing =
-      { expand: bool; fill: bool; padding: int; pack_type: pack_type }
-  external query_child_packing : [>`box] obj -> [>`widget] obj -> packing
-      = "ml_gtk_box_query_child_packing"
-  external set_child_packing :
-      [>`box] obj -> [>`widget] obj ->
-      ?expand:bool -> ?fill:bool -> ?padding:int -> ?from:pack_type -> unit
-      = "ml_gtk_box_set_child_packing_bc" "ml_gtk_box_set_child_packing"
-  external hbox_new : homogeneous:bool -> spacing:int -> box obj
-      = "ml_gtk_hbox_new"
-  external vbox_new : homogeneous:bool -> spacing:int -> box obj
-      = "ml_gtk_vbox_new"
-  let create (dir : orientation) ?(homogeneous=false) ?(spacing=0) () =
-    (match dir with `HORIZONTAL -> hbox_new | `VERTICAL -> vbox_new)
-      ~homogeneous ~spacing
-end
-
-module BBox = struct
-  (* Omitted defaults setting *)
-  let cast w : button_box obj = Object.try_cast w "GtkBBox"
-  external coerce : [>`bbox] obj -> button_box obj = "%identity"
-  type bbox_style = [ `DEFAULT_STYLE|`SPREAD|`EDGE|`START|`END ]
-  external get_spacing : [>`bbox] obj -> int = "ml_gtk_button_box_get_spacing"
-  external get_child_width : [>`bbox] obj -> int
-      = "ml_gtk_button_box_get_child_min_width"
-  external get_child_height : [>`bbox] obj -> int
-      = "ml_gtk_button_box_get_child_min_height"
-  external get_child_ipadx : [>`bbox] obj -> int
-      = "ml_gtk_button_box_get_child_ipad_x"
-  external get_child_ipady : [>`bbox] obj -> int
-      = "ml_gtk_button_box_get_child_ipad_y"
-  external get_layout : [>`bbox] obj -> bbox_style
-      = "ml_gtk_button_box_get_layout_style"
-  external set_spacing : [>`bbox] obj -> int -> unit
-      = "ml_gtk_button_box_set_spacing"
-  external set_child_size : [>`bbox] obj -> width:int -> height:int -> unit
-      = "ml_gtk_button_box_set_child_size"
-  external set_child_ipadding : [>`bbox] obj -> x:int -> y:int -> unit
-      = "ml_gtk_button_box_set_child_ipadding"
-  external set_layout : [>`bbox] obj -> bbox_style -> unit
-      = "ml_gtk_button_box_set_layout"
-  let set_child_size w ?width ?height () =
-    set_child_size w ~width:(may_default get_child_width w ~opt:width)
-      ~height:(may_default get_child_height w ~opt:height)
-  let set_child_ipadding w ?x ?y () =
-    set_child_ipadding w
-      ~x:(may_default get_child_ipadx w ~opt:x)
-      ~y:(may_default get_child_ipady w ~opt:y)
-  let set ?spacing ?child_width ?child_height ?child_ipadx
-      ?child_ipady ?layout w =
-    may spacing ~f:(set_spacing w);
-    if child_width <> None || child_height <> None then
-      set_child_size w ?width:child_width ?height:child_height ();
-    if child_ipadx <> None || child_ipady <> None then
-      set_child_ipadding w ?x:child_ipadx ?y:child_ipady ();
-    may layout ~f:(set_layout w)
-  external set_child_size_default : width:int -> height:int -> unit
-      = "ml_gtk_button_box_set_child_size_default"
-  external set_child_ipadding_default : x:int -> y:int -> unit
-      = "ml_gtk_button_box_set_child_ipadding_default"
-  external create_hbbox : unit -> button_box obj = "ml_gtk_hbutton_box_new"
-  external create_vbbox : unit -> button_box obj = "ml_gtk_vbutton_box_new"
-  let create (dir : orientation) =
-    if dir = `HORIZONTAL then create_hbbox () else create_vbbox ()
-end
-
-module Fixed = struct
-  let cast w : fixed obj = Object.try_cast w "GtkFixed"
-  external create : unit -> fixed obj = "ml_gtk_fixed_new"
-  external put : [>`fixed] obj -> [>`widget] obj -> x:int -> y:int -> unit
-      = "ml_gtk_fixed_put"
-  external move : [>`fixed] obj -> [>`widget] obj -> x:int -> y:int -> unit
-      = "ml_gtk_fixed_move"
-end
-
-module Layout = struct
-  let cast w : layout obj = Object.try_cast w "GtkLayout"
-  external create :
-      [>`adjustment] optobj -> [>`adjustment] optobj -> layout obj
-      = "ml_gtk_layout_new"
-  external put : [>`layout] obj -> [>`widget] obj -> x:int -> y:int -> unit
-      = "ml_gtk_layout_put"
-  external move : [>`layout] obj -> [>`widget] obj -> x:int -> y:int -> unit
-      = "ml_gtk_layout_move"
-  external set_size : [>`layout] obj -> width:int -> height:int -> unit
-      = "ml_gtk_layout_set_size"
-  external get_hadjustment : [>`layout] obj -> adjustment obj
-      = "ml_gtk_layout_get_hadjustment"
-  external get_vadjustment : [>`layout] obj -> adjustment obj
-      = "ml_gtk_layout_get_vadjustment"
-  external set_hadjustment : [>`layout] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_layout_set_hadjustment"
-  external set_vadjustment : [>`layout] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_layout_set_vadjustment"
-  external freeze : [>`layout] obj -> unit
-      = "ml_gtk_layout_freeze"
-  external thaw : [>`layout] obj -> unit
-      = "ml_gtk_layout_thaw"
-  external get_height : [>`layout] obj -> int
-      = "ml_gtk_layout_get_height"
-  external get_width : [>`layout] obj -> int
-      = "ml_gtk_layout_get_width"
-  let set_size ?width ?height w =
-    set_size w ~width:(may_default get_width w ~opt:width)
-      ~height:(may_default get_height w ~opt:height)
-end
-
-
-module Packer = struct
-  let cast w : packer obj = Object.try_cast w "GtkPacker"
-  external create : unit -> packer obj = "ml_gtk_packer_new"
-  external add :
-      [>`packer] obj -> [>`widget] obj ->
-      ?side:side_type -> ?anchor:anchor_type ->
-      ?options:packer_options list ->
-      ?border_width:int -> ?pad_x:int -> ?pad_y:int ->
-      ?i_pad_x:int -> ?i_pad_y:int -> unit
-      = "ml_gtk_packer_add_bc" "ml_gtk_packer_add"
-  external add_defaults :
-      [>`packer] obj -> [>`widget] obj ->
-      ?side:side_type -> ?anchor:anchor_type ->
-      ?options:packer_options list -> unit
-      = "ml_gtk_packer_add_defaults"
-  external set_child_packing :
-      [>`packer] obj -> [>`widget] obj ->
-      ?side:side_type -> ?anchor:anchor_type ->
-      ?options:packer_options list ->
-      ?border_width:int -> ?pad_x:int -> ?pad_y:int ->
-      ?i_pad_x:int -> ?i_pad_y:int -> unit
-      = "ml_gtk_packer_set_child_packing_bc" "ml_gtk_packer_set_child_packing"
-  external reorder_child : [>`packer] obj -> [>`widget] obj -> pos:int -> unit
-      = "ml_gtk_packer_reorder_child"
-  external set_spacing : [>`packer] obj -> int -> unit
-      = "ml_gtk_packer_set_spacing"
-  external set_defaults :
-      [>`packer] obj -> ?border_width:int -> ?pad_x:int -> ?pad_y:int ->
-      ?i_pad_x:int -> ?i_pad_y:int -> unit -> unit
-      = "ml_gtk_packer_set_defaults_bc" "ml_gtk_packer_set_defaults"
-
-  let build_options ?(expand=false) ?(fill=`BOTH) () =
-    (if expand then [`PACK_EXPAND] else []) @
-    (match (fill : expand_type) with `NONE -> []
-    | `X -> [`FILL_X]
-    | `Y -> [`FILL_Y]
-    | `BOTH -> [`FILL_X;`FILL_Y])
-end
-
-module Paned = struct
-  let cast w : paned obj = Object.try_cast w "GtkPaned"
-  external add1 : [>`paned] obj -> [>`widget] obj -> unit
-      = "ml_gtk_paned_add1"
-  external add2 : [>`paned] obj -> [>`widget] obj -> unit
-      = "ml_gtk_paned_add2"
-  external set_handle_size : [>`paned] obj -> int -> unit
-      = "ml_gtk_paned_set_handle_size"
-  external set_gutter_size : [>`paned] obj -> int -> unit
-      = "ml_gtk_paned_set_gutter_size"
-  let set ?handle_size ?gutter_size w =
-    may ~f:(set_handle_size w) handle_size;
-    may ~f:(set_gutter_size w) gutter_size
-  external child1 : [>`paned] obj -> widget obj = "ml_gtk_paned_child1"
-  external child2 : [>`paned] obj -> widget obj = "ml_gtk_paned_child2"
-  external handle_size : [>`paned] obj -> int = "ml_gtk_paned_handle_size"
-  external gutter_size : [>`paned] obj -> int = "ml_gtk_paned_handle_size"
-  external hpaned_new : unit -> paned obj = "ml_gtk_hpaned_new"
-  external vpaned_new : unit -> paned obj = "ml_gtk_vpaned_new"
-  let create (dir : orientation) =
-    if dir = `HORIZONTAL then hpaned_new () else vpaned_new ()
-end
-
-module Table = struct
-  let cast w : table obj = Object.try_cast w "GtkTable"
-  external create : int -> int -> homogeneous:bool -> table obj
-      = "ml_gtk_table_new"
-  let create ~rows:r ~columns:c ?(homogeneous=false) () =
-    create r c ~homogeneous
-  external attach :
-      [>`table] obj -> [>`widget] obj -> left:int -> right:int ->
-      top:int -> bottom:int -> xoptions:attach_options list ->
-      yoptions:attach_options list -> xpadding:int -> ypadding:int -> unit
-      = "ml_gtk_table_attach_bc" "ml_gtk_table_attach"
-  let has_x : expand_type -> bool =
-    function `X|`BOTH -> true | `Y|`NONE -> false
-  let has_y : expand_type -> bool =
-    function `Y|`BOTH -> true | `X|`NONE -> false
-  let attach t ~left ~top ?(right=left+1) ?(bottom=top+1)
-      ?(expand=`NONE) ?(fill=`BOTH) ?(shrink=`NONE)
-      ?(xpadding=0) ?(ypadding=0) w =
-    let xoptions = if has_x shrink then [`SHRINK] else [] in
-    let xoptions = if has_x fill then `FILL::xoptions else xoptions in
-    let xoptions = if has_x expand then `EXPAND::xoptions else xoptions in
-    let yoptions = if has_y shrink then [`SHRINK] else [] in
-    let yoptions = if has_y fill then `FILL::yoptions else yoptions in
-    let yoptions = if has_y expand then `EXPAND::yoptions else yoptions in
-    attach t w ~left ~top ~right ~bottom ~xoptions ~yoptions
-      ~xpadding ~ypadding
-  external set_row_spacing : [>`table] obj -> int -> int -> unit
-      = "ml_gtk_table_set_row_spacing"
-  external set_col_spacing : [>`table] obj -> int -> int -> unit
-      = "ml_gtk_table_set_col_spacing"
-  external set_row_spacings : [>`table] obj -> int -> unit
-      = "ml_gtk_table_set_row_spacings"
-  external set_col_spacings : [>`table] obj -> int -> unit
-      = "ml_gtk_table_set_col_spacings"
-  external set_homogeneous : [>`table] obj -> bool -> unit
-      = "ml_gtk_table_set_homogeneous"
-  let set ?homogeneous ?row_spacings ?col_spacings w =
-    may row_spacings ~f:(set_row_spacings w);
-    may col_spacings ~f:(set_col_spacings w);
-    may homogeneous ~f:(set_homogeneous w)
-end
-
-module Notebook = struct
-  let cast w : notebook obj = Object.try_cast w "GtkNotebook"
-  external create : unit -> notebook obj = "ml_gtk_notebook_new"
-  external insert_page :
-      [>`notebook] obj -> [>`widget] obj -> tab_label:[>`widget] optobj ->
-      menu_label:[>`widget] optobj -> pos:int -> unit
-      = "ml_gtk_notebook_insert_page_menu"
-      (* default is append to end *)
-  external remove_page : [>`notebook] obj -> int -> unit
-      = "ml_gtk_notebook_remove_page"
-  external get_current_page : [>`notebook] obj -> int
-      = "ml_gtk_notebook_get_current_page"
-  external set_page : [>`notebook] obj -> int -> unit
-      = "ml_gtk_notebook_set_page"
-  external set_tab_pos : [>`notebook] obj -> position -> unit
-      = "ml_gtk_notebook_set_tab_pos"
-  external set_homogeneous_tabs : [>`notebook] obj -> bool -> unit
-      = "ml_gtk_notebook_set_homogeneous_tabs"
-  external set_show_tabs : [>`notebook] obj -> bool -> unit
-      = "ml_gtk_notebook_set_show_tabs"
-  external set_show_border : [>`notebook] obj -> bool -> unit
-      = "ml_gtk_notebook_set_show_border"
-  external set_scrollable : [>`notebook] obj -> bool -> unit
-      = "ml_gtk_notebook_set_scrollable"
-  external set_tab_border : [>`notebook] obj -> int -> unit
-      = "ml_gtk_notebook_set_tab_border"
-  external popup_enable : [>`notebook] obj -> unit
-      = "ml_gtk_notebook_popup_enable"
-  external popup_disable : [>`notebook] obj -> unit
-      = "ml_gtk_notebook_popup_disable"
-  external get_nth_page : [>`notebook] obj -> int -> widget obj
-      = "ml_gtk_notebook_get_nth_page"
-  external page_num : [>`notebook] obj -> [>`widget] obj -> int
-      = "ml_gtk_notebook_page_num"
-  external next_page : [>`notebook] obj -> unit
-      = "ml_gtk_notebook_next_page"
-  external prev_page : [>`notebook] obj -> unit
-      = "ml_gtk_notebook_prev_page"
-  external get_tab_label : [>`notebook] obj -> [>`widget] obj -> widget obj
-      = "ml_gtk_notebook_get_tab_label"
-  external set_tab_label :
-      [>`notebook] obj -> [>`widget] obj -> [>`widget] obj -> unit
-      = "ml_gtk_notebook_set_tab_label"
-  external get_menu_label : [>`notebook] obj -> [>`widget] obj -> widget obj
-      = "ml_gtk_notebook_get_menu_label"
-  external set_menu_label :
-      [>`notebook] obj -> [>`widget] obj -> [>`widget] obj -> unit
-      = "ml_gtk_notebook_set_menu_label"
-  external reorder_child : [>`notebook] obj -> [>`widget] obj -> int -> unit
-      = "ml_gtk_notebook_reorder_child"
-
-  let set_popup w = function
-      true -> popup_enable w
-    | false -> popup_disable w
-  let set ?page ?tab_pos ?show_tabs ?homogeneous_tabs
-      ?show_border ?scrollable ?tab_border ?popup w =
-    let may_set f = may ~f:(f w) in
-    may_set set_page page;
-    may_set set_tab_pos tab_pos;
-    may_set set_show_tabs show_tabs;
-    may_set set_homogeneous_tabs homogeneous_tabs;
-    may_set set_show_border show_border;
-    may_set set_scrollable scrollable;
-    may_set set_tab_border tab_border;
-    may_set set_popup popup
-  module Signals = struct
-    open GtkArgv
-    open GtkSignal
-    let marshal_page f argv = function
-      |        _ :: INT page :: _ -> f page
-      |        _ -> invalid_arg "GtkPack.Notebook.Signals.marshal_page"
-    let switch_page : ([>`notebook],_) t =
-      { name = "switch_page"; marshaller = marshal_page }
-  end
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkRange.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkRange.ml
deleted file mode 100644 (file)
index b67e49b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkRange.ml
+++ /dev/null
@@ -1,147 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module Progress = struct
-  let cast w : progress obj = Object.try_cast w "GtkProgress"
-  external set_show_text : [>`progress] obj -> bool -> unit
-      = "ml_gtk_progress_set_show_text"
-  external set_text_alignment :
-      [>`progress] obj -> ?x:float -> ?y:float -> unit -> unit
-      = "ml_gtk_progress_set_show_text"
-  external set_format_string : [>`progress] obj -> string -> unit
-      = "ml_gtk_progress_set_format_string"
-  external set_adjustment : [>`progress] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_progress_set_adjustment"
-  external configure :
-      [>`progress] obj -> current:float -> min:float -> max:float -> unit
-      = "ml_gtk_progress_configure"
-  external set_percentage : [>`progress] obj -> float -> unit
-      = "ml_gtk_progress_set_percentage"
-  external set_value : [>`progress] obj -> float -> unit
-      = "ml_gtk_progress_set_value"
-  external get_value : [>`progress] obj -> float
-      = "ml_gtk_progress_get_value"
-  external get_percentage : [>`progress] obj -> float
-      = "ml_gtk_progress_get_current_percentage"
-  external set_activity_mode : [>`progress] obj -> bool -> unit
-      = "ml_gtk_progress_set_activity_mode"
-  external get_current_text : [>`progress] obj -> string
-      = "ml_gtk_progress_get_current_text"
-  external get_adjustment : [>`progress] obj -> adjustment obj
-      = "ml_gtk_progress_get_adjustment"
-  let set ?value ?percentage ?activity_mode
-      ?show_text ?format_string ?text_xalign ?text_yalign w =
-    may value ~f:(set_value w);
-    may percentage ~f:(set_percentage w);
-    may activity_mode ~f:(set_activity_mode w);
-    may show_text ~f:(set_show_text w);
-    may format_string ~f:(set_format_string w);
-    if text_xalign <> None || text_yalign <> None then
-      set_text_alignment w ?x:text_xalign ?y:text_yalign ()
-end
-
-module ProgressBar = struct
-  let cast w : progress_bar obj = Object.try_cast w "GtkProgressBar"
-  external create : unit -> progress_bar obj = "ml_gtk_progress_bar_new"
-  external create_with_adjustment : [>`adjustment] obj -> progress_bar obj
-      = "ml_gtk_progress_bar_new_with_adjustment"
-  external set_bar_style :
-      [>`progressbar] obj -> [`CONTINUOUS|`DISCRETE] -> unit
-      = "ml_gtk_progress_bar_set_bar_style"
-  external set_discrete_blocks : [>`progressbar] obj -> int -> unit
-      = "ml_gtk_progress_bar_set_discrete_blocks"
-  external set_activity_step : [>`progressbar] obj -> int -> unit
-      = "ml_gtk_progress_bar_set_activity_step"
-  external set_activity_blocks : [>`progressbar] obj -> int -> unit
-      = "ml_gtk_progress_bar_set_activity_blocks"
-  external set_orientation :
-      [>`progressbar] obj -> Tags.progress_bar_orientation -> unit
-      = "ml_gtk_progress_bar_set_orientation"
-  let set ?bar_style ?discrete_blocks ?activity_step ?activity_blocks w =
-    let may_set f opt = may opt ~f:(f w) in
-    may_set set_bar_style bar_style;
-    may_set set_discrete_blocks discrete_blocks;
-    may_set set_activity_step activity_step;
-    may_set set_activity_blocks activity_blocks
-end
-
-module Range = struct
-  let cast w : range obj = Object.try_cast w "GtkRange"
-  external coerce : [>`range] obj -> range obj = "%identity"
-  external get_adjustment : [>`range] obj -> adjustment obj
-      = "ml_gtk_range_get_adjustment"
-  external set_adjustment : [>`range] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_range_set_adjustment"
-  external set_update_policy : [>`range] obj -> update_type -> unit
-      = "ml_gtk_range_set_update_policy"
-  let set ?adjustment ?update_policy w =
-    may adjustment ~f:(set_adjustment w);
-    may update_policy ~f:(set_update_policy w)
-end
-
-module Scale = struct
-  let cast w : scale obj = Object.try_cast w "GtkScale"
-  external hscale_new : [>`adjustment] optobj -> scale obj
-      = "ml_gtk_hscale_new"
-  external vscale_new : [>`adjustment] optobj -> scale obj
-      = "ml_gtk_vscale_new"
-  let create ?adjustment (dir : orientation) =
-    let create = if dir = `HORIZONTAL then hscale_new else vscale_new  in
-    create (Gpointer.optboxed adjustment)
-  external set_digits : [>`scale] obj -> int -> unit
-      = "ml_gtk_scale_set_digits"
-  external set_draw_value : [>`scale] obj -> bool -> unit
-      = "ml_gtk_scale_set_draw_value"
-  external set_value_pos : [>`scale] obj -> position -> unit
-      = "ml_gtk_scale_set_value_pos"
-  external get_value_width : [>`scale] obj -> int
-      = "ml_gtk_scale_get_value_width"
-  external draw_value : [>`scale] obj -> unit
-      = "ml_gtk_scale_draw_value"
-  let set ?digits ?draw_value ?value_pos w =
-    may digits ~f:(set_digits w);
-    may draw_value ~f:(set_draw_value w);
-    may value_pos ~f:(set_value_pos w)
-end
-
-module Scrollbar = struct
-  let cast w : scrollbar obj = Object.try_cast w "GtkScrollbar"
-  external hscrollbar_new : [>`adjustment] optobj -> scrollbar obj
-      = "ml_gtk_hscrollbar_new"
-  external vscrollbar_new : [>`adjustment] optobj -> scrollbar obj
-      = "ml_gtk_vscrollbar_new"
-  let create ?adjustment (dir : orientation) =
-    let create = if dir = `HORIZONTAL then hscrollbar_new else vscrollbar_new
-    in create (Gpointer.optboxed adjustment)
-end
-
-module Ruler = struct
-  let cast w : ruler obj = Object.try_cast w "GtkRuler"
-  external hruler_new : unit -> ruler obj = "ml_gtk_hruler_new"
-  external vruler_new : unit -> ruler obj = "ml_gtk_vruler_new"
-  let create (dir : orientation) =
-    if dir = `HORIZONTAL then hruler_new () else vruler_new ()
-  external set_metric : [>`ruler] obj -> metric_type -> unit
-      = "ml_gtk_ruler_set_metric"
-  external set_range :
-      [>`ruler] obj ->
-      lower:float -> upper:float -> position:float -> max_size:float -> unit
-      = "ml_gtk_ruler_set_range"
-  external get_lower : [>`ruler] obj -> float = "ml_gtk_ruler_get_lower"
-  external get_upper : [>`ruler] obj -> float = "ml_gtk_ruler_get_upper"
-  external get_position : [>`ruler] obj -> float = "ml_gtk_ruler_get_position"
-  external get_max_size : [>`ruler] obj -> float = "ml_gtk_ruler_get_max_size"
-  let set_range ?lower ?upper ?position ?max_size w =
-    set_range w ~lower:(may_default get_lower w ~opt:lower)
-      ~upper:(may_default get_upper w ~opt:upper)
-      ~position:(may_default get_position w ~opt:position)
-      ~max_size:(may_default get_max_size w ~opt:max_size)
-  let set ?metric ?lower ?upper ?position ?max_size w =
-    may metric ~f:(set_metric w);
-    if lower <> None || upper <> None || position <> None || max_size <> None
-    then set_range w ?lower ?upper ?position ?max_size
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkSignal.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkSignal.ml
deleted file mode 100644 (file)
index 8fa4602..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkSignal.ml
+++ /dev/null
@@ -1,65 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-
-type id
-type ('a,'b) t =
- { name: string;
-   marshaller: ('b -> GtkArgv.t -> GtkArgv.data list -> unit) }
-
-let enter_callback = ref (fun () -> ())
-and exit_callback = ref (fun () -> ())
-
-let stop_emit_ref = ref false
-let stop_emit () = stop_emit_ref := true
-
-type saved_state = State of bool
-let push_callback () =
-  !enter_callback ();
-  let old = !stop_emit_ref in
-  stop_emit_ref := false;
-  State old
-
-let pop_callback (State old) =
-  let res = !stop_emit_ref in
-  stop_emit_ref := old;
-  !exit_callback ();
-  res
-
-external connect :
-  'a obj -> name:string -> callback:(GtkArgv.t -> unit) -> after:bool -> id
-  = "ml_gtk_signal_connect"
-external emit_stop_by_name : 'a obj -> name:string -> unit
-  = "ml_gtk_signal_emit_stop_by_name"
-let connect  ~(sgn : ('a, _) t) ~callback ?(after=false) (obj : 'a obj) =
-  let callback argv =
-    let old = push_callback () in
-    let exn =
-      try sgn.marshaller callback argv (GtkArgv.get_args argv); None
-      with exn -> Some exn
-    in
-    if pop_callback old then emit_stop_by_name obj ~name:sgn.name;
-    Gaux.may ~f:raise exn
-  in
-  connect obj ~name:sgn.name ~callback ~after
-external disconnect : 'a obj -> id -> unit
-  = "ml_gtk_signal_disconnect"
-external handler_block : 'a obj -> id -> unit
-  = "ml_gtk_signal_handler_block"
-external handler_unblock : 'a obj -> id -> unit
-  = "ml_gtk_signal_handler_unblock"
-
-let marshal_unit f _ _ = f ()
-let marshal_int f _ = function
-  | GtkArgv.INT n :: _ -> f n
-  | _ -> invalid_arg "GtkSignal.marshal_int"
-
-let emit (obj : 'a obj) ~(sgn : ('a, 'b) t)
-    ~(emitter : 'a obj -> name:string -> 'b) =
-  emitter obj ~name:sgn.name
-external emit_none : 'a obj -> name:string -> unit -> unit
-    = "ml_gtk_signal_emit_none"
-let emit_unit obj ~sgn = emit obj ~emitter:emit_none ~sgn ()
-external emit_int : 'a obj -> name:string -> int -> unit
-    = "ml_gtk_signal_emit_int"
-let emit_int = emit ~emitter:emit_int

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkSignal.mli b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkSignal.mli
deleted file mode 100644 (file)
index 0ef2ab2..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkSignal.mli
+++ /dev/null
@@ -1,45 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-
-type id
-type ('a,'b) t =
- { name: string;
-   marshaller: ('b -> GtkArgv.t -> GtkArgv.data list -> unit) }
-
-val stop_emit : unit -> unit
-    (* Call [stop_emit ()] in a callback to prohibit further handling
-       of the current signal invocation, by calling [emit_stop_by_name].
-       Be careful about where you use it, since the concept of current
-       signal may be tricky. *)
-
-val connect :
-  sgn:('a, 'b) t -> callback:'b -> ?after:bool -> 'a obj -> id
-    (* You may use [stop_emit] inside the callback *)
-
-external disconnect : 'a obj -> id -> unit
-  = "ml_gtk_signal_disconnect"
-external emit_stop_by_name : 'a obj -> name:string -> unit
-  = "ml_gtk_signal_emit_stop_by_name"
-    (* Unsafe: use [stop_emit] instead. *)
-external handler_block : 'a obj -> id -> unit
-  = "ml_gtk_signal_handler_block"
-external handler_unblock : 'a obj -> id -> unit
-  = "ml_gtk_signal_handler_unblock"
-
-(* Some marshaller functions, to build signals *)
-val marshal_unit : (unit -> unit) -> GtkArgv.t -> GtkArgv.data list -> unit
-val marshal_int : (int -> unit) -> GtkArgv.t -> GtkArgv.data list -> unit
-
-(* Emitter functions *)
-val emit :
-  'a obj -> sgn:('a, 'b) t -> emitter:('a obj -> name:string -> 'b) -> 'b
-val emit_unit : 'a obj -> sgn:('a, unit -> unit) t -> unit
-val emit_int : 'a obj -> sgn:('a, int -> unit) t -> int -> unit
-
-(* Internal functions. *)
-val enter_callback : (unit -> unit) ref
-val exit_callback : (unit -> unit) ref
-type saved_state
-val push_callback : unit -> saved_state
-val pop_callback : saved_state -> bool

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkThInit.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkThInit.ml
deleted file mode 100644 (file)
index 517f80b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkThInit.ml
+++ /dev/null
@@ -1,5 +0,0 @@
-(* $Id$ *)
-
-(* Start the main thread in a threaded toplevel *)
-
-let thread = GtkThread.start ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkThread.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkThread.ml
deleted file mode 100644 (file)
index 3ab577e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkThread.ml
+++ /dev/null
@@ -1,33 +0,0 @@
-(* $Id$ *)
-
-open GtkMain
-
-(* We check first whether there are some event pending, and run
-   some iterations. We then need to delay, thus focing a thread switch. *)
-
-let main () =
-  try
-    let loop = (Glib.Main.create true) in
-    Main.loops := loop :: !Main.loops;
-    while Glib.Main.is_running loop do
-      let i = ref 0 in
-      while !i < 100 && Glib.Main.pending () do
-       Glib.Main.iteration true;
-       incr i
-      done;
-      Thread.delay 0.001
-    done;
-    Main.loops := List.tl !Main.loops
-  with exn ->
-    Main.loops := List.tl !Main.loops;
-    raise exn
-      
-let start = Thread.create main
-
-let _ =
-  let mutex = Mutex.create () in
-  let depth = ref 0 in
-  GtkSignal.enter_callback :=
-    (fun () -> if !depth = 0 then Mutex.lock mutex; incr depth);
-  GtkSignal.exit_callback :=
-    (fun () -> decr depth; if !depth = 0 then Mutex.unlock mutex)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkTree.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkTree.ml
deleted file mode 100644 (file)
index 9260741..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkTree.ml
+++ /dev/null
@@ -1,122 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module TreeItem = struct
-  let cast w : tree_item obj = Object.try_cast w "GtkTreeItem"
-  external create : unit -> tree_item obj = "ml_gtk_tree_item_new"
-  external create_with_label : string -> tree_item obj
-      = "ml_gtk_tree_item_new_with_label"
-  let create ?label () =
-    match label with None -> create ()
-    | Some label -> create_with_label label
-  external set_subtree : [>`treeitem] obj -> [>`widget] obj -> unit
-      = "ml_gtk_tree_item_set_subtree"
-  external remove_subtree : [>`treeitem] obj -> unit
-      = "ml_gtk_tree_item_remove_subtree"
-  external expand : [>`treeitem] obj -> unit
-      = "ml_gtk_tree_item_expand"
-  external collapse : [>`treeitem] obj -> unit
-      = "ml_gtk_tree_item_collapse"
-  external subtree : [>`treeitem] obj -> tree obj
-      = "ml_GTK_TREE_ITEM_SUBTREE"
-  module Signals = struct
-    open GtkSignal
-    let expand : ([>`treeitem],_) t =
-      { name = "expand"; marshaller = marshal_unit }
-    let collapse : ([>`treeitem],_) t =
-      { name = "collapse"; marshaller = marshal_unit }
-  end
-end
-
-module Tree = struct
-  let cast w : tree obj = Object.try_cast w "GtkTree"
-  external coerce : [>`tree] obj -> tree obj = "%identity"
-  external create : unit -> tree obj = "ml_gtk_tree_new"
-  external insert : [>`tree] obj -> [>`treeitem] obj -> pos:int -> unit
-      = "ml_gtk_tree_insert"
-  external remove_items : [>`tree] obj -> [>`treeitem] obj list -> unit
-      = "ml_gtk_tree_remove_items"
-  external clear_items : [>`tree] obj -> start:int -> stop:int -> unit
-      = "ml_gtk_tree_clear_items"
-  external select_item : [>`tree] obj -> pos:int -> unit
-      = "ml_gtk_tree_select_item"
-  external unselect_item : [>`tree] obj -> pos:int -> unit
-      = "ml_gtk_tree_unselect_item"
-  external child_position : [>`tree] obj -> [>`treeitem] obj -> int
-      = "ml_gtk_tree_child_position"
-  external set_selection_mode : [>`tree] obj -> selection_mode -> unit
-      = "ml_gtk_tree_set_selection_mode"
-  external set_view_mode : [>`tree] obj -> [`LINE|`ITEM] -> unit
-      = "ml_gtk_tree_set_view_mode"
-  external set_view_lines : [>`tree] obj -> bool -> unit
-      = "ml_gtk_tree_set_view_lines"
-  external selection : [>`tree] obj -> tree_item obj list =
-    "ml_gtk_tree_selection"
-  let set ?selection_mode ?view_mode ?view_lines w =
-    let may_set f = may ~f:(f w) in
-    may_set set_selection_mode selection_mode;
-    may_set set_view_mode view_mode;
-    may_set set_view_lines view_lines
-  module Signals = struct
-    open GtkSignal
-    let selection_changed : ([>`tree],_) t =
-      { name = "selection_changed"; marshaller = marshal_unit }
-    let select_child : ([>`tree],_) t =
-      { name = "select_child"; marshaller = Widget.Signals.marshal }
-    let unselect_child : ([>`tree],_) t =
-      { name = "unselect_child"; marshaller = Widget.Signals.marshal }
-  end
-end
-(*
-module CTree = struct
-  type t
-  type node =  [`ctree] obj * t
-  let cast w : ctree obj = Object.try_cast w "GtkCTree"
-  external create : cols:int -> treecol:int -> ctree obj = "ml_gtk_ctree_new"
-  external insert_node :
-      [>`ctree] obj -> ?parent:node -> ?sibling:node ->
-      titles:optstring array ->
-      spacing:int -> ?pclosed:Gdk.pixmap -> ?mclosed:Gdk.bitmap obj ->
-      ?popened:Gdk.pixmap -> ?mopened:Gdk.bitmap obj ->
-      is_leaf:bool -> expanded:bool -> node
-      = "ml_gtk_ctree_insert_node_bc" "ml_gtk_ctree_insert_node"
-  let insert_node'
-      w ?parent ?sibling ?(spacing = 0) ?(is_leaf = true)
-      ?(expanded = false)
-      ?pclosed ?mclosed ?popened ?mopened titles =
-    let len = GtkList.CList.get_columns w in
-    if List.length titles > len then invalid_arg "CTree.insert_node";
-    let arr = Array.create ~len None in
-    List.fold_left titles ~acc:0
-      ~f:(fun ~acc text -> arr.(acc) <- Some text; acc+1);
-    insert_node w
-      ?parent ?sibling ~titles:(Array.map ~f:optstring arr)
-      ~spacing ~is_leaf ~expanded
-      ?pclosed ?mclosed ?popened ?mopened 
-  external node_set_row_data : [>`ctree] obj -> node:node -> Obj.t -> unit
-      = "ml_gtk_ctree_node_set_row_data"
-  external node_get_row_data : [>`ctree] obj -> node:node -> Obj.t
-      = "ml_gtk_ctree_node_get_row_data"
-  external set_indent : [>`ctree] obj -> int -> unit
-      = "ml_gtk_ctree_set_indent"
-  module Signals = struct
-    open GtkSignal
-    let marshal_select f argv =
-      let node : node =
-        match GtkArgv.get_pointer argv ~pos:0 with
-          Some p -> Obj.magic p
-        | None -> invalid_arg "GtkTree.CTree.Signals.marshal_select"
-      in
-      f ~node ~column:(GtkArgv.get_int argv ~pos:1)
-
-    let tree_select_row : ([>`ctree],_) t =
-      { name = "tree_select_row"; marshaller = marshal_select }
-    let tree_unselect_row : ([>`ctree],_) t =
-      { name = "tree_unselect_row"; marshaller = marshal_select }
-  end
-end
-*)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkWindow.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkWindow.ml
deleted file mode 100644 (file)
index ffe00e9..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkWindow.ml
+++ /dev/null
@@ -1,189 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module Window = struct
-  let cast w : window obj = Object.try_cast w "GtkWindow"
-  external coerce : [>`window] obj -> window obj = "%identity"
-  external create : window_type -> window obj = "ml_gtk_window_new"
-  external set_title : [>`window] obj -> string -> unit
-      = "ml_gtk_window_set_title"
-  external set_wmclass : [>`window] obj -> name:string -> clas:string -> unit
-      = "ml_gtk_window_set_title"
-  external get_wmclass_name : [>`window] obj -> string
-      = "ml_gtk_window_get_wmclass_name"
-  external get_wmclass_class : [>`window] obj -> string
-      = "ml_gtk_window_get_wmclass_class"
-  (* set_focus/default are called by Widget.grab_focus/default *)
-  external set_focus : [>`window] obj -> [>`widget] obj -> unit
-      = "ml_gtk_window_set_focus"
-  external set_default : [>`window] obj -> [>`widget] obj -> unit
-      = "ml_gtk_window_set_default"
-  external set_policy :
-      [>`window] obj ->
-      allow_shrink:bool -> allow_grow:bool -> auto_shrink:bool -> unit
-      = "ml_gtk_window_set_policy"
-  external get_allow_shrink : [>`window] obj -> bool
-      = "ml_gtk_window_get_allow_shrink"
-  external get_allow_grow : [>`window] obj -> bool
-      = "ml_gtk_window_get_allow_grow"
-  external get_auto_shrink : [>`window] obj -> bool
-      = "ml_gtk_window_get_auto_shrink"
-  external activate_focus : [>`window] obj -> bool
-      = "ml_gtk_window_activate_focus"
-  external activate_default : [>`window] obj -> bool
-      = "ml_gtk_window_activate_default"
-  external set_modal : [>`window] obj -> bool -> unit
-      = "ml_gtk_window_set_modal"
-  external set_default_size :
-      [>`window] obj -> width:int -> height:int -> unit
-      = "ml_gtk_window_set_default_size"
-  external set_position : [>`window] obj -> window_position -> unit
-      = "ml_gtk_window_set_position"
-  external set_transient_for : [>`window] obj ->[>`window] obj -> unit
-      = "ml_gtk_window_set_transient_for"
-
-  let set_wmclass ?name ?clas:wm_class w =
-    set_wmclass w ~name:(may_default get_wmclass_name w ~opt:name)
-      ~clas:(may_default get_wmclass_class w ~opt:wm_class)
-  let set_policy ?allow_shrink ?allow_grow ?auto_shrink w =
-    set_policy w
-      ~allow_shrink:(may_default get_allow_shrink w ~opt:allow_shrink)
-      ~allow_grow:(may_default get_allow_grow w ~opt:allow_grow)
-      ~auto_shrink:(may_default get_auto_shrink w ~opt:auto_shrink)
-  let set ?title ?wm_name ?wm_class ?position ?allow_shrink ?allow_grow
-      ?auto_shrink ?modal ?(x = -2) ?(y = -2) w =
-    may title ~f:(set_title w);
-    if wm_name <> None || wm_class <> None then
-      set_wmclass w ?name:wm_name ?clas:wm_class;
-    may position ~f:(set_position w);
-    if allow_shrink <> None || allow_grow <> None || auto_shrink <> None then
-      set_policy w ?allow_shrink ?allow_grow ?auto_shrink;
-    may ~f:(set_modal w) modal;
-    if x <> -2 || y <> -2 then Widget.set_uposition w ~x ~y
-  external add_accel_group : [>`window] obj -> accel_group -> unit
-      = "ml_gtk_window_add_accel_group"
-  external remove_accel_group :
-      [>`window] obj -> accel_group -> unit
-      = "ml_gtk_window_remove_accel_group"
-  external activate_focus : [>`window] obj -> unit
-      = "ml_gtk_window_activate_focus"
-  external activate_default : [>`window] obj -> unit
-      = "ml_gtk_window_activate_default"
-  module Signals = struct
-    open GtkSignal
-    let move_resize : ([>`window],_) t =
-      { name = "move_resize"; marshaller = marshal_unit }
-    let set_focus : ([>`window],_) t =
-      { name = "set_focus"; marshaller = Widget.Signals.marshal_opt }
-  end
-end
-
-module Dialog = struct
-  let cast w : dialog obj = Object.try_cast w "GtkDialog"
-  external coerce : [>`dialog] obj -> dialog obj = "%identity"
-  external create : unit -> dialog obj = "ml_gtk_dialog_new"
-  external action_area : [>`dialog] obj -> box obj
-      = "ml_GtkDialog_action_area"
-  external vbox : [>`dialog] obj -> box obj
-      = "ml_GtkDialog_vbox"
-end
-
-module InputDialog = struct
-  let cast w : input_dialog obj = Object.try_cast w "GtkInputDialog"
-  external create : unit -> input_dialog obj = "ml_gtk_input_dialog_new"
-  module Signals = struct
-    open GtkSignal
-    let enable_device : ([>`inputdialog],_) t =
-      { name = "enable_device"; marshaller = marshal_int }
-    let disable_device : ([>`inputdialog],_) t =
-      { name = "disable_device"; marshaller = marshal_int }
-  end
-end
-
-module FileSelection = struct
-  let cast w : file_selection obj = Object.try_cast w "GtkFileSelection"
-  external create : string -> file_selection obj = "ml_gtk_file_selection_new"
-  external set_filename : [>`filesel] obj -> string -> unit
-      = "ml_gtk_file_selection_set_filename"
-  external get_filename : [>`filesel] obj -> string
-      = "ml_gtk_file_selection_get_filename"
-  external show_fileop_buttons : [>`filesel] obj -> unit
-      = "ml_gtk_file_selection_show_fileop_buttons"
-  external hide_fileop_buttons : [>`filesel] obj -> unit
-      = "ml_gtk_file_selection_hide_fileop_buttons"
-  external get_ok_button : [>`filesel] obj -> button obj
-      = "ml_gtk_file_selection_get_ok_button"
-  external get_cancel_button : [>`filesel] obj -> button obj
-      = "ml_gtk_file_selection_get_cancel_button"
-  external get_help_button : [>`filesel] obj -> button obj
-      = "ml_gtk_file_selection_get_help_button"
-  let set_fileop_buttons w = function
-      true -> show_fileop_buttons w
-    | false -> hide_fileop_buttons w
-  let set ?filename ?fileop_buttons w =
-    may filename ~f:(set_filename w);
-    may fileop_buttons ~f:(set_fileop_buttons w)
-end
-
-module FontSelectionDialog = struct
-  let cast w : font_selection_dialog obj =
-    Object.try_cast w "GtkFontSelectionDialog"
-  external create : ?title:string -> unit -> font_selection_dialog obj
-      = "ml_gtk_font_selection_dialog_new"
-  external font_selection : [>`fontseldialog] obj -> font_selection obj
-      = "ml_gtk_font_selection_dialog_fontsel"
-  external ok_button : [>`fontseldialog] obj -> button obj
-      = "ml_gtk_font_selection_dialog_ok_button"
-  external apply_button : [>`fontseldialog] obj -> button obj
-      = "ml_gtk_font_selection_dialog_apply_button"
-  external cancel_button : [>`fontseldialog] obj -> button obj
-      = "ml_gtk_font_selection_dialog_cancel_button"
-(*
-  type null_terminated
-  let null_terminated arg : null_terminated =
-    match arg with None -> Obj.magic Gpointer.raw_null
-    | Some l ->
-       let len = List.length l in
-       let arr = Array.create (len + 1) "" in
-       let rec loop i = function
-           [] -> arr.(i) <- Obj.magic Gpointer.raw_null
-         | s::l -> arr.(i) <- s; loop (i+1) l
-       in loop 0 l;
-       Obj.magic (arr : string array)
-  external get_font : [>`fontseldialog] obj -> Gdk.font
-      = "ml_gtk_font_selection_dialog_get_font"
-  let get_font w =
-    try Some (get_font w) with Gpointer.Null -> None
-  external get_font_name : [>`fontseldialog] obj -> string
-      = "ml_gtk_font_selection_dialog_get_font_name"
-  let get_font_name w =
-    try Some (get_font_name w) with Gpointer.Null -> None
-  external set_font_name : [>`fontseldialog] obj -> string -> unit
-      = "ml_gtk_font_selection_dialog_set_font_name"
-  external set_filter :
-    [>`fontseldialog] obj -> font_filter_type -> font_type list ->
-    null_terminated -> null_terminated -> null_terminated ->
-    null_terminated -> null_terminated -> null_terminated -> unit
-    = "ml_gtk_font_selection_dialog_set_filter_bc"
-      "ml_gtk_font_selection_dialog_set_filter"
-  let set_filter w ?kind:(tl=[`ALL]) ?foundry
-      ?weight ?slant ?setwidth ?spacing ?charset filter =
-    set_filter w filter tl (null_terminated foundry)
-      (null_terminated weight) (null_terminated slant)
-      (null_terminated setwidth) (null_terminated spacing)
-      (null_terminated charset)
-  external get_preview_text : [>`fontseldialog] obj -> string
-      = "ml_gtk_font_selection_dialog_get_preview_text"
-  external set_preview_text : [>`fontseldialog] obj -> string -> unit
-      = "ml_gtk_font_selection_dialog_set_preview_text"
-*)
-end
-
-module Plug = struct
-  let cast w : plug obj = Object.try_cast w "GtkPlug"
-  external create : Gdk.xid -> plug obj = "ml_gtk_plug_new"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkXmHTML.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkXmHTML.ml
deleted file mode 100644 (file)
index 3bf5791..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkXmHTML.ml
+++ /dev/null
@@ -1,109 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-
-type string_direction = [
-  | `R_TO_L
-  | `L_TO_R
-]
-
-type position = [
-  | `END
-  | `CENTER
-  | `BEGINNING
-]
-
-type line_type = [
-  | `SOLID
-  | `DASHED
-  | `SINGLE
-  | `DOUBLE
-  | `STRIKE
-  | `UNDER
-  | `NONE
-]
-
-type dither_type = [
-  | `QUICK
-  | `BEST
-  | `FAST
-  | `SLOW
-  | `DISABLED
-]
-
-type xmhtml = [`widget|`container|`xmhtml]
-
-external create : unit -> xmhtml obj = "ml_gtk_xmhtml_new"
-external freeze : [> `xmhtml] obj -> unit = "ml_gtk_xmhtml_freeze"
-external thaw : [> `xmhtml] obj -> unit = "ml_gtk_xmhtml_thaw"
-external source : [> `xmhtml] obj -> string -> unit = "ml_gtk_xmhtml_source"
-(* external get_source : [> `xmhtml] obj -> string = "ml_gtk_xmhtml_get_source" *)
-external set_string_direction : [> `xmhtml] obj -> string_direction -> unit
-  = "ml_gtk_xmhtml_set_string_direction"
-external set_alignment : [> `xmhtml] obj -> position -> unit
-  = "ml_gtk_xmhtml_set_alignment"
-(* external set_outline : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_outline" *)
-external set_font_familty :
-  [> `xmhtml] obj -> family:string -> sizes:string -> unit
-  = "ml_gtk_xmhtml_set_font_familty"
-external set_font_familty_fixed :
-  [> `xmhtml] obj -> family:string -> sizes:string -> unit
-  = "ml_gtk_xmhtml_set_font_familty_fixed"
-external set_font_charset : [> `xmhtml] obj -> string -> unit
-  = "ml_gtk_xmhtml_set_font_charset"
-external set_allow_body_colors : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_allow_body_colors"
-external set_hilight_on_enter : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_hilight_on_enter"
-external set_anchor_underline_type : [> `xmhtml] obj -> line_type list -> unit
-  = "ml_gtk_xmhtml_set_anchor_underline_type"
-external set_anchor_visited_underline_type :
-  [> `xmhtml] obj -> line_type list -> unit
-  = "ml_gtk_xmhtml_set_anchor_visited_underline_type"
-external set_anchor_target_underline_type :
-  [> `xmhtml] obj -> line_type list -> unit
-  = "ml_gtk_xmhtml_set_anchor_target_underline_type"
-external set_allow_color_switching : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_allow_color_switching"
-external set_dithering : [> `xmhtml] obj -> dither_type -> unit
-  = "ml_gtk_xmhtml_set_dithering"
-external set_allow_font_switching : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_allow_font_switching"
-external set_max_image_colors : [> `xmhtml] obj -> int -> unit
-  = "ml_gtk_xmhtml_set_max_image_colors"
-external set_allow_images : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_allow_images"
-external set_plc_intervals :
-  [> `xmhtml] obj -> min:int -> max:int -> default:int -> unit
-  = "ml_gtk_xmhtml_set_plc_intervals"
-(*
-external set_def_body_image_url : [> `xmhtml] obj -> string -> unit
-  = "ml_gtk_xmhtml_set_def_body_image_url"
-*)
-external set_anchor_buttons : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_anchor_buttons"
-external set_anchor_cursor : [> `xmhtml] obj -> Gdk.cursor option -> unit
-  = "ml_gtk_xmhtml_set_anchor_cursor"
-external set_topline : [> `xmhtml] obj -> int -> unit
-  = "ml_gtk_xmhtml_set_topline"
-external get_topline : [> `xmhtml] obj -> int
-  = "ml_gtk_xmhtml_get_topline"
-external set_freeze_animations : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_freeze_animations"
-external set_screen_gamma : [> `xmhtml] obj -> float -> unit
-  = "ml_gtk_xmhtml_set_screen_gamma"
-external set_perfect_colors : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_perfect_colors"
-external set_uncompress_command : [> `xmhtml] obj -> string -> unit
-  = "ml_gtk_xmhtml_set_uncompress_command"
-external set_strict_checking : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_strict_checking"
-external set_bad_html_warnings : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_bad_html_warnings"
-external set_allow_form_coloring : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_allow_form_coloring"
-external set_imagemap_draw : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_imagemap_draw"
-external set_alpha_processing : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_alpha_processing"

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtk_tags.var b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtk_tags.var
deleted file mode 100644 (file)
index eb4ead7..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtk_tags.var
+++ /dev/null
@@ -1,171 +0,0 @@
-(* $Id$ *)
-
-exception ml_raise_gtk
-
-type arrow_type = "GTK_ARROW_"
-  [ `UP | `DOWN | `LEFT | `RIGHT ]
-
-type attach_options = "GTK_"
-  [ `EXPAND | `SHRINK | `FILL ]
-
-type button_box_style = "GTK_BUTTONBOX_"
-  [ `DEFAULT_STYLE | `SPREAD | `EDGE | `START | `END ]
-
-type direction_type = "GTK_DIR_"
-  [ `TAB_FORWARD | `TAB_BACKWARD | `UP | `DOWN | `LEFT | `RIGHT ]
-
-type justification = "GTK_JUSTIFY_"
-  [ `LEFT | `RIGHT | `CENTER | `FILL ]
-
-type match_type = "GTK_MATCH_"
-  [ `ALL | `ALL_TAIL | `HEAD | `TAIL | `EXACT | `LAST ]
-
-type metric_type = "GTK_"
-  [ `PIXELS | `INCHES | `CENTIMETERS ]
-
-type orientation = "GTK_ORIENTATION_"
-  [ `HORIZONTAL | `VERTICAL ]
-
-type corner_type = "GTK_CORNER_"
-  [ `TOP_LEFT | `BOTTOM_LEFT | `TOP_RIGHT | `BOTTOM_RIGHT ]
-
-type pack_type = "GTK_PACK_"
-  [ `START | `END ]
-
-type path_type = "GTK_PATH_"
-  [ `WIDGET | `WIDGET_CLASS | `CLASS ]
-
-type policy_type = "GTK_POLICY_"
-  [ `ALWAYS | `AUTOMATIC | `NEVER ]
-
-type position = "GTK_POS_"
-  [ `LEFT | `RIGHT | `TOP | `BOTTOM ]
-
-type preview_type = "GTK_PREVIEW_"
-  [ `COLOR | `GRAYSCALE ]
-
-type relief_style = "GTK_RELIEF_"
-  [ `NORMAL | `HALF | `NONE ]
-
-type resize_mode = "GTK_RESIZE_"
-  [ `PARENT | `QUEUE | `IMMEDIATE ]
-
-type signal_run_type = "GTK_RUN_"
-  [ `FIRST | `LAST | `BOTH | `NO_RECURSE | `ACTION | `NO_HOOKS ]
-
-type scroll_type = "GTK_SCROLL_"
-  [ `NONE | `STEP_FORWARD | `STEP_BACKWARD | `PAGE_BACKWARD
-  | `PAGE_FORWARD | `JUMP ]
-
-type selection_mode = "GTK_SELECTION_"
-  [ `SINGLE | `BROWSE | `MULTIPLE | `EXTENDED ]
-
-type shadow_type = "GTK_SHADOW_"
-  [ `NONE | `IN | `OUT | `ETCHED_IN | `ETCHED_OUT ]
-
-type state_type = "GTK_STATE_"
-  [ `NORMAL | `ACTIVE | `PRELIGHT | `SELECTED | `INSENSITIVE ] 
-
-type submenu_direction = "GTK_DIRECTION_"
-  [ `LEFT | `RIGHT ]
-
-type submenu_placement = "GTK_"
-  [ `TOP_BOTTOM | `LEFT_RIGHT ]
-
-type toolbar_style = "GTK_TOOLBAR_"
-  [ `ICONS | `TEXT | `BOTH ]
-
-type trough_type = "GTK_TROUGH_"
-  [ `NONE | `START | `END | `JUMP ]
-
-type update_type = "GTK_UPDATE_"
-  [ `CONTINUOUS | `DISCONTINUOUS | `DELAYED ]
-
-type visibility = "GTK_VISIBILITY_"
-  [ `NONE | `PARTIAL | `FULL ]
-
-type window_position = "GTK_WIN_POS_"
-  [ `NONE | `CENTER | `MOUSE | `CENTER_ALWAYS ]
-
-type window_type = "GTK_WINDOW_"
-  [ `TOPLEVEL | `DIALOG | `POPUP ]
-
-type sort_type = "GTK_SORT_"
-  [ `ASCENDING | `DESCENDING ]
-
-
-type fundamental_type = "GTK_TYPE_"
-  [ `INVALID | `NONE | `CHAR | `BOOL | `INT | `UINT | `LONG | `ULONG
-  | `FLOAT | `DOUBLE | `STRING | `ENUM | `FLAGS | `BOXED | `FOREIGN
-  | `CALLBACK | `ARGS | `POINTER | `SIGNAL | `C_CALLBACK | `OBJECT ]
-
-type cell_type = "GTK_CELL_"
-  [ `EMPTY | `TEXT | `PIXMAP | `PIXTEXT | `WIDGET ]
-
-type toolbar_child = "GTK_TOOLBAR_CHILD_"
-  [ `SPACE | `BUTTON | `TOGGLEBUTTON | `RADIOBUTTON | `WIDGET ]
-
-type toolbar_space_style = "GTK_TOOLBAR_SPACE_"
-  [ `EMPTY | `LINE ]
-
-type tree_view_mode = "GTK_TREE_VIEW_"
-  [ `LINE | `ITEM ]
-
-type spin_type = "GTK_SPIN_"
-  [ `STEP_FORWARD | `STEP_BACKWARD | `PAGE_FORWARD | `PAGE_BACKWARD
-  | `HOME | `END | `USER_DEFINED ]
-
-type accel_flag = "GTK_ACCEL_"
-  [ `VISIBLE | `SIGNAL_VISIBLE | `LOCKED ]
-
-type packer_options = "GTK_"
-  [ `PACK_EXPAND | `FILL_X | `FILL_Y ]
-
-type side_type = "GTK_SIDE_"
-  [ `TOP | `BOTTOM | `LEFT | `RIGHT ]
-
-type anchor_type = "GTK_ANCHOR_"
-  [ `CENTER | `NORTH | `NW | `NE | `SOUTH | `SW | `SE | `WEST | `EAST ]
-
-type button_action = "GTK_BUTTON_"
-  [ `SELECTS | `DRAGS | `EXPANDS ]
-
-type calendar_display_options = "GTK_CALENDAR_"
-  [ `SHOW_HEADING | `SHOW_DAY_NAMES | `NO_MONTH_CHANGE | `SHOW_WEEK_NUMBERS
-  | `WEEK_START_MONDAY ]
-
-type progress_bar_style = "GTK_PROGRESS_"
-  [ `CONTINUOUS | `DISCRETE ]
-
-type progress_bar_orientation = "GTK_PROGRESS_"
-  [ `LEFT_TO_RIGHT | `RIGHT_TO_LEFT | `BOTTOM_TO_TOP | `TOP_TO_BOTTOM ]
-
-type dest_defaults = "GTK_DEST_DEFAULT_"
-  [ `MOTION | `HIGHLIGHT | `DROP | `ALL ]
-
-type target_flags = "GTK_TARGET_"
-  [ `SAME_APP | `SAME_WIDGET ]
-
-type font_metric_type = "GTK_FONT_METRIC_"
-  [ `PIXELS | `POINTS ]
-
-type font_type = "GTK_FONT_"
-  [ `BITMAP | `SCALABLE | `SCALABLE_BITMAP | `ALL ]
-
-type font_filter_type = "GTK_FONT_FILTER_"
-  [ `BASE | `USER ]
-
-(*
-type tree_pos = "GTK_CTREE_POS_"
-  [ `BEFORE | `AS_CHILD | `AFTER ]
-
-type tree_line_style = "GTK_CTREE_LINES_"
-  [ `NONE | `SOLID | `DOTTED | `TABBED ]
-
-type tree_expander_style = "GTK_CTREE_EXPANDER_"
-  [ `NONE | `SQUARE | `TRIANGLE | `CIRCULAR ]
-
-type tree_expansion_type = "GTK_CTREE_EXPANSION_"
-  [ `EXPAND | `EXPAND_RECURSIVE | `COLLAPSE | `COLLAPSE_RECURSIVE
-  | `TOGGLE | `TOGGLE_RECURSIVE ]
-*)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkgl_tags.var b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkgl_tags.var
deleted file mode 100644 (file)
index 57a9f73..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkgl_tags.var
+++ /dev/null
@@ -1,19 +0,0 @@
-(* $Id$ *)
-
-type visual_options = "GDK_GL_" [
-  | `USE_GL
-  | `BUFFER_SIZE
-  | `LEVEL
-  | `RGBA
-  | `DOUBLEBUFFER
-  | `STEREO
-  | `AUX_BUFFERS
-  | `RED_SIZE
-  | `GREEN_SIZE
-  | `BLUE_SIZE
-  | `ALPHA_SIZE
-  | `DEPTH_SIZE
-  | `STENCIL_SIZE
-  | `ACCUM_GREEN_SIZE
-  | `ACCUM_ALPHA_SIZE
-]

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkxmhtml_tags.var b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkxmhtml_tags.var
deleted file mode 100644 (file)
index ad93931..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/gtkxmhtml_tags.var
+++ /dev/null
@@ -1,30 +0,0 @@
-(* $Id$ *)
-
-type string_direction = "TSTRING_DIRECTION_" [
-  | `R_TO_L
-  | `L_TO_R
-]
-
-type position = "TALIGNMENT_" [
-  | `END
-  | `CENTER
-  | `BEGINNING
-]
-
-type line_type = "LINE_" [
-  | `SOLID
-  | `DASHED
-  | `SINGLE
-  | `DOUBLE
-  | `STRIKE
-  | `UNDER
-  | `NONE "NO_LINE"
-]
-
-type dither_type = "Xm" [
-  | `QUICK
-  | `BEST
-  | `FAST
-  | `SLOW
-  | `DISABLED
-]

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/lablgl.patch b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/lablgl.patch
deleted file mode 100644 (file)
index c48de24..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/lablgl.patch
+++ /dev/null
@@ -1,112 +0,0 @@
-Index: Makefile
-===================================================================
-RCS file: /staff2/garrigue/repos/lablGL/Makefile,v
-retrieving revision 1.33
-retrieving revision 1.34
-diff -c -r1.33 -r1.34
-*** Makefile   1998/09/17 03:16:06     1.33
---- Makefile   1999/06/18 07:39:08     1.34
-***************
-*** 12,22 ****
-  OTHERLIBS=-L$(LABLTKDIR) -llabltk41 $(LIBS)
-  
-  # Files
-! MLOBJS =     raw.cmo         togl.cmo \
-               gl.cmo          glLight.cmo     glList.cmo      glMap.cmo \
-               glMat.cmo       glMisc.cmo      glPix.cmo       glClear.cmo \
-               glTex.cmo       glDraw.cmo      glFunc.cmo      gluMisc.cmo \
-               gluNurbs.cmo    gluQuadric.cmo  gluTess.cmo     gluMat.cmo
-  OPTOBJS = $(MLOBJS:.cmo=.cmx)
-  COBJS =              ml_gl.o         ml_glu.o        ml_togl.o       ml_raw.o \
-               $(TOGLDIR)/togl.o
---- 12,23 ----
-  OTHERLIBS=-L$(LABLTKDIR) -llabltk41 $(LIBS)
-  
-  # Files
-! LIBOBJS =    raw.cmo \
-               gl.cmo          glLight.cmo     glList.cmo      glMap.cmo \
-               glMat.cmo       glMisc.cmo      glPix.cmo       glClear.cmo \
-               glTex.cmo       glDraw.cmo      glFunc.cmo      gluMisc.cmo \
-               gluNurbs.cmo    gluQuadric.cmo  gluTess.cmo     gluMat.cmo
-+ MLOBJS = $(LIBOBJS)  togl.cmo
-  OPTOBJS = $(MLOBJS:.cmo=.cmx)
-  COBJS =              ml_gl.o         ml_glu.o        ml_togl.o       ml_raw.o \
-               $(TOGLDIR)/togl.o
-***************
-*** 53,60 ****
-  var2switch: var2switch.cmo
-       $(LINKER) var2switch.cmo -o $@
-  
-! lablgl.cma: $(MLOBJS)
-!      $(LIBRARIAN) -o lablgl.cma $(MLOBJS)
-  
-  lablgl.cmxa: $(OPTOBJS)
-       $(OPTLIB) -o lablgl.cmxa $(OPTOBJS)
---- 54,61 ----
-  var2switch: var2switch.cmo
-       $(LINKER) var2switch.cmo -o $@
-  
-! lablgl.cma: $(LIBOBJS)
-!      $(LIBRARIAN) -o lablgl.cma $(LIBOBJS)
-  
-  lablgl.cmxa: $(OPTOBJS)
-       $(OPTLIB) -o lablgl.cmxa $(OPTOBJS)
-***************
-*** 66,74 ****
-  $(TOGLDIR)/togl.o:
-       cd $(TOGLDIR) && $(MAKE) togl.o
-  
-! lablgltop: lablgl.cma liblablgl.a
-       olablmktop $(OLABLINC) -custom -o lablgltop \
-!              unix.cma tk41.cma lablgl.cma \
-               -cclib "-L. -llablgl -lunix $(OTHERLIBS)"
-  
-  lablgl: lablgl.in Makefile.config
---- 67,75 ----
-  $(TOGLDIR)/togl.o:
-       cd $(TOGLDIR) && $(MAKE) togl.o
-  
-! lablgltop: lablgl.cma togl.cmo liblablgl.a
-       olablmktop $(OLABLINC) -custom -o lablgltop \
-!              unix.cma tk41.cma lablgl.cma togl.cmo \
-               -cclib "-L. -llablgl -lunix $(OTHERLIBS)"
-  
-  lablgl: lablgl.in Makefile.config
-***************
-*** 107,113 ****
-       if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
-       cp $(MLOBJS:.cmo=.cmi) $(INSTALLDIR)
-       cp $(MLOBJS:.cmo=.mli) $(INSTALLDIR)
-!      cp lablgl.cma liblablgl.a $(INSTALLDIR)
-       cp lablgltop $(INSTALLDIR)
-       cp lablgl lablgllink $(BINDIR)
-       if test -f lablgl.cmxa; then : ; \
---- 108,114 ----
-       if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
-       cp $(MLOBJS:.cmo=.cmi) $(INSTALLDIR)
-       cp $(MLOBJS:.cmo=.mli) $(INSTALLDIR)
-!      cp lablgl.cma togl.cmo liblablgl.a $(INSTALLDIR)
-       cp lablgltop $(INSTALLDIR)
-       cp lablgl lablgllink $(BINDIR)
-       if test -f lablgl.cmxa; then : ; \
-Index: lablgllink.in
-===================================================================
-RCS file: /staff2/garrigue/repos/lablGL/lablgllink.in,v
-retrieving revision 1.2
-retrieving revision 1.3
-diff -c -r1.2 -r1.3
-*** lablgllink.in      1998/09/16 10:26:17     1.2
---- lablgllink.in      1999/06/18 07:39:09     1.3
-***************
-*** 1,5 ****
-  #!/bin/sh
-  
-  exec olablc -custom @INCLUDES@ -I @INSTALLDIR@ \
-!      tk41.cma lablgl.cma $* -cclib "-L@INSTALLDIR@ -llablgl" \
-       -cclib "@OTHERLIBS@"
---- 1,5 ----
-  #!/bin/sh
-  
-  exec olablc -custom @INCLUDES@ -I @INSTALLDIR@ \
-!      tk41.cma lablgl.cma togl.cmo $* -cclib "-L@INSTALLDIR@ -llablgl" \
-       -cclib "@OTHERLIBS@"

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/lablgtk.in b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/lablgtk.in
deleted file mode 100644 (file)
index 9801514..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/lablgtk.in
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/bin/sh
-
-thread="no"
-
-case $1 in
--help)
-    echo "Usage: lablgtk [-thread] <options> [script-file]"
-    echo "  -thread  use the threaded version of the toplevel"
-    ;;
--thread)
-    thread=yes
-    shift
-    ;;
-esac
-
-if test $thread = yes; then
-    toplevel="@INSTALLDIR@/lablgtktop_t -I @LIBDIR@/threads"
-else
-    toplevel=@INSTALLDIR@/lablgtktop
-fi
-
-exec $toplevel -w s \
-               -I @LABLGLDIR@ \
-               -I @INSTALLDIR@ $*

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gdk.c b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gdk.c
deleted file mode 100644 (file)
index 9ab1c1e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gdk.c
+++ /dev/null
@@ -1,522 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <gdk/gdk.h>
-#ifdef _WIN32
-#include <gdk/win32/gdkwin32.h>
-#else
-#include <gdk/gdkx.h>
-#endif
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "gdk_tags.h"
-
-void ml_raise_gdk (const char *errmsg)
-{
-  static value * exn = NULL;
-  if (exn == NULL)
-      exn = caml_named_value ("gdkerror");
-  raise_with_string (*exn, (char*)errmsg);
-}
-
-#include "gdk_tags.c"
-
-Make_OptFlags_val (GdkModifier_val)
-Make_Flags_val (Event_mask_val)
-
-#define Make_test(conv) \
-value ml_test_##conv (value mask, value test) \
-{ return Val_bool (conv(mask) & Int_val(test)); }
-
-Make_test(GdkModifier_val)
-
-/* Colormap */
-
-Make_Val_final_pointer (GdkColormap, gdk_colormap_ref, gdk_colormap_unref, 0)
-ML_0 (gdk_colormap_get_system, Val_GdkColormap)
-
-/* Screen geometry */
-ML_0 (gdk_screen_width, Val_int)
-ML_0 (gdk_screen_height, Val_int)
-
-/* Visual */
-value ml_gdk_visual_get_best (value depth, value type)
-{
-     GdkVisual *vis;
-     if (type == Val_unit)
-          if (depth == Val_unit) vis = gdk_visual_get_best ();
-          else vis = gdk_visual_get_best_with_depth (Int_val(Field(depth,0)));
-     else
-          if (depth == Val_unit)
-               vis = gdk_visual_get_best_with_type
-                    (GdkVisualType_val(Field(type,0)));
-          else vis = gdk_visual_get_best_with_both
-                    (Int_val(Field(depth,0)),GdkVisualType_val(Field(type,0)));
-     if (!vis) ml_raise_gdk("Gdk.Visual.get_best");
-     return Val_GdkVisual(vis);
-}
-
-Make_Extractor (GdkVisual,GdkVisual_val,type,Val_gdkVisualType)
-Make_Extractor (GdkVisual,GdkVisual_val,depth,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,red_mask,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,red_shift,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,red_prec,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,green_mask,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,green_shift,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,green_prec,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,blue_mask,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,blue_shift,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,blue_prec,Val_int)
-
-/* Image */
-
-Make_Val_final_pointer (GdkImage, Ignore, gdk_image_destroy, 0)
-GdkImage *GdkImage_val(value val)
-{
-    if (!Field(val,1)) ml_raise_gdk ("attempt to use destroyed GdkImage");
-    return (GdkImage*)(Field(val,1));
-}
-value ml_gdk_image_destroy (value val)
-{
-    if (Field(val,1)) gdk_image_destroy((GdkImage*)(Field(val,1)));
-    Field(val,1) = NULL;
-    return Val_unit;
-}
-ML_4 (gdk_image_new_bitmap, GdkVisual_val, String_val, Int_val, Int_val,
-      Val_GdkImage)
-ML_4 (gdk_image_new, GdkImageType_val, GdkVisual_val, Int_val, Int_val,
-      Val_GdkImage)
-ML_5 (gdk_image_get, GdkWindow_val, Int_val, Int_val, Int_val, Int_val,
-      Val_GdkImage)
-ML_4 (gdk_image_put_pixel, GdkImage_val, Int_val, Int_val, Int_val, Unit)
-ML_3 (gdk_image_get_pixel, GdkImage_val, Int_val, Int_val, Val_int)
-
-/* Color */
-
-ML_2 (gdk_colormap_new, GdkVisual_val, Bool_val, Val_GdkColormap)
-
-value ml_gdk_color_white (value cmap)
-{
-    GdkColor color;
-    gdk_color_white (GdkColormap_val(cmap), &color);
-    return Val_copy(color);
-}
-    
-value ml_gdk_color_black (value cmap)
-{
-    GdkColor color;
-    gdk_color_black (GdkColormap_val(cmap), &color);
-    return Val_copy(color);
-}
-
-value ml_gdk_color_parse (char *spec)
-{
-    GdkColor color;
-    if (!gdk_color_parse (spec, &color))
-       ml_raise_gdk ("color_parse");
-    return Val_copy(color);
-}
-
-ML_2 (gdk_color_alloc, GdkColormap_val, GdkColor_val, Val_bool)
-
-value ml_GdkColor (value red, value green, value blue)
-{
-    GdkColor color;
-    color.red = Int_val(red);
-    color.green = Int_val(green);
-    color.blue = Int_val(blue);
-    color.pixel = 0;
-    return Val_copy(color);
-}
-
-Make_Extractor (GdkColor, GdkColor_val, red, Val_int)
-Make_Extractor (GdkColor, GdkColor_val, green, Val_int)
-Make_Extractor (GdkColor, GdkColor_val, blue, Val_int)
-Make_Extractor (GdkColor, GdkColor_val, pixel, Val_int)
-
-/* Rectangle */
-
-value ml_GdkRectangle (value x, value y, value width, value height)
-{
-    GdkRectangle rectangle;
-    rectangle.x = Int_val(x);
-    rectangle.y = Int_val(y);
-    rectangle.width = Int_val(width);
-    rectangle.height = Int_val(height);
-    return Val_copy(rectangle);
-}
-
-Make_Extractor (GdkRectangle, GdkRectangle_val, x, Val_int)
-Make_Extractor (GdkRectangle, GdkRectangle_val, y, Val_int)
-Make_Extractor (GdkRectangle, GdkRectangle_val, width, Val_int)
-Make_Extractor (GdkRectangle, GdkRectangle_val, height, Val_int)
-
-/* Window */
-
-Make_Val_final_pointer (GdkWindow, gdk_window_ref, gdk_window_unref, 0)
-Make_Extractor (gdk_visual_get, GdkVisual_val, depth, Val_int)
-ML_1 (gdk_window_get_visual, GdkWindow_val, Val_GdkVisual)
-ML_3 (gdk_window_set_back_pixmap, GdkWindow_val, GdkPixmap_val, Int_val, Unit)
-ML_1 (gdk_window_clear, GdkWindow_val, Unit)
-ML_0 (GDK_ROOT_PARENT, Val_GdkWindow)
-ML_1 (gdk_window_get_parent, GdkWindow_val, Val_GdkWindow)
-ML_1 (GDK_WINDOW_XWINDOW, GdkWindow_val, Val_XID)
-value ml_gdk_window_get_position (value window)
-{
-  int x, y;
-  value ret;
-
-  gdk_window_get_position (GdkWindow_val(window), &x, &y);
-  
-  ret = alloc_small (2,0);
-  Field(ret,0) = Val_int(x);
-  Field(ret,1) = Val_int(y);
-  return ret;
-}
-
-value ml_gdk_window_get_size (value window)
-{
-  int x, y;
-  value ret;
-
-  gdk_window_get_size (GdkWindow_val(window), &x, &y);
-  
-  ret = alloc_small (2,0);
-  Field(ret,0) = Val_int(x);
-  Field(ret,1) = Val_int(y);
-  return ret;
-}
-
-/* Cursor */
-
-ML_1 (gdk_cursor_new, GdkCursorType_val, Val_GdkCursor)
-ML_6 (gdk_cursor_new_from_pixmap, GdkPixmap_val, GdkPixmap_val,
-      GdkColor_val, GdkColor_val, Int_val, Int_val, Val_GdkCursor)
-ML_bc6 (ml_gdk_cursor_new_from_pixmap)
-ML_1 (gdk_cursor_destroy, GdkCursor_val, Unit)
-
-/* Pixmap */
-
-Make_Val_final_pointer (GdkPixmap, gdk_pixmap_ref, gdk_pixmap_unref, 0)
-Make_Val_final_pointer (GdkBitmap, gdk_bitmap_ref, gdk_bitmap_unref, 0)
-Make_Val_final_pointer_ext (GdkPixmap, _no_ref, Ignore, gdk_pixmap_unref, 20)
-Make_Val_final_pointer_ext (GdkBitmap, _no_ref, Ignore, gdk_bitmap_unref, 20)
-ML_4 (gdk_pixmap_new, GdkWindow_val, Int_val, Int_val, Int_val,
-      Val_GdkPixmap_no_ref)
-ML_4 (gdk_bitmap_create_from_data, GdkWindow_val,
-      String_val, Int_val, Int_val, Val_GdkBitmap_no_ref)
-ML_7 (gdk_pixmap_create_from_data, GdkWindow_val, String_val,
-      Int_val, Int_val, Int_val, GdkColor_val, GdkColor_val,
-      Val_GdkPixmap_no_ref)
-ML_bc7 (ml_gdk_pixmap_create_from_data)
-
-value ml_gdk_pixmap_colormap_create_from_xpm
-       (value window, value colormap, value transparent, char *filename)
-{
-    CAMLparam0();
-    GdkBitmap *mask;
-    CAMLlocal2(vpixmap, vmask);
-    value ret;
-
-    vpixmap = Val_GdkPixmap_no_ref
-       (gdk_pixmap_colormap_create_from_xpm
-        (GdkWindow_val(window), Option_val(colormap,GdkColormap_val,NULL),
-         &mask, Option_val(transparent,GdkColor_val,NULL), filename));
-    vmask = Val_GdkBitmap_no_ref (mask);
-
-    ret = alloc_small (2,0);
-    Field(ret,0) = vpixmap;
-    Field(ret,1) = vmask;
-    CAMLreturn(ret);
-}
-
-value ml_gdk_pixmap_colormap_create_from_xpm_d
-       (value window, value colormap, value transparent, char **data)
-{
-    CAMLparam0();
-    GdkBitmap *mask;
-    CAMLlocal2(vpixmap, vmask);
-    value ret;
-
-    vpixmap = Val_GdkPixmap_no_ref
-       (gdk_pixmap_colormap_create_from_xpm_d
-        (GdkWindow_val(window), Option_val(colormap,GdkColormap_val,NULL),
-         &mask, Option_val(transparent,GdkColor_val,NULL), data));
-    vmask = Val_GdkBitmap_no_ref (mask);
-
-    ret = alloc_small (2, 0);
-    Field(ret,0) = vpixmap;
-    Field(ret,1) = vmask;
-    CAMLreturn(ret);
-}
-
-/* Font */
-
-Make_Val_final_pointer (GdkFont, gdk_font_ref, gdk_font_unref, 0)
-Make_Val_final_pointer_ext (GdkFont, _no_ref, Ignore, gdk_font_unref, 20)
-ML_1 (gdk_font_load, String_val, Val_GdkFont_no_ref)
-ML_1 (gdk_fontset_load, String_val, Val_GdkFont_no_ref)
-ML_2 (gdk_string_width, GdkFont_val, String_val, Val_int)
-ML_2 (gdk_char_width, GdkFont_val, (gchar)Long_val, Val_int)
-ML_2 (gdk_string_height, GdkFont_val, String_val, Val_int)
-ML_2 (gdk_char_height, GdkFont_val, (gchar)Long_val, Val_int)
-ML_2 (gdk_string_measure, GdkFont_val, String_val, Val_int)
-ML_2 (gdk_char_measure, GdkFont_val, (char)Long_val, Val_int)
-Make_Extractor (GdkFont, GdkFont_val, type, Val_gdkFontType)
-Make_Extractor (GdkFont, GdkFont_val, ascent, Val_int)
-Make_Extractor (GdkFont, GdkFont_val, descent, Val_int)
-
-/* Region */
-
-#define PointArray_val(val) ((GdkPoint*)&Field(val,1))
-#define PointArrayLen_val(val) Int_val(Field(val,0))
-Make_Val_final_pointer (GdkRegion, Ignore, gdk_region_destroy, 0)
-GdkRegion *GdkRegion_val(value val)
-{
-    if (!Field(val,1)) ml_raise_gdk ("attempt to use destroyed GdkRegion");
-    return (GdkRegion*)(Field(val,1));
-}
-value ml_gdk_region_destroy (value val)
-{
-    if (Field(val,1)) gdk_region_destroy((GdkRegion*)(Field(val,1)));
-    Field(val,1) = NULL;
-    return Val_unit;
-}
-ML_0 (gdk_region_new, Val_GdkRegion)
-ML_2 (gdk_region_polygon, Insert(PointArray_val(arg1)) PointArrayLen_val,
-      GdkFillRule_val, Val_GdkRegion)
-ML_2 (gdk_regions_intersect, GdkRegion_val, GdkRegion_val, Val_GdkRegion)
-ML_2 (gdk_regions_union, GdkRegion_val, GdkRegion_val, Val_GdkRegion)
-ML_2 (gdk_regions_subtract, GdkRegion_val, GdkRegion_val, Val_GdkRegion)
-ML_2 (gdk_regions_xor, GdkRegion_val, GdkRegion_val, Val_GdkRegion)
-ML_2 (gdk_region_union_with_rect, GdkRegion_val, GdkRectangle_val,
-      Val_GdkRegion)
-ML_3 (gdk_region_offset, GdkRegion_val, Int_val, Int_val, Unit)
-ML_3 (gdk_region_shrink, GdkRegion_val, Int_val, Int_val, Unit)
-ML_1 (gdk_region_empty, GdkRegion_val, Val_bool)
-ML_2 (gdk_region_equal, GdkRegion_val, GdkRegion_val, Val_bool)
-ML_3 (gdk_region_point_in, GdkRegion_val, Int_val, Int_val, Val_bool)
-ML_2 (gdk_region_rect_in, GdkRegion_val, GdkRectangle_val, Val_gdkOverlapType)
-ML_2 (gdk_region_get_clipbox, GdkRegion_val, GdkRectangle_val, Unit)
-
-
-/* GC */
-
-Make_Val_final_pointer (GdkGC, gdk_gc_ref, gdk_gc_unref, 0)
-Make_Val_final_pointer_ext (GdkGC, _no_ref, Ignore, gdk_gc_unref, 20)
-ML_1 (gdk_gc_new, GdkWindow_val, Val_GdkGC_no_ref)
-ML_2 (gdk_gc_set_foreground, GdkGC_val, GdkColor_val, Unit)
-ML_2 (gdk_gc_set_background, GdkGC_val, GdkColor_val, Unit)
-ML_2 (gdk_gc_set_font, GdkGC_val, GdkFont_val, Unit)
-ML_2 (gdk_gc_set_function, GdkGC_val, GdkFunction_val, Unit)
-ML_2 (gdk_gc_set_fill, GdkGC_val, GdkFill_val, Unit)
-ML_2 (gdk_gc_set_tile, GdkGC_val, GdkPixmap_val, Unit)
-ML_2 (gdk_gc_set_stipple, GdkGC_val, GdkPixmap_val, Unit)
-ML_3 (gdk_gc_set_ts_origin, GdkGC_val, Int_val, Int_val, Unit)
-ML_3 (gdk_gc_set_clip_origin, GdkGC_val, Int_val, Int_val, Unit)
-ML_2 (gdk_gc_set_clip_mask, GdkGC_val, GdkBitmap_val, Unit)
-ML_2 (gdk_gc_set_clip_rectangle, GdkGC_val, GdkRectangle_val, Unit)
-ML_2 (gdk_gc_set_clip_region, GdkGC_val, GdkRegion_val, Unit)
-ML_2 (gdk_gc_set_subwindow, GdkGC_val, GdkSubwindowMode_val, Unit)
-ML_2 (gdk_gc_set_exposures, GdkGC_val, Bool_val, Unit)
-ML_5 (gdk_gc_set_line_attributes, GdkGC_val, Int_val, GdkLineStyle_val,
-      GdkCapStyle_val, GdkJoinStyle_val, Unit)
-ML_2 (gdk_gc_copy, GdkGC_val, GdkGC_val, Unit)
-value ml_gdk_gc_get_values (value gc)
-{
-    CAMLparam0();
-    GdkGCValues values;
-    int i;
-    CAMLlocal2(ret, tmp);
-
-    gdk_gc_get_values (GdkGC_val(gc), &values);
-    ret = alloc (18, 0);
-    tmp = Val_copy(values.foreground); Store_field(ret, 0, tmp);
-    tmp = Val_copy(values.background); Store_field(ret, 1, tmp);
-    if (values.font) {
-        tmp = ml_some(Val_GdkFont(values.font));
-        Store_field(ret, 2, tmp);
-    }
-    Field(ret,3) = Val_gdkFunction(values.function);
-    Field(ret,4) = Val_gdkFill(values.fill);
-    if (values.tile) {
-        tmp = ml_some(Val_GdkPixmap(values.tile));
-        Store_field(ret, 5, tmp);
-    }
-    if (values.tile) {
-        tmp = ml_some(Val_GdkPixmap(values.stipple));
-        Store_field(ret, 6, tmp);
-    }
-    if (values.tile) {
-        tmp = ml_some(Val_GdkPixmap(values.clip_mask));
-        Store_field(ret, 7, tmp);
-    }
-    Field(ret,8) = Val_gdkSubwindowMode(values.subwindow_mode);
-    Field(ret,9) = Val_int(values.ts_x_origin);
-    Field(ret,10) = Val_int(values.ts_y_origin);
-    Field(ret,11) = Val_int(values.clip_x_origin);
-    Field(ret,12) = Val_int(values.clip_y_origin);
-    Field(ret,13) = Val_bool(values.graphics_exposures);
-    Field(ret,14) = Val_int(values.line_width);
-    Field(ret,15) = Val_gdkLineStyle(values.line_style);
-    Field(ret,16) = Val_gdkCapStyle(values.cap_style);
-    Field(ret,17) = Val_gdkJoinStyle(values.join_style);
-    CAMLreturn(ret);
-}
-
-/* Draw */
-
-value ml_point_array_new (value len)
-{
-    value ret = alloc (1 + Wosize_asize(Int_val(len)*sizeof(GdkPoint)),
-                      Abstract_tag);
-    Field(ret,0) = len;
-    return ret;
-}
-value ml_point_array_set (value arr, value pos, value x, value y)
-{
-    GdkPoint *pt = PointArray_val(arr) + Int_val(pos);
-    pt->x = Int_val(x);
-    pt->y = Int_val(y);
-    return Val_unit;
-}
-
-ML_4 (gdk_draw_point, GdkDrawable_val, GdkGC_val, Int_val, Int_val, Unit)
-ML_6 (gdk_draw_line, GdkDrawable_val, GdkGC_val, Int_val, Int_val,
-      Int_val, Int_val, Unit)
-ML_bc6 (ml_gdk_draw_line)
-ML_7 (gdk_draw_rectangle, GdkDrawable_val, GdkGC_val, Bool_val,
-      Int_val, Int_val, Int_val, Int_val, Unit)
-ML_bc7 (ml_gdk_draw_rectangle)
-ML_9 (gdk_draw_arc, GdkDrawable_val, GdkGC_val, Bool_val, Int_val, Int_val,
-      Int_val, Int_val, Int_val, Int_val, Unit)
-ML_bc9 (ml_gdk_draw_arc)
-ML_4 (gdk_draw_polygon, GdkDrawable_val, GdkGC_val, Bool_val,
-      Insert(PointArray_val(arg4)) PointArrayLen_val, Unit)
-ML_6 (gdk_draw_string, GdkDrawable_val, GdkFont_val, GdkGC_val, Int_val, Int_val, String_val, Unit)
-ML_bc6 (ml_gdk_draw_string)
-
-ML_9 (gdk_draw_image, GdkDrawable_val, GdkGC_val, GdkImage_val, Int_val, Int_val, Int_val, Int_val, Int_val, Int_val, Unit)
-ML_bc9 (ml_gdk_draw_image)
-
-/* RGB */
-
-ML_0 (gdk_rgb_init, Unit)
-ML_0 (gdk_rgb_get_visual, Val_GdkVisual)
-ML_0 (gdk_rgb_get_cmap, Val_GdkColormap)
-
-/* Events */
-
-/* Have a major collection every 1000 events */
-Make_Val_final_pointer (GdkEvent, Ignore, gdk_event_free, 1)
-ML_1 (gdk_event_copy, GdkEvent_val, Val_GdkEvent)
-
-value ml_gdk_event_new (value event_type)
-{
-    GdkEvent event;
-    memset (&event, 0, sizeof(GdkEvent));
-    event.type = GdkEventType_val(event_type);
-    event.any.send_event = TRUE;
-    return Val_copy(event);
-}
-
-#define GdkEvent_arg(type) (GdkEvent##type*)GdkEvent_val
-
-Make_Extractor (GdkEventAny, GdkEvent_arg(Any), type, Val_gdkEventType)
-Make_Extractor (GdkEventAny, GdkEvent_arg(Any), window, Val_GdkWindow)
-Make_Extractor (GdkEventAny, GdkEvent_arg(Any), send_event, Val_bool)
-Make_Setter (gdk_event_set, GdkEvent_arg(Any), GdkEventType_val, type)
-Make_Setter (gdk_event_set, GdkEvent_arg(Any), GdkWindow_val, window)
-
-Make_Extractor (GdkEventExpose, GdkEvent_arg(Expose), area, Val_copy)
-Make_Extractor (GdkEventExpose, GdkEvent_arg(Expose), count, Val_int)
-
-Make_Extractor (GdkEventVisibility, GdkEvent_arg(Visibility), state,
-               Val_gdkVisibilityState)
-
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), time, Val_int)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), x, copy_double)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), y, copy_double)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), pressure, copy_double)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), xtilt, copy_double)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), ytilt, copy_double)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), state, Val_int)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), is_hint, Val_int)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), source, Val_gdkInputSource)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), deviceid, Val_int)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), x_root, copy_double)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), y_root, copy_double)
-
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), time, Val_int)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), x, copy_double)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), y, copy_double)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), pressure, copy_double)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), xtilt, copy_double)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), ytilt, copy_double)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), state, Val_int)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), button, Val_int)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), source, Val_gdkInputSource)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), deviceid, Val_int)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), x_root, copy_double)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), y_root, copy_double)
-
-Make_Setter (gdk_event_button_set, GdkEvent_arg(Button), Int_val, button)
-
-Make_Extractor (GdkEventKey, GdkEvent_arg(Key), time, Val_int)
-Make_Extractor (GdkEventKey, GdkEvent_arg(Key), state, Val_int)
-Make_Extractor (GdkEventKey, GdkEvent_arg(Key), keyval, Val_int)
-Make_Extractor (GdkEventKey, GdkEvent_arg(Key), string, Val_string)
-
-Make_Extractor (GdkEventCrossing, GdkEvent_arg(Crossing), subwindow,
-               Val_GdkWindow)
-Make_Extractor (GdkEventCrossing, GdkEvent_arg(Crossing), detail,
-               Val_gdkNotifyType)
-
-Make_Extractor (GdkEventFocus, GdkEvent_arg(Focus), in, Val_int)
-
-Make_Extractor (GdkEventConfigure, GdkEvent_arg(Configure), x, Val_int)
-Make_Extractor (GdkEventConfigure, GdkEvent_arg(Configure), y, Val_int)
-Make_Extractor (GdkEventConfigure, GdkEvent_arg(Configure), width, Val_int)
-Make_Extractor (GdkEventConfigure, GdkEvent_arg(Configure), height, Val_int)
-
-Make_Extractor (GdkEventProperty, GdkEvent_arg(Property), atom, Val_int)
-Make_Extractor (GdkEventProperty, GdkEvent_arg(Property), time, Val_int)
-Make_Extractor (GdkEventProperty, GdkEvent_arg(Property), state, Val_int)
-
-Make_Extractor (GdkEventSelection, GdkEvent_arg(Selection), selection, Val_int)
-Make_Extractor (GdkEventSelection, GdkEvent_arg(Selection), target, Val_int)
-Make_Extractor (GdkEventSelection, GdkEvent_arg(Selection), property, Val_int)
-Make_Extractor (GdkEventSelection, GdkEvent_arg(Selection), requestor, Val_int)
-Make_Extractor (GdkEventSelection, GdkEvent_arg(Selection), time, Val_int)
-
-Make_Extractor (GdkEventProximity, GdkEvent_arg(Proximity), time, Val_int)
-Make_Extractor (GdkEventProximity, GdkEvent_arg(Proximity), source,
-               Val_gdkInputSource)
-Make_Extractor (GdkEventProximity, GdkEvent_arg(Proximity), deviceid, Val_int)
-
-/* DnD */
-Make_Val_final_pointer (GdkDragContext, gdk_drag_context_ref, gdk_drag_context_unref, 0)
-Make_Flags_val (GdkDragAction_val)
-ML_3 (gdk_drag_status, GdkDragContext_val, Flags_GdkDragAction_val, Int_val, Unit)
-Make_Extractor (GdkDragContext, GdkDragContext_val, suggested_action, Val_gdkDragAction)
-value val_int(gpointer i)
-{
-  return Val_int (GPOINTER_TO_INT(i));
-}
-value ml_GdkDragContext_targets (value c)
-{
-  GList *t;
-
-  t = (GdkDragContext_val(c))->targets;
-  return Val_GList (t, val_int);
-}
-
-/* Misc */
-ML_0 (gdk_flush, Unit)
-ML_0 (gdk_beep, Unit)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gdk.h b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gdk.h
deleted file mode 100644 (file)
index 5d699ac..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gdk.h
+++ /dev/null
@@ -1,53 +0,0 @@
-/* $Id$ */
-
-#define GdkColormap_val(val) ((GdkColormap*)Pointer_val(val))
-extern value Val_GdkColormap (GdkColormap *);
-
-#define GdkColor_val(val) ((GdkColor*)MLPointer_val(val))
-#define Val_GdkColor Val_pointer
-
-#define GdkRectangle_val(val) ((GdkRectangle*)MLPointer_val(val))
-#define Val_GdkRectangle Val_pointer
-
-#define GdkDrawable_val(val) ((GdkDrawable*)Pointer_val(val))
-
-#define GdkWindow_val(val) ((GdkWindow*)Pointer_val(val))
-extern value Val_GdkWindow (GdkWindow *);
-
-#define GdkCursor_val(val) ((GdkCursor*)Pointer_val(val))
-#define Val_GdkCursor Val_pointer
-
-#define GdkPixmap_val(val) ((GdkPixmap*)Pointer_val(val))
-extern value Val_GdkPixmap (GdkPixmap *);
-
-#define GdkBitmap_val(val) ((GdkBitmap*)Pointer_val(val))
-extern value Val_GdkBitmap (GdkBitmap *);
-
-extern GdkImage *GdkImage_val (value); /* check argument */
-extern value Val_GdkImage (GdkImage *); /* finalizer is destroy! */
-
-#define GdkFont_val(val) ((GdkFont*)Pointer_val(val))
-extern value Val_GdkFont (GdkFont *);
-
-extern GdkRegion *GdkRegion_val (value); /* check argument */
-extern value Val_GdkRegion (GdkRegion *); /* finalizer is destroy! */
-
-#define GdkGC_val(val) ((GdkGC*)Pointer_val(val))
-extern value Val_GdkGC (GdkGC *);
-
-#define GdkEvent_val (GdkEvent*)MLPointer_val
-
-#define GdkVisual_val(val) ((GdkVisual*) val)
-#define Val_GdkVisual(visual) ((value) visual)
-
-#define Val_XID copy_int32
-#define XID_val Int32_val
-
-extern int OptFlags_GdkModifier_val (value);
-extern int Flags_Event_mask_val (value);
-extern lookup_info ml_table_extension_events[];
-#define Extension_events_val(key) ml_lookup_to_c (ml_table_extension_events, key)
-
-#define GdkDragContext_val(val) ((GdkDragContext*)Pointer_val(val))
-extern value Val_GdkDragContext (GdkDragContext *);
-extern int Flags_GdkDragAction_val (value);

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_glib.c b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_glib.c
deleted file mode 100644 (file)
index b7d3fcb..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_glib.c
+++ /dev/null
@@ -1,135 +0,0 @@
-/* $Id$ */
-
-#include <glib.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-
-/*
-value Val_GSList (GSList *list, value (*func)(gpointer))
-{
-    value new_cell, result, last_cell, cell;
-
-    if (list == NULL) return Val_unit;
-
-    last_cell = cell = Val_unit;
-    result = func(list->data);
-    Begin_roots3 (last_cell, cell, result);
-    cell = last_cell = alloc_tuple (2);
-    Field(cell,0) = result;
-    Field(cell,1) = Val_unit;
-    list = list->next;
-    while (list != NULL) {
-       result = func(list->data);
-       new_cell = alloc_tuple(2);
-       Field(new_cell,0) = result;
-       Field(new_cell,1) = Val_unit;
-       modify(&Field(last_cell,1), new_cell);
-       last_cell = new_cell;
-       list = list->next;
-    }
-    End_roots ();
-    return cell;
-}
-
-GSList *GSList_val (value list, gpointer (*func)(value))
-{
-    GSList *res = NULL;
-    GSList **current = &res;
-    value cell = list;
-    if (list == Val_unit) return res;
-    Begin_root (cell);
-    while (cell != Val_unit) {
-       *current = g_slist_alloc ();
-       (*current)->data = func(Field(cell,0));
-       cell = Field(cell,1);
-       current = &(*current)->next;
-    }
-    End_roots ();
-    return res;
-}
-*/
-
-value Val_GList (GList *list, value (*func)(gpointer))
-{
-    value new_cell, result, last_cell, cell;
-
-    if (list == NULL) return Val_unit;
-
-    last_cell = cell = Val_unit;
-    result = func(list->data);
-    Begin_roots3 (last_cell, cell, result);
-    cell = last_cell = alloc_small(2,0);
-    Field(cell,0) = result;
-    Field(cell,1) = Val_unit;
-    list = list->next;
-    while (list != NULL) {
-       result = func(list->data);
-       new_cell = alloc_small(2,0);
-       Field(new_cell,0) = result;
-       Field(new_cell,1) = Val_unit;
-       modify(&Field(last_cell,1), new_cell);
-       last_cell = new_cell;
-       list = list->next;
-    }
-    End_roots ();
-    return cell;
-}
-
-GList *GList_val (value list, gpointer (*func)(value))
-{
-    CAMLparam1(list);
-    GList *res = NULL;
-    if (list == Val_unit) CAMLreturn (res);
-    for (; Is_block(list); list = Field(list,1))
-      res = g_list_append (res, func(Field(list,0)));
-    CAMLreturn (res);
-}
-
-static value ml_warning_handler = 0L;
-
-static void ml_warning_wrapper (const gchar *msg)
-{
-    value arg = copy_string ((char*)msg);
-    callback (ml_warning_handler, arg);
-}
-    
-value ml_g_set_warning_handler (value clos)
-{
-    value old_handler = ml_warning_handler ? ml_warning_handler : clos;
-    if (!ml_warning_handler) register_global_root (&ml_warning_handler);
-    g_set_warning_handler (ml_warning_wrapper);
-    ml_warning_handler = clos;
-    return old_handler;
-}
-
-static value ml_print_handler = 0L;
-
-static void ml_print_wrapper (const gchar *msg)
-{
-    value arg = copy_string ((char*)msg);
-    callback (ml_print_handler, arg);
-}
-    
-value ml_g_set_print_handler (value clos)
-{
-    value old_handler = ml_print_handler ? ml_print_handler : clos;
-    if (!ml_print_handler) register_global_root (&ml_print_handler);
-    g_set_print_handler (ml_print_wrapper);
-    ml_print_handler = clos;
-    return old_handler;
-}
-
-value ml_get_null (value unit) { return 0L; }
-
-#define GMainLoop_val(val) ((GMainLoop*)Addr_val(val))
-ML_1 (g_main_new, Bool_val, Val_addr)
-ML_1 (g_main_iteration, Bool_val, Val_bool)
-ML_0 (g_main_pending, Val_bool)
-ML_1 (g_main_is_running, GMainLoop_val, Val_bool)
-ML_1 (g_main_quit, GMainLoop_val, Unit)
-ML_1 (g_main_destroy, GMainLoop_val, Unit)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_glib.h b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_glib.h
deleted file mode 100644 (file)
index f0b45db..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_glib.h
+++ /dev/null
@@ -1,10 +0,0 @@
-/* $Id$ */
-
-/*
-value Val_GSList (GSList *list, value (*func)(gpointer));
-
-GSList *GSList_val (value list, gpointer (*func)(value));
-*/
-
-value Val_GList (GList *list, value (*func)(gpointer));
-GList *GList_val (value list, gpointer (*func)(value));

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gtk.c b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gtk.c
deleted file mode 100644 (file)
index 0ee12a2..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gtk.c
+++ /dev/null
@@ -1,2170 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "ml_gtk.h"
-#include "gtk_tags.h"
-
-void ml_raise_gtk (const char *errmsg)
-{
-  static value * exn = NULL;
-  if (exn == NULL)
-      exn = caml_named_value ("gtkerror");
-  raise_with_string (*exn, (char*)errmsg);
-}
-
-value copy_string_and_free (char *str)
-{
-    value res;
-    res = copy_string_check (str);
-    g_free (str);
-    return res;
-}
-
-value *ml_gtk_root_new (value v)
-{
-    value *p = stat_alloc(sizeof(value));
-    *p = v;
-    register_global_root (p);
-    return p;
-}
-
-void ml_gtk_root_destroy (gpointer data)
-{
-    remove_global_root ((value *)data);
-    stat_free (data);
-}
-
-/* conversion functions */
-
-#include "gtk_tags.c"
-
-ML_1 (Val_direction_type, Int_val, Id)
-ML_1 (Val_orientation, Int_val, Id)
-ML_1 (Val_toolbar_style, Int_val, Id)
-ML_1 (Val_state_type, Int_val, Id)
-ML_1 (Val_scroll_type, Int_val, Id)
-
-Make_Flags_val (Attach_options_val)
-Make_Flags_val (Button_action_val)
-Make_Flags_val (Dest_defaults_val)
-Make_Flags_val (Target_flags_val)
-Make_Flags_val (Font_type_val)
-
-/* gtkobject.h */
-
-Make_Val_final_pointer(GtkObject, gtk_object_ref, gtk_object_unref, 0)
-
-#define gtk_object_ref_and_sink(w) (gtk_object_ref(w), gtk_object_sink(w))
-Make_Val_final_pointer_ext(GtkObject, _sink , gtk_object_ref_and_sink,
-                           gtk_object_unref, 20)
-
-/* gtkaccelgroup.h */
-
-#define GtkAccelGroup_val(val) ((GtkAccelGroup*)Pointer_val(val))
-Make_Val_final_pointer (GtkAccelGroup, gtk_accel_group_ref,
-                       gtk_accel_group_unref, 0)
-Make_Val_final_pointer_ext (GtkAccelGroup, _no_ref, Ignore,
-                            gtk_accel_group_unref, 20)
-Make_OptFlags_val (Accel_flag_val)
-
-#define Signal_name_val(val) String_val(Field(val,0))
-
-ML_0 (gtk_accel_group_new, Val_GtkAccelGroup_no_ref)
-ML_0 (gtk_accel_group_get_default, Val_GtkAccelGroup)
-ML_3 (gtk_accel_group_activate, GtkAccelGroup_val, Int_val,
-      OptFlags_GdkModifier_val, Val_bool)
-ML_3 (gtk_accel_groups_activate, GtkObject_val, Int_val,
-      OptFlags_GdkModifier_val, Val_bool)
-ML_2 (gtk_accel_group_attach, GtkAccelGroup_val, GtkObject_val, Unit)
-ML_2 (gtk_accel_group_detach, GtkAccelGroup_val, GtkObject_val, Unit)
-ML_1 (gtk_accel_group_lock, GtkAccelGroup_val, Unit)
-ML_1 (gtk_accel_group_unlock, GtkAccelGroup_val, Unit)
-ML_3 (gtk_accel_group_lock_entry, GtkAccelGroup_val, Int_val,
-      OptFlags_GdkModifier_val, Unit)
-ML_3 (gtk_accel_group_unlock_entry, GtkAccelGroup_val, Int_val,
-      OptFlags_GdkModifier_val, Unit)
-ML_6 (gtk_accel_group_add, GtkAccelGroup_val, Int_val,
-      OptFlags_GdkModifier_val, OptFlags_Accel_flag_val,
-      GtkObject_val, Signal_name_val, Unit)
-ML_bc6 (ml_gtk_accel_group_add)
-ML_4 (gtk_accel_group_remove, GtkAccelGroup_val, Int_val,
-      OptFlags_GdkModifier_val, GtkObject_val, Unit)
-ML_2 (gtk_accelerator_valid, Int_val, OptFlags_GdkModifier_val, Val_bool)
-ML_1 (gtk_accelerator_set_default_mod_mask, OptFlags_GdkModifier_val, Unit)
-
-/* gtkstyle.h */
-
-#define GtkStyle_val(val) ((GtkStyle*)Pointer_val(val))
-Make_Val_final_pointer (GtkStyle, gtk_style_ref, gtk_style_unref, 0)
-Make_Val_final_pointer_ext (GtkStyle, _no_ref, Ignore, gtk_style_unref, 20)
-ML_0 (gtk_style_new, Val_GtkStyle_no_ref)
-ML_1 (gtk_style_copy, GtkStyle_val, Val_GtkStyle_no_ref)
-ML_2 (gtk_style_attach, GtkStyle_val, GdkWindow_val, Val_GtkStyle)
-ML_1 (gtk_style_detach, GtkStyle_val, Unit)
-ML_3 (gtk_style_set_background, GtkStyle_val, GdkWindow_val, State_type_val, Unit)
-ML_6 (gtk_draw_hline, GtkStyle_val, GdkWindow_val, State_type_val,
-      Int_val, Int_val, Int_val, Unit)
-ML_bc6 (ml_gtk_draw_hline)
-ML_6 (gtk_draw_vline, GtkStyle_val, GdkWindow_val, State_type_val,
-      Int_val, Int_val, Int_val, Unit)
-ML_bc6 (ml_gtk_draw_vline)
-Make_Array_Extractor (gtk_style_get, GtkStyle_val, State_type_val,  bg, Val_copy)
-Make_Array_Setter (gtk_style_set, GtkStyle_val, State_type_val, *GdkColor_val, bg)
-Make_Extractor (gtk_style_get, GtkStyle_val, colormap, Val_GdkColormap)
-Make_Extractor (gtk_style_get, GtkStyle_val, depth, Val_int)
-Make_Extractor (gtk_style_get, GtkStyle_val, font, Val_GdkFont)
-/* Make_Setter (gtk_style_set, GtkStyle_val, GdkFont_val, font) */
-value ml_gtk_style_set_font (value st, value font)
-{
-    GtkStyle *style = GtkStyle_val(st);
-    if (style->font) gdk_font_unref(style->font);
-    style->font = GdkFont_val(font);
-    gdk_font_ref(style->font);
-    return Val_unit;
-}   
-Make_Array_Extractor (gtk_style_get, GtkStyle_val, State_type_val,  dark_gc, Val_GdkGC)
-Make_Array_Extractor (gtk_style_get, GtkStyle_val, State_type_val,  light_gc, Val_GdkGC)
-
-/* gtktypeutils.h */
-
-ML_1 (gtk_type_name, Int_val, Val_string)
-ML_1 (gtk_type_from_name, String_val, Val_int)
-ML_1 (gtk_type_parent, Int_val, Val_int)
-ML_1 (gtk_type_class, Int_val, (value))
-ML_1 (gtk_type_parent_class, Int_val, (value))
-ML_2 (gtk_type_is_a, Int_val, Int_val, Val_bool)
-value ml_gtk_type_fundamental (value type)
-{
-    return Val_fundamental_type (GTK_FUNDAMENTAL_TYPE (Int_val(type)));
-}
-
-/* gtkobject.h */
-
-/* ML_1 (GTK_OBJECT_TYPE, GtkObject_val, Val_int) */
-value ml_gtk_object_type (value val)
-{
-    return Val_int (GtkObject_val(val)->klass->type);
-}
-
-ML_1 (gtk_object_destroy, GtkObject_val, Unit)
-ML_1 (gtk_object_ref, GtkObject_val, Unit)
-ML_1 (gtk_object_unref, GtkObject_val, Unit)
-ML_1 (gtk_object_sink, GtkObject_val, Unit)
-
-Make_Extractor (gtk_class,(GtkObjectClass *),type,Val_int)
-
-/* gtkdata.h */
-
-/* gtkadjustment.h */
-
-#define GtkAdjustment_val(val) check_cast(GTK_ADJUSTMENT,val)
-ML_6 (gtk_adjustment_new, Float_val, Float_val, Float_val, Float_val,
-      Float_val, Float_val, Val_GtkObject_sink)
-ML_bc6 (ml_gtk_adjustment_new)
-ML_2 (gtk_adjustment_set_value, GtkAdjustment_val, Float_val, Unit)
-ML_3 (gtk_adjustment_clamp_page, GtkAdjustment_val,
-      Float_val, Float_val, Unit)
-Make_Extractor (gtk_adjustment_get, GtkAdjustment_val, lower, copy_double)
-Make_Extractor (gtk_adjustment_get, GtkAdjustment_val, upper, copy_double)
-Make_Extractor (gtk_adjustment_get, GtkAdjustment_val, value, copy_double)
-Make_Extractor (gtk_adjustment_get, GtkAdjustment_val, step_increment,
-               copy_double)
-Make_Extractor (gtk_adjustment_get, GtkAdjustment_val, page_increment,
-               copy_double)
-Make_Extractor (gtk_adjustment_get, GtkAdjustment_val, page_size, copy_double)
-
-/* gtktooltips.h */
-
-#define GtkWidget_val(val) check_cast(GTK_WIDGET,val)
-#define GtkTooltips_val(val) check_cast(GTK_TOOLTIPS,val)
-ML_0 (gtk_tooltips_new, Val_GtkAny)
-ML_1 (gtk_tooltips_enable, GtkTooltips_val, Unit)
-ML_1 (gtk_tooltips_disable, GtkTooltips_val, Unit)
-ML_2 (gtk_tooltips_set_delay, GtkTooltips_val, Int_val, Unit)
-ML_4 (gtk_tooltips_set_tip, GtkTooltips_val, GtkWidget_val,
-      String_option_val, String_option_val, Unit)
-ML_3 (gtk_tooltips_set_colors, GtkTooltips_val,
-      Option_val(arg2, GdkColor_val, NULL) Ignore,
-      Option_val(arg3, GdkColor_val, NULL) Ignore,
-      Unit)
-
-/* gtkwidget.h */
-
-value ml_gtk_widget_set_can_default (value val, value bool)
-{
-    GtkWidget *w = GtkWidget_val(val);
-    guint32 saved_flags = GTK_WIDGET_FLAGS(w);
-    if (Bool_val(bool)) GTK_WIDGET_SET_FLAGS(w, GTK_CAN_DEFAULT);
-    else GTK_WIDGET_UNSET_FLAGS(w, GTK_CAN_DEFAULT);
-    if (saved_flags != GTK_WIDGET_FLAGS(w))
-       gtk_widget_queue_resize (w);
-    return Val_unit;
-}
-value ml_gtk_widget_set_can_focus (value val, value bool)
-{
-    GtkWidget *w = GtkWidget_val(val);
-    guint32 saved_flags = GTK_WIDGET_FLAGS(w);
-    if (Bool_val(bool)) GTK_WIDGET_SET_FLAGS(w, GTK_CAN_FOCUS);
-    else GTK_WIDGET_UNSET_FLAGS(w, GTK_CAN_FOCUS);
-    if (saved_flags != GTK_WIDGET_FLAGS(w))
-       gtk_widget_queue_resize (w);
-    return Val_unit;
-}
-ML_1 (gtk_widget_unparent, GtkWidget_val, Unit)
-ML_1 (gtk_widget_show, GtkWidget_val, Unit)
-ML_1 (gtk_widget_show_now, GtkWidget_val, Unit)
-ML_1 (gtk_widget_show_all, GtkWidget_val, Unit)
-ML_1 (gtk_widget_hide, GtkWidget_val, Unit)
-ML_1 (gtk_widget_hide_all, GtkWidget_val, Unit)
-ML_1 (gtk_widget_map, GtkWidget_val, Unit)
-ML_1 (gtk_widget_unmap, GtkWidget_val, Unit)
-ML_1 (gtk_widget_realize, GtkWidget_val, Unit)
-ML_1 (gtk_widget_unrealize, GtkWidget_val, Unit)
-ML_1 (gtk_widget_queue_draw, GtkWidget_val, Unit)
-ML_1 (gtk_widget_queue_resize, GtkWidget_val, Unit)
-ML_2 (gtk_widget_draw, GtkWidget_val,
-      Option_val(arg2,GdkRectangle_val,NULL) Ignore, Unit)
-ML_1 (gtk_widget_draw_focus, GtkWidget_val, Unit)
-ML_1 (gtk_widget_draw_default, GtkWidget_val, Unit)
-/* ML_1 (gtk_widget_draw_children, GtkWidget_val, Unit) */
-ML_2 (gtk_widget_event, GtkWidget_val, GdkEvent_val, Val_bool)
-ML_1 (gtk_widget_activate, GtkWidget_val, Val_bool)
-ML_2 (gtk_widget_reparent, GtkWidget_val, GtkWidget_val, Unit)
-ML_3 (gtk_widget_popup, GtkWidget_val, Int_val, Int_val, Unit)
-value ml_gtk_widget_intersect (value w, value area)
-{
-    GdkRectangle inter;
-    if (gtk_widget_intersect(GtkWidget_val(w), GdkRectangle_val(area), &inter))
-       return ml_some (Val_copy (inter));
-    return Val_unit;
-}
-/* ML_1 (gtk_widget_basic, GtkWidget_val, Val_bool) */
-ML_1 (gtk_widget_grab_focus, GtkWidget_val, Unit)
-ML_1 (gtk_widget_grab_default, GtkWidget_val, Unit)
-ML_2 (gtk_widget_set_name, GtkWidget_val, String_val, Unit)
-ML_1 (gtk_widget_get_name, GtkWidget_val, Val_string)
-ML_2 (gtk_widget_set_state, GtkWidget_val, State_type_val, Unit)
-ML_2 (gtk_widget_set_sensitive, GtkWidget_val, Bool_val, Unit)
-ML_3 (gtk_widget_set_uposition, GtkWidget_val, Int_val, Int_val, Unit)
-ML_3 (gtk_widget_set_usize, GtkWidget_val, Int_val, Int_val, Unit)
-ML_2 (gtk_widget_add_events, GtkWidget_val, Flags_Event_mask_val, Unit)
-ML_2 (gtk_widget_set_events, GtkWidget_val, Flags_Event_mask_val, Unit)
-ML_2 (gtk_widget_set_extension_events, GtkWidget_val, Extension_events_val,
-      Unit)
-ML_1 (gtk_widget_get_toplevel, GtkWidget_val, Val_GtkWidget)
-ML_2 (gtk_widget_get_ancestor, GtkWidget_val, Int_val, Val_GtkWidget)
-ML_1 (gtk_widget_get_colormap, GtkWidget_val, Val_GdkColormap)
-ML_1 (gtk_widget_get_visual, GtkWidget_val, (value))
-value ml_gtk_widget_get_pointer (value w)
-{
-    int x,y;
-    value ret;
-    gtk_widget_get_pointer (GtkWidget_val(w), &x, &y);
-    ret = alloc_small (2,0);
-    Field(ret,0) = Val_int(x);
-    Field(ret,1) = Val_int(y);
-    return ret;
-}
-ML_2 (gtk_widget_is_ancestor, GtkWidget_val, GtkWidget_val, Val_bool)
-/* ML_2 (gtk_widget_is_child, GtkWidget_val, GtkWidget_val, Val_bool) */
-ML_2 (gtk_widget_set_style, GtkWidget_val, GtkStyle_val, Unit)
-ML_1 (gtk_widget_set_rc_style, GtkWidget_val, Unit)
-ML_1 (gtk_widget_ensure_style, GtkWidget_val, Unit)
-ML_1 (gtk_widget_get_style, GtkWidget_val, Val_GtkStyle)
-ML_1 (gtk_widget_restore_default_style, GtkWidget_val, Unit)
-
-ML_6 (gtk_widget_add_accelerator, GtkWidget_val, Signal_name_val,
-      GtkAccelGroup_val, Char_val, OptFlags_GdkModifier_val,
-      OptFlags_Accel_flag_val, Unit)
-ML_bc6 (ml_gtk_widget_add_accelerator)
-ML_4 (gtk_widget_remove_accelerator, GtkWidget_val, GtkAccelGroup_val,
-      Char_val, OptFlags_GdkModifier_val, Unit)
-ML_1 (gtk_widget_lock_accelerators, GtkWidget_val, Unit)
-ML_1 (gtk_widget_unlock_accelerators, GtkWidget_val, Unit)
-ML_1 (gtk_widget_accelerators_locked, GtkWidget_val, Val_bool)
-
-ML_1 (GTK_WIDGET_VISIBLE, GtkWidget_val, Val_bool)
-ML_1 (GTK_WIDGET_HAS_FOCUS, GtkWidget_val, Val_bool)
-
-Make_Extractor (GtkWidget, GtkWidget_val, window, Val_GdkWindow)
-Make_Extractor (gtk_widget, GtkWidget_val, parent, Val_GtkWidget)
-static value Val_GtkAllocation (GtkAllocation allocation)
-{
-    value ret = alloc_small (4, 0);
-    Field(ret,0) = Val_int(allocation.x);
-    Field(ret,1) = Val_int(allocation.y);
-    Field(ret,2) = Val_int(allocation.width);
-    Field(ret,3) = Val_int(allocation.height);
-    return ret;
-}
-Make_Extractor (gtk_widget, GtkWidget_val, allocation, Val_GtkAllocation)
-/*
-#define GtkAllocation_val(val) ((GtkAllocation*)Pointer_val(val))
-Make_Extractor (gtk_allocation, GtkAllocation_val, x, Val_int)
-Make_Extractor (gtk_allocation, GtkAllocation_val, y, Val_int)
-Make_Extractor (gtk_allocation, GtkAllocation_val, width, Val_int)
-Make_Extractor (gtk_allocation, GtkAllocation_val, height, Val_int)
-*/
-
-ML_2 (gtk_widget_set_app_paintable, GtkWidget_val, Bool_val, Unit)
-
-ML_2 (gtk_widget_set_visual, GtkWidget_val, GdkVisual_val, Unit)
-ML_2 (gtk_widget_set_colormap, GtkWidget_val, GdkColormap_val, Unit)
-ML_1 (gtk_widget_set_default_visual, GdkVisual_val, Unit)
-ML_1 (gtk_widget_set_default_colormap, GdkColormap_val, Unit)
-ML_0 (gtk_widget_get_default_visual, Val_GdkVisual)
-ML_0 (gtk_widget_get_default_colormap, Val_GdkColormap)
-ML_1 (gtk_widget_push_visual, GdkVisual_val, Unit)
-ML_1 (gtk_widget_push_colormap, GdkColormap_val, Unit)
-ML_0 (gtk_widget_pop_visual, Unit)
-ML_0 (gtk_widget_pop_colormap, Unit)
-
-/* gtkdnd.h */
-
-value ml_gtk_drag_dest_set (value w, value f, value t, value a)
-{
-  GtkTargetEntry *targets = (GtkTargetEntry *)Val_unit;
-  int n_targets, i;
-  
-  CAMLparam4 (w,f,t,a);
-  n_targets = Wosize_val(t);
-  if (n_targets)
-      targets = (GtkTargetEntry *)
-         alloc (Wosize_asize(n_targets * sizeof(GtkTargetEntry)),
-                Abstract_tag);
-  for (i=0; i<n_targets; i++) {
-    targets[i].target = String_val(Field(Field(t, i), 0));
-    targets[i].flags = Flags_Target_flags_val(Field(Field(t, i), 1));
-    targets[i].info = Int_val(Field(Field(t, i), 2));
-  }
-  gtk_drag_dest_set (GtkWidget_val(w), Flags_Dest_defaults_val(f),
-                    targets, n_targets, Flags_GdkDragAction_val(a));
-  CAMLreturn(Val_unit);
-}
-ML_1 (gtk_drag_dest_unset, GtkWidget_val, Unit)
-ML_4 (gtk_drag_finish, GdkDragContext_val, Bool_val, Bool_val, Int_val, Unit)
-ML_4 (gtk_drag_get_data, GtkWidget_val, GdkDragContext_val, Int_val, Int_val, Unit)
-ML_1 (gtk_drag_get_source_widget, GdkDragContext_val, Val_GtkWidget)
-ML_1 (gtk_drag_highlight, GtkWidget_val, Unit)
-ML_1 (gtk_drag_unhighlight, GtkWidget_val, Unit)
-ML_4 (gtk_drag_set_icon_widget, GdkDragContext_val, GtkWidget_val,
-      Int_val, Int_val, Unit)
-ML_6 (gtk_drag_set_icon_pixmap, GdkDragContext_val, GdkColormap_val,
-      GdkPixmap_val, Option_val(arg4, GdkBitmap_val, NULL) Ignore,
-      Int_val, Int_val, Unit)
-ML_bc6 (ml_gtk_drag_set_icon_pixmap)
-ML_1 (gtk_drag_set_icon_default, GdkDragContext_val, Unit)
-ML_5 (gtk_drag_set_default_icon, GdkColormap_val,
-      GdkPixmap_val, Option_val(arg3, GdkBitmap_val, NULL) Ignore,
-      Int_val, Int_val, Unit)
-value ml_gtk_drag_source_set (value w, value m, value t, value a)
-{
-  GtkTargetEntry *targets = (GtkTargetEntry *)Val_unit;
-  int n_targets, i;
-  CAMLparam4 (w,m,t,a);
-  
-  n_targets = Wosize_val(t);
-  if (n_targets)
-      targets = (GtkTargetEntry *)
-         alloc (Wosize_asize(n_targets * sizeof(GtkTargetEntry)),
-                Abstract_tag);
-  for (i=0; i<n_targets; i++) {
-    targets[i].target = String_val(Field(Field(t, i), 0));
-    targets[i].flags = Flags_Target_flags_val(Field(Field(t, i), 1));
-    targets[i].info = Int_val(Field(Field(t, i), 2));
-  }
-  gtk_drag_source_set (GtkWidget_val(w), OptFlags_GdkModifier_val(m),
-                      targets, n_targets, Flags_GdkDragAction_val(a));
-  CAMLreturn(Val_unit);
-}
-ML_4 (gtk_drag_source_set_icon, GtkWidget_val, GdkColormap_val,
-      GdkPixmap_val, Option_val(arg4, GdkBitmap_val, NULL) Ignore, Unit)
-ML_1 (gtk_drag_source_unset, GtkWidget_val, Unit)
-
-/* gtkwidget.h / gtkselection.h */
-
-#define GtkSelectionData_val(val) ((GtkSelectionData *)Pointer_val(val))
-
-Make_Extractor (gtk_selection_data, GtkSelectionData_val, selection, Val_int)
-Make_Extractor (gtk_selection_data, GtkSelectionData_val, target, Val_int)
-Make_Extractor (gtk_selection_data, GtkSelectionData_val, type, Val_int)
-Make_Extractor (gtk_selection_data, GtkSelectionData_val, format, Val_int)
-value ml_gtk_selection_data_get_data (value val)
-{
-    value ret;
-    GtkSelectionData *data = GtkSelectionData_val(val);
-
-    if (data->length < 0) ml_raise_null_pointer();
-    ret = alloc_string (data->length);
-    if (data->length) memcpy ((void*)ret, data->data, data->length);
-    return ret;
-}
-
-ML_4 (gtk_selection_data_set, GtkSelectionData_val, Int_val, Int_val,
-      Insert((guchar*)String_option_val(arg4))
-      Option_val(arg4, string_length, -1) Ignore,
-      Unit)
-
-/* gtkcontainer.h */
-
-#define GtkContainer_val(val) check_cast(GTK_CONTAINER,val)
-ML_2 (gtk_container_set_border_width, GtkContainer_val, Int_val, Unit)
-ML_2 (gtk_container_set_resize_mode, GtkContainer_val, Resize_mode_val, Unit)
-ML_2 (gtk_container_add, GtkContainer_val, GtkWidget_val, Unit)
-ML_2 (gtk_container_remove, GtkContainer_val, GtkWidget_val, Unit)
-static void ml_gtk_simple_callback (GtkWidget *w, gpointer data)
-{
-    value val, *clos = (value*)data;
-    val = Val_GtkWidget(w);
-    callback (*clos, val);
-}
-value ml_gtk_container_foreach (value w, value clos)
-{
-    CAMLparam1(clos);
-    gtk_container_foreach (GtkContainer_val(w), ml_gtk_simple_callback,
-                          &clos);
-    CAMLreturn(Val_unit);
-}
-ML_1 (gtk_container_register_toplevel, GtkContainer_val, Unit)
-ML_1 (gtk_container_unregister_toplevel, GtkContainer_val, Unit)
-ML_2 (gtk_container_focus, GtkContainer_val, Direction_type_val, Val_bool)
-ML_2 (gtk_container_set_focus_child, GtkContainer_val, GtkWidget_val, Unit)
-ML_2 (gtk_container_set_focus_vadjustment, GtkContainer_val,
-      GtkAdjustment_val, Unit)
-ML_2 (gtk_container_set_focus_hadjustment, GtkContainer_val,
-      GtkAdjustment_val, Unit)
-
-/* gtkbin.h */
-
-/* gtkalignment.h */
-
-#define GtkAlignment_val(val) check_cast(GTK_ALIGNMENT,val)
-ML_4 (gtk_alignment_new, Float_val, Float_val, Float_val, Float_val,
-      Val_GtkWidget_sink)
-value ml_gtk_alignment_set (value x, value y,
-                          value xscale, value yscale, value val)
-{
-    GtkAlignment *alignment = GtkAlignment_val(val);
-    gtk_alignment_set (alignment,
-                      Option_val(x, Float_val, alignment->xalign),
-                      Option_val(y, Float_val, alignment->yalign),
-                      Option_val(xscale, Float_val, alignment->xscale),
-                      Option_val(yscale, Float_val, alignment->xscale));
-    return Val_unit;
-}
-
-/* gtkeventbox.h */
-
-ML_0 (gtk_event_box_new, Val_GtkWidget_sink)
-
-/* gtkframe.h */
-
-#define GtkFrame_val(val) check_cast(GTK_FRAME,val)
-ML_1 (gtk_frame_new, Optstring_val, Val_GtkWidget_sink)
-ML_2 (gtk_frame_set_label, GtkFrame_val, Optstring_val, Unit)
-ML_3 (gtk_frame_set_label_align, GtkFrame_val, Float_val, Float_val, Unit)
-ML_2 (gtk_frame_set_shadow_type, GtkFrame_val, Shadow_type_val, Unit)
-Make_Extractor (gtk_frame_get, GtkFrame_val, label_xalign, copy_double)
-Make_Extractor (gtk_frame_get, GtkFrame_val, label_yalign, copy_double)
-
-/* gtkaspectframe.h */
-
-#define GtkAspectFrame_val(val) check_cast(GTK_ASPECT_FRAME,val)
-ML_5 (gtk_aspect_frame_new, Optstring_val,
-      Float_val, Float_val, Float_val, Bool_val, Val_GtkWidget_sink)
-ML_5 (gtk_aspect_frame_set, GtkAspectFrame_val, Float_val, Float_val,
-      Float_val, Bool_val, Unit)
-Make_Extractor (gtk_aspect_frame_get, GtkAspectFrame_val, xalign, copy_double)
-Make_Extractor (gtk_aspect_frame_get, GtkAspectFrame_val, yalign, copy_double)
-Make_Extractor (gtk_aspect_frame_get, GtkAspectFrame_val, ratio, copy_double)
-Make_Extractor (gtk_aspect_frame_get, GtkAspectFrame_val, obey_child, Val_bool)
-
-/* gtkhandlebox.h */
-
-#define GtkHandleBox_val(val) check_cast(GTK_HANDLE_BOX,val)
-ML_0 (gtk_handle_box_new, Val_GtkWidget_sink)
-ML_2 (gtk_handle_box_set_shadow_type, GtkHandleBox_val, Shadow_type_val, Unit)
-ML_2 (gtk_handle_box_set_handle_position, GtkHandleBox_val, Position_val, Unit)
-ML_2 (gtk_handle_box_set_snap_edge, GtkHandleBox_val, Position_val, Unit)
-
-/* gtkinvisible.h */
-/* private class
-ML_0 (gtk_invisible_new, Val_GtkWidget_sink)
-*/
-
-/* gtkitem.h */
-
-#define GtkItem_val(val) check_cast(GTK_ITEM,val)
-ML_1 (gtk_item_select, GtkItem_val, Unit)
-ML_1 (gtk_item_deselect, GtkItem_val, Unit)
-ML_1 (gtk_item_toggle, GtkItem_val, Unit)
-
-/* gtklistitem.h */
-
-ML_0 (gtk_list_item_new, Val_GtkWidget_sink)
-ML_1 (gtk_list_item_new_with_label, String_val, Val_GtkWidget_sink)
-
-/* gtkmenuitem.h */
-
-#define GtkMenuItem_val(val) check_cast(GTK_MENU_ITEM,val)
-ML_0 (gtk_menu_item_new, Val_GtkWidget_sink)
-ML_0 (gtk_tearoff_menu_item_new, Val_GtkWidget_sink)
-ML_1 (gtk_menu_item_new_with_label, String_val, Val_GtkWidget_sink)
-ML_2 (gtk_menu_item_set_submenu, GtkMenuItem_val, GtkWidget_val, Unit)
-ML_1 (gtk_menu_item_remove_submenu, GtkMenuItem_val, Unit)
-ML_2 (gtk_menu_item_set_placement, GtkMenuItem_val,
-      Submenu_placement_val, Unit)
-ML_3 (gtk_menu_item_configure, GtkMenuItem_val, Bool_val, Bool_val, Unit)
-ML_1 (gtk_menu_item_activate, GtkMenuItem_val, Unit)
-ML_1 (gtk_menu_item_right_justify, GtkMenuItem_val, Unit)
-
-/* gtkcheckmenuitem.h */
-
-#define GtkCheckMenuItem_val(val) check_cast(GTK_CHECK_MENU_ITEM,val)
-ML_0 (gtk_check_menu_item_new, Val_GtkWidget_sink)
-ML_1 (gtk_check_menu_item_new_with_label, String_val, Val_GtkWidget_sink)
-ML_2 (gtk_check_menu_item_set_active, GtkCheckMenuItem_val, Bool_val, Unit)
-ML_2 (gtk_check_menu_item_set_show_toggle, GtkCheckMenuItem_val,
-      Bool_val, Unit)
-ML_1 (gtk_check_menu_item_toggled, GtkCheckMenuItem_val, Unit)
-Make_Extractor (gtk_check_menu_item_get, GtkCheckMenuItem_val,
-               active, Val_bool)
-
-/* gtkradiomenuitem.h */
-
-#define GtkRadioMenuItem_val(val) check_cast(GTK_RADIO_MENU_ITEM,val)
-static GSList* item_group_val(value val)
-{
-    return (val == Val_unit ? NULL :
-            gtk_radio_menu_item_group(GtkRadioMenuItem_val(Field(val,0))));
-}
-ML_1 (gtk_radio_menu_item_new, item_group_val, Val_GtkWidget_sink)
-ML_2 (gtk_radio_menu_item_new_with_label, item_group_val,
-      String_val, Val_GtkWidget_sink)
-ML_2 (gtk_radio_menu_item_set_group, GtkRadioMenuItem_val,
-      item_group_val, Unit)
-
-/* gtktreeitem.h */
-
-#define GtkTreeItem_val(val) check_cast(GTK_TREE_ITEM,val)
-ML_0 (gtk_tree_item_new, Val_GtkWidget_sink)
-ML_1 (gtk_tree_item_new_with_label, String_val, Val_GtkWidget_sink)
-ML_2 (gtk_tree_item_set_subtree, GtkTreeItem_val, GtkWidget_val, Unit)
-ML_1 (gtk_tree_item_remove_subtree, GtkTreeItem_val, Unit)
-ML_1 (gtk_tree_item_expand, GtkTreeItem_val, Unit)
-ML_1 (gtk_tree_item_collapse, GtkTreeItem_val, Unit)
-ML_1 (GTK_TREE_ITEM_SUBTREE, GtkTreeItem_val, Val_GtkWidget)
-
-/* gtkviewport.h */
-
-#define GtkViewport_val(val) check_cast(GTK_VIEWPORT,val)
-ML_2 (gtk_viewport_new, GtkAdjustment_val, GtkAdjustment_val,
-      Val_GtkWidget_sink)
-ML_1 (gtk_viewport_get_hadjustment, GtkViewport_val, Val_GtkWidget_sink)
-ML_1 (gtk_viewport_get_vadjustment, GtkViewport_val, Val_GtkWidget)
-ML_2 (gtk_viewport_set_hadjustment, GtkViewport_val, GtkAdjustment_val, Unit)
-ML_2 (gtk_viewport_set_vadjustment, GtkViewport_val, GtkAdjustment_val, Unit)
-ML_2 (gtk_viewport_set_shadow_type, GtkViewport_val, Shadow_type_val, Unit)
-
-/* gtkdialog.h */
-
-static void window_unref (GtkObject *w)
-{
-    /* If the window exists and is still not visible, then unreference twice.
-       This should be enough to destroy it. */
-    if (!GTK_OBJECT_DESTROYED(w) && !GTK_WIDGET_VISIBLE(w))
-       gtk_object_unref (w);
-    gtk_object_unref (w);
-}
-Make_Val_final_pointer_ext (GtkObject, _window, gtk_object_ref, window_unref,
-                            20)
-#define Val_GtkWidget_window(w) Val_GtkObject_window((GtkObject*)w)
-
-#define GtkDialog_val(val) check_cast(GTK_DIALOG,val)
-ML_0 (gtk_dialog_new, Val_GtkWidget_window)
-Make_Extractor (GtkDialog, GtkDialog_val, action_area, Val_GtkWidget)
-Make_Extractor (GtkDialog, GtkDialog_val, vbox, Val_GtkWidget)
-
-/* gtkinputdialog.h */
-
-ML_0 (gtk_input_dialog_new, Val_GtkWidget_window)
-
-/* gtkfileselection.h */
-
-#define GtkFileSelection_val(val) check_cast(GTK_FILE_SELECTION,val)
-ML_1 (gtk_file_selection_new, String_val, Val_GtkWidget_window)
-ML_2 (gtk_file_selection_set_filename, GtkFileSelection_val, String_val, Unit)
-ML_1 (gtk_file_selection_get_filename, GtkFileSelection_val, Val_string)
-ML_1 (gtk_file_selection_show_fileop_buttons, GtkFileSelection_val, Unit)
-ML_1 (gtk_file_selection_hide_fileop_buttons, GtkFileSelection_val, Unit)
-Make_Extractor (gtk_file_selection_get, GtkFileSelection_val, ok_button,
-               Val_GtkWidget)
-Make_Extractor (gtk_file_selection_get, GtkFileSelection_val, cancel_button,
-               Val_GtkWidget)
-Make_Extractor (gtk_file_selection_get, GtkFileSelection_val, help_button,
-               Val_GtkWidget)
-
-/* gtkwindow.h */
-
-#define GtkWindow_val(val) check_cast(GTK_WINDOW,val)
-ML_1 (gtk_window_new, Window_type_val, Val_GtkWidget_window)
-ML_2 (gtk_window_set_title, GtkWindow_val, String_val, Unit)
-ML_3 (gtk_window_set_wmclass, GtkWindow_val, String_val, String_val, Unit)
-Make_Extractor (gtk_window_get, GtkWindow_val, wmclass_name, Val_optstring)
-Make_Extractor (gtk_window_get, GtkWindow_val, wmclass_class, Val_optstring)
-ML_2 (gtk_window_set_focus, GtkWindow_val, GtkWidget_val, Unit)
-ML_2 (gtk_window_set_default, GtkWindow_val, GtkWidget_val, Unit)
-ML_4 (gtk_window_set_policy, GtkWindow_val, Bool_val, Bool_val, Bool_val, Unit)
-Make_Extractor (gtk_window_get, GtkWindow_val, allow_shrink, Val_bool)
-Make_Extractor (gtk_window_get, GtkWindow_val, allow_grow, Val_bool)
-Make_Extractor (gtk_window_get, GtkWindow_val, auto_shrink, Val_bool)
-ML_2 (gtk_window_add_accel_group, GtkWindow_val,
-      GtkAccelGroup_val, Unit)
-ML_2 (gtk_window_remove_accel_group, GtkWindow_val,
-      GtkAccelGroup_val, Unit)
-ML_1 (gtk_window_activate_focus, GtkWindow_val, Val_bool)
-ML_1 (gtk_window_activate_default, GtkWindow_val, Val_bool)
-ML_2 (gtk_window_set_modal, GtkWindow_val, Bool_val, Unit)
-ML_3 (gtk_window_set_default_size, GtkWindow_val, Int_val, Int_val, Unit)
-ML_2 (gtk_window_set_position, GtkWindow_val, Window_position_val, Unit)
-ML_2 (gtk_window_set_transient_for, GtkWindow_val, GtkWindow_val, Unit)
-
-/* gtkcolorsel.h */
-
-#define GtkColorSelection_val(val) check_cast(GTK_COLOR_SELECTION,val)
-#define GtkColorSelectionDialog_val(val) check_cast(GTK_COLOR_SELECTION_DIALOG,val)
-ML_0 (gtk_color_selection_new, Val_GtkWidget_sink)
-ML_2 (gtk_color_selection_set_update_policy, GtkColorSelection_val,
-      Update_type_val, Unit)
-ML_2 (gtk_color_selection_set_opacity, GtkColorSelection_val,
-      Bool_val, Unit)
-value ml_gtk_color_selection_set_color (value w, value red, value green,
-                                       value blue, value opacity)
-{
-    double color[4];
-    color[0] = Double_val(red);
-    color[1] = Double_val(green);
-    color[2] = Double_val(blue);
-    color[3] = Option_val(opacity,Double_val,0.0);
-    gtk_color_selection_set_color (GtkColorSelection_val(w), color);
-    return Val_unit;
-}
-value ml_gtk_color_selection_get_color (value w)
-{
-    value ret;
-    double color[4];
-    color[3] = 0.0;
-    gtk_color_selection_get_color (GtkColorSelection_val(w), color);
-    ret = alloc (4*Double_wosize, Double_array_tag);
-    Store_double_field (ret, 0, color[0]);
-    Store_double_field (ret, 1, color[1]);
-    Store_double_field (ret, 2, color[2]);
-    Store_double_field (ret, 3, color[3]);
-    return ret;
-}
-ML_1 (gtk_color_selection_dialog_new, String_val, Val_GtkWidget_window)
-Make_Extractor (gtk_color_selection_dialog, GtkColorSelectionDialog_val, ok_button, Val_GtkWidget)
-Make_Extractor (gtk_color_selection_dialog, GtkColorSelectionDialog_val, cancel_button, Val_GtkWidget)
-Make_Extractor (gtk_color_selection_dialog, GtkColorSelectionDialog_val, help_button, Val_GtkWidget)
-Make_Extractor (gtk_color_selection_dialog, GtkColorSelectionDialog_val, colorsel, Val_GtkWidget)
-
-/* gtkfontsel.h */
-
-#define GtkFontSelection_val(val) \
-   check_cast(GTK_FONT_SELECTION,val)
-ML_0 (gtk_font_selection_new, Val_GtkWidget_sink)
-ML_1 (gtk_font_selection_get_font, GtkFontSelection_val,
-      Val_GdkFont)
-ML_1 (gtk_font_selection_get_font_name, GtkFontSelection_val,
-      copy_string_check)
-ML_2 (gtk_font_selection_set_font_name, GtkFontSelection_val,
-      String_val, Val_bool)
-ML_9 (gtk_font_selection_set_filter, GtkFontSelection_val,
-      Font_filter_type_val, Flags_Font_type_val,
-      (gchar**), (gchar**), (gchar**),
-      (gchar**), (gchar**), (gchar**), Unit)
-ML_bc9 (ml_gtk_font_selection_set_filter)
-ML_1 (gtk_font_selection_get_preview_text, GtkFontSelection_val,
-      copy_string)
-ML_2 (gtk_font_selection_set_preview_text, GtkFontSelection_val,
-      String_val, Unit)
-
-#define GtkFontSelectionDialog_val(val) \
-   check_cast(GTK_FONT_SELECTION_DIALOG,val)
-ML_1 (gtk_font_selection_dialog_new, String_option_val, Val_GtkWidget_window)
-/*
-ML_1 (gtk_font_selection_dialog_get_font, GtkFontSelectionDialog_val,
-      Val_GdkFont)
-ML_1 (gtk_font_selection_dialog_get_font_name, GtkFontSelectionDialog_val,
-      copy_string_check)
-ML_2 (gtk_font_selection_dialog_set_font_name, GtkFontSelectionDialog_val,
-      String_val, Val_bool)
-ML_9 (gtk_font_selection_dialog_set_filter, GtkFontSelectionDialog_val,
-      Font_filter_type_val, Flags_Font_type_val,
-      (gchar**), (gchar**), (gchar**),
-      (gchar**), (gchar**), (gchar**), Unit)
-ML_bc9 (ml_gtk_font_selection_dialog_set_filter)
-ML_1 (gtk_font_selection_dialog_get_preview_text, GtkFontSelectionDialog_val,
-      copy_string)
-ML_2 (gtk_font_selection_dialog_set_preview_text, GtkFontSelectionDialog_val,
-      String_val, Unit)
-*/
-Make_Extractor (gtk_font_selection_dialog, GtkFontSelectionDialog_val,
-                fontsel, Val_GtkWidget)
-Make_Extractor (gtk_font_selection_dialog, GtkFontSelectionDialog_val,
-               ok_button, Val_GtkWidget)
-Make_Extractor (gtk_font_selection_dialog, GtkFontSelectionDialog_val,
-               apply_button, Val_GtkWidget)
-Make_Extractor (gtk_font_selection_dialog, GtkFontSelectionDialog_val,
-               cancel_button, Val_GtkWidget)
-
-/* gtkplug.h */
-
-ML_1 (gtk_plug_new, XID_val, Val_GtkWidget_window)
-
-/* gtkbox.h */
-
-#define GtkBox_val(val) check_cast(GTK_BOX,val)
-ML_5 (gtk_box_pack_start, GtkBox_val, GtkWidget_val, Bool_val, Bool_val,
-      Int_val, Unit)
-ML_5 (gtk_box_pack_end, GtkBox_val, GtkWidget_val, Bool_val, Bool_val,
-      Int_val, Unit)
-ML_2 (gtk_box_set_homogeneous, GtkBox_val, Bool_val, Unit)
-ML_2 (gtk_box_set_spacing, GtkBox_val, Int_val, Unit)
-ML_3 (gtk_box_reorder_child, GtkBox_val, GtkWidget_val, Int_val, Unit)
-value ml_gtk_box_query_child_packing (value box, value child)
-{
-    int expand, fill;
-    unsigned int padding;
-    GtkPackType pack_type;
-    value ret;
-    gtk_box_query_child_packing (GtkBox_val(box), GtkWidget_val(child),
-                                &expand, &fill, &padding, &pack_type);
-    ret = alloc_small(4,0);
-    Field(ret,0) = Val_bool(expand);
-    Field(ret,1) = Val_bool(fill);
-    Field(ret,2) = Val_int(padding);
-    Field(ret,3) = Val_pack_type(pack_type);
-    return ret;
-}
-value ml_gtk_box_set_child_packing (value vbox, value vchild, value vexpand,
-                                   value vfill, value vpadding, value vpack)
-{
-    GtkBox *box = GtkBox_val(vbox);
-    GtkWidget *child = GtkWidget_val(vchild);
-    int expand, fill;
-    unsigned int padding;
-    GtkPackType pack;
-    gtk_box_query_child_packing (box, child, &expand, &fill, &padding, &pack);
-    gtk_box_set_child_packing (box, child,
-                              Option_val(vexpand, Bool_val, expand),
-                              Option_val(vfill, Bool_val, fill),
-                              Option_val(vpadding, Int_val, padding),
-                              Option_val(vpack, Pack_type_val, pack));
-    return Val_unit;
-}
-ML_bc6 (ml_gtk_box_set_child_packing)
-
-ML_2 (gtk_hbox_new, Bool_val, Int_val, Val_GtkWidget_sink)
-ML_2 (gtk_vbox_new, Bool_val, Int_val, Val_GtkWidget_sink)
-
-/* gtkbbox.h */
-    
-#define GtkButtonBox_val(val) check_cast(GTK_BUTTON_BOX,val)
-Make_Extractor (gtk_button_box_get, GtkButtonBox_val, spacing, Val_int)
-Make_Extractor (gtk_button_box_get, GtkButtonBox_val, child_min_width, Val_int)
-Make_Extractor (gtk_button_box_get, GtkButtonBox_val, child_min_height,
-               Val_int)
-Make_Extractor (gtk_button_box_get, GtkButtonBox_val, child_ipad_x, Val_int)
-Make_Extractor (gtk_button_box_get, GtkButtonBox_val, child_ipad_y, Val_int)
-Make_Extractor (gtk_button_box_get, GtkButtonBox_val, layout_style,
-               Val_button_box_style)
-ML_2 (gtk_button_box_set_spacing, GtkButtonBox_val, Int_val, Unit)
-ML_3 (gtk_button_box_set_child_size, GtkButtonBox_val,
-      Int_val, Int_val, Unit)
-ML_3 (gtk_button_box_set_child_ipadding, GtkButtonBox_val,
-      Int_val, Int_val, Unit)
-ML_2 (gtk_button_box_set_layout, GtkButtonBox_val, Button_box_style_val, Unit)
-ML_2 (gtk_button_box_set_child_size_default, Int_val, Int_val, Unit)
-ML_2 (gtk_button_box_set_child_ipadding_default, Int_val, Int_val, Unit)
-
-ML_0 (gtk_hbutton_box_new, Val_GtkWidget_sink)
-ML_0 (gtk_vbutton_box_new, Val_GtkWidget_sink)
-
-/* gtklist.h */
-
-#define GtkList_val(val) check_cast(GTK_LIST,val)
-ML_0 (gtk_list_new, Val_GtkWidget_sink)
-value ml_gtk_list_insert_item (value list, value item, value pos)
-{
-    GList *tmp_list = g_list_alloc ();
-    tmp_list->data = GtkWidget_val(item);
-    tmp_list->next = NULL;
-    tmp_list->prev = NULL;
-    gtk_list_insert_items (GtkList_val(list), tmp_list, Int_val(pos));
-    return Val_unit;
-}
-ML_3 (gtk_list_clear_items, GtkList_val, Int_val, Int_val, Unit)
-ML_2 (gtk_list_select_item, GtkList_val, Int_val, Unit)
-ML_2 (gtk_list_unselect_item, GtkList_val, Int_val, Unit)
-ML_2 (gtk_list_select_child, GtkList_val, GtkWidget_val, Unit)
-ML_2 (gtk_list_unselect_child, GtkList_val, GtkWidget_val, Unit)
-ML_2 (gtk_list_child_position, GtkList_val, GtkWidget_val, Val_int)
-ML_2 (gtk_list_set_selection_mode, GtkList_val, Selection_mode_val, Unit)
-
-/* gtkcombo.h */
-
-#define GtkCombo_val(val) check_cast(GTK_COMBO,val)
-ML_0 (gtk_combo_new, Val_GtkWidget_sink)
-ML_3 (gtk_combo_set_value_in_list, GtkCombo_val,
-      Option_val(arg2, Bool_val, GtkCombo_val(arg1)->value_in_list) Ignore,
-      Option_val(arg3, Bool_val, GtkCombo_val(arg1)->ok_if_empty) Ignore,
-      Unit)
-ML_2 (gtk_combo_set_use_arrows, GtkCombo_val, Bool_val, Unit)
-ML_2 (gtk_combo_set_use_arrows_always, GtkCombo_val, Bool_val, Unit)
-ML_2 (gtk_combo_set_case_sensitive, GtkCombo_val, Bool_val, Unit)
-ML_3 (gtk_combo_set_item_string, GtkCombo_val, GtkItem_val, String_val, Unit)
-ML_1 (gtk_combo_disable_activate, GtkCombo_val, Unit)
-Make_Extractor (gtk_combo, GtkCombo_val, entry, Val_GtkWidget)
-Make_Extractor (gtk_combo, GtkCombo_val, list, Val_GtkWidget)
-
-/* gtkstatusbar.h */
-
-#define GtkStatusbar_val(val) check_cast(GTK_STATUSBAR,val)
-ML_0 (gtk_statusbar_new, Val_GtkWidget_sink)
-ML_2 (gtk_statusbar_get_context_id, GtkStatusbar_val, String_val, Val_int)
-ML_3 (gtk_statusbar_push, GtkStatusbar_val, Int_val, String_val, Val_int)
-ML_2 (gtk_statusbar_pop, GtkStatusbar_val, Int_val, Unit)
-ML_3 (gtk_statusbar_remove, GtkStatusbar_val, Int_val, Int_val, Unit)
-
-/* gtkgamma.h */
-
-#define GtkGammaCurve_val(val) check_cast(GTK_GAMMA_CURVE,val)
-ML_0 (gtk_gamma_curve_new, Val_GtkWidget_sink)
-Make_Extractor (gtk_gamma_curve_get, GtkGammaCurve_val, gamma, copy_double)
-
-/* gtkbutton.h */
-
-#define GtkButton_val(val) check_cast(GTK_BUTTON,val)
-ML_0 (gtk_button_new, Val_GtkWidget_sink)
-ML_1 (gtk_button_new_with_label, String_val, Val_GtkWidget_sink)
-ML_1 (gtk_button_pressed, GtkButton_val, Unit)
-ML_1 (gtk_button_released, GtkButton_val, Unit)
-ML_1 (gtk_button_clicked, GtkButton_val, Unit)
-ML_1 (gtk_button_enter, GtkButton_val, Unit)
-ML_1 (gtk_button_leave, GtkButton_val, Unit)
-
-/* gtkoptionmenu.h */
-
-#define GtkOptionMenu_val(val) check_cast(GTK_OPTION_MENU,val)
-ML_0 (gtk_option_menu_new, Val_GtkWidget_sink)
-ML_1 (gtk_option_menu_get_menu, GtkOptionMenu_val, Val_GtkWidget_sink)
-ML_2 (gtk_option_menu_set_menu, GtkOptionMenu_val, GtkWidget_val, Unit)
-ML_1 (gtk_option_menu_remove_menu, GtkOptionMenu_val, Unit)
-ML_2 (gtk_option_menu_set_history, GtkOptionMenu_val, Int_val, Unit)
-
-/* gtktogglebutton.h */
-
-#define GtkToggleButton_val(val) check_cast(GTK_TOGGLE_BUTTON,val)
-ML_0 (gtk_toggle_button_new, Val_GtkWidget_sink)
-ML_1 (gtk_toggle_button_new_with_label, String_val, Val_GtkWidget_sink)
-ML_2 (gtk_toggle_button_set_mode, GtkToggleButton_val, Bool_val, Unit)
-ML_2 (gtk_toggle_button_set_active, GtkToggleButton_val, Bool_val, Unit)
-ML_1 (gtk_toggle_button_toggled, GtkToggleButton_val, Unit)
-Make_Extractor (gtk_toggle_button_get, GtkToggleButton_val, active, Val_bool)
-
-/* gtkcheckbutton.h */
-
-#define GtkCheckButton_val(val) check_cast(GTK_CHECK_BUTTON,val)
-ML_0 (gtk_check_button_new, Val_GtkWidget_sink)
-ML_1 (gtk_check_button_new_with_label, String_val, Val_GtkWidget_sink)
-
-/* gtkradiobutton.h */
-
-#define GtkRadioButton_val(val) check_cast(GTK_RADIO_BUTTON,val)
-static GSList* button_group_val(value val)
-{
-    return (val == Val_unit ? NULL :
-            gtk_radio_button_group(GtkRadioButton_val(Field(val,0))));
-}
-ML_1 (gtk_radio_button_new, button_group_val,
-      Val_GtkWidget_sink)
-ML_2 (gtk_radio_button_new_with_label, button_group_val,
-      String_val, Val_GtkWidget_sink)
-ML_2 (gtk_radio_button_set_group, GtkRadioButton_val, button_group_val, Unit)
-
-/* gtkclist.h */
-
-#define GtkCList_val(val) check_cast(GTK_CLIST,val)
-ML_1 (gtk_clist_new, Int_val, Val_GtkWidget_sink)
-ML_1 (gtk_clist_new_with_titles, Insert(Wosize_val(arg1)) (char **),
-      Val_GtkWidget_sink)
-Make_Extractor (gtk_clist_get, GtkCList_val, rows, Val_int)
-Make_Extractor (gtk_clist_get, GtkCList_val, columns, Val_int)
-Make_Extractor (gtk_clist_get, GtkCList_val, focus_row, Val_int)
-ML_2 (gtk_clist_set_hadjustment, GtkCList_val, GtkAdjustment_val, Unit)
-ML_2 (gtk_clist_set_vadjustment, GtkCList_val, GtkAdjustment_val, Unit)
-ML_1 (gtk_clist_get_hadjustment, GtkCList_val, Val_GtkAny)
-ML_1 (gtk_clist_get_vadjustment, GtkCList_val, Val_GtkAny)
-ML_2 (gtk_clist_set_shadow_type, GtkCList_val, Shadow_type_val, Unit)
-ML_2 (gtk_clist_set_selection_mode, GtkCList_val, Selection_mode_val, Unit)
-ML_2 (gtk_clist_set_reorderable, GtkCList_val, Bool_val, Unit)
-ML_2 (gtk_clist_set_use_drag_icons, GtkCList_val, Bool_val, Unit)
-ML_3 (gtk_clist_set_button_actions, GtkCList_val, Int_val,
-      (guint8)Flags_Button_action_val, Unit)
-ML_1 (gtk_clist_freeze, GtkCList_val, Unit)
-ML_1 (gtk_clist_thaw, GtkCList_val, Unit)
-ML_1 (gtk_clist_column_titles_show, GtkCList_val, Unit)
-ML_1 (gtk_clist_column_titles_hide, GtkCList_val, Unit)
-ML_2 (gtk_clist_column_title_active, GtkCList_val, Int_val, Unit)
-ML_2 (gtk_clist_column_title_passive, GtkCList_val, Int_val, Unit)
-ML_1 (gtk_clist_column_titles_active, GtkCList_val, Unit)
-ML_1 (gtk_clist_column_titles_passive, GtkCList_val, Unit)
-ML_3 (gtk_clist_set_column_title, GtkCList_val, Int_val, String_val, Unit)
-ML_2 (gtk_clist_get_column_title, GtkCList_val, Int_val, Val_string)
-ML_3 (gtk_clist_set_column_widget, GtkCList_val, Int_val, GtkWidget_val, Unit)
-ML_2 (gtk_clist_get_column_widget, GtkCList_val, Int_val, Val_GtkWidget)
-ML_3 (gtk_clist_set_column_justification, GtkCList_val, Int_val,
-      Justification_val, Unit)
-ML_3 (gtk_clist_set_column_visibility, GtkCList_val, Int_val, Bool_val, Unit)
-ML_3 (gtk_clist_set_column_resizeable, GtkCList_val, Int_val, Bool_val, Unit)
-ML_3 (gtk_clist_set_column_auto_resize, GtkCList_val, Int_val, Bool_val, Unit)
-ML_1 (gtk_clist_columns_autosize, GtkCList_val, Unit)
-ML_2 (gtk_clist_optimal_column_width, GtkCList_val, Int_val, Val_int)
-ML_3 (gtk_clist_set_column_width, GtkCList_val, Int_val, Int_val, Unit)
-ML_3 (gtk_clist_set_column_min_width, GtkCList_val, Int_val, Int_val, Unit)
-ML_3 (gtk_clist_set_column_max_width, GtkCList_val, Int_val, Int_val, Unit)
-ML_2 (gtk_clist_set_row_height, GtkCList_val, Int_val, Unit)
-ML_5 (gtk_clist_moveto, GtkCList_val, Int_val, Int_val,
-      Double_val, Double_val, Unit)
-ML_2 (gtk_clist_row_is_visible, GtkCList_val, Int_val, Val_visibility)
-ML_3 (gtk_clist_get_cell_type, GtkCList_val, Int_val, Int_val, Val_cell_type)
-ML_4 (gtk_clist_set_text, GtkCList_val, Int_val, Int_val, Optstring_val, Unit)
-value ml_gtk_clist_get_text (value clist, value row, value column)
-{
-    char *text;
-    if (!gtk_clist_get_text (GtkCList_val(clist), Int_val(row),
-                            Int_val(column), &text))
-       invalid_argument ("Gtk.Clist.get_text");
-    return Val_optstring(text);
-}
-ML_5 (gtk_clist_set_pixmap, GtkCList_val, Int_val, Int_val, GdkPixmap_val,
-      GdkBitmap_val, Unit)
-value ml_gtk_clist_get_pixmap (value clist, value row, value column)
-{
-    CAMLparam0 ();
-    GdkPixmap *pixmap;
-    GdkBitmap *bitmap;
-    CAMLlocal2 (vpixmap,vbitmap);
-    value ret;
-
-    if (!gtk_clist_get_pixmap (GtkCList_val(clist), Int_val(row),
-                              Int_val(column), &pixmap, &bitmap))
-       invalid_argument ("Gtk.Clist.get_pixmap");
-    vpixmap = Val_option (pixmap, Val_GdkPixmap);
-    vbitmap = Val_option (bitmap, Val_GdkBitmap);
-
-    ret = alloc_small (2,0);
-    Field(ret,0) = vpixmap;
-    Field(ret,1) = vbitmap;
-    CAMLreturn(ret);
-}
-ML_7 (gtk_clist_set_pixtext, GtkCList_val, Int_val, Int_val, String_val,
-      (guint8)Long_val, GdkPixmap_val, GdkBitmap_val, Unit)
-ML_bc7 (ml_gtk_clist_set_pixtext)
-ML_3 (gtk_clist_set_foreground, GtkCList_val, Int_val, GdkColor_val, Unit)
-ML_3 (gtk_clist_set_background, GtkCList_val, Int_val, GdkColor_val, Unit)
-ML_3 (gtk_clist_get_cell_style, GtkCList_val, Int_val, Int_val, Val_GtkStyle)
-ML_4 (gtk_clist_set_cell_style, GtkCList_val, Int_val, Int_val, GtkStyle_val,
-      Unit)
-ML_2 (gtk_clist_get_row_style, GtkCList_val, Int_val, Val_GtkStyle)
-ML_3 (gtk_clist_set_row_style, GtkCList_val, Int_val, GtkStyle_val, Unit)
-ML_3 (gtk_clist_set_selectable, GtkCList_val, Int_val, Bool_val, Unit)
-ML_2 (gtk_clist_get_selectable, GtkCList_val, Int_val, Val_bool)
-ML_5 (gtk_clist_set_shift, GtkCList_val, Int_val, Int_val, Int_val, Int_val,
-      Unit)
-/* ML_2 (gtk_clist_append, GtkCList_val, (char **), Val_int) */
-ML_3 (gtk_clist_insert, GtkCList_val, Int_val, (char **), Val_int)
-ML_2 (gtk_clist_remove, GtkCList_val, Int_val, Unit)
-value ml_gtk_clist_set_row_data (value w, value row, value data)
-{
-     value *data_p = ml_gtk_root_new (data);
-     gtk_clist_set_row_data_full (GtkCList_val(w), Int_val(row),
-                                 data_p, ml_gtk_root_destroy);
-     return Val_unit;
-}
-ML_2 (gtk_clist_get_row_data, GtkCList_val, Int_val, *(value*)Check_null)
-ML_3 (gtk_clist_select_row, GtkCList_val, Int_val, Int_val, Unit)
-ML_3 (gtk_clist_unselect_row, GtkCList_val, Int_val, Int_val, Unit)
-ML_1 (gtk_clist_clear, GtkCList_val, Unit)
-value ml_gtk_clist_get_selection_info (value clist, value x, value y)
-{
-    int row, column;
-    value ret;
-    if (!gtk_clist_get_selection_info (GtkCList_val(clist), Int_val(x),
-                            Int_val(y), &row, &column))
-       invalid_argument ("Gtk.Clist.get_selection_info");
-    ret = alloc_small (2,0);
-    Field(ret,0) = row;
-    Field(ret,1) = column;
-    return ret;
-}
-ML_1 (gtk_clist_select_all, GtkCList_val, Unit)
-ML_1 (gtk_clist_unselect_all, GtkCList_val, Unit)
-ML_3 (gtk_clist_swap_rows, GtkCList_val, Int_val, Int_val, Unit)
-ML_3 (gtk_clist_row_move, GtkCList_val, Int_val, Int_val, Unit)
-ML_2 (gtk_clist_set_sort_column, GtkCList_val, Int_val, Unit)
-ML_2 (gtk_clist_set_sort_type, GtkCList_val, Sort_type_val, Unit)
-ML_1 (gtk_clist_sort, GtkCList_val, Unit)
-ML_2 (gtk_clist_set_auto_sort, GtkCList_val, Bool_val, Unit)
-
-/* gtkctree.h */
-#define GtkCTree_val(val) check_cast(GTK_CTREE,val)
-/* Beware: this definition axpects arg1 to be a GtkCTree */
-/*
-#define GtkCTreeNode_val(val) \
-     (gtk_ctree_find(GtkCTree_val(arg1),NULL,(GtkCTreeNode*)(val-1)) \
-     ? (GtkCTreeNode*)(val-1) : (ml_raise_gtk ("Bad GtkCTreeNode"), NULL))
-#define Val_GtkCTreeNode Val_addr
-ML_2 (gtk_ctree_new, Int_val, Int_val, Val_GtkWidget_sink)
-ML_3 (gtk_ctree_new_with_titles, Int_val, Int_val, (char **),
-      Val_GtkWidget_sink)
-ML_11 (gtk_ctree_insert_node, GtkCTree_val, GtkCTreeNode_val,
-       GtkCTreeNode_val, (char**), Int_val, GdkPixmap_val, GdkBitmap_val,
-       GdkPixmap_val, GdkBitmap_val, Bool_val, Bool_val,
-       Val_GtkCTreeNode)
-ML_2 (gtk_ctree_remove_node, GtkCTree_val, GtkCTreeNode_val, Unit)
-ML_2 (gtk_ctree_is_viewable, GtkCTree_val, GtkCTreeNode_val, Val_bool)
-*/
-
-/* gtkfixed.h */
-
-#define GtkFixed_val(val) check_cast(GTK_FIXED,val)
-ML_0 (gtk_fixed_new, Val_GtkWidget_sink)
-ML_4 (gtk_fixed_put, GtkFixed_val, GtkWidget_val, (gint16)Long_val, (gint16)Long_val, Unit)
-ML_4 (gtk_fixed_move, GtkFixed_val, GtkWidget_val, (gint16)Long_val, (gint16)Long_val, Unit)
-
-/* gtklayout.h */
-
-#define GtkLayout_val(val) check_cast(GTK_LAYOUT,val)
-ML_2 (gtk_layout_new, GtkAdjustment_val, GtkAdjustment_val, Val_GtkWidget_sink)
-ML_4 (gtk_layout_put, GtkLayout_val, GtkWidget_val, Int_val, Int_val, Unit)
-ML_4 (gtk_layout_move, GtkLayout_val, GtkWidget_val, Int_val, Int_val, Unit)
-ML_3 (gtk_layout_set_size, GtkLayout_val, Int_val, Int_val, Unit)
-ML_1 (gtk_layout_get_hadjustment, GtkLayout_val, Val_GtkAny)
-ML_1 (gtk_layout_get_vadjustment, GtkLayout_val, Val_GtkAny)
-ML_2 (gtk_layout_set_hadjustment, GtkLayout_val, GtkAdjustment_val, Unit)
-ML_2 (gtk_layout_set_vadjustment, GtkLayout_val, GtkAdjustment_val, Unit)
-ML_1 (gtk_layout_freeze, GtkLayout_val, Unit)
-ML_1 (gtk_layout_thaw, GtkLayout_val, Unit)
-Make_Extractor (gtk_layout_get, GtkLayout_val, width, Val_int)
-Make_Extractor (gtk_layout_get, GtkLayout_val, height, Val_int)
-
-/* gtkmenushell.h */
-
-#define GtkMenuShell_val(val) check_cast(GTK_MENU_SHELL,val)
-ML_2 (gtk_menu_shell_append, GtkMenuShell_val, GtkWidget_val, Unit)
-ML_2 (gtk_menu_shell_prepend, GtkMenuShell_val, GtkWidget_val, Unit)
-ML_3 (gtk_menu_shell_insert, GtkMenuShell_val, GtkWidget_val, Int_val, Unit)
-ML_1 (gtk_menu_shell_deactivate, GtkMenuShell_val, Unit)
-
-/* gtkmenu.h */
-
-#define GtkMenu_val(val) check_cast(GTK_MENU,val)
-ML_0 (gtk_menu_new, Val_GtkWidget_sink)
-ML_5 (gtk_menu_popup, GtkMenu_val, GtkWidget_val, GtkWidget_val,
-      Insert(NULL) Insert(NULL) Int_val, Int_val, Unit)
-ML_1 (gtk_menu_popdown, GtkMenu_val, Unit)
-ML_1 (gtk_menu_get_active, GtkMenu_val, Val_GtkWidget)
-ML_2 (gtk_menu_set_active, GtkMenu_val, Int_val, Unit)
-ML_2 (gtk_menu_set_accel_group, GtkMenu_val, GtkAccelGroup_val, Unit)
-ML_1 (gtk_menu_get_accel_group, GtkMenu_val, Val_GtkAccelGroup)
-ML_1 (gtk_menu_ensure_uline_accel_group, GtkMenu_val, Val_GtkAccelGroup)
-value ml_gtk_menu_attach_to_widget (value menu, value widget)
-{
-    gtk_menu_attach_to_widget (GtkMenu_val(menu), GtkWidget_val(widget), NULL);
-    return Val_unit;
-}
-ML_1 (gtk_menu_get_attach_widget, GtkMenu_val, Val_GtkWidget)
-ML_1 (gtk_menu_detach, GtkMenu_val, Unit)
-
-/* gtkmenubar.h */
-
-#define GtkMenuBar_val(val) check_cast(GTK_MENU_BAR,val)
-ML_0 (gtk_menu_bar_new, Val_GtkWidget_sink)
-
-/* gtknotebook.h */
-
-#define GtkNotebook_val(val) check_cast(GTK_NOTEBOOK,val)
-ML_0 (gtk_notebook_new, Val_GtkWidget_sink)
-
-ML_5 (gtk_notebook_insert_page_menu, GtkNotebook_val, GtkWidget_val,
-      GtkWidget_val, GtkWidget_val, Int_val, Unit)
-ML_2 (gtk_notebook_remove_page, GtkNotebook_val, Int_val, Unit)
-
-ML_2 (gtk_notebook_set_tab_pos, GtkNotebook_val, Position_val, Unit)
-ML_2 (gtk_notebook_set_homogeneous_tabs, GtkNotebook_val, Bool_val, Unit)
-ML_2 (gtk_notebook_set_show_tabs, GtkNotebook_val, Bool_val, Unit)
-ML_2 (gtk_notebook_set_show_border, GtkNotebook_val, Bool_val, Unit)
-ML_2 (gtk_notebook_set_scrollable, GtkNotebook_val, Bool_val, Unit)
-ML_2 (gtk_notebook_set_tab_border, GtkNotebook_val, Int_val, Unit)
-ML_1 (gtk_notebook_popup_enable, GtkNotebook_val, Unit)
-ML_1 (gtk_notebook_popup_disable, GtkNotebook_val, Unit)
-
-ML_1 (gtk_notebook_get_current_page, GtkNotebook_val, Val_int)
-ML_2 (gtk_notebook_set_page, GtkNotebook_val, Int_val, Unit)
-ML_2 (gtk_notebook_get_nth_page, GtkNotebook_val, Int_val, Val_GtkWidget)
-ML_2 (gtk_notebook_page_num, GtkNotebook_val, GtkWidget_val, Val_int)
-ML_1 (gtk_notebook_next_page, GtkNotebook_val, Unit)
-ML_1 (gtk_notebook_prev_page, GtkNotebook_val, Unit)
-
-ML_2 (gtk_notebook_get_tab_label, GtkNotebook_val, GtkWidget_val,
-      Val_GtkWidget)
-ML_3 (gtk_notebook_set_tab_label, GtkNotebook_val, GtkWidget_val,
-      GtkWidget_val, Unit)
-ML_2 (gtk_notebook_get_menu_label, GtkNotebook_val, GtkWidget_val,
-      Val_GtkWidget)
-ML_3 (gtk_notebook_set_menu_label, GtkNotebook_val, GtkWidget_val,
-      GtkWidget_val, Unit)
-ML_3 (gtk_notebook_reorder_child, GtkNotebook_val, GtkWidget_val,
-      Int_val, Unit)
-
-
-/* gtkpacker.h */
-
-Make_OptFlags_val(Packer_options_val)
-
-#define GtkPacker_val(val) check_cast(GTK_PACKER,val)
-ML_0 (gtk_packer_new, Val_GtkWidget_sink)
-ML_10 (gtk_packer_add, GtkPacker_val, GtkWidget_val,
-       Option_val(arg3,Side_type_val,GTK_SIDE_TOP) Ignore,
-       Option_val(arg4,Anchor_type_val,GTK_ANCHOR_CENTER) Ignore,
-       OptFlags_Packer_options_val,
-       Option_val(arg6,Int_val,GtkPacker_val(arg1)->default_border_width) Ignore,
-       Option_val(arg7,Int_val,GtkPacker_val(arg1)->default_pad_x) Ignore,
-       Option_val(arg8,Int_val,GtkPacker_val(arg1)->default_pad_y) Ignore,
-       Option_val(arg9,Int_val,GtkPacker_val(arg1)->default_i_pad_x) Ignore,
-       Option_val(arg10,Int_val,GtkPacker_val(arg1)->default_i_pad_y) Ignore,
-       Unit)
-ML_bc10 (ml_gtk_packer_add)
-ML_5 (gtk_packer_add_defaults, GtkPacker_val, GtkWidget_val,
-       Option_val(arg3,Side_type_val,GTK_SIDE_TOP) Ignore,
-       Option_val(arg4,Anchor_type_val,GTK_ANCHOR_CENTER) Ignore,
-       OptFlags_Packer_options_val, Unit)
-ML_10 (gtk_packer_set_child_packing, GtkPacker_val, GtkWidget_val,
-       Option_val(arg3,Side_type_val,GTK_SIDE_TOP) Ignore,
-       Option_val(arg4,Anchor_type_val,GTK_ANCHOR_CENTER) Ignore,
-       OptFlags_Packer_options_val,
-       Option_val(arg6,Int_val,GtkPacker_val(arg1)->default_border_width) Ignore,
-       Option_val(arg7,Int_val,GtkPacker_val(arg1)->default_pad_x) Ignore,
-       Option_val(arg8,Int_val,GtkPacker_val(arg1)->default_pad_y) Ignore,
-       Option_val(arg9,Int_val,GtkPacker_val(arg1)->default_i_pad_x) Ignore,
-       Option_val(arg10,Int_val,GtkPacker_val(arg1)->default_i_pad_y) Ignore,
-       Unit)
-ML_bc10 (ml_gtk_packer_set_child_packing)
-ML_3 (gtk_packer_reorder_child, GtkPacker_val, GtkWidget_val,
-      Int_val, Unit)
-ML_2 (gtk_packer_set_spacing, GtkPacker_val, Int_val, Unit)
-value ml_gtk_packer_set_defaults (value w, value border_width,
-                                 value pad_x, value pad_y,
-                                 value i_pad_x, value i_pad_y)
-{
-    GtkPacker *p = GtkPacker_val(w);
-    if (Is_block(border_width))
-       gtk_packer_set_default_border_width (p,Int_val(Field(border_width,0)));
-    if (Is_block(pad_x) || Is_block(pad_y))
-       gtk_packer_set_default_pad
-           (p, Option_val(pad_x,Int_val,p->default_pad_x),
-               Option_val(pad_y,Int_val,p->default_pad_y));
-    if (Is_block(i_pad_x) || Is_block(i_pad_y))
-       gtk_packer_set_default_ipad
-           (p, Option_val(pad_x,Int_val,p->default_i_pad_x),
-               Option_val(pad_y,Int_val,p->default_i_pad_y));
-    return Val_unit;
-}
-ML_bc6 (ml_gtk_packer_set_defaults)
-
-/* gtkpaned.h */
-
-#define GtkPaned_val(val) check_cast(GTK_PANED,val)
-ML_0 (gtk_hpaned_new, Val_GtkWidget_sink)
-ML_0 (gtk_vpaned_new, Val_GtkWidget_sink)
-ML_2 (gtk_paned_add1, GtkPaned_val, GtkWidget_val, Unit)
-ML_2 (gtk_paned_add2, GtkPaned_val, GtkWidget_val, Unit)
-ML_2 (gtk_paned_set_handle_size, GtkPaned_val, (gint16)Int_val, Unit)
-ML_2 (gtk_paned_set_gutter_size, GtkPaned_val, (gint16)Int_val, Unit)
-Make_Extractor (gtk_paned, GtkPaned_val, child1, Val_GtkWidget)
-Make_Extractor (gtk_paned, GtkPaned_val, child2, Val_GtkWidget)
-Make_Extractor (gtk_paned, GtkPaned_val, handle_size, Val_int)
-Make_Extractor (gtk_paned, GtkPaned_val, gutter_size, Val_int)
-
-/* gtkscrolledwindow.h */
-
-#define GtkScrolledWindow_val(val) check_cast(GTK_SCROLLED_WINDOW,val)
-ML_2 (gtk_scrolled_window_new, GtkAdjustment_val ,GtkAdjustment_val,
-      Val_GtkWidget_sink)
-ML_2 (gtk_scrolled_window_set_hadjustment, GtkScrolledWindow_val ,
-      GtkAdjustment_val, Unit)
-ML_2 (gtk_scrolled_window_set_vadjustment, GtkScrolledWindow_val ,
-      GtkAdjustment_val, Unit)
-ML_1 (gtk_scrolled_window_get_hadjustment, GtkScrolledWindow_val,
-      Val_GtkWidget)
-ML_1 (gtk_scrolled_window_get_vadjustment, GtkScrolledWindow_val,
-      Val_GtkWidget)
-ML_3 (gtk_scrolled_window_set_policy, GtkScrolledWindow_val,
-      Policy_type_val, Policy_type_val, Unit)
-Make_Extractor (gtk_scrolled_window_get, GtkScrolledWindow_val,
-               hscrollbar_policy, Val_policy_type)
-Make_Extractor (gtk_scrolled_window_get, GtkScrolledWindow_val,
-               vscrollbar_policy, Val_policy_type)
-ML_2 (gtk_scrolled_window_set_placement, GtkScrolledWindow_val,
-      Corner_type_val, Unit)
-ML_2 (gtk_scrolled_window_add_with_viewport, GtkScrolledWindow_val,
-      GtkWidget_val, Unit)
-
-/* gtksocket.h */
-
-#define GtkSocket_val(val) check_cast(GTK_SOCKET,val)
-ML_0 (gtk_socket_new, Val_GtkWidget_sink)
-ML_2 (gtk_socket_steal, GtkSocket_val, XID_val, Unit)
-
-/* gtktable.h */
-
-#define GtkTable_val(val) check_cast(GTK_TABLE,val)
-ML_3 (gtk_table_new, Int_val, Int_val, Int_val, Val_GtkWidget_sink)
-ML_10 (gtk_table_attach, GtkTable_val, GtkWidget_val,
-       Int_val, Int_val, Int_val, Int_val,
-       Flags_Attach_options_val, Flags_Attach_options_val,
-       Int_val, Int_val, Unit)
-ML_bc10 (ml_gtk_table_attach)
-ML_3 (gtk_table_set_row_spacing, GtkTable_val, Int_val, Int_val, Unit)
-ML_3 (gtk_table_set_col_spacing, GtkTable_val, Int_val, Int_val, Unit)
-ML_2 (gtk_table_set_row_spacings, GtkTable_val, Int_val, Unit)
-ML_2 (gtk_table_set_col_spacings, GtkTable_val, Int_val, Unit)
-ML_2 (gtk_table_set_homogeneous, GtkTable_val, Bool_val, Unit)
-
-/* gtktoolbar.h */
-
-#define GtkToolbar_val(val) check_cast(GTK_TOOLBAR,val)
-ML_2 (gtk_toolbar_new, Orientation_val, Toolbar_style_val, Val_GtkWidget_sink)
-ML_2 (gtk_toolbar_insert_space, GtkToolbar_val, Int_val, Unit)
-ML_7 (gtk_toolbar_insert_element, GtkToolbar_val, Toolbar_child_val,
-      Insert(NULL) Optstring_val, Optstring_val, Optstring_val, GtkWidget_val,
-      Insert(NULL) Insert(NULL) Int_val, Val_GtkWidget)
-ML_bc7 (ml_gtk_toolbar_insert_element)
-ML_5 (gtk_toolbar_insert_widget, GtkToolbar_val, GtkWidget_val,
-      Optstring_val, Optstring_val, Int_val, Unit)
-ML_2 (gtk_toolbar_set_orientation, GtkToolbar_val, Orientation_val, Unit)
-ML_2 (gtk_toolbar_set_style, GtkToolbar_val, Toolbar_style_val, Unit)
-ML_2 (gtk_toolbar_set_space_size, GtkToolbar_val, Int_val, Unit)
-ML_2 (gtk_toolbar_set_space_style, GtkToolbar_val, Toolbar_space_style_val, Unit)
-ML_2 (gtk_toolbar_set_tooltips, GtkToolbar_val, Bool_val, Unit)
-ML_2 (gtk_toolbar_set_button_relief, GtkToolbar_val, Relief_style_val, Unit)
-ML_1 (gtk_toolbar_get_button_relief, GtkToolbar_val, Val_relief_style)
-
-/* gtktree.h */
-
-#define GtkTree_val(val) check_cast(GTK_TREE,val)
-ML_0 (gtk_tree_new, Val_GtkWidget_sink)
-ML_3 (gtk_tree_insert, GtkTree_val, GtkWidget_val, Int_val, Unit)
-ML_3 (gtk_tree_clear_items, GtkTree_val, Int_val, Int_val, Unit)
-ML_2 (gtk_tree_select_item, GtkTree_val, Int_val, Unit)
-ML_2 (gtk_tree_unselect_item, GtkTree_val, Int_val, Unit)
-ML_2 (gtk_tree_child_position, GtkTree_val, GtkWidget_val, Val_int)
-ML_2 (gtk_tree_set_selection_mode, GtkTree_val, Selection_mode_val, Unit)
-ML_2 (gtk_tree_set_view_mode, GtkTree_val, Tree_view_mode_val, Unit)
-ML_2 (gtk_tree_set_view_lines, GtkTree_val, Bool_val, Unit)
-
-static value val_gtkany (gpointer p) { return Val_GtkAny(p); }
-value ml_gtk_tree_selection (value tree)
-{
-  GList *selection = GTK_TREE_SELECTION(GtkTree_val(tree));
-  return Val_GList(selection, val_gtkany);
-}
-static gpointer gtkobject_val (value val) { return GtkObject_val(val); }
-value ml_gtk_tree_remove_items (value tree, value items)
-{
-  GList *items_list = GList_val (items, gtkobject_val);
-  gtk_tree_remove_items (GtkTree_val(tree), items_list);
-  return Val_unit;
-}
-
-/* gtkcalendar.h */
-
-#define GtkCalendar_val(val) check_cast(GTK_CALENDAR,val)
-ML_0 (gtk_calendar_new, Val_GtkWidget_sink)
-ML_3 (gtk_calendar_select_month, GtkCalendar_val, Int_val, Int_val, Unit)
-ML_2 (gtk_calendar_select_day, GtkCalendar_val, Int_val, Unit)
-ML_2 (gtk_calendar_mark_day, GtkCalendar_val, Int_val, Unit)
-ML_2 (gtk_calendar_unmark_day, GtkCalendar_val, Int_val, Unit)
-ML_1 (gtk_calendar_clear_marks, GtkCalendar_val, Unit)
-Make_Flags_val (Calendar_display_options_val)
-ML_2 (gtk_calendar_display_options, GtkCalendar_val,
-      Flags_Calendar_display_options_val, Unit)
-value ml_gtk_calendar_get_date (value w)
-{
-    guint year, month, day;
-    value ret;
-
-    gtk_calendar_get_date (GtkCalendar_val(w), &year, &month, &day);
-    ret = alloc_small (3, 0);
-    Field(ret,0) = Val_int(year);
-    Field(ret,1) = Val_int(month);
-    Field(ret,2) = Val_int(day);
-    return ret;
-}
-ML_1 (gtk_calendar_freeze, GtkCalendar_val, Unit)
-ML_1 (gtk_calendar_thaw, GtkCalendar_val, Unit)
-
-/* gtkdrawingarea.h */
-
-#define GtkDrawingArea_val(val) check_cast(GTK_DRAWING_AREA,val)
-ML_0 (gtk_drawing_area_new, Val_GtkWidget_sink)
-ML_3 (gtk_drawing_area_size, GtkDrawingArea_val, Int_val, Int_val, Unit)
-
-/* gtkeditable.h */
-
-#define GtkEditable_val(val) check_cast(GTK_EDITABLE,val)
-ML_3 (gtk_editable_select_region, GtkEditable_val, Int_val, Int_val, Unit)
-value ml_gtk_editable_insert_text (value w, value s, value pos)
-{
-    int position = Int_val(pos);
-    gtk_editable_insert_text (GtkEditable_val(w), String_val(s),
-                             string_length(s), &position);
-    return Val_int(position);
-}
-ML_3 (gtk_editable_delete_text, GtkEditable_val, Int_val, Int_val, Unit)
-ML_3 (gtk_editable_get_chars, GtkEditable_val, Int_val, Int_val,
-      copy_string_and_free)
-ML_1 (gtk_editable_cut_clipboard, GtkEditable_val, Unit)
-ML_1 (gtk_editable_copy_clipboard, GtkEditable_val, Unit)
-ML_1 (gtk_editable_paste_clipboard, GtkEditable_val, Unit)
-ML_3 (gtk_editable_claim_selection, GtkEditable_val, Bool_val, Int_val, Unit)
-ML_1 (gtk_editable_delete_selection, GtkEditable_val, Unit)
-ML_1 (gtk_editable_changed, GtkEditable_val, Unit)
-ML_2 (gtk_editable_set_position, GtkEditable_val, Int_val, Unit)
-ML_1 (gtk_editable_get_position, GtkEditable_val, Val_int)
-ML_2 (gtk_editable_set_editable, GtkEditable_val, Bool_val, Unit)
-Make_Extractor (gtk_editable, GtkEditable_val, selection_start_pos, Val_int)
-Make_Extractor (gtk_editable, GtkEditable_val, selection_end_pos, Val_int)
-Make_Extractor (gtk_editable, GtkEditable_val, has_selection, Val_bool)
-
-/* gtkentry.h */
-
-#define GtkEntry_val(val) check_cast(GTK_ENTRY,val)
-ML_0 (gtk_entry_new, Val_GtkWidget_sink)
-ML_1 (gtk_entry_new_with_max_length, (gint16)Long_val, Val_GtkWidget_sink)
-ML_2 (gtk_entry_set_text, GtkEntry_val, String_val, Unit)
-ML_2 (gtk_entry_append_text, GtkEntry_val, String_val, Unit)
-ML_2 (gtk_entry_prepend_text, GtkEntry_val, String_val, Unit)
-ML_1 (gtk_entry_get_text, GtkEntry_val, Val_string)
-ML_3 (gtk_entry_select_region, GtkEntry_val, Int_val, Int_val, Unit)
-ML_2 (gtk_entry_set_visibility, GtkEntry_val, Bool_val, Unit)
-ML_2 (gtk_entry_set_max_length, GtkEntry_val, (gint16)Long_val, Unit)
-Make_Extractor (GtkEntry, GtkEntry_val, text_length, Val_int)
-
-/* gtkspinbutton.h */
-
-#define GtkSpinButton_val(val) check_cast(GTK_SPIN_BUTTON,val)
-ML_3 (gtk_spin_button_new, GtkAdjustment_val,
-      Float_val, Int_val, Val_GtkWidget_sink)
-ML_2 (gtk_spin_button_set_adjustment, GtkSpinButton_val, GtkAdjustment_val,
-      Unit)
-ML_1 (gtk_spin_button_get_adjustment, GtkSpinButton_val, Val_GtkAny)
-ML_2 (gtk_spin_button_set_digits, GtkSpinButton_val, Int_val, Unit)
-ML_1 (gtk_spin_button_get_value_as_float, GtkSpinButton_val, copy_double)
-ML_2 (gtk_spin_button_set_value, GtkSpinButton_val, Float_val, Unit)
-ML_2 (gtk_spin_button_set_update_policy, GtkSpinButton_val,
-      Update_type_val, Unit)
-ML_2 (gtk_spin_button_set_numeric, GtkSpinButton_val, Bool_val, Unit)
-ML_2 (gtk_spin_button_spin, GtkSpinButton_val,
-      Insert (Is_long(arg2) ? Spin_type_val(arg2) : GTK_SPIN_USER_DEFINED)
-      (Is_long(arg2) ? 0.0 : Float_val(Field(arg2,1))) Ignore, Unit)
-ML_2 (gtk_spin_button_set_wrap, GtkSpinButton_val, Bool_val, Unit)
-ML_2 (gtk_spin_button_set_shadow_type, GtkSpinButton_val, Shadow_type_val, Unit)
-ML_2 (gtk_spin_button_set_snap_to_ticks, GtkSpinButton_val, Bool_val, Unit)
-ML_4 (gtk_spin_button_configure, GtkSpinButton_val, GtkAdjustment_val,
-      Float_val, Int_val, Unit)
-ML_1 (gtk_spin_button_update, GtkSpinButton_val, Unit)
-
-/* gtktext.h */
-
-#define GtkText_val(val) check_cast(GTK_TEXT,val)
-ML_2 (gtk_text_new, GtkAdjustment_val, GtkAdjustment_val, Val_GtkWidget_sink)
-ML_2 (gtk_text_set_word_wrap, GtkText_val, Bool_val, Unit)
-ML_2 (gtk_text_set_line_wrap, GtkText_val, Bool_val, Unit)
-ML_3 (gtk_text_set_adjustments, GtkText_val,
-      Option_val(arg2,GtkAdjustment_val,GtkText_val(arg1)->hadj) Ignore,
-      Option_val(arg3,GtkAdjustment_val,GtkText_val(arg1)->vadj) Ignore,
-      Unit)
-Make_Extractor (gtk_text_get, GtkText_val, hadj, Val_GtkWidget)
-Make_Extractor (gtk_text_get, GtkText_val, vadj, Val_GtkWidget)
-ML_2 (gtk_text_set_point, GtkText_val, Int_val, Unit)
-ML_1 (gtk_text_get_point, GtkText_val, Val_int)
-ML_1 (gtk_text_get_length, GtkText_val, Val_int)
-ML_1 (gtk_text_freeze, GtkText_val, Unit)
-ML_1 (gtk_text_thaw, GtkText_val, Unit)
-value ml_gtk_text_insert (value text, value font, value fore, value back,
-                         value str)
-{
-    gtk_text_insert (GtkText_val(text),
-                    Option_val(font,GdkFont_val,NULL),
-                    Option_val(fore,GdkColor_val,NULL),
-                    Option_val(back,GdkColor_val,NULL),
-                    String_val(str), string_length(str));
-    return Val_unit;
-}
-ML_2 (gtk_text_forward_delete, GtkText_val, Int_val, Val_int)
-ML_2 (gtk_text_backward_delete, GtkText_val, Int_val, Val_int)
-
-/* gtkmisc.h */
-
-#define GtkMisc_val(val) check_cast(GTK_MISC,val)
-ML_3 (gtk_misc_set_alignment, GtkMisc_val, Double_val, Double_val, Unit)
-ML_3 (gtk_misc_set_padding, GtkMisc_val, Int_val, Int_val, Unit)
-Make_Extractor (gtk_misc_get, GtkMisc_val, xalign, copy_double)
-Make_Extractor (gtk_misc_get, GtkMisc_val, yalign, copy_double)
-Make_Extractor (gtk_misc_get, GtkMisc_val, xpad, Val_int)
-Make_Extractor (gtk_misc_get, GtkMisc_val, ypad, Val_int)
-
-/* gtkarrow.h */
-
-#define GtkArrow_val(val) check_cast(GTK_ARROW,val)
-ML_2 (gtk_arrow_new, Arrow_type_val, Shadow_type_val, Val_GtkWidget_sink)
-ML_3 (gtk_arrow_set, GtkArrow_val, Arrow_type_val, Shadow_type_val, Unit)
-
-/* gtkimage.h */
-
-#define GtkImage_val(val) check_cast(GTK_IMAGE,val)
-ML_2 (gtk_image_new, GdkImage_val,
-      Option_val (arg2, GdkBitmap_val, NULL) Ignore, Val_GtkWidget_sink)
-ML_3 (gtk_image_set, GtkImage_val, GdkImage_val,
-      Option_val (arg2, GdkBitmap_val, NULL) Ignore, Unit)
-
-/* gtklabel.h */
-
-#define GtkLabel_val(val) check_cast(GTK_LABEL,val)
-ML_1 (gtk_label_new, String_val, Val_GtkWidget_sink)
-ML_2 (gtk_label_set_text, GtkLabel_val, String_val, Unit)
-ML_2 (gtk_label_set_pattern, GtkLabel_val, String_val, Unit)
-ML_2 (gtk_label_set_justify, GtkLabel_val, Justification_val, Unit)
-ML_2 (gtk_label_set_line_wrap, GtkLabel_val, Bool_val, Unit)
-Make_Extractor (gtk_label_get, GtkLabel_val, label, Val_string)
-
-/* gtktipsquery.h */
-
-#define GtkTipsQuery_val(val) check_cast(GTK_TIPS_QUERY,val)
-ML_0 (gtk_tips_query_new, Val_GtkWidget_sink)
-ML_1 (gtk_tips_query_start_query, GtkTipsQuery_val, Unit)
-ML_1 (gtk_tips_query_stop_query, GtkTipsQuery_val, Unit)
-ML_2 (gtk_tips_query_set_caller, GtkTipsQuery_val, GtkWidget_val, Unit)
-ML_3 (gtk_tips_query_set_labels, GtkTipsQuery_val,
-      String_val, String_val, Unit)
-value ml_gtk_tips_query_set_emit_always (value w, value arg)
-{
-    GtkTipsQuery_val(w)->emit_always = Bool_val(arg);
-    return Val_unit;
-}
-Make_Extractor (gtk_tips_query_get, GtkTipsQuery_val, emit_always, Val_bool)
-Make_Extractor (gtk_tips_query_get, GtkTipsQuery_val, caller, Val_GtkWidget)
-Make_Extractor (gtk_tips_query_get, GtkTipsQuery_val, label_inactive,
-               Val_string)
-Make_Extractor (gtk_tips_query_get, GtkTipsQuery_val, label_no_tip,
-               Val_string)
-
-/* gtkpixmap.h */
-
-#define GtkPixmap_val(val) check_cast(GTK_PIXMAP,val)
-ML_2 (gtk_pixmap_new, GdkPixmap_val,
-      Option_val (arg2, GdkBitmap_val, NULL) Ignore,
-      Val_GtkWidget_sink)
-value ml_gtk_pixmap_set (value val, value pixmap, value mask)
-{
-    GtkPixmap *w = GtkPixmap_val(val);
-    gtk_pixmap_set (w, Option_val(pixmap,GdkPixmap_val,w->pixmap),
-                   Option_val(mask,GdkBitmap_val,w->mask));
-    return Val_unit;
-}
-Make_Extractor (GtkPixmap, GtkPixmap_val, pixmap, Val_GdkPixmap)
-Make_Extractor (GtkPixmap, GtkPixmap_val, mask, Val_GdkBitmap)
-
-/* gtkpreview.h */
-/*
-#define GtkPreview_val(val) GTK_PREVIEW(Pointer_val(val))
-ML_1 (gtk_preview_new, Preview_val, Val_GtkWidget_sink)
-ML_3 (gtk_preview_size, GtkPreview_val, Int_val, Int_val, Unit)
-ML_9 (gtk_preview_put, GtkPreview_val, GdkWindow_val, GdkGC_val,
-      Int_val, Int_val, Int_val, Int_val, Int_val, Int_val, Unit)
-ML_bc9 (ml_gtk_preview_put)
-*/
-
-/* gtkprogress.h */
-
-#define GtkProgress_val(val) check_cast(GTK_PROGRESS,val)
-ML_2 (gtk_progress_set_show_text, GtkProgress_val, Bool_val, Unit)
-ML_3 (gtk_progress_set_text_alignment, GtkProgress_val,
-      Option_val(arg2,Float_val,(GtkProgress_val(arg1))->x_align) Ignore,
-      Option_val(arg3,Float_val,(GtkProgress_val(arg1))->y_align) Ignore, Unit)
-ML_2 (gtk_progress_set_format_string, GtkProgress_val, String_val, Unit)
-ML_2 (gtk_progress_set_adjustment, GtkProgress_val, GtkAdjustment_val, Unit)
-ML_4 (gtk_progress_configure, GtkProgress_val,
-      Float_val, Float_val, Float_val, Unit)
-ML_2 (gtk_progress_set_percentage, GtkProgress_val, Float_val, Unit)
-ML_2 (gtk_progress_set_value, GtkProgress_val, Float_val, Unit)
-ML_1 (gtk_progress_get_value, GtkProgress_val, copy_double)
-ML_1 (gtk_progress_get_current_percentage, GtkProgress_val, copy_double)
-ML_2 (gtk_progress_set_activity_mode, GtkProgress_val, Bool_val, Unit)
-ML_1 (gtk_progress_get_current_text, GtkProgress_val, Val_string)
-Make_Extractor (gtk_progress_get, GtkProgress_val, adjustment,
-               Val_GtkAny)
-
-/* gtkprogressbar.h */
-
-#define GtkProgressBar_val(val) check_cast(GTK_PROGRESS_BAR,val)
-ML_0 (gtk_progress_bar_new, Val_GtkWidget_sink)
-ML_1 (gtk_progress_bar_new_with_adjustment, GtkAdjustment_val,
-      Val_GtkWidget_sink)
-ML_2 (gtk_progress_bar_set_bar_style, GtkProgressBar_val,
-      Progress_bar_style_val, Unit)
-ML_2 (gtk_progress_bar_set_discrete_blocks, GtkProgressBar_val, Int_val, Unit)
-ML_2 (gtk_progress_bar_set_activity_step, GtkProgressBar_val, Int_val, Unit)
-ML_2 (gtk_progress_bar_set_activity_blocks, GtkProgressBar_val, Int_val, Unit)
-ML_2 (gtk_progress_bar_set_orientation, GtkProgressBar_val,
-      Progress_bar_orientation_val, Unit)
-/* ML_2 (gtk_progress_bar_update, GtkProgressBar_val, Float_val, Unit) */
-
-/* gtkrange.h */
-
-#define GtkRange_val(val) check_cast(GTK_RANGE,val)
-ML_1 (gtk_range_get_adjustment, GtkRange_val, Val_GtkAny)
-ML_2 (gtk_range_set_adjustment, GtkRange_val, GtkAdjustment_val, Unit)
-ML_2 (gtk_range_set_update_policy, GtkRange_val, Update_type_val, Unit)
-
-/* gtkscale.h */
-
-#define GtkScale_val(val) check_cast(GTK_SCALE,val)
-ML_2 (gtk_scale_set_digits, GtkScale_val, Int_val, Unit)
-ML_2 (gtk_scale_set_draw_value, GtkScale_val, Bool_val, Unit)
-ML_2 (gtk_scale_set_value_pos, GtkScale_val, Position_val, Unit)
-ML_1 (gtk_scale_get_value_width, GtkScale_val, Val_int)
-ML_1 (gtk_scale_draw_value, GtkScale_val, Unit)
-ML_1 (gtk_hscale_new, GtkAdjustment_val, Val_GtkWidget_sink)
-ML_1 (gtk_vscale_new, GtkAdjustment_val, Val_GtkWidget_sink)
-
-/* gtkscrollbar.h */
-
-ML_1 (gtk_hscrollbar_new, GtkAdjustment_val, Val_GtkWidget_sink)
-ML_1 (gtk_vscrollbar_new, GtkAdjustment_val, Val_GtkWidget_sink)
-
-/* gtkruler.h */
-
-#define GtkRuler_val(val) check_cast(GTK_RULER,val)
-ML_2 (gtk_ruler_set_metric, GtkRuler_val, Metric_type_val, Unit)
-ML_5 (gtk_ruler_set_range, GtkRuler_val, Float_val,
-      Float_val, Float_val, Float_val, Unit)
-Make_Extractor (gtk_ruler_get, GtkRuler_val, lower, copy_double)
-Make_Extractor (gtk_ruler_get, GtkRuler_val, upper, copy_double)
-Make_Extractor (gtk_ruler_get, GtkRuler_val, position, copy_double)
-Make_Extractor (gtk_ruler_get, GtkRuler_val, max_size, copy_double)
-ML_1 (gtk_ruler_draw_ticks, GtkRuler_val, Unit)
-ML_1 (gtk_ruler_draw_pos, GtkRuler_val, Unit)
-ML_0 (gtk_hruler_new, Val_GtkWidget_sink)
-ML_0 (gtk_vruler_new, Val_GtkWidget_sink)
-
-/* gtk[hv]separator.h */
-
-ML_0 (gtk_hseparator_new, Val_GtkWidget_sink)
-ML_0 (gtk_vseparator_new, Val_GtkWidget_sink)
-
-/* gtkmain.h */
-
-value ml_gtk_init (value argv)
-{
-    CAMLparam1 (argv);
-    int argc = Wosize_val(argv), i;
-    CAMLlocal1 (copy);
-
-    copy = (argc ? alloc (argc, Abstract_tag) : Atom(0));
-    for (i = 0; i < argc; i++) Field(copy,i) = Field(argv,i);
-    gtk_init (&argc, (char ***)&copy);
-
-    argv = (argc ? alloc (argc, 0) : Atom(0));
-    for (i = 0; i < argc; i++) modify(&Field(argv,i), Field(copy,i));
-    CAMLreturn (argv);
-}
-ML_1 (gtk_exit, Int_val, Unit)
-ML_0 (gtk_set_locale, Val_string)
-ML_0 (gtk_main, Unit)
-ML_1 (gtk_main_iteration_do, Bool_val, Val_bool)
-ML_0 (gtk_main_quit, Unit)
-ML_1 (gtk_grab_add, GtkWidget_val, Unit)
-ML_1 (gtk_grab_remove, GtkWidget_val, Unit)
-ML_0 (gtk_grab_get_current, Val_GtkWidget)
-value ml_gtk_get_version (value unit)
-{
-    value ret = alloc_small(3,0);
-    Field(ret,0) = Val_int(gtk_major_version);
-    Field(ret,1) = Val_int(gtk_minor_version);
-    Field(ret,2) = Val_int(gtk_micro_version);
-    return ret;
-}
-
-/* Marshalling */
-
-void ml_gtk_callback_marshal (GtkObject *object, gpointer data,
-                              guint nargs, GtkArg *args)
-{
-    value vargs = alloc_small(3,0);
-
-    CAMLparam1 (vargs);
-    Field(vargs,0) = (value) object;
-    Field(vargs,1) = Val_int(nargs);
-    Field(vargs,2) = (value) args;
-
-    callback (*(value*)data, vargs);
-
-    Field(vargs,0) = Val_int(-1);
-    Field(vargs,1) = Val_int(-1);
-    CAMLreturn0;
-}
-
-value ml_gtk_arg_shift (GtkArg *args, value index)
-{
-    return (value) (&args[Int_val(index)]);
-}
-
-value ml_gtk_arg_get_type (GtkArg *arg)
-{
-    return Val_int (arg->type);
-}
-
-value ml_gtk_arg_get (GtkArg *arg)
-{
-    CAMLparam0();
-    CAMLlocal1(tmp);
-    value ret;
-    GtkFundamentalType type = GTK_FUNDAMENTAL_TYPE(arg->type);
-    int tag;
-
-    switch (type) {
-    case GTK_TYPE_CHAR:
-        tag = 0;
-        tmp = Int_val(GTK_VALUE_CHAR(*arg));
-        break;
-    case GTK_TYPE_BOOL:
-        tag = 1;
-        tmp = Val_bool(GTK_VALUE_BOOL(*arg));
-        break;
-    case GTK_TYPE_INT:
-    case GTK_TYPE_ENUM:
-    case GTK_TYPE_UINT:
-    case GTK_TYPE_FLAGS:
-        tag = 2;
-        tmp = Val_int (GTK_VALUE_INT(*arg)); break;
-    case GTK_TYPE_LONG:
-    case GTK_TYPE_ULONG:
-        tag = 2;
-        tmp = Val_int (GTK_VALUE_LONG(*arg)); break;
-    case GTK_TYPE_FLOAT:
-        tag = 3;
-        tmp = copy_double ((double)GTK_VALUE_FLOAT(*arg)); break;
-    case GTK_TYPE_DOUBLE:
-        tag = 3;
-        tmp = copy_double (GTK_VALUE_DOUBLE(*arg)); break;
-    case GTK_TYPE_STRING:
-        tag = 4;
-        tmp = Val_option (GTK_VALUE_STRING(*arg), copy_string); break;
-    case GTK_TYPE_OBJECT:
-        tag = 5;
-        tmp = Val_option (GTK_VALUE_OBJECT(*arg), Val_GtkObject); break;
-    case GTK_TYPE_BOXED:
-    case GTK_TYPE_POINTER:
-        tag = 6;
-        tmp = Val_option (GTK_VALUE_POINTER(*arg), Val_pointer); break;
-    default:
-        tag = -1; ret = Val_unit;
-    }
-    if (tag != -1) {
-        ret = alloc_small(1,tag);
-        Field(ret,0) = tmp;
-    }
-    CAMLreturn(ret);
-}
-
-value ml_gtk_arg_set_retloc (GtkArg *arg, value val)
-{
-    value type = Fundamental_type_val(Is_block(val) ? Field(val,0) : val);
-    value data = (Is_block(val) ? Field(val,1) : 0);
-    if (GTK_FUNDAMENTAL_TYPE(arg->type) != GTK_TYPE_POINTER
-        && GTK_FUNDAMENTAL_TYPE(arg->type) != type)
-       ml_raise_gtk ("GtkArgv.Arg.set : argument type mismatch");
-    switch (type) {
-    case GTK_TYPE_CHAR:   *GTK_RETLOC_CHAR(*arg) = Int_val(data); break;
-    case GTK_TYPE_BOOL:   *GTK_RETLOC_BOOL(*arg) = Int_val(data); break;
-    case GTK_TYPE_INT:
-    case GTK_TYPE_ENUM:   *GTK_RETLOC_INT(*arg) = Int_val(data); break;
-    case GTK_TYPE_UINT:
-    case GTK_TYPE_FLAGS:  *GTK_RETLOC_UINT(*arg) = Int32_val(data); break;
-    case GTK_TYPE_LONG:
-    case GTK_TYPE_ULONG:  *GTK_RETLOC_LONG(*arg) = Nativeint_val(data); break;
-    case GTK_TYPE_FLOAT:  *GTK_RETLOC_FLOAT(*arg) = Float_val(data); break;
-    case GTK_TYPE_DOUBLE: *GTK_RETLOC_DOUBLE(*arg) = Double_val(data); break;
-    case GTK_TYPE_STRING:
-         *GTK_RETLOC_STRING(*arg) = Option_val(data, String_val, NULL);
-         break;
-    case GTK_TYPE_BOXED:
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_OBJECT:
-         *GTK_RETLOC_POINTER(*arg) = Option_val(data, Pointer_val, NULL);
-         break;
-    }
-    return Val_unit;
-}
-
-/*
-value ml_gtk_arg_get_char (GtkArg *arg)
-{
-    if (GTK_FUNDAMENTAL_TYPE(arg->type) != GTK_TYPE_CHAR)
-       ml_raise_gtk ("argument type mismatch");
-    return Val_char (GTK_VALUE_CHAR(*arg));
-}
-
-value ml_gtk_arg_get_bool (GtkArg *arg)
-{
-    if (GTK_FUNDAMENTAL_TYPE(arg->type) != GTK_TYPE_BOOL)
-       ml_raise_gtk ("argument type mismatch");
-    return Val_bool (GTK_VALUE_BOOL(*arg));
-}
-
-value ml_gtk_arg_get_int (GtkArg *arg)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_INT:
-    case GTK_TYPE_UINT:
-       return Val_int (GTK_VALUE_INT(*arg));
-    case GTK_TYPE_LONG:
-    case GTK_TYPE_ULONG:
-       return Val_long (GTK_VALUE_LONG(*arg));
-    case GTK_TYPE_ENUM:
-       return Val_int (GTK_VALUE_ENUM(*arg));
-    case GTK_TYPE_FLAGS:
-       return Val_int (GTK_VALUE_FLAGS(*arg));
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-*/
-value ml_gtk_arg_get_nativeint(GtkArg *arg) {
-
-     switch(GTK_FUNDAMENTAL_TYPE(arg->type)) {
-     case GTK_TYPE_INT:
-     case GTK_TYPE_UINT:
-          return copy_nativeint (GTK_VALUE_INT(*arg));
-     case GTK_TYPE_LONG:
-     case GTK_TYPE_ULONG:
-          return copy_nativeint (GTK_VALUE_LONG(*arg));
-     case GTK_TYPE_ENUM:
-          return copy_nativeint (GTK_VALUE_ENUM(*arg));
-     case GTK_TYPE_FLAGS:
-          return copy_nativeint (GTK_VALUE_FLAGS(*arg));
-     default:
-          ml_raise_gtk ("argument type mismatch");
-     }
-     return Val_unit;
-}
-/*
-value ml_gtk_arg_get_float (GtkArg *arg)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_FLOAT:
-       return copy_double ((double)GTK_VALUE_FLOAT(*arg));
-    case GTK_TYPE_DOUBLE:
-       return copy_double (GTK_VALUE_DOUBLE(*arg));
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-
-value ml_gtk_arg_get_string (GtkArg *arg)
-{
-    char *p;
-    if (GTK_FUNDAMENTAL_TYPE(arg->type) != GTK_TYPE_STRING)
-       ml_raise_gtk ("argument type mismatch");
-    p = GTK_VALUE_STRING(*arg);
-    return Val_option (p, copy_string);
-}
-*/
-value ml_gtk_arg_get_pointer (GtkArg *arg)
-{
-    gpointer p = NULL;
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_STRING:
-    case GTK_TYPE_BOXED:
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_OBJECT:
-        p = GTK_VALUE_POINTER(*arg); break;
-    default:
-       ml_raise_gtk ("GtkArgv.get_pointer : argument type mismatch");
-    }
-    return Val_pointer(p);
-}
-/*
-value ml_gtk_arg_get_object (GtkArg *arg)
-{
-    GtkObject *p;
-    if (GTK_FUNDAMENTAL_TYPE(arg->type) != GTK_TYPE_OBJECT)
-       ml_raise_gtk ("argument type mismatch");
-    p = GTK_VALUE_OBJECT(*arg);
-    return Val_option (p, Val_GtkObject);
-}
-*/
-
-value ml_string_at_pointer (value ofs, value len, value ptr)
-{
-    char *start = ((char*)Pointer_val(ptr)) + Option_val(ofs, Int_val, 0);
-    int length = Option_val(len, Int_val, strlen(start));
-    value ret = alloc_string(length);
-    memcpy ((char*)ret, start, length);
-    return ret;
-}
-
-value ml_int_at_pointer (value ptr)
-{
-    return Val_int(*(int*)Pointer_val(ptr));
-}
-
-/*
-value ml_gtk_arg_set_char (GtkArg *arg, value val)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_CHAR:
-         *GTK_RETLOC_CHAR(*arg) = Char_val(val); break;
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-
-value ml_gtk_arg_set_bool (GtkArg *arg, value val)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_BOOL:
-         *GTK_RETLOC_BOOL(*arg) = Bool_val(val); break;
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-
-value ml_gtk_arg_set_int (GtkArg *arg, value val)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_INT:
-    case GTK_TYPE_UINT:
-       *GTK_RETLOC_INT(*arg) = Int_val(val); break;
-    case GTK_TYPE_LONG:
-    case GTK_TYPE_ULONG:
-       *GTK_RETLOC_LONG(*arg) = Long_val(val); break;
-    case GTK_TYPE_ENUM:
-       *GTK_RETLOC_ENUM(*arg) = Int_val(val); break;
-    case GTK_TYPE_FLAGS:
-       *GTK_RETLOC_FLAGS(*arg) = Int_val(val); break;
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-
-value ml_gtk_arg_set_nativeint (GtkArg *arg, value val)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_INT:
-    case GTK_TYPE_UINT:
-       *GTK_RETLOC_INT(*arg) = Nativeint_val(val); break;
-    case GTK_TYPE_LONG:
-    case GTK_TYPE_ULONG:
-       *GTK_RETLOC_LONG(*arg) = Nativeint_val(val); break;
-    case GTK_TYPE_ENUM:
-       *GTK_RETLOC_ENUM(*arg) = Nativeint_val(val); break;
-    case GTK_TYPE_FLAGS:
-       *GTK_RETLOC_FLAGS(*arg) = Nativeint_val(val); break;
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-
-value ml_gtk_arg_set_float (GtkArg *arg, value val)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_FLOAT:
-       *GTK_RETLOC_FLOAT(*arg) = (float) Double_val(val); break;
-    case GTK_TYPE_DOUBLE:
-       *GTK_RETLOC_DOUBLE(*arg) = Double_val(val); break;
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-
-value ml_gtk_arg_set_string (GtkArg *arg, value val)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_STRING:
-         *GTK_RETLOC_STRING(*arg) = String_val(val); break;
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-
-value ml_gtk_arg_set_pointer (GtkArg *arg, value val)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_BOXED:
-       *GTK_RETLOC_BOXED(*arg) = Pointer_val(val); break;
-    case GTK_TYPE_POINTER:
-       *GTK_RETLOC_POINTER(*arg) = Pointer_val(val); break;
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-
-value ml_gtk_arg_set_object (GtkArg *arg, value val)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_OBJECT:
-         *GTK_RETLOC_OBJECT(*arg) = GtkObject_val(val); break;
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-*/
-
-/* gtksignal.h */
-
-value ml_gtk_signal_connect (value object, value name, value clos, value after)
-{
-    value *clos_p = ml_gtk_root_new (clos);
-    return Val_int (gtk_signal_connect_full
-                   (GtkObject_val(object), String_val(name), NULL,
-                    ml_gtk_callback_marshal, clos_p,
-                    ml_gtk_root_destroy, FALSE, Bool_val(after)));
-}
-
-ML_2 (gtk_signal_disconnect, GtkObject_val, Int_val, Unit)
-ML_2 (gtk_signal_emit_stop_by_name, GtkObject_val, String_val, Unit)
-ML_2 (gtk_signal_handler_block, GtkObject_val, Int_val, Unit)
-ML_2 (gtk_signal_handler_unblock, GtkObject_val, Int_val, Unit)
-ML_2_name (ml_gtk_signal_emit_none, gtk_signal_emit_by_name,
-           GtkObject_val, String_val, Unit)
-ML_3_name (ml_gtk_signal_emit_int, gtk_signal_emit_by_name,
-           GtkObject_val, String_val, Int_val, Unit)
-ML_4_name (ml_gtk_signal_emit_scroll, gtk_signal_emit_by_name,
-           GtkObject_val, String_val, Scroll_type_val, Double_val, Unit)
-
-/* gtkmain.h (again) */
-
-value ml_gtk_timeout_add (value interval, value clos)
-{
-    value *clos_p = ml_gtk_root_new (clos);
-    return Val_int (gtk_timeout_add_full
-                   (Int_val(interval), NULL, ml_gtk_callback_marshal, clos_p,
-                    ml_gtk_root_destroy));
-}
-ML_1 (gtk_timeout_remove, Int_val, Unit)
-
-/*
-#include "ml_gtkcaller.h"
-ML_0 (gtk_caller_new, Val_GtkWidget)
-*/
-
-static value ml_class_init=0;
-
-static void class_init (value class)
-{
-  callback(ml_class_init, class);
-}
-
-
-value set_ml_class_init (value class_func)
-{
-  if (!ml_class_init) register_global_root (&ml_class_init);
-  ml_class_init = class_func;
-  return Val_unit;
-}
-
-value ml_gtk_type_new (value type)
-{
-  return Val_GtkWidget_sink(gtk_type_new(Int_val(type)));
-}
-
-
-struct widget_info {
-  guint size;
-  guint class_size;
-  guint (*get_type_func)(void);
-}
-widget_info_array[] = {
-  { sizeof(GtkObject), sizeof(GtkObjectClass), gtk_object_get_type },
-  { sizeof(GtkWidget), sizeof(GtkWidgetClass), gtk_widget_get_type },
-  { sizeof(GtkMisc), sizeof(GtkMiscClass), gtk_misc_get_type },
-  { sizeof(GtkLabel), sizeof(GtkLabelClass), gtk_label_get_type },
-  { sizeof(GtkAccelLabel), sizeof(GtkAccelLabelClass), gtk_accel_label_get_type },
-  { sizeof(GtkTipsQuery), sizeof(GtkTipsQueryClass), gtk_tips_query_get_type },
-  { sizeof(GtkArrow), sizeof(GtkArrowClass), gtk_arrow_get_type },
-  { sizeof(GtkImage), sizeof(GtkImageClass), gtk_image_get_type },
-  { sizeof(GtkPixmap), sizeof(GtkPixmapClass), gtk_pixmap_get_type },
-  { sizeof(GtkContainer), sizeof(GtkContainerClass), gtk_container_get_type },
-  { sizeof(GtkBin), sizeof(GtkBinClass), gtk_bin_get_type },
-  { sizeof(GtkAlignment), sizeof(GtkAlignmentClass), gtk_alignment_get_type },
-  { sizeof(GtkFrame), sizeof(GtkFrameClass), gtk_frame_get_type },
-  { sizeof(GtkAspectFrame), sizeof(GtkAspectFrameClass), gtk_aspect_frame_get_type },
-  { sizeof(GtkButton), sizeof(GtkButtonClass), gtk_button_get_type },
-  { sizeof(GtkToggleButton), sizeof(GtkToggleButtonClass), gtk_toggle_button_get_type },
-  { sizeof(GtkCheckButton), sizeof(GtkCheckButtonClass), gtk_check_button_get_type },
-  { sizeof(GtkRadioButton), sizeof(GtkRadioButtonClass), gtk_radio_button_get_type },
-  { sizeof(GtkOptionMenu), sizeof(GtkOptionMenuClass), gtk_option_menu_get_type },
-  { sizeof(GtkItem), sizeof(GtkItemClass), gtk_item_get_type },
-  { sizeof(GtkMenuItem), sizeof(GtkMenuItemClass), gtk_menu_item_get_type },
-  { sizeof(GtkCheckMenuItem), sizeof(GtkCheckMenuItemClass), gtk_check_menu_item_get_type },
-  { sizeof(GtkRadioMenuItem), sizeof(GtkRadioMenuItemClass), gtk_radio_menu_item_get_type },
-  { sizeof(GtkTearoffMenuItem), sizeof(GtkTearoffMenuItemClass), gtk_tearoff_menu_item_get_type },
-  { sizeof(GtkListItem), sizeof(GtkListItemClass), gtk_list_item_get_type },
-  { sizeof(GtkTreeItem), sizeof(GtkTreeItemClass), gtk_tree_item_get_type },
-  { sizeof(GtkWindow), sizeof(GtkWindowClass), gtk_window_get_type },
-  { sizeof(GtkColorSelectionDialog), sizeof(GtkColorSelectionDialogClass), gtk_color_selection_dialog_get_type },
-  { sizeof(GtkDialog), sizeof(GtkDialogClass), gtk_dialog_get_type },
-  { sizeof(GtkInputDialog), sizeof(GtkInputDialogClass), gtk_input_dialog_get_type },
-  { sizeof(GtkFileSelection), sizeof(GtkFileSelectionClass), gtk_file_selection_get_type },
-  { sizeof(GtkFontSelectionDialog), sizeof(GtkFontSelectionDialogClass), gtk_font_selection_dialog_get_type },
-  { sizeof(GtkPlug), sizeof(GtkPlugClass), gtk_plug_get_type },
-  { sizeof(GtkEventBox), sizeof(GtkEventBoxClass), gtk_event_box_get_type },
-  { sizeof(GtkHandleBox), sizeof(GtkHandleBoxClass), gtk_handle_box_get_type },
-  { sizeof(GtkScrolledWindow), sizeof(GtkScrolledWindowClass), gtk_scrolled_window_get_type },
-  { sizeof(GtkViewport), sizeof(GtkViewportClass), gtk_viewport_get_type },
-  { sizeof(GtkBox), sizeof(GtkBoxClass), gtk_box_get_type },
-  { sizeof(GtkButtonBox), sizeof(GtkButtonBoxClass), gtk_button_box_get_type },
-  { sizeof(GtkHButtonBox), sizeof(GtkHButtonBoxClass), gtk_hbutton_box_get_type },
-  { sizeof(GtkVButtonBox), sizeof(GtkVButtonBoxClass), gtk_vbutton_box_get_type },
-  { sizeof(GtkVBox), sizeof(GtkVBoxClass), gtk_vbox_get_type },
-  { sizeof(GtkColorSelection), sizeof(GtkColorSelectionClass), gtk_color_selection_get_type },
-  { sizeof(GtkGammaCurve), sizeof(GtkGammaCurveClass), gtk_gamma_curve_get_type },
-  { sizeof(GtkHBox), sizeof(GtkHBoxClass), gtk_hbox_get_type },
-  { sizeof(GtkCombo), sizeof(GtkComboClass), gtk_combo_get_type },
-  { sizeof(GtkStatusbar), sizeof(GtkStatusbarClass), gtk_statusbar_get_type },
-  { sizeof(GtkCList), sizeof(GtkCListClass), gtk_clist_get_type },
-  { sizeof(GtkCTree), sizeof(GtkCTreeClass), gtk_ctree_get_type },
-  { sizeof(GtkFixed), sizeof(GtkFixedClass), gtk_fixed_get_type },
-  { sizeof(GtkNotebook), sizeof(GtkNotebookClass), gtk_notebook_get_type },
-  { sizeof(GtkFontSelection), sizeof(GtkFontSelectionClass), gtk_font_selection_get_type },
-  { sizeof(GtkPaned), sizeof(GtkPanedClass), gtk_paned_get_type },
-  { sizeof(GtkHPaned), sizeof(GtkHPanedClass), gtk_hpaned_get_type },
-  { sizeof(GtkVPaned), sizeof(GtkVPanedClass), gtk_vpaned_get_type },
-  { sizeof(GtkLayout), sizeof(GtkLayoutClass), gtk_layout_get_type },
-  { sizeof(GtkList), sizeof(GtkListClass), gtk_list_get_type },
-  { sizeof(GtkMenuShell), sizeof(GtkMenuShellClass), gtk_menu_shell_get_type },
-  { sizeof(GtkMenuBar), sizeof(GtkMenuBarClass), gtk_menu_bar_get_type },
-  { sizeof(GtkMenu), sizeof(GtkMenuClass), gtk_menu_get_type },
-  { sizeof(GtkPacker), sizeof(GtkPackerClass), gtk_packer_get_type },
-  { sizeof(GtkSocket), sizeof(GtkSocketClass), gtk_socket_get_type },
-  { sizeof(GtkTable), sizeof(GtkTableClass), gtk_table_get_type },
-  { sizeof(GtkToolbar), sizeof(GtkToolbarClass), gtk_toolbar_get_type },
-  { sizeof(GtkTree), sizeof(GtkTreeClass), gtk_tree_get_type },
-  { sizeof(GtkCalendar), sizeof(GtkCalendarClass), gtk_calendar_get_type },
-  { sizeof(GtkDrawingArea), sizeof(GtkDrawingAreaClass), gtk_drawing_area_get_type },
-  { sizeof(GtkCurve), sizeof(GtkCurveClass), gtk_curve_get_type },
-  { sizeof(GtkEditable), sizeof(GtkEditableClass), gtk_editable_get_type },
-  { sizeof(GtkEntry), sizeof(GtkEntryClass), gtk_entry_get_type },
-  { sizeof(GtkSpinButton), sizeof(GtkSpinButtonClass), gtk_spin_button_get_type },
-  { sizeof(GtkText), sizeof(GtkTextClass), gtk_text_get_type },
-  { sizeof(GtkRuler), sizeof(GtkRulerClass), gtk_ruler_get_type },
-  { sizeof(GtkHRuler), sizeof(GtkHRulerClass), gtk_hruler_get_type },
-  { sizeof(GtkVRuler), sizeof(GtkVRulerClass), gtk_vruler_get_type },
-  { sizeof(GtkRange), sizeof(GtkRangeClass), gtk_range_get_type },
-  { sizeof(GtkScale), sizeof(GtkScaleClass), gtk_scale_get_type },
-  { sizeof(GtkHScale), sizeof(GtkHScaleClass), gtk_hscale_get_type },
-  { sizeof(GtkVScale), sizeof(GtkVScaleClass), gtk_vscale_get_type },
-  { sizeof(GtkScrollbar), sizeof(GtkScrollbarClass), gtk_scrollbar_get_type },
-  { sizeof(GtkHScrollbar), sizeof(GtkHScrollbarClass), gtk_hscrollbar_get_type },
-  { sizeof(GtkVScrollbar), sizeof(GtkVScrollbarClass), gtk_vscrollbar_get_type },
-  { sizeof(GtkSeparator), sizeof(GtkSeparatorClass), gtk_separator_get_type },
-  { sizeof(GtkHSeparator), sizeof(GtkHSeparatorClass), gtk_hseparator_get_type },
-  { sizeof(GtkVSeparator), sizeof(GtkVSeparatorClass), gtk_vseparator_get_type },
-  { sizeof(GtkPreview), sizeof(GtkPreviewClass), gtk_preview_get_type },
-  { sizeof(GtkProgress), sizeof(GtkProgressClass), gtk_progress_get_type },
-  { sizeof(GtkProgressBar), sizeof(GtkProgressBarClass), gtk_progress_bar_get_type },
-  { sizeof(GtkData), sizeof(GtkDataClass), gtk_data_get_type },
-  { sizeof(GtkAdjustment), sizeof(GtkAdjustmentClass), gtk_adjustment_get_type },
-  { sizeof(GtkTooltips), sizeof(GtkTooltipsClass), gtk_tooltips_get_type },
-  { sizeof(GtkItemFactory), sizeof(GtkItemFactoryClass), gtk_item_factory_get_type }
-};
-
-
-value ml_gtk_type_unique (value name, value parent, value nsignals)
-{
-  struct widget_info * wi;
-  GtkTypeInfo ttt_info;
-
-  wi = widget_info_array + Int_val(parent);
-  ttt_info.type_name = String_val(name);
-  ttt_info.object_size = wi->size;
-  ttt_info.class_size = wi->class_size + Int_val(nsignals)*sizeof(void *);
-  ttt_info.class_init_func = (GtkClassInitFunc) class_init;
-  ttt_info.object_init_func = (GtkObjectInitFunc) NULL;
-  ttt_info.reserved_1 = NULL;
-  ttt_info.reserved_2 = NULL;
-  ttt_info.base_class_init_func = (GtkClassInitFunc) NULL;
-
-  return Val_int(gtk_type_unique(wi->get_type_func (), &ttt_info));
-}
-
-static guint sig[100];
-
-value ml_gtk_object_class_add_signals (value class, value signals,
-                                      value nsignals)
-{
-  int i;
-  for (i=0; i<nsignals; i++)
-    sig[i] = Int_val(Field(signals, i));
-  gtk_object_class_add_signals ((GtkObjectClass *)class,
-              sig, Int_val(nsignals));
-  return Val_unit;
-}
-
-value ml_gtk_signal_new (value name, value run_type, value classe,
-                        value parent, value num)
-{
-  struct widget_info * wi;
-  int offset;
-
-  wi = widget_info_array + Int_val(parent);
-  offset = wi->class_size+Int_val(num)*sizeof(void *);
-  return Val_int(gtk_signal_new (String_val(name), Int_val(run_type),
-                  ((GtkObjectClass *)classe)->type, offset,
-                  gtk_signal_default_marshaller, GTK_TYPE_NONE, 0));
-  *(((int *)classe)+offset) = 0;
-}
-
-ML_1 (gtk_rc_add_default_file, String_val, Unit)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gtk.h b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gtk.h
deleted file mode 100644 (file)
index 29c2da5..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gtk.h
+++ /dev/null
@@ -1,15 +0,0 @@
-/* $Id$ */
-
-#define GtkObject_val(obj) ((GtkObject*)Field(obj,1))
-value Val_GtkObject (GtkObject *w);
-value Val_GtkObject_sink (GtkObject *w);
-#define Val_GtkAny(w) Val_GtkObject((GtkObject*)w)
-#define Val_GtkAny_sink(w) Val_GtkObject_sink((GtkObject*)w)
-#define Val_GtkWidget Val_GtkAny
-#define Val_GtkWidget_sink Val_GtkAny_sink
-
-#ifdef GTK_NO_CHECK_CASTS
-#define check_cast(f,v) f(Pointer_val(v))
-#else
-#define check_cast(f,v) (Pointer_val(v) == NULL ? NULL : f(Pointer_val(v)))
-#endif

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gtkgl.c b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gtkgl.c
deleted file mode 100644 (file)
index 5e0efd7..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gtkgl.c
+++ /dev/null
@@ -1,54 +0,0 @@
-/* $Id$ */
-
-#include <gtk/gtk.h>
-#include <gtkgl/gtkglarea.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "ml_gtk.h"
-#include "gtkgl_tags.h"
-
-/* Conversion functions */
-#include "gtkgl_tags.c"
-
-#define GtkGLArea_val(val) ((GtkGLArea*)GtkObject_val(val))
-
-value ml_gtk_gl_area_new (value list, value share)
-{
-    value cursor, res;
-    int len, i;
-    int *attrs;
-
-    for (len = 0, cursor = list; cursor != Val_unit; cursor = Field(cursor,1))
-    {
-       if (Is_block(Field(cursor,0))) len += 2;
-       else len++;
-    }
-
-    attrs = (int*) stat_alloc ((len+1)*sizeof(int));
-    
-    for (i = 0, cursor = list; cursor != Val_unit; cursor = Field(cursor,1))
-    {
-       value option = Field(cursor,0);
-       if (Is_block(option)) {
-           attrs[i++] = Visual_options_val(Field(option,0));
-           attrs[i++] = Int_val(Field(option,1));
-       }
-       else attrs[i++] = Visual_options_val(option);
-    }
-    attrs[i] = GDK_GL_NONE;
-
-    res = Val_GtkObject
-       ((GtkObject*)gtk_gl_area_share_new(attrs,GtkGLArea_val(share)));
-    stat_free(attrs);
-    return res;
-}
-
-ML_1 (gtk_gl_area_make_current, GtkGLArea_val, Val_bool)
-ML_1 (gtk_gl_area_swapbuffers, GtkGLArea_val, Unit)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gtkxmhtml.c b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gtkxmhtml.c
deleted file mode 100644 (file)
index 3f9c3c6..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/ml_gtkxmhtml.c
+++ /dev/null
@@ -1,76 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <gtk/gtk.h>
-#include <gtk-xmhtml/gtk-xmhtml.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "ml_gtk.h"
-#include "gtkxmhtml_tags.h"
-
-/* conversion functions */
-
-#include "gtkxmhtml_tags.c"
-
-Make_Flags_val (Line_type_val)
-
-#define GtkXmHTML_val(val) ((GtkXmHTML*)GtkObject_val(val))
-
-ML_0 (gtk_xmhtml_new, Val_GtkAny_sink)
-ML_1 (gtk_xmhtml_freeze, GtkXmHTML_val, Unit)
-ML_1 (gtk_xmhtml_thaw, GtkXmHTML_val, Unit)
-ML_2 (gtk_xmhtml_source, GtkXmHTML_val, String_val, Unit)
-ML_2 (gtk_xmhtml_set_string_direction, GtkXmHTML_val, String_direction_val,
-      Unit)
-ML_2 (gtk_xmhtml_set_alignment, GtkXmHTML_val, Position_val, Unit)
-/* ML_2 (gtk_xmhtml_outline, GtkXmHTML_val, Bool_val, Unit) */
-ML_3 (gtk_xmhtml_set_font_familty, GtkXmHTML_val, String_val, String_val, Unit)
-ML_3 (gtk_xmhtml_set_font_familty_fixed, GtkXmHTML_val, String_val, String_val,
-      Unit)
-ML_2 (gtk_xmhtml_set_font_charset, GtkXmHTML_val, String_val, Unit)
-ML_2 (gtk_xmhtml_set_allow_body_colors, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_hilight_on_enter, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_anchor_underline_type, GtkXmHTML_val, Flags_Line_type_val,
-      Unit)
-ML_2 (gtk_xmhtml_set_anchor_visited_underline_type, GtkXmHTML_val,
-      Flags_Line_type_val, Unit)
-ML_2 (gtk_xmhtml_set_anchor_target_underline_type, GtkXmHTML_val,
-      Flags_Line_type_val, Unit)
-ML_2 (gtk_xmhtml_set_allow_color_switching, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_dithering, GtkXmHTML_val, Dither_type_val, Unit)
-ML_2 (gtk_xmhtml_set_allow_font_switching, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_max_image_colors, GtkXmHTML_val, Int_val, Unit)
-ML_2 (gtk_xmhtml_set_allow_images, GtkXmHTML_val, Bool_val, Unit)
-ML_4 (gtk_xmhtml_set_plc_intervals, GtkXmHTML_val, Int_val, Int_val, Int_val,
-      Unit)
-/* ML_2 (gtk_xmhtml_set_def_body_image_url, GtkXmHTML_val, String_val, Unit) */
-ML_2 (gtk_xmhtml_set_anchor_buttons, GtkXmHTML_val, Bool_val, Unit)
-value ml_gtk_xmhtml_set_anchor_cursor(value html, value cursor)
-{
-     gtk_xmhtml_set_anchor_cursor
-          (GtkXmHTML_val(html), Option_val(cursor, GdkCursor_val, NULL),
-           Bool_val(cursor));
-     return Val_unit;
-}
-ML_2 (gtk_xmhtml_set_topline, GtkXmHTML_val, Int_val, Unit)
-ML_1 (gtk_xmhtml_get_topline, GtkXmHTML_val, Val_int)
-ML_2 (gtk_xmhtml_set_freeze_animations, GtkXmHTML_val, Bool_val, Unit)
-/* ML_1 (gtk_xmhtml_get_source, GtkXmHTML_val, copy_string) */
-ML_2 (gtk_xmhtml_set_screen_gamma, GtkXmHTML_val, Float_val, Unit)
-/* ML_2 (gtk_xmhtml_set_event_proc, GtkXmHTML_val, ???, Unit) */
-ML_2 (gtk_xmhtml_set_perfect_colors, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_uncompress_command, GtkXmHTML_val, String_val, Unit)
-ML_2 (gtk_xmhtml_set_strict_checking, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_bad_html_warnings, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_allow_form_coloring, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_imagemap_draw, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_mime_type, GtkXmHTML_val, String_val, Unit)
-ML_2 (gtk_xmhtml_set_alpha_processing, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_rgb_conv_mode, GtkXmHTML_val, Dither_type_val, Unit)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/var2conv.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/var2conv.ml
deleted file mode 100644 (file)
index 6730d14..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/var2conv.ml
+++ /dev/null
@@ -1,99 +0,0 @@
-(* $Id$ *)
-
-(* Compile a list of variant tags into CPP defines *) 
-
-(* hash_variant, from ctype.ml *)
-
-let hash_variant s =
-  let accu = ref 0 in
-  for i = 0 to String.length s - 1 do
-    accu := 223 * !accu + Char.code s.[i]
-  done;
-  (* reduce to 31 bits *)
-  accu := !accu land (1 lsl 31 - 1);
-  (* make it signed for 64 bits architectures *)
-  if !accu > 0x3FFFFFFF then !accu - (1 lsl 31) else !accu
-
-open Genlex
-
-let lexer = make_lexer ["type"; "public"; "exception"; "="; "["; "]"; "`"; "|"]
-
-let exn_name = ref "invalid_argument"
-
-let may_string = parser
-    [< ' String s >] -> s
-  | [< >] -> ""
-
-let may_bar = parser
-    [< ' Kwd "|" >] -> ()
-  | [< >] -> ()
-
-let rec ident_list = parser
-    [< ' Kwd "`"; ' Ident x; trans = may_string; _ = may_bar; s >] ->
-      (x, trans) :: ident_list s
-  | [< >] -> []
-
-let may_public = parser
-    [< ' Kwd "public" >] -> true
-  | [< >] -> false
-
-open Printf
-
-let declaration = parser
-    [< ' Kwd "type"; public = may_public; ' Ident name; ' Kwd "=";
-       prefix = may_string; ' Kwd "["; _ = may_bar;
-       tags = ident_list; ' Kwd "]"; suffix = may_string >] ->
-    let ctag tag trans =
-      if trans <> "" then trans else
-      let tag =
-       if tag.[0] = '_' then
-         String.sub tag ~pos:1 ~len:(String.length tag -1)
-       else tag
-      in
-      match
-       if prefix = "" then None, ""
-       else
-         Some (prefix.[String.length prefix - 1]), 
-         String.sub prefix ~pos:0 ~len:(String.length prefix - 1)
-      with
-       Some '#', prefix ->
-         prefix ^ String.uncapitalize tag ^ suffix
-      |        Some '^', prefix ->
-         prefix ^ String.uppercase tag ^ suffix
-      |        _ ->
-         prefix ^ tag ^ suffix
-    and cname =
-      String.capitalize name
-    in
-    let tags =
-      Sort.list tags
-       ~order:(fun (tag1,_) (tag2,_) -> hash_variant tag1 < hash_variant tag2)
-    in
-    printf "/* %s : conversion table */\n" name;
-    if not public then printf "static ";
-    printf "lookup_info ml_table_%s[] = {\n" name;
-    printf "  { 0, %d },\n" (List.length tags);
-    List.iter tags ~f:
-      begin fun (tag,trans) ->
-       printf "  { MLTAG_%s, %s },\n" tag (ctag tag trans)
-      end;
-    printf "};\n\n";
-    printf "#define Val_%s(data) ml_lookup_from_c (ml_table_%s, data)\n"
-      name name;
-    printf "#define %s_val(key) ml_lookup_to_c (ml_table_%s, key)\n\n"
-      cname name;
-  | [< 'Kwd"exception"; 'Ident name >] ->
-      exn_name := name
-  | [< >] -> raise End_of_file
-
-let main () =
-  let chars = Stream.of_channel stdin in
-  let s = lexer chars in
-  try
-    while true do declaration s done
-  with End_of_file -> ()
-  | Stream.Error err ->
-      Printf.eprintf "Parsing error \"%s\" at character %d on input stream"
-        err (Stream.count chars)
-
-let _ = Printexc.print main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/var2def.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/var2def.ml
deleted file mode 100644 (file)
index 617c4c6..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/var2def.ml
+++ /dev/null
@@ -1,44 +0,0 @@
-(* $Id$ *)
-
-(* Compile a list of variant tags into CPP defines *) 
-
-(* hash_variant, from ctype.ml *)
-
-let hash_variant s =
-  let accu = ref 0 in
-  for i = 0 to String.length s - 1 do
-    accu := 223 * !accu + Char.code s.[i]
-  done;
-  (* reduce to 31 bits *)
-  accu := !accu land (1 lsl 31 - 1);
-  (* make it signed for 64 bits architectures *)
-  if !accu > 0x3FFFFFFF then !accu - (1 lsl 31) else !accu
-
-open Genlex
-
-let lexer = make_lexer ["`"; "["; "]"; "|"]
-
-let main () =
-  let s = lexer (Stream.of_channel stdin) in
-  let tags = Hashtbl.create 57 in
-  while match s with parser
-    [< ' Kwd "`"; ' Ident tag >] ->
-      let hash = hash_variant tag in
-      begin try
-       let tag' = Hashtbl.find tags hash in
-       if tag <> tag' then
-         failwith (String.concat ~sep:" " ["Doublon tag:";tag;"and";tag'])
-      with Not_found ->
-       Hashtbl.add ~key:hash ~data:tag tags;
-       print_string "#define MLTAG_";
-       print_string tag;
-       print_string "\tVal_int(";
-       print_int hash;
-       print_string ")\n"
-      end;
-      true
-  | [< ' _ >] -> true
-  | [< >] -> false
-  do () done
-
-let _ = Printexc.print main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/wrappers.c b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/wrappers.c
deleted file mode 100644 (file)
index 7e83aa9..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/wrappers.c
+++ /dev/null
@@ -1,76 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-
-value copy_memblock_indirected (void *src, asize_t size)
-{
-    value ret = alloc (Wosize_asize(size)+2, Abstract_tag);
-    if (!src) ml_raise_null_pointer ();
-    
-    Field(ret,1) = 2;
-    memcpy (&Field(ret,2), src, size);
-    return ret;
-}
-
-value ml_some (value v)
-{
-     CAMLparam1(v);
-     value ret = alloc_small(1,0);
-     Field(ret,0) = v;
-     CAMLreturn(ret);
-}
-
-void ml_raise_null_pointer ()
-{
-  static value * exn = NULL;
-  if (exn == NULL)
-      exn = caml_named_value ("null_pointer");
-  raise_constant (*exn);
-}   
-
-value Val_pointer (void *ptr)
-{
-    value ret = alloc_small (2, Abstract_tag);
-    if (!ptr) ml_raise_null_pointer ();
-    Field(ret,1) = (value)ptr;
-    return ret;
-}
-
-value copy_string_check (const char*str)
-{
-    if (!str) ml_raise_null_pointer ();
-    return copy_string ((char*) str);
-}
-
-value copy_string_or_null (const char*str)
-{
-    return copy_string (str ? (char*) str : "");
-}
-
-value ml_lookup_from_c (lookup_info *table, int data)
-{
-    int i;
-    for (i = table[0].data; i > 0; i--)
-       if (table[i].data == data) return table[i].key;
-    invalid_argument ("ml_lookup_from_c");
-}
-    
-int ml_lookup_to_c (lookup_info *table, value key)
-{
-    int first = 1, last = table[0].data, current;
-
-    while (first < last) {
-       current = (first+last)/2;
-       if (table[current].key >= key) last = current;
-       else first = current + 1;
-    }
-    if (table[first].key == key) return table[first].data;
-    invalid_argument ("ml_lookup_to_c");
-}

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/wrappers.h b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/wrappers.h
deleted file mode 100644 (file)
index 1fcffcf..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/wrappers.h
+++ /dev/null
@@ -1,222 +0,0 @@
-/* $Id$ */
-
-#ifndef _wrappers_
-#define _wrappers_
-
-#include <caml/mlvalues.h>
-#include <caml/fail.h>
-
-value copy_memblock_indirected (void *src, asize_t size);
-value ml_some (value);
-void ml_raise_null_pointer (void) Noreturn;
-value Val_pointer (void *);
-value copy_string_check (const char*);
-value copy_string_or_null (const char *);
-
-typedef struct { value key; int data; } lookup_info;
-value ml_lookup_from_c (lookup_info *table, int data);
-int ml_lookup_to_c (lookup_info *table, value key);
-
-/* Wrapper generators */
-
-#define ML_0(cname, conv) \
-value ml_##cname (value unit) { return conv (cname ()); }
-#define ML_1(cname, conv1, conv) \
-value ml_##cname (value arg1) { return conv (cname (conv1 (arg1))); }
-#define ML_1_post(cname, conv1, conv, post) \
-value ml_##cname (value arg1) \
-{ value ret = conv (cname (conv1(arg1))); post; return ret; }
-#define ML_2(cname, conv1, conv2, conv) \
-value ml_##cname (value arg1, value arg2) \
-{ return conv (cname (conv1(arg1), conv2(arg2))); }
-#define ML_2_name(mlname, cname, conv1, conv2, conv) \
-value mlname (value arg1, value arg2) \
-{ return conv (cname (conv1(arg1), conv2(arg2))); }
-#define ML_3(cname, conv1, conv2, conv3, conv) \
-value ml_##cname (value arg1, value arg2, value arg3) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3))); }
-#define ML_3_name(mlname, cname, conv1, conv2, conv3, conv) \
-value mlname (value arg1, value arg2, value arg3) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3))); }
-#define ML_4(cname, conv1, conv2, conv3, conv4, conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4))); }
-#define ML_4_name(mlname, cname, conv1, conv2, conv3, conv4, conv) \
-value mlname (value arg1, value arg2, value arg3, value arg4) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4))); }
-#define ML_5(cname, conv1, conv2, conv3, conv4, conv5, conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4, value arg5) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4), \
-                     conv5(arg5))); }
-#define ML_6(cname, conv1, conv2, conv3, conv4, conv5, conv6, conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4, value arg5, \
-                 value arg6) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4), \
-                     conv5(arg5), conv6(arg6))); }
-#define ML_7(cname, conv1, conv2, conv3, conv4, conv5, conv6, conv7, conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4, value arg5, \
-                 value arg6, value arg7) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4), \
-                     conv5(arg5), conv6(arg6), conv7(arg7))); }
-#define ML_8(cname, conv1, conv2, conv3, conv4, conv5, conv6, conv7, conv8, \
-            conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4, value arg5, \
-                 value arg6, value arg7, value arg8) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4), \
-                     conv5(arg5), conv6(arg6), conv7(arg7), conv8(arg8))); }
-#define ML_9(cname, conv1, conv2, conv3, conv4, conv5, conv6, conv7, conv8, \
-             conv9, conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4, value arg5, \
-                 value arg6, value arg7, value arg8, value arg9) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4), \
-                     conv5(arg5), conv6(arg6), conv7(arg7), conv8(arg8), \
-                     conv9(arg9))); }
-#define ML_10(cname, conv1, conv2, conv3, conv4, conv5, conv6, conv7, conv8, \
-             conv9, conv10, conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4, value arg5, \
-                 value arg6, value arg7, value arg8, value arg9, value arg10)\
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4), \
-                     conv5(arg5), conv6(arg6), conv7(arg7), conv8(arg8), \
-                     conv9(arg9), conv10(arg10))); }
-#define ML_11(cname, conv1, conv2, conv3, conv4, conv5, conv6, conv7, conv8, \
-             conv9, conv10, conv11, conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4, value arg5, \
-                 value arg6, value arg7, value arg8, value arg9, value arg10,\
-                 value arg11) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4), \
-                     conv5(arg5), conv6(arg6), conv7(arg7), conv8(arg8), \
-                     conv9(arg9), conv10(arg10), conv11(arg11))); }
-#define ML_12(cname, conv1, conv2, conv3, conv4, conv5, conv6, conv7, conv8, \
-             conv9, conv10, conv11, conv12, conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4, value arg5, \
-                 value arg6, value arg7, value arg8, value arg9, value arg10,\
-                 value arg11, value arg12) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4), \
-                     conv5(arg5), conv6(arg6), conv7(arg7), conv8(arg8), \
-                     conv9(arg9), conv10(arg10), conv11(arg11), \
-                     conv12(arg12))); }
-
-/* Use with care: needs the argument index */
-#define Ignore(x)
-#define Insert(x) (x),
-#define Split(x,f,g) f(x), g(x) Ignore
-#define Split3(x,f,g,h) f(x), g(x), h(x) Ignore
-#define Pair(x,f,g) f(Field(x,0)), g(Field(x,1)) Ignore
-#define Triple(x,f,g,h) f(Field(x,0)), g(Field(x,1)), h(Field(x,2)) Ignore
-
-/* For more than 5 arguments */
-#define ML_bc6(cname) \
-value cname##_bc (value *argv, int argn) \
-{ return cname(argv[0],argv[1],argv[2],argv[3],argv[4],argv[5]); }
-#define ML_bc7(cname) \
-value cname##_bc (value *argv, int argn) \
-{ return cname(argv[0],argv[1],argv[2],argv[3],argv[4],argv[5],argv[6]); }
-#define ML_bc8(cname) \
-value cname##_bc (value *argv, int argn) \
-{ return cname(argv[0],argv[1],argv[2],argv[3],argv[4],argv[5],argv[6], \
-              argv[7]); }
-#define ML_bc9(cname) \
-value cname##_bc (value *argv, int argn) \
-{ return cname(argv[0],argv[1],argv[2],argv[3],argv[4],argv[5],argv[6], \
-              argv[7],argv[8]); }
-#define ML_bc10(cname) \
-value cname##_bc (value *argv, int argn) \
-{ return cname(argv[0],argv[1],argv[2],argv[3],argv[4],argv[5],argv[6], \
-              argv[7],argv[8],argv[9]); }
-#define ML_bc11(cname) \
-value cname##_bc (value *argv, int argn) \
-{ return cname(argv[0],argv[1],argv[2],argv[3],argv[4],argv[5],argv[6], \
-              argv[7],argv[8],argv[9],argv[10]); }
-#define ML_bc12(cname) \
-value cname##_bc (value *argv, int argn) \
-{ return cname(argv[0],argv[1],argv[2],argv[3],argv[4],argv[5],argv[6], \
-              argv[7],argv[8],argv[9],argv[10],argv[11]); }
-
-/* result conversion */
-#define Unit(x) ((x), Val_unit)
-#define Id(x) x
-#define Val_char Val_int
-
-/* parameter conversion */
-#define Bool_ptr(x) ((long) x - 1)
-#define Char_val Int_val
-#define Float_val(x) ((float)Double_val(x))
-
-#define Option_val(val,unwrap,default) \
-((long)val-1 ? unwrap(Field(val,0)) : default)
-#define String_option_val(s) Option_val(s,String_val,NULL)
-
-/* Utility */
-
-#define Copy_array(ret,l,src,conv) \
- if (!l) ret = Atom(0); \
- else if (l <= Max_young_wosize) { int i; ret = alloc_tuple(l); \
-   for(i=0;i<l;i++) Field(ret,i) = conv(src[i]); } \
- else { int i; ret = alloc_shr(l,0); \
-   for(i=0;i<l;i++) initialize (&Field(ret,i), conv(src[i])); }
-
-#define Make_Val_final_pointer(type, init, final, adv) \
-static void ml_final_##type (value val) \
-{ if (Field(val,1)) final ((type*)Field(val,1)); } \
-value Val_##type (type *p) \
-{ value ret; if (!p) ml_raise_null_pointer(); \
-  ret = alloc_final (2, ml_final_##type, adv, 1000); \
-  initialize (&Field(ret,1), (value) p); init(p); return ret; }
-
-#define Make_Val_final_pointer_ext(type, ext, init, final, adv) \
-static void ml_final_##type##ext (value val) \
-{ if (Field(val,1)) final ((type*)Field(val,1)); } \
-value Val_##type##ext (type *p) \
-{ value ret; if (!p) ml_raise_null_pointer(); \
-  ret = alloc_final (2, ml_final_##type##ext, adv, 1000); \
-  initialize (&Field(ret,1), (value) p); init(p); return ret; }
-
-#define Pointer_val(val) ((void*)Field(val,1))
-#define MLPointer_val(val) (Field(val,1) == 2 ? &Field(val,2) : (void*)Field(val,1))
-
-#define Val_addr(ptr) (1+(value)ptr)
-#define Addr_val(val) ((void*)(val-1))
-
-#define Wosize_asize(x) ((x-1)/sizeof(value)+1)
-#define Wosizeof(x) Wosize_asize(sizeof(x))
-
-#define Make_Extractor(name,conv1,field,conv2) \
-value ml_##name##_##field (value val) \
-{ return conv2 ((conv1(val))->field); }
-
-#define Make_Setter(name,conv1,conv2,field) \
-value ml_##name##_##field (value val, value new) \
-{ (conv1(val))->field = conv2(new); return Val_unit; }
-
-#define Make_Array_Extractor(name,conv1,conv2,field,conv) \
-value ml_##name##_##field (value val, value index) \
-{ return conv ((conv1(val))->field[conv2(index)]); }
-
-#define Make_Array_Setter(name,conv1,conv2,conv3,field) \
-value ml_##name##_##field (value val, value index, value new) \
-{ (conv1(val))->field[conv2(index)] = conv3(new); return Val_unit; }
-
-/* ML value is [flag list] */
-#define Make_Flags_val(conv) \
-int Flags_##conv (value list) \
-{ int flags = 0L; \
-  while Is_block(list) { flags |= conv(Field(list,0)); list = Field(list,1); }\
-  return flags; }
-
-/* ML value is [flag list option] */
-#define Make_OptFlags_val(conv) \
-int OptFlags_##conv (value list) \
-{ int flags = 0L; \
-  if Is_block(list) list = Field(list,0); \
-  while Is_block(list) { flags |= conv(Field(list,0)); list = Field(list,1); }\
-  return flags; }
-
-#define Val_copy(val) copy_memblock_indirected (&val, sizeof(val))
-#define Val_string copy_string_check
-#define Val_optstring copy_string_or_null
-#define Optstring_val(v) (string_length(v) ? String_val(v) : (char*)NULL)
-#define Val_option(v,f) (v ? ml_some(f(v)) : Val_unit)
-
-#define Check_null(v) (v ? v : (ml_raise_null_pointer (), v))
-
-#endif /* _wrappers_ */

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0-1.spec b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0-1.spec
deleted file mode 100644 (file)
index 8ab9a22..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0-1.spec
+++ /dev/null
@@ -1,143 +0,0 @@
-Summary: LablGTK : an interface to the GIMP Tool Kit for OCaml
-Name: lablgtk_20001129
-Version: 0.1.0
-Release: 1
-Copyright: LGPL
-Group: Development/Libraries
-Source: ftp://ftp.kurims.kyoto-u.ac.jp/pub/lang/olabl/lablgtk_20001129-0.1.0.tar.gz
-%description
-LablGTK is an interface to the GIMP Tool Kit for OCaml.
-
-%prep
-%setup
-
-%build
-make configure
-make
-make opt
-
-%install
-make install
-
-%files
-%doc CHANGES COPYING README doc
-
-/usr/lib/ocaml/lablgtk/gBin.cmi
-/usr/lib/ocaml/lablgtk/gBin.ml
-/usr/lib/ocaml/lablgtk/gBin.mli
-/usr/lib/ocaml/lablgtk/gButton.cmi
-/usr/lib/ocaml/lablgtk/gButton.ml
-/usr/lib/ocaml/lablgtk/gButton.mli
-/usr/lib/ocaml/lablgtk/gContainer.cmi
-/usr/lib/ocaml/lablgtk/gContainer.ml
-/usr/lib/ocaml/lablgtk/gContainer.mli
-/usr/lib/ocaml/lablgtk/gData.cmi
-/usr/lib/ocaml/lablgtk/gData.ml
-/usr/lib/ocaml/lablgtk/gData.mli
-/usr/lib/ocaml/lablgtk/gDraw.cmi
-/usr/lib/ocaml/lablgtk/gDraw.ml
-/usr/lib/ocaml/lablgtk/gDraw.mli
-/usr/lib/ocaml/lablgtk/gEdit.cmi
-/usr/lib/ocaml/lablgtk/gEdit.ml
-/usr/lib/ocaml/lablgtk/gEdit.mli
-/usr/lib/ocaml/lablgtk/gList.cmi
-/usr/lib/ocaml/lablgtk/gList.ml
-/usr/lib/ocaml/lablgtk/gList.mli
-/usr/lib/ocaml/lablgtk/gMain.cmi
-/usr/lib/ocaml/lablgtk/gMain.ml
-/usr/lib/ocaml/lablgtk/gMenu.cmi
-/usr/lib/ocaml/lablgtk/gMenu.ml
-/usr/lib/ocaml/lablgtk/gMenu.mli
-/usr/lib/ocaml/lablgtk/gMisc.cmi
-/usr/lib/ocaml/lablgtk/gMisc.ml
-/usr/lib/ocaml/lablgtk/gMisc.mli
-/usr/lib/ocaml/lablgtk/gObj.cmi
-/usr/lib/ocaml/lablgtk/gObj.ml
-/usr/lib/ocaml/lablgtk/gObj.mli
-/usr/lib/ocaml/lablgtk/gPack.cmi
-/usr/lib/ocaml/lablgtk/gPack.ml
-/usr/lib/ocaml/lablgtk/gPack.mli
-/usr/lib/ocaml/lablgtk/gRange.cmi
-/usr/lib/ocaml/lablgtk/gRange.ml
-/usr/lib/ocaml/lablgtk/gRange.mli
-/usr/lib/ocaml/lablgtk/gTree.cmi
-/usr/lib/ocaml/lablgtk/gTree.ml
-/usr/lib/ocaml/lablgtk/gTree.mli
-/usr/lib/ocaml/lablgtk/gUtil.cmi
-/usr/lib/ocaml/lablgtk/gUtil.ml
-/usr/lib/ocaml/lablgtk/gUtil.mli
-/usr/lib/ocaml/lablgtk/gWindow.cmi
-/usr/lib/ocaml/lablgtk/gWindow.ml
-/usr/lib/ocaml/lablgtk/gWindow.mli
-/usr/lib/ocaml/lablgtk/gaux.cmi
-/usr/lib/ocaml/lablgtk/gaux.ml
-/usr/lib/ocaml/lablgtk/gdk.cmi
-/usr/lib/ocaml/lablgtk/gdk.ml
-/usr/lib/ocaml/lablgtk/gdk.mli
-/usr/lib/ocaml/lablgtk/gdkEvent.cmi
-/usr/lib/ocaml/lablgtk/gdkEvent.ml
-/usr/lib/ocaml/lablgtk/gdkKeysyms.cmi
-/usr/lib/ocaml/lablgtk/gdkKeysyms.ml
-/usr/lib/ocaml/lablgtk/gdk_tags.h
-/usr/lib/ocaml/lablgtk/glGtk.mli
-/usr/lib/ocaml/lablgtk/glib.cmi
-/usr/lib/ocaml/lablgtk/glib.ml
-/usr/lib/ocaml/lablgtk/gpointer.cmi
-/usr/lib/ocaml/lablgtk/gpointer.ml
-/usr/lib/ocaml/lablgtk/gtk.cmi
-/usr/lib/ocaml/lablgtk/gtk.ml
-/usr/lib/ocaml/lablgtk/gtkArgv.cmi
-/usr/lib/ocaml/lablgtk/gtkArgv.ml
-/usr/lib/ocaml/lablgtk/gtkBase.cmi
-/usr/lib/ocaml/lablgtk/gtkBase.ml
-/usr/lib/ocaml/lablgtk/gtkBin.cmi
-/usr/lib/ocaml/lablgtk/gtkBin.ml
-/usr/lib/ocaml/lablgtk/gtkButton.cmi
-/usr/lib/ocaml/lablgtk/gtkButton.ml
-/usr/lib/ocaml/lablgtk/gtkData.cmi
-/usr/lib/ocaml/lablgtk/gtkData.ml
-/usr/lib/ocaml/lablgtk/gtkEdit.cmi
-/usr/lib/ocaml/lablgtk/gtkEdit.ml
-/usr/lib/ocaml/lablgtk/gtkInit.cmi
-/usr/lib/ocaml/lablgtk/gtkInit.cmo
-/usr/lib/ocaml/lablgtk/gtkInit.cmx
-/usr/lib/ocaml/lablgtk/gtkInit.ml
-/usr/lib/ocaml/lablgtk/gtkInit.o
-/usr/lib/ocaml/lablgtk/gtkList.cmi
-/usr/lib/ocaml/lablgtk/gtkList.ml
-/usr/lib/ocaml/lablgtk/gtkMain.cmi
-/usr/lib/ocaml/lablgtk/gtkMain.ml
-/usr/lib/ocaml/lablgtk/gtkMenu.cmi
-/usr/lib/ocaml/lablgtk/gtkMenu.ml
-/usr/lib/ocaml/lablgtk/gtkMisc.cmi
-/usr/lib/ocaml/lablgtk/gtkMisc.ml
-/usr/lib/ocaml/lablgtk/gtkNew.cmi
-/usr/lib/ocaml/lablgtk/gtkNew.ml
-/usr/lib/ocaml/lablgtk/gtkPack.cmi
-/usr/lib/ocaml/lablgtk/gtkPack.ml
-/usr/lib/ocaml/lablgtk/gtkRange.cmi
-/usr/lib/ocaml/lablgtk/gtkRange.ml
-/usr/lib/ocaml/lablgtk/gtkSignal.cmi
-/usr/lib/ocaml/lablgtk/gtkSignal.ml
-/usr/lib/ocaml/lablgtk/gtkSignal.mli
-/usr/lib/ocaml/lablgtk/gtkThInit.cmi
-/usr/lib/ocaml/lablgtk/gtkThInit.cmo
-/usr/lib/ocaml/lablgtk/gtkThInit.ml
-/usr/lib/ocaml/lablgtk/gtkThread.cmi
-/usr/lib/ocaml/lablgtk/gtkThread.cmo
-/usr/lib/ocaml/lablgtk/gtkThread.ml
-/usr/lib/ocaml/lablgtk/gtkTree.cmi
-/usr/lib/ocaml/lablgtk/gtkTree.ml
-/usr/lib/ocaml/lablgtk/gtkWindow.cmi
-/usr/lib/ocaml/lablgtk/gtkWindow.ml
-/usr/lib/ocaml/lablgtk/gtk_tags.h
-/usr/lib/ocaml/lablgtk/lablgtk.a
-/usr/lib/ocaml/lablgtk/lablgtk.cma
-/usr/lib/ocaml/lablgtk/lablgtk.cmxa
-/usr/lib/ocaml/lablgtk/lablgtktop
-/usr/lib/ocaml/lablgtk/lablgtktop_t
-/usr/lib/ocaml/lablgtk/liblablgtk.a
-/usr/lib/ocaml/lablgtk/ml_gdk.h
-/usr/lib/ocaml/lablgtk/ml_glib.h
-/usr/lib/ocaml/lablgtk/ml_gtk.h
-/usr/lib/ocaml/lablgtk/wrappers.h

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0.tar.gz b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0.tar.gz
deleted file mode 100644 (file)
index dbb907a..0000000
Binary files a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0.tar.gz and /dev/null differ

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/.cvsignore b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/.cvsignore
deleted file mode 100644 (file)
index 0ea779d..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/.cvsignore
+++ /dev/null
@@ -1,10 +0,0 @@
-.depend
-config.make
-varcc
-lablgtk
-lablgtktop
-lablgtktop_t
-lablgtkrun
-*_tags.c
-*_tags.h
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/CHANGES b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/CHANGES
deleted file mode 100644 (file)
index 5b6669c..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/CHANGES
+++ /dev/null
@@ -1,365 +0,0 @@
-$Id$
-
-2000.11.29
-  * remove unison port, since unison already works with this snapshot
-
-2000.11.16
-  * internal change: switch from var2def/var2conv to varcc,
-    and split ml_gtk.c in smaller files
-
-2000.8.29
-  * bugs in color selection reported by Nicolas George
-  * changed the license
-
-2000.8.21
-  * correct GtkStyle.set_font bug reported by Patrick Doane
-
-2000.7.27
-  * changed GUtil.signal and GUtil.variable for better usability
-  * suppressed obsolete color settings in tooltips
-
-2000.6.19
-  * patch by Michael Welsh for Gdk regions
-
-2000.6.15
-  * add CList.set_cell_style/set_row_style
-  * change set_usize/set_uposition into set_geometry
-  * return an option rather than raise an exception for null pointers
-  * map empty strings to NULL when meaningful
-  * Gdk.Font.get_type/ascent/descent
-
-2000.6.14
-  * add GDraw.optcolor for functions with a default (Jerome suggested)
-
-2000.6.8
-  * apply Jerome Vouillon's patch
-  * changes in GtkSignal and GtkArgv.ml
-
-2000.6.7
-  * create #misc#connect for widget generic signals
-
-2000.6.6
-  * move notebook from GMisc to GPack
-  * #connect#event, #add_event, #misc#event, #misc#set_events_extension
-    transferred to #event su-bobject.
-  * #connect#drag -> #drag#connect.
-  * #get_type, #connect#disconnect, #connect#stop_emit transferred to #misc.
-
-2000.5.25
-  * split misc.ml into gaux.ml and gpointer.ml
-
-2000.5.23
-  * add GMisc.notebook#get_{tab,menu}_label. Rename nth_page to get_nth_page.
-  * modified ML signals in GUtil, to allow signals without widget.
-
-2000.5.22
-  * Incompatible!: Change default for ~expand in Box.pack,
-    Pack.build_options, Table.build_options. Now defaults to false/`NONE.
-    This means that all options default to false/`NONE, except ~show
-    (true for all widgets except windows) and ~fill (always true but
-    effect controlled by ~expand).
-  * add GtkArgv.get_nativeint and GtkArgv.set_nativeint.
-  * make offset and length optional in GtkArgv.string_at_pointer.
-
-2000.5.10
-  * rename GtkFrame to GtkBin and GFrame to GBin
-  * move socket to GBin
-
-2000.5.9
-  * add arrow and image classes to GMisc
-  * add list and set_item_string methods to GEdit.combo
-  * add socket and plug classes to GContainer and GWindow
-  * two new examples: combo.ml and socket.ml
-
-2000.4.28
-  * add GUtil.variable
-
-2000.4.27
-  * add GtkXmHTML widget
-
-2000.4.26
-  * release 1.00
-
-2000.4.24
-  * merge in changes for ocaml 3.00: label and syntax changes, autolink
-  * added better visual and colormap handling to Gdk
-  * GdkObj renamed to GDraw, GtkPixmap moved to GMisc
-  * Initialize Gtk in gtkInit.cmo/cmx, start a thread in gtkInitThread.cmo.
-    These are only included in toplevels, link them explicitely or call
-    GMain.Main.init and GtkThread.start otherwise.
-  * install to caml standard library
-  * many other forgotten changes...
-
-2000.3.02
-  * move locale setting inside GtkMain.init, since it requires an
-    X display
-
-2000.2.24
-  * add checks in add methods, to avoid critical errors
-
-2000.2.23
-  * add dcalendar.ml (submitted by Ken Wakita) and csview.ml
-  * correct bug in GdkObj.pixmap#line
-
-1999.12.19
-  * release lablGTK beta2
-
-1999.12.16
-  * upgraded unison to version 1.169
-  * radio groups are of type {radio_menu_item,radio_button} obj option,
-    otherwise you could not use them several times
-
-1999.12.13
-  * added GtkEdit::{insert_text,delete_text} signals
-  * better syntax highlighting and ergonomy in the browser's shell
-
-1999.11...
-  * switched to Objective Caml 3
-  * constructors are no longer classes, but simple functions
-
-1999.10.29
-  * changed GtkArgv.get_{string,pointer,object} to return option types
-
-1999.10.27
-  * added radtest/CHANGES for cooperative editing on radtest
-
-1999.10.21
-  * added a UI for unison
-    (ask bcpierce@saul.cis.upenn.edu about how to get unison)
-
-1999.10.20
-  * corrected CList signals
-  * moved initialization out of the library, in gtkInit.cmo
-
-1999.10.15
-  * release lablGTK beta1
-
-1999.10.13
-  * improved gtkThread.ml (no timer)
-  * modify Sys.argv in place (gtkMain.ml)
-  * add set_row_data and get_row_data for GtkCList
-
-1999.10.11
-  * bugfixes in Makefile, radtest and lv
-
-1999.10.6
-  * added Gdk.X.flush and Gdk.X.beep 
-  * Gdk.X.flush is exported in GtkMain.Main
-
-1999.9.9
-  * added font selection dialog
-
-1999.8.25
-  * re-added connect#draw
-
-1999.8.10
-  * reduced the number of methods in widget
-  * moved disconnect and stop_emit to object_signals
-  * moved ?:after to each signal
-  * more functions in applications/browser
-
-1999.8.9
-  * Major change: created one set_param method by parameter,
-    rather than grouping them and using options.
-    You can get previous versions with tag "changing_set"
-  * corrected examples, radtest and browser for these changes
-  * a bit of clean-up in radtest (treew.ml and Makefile)
-
-1999.8.5
-  * corrected a bad bug with indirected pointers in caml heap
-
-1999.7.15
-  * add GdkKeysyms for exotic keysyms
-
-1999.7.14
-  * moved Truecolor inside Gdk
-  * added COPYING
-  * prepared for release
-
-1999.7.12
-  * clean up drag-and-drop
-
-1999.7.9
-  * corrected bug in Container.children
-  * added ML signal support in GUtil
-
-1999.7.6
-  * added DnD, improved radtest (Hubert)
-  * small corrections (Jacques)
-
-1999.7.1
-  * added some gdk functions related window and ximage
-  * also added applications/lv, "labl image viewer" with
-    the camlimage library.
-  (JPF)
-
-1999.7.1
-  * added applications/lablglade (Koji)
-
-1999.6.28
-  * added applications/radtest (Hubert)
-
-1999.6.23
-  * improved variant conversions for space.
-
-1999.6.22
-  * updated olabl.patch. With this new version you can access fields
-    of records without opening modules.  You can also use several times
-    the same label in one module.
-  * examples/GL/morph3d.ml uses it.
-
-1999.6.21
-  * moved event functions to GdkEvent
-
-1999.6.20
-  * new example: radtest.ml (Hubert)
-
-1999.6.18
-  * added GL extension
-
-1999.6.15
-  * grouped set methods into set_<keyword>
-  * added width and height option to all classes
-  * windows not shown are automatically destroyed by the GC
-
-1999.6.14
-  * added GPack.layout, GPack.packer, GPack.paned, GMisc.notebook,
-    GRange.scale, GMisc.calendar
-  * added 3 examples
-  * #add_events only available on windowed widgets
-
-1999.6.11
-  * added CList widget in GList module, and examples/clist.ml
-  * improved pixmap abstraction in GdkObj / GPix
-
-1999.6.10
-  * suppressed almost all raw pointers from the code. Pointers are now
-    either boxed (second field of an abstract block) or marked (lowest
-    bit set to 1).
-
-1999.6.9
-  * added GtkBase.Object.get_id and GObj.gtkobj#get_id to get an
-    unique identifier to gtk objects. Nice for hash-tables, etc...
-  * GUtil.memo is such an hash-table, allowing you to recover an
-    object's wrapper.
-  * added a show option to all classes, commanding whether the widget
-    should be shown immediately.  It is by default true on all widgets
-    except in module GWindow.
-  * moved non-OO examples to examples/old. Do "cvs update -d old" to
-    get them.
-  * changes in Gdk/GtkData/GObj about styles.
-
-1999.6.8
-  * updated olabl.patch
-
-1999.6.7
-  * split gtk.ml into gtk*.ml
-
-1999.6.5
-  * grouped Container focus operations in a "focus" subwidget
-
-1999.6.4
-  * slightly reorganized widget grouping
-
-1999.6.3
-  * disabled gtk_caller
-  * subtle hack to have GTree get the right interface
-  * switched completely to the new widget scheme (including examples)
-  * added olabl.patch to apply to olabl-2.02 to compile new sources
-
-1999.6.2
-  * integrated changes from Hubert in Gtk, GtkObj and testgtk.ml
-  * added G* modules to replace GtkObj. "make lablgtk2" for it
-
-1999.6.1
-  * added experimental GtkMenu for a cleaner approach to OO (Jacques)
-
-1999.5.31
-  * GtkObj: list, tree and menu_shell inherit from item_container (Jacques)
-  * Argv.get_{string,pointer,object} may raise Null_pointer (Jacques)
-  * Support for creating new widgets (Hubert)
-
-1999.5.28
-  * a few stylistic corrections
-  * added Packer in gtk.ml
-
-1999.5.27
-  * new Gtk.Main.main Gtk.Main.quit and GtkThread.main (for modal windows)
-  * added x: and y: to Window.setter
-  * new methods: object#get_type widget#misc#lock_accelerators
-    widget#misc#visible widget#misc#parent container#set_focus#vadjustment
-    container#set_focus#hadjustment (could be container#set_focus#adjustment with a dir param)
-    window#set_modal window#set_position window#set_default_size
-    window#set_transient_for
-    menu#set_accel_group
-  * new classes: handle_box_skel handle_box_signals handle_box
-    bbox color_selection color_selection_dialog toolbar
-    and the corresponding modules in gtk.ml
-    new class type: is_window and method as_window
-  * new param tearoff: in new_menu_item
-    new param x: and y: modal: in Window.setter
-  * Widget.event and Widget.activate return bool
-  * new example: examples/testgtk.ml and test.xpm
-  (Hubert)
-
-1999.5.25
-  * upgraded to gtk+-1.2.3 (all examples work)
-  * suppressed deprecated function calls and corrected examples
-  * added a patch to use toplevel threads in olabl-2.02
-
-1998.12.13
-  * upgraded to olabl-2.01
-
-1998.12.9
-  * replicated Main, Timeout and Grab to GtkObj (no need to open Gtk anymore)
-  * moved some non standard classes to GtkExt
-
-1998.12.8
-  * added the first application, xxaplay, Playstation audio track 
-    player for linux. (How architecture specific!) (Furuse)
-
-1998.12.8
-  * more widgets in GtkObj
-  * refined memory management
-  * all variants in upper case
-
-1998.12.7
-  * after deeper thought, re-introduced the connect sub-object
-  * simplified GtkObj: use simple inheritance and allow easy subtyping
-  * updated olabl.diffs for bugs in class functions parsing and printing
-  * add ThreadObj for concurrent object programming
-  (Jacques)
-
-1998.12.3
-  * pousse.ml is now a reversi game (idea for strategy ?)
-  * solved startup bug (a value checker for ocaml is now available)
-  (Jacques)
-
-1998.12.2
-  * added GdkObj for high level drawing primitives (Jacques)
-
-1998.11.30
-  * removed cast checking for NULL valued widgets (ml_gtk.[ch])
-  * module Arg is renamed as GtkArg because of the name corrision with
-       the module Arg in the standard library
-  * Makefile : native code compilation added
-  (Furuse)
- 
-1998.11.29
-  * renamed widget_ops sub-object to misc
-  * various improvements of set functions
-  (Jacques)
-
-1998.11.28
-  * switched to object-oriented model. GtkObj is now the standard way
-    to access the library, but not all objects are ready (see README)
-  * removed inheritance in gtk.ml
-  (Jacques)
-
-1998.11.24
-  * added inheritance in gtk.ml
-
-1998.11.22
-  * added gtkObj.ml and examples/*_obj.ml
-  * various modifications in gtk.ml
-                                  

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/COPYING b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/COPYING
deleted file mode 100644 (file)
index d417b8b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/COPYING
+++ /dev/null
@@ -1,28 +0,0 @@
-This library is made available under the LGPL.
-You should have got a copy of the LGPL with Objective Caml.
-The LGPL applies to all the files in this directory, but not in
-subdirectories.
-
-For the examples subdirectory, there is no specific licensing policy,
-but you may freely take inspiration from the code, and copy parts of
-it in your application.
-
-For the applications subdirectory, stricter rules apply:
-
-* You are free to do anything you want with this code as long as it is
-  for personal use.
-
-* Redistribution can only be "as is".  Binary distribution and bug
-  fixes are allowed, but you cannot extensively modify the code
-  without asking the authors.
-
-The authors may choose to remove any of the above restrictions on a
-per request basis.
-
-Authors:
-       Jacques Garrigue <garrigue@kurims.kyoto-u.ac.jp>
-       Hubert Fauque  <hubert.fauque@wanadoo.fr>
-       Jun Furuse     <Jun.Furuse@inria.fr>
-       Koji Kagawa    <kagawa@eng.kagawa-u.ac.jp>
-
-$Id$
\ No newline at end of file

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/Makefile b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/Makefile
deleted file mode 100644 (file)
index a0ac04f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/Makefile
+++ /dev/null
@@ -1,187 +0,0 @@
-# $Id$
-# Makefile for lablgtk.
-
-TARGETS = varcc lablgtktop lablgtktop_t lablgtkrun lablgtk
-
-all: $(TARGETS)
-
-opt: lablgtkopt
-
-configure:
-       @rm -f config.make
-       @$(MAKE) --no-print-directory -f configure.mk
-
-depend:
-       @rm -f .depend
-       @$(MAKE) --no-print-directory -f configure.mk .depend
-
-.depend config.make:
-       @$(MAKE) --no-print-directory -f configure.mk
-
-COMPILER = $(CAMLC) $(MLFLAGS) -w s -labels -c
-LINKER = $(CAMLC) $(MLFLAGS)
-COMPOPT = $(CAMLOPT) $(MLFLAGS) -w s -labels -c
-LINKOPT = $(CAMLOPT) $(MLFLAGS)
-TOPLEVEL = ocamlmktop $(MLFLAGS)
-
-include config.make
-
-INSTALLDIR = $(LIBDIR)/lablgtk
-LABLGLDIR = $(LIBDIR)/lablGL
-
-MLLIBS = lablgtk.cma
-CLIBS = liblablgtk.a
-MLLINK = unix.cma str.cma
-
-ifdef DEBUG
-CFLAGS = -g $(GTKCFLAGS)
-MLLINK += -cclib -lcamlrund
-MLFLAGS = -g
-else
-CFLAGS = -O -DGTK_NO_CHECK_CASTS -DGTK_DISABLE_COMPAT_H $(GTKCFLAGS)
-endif
-
-THFLAGS = -thread
-THLINK = unix.cma threads.cma
-
-ifdef USE_CC
-CCOMPILER = $(CC) -c -I$(LIBDIR) $(CFLAGS)
-else
-CCOMPILER = ocamlc -c -ccopt "$(CFLAGS)"
-endif
-
-ifdef USE_GL
-MLFLAGS += -I $(LABLGLDIR)
-MLLINK += lablgl.cma
-MLLIBS += lablgtkgl.cma
-CLIBS += liblablgtkgl.a
-GLLINK = -cclib -llablgtkgl -cclib -lgtkgl
-GLMLOBJS = glGtk.cmo
-GLCOBJS = ml_gtkgl.o
-
-endif
-
-ifdef USE_GNOME
-MLLIBS += lablgnome.cma
-CLIBS += liblablgnome.a
-GNOMEMLOBJS = gtkXmHTML.cmo gHtml.cmo
-GNOMECOBJS = ml_gtkxmhtml.o
-endif
-
-# Rules
-.SUFFIXES: .ml .mli .cmo .cmi .cmx .c .o .var .h .opt .def
-.c.o:
-       $(CCOMPILER) $<
-.ml.cmo:
-       $(COMPILER) $<
-.mli.cmi:
-       $(COMPILER) $<
-.ml.cmx:
-       $(COMPOPT) $<
-.var.h:
-       ./varcc $<
-
-# Targets
-GTKOBJS = ml_gtk.o ml_gtkbin.o ml_gtkbutton.o ml_gtkedit.o ml_gtklist.o \
-       ml_gtkmenu.o ml_gtkmisc.o ml_gtknew.o ml_gtkpack.o ml_gtkrange.o \
-       ml_gtktree.o
-COBJS = ml_gdk.o ml_glib.o wrappers.o $(GTKOBJS)
-MLOBJS = gaux.cmo gpointer.cmo glib.cmo gdk.cmo gdkEvent.cmo gdkKeysyms.cmo \
-       gtk.cmo gtkArgv.cmo gtkSignal.cmo \
-       gtkData.cmo gtkBase.cmo gtkPack.cmo gtkButton.cmo \
-       gtkMenu.cmo gtkMisc.cmo gtkWindow.cmo gtkTree.cmo gtkList.cmo \
-       gtkBin.cmo gtkEdit.cmo gtkRange.cmo gtkMain.cmo gtkNew.cmo \
-       gDraw.cmo \
-       gObj.cmo gMain.cmo gData.cmo gContainer.cmo gPack.cmo gButton.cmo \
-       gMenu.cmo gMisc.cmo gWindow.cmo gTree.cmo gList.cmo gBin.cmo \
-       gEdit.cmo gRange.cmo gUtil.cmo
-THOBJS = gtkThread.cmo
-INITOBJS = gtkInit.cmo
-THINITOBJS = gtkThInit.cmo
-ALLOBJS = $(MLOBJS) $(GLMLOBJS) $(GNOMEMLOBJS) $(THOBJS) \
-       $(INITOBJS) $(THINITOBJS)
-
-lablgtktop: $(CLIBS) $(MLLIBS) $(INITOBJS)
-       $(TOPLEVEL) -o $@ $(MLLINK) -ccopt -L. $(MLLIBS) $(INITOBJS)
-
-lablgtktop_t: $(CLIBS) $(MLLIBS) $(THOBJS) $(INITOBJS) $(THINITOBJS)
-       $(TOPLEVEL) $(THFLAGS) -o $@ $(THLINK) $(MLLINK) \
-          -ccopt -L. $(MLLIBS) $(THOBJS) $(INITOBJS) $(THINITOBJS)
-
-lablgtk: Makefile config.make lablgtk.in
-       sed -e "s|@INSTALLDIR@|$(INSTALLDIR)|g" \
-           -e "s|@LABLGLDIR@|$(LABLGLDIR)|g" \
-           -e "s|@LIBDIR@|$(LIBDIR)|g" \
-           < lablgtk.in > $@
-       chmod 755 $@
-
-lablgtkrun: $(CLIBS) $(MLLIBS)
-       $(LINKER) -o $@ -make-runtime $(MLLINK) -ccopt -L. $(MLLIBS)
-
-lablgtkopt: $(CLIBS) $(MLLIBS:.cma=.cmxa) $(INITOBJS:.cmo=.cmx) \
-       $(THOBJS:.cmo=.cmx)
-
-install:
-       if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
-       cp $(ALLOBJS:.cmo=.cmi) $(INSTALLDIR)
-       cp *.mli $(INSTALLDIR)
-       cp *.h $(INSTALLDIR)
-       cp $(ALLOBJS:.cmo=.ml) $(INSTALLDIR)
-       cp $(MLLIBS) $(THOBJS) $(INITOBJS) $(THINITOBJS) $(INSTALLDIR)
-       cp $(CLIBS) $(INSTALLDIR)
-       cp lablgtktop  lablgtktop_t $(INSTALLDIR)
-       cp lablgtk lablgtkrun $(BINDIR)
-       if test -f lablgtk.cmxa; then \
-          cp $(MLLIBS:.cma=.cmxa) $(MLLIBS:.cma=.a) \
-             $(INITOBJS:.cmo=.cmx) $(INITOBJS:.cmo=.o) $(INSTALLDIR); fi
-       if test -f gtkThread.cmx; then \
-          cp $(THOBJS:.cmo=.cmx) $(THOBJS:.cmo=.o) $(INSTALLDIR); fi
-
-liblablgtk.a: $(COBJS)
-       ar rc $@ $(COBJS)
-       $(RANLIB) $@
-lablgtk.cma: $(MLOBJS)
-       $(LINKER) -a -custom -o $@ $(MLOBJS) \
-         -cclib -llablgtk $(GTKLIBS)
-lablgtk.cmxa: $(MLOBJS:.cmo=.cmx)
-       $(LINKOPT) -a -o $@ $(MLOBJS:.cmo=.cmx) \
-         -cclib -llablgtk $(GTKLIBS)
-
-liblablgtkgl.a: $(GLCOBJS)
-       ar rc $@ $(GLCOBJS)
-       $(RANLIB) $@
-lablgtkgl.cma: $(GLMLOBJS)
-       $(LINKER) -a -custom -o $@ $(GLLINK) $(GLMLOBJS)
-lablgtkgl.cmxa: $(GLMLOBJS:.cmo=.cmx)
-       $(LINKOPT) -a -o $@ $(GLLINK) $(GLMLOBJS:.cmo=.cmx)
-
-liblablgnome.a: $(GNOMECOBJS)
-       ar rc $@ $(GNOMECOBJS)
-       $(RANLIB) $@
-lablgnome.cma: $(GNOMEMLOBJS)
-       $(LINKER) -a -custom -o $@ $(GNOMEMLOBJS) \
-         -cclib -llablgnome $(GNOMELIBS)
-lablgnome.cmxa: $(GNOMEMLOBJS:.cmo=.cmx)
-       $(LINKOPT) -a -o $@ $(GNOMEMLOBJS:.cmo=.cmx) \
-         -cclib -llablgnome $(GNOMELIBS)
-
-gtkThread.cmo: gtkThread.ml
-       $(COMPILER) $(THFLAGS) gtkThread.ml
-
-gtkThread.cmx: gtkThread.ml
-       if test -f $(LIBDIR)/libthreadsnat.a; then \
-          $(COMPOPT) $(THFLAGS) gtkThread.ml; fi
-
-varcc: varcc.cmo
-       $(LINKER) -o $@ varcc.cmo
-       rm -f *_tags.h *_tags.c
-
-clean:
-       rm -f *.cm* *.o *.a *_tags.[ch] $(TARGETS)
-
-$(GTKOBJS): gtk_tags.h ml_gtk.h ml_gdk.h wrappers.h
-ml_gdk.o: gdk_tags.h ml_gdk.h wrappers.h
-ml_gtkgl.o: gtkgl_tags.h ml_gtk.h ml_gdk.h wrappers.h
-ml_gtkxmhtml.o: gtkxmhtml_tags.h ml_gtk.h ml_gdk.h wrappers.h
-
-include .depend

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/Makefile.nt b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/Makefile.nt
deleted file mode 100644 (file)
index bdf5b6c..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/Makefile.nt
+++ /dev/null
@@ -1,147 +0,0 @@
-# $Id$
-# Makefile for lablgtk.
-
-EXE = .exe
-TARGETS = var2conv var2def lablgtk$(EXE) lablgtk_t$(EXE) \
-       lablgtkrun$(EXE) config.make
-
-all: $(TARGETS)
-
-opt: lablgtkopt
-
-CAMLC = ocamlc
-CAMLOPT = ocamlopt
-COMPILER = $(CAMLC) $(MLFLAGS) -w s -labels -c
-LINKER = $(CAMLC) $(MLFLAGS)
-COMPOPT = $(CAMLOPT) $(MLFLAGS) -w s -labels -c
-LINKOPT = $(CAMLOPT) $(MLFLAGS)
-
-TOPLEVEL = ocamlmktop $(MLFLAGS)
-### How to invoke the librarian
-MKLIB=lib /nologo /debugtype:CV /out:
-
-!include config.make.nt
-
-INSTALLDIR = $(LIBDIR:/=\)\lablgtk
-BINDIR = $(LIBDIR:/=\)\..\bin
-LABLGLDIR = $(LIBDIR)/lablGL
-
-CFLAGS = -O -DGTK_NO_CHECK_CASTS -DGTK_DISABLE_COMPAT_H $(GTKCFLAGS)
-LDFLAGS = $(GTKLIBS)
-
-THFLAGS = -thread
-THLIBS = unix.cma threads.cma
-
-!if $(USE_CC) == 1
-CCOMPILER = $(CC) -c -I$(LIBDIR) $(CFLAGS)
-!else
-CCOMPILER = ocamlc -c -ccopt "$(CFLAGS)"
-!endif
-
-!if $(USE_GL) == 1
-MLFLAGS = $(MLFLAGS) -I $(LIBDIR)/lablGL
-GLLINK = -I $(LABLGLDIR) lablgl.cma -cclib -lgtkgl
-GLMLOBJS = glGtk.cmo
-GLCOBJS = ml_gtkgl.o
-!endif
-
-# Rules
-.SUFFIXES: .ml .mli .cmo .cmi .cmx .c .obj .var .h .opt .def
-.c.obj:
-       $(CCOMPILER) $<
-.ml.cmo:
-       $(COMPILER) $<
-.mli.cmi:
-       $(COMPILER) $<
-.ml.cmx:
-       $(COMPOPT) $<
-.var.h:
-       ocamlrun ./var2def < $< > $@
-.var.c:
-       ocamlrun ./var2conv < $< > $@
-
-# Targets
-COBJS = ml_gtk.obj ml_gdk.obj ml_glib.obj wrappers.obj $(GLCOBJS)
-OLDMLOBJS = misc.cmo glib.cmo gdk.cmo gtk.cmo gdkObj.cmo gtkObj.cmo gtkExt.cmo
-MLOBJS = misc.cmo glib.cmo gdk.cmo gdkEvent.cmo gdkKeysyms.cmo \
-       gtk.cmo gtkArgv.cmo gtkSignal.cmo \
-       gtkData.cmo gtkBase.cmo gtkPack.cmo gtkButton.cmo \
-       gtkMenu.cmo gtkMisc.cmo gtkWindow.cmo gtkTree.cmo gtkList.cmo \
-       gtkFrame.cmo gtkEdit.cmo gtkRange.cmo gtkMain.cmo gtkNew.cmo \
-       gDraw.cmo \
-       gObj.cmo gMain.cmo gData.cmo gContainer.cmo gPack.cmo gButton.cmo \
-       gMenu.cmo gMisc.cmo gWindow.cmo gTree.cmo gList.cmo gFrame.cmo \
-       gEdit.cmo gRange.cmo gUtil.cmo $(GLMLOBJS)
-THOBJS = gtkThread.cmo threadObj.cmo
-INITOBJS = gtkInit.cmo
-THINITOBJS = gtkThInit.cmo
-ALLOBJS = $(MLOBJS) $(THOBJS) $(INITOBJS) $(THINITOBJS)
-
-lablgtk$(EXE): liblablgtk.lib lablgtk.cma $(INITOBJS)
-       $(TOPLEVEL) -custom -o $@ unix.cma str.cma $(GLLINK) \
-           lablgtk.cma $(INITOBJS)
-
-lablgtk_t$(EXE): liblablgtk.lib lablgtk.cma $(THOBJS) $(INITOBJS) $(THINITOBJS)
-       $(TOPLEVEL) -custom $(THFLAGS) -o $@ $(THLIBS) str.cma $(GLLINK) \
-           lablgtk.cma $(THOBJS) $(INITOBJS) $(THINITOBJS)
-
-lablgtkrun$(EXE): liblablgtk.lib lablgtk.cma
-       $(LINKER) -o $@ -make-runtime $(GLLINK) lablgtk.cma
-
-lablgtkopt: liblablgtk.lib lablgtk.cmxa gtkInit.cmx
-
-install:
-       if not exist $(INSTALLDIR) mkdir $(INSTALLDIR)
-       cp $(ALLOBJS:.cmo=.cmi) $(INSTALLDIR)
-       cp *.mli $(INSTALLDIR)
-       cp $(ALLOBJS:.cmo=.ml) $(INSTALLDIR)
-       cp lablgtk.cma $(THOBJS) $(INITOBJS) $(THINITOBJS) $(INSTALLDIR)
-       cp liblablgtk.lib $(INSTALLDIR)
-       cp lablgtk$(EXE) lablgtk_t$(EXE) lablgtkrun$(EXE) $(BINDIR)
-       if exist lablgtk.cmxa cp lablgtk.cmxa lablgtk.lib gtkInit.cmx gtkInit.obj $(INSTALLDIR)
-
-liblablgtk.lib: $(COBJS)
-       $(MKLIB)$@ $(COBJS)
-
-lablgtk.cma: $(MLOBJS)
-       $(LINKER) -a -custom -o $@ $(MLOBJS) \
-         -cclib -llablgtk $(GTKLIBS)
-
-lablgtk.cmxa: $(MLOBJS:.cmo=.cmx)
-       $(LINKOPT) -a -o $@ $(MLOBJS:.cmo=.cmx) \
-         -cclib -llablgtk $(GTKLIBS)
-
-gtkThread.cmo: gtkThread.ml
-       $(COMPILER) $(THFLAGS) gtkThread.ml
-
-threadObj.cmo: threadObj.ml
-       $(COMPILER) $(THFLAGS) threadObj.ml
-
-gtkThread.cmx: gtkThread.ml
-       $(COMPOPT) $(THFLAGS) gtkThread.ml
-
-threadObj.cmx: threadObj.ml
-       $(COMPOPT) $(THFLAGS) threadObj.ml
-
-var2conv: var2conv.cmo
-       $(LINKER) -o $@ var2conv.cmo
-       rm -f *_tags.c
-
-var2def: var2def.cmo
-       $(LINKER) -o $@ var2def.cmo
-       rm -f *_tags.h
-
-clean:
-       rm -f *.cm* *.obj *.lib *_tags.[ch] $(TARGETS)
-
-config.make: config.make.nt
-       cp config.make.nt config.make
-
-depend .depend:
-       ocamldep *.ml *.mli > .depend
-
-ml_gtk.obj: gtk_tags.c gtk_tags.h ml_gtk.h ml_gdk.h wrappers.h
-ml_gdk.obj: gdk_tags.c gdk_tags.h ml_gdk.h wrappers.h
-ml_gtkgl.obj: gtkgl_tags.c gtkgl_tags.h ml_gtk.h ml_gdk.h wrappers.h
-
-!include .depend

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/README b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/README
deleted file mode 100644 (file)
index 78c4ed3..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/README
+++ /dev/null
@@ -1,239 +0,0 @@
-
-               LablGTK : an interface to the GIMP Tool Kit
-
-
-Needed:
-       ocaml-3.00
-       gtk-1.2.x
-       gmake (there is no standard for conditionals)
-
-How to compile:
-
-       You should normally not need to modify Makefiles.
-       First type "make configure <options>".
-       Options are
-               USE_CC=1        to use $(CC) rather than gcc
-               USE_GL=1        to compile with OpenGL support (see lower)
-               USE_GNOME=1     to compile GtkXmHTML support (requires gnome)
-
-       Then just type "make" to build the library and toplevels.
-
-       On FreeBSD, you need to link with libxpg4.so for Japanese
-       output.
-
-Contents:
-
-       gdk.ml          low-level interface to the General Drawing Kit
-       gtk.ml          low-level interface to the GIMP Tool Kit
-       gtkThread.ml    main loop for threaded version
-       g[A-Z]*.ml      object-oriented interface to GTK
-       gdkObj.ml       object-oriented interface to GDK
-
-       lablgtk         toplevel
-
-       examples/*.ml   various examples
-       applications/*  applications using the library
-               radtest         a very experimental RAD for lablgtk
-                               (by Hubert Fauque)
-               browser         the begin of a port of OCamlBrowser
-                               (by Jacques Garrigue)
-                unison          a frontend for the Unison file synchronizer
-                                see the README for details.
-
-Upgrading from lablgtk-1.00:
-  There are a few incompatibilities between this version and the
-  previous release. We do not describe them all, since usually a type
-  error message will inform you.
-  * all signals are no longer under #connect. #connect#event changed
-    to #event#connect, and some signals are under #misc#connect or
-    #grab#connect. See lower for a description of the new widget
-    structure.
-  * some defaults changed. In particular GPack.box#pack have now all
-    its parameter defaulting to false rather than true. See lower for
-    the new default policy. Beware that this does not cause type
-    errors, just changes in the aspect.
-
-How to run the examples:
-  In the examples directory just type:
-       lablgtk -labels examples/???.ml
-
-  Before installing lablgtk you have to be more explicit:
-       ../lablgtktop -labels -w s -I .. ???.ml
-
-How to link them:
-  lablgtktop contains an extra module GtkInit, whose only contents is:
-        let locale = GtkMain.Main.init ()
-  You must either add this line, or add this module to your link,
-  before calling any Gtk function.
-  ocamlc -I CAMLLIB/lablgtk -labels -w s lablgtk.cma gtkInit.cmo ???.ml -o ???
-
-How to use the threaded toplevel:
-
-       % lablgtk -thread           (or lablgtktop_t before installing)
-               Objective Caml version 3.00
-       
-       # let w = GWindow.window ~show:true ();;
-
-  You should at once see a window appear.
-  The GTK main loop is running in a separate thread. Any command
-  is immediately reflected by the system.
-  Beware that you cannot switch threads within a callback, that is the
-  only thread related command you may use in a callback is
-  Thread.create. On the other hand, all newly created threads will be
-  run directly by the caml main loop, so they can use all thread
-  operations.
-
-Structure of the (raw) Gtk* modules:
-
-  These modules are composed of one submodule for each class.
-  Signals specific to a widget are in a Signals inner module.
-  A setter function is defined to give access to set_param functions.
-
-Structure of the G[A-Z]* modules:
-
-  These modules provide classes to wrap the raw function calls.
-  Here are the widget classes contained in each module:
-
-  GDraw         Gdk pixmaps, etc...
-  GObj         gtkobj, widget, style
-  GData                data, adjustment, tooltips
-  GContainer   container, item_container
-  GWindow      window, dialog, color_selection_dialog, file_selection, plug
-  GPack                box, button_box, table, fixed, layout, packer, paned, notebook
-  GBin         scrolled_window, event_box, handle_box, frame,
-               aspect_frame, viewport, socket
-  GButton      button, toggle_button, check_button, radio_button, toolbar
-  GMenu                menu_item, tearoff_item, check_menu_item, radio_menu_item,
-               menu_shell, menu, option_menu, menu_bar, factory
-  GMisc                separator, statusbar, calendar, drawing_area,
-               misc, arrow, image, pixmap, label, tips_query,
-                color_selection, font_selection
-  GTree                tree_item, tree
-  GList                list_item, liste, clist
-  GEdit                editable, entry, spin_button, combo, text
-  GRange       progress, progress_bar, range, scale, scrollbar
-
-  While subtyping follows the Gtk widget hierarchy, you cannot always
-  use width subtyping (i.e. #super is not unifiable with all the
-  subclasses of super). Still, it works for some classes, like
-  #widget and #container, and allows subtyping without coercion towards
-  these classes (cf. #container in pousse.ml for instance).
-
-  Practically, each widget class is composed of:
-  * a coerce method, returning the object coerced to the type widget.
-  * an as_widget method, returning the raw Gtk widget used for packing, etc...
-  * a connect sub-object, allowing one to widget specific
-    signals (this is what prevents width subtyping in subclasses.)
-  * a misc sub-object, giving access to miscellanous functionality of
-    the basic gtkwidget class, and a misc#connect sub-object.
-  * an event sub-object, for Xevent related functions (only if the widget
-    has an Xwindow), and an event#connect sub-object.
-  * a grab sub-object, containing drag and drop functions,
-    and a grab#connect sub-object.
-  * widget specific methods.
-
-  Here is a diagram of the structure (- for methods, + for sub-objects)
-        - coerce : widget
-        - as_widget : Gtk.widget obj
-        - destroy : unit -> unit
-        - ...
-        + connect : mywidget_signals
-        |   - after
-        |   - signal_name : callback:(... -> ...) -> GtkSignal.id
-        + misc : misc_ops
-        |   - show, hide, disconnect, ...
-        |   + connect : misc_signals
-        + event : event_ops
-        |   - add, ...
-        |   + connect : event_signals
-        + grab : grab_ops
-        |   - ...
-        |   + connect : grab_signals
-
-  You create a widget by [<Module>.<widget name> options ... ()].
-  Many optional arguments are admitted. The last two of them, packing:
-  and show:, allow you respectively to call a function on your newly
-  created widget, and to decide wether to show it immediately or not.
-  By default all widgets except toplevel windows (GWindow module) are
-  shown immediately.
-
-Default arguments:
-  For many constructor or method arguments, default values are provided.
-  Generally, this default value is defined by GTK, and you must refer
-  to GTK's documentation.
-  For ML defined defaults, usually default values are either false, 0, None
-  or `NONE, according to the expected type.
-  Important exceptions are ~show, which default to true in all widgets
-  except those in GWindow, and ~fill, which defaults to true or `BOTH.
-
-Note about unit as method argument:
-
-  O'Caml introduces no distinction between methods having side-effects
-  and methods simply returning a value. In practice, this is
-  confusing, and awkward when used as callbacks. For this reason all
-  methods having noticeable side-effects should take arguments, and
-  unit if they have no argument.
-
-Memory management:
-
-  Important efforts have been dedicated to cooperate with Gtk's
-  reference counting mechanism. As a result you should generally be
-  able to use Gdk/Gtk data structures without caring about memory
-  management. They will be freed when nobody points to them any more.
-  This also means that you do not need to pay too much attention to
-  whether a data structure is still alive or not. If it is not, you
-  should get an error rather than a core dump.
-  The case of Gtk objects deserves special care. Since they are
-  interactive, we cannot just destroy them when they are no longer
-  referenced. They have to be explicitely destroyed. If a widget was
-  added to a container widget, it will automatically be destroyed when
-  its last container is destroyed. For this reason you need only
-  destroy toplevel widgets.
-
-GL extension
-
-  You can use lablgtk in combination with LablGL
-
-  * get and install lablGL 0.94 from
-    http://wwwfun.kurims.kyoto-u.ac.jp/soft/olabl/lablgl.html
-  * get and install gtkglarea-1.2.x.tar.gz from
-    http://www.student.oulu.fi/~jlof/gtkglarea/index.html
-  * reconfigure: "make configure USE_GL=1"
-
-  You can then use the widget GlGtk.gl_area as an OpenGL window.
-  Some examples are in examples/GL, but basically any LablGL example
-  can be easily ported.
-
-Windows port
-
-  A Win32 port is provided. In order to compile it, you will need to
-  get and unpack glib-dev-????.zip and gtk+-dev-????.zip from
-        http://www.gimp.org/~tml/gimp/win32/
-  Do not forget to get also extralibs-dev-????.zip, since you will
-  need some of the DLLs.
-
-  Edit config.make.nt, then, using Visual C++,
-        nmake -f Makefile.nt
-        nmake -f Makefile.nt opt        (if you have an MS Assembler)
-  Then install with
-        nmake -f Makefile.nt install
-
-  Since the link is dynamic you will also need to have in your path:
-  gnu-intl.dll (extralibs), glib-1.3.dll, module-1.3.dll and
-  gthread-1.3.dll (glib), gdk-1.3.dll and gtk-1.3.dll (gtk+).
-
-  I checked with the 2000-02-02 version of these libraries.
-  Currently threads do not seem to work, but otherwise everything
-  seems OK. In particular, you can run all examples, and build
-  applications\unison as usual.
-
-Authors:
-       Jacques Garrigue <garrigue@kurims.kyoto-u.ac.jp>
-       Hubert Fauque  <hubert.fauque@wanadoo.fr>
-       Jun Furuse     <Jun.Furuse@inria.fr>
-       Koji Kagawa    <kagawa@eng.kagawa-u.ac.jp>
-                                  
-Bug reports:
-       Jacques Garrigue <garrigue@kurims.kyoto-u.ac.jp>
-
-$Id$

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/.cvsignore b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/.cvsignore
deleted file mode 100644 (file)
index bc09d74..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/.cvsignore
+++ /dev/null
@@ -1,3 +0,0 @@
-olabl-src
-browser
-.depend
\ No newline at end of file

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/Makefile b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/Makefile
deleted file mode 100644 (file)
index 8822e47..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/Makefile
+++ /dev/null
@@ -1,41 +0,0 @@
-# $Id$
-# Makefile for lablgtk.
-
-all: browser
-
-CAMLC = ocamlc
-CAMLOPT = ocamlopt
-COMPILER = $(CAMLC) $(MLFLAGS) -labels -w s -c
-LINKER = $(CAMLC) $(MLFLAGS)
-COMPOPT = $(CAMLOPT) $(MLFLAGS) -labels -w s -c
-LINKOPT = $(CAMLOPT) $(MLFLAGS)
-
-RANLIB = ranlib
-
-include ../../config.make
-
-MLFLAGS = -I ../.. -I ocaml-src/utils -I ocaml-src/parsing
-
-# Rules
-.SUFFIXES: .ml .mli .cmo .cmi .cmx .c .o .var .h .opt .def
-.ml.cmo:
-       $(COMPILER) $<
-.mli.cmi:
-       $(COMPILER) $<
-.ml.cmx:
-       $(COMPOPT) $<
-
-# Targets
-MLOBJS = text.cmo file.cmo lexical.cmo shell.cmo editor.cmo
-
-browser: $(MLOBJS)
-       $(LINKER) -o $@ toplevellib.cma str.cma unix.cma \
-           lablgtk.cma $(MLOBJS) 
-
-clean:
-       rm -f *.cm* browser
-
-.depend:
-       ocamldep *.ml *.mli > .depend
-
-include .depend

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/README b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/README
deleted file mode 100644 (file)
index f2ed1ec..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/README
+++ /dev/null
@@ -1,18 +0,0 @@
-       Browser: the beginning of a port of the OCamlBrowser
-
-Installation:
-
-* make a link from a directory where the O'Caml distribution is
-  compiled to ocaml-src
-       ln -s /path/to/ocaml-3.00 ocaml-src
-  (actually only the directory parsing needs to be compiled)
-
-* just type "make"
-
-Use:
-
-When you run browser, you just get a customized editor with lexical
-coloring. Nothing very fancy.
-In the file menu you can open a shell, running olabl as subprocess.
-
-Jacques Garrigue

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/TODO b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/TODO
deleted file mode 100644 (file)
index 0c8bb53..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/TODO
+++ /dev/null
@@ -1,4 +0,0 @@
-* lexical coloring (done)
-* hyperlinks (call signal with position)
-* keyboard popup
-* protection

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/editor.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/editor.ml
deleted file mode 100644 (file)
index d4adbfb..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/editor.ml
+++ /dev/null
@@ -1,101 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-class editor ?packing ?show () =
-  let text = GEdit.text ~editable:true ?packing ?show () in
-object (self)
-  inherit GObj.widget text#as_widget
-
-  val mutable filename = None
-
-  method text = text
-
-  method load_file name =
-    try
-      let ic = open_in name in
-      filename <- Some name;
-      text#freeze ();
-      text#delete_text ~start:0 ~stop:text#length;
-      let buf = String.create 1024 and len = ref 0 in
-      while len := input ic ~buf ~pos:0 ~len:1024; !len > 0 do
-       if !len = 1024 then text#insert buf
-       else text#insert (String.sub buf ~pos:0 ~len:!len)
-      done;
-      text#set_point 0;
-      text#thaw ();
-      close_in ic
-    with _ -> ()
-
-  method open_file () = File.dialog ~title:"Open" ~callback:self#load_file ()
-
-  method save_file () =
-    File.dialog ~title:"Save" ?filename () ~callback:
-      begin fun name ->
-       try
-         if Sys.file_exists name then Sys.rename ~src:name ~dst:(name ^ "~");
-         let oc = open_out name in
-         output_string oc (text#get_chars ~start:0 ~stop:text#length);
-         close_out oc
-       with _ -> prerr_endline "Save failed"
-      end
-end
-
-open GdkKeysyms
-
-class editor_window ?(show=false) () =
-  let window = GWindow.window ~width:500 ~height:300
-      ~title:"Program Editor" () in
-  let vbox = GPack.vbox ~packing:window#add () in
-
-  let menubar = GMenu.menu_bar ~packing:vbox#pack () in
-  let factory = new GMenu.factory menubar in
-  let accel_group = factory#accel_group
-  and file_menu = factory#add_submenu "File"
-  and edit_menu = factory#add_submenu "Edit"
-  and comp_menu = factory#add_submenu "Compiler" in
-
-  let hbox = GPack.hbox ~packing:vbox#add () in
-  let scrollbar =
-    GRange.scrollbar `VERTICAL ~packing:(hbox#pack ~from:`END) ()
-  and editor = new editor ~packing:hbox#add () in
-object (self)
-  inherit GObj.widget window#as_widget
-
-  method window = window
-  method editor = editor
-  method show = window#show
-
-  initializer
-    window#connect#destroy ~callback:Main.quit;
-    let factory = new GMenu.factory file_menu ~accel_group in
-    factory#add_item "Open..." ~key:_O ~callback:editor#open_file;
-    factory#add_item "Save..." ~key:_S ~callback:editor#save_file;
-    factory#add_item "Shell"
-      ~callback:(fun () -> Shell.f ~prog:"ocaml" ~title:"Objective Caml Shell");
-    factory#add_separator ();
-    factory#add_item "Quit" ~key:_Q ~callback:window#destroy;
-    let factory = new GMenu.factory edit_menu ~accel_group in
-    factory#add_item "Copy" ~key:_C ~callback:editor#text#copy_clipboard;
-    factory#add_item "Cut" ~key:_X ~callback:editor#text#cut_clipboard;
-    factory#add_item "Paste" ~key:_V ~callback:editor#text#paste_clipboard;
-    factory#add_separator ();
-    factory#add_check_item "Word wrap" ~active:false
-      ~callback:editor#text#set_word_wrap;
-    factory#add_check_item "Read only" ~active:false
-      ~callback:(fun b -> editor#text#set_editable (not b));
-    let factory = new GMenu.factory comp_menu ~accel_group in
-    factory#add_item "Lex" ~key:_L
-      ~callback:(fun () -> Lexical.tag editor#text);
-    window#add_accel_group accel_group;
-    editor#text#set_vadjustment scrollbar#adjustment;
-    if show then self#show ()
-end
-
-let _ =
-  Main.init ();
-  if Array.length Sys.argv >= 2 && Sys.argv.(1) = "-shell" then
-    Shell.f ~prog:"ocaml" ~title:"Objective Caml Shell"
-  else
-    ignore (new editor_window ~show:true ());
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/file.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/file.ml
deleted file mode 100644 (file)
index e9c0cf3..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/file.ml
+++ /dev/null
@@ -1,13 +0,0 @@
-(* $Id$ *)
-
-let dialog ~title ~callback ?filename () =
-  let sel =
-    GWindow.file_selection ~title ~modal:true ?filename () in
-  sel#cancel_button#connect#clicked ~callback:sel#destroy;
-  sel#ok_button#connect#clicked ~callback:
-    begin fun () ->
-      let name = sel#get_filename in
-      sel#destroy ();
-      callback name
-    end;
-  sel#show ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/lexical.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/lexical.ml
deleted file mode 100644 (file)
index 9acb9c0..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/lexical.ml
+++ /dev/null
@@ -1,155 +0,0 @@
-(* $Id$ *)
-
-open Parser
-
-type tags = [`none|`control|`define|`structure|`char|`infix|`label|`uident]
-
-let colors : (tags * GDraw.color) list Lazy.t =
-  lazy
-    (List.map ~f:(fun (tag,col) -> tag, `COLOR (GDraw.color (`NAME col)))
-       [ `control, "blue";
-        `define, "forestgreen";
-        `structure, "purple";
-        `char, "gray40";
-        `infix, "indianred4";
-        `label, "brown";
-        `uident, "midnightblue";
-         `none, "black" ])
-
-let tag ?(start=0) ?stop:pend (tw : GEdit.text) =
-  let pend = Gaux.default tw#length ~opt:pend in
-  let colors = Lazy.force colors in
-  tw#freeze ();
-  let position = tw#position
-  and text = tw#get_chars ~start ~stop:pend in
-  let replace ~start:pstart ~stop:pend ~tag =
-    if pend > pstart then begin
-      tw#delete_text ~start:(start+pstart) ~stop:(start+pend);
-      tw#set_point (start+pstart);
-      tw#insert ~foreground:(List.assoc tag colors)
-       (String.sub text ~pos:pstart ~len:(pend-pstart));
-    end
-  and next_lf = ref (-1) in
-  let colorize ~start:rstart ~stop:rend ~tag =
-    let rstart = ref rstart in
-    while !rstart < rend do
-      if !next_lf < !rstart then begin
-       try next_lf := String.index_from text !rstart '\n'
-       with Not_found -> next_lf := pend-start
-      end;
-      replace ~start:!rstart ~stop:(min !next_lf rend) ~tag;
-      rstart := !next_lf + 1
-    done
-  in
-  let buffer = Lexing.from_string text
-  and last = ref (EOF, 0, 0)
-  and last_pos = ref 0 in
-  try
-    while true do
-    let token = Lexer.token buffer
-    and start = Lexing.lexeme_start buffer
-    and stop = Lexing.lexeme_end buffer in
-    let tag =
-      match token with
-        AMPERAMPER
-      | AMPERSAND
-      | BARBAR
-      | DO | DONE
-      | DOWNTO
-      | ELSE
-      | FOR
-      | IF
-      | LAZY
-      | MATCH
-      | OR
-      | THEN
-      | TO
-      | TRY
-      | WHEN
-      | WHILE
-      | WITH
-          -> `control
-      | AND
-      | AS
-      | BAR
-      | CLASS
-      | CONSTRAINT
-      | EXCEPTION
-      | EXTERNAL
-      | FUN
-      | FUNCTION
-      | FUNCTOR
-      | IN
-      | INHERIT
-      | INITIALIZER
-      | LET
-      | METHOD
-      | MODULE
-      | MUTABLE
-      | NEW
-      | OF
-      | PARSER
-      | PRIVATE
-      | REC
-      | TYPE
-      | VAL
-      | VIRTUAL
-          -> `define
-      | BEGIN
-      | END
-      | INCLUDE
-      | OBJECT
-      | OPEN
-      | SIG
-      | STRUCT
-          -> `structure
-      | CHAR _
-      | STRING _
-          -> `char
-      | BACKQUOTE
-      | INFIXOP1 _
-      | INFIXOP2 _
-      | INFIXOP3 _
-      | INFIXOP4 _
-      | PREFIXOP _
-      | QUESTION2
-      | SHARP
-          -> `infix
-      | LABEL _
-      | OPTLABEL _
-      | QUESTION
-      | TILDE
-          -> `label
-      | UIDENT _ -> `uident
-      | LIDENT _ ->
-          begin match !last with
-            (QUESTION | TILDE), _, _ -> `label
-          | _ -> `none
-          end
-      | COLON ->
-          begin match !last with
-            LIDENT _, lstart, lstop when lstop = start ->
-              colorize ~tag:`none ~start:!last_pos ~stop:lstart;
-              colorize ~tag:`label ~start:lstart ~stop;
-              last_pos := stop;
-              `none
-          | _ -> `none
-          end
-      | EOF -> raise End_of_file
-      | _ -> `none
-    in
-    if tag <> `none then begin
-      colorize ~tag:`none ~start:!last_pos ~stop:start;
-      colorize ~tag ~start ~stop;
-      last_pos := stop
-    end;
-    last := (token, start, stop)
-    done
-  with exn ->
-    colorize ~tag:`none ~start:!last_pos ~stop:(pend-start);
-    tw#thaw ();
-    tw#set_position position;
-    tw#set_point position;
-    match exn with
-      End_of_file | Lexer.Error _ -> ()
-    | _ -> raise exn

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/list2.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/list2.ml
deleted file mode 100644 (file)
index 0d7798a..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/list2.ml
+++ /dev/null
@@ -1,25 +0,0 @@
-(* $Id$ *)
-
-let rec cut l ~len =
-  if len <= 0 then [], l else
-  match l with
-    a::l ->
-      let l1, l2 = cut l ~len:(len-1) in
-      a::l1, l2
-  | [] ->
-      invalid_arg "cut_list"
-
-let rec chop l ~len =
-  if l = [] then [] else
-  let l1, l2 =
-    try cut_list l ~len
-    with Invalid_argument _ -> l, []
-  in
-  l1 :: chop l2 ~len
-
-
-let rec iteri_aux ~f:f ~i = function
-    [] -> ()
-  | a::l -> f ~i a; iteri_aux ~f:f ~i:(i+1) l
-
-let iteri = iteri_aux ~i:0

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/shell.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/shell.ml
deleted file mode 100644 (file)
index fbe0f92..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/shell.ml
+++ /dev/null
@@ -1,255 +0,0 @@
-(* $Id$ *)
-
-open GdkKeysyms
-open Printf
-
-(* Nice history class. May reuse *)
-
-class ['a] history () = object
-  val mutable history = ([] : 'a list)
-  val mutable count = 0
-  method empty = history = []
-  method add s = count <- 0; history <- s :: history
-  method previous =
-    let s = List.nth history count in
-    count <- (count + 1) mod List.length history;
-    s
-  method next =
-    let l = List.length history in
-    count <- (l + count - 1) mod l;
-    List.nth history ((l + count - 1) mod l)
-end
-
-(* The shell class. Now encapsulated *)
-
-let protect f x = try f x with _ -> ()
-
-class shell ~prog ~args ~env ?packing ?show () =
-  let (in2,out1) = Unix.pipe ()
-  and (in1,out2) = Unix.pipe ()
-  and (err1,err2) = Unix.pipe () in
-  let _ = List.iter ~f:Unix.set_nonblock [out1;in1;err1] in
-object (self)
-  val textw = GEdit.text ~editable:true ?packing ?show ()
-  val pid = Unix.create_process_env
-      ~prog ~args ~env ~stdin:in2 ~stdout:out2 ~stderr:err2
-  val out = Unix.out_channel_of_descr out1
-  val h = new history ()
-  val mutable alive = true
-  val mutable reading = false
-  val mutable input_start = 0
-  method text = textw
-  method alive = alive
-  method kill () =
-    textw#set_editable false;
-    if alive then begin
-      alive <- false;
-      protect close_out out;
-      List.iter ~f:(protect Unix.close) [in1; err1; in2; out2; err2];
-      try
-       Unix.kill ~pid ~signal:Sys.sigkill;
-       Unix.waitpid pid ~mode:[]; ()
-      with _ -> ()
-    end
-  method interrupt () =
-    if alive then try
-      reading <- false;
-      Unix.kill ~pid ~signal:Sys.sigint
-    with Unix.Unix_error _ -> ()
-  method send s =
-    if alive then try
-      output_string out s;
-      flush out
-    with Sys_error _ -> ()
-  method private read ~fd ~len =
-    try
-      let buf = String.create len in
-      let len = Unix.read fd ~buf ~pos:0 ~len in
-      if len > 0 then begin
-       textw#set_position textw#length;
-       self#insert (String.sub buf ~pos:0 ~len);
-       input_start <- textw#position;
-      end;
-      len
-    with Unix.Unix_error _ -> 0
-  method history (dir : [`next|`previous]) =
-    if not h#empty then begin
-      if reading then begin
-       textw#delete_text ~start:input_start ~stop:textw#position;
-      end else begin
-       reading <- true;
-       input_start <- textw#position
-      end;
-      self#insert (if dir = `previous then h#previous else h#next);
-    end
-  val mutable lexing = false
-  method private lex ~start ~stop:e =
-    if not lexing && start < e then begin
-      lexing <- true;
-      Lexical.tag textw ~start ~stop:e;
-      lexing <- false
-    end
-  method insert ?(lex=true) text =
-    let start = Text.line_start textw in
-    textw#insert text;
-    if lex then self#lex ~start ~stop:(Text.line_end textw)
-  method private keypress c =
-    if not reading & c > " " then begin
-      reading <- true;
-      input_start <- textw#position
-    end
-  method private return () =
-    if reading then reading <- false
-    else input_start <- textw#position;
-    textw#set_position (Text.line_end textw);
-    let s = textw#get_chars ~start:input_start ~stop:textw#position in
-    h#add s;
-    self#send s;
-    self#send "\n"
-  method private paste () =
-    if not reading then begin
-      reading <- true;
-      input_start <- textw#position;
-    end
-  initializer
-    textw#event#connect#key_press ~callback:
-      begin fun ev ->
-       if GdkEvent.Key.keyval ev = _Return && GdkEvent.Key.state ev = []
-       then self#return ()
-       else self#keypress (GdkEvent.Key.string ev);
-        false
-      end;
-    textw#connect#after#insert_text ~callback:
-      begin fun s ~pos ->
-        if not lexing then
-          self#lex ~start:(Text.line_start textw ~pos:(pos - String.length s))
-            ~stop:(Text.line_end textw ~pos)
-      end;
-    textw#connect#after#delete_text ~callback:
-      begin fun ~start:pos ~stop ->
-        if not lexing then
-          self#lex ~start:(Text.line_start textw ~pos)
-            ~stop:(Text.line_end textw ~pos)
-      end;
-    textw#event#connect#button_press ~callback:
-      begin fun ev ->
-       if GdkEvent.Button.button ev = 2 then self#paste ();
-       false
-      end;
-    textw#connect#destroy ~callback:self#kill;
-    GMain.Timeout.add ~ms:100 ~callback:
-      begin fun () ->
-       if alive then begin
-         List.iter [err1;in1]
-           ~f:(fun fd -> while self#read ~fd ~len:1024 = 1024 do () done);
-         true
-       end else false
-      end;
-    ()
-end
-
-(* Specific use of shell, for LablBrowser *)
-
-let shells : (string * shell) list ref = ref []
-
-(* Called before exiting *)
-let kill_all () =
-  List.iter !shells ~f:(fun (_,sh) -> if sh#alive then sh#kill ());
-  shells := []
-let _ = at_exit kill_all
-
-let get_all () =
-  let all = List.filter !shells ~f:(fun (_,sh) -> sh#alive) in
-  shells := all;
-  all
-
-let may_exec prog =
-  try Unix.access prog ~perm:[Unix.X_OK]; true
-  with Unix.Unix_error _ -> false
-
-let f ~prog ~title =
-  let progargs =
-    List.filter ~f:((<>) "") (Str.split ~sep:(Str.regexp " ") prog) in
-  if progargs = [] then () else
-  let prog = List.hd progargs in
-  let path = try Sys.getenv "PATH" with Not_found -> "/bin:/usr/bin" in
-  let exec_path = Str.split ~sep:(Str.regexp":") path in
-  let prog =
-    if not (Filename.is_implicit prog) then
-      if may_exec prog then prog else ""
-    else
-      List.fold_left exec_path ~init:"" ~f:
-       begin fun acc dir ->
-         if acc <> "" then acc else
-         let prog = Filename.concat dir prog in
-         if may_exec prog then prog else acc
-       end
-  in
-  if prog = "" then () else
-  let reg = Str.regexp "TERM=" in
-  let env = Array.map (Unix.environment ()) ~f:
-      begin fun s ->
-       if Str.string_match ~pat:reg s ~pos:0 then "TERM=dumb" else s
-      end in
-  let load_path =
-    List.flatten (List.map !Config.load_path ~f:(fun dir -> ["-I"; dir])) in
-  let args = Array.of_list (progargs @ load_path) in
-  let current_dir = ref (Unix.getcwd ()) in
-
-  let tl = GWindow.window ~title ~width:500 ~height:300 () in
-  let vbox = GPack.vbox ~packing:tl#add () in
-  let menus = GMenu.menu_bar ~packing:vbox#pack () in
-  let f = new GMenu.factory menus in
-  let accel_group = f#accel_group in
-  let file_menu = f#add_submenu "File"
-  and history_menu = f#add_submenu "History"
-  and signal_menu = f#add_submenu "Signal" in
-
-  let hbox = GPack.hbox ~packing:vbox#add () in
-  let sh = new shell ~prog ~env ~args ~packing:hbox#add () in
-  let sb =
-    GRange.scrollbar `VERTICAL ~adjustment:sh#text#vadjustment
-      ~packing:hbox#pack ()
-  in
-
-  let f = new GMenu.factory file_menu ~accel_group in
-  f#add_item "Use..." ~callback:
-    begin fun () ->
-      File.dialog ~title:"Use File" ~filename:(!current_dir ^ "/") () ~callback:
-       begin fun name ->
-         current_dir := Filename.dirname name;
-         if Filename.check_suffix name ".ml" then
-           let cmd = "#use \"" ^ name ^ "\";;\n" in
-           sh#insert cmd;
-           sh#send cmd
-       end
-    end;
-  f#add_item "Load..." ~callback:
-    begin fun () ->
-      File.dialog ~title:"Load File" ~filename:(!current_dir ^ "/") () ~callback:
-       begin fun name ->
-         current_dir := Filename.dirname name;
-         if Filename.check_suffix name ".cmo" or
-           Filename.check_suffix name ".cma"
-         then
-           let cmd = Printf.sprintf "#load \"%s\";;\n" name in
-           sh#insert cmd;
-           sh#send cmd
-       end
-    end;
-  f#add_item "Import path" ~callback:
-    begin fun () ->
-      List.iter (List.rev !Config.load_path)
-       ~f:(fun dir -> sh#send (sprintf "#directory \"%s\";;\n" dir))
-    end;
-  f#add_item "Close" ~key:_W ~callback:tl#destroy;
-
-  let h = new GMenu.factory history_menu ~accel_group ~accel_modi:[`MOD1] in
-  h#add_item "Previous" ~key:_P ~callback:(fun () -> sh#history `previous);
-  h#add_item "Next" ~key:_N ~callback:(fun () -> sh#history `next);
-  let s = new GMenu.factory signal_menu ~accel_group in
-  s#add_item "Interrupt" ~key:_G ~callback:sh#interrupt;
-  s#add_item "Kill" ~callback:sh#kill;
-  shells := (title, sh) :: !shells;
-  tl#add_accel_group accel_group;
-  tl#show ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/text.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/text.ml
deleted file mode 100644 (file)
index 729f310..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/text.ml
+++ /dev/null
@@ -1,16 +0,0 @@
-(* $Id$ *)
-
-open GEdit
-
-let line_start ?pos (text : GEdit.text) =
-  let pos = Gaux.default text#position ~opt:pos in
-  if pos = 0 then 0 else
-  let start = max 0 (pos-256) in
-  let buffer = text#get_chars ~start ~stop:pos in
-  try start + String.rindex buffer '\n' with Not_found -> 0
-
-let line_end ?pos (text : GEdit.text) =
-  let pos = Gaux.default text#position ~opt:pos in
-  if pos = text#length then text#length else
-  let buffer = text#get_chars ~start:pos ~stop:(min text#length (pos+256)) in
-  try pos + String.index buffer '\n' with Not_found -> text#length

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/useunix.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/useunix.ml
deleted file mode 100644 (file)
index c4860a8..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/useunix.ml
+++ /dev/null
@@ -1,36 +0,0 @@
-(* $Id$ *)
-
-open Unix
-
-let get_files_in_directory dir =
-  try
-  let dirh = opendir dir in
-  let rec get_them () =
-    try
-      let x = readdir dirh in
-      x :: get_them ()
-    with
-      _ -> closedir dirh; [] 
-  in
-    Sort.list ~order:(<) (get_them ())
-  with Unix_error _ -> []
-
-let is_directory name =
-  try
-    (stat name).st_kind = S_DIR
-  with _ -> false
-
-let get_directories_in_files ~path =
-  List.filter ~pred:(fun x -> is_directory  (path ^ "/" ^ x))
-
-(************************************************** Subshell call *)
-let subshell ~cmd =
-  let rc = open_process_in ~cmd in
-  let rec it () =
-    try 
-      let x = input_line rc in x :: it ()
-    with _ -> []
-  in 
-  let answer = it () in
-  close_process_in rc;
-  answer

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/widgets.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/widgets.ml
deleted file mode 100644 (file)
index c27ca9f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/browser/widgets.ml
+++ /dev/null
@@ -1,34 +0,0 @@
-(* $Id$ *)
-
-open GObj
-
-class multibox ~rows ~columns ?(row_view = rows) ?(col_view = columns)
-    ?packing ?show () =
-  let sw =
-    GBin.scrolled_window ~hpolicy:`AUTOMATIC ~vpolicy:`AUTOMATIC
-      ?show ?packing () in
-  let vp = GBin.viewport ~shadow_type:`NONE ~packing:sw#add in
-  let table =
-    GPack.table ~columns ~rows ~homogeneous:true ~packing:vp#add () in
-  let buttons =
-    Array.init ~len:columns
-      ~f:(fun left -> Array.init ~len:rows
-         ~f:(fun top -> GButton.button
-              ~packing:(table#attach ~top ~left ~expand:`BOTH)))
-  in
-  object (self)
-    inherit widget sw#as_widget
-    method cell ~col ~row = buttons.(col).(row)
-    initializer
-      let id = ref None in
-      id := Some
-         (sw#event#connect#expose ~after:true ~callback:
-            begin fun _ ->
-              may !id ~f:sw#connect#disconnect;
-              let height = table#misc#allocation.height * row_view / rows
-              and width = table#misc#allocation.width * col_view / columns in
-              vp#misc#set_size ~height ~width;
-              false
-            end);
-      table#focus#set_vadjustment vp#vadjustment
-  end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/.cvsignore b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/.cvsignore
deleted file mode 100644 (file)
index a2d75da..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/.cvsignore
+++ /dev/null
@@ -1,3 +0,0 @@
-.depend radtest
-*_parser.ml *_parser.mli
-*_lexer.ml

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/CHANGES b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/CHANGES
deleted file mode 100644 (file)
index e87fc0a..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/CHANGES
+++ /dev/null
@@ -1,16 +0,0 @@
-$Id$
-
-2000.05.15
-  * suppressed treew.ml; replaced by ti*.ml
-  * new widgets
-  * less known bugs  (Hubert)
-1999.10.28
-  * re-objectified property.ml
-  * split it into common.mli/property.ml/propwin.ml
-  * undo is back
-  * restructure menu code in main.ml
-
-1999.10.27
-  * simplified property.ml, and corrected treew.ml accordingly.
-    undo is temporarily disabled.
-    (Jacques)
\ No newline at end of file

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/Makefile b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/Makefile
deleted file mode 100644 (file)
index 175eca9..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/Makefile
+++ /dev/null
@@ -1,86 +0,0 @@
-# $Id$
-# Makefile for lablgtk.
-
-all: radtest
-
-CAMLC = ocamlc
-CAMLOPT = ocamlopt
-COMPILER = $(CAMLC) $(MLFLAGS) -c
-LINKER = $(CAMLC) $(MLFLAGS)
-COMPOPT = $(CAMLOPT) $(MLFLAGS) -c
-LINKOPT = $(CAMLOPT) $(MLFLAGS)
-
-RANLIB = ranlib
-
-include ../../config.make
-
-MLFLAGS = -I ../.. -w s -labels
-
-ifdef DEBUG
-CFLAGS = -g $(GTKCFLAGS)
-MLFLAGS += -g
-else
-CFLAGS = -O -DGTK_NO_CHECK_CASTS -DGTK_DISABLE_COMPAT_H $(GTKCFLAGS)
-endif
-
-ifdef USE_CC
-CCOMPILER = $(CC) -c -I$(LIBDIR) $(CFLAGS)
-else
-CCOMPILER = ocamlc -c -ccopt "$(CFLAGS)"
-endif
-
-
-# Rules
-.SUFFIXES: .ml .mli .cmo .cmi .cmx .c .o .var .h .opt .def
-.c.o:
-       $(CCOMPILER) $<
-.ml.cmo:
-       $(COMPILER) $<
-.mli.cmi:
-       $(COMPILER) $<
-.ml.cmx:
-       $(COMPOPT) $<
-
-# Targets
-MLOBJS = utils.cmo property.cmo propwin.cmo \
-       load_parser.cmo load_lexer.cmo tiBase.cmo tiContainer.cmo tiBin.cmo \
-       tiButton.cmo tiEdit.cmo tiList.cmo tiMisc.cmo tiPack.cmo tiWindow.cmo \
-       tiWidget.cmo main.cmo
-
-MLSRC = common.mli utils.ml property.mli property.ml propwin.mli \
-       propwin.ml \
-       load_parser.ml load_lexer.ml tiBase.ml tiContainer.ml tiBin.ml \
-       tiButton.ml tiEdit.ml tiList.ml tiMisc.ml tiPack.ml tiWindow.ml \
-       tiWidget.ml main.ml
-
-radtest: $(MLOBJS)  libgtk2.a gtk2.cma
-       $(LINKER) -o $@ lablgtk.cma gtkInit.cmo -I . gtk2.cma \
-           $(MLOBJS)
-
-radtestopt: $(MLOBJS:.cmo=.cmx) libgtk2.a gtk2.cmxa
-       $(LINKOPT) -o $@ lablgtk.cmxa gtkInit.cmx -I . gtk2.cmxa \
-           $(MLOBJS:.cmo=.cmx)
-
-%.mli %.ml: %.mly
-       ocamlyacc $<
-
-%.ml: %.mll
-       ocamllex $<
-
-libgtk2.a: gtktree2.o gtktreeitem2.o ml_gtk2.o
-       ar rc $@ gtktree2.o gtktreeitem2.o ml_gtk2.o
-       $(RANLIB) $@
-
-gtk2.cma: gtkTree2.cmo gTree2.cmo gToolbar2.cmo libgtk2.a
-       $(LINKER) -a -o $@ gtkTree2.cmo gTree2.cmo gToolbar2.cmo -cclib -lgtk2
-
-gtk2.cmxa: gtkTree2.cmx gTree2.cmx gToolbar2.cmx libgtk2.a
-       $(LINKOPT) -a -o $@ gtkTree2.cmx gTree2.cmx gToolbar2.cmx -cclib -lgtk2
-
-clean:
-       rm -f *.cm* *.o *.a radtest *_parser.ml *_parser.mli *_lexer.ml
-
-.depend: $(MLSRC) load_parser.ml load_lexer.ml
-       ocamldep $(MLSRC) load_parser.ml* load_lexer.ml* > .depend
-
-include .depend

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/README b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/README
deleted file mode 100644 (file)
index aedd81f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/README
+++ /dev/null
@@ -1,24 +0,0 @@
-       Lablgtk RADTEST
-
-Author: Hubert Fauque, hubert.fauque@inria.fr
-
-This is an experimental R.A.D. for Lablgtk.
-You can compile it simply by make.
-
-
-When radtest starts a new empty project is open;
-you can add new windows to this project by clicking on
-the window icon at the top of the icons window;
-
-by clicking on an item in the tree window with the third button
-you can add or remove widgets;
-you can also drag widgets from the icons window and drop them
-on the tree;
-
-when a widget is selected (click on it in the tree) you can
-move it up or down (if its parent is a box) with CTRL-up_arrow
-or CTRL-down_arrow; with up_arrow and down_arrow you select
-the widget which is above or below the currently selected widget;
-
-Save the project by Project->Save, and load an already existing
-project by Project->Open.

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/aspectframe.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/aspectframe.xpm
deleted file mode 100644 (file)
index 66b9ca1..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/aspectframe.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *aspectframe_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++   + +++++++++++",
-"+...X X X   X......O+",
-"+.OOX   X X XOOOOO.O+",
-"+.OXX X X   XXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXX.XXXXXXX.O+",
-"+.OXXXXXX...XXXXXX.O+",
-"+.OXXXXX.X.X.XXXXX.O+",
-"+.OXXXXXXX.XXXXXXX.O+",
-"+.OXX.XXXX.XXXX.XX.O+",
-"+.OX.XXXXX.XXXXX.X.O+",
-"+.O................O+",
-"+.OX.XXXXX.XXXXX.X.O+",
-"+.OXX.XXXX.XXXX.XX.O+",
-"+.OXXXXX.X.X.XXXXX.O+",
-"+.OXXXXXX...XXXXXX.O+",
-"+.OXXXXXXX.XXXXXXX.O+",
-"+..................O+",
-"+OOOOOOOOOOOOOOOOOOO+",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/button.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/button.xpm
deleted file mode 100644 (file)
index 62ebc30..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/button.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *button_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+OOOOOOOOOOOOOOOOOO +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXX   XXX XXX XX. +",
-"+OXX XXX XX XX XXX. +",
-"+OXX XXX XX X XXXX. +",
-"+OXX XXX XX  XXXXX. +",
-"+OXX XXX XX X XXXX. +",
-"+OXX XXX XX XX XXX. +",
-"+OXXX   XXX XXX XX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+O................. +",
-"+                   +",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/checkbutton.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/checkbutton.xpm
deleted file mode 100644 (file)
index 314ba97..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/checkbutton.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *checkbutton_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++OOOOOOOOOOO+++++",
-"+++++OXXXXXXXXX +++++",
-"+++++OXXXXXXXX. +++++",
-"+++++OXXXXXXXX. +++++",
-"+++++OXXXXXXXX. +++++",
-"+++++OXXXXXXXX. +++++",
-"+++++OXXXXXXXX. +++++",
-"+++++OXXXXXXXX. +++++",
-"+++++OXXXXXXXX. +++++",
-"+++++OX........ +++++",
-"+++++O          +++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/clist.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/clist.xpm
deleted file mode 100644 (file)
index 2dd61e7..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/clist.xpm
+++ /dev/null
@@ -1,30 +0,0 @@
-/* XPM */
-static char *clist_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 3 1",
-"  c Gray0",
-". c Gray87",
-"X c Gray100",
-/* pixels */
-"                     ",
-" ...... ...... ..... ",
-" ...... ...... ..... ",
-" ...... ...... ..... ",
-"                     ",
-" XXXXXX XXXXXX XXXXX ",
-" XXXXXX XXXXXX XXXXX ",
-" XXXXXX XXXXXX XXXXX ",
-"                     ",
-" XXXXXX XXXXXX XXXXX ",
-" XXXXXX XXXXXX XXXXX ",
-" XXXXXX XXXXXX XXXXX ",
-"                     ",
-" XXXXXX XXXXXX XXXXX ",
-" XXXXXX XXXXXX XXXXX ",
-" XXXXXX XXXXXX XXXXX ",
-"                     ",
-" XXXXXX XXXXXX XXXXX ",
-" XXXXXX XXXXXX XXXXX ",
-" XXXXXX XXXXXX XXXXX ",
-"                     "
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/colorselection.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/colorselection.xpm
deleted file mode 100644 (file)
index 0bb0914..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/colorselection.xpm
+++ /dev/null
@@ -1,35 +0,0 @@
-/* XPM */
-static char *colorselection_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 8 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c Blue",
-"o c Green",
-"O c Red",
-"+ c #b3cece",
-"@ c Gray100",
-"# c None",
-/* pixels */
-"#####################",
-"#####################",
-"#####################",
-"#####################",
-"#####################",
-"##................###",
-"##.@@@@@@@@@@@@@@. ##",
-"##.@@@@@@@@@@@@@@. ##",
-"##.@@@@@@@@@@@@@@. ##",
-"##.@@OOOoooXXX@@@. ##",
-"##.@@OOOoooXXX@@@. ##",
-"##.@@OOOoooXXX@@@. ##",
-"##.@@OOOoooXXX@@@. ##",
-"##.@@@@@@@@@@@@@@. ##",
-"##.@@@@@@@@@@@@@@. ##",
-"##.@@@@@@@@@@@@@@. ##",
-"##................ ##",
-"###                ##",
-"#####################",
-"#####################",
-"#####################"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/combo.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/combo.xpm
deleted file mode 100644 (file)
index 3b4055b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/combo.xpm
+++ /dev/null
@@ -1,34 +0,0 @@
-/* XPM */
-static char *combo_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 7 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray87",
-"+ c Gray100",
-"@ c None",
-/* pixels */
-"@@@@@@@@@@@@@@@@@@@@@",
-"                     ",
-" +++++++++++++ OOOOO ",
-" +++++++++++++  OOO  ",
-" +++++++++++++   O   ",
-"                     ",
-" +++++++++++++ ++++++",
-" +++++++++++++ XXXXX ",
-" +.........+++ XX XX ",
-" +++++++++++++ X   X ",
-" +++++++++++++ XXXXX ",
-" +...........+       ",
-" +++++++++++++ +++++ ",
-" +++++++++++++ +XXXX ",
-" +..........++ ..... ",
-" +++++++++++++ +++++ ",
-" +++++++++++++ XXXXX ",
-" +...........+ X   X ",
-" +++++++++++++ XX XX ",
-" +++++++++++++ XXXXX ",
-"                     "
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/common.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/common.mli
deleted file mode 100644 (file)
index 7050f9f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/common.mli
+++ /dev/null
@@ -1,27 +0,0 @@
-(* $Id$ *)
-
-type range =
-  |  String
-  | Int
-  | Float of float * float
-  | Enum of string list
-  | Enum_string of string list
-  | Adjust
-  | CList_titles
-  | File
-
-class type prop =
-  object
-    method name : string       (* name of the property *)
-    method range : range       (* range of its values *)
-    method get : string                (* current value *)
-    method set : string -> unit        (* change value *)
-    method modified : bool     (* value differs from default *)
-    method code : string       (* encoded value for the ml code *)
-    method save_code : string   (* encoded value for saving *)
-  end
-
-class type tiwidget_base = object
-  method name : string
-  method proplist : (string * prop) list
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/entry.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/entry.xpm
deleted file mode 100644 (file)
index cb90041..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/entry.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *entry_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"....................O",
-".                  XO",
-". OOOOOOOOOOOOOOOOOXO",
-". OOOOOOOOOOOOOOO OXO",
-". OOOOOOOO OOOOOO OXO",
-". OOOOOOOO OOOOOO OXO",
-". OOO   OO X  OOO OXO",
-". OO XOX O  O. OO OXO",
-". OOOOOO O OOO OO OXO",
-". OOO    O OOO OO OXO",
-". OO XOO O OOO OO OXO",
-". OO XOO O OO. OO OXO",
-". OOO    O    OOO OXO",
-". OOOOOOOOOOOOOOO OXO",
-". OOOOOOOOOOOOOOOOOXO",
-".XXXXXXXXXXXXXXXXXXXO",
-"OOOOOOOOOOOOOOOOOOOOO",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/eventbox.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/eventbox.xpm
deleted file mode 100644 (file)
index 73da445..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/eventbox.xpm
+++ /dev/null
@@ -1,34 +0,0 @@
-/* XPM */
-static char *eventbox_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 7 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c Blue",
-"o c #d6d6d6",
-"O c #b3cece",
-"+ c Gray100",
-"@ c None",
-/* pixels */
-"@@@@@@@@@@X+@@@@@@@@@",
-"@@@@@@@@@XX+@@@@@@@@@",
-"@@@@@@@@XX+@@@@@@@@@@",
-"@@@@@@@XX+@@@@@@@@@@@",
-"@@@@@@@@XX+@@@@@@@@@@",
-"@@@@@@@@@XX+@@@@@@@@@",
-"@@@@@@@@@@XX+@@@@@@@@",
-"@@@++++++XX++++++ @@@",
-"@@@+ooooXX+ooooo. @@@",
-"@@@+oooXX+oooooo. @@@",
-"@@@+ooooXX+ooooo. @@@",
-"@@@+oooooXX+oooo. @@@",
-"@@@+ooooooXX+ooo. @@@",
-"@@@+oooooooooooo. @@@",
-"@@@+oooooooooooo. @@@",
-"@@@+oooooooooooo. @@@",
-"@@@+............. @@@",
-"@@@               @@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/fixed.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/fixed.xpm
deleted file mode 100644 (file)
index 2e04815..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/fixed.xpm
+++ /dev/null
@@ -1,31 +0,0 @@
-/* XPM */
-static char *fixed_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 4 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c Gray100",
-/* pixels */
-"oooooooooooooooooooo ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXooooo XXXXXXXXXXX. ",
-"oXoXXX. XXXXXXXXXXX. ",
-"oXoXXX. XXXXooooo X. ",
-"oXo.... XXXXoXXX. X. ",
-"oX      XXXXoXXX. X. ",
-"oXXXXXXXXXXXo.... X. ",
-"oXXXXXXXXXXX      X. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXooooo XXXXXXXX. ",
-"oXXXXoXXX. XXXXXXXX. ",
-"oXXXXoXXX. XXXXXXXX. ",
-"oXXXXo.... XXXXXXXX. ",
-"oXXXX      XXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"o................... ",
-"                     "
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/frame.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/frame.xpm
deleted file mode 100644 (file)
index c8c8b57..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/frame.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *frame_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++   + +++++++++++",
-"+...X X X   X......O+",
-"+.OOX   X X XOOOOO.O+",
-"+.OXX X X   XXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+.OXXXXXXXXXXXXXXX.O+",
-"+..................O+",
-"+OOOOOOOOOOOOOOOOOOO+",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gToolbar2.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gToolbar2.ml
deleted file mode 100644 (file)
index c2ad0a8..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gToolbar2.ml
+++ /dev/null
@@ -1,65 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkButton
-open GObj
-open GContainer
-open GButton
-
-module Toolbar2 = struct
-  external set_text : [>`toolbar] obj -> string -> int -> unit =
-    "ml_gtk_toolbar2_set_text"
-  external set_icon : [>`toolbar] obj -> [>`widget] obj -> int -> unit =
-    "ml_gtk_toolbar2_set_icon"
-end
-
-class toolbar2 obj = object
-  inherit container_full (obj : Gtk.toolbar obj)
-  method insert_widget ?tooltip ?tooltip_private ?pos w =
-    Toolbar.insert_widget obj (as_widget w) ?tooltip ?tooltip_private ?pos
-
-  method insert_button ?text ?tooltip ?tooltip_private ?icon
-      ?pos ?callback () =
-    let icon = may_map icon ~f:as_widget in
-    new button
-      (Toolbar.insert_button obj ~kind:`BUTTON ?icon ?text
-        ?tooltip ?tooltip_private ?pos ?callback ())
-
-  method insert_toggle_button ?text ?tooltip ?tooltip_private ?icon
-      ?pos ?callback () =
-    let icon = may_map icon ~f:as_widget in
-    new toggle_button
-      (ToggleButton.cast
-        (Toolbar.insert_button obj ~kind:`TOGGLEBUTTON ?icon ?text
-           ?tooltip ?tooltip_private ?pos ?callback ()))
-
-  method insert_radio_button ?text ?tooltip ?tooltip_private ?icon
-      ?pos ?callback () =
-    let icon = may_map icon ~f:as_widget in
-    new radio_button
-      (RadioButton.cast
-        (Toolbar.insert_button obj ~kind:`RADIOBUTTON ?icon ?text
-           ?tooltip ?tooltip_private ?pos ?callback ()))
-
-  method insert_space = Toolbar.insert_space obj
-
-  method set_orientation = Toolbar.set_orientation obj
-  method set_style = Toolbar.set_style obj
-  method set_space_size = Toolbar.set_space_size obj
-  method set_space_style = Toolbar.set_space_style obj
-  method set_tooltips = Toolbar.set_tooltips obj
-  method set_button_relief = Toolbar.set_button_relief obj
-  method button_relief = Toolbar.get_button_relief obj
-  method set_text = Toolbar2.set_text obj
-  method set_icon (icon : widget) = Toolbar2.set_icon obj icon#as_widget
-end
-
-let toolbar2 ?(orientation=`HORIZONTAL) ?style
-    ?space_size ?space_style ?tooltips ?button_relief
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Toolbar.create orientation ?style () in
-  Toolbar.set w ?space_size ?space_style ?tooltips ?button_relief;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new toolbar2 w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gTree2.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gTree2.ml
deleted file mode 100644 (file)
index 62c38ac..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gTree2.ml
+++ /dev/null
@@ -1,78 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkTree2
-open GObj
-open GContainer
-
-class tree_item_signals obj = object
-  inherit item_signals obj
-  method expand = GtkSignal.connect obj ~sgn:TreeItem.Signals.expand ~after
-  method collapse = GtkSignal.connect obj ~sgn:TreeItem.Signals.collapse ~after
-end
-
-class tree_item obj = object
-  inherit container obj
-  method event = new GObj.event_ops obj
-  method as_item : Gtk.tree_item obj = obj
-  method connect = new tree_item_signals obj
-  method set_subtree (w : tree) = TreeItem.set_subtree obj w#as_tree
-  method remove_subtree () = TreeItem.remove_subtree obj
-  method expand () = TreeItem.expand obj
-  method collapse () = TreeItem.collapse obj
-  method subtree =
-    try Some(new tree (TreeItem.subtree obj)) with Gpointer.Null -> None
-end
-
-and tree_signals obj = object
-  inherit container_signals obj
-  method selection_changed =
-    GtkSignal.connect obj ~sgn:Tree.Signals.selection_changed ~after
-  method select_child ~callback =
-    GtkSignal.connect obj ~sgn:Tree.Signals.select_child ~after
-      ~callback:(fun w -> callback (new tree_item (TreeItem.cast w))) 
-  method unselect_child ~callback =
-    GtkSignal.connect obj ~sgn:Tree.Signals.unselect_child ~after
-      ~callback:(fun w -> callback (new tree_item (TreeItem.cast w))) 
-end
-
-and tree obj = object (self)
-  inherit [tree_item] item_container obj
-  method event = new GObj.event_ops obj
-  method as_tree = Tree.coerce obj
-  method insert w ~pos = Tree.insert obj w#as_item ~pos
-  method connect = new tree_signals obj
-  method clear_items = Tree.clear_items obj
-  method select_item = Tree.select_item obj
-  method unselect_item = Tree.unselect_item obj
-  method child_position (w : tree_item) = Tree.child_position obj w#as_item
-  method remove_items items =
-    Tree.remove_items obj
-      (List.map ~f:(fun (t : tree_item) -> t#as_item) items)
-(*  method set_selection_mode = Tree.set_selection_mode obj
-  method set_view_mode = Tree.set_view_mode obj *)
-  method set_view_lines = Tree.set_view_lines obj
-  method selection =
-    List.map ~f:(fun w -> self#wrap (Widget.coerce w)) (Tree.selection obj)
-  method item_up ~pos =
-    Tree.item_up obj pos
-  method private wrap w =
-    new tree_item (TreeItem.cast w)
-end
-
-let tree_item ?label ?border_width ?width ?height ?packing ?show () =
-  let w = TreeItem.create ?label () in
-  Container.set w ?border_width ?width ?height;
-  let self = new tree_item w in
-  may packing ~f:(fun f -> (f self : unit));
-  if show <> Some false then self#misc#show ();
-  self
-
-let tree ?selection_mode ?view_mode ?view_lines
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Tree.create () in
-  Tree.set w ?selection_mode ?view_mode ?view_lines;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new tree w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gTree2.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gTree2.mli
deleted file mode 100644 (file)
index c288e15..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gTree2.mli
+++ /dev/null
@@ -1,73 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GContainer
-
-class tree_item_signals : 'a obj ->
-  object
-    inherit item_signals
-    constraint 'a = [>`treeitem|`container|`item|`widget]
-    val obj : 'a obj
-    method collapse : callback:(unit -> unit) -> GtkSignal.id
-    method expand : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class tree_item : Gtk.tree_item obj ->
-  object
-    inherit GContainer.container
-    val obj : Gtk.tree_item obj
-    method event : event_ops
-    method as_item : Gtk.tree_item obj
-    method collapse : unit -> unit
-    method connect : tree_item_signals
-    method expand : unit -> unit
-    method remove_subtree : unit -> unit
-    method set_subtree : tree -> unit
-    method subtree : tree option
-  end
-
-and tree_signals : Gtk.tree obj ->
-  object
-    inherit container_signals
-    val obj : Gtk.tree obj
-    method select_child : callback:(tree_item -> unit) -> GtkSignal.id
-    method selection_changed : callback:(unit -> unit) -> GtkSignal.id
-    method unselect_child : callback:(tree_item -> unit) -> GtkSignal.id
-  end
-
-and tree : Gtk.tree obj ->
-  object
-    inherit [tree_item] item_container
-    val obj : Gtk.tree obj
-    method event : event_ops
-    method as_tree : Gtk.tree obj
-    method child_position : tree_item -> int
-    method clear_items : start:int -> stop:int -> unit
-    method connect : tree_signals
-    method insert : tree_item -> pos:int -> unit
-    method item_up : pos:int -> unit
-    method remove_items : tree_item list -> unit
-    method select_item : pos:int -> unit
-    method selection : tree_item list
-(*    method set_selection_mode : Tags.selection_mode -> unit *)
-    method set_view_lines : bool -> unit
-(*    method set_view_mode : [`LINE|`ITEM] -> unit *)
-    method unselect_item : pos:int -> unit
-    method private wrap : Gtk.widget obj -> tree_item
-  end
-
-val tree_item :
-  ?label:string ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(tree_item -> unit) -> ?show:bool -> unit -> tree_item
-
-val tree :
-  ?selection_mode:Tags.selection_mode ->
-  ?view_mode:[`LINE|`ITEM] ->
-  ?view_lines:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int -> ?packing:(GObj.widget -> unit) -> ?show:bool -> unit -> tree

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gtkTree2.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gtkTree2.ml
deleted file mode 100644 (file)
index 46d1e02..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gtkTree2.ml
+++ /dev/null
@@ -1,82 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module TreeItem = struct
-  let cast w : tree_item obj =
-    if Object.is_a w "GtkTreeItem" then Obj.magic w
-    else invalid_arg "Gtk.TreeItem.cast"
-  external create : unit -> tree_item obj = "ml_gtk_tree_item2_new"
-  external create_with_label : string -> tree_item obj
-      = "ml_gtk_tree_item2_new_with_label"
-  let create ?label () =
-    match label with None -> create ()
-    | Some label -> create_with_label label
-  external set_subtree : [>`treeitem] obj -> [>`widget] obj -> unit
-      = "ml_gtk_tree_item2_set_subtree"
-  external remove_subtree : [>`treeitem] obj -> unit
-      = "ml_gtk_tree_item2_remove_subtree"
-  external expand : [>`treeitem] obj -> unit
-      = "ml_gtk_tree_item2_expand"
-  external collapse : [>`treeitem] obj -> unit
-      = "ml_gtk_tree_item2_collapse"
-  external subtree : [>`treeitem] obj -> tree obj
-      = "ml_GTK_TREE_ITEM2_SUBTREE"
-  let subtree t = try subtree t with Gpointer.Null -> raise Not_found
-  module Signals = struct
-    open GtkSignal
-    let expand : ([>`treeitem],_) t =
-      { name = "expand"; marshaller = marshal_unit }
-    let collapse : ([>`treeitem],_) t =
-      { name = "collapse"; marshaller = marshal_unit }
-  end
-end
-
-module Tree = struct
-  let cast w : tree obj =
-    if Object.is_a w "GtkTree" then Obj.magic w
-    else invalid_arg "Gtk.Tree.cast"
-  external coerce : [>`tree] obj -> tree obj = "%identity"
-  external create : unit -> tree obj = "ml_gtk_tree2_new"
-  external insert : [>`tree] obj -> [>`treeitem] obj -> pos:int -> unit
-      = "ml_gtk_tree2_insert"
-  external remove_items : [>`tree] obj -> [>`treeitem] obj list -> unit
-      = "ml_gtk_tree2_remove_items"
-  external clear_items : [>`tree] obj -> start:int -> stop:int -> unit
-      = "ml_gtk_tree2_clear_items"
-  external select_item : [>`tree] obj -> pos:int -> unit
-      = "ml_gtk_tree2_select_item"
-  external unselect_item : [>`tree] obj -> pos:int -> unit
-      = "ml_gtk_tree2_unselect_item"
-  external child_position : [>`tree] obj -> [>`treeitem] obj -> int
-      = "ml_gtk_tree2_child_position"
-(*  external set_selection_mode : [>`tree] obj -> selection_mode -> unit
-      = "ml_gtk_tree2_set_selection_mode"
-  external set_view_mode : [>`tree] obj -> [`LINE|`ITEM] -> unit
-      = "ml_gtk_tree2_set_view_mode"
-*)
-  external set_view_lines : [>`tree] obj -> bool -> unit
-      = "ml_gtk_tree2_set_view_lines"
-  external selection : [>`tree] obj -> tree_item obj list =
-    "ml_gtk_tree2_selection"
-  external item_up : [>`tree] obj -> int -> unit =
-    "ml_gtk_tree2_item_up"
-
-  let set ?selection_mode ?view_mode ?view_lines w =
-    let may_set f = may ~f:(f w) in
-(*    may_set set_selection_mode selection_mode;
-    may_set set_view_mode view_mode; *)
-    may_set set_view_lines view_lines
-  module Signals = struct
-    open GtkSignal
-    let selection_changed : ([>`tree],_) t =
-      { name = "selection_changed"; marshaller = marshal_unit }
-    let select_child : ([>`tree],_) t =
-      { name = "select_child"; marshaller = Widget.Signals.marshal }
-    let unselect_child : ([>`tree],_) t =
-      { name = "unselect_child"; marshaller = Widget.Signals.marshal }
-  end
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gtktree2.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gtktree2.c
deleted file mode 100644 (file)
index db37a1f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gtktree2.c
+++ /dev/null
@@ -1,1385 +0,0 @@
-/* GTK - The GIMP Toolkit
- * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Library General Public License for more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with this library; if not, write to the
- * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
- * Boston, MA 02111-1307, USA.
- */
-
-/*
- * Modified by the GTK+ Team and others 1997-1999.  See the AUTHORS
- * file for a list of people on the GTK+ Team.  See the ChangeLog
- * files for a list of changes.  These files are distributed with
- * GTK+ at ftp://ftp.gtk.org/pub/gtk/. 
- */
-
-#include "gtktree2.h"
-#include "gtktreeitem2.h"
-
-#include <gtk/gtkmain.h>
-#include <gtk/gtksignal.h>
-#include <gtk/gtklist.h>
-
-enum {
-  SELECTION_CHANGED,
-  SELECT_CHILD,
-  UNSELECT_CHILD,
-  LAST_SIGNAL
-};
-
-static void gtk_tree2_class_init      (GtkTree2Class   *klass);
-static void gtk_tree2_init            (GtkTree2        *tree);
-static void gtk_tree2_destroy         (GtkObject      *object);
-static void gtk_tree2_map             (GtkWidget      *widget);
-static void gtk_tree2_unmap           (GtkWidget      *widget);
-static void gtk_tree2_realize         (GtkWidget      *widget);
-static void gtk_tree2_draw            (GtkWidget      *widget,
-                                     GdkRectangle   *area);
-static gint gtk_tree2_expose          (GtkWidget      *widget,
-                                     GdkEventExpose *event);
-static gint gtk_tree2_motion_notify   (GtkWidget      *widget,
-                                     GdkEventMotion *event);
-static gint gtk_tree2_button_press    (GtkWidget      *widget,
-                                     GdkEventButton *event);
-static gint gtk_tree2_button_release  (GtkWidget      *widget,
-                                     GdkEventButton *event);
-static void gtk_tree2_size_request    (GtkWidget      *widget,
-                                     GtkRequisition *requisition);
-static void gtk_tree2_size_allocate   (GtkWidget      *widget,
-                                     GtkAllocation  *allocation);
-static void gtk_tree2_add             (GtkContainer   *container,
-                                     GtkWidget      *widget);
-static void gtk_tree2_forall          (GtkContainer   *container,
-                                     gboolean        include_internals,
-                                     GtkCallback     callback,
-                                     gpointer        callback_data);
-
-static void gtk_real_tree2_select_child   (GtkTree2       *tree,
-                                         GtkWidget     *child);
-static void gtk_real_tree2_unselect_child (GtkTree2       *tree,
-                                         GtkWidget     *child);
-
-static GtkType gtk_tree2_child_type  (GtkContainer   *container);
-
-static GtkContainerClass *parent_class = NULL;
-static guint tree_signals[LAST_SIGNAL] = { 0 };
-
-GtkType
-gtk_tree2_get_type (void)
-{
-  static GtkType tree_type = 0;
-  
-  if (!tree_type)
-    {
-      static const GtkTypeInfo tree_info =
-      {
-       "GtkTree2",
-       sizeof (GtkTree2),
-       sizeof (GtkTree2Class),
-       (GtkClassInitFunc) gtk_tree2_class_init,
-       (GtkObjectInitFunc) gtk_tree2_init,
-       /* reserved_1 */ NULL,
-        /* reserved_2 */ NULL,
-        (GtkClassInitFunc) NULL,
-      };
-      
-      tree_type = gtk_type_unique (gtk_container_get_type (), &tree_info);
-    }
-  
-  return tree_type;
-}
-
-static void
-gtk_tree2_class_init (GtkTree2Class *class)
-{
-  GtkObjectClass *object_class;
-  GtkWidgetClass *widget_class;
-  GtkContainerClass *container_class;
-  
-  object_class = (GtkObjectClass*) class;
-  widget_class = (GtkWidgetClass*) class;
-  container_class = (GtkContainerClass*) class;
-  
-  parent_class = gtk_type_class (gtk_container_get_type ());
-  
-  tree_signals[SELECTION_CHANGED] =
-    gtk_signal_new ("selection_changed",
-                   GTK_RUN_FIRST,
-                   object_class->type,
-                   GTK_SIGNAL_OFFSET (GtkTree2Class, selection_changed),
-                   gtk_marshal_NONE__NONE,
-                   GTK_TYPE_NONE, 0);
-  tree_signals[SELECT_CHILD] =
-    gtk_signal_new ("select_child",
-                   GTK_RUN_FIRST,
-                   object_class->type,
-                   GTK_SIGNAL_OFFSET (GtkTree2Class, select_child),
-                   gtk_marshal_NONE__POINTER,
-                   GTK_TYPE_NONE, 1,
-                   GTK_TYPE_WIDGET);
-  tree_signals[UNSELECT_CHILD] =
-    gtk_signal_new ("unselect_child",
-                   GTK_RUN_FIRST,
-                   object_class->type,
-                   GTK_SIGNAL_OFFSET (GtkTree2Class, unselect_child),
-                   gtk_marshal_NONE__POINTER,
-                   GTK_TYPE_NONE, 1,
-                   GTK_TYPE_WIDGET);
-  
-  gtk_object_class_add_signals (object_class, tree_signals, LAST_SIGNAL);
-  
-  object_class->destroy = gtk_tree2_destroy;
-  
-  widget_class->map = gtk_tree2_map;
-  widget_class->unmap = gtk_tree2_unmap;
-  widget_class->realize = gtk_tree2_realize;
-  widget_class->draw = gtk_tree2_draw;
-  widget_class->expose_event = gtk_tree2_expose;
-  widget_class->motion_notify_event = gtk_tree2_motion_notify;
-  widget_class->button_press_event = gtk_tree2_button_press;
-  widget_class->button_release_event = gtk_tree2_button_release;
-  widget_class->size_request = gtk_tree2_size_request;
-  widget_class->size_allocate = gtk_tree2_size_allocate;
-  
-  container_class->add = gtk_tree2_add;
-  container_class->remove = 
-    (void (*)(GtkContainer *, GtkWidget *)) gtk_tree2_remove_item;
-  container_class->forall = gtk_tree2_forall;
-  container_class->child_type = gtk_tree2_child_type;
-  
-  class->selection_changed = NULL;
-  class->select_child = gtk_real_tree2_select_child;
-  class->unselect_child = gtk_real_tree2_unselect_child;
-}
-
-static GtkType
-gtk_tree2_child_type (GtkContainer     *container)
-{
-  return GTK_TYPE_TREE_ITEM2;
-}
-
-static void
-gtk_tree2_init (GtkTree2 *tree)
-{
-  tree->children = NULL;
-  tree->root_tree = NULL;
-  tree->selection = NULL;
-  tree->tree_owner = NULL;
-  tree->selection_mode = GTK_SELECTION_SINGLE;
-  tree->indent_value = 9;
-  tree->current_indent = 0;
-  tree->level = 0;
-  tree->view_mode = GTK_TREE2_VIEW_LINE;
-  tree->view_line = 1;
-}
-
-GtkWidget*
-gtk_tree2_new (void)
-{
-  return GTK_WIDGET (gtk_type_new (gtk_tree2_get_type ()));
-}
-
-void
-gtk_tree2_append (GtkTree2   *tree,
-                GtkWidget *tree_item)
-{
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-  gtk_tree2_insert (tree, tree_item, -1);
-}
-
-void
-gtk_tree2_prepend (GtkTree2   *tree,
-                 GtkWidget *tree_item)
-{
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-  gtk_tree2_insert (tree, tree_item, 0);
-}
-
-void
-gtk_tree2_insert (GtkTree2   *tree,
-                GtkWidget *tree_item,
-                gint       position)
-{
-  gint nchildren;
-  
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-  nchildren = g_list_length (tree->children);
-  
-  if ((position < 0) || (position > nchildren))
-    position = nchildren;
-  
-  if (position == nchildren)
-    tree->children = g_list_append (tree->children, tree_item);
-  else
-    tree->children = g_list_insert (tree->children, tree_item, position);
-  
-  gtk_widget_set_parent (tree_item, GTK_WIDGET (tree));
-  
-  if (GTK_WIDGET_REALIZED (tree_item->parent))
-    gtk_widget_realize (tree_item);
-
-  if (GTK_WIDGET_VISIBLE (tree_item->parent) && GTK_WIDGET_VISIBLE (tree_item))
-    {
-      if (GTK_WIDGET_MAPPED (tree_item->parent))
-       gtk_widget_map (tree_item);
-
-      gtk_widget_queue_resize (tree_item);
-    }
-}
-
-/* moves the pos child up in the tree */
-void
-gtk_tree2_item_up (GtkTree2   *tree,
-                gint       position)
-{
-  gint nchildren, i;
-  GList *children, *tmp;
-  
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-  children = (tree->children);
-  nchildren = g_list_length (tree->children);
-  
-  if ((position < 1) || (position >= nchildren))
-    return;
-  
-  for (i=1; i < position; i++)
-    children = (children->next);
-
-  tmp = children->next;
-  if (position == 1)
-    {
-      tree->children = children->next;
-      children->next->prev = NULL;
-    }
-  else
-    {
-      children->prev->next = children->next;
-      children->next->prev = children->prev;
-    }
-  children->next = tmp->next;
-  children->prev = tmp;
-  if (tmp->next)
-      tmp->next->prev = children;
-  tmp->next = children;
-  
-  if (GTK_WIDGET_VISIBLE (tree))
-    {
-/*      if (GTK_WIDGET_VISIBLE (GTK_WIDGET(children->data)))
-       gtk_widget_queue_resize (GTK_WIDGET(children->data));
-      if (GTK_WIDGET_VISIBLE (GTK_WIDGET(tmp->data)))
-       gtk_widget_queue_resize (GTK_WIDGET(tmp->data));
-*/
-      gtk_widget_queue_resize (GTK_WIDGET(tree));
-    }
-}
-
-static void
-gtk_tree2_add (GtkContainer *container,
-             GtkWidget    *child)
-{
-  GtkTree2 *tree;
-  
-  g_return_if_fail (container != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (container));
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (child));
-  
-  tree = GTK_TREE2 (container);
-  
-  tree->children = g_list_append (tree->children, child);
-  
-  gtk_widget_set_parent (child, GTK_WIDGET (container));
-  
-  if (GTK_WIDGET_REALIZED (child->parent))
-    gtk_widget_realize (child);
-
-  if (GTK_WIDGET_VISIBLE (child->parent) && GTK_WIDGET_VISIBLE (child))
-    {
-      if (GTK_WIDGET_MAPPED (child->parent))
-       gtk_widget_map (child);
-
-      gtk_widget_queue_resize (child);
-    }
-  
-  if (!tree->selection && (tree->selection_mode == GTK_SELECTION_BROWSE))
-    gtk_tree2_select_child (tree, child);
-}
-
-static gint
-gtk_tree2_button_press (GtkWidget      *widget,
-                      GdkEventButton *event)
-{
-  GtkTree2 *tree;
-  GtkWidget *item;
-  
-  g_return_val_if_fail (widget != NULL, FALSE);
-  g_return_val_if_fail (GTK_IS_TREE2 (widget), FALSE);
-  g_return_val_if_fail (event != NULL, FALSE);
-  
-  tree = GTK_TREE2 (widget);
-  item = gtk_get_event_widget ((GdkEvent*) event);
-  
-  while (item && !GTK_IS_TREE_ITEM2 (item))
-    item = item->parent;
-  
-  if (!item || (item->parent != widget))
-    return FALSE;
-  
-  switch(event->button) 
-    {
-    case 1:
-      gtk_tree2_select_child (tree, item);
-      break;
-    case 2:
-      if(GTK_TREE_ITEM2(item)->subtree) gtk_tree_item2_expand(GTK_TREE_ITEM2(item));
-      break;
-    case 3:
-      if(GTK_TREE_ITEM2(item)->subtree) gtk_tree_item2_collapse(GTK_TREE_ITEM2(item));
-      break;
-    }
-  
-  return TRUE;
-}
-
-static gint
-gtk_tree2_button_release (GtkWidget      *widget,
-                        GdkEventButton *event)
-{
-  GtkTree2 *tree;
-  GtkWidget *item;
-  
-  g_return_val_if_fail (widget != NULL, FALSE);
-  g_return_val_if_fail (GTK_IS_TREE2 (widget), FALSE);
-  g_return_val_if_fail (event != NULL, FALSE);
-  
-  tree = GTK_TREE2 (widget);
-  item = gtk_get_event_widget ((GdkEvent*) event);
-  
-  return TRUE;
-}
-
-gint
-gtk_tree2_child_position (GtkTree2   *tree,
-                        GtkWidget *child)
-{
-  GList *children;
-  gint pos;
-  
-  
-  g_return_val_if_fail (tree != NULL, -1);
-  g_return_val_if_fail (GTK_IS_TREE2 (tree), -1);
-  g_return_val_if_fail (child != NULL, -1);
-  
-  pos = 0;
-  children = tree->children;
-  
-  while (children)
-    {
-      if (child == GTK_WIDGET (children->data)) 
-       return pos;
-      
-      pos += 1;
-      children = children->next;
-    }
-  
-  
-  return -1;
-}
-
-void
-gtk_tree2_clear_items (GtkTree2 *tree,
-                     gint     start,
-                     gint     end)
-{
-  GtkWidget *widget;
-  GList *clear_list;
-  GList *tmp_list;
-  guint nchildren;
-  guint index;
-  
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-  nchildren = g_list_length (tree->children);
-  
-  if (nchildren > 0)
-    {
-      if ((end < 0) || (end > nchildren))
-       end = nchildren;
-      
-      if (start >= end)
-       return;
-      
-      tmp_list = g_list_nth (tree->children, start);
-      clear_list = NULL;
-      index = start;
-      while (tmp_list && index <= end)
-       {
-         widget = tmp_list->data;
-         tmp_list = tmp_list->next;
-         index++;
-         
-         clear_list = g_list_prepend (clear_list, widget);
-       }
-      
-      gtk_tree2_remove_items (tree, clear_list);
-    }
-}
-
-static void
-gtk_tree2_destroy (GtkObject *object)
-{
-  GtkTree2 *tree;
-  GtkWidget *child;
-  GList *children;
-  
-  g_return_if_fail (object != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (object));
-  
-  tree = GTK_TREE2 (object);
-  
-  children = tree->children;
-  while (children)
-    {
-      child = children->data;
-      children = children->next;
-      
-      gtk_widget_ref (child);
-      gtk_widget_unparent (child);
-      gtk_widget_destroy (child);
-      gtk_widget_unref (child);
-    }
-  
-  g_list_free (tree->children);
-  tree->children = NULL;
-  
-  if (tree->root_tree == tree)
-    {
-      GList *node;
-      for (node = tree->selection; node; node = node->next)
-       gtk_widget_unref ((GtkWidget *)node->data);
-      g_list_free (tree->selection);
-      tree->selection = NULL;
-    }
-  
-  if (GTK_OBJECT_CLASS (parent_class)->destroy)
-    (* GTK_OBJECT_CLASS (parent_class)->destroy) (object);
-}
-
-static void
-gtk_tree2_draw (GtkWidget    *widget,
-              GdkRectangle *area)
-{
-  GtkTree2 *tree;
-  GtkWidget *subtree;
-  GtkWidget *child;
-  GdkRectangle child_area;
-  GList *children;
-  
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (widget));
-  g_return_if_fail (area != NULL);
-  
-  if (GTK_WIDGET_DRAWABLE (widget))
-    {
-      tree = GTK_TREE2 (widget);
-      
-      children = tree->children;
-      while (children)
-       {
-         child = children->data;
-         children = children->next;
-         
-         if (gtk_widget_intersect (child, area, &child_area))
-           gtk_widget_draw (child, &child_area);
-         
-         if((subtree = GTK_TREE_ITEM2(child)->subtree) &&
-            GTK_WIDGET_VISIBLE(subtree) &&
-            gtk_widget_intersect (subtree, area, &child_area))
-           gtk_widget_draw (subtree, &child_area);
-       }
-    }
-  
-}
-
-static gint
-gtk_tree2_expose (GtkWidget      *widget,
-                GdkEventExpose *event)
-{
-  GtkTree2 *tree;
-  GtkWidget *child;
-  GdkEventExpose child_event;
-  GList *children;
-  
-  
-  g_return_val_if_fail (widget != NULL, FALSE);
-  g_return_val_if_fail (GTK_IS_TREE2 (widget), FALSE);
-  g_return_val_if_fail (event != NULL, FALSE);
-  
-  if (GTK_WIDGET_DRAWABLE (widget))
-    {
-      tree = GTK_TREE2 (widget);
-      
-      child_event = *event;
-      
-      children = tree->children;
-      while (children)
-       {
-         child = children->data;
-         children = children->next;
-         
-         if (GTK_WIDGET_NO_WINDOW (child) &&
-             gtk_widget_intersect (child, &event->area, &child_event.area))
-           gtk_widget_event (child, (GdkEvent*) &child_event);
-       }
-    }
-  
-  
-  return FALSE;
-}
-
-static void
-gtk_tree2_forall (GtkContainer *container,
-                gboolean      include_internals,
-                GtkCallback   callback,
-                gpointer      callback_data)
-{
-  GtkTree2 *tree;
-  GtkWidget *child;
-  GList *children;
-  
-  
-  g_return_if_fail (container != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (container));
-  g_return_if_fail (callback != NULL);
-  
-  tree = GTK_TREE2 (container);
-  children = tree->children;
-  
-  while (children)
-    {
-      child = children->data;
-      children = children->next;
-
-      (* callback) (child, callback_data);
-
-      if (include_internals && GTK_TREE_ITEM2(child)->subtree)
-      (* callback) (GTK_TREE_ITEM2(child)->subtree, callback_data);
-    }
-}
-
-static void
-gtk_tree2_map (GtkWidget *widget)
-{
-  GtkTree2 *tree;
-  GtkWidget *child;
-  GList *children;
-  
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (widget));
-  
-  GTK_WIDGET_SET_FLAGS (widget, GTK_MAPPED);
-  tree = GTK_TREE2 (widget);
-  
-  if(GTK_IS_TREE2(widget->parent)) 
-    {
-      /* set root tree for this tree */
-      tree->root_tree = GTK_TREE2(widget->parent)->root_tree;
-      
-      tree->level = GTK_TREE2(GTK_WIDGET(tree)->parent)->level+1;
-      tree->indent_value = GTK_TREE2(GTK_WIDGET(tree)->parent)->indent_value;
-      tree->current_indent = GTK_TREE2(GTK_WIDGET(tree)->parent)->current_indent + 
-       tree->indent_value;
-      tree->view_mode = GTK_TREE2(GTK_WIDGET(tree)->parent)->view_mode;
-      tree->view_line = GTK_TREE2(GTK_WIDGET(tree)->parent)->view_line;
-    } 
-  else
-    tree->root_tree = tree;
-  
-  children = tree->children;
-  while (children)
-    {
-      child = children->data;
-      children = children->next;
-      
-      if (GTK_WIDGET_VISIBLE (child) &&
-         !GTK_WIDGET_MAPPED (child))
-       gtk_widget_map (child);
-      
-      if (GTK_TREE_ITEM2 (child)->subtree)
-       {
-         child = GTK_WIDGET (GTK_TREE_ITEM2 (child)->subtree);
-         
-         if (GTK_WIDGET_VISIBLE (child) && !GTK_WIDGET_MAPPED (child))
-           gtk_widget_map (child);
-       }
-    }
-
-  gdk_window_show (widget->window);
-}
-
-static gint
-gtk_tree2_motion_notify (GtkWidget      *widget,
-                       GdkEventMotion *event)
-{
-  g_return_val_if_fail (widget != NULL, FALSE);
-  g_return_val_if_fail (GTK_IS_TREE2 (widget), FALSE);
-  g_return_val_if_fail (event != NULL, FALSE);
-  
-#ifdef TREE_DEBUG
-  g_message("gtk_tree2_motion_notify\n");
-#endif /* TREE_DEBUG */
-  
-  return FALSE;
-}
-
-static void
-gtk_tree2_realize (GtkWidget *widget)
-{
-  GdkWindowAttr attributes;
-  gint attributes_mask;
-  
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (widget));
-  
-  GTK_WIDGET_SET_FLAGS (widget, GTK_REALIZED);
-  
-  attributes.window_type = GDK_WINDOW_CHILD;
-  attributes.x = widget->allocation.x;
-  attributes.y = widget->allocation.y;
-  attributes.width = widget->allocation.width;
-  attributes.height = widget->allocation.height;
-  attributes.wclass = GDK_INPUT_OUTPUT;
-  attributes.visual = gtk_widget_get_visual (widget);
-  attributes.colormap = gtk_widget_get_colormap (widget);
-  attributes.event_mask = gtk_widget_get_events (widget) | GDK_EXPOSURE_MASK;
-  
-  attributes_mask = GDK_WA_X | GDK_WA_Y | GDK_WA_VISUAL | GDK_WA_COLORMAP;
-  
-  widget->window = gdk_window_new (gtk_widget_get_parent_window (widget), &attributes, attributes_mask);
-  gdk_window_set_user_data (widget->window, widget);
-  
-  widget->style = gtk_style_attach (widget->style, widget->window);
-  gdk_window_set_background (widget->window, 
-                            &widget->style->base[GTK_STATE_NORMAL]);
-}
-
-void
-gtk_tree2_remove_item (GtkTree2      *container,
-                     GtkWidget    *widget)
-{
-  GList *item_list;
-  
-  g_return_if_fail (container != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (container));
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (container == GTK_TREE2 (widget->parent));
-  
-  item_list = g_list_append (NULL, widget);
-  
-  gtk_tree2_remove_items (GTK_TREE2 (container), item_list);
-  
-  g_list_free (item_list);
-}
-
-/* used by gtk_tree2_remove_items to make the function independant of
-   order in list of items to remove.
-   Sort item bu depth in tree */
-static gint 
-gtk_tree2_sort_item_by_depth(GtkWidget* a, GtkWidget* b)
-{
-  if((GTK_TREE2(a->parent)->level) < (GTK_TREE2(b->parent)->level))
-    return 1;
-  if((GTK_TREE2(a->parent)->level) > (GTK_TREE2(b->parent)->level))
-    return -1;
-  
-  return 0;
-}
-
-void
-gtk_tree2_remove_items (GtkTree2 *tree,
-                      GList   *items)
-{
-  GtkWidget *widget;
-  GList *selected_widgets;
-  GList *tmp_list;
-  GList *sorted_list;
-  GtkTree2 *real_tree;
-  GtkTree2 *root_tree;
-  
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-#ifdef TREE_DEBUG
-  g_message("+ gtk_tree2_remove_items [ tree %#x items list %#x ]\n", (int)tree, (int)items);
-#endif /* TREE_DEBUG */
-  
-  /* We may not yet be mapped, so we actively have to find our
-   * root tree
-   */
-  if (tree->root_tree)
-    root_tree = tree->root_tree;
-  else
-    {
-      GtkWidget *tmp = GTK_WIDGET (tree);
-      while (tmp->parent && GTK_IS_TREE2 (tmp->parent))
-       tmp = tmp->parent;
-      
-      root_tree = GTK_TREE2 (tmp);
-    }
-  
-  tmp_list = items;
-  selected_widgets = NULL;
-  sorted_list = NULL;
-  widget = NULL;
-  
-#ifdef TREE_DEBUG
-  g_message("* sort list by depth\n");
-#endif /* TREE_DEBUG */
-  
-  while (tmp_list)
-    {
-      
-#ifdef TREE_DEBUG
-      g_message ("* item [%#x] depth [%d]\n", 
-                (int)tmp_list->data,
-                (int)GTK_TREE2(GTK_WIDGET(tmp_list->data)->parent)->level);
-#endif /* TREE_DEBUG */
-      
-      sorted_list = g_list_insert_sorted(sorted_list,
-                                        tmp_list->data,
-                                        (GCompareFunc)gtk_tree2_sort_item_by_depth);
-      tmp_list = g_list_next(tmp_list);
-    }
-  
-#ifdef TREE_DEBUG
-  /* print sorted list */
-  g_message("* sorted list result\n");
-  tmp_list = sorted_list;
-  while(tmp_list)
-    {
-      g_message("* item [%#x] depth [%d]\n", 
-               (int)tmp_list->data,
-               (int)GTK_TREE2(GTK_WIDGET(tmp_list->data)->parent)->level);
-      tmp_list = g_list_next(tmp_list);
-    }
-#endif /* TREE_DEBUG */
-  
-#ifdef TREE_DEBUG
-  g_message("* scan sorted list\n");
-#endif /* TREE_DEBUG */
-  
-  tmp_list = sorted_list;
-  while (tmp_list)
-    {
-      widget = tmp_list->data;
-      tmp_list = tmp_list->next;
-      
-#ifdef TREE_DEBUG
-      g_message("* item [%#x] subtree [%#x]\n", 
-               (int)widget, (int)GTK_TREE_ITEM2_SUBTREE(widget));
-#endif /* TREE_DEBUG */
-      
-      /* get real owner of this widget */
-      real_tree = GTK_TREE2(widget->parent);
-#ifdef TREE_DEBUG
-      g_message("* subtree having this widget [%#x]\n", (int)real_tree);
-#endif /* TREE_DEBUG */
-      
-      
-      if (widget->state == GTK_STATE_SELECTED)
-       {
-         selected_widgets = g_list_prepend (selected_widgets, widget);
-#ifdef TREE_DEBUG
-         g_message("* selected widget - adding it in selected list [%#x]\n",
-                   (int)selected_widgets);
-#endif /* TREE_DEBUG */
-       }
-      
-      /* remove this item from its real parent */
-#ifdef TREE_DEBUG
-      g_message("* remove widget from its owner tree\n");
-#endif /* TREE_DEBUG */
-      real_tree->children = g_list_remove (real_tree->children, widget);
-      
-      /* remove subtree associate at this item if it exist */      
-      if(GTK_TREE_ITEM2(widget)->subtree) 
-       {
-#ifdef TREE_DEBUG
-         g_message("* remove subtree associate at this item [%#x]\n",
-                   (int) GTK_TREE_ITEM2(widget)->subtree);
-#endif /* TREE_DEBUG */
-         if (GTK_WIDGET_MAPPED (GTK_TREE_ITEM2(widget)->subtree))
-           gtk_widget_unmap (GTK_TREE_ITEM2(widget)->subtree);
-         
-         gtk_widget_unparent (GTK_TREE_ITEM2(widget)->subtree);
-         GTK_TREE_ITEM2(widget)->subtree = NULL;
-       }
-      
-      /* really remove widget for this item */
-#ifdef TREE_DEBUG
-      g_message("* unmap and unparent widget [%#x]\n", (int)widget);
-#endif /* TREE_DEBUG */
-      if (GTK_WIDGET_MAPPED (widget))
-       gtk_widget_unmap (widget);
-      
-      gtk_widget_unparent (widget);
-      
-      /* delete subtree if there is no children in it */
-/* HF supprime */
-/*       if(real_tree->children == NULL && 
-        real_tree != root_tree)
-       {
-*/
-#ifdef TREE_DEBUG
-         g_message("* owner tree don't have children ... destroy it\n");
-#endif /* TREE_DEBUG */
-/*
-         gtk_tree_item2_remove_subtree(GTK_TREE_ITEM2(real_tree->tree_owner));
-       }
-*/      
-#ifdef TREE_DEBUG
-      g_message("* next item in list\n");
-#endif /* TREE_DEBUG */
-    }
-  
-  if (selected_widgets)
-    {
-#ifdef TREE_DEBUG
-      g_message("* scan selected item list\n");
-#endif /* TREE_DEBUG */
-      tmp_list = selected_widgets;
-      while (tmp_list)
-       {
-         widget = tmp_list->data;
-         tmp_list = tmp_list->next;
-         
-#ifdef TREE_DEBUG
-         g_message("* widget [%#x] subtree [%#x]\n", 
-                   (int)widget, (int)GTK_TREE_ITEM2_SUBTREE(widget));
-#endif /* TREE_DEBUG */
-         
-         /* remove widget of selection */
-         root_tree->selection = g_list_remove (root_tree->selection, widget);
-         
-         /* unref it to authorize is destruction */
-         gtk_widget_unref (widget);
-       }
-      
-      /* emit only one selection_changed signal */
-      gtk_signal_emit (GTK_OBJECT (root_tree), 
-                      tree_signals[SELECTION_CHANGED]);
-    }
-  
-#ifdef TREE_DEBUG
-  g_message("* free selected_widgets list\n");
-#endif /* TREE_DEBUG */
-  g_list_free (selected_widgets);
-  g_list_free (sorted_list);
-  
-  if (root_tree->children && !root_tree->selection &&
-      (root_tree->selection_mode == GTK_SELECTION_BROWSE))
-    {
-#ifdef TREE_DEBUG
-      g_message("* BROWSE mode, select another item\n");
-#endif /* TREE_DEBUG */
-      widget = root_tree->children->data;
-      gtk_tree2_select_child (root_tree, widget);
-    }
-  
-  if (GTK_WIDGET_VISIBLE (root_tree))
-    {
-#ifdef TREE_DEBUG
-      g_message("* query queue resizing for root_tree\n");
-#endif /* TREE_DEBUG */      
-      gtk_widget_queue_resize (GTK_WIDGET (root_tree));
-    }
-}
-
-void
-gtk_tree2_select_child (GtkTree2   *tree,
-                      GtkWidget *tree_item)
-{
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-  gtk_signal_emit (GTK_OBJECT (tree), tree_signals[SELECT_CHILD], tree_item);
-}
-
-void
-gtk_tree2_select_next_child (GtkTree2   *tree,
-                      GtkWidget *tree_item, gboolean descend)
-{
-  GList *children;
-
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-  if (descend && GTK_TREE2(GTK_TREE_ITEM2(tree_item)->subtree)->children)
-    {
-      gtk_signal_emit (GTK_OBJECT (GTK_TREE_ITEM2(tree_item)->subtree), tree_signals[SELECT_CHILD], GTK_TREE2(GTK_TREE_ITEM2(tree_item)->subtree)->children->data);
-      return;
-    }
-
-  children = tree->children;
-  while (children)
-    {
-      if (tree_item == GTK_WIDGET (children->data)) 
-       break;
-      
-      children = children->next;
-    }
-  if (!children) return;
-  
-  if (children->next)
-    gtk_signal_emit (GTK_OBJECT (tree), tree_signals[SELECT_CHILD], children->next->data);
-  else if (tree != tree->root_tree)
-    {
-      children = GTK_TREE2(GTK_WIDGET(tree)->parent)->children;
-       gtk_tree2_select_next_child (GTK_TREE2(GTK_WIDGET(tree)->parent), tree->tree_owner, FALSE);
-    }
-
-}
-
-/* we know that tree is not the roor_tree and that
-   tree_items always have subtrees */
-void
-gtk_tree2_select_prev_child (GtkTree2   *tree,
-                      GtkWidget *tree_item)
-{
-  GList *children;
-  GtkTreeItem2 *tree_item2;
-
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-
-  children = tree->children;
-  while (children)
-    {
-      if (tree_item == GTK_WIDGET (children->data)) 
-       break;
-      
-      children = children->next;
-    }
-  if (!children) return;
-  
-  if (children = children->prev)
-    {
-      tree_item2 = GTK_TREE_ITEM2(children->data);
-      while (GTK_TREE2(tree_item2->subtree)->children)
-       {
-         children = GTK_TREE2(tree_item2->subtree)->children;
-         while (children->next)
-           children = children->next;
-         tree_item2 = GTK_TREE_ITEM2(children->data);
-       }
-    gtk_signal_emit (GTK_OBJECT (GTK_WIDGET(tree_item2)->parent), tree_signals[SELECT_CHILD], tree_item2);
-    }
-  else
-    {
-      gtk_signal_emit (GTK_OBJECT (GTK_WIDGET(tree)->parent), tree_signals[SELECT_CHILD], tree->tree_owner);
-    }
-
-}
-
-void
-gtk_tree2_select_item (GtkTree2   *tree,
-                     gint       item)
-{
-  GList *tmp_list;
-  
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-  tmp_list = g_list_nth (tree->children, item);
-  if (tmp_list)
-    gtk_tree2_select_child (tree, GTK_WIDGET (tmp_list->data));
-  
-}
-
-static void
-gtk_tree2_size_allocate (GtkWidget     *widget,
-                       GtkAllocation *allocation)
-{
-  GtkTree2 *tree;
-  GtkWidget *child, *subtree;
-  GtkAllocation child_allocation;
-  GList *children;
-  
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (widget));
-  g_return_if_fail (allocation != NULL);
-  
-  tree = GTK_TREE2 (widget);
-  
-  widget->allocation = *allocation;
-  if (GTK_WIDGET_REALIZED (widget))
-    gdk_window_move_resize (widget->window,
-                           allocation->x, allocation->y,
-                           allocation->width, allocation->height);
-  
-  if (tree->children)
-    {
-      child_allocation.x = GTK_CONTAINER (tree)->border_width;
-      child_allocation.y = GTK_CONTAINER (tree)->border_width;
-      child_allocation.width = MAX (1, (gint)allocation->width - child_allocation.x * 2);
-      
-      children = tree->children;
-      
-      while (children)
-       {
-         child = children->data;
-         children = children->next;
-         
-         if (GTK_WIDGET_VISIBLE (child))
-           {
-             GtkRequisition child_requisition;
-             gtk_widget_get_child_requisition (child, &child_requisition);
-             
-             child_allocation.height = child_requisition.height;
-             
-             gtk_widget_size_allocate (child, &child_allocation);
-             
-             child_allocation.y += child_allocation.height;
-             
-             if((subtree = GTK_TREE_ITEM2(child)->subtree))
-               if(GTK_WIDGET_VISIBLE (subtree))
-                 {
-                   child_allocation.height = subtree->requisition.height;
-                   gtk_widget_size_allocate (subtree, &child_allocation);
-                   child_allocation.y += child_allocation.height;
-                 }
-           }
-       }
-    }
-  
-}
-
-static void
-gtk_tree2_size_request (GtkWidget      *widget,
-                      GtkRequisition *requisition)
-{
-  GtkTree2 *tree;
-  GtkWidget *child, *subtree;
-  GList *children;
-  GtkRequisition child_requisition;
-  
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (widget));
-  g_return_if_fail (requisition != NULL);
-  
-  tree = GTK_TREE2 (widget);
-  requisition->width = 0;
-  requisition->height = 0;
-  
-  children = tree->children;
-  while (children)
-    {
-      child = children->data;
-      children = children->next;
-      
-      if (GTK_WIDGET_VISIBLE (child))
-       {
-         gtk_widget_size_request (child, &child_requisition);
-         
-         requisition->width = MAX (requisition->width, child_requisition.width);
-         requisition->height += child_requisition.height;
-         
-         if((subtree = GTK_TREE_ITEM2(child)->subtree) &&
-            GTK_WIDGET_VISIBLE (subtree))
-           {
-             gtk_widget_size_request (subtree, &child_requisition);
-             
-             requisition->width = MAX (requisition->width, 
-                                       child_requisition.width);
-             
-             requisition->height += child_requisition.height;
-           }
-       }
-    }
-  
-  requisition->width += GTK_CONTAINER (tree)->border_width * 2;
-  requisition->height += GTK_CONTAINER (tree)->border_width * 2;
-  
-  requisition->width = MAX (requisition->width, 1);
-  requisition->height = MAX (requisition->height, 1);
-  
-}
-
-static void
-gtk_tree2_unmap (GtkWidget *widget)
-{
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (widget));
-  
-  GTK_WIDGET_UNSET_FLAGS (widget, GTK_MAPPED);
-  gdk_window_hide (widget->window);
-  
-}
-
-void
-gtk_tree2_unselect_child (GtkTree2   *tree,
-                        GtkWidget *tree_item)
-{
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-  gtk_signal_emit (GTK_OBJECT (tree), tree_signals[UNSELECT_CHILD], tree_item);
-}
-
-void
-gtk_tree2_unselect_item (GtkTree2 *tree,
-                       gint     item)
-{
-  GList *tmp_list;
-  
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-  tmp_list = g_list_nth (tree->children, item);
-  if (tmp_list)
-    gtk_tree2_unselect_child (tree, GTK_WIDGET (tmp_list->data));
-  
-}
-
-static void
-gtk_real_tree2_select_child (GtkTree2   *tree,
-                           GtkWidget *child)
-{
-  GList *selection, *root_selection;
-  GList *tmp_list;
-  GtkWidget *tmp_item;
-  
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (child != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (child));
-  
-  root_selection = tree->root_tree->selection;
-  
-  switch (tree->root_tree->selection_mode)
-    {
-    case GTK_SELECTION_SINGLE:
-      
-      selection = root_selection;
-      
-      /* remove old selection list */
-      while (selection)
-       {
-         tmp_item = selection->data;
-         
-         if (tmp_item != child)
-           {
-             gtk_tree_item2_deselect (GTK_TREE_ITEM2 (tmp_item));
-             
-             tmp_list = selection;
-             selection = selection->next;
-             
-             root_selection = g_list_remove_link (root_selection, tmp_list);
-             gtk_widget_unref (tmp_item);
-             
-             g_list_free (tmp_list);
-           }
-         else
-           selection = selection->next;
-       }
-      
-      if (child->state == GTK_STATE_NORMAL)
-       {
-         gtk_tree_item2_select (GTK_TREE_ITEM2 (child));
-         root_selection = g_list_prepend (root_selection, child);
-         gtk_widget_ref (child);
-       }
-      else if (child->state == GTK_STATE_SELECTED)
-       {
-         gtk_tree_item2_deselect (GTK_TREE_ITEM2 (child));
-         root_selection = g_list_remove (root_selection, child);
-         gtk_widget_unref (child);
-       }
-      
-      tree->root_tree->selection = root_selection;
-      
-      gtk_signal_emit (GTK_OBJECT (tree->root_tree), 
-                      tree_signals[SELECTION_CHANGED]);
-      break;
-      
-      
-    case GTK_SELECTION_BROWSE:
-      selection = root_selection;
-      
-      while (selection)
-       {
-         tmp_item = selection->data;
-         
-         if (tmp_item != child)
-           {
-             gtk_tree_item2_deselect (GTK_TREE_ITEM2 (tmp_item));
-             
-             tmp_list = selection;
-             selection = selection->next;
-             
-             root_selection = g_list_remove_link (root_selection, tmp_list);
-             gtk_widget_unref (tmp_item);
-             
-             g_list_free (tmp_list);
-           }
-         else
-           selection = selection->next;
-       }
-      
-      tree->root_tree->selection = root_selection;
-      
-      if (child->state == GTK_STATE_NORMAL)
-       {
-         gtk_tree_item2_select (GTK_TREE_ITEM2 (child));
-         root_selection = g_list_prepend (root_selection, child);
-         gtk_widget_ref (child);
-         tree->root_tree->selection = root_selection;
-         gtk_signal_emit (GTK_OBJECT (tree->root_tree), 
-                          tree_signals[SELECTION_CHANGED]);
-       }
-      break;
-      
-    case GTK_SELECTION_MULTIPLE:
-      if (child->state == GTK_STATE_NORMAL)
-       {
-         gtk_tree_item2_select (GTK_TREE_ITEM2 (child));
-         root_selection = g_list_prepend (root_selection, child);
-         gtk_widget_ref (child);
-         tree->root_tree->selection = root_selection;
-         gtk_signal_emit (GTK_OBJECT (tree->root_tree), 
-                          tree_signals[SELECTION_CHANGED]);
-       }
-      else if (child->state == GTK_STATE_SELECTED)
-       {
-         gtk_tree_item2_deselect (GTK_TREE_ITEM2 (child));
-         root_selection = g_list_remove (root_selection, child);
-         gtk_widget_unref (child);
-         tree->root_tree->selection = root_selection;
-         gtk_signal_emit (GTK_OBJECT (tree->root_tree), 
-                          tree_signals[SELECTION_CHANGED]);
-       }
-      break;
-      
-    case GTK_SELECTION_EXTENDED:
-      break;
-    }
-}
-
-static void
-gtk_real_tree2_unselect_child (GtkTree2   *tree,
-                             GtkWidget *child)
-{
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  g_return_if_fail (child != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (child));
-  
-  switch (tree->selection_mode)
-    {
-    case GTK_SELECTION_SINGLE:
-    case GTK_SELECTION_MULTIPLE:
-    case GTK_SELECTION_BROWSE:
-      if (child->state == GTK_STATE_SELECTED)
-       {
-         GtkTree2* root_tree = GTK_TREE2_ROOT_TREE(tree);
-         gtk_tree_item2_deselect (GTK_TREE_ITEM2 (child));
-         root_tree->selection = g_list_remove (root_tree->selection, child);
-         gtk_widget_unref (child);
-         gtk_signal_emit (GTK_OBJECT (tree->root_tree), 
-                          tree_signals[SELECTION_CHANGED]);
-       }
-      break;
-      
-    case GTK_SELECTION_EXTENDED:
-      break;
-    }
-}
-
-void
-gtk_tree2_set_selection_mode (GtkTree2       *tree,
-                            GtkSelectionMode mode) 
-{
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-  tree->selection_mode = mode;
-}
-
-void
-gtk_tree2_set_view_mode (GtkTree2       *tree,
-                       GtkTree2ViewMode mode) 
-{
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-  tree->view_mode = mode;
-}
-
-void
-gtk_tree2_set_view_lines (GtkTree2       *tree,
-                        guint          flag) 
-{
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-  tree->view_line = flag;
-}
-
-void 
-gtk_tree2_item_up_1 (GtkTree2       *tree,
-                  guint pos)
-{
-  GList *tmp;
-  guint length;
-  gpointer data;
-
-  g_return_if_fail (tree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (tree));
-  
-  tmp = tree->children;
-  length = g_list_length (tmp);
-  if (pos <= 0 || pos >= length) { return; }
-  data = g_list_nth_data (tree->children, pos);
-  g_list_remove (tree->children, data);
-  tree->children = g_list_insert (tree->children, data, pos-1);
-}

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gtktree2.h b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gtktree2.h
deleted file mode 100644 (file)
index 291a1d1..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gtktree2.h
+++ /dev/null
@@ -1,139 +0,0 @@
-/* GTK - The GIMP Toolkit
- * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Library General Public License for more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with this library; if not, write to the
- * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
- * Boston, MA 02111-1307, USA.
- */
-
-/*
- * Modified by the GTK+ Team and others 1997-1999.  See the AUTHORS
- * file for a list of people on the GTK+ Team.  See the ChangeLog
- * files for a list of changes.  These files are distributed with
- * GTK+ at ftp://ftp.gtk.org/pub/gtk/. 
- */
-
-#ifndef __GTK_TREE2_H__
-#define __GTK_TREE2_H__
-
-/* set this flag to enable tree debugging output */
-/* #define TREE_DEBUG */
-
-#include <gdk/gdk.h>
-#include <gtk/gtkcontainer.h>
-
-
-#ifdef __cplusplus
-extern "C" {
-#endif /* __cplusplus */
-
-
-#define GTK_TYPE_TREE2                  (gtk_tree2_get_type ())
-#define GTK_TREE2(obj)                  (GTK_CHECK_CAST ((obj), GTK_TYPE_TREE2, GtkTree2))
-#define GTK_TREE2_CLASS(klass)          (GTK_CHECK_CLASS_CAST ((klass), GTK_TYPE_TREE2, GtkTree2Class))
-#define GTK_IS_TREE2(obj)               (GTK_CHECK_TYPE ((obj), GTK_TYPE_TREE2))
-#define GTK_IS_TREE2_CLASS(klass)       (GTK_CHECK_CLASS_TYPE ((klass), GTK_TYPE_TREE2))
-
-#define GTK_IS_ROOT_TREE2(obj)   ((GtkObject*) GTK_TREE2(obj)->root_tree == (GtkObject*)obj)
-#define GTK_TREE2_ROOT_TREE(obj) (GTK_TREE2(obj)->root_tree ? GTK_TREE2(obj)->root_tree : GTK_TREE2(obj))
-#define GTK_TREE2_SELECTION(obj) (GTK_TREE2_ROOT_TREE(obj)->selection)
-
-typedef enum 
-{
-  GTK_TREE2_VIEW_LINE,  /* default view mode */
-  GTK_TREE2_VIEW_ITEM
-} GtkTree2ViewMode;
-
-typedef struct _GtkTree2       GtkTree2;
-typedef struct _GtkTree2Class  GtkTree2Class;
-
-struct _GtkTree2
-{
-  GtkContainer container;
-  
-  GList *children;
-  
-  GtkTree2* root_tree; /* owner of selection list */
-  GtkWidget* tree_owner;
-  GList *selection;
-  guint level;
-  guint indent_value;
-  guint current_indent;
-  guint selection_mode : 2;
-  guint view_mode : 1;
-  guint view_line : 1;
-};
-
-struct _GtkTree2Class
-{
-  GtkContainerClass parent_class;
-  
-  void (* selection_changed) (GtkTree2   *tree);
-  void (* select_child)      (GtkTree2   *tree,
-                             GtkWidget *child);
-  void (* unselect_child)    (GtkTree2   *tree,
-                             GtkWidget *child);
-};
-
-
-GtkType    gtk_tree2_get_type           (void);
-GtkWidget* gtk_tree2_new                (void);
-void       gtk_tree2_append             (GtkTree2          *tree,
-                                       GtkWidget        *tree_item);
-void       gtk_tree2_prepend            (GtkTree2          *tree,
-                                       GtkWidget        *tree_item);
-void       gtk_tree2_insert             (GtkTree2          *tree,
-                                       GtkWidget        *tree_item,
-                                       gint              position);
-void       gtk_tree2_remove_items       (GtkTree2          *tree,
-                                       GList            *items);
-void       gtk_tree2_clear_items        (GtkTree2          *tree,
-                                       gint              start,
-                                       gint              end);
-void       gtk_tree2_select_item        (GtkTree2          *tree,
-                                       gint              item);
-void       gtk_tree2_unselect_item      (GtkTree2          *tree,
-                                       gint              item);
-void       gtk_tree2_select_child       (GtkTree2          *tree,
-                                       GtkWidget        *tree_item);
-void       gtk_tree2_unselect_child     (GtkTree2          *tree,
-                                       GtkWidget        *tree_item);
-gint       gtk_tree2_child_position     (GtkTree2          *tree,
-                                       GtkWidget        *child);
-void       gtk_tree2_set_selection_mode (GtkTree2          *tree,
-                                       GtkSelectionMode  mode);
-void       gtk_tree2_set_view_mode      (GtkTree2          *tree,
-                                       GtkTree2ViewMode   mode); 
-void       gtk_tree2_set_view_lines     (GtkTree2          *tree,
-                                       guint            flag);
-
-/* deprecated function, use gtk_container_remove instead.
- */
-void       gtk_tree2_remove_item        (GtkTree2          *tree,
-                                       GtkWidget        *child);
-void       gtk_tree2_item_up             (GtkTree2   *tree,
-                                        gint       position);
-
-void gtk_tree2_select_next_child (GtkTree2   *tree,
-                                 GtkWidget *tree_item, gboolean descend);
-
-void gtk_tree2_select_prev_child (GtkTree2   *tree,
-                                 GtkWidget *tree_item);
-
-#ifdef __cplusplus
-}
-#endif /* __cplusplus */
-
-
-#endif /* __GTK_TREE2_H__ */

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gtktreeitem2.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gtktreeitem2.c
deleted file mode 100644 (file)
index 7e6f811..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gtktreeitem2.c
+++ /dev/null
@@ -1,1110 +0,0 @@
-/* GTK - The GIMP Toolkit
- * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Library General Public License for more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with this library; if not, write to the
- * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
- * Boston, MA 02111-1307, USA.
- */
-
-/*
- * Modified by the GTK+ Team and others 1997-1999.  See the AUTHORS
- * file for a list of people on the GTK+ Team.  See the ChangeLog
- * files for a list of changes.  These files are distributed with
- * GTK+ at ftp://ftp.gtk.org/pub/gtk/. 
- */
-
-#include <gtk/gtklabel.h>
-#include "gtktree2.h"
-#include "gtktreeitem2.h"
-#include <gtk/gtkeventbox.h>
-#include <gtk/gtkpixmap.h>
-#include <gtk/gtkmain.h>
-#include <gtk/gtksignal.h>
-
-#include "tree_plus.xpm"
-#include "tree_minus.xpm"
-
-#define DEFAULT_DELTA 9
-
-enum {
-  COLLAPSE_TREE,
-  EXPAND_TREE,
-  LAST_SIGNAL
-};
-
-typedef struct _GtkTree2Pixmaps GtkTree2Pixmaps;
-
-struct _GtkTree2Pixmaps {
-  gint refcount;
-  GdkColormap *colormap;
-  
-  GdkPixmap *pixmap_plus;
-  GdkPixmap *pixmap_minus;
-  GdkBitmap *mask_plus;
-  GdkBitmap *mask_minus;
-};
-
-static GList *pixmaps = NULL;
-
-static void gtk_tree_item2_class_init (GtkTreeItem2Class *klass);
-static void gtk_tree_item2_init       (GtkTreeItem2      *tree_item);
-static void gtk_tree_item2_realize       (GtkWidget        *widget);
-static void gtk_tree_item2_size_request  (GtkWidget        *widget,
-                                        GtkRequisition   *requisition);
-static void gtk_tree_item2_size_allocate (GtkWidget        *widget,
-                                        GtkAllocation    *allocation);
-static void gtk_tree_item2_draw          (GtkWidget        *widget,
-                                        GdkRectangle     *area);
-static void gtk_tree_item2_draw_focus    (GtkWidget        *widget);
-static void gtk_tree_item2_paint         (GtkWidget        *widget,
-                                        GdkRectangle     *area);
-static gint gtk_tree_item2_button_press  (GtkWidget        *widget,
-                                        GdkEventButton   *event);
-static gint gtk_tree_item2_expose        (GtkWidget        *widget,
-                                        GdkEventExpose   *event);
-static gint gtk_tree_item2_focus_in      (GtkWidget        *widget,
-                                        GdkEventFocus    *event);
-static gint gtk_tree_item2_focus_out     (GtkWidget        *widget,
-                                        GdkEventFocus    *event);
-static void gtk_tree_item2_forall        (GtkContainer    *container,
-                                        gboolean         include_internals,
-                                        GtkCallback      callback,
-                                        gpointer         callback_data);
-
-static void gtk_real_tree_item2_select   (GtkItem          *item);
-static void gtk_real_tree_item2_deselect (GtkItem          *item);
-static void gtk_real_tree_item2_toggle   (GtkItem          *item);
-static void gtk_real_tree_item2_expand   (GtkTreeItem2      *item);
-static void gtk_real_tree_item2_collapse (GtkTreeItem2      *item);
-static void gtk_real_tree_item2_expand   (GtkTreeItem2      *item);
-static void gtk_real_tree_item2_collapse (GtkTreeItem2      *item);
-static void gtk_tree_item2_destroy        (GtkObject *object);
-static void gtk_tree_item2_subtree_button_click (GtkWidget *widget);
-static void gtk_tree_item2_subtree_button_changed_state (GtkWidget *widget);
-
-static void gtk_tree_item2_map(GtkWidget*);
-static void gtk_tree_item2_unmap(GtkWidget*);
-
-static void gtk_tree_item2_add_pixmaps    (GtkTreeItem2       *tree_item);
-static void gtk_tree_item2_remove_pixmaps (GtkTreeItem2       *tree_item);
-
-static GtkItemClass *parent_class = NULL;
-static guint tree_item_signals[LAST_SIGNAL] = { 0 };
-
-GtkType
-gtk_tree_item2_get_type (void)
-{
-  static GtkType tree_item_type = 0;
-
-  if (!tree_item_type)
-    {
-      static const GtkTypeInfo tree_item_info =
-      {
-       "GtkTreeItem",
-       sizeof (GtkTreeItem2),
-       sizeof (GtkTreeItem2Class),
-       (GtkClassInitFunc) gtk_tree_item2_class_init,
-       (GtkObjectInitFunc) gtk_tree_item2_init,
-       /* reserved_1 */ NULL,
-        /* reserved_2 */ NULL,
-        (GtkClassInitFunc) NULL,
-      };
-
-      tree_item_type = gtk_type_unique (gtk_item_get_type (), &tree_item_info);
-    }
-
-  return tree_item_type;
-}
-
-static void
-gtk_tree_item2_class_init (GtkTreeItem2Class *class)
-{
-  GtkObjectClass *object_class;
-  GtkWidgetClass *widget_class;
-  GtkContainerClass *container_class;
-  GtkItemClass *item_class;
-
-  object_class = (GtkObjectClass*) class;
-  widget_class = (GtkWidgetClass*) class;
-  item_class = (GtkItemClass*) class;
-  container_class = (GtkContainerClass*) class;
-
-  parent_class = gtk_type_class (gtk_item_get_type ());
-  
-  tree_item_signals[EXPAND_TREE] =
-    gtk_signal_new ("expand",
-                   GTK_RUN_FIRST,
-                   object_class->type,
-                   GTK_SIGNAL_OFFSET (GtkTreeItem2Class, expand),
-                   gtk_marshal_NONE__NONE,
-                   GTK_TYPE_NONE, 0);
-  tree_item_signals[COLLAPSE_TREE] =
-    gtk_signal_new ("collapse",
-                   GTK_RUN_FIRST,
-                   object_class->type,
-                   GTK_SIGNAL_OFFSET (GtkTreeItem2Class, collapse),
-                   gtk_marshal_NONE__NONE,
-                   GTK_TYPE_NONE, 0);
-
-  gtk_object_class_add_signals (object_class, tree_item_signals, LAST_SIGNAL);
-
-  object_class->destroy = gtk_tree_item2_destroy;
-
-  widget_class->realize = gtk_tree_item2_realize;
-  widget_class->size_request = gtk_tree_item2_size_request;
-  widget_class->size_allocate = gtk_tree_item2_size_allocate;
-  widget_class->draw = gtk_tree_item2_draw;
-  widget_class->draw_focus = gtk_tree_item2_draw_focus;
-  widget_class->button_press_event = gtk_tree_item2_button_press;
-  widget_class->expose_event = gtk_tree_item2_expose;
-  widget_class->focus_in_event = gtk_tree_item2_focus_in;
-  widget_class->focus_out_event = gtk_tree_item2_focus_out;
-  widget_class->map = gtk_tree_item2_map;
-  widget_class->unmap = gtk_tree_item2_unmap;
-
-  container_class->forall = gtk_tree_item2_forall;
-
-  item_class->select = gtk_real_tree_item2_select;
-  item_class->deselect = gtk_real_tree_item2_deselect;
-  item_class->toggle = gtk_real_tree_item2_toggle;
-
-  class->expand = gtk_real_tree_item2_expand;
-  class->collapse = gtk_real_tree_item2_collapse;
-}
-
-/* callback for event box mouse event */
-static void 
-gtk_tree_item2_subtree_button_click (GtkWidget *widget)
-{
-  GtkTreeItem2* item;
-  
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_EVENT_BOX (widget));
-  
-  item = (GtkTreeItem2*) gtk_object_get_user_data (GTK_OBJECT (widget));
-  if (!GTK_WIDGET_IS_SENSITIVE (item))
-    return;
-  
-  if (item->expanded)
-    gtk_tree_item2_collapse (item);
-  else
-    gtk_tree_item2_expand (item);
-}
-
-/* callback for event box state changed */
-static void
-gtk_tree_item2_subtree_button_changed_state (GtkWidget *widget)
-{
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_EVENT_BOX (widget));
-  
-  if (GTK_WIDGET_VISIBLE (widget))
-    {
-      
-      if (widget->state == GTK_STATE_NORMAL)
-       gdk_window_set_background (widget->window, &widget->style->base[widget->state]);
-      else
-       gdk_window_set_background (widget->window, &widget->style->bg[widget->state]);
-      
-      if (GTK_WIDGET_DRAWABLE (widget))
-       gdk_window_clear_area (widget->window, 0, 0, 
-                              widget->allocation.width, widget->allocation.height);
-    }
-}
-
-static void
-gtk_tree_item2_init (GtkTreeItem2 *tree_item)
-{
-  GtkWidget *eventbox, *pixmapwid;
-  
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-
-  tree_item->expanded = FALSE;
-  tree_item->subtree = NULL;
-  GTK_WIDGET_SET_FLAGS (tree_item, GTK_CAN_FOCUS);
-  
-  /* create an event box containing one pixmaps */
-  eventbox = gtk_event_box_new();
-  gtk_widget_set_events (eventbox, GDK_BUTTON_PRESS_MASK);
-  gtk_signal_connect(GTK_OBJECT(eventbox), "state_changed",
-                    (GtkSignalFunc)gtk_tree_item2_subtree_button_changed_state, 
-                    (gpointer)NULL);
-  gtk_signal_connect(GTK_OBJECT(eventbox), "realize",
-                    (GtkSignalFunc)gtk_tree_item2_subtree_button_changed_state, 
-                    (gpointer)NULL);
-/* HF inutile
-  gtk_signal_connect(GTK_OBJECT(eventbox), "button_press_event",
-                    (GtkSignalFunc)gtk_tree_item2_subtree_button_click,
-                    (gpointer)NULL);
-*/
-  gtk_object_set_user_data(GTK_OBJECT(eventbox), tree_item);
-  tree_item->pixmaps_box = eventbox;
-
-  /* create pixmap for button '+' */
-  pixmapwid = gtk_type_new (gtk_pixmap_get_type ());
-  if (!tree_item->expanded) 
-    gtk_container_add (GTK_CONTAINER (eventbox), pixmapwid);
-  gtk_widget_show (pixmapwid);
-  tree_item->plus_pix_widget = pixmapwid;
-  gtk_widget_ref (tree_item->plus_pix_widget);
-  gtk_object_sink (GTK_OBJECT (tree_item->plus_pix_widget));
-  
-  /* create pixmap for button '-' */
-  pixmapwid = gtk_type_new (gtk_pixmap_get_type ());
-  if (tree_item->expanded) 
-    gtk_container_add (GTK_CONTAINER (eventbox), pixmapwid);
-  gtk_widget_show (pixmapwid);
-  tree_item->minus_pix_widget = pixmapwid;
-  gtk_widget_ref (tree_item->minus_pix_widget);
-  gtk_object_sink (GTK_OBJECT (tree_item->minus_pix_widget));
-  
-  gtk_widget_set_parent (eventbox, GTK_WIDGET (tree_item));
-}
-
-
-GtkWidget*
-gtk_tree_item2_new (void)
-{
-  GtkWidget *tree_item;
-
-  tree_item = GTK_WIDGET (gtk_type_new (gtk_tree_item2_get_type ()));
-
-  return tree_item;
-}
-
-GtkWidget*
-gtk_tree_item2_new_with_label (gchar *label)
-{
-  GtkWidget *tree_item;
-  GtkWidget *label_widget;
-
-  tree_item = gtk_tree_item2_new ();
-  label_widget = gtk_label_new (label);
-  gtk_misc_set_alignment (GTK_MISC (label_widget), 0.0, 0.5);
-
-  gtk_container_add (GTK_CONTAINER (tree_item), label_widget);
-  gtk_widget_show (label_widget);
-
-
-  return tree_item;
-}
-
-void
-gtk_tree_item2_set_subtree (GtkTreeItem2 *tree_item,
-                          GtkWidget   *subtree)
-{
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  g_return_if_fail (subtree != NULL);
-  g_return_if_fail (GTK_IS_TREE2 (subtree));
-
-  if (tree_item->subtree)
-    {
-      g_warning("there is already a subtree for this tree item\n");
-      return;
-    }
-
-  tree_item->subtree = subtree; 
-  GTK_TREE2 (subtree)->tree_owner = GTK_WIDGET (tree_item);
-
-  /* show subtree button */
-  if (tree_item->pixmaps_box)
-    gtk_widget_show (tree_item->pixmaps_box);
-
-  if (tree_item->expanded)
-    gtk_widget_show (subtree);
-  else
-    gtk_widget_hide (subtree);
-
-  gtk_widget_set_parent (subtree, GTK_WIDGET (tree_item)->parent);
-
-  if (GTK_WIDGET_REALIZED (subtree->parent))
-    gtk_widget_realize (subtree);
-
-  if (GTK_WIDGET_VISIBLE (subtree->parent) && GTK_WIDGET_VISIBLE (subtree))
-    {
-      if (GTK_WIDGET_MAPPED (subtree->parent))
-       gtk_widget_map (subtree);
-
-      gtk_widget_queue_resize (subtree);
-    }
-}
-
-void
-gtk_tree_item2_select (GtkTreeItem2 *tree_item)
-{
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-
-  gtk_item_select (GTK_ITEM (tree_item));
-}
-
-void
-gtk_tree_item2_deselect (GtkTreeItem2 *tree_item)
-{
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-
-  gtk_item_deselect (GTK_ITEM (tree_item));
-}
-
-void
-gtk_tree_item2_expand (GtkTreeItem2 *tree_item)
-{
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-
-  gtk_signal_emit (GTK_OBJECT (tree_item), tree_item_signals[EXPAND_TREE], NULL);
-}
-
-void
-gtk_tree_item2_collapse (GtkTreeItem2 *tree_item)
-{
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-
-  gtk_signal_emit (GTK_OBJECT (tree_item), tree_item_signals[COLLAPSE_TREE], NULL);
-}
-
-static void
-gtk_tree_item2_add_pixmaps (GtkTreeItem2 *tree_item)
-{
-  GList *tmp_list;
-  GdkColormap *colormap;
-  GtkTree2Pixmaps *pixmap_node = NULL;
-
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-
-  if (tree_item->pixmaps)
-    return;
-
-  colormap = gtk_widget_get_colormap (GTK_WIDGET (tree_item));
-
-  tmp_list = pixmaps;
-  while (tmp_list)
-    {
-      pixmap_node = (GtkTree2Pixmaps *)tmp_list->data;
-
-      if (pixmap_node->colormap == colormap)
-       break;
-      
-      tmp_list = tmp_list->next;
-    }
-
-  if (tmp_list)
-    {
-      pixmap_node->refcount++;
-      tree_item->pixmaps = tmp_list;
-    }
-  else
-    {
-      pixmap_node = g_new (GtkTree2Pixmaps, 1);
-
-      pixmap_node->colormap = colormap;
-      gdk_colormap_ref (colormap);
-
-      pixmap_node->refcount = 1;
-
-      /* create pixmaps for plus icon */
-      pixmap_node->pixmap_plus = 
-       gdk_pixmap_create_from_xpm_d (GTK_WIDGET (tree_item)->window,
-                                     &pixmap_node->mask_plus,
-                                     NULL,
-                                     tree_plus);
-      
-      /* create pixmaps for minus icon */
-      pixmap_node->pixmap_minus = 
-       gdk_pixmap_create_from_xpm_d (GTK_WIDGET (tree_item)->window,
-                                     &pixmap_node->mask_minus,
-                                     NULL,
-                                     tree_minus);
-
-      tree_item->pixmaps = pixmaps = g_list_prepend (pixmaps, pixmap_node);
-    }
-  
-  gtk_pixmap_set (GTK_PIXMAP (tree_item->plus_pix_widget), 
-                 pixmap_node->pixmap_plus, pixmap_node->mask_plus);
-  gtk_pixmap_set (GTK_PIXMAP (tree_item->minus_pix_widget), 
-                 pixmap_node->pixmap_minus, pixmap_node->mask_minus);
-}
-
-static void
-gtk_tree_item2_remove_pixmaps (GtkTreeItem2 *tree_item)
-{
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-
-  if (tree_item->pixmaps)
-    {
-      GtkTree2Pixmaps *pixmap_node = (GtkTree2Pixmaps *)tree_item->pixmaps->data;
-      
-      g_assert (pixmap_node->refcount > 0);
-      
-      if (--pixmap_node->refcount == 0)
-       {
-         gdk_colormap_unref (pixmap_node->colormap);
-         gdk_pixmap_unref (pixmap_node->pixmap_plus);
-         gdk_bitmap_unref (pixmap_node->mask_plus);
-         gdk_pixmap_unref (pixmap_node->pixmap_minus);
-         gdk_bitmap_unref (pixmap_node->mask_minus);
-         
-         pixmaps = g_list_remove_link (pixmaps, tree_item->pixmaps);
-         g_list_free_1 (tree_item->pixmaps);
-         g_free (pixmap_node);
-       }
-
-      tree_item->pixmaps = NULL;
-    }
-}
-
-static void
-gtk_tree_item2_realize (GtkWidget *widget)
-{    
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-
-  if (GTK_WIDGET_CLASS (parent_class)->realize)
-    (* GTK_WIDGET_CLASS (parent_class)->realize) (widget);
-  
-  gdk_window_set_background (widget->window, 
-                            &widget->style->base[GTK_STATE_NORMAL]);
-
-  gtk_tree_item2_add_pixmaps (GTK_TREE_ITEM2 (widget));
-}
-
-static void
-gtk_tree_item2_size_request (GtkWidget      *widget,
-                           GtkRequisition *requisition)
-{
-  GtkBin *bin;
-  GtkTreeItem2* item;
-  GtkRequisition child_requisition;
-
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-  g_return_if_fail (requisition != NULL);
-
-  bin = GTK_BIN (widget);
-  item = GTK_TREE_ITEM2(widget);
-
-  requisition->width = (GTK_CONTAINER (widget)->border_width +
-                       widget->style->klass->xthickness) * 2;
-  requisition->height = GTK_CONTAINER (widget)->border_width * 2;
-
-  if (bin->child && GTK_WIDGET_VISIBLE (bin->child))
-    {
-      GtkRequisition pix_requisition;
-      
-      gtk_widget_size_request (bin->child, &child_requisition);
-
-      requisition->width += child_requisition.width;
-
-      gtk_widget_size_request (item->pixmaps_box, 
-                              &pix_requisition);
-      requisition->width += pix_requisition.width + DEFAULT_DELTA + 
-       GTK_TREE2 (widget->parent)->current_indent;
-
-      requisition->height += MAX (child_requisition.height,
-                                 pix_requisition.height);
-    }
-}
-
-static void
-gtk_tree_item2_size_allocate (GtkWidget     *widget,
-                            GtkAllocation *allocation)
-{
-  GtkBin *bin;
-  GtkTreeItem2* item;
-  GtkAllocation child_allocation;
-  guint border_width;
-  int temp;
-
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-  g_return_if_fail (allocation != NULL);
-
-  widget->allocation = *allocation;
-  if (GTK_WIDGET_REALIZED (widget))
-    gdk_window_move_resize (widget->window,
-                           allocation->x, allocation->y,
-                           allocation->width, allocation->height);
-
-  bin = GTK_BIN (widget);
-  item = GTK_TREE_ITEM2(widget);
-
-  if (bin->child)
-    {
-      border_width = (GTK_CONTAINER (widget)->border_width +
-                     widget->style->klass->xthickness);
-
-      child_allocation.x = border_width + GTK_TREE2(widget->parent)->current_indent;
-      child_allocation.y = GTK_CONTAINER (widget)->border_width;
-
-      child_allocation.width = item->pixmaps_box->requisition.width;
-      child_allocation.height = item->pixmaps_box->requisition.height;
-      
-      temp = allocation->height - child_allocation.height;
-      child_allocation.y += ( temp / 2 ) + ( temp % 2 );
-
-      gtk_widget_size_allocate (item->pixmaps_box, &child_allocation);
-
-      child_allocation.y = GTK_CONTAINER (widget)->border_width;
-      child_allocation.height = MAX (1, (gint)allocation->height - child_allocation.y * 2);
-      child_allocation.x += item->pixmaps_box->requisition.width+DEFAULT_DELTA;
-
-      child_allocation.width = 
-       MAX (1, (gint)allocation->width - ((gint)child_allocation.x + border_width));
-
-      gtk_widget_size_allocate (bin->child, &child_allocation);
-    }
-}
-
-static void 
-gtk_tree_item2_draw_lines (GtkWidget *widget) 
-{
-  GtkTreeItem2* item;
-  GtkTree2* tree;
-  guint lx1, ly1, lx2, ly2;
-
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-
-  item = GTK_TREE_ITEM2(widget);
-  tree = GTK_TREE2(widget->parent);
-
-  /* draw vertical line */
-  lx1 = item->pixmaps_box->allocation.width;
-  lx1 = lx2 = ((lx1 / 2) + (lx1 % 2) + 
-              GTK_CONTAINER (widget)->border_width + 1 + tree->current_indent);
-  ly1 = 0;
-  ly2 = widget->allocation.height;
-
-  if (g_list_last (tree->children)->data == widget)
-    ly2 = (ly2 / 2) + (ly2 % 2);
-
-  if (tree != tree->root_tree)
-    gdk_draw_line (widget->window, widget->style->black_gc, lx1, ly1, lx2, ly2);
-
-  /* draw vertical line for subtree connecting */
-  if(g_list_last(tree->children)->data != (gpointer)widget)
-    ly2 = (ly2 / 2) + (ly2 % 2);
-  
-  lx2 += DEFAULT_DELTA;
-
-  if (item->subtree && item->expanded)
-    gdk_draw_line (widget->window, widget->style->black_gc,
-                  lx2, ly2, lx2, widget->allocation.height);
-
-  /* draw horizontal line */
-  ly1 = ly2;
-  lx2 += 2;
-
-  gdk_draw_line (widget->window, widget->style->black_gc,
-                lx1, ly1, lx2, ly2);
-
-  lx2 -= DEFAULT_DELTA+2;
-  ly1 = 0;
-  ly2 = widget->allocation.height;
-
-  if (tree != tree->root_tree)
-    {
-      item = GTK_TREE_ITEM2 (tree->tree_owner);
-      tree = GTK_TREE2 (GTK_WIDGET (tree)->parent);
-      while (tree != tree->root_tree)
-       {
-         lx1 = lx2 -= tree->indent_value;
-         
-         if (g_list_last (tree->children)->data != item)
-           gdk_draw_line (widget->window, widget->style->black_gc, lx1, ly1, lx2, ly2);
-         item = GTK_TREE_ITEM2 (tree->tree_owner);
-         tree = GTK_TREE2 (GTK_WIDGET (tree)->parent);
-       } 
-    }
-}
-
-static void
-gtk_tree_item2_paint (GtkWidget    *widget,
-                    GdkRectangle *area)
-{
-  GtkBin *bin;
-  GdkRectangle child_area, item_area;
-  GtkTreeItem2* tree_item;
-
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-  g_return_if_fail (area != NULL);
-
-  if (GTK_WIDGET_DRAWABLE (widget))
-    {
-      bin = GTK_BIN (widget);
-      tree_item = GTK_TREE_ITEM2(widget);
-
-      if (widget->state == GTK_STATE_NORMAL)
-       {
-         gdk_window_set_back_pixmap (widget->window, NULL, TRUE);
-         gdk_window_clear_area (widget->window, area->x, area->y, area->width, area->height);
-       }
-      else 
-       {
-         if (!GTK_WIDGET_IS_SENSITIVE (widget)) 
-           gtk_paint_flat_box(widget->style, widget->window,
-                              widget->state, GTK_STATE_INSENSITIVE,
-                              area, widget, "treeitem",
-                              0, 0, -1, -1);
-         else
-           gtk_paint_flat_box(widget->style, widget->window,
-                              widget->state, GTK_SHADOW_ETCHED_OUT,
-                              area, widget, "treeitem",
-                              0, 0, -1, -1);
-       }
-
-      /* draw left size of tree item */
-      item_area.x = 0;
-      item_area.y = 0;
-      item_area.width = (tree_item->pixmaps_box->allocation.width + DEFAULT_DELTA +
-                        GTK_TREE2 (widget->parent)->current_indent + 2);
-      item_area.height = widget->allocation.height;
-
-
-      if (gdk_rectangle_intersect(&item_area, area, &child_area)) 
-       {
-         
-         gtk_tree_item2_draw_lines(widget);
-
-         if (tree_item->pixmaps_box && 
-             GTK_WIDGET_VISIBLE(tree_item->pixmaps_box) &&
-             gtk_widget_intersect (tree_item->pixmaps_box, area, &child_area))
-           gtk_widget_draw (tree_item->pixmaps_box, &child_area);
-       }
-
-      if (GTK_WIDGET_HAS_FOCUS (widget))
-       gtk_paint_focus (widget->style, widget->window,
-                        NULL, widget, "treeitem",
-                        0, 0,
-                        widget->allocation.width - 1,
-                        widget->allocation.height - 1);
-      
-    }
-}
-
-static void
-gtk_tree_item2_draw (GtkWidget    *widget,
-                   GdkRectangle *area)
-{
-  GtkBin *bin;
-  GdkRectangle child_area;
-
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-  g_return_if_fail (area != NULL);
-
-  if (GTK_WIDGET_DRAWABLE (widget))
-    {
-      bin = GTK_BIN (widget);
-
-      gtk_tree_item2_paint (widget, area);
-     
-      if (bin->child && 
-         gtk_widget_intersect (bin->child, area, &child_area))
-       gtk_widget_draw (bin->child, &child_area);
-
-    }
-}
-
-static void
-gtk_tree_item2_draw_focus (GtkWidget *widget)
-{
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-
-  gtk_widget_draw(widget, NULL);
-}
-
-static gint
-gtk_tree_item2_button_press (GtkWidget      *widget,
-                           GdkEventButton *event)
-{
-/* HF
-  g_return_val_if_fail (widget != NULL, FALSE);
-  g_return_val_if_fail (GTK_IS_TREE_ITEM2 (widget), FALSE);
-  g_return_val_if_fail (event != NULL, FALSE);
-
-  if (event->type == GDK_BUTTON_PRESS
-       && GTK_WIDGET_IS_SENSITIVE(widget)
-       && !GTK_WIDGET_HAS_FOCUS (widget))
-      gtk_widget_grab_focus (widget);
-
-  return FALSE;
-
-*/
-}
-
-static gint
-gtk_tree_item2_expose (GtkWidget      *widget,
-                     GdkEventExpose *event)
-{
-  GdkEventExpose child_event;
-  GtkBin *bin;
-
-  g_return_val_if_fail (widget != NULL, FALSE);
-  g_return_val_if_fail (GTK_IS_TREE_ITEM2 (widget), FALSE);
-  g_return_val_if_fail (event != NULL, FALSE);
-
-  if (GTK_WIDGET_DRAWABLE (widget))
-    {
-      bin = GTK_BIN (widget);
-      
-      gtk_tree_item2_paint (widget, &event->area);
-
-      child_event = *event;
-      if (bin->child && GTK_WIDGET_NO_WINDOW (bin->child) &&
-         gtk_widget_intersect (bin->child, &event->area, &child_event.area))
-       gtk_widget_event (bin->child, (GdkEvent*) &child_event);
-   }
-
-  return FALSE;
-}
-
-static gint
-gtk_tree_item2_focus_in (GtkWidget     *widget,
-                       GdkEventFocus *event)
-{
-  g_return_val_if_fail (widget != NULL, FALSE);
-  g_return_val_if_fail (GTK_IS_TREE_ITEM2 (widget), FALSE);
-  g_return_val_if_fail (event != NULL, FALSE);
-
-  GTK_WIDGET_SET_FLAGS (widget, GTK_HAS_FOCUS);
-  gtk_widget_draw_focus (widget);
-
-
-  return FALSE;
-}
-
-static gint
-gtk_tree_item2_focus_out (GtkWidget     *widget,
-                        GdkEventFocus *event)
-{
-  g_return_val_if_fail (widget != NULL, FALSE);
-  g_return_val_if_fail (GTK_IS_TREE_ITEM2 (widget), FALSE);
-  g_return_val_if_fail (event != NULL, FALSE);
-
-  GTK_WIDGET_UNSET_FLAGS (widget, GTK_HAS_FOCUS);
-  gtk_widget_draw_focus (widget);
-
-
-  return FALSE;
-}
-
-static void
-gtk_real_tree_item2_select (GtkItem *item)
-{    
-  GtkTreeItem2 *tree_item;
-  GtkWidget *widget;
-
-  g_return_if_fail (item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (item));
-
-  tree_item = GTK_TREE_ITEM2 (item);
-  widget = GTK_WIDGET (item);
-
-  gtk_widget_set_state (GTK_WIDGET (item), GTK_STATE_SELECTED);
-
-  if (!widget->parent || GTK_TREE2 (widget->parent)->view_mode == GTK_TREE2_VIEW_LINE)
-    gtk_widget_set_state (GTK_TREE_ITEM2 (item)->pixmaps_box, GTK_STATE_SELECTED);
-}
-
-static void
-gtk_real_tree_item2_deselect (GtkItem *item)
-{
-  GtkTreeItem2 *tree_item;
-  GtkWidget *widget;
-
-  g_return_if_fail (item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (item));
-
-  tree_item = GTK_TREE_ITEM2 (item);
-  widget = GTK_WIDGET (item);
-
-  gtk_widget_set_state (widget, GTK_STATE_NORMAL);
-
-  if (!widget->parent || GTK_TREE2 (widget->parent)->view_mode == GTK_TREE2_VIEW_LINE)
-    gtk_widget_set_state (tree_item->pixmaps_box, GTK_STATE_NORMAL);
-}
-
-static void
-gtk_real_tree_item2_toggle (GtkItem *item)
-{
-  g_return_if_fail (item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (item));
-
-  if(!GTK_WIDGET_IS_SENSITIVE(item))
-    return;
-
-  if (GTK_WIDGET (item)->parent && GTK_IS_TREE2 (GTK_WIDGET (item)->parent))
-    gtk_tree2_select_child (GTK_TREE2 (GTK_WIDGET (item)->parent),
-                          GTK_WIDGET (item));
-  else
-    {
-      /* Should we really bother with this bit? A listitem not in a list?
-       * -Johannes Keukelaar
-       * yes, always be on the safe side!
-       * -timj
-       */
-      if (GTK_WIDGET (item)->state == GTK_STATE_SELECTED)
-       gtk_widget_set_state (GTK_WIDGET (item), GTK_STATE_NORMAL);
-      else
-       gtk_widget_set_state (GTK_WIDGET (item), GTK_STATE_SELECTED);
-    }
-}
-
-static void
-gtk_real_tree_item2_expand (GtkTreeItem2 *tree_item)
-{
-  GtkTree2* tree;
-  
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-  if (tree_item->subtree && !tree_item->expanded)
-    {
-      tree = GTK_TREE2 (GTK_WIDGET (tree_item)->parent); 
-      
-      /* hide subtree widget */
-      gtk_widget_show (tree_item->subtree);
-      
-      /* hide button '+' and show button '-' */
-      if (tree_item->pixmaps_box)
-       {
-         gtk_container_remove (GTK_CONTAINER (tree_item->pixmaps_box), 
-                               tree_item->plus_pix_widget);
-         gtk_container_add (GTK_CONTAINER (tree_item->pixmaps_box), 
-                            tree_item->minus_pix_widget);
-       }
-      if (tree->root_tree)
-       gtk_widget_queue_resize (GTK_WIDGET (tree->root_tree));
-      tree_item->expanded = TRUE;
-    }
-}
-
-static void
-gtk_real_tree_item2_collapse (GtkTreeItem2 *tree_item)
-{
-  GtkTree2* tree;
-  
-  g_return_if_fail (tree_item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (tree_item));
-  
-  if (tree_item->subtree && tree_item->expanded) 
-    {
-      tree = GTK_TREE2 (GTK_WIDGET (tree_item)->parent);
-      
-      /* hide subtree widget */
-      gtk_widget_hide (tree_item->subtree);
-      
-      /* hide button '-' and show button '+' */
-      if (tree_item->pixmaps_box)
-       {
-         gtk_container_remove (GTK_CONTAINER (tree_item->pixmaps_box), 
-                               tree_item->minus_pix_widget);
-         gtk_container_add (GTK_CONTAINER (tree_item->pixmaps_box), 
-                            tree_item->plus_pix_widget);
-       }
-      if (tree->root_tree)
-       gtk_widget_queue_resize (GTK_WIDGET (tree->root_tree));
-      tree_item->expanded = FALSE;
-    }
-}
-
-static void
-gtk_tree_item2_destroy (GtkObject *object)
-{
-  GtkTreeItem2* item;
-  GtkWidget* child;
-
-  g_return_if_fail (object != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (object));
-
-#ifdef TREE_DEBUG
-  g_message("+ gtk_tree_item2_destroy [object %#x]\n", (int)object);
-#endif /* TREE_DEBUG */
-
-  item = GTK_TREE_ITEM2(object);
-
-  /* free sub tree if it exist */
-  child = item->subtree;
-  if (child)
-    {
-      gtk_widget_ref (child);
-      gtk_widget_unparent (child);
-      gtk_widget_destroy (child);
-      gtk_widget_unref (child);
-      item->subtree = NULL;
-    }
-  
-  /* free pixmaps box */
-  child = item->pixmaps_box;
-  if (child)
-    {
-      gtk_widget_ref (child);
-      gtk_widget_unparent (child);
-      gtk_widget_destroy (child);
-      gtk_widget_unref (child);
-      item->pixmaps_box = NULL;
-    }
-  
-  
-  /* destroy plus pixmap */
-  if (item->plus_pix_widget)
-    {
-      gtk_widget_destroy (item->plus_pix_widget);
-      gtk_widget_unref (item->plus_pix_widget);
-      item->plus_pix_widget = NULL;
-    }
-  
-  /* destroy minus pixmap */
-  if (item->minus_pix_widget)
-    {
-      gtk_widget_destroy (item->minus_pix_widget);
-      gtk_widget_unref (item->minus_pix_widget);
-      item->minus_pix_widget = NULL;
-    }
-  
-  /* By removing the pixmaps here, and not in unrealize, we depend on
-   * the fact that a widget can never change colormap or visual.
-   */
-  gtk_tree_item2_remove_pixmaps (item);
-  
-  GTK_OBJECT_CLASS (parent_class)->destroy (object);
-  
-#ifdef TREE_DEBUG
-  g_message("- gtk_tree_item2_destroy\n");
-#endif /* TREE_DEBUG */
-}
-
-void
-gtk_tree_item2_remove_subtree (GtkTreeItem2* item) 
-{
-  g_return_if_fail (item != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2(item));
-  g_return_if_fail (item->subtree != NULL);
-  
-  if (GTK_TREE2 (item->subtree)->children)
-    {
-      /* The following call will remove the children and call
-       * gtk_tree_item2_remove_subtree() again. So we are done.
-       */
-      gtk_tree2_remove_items (GTK_TREE2 (item->subtree), 
-                            GTK_TREE2 (item->subtree)->children);
-      return;
-    }
-
-  if (GTK_WIDGET_MAPPED (item->subtree))
-    gtk_widget_unmap (item->subtree);
-      
-  gtk_widget_unparent (item->subtree);
-  
-  if (item->pixmaps_box)
-    gtk_widget_hide (item->pixmaps_box);
-  
-  item->subtree = NULL;
-
-  if (item->expanded)
-    {
-      item->expanded = FALSE;
-      if (item->pixmaps_box)
-       {
-         gtk_container_remove (GTK_CONTAINER (item->pixmaps_box), 
-                               item->minus_pix_widget);
-         gtk_container_add (GTK_CONTAINER (item->pixmaps_box), 
-                            item->plus_pix_widget);
-       }
-    }
-}
-
-static void
-gtk_tree_item2_map (GtkWidget *widget)
-{
-  GtkBin *bin;
-  GtkTreeItem2* item;
-
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-
-  bin = GTK_BIN (widget);
-  item = GTK_TREE_ITEM2(widget);
-
-  GTK_WIDGET_SET_FLAGS (widget, GTK_MAPPED);
-
-  if(item->pixmaps_box &&
-     GTK_WIDGET_VISIBLE (item->pixmaps_box) &&
-     !GTK_WIDGET_MAPPED (item->pixmaps_box))
-    gtk_widget_map (item->pixmaps_box);
-
-  if (bin->child &&
-      GTK_WIDGET_VISIBLE (bin->child) &&
-      !GTK_WIDGET_MAPPED (bin->child))
-    gtk_widget_map (bin->child);
-
-  gdk_window_show (widget->window);
-}
-
-static void
-gtk_tree_item2_unmap (GtkWidget *widget)
-{
-  GtkBin *bin;
-  GtkTreeItem2* item;
-
-  g_return_if_fail (widget != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (widget));
-
-  GTK_WIDGET_UNSET_FLAGS (widget, GTK_MAPPED);
-  bin = GTK_BIN (widget);
-  item = GTK_TREE_ITEM2(widget);
-
-  gdk_window_hide (widget->window);
-
-  if(item->pixmaps_box &&
-     GTK_WIDGET_VISIBLE (item->pixmaps_box) &&
-     GTK_WIDGET_MAPPED (item->pixmaps_box))
-    gtk_widget_unmap (bin->child);
-
-  if (bin->child &&
-      GTK_WIDGET_VISIBLE (bin->child) &&
-      GTK_WIDGET_MAPPED (bin->child))
-    gtk_widget_unmap (bin->child);
-}
-
-static void
-gtk_tree_item2_forall (GtkContainer *container,
-                     gboolean      include_internals,
-                     GtkCallback   callback,
-                     gpointer      callback_data)
-{
-  GtkBin *bin;
-  GtkTreeItem2 *tree_item;
-
-  g_return_if_fail (container != NULL);
-  g_return_if_fail (GTK_IS_TREE_ITEM2 (container));
-  g_return_if_fail (callback != NULL);
-
-  bin = GTK_BIN (container);
-  tree_item = GTK_TREE_ITEM2 (container);
-
-  if (bin->child)
-    (* callback) (bin->child, callback_data);
-/*  if (include_internals && tree_item->subtree)
-    (* callback) (tree_item->subtree, callback_data); */
-}

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gtktreeitem2.h b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gtktreeitem2.h
deleted file mode 100644 (file)
index bbbb364..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/gtktreeitem2.h
+++ /dev/null
@@ -1,91 +0,0 @@
-/* GTK - The GIMP Toolkit
- * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Library General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Library General Public License for more details.
- *
- * You should have received a copy of the GNU Library General Public
- * License along with this library; if not, write to the
- * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
- * Boston, MA 02111-1307, USA.
- */
-
-/*
- * Modified by the GTK+ Team and others 1997-1999.  See the AUTHORS
- * file for a list of people on the GTK+ Team.  See the ChangeLog
- * files for a list of changes.  These files are distributed with
- * GTK+ at ftp://ftp.gtk.org/pub/gtk/. 
- */
-
-#ifndef __GTK_TREE_ITEM2_H__
-#define __GTK_TREE_ITEM2_H__
-
-
-#include <gdk/gdk.h>
-#include <gtk/gtkitem.h>
-
-
-#ifdef __cplusplus
-extern "C" {
-#endif /* __cplusplus */
-
-
-#define GTK_TYPE_TREE_ITEM2              (gtk_tree_item2_get_type ())
-#define GTK_TREE_ITEM2(obj)              (GTK_CHECK_CAST ((obj), GTK_TYPE_TREE_ITEM2, GtkTreeItem2))
-#define GTK_TREE_ITEM2_CLASS(klass)      (GTK_CHECK_CLASS_CAST ((klass), GTK_TYPE_TREE_ITEM2, GtkTreeItem2Class))
-#define GTK_IS_TREE_ITEM2(obj)           (GTK_CHECK_TYPE ((obj), GTK_TYPE_TREE_ITEM2))
-#define GTK_IS_TREE_ITEM2_CLASS(klass)   (GTK_CHECK_CLASS_TYPE ((klass), GTK_TYPE_TREE_ITEM2))
-
-#define GTK_TREE_ITEM2_SUBTREE(obj)      (GTK_TREE_ITEM2(obj)->subtree)
-
-
-typedef struct _GtkTreeItem2       GtkTreeItem2;
-typedef struct _GtkTreeItem2Class  GtkTreeItem2Class;
-
-struct _GtkTreeItem2
-{
-  GtkItem item;
-
-  GtkWidget *subtree;
-  GtkWidget *pixmaps_box;
-  GtkWidget *plus_pix_widget, *minus_pix_widget;
-
-  GList *pixmaps;              /* pixmap node for this items color depth */
-
-  guint expanded : 1;
-};
-
-struct _GtkTreeItem2Class
-{
-  GtkItemClass parent_class;
-
-  void (* expand)   (GtkTreeItem2 *tree_item);
-  void (* collapse) (GtkTreeItem2 *tree_item);
-};
-
-
-GtkType    gtk_tree_item2_get_type       (void);
-GtkWidget* gtk_tree_item2_new            (void);
-GtkWidget* gtk_tree_item2_new_with_label (gchar       *label);
-void       gtk_tree_item2_set_subtree    (GtkTreeItem2 *tree_item,
-                                        GtkWidget   *subtree);
-void       gtk_tree_item2_remove_subtree (GtkTreeItem2 *tree_item);
-void       gtk_tree_item2_select         (GtkTreeItem2 *tree_item);
-void       gtk_tree_item2_deselect       (GtkTreeItem2 *tree_item);
-void       gtk_tree_item2_expand         (GtkTreeItem2 *tree_item);
-void       gtk_tree_item2_collapse       (GtkTreeItem2 *tree_item);
-
-
-#ifdef __cplusplus
-}
-#endif /* __cplusplus */
-
-
-#endif /* __GTK_TREE_ITEM2_H__ */

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/handlebox.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/handlebox.xpm
deleted file mode 100644 (file)
index e4d792c..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/handlebox.xpm
+++ /dev/null
@@ -1,34 +0,0 @@
-/* XPM */
-static char *handlebox_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 7 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray87",
-"+ c Gray100",
-"@ c None",
-/* pixels */
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@++++++++++++++++++ @",
-"@+OOOO.XXXXXXXXXXX. @",
-"@++OOO.XXXXXXXXXXX. @",
-"@+O.+O.XXXXXXXXXXX. @",
-"@+OOO..XXXXXXXXXXX. @",
-"@++OOO.XXXXXXXXXXX. @",
-"@+O.+O.XXXXXXXXXXX. @",
-"@+OOO..XXXXXXXXXXX. @",
-"@++OOO.XXXXXXXXXXX. @",
-"@+O.+O.XXXXXXXXXXX. @",
-"@+OOO..XXXXXXXXXXX. @",
-"@+................. @",
-"@                   @",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/hbox.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/hbox.xpm
deleted file mode 100644 (file)
index 7363317..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/hbox.xpm
+++ /dev/null
@@ -1,31 +0,0 @@
-/* XPM */
-static char *hbox_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 4 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c Gray100",
-/* pixels */
-"oooooo oooooo oooooo ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"oXXXX. oXXXX. oXXXX. ",
-"o..... o..... o..... ",
-"                     "
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/hbuttonbox.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/hbuttonbox.xpm
deleted file mode 100644 (file)
index 77d73dc..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/hbuttonbox.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *hbuttonbox_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+OOOOO +OOOOO +OOOOO ",
-"+OXXX. +OXXX. +OXXX. ",
-"+OXXX. +OXXX. +OXXX. ",
-"+O.... +O.... +O.... ",
-"+      +      +      ",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/hseparator.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/hseparator.xpm
deleted file mode 100644 (file)
index 41ad8aa..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/hseparator.xpm
+++ /dev/null
@@ -1,31 +0,0 @@
-/* XPM */
-static char *hseparator_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 4 1",
-"  c #7b7b7b",
-". c #b3cece",
-"X c Gray100",
-"o c None",
-/* pixels */
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"o                   o",
-"oXXXXXXXXXXXXXXXXXXXo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo",
-"ooooooooooooooooooooo"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/label.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/label.xpm
deleted file mode 100644 (file)
index 013e13a..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/label.xpm
+++ /dev/null
@@ -1,30 +0,0 @@
-/* XPM */
-static char *label_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 3 1",
-"  c Gray0",
-". c #b3cece",
-"X c None",
-/* pixels */
-"XXXXXXXXXXXXXXXXXXXXX",
-"XXXXXXXXXXXXXXXXXXXXX",
-"XXXXXXXXXXXXXXXXXXXXX",
-"XXXXXXXXXX  XXXXXXXXX",
-"XXXXXXXXX   XXXXXXXXX",
-"XXXXXXXXX   XXXXXXXXX",
-"XXXXXXXX     XXXXXXXX",
-"XXXXXXXX     XXXXXXXX",
-"XXXXXXXX      XXXXXXX",
-"XXXXXXX  X    XXXXXXX",
-"XXXXXXX  X     XXXXXX",
-"XXXXXX  XX     XXXXXX",
-"XXXXXX          XXXXX",
-"XXXXX           XXXXX",
-"XXXXX  XXXXX    XXXXX",
-"XXXX   XXXXX     XXXX",
-"XXX    XXXXX      XXX",
-"XXX     XXX       XXX",
-"XXXXXXXXXXXXXXXXXXXXX",
-"XXXXXXXXXXXXXXXXXXXXX",
-"XXXXXXXXXXXXXXXXXXXXX"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/load_lexer.mll b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/load_lexer.mll
deleted file mode 100644 (file)
index 46aa5ac..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/load_lexer.mll
+++ /dev/null
@@ -1,46 +0,0 @@
-{
-open Load_parser
-} 
-
-rule token = parse
-  [ ' ' '\t' '\n']+     { token lexbuf }
-| "<window"             { WINDOW_START }
-| "</window>"           { WINDOW_END }
-| "name"                { NAME }
-|  '='                  { EQUAL }
-|  '>'                  { SUP }
-
-| "<" ['A'-'Z' 'a'-'z' '0'-'9' '_']+
-  {
-    let l = Lexing.lexeme lexbuf in
-    let s = String.sub l ~pos:1 ~len:(String.length l - 1) in
-    WIDGET_START s
-  }
-
-| "</" ['A'-'Z' 'a'-'z' '0'-'9' '_']+ '>'
-  {
-    let l = Lexing.lexeme lexbuf in
-    let s = String.sub l ~pos:2 ~len:(String.length l - 3) in
-    WIDGET_END s
-  }
-
-| '"' [^ '"']* '"'
-  {
-    let l = Lexing.lexeme lexbuf in
-    let s = String.sub l ~pos:1 ~len:(String.length l - 2) in
-    IDENT s
-  }
-
-| '\'' [^ '\'']* '\''
-  {
-    let l = Lexing.lexeme lexbuf in
-    let s = String.sub l ~pos:1 ~len:(String.length l - 2) in
-    IDENT s
-  }
-
-| ['A'-'Z' 'a'-'z' '0'-'9' '_' '.']+
-  {
-    let s = Lexing.lexeme lexbuf in IDENT s
-  }
-
-| eof               { EOF }

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/load_parser.mly b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/load_parser.mly
deleted file mode 100644 (file)
index 09c7b7b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/load_parser.mly
+++ /dev/null
@@ -1,56 +0,0 @@
-%{
-open Utils
-%}
-
-%token EOF NAME EQUAL SUP WINDOW_START WINDOW_END
-%token <string> WIDGET_START WIDGET_END IDENT
-
-%type <string> window_start
-%type <string * string> property widget_start
-%type <(string * string) list> property_list
-%type <Utils.yywidget_tree> widget window
-%type <Utils.yywidget_tree list> children window_list project
-
-%start project
-%start window
-%start widget
-
-%%
-
-project : window_list EOF        { List.rev $1 }
-
-window_list :                    { [] }
-            | window_list window { $2 :: $1 }
-; 
-
-window : window_start property_list children WINDOW_END 
-  { 
-    Node (("window", $1, List.rev $2), $3)
-  } 
-;
-
-window_start : WINDOW_START NAME EQUAL IDENT SUP   { $4 }
-;
-
-children  :                  { [] }
-         | children widget   { $2 :: $1 }
-;
-
-widget : widget_start property_list children WIDGET_END
-  { 
-    let classe, name = $1 in
-    if classe <> $4 then raise Parsing.Parse_error;
-    Node ((classe, name, List.rev $2), $3)
-  } 
-;
-
-widget_start  : WIDGET_START NAME EQUAL IDENT SUP   { $1, $4 }
-;
-
-property_list :                         { [] }
-              | property_list property  { $2 :: $1 }
-;
-
-property      : IDENT EQUAL IDENT       { $1, $3 }
-;
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/main.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/main.ml
deleted file mode 100644 (file)
index cb150e0..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/main.ml
+++ /dev/null
@@ -1,393 +0,0 @@
-(* $Id$ *)
-
-open GdkKeysyms
-open Gtk
-open GObj
-
-open Utils
-open TiBase
-
-let main_project_modify = ref false
-
-let main_window  = GWindow.window ~title:"ZOOM" ~x:10 ~y:10 ()
-let main_vbox    = GPack.vbox ~packing:main_window#add ()
-let main_menu    = GMenu.menu_bar ~packing:(main_vbox#pack ~expand:false) ()
-
-let can_copy = ref (fun _ -> assert false)
-let can_paste = ref (fun _ -> assert false)
-
-class project () =
-  let project_box = GPack.vbox ~packing:main_vbox#pack () in
-  let project_tree = GTree2.tree ~packing:project_box#pack () in
-  object(self)
-    val mutable window_list = []
-
-(* the selected window *)
-    val mutable selected = (None : window_and_tree option)
-
-    method change_selected sel =
-      match selected with
-      |        None ->
-         selected <- Some sel;
-         sel#project_tree_item#misc#set_state `SELECTED;
-         !can_copy true
-      |        Some old_sel ->
-         if sel = old_sel then begin
-           selected <- None;
-           sel#project_tree_item#misc#set_state `NORMAL;
-           !can_copy false
-         end else begin
-           old_sel#project_tree_item#misc#set_state `NORMAL;
-           selected <- Some sel;
-           sel#project_tree_item#misc#set_state `SELECTED;
-           !can_copy true
-         end
-
-    val mutable filename = ""
-    val mutable dirname = ""
-
-    method set_filename f =
-      let dir, file = split_filename f ~ext:".rad" in
-      filename <- file;
-      dirname <- dir
-
-    method get_filename () =
-      get_filename ~callback:self#set_filename ~dir:dirname ()
-
-    method dirname = dirname
-
-(*    method set_dirname f = dirname <- f *)
-
-    method add_window ~name ?tree:wt () =
-      let wt = match wt with
-      |        None -> new window_and_tree ~name
-      |        Some wt -> wt in
-      let tiwin = wt#tiwin and tw=wt#tree_window in
-      let project_tree_item = wt#project_tree_item in
-      project_tree#append project_tree_item;
-      let show = ref true in
-      project_tree_item#event#connect#button_press ~callback:
-       (fun ev ->
-       match GdkEvent.get_type ev with
-       | `BUTTON_PRESS ->
-           if GdkEvent.Button.button ev = 1 then begin
-             self#change_selected wt
-           end else
-           if GdkEvent.Button.button ev = 3 then begin
-             let menu = GMenu.menu () in
-             let name = wt#tiwin#name in
-             let mi_remove = GMenu.menu_item ~label:("delete " ^ name)
-                 ~packing:menu#append ()
-             and mi_copy = GMenu.menu_item ~label:("copy " ^ name)
-                 ~packing:menu#append ()      
-             and mi_cut = GMenu.menu_item ~label:("cut " ^ name)
-                 ~packing:menu#append () in
-             mi_remove#connect#activate
-               ~callback:(fun () -> self#delete_window wt);
-             mi_copy#connect#activate
-               ~callback:(fun () -> self#copy_wt wt);
-             mi_cut#connect#activate
-               ~callback:(fun () -> self#cut_wt wt);
-             menu#popup ~button:3 ~time:(GdkEvent.Button.time ev)
-           end;
-            GtkSignal.stop_emit ();
-            true
-       | `TWO_BUTTON_PRESS ->
-           if GdkEvent.Button.button ev = 1 then begin
-             if !show then begin
-               show := false;
-               tiwin#widget#misc#hide ();
-               tw#misc#hide ()
-             end
-             else begin
-               show := true;
-               tiwin#widget#misc#show ();
-               tw#misc#show ()
-             end
-           end;
-           true
-       | _ -> false);
-      tiwin#connect_event#delete ~callback:
-       (fun _ -> show := false; tiwin#widget#misc#hide (); true);
-      tw#event#connect#delete ~callback:
-       (fun _ -> show := false; tw#misc#hide (); true);
-      window_list <- wt :: window_list;
-      add_undo (Remove_window name);
-      main_window#misc#set_can_focus false;
-      main_window#misc#grab_focus ()
-
-      
-    method add_window_by_node
-       (Node ((classe, name, proplist), children)) =
-      if classe <> "window"
-      then failwith "add_window_by_node: class <> \"window\"";
-      let name = change_name name in  (* for paste *)
-      let wt = new window_and_tree ~name in
-      let tiwin = wt#tiwin in
-      List.iter proplist ~f:(fun (n,v) -> tiwin#set_property n v);
-      begin match children with
-      | [] -> ()
-      | [ ch ] -> tiwin#add_children_wo_undo ch; ()
-      | _ -> failwith "add_window_by_node: more than one child"
-      end;
-      self#add_window ~name ~tree:wt ()
-
-    method delete_window (wt : window_and_tree) =
-      let tiwin = wt#tiwin in
-      project_tree#remove wt#project_tree_item;
-      tiwin#remove_me ();
-      wt#tree_window#destroy ();
-      window_list <- list_remove ~f:(fun w -> w = wt) window_list
-
-    method delete_window_by_name ~name =
-      let wt = List.find window_list ~f:(fun wt -> wt#tiwin#name = name) in
-      self#delete_window wt
-      
-    method delete () =
-      List.iter window_list
-       ~f:(fun wt -> self#delete_window wt);
-      main_vbox#remove project_box#coerce;
-(* remove after test *)
-      if !name_list <> [] then failwith "name_list not empty"
-
-    method save_as () = if self#get_filename () then self#save ()
-
-    method save () =
-      if filename = "" then self#save_as ()
-      else begin
-       let outch = open_out (dirname ^ filename ^ ".rad") in
-       let f = Format.formatter_of_out_channel outch in
-       List.iter window_list ~f:(fun wt -> wt#tiwin#save f);
-       close_out outch;
-       main_project_modify := false
-      end
-
-    method copy_wt (wt : window_and_tree) =
-      wt#tiwin#copy ();
-      !can_paste true
-
-    method cut_wt (wt : window_and_tree) =
-      self#copy_wt wt;
-      self#delete_window wt
-
-    method copy () =
-      match selected with
-      |        None -> failwith "main_project copy"
-      |        Some sel -> self#copy_wt sel
-
-    method cut () =
-      match selected with
-      |        None -> failwith "main_project cut"
-      |        Some sel -> self#cut_wt sel
-
-    method paste () =
-      let lexbuf = Lexing.from_string !window_selection in
-      let node = Load_parser.window Load_lexer.token lexbuf in
-      self#add_window_by_node node
-
-    method emit () =
-      let outc = open_out (dirname ^ filename ^ ".ml") in
-      let f = Format.formatter_of_out_channel outc in
-      List.iter window_list ~f:(fun wt -> wt#emit f);
-      Format.fprintf f "let main () =@\n";
-(* this is just for demo *)
-      List.iter window_list ~f:
-       begin fun wt ->
-         let name = wt#tiwin#name in
-         Format.fprintf f "  let %s = new %s () in %s#show ();@\n"
-           name name name
-       end;
-      Format.fprintf f
-       "  GMain.Main.main ()@\n@\nlet _ = main ()@\n";
-      close_out outc
-
-  end
-
-
-let main_project = ref (new project ())
-
-let load () =
-  let filename = ref "" in
-  get_filename ~callback:(fun f -> filename := f) ~dir:!main_project#dirname ();
-  if !filename <> "" then begin
-    !main_project#delete ();
-    main_project := new project ();
-    let inch = open_in !filename in
-    let lexbuf = Lexing.from_channel inch in
-    let project_list = Load_parser.project Load_lexer.token lexbuf in
-    close_in inch;
-    List.iter project_list
-      ~f:(fun node -> !main_project#add_window_by_node node);
-    !main_project#set_filename !filename
-  end
-
-
-let interpret_undo = function
-  | Add (parent_name, node, pos) ->
-      let parent = Hashtbl.find widget_map parent_name in
-      parent#add_children node ~pos
-  | Remove child_name ->
-      let child  = Hashtbl.find widget_map child_name in
-      child#remove_me ()
-  | Property (property, value_string) ->
-      property#set value_string
-  | Add_window node -> !main_project#add_window_by_node node
-  | Remove_window name -> !main_project#delete_window_by_name ~name
-
-let undo () =
-  if !last_action_was_undo then begin
-    match !next_undo_info with
-    | hd :: tl -> interpret_undo hd; next_undo_info := tl
-    | [] -> message "no more undo info"
-  end
-  else begin
-    match !undo_info with
-    | hd :: tl -> interpret_undo hd; next_undo_info := tl
-    | [] -> message "no undo info"
-  end;
-  last_action_was_undo := true
-
-
-let targets = [  { target = "STRING"; flags = []; info = 0}  ]
-
-let xpm_window () =
-  let source_drag_data_get classe _ (data : selection_data) ~info ~time =
-    data#set ~typ:data#target ~format:0 ~data:classe in
-  let window = GWindow.window ~title:"icons" ~x:250 ~y:10 () in
-  window#misc#realize ();
-  let vbox = GPack.vbox ~packing:window#add () in
-  let table = GPack.table ~rows:1 ~columns:5 ~border_width:20
-      ~packing:vbox#pack () in
-  let tooltips = GData.tooltips () in
-  let add_xpm ~file ~left ~top ~tip =
-    let gdk_pix = GDraw.pixmap_from_xpm ~file ~window () in
-    let ev = GBin.event_box ~packing:(table#attach ~left ~top) () in
-    let pix = GMisc.pixmap gdk_pix ~packing:ev#add () in
-    ev#event#connect#button_press ~callback:
-      (fun ev -> match GdkEvent.get_type ev with
-       | `BUTTON_PRESS ->
-           if GdkEvent.Button.button ev = 1 then begin
-             !main_project#add_window ~name:(make_new_name "window") ()
-           end;
-           true
-       | _ -> false);
-    tooltips#set_tip ev#coerce ~text:tip
-  in
-  add_xpm ~file:"window.xpm" ~left:0 ~top:0 ~tip:"window";
-  GMisc.separator `HORIZONTAL ~packing:vbox#pack ();
-  let table = GPack.table ~rows:6 ~columns:6 ~packing:vbox#pack
-      ~row_spacings:20 ~col_spacings:20 ~border_width:20 () in
-  let add_xpm file ~left ~top ~classe =
-    let gdk_pix = GDraw.pixmap_from_xpm ~file ~window () in
-    let ev = GBin.event_box ~packing:(table#attach ~left ~top) () in
-    let pix = GMisc.pixmap gdk_pix ~packing:ev#add () in
-    ev#drag#source_set ~modi:[`BUTTON1] targets ~actions:[`COPY];
-    ev#drag#source_set_icon ~colormap:window#misc#style#colormap 
-      gdk_pix; 
-    ev#drag#connect#data_get ~callback:(source_drag_data_get classe);
-    tooltips#set_tip ev#coerce ~text:classe
-  in
-  
-  add_xpm "button.xpm"         ~left:0 ~top:0 ~classe:"button";
-  add_xpm "togglebutton.xpm"   ~left:1 ~top:0 ~classe:"toggle_button";
-  add_xpm "checkbutton.xpm"    ~left:2 ~top:0 ~classe:"check_button";
-  add_xpm "radiobutton.xpm"    ~left:3 ~top:0 ~classe:"radio_button";
-  add_xpm "toolbar.xpm"        ~left:4 ~top:0 ~classe:"toolbar";
-  add_xpm "hbox.xpm"           ~left:0 ~top:1 ~classe:"hbox";
-  add_xpm "vbox.xpm"           ~left:1 ~top:1 ~classe:"vbox";
-  add_xpm "hbuttonbox.xpm"     ~left:2 ~top:1 ~classe:"hbutton_box";
-  add_xpm "vbuttonbox.xpm"     ~left:3 ~top:1 ~classe:"vbutton_box";
-  add_xpm "fixed.xpm"          ~left:4 ~top:1 ~classe:"fixed";
-  add_xpm "frame.xpm"          ~left:0 ~top:2 ~classe:"frame";
-  add_xpm "aspectframe.xpm"    ~left:1 ~top:2 ~classe:"aspect_frame";
-  add_xpm "scrolledwindow.xpm" ~left:2 ~top:2 ~classe:"scrolled_window";
-  add_xpm "eventbox.xpm"       ~left:3 ~top:2 ~classe:"event_box";
-  add_xpm "handlebox.xpm"      ~left:4 ~top:2 ~classe:"handle_box";
-  add_xpm "viewport.xpm"       ~left:5 ~top:2 ~classe:"viewport";
-  add_xpm "hseparator.xpm"     ~left:0 ~top:3 ~classe:"hseparator";
-  add_xpm "vseparator.xpm"     ~left:1 ~top:3 ~classe:"vseparator";
-  add_xpm "clist.xpm"          ~left:2 ~top:3 ~classe:"clist";
-  add_xpm "label.xpm"          ~left:0 ~top:4 ~classe:"label";
-  add_xpm "statusbar.xpm"      ~left:1 ~top:4 ~classe:"statusbar";
-  add_xpm "notebook.xpm"       ~left:2 ~top:4 ~classe:"notebook";
-  add_xpm "colorselection.xpm" ~left:3 ~top:4 ~classe:"color_selection";
-  add_xpm "pixmap.xpm"         ~left:4 ~top:4 ~classe:"pixmap";
-  add_xpm "entry.xpm"          ~left:0 ~top:5 ~classe:"entry";
-  add_xpm "spinbutton.xpm"     ~left:1 ~top:5 ~classe:"spin_button";
-  add_xpm "combo.xpm"          ~left:2 ~top:5 ~classe:"combo";
-
-  window#show ();
-  window
-
-
-let main () =
-  let _ = GMain.Main.init () in
-  let prop_win = Propwin.init () in
-  let palette = xpm_window () in
-  main_window#show ();
-  main_window#connect#destroy ~callback:GMain.Main.quit;
-
-  let mp = main_project in
-  let f = new GMenu.factory main_menu in
-  let accel_group  = f#accel_group in
-  main_window#add_accel_group accel_group;
-  prop_win#add_accel_group accel_group;
-  palette#add_accel_group accel_group;
-
-  let file_menu    = new GMenu.factory (f#add_submenu "File") ~accel_group
-  and edit_menu    = new GMenu.factory (f#add_submenu "Edit") ~accel_group
-  and view_menu    = new GMenu.factory (f#add_submenu "View") ~accel_group
-  and project_menu = new GMenu.factory (f#add_submenu "Project") ~accel_group
-  in
-
-  file_menu#add_item "Quit" ~key:_Q ~callback:GMain.Main.quit;
-
-  project_menu#add_item "New" ~key:_N
-    ~callback:(fun () -> !mp#delete (); mp := new project ());
-  project_menu#add_item "Open..." ~key:_O ~callback:load;
-  project_menu#add_item "Save" ~key:_S ~callback:(fun () -> !mp#save ());
-  project_menu#add_item "Save as..." ~callback:(fun () -> !mp#save_as ());
-  project_menu#add_separator ();
-  project_menu#add_item "Emit code" ~callback:(fun () -> !mp#emit ());
-
-  let copy_item =
-    edit_menu#add_item "Copy" ~key:_C ~callback:(fun () -> !mp#copy ())
-  and cut_item =
-    edit_menu#add_item "Cut" ~key:_X ~callback:(fun () -> !mp#cut ())
-  and paste_item =
-    edit_menu#add_item "Paste" ~key:_V ~callback:(fun () -> !mp#paste ())
-  in
-  can_copy :=
-    (fun b -> copy_item#misc#set_sensitive b; cut_item#misc#set_sensitive b);
-  can_paste := paste_item#misc#set_sensitive;
-  !can_copy false; !can_paste false;
-  edit_menu#add_item "Undo" ~key:_Z ~callback:undo;
-
-  let palette_visible = ref true in
-  palette#event#connect#delete ~callback:
-    (fun _ -> palette_visible := false; palette#misc#hide (); true);
-  view_menu#add_item "Palette"
-    ~callback:(fun () ->
-      if !palette_visible then begin
-       palette#misc#hide ();
-       palette_visible := false
-      end else begin
-       palette#misc#show ();
-       palette_visible := true
-      end);
-  let prop_win_visible = ref true in
-  prop_win#event#connect#delete ~callback:
-    (fun _ -> prop_win_visible := false; prop_win#misc#hide (); true);
-  view_menu#add_item "Properties window"
-    ~callback:(fun () ->
-      if !prop_win_visible then begin
-       prop_win#misc#hide ();
-       prop_win_visible := false
-      end else begin
-       prop_win#misc#show ();
-       prop_win_visible := true
-      end);
-
-  GMain.Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/ml_gtk2.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/ml_gtk2.c
deleted file mode 100644 (file)
index 49ce27b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/ml_gtk2.c
+++ /dev/null
@@ -1,124 +0,0 @@
-/* $Id$ */
-
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "../../wrappers.h"
-#include "../../ml_glib.h"
-#include "../../ml_gdk.h"
-#include "../../ml_gtk.h"
-#include "../../gtk_tags.h"
-
-#include "gtktree2.h"
-#include "gtktreeitem2.h"
-
-#include <stdio.h>
-
-value Val_GtkObject_sink (GtkObject *);
-
-#define Val_GtkAny(w) Val_GtkObject((GtkObject*)w)
-#define Val_GtkAny_sink(w) Val_GtkObject_sink((GtkObject*)w)
-
-#define GtkWidget_val(val) check_cast(GTK_WIDGET,val)
-
-/* gtkwidget.h */
-
-
-#define Val_GtkWidget Val_GtkAny
-#define Val_GtkWidget_sink Val_GtkAny_sink
-
-
-/* gtktreeitem2.h */
-
-#define GtkTreeItem2_val(val) check_cast(GTK_TREE_ITEM2,val)
-ML_0 (gtk_tree_item2_new, Val_GtkWidget_sink)
-ML_1 (gtk_tree_item2_new_with_label, String_val, Val_GtkWidget_sink)
-ML_2 (gtk_tree_item2_set_subtree, GtkTreeItem2_val, GtkWidget_val, Unit)
-ML_1 (gtk_tree_item2_remove_subtree, GtkTreeItem2_val, Unit)
-ML_1 (gtk_tree_item2_expand, GtkTreeItem2_val, Unit)
-ML_1 (gtk_tree_item2_collapse, GtkTreeItem2_val, Unit)
-ML_1 (GTK_TREE_ITEM2_SUBTREE, GtkTreeItem2_val, Val_GtkWidget)
-
-/* gtktree2.h */
-
-#define GtkTree2_val(val) check_cast(GTK_TREE2,val)
-ML_0 (gtk_tree2_new, Val_GtkWidget_sink)
-ML_3 (gtk_tree2_insert, GtkTree2_val, GtkWidget_val, Int_val, Unit)
-ML_3 (gtk_tree2_clear_items, GtkTree2_val, Int_val, Int_val, Unit)
-ML_2 (gtk_tree2_select_item, GtkTree2_val, Int_val, Unit)
-ML_2 (gtk_tree2_unselect_item, GtkTree2_val, Int_val, Unit)
-ML_2 (gtk_tree2_select_child, GtkTree2_val, GtkWidget_val, Unit)
-ML_2 (gtk_tree2_unselect_child, GtkTree2_val, GtkWidget_val, Unit)
-ML_2 (gtk_tree2_child_position, GtkTree2_val, GtkWidget_val, Val_int)
-
-/*
-ML_2 (gtk_tree2_set_selection_mode, GtkTree2_val, Selection_mode_val, Unit)
-ML_2 (gtk_tree2_set_view_mode, GtkTree2_val, Tree_view_mode_val, Unit)
-*/
-
-ML_2 (gtk_tree2_set_view_lines, GtkTree2_val, Bool_val, Unit)
-ML_2 (gtk_tree2_item_up, GtkTree2_val, Int_val, Unit)
-ML_3 (gtk_tree2_select_next_child, GtkTree2_val, GtkWidget_val, Bool_val, Unit)
-ML_2 (gtk_tree2_select_prev_child, GtkTree2_val, GtkWidget_val, Unit)
-
-static value val_gtkany (gpointer p) { return Val_GtkAny(p); }
-value ml_gtk_tree2_selection (value tree)
-{
-  GList *selection = GTK_TREE2_SELECTION(GtkTree2_val(tree));
-  return Val_GList(selection, val_gtkany);
-}
-static gpointer gtkobject_val (value val) { return GtkObject_val(val); }
-value ml_gtk_tree2_remove_items (value tree, value items)
-{
-  GList *items_list = GList_val (items, gtkobject_val);
-  gtk_tree2_remove_items (GtkTree2_val(tree), items_list);
-  return Val_unit;
-}
-
-value ml_gtk_tree2_children (value tree)
-{
-  GList *children = (GtkTree2_val(tree))->children;
-  return Val_GList(children, val_gtkany);
-}
-
-
-
-#define GtkToolbar_val(val) check_cast(GTK_TOOLBAR,val)
-/* sets the text of the label of a button; creates the label
-   if necessary */
-value ml_gtk_toolbar2_set_text (value toolbar, value text, value pos)
-{
-  GtkToolbar *t = GtkToolbar_val(toolbar);
-  GtkToolbarChild *ch = (GtkToolbarChild *)g_list_nth_data (t->children, Int_val(pos));
-  GtkWidget *label = ch->label;
-
-  if (label)
-    gtk_label_set_text (GTK_LABEL(label), String_val(text));
-  else {
-    label = ch->label = gtk_label_new (String_val(text));
-    gtk_box_pack_end (GTK_BOX (GTK_BIN(ch->widget)->child), label, FALSE, FALSE, 0);
-    if (t->style != GTK_TOOLBAR_ICONS)
-      gtk_widget_show (label);
-  }
-
-  return Val_unit;
-}
-
-value ml_gtk_toolbar2_set_icon (value toolbar, value icon, value pos)
-{
-  GtkToolbar *t = GtkToolbar_val(toolbar);
-  GtkToolbarChild * ch =
-    (GtkToolbarChild *)g_list_nth_data (t->children, Int_val(pos));
-  GtkWidget *vbox = GTK_BIN(ch->widget)->child;
-  gtk_container_remove (GTK_CONTAINER(vbox), ch->icon);
-  ch->icon = GtkWidget_val(icon);
-  gtk_box_pack_end (GTK_BOX (vbox), ch->icon, FALSE, FALSE, 0);
-  if (t->style != GTK_TOOLBAR_TEXT)
-    gtk_widget_show (ch->icon);
-  
-  return Val_unit;
-}

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/notebook.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/notebook.xpm
deleted file mode 100644 (file)
index 77ac20d..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/notebook.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *notebook_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+OOOOOO.OOOO.OOOO.+++",
-"+OXXXXX.X.X..X.X..+++",
-"+OXXXXX..X.X..X.X.+++",
-"+OXXXXX.X.X..X.X..+++",
-"+OXXXXX.OOOOOOOOOOO +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+OXXXXXXXXXXXXXXXX. +",
-"+O................. +",
-"+                   +",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/pixmap.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/pixmap.xpm
deleted file mode 100644 (file)
index d76a5ec..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/pixmap.xpm
+++ /dev/null
@@ -1,39 +0,0 @@
-/* XPM */
-static char *pixmap_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 12 1",
-"  c Gray0",
-". c #007b00",
-"X c #7b7b7b",
-"o c Blue",
-"O c Green",
-"+ c Cyan",
-"@ c Yellow",
-"# c #d6d6d6",
-"$ c #b3cece",
-"% c Gray87",
-"& c Gray100",
-"* c None",
-/* pixels */
-"*********************",
-"*********************",
-"*********************",
-"*                    ",
-"* +++++%%%&+++++++++ ",
-"* +&&&++%%++&+++XX++ ",
-"* +++++++%+++++X@@X+ ",
-"* ++&&++++XX+++X@@X+ ",
-"* +++++++ XXX&++XX++ ",
-"* &+++++XXXXXX++++&+ ",
-"* +++++        +++++ ",
-"* +++++ ###### +++++ ",
-"* +++++ #o##o# +++++ ",
-"* ..... ###### ..... ",
-"* OOOOO ##oo## OOOOO ",
-"* OOOOO ##oo## OOOOO ",
-"* OOOOO        OOOOO ",
-"* OOOOOOOOOOOOOOOOOO ",
-"*                    ",
-"*********************",
-"*********************"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/property.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/property.ml
deleted file mode 100644 (file)
index 829e40b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/property.ml
+++ /dev/null
@@ -1,175 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GEdit
-open GData
-open GPack
-open GMisc
-open GWindow
-
-open Common
-open Utils
-
-(* external id : 'a -> 'a = "%identity" *)
-
-class virtual vprop ~name ~init ~set =
-  object (self)
-    val mutable s : string = init
-    val name : string = name
-    method private virtual parse : string -> 'a
-    method get = s
-    method set s' =
-      if s' <> s then begin
-       let v = self#parse s' in
-       if (set v) then begin
-         add_undo (Property ((self :> prop), s));
-         s <- s'
-       end
-      end
-    method modified = s <> init
-    method name = name
-    method code = s
-    method virtual range : range
-    method save_code = self#code
-  end
-
-let invalid_prop kind name s =
-  invalid_arg (Printf.sprintf "Property.%s(%s) <- %s" kind name s)
-
-class prop_enum ~values ~name ~init ~set =
-  object (self)
-    inherit vprop ~name ~init ~set
-    method private parse s =
-      try List.assoc s values
-      with Not_found -> invalid_prop "enum" name s
-    method range = Enum (List.map ~f:fst values)
-  end
-
-(* used for radio_button groups; there is nothing to do
-  in radtest when setting a radio_button group, only when writing
-  code or saving *)
-class prop_enum_dyn ~values ~name ~init ~set =
-  object (self)
-    inherit vprop ~name ~init ~set
-    method private parse s = ()
-    method range = Enum (values ())
-  end
-
-let bool_values =
-  [ "true", true; "false", false ]
-
-let shadow_type_values : (string * Tags.shadow_type) list =
-  [ "NONE", `NONE; "IN", `IN; "OUT", `OUT;
-    "ETCHED_IN", `ETCHED_IN; "ETCHED_OUT", `ETCHED_OUT ]
-
-let policy_type_values : (string * Tags.policy_type) list =
-  [ "ALWAYS", `ALWAYS; "AUTOMATIC", `AUTOMATIC ]
-
-let orientation_values : (string * Tags.orientation) list =
-  [ "HORIZONTAL", `HORIZONTAL; "VERTICAL", `VERTICAL ]
-
-let toolbar_style_values : (string * Tags.toolbar_style) list =
-  [ "ICONS", `ICONS; "TEXT", `TEXT; "BOTH", `BOTH ]
-
-let toolbar_space_style_values : (string * [`EMPTY | `LINE]) list =
-  [ "EMPTY", `EMPTY; "LINE", `LINE ]
-
-let relief_style_values : (string * Tags.relief_style) list =
-  [ "NORMAL", `NORMAL; "HALF", `HALF; "NONE", `NONE ]
-
-let position_values : (string * Tags.position) list =
-  [ "LEFT", `LEFT; "RIGHT", `RIGHT; "TOP", `TOP; "BOTTOM", `BOTTOM ]
-
-let combo_use_arrows_values : (string * [ `NEVER | `DEFAULT | `ALWAYS ]) list =
-[ "NEVER", `NEVER; "DEFAULT", `DEFAULT; "ALWAYS", `ALWAYS ] 
-
-let spin_button_update_policy_values :
-    (string * Tags. spin_button_update_policy) list =
-  [ "ALWAYS", `ALWAYS; "IF_VALID", `IF_VALID ]
-
-let button_box_style_values : (string * Tags.button_box_style) list =
-  [ "DEFAULT_STYLE", `DEFAULT_STYLE; "SPREAD", `SPREAD; "EDGE", `EDGE;
-    "START", `START; "END", `END ]
-
-let update_type_values : (string * Tags.update_type) list =
-  [ "CONTINUOUS", `CONTINUOUS; "DISCONTINUOUS", `DISCONTINUOUS;
-    "DELAYED", `DELAYED ]
-
-
-class prop_bool = prop_enum ~values:bool_values
-
-(*
-class prop_variant ~values ~name ~init ~set : prop =
-  object
-    inherit prop_enum ~values ~name ~init ~set
-    method code = "`" ^ s
-  end
-*)
-
-class prop_shadow = prop_enum ~values:shadow_type_values
-class prop_policy = prop_enum ~values:policy_type_values
-class prop_orientation = prop_enum ~values:orientation_values
-class prop_toolbar_style = prop_enum ~values:toolbar_style_values
-class prop_toolbar_space_style = prop_enum ~values:toolbar_space_style_values
-class prop_relief_style = prop_enum ~values:relief_style_values
-class prop_position = prop_enum ~values:position_values
-class prop_combo_use_arrows = prop_enum ~values:combo_use_arrows_values
-class prop_spin_button_update_policy = prop_enum
-    ~values:spin_button_update_policy_values
-class prop_button_box_style = prop_enum ~values:button_box_style_values
-class prop_update_type = prop_enum ~values:update_type_values
-
-class prop_int ~name ~init ~set : prop =
-  object
-    inherit vprop ~name ~init ~set
-    method private parse s =
-      try int_of_string s with _ -> invalid_prop "int" name s
-    method range = Int
-  end
-
-(* NB: float_of_string doesn't raise an exception in case of error *)
-class prop_float ~name ~init ~min ~max ~set : prop =
-  object
-    inherit vprop ~name ~init ~set
-    method private parse s =
-      try float_of_string s with _ -> invalid_prop "float" name s
-    method code =
-      if String.contains s '.' || String.contains s 'e' then s
-      else s ^ ".0"
-    method range = Float(min,max)
-  end
-
-class prop_string ~name ~init ~set : prop =
-  object
-    inherit vprop ~name ~init ~set
-    method private parse s = s
-    method range = String
-    method code = "\"" ^ String.escaped s ^ "\""
-  end
-
-class prop_adjustment ~name ~init ~set : prop =
-  object
-    inherit vprop ~name ~init ~set
-    method private parse = get5floats_from_string
-    method range = Adjust
-  end
-
-class prop_clist_titles ~name ~init ~set : prop =
-  object
-    inherit vprop ~name ~init ~set
-    method private parse = split_string ~sep:' '
-    method range = CList_titles
-    method code = "[ \"" ^
-      String.concat ~sep:"\"; \"" (split_string ~sep:' ' s) ^ "\" ]"
-    method save_code = "\"" ^ s ^ "\""
-  end
-
-class prop_file ~name ~init ~set : prop =
-  object
-    inherit vprop ~name ~init ~set
-    method private parse s = s
-    method range = File
-    method code = "\"" ^ String.escaped s ^ "\""
-  end
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/property.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/property.mli
deleted file mode 100644 (file)
index ccf2650..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/property.mli
+++ /dev/null
@@ -1,96 +0,0 @@
-(* $Id$ *)
-
-open Gtk.Tags
-open Common
-
-class virtual vprop :
-  name:string ->               (* property's name *)
-  init:string ->               (* default value *)
-  set:('a -> bool) ->
-  object
-    val name : string
-    val mutable s : string
-    method code : string       (* encoded value *)
-    method get : string
-    method modified : bool
-    method name : string
-    method private virtual parse : string -> 'a
-    method virtual range : range
-    method save_code : string
-    method set : string -> unit
-  end
-
-class prop_int :
-  name:string -> init:string -> set:(int -> bool) -> prop
-
-class prop_float :
-  name:string ->
-  init:string -> min:float -> max:float -> set:(float -> bool) -> prop
-
-class prop_string :
-  name:string -> init:string -> set:(string -> bool) -> prop
-
-class prop_bool :
-  name:string -> init:string -> set:(bool -> bool) -> prop
-(*
-class prop_variant :
-  values:(string * 'a) list ->
-  name:string -> init:string -> set:('a -> bool) -> prop
-*)
-class prop_shadow :
-  name:string -> init:string -> set:(shadow_type -> bool) -> prop
-
-class prop_policy :
-  name:string -> init:string -> set:(policy_type -> bool) -> prop
-
-class prop_orientation :
-  name:string ->
-  init:string -> set:(Gtk.Tags.orientation -> bool) -> prop
-
-class prop_toolbar_style :
-  name:string ->
-  init:string -> set:(Gtk.Tags.toolbar_style -> bool) -> prop
-
-class prop_toolbar_space_style :
-  name:string -> init:string -> set:([ `EMPTY | `LINE] -> bool) -> prop
-
-class prop_relief_style :
-  name:string ->
-  init:string -> set:(Gtk.Tags.relief_style -> bool) -> prop
-
-class prop_position :
-  name:string ->
-  init:string -> set:(Gtk.Tags.position -> bool) -> prop
-
-class prop_combo_use_arrows :
-  name:string ->
-  init:string -> set:([ `NEVER | `DEFAULT | `ALWAYS] -> bool) -> prop
-
-class prop_spin_button_update_policy :
-  name:string ->
-  init:string -> set:(Gtk.Tags.spin_button_update_policy -> bool) -> prop
-
-class prop_button_box_style :
-  name:string ->
-  init:string -> set:(Gtk.Tags.button_box_style -> bool) -> prop
-
-class prop_update_type :
-  name:string ->
-  init:string -> set:(Gtk.Tags.update_type -> bool) -> prop
-
-class prop_enum_dyn :
-  values:(unit -> string list) -> name:string ->
-  init:string -> set:(unit -> bool) -> prop
-
-class prop_adjustment :
-  name:string -> init:string ->
-    set:(float * float * float * float * float -> bool) -> prop
-
-class prop_clist_titles :
-  name:string -> init:string ->
-    set:(string list -> bool) -> prop
-
-class prop_file :
-  name:string -> init:string -> set:(string -> bool) -> prop
-
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/propwin.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/propwin.ml
deleted file mode 100644 (file)
index 2f8b291..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/propwin.ml
+++ /dev/null
@@ -1,180 +0,0 @@
-(* $Id$ *)
-
-open GObj
-
-open Common
-open Utils
-
-class type tiwidget_base = object
-  method name : string
-  method proplist : (string * prop) list
-end
-
-let prop_widget (prop : prop) =
-  match prop#range with
-    Enum l ->
-      let w = GEdit.combo ~popdown_strings:l ~use_arrows:`ALWAYS () in
-      w#entry#connect#changed ~callback:(fun () -> prop#set w#entry#text);
-      w#entry#set_editable false;
-      w#entry#set_text prop#get;
-      w#coerce
-  | String ->
-      let w = GEdit.entry ~text:prop#get () in
-      w#connect#activate ~callback:(fun () -> prop#set w#text);
-      w#coerce
-  | File ->
-      let w = GPack.hbox () in
-      let e = GEdit.entry ~text:prop#get ~editable:false ~packing:w#pack () in
-      let b = GButton.button ~label:"..." ~packing:w#pack () in
-      b#connect#clicked
-       ~callback:(fun () -> get_filename
-           ~callback:(fun name -> e#set_text name; prop#set name) (); ());
-      w#coerce
-  | Int ->
-      let adjustment =
-       GData.adjustment ~value:(float_of_string prop#get)
-         ~lower:(-2.) ~upper:5000. ~step_incr:1. ~page_incr:10. ~page_size:0. ()
-      in
-      let w = GEdit.spin_button ~rate:0.5 ~digits:0 ~adjustment () in
-      w#connect#activate
-       ~callback:(fun () -> prop#set (string_of_int w#value_as_int));
-      w#coerce
-  | Float (lower, upper) ->
-(*      let adjustment =
-       GData.adjustment ~value:(float_of_string prop#get)
-         ~lower ~upper ~step_incr:((upper-.lower)/.100.)
-         ~page_incr:((upper-.lower)/.10.) ~page_size:0. ()
-      in
-      let w = GEdit.spin_button ~rate:0.5 ~digits:2 ~adjustment () in
-      w#connect#activate
-       ~callback:(fun () -> prop#set (string_of_float w#value));
-      w#coerce
-*)
-      let w = entry_float ~init:(float_of_string prop#get) () in
-      w#connect#activate
-       ~callback:(fun () -> prop#set (string_of_float w#value));
-      w#coerce
-(*  | Adjust ->
-      let wpop = GWindow.window ~title:"Adjustment values" () in
-      let vb = GPack.vbox ~packing:wpop#add()  in
-      let hb1 = GPack.hbox ~packing:vb#pack () in
-      let l1 = GMisc.label ~text:"lower" ~packing:hb1#pack () in
-      let e1 = entry_float ~packing:hb1#pack
-         ~init:(float_of_string prop#get) ~set:prop#set in
-*)    
-  | CList_titles ->
-      let wpop = GWindow.window ~title:"titles of the columns" () in
-      let vb = GPack.vbox ~packing:wpop#add () in
-      let titles = split_string prop#get ~sep:' ' in
-      let n = List.length titles in
-      let rtitles = ref titles in
-      let rget = ref [] and rset = ref [] in
-      for i = 1 to n do
-       match !rtitles with
-       | hd::tl ->
-           let hb = GPack.hbox ~packing:vb#pack () in
-           let _ = GMisc.label ~text:("column" ^ (string_of_int i))
-               ~packing:hb#pack () in
-           let e = GEdit.entry ~text:hd ~packing:hb#pack () in
-           rtitles := tl;
-           rget := (fun () -> e#text) :: !rget;
-           rset := e#set_text :: !rset;
-       | _ -> failwith "CList_titles: this cannot happen!!"
-      done;
-      rtitles := titles;
-      rget := List.rev !rget;
-      rset := List.rev !rset;
-      let hb = GPack.hbox ~packing:vb#pack () in
-      let ok = GButton.button ~label:"OK" ~packing:hb#pack () in
-      let cancel = GButton.button ~label:"Cancel" ~packing:hb#pack () in
-      ok#connect#pressed
-       ~callback:(fun () ->
-         let tit = List.map ~f:(fun f -> f ()) !rget in
-         prop#set (String.concat ~sep:" " tit);
-         rtitles := tit;
-         wpop#misc#hide ());
-      cancel#connect#pressed
-       ~callback:(fun () ->
-         wpop#misc#hide ();
-         List.iter2 ~f:(fun f v -> f v) !rset !rtitles);
-      let e = GEdit.entry ~text:"double click here" ~editable:false () in
-      e#event#connect#button_press ~callback:
-       (fun ev -> 
-          GdkEvent.get_type ev = `TWO_BUTTON_PRESS &&
-         GdkEvent.Button.button ev = 1 &&
-          begin
-           wpop#misc#show ();
-            GtkSignal.stop_emit ();
-            true
-         end);
-      e#coerce
-
-let prop_box list =
-  let vbox = GPack.vbox () in
-  List.iter list ~f:
-    begin fun (name, prop) ->
-      let hbox =
-       GPack.hbox ~homogeneous:true ~packing:(vbox#pack ~expand:false) () in
-      GMisc.label ~text:name ~packing:hbox#pack ();
-      hbox#pack ~fill:true (prop_widget prop);
-      GMisc.separator `HORIZONTAL ~packing:(vbox#pack ~expand:false) ();
-      ()
-    end;
-  vbox
-
-class ['a] frozen lz = object
-  method get : 'a = Lazy.force lz
-end
-
-let vbox =
-  new frozen (lazy (GWindow.window ~show:true ~title:"Properties" ()))
-
-let init () = vbox#get
-
-let widget_pool = Hashtbl.create 7
-
-let boxref = ref None
-let shown_widget = ref ""
-
-let show_prop_box vb =
-  Gaux.may !boxref ~f:vbox#get#remove;
-  vbox#get#add vb#coerce;
-  boxref := Some vb#coerce
-
-let show (w : #tiwidget_base) =
-  let name = w#name in
-  let vb =
-    try
-      Hashtbl.find widget_pool name
-    with Not_found ->
-      let vb = prop_box w#proplist in
-      Hashtbl.add widget_pool ~key:name ~data:vb;
-      vb
-  in
-  show_prop_box vb;
-  shown_widget := name
-
-let add (w : #tiwidget_base) =
-  let vb = prop_box w#proplist in
-  Hashtbl.add widget_pool ~key:w#name ~data:vb
-
-
-let remove name =
-  Hashtbl.remove widget_pool name;
-  if !shown_widget = name then begin
-    shown_widget := "";
-    show_prop_box (GMisc.label ~text:"No widget selected" ())
-  end
-
-(*
-let change_name oldname newname =
-  let vb = Hashtbl.find widget_pool oldname in
-  Hashtbl.remove widget_pool oldname;
-  Hashtbl.add widget_pool ~key:newname ~data:vb
-*)
-
-let update (w : #tiwidget_base) show_modif =
-  let vb = prop_box w#proplist in
-  Hashtbl.remove widget_pool w#name;
-  Hashtbl.add widget_pool ~key:w#name ~data:vb;
-  if show_modif && !shown_widget = w#name then show_prop_box vb

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/propwin.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/propwin.mli
deleted file mode 100644 (file)
index 6636a4f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/propwin.mli
+++ /dev/null
@@ -1,10 +0,0 @@
-(* $Id$ *)
-
-open Common
-
-val init : unit -> GWindow.window
-val show : #tiwidget_base -> unit
-val add : #tiwidget_base -> unit
-val remove : string -> unit
-(* val change_name : string -> string -> unit *)
-val update : #tiwidget_base -> bool -> unit

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/radiobutton.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/radiobutton.xpm
deleted file mode 100644 (file)
index 0f5fbbd..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/radiobutton.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *radiobutton_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"++++++++++.++++++++++",
-"+++++++++...+++++++++",
-"++++++++.. ..++++++++",
-"+++++++.. X ..+++++++",
-"++++++.. XXX ..++++++",
-"+++++.. XXXXX ..+++++",
-"++++++OOXXXXXOO++++++",
-"+++++++OOXXXOO+++++++",
-"++++++++OOXOO++++++++",
-"+++++++++OOO+++++++++",
-"++++++++++O++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/scrolledwindow.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/scrolledwindow.xpm
deleted file mode 100644 (file)
index 44e59f6..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/scrolledwindow.xpm
+++ /dev/null
@@ -1,30 +0,0 @@
-/* XPM */
-static char *scrolledwindow_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 3 1",
-"  c Gray0",
-". c #d6d6d6",
-"X c Gray100",
-/* pixels */
-"XXXXXXXXXXXXXXXXXXXXX",
-"X.............X..... ",
-"X.............X.. .. ",
-"X.............X.   . ",
-"X.............X..... ",
-"X.............X      ",
-"X.............XXXXXX ",
-"X.............XX.... ",
-"X.............XX.... ",
-"X.............XXXXXX ",
-"X.............X..... ",
-"X.............X.   . ",
-"X.............X.. .. ",
-"X.............X..... ",
-"XXXXXXXXXXXXXXX      ",
-"X.... XXX .... ......",
-"X.. . X.. . .. ......",
-"X.  . X.. .  . ......",
-"X.. . X.. . .. ......",
-"X.... X.. .... ......",
-"X              ......"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/spinbutton.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/spinbutton.xpm
deleted file mode 100644 (file)
index f3a313b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/spinbutton.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *spinbutton_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+                   +",
-"+ OOOOOOOOOOO OOOOO +",
-"+ OOOOOOOOOOO OX X. +",
-"+ OOOOOOOOOOO O   . +",
-"+ OOOOOOOOOOO OOOOO +",
-"+ OOOOOOOOOOO O   . +",
-"+ OOOOOOOOOOO OX X. +",
-"+ OOOOOOOOOOO ..... +",
-"+                   +",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/statusbar.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/statusbar.xpm
deleted file mode 100644 (file)
index 8576d88..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/statusbar.xpm
+++ /dev/null
@@ -1,34 +0,0 @@
-/* XPM */
-static char *statusbar_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 7 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray87",
-"+ c Gray100",
-"@ c None",
-/* pixels */
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@+XX.@@@@@@@@@@@@@@",
-"@@@+XX.@@@@@@@@@@@@@@",
-"@@@+XX.@@@@@@@@@@@@@@",
-"@@@+XX.@@@@@@@@@@@@@@",
-"@@@+XX++++++++++++@@@",
-"@@@+XXXXXXXXXXXXXX@@@",
-"@@@+XXXXXXXXXXXXXX@@@",
-"@@@+XX............@@@",
-"@@@+XX.OOOOOOOOOOO@@@",
-"@@@+XX.OOOOOOOOOOO@@@",
-"@@@+XX.OOOOOOOOOOO@@@",
-"@@@+XX++++++++++++@@@",
-"@@@+XXXXXXXXXXXXXX@@@",
-"@@@+XXXXXXXXXXXXXX@@@",
-"@@@               @@@",
-"@@@@@@@@@@@@@@@@@@@@@",
-"@@@@@@@@@@@@@@@@@@@@@"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiBase.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiBase.ml
deleted file mode 100644 (file)
index 3907493..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiBase.ml
+++ /dev/null
@@ -1,671 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GObj
-open GContainer
-
-open Utils
-open Common
-open Property
-
-(* possible children; used to make the menus *)
-let widget_add_list =
-  [ "vbox"; "hbox"; "vbutton_box"; "hbutton_box"; "fixed";
-    "frame"; "aspect_frame"; "handle_box"; "event_box";
-    "hseparator"; "vseparator"; "statusbar"; "label"; "notebook";
-    "color_selection";
-    "button";
-    "toggle_button"; "check_button"; "radio_button"; "scrolled_window";
-
-    "entry"; "spin_button"; "combo"; "clist"; "toolbar"]
-
-
-(*********** selection ***********)
-
-let selection = ref ""
-let window_selection = ref ""
-
-
-(**************** signals class ***************)
-
-class tiwidget_signals ~signals =
-  let name_changed : string signal = signals in
-  object
-    val after = false
-    method after = {< after = true >}
-    method name_changed = name_changed#connect ~after
-  end
-
-
-(************* class type ***************)
-(* the ti<gtkwidget> classes encapsulate the corresponding gtk
-   widget which will be in the gtk-window and a tree item
-   labelled with the name of the widget which will be in the
-   tree-window.
-   all these classes have the same following interface *)
-
-class virtual tiwidget0 = object
-  method virtual widget : GObj.widget
-  method virtual connect_event : GObj.event_signals
-  method virtual parent : tiwidget0 option
-  method virtual set_parent : tiwidget0 -> unit
-  method virtual base : GObj.widget
-  method virtual tree_item : GTree2.tree_item
-  method virtual tree : GTree2.tree
-  method virtual children : (tiwidget0 * Gtk.Tags.pack_type) list
-  method virtual name : string
-  method virtual proplist : (string * prop) list
-  method virtual add_to_proplist : (string * prop) list -> unit
-  method virtual change_name_in_proplist : string -> string -> unit
-  method virtual set_property : string -> string -> unit
-  method virtual forall :  callback:(tiwidget0 -> unit) -> unit
-  method virtual remove : tiwidget0 -> unit
-(*  method virtual add_child_with_name : string -> string -> pos:int -> tiwidget0 *)
-  method virtual add_children : ?pos:int -> yywidget_tree -> unit
-  method virtual add_children_wo_undo : ?pos:int -> yywidget_tree -> string
-  method virtual remove_me  : unit -> unit
-  method virtual remove_me_without_undo  : unit -> unit
-  method virtual emit_code : Format.formatter -> char list -> unit
-  method virtual emit_init_code : Format.formatter -> packing:string -> unit
-  method virtual emit_method_code : Format.formatter -> unit
-  method virtual emit_initializer_code : Format.formatter -> unit
-  method virtual save : Format.formatter -> unit
-  method virtual copy : unit -> unit
-  method virtual connect : tiwidget_signals
-  method virtual disconnect : GtkSignal.id -> bool
-  method virtual child_up : tiwidget0 -> unit
-  method virtual up : unit -> unit
-  method virtual child_down : tiwidget0 -> unit
-  method virtual down : unit -> unit
-  method virtual next : tiwidget0
-  method virtual next_child : tiwidget0 -> tiwidget0
-  method virtual last : tiwidget0
-  method virtual prev : tiwidget0
-  method virtual set_full_menu : bool -> unit
-end
-
-class virtual window_and_tree0 = object
-  method virtual tiwin : tiwidget0
-(*  method virtual tree_window : window *)
-  method virtual change_selected : tiwidget0 -> unit
-  method virtual remove_sel : tiwidget0 -> unit
-  method virtual add_param : char
-  method virtual remove_param : char -> unit
-(*  method virtual emit : unit -> unit *)
-end
-
-(* forward declaration of function new_widget *)
-let new_tiwidget :
-    (classe:string -> ?pos:int -> name:string ->parent_tree:GTree2.tree ->
-      ?insert_evbox:bool -> ?listprop:(string * string) list -> window_and_tree0 -> tiwidget0) ref =
-  ref (fun ~classe ?pos ~name ~parent_tree ?insert_evbox ?listprop w -> failwith "new_tiwidget")
-
-
-let widget_map = Hashtbl.create 17
-
-(* list of names of radio_buttons (for groups) *)
-let radio_button_pool = ref []
-
-
-(************* window creation class *************)
-(* an instance of this class is created for each window opened
-   in radtest. It contains the tree window and the gtk window (tiwin) *)
-
-class window_and_tree ~name =
-  let tree_window = GWindow.window ~show:true ~title:(name ^ "-Tree") () in
-  let vbox = GPack.vbox ~spacing:2 ~packing:tree_window#add () in
-  let root_tree = GTree2.tree ~packing:vbox#pack ~selection_mode:`EXTENDED () in
-  let project_tree_item = GTree2.tree_item () in
-  let label = GMisc.label ~text:name ~xalign:0. ~yalign:0.5
-      ~packing:project_tree_item#add () in
-
-  object(self)
-
-    inherit window_and_tree0
-
-(* the params of the window class; because the class clist needs a param
-   I suppose there will be no more than 26 clists in a single window    *)
-    val param_list = Array.create 26 false
-
-    method add_param =
-      let i = ref 0 in
-      while param_list.(!i) do incr i done;
-      param_list.(!i) <- true;
-      char_of_int (97 + !i)
-
-    method remove_param c =
-      param_list.(int_of_char c - 97) <- false
-
-    method private param_list =
-      let r = ref [] in
-      for i = 25 downto 0 do
-       if Array.unsafe_get param_list i then r := (char_of_int (i+97)) :: !r
-      done;
-      !r
-
-(* I use magic here because the real initialization is done
-   below in the initializer part. It can't be done here because
-   of the call to self *)
-    val mutable tiwin = (Obj.magic 0 : tiwidget0)
-
-    method tiwin = tiwin
-    method tree_window = tree_window
-
-    method project_tree_item = project_tree_item
-
-(* the selected item in this window *)
-    val mutable selected = (None : tiwidget0 option)
-
-(* what to do when a new item is selected.
-   this method is passed to all the tiwidgets (by the select_fun
-   parameter) and they will call it when they are clicked on;
-   she is also called when changing the selection the arrow keys
-   (see in the initializer part) *)
-    method change_selected sel =
-      match selected with
-      |        None ->
-         selected <- Some sel;
-         sel#tree_item#misc#set_state `SELECTED;
-         sel#base#misc#set_state `SELECTED;
-         Propwin.show sel
-      |        Some old_sel ->
-         if sel = old_sel then begin
-           selected <- None;
-           sel#base#misc#set_state `NORMAL;
-           sel#tree_item#misc#set_state `NORMAL
-         end else begin
-           old_sel#tree_item#misc#set_state `NORMAL;
-           old_sel#base#misc#set_state `NORMAL;
-           selected <- Some sel;
-           sel#tree_item#misc#set_state `SELECTED;
-           sel#base#misc#set_state `SELECTED;
-           Propwin.show sel
-         end
-
-(* the tiwidget tiw is being removed; if it was selected,
-   put the selection to None *)
-    method remove_sel tiw =
-      match selected with
-      |        Some sel when sel = tiw -> selected <- None
-      |        _ -> ()
-
-(* emits the code corresponding to this window *)
-    method emit c = tiwin#emit_code c self#param_list;
-
-    method delete () =
-      tiwin#remove_me_without_undo ();
-      tree_window#destroy ();
-
-    initializer
-      tiwin <- !new_tiwidget ~classe:"window" ~name ~parent_tree:root_tree
-         (self : #window_and_tree0 :> window_and_tree0);
-
-      tiwin#connect#name_changed ~callback:
-         (fun n -> label#set_text n; tree_window#set_title (n ^ "-Tree"));
-
-      Propwin.show tiwin;
-
-      tree_window#event#connect#key_press ~callback:
-       begin fun ev ->
-         let state = GdkEvent.Key.state ev in
-         let keyval = GdkEvent.Key.keyval ev in
-         if keyval = GdkKeysyms._Up then begin
-           match selected with
-           | None -> ()
-           | Some t -> 
-               if List.mem `CONTROL state then t#up ()
-               else try
-                 self#change_selected t#prev
-               with Not_found -> ()
-         end
-         else if keyval = GdkKeysyms._Down then begin
-           match selected with
-           | None -> ()
-           | Some t -> 
-               if List.mem `CONTROL state then t#down ()
-               else try
-                 self#change_selected t#next
-               with Not_found -> ()
-         end;
-         GtkSignal.stop_emit ();
-          true
-       end;
-      ()
-  end
-
-
-
-(***************** class implementation *****************)
-(* this is the base class of the ti<gtkwidget> hierarchy.
-   all these classes will inherit from tiwidget, but without
-   adding new methods. In this way all the classes have the
-   same interface and we can use them in lists, pass them to
-   functions without caring on the type.
-   All methods needed by any of the classes are defined in
-   tiwidget but if a method is not pertinent in tiwidget
-   it has for implementation:
-      failwith "<name of the method>"
-   the real implementation of the method is done in the
-   class (or classes) in which it is needed (or sometimes
-   in tiwidget anyway).
-   Additionally, to workaround some problem with recursive types
-   the type of the (public) methods of tiwidget is defined in
-   tiwidget0 of which tiwidget inherits.
-   The parent_tree parameter is the tree in which the
-   tiwidget#tree_item will be inserted at position :pos.
-*)
-
-class virtual tiwidget ~name ~parent_tree:(parent_tree : GTree2.tree) ~pos
-    ~widget ?(insert_evbox=true) (parent_window : window_and_tree0) =
-object(self)
-
-  inherit tiwidget0
-  inherit has_ml_signals
-
-  val evbox =
-    if insert_evbox then
-      let ev = GBin.event_box () in ev#add widget#coerce; Some ev
-    else None
-
-(* used only for windows delete_event *)
-  method connect_event = failwith "tiwidget::connect_event"
-
-  val widget = widget#coerce
-  method widget = widget
-
-  val mutable parent = None
-  method set_parent p = parent <- Some p
-  method parent =  parent
-  method private sure_parent =
-    match parent with
-    | None -> failwith "sure_parent"
-    | Some p -> p
-
-  method base =
-    match evbox with
-    | None -> widget#coerce
-    | Some ev -> ev#coerce
-
-(* this is the name used in new_tiwidget for the creation
-   of an object of this class *)
-  val mutable classe = ""
-
-  val tree_item = GTree2.tree_item ()
-  method tree_item = tree_item
-
-  val mutable stree = GTree2.tree ()
-  method tree = stree
-
-  val label = GMisc.label ~text:name ~xalign:0. ~yalign:0.5 ()
-
-  val mutable name : string = name
-  method name = name
-
-(* this is the complete name for the creation of the widget
-   in lablgtk e.g. GPack.vbox; used in emit_init_code *)
-  method private class_name = ""
-
-  val mutable proplist : (string * prop) list = []
-  method proplist = proplist
-  method private get_mandatory_props = []
-
-  method add_to_proplist plist = proplist <- proplist @ plist
-
-(* for children of a box *)
-  method change_name_in_proplist : string -> string -> unit =
-    fun _ _ -> ()
-  method set_property name value_string = try
-    (List.assoc name proplist)#set value_string
-  with Not_found -> Printf.printf "Property not_found %s, %s\n" name value_string;
-    flush stdout
-
-  method private get_property name =
-    (List.assoc name proplist)#get
-
-
-(* the proplist with some items removed e.g. the expand... in a box
-   used for saving and emitting code *)
-  method private emit_clean_proplist =
-    List.fold_left ~f:(fun l p -> List.remove_assoc p l)
-      ~init:proplist
-      ([ "name"; "expand"; "fill"; "padding" ] @ self#get_mandatory_props)
-(*  method private emit_clean_proplist plist =
-    List.fold_left ~init:plist ~f:
-      (fun pl propname -> List.remove_assoc propname pl)
-       [ "name"; "expand"; "fill"; "padding" ]
-*)
-
-  method private save_clean_proplist =
-    List.fold_left ~f:(fun l p -> List.remove_assoc p l)
-      ~init:proplist ("name" :: self#get_mandatory_props)
-(*  method private save_clean_proplist =
-    List.remove_assoc "name" proplist *)
-
-  val mutable children : (tiwidget0 * Gtk.Tags.pack_type) list = []
-  method children = children
-  method forall =
-    fun ~callback -> List.iter (List.map children ~f:fst) ~f:callback
-
-(* encapsulate container#add and container#remove 
-   they are here because they depend on the type of the widget:
-   e.g.: gtkbin->add scrolled_window->add_with_viewport box->pack *)
-  method private add = failwith (name ^ "::add")
-  method remove = failwith (name ^ "::remove")
-
-
-(* removes self from his parent;
-   will be different for a window *)
-  method remove_me () =
-    let sref = ref "" in
-    self#save_to_string sref;
-    let pos = list_pos ~item:(self : #tiwidget0 :> tiwidget0)
-       (List.map self#sure_parent#children ~f:fst) in
-    let lexbuf = Lexing.from_string !sref in
-    let node = Load_parser.widget Load_lexer.token lexbuf in
-    add_undo (Add (self#sure_parent#name, node, pos));
-    self#remove_me_without_undo ()
-
-  method remove_me_without_undo () =
-(* it should be enough to only recursively remove the children from the
-   name_list and do the tip#remove and tip#tree#remove
-   only for self *)
-    self#forall ~callback:(fun tiw -> tiw#remove_me_without_undo ());
-    parent_window#remove_sel (self : #tiwidget0 :> tiwidget0);
-    match parent with
-    | None -> failwith "remove without parent"
-    | Some (tip : #tiwidget0) ->
-       tip#tree#remove tree_item;
-       tip#remove (self : #tiwidget0 :> tiwidget0);
-       name_list := list_remove !name_list ~f:(fun n -> n=name);
-       Hashtbl.remove widget_map name;
-       Propwin.remove name
-
-(* used for undo *)
-  method private remove_child_by_name name () =
-    let child = fst (List.find children
-       ~f:(fun (ch, _) -> ch#name = name)) in
-    child#remove_me ()
-
-(* for most widgets we make a child with new_tiwidget and then add it
-   to self; for toolbars we use toolbar#insert_button...     *)
-      method private make_child = !new_tiwidget
-
-(* adds a child and shows his properties;
-   used when adding a child by the menu or DnD *)
-  method private add_child classe ?name ?(undo = true) ?(affich = true) ?(pos = -1) ?(listprop = []) () =
-    let name = match name with
-    | None -> make_new_name classe
-    | Some n -> n in
-    let child = self#make_child ~classe ~name ~parent_tree:stree parent_window ~pos ~listprop in
-    child#set_parent (self : #tiwidget0 :> tiwidget0);
-    self#add child ~pos;
-    if affich then Propwin.show child;
-    if undo then add_undo (Remove name);
-    child
-
-
-(* adds the subtree saved in the Node *)
-  method add_children ?(pos = -1) node =
-    let child_name = self#add_children_wo_undo node ~pos in
-    add_undo (Remove child_name)
-
-  method add_children_wo_undo ?(pos = -1) (Node (child, children)) =
-    let classe, name, property_list = child in
-    let rname = change_name name in
-    let tc = self#add_child classe ~name:rname ~undo:false ~affich:false ~pos ~listprop:property_list () in
-    List.iter (List.rev children)
-      ~f:(fun c -> tc#add_children_wo_undo c; ());
-    List.iter property_list ~f:(fun (n,v) -> tc#set_property n v);
-    rname
-
-(* only a tiwindow can emit code *)
-  method emit_code = failwith "emit_code"
-
-(* some methods for emitting code *)
-(* this one calculates the expand, fill and padding parameters
-   of a box child *)
-  method private get_packing packing =
-    let aux name =
-      let prop  = List.assoc name proplist in
-      if prop#modified then " ~" ^ name ^ ":" ^ prop#code else ""
-    in
-    let efp = try
-      (aux "expand") ^ (aux "fill") ^ (aux "padding")
-    with Not_found -> "" in
-    if efp = "" then ("~packing:" ^ packing)
-    else ("~packing:(" ^ packing ^ efp ^ ")")
-
-(* this one emits the declaration code of the widget *)
-  method emit_init_code formatter ~packing =
-    Format.fprintf formatter "@ @[<hv 2>let %s =@ @[<hov 2>%s"
-      name self#class_name;
-    List.iter self#get_mandatory_props
-      ~f:begin fun name ->
-       Format.fprintf formatter "@ ~%s:%s" name
-         (List.assoc name proplist)#code
-      end;
-    let packing = self#get_packing packing in
-    if packing <> "" then Format.fprintf formatter "@ %s" packing;
-    self#emit_prop_code formatter;
-    Format.fprintf formatter "@ ()@ in@]@]"
-
-(* this one emits the properties which do not have their
-   default value; used by emit_init_code *)
-  method private emit_prop_code formatter =
-    let mandatory = self#get_mandatory_props in
-    List.iter self#emit_clean_proplist ~f:
-      begin  fun (name, prop) ->
-       if List.mem name mandatory then () else
-       if prop#modified then
-         Format.fprintf formatter "@ ~%s:%s" prop#name prop#code
-      end
-
-(* this one emits the method returning this widget *)
-  method emit_method_code formatter =
-    Format.fprintf formatter "@ method %s = %s" name name;
-
-(* emits the code in the initializer part for this widget *)
-  method emit_initializer_code _ = ()
-
-(* for saving the project to a file. Used also by copy and cut *)
-  method private save_start formatter =
-    Format.fprintf formatter "@\n@[<2><%s name=%s>" classe name;
-    List.iter
-      ~f:(fun p -> Format.fprintf formatter 
-         "@\n%s=\"%s\"" p (List.assoc p proplist)#get)
-      self#get_mandatory_props
-      
-
-  method private save_end formatter =
-    Format.fprintf formatter "@]@\n</%s>" classe
-
-  method save formatter =
-    self#save_start formatter;
-    List.iter self#save_clean_proplist ~f:
-      (fun (name, prop) ->
-       if prop#modified then
-         Format.fprintf formatter "@\n%s=%s" name prop#save_code);
-    self#forall ~callback:(fun w -> w#save formatter);
-    self#save_end formatter
-
-
-  method private save_to_string string_ref =
-    let b = Buffer.create 80 in
-    let f = Format.formatter_of_buffer b in
-    self#save f;
-    Format.pp_print_flush f ();
-    string_ref := Buffer.contents b
-
-  method private copy_to_sel selection = self#save_to_string selection
-
-  method copy () = self#copy_to_sel selection
-
-  method private cut () =
-    self#copy ();
-    self#remove_me ()
-
-  method private paste () =
-    let lexbuf = Lexing.from_string !selection in
-    let node = Load_parser.widget Load_lexer.token lexbuf in
-    self#add_children node
-    
-
-(* ML signal used when the name of the widget is changed *)
-  val name_changed : string signal = new signal
-  method connect = new tiwidget_signals ~signals:name_changed
-  method private call_name_changed = name_changed#call
-
-
-(* this is necessary because gtk_tree#remove deletes the tree
-   when removing the last item  *)
-(* suppressed this in gtktree2 
-  method new_tree () =
-    stree <- GTree2.tree;
-    tree_item#set_subtree stree;
-    tree_item#expand ()
-*)
-
-(* when full_menu is true we use the menu else the restricted menu *)
-  val mutable full_menu  = true
-  method set_full_menu b = full_menu <- b
-
-(* the menu for this widget 
-   This menu is recalculated when one clicks on the 3rd button.
-   There is nothing to do e.g. when the name of the widget changes,
-   it will change in the menu the next time. *)
-  method private menu ~time = self#restricted_menu ~time
-
-(* the restricted menu for this widget 
-   used for containers when they are full *)
-  method private restricted_menu ~time =
-    let menu = GMenu.menu () in
-    let mi_remove = GMenu.menu_item ~packing:menu#append       ~label:"remove" ()
-    and mi_cut  = GMenu.menu_item ~packing:menu#append ~label:"Cut" ()
-    and mi_copy = GMenu.menu_item ~packing:menu#append ~label:"Copy" () in
-    mi_remove#connect#activate ~callback:self#remove_me;
-    mi_copy#connect#activate ~callback:self#copy;
-    mi_cut#connect#activate ~callback:self#cut;
-    menu#popup ~button:3 ~time
-
-(* changes all that depends on the name *)
-  method private set_new_name new_name =
-    if test_unique new_name then begin
-      Hashtbl.remove widget_map name;
-      Hashtbl.add widget_map ~key:new_name
-       ~data:(self : #tiwidget0 :> tiwidget0);
-      if (classe = "radio_button") then begin
-       radio_button_pool := new_name ::
-         (list_remove !radio_button_pool ~f:(fun x -> x = name));
-       List.iter
-         ~f:(fun x -> Propwin.update (Hashtbl.find widget_map x) false)
-         !radio_button_pool
-      end;
-      label#set_text new_name;
-      let old_name = name in
-      name <- new_name;
-(*      Propwin.change_name old_name new_name; *)
-      name_list :=
-       new_name :: (list_remove !name_list ~f:(fun n -> n=old_name));
-      begin match self#parent with
-      | None -> ()
-      | Some p -> p#change_name_in_proplist old_name new_name
-      end;
-      self#call_name_changed new_name;
-      true
-    end
-    else begin
-      message_name ();
-      Propwin.update self true;
-      false
-    end
-
-
-(* moves the present tiw up in his parents' children list *)
-(* does something only when the parent is a box *)
-  method child_up = fun _ -> ()
-
-  method up () = match parent with
-  | None -> ()
-  | Some t -> t#child_up (self : #tiwidget0 :> tiwidget0)
-
-  method child_down = fun _ -> ()
-
-  method down () = match parent with
-  | None -> ()
-  | Some t -> t#child_down (self : #tiwidget0 :> tiwidget0)
-
-
-(* get the next tiwidget in the tree (used with Down arrow) *)
-  method next =
-    if children <> [] then fst (List.hd children)
-    else begin
-      match parent with
-      |        None -> raise Not_found
-      |        Some p -> p#next_child (self : #tiwidget0 :> tiwidget0)
-    end
-
-  method next_child child =
-    let _, tl = cut_list ~item:child (List.map ~f:fst children) in
-    match tl with
-    | ch :: next :: _ -> next
-    | ch :: [] -> begin
-       match parent with
-       | None -> raise Not_found
-       | Some p -> p#next_child (self : #tiwidget0 :> tiwidget0)
-    end
-    | _ -> failwith "next_child"
-
-(* get the last child of the last child ... of our last child.
-   Used by prev. *)
-  method last =
-    if children = [] then (self : #tiwidget0 :> tiwidget0)
-    else (fst (List.hd (List.rev children)))#last
-
-(* get the previous tiwidget in the tree (used with Up arrow) *)
-  method prev =
-    match parent with
-    | None -> raise Not_found
-    | Some p ->
-       let hd, _ = cut_list ~item:(self : #tiwidget0 :> tiwidget0)
-           (List.map ~f:fst p#children) in
-       match hd with
-       | [] -> p
-       | h :: _ -> h#last
-
-  initializer
-    Hashtbl.add widget_map ~key:name ~data:(self : #tiwidget0 :> tiwidget0);
-    name_list := name :: !name_list;
-    parent_tree#insert tree_item ~pos;
-    tree_item#set_subtree stree;
-    tree_item#add label#coerce;
-    tree_item#expand ();
-
-    proplist <-  proplist @
-      [ "name",
-        new prop_string ~name:"name" ~init:name ~set:self#set_new_name; 
-        "width", new prop_int ~name:"width" ~init:"-2"
-         ~set:(fun v -> widget#misc#set_geometry ~width:v (); true);
-        "height", new prop_int ~name:"height" ~init:"-2"
-         ~set:(fun v -> widget#misc#set_geometry ~height:v (); true) ];
-
-    self#add_signal name_changed;
-
-    tree_item#event#connect#button_press ~callback:
-      (fun ev -> match GdkEvent.get_type ev with
-      | `BUTTON_PRESS ->
-         if GdkEvent.Button.button ev = 1 then begin
-           parent_window#change_selected
-             (self : #tiwidget0 :> tiwidget0);
-         end
-         else if GdkEvent.Button.button ev = 3 then begin
-           if full_menu
-           then self#menu ~time:(GdkEvent.Button.time ev)
-           else self#restricted_menu ~time:(GdkEvent.Button.time ev);
-         end;
-         GtkSignal.stop_emit ();
-          true
-      | _ -> false);
-    ()
-end
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiBin.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiBin.ml
deleted file mode 100644 (file)
index 5ebcb3e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiBin.ml
+++ /dev/null
@@ -1,185 +0,0 @@
-open Gtk
-
-open Utils
-open Property
-
-open TiContainer
-
-class tiframe ~(widget : GBin.frame) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object
-  val frame = widget
-  inherit ticontainer ~name ~widget ~parent_tree ~pos
-      ~insert_evbox parent_window as container
-
-  method private class_name = "GBin.frame"
-
-  method private get_mandatory_props = [ "label" ]
-
-  initializer
-    classe <- "frame";
-    frame#set_label name;
-    proplist <- proplist @
-      [ "label",
-       new prop_string ~name:"label" ~init:name ~set:(ftrue frame#set_label);
-       "label_xalign",
-       new prop_float ~name:"label_xalign" ~init:"0.0" ~min:0. ~max:1.
-            ~set:(fun x -> frame#set_label_align ~x (); true);
-       "shadow_type",
-       new prop_shadow ~name:"shadow_type" ~init:"ETCHED_IN"
-         ~set:(ftrue frame#set_shadow_type) ]
-end
-
-let new_tiframe ~name ?(listprop = []) =
-  new tiframe ~widget:(GBin.frame ()) ~name
-
-
-
-
-class tiaspect_frame ~(widget : GBin.aspect_frame) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object
-  val aspect_frame = widget
-  inherit tiframe ~name ~widget:(widget :> GBin.frame) ~parent_tree ~pos
-      ~insert_evbox parent_window
-
-  method private class_name = "GBin.aspect_frame"
-
-  initializer
-    classe <- "aspect_frame";
-    frame#set_label name;
-    proplist <- proplist @
-      [ "obey_child",
-       new prop_bool ~name:"obey_child" ~init:"true"
-         ~set:(ftrue aspect_frame#set_obey_child);
-       "ratio",
-       new prop_float ~name:"ratio" ~init:"1.0" ~min:0. ~max:1.
-            ~set:(ftrue aspect_frame#set_ratio)
-      ]        
-end
-
-let new_tiaspect_frame ~name ?(listprop = []) =
-  new tiaspect_frame ~widget:(GBin.aspect_frame ()) ~name
-
-
-
-
-class tievent_box ~(widget : GBin.event_box) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object
-  val event_box = widget
-  inherit ticontainer ~name ~widget ~parent_tree ~pos
-      ~insert_evbox parent_window
-
-  method private class_name = "GBin.event_box"
-  initializer
-    classe <- "event_box"
-end
-
-let new_event_box ~name ?(listprop = []) =
-  new tievent_box ~widget:(GBin.event_box ()) ~name
-
-
-
-
-class tihandle_box ~(widget : GBin.handle_box) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object
-  val handle_box = widget
-  inherit ticontainer ~name ~widget ~parent_tree ~pos
-      ~insert_evbox parent_window
-
-  method private class_name = "GBin.handle_box"
-
-  initializer
-    classe <- "handle_box";
-    proplist <- proplist @
-      [ "shadow_type",
-       new prop_shadow ~name:"shadow_type" ~init:"OUT"
-         ~set:(ftrue handle_box#set_shadow_type);
-       "handle_position",
-       new prop_position ~name:"handle_position" ~init:"LEFT"
-         ~set:(ftrue handle_box#set_handle_position);
-       "snap_edge",
-       new prop_position ~name:"snap_edge" ~init:"TOP"
-         ~set:(ftrue handle_box#set_snap_edge)
-      ]
-end
-
-let new_handle_box ~name ?(listprop = []) =
-  new tihandle_box ~widget:(GBin.handle_box ()) ~name
-
-
-
-
-
-class tiviewport ~(widget : GBin.handle_box) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object
-  val viewport = widget
-  inherit ticontainer ~name ~widget ~parent_tree ~pos
-      ~insert_evbox parent_window
-
-  method private class_name = "GBin.viewport"
-
-  initializer
-    classe <- "viewport";
-    proplist <- proplist @
-      [ "shadow_type",
-       new prop_shadow ~name:"shadow_type" ~init:"OUT"
-         ~set:(ftrue viewport#set_shadow_type)
-      ]
-end
-
-let new_viewport ~name ?(listprop = []) =
-  new tiviewport ~widget:(GBin.handle_box ()) ~name
-
-
-
-
-
-class tiscrolled_window ~(widget : GBin.scrolled_window)
-    ~name ~parent_tree ~pos ?(insert_evbox=true) parent_window =
-  object(self)
-    val scrolled_window = widget
-    inherit ticontainer ~name ~insert_evbox
-       ~parent_tree ~pos ~widget parent_window
-
-    method private class_name = "GBin.scrolled_window"
-    method private name_of_add_method = "#add_with_viewport"
-
-    method private add rw ~pos =
-      scrolled_window#add_with_viewport (rw#base);
-      children <- [ rw, `START];
-      self#set_full_menu false;
-      tree_item#drag#dest_unset ()
-
-(* we must remove the child from the viewport,
-   not from the scrolled_window;
-   it is not mandatory to remove the viewport
-   from the scrolled_window *)
-    method remove child =
-      let viewport = (new GContainer.container (GtkBase.Container.cast (List.hd scrolled_window#children)#as_widget)) in
-      viewport#remove child#base;
-(*      scrolled_window#remove (List.hd scrolled_window#children); *)
-      children <- [ ];
-      self#set_full_menu true;
-      tree_item#drag#dest_set ~actions:[`COPY]
-       [ { target = "STRING"; flags = []; info = 0} ]
-
-
-    initializer
-      classe <- "scrolled_window";
-      proplist <- proplist @
-       [ "hscrollbar_policy",
-         new prop_policy ~name:"hscrollbar_policy" ~init:"ALWAYS"
-           ~set:(ftrue scrolled_window#set_hpolicy);
-         "vscrollbar_policy",
-         new prop_policy ~name:"vscrollbar_policy" ~init:"ALWAYS"
-           ~set:(ftrue scrolled_window#set_vpolicy) ]
-end
-
-let new_tiscrolled_window ~name ?(listprop = []) =
-  new tiscrolled_window ~widget:(GBin.scrolled_window ()) ~name
-
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiButton.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiButton.ml
deleted file mode 100644 (file)
index 174c6eb..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiButton.ml
+++ /dev/null
@@ -1,372 +0,0 @@
-open Utils
-open Property
-
-open TiBase
-open TiContainer
-
-(* the button inherits from widget because it can't accept
-   a child; 
-   needs to add the border_width property *)
-class tibutton ~(widget : #GButton.button) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val button = widget
-  inherit tiwidget ~name ~widget ~parent_tree ~pos ~insert_evbox
-       parent_window as widget
-
-  method private class_name = "GButton.button"
-
-  method private get_mandatory_props = [ "label" ]
-
-  initializer
-    classe <- "button";
-    proplist <-  proplist @
-      [ "border_width",        new prop_int ~name:"border_width" ~init:"0"
-                         ~set:(ftrue button#set_border_width);
-       "label",
-       new prop_string ~name:"label" ~init:name ~set:
-         begin fun v ->
-           button#remove (List.hd button#children)#coerce;
-           GMisc.label ~text:v ~xalign:0.5 ~yalign:0.5 ~packing:button#add ();
-           true
-         end ]
-end
-
-let new_tibutton ~name ?(listprop = []) =
-  let b = GButton.button ~label:name () in
-  b#event#connect#enter_notify
-    ~callback:(fun _ -> GtkSignal.stop_emit (); true);
-  b#event#connect#leave_notify
-    ~callback:(fun _ -> GtkSignal.stop_emit (); true);
-  new tibutton ~widget:b ~name
-
-
-class ticheck_button ~(widget : #GButton.toggle_button) ~name
-    ~parent_tree ~pos ?(insert_evbox=true) parent_window =
-object(self)
-  val button = widget
-  inherit tiwidget ~name ~widget ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-
-  method private class_name = "GButton.check_button"
-
-  method private get_mandatory_props = [ "label" ]
-
-  initializer
-    classe <- "check_button";
-    proplist <-  proplist @
-      [ "border_width",        new prop_int ~name:"border_width" ~init:"0"
-                        ~set:(ftrue button#set_border_width);
-       "label",
-       new prop_string ~name:"label" ~init:name ~set:
-         begin fun v ->
-           button#remove (List.hd button#children)#coerce;
-           GMisc.label ~text:v ~xalign:0.5 ~yalign:0.5 ~packing:button#add ();
-           true
-         end
-      ]
-end
-
-let new_ticheck_button ~name ?(listprop = []) =
-  new ticheck_button ~widget:(GButton.check_button ~label:name ()) ~name
-
-
-
-class titoggle_button ~(widget : #GButton.toggle_button) ~name
-    ~parent_tree ~pos ?(insert_evbox=true) parent_window =
-object(self)
-  val button = widget
-  inherit tiwidget ~name ~widget ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  method private class_name = "GButton.toggle_button"
-
-  method private get_mandatory_props = [ "label" ]
-
-  initializer
-    classe <- "toggle_button";
-    proplist <-  proplist @
-      [ "border width",        new prop_int ~name:"border_width" ~init:"0"
-                         ~set:(ftrue button#set_border_width);
-       "label",
-       new prop_string ~name:"label" ~init:name ~set:
-         begin fun v ->
-           button#remove (List.hd button#children)#coerce;
-           GMisc.label ~text:v ~xalign:0.5 ~yalign:0.5 ~packing:button#add ();
-           true
-         end ]
-end
-
-let new_titoggle_button ~name ?(listprop = []) =
-  let b = GButton.toggle_button ~label:name () in
-(*  b#connect#event#enter_notify
-    ~callback:(fun _ -> GtkSignal.stop_emit ());
-  b#connect#event#leave_notify
-    ~callback:(fun _ -> GtkSignal.stop_emit ());
-*)
-  new titoggle_button ~name ~widget:b
-
-
-class tiradio_button ~(widget : #GButton.radio_button) ~name:nname
-    ~parent_tree ~pos ?(insert_evbox=true) parent_window =
-object(self)
-  val button = widget
-  inherit tiwidget ~name:nname ~widget ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  val group_prop =
-    new prop_enum_dyn ~values:(fun () -> !radio_button_pool) ~name:"group"
-      ~set:(fun () -> true) ~init:nname
-
-
-  method private class_name = "GButton.radio_button"
-
-  method remove_me_without_undo () =
-    radio_button_pool := list_remove !radio_button_pool
-       ~f:(fun x -> x = name);
-    widget#remove_me_without_undo ()
-
-  method private get_mandatory_props = [ "label" ]
-
-  method private emit_clean_proplist =
-    List.remove_assoc "group" widget#emit_clean_proplist
-
-  method emit_initializer_code formatter =
-    let groupname = group_prop#get in
-    if name <> groupname then
-      Format.fprintf formatter "@ %s#set_group %s#group;" name groupname
-
-  initializer
-    classe <- "radio_button";
-    radio_button_pool := name :: !radio_button_pool;
-    List.iter
-      ~f:(fun x -> Propwin.update (Hashtbl.find widget_map x) true)
-      (List.tl !radio_button_pool);
-
-    proplist <-  proplist @
-      [ "border_width",        new prop_int ~name:"border_width" ~init:"0"
-                         ~set:(ftrue button#set_border_width);
-       "label",
-       new prop_string ~name:"label" ~init:name ~set:
-         begin fun v ->
-           button#remove (List.hd button#children)#coerce;
-           GMisc.label ~text:v ~xalign:0.5 ~yalign:0.5 ~packing:button#add ();
-           true
-         end ;
-       "group", group_prop
-      ]
-end
-
-let new_tiradio_button ~name ?(listprop = []) =
-  let b = GButton.radio_button ~label:name () in
-  (*
-  b#event#connect#enter_notify
-    ~callback:(fun _ -> b#misc#stop_emit ~name:"enter_notify_event"; true);
-  b#event#connect#leave_notify
-    ~callback:(fun _ -> b#misc#stop_emit ~name:"leave_notify_event"; true);
-  *)
-  new tiradio_button ~name ~widget:b
-
-
-
-
-class tibutton_toolbar ~(widget : #GButton.button) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window ~toolbar =
-object(self)
-  val button = widget
-  inherit tibutton ~name ~widget ~parent_tree ~pos ~insert_evbox
-       parent_window as button
-
-  method private get_mandatory_props =
-    [ "text"; "tooltip"; "tooltip_private" ]
-
-  method emit_init_code formatter ~packing =
-    Format.fprintf formatter "@ @[<hv 2>let %s =@ @[<hov 2>%s#insert_button"
-      name toolbar#name;
-    List.iter self#get_mandatory_props ~f:
-      begin fun name ->
-       Format.fprintf formatter "@ ~%s:%s" name
-         (List.assoc name proplist)#code
-      end;
-    Format.fprintf formatter "@ ()@ in@]@]"
-
-  initializer
-    proplist <- List.remove_assoc "label" proplist
-end
-
-
-class titoggle_button_toolbar ~(widget : #GButton.toggle_button) ~name
-    ~parent_tree ~pos ?(insert_evbox=true) parent_window ~toolbar =
-object(self)
-  val button = widget
-  inherit titoggle_button ~name ~widget ~parent_tree ~pos ~insert_evbox
-       parent_window as button
-
-  method private get_mandatory_props =
-    [ "text"; "tooltip"; "tooltip_private" ]
-
-  method emit_init_code formatter ~packing =
-    Format.fprintf formatter
-      "@ @[<hv 2>let %s =@ @[<hov 2>%s#insert_toggle_button"
-      name toolbar#name;
-    List.iter self#get_mandatory_props ~f:
-      begin fun name ->
-       Format.fprintf formatter "@ ~%s:%s" name
-         (List.assoc name proplist)#code
-      end;
-    Format.fprintf formatter "@ ()@ in@]@]"
-
-  initializer
-    proplist <- List.remove_assoc "label" proplist
-end
-
-
-class tiradio_button_toolbar ~(widget : #GButton.radio_button) ~name
-    ~parent_tree ~pos ?(insert_evbox=true) parent_window ~toolbar =
-object(self)
-  val button = widget
-  inherit tiradio_button ~name ~widget ~parent_tree ~pos ~insert_evbox
-       parent_window as button
-
-  method private get_mandatory_props =
-    [ "text"; "tooltip"; "tooltip_private" ]
-
-  method emit_init_code formatter ~packing =
-    Format.fprintf formatter
-      "@ @[<hv 2>let %s =@ @[<hov 2>%s#insert_radio_button"
-      name toolbar#name;
-    List.iter self#get_mandatory_props ~f:
-      begin fun name ->
-       Format.fprintf formatter "@ ~%s:%s" name
-         (List.assoc name proplist)#code
-      end;
-    Format.fprintf formatter "@ ()@ in@]@]"
-
-  initializer
-    proplist <- List.remove_assoc "label" proplist
-end
-
-
-
-
-class titoolbar ~(widget : GToolbar2.toolbar2) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val toolbar = widget
-  inherit ticontainer ~name ~widget ~parent_tree ~pos
-    ~insert_evbox parent_window
-
-  method private class_name = "GButton.toolbar"
-
-  method private add child ~pos =
-    children <- children @ [child, `START]
-
-  method private get_pos child =
-    let rec aux n = function
-      |        [] -> failwith "toolbar::get_pos"
-      |        (hd, _)::tl -> if hd = child then n else aux (n+1) tl in
-    aux 0 children
-
-  method private make_child ~classe ?(pos = -1) ~name ~parent_tree
-      ?(insert_evbox = true) ?(listprop = []) parent_window =
-    match classe with
-    | "button" ->
-       let t = try List.assoc "text" listprop with Not_found -> "" in
-       let tt = try List.assoc "tooltip" listprop with Not_found -> "" in
-       let ptt = try List.assoc "tooltip_private" listprop
-       with Not_found -> "" in
-       let listp = List.fold_left ~f:(fun l p -> List.remove_assoc p l)
-           ~init:listprop
-           [ "text"; "tooltip"; "tooltip_private" ] in
-       let b = toolbar#insert_button ~text:t ~tooltip:tt
-           ~tooltip_private:ptt () in
-       let child = new tibutton_toolbar ~name ~widget:b ~pos:(-1)
-             ~insert_evbox:false ~parent_tree:stree parent_window ~toolbar:self in
-       let tp = new prop_string ~name:"text" ~init:t
-           ~set:(fun v -> 
-             toolbar#set_text v (self#get_pos child); true)
-       and ttp = new prop_string ~name:"tooltip" ~init:tt
-           ~set:(fun _ -> true)
-       and pttp = new prop_string ~name:"tooltip_private" ~init:ptt
-           ~set:(fun _ -> true) in
-       child#add_to_proplist
-         [ "text", tp; "tooltip", ttp; "tooltip_private", pttp ];
-       child
-    | "toggle_button" ->
-       let t = try List.assoc "text" listprop with Not_found -> "" in
-       let tt = try List.assoc "tooltip" listprop with Not_found -> "" in
-       let ptt = try List.assoc "tooltip_private" listprop
-       with Not_found -> "" in
-       let listp = List.fold_left ~f:(fun l p -> List.remove_assoc p l)
-           ~init:listprop
-           [ "text"; "tooltip"; "tooltip_private" ] in
-       let b = toolbar#insert_toggle_button ~text:t ~tooltip:tt
-           ~tooltip_private:ptt () in
-       let child = new titoggle_button_toolbar ~name ~widget:b ~pos:(-1)
-             ~insert_evbox:false ~parent_tree:stree parent_window ~toolbar:self in
-       let tp = new prop_string ~name:"text" ~init:t
-           ~set:(fun v -> toolbar#set_text v (self#get_pos child); true)
-       and ttp = new prop_string ~name:"tooltip" ~init:tt
-           ~set:(fun _ -> true)
-       and pttp = new prop_string ~name:"tooltip_private" ~init:ptt
-           ~set:(fun _ -> true) in
-       child#add_to_proplist
-         [ "text", tp; "tooltip", ttp; "tooltip_private", pttp ];
-       child
-    | "radio_button" ->
-       let t = try List.assoc "text" listprop with Not_found -> "" in
-       let tt = try List.assoc "tooltip" listprop with Not_found -> "" in
-       let ptt = try List.assoc "tooltip_private" listprop
-       with Not_found -> "" in
-       let listp = List.fold_left ~f:(fun l p -> List.remove_assoc p l)
-           ~init:listprop
-           [ "text"; "tooltip"; "tooltip_private" ] in
-       let b = toolbar#insert_radio_button ~text:t ~tooltip:tt
-           ~tooltip_private:ptt () in
-       let child = new tiradio_button_toolbar ~name ~widget:b ~pos:(-1)
-             ~insert_evbox:false ~parent_tree:stree parent_window ~toolbar:self in
-       let tp = new prop_string ~name:"text" ~init:t
-           ~set:(fun v -> toolbar#set_text v (self#get_pos child); true)
-       and ttp = new prop_string ~name:"tooltip" ~init:tt
-           ~set:(fun _ -> true)
-       and pttp = new prop_string ~name:"tooltip_private" ~init:ptt
-           ~set:(fun _ -> true) in
-       child#add_to_proplist
-         [ "text", tp; "tooltip", ttp; "tooltip_private", pttp ];
-       child
-    | _ -> failwith "toolbar"
-
-
-
-  method remove child =
-    toolbar#remove (child#base);
-    children <- list_remove ~f:(fun (ch, _) -> ch = child) children;
-
-  initializer
-    classe <- "toolbar";
-    proplist <- proplist @
-      [ "orientation",
-       new prop_orientation ~name:"orientation" ~init:"HORIZONTAL"
-         ~set:(ftrue toolbar#set_orientation);
-       "style",
-       new prop_toolbar_style ~name:"style" ~init:"BOTH"
-         ~set:(ftrue toolbar#set_style);
-       "space_size",
-       new prop_int ~name:"space_size" ~init:"5"
-         ~set:(ftrue toolbar#set_space_size);
-       "space_style",
-       new prop_toolbar_space_style ~name:"space_style" ~init:"EMPTY"
-         ~set:(ftrue toolbar#set_space_style);
-       "tooltips",
-       new prop_bool ~name:"tooltips" ~init:"true"
-         ~set:(ftrue toolbar#set_tooltips);
-       "button_relief",
-       new prop_relief_style ~name:"button_relief" ~init:"NORMAL"
-         ~set:(ftrue toolbar#set_button_relief)
-      ]
-end
-
-let new_toolbar ~name ?(listprop = []) =
-  new titoolbar ~name ~widget:(GToolbar2.toolbar2 ())
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiContainer.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiContainer.ml
deleted file mode 100644 (file)
index ddf04d3..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiContainer.ml
+++ /dev/null
@@ -1,92 +0,0 @@
-
-open Gtk
-open GObj
-open GContainer
-
-open Utils
-open Property
-
-open TiBase
-
-(* for containers being able to have at least one child;
-   not for buttons (can't have children) *)
-
-class virtual ticontainer ~widget ~name
-    ?(insert_evbox=true) ~parent_tree ~pos parent_window =
-object(self)
-
-  val container = (widget : #container :> container)
-
-  inherit tiwidget ~name ~widget ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-(* name of the add method: add for most bin widgets,
-   pack for boxes, add_with_viewport for scrolled windows... *)
-  method private name_of_add_method = "#add"
-
-  method private add child ~pos =
-    container#add child#base;
-    children <- [child, `START];
-    self#set_full_menu false;
-    tree_item#drag#dest_unset ()
-
-  method remove child =
-    container#remove child#base;
-    children <- [];
-    self#set_full_menu true;
-    tree_item#drag#dest_set ~actions:[`COPY]
-      [ { target = "STRING"; flags = []; info = 0} ]
-
-  method private menu ~time =
-    let menu = GMenu.menu () and menu_add = GMenu.menu () in
-    List.iter
-      ~f:(fun n ->
-       let mi = GMenu.menu_item ~packing:menu_add#append ~label:n ()
-       in mi#connect#activate
-         ~callback:(fun () -> self#add_child n ();()); ())
-      widget_add_list;      
-    let mi_add = GMenu.menu_item ~packing:menu#append
-       ~label:("add to " ^ name) ()
-    and mi_remove = GMenu.menu_item ~packing:menu#append
-       ~label:("remove " ^ name) ()
-    and mi_cut  = GMenu.menu_item ~packing:menu#append ~label:"Cut" ()
-    and mi_copy = GMenu.menu_item ~packing:menu#append ~label:"Copy" ()
-    and mi_paste = GMenu.menu_item ~packing:menu#append ~label:"Paste" () in
-    mi_remove#connect#activate ~callback:self#remove_me;
-    mi_add#set_submenu menu_add;
-    mi_copy#connect#activate ~callback:self#copy;
-    mi_cut#connect#activate ~callback:self#cut;
-    if !selection <> ""
-    then begin mi_paste#connect#activate ~callback:self#paste; () end
-    else mi_paste#misc#set_sensitive false;
-    menu#popup ~button:3 ~time
-
-  method emit_init_code c ~packing =
-    widget#emit_init_code c ~packing;
-    self#forall ~callback:(fun child -> child#emit_init_code c
-       ~packing:(name ^ self#name_of_add_method))
-
-  method emit_method_code c =
-    widget#emit_method_code c;
-    self#forall ~callback:(fun child -> child#emit_method_code c)
-
-  method emit_initializer_code c =
-    widget#emit_initializer_code c;
-    self#forall ~callback:(fun child -> child#emit_initializer_code c)
-
-
-  initializer
-    proplist <-  proplist @
-      [ "border_width",        new prop_int ~name:"border_width" ~init:"0"
-                         ~set:(ftrue container#set_border_width) ];
-
-    tree_item#drag#dest_set ~actions:[`COPY]
-      [ { target = "STRING"; flags = []; info = 0} ];
-    tree_item#drag#connect#data_received ~callback:
-      begin fun (context : drag_context) ~x ~y
-         (data : selection_data) ~info ~time ->
-           self#add_child data#data ();
-           context#finish ~success:true ~del:false ~time
-      end;()
-end
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiEdit.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiEdit.ml
deleted file mode 100644 (file)
index 4b0977b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiEdit.ml
+++ /dev/null
@@ -1,153 +0,0 @@
-open Utils
-open Property
-
-open TiBase
-
-
-
-class tientry ~(widget : GEdit.entry) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object
-  val entry = widget
-  inherit tiwidget ~name ~widget ~parent_tree ~pos
-      ~insert_evbox parent_window
-
-  method private class_name = "GEdit.entry"
-  initializer
-    classe <- "entry";
-      proplist <- proplist @
-      [ "visibility",
-       new prop_bool ~name:"visibility" ~init:"true"
-                    ~set:(ftrue entry#set_visibility);
-       "editable",
-       new prop_bool ~name:"editable" ~init:"true"
-                    ~set:(ftrue entry#set_editable)
-      ]
-end
-
-let new_tientry ~name ?(listprop = []) =
-  new tientry ~name ~widget:(GEdit.entry ())
-
-
-class tispin_button ~(widget : GEdit.spin_button) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object
-    val spin_button = widget
-  inherit tientry ~widget:(widget :> GEdit.entry) ~name ~parent_tree ~pos
-      ~insert_evbox parent_window
-
-  method private class_name = "GEdit.spin_button"
-  initializer
-    classe <- "spin_button";
-      proplist <- proplist @
-      [ "digits",
-       new prop_int ~name:"digits" ~init:"0"
-                    ~set:(ftrue spin_button#set_digits);
-       "update_policy",
-       new prop_spin_button_update_policy ~name:"update_policy"
-         ~init:"ALWAYS"
-         ~set:(ftrue spin_button#set_update_policy);
-       "numeric",
-       new prop_bool ~name:"numeric" ~init:"false"
-         ~set:(ftrue spin_button#set_numeric);
-       "wrap",
-       new prop_bool ~name:"wrap" ~init:"false"
-         ~set:(ftrue spin_button#set_wrap);
-       "shadow_type",
-       new prop_shadow ~name:"shadow_type" ~init:"NONE"
-         ~set:(ftrue spin_button#set_shadow_type);
-       "snap_to_ticks",
-       new prop_bool ~name:"snap_to_ticks" ~init:"false"
-         ~set:(ftrue spin_button#set_snap_to_ticks)
-      ]
-    
-end
-
-
-let get_adjustment () =
-  let rv = ref 0. and rl = ref 0. and ru = ref 100. and rsi = ref 1.
-      and rpi = ref 10. and rps = ref 10. in
-  let w  = GWindow.window ~modal:true () in
-  let v  = GPack.vbox  ~packing:w#add () in
-  let l  = GMisc.label ~text:"adjustment properties" ~packing:v#pack () in
-  let h1 = GPack.hbox ~packing:v#pack () in
-  let l1 = GMisc.label ~text:"value" ~packing:h1#pack () in
-  let e1 = GEdit.entry ~text:"0." ~packing:h1#pack () in
-  let h2 = GPack.hbox ~packing:v#pack () in
-  let l2 = GMisc.label ~text:"lower" ~packing:h2#pack () in
-  let e2 = GEdit.entry ~text:"0." ~packing:h2#pack () in
-  let h3 = GPack.hbox ~packing:v#pack () in
-  let l3 = GMisc.label ~text:"upper" ~packing:h3#pack () in
-  let e3 = GEdit.entry ~text:"100." ~packing:h3#pack () in
-  let h4 = GPack.hbox ~packing:v#pack () in
-  let l4 = GMisc.label ~text:"step_incr" ~packing:h4#pack () in
-  let e4 = GEdit.entry ~text:"1." ~packing:h4#pack () in
-  let h5 = GPack.hbox ~packing:v#pack () in
-  let l5 = GMisc.label ~text:"page_incr" ~packing:h5#pack () in
-  let e5 = GEdit.entry ~text:"10." ~packing:h5#pack () in
-  let h6 = GPack.hbox ~packing:v#pack () in
-  let l6 = GMisc.label ~text:"page_size" ~packing:h6#pack () in
-  let e6 = GEdit.entry ~text:"10." ~packing:h6#pack () in
-  let h7 = GPack.hbox ~packing:v#pack () in
-  let b1 = GButton.button ~label:"OK" ~packing:h7#pack () in
-  let b2 = GButton.button ~label:"Cancel" ~packing:h7#pack () in
-  w#show ();
-  b1#connect#clicked
-    ~callback:(fun () ->
-      begin
-       try rv  := float_of_string e1#text with _ ->
-       try rv  := float_of_int (int_of_string e1#text) with _ -> () end;
-      begin
-       try rl  := float_of_string e2#text with _ ->
-       try rl  := float_of_int (int_of_string e2#text) with _ -> () end;
-      begin
-       try ru  := float_of_string e3#text with _ ->
-       try ru  := float_of_int (int_of_string e3#text) with _ -> () end;
-      begin
-       try rsi := float_of_string e4#text with _ ->
-       try rsi := float_of_int (int_of_string e4#text) with _ -> () end;
-      begin
-       try rpi := float_of_string e5#text with _ ->
-       try rpi := float_of_int (int_of_string e5#text) with _ -> () end;
-      begin
-       try rps := float_of_string e6#text with _ ->
-       try rps := float_of_int (int_of_string e6#text) with _ -> () end;
-      w#destroy ());
-  b2#connect#clicked ~callback:w#destroy;
-  w#connect#destroy ~callback:GMain.Main.quit;
-  GMain.Main.main ();
-  !rv, !rl, !ru, !rsi, !rpi, !rps
-
-let new_tispin_button ~name ?(listprop = []) =
-  let v, l, u, si, pi, ps = get_adjustment () in
-  new tispin_button ~name
-    ~widget:(GEdit.spin_button ~adjustment:
-              (GData.adjustment ~value:v ~lower:l ~upper:u
-                 ~step_incr:si ~page_incr:pi ~page_size:ps ()) ())
- 
-
-
-class ticombo ~(widget : GEdit.combo) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object
-  val combo = widget
-  inherit tiwidget ~name ~widget ~parent_tree ~pos
-      ~insert_evbox parent_window
-
-  method private class_name = "GEdit.combo"
-  initializer
-    classe <- "combo";
-      proplist <- proplist @
-      [ "use_arrows",
-       new prop_combo_use_arrows ~name:"use_arrows" ~init:"true"
-                    ~set:(ftrue combo#set_use_arrows);
-       "case_sensitive",
-       new prop_bool ~name:"case_sensitive" ~init:"false"
-                    ~set:(ftrue combo#set_case_sensitive)
-      ]
-end
-
-let new_ticombo ~name ?(listprop = []) =
-  new ticombo ~name ~widget:(GEdit.combo ())
-
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiList.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiList.ml
deleted file mode 100644 (file)
index 770e19b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiList.ml
+++ /dev/null
@@ -1,66 +0,0 @@
-
-open Utils
-open Property
-
-open TiBase
-
-class ticlist ~(widget : 'a GList.clist) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window ~columns ~titles =
-  object(self)
-    val clist = widget
-    inherit tiwidget ~name ~widget ~parent_tree ~pos
-       ~insert_evbox parent_window as widget
-
-    val param = parent_window#add_param
-
-    method private class_name = "GList.clist"
-
-    method private get_mandatory_props = [ "columns" ]
-
-    method remove_me_without_undo () =
-      parent_window#remove_param param;
-      widget#remove_me_without_undo ()
-
-    method emit_init_code formatter ~packing =
-      Format.fprintf formatter 
-       "@ @[<hv 2>let (%s : '%c GList.clist) =@ @[<hov 2>GList.clist"
-       name param;
-      List.iter self#get_mandatory_props ~f:
-       begin fun name ->
-         Format.fprintf formatter "@ ~%s:%s" name
-           (List.assoc name proplist)#code
-       end;
-      let packing = self#get_packing packing in
-      if packing <> "" then Format.fprintf formatter "@ %s" packing;
-      self#emit_prop_code formatter;
-      Format.fprintf formatter "@ ()@ in@]@]"
-
-
-    initializer
-      classe <- "clist";
-      proplist <- proplist @
-      [ "columns",
-       new prop_int ~name:"columns" ~init:(string_of_int columns)
-         ~set:(fun _ -> true);
-       "titles",
-       new prop_clist_titles ~name:"titles" ~init:(String.concat ~sep:" " titles)
-         ~set:(fun v ->
-           let v = Array.of_list v in
-           for i = 0 to Array.length v - 1 do
-             clist#set_column i ~title:v.(i)
-           done;
-           true)
-      ]
-end
-
-let new_clist ~name ?(listprop = []) =
-  let c, lp = match listprop with
-  | [] -> (get_a_number "number of columns" 3), []
-  | ("columns", n)::tl -> (int_of_string n), tl
-  | _ -> failwith "new_clist"
-  in
-  let rtitles = ref [] in
-  for i = c downto 1 do rtitles := ("column" ^(string_of_int i)):: !rtitles done;
-  new ticlist ~name ~widget:(GList.clist ~columns:c ~titles: !rtitles ()) ~columns:c ~titles: !rtitles
-    
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiMisc.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiMisc.ml
deleted file mode 100644 (file)
index f4f435a..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiMisc.ml
+++ /dev/null
@@ -1,176 +0,0 @@
-
-open Utils
-open Property
-
-open TiBase
-open TiContainer
-
-
-class tiseparator ~(dir : Gtk.Tags.orientation) ~(widget : GObj.widget_full)
-    ~name ~parent_tree ~pos ?(insert_evbox=true) parent_window =
-object
-  val separator = widget
-  inherit tiwidget ~name ~widget ~parent_tree ~pos parent_window ~insert_evbox
-
-  method private class_name =
-    match dir with `VERTICAL -> "GMisc.separator `VERTICAL"
-    | `HORIZONTAL -> "GMisc.separator `HORIZONTAL"
-  initializer
-    classe <-
-    (match dir with `VERTICAL -> "vseparator" | `HORIZONTAL -> "hseparator")
-
-end
-
-let new_tihseparator ~name ?(listprop = []) =
-  new tiseparator ~dir: `HORIZONTAL ~name
-    ~widget:(GMisc.separator `HORIZONTAL ())
-let new_tivseparator ~name ?(listprop = []) = 
-  new tiseparator ~dir: `VERTICAL ~name
-    ~widget:(GMisc.separator `VERTICAL ())
-
-
-
-
-class tistatusbar ~(widget : GMisc.statusbar) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val statusbar = widget
-  inherit ticontainer ~name ~widget ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  method private class_name = "GMisc.statusbar"
-
-  initializer
-    classe <- "statusbar"
-end
-
-let new_tistatusbar ~name ?(listprop = []) =
-  new tistatusbar ~widget:(GMisc.statusbar ()) ~name
-
-
-
-class timisc ~(widget : GMisc.misc) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val misc = widget
-  inherit tiwidget ~name ~widget ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  method private class_name = failwith "timisc::class_name"
-
-  initializer
-    proplist <- proplist @
-      [ "x_alignment",
-       new prop_float ~name:"x alignment" ~init:"0.5" ~min:0. ~max:1.
-         ~set:(fun v -> misc#set_alignment ~x:v (); true);
-       "y_alignment",
-       new prop_float ~name:"y alignment" ~init:"0.5" ~min:0. ~max:1.
-         ~set:(fun v -> misc#set_alignment ~y:v (); true);
-       "x_padding",
-       new prop_int ~name:"x padding" ~init:"0.5"
-         ~set:(fun v -> misc#set_padding ~x:v (); true);
-       "y_padding",
-       new prop_int ~name:"y padding" ~init:"0.5"
-         ~set:(fun v -> misc#set_padding ~y:v (); true)
-
-      ]
-end
-
-
-class tiarrow ~(widget : GMisc.arrow) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val arrow = widget
-  inherit timisc ~name ~widget:(widget :> GMisc.misc) ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  method private class_name = "GMisc.arrow"
-  initializer
-    classe <- "arrow";
-end
-
-
-(* TODO   fenetre demandant kind et shadow 
-let new_tiarrow ~name = new tiarrow ~widget:(GMisc.arrow ()) ~name
-*)
-
-
-class tilabel ~(widget : GMisc.label) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val labelw = widget
-  inherit timisc ~name ~widget:(widget :> GMisc.misc) ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  method private class_name = "GMisc.label"
-
-  method private get_mandatory_props = [ "text" ]
-
-  initializer
-    classe <- "label";
-    proplist <-  proplist @
-      [ "text",
-       new prop_string ~name:"text" ~init:name ~set:(ftrue labelw#set_text);
-       "line_wrap",
-       new prop_bool ~name:"line_wrap" ~init:"true"
-         ~set:(ftrue labelw#set_line_wrap)
-      ]
-end
-
-let new_tilabel ~name ?(listprop = []) =
-  new tilabel ~widget:(GMisc.label ~text:name ()) ~name
-
-
-
-
-
-class ticolor_selection ~(widget : GMisc.color_selection) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val color_selection = widget
-  inherit tiwidget ~name ~widget ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  method private class_name = "GMisc.color_selection"
-
-  initializer
-    classe <- "color_selection";
-    proplist <-  proplist @
-      [ "use_opacity",
-       new prop_bool ~name:"use_opacity" ~init:"false"
-         ~set:(ftrue color_selection#set_opacity);
-       "update_policy",
-       new prop_update_type ~name:"update_policy" ~init:"CONTINUOUS"
-         ~set:(ftrue color_selection#set_update_policy)
-      ]
-end
-
-let new_ticolor_selection ~name ?(listprop = []) =
-  new ticolor_selection ~widget:(GMisc.color_selection ()) ~name
-
-
-class tipixmap ~(widget : GMisc.pixmap) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val pixmap = widget
-  inherit timisc ~name ~widget:(widget :> GMisc.misc) ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  method private class_name = "GMisc.pixmap"
-  initializer
-    classe <- "pixmap";
-    proplist <- proplist @
-      [ "file",
-       new prop_file ~name:"file" ~init:""
-         ~set:(fun v ->
-           pixmap#set_pixmap
-             (GDraw.pixmap_from_xpm ~window:parent_window#tiwin#widget
-                ~file:v ());
-           true)
-      ]
-end
-
-let new_tipixmap ~name ?(listprop = []) ~parent_tree ~pos ?(insert_evbox=true) (parent_window : window_and_tree0) =
-  new tipixmap ~widget:(GMisc.pixmap (GDraw.pixmap_from_xpm 
-   ~window:parent_window#tiwin#widget ~file:"pixmap.xpm" ()) ()) ~name
-    ~parent_tree ~pos ~insert_evbox parent_window

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiPack.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiPack.ml
deleted file mode 100644 (file)
index 291eec9..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiPack.ml
+++ /dev/null
@@ -1,300 +0,0 @@
-
-open Utils
-open Property
-
-open TiContainer
-
-class tibox ~(dir : Gtk.Tags.orientation) ~(widget : GPack.box)
-    ~name ~parent_tree ~pos ?(insert_evbox=true) parent_window =
-  let class_name =
-    match dir with `VERTICAL -> "GPack.vbox" | _ -> "GPack.hbox" in
-object(self)
-  val box = widget
-  inherit ticontainer ~name ~widget ~parent_tree ~pos ~insert_evbox
-      parent_window as container
-
-  method private class_name = class_name
-
-  method private name_of_add_method = "#pack"
-
-(* removes the ::expand ::fill ::padding in the proplist of a box
-   assumes that these are the only properties with a :: in the name *)
-  method private save_clean_proplist =
-    List.filter container#save_clean_proplist
-      ~f:(fun (n,p) ->
-       try
-         let i = String.index n ':' in
-         i = String.length n || n.[i+1] <> ':'
-       with Not_found -> true)
-
-  method private emit_clean_proplist =
-    List.filter container#emit_clean_proplist
-      ~f:(fun (n,p) ->
-       try
-         let i = String.index n ':' in
-         i = String.length n || n.[i+1] <> ':'
-       with Not_found -> true)
-
-  method change_name_in_proplist oldn newn =
-    proplist <- List.fold_left ~init:proplist ~f:
-       (fun pl propname ->
-         change_property_name (oldn ^ propname) (newn ^ propname) pl)
-       [ "::expand"; "::fill"; "::padding" ];
-    Propwin.update self false
-
-  method child_up child =
-    let pos = list_pos ~item:child (List.map ~f:fst children) in
-    if pos > 0 then begin
-      box#reorder_child child#base ~pos:(pos-1);
-      children <- list_reorder_up children ~pos;
-      stree#item_up ~pos
-    end
-           
-  method child_down child =
-    let pos = list_pos ~item:child (List.map ~f:fst children) in
-    if pos < (List.length children - 1) then begin
-      box#reorder_child child#base ~pos:(pos+1);
-      children <- list_reorder_down children ~pos;
-      stree#item_up ~pos:(pos+1)
-    end
-           
-  method private add child ~pos =
-    box#pack  child#base;
-    if pos < 0 then begin
-      children <-  children @ [(child, `START)]
-    end
-    else begin
-      children <- list_insert ~item:(child, `START) children ~pos;
-      box#reorder_child child#base ~pos
-    end;
-    let n = child#name in
-    let expand =
-      new prop_bool ~name:"expand" ~init:"false" ~set:
-       begin fun v ->
-         box#set_child_packing (child#base) ~expand:v;
-         Propwin.update child false;
-         Propwin.update self false; true
-       end
-    and fill =
-      new prop_bool ~name:"fill" ~init:"true" ~set:
-       begin fun v ->
-         box#set_child_packing (child#base) ~fill:v;
-         Propwin.update child false;
-         Propwin.update self false; true
-       end
-    and padding =
-      new prop_int ~name:"padding" ~init:"0" ~set:
-       begin fun v ->
-         box#set_child_packing (child#base) ~padding:v;
-         Propwin.update child false;
-         Propwin.update self false; true
-       end
-    in
-    proplist <-  proplist @ 
-      [ (n ^ "::expand"),  expand;
-       (n ^ "::fill"),    fill;
-        (n ^ "::padding"), padding ];
-    child#add_to_proplist
-      [ "expand", expand; "fill", fill; "padding", padding ];
-    Propwin.update self true
-         
-
-  method remove child =
-    box#remove (child#base);
-    children <- list_remove ~f:(fun (ch, _) -> ch = child) children;
-    let n = child#name in
-    proplist <-  List.fold_left ~init:proplist
-       ~f:(fun acc n -> List.remove_assoc n acc)
-       [ (n ^ "::expand"); (n ^ "::fill"); (n ^ "::padding") ];
-    Propwin.update self true
-
-  initializer
-    classe <- (match dir with `VERTICAL -> "vbox" | _ -> "hbox");
-    proplist <-  proplist @
-      [ "homogeneous",
-       new prop_bool ~name:"homogeneous" ~init:"false"
-         ~set:(ftrue box#set_homogeneous);
-       "spacing",
-       new prop_int ~name:"spacing" ~init:"0"
-         ~set:(ftrue box#set_spacing)
-      ]
-end
-
-class tihbox = tibox ~dir:`HORIZONTAL
-class tivbox = tibox ~dir:`VERTICAL
-
-let new_tihbox ~name ?(listprop = []) = new tihbox ~widget:(GPack.hbox ()) ~name
-let new_tivbox ~name ?(listprop = []) = new tivbox ~widget:(GPack.vbox ()) ~name
-
-
-
-
-class tibbox ~(dir : Gtk.Tags.orientation) ~(widget : GPack.button_box)
-    ~name ~parent_tree ~pos ?(insert_evbox=true) parent_window =
-  let class_name =
-    match dir with `VERTICAL -> "GPack.button_box `VERTICAL"
-    | _ -> "GPack.button_box `HORIZONTAL" in
-object(self)
-  val bbox = widget
-  inherit tibox ~dir ~widget:(widget :> GPack.box)
-    ~name ~parent_tree ~pos ~insert_evbox parent_window
-
-  method private class_name = class_name
-
-initializer
-    classe <- (match dir with `VERTICAL -> "vbutton_box" | _ -> "hbutton_box");
-    proplist <-  proplist @
-      [ "layout",
-       new prop_button_box_style ~name:"layout" ~init:"DEFAULT_STYLE"
-         ~set:(ftrue bbox#set_layout);
-       "spacing",
-       new prop_int ~name:"spacing"
-         ~init:(match dir with `VERTICAL -> "10" | _ -> "30")
-(*  donne -1 (defaut)  
-(GtkPack.BBox.get_spacing bbox#as_button_box) *)
-         ~set:(fun v -> bbox#set_spacing v;
-           GtkBase.Widget.queue_resize bbox#as_widget; true);
-       "child_width",
-       new prop_int ~name:"child_width" ~init:"85"
-         ~set:(fun v ->
-           bbox#set_child_size ~width:v
-             ~height:(int_of_string (self#get_property "child_height")) ();
-           GtkBase.Widget.queue_resize bbox#as_widget; true);
-       "child_height",
-       new prop_int ~name:"child_height" ~init:"27"
-         ~set:(fun v ->
-           bbox#set_child_size ~height:v
-             ~width:(int_of_string (self#get_property "child_width")) (); 
-           GtkBase.Widget.queue_resize bbox#as_widget; true);
-       "child_ipad_x",
-       new prop_int ~name:"child_ipad_x" ~init:"7"
-         ~set:(fun v ->
-           bbox#set_child_ipadding ~x:v
-             ~y:(int_of_string (self#get_property "child_ipad_y")) ();
-           GtkBase.Widget.queue_resize bbox#as_widget; true);
-       "child_ipad_y",
-       new prop_int ~name:"child_ipad_y" ~init:"0"
-         ~set:(fun v ->
-           bbox#set_child_ipadding ~y:v
-             ~x:(int_of_string (self#get_property "child_ipad_x")) (); 
-           GtkBase.Widget.queue_resize bbox#as_widget; true);
-      ]
-end
-
-
-(* TODO:  pour proplist/spacing il faudrait implementer
-          les fonctions get_spacing ... (voir dans gtkPack) *)
-
-class tihbutton_box = tibbox ~dir:`HORIZONTAL
-class tivbutton_box = tibbox ~dir:`VERTICAL
-
-let new_tihbutton_box ~name ?(listprop = []) =
-  new tihbutton_box ~widget:(GPack.button_box `HORIZONTAL ()) ~name
-
-let new_tivbutton_box ~name ?(listprop = []) =
-  new tivbutton_box ~widget:(GPack.button_box `VERTICAL ()) ~name
-
-
-
-
-let get_fixed_pos () =
-  let rx = ref 0 and ry = ref 0 in
-  let w  = GWindow.window ~modal:true () in
-  let v  = GPack.vbox  ~packing:w#add () in
-  let l  = GMisc.label ~text:"Enter position for child" ~packing:v#pack () in
-  let h1 = GPack.hbox ~packing:v#pack () in
-  let l1 = GMisc.label ~text:"x:" ~packing:h1#pack () in
-  let e1 = GEdit.entry ~text:"0" ~packing:h1#pack () in
-  let h2 = GPack.hbox ~packing:v#pack () in
-  let l2 = GMisc.label ~text:"y" ~packing:h2#pack () in
-  let e2 = GEdit.entry ~text:"0" ~packing:h2#pack () in
-  let h7 = GPack.hbox ~packing:v#pack () in
-  let b1 = GButton.button ~label:"OK" ~packing:h7#pack () in
-  let b2 = GButton.button ~label:"Cancel" ~packing:h7#pack () in
-  w#show ();
-  b1#connect#clicked
-    ~callback:(fun () ->
-      begin
-       try rx  := int_of_string e1#text with _ -> () end;
-      begin
-       try ry  := int_of_string e2#text with _ -> () end;
-      w#destroy ());
-  b2#connect#clicked ~callback:w#destroy;
-  w#connect#destroy ~callback:GMain.Main.quit;
-  GMain.Main.main ();
-  !rx, !ry
-
-
-class tifixed ~(widget : GPack.fixed)
-    ~name ~parent_tree ~pos ?(insert_evbox=true) parent_window =
-object(self)
-  val fixed = widget
-  inherit ticontainer ~widget
-    ~name ~parent_tree ~pos ~insert_evbox parent_window
-
-  method private class_name = "GPack.fixed"
-
-  method private add child ~pos =
-    let x, y = get_fixed_pos () in
-    fixed#put child#base ~x ~y;
-    children <-  children @ [(child, `START)]
-  initializer
-    classe <- "fixed"
-end
-
-let new_tifixed ~name ?(listprop = []) =
-  new tifixed ~widget:(GPack.fixed ()) ~name
-
-
-
-
-
-class tinotebook ~(widget : GPack.notebook) ~name ~parent_tree ~pos
-    ?(insert_evbox=true) parent_window =
-object(self)
-  val notebook = widget
-  inherit ticontainer ~name ~widget ~insert_evbox
-      ~parent_tree ~pos parent_window as widget
-
-  method private class_name = "GPack.notebook"
-
-  method private add child ~pos =
-    children <- children @ [child, `START];
-    notebook#insert_page child#base ~pos;
-    child#add_to_proplist
-      [ "tab_label",
-       new prop_string ~name:"tab_label" ~init:""
-         ~set:(fun v -> notebook#set_page
-             ~tab_label:((GMisc.label ~text:v())#coerce) child#base; true)
-      ]
-
-
-  initializer
-    classe <- "notebook";
-    proplist <-  proplist @
-      [ "tab_pos",
-       new prop_position ~name:"tab_ pos" ~init:"TOP"
-         ~set:(ftrue notebook#set_tab_pos);
-       "show_tabs",
-       new prop_bool ~name:"show_tabs" ~init:"true"
-         ~set:(ftrue notebook#set_show_tabs);
-       "homogeneous_tabs",
-       new prop_bool ~name:"homogeneous_tabs" ~init:"true"
-         ~set:(ftrue notebook#set_homogeneous_tabs);
-       "show_border",
-       new prop_bool ~name:"show_border" ~init:"true"
-         ~set:(ftrue notebook#set_show_border);
-       "scrollable",
-       new prop_bool ~name:"scrollable" ~init:"false"
-         ~set:(ftrue notebook#set_scrollable);
-       "tab_border",
-       new prop_int ~name:"tab_border" ~init:"2"
-         ~set:(ftrue notebook#set_tab_border);
-       "popup_enable",
-       new prop_bool ~name:"popup_enable" ~init:"false"
-         ~set:(ftrue notebook#set_popup)
-      ]
-end
-
-let new_tinotebook ~name ?(listprop = []) =
-  new tinotebook ~widget:(GPack.notebook ()) ~name

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiWidget.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiWidget.ml
deleted file mode 100644 (file)
index 5a6e3ac..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiWidget.ml
+++ /dev/null
@@ -1,43 +0,0 @@
-
-let new_class_list (* :
-  (string *
-  (name:string -> ?listprop:string list ->
-   parent_tree:GTree2.tree -> pos:int ->
-   ?insert_evbox:bool ->
-   
-   TiBase.window_and_tree0 -> TiBase.tiwidget0)) list *)
-= [
-  "window",          TiWindow.new_tiwindow;
-  "hbox",            TiPack.new_tihbox;
-  "vbox",            TiPack.new_tivbox;
-  "hbutton_box",     TiPack.new_tihbutton_box;
-  "vbutton_box",     TiPack.new_tivbutton_box;
-  "fixed",           TiPack.new_tifixed;
-  "notebook",        TiPack.new_tinotebook;
-  "button",          TiButton.new_tibutton;
-  "check_button",    TiButton.new_ticheck_button;
-  "toggle_button",   TiButton.new_titoggle_button;
-  "radio_button",    TiButton.new_tiradio_button;
-  "toolbar",         TiButton.new_toolbar;
-  "hseparator",      TiMisc.new_tihseparator;
-  "vseparator",      TiMisc.new_tivseparator;
-  "statusbar",       TiMisc.new_tistatusbar;
-  "label",           TiMisc.new_tilabel;
-  "color_selection", TiMisc.new_ticolor_selection;
-  "pixmap",          TiMisc.new_tipixmap;
-  "frame",           TiBin.new_tiframe;
-  "aspect_frame",    TiBin.new_tiaspect_frame;
-  "handle_box",      TiBin.new_handle_box;
-  "viewport",        TiBin.new_viewport;
-  "event_box",       TiBin.new_event_box;
-  "scrolled_window", TiBin.new_tiscrolled_window;
-  "entry",           TiEdit.new_tientry;
-  "spin_button",     TiEdit.new_tispin_button;
-  "combo",           TiEdit.new_ticombo;
-  "clist",           TiList.new_clist
-]
-
-let _ =
-  TiBase.new_tiwidget :=
-    (fun ~classe ?(pos = -1) ~name ~parent_tree ?insert_evbox ?(listprop = []) -> (List.assoc classe new_class_list) ~pos ~name ~parent_tree ?insert_evbox ~listprop)
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiWindow.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiWindow.ml
deleted file mode 100644 (file)
index b44b4d4..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiWindow.ml
+++ /dev/null
@@ -1,117 +0,0 @@
-
-open Utils
-open Property
-
-open TiBase
-open TiContainer
-
-
-class tiwindow ~widget ~name ~parent_tree ~pos ?(insert_evbox=true)
-    parent_window =
-object(self)
-  val window = widget
-  inherit ticontainer ~name ~widget
-      ~insert_evbox:false ~parent_tree ~pos parent_window as container
-
-  method connect_event = window#event#connect
-
-  method private class_name = "GWindow.window"
-
-  method private get_mandatory_props = [ "title" ]
-
-(*  method private save_clean_proplist =
-    List.remove_assoc "title" container#save_clean_proplist
-
-  method private emit_clean_proplist plist =
-    List.remove_assoc "title" (container#emit_clean_proplist plist)
-*)
-  method remove_me () =
-    let sref = ref "" in
-    self#save_to_string sref;
-    let lexbuf = Lexing.from_string !sref in
-    let node = Load_parser.window Load_lexer.token lexbuf in
-    add_undo (Add_window node);
-    self#remove_me_without_undo ()
-
-  method copy () = self#copy_to_sel window_selection
-
-  method remove_me_without_undo () =
-    self#forall ~callback:(fun tiw -> tiw#remove_me_without_undo ());
-    parent_window#remove_sel (self : #tiwidget0 :> tiwidget0);
-    name_list := list_remove !name_list ~f:(fun n -> n=name);
-    Hashtbl.remove widget_map name;
-    Propwin.remove name;
-    widget#destroy ()
-
-  method private get_packing packing = ""
-
-  method emit_code f param_list =
-    let param_string =
-      match param_list with
-      |         [] -> ""
-      |        _ -> "['" ^
-         (String.concat ~sep:", '"
-            (List.map ~f:(fun c -> (String.make 1 c)) param_list)) ^
-         "] " in
-    Format.fprintf f "(* Code for %s *)@\n@\n@[<hv 2>class %s%s () ="
-      name param_string name;
-    self#emit_init_code f ~packing:"";
-    Format.fprintf f "@]@\n@[<hv 2>object (self)";
-    self#emit_method_code f;
-    Format.fprintf f "@ method show () = %s#show ()" name;
-    Format.fprintf f "@ @[<v 2>initializer";
-    self#emit_initializer_code f;
-    Format.fprintf f "@ ()@]@]@ end@\n@\n"
-
-(*  method private save_start formatter =
-    Format.fprintf formatter "@[<0>@\n@[<2><window name=%s>" name;
-    Format.fprintf formatter "@\ntitle=\"%s\""
-      (List.assoc "title" proplist)#get
-*)
-  method private save_end formatter =
-    Format.fprintf formatter "@]@\n</window>@\n@]"
-
-  method private menu ~time =
-    let menu = GMenu.menu () and menu_add = GMenu.menu () in
-    List.iter
-      ~f:(fun n ->
-       let mi = GMenu.menu_item ~packing:menu_add#append ~label:n ()
-       in mi#connect#activate
-         ~callback:(fun () -> self#add_child n (); ()); ())
-      widget_add_list;      
-    let mi_add = GMenu.menu_item ~packing:menu#append ~label:("add to "^ name) ()
-    and mi_paste = GMenu.menu_item ~packing:menu#append ~label:"Paste" ()
-    in
-    mi_add#set_submenu menu_add;
-    if !selection <> ""
-    then begin mi_paste#connect#activate ~callback:self#paste; () end
-    else mi_paste#misc#set_sensitive false;
-    menu#popup ~button:3 ~time
-
-
-  initializer
-    classe <- "window";
-    window#set_title name;
-    proplist <-        proplist @
-      [ "title",
-       new prop_string ~name:"title" ~init:name ~set:(ftrue window#set_title);
-       "allow_shrink", new prop_bool ~name:"allow_shrink" ~init:"false"
-                         ~set:(ftrue window#set_allow_shrink);
-       "allow_grow", new prop_bool ~name:"allow_grow" ~init:"true"
-                       ~set:(ftrue window#set_allow_grow);
-       "auto_shrink", new prop_bool ~name:"auto_shrink" ~init:"false"
-                        ~set:(ftrue window#set_auto_shrink);
-       "x position", new prop_int ~name:"x" ~init:"-2"
-         ~set:(fun x -> window#misc#set_geometry ~x (); true);
-       "y position", new prop_int ~name:"y" ~init:"-2"
-         ~set:(fun y -> window#misc#set_geometry ~y (); true) ]
-end
-
-let new_tiwindow ~name ?(listprop = []) =
-  let w = GWindow.window ~show:true () in
-  w#misc#set_can_focus false;
-  w#misc#set_can_default false;
-  new tiwindow ~widget:w ~name
-
-
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/togglebutton.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/togglebutton.xpm
deleted file mode 100644 (file)
index f29d769..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/togglebutton.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *togglebutton_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+..................O+",
-"+.                 O+",
-"+. XXXXXXXXXXXXXXXXO+",
-"+. XXXXXXXXXXXXXXXXO+",
-"+. XXX   XXX XXX XXO+",
-"+. XX XXX XX  XX XXO+",
-"+. XX XXX XX  XX XXO+",
-"+. XX XXX XX X X XXO+",
-"+. XX XXX XX XX  XXO+",
-"+. XX XXX XX XX  XXO+",
-"+. XXX   XXX XXX XXO+",
-"+. XXXXXXXXXXXXXXXXO+",
-"+. XXXXXXXXXXXXXXXXO+",
-"+. XXXXXXXXXXXXXXXXO+",
-"+OOOOOOOOOOOOOOOOOOO+",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/toolbar.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/toolbar.xpm
deleted file mode 100644 (file)
index d9a5217..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/toolbar.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *toolbar_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+OOOOOOOOOOOOOOOOOOO ",
-"+OXXXXXXXXXXXXXXXXX. ",
-"+OXOOOO OOOO OOOO X. ",
-"+OXOXXX OXXX OXXX X. ",
-"+OXOXXX OXXX OXXX X. ",
-"+OXO    O    O    X. ",
-"+OXXXXXXXXXXXXXXXXX. ",
-"+O.................. ",
-"+                    ",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tree_minus.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tree_minus.xpm
deleted file mode 100644 (file)
index cce0679..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tree_minus.xpm
+++ /dev/null
@@ -1,18 +0,0 @@
-/* XPM */
-static char *tree_minus[] = {
-/* width height num_colors chars_per_pixel */
-"     9     9        2            1",
-/* colors */
-". c #000000",
-"# c #f8fcf8",
-/* pixels */
-".........",
-".#######.",
-".#######.",
-".#######.",
-".#.....#.",
-".#######.",
-".#######.",
-".#######.",
-"........."
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tree_plus.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tree_plus.xpm
deleted file mode 100644 (file)
index d0ba80c..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tree_plus.xpm
+++ /dev/null
@@ -1,18 +0,0 @@
-/* XPM */
-static char *tree_plus[] = {
-/* width height num_colors chars_per_pixel */
-"     9     9        2            1",
-/* colors */
-". c #000000",
-"# c #f8fcf8",
-/* pixels */
-".........",
-".#######.",
-".###.###.",
-".###.###.",
-".#.....#.",
-".###.###.",
-".###.###.",
-".#######.",
-"........."
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/utils.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/utils.ml
deleted file mode 100644 (file)
index 0b37975..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/utils.ml
+++ /dev/null
@@ -1,353 +0,0 @@
-(* $Id$ *)
-
-open GObj
-
-open Common
-
-external test_modifier : Gdk.Tags.modifier -> int -> bool
-    = "ml_test_GdkModifier_val"
-
-
-(************* types *************)
-(* used in the load_parser and for the selection *)
-
-(* widget: class * name * property list
-   where property = name * value_string *)
-type yywidget = string * string * (string * string) list
-type yywidget_tree = Node of yywidget * yywidget_tree list
-
-
-(*********** some utility functions **************)
-let rec list_remove ~f = function
-  | [] -> []
-  | hd :: tl -> if f hd then tl else hd :: (list_remove ~f tl)
-
-
-(* cut the list at the element elt; elt stays in tail;
-   hd stays in reverse order *)
-let cut_list ~item l =
-  let rec aux h t = match t with
-  | hd :: tl -> if hd = item then h, t
-       else aux (hd :: h) tl
-  | [] -> failwith "cut_list"
-  in aux [] l
-
-let list_pos ~item l =
-  let rec aux pos = function
-    | [] -> raise Not_found
-    | hd :: tl -> if hd = item then pos else aux (pos+1) tl
-  in aux 0 l
-
-(* moves the pos element up; pos is >= 1;
-   the first element is numbered 0 *)
-let rec list_reorder_up ~pos = function
-    | hd1 :: hd2 :: tl when pos = 1 -> hd2 :: hd1 :: tl
-    | hd :: tl when pos > 1 -> hd :: (list_reorder_up ~pos:(pos-1) tl)
-    | _ -> failwith "list_reorder"
-
-(* moves the pos element down; pos is < length of l - 1;
-   the first element is numbered 0 *)
-let rec list_reorder_down ~pos = 
-  list_reorder_up ~pos:(pos+1)
-
-
-let rec list_insert ~item l ~pos =
-  if pos=0 then item :: l
-  else
-    match l with
-    | [] ->  failwith "list_insert"
-    | hd :: tl -> hd :: (list_insert ~item tl ~pos:(pos-1))
-
-
-let rec change_property_name oldname newname = function
-  | (n, p) :: tl when oldname = n -> (newname, p) :: tl
-  | (n, p) :: tl -> (n, p) :: change_property_name oldname newname tl
-  | [] -> failwith "change_property_name: name not found"
-
-
-
-(* contains the list of names of widgets in the current project;
-   used to test if a name is already used;
-   a name is added to the list when a tiwrapper is created (in
-   the initilizer part of tiwrapper,
-   it is removed when the widget is removed from his parent,
-   in method remove_me of tiwrapper *)
-let name_list = ref ([] : string list)
-
-let split name =
-  let l = String.length name in
-  let i = ref (l-1) in
-  while !i >= 0 && name.[!i] >= '0' && name.[!i] <= '9' do decr i done;
-  if !i = l-1 then
-    name, (-1)
-  else
-    (String.sub name ~pos:0 ~len:(!i+1)),
-    int_of_string (String.sub name ~pos:(!i+1) ~len:(l- !i-1))
-
-let test_unique name = not (List.mem name !name_list)
-
-let make_new_name ?(index=1) base =
-  let index, name =
-    if index = -1 then ref 1, ref base
-    else ref index, ref (base ^ (string_of_int index)) in
-  while not (test_unique !name) do
-    incr index;
-    name := base ^ (string_of_int !index)
-  done;
-  !name
-
-let change_name name =
-  let base, index = split name in make_new_name base ~index
-
-let message s =
-  let w = GWindow.window ~show:true ~modal:true () in
-  let v = GPack.vbox ~packing:w#add () in
-  let l = GMisc.label ~text:s ~packing:v#add () in
-  let b = GButton. button ~label:"OK" ~packing:v#add () in
-  b#connect#clicked ~callback:w#destroy;
-  w#connect#destroy ~callback:GMain.Main.quit;
-  GMain.Main.main ()
-
-let message_name () = message "name already in use\npick a new name"
-
-(* better: use a spin button *)
-let get_a_number s default=
-  let res = ref default in
-  let w = GWindow.window ~show:true ~modal:true () in
-  let v = GPack.vbox ~packing:w#add () in
-  let l = GMisc.label ~text:s ~packing:v#add () in
-  let e = GEdit.entry ~text:(string_of_int default) ~packing:v#add () in
-  let b = GButton. button ~label:"OK" ~packing:v#add () in
-  b#connect#clicked ~callback:(fun () ->
-    begin try res := int_of_string e#text with Failure _ -> () end;
-    w#destroy ());
-  w#connect#destroy ~callback:GMain.Main.quit;
-  GMain.Main.main ();
-  !res
-
-
-(*************** file selection *****************)
-
-let get_filename ~callback:set_filename ?(dir="") () =
-  let res = ref false in
-  let file_selection = GWindow.file_selection ~modal:true () in
-  if dir <> "" then file_selection#set_filename dir;
-  file_selection#show ();
-  file_selection#ok_button#connect#clicked
-    ~callback:(fun () -> set_filename file_selection#get_filename;
-      res := true;
-      file_selection#destroy ());
-  file_selection#cancel_button#connect#clicked
-    ~callback:file_selection#destroy;
-  file_selection#connect#destroy ~callback:GMain.Main.quit;
-  GMain.Main.main ();
-  !res
-
-(* returns the directory and the file name (without the extension) *)
-let split_filename filename ~ext =
-  let lext = String.length ext in
-  let l = String.length filename in
-  let filename, l =
-    if (l > lext) && (String.sub filename ~pos:(l - lext) ~len:lext = ext)
-    then (String.sub filename ~pos:0 ~len:(l-lext)), l-lext
-    else filename, l in
-  let i = 1 + (String.rindex filename '/') in
-  String.sub filename ~pos:0 ~len:i,
-  String.sub filename ~pos:i ~len:(l-i)
-
-
-(******************  ML signals *****************)
-let signal_id = ref 0
-
-let next_callback_id () : GtkSignal.id =
-  decr signal_id; Obj.magic (!signal_id : int)
-
-class ['a] signal = object
-  val mutable callbacks : (GtkSignal.id * ('a -> unit)) list = []
-  method connect ~callback ~after =
-    let id = next_callback_id () in
-    callbacks <-
-      if after then callbacks @ [id,callback] else (id,callback)::callbacks;
-    id
-  method call arg =
-    List.iter callbacks ~f:(fun (_,f) -> f arg)
-  method disconnect id =
-    List.mem_assoc id callbacks &&
-    (callbacks <- List.remove_assoc id callbacks; true)
-  method reset () = callbacks <- []
-end
-
-class type disconnector =
-  object
-    method disconnect : GtkSignal.id -> bool
-    method reset : unit -> unit
-  end
-
-class has_ml_signals = object
-  val mutable disconnectors = []
-  method private add_signal (sgn : 'a signal) =
-    disconnectors <- (sgn :> disconnector) :: disconnectors
-
-  method disconnect id =
-    List.exists disconnectors ~f:(fun d -> d#disconnect id)
-end
-
-
-(****************** undo information ********************)
-
-type undo_action =
-  | Add of string * yywidget_tree * int
-  | Remove of string
-  | Property of prop * string
-  | Add_window of yywidget_tree
-  | Remove_window of string
-
-let undo_info = ref ([] : undo_action list)
-let next_undo_info = ref ([] : undo_action list)
-let last_action_was_undo = ref false
-
-let add_undo f =
-  undo_info := f :: !undo_info;
-  last_action_was_undo := false
-
-
-(**********************************************************)
-let ftrue f = fun x -> f x; true
-
-
-(**********************************************************)
-
-let toolbar_child_prop kind =
-  let rt = ref "" and rtt = ref "" and rptt = ref "" and ok = ref false in
-  let w  = GWindow.window ~modal:true () in
-  let v  = GPack.vbox ~packing:w#add () in
-  let h1 = GPack.hbox ~packing:v#pack () in
-  let h2 = GPack.hbox ~packing:v#pack () in
-  let h3 = GPack.hbox ~packing:v#pack () in
-  let h4 = GPack.hbox ~packing:v#pack () in
-  let l1 = GMisc.label ~text:"text" ~packing:h1#pack () in
-  let e1 = GEdit.entry ~packing:h1#pack () in
-  let l2 = GMisc.label ~text:"tooltip_text" ~packing:h2#pack () in
-  let e2 = GEdit.entry ~packing:h2#pack () in
-  let l3 = GMisc.label ~text:"private_text" ~packing:h3#pack () in
-  let e3 = GEdit.entry ~packing:h3#pack () in
-  let b1 = GButton.button ~label:"OK" ~packing:h4#pack () in
-  let b2 = GButton.button ~label:"Cancel" ~packing:h4#pack () in
-  w#show ();
-  b1#connect#clicked
-    ~callback:(fun () -> rt := e1#text; rtt := e2#text;
-      rptt := e3#text; ok := true;
-      w#destroy ());
-  b2#connect#clicked ~callback:w#destroy;
-  w#connect#destroy ~callback:GMain.Main.quit;
-  GMain.Main.main ();
-  !ok, !rt, !rtt, !rptt
-
-
-
-(**********************************************************)
-
-let get5floats_from_string s =
-  try
-    let n1 = String.index s ' ' in
-    let f1 = float_of_string (String.sub s ~pos:0 ~len:(n1-1)) in
-    let n2 = String.index_from s (n1+1) ' ' in
-    let f2 = float_of_string (String.sub s ~pos:(n1+1) ~len:(n2-1)) in
-    let n3 = String.index_from s (n2+1) ' ' in
-    let f3 = float_of_string (String.sub s ~pos:(n2+1) ~len:(n3-1)) in
-    let n4 = String.index_from s (n3+1) ' ' in
-    let f4 = float_of_string (String.sub s ~pos:(n3+1) ~len:(n4-1)) in
-    let f5 = float_of_string (String.sub s ~pos:(n4+1) ~len:
-                               ((String.length s) -1)) in
-    f1, f2, f3, f4, f5
-  with _ -> failwith "get5floats_of_string"
-
-
-
-(**********************************************************)
-
-exception Float_of_string
-let my_float_of_string s =
-  let l = String.length s in
-  if l=0 then raise Float_of_string;
-  let sign, d = match s.[0] with
-  | '+' ->  1, 1
-  | '-' -> -1, 1
-  | _   ->  1, 0 in
-  let m, p =
-    let p = 
-      try
-       String.index s '.'
-      with Not_found -> l in
-    if p=d then 0, p
-    else
-      try int_of_string (String.sub s ~pos:d ~len:(p-d)), p
-      with Failure "int_of_string" -> raise Float_of_string
-  in
-  if p=l then float_of_int m
-  else begin
-    let f = ref 0. and r = ref 0.1 in
-    for i = p+1 to l-1 do
-      let k = (int_of_char s.[i]) - 48 in
-      if k > 9 || k < 0 then raise Float_of_string;
-      f := !f +. (float_of_int k) *. !r;
-      r := !r *. 0.1
-    done;
-    !f +. (float_of_int m)
-  end
-
-    
-  
-
-class entry_float obj ~init = let rv = ref init in
-object
-  inherit GEdit.entry obj as entry
-  method value =
-    try 
-      let v = my_float_of_string entry#text in
-      rv := v;
-      v
-    with Float_of_string ->
-      let pop = GWindow.window ~title:"error" ~modal:true () in
-      let vb = GPack.vbox ~packing:pop#add () in
-      let l = GMisc.label ~text:"value must be a float" ~packing:vb#pack () in
-      let b = GButton.button ~label:"OK" ~packing:vb#pack () in
-      b#connect#clicked ~callback:pop#destroy;
-      pop#event#connect#delete ~callback:(fun _ -> pop#destroy (); true);
-      pop#connect#destroy ~callback:GtkMain.Main.quit;
-      pop#show ();
-      GtkMain.Main.main ();
-      entry#set_text (string_of_float !rv);
-      !rv
-end
-
-
-let set_editable ?editable ?(width = -2) ?(height = -2) w =
-  Gaux.may editable ~f:(GtkEdit.Editable.set_editable w);
-  if width <> -2 || height <> -2 then GtkBase.Widget.set_usize w ~width ~height
-
-
-let entry_float ~init ?max_length ?visibility ?editable
-    ?width ?height ?packing ?show () = 
-  let w = GtkEdit.Entry.create ?max_length () in
-  GtkEdit.Entry.set w ~text:(string_of_float init) ?visibility;
-  set_editable w ?editable ?width ?height;
-  pack_return (new entry_float w ~init) ~packing ~show
-
-
-(*************************************************************)
-
-
-let split_string s ~sep =
-  let l = String.length s in
-  let r = ref [] in
-  let j = ref 0 in
-  for i = 0 to l-1 do
-    if String.unsafe_get s i = sep then begin
-      r := (String.sub s ~pos:!j ~len:(i - !j)) :: !r;
-      j := i + 1
-    end
-  done;
-  List.rev ((String.sub s ~pos:!j ~len:(l - !j)) :: !r)
-
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/vbox.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/vbox.xpm
deleted file mode 100644 (file)
index 1c557b0..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/vbox.xpm
+++ /dev/null
@@ -1,31 +0,0 @@
-/* XPM */
-static char *vbox_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 4 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c Gray100",
-/* pixels */
-"oooooooooooooooooooo ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"o................... ",
-"                     ",
-"oooooooooooooooooooo ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"o................... ",
-"                     ",
-"oooooooooooooooooooo ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"oXXXXXXXXXXXXXXXXXX. ",
-"o................... ",
-"                     "
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/vbuttonbox.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/vbuttonbox.xpm
deleted file mode 100644 (file)
index 0c2bc95..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/vbuttonbox.xpm
+++ /dev/null
@@ -1,33 +0,0 @@
-/* XPM */
-static char *vbuttonbox_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 6 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray100",
-"+ c None",
-/* pixels */
-"+++++++++++++++++++++",
-"+++++++++++++++++++++",
-"++++++++OOOOO +++++++",
-"++++++++OXXX. +++++++",
-"++++++++OXXX. +++++++",
-"++++++++O.... +++++++",
-"++++++++      +++++++",
-"+++++++++++++++++++++",
-"++++++++OOOOO +++++++",
-"++++++++OXXX. +++++++",
-"++++++++OXXX. +++++++",
-"++++++++O.... +++++++",
-"++++++++      +++++++",
-"+++++++++++++++++++++",
-"++++++++OOOOO +++++++",
-"++++++++OXXX. +++++++",
-"++++++++OXXX. +++++++",
-"++++++++O.... +++++++",
-"++++++++      +++++++",
-"+++++++++++++++++++++",
-"+++++++++++++++++++++"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/viewport.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/viewport.xpm
deleted file mode 100644 (file)
index 71e5e80..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/viewport.xpm
+++ /dev/null
@@ -1,34 +0,0 @@
-/* XPM */
-static char *viewport_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 7 1",
-"  c Gray0",
-". c #7b7b7b",
-"X c #d6d6d6",
-"o c #b3cece",
-"O c Gray87",
-"+ c Gray100",
-"@ c None",
-/* pixels */
-"@@@@@@@@@@@@@@@@@@@@@",
-"@...................@",
-"@.                +O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@. XXXXXXXXXXXXXXX+O@",
-"@.+++++++++++++++++O@",
-"@.OOOOOOOOOOOOOOOOOO@",
-"@@@@@@@@@@@@@@@@@@@@@"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/vseparator.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/vseparator.xpm
deleted file mode 100644 (file)
index 3455f74..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/vseparator.xpm
+++ /dev/null
@@ -1,31 +0,0 @@
-/* XPM */
-static char *vseparator_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 4 1",
-"  c #7b7b7b",
-". c #b3cece",
-"X c Gray100",
-"o c None",
-/* pixels */
-"ooooooooooooooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"oooooooooo Xooooooooo",
-"ooooooooooooooooooooo"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/window.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/window.xpm
deleted file mode 100644 (file)
index 8407e28..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/window.xpm
+++ /dev/null
@@ -1,38 +0,0 @@
-/* XPM */
-static char *window_xpm[] = {
-/* columns rows colors chars-per-pixel */
-"21 21 11 1",
-"  c Gray0",
-". c #00007b",
-"X c #7b7b7b",
-"o c Green",
-"O c Cyan",
-"+ c Red",
-"@ c Yellow",
-"# c #d6d6d6",
-"$ c #b3cece",
-"% c Gray100",
-"& c None",
-/* pixels */
-"&&&&&&&&&&&&&&&&&&&&&",
-"&&&&&&&&&&&&&&&&&&&&&",
-"&&&&&&&&&&&&&&&&&&&&&",
-"XXXXXXXXXXXXXXXXXXXX&",
-"X.+@...............X ",
-"X.Oo.%%%.%%.....# #X ",
-"XXXXXXXXXXXXXXXXXXXX ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"X#%%%%%%%%%%%%%%%%%X ",
-"XXXXXXXXXXXXXXXXXXXX ",
-"&                    ",
-"&&&&&&&&&&&&&&&&&&&&&",
-"&&&&&&&&&&&&&&&&&&&&&"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/unison/.cvsignore b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/unison/.cvsignore
deleted file mode 100644 (file)
index 31706ab..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/unison/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-unison-*

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/unison/README b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/unison/README
deleted file mode 100644 (file)
index e98697a..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/unison/README
+++ /dev/null
@@ -1,10 +0,0 @@
-       A GUI for Unison
-
-As of version 2.6.1, unison works with LablGTK snapshots.
-You may just compile it after having installed lablgtk.
-
-       http://www.cis.upenn.edu/~bcpierce/unison/
-
-Jacques Garrigue
-
-$Id$

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/config.make.nt b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/config.make.nt
deleted file mode 100644 (file)
index 3fe6b56..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/config.make.nt
+++ /dev/null
@@ -1,6 +0,0 @@
-LIBDIR=c:/Home/garrigue/ocaml/lib
-GTKCFLAGS=-I../glib -I../gtk+
-GTKSRC=c:\Home\garrigue
-GTKLIBS=$(GTKSRC)/glib/gmodule-1.3.lib $(GTKSRC)/glib/glib-1.3.lib $(GTKSRC)/gtk+/gdk/gdk-1.3.lib $(GTKSRC)/gtk+/gtk/gtk-1.3.lib
-USE_GL=0
-USE_CC=0

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/configure.mk b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/configure.mk
deleted file mode 100644 (file)
index 49b3d70..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/configure.mk
+++ /dev/null
@@ -1,50 +0,0 @@
-# makefile for configuring lablGTK
-
-# Default compilers
-CAMLC = ocamlc
-CAMLOPT = ocamlopt
-
-# Default installation directories
-BINDIR = `$(GETBINDIR)`
-INSTALLDIR = $(LIBDIR)/lablgtk
-
-# Autoconf
-GETLIBDIR = ocamlc -v | grep "^Standard" | sed 's/^.*: *//'
-LIBDIR = `$(GETLIBDIR)`
-GETBINDIR = $(GETLIBDIR) | sed -e 's|/lib/[^/]*$$|/bin|' -e 's|/lib$$|/bin|'
-GETRANLIB = which ranlib 2>/dev/null | sed -e 's|.*/ranlib$$|!|' -e 's/^[^!]*$$/:/' -e 's/!/ranlib/'
-
-ifdef USE_GNOME
-GTKGETCFLAGS = gtk-config --cflags`" -I"`gnome-config --includedir
-GNOMELIBS = `gnome-config --libs gtkxmhtml`
-else
-GTKGETCFLAGS = gtk-config --cflags
-endif
-
-GTKGETLIBS = gtk-config --libs
-
-configure: .depend config.make
-
-.depend:
-       ocamldep *.ml *.mli > .depend
-
-config.make:
-       @echo CAMLC=$(CAMLC) > config.make
-       @echo CAMLOPT=$(CAMLOPT) >> config.make
-       @echo USE_GL=$(USE_GL) >> config.make
-       @echo USE_GNOME=$(USE_GNOME) >> config.make
-       @echo USE_CC=$(USE_CC) >> config.make
-       @echo DEBUG=$(DEBUG) >> config.make
-       @echo CC=$(CC) >> config.make
-       @echo RANLIB=`$(GETRANLIB)` >> config.make
-       @echo LIBDIR=$(LIBDIR) >> config.make
-       @echo BINDIR=`$(GETBINDIR)` >> config.make
-       @echo INSTALLDIR=$(INSTALLDIR) >> config.make
-       @echo GTKCFLAGS=`$(GTKGETCFLAGS)` >> config.make
-       @echo GTKLIBS=`$(GTKGETLIBS)` | \
-         sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
-         >> config.make
-       @echo GNOMELIBS=$(GNOMELIBS) | \
-         sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
-         >> config.make
-       cat config.make

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/doc/formula.eps b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/doc/formula.eps
deleted file mode 100644 (file)
index 31ddafc..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/doc/formula.eps
+++ /dev/null
@@ -1,409 +0,0 @@
-%!PS-Adobe-2.0 EPSF-2.0
-%%Creator: dvipsk 5.78 p1.4c Copyright 1996-99 ASCII Corp.(www-ptex@ascii.co.jp)
-%%dvipsk 5.78 Copyright 1998 Radical Eye Software (www.radicaleye.com)
-%%Title: formula.dvi
-%%BoundingBox: 71 318 395 524
-%%DocumentFonts: Symbol Times-Italic Times-Roman Helvetica
-%%EndComments
-%DVIPSCommandLine: dvips -E -o formula.eps formula
-%DVIPSParameters: dpi=300, compressed
-%DVIPSSource:  TeX output 1999.08.19:0906
-%%BeginProcSet: texc.pro
-%!
-/TeXDict 300 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N
-/X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72
-mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1}
-ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
-isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div
-hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul
-TR[matrix currentmatrix{dup dup round sub abs 0.00001 lt{round}if}
-forall round exch round exch]setmatrix}N /@landscape{/isls true N}B
-/@manualfeed{statusdict /manualfeed true put}B /@copies{/#copies X}B
-/FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{
-/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N
-string /base X array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N
-end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{
-/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0]
-N df-tail}B /E{pop nn dup definefont setfont}B /ch-width{ch-data dup
-length 5 sub get}B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{
-128 ch-data dup length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub
-get 127 sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data
-dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N
-/rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup
-/base get 2 index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx
-0 ch-xoff ch-yoff ch-height sub ch-xoff ch-width add ch-yoff
-setcachedevice ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff
-.1 sub]/id ch-image N /rw ch-width 7 add 8 idiv string N /rc 0 N /gp 0 N
-/cp 0 N{rc 0 ne{rc 1 sub /rc X rw}{G}ifelse}imagemask restore}B /G{{id
-gp get /gp gp 1 add N dup 18 mod S 18 idiv pl S get exec}loop}B /adv{cp
-add /cp X}B /chg{rw cp id gp 4 index getinterval putinterval dup gp add
-/gp X adv}B /nd{/cp 0 N rw exit}B /lsh{rw cp 2 copy get dup 0 eq{pop 1}{
-dup 255 eq{pop 254}{dup dup add 255 and S 1 and or}ifelse}ifelse put 1
-adv}B /rsh{rw cp 2 copy get dup 0 eq{pop 128}{dup 255 eq{pop 127}{dup 2
-idiv S 128 and or}ifelse}ifelse put 1 adv}B /clr{rw cp 2 index string
-putinterval adv}B /set{rw cp fillstr 0 4 index getinterval putinterval
-adv}B /fillstr 18 string 0 1 17{2 copy 255 put pop}for N /pl[{adv 1 chg}
-{adv 1 chg nd}{1 add chg}{1 add chg nd}{adv lsh}{adv lsh nd}{adv rsh}{
-adv rsh nd}{1 add adv}{/rc X nd}{1 add set}{1 add clr}{adv 2 chg}{adv 2
-chg nd}{pop nd}]dup{bind pop}forall N /D{/cc X dup type /stringtype ne{]
-}if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup
-length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{
-cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin
-0 0 moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul
-add .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore userdict
-/eop-hook known{eop-hook}if showpage}N /@start{userdict /start-hook
-known{start-hook}if pop /VResolution X /Resolution X 1000 div /DVImag X
-/IE 256 array N 2 string 0 1 255{IE S dup 360 add 36 4 index cvrs cvn
-put}for pop 65781.76 div /vsize X 65781.76 div /hsize X}N /dir 0 def
-/dyy{/dir 0 def}B /dyt{/dir 1 def}B /dty{/dir 2 def}B /dtt{/dir 3 def}B
-/p{dir 2 eq{-90 rotate show 90 rotate}{dir 3 eq{-90 rotate show 90
-rotate}{show}ifelse}ifelse}B /RMat[1 0 0 -1 0 0]N /BDot 260 string N
-/rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V{}B /RV statusdict
-begin /product where{pop false[(Display)(NeXT)(LaserWriter 16/600)]{dup
-length product length le{dup length product exch 0 exch getinterval eq{
-pop true exit}if}{pop}ifelse}forall}{false}ifelse end{{gsave TR -.1 .1
-TR 1 1 scale rulex ruley false RMat{BDot}imagemask grestore}}{{gsave TR
--.1 .1 TR rulex ruley scale 1 1 false RMat{BDot}imagemask grestore}}
-ifelse B /QV{gsave newpath transform round exch round exch itransform
-moveto rulex 0 rlineto 0 ruley neg rlineto rulex neg 0 rlineto fill
-grestore}B /a{moveto}B /delta 0 N /tail{dup /delta X 0 rmoveto}B /M{S p
-delta add tail}B /b{S p tail}B /c{-4 M}B /d{-3 M}B /e{-2 M}B /f{-1 M}B
-/g{0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{4 M}B /w{0 rmoveto}B /l{p -4 w}B
-/m{p -3 w}B /n{p -2 w}B /o{p -1 w}B /q{p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{
-p 4 w}B /x{0 S rmoveto}B /y{3 2 roll p a}B /bos{/SS save N}B /eos{SS
-restore}B end
-
-%%EndProcSet
-%%BeginProcSet: 8r.enc
-% @@psencodingfile@{
-%   author = "S. Rahtz, P. MacKay, Alan Jeffrey, B. Horn, K. Berry",
-%   version = "0.6",
-%   date = "22 June 1996",
-%   filename = "8r.enc",
-%   email = "kb@@mail.tug.org",
-%   address = "135 Center Hill Rd. // Plymouth, MA 02360",
-%   codetable = "ISO/ASCII",
-%   checksum = "119     662    4424",
-%   docstring = "Encoding for TrueType or Type 1 fonts to be used with TeX."
-% @}
-% 
-% Idea is to have all the characters normally included in Type 1 fonts
-% available for typesetting. This is effectively the characters in Adobe
-% Standard Encoding + ISO Latin 1 + extra characters from Lucida.
-% 
-% Character code assignments were made as follows:
-% 
-% (1) the Windows ANSI characters are almost all in their Windows ANSI
-% positions, because some Windows users cannot easily reencode the
-% fonts, and it makes no difference on other systems. The only Windows
-% ANSI characters not available are those that make no sense for
-% typesetting -- rubout (127 decimal), nobreakspace (160), softhyphen
-% (173). quotesingle and grave are moved just because it's such an
-% irritation not having them in TeX positions.
-% 
-% (2) Remaining characters are assigned arbitrarily to the lower part
-% of the range, avoiding 0, 10 and 13 in case we meet dumb software.
-% 
-% (3) Y&Y Lucida Bright includes some extra text characters; in the
-% hopes that other PostScript fonts, perhaps created for public
-% consumption, will include them, they are included starting at 0x12.
-% 
-% (4) Remaining positions left undefined are for use in (hopefully)
-% upward-compatible revisions, if someday more characters are generally
-% available.
-% 
-% (5) hyphen appears twice for compatibility with both ASCII and Windows.
-% 
-/TeXBase1Encoding [
-% 0x00 (encoded characters from Adobe Standard not in Windows 3.1)
-  /.notdef /dotaccent /fi /fl
-  /fraction /hungarumlaut /Lslash /lslash
-  /ogonek /ring /.notdef
-  /breve /minus /.notdef 
-% These are the only two remaining unencoded characters, so may as
-% well include them.
-  /Zcaron /zcaron 
-% 0x10
- /caron /dotlessi 
-% (unusual TeX characters available in, e.g., Lucida Bright)
- /dotlessj /ff /ffi /ffl 
- /.notdef /.notdef /.notdef /.notdef
- /.notdef /.notdef /.notdef /.notdef
- % very contentious; it's so painful not having quoteleft and quoteright
- % at 96 and 145 that we move the things normally found there down to here.
- /grave /quotesingle 
-% 0x20 (ASCII begins)
- /space /exclam /quotedbl /numbersign
- /dollar /percent /ampersand /quoteright
- /parenleft /parenright /asterisk /plus /comma /hyphen /period /slash
-% 0x30
- /zero /one /two /three /four /five /six /seven
- /eight /nine /colon /semicolon /less /equal /greater /question
-% 0x40
- /at /A /B /C /D /E /F /G /H /I /J /K /L /M /N /O
-% 0x50
- /P /Q /R /S /T /U /V /W
- /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore
-% 0x60
- /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o
-% 0x70
- /p /q /r /s /t /u /v /w
- /x /y /z /braceleft /bar /braceright /asciitilde
- /.notdef % rubout; ASCII ends
-% 0x80
- /.notdef /.notdef /quotesinglbase /florin
- /quotedblbase /ellipsis /dagger /daggerdbl
- /circumflex /perthousand /Scaron /guilsinglleft
- /OE /.notdef /.notdef /.notdef
-% 0x90
- /.notdef /.notdef /.notdef /quotedblleft
- /quotedblright /bullet /endash /emdash
- /tilde /trademark /scaron /guilsinglright
- /oe /.notdef /.notdef /Ydieresis
-% 0xA0
- /.notdef % nobreakspace
- /exclamdown /cent /sterling
- /currency /yen /brokenbar /section
- /dieresis /copyright /ordfeminine /guillemotleft
- /logicalnot
- /hyphen % Y&Y (also at 45); Windows' softhyphen
- /registered
- /macron
-% 0xD0
- /degree /plusminus /twosuperior /threesuperior
- /acute /mu /paragraph /periodcentered
- /cedilla /onesuperior /ordmasculine /guillemotright
- /onequarter /onehalf /threequarters /questiondown
-% 0xC0
- /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla
- /Egrave /Eacute /Ecircumflex /Edieresis
- /Igrave /Iacute /Icircumflex /Idieresis
-% 0xD0
- /Eth /Ntilde /Ograve /Oacute
- /Ocircumflex /Otilde /Odieresis /multiply
- /Oslash /Ugrave /Uacute /Ucircumflex
- /Udieresis /Yacute /Thorn /germandbls
-% 0xE0
- /agrave /aacute /acircumflex /atilde
- /adieresis /aring /ae /ccedilla
- /egrave /eacute /ecircumflex /edieresis
- /igrave /iacute /icircumflex /idieresis
-% 0xF0
- /eth /ntilde /ograve /oacute
- /ocircumflex /otilde /odieresis /divide
- /oslash /ugrave /uacute /ucircumflex
- /udieresis /yacute /thorn /ydieresis
-] def
-
-%%EndProcSet
-%%BeginProcSet: texps.pro
-%!
-TeXDict begin /rf{findfont dup length 1 add dict begin{1 index /FID ne 2
-index /UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
-exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]/Metrics
-exch def dict begin 0 1 255{exch dup type /integertype ne{pop pop 1 sub
-dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}
-ifelse}for Metrics /Metrics currentdict end def[2 index currentdict end
-definefont 3 -1 roll makefont /setfont cvx]cvx def}def /ObliqueSlant{
-dup sin S cos div neg}B /SlantFont{4 index mul add}def /ExtendFont{3 -1
-roll mul exch}def /ReEncodeFont{/Encoding exch def}def end
-
-%%EndProcSet
-%%BeginProcSet: special.pro
-%!
-TeXDict begin /SDict 200 dict N SDict begin /@SpecialDefaults{/hs 612 N
-/vs 792 N /ho 0 N /vo 0 N /hsc 1 N /vsc 1 N /ang 0 N /CLIP 0 N /rwiSeen
-false N /rhiSeen false N /letter{}N /note{}N /a4{}N /legal{}N}B
-/@scaleunit 100 N /@hscale{@scaleunit div /hsc X}B /@vscale{@scaleunit
-div /vsc X}B /@hsize{/hs X /CLIP 1 N}B /@vsize{/vs X /CLIP 1 N}B /@clip{
-/CLIP 2 N}B /@hoffset{/ho X}B /@voffset{/vo X}B /@angle{/ang X}B /@rwi{
-10 div /rwi X /rwiSeen true N}B /@rhi{10 div /rhi X /rhiSeen true N}B
-/@llx{/llx X}B /@lly{/lly X}B /@urx{/urx X}B /@ury{/ury X}B /magscale
-true def end /@MacSetUp{userdict /md known{userdict /md get type
-/dicttype eq{userdict begin md length 10 add md maxlength ge{/md md dup
-length 20 add dict copy def}if end md begin /letter{}N /note{}N /legal{}
-N /od{txpose 1 0 mtx defaultmatrix dtransform S atan/pa X newpath
-clippath mark{transform{itransform moveto}}{transform{itransform lineto}
-}{6 -2 roll transform 6 -2 roll transform 6 -2 roll transform{
-itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll curveto}}{{
-closepath}}pathforall newpath counttomark array astore /gc xdf pop ct 39
-0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}if}N
-/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1 -1
-scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3 get
-ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip yflip
-not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub neg 0
-TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{noflips{TR
-pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop 90 rotate 1
--1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg
-TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr 1 get neg
-sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr 2 get ppr
-0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4 -1 roll add
-2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S TR}if}N /cp
-{pop pop showpage pm restore}N end}if}if}N /normalscale{Resolution 72
-div VResolution 72 div neg scale magscale{DVImag dup scale}if 0 setgray}
-N /psfts{S 65781.76 div N}N /startTexFig{/psf$SavedState save N userdict
-maxlength dict begin /magscale true def normalscale currentpoint TR
-/psf$ury psfts /psf$urx psfts /psf$lly psfts /psf$llx psfts /psf$y psfts
-/psf$x psfts currentpoint /psf$cy X /psf$cx X /psf$sx psf$x psf$urx
-psf$llx sub div N /psf$sy psf$y psf$ury psf$lly sub div N psf$sx psf$sy
-scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub TR
-/showpage{}N /erasepage{}N /copypage{}N /p 3 def @MacSetUp}N /doclip{
-psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
-roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
-moveto}N /endTexFig{end psf$SavedState restore}N /@beginspecial{SDict
-begin /SpecialSave save N gsave normalscale currentpoint TR
-@SpecialDefaults count /ocount X /dcount countdictstack N}N /@setspecial
-{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
-closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
-sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
-}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
-CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
-lineto closepath clip}if /showpage{}N /erasepage{}N /copypage{}N newpath
-}N /@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{
-end}repeat grestore SpecialSave restore end}N /@defspecial{SDict begin}
-N /@fedspecial{end}B /li{lineto}B /rl{rlineto}B /rc{rcurveto}B /np{
-/SaveX currentpoint /SaveY X N 1 setlinecap newpath}N /st{stroke SaveX
-SaveY moveto}N /fil{fill SaveX SaveY moveto}N /ellipse{/endangle X
-/startangle X /yrad X /xrad X /savematrix matrix currentmatrix N TR xrad
-yrad scale 0 0 1 startangle endangle arc savematrix setmatrix}N end
-
-%%EndProcSet
-%%BeginProcSet: color.pro
-%!
-TeXDict begin /setcmykcolor where{pop}{/setcmykcolor{dup 10 eq{pop
-setrgbcolor}{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll
-}repeat setrgbcolor pop}ifelse}B}ifelse /TeXcolorcmyk{setcmykcolor}def
-/TeXcolorrgb{setrgbcolor}def /TeXcolorgrey{setgray}def /TeXcolorgray{
-setgray}def /TeXcolorhsb{sethsbcolor}def /currentcmykcolor where{pop}{
-/currentcmykcolor{currentrgbcolor 10}B}ifelse /DC{exch dup userdict exch
-known{pop pop}{X}ifelse}B /GreenYellow{0.15 0 0.69 0 setcmykcolor}DC
-/Yellow{0 0 1 0 setcmykcolor}DC /Goldenrod{0 0.10 0.84 0 setcmykcolor}
-DC /Dandelion{0 0.29 0.84 0 setcmykcolor}DC /Apricot{0 0.32 0.52 0
-setcmykcolor}DC /Peach{0 0.50 0.70 0 setcmykcolor}DC /Melon{0 0.46 0.50
-0 setcmykcolor}DC /YellowOrange{0 0.42 1 0 setcmykcolor}DC /Orange{0
-0.61 0.87 0 setcmykcolor}DC /BurntOrange{0 0.51 1 0 setcmykcolor}DC
-/Bittersweet{0 0.75 1 0.24 setcmykcolor}DC /RedOrange{0 0.77 0.87 0
-setcmykcolor}DC /Mahogany{0 0.85 0.87 0.35 setcmykcolor}DC /Maroon{0
-0.87 0.68 0.32 setcmykcolor}DC /BrickRed{0 0.89 0.94 0.28 setcmykcolor}
-DC /Red{0 1 1 0 setcmykcolor}DC /OrangeRed{0 1 0.50 0 setcmykcolor}DC
-/RubineRed{0 1 0.13 0 setcmykcolor}DC /WildStrawberry{0 0.96 0.39 0
-setcmykcolor}DC /Salmon{0 0.53 0.38 0 setcmykcolor}DC /CarnationPink{0
-0.63 0 0 setcmykcolor}DC /Magenta{0 1 0 0 setcmykcolor}DC /VioletRed{0
-0.81 0 0 setcmykcolor}DC /Rhodamine{0 0.82 0 0 setcmykcolor}DC /Mulberry
-{0.34 0.90 0 0.02 setcmykcolor}DC /RedViolet{0.07 0.90 0 0.34
-setcmykcolor}DC /Fuchsia{0.47 0.91 0 0.08 setcmykcolor}DC /Lavender{0
-0.48 0 0 setcmykcolor}DC /Thistle{0.12 0.59 0 0 setcmykcolor}DC /Orchid{
-0.32 0.64 0 0 setcmykcolor}DC /DarkOrchid{0.40 0.80 0.20 0 setcmykcolor}
-DC /Purple{0.45 0.86 0 0 setcmykcolor}DC /Plum{0.50 1 0 0 setcmykcolor}
-DC /Violet{0.79 0.88 0 0 setcmykcolor}DC /RoyalPurple{0.75 0.90 0 0
-setcmykcolor}DC /BlueViolet{0.86 0.91 0 0.04 setcmykcolor}DC /Periwinkle
-{0.57 0.55 0 0 setcmykcolor}DC /CadetBlue{0.62 0.57 0.23 0 setcmykcolor}
-DC /CornflowerBlue{0.65 0.13 0 0 setcmykcolor}DC /MidnightBlue{0.98 0.13
-0 0.43 setcmykcolor}DC /NavyBlue{0.94 0.54 0 0 setcmykcolor}DC
-/RoyalBlue{1 0.50 0 0 setcmykcolor}DC /Blue{1 1 0 0 setcmykcolor}DC
-/Cerulean{0.94 0.11 0 0 setcmykcolor}DC /Cyan{1 0 0 0 setcmykcolor}DC
-/ProcessBlue{0.96 0 0 0 setcmykcolor}DC /SkyBlue{0.62 0 0.12 0
-setcmykcolor}DC /Turquoise{0.85 0 0.20 0 setcmykcolor}DC /TealBlue{0.86
-0 0.34 0.02 setcmykcolor}DC /Aquamarine{0.82 0 0.30 0 setcmykcolor}DC
-/BlueGreen{0.85 0 0.33 0 setcmykcolor}DC /Emerald{1 0 0.50 0
-setcmykcolor}DC /JungleGreen{0.99 0 0.52 0 setcmykcolor}DC /SeaGreen{
-0.69 0 0.50 0 setcmykcolor}DC /Green{1 0 1 0 setcmykcolor}DC
-/ForestGreen{0.91 0 0.88 0.12 setcmykcolor}DC /PineGreen{0.92 0 0.59
-0.25 setcmykcolor}DC /LimeGreen{0.50 0 1 0 setcmykcolor}DC /YellowGreen{
-0.44 0 0.74 0 setcmykcolor}DC /SpringGreen{0.26 0 0.76 0 setcmykcolor}
-DC /OliveGreen{0.64 0 0.95 0.40 setcmykcolor}DC /RawSienna{0 0.72 1 0.45
-setcmykcolor}DC /Sepia{0 0.83 1 0.70 setcmykcolor}DC /Brown{0 0.81 1
-0.60 setcmykcolor}DC /Tan{0.14 0.42 0.56 0 setcmykcolor}DC /Gray{0 0 0
-0.50 setcmykcolor}DC /Black{0 0 0 1 setcmykcolor}DC /White{0 0 0 0
-setcmykcolor}DC end
-
-%%EndProcSet
-TeXDict begin 40258437 52099154 1000 300 300 (formula.dvi)
-@start /Fa 134[ 41 5[ 41 3[ 46 46 1[ 18 6[ 46 15[ 60
-4[ 55 14[ 55 23[ 28 28 40[{  TeXBase1Encoding ReEncodeFont } 11
-82.6359 /Helvetica rf /Fb 205[ 34 34 49[{
- TeXBase1Encoding ReEncodeFont } 2 68.8667 /Times-Roman
-rf /Fc 154[ 30 101[{ } 1 68.8667 /Symbol rf
-%DVIPSBitmapFont: Fd cmr10 19.907 4
-/Fd 4 94 df<146014E0EB01C0EB0380EB0700130E5B133C13385B13F05B1201485AA248
-5AA348C7FCA25A121EA2123EA2123CA2127CA5127812F8B01278127CA5123CA2123EA212
-1EA2121F7EA26C7EA36C7EA26C7E12007F13707F133C131C7F7FEB0380EB01C0EB00E014
-60135278BD20> 40 D<7E7E7E12707E7E7E120F7E6C7E7F12017F6C7EA21378A37FA213
-3E131EA2131FA27FA21480A5130714C0B01480130FA51400A25BA2131EA2133E133CA25B
-A35BA2485A5B12035B48C7FC5A120E5A5A5A5A5A5A12527BBD20> I<EAFFF8A4EAF000B3
-B3B3B3A3EAFFF8A40D5378BD17> 91 D<EAFFF8A4EA0078B3B3B3B3A3EAFFF8A40D537F
-BD17> 93 D E
-%EndDVIPSBitmapFont
-/Fe 197[ 23 58[{  TeXBase1Encoding ReEncodeFont } 1 82.6359
-/Times-Roman rf
-%DVIPSBitmapFont: Ff cmsy10 19.907 4
-/Ff 4 106 df<0060161800F0163CA26C167C00781678007C16F8003C16F0A2003E1501
-001E16E0A2001F15036C16C06D140700071680A26D140F000316006D5C6CB612FEA36C5D
-01F8C7127C01781478A2017C14F8013C5CA2013E1301011E5C011F13036D5CA2EC800701
-075CECC00F010391C7FCA26E5A0101131EECF03E0100133CA2ECF87CEC7878A2EC7CF8EC
-3CF0143F6E5AA36E5AA26E5AA26EC8FC2E3A80B82F> 56 D<126012F0B3A7B8FC1780A3
-00F0CAFCB3A8126029397CB832> 96 D<14C0EB01E0A2130314C013071480A2130F1400
-A25B131E133E133CA2137C137813F85BA212015BA212035B12075BA2120F90C7FC5A121E
-A2123E123CA2127C127812F85AA27E1278127C123CA2123E121EA2121F7E7F1207A27F12
-037F1201A27F1200A27F1378137C133CA2133E131E131F7FA214801307A214C0130314E0
-1301A2EB00C0135278BD20> 104 D<126012F0A27E1278127C123CA2123E121EA2121F7E
-7F1207A27F12037F1201A27F1200A27F1378137C133CA2133E131E131F7FA214801307A2
-14C0130314E01301A2130314C013071480A2130F1400A25B131E133E133CA2137C137813
-F85BA212015BA212035B12075BA2120F90C7FC5A121EA2123E123CA2127C127812F85AA2
-126013527CBD20> I E
-%EndDVIPSBitmapFont
-%DVIPSBitmapFont: Fg cmmi10 19.907 1
-/Fg 1 59 df<121C123E127FEAFF80A3EA7F00123E121C0909798817> 58
-D E
-%EndDVIPSBitmapFont
-/Fh 158[ 41 31[ 50 65[{  TeXBase1Encoding ReEncodeFont } 2
-82.6359 /Times-Italic rf /Fi 139[ 36 50 13[ 36 101[{ } 3
-82.6359 /Symbol rf end
-%%EndProlog
-%%BeginSetup
-%%Feature: *Resolution 300dpi
-TeXDict begin
-
-%%EndSetup
-0 0 bop Black Black 0 0.7 0 TeXcolorrgb Fh 567 883 a(A) p
-Ff 636 883 a(`) p Fh 705 883 a(a) p Fe 765 883 a(:) p
-0 0 1 TeXcolorrgb Fi 806 883 a(t) p Fb 842 900 a(1) p
-0 0.7 0 TeXcolorrgb Fd 948 883 a(\() p 0 0 1 TeXcolorrgb
-Fi(t) p Fb 1016 900 a(1) p 0 0.7 0 TeXcolorrgb Fe 1071
-883 a(:) p 0 0 1 TeXcolorrgb Fi 1112 883 a(t) p 0 0.7 0
-TeXcolorrgb Fe 1167 883 a(:) p 0 0 1 TeXcolorrgb Fi 1208
-883 a(t) p Fb 1244 900 a(2) p 0 0.7 0 TeXcolorrgb Fd
-1281 883 a(\)) p 567 920 746 4 v Fh 704 995 a(A) p Ff
-773 995 a(`) p Fd 842 995 a(\() p Fh(a) p Fe 934 995
-a(:) p 0 0 1 TeXcolorrgb Fi 975 995 a(t) p 0 0.7 0 TeXcolorrgb
-Fd(\)) p Fe 1062 995 a(:) p 0 0 1 TeXcolorrgb Fi 1103
-995 a(t) p Fb 1139 1012 a(2) p 0 0.7 0 TeXcolorrgb Black
-Fa 2 939 a(\(Ann\)) p 0 0.7 0 TeXcolorrgb Black 0 0.7 0
-TeXcolorrgb Fh 540 1208 a(A) p Ff 609 1208 a(`) p Fh
-678 1208 a(a) p Fe 738 1208 a(:) p 0 0 1 TeXcolorrgb
-Fi 779 1208 a(s) p Fb 829 1225 a(1) p 0 0.7 0 TeXcolorrgb
-Fd 934 1208 a(\() p 0 0 1 TeXcolorrgb Fi(s) p Fb 1016
-1225 a(1) p 0 0.7 0 TeXcolorrgb Fe 1071 1208 a(:) p 0 0 1
-TeXcolorrgb Fi 1112 1208 a(s) p 0 0.7 0 TeXcolorrgb Fe
-1180 1208 a(:) p 0 0 1 TeXcolorrgb Fi 1222 1208 a(s) p
-Fb 1272 1225 a(2) p 0 0.7 0 TeXcolorrgb Fd 1308 1208
-a(\)) p 540 1245 801 4 v Fh 661 1321 a(A) p Ff 730 1321
-a(`) p Fd 799 1321 a([) p Fh(a) p Fe 881 1321 a(:) p
-0 0 1 TeXcolorrgb Fi 923 1321 a(s) p 0 0.7 0 TeXcolorrgb
-Fd 972 1321 a(]) p Fe 1014 1321 a(:) p 0 0 1 TeXcolorrgb
-Fd 1055 1321 a([) p Fi(s) p Fb 1128 1338 a(2) p Fd 1164
-1321 a(]) p Fc 1187 1297 a(e) p 0 0.7 0 TeXcolorrgb Black
-Fa 2 1264 a(\(P) l(oly\)) p 0 0.7 0 TeXcolorrgb Black
-0 0.7 0 TeXcolorrgb Fh 704 1537 a(A) p Ff 773 1537 a(`) p
-Fh 842 1537 a(a) p Fe 902 1537 a(:) p 0 0 1 TeXcolorrgb
-Ff 943 1537 a(8) p Fi(e) p Fg(:) p Fd([) p Fi(s) p Fd(]) p
-Fc 1145 1507 a(e) p 0 0.7 0 TeXcolorrgb 704 1573 472
-4 v Fh 764 1649 a(A) p Ff 833 1649 a(`) p 902 1649 a(h) p
-Fh(a) p Ff(i) p Fe 1025 1649 a(:) p 0 0 1 TeXcolorrgb
-Fi 1067 1649 a(s) p 0 0.7 0 TeXcolorrgb Black Fa 2 1592
-a(\(Use\)) p 0 0.7 0 TeXcolorrgb Black Black Black 90 rotate
-dyy eop
-%%Trailer
-end
-userdict /end-hook known{end-hook}if
-%%EOF

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/doc/lablgtk.mgp b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/doc/lablgtk.mgp
deleted file mode 100644 (file)
index 3eac793..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/doc/lablgtk.mgp
+++ /dev/null
@@ -1,558 +0,0 @@
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%deffont "code" xfont "itc avant garde gothic-demi-r", tfont "verdana.ttf"
-%deffont "code-bold" xfont "terminal-bold-r", tfont "verdanab.ttf"
-%deffont "sans" xfont "helvetica-medium-r", tfont "comic.ttf"
-%deffont "sans-bold" xfont "helvetica-bold-r", tfont "comicbd.ttf"
-%deffont "sansit" xfont "helvetica-medium-i", tfont "marlett.ttf"
-%deffont "title" xfont "times-medium-r", tfont "times.ttf"
-%deffont "title-bold" xfont "times-bold-r", tfont "timesbd.ttf"
-%default 1 right, size 2, fore "white", bgrad
-%default 1 vfont "goth", font "sans-bold", vgap 100
-%default 2 leftfill, size 8, vgap 60, prefix " ", font "sans"
-%default 3 size 4, bar "beige", vgap 10
-%default 4 size 5, fore "white", vgap 20, prefix " "
-%tab 1 size 5, vgap 40, prefix "  ", icon box "green" 50
-%tab 2 size 5, vgap 40, prefix "      ", icon arc "yellow" 50
-%tab 3 size 5, vgap 40, prefix "            ", icon arc "white" 40
-%tab com1      size 4, prefix "     "
-%tab com2      size 4, prefix "          "
-%tab com3      size 4, prefix "             "
-%tab txt       font "sans", size 5, fore "white", prefix " "
-%tab vspace    size 2
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-%nodefault
-%size 9, font "title-bold"
-%fore "beige", back "navyblue", vgap 20
-%center
-
-
-A Type System in Action:
-
-the LablGTK Interface
-
-
-%size 7, font "title"
-Jacques Garrigue
-Kyoto University
-%size 6, font "code"
-garrigue@kurims.kyoto-u.ac.jp
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-2
-Synopsis
-
-       Objective Label introduction
-%size 2
-
-       Why GTK+?
-       GTK+/LablGTK structure
-%size 2
-
-       Low Level
-               Type encoding with variants
-               Labeled parameters
-%size 2
-
-       High Level
-               Object-orientation
-               Optional arguments
-               Polymorphic methods
-%size 2
-
-       Conclusion
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-3
-Objective Label
-
-       Based on Objective Caml
-               ML syntax and type inference
-               Class-based object system
-
-       Several extensions
-               Labeled and optional parameters
-               Polymorphic variants
-               Polymorphic methods
-
-       Tools
-               Type-based browser
-               GUI and 3D graphics
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-4
-Labels and optionals
-
-%font "code", size 4, prefix "    ", fore "yellow"
-let rec map fun:f = function
-    [] -> []
-  | x :: l -> f x :: map fun:f l
-%fore "lightpink"
-val map : fun:('a -> 'b) -> 'a list -> 'b list
-
-%pause, fore "yellow", font "code"
-let f = map [1;2;3]
-%fore "lightpink"
-val f : fun:(int -> 'a) -> 'a list
-%fore "yellow"
-f fun:(fun x -> 2*x)
-%fore "lightpink"
-- : int list = [2; 3; 4]
-
-%pause, fore "yellow", font "code"
-let f x ?incr:y [< 1 >] = x + y
-%fore "lightpink"
-val f : int -> ?incr:int -> int
-%fore "yellow"
-f 1
-%fore "lightpink"
-- : int = 2
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-5
-Polymorphic variants
-
-
-%font "code", size 4, prefix "    ", fore "yellow"
-[`on; `off]
-%fore "lightpink"
-- : [> off on] list = [`on; `off]
-
-%pause, fore "yellow", font "code"
-`number 1;;
-%fore "lightpink"
-- : [> number(int)] = `number 1
-
-%pause, fore "yellow", font "code"
-let f = function `on -> 1 | `off -> 0 | `number n -> n
-%fore "lightpink"
-val f : [< number(int) off on] -> int
-
-%pause, fore "yellow", font "code"
-type t = [on off number(int)]
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-6
-Polymorphic methods
-
-Not allowed in Objective Caml
-%size 2
-
-%font "code", size 4, prefix "    ", fore "yellow"
-class c = object method m x = x end
-%fore "red"
-Some type variables are unbound in this type:
-  class c : object method m : 'a -> 'a end
-The method m has type 'a -> 'a where 'a is unbound
-
-%pause, font "sans", size 5, prefix " ", fore "white"
-Need explicit annotation in O'Labl
-%size 2
-
-%font "code", size 4, prefix "    ", fore "yellow"
-class c = object
-    method m : 'a. 'a -> 'a = fun x -> x
-end
-%fore "lightpink"
-class c : object method m : 'a -> 'a end
-%fore "yellow"
-let o = new c
-%fore "lightpink"
-val o : c = <obj>
-%fore "yellow"
-o#m 1, o#m true
-%fore "lightpink"
-- : int * bool = 1, true
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-7
-Why GTK+ ?
-
-Why use the GIMP Tool Kit?
-%size 3
-
-       Widely used in free software
-
-       Easy to interface
-               Written in C (QT uses C++)
-               Memory management
-
-Drawbacks
-%size 3
-
-       Design lacks uniformity
-       Extensive use of dynamic typing
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-8
-GTK+ Structure
-
-Class hierarchy based on GtkObject
-%size 2
-
-       Single inheritance
-&com1 New widgets may redefine methods
-%size 2
-
-       Dynamically checked
-&com1 Casting necessay both up and down
-%size 2
-
-       Developper-side hierarchy
-&com1 Inheritance is not always meaningful to the user
-%size 2
-
-%size 5
-Signal-based callback mechanism
-%size 2
-
-       May use multiple callbacks
-%size 2
-
-       Signals are polymorphic
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-9
-LablGTK structure
-
-Typed at all levels
-
-       Low-level interface
-%size 2
-
-               C stub functions -- typechecked by C
-
-               ML type declarations -- ML abstract types
-
-       High-level interface
-%size 2
-
-               ML class wrappers -- ML concrete types
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-10
-Low Level Interface
-
-Goals
-
-       Strongly typed interface
-&com1 heavy use of advanced typing techniques
-
-       Very little ML code
-&com1 C-stubs and external declarations
-
-       Safe memory management
-&com1 have the library cooperate with the GC
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-11
-Low level encoding (I)
-
-
-How to represent widget subtyping in ML?
-
-       Example: buttons' hierarchy
-%size 2
-
-%font "code", size 5, prefix "      ", fore "yellow"
-GtkObject
-    GtkWidget
-        GtkContainer
-            GtkButton
-                GtkToggleButton
-                    GtkRadioButton
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-12
-Variants as set constraints
-
-
-Variants can be seen as sets of possible values:
-
-       [tag1 ... tagn] = {tag1,...,tagn}
-
-
-Polymorphic variants introduce constraints
-
-       \e$B&A\e(B[> tag1 ... tagn] \e$B"N\e(B \e$B&A\e(B \e$B"?\e(B {tag1,...,tagn}
-       \e$B&A\e(B[< tag1 ... tagn] \e$B"N\e(B \e$B&A\e(B \e$B">\e(B {tag1,...,tagn}
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-13
-Encoding hierarchies
-
-Define an abstract type
-&vspace
-%font "code", fore "yellow", size 5
-      type 'a obj
-
-&txt Use tags to represent properties
-&vspace
-%font "code", fore "yellow", size 5
-      type t = [class1 ... classn] obj
-
-&txt Functions check properties
-&vspace
-%font "code", fore "yellow", size 5
-      val f : [> class1 ... classn] obj -> ...
-&txt
-       Subsumes Haskell type classes
-&vspace
-       Allows multiple inheritance
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-14
-Low level encoding (II)
-
-Example: buttons' hierarchy
-%size 2
-
-%font "code", size 4, prefix "    ", fore "yellow"
-type 'a obj
-type widget = [widget] obj
-type container = [widget container] obj
-type button = [widget container button] obj
-type toggle_button = [widget ... togglebutton] obj
-type radio_button = [widget ... radiobutton] obj
-type state_type = [ NORMAL
-     ACTIVE PRELIGHT SELECTED INSENSITIVE ] 
-val set_state : [> widget] obj -> state_type -> unit
-val children : [> container] obj -> [widget] obj list
-val clicked : [> button] obj -> unit
-val set_group : [> radiobutton] obj -> group -> unit
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-15
-Alternate encoding
-
-Use only standard ML features
-%size 2
-
-%font "code", size 4, prefix "  ", fore "yellow", vgap 50
-type 'a obj
-type 'a widget
-...
-type 'a radio
-type state_type = NORMAL | ACTIVE | ... | INSENSITIVE
-val set_state : 'a widget obj -> state_type -> unit
-val children :
-    'a container widget obj -> unit widget obj list
-val clicked : 'a button container widget obj -> unit
-
-&txt Weaknesses
-       No multiple inheritance
-       Not very intuitive for the user
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-16
-Low level encoding (III)
-
-Use of labeled parameters
-%size 2
-
-%font "code", size 4, prefix "  ", fore "yellow", vgap 50
-val adjustment_new :
-    value:float -> lower:float -> upper:float ->
-    step_incr:float -> page_incr:float ->
-    page_size:float -> adjustment obj
-
-&txt Signals
-%size 2
-
-%font "code", size 4, prefix "  ", fore "yellow", vgap 50
-type ('a,'b) signal =
-    { name: string; marshaller: 'b -> GtkArgv.t -> unit }
-val connect : 'a obj -> sig:('a,'b) signal ->
-               callback:'b -> ?after:bool -> id
-val button_clicked : ([> button], unit -> unit) signal
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-17
-High-Level Interface
-
-Problems with GTK+
-%size 2
-
-       Name space is scattered
-&com1 One has to know in which superclass a function is defined
-       Developper oriented design
-&com1 There is no clear distinction between public and private definitions
-
-&txt LablGTK design
-%size 2
-
-       OCaml classes to reunify name space
-       Omit developper-oriented methods
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-18
-High-level classes
-
-%font "code", size 4, prefix "  ", fore "yellow"
-class button :
-%fore "lightgreen"
-  ?label:string ->
-%fore "lightpink"
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-%fore "lightgray"
-  ?packing:(GButton.button -> unit) ->
-  ?show:bool ->
-%fore "yellow"
-  object
-%fore "lightgray"
-    method destroy : unit -> unit
-    method as_widget : Gtk.widget obj
-    method misc : GObj.widget_misc
-%fore "lightpink"
-    method add : #is_widget -> unit
-    method set_border_width : int -> unit
-%fore "lightgreen"
-    method clicked : unit -> unit
-    method connect : GButton.button_signals
-    method grab_default : unit -> unit
-%fore "yellow"
-  end
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-19
-High-level features
-
-       Objective Caml classes
-&com1 allow collecting methods from different modules
-
-       Use optionals in class constructors
-&com1 makes widget creation much easier
-
-       Polymorphic methods
-&com1 needed for container widgets
-%size 2
-
-%font "code", size 4, fore "yellow", vgap 50
-        method add : 'a. (#is_widget as 'a) -> unit
-
-%fore "white", font "sans"
-       Polymorphic variants
-&com1 for C-style enumeration types, avoid name-space dependancies
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-20
-Polymorphic methods (I)
-
-       Instance of first-class polymorphism
-%size 2
-
-               first-class polytypes cannot be inferred
-               they are propagated by the definition flow
-
-       Technically
-%size 2
-
-               use polymorphism to track available information
-               type system excludes derivations based on "guessed" information
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-21
-First class polymorphism
-
-%prefix "            "
-%image "formula.eps" 512x384
-%size 2
-
-%prefix " ", size 5, fore "lightblue"
-  (\e$B&R\e(B1 : \e$B&R\e(B : \e$B&R\e(B2) \e$B"N\e(B \e$B&R\e(B1 = \e$B&H\e(B(\e$B&Q\e(B1(\e$B&R\e(B)) \e$B"J\e(B \e$B&R\e(B2 = \e$B&H\e(B(\e$B&Q\e(B2(\e$B&R\e(B))
-%fore "white"
-where \e$B&H\e(B instantiates free variables, and \e$B&Q\e(B1,\e$B&Q\e(B2 rename free labels of \e$B&R\e(B.
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-22
-Polymorphic methods (II)
-
-Definitions
-%size 2
-
-%font "code", size 4, prefix "    ", fore "yellow", vgap 50
-type is_widget = < as_widget : widget obj >
-type #is_widget = < as_widget : widget obj; .. >
-type container =
-    < ... ; add : 'a. (#as_widget as 'a) -> unit; ... >
-
-%pause
-&txt Propagation
-%size 2
-
-%font "code", size 4, prefix "    ", fore "lightgreen", vgap 50
-fun (cont : container) -> cont#add widget
-
-%pause
-let button = new button in button#add widget
-
-%pause, fore "red"
-fun cont -> cont#add widget
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-23
-Programming example
-
-Hello World
-%size 2
-
-%font "code", size 4, prefix "    ", fore "yellow"
-open GMain
-
-let window =
-    new GWindow.window border_width: 10
-
-let button =
-    new GButton.button
-        label: "Hello World" packing: window#add
-
-let _ =
-  window#connect#destroy callback: Main.quit;
-  button#connect#clicked callback: window#destroy;
-  window#show ();
-  Main.main ()
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%page
-24
-Conclusion
-
-       Results
-%size 2
-
-               Could build a strongly typed interface
-
-               It is easier to use than the C API
-
-               Makes effective use of extensions to the type system
-
-       Comments
-%size 2
-
-               Still difficulties with the Caml object system 
-&com2 class recursion, method type refinement, etc...

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/GL/morph3d.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/GL/morph3d.ml
deleted file mode 100644 (file)
index a08726e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/GL/morph3d.ml
+++ /dev/null
@@ -1,607 +0,0 @@
-(* $Id$ *)
-
-(*-
- * morph3d.c - Shows 3D morphing objects (TK Version)
- *
- * This program was inspired on a WindowsNT(R)'s screen saver. It was written 
- * from scratch and it was not based on any other source code. 
- * 
- * Porting it to xlock (the final objective of this code since the moment I
- * decided to create it) was possible by comparing the original Mesa's gear
- * demo with it's ported version, so thanks for Danny Sung for his indirect
- * help (look at gear.c in xlock source tree). NOTE: At the moment this code
- * was sent to Brian Paul for package inclusion, the XLock Version was not
- * available. In fact, I'll wait it to appear on the next Mesa release (If you
- * are reading this, it means THIS release) to send it for xlock package 
- * inclusion). It will probably there be a GLUT version too.
- *
- * Thanks goes also to Brian Paul for making it possible and inexpensive
- * to use OpenGL at home.
- *
- * Since I'm not a native english speaker, my apologies for any gramatical
- * mistake.
- *
- * My e-mail addresses are
- *
- * vianna@cat.cbpf.br 
- *         and
- * marcelo@venus.rdc.puc-rio.br
- *
- * Marcelo F. Vianna (Feb-13-1997)
- *)
-
-(*
-This document is VERY incomplete, but tries to describe the mathematics used
-in the program. At this moment it just describes how the polyhedra are 
-generated. On futhurer versions, this document will be probabbly improved.
-
-Since I'm not a native english speaker, my apologies for any gramatical
-mistake.
-
-Marcelo Fernandes Vianna 
-- Undergraduate in Computer Engeneering at Catholic Pontifical University
-- of Rio de Janeiro (PUC-Rio) Brasil.
-- e-mail: vianna@cat.cbpf.br or marcelo@venus.rdc.puc-rio.br
-- Feb-13-1997
-
-POLYHEDRA GENERATION
-
-For the purpose of this program it's not sufficient to know the polyhedra
-vertexes coordinates. Since the morphing algorithm applies a nonlinear 
-transformation over the surfaces (faces) of the polyhedron, each face has
-to be divided into smaller ones. The morphing algorithm needs to transform 
-each vertex of these smaller faces individually. It's a very time consoming
-task.
-
-In order to reduce calculation overload, and since all the macro faces of
-the polyhedron are transformed by the same way, the generation is made by 
-creating only one face of the polyhedron, morphing it and then rotating it
-around the polyhedron center. 
-
-What we need to know is the face radius of the polyhedron (the radius of 
-the inscribed sphere) and the angle between the center of two adjacent 
-faces using the center of the sphere as the angle's vertex.
-
-The face radius of the regular polyhedra are known values which I decided
-to not waste my time calculating. Following is a table of face radius for
-the regular polyhedra with edge length = 1:
-
-    TETRAHEDRON  : 1/(2*sqrt(2))/sqrt(3)
-    CUBE        : 1/2
-    OCTAHEDRON   : 1/sqrt(6)
-    DODECAHEDRON : T^2 * sqrt((T+2)/5) / 2     -> where T=(sqrt(5)+1)/2
-    ICOSAHEDRON  : (3*sqrt(3)+sqrt(15))/12
-
-I've not found any reference about the mentioned angles, so I needed to
-calculate them, not a trivial task until I figured out how :)
-Curiously these angles are the same for the tetrahedron and octahedron.
-A way to obtain this value is inscribing the tetrahedron inside the cube
-by matching their vertexes. So you'll notice that the remaining unmatched
-vertexes are in the same straight line starting in the cube/tetrahedron
-center and crossing the center of each tetrahedron's face. At this point
-it's easy to obtain the bigger angle of the isosceles triangle formed by
-the center of the cube and two opposite vertexes on the same cube face.
-The edges of this triangle have the following lenghts: sqrt(2) for the base
-and sqrt(3)/2 for the other two other edges. So the angle we want is:
-     +-----------------------------------------------------------+
-     | 2*ARCSIN(sqrt(2)/sqrt(3)) = 109.47122063449069174 degrees |
-     +-----------------------------------------------------------+
-For the cube this angle is obvious, but just for formality it can be
-easily obtained because we also know it's isosceles edge lenghts:
-sqrt(2)/2 for the base and 1/2 for the other two edges. So the angle we 
-want is:
-     +-----------------------------------------------------------+
-     | 2*ARCSIN((sqrt(2)/2)/1)   = 90.000000000000000000 degrees |
-     +-----------------------------------------------------------+
-For the octahedron we use the same idea used for the tetrahedron, but now
-we inscribe the cube inside the octahedron so that all cubes's vertexes
-matches excatly the center of each octahedron's face. It's now clear that
-this angle is the same of the thetrahedron one:
-     +-----------------------------------------------------------+
-     | 2*ARCSIN(sqrt(2)/sqrt(3)) = 109.47122063449069174 degrees |
-     +-----------------------------------------------------------+
-For the dodecahedron it's a little bit harder because it's only relationship
-with the cube is useless to us. So we need to solve the problem by another
-way. The concept of Face radius also exists on 2D polygons with the name
-Edge radius:
-  Edge Radius For Pentagon (ERp)
-  ERp = (1/2)/TAN(36 degrees) * VRp = 0.6881909602355867905
-  (VRp is the pentagon's vertex radio).
-  Face Radius For Dodecahedron
-  FRd = T^2 * sqrt((T+2)/5) / 2 = 1.1135163644116068404
-Why we need ERp? Well, ERp and FRd segments forms a 90 degrees angle, 
-completing this triangle, the lesser angle is a half of the angle we are 
-looking for, so this angle is:
-     +-----------------------------------------------------------+
-     | 2*ARCTAN(ERp/FRd)        = 63.434948822922009981 degrees |
-     +-----------------------------------------------------------+
-For the icosahedron we can use the same method used for dodecahedron (well
-the method used for dodecahedron may be used for all regular polyhedra)
-  Edge Radius For Triangle (this one is well known: 1/3 of the triangle height)
-  ERt = sin(60)/3 = sqrt(3)/6 = 0.2886751345948128655
-  Face Radius For Icosahedron
-  FRi= (3*sqrt(3)+sqrt(15))/12 = 0.7557613140761707538
-So the angle is:
-     +-----------------------------------------------------------+
-     | 2*ARCTAN(ERt/FRi)        = 41.810314895778596167 degrees |
-     +-----------------------------------------------------------+
-
-*)
-
-
-let scale = 0.3
-
-let vect_mul (x1,y1,z1) (x2,y2,z2) =
-  (y1 *. z2 -. z1 *. y2, z1 *. x2 -. x1 *. z2, x1 *. y2 -. y1 *. x2)
-
-let sqr a = a *. a
-
-(* Increasing this values produces better image quality, the price is speed. *)
-(* Very low values produces erroneous/incorrect plotting *)
-let tetradivisions =            23
-let cubedivisions =             20
-let octadivisions =             21
-let dodecadivisions =           10
-let icodivisions =              15
-
-let tetraangle =                109.47122063449069174
-let cubeangle =                 90.000000000000000000
-let octaangle =                 109.47122063449069174
-let dodecaangle =               63.434948822922009981
-let icoangle =                  41.810314895778596167
-
-let pi = acos (-1.)
-let sqrt2 = sqrt 2.
-let sqrt3 = sqrt 3.
-let sqrt5 = sqrt 5.
-let sqrt6 = sqrt 6.
-let sqrt15 = sqrt 15.
-let cossec36_2 = 0.8506508083520399322
-let cosd x =  cos (float x /. 180. *. pi)
-let sind x =  sin (float x /. 180. *. pi)
-let cos72 = cosd 72
-let sin72 = sind 72
-let cos36 = cosd 36
-let sin36 = sind 36
-
-(*************************************************************************)
-
-let front_shininess =   60.0
-let front_specular  =   0.7, 0.7, 0.7, 1.0
-let ambient         =   0.0, 0.0, 0.0, 1.0
-let diffuse         =   1.0, 1.0, 1.0, 1.0
-let position0       =   1.0, 1.0, 1.0, 0.0
-let position1       =   -1.0,-1.0, 1.0, 0.0
-let lmodel_ambient  =   0.5, 0.5, 0.5, 1.0
-let lmodel_twoside  =   true
-
-let materialRed     =   0.7, 0.0, 0.0, 1.0
-let materialGreen   =   0.1, 0.5, 0.2, 1.0
-let materialBlue    =   0.0, 0.0, 0.7, 1.0
-let materialCyan    =   0.2, 0.5, 0.7, 1.0
-let materialYellow  =   0.7, 0.7, 0.0, 1.0
-let materialMagenta =   0.6, 0.2, 0.5, 1.0
-let materialWhite   =   0.7, 0.7, 0.7, 1.0
-let materialGray    =   0.2, 0.2, 0.2, 1.0
-let all_gray = Array.create 20 materialGray
-
-let vertex ~xf ~yf ~zf ~ampvr2 =
-  let xa = xf +. 0.01 and yb = yf +. 0.01 in
-  let xf2 = sqr xf and yf2 = sqr yf in
-  let factor = 1. -. (xf2 +. yf2) *. ampvr2
-  and factor1 = 1. -. (sqr xa +. yf2) *. ampvr2
-  and factor2 = 1. -. (xf2 +. sqr yb) *. ampvr2 in
-  let vertx = factor *. xf and verty = factor *. yf
-  and vertz = factor *. zf in
-  let neiax = factor1 *. xa -. vertx and neiay = factor1 *. yf -. verty
-  and neiaz = factor1 *. zf -. vertz and neibx = factor2 *. xf -. vertx
-  and neiby = factor2 *. yb -. verty and neibz = factor2 *. zf -. vertz in
-  GlDraw.normal3 (vect_mul (neiax, neiay, neiaz) (neibx, neiby, neibz));
-  GlDraw.vertex3 (vertx, verty, vertz)
-
-let triangle ~edge ~amp ~divisions ~z =
-  let divi = float divisions in
-  let vr = edge *. sqrt3 /. 3. in
-  let ampvr2 = amp /. sqr vr
-  and zf = edge *. z in
-  let ax = edge *. (0.5 /. divi)
-  and ay = edge *. (-0.5 *. sqrt3 /. divi)
-  and bx = edge *. (-0.5 /. divi) in
-  for ri = 1 to divisions do
-    GlDraw.begins `triangle_strip;
-    for ti = 0 to ri - 1 do
-      vertex ~zf ~ampvr2
-       ~xf:(float (ri-ti) *. ax +. float ti *. bx)
-       ~yf:(vr +. float (ri-ti) *. ay +. float ti *. ay);
-      vertex ~zf ~ampvr2
-       ~xf:(float (ri-ti-1) *. ax +. float ti *. bx)
-       ~yf:(vr +. float (ri-ti-1) *. ay +. float ti *. ay)
-    done;
-    vertex ~xf:(float ri *. bx) ~yf:(vr +. float ri *. ay) ~zf ~ampvr2;
-    GlDraw.ends ()
-  done
-
-let square ~edge ~amp ~divisions ~z =
-  let divi = float divisions in
-  let zf = edge *. z
-  and ampvr2 = amp /. sqr (edge *. sqrt2 /. 2.) in
-  for yi = 0 to divisions - 1 do
-    let yf = edge *. (-0.5 +. float yi /. divi) in
-    let yf2 = sqr yf in
-    let y = yf +. 1.0 /. divi *. edge in
-    let y2 = sqr y in
-    GlDraw.begins `quad_strip;
-    for xi = 0 to divisions do
-      let xf = edge *. (-0.5 +. float xi /. divi) in
-      vertex ~xf ~yf:y ~zf ~ampvr2;
-      vertex ~xf ~yf ~zf ~ampvr2
-    done;
-    GlDraw.ends ()
-  done
-
-let pentagon ~edge ~amp ~divisions ~z =
-  let divi = float divisions in
-  let zf = edge *. z
-  and ampvr2 = amp /. sqr(edge *. cossec36_2) in
-  let x =
-    Array.init 6
-      ~f:(fun fi -> -. cos (float fi *. 2. *. pi /. 5. +. pi /. 10.)
-                    /. divi *. cossec36_2 *. edge)
-  and y =
-    Array.init 6
-      ~f:(fun fi -> sin (float fi *. 2. *. pi /. 5. +. pi /. 10.)
-                    /. divi *. cossec36_2 *. edge)
-  in
-  for ri = 1 to divisions do
-    for fi = 0 to 4 do
-      GlDraw.begins `triangle_strip;
-      for ti = 0 to ri-1 do
-       vertex ~zf ~ampvr2
-         ~xf:(float(ri-ti) *. x.(fi) +. float ti *. x.(fi+1))
-         ~yf:(float(ri-ti) *. y.(fi) +. float ti *. y.(fi+1));
-       vertex ~zf ~ampvr2
-         ~xf:(float(ri-ti-1) *. x.(fi) +. float ti *. x.(fi+1))
-         ~yf:(float(ri-ti-1) *. y.(fi) +. float ti *. y.(fi+1))
-      done;
-      vertex ~xf:(float ri *. x.(fi+1)) ~yf:(float ri *. y.(fi+1)) ~zf ~ampvr2;
-      GlDraw.ends ()
-    done
-  done
-
-let call_list list color =
-  GlLight.material ~face:`both (`diffuse color);
-  GlList.call list
-
-let draw_tetra ~amp ~divisions ~color =
-  let list = GlList.create `compile in
-  triangle ~edge:2.0 ~amp ~divisions ~z:(0.5 /. sqrt6);
-  GlList.ends();
-
-  call_list list color.(0);
-  GlMat.push();
-  GlMat.rotate ~angle:180.0 ~z:1.0 ();
-  GlMat.rotate ~angle:(-.tetraangle) ~x:1.0 ();
-  call_list list color.(1);
-  GlMat.pop();
-  GlMat.push();
-  GlMat.rotate ~angle:180.0 ~y:1.0 ();
-  GlMat.rotate ~angle:(-180.0 +. tetraangle) ~x:0.5 ~y:(sqrt3 /. 2.) ();
-  call_list list color.(2);
-  GlMat.pop();
-  GlMat.rotate ~angle:180.0 ~y:1.0 ();
-  GlMat.rotate ~angle:(-180.0 +. tetraangle) ~x:0.5 ~y:(-.sqrt3 /. 2.) ();
-  call_list list color.(3);
-
-  GlList.delete list
-
-let draw_cube ~amp ~divisions ~color =
-  let list = GlList.create `compile in
-  square ~edge:2.0 ~amp ~divisions ~z:0.5;
-  GlList.ends ();
-
-  call_list list color.(0);
-  for i = 1 to 3 do
-    GlMat.rotate ~angle:cubeangle ~x:1.0 ();
-    call_list list color.(i)
-  done;
-  GlMat.rotate ~angle:cubeangle ~y:1.0 ();
-  call_list list color.(4);
-  GlMat.rotate ~angle:(2.0 *. cubeangle) ~y:1.0 ();
-  call_list list color.(5);
-
-  GlList.delete list
-
-let draw_octa ~amp ~divisions ~color =
-  let list = GlList.create `compile in
-  triangle ~edge:2.0 ~amp ~divisions ~z:(1.0 /. sqrt6);
-  GlList.ends ();
-
-  let do_list (i,y) =
-    GlMat.push();
-    GlMat.rotate ~angle:180.0 ~y:1.0 ();
-    GlMat.rotate ~angle:(-.octaangle) ~x:0.5 ~y ();
-    call_list list color.(i);
-    GlMat.pop()
-  in
-  call_list list color.(0);
-  GlMat.push();
-  GlMat.rotate ~angle:180.0 ~z:1.0 ();
-  GlMat.rotate ~angle:(-180.0 +. octaangle) ~x:1.0 ();
-  call_list list color.(1);
-  GlMat.pop();
-  List.iter [2, sqrt3 /. 2.0; 3, -.sqrt3 /. 2.0] ~f:do_list;
-  GlMat.rotate ~angle:180.0 ~x:1.0 ();
-  GlLight.material ~face:`both (`diffuse color.(4));
-  GlList.call list;
-  GlMat.push();
-  GlMat.rotate ~angle:180.0 ~z:1.0 ();
-  GlMat.rotate ~angle:(-180.0 +. octaangle) ~x:1.0 ();
-  GlLight.material ~face:`both (`diffuse color.(5));
-  GlList.call list;
-  GlMat.pop();
-  List.iter [6, sqrt3 /. 2.0; 7, -.sqrt3 /. 2.0] ~f:do_list;
-
-  GlList.delete list
-
-let draw_dodeca ~amp ~divisions ~color =
-  let tau = (sqrt5 +. 1.0) /. 2.0 in
-  let list = GlList.create `compile in
-  pentagon ~edge:2.0 ~amp ~divisions
-    ~z:(sqr(tau) *. sqrt ((tau+.2.0)/.5.0) /. 2.0);
-  GlList.ends ();
-
-  let do_list (i,angle,x,y) =
-    GlMat.push();
-    GlMat.rotate ~angle:angle ~x ~y ();
-    call_list list color.(i);
-    GlMat.pop();
-  in
-  GlMat.push ();
-  call_list list color.(0);
-  GlMat.rotate ~angle:180.0 ~z:1.0 ();
-  List.iter ~f:do_list
-    [ 1, -.dodecaangle, 1.0, 0.0;
-      2, -.dodecaangle, cos72, sin72;
-      3, -.dodecaangle, cos72, -.sin72;
-      4, dodecaangle, cos36, -.sin36;
-      5, dodecaangle, cos36, sin36 ];
-  GlMat.pop ();
-  GlMat.rotate ~angle:180.0 ~x:1.0 ();
-  call_list list color.(6);
-  GlMat.rotate ~angle:180.0 ~z:1.0 ();
-  List.iter ~f:do_list
-    [ 7, -.dodecaangle, 1.0, 0.0;
-      8, -.dodecaangle, cos72, sin72;
-      9, -.dodecaangle, cos72, -.sin72;
-      10, dodecaangle, cos36, -.sin36 ];
-  GlMat.rotate ~angle:dodecaangle ~x:cos36 ~y:sin36 ();
-  call_list list color.(11);
-
-  GlList.delete list
-
-let draw_ico ~amp ~divisions ~color =
-  let list = GlList.create `compile in
-  triangle ~edge:1.5 ~amp ~divisions
-    ~z:((3.0 *. sqrt3 +. sqrt15) /. 12.0);
-  GlList.ends ();
-
-  let do_list1 i =
-    GlMat.rotate ~angle:180.0 ~y:1.0 ();
-    GlMat.rotate ~angle:(-180.0 +. icoangle) ~x:0.5 ~y:(sqrt3/.2.0) ();
-    call_list list color.(i)
-  and do_list2 i =
-    GlMat.rotate ~angle:180.0 ~y:1.0 ();
-    GlMat.rotate ~angle:(-180.0 +. icoangle) ~x:0.5 ~y:(-.sqrt3/.2.0) ();
-    call_list list color.(i)
-  and do_list3 i =
-    GlMat.rotate ~angle:180.0 ~z:1.0 ();
-    GlMat.rotate ~angle:(-.icoangle) ~x:1.0 ();
-    call_list list color.(i)
-  in
-  GlMat.push ();
-  call_list list color.(0);
-  GlMat.push ();
-  do_list3 1;
-  GlMat.push ();
-  do_list1 2;
-  GlMat.pop ();
-  do_list2 3;
-  GlMat.pop ();
-  GlMat.push ();
-  do_list1 4;
-  GlMat.push ();
-  do_list1 5;
-  GlMat.pop();
-  do_list3 6;
-  GlMat.pop ();
-  do_list2 7;
-  GlMat.push ();
-  do_list2 8;
-  GlMat.pop ();
-  do_list3 9;
-  GlMat.pop ();
-  GlMat.rotate ~angle:180.0 ~x:1.0 ();
-  call_list list color.(10);
-  GlMat.push ();
-  do_list3 11;
-  GlMat.push ();
-  do_list1 12;
-  GlMat.pop ();
-  do_list2 13;
-  GlMat.pop ();
-  GlMat.push ();
-  do_list1 14;
-  GlMat.push ();
-  do_list1 15;
-  GlMat.pop ();
-  do_list3 16;
-  GlMat.pop ();
-  do_list2 17;
-  GlMat.push ();
-  do_list2 18;
-  GlMat.pop ();
-  do_list3 19;
-
-  GlList.delete list
-
-class view area = object (self)
-  val area : GlGtk.area = area
-  val mutable smooth = true
-  val mutable step = 0.
-  val mutable obj = 1
-  val mutable draw_object = fun ~amp -> ()
-  val mutable magnitude = 0.
-
-  method width =  area#misc#allocation.Gtk.width
-  method height = area#misc#allocation.Gtk.height
-
-  method draw () =
-    let ratio = float self#height /. float self#width in
-    GlClear.clear [`color;`depth];
-    GlMat.push();
-    GlMat.translate ~z:(-10.0) ();
-    GlMat.scale ~x:(scale *. ratio) ~y:scale ~z:scale ();
-    GlMat.translate ()
-      ~x:(2.5 *. ratio *. sin (step *. 1.11))
-      ~y:(2.5 *. cos (step *. 1.25 *. 1.11));
-    GlMat.rotate ~angle:(step *. 100.) ~x:1.0 ();
-    GlMat.rotate ~angle:(step *. 95.) ~y:1.0 ();
-    GlMat.rotate ~angle:(step *. 90.) ~z:1.0 ();
-    draw_object ~amp:((sin step +. 1.0/.3.0) *. (4.0/.5.0) *. magnitude);
-    GlMat.pop();
-    Gl.flush();
-    area#swap_buffers ();
-    step <- step +. 0.05
-
-  method reshape ~width ~height =
-    GlDraw.viewport ~x:0 ~y:0 ~w:width ~h:height;
-    GlMat.mode `projection;
-    GlMat.load_identity();
-    GlMat.frustum ~x:(-1.0, 1.0) ~y:(-1.0, 1.0) ~z:(5.0, 15.0);
-    GlMat.mode `modelview
-
-  method key sym =
-    begin match sym with
-      "1" -> obj <- 1
-    | "2" -> obj <- 2
-    | "3" -> obj <- 3
-    | "4" -> obj <- 4
-    | "5" -> obj <- 5
-    | "\r" -> smooth <- not smooth
-    | "\027" -> area#misc#toplevel#destroy (); exit 0
-    | _ -> ()
-    end;
-    self#pinit
-
-  method pinit =
-    begin match obj with
-      1 ->
-       draw_object <- draw_tetra
-            ~divisions:tetradivisions
-            ~color:[|materialRed;  materialGreen;
-                    materialBlue; materialWhite|];
-       magnitude <- 2.5
-    | 2 ->
-       draw_object <- draw_cube
-            ~divisions:cubedivisions
-            ~color:[|materialRed; materialGreen; materialCyan;
-                    materialMagenta; materialYellow; materialBlue|];
-       magnitude <- 2.0
-    | 3 ->
-       draw_object <- draw_octa
-            ~divisions:octadivisions
-            ~color:[|materialRed; materialGreen; materialBlue;
-                    materialWhite; materialCyan; materialMagenta;
-                    materialGray; materialYellow|];
-       magnitude <- 2.5
-    | 4 ->
-      draw_object <- draw_dodeca
-          ~divisions:dodecadivisions
-          ~color:[|materialRed; materialGreen; materialCyan;
-                  materialBlue; materialMagenta; materialYellow;
-                  materialGreen; materialCyan; materialRed;
-                  materialMagenta; materialBlue; materialYellow|];
-      magnitude <- 2.0
-    | 5 ->
-       draw_object <- draw_ico
-            ~divisions:icodivisions
-            ~color:[|materialRed; materialGreen; materialBlue;
-                    materialCyan; materialYellow; materialMagenta;
-                    materialRed; materialGreen; materialBlue;
-                    materialWhite; materialCyan; materialYellow;
-                    materialMagenta; materialRed; materialGreen;
-                    materialBlue; materialCyan; materialYellow;
-                    materialMagenta; materialGray|];
-       magnitude <- 3.5
-    | _ -> ()
-    end;
-    GlDraw.shade_model (if smooth then `smooth else `flat)
-  initializer
-    area#connect#display ~callback:self#draw;
-    area#connect#reshape ~callback:self#reshape;
-    ()
-end
-
-open GMain
-
-let main () =
-  List.iter ~f:print_string
-    [ "Morph 3D - Shows morphing platonic polyhedra\n";
-      "Author: Marcelo Fernandes Vianna (vianna@cat.cbpf.br)\n";
-      "Ported to LablGL by Jacques Garrigue\n\n";
-      "  [1]    - Tetrahedron\n";
-      "  [2]    - Hexahedron (Cube)\n";
-      "  [3]    - Octahedron\n";
-      "  [4]    - Dodecahedron\n";
-      "  [5]    - Icosahedron\n";
-      "[RETURN] - Toggle smooth/flat shading\n";
-      " [ESC]   - Quit\n" ];
-  flush stdout;
-
-  let window =
-    GWindow.window ~title:"Morph 3D - Shows morphing platonic polyhedra" ()
-  in
-  window#connect#destroy ~callback:Main.quit;
-  window#set_resize_mode `IMMEDIATE;
-
-  let area = GlGtk.area [`DEPTH_SIZE 1;`RGBA;`DOUBLEBUFFER]
-      ~width:640 ~height:480 ~packing:window#add () in
-
-  let view = new view area in
-
-  area#connect#realize ~callback:
-    begin fun () ->
-      view#pinit;
-      GlClear.depth 1.0;
-      GlClear.color (0.0, 0.0, 0.0);
-      GlDraw.color (1.0, 1.0, 1.0);
-
-      GlClear.clear [`color;`depth];
-      Gl.flush();
-
-      List.iter ~f:(GlLight.light ~num:0)
-       [`ambient ambient; `diffuse diffuse; `position position0];
-      List.iter ~f:(GlLight.light ~num:1)
-       [`ambient ambient; `diffuse diffuse; `position position1];
-      GlLight.light_model (`ambient lmodel_ambient);
-      GlLight.light_model (`two_side lmodel_twoside);
-      List.iter ~f:Gl.enable
-       [`lighting;`light0;`light1;`depth_test;`normalize];
-
-      GlLight.material ~face:`both (`shininess front_shininess);
-      GlLight.material ~face:`both (`specular front_specular);
-
-      GlMisc.hint `fog `fastest;
-      GlMisc.hint `perspective_correction `fastest;
-      GlMisc.hint `polygon_smooth `fastest
-    end;
-
-  window#event#connect#key_press
-    ~callback:(fun ev -> view#key (GdkEvent.Key.string ev); true);
-
-  Timeout.add ~ms:20
-    ~callback:(fun _ -> if area#misc#visible then view#draw (); true);
-  window#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/GL/planet.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/GL/planet.ml
deleted file mode 100644 (file)
index 51f947c..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/GL/planet.ml
+++ /dev/null
@@ -1,125 +0,0 @@
-(* $Id$ *)
-
-class planet area = object (self)
-  val area : GlGtk.area = area
-  val mutable year = 0.0
-  val mutable day = 0.0
-  val mutable eye = 0.0
-  val mutable time = 0.0
-
-  method tick new_time =
-    if time = 0. then time <- new_time else
-    let diff = new_time -. time in
-    time <- new_time;
-    day <- mod_float (day +. diff *. 200.) 360.0;
-    year <- mod_float (year +. diff *. 20.) 360.0
-  method day_add () =
-    day <- mod_float (day +. 10.0) 360.0
-  method day_subtract () =
-    day <- mod_float (day -. 10.0) 360.0
-  method year_add () =
-    year <- mod_float (year +. 5.0) 360.0
-  method year_subtract () =
-    year <- mod_float (year -. 5.0) 360.0
-  method eye x =
-    eye <- x; self#display ()
-
-  method display () =
-    GlClear.clear [`color;`depth];
-
-    GlDraw.color (1.0, 1.0, 1.0);
-    GlMat.push();
-    GlMat.rotate ~angle:eye ~x:1. ();
-(*     draw sun        *)
-    GlLight.material ~face:`front (`specular (1.0,1.0,0.0,1.0));
-    GlLight.material ~face:`front (`shininess 5.0);
-    GluQuadric.sphere ~radius:1.0 ~slices:32 ~stacks:32 ();
-(*     draw smaller planet     *)
-    GlMat.rotate ~angle:year ~y:1.0 ();
-    GlMat.translate ~x:3.0 ();
-    GlMat.rotate ~angle:day ~y:1.0 ();
-    GlDraw.color (0.0, 1.0, 1.0);
-    GlDraw.shade_model `flat;
-    GlLight.material ~face:`front(`shininess 128.0);
-    GluQuadric.sphere ~radius:0.2 ~slices:10 ~stacks:10 ();
-    GlDraw.shade_model `smooth;
-    GlMat.pop ();
-    Gl.flush ();
-    area#swap_buffers ()
-end
-
-let myinit () =
-  let light_ambient = 0.5, 0.5, 0.5, 1.0
-  and light_diffuse = 1.0, 0.8, 0.2, 1.0
-  and light_specular = 1.0, 1.0, 1.0, 1.0
-  (*  light_position is NOT default value      *)
-  and light_position = 1.0, 1.0, 1.0, 0.0
-  in
-  List.iter ~f:(GlLight.light ~num:0)
-    [ `ambient light_ambient; `diffuse light_diffuse;
-      `specular light_specular; `position light_position ];
-  GlFunc.depth_func `less;
-  List.iter ~f:Gl.enable [`lighting; `light0; `depth_test];
-  GlDraw.shade_model `smooth
-
-
-let my_reshape ~width:w ~height:h =
-  GlDraw.viewport ~x:0 ~y:0 ~w ~h;
-  GlMat.mode `projection;
-  GlMat.load_identity();
-  GluMat.perspective ~fovy:60.0 ~aspect:(float w /. float h) ~z:(1.0,20.0);
-  GlMat.mode `modelview;
-  GlMat.load_identity();
-  GlMat.translate ~z:(-5.0) ()
-
-(*  Main Loop
- *  Open window with initial window size, title bar, 
- *  RGBA display mode, and handle input events.
- *)
-open GMain
-open GdkKeysyms
-
-let main () =
-  let w = GWindow.window ~title:"Planet" () in
-  w#connect#destroy ~callback:(fun () -> Main.quit (); exit 0);
-  w#set_resize_mode `IMMEDIATE;
-  let hb = GPack.hbox ~packing:w#add () in
-  let area = GlGtk.area [`DOUBLEBUFFER;`RGBA;`DEPTH_SIZE 1]
-      ~width:700 ~height:500 ~packing:hb#add () in
-  area#event#add [`KEY_PRESS];
-
-  let planet = new planet area in
-  let adjustment = GData.adjustment ~value:0. ~lower:(-90.) ~upper:90.
-      ~step_incr:1. ~page_incr:5. ~page_size:5. () in
-  let scale = GRange.scale `VERTICAL ~adjustment ~draw_value:false
-      ~packing:hb#pack () in
-  adjustment#connect#value_changed
-    ~callback:(fun () -> planet#eye adjustment#value);
-  w#event#connect#key_press ~callback:
-    begin fun ev ->
-      let key = GdkEvent.Key.keyval ev in
-      if key = _Left then planet#year_subtract () else
-      if key = _Right then planet#year_add () else
-      if key = _Up then planet#day_add () else
-      if key = _Down then planet#day_subtract () else
-      if key = _Escape then w#destroy ();
-      planet#display ();
-      true
-    end;
-  
-  Timeout.add ~ms:20 ~callback:
-    begin fun () ->
-      planet#tick (Sys.time ()); planet#display (); true
-    end;
-  area#connect#display ~callback:planet#display;
-  area#connect#reshape ~callback:my_reshape;
-
-  area#connect#realize ~callback:
-    begin fun () ->
-      myinit ();
-      my_reshape ~width:700 ~height:500
-    end;
-  w#show ();
-  Main.main ()
-
-let _ = Printexc.print main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/GL/simple.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/GL/simple.ml
deleted file mode 100644 (file)
index ea6ebde..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/GL/simple.ml
+++ /dev/null
@@ -1,33 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let main () =
-  let w = GWindow.window ~title:"LablGL/Gtk" () in
-  w#connect#destroy ~callback:Main.quit;
-  let area =
-    GlGtk.area [`RGBA;`DEPTH_SIZE 1] ~width:500 ~height:500 ~packing:w#add () in
-  area#connect#realize ~callback:
-    begin fun () ->
-      GlMat.mode `projection;
-      GlMat.load_identity ();
-      GlMat.ortho ~x:(-1.0,1.0) ~y:(-1.0,1.0) ~z:(-1.0,1.0);
-    end;
-  area#connect#display ~callback:
-    begin fun () ->
-      GlClear.color (0.0, 0.0, 0.0);
-      GlClear.clear [`color];
-      GlDraw.color (1.0, 1.0, 1.0);
-      GlDraw.begins `polygon;
-      GlDraw.vertex ~x:(-0.5) ~y:(-0.5) ();
-      GlDraw.vertex ~x:(-0.5) ~y:(0.5) ();
-      GlDraw.vertex ~x:(0.5) ~y:(0.5) ();
-      GlDraw.vertex ~x:(0.5) ~y:(-0.5) ();
-      GlDraw.ends ();
-      Gl.flush ()
-    end;
-  Timeout.add ~ms:10000 ~callback:(fun () -> w#destroy ();false);
-  w#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/README b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/README
deleted file mode 100644 (file)
index 6cbb5b6..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/README
+++ /dev/null
@@ -1,17 +0,0 @@
-Since this library was written in commuting label mode, examples were
-also written in this mode.
-Still, the following examples also compile in classic mode without
-any modification.
-
-* calendar.ml
-* clist.ml
-* drawing.ml
-* entry.ml
-* events.ml
-* fifteen.ml
-* hello.ml
-* image.ml
-* radiobuttons.ml
-* rpn.ml
-* scrolledwin.ml
-* testinput.ml
\ No newline at end of file

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/buttons.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/buttons.ml
deleted file mode 100644 (file)
index 78eebb0..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/buttons.ml
+++ /dev/null
@@ -1,26 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let xpm_label_box ~(window : #GContainer.container)
-    ~file ~text ?packing ?(show=true) () =
-  if not (Sys.file_exists file) then failwith (file ^ " does not exist");
-  let box = GPack.hbox ~border_width: 2 ?packing ~show:false () in
-  let pixmap = GDraw.pixmap_from_xpm ~file ~window () in
-  GMisc.pixmap pixmap ~packing:(box#pack ~padding:3) ();
-  GMisc.label ~text ~packing:(box#pack ~padding:3) ();
-  if show then box#misc#show ();
-  new GObj.widget_full box#as_widget
-
-let main () =
-  let window = GWindow.window ~title:"Pixmap'd Buttons!" ~border_width:10 () in
-  window#connect#destroy ~callback:Main.quit;
-  let button = GButton.button ~packing:window#add () in
-  button#connect#clicked ~callback:
-    (fun () -> prerr_endline "Hello again - cool button was pressed");
-  xpm_label_box ~window ~file:"test.xpm" ~text:"cool button"
-    ~packing:button#add ();
-  window#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/calc.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/calc.ml
deleted file mode 100644 (file)
index 405d1bf..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/calc.ml
+++ /dev/null
@@ -1,114 +0,0 @@
-(* $Id$ *)
-
-(* A simple calculator ported from LablTk to LablGtk *)
-
-let mem_string ~char s =
-  try
-    for i = 0 to String.length s -1 do
-      if s.[i] = char then raise Exit
-    done; false
-  with Exit -> true
-
-let ops = ['+',(+.); '-',(-.); '*',( *.); '/',(/.)]
-
-(* The abstract calculator class. Does not use Gtk *)
-
-class virtual calc = object (calc)
-  val mutable x = 0.0
-  val mutable op = None
-  val mutable displaying = true
-
-  method virtual set : string -> unit
-  method virtual get : string
-  method virtual quit : unit -> unit
-  method insert s = calc#set (calc#get ^ s)
-  method get_float = float_of_string (calc#get)
-
-  initializer calc#set "0"
-
-  method command s =
-    if s <> "" then match s.[0] with
-      '0'..'9' ->
-       if displaying then (calc#set ""; displaying <- false);
-       calc#insert s
-    | '.' ->
-       if displaying then
-         (calc#set "0."; displaying <- false)
-       else
-         if not (mem_string ~char:'.' calc#get) then calc#insert s
-    | '+'|'-'|'*'|'/' as c ->
-       displaying <- true;
-       begin match op with
-         None ->
-           x <- calc#get_float;
-           op <- Some (List.assoc c ops)
-       | Some f ->
-           x <- f x (calc#get_float);
-           op <- Some (List.assoc c ops);
-           calc#set (string_of_float x)
-       end
-    | '='|'\n'|'\r' ->
-       displaying <- true;
-       begin match op with
-         None -> ()
-       | Some f ->
-           x <- f x (calc#get_float);
-           op <- None;
-           calc#set (string_of_float x)
-       end
-    | 'q' -> calc#quit ()
-    | _ -> ()
-end
-
-(* Buttons for the calculator *)
-
-let m =
-  [|[|"7";"8";"9";"+"|];
-    [|"4";"5";"6";"-"|];
-    [|"1";"2";"3";"*"|];
-    [|"0";".";"=";"/"|]|]
-
-(* The physical calculator. Inherits from the abstract one *)
-
-open GMain
-
-class calculator ?packing ?show () =
-  let table = GPack.table ~rows:5 ~columns:4 ~homogeneous:true ~show:false () in
-  object (calc)
-    inherit calc
-
-    val label =
-      let frame = GBin.frame ~shadow_type:`IN ()
-       ~packing:(table#attach ~left:0 ~top:0 ~right:4 ~expand:`BOTH) in
-      let evbox = GBin.event_box ~packing:frame#add () in
-      evbox#misc#set_style evbox#misc#style#copy;
-      evbox#misc#style#set_bg [`NORMAL,`WHITE];
-      GMisc.label ~justify:`RIGHT ~xalign:0.95 ~packing:evbox#add ()
-    val table = table
-
-    method set = label#set_text
-    method get = label#text
-    method quit = Main.quit
-
-    initializer
-      for i = 0 to 3 do for j = 0 to 3 do
-       let button =
-         GButton.button ~label:("  " ^ m.(i).(j) ^ "  ")
-           ~packing:(table#attach ~top:(i+1) ~left:j ~expand:`BOTH) () in
-       button#connect#clicked ~callback:(fun () -> calc#command m.(i).(j));
-      done done;
-      ignore (GObj.pack_return table ~packing ~show)
-  end
-
-(* Finally start everything *)
-
-let w = GWindow.window ~auto_shrink:true ()
-
-let applet = new calculator ~packing: w#add ()
-
-let _ =
-  w#connect#destroy ~callback: Main.quit;
-  w#event#connect#key_press
-    ~callback:(fun ev -> applet#command (GdkEvent.Key.string ev); true);
-  w#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/calendar.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/calendar.ml
deleted file mode 100644 (file)
index 233c744..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/calendar.ml
+++ /dev/null
@@ -1,21 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let main () =
-  let window = GWindow.window () in
-  window#connect#destroy ~callback:Main.quit;
-
-  let calendar = GMisc.calendar ~packing:window#add () in
-  calendar#connect#day_selected ~callback:
-    begin fun () ->
-      let (year,month,day) = calendar#date in
-      Printf.printf "You selected %d/%d/%02d.\n"
-       day (month+1) (year mod 100);
-      flush stdout
-    end;
-
-  window#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/clist.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/clist.ml
deleted file mode 100644 (file)
index f900f17..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/clist.ml
+++ /dev/null
@@ -1,51 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let main () =
-  let window = GWindow.window ~title:"CList example" ~width:300 ~height:150 () in
-  window#connect#destroy ~callback:Main.quit;
-
-  let vbox = GPack.vbox ~border_width:5 ~packing:window#add () in
-
-  let hbox = GPack.hbox ~packing:vbox#add () in
-  let sb =
-    GRange.scrollbar `VERTICAL ~packing:(hbox#pack ~from:`END) () in
-  let clist =
-    GList.clist ~titles:["Ingredients";"Amount"] ~shadow_type:`OUT
-      ~packing:hbox#add ~vadjustment:sb#adjustment () in
-  clist#connect#select_row ~callback:
-    begin fun ~row ~column ~event ->
-      let text = clist#cell_text row column in
-      Printf.printf "You selected row %d. More specifically you clicked in column %d, and the text in this cell is %s\n\n" row column text;
-      flush stdout
-    end;
-
-  let hbox = GPack.hbox ~packing:vbox#pack () in
-
-  let button_add = GButton.button ~label:"Add List" ~packing:hbox#add () in
-  button_add#connect#clicked ~callback:
-    begin fun () ->
-      List.iter ~f:(fun t -> ignore (clist#append t))
-       [ ["Milk"; "3 Oz"];
-         ["Water"; "6 l"];
-         ["Carrots"; "2"];
-         ["Snakes"; "55"] ]
-    end;
-
-  let button_clear = GButton.button ~label:"Clear List" ~packing:hbox#add () in
-  button_clear#connect#clicked ~callback:clist#clear;
-
-  let button_hide_show =
-    GButton.button ~label:"Hide/Show titles" ~packing:hbox#add () in
-  let flag = ref false in
-  button_hide_show#connect#clicked ~callback:
-    begin fun () ->
-      clist#set_titles_show !flag;
-      flag := not !flag
-    end;
-
-  window#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/combo.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/combo.ml
deleted file mode 100644 (file)
index 9aff1b3..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/combo.ml
+++ /dev/null
@@ -1,23 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let make_arrow_label combo ~label ~string =
-  let item = GList.list_item () in (* no packing here, it blocks GTK *)
-  let hbox = GPack.hbox ~spacing:3 ~packing:item#add () in
-  GMisc.arrow ~kind:`RIGHT ~shadow:`OUT ~packing:hbox#pack ();
-  GMisc.label ~text:label ~packing:hbox#pack ();
-  combo#set_item_string item string;
-  combo#list#add item;
-  item
-
-let main () =
-  let window = GWindow.window ~border_width:10 () in
-  window#connect#destroy ~callback:Main.quit;
-  let combo = GEdit.combo ~packing:window#add () in
-  make_arrow_label combo ~label:"First item" ~string:"1st item";
-  make_arrow_label combo ~label:"Second item" ~string:"2nd item";
-  window#show ();
-  Main.main ()
-  
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/csview.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/csview.ml
deleted file mode 100644 (file)
index eaf8de1..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/csview.ml
+++ /dev/null
@@ -1,155 +0,0 @@
-(* $Id$ *)
-
-(* A simple CSV data viewer *)
-
-type data =
-    { fields : string list;
-      titles : string list;
-      data : string list list }
-
-let mem_string ~char s =
-  try
-    for i = 0 to String.length s - 1 do
-      if s.[i] = char then raise Exit
-    done;
-    false
-  with Exit -> true
-
-let rec until ~chars ?(escapes="") ?(buf = Buffer.create 80) s =
-  match Stream.peek s with
-    Some c ->
-      if mem_string ~char:c escapes then begin
-        Stream.junk s;
-        Buffer.add_char buf (Stream.next s);
-        until ~chars ~escapes ~buf s
-      end else if mem_string ~char:c chars then
-        Buffer.contents buf
-      else begin
-        Buffer.add_char buf c;
-        Stream.junk s;
-        until ~chars ~escapes ~buf s
-      end
-  | None ->
-      if Buffer.length buf > 0 then raise (Stream.Error "until")
-      else raise Stream.Failure
-
-let rec ignores ?(chars = " \t") s =
-  match Stream.peek s with
-    Some c when mem_string ~char:c chars ->
-      Stream.junk s; ignores ~chars s
-  | _ -> ()
-
-let parse_field = parser
-    [< ''"'; f = until ~chars:"\"" ~escapes:"\\"; ''"'; _ = ignores >] ->
-      for i = 0 to String.length f - 1 do
-        if f.[i] = '\031' then f.[i] <- '\n'
-      done;
-      f
-  | [< f = until ~chars:",\n\r" >] -> f
-  | [< >] -> ""
-
-let comma = parser [< '','; _ = ignores >] -> ()
-
-let rec parse_list ~item ~sep = parser
-    [< i = item; s >] ->
-      begin match s with parser
-        [< _ = sep; l = parse_list ~item ~sep >] -> i :: l
-      | [< >] -> [i]
-      end
-  | [< >] -> []
-
-let parse_one = parse_list ~item:parse_field ~sep:comma
-
-let lf = parser [< ''\n'|'\r'; _ = ignores ~chars:"\n\r"; _ = ignores >] -> ()
-
-let parse_all = parse_list ~item:parse_one ~sep:lf
-
-let read_file file =
-  let ic = open_in file in
-  let s = Stream.of_channel ic in
-  let data = parse_all s in
-  close_in ic;
-  match data with
-    ("i"::fields) :: ("T"::titles) :: data ->
-      {fields=fields; titles=titles; data=List.map ~f:List.tl data}
-  | titles :: data ->
-      {fields=titles; titles=titles; data=data}
-  | _ -> failwith "Insufficient data"
-
-let print_string s =
-  Format.print_char '"';
-  for i = 0 to String.length s - 1 do
-    match s.[i] with
-      '\'' -> Format.print_char '\''
-    | '"' -> Format.print_string "\\\""
-    | '\160'..'\255' as c -> Format.print_char c
-    | c -> Format.print_string (Char.escaped c)
-  done;
-  Format.print_char '"'  
-
-(*
-#install_printer print_string;;
-*)
-
-open GMain
-
-let field_widths =
-  [ "i", 0;
-    "ATTR", 0;
-    "NAME", 17;
-    "NAPR", 8;
-    "TEL1", 14;
-    "ZIPC", 12;
-    "ADR1", 40;
-    "BRTH", 10;
-    "RMRK", 20;
-    "CHK1", 0;
-    "CHK2", 0;
-    "CHK3", 0;
-    "CHK4", 0;
-    "TIM1", 16;
-    "TIM2", 16;
-    "ALRM", 0;
-    "ATTM", 0;
-  ]
-
-let main argv =
-  if Array.length argv <> 2 then begin
-    prerr_endline "Usage: csview <csv file>";
-    exit 2
-  end;
-  let data = read_file argv.(1) in
-  let w = GWindow.window () in
-  w#misc#realize ();
-  let style = w#misc#style in
-  let font = Gdk.Font.load_fontset "-schumacher-clean-medium-r-normal--13-*-*-*-c-60-*,-mnkaname-fixed-*--12-*" in
-  let w0 = Gdk.Font.char_width font '0' in
-  style#set_font font;
-  w#connect#destroy ~callback:Main.quit;
-  let sw = GBin.scrolled_window ~width:600 ~height:300 ~packing:w#add () in
-  let cl = GList.clist ~titles:data.titles ~packing:sw#add () in
-  List.fold_left data.fields ~init:0 ~f:
-    begin fun acc f ->
-      let width = try List.assoc f field_widths with Not_found -> -1 in
-      if width = 0 then
-        cl#set_column ~visibility:false acc
-      else begin
-        if width > 0 then cl#set_column ~width:(width * w0) acc
-        else cl#set_column ~auto_resize:true acc;
-        if f = "NAPR" || f = "TIM1" || f = "CLAS" then
-          cl#set_sort ~auto:true ~column:acc ();
-        try
-          let ali = GBin.alignment_cast (cl#column_widget acc) in
-          let lbl = GMisc.label_cast (List.hd ali#children) in
-          lbl#set_alignment ~x:0. ()
-        with _ ->
-          prerr_endline ("No column widget for field " ^ f)
-      end;
-      succ acc
-    end;
-  List.iter data.data
-    ~f:(fun l -> if List.length l > 1 then ignore (cl#append l));
-  w#show ();
-  Main.main ()
-
-let _ = main Sys.argv

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/dcalendar.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/dcalendar.ml
deleted file mode 100644 (file)
index 6128506..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/dcalendar.ml
+++ /dev/null
@@ -1,247 +0,0 @@
-(* $Id$ *)
-
-(* A small calendar *)
-(* Needs Unix module, so use with lablgtk_t *)
-
-open Printf
-
-type date = { mutable year: int; mutable mon: int; mutable mday: int }
-
-    (* Load the schedule data *)
-let calendar_file = Filename.concat (Sys.getenv "HOME") ".camlendar"
-
-let schedule =
-  try
-    let ichan = open_in calendar_file in
-    let (s : (int * int * int, string) Hashtbl.t) =
-      Marshal.from_channel ichan in
-    close_in ichan;
-    s
-  with Sys_error msg ->
-    prerr_endline msg; flush stderr;
-    Hashtbl.create 13;;
-
-    (* Saves the schedule data when the application terminates *)
-at_exit (fun () ->
-  let ochan = open_out calendar_file in
-  Marshal.to_channel ochan schedule ~mode: [];
-  close_out ochan);;
-
-    (* date: Current date initialized to "today" *)
-let date =
-  let tm = Unix.localtime (Unix.time ()) in
-  { year = 1900 + tm.Unix.tm_year; mon = tm.Unix.tm_mon; mday = 1 }
-
-
-    (* previous_month, next_month: change application status *)
-let previous_month () =
-  date.mday <- 1;
-  if date.mon = 0 then
-    (date.year <- date.year - 1; date.mon <- 11)
-  else date.mon <- date.mon - 1
-
-let next_month () =
-  date.mday <- 1;
-  if date.mon = 11 then (date.year <- date.year + 1; date.mon <- 0)
-  else date.mon <- date.mon + 1
-
-    (* leap, mon_name, wday_name: Calendar related function and data *)
-let leap year =
-  (year mod 400 = 0) or
-  (year mod 4 = 0) & (year mod 100 <> 0)
-
-let mdays_in_month = [|31; 28; 31; 30; 31; 30; 31; 31; 30; 31; 30; 31|]
-
-let mon_name =
-  [|"Jan"; "Feb"; "Mar"; "Apr"; "May"; "Jun";
-    "Jul"; "Aug"; "Sep"; "Oct"; "Nov"; "Dec"|]
-
-let wday_name =
-  [|"Sun"; "Mon"; "Tue"; "Wed"; "Thu"; "Fri"; "Sat"|]
-
-let s_normal = 0 and s_focused = 1 and s_planned = 2
-let styles =
-  let default = (Obj.magic () : GObj.style) in
-  [| default; default; default |]
-
-   (* class date_button: one button for each day in the month *)
-class date_button i (calendar : GPack.table) =
-  let mday = i + 1 in
-
-  object (self)
-    val widget = GButton.button ~label: (string_of_int mday) ~show: false ()
-    val mday = mday
-    val mutable show = false
-    val mutable have_plan = false
-
-    method widget = widget
-    method focus_on =
-      date.mday <- mday;
-      widget#misc#set_style styles.(s_focused)
-    method focus_off =
-      widget#misc#set_style styles.(if have_plan then s_planned else s_normal)
-    method set_plan =
-      have_plan <- true;
-      widget#misc#set_style styles.(s_planned)
-    method unset_plan =
-      have_plan <- false;
-      widget#misc#set_style styles.(s_normal)
-       
-    method show wday0 =
-      if not show then
-       let top = (mday + wday0) / 7 + 1
-       and left = (mday + wday0) mod 7 in
-       calendar#attach ~left ~top ~expand:`BOTH widget#coerce;
-       widget#misc#show ();
-       show <- true
-           
-    method hide =
-      if show then
-       (widget#misc#hide ();
-        calendar#remove widget#coerce;
-        show <- false)
-  end
-
-let update_calendar (calendar : GPack.table) (buttons : date_button array) =
-  let now = Unix.localtime (Unix.gettimeofday ()) in
-  let _, first = Unix.mktime { now with 
-                              Unix.tm_mday = 1;
-                              Unix.tm_mon = date.mon;
-                              Unix.tm_year = date.year - 1900 } in
-
-  (* wday0: day of the week of the zero'th day in the month *)
-  let wday0 = (first.Unix.tm_wday - 1 + 7) mod 7 in
-  
-  let ndays =
-    if date.mon = 1 & leap date.year then mdays_in_month.(date.mon) + 1
-    else mdays_in_month.(date.mon) in
-
-  Array.iter ~f: (fun button -> button#hide)
-    buttons;
-
-  for i = 0 to ndays - 1 do buttons.(i)#show wday0 done
-
-let create_GUI () =
-  
-  (* views part *)
-
-  let win =
-    GWindow.window ~title: "Camlendar" ~show: true
-      ~allow_shrink: false ~allow_grow: false () in
-  win#event#connect#delete
-    ~callback: (fun _ -> GMain.Main.quit (); exit 0; false);
-
-  let style = win#misc#style#copy in
-  styles.(s_normal) <- style;
-  
-  let style = style#copy in
-  style#set_bg [`NORMAL, `NAME "light green";
-               `PRELIGHT, `NAME "light green"];
-  styles.(s_focused) <- style;
-
-  styles.(s_focused) <- style;
-  let style = style#copy in
-  style#set_bg [`NORMAL, `NAME "sky blue";
-               `PRELIGHT, `NAME "sky blue"];
-  styles.(s_planned) <- style;
-
-  let vbox = GPack.vbox ~packing: win#add () in
-  let packing = vbox#add in
-  let toolbar = GButton.toolbar ~style: `TEXT ~packing () in
-
-  let prev =
-    toolbar#insert_button ~text: "Prev" ~tooltip: "Show previous month" () in
-  let next =
-    toolbar#insert_button ~text: "Next" ~tooltip: "Show next month" () in
-  
-  let calendar =
-    GPack.table ~homogeneous: true ~rows: 7 ~columns: 7
-      ~border_width: 10 ~row_spacings: 2 ~col_spacings: 2 ~packing () in
-
-  Array.iteri
-    ~f: (fun i wday ->
-      ignore (GButton.button ~label: wday
-               ~packing:(calendar#attach ~top: 0 ~left: i ~expand:`BOTH) ()))
-    wday_name;
-
-  let buttons =
-    Array.init 31 ~f: (fun i -> new date_button i calendar) in
-
-  let date_view = GMisc.label ~justify: `CENTER ~packing () in
-
-  let text = GEdit.text ~editable: true ~width: 70 ~height: 50 ~packing () in
-
-  (* Controls part *)
-
-  let save_text () =
-    let data = text#get_chars ~start: 0 ~stop: text#length in
-    let key = (date.year, date.mon, date.mday) in
-    Hashtbl.remove schedule key;
-    if data <> "" then
-      (Hashtbl.add schedule ~key ~data;
-       buttons.(date.mday - 1)#set_plan)
-    else buttons.(date.mday - 1)#unset_plan in
-
-  let restore_text () =
-    text#delete_text ~start: 0 ~stop: text#length;
-    try
-      text#insert_text ~pos: 0
-       (Hashtbl.find schedule (date.year, date.mon, date.mday));
-      ()
-    with Not_found -> () in
-
-  let update_date_view () =
-    date_view#set_text (sprintf "%d %s, %d\n"
-                         date.mday mon_name.(date.mon) date.year) in
-  
-  let update_view () =
-    update_calendar calendar buttons;
-    update_date_view ();
-    Array.iteri ~f: (fun i button ->
-      (try
-       Hashtbl.find schedule (date.year, date.mon, i + 1);
-       button#set_plan
-      with Not_found -> button#unset_plan);
-      button#focus_off) buttons;
-    win#set_title (sprintf "Camlendar: %s, %d"
-                    mon_name.(date.mon) date.year) in
-
-  prev#connect#clicked
-    ~callback: (fun () ->
-      save_text ();
-      previous_month ();
-      
-      update_view ();
-      restore_text ();
-      buttons.(0)#focus_on);
-  
-  next#connect#clicked
-    ~callback: (fun () ->
-      save_text ();
-      next_month ();
-      
-      update_view ();
-      restore_text ();
-      buttons.(0)#focus_on);
-  
-  Array.iteri
-    ~f: (fun i button ->
-      button#widget#connect#clicked
-       ~callback: (fun () ->
-         save_text ();
-         buttons.(date.mday - 1)#focus_off;
-
-         button#focus_on;
-         restore_text ();
-         update_date_view ());
-      ())
-    buttons;
-
-  update_view ();
-  buttons.(0)#focus_on;;
-
-GMain.Main.init ();
-print_endline (GtkMain.Main.set_locale ());
-flush stdout;
-create_GUI ();
-GMain.Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/drawing.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/drawing.ml
deleted file mode 100644 (file)
index a4623ba..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/drawing.ml
+++ /dev/null
@@ -1,19 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let window = GWindow.window ~show:true ()
-
-let w = window#misc#window
-let drawing = new GDraw.drawable w
-
-let redraw _ =
-  drawing#polygon ~filled:true
-    [ 10,100; 35,35; 100,10; 165,35; 190,100;
-      165,165; 100,190; 35,165; 10,100 ];
-  false
-
-let _ =
-  window#connect#destroy ~callback:Main.quit;
-  window#event#connect#after#configure ~callback:redraw;
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/editor.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/editor.ml
deleted file mode 100644 (file)
index 5e3da80..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/editor.ml
+++ /dev/null
@@ -1,101 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let file_dialog ~title ~callback ?filename () =
-  let sel =
-    GWindow.file_selection ~title ~modal:true ?filename () in
-  sel#cancel_button#connect#clicked ~callback:sel#destroy;
-  sel#ok_button#connect#clicked ~callback:
-    begin fun () ->
-      let name = sel#get_filename in
-      sel#destroy ();
-      callback name
-    end;
-  sel#show ()
-
-class editor ?packing ?show () = object (self)
-  val text = GEdit.text ~editable:true ?packing ?show ()
-  val mutable filename = None
-
-  method text = text
-
-  method load_file name =
-    try
-      let ic = open_in name in
-      filename <- Some name;
-      text#freeze ();
-      text#delete_text ~start:0 ~stop:text#length;
-      let buf = String.create 1024 and len = ref 0 in
-      while len := input ic ~buf ~pos:0 ~len:1024; !len > 0 do
-       if !len = 1024 then text#insert buf
-       else text#insert (String.sub buf ~pos:0 ~len:!len)
-      done;
-      text#set_point 0;
-      text#thaw ();
-      close_in ic
-    with _ -> ()
-
-  method open_file () = file_dialog ~title:"Open" ~callback:self#load_file ()
-
-  method save_dialog () =
-    file_dialog ~title:"Save" ?filename
-      ~callback:(fun file -> self#output ~file) ()
-
-  method save_file () =
-    match filename with
-      Some file -> self#output ~file
-    | None -> self#save_dialog ()
-
-  method output ~file =
-    try
-      if Sys.file_exists file then Sys.rename ~src:file ~dst:(file ^ "~");
-      let oc = open_out file in
-      output_string oc (text#get_chars ~start:0 ~stop:text#length);
-      close_out oc;
-      filename <- Some file
-    with _ -> prerr_endline "Save failed"
-end
-
-let window = GWindow.window ~width:500 ~height:300 ~title:"editor" ()
-let vbox = GPack.vbox ~packing:window#add ()
-
-let menubar = GMenu.menu_bar ~packing:vbox#pack ()
-let factory = new GMenu.factory menubar
-let accel_group = factory#accel_group
-let file_menu = factory#add_submenu "File"
-let edit_menu = factory#add_submenu "Edit"
-
-let hbox = GPack.hbox ~packing:vbox#add ()
-let editor = new editor ~packing:hbox#add ()
-let scrollbar = GRange.scrollbar `VERTICAL ~packing:hbox#pack ()
-
-open GdkKeysyms
-
-let _ =
-  window#connect#destroy ~callback:Main.quit;
-  let factory = new GMenu.factory file_menu ~accel_group in
-  factory#add_item "Open..." ~key:_O ~callback:editor#open_file;
-  factory#add_item "Save" ~key:_S ~callback:editor#save_file;
-  factory#add_item "Save as..." ~callback:editor#save_dialog;
-  factory#add_separator ();
-  factory#add_item "Quit" ~key:_Q ~callback:window#destroy;
-  let factory = new GMenu.factory edit_menu ~accel_group in
-  factory#add_item "Copy" ~key:_C ~callback:editor#text#copy_clipboard;
-  factory#add_item "Cut" ~key:_X ~callback:editor#text#cut_clipboard;
-  factory#add_item "Paste" ~key:_V ~callback:editor#text#paste_clipboard;
-  factory#add_separator ();
-  factory#add_check_item "Word wrap" ~active:false
-    ~callback:editor#text#set_word_wrap;
-  factory#add_check_item "Read only" ~active:false
-    ~callback:(fun b -> editor#text#set_editable (not b));
-  window#add_accel_group accel_group;
-  editor#text#event#connect#button_press
-    ~callback:(fun ev ->
-      let button = GdkEvent.Button.button ev in
-      if button = 3 then begin
-       file_menu#popup ~button ~time:(GdkEvent.Button.time ev); true
-      end else false);
-  editor#text#set_vadjustment scrollbar#adjustment;
-  window#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/entry.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/entry.ml
deleted file mode 100644 (file)
index 30f3c3d..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/entry.ml
+++ /dev/null
@@ -1,48 +0,0 @@
-(* $Id$ *)
-
-open Printf
-open GMain
-
-let enter_callback entry =
-  printf "Entry contents: %s\n" entry#text;
-  flush stdout
-
-let entry_toggle_editable button entry =
-  entry#set_editable button#active
-
-let entry_toggle_visibility button entry =
-  entry#set_visibility button#active
-
-let main () =
-
-  let window = GWindow.window ~title: "GTK Entry" ~width: 200 ~height: 100 () in
-  window#connect#destroy ~callback:Main.quit;
-
-  let vbox = GPack.vbox ~packing: window#add () in
-
-  let entry = GEdit.entry ~max_length: 50 ~packing: vbox#add () in
-  entry#connect#activate ~callback:(fun () -> enter_callback entry);
-  entry#set_text "Hello";
-  entry#append_text " world";
-  entry#select_region ~start:0 ~stop:entry#text_length;
-
-  let hbox = GPack.hbox ~packing: vbox#add () in
-
-  let check = GButton.check_button ~label: "Editable" ~active: true
-      ~packing: hbox#add () in
-  check#connect#toggled ~callback:(fun () -> entry_toggle_editable check entry);
-
-  let check =
-    GButton.check_button ~label:"Visible" ~active:true ~packing:hbox#add () in
-  check#connect#toggled
-    ~callback:(fun () -> entry_toggle_visibility check entry);
-
-  let button = GButton.button ~label: "Close" ~packing: vbox#add () in
-  button#connect#clicked ~callback:window#destroy;
-  button#grab_default ();
-
-  window#show ();
-
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/events.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/events.ml
deleted file mode 100644 (file)
index 91a9872..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/events.ml
+++ /dev/null
@@ -1,25 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let _ =
-  let window = GWindow.window () in
-  window#connect#destroy ~callback:Main.quit;
-
-  let text = GEdit.text ~editable:true ~packing:window#add () in
-  text#event#connect#button_press ~callback:
-    begin fun ev ->
-      GdkEvent.Button.button ev = 3 &&
-      GdkEvent.get_type ev = `BUTTON_PRESS &&
-      begin
-       let pos = text#position in
-       GdkEvent.Button.set_button ev 1;
-       text#event#send (GdkEvent.coerce ev);
-       Printf.printf "Position is %d.\n" text#position;
-       flush stdout;
-       text#set_position pos;
-       true
-      end
-    end;
-  window#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/fifteen.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/fifteen.ml
deleted file mode 100644 (file)
index efdf51f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/fifteen.ml
+++ /dev/null
@@ -1,97 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GObj
-open GMain
-
-class position ~init_x ~init_y ~min_x ~min_y ~max_x ~max_y = object
-  val mutable x = init_x
-  val mutable y = init_y
-  method current = (x, y)
-  method up ()    = if y > min_y then y <- y-1 else (); (x, y)
-  method down ()  = if y < max_y then y <- y+1 else (); (x, y)
-  method left ()  = if x > min_x then x <- x-1 else (); (x, y)
-  method right () = if x < max_x then x <- x+1 else (); (x, y)
-end
-
-let game_init () = (* generate initial puzzle state *)
-  let rec game_aux acc rest n_invert =
-    let len = List.length rest in
-    if len=0 then
-      if n_invert mod 2 = 0 then
-       acc (* to be solvable, n_invert must be even *)
-      else
-       (List.hd (List.tl acc))::(List.hd acc)::(List.tl (List.tl acc))
-    else begin
-      let rec extract n xs =
-       if (n=0) then (List.hd xs, List.tl xs)
-       else
-         let (ans, ys) = extract (n-1) (List.tl xs) in
-          (ans, List.hd xs :: ys) in
-      let ran = Random.int len in
-      let (elm, rest1) = extract ran rest in
-      let rec count p xs = match xs with
-       [] -> 0
-      |        y :: ys -> let acc = count p ys in
-                if p y then 1+acc else acc
-      in
-      let new_n_invert = count (fun x -> elm > x) acc in
-      game_aux (elm :: acc) rest1 (n_invert+new_n_invert)
-    end in
-  let rec from n = if n=0 then [] else n :: from (n-1) in
-  game_aux [] (from 15) 0
-      
-let _ = Random.init (int_of_float (Sys.time () *. 1000.))
-let window = GWindow.window ()
-let _ = window#connect#destroy ~callback:GMain.Main.quit
-
-let tbl = GPack.table ~rows:4 ~columns:4 ~homogeneous:true ~packing:window#add ()
-let dummy = GMisc.label ~text:"" ~packing:(tbl#attach ~left:3 ~top:3) ()
-let arr = Array.create_matrix ~dimx:4 ~dimy:4 dummy
-let init = game_init ()
-let _ =
-  for i = 0 to 15 do
-    let j = i mod 4  in
-    let k = i/4 in
-    let frame =
-      GBin.frame ~shadow_type:`OUT ~width:32 ~height:32
-       ~packing:(tbl#attach ~left:j ~top:k) () in
-    if i < 15 then
-      arr.(j).(k) <-
-       GMisc.label ~text:(string_of_int (List.nth init i))
-         ~packing:frame#add ()
-  done
-let pos = new position ~init_x:3 ~init_y:3 ~min_x:0 ~min_y:0 ~max_x:3 ~max_y:3
-    
-open GdkKeysyms
-
-let _ =
-  window#event#connect#key_press ~callback:
-    begin fun ev ->
-      let (x0, y0) = pos#current in
-      let wid0 = arr.(x0).(y0) in
-      let key = GdkEvent.Key.keyval ev in
-      if key = _q || key = _Escape then (Main.quit (); exit 0) else
-      let (x1, y1) =
-       if key = _h || key = _Left then 
-          pos#right ()
-       else if key = _j || key = _Down then
-         pos#up ()
-       else if key = _k || key = _Up then
-         pos#down ()
-       else if key = _l || key = _Right then
-         pos#left ()
-       else (x0, y0)
-      in
-      let wid1 = arr.(x1).(y1) in
-      wid0#set_text (wid1#text);
-      wid1#set_text "";
-      true
-    end
-             
-let main () = 
-  window#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/fixed_editor.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/fixed_editor.ml
deleted file mode 100644 (file)
index 1cde124..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/fixed_editor.ml
+++ /dev/null
@@ -1,279 +0,0 @@
-open Gdk  
-open Gtk
-open GObj
-open GMain
-
-let dnd_source_window () =
-  let window = GWindow.window ~position:`MOUSE () in
-  let vbx = GPack.vbox ~border_width:10 ~packing:window#add ()
-  in   
-  let evb = GBin.event_box ~border_width:0 ~packing:vbx#add () in
-  let frm = GBin.frame ~shadow_type:`OUT ~packing:evb#add () in
-  let lbl = GMisc.label ~text:"hello" ~packing:frm#add () in
-  let lbl2 = GMisc.label ~text:"drag from here!" ~packing:vbx#add () in
-  let targets = [ { target = "STRING"; flags = []; info = 0} ] in
-  begin
-    window#show ();
-    evb#drag#source_set targets ~modi:[`BUTTON1] ~actions:[`COPY];
-    evb#drag#connect#data_get ~callback: begin
-      fun _ data ~info ~time:_ ->
-       data#set ~typ:data#target ~format:0 ~data:"hello! "
-    end
-  end
-
-let corner_width  = 7  
-let corner_height = 7
-
-type drag_action_type =
-    GB_DRAG_NONE
-  | GB_MIDDLE
-  | GB_TOP
-  | GB_BOTTOM
-  | GB_LEFT
-  | GB_RIGHT
-  | GB_TOP_LEFT
-  | GB_TOP_RIGHT
-  | GB_BOTTOM_LEFT
-  | GB_BOTTOM_RIGHT
-
-let get_position_in_widget w ~x ~y ~width ~height =
-  if (x <= corner_width) then
-    if (y <= corner_height) then
-      GB_TOP_LEFT
-    else if (y >= height-corner_width) then
-      GB_BOTTOM_LEFT
-    else GB_LEFT
-  else if (x >= width-corner_width) then
-    if (y <= corner_height) then
-      GB_TOP_RIGHT
-    else if (y >= height-corner_width) then
-      GB_BOTTOM_RIGHT
-    else GB_RIGHT
-  else if (y <= corner_height) then
-      GB_TOP
-    else if (y >= height-corner_width) then
-      GB_BOTTOM
-    else GB_MIDDLE
-    
-class drag_info = object
-  val mutable drag_action = GB_DRAG_NONE
-  val mutable drag_offset = (0, 0)
-  val mutable toimen      = (0, 0)
-  val mutable drag_widget = None
-  method drag_action = drag_action
-  method drag_offset = drag_offset
-  method toimen = toimen (* coord. of opposite corner *)
-  method set_drag_widget (w : GObj.widget) = begin
-    match drag_widget with
-      None -> begin
-       GMain.Grab.add w;
-       drag_widget <- Some w;
-       ()
-      end
-    | Some w -> ()
-  end
-  method unset_drag_widget () = begin
-    match drag_widget with
-      Some w -> begin
-       GMain.Grab.remove w;
-       drag_widget <- None;
-       ()
-      end
-    | None -> ()
-  end
-  method set_drag_offset ~x ~y = drag_offset <- (x, y)
-  method set_drag_action (w : Gdk.window) ~x ~y =
-    begin
-      let (x0, y0) = Window.get_position w in
-      let (width, height) = Window.get_size w in
-      drag_action <- get_position_in_widget w ~x ~y ~width ~height;
-      let (x1, y1) = (x0+width, y0+height) in
-      toimen <-
-       match drag_action with
-         GB_TOP_LEFT     -> (x1, y1)
-       | GB_BOTTOM_LEFT  -> (x1, y0)
-       | GB_TOP_RIGHT    -> (x0, y1)
-       | GB_BOTTOM_RIGHT -> (x0, y0)
-       | GB_TOP          -> (x0, y1)
-       | GB_BOTTOM       -> (x0, y0)
-       | GB_LEFT         -> (x1, y0)
-       | GB_RIGHT        -> (x0, y0)
-       |  _              -> (-1, -1) 
-    end
-  method unset_drag_action () = drag_action <- GB_DRAG_NONE
-end
-
-    
-let to_grid g x = x - (x mod g)
-  
-let to_grid2 g (x, y) = (to_grid g x, to_grid g y)
-
-class fix_editor ~width ~height ~packing =
-  let info = new drag_info in
-  let fix = GPack.fixed ~width ~height ~packing () in
-  let _ = fix#misc#realize () in
-  let fix_window = fix#misc#window in
-  let fix_drawing = new GDraw.drawable fix_window in
-
-  object (self)
-    inherit GObj.widget fix#as_widget
-    val mutable grid = 1
-    method set_grid g =
-      if (grid != g) then begin
-       let pix =
-          GDraw.pixmap ~window:fix ~width:g ~height:g ~mask:true () in
-       let c = fix#misc#style#bg `NORMAL in
-       pix#set_foreground (`COLOR c);
-       pix#rectangle ~filled:true ~x:0 ~y:0 ~width:g ~height:g ();
-       pix#set_foreground `BLACK;
-       pix#point ~x:0 ~y:0;
-       Gdk.Window.set_back_pixmap (fix#misc#window) (`PIXMAP pix#pixmap)
-      end;
-      grid <- g
-
-    method new_child ~name ~x ~y ~width ~height ~callback =
-      let evb = GBin.event_box ~border_width:0 ~packing:fix#add () in
-      let lbl = GMisc.label ~text:name ~width ~height ~packing:evb#add () in
-      evb#misc#realize ();
-      evb#misc#set_geometry ~x ~y ();
-      self#connect_signals ~ebox:evb ~widget:lbl#coerce ~callback;
-      ()
-
-    method private connect_signals
-      ~ebox:(ebox : GBin.event_box) ~widget:(widget : widget) ~callback:cbfun =
-      let drawing = new GDraw.drawable (ebox#misc#window) in
-      let draw_id = ref None in
-      let exps_id = ref None in
-      let on_paint _ =
-       let (width, height) = Window.get_size (ebox#misc#window) in begin
-         drawing#set_foreground `BLACK;
-         drawing#rectangle ~filled:true ~x:0 ~y:0
-           ~width:corner_width ~height:corner_height ();
-         drawing#rectangle ~filled:true ~x:(width-corner_width) ~y:0
-           ~width:corner_width ~height:corner_height ();
-         drawing#rectangle ~filled:true
-           ~x:(width-corner_width)
-           ~y:(height-corner_height)
-           ~width:corner_width ~height:corner_height ();
-         drawing#rectangle ~filled:true
-           ~x:0
-           ~y:(height-corner_height)
-           ~width:corner_width ~height:corner_height ();
-         drawing#rectangle ~filled:false
-           ~x:0 ~y:0 ~width:(width-1) ~height:(height-1) ();
-       end
-      in
-      ebox#event#connect#button_press ~callback:
-       begin fun ev -> 
-         let bx = int_of_float (GdkEvent.Button.x ev) in
-         let by = int_of_float (GdkEvent.Button.y ev) in
-         info#set_drag_action (ebox#misc#window) ~x:bx ~y:by;
-         info#set_drag_offset ~x:bx ~y:by;
-         true
-       end;
-      ebox#event#connect#motion_notify ~callback:
-       begin fun ev ->
-         info#set_drag_widget ebox#coerce;
-         let action = info#drag_action in
-         let (mx, my) = fix#misc#pointer in
-         let (ox, oy) = info#drag_offset in
-         begin match action with
-           GB_MIDDLE ->
-             let (nx, ny) = to_grid2 grid (mx-ox, my-oy) in
-             ebox#misc#set_geometry ~x:nx ~y:ny ();
-             if cbfun ~x:nx ~y:ny ~width:(-2) ~height:(-2) then
-               ()
-             else (* should we undo ? *) ()
-         | GB_DRAG_NONE -> () (* do nothing *)
-         | GB_TOP_LEFT | GB_BOTTOM_LEFT
-         | GB_TOP_RIGHT | GB_BOTTOM_RIGHT ->
-             let (toi_x, toi_y) =  info#toimen in
-             let (mx, my) = to_grid2 grid (mx, my) in
-             let (lx, rx) =
-               if mx<toi_x then (mx, toi_x) else (toi_x, mx) in
-             let (ty, by) =
-               if my<toi_y then (my, toi_y) else (toi_y, my) in
-             let (w, h) = (rx-lx, by-ty) in
-             ebox#misc#set_geometry ~x:lx ~y:ty ~width:w ~height:h ();
-             if cbfun ~x:lx ~y:ty ~width:w ~height:h then
-               ()
-             else (* should we undo ? *) ()
-         | GB_TOP | GB_BOTTOM ->
-             let (lx, toi_y) = info#toimen in
-             let my = to_grid grid my in
-             let (ty, by) = if my<toi_y then (my, toi_y) else (toi_y, my) in
-             let h = by-ty in
-             ebox#misc#set_geometry ~y:ty ~height:h ();
-             if cbfun ~x:lx ~y:ty ~width:(-2) ~height:h then
-               ()
-             else (* should we undo ? *) ()
-         | GB_LEFT | GB_RIGHT ->
-             let (toi_x, ty) = info#toimen in
-             let mx = to_grid grid mx in
-             let (lx, rx) = if mx<toi_x then (mx, toi_x) else (toi_x, mx) in
-             let w = rx-lx in 
-             ebox#misc#set_geometry ~x:lx ~width:w ();
-             if cbfun ~x:lx ~y:ty ~width:w ~height:(-2) then
-               ()
-             else (* should we undo ? *) ()
-         end;
-         true
-       end;
-      ebox#event#connect#button_release ~callback:
-       begin fun ev -> 
-         info#unset_drag_action ();
-         info#unset_drag_widget ();
-         true
-       end;
-      exps_id := Some (ebox#event#connect#after#expose
-                         ~callback:(fun _ -> on_paint(); false));
-      draw_id := Some (ebox#misc#connect#draw ~callback:on_paint);
-      ()
-    initializer
-      fix#drag#dest_set ~actions:[`COPY]
-       [ { target = "STRING"; flags = []; info = 0} ];
-      fix#drag#connect#data_received ~callback: begin
-       fun context ~x ~y data ~info ~time ->
-         let name = data#data in
-         let _ = self#new_child ~name ~x ~y ~width:32 ~height:32
-             ~callback:(fun ~x ~y ~width ~height -> true) in
-(*               Printf.printf "%s %d %d\n" (data#data) x y;
-                 flush stdout; *)
-         context#finish ~success:true ~del:false ~time;
-      end;
-      ()
-  end
-    
-(* the following is for test only *)
-let window1 () =    
-  let window = GWindow.window () in
-  let _ = window#connect#destroy ~callback: Main.quit in
-  let fix = new fix_editor ~width:640 ~height:480 ~packing:window#add in
-  fix#set_grid 5;
-  let setter = fix#new_child ~name:"hello" ~x:100 ~y:200 ~width:32 ~height:32
-      ~callback:begin fun ~x ~y ~width ~height ->
-       (* Printf.printf "name=%s, x=%d, y=%d, width=%d, height=%d\n"
-                     "hello" x y width height;
-       flush stdout; *)
-       true
-      end in
-   window#show ();
-  ()
-
-
-    
-let main () =
-  window1 ();
-  dnd_source_window ();
-  Main.main ()
-  
-let _ = main ()
-
-(* Todo
-   
-   change mouse cursor
-   resize fixed itself
-   remove_child
-   (drag and) drop
-   
-*)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/fixpoint.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/fixpoint.ml
deleted file mode 100644 (file)
index c33b74d..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/fixpoint.ml
+++ /dev/null
@@ -1,30 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let rec fix ~f ~eq x =
-  let x' = f x in
-  if eq x x' then x
-  else fix ~f ~eq x'
-
-let eq_float x y = abs_float (x -. y) < 1e-13
-
-let _ =
-  let top = GWindow.window () in
-  top#connect#destroy ~callback:Main.quit;
-  let vbox = GPack.vbox ~packing: top#add () in
-  let entry = GEdit.entry ~max_length: 20 ~packing: vbox#add () in
-  let tips = GData.tooltips () in
-  tips#set_tip entry#coerce ~text:"Initial value for fix-point";
-  let result =
-    GEdit.entry ~max_length: 20 ~editable: false ~packing: vbox#add () in
-
-  entry#connect#activate ~callback:
-    begin fun () ->
-      let x = try float_of_string entry#text with _ -> 0.0 in
-      entry#set_text (string_of_float (cos x));
-      let res = fix ~f:cos ~eq:eq_float x in
-      result#set_text (string_of_float res)
-    end;
-  top#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/hello.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/hello.ml
deleted file mode 100644 (file)
index 15ede9a..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/hello.ml
+++ /dev/null
@@ -1,18 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let window = GWindow.window ~border_width: 10 ()
-
-let button = GButton.button ~label:"Hello World" ~packing: window#add ()
-
-let main () =
-  window#event#connect#delete 
-    ~callback:(fun _ -> prerr_endline "Delete event occured"; true);
-  window#connect#destroy ~callback:Main.quit;
-  button#connect#clicked ~callback:(fun () -> prerr_endline "Hello World");
-  button#connect#clicked ~callback:window#destroy;
-  window#show ();
-  Main.main ()
-
-let _ = Printexc.print main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/image.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/image.ml
deleted file mode 100644 (file)
index faf82cf..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/image.ml
+++ /dev/null
@@ -1,67 +0,0 @@
-(* $Id$ *)
-
-open GMain
-open Gdk
-
-(* load image *)
-let buf = String.create (256*256*3)
-let ic = open_in_bin "image256x256.rgb"
-let _ = 
-  really_input ic ~buf:buf ~pos:0 ~len:(256*256*3);
-  close_in ic
-
-let rgb_at x y =
-  let offset = (y * 256 + x) * 3 in
-  (int_of_char buf.[offset  ],
-   int_of_char buf.[offset+1],
-   int_of_char buf.[offset+2])
-
-(* let id = Thread.create GtkThread.main () *)
-
-(* Choose a visual appropriate for RGB *)
-let _ =
-  Gdk.Rgb.init ();
-  GtkBase.Widget.set_default_visual (Gdk.Rgb.get_visual ());
-  GtkBase.Widget.set_default_colormap (Gdk.Rgb.get_cmap ())
-
-(* We need show: true because of the need of visual *)
-let window = GWindow.window ~show:true ~width: 256 ~height: 256 ()
-
-let visual = window#misc#visual
-
-let color_create = Truecolor.color_creator visual
-
-let w = window#misc#window
-let drawing = new GDraw.drawable w
-
-let _ =
-  window#connect#destroy ~callback:Main.quit;
-
-  let image =
-    Image.create ~kind: `FASTEST ~visual: visual ~width: 256 ~height: 256
-  in
-
-  let draw () =
-    for x = 0 to 255 do
-      for y = 0 to 255 do
-        let r,g,b = rgb_at x y in
-        Image.put_pixel image ~x: x ~y: y 
-          ~pixel: (color_create ~red: (r * 256) ~green: (g * 256) ~blue: (b * 256))
-      done
-    done 
-  in
- 
-  let display () =
-    drawing#image image ~xsrc:0 ~ysrc:0 ~xdest:0 ~ydest:0 ~width:256 ~height:256
-  in
-
-  draw (); 
-
-  window#event#connect#after#expose ~callback:
-    begin fun _ ->
-      display (); false
-    end;
-  (* Thread.join id *)
-
-  window#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/image256x256.rgb b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/image256x256.rgb
deleted file mode 100644 (file)
index 25d4995..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/image256x256.rgb
+++ /dev/null
@@ -1,19 +0,0 @@
-\94·â\95º�\9b±�\93­�\8f\9fÒ\9f¤Ã\9f¦Î¤¦Ûª¤ÎªªÚ¯\9eפ\95�¡\99Ô±¬â­©Þ®§ç\9e®�\9a¶É\94¸Ë¡¶¼¥®Å¢³Ó ´Îª½Æ¨¼Ó¬·Ó¶´�µÀÆ´°¼¬¾À·³ÄÄö¾½ÂÇÀ¼¿½·ÆĹÑÆ�Â�·ÃÌÅ�ÉÙ¼�Ó¿Ê�Æ�ÇÄã�Õß�ØÕ�ÎÜÌÇãÑÑâÙÔ×ÚÈâÈÔÜÄÌØÈÒÒÇ�×ÃÅÛ��áÇËà ÊËêËÚð½×ïÅáíËÞõ¼ñø¿âã·Úæ¾ÜÙÈáâÅÜÙÃÖ×®Ö̳ÞȱØÉ·�Ô²ÑØ«ÑÑ¡Î�\8eÒÜ\97ÔØ\8cà �\91ÖÊ\8f�¼\83ɼ\88μ\88��\90ÔËzãÇwØÉ\80ÚÆ{âÎ\7fçÓ\89�×\85á×\82ÖÜ\7fÓÞ\8aÙÔ\93ØØ\8cÓØ\82Îá\86ÎÒ|Ûà sÓÛzÞ×ráÙyà Ôs×Üi×ØgäÆkåÑoÜ�_á�dà ÈR߸C׸?Ö´GÙ°WÚ°Kç¸EÚ·YÜÊ]ÞÂOÕ¿;Ù½@ÞÃHâË9íÇ<éË@ðÇ8éÉAè´@æ·AòÌ9�Ä7é´@ܲ?Þ½Eä¯CÙ²RάL�¯PÒ¡R�©]̨RÀ¿UÀ²XÉ©FÌ´J�±PŹFË�JÄ¿FÆÄQȼDÒ°OÔ­DدHÒ³PѵPɶY�Ä^Ë¿WÙ¬PÎ\9e[ѧWتOˬW�¨Y�\98ZÎ\9ddØ£ZÌ·X�°EŹPε\�®N½»T½³Y´ÃY¶¸N¹¶D°³S±¨Y«¨Mª¬U¦¬[§®@ª®T ¯M¥¢M£\9eZ \9cG¬\91E£\91K¥\8fY¢\8cK·\8f[¨\85S¦\97E\9e\90N§\90`¡\96R\9d\98X\9f\83[\91\86Q\9a\82S\9a\91R\99\87U§\80W©\80T\9c\87J¢~Q\9c~C\96tO\94iL\95rS\94tN©lPªoJ¢zT¯pB¥qI\9e[M lC«gC¤lD±cC³YT�SI¸OQ´IBÀIE»ZK»OE¸QH°WU¬TK«QG¹VK®TGºV?¬MD¶Z[¾MGÂUK»ZK²QO½NX¸JZ�HP³KV½J[¼ESÀF]Ä@WÆ;VÆ;\\8f·à \9a´Ù\97«Ò\94¬Õ\99 Î£¥Ê¥±Ë¡­Ø¤«Ñª«Ù¬¤Ò¦\9bѯ\9a�¬ ×«¦×¦§Û\9b«Ê\9e¸Å\97®Æ ²À§¾Èª¹Î±¾ÅªÀÆ£Æ˨��¸¹Ç½¼½¾·¸®²¼½µ»½Â²¼È³ÄÄÀ�·ÂÌ»ÀǽÀÂË¿�ÀÃ�ÃÑÌ��Å�ÉÈÞËËÞÀÓßË�ØÌÇäοáÔÄÕÖÒÚÑ��ÎÑÓËËÑË�ÑÒÆÖÇÄØËÓÙÄÑÞÊÙèÉÛò½á÷ÃÛîÄãö½ëõ¶èé´Úá�å�¸áá¾ÜØ»ÞׯÓ˳ÒƸÊɳ�Ñ°�È£Ç�\9dÆÖ\99È×\8fÎÆ\96ÙÅ\8cÔÂ\95ÌÅ\8f�Ê\96�¾\8fÌÈ\8aÚ�\83äÉ~�Æx�Æzè×\83ãÖ~ßà \85ÙÜ\81Ùß\88ÑÛ\8cÑË\8eÎ×\91�×\85ÎÕxÓØyÙ�\7fÙÔzÞØnßÚmÔânÙØmÙÑfèÓpÚÕm�ÉjèÂ_ã¾Oç·Oä¹IزUÓ¯VÙºQâ»Kß½MÖÈVÓ�P×À@à �>ä¾=ðÀ;ñÌEîÒ8íÌ4êË@ïºDêÀCëÄ4íÄ9�À8ܹ?æ´B�«R�§PѲIË®SØ®QÔ¤\�µQõU�¯L�«PβDĵDƶ?ηHÒ±RɺKDZR�·K̼G�¯HÒ¶HÌ®V׿\ÖÀRÛ±XѨU�\9f[Æ OÀ¤YɬTÒ\9dSÖ\9fSÛ§PÕ®ZÔ´WƱIʺLβZÉ»bÅ´Z»¸^±¹U¹ªHº¬D±ªAª¨I±­U°®Q­©Q \9cG¨¡Q¦¤J¤\97G\9d\98N£\8bO¦\8bQ£\8eO \8aP°\84W®\8cQ¬\99Y¦\95O¨\92N¦\94\\9a\96Z\9b\94P \8dR\99\80S\9c\81Y\9b\83U¢\80X¥\87R\9bzL zW¤x\¡\7fP\9cqY\9amR\9boP\9brS©oN©lI\9fvG¦oL\9faW\99]T¨fL©jD³n=¶bD²\C»^I´OR½HJ¸HH¿RFÆJG¼EV²SI«XH©TL´LO¾MBºU9ÀU@·VO¿MAÄUAÃVI·ML¼LV³H\³GZ·PTÂKZ¼IUÈMTÈ@Y½ARº9V\93°Ù¤ºÙ\91«Õ\8b©×\99\9d�\9f¤�\9f¦Ñ®´Õ²¦Î¨¤�´¤Ô£¥�«£Ø©«Ø±¢Û¯¨�¬¹Ô¢·É¢»Å«³Ã\9bº�¡·�¦ÂÌ©ÄĨ½À©É�°Èɶ»¸³¼¸½º³³¼°¶Ã²¼Â¸¸Î»ËÇÿĺ�ÅÄÃÎ�ÂÀËÈÇ�ÒÃÈÌÌÄÔ×¾ÇÑÀÓÛÌÊ×ÔÃ�Ñ¿ÙÑÀà ÓÊÙÎ×ÒÊÔÖÎ�ÚÎÑÔÜÈ�É�ÓÓÔÕÔ×èÈà æ�áêÉßô»ÚóÂÞî¶êõµçñ¸åëÅÚé´à áÀá�³ÛÛ©äÙ«ÒÇ´Ôη×ĹÉ΢�Å\9eÓÑ\94ØÎ\93�Ñ\95à �\8cÔÂ\8aÒÂ\88ÓÆ\82ÔÀ\87ÙÄ\82ßÈzÞÉ|äÌnÛØwíà uèÚuÕêzÜâ\86ßÒ\86×Ñ\83Ñ×\91ÙÓ\89�Î\8aÓ�\87ÓÖ\83ÜÔsåÚ\80ß�zÚÞjà �qæâ}êÛlè�uéÊq�È[áÅ^à ÊLÞÄIÞÂLÕ¿Tà ­RÔ»RæÉXØ¿X×ÄIãÀFåÃJå�JíÈIíËD÷ÉHõÈ:ëÕ9ôÂ9ö¿Fä½7îÇ7á·2áÆ?ç¾FæªKà ªWÞ TÒ­VÒ­LÎ\9e]Ö\9d^Ò¨Pö^�§O̳T�¶K�´MʼBѼIÖ»Kʱ?̯JÕ¯?Ë­FÚ¨Kׯ?Ú¦BÜ´N�²Sß°K΢I�¥N�ªNÆ®OÒ¯JÕ¦LÙ¨I�­NѱRŶT·RÄ´O¾º^ǺS�²Zµ»Q¯²O·©@¿¡G¼¯9°¤?¨ª<²­F¯¥A² E«\96B¢ E®\95@¨\9aQ¨\89R\9d\8bN©\95G¡\91K¥\87Q®\92P°\8aD­\8fN¨\90K¥\8fX\99\8cU \97N\9b\93Y\97\8a^ \89`£\8f_ \90X\9c\86\\9f\81Y\9c\87Z£\83M\93zV\99}U\9cwZ\98iM\92jR¢lU dJ qV¡kP£]L\93W_£`W iLª\M´YT³\O´PQ²RSÂJJ¹DEÂGD·MT·EI²FU¦[O¤GR­BN±MHºJCºZ<°_CÄ]<ÊNBÇKE�TK¿O[¶N\ÃLMÂGOÃGPÃDWÇJLË:YÄ8Pº4\\98²Þ\9d³�\99²Ô\92¢�\9aªÙ¡ Ûª¯�­±Øµ©Ì³£�·«Ñ®¦Ó¶¥Ù´©Ô±ºÈ±¹Ë®¸É±¶Å¨¯�¦¹Ë\9d¶�\9e�Å¡ºÆ¢»Ä¬ÂħÇÆ«Ì»¸¿¶½»¼½¾³º½³´Â³µÌ¹»ÈµÂÑÀ¿Ì¹�À·ÎĹ�¼�ÓÅ�×Å�ÔËÌÒ�Ã�ÈÄËÃÔÂÌÖÄËÖÅÛ×ÌÙ�Î�Ñ�ÙÌÉÑ��ÚÛ�××��ËÈÒ��×ÔÛç�ÖðÂ�éÃáî�áñ·Úì·áëµìè¾ìè½ãæ¸ãÛ´ÞÔµáÛ¯�ÔªÜ�¯ØȵÖÆ°ÎÀ´ÒȨá̦ÞÄ\92�Î\8b×Ê\8b��\92�Ë\8aÖÅ\85ÕÇ\7f�ÒsØÒpæØqä×tåÑtá×vßäuÙâuÕÚnßÕwÒÚ\81ÔÑ\86ÒÌ\8bà Ì\80ä×\82ÜÑ\80å�\81à Ówæ�{âÕvâ�|ìÚ{ïßyéÛoÞÜbâÔYêË\à ÅWá¿TÛÀU�¶SÞ»NÜÃHÞÆS×ÉVÚ�IáÂPê¹EåÆ@ëÆHõÈN÷ÅBíËHò�CêÓ?íÆCéÊ=å¼9æ¹5ã»Bæ°IÞ®NÔ«\Ó¤YÚ \Ó§UÌ®YΣQÒ¡^ɪ]ά_ëXŲPÉ·J�·@�ºDÖ³HÒ¸DÌ­>̬A�®:׫AÓ­7�¦;ÚµGÙ³JÜ®RØ­I�¬RÇ­RÒ«JÕ²HÒ²SÔ¨N�«KÖ«MѸWÄ·P¼ÃV¼ÄY·ÇO¾¾PĽN¸µF³­<³¡?­©:·¦9·¡:±\9e=µ\98Aº¢7µ\936¯\929´\93B§\8aH¢\8aG \8cE§\87> \92E¦\94Iª\94@¦\92=¬\90C¡\94Q\9e\94X\92\8cW\94\93W\95\8fT\99\84_¤\8e]¤\91b£\8bd\9e\8bW£\88O \89O\9e\8aS\93zP\96\83P\93zQ\94sS\97jJ\8fsS\93lV\9bhW\9c\Y\97b\\9bWY\95SY\9d]R¨RT¯RU®PT´MM¶KN½DJ½GMÄFL¶MN®HF¥KOªMU¯DG§EI¤GG®NCµMI·Y=´S@¾QD¼QNÉTUÅNZÅSUÀTXÀCJÀ>IÉCPÊIYÊAQ�4\¿.X\9e·Û ¶à \92³à \97ªÎ¡¤Ö¥¦Ó¢²Ô±¦Ó¯©Õ©°�¢­Ô©®Õ¥£Ó§¦Õ«±Ì¯¸Ã¯»Å°ÀǬ»Ä¥®¿¦¶½¬À¾¥´É¨º½¡½Â¬Éƶ¾½ÄË®¼º­ºÊ¶»Ã´µ¿²¾¸°¹Æ·¿Ê¬¼Ë¶ÄȮøÓü˾ÇÔ�ÌÜÅÅÊÊÂÃÃÆÇ�Ê�ÆÒËËÒÊ�ØÂØÌËÖÒ�ÛÒÀÛËÊ��ÂÈÕÎÚÑÎÞÃ�ÛÌÞâÌ�çÊÙèËØñ¿ãï®ãò³à ë½äá¿Þí¿ßß·äÙ±ßÙµéβ�Ò³ê̲ÞÄ­Ò�­ÑË\9fÙ�¥ØÆ\9fÙÄ\92ÞÂ\95�Ò\8bÜÓ\88��\90ÖÆ\89ÑÊ}�Ö\7fÜà qÕßtÞÙsèà |à ä|åÙt�è}à ár×âvÑÚ}Ú×~ÓÔ\83à Ö\81ÞÓ}Üà \88ÔÖ}â×qá×oßÓpíâ{èãzêáwïÛlçÓaÜÖaÚÓWÒÊdÞÃ`Ó¾_áÅRãºKÖ·Kæ·UÛµGéÇGæ´Hã¹Iä¿CãÂLîÃIéÊEçÉMíÑCéÂ@èÈJí½A�ÅDâ�<ç±JåºBÚ©DÖ²OÚ­PÞ¬[Þ«O�¦SɱQÌ°Z¿¨gÀ§UDzYDzRɲKʹPÑ¿?×·?ر7�¸?�¡@�¥?�«AÕ\9e@Ôª4Õ­Iß­HÖ·CÌ´L�¦QÆ®[ȪVƪF�\9cGʧIÓ\9eA�¨HõM¿¸KÀ¶NɳMŶQ»ÄB�·?²µB¬­=ª¨<² ;µ£2°¤<¢:¼¥=¼\9dA³\9c;§\97F°\8dC³\96N \87L©\95D\9e\8bE¡\8aF«\96;´\915©\92G¦\97O¥\98K\97\8dU\94\94W\97\93R\90\92`\97\83[\98\8f_\9e\91b\8f\93]\9a\99M\9c\86W\9f\8aT\91\88U\91yW\9dtM\90yP¡rK\9cmN£aR¡^Q\96fV `Y\9aZW\94Z]¤]Q©cL¨TU´QL·MW°QT³OF²OS³UK¿OX¼ET°JU¸HZ®JW´FY¬<S«BR­KI·F<½RJ²YHÀRQ´KOÇOV¼KKÎSTÉLN½>N�=F�:T�BTÌ;Z�6[Ê4Y\91Â×\98¼Þ\9d±ä\98¦Û\97«ß\9a°Ö¢´Õ£©Û¡µÙ¢µÒ£´�¥¨Ë«³Ñ¡°Ó¬¸Ó·¼Ç¯·Ä¡¼Ì\9b²È\9d´Ä©±¿¨¿¹°·º©³Æ³¼º«Æµ»Å­Ãȱ»Ê«¼Æ«½ºµ³¸¶¼�²´½³Ä®ȿ¬¾Ê±ÄÆ·�º¹É¾ÌÖÊÒ×�ÆËØ¿ÉÎÄØ�ÅÕÅÎÕÆØÌÌÑ��ØÆÙ�ÄÞÆÇÕÂÑÌÅ�ÊÕÌ×ÎÃÜÀÔß¾Ôà ÌÙë�ÒíÉÜî¹Úã±âç¸�íµåä´à ã¸êá¬èß«ïÖªéÌ«à ѧç�©äʨÙÆ\9bÚÄ\98çË¡à � à É\91ãÎ\92Ù�\94ÓÔ\9b�Ë\91�Ñ\8dÓÒ\83Òá\83ÕÞ\7fÛæ\87ÞÜ\7fØá\80ÚázÞßpßìv×ëwÙ�\85Üá\87ÓÕ~Õ×\80ÒÕ{ÔÛ\88Öç\87ÜîyÖç{åé\82æà xà äyà ÞyçãyïÚqìÕnßÔlÔÈdѾcÕ¶hÔ»^Û»XÖ»SÙ¾XܱLä²Jë¿Lì´Eå¹Hà ºMâÌMäËQç�Iñ�PìÑHäÄMìÃAæ�>ãÂAà ÄMà ¸Hå­LÙ­?à ´RÕ¯XÓ®UÙ¬VÛ¦c�®_˹`�µc̳`ѨKʪD�¸IÔ·DǵIʳI�¶:³C¢JÅ¡RÒ£IÕ¦Eʨ=ʬLÖ¯QѪCÆ®FÆ­DѧRÄ¥IÄ\9fLÄ\99KÂ\9a<̧CÆ­;êAɯ9ʨ7ƲF¾·MþEÀº?¶µ4º°3±§1±\9f7±\9c.·\91/Â\972´\9f<¶\9d:±\9a=°\8cF¯\95J´\95D¤\9a:¤\90<¦\93?£\8a?¦\883®\856µ\85Eª\91I©\98G\9d\8eN\96\94X\99\8cU\95\84P\9b\88Z\93\8dY\91\83S\8f\8fK\8a\95O\8e\94F\9b\8fM\96\84L\91zY\92yZ\9dyU\9eoW\9feW¤ZR\9f]M\9aiF\94dI\99TR\99Q[\9bRZ¦XP®^LªXM§[TµTJ±MS²UR¯\XµYW±Mb½H\¸O^µMW°?\­?R´CM¹EG¸DD¸OH¾QW´JW±PO·KWÆHNÈLNÌHH¾FSÇJWÇ@O�1`¼/`Â6UÌ,P\92Æá\95Èà  ¿×\9a¸Ù¡¸Ú\99´ä¥²�¡©Ú©³Î¢¼Ò\9b³�\9e¨�¡¯�¬´�¦½Ç®À˧ºÊ\9d°¿£µ¹ µ¼\9d¼½©¾½ª»Å³¯»°Æ²¬À¸À¿©»¿´Ã¿®¿À©¯¼±ªµ©³Ä¤¹Ã©¶»ªÈĢ¹¯¿½§Ì¿²Æ½¼ÖÉÊÜ�Å�ÓÆÎ�¹�ÅÃÞÎÃËÌÈÉ�ÎÇÌÉÅÇ�ÉÈÓÓÒ¿ÇØÌÒ��ÒØ�Ç�ÄÔÙÇÚÖÉÛãÀÙâÀÕÙÂØà ½×è¾ßë½ê�µ�Ò¹äÛ´ëà ®éÓªäÄ°ìɱèȲáѧé�\99à È£îÇ\98åÖ\9eæÖ\8eæ×\93ÓÒ\90�Ó\93ÉÑ\8bÔË\8bÒØ\8fä�\8açÚ\85�×\82êç\83çâyëç{äé\7fäæuäã|ÙÛ\82Þâ~�Þz×ã\89Ñáw��\84Õå}ÒæwÕçsÛêuãåxâà pÜæsÞÖnîÕjç×mà ÎfáÑ_˾cÔ¼eÙ·^ܳ`Ô³Qã¶QܶNæµTå�Rè½Uõ½Fë�JêÒLðÉKòÖTòÌAáËLãÈDèÄJéÆHãÄ@à ÇKÞ´Kè²Hâ´CÖªI�°PصTß­V�µZÉ©d�¶`Ĺ`̳^˦SħTβN³NÀ©JÊ®D̸E�¢HÆ\9f>É«>É«L�§@¾ @�«AÖ«DÔ·H�¸OÊ­@Ò£K�¡D˨EÇ\969Ä\9b7Ǫ?­8�¥>Dz1ǵ:�´;º¼Cº¹>�²@²¾,µµ5·´'·¤/Ã\9d4¼\9b8 /µ\97,´\983°\9cA¶\88Eº\94K¹\9a;µ\97E¦\949¨\89B¥\87;¤\83>²\847¨\90;¯\91Qª\89E\9d\99P¥\92W£\8aV\99\83T\99\8bV\8f\87V\94|Y\88\91X\87\8eW\8f\91Y\92\89L\97\8dY\98wb\9at\\92uS\95jW§mW\95eT¢dS\8fXU\99cA\91aF\9bSH¥VV¨JM£LM³WN¯XNµK\µJKªRU¨WN»_T±]O¸LY·GVµSK½JP±HD·AH¼?E·@H¯MV°JO»TR¿JYºFN·GYËKVÇ?WÂ:ZÇFNÊ@\Ì>Z�/ZÉ4TÑ4Q\90ÄÞ\90Âã\90»é\9e¿ã«ÄÚ©¾à ©¬Ö§ª�§¦Ô ²Ö\9e©Ó£°Ó¤­Êª³Â­®Â¬´Ã¡µÄ¤±¶¨«¼©³»«¾Å¥�À©Å´­»´®½¹¸È­·Å§ºÄª±Ì¢²Ê\9e´¼\9a²½§³Ä¡°¼¡ºÃ\9f�¾§¿½­Ç¿¦Æ½®�¾¸�dzÙʾ�ÑÀÕ�¸�Ë�ÖÉÈÙÒÅÎÉÉÑÈÕÒÃ�Ë�ÌÔÎÉÙÑËÒ���ÑÅËÓÈÑÛÀØÜÃÞã¸Ùà ½à ØÀÚÖ�áâ¶ßÞºáÓ½éÒºìÓ±ìÑ®èÔ®ìǦöÊ®ðÒ®õΩíÉ¡öâð�\92öË\99î×\99ã�\99ØÒ\8eÎË\90ÓÕ\90ÜØ\99Û�\93ìç\90íá\81çè\87ìâ\80ðå|ôä\83èá\7féè~à éz�ßyÕØ}Îà \87Çë\82�å\80�æ|Øëzæå}åà oâèqìãsíápáßoéÜgê�iâËfãÄZß�UÖÊ_ÜÂbÔ¿]Û½\ÞºXå»Zß�Rê·[ð·Xí¼Q÷¾QóÉNî�WêÈTô�QåÚAçÓBåÑDðÌLï�Lí�Hç¿?ê�D�¹<à ¯?å²<æ°Dè·N�·Yà ¶YÓ§`ʲcƬa̵R­QůLƲG�©DÊ©F¼²K»©D½¨9»¢;º­D§CÈ¥DÀ¨@Å¥A�±F�³>Ò´FÑ·BÈ©Cë>Ǥ5ʦ8Ä\9e<º¦@¼®7©5Ç­7õ,¿®0¸¸5¸°6º¯.²¹-¶µ/¼°+¹ª/Å\9c,¾\9f'Ã\9b2¿ 6¸\982°\98A·\90B¼\95=¹\92>¬\945¯\8a;«\8f6¨\8bB©\85Bµ\86A´\8cE´\8dH°\8dG¨\9aR¢\99R¥\91N¡\8dH\9f\89N\99\82R\8f\86Z\84\8aS\88\8dW\90\95b\99\8f[\9f\91U\99\85Y\94{\\93zW\9fnN\9dhT\9di[\95_T\92`G\97\I\9b]G\99VF\9bSG§MR¬P\³K[¯EX¬I\¯DV¦HS°M`µZ[½RM³[J­NPµINµLD¾AF²@E³BOµ=O¬>Z¨L^²L[±DX½JQºNTÃHU�@P¼>ZÃE`ÆC`È=^�4ZÊ)`Î+[\9d¹å\94Ã�\92¸Ø\9e´â\99¹ß«·�§­�­¬Õ©­�\9c®Î\99·Ú¦¬�\9d«Î£¯�¡²É´µÄ¬­º©¸½¥¬Ä©»µ ¿À\9e¶²§²® »´±Ã±±Ä³³¼¦¼½«´Ä¤²�\99¨½¤«¿¦¨�­²�¡¿Ä£¼¾£º³¶Î·®Å»»Ò¾ÂÕ»»ÚÉÀ�Ⱦ��­ÓÌÀÛ�ÈÑÆ»ËÀÈÕÊÊ��¿Ê�¿×Ù�Ñ�ÎÈ×ÎÒÊÉ�ÙÄÅÙ¸Ñ߸Ëå½Ûà ¸�á¼Ôà ÈÕÖµÔî¶à ÙµëÉ»ä�·ïÌ«å�°î�«òѦ÷θëË®ñÉ\9fðÆ\99÷À\98é�\99çÜ\8cÞ�\8eÖÒ\8dÞ�\88ÑÕ\87ÖÌ\84ÞÜ\85ÞÒ\8bêÞ\80à Úwæè{äê\86ñî\86ææ|ÞÙ\84ÛÙxåæ\88ÜÜ\82�æ\85×é\87Çâ\86Ùè{Óò{Þéx×ãvÞâjîáiéånÙÛiÛØeßØoæËkßÊ]ÖÒ[ÚÅgÛÈcѶW×¼WÕ»`ã¶Ué¾Rì¾NéµTì¾Uð�MúÇ^ï�`öÆSïÑMìÆBóËKó�@îÎCôÉEë¿Gç¾Må¸EÞÃ@ܳ>ä°Háµ<Ù®EÙº\Ó±`Ô­YÔ«^È¥eÉ¡a� SƦQ»·C¬HÇ\9eG½«G°£<·¡D¿\9d?¾¤9­C¾¬H»¤E»­<ŪJŬ>ų=Ê©KȬC¯A¸¢2¾ <Ç\996¾¥5Ŷ5�±:Ť8˧1È­2½¤:¯§9´«0³´*÷$¸¸&¹¤.Â\9a)É£1Ê\998»\9f=·\96<¿\9cD¹\9aH­\8b@ª\8eC«\82>¯\84H¢\829«\8a>«\89I¯}F®\91H³\8eL¤\96F­\9bU\9d\9aP¢\8bN\92\90U\99\84H\8f\8dR\8b\85\\8f\92Q\86\8fO\90\93Y\93\87\\9a\80e\93\7fd\9c}W\9cpU\9dnb¨t_\9bo_\9cZX\97[[\98`P\9bUI\99PI¤KQ¦HZ¦U_¬Dd¨JY¦IS¦U`£UU¦W^©S[³YV°XH¯\F¨HJ¯CC¶@@°:H·?L±@PµJS­EO¯KYµH_³ATÄB]ºLZÀDZ³>VÄ:ZÀB\�1UÇ3SÑ(S�2Y\90¯Ò\95¹�\92·�\9fµÞ¥±à \9f¯Ñ¢¯Ø£´Ö¨«Ø\9c«Ô¦±�¥­Ñ¡³É¦»Ê¨·Ñ«´È¦½�¡´È\9b²·¤¼·\9f·»¦°³¡½µ¤º¨«¶²¨²­¶»«½Ä¯½¾\9e·¹\9e³�ª§º¤©¼±µ¼²¶Ä¯²º­�¾ºË°»�²ÈÒ½ÄÌǺӿ³Û�«ÓɲÊǯҺ¼Ô¼ÊÇ»Ñ̳Ø�¼ÒÒÉÊÔÄÅ�ËÎÔÈÌØÆÈÒº�Ô¶Ìã»Èß®Ñ×®Ëá¹�Ú¾Ûç¶Øí¾ÛÚ·ß�°ÜÖ©èÕ­ä�²äÒ§äØ©ôÔ´ïÕ¤ñÊ¥íÌ¢ðÄ\9dåÄ\93åÒ\89â�\92âÄ\89à Å\84à ×\81âÖw×É}ãÊzâÖwäÜ|à �záß\83âì}å�|äÚ\7fßß\86Ûâ\8aÑà ~�á{Îè\85Ñð\86à ô\88�ê\84ÞïzÚãréäxæäpÞäsâÓqáÔpÛÙj�Þ\ÖÓ^��dÎË]ËÃ`×½WѵSؽ`á²]ïµ[ï­Xð²Mý·MøºOó½Yð�aðÉYãÌDçÔHñËBðÎCïÎHä�Kê»Páµ@æ¼=è·7ã½=Þ¸Dä¬CÙ­QÒ¯Uί^×¹_Ô³l˦hΪ`Ǥ^¸©O·®L¹¨H· N¸ C¯©C¶ H¾¡?´§Bº«E¹®B¼£B¿±DůE»°F·¤>³­<½¦IÀ®9·¦7¹«=Â¥A¸±7¿¬9½¤.�«1¿ª8Ħ-½§6µ¨6º£2À¨5ʪ$ð"ɨ+¾§5»\9e2Å\906�\962Ä\98=¸\969³\92>¨\915§\8b;¦\86E£\82D \8bF¦\85?¯~C³\85C±\85N¨\90O¬\95Z¥\97S\93\9dY\91\95V\97\83S\94~G\8d\8eT\97\8cX\97\92V\95\96Q\8c\86[\90\84[\8ez[\87wa\97pb\9eta\9dq`¡wa¨wf\9ff^¦bW£gQ\99V\\9aS[\9cQ^®SX¬Qe«Id©K_\9eS[¥][°ZW©a]¬Z[¬^U·XQ°ZF¦UE­HI¤FB¥=E²BL³;S²DL¹DK³LS±MX·BZ½FQ¿DT»4X¹5Rº?[Ç9`É.f�0\È-^É*Z\96¼�\95·Ô¦ªÕ¡­Ù\9b¦Ó¡±Ë¤±Ó\9f²Ù£°Ñ\94±Ë\9f±�\9c³¿£±Æ§¼�¬³Ç¯ÂË­¾�§ÂÕ£³Ë£½·¦¹´¨±· µ±£¾³¥¼¥\9dº¤®µ¤²·¤·�\9d¶¾©¶º§§Â\9a¬´¢½²¥¶°¶½¹³�µ»Æ±¿É½Åʶ¿Ë²¶Ö¸°�¾°Î¸ѹ®Ó°ÃÚ¶³Ì»ÀÊÅÃÇƺÎÖ¿�ÑÉÌßËÑâ�ËÖÅ�áÂÑÛµ�á¼ÑÖ·ÌÜ®��®ÞÓ¿Ùç±ÙêºãéµçܨâاÜÒ«à Ù­ë�¯ãÎ¥èزôÕ¤äΠçÒ\9fíΣé�\8fêÆ\8bèÅ\81æ¾\86�É\7fæËzÜËwÜÅtæÓ|ØØtÛÜxä�sà à \7fà â\82äà \85äÙ\86×á\82Ñà wßáxÌé\7fÓç\81×éwâå}æð\88êá\7fæÜläâpêßjáãpÞÛlÖÓhÙà jÚ�dÒÑYÑÌhÉËZÖ�eØ�[æ½Và ±að»_ø½U÷´Rè»Uù»V÷ÃRù¼OïÆ[é�TáÎ?åÌ<èÑ>éÎDá�GçÄ>æ¿Bâ»FÛ¶BêºEܼ?ë´Dá®B׫DÙ«SÓ¹OØÄX�¬`ħj�«fÇ£bÀ¦Z³¢L´©Qª\95W©§Dª¦L¬\9bA°¢D½©G¼«K�¨M¡<ű<Ç©7µ­G°§<À£I·¬O½§?®°6¸¨1´¦B´\9f2â4½¥.¾«2²§0±³-·±:°«:¯«:µ\9f3¼¨1Ç£ Ä­&¿¤5Ä\951Â\96?½\90CÇ\8dA¼\92Bº\8b=²\91A¡\912¬\83B©\8aE©\89I«\87G°\8b?­\89?¨\84G­\92T¤\97L\9b\94Q\90\8dQ\8c\8dN\8e\89V\8f~G\92\8aL\8b\89W\8f\8dP\95\90S\94\8bI\8f\8eM\8cy[\91\80[\8at^£rd¥te¤w_§z`\9fe^¨b\\9b^a¥W_­Sa²Nd­O^¥Wd¡Vh¦V] [_¥RV\9fO^®Vb­[\±PL£RH°SO¢YD£G@¨GA²HG´QPµDF±GJ¯DQµAR¶JSÂ;V¶=Q�GPÄ<X½*TÅ9W·6a»*U¸'^Å-P�,Y\98­Ü¡²Ó¥§Ö¤©È¦¨Ç¨«Åª¯�\9e²Ì\9a¯�\95µÅ¢ªÄ ­½\9c»¿\9d¾Ì¢¸Õª�ѬÉÌ«ÂÓ´¿È¬ºÂ¤½¼­¸¯ªº¶¢·±\97µ¬\9d¹©¡¼\9f­¹£§·¨±·¦¬¿¨°¸\9f¼¹¥¶¯£¿´´¸®·À«Æ˯ÄÆ»ÃÌ·½Õ¬Âά·Ë°²�¶³Óº®Ø¶º�À¼�»½Î¿ºÇʼÅÊÄÊÙÇÎáËËáÇÆäÌÒßÀßä·ÚÞµÑ�¬ÓÓ²ÔÓµßÖ±äâ­Ùè±åä§äߧÛÞ³Ü�±�Ô®éÚ®ãÔ´ëÔªåÑ¥à ÒªÞ�£å�£éˤà �\96×Æ\88�Å\80æÂzà �qåÆråÉvßÈu�Ósßãmãèv�ëxâÞ\82íã\84èÚ\7fèátØØt×åpØè}à è\7fÛáy�Ü~ãè\80áâ\82ëÛtñâuå�r×åeÖãbÓçbØÞ^Êà ^�Ñ^ÔÖcÓÓdßË\â¾[â±båµ`åÃVñÄYô¿PðÀWð�Tò½PíºZîÀ[îÆQíËIç�Bç�Aä�;à Æ9éÀ7é»Dß³@ß·Lå¶Dæ·Bï²@ë¯<ë¶@ܲHÙ°GÕ½SØÂX̵^ɸ`ʬ[²`¸¦Y­¨S«\9bY§¦Q¯¥H³¨A«\9dH«\9eH¸\9fEº©>¸¢G»ª=¸®5¹­Dµ¨F±¯@¶­E®¨9±®9º«?³\9b5¹£7¿©)¶©)·­.®°9®¹2°¶4µ³1¹«+µ¢1¹ 5Æ¥)¾ª-½\9d3¿\9e1É\92=Æ\97<½\8b9�\89;¸\87=°\906¬\8e:¨\8bB§\89@¥\89H³\8aG­\88L°\8bC¨\88E¦\84Q§\8fI\98\8eN\8d\96P\8a\94F\90\93M\88\86S\91\86N\8e\8cX\8f\97I\91\98J\8c\94H\8e\86N\84\89S\8a~Z\8c}X\9bv`¤zd\9c{c¥sZ©t^¢sf£eb£df®`d°Zh¯Ta¤Oj¢Wf¦^b£\a\9cWZ\9dS`¡QY©TW§HP\9eHO§JF¢PK¥IF¤KC¥UH¯OGªUO¢SN¤SR§E^¸He¼;aÅ<T�BUÆ<[½-aÂ2_¸+]º/X½$SË"\Ì#Y\95¯Î\9e¹×¢®�¡ªÎ\9d¤Î¦«� µÀ\99²È\95¶Ì\99¼É¤±È\9a±º©�Ä©¹Î¨·�£Ä�§¼Ë¦¿Ò¤¾Ô¦µ�¢³Ã²´º¥½­«¹»\9fº±\99º¢¨®®²½\9f£µ\9d©¶ ¨®\9eº½¡¯½§»ª¬½«³³¶®Å²ºÈ·½¾¿µÈ¸²Ê±·�°ÂǬºÈ®³Öµ»Ë¾¿ËÀÃѽ»Ä»´ÎÇ·�ȺÈ�ÅÕÖËÒÛ�×ÜÃÔÞµÌâ´ÒÒ¶Ù�©ßÑ¥ØÛ´�ß´âè¨�èªÛì©äåªà Ó­åÞ©ïÓ¤èÓ°éÒ¥åѬäؤåÕ\9fæÙ\99à Ù£ëÔ\99�Ã\95ÛÅ\89ë�\8cëÃ\82ëÇ~äÀ~óÅsßÌ|âà zæÕvÛâyãÞ\81êèyà ãvìáv�åyÚä~Ú�\85Üæ\81ÜäyâÞwØä{Þê\8däê|çÜuéäuÙÚpÙåpÑã]ÕÖ_�ä_ÌÕ^×ÉeÒØ[ÓÕ^Ü�fß¼\ê¹bë»Rî½P��Vð¿\ò½aíÂYâ�VîÉXíº^é¾RçÉEðÉBâÉEà Ì:ìµ?à ¿Jä¿Oà ²>ä·@æ¾Jí¼Bã¹=Þ¹JܱBÙ´E�¬OÖµQɯU˲aÓ´bË·[¿´Z¼ªW±¥`¼¡_±©H¯¤=±\9fI¦\96J¯\94@¿\95M¼\96H®¤A·¦=½«;¯©5³¡7°¡A®±=¹¬@¹­E­¨9º\9a-Â\9d2�®(º¨.·°2½¸&¬µ3±²/¯³-µ§+²£3¼¦0Ǥ)¿¢2Ê\934Ê\903È\96;Ã\91<º\899º\80:»\80:µ\80<²\88A°\818§\8aG°\8dB³\80D¨\8dI¡\8dK§\89O£\8bB\99\87B\94\8cG\8d\94M\81\98C\8a\87J\87\85U\84\91X\8f\92T\8f\99R\90\99>\8d\94K\90\87E\8c\87I\91z^\90|\\8dv\\93\84l\97\82h¥|b¥{]£tc©i^¥aj\9e\o§Tc¯^g®Yc§[b¦[Y®^a \c\9c]]©YP£[L¤RN£CL\9bAZ\9bD\ªNO¤OP¬XI HM¢FM\99CS\9fDX§EY¯HV«Ea¾GR�>c¿:S¾)U¹.S»(]¶3^³)S½-aÌ$Y\9f¶Õ\9fµÑ£¦Ñ §×¦¦Æ¥­Å¡²Ç\99¿É¨À»§¼½§À¸\9e½¾¤µÀ¦¼Èª·Ä©·Ç¥¿Ê­·�§¬È\9e±Ê\9e´È¨·»¨®´¦¯´¦ª·¤³¨¡»¬¦±¢¦³£¦­\9c²¯\94¶¹\9c²·¦·¶­²­¶¼µ­²Âµ³½·¶¼¼»»²»±ºÄ­»�²¶�¶³Ë½µÆĹĿÂ�³¾Èµ»Å½¹Ó¿¾�ÈÄÌÒË×��ÖÕ��Ö³�ܶÕѹÚÛ³à Ó¤×Ö¦�Ù³ßé«åéªÚé¨ßÜ¥ëå§èÜ\9bòؤðÖ°í�¥à Ò¡æÖ\94ë�\94îÎ\90ì×\93â�\8déË\94ñÎ\88é¿\8aç¹\8fë½\85îÈtðÌtâ×zÞÛyÔã\80Ú�wà èpáèxÜë|èâ~Ùí\7fÔéwÑî\83ßå\8aãè\80åã\81Ùì\81Ûå\88Öñ\89Ùí{ÓêtÞètß�c×ÓaÚà f�Ü^ØÔ`Õ�cÙÇ]âÉeë�hâÅZâ¶Wé·Té�SØÃRâÂZê»`åÂ_ÚÅ]à Â[�¿Xá¾OæËFëÈ@ëÓAåÃGèµMê±Câ²Hç®CÞ¬@å¸Dè»JØ¿R׺LÒ¸IηQØ®UÖ­L�¥R̪YË·YǹR«_¾¥\¿ªT¿¤UÀ©F¹\9dBº¤N­ J¹ J·\90I°\9aK¬ >·\9f;³\9f9´\9c,µ©0²¨<¶¦9¯°8±¨A½\9e0¹£+Ƥ3Â¥.�¨2¯0¸°+²²%²¯!¯«)¯ª)»¡9¸\998º\981¾\98/È\90<Ë\94BÄ\8bAº\85@½\864¸{:½}C�yK¶\7fD¸\8f@©\8dA¯\82<µ\80<­\7fC¡\81G\9a{<\9e\84?\96\88>\99\8fL\8c\85G\85\8aL\83\86Q\88\8dR\8a\96E\8e\93I\8d\97C\8b\94B\8d\9cA\8b\95F\95\95F\98\85R\99\86\\8f\80`\8dwn\96~j\9c~a yf¨vd©lg£gf\9a\j­\l±Xp±Xm§\f©YY¨`W¦cUª][°[O©VL«WS LU\99?W\9dA^\9eC`¨SWªYV¡PQ\9bC]\9e@[\9dEV­CZ¯>]«=V´AZ¾F`�>d¿2X´9Yµ1Z´&V´)^³(a¼%e\9b¯Ú¡ªË\9c²Ù\9a®Û¡µ×\9e¨�¤½Ì©ÃÉ\9f¸É¨´�¤±¿¡�É\9fÃÂ\9cÄ�«±Ä °Ã\9f´Ì¢²É\97¶�\9d»Æ\9c·Ã ²¼ ²¶¤«¸ª·«¡¸¢\9d½«ª±\9e©³¢¨¶ª²¹¥·¼\98»«©²²¨¹¹\9e»·¦¯´±º¸¼°¼²¾²°¸»¶Â¼±�¿´¿¿º�¼·Àº´Êijù°Ã´¶ÈǾÌɺÓÅÄÜƸÞ˵ÜÖ²�ÔµÛ׶çß°ÜÖªåÙ �Î¥à Õ¸ä×®îë¨à á¢èÜ«äá\9eâÛ\94æß õØ ç׫ëÕ\9dçÓ¦ìß\9dúÕ\96óÛ\94ìÈ\8dù�\85ë¾\83êÂ\8aïÄ~ü¼{ð¾\7fïÇ{ã×uïÚoæß|ÔÞu×ÞzÜè\81ÛÜ\82çëxÚê}��\8bà æ\88áã\8eÙê\8bÜá\83ßâ\8féé\8eÙç\85ØãrÔè~ßãpÜâd×ÖY�ÓeÖÊiÜÓdãÊYæ�hçÇbÛÎcä�^Þ¼Z�¾ZßÃW�ÅOÔ¾Tæ¸^ØÀVÙÆeÖÆVÞ½SÖÄK�ÆR�ËPåÒPèÄCܬRܬFÚ²NׯCâªDÙºMæ¾Jç¾CÛÀAÒ¸TѼRÙºEß½HÒ©MÕ§TÔ±MƽXªQʯOÈ\9fIº«BĨ@½¤>·¢E¯¦Dº\99;¯\8b<»\975°\9e<¹\9a3©£?µ\990º\9e1´¢+²®4ºªA¸¥;°°:½ª3¶\9a$¶\9a(¿§.Ê£0¸£$»¥/±«)´©'³\9b6¼\9f4¹ >Å\9b/Ã\947À\8e<È\8e3Ä\91B½\8e=¸\888Æ\83<µ|<À\89>­~F¹\8c>­\84G¦\8c7²\869²\86>¦\86J\9b\8c<\96\84G\97\91N\91\8eQ\87\94S\85\90W\8a\90O\84\9bN\82\8cK\8d\8fQ\8f\98H\8d\8cG\94\92F\86\8dD\8c\93N\94\83X\92\89P \81`\9e}k\9d\80h\91vd¤zd§vl\9cjs\9afk\90Xs\9cai [i£Qe¬]]¢][¢cR ]a«Ze¢X_©XH\97XM\9cVV\9fCV\98@h¢@Z\9fJb¦N^¥DX£>Q¤;[\9f>Y¬I]±BU±?R¬B[­?b±?n¶9`­1Z²,Y­6k±0nµ/d»,m\92©É\98«Õ¢«Ò\9c´�¥³Ú\9d´×\9d½Î©¿Ì£´Ê¡´¾¤¶Ã\99¹Â\9e²¿\9f»É¡À�\9f¶É\94¯Ç\96¸Ñ\9eµÔ\9d¼Ë\9f»Ê\9f°�¦«Æ\9fµ¼¦¯®\9d·«¢¼«£·¨£º²°°«·­¤»´¤°²\99®¬\9d®¶\99³µ¤­°¦°¯²»·°¸³¹®¾À´º¸·¿¹½¾·Æ®ǾªÊIJ½½±Ã�¶ÃĺÈȲÕ´�À°Ø�±ØÚ­à Û¬èÙ´éá®åÔ³ïÔ©èÙ±áÕ®ßקæáªãÜ­ßå¥íã¨ëë\9aõè\91îÜ\97ìÞ\99êá£üà \9fþá\9fûá\93þÒ\87ÿÇ\84ÿÆ\7fÿ�|úÉ\83õ¾zýÄzóÄzïÃ}ò�qðÒtâÛxßÖxâà z�áxã�}×â}Øé\8cÖÞ\8eÚê\86Ûí\8cÛê\89�ì\8bÜç\92åê\8aÛá\86ÞÚxåáyÞßqåÛeÛÒ`âÉ]ØÉb×Ç]å¾[âÂ`âÄ\äÆgßÆbÖ¿[ÚÅ[ßÌNÒÂR�ÀWܼ[Ú»YÔÀbÚÃ`ÒÅWÒÌOÔÎWÖ�VáÄNá¶X×°PÙ°\á°Vé³Mß´Mâ²Iâ²Iä±JܹFÕ±EѺMÜ¿SÞ¾KܱQÙ²UÙ´M˺VʵWίPÇ©B½§?í7·¡>¶¥1¿\9d2¹\91.³\94;±\8d;µ\915²\957­\9e4¼\9a(¹ ,°«3±«4®­8¶¯5·¡.º¤0¾ª1»\9f#¼£$¨"¨!½\9c0¹\9c/¶ ,½¥8µ\9b<´£<À\9d<Ç\95?¾\935¿\91=À\8c5À|8¿}DÃ\82H½\81@º\80<µ\8aF¹\82<°\84<¤\84G©\89@\9f\888¥\88?\9c\95@\99\90E\8f\96P\91\93M\8c\99P\8e\97Y\91¢P\82\9bS\7f\98S\89\94K\86\8dM\8c\90F\92\8aM\91\94F\9d\8dO\99\89M\9a\8f`\9f\89d\9bzo\97vi\92x_\9awe¤ta\9dim\9e\n\94_s\97Ur\9fOn£Pr¦\d¬^]§[[¦VeªL^¡FS\9ePT LJ\95NQ\90AR\94Ca\9e@b\9bBa\9aAb HW§F_©BV¬E`ªA]±7e¦>_£9g­El©>h¬>s³@t°8f¹;o´5q±.mº#l\9a¢Ë\8e³Ì\8fª�\98µ�\9a­Ü\96»Ù¨±�¦­Î\9f¸»\9b§¹\9f¸�£¾»\97µÆ\9e®É£­Ã¢­�¡ª�\99¶É\9f°¾\9b¶Ë\99¸È\99¶�\99¯¸\99´°§²»¢½±­¹¦¦º§³°§±®­¸¦²¹© º¶\9c¬¬¨³±\9f²±³±±°«¦¹²§¬Ãµ¶»­µÀ®¼¸·±Ä¿²Éµ·¾½¯»Ã·�®¶�°�ʳÖ̲à ʹÚóÜÓ´âѱÛܬÙß­ç�°äÕ¯êÜ©öß«æ�§à Ö¢íØ£êØ\9dèÙ\9fëÜ\9açæ\9cäâ\90ç�\9dèà £ëè£íæ\9cëÛ\9c÷Û\90ø�\8bòÇ\8aÿ¿~ø¼\83ù¿\81óÊ\80öË\7föË{ûÆyèËwà ÖxâËqç�vãÖsßÖsâáxÜâ\8bà é\88âì\7fßé|äó\80èò\81Üé\80äé\87à å\7fáäxäÙ{æÙkç�fáÜgØÓcÖ�kÙÕlÜÌ[èÃUíÇZá�UØÇT×ÉV×�^Õ¿]Úº]Õ¸^ã¹\Ù¹XܾV��d�ÅTÒÂZÜÀZ×ÌUÙÊKÜ¿UÙ¸Jå­RÞ¸Nè¬Nê¬Rì¹Ië²Mç»Iå·OÔÀMÒÃUÙ·Y�½O�µJÒ¬KÉ®YɧW�´YɶVÅ®IÊ®C»¢E´¬D¼\9e<²¤:¾\9d(·\93.²\97C©\9aB·\989­\9b8°\9a@³¤6«\9d/®¥0¸¬)²§2°\9d'²¤4¼¡3¶¬1¹\9d\1fº¤$¹¤"´\9e,º\9a2½\9e6²\9f7¾ 9¿¢>Ã\9b4¼\97F�\94@º\968¶\8a5µ\8d8°\83>Ä\85@´\8d8³\7fF½\86H«\84@·\7fB¤\7f5¢}@\9f\84D¯\90;§\85C¤\95D\8d\88C\95\93O\95\8fR\8e\95[\92\8eQ\86\96V\86\99J\8f\96M\93\97U\82\8bH\8f\8bN\91\90T\95\8eM\95\89I\88\8dO\95\91[\9e\85Y\96\84V\9doZ\94th\96hc\90bm\95gr\97ar\8eOe\9eYl\97Hl\9fMu®fj«cf¤Rf¢Tf¬]g¢T[ªSV£T]\90O[\93Fa\9aQg Jf\99Ha¨DW CW¤BM¤HZ¨Cf©NW­?a®?[³<n¯Gv§=u³Ai¹Af°5b½8mº:k¿,f²%v\91¬Ú\90¯�\91³�\95¬Ì\97¯Å\9bµ�\9d¸Ñ«©Å¦¬¿\9e§½ «Ä\9b·º\98µÉ\9f­Ç¡³½\95¨¼\9e¢¹\97¬À\96¹º\98µ¾\94¶¾\9f¯·¤¬©\99¤«¥µ­®¹º­¶®¨««©¥§¹§°³¦¥´¨ª¸¢©®­£¸°¬¶¨°°¨²·§¯¶©¸À¥²µ©¶»¯·º»�À¿¾È½¼¾°µ¿·ª·Â«¼�¯ÂË­É�³à ʬ�Ò´ÞÒ¯æÖµÞÚ®�ѳáË«âÕ¬óâ¡öÕ­ôÔ©è� èØ\98ãÓ¡ãÖ\98îÓ¡ðá\9dèÚ\93çÕ\93ÜÛ¡Üâ\9d�Ù\8cáÜ\8cæÞ\96êÑ\91õÇ\90ÿÂ\83ÿ·\81ý½\81íÂ\83ìË\84ð½\82÷¾\81òÊ}áÓpìÒrëÉvâÃ}ç�sëÓz�Û\87ßÚwçêxãëväî\7fÛî{ãìxÛé\83�ê|ÞïyëæmèåræÜlÕÙqÒ�iÕÚmáÕháÇhçÅVâÅUäÄXé�XÞ�UåÎZá�P߶`׸^Õ¹XäÅUæ½Qç»Yßµ_ÕµTÙÂX×ÄOÛµVܳOêµDæ»Hé·Cá°Eç¸>ê±Dê²Lç¼NÛ�LؼVÞ¹_Ú¼VÒ·Q�«GÔ\9eDÉ¢QÃ¥OȪXÆ¢UɨH·¬I´®B½ 8¶\999²\980¶\95+µ\8d*©\91:°\967¯\9e@µ¢8¯¢>ª\9e7¥\9c2²¨3µ¨,±ª)·\9c$ê,½«.¾¬*¸ &±\97\1d¸\98 ´¢*»¥*¸¢,½¢4·¡2¼\995Â\8e?Ã\90@·\87B·\8c9²\860®\83/º\86,·\948·\939¶\8c=¬\87>°\87>¬\885¦{6­\7f5¥\8a6¨\8eE¨\91F\9a\8eD\92\8c<\8c\9bO\8d\98R\92\93L\91\91Q\8d\9aX\87\9bO\8f\95U\8b\8cP\8d\85V\8b\8eN\94\9aI\92\97S\86\9aU\87\93L\8c\8eF\8c\81P\94sO\93p\\8fpX\91aa\90`]\98\g\9c_k\97Pa\9cO`\9cMp¡]r¨`o¡_d£Ui\9fab£`bª[a¥TV\9fTT\9aU[\92Ud\98P[¢OS¢N[©PK¥LG£OP\9cNb¡Kc\9fIa£LV«E\¯>f«Hn²Cn¸>l·@`µ6dº=j¸2d½%dº!p\90¤É\86¥Ë\89¬�\86«Ã\97¨¾ ­�\9c¯À\9c¢¾\9b«·¤ª³\97¨�¥¬º ¦Ä\9d¤Ä\9d­¿\91­»\9f±µ\99¶¾£¨Ã ¬» «¿\9a¤¶¢¥«¢¡¤\9e©®²¯´±¥¶°£¶¹±±�¬»¶ ©½\9b¨¹«©µ¨¤³§¬´\9b®·¦¬¿£©�\9e¶·\9e°Ç£ºÆ¬´¹µ´Ê¹ÂÆ»Àƹ¼¼³¼µÈ·ÇɳÈƪ×ήæ̬ÛÔ³ÞÊ£èÖ²ß�´ìÚ²îÑ\9fåÒ¦øÞ\9eéá¡õ�¥é�\9cçÞ\94íÖ\92èØ\96÷Ü\94úÜ\9dõ�\92ðÕ\91åÓ\9açÞ\9báÒ\9dãÔ\8dêÎ\8dëÆ\97òÄ\94òÃ\92ÿÂ\7fúÈ\87ÿÀ~íÀ\81ë½\89óÃ\7fèÌ\7fèÓxéÅlë�pêÔwÙÕkéÑtßÞ\80ßÛ|êð|æéxâìsÞæzÜê|çé{âìsâçxÞífáÞjëâbâáp�ëfÓÚdÜ×pÛ�_áÊdã�]ãÀUßÂLÜÒWßÄFä�Hç·NæÂP�ºTéÅQê¾Zå¹\æ½Wå®TØ®YÚ¬SÜ°Hà ®KÞµEé¶Qì®?Þ±Eê©=î±;é¾JæºRä³Qà �Qã´OسWÒ»KγKÒ¦R�¦OƧT¹±R¯K¹©Rº¯L¸¦:º©0³\98-¶\9f.¯\9b+¨\9b%ª\9a0ª\9f=¢\98A\9f\9cG¦¡H­¤7±\95?¨¢3¨¤0´\98)¼\9e*¸¢-²¦-½¦/±£!¶\94-³\9a\1e²¥\1c·¬(®§'¾¦+¹\9f3½\980´\99<¹\91?¹\90B¯\8e3¯\818µ\85%©\96.«\97-¶\99/­\96=´\861º\8a:¦\854¢\841£\8f3«\96,\9a\97C¥\8aD\95\91C\92\8a=\8e\8eL\96\96W\8e\93G\8e¡H\92¡H\90\94O\85\91N\8b\8aT\89\8eK\91\93N\89\8cK\95\88J\88\89K\8c\93Q\83\87Y\88\86Z\93v\\91eX\88aY\99WY\95ab ]j\98Xe\9aW\\9aJl Pl\98]j©ed©dp\99Zj¤Vf£XZ¢MU®V]ªQP¡ZZ\9eNZ\94Nh\9fS^§I^¬KX«PK¡FM¨O\\98Mf\9dBm¨E]«HY°OZ©Fo¶Pf¾>e´?]·4j¿2b»7f»#l»&s~«Ê\82¢Ã|§�\85¡Ã\96\9fÅ\99¥¸¢«¶\9a¡À\9f\9c¹ \9e¶¨\9eº£¬¾£¤Æ\97«¾\8c¦È\90¯�\93®·¤¶·©®½¨¬¾¬«°¢ª«¦¢¨¤§­¤®µ¤§±®¢µ³¬´¾°¹·¥¶·\9d±º\9b¬¾\97®³\9e¥·\98¯¸\9eª´\9cª¹\9d²Ã¥´» »½ ·Ç¨³Î¥±Å®·¼³¹�µ¾¸¾µ»¾²Ä�¬Ì�§ÕΫÞ�°Ü�¯ÞʦðÒ­ð�°ëÑ\9f÷Þ\9fêä\9bëÜ\99ë�\93ë�\9bèÓ\95òÓ\99÷Þ\9cøÛ\9aïÕ\8cõÜ\8eï�\8fïÒ\94íÎ\96áÒ\94êÎ\9bêÈ\94âÌ\8cæÄ\92éÈ\9aõ»\94ù»\8eÿÃ\88ÿÇ\7fû�\87ûÉ\82ïÈyñËxãÌqÜÇuæ�uß×{ÛÙoæÜoäÔ}éÙrïäqìÞyêáwâÛ\82à ä|éÞtæà xÛìnáèoãéiåæcáíbÜédÖênÖ�fÞ×háØcâÕYåËX�ÖVß�JÞÀKãÀHí¼?é�GêÈVìÂUïºMê´Tæ»Vã°\ê¤Væ¥Xå¬WÙ¯L×°MÞ¬Kî«PìµEì¹Dä±@ê´K߸Eã¸E�½Oá¿QÞ¹ZعTÛ¶NɧSƧJŤM´®L·¦I¶©M±«E¶¦6¶ +»\98,³£!¨\9d#¢\95-¨\92/©\9e6\9a\9fA\97\9a9¡ A¨\99?­\9d;§\9d.§\9b1°£-°\9b+´\98!µ #¯¡)¯\96&±\98"«\97&©\94*±¡#µ\98'²\9e3®\9f2·\96<¾\8c>µ\8d7»\8f-°\894°\8a)°\8e"¸\93\1c¯\94#¹\99%±\95,¸\8f4·\8c5²\867ª\857 \861¥\923 \989\9a\93=\9c\9aB\9b\8fL¥\94E\9d\9aL\9a\9dD\91\9fM\96\9fR\8e\99K\93\93U\8d\97U\8e\8fY\87\94T\85\93R\8b\88R\8c\8dO\89\8bT\8b\81R\85\83Z\81{]\88jb\90ij\90^b\97^f\98Wk\8fX`\94Nd\92[n\9fWg ag\9e`i\97`s\9d]m\9e^^¬M\­W`°RU³ZO±SX\9fSf\9eTd S`\9fLU§QI¯WK¬ULªEY\9d@g\9eAk¦Bg¥G_²D[²QbµIa½I]·C]½<j�2lµ-m´1a¿$e~\9aÒ\85§É\88\9dÄ\8a¥º\88\9a·\93§·\89\9b¶\92\9f´\95¦¸¡£¾\95¡¿\98\9cÀ\98¬¶\8e«·\8b¯´\9b³Â¡¨»\9b¦»¬¦´ª§¾£«¾¢\9f®©ª¨¡£´\9d«´¬ªª®¤µ©°»¯¨¼­§»®£ª´\94¨³¢¬�\98¡º\99°¼\97±�\9e¯� ¼¹¢°Âª¼Ë«¾È¯¸�¦½¼­½È¸µÀ¹¬Â»²¼µ³ÆÈ­ÌʯÜŬä˵æÊ£Ü�§ëÓ¤êÒ¨úѦ÷Ú\9bæÛ¥îÓ\9cîÎ\99ðÚ\96ê�\95èË\97óÔ\9añÑ\91÷Ü\97üÙ\95ôÑ\88ð×\95æÊ\87ëÖ\8eçË\8fíÉ\8dã¿\8bì½\82ì»\81ñº\8böÆ\8dõÈ\87úÄ\8aü¿\84ý¾vö½~ëÎ}×Ì\80ãÓxåÓ{ÛÔ|ßÖlìÞyêÑ{íà \7féäsóéyíìyäèr�×wçÞkÖâqåámÛÜqâábÖçgãÞe�ç^âä]á×[ÛÒ]ÛÊVÚÊ^çÈZåÆMçÈTÙËTâÈMä»Dç·Hí¹Jê»Qê»MòµWì¸Oä«`å³Të¦]Ù«RÙªK�«Pß­Vç°BܵIܳ=Þ¨Dã¶Jå±>ÔºG�ÅIλJÞ²RÙ©T�´Jɱ>¿ªJ¾ªF±¤J­¯C¶§G¶\9eF·¢@±¥,­\93.·\96*¨\9d/­\90.³\927¨\97C\9a\98G\9f¥:¥¥C ¡5«£:«ª;\96©6\9c\993®\92)²\9c(¯¤(²\96)¦\97+§\97* \90+­\9a%°\92!­\9f#¬\9e3¯\997®\9b0¬\98.µ\8f6ª\86*ª\91$°\8a+°\91-¸\920­\8e%ª\96!ª\95,·\8b4²\823©\88=©\8f5£\864 \93:©\8b@ \8fC\9f\95;\9c\97D\9f\8cP¨\96J¢\9fO \96Q\8b\97T\95\91J\90\8fI\8a\98V\8b\98I\88\91Q\82\8aW\8c\8bR\81\8c\\8e\82L\8e\82S\93uZ\8du\\8fih\95o`\8b`o\95\j\8dQu\98Ww\92]i\91Zm\94]k\92`e¦]m\9f^l¢Oc\9eTi¨Od¬Q\­R^²PU¬Oa£QX\9eY^ Za¥QS¤]U©SI«RV±Q^£Hc\9aDf¥Bh¬Fj¯Ie¹Fh´?fÄAb�GcÀDl·.h±$m�%hÆ$dx¦Î}¡�\80\95¼\90\98¶\84£·\81§¾\86¢»\93\92µ\9b\94µ\92£Ã\85£¿\89\9c�\8a\98»\94\9b´\8d¬»\94«½ ¦¿\9f¡¶£©½¤¡È\9b¢¾\9e¤²¤¥¹¤¡·¨£´«\9e«¦ µ°¯¶¤¢·¨ ´©¥´¸\9d¯¼\9c©À\95§Ê\93¢È\98§Î\96ªÆ\9d¸Ã¦³½¬½½³²Ê²·Æ¸»¹®¸Ê¶¯É·ª½Âº»½º¹¼»Å½¯�̸áÌ´á�¨�Ç¥ë�¦ôΰç�¥ëÓ¤éÒ æÊ\9díÕ\9dîÔ\96éÉ\98êÇ\8eå×\8aìÖ\8e÷É\91òÌ\93ôÈ\93ëÑ\8få�\8dîÑ\83éÆ\80óÊ\8bõÊ|é¿}ôÀ\7fó»\82ùÇ|÷Ç\80ð¼\85ùÂ\7fó¾wõ½råÌyÛÊ}ÚÔt�Ô{çØríÖzáÔ\80áÖzäÕxðÓyîÚvóêmíåfåÔn�ÒfÖÚfà ßlØÕnÛÔhÔ×bÔØiÜã^åÖbáÖZ×Ö^Ù�YäÊ^äÈYæÓ^áÌYÙËKßÄHá¼Fí·EçºVéµWæ±Mè½Tå¶WíµXí°SÞµRè´Mä¶Të¯SìµRâµT�¥Dã£CÙ«Hå¨Lã¯FÚ°LÓ¼TÒ¼SήKÉ´LÊ©Eɧ>¸£=²©H²¢B¬\9bE®£M½«A¨9¾\91(°\8b#»\8b%·\8c-¾\93=´ <¦\999\9b\9dA\99\96D \995¡\9e=¢¥9\97«4\95©0\99\9d2\9d\99,£\9e)¢\9f1\9c\94/\9f\99$\9c\99# \8f1\9c\94$¥\90(ª\992§\922\9e\8c/¦\8f#²\87!º\8e#¹\95\1f©\8b"µ\82'µ\88-²\86-¯\8c+¤\8f'ª\8f%±\8c%§\88+\9e\811¦\88> \93?§\8fA¥\94E¡\93>¤\9cD¦\99D§\8bC¡\8eM¥\90V£\92R\9a\99P\8d\90U\86\8cX\8a\8fJ\8d\89V\89\83R\87\89P\87\80]\85zU\83zO\83sT\91rd\90il\93of\94dl\92go\8aau\92Rs\95Qx\94_w\97ar\8bYd\9cdm\9f]g\9bR`\9bQf\9eQe \l\9bQd§VY°OU®O[­\^\9faZ£eX¨`X§WS®SO­ST¯Pa¦Ba¦Bc²Ea±Hg¯Ol´Fc¾>eº;nÂ9e¸;j²6v·)sµ'o d\85\9cÆ\83\9d½\8d¦½\95¤¾\85\9aµ\81¡¼\87\99¼\83\9b°\90\96½\8c£À\83¡À\80\9eµ\8e\97¶\91\96À\9a¤Â\90¦·\95¡À¡¤¹\9e ¿¦¬Ë\95£Å\9d¬®\9a®­\9c­±¬¡¶¥\9f±­\9d«¥ª°\9e§¥\9c\97³¯\94­±\9e«¶\97£»£¨¿\9d§Ê\9c¦�\97®Î\97¶Ë¢³»¥¶½¯¾Ã«±É§´Â¶´¾¬´Æ´®Ë¶®�¾·¾¼¶ÄŹĮ̀Þˬá�¢çÌ\9aáÇ õÔ¬ôË éÒ§é�\97꾦à Ñ£ðÊ\9fâÉ\9aôË\8cñ�\95éÓ\93åÂ\8fñÃ\92ð�\97ãÔ\8cìÊ\88òÑ}åÌ\85ôÎ\86ùÎ\88ìÅ\7fñÂsùÄvó¹\81ÿÈtù¼\80ù¼qè»z÷ÇzéÉ}��xÓÒ\80ÜÛxÚÚsï×nâÕpìØyê�yíÜnôåvçßjìâsáÚjâÞ`ÒÚa��kÕÜ^ÖÒjÚÎgÒÕ^ÞÜ]åÓVêÚ[ä�Xä�TäËNå�[çËL�ÌUæÆSÙ¼IåÀPà ÃJîºLî°Tè¿Hò¼JçÀSð�Vï¹\ä¨Vâ®Kë¨LߪVã´Lì´Fæ§Jà ¡Jß²P×·Uç³GÚ¯V�¾XÇ´XƯKƵAƪCÄ´=º´@®­J¸¬@®¤?¯ªR³§>Ç£3³\935º\8b%ª\97)ª\8b6®\98=ª¡1¨\9a;¡\99A ¢5¤ 4\96§7\94ª5\92®2\8e¤5\8eª.\9e 0\9b£(¢£0\9f£$\9b\99#\98\923¡\91,¢\9b3\9d\95%¬\92.­\94-¯\8d(¢\93\19®\85'·\8e\1d¬\8b#³\89 ¦\8b0§\8f/²\95(£\97!«\90'®\89)¤\8e2¤\85)¥\89-ª\886¢\8a<£\9b5°\9aE¤\9a@¨\99I©\96L£\94A§\8aM£\8aR¢\84D\9a\8cQ\8a\90N\87\8fK\8e\83P\90\8aT\8d\88T\88{R\8e}Z\8a\7f\\8esO\8apb\97qe\93oa\98xc\93mi\93dl\93_o\8bYz\90_y\88Rl\8fZn\8d\h\8aas\95[g\9bR`\95Xa\9bTg\9eYg¡So¬W[²X]°Id¦Z[¯`R¬aY§gP±QK«TQ³XP²RT«KU§DZ©I[©Yg³K_¸NlÀCp»Ae¸8m¿Gb»4i³)uµ%i¿!e\8b\9aÀ\85¢º\8c ¶\8a¡¹\82¦Â\86¥À\8b¦¶~\97³\82¢¹\7f\9d½\8a\93¼\84\98´\93\9cº\94¢À\8f »\9a\9f¸¢¨¾¡ªµ\99³·\98ªÀ\95­¼\94­º\92¥¯\9e©³¤\9b±¦\9c´¦¢©¡¢¥¥\97©\9f\9a¨«\9f£¯\98­½\9e«Ã¥¤�§®Æ\9e°À\9b±Ë\9b¬�£±Æ¤´¿§»Â©±Ä¶¸À±µÄº»�±¸Å»±�õν½Ìǵʼ®Ø½¦ÜÄ¡êÌ çÑ¥éÈ\9cêÅ çÆ\99ܾ\9dß�\9e�¼\9cçàäÈ\9aìÂ\8fìÅ\95ÞÄ\92ê¼\89äÂ\8dëÀ\8fãÊ\8eè¿\86ëÃ~éÀ}é�\83ò�\80ûËuÿÇrÿ¼oûºvý½xö¼pëÇqñ�wçÄ}ßÄ\82ÙÊuÕÛtÚÚwßÕiåØißÒfêÛiðßoèÚgèävêà tßßläÙnØÒoÛ�`ÒÎX×Ô_ÛÚgÖÖcÔ�^Ú�`äÚ^â×TÞÛSëÙVãÎTã�MÞÑNà ÎMÛËPÛÀQÙÈTâÅNí¾Rè»Jê¿Rñ»NíÂXç¼Xè¯_ìªYí©Tæ«Oã´Nå±Sé¨Qá¤Má¬MÙ­TÚ°Y�µYÓ®UÓ¸ZηZɸIÄÀP�¶G»®A»³E¹ºM±³J¶´F»ªFÀ¦@À¤;Â\9d.µ\93/ª\9b8«\947´\98:¯\9e5¡£2¡¡0 £5\9d\9f9\91¥4\91¤2\9c¤9\95©7\94­,\8f¤,\98¦+\9e£-\98¥*£\9f/\9e\9d2\9c\9a*\98\9b0¥\95&¦\92\1f¨\94)°\86)­\89\1d«\90$­\8e ¯\91*¬\91*­\96#§\8b'¬\8f"\9f\93(\9c\87,¥\8b)\9f\8d&¨\88.¤\937¨\95?¦\9a9­\999«\91?ª\90A°\96F§\8eI¦\86E©\8fG¢\8a>\9d\83C\99\87F\94\84K\8a\86H\89\84J\88\83T\8d\87O\8dzI\8bvS\85qR\8ct_\98t_\95qg\9aqb\91qf\85ai\88bj\87dl\8car\81bq\85Vj\81^t\89Yr\93\x\97Yl\99Pe\9fTb Na¢Xk®Tq«Qh¯T_±T\³aU°_SµdR¯]O®]Z©WT¤\N¥\X¯R\«U[¬ZY§X]¦S^´Gl±Fo¾<b½>dÂAeÄ;m½9w¿-r�.w\88\99�\80£¶\7f\9e·\85¤º|\9b¼\8c\94°\85¢¸t\9b¾\7f¡³z\9fµ\7f ¸\89\94¯\92¢¾\8f\99�\94\9e¼\92¡µ\94¤¾§\9fÀ\96\9e³\95©¿\99¢Ã\8e´¾\99´­¢­ª\97¦¤\9c ¨\99¨©\9a \9c\9b\99«\9c\9c§¥\96§«\98¥­¤¥¹¨­¸\97­É\99­Ä©¨Ñ\9d§Ç£´¿«½Ä¨µÌ³©Ç®¬Ç«¾Ä«¶¿¸»Ñ±´ÌůÌúÒÆ®�º¨×½«ê¼¥êÅ\9bí�\98ðÂ\9eìÈ\92îÃ\91Û¾\95æÎ\8fçÅ\93å·\97ì»\8bìµ\84åÇ\8eãË\92éÆ\7fïÄ\80äÄ\82çË\86âÂzãÃuðÆrð�qû¾xÿ¼vö¹{ÿ»zÿ¾tÿÀoðÆpïÉxæÀ{è¸xåÌyãÓzØØoãÓx��hÞÎeáÖkÞ�vâ�oêÖqèÔuççmì�tã�cÞÊeáÉbØ×^×Ëeá�eÖÕ\á�cÜÒ`��VãÓUâ�NêØYë�WìÓSãÈVâÅUé¿VåÆUá·Jí¸MíÀVä²Gç¼Gò»Sé²RÞ°Rè¸Vê¤`ä¡Uä§KÞ¬Læ±IÛ±Hà ¡FÞ­H̬XÛ«V߯Q�¹QغVÕºTȶJÌ¿TÄ®N¸ª@µ°=º¹K«¬>²®@´£@¸\94;º\9bA¶\8f2­\936¬\95;­\9b6³\9f2¶\9e2£¤+¦ 7\99\950\98\9e0\99¢;\9f /\96¤7\90£6\9c\9a+\91¡1££.¨\9d6¡\9a%®\99+©\9f& \96$©\93"§\95+£\8c-ª\970¤\8f"¡\90'¥\8b#³\96\1e«\97.¯\98.¦\8f,\9f\88# \95(§\97#¡\91)¦\8b&§\8b'\9f\94+¥\93<¢¢@£\959ª\95@¯\99Aª\88@£\86E¦\92?®\87F£~O\9a\80@\98\7f=\99\8aN\91\7fL\97\85P\8b\8bL\90\80P\8c\84Q\84\87U\82{X\85ub\88nZ\8dpj\88wX\8ah^\95c^\88f`\87fm\91lr\93_w\87dq\81]o\92Um\92Pg\91Tj\98Oo\96Zl\9a`a\9cVm¥^g\9c[g¬Ug¯_`¥T]§bZ²gT¨XV¢_Q£aQ°RZ§TW¦XN°^b \g©]dªVg­K`­Hf®Gkµ=p½Bd½9j¾6l¼9}¹/xÊ+m\8a\93³\7f\9aµy\9c·\7f¥¯~£ª\85\94¯\7f\92®y\97¼~\9d¬w\98ªu ±\80\99­\90\9a¹\8f\95·\8e\9aµ\93¢À\90¢»\9c\9d¼\94¥¹\93£¾\9d ´\96©·\94¦­\9d²¦¥°§\9e¬¡\9f©\9a£\9f\9e©\9d¥\9d¥¨¨®°©¥«²¡´¶\9c®³¤³À\9eª¿©¦Å«³Å©´Â³¶Æ·¯Æ¶®Å²¸Ä©¼Â±À¹´Ã½¶Ó¹·�µªÛ¶«Ö¾ Ú´¢ßº§ëàç�\95åÃ\94à À\8cã�\95íÆ\8dæË\8dïÇ\83ó¸\89ñ³\87è·|à »{æÈ\85æÂzé¾wôÀyï¾\81â¾ußÄrçÇné¼pò½|ÿ½xÿ¹wÿ¾sÿÂpþ¾i÷Ãpñ¹\82ä¿\81ç¹\81à �\82ÜÒv�ÖuÞÛpãÓgäÓháÒvâÑrëÔmêÕmîÖmëänòáríÛgÜÉkÚÇeÛ�]Ø�]ÖË[ã�^à Õ_çËfà ÉXêÉQæÇPê�KäÖFïÎRôÉRçÉOßÉUåÀWð·QîºLó«Wí«Qê¼Uê¾JíºHæ²Lå¤UÞ¥VÞ\9e\Þ¤X×­TØ®Nã¥Xà ¦PÙ¢S�­R׫V�³YɺOÔ¸J�·N˼V¾²S¿¯G±®@°³E«®D®­C®\9b8»\963·\8c2²\8d:­\90:¯\998¶\8d2±\919´\97:­£1¡ /\9d\9b6\98¡6£\961\9d 5¢\995 \9e5\92\9c:\9e\95:\9b\97-§£)§\9f-¥\9d-©\95(©\8a'¦\8f(¢\911£\89.¥\93-¨\8c*¦\92&¡\91'©\950°\9d)®\9d"­\98#¨\98&\9b\91*\9d\87*\9d\8c\e®\94)­\93*­\91/\9c\913\9b\94.  4\9c\9b1\9e\9e8¥\96>§\8a4¨\93B©\8dF©\8eD¡~M\9c\8aC\95\8aE\95}S\96~X\8b~R\8e\81J\93\84O\90\84T\8f\7fY\89\81M\7f\81_\84yf\89\7fg\8c|Z\8awb\94fX\85`V\87je\81qu\89ks\8fho\8e[o\91[f\8dWe\96Zc\93Oo\96Wd\9e^g\9e`f\96R`\9aJdªRi§^f¤a]°fgµde´[f¢RY X]ª]Z¦]V¨VQ¨[b¦^c²[a²Tl¦Qg«Jh®LxºGwÂGuÂ8kÉ6hÅ2vÇ)xÃ*o\84\9e¹y\9bµ|¨·\88\9e±|\9e®\81\9d°\7f\9b³}\94·x\97·r\9b«{\97¬\86\96£~\95®\8d\95«\86¢¹\88¤½\9aª´¢\9c²\9b£±\92¨­\92¤­\97£­\98§¥\97°¤¡©¬\9d¢£\9b ¤\9a¡\9c\9b\9a¯\9f\9fª¦ ¤¨¦®´\9fª®\99¦« ©²\97®±\9c­À¨®Â©²É°©Ç²¬Å³«Ë¯©Ë³®Ë¸°Ä¾«Ç´­�¸²Ñµ¬çº±Û­¨Ø¯\9dæ¾\9bà ´\9aßµ\8fà ¾\94ܾ\93áÂ\8aßÈ\8fð�~ã¼\85åµ{òµyñ±\80ò´|ë¿tê¾qâ�xßÆtæÃwãÂjèÅjë½tá¼\7fö½sòº\83ñ¾\7fÿÄw÷ÅpÿÃeøÇzïºxè½\80çÃzì¼\80çÄrÞ�xÔÞgØ�dÞÙdå×d��fêÒlà ÖfâÚoïðpéÚeçà gà Òsà ÅfÞÇhØÔ`ßÖeâÊh�ÑcëÉaæ�bá�OæÃNÜÈVìÇRðÅZñÄMïËOíÇKç¾WäµSòµRä²Jí©Nê°LéÄSæ´Nå±KߪSß²Và ¦Ká\9ePÛªVâ¡UÞ£^à ©XѱVÙ·Q�®TÈ©S̯OƲIι[Ì®X�¹Q�¶FÀ«M¬µ:«­@¤¢8² ?±\9a0ª\942§\924¯\927®\8e5´\9b4¯\9b?´\9a;¯¡0¤¤3\99¤=\9d\9e3¤\9f4\9e\993\9a\975\9c\92=\95\96:\98\94+\97¢'¤\95.¤\980 \93!¬\8b+¢\89\1f­\90"ª\852§\81.£\8d0²\8c*¡\930¦\87#°\950´£(§¢ ¯\96&\9e\9a$ \8b/¦\8d"\9b\87\1a\9d\94"§\97"\9c\99.¢\9f*¢\9e7\98¦0¢\9f;¤\9e=¯\8b9­\86<§\84?ª\81E¤\83A\9d\87D\9e\85M\9e\80H\9a\84M\90\84Z\95\82O\92~R\8a}K\89\85O\8e\8cO\85\8aP\85\80^\8f\83Z\8f\80a\87|P\8coK lS\98q^\86ug\82rm\7fet\89fm\8eYo\87aa\92\l\8cRj\92[r\96Qo\97eq\95\o\95Qj£Rc¡SiªZk¦\g§ae§as X`¡QR\9a^T¡[\¡Xb§L[\9e]`¬Tb²Qo¨HiªPl²Rl¾Ri�G}¿Mwº;zÇ;wÅ?\82Ì)tÅ!p\83\9bÀ\81\9aº\85\9b¿\83¤µ\7f\99®s\9bªn\93³s\96±}\8eº}\95²\7f\9a¶\82\94¨\8a\96¬\85\9c«\86£¬\88©º\98©«\97\9dª\95\95§\9a\9c¬¡\9c¬\97§®\9c©´\9aªª¨§¯¤¦ª\9a££\9b\98¢\9d\97¬¥¡²­¢¶¯¡¯¯\9d¯­\9d£¬\96¤§\9bª³\9b\9e²\9d\9eµ­ Å¯¥Ì²¬Ä¹¦À¸¤Ç°±Ò¹ªÑ´¨Ñ¶¬Ñ³§Ø±¨á±¦Ù«¤áµ\9dܸ\9bÚ°\95Ö¬\8dâ¶\8bß�\87äÀ\8bâÌ\81êÆ}ðÅtåµzî¶~õ¶yï¾ué½jéÇhåÂnè»oÙ¾c�ÄkâËmà ËwéÅ~ï»|ð´}ì¾\86ö½~ùÂvùÄoíº{î¾zðÃwíÀ~éÉzéÃ\7fßÒ|×ØoØÓpÚÓdèÖ`å�gâ�aßÞaçÞeèêeòÜcêÖjæËjè�sêÉuãÓsâ�oåÑbèÕ]ã×_à �SæÉWã»`Þ»Zá¼PêÂVíÈOåÂYâÅJì¹Jñ»Xä¶Uë¬Uâ®Oà ¯Hß»K�¶E�¸JÛ¶Ié­Ið\9eYê\9eXñ `ì\9fZÛ¡dÚ«\�´[Ñ°[Ñ¥KΧL΢S¢W£TʱUùUÅ´L»«K¯©>²­3¥¢4¦\9a6§\942¤\912¬\95=°\8bH¨\8eB¦\93Eª¡@§\9f7¬¡9¥§< ¦<¦¨;\9d\9d8\96\954\96\945¡\96.¢\93-¢\940\9f\9d-\9c\9d(¦\94%¡\88\1e\9f\87&ª\8e+¬\89(®\86$¨\86,²\8c#«\87'°\87"¨\8a-­\92.§\9b(±\9e$­\99\1f¦\91\1f¢\8c#§\8f)ª\89&­\92%£\9b$¦\9e(\9b "\96\98-\99\9f4\9a\8e-©\8c2²\8b0¬\8d6¥\919£\85<\9e\88G¤\7f@\9d\829\99\80C£wO\9bzV\97zV\97\81Y\91\87N\87\83O\86\81P\8f\87L\95\81S\91\82Y\91}Y\8dlK\90pJ\9dhR\8fjW\8apa\87h^\86ne\90ln\8fYi\8f\i\86Vg\8fXg\8a\s\90Wy\9fZs\9e[s ]s¡Xg\95\l\94Uf¤Yk¯Ul¨Xo Yn\9c^\¤TT Z[§W]¢Ra¥Ve¤Vd«Vi¯Ij¯RmµNj¹Kh¼Ot¾Ky´D\81ºHzÆ>}Ì/\82Ó$u\89\9dµ|\98¶\81\99»\80¬¸v\9c³r¤¶w\9a´j\92ªt\9dµx\95«z\97¯\7f\8b­|\90 \84\97¡}\99¬\8c§»\8a\9e­\97§°\91¤ª\94¥¥\8a©ª\98 ¦\92««\93­­\98¨¦\99\9d¨¥\96ª\96\98\9f\9a\9d¥¡¦¨ \96®«§®£\9c°¦\9e¢¦\98®¨\95 ¬¢¥¶\9f¡´£¤¼¦®Ä¨¥¸¶«½´¦Ç­¨Ñ±§�´ Ô²¡Ù²¦�³\98Ò­\9fá®\97è¹\9eá³\96â¯\90ä°\92é³\81é»\84Þ¶\80åÈ\80ìÅ|ð¾~í¶wö±sò�kñ·nå³rèÂvèÌgç¾eÖÃiáºaâÆqïÃfìÃuçµpåµ\82ò½zñÊkù½kð·n÷½mñÈvï�wæÂ{ñÂpðÑsåÒkÞßnáØjâÑcéÕoïÒdãÕgÛÖfÚçdáðnêájà Ùhæ�ví�wêÌsåÒsñ�läÛcäÔg×Ó]åÔ_à ÒLáÆRäµYã�Xñ¿LâÅLåºMà ¼Zð¶Oêµ]â·T×»RÙ¬QÙ·PÔ»EáµUׯJà ­Qà ·Fá®OÞ¡Yã©]ß\9bSå¦_�¤PܨZ�®LѪTÎ¥MÓ\9cEÇ\9ePÒ«VÑ®RÌ¡V�¥G¼®9´°3­ ?­\9b:ª¡<­\90<¥\9b4¡\92>\9e\91F±\91C¡\8a?¤\91=³\9e7±£D²ª@ª\9bA¨§7\9d\987\9c¡,\98\974\9d\9c,¯\97.\9a\91+¢\97"¦ ) \93$\9b\89\1d\9c\87$«\87/§\8b.¯\91*¦\8f'¦\8c\1fµ\8b&­\8d ¨\8e#­\8e*\9f\9a(\9d\910¦\99$\9b\91*\9b\97%\9d\8b)®\8a3¦\98-§\9f/\9a\95#\91\93 \90\9a0\9f\944¤\8e6£\9a1¥\8d/¨\9b,¯\92> }Cª\84G§yE¦|<\9cwD\91vF\9c}P\92vW\8e\8bL\84}M\8d\85Q\8a\86I\95\8aW\90\86O\8b\84Z\96\80^\8bsP\8cpP\9ecS\95hW\97v\\91sc\8egj\91mb\95[l\8e[j\7f]p\85[x\91Vr\93Yy\9fUp\9e[v¡Ms\95\u\8b^m\96Wc\99To\9d\t¥Nh¡[o¨^]§Xa\9fQe¥P\ªLl\9cJ`¡JX®Nm«Di´Rd·Gs®RtÃJr²MqµAy½F\80À;{Ê8\82�$|\83\93¼}\9c·\84¦À\86­¸\82¬´x¦´uª¯k\9e«i¢­o¢®j\99 t\92¡~¢ }¡¢\86\9f«~\9cµ\80«­\93«©\93¬¤\86¬«\85°¦\94¨§\8d«¥\96« \93ª \9d¥\9f\96¡\98\94\93\9c\99\9c\9b\9c\99\9a¦¡®¢\9b²« ¯¢\97¨ª\96«©\92§¬\94§¯\9d£©\99«´£§±¤ ½´¨½¬¤Ç¨©Ç² Ã¬\9bĪ �­ Ëµ\9eÑ·\93Ú¯\97å³\9dï­\93ê¯\86ç°}ß©\80ظ\84ܵ\86îÄ\83ïÃ\80ñ·yù²|û´nöºiò°jæ²uõ·móÇpë¸hä¹eéÆpéÂiè¿hè¶fëµiå­zéµlñÆhó¼n÷¹fï¼pôÂiöËlîÆtëÈpêÒn�ÕrÖÕsÛØjÞÔiâÕpç�eéËjà ÔpâÙiÛèsÜçtßÚnäßuãØoäÞlìÚbëÔ`îÖ[êÖaÜÄcãÆTëÊMò¾Hè½KáºNæÀMêºTâÃKÛ¿Räº\�±XÞ±Y߯TØ·`à ·WתMÛ©QÞ§Qß©GÜ°NÛ°Uã«SצUÜ¡\Ö¡[Õ\9bUß\96Wà \9cMÚ¤JÙ\9bJË\99Q΢F�\99SÓ\9aWÓ\9eEÈ\9aB�¨7º¥3³©,®\9d4¥¤5¨\995¡\9b=\9d\8e<£\84;ª\8b@­\87<§\8f9®\975¯©>¯¬B±\9e>®\9e7®\9f/®£:¨\9d3£\942¯\954§\99%\99\99"\9f\95\1e\9d\99$¤\94'\9a\91(ª\92%¬\91.²\8b#®\8f&¨\89'³\8a ¯\8e(¤\8b!\9d\8d+\9e\981\9b\925¥\8a+¡\96"\95\98*\9d\96*£\911¥\98*\9f\96- \92-\96\94-\9f\9b.\98\97'  $¥\99-²\946°\981¬\8c3¦\838¡\88=¥\7fD\9a\82G\94xM\9cuN\9dyS\96wI\88\84J\8e\83K\8e\85U\84\8aZ\8b\81W\8ezQ\91\81W\8cw`\8euZ\8cn_\92gW\8amT\93j\\91rb\8cme\8bcd\91gn\94[r\88Zr\84\r\8dNu\90Xt\9e[|\94S\82\9bMz\9bIj\8ePk\8bUq\95_l¢Xg To¨_k£]a§[e¨J^¡Ae¥Fm¡H\¨O[¨Oc¤Pp­Wf©Ok´Li¼Mt¿No¼>zµ9~¿<\80�0tÇ!u\7f\96¼\88\95·\7f\9b·\82­¶\80¥ªw\9e°n£¢p¢ªh¤\9en¥£u\9c\9an\9a¢\83\98\9d\82\9d\9d\81¤°\80\9a±\82£ \8f­¨\86°©\83¨¨\8c¥ª\99« \95\9e\9d\8e¬§\97¨\97\9f\99£¡\93\97\9c\8c¦\93\90¤\9e\9b¥\9d\93¢«¡¥¬\9d¦¢\91¯¨\96¬¤\9a¤´¡¯´\9e¤³\98ª¹§¦¹±\9c·®¥·ª\9c�µ\9fÀ¨¡Ê¨\96Ó²¡Óµ\96Ó«\9fܸ\98Úµ\95è¯\99äµ\94è§\81ä³\8dà §|Þ¨{ä°\82ä¸\82öÃ\86îµ~ö·rþºoú´nù½oò·kë¹gùºgô¾qð­gôÀmìÄfë½cé´oè²oé¶tôºjëÃgõ¹níÄo÷ÈhúÌiø�céÅkçÔtæØmëÕqà ÌmßÔißÕfãÓkáÜqÛÒo�Ôg×à n�ëpÚ×j×à pßÓpá×hçÔeì�]à �cîÒb�ÎVß�]ÜÉ]ã�Já»Tî·Ræ¾Q�ÄGßÇSÙ¿TÕ¹Tè¿YÙ»bÓ¼[Ó·aÒ¸_ض^Ó²SÓ²QÖ§YÚ«VرFÞ¡Pä¦[Û\99[æ\9bVà ¤ZÒ¡YÚ£QØ\9aRÙ\9dNÛ\9aWÕ\91V�\9bK�\9aWØ\98WÓ\97HÅ\97K�\9f4À\9d3º\9c;¶\986ª\983®\8a@\9f\939¢\90G£\8b6§\979¬\8aE®\89G¤£<ª\9e>¦ 5¨\9f9¤¦)²\9e/¦¡)«¨/·\9b4³\98/\9f\95*¢\9f\1e¥\93#\9d\8b"\9b\95,\95\98.¡\8b2¥\93.¢\902«\87+¤\8d"©\88#¬\8e%£\87-\9d\93%¥\95*¡\900\96\8e/\9c\931\90\931\99\9a&\96\9e(\97\936\9f\8f*\94\8f)\96\9a'\9a\9a5 \981¢\9a* \9a%\9f\9a8£\98=«\94<©\8b9¨\898¥\7f:\99\7f<\95\82E\93|S\90\7fJ\8b~R\91{Y\97\83Z\91\85c\96wV\8e{e\8b\89U\92}Q\90z\\8bq[\8eyT\92sT\8fwO\92mV\9bf]\90k`\91j]\96ql\88ia\84\t\85Sw\89Wx\92K\7f\90]\7f\95Os\9aUy\99Uu\97Is\9eYv\97W{¡Uz¤Pi¢\i¦P`\9eRl§Da¡Ae¡En§Hc¬K[«La®Lp§Nt©Jg±DmÂF{ÅBr»=yÇ3~Ä6|�1zÃ.|\82\9a°\83\91²\84\93ºv£¸y«¯~¢¥r¡¥u\9c£n¢¢m\97\97q\96¢v\9a\9dx¢\9c\83¥©\86£«\85£¤\81§¡\82\9e\9d\81¢\99\85­\9e\8f¢¡\95\9d§\93\9b£\96¡¤\9d¢\99\9c\95\9c\92\92\9f\95\90\9e\97\89ª\92\8c¥\98\89«¤\97¥ \98\9fª\8e¦¬\8b¡­\95ª¤\9d±ª\9c¨¬ ¥®§\99¶¢\95®¤\94º®\9c¾´\94Ë­\8eÒ¯\94Óµ\93×·\9cà ¼\94Ü°\8fæ³\8bäº\8bñ»\82íª\8aã¦\8bãª\86Ú¢}�©wã±\7fë»zðµyùÀrø¹lô´jó½eó¾ló¶eôºjú®nô±oø¯gí¼jï½iíÂkç¶tì¸kî®iì²uñ¿wîÀlîÃcðÑdóÚkõÑfñÎkóÔtéÔmêÎpà Îtß�pÙÛqÛÜnÓÖfÕÖm×ÞoßÞnåÖaÜ�dÚØ_ßÚaÚØaà Øaà Ñ\åÈXéÈRã�SÜ�OãÃUêÀ[èÂRè¾SÞ�Qà �UÓ¸V�¾^ÜÄ]Ü»ZÙµUâ°`Ü·aâ¬[Û±Tã«^Ú¤Wß\9fPߣOâ©Tã¤Rç\96Nå\97Yå [Ø\9fQÚ\9b^á ZÕ£VØ\9cSÛ\9aNÚ\8cY�\93N�\91NÈ\8cBÅ\8aDÇ\90C¸\94:Â\964º\893´\87;©\8b>§\97G«\95@¯\98=¦\9b?« B°\94E¨¡E©\9dA§ 7¤¨-¬ 3«§,µ«1¶©-¯¥)­\9e(¦\9d ©\99'¥\97&\9a\8d \96\88,¡\90'\98\94,\9c\97*¥\952 \890\9d\84)¨\8d*­\80$«\83,\9d\89/\9c\84&\9e\89/\95\94.\9d\8f-\9b\92.\91\9f&\98\9b)\9c\9f(£\970\97\94,\99\8e2\9e\8c7¡\92+¦\861§\89+£\90. \907\9b\89*¢\87. \83;\9d\889¡{D¡{@\93\85A\94\83N\9a\80U\8e|Y\8d\84[\96{`\8etg\8e~a\98\88f\98\82[\94\7f]\95v[\97pW\95uW t\\9cuR\95pX\97nW\97hZ\8bkZ\86[h\8eZm\89X~\87T}\94M~\91S|\8fG}\8bLv\93Is\97S{\9cT\80\9dO}\9eWr\9aTn\9bWh\9eHm¨Hs£Gm©Ge¤;i¥>f\9eDg§@k¨:k´>l°Ct´@q¼Gy¼DzÀ<uÈ@wË5uÓ*~�/\89{\87²{\8c³v\97»\81\9e¸r\9f«~\9e¤~\9d¤u\94\9fv\8d\9be\8a£p¡\94p¦\9cy¤\9c\89«¡\8aª\9e\84\9a\99\81\9f¤|\9d\96|¨\9d\88 \9f\8c¦\99\8c£«\98ª\9c\97©¢\8c ¢\95\95\95\93\97\97\9c\92¢\9b\94\9d\93\9b \9c¡¥¨¥£¯\98¨«\96¯°\8d«µ\94«§\91««\94\9e±¢§®ª¡µ­\9a¨¥\91±¦\96Ŷ\94�©\91Ω\91�²\9aʶ¢�¬\9cÖ¯\8bÙ±\91ß»\85æµ\82ê®\8a�¦\88è´\84Ú¬\83æ´vòµtõÀ{ø¸tô¹bñ»jþ¾hð¿põÃiù¸aöÂbô�cí¼hë¼dç²kò¼oö�dò´mñ½rð³líÀkí�fâÄlòÊ^éÂZóÕaïÔfòÚgùÕgòËiîÃtäÔuáÒyÒà nÛÖk×ÑlÚÑnØØqÖßrßßpß×bØÕjÓÑYà ØWãÔbéÃVáÂVà ÈYîËRèÂXà ½SâÂOçÈXßÇI�½JÙ»PدUÔ·X×�dѽ]äµOÙ²Zß½a�¬câ¶VߦMÛ£Yå\9aJ� Tè Và \99IÛ\9eGÞ\90Oå\95TÓ\9fL�¤Yé WÔ\9cHÔ\96WØ\97PÞ\85LÎ\8fRÈ\90QÒ\8cBÈ\8c=µ\90:´\916°\8f9À\8b>«\886¯\83B¤\8c4´\99B±\9aA¢¥>°¥=£\9eLª\92C\9e\94F\9f\996\9b\97.£\9e*­\99'­¥(©¥"«\95$©¡%¤\93"©\94(©\96-\95\8c\1e\96\850\9e\91+\9c\93 \99\8b)¡\8d(\9f\8f/¬\95+¦\8e,¢\96)¯\8d\1e\9f\92/\99\88%¢\90#\96\9b$\9c\912\9a\9e(\9c\8e4\8f\9a4\9f\97)ª\96)¦\92)\99\89, \8d(\9e\95(\99\97)ª\95.\9e\98/\9c\8f:\92\867\9e\811\9d\821\96\85:\98{B\9ex>\8a|I\87\8bR\96~X\8bt[\99\82R yV\8d\84b\8e}b\95tQ\9a\7fT\98oW\8eka\90k]\95r\\9dp[¡sc\92iV\98sR\90fV\87b^\95hp\97fx\8cSm\81Ls\95W}\91Yz\8aV{\85U\80\8cMr\92Ku\8fM\82\95K\7f\99I{ Rx£Xj\95Tp\94Nu\94Rj\96Lf\9fCl§Gf¤Qu\9dNq¦Cy¦Ir®A\80¦M\83·C\7fºG{¹6\7f¼AuÆ8\8aÉ4\80Ñ6\8am\89«w\8d¯x\88¬}\94µq\8b³r\90ª\82\96ª\80\95«t\92©m\8d§x\97\9ay£\94} \99\84©\99\83¡ \87¡\9d\8b¢¤\82§\9a\83£\98\88\9c\9b\90£¥\87  \86ª\96\8f¨\9d\8c£\9e\92\9f\9e\8b \9c\94\92\96\9e\95\9e\9b\9b\9e¡£ª¦¢«¬¤¥§\96ª¤\8f¡±\95\9e¬\9d¥³\9a\9a³\9b\9c¸¤ ¬¤\9b±ª\91±¥\98�¨\8f¿­\90À³\98¿´ Î©¡Ì±\9aÛ´\93Ö·\91Ôª\86Ú±~Ù¨\85Þ³\8c�®\82â¬~ì¶ró¾nô½uò�jæ½bë¹Zù¹]ÿ»e÷¶jú½k÷½còÅgë½dà µb߶oá½sî¼eñµoó¹wïÂrâÀoÜÄqßÉcè�]ò¿_æÄgã�^ìÊhñÓdôÑgïÇtëÂ}ÛÎwÚÑ{ÑÙq×�gÜÛgØÚdÙárÔáp�ÜhÚÎfÖÎXÖÆ_çÂ\êÀXßÅJß¿KìÆOîÈUíÇVë¹VؼNÕÆK�ÇIÓÆL�³ZÔ¶aÌ´`Þ¼Sà ²RÒ­R�·`Ô±bç²Tá¤P�£Vß\9aLæ\9ePä\99Oà \94Mà \92IÙ\99GÛ\9cG�§V× NߨEΪSÎ\9cOÕ\97B�\8cAÒ\91?�\8dCÓ\98@Å\93F¶\8eJ´\92?¼\91G»\8cH²\91C±\8b5®\8b5«\978¯\96>ª F\9f£<\9f¥A¦\9fF\9f\939©\8d-¢\95,¥\9b(¨\9c,¥\9a#­\91&³\93!¯ )­¥*©\99,¥\8a0\9d\80+£\7f5£\8e/\9e\8e)¢\90$¥\8d%\9e\97"¨\8e#©\96+¦\90(ª\91 ¥\8e,\96\935¡\91.£\97'\9c\9d(\9d\9c)\97\94-\91\8d. \994§\9b*\99\8e$\99\92 \99\8f!\96\92,\95\9c2 \9a1\97\930\98\94:\95\8e:\8e\84?\93\8a7\99\849\91{D\8b}B\87yH\86\82U\93xQ\91z[\8fyW\9ayX\92z\\95{R\8d}^\8dxX\8cr`\90kX\9apZ¢qe£f_\9akf\9cu`\91rZ\97kd\8fjh\95ip\92cy\8dUv\88Rq\94Yv\95Tz\8cL{\89Oz\88R\7f\8aNw\89Pp\90Qw\9eL\80\9fNy\99Ip\97Uv\94Op\93Ug\97Dg\9dDb¦Jh¡Ou£J{\9aHy\9eF\7f¥L\7f¡J\87«M\84·K\82½9zÉ9\86Ã>\8dÇ=\84Ò<\83n|²|\8c¶x\88ª\81\9d´x\98²r\96¬\82\8a§w\92¬u\93£o\88¦p\9d\95p¢\94z¢\97}©¡{¤\9b\88©¤\7f§\97\87¥\9a\85\97\92\8e\9c\96\8b\92\9e\92¢£\88¡\96\93«¥\8e¢\95\92\9d\9e\9b\96¢\94\96\9d\92\9e£¡\93\9b\99¥©£¬ \9c§­£\9d§¥\9a\9e«£¡®\9d¨­ ©¬\9f¤³±¦±¦\9a´¸\99¹¶\8a±\93ê\8aµ±\92À±¢Ñ \9bƤ\94Ì¥\99Ú³\85Ö¦\88�¢\8bÙ°\8cà ¤~ܳ\80�»~ó�zî½gø¿rö¶bæ½bôº^óÀZìÂ]ú½iô»kñ¸aï³föÄmà ¼fÚ¿ié�gé·oñÃrò°vé³oãÄiêÃeà ÎbëÆgîÀhãÀlà ÎZßÓhß×véÔmæËuß�xÚÊjØÕtÙÙv×ÓkÜÖoØåkÒåwÓÒs�ÛoÖ�jÓÑdÙËWÜÆXèÇUÞÃMæ»GéÀKã¼[èÄ`ãÇYÖ·SÒ½LËÂFÆÄNȶ^ɶ`Ô«a×»WÓ®ZÔ©QÙªbã°Zè\9fQâ\9c^á¦Sé¦TÛ\95[å\96Pæ\8fIß\98BÚ\9eNè¤Nè®På\9bLÓ\9c>Ô\96@Ì\98NÔ\96@Ú\94;Ô\8eIÌ\93C¾\8aD�\8aK¿\8e>»\89L�\84?µ\93Eº\8fF©\8f>«\85@¡\8aA¥¡B\9f >£ 7\95\9a0\96\974\9b\92-\9c\9f/¬\9a4°¢0°\963º\94+¶\971¹\93-®\984¬\9c.µ\8d$¢\8d/ª},\9c\832\9f\89-¡\8d5°\8c1©\8f,¥\9b-¦\9b&´\92$¯\94%®\9e\19\9f\920£\9f:\93\934\9c\8e6\9c\9d6\94\94.\9c\95&\93\9c-\98\98(¬\90'\97\91"\94\90'\90\95'\96\9d&\9b\900\9f\9c*\8d\9b1\95\95>\95\88:\8ax.\9a\85=\93\7f=\9a\8dC\87\83D\88\8bH\90\81Q\94\85U\92\82S\8fyT\90vQ\96yT\98yT\8buY\8by[\95kT\98mZ\98ma\9eu_\95o`\9arW\8akg\93n]\8dhf\82hj\8a`w\8eex\90Wt\83Py\8fX~\92\q\87U\81\82Vr\84Xz\94Hx\96S{\90L\83\8cNx\9dKm\92Mx\93Vh\9aTq\8f[e\9bUc\98Ue\9fKg\9dKo\9fU\82\97H\81\9cS\82¢E\8e¬J\85´D\8b·E\7fµ<\7fÅ9\8c�<\8dÌ=\86�8~{\84¯z\82®q\91°y\97¯x\8f·\83\95²\86\8d²|\85¥u\85¦s\8d\98z\9b¢w\9e\9cz\95\98}\98\97}\97\9e\7f¤§\80«¤\80¢\99\89\9f£\8e\93\9c\87\92\93\8c\9c\98\8a\9b\95\92ª\9b\9fª\9a ¤\92\9f§\91\9e\9a\9e\93\97¢\97\96¨\93\9d¥ ¤¦\9f¢\99¢¡\9c\9f¡ª£¥§\9e«¯¦³¨¢®©®­ ¥®\96§¹\93®¼\89µ±\89½¹\96¸²\94»©\94Ƥ\9f�¢\99Ê\9f\8dÇ©\93ѯ\8fÛ­\94Þ§\87å¥\8fß´\89è´\83î¼që´ní±gî¹aô½\øÆXñÃYúÃXñ¸aõ±iù²gú¼kó¾læ²qå·tã½xä¿xë»m÷·sý¿yó·näµhà ÂjÔ¾vÙ¼r�»jà Ægà �uÙ�zØÔvà ËzÞÎkÑÆmÔ�mÖÊt×ËrÊÛoÒÕuÒÜtÙÎuÙ�jØÉc�ÇbÑÊfß¿X�ÉKéÄJïÃNå»Rê¶Zç½\ì¹Nâ½Mß�L��R�¹R�²Y×·X�²XȱW�´ZÚ¯]تTקTå\99Uà \99Pè\9d\é\9f_á\9dZ�¤Vä\99Hî\96@é\9aGߧAã£LÜ¡HÑ\97CÌ\97GÑ @Ó\9dFÒ\8cCÃ\86C�\8dD�\95FÀ\8b?Å\88AÂ\8bKº\8cG´\8b@±\90@¥\88<ª\8bJ¦\8dI­\9cN¥£E\99\9a>\99\990\97\930\9f\9a-§\9c1§\9a7¯\9c8º\9b>µ¤A¼\9d:º\91;³\90.¶\93*°\87"®\89,§\83+°\7f3§\833®\915°\90/§\99&­\99+©\9e%¯\9b\18©\9d\18¢\9f!¥¤2¡\9e1\96¡7\8f\925\92\9b8\90\976\88\98,\8f\9a'\93\97. \90+\9f\912\9a\94+\8d\91&\91\9e%\92\984\97\991\93\8f6\89\852\86\844\92z*\94\851\9b\846\9e\90:\93\8cA\8c\8fP\8a\82S\8a\84O\8f{M\92zZ\8cqY\8drN\95wR\8cqS\8dmZ\9cnU\9boY¡j]\9bmc\98jZ\91sY\8cia\8cpa\87qc\85hs\8d_x\89cy\86Zz\8cV\81\8e]}\95Tu\95Vz\8bVx\8eR~\91S\83\97[y\8dU\7f\96Sw\92Rp\9c]r\9b\h\9fbk\98Xj\9dWg\97\t\99Yt£Pt¥O|\9fW\86©P\89£O\8b«M\90ºG\8f¶F\8d¾I\8d´L\91»A\88·;\8fÀ<\8av\89«~~³|\8a®x\86¦\80\97²{\91¨\80\85³\80\8a¨v\8d\9ds\8e ~\90¤{\97\9bx¢\98\7f¤\9d\85\9c¢\81\9b¨\86¦¥\83¤¡\85\9b\92\93\9d\9d\8e\95\8e\88£\8f\8c¨\94\97¬\94\94\9a\96\9e¢\8f\9d\9a\92\9d\97\9d\97¡\9f\92£ \9e£¢\9e¯®¢\9d\9d¡\9b\9e¢¨\9e¥\9f§²°¢¦ª£µ©£® \9d¨¨\98£³\8cµ¦\93¸­\86´«\93º¬\92¾¥\9cÄ\9b\9aé\90Â¥\95Òµ\92�­\91Ôµ\84å±\89ç­\8d�°\8cæ²yî½tã½uá­qí¾]ð±jé¾Zô½[ê¿_ë¹gö¸bó¨]æ³dç¼dî²të¾kçµtîÃqó¯oç´dó¾uô¿läÊiÛÄdåÀeÕ»nÞÌqÚËsâÆnÙ�s×Ó~à ÖnØ×j�Êt×ÌhÎÓoÑÖrÓØrÌÞlÓÜmÌØfÖËcÑÉjȼaØÆVÞ¾T�ÃIèºJâ¹UìµSÞ¸^ß³[â¯NØ·ZθNËÄIÌ·UѼP̲Y×®^Ú»]Ò¬PÕ­[�®WÖ£XÛ\97Rê\9fRô\9fIè\9fOâ¥Uê\9bNÚ\8dLè\94CÛ\92HØ£HÕ\9aI�¤NÒ£?Ù\9dIË¢<Õ\93CÉ\8cF�\85H½\83F½\84=¾\89;�\90B�\89L¹\8c>¾\8f>¯\84:³\915 \8d>ª\8eB©\9b@\9e\9c9©\91D\9c\8d@­ ;¢\930ª =¯\99?µ\93;¼\98@¹\97@¹\999·\9c,«\8b)²\90.·\89*¨\85.³\8d,²\84-·\87:³\8a(±\89!®\990©\9e.ª\90%¨\8e ¥\9e\e\99 !\96\94 \9d¡5\9c\97;\8f\8e=\90\9a3\94\933\91\947\96¥'\9d\8d,\9b\97$\9b\8c\1f\96\8b\1f\9b\9d'\94¥\18\96\9c-\97\95+\91\870\8e\81,\95~+\86x-\8f\88+\94\8a8\8axA\8e~@\92uP\8e\84Q\8e\81M\83zL\8cxY\97x[\91mX\92zc\91yZ\95wb\91t[\96dc\92r^\9fhe\99la\9bmh\98lY\8bkc\88ll\86`l\92fo\91ps\94bu\91Z\88\97_s\8bPu\87bo\8a_m\8cX}\98\\86\8dPy\8eX\80\91Y|\8dWs\97bj fc\9b_o\9dbu\98Xt¢Yp\9e^|\9cTt\97]z\9fT\85¢U\88¯O\88¶L\8b«J\92ºI\94»O\97·A\85°I\82µE\7fÌB\8er\87§v\84«v\80¤w\86¬x\83±w\88®t|±y~²{\82®~\95¥\81\98«|\91¦z \9f\81\9e\9b\88\96­\7f\97­\8a\9c£\84\99§\81\96\9b\88\9c\8d\91 \97\8d¥\8f\89¯\98\8b§\97\98\99\92\9a\96\99\9c\99\92©\9d\93¢\9e¢\9e\9f©¥¨££¨¥¥¢ª\9f\9b¢¦¡¡®\9d\9e¦£\94®®\9a´ \98¯ \94µ\9f\88®¡\8dµ¨\8d¸£\92¾¤\9a�£\92Ã\9d\99É\99\96Â\9a\93¼ª\94Ê®\8aÓ¼\83Ü·\84Þ©\8aÞ¦\87ç±\80ä©vá±oÚ½fä·lç¯hâ¯gëµeë¾QíÆZðÂbì³fè¬cí¶cçºeßÀmæ´në¶hì¸lð¶hã°féºuíÅ{ìÅ{äÇn�ÇmßÈjÕ�rÜÄxÕËtØÄw�ÉwãÚr�áiÖ×oÔÖcÒ×h�ÖbÊÔh��g×ÙqØÎcÈÔeÉÈ\Ò¹[ξVÔ¾W�ÀOí¿Hä¿Hã½Xç±Xâ³XÕ¸SÔ¯W�³KÌ�NÕÈCÑÀI×»YÔ¸\Óº_à ¬WÚ®RÕ­Nß©NÚ¡Pá¦Hî\9eGå\97Jå\9eNä\9fDá\8eHÙ\8aGÛ\96QØ\9cP�\9dBË\95KÕ\9eJÜ£CÑ IÕ\93FÈ\8eI�\8e>Ç\86@½\8b@·\95CÀ\95@Æ\83JÊ\83M¿\8dA¾\8b3¯\8d6­\87<\9d\8e<\9b\88>¤\91>­\92F¬\92C·\913°\992§\95:­\95G¦\8eL­\98@·\96@½ 3°\927´\8a.«\83,­\89;ª\8a-±\8e)´\8a-¹\802º\7f0¾\8d#²\8c+©\95)¢\90+©\92"¢\8b\1d\9b\90 \9c\99#\96\920\9b\98=\96\928\8f\9c1\96\9f9\91¥4\98\9e&\98\93(\9b\8d\18\99\8f\1c\93\93!\98\9f%\8e\9c\19\88\9a\1e\8b\91'\8e\8d&\8cy0\91~;\8b\857\97\862\93\7f4\92|7\8at>\83p<\82tK~\80P\88\80O\89\82T\9avd\97zf\97sc\9d{[\92yY\91u\\8fih\9agh£ma\9bqc\9ehf\98ad\98i^\8ahe\8dej\88s{\8ep}\8aqz\97g\7f\8bf{\8f[t\93_{\89aq\96^\80\99X}\89\x\86O{\88Sz\86Yp\8daf\98_l\8fbr\97`u\9aTl¨VnªWx\9cW\80\96Y{\9fX\85§X\83°Y\90¨L\85©N\8a¯C\97±H\97°O\95³E\81¾>\86ÊB\86p|¯j{²s\85²pz³oz½z\83Àr|º||°\85\87±\87\96³z\93¨}\8c¨x\8f\9f|\95\98\82\96\9f\82\9c\9f\7f\91\9d\87\92¨\80\9c\9b\8b\92\98\92\9e\90\92\9d\94\8c\96\95\95\9d\9c\98¢\96¥\95\95£\93\8fª£\9b\9e  ©\97\9f¥\95®§§¬¤\97¡¬\9d\9c­¤£¨\9d§³¥\97´¢\97»¨\97« \97º \8aµ£\87¹ª\95¹¨\8b²®\94¯¤\90º¨\95¼\97\93¼ \91¸«\9aÀµ\8cǶ\7fÖ¶\81Ó²~à ¸yê­xä¶nà ¾gã»så¯n�«låªdä¸Té¼XêºUò´_å¹Sâ¬\íºWâ»YèÂdâ¾rå¯hð°jâºké¼mç¹mæ»mê¼pçÃxß�\7fåÊpåÉ{ÚËrÞÎrÙ×uâÖráÙuÖÜnÖ�}Ò�x�ÜdÒÔcÊ�rÒÕiÊà eÖØnÔÕq�Æ]ÑÄXÒ»TÚÃPãÀ[ïÄJÚ½KèµTä¬Lç¬Ná±UÕ³VײQѹSÔ¶U�ÃJÙ±MÔ±NÑ«[× L×°TÙ¢FÖ®RÞªSæ\98Hç\9cEê\9eS�\91MÕ\9aWÛ\93VÖ\9fWÓ\99GÙ\90QÉ\90>Ê\9eLÖ£OÙ¥LÜ\9aAË\95JÇ\8d;�\8aBÆ\8eGÀ\87NÆ\8f@È\8bEÀ\81@Æ\84I¾\8d@½\87:¶\939¦\909\9f\961¨\911£\8f2©\948¯\8c>´\99E¼\9c=®\8e<¶\8eB°\95B¸¡Bº\966¶¥1¾\92/°\98;«\8e<¹\94<¯\8f6¸\915½\91$¾\851°\81)µ\8b$¸\94 ª\93\1d±\8d#¤\9b\e\9c\96"\98\97- \8c"\9a\8f(\93\958\93\929\8f\90;\9c¢:\8d\97.\93\9f0\8b\99\1e\8b\96\e\96\95\12\89\9a\17\8b\9e\19\7f\9d\e\88\99!\8d\8e#\82\83$\86\80/\92z8\8axA\92\82=\8ft6\86\81:\92u:\8ds@\8duJ\8buL\90xK\96yZ\98{f\9c}\ nc\9dra\92wg\9ejj\99po¥al¤cX¤ng\9dbd¦md\94j[\98^i\9agb\96nz\8fpy\8en\83\97q|\8agr\8d^n\95i\7f\8em{\98a}\8fc{\8dPz\8a\z\94Yy\8cVu\89Xq\92X|\95^l\9eax [w\9bV{\9dN{¡N\82¨Z\8a¥K\88©S\81²\\91³O\8b¥B\8f®P\8c¸N\94µ>\8d±G\81¼I\8d¾9\90h\83°jy¿s{�r}½wyÉ}yÃ}\88Â}\86·~\8e±\82\8d¯x\8a·v\8a´w\8b¨\86\96¥\8d\96©\86\92¡\84\91¢}\9b\98\84\98\8d\84\97\93\91\96\93\92\91\95\98\9c\91\98\9b\99\99¤\96§ \90¡ \93£\9d\99\9f\91¡£\93¡³\92¥²\9a¨¶§¤·¢£®£ª±\9a©¹\96\9f¹\97\98´¢\94³¥\96»£\99¹©\8e»ª\89²¦\8f«¤\96¬ª\8cº­\90»¡\8c¹²\86õ\8f̶\8eɵ\7f�¯\84Ô·|Û·u�´t�ºlÛºlà ³må³méªbë¯^ä¯Vî¿Zè·Lð·Oò°Yä¶Yà ´Vç¿Uï»déºfî®cê²lé¼oß¹kêÀqï�kè½sëÆ}îÆ{ãÈ\85îÒ\83éÌ|ÞØ}áÙoÔÜkÔÕwÕÛrÊÓ|ÖÒzÕ�qÓÙm×ÙjÓ�eÌÕiÊÛnÕ�oßÅcܾcØ¿]â»XèÀWà »UåµIÜ­Hå®KÞ²K�³MܾSܾT�¸TÚ²UÖ¹YÖ´XÒ±QÕ¥KÖ¤Ká®Iá¨Lå§W�¢Pá\9cLà \95EÙ\99MÜ\8dTß\99OÕ\96TÒ\97N�\9eLÒ\99MÌ\92AÔ\99@Ì\9dEÎ\9a=Ø\9d?�\946È\9b=Å\9eGÄ\92JÆ\8fJÄ\90NÈ\95H½\8fGÃ\8a>¾\88B¿\8b7±\939¦\90.¢\902\9c\919¢\935\9b\8b5¥\87C­\90=¶\8eD»\93L´\8dB­\96<´\9cG¼\99<´\9e<»\9a;²\98=µ\98>¹\999µ\8f1¸\8a1¯\8f.³\8c\1e±\8c\eº\8e °\96%¯\9a ª\92#§\93\1d¥\9b&\99\96(\8f\90)\95\940\9d\8b.\97\8e5\99\948\96\98,\96\8d+\87\93-\81\93+\89\9c\1a\8a\91\11\89\95\14\89\91\10\81\9d\1a\82\94%\89\8b+\8b\8c-\89\7f1\8f\833\84v@\8a|F\8cz;\95wE\8euB\90vO\8czN\8f{K\8fsS\9cwT\9bta\9d}k¡ug¢|_\9etg ke¦ekªf[\9fc\\9f^g¤ge¥[c\9e_a\9eii\9agf\8cso\88qx\82ut\86ww\82w\80\8foy\8at~\91n{\99mv\91^|\93[q\99Wl\9b]s\8d[o\8bZw\9aS|\97U}¢Yw\97]\86\9aT\83 Z\7f¦S\8a¢J\85¤M\85±L\90®O\8b§M\93¦C\8a´J\8f²F\8d·K\87µC\92¸9\90Â7\8ce\81±iv®s\85¶n\8a»}~½\83\7f°zx²x{µ\85\89º\7f\88²~\8b«t\90§r\93ª\7f\9a\9by\99 \86\8c\9b\8b\97 \8c\9d\96\85\96\9f\89¤\98\90\99\96\92\91\97\8d¡\9b\99\9d\8f¡ \93\9f¤\98«\99\9f\9f¤\96\99¡\98\9d\97\9c®\94\9f¬\8c¦³£¨²\99\9f´\98¤¯\9e¢¦\9b¢¬¢ ²¢\9d¤\9a\91µ \8d´\9f~°¥\92« \95¨ \89ª£\87¾\9b\87¹£\8d¹¨\8dÄ­\81̳\84ïwÖ®\81�¹t׸wâ´sÔ¬uå³lè®lã»eð½Zö°YêÀVí¶Pð´SçÀ]áÂRä³Uâ¼^çºeâ�eÜ�pà ´fá¯cé±aÙ¶kè´ièÀgãÉvã¿zÞÄx�½~×ÃzÜ�\83ÛÓ\7fä�yÑÌw××kÓ�}ÆÈ{ÆÜl×änØà tÖÓmÎÙdØÙl�ÎeÒÙ_ÖÎbÖÂeãÆWåÆMÚÅUÙ½LÖ¾SØ®V׺Mß»C×ÂI�¶VÌ�PDZLÕ¸[Ùµ]�¯PÒ·RÒ­FÓ\9bOÒ\9fDÕ\9ePß\9fMä\9bMâ\94EÛ\95Oß\9cFÖ\95NÓ\9cMÖ\95_Î\97[Ë VÆ\94AÅ\94B�\9b@Û\9cKס=�\97BÙ\9eLÆ\9eHÇ\9bDÆ\92GÄ\90MË\93G¿\91L½\90I¾\8e<¸\95:±\89:®\965ª\8f=¨\9d;¢\9e0¨\95< \8e:\9d\90>©\8aF¨\96>µ\90H©\8cJ­\98D® ?·\9cA±\9a>©\8e6²\8a@¨\96A°\93>©\8b0¯\86.·\85%·\93,­\8c#­\8f%ª\8f'«\9a\1f«\92\16³\99\e§\93# \94!£\9a-\92\8e4\8d\97/\96\92)\8b\9a4\96\98/\8e $\89\90#\8f\99-\83\95\1f\8e\90%\86\91\16\90\9d\1f\88¢%\8e\9a%\8c\83%\87\8e*\82\8e/\86v/\87\7f9\91r4\8azE\93\81C\8d\82E\8ezL\87rG\89sM\99\80\\95{X§yZ©oh wl {d¨yt¤oo du\9bgf¤uW¦a_ kn¢\g¤e`\9bnn\9fin\8aio\90xv\90z\81\96rt\8eu{\8cjk\8cn~\90n{\94b\84\94cy\8b\u\9ebs\8deq\90gq\96^s§Q\82¦aw¡Pq¥Sw\9cUv£S\7f®M\8a®X\8d¤N\90«H\8dºC\86¥N\8a¤I\82³O\8c­Q\95±B\8e¶F\8d»D\91»1\8ab~¤h~ªc\83¯o\89¶n\81®x\83­n}´o\80½\81\7f±\84\8c§v\92©r\89¡s\8a\9cu\99\9bz\93¡~\8f\9f\86\93§\8b\8e£}\9e¢\7f\9f\90\87\97\8f\88\97\97\8f¨\8f¢¬\94¦­\94¤\9c\9f£§\98\9d¡\9a\9a¦§£¤¥²\9f£³\8c\9b«\9d\9b± \9fª\9c\9b«\97\99¦\96\9e¤¦ ¦\96\98¡\96\8f\9d\9b\8e£\97\7f\9b\9e\83£¥\93©§\8c³\98\88¸\9e\8eÃ\9a\94Ç¢\86½¢{¾¦|ȲzιuÒ¶qÔ·{Öºwß®så¦a�®]á³bâ°Zó»[ô�Væ¶Wíº[éÀcì�bæ¼_é¾cçºiÞ¸uÞ½që»géµjè¿fÙ¼cÛ¸pé½rë�\7fæ½|ÛÇxÛÃ\7fÔÎ\86ÔÎ\80ÙÅzØÆw�Òl�Øm�×qÓÌvÖ�sÇ�n×�hÙÎhÖ�rÖÜmØÔiÓ�W�ËU�Äc�Ê`ÜÃO�ÈKÕÂTÚ·RÞ¶R×ÂHßÀIÛÃJÜ»MËÀJ÷OȸUÕ³TÛ­U×­RάGÔ\9bJÑ\97HØ\9bFß\92Cà \9aIÞ\94LØ\93JÛ¤EÔ¦MÎ\9bSÌ\96ZÉ¢ŢQàDÈ\9bG×\91GÙ\94JÒ¢GØ\9eH×\9dTÑ\97OÄ\8fF¸\93FÀ\99DÈ\95@Ê\99I»\90A¼\907·\9b=²\96>´\883¶\8f<¯\9a6§¡7\9f\9c1£\925£\8cH¦\8aI£\96E­\9eA®\96J¹£Nµ¢Aµ\91<­\8f=¢\8aB§\8b:¥\8dA¦\86@°~=ª\81-«\88'ª\911²\8f+±\91 ¹\8d\18±\92\1a¯\9d\1c²\99!«\94\1d«\9e$£\9c/\98\91)\9b\8e&\90\91.\88 0\90\9e.\96¡"\97\97$\8a\93(\8a\8c)\90\8e.\88\91)\81\9a+\8b\99#\8b\92"\89\8c\1e\8f\951\8a\8c6\86\89/\84x5\84s5\92uB\91\82O\8a\88P\89yO\90zG\91uG\9d|Tªz_©wa¨{g\9c|i§pq¥mq£ru¡sn\99qh\9dv[\9aw\\97hi\9ejk¨cc\9cmq\9coq\93mw\8apw\8at}\95|~\95pu\8fln\88l{\8ah~\85m\83\91f\85\8cj\8a\94d\86\8d\\81\8ae}\9de\86¤^~¢Vv¡Wp¬Qt¥Rs±Pv«N\81±O\89³V\8a²G\88´E\80·Oz©K\80¤S\8e¨L\91®J\96ÀG\8bÈ<\8b¾<\7ff\80ª`{±b\80°c\82¨q~§w\80«w\85µs\84°\82\84µ\85\80¦\83\94 v\8d\9b~\89\9cs\8a¦\84\88¦|\90\9b}\8b§\82\9b¢\8c\98\95~¢\98\82\9b\95\93\97\94\96\9b\96¨ª\98\99§\96 \99\9fª\9a¥¤­\97ª¨\98¯\99\9c²\9c\9d©\91\95±\9e\95¬¢\9d®\9a\9b¤\9d\96¤\99\9c \98\92\9e\9b\93¥\9a\8f«\93\86¢\9a\81­\9f\83\9e\9e\8f°«\8f³¡|À\9c\88º£\8a¾\99\84¿¡\84È©wÒ²xˬrÕ±uܸqÕ·mÜ®kå®`ܧhá¶aêµ\ó´Vçµbð¶\ìÀ\æÀaá¹`ãÄVà Åeî·eæ�tÞ¼nç¶jß¼pؽlÓ´\�µpê¸vèÄqßÅuéÇ\82ÔÄtÙ�\7fÙÉrÖÒpÇÓqÓ�nØÔj�ÑiÚÛq�Öx�âkÓÕlÓ×_�ÜcØÛaÖ�`ã�QÓ�U�ÀbÚÀTâËUá¾OÙ¹[׿QÛ´VÖ»IܺK�¾J×¼QÔ®X̼N�ªWשPѦ[ܯ^Ù¤W�\96IÓ\91FÔ A�\93D×\96DÞ\91S� FÚ£Q�¢D�¢NÈ\98^�¤VˤPÒªUÅ\9aNË\9cHÚ¤D×\96P�\9dEÕ\9dIÌ\90FÆ\91A¿ DÃ\9eK»\97D½ G´\9e@·\91Eº\94Aµ\8a6±\835­\90@¨\94@¤\966¦\96<¤¡A©\8fJ¨\9cF\9e\93J\9e\9dR°\9fT§£R¶\9dE·\95K¯\92?©\88:©\8e:®\90:±\85C­\90<®\881«\89)¬\9e*²\9d!¨\9b#µ\98'¯\98!²¢\15¹£\1aª\9d$¡£$¥\99&\91\9b&\9c\923\93\9b0\90\9d6\8f\94'\92\943\96\98&\86\8a$\80\912\8c\89'\8c\8b!\8c\96*\90\97\1a\8f\90#\82\93+\87\93'\82\931\88\8c2\92\81A\8d\87F\97}:\97\81E\86\8fE\87{F\8c\80I\99\86V¡z]\9dw\¤wc§uk\9bmp£yi§rt\9fkr­nh¬wp\9em[ xo¦lr£hn¦ej§sq\92uq\97mp\93r{\92pr\9anx\93s{\90kn\94hr\92ky\97g\8b\9a`\88\98k\87\94h\8b\8cl\85\9bf}\92\\88¬U\88¥W\7f¡Os\9f^o\9e\{©Uv­S~¬O\82©I\84­P}²C\83µF}·A~¬H\86¬A\96»<\8aÄ<\81Ç6\8dÇ4\89[\8f\9f\\88¬h\89©f\82ªl\84©w\85¬y\88©t|°{{³\82\82¬\80\85\9b\81\96\9b|\8c\96\82\88¡\85\8a¦z\8f¢~\94¢\81\9a¢\82\9e\94\86¢\96\8f\99\94\93¡\96\93¦\90 ©\95\98\9e\96¡¤\9f\9c«£¢¨¡¡¥\9a«\99\96®\9d\98§\92\93©\93\9b¦\9f ¥§\9b§¥\9d¤\99\99\99\99\88\9c\9f\86\9e\94\7f« \83©\9c~£\99\89§§\83º«x»«{¨z¾\9b\88¼\98\91¾\95\88Π\83Σ\82Ø«uÕ«wÎ¥zÕ¯qÕ£jקcÞª]ë­]è¨eñ³^í³Sî·Yé½\è²`ê�gÞÂ\à ¼dä½hãÅjâ½tÛ¹sã½pä¾s�»fâ¾ué¿uè¸\82ç»\7fÛÊ{ÚËtÒ�oÓÇrÔÊyÇ�q�Ön�ÑwÇ×q��mÆØj�ÖmÑÔfØÛ`ãÕYÜÒ^ç�Xá�XãÇ^Ù¿VáÅVßÂKصNÕ·RÒ¶NʲJÖ¸QÑ�U�²TÑ´R�·Xʱ^ΫRǬT΢_Ó¢^Ö\96XÒ\94RÖ\93SÜ\9aLÓ\92QÌ\94KÆ\96KÑ\9dN�ªDȪKÅ¢PÊ©XÊ©QצXÛªYÒ¨X�©T�¤MÇ S�\97G�\93GÆ\96IÃ\9fN�¤F¸¡E´¥E´\9cN¸\9fI»\9bI¿\94Fµ\87;³\89@±\8b?¦\95D§\8f@¢\9a@¢¡E  >¤\9eJ \98F\9c\96O¤\99R³\92U·\98Pµ\91C§\8c<°\8d<«\879¥\923­\907°\8c;¬\8a3ª\98.®\9a0§\9b0«\9a%¨\92\18¯\9b\e©§\16²¦!¤ª"\9b¦)\95¡'\98¢0\9a¤-\95\983\9a\8e3\96\91.\8c\8b(\8a\87-~\87'\82\90.\83\94.\84\94"~\9a(\83\93"\85\97\1c\89\8f'\8d\90(\84\88.\92\8d5\8e\8c<\92\8dF\98\84B\8b\81?\8e\84@\95\7fE\8c\87Q\92~X¡\83T\9c\82b§t_¤j]¥jj¨se\9eri¢w`ªvg±~l¦ul\9fzi¤rt«kv¢op xr\99pg\99xm\9fxr or£l}\9brt\94tx\98f\81\94f\82\9c`\88\97\\89\93a\83\92d\8c\9b`\87\9bg\87£`}£Z\84¡\\7f«Tt©Pv¥W\7f\9fZ{\9eSz¥EwªGy«@\82»I\85¸A\86·@\8c¾:\8c³E\89¶>\88¼8\88À?\8fÅ=\87c\8e¯`\8d¦g\88¡l\8c¥e~ªh~·ey°p{µm\8d«z\8a°s\8f\9cv\97 r\90§\80\92©s\90\9e~\8f\9c~\8d¨}\90\99\85\99\92\8b®\97\8f \8f\8a \9e\99¤\93\97\9f\97\9e\9d\94 °\97 ¡\9b\98\9b\9f« \9f©\9b\96¦¡\93²\98\96¤\9f¡¦\9f¥­\9e\95\9f \98\9b\9b\94§\9a\89¡\94\88¨\96\85\9d\9d\7f¦\92\8a\9d\99\86¬©|®¤\7fº«\86¬\9d\82³\98\84¸\9a\87½\9c\83º\9a\87Ã\9esǨ{ظn�¬oÚ§vѤsà ±`ã²aåµ^â·hà �WéÀ[öÀVä²\í®fã´[á¼[à ÃcÚ·nÚ¸yÞÀnæ´v×»m׸iسrçÀeçÃpâ»uä½\7fåºzÒÇ}Û�nØÄqÖÊjÉÇpÑÒwÕÒjÚÔmÔ×kÑÒfÎÒvÓØ`��gÓÌ_ÞÆSÔÂRäÅVÖÉLÛÀN×½PÚ¾P̾TÉÄXÊ�NÑ»P�ÄOÊÉKÛºU�±]Ƶ`�¨W�¬Z�´]Ö§\�\9ec�\95QÌ\9bMÜ\95J�¢MʤFÓ\9dRÒ\9cPÉ£WÓ¡XɧEÌ\9fUÇ¢MɬNÒ¬QÈ°WÖ¦^�¡W�\9dV�\99JÃ\93MÈ E¼\99IË\9dQ¬AëOÂ\9cP¿\99L³ Mº J¬\93I¶\98J¤\91>¬\92;³\968®\988¥\8aC¤\929£\92?\9f\95>\98\8b?\9c\96A¡\9fHª\98H­¢F§\97H\9f\97C£\857¤\876«\93;¦\893¤\956£\924®\871¯\8f0®\912¯\96/³\9d"¯\9a\15¥ª"«®%¬§\1f¨\98%¡\97%\95 0\99¡;\8e\9e/\87\993\89\94,\85\8c5\88\99'{\95*y\8d)\80\99*\84\96\1cz\97 }\96\1d\91\8f(\91\8f+\91\97*\8a\945\91\938\89\8e2\87\90@\98\87<\99\8fF\8f\867\91\83C\8a\92T\99\7fQª~O«wV¨tg§rl¯plªl^¢{`¡}f¤}m°to©liªugªzp¬ll¢w~\9clm¨~r\99~v\9czt\99wz\95du\99fm\98qu\99tr\9bl}\97a\88\9cf\85\92i\90\8e]\81\9eb\86\9b`\8d\9e^y\9bWv\9eW~¯_u§Z\80£U\83¤Oz¥R\82¤J\7f®L}±J}´R\90´A\86»>\92¹?\82º@\89µB\87µ:\8eËB\92Ê;\86^\88\9fS\80¥a\81¡f\89¥n\87¤ez²]}ªd\82³g\94­e\95¨h\91\9cp\91\9f|\8c§x\8d\9fu\8c y\96¡t\93\9ct\94\98y¤\8e~«\8a\82¬\97\90¦\95\96\9c\98\96¡\8e\95¨\89\9cª\92£¤\92\9b\9c\8e\9a\98\91©£\9e¦\99\9e¯\98\98ª\90¡ \99\99\9b©\8e¤¬\92¥¨\93ª£\89±¦\80©\9ez\9c\97x\9e\94\84§\98|¦¦\82­\9c\86§\99\80ª\9b\83´\92}½\9b\83¹ª\84Ų\7fƨr˵mʶp�«tÜ­s�§pÚ¯hà ¯e�Àlâ¹`ßÂZâÅSôÃWïÆbá¹`ßÃfæ¿dÞÅiá¾påÀs߸vâ±wÖ¸q�´zØ´t�¼jâÈiâÅgáÅqØÀxØ¿uÚÀy�ÇlÖÆqÑÃtÜ�sÖ�lÞËhÚÊnÞØp�ØoÓÚnÌÕ_ÒÉQ�ÃPÓ·]×¼XÕËTÜÈKßÉP�»IÄ¿MÈÃXÄÆK̽L�¾RÔÉPÙ¼]Ù¸`Ù®eȯZÙ¨Y�ªbÚ\98eØ\96dÓ\93ZÔ\92QÖ\9cT�\9aQÆ\9bOʦOÄ¢NÈ\9a[�\9eWÔ¬LÓ¨GÒ\9fPÒ¬YʯPÄ´U˪bȤV¾\99P¿\9bQÅ\95FÅ\9dQÃ\9cLÉ£GĬF¼®D¾\9eIÀ O¼ Eª\9fK¦\95B\9c\95D \8eB¯\96C¯\957¯\8b:¡\8bB\9d\8fA\99\8f@\98\8c?\9c\8aB\9c\93;¥\97<¬\9bF¦\9aH«\9eC¢\92C¦\936¥\840¤\925¯\921­\8e+«\8a+²\8a/­\88&©\8e1¬\9d,¤¨*¦¦ ¡©(§¬%§¤!ª\97.© 7¡\9a/\9d\942\8c\926\83\9b.\84\97+\87\97(} 1y\945u\99(p¢#w \1e{\9c\1c\87\91\1d\8c\97\18\8e\9e \8c\9f-\89\98+\85\91.\89\935\8a\8b;\8f\84F\8e\85>\96\8f<\94\8fD\99\8bN\9c}W¤zO®v^ªpf®q^¨m^\9bod\9asd\9dzr§vn¥zj¨og¢tp¤\7fk\9e|u¤nz©|u­|~¥rt\97wm\9fhy\97jv\94sn\8cqk\89s\80\95k\86\9fg\89\98e\87\9f]\81\99\\86\96Z\7f\9d_\83\94j{\9ceu bt£Xk©Y~¤X\82\9aP\8b\9dD\83¦G\88¬K\80¤B\83­J\8d´C\87�@\8a»:\8dÄ=\8a½5\86½:\93Æ>\94Ì7\8bR\82ªZ\82§]\8c¨\\8bª\\81³a\7f®[\88°k\85±a\8c­e\8c¯m\97«k\96\97o\90\94f\89\91m\9a z\95\9fv\94\9b\82¡\93\85\9c\8f\86£\89\87¤\83\97\9f\91\98¨\89\9b£\91\9e¦\8a\97­\8f\98\9c\8e\9e \88«\96\8d£\98 ª\95\9c¥\9a\95¡¡\91¬\9c\9b\9c\9d\98¨«\92¬¯\85¡\9d\83ª¨\80\9f\96x\9e\93\83¡\90\8d¨\95\85© \8c¢\93{¦\95}¤\92\86§\8e\82µ\94\80À\9du¾ª|Æ£kÄ´h�°pÓ¹n�¸tÜ®wÛ¸kÙ´nâºmÖ¾lÙÅcäÈ`ë�^ç¹Yß¼cá¸XïÂe�Àc�µrØÀj×´oÙ°nѹmÞ¿hÙ¶mßÊjäÌcê�h�ÃjÙ»tܺuÙÅf×�jÛÃyÙÇvÖÌiÞÓiØÇoâÎpÑ�jÜØlÕÒb�ÊVÑÃVÖ½QÖÂ[ÓÄPÔÅGâ�L�ÈF×ÄP×ÄJÓÆ\˽XÄ�RÓÄQÖÌPà ·bܲcÚ±fÙ±_Ù¯_اiâ\9fcÖ\9cdÚ\9b_Ì\9a]�\9bW�\9cXÕ\9a\Ô®QѦVÖ\9aOÛ¬PÖ¤ZÓªJÑ\99Vؤ^˧YÈ®a΢`�\9e[�\97XǤJº\9fNÆ\9cHº¢T£S�£E¶¤B¿£K�£@¶\998¨\936¬\8d9\9e\94D\98\84=¤\875¢\924©\93<¢\8a:\98\8c9¡\85A£\91A¤\8e6\9d\94;©\91H\9e\9cC§\91G¨\8cH¨\90H\9d\8d?ª\8e-¤\899§\8a9«\8b'§\8c1­\880ª\8b,§\99#¤¡ ¬\9b*ª¨$\9e\9e#§¡)§¥%¬\9f$¬\98. \986\98\99/\87\8e+\8f\93*\81¤3\82\9d*w¥*|¡*t¡/\82¦\1f\84\9a\1e\84 \e\81\94%\85\91\1c\90\96\1d\91\94\1f\86\9e"\8b\98'\92\9a.\95\97/\98\87D \8f;\97\97;\9c\8fL¡\91R\95\84L\9d~J¨|U©kb¦ma\9eka i^\94jf\9a~j¥|m¥qg©vo¡\81i¨~p¢~uªns¥tx«xt¨u}\95ty\95pu\97fu\95dz\98kt\99ky\97_\7f\9ea\82\96b\8a\99b~¢hz\9be\84£\z\9b^~\9b\s©Vo\9f^x¡P~ªR\7f\9fP\86¥I\8d¦M\8b¦T\80µF\86¸>\90®I\97¿D\8b¿D\8c½H\8d¼<\85¾;\90ËG\97Õ;\8cZ\8fªU\90«Q\85¥R\86¨^{³Y~°c\84«c\85¯^\86²]\85ªc\92¤e\98\9ck\9c\98e\90\91k\92\8cu\99\90\81\9e\8d~\9d\89\7fª\83\86ª\87\90«\88\8e¥\85\90¤\81\9d¨\8e¥ª\9a\9e \94¡¤\98§¤\90©¦\8c©\97\99°\9f\8d¨\9e\8f¬\9d\89¨¤\94¥¤\92\9c¥\86¢¬\83¤¤} ¥x¢\9b\80©\98| \8f\87£\99\8a¡\91\85 \91\83¥\94{\9f\8e\87ª\98\83µ\97y»\9fuº¤m¹­j¾·fƵróg�´jÔ¾h�¿vÒÀ~áÃuå�rÞÈdâºoê¼hä½jí�\ê½]ê¾c�»mÜ·kÜ´dÛ´n�·jÛ´fß´kÛ¾qÜÅoèËmà ÂyäÇs�ÅqÚ¿kÔ�sÒÊp�½pØ�tà �x×�j×ÊpÚ×dÕÙ\Ö�]ÕÌTÌÌNÚÄIÖÂPÜÇSÑËQÖÂOÖÀDÓ¼GÓÈJÉËG�¿OŵZʸ[ѵcØ�[â�cÛ¹[á·\Ú±aâ¤Zâ\9d^Ú\9adÙ\9bd�\94dÓ\96YÒ cÒ\9b_�\9aaÌ¥b�¯dÒ©TÓ¬XÞ­Yâ§[Ö¤W�¤UÕ©cÈ«ZÆ£^É\99VÉ\9bS¾\9cM¾£S²¤U¶ªX®¬V³¥Lº\98C°\9b>±\968·\9a6³\99:ª\8e:¥\930¡\891¦\8a-\99\869\9d\926£\908¦\867\9d\888 \92.¡\8f5 \96<¡\92B¥\8fH¦\89H\9f\87J\9e\86A\9e\86C¨\869¬z4°}3°\7f9­\89.®\8c+¬\91)¥\96%¬\97$±\98'¦\98+®¤.¨¡%«§$§¢$¨\95"¢\94,\98\8b$\91\90+\86\960\86\9f,{¥"{\9a'\7f¥.z§(\83® \84¥(\82\9e%}\9c!~\98\1f\83\97)\90\90$\94\99!\8f\92&\8e\92)\93\948\9b\967\97\96:\9e\938\95\86@\9a\89M\93\8eF\97\83O£\80Z\9fvf\9ams£un\99|f\9brh sj§}b±yo©{m®}j³xm®uv¯xz±x~¬qy wu\9exu\92vy\94ix\95ho\98`s\9eet\95b|\94[\83\98_\84 ]}\9dd|\95\u\98`x\9eVo\9cWt\9e[s¨Vv¥N}©G\8a¦?\94­G\8e¯I\93¬K\91¸M\8e³=\8f´F\97µL\97�R\93ÆJ\8cÉK\8dÃL\88ÄB\91ÎC\93T\86¶`\8a¤[\89®Y\85£Z}£^}±`~¬g\80¬c\87¢d\90¤^\8f\9ba\96\9e]\97\97q\8f\96d\93\8cp\9b\8bu¢\8fz¡\89\88¡\85\89ª\87\90¥\90\98£\97\9b \93¢¥\97\99¥\90\95¤\89 \9d\8d¨ \94\9d\9d\8e \99\91\99\9e\97\9c\99\89¥\9b\8e©£\84£\9f\7f¢¥\86§¢\87©¡\86­\9f\84¨\94\8b¡\9d\85\9c\99\88¦\8d\83¤\89\81¦\86\84\9d\8e\88­\96\8b¦\9c\85³\9cv²\9cw�\9bg¹©m»¥fÀ¯v¿³mÌ®pδyÕ¾rÕÆoÕÈmÕÌnà Æl�¸oß»jß�\ôÅeå»^â¶lçÀmÒ·gÖ´`�®cÖ³hâºdÓ¼qÛÀuÞ¾ráÊrãÑfãÊrã»qؼj�ÇpÇ�tÌ�qá�}ÚÃláÔiÙÒqá�_��kÊÊ]ËÒSÎÉNÒÉV�¾HÔÊM�ÓQ�ÌIÔ¾=×ÆOǺR��G˲SκX�¼_ι]ܳaرVÛ°Vá¬_à ¸\Û²]Û¥]Ü©^�¬_Ú\9aY�\90fÓ\9eW�\9aSÕ Z̨`À VÒªH�µQ߬SÖ¯W�¦[×\9eSʬXê]¹\9ag¼©aƤL�£M²¨\³\9fMº¢V¸\9dX°\9fC·¦@²\98L´\96>³\9b>¯\937¶\939 \8b5§\87/¨\85/¤~: \90B£\96=\9f\891 \8c<¦\861 \841\96\83?\9c\86H\9d\8cN«~N \85K\9f\86<\9b\8a?¥\8aB¨}3¥\88-\9d|,ª\82+¤\896©\8d2§\8f.§\9c, \980¢\9d+¨\94#²¡!©§\1f¢\9f* ¤"« *\94\98'\8a\9b+\84£"y¢*~ª0|¢"\84\9f.~¦'x£+\84\9f&\81\9d\1fu\9c&~\93&\8e\8e0\95\99-\9e  \8d\9f+\8b\918\9b\9c>£\8d5\9c\97=\9e\92<\9f\98=¡\94L\90\8fW¡\91M\95\8aS\9b{j xm£sc\95um ke\9ezf§|k­\7fi©sq¥zt²vs°wt¯v}°|q®ts\9dyp®~o¢km\93fw\92fu¤e}\92`y\90g\89\9bb\85\9d`}\9a^\7f\9fb\85\9e`\81\96[v ]| Tv§U\80´L}¨T\81¯J\8a±L\8aµR\83­L\89°@\88¶C\89·I\95¼E\8d¼D\8b�O\87ÉX\97ÄF\84ÈF\93ÑL\95ÑE\9dSt°[{¨Y\83£V\88¨V\84£]\81¯`\7f¤`\84§^\95°Y\94¨U\88¢\\8b\9da\88\92o\8d\93r\8e\8ce\9a\90u\9b\8ft\9b\8c\84¤\91\87\9d\94\8d¨\8e\94§\98\92«\9c\96¡\99\9a\9e\93\99¤\8f\9d¡\8a¦¥\89\9b¡\92\9f\97\91\98\96\8f\95\9a\94\91\92\87\98\94}£\96v ¦}¢\9d~«\92}°\90\87¨\9d\86ª\96\7f©\94\84¨\8e\82¡\8b{©\84\88¤\8b\86¥\91\8eª\8f\86­\99\82°\9ar³ iÄ\9djÇ\9do»£j¬i�¬tίvÚ¾xÓÌjÖÈhÔÅdØÂpÖ½dà µeæ¼]é½dë¼j�¹hÖ½h׳`η^Ò¹gà ¿jß¼hÞÃk�ÅmÈ�sÒÊpÓÅnäÌfßÀhá¼gÎÅ`É�fË�tÞÅvåÔxà ÙqÖÖqÚÅh×�gÄÓbÇÊ^ÑÈLÛÆR�ÃKÕÄUÇÊMÇÄP�ÂCËÂ@˳MÊ»O̶MÔ³WÕ¯RÛ»RÓµ_Ù·_Ø°Z×±Yå²^ë°eß±`Ù¨cÙ°]Ó§ZÙ\99h�\9dbÕ£TŨV�¡U¾«K±JDzJÒ¬L΢LÉ\9bW�\9dUȦQ¾\9cU·¢d�§YŨOº­V¶¡S¹\99L¯¡O³£R¶\9cK°\98Jª\9eM§\97F®\9fG±\9eF±\93:¢\8f.£\8d1\9e\86<£\82:\9d\8e8¡\96B©\967¡\84/¤}1\9a\832\99\83B\99\89I¦\85I¦\7fQ\9e\84M¤zF \83:£\85:\97\821\9b\878\9f\8d7\98\83.\9c\831\98\932\9e\9c)\9e\9a*\9c¡&ª\97(«¡&¬\9d\1f¬¡ ¨\9f+\9e\9f#£§( °)\93ª(\8a®0y¬+\82§*\82©&\7f¬&\83\9e2\7f\9b'|\9b&{\9b\1et\95\1f\84\98 \8a\95(\8e\9a(\96\99+\98\9e.\8a\9c=\89\96C\99\8f8\97\96E\93\97A\95\93D\96\97L\98\92N\9d\93Q\9d\89`\9f\89^\98z_\95xc\99mf\9bop¥zk¦\83i£ti«se nk¦oy¨y{­xv¨}}\9fxz\9f\82|®\7fm\9dsq\9bgw\99s\7f\9eo~\9ak\83\97j\84\9bc{ g{¦Z\82 Z\88\9ec}\9c\y¤_{®b}«]\85µS\81¸X\81«[\8c»]\81»P\83¶H\92°D\8f¶Q\93²P\91´M\95ÂB\8b¾R\8dÆU\90¾N\90ÆM\8dÄL\89�N\95W}©X\80ªN\85­Z\85­[\89¦\\83­[\83«b\87§^\91©]\8d\9fW\91\9e_\87\9ce\8f¡q\93 d\93\8do\8a\98p\8a\92s\97\87{\9c\91\84\91\8f\91¢\8e\92¤\9c\8f©\9a\92°\9a\9d¡\92¡\9f\8f£\9a\94ª\9d\92\9c\8e\94\9d\94\8e\94\96\8e\95\9d\9a\9d\91\8e\94\9bx\9a\94|\9c¦v\9c£z¯\9a{«\90\84©\9d\86²\8f\81§\97~­\91\85¨\8eyª\95\84§\8f\87¥\91\89©\88\87°\8f|§\9aiÀ\9cn½¡iÂ\9dhº©h¼¦s�°z�¹wÔ·mߺhÖÂnÕºnè¼f�¼då´gå¹Yâ´eÖµ_Ú·jÙ¯]Ó«bÛ±b�µi�ÀbãÇ`ØÃaØ�gØÅ`ÑÊfÞ»`ÜÊYÛÌi�¼gØ�^ÈÌpËÄkÎÄvÛ×}ÞÜjÙÒh��gÎÇ\¿�W�¾TÒºSÓÆTÔÂIÓÀD�ÄNŽCĹC�ºLÉ«NÊ»K̯HÒ·XÉ«Wض[Õ²TέRѹYáµaÚ¬^׸aá´fÓ«e×°`Ú¤hÕ\98cØ\98S×¢TÂ\9cT�£O·«SÈ©D½¨F½\9fA½¢QÉ\92GÉ\99PÈ\9eX¸£]¾\9bf¶¡SÆ©QÇ\9aL·\99Q³\99U¾\9bL¶\97F¨\9eB¬§D±\9eJ¯\9fAº\94J­\8aJ«\89C®\913\98\8b6\94\843\9d\81;\94\93?¡\9a9\97\877\9a\896\9b\83<\9b\8a4£\82;\95~G¤\80K\9d|R\98vP \86J\93\859¤\88:\90~0\93z.\9az,\91}6\8f\830\9a\8b4\93\9a-\9a\97$\9d\93+\9f\9c(«\96) \9f\1c\9a\9d.\9e\99#\9c /\9b¢$\91¥4\90£&\81¡'y ){¢5\8c¨3\8e\9d-\88\997\88§,{\9b"\85 \1c\80¢\e\82\9d \89\953\90\94-\91\97/\89\8eB\8b\92C\8d\94<\99\8eD\97\8cA\98\98O\9b\9bR\9b\98\¥\9eX\9d\95`©\8de£\92_¥\8fd\95}^¤tb\9cxr¨zj\9e|e«rbª|iµqj¬\7fx®\80~¥w{«\81|\9c\84}­\7f{°zr«q{\9bg\85¥sz£pw\99n~\94v\80\99i\85£j~¨\|¢g\80\9d^}\9e`x¥e\85¨f\83³W\84¯a\83·T\82¸Z\8e°W\88³M\82·H\83´E\93½G\85¹I\90ºK\89ËH\83ÀI\83ÄT\8c¿R\94¾M\8d�S\94�R\94A\86¦J\83¯Q\88°U\88°T\8b¡Q\92£K\90¤U\8c¡R\8c¤\\86\96e}\96`\82 _\87\97k\8a\9er\85\98g\88\94e\8a\87o\8f\8a\7f\96\95\88\95\90\87\98\90\8e\9f\99\88\9e \8f­\9b\98¥\8f\99\95\8e\99\97\8d¤\92\90¦\87\8a\99\8b\8e\93\95\96\94\90\8f\9d\90\7f\95\91}\9a\98s ¡z\9c\9f|§\92w«\8fu²\91}´\97t©\94y©\8fy«\93\81³\92\8bª\97\87¨\96\82ª\91\81«\8cx¬\95o½\95tÃ\9foÇ£kÀ\9fsÉ£tÅ­uɬyÛ¬nå²dß»dà ·aèµ^Þ¸Uà ¹]׳^Þ·_ß¼dÖº]�º]Ô³b׺gÓ¶fÓ·]ÛÆcÔÀcÑÄ]ÔÃVÕ»_Ù½aÙ½]�»ZÎÊ_ÖÔlÓÎlÑÌs�ÌuÚ×rÙ×t�ÓbÊÇZ�½ZÃÃTǸQƽS�ÉP�ÇD�ÈCÌÇBýEľOɯZƱVɹK˹JÒ¯JʲSǪTÒ§QΦUØ´\ß²c�µbÞ²`Õ­gصh×´i̳a�¦[Æ\97]É\97XË\92Y¿\96M¾¥H½¨M´¬Qµ G¶£MÂ\94FÄ\9aMÇ\94X¼ Y¸£[À¦_ŧYȦMÂ\9aQ�\9bM¼\99Q°\9cR¦¦H \9eA¨¡?­\97<µ\93H­\83M«\84@¤\82H\97\84@\95\83<\91\8e<\91\947\90\8eA\90\8fI\9f\8d@\99\90<\9f\877¨\815¢}>¦\83C¤|M¡wG\92\82<\8fy0\94}5\98z2\8b}3\91\89<\93\83:\97\808\96\86)\9e\8a$\96\96*\92\92'\99\9c\1d\9b\98 \9f\94$\94\96.\96£,\92­0\97ª/\8f¤7\84¬.\8a 1\7f¥3\80 0\8b¡1\84\9d*\88\9f+\84ª(\80¥\1f\80¦\1c\80¡"\7f\9a'\83\996\83 @\87\99?\85\8e=\90\86K\9c\87O\96\88M\98\96J\9e\98P\99¡[\9d\98]\9e\9a]ª\9bg±\99c¦\93^ª\98b \8b] \83g \81e£{m ~l¯rq°vo©{y¯\7fy¤|l¦|p¥\84x¡\81|¤\80|«tw\9ey\81¢r\81¦r{¨j\81\9fr\80 pv¦b|ªd\7f³^y±c{¶^\80«]~§iy±g\81·d\89³`\83´U\7f´V\8cÀX\8f»K\8b¾C\8c�I\90¹I\83·Q\83·S~ÈK\85ÅP\89ÈR\8c¾X\93Ä]\8eÈZ\9cÑU L\81\98L|\9dZ}\9cX\8c U\83\9fS\98£K\8c¤S\82\9e]\83\9bX\84\9bg\8b\96h\85¢`\89\9aa\87\94l\8f\8ea\8a\8ei\8d\92x\86\8b\7f\8a\92\81\9a\9e\86\97\95\97\9b\92\8e§ \86ª\9d\90\9c\94\8f\9f\92\9d\92\8e\9f\8d\83\99\8a\85\97\8c\89\9b\89\83\94\8c\84\9b\8e\82\96\8b}\9d\92z\9d¤y¢\9ds¯\99s©\96s´\90\88±\93\7f¨\8e{¨\88\81\9a\92w­\8a\82²\88z§\92\81­\97t´\9bzª\9bg´\95w¼\9dqŬx¸£n¾¨qȸz̲uá­lß´dÓµ_Ú·hà ©fã¿eعYÙ¿gÛ·]×±]Ô·S̬fÔ±_Æ»eÔ°fÕ¶]ÉÆ]ζQÅ�]�ºP�Æ\Ò·Q׶]ʽeÉÅdÇÃ]Ç�j�Ôu��rÒÑq�Ó{ÕËg�ÖaÇÒ^¾Â[ÎÃQżS�ÊLËÎDÆÎGÕ�Q�ÀI¼ÄPξWŹ^Ê¿W�ºT�±YÊ£ZŧL�¥J�²\Ò¯a�ªcض\�¯[Ù¯eØ­iÔ®bÒ¬Y�³_É\9cRÅ\9eZÌ\99]Ã\9fH¾¨N¼§IÄ¢Q±\9fP¶¤EÃ\92DÆ\8fE¼\91T¿\9cU¬¥X�\9dRË P¡RãV¶\9dT²§W²¢G\9f\9fF¨¤Cµ\96C´\9b?¸\98O«\87C¯\8dF¢\92>\95\8cK\9f\8c9\98\895\9a\8eE\90\8eG\8c\87?\97\8bB\90~<\90\8eG\9d\86:\9dvA§\7fA\9eyI\9dvH\94yB\88\83:\88\80B\96}7\89\82;\98\8c6\9a\91D\8e\91.\93\81*\9e\88&\9c\8f/\94\94.¤\9f!\98\9b\1a¢\99\e\9a\9d'\91¤'\8f\9f$\92¡-\8e¦.\84\9f-\7f£&\8a¤(z\998|\9b:\86\9a4\89\9b4|¥&\8c¯%y§\1c\82\98!\88\991\83 9\89\9d8\83\92B\85\90L\8f\93N\8b\94@\9f\92D\9e\94J\9c\90L\9c\9aU\99\90_¥\96f§\9bh¡\93^²\9df¢\8c_\9c\8ff \8eX\9e\8d^¥{f¨wj¯\7fv´\82x²zs«\87t¥\80t³\85s \85s\9ct\82±|\80¯h\7f£ky\9f~\8b¢~\82®v\89²p}¨n{¬qv°dz«p\88µk|¬i\81·`\82·a\7fÂc|³^|½f\87¿g\86Ãe\86¶T\8d²R\89ÅT\94»E\89¿M\85¶_\83¿R\8fÃR\88ÄU\95ÎU\95Î[\92�`\97ÇW\98ÔSªOw\8cZ|\93Z\82\94M\82\9cQ\83\9cL\8d\9dO\85¥[\89¢U\8e\9f^\89\8fb\8b\90_\82\9cU}\99Y\89\8d[\94\8dd\8f\8bm\87\97u\8a\96~\97\92z\9b\9a\87\9a\8d\8f¥\8b\90\9f\97\89¥\9e\93¦\98\91\99\89\9b\9d\81¥\96\85¡\9c\88\9b\90\91\93\8a\8b\9c\92{ \92v\96\92\82\9d\9b{¦\9ap¡\8ek©\92s°\8b\85¶\8f\88µ\93\82§\94z\98\86~\9a\87x\9c\8a\80¨\87~«\85t«\8du­\8ds´\95k²¤t¸ªw´¯f¿¯eÉ©p̳w�§zÙ¨pÜ¥n�®hØ©fß®bà ½fÛ¿a×ÆdÕ½^ÕµZÜ´ZÉ«`Ƴa�¸[ðT¿­VǵRεXȱSÈÀVÃ�P÷XξWÔÅ^�Æ]��]ÌÅl�ÌnÎÎq�ÊsËÖsÒÛ^ÕÕYÒËaÈÊaÅÅZǾV�ÈJÃÈLË�S�ÆRÑÅOļL�ÄJÌÃTǽPƾOĪQÄ¥W»¬S¾¬Tî\̦bÖ¬[κd˵k̺bʸgÆ´hˬ]À´VÅ¥X¿\9a[�¨RȬP�®U�\9fN·\96J¹\9dG·\9dAÅ\9e@¼\9cI¸\91J½¢H±¦IÂ\9fPÂ\9cVÅ\94PÀ\9bY¶\9fW©§S±\9fS¨\98Dª\94@°\8fA¯\8dD¬\8dLª\90L£\90@¥\8dL\98\8eJ\9c\8fF\9d\867\98\85A\8c|G\88\82;\8e{<\94\87>\90\88K\95}Q\96\80J¤\87L¤\81Q\93sJ\90qA\8a|H\8b~@\8c\82E\8f\83=\96\81A\95\8fB\94\946\98\8b.\9d\8c*\9d\88-\9a\88*\9d\93)©\9f(¨\9b\1a\9a \1e\9b (\9e\9b$\90§#\98 #\90\9e)\86¦.\87\9e.~\9a8u\9c9|\9d7\83\98:\85\9b.\89©+\88\9c'u\9a&\7f\92&\8a\9a/\82\947\8b\8fI\89\8dG\8b\9b@\91\96N\9a\97K\94\97R\92\8aV\9c\99U\9a\96V\9d\91Y\9e\8b\¦\8c\°\98h¨\93g©\93]¯\90W¥\91]²\7fe¯zf¥\7fnª\80x­\8bvª\86s°\85q·\87{©|\87£v\82ªsz²k\82¦s\8a¡~\85¡\81\8d­|\90ºx\84¸g}»d\86»o\7f­x\7f°u\85¾j\86¾n|¾o\86Äa~Àa\84Çi\85Ã`\8aÉb\8a½Y\90¹M\8e·G\96ÀR\90½[\8d¯_\86¾^\82»^\8cÉf\99Éb\97Äg\8eË]\96ÊQ\96ÑQ¥T~\98P\81\94K{\9dM\8b\97V\91\98K\93\94W\84\9fZ\90\95V}\9bU\87\89X\82\8a^\81\91X\81\92`\87\90_\83\91l\85\85j\93\92u\95\97|\9c\9er\9b\92\82\9c\9d\84¤\9a\82¥\93\83\9f\95\87£\90\97\98\9a\94\90\94§\97\8e¤\8b\80 \85\8f\99\85\89£\94{¢\93s\90\87v\9b\92x\9c\93sª\91q¦\84y­\8b\80®\9a\85®\91\8c¦\8e\85£\91{\93\92u\9b\84w\9f\93z¥\8ct®\83w¬\87n©\8ah¸\9av´ j·±m·±kË«k�¦lÒ¤hÓ¨dÖ®kέb׬_Ù§eÖ±]à ´Y×®TÛ¹_Ò°[�¯VΧdȪ]Ê®]È«TɺMýMűXÆ·M¾¼Y̳\¿»Z�ºRý^Æ·]˽h�ºf�Âk�ÃnÉ�eÓÎrÇÕgÔÚ[Ñ�\ÕÈXÇÃUÃÊ]È¿PÇ�QÊÄWȽN�½KøIÒ·]ѲS˲\ȺRȨO�¯YÀ§U¹£YÇ«Säa�¦dÓ®jô\¼°fŹZ¾¼Zĺa�­T¸¤\�¬fíTÀ¬UǨTƦW½\96Hµ\9cK½£Iº¢H¼ D­ H¸\9fC¼¥S½\99PÄ\9eN¸¢T¸ N®\9bV¥\9bV¦¤Eª\8e=¨\8cA§\92F\9e\89O\9f\94T§\94Q\97\8eP¢\8bK¡\8cI\9f\81F\93\89;\95\84B\93\839\93vC\90\80<\86\7fG\92\84H\9a\84I\9cvP\9d\84K\97\88S\92wI\93qB\97qD\87\82E\8a\80<\90\80>\97\86;\99\8fB\99\874 \895\93\8b0\9e\82.©\861¬\8b& \8b\1d¤\91%\9c\91%¡\99#\92\98+\90\97.\91 %\90\94%\89¥'\8c\99*\82\9d&x 4x\9c9x\94:\84\9e<\84¤&z\9c0\80\97)\85¥4\81¤9\82\9b:\83\9aI\89\92G\81\9d;\8b\9aH \92Q\9b\92R\97\97_\94\99b\93\97] \90a\9e\93\±\9ceµ\98k±\97i³\98]´\8d`¬\93f±\95h¯\90g´\7fnª\8ax«\87{®\87{©\8dw±\81|­\80\87¤z\86ª\81\7f®p\82\9fr\86£~\87¡\84\91°\81\8b®\82\92µx\8b±t}Â}}¹}\90·t\8c¹s\8bÀr|¹n\88�f\84Àd}ÃnvÇ`\84�c\8c½a\85¹M\89Æ]\88ÀS\8d½_\8e¸_\89·d\8a»\\86·`\90Åk\94¿h\95�Z\8eÈY¢�W\9bL\8a\95S\86\95P\80\8eS\87\91U\82\96K\8d\89V\91\92O\85\95S\81\93J{\87X|\8eT\82\87X\8a\82e\80\8dr\7f\83r\89\84q\90\82v\98\90|\9c\8fy\94\96w\97\91\86\9c\9d\8b\9f\93\8e¡\94\8a\98\99\8c\9c\9a\8b\93\9b\9a\92\8c\9d\85\8f\9d\89\80\9f\8a\80\99\8cw \80y\9a\83s\99~x\9d\85w \87\7f\99\85uª\94\80ª\93\86¯\97\8b­\8b\85\9e\89\84\9d\8f~¡\96\81£\93w¢\92x \88v«\86t¤\8ds¨\9du²£m³ t¾¬kË´cΪiÒ¦fË­cÔ¨hÒ¤_Ú£XÓ¤bܱ\à ²Zصaá§VÒ¯YΨ`É¥aÓ®Yȱ_Å°Wù[ɵOÆ°Zº²T�±OǵXξSÄ¿^È·[�³_Å¿l˺nÙÂoÕ¿d�ÉhÎ�l�ØeÆÔhÉ�cÒÈ[ÔÌWÉÊXÂÅUÀËL¿ÆQ˾YƼUξW×·WÕ±\̨`É°\ǤPÀ©QÄ­P½©V»¤RÇ©WΩYȯf�¬i½±_ƹT¿µY´·W¹¨b´±g¾¬añ`¿ªYÄ¢SÅ\9fN¼ TÀ\94Q¼\9aR·\9aEµ\97H°¢@¶§H¸\9bL¸\9aX¸\98R¼\9aO¶¥S¶ M¥\9dO\9a\91B\9f\95F\9b\95H\9f\8bT\9c\8fV \96N¢\92W\98\97P \92V\9c\8dL\9a\82E\93\82A\94\89=\95~9\98\85;\8b~K\96~K\92yM\96{C\90{I\97\85I\90~S\96\84P\90yJ\90qO\8fyM\9c\84L\97\8bG\8c\8f;\92\8a?\9c\85.\96\90-\9b\962\9e\8d- \87+ª\8b/ª\91,£\95$¢\92&\9c\8b&\91\87(\8e\92+\84\90*\81\9a%}\97\1f\81£)|¦/|§*s«1v¡9~©1\80«/\85¬+\7f¤6v\9dCz§E\83\9bN\87\98E\8c\8dK\88\92G\96\94I\96\93P\90\9aO\91\98[\8f\99h\99\8ad\9f\8bl§\9ae¦\98e®\98f³\95a±\9cZ³\9ad»\97cÀ\9e`µ\95l¸\85s±\83y«\88\86²\81\88³\8d\8c´\88\89º\90\81°\89\80¬\80\88¦v\83¦v}¡z\80«u\91®\81\90±|\94±\83\90²\87\91¾y\8b½u\8fÊt\8fÌs\84Ây\85Àg\7f»e\80º\\83ÉaxÇb\89�Z\8aÑ[\8aÆZ\89¾V\8b¶X\8b·`\89¸j\8a�^\85¼b\8dÂf\86ºm\8eºn\97Åc\96Ô_\90Ñ_\97T\85\9bO\81\97R\89\8bG\86\9aJ\8b\8cG\90\89S\7f\91R\81\90I{\92N\7f\8cV\7f\8dO}\8cY\88\8b`\88\97g\88\84~\91\83p\89\8cq\91\8b~\9d\8f{\97\8fu\9b\9f\86\98\9c\8b\9e\93\8d\95\98\86\9c\9a\81\97\9a\91\95\91\8f\91|\9d\89\8a\95\8b\84\9e\87\80\92\87y\91\84r\99\8cv\95}j\99\84o\97\87o\97\95{\98\89u«\96\83\9c\8f\86¨\93\81©\8by\97\95\7f\95\86z¦\86w\9d\92w\9d\91x \8dy£\90k®\97j«\9cm®\9fp³¬sŤdË°eÓ³b�´Vʪ_ΣSÕ«aÙ©bã¨Tå¨Ræ¨`à ®Y�³\ɪ[űZ�µQ¸X¼°Y̺KýUűUƸS¾®MÂÀV·¶TĺZÉÀ`�²ZÆ»h�¼cβjɳfÆ�iÓÈtÊÒaÈÕhÈ�bžeÆÄSÇ�ZÉ�KÂ�I�ÄN½ÃVÄÊ[ȹZ˸QÔÀd̹Uʵ[�¯UÀ¬\·¥\ĪW©XÇ¢U�²`�§X»´V�²\Ä¥S¼¶Y¿°_¶¯Uº©`çZ³^�®T»\9cPÃ\9fK¹\93A²\8eD¶\9c?½\9dF·\9e=«¦;²£C»\9eJ­\98S¸ F»\98O¶\98Fª\9aG¤£O£\94G\9b\96>§\8aD\96\92[ \91X\97\90M\96\92U¤\92G \95I\9b\8cG\91\8aF\93|A\90~5\95\829\94\87F\8a\88B\8dvB\95\7f@\8c\82M\97zO\8brH\9a~S\94tQ\8d\7fI\88\81R\8d\81O\8a\82J\94\80H\98\7fH\8e\84I\94\8a@\95\95=\9b\92.\98\994\9e\8e2¢\906\93\89&\96\8a)\94\96 \9a\8f'\95\92(\95\97/\8a\9d+\83 %\8a¦0~¬0\83©0w£&\80¥/r¤:|­.zª5tª-\80¥/\82\9c=z\97C\81\95=\7f\92I\84\9fF\84\99I\90¤G\9c\9bP\9e\91X\94\9bU\98\9fX¡\90h\9e\98i©\97\¤\99]±\9bh° `¨¡b¼\91h½\9dfµ\91d¬\92l·\89y¬yt·\85{©\7f\80­\8f\84°\95\86·\8b\8a´\8c~´}\84¤~\86¨\80~¥~\8d´{\95±z\92ª|\8aº|\8f°s\8a»u\93Éq\94Àj\95Àp\8fÅ}\96Æs\8fÀj\80Çn\82Ãj\81ËczÊd\8b�\\80�\\89È[\8cÀ`\83°f\8c�f\8cÂf\8d¼o\84¹`\89¼m\8fºb\8f¿a\8eÌ_\96ÆZ\8eR\84\93H{\94?\82\9bGy\94N\81\91R\87\8fG\86\8eDs\94Av\91Nu\8fN|\8eSv\97c\81\98j\8c\92x\93\90{\8d\84u\8c\8b{\98\86m\9d\88n\93\96m\93\9d}\95\99\8e\91¡\8d\8d\9b\84\8f\92\85\8c\8c\8e\8d\81\95\95}\98\96\82\9a\90|\97\94s\93\8bu\9b\8dh\9b\83l¨yj£|q\9d\8cw\9e\97o¥\94x\9d\98\83\96\91}\9a\94\84¢\8dy\9d\8dz¢\8bn\99\85n\94\8co\9d\97n\9b\90y \93s¦\94l¤¤eª\98b²\9dj½ iȦcɲ^È®UÈ´OάLß³JߪV�®Tä¦ZÞ¨NÜ°SÊ®Pȱ[˵OƬHĹQĽXÊ¿M�¼M»µKÅ°WżX´¼T¼ÅQ»½U¶¶WÀ®]ʱWÅ´`�¯`»µ_ȼkÊ�j¾¿lÂÅ_ËÆgŹ_ý[À�UÉÌXÀ�NÂÈT»�]¶¿^¸ÀY��RǾ[¾_¾·_�»gÅ·_¿¹Z¼©Vº\9fMÆ¡TË\9fOĬRƪ_¶¤\¶­[�ª\Æ¡XÀ¨SDz\¿®[©S¹¨U¼¤P¾\9bA¿\91?µ\95G±\99G³\929´\99:²\9c8±£<²¡O«\99Pµ\9eJ¼\9eB¼\98G¾\9bB® E§\9dN \92G£\9bM\9d\9aQ \90J\9a\92T\9f\94W¨\98O\9b\93I\92\96L\94\8dK\9f\84=¡\8d:\9b\86=\94\87C\9a\82C£xH\9c{>\97sK\93yS\9d\81Q\9bzI\95\86K\8a\83U\8c}W\89yI\8b~M\88{F\91\80E\9b\8fD\98\8cE\8f\90@\92\9c=\9a\99A\98\91@\8c\926\90\940\97\8e)\94\93(\89\9c1\8b\92<\8a\995\87\9d5\86¢(\8c­%\86¦0\88«(x /y\9e-u¦9m«8n¢0lª:xª6\83¨7\80\95A\86\949\86\96<\86¦D\85¨M\92¨S\99 O\9a¡V\94\9bY£\94_§\9db£\97d\9f\91Y¨\92^±\95fª\92g­\94q°\9fn·\9a[¬\96a°\8dt±\80g°wk®|n¬\84w¨\8b\80°\93\80²\8d\8b¯\7f\87µ\86\89°|~¬|\85²~\91®}\9c¯s\96²|\8a²v\86¶q\8d¿t\90¹m\94ºi\8dÅu\96¿v\95Çu\8a�p\8aÊp\82Ëc\83Âh{Çh~Ãd\88Êi\83Àa\85¸j\82»s\8cºk\89Éo\87Çj\85Ìh\89Ê]\86Ê]\80¾\\88ÇV\8dÄX\96N~\94Mz\8fIy\94Ms\88M|\8aIy\8bL\7f\91Fo\86J\7f\90J|\8dW{\88Ku\99W\80\8ce\90\89r\87\7fq\8b\82|\8d\86w\90\8aj\9b\88r\9c\91q\95\9a{\94\8f\86\97\95\87\8c\9f\92\84\8e\8b\81\89\97\8e\85\94\9cw\92\92{\98\9b\7f\90\90v\8b\8br\99\92m\9a\8di\95\8fu§\7fn¡\8de\99\88k¦\8ep¤\98|\9b\9b\81\9b\8f\80\94\94\83\9c\89y¤\95z\94\8ak\98\90s\92\9as¥\90p§\97w©\97k¦\9e_²\9dfµ¥c�\9fV̧U�¥R¼¬QÒ¦QÙªMÒ¡Nå¤Tß¡Nç­Lè¦KÙ¸G�°GÒªXƳGË»QαFÀ¼MÇ�VÇ»PÀ¶\ı_·¯[³¹Yµ°T°¶O¶µa²¨[´¬g¸ºb´²i±Ã`¿Ãi�º[ÀËVÈ�a˺dǹa�ÃV»ÈZÂ�S¿ÔM·�[ÀÆ\¼ÃY¶ÊV»¹`úZÀºi¹¼eÀ¶Y¸±_»±e¶\9fe¾£cÄ\9eRŬW»®P·®L«¥X±\9eU¼£R³\9fR¶\9aP¿\9bT»£Z¶¬O²£UÀ¥P¸\99G¹\99B·\92B¹\8e8®\8f5´\99<¶\9fH¥\99;¥\97O¯¢Fµ\98K´\95@µ¡A¯\9aK¬\9fJª\92N\9e\8cQ\9a\91Iª\9fV \92J¨\94Q«\8eQ§\9aU\99\94H\94\8fI\91\89@\9d\8c8\9c|>\9a\89C\97\82?\99\84;\99\83A\99xE\90\84I\9f|H\9arN¦xP\91\80L\95\83G\95\81N\87{B\89\81G\86y@\8c\87A\9b\88B\92\8dI\8a\89A\85\92J\90\94L\89\91G\88\95@\86\89>\8f\92,\8f\8b/\92\9cA\8f\970\80\990\82\9e3\84­)\87¤0\85¢6}\9f&~£0}¬.}³,w¢,o %v¡)z¡0}\9c-v\9d;{\9d<\84¥>\84\9fB\8a§H\8b°J\91£S\9eªX\92 T\9f\9aW¤ Z\9e¦d\9e\97`¥\9be¬\91hª\8dj\9f\92i«\97c³\92h§\96e©\8dh²\86t²tt²uk§\82u±\81}®\98\83®\8a{´\8a\87´\82\83±~\8b©~\8c©t\87µ\81\8e­y\97«z\85´x\81½m\84¹g\88Äu\88¶o\94Âx\93Æl\94�t\8cÆu\92�j~�l\84Îk\8bÂc\88Ç`\84Ée\85¾i}Âg\80»n\86ºm\90¾e\8eÔh\8aÉk\8e�Y\93Â[\89Ç\\84Ë]\94ÀS\9a?}\8aFt\8d@|\87Hx\86Ny\83Eu~@u|Cv\81E\82~E\7f\84L\82\93T~\95d\84\8ff\8f\84r\99\8av\92\83u\8e\86n\95\82p\99\81r\96\90{\99\93r\92\93u\86\90\83\88\91\85\8f\84\91\87\84\93\8f|\8e\94\80\90\9e\83\8b\99w\92\99i\91\96h\8d\92k\93\97m\92\8bh\9c\88g¢\86j\9a\88f\9b\98m¤\9bx\99¢w\99\97z \94v\9b\8bw\9e\8ay\9e\94w\9c\9fm\98\9at\95¤r\9e\9dm¢£b«\9fe³\97^´\9eT¾ªUÀ¨W¤KÀ©O¢OÓ£LÛ\9cGß Dá£Bà ®Fé­Eà ¶?Þ°<�±HűIżIÑ¿LÌ»L�µY¿¾YÆÄ`ǾYð\¼³`½©W®­T³§Tª­]¶­e±·e¸¿g³À_À¿dŽZ»¹]ÂÅSÇÉZ½aÆÃ]ÇÃYÂ�PÀ�V¼É^¸Ä_ºÈbªÃX­Äg¶¶g¼Àc»g½³k³·a³¨`¹£e¸\9f[µ£aµ¬]¶¦L´©N±¤G¨¤N¯\98W­\9dT»\95V�¥V¾¥W· T»\9dPÀ\9bD¿\9fH·\97B»\9b;¸\99:·\8a8¸\86=¨\90F£\9fC§\9cB«\9bC¯\93A«\9a@±\9cH§\92K£\96W©\95V¢\96R®\9aP«\98K² R§\96I§\9fQ¡\98N\9a\8fG\96\92D\94\928\97\898\9c\86:\95\809\8ew>\8a|=\91\7f9\94~B\95\80J\9d|B\98\81L {J\9esI\91wA\8ev@\91\80I\87\86M\89\81A\93}N\95\85M\8b\8aC\85\8aE\8e\93A\8a\92E\8b\8e>\83\93F\8c\98@\8d\92<\94\8eF\90\91A\8a\937\84\967\80¢0\83¨*{¢'y§.t§2|¨)|¤'}¯0oª&q\9c$f\9b$k\9e-u¥)y«3\85°=\8e¤C\8e¯P\97³P\8c¬U\8d®_\8e²_\9c©Q¢¯X¢©U\9e\9fd¥£f®\95q§\90p\9f\96e\9a\8ch\98\9bg\9f\98g¡\91iª\8bi¬\84m²\7fl·yl±~l¬\8cz²\8e|­\8b\88®\8e\85°\8f\8d²\81\88·\83\81ª{\81´v\85®t\8a·q\8e¾s\83¶p\81½g\81µm\8bºt\91Âh\8b»m\91Èd\95Æj\8c¿k\83Èv\82Ìk~Ìm\8aÌq\88Âd\87Âi\81Àl\87Ät\82Ä|\86�n\8cÓd\86Õg\91�^\8e�_\8c�d\8fÈi\94½^\90By\90Ks\8cHj\86Bs\8cFp\89;i\83LjvMqvK~~Ux\8dVu\95[u\9bV\81\89k\87\88i\84\83x\93\7ff\88\85o\94\84k\94\81y\94~q\8d\88v\90\8e\80\88\92\84\84\88\82\8a\8e\8d\89\90\91\93\8b\8f\8e{\8b\94x\8e\9am\92\8av\8f\8e_\98\8fo\97\95e\9d\86k\94\82^\97\88m\93\96j\94\93w©\9d{£¡\7f\92\98z\92\93w\90\87}\96\91s\93\95u\98\93u\99\9fn\99\94f©\9d`³¥^²¢X¶¤a¬\99K· Tº\98ZæVÉ\9eLíMëGɱQÒ¯OÞ¬BØ­JÖ·HײOÕ»LÇ·VıK±NDZB¿OÎÃJÈÀUÆ�^½­Uí`µ²b±¶a«·]®±V§¸R§«^®¶`¯³_»¸\¼ÂQº¾_þOÀ�W�ÂVĹ[¾ÀZË¿YÉÆ]ÂÈ\¿¼\µ½c´�d¨¾`¦¿^·Â^µ­W¸¬]®«Y¸±f°£a»\9fV¹\9fUª\9c\±§O­¡G°§P¬ A´\9eGµ\95S¼\96]µ\9bV´¦[Ã¥ZÀ¥U¸\97S¹\9bM· E±\9fD²\94D½\88;¸\89Fµ\8c8³\8aD®\97:¢\9b;±\96K©\95G²\9aJ­\9bB¤\9bJ\99\90F\9d\9eF¤\95Rª\92F®\8eK§\99I\9b\8dN¢\99F\9f\8f?\96\9dA\94\91H£\96@¡\83A\93\8a;\99\8d9 }>\96\807\91\80:\91\858\98\84D\93z9\95yG¤sD\9dyI\8dwL\87\80L\92vH\85{?\82y?\92~L\9a}U\84~Q\85\86M~}H\81\91C\86\89C\7f\93H\8c\8aI\83\8b;\85\88:\8d\8a=\83\99:\82\9b6\80\9b1\87\9d,}«9x¥>wª0\81§$u¬4p¦8o¢5k¬$i¨.a©6s\9e0u¬6\7f©B\82\9eA\8a¥R\95³\\96¶`\88¹c\8f­_\96§Y\9e£P\9f«R¥¡_ª¡b¨\93c\9b\9bo\9d\9bf \9cf \91c\9d d¯\8f_¬\81c¹\84`»~d´\82h±\81sµ\87n½\8as«\88s¶\92\83­\7f|·z\85¶\80\8aªz{¨w\80²q\93­n}´lx¬c\87±b\87¹s\8dÂn\84¿n\8a¹o\99Ëk\99Âl\88�k\92Å|\80Âk\81�w|Ìj\87�m}¸o\8b¶o\8bÆu\94½u\96Îs\85Êk\8eÌk\8cËg\8bÊa\94Åb\8fÌe\84À[\93Qt\8dGq\8bEb\81Ba\86D[{;c|GntMuyPu\89Tv\8f[y\91Qw\97b\81\9cc\87\94j\81\87s\84~g\8e\86e\8a\7fj\85yy\84}r\8f\83t\8d\82z\8a\7f\83~\85\85\8b\8f\83\91\8d\87\8d\8f\84\87\85\8a\8at\91\8at\8b\8ah\88\88e\88\91i\99\8db\95\8a_\9b~_\98\8ek\8d\97n\9e\93p¢\9cx\90\99\82\8d\93z\8c\95r\93\85y\9c\94x\99\98g\9e\96t¢\9bt§\99t®¡d¯\9f]µ\9f\¯¢M­\95Lº\9eK�\96XŤYÇ RĤJîOÆ©F˲MÒ¸I̹?Ç·CνPʶS�²S�»RÄ´MÀ²QÄ»HʶJȽRÊ®OÀ¬Z»£Y¶ª^¯©_¯¯d¦«a¤´W£»`­¸e¸ÃX¸¾X»¼V½¯S¿³T·¸VÀ¿a¼¹dÀÅm¿Ée�»Y¾¾T³Ã]¯¶^±¹R«½W©ÅXª¼Q©¼P¯«_®ªf³¦^ª©\¯\9eV¶\9cO­\99Q« G£¤G§¤E±£F¶¨J®\9dZ¬©Qµ£O²¥[¶\9eX¹\9bL»¢DèA»§@­\9bL«\99L´\86L³\81D´\84>µ\8c;­\95?®\8fD±\99Dª\9fE¬\99Aª\9aC¤\9c@ \96=©\91> \9bG¢\8cL¨\8cPª\95H\9d\8fM \95F\93\93?\95\8eF¡\96@¥\8e:\9c\89B¨\887£\898\9a\835\9b\845\97\856\96|6\98{1\96\898¢x8£sI\9b{O\95~K\87tJ\83oD\81lP\85uL\87rM\94\7fR\87\81V~wR|{G\84\83?\88\83B\84\8dM\87\8bE\87\86?\86\859\80\8c8~\87A~\91=u\9b>|\998k¬8g®=j®-w¤.p\9e+r©/h°0o²3qª7g«<n¨5o£7z£?x E\87\9aR\84¢\\8e¨a\8dºV\8e±\\98±S\9c¥Z ª]¤¨V¡ ]¦\9bc\9c\9cp\9a¤b§\9be°\92]¨\98e¬\88e²\87b¯\81j·\86fº\8cg­\88m­\88p¶\8bj°\80u¯\86q¯{\81±|\89³\80\8aª|\7f¯\7f\81©p\8a¨o}©k{«f\80¬_\80´q\85Ås\85Ãg\97Åk\9bÌo\9dÉi\90Èp\87Å~\8b�n\84Ëo\7fÎm\88�y\83Àu\8a½n\91¸{\8b¿v\94Åy\8f¾u\94Än\8aÇc\8c¾k\86�k\86Èo\80¾a\88Kd\89Al\8bJ[\86:X\7f:h\8aEe|IpxBj\84Qp\80Jn\82Sr\92Nu\96Xt\96Z\81\87_y\8cl\8b\8ae\8d\85\\84{g\89ywxvq\89\80w\92uu\8dyx|\8bw\8a~\88\82z\85\8a\84\83\8b~\8c\7fy\80\8ay\8a\86k\95\82h\8d\82k\96\89l\8d\81_\9b\8ah\8b\8fn\96\92s\94\96g\8f\99y\8f\9bv\87\9dy\8e\90z\8c\93}\94\8al \8fk¡\9ae¢\9fq¡¡_§\97T¬\97Uª\9a^¨\9dS¯ IÀ\92YÃ\9dL¼¤GÌ\9fE¾£E�³KʯC�³@�´CÅÀBʺKÊ´P˼K�°Q�½U¼³G̺QË�NʹM̽OººQ·®Q�­Y²¶Wµªf¯¹b©³c©¹V±±V¢®_±¶S¹ÂR¸·Pº³V¹°]¸±f²º\·¿g¸»hµºb»Âa²·Q¥¿T§®V¥µa¡µO\9dµP£°X¡§]°¬Z®¡a¦¡Y¢¥^®\99R¥\9bM¯\9fU¬£S££I«¥P±\9bT©\9eI±\95O´\9cPª¥K±¥Q®¦L¯\95I©\9eO­\98I­«K¥¡B¬\93I®\86Lª\89<µ\88K¸\85G³\90:®\89C\9f\8bE¨\8dH\9c\93A¦\94>\9e\9aC§\9cE\9f\9cI¢\97J\9f\99O¦\93P\9c\91P\91\92T\94\89L\98\89G \8fD\9a\8f7\9d\846¦\8d6\9f\886¡\7f;\9cz6\9e\88?§\88>£\84=\9c\884\95\836¥\82D\9dzD\97~C\98{?\95{>|h;\8bpH\8csO\84\7fR\87\82H\88\80M\8asT\87pJ\80\82<~~F\81\8bN\8f{M\89~:\88\80H\8c\89A\88\925|\8c8t\9a6m\98Ct\9e8`§Ij¤Cv¨6k¦<j¨3pª<c§>d¦0b©>w¬=m­1q©>}ªD\83£T\8a«_\88¨W\8e·T\9b»P\9b°\\97£Z\90©_\97\9ca¡\98f¨ d\99\98o\9a k¥\9bg\9e\91h±\96g¬\95a©\8bm·\91m¬\8fq´\8dkª\96fµ\89d·\85c¯\8fiµ|l­\80y·\85\8b´\81\88§\81x°\82\8a°{\8d¡p\83¢{~±p\87§b\85­q\89¾u\8f¹e\97Çq ¼k\93Ìr\9aÈp\93Çu\8c�v\88�t\8d�t\87Ç|\8fÀ\84\91�y\8dÇy\88Åv\94Èo\8aÈt\94Èl\87�n\87Åm\8c½q\8e¿e\8dÀ^\85FW\9dA^\94Ac\94;]\846g\88Ae\82Gh\7fHf\82Lm}Jo}Hj~Ok\87To\80Pu\86`|\7fc\84\89l\8czd\82{n\85|uy\7fr\86~\7f\86v{\85\80x\87\81~\84~\81\81w|\89~\83\89\7f\7f\82v\80\85w\8e\82r\91\8ak\94\8ak\87\8ad\8c\8a^\91\88_\87\8bn\8d\97m\87\8ep\8c\94h\87\8e`\8d\98f\92\99q\93\94o\9d\8bp\9e\8dg\9e\99l¦\94j¨\94W°\93S±\8eO­\90P®\90Z´\9eSÆ\99UÈ\99LÌ¡> AÇ¡GŨJƨIÅ©>Ì´<ʼGκE�¹N�µR¿·UŹOþIÊ�KƹM¼B¿³EÇ°Q¾¬Lº«Z¹°X¯µU«³`©¼a«¸U¨¹[¨­\£¶Z©´S¶¹R·±[¯¬Y¬¯d¦¯]¯¿b³Ã_´¹e´¹]©�[¦²[\9b±Z\9a­R\9d®R§´Z¥¨Y\9c­_¤¯_¨°d\9e¥_\9d\9bQ¡\9aS§\9bO¦\9dR\9e\9eW\9b\9aK¤\9aK©\9dT¨\95R©\92O®\91J¥\9eQ¦\9bDª\9eG±\92L¦\96O¯\9bK¨\9dJ£\9dF¨\8dP§\84D®\8bC«\8bF¯\8cH®\87I­\8e>§\85D\99\85:\9c\8eA\99\90=¡ D¡\9eD\9b\9bF\9f\9d>\9c¢E\9c\99J\99\91K\96\93I\95\96H\98\90A\9f\8c4 \893¬\8e.¬\867§}?¦\7f6£\859§}A¢\87=«\87>\9f\8b>¢\8b:\97\85A\99~A\8ey@\93z6\8es2\85r;\8cz;\88pH\7fwD\80zM\8a|Q\84oT}nTwrJ\86sM\88wH\8ey=\86\83B\81|J\8a\85F\81\95F~\96=m\93Fj\9fAe\9cEj£CiªJf\9fDg\9a5c¥7d\9d8_¦9m©4m¯9m´4y¬;v¥Gw©Q|¯R\81¨[\82´V\94´Y\97®U\9a±[\8e²N\90¢Q\90¤]\9f\9ea§\9ff¡¡b¥\98`\9e\99f\9e\8dj«\8c]´\89\­\90k«\97l©\90l§\8dd´\99h·\95p«\8eh¸\89e´\80i°\88u¬\81|µ~v¯\85}°\85\87ª|\84¥~x¤y{¢v~¯l\86±r\91¶o\95Ãb\90Åf\94Êi\99Àq\95Ât\91Ìt\8e�m\88Ât\8dÊ\83\86�\81\8cÄ~\8eÀ\86\89¾z\87�x\8eÇ\81\90Éz\83Ìy\8c¿k\88Åp~Êg\84�f\82Â_\84<W\94=b\99DW\87DZ\91?c\8dAZ\86H^\89FjxUn\80On\84QfyVl\7fVu\8bNu\90c\80\90\\82\86_\83\87ev{mx\83k\84ur||pxwpvxn\86\85\84\88}\83xq\88\87|{\88w\80\7f{\82\81\80~\87w\8a\8dj\8d\83m\87\8ck\88\8ad\8b\90[\93\93a\8a\8bk\89\9cf\97\8c`\8f\8ca\90\92o\99\86s\9e\86j \8cs¦\8ep\97\94i \94k¨\99d©\97`±\9bU¬\8fO¨\9f\´\9bZ�¡R¿ªMÄ\9eOÅ KÆ\9fRȬDÈ¥DÀ¤BȬCÌ´K÷HÇ�LÆ·MþPº½E�¶N¾´I¹·MÆ»Wº²I¹­VȪZµ´]¶°Z°·T¶¬[¤¬[«ª[ª¸V¦°_¢¹Z¦ºZ®ªO¬­]³¶]¦³a©¿kº¼]«·d¯Àc§º_\9eµS\9f¿Z¢¹U£¹Q¦¹[\9b«Y¦°S¥³b¤®Y\9d¯\\9f¤T\99§Z£¢O¦¤N¢§L¤\9dR\96\99N¤¤Q¥¢L¤\91Q\9c\93P\9b\96K¢\95Q©\99G³\9b=©¤E¬\98@¥\99F¤¢E¢¢Q©\9aV«\88B¬\87F´\90?´\8d>¨\92Fª\919¬\8e?\97\8dH \98=£\9b8¨\9f= \9f@§\96H\99\988¥\98:\95\99B\90\8fE\9b\8dJ\90\8fA\99\89<\97\8e=\9b\8c=¥|0§\834¦x-©u8§{1\9e~6\9f\7fC\9d\87F\94\7f<¢\91>\9f\86F\9a}>\92\82?\9ct=\8f}0\89x7\8bo>\91{A\80rF\7fsMvyL}nIt}J{|L\89tB\8dy>\8e~?\88\8eF\8d\83@\87\93F|\92G\7f\8c:s\9bA{¥8l\9fBj¢Fg¥Lp§Pe£Af©<g¢6d¬Aa¬:aº7u¹?m¬>s©Hk¬O|ªU\82³Z\86´T\9d¿J\93¬S\96¬]\8f®P\8e¯T\98«_\93«c\9d\9c`\94¡g\9e£e\9b\9ec\9b\8fa\9c\94]\9a\8f`¡\97f¥\8ds\9f\9bd§\90t© r£\8e`¦\92^ª\92b³\8dv¯\80w¨\81t§~\82¬\7f\81µ|~µ}\87³\85\89¤|}¥z\85¬r\93©n\96¯w\92¼l\97½s\98¾w\90·u\88¼l\8eÒo\8c¾j\84Âx\83¹r\85¸~\86»z\87Â\82\85Ì~\89Ê\80\8a�w\88�k\87Æh\87¶o\90¸b\8bÅi\83Ç[\82Ãe\86>Y\94@`\8f;c\89Dd\92>]\93I`\87Lc\85SozSa\82Mc}M]xKf{Pr\86W\7f\8ce\82\91a\8d\93h\88\84cxvbsqf\7f{f|\82kswo}xqx\85u~z\83}x\8b\81n\82\8aq\82|w\81\7fx\89\84n\88\7fl\88\82a\8a\94e\94\99e\91\98b\83\9b^\85\8cW\86\89^\98\95e\94\8di\97\88g \84p\97\87o¡\85t¢\83l\9b\89g\99\8em\9b\99h­\94^«\9b`¦\98\´£Q²¡Vº\9fL·©F³¥O¸¦S»±GȪK�¥K¦NÀªOê>ʲF˹RƹK¾³SľR¹·F�¹L½¹N»»T½·YÅ©Z�¤WÄ¥\ºµY¼©b¯§_¨¢a­¦Z³©d­³c³°`§®T©¹J°´PµµR¨°`«À\´Àe­½V²·V©±O¤·W§¯H\9b°J\9a«T\9e·W¦·_ ­Z\9c¨[\9aªU\9d±^\9c§W\98§K¥ E\9f¨P¢¥K\99¡K\9d\9eB\9d\98>\99\99K\97\9aN\98\96J\9b\9aB\9b\90Aª\8e5­\9b5¥¥2¥\9f;\9f\9cI¤¤J¦\9fN¤\97P®\89F´\83=ª\80:±\8cB´\8aB«\8dA¡\97D\9d\99I¨¡K©\9cD¨\98L\99\92I\9e\9b@¤\94@\9c\99E\99\98@\98 Q\90\97V\9c\96N\9d\8eG\9f\83;\96\806\97\820¡\816£|:¦y/\9dv1\9e}6\95~:\8f\80B\8d\81:\96\85>\98\846\91\85>\92x:\98y<\98r3\94|7\90\81G\8avJ}sAqyHnuMt|J|yE|\84C\80}:\90\86;\91\8dM\92\89M\95\87K\8c\91<\84\978{\91?v\8f7\82\99<\81¨Hy©Jn¥Jh©Lf¤;]©:c¤E[­>_¸Gcµ>`ºFm·=h¯Mn³Q\7f¿X\7fºQ\83»H\94¸I\98¯K\8c°T\89«V\8e¯Q\91¨Z\96¬[\93©b\90\9fd\93\9c]\90¡^\91\9eP\95\8bR\9d\97Z\9d\9bd\93£j\98\9dm\95¡i£\9bm¬\96n¬\92`­\97p¤\8ew\9b\7fv¢vv©\82~¬\86y¨\8a|°\86\87¨\86\8e­~\8b\9fv\90¢p\91©|\8f·x\96µ\81\96»y\8aµx\91µr\8a¹p\86Ék\8bÀn\85¼p\82¼s\88·~\7f½s\85Ät\8bÀ\80\8bÅ{\81¾y}·e\80¸m\8f·k\8d²m\8a´j\89¸d~º_|Ha¡=o\92Hl\93Qj\8dKd\8aOp\84OoyWfxYjwT_vQl\85Sn\88Mk}cr\90b~\93\\88\8b_\84\82fu}ns\80es|d{t`sqpq\80t{|u\82s|\88p}\83w~\8bq\8c~o\88\86s\84\84o\86\88g\8f\93m\81\98f\84\95d\97\97a\8a\9a\\90\95Y\92\8fb\9d\8fd\9a\94k\8c\83c\97\85k\98\8ek\9e\8ar\9e\88i\93\8ae\8e\90z¤\88c¥\9b]§\95g¨\8db¯\9c\º¦Y¼©W¹§E¯«Mº¬OÅ\9fVˤJ�¨Q½\9eU̬L�§GéI˾Sº¯M¾¶UÇ´WÅ·IÆ´J¼¬KÇ®T»µZ½¦]¼¡[À©^³°S³¦S°ªX¯¡W·°a±¥f­³`§³Y\9f¶^£­X¨±W®­Q²¦_±¶^¶�d«¿W´®Wª³\§»N\99¾P\9fµH\9b³R¡µT\97¼M ¶P\9e­Y\9d«Y¥§T¢¤W§¦Rª£>¨\9eF\9d£H\98¢>\9d G\9c\9fM\98¡=\96\95A\8f\94=¡\8d<\9c\933\9d\9b7ª 8¬\95?\9f D \96D\9a\9cK©\97H¦\8dTª\91Qª~E³\81B²\8cJ¨\81I£\91K¥\9c@\9a¡B¢\99I©¡J£\90@\94\96K\9a\93F£\8fJ\9c\95I\93\9fB\96\94H\9a\88U\96\87S\99\8fF\97\8a=\97~C\97\8a8¤\84:¥\83@\9e~8\95\84,\97\863\96\861\90z=\95\80C\8a\85:\98\87@\8d\8bA\8f\87>\8a\7fI\99\84C\98\8bB\92\81F\91vJ}vMw\86@yyO\7f\86J\80\8dF\86\8a<\86\8bH\89\91F\94\87I\93\94M\9a\90L\90\8cL\8a\97J\84\94E\86\95;\81¦I\80¦?q£Os¢Ik ?c¨Df¢:f®7_¨C^¶BX«C^¾?b´>g¸Go·L}·D\83®R|¹M\85±I\92°U\8f´S\8dªN\88·Y\95«b\93§\\8a§V\86ªc\96\9dg\8e£_\98£R\96\94U\8d\93U\90\9a_\98¢h\91\97d\95\99d\9a\9ag\9c\9dc¦\94b§\90i¬\92~«\88m\9dzm\9e\81m¡~\7f¤\8d\87¨\85}®\86\8d¦\86\8e±\84\89¨y\8f°\85\92¶\84\90·\83\96±z\89·{\8b¿y\96Æp\93¼r\89´x\8b¹rzµt\88¹|}»y\8aºq\82Ày\81µs\87Âu\8b½h\8d�m\91¶b\90½^\8c¹e\90¾c\84·_\838l£Bx\9eQ\81\96Rx\96Tx\8cYo\88Yh\82Wl~crz]jy\hwTj\83Sq\8c^r\8d[r\8bh\83\89j\7f\85kt\80n}ybxrhpwfomsny}zzt\83z{\82mx\82b\83\81h\8a\80q\88|j\89|i\86\85h\82\93^\85\93e\87\96f\91\94^\8c\8ac\91\8fd\8a\9ae\91\97a\8d\97l\90\8di\91\92c\94\88n\8b\85r\8a\88h\90\83o\93\85u\9f\8an \91f²\93h´\93e¹\99^²¢S´­Y´¦U¹\9eX¸¢LÀ«J¿¢SÀ£TÈ\9bQ�\9fJÄ©B¸¶J¼³JÀ¶K�°O�¬QδX�³QÈ°PÉ®VÄ®MÀªSº®W±¨X®®U­´\¢ª^¡¢T¯«Y¦¶b«²^«¶`¥´a©©U¥©P¨¦L¬¤T«­T¶±U¨®K¨¶M§¹K¬µT\9b³R\99ÀO\9f½L\9a¾O¥¾W¡¸O °S¥£[\9f\9dY\9e§T¢£R \9bD \9d>\9e§; ¬D\9d G ¥:\93\9f<\90\9f8\96\97>¤\94;¦\903¤\982¢\948\9d\8dK \8fL¨\99T¡\99L²\98V³\8aPµ\82S±\85K¬\84A´\7fA·\82@ª\8eG£\99L£\9aJ«\9e<­\9d>¦\94G\9a\8eI\9f\97E\99\92D\99\9b@\97\98F\93\93D\99\8aP\9c\85A\9a\89>¡\84G\9a\87> \8dA\9e\85D\9e|D\9c\829\89~;\86\881\88\7f=\85\807\89|E\89\84E\89\8e<\94\8e?\94\8cI\8a\95L\8a\88M\8f\8aF\83|P\87~O{\84At\83Dy\82>\83\8bH\88\8e=\90\93B\89\98?\8f\8fL\89\8bD\92\96G\8f\8eJ\95\8eQ\87\97V\8a\9bK\7f\97Bx£E|£Au\9cNn\9aHn\95>k\97=j¡C[¤@Z²>^¸H]°Ba½=`º7m³5p½?l³Ey³AyµF\86¸L\8f²O\87²S\8c»[\90²_\95³]\8c§]\92®\\87¥^\90©`\94£Y\8f¤P\91\9bU\8c\92]\8e\94T\8c¢_\96\9e_\98\9dl\9d k\9d\99i£\9cj\9d\96k¥\85v«\84y¥\7fp¡|}§\81x¤\85\7f±\8d\82´\8d\8f­\80\8c£\8b\89ª\88\90µ\81\91¶\83\94¯\86\91·\89\8f·\86\95¿\89\9a·\81\95·v\92±m\82µt\82�o\87Àu\86½~\82´z\86®~\8d°w\84»o\92»n\91´f\94·\\8f³^\93´]\86´Z\80´d~Ih£Jl\9fOl\9cWo\94\m\93\i\86Zf\88Um\81So\81\j\82Tn\86]k\7fYp\82ao\89iy\85c\87\82p{\8berzg\80\81[ylhykozrwwv}ps\83{s}\81e\88}o\8a\7fa\80\7fk\8dne\8b{b\8ft[\8c}a\8a\93a\87\8bg\88\95b\86\8fc\94\98d\97\8d^\99\99d\8e\93r\8d\89p\8d\85s\8b\8ez\88\87s\88\8bf\8f\82d\92\87s\94\85o\9f\87s©\98sµ\90d¶\97X¶\9cYª¥N²\9eK²\9cF¶\9fI½¤E¹¥EÀ¦D�¡PÉ®AÊ«FÆ«CÊ©KħG�£S�®RÇ­MƨIÄ­RÌ­S©Q¢R¿¯Z¶®U´³T¥¯S\97°V«­S³¯^¤µUª·X­«^¢²f¤¥[®¢P­­L³\9dX®§Q­´P±°Y¥¹L«±X\9f­\¢¯S¡·G\98ÀL\9bµM¢·U­±F¢©V§£M¤¢O\98£N\9d\9e?§«E¡\9bE¤ª@\99£J ¦C\9b\9e?\93£4\97\94C\9d\98C¢\935\9d\986\97\9b9\97\909¦\95:°\86K\9b\92M \9cN¡\8eD¬\82K¯\86G´\8aJ­\8a<³\845¬\877­\8f;¦\94E¨\96J¦¦C¬\9b@¦\95<¡\8fI¡\93N\9a\9bQ\96\9eI \94O\99\99A\99\87K\9f\90K \91=\91\84C\91\85>\9d\89E¤\81K\8f\8a=\8cv;\8d\866\93\8f>\8a\89A\8c\84B\84}D\85\7fJ\84\85?\8c\8eL\82\91H\8b\88A\81\87E\91\87K\81\8a>\7f\82Gw\8aHv\80Fy\86L\8c\8bI\8a\92E\8f\98H\87\92B\84\8d@\85\93J\8b\92L\88\94B\8f\91S\8b\9fK|¤Cw\9bH\80\9dA\82©@\81§Cs\98Jk\9f;r¥Aj¨@`§FT 2X¦?g±:]­@nµ2h°;p¶8r¸:o°Eu½>\83ÂG~½F\89¶L}±S\80¹_\87¯[\7f\9fQ\81ªa\8c­_\8c£a\84ªW\84£V\84\99T\97¢K\90¡P\8b£_\8e\96[\94\9aj\95 g\9a¡k\99¨l¦\9cj\9e\8do\99\8as\99\86l\9d\82n\9e\86y£\8d\86¶\8e\89¥\87\8a®\8e~¢\84\89©\96\91ª\92\90«\7f\8eµ\8a\8f¹\86\91�\85\9a¾\83\8dÂz\99�r\8f¹v\89µ\7f\83Æ|\92Äp\82�\7f\8e²z\8a²\80\89¹y\80¹l\87¶]\86¬b\87³^\87¶`\84¶\\8c¯V~£i\89<p\9aJo\9bQk\9bUu [k\93Tn\8fQm\89KkyLfy^r}Xr\87[e\8cXp\85dn\85l\80\8bd\82\8b`\84\80fz\81js\81cwrjpuvvxsqq}syz{m\81yj\86{h\80\80k\8bya\88pg\88p]\8ar^\88\81_\88\85c\88\88Z\8b\85Z\8e\97V\86\99a\8b\92c\9d\91q\9e\95r\96\89s\94\89l\8c\95t\92\86h\94\83k\8d\83g\8f\7fk\9e\8fj\9d\8dr¢\97q¯\93l¯\98b±\98Y±¥K°¡G´§Q´©I¯ªC²®Bµ³BÇ«EĬ@Ä­L�¦NÆ\9dEΠUÓ£XÌ\9cQË¢E�\9eO�ªXέ\Ç Y¬a¾®Z»ªY°¯Qª®M\9cµY\98·Q¥±X­³P¦³L¥µY¥«Z©®X¬¨U²¨Z«§Mª¥[³¯\·ªQ²±U¥¬W¡±_\9cµZ£³N\99¯I\99µN ­H§®N¢«F¬¦E¬«@\9e§I\9d¨A£«5¦«E\9b H¨¢P¤\9aH\9a E\9c\96:\9a\8d7\9f\93=\9f\9c@\95¡7\9a\9d=\9a\972§\8f5®\88C¨\99J \99Bª\8bL£\88I¡\86H®\84N¹\88M¾\90:±\8a4³\8a>¹\92B® A® ;¥¡B©\95G­\96H\9e\92C\9d\98O\9d\93I\9c\95P¦\96M\9e\95?\93\9b?\96\91C\99\92I\93\8eB\8f\95L\98\8dM\91~A\8a{8\8a\88B\8f\85F\87\8eM\8a\8cK\8a\87M\87\86B\88\95L\8c\92I}\94P~\86F\83\87@\82\91F}\82=\84\84@{\8dBw\84B\83\86A\89\88M\86\8b?\8e\96@\87\8d:\85\8e@\8e\9fE\8a\9eE\86\9aL\91\99K\81\9dN|¦I\83\9dHx£G\80©<\82¢>z¥=i¤A_\9dHd¤@^¥9^\9c7]¨Da©Ca¥Ek¨5p«:u¹4m»Au®C}±N\81�G\87»D\85½Qw½Mz¹Pz²Wx¨Qz¨Q\85«V\8a£Y\85«Y\8d Q\85¡R\94\9bL\97¢Q\97 V\8c\9bd\99\96h\9b\97Z\9d a\9b¦\\9c\9ce \99c\98\9ck\9e\8fu¥\8cr \86z©\96z¯\98\85°\8b\87\9f\8e|¬\8c\86¶\94\90¯\8d\91ª\8c\84¸\91\96À\85\98¾z\93¼|\8f¾w\86¿z\89¼\7f\8eÂ\82\94Ç\83\9aÂy\8e¸\81\7f¯}~°\82\86´}\8b²e\8e°]\8c³`\8e«e\8b´T\90«R\89\9eX\87¢b\83?n\9fKn\8fTu\9eV}\9eVu\90Qy\92Vp\85Ln\87Qq~Qk~]k\80Wq\88`r\8eWy\90_z\82]\82\82c\80\82hv\8brz\83s~\7fo\7f|t{py\7fzylvvku}iqt{osutwxu\7fqs\82qc\83n^{\80\\88\87a\8d\85]\8b\7fb\89\8ba\8e\9bc\91\97m\97\98h\9a\90v\93\86t\8b\93w\8c\92s\97\8bq\92{i\8f\84q\95\86n\97\88t\95\95p£\97p«\96p²\9e[­\99]©¦Y¯§Cµ­B¿µK°§M©²F±³@�´JÅ­L̪FǨAÒ\9eL�§RÌ\9cPÙ¨KÖ¤MÊ P̱OÇ¥YÀ©O¸¡P¼±Z°¶Y¯¯O¢¹O\97´Q¤±M\9c³W\97­V\97ªN\9f£O\97§S¢¨Z®®V¤¥W­¥J§­M¬°`³ºX§½M¤´R¬¿d§±`£·O¢«M\9e§I\98¯M\98¢S\9e°@£ I\9cªI¥§= ©9§©2§°8\99¢;¨¤K\9c\9dA¥\9b9\9f\9b5\94\92>\9d\9f5¡¤@\98 5\9c\9b@\9b\8c7¥\96:¨\8dD­\8d3£\93<¨\8fD¯\85K·\86L¼\87>´\8d<½\8eA¶\92Cº\95?¹\9d7©¥>« F§¢L­\9bBª\98J§\8cP\9f\8dH\9f\99S©\92M\9c\9bL¡\88B\9c\8b<\94\91H\92\84?\98\88A\8a\90F\96\92M\8a\80@\88}9\8d\8cD\91\84@\90\8eM\83\89I\89\8bI\8a\91K\80\98B\7f\9cHx\95H}\84C\7f\8bB\80\8fF{\8cB{\8b?\7f\86;\80\80E|\8dN\86\86K\87\8b<\87\93:\87\99:\88\9a>\82\99@\84¦B\89§F\8c§E{©J\81°D\83\9bC\81¡Az¢?\89¤A}¦:f¦>l\98Hr¡:c 6]¡0e 6c¯EY¬:_£:k¬:hµ7jª=i§Iq¶?uÀNxÂFp½Do²Hp²En»Jl»Ft²L\7f¯T\89±V\7f²Q\86¯M~\9fV\8c«L\92¯L\8b¬S\8f£`\9a\9d_\98\99[\9d V\9c«b\95\99g¤\8eh\95\8bq\9e\8cs\9b\8eq\9f\85}©\88\85§\94\87¨\9e\85¬\9a\82«\9c\85»\95\8e°\95\8a«\8d\8bº\86\91º\83\8d¾\80\95¹\8c\8f³~\8cÃ\89\91¸\88\93¼\86\94º|\91¾{\81³\82\8a±zx²\82\81­o\8c°e\88­j\85®[\8d¨a\8c¢U\84§Y\88¨]\88¡d\8bA|\91Eu\94Jv\97H\7f\98T{\90Ts\97Jr\97Q{\86X|\93Ss\8fU|\86^s\88Uu\8dX}\8a^~\8dgu\80e\82}i~\85ku}u{\80n\84{k\80mlzlrunwfishjypjtmwug{xdr\83om}ph~uc~ye\89\83l\82\7fd\95\88k\97\8bf\9c\8cq\9a\94n\9c\8bm\99\88o\99\95p\8a\91n\8e\8dh\92\82h\8e~b\93\83m\90\90k\98\99c\99\99Z§\9dbª\9c\°¤\¸¡Y°©I¶ªN¹µB½°H±²D¨°;°­C¤JÃ¥FÃ\9fFÓ\9eJÑ\9fGÑ\9cQË\9d[Ó¤WÖ¬XÈ©N´QÆ­N¿¨D°¤J¤¥M ¶V¤¹P µV\98´N\95¨H\9e¤E\98¥O\94°_\98«]\9a¢[§ªW±ªL¬±Q¤²X©¸X¡Ä\ ¿V¦º_¨�[§²P\96°V\96±F\97ªB\91\9f?\97¢I¡£D\9f§A¤¢?\9e¤8\9d¤5¨¨8¬¥7¨©5§°?\9f¨G\9a\9fC\9a\9e:\96¥<\97¤>¡¥<\9c\9f5\9e\969¥\90A¦\915¤\885¨\898¨\8a5­\96:¯\93=®\96Dº\8e>Â\86GÄ\8eHÅ\98E¾\99>¼\9bD´¦?¬­J°¢D¢\93R¡\91O©\97J¡\8eJ¢\98G©\93P£\8fE¥\8cB¨\90A \8aF\9d\8fC\90\87K\95\89@\8c\8eC\93\81P\8a\81K\8c\88B\85\8fD\88\96I\7f\8fP\84\98V\83\95N\86\9aP|\98Ax\8dOs\89Kw\86G}\89Mu\8fCy\8fC\80\92P\7f\86K\81\81K\85\81=~\88@\84\89=\8c\92?\88\9b:\8d\9e8\8d\9f?\7f¦>\81¨C~­I\81¨>\83\99G\87\9aD\7f\9a?~\9aAy\96Dt\9d?y\95Fr\9eAs£:i®6c©.Zª6d¯8aª=jª5l°>c®Ab°E`±Gm¼Md¸Jj¹Hg¸Lq·Hj½Cn¼DyµA}­N}±N\85©W\8f±S\88ªR\97¯M\94«W\93¢^\95¤_\93£b\9b¦U\9aªR\9d¥_\95\99i\9d\94h¢\8dw\9d\8et\9f\8f~¦\8f\82\9e\8f\84\9d\95\7f«\9e~©\9e|«\92\80°\96\88³\8b}º\88\81µ\91\84¸\88\8d®\85\90³\90\91®\86\8a·\8b\8eÀ\8d\87¾\86\85¾\8c\82¸\88\84º|\89µ|\83µ|\7f§o\81¢l~®f\86¬d\89©]\84¡]\82\99`\81\9b\\8b\9dT\8bI}\90Mz\96Ow\8bMx\89M\7f\94Pt\8eH{\91Mq\8cQ{\88U~\8cTr\89Uw\80cx\81^{~[~\83fw\86`}\88i~\84jx\86mwyt\81{z}mmrmprdnqbybdmjuwlrnessnr\84rk\84yhyrf~{a}tc{{a\87\80b\90\7fv\96\8bm\95\90t\90\8ev\96\7fn\89\86n\85\94t\92\8an\8b\89g\94zm\94~h\9e\8ag\97\88b¨\97b©\9cd­\9d\§§Z©\9bE©©?®¡J·²B¾°O²§K¸¦H¸©G·±OÉ¥>ȦJ�\9dKÒ\97OÑ¢HÉ£F�¯N�¢MÇ°V�«KɬP¸¨L°­C­°N§¯]\9d±Z£·S£¨P\9e©J\9a¡K ¢O\9d¦[¡«V¢±_§®]©¨U§§Xª¶Z¬ÀRª½W¨µO¥¾V ¶T ¸Q£²R\9e­O¥¯C¢¦A¢©H¨¤G£¢K£¢;\9a\9c:©°D¤­D ®6§¤>\9d¡;\9c\9bJ¢ D\95\9dC\95£E¦«5\9e\9bC\9d\99C\9b\9fD¬\98A¢\90B§\900©\842«\907¦\8a=®\9a>»\8b3º\9a@¾\90CÄ\89B¾\98:À\9f:¢A½\9b<ºªH¸ª9¥¢N©\90I\9b\94D§\8dI­\90C¤\9bM¢\8fD£\858¡\8f?\98\87D\92\8cB\9a\85C\94\92A\8d\90>\88\8dP\90}O\92\88K\89\8bE{\95?w\84>z\90=\87\91>\84\9dC\82\96Ez\92>~\8aKw\92Sx\84I|\93Dv\8b=\81\93M}\8a@\83\85A\81\7f=v\83@{\8fA\84\97B\8c\91?\87\9a7\8c©>\7f«8~ª<\84¯?\80°4y\9c=x\93Eu\9b>r\908w\992u\9e5q 6n¡B^ª2d£8W§Agª:\²8`¶6]³Gd·Gf¶@m³Al¸@n³Ej¾@k¼Bo¯Jm·Mq¸Qt²EoªKt¯Bx¨J\8bªQ\7f«W}§M\8a±Y\99³R\97­Y\9c§W\91¤]\90¤X\95©_\91 k\95£g\9d\94o\9d\96w\9a\94u¤\8f}£\85\84\9a\89z¦\93\82 \95}©¢{£\9e}µ\9fy¸\8d\81±\86x°\85\85º\8e\92³\87\84²\8a~²\93\84²\90\89º\86~¸\82\88«\86\87³|\81¬\87\85©x\88¬s{¤q}¥f\7f«r\82¨^\8b¨\\81\97V{\99Xy¥^\8a¢R\89Ly\8bL{\8cT\81\85M}}BpzDo\84Fk\81Px\86Rq\8bUw\7fXqxRtoSxucw{atz_z}a\85\88e\80\84ay\82ewpykm{p{yrsppblvmnlkuvwstr{qq|ne}pj\80th\80ug\82xk\88sc\83yl\8f}s\8eyt\8exp\9b\85n\92\84x\88\83p\8c\89e\81\90h\83\8fe\8d\82g\8ex`\97xj\93\80]\95\88_¦\9b`¬ X¤£O¢¡I¯\9dD«¡;±¦E¾§Jº®I³«O·±P¾®N¬FΩDÉ¢=¾ BʦDÓ D�¡M¬LɯSÊ°QƬXº³M´¥U²¤L¹±L°²R¤­W\9f°U\9fªM ­Q\9e¬S¢\9eP£¥N¦³R¨¯W¸¸T·³`²®Z¯¼Zµ¾QµºV¬´X§½Q¨»N¤ÃM¦¿L«¾J¤·O¦´Q\9c²Mª\9fP®\9dG¢£>\9c¡<\9e£@¤±F¡±>\9a«;\97¨@\9d\9dN\95\9dO\9c¡?¥­F©¨;\9c\96?\9f\94A¦\9fI¥\99N \98=¢\928«\8a;¢\8c7¨\8f@³\937³\9a9»\970¾\8e0³\95?º >Ã\9f?À\99H´\96C¬¡9®§<¤§@£ I¤¤D¨\99F¡\99C§\9aG\9d\95>\9a\857\9b\82A\99\85K\99\8aO\95\8fG\94\86O\99\89J\98\81Q\8a\81R\85\7fH\8c\89J\88\89:w\89;\82\92?\83\96<}\937v\93Bt\96D~\8eMq\89Nm\8cHm\96Gr\92F|\95Hz\87Dw\89N|\84L|\7fFu\86H~\86E\88\94@\88\9dE\82­>\86ª1\89ª0y£/z¨3\81£:w\97:u\924u\932p\99:v 4p£:\¢5W\9f6X\9c>e\9cCd¤9`ªB\±9f¶:d¯Fe´Ij³Ce»>j¸@m»Bf³Dd»El»Lw½Os­Jt®Bv±G{ºQ\7f¶S~³W\83³V\82²P\8fªY\92´[\98¯[\9aªb\95¡f\8f¢i\8c\9eg\92\92g\98\94j\9c\8ek\9c\8eu\9b\95o£\8bt¢\91\7f\9f\97\85\9b\9fx¢¥w¬\9c\7f® x°¢wª\93\80­\8c\88¯\94\89¦\92\85¬\88|²\8ew®\93x­\85u©~\83«\83\85°\7f\7fª\88|¡\80\80\9b\80\85£p}£n\86\9fm\86\9ed\86\98c\82\97V~ V}\99]\80\9bY|@x\8d?\82\8aPtwFsrPi|@g~Dy}I|zEv|HiwWqjUtg\kq`pvTp{av|ay\85bp~_\80|bxkrousq}|iewd]uljpcvuqqt|y\7fkm{qfwqk||g\85|c\8ezb\85}p\94|m\96ql\90~i\98yn\93\85f\99\8dr\89\84z\8f\84g\89\87j\8b\86k\93\8bo\9a\82f\94qp\99\82l\95\8ci¨\92]´\9dZ°\9aR\9e\9aR¦\9eN©§A±¢AÅ¢Q»¦QæXʲKǶEά@Ë©?é<Ç©>Ì\9b=É\99GÂ¥I¸±K�ºIÀ°UùXººU°¦N®±B°°S©¸W©«R¤®Y\9d²U¯®V©®L®¦Q£ªS¤°Z±²RÀ´R�¹O¿°O¶¸W¸²J­ÀO¼¶\¥ÅO¥ÀO«¶N¢¹L¦´Rª´WªµU\97¬R¦±H«¢N£¥J\9c¤A©ª<°²I¡±<£¦@¤\9d<\9f¥C\9a§L¤\9f?ª¡I§¥6¤¨8\9b\9bK\9b\9cC¡\95Q¤\97E¡\98G\9e\9aA«\8f?¢\9dB´\93=³¢=¹ 1±\9c5³¦>¹\94@½ =¼ ;¼\99C°\98G´¥=©«A¡«K±\9aD¡§C¥\92D¥\96I¡\8bA\95\8b2£\8dG\9b\8fR\91\8eJ\95\95N\9c\92O\93\8bP\97\83J\89\86I\85\8dB\8e\90G{\94A~\93<\82\8bC\8a\9a5{\919t\9cD{\90I}\8dOw\8aCo\8fHp\92Lo\90At\8dB}\85D\84\90Kz\82Ry\86E{\8cD\85\99D\7f¦>\80 <\84¬2\89®<|¤.x¯.v¤;n\9f;r\98>f\9a:i\991f\99.o¤0i¨2\ ;^¢>U\99;\«7d¥3_°7b¦6e§9a²K[­@Y°>\¬Gj»?b¬>m½Io±Hu¹Nl¼Tk¹Gm´Bi¬C|µO\81¬F\8a­U\86µT\90µR\88¦W\8f¶\\9a®Z\8b±b\94±e\84¯a\85\9fa\8b\96f\91\92k\8e\9am\91\95s \96i§\92w¤\93u\94\92\83©\9fu¤§z¬ v\9d«s¯\98y¯\8d\80°\8e|²\97\87¨\8e\83·\8ez®\93\83¯\96{¨\90s¨}\86«w\82§\7f\85 ~\81£\81\83¥p{«i\80\9fq\80\9ew\8e\9eg\80\94h\84\97X\8b\93R\8b\98Sz\96]v;\86\85>y\7fE{\80HpwDtuHi}Ivu=vsCmjKhhTfnPohRsrOhtTfv[t{ds\84_m}Z{te{svwwvmowigyghxkouiozxprwqspfwtft{k}yk\7f\80a\92wd\93oc\95si\96~`\91~e\9b\81d\93\89o\98\8dq\90\81t\8b\8cn\8b\87o\8e\88c\99\88e\91\84k\99zi\97\89j\98\89e\9e\95Zª\98Z¡\9cW§£T°£P«\9c=°£G¾«JȧOƯS�³FαJˤMÆ¥@� 9˪9Ë©9�¡GȱB¿µH¿MÀ·V°°K¬·O«¸B«­A¦¯H¡³M¤¼O«´T«®W®¦T´\9dC´£@¹¯M¬¶V¹ºV¹µY¶µLîL¼¹G¼²R¼¹OºÂT¹ÅS¨ÂM±¹Y¬¶T°¹\©¸Z\9d²N¢²G§§G«¡I©\9bD¦¥A­°Dª´C­­<©«@¤ @ \9cH\9c\9aO¥¨Mª«Hª­A¦©H¥«D\96\9cH\97\97K\99\8dS \92S¢\8cO¥\94G­\98G®¢=±¢;»¥5¶ª5·¥2¼¤.´\9a2²¢<¾\98=Å\979»\9f>²¥:°©B¥\9fEª£H¤\94R\9c\8fJ¦\8a@\9e\8d9\97\96I\9a\92L\96\8cN\94\8bK\9b\89O\94\92M\95\96F\90\8cH\8c\99E\86\9c@\8a\93<}\98;\89\9f5\84\97=\86\9d;w\96@\81\8eKy\90Ep\99Hr\9eEu\91Ir\91F\80\8aE\80\8dO\81\8bR~\91V\80\95Vw\96M|\9eA\83¦6\8a¥.\8a­4\88\9f:\7f¢4p¬6m¨2nª7b\9b4h\997i\985m\972_¡=Z¥4Z¤3Y­5b¥:g§,a©-d©6c\9f5a\9d3]§BR¯BV³DZ¯Nd®Fe»Mg»If¶HvºKt¶Vo¹Qj¬Ij«Fx¦E\7f§F\82¦M\85°Z\82¨[\85©c\8bµ^\90·Y\83¾[\82¶Z\8c¯\\87¨h\85¢r\91¡p\99\9eq\93\9dl\90\96j\9c m¡¤q\9a\96z\9b\9fy¥¤q¨¥w\9c«u \9cw§\95\82«\9b\84¤\94\84¢\96\8a±\89\82·\83|­\89w¤\83x¬\83} {{\9f~z£\81z¤v{¡w\81¬sv®w\81ªs\84¥f\8b\94b\8e\96\\91\8cT\8f\96V\8a\8eU|C~{Fv\86?y|Lyq<ip5av5jx=msExuLnoHykPygSllHnpOvsWsnVonev{^mqlpsm}f}nkrrdshgvqbqevpuntxpisc|}py{p}pj\7frf\92~^\94uh\8cwo\94ym\98{n\8c\8am\93\82o\92\82u\8d\80h\97\87t\91\83q\91\84g\9a\85_\92wl\9fqi\95\85^\95\88]¦\8aV¯\98Z­\9eR\9f¡S©¢J·¡?±§>¼µ>�ªC¾«OÆ´C�ªQɬK¿¯HÆ°>Ó°7À\9c=Ì£EɯJ¾½KÆ¿L»¶L°ºO®´N³®L´·F°²J®¦=¤³B¦¶U²¸V©¶G³®A¸­?¹²D±®O¼®XôböZ¸²V¼µ[¶´Zºº]ƾW±¸TµºZ¥ÄM¦¿H´¼U¯�\­µT´¹E²´N®®E¯°Fª¤>¤®E¡¦> ®C¥\9cA¨¤;¡\9a?¥\9d>¢£@§¨C«¦C®©E«§?¥\9c?\98£E\92¡O¦\91C\9e\91F¤\94F«\94J®¤H¨\9e>®¡'ª¢*¬¥+±£3¯\9b1ª\97@³§>¼\9f<³©=¹¤>¬¬9¨«:¢¥@®¢@¬\9eA\9d\917\9e\992 \8a<\98\9a:\9b\99E\9f\90< \8fD\98\99G\94\95H\8f\89>\86\8cF\91\95>\85\90B|\9bA\8a\986\81\956y\9a;z\9eIx\9c8\81\978s\94Bm\98Fy\93G\84\98?\81\9cH\88\9eM{\95D\87\98L{\9fB}\94M\80¨G\87¦7\80¤2\85ª>\8a±:\84¦)q¨/z«9h\9b2c\988f£=n\9c<iª:j©-^¨2Tª@Y\9e1i­4]®.[µ*_¡3[¡7[­1\¢:^¦9Y¦9f¤Arµ?gµOfµLx¹Rt±FsµCjµOg¹Pq¨Hl­Jp°Cr­K\81¼Zx§O\88±_\8dµW\95¼P\82²W\84±V\86°f\8a¥r\89\9dj\8f\9fj\9d¥l\90ªf\9f\9cn\95©u\94¦s\90¢q\9c¡l\9b\9fp¡\9fp\9c«o§©s­\9f|\9e\9dv\9e\96{§\92\83¥\8f{¶\8bt²\8bw«\86rª\82}¥\8ar\9e\81\7f\98\80\80\9fuz¨|\7f§st¥s\88\9co| h\7f\95e\87\99a\89\92[\88\95Y\83\97Tu9h\80Ar\7f=u}@yv5st3jq>q};ryF{mFziGwoOvnX|iO|ePrp\oif}d`~glvkqoe{vktyhmhjqeawaholouygizklzrsyj}tc\7fpf\88\7fm\8d}h\8bua\8a}i\95wd\95{e\9b\86l\94\82t\9c\89k\93\8bg\8f\86g\99\8fv\9f\84l\94\85`\99wb\95td\8c{a\92\83c\94\91]¢\90P£\8fM¡\92D¯\98Gµ¢?³«;¿°AêF¿²L˹AÈ®FÇ´OèF�¬MΧBÄ\9aLÆ\9bRÀ¦PÄ´R¶ÃN¹�P·¸G¶µE¶�H´»D±³;µ©<¬²A°°H©¯F²´H¾°C¿§<ȤMĪU�¥[Ȩ\¿¯S¸«P¾¨R¶°\įb�³Y·½`±¿\«½T©·M¯²F·¸M¹»Gµ¹JªºD¬«E±¯I§¬F¤¦J¨¨D\9a\9f>\9b\9eD\9a§G¥\9f<£«>¥®/«§2°°<³¯A¥¤; ¬H\95¤N\9c\9bB\9a\99?\9a\96@©\9d>¯\94C¨\99D¬£=®­(±\9d4¬\9d/¦\997§ 7¢\9d@®§@²\9eC®¡?®\9fFµ£=°\9c:«\9f;²ª4¬£:°¡>®\98:ª\949¡\930ª\8f4£\959\9d\8eA\9c\94<\99\92H\97\90E\8a\98@\8c\98I\82\99N\84\8dD{\95G\7f\8f8\87\9bG~\98G\82\988\82¢7w¨Hs¡H\83\95E\87\97?~\9dB\7f£L\80¨E\82\9fAv\98?z D{¢J\81§B}µ7\88¸=\8d¸-\80¨-{¥,u /h§=k¡9a¢3c¦9i°8cª)U¬.Xª;Y¥<c¤;W©:V¯,Z´*W®4W¬:\­5Zª?b\9f?b­In®Al²Ir¹Pq°Dx¬Ci´Dd¶Og°El«=q¢Bn¨Ny¬Yy¶W\7f³W\80®I\85³Y\88²W\82ªU\82©S\86«e\8d¨n\90¨h\9b¦a\9f°i\9dªg\95®l\99¥t\96\9ax\91\9fr\99\98n\96\9fl\9c¡m£§v¬¤w©©k®¨j¨\96y®\89\7fª\8dwµ\8cz±\81}£\8e|¡\8bv«\85z£\81z©{|\9d}{\9d}|®{~\9ex}\9fg\85£b\81\99`\81\98\}\9cb\82\97h~\90_}9w\841g\82;o\812uw6ny+u{5rk:y|;xs6yjD\82hGubH\7fiPvfU}ePwbdoa^qe_u^ulmwu]w}a}y^uj^wuasqto}dr\81mi\82fw{n}yb\7fid\8bqp\89\7fo\8a\84k\86\89m\87\86i\96vj\8dvo\8a\83r\8d\84v\96\89k\96\85r\8e\8em\8d\8de\94yg\8c{_\8dzf\9a\80d\8a\89^\99\92P\9b\8aR\9d\98F\9e\8bAª\9eJ«¡A»\9dCɧHʲH°PÅ»Iέ=άMŬBˬB�©MÄ©GÄ«VβKÀ®E�°J�½KÀ¾I½¹EĶG¼´G²²;�²6´¸Cª¨E·³Aµ¥B³§D¾¡FïBȨU˶RʱS�©J�³W¸¶V³»S½µ`½µU¹·V½·^»Å\¯¼V¯³IÄ»H¹µI¼¿M²²K±«?¨¯@¬¯K°±=§¥C¥®8£\9e;¡¥@¦«9\9e§.¦´5¦¨;¬ª/©\9e2¬«;\9d¤D\95£G\96 @\92\9b9\9f\9f;¬¡8«\9f@¢\9aF¦ 4¨­'¤©&®\9e0¤¥2\9f©5¦¡-²¨0°¥A¦¨;²£6²²D­°B«¤5ª©=°©<¶\987±\9a5¬\991°\943¦\9e-¥ -© 3\99\96=\9d\979\96\9bM\91\9dK\8a\99A\89\8eL\85\97P}\8f>~\968w\94<y\98A\7f¤9~\9bE\81\9d7\80¥9\81£9\7f¤9\87\9dJ\81©A\88¦I\84¥G\83­E\87\9dEv¦7\82®7t¦?\81½3y®?|­2w¤2{\9d4n 7t±>`±1Y­4a¬8Y­-R¨/X¦6Y­9`¢8b¯7\±)c¯7Rª?_«7gª7d¬A_¬Fr§Gv­Kr¥Ju±LvªEo´Km»Ni´No¼Bv­<pªGy²Kq¹Uv²MrªR\82°N\7f¸G\88³R{°U{¯V\90°]\8a¢k\95¥a\96§b\95¦i\97 r¡­r¡¡r\9e\9bs\92\9cy\9f\97r£ p¦\9fm\9e«q¦¤g£§b©ªk­\9fy\9f\9ax¬\95t¯\93l¨\8fx®\85y¨}h¥zm\9cvz¢\80~\98m\87£u}£{\83¨o\84¢d~\96b\88\9cm\88\8fi\84\91W\82\9cV\80\8f_z\1ei\7f%m}$wx-w\7f5\83s-~v*{r8un?|t5ti5|cD\81bJw]HzZLxbQx^]|j`oilubksdyyXwuX~oXvqasw^n\7fkw\7fou{kzxpv|ey~f\84sr\82{o\91}q\94\87s\8b\83r\86}h\87zh\94ze\91|s\96\85x\93\84q\95\81w\93\86m\94\83p\8e{e\8fyh\8c\83\\8c\83`\91\85R\8e\94Q\9c\91N\9d\8cL«\93N¦\98Q±£H²\9eDáLɪKÈ´D�·DιAÕ°IέI�¦I�ªM�®QÉ©J�´CůA�¸IÀ¼LÅ´RÊ°I�¬G�¸B¸¾:¾¾7²À;°°;¸²:½¤D¼¨I¸¤LÅ«F�²KÀ±CÇ°K�¾R˼QúR¾½YÅÃUùY¿¿[¾¿W¼·N¿½VÄÄMÀ�Q·ÂO¸µR¸±P¬±G©´F¥µ?\9f¦@ª¥5££1«ª-\9d¢/\9f©2\9a¥9\9a©6\9dª2¥\9f,\9f /¦¥1 ª0\99¤? ¤A\98\99C\95 A¢\99@\9d\98;¨¥=®¡3«¦/©§*§¯5\9d¦1£©2¢\9f+¯¢+´¥6®«8­¶A¥°@ª­A­¬@±°:´¨:±¥?¬\974­\927®\912¥\926  1«\959¤\96A\9a <\9e\9bE\9a¢H\94\9c>\87\96C\88\96K\8d\99Q\81¢E\82\9fI}\9b=\87\98?\85\9cB\8d¡F\87¥;\80³=~¯>{¬F\82§G\87²E\86°@\81²C\84¥9\83¥6s¤7z¯0t´5k¯4i·:g®2pª+l¶2m³5_³)[¨,[§9T¦=a ?\ª<Y©<]¦5W®6_¬7]£A\¦<f¡3e¨5j¤9m§>p¬Lm¨Lj¡>m¤@l²Dj³Gh¼Eq¸As¯Kp¶C|±By»F|¶It¯Hw±DrµB|µJ\7f´P\87°Z\80´a\85¦Y\93¡`\91¦f\96\9bn\90¡q\9b¦k\9b°h\97«j\9d©k\99\9du\9a¨n¡¡k¦ q ªn£©h¡±j¡²f£¥p\9e\98j¥\96f \8cg¢\8eq§\80n©wj¡ut\9eus\9axy\94n\82\9ep~\9fo}\9aky¢q\86\95f|\98h\82\8fZ\81\8eY\82\90Z\84\96W\80/iw8eu8l\818ts6l|?t|3muCgf9giAsa5qbDycE}gG\83eFnZJp^Vr^_pZeidqldkw_ynOitWjehom_usp|utuwk\81|l{}n}|t\87qx\8d\83r\89\83i\82\82n\88\7ft\8f|c\8byd\8ayl\97ol\99wv\88~p\91}f\8f\89n\8f\80n\89}f\8f\83`\8c\8f[\8f\83Z\96\8eH\91\8bV\9c\97I§\8bI\9d\86H©\94>¨©Gª\9a>¸«K�ªLDz>ºA�³4ŸEÊ®R�§DÇ\9fL¬BįKÀ²HÀ°AøL½¶I¸¬O�°KɪH´»6º¿C¿¼:ºµ>¯­:³¨B´«DÀ\9fI�¥M� >µ§=¼­@ªS½¼G»ÃB·ÃO¹ÄVĸZ¼·^¼QƶPIJVøI�¿J´ÀO­¾G¶µG§°K«°R\9f°H£¥:­£?´£;¡¨5\9f *¦\9e.¥ 2\99¥,\9b¥7\9fª:³¡,®¡-¥¤:\9bª9¡­: \996¨\9f9¢\9b?¢\9fA¨£9£°<  <ª£1°©1°ª>\9f¤9¦§8¡ 7¨¨-¥©-¦¯4\9e¯3ª´3§ª:ª¦C¶¬5¹¬>·\9e<«\98;¶\9a5°\9e9¦\994¥¡6©\9f5¤\9f>¢¨B£¤@\93\9a?\94\98C\87\99K\8b\9aG\7f¦D\85©H\87¦M~¦?\8e\9b?\8f\9e6\87 =\8e D}§>\80ªC\85®@\82¥Q{¨B\83²;\8a¦<}©9x¯8\81«At¹@t¹<p¶1d«+n¶'h®/t³'i´+m±2e¢3c®-`µA_¦<a«6V§>Y±9c¶<a³Ae²?V·;c¶@X¯>]¦:j¥9i°Lw¦Ph¤Jg­Dj§@cºId¸Ls¸?i²HlÀEsÄ;s½Fp´Jz¶Ex»Ow¨@w«J\81³P\80®V\85§R\8e±[\8b°[\8d¤X\9c¤\\99®`£¤n\93°_\94«m\8d­i\95§}\97 n\97ªj\9a§e\95¥t\9d¦k\96ªk\9fªl¢\99l¨\95e¥\94m¦\8fi£\94u\9d\83t\99zi\97\82h\9d|r wz\97}|\92tp\9crs¡pr\90dp\90b{\91`t\90aw\8e_\84\9c`|\94S}1mt;ct4cs6bu:p~?ru<mhBckBjb<r\<{^6ya>sfMz`KkQRfMPoIRtVanTeeVlo]ovUegchfbgsjmxm|xo\80ur~\82m\87\80n\86\80f\88}n\86\84p~\82pxyo{od\89yb\8e{a\8bxe\94rk\90vj\8b\81m\89xl\93~k\99\83]\94\85Z\9a\89e\8f\8bc\93\8b\\9a\91O\91\8dQ\98\8fU¢\87W\9f\8aG©\9aH¨¡9¡¦:«¦H©¦M´¥C¼³C¾´8¾©=»®IȬQŤH�¤IìAÀ¨I»¢H�°O¹°H·¨?¿©D¾´@¸¶:º³>¶²>¾¹Dµ°E¬¶L´®G¼°;»¡<¿¡@¶¨>±±J¶ªLµºBµ½DÀÄSººY²³Nµ¶T¹´PõWľI¼·Jº¹M²�H´ÃKª¸C¢¯Q¥§Pª£A¤¡9­¬5¯¨B­\9a@¡\9b5¨ -¡§4¦¡0ª 2±\9a:¯¡2¤©A©¦B¢®:¢¥6¬¦?¯¡? \9e=\9e\9b4\9bª(¥­,¬³4§«9«®8ª­6¦²>§¥5°¥5ª«9\9f®>\9d¦:\9f§2£¦7§§6µ\9d?¯\9c7³§6´\95-®\924«\95;°§1«¨5®§=¥¬>\9c¬@\94§?\9d«E\96¢G\99\94G\8d\9cE\84\9fN\8b¥L\84¢F\7f\9eN\8a\9fI\93\995\8d\992\89\9c7\84\9eB~\9fI}±?\83©N\84\9dO~°E\83±@}¯B\80²D\87¶>~¸;\83»?~¶:v¬2n¬,f¯'f¯(k§(p®&k°)_ª(_®1[³7cµ4b°AY²2\³0f·;bº=[º0^·3T±6Z±<c»;l´@z´>v«Dv¤Kh¥Sc¬Fc¶Ir¯Ht­Et²<iÅ;dÆ:lºElÃMv½J\83¹B\80ªK\80´K~®J{£K|¤M\81¬X\89¯R\8b²V\92¤Y\9f²a¢²`\9d²e\8e¥j\90\9fp\91¥u\9d¤n\9c§n\94«n\98 h\9b«d\8f­m\9c¡p\9a\9co\9a\97p£\9aq\9f\9dj\9e\98g\94\93k\96\8cl\96\87z\9fty\91sv\93~w\91{y\9csl\8ehq\8egk\8fji\93io\9aj~\9c\~\9c_\81\92]\850fo7Zo@ek4jwEaxJcp<fg9_n@iZGj^6nT6w^Hi\PoVCeRGaLPcSWlLc`Z`jVp`YugTcgVnlfmvbcphwpe\82xk\81sd\89}i\88v`\8c\7fi{vn\87\80d\84ypxgn\83rc\89yf\8fn\\92pf\95vd\87\81c\8bwi\88\86[\92\88h\92\87]\89\84g\86\90g\8f\87Q\99\96T\9e\97T\9e\88K¬\8cJ¯\95<°\979«\991­\9e<³\9c;¬¡?¹\9d;»¤5´±=º²D³¥K¾¡MÀ¬D¹­NÀ¢L¹¦I¼¥S»¢H²³B¼¢=�¢F»ª@¸¦9¼¬=¼¥@»«<¿ªK¾§:°´=¶³;¶«Cµ¤;¼°B�§L·¦C½¬M¸·J³�U¸¾N½¯X»­G½®RÇ´ZÄ°V½±T¾«D³ºP°®M¦©? ¨B®¬I ¢G§\98?¡\9d?ª¤C§£?\97§6\9f 8¦¦3¡£7 ¦7 £:¯¡<¡\9cG ¢C¤\9eD¢¤<§¬B´¥A±¨4¤©+°¡%³«/´³7¦´>ª¯9¨ª7\9fª8ª®2¤°>¤¤C¨\9e?¨«/©\9f-¥¡1­¡<±\9f7²¡5Â¥;°\96?¯\8d3¬\973´£6ª­8§¡=\9e¯G¥²E ¨=\9c©?\9f¢J\91\92B\95\9eL\80\9cF\87\96@{\97B\89\96;\82\9dH\81\9b8\80£2\86¥>}¬B|¡8\7f 9\86¬<\80¤Q\89£E}­J\80­F{¸A|¼F~´Gx³G\80²>s¿2u¶+p­,d¶8h¯4f¨/e¨5k«/Z«4gÂ=b¼2l²<Z±7]À-QÀ@`³:\¶7[À6T«C\³;h»>t²Ep¯Co¤Cg£Sb¤Jl¯Hb©Am¯Fh·>l�Dl�Bv»DmÄ>nÅ?r¿Hs²Ly¸I\82ªR\80°R\7f©O\88¦Sz³Q\7f¨M\8f¬Q\92ª]\96´W\9e·c\92¶c\89¯q\95«i\93 v\94¡l\91¤l\8d¬r\94¦i\96¡q\8a®c\8c£k\9b\99e\92\9dg¥\91n¢\9cr\91\93e\98\8do\8c\92i\9f\84j£\7ft\95yt\98zy\96rl\91yq\91wi\90me\90ut\9bkq\95bw\94e\80\95Yt\93`|3ct7]n5Ys>`t?UhGYbCai?cb;gXGlS:s\<nYIaODeUJlO?dPLdQYZMZbPa_Zbbcie`do\ip\jm_jvbxpk}qfvsh}|_\84}Z\80~\\7f\82\\82uc\86wi\80mj\81dk\82k]\90p^\8fwa\92\7fV\84wZ\86\86Y\83\83W\8b\81e\8c}a\92\8bZ\88\88_\88\93R\8c\96R\9d\99T¤\92Q­\96K´\92>µ\8eB°\8e:§\9a>©¡3ª¬:­¥8«\9e1·¡6À«?¼¤GÄ©>À¬@êE¼§MÂ\9fW¼¢Pº©J´¦D¶¨E´¢;¯\996²¡8µ¡:À\9f9· ;¿¢B·¨>±«5¹µ>µ²:³¨A½¬?»§Bº±D´»Q¸·R¹¼L··Q¸«F�«K¾°F¾²Qº±S¿§R°¦R°®F£¦?£¨Iª¨Mª¥F©£H¨\9cC©¡F¤¨>¡£1\98©4\91­9\99¡8\95§0\9d\9c9ª\9f@§\99B©\9fI¢\9dK¡¨A±©A«¥8°¦1³¦1ª¨)ª¤ ¶¨$¼­3³°2±¨,¥«.ª¦>©¬<­¨7­¨@ª«3¡ 1¡\95;©\963¹ 0¸\9b=¾\9eEÀ\97>´\9fD¹\96Cµ\96?¬¢:«\9e?®§8 ª9£§E¦£F\9a©>\92¡=\8c\9dE\85\96@\88\9cE\89\9bF\82\99<\82\92D\8a\99A\89\9f:\83£=}¥?\83«8\86¥A\87\9f=\91ªD\8a¨F\84´L~±Ds±Cv²J{·Sv²L\80¾L{½?pÆ@m¾5tÄ8k¾8k¶;f®8f·2n²3`¸/bÀ5b·:i»:^¼3V�5Xº<S½?QµIR¹J`«Da®Bp®>r¶Ao¨JvªPe¯Ie¬Je¬OeªIm»Ii»Geº=r�7uÈEsÃGrÉKm½Em½M|¼P\89µT\84«H\83¯G\8a¬W\80¨N}­U\8a®S\8d¸_\8e³X\9dµ^\9d±Z\8b¹f\86´^\89ªg\7f¡b\7f¢n\86§a\87ªb\83¨f\8e­j\89¥h\90¥^\8e¢h\98\98i\9d\93b\94\8el\96\84e\8f\86c\91\83f\9b\86k\90|q\92yq\8btu\95\7fh\9c~f\95|h\9atq\94in\9b]{\94bv\95g{\86[z3jl+nc.bk3buAZh@T_B]V:Y\BfYGaTAe[@h[E[R?bJ:`SCVQN[^GcVM^\[VSecXriZajTal[eiejqajsmnthtvb\7fn]~\81f\86\7fbzuY\86y[|wY|te\85jb\8bbd\91wi\86s\\92t^\80s[\8c\83_\84\80N\8cxU\80|V\90\87\\90\85^\84\91^\8e\97P\8f\96T\9b\9aL¡\8dR§\94=©\97;·\9b?´\9a<¨\979©©5²ª.¸¥,¼¦9±§:¯\99N¹§9°¥?�\9f=´¨E¹\9c@µ\9cBµ£H·¨B®¨Kº¨D®\9b:­\9a3¼\985¿¢7À\9eBà7Ã¥A�¡7¹±6³­3´¬7¹«?»¦<ȤK¼§N¶¯L·®N²µK¿¸V½ªG¾®D�±N»©Iµ¨X¶¯HºªC¸®D´«C¸§Aº£E« I¤\9b>¨­>¬­9£´9«³2\99\9e;¡¤5¥\9bB¨©;\9e¡A£\9f4­¤>®¡J® 9µ¥4´\9e:º©4­¥1£©3­©'´¡/¬².¶«<£¨6\9fª5\9e¦:¦­A¨¬?·©:­\9e=¥\9e8¬\989±\8d6º\9a<µ\96@·\9bA°\95G°\99@¼\9b<³\99B§¢A¥¨6¯©;¤¦4¦¬7\98¬5¡¨8\9c¨G\9a\98I\8d\98L\8d¦@\8e\9aH\89\9d?\84£;\92\9eB\8a\97E\7f¡;\84®>\8a­2\7f§=}«@\89¤=~¯F\80´P~³G\85¹F}²L\81ªP\80µA\84»=vµB{½An´8y�4pÂ8wº5n»<wº<h»2o²4]³9g¸:f½:gÀ/ZÌ0N�=L¾<U¸DQÆC]¿?i¹>o°=t´Gt¸Gw¦Pq¦Oo¬Nm¨Bn¬Dp¬Ij¶Bs³@o»;n·6t»MkºOi»Bu¼R|¿V\82¬O\86´K\81°F{©\\81­Z\84¬M\89µO\87»O\8b¾R\95«W\8e´Z\92¼h\8b»e\94¸n\91©k\89¡e\8d¤h\82©g\82­_\80¬e\8f£k\8e\9e]\94\9dn\96\90m\98\8aq\96\93m\91\86h\8f\8cd\92|l\8f\87a\95\80c\91|q\92\81g\96ym\99\83g\90\81p\8dzk\8aoq\8dru\8b`z\91a{\86]\81.td/md7mg.\n+\]2\X8RT<VSG^WFcX:_];abB_RGXO>[UAR[GTdEZ\LVRS]PdiLjfTrt^iq]ordijhkpakvapiapl`\80{\\80\81_\89re\84nY\86k_\7fn\\8cs`\90g`\85p`\8bue\90uh\8bs`\8au]\8d~K\82\83I\81~T\87\85_\89\88b\88\7fc\94\87\\90\92M\98\94L\94\91I\9c\8aIª\88?­\97E°\9b;§\9e?¦\9f0­¡/´¡6¹\9c5¯¥B²\9dCª\98B°\9b=° @· >»\9cI·¦Eª£;ª¦B®\9d@½\9dJ¾\94K¯\96=²\9eG¶\9cE³\9a;»¥9¹¨3Ĥ<¿£8³¦8¶\9e>â<ƬFÄ¥G� E½ªI·§M°ªV·ªJ¼´M¿¨Q¾¢J¶\9bQ¯¤L®°J²²;¶¬C¼¯DÀ¥B»\9e:±ª<§¥?±©J³´C©³=¯¬A\9f¡;\9d\9a8¬§>²¥=®\9d0¦¤4¬\96B­\99B¤¢6§\9e4­¥-»­*¹¹/¨µ.°¦-®§5¬­6®©7¨©9¥¡>¡¬<¨°E¨¨3°¦/§\9c1¥\996°\9dA°\92Bµ\98:¶\99B®\9c<ª\96D¼\95<¿\9c=¤9³\9f?µ°<ª´;¡ª8¦¥7¦¯3\96´:\9d£E\9a¡G\8f¡M\86¢I\87¦D\96\9fA\8f\9f@\8e¢F\84©8\89\9f5\8b­8\82®3z§C\81°B\88«E}¯My´I\86ªJw®Rv¶T\85²J\84¨=}©B|¶D|¿:v¸<\84·?\80Æ4\84»-x½/p¿0q»<r·2g·6b»,`Ì2cÄ-`Ì1ZÊ/NÌ0IÆ.NÂ<\¸3a³9p­Km¬Nt®Uq±Rj¢Uj¤Pe§Jn³<i­Gp±Dqµ=t¶6v¹;jÀBr¾Dj²My·Sw°M\83²D\82­H\80­Ru©P|©R\88£V\83®U\8b¼O\93¯U\8d²_\94¯j\96¸d\99¾k\8e´e\95²`\8f e\8a§h\8a\9eZ\89\9cZ}\9df\8f\99k\91\9di\8e\9dh\94\96m\95\8fn\8d\8do\86\92q\85\85n\89\87c\91}a\89\80h\8a}_\8fx^\8a\82`\96~j\92\80j\90ym\86xe\89if\86cq\8ago\88]x;q`;te3m^1Z^.ab6WW<WO2[W;b[L`OHaT;S`E`TAaQ@WTIK^CTUGZMRZX^aVaYUgab^mW`hhejjcr\eubhvcsy_pj[{sV\7fvR\80m`\7fpV\83hb|k\\82th\8dm[\8fw]\88v]\8agY\8bfh\86sR\88xN\80mX\83uU\8a\81`\8d\84[\8e\89]\93\85S\9a\87H\97\88Q\90\8dA\99\8fB\9d\8cD­\96G« @\9d\9e8©\981°¢,·\92<®\96:º\9cG¶\8eF¸\929ª\8c9·\9a5« @°¢;­¦E¤\99K¥¦@»©L·¤P´\96<µ¡Bµ\94BÅ\9eB·\9cAŦD¿\9b8Ä >Ä G´\9d:Ä\986�¡@À\99;�¬C¾¨G»©K�°W©ªMº®Mµ¯Mº¢I½\9eI¯ªNº§L­±F³§?¶«1·²8º\9e3µ\9d3·¡=¬\9f>®µ=¸«=¬«Eª­I¦¤Fª\9dG²\98>±\9f@±§4®\99+¦\9b/ª\958§\94:«£6¨¥-¯²2¯¨,¯®5²¨,²¯1´«0·µ9®®:¬¤4¬¤1©®G¥ 4°«<¨\9f8 £3\9e\98<ª\9f=¨\9c@ª\9bAª\8cB­\8a=ª\9b=¿\99<²\9c:¶¨B¦ªB¬¬7£¤?\9f£6\98¢6\98¨2\9c¦B\90³P\89©Q\90¥P\89ªF\9e«E\98©I\87 E\8a¤G\89\9c7\81¤7\8a²:\8bµE\82¼Oy®C\85¬G\83²Ky´G\80§F\86·N\86µQ\89°;\89·A\8b¶>\87¼8|ºDv¸<\86È7\7fÅ5}Ä9{½Ax¿>~ÊEjÉ6mÄ>kÕ)`Æ(\È7`Ó0X�4WÊ,YË.aÉ:b·;\»?jºKkºNqµUmºIk§Nt·Er±;n³Do©:j°6e¼?oÂ6oÀ=hº<e¬Om±Go®Yw«Tt«M\80­V{²M}ªH\8e¨L\90¶I\86ÂO\8c°N\8b»\\8a²Z\95»Y\97®U\89®X\8f©X\8eªZ\8b¢_\89\9ee\83¢b\88\9c`\7f£c\93\9cl\8e\9ec\90\92i\87\8ce\91\8dh\83\83e{\92c\80\7f_\8f~b\85~S\93\84R\8b\80`\8azd\83\85g\90\80m\87\80g\8buh\82ee\8bab\8e[l\8aUtBgo>nc0pY.a^4\];VS@XP8\Q4USA^MJZWBSW@UX?YP;[ZFSXINSWZOXeSZ^Ud^c]]gh\_cifjeanmZmt[ktTluS{mS\7fuW{qUul[zmW\7fz]\7fy_\83z]\88wg\96yc\92i`\8aj\\91f_\85jT\85iT\8ah^\82s_\8asX\83wZ\82yO\89zP\94\7fG\93\88J\8c\8aJ\96\95?¥\8aG¤\90Bª\98H£\97@£\96=°\94:³\99F¬\8dC°\84I­\89?©\82=³\894¬\8c2¥\97:«\9eH \9fE\9f\99E­\9cE±¦=¾¥Eµ¤H½\9dF½\909Ã\91:Å\9d7Ã\9aA¿\91CÈ\93K¿\96B½\9aF¸\9eK¹\97@¹ LĦMÀ²T¯U¿¯P±ªQ¬ L± I¬¡K±¦?¶¡7³¢@·¬6¶ª9º«4µ£,µ©+¼«4¾¡@³¨>»¦A¹¯G­¡N¨¢E® L¬\9cD¸\9b;¼\9eC·¥>¹\9c2¶ +¯\9f5®¥;²\9d5²¬0¬¯8«²,»¯1±¸4¸·)¸­2³°-²¶2±­*±¢6ª¡:®¬9­¦@¦¥?¦\9b6\9c£>\9f\9d9\9a\99< \93F¯\8bE­\8f@³\98K²\9fDªªG­°Cª´E¤­>§¯?\9c¤5\9f¡1\92¬;\93¸=\8b¶J\8b·F\90­H\8f®B\94²D\8f°B\8e¨?\8e©H\8d¦C\96§E\8d¯;\8a±<\7f¶L\87­P\85³K\81µG|·B\8b¨C\88©K~­R~¯G\88·B\88³;\88¶5~¶=|¸2\83Å3\89Æ>\81ÆD|�L\81ÌD\80×I|ÖBxÔ3h�-f×5[Ñ/R×4WË/aÔ.aË+V¾4XÂ8XÄCV¹FW±Pi·Jv·=sº>h¼4j±;d¬<m²?a½@b¾6l·1nÀ5i»HfµI`©Hc§Vo«]r¨Rw¦J}®P\86³S\87«F\8e³D\88¸G\90¹F\89»Q\8b¼L\91¼X\98¾W\8e¯R\95²S\8c¥]\85\9cZ\81£d\80§f\82¢a\8b\9ea\85\9b`\89\9ef\87\9dj\83\8fh\8a\8df\84\8bc\81\8f]\86\84\\82\84\\8d\8b]\8b\8aT\81\7f[\83\81]\87\85_|\83d\81wb\89zd\8epf\87bb\90\q\88]p7rb:d\-eW6^h3Z\-YL7SV9bQ4UM=^S<QG6QO9WXGYQNKPMS^VLLXOKR[\^Q`a\cVZ]_jhWjdjq]gi]fp]osbpqTukPthOzkM~jW\7fpW\7fr]\8dlW\8el^\86t^\8aqh\90e\\8dpU\90rQ\8bfM\86sY\8atY~q`\87n_\83xR\80\7fH\8a\83V\97\81C\97\8aJ\90\8e@\98\909¦\8aDª\96E¢\88D \8fH \8a>¦\9d5¡\92C\9f\8e9§\85<£\813©\8a1­\901¦\93;¨\8b=©\91=\9b\97>\9e\9f8¯\98C´\9fA¸¢Eµ\9c@Å\9a@Ã\9eB¹\94:Ã\957Â\8eBÇ\98F¼\92EÈ\99JÃ¥B¼\98KÀ L¶\95;¹£I¼ C¸\9fI·\9bT¶¤J«\99I±\9eM¸\9fM¸¢F³\99C®¦D¶£7½\9e:º\9e6­¢2¿ª2´²9¸¨3¯¬>¹±B¼§Fº¯<®¬F³ H­¡B¹\94D¯£F¸§@¿¡2°¡3§\96(®\91/©¢3µ\98-¶¢9¹¤'�­2ij2º±*¼«*¼°%º³)¸«:´­6©\9a6©\9b<¬\9e:­\95D¦\9d?­\9e: \9a?¡\94@¥\88H¦\91Fµ\91J©\9f?¨\9d= §>ª®<£²D¥¦D¦¨? £4\9e¤<\98·=\98¦=\98©K\94¬F\96¢L\97±:\9b´C\94©?\86 K\8b¥=\8f¨D\9a¬B\8a­9\88¨K\8f½B\8c²L\88¸D\80µD|ºC\87¶K\8c¯F\7f©B|©A\8a¬E~¸={·@{³1|¼?|Ê:zÉ@|Ò>\83ÆCsÉFrÅ>zÚ@pÚ9gÑ7^Î6dÖ.cË,SÌ5ZÌ3fÎ3^Â3ZÀ3a¿BUÃAj´Dl½KlµAhÀ>f´7[³=^»Bi¹5fÂ6iµ8l�7p¿;q¸Ek½Kk©N_¢Un¨Lu¡Vv§Gz¨R\86«H\84¦G\87®E\8b»I\85±Q\91µH\8b¸W\85ÃO\80»I\83·U\8e³M\8e¤V\86\9fc~§Y\81¦^\83«R\84\99V\83£d}\98]\86\9cf\91\96h\8f\8d\\84\89Y|\93]\83\8e`\91\8ba\85\87U\83\86Yw\87Uz\89a\80\85V\85\81e\8e\86X\94zj\8bl]\84f[\89cp\8amm;kZ0gW/f\3ad/bP+bK4bR.ZW3UM*[G+OS0TS@OR@ULGTWTJWXLUZSRZPb\Sd`O_]W^^g^Qj^]hYkf[npaqjdsqYphKobOxfP\84fK\7fuJ\84nZ\8bfY\8dea\95hc\8bmb\8bpa\95mc\8epS\88oN\83zN|sH\84lR~kS\84sO\8eoV\89{K\93}@\95}E\9dy?\9f\81B\9c\90=¦\948£\916£\88>¤\88D¬\94A¬\97;\9c\905\9d\903\9e\807¡\81< \8c4¡\874°\8a0¯\91-¤\898\9d\94D§\9c?«\9fD®\96:¡@Ê\9cB½\9b@º\95AÀ\9bA¼\8f<¸\9e7¿\9d=Ê©FȧEÆ¥G¶\9fG»\96;¹\97:¼\94:¹\97@µ\9eL·\99T³\9cW±£Iº\9cNº\95B²\9b7®¢<®¢.²\9e,¹\9d)°©7²°4»±3¾¸1¶¯?°¨<²©6·±?²§:±¡>µ\96@­\95C¯\9a;¾\99=À©1À¥%®\94'µ\9c(¯\97(¶\97*�\9e1Ȧ3È¥$�¯ ·¶-¾©/­(¾©6´ª8¬¢=±\9d:³¢A¯ 9©\93E¤\8e@©\965±\93;§\8bG©\8eO­\97N°¢L­\9b?¤\92>©\91;¡¡D\9c\9c?¨¨A\9b±?\96¬A\9fªF\9c±>\9c²J\9a©P\97®L\8b¥A\99¬7\97ª>\89ª;\8c\9bF\95\9eH\98¨D\8eªN\95§G\8f¬A\8f¶?\81±D~¶;\8bºA\88¹L\8d²P\86¸C\7f¬<\84±C~»E\85µ<|¹A~µ4vÂA|Ë=\84�:zÌ6oÄFsÉJtÑ<l�>o×6gÕ<\�2^Ö.UÎ:ZÅ?\Ë0Z�/]½.V¹;b¼>`Ã4pÅ8y¿Fn·Ci¾<gÈA[Ã?]É3]¿7^½3d¹3m�.o»4f»7k»Hh¸Sc£Od¦Oh£Ns©Iw¥Dx¤H\88¤K{«N\7f¯Q\8a¯U\92¸N\8dºL|ºQ|¹V\7f¼I~¯H\81­Vy­R|¤Q\84°K\7f¬Nx¡Y{\9d]\88¡W\90\9d\\84¥Z\88\9d[\8e\8fR\82\86U\86\8cV\8f\8da\8f\7f[}~^s|\t\87]u\8ea\84\85\\81|U\8e|^\90u`\80w]\84ta\8bnn,aO3_X,[_/c`)[O,VS3c[3\R(ZX!PO2SP/RM4EMHNLCUJYTVSOSRQURW[]O]Y[ZW\eR^XYZc_Whgahpgehn]r\[{gK\82lO\7foI}oG~fO\8a^S\88gO\8em]\9ae^\9aw]\95rb\96le\99x\\90|X\87tF\8a\81L\8dtN\87wU\8arO\95tJ\86uN\98\80D\98{E\95|;\97\8e;\9d\85=ª\8c8\9e\8d6©\8cH¡\88B\9f\85L¢\86<\9c\88@\96\83?\9ey?¥\82?¡\866¯\85.¬\939 \840©\85.¢\901©\968¸\9f5¸\92,Å :Ä\9d@Ç\9dEÃ\9bE»\94BÇ\91A¶\9a:½\9e7º«>Ã\9eN½\9d;²\9c7´\9b=º\9c2¼\8f@�\9dIÀ\99J¶¡Mº\9fQÀ¥N»\95D¿\9aD¯\911µ\9d.±¢/­\98(´\9d.²ª8µ©:¶³1·«>¾°9¯§0«©;§\9c7«®;­¤=©\97@±\9cC¯\95:¾£5½¦/±£0¬\9e/ª\92!¨\96.À\920Ä\9c,½§#ñ,¾².ij/ì-Ä­"·²,¿«+©¨8¯¤3³¨3©©=¨\95C¦\93A¯\9aA³\9b6©\9aF«\90C°\98N³\98P¢\93N\9c\93K\9a\9d@¢¡9\9b¦H\9f°;\99¯G\9bªB\97­E¡¶I\9e­G\9d¦Q\93¨J\8f£H\9a¦F\9eªN\8b¥J\8b\97>\89 J\92\9fB\9a¯B\97¬G\8c¶E\94²:\86¸>\82±8\80¸>|·?\80¾E\82¼F\92¹J\84¸B\88�?\93°A\84·:~¼7x¿9\84Å>tÎD~ÉE{ÊDqÇFnÒ;x�FtÉGsÜClÌAi�.^É?_Ë@\È1_�/fÉ;[Ä<\Æ,h¾3o·5\83Â?w½Co·E`Å9VÃ<_�0`¾=`·9e¹0k¼8h¿5c´Co°Jc°Oj¨Pi¨Lo¥Ik\9fL\7f¢B~ª@\84®E\85®Q\7f¸L\7f¬N\8b¿S\8a²V\84µH\81·Gy±HuºT\85«KwµNq©Yu§N|®J~°X\87¡M\80¨Y\84 P\83\9eR\84\97`\88\8eY\8d\9a_\8b\8aX\8b\8e^\87\8ae{\80ay\89hs\84ax\8chy\86^\8c\85g\8e\83[\85vg|}e}}c\80wd0T_,aU7YN7`V1Y_+TZ"XQ'\N$RX%OR%MX1CP??IDBQKQNRQU]XTYNSXP`WWeXSeQZZUSSRY]UPb^Wib`ckaav`[~aL}_M\83mL\8alQ\82^H\8aaF\88aQ\98nW\98oT\97qV\94ta\9duf\9brb\9d\7fP\96\7fO\96{P\97\7fW\8dyN\93pP\95qU\93{K\98};\9a\82<\93\80:\97\8dA\9a\904¡\8a6\99\8aC\9d\81G \7fB\98\87E\9c}J\9a}D\9fwG¤w9\9b\86?¢\8d=®\8b=«\8f;®\8c<¤\874±\872¬\8b1®\8e*¿\9c-¿\9b.Æ\9b9�\91D�\90BÇ\97FÀ\99E¶¡9º¡=»¡;ĦFº\9bD¼\9e7µ\989¸\929´\9bD¿\9dEÆ\95M½\9aG¾\9eL¾\9aC³\94>³\98:¸\96=º\98.´\96)´ 3´\9c/¯£5½ 8¼­<¼«0· 4³\998©\9f7©¥0³¤4ª\9c.¬\9a6­\97;¸ :¸¥7¾¨4µ¥2¶¦(µ\9d+²\94+»\93 Ä\9c$Ä£-ì,ȱ.É®.�¬*²(µ#¸¦.¨©7¤ª<ª¦3ª¢;¯¢:®\93<¨\96:®\97=±\8f=¬\98H²\93E®\90Q£\96R\9c\98L\97ªH\9c¬?¢¯F\9e°>§·F\9e®H ¦K\98ªL\98±V\94§R\95©Q\99\9eO\9b\97O\99\9aL\95\95P\8e\9fC\8e¨E\95¥9\98®<\91³B\95¼9\87»9{»5~²:v­D|¹<\82�6\8bÄA\8bÃ?\92ÅJ\98½H\91¶D\88Ã=\84ÉE\84Ë?{Ì<pËJt�IpÆDyÇGuÊ>wÔ@jÎ@mÒAsÓ=kÌ9gÈ7]ÈAcÆ@iÈ4lÉ0e¿5dÄ3hº0r·;{À8xº5i¸=]¸3_�9WÂ5_Ç2k¾(h¼/k¼6]·=_²<d±:p¥Ap¦Qu\9cUm\9cTr\9cMv¡Ft¥Mv²Lx¯My°K\81µS\87´R\81±T\7f¿M\84¿Xy¶R}­Z}®Pn¯Im¶Ri¶Ev±G{¹H\83°M\80¤X~©T\8e§M\8c\9bT\89¥N\8d\9eW\8e\94`\8a\91g\88\8ei\85\8e`z\8egt\83hv\8ab{\89^\8c\8ai\8e\81g\92zd\87~c{wl\7fsd-UU&[[3`R.VM9RF/VU&RN4WG&HE0LE)AT1>P<EO>JTLK[WIZWDTUFXTUi^Tp^[iTTdWNT]PUUSVd`an_coX_mbTsZQxaLylI\80fK{hF\88^O\8c^O\8abT\94f]\8dgV\91q]\8cnb\95o`\97\82R\96\87P\9avS\90uN\92wJ\8fqI\9awH\8d\81;\98\7f>\98\86?\8d~D\92\90M\9c\8d8¥\8f0¡\8aB\99}A\9d\89@\9a\8e@\9f\87<\96sH\9c\82F­}C z=\9c\91Aª\8d?¯\90C«\8a<­\811·\8d,±\880½\8c6Â\959Â\924¿\9a,Ë\8a<�\90<Ã\98HÂ\95F¾\9b<¸¡D¼£@¿¡;¶\99CÀ\985´\96A¼\97/¿\92EÃ\96:¡;¿¢:º\9c?º\98C±\9e1´\8f0¼\914¾\96.²\94/» ,º\9e:¬«5¯¡?¸²?²¦Bº\9c:·\9d2¯¢;¤¤?ª¬5« <® 6¹¡9¼§=Ä¥/Å¢6´­4º¬.¯\9f)º\91*·\9b)Ä¢*Å©&Ī/�¤/¿³6ǵ3õ(¾¯%�©.¬\9d3¬¦6«\9d9·\99=±\97F \8b@¦\9bK\9c\94A\9c\9b<«\91M©\9bB§\8dR\9f\98Q\9a¨S\92¡K\9f¦F\9d°?\9b°I\98³J\9c®F\9b§H\9c±O\9e°J\98²P\93«N\9b¥Y\8f¨J\92¥H\8a¡R\94\9dB\88¬G\8a¨>\93²A\91°A\95µE\89¯I\82¹:\81¾>{¼B\81²;\81·D\82¿?\92Ã@\83Â?\85½M\8d¶N\88¹D\80ÇC\89Ç@\80Ú=tÑ>nÉBoÌG\80ÒJ{Æ<\80Ò;uØCt�GpÔHcÈB`Ò7]�G^À:aÈ3f¾7g�0bÇ9qÄ6h�=rÎ0xÃ6a·8b»;eÊ4i»5cÆ/e¸,r°1k¸9`´0g¶0]³9l¨Go£Mh\9aNj\99Mo\9e?j§Ez®?i¤Ly¯Qs¬Dy­L\8a¸G\89²L\83ÆL|¿Fl»Ix«Bz¶Sh°Fg·Rs±FqªG|±P\8f¯Nz´I{²M\8a­I\84\9fM\91\9a^\86\9cR\8d\91c\81\8c_\80\90a\8d\90_x\85`{\8df\7f\8eb{\89c\80\86j\8d\7fm\8b\88l\88\81_\83wl{\7f`.[_)JW4SP2[F9VH6QC-IN/JM+IM4IC-HA6JK7DM>O]RNWZI[`HZWHbYNoeKnaOhWO_VRW[WU\PXfYUcOdjVguZYw^X\80`L~dMykK~nO\8cpZ\88jS\8ajX\7ffT\82kT\91sV\8dmR\93xW\8e{Q\95\7fV\99xR\95yM\98\85L\97\7fB\96\848\98\85<\96\83B\90\87D\8b\8a@\90\81G\99\85A\9e\888¦yD\9ex>\9f\87D \85E\96\81L\9dwC£\80?§y>£\853¤\886£\914¯\89>­\83?»\84/À\8d/¼\882»\875´\884½\93-Å\8c.Ä\979»\92B¹ BÄ DʦDÂ\9a9Ä\9d5º\946Ã\96?¼\91>¼\8d7Â\906¼\9e?À\9c>¹¨4¸¢;¹£>·\9e8·\9b4¸\912²\93/´\9a;¼\9c;¹\9b3«¡1®¬:»¬9¾§?æC»\9b6º\9a2©¨6\9fªB¦¦<¡\9d4¦\9a=«¨3¸©0¶¤-�£8²ª.´¤(µ\9f(³\99,µ\9d-³£+¼¥(È\99$Ǥ)·©-²¬-¾·4½³,» -½¤/±\9d=¹\95=²\9dE«\9fH¢\94M¢\9cI\9b\9eJ \9a=\9f\93@\9d\8e?\9c\96N\95\9fP\97§N\97¦F\97©H\9b«O °J¥£F¢¢H\9d®O\98²L\94²B\96®H\9c¤W\96£Z\8f¬W\8d­J\86§L\8a¨L\89­F\86ªO\86­P\95¬?\96§I\8c¬J\7f±J{¿G\85²H~¶?\80¼E\85�?\8cÇD\83É;\84Ç>\88¸M\8dÀL\80Æ<\8aÊ8\84Ù=\80ÛEuÕ?x�;wÌ<{�5\80�;\84×D{�IoÊKd�FfÈ=kÃ=_Ã5\Ê=\Ì:aË:`ÆBkÇCfË9qÊ7sÆ5g¼-k½%hÈ.bÅ,^µ5dº/kµ/e¬3Z³3S�4]½0f®8j¬?p¨Gp\9dDm¡Bn«=g¡Jk¤Nv Pr¤C{´E\84³M\82µIw½Jl¹Fn¯Av½KlºHi³Qm¸Jq¯Rn¯Pt²Q\89¥J\86ªE~®K\89²P\83¨P\8a¢U\89\95[\8a\92Z\81\91X\83\95[\87\8bb\85\94bs\96mx\95e\84\82c\7f\84g|~q\89~m\84\80f\89\86m~\7fc&MJ%QW2VD4XC1PI.HD)MF+CK(GG/ED=HM1CV:CONMeUOZRCaXETP@ZYIedKlXT_ZQgRSY_[abK\VV^h_hh\mi]it[dphZ|fWyeSylWz`W~_]}k]vnT\8cg^\85{[\90vR\8fqT\90qZ\9ayI\91uF\99p=\8dy@\9e~E\94\80G\8f\83H\99\8aM\9c\81J\95{E\8c\85K\9a|I\93\8aB\9c\849\99u3\9d\83:\9c\80B¡\83B£z>¨|9¤}D±\850¨\89.§{+±\821®\824¹{0¿z)»~:¶\83/¸\924µ\8a0Ê\91/¼\8e0³\97;Ä\96AÀ\97DÄ\93?Â\91>½\955²\92.²\954°\91=µ\8f3»\87;�\986º\95;¯¥C³ 8¸ C¸\9c:µ\9b=µ\9b(¹¢:¾ .®\9d5´\981³«8¸ªC» 6½¥6µ\9aAº\9bG¨¥=§¨EªªF¦¥?¤§G±¢?«¨D¸¬4ºªBÀ\9d9¼\9b1´\9d,³\99)½\973»\9f(³¤/´\9f'º\91)Æ\9b2ª3�¡5¶µ8¸ >µ\9b3°\969³\9f9»\9fC¼¨E±£R«\98S\9a\91J\92\9dP\93¡@¦\9aD¡\95E \98H\9a\9eS \9eU ¦Q\94¤N\9c£P\9d¨F\9bªU\95¢R\9fªJ\98²S\92¬R\9d±R\9d®X\93°R\8b±W\89²[\80°R\8a£Y\87§Z\7f§W\86¤L\99±M\95²C\86®M\7f­F\7fÄ=\8e·?\85¸A\84¾9\8f�C\8f�I\8bÇA\85É?\88ÃP\8dÌ>\86�;\8eÌ9\8dÒG\82Ò?{Ì:{ÕDsÄ=\7fÌ6\84Ù<vÔ:\82ÖEnÖAbÜHeÕJoÆEhÈ:b×LeÉFk�8hÑIqÆ?uÆ9q�?p¾6l¿1gÉ)gÈ4mº0^¾=lº5o±6l´=i³6a½/S¼8[¹7\ª9_³>s¡Ca\9c>a©Ap\9fJj¢Ns¥Ak¡=w´Ou«N~°Nn²Ep¶Js¸?m°Hj­KjºCu�Jq»O}®W\85¨T\8a¥Ry°T{³T}¢S\89¤\\8e\9b[\8d\8eZ\82\94b\80\9b^\89\90T\8e\90Zz\93i\7f\9fkx\98]\85\91h\81\81a~}iz\81j\81w^\85wd\84\83`.OF*NN&FK-GF7JK5HE-LA+EI4MN0EI2@T:GQ=MYMH^KGWNDZECdL>\V=f_KeXSj`JeYHZXQ^YPkPMf_S]]^cn_^qfbs^R{]RueUze_}mbte]|iZ}tU\85rW\86sX\84lQ\90vZ\99wZ\94oJ\95fE\8fn=\93xF\93\80?\97\87?\91\85G\92\81K\96\7fK\90yS\8byI\8c\81L\95|?\95\820\95\802¢z1 }5®\83;¬\86<£\84B©~:ª\7f-®}+µy.³|.´w)³y*µ\81&�\802º\89*¸\8c*¾\904¾\92.Â\9e/¸\999À\975Â\9d7Ã\97;¶\954°\8a8·\8b+µ\92-µ\874À\849¹\8e7±\8dAª\99?´\97?® :º\9aD·¡<À¥;»\9e.µ\9f2¼«0¿«*±¦/¶§1²§=±¤>¯\9c;¯¦:¯¤G­\9a?°¡E¤¥K¨\9bF£¢E¬\9f;²ªBµ¬F¼©E·¦>º\9a9Ã\9d)ɧ+¿ )¶\99*º\9b.¹\9f+½\990Æ\9d*Æ\9a(�¨/»ª5´\9b@·\99?°\9a>¸\9d@³\9aF´£G«\97G¢\99M¦\97L\99\97M\92\93O\9b\9bC\9d¥M\9d\9dH\9b§R\9c¥K¡¨R\97\9dX\8c©N\90¤R\99«K\94±R\93µK\9a±N\9b°R\9aºJ\93¶P\8a´R\86©P\83¦^\81¤b\83§Z\83«Y\80 X\8c¨U\92«K\91¯D\8c¯B\90®D\8cºB\94¶F\95¼:\90·C\8cÀ?\8d¾J\90ËG\89ÃI\87ËD\82ÕK\88�A\82ÕA\8aÒF\84ÎE}ÉD\81Æ<}Ë:\81×A\80Ñ8\81ÙE{×FqÚ=lÛCqÛEkÌ?p�CpÖIqËAg�Gs�FmÈCkÊBxÒ=sÇ:f¾5c»3i¿/k»0k»3q¸,g¹3iºAiµ?e¾?Z¶9b¼>Y·4\ª?e¨@l¡<b\9cBh¨Eg£?j«Gp­H{³Nu°Nr¯Eo·Cu·Gk³@n©@v¯?u°?pºEq»N\80ªS}ªU|«Vu°S\7f¨[\89¡R\89¨Y\88§X\87\97b\81\97X\7f\97X{\91T\85\92a\83\93`y\98`\80\99[\7f\9adt\8dht\8cg\84{`\86ye~q^\86xZ$NH\1eKH%LF+HB6IM6B@)PM1NE.BO5>K3LG7RNADV@?PT9RL>HS:WR>OVNd[H`VLYWV[TOcWP]PRdTO\OYec\encefa]sVQo]TnXW{^]nadpeayq_\84hQ\80jP\85x\\8cv\\8du^\99oS\99yI\8bqN\8anB\8f~=\9b\84E\8e\86@\91~N\9a\8aI¤\87Q\94\81O\90|9\94u@\96s;\9dw1\9d\81.§x7¨\8a5¬}8«\83;«\812¢\827­\83/§\8a9¶}.¬v&¸z-¶\810º~'Ç~0¿\7f)Â\8c)·\87*¿\93(º\8f0½¡:¸\999Ä¡=º\97+º\8c5¯\8d/¯\92'µ\8d4·\8e0²\953¬\89@°\919¬\94C´\9cB§¡?ª Aº\97A�\9a6¾¤4»\9c1­\9d7¶¤4°®.¬¯1±­9³\9a>ª\9bFº¢Fµ¯N°\9dE¶©E´\96G¤\97I¤¤Gº\9f8¸\9fH²´Q·ªHÀ°9¸«;¿\9b3Â\970�¡)¼\9d6¶\982Ä\985Â\9f4É\9a+¾\9d4¼­6ǬB·©7±¦GÀ¦J¿¨=º§Gº¢A¤£E\9e\9cU\99\91M\97\9aR\9a\9aD\99\97D££J¢\97L\9b¨Q\95£C\98¤Q¡ªV\9a£N\9a²S\95©R\9b²K\98­Q¡´I\96¶Y\91ªP\8bµL\89±M\8a©Y\91­^\87¥V\86¥Y\8e¦]\86¬W\87¯\\8cµO\8e°P\88²J\83µD\93±F\86¸I\92Ç@\8eº=\8dÉ5\88ÈB\8aÃH\87ÇD\89Æ@\92ÊA\89Ñ?\80�K\82ÑT|ËB\7fÄK|ÊK\89ØG\83Ò;vÕ@}Ú@\80�Ly�GjØGsÒFpÅ>j�GrÒFdÒHgËHnÆNdÂEqÆEzÓ:uÎ>fÃ>l�6`�0j´-j±+e³/_µ9g³4`±7b¶D`¼8[°8\´<b²7eªCoªMh¤Eq©An¯Ig¡Po«Ix¥OoµEsµJx²Kp¤Fp¬Nt¯Iq´Bn½Fz¶<w·D\89ªUw­P\84¦^\87ªT{«[\8c\9ca\85ªY\82\96W\85¡a\83\9fXu¤U|\96a\83\90X\86\9bU{\9ce\85\96f\84\9d_u\8bZw\8d[w\84]~{Z\7f\7f_\87{P\1e>>\1cAA\1d@G$>L&JM1MK&HI*SD8JH5BUCDSBOJ8?A?@GG=BU;GWJPMGOVFPWE^XI`MRVQIPbH[\NUT[YP`d[Z]d[`lTZfR`hUYvfTrf_sdglm]no]~iP\8cdS\89oN\95uM\97xP\98yO\90yR\96}E\8cr=\8dy;\9b|D\9e\88M\90\84G¡\8eJ¡\8fM¤\89=\9e\82:£\847\9exA\9b\80:\9d|,¬\886©\86;«\828\9b|1\9a\7f9¡u=ªy:¢\87;±\822µ\81.­y"¯~%±}0¿s+¿\84/Â\8e9Ì\863Æ\8d3Ç\96-¿\9a5È\9c<Ê\965Ê\99:Å\91/À\874ª\8b.­\8c&®\8a,¯\8f3°\95A¾\94?»\9c@µ\9b3¥\985¨\9b;µ\9e<¹¡1¼¤1¼£;¬\9c3²§0¬¥>´®?¬ª6¸ªD³\9bAº¤E·«E·°:®£7¤¥C§\9aFµ¤A·§=¼«L³­K¼«D½°:·¢0¾\962¾\9f/º\978Â\8f/½\97*¿¦*Æ¥/¿¢6Æ©1�³5˵=¼·?¶¬@²\9fE¾£I¹£Q³§Kª\98S¢\98P\9f\97P\99\9bP\93\94M\9b\9aQ¥¡O\9e\9eG\96¦Q\95«I\93®K¡­G£§M\98®K\98©K\9b±M\9e¯L¡¯U\91´Q\8e¨V\80ªW\80¦H\85§O\8d­O\87²R\89²_\94·Y\91±]\8a¼Z\8d¸L\82°M\87®V\83µM\8a¯L\8f¯L\8eÀE\86Ç;\8eÄ<\90½I\82ÄG\88ÈA\8eÌ=\84ÆI\89ÊG\87�I}ÅR\86ÉM\81ÇB|ÌQ\84ÔO\80ßNxßF\81Ô>{ÕEv�EnÌFuÉ>kÄ?l�;eÆ;]ÎDeÑFiËKgÈFhÔCj�=tÉ=nÎBmÑBbÄ?Zº?`¶3_À8g¼5^´<c°=^³:]¾7b»<c¬;s·Hr±Lk§Aq¤Bu¨Ji®EvªMtªRn­Ps­F~®H{¤C~¥Kv¤Jp¥Ct³Bu¼={¸7|²<\84¯R{¬Y~¡W\7f¦\\80¡W\7f¥\\87\9a`\81\94c\89\9f\}\9e^w¡Tu\9cR\83\96W\8c [\85\9f`\82\98_\80\97_t\8fXt\8f\q\8aT}\8c\\84\88T\86~Q I?\18MC)<B%EG#CD3ML0NR%]E8LN3QL;DGHUHE?IGGKG8FUGJQ:JGHRM@LKN\MK^JH[]S[bC_TW[dR`\`OcYRj]`n\Xdb[b]Zm`Yr`Xtk[qfY~kQ\80t]\8euQ\8fgT\8djJ\98mW\8blP\8doN\93rQ\8fnD\95vF\9b\82<\96\80:\8b\81J¡\87L \8d@¡\85A \865§\80=£}?\96{0\91\85&¢w)­\861¤\848£}9«t7¬t>¤~C\9f\83?¥\8a+©\81-³\841¨\84.¬|+°r*µ\80(´\89/¹\8f;¾\93AÉ\99<è/Ë\9e1Å\99/Ê\9a6·\95=½\874·\90<´\8a7³\972¶\8b<µ\98@»\90A±\93;®\946¬\91=ª\9bEº¢D±§;»®0´¤-³«5»\9c<·ª;µ\9b=²ª?²«;¨¢K¯ªE±£Bµ£8¹­8²¢@´¦G³ K®¤G­®J±«D¸¬C®¶B¹¥4·\98<¼\9bC¶\97BÂ\98?À\997Æ£*»\9a5é/Æ®9Ò§0Ê©6Ì´=¼ :À­F¹£B¯¡Eµ\98Q¨\97N£\98S¦\94J¨¥O£¡R\9b\9eI\9e¢K\99©R\95­Q\9e¥M\9e§O\9c£O\9d´G °V\99´J\9d¼Lª°Z£ªM\9f¤S\8d¢W\87©J\87¦H\8f¶H\87·Z\93¶W\95¯b\89¯Z\95¹^\8fµR\90ÅN\97³R\96¯I\8c¹Q\87±J\89�F\8fÀO\94¸>\89ÈI\8bÆE\88ÆJ\86Ä@\83Å@\89ÅJ\89�K\83ÈNvÌL\85ÌE\86�L\8a�N\8dÚOwØK}â@yØF|ÓKyØGmÎAlÉCh�>uÒ>gÓAiÑDe�Fl�=mÊ>f�=pÆJrÈHkÃ?_ÎGaÇChÄ:a¼8`¾5fÂ6nµ>sº>a®Aa´?c½8t­Au¯Is¶Lz¬Co¤@n¨Gy­Ns²M}µN~¦M{¨R\83ªQs¨Q|¦G\81£Hw\9d=o­>}¨@u²3w®@~²S}­R}\99Q\89©R\82¢S\82¥\\94\9a`\8e\9b[\8a¡bx\9cV{¨[{©T\87\99]}\9a`\86¡k\87\9ehz h}\8efx\95Z}\89az\83`\82\83`\8b\82O\19U?"I@%=?$BO*RI#PI+RC.VM3YK@RNJXHCNM<DWF?OOBSIEI@9HE=DL>FDIRHP]KOYPJSYMZaIRcNXfW\m\OgTSj]Xb\Rj_UnbYmaTsjZudR|ga\85q^\87iX\8cpY\88sO\89sU\85wT\8eoR\9bvP\99rH\9czG\93\8a?\98\887\95\81>¢\85E\9f\8bC¡\8f=§\87?¤~>\9d\844\96\887\94\7f.\9e\868 ~3¤w/­r/³o6¨x@©\86A­\83:¢~.¨\82+¨\83+¥{'¢v(°z&ª\85*¬\8a'±\940»\99=Ä¢8Ȥ6�ª.È¡0·\9c:·\919¹\8c6²\8e;¾\8cG¿\95B¸\989º\99=¯¡<³\99;º\9c;±\8eB«\8e7°\9e=°\9b7º©-¸¤+À©:¶ Aµ\9eG¯\9cK§\9aC³¤F®ªJ²£Eµ¨I¿£K»­=°­:³®>°©?®¥Mº\9eMµ¢Cº¢M¯«G«¡@¨\9aA¶\90;µ\93C½\8d=º\93>´\9c1¿\9f5¦5ʨ4Õ©5Ñ­6É£8Ë¡D¿\9bA»¦I¯¡S«\97Tª\91^©\9aZª\99S§\9fN¦\92K©\96R¤¦U\9f§Q\9b¡L\9e¦U\9e«J\99¤M\9f®R¡±Uª¯\ª¶U¢²K£ªM\98\9eT\8f¡J\84«G\8a«N\85¸N\83·[\88¼f\91¯b\8a·e\8c¿a\89»f\91ÄY\8cÅQ\94µK\99¶N\8c´O\8f·G\95�I\91¹M\92»E\88ÃO\81ÄK{�@\84ÎE\89Æ?\82ÇB~ÈLwÉT\82ÆN\85ÎJ\8fÜJ\88ÙQ\82åFxáJrâBtÙ@wÔAhËMiÌOqÌKoÈArÓCh×Fo�;mÈ7kÌ;tÔ@nÊHs�?hÉ<_Ò8_Ë@^¼9b¹6f¶6o¹:z¿>t¹1lº3l²;u´Jt¼Kw¼Ey´Gs³R|­Kz­S~´Q\81´Zv³X\81º[\83¯O|¨K{¦Ow\9dH\84£M\84¢Gy\9b<\83¨<}¨=\7f¡E{¥Gy©U\85\9eX\86¥U\87¦_\8c£S\93\9dS\90\9cQ\7f\9fX\80§Vuª\\7f¬\~\9f\w \\7f¢g\88\9bb\7f\9ej\86\93d}\8fat\8eis\8ab\81\89`~\80\$L>!IC.PG"AT\1fEE+QF$NG:TL1GEAUO<HEFLJ<GOBA=INB?EG;HG>>FDAOPJLOUPKPNPHN]QSbJ[]ITePOcMMd\RhYFi^IicYikKriSo_ZrdQ\83gR\83hb\81aR\83dX\81lM\80jQ\85fG\8bkF\99gM\94wK\94tN\9e|:\91\86E\8b\92=\8c\90:\97\8d8\97\86>¥\83A¤\8b1\93\8d8\9e\8b<\98\851\9a\84=£{.\9et-¯{7§w@¥wIµ\856¥z@¯{2¡}2­\7f-´{8³x#²\7f%ª\871´\813ª\94.¸\8d;Å\9cCÈ\9b5Å\99/ɦ6Ǥ.¶\9f1¸\94/«\9c7µ\96EÂ\96D·\90JÀ\9cCº 9³\95C±\9b;ª\96J«\929º\950´\998¸£6¿«4¾£9»¨<µ¤<® J®¨D¹­O¿°E»¬J¿¤I³®M»§DÀ¦B¶°D´ªQª²Pµ­E¿©G¼±N½¤Oª\9dL«\9dI°\96EÂ\95M·\8fIÄ\8fB½£9�\9d8½¦7À¬:̪4È©8�§GÌ¥LĪD¾\9eD´¦J§¥V¦£Z®\9cW§¤]¨\9eSª\98H¥\9aV¥\9cO¨¯X\97¬Q\9a§T¥¡N\9e\9eG¥©J\9d§V °O¨ªU\9f¯U\98®K¤¥Q\93£E\8b¯T\88²H\88´N\8b¼O\8e´V\99µa\9bÀW\8e¾U\9b¿_\90ÃU\9a¸N\93¼J\8b¸T\7f½N\8a�M\8f·I\96¾L\8dÃJ\85»F\7fÉE\8fÃC\8cÊE\81É>\86ÂH\85ËC~�YwËV\81ÉD\86ÎY\84Û_\82ÞW\81ÜUr×ShÚ?pÓAfÑTqÊFx�JsÈNvÃ@mÅ=qÎ?g¿>tÇFlÂChÆGjÊEh¿3bÇA`�?aÃ;d¶2k±3tµ;p¸;k·1j·?oº9o¾Bn³A{¶@\80¹A\86¸Qy»M~®Q\80°Z\81®[\83®P\85²O\87«F~®K\86 Q\80¡U\8b§L|¨K\7f§E\82«?~©Lu\9dFt¥J\84\97J|\96X\87\9eU\92\9fS\91\98^\95 P\81\97\w\9eMt­S|­dx©X\80¨X\80ªX~«d\85¡_\89\9bh}\8e[\82\98g\83\97]\81\93cv\88Y\81\84P\1dHN'DE,F>0OG%QL)KJ2LN4KM>LA=IFDME9NAAP=8M<>I:?Q@DJK?BG=AHKPDON>QNFISJQQVRUV`IMZQVcNNjHPdQBc^DkaSfeYklTz[Vz[S{ZP{[[x\Y~bM}gG~dH~fK\8dfK\8fpN\8foO\8ezJ\98}A\96\8fC\8c\91@\87\94B\90\87<\88\8c:\91\8eA\90\8d>\9a\8d0\9e\8c3\94z?\9fz9\9cz4£o<¡u8±r9³|A³\82<¨{6­}9¤}8¨\84<³\848ª\84-±\89*²\825ª\811°\87A®\8e?´\97<¿\93<½ 9­8Å\9e7¹\9c/¸\9d;°\998¹\8b:·\8dA³\99A¶ L­\92Mµ\92@¬\8fJ®\9cD·\9a<º\984¼\990�¡5Ä\9b+À\9c2¹¦1¾§Aµ­Iº¯C¼¨AÀ§O½«G·«P¸¬PÀ\9dSµ¤M°£S©©Yª°U¶®V¹¯I¸§O»¤V®¤N°\9bE¼\9bEÃ\9fSÀ\99Y�\96NÂ\9fAÇ£=Å HÅ CΤBÊ®?É«EÅ­C½¯?¾¡<­¨?¬¢M®\9bS¬¥\«\99V \94O\9e\92G£\92H\9e\9aV£ªT¡£K\9c\9dF¡\9cF¦¥O\9e V¥¢V£®U­¬N£¨F\99¢I¢«J¡¦Q\93¬Q\91±O\98´R\8d½M\99�W\99·T\94ÇO\93ÅU\9cÎ\\9eÆW\9aÈZ\90ÀM\8a¼Z\80½W\8f¶R\96¹E\9aÀL\93ÀL\8dËB\89ÄG\84Ñ@\8eÑI\88ÑO\88ÃIwÆSsÈLyÇQ\87�M\8a�X\8bà ]~Üa{ÛWrØKi�JnØKqÔNtÔIsËFlÊIu¾Gn¿Mk¾Bu¾<vÅ@{ÎNo�Kp�K_¾:XË>XÈ;Z¼<c¹;`Ã8g¼?o¶Bq¸=cµ<b»9k¹6w»D\85´H\86·J\89±K\86¼R\8c­S\8b®S\89¶S\85¯X\82ªN\87¯L\8b°Q\86¤G\8c\9eE\84§O\90 O\8aªA|¥Ey\9cK\7f\9eNz\9fJx\9dO}\9aX\87\93_\90\94T\93¡O\8c\9fW\8a\9cQ~¡K\87­Q~§[|¬Uw\9f_zªZ\80§_\88\9a_\87\98`\85\96_\88\96]\85\92Z\8b\91V\84\8bJ~\87N\16I@\19GB'IC4II4P>0NG7LB6IA;V?<PFCJC@H87EA4N>8L@9EDJE@>E=C@JUHFRJOHOQLGVYGOUCUZ?RkAHeMKlQO`SIaaLfeKh_StfR}_[{[KvZL\7f\Q|_Iw^K\83TF\80YH\80aH\87hM\8ekN\92wL\95{N\9d\80?\89\908\8f\97?\8e\87<\94\8d3\88\89>\8b\89B\91\8e8\97\84>\9a\8d:\99\848\99{;£\84F r<¥nG¯{A¯vC¨u>£\82<ª\82?¤\837¥y8¦\820³\880­\7f*¥\8b0¦\8a-°\8e:®\875±\96B½\9b6�¦0À±<¿\9c;½\95-³\984·\91F®\95C´\8a=¼\9dM»\92E²\95A¼\94@¬\92@³\94I» :º @¶\9a1¼¡:È 3Ì«>¾¨:æF¶©F®;¼§HÀ²QƦM¾¬Y¼­XÅ\9fYº R¦¥I­¨K®¨Y®¤O¼©T²ªT¾¬O´§N¬\9dH·¤R»§MÉ\96WË\92HÅ\9bJ�\98?Î\9f?΢C�¤I�°7Â¥EɯBÌ¡CɦB¢G¶©Nµ\9dW®¬^¤\96R®\95J¯\9aL«\9aM\9e\9dW¦«J «Q\99«N\9a«K \9eN¦¤W©¦R¤¨O§ T\9cªH\9d\9bJ¢¢H§ªY\99­W\94¹J\8d´R\96³S\94µP\8fÀ]\93ÀS\92ÂW¡¼V\94·Z\9e¾[\96ÄZ\8b¾Q\87º\\8e·T\86¾B\8fÂS\94¹[\91�O\84ÆQ\81ÉV\93ÄK\8fÊK\85ÎH\8bÇNuËV|ËH\84ÑJ\80Ò\\8cÚV}ÒVrÒYrÉRlÊUsÑXpØSd�CiËLr¿Dh¿;eºBuÀNn�<v¹Ai¿Ir�Ig�HZÂFZÄBd»:[»;eÀ:k°@i¶8c¶>w´5q¸BhÂBkµ=r³Ku¸M\80»E\87´O~½L\82¸W\88«X\88ºU\8b½Y\8b¶O~ºF\86°I\8f¬;\8b­J}±I\88°B\85¡D~\9fH\82\9fK\83\9fL|\9aNw\92F\80\92T\83\96U\88\9eW\92\97T\8f«Y\8a¥Ux£L\7f«[~«^s¢X} dw\99a\81¦Xw¥a\81¥X\8d\9a_\84\98_\8f\8cc\8e\94S\80\88S}\8fW\1a[?\eRI PA+IF5LF>T<>XE?ODDOC:VCAVG9K@7MCAC<BN<CIFAOIHKDI@;XC@\JLPER^MSZCP^<HY>I]FBlKDkUIcbJl^GihGy`G|^S{`R~fSveXyVKu^N\80XJ\84VJxUCz^C\85gA\87o@\83xE\8cxE\92\81B\86\90:\82\8e5\8c\90?\86\877\87\8a6\88~5\92\7f5\93\89@\97\86;\9f\8f@¬\85J©\83F°}K©vM«yG¯}@®\80?«\80@¤\7fB®|:«\85>¦\8a8 \80:©\853£\84*®\911¨\8f/§\89<·\8e5¸\9a0º£-º¥0¾\9c6´\9e9¹\9d=­\95F®\8fP·\94J´\8eR¸\95H·\9cH¿\94D³\97:²\9a=³¤Aº\9c=º\99CŦ;Ì¢>È«:É£:¾¬> ?À£=È£BîMÀµS°[½¦W¸¡V¸ S«¦J±£T­­Pª¯W®\9fQ¸¦R¸¢UµªY·©LºªK¾\9dP»\9aUÇ\99LÆ\92FÆ\9bN�¡GÉ¡HÄ\9fI�ª9βBůFÄ¥FÈ¥A�®E²¬M·¦G­¢R¯¡V²\9dP®\98X¬\9fS¬¨P¢©K¢¯E\9c¨K\9a¯M¥¨Y¯\9cU¨\9bW¨¡W¢\99O£\95S¢¢T¦²P\9c²O\92»J\92³R\92µY\94µ\\8eÄS\93ÂV\9cÉQ\9cÀS\9d·T\97·Y\95·O\96ÄV\8aÉJ\85¿O{¿R\81ÇP\8cÊ[\8eÃX\80¸`\80»`\89Å\\87Ã[\89ÅS\8eËL\8bÉG\82ÖQxßZ\7fÙS|âL\7fÙVwØXu�[{�Vr�Ut�^eÒUdÇGcÅGeºIc¸@a¿Jo¸Ip³Jj»Fh·<fÂ?dËG\ÄAaÇDc¸;^²;j¸@e´5c±4g¾3l»1gÅ:h½?m¸7z¹@\83®@\80±N\8a½P\85¹J\8c¶S\8b°T\88µW\8d¼W\82ÀN\85¶O\81³G\89¸@\88¸D\84¬B\8c¨M\83§N\80\9aH\88\99M~\94H\82\8eB\82\90D\86\96D\82\9fF\8e\9fH\8a¤R\8f©S\85®K\81£T}£W\81©V|¢Rs£]r\98ev\98[u¤Y~ a\82¢[\85\96[\8c\88X\90\8b_\94\83b\89\8bS\1fIG\ePJ'BA0BL4JA<NJ9KCEHMCHF;JB9RB;G>9OEFD<AELDOGIGJEG:UL>U>DNJGTAL[:OW;IWGA\FCiM<iI=dX>i_Jc`=d`OghFijLufI\81aEu\FnQ9rW9\82SD\80aI~SB\86WF\86^I~b<\80u7\81wF\88\88H\83\8c8\83\82:\85\893\8fx;\82};\85{/\8b\7f;\8e~9 \7fF\96\81H\9f\80D¦\8bL§\87J´vJ©\83?­\84Cª|=±\7f6¯\848²\87E°\86<ª\8c3²\8a8«\87>¦\8d0±\92@¨\92Cª\8cB«\968«\9b.¼\99)¹¦-­¡7© B± I¨\97F²\91Q±\9aI¯\9cE±\8dJÀ\94KÀ¡D½\97=º\9dA»\9d7½\939´©C¿®8¢>È©@«@´¤I¾¨?Ĥ=Ä©L¼¤Ié]ɪ^­N·§P¶¦G®¥H°«P¶¢O¯ M±\95I¸\9cZ¸ U¹ Nµ¢Nº\9bT²\97ZÃ\8eNÈ\9cRÅ\9fHÇ¢VÇ¡VÄ¢NʤC�£@�¢:Å«D�®D̨7µ­J°¬M³¦Sµ¤Sµ©Q¬¬B¦«N«¥C¦©I\9f\9fA\9c¤F\9a¦M\9c¢K©¢T\9f¥Z°\9fU¤¤_\9d¨]¢¢R\9f¨[¨ª\¥¹[\9c»W\9b´P\97·N\97½S\9bÀY\98´`\93½[\96ËQ\9fÀ[\98´\\8fÀN\8b¸X\8a¹]\8a´Y\81�\\82ÒT\8d�S\92º_\82ÀV\8a¹_\81»U}ÄR\8bÓX\8cÑO\7fÜW\86ÛI\82ÜR~ÎW{Û^wß[tÔ[\7fÔZwØ\lÕOkÜU]ÌUeÒRa¿@]ÄKj·Gr²Ck»Jg¼;iÄ9e»HcÈ>^ÅKd´;e²@^¸9eÀ3k¹=o¼6d³Cr³1q°2uÂ5bÅEvÂGp�C\80¾Oy±O\85´I\83¸F\82³L\88·S\86ªP\8bºV\8c­J~µH\87¶K\8cµC\81±G\89¯7\81§?\84\9eH\8d\99G\8a¢=\85\91H\90\95E~\9eK\87\97B\83¨?\8e¥O\93ªQ\8f³P\86§Hz¢W\80ªR\8a\9dU~¨\\80«a{\9eet [\80£b\82\99c\85\9a]y\93Y\87\8c^\8e\95^\86\96R\90\94T\1cG>&L>2M?0?I/KM3JN3KJ<GL>>H9DL4BE5NI<HB?JHAMAPMETQKGN@VK<VD>XKN\CLaFP]:H`<AlMEtM?kKAr_Dla>jdI^[IZgAgdAf_>tfBug=l\8~X8\7f\3v^>wZDy\J\81^F\7f_8\8ae:\81wJ\85\80H\8e}F\8e~A\87n<\88o;\85\7f:\8c\82.\9c\80/\9aq5\96s>\9buI¯zJ²\89G°\838´\7f7¸\81@±\86>¹}A±x4ª\87C®\8aGµ\85>³\88?¥\81D£\81?°\7f;¬\89?£\8fA¡\87>©\95@¥\936±\980¹\99$»\979®¡=¯£B±\98K±\9eH¬¡F¨¢G®\95R°\99DÀ£<¼\973²\924º\9dC³\99F¿¢C�­>ɯ;ĬB¸¤;»¨CŪF�¬BÉ¡D�¡MƧY�\9c[½¦Lµ§F»©B²\9dK¸\9aL¸¤N·¨I´\9cR¹¡W²¡Y²§O�\9bK´\92Nµ\92U´\97FÄ\92GÌ\96IÈ£S̪UË\9fL�¥GÒ¡9Ø­4Ò©6È¢CÅ >¾®>¹¬E´£Q»¡M½«H­­B£®<¡ D\9e¡J¬¡F¤\9fL\99©U\9b¥]\9e¥U¬¬Y¨§_¨¨X¢¦`¡§^­¡T¨¤Z\9e³]\98²T\98·O\96½Q\8c¿T\9c�R\9bµX\9eÀ[\90ÅV\96¶R\98µT\91ÀU\8d¹V\90¼Z\8bº_\8c½^\94�[\89�b\8eÀZ\90Âb\83½`\7fÉ]xÌZ\87Ö[\84×P\85ÛSyÜNrÕ[{�Y\82�]{ÕWwÓ]\7fÖQ|ÒQuÞLtÜNcÕL`ÉEbÉBkÃBn�Hf½Bm¸?r·Fl»<b»HhÄKhÄ@i²D_¯Df²9o´7gº3p²@h±Ag²Eu³At³Ak�;tÅClºDn¹@y²M\83±U{­M\88²P\84³T\8f³I\8c¨F\87«F|§I\85\9fS\80¤P\8c£M\8e¯:\94¤>\88\997~\98.\84\9a6\83¡9\8f\9aI\90¥N\82£D\8f£Q\8f¦N\8aªG\84®F| Mz\9dT\86£[\89\9bb\85¥e\85¥b\81\9ab\81\98aw¡\|\9c_\81\8e]~\8fd\85\98^\8b\97U\85¡V\8b\9f\*N=&U>(L91?J1II2BP:AD4CF@CQAAQ<DO<DIDOSHQECJRUIKLR@QI@YK9X9<WE;ZBLd;HW8@`AKiD<fGDfVCsO:q^?j]Fa[KhY8oU7iWCehHhk@tdCt^8~T7|\6iVFp\Bx]I|\J\7fg>\80hA\84zJ\8b~?\89t;\8dw2\81l>\8fl.\83{0\96u9\99h>\99o3£oB¥\84I¯\7f?¯y6¾z?­\861±\87A«\80;¨z=¥~6³\83<¤\93:©\909¤\89?£\86D¨\8e5¯\867«\87;¦\86?¥\966£\9d3¬\91/ª\9f\1f­\947´©?¶\99>·\99Jº\9e=®\9e@³¤K´ T²\98H»\97>±\9f?¾\9c@½\8e9µ\99E»\99J¸®Fµ\9eL»¬H¿\9e@¼¬CÆ\9bAÒ¦RÄ£OàSÄ NÈ¢Z¼¦U·­Hº\9cNº\9aN½¦S¢U¼\9bV°\9aM¿\9bXµ«J·¢FÇ¡O»\97H¼\98K»\99IÇ\9e@ȧ?�¨MÃ\9bTÂ\9dMÆ\9eMË\98;ɨ>Ë¡C�©BÒ©7ǧHÀªK�®H¹§L¸ H®£F´¡C«ªJ§\9f=¯\9b?¢©P\98±N¢­[\9c°R\9d©R±«_¬£^¢®[¥«c§ªS§±_¥¯T¨¼Q¢¯K\95¾X\93¾W\99³M\92±U\8aºO\97Ê[\92¸Y\93´W\92»P\96ºM\8cÆa\89Èc\8d�W\91ÄN\90ÀP\85ÌT}ÂV\86¾V{�U\81ËU\83ÉP\8a�S\84ÖX\82ÑVuË\\7fÒS\7fÑbt�a{Ô`|�W}ÞOuãIcáM_ÒXXÇLcÅAjÉKqÇTnÀBmÃ?nÀBeÀA]´C_ºNlÂ=jºDa³Aj±De¶AbÉ7nÃ7d¾@tºDp°PsÂBq¹KrÃD}º;\80±Nv­Iz­M\85¶N\87ºU\85·R\85©C\82\9c>y¡Ly¢M~£G\87\9eJ\8b­E\89±<\97«6\8e >\8f\9b@\7f\996\83\9f:\93\94B\82\9eH{©E\7f³I\92³I\88®C\86­C\84¨N\7f¢\\81\9cU\8d\9ad\8a¨[\93¥X\80©\\83£]~\98Z\80¨_u\96X{\90Z{\97P\91\94U\92¦M\95\9eX%I3-M4,O6'IH$GS-DL+HL5?H5CE8MI@KGDJQLBNBJNLSRMLJRA?T?9W43Z:<c::c=Ca=?ZD?\H6aI=`W>oY=oV=rZ3m`8dW;l\7gS>`Q8c`=nk9sf<l]1pZ1j]4kaAogBzbGt\F|aN\88sK\8dtC\89x7\81p1|n5\83k2\83k/\8ah=\89i5\8dm8\97x?\9aw:£x9¬|A®uD¸{<²y?¹\866¹\85:§\888¡\8b4ª\8cA¤\8b<¡\8f5«\8f/¦\8d:±\897­\862²\907©\919©\8f9¤\962«\9d5«\96*¼¤'»¡/»¤7¹§E¹¨A²\9c?³\9aL²\9dN­\99K°\97B�\9e?�\9b?Å\9a>¾\94C»£Hµ U°\9eR¼\9bOÇ\99JÆ¡D�\93NÇ\92T�\9cUÊ\97Z¼§P½©KƲN�®J¸§X¶¢X½ ^¿ YÄ\98O½ J¹ªD»£L´\97C¾\95G´\8aE¶\8fN¶ H¹¢B¶­F¹¦D½¤IÀ¤PÆ\9fPÉ KÀ¡?�¢CÎ¥=�¨=Ó¥KÌ¥GƱD¾¬N� S»\9eO®\9aK©¤>¡ªG¨ C§°A\9f±L¥©R¥©T£°\­§[¦´Zª¶b¥±g¦´c¤¹^¨®U\9e¼Q¢¸W ·Y¤ºQ¤�O\93»Q\99¶V\8eÀQ\99�Y\99�[\9b¾V\9e¾R\99¿R\90É\\90¾[\8eÂM\8cÌI\8aÆQ~�Y}ÈZ\82ÅX|�_\7fÚZ\81×U{ÛX}�S\82Î]uÌVo×WrÑf\7fÌf{×a|ÕXuÜQbÚ[`ÔW[Ê[^ÂNaÇOiÆNq�MqÈJb¼LcºGa¿@aºCf¾CiÃ8l¼7_¼=dÅ9nÇ;v�DqÄHmÉSw¾QuÈOtÂK}�H}·B~¹K|²J|¹F\81³L{´R~³H~¡M\80 E\84\99H\7f¢F\84¤E\82§N\8e¢D\91«D\98©C\95¤A\87¡2\85\9b4\81\9e8\87\9fA\8c§?\85¬L\8c§M\86³F\86®=\80§B|\9dE\86\9dT~\9d\\84\9b[\88\97Z\90£V\88¢O\8dªU\82¡P\80¤N}\9dZy\95Z\8b\9c]\8b\9dP\8b\98Z\8d¢S"<3&I<\1c@8\1d>I\1fKE*C;)HD2A=.F>1::@G>8=I<ARKISE@FIDIQ??JF:ZC<]<4W6=WJ<fJA[F>cDCcG=]U=aV7q^2kd4d^6gL?dTC_ODc]@`hAh[<j^=ob3mR7uY:qT;tc6o\8\7f_E\80h?\80nH\8ff?\8fm9\80o>\84m?\8bx<\89r9\8fkB\8ea1\92c.\9ax-¤r;£m5ªt9·u>º|8¿\895¿\87A¹~8®\89=¯\8b4§\95;\9f\8a9«\853£\939«\8a6\9f\888 \97/ª\89>´\96:°\8f0\9c\8a;¥\9b,ª\8e%«\9a&½¡.»¦0»¡;¸\97:´\96F¸\97:µ\9dF´\99?µ§B½\99HÀ\90F¾\9c@¯\97>¿§Cµ§S¼\9aH�\98M»¦UÂ\9bTÀ\9fNÄ\99PÄ\9cOÇ\99Z�¥S¹¦V»¦N�§D¹ S±\9eK¾ª[Ä­S½©VǤR�¡S�ªP¼ J¿\9cO·\93Oµ\97R¸\97Cµ\98O¼¤Oµ©G¾­@Ç¢N¼ªJÀ\95EΣKȤ=�¢IÊ\9f9Ò¬BÃ\9eCɱ<¿±CëPº¥R°¯C¸±8®¤=°£E¯§F±±Q\9d®K«°L¬µVµ°e®¬d\9eµV¥­Y¨ÀZ£¸_\9b½Yªµa¤�g ºY£ÅJ\9a¿W\94ÄY\8cºQ\8eÅV\94¸[\97½V\95Ê]\99¼S\8d�U\88Ç[\8dÌa\8d�W\88É]\8aÓT\85�^~ÓW\81Õ`\89Ä]\86Ì]\85�[\85Ód\85ÇTtÔasÎZrÉXrÕotÖdzÒ^rÞirÙafÑ]iÓO_�N\¿UaÈRe�FiÆFj�KeÄBrÃF]³K^¿Q^·>`»;gÅ@cÂAgÂ>iÂIfÂCwÀDzµQ\80µRw¿L|¼M\83½H\7f·Ez´I|´Px®N\89²G\81µAx·J\7f³@\80ªK\86ªE|§?\83§<\80¦N\84©N\89³C\8c§H\91¥=\95£;\8b\9d,\91¤3\8e¨?\86¥I\85¥O\8a³F\88´@\81¨Ku¯G\83¨B\7f\99P~\9eU\81¥^\87¦U\8b¬Y\94«Y\93¥X\8b±Oz«Yu\9ca\84\9db\87¥W\81\9dF\81\9eX\82®V\103/\1d:9\1f<9\1c@D+<>.@8)E@.:C+=8-3<-=:77B=EOJCLNJHJ?IL@JNGLI9IO5;UE6RF>YK@eLAdO5^N7gU<dZ1cW0d];]_:dR7l]@hXAde<ac:k\4k]0rP7lO8mQ8tV=pX2s^5\85_;\88h8\93e:\91h7\8dsA\8ewC\8br<\84v4\8aq0\90g=\91g8\94e+\96g/¡w6¤x>³j8¸pA®\829¹z;¼\7f=·\85A°\885¨\8a3\9f\8e6\9f\94:§\89?\9e\91@¢\934¦\926¡\97:§ >¯\97=«\94A¤\8b4§\96*¡\92.\9f\95'­\980³¡4²\98?¶\9a:«\96?® C³\9d?·\9bL»¨K²\9dK¶\93B¶\9fI¬¦J®\9cE¾¢Lº\9fI¿¢Rº§Zº\9fU¿ O¸\9fY´\9eT¿ SÆ\9f[�\9aU¹\9cQ¿¨IÅ­O¼©JÄ°Y¾­\º¬VƦP»¯F½ªLÆ\9eIÆ\95EÄ\94?´\9cG¬\9cH²\98Jµ¤O¶¨HÆ¥Kŧ?¼\9cBÃ\9bDÊ @Ѥ<Õ¨:È¡EÈ«?Ǧ9ñDɪ=Æ¥C¾°L¼±F³@¶¨9·®=»«Q±¬U¥®W ±R«¯d¯°e©«e\9b°V\9d½`£ºb¡¶^\9d½W¢¶_ª¸g\9aÃd\91ÅO\96�J\8dÆU\8bÃY\8d½N\92ÆX\97ÄY\8aÆR\8aÈ\\91�_\91Êa\89Æf\8aÎb\8cÊW\81Ò[\86ÒZ\82ÖX\82�W\89È[\8cÆe\86Õb\86�^\80�d|�g|ÎZvÒ_rÙfvÎmvÒgqÕ`mÜioÜ_s�RtÌWg�[hÆWpÆOmÎPfÓJmÄNo¼G_³R]¹Q`ºH\½K_ÄE`ÅBc¹F_·Jk»Lp¼E|½D|¶L{°H~²D\7f©G\85°?{¯F{¬N}¤K\82­:~³A}±?v«D}®A\86®=\89¦=\90§@\89 C\91£M\92ªI\8d¨H\97\9a5\8b¦7\90¥-\99«;\90¡@\95¦:\94ªB\84£?\84«Hy³Jz¬;{©<x¦I\82¨O\80ªd\80¤U\8c¨Q\94¦R\92¨W\87®a}ª`\84¥a\80\9fct\9fUx¨J\81¡V}ªS\18;4#41%<>\1e:D 0C1351.D.=@24>+0:46G66DA9B>BHMBKD4RT:KJEFVF;I:FZG;ZJ0cB8jP2mP4mH8kQ8kV5b_;iaBaU8lQ/^W@_Z<\VGbd;`c/a\/dW5mV6iW;lV>v]9t]3ua<\8c_:\8cc4\8en;\8en>\91fJ\87i;\85{8\91q?\89k4\92h1\91^&¢k,¡i0«q3®e>¸l9·w7¹\86>±|@²\8b2¬\8f;§\960¢\962\9c\8c3°\8a@©\939\9b\95/¤\97A¢\87?®\8fA¤\998¥\8b7ª\8c5¦\8e1\9e\8f'\9f\8d+«\96,©\973­\99;\9c\984\9c\98@¬\96:©©<¶\99M»¡V­\97E¸¡V¯\99U©¡G·\9eP³\9c[¶¢Rµ\90U¶\94\µ\99S°\9e\¿\91Z¶\9dTâ`º\93WÉ\95Y¼ X»®JéUñUĦQ»¯LÆ©ZãXÅ¥Tº¦Q·\97EÆ\9cJº\99E¿\99Tµ\9dJ¯\99N±\98I·¡BĨ<¼\9eEÊ\99@É\9e@È\9e@Õ\9d?Ì¢FÕ¢D�ªA̵:Ô°=̶7�®F¼·;˲BÇ»EÀ°J¯¶?±¨G·¸Mµ´Q²¹P¥³[\9f»_\9eÀ]\99¼b\98¿^\9a½[¢¹`\98ÅU\98·a ½b¢»Z\98È[\9bÇY\8a½W\93»L\85ÂJ\8bË[\8fÆU\90ÌT\94Éb\94È]\93Ã`\85Ño\84Ì_\87�h\8a�X\81Ù_\85Ö\\90×\\8aÊ[\85Ú_~Ód\81ÚauÕjuÒbr�fpÚ[oäjnà j}Ò`nÛqfÚet�htÕ_kÉ\lÉ[m�S`¿^eÉZbÕLiÅYk»P_�NZÅWeÄQ\ÊNg¿FZÉGcÉFdÃDc¹MzºNz¶@z¿I\86¼D\8bº<\83¬7\91·>\8eªC\82¬M{¹L\84ªD\80¶Au®9\83«4|±A\84¤>\83¤3\8e\9e6\82¢B\8a\9bA\99\9cD\8f¥;\99¢;\8d\9d2\97­-\9a¤-\94£:\93ª9\94µ>\8d®H\93¬;\82¦G\85¡<s®I{§Ou¬N~«d\86§P\7f£R\83¤X\88®N\8b²Xw­c\82¦]}¬f|¤Vq­Uw¬J\84©Q\197"#2%\1d05".7 ,7():)0<)0B*,B6,G2-K;7=56>>@>E;?N9MP8RR7EW7FTD?ZC;g@2e;4gG4bH0kF4bK)aT-jN3iV:lT=gU8]S6]_D]T@_X=b`;[W7\Q1lU+t`.oY2kU7uX0\80X>\85_:~j6\81g8\84bF\88dD\85hH\89n>\87p=\90p:\8eq/\98g,¥i*£].¬h-°h2³s*ºs2½\81=´\80>±\897«\93;©\987¡\92:®\88;ª\8dA¯\887¢\8d;£\81D«\83<\9e\8eA¢\8e?ª\92F©\92@¤\96:\9d\98.\9d\9b*\97\942\9c\9a,\97\95-\92\9a2\98¡7\9b\9c?©£@¥¢K¬\97S±\9bR²\9dX­¡Z®\99T¸\9cU´\9bX´\96X­\8e]¬\88_±\8eW±\94Q·\91Q¾\9d_�\97]¾\9eUÅ\9d\˦ZȦXÄ«YÆ©UʨI�¦L¼\9cPÃ\9dT½\96SÂ\9fPµ\9dGµ\9cM´\9eM½\9aQ¶\9dY¹\96R·£D¢?Ç\99:½\9b<½¢<Å©EÅ©PÉ¡MÉ£GÒ©KرDÙµ<Ö±6�»:ÆÅ<ÊÀ7ȶ7ʲE¿¸H·°C·ºH¹·M¿�P³¹X©º_\9dÃ_\96�j\9a�d\9a�]\98Éa\96ÆW\92Ã\\9b¹h ¼c¢»n �h\9aÇd\93ÀZ\8e¾U\8a�U\81ÓY\87Ë[\8a�_\8dÎ^\85Êb\8eÆh\8eÎq\82Óm\7fÔn\87Ò`\88Êa\8c�j\8eËc\86Ö`|Ó`yÛmyÜuz�l}ÖbqÚ`m×]kÞiqÛorÙgk�llÖmlÚbhÎcrÈekÇ_bÄ\`Çej�^jË^i¿`lÄVhÇReÈWnÄSlÉYpÀQe�RhÇOeÆIpÀArÂJt¹;\82»9\81¸4\89µ:\83³1\8b»9\85¹;\8aµ@\8a®K\87³E\8b¯@~µ9\7f´0\8c¨/\92\9e:\89\9f5\8e\92>\88\95>\8e\90>\93\9b=\96¡3\93¢0\96£4\95­2\97­2\97­/\96ª0\97°A\93³F\90¥>\8c¬K\81¡It§Ox­N{©V\82¦Z|¬O\80¯R\8b³L\8c¬U\84¨]~°b\89­\\83¯[\82¬Uz´W|¶Q|ªJ\19>.$4)*1:#.<032/(<3/9+4J7.E,/@8.C1?@24:9<HN7GJ<LHANP@@X@CSF>cC.gL.^P8eB1_K5lP4eQ4hb9]_+aa7eX;qWDrN@d_4dS?]R3]`1VR/fZ.l`$fT+p_,uZ'xW/xX9\85e>}_:\82r5\82hD\80cC\83u;\81m9\85m7\99s>\99t=\95p.\9fq2®_+³i1¯n6®q6¼v:ºs7§}E°\8b=²\7fJ­\889\9d\879 \84@¨\87<£\8f8¤\91F\9f\85G®\88I\9c\84H£\86:©\8f5¬\978¢\920£\986\92\9c(\9c\8f/\9d\99(\8f\925¤\969 ¨?¦\9d4\9b¦@ \9fD\9f\9aV©¡U¶\9bS«\9bW«\96Qµ¤M¸¢`²\97Y´\92Y¶\96P¬\90Z¸\8fT·\9cO³ SÃ\98[¹\97aÇ\9aVÅ©^¾£XÅ«]ºµ\À©R¹°MÄ¡NÅ¡OÀ\98Y²£P¹«WÀ¡V¹\9dT½£_¿©Rµ\9fN¶¢C¼\9a=Ä©8¶\9b=Â¥=À­Mɤ@˦?ɯHÖ­DÕ®?�»:Ǻ?Ì»?ÿBαDòO�´LÆ°Q¼¨J´¶H°·P³·\²»[¡¿Y¦Çb\9dÄ`\92Éc\9eË]\9aÒ\\93�T\9aÅc¢»f¡¶]\94¼d\9e�j\94¶Z\8c»T\90ÂV\8b¿\\89ÎP\91Æb\8aÅ\\8fÊ_\97Éf\9cÂk\88Är\82Äk\81Ó_\86Ìa\85Êf\97Ôc\88�e\8bÞZ\87Óm\82Úo\86Òj\85Òk\81Ó`v×arÔ`e×dnÞoqÞmhÕimÜhmÊhmÚ_iÖioÖc`ÉibÇZ]¿gbÎfc¿ahÃVeÉZ_½\mÊ`nÉ_e¾Lm¸Nk¸Up»FmÃBoÄE|³:w³F~¹9~±?\81²7\90¯>\84»F\90²C\84²7\7f´Bz´4\84¬7\87¨/\83­3\84®)\83\9d4\8f .\85\9b7\87¤;\91 F\94¦<\95©8\98¦4\8d¶<\9b°4\94©,\8f§=\9c¶7\8a­G\8c«D\8c A\8d\9cEx°O|®Hr°P} \\81®Y\7f«W\87²Y\89¯\\7f·U\7f©a\80·X}ºT{µ_w´[\84µH\82±I\1f7+&52\1f+4(-:-57*-0$&>.)B53?.399.D65F/9J92FK0DQ1LP5NKE>SHBXM:WE7[M0cD-hK2lH(bN+dX9]`7bb:f\2oR;rK>mL=qS/gR-e\8`R1`X*]b&h])o\(t[.uU6wZ.{c8z^4x_@\83k:\88s<\83r;\80j6\8al@\89gG\91m@\91h;\9ds2\9fm/ªr0¶{2°w@·u?°s3§u?©zK¦\84B±|H®\82:\9e\884\9f\884¢\856©\8c4\9e\90@\9c\93M\9f\92Iª\86H¦\86=§\8d> \98;¢\94>¢\954\94\99+\93\99+\90\8c6\96\8d4§ <©¡8¢¤F\9e¡B\9f«J\9f§G¢\9bSµ\93N³\95J¬\9aKµ§^»©`³«]¯\9c`± N³\94Lº\99Vµ Uº¥`À¡Y�\9f_·\99W°¡Y¹©T�±P·°XÀ·S¸¯DÀ£G·£M¶\9dO°¡W¿£]¿¯W¶ªQ¹¨[¹¤Y¹¯M²¦L¼\9cD¹¤@¶¬CÄ°MÅ®IÒ¢C�¤<ƯE�¯?Õ´:ѳ=®=�´E�¹MÒ­JĵUïT¼­Q»«T±®S·¬Z¸³O³´S­³V£¼Y\9fÀN\96ÈQ\9bÔR¤�R\9bÎ[ Ê[¡�] ½g\9d¶j\8cº`\87½d\87¼\\8e�Z\89½Z\85ÅR\8eÒW\9aÂ_\9bÃi\91Æk\98Äe\94Àh\93Æj\95ÎW\8aÆR\89ÑR\95Ö`\9b×[\94×_\8cØb\93Òp\89ßc\89�cxÕZuÜbzÖ`mÑii�nm×cuÑbpÑpw×gsÕ^o�koÓip�jfÂ^eÉ]gÅan�cnÇYdÀ\\ÀbYÈbgÅTh¹Vx¾T}·Pu¼PlÀAj·Ch�BuºBt¶Ezº@\84»C\83²D\85¨C\8a¯E}²:~¸3}²1\82¬=\82©6\8a±,\83µ4\83¨-\84§5\8c\998\8d\9aG\80¤L\87\9f=\88\9f>\93¡B\91´5\98«4\8f¦5\98¨<\97±<\95¹G\8c´B\86«=\8c¨E\80§Kt²El°EsªPt³I{´K\84®M~±[y±Y\81²So¶[n¸\sÀWv¶T\83ÀQ\86¸J%,8%;*\1c73)71$7-!6+*5=/*F38@27J4:H2:@78J7><F;FL3IE7>VI7TG4UI5QF<VK0\I9bU9aO9dX3l^3eX>l^5gQ*kL9hC9uC7iE9bL/kR4gM/tU4pY+kY'mY,if2ya,nY/q[7ka@oh8}`9yiByk?\8bkB\8caF\95pI\96pK\8d{;\9e|2¦x;©i3ªyD²w@§q<­~F¤|Gµ\81J­\83H­\7f@´\897\9b\8a9£\8c6 \888¢\83;¥\97L\9d\8f>­\93J®\88=¨\86?¬\86>§\9a5\9b\92/\98\90>\99\94:\95 +\9e\92-¡\8e:\9b\9b5©\99B\9cªI\95\9fD¡\9aE¥\98D³\94B²\9dLµ\9cT­\99Y½¢[¸¯Y±¦`ª\96S·\9a[²\9fH²\9dRº\9aQº\9aOÅ\9aO¿¦Jº¨L®£Q½±P·°Uµ­P°³M¹±Q·«M·´M¬±T°®Y°¤P³µTÀ³U³´`±±\¹²I¼¯N¹¨F°ªE·¢Qµ³JÇ®C̬C̦6�¸:ζ<�¸FÒ®?ʱ=Æ©H�­NÔ¸DÒ´JÂ¥O¹¨Z¹¦V¼­\´¤`¹²_¶®W®±K\9dÂM¨�K\9eÈQ\9f�]\99ËQ\9aÂa\94Æ^\9bÊZ\99¾a\94¹]\8d¼W\8a³`\8c�S\84¾X\91ºU\91Èd\92È\\93Ì[\92�i\99½g\9bÃd¥�a\95¾k\96ËX\97ÈT\98É_\95�^\92Òc\99Úk\99Öj\97�p\8d�h\87Û`\87Ú\nØckÓeqØ]m×^gÎ^wÖjtÄ`uËcz�lzÒer�noÇ^s�]iËboÑ^eÄZhÊScÊ]YÃZ^Â\aÆNgÅVvÎMqÅTq¶Aq´Nj±Mi¹Ln·DxÀ>z¶C|º@z·?u³=\80±D|®9q«5~¨?zµ7\88²2\8b§5\80«3\7f¥7\89¡,\8d\9d@\87©;\85¨D\80\9e@\89\9e@\84§:\92²6\97«8\93´9\89¨2\96°:\83®F\8b¥@\82«M\83§F\82±Bs¹GnªPk®Us¯W~¸Lt±U}°[\7f©N\83´Jw³Mvµ^r¸b}¸Zx¶K\81´J\1d,2\1f1/\e62\1a7-\19=)\1e53#1;-4C57K90I1:M4:F8;B?=;J3:D4;G10S=2P:3ND4U=-\E2dU7eY>aUFkW<mT6iY9eY3kN3pG9nIBsN5fB7mA6jO0jW9vU3q\5v`,t`,oh:wd?qh=sk?ieFegCqf=oaB{_F\80bD\8cg;\93l<\91qG\98|I\95xA\9eoJ mAªiF°s=¥|D¦|JªzR±|H³zCµ\84D°\80=©}:¦|C¡\84E¤\8fH¦\91O®\8eIª\87<¢\8aC«\919³\921«\8d2\9e\8d6\9e\9c=§\9d5£\964¡\8b:¥\905­\9eE£\9fF¤\9fL\98©W\9c§T¤\9aO¦\95P²\98C«\9aT¯\9eUµ\9aU»¥]³\9fS³\9eW¬¡P¯ªL±«E¶\9aD�¡EÄ\9dJ½¨Fµ¯K´·N³¯V°§Y²°Mº¯H¸³PµÀV¹½M²¹O­³\¶©S±¯Y¬²`¶³^¶«Y°¨S¨«^®«X¸¡\±¦Pº¬S·­Gų>Ǹ9ƽD˺?Ô¬DÑ©GÌ­GǬGóA�²HȲKĪPÇ®Oé^Ç©c¼¦_ª·[§·N¨ÂJ¤ÀM\9e»K¥ÅX¡¿_\9fÃV\9eÌZ\99Ì`\9a�[\99ÅW\9a»L\97�O\91ÂJ\89µU\8e¯[\8cº\\94¿c\93Êb\8bÉc\94Ã`\95Ãa£Ên\9fÊk¤½e\9b¾b\9aÅY\9e�[¡Õ^¡åg\9cãn\97âc\98Úg\8f�o\88Üg\84ßXx�YyØdrÒ_hÉZnÑZsÎasÆ_nÄftÅhpÆdrÒimÔgpÑgrÌfu�_mÑYf�Rb×TdÌYoÆQiÎOuÓQwÎJwÇLt»BlÀKb¹Gcº@e¼FpºCo¾Iw¸GsµHz¤<v¡;m®=p©Ay¥:x²8\84¥7\89©,\83\9d2\8c\9d2\90­5\8f®8\89°=\81«H\85®G\8b«P\8e£P\8c«H\87§D\8d±<\8f°>\87ª<\80«?\84¦L\82¦E\83·L\8a´O\83®Eq­Jo´Pw³Lw³U{±Vo£MpªQu­Kp³Zm³]{®Zy·Yv±O|µG\18',$-3\1977$;+$?<-8=*0:9>=64;:6C/6?93DA<8BA;FA2F.1C.7C22K?6BB8EE.UB:_T<bY5^]:cW>lV5rV6`H._O6_E<hF<hF7_A;mP._V5qX7r`5kY0oX8sj7}k6|iCrk=gbCdo=mnFwtH\85jD\81\H\8ecA\82^7\87g9\8dj@\9dn;\90\7f:\94n<§n=©k;°o@¦vF¥q;¸uH³yD¸sM°}H·yB´\80>®\87@¨~G¥\8bD \91S¨\92O²\85=­\82C¡\88>¨\89=\9f\93?\9f\99=\9a\925\9b\992\9a\93<¤\8e9 \8e;\9f\989¡ K\9f¨G\95\9fW¤\9bP\9c¡Q­\92B¹\8b<µ\93P¾¢K¶ªQ»\9fTÀ\9fY±ªL¯¢S­±J°\9eB± F±\9aK¸\99W² I¼\9eE¼ \¿±]·°T·«W¸¹W·µE¿¹J·¿]°µR¡´]«®W«¯\­·T·¯bº±Q±¦V´¯Y²¨\¬­O±ªR¶®L°¥=²µB¸¹>Ë¿IÉÄNÅ°EÖ®OĵSβO¿¸O¾µLãN·¦Xµ²^¶²^�°c½§Y·©Z²¼I§�K¥¶J¡ÅT§¾^¤Ã\\9e»\ Ä^\9eÇd£ÃV\91ºa\95ÅU\93Ê]\93»[\83µP\85¼V\86º\\8eÅ[\95Â[\96Â`\98Ê^¡Ël¤Àj\9b�i£Æo¥Äe¤ÉZ§�e\9eÖn\97åg\97ëg\98Þm\93à g\93Òj\85×d\89Þ]\8aà [\84Ø^w�axÉbkÉZ|ÇXs�_o�g\83ÅhnÇboÊbsÕjmÛqjÚexÙ]wÉZlÓYsÖXoÊTgËTnÕYlÈF{ÕGt�ItÈCk¾>n³Gm°Kk°@u¯BkÂBk¼Ei´Nm¨Hl¡5y\9d2u®<u²:}´6\83¥7\84¥8\8dª<\88ªA\81¡?\85¬<y¡Hv§Bx°Kv¬Q\8e®H\8f»M\85«K{±9\82§C\91·7~«=\8c­J\86«I~®Iz¶Ou®E}³Kk­Ss­Vp¨Of¬Ju Jp§Ql Mi¬Rh¸`pªOv­\w´Rq±Q'-)\1a('\18+6\1f79#04-887>369;-C>/<@./?=3B@78DB7J:/P17N=3C76GF<BO8EP7KN3RG-WM7fV>fS4rU3lP8nG9bH8^M4c@AfD@eF3_X:e[4nf4l_;f\@o`4|c9~\9xdDpjIrqJkg:nrDzqG\82jO\8bhH\89aG\88c?\88p9\92p@\96o:\99{?\9ezA\9ck9¯i;±jE·nE²k7«i;´pK¸yR²tI®y>¯{Aª\83F¶\88@±\8cE§\93M«\97I¨\8fK¢\8a<§\83<\9d\89F\96\90@\96\92;\99\8d3¤\8d: \927 \915\95\8e=\8b\96<\92\99C\9f K\9e\9d^¨\9dQ¢ J®\96A¯\8fF¯\99I½¦N¼¦Pº©Sµ¥T¶¤L°§M³«Mµ­F±ªJº\9fF»\9bSº£N´\9eO¶©[¿£b·¢U¹²R¸´V±®K´¸T·µ\¨®]¦®a°ªV²«R©¦W¯±V»°Q·³X¾¶\¶ªW»¯O²§E°\9eH®£B·ªO¸²L½»LνK�¹EίJƱIĹUǵJ¸¬O·¥X³£W¯±T°®Q´£Sµ¤d©¹Y¬¼L¤¶F¡ºM\9aµW£¼V\9f¾Q »W§¾^¢Â]\97¾]\98½a\95½b\97ÃZ\8f¼R\8a»S\92»V\88�]\8a¿]\92À] Âe ¿l¦Ài\9dÅq\9bÅr\98Êg\9e¼a¡¼a\9eËl\9cØm\9cÜg âm\9cÚp\99Ùr\96Öv\89Ún\92Ûh\8aáY\84ÎZ\82ËXtÑbwÇa{ÊetÉ`zÎg\82Éo~ÔnnÑfkÌcwÔi{Þin×ikÑlxË^xØ_o×QhÜPrÑToÖLv�NuÈCjÅ@pÊHm½Lp²Eq¬=l®Fl¶Dk­=l±Ex£?r 5vª:w¢0{¬2\83©8\84«1\82\9d3\7f\9c;\81©?|¥Ez\9fLs¥J{©H}ª?r´Ex¿J\8c¼M~¸Mx¨B\85³:\89¹=\8d°=\82®:\80ª>|µJqªRn­Sv¨Xq¯Mq¬J`¢Jc¢Tj®Rh¦Vf¤Yq ak­[q¯SoªNs¯Hi¬S\1c"*#"3'.-\1c,<!72,6=*/?4=.>;7287?4HB=<KB9N6BR65V><O?6D;ACE?NRDNVACT4JI=OQ2f[<dZ=rY2rU8lS@eD0pJ>eN?mM2fE2sY<g]2eb=r`?ma;q[6{a7|YEuaC~dFydKgn>osOvvA\82kH\88rF\88p;\85_B\98_8\92d<\9ci=\9bpC qD\93s?©lF¬nF«v?³h6©r9±j@¯uL¼tP´uQ¼pE°t>¿\84H´\87L«\8eVª\90N«\8bDª\826°\8c; \897\95\91@\94\854\94\95/\9b\966\8f\93@\9b\8b<\9c\8a@\90\8aC¢\9dF\97¢M \97Z¬\9dS££H¦\97N¶\97E¯\9bRµ§CÀ§E²¢V¶¢E³¥E±±U¾³Kº¥L®´G¾\9fF³ W·«O°\9eJ¿¡W¹£d´¨e³¯X½¶Qª¬X¸¨Qµ·X²ªZ²¶V±­Q®µN®¸M©±Q³¯N¶¹N¬¶L³´T¸¨M­¤C¹°@µ§G¶£Q³²M¸°UÊ¿JË°YδZǬW¾»_ŸM»³M½«T²¤P´­O¨­J«³[³¡f´µ\§°V\9dÀI\98ºG\9e�T\97ÆN\97½[\9dÄ[\95ÊU Ë]¢ÃZ\98Èb\92Ç`¢Ì\\8fÂQ\8d¿`\8bµP\99¶b\96Â^\8f¾b\9b¹d\97¹`\9d½h¢¾q\9dËl\95Âf\9dÆZ¥Ég¦Ìj¨Õc\9d×n§Úi¡áf\94ßm\92Òn\87ãs\8aÞ_\8dãZ\87ÑQ\83�L\82Ô^\8eÈf\86�g\84�_\81�`\8bÂmyÉjvÔhyÓo~×`qÜnpØjxÛcx�W}Ô`pÑ]sÙWvÎRsËLyÈSs¼Hb¹Dc�Jdº@i±>w°6y·8k²8uªIr®Am D~¡5\7f¬0~²-|­2\85±=}°2{ª3~©B~­Hw\99@~\9fNy§Mv¡P|ªK{®Qx¿R\7f¶R\85®Ds®?}¸?\81�<x³Is²Fq®L\7f¾Ot¬Tw´Ls¯Hs¦Oa¢FX©Pfª][­W]µTh¯dd¨fh°^`²PgªXc£Oe³Q!-6#-4\1e,6#'7++9,852:1560>8>=D<C=8M>BW89Q3?H>DO;AHB<RJHQTHKTCOPCKP:OU>XV2ba0i\7i_<mX;tY4rK4kO1jK9fM0oQ8rZDr]>o`:m^5q`2qe;tZEwZD\80ZO~dMrrNrnOwtNvpH}kF\87nG\93iE\92f>\99dD\9de=\98i?\99sE\97r@\98kI«u=¬v@¨wG©v?¹kF·l?¹lC¼kG¹rEºlOµzR¾~J¿|J¯\82Q³\82K¦\82;®\8b<ª\866¨\857\9f\867\92\86>\8e\8e4\94\8b4\8f\87E\93\82J\98\8dL\9b\8eN¡\96P\9c¢K\9e\9fV¥\99L°\9dPº\9dU³\97M±\9fF³¤D¹\9aD¹ M¿¡G»¤KƯD�±L�µQ´­K¸®P¼­J²T»§Lµ°L¼¨]¯Y¹°c¾©d³°Y±³U°±W¶­U¬²W£²L©®R§¯O¬¶X¬¬L§²P¬®K´»P¶ºI²ªF©¬Q¯«O³§N¹¤SÀ®UÀ²Y¼­Wƶ]¿²eÀ²`º°SúSÅ·Z·±R±®Q°´O­©M²­Z¹°^®¬[\9d°N\9b¾K\93¾I\93�P\9eÊX\98ÈR\96�S\94ÃU\97¼X\96ÂY\91ÅV\9cÆR\93ÂV\93À]\9a¿V\99¹U\91¾a\96·^\99¶\\97Â]\95Àb¢Æg\9aÉf\97½X\9eÊ` È\¥ÃZ¤Ê]§�[¥à i¢Ö`\9cÖc\94à m\91à f\99à `\99Ö[\94ØM\92ÕO\8eËX\96Èc\8bÇg\86�i\86Ãm\88Êa\81Éa{�k\83Ñg}ÜfuÛhvÜauà g\7fØ]vÖ^t�XiÊOlÉRf½PqÀJd¼Of²Cj©Bj±En¸As¼=tÀ?w´9w§@q¤@\7f§F{¦<\84²B\81°8w¨4zª6w£@r­Dx£Iy¡Cz\9cBx\9aKj\98Mm¢Lx¬O}¹SwÀNz¼L\82¹SyºJ\80µNy·@sµMq­Nq¬Qp¸HnµBy°Mn©Io§Gm°I_²W]²YY­^^®c]²g[«b^£^[®^W«\f²cd¬Z+47(%<**9,.7.(8#7;)28+)749>C<<C;EN89T4EJ;=G>FC>6P=HKI;TL6KQ?MW=CM;KO8_W1XL7lT=j\?iQ>jO6rJ6mD;eB?rN7eQ9q[=s_Erd=oh-nV<{f<mb>ycI\80\Fxf>zgE{lFudG\81jE{iC\83iI\87qH\8cr<\8fu;\9fnH\94sC\9euC\98rH\96rH\9bkJ£~>®m6\9fmB¥b7¸lH½o>¶jMÂtB½qI¾tE´xK¹vSµ\82N©\8cN¤\8eG©\82D­{8¦\80C\9d\8eC\9d\918\91\961\8d\8b8\9f\81I\9b\85@¡\8aU\9b\91Q£\9cQ©\95U\97 \¨£]§\9cL§\99S­\9cU¼\95K¼\9bE±¥N¸\9bR´£L²¤N¹¡NɧE»«B¿µO¶²D¿£M®«Y´¤N² ^¸ `¾°U¹®]¯µa¶¤\¯²T»§T©´R£´\­¹]¬±Q®®_¯½[¬�[­ÀI®»Jº¿Y·ºX¼µT³«W²ºL­µK´°Wµ¶Q¸®Q¾³S¿³W½½[½¬fîVµ½`´´Sµ®Xº±W«´]µ¼T¥»R³°X¯¶b¬°X£ÀG¡³T\8dºL\93ÅV\95ËK\98Æ[\9bÉS\91ÉV£¾[\9eÂ^\97ÇS\9e¼c\91È_\9d�X\8fµX\98¾]\93±c\94¾Z¢Î_\9bÆm\98Ëd¢¾i\9cÇb\9eÒf\9fÈU¥Ì_ ÌU Üc§á`¦×j¤ác\9cÙ^\97�c\98�X\8cÕM\98ÕZ\8fØW\8eÕ[\8fÓY\8dÓ]{Òe\81�g\8b�_\7fÎr~ÓpuÉfp�czÙj\80Ù\tÒT\7fÒ^q�\sÖXeÔWuËSl¾Ls¹Op¾Ad¶5p³;g¦Au¹9s´@\80·Bx³<|³>}©>\7f©4\86«6}´>\81§3v®,z\9d0vª=r¶@r­@w¯Ar£Hu\99Fp Eo¨Ds¸Lv¸X\7f¶Rq¶Rr´Kv¸P|ºBs¾Gr¶Br³Mh¾Db¸Gu¹Ql¯Hi¬Em¥Ob²Ka¨a^¨SY´XU¨\ZµhT°cV¡aeª]Vªfa¯ak¡T%/7\1f,9)'2$&<(-3('0(28.-05/??-A@'AO13G6?H?@M69E98D:4SB<GM=JX2AY?IP:MI/YO,fN.fN5mU7bX;jXBdF8bA=gG?bL0eT/gT>kcEzhDza6~b)sU-{ZAvfCv\A\83X?~WA\81^G\84kI}hB\86j9\85h?\86o5\84x<\8fxG\93oK\93qB\9bmB£v;\99nB¥vI¤w>\9foB¢c8³[<´`F¬pD´tJ°lNºkJ¶n@¯{@²yC²|V©\85V£\8cK±\86D­x@°\88@¢\8b?¡\91C\90\95<\98\89F \87D\9f\8f@ \8fL§\88P¦\92Q¦\95N  Z¥\9c^©¡Y¥¢U®\9cN¶\98X½\99V·\9fN³\9bR»¥Hº¦JÀ¦DÀªN¹µR¼°D¿\9eO³\9bQ¬\9e\°ª\µ¤Q¹¢V¾¥b¸¯_¾«V²¥X®­Pµ¬Vµµ\£»T­º`¶³\¹�R­ÅT°»T®¼Q®¹S±¶W¼±_º²X¶¶X´·X¶µY¼¼N··O¹ºW³»`·º\½¯`»²f±¬f³°^³¸[¸±b¹½[³¹Yª°T¤·R¦³S¨±[¬´W¥¸O\9d»M\94·J\95µS\9f¾O\96¿W\98Äa\93�U\9fÇW\9aÇS\98½\\92¾b\97Éb\94À^\95¿[\8f¼h\99¶h¡Åa\9fËi\9fÃ_\97¾c\9aÎa\97�i ÉY¡ÓYªÓ[¨�[ªãeªçb­ÜW¤Ü]¡Ú_\9fÖj\97ÌU\8b�O\86ÖV\8dßN\83à R\83×\yÓezÊh~Õe\84�m|Îq~ÈmqÎno�jsÇZyÒ[x×WsÖPqÔVhÖKj�UnÈRx¹Cu¹Dl¾Fs¹8w²<n£<x°I}²G{·Ju­=p©7{§>\84¬B\87¸8}³/v¯5u¦/\85\9f/\85¢4\7f±<o¯;l°Gx´J{§Ns£Ep¥Jp²Nv½N|ºYsµZr¾\x¸Qw½Eq¾CnÇHgÂHc¿Sd¿Ld¶Lg­Om®Pc¯Hc´WW­[V´SY±RT´^Y®cW­d_«XY¤ad¥el£\c§Z-+4,1(*&8'.7.1)51+1+42,.9-69)><19K08G?=C8=M>8G??FC4XL=JR4N]6FX1SK<MP*]P5eM7cL._O;bN7[S2ZL-^G;aK6cZ;cQ2l\@wd=wZ:\81b3}Y'}](|\7y\;vU7z^F~`>\7faEzfE~kG\8al?\8cjC\8btC\8e\7fF\89hB\91pO\9bcJ\90kP\91`N\9ehH¦t;«jB§fD\9bk9¬iD¨dH­iL£hJ®xA±vE²uK¡yE¯xI¨\7fN\9f\90E£\91F¯\8aI¥\80I¤}F§\83>\99\99K\8e\95K\9e\8dI¨\89D¡\87G¥\83M¥\86F¯\94T¨\97Q¢\96Z¦\9cXª\9e]¹¥L·\9cG³\95Oº¡Z±\9aK¹¤R½¤J�¥NÄ\9eT·«O´¯P¹§V¿\9dP®\92L¯\99U³\9dP³¤U´¦W¹¡O«®T¶§U²¢Y·¥T³ªb¥±R\9e³P³³Y®°R¼ÂY²¿V¶¾Zµ¸Uº°`«¹c¯¹`±°]±¬V¼¶[¸À^´Ã`¯ÅT»Â\»ÆQ·ÇR¹Å\À·cµºf´¹e±±e¸®i­º^°¸R³²W®»Uª·[\9f¬W\9d±R¡±M¢½R\8eºJ\9e´U\9e¿^\9c¾Q\96¹S\9dÈ\\96ÂM¢ÌQ¢ÀW\9dÎ^\9fÎ\\9cÎb Å] ¼hªµl\9eÈp¨Ì^¤Êl\96¾j¢Çh¡Óaª�_\9fÖ^«�i­�a£ã\¨âl§Þ\£ç\¥Ód§�m\9cÒ\\86ÕN\87×J\89ÚU|ÓX\84ØX\80Öa\86Èg\81Ç]\86�e|Å_\86ÆkqËbeÓggÉfzÓWwÉQsÜVm�HeÙDe�PeÆLq½Nq·JpÂ?k¶:w«;zª=u£7x´Cz«Ko¥@}¡B}®6\89©/\88·6|¬:\84©2{¨0\85\9c+\8a©3z¦B{¬FuªAo¦@|¤Fx­Ho¤Ez¶Er´Su¾V{¸Uv¶Ul»Yq¶OgµJnÅRp¿Kb¾TeÊKb¸U`¸I`¸He·N`«WW·UZ°Zd¾]W°aYµad¸WVª_`ªaf\9fha c^£a+\e,(%(,/'150*/21+*/,45)5:)::.::6>F/6C<6H:6P@;HD9FB4RI6TE<IR6MX:MS9NX:ZU-^P/bI,eO1aI/_D0^C1ZC6aO7]TCj^?if3wc8|\4wV-y["zV#u`2~]2\80a2{]A\80dA{cI\81eF\82lF\7fmB\84yB\81uJ\8axI\90mV\8eeT\96\T\8dcT\8biU\93`L£hD¨j>¨i9¡e?\9ckC¥cF¡jF¢jB±yA±y<«x? wE£\85M¤\88G«\86B§\8cM­\8bN§~I¦\8dP \8bF£\8eB\97\96I\9c\96N¦\8aB\9f\90H§\88B«\8dO¶\89T»\8dN³\9dV¿\9aQº\9fY´©V²¤Qª¨U±\9dQ«¡R³¢O¹¤T¿\98SÂ\9cS»¡O¼\9eN¶§V³\9bW¹\99L¸\9cJ¾\9bR¾¢\°¬X³²]¥ªS§£U­ a´¤`¬¬a®­X¨µN¥¸U«¼T±¹X¾Ç_µËZ¼À_¶²g«°_­´W©ªYª¶\´µU¹¾]²Ãb±¾[±�[¹ÉS´ÆX»½d¸Äa°Ëa·Âj¼¾d¸­`¶ª]¬µ\³®Xª²[£¹_\9b³R\9b¼V\9dºT\90¶W\93¿X\9c²Y\9d¶_¥¶\¤¶T\9bÆU\9cËR\9eÉP£È_ �X¤ÇZ\9dË^\9d�c§ÄgªÅj©�j¬Êd«Åc\9aÉi¥ÕgªØd­Úk¨Öc«×g¤à o°ân«ág¬áf£äZ\9dà d£Ô_ äV\8câZ\80ä\\82ÜN\8aÞZ\81ØU\82×\\81ÊW{ÆVvÇb|Ìc}Äc|Ìdj�cnÄYlÃ`wÊOqÑOmÕEoËJrÅMkÇFfºBh¾DpÂ4m¸4t¸>z©7|¥<\7f°@u«:t¦E~©A\86­5\88²8\88¸3\89¯.\83«+\8b¯2\81£3y\9d5\81¨@\7f°8t®9z°6o¨BjµNk°Mm·Mt¼RzÇTxÀ^x�]pÀ^d¿Rd½OmÄLrÇTuÅRmÆOj¸Pa¸O[¹Q^±M]¸Wh°Yl»__»[c¿_^´Zb·YW¶bZ®gW§]X©RR§W(\18)((+50+31444*,-\1f.(,3+)?/.>)1D24D47;.+E@+@@:BH*I>:PB8EU,IT2NL+P\<WT*QV0QO.`U4WF5ZL+^G5[W(bY6[V2\M8kO1x`.vd,n`1|_1r[!uX)\86['ye6\81bB}\>\80XE\87eF\8bmE|s=\8aqA\7fyC\88kF\86v;\88mM\8feN\84aI\91aX\8b`F\97mC\9d^I¨a8¡k9\9bp<\9dh>¢cG§kC\9dqG¬p<³wC±v>¤\86;°\87;²\82?©\8cC°\84I­\81L \83Q¤\90O\98\8aP\91\89B\92\92P\95\8eH§\91V\9e\82C©\83?ª\8eQ±\95Wµ\94S´\8fO¾\93U±\9d]¶¤Z¸\99P²\97Xµ\92X¹\96^ª¢Tµ\98X¶\92S¼\95UÃ\99Pº\9fL¬\97V¶ O®¢N¶¤LÀ\9eT¯®Y¬¦^³¡]©\9aV¨\9dX¬¥b«­W¯©Q£µQª³G¨ÃV¬ÄO¬ÀYÂÆa¸�d»V¹µY©ªT±±X®®e¯¹Uª¶V­ÈU¸ÃXªËVµÇ^¸ÇQ·Ã\½ÌX�Åc«»j©¸n¦¿h¬¶i¯»^ ¹U¦¬X£ÀU¦¸T\9e¸Z\98³V\97®S\9f¸Y\98½W\93°b\9d´]\99¼W\99ÇT¤ÃR\9dËZ¤ËY\99Óf£ÑeªÊj£Ç`\9aÓk¡Ìn³Ës±Ëb¯Äf¥¾` Îu\9fÊf¬Øf¤�a¢�f®Ö`¢Öd¨Ù^¶æg­×W\9açT\95ØO¡�_\8dßY\85äQ\83ÖY\83à N\84ßV\85ÓN\82ÔR\84ÈW\81Ô_\80Èa\82Î_yËi{Ì^uÊZj�brºarËOl¿FlÊDnÅKlÄ?p¾Eg¹Kkµ<j·A|´4z°8\81³4y©6v¨>\81´=yªJ}«4\84²:\80¬-\81¼8\8cµ*~§&} ,\86©<\87¥?\86­7u­Bo¤=v¥Am±DnµSr»Wv´XtµOhÃ^xÃir¾fmÇTm¿\qÎSjÎNgËMd�VaÄXXÀKT½Vc�LU³Tb¸Zf¬Qb¶V_µ`W½\S°Y]ºXX°ZW©bS±`R§WK\9fS.";2\1c4(\e8-'-.5-71%30*4.&A0#>'/=13?,&C0+<8/:=3;?*@=6?I9LP/HQ.F[2QZ0Jb/J\4IN8XQ+YW&JQ*[[%`[0dR/`T2ZK7cN/iV1xU*sV%sZ+vR,~O#\7fW1\80^:\83c8\82cB\84iF\8b^C\89kF\82kE\82pN\82iM\87gF\8eb<\95_?\90hE\86]M\88`O\91^I\8emJ\91c?\9ee:\97c6\97m;\9ckD©gF±rB©l?¯v4©t:®z7«\845©}:®\809´}:¨~@¬\86D¤\8bM\9c\8eL\9b\8dI\92\90C\94\93K\93\98K \8cX­\8aM¨\8cC±\95@­\91H¹\89Aµ\8dI´\89T·\92X¾\98X¸\9fL®\95^±\90_°£V°¨]¯©]¯\99T²\93WÄ\9cQ¼\96J³\95N¹\9eT²\9cM³¨H±¦Rµ©P¶¬Z¹ªN°\9aS«¥W­¨cª¬R²©P©¶M£½N«¶M«»Y²Å\¾ÀU¼¿U¹¹Z«¹U®°L¯±T·¼_­À^¬ÄP¦Î\¬ÉX®ÊY´ÌY¸ÒS´�S¿�Q¹Ä]ª¶V§²`ª¹a¡¼g\9d²Z¡«^¨®Z¬¼T¢³T\96¬Y\92­Y\91ªa\8c¬a\97½`\9c°V\96°W\91¿M\93ÇR\9eÃU\9c�b¤Ò^\9aÎa­�n±Ói¨�s¢Ìm¯Ìk¯Îo¯Èf¤»`\9fÀg Åp Ãn\9eÉ\¢�g¨Õb¤Éb¬Ë]ªÚ\²ß]¡ØV\9cØS\98×M\94ÌS\87ÔO\89×S\80×H\87äM\7f×T{ÚI{ÛF\81ÒNyË\\81ÕYyÊX~�]pÕVp�`mÇXsÂ`xÇYm¾KnÅDmÅMr·Pr·Bhº@l°=sº=zµ6x¿6\81¹4w¸4~§5t²>{¼B\81±<\83¬2\82²3\81À7~µ;\82­.\7f£/z¨8\7f\9f/\85¦7\82§;vªAw¯Gq®En²Pt¶Vm­Yh´[fºfjÀbm¼YmÂVoÂTo�afË`lÄTgÊY`ËWb½XR½Z]Å\[¼Vb»SY¶PP³TR´U\³aU®^P¨]X³TQ²RH¶`MªXL¦_4\1c(0!2= )3(&/'\1e9/\1f01 ?%(C5.831@;/44#72\eAC$ED\1fDJ/>D09O*IJ6CL.FL,BX+BT3@\;NV1WQ3TW.HS-RQ&[W\1eaY'dS*jV&kS+hU'z\*tW-}c"|b\1f~P!\85]2\85W1~_5\8d`9~Y<\88f>\85nK~oA\87nC\87hB~a@\8c^A~`C\8efG\8a_Q\86\Q\8fnJ\93iC\96n@ k5\9er9\9em; jE©tE©l? f<£t=°w3¯x:­\8a=²{?¨\7f9¨\7f:¥\86;¡\83J\98\97M\94\88H\9d\89@\9c\95K\91\92X\96\93U \8dY \8fI£\87U¨\89Qµ\91D­\88I¸\8bS½\8bT«\93T·\94O¾\9eWµ\94Vº\8af·\97d²ªb·¤T¹\99^Ä `Å\99]·\9aV»\99W®\94O¸\93W·\9bY°¢c´\9c\²¢_¨§]«¡c«¨W°ª_¥ [««^ª¹P¥ºT´²[¸²P·Ã_¼ºNÂ�RÀµY·¿O¸¾H¾¾Z°º\¹¿_³¿P¯�a®Ì\®Ã_¯ÄR®ËR¬×T®ÄT«ËX¨ÀY\99¸]¤´e\9bºj¡·`£µi¦¿e¦µY\9a¸\ §]\9c´T\8c±d\9fºe\9f²c\98°V\9b·`\97·^\97¹N¤Ë\§Ée£Ëa§Ô^¦Øc·Ùj¨Éb¤Ën®�m¯Éu¬Äcª³k¦½b¡»d¢Ãm§Ña Ê[§Ò[¡ÎX°×YµÙ_¤ÙT¢ÛW\99Ô\\9f�R\89�`\85à Y\92ÕQ\87ØM\8dÜR}âW\84Ü[}âJ\84ÞR\83ØT\84ÙXwÙ`\81ÒUpÖWuØTtËN{ÂO~»Vt»HoÇGwËLvÄ@q³Di·;p¸8jº4t¯<\80±7u´@\86´=w´8\80µ2\7f�C\83³:\88·:}À7}¿4\82¿1\80²6}¸-y±2\83°<|¢9\84¥:~¶I\7f²EpºAo´Js¼\m¹Pu´VrÃ]sÃatÌ`rÇ[sÇYnÒbbÑi`Ì\[�\WËe\ÂVL¾^OÃOZ¾\L¿YT¹NU¹UL·T\µ^U§^N¹RR¬LT¯RN¿ZQ®[Qª\;%)<\1c,5 %7\1d\1f<$\188\1e\1a?.!<-&E;\1fA9(C@\e8>\1c9B#=A\1a5@\1e>C)E?)AI+IW2BU7=V=CJ3FK0GT0L^)J`/La&H`%NU\1eUQ\1cWV\1c_V\1djK nL\1fpY\1ajV%qS y_%~V){]"t`-yU9\86S9\86Z<\7f`;\82]C\89iG\8anB\87qC\83lA\88hB\7f^@\87`F~jF\8djA\8beK\8bgF\8aeK\96]E\97b9\9eiF¢rF\9ez;¡s@£tB£mA«z4¨x8§v8¦\853ª\89@©\80@¬\88@©\85B£\939\9c\96@\99\8aH\92\8eH\9a\91T\9d\97Y\9e\95\¤\9aT¥\93P¯\8cU¸\8bS¸\8bN¼\8aO¶\8cN¹\8dQ¯\92U¯\8d`³\8bZ¶\86e½\8f`µ\96`º\9aa¾\96fÇ\99aÈ\9diÀ£c¶¥a·\9eZ¾\95SÀ\98[º\99e¯¢d°\99k­\9ab°\96d­\9ed´\9fc«¨Z©¨_¨«[®­M§¸O¬¯[¸µX¹¾OºÀS¸ºT·�Pµ¹S¾½N³ÅQ¸¿_¯�Z±Å^«Ñd®�`¶Ç_¸É\±�P°ÑP®ÊL§ËS§ÉX\9aÇY\9b¼Z\99·[\9eÄe\9aÀe\96¼Z\9f·[\95²X\98­U\9b¯b\98¬]¤º] ¸_\97²`\96·\\9f¸b\9cºX\9c¼d¢�a¥�hª�g©Êf¬Îf¨Éd§Æc¬Ém£Çk\9cÂu\9e¹q\9fÄg¤¿i\9bÉk\9f�c¨�g§�YªØS¬ÒN£�M¦ËU£Âa\9fÈ[\9dÕ_\8bÙ\\92ÛY\8aà Z\8e�T\87ØS\8eå`\8bâ[\85Ü\}ÜWzà U{ßV\80ÒW{�W\80ÔWu�N}ÊU|ÀMz¿Nz¼A\7fºJsÇGqÄBwµ<z½8l³<r²Aj¸Ap´;zµ:|®5|¶0\7f»1\84¾5\8a»:\8dÀ6\92Ã5\85º0x´+x¾,\80»<}·=\83ª=\83­>\81¯J{±E{»E\80½K{ºOuºWo�Xr¶RlÃTkÇ^s�doÓjmÑghÌf`Òf\Ñg_Æ^RÅaSÉ\TÀRP»WH¶SE°RE»SM�SUºU\°SX°UZ°[K²UG¼NQ¼VW¶ZRµ`5 $9\19'=\172:%0: !/,\1c12.A)465'2;\1e15&CB'4F\1c;A\1cH@%ID.JP%BE/AV19O@>Z;BQ8JN.FK)AV2D[+N]6A`.GZ.MJ\19bZ\1eiW+kV*qN#iY'de%g_%vf+nU(rd0uY+y`1~ZE\88\D~YA\84g?\8b^:~aE|f@\86iL}mI\7f^<~fF\80aA\8c[K\8cgK\8c`?\95dJ\8af<\98_>\93jI\9fpD\9fk? l>§l<¦\80D£|6®q? w3ª{?¤{G²\84E²|I¡zP\9a\8eH\9d\89H\96\8fN\9b\8dT\9a\99P¢\8fe¥\91\¡\9dY\9e\8cY²\91O³\93Z¹\8dV¶\87Mµ\8fJÀ\94F¸\8fM»\92]²\96b¾\91Y¹¡^°\99f³\95fº\9c_Å\97c¤aÄ\9a^�\9bi² d¸¢]¶\93_¶\9fQ· S±¢b°\99`¯\9d_²¨d§®W¦¢a ®]§ªS©´[ ·[¸�N°°V¸ÂS¶�`º½QÀ´X�ÀN¶¶O³¶Yµ¸S¯ÈYª�V°ËWºËk³�Y¬ÑX³ÎW¤ÌQ¬ÓG\9cÂK¡Ã\\9eÀZ\96µc\98¼Z\91³b\97Ã]\9fÅW\98�^\99º]\9f»L\93§X\9a±R\98¸X\96²^\98¼\\8e³]\91µa\91´a\97½`\9dÌk\9bÆ\«ÀY¡Èk§Çi¡Ë`±¿d¦Çj¨ºm\9f¾f©¾m¤ºk¢Åf§¸Z©¼`¥¾T§¿V¨�Y¨ÌP§�R¦ÄS\9b�\\9aÉZ\9eÖT\91×U\92ÕT\8fÙU\85ÛZ\92�Y\8fÖY\8açN\83Ö\\83ÕZ|ÕXvÜ[t×M\81�^~�N~ÈLz�Mv½PpºOxÂG{ÂLpÃ@p½E{¹@vª3uªBf¹Gj»Jo±=\86¹F\82¹;\86´7\8cµ2\8cÀ:\7f¿5~�8\84´3w�7\7f².\7f¹.v³2\87²J\86´L\8d³Mz¨J\80©?x­Fz²P\85´Z{ºP}¼Xu´OhºYj»lb»aeÊkf�gsÒ[i�_`ÒkSÂjWÌcM¸`Q¹RF½]N²]O±`H¸bXº`Uµ]_³SY°PQ©TM©KR²ZE¶aV®cN°_;'2<"*1\1d35%1</053,90)4371-%20!<=%<? CF#@B(:B/BC:DF)MM%LU8?U9KM+LU.DO5MJ/QS6G]7GQ.JR3UY0UQ%X\$hV*qT n^&rg&kb$u^0n^,lf,x^1z`0\81Z8\80e;z^Jue?\80_7|k;\83eB\80c>|hEwjK}i@\88`?\87]>\91_?\8dZE\94]<\99b>\92n@\8emL\9arA¡t?«jE¥pA§z@¤\81;¡{<¤{C\9a\838\9d\81>­\7fG°yM¯tR£|O¤\84K\9d\88Q\99\8cP¡\96U\9b\91W \93b§\89e\9e\8f_\9d\86\«\8bX²\93O­\8fR¾\91S�\8bDº\8aM¸\9aO�\99\¹\91a³\95[´¡c¼\9cg²\96\µ\97X½\9e`¹¦e»\9ed·\92j¼\97b´\97`¼\9aW¿\98N±\97M¸\96S¶ `©\9cU¦¤X¤ ^¥¬e\9f·Y£µX®¼_¨¹X®¶aµ¼\¿¿_¸�aµ¼W»²[¹²^²½W«¹S¥¼UªÈ`´Ç[³Ëa´Éf±�[±ÈN«�K¤ÅI¡ÄO\98ÊM\9aÀQ¡½Z\98³`\92¶a\96�d\91ÀY\96»U\94¾Y\95½V\9f¸T\93³T\8e©O\8d©W\8b¸R\92¹P\91¬W\97´W\97³c\8fºp\98Äk¢¿^ªº[­Ç\¢ÎdªÂ\«ºb¨¹f¨·m¬�t©Ãpªºd®�]ª¶\¤³\¯´Oª¸R£½U\9e¼M§¼O¢ÅP\9bÊK£ÑN\9aÈT\8c�V\84ÚX\85ÚU\88ÑK\8cÑO\84ÛV~ÚQ\82�K\85�K\86×Uv�N\7fÉX{Ò[v�\{ÀQuÅHs¼Il¿NoÌBlÆLrÀGs²8}°7x®4r«?z¨9s±Du¬=\83¬@\87¯@\85¾@\8d¾D\88·6xÀ1u�<m¶>t¹9t½.{»4\80±;\86¯H\88·N\86¶U\7f²P\84¤I\8b¦T\81ªT\85µY{²Uv¶Q{°Xw¹ec¶hd²ijºmp»]mÊ]\ÈbWÅjUËeNÉaR·bJ¶SBµWE®dL³_Lª_U¬]b±WY²QY­UN«SR¬MH«UD²_HµYN­V8(/F)12'.:#103-11&229:8?.851'$?-&9B*@9"@="GG4G=?H>+OA-B@'DE9PM4PV/GM.TM3II5NU3IS/PH3RG(_O(fP(qR'eO5hW'uT/ph1jb)pb(kY'ya-{e2yZ@\80d;{lE\86j:\84g8\86n=\7f`I\87fH\88u8\7fh<\7fsC\8al=\89lM\87fC\86eR\8ekN\8eo?\98iE\92tE\95lF\9arA\9dj@¡nD vF¦sF§\81<\96yF£{K \85D­}R®~O¢x[¥\83O\9e\89X\9c\8bW \8fX\9d\91O¤\9c`£\9cY«\8eXª\96Z°\84]§\94O­\8d\¯\8cS±\88M·\85<Ã\96HÇ\97UÃ\97Y¸\96V´\9e_±¤b«¤f²\9ej­¥^«¡`²\98h±\95a± `±\98a°\9eYµ\92M»\97I²\9cI«\91\²\94^®\9fW­¢P§ªb\9a§g\9c±W¢µY¢º^°»SµÀa·Àb¼º]±Å]·¿h¦¯[¯­`«¼d«»`¢ºS¯¿_³Ãg²Åe¸Éd©Åa³¾N¦¿Tª�G\99ÂI\9a¼P\9c¸N\95ÅM\9f¶Z\9a¾S\9aÇW\98ÃY\99ÅU\91¾`\9aºQ\8e³R\97´K\8dµM\91¯X\8a¼N\8f¶S\8d¬N\88¬P\8d»b\8f¹]\95ºi\97Àa£Ä^\9eÈZ¥�^¤Ëa°¼`¨�e¬¿r£¼v«´n«¸`­·f¤±^®¶Y¤¶P¬­P¥²M\9f·R ¶O\96»H¨ÈO\9cÔU¥ÄO\9eÔ\\8e�X\8aÙY\81ÛS\85ÙY\84ÛZ\7fÛZ\7fÙJ\89ÎCyÄLr�P\82ÌZsÑ_\85É`\86�OuÊWx½SvÉD}�:t¿GzÃGy¸7\7f´7\80³:o¨Az¥Cn²Gv¨;\81°G\82ª=\83®K\81µ8{¶CxÀ>pÀBpÀ9{º>}¹:t¾9\7f·E\81¾G\8d¶N\8d´[\84±S{¥Y~¯_{±W\84¬Zw½Qy¸V{·Yf±hg³pd¯ajº_g½\cÃfWÇdY¼_LÉ\VÇ\F¾^GÂVC¼`D­dN±_R¡^\¦Zb±P`°X^¸]P§JM¯JU²ZN¬aS±ZS«bB%6>+7@+>:)5..92-+6-,576/103,%77%B5%<< G7'LD,R?7WF.O>,N@0JD(SH)UH.QF2LQ5RG+VM0RN2RM5YJ1\M+dR-jL0kM(hP1kS/sa,nf0t_&|^&s`5x_=ncGlj@xhE\85n;\83f?\83h@\89l@\82jC\84q9\81g:\80k?}mL\89pN\87pH\88bQ\86kM\8eoQ\91vN\99lK\9aiF jI¢mD¢lH§lD\9esJ\9ezN\97\85F\96\83M¥\8aV¢~Y£\7fX\99}U\9f\84]\96\84c\9e\7fa§\94S¦\97V\9e P£\9cW°\95P®\8bW¥\93\¨\8dU¸\82Q¶\85Q³\86S»\8fDÆ\94FÅ\8dOÆ\90T¿\9cZÃ\9f]¶\9bh¯\9dp®£gª\9fc§£j¦ i«\94f¬\90`¬\9aS®\9cT¼\90O¶\8aN®\8fN±\92V±\99Q°\97O¥¥Q©©P ¢]\9c¨[©°bªºb©¸\¬¼V¶½^µ¶c±º]¨¾e\9eºc\9c»_\9f«b\9e¨\ª¶Yª»^ªÄb¶¿W´ÈZ¹¿S­ÂT¯¸J¦±P\9c«G\97µM\9b¼F\8fÀH\99ÃM\9bÈV\9cÅP\9aÀR\94¾U\9c¶a\9b¼Z\8d¹Q\89³T\8b¹O\87·T\8d¼Q\89¾R\8e°Q\8c¯V\8dºU\8a½b\96³l\9e¿m¢Â`¥¾c¦Äa°¾b«�_\9e¸n¡ºn¯¼h«­l²¹o³µaµµW¯¶U¯²O\9f¯W\9c·Y\9d½L\96»O\99½D\9dÈP¦ÇV\9cÉ_ ÉY\98Ç\\87ÑT\89ØQ}ØQ\88ÖY\85�W\87ÒI|�L{ÇMxÅOrÑV|�^z�Y\81Ã]tÌ[rÇOxÄM|¾=\7fº9\83Â=\7f³:\82±2\83«.|¨;}ª;x²>\7f¶8x¯=tª:\80®Du¸Ez³D\7f¶EvÆ:l�;rÆ=xÆ?qÉD\80�R\82»Q\82¬O\84­]y©f{¨]|±]\81ªa~»X{ºRy¹Vl¬edµdi±lp¶^n¼_o¸af¼f]¿bV¸WZ¾PLÄWIÅXMÀYQ²]I­fF­XQ¦Y_­Oa³TW²SV¶SZ¬UN¦TW¦ON£YIªcH®_585A%2968D52?:26<0=;+A2895+>-8;.(A0)I@.I76R@,R@2R@+TB6ZI)YD#L>1OD&ZK7XV:\X:XW9WR7NU<WJ5cK7bE7xP<tS7lG9rO3ye/je9sW6t`*e]0olGzl>x_C\82gP\84mF\85b@\84eA\85gG\8apG\81s@~w9\82iD{i<ziC\81bI\8c]R\91jV\91`L\98sN¡oT\9apO\9bsO§tD¦jB¨xQ\9duB¥|M\9f\83P§\89Uª\83UªzT¡uZ\9azQ¦~\\97\88T\93\7fZ\9e\86d\9f\9cS \97Y¤¡\¦\9dV·\9aY¦\8bV\9d\8aM«\8dT¸\82J¶\95O´\91K¿\97Q¼\94K¶\8fPÀ\9b]¶ d´\9ec³¦j³\97o«¥^­\9dk©\9a_ª¦]³\99Z³\95X»\95N²\85Z²\92R¸\8cPª\9fX¨£Zª\9fS£¢Z \9c`\9d\9bh\9a\9ag£ª[§¶g¥³_¨¯g³²[°ºWª¬f¡·b£»Y\99°Y¥¬f£±Y§±\¯¯S°¿^©Âb®ÊO¡¿_\9a±]\98´J¡¬V\99¬O\97³G\94¿K\8e½O\9dÉR\94Ê^\9cÃR\97Æ\\97Àe¡¹`\9a·^\96ÀJ\95·U\8c¹Q\93·Q\95º[\97¼Z\8d¯Z\8c°P\91®`\99²Z\9a±d\97À`\9d³f£½d\9cÌj­Èg§Ìj¯´n¤²t¤±k´­m·«b®¶]¸®Y´¹T§®O\9d²U¥²G¥ÅL\98´A\9d´E\94ÆL¢ËR£ÊY¡�W\8aËP}ÕW\84Ø[xÔQ\81ÇK\81½J\87ÆL~�OxÌH}¿X\7fÅQ~Ó]}Ë^\8cÆ^{¼Rz¼FwÂCz¿?~½G|»=\85ºA\83¥7\7f£Bs§;s­I\7f­>|¤D\88¤8\80¥@z±>|°L\89»>}ÀJn¿F{¼Bn¹HzÃIyË={¸P\8a¼_\7f©W\7f­_r\9eU{£Q|\9dby¤W\7f³Yy¼Sk§ai¯Zm¢dp©wj²sn±ak¶_g½`_±fT³aYµWG¾LGµULÃXJµ\H³eS¬gL£^b¥XXµVVµZ^¸XV­VW [O«SH©\L¦TK¡W=399/.=0&G9)P>)HB,DB*=67816D9<S-8P13J;6PC8Y?.TE-O<-ZD/_C5W@*Z=4RG.YI<UP=`T9\P9]O<X[?eR=kL;mO2vH8|D=tM7tM7x[AiZ@iZ5c`7fh9ok8vhE\83hW\83_W\82fO\85mE}sG\81iEynJ\80kD\7fn<\7frEzg;yj@za>\8bdI\88eM\89`T\91fX\9dmY\95qU\97qW¡iZ§iKªtO¡|I\9f\7fN \86P \85T¡\82X\9e\7fT¡tU\98tR\9d}X\9e\83X\94\80^\92\90c\9b\91^\9f S¬ S°\9dZ®\9cS­\97W\9e\91T\9f\95S¬\89P«\8dJ³\98Hª\94F°\97O±\93\¾\98Y¬¡R« Z¨\9d\®\9cg§\92b®\98Z¥ ^§¦Pº U»\96S°\98P°\8aY±\91b±\93]ª\98V¬¤U¯£S¨\9c`©\99f\9d\99f¢ j\9d d\9f ^\9a®c£²_§¯a\9e¨h\9c­a\98ªd£¬`§®T£±Y§¶\ ¬W¬·X©¹X\9e¿^£¼R\9c·Z\97±X\95·\\91¶O\90³H\9bªK\9b¼R\96¾Z\96¼^\97ÇW\8cÉS\91¾_\9c¼a\96Èf\98ËZ\93ÈR\91ÇJ\88ÂL\94ÈY\92¾T\93«U\90©^\8e®a\90­^\99³]\9e¶^¥²`¨³eª�a£Çc¥Ãm¯Åo¨¸p­³q¨³r¯­h­¬f¶µY³¬T´´Q§¨Mª­T¤­S¥¾A\9c�F\9d¸C\9e¸B\94ÂN\91ÀE\97ÃI\89ÊE\83�LyÅYzÆY\7f»M\85¾E\87ÀD\85ÇLxÉO|ÊP\87Å^\8bË^\8f¿_\85¿S\82ºMz�G{¾Q~ÂK\88ÀI\84´:\87§E\85©>\87®C{§Cx±F}±H\8cªD\89 ={¢>xªF\83ª>\8b¶G\86²Hu¯Cw¬@t¸G{ÄG}ÂE{¼M\84²^\7f´do¥Zh\9eOn Tg£Sk¥Zu±Uy¬Xw¥[l§Wr¬iv¡rk¥lg­nh°n[°^V¾fXºgS»USµQNºZJ½UU°eO°eX¦cX¦VX©L\¬OS¦U[¬]Q©ZX¨UO®ZG´PW§YW¤P780A019@/F=&=K!EE)<K'=5.L58@;4K?>V11P38G<:NG4JL1P=4TL1WE/ZB8[A2]C3^F4`N8YJ@^S>YV:aS3oR3pWBvV:uG5sFEpPCnV?sXIoYJpP@bU9jd?sdJwdLr`Q\89`P\88]W\87bK\86nV\87lVyeG{qV|rGw|L\85tM{nC~eI\80rK\8ceQ\91_L\99_K\9esT\93x_\9ayT\96p`\9auK\9b{T§\80P\9c\85R­\80T\9e\84c¤za§\82e£o_\9d\80W\9f\7fU\94zS\98\86T\99\8dY\98\8dQ«\97`°\9d[ \99P«\8fR¦\98Q\9b\8aP \87W©\87Sµ\97M¹¡N¼\96R»¢I²\96Nµ\97_¹§Q«\9d`¬¡Z¶\9af´\9fc²\96Zµ V¬¬K´¢R¶\94I©\97Y­\91V¶\9bO±\98S©\99S­ _¡\99f¦\92a\93¡n\9d\9be\98\97f\94\98`\94­^\99°c\94«b§¨f\9f¨a\9dµb¡¥c ¥R\9c­S¨¶_£µO\9b©Y¦³Pª¯W¥¹T\9b°P\97©Y\8d¦^\8f²[\93¬Y\8e£N\91§L\8d¸T\88¶[\94¿Y\95½\\86ÃO\8aÃT\93ÄV\91Ãg\8eÇa\92�R\81¿W\85ÈK\81ÂV\8b¹Y\92°c\98²c\91¸V\9c¯T\96®\\99µ[¨µ_¨¶^\9c¿m¦Äa«Èl§Âi³²k²­q¯¬c¬«a©¼e»¿U±¸]µ¶K«¶T¦¬J²¼C§¹F\9e»J¡ºJ\98¶F\93¿T\93ÊI\8a½A\8dÌA\83ÂI\82ÊS\82ÈO\8a�L\8eµC}ºS~ÇG\88ÂD\8aÂG\85¸P\8eÄQ\83¼Y\81ÀJ\83·D|»J\7fºE\84¹O\85«H\82ªD\84´F\7f³:\82°Cx¯I}¨K\83µH\88£H\8eª>\7f«F\85¥L\8d«M\93¬?\84¹9\84³Eu»;m²<r»K{µG\83¹Wu­Uu¯bw¢bi¨br\9f`t\9f\s¦`g\9f^s£cu¤Yq¥`o¦`}\9clmªpk©g\¥j\³`a¬j_½eS¸^O³XZ»a]¸`[ºaX¬XR¢T]°VS¯T]­XZ©ZU¥SX¤SW©QZ¬XF¯WW¡QO O69%8>&DI,FG)=F+@N'II,GE3E?/J96U9?T:=H;:H>8R?/QA6SI<ZC9Y=7Y>;SGB\K;XS3_N:o[;m[4iT:gW8qV4o[;jPCtP<zGHtOHiVBnZHiXEhUJn\Dl_JxTKrVIrWU}`V\80cd{``}^V\82fW~oS\7fgX\7fiM\7fvF\85yK\84yJ\84mO\84nD\94sA\94hH\94`J\95g[¡l\¡xb\9bpb\9by\\94x_\9c\85\¥\81h©\82e \86^¤~e¥\81[\9f{`¦|h¡}^\96\8cR\95\89V\9c\92R\9f\91O\99\98Z¤\9c] \94c\99\90]\97\89Q£\92S¬\94Mª\94K±\9eG¸\9cQ±¦Mµ\9eO¶¥\°¢Y¶¥Pª U³©U¯¦Z«\9cP¬\9cP«©H¶¤O©©S¬\9fK°\9cN°\98X±\97T®¡R¤\9aY©\9b\\9c\97e\99\96l\8d¤h\8d¤h\8e¤g\86¡e\8f£h\91§Y\99¤`\99 _\9f¦b\97¬\\9c³_\95«P\9d§W\9b±T\93±L\9a¶M ·Q¢«Q¢°V\9d¥T\95­N\8c§V\8a¨N\94\9eW\93¬Q\8b©X\8d­S\7f´R|�O\82¼O\85ÉJ{ÈV|È_\89ÈY\8d�T\89Ë^\89ËU\83ÉT{¸a\83¶^\8a´]\94´Y\9bµ^\9a½[\98½f¡¸`\95µk\9a´f©¸o§½n¤Âi£»h«¸r©·j®�f²¹Z­³U°¸Z®²\ª¼P°´E©»H®¯U®³P©°T¡®L\92·I\93�O\97¼C\8bÂE\94ËG\8fÄL\88½V\84ÂS\8e¸Q\87¹I{²M\7f¸P\8c±M\8dµF\94¶P\8bµO\93¼T\8a¸L\86¶N\86²L\8b¨H\81£P{¥K}¥Ez´Cx±>~³=v±I\86®J\87´K\8c²@\88¥=\90¡;\87§G\82¬@\8b­>\8d¬@\82¹:}´=v½?x±A~±Ay©Hs²X{§^x¦fm¡cl¤`i«ak£]e¢\p¦]{¨eu¡hz«gu£jo¡ad¦ef­f\§id«q`´j[¸iYº`c±[a³a]©`WªUXª_P©^V¯YU¤\S\9aUS RO§UV°ZW¦[V Q^¡JT¥R:591B&EE/DD)EI+E="EB%OA4L;6N;+X:1T@FY<7KE<MA4PF6\N0NN<T?2^>0RE3VP<SI7dS=`P>]^@cb@pa4vZ;zV<oR>o]Ay]Bf\MpU=mOCkVIbTBq]Jk`SqaQtdT}XQ{dTtb]\82me|f_|iV{hVslU{uQ~uP\81tQ|qU|iL\84xQ\87rE\94mQ\96dL\97aY\90kW\8e\7fd\9dxV\9e\80^\9b\85c\97zV\9a{X¦\84g\9e\82b¢\82h¦xc¢nd\95\83Z\92\85X\93}M\93\88T\94\8cM\98\8fF£\9aL©\99[¢\8c\\99\96]¨\99O¤¡Y«\90P© U²\9eP´\9b_­¢O¨\9cN©\96W²\9aR¨\9cV§\99]¶©`±\9dY§\9ec«\9eV±\9dP­©Zº¤M«\96L¯\9dO»\95\²\9f`¥\9bYª\94V¢\9d^\9a\9f_\98\9c_\99ª\\8c£n\8b¢a\8b\97e\8a\9c[\99¥P\8f\9eR\92\96Q\96¨R\9d¨d\92²R\9c²V\9d®W¢¬K\94±X¥³Y¥¢H\9c±G¨§R¥²S\91®P\93­L\8f\9dK\8f\9fV\91¨P\82¥`\7f¶Z\85ºS\85²O\88¼O\80·K\8b¼S\80ÇQ\83¿T\83Ñ`\89Õ_\8d�N\8fÉL\80¾Z~µX\89ºV\92½b\91¿V\9dÀg\96²i¢ºi ´_\99ºf\9b¾h¦Äq¢¼k\9b²`\9c¼i ¬k¦½_¨²`\9d¿R¡º\¥³P­¼R­ºN¯¹Lª¯H\9bµV¤­I\9f¶J\96°G\88¼U\8bÀE\90¼F\90¼M\8eÉT\94ÉL\86ÊU\88ÄU\84½O\89¼F\8e³K\84»C\81±C\89»R\84µZ\89¯L\8a¾@\85ºO\8b±H}´K~¤F\82©L}©>\80¥Is«Kz«J\82²Q\83²?}©@\81¨G\86¦E\86\9dC\85¦K\80§B\85¯;\82¯B{¼D{ºB\80ºBw´H|°Fp±Tm«Zo°[|©cv¤WqªXp£dl\9bes\9cgyªez¬fr¦`s°dk¯np£ii¥cXªmd\9ekZ©dW±fY¿`[±gb³]a°V^¨Ua±aT«XL\9fdU¡XX¥fS£^S\99YZ­OOªUV¨N\ W^©WO§`>;,7D*5B\1eAE#>;+@=%KB-FD.OI4MF/IJ0TC>V=:U;5Z<3XN.YQ)NI1LD2XJ2TE1MH/T[)Y]0Xa7\X@meGmg>k_CuT6~[GuZKmZMiXAaMB`Q=ZR=daBg]LkbNieLpdMunZ|iZvkYyjYug`|tdrySpuLplSmnJslG\7fhQ\82vY|vO\87vO\94gO\91^]\8e`a\94r^\8czU\8exf\96ye\9cy_\93yW\8b\80\\94\88i\98\91g\9e\89k¡\81b qX\9d\84[\93\8aX\92\8eR\9c\84I\93\91N\9b\93L\9c\9dV¥\95P \8cQ\9f\92Sª\9cZ§\9eQ¬\9dV¡\9dY®\9ac¯£]ª\9aWª¢Q³£Z·\96V´\9bQ²¢Sµ\9b]ª£c¨¢b²¬]¯ [° V°\9a^²\9c]»\94W·\9dZ®\97Zª\97`¦\95X¥\9e[\9f¨T\99¡Z\9c­]\8d­c\83¬h\85\9c]\93¤_\97§W\92\9b^\96\99S\99¡^\92¯]\8c¤]\94¨\\9f«S\9b°O\97«T\9e¤S¥¬K£¥B\9d©D¢¯F\93¢?\8a¢H\87ª@\8d¤E\8e¬L\87¯V~´J~´L\8b©H\8e¬T\87­J\89¶M\8c¼T\7fÅR}�O\85ÑS\8bÅI\8fÂN\83Ç]\84»a\8b¿c\8c¶Z\90¿[\94¼b\99ºm¬°o¨±f¥µg­·t©»v ¹h\9b®_\9f¨b¥±g\99²X\97¹Z\95¶S\99¹V\9c¯]\9f¬\\9e®N¦³M£µL\98¨S\9a³R\9b·K\92µJ\86­I\94¶@\95¶B\95¼J\90ÀQ\97ÅK\8cÇQ\80ÆS\83»L\80½H\8c³D\89¶K\84·N\90­I\8c®S\93¹U\95¶E\89­E\80«F\81±K\8b°M\8b¦I\81\9cG\84\9dMu My¬D\82¶J\84§C{¡<x¥?\85\98;{\9eI\81­E\81º;\81µ=zºE\84�G\7f�Iy³Ay­Pq¯Ok°Zu²[~¨^v¯Yx¬er\9f_o\9aXo¤by¤as¢aw¢Xo±_q®fr©le³ka³qX³u_¡ma¦oSµjP¶q[¸hT´XT¶VZ°_`§eV\9ceK\96`P\97WZ¤_]¥bY\9b]Y©]Y±RY·P[«UY¨^U\98`.93<?;5:*@3#>;,:D\1eH:"LE"B>0P?.X<3W@BTC4\=>UG/ZT1[P,XS%NV'SM0JH2TW-NQ.Rf6\d5YX?faCj_Ioa7u\=fY@xcKu\?jUAdKBfM;jV<m[Hu`@ljHzhL~fG\80oSr_[ri[qk_{iWqufujZrzTysKthQqlNrs]\83lW}qM\87xY\9crO\9ak\\96n^\98x^\98wQ\88zf\8a\80\\90{_\90{c\93\89f\8f\8cm\9c\87l\92\90^ \84W\9dp`\90\89T\9a\8fP£\90R\9e\85C\9c\86J\98\90N¨\8eI\9f\8e[£\98M¢\8dW¡\99[®\9c[ª\9cT¡\9f\¦¥W¥\9b_­\9eO¦\99H¨\9aR¸\8cYµ\9dT°¢K©©U«®Y­¨[´¯Y«¬c« Y¯­Q°§Y¶¤U°£b¥\99V¦\95f«\95^¨\95V\9a\96]\95\9f^\8a\9bh\8c¨l\82¦c\8a¢k\95£^ \96`\95\98^\9a\9bV\9b£Z\98§\\9a°U£¥P\9a¢N\94§R\9e°S¡\9fU\9c¨K¢¡D\9f°G\97ªG\9c®M\96®N\8e¤O\8a¥C\91¥P~³J\89·M\85¶E\90ºU\97ªT\8f¹R\87½L|¼L|ÈM\87ÉO\8dÄO\95ÊM\99ÉR\94ºU\86º]\8cºZ\83¾f\96³Z\8f¸h\9d¹o¥ªh¨²n\9f®k ¬k¯ªs\9d¹g\9cºj¡²`\9b¶e\9b»a\92ª[\93«R\9dµ\\94°\¡°T¢¶\¢°R\99¸J\9a­N\98¬J\95³@\8b¨=\86¯L\87­C\8c¼O\8b´G\97¶J\94ÅO\99ÂO\95¶P\8c¼P\90¹F\90ªE\94¬J\91»U\92­J\91¥K\94µD\96¬G\8d·?\80­E\90§C\93µA\80¦L}\94Jx\98Pp\9aNs¡E\83¸K}«K\88 I\88\98=\84\93;\83¤F\89¦D\84®D\8bµ={Â<z»<z³D\82´6}·Hy´Cy²Mr¬^y¨Xp¨Xp¯[j\9fck¤fs Y{ªYm«[m¢dq¦_x±nq³jo¦uhµoaªa^¡bX¬mY²bZ¹dZ³iT´`K±d[ ag¥`W cV\99cI\9f`Z¢^Y\9ecW `V¡TT­IZ¡RQ\9bNa\9f`V\93]24627>25691*<//;:$B;$AF%HL,JB+J;6WB;\EA_O7WW4UQ7_R6ZN(YH#NS+XU6X_6\\4Rb8cf9bc9hh:rfGe^DdeAch=j\FmSFoONkWHgWDk\LidEpm@xqL\83sU\80pR\81rUxf^vgavma}kgtp^shdzqbmmTonTmsZrl]sn_\82sY\91iO\92oS\96nY\91j_\99{d\92{\\86{]\8a\7f`\8d|a\93\80f\88\87a\88\89d\90\89]\93\88X\8b|W\93z`\97\7f`\9a\8bR¥\84Q¢\8aN¤\92S£\94M\9d\8fS\9b\8aT\92\87N\9a\94V\9d\9e]¥\99T«\93K§\9dQ¡\9da§\99_¯\96^ª\96O°\94J±\90T¨\9cU¯ Q³¢_±©[´­\¶²`°°d´ªYª¤V­ªX¥«_®¨[°\96Y§\94\ª\91^¥\94U\9c\8cY\94\94e\8f d\87¥d\8b¨j\88\9bi\99\99b\99\95^\9c\9d]\97\94c ¢l\9a£c\9d\9f^¢«R\9c¥Y\9b§S\9b W\9b¦R¥²H\9e­F\98¨?\95§@\9c­?\96±E\96¨F\92¦J\86¨L\81°C\8e¹L\8c·K\8f³M\8e°X\8a»F\84¼E~ËM\86ÎF\8fÎ?\8cÃD\88ÀR\93¾N\91µ`\97¶a\97¾b\88ºg\94¾d\92¾d\9d±b¦¯m¢´f¤³k¨²m¨¨n¥¯r\97·h\8f¼h\97¹Y\94©\\8b¨S\91§V\93«\\8e£a\91¬Y\8dµc\91´[\91°V\8e¸H\8b²@\8a­<~±E\81«?\86·G\8b¶N\86±I\92¶R\8e»G\9a¹K\8b±M\8d·C\91»@\8a®?\8e°=\97µL¡µK\9e¬H\92¬I\8e¬9\8c©3\8e¯>\87·=\89­C{¡Ou\9cQ}\9aHt£Hv¦M\84ªF\8e£@\92§D\8cªG\8f\9eG\8b¦<\83£<\86¶:\84º<|µ?\80¸@}µ>~¾<rÆHq¾Fi´Jj¬XiªVt«Xl¬fn¯ix©it¥_o¨it¦dq£mw£kz¯g|¯lw¥en©jj¢ha¬`X®\Z³\P´dP°jQ®iM\9epZ¦m\ eR\9acU\9fZQ\98`L\94ZY\90SX\9dSZ¦U[¡N_¡NX\9cPY\98Y_\9c\75B37A7=8C+"4@"5I(AA&BN+GL0TJ%YG5YH;YM9SV4TQA[J4UI/SW+\T*\Y*]Y,PW5Z\<\f8`l9dg;sc<jdPfbKc\Fo[HmXLtWNoOOtYMd\BqbHucIskNvqM|pX|mJ}jav^Z\7fsUzrSxfenuaztaxjW}hQpnNoc]niazri\84jg|ze\8bnh\91x`\92oh\90{`\94~b\86t_\84~l\8c\87e\95}h\8e\80[\81\88f\92\89h\94\8bZ\90~f\90u\\99\84d£\90a£\91M£\90M\9c\8cS\9a\92O\95\96G\9e\82Q\96\84Y©\92W¡\8b^\9b\9cS¨£Y¨\9eK\9d\9b`\9d\9fc«\97P¡\9d]®\95U¸\9dQ²\9bS«£W«¨]®±Zµ¥_¸«X¸¬c¶²[¬«P¤¯[ª¤Y·«W©¥Y \9cT\9d U©\9bU¢\9f\\99\96g\97¡e\88¨k\91\98l\90\8fa\9a\90h\9d\99c\98\99[\97£a\93\9eg\9e\99\\95ªW\94ªS\91©U\8d¬H\8f P\9c®F\9c\9fH\97§@\98©A\91¥>\92¡; «9\98¥:\92¨>\8f¨H\85·A\89¯?\8d«U\8eªS\95¯H\89®R\85µH\81¿?\88ËC|Ç>~�=\88½P\98ÀT\98»Z\92·a\82ÀV\89»c\95¾d\93Æi\93³r§²m\9d¶d¡·q¬¯h\9e§q§«o\9d³c¢µc\92ºX\9d§]\95¦T\93¥a\97´f\95 `\97 b\8e§U\98²`\8a»P\91®K\86»?\8b²2\86¥A\8e¨<\89¬G\94°J\8a«@ ²E\94·E\9f°A\96µD\8f«F\95«;\8f¨;\8e£E\9c§=¢¢B« =¢ªE\97¢=\8f¥B\95´D\96¬8\8b¯K\85¡D|¤Bs¦M\86¤>\81§H\87ªI\92ªM\8b«@\8e­C\91\9cA\81\9e@\86¤G\89¹A\83¶:\84¾8\81ÂE\84Â7\7f¶Bt²Bn»El¸OyªZu¤\t«Qs¥Zz¥gq£ns«]n²[t¨\{¢j{¢`{«f~ªgo¦qx¨cq£kh¦ff±dU§nY«lW°rQ¨lL¥lP\9df^\9aaW¢[\\93]O¡^J\9d^N\9fP\\9dX^\9dSX\9cHa¡MaªUe\99QW\99WA:;86:?<$A5\1f:6!>H/:Q2;I)A@"O@([=8YHAPR6NO7PO8[O<WUBZX6^R4\[6\S9PX8Zi7Yj9dc<fa?g_AohIrfOiaHxhNuaPm[Jt]BrfJodMh_RpfPrqOyoVtfWvnStj`\7fac\82i\}tUwfephcrr[vr[yoPxiUvb^ngdymqvno\84\7fx\82~o}qs\87qe\8cyg\90vc\8c\85a\8d\82h\91\81b\8e\8a]\93\8bc\8a\8ag\83\88n\8b\8cg\8b\84e\95\80c\9c\84i\9c\87_\9c\88R¥\90O\98\97N\94\91U\9d\8aS\99\8aG¨\88T¨\84Y\9d\98]\9f\9cU\9e£T\97\99T\93\92U\99\9bZ¡\94Z¥\9a\²\9cOµ\9aS­\9dZ¯\94Q¨\9ca«ªcº­`·¯T¹±b¯¯_«¦T¢§T¯­`¯¬_¤ªU§§S«\99X\9f\9aU\95\95`\8e\9fi\8f\98k\90\9fo\8e\9fg\96\92_\9d\90k \8be\99\97f\94¦g\98¢c\9a\9e\\96 T\8d¢Q\94¬G\8eªB\92£I\98¦C\8a¥M\8c\9fJ\8b¦O\98¦L\9c¡<\98¢8\90¨6\85°;\84¸5\89°7\8a²L\90¬Q\8f·N\90´I\93±P\89¶N\82ºC\85ÆB\82ÆD}¹E\87»N\8d²W\8c­N\85¶T\7f·V\87º\\8fÄ^\98½e\9bÄe\9d¼sªºk«¬h\9f\9fj\9e h ¥`«©i¡²`\96°Y¡­V\9b\9da\9c­a\97­e\9b¦W\9a Z\99±c\8e²c\8d¬]\84²O\80µ>\8b³4\89¬7\90¬:\8a¶?\92¯G\92¨9\9c§;¡«7\99­@\93¬A\97¡; \9f8\9d¦8\98¢6\91¤4¢¨9¨\9f9¥£:\95\9e7\98¥<\92³;\8c®B\91¡G\88¤Nx«C\7f©@\86\9cE\92¥;\8f«>\88«C\85¦H\8d©J\91¨I\8c¥B\84¨@\89·J\7f¾D\87ÃA\81�9|¼=t¶=k¸Dn¯Mw®Xw§Ul²Zn°Zq²^{£o|¬st«er·`}±_uªXz­b\82±l\81¨k\83§bu­it©ca§ee¥o[ s^¢rS\9eqM\9biX¥cY\99[T\9ccN\90aU\95Y\\93VQ\9cVR¡QP¡UV£[U¡OR£H`¦MY\9bV_\9fY5;.54,:?":8\1fEI$EG.>N1EM%DD&PK*GO;MN>\N:Z[2XU8]T0aX1eK3a\9dR?dV>\b2Wh?]f:ekDgY?pi>naCqg?nj9ugEyiLyiKxdHljFrfO{aTo^VrqTwnStwZyqV~p^za\vj`|tTomWrc`roitp_ycg|fdyglssdtogp|q}os\81smy\80f\87\80u\8ard\8e\82g\84\80d\8bza\92\8cb\80\8cY\83\8d^\84\8dg\89\88f\83\8e_\83\80f\91\83d\8e\89c\99\8bY\95\90\ \8f\\99\97X¡\8fV\96\8eT\9c\8dA§~N\9b\84\£\93^\98\90V\9c\91V\95\99V\9d\95a\9d\9cX \94U§\92^¥\95\°\98U¶\95`´\9bW§\9eU¢¨Y¬¬X¬ªU²¨[³©b°´`¢¡\\9c®`­±a¡¤^¦§Z\9c\9eU\96\99V\9c\98f\8a¡n\95\93p\88\90q\97\95h\94\90m\8f\92j\9d\90k\96\93_\99\96^\92¦f\93©^\9d¬U\91§W\8c®F\8b°M\8b§F\99¢F\8a¥K\88©L\89¨G\8f§A\8f¦G\90\9d;\87¡8\96©7\8e£=\82µ@\89²9\8b¨L\87¯D\8eµL\8b´E{µR{µO|�D\80ÂJ|¾J|³S\81ºY\83¶`\88®c\83½U\90�g\90¸]\9c³o\95·j¡�k§ºn ©h§­l¦¡kª£c©¡[ §d\95ªa\93 W\91¡d\98\9cg\9b\9ea\99\9fW\8c\96Y\9a©[\93°^\89³L\88¯D\91¦=\8dµ;\8c±?\8f§:\95°8\93©>\98±G\9e\9d;\93­4\9e¨8\9e¤<\97\9fE\9f\9a1\99®>¢ª=¦\986\9c\9d8©\9e5\9c\9c<\9b\9d@\96­H\97®:\96\9f=\97¨O\82\9e@\84¥K\85¯G\83£P\86¤@\96¤?\82¥I\88²I\81®N\8e¢M\8d°L\81­E\7f²H|½G\80³Cu¹FvµGq²Nh¹Pr«Tm²V}¬\s¯Tw­Y\82«dv¬et¯oz©qp«`\84®[\7f´hx­h\7f«l\7f¯py­kw³me d`£ti\9bp[\9ep\\97zZ\9fmY£kYªbO¦l[¢nN\96aV¢aU\98bT\91TN£]J¥ZI\98IT¥Q_£T`«K[¬OW£PG3)94(;9*@B'7H#:C#9@\1eGK)GX&BT1GS6MY8TX4\^1WY,ZR1eU9^J@_TDgV<`XB[Z=X^8^j5gl:f]Ce]Eg^BdbGna;neBniIpjRunL}sDumKupE|gMzoT\81r_\82sZzi\zl_xpTxybtu`rhZvfYpagqfkkqkpmiore{trr}srxqrtizvmzzq\80\80u\8a|o\88\81o\88\83s\8c|i\86\8bk}\8c\\80\8cb\7f\8b^\88\92W\84\89Z\86\93Z\8a\8eZ\94\95Y\8c\8cQ\8b\87P\98\93W \95N¡\8cU«\80N¤\83K\9b\8bR\93\85Q\9b\8bT\97\8bZ\9c\88Y\9e\8a] \92Z\9b\91Z\9d\96[¡\98`©\9bd®\9db¤\9dc©¤h¬\9f_ª \\9f¨]¤¨Q°ª_¯®[¯§_ «\¢§[\9f¥S\9e¥_ \9da\9e\97g\99\9cd\96\9bj\8a\95k\8a\93i\8b\8fh\8c\90j\8b\88l\8f\8cd\94\96b¢\9bb¡\95`¤\97V\9c¥Y\90«X\91¨M\8a§K\8e¥F\8f¡C\96\9bH\97\9eA\8e¦G\88­@\85¨D\88\9dE\8d\9d9\95¢/\95\9f3\8b£<\8c«>\84«8|³?\86¹A\81±Ly·G~ºM{ÄR~¿Lw´Ky±V\82¯W~µ^\81µ[\83±a\80®h\8eºe\8fÀo\9c¸j¨¸j¦·j«¬g¥©q«¢n¨§g¤£i  [\9b¢W\9e\98W\9b¡b\90 a\95§e\8e\9e]\88\9eb\8e\96c\91¤Y\95 Z\96¤H\8d¥C\8a¯B\88«@\96­A\93²9\94¬7\9b±=\96¤7¢ 9\99£4\98\9f9¥¤;¡\9d=¨\9f2¤¨8°¨2«\975£\9a8\9e\9a7\9b¨@ ¨D\9d§B\9a§I\8e¡Q\90¡I\8b¢D\84¬H\81§I\8d­O\85¬N\8b©I\8c³@\89­G\84³E\83¬G~±=\84ªD|¯>{³By¼Ev¶AwÀFu¹Nv°Wm®PoªVx¶R\85·\\82¹V\84°bz©frªcp­my«m{«d}¦[{¨_vªfsªlm§cj¨gd\9bxn\97wk\8f}f\92v[\94w]\91lW\99aR\9ecX¡`Y\9dkO\9fnO¡eU\97aU\92cV\94UK\9cQM\9bJS¢O[¦Na§Zb­]^¢T;'&52$J9/D?0;I"HQ DG5RM6KT)RS2RT3VW;XS:\S.\N7RU2RT7VX-dZ7]T5fP7`YAXa:av.bm6b^CnSBmW9m_?lZAna7vuJod?ufG{jKilWstKzr\~iS\8alYyn^uwa\83sZ{uWmm^quhoeeqdTxdiqjuwotniunuxw}rrmr~mzykj{nx{\82rt\89u\85\84p\82\83y\8e\7fo\93|f\82}pv\8c_\80\8e\\80\83i\84\87e}\83Z\8b\8di\91\82_\8e\88`\9a\8b]\9e\8f]¥\83X¡\90[¤\8e\\97\8dM\96\8bD\9b\82M\99\88O\9b\80T\93\8dY\9f\86P\94\95W\93\91[\94\88]¢\89Q£\96Y¡\97`´£[µ\98`«\9db¦\99^¯\99Xª¥]¦\9dWª\9c`°¯^ª W\99¨]\9b£d\90\9fQ¡¢_\9c£j\97\95b\9b\8cg\88\93c\8a\8dg\83\96a\91\8fk\94\8fj\8a\94\\98\8fl\8c\8fa\9b\99g¡\9de\9a¢g\93¢Y\93¥W\85¨R\86\9fM\8f¦Q\90©H\8f£K\8b\97>\8d¤?\8e\9eF\93©>\8b§G\85\9d4\8c 6\8e¤@\8a¬6\84¡>\85±@\81²Ju¹B|½Kw¹M\85µD\7f´IwµN\86±G\86®Sy¬V\8a´d\80©T\8a²`\84·f\8e¿^\8d³b\9f´k£ºm¤¾o\9a±l\9c©f©ªe\9f¤i¨©j¥\94b\9a\9bS \96U\9f\9b]\8dª`\92¥X\8f¡S\8b\9cX\93\9cZ\8b\9aR\91\9cP\8b\9eL\91§>\8a\9fI\81ªF\8c«A\95­<\8b³9\93ª:\8d¦- £2\97¥;\90\9c6\93\98:\97¦8\9c¢.\9b¢8¡\9e4¨\97+«\9e,§\92:©\97@ ¥O\95\9dK\9b\9b?\91£L\90§E\8fªN\90¦E\90§J\98\9bR\8f\9fD\8e¨?\8a¬A\8e¨G\86¥=\84\9f:\80¦>\80¬>\81­H\80£D\7f©A{®Nx¹Rw»Tt´Ls¨Nu«Rv¹Y{´X\80°d\83´]u«a\83¤mzµe\81­`t³dx«Zw\9ddx\9ebz§hj§oq¯gj¡lj mg uh\8euW\8ara\95cT\95d]\9c^a\9fkZ\96t\\90kK\91cT\93bU\91\V\95XP\9c^X§U_\9cL[\9aN^¢Xh\9cSl ZJ/3B)/A**K6)BK2DP-KN-LT9JK1XH/QL8SJ9[D4TF/U>5SG0MP(T\*WO1^N.T\6WY9em6ep2i]?g[<^]7fZ=o`5n_=rj4lo<kcFwgGwmIkt\qn[suZuh^\88ga\80pcvwe{pY\81pWyc[idhqkdth^jcnjgnea{mdvljpmtlrvx\80nu\86lvzpv\81tly\88p{\88n\88{x\8czl\8d\84h\82\85u{\81r~\80u\7f\83f{|h\85\86i\87\8el\87\87j\99\8fd\99\90b\9c\80g¢\81b©\81f¤\86Y\97\92L\96\90M\9a\85K\9c\80F¢\82D\9e\86O\97\91W\96\97X\8d\90S\92\90W\95\8eV£\8dP¬\8c\°\9aV·\99Q´\9bM´\97Nª\9f\¡\9af¤\9e_ \99e¡\9f`¨«i\9e«f\96©l\90\9f`\98¥`\93¡d\9b\97o\99\8dh\8e\8ff\82\95i\85\90i\90\94k\92\8dj\8d\8fY\93\93d\93\98k\94\9bd\9a\9b^\98\97`\92\93j\95\93\\89\99P\8a£O\8d§T\8b©G\8e\9c=\8a\9aJ\97¢E\9b\9eE\93¤D\89¨?~¨9|¬7\89\9eC\86¤I\84¦@\83©Fw³T~½Lw¹H\80ÀG\85¹G|±H{·M\80±M\89¶K\8a®Z\86¬]\86©a\7f¬U\8b±X\90¹`\96³g\97³g\95­c\9f¶f\9d¼b\97°h\9a¬g¤®l\9a\9ac\9a\96Y\9f\8bS\9e\91Q\9b\9fT\95¤R\94\9b^\86\92X\90\97P\93\95Y\93¢Q\96¡N\8d\9b@\87\9eB\83¦G\83¨A\86¯=\8e­1\8f«-\8d£.\8a«1\8d¦0\95\9b8\92\9d5\93¥0\94\9e)\91¦&\9f .¡¢*§\9a+¬\974¦\907ª\88D\9d\90H\9f\9dL\9a\98C\92¤H\8b¥H\94¦O\96¬D\9d G\93\99J\90§L\92¨C\87¤L\87¤G\81¨E\89£>\84 D\8b¡E\89\9bM\82¢Mw§Pw©R\82µa\83´^\81²O~­O\87¥V\81ªcy°j}®d\84²b\81¤_\89§i\81°lt­av©eq¢bx¡az\9fku¦nm¨pt¨`h¤ek ra\99kc\93md\97bV\8bdP\8b_[\91cc\8dn^\8fl^\8acT\91^V\9f[X\9b_P¦_S eY\9ba`\9cQY\9dWX\90\e\96Oi\98R?*0=$7K18M60JA/QE6RU;NSA^V2^Z8WQ1JP:ML,WK-PG,^H5\N4\\#ZK&QK%SR*d\>b\:fl.m]:cb5oc9p`;q^>lbCwj;qvAoh?urBysMvu_wp]vkd~cZ\84db\84cnrkl\81k`{niqhiifcgl[lmdkdhqcvhiqkZvzekolt\80po\8bdq}nu\80|wz|uw\84wx\85ot{p\85\86|\85\82q|\8at~\81j}\81r{|o\81\83l\82wd}\83g\81\83a\8c~f\9b\8e\¤~g§\7fZ¡\85\ \86^\95\8c[\94\8aG\97\8eR\95\89?\9b\91Q¢\8fT\95\91P\95\91P\9c\96X\90\93L\95\8eQ \95I¥\91L¬\90V´\9bX¤\9cT¦\98Y£\9c[®\9dV«\99S§¨Yª¤[¥ a\9f\9di\93\9ff\95\97]\98\99g\8a\90m\8c\8eh\96\89h\89\8c^\81\91`\8a\93g\87\88b\89\8bb\8f\95V\8e\8cj\98\91b\9c\97j\93\9da\8e\94n\95\8bh\95\9bi\8f£[\94\9fO\8a£U\91\9cG\90\9dF\95¬;\99¢I\8d¥G\8d¢?\80¬I\7f£D\87¥D\88§J\86¦F\82\9eO{¤K~«Mw­Q}°N\89µ?\84¶K\8a­?\7f¯J\80ºK\87³R\85®Z\88±c\85³P}¯X\8d­S\8cµ[\95¼i\8f¹d\9e¶e£­h\9a°a\9cªn\9e¯a\9d¨i\9f©c\98\90\\97\9aS¢\97O\9f\97P\99¤T\91\97Y\8f\94`\8b\9dR\8e\94V\8f\97N\90\98P\87¡=\83¦:\83¯={«8|¤4\8c¤,\88©1\8d\984\92¤7\95\95,\8f¢8\95\930\99\9a+\93\94*\9a\9e3 \931§\955¨ -£\97:£\8b9¤\89>¤\96;\99\95M\99\95B\8c\8eN\89\99F\8e¡>\94\9eJ\8f\9cH\86 F\97\9dA\91ªG\89¨N\88£@~\9aG\82¨@\88 N\91\9cL\88¦I\92\99M\86«X~¯b|®b}¶\\82´^\81¨Xy«^\88²^\7f¥ht²b\7f­f\82ªg\7f±d\82§o} ut\9cpx¥n~ mo¬mo§ek®cj¬je£_m¤_j\9fmf\8akW\97_Y\85d`\90b`\8fl[\95jb\87ha\8ecQ\94k[\9bk[\98bT\9cbd\98Zf\9a]d\9bT^\9d]k\98\c\98Jk\8eN90<F.<A:@D84IF;VK=XO9ZTAWQ2VZ3[N+NL*OQ$SM%`O$_L-UN&ZQ+VV)UU)\d1eb6gf;ce6dj>gc7nc:heBhe<roAmrGxoCyhD\80rH{lKtoZruezi_zqa\81jivoqsgkvihymisd`yb`l\[habcgmmell[hq`ppe|zgy\89ot\86in\8aqi\83ynt\82zt\85~y\8c\82p\86vr\81w\7f\8cx\82\80s{\83l\81\7fnyxf\85oc\7fw`~\7fl\86}f\95}f\9bz]\96va\9e{[\95\7fQ\93\80S\97\85O\98\8dO\9f\94J\98\8cF\99\8aC¤\8eK¦\8aL\9b\96L  U\9c\98Pª\9cJ§\99M«\9bNª\97J«\8eS¥\96U£¥]«¨S¶\9eW³ W¦\9ce§¤d¨£b\9a\9ak\9a\95e\93\93e\91\94l\92\8dk\98\86d\8d\8cb\8a\90c\82\91Xz\8c`\82\85]\87\89\\85\94^\88\9be\90\90e\89\8ep\90\90j\9a\8er\93\93k\90\95q\90\9de\8d\94W\92\97T\98¤J\8d§B\97¨<\9a¬?\92¤<\8c§E\85­H\7f«?\80´L~®Sv³O~§U\88¦Z\82ªSw¥U}®Jz¢B\88§C\8f¯B\8a´D\84ºN\8f®P\8f¨^\86¯\\7f¾Y\82»U\86µV\93µ[\8a®k\91°j\90±i\97£l\9a\9dp\9e¤h¤¦b\9e£_ \9c\\9c\9bV\93 O\9b\9aU\96£c\9a\9bc\8b\95b\8b\9ad\87\95Y\8b\93M\85\9bI\8f\9bG\89¨J\8a©A\80¦@}®;~¦5{©1\89¦;\8e\954\8d\8e>\94\8f7\8b\8c,\8b\95)\8b\98+\9a\8d. \8b)\97\950\9f\934¥\9e5¬\924¨\953¡\8a0 \8f>\90\88=\8d\90I\8e\91F\8b\8dB\96\96@\96\99B\88¤=\87¢D\8a\9cK\8d\9eK\81\93O\84\95G\8b\92N\83\9eH\89¡J\8f¨K\93¦N\92 [\89ª\\83¬f\85¨g\86¬`~¦i\84£i~¤f\85ªg\81®fzªb\85³j\7f±h\80¶kw©o{\9duv\9bpz\9bsz\9fx{\9dtp«lh£dm¢ce\9ef]\9d[^\9b]`\8eca\96cZ\8ek_\91fg\87fa\84le\8cnc\89oT\8bq\\88kV\92hc\88bg\8b]c\96am\97Xu\94Nm\8fKd\90Sj\8fOH68=49;?;>G7KBBU?DSTEaTBN]DVR+JQ*UH!VS.RQ"SP.VN1PR VZ&Y[1WN)`W:_[9`e>k\*_i=n`7le9cnCpmAuk<pfE}dCycGzqA\85oNtm`~eTzdV\81dg|f_vljn_ovgd\82h]yf`rbbneeo^\obgxY`jerv]p{kmtgt\89pr\83gu\81ik\88zpzv~~\90\82y\8czl\82qr\91sy\8e\7f\7f\8cuv~ozwm\82uo}ya}~h\8arl\89va\8a{^\98~b\91~X¢ye\9c\82]\9d\84W\9f\86I\9c\93W\96\90R \8eO£\90P\9e\97R\9c\8fH \93P\99\94F ¢@¤ L¤\8fI«\95I\9d\98C\9e\98T¤\9aI¢ªO±¨P²\9bVª\9b\«\9cf¤©m¥\9bg¤¢k¡\92i\9a\9ce\8f\85r\8d\83s\95\8ai\87\8bm\84\8fa~\8dW\8a\92a\81\8b[|\8bh\89\91f\8e\89\\97\87f\8c\97l\93\92j\85\96o\94\91_\85\92`\8f\92k\8d\97]\88\9bI\8bªL\93¬Q\8eª@\99¬C\8c¯H\90¦H\88¡H{£@z¨O\82¨W~¥W~£Jy¨W|®P\88¨U\88\9fQ\87­M\84ªS}°@\89¯;\86¨D\8bª^\86®Q\88·d\8d¬T\82®R\91®Y\96±^\90¥a\85°e\8e¥i\9c\9fl\94\9cc\98\9c] ¥b\92¡`\95¡Y\99\97Z¢¤^¤\9aV\91\9fb\88¦c\83\9bX\88\92]\89\9cM\85\9aG\92\9dS\93ªD\97¦@\84§C\81¨<\84±3\83ª5y¨/}£5\88\9c4\8b\99<\92\92/\86\91(\80\89-\8b\88!¢\85$\97\8f*\8f\9f)\96¢0\9b¤0¤\974¢\96+¦\8f:¤\94B\92\95@\8c\8bI\99\89;\94\91:\92\93C\98\90;\93\97@\88¡>\8d\93C\83\8fK\8a\97E\94\97C\8d\98D\80\9f<\8c¢H\89\98R\89\9bQ\95\9b\\8f\9aY\8d\9dk\8e¡m\8b j\8d§a~\9cn}¡d\85£b\82¨l{¥k\83¦g{°s~³b}¯ls«o~\9alq\98hw¢lr¢ju _j¡ie\99[m\9c__\9c]^\9baX\8d]Z\88``\91ic\8ddd\89^d\8ff\\87nY\95pQ\8asZ\8di\\89\Z\98an\99cl\9b^f\9b\p\95[q\8bXj\8dSb\8fQD44?<7<:2GI5OA3TD@]M?XRKRRCKW2QX(US)^V.YX&O\\1fMV#MX)\a$S\/RX.__2[b:ja7gc/bb5i^5hlCchBf`Ey`Gxc@sa>\7fmK\81hFy`H}_X\80_S\87_S\90d]\88]a\81iiuhm{ccy]\w]RnbYqV_gU\j``w^_lXgmZryelvhp\82fk\8bsp~iu}ot\83~qy\8d}}\87|u\8fxz\8cww\87~t\81o\81\80n}mjzki\88rf\88uo\8d}d\89u^\91\84U\96\84Z\93{e\98}a\9b}[\98\86K\99\8aW \98U¡\95H\9b\88J \94Q\9e\99R\9f\90N \90L\96\95E\97¡A§\9f@¥\96D¤\96<\9d\9aE¯¥C¯¦J®§U¬¦P¤ªO  V\9c\98e\9e¡h\9a¤^¢\9ab\9a\99g\97\96h\93\85j\8f\82o\8f}s\91\88h\93\8c[\83\86^\80\84i\87\8eg}\8fm\81\8eg\7f\88b\8c\89]\8c\88f\8d\96b\93\8eZ\87\8cb\83\8dd\8d\98`\8f\9bQ\8f¤K\8f\9cN\9a£P\8f§C\8f§C\88¦>\8a¡;\8b§G\80«K}§Hx¦Ut£Lw¤Pr¬S|¥]\7f¬Z\83¡Y\89©W\7f¯TyµI}³C\87§I\82¦[z£b\80­_\86®V\8aªU\90¢P\92£T\88\9c^\89¢]\96\9di\9c¤g\9e§i\9c¤[\9a\9d_\96\9b`\97¡Y¤\9eZ\9d¢T¡\99[\96\9a`\87¡Z\82¦[~\9aW~\9cT\8b¢O\92£O\93ªG\95¤E\8f«M\91¬<\81­<{¤:}¨<\83\9c9\86\928~\93@\86\8f6}\923\84\88!\94\87+\9b\8a*\98\8e%\94\9a%\98\9a1 \9b3§\9d,«\9d2ª\909\99\94?\96\8eB\91\8b>\92\945\9a\8f9\94\958\95\8f?\8d\8bA\86\98A\8d\93E\88\8eT\90\8fS\92\8eA\85\8eF\80\91@\82\8fQ\92\96[\8c\90^\88\99c\81 X\8a\9f^\8f©c\88¢l\81\9fq\87\9ae\83\9ad\86¥l\8b®p\8aªo\82¢j\83¤m\80¬kz°b}¤`x\9bbp\9c[t«\y¡fz _o\9b[g\92^r\96dm\94bj\99``\8eae\8aae\83hX\8b[Z\83_Z\8bhc\8d`g\8be^\92ne\90_g\8d^c\96Ue\9a\^\95[h\9cNk\95Od\96]a\97Wi\86\>1FG;BFA>EBDRQFNGJ^NA\YCPLCHK3K]4SU5X](RW&M[ RT/[U4`c,P^6Te2X]8]cFan@ja:dd6q_=f]=mZCf\Fx^BoiA\7f]@\84fF\8bgI\7f[S\8aYT\8eWU\89Za\84da\87]i\86imr]mt_dq`[kZVhXcsYZkYWjOckYgzZnsTu}ahyhv\8buu\91wg~wh\7f\82q\7f\87x{\8e\81q\92x|\8b\86s\8a||\86\89p\89\81\83wr}prwnj\83ys\7f{m\7fzd\8fqb\87\81^\8e\81Y\8c\84_\8a\85]\9b\89V\9f\89S\96\87N\97\9bO¥\8bI\9f\92Q£\99W¦\9fQ¤\8fV¤\8dA¡\8fG\9c\97C\96\93F¥\9dG\98\96D \97O¡¦M§£Qµ§F²¤W¢\9cM¡¢U¤\9bX¦¨k\9e\99l£¤h\9e\9co\9d\8ca\97\88o\9b\82p\97\89d\8a\81n\8a\87i\8d\85l\87\8cc\84\86i\8c\88]\82\8cb\89\88d\7f\89f\85\8eaw\8fa\88\8de\81\86a\84\8dZ\90 ^\8a¤R\8a¦Q\8c¨J\9a\98R\97«O\8e¦A\93­<\8d§9\81¦B\81¦D}¤Q|³]x°Qw Jz\9eW~­\\83§Y}\9bUy§\}¹O\82ªTv°J\84­R\80¯U|¤U\8c´Z\8e¬V\81§Y\8f£[\86¤V\8b\98\\93¤V\94¤b\94£f\91\97c\94\92Y\9c\96h\98\8fe \92j\9a\9ci\9f\9d[\9c\9b_\91ªS\8d\9eX\7f¦]\81\9a[\85¨M\8e\9dL\86²O\85´L\91²B\8d©>\86¥G\86ªA\87¬=\88¤F\7f\962\84\96+\8e\8f9\81\8d(\80\95$\88\8d'\9d\85* \92!\9b\90*\9b\9a$\98\9c'\9d\9b'¤\9a6©\910¨\943¤\8f<\95\897\9f\8e>\95\88D\99\93@\95\8cC\9b\90?\8b\8aO\82\91O\89\97J\8e\8bK\8b\93G\8b\8fN\88\97D\87\94A\92\95K\90\99]\83\9dW\8a\9bk\92\90d\83¢h\92\92g\8b\97q\8e\99r\87\96q\85\9fh\8b\9er\83¢p\86 l\8d§w\85©j}¥nv­fu¡hz«Y\7f£Y|°b}\9e]}£by\9fTq\95Yl\94^l\96br\8a\d\90fZ\8ccb\84mj\80\j\83h^\8e[i\8cf`\89bd\8dn`\98_j\96\b\93ac\94_b\93Sg\9aWp\9cMd\9aae\9bQj\8fVM9?K:HM:IHJAGRMSOMNWDYUKPRCPPBSU@KZ=Le1Ub,M]1M[,P^6Xd:Za<Qa4Xc?alAer>bg<dgAj^<lV5kY:ue<ne3ml8}bA~`J\8aaC\8eYK\8bbQ\91Z\\85Y^\7fY^\82d`\89\b\7fZhu\_l[dvQ_pTcr_XiX]t]`pPnn[gwXoyar\86ls\85hp\88qk\82vi|\83i\80\88u}\84yv\8czv\85\82o|\84u\84\83yx\8aty\7fxn}xss\87po\86yl\8ato\86zc\8byW\81{[\8a\80X\8a\8eT\8c\8bQ\98\8fS\98\8fH\9d\92L¤\8cR\9f\94P\99\98Y\9e\9eR\9c\9eN¥\95D\9c\91E\9f\99G\9b\9eL\9d\95C\9a\90P\9d\99T\9e\9dW®\9cN¬\9aJ®\9fR¦\96X¢\95S\9e\9ccª\9edª£c¡\9fj\98\9bp\98\8dk \92n\9a\86h\8c\82g\89\82d\8a\81o\96\8aj\9a\8em\92\88e\8e\94d\7f\93_\80\99cy\90_|\9c]q\96hw\99hx\90hz\9ac\8b\9aO\87¤N\8d¥K\99\9fM\95\9dC\92¦H\8f©G\94³J\8d«@\85®F\7f®C\83§M\81®Uu¥Wy¤Ux¤Ly¦Ou§V~¦Yq­St±Rs²T~­O|§Sz­N~¸M\87³V\86°a\86§]|\9eR\80£T\80¢[\8d\99V\8e\9eN\95\97V\90\90V\9a\8eZ\9c\91e\9c\94h\97\9dm\9f\9eg¢§\\94£]\85«b\82©V\80¢Wzª\~©]\88¥V\85¨V\87µG\90µD\8f®=\8f°F\86¨F\87\9dA\8d£B\85\9e>\89\93+\82\9a0\8a\9a+\84\90.\8f\90(\90\890¢\8e(¢\8f*¥\98+¢\9b&ª\8f+¨\89%¦\93+ \97/\9f\8b8\99\92<\9f\872\9e\896\90\94H\8d\8aQ\90\90M\8b\8bK\89\93V\94\91M\8e\8bO\96\93E\91\95I\96\9cM\8f\95C\8b\90O\89\8fX\91\8fY\88\92c\88\8c_\8a\95e\88\99n\93\90n\8f\95y\90\89w\8b\89y\85\94y\88\9cu\87 w\82§k}¥nq«er¥bp©Y{«`y«ey§av¤ew\9c]p\93bt\99Xt\91Ov\90Vm\98_a\90]_\88h_\8caf\8eZi\85ac\82ke\90gk\96iq\91\i\95]m\98cp\91Wg\91Zo\92^s\94Qr\92Qf\9cTm\9dMl\92W9>B=CJK<K:HIKMARXQ\PN[[IXYKRR;MN<Pa<Tc7P_<QS4TU6Jb/^b>Yc6Yf0Y]7]gB^bGZd:a]9k_:j_:q]2y]>ri0\80fC\85gD\80gF\87dG\8aiJ\92_[\89\N\8e\`\8cd^yaezkZ{Zc{aXhZhxa`nXXhOSsTVoO]uSep]hrihu]l\84qi}mn\8b{j\8c{i\82}iy\83nw\82voz\81x\82\7fsz\89t\86\7fx\83}v\7f|y}~\80mt\7f~z\88\82k\7f\82r\8aql\82zZ\8a\80U\8d\88`\8a\86Y\94\8dS\8d\8cM\9b\8eX \9aH\9e\94G\9c\8eL¡\93O\9b\99S\98¡X¥\97J¥\9aN\9f\92M\9c\9eR\94\97M\97\95T\95\9dV®\9bU°\9cO®\94J°\9fY±\94K­\8eV®\95T¨£Z¥\9bh© d\9b\95b\8d\94e\9d\94j\9b\85b\8d~d\8b\81c\8f\84]\9c\8ck\9b\80`\95\80k\95\84^\81\90W~\92a\80\88ds\87dv\8eb~\8fgy\93p\7f `\8b\9dP\84\99M\8e\97M\86\9cE\97¢B\8a­P\85°S\85®E\86£J~­G|¯Lp£I\7f¦Sy¥X}©W}¦_r\9e\w¦V\83°[x¦TlºPy§Zx«L\82¢Lz®JxµR\87®Z\81°]\8b±[y«[}©[\85£V\81 X\85\9bX\97\98Q\97\9cW\98\9c\\9a\93c\98\96j\9a\9bc\95\9de \9dU\97¢R\8d\9f[\8e¤N\84¨\~£U\89®]\82¦I\7fªU\84¯G\86²B\8c¦A\87¨=\83ªH\8c :\8b\9d9\8d\972\8c\96)\8c\97.\85\8a(\97\94+\9a\942\9a\8d*\95\87/£\95*±\93-­\95&¤\94&«\953©\93$ª\877¤\944 \8f1¢\8e0\8f\8bA\91\8eK\8b\8bG\8d\8fQ\88\86X\8c\8aR\86\95K\80\8b@\90\88E\94\90G\99\90B\91\83I\8b\86S\8e\8eT\8f\90\\8b\96c\81\90m\88\92k\8c\87g\8e\92k\88\90m\87\89p\85\8bn|\8er\80\9fq\81¦m\88\98mv¥x}\99sl\9few c|®jx fz£pz\98j\81\9dUw\94Tx\94Qs\99Vw\91`v\8bba\8cQ]\86T]\8c]Y\83_[\83ia\7f^c\8eih\8cal\8fff\89Ym\9a[l\96`l\93Yn\8baw\8cMt\93Qg\97Ud\93ag\8fV@=T;AK=CF;?K;LCKPFUPD`RDTWCXUA[]CTZ;OT6IX?HZ0JM.NO-T_1XY5`Y/\Z=c`Gb^BZg=aoGogHsj>q`;\80`8\7fb<zgG|ZNwiL{fB\87kH\8fkT\8e_T\89^T\7fjR~l_w^c\81`YweXj[_iX]vWWwRNmVVrTdo\mihtojo\80cf\81hh\83ir\87vk\8ctp\85\80oz\81twwxxvys~\83gs|gx\85sn\86xt~yp\7fyry\80{v{}v\86xj\83we\84~e\89\8aU\81~Y\87\82a\8a\83W\89\89W\9b\95Q\9d\99R\98\9aM\91\94Q\9b\98L\99\9cT\98\9dU\93\99Y\96\99b \9bZ\96\91X\9c\94O\9c\8bW\9d\91W§\8aT²\8eU¸\92U·\9bT«¢N®\98R§\95S¡\98Z \94Z\9f\9e]\95\9ac\92\8ek\8f\94i\99\8bb \87f\9b|Z\9fzV\94\89`\9b\90i\98\89a\94\93d\90\8f^\87\84Sx\84Xv\90c~\93a\83\9af\80\9bi\83\9cW\82\9fP\8b£I\88\97N\87¡L\8d§E\84²U\8a¬T\8c«V\8a¤L\84\9eIr©En¡Go¨Ln¯^x¦ak¥eo£ax V~®\q±Ttµ]p¨Q|£Vx¦\z¬S\81¤\\80ª[\86¶X\82¶Qv°Xv¨Q{¤Q\85¡R\80¤[\88\9bR\84\9ec\84 b\8f\9d^\92\8df\97\90m\96\98d\94¥b\98 P\93ªT\93§W\88¦U{¤Y\7f£P\89«F\8c´N\83¹U\8eºP\87¯E\8b³C\8d¬>\89\9bB\86\95?\93\933\92\9b+\89\8f7\8e\8a4\92\8f0\9e\89*¡\815\98\848\9f\89*®\8c*¡\8e0\9e\8c.ª\822ª\83%«\8c$¦\8b4\9d\8d1\99\8b9\8d\95C\90\92H\83\87L\87\86V\93\85Y\92\8bJ\93\89=\83\90A\92\86B\90\89R\95~J\91\7fK\93{H\94\86I\89\8eP\89\90a\87\86m\8a\8ch\8c\8fn\8d\8cv\83\94v\82\8fkz\86s\80\86m\89\8as\82\9eq\81§z~\9eyz\99qs\98s{¡tt¦mw\9fo\82£m\82\97f\87\96\~\99_r\92Rt\8bWx\8ebr\8b]i\93Qi\8eP\\7fV\\84U[\84eZyce|[i\85_a\8fb`\8dbn\8abj\90[d\8b_k\93\n\92Xn\87Wp\87dg\88`g\88f5@K>GR=FS9HO>LCCLJVOEYG@RZ=MW=NOAPXAMNA=Z9HS6AJ:AQ4V]+[S0U\9`b<i[O^aHegEkYLt`GsdHn[A\7fYE~\P\84gN\84_G\88`M}c?\83lN\90gK\88kR\83fV\87fZxe_\85`_yZ[xd^lS]}Tf}R\wUZm[[{\fsfkzlh{nu\81nj\7frj\81ooyvzxwr\83~|\83~q\7f{\80{p~vo\85p}\7fos\8fht\84z\85\8cq|\89oz}z\85\84q\7f{szk{wjz\83Y~\83R\7f~U\8bzd\7f\88]\91\82U\8a\93P\8e\90M\9c\90M\8a\8eQ\8a\93X\93\8ec\98\9cb\99\90X\99\94a\9f\93]¥\8fW\9b\92X\9e\8eW¥\93L±\92M·\92Tª\8fP®\9fO±\98P\9e\9dU¦\92d\94\9eZ\96\9f_\9d\97]\9e\9db\95\94q\8e\8b`\9b\94Z\9b\8bV¢yR\98\83Y\91\8fd\9f\86f\9b\87h\92\93^\91\91m\85\8fk\81~Z|\81g\84\93a\82\99c\83\9ah\83\92Ux£T\88\9cQ{\9cP\82¡I\86\9cW\89¨V\8eªS\8c Y\8c©M\81®Rm¨Tr¢Vo L{\9dW\80\9feu¡co¥\r¬Yu¯dr¨Uv¬Wl­Tz¢Zx§Tq±Vw³Mo¶Nw´On·\|©\r±]s ^\85«Z\83¦N\86£M\84¢]\81\99X\8b\96f\90\98d\8c\9cc\8b\95d\8e\9d^\9c¤X\92«O\90«M\81 J}¡S\7fªV{©J{¶Lyº[t²H\81·;\80¸5\90¬5\88¢7\90\9a?\91\9b9\90\997\9b\8f7\8f\812\93\8e<\93\8a)£\874¢\81A\9a\8c9³\916ª\8d/\9c|3¥\88.¥w#­\81)§\88/\9e\8b:\91\8eC\8e\86H\88\8aD\91\8cR\92\89O\92\8eW\89\93U\94\87M\8c\93G\83\88L\86\82S\95|Q\8e{T\9cyQ\9d\8fI\97\8cS\91\91T\8b\93h\8f\8ea\92\94j\93\83q\8c\93r\8d\89m|\92s\87\85p\84\92r{\9dz{\9fy}\98|z\99up¡ol\95lp¢x\81\9ei\85\9ct{\94`\8a\92dv\99[y\92Wr\8bWj\89gq\8eZe\8bXd\8a^_\85\b\85ag\85e[\86]ft__\87ed|[i~ce\84\p\7f[b\7fZo\89ac\88Qp\91fm\93]k\88_j\8abH8JE<GJHG?GLEKGH@MNOPVMLQWCOW9K\8OP8IU0@W9EN4AK@@F>GI5IO;[S:\N@bZLb\NbVLhQSv]Py^TvbKtbNycS{XY\89^P\8c[G\85fH\85rG\84oI\8atD\88kJ\80sN{oYtb_}bhvgm{Zc{a^}WizZeyi^na`sfhpltxsqsty}\80v\80wpy{xzx\7fzl\80{g\7fzr{xvu{n~kx\81h~\87k\8b\8en\87\8cw|\8es\81\88o\87\88n\8c\81p\85up\83hq{e\80\84`\87wc\87y]\8e\7fV\87\86^\8d\8dT\8d\93M\8a\88P\91\8bO\8c\86Q\8a\91b\89\95Z\8e\8fV\98\97X\90\99_\93\99^§\95P§\99R¬\92M¬\96Eª\88J¥\92L¬\93W¦\95X\9b\98b\93\9df\98\99`\9b\93c\9d\8fi\97\93h\98\9ae\96\95Y\96\93\\92\85Q\9e\85V\98\86b\9f\89h\98\92k\93\93l\86\8df\82\8bo\8d\88h\86\86f\7f\88f\87\84\}\93\\7f\94^}\95^|\96`y\90Px\92Nq\95Mx¡\\80ªW\83ªV\8d¦Z\86¨]~¯Sx§Q\82¤V~\9bY\7f\9dWv\9e[z¦Ut§S}«Uv³[i²\m¨[q¥Ws©[n®Wh²SfºYi±Qh¥_h©\k­at¯[\80«Vz¥ax¨a\7f\9eS\86\9bR\82\9dP\8c\98S\84\95a\7f\96T\89\99T\85¡L\8e«N\8c­T\90ªK\95®H\89¤O\89 Ox©Vs­Tt­Qm¹Ju¶<\82¸9\85­4\86¯1\90£/\90\9b/\94\948\8d\89?\97\83<\99\811\99\832\9a\8e/\9c\8c9£\929¦\8b7ª\857¨{(¦{\1e y\1e\9e\87&¢\891\9e\843\97\87>\99\8d@\8c\86O\98\89M\92\90O\90\96M\8c\93R\84\88S\8c\8aH\88\8aG\87~D\96~S\95|Q\94\8a^\9e\86Z\97\80W\99\88T\97\90b\90\8ah\92\8dh\96\8am\8c\86r\8a\8fu\8b\82t\85\86l{\92t}\91{x\95}z yn\9b\7fq\9cst\94|w\8dz{\8dxz\99iy\94g\87\9b_y\8da|\8dXp\95Zi\8baq\86Vh\87Zg\82^[\83WY\80PdxVayaY|[_\80Z[x`c\7fil\84dq\7fZf|^b\7fde\82Zi\8c`n\8d`x\8flp\90j@<CH>EE@PDANHKRJLWRNTQJN[FMLQ>\V?VDCJL5DS7JR=CILNTACR;UOA[X6eSEZ^Ig[FXJWdUIm]GpdJqaO|_L\83YK\86cO\80]L\83gU\8dfV\8deK\8ahO~sZylS~sRmg`u_]zch\81Z[y^Z}U`yWl{ek\80i^rij|gpwqp\83tp\7fpm\83|q~\80p||qymv\7foxxp\80vp\80\85qz\82w|py}sy\90j\84\8dx|\80rz\87iq\83l\88\8cr\89\86k\8bzmzlv\88eozgw\83k\89rg|}c\8a\86c\8d\92\\88\91V\80\8aZ\8d\8dW\84\8cX\92\91b\93\93j\8a\8dX\8d\95X\97\96\ \9cU\9d\9c[¡\98S©\9bM°\8eO¨\98O©\92U´\99M§\91\\9f\8dd\9d\93Y\9d\9eV\9d\8ae\97\88[£\97_\95\96Y\94\96X\99\90V\92\88Z\91\7fQ¡\86a\91\98h\8d\93m\91\8cf\86\94o\87\8fn\85\8d`\91\8cd\8e\8eT\87\94]\8f\91b~\93_}\99\\87\92S\83\96]o\91K|\9cJq\9bR\81¥R\80£b\88¬W\82¦\\88¬[}\9eP|\9c\\88£_y\97]p§^t\9dcz¨Zs°]nµPt§_h©[g¢bk¨fq²\q®So¸Zq­Qn«Yp§cjªSr³b{«ct©kwª`\83\9d[\7f\9aM\84 L\83\8f[~\9a]\7f\96^\86\93W\87¥U\8f­P\8d¡O\8eªL\90§O\82 Q\8a¥Qy«F\7f®Q}¯@~­Kz­Hz´@~¤1\83¦9\8f\9e6\94\9e9\96\8e+\97\8d8\98\93<\95\819\9b\851\92\840\9d\8e6 }3\99\85@ª},«\830£v)©l"\98z" \8c/\8f\83:\93yA\96\80C\9a\8aS\89\83Q\97\92E\95\97K\92\8dR\8c\85Y\90\83N\85\88M~\80J\8a\83Z\8asO\96\81]¢}b\95\87V\95\83^\90\82a\8b\83[\8e\7fh\9c\83^\9a\8dt\91\90x\8a\7fo\95|n\85\8dy|\83v\85\95}~\9a~r\9ert\8dxw\8f{w\86~}\88m{\92i\8d\92c\84\8fiy\93h~\8c^n\88[c\95`r\8f]c\83[\\83ZZ~`ZzTh\7f[f|Q]\80aX\80Zg}_g\80e^\82f\w]_xc`{\^\7fZfvdc\8alq\85bo\8bv=KN@KQ?=J9@TF<VMGOMIYMHVQLOWNMWG<\@<WB:IQ7CUGHJF?NEESFFS=QK=aSCcXJ]OIWLP_WJiVHeZRpfOxXR\84YL\7faP\85ZM\8aWQ\8cbS\91cZ\8dlW|bbzf[taWpi\xja\81``w^e~bb\81`ly\lue^}f_|jbvif{hu~mv|hryrj{vi\81yo\89\7fv\84v}\80x\81\80qv|k\83|p\86os\8ds\81\8bm\87\83t\80\84ru\90ir\8ed\80\8ah\80\88u\80vq\81mo\80wn|tsyl{zj\88|h\88\8b`\80\88`\7f\94S\85\95Y\82\91[\88\90\\8d\93h\8a\94d\90\90k\90\94g\92\98X\99\98U£\91V\9c\94S¦\95R¦\90K¬\98S±\98Q¬\8eT \89Z\9a\89T§\8bX¦\93\\9f\87T¢\89Q\9e\90U¢\95N\9d\96]\9d\99^\98\92V\91\87W\93\94W\94\96b\90\8fg\8c\91e\8c\8ef\94\8bc\97\95T\94\95U\88\96a\8b\97\\84\95\\8a\90Q\82\9cV\88\96T\7f\9fJv\97Nt\97Jx\9cQ\80¢S{©^x±X\84¬T\84¨T{\9eI\7f\9cK\80\9f^~ Zt\9fZo\99by fz®Wo¯Uv¤al¢bv¨eo¬jt«li¬caµah¶Qr®Tp²Yf§cl§[i¦go it\9fX}¡W~\97R\80\95W\80\96]\88\97X\84\9bU\7f\9d]\86\9bQ\8b¢T\83\99N\7f\9bS\8b\9fS\85§M\83°P\83©G\84®K|°=p¥@r«C~¦=\82¡1\84\9f5\89¡6\84¢:\86\98.\97\973\97\92;\92\84:\99\81<\9c{A\95\828\93\85:\99\7f@ w2¢z1ªw& l!\9dr*\94}*\91s)\8cz5\97\7f8\97\84H\93\8dE\8a\8cK\92\88P\91\8bW\96\8dN\90\8aV\82|\\7fw[|tb\87y[\8btT\97u[\98w^\91\83V\8c}[\8c\7fX\93\80a\98\7f^\9d\89f\93\89o\8c\8ct\96\80s\94\86v\85~{{\8f}|\96~{\8doz\87py{y\80~}~|w\84\82u\8f\81x\8d\8dk|\92ls\92jv\89bm\91gn\8den\8bZg\8dTa\87Xa|[j\7fRdvX[vXesWdsVY|c]{abr^es_^t^[ric\7fm`{oq~ls\8bp@EJDJMDKP>9W:JRJIVIJUMANLLOWIQ\JLcEGKN5HS2OFCMTETIINJISOC\G7WX?aZIVUHaDRiKFnSQjSMn[R{cWpYSwdT\88[O\8d`P\8dZW\86_T\8ea]}rZ\80tawj]qg]zj]ol[|b[yrb\7f\_\7fat\82eazbe}hd|eguet}w{\80xt\8ath\8arf\84|o\80\82u\86r|\87u\81\82\81w|}\82~y\92\7f~\8dj~\93{y\91t|\92xt\86kl\99mo\8bes\8eks\80puvv\7frqy\7frym\81~x{\84o\83\8fez\8dc\82\8b[z\92Y~\93a\82\8e[\87\93c\88\8ek\8d\96q\95\94a\96\8cf\93\8d`£\96c¢\9b\®\92X­\91Y±\98b°\93Y¯\8eP¦\86X\9a\88I¦\82Y«\8dU©\90M«\88H«\88Oª\91G\9f\8eU¡\9f^\98\9cS\91\8bU\93\98V\9a\92Y\97\99a\95\92f\8d\88a\9b\91U\90\8bP\8f\91\\93\90]\85 T\88\91N\91\97V\88\8aP\8a\8eX|\93H\81\99Fu\97U\7f\9dSo§Uw R|¤Vy Ux\9fSx O{\9dUu¥Xy bx«cl¥cp¥hq¡ht¥Vw¤^r©fr©le§sk£j^¡[m­Xj¯^q©bg·\o¤Wr©dl¡hn¨cqªarª\~\9a_\82\97Z\82\96c~ S\82¦Zy\9aS\86¦I\81¢G\85\98N\84\96N\81\9bD\8fªC\8c£L}¥A}ª<w¤B~¥9x 4u\9c0\7f\9c-\84\952\86\984x\99<\80\954\87\994\94\956\96\927\98\858 \81>\9e\83=\92\86?\91\816¡\830¡~+\9bv$¡j(¤{'\94s%\90p.\87x2\8dvD\9c}E\98zG\89\82?\94\84P\92\84M\87\88V\88}_\82xR\85yT\87}T\81vc\8dl^\8eiP\99{Q\97tZ\94\82b\84qe\8e{e\8f\81Y\97\89e\8c\81d\95\84q\97xt\92wl\8bz|\8b\84~\82\89w~\8cu\85\80p~\81v\84|z\8a\81y\8b\83r\80\83q\89\89q\7f\83gk\8din\8fjh\87ts\95ii\8bhf\8b\d~[q~_hsWeuQa\7f\cr]es^gpWVxdYn\euqaujXnoUox`usivuu\82mCDV7KQBGX>=YI9ZDENAFKOAOIGDNBDZHGYEASIFOO;UM8MNBLE;ZHAaA8VI@^IM\QHfSFaKMdPKiMWkXMj\ToSNmYU~\W\82gU}i_\82aW|e`\82c_\82sf\80rf\86ogzn_ty[lu[mr`oqcnih|enwfcwdf\80_g\84hxykp}xv{|s\8a{l\8dpk\83vr\86|s\82\7fw\7fxz{\81yu\85\89{\82\8c\7fw\87ry\90zx\93r{\8ftv\90ol\92qk\8bok\82no\86jt\7fpl\83uty\7fx\80w\86x}\84z\80\8dw\7f\89g\81\86g\85\7fl\89\87a\86\85l\85\89i\8c\82q\8f\8bg\92\91^\93\90f\9a\97q\9f\9ck£\9c]¤\95_¡\9ad©\90`¥\8bX¡\87M\9e\88D\9e\8aJ¡\88H¬\84O¯\89D«\87E¯\86Eª\94J¢\99H¡\98P\99\9cH\96\98M\8c\93T\92\9aY\90\90V\93\8ad\8c\90U\92\98Q\98\9cK\95\95Q\93\90O\8f\99R\90\9bL\8e\91V\85\8eK\89\8eK\81\8dI\82\9bMy\98Tw Pt¢Yr\9dSp\97Pt\97X\82\99P~¤Vy§_o°\t°mr±nr°mk¥po\9fjt¨do­bk¥^g ad©kc¨`\¥`h¬gh±fn®cm¬cj©dm¨h|£jy¥a\80ªlw«hu°e\80¤b}\9d_| [\80\9fP\80¤Kx\9fNw\99Fz\98G\85\9bL\81\9fA\89«G\83«={\9d:x¡9y¤<}\9a2\7f\9b/\80\997z\9b4y\9d=t\969s\8e4~\891|\957\81\928\88\8e8\99\8c<\99\8aC\95\84A\9b~<\9a\838\95\81:\9c\83/\97s5¡p)\99s$\99v.\98z;\91t@\96{C\98zE\93{I\8f\81C\94yC\8d\7fM\90\82Y\81\81\z\81_|}[\86x]\84r]\8awU\91mV\93oV\94v^\95w]\8atd\8e}]\92\7fa\8c~d\8b\7fj\94xu\97vr\93xx\8c}o\8d\85|\8b\84x\88\83}\85\86|\8a\80~\88\80|\8c\8cz\80\8er|\92|\83\8by{\8dqr\81mj\7fkk\8auj\84le\8blc\8bfl\80amtdlu[es^k|]i\80ek|[`\7f^`q``vgZkranuYmsgo|djymqng|o?BV6DWDIW?FYO>UHFRCAQD>UQ>DMB>PCDUKJ[KKLREWGFJCKLTFWJGTHNYAKRPF]^Qd]UaXMZY[bUZmc]hfRvdVyY]uWV\85bU\82Z\v\dv]eu_^wfn}hs}ngva_{gbuudyjmzqnvikycg~al}nrwgrzilurx}~xuxp~~i\7furztdw|n~\87s\84\83o\7f\8dt|\8c\8d\80{\97\80\81\8byq\9dt\81\93p\85\97nr\8enz\99`y\8bnu\89cq\88k{\86eo\81kqv{}os\83{y}yv\8azy~j\7f\8cd{\8f^y\81a}\82mw\86i\90\83c\8d\8bi\8f\95h\86\91o\9a\9as\99\9ds\9f\96n¡\87d¡\88c ~h¤\8aS®\89[¦\83S\98\83C¦\87Q´\89L£\82P±\8cF\9d\84L¨\89I\9d\92T\9a\8cX\99\97K\96\8aM\8f\91\\98\93a\85\95_\83\91Z\86\8bS\86\91L\87\8bR\91\90Y\92\97\\8f\95]\88\8fQ\8b\90X\85\93X\91\92B\84\8bR\80\92G|\8eCv\97It\96Hp ]x\9eRp\9e`t¤Lx¥Q\7f\9dRp©et£lt¯ht¬kp\9crv\9fcz±cp¬Xa®W`¬\]¦qa«`d\9ejb°ep¨ti¬ok£hpª`h¤lt¡ip\9fft¦cg¥d{«k}§hs\98Zy\98O\82¤Z}\9cU\7f\97Uw\91P}\98F{\9cK\86ªE\85¥K\89ªB}¤K\81¡=x¤Fx\9cGy\95;\87\987\84¡0z\9c?{ ?r\862\87\810\83\847\84\86B\96\93@\9c\89>\97\93<\8c\8dF\97|=\98\893\9cx0 \81+§v$¨t\1c£q-\90q%\9eu/\92q;\9dy?\92{6\9bx<\8c{D\8b~;\8b\85C\84\82Oyr[\81w]\88rd\85rT\8dyS\8fnU\87rR\94qY\8e{a\8bzY\8c\7f]\94\83l\99vj\92~g\8e{n\89ro\8f|u\8est\90\85h\91|n\90\8b}\8e\7f\84\96z\82\88\82\80\8by|\87\86~\8f\8a}\8c\89{\87\88{\83~q}~l{yq{\86vi\82mf\8cio\8cok\8bih}[sx`dyghveqq`p{W_n^c\80W_xn[epZhpbsklo{c|\82syri\83p=MY<MR@RMLHNV>IQ>LE4VI;QQ=DY?H`GS^GP[FOWIKMLAJHCTHE]VRXUOXFIYKTY[NVe\\cXYZbb_]`h`ie]m]U\80ZV\84UV\86\T\82b_yhhqjjw\ekcbn^nuemtdhuj`vlermm{gu{nmqoprjvthpyqisjmvsn}x}wxxm\80rv{n|~ep}`t\89l{\8cw}\8f}q\81\8fv{\92xw\9a\82y \85{¡y\84\93sz\94b~\95cz\8fdr\7fay{fr\85c|\82k{ws|uz\83p{\7fvwytz|x\89\8fl}\90az\84f\81}`z\80i\8b\83n\8f\8ds\8e\8fq\87\97k\8b\93s\94\90l\9b\89o\9d\8ae |h¥{a¢\7fV©zZ\9dxK \87I­\8dD¯\8fO£\92S§\8aW¤\8dM\9a\80H\9a\88P\9f\83X\8e\87S\8d\87T\87\92S\8c\93]\8f\94f\84\87]\8e\90\\89\96V\82\8bS\89\89X\88\88T\8e\87V\97\83V\94\8cd\89\8dT\8a\94J\7f\8bM|\89C|\88L}\92G~\9bGv\97Xs\9f_x\95Ws\96\{¢O~\9fUx\9e`k¡ek\9bij¢hg iq¦a~¨Ws®Th«]i§fa´g_¦rn§nv£un¦sx\9brr¡or§ga§ci\99Zh\96`o\9aff£fu\9dg\7f¥_\81¥Ru\98N~\98Xy\93Yy\95T\81\8fPx\92Ax¢=\81¡C\87¨?\80©N\83ªL|\9cD\7f\9fH\80\91B\82\91H\82\95I\7f\9c8}\939w\98<\84\8dF\80\82?\88\835\92\84;\99\8b?\91\8e>\95\8a<\8d\8b;\92\885¢~9¨q5\9ep(\9fm$\9eo\e\9cp&\97l&\9en)\9dl8\94t7\90{4\8cu8\92y6\98q6\95zD\88sQ|oZ\84nX\8awb\90s[\86wY\83wa\87z^\94qS\92xW\97{f\8a\7fe\92}n\98wg\91tj\8e\81u\87sp\8drr\9avl\98\84j\97\8ek\92\8d}\9a\89\83\98\7f}\87~z\84sq\84zy\92\87x\8e\88~\81\88\80yz\7fzxq~\84x\83\84p}\85jq~mw\8fry\8egq\90dn\84_nxbjtehmXdpV^pY`~WiwYcnljlt`zpd\80wr}yo\81wv\87k<MdBPUBKURNWZIH[CJP>OK<VWBSXEQaCVUGRTL\aKPKTSOQHVRGdYTbONVSF`PQ]PT\`R[_`^e`lU\fgUqfXnfSza\\84W\\86^Xx^Z|[ey^a}Wpz[jxbqv`wvkqu]or]tubtu_v|`myey}pluczvij|vvwhvwwtrnpx\80oo\81ou\86`p\7fiu\87l{\89t}\87\88m\88\82z\81\8eu}\92\89\85\99x\82\9dz\83\90s\86\98c\82\93m\87\7fn\85\81`~yi{\84mu{u|\84q~s~sxx}o\88\83m\8c\82t\80\85t\84\91r}\83t\87\89dx\84m\8b\82n\8b\8e{\81\88h\89\8cp\84\95m\92\8eb\93\8bm\90\87p\9e}k©qf\9bx]­tR¡xK\9a\83Gª\83N¬\89O\9f\8fS¨\82V\99\80H\8e~H\95\81K\99zU\95}`\90\87e\8f\8b`\84\88i\82\8b^\8c\89R\81\84S\84\95c\8f\89X\8a\88U\8b\82W\83\83]\87\95[\95\8e\\95\92V\8a\9fL\87\8aH\88\82@x\92M\7f\90@|\8cUs\97Un\98Ov\8fYo\94Vt\92Mt\93Px\97To\91kb\9ane\9ake [x\9ee}«[q§Tiªdp®ja¸[h²fo§bw«mr­hn£fq rk\97pb\9bg^\8ffe\89n]\9cig\9b`g\9e`|\9dey\94]y\9aOt\9dQ{\8aZt\8aTy\96O\87\90Kz¢A\89\9a:\89\9fF\8b\9fE\7f\9fJy«G\81¦Q\84\91I\87\8e=\83\8e8y\98?v\99>m\8e?|\83B|\88B\83\84?\8a\838\94\804\8b\87A\8e\93=\89\880\9d~2\9cu1§~/¢z,£o"¦k\e\9co"©m. r5\97o0\92m5\98z-\9ay<\99v.\90~F\8e}L\8ayL~h_\82x\\82xX\83vW\91q]\8dvV\8fyf\90\84`\89zV\8bz\\92wa\91sg\98vs\95xf\8f\80r\8b\7ft\8flk\97yk\93\87n\9e\88v\95\8a\81\90~v\98x}\99~n\87xu\8f\81m\92\87q\89\7fv|~~\81\84}\8dxw\83zv\8e\80n\81vu\83\82n\83\88bx\8fet\7fgs\87bm}gvpnjqWry`iwQcvTgu]ithr|ae\85nkzo{\85q\80\88||\84p=EiDBhQIiRSXVUUYONPM\WHYSLR\BYcJX[Ja]Mh]S^\W\ONLTIKdJNkZLeXS^]RaUYg_Ueg\scNqYNvTJw\TucZp\en[m|XdnS^p[^pXly_lrWrw_mrbxj`yrSypWsqWp\80`s{ay\87bw\8ahw{ht{h{yprtt|mqtxrkurplspr}gl|pv||{~~t\89\83o\7f\86p\84\8f{\80\9d~\88 q\89¥m\8e\99i\81\8di\82\86p\7f\85l\88\81n\83\83mz~ut\81zm\82uq\82wsw\82{u\88\82p\8c\88o\87\8bz\8b\82z\84\83r\80}j\83\85g\81zg\83\80q|\85h\86\90p\87\97e\88\91i\87\81d\90\7fn\94}h\9bt]\9c|T¢sS¥~L\9b\80Q\97\81P\9e\8bY£\8dR \8bI\93\86I\8f~M\8d\86O\94}Q\97\89Y\92\8be\89\90^\8d\84c\84\8c[\8a\8dW\92\8b^\88\86_\80\80V\89\84]\87\84[\89\90^\8a\99f\8d\9a`\87\9da\8f\98X\91\99L\83\8bMy\8aP|\91G{\96Ow\96Qv\9dSr\93Vl\91Lt\8fQu\90Ml\8aWp\96`e\96jk\9bhe£^d¡ct¬Yo¨Xo¯dmµhj«^t®eu°[|±bs¨lu«ao¢cs\93be\93n_\8bt]\8bnj\99ei\98^g\96ei\95\r\9day\97Tx\94Y|\8fZ{\97P~\96O\85\96N\8b\91N\86\96K\87\9eB\83\9bB\81¡D\81¦Hx¢L\80\92?z\8d:x\8e:v\8c<y\87;t\852|\86/\82\8e9~\91>\84\8c?\88\8bB\8b\85;\99\8b<\95\8a5\93\8a/¡|4¢y5«{.¯\7f)ªs\1f§k'«s4¤u/\9dg5\96i-\96u/\98u9\9d\816\8eyJ\8a}P\8dzO\86qW\8erZ\85t]\91ma\8cn\\85{[\86\7f^\87z_\87}d\82{h\8cv`\8d\80c\93\81p\8cuc\8eqg\8ctn\8bvm\8exp\94\7f{\8fyx\99\82|£\81\82\9bv}\92wt\94wm\91wj\87\82m\88}n\83}t\81\80y\8f\7fs\89\81r\8azs\90\83t\86{q\83\8bhz\8e\\81\8cY~}fzth}xgv~iov]k~^p{\q\81]r}Zz\88gr\8acv\81l\7f\81s\82\8es\84\8dz:EqMDlGQaWVV`VUZJ[[O`PQXMD_YM_SQ[cWc^NY]UU]QX\S\VRXb\P[X]g\XcfUeYTc_SfmdvicifS{\Y\84\Nti`pelzf\\89\`\80YfmV\uVdl[qkbun\}o^|rX{kUpv]s|cq\84aoub|~c}\80pk~pj|mrskktqompmjopvu|k\80zh\7fvv\81|yx\80rz{u\83\88p\90\89q\84\9cp\8a\9e~\8c\9f{\8f\94o\84\95m\93\8dj\88\91m\82\7fdy\81ixwtr~st\88yi\80}hwvpq\85wv\91{x\87\81|\8e\92v\8b\8ap\80{~v\8bi\82\89r}\84h~\7fp\80\8dr\80\84s\87\8bv|\82k\84\85q\93~o\8ath\96zf\95s[\98u[\95y\\96\83V\91\81\\98\7fc\89\83Y\93\81E\93~D\8cuO\84|Q\8a\85M\81\81c\8b\8bk\82}Y\92\81a\84\8f]\8d\8d]\80\8c`\88\89]\90\84^\8d\86P\86\85a\82\86V\8e\8eV\96\93b\8d\8eQ\8e\8dV\90\89O\87\85Hx\8eCy\98@{\99Ev\9dL{\90Lz\91Lx\87O\80\8dNw\8cOu\92Q_\93dh\9d^d\9ajf¡Yx©Wr°[{«b~©_u±Zo£bs°R}¥\n¤\{\9ddp¡m{\9chk\9bkm\93lh\8clg\86bn\8fhf\97bb\92Sm\89Os\86Uv\93Ip\8cJ\7f\8e\t\96U\7f\8eP\85\8cN\8c\90R\8f\8fC\8e\9cM\88\96K\83 @u\9dE\7f\94N~\8dJx\839|\88Aw\8fBu\85:}{/}\87=\8a\82=\8b\85@\90\86J\85~?\8c\828\91{C\93y2\9fv8¤j0 o.®p7ªl ´w\1c¥d\1e®g&­`(\9fl3\93g4\9ft9\9bt1\9a\857\9bzJ\90tM\8fyR\94nN\8bnV\81zW\89~`\83pS\8du]\8b{W\96\80R\93\82\\8bud\95yX\89ri\90~c\85xd\83on\8exg\8bml\94so\9f\88{\94\86s\8d\8cq\9az{¢{o\92tw¤tj\97tv\8bqp\81ss\83sp\82ux\81qq\83rt\90\82l\86|m\8cul~\82_u\90g}\90c|\87m|\7fg\83|govirwal\85jx\8aanzfuzdu\8b`s\8b^{}b}\8bm|\87r\8e\86\7f<QaGG^VGf[W_dMV\K]WT_PWbZRaRRa[[_]S\\STPJ]XHaZObZRT[`Va`T[hcnoYohXqvTsv]vkfmkczsf\81kWtk[vcfzeb\89^cx^^w[gmZpj\soW\7fvU|qR~iZ}mW}qex{ewv[osbmupumuxtumrslxpjkzqlrlhwtk\86xr\8bsh\89wp~|w\7f~y\84\8cy\81\8dz\84\8do\8f\98m\92\90|\85\99p\88\9fs\8b\96p\8f\8cs\8e\8bs\85~h{|gz}tx~w~|mv\81vxx|jl}hu\8as}\8b\85t\8f\8cr\7f\83o{\83x~\85pv\84w}}ow\81k\80\82r\89\88u\81\81w~\7fs\82|i\86xh\8ezh\97}d\92\85c\9c}]\8e\7fc\90\82_\93\82W\84y^\8arT\85tK\87jUypRvuVx|P~\84Uy\89c}\81_\85~Z\84\85b\7f\8cb\88\8e^\89\83U\92\8cL\8e\88R\8d\83[\7f\8a^\8d\91b\8e\95U\89\93Z\8f\88X\8f\8aR\88\84J\7f\8bJy\90Bs\93C}\9f@\84\8d?y\8bN}\8aM}\86Ir\86Lm\91R^\8bT`\95]k\9dgv£c{¬b\7f°Ry¦R{¬az¦^t¬[q­^z«Wx\9d[z\96fy\9f`v\9d^r\9bmt\9ckj\94pp\90gl\9cdl\96bj\88Xm\84Rk\8eVu\89Ky\91Wp\93S\82\90U\82\82T\8b\83V\86\8dS\82\9cG\88\9dI|\9b=t\9c;\80\9a=~\89Fu\88As\88Hw\7fA}\817\7fy/\80z4\88\86C\8f\80E\87tG\8brE\91qD\93\81A\9bp<\93k?\92d<\9ai-¢_/¤f.²h#±j#±j\1e±a\1c¥\(¡b-\97c/\98n3\96rC\96xD\98\7fH\8dy@\92xL\95lL\90pI\8b\80O\83zO\88xY\90vM\97nQ\9dwS\91}V\8etR\95m_\96t\\85yf\8fqc\89yl\96wv\92qq\94|w\9c\86q\93\8bq\92\8bt\8f\84p\97|r\96}t¤\7fu\97s\7f\90py\8ezr\8csm\80ot\83sj\84rt\8c}o\8bxb\81}\\86\91g\81\93dy\8ef|\80f~xb\82\7f[~\86`q\84gq\8bn~\87mw\86ur\80lr}t{\83j}\86pw\85f{\8bv\8e\86zJEnJQZOR_]YgPY_SOeY^eU]i_[q[YqPSmZUg^]kNQiYOgSQkRbfQd_cekZicnhgop^xy]|nYwmcyoe{j[wk^\82idxjg\82_`\8a[r\84Wnv_pqYypetgWymY\7fqU\84j[yy\v{`\86tgrtbro_m~mzuxgwsrwsps\82pw{cfrfg\7for\8aoq\8c{r\81ym{xn\88{t{\8d|\89\93t\89\93o\88\9cs\86\9dr\8b\97y\82\95y\7f\87p\84\8fu\85\84e\89zj\86}h}{sqvnovryy|qy\87qo}l|\7fqw\83\87x\93\82{\84\84\80{\8dr\84\8ew\81\82uw\85{x\8c~\84\8fo\81\86sz\8bsvzpy\86n}wq\89\81`\90\80d\95~^ \7fX\89wg\83v_\8a~^\83tP}uZ\84nO{oSyk]|~`\80\83S{zV{w]v|U~\80\w\87\\81\83ex\8cU\82\7f`\85\90_\8a\89]}\8bU\87\97W\88\94R\88\94N\85\8aZ\93\90I\8a\91R\80\87I\83\89K\85\98K\85\9aI\87 D\85\8fFq\86J\81\8eN\83\87>\83\91Mt\8bMk\86Oj\95Te\97Qy\9cVu«Z\82¬Q\83\9d]}¦Zz¢ay¢Zn£\u\9c\v\9agy\8fap\95ct¢Z{\9af{\9fov\97iq\8fbp\96\v\92gx\94aw\8bZw\8a^p\8cMu\8dIq\84Rp\81St\83V\7f\83[z\8dT\85\97Jz\98D|\9c;q\9d2n\906u\83>u\81Ex\85O~\84I\82\838\89\844\81x7\8f{B\8epI\94oF\8fwG\87jJ\8bw>\8c{>\96r6\99l9¦o(\9fl4®e6­r/±a$¸d\1e½g\1d²m\1e¨Y$¦[4\96],¢iA\97{B\92xD\92wF\91sB\95pG\9bwS\90}M\90yT\86\80L\94~J\99\81R\8auM\8euT\8diV\8ekX\88s^\8cl_\87ua\96tf\89}j\95xk\90\80u\9b\86|\8e\7fp\99\89q\9f\84p\9d\88q\9d~m£sx\98\82o¢zt\96nl\99tg\8ayf\87\7fe\8axj\88\80f\8ezj\93\85h\80\8a\\85\8ad\89\8e`\8cz^|\86b\89|c\81\82jw\8cc}\86e\81\8dfv\8bjs\8bpu\86mv\89r\81\87l~\8fa\80\89j\8d\81zYH`XJgSVpWUjQ`bV[k_il^fuYpoZis_gvS[lRcbY]iT^rUZiXWqVen^rn`neotgpxaoz_~q`}gYzcV}hU}fa}d^\86_b\83Xf\83^s~SvzXqtasob|ubzq]zsVxo\{rY\82we\82lZ{l`yy`{zio{mj}wmsznv\82mq\89iq\80iz\8cir\86rz\88up\86ur\87\82t\82\83t\81\90~\83\8c|\84\88r\87\95u\8f\92w\85\9c}}\89y}\86~z~s\87\85r\84\8aj\84\80`\84\80gu\7fpjyinpysv\80rq{kz\82ts\8fyw\8f\88|\8e\88{\84\8dv\84\82~}\88~\83\8a\87y\8a\80p\8e\85x\89x{\8bxv}z\81z~z\82p\82zk~\82^\91|f\93x^\8cx^\85ka\86ia\7fsS\83wWxpQttPvs]\81r^zx^}vSsuWxo_vt]wzh{\88as\81_y\87[\82\90X\81\8dW\81\88J\89\94L\8c\8dY\84\8dT\8b\89I\88\8eF\83\8eD\86\8d?\8e\97:\87\91F\8c\91<\84\96?}\89Mz\8dI\7f\89C\81\8dA\86\8eP}\88Ot\83Mf\8bNl\8fMr\98Zq\9fZv¡Yy\9dVy\9acs\9bhp§[u\99W}\94c\80\8f[x\93az\9aZ{\95d~\98_s\96il\93at\92^}\8a`z\8bgz\95k|\8dis\82_{\80Wu\7fT\7f\84Pw|Ms\82Z|\8dRw\95Nr\9cIy\98Ko\8dJu\939s\85Au\85<svFwxE\87\84L\8a\80C\8b\80B\91\7f;\8ds:\90oA\85mD\89lG\8dtJ\8emF\87jF\90r5¡n/¤h.¢d1§q,¬o"´h ¸e\1a¸l$±b#ªa%¦W\1f\9c\*\9ak=\9al?\99q:\8f|B\97\7fL\94{D¡tB\9cvO\9a{T\95\83N\99\89R\91\84K\98rQ\8fq[\9arV\94f^\8bhf\8coi\97lb\97th\97}p\90\81n\8c\87p\8e\88}\96\84{\9f\82|\98\80}\99\86r£\88~§x{¢xn§\7fg\99~i\9bwh\9azf\98|g\8cuf\8a\7f\\88\82h\94\86b\8d\8e]\8b\84d\8b\7fm\8b\80d\82\83_\86\81]\8e\87d\89\8bn\8a\88tz\8cmx\84_z\88bz\82b\7f\81j\84\87b\8b\8fc\8f\88f\91\89pZKrV[hW_j`_v`flXejamrcd}Xp\7fYlwXWx]_i]XiTe`S_eU]l_^raoi^urgmdowbxxhzx_utoxpb\7fbW\83e^~uo\8ano\8bei\8cWf~Zq}ZqqSyoT\7fjT}t[\80ya\82nh|r^pof}wb\87k]{ij}zezrruvqpt}v\7f\84gp\85w~\8cer\88jp\88mo\89vm\91nj\94~o\8f}u\8d{k\8c\8dw\87\8am\7f\89~\86\8ct\7f\95p\8f\91t\86\8au\86\91{\86\89j\83\85u\8d}k\81\89s\85\81fozht\82sozuwryuz\81zy\8buv\90\81y\93\85~\8d\8d\80~\91xz\8a\81{}\7fx\88\82u\8c~q\83\80\81|po~zv}mx~p\80\85ruyo{uX\86w[\89i[\8fyX\86m]vkZvzR~qP}xTpwRvx\t{Y~\81]t}a|zUsqPmnYp\81Yt\7fZt\8f`\80\8f]{\91T\89\83Q\85\91P\80\8aE\82\8bU|\8b[z\90H\7f\81N\85\8fF\83~G\82\85<\91\93:\8b\95:z\888\82\87Ev\8fH\7f\87Cz\8eG\80\92E\7f\8cHt\84Hk\87Tm\8aXr\98Nu\90\p\8f_v¡c|¡Zu¡Sr¢]z\9eYx¤]\82¡]v\97Uw\9c\\80\90`\84\89`v\92gu\8bhu\8abt\8cgr\91a\82\91b\83\85n\83{_\83vd\83x]~\83b\80\8bWs\8a]\7f\93O|\91Ty\97Lo\90Gu\98Dt\959v\89D~y9q}IzuF\85wI\8eyP\82\85>\92\82K\94v:\95x:\94vA\88oJ\85kE\8fyB\97v;\9bf6\9em*¢h- k+£v,¥f&·g*°n"µi\1f²h#¥`*\9fd%¬\+¢\;\9dg<\9at:\8dr;\8eqI\90oD\91tA\9f}F\9a\83F\91\87I\8bzI\8axK\98sY\91pW\98gg\9es`\93tq\93wv\8brt\8bnf\9b\7fl\9fwi\9b\83z\9c{q\9e|u¢\83|¢\81m¢\87u¢\85o¢{~²~s°tl£|j\9azh\99\82p\9c\7fe\9azj\8f\82]\93x[\9e|`\93\7f^\94\8c^\88\81j\89uh\85\81m\90~]\92\81h\92\88i\87\86l\8b\84k\86\86n\87\8cf\80|j\80\89l\8d\8c`\8c\8bk\96\82h\8b\8dwTV~Q]wQ^uZfzekwafthd|_n\84fcwdfoeUv^TtU^kVacQjdOhgbhrgmmloq_ske|`n|fjsqsknremtii\82rs\83xu~hi\85dl\87_i\87Yn\80V|yX|pSznSzt`~xg\7frhpwcovdvz[\81n]\84pk{up\7fvqqz|jv\80p~\84my\88r\84\8en}\8flk\93gj\85ru\91lr\91uu\8b}j\8e\81s\88\89o\82\88s\81\8ex|\8cj\85\8di\8d\8bq\90\8cw\86\8al\88\8bi\85\82n\82\7fk\85\87p\83\80oz\7fvp\7f~vyuuuwywz|\83\85v\87\83\7f\7f\92\81}\87~\83w\84\8bpx\84vx\80x\87|y\85\7f}}xx\80uv\82ow\8aor\8fzz\82}|ukxp`um\\82kd}le\82~Zs|NqoOvoFs}M~nI|pPzsZr~Vrw]vmWwpRnyXw\83Qy\82Pw\8cW\80\89W\83\83T\80\87Lr\89Eu\8cJq\90Mm\92Rx\8aPv\81Rz|R\86\80K\85\92E\8b\939y\98<x\8b={\92>y\8aA\81\93Dx\8cGs\86Fx\91Cm\89Br\8cKm\8dKr\96Px\89Uy\8a[w\9cdt\9f^u¡[y\9bT}¢St¢Ov\95R{\99Sy\8d[\80\8ba\81\94c\83\90o~\8cg\82\92p{\8dft\89j}\90`\81\87a\88}h~nc\87|i\84\85b}\87^q\87Y}\8fN\80\90Rx\88Sr\8aPz\92Q|\8dC~\7fE\81u?{x>y\81Hy~T\85\83T\82\81S\82\84I\8d\83?\89r@\84w?\8d{J\93rI\8ezB\98y@\99k:\94x7\94w&\9dl*¨l\1e¢s+¨i*¬e#¯`!®^#¯_1¤^9ªj2\9fg8¢`A\97d<\9coA\92vI\99oF\94|?\97~H\98\82R\91\86M\94\7fR\90tZ\91p\\9ar]\9bkh\9dni\9dtv\91mt\8fli\8eso\97qh\9dyq\9cuv\9cxr\97~|¢\7fx¦\83|\9d\8bp©yq«xo¥qf­ue£pi¨qq¡tn\9a\82r\9d\84f¡xb£rd\9bzf¡\86b\9c\84[\93\85_\88{i\91tc\8cqf\8b|h\8e\85e\92\81c\90\88o\8d{p\85~l~zl\84\81c\91\82p\92\80n\88|q\8c\88rQI\81Y[\7f[a}Zc\89Zl~Zs\80`ez`d\81^l\7f\coZ^yi[nbfifcsQdhLkfSer_htkrvfylcwml|tqxlxko\80xf|xg\7fss\84\80}\87m|\81qp\81cu|aysRuxU\84qT\80nZxqV\7fp[|}ZtoglsXt\80a{wh\86pw\7ftm~lsttrry~tm~jj\8euu\92t|\8fwt\86kx\83~g\88tj\8fwq\92\7fi\89{g\87\83iy~d{\85t\84\8ar\8f\8bk\8a\84d\8b\81m\88\8dq\8d\80j\8b\87m\8f\85c\88}q\81{u|}\7ft\82\7f\80w\85w\80~\83}\81r\85\7f{\84\8b}\82\8d\85\81\80{\85\81}\85z}\8foz\8f{p\90y~\88ow\83zwyoxst\88w|x\83w\83~ttm~v^|oc\88n^tsZtpX}~]ryLrrRwwHmvJ~mMutVj}UopUy|]wkYhxYz~Tt\80Wv\80Ow\7fIz\82Jz~Tv}Dp\8aDo\84Ro\91\l\89Lt\8bG}\88Ez{F\8b\80<\84\92@\87\94A\82\8f7r\8cCx\8b@w\88Nw\97Fp\87Pk\93Is\8dIr\8eQv\91Ps\91Pm\90Sq\83\j\8e`l\8eUq\9dPv\9fU|\9eJu¢O\82\94J\88\95O\7f\8a`~\88c{\8fe\8b\9bi|\98r\84\8diz\8f_q\85gy\88[x\83i|pf\8api\8cvc\86\83l~\83Xt\86Sz\8f`\82\83\|\90Yq\8eTv\8cY\84\8fP\83\82G\86w=\88w@\85\7fH\81yL\83\82L{\85U~\90O\8byP\8dyN\84vJ\90\84T\8bwO\9c\7fD\9fs=\92n-\9fz/\9ao*\97j,ªt(\9fi-¬f'¦k.¡j)°]1«c9ªn:°l6\9f^;£[H\9bjE\97o;\99eK\93tK\93nU¡zG \7fH¢\7fN\9d\82L\8esM\9br[\91pe\94wo\95mg\98mr\9aqq\9esj\99{w\9but\95vo£v\7f\9f}z§\86\83 \7f\81\9e\8br¢\82yª\83p¤}w°tc¦\80m¨qj§mq¡yk¡\8czª}q |k§wc¦\80k\9e\82f\95\82g\94ye\8a|i\8cwh\8bre\96yf\8f\81_\8f\89k\8e\88k\91xg\85}r\8e\80s\8c~n\90wm\8c\85h\9a\85x\8a\7fo\X}eO\84ja\87jh\86lg~do\84ao\80\g\83]]\82[Z}eaxdbsljwheqbmhXigZugZptfk|ksrtwuu~qrxu{ysy\7fn\88zl\88\83s\83{y~x~tu\7f\80cwzawuV}pS\84nS\89zX\84x\{w_ux[poaup[v}d}|duws~ss\7fkltcpgkzkk\86qj\8bpv\83p}\8ax~\81|w\85xx\8epj\92jd\97va\8c|]\8c{f\80\84^~\86b\8b\81b\8f~j\94\87d\8e\86h\93\82l\95\82h\8b\8am\89\83c\88~k{\7fnx||x\81\82\83\81\8a\85\83\82{\8c}\85\83|\80\84y\7f}\87\89\86|\85\8dzv\90vy\8fsv\8dto\90oq\92wq\88x|\85vq}yt\86uy{\7fzy\84{v\81qk\87s\|mYnl^mq_wvasxUl|TsyHpqOupHojKsrVyy^oy\ezcio]sq^xtPxvRs}Gy{Mw{Pr\84Vg\80J^\89Wf\8aUo\93Yk\8cLn\86D\7f~I\8c\87M\87\88B\82\838}\8d>y\8dCz\95Iu\97Rn\94Mf\88Nl\8cSo\88Mj\84Ot\80Mu|Iw~Pm\84Pb\8fWh\89Sp\8eKs\95Tt¢Yt\9eLv\99S\84\95T}\90b~\91b\8b\96q\87\99n\88\96c~\8dg}\82`s\80]ruX\7fwa\8axf\88n]\84kh\82sf\80xj\84\8a\}\8d^w\87_u\82]|\8dd\80\86e\85\86\\8b}S\8atE\8bnN\89wS\85\81N}\82Tz\8bJ\86\8aM\8f\82S\87\81O\8a}V\94\84O\95\82S\9bzE p6\96r0\9du)\96t0\91o4\9ck)¥r%¦p"¨l$\9ep0\9en.¨h0£fB¯mB§lB£aE\9ea@\9d_A\9fbB\9biP\9coZ\9cmT\9boM¢zD¥\82C\9cxQ\91w^\96|i\9btl\8fwr\98pn\9dst\99\7fj\9d~n\94}s\9c~}\95\89\82\9a\88\81\98\8f\8b¥\8a\83¢\8ey¡\84}£\8fy§\89m¢\83n§{g¨\7fg¥xo¨\87n¨\84v¤\87m¦\80n¡\81m«\83a¢\82k\9fzg\92wk\96n`\91rX\9bq_¤v[\9b\7fg\9e~l\97}j\9c\84w\90~r\8dwm\8dsl\8b\7fs\93{r\90\84v\97\83v^T}kS\85qU}qbz^a\8b[j\84dp\86hk\86ae\85[\}cathrvohnfmkbnoghq]qkipwmvxjz}fyyry\80y|\83xv\80y\81}~\84}z~z}|w\7fy\81to\83xe\82yd\84{c\85{\\82v\\84{c\87}ayx[xpZmxkvya{\81b}\81oyznx~krlpqwqnm\80nv\81ss\80wy\81x{\94nv\8et{\8dws\95ei\8cgg\86to\91xo\84zf\87\80e\8b\83j\83v_\93\89^\88~c\89\81l\91\8cf\83\8an\81\91i\88\83c\90yb\84yo{\86t\7f|x\83\89}~\8a\81y\8b\88\82|u\87\86{\7f\8e{\83\8f\86z\89}p\90r{\8bpy\81ur\8dvu\88m~\88w}ztt\80}q\81pi\84|k\81zro\82dg~ijtoWgq_fpPp|WxyNn\84Nq~LhyOihDooKukVjoXou\jn[j{Tq{IytFj|RnuLyvI|{Pr~EfuQ]\83QZ\87Kf\84Hl~To\85N\89\80Ay\82G\80\88My\86Hp\8dEx\96Ip\89Lx\8fQm\92Um\93Om\93Xb~Iq\7fHn\86RrtHs\81Ro\84Qh\84Pv\8eWo\91To\98My\9fKr\91Oz\91X\90\87Z\81\8db\8a\94g\8e\9ed\89\92h\80\9cm\88\92g\85\86d|v[\81\83b\85te\8dti\83{f\86miws`}\83V\83\84Q\84\84]x\82j\7f~fy\82\\7f\88[\82\84Z\84\81L\87tD\89}R\85s\{{M|yP\7f\86N\86\89K\86\88O\91\82G\86~R\88\83Q\94}H \81F\99oA\91y;\8fl-\9fu*\97t&\9ft&©h&±s)¤y%¢z'£v.«a6¡m4°aH¦m>\9cb<\9eeB\95h9£nJ£kS\9alO\9crP\9btD\9etK\9c\7fL\96~P\94~[\97xi\95\80f\8cpk\8c|f\9erx\90\7fi\91~o\95\81o¥\81u\9f\83\84\94\8b\87¤\87\86­\88\90¢\86\8b«~\82£\82t£\8cs«\87n£rf¡\81j\99vi¢\82o¯|g©|p¬\83`¤\87`¥\8a` uk§tp\9f{i¡h\\96ih¨s[©{c¥wn¢xq\8fzv\90wg\8c\87m\8e\80r\93tp\93\83h\98\85x\8e}w\93zvm`\83l^\8aj^\8dgY\7f`f\83cl\83bk~eh\88f_\8ece\82ee|qt{jl{mrkaxgdlpantkwx^xz`\7f|a\88\7fl\84\87h\81\89pu}|~\87~\84\85u}\83w\86{x\85\82qy\7fkk\86td\83{b~to\8ark\88ub~ld~s\z}Zrvft\7fl\82xi\80|r\83yivvyszyr{yykuzos}zzp}\7fk\84\90js\8ckn\91in\94pj\8dfm\91qm\90{u\88zk\87xw\8a|q\86zj\8e\87a\8a\85f\8d\90^\85\8dm\82\98s\7f\92q\85\84i\89\80i\80{kq~j\81\82j\81\7fr\84{\81y{}}\82\7f\7f\82\7f\86\8d|\85\8awz\8dxx\80\81\7f{z~}{s\82ps\7fno\83pu~|n}{g{qexkmzwnsthkyidqhefsXe|QpuVu}Uv\83Nl\82JfySkmKkpKnp[ryVt{\rwNtvJo\80Gh{Jj|OtnM}xFxtBkvNbwKhwN_\86Ji\7fMiqWz{I\82w>t\81<uyGo\7fFo\92Es\8d?i\83Al\90Bl\95Qd\95Uh\8bTn\8dVk}M{\85S}{W\80zMqyBj\87Rt\85Tz\8bPs\93Nu\97R|\95]\82\88T\8c\88T\86\8eT\84\92_\88\98h\8e\9bp\8d\98n\81\8bl\80\88q\88|i|{c\7fze\8e\80a\8dwj\81yh{r[y~\\81\85Wy|cv\81e\7f\82e~\85`y\87]\83\81R~}K\81kH~zV\88\7fT\86\87Nu\7fJy|F\85{L\8c\82S\96\82J\90\85@\88wD\93zF¢vH¡oF\95y7\9b~;\96s4\9cs+¤p(­i+³p2­l+¤u+\9fx/¡j:¬\B®_D¯`C¤gA\9eb>\98h?\94fH\9feD\98q>\9csI\9etI¦pG\9bzN\9azR\9cwb\96\7fd\98\80Z\93y`\90re\93ur\90\7fv\96\86m\9f\84p\9f\80v\98x}\98|~¤\8c\8b§\8c\8e¬\86\8f¦\88\84©}\80\9e}w¢\83z£zt¥\87{\9a\85p¨ym§~b \80j¨\82a«\84[©\81dª|n\9dsj x]£s[¤wY¤id¬wp¨tm¥lo\98ls\93mq\93\7fg\99~q\92\80p\90\88u\98\83t\95v~\98x|cS}g`~sc\7fjV\8bmZ\8ckc~bd\84lp\84ld\82imwlo\81nm\81vrss\82vd}piqspxr`\89~d\7f\85_\87\8c[\81\80g\83\92j\8b\82m{\88q}\80n\91\8bm\89\86q~\7f|\7fyrs\81}n}|f}so\83wn\89ug\81uo\83lh\84uj\85tb\84k_vyb|ui}xlzyftvm}tw}qlvfyyyy{sux|\8ah\82\8dfw\8buv\92sm\87mo\92rl\89lo\96ym\94\81s\91|p\92zw\95\80c\90\84\\8f\89c\8e\8eb\89\8bh\83\91g\88\95u\83\8dk\8d{n\80\83cryo}w_~}i\7fwwt\80~wz\81~\81}{\85\82{\88\82\83\8c~t|\81{}~w\80vr\86ro\86oo{vx~we\81vp\7fgrtqephdimkgotfrvjixYd\7fXr\7fVq\81]e\86Ll\84Op\81RnvDlmKqv]uoSvyYxxOpyPq|VdqGpsKnkSo{Srv=ouA`rFg\81FgwWetLhiLloS|~A~~;q\80Iu\8bCo\8cAo\86Cw\90Cv\86Cd\94Ek\8cIr\88Xp\84Mk\82Ru{Qt\88Tz\86Pv\84J\80~Mv~O\7f\83Sy\8fS\88\90V\81\91\\8d\84T\8b\8dS\8c\90^\92\90Y\91\8e_\94\96b\92\86g\86\80c\90\81f\85qe\91{j\81ss\80{b\8f{n\88pdxukszWx~_u\83d{{d~}ezzb\84t^\85v\\87xUzrM\88oJxwM\85\81V~rM\81tK\89xS\8fxE\94sM\8dp@\8emD\96lH\9dsC\9c}K\9cu@\9ewA¢t1¢x5±m(¶s-·i:¯g1§u4§q4§j:¢`?­hI§gF¤mB jC\9efB\9boA\9ffE\94qM¢tN\9b|F¨~P¢wU¡|W\93xY\94\80c\95\80[\95\82]\90\86o\96\80w\91\81k\8d\84r\99\90y\92\83s\8fzv\96\84s\98~\89¤\82\81\9f\7f\82\9d\80\81¥\86\83£ztª|}¦{v \8cn\98\83q\9a~c \83[ª\89Y¦\83i¤}i©\89c¯tp¤ro®\80^²\80]®}]§ij\9dni¡kk¤jn£nq\95}m\9f\83h\9e\82q\9fwh \87q\97}w\95\82\81\96z\87lS\83mZ\80oZ~oZ\85kV\83m^\89uj\88ri\82um\82yjzym\80xrzn}|o\80ul\84rr\83{n~|_\89}Y\83}a\8a\8cj\8d\90b\90\94d\8b\8ei\85\89b\85\81l\8f\81o\88~t\85\81q\82\7ftswvxywn}\82v\81|x~tw\84np\89lo\88mg\84nd\8aph\83jj\83l_|wc\85sd\7f|dysf}sh}psxmqo{xtsyh|\86l\83\89r\7f\8dv\80\84mx\89qq\93tm\93\80p\8f\82k\96\80l\96xl\96\80h\93\83c\8f\89_\95\88^\91\91l\8d\8bl\86\87r\81\88n\83\86g\81~h|\7fhs\88bt\7ffw\85ps~~r}\83v\84\88\7f\85\85z\93\84x\8cwv\89\82q\83~z~}s\83}i\7fqc\87ti\82mt\83poreiyjcnsnjnrplwmgs_j~ej\80^_\82Wc\80\`\8aRi\84Qj}Lt~KqzStzPk~LowVvq\ryTk}VasPeoYdwSguSe|Hf~E^vM_tM]pTkiQqpOmlRutFps<{x=}\84Av\8aG~\93Eu\92Ir\87?k\88Bp\87F{\90N~\85Gx\88Ou\86Iu\86Ss\88W\82~I|\80D\85\88C|\81Q\81\87P\90\82`\8e\7fb\91\8cf\89\88`\84\8fd\90\8e]\98\88e\8f\8ae\8d}h\8axg\8aye\93to\8auv\88lr\8cnj\81seyt_|ni\81ydxzbwyj\82|m{}e|qhuxfvp[th_\80oR{rPymV\80tP\82uQ|{T\84vS\95|T\94uE\9ezE\99n>\92yG\96vH\9dsM\95nC£o:£p8°n>±y6¬r>°p4¬u:¢h<©l8¤e2©c?«f<¥^E¦gD¬lD¤h;§p:\99iD\94mA\96zJ \82N\9b{K sR\9dyX\98}X\8d\8cY\90\90a\93\87c\91\82g\96\88t\91\8dk\8b\8fl\8c\87l\91\8ay\8b\7fw\8d\81w\92\8a\86\9a\85\85\92\83\85\99\85\84ª\84}©\80v\9d\85|\9b\81r\95\91q \90l¨\84a\9f\88b\9a\87j\9d\85b¬\85^ª\84f¥}b©{j­xm³\80j©vl©v`¡j[ n[\9ah[\9dmh\99|h¦}mªxq\9f}n§yj¥zt§z|\9e}\80lW\82gN\85pT\8cjc\7ftd\80n_\8dgl\81gg\8bkr\8bxn\88lx\7fvxsw{\81u\7fzh\85\80k~\82a\89\82k\8f\86g\87\8eq\91\89l\86\93j}\98b\80\86h~\91q\8d\85i\91\8fw~\80l\82xz\85\82tvysw\7ftm\87~x\8au~{kw|qu\85nk{zcxmr\82mk\84lnzfswmc\81idrsdzsq{{v\7fvn\7frsoulpt{qs~n\81\80i|}uu~q\81\83ks\86{{\8f\81e\95\87g\91\85n\91|c\9a\87k\91\8dh\93\8cf\8a\8b]\8c\83b\86\8bw\82\8dl\88\8er\88\8ap|\8c_\87|c\81\7flx\87iq\85h\83tzu\83\88\83\8f\88~\8f\84\7f\95\82t\97nt\92vq\8fzv{~o\87wj\86yr|md\81wdtylmbilbiteinjsnpr^fmeivai}S[x[`\88Sg~^_zNlqZi}Kj\81P~qDk{Kp|^evRk{Pd\7fMbwPexOfqPgpJh|?^w@[qHcwR[oMbqMlnSnzNi~?o|CxzLnvExzRn\82Ds\8fEi\82Me}Mp\80E|\8aIu\85Jv\7fRv\83Tp\84Sr{T\81zG|\87N}\81J}\7fO~\82N\88~T\92{i\8c\8bW\85\82a\92\84X\88\83_\94~g\8b\88l\8d\7f_\89}_\93mr\8fve\93gr\8fjo\8anh}ro~{f}lb\81p_o{U{ob\8bsj\84sa~k]\80s^zia\87s\\82eQ\86uO~rJ\8cqI\8dmC\8asQ|lK\8dsN\9aoF\97kO p<\90pA\95{B\9dtA\9fo= hF¡j4¡p1«s*«p:°k?¬h4³d;¥e@\9bi0¦f/§d>¦e7¬iC¨b:§iG£nE\9fiB£kF\98\7f@\95{B¥qV£zN£~T\9atW\94\88W\95\82_\9b|a \86t\91\7fq\96\80{\9d\84~\98\83y\95\84\7f\8a\85r\88vq\9a\88\82\9a~{\91\87\83¦\7fu¤\83v\9f{\80\9f\87m¢\80i\95\88e¥\8a^\9b\80m£\8dg¡\89a\95{g§\82m¦\80a¥vl­vq£ta¥|h³v[°}Yªq^¡qi¡ej¦ma\99nc«ye\9fqg£\81v\98rq\99p}£{\80\9dv\86kO\8deQ\92oV\90je\84sg}qh\7ftf\82lr\89jt\81hx\88hw\7fnw{x\81\80r\86zu\88\7fg\86\84i\84\7ff\86\88f\89\83q\88\88r\88\8em{\8epx\95p\80\8es\7f\91p\88\8b{\81~ty\80t|\87x\81\89\7f\80\8awp\87o|\83nv\86mwxjmvtg~vn}vo~wn\8drj\8bgu\7fjv\83euvhzv{qyuk\80xtvyltuqu}rxx\84jw\86gv|fx\88sz\85uq\85vw\8d\83q\98|b\9a\83^\96\8ek\97\8co\98\8ek\97\94a\8f\83e\8e\81i\87\82p\8a\91q\88\91k\82\83g\8e\8bd\88\88q\83\89py\8fo~\8cn\82{m\81\8c}\82\93\84v\99yz\99s\80\9dtu\93xz\94|y\83{o\80km\89okwfeurmsrltlgk_npdkx^woivcqv\dwRaqWX\7fR]\82V[tRaqV_s\krYiyUvvIzmUpqWmoVfwG]rJYyV`~Z`vPkt?ms?`z>]zF^hG_cKfgU^{XdwTjvHd~UozTzvQwyT\80zVx\83Ox}Np\7fXm\80Zx\85O\80yR|wNsyRtwV\7fvMy\84H}\88B\80\83MqtKquM}\85S\88\83`~\7fS\84\88T\84\8bO\89\82U\84wb\8dth\83lo\89pe\8ejf\91il\92j^\8bu`\87na\87wm}nn{tazl^vrU\85pX\82rZrnbsvc~w]\80l^\81dW\8beT\88oH\8arG\94xI\91uD\88oI\85iJ\8dbP\92jW\93bM\9afF\98kN\9auI\9fv@\98q;\99c9\9ce?¬]/®d-®h4¶i=¾g4µo8°l9\9eh7®k;®a6£i7¡d6\9ek7\9dfC\97pC\9fmM\97mC\9ftD¨mR eQ§lR§vZ¯pb¥u]¥~e\99xb\93|q\9d\83z¦z{¤u\83\9ez\8b\9dz\82\8fwv\90{w\8b{\7f\8d\80\82¡\7f\81¤\80s¥\81w£{}¢\8aw\9b\8fe¡\8bc\9f\80a©\8ac¬\85l\9d}h\9c~o\98wo\9czdªrl¯nj¦y^\9exa±zf³w]§jl\9clo¦qt¡ok\9etf¤hm\9djo¢tw qw\9dt{\92z\81\8e{}mX\8enY\94fX\8fif\90rh\87mo\84ft\86or\84ft\8b`z\8fi~\89mozsy\88dw\8cp\82}r\84}j\86\84e\82}j}\8az\7f\80uu\8exr\88lt\97t}\9cp\7f\93d\88\8ery\86hw~mu\82|\81\87xs\88qm~jv\88jq\82wx\7fhstpjquexpu\83vo\8cpw\89pz\7fkq\80m~{pqvurz}wsrr|{sly|jw}pyxlv\83rz\80u~\81vv\8cm\7f\88vy\82\86u\96\88i\93~`\8f\89h\9a\93f\9a\91g\97\8dk\99\8bf\9c\7ff\8e\92o\90\8cf\96\90o\84\82g\88\8fg\90\8ch\81\91u\83\91|\83\83{~\87\81\83\91~{\9c\83q\9a\80y\97zx\9dmn\95pr\91l~\8cml\80nj~^fw`pqerzitl`ojktlf|z_xxiwjq\81ck|gk\82\]~^f|Wj\83Vf\81[fuaryXm~Mx}UqxTf|QdoRYrE[yM_{NXuUk|DkxHtmH_uJh\81FelVigTZrPQ~KY\82Mj{LauPl\7fVysR\7ftItrWluVo\80Ovx`r|Mx\83S\7f\82IzzU\86xZ\84|X\7ft[{\85Tv\81N~\86RtpXyzX~rNw\80Q|\85V\8avZ\8a}Z\81sb\83mZ\88i]\84rWyxU\86ui\8aoa\8cri\87t]\81v[\84nq\84~l|l_}{^\7f~^{rP\88}R\80pOzu]}kY{nP\89nW\8f]O\96cS\8eeE\89vM\8asM\94kD\8cjI\8ajL\90cW\9fgR¥iO¢cH§l<£d9\9cf2©n4¬q9«b6­n7¯g7¸i<¶lAµo9²a4£c:¥_/¨]@¢a=¯[:¦b4\9deA\9fbJ¢_K¨gN«nG£fJ¦fY«qV¯mN¨u`«h\¥kd¥p`ª~w¡w\82¢w\82\9dt\88£s\80 ~\81\9dzz\9a||\92xx\96y\80\9ez\82\9e}x£\80\81\9e\84s \8c} \8ci§\7fi\9d~`\9dyl¥\8an¤ym¦xm\9asd\9emd©pe­mm£u]\9dgb¤ig²xi«vj\9blj§er\9flk¤rq\9cqz wq¨x\7f\9bs|\96w|\97\84w\8c\80\82_c\98ea\9fv`\98u]\94gj\9cie\98us\90ox\8ag\82\90d\7f\89n}\88lr\87ao\8afv\8eh\85\90o\8c\86s\8c\83k\81}gx\83r|\85w}\84tt\87n\82\94q\80\9art\94ex\89h|\85m\80\84k\84ysy}o~\89px\85vs\89pv\83xlrsoqll~ug{qm|po\8bh{\8aqx\81tszj{tm{wrnvnsxwrqyrr\81~pxwy{vq\80\81{w|wv\8avr\8aos\89|v\87\83y\98\7fl\99\89a\98\95^\8c\8f^\98\8f`\94\8cg\95\92\\9a\89[£\91c \94n\9c\90g\96\8fm\94\91m\86\98n\8d\88y\87\87\7f|\8e}\82\8bx{\99\7fr\9c\84t |r\9fwt\9arv\94f|\8aks\89lq\84gs|`w\82dn|mrwersljvequd}|czvpukm\7fk`|]d\86]`|]azYc\84cj\7fbmsfru[u\80Nq\7fOg\7fIgvQZzP[yIWoK[uMYwKdwBoxEjoKbpMcwVhrOakQ[oMTvK^yJ\\81Rk}TpsLtzK}qMruPowLfq\k{ZxvXz\80T}wT\7fyL\82~O\87}Y|\83S\82yZz\7f^~|Ty|PvoTulLrrMrmY\7fuZ\7fh^\7fk]vlb~nY\84iPzqT\8atY\88la|kX\7fj_\84njzvcwxd~s\\87qW\88zZ\89~N\88{O\86|M|tQ\85oT\7fiL\86`G\91aK\8e_M\94iB\9adI\94pG\99eR\95]U\98ZX\92]X\91\U\9e[J¥[I¤g:¦f0©b-¢f,ªm5°j5°s7»v-µk4¶j9¬b:§_:¨Y0ªd>£e;­h4¯`2¯d;§Y8\9fYB§bI²bU±lT©mZ¬cO§iR²cS¨__¯j`µtg­po¦x~¢r\7f\9cn\84\9bz\84£~\84¡v|\97}\7f\93}z\96us\92y{\9e\80v\9fwy£\82r£\84zª\88x®\82x¦\87q©\83b \82b¡\7fo§uw¤os¦jd¤mf¢tf¦ll¦dc«e^´l`«re¬ri«`eªbb `m\9aor\9anw\9bhr¤pv\9c\80}\94~y\90|s\8f\80}gd\9fr]¨mh\9ar\\9bq_\9a`j\8bqo\93hz\86ip\92nt\8dmo\8dlo\87hu\82q{\88u\8d\84x\87\8ed\88\81m\87\81q\80\81g\8a\80m\84\8d}v\8euw\94m\7f\9af\83\9bl\84\87a\81\83c~ynw\85hy~nz{ts\82ou\82ss\8asq~nvvyq|nawnkzjk\91du\8eqx\80itycqubvxiw\7fvxvwqqwwk{xqy|vxqyjx\80o\85\83r\8bop\8ali\8bqo\93\7fq\9a\8ag\8e\89j\94\8bV\92\8b^\9a\89Y\98\8a_\99\89`\8f\90^\96\8da\9c\91f\99\94k\96\96h\8b\9fs\8a§l\85\90o\93\88|\83\87{\7f\90z\7f\99\7fu\94}\7f\96qs\9az| h\7f\91lp\8db\80\8fgx\87a}}hvynp~_wokzjemtgl\80c}nnqhp}fk\80nd\80di\8bkb\80gd\80Xn|gr|gjqbwz`t\80Nh~KgxI_oJhpPYuUVzOasSWjN_u?jsMjqIhjJgkRYiQdvN]nHUvLY\81M]vJ_|ThmSmnJ}lHyxHmvJz~St|Y}~N\83zUsxN}vS{\7fW\84sV|tS\82rYwnY}t\yf]~v^ygU\7fn]~ocxndzqf\82cd\83kc\85iUxr[vqX{aa\81lb\7fgd\7fm\\82{auvp|u^tja\80zQ\88rS\8a}S\84|L\8axE\7fmU\89jV\80_N\83^T\8bYQ\90]H\95h@\94m>\90qF\95_H\8biJ\8fWU\8eXP\9d_F\9eTJ\9f[B¥oF«e7 a1¦^5¬b-°c,¹d8³j0¬b-°Z7¨X+¤S'§_,ªU.«W9°[2¶Y1§`7°^0®]=\9ciCªeS¯bG¥eL¢eP¯bQ«nV²nU­l]£qa©di\9fe{¤kt¢v}\9co\80 u\80\9au{\98y|\9dt|\95u\83\95w~\97us\9epx¥s{\9ew{\9b\86{¤wiª\85l¤\84a sp©\80p­vv­ez©nl©pi¢j`£de£bl®`e§pm®ah¯hp¥]l«\y\9edr\99^~\9ecz§fz©ct\96yv\9c~}\8fyt\92v\84ma­v`¡k_§oa£hn\9dhn\8fdz\90ot\92ov\97rt\8fvl\91hr\88h\82\87s\82\89o\8e\88r\8c\8do\84\93h\86\94f\82\97g\8b\89h\8a\8et\81\95j\85\95j|\9da}\93g\7f\96d|\8dfx|j|\7f_~\84i\7fxrrytw\7fuu\7fqq\80nlztesliskmwmh\8cnp\8b`}\85h\7f\83dq\7flv\80gr|nwx{~pnzrlo~rz\80jvsm\84rg\84\82k\88\81w~qo\8b{i\92wr\97{o\93\8e]\97\8c[\98\8bc\93\8a^\9b\91^\92\95f\94\98g\95\95j \91s\9f\9ao\92\93m\9a¢s\94¤z\8e\93q\8f\93p\95\9bx\8c\99t\8a¡z\7f\9d~u\9crv\9bkr\96fw\9ee}\93`\83\8dg}\85_\81\8aes\8aft}du\7fmtrpr}huyp}piyegxmp\84jl|qc\80gfvda}[bw]qnctndo\7fYqt`kmVnmUfuIc{FbqP]oPbnI`iK[cH]hTmmTccOafG^mNZzJdtP^vNd\7fUcyNa~IdsKyvP}xT}uP|}PuzOs\7fU\7f\81Q~\81S\81yYvySs|\wr^qo^{o^tmX|f`\84d_\80k`zie\84me{bg\80eg|f\\81_^\87k[\84fb\83ei\81cd\81jn|fkwkk|ujupnpwnwk`vi_}eQ~qR\81~S\80}P\8buL\8ajH\82_X\84dZ\8biS\91_O\87]G\89fM\91jQ\8deC\8d_D\8eeJ\88ZI\8d[H\9caO\99^D\9ajD§iB¤n?¦c/ª_1£U+¯`2²^/®Z/²b(¹T(®Q,·X(¯_&§\*¥T'·V)ºU.·Z)®a1¨d> iE kP§cK°fL§eF§eG®nWµh^ªid®gi¦bi©kp¨nx«w\83£q\82 s\81\9fv\7f¡sq\96ls\95hw\95q\85¢kx£qs¢zw\95{v\97\82s\9dyf\9f|k¢yf\9e~e¦rk®otªho¨bq\9eci¤`d¨\c°cn¦hr¢mc®ae¨hs¯`}´Z\80¬X~­_}¡i\81¨`\7f¬cv¥jx\93p{\94pw\98s\80ie h^\9fim¨io¤uk\9cm~\93v\80\94yy\8f{r\99vo\8eum\98ar\89p}\98hu\96v\82\8d{\8e\91u\8a\97o\88\8d_\87\92b\92\94`\95\90i\8e\8do\7f\91o}\9fd\80\94c\83\90h\80\82_u\83er\88_{\85^s|qw~ov|go~cnzgjqslyirzro\83ql\8a]}\8bbv\87ao\85joyju\7f`x\82esum\84\7fjt\86o\83\86`wwlv\81n\8b\82o\8d\7fk\85\86{}yt\87\7fx\91us\8c\85n\8b\87f\8f\83W\95\86[\9f\8af¢\8ab¡\94f\90\94b\9c\8ei\98\95r\97\91y\9a\91m\9b\98z\9d©y\91¥|\8e£p\96\95}\85\9b}\8d§s}\9cv{\9bwr\97k\7f\9eh\87\9bj\8c\92m\82\97[\7f\8a^\80\89gy\82bw\87h\80|mzxs}zjvyh{fb\86lq~dsz`rzeqzcon\orfoifeuV`kdp~`en]ewakx\\rWcnWbdN]gJeeRhcNfcWicLefNgsWapSYkQUrIdySfqTexUkk]mtTdwKmnKnvLyzIk}MztHs\87T|~Kt\89Rq\8aQn\82Sx{_l{a|mR\80pW}lZ\83X`\88ha\82a[ylf\85d_\81`av\avY_\83cZ\89X`~Za{[h\87_f\7fiarnfyugvlb~wjnnitq_|d\~m_xnU~sZ\81{Q\88jF\93tP\8flV\82kW\8bfO\97dQ\97_V\8bfQ\98bJ\8fcI\8a]G\9c]N\94WT\91^F\9e_E\9f`D\96f@¨i;¦fA Z:­W5¨W4¨P'´Q*ªX$²Q/¶R*¬V °Q*¸\*¶]\1f­V#¸V(»K2¾^6·d8³_;«]:§\?§`J¶kP·jD¨mZ©vR¥o[§ob¯jh¨boªdl¹ey²op¢k}£jy zu¡nr\97tz\9bv~\9bz\8a\98s\86§s}\93ju\98sz wg¤xq\9cve\9evq\9eqo¨hm\9efh§el¥pf©`f¡Ye¨\l¯ho¢gl°ku¬dr©ar²a\86°Y\7f¤\\87¢f\82¦f~\9db\84­b\88¤h\7f r~¡n\80\9fo\81hh¯kbªwm¡rv\9fz\80£t\86\97p\80\94v\82\93v\84 wz\9brv\97ju\92c}\92mt\9bq~\9dt~\95r\81\90h\8f\8ea\8c\8bd\90\8d_\8f\91a\95\89o\96\94k\8d\93s\82\8bm\81\8ec{\8ce{\89kv\81al\85dsyfqwmw}cr}dh{dmxlp\82ni\84st}ht\80]v\86ax\86bw\83ay\81hr|bt|a|\82my\83b|\83b\86\8ad\8a\8ci\86\85f\8c\8bq\8d\86r\83\7fo\81\85qzzv\81~j\8e\81j\8d\82f\8eyd\94~c§}]«\8dk§\85h\97\85m\94\8el\97\92n¡\8cu\9e\97|\96\9as\9b£p\91\9fu\98¢|\8b¥r\8d©n\89\9fo\8b¡oz¨nz¤r\8a£h\88\9bi\8e\9aj\8b\96h\8b\8c`\80\8cb~\8dd\86\86g}~o|xw\7fmmzkg\83ok\81op}lgw`esdqpbot\on`ir_bkZilTbv_f\80Z_yaho]_vTbeOYdX[dYggSalQkdTjiW]iT[tKdsPYnO^uVep\fyUqk[qj]zl\rqMpfIokMvmPkvQp{Vy\80I~\8cUw\89Zo\81\o\81\i\7f\qyT}lVwhX\84bf\83Zc|Y_\82`f\84ikzfarf\xXdyQ[\7f[`\84Vd\83_d\86dc\85_cubovgklnksserxfynjvm\vh_\7fj[|nZ\85kQ\84jN\8feG\93pP\93oJ\8dcO\8cjW\90aV\9acP\9a`M\97TK\97YT\9bYQ\9aSQ\98QS\9b]K\9a[F\9cfO¤fM\9b[D¨bH§[>±N@¬P1´V7­J-¬V-±Q(½R,»R\1f¸Q\19²Q$¶R!¹Y%¼U1·O1¹Q7¹X;¸^?®_5­i5´dC·kMµbM°gX©p]¯o_°oa·nb´jq¯iy¹hs³n{±cs®jmªrt¦yq£ru¦u\88\9fr\8a\9em\8a\9bi{\97wt\96ut\9dxt ol\95ni\9bsk\9cgg\99go¢nb¡oa i\¥bg¢Wa§[d©ae¨fh¥av±^w¯X\87¶V\87©X\81§Z\8a [\80¨b\80«k\8b f\8a\9ch\83¢v\82¦y\83\98x\84sg¤gl­vl\9crq¨{t\96pv\90nz\96y~\96n\7f\9cv}\8fp{\96`q\91h}\99o\81\99wu\9fuy\9cl\8f\98m\94\98h\95\8fh\91\98d\99\8ea\86\8fo\8b\9au\96\9fs\8e\99f{\95jx\8bqy\89ku\89lw\82it\7fdl~anxdv\83cq~jstnw\81di\7fkuxeyvjt\7ffxybx\86]}\86ft\8b]u\81gy\91fp\8fu\82\8cp\89\93t\8c\8eq\86\8dp\84\88j\8c\8ao\89\88p\8c\82d\89\90l\8a\84f\85\84m\90\90f\9d\87c\94\88h£}f¤\92b \8bg¦\87q¥\97f¥\97w\95\9dr\9b\9e|\97\9bx§¨w ¢s\98\9bl\99¤s\8a¬o\8b§s\92§q\89\9fg\82ªo\88\9da\87¥`\89\98_\8b\97^\8e\96Z\89\89e\8a\88l\87\80k{\86k\81sg{w_\80ma\85xZ\84iaom\xi\wjdofaw_qzcfqmio`jsifthajmWwc]rajyTgoOl\Wb_TbsLfaUaeUYaXYePUf\YnQXiWSqUZlPamTpm`qf]ueYrfLiuLltPvkVuwKntMz{Ev\82Qz\8dOk\86Sj|To\7f]wwO}oU{eV\82X`|aczZ\\7fck\85acxa[wae\80c[\80\WxNX\83__\7f^p\86db\8fed\81[j{hnstnzxl\84gb|ig\7fig{dZ\85cc\82kR\8abV\8dgI\83oM\95n]\8elY\86lO\90`R\8a[Z\92\T\96aV\9fcX\99_T\9dVX ]M§]W¤_T\97fJ\9ehM\99gI\9f\C«XD§N>«X:ªG,«C1¡R)©T,§R&°O(¹K+ºS%±G\1c½O ¬M'­N2µM2ºN5½T@°R=¬b2¬ZB³^<»ZG½fM±aY­mU°]f®ed±ik­ge²pjÀohºesµ]u¶_|¹s~¤dr¡l\80\9avx¡j\8a\9bg\8a\9dmv\95j{\98nv\9coy¢oo¤gr¦mk©mt\9e]r­gq¯b`¦b\±Th§]l³\m°Uq±Vg©Vk®Yy©S\80¥Z\82¨Q\81®X\89¢^\89¤Y\8a\98k\86\9di\8b\9bs\8f\9ee\80\9b{\86¢p\8ahg°ll¦rq§vz¥ww§tw\98uq\94uz\8fiq\88iq\8fkw¡gv¡my¤k|¤v{¡z\81\9dk\87\9cd\8d\97c\8f\9df\9c\94j\93\95i\88\98h\95¢r\90\9do\84\93o\82\8dn|\86lw\8cl\80\89k\83zfv\83dr}ho\81ouwl}|h\82sgt|ipyaqvZw}fy\85l}}r\82|j|}f\82\8e\y\90^x\91or\92{x\99u~\97n\85\8ax\97\86u\8d\8fq\7f\96e\85\91h\87\8cg\89\92f\94\94i\98\8cc\94\8cj\9e\8bi \80d¤\88hª\8ce®\8bc­\8em°\9bm¦\99l\9b\9cr\9b\98u\9a¢u¡§f\93©c\91¤k\8e\9et\8b¤r\8e\9eo\91¨i\95§m\87 p\86§j\7f j\8e\9aY\8f\89c\94\88c\90\8cd\86\7fd\88\7fc\88\84g~}i\85~_\82~U\83yWynbuibnj_hkYnmaxrkwosrtlnnqiermkbvi_nehplmlbnm^nePpnXioRgfQaeVaa\UkQXkZZd\Vf^VfTYmRejYew_srWkrU`kObkUmkSsgMzjPtwQ~wQz{Mr\7fQvv[ryZysMtnOu]T\81]]rZ`sbQzgV\81^a~V]\83Z\\88af\82]^zO\yP\\81[_~`k\87\e\8bY]\82\Ztghyrd\7flcy^h\82`\\84a]xqa|dW\89aV\92jY\8fgN\93mP\89h[\8dpO\8dgN\90VQ\8eU[\8a^M\8ebO\95^O\9bd_¢Z_¡`W¥VK¦XK\9eZH\9eaH¡^G¬]DªW=¡QFªQ@¡C2¤C.¢R*«Q(®V#µN,²K0°C&¹D ±@)®I6ºG1¹D=®@E´HCªV:ªX9¶O8²OE·RC¹^P¹^J´YO»dW·^k·_g·lb¿inºji¼luÀ^|µa\83·f~±]u¤d{¦c\84¦q\86 a\80\98b}\95bx\95o{\93iz\99ls¥kk¨qi¥og«`o¥Tf°WfµOb®Ua¸Sbµ[l¶[xªQv®Rs Qq¨Uv¤Xt©azµ^\88®^\84\9eV\82\9bh\89\96j\8b\98f\8e£d\88¤q\89¡y\8dqe«is¦oh°~r²rxªst\99wy\96w\85\90vq\9cwp\9avp\99kv\9bs\83ªi\87 n\80¡}\88\9dn\86\9de\91\9dm\98\90g\92\9ce\8f\8d^\89\8ek\92\94g\8c¢m\84\9bd\7f\93^z\8df\82\8cp\80\7fkx}at\80`v\7fis~s}ym{pr\7f\7fh\7frl}w_\82\80\|z\\81xj\8b\7fl|ylx\85hy\8a`z\8e\{\99dz\91s\86\94j\8f\92v\87\89{\98\8bo\88\8dy\85\90p~\9bi\8e\95i\90\91]\8e\8d_\92\98d\92\91_\94\85e\9f\83p­\8cd¦\88b³\89a¥\8c`¦ a­¢q §p\9e\9ah\9f­g\9d©k£\9dj\8f¦d\8b\9cx\95¢q\88\9fi\94¢f\94©m\8a¨d\89\9a_\87\96d\8b\90S\8a\81P\84\90]\81\90T\83\83f\82}X\87\83\|\86`\86\80]\80yS{yQwnWvg_bsUeoZjobjmfk{gwofizldhkshpmr_slcrhhvmpi`liTmjL^nO_eQc_TTdSY]Y`]^QlXOh[VgYbaUfpUacJsoVinH[ePneEelOmgH}gDreLrfXwrYw\7fQl}R}z^rs]|vRvh^xkVu[PjaPyWW\84T^\83Oa\88U]~T^\8cO`\8aR[\87Vc}Zh\8c\i\85[b\89Na\82^h\83ZqvZbx^h\83^W\89j^~gX\83b`\84i^\80a]\8ekU\8fn]\90gU\8elY\8fm\\90_O\9bbT O\\92RU\97_[\99^R\8fiV\99]Y¢iZ¢\K¦SC¥SN¥\P«eHªZH¥\H QP\9bJB¤FB R/¢L1¦V/´^"ªN%¬U(»J+µA/²K3°L<´L1·K@¾EG¸OC»T?®W<®J8²N>¶QG´UH²IU²R[²S[¿ah¾Zn·lc�oaÃkfÂ]r·[\7f�WyÂf\85¶ct¦k\82®o}£f\8a£gz¥h\84¨h\83\9dj\80¡qr\9cps¢gk oh®cl¹jn®ao­Zf²Qg³^p³_k¹^p°Wm¨Kv®I{©PwªVo¤_q§[u¬X} \\84¥Sy¤f\84\95l\85\9cb\89\97_\83\9bh\8f t\91ds¦mq©kq²ym­~o¥z}¦z\85¨w\82\9e}s©}t§~y¡ot¢h~\9br\88£n\87¬n\8f£u\8b¢j\89\92a\96\8b]\94\94\\94\8fZ\93\92]\91\97h\8f\9bh\86\8e\\81\8b]\8d\92b\88\8fm\82\93g}\86b\81\8adt\82g}\85q\83zh\80tl\89zl\82uj\85xb\82r]~{a\86}_\89\7f`\82\89d\83\88g\81\90^~\97g\86\9dh|\9ao\80\90g\92\92h\97\8ft\94\94t\8f\94o\88\99u\85¡n\8b\9ef\8f\9f[\8b\97^\87\88[\92\89[ ~c \83a¬\82i±\8d^­\97^©\9b_±\9cd¯¡i®¤]«ªhª«e\9f¬`¤¥d\97\9ef\92\99j\8d¤d\92§k\93¥\\99¥\\8f¥\\94\98S\8e\9aZ\86\95V\87\89M\8a\8aN\83\85S\80\8d[\84\8bN\7f\84R~\88X\83\80Uz\82Nw\7fRorOjyRdpM`tM`yMi}XpxSk{^g{nlvponhqweqrmwtmrntn^qvZmkNcfS[_HWcNVdZ^^[[^\RgMTiTWfOXaPViRekUbkGlr<dp@ftLijGnnDr`Io\Vpc_um]tmWxl\vtQyuZ~v\|qcwgXnfLr\O\7fUV\81PYzUg\7fSj\8aOe\88Nj\8aJn\89Sg\8aUn\8c^d\94Yj\91Sm\90Ve\85[i\8c[e\81\g\87\_\81gRz_O\7f]O}`Z\83]W\82YS\88e]\8c[[\8fbV\8egP\92cS\98`_¡U`¥Y]\9eUW\8f_a\91^\\97cY¢bKªTI¬WE²TJ¦^K©bJ­]@ªOB\9fQL¤SL¥GD°R9°L?¦V7¨Y/¦L,­O%µG'»@/¹J1¼D2Å@B¿ICºQ>¸RC±IG³M<§KD¬@D®=E³FM·HP¹Ja¾Pb½[e¾XjÇfoÑ\rÊ_jÉWrºRz¿Z~¿Z|¶`y®f|«b\82®g\87²d\88³i}±_\87¤e\80¢r\80\9emv\9dml¥jn²fkµdnµak´Ov¿Tw¼]r¶Up¶^p¯]g­Vm®Qo£G{°H\80¬Ux®S\80°Q{¡]t ]|\9d]\8b\9b_\89\94f\80\92`\83\9cn\86\99r\8bkq°cq²lk²pw¥npªvq­zs\9fs{\9co}©\81m¯wn d\83§r\81¤r\83ªn\88¤q\97\9dk\88¤l\84\9f_\8e\99a\8a\9dX\93\9eT\92\90c\8c\93q\90¥b\92\9cV\82\98`\84\9b\z\8f^}\92j\83\93aw\83Zt\8fj\83}o\88\86^}uh\80ui\8c\86d\80\81b|yW\80\7fWx\87Q\82\84b\81\91`\88\8baz\8bg\8b\91^\83\9a_\87\8fh\8c¡d\87 m\8e\95{\8b\99{\88\94j\85£i\8a§n\9b b\8c¡j\8b\91e\97\8dc\96\9aa \91c\9c\8ca¤\94f¸\8fl±\92_ª\95X·\98^¸¥]®¨`©¥a\9f¢_\9f°g\9d¥Y¡­f\94¤a\96¨X\8e¢W\92¨b\84¬Y\8e\9eY\87 Y\98\9b]\91\97_\89\94[\87\87[\83\8bQ\82\84T\88\8cR\87\8cRq\8bZs\7fKo\8cIj\81JomLlnUlvShrMgnYbu_j\82T^yYa\81chygjjalm`mflsmkobll]qhVppXjlNgbPO]\VaVRcaLfU[sTWkRcgRVoXYeJanTecDafDlnMjiCmg@l^OgeTofYqeZkiXnbQsl]tkUniTrs[qkVxgXuXUvbR\86]`\8cSd}V`uT[\82U`\81Xq\7fXm\8dXq\84U^\87\e\8cUk\8dUj\87Re\91Z\\86\d\85Xg~eT\81dF\87_S}YV\88WP\82R^\88Rb\93X_\94^_\9abS\91\`\97Y`¢`[\9aKc\9aYW£[R c\\8bZS\95_V\9fbJ§RG­OH®MI±ZF¤UB¶SJ®[F­GB­JM HB¬DC¸H5§H>¢O;§U1¶K4°O-¶N5¹@5¿H9¾IHÈJ=¼@C¾D=¹K=ÀB>½G<¸HD¯MA¹LG¯PQ®@[ÀPb¼]eºTf�a`ÆXcÂ^k¹_rÇJpµY}¾S\82¸]v´Z{´g|´]\8c¹e\80¼_~´[\88°l\8c°j\85¢m} f}®Yz³[m±]x¹Xv´Mu­Vn²Ww¼Ws³Ws°Ss®Uy±Uv\9dM\84 J\85¸[\82¯S{¸O\82¥]w¬f}¤^\8e\95^\87 U\83¡e~\96h\8e«i\93ju©fh±mtªf{¤lm©km©el¬m|¦s|¢uq«hy¢c\82ªi\86¥e\8a«g\93®m\96¥j\8e\9ch\87£`\87®U\91¨O\93\9fW\96\9dg\9c\98j\97¤`\8cª[\83¤d\81\9e]}\9f\\87\97g\89\91`\82\8cZw\8fb\85\83_\82\84W\85y_\84~[~\83X|\87R\83\8a]z\80W{\85S\7f\8a[~\8aY{\94]}\94b\89\89b\8b\8e`\81\92Y|\9dc\84£u\84¢w\8e\98x\8e r\93 j\9b¥a\9b¡f\9e\9eo\9b\93p©\98l¦\99p¤\95b£\97`¥\94h­\8ee°\98`µ\97T¹¢Y¶©b°¡e ¨d®\9fb®¢d¢§U\9bªO££X ¨U\9a¢Q\8a©_\86¡`\88¢Y\8f\98W\91\93^\89\8cV\8c\8fU\85\83Y\8d\83]\8f\8aV\8b\95R\86\89Kp\84Lp\8eRp\87Qv\85JoxQu~WjxSt|LoqSp}\_\80Sg\87[_\82]Ypg^ohWpjajn_nmjco`[kdafkTifU^_VV[ZY\\Q\bZfVSmVVqV_jW^nUcgO`eTldJp`FbiSffIksFfoIk_Zn_biaXs]YtZ[ud[|mVkfKk^Qs`Tm\_tYW\80\\\80^Y\85Pb\84MfvJZuRa|Th\84Hf\84Mm\89Zg~YcxX`\82\i\8dYc\8dR\\87Xa\81b]\87eT\86_K\8dWN\89^P\89U^\8aNZ\88K]\94XY\98]_\97VZ\9eWi \f\9fM[£L`\9fX[¨ZT\99dW\96^S\9eWQ RS\9eLI¨IMªIQ¯IG°US°WP¯GI°FE£=E\9f>H­FAµA0«B2¥H8²U;±Q3ÀW@¿LA¼VC¼QI¼F;ÅA>Å=C»?B¸DF½>IÉJBÃGIÂAK¸GK·?]´F]»I\¼NiÈSlÆKaºMh¼YgÆZiÄQw¸L\82´Q}·VxÀX{®c\7f«]\88µ[\86»W\86À]\86³c\87°b\81³ez®`u«W{®Q\7fªJv¦Jr®Co¬Gm«XxµX\81²Z~ºPx·Ry¯Su\9eD\81¨Kz³T\84½O\7f¹J~³^\83­`\86 X\8b\9bW\95\9fR\86\9fZ\86¢]\8c¬b\96et¨ev§_}¡\}©cx\9fhj´ps¬nx£r{­s{³fy³c\84¨\\8c¯g\93¥d\85¯k\92ª`\90¯_\8f°_\93«U\9b¶O\95¡U\9b­W\9f£k\94\9cb\8c\9cZ\87\9cc\7f¨f\8a¤[~\9dn\86\8bX\8c\8ea\85\94a\85\89]\92\8b\\85\86i\8b\83b\88\84^~\90Z\85\8aT\8a\8c_}\89[\85\8eQ\81\8aX\88\95e\81\8bg\84\8ec\8f\98c\82\9ca\8e e\8e\9fm\8d r\8d¢k\91¡j\9e\9b`\97©e\9e\9ek\9a\9dm\9b m«¢o¤\91iª\95j­\94f¡\92n§\9be±\96c´\9fe¬¢\´²Vª¦Q³§\¨ W©©P¨©R¦®Uª­R¥°O\90\9cL\8d¥Q\8d\9eU\90\9aW\8e\9f\\94\92S\8a\96U\83\8bW~\88Z\8a\89M\81\8dZ\85\8aN\82\8cSo\92Sw\92Sn\8bCl\8aPo\80MdxYhtSpuR_~W_\83f^\89W]\8bbe\7f^_~mYqi^r_hwekitnhike^nbdbgn`]bcTacbV[XYk`^kcaeV\kSZ]_X`Y_]LggMmeIj_KjqRgoMbeIq_OjgWt\PnaXq^WtUYx[Uw[SocRpVOqPOsOSsZ\tZU}SY|T[\86U[yISwP\\7fTeuJlzFm|Gk\82SgyZg{a[\8f\\\84Zb\89Ua\8di`\85^T\8a]U\82`L\8aOT\83U[\8eVb\8b[X\94S`\96Q`¡JeªPb©Z_§I\®IX¢PV\9cYU¥RU\98QS§ZY£TO¬KF¨SU¨ES¶PI±WH¯QV¬KR²BC±DN¢C@©?;­J5©I7³A7©S8³O7ºJC�K9¿K@ÃNGÃQD¹IB¸?F¶EBÆHR»;P¸GM½DBÇAB²AN¾AN¯K]¿CYÂE[ÌIkÑDf¼J`ÆOcÃUjÈUw½Wu¹Zm´NqÇSy´Q\85²W\8a»[~¼a\7f·\\8e¾\\88¿f\85µ_}ÂWx¾Uu¹V{§Ss¥Lr¨>i·Iz¯Lv©Lx±T|°L|²Tp§Kt¦Ls°N\7f¬MtºJt¸Q|«M\86³[\8e¬a\8e\9b]\94©a\8e\9fV\8b¦^\8a²Y\96q\81«oz¨o{§by¤iu¥dp®d{·kw®czµl|¶]z½\\81³\\89§W\8d¬V\94¦X\8a®]\8e¦\\96­R\94µY\99´V ¸Y¡¬`\93¨Z\95¥b\86¥`\87¢Y\81¡b\87¡\\89\98c\8d\8fg\8d\96_\8d\8di\8b\83b\90\89\\85\88a\89\83c\81\89Y\82\8aT\88\88W\89\89X\8e\80U\86\84O\87\90T\88\8cb\84\85d\88\88f\8f\93i\8b\99`\8e\9ag\89\98e\89¥r\99 o \9fa§\9fg¬\98c¤¢c¡¢m¨§n©¢n¯\99n«\9da«\9ei­\9ad© f¤ªc©«_¤¤W®«N¬¥Kµ\9dTµ\9fS©¤M­¢O§¢W¦¤Q¥¦Q\93\9eX\91\9da\8e£X\90\99Y\8d\8b]\86\8cT\8d\87V\82\88Q|\88V}\8eP\82\92Q\81\90[\82\93Vy\98In\94Kk\8dMt\91Ep\83Gd\84Si}Tgz__~\V\84_Y\86Xb\80_`\81bd\7fkb\7fmhyaeznaijeildaakdfmdf`ckg[eca[djWlg]nWa`We_Q^`YY]V[bYhiXffQddSdgJjhHjhOf]OlbMp[Mr`Ys\Xh\Zm[WpYXgP]fSPbRXkMWhJYkK^uQ_{Pb\81Tc\82R]{DZ|F^wKU{K]\83TX\81Mb\83Zh\83W]\83b_\8a\Z\8feR\8beR\85hL\88`R\89[L\8fNO\89TL\8bQZ\8cS^\8dW[\97OW¤L_¨F_¯NV«Cd­Ia¦Ec\9eK_¢VV£OR¥NU¯QJ¸SH¯KM®J[¸NW±UO³LN¶HMµLIµIF®EC¹D;´L8´L9±I5­JD­FBµH@¸SAÄK>ÃPIÇTN¾FM½?U½CSÉFQÃ=Gº<KÀH=¹ID½CHÀLT¸KQ¾?WÂA\ÄB`ÊMg¿IgÃReÇP_ÄRj»Jc½QmÄGqÀM}½O\81´\~ªa\8b°]\88±[\8a¾Y\83¾T\81ÅX\84ÌS~ÂPy¼Os¯Mv±B{°Bq¹Js¹Eq´@~±L|ºRx³Vw®Lo¬Nu¬OqªMp¥Jv¯M~®M\8b©]\8e¨[\93¢`\92£`\93¨a\96±Y\95¬`\91g|°k\80¨j\80«[y¥lwªbv¢n}ªc\81\9ek\7f¨m~¬k\85±g\80¥U\85µO\8e¯R\86¯U\95±L\8b­^\92­S\93´Z\8e­Y\92ªd ³e\9a«d¢£\\90¦[\86©g\86¥d\8b\9dj\88¢X\8e\93[\8b\93`\8e\8bX\90\91Y\92\90]\83\87d\8c\86f\8e\82[\84\82R\89\86V\83\8eP\8d\91]\84\8bR\87\92Y\88\8cS\86\8b_\83\85b\80\87e\85\92]\94\9e^\95\93m\92¤m\9c\94f§\96h\9f\9e_£\98d©\9cm±\9a_ª\9b_« m§\9b\«\99b¡\96c­£p¬\9bj¯\99d£«_°\9d\¹¨W°\9aXµ¥Q¨¤P§\9cU\9e\9eJ£\9aP\9c\9eU \9fL\9a\9eY\99 Q\92\97U\97\9bX\94\9c_\82\9dV\87\88Z\83\89b\8a\8aS|\8cY\7f\90S\7f\89Xz\88Ut\97Pl\86Bq\8dCn\87>h\89Hh}Lf\85N^\83Rf\7f^\\8a\S\82d_~c[zc^\86i]\86\\zc\id`fbjYhc`_ejeg\Zc^`ZVbdW^jWTjcTka`bUfcM^aQa^[icRa\PciZ\gVe^BefBmbHs\UnYRmfVv`_u^Sj^VuZ^l_Vga^jVTjU\\7fAUvI[mAcoKV\87Zf|La\88S\zGb|KY\87Ni\89Hi\88Uk\7fMa\87L[\8eUT\86^P\8biZ\87cP\88ZZ\85`]}[Z\81[L\90WP\8c\S\88K\\8aWQ\88]]\8fVb\9eP\¢GUªUU\9eQV¬DZ\9fOg\98Lb\96LQ¡RI©TH§KQ²LH®JF©@U«JI­ET²ILºGJ°GF¬?L±C<«K?­B8¥Q;±E0´K>³K8·D;¿T?ÅEN�CQÈRRºLL¼MGÆHUÇ@KÂDBÊDB¸AE·F>¼DN�:F½FT¾IW¼<^ÅHbÅGX¾T\ÀQg¶MfºIj³Mo¸Rs¸Nt¹Yv¼\r·S\80¨\y³Z\81®[\80²S\83¼Y\87Æ]\81¾Lt¶X|¶Wp¸So¼Lj²Cs±=z�Lt°Ds¹Rz¸S\7f·GuµV\7fªS}¬NzªSu¯T\81³N\85²L\82©S\84£Y\90\98[\88§d\88ª^\92§g\95¢i\95oz«s~£o\83§b|¦c\7f\9fou¢t\7f¤k\81\9fe\83¡iy¨h\7f¨a~§]\84¯R\89°L\88§G\90­L\8f§Y\98¦V\9b¯]\8e¦g\9c©e\9f«o\9c¥k\9e¯j\9a¨`\95\9fj\94\9ai\82\9ag|¡Y\7f\9cS\82\99^\93\93]\85\93]\82\95^\85\91_\8d\89g\89\8ee\89\83`\8d\89S\84\95_\82\97Z\82\87O\8b\8fN\86\98P\82\8cS\83\8b_\84\88Z\80\8b[\90\90`\9a\9ce¡\9fe\9d\98`\9f\9bf\9e\9dl¨\9ce¯\9dZ®\95_°\9cZ§\9ed¬§g¥\9e`¨\9eh¬\98n¥\9fh¨\98h©\9c_¥§]²¢\«£_±¡T¢\94U¢\95Qª\8fQ¦\95Z¢\96V\9e\97N\99\9fQ\96\97W\97\94U\9b\96Y\97\93W\8f\9eT\88\8fa\89\8eX\8b\8b]\81\8a[\83\91Uw\91[p\86Ou\87Fs\84Dy\80>n~Hi\8aJ`\88V^\86Qc\8aMl\86Ui\8cb[\82`f\80`exb`}]Z}dZph_gbX_k]XedVX`daagYY^[NZeTQ[YL]mXYlWX_Tca\edS`cOkW[d^Vi`WgWQ]^J][BlZHlWLz_X~bbz]_qbZp[ThUTk`Pw]TvW_wVU\81FPsE^uB[xP^\82R\\86SW\88J^~SZ\80Lc\82Ga\8bKf\8fVo\87Qf\8fZc\8aRX\84WU\8adT\8aYVy]\xbT\7fcT\83jR\82`T\8aXR\8fQO\90J[\8aRX\8cJ[\9fJX¡LZ\95Xa\98Sc\9eJc\9aGY\98L\\8fO]\95LO\9bOK¡CF¡DH§>J\9d7L¢@J«HX¹MU²JGµ:@³C;§>D£F:ªH@\9fB8¢E8±D2±F7·O:¾FIÆLF�BM½NR¼LI¹BIÂFLÈGOÄHDÂMM¾JI·<F½8Nº<VÃ>PÈCXÃ=T¼JV¹GZ»J`±Q_ºGf±Jk¨En­Pv¶Pl´SoªTm­Y{®Ut­T}¬Ry²S}ÀV\7f¿Y{ºMq³Qu¹Kq½LvµQn³In²G\7f¸B\83¼F~ºM\7f¬Nx­By´Qp­OsªHo¶Rv©Pu¥O\7f¨M\83ªZ\83\9eX\84\9bY\89\9cT\90¤W\90\9fT\96©b\95u\89±m\89¤k\85¬`{«b\7f¬ms\9eb\86£d\84\9ap\84¤f{¦]\82¦f{²V\82²V~±K\8a¬A\8bªN\8f©^\95¥Y\90¥Y\9a°e\90«c¨¬j\9b¢n\9f«k\9b­]\91 b\95¥f\8a\9db\7f\93_\87\93g\85\9aa\88\8ee\84\88m\87\95k~\97\\84\85]\8b\92^\8e\92\\82\99R\83\94R\8b\8eQ|\81L\81\8eM\88\98L\81\95O\80\92S\88\90]\8a\89^\97\92i£\9fi\98\9fa¢\9ac¨¥]°¢d¬\97b§\97`´¥`±¦^¥¡Z ®h\9dªd§\97k¦\9at©\93m\9e\91hª¡b±\97`ª¡bµ¥X¤\9a^\9e\94c£\97Qª\96M\9d\8eK£\91M¤\99W\95\95X\9b\99Z\93\9f\\92\96V\97\97X\99\99Z\8a\9ei\8a\91Z\87\85L\84\8aH{\8bL{\92P\7f\84Sy\80L\80\81Gn|VvyWmzQb\82TZ~Nb\82Jl\88Na\7f`e|ahvS`yX\r\]v[Unlb_c\ejYV`Y]QZR_WSTPZRYS]NSeYXcdQZeQg`VagYflUlb[bUSc\_h_SiaG`WRiUTnULqXXpa[\81XTy\X~Q\t\W{^[va^nP[qT[~EW\80NU\82?X\81I`zK`}G^|U^\8aTh\84JY\8dTk\83Wa\8eSj\84Ho\8eFn\8aKc\8dMP\8f]Z\80cW\81[X\81aZ\7fX[\80\Z~XS\82^a}P[\84XY\8cYR\86P[\99\U\9dY[\94MX\93Tc\9fHd\94Qj Q\\92RP\94MT\91TP\95NI\9aML¨HJ\9fFG\9fIH¡IN£=VµMR´=Hµ4R¨>G³7I¦:L¨>P ME¨DJ¨PF°R@»IL´KM´DQÂ@Q½AJ¶NUÄEBËFG¼HAÃPDÆKOÂLQ¸=QÇ@Jº:TÅJQÂHMÀ<UÂ<Z¼HZµFd¯Od®Jn¼Rg³Ku°Zw§Oz«Tm¬Xv¦`\85«Yz­[{­Y\88¯Ry¾Sz¹P\82²X\80¯W\82¼Tu²\u½U\80½Rq´E\81Ã;\8d¼I\8b´I\8c´A\84²G\82¨D~§Qw¶G{²W}¯Kz¦X\86°H\86µT\87°P\82¡T}\9bX\90¤_\93«^\8a¦c n\8e¸i\84¶b\89¼k\80³ny±i\80¨c\81 d\86¥d\8f±j\86«g\83­_\80¬d\84®Y\7f¡X\7f¤K\86¨J\97\9dW\97 O\95®U\94¬X£®j ¨oª¨k¢¥k¤¥c\9c¦g\8c¢g\86\95p\8b\92g~\8a\\85\8e_\86\8em\86\90l\80\8dn\87\97h~\91b~\93\\8b\99U\95\90S\8e\91W\8f\8bL\83\8bU~\8fU\84\94W\84\94U}\8c]|\8e_\89\8bb\96\91d\9e\92c§\9aY¢¢X§¢X³\9ej©¢j° j¯¬j¨«^£¤`\9cª\¤\9d_\9b¡l \9bi \93i¤\98b¤\94X¦\92X« ]ª\9dW¢\9eZ\99\98_ \93[ª\95W¢\8dT\98\92Q\99\93Z\99\97R\9b\9fe\9c\97g\99\9fc\9e¥d\94\9fb\87\9e_}\99S|\98I\81\86Av\87Gx\87F\80\91L\80\89Ny\80QtzUksYfu]e\7fVd\83Ne\86PexSd}Wm\81[rxTeu[bmYXh[\m^TcY[e_eYW`LROJ\UQWLPOUNRYNWaQacV`b_if_ggUbhYgbWic\m`UeUL\TPbWMn\VkUOy[Uw]PuXYzVWwQZ\80RP|[QwX]\7fIOwJQuGN\84IV\87AW\82BS\83Oa~K^xO]\83Zd\8cWc\8bVc\8aLh\89Ni\91Hh\8bJe\93FZ\8aIT\81HY|XP|SS{ZS}YXx[RwP[yR^\81Ya\87RW\92[K\8b]O\93^]\90]\\94X^\95QU\9aO_\9bN_\97N_\99RU\9fTU\9cJK\97QY\9bHW\9f<K\99=P¢;J©GO£JI«AI§@N©<U¤6O¯?M²BK£DU\9dNX¨PM§KC­MIºRN¹KC®QH´MOºHP½FP¹DJÂIE¾LK´RGµTSÄHN¿DOÃBIÈ=ZÂGY½>T¼EY�FV¿JYºR[³Hk®Dk¹Nj¶[t¬Ww­Ty¥Qz§_\82¯^~¨R\85­T\82²N|·K\83½HzµL{¬H\80²P\86­[\8b¶[\84¸^~ÂR}ÄT}¼D\8dÆF\84¾D\8c¾E\88®;\8a­<\86°G{²At¯Lx´N\84¬P\80²Q|¯I\7f¤X}¨W\81\9f^\86¤g\86¡d\9a¤i\9ec\8a±p\8f«`\88«p|¬n\8d¬n\88¨b\86\9eh\8c\9e_\92\9e[\84¦c\8a¬X\86«R|¢[\8a­Y\83©M\8f¥[\89 Q\97\94S\94\9cQ\8e«e\9b l\95¬i\9f¥e\9b\9fd\9a­g\96¥d\8a\9de\84¢py\8fow\9ag\83\9dV\82\8fay\9bf~\96b\81\8ba\7f\97h\80\8e[\86\9e`\92\95[\84 Y\82\9cX\83\8eK\80\97]\8c\8cR\87\96Wz\86Y\83\87e\84\8e`\8f\9bX\8f\9fZ\99\91U\96\9eX¥§S©\9fe¬ t¨ªb¬¢h¦\9d[¥«b\9d¤_¢©\§\99h\9d\93h\9d\91l\9f\97i°\8fV©\94W´\9cT\9f\9d]\9b\9aa\9e\9a^¨\99_\9e\9bK\9b\94P\9a\89J\94\94[ \9dO\9b\9b_\9c k\95\9dg\90\97b\97 b\80¡`\80\91T\87\97T\86\92D{\8dJ~\8ePx|F\83\81Nv\84Wq\7fUm}`hxUf{`_\8fZ\~Q`\81T]\83V`|Ri{UfiR[fUedXUbQUbSTed[]b[^aLQQTQTJUOGK`OGd^Sc]S]ZU`iO]iTbfZ`gXhjLhWLrSEh^LcVVjTXaZTg_YrZXn`UxWTy[MrUSw\Xq]X|P_xEW{GS}TM\80JL\80HJ\84GU\8dS`\84M`\8aTd\92Wk\8dJ_\8cV`\8eCh\8cU^\95U[\92RS\90PP\8cZV\7fVY\86cJyXH~YT}XO~]Z~P[\80U]\89U^\86__\93dI\95f]\8aj_\95_Z\9cRV\9aN\¢YY¡PR\99MI\9bMM\98HS LT\989M IE\97BN§AN¨<Y¦DQ§AC®CQ\9d6O¦6O°=N©HI¨OL\9cKL¢IR®GK¨RQ»ME¼FL¼KQ°@W²CS¼G[�@W¾>E±GS¹KP¼ES»QYºATÀAP¾HF¼PT½H[¶URºSWÃHbÂH\¹Pn°Hs­Hp¯Hj«JoªNu§Jw±S}°X\86 M\88¨S\8d§K\88¯M\87¬O\80¨C\85®M}»M\87¯V\82¹Y\7f¶L{�[\81ÆI~¿E\8eµH\87¿F\95°G\88°?\8aºA\86³K|¬P\88±Sx¨Z\81µ`\83¯Q\89¬R\81±W\8b·f\89µh\8b¬h\92±`\9a\9co£e\9a¢h\98£a\89­e\88¬h\8aªm\96£r\94§g\95¦[\8d¡W\8e¦\\81¨Z|¬]z¨O\85«[\8c\9eV\86\9c[\8c\9fT\97\94R\90¡Y\95¢]\95 q\90 l\90¥d\9f¨r\9a¤t\89¤q} iz\9ed\80\9ejx\9bh\80¡\\83¡d~\94\}\91Sy\96Z\84\9bd\8d\92g\8b\93`\8d\95Y\81 ^\81\9aS~\98S\80\95U\92\90S\8f\92[\87\8bX}\8dc\82\91]\84\91X\91\9bZ\99\9aQ\92\98V\96\9c]¢¥k\9d§n£¬q\9c b¢\98_\9d\95]¥¢a¡§Xª¡^¤\96` \95d¤\9de¯\9bV®\95V¯\8eV®\90\£\96Z¥\8fS¢\98J\9c\8dO\99\92T \8fT \8e\ \9dX\9f\9a]\9f\98l\96\90e\9a\99[\92\95m\8b\97m{\9a_\80\98Z\80\94Pz\90C|\88>{\85Hy{Vo\80Zqz[l~_cz^T|aV\89PV{P_zT\vT_zSbqSfg`[o]alY`nNb_Q]cYYWaPWaJ\SGUUHMcOIbOO_SU`XVb_YZZPYfVWdKihToeMv]St[Hh^HfXPb`Yg\[vW_tcUn^QndQpdSsdMvlYoc[tbO\84OO\82HS\82NO\86VL\8bYR\94\R\8bMR\88V[\8cNc\84Ih\8cM^\8dDY\89HY\97VP\96RV\91WS\8dW\\84VX\85aS}VQ\86[K\84bI\85_S}]N\82US\86]`\8b^c\90X`\8b[Q\92eR\8de`\8fW[\96VZ¢QW\9fU[¥LT\9bFK\9aAH\9dHI\9bGO£9O\9aFC\9cFB DHªAQ©9T¤6G£7O¢8M¤GI¤HP\99KK\9eJF\96RJ\9bLK\9bKU¬PS´CM¼?Q¾F]¹C^¶@T»MW·BP²>T¯CN­IN­MN´LU´DV¾DN»KFÄKJÄHQ½SZºU_¹Md·Ki¼Na½Aj­Ds¬?k´IhµKn¦R\7f¬P\8e¨K\8d\9fK\86\9dG\8d¨N\90¤G\88 B~§I\83²K{·J}¶C\87¹I\82ÅY\82ÇZ{ÃPzÇR\80¿V\8d·J\93¸E\8f½C\83¹P\88¶M\8a¸R\82³Q\82¯Y\81±d\85¯b\95¶W\94�]\94»e\8bºj\8e¶f\90§^\9d¤d\99^\93\9dm\9d\9cl\96­i\8f®d\95«q\9e¨l\9b c\94¤k\92­b\9b¬Q\86°]\8aªM\88°L\88ªQ\83£Z\87£Y\8a\90\\97\91U\9b\9e_\89\95a\87\9fp\84\9dd\8e¢d£\98g\90\9de\8f¡c\84§j\81\9dm\82\9boy©b\7f¢kx§e{\98b\80\93Z\86\9dY\84\9fX\86\95c\81\8da{¢`\86\9aU\86¢Lv\9a^\87\92X\93\8dX\95\8bT\93~b\8d\88a\85\95Y\89\8fZ\8e\94N\8e\9aX\8b\9d_\9e¢Z\99¡[\9a j\9f¤a¦¦g¥\94i¦\9e]£¡S \9ea°\9aZ¨\92d¨\91]¡\95b°\8da©\92U¯\87^«\93d¦\8eS¡\95X©\8eX¢\95S¤\92Z\9c\83V¥\8cV\9e\8b\\99\99_\96\8bm\95\8dj\89\91h\95\96n\86\94nv\8f\}\99dr\98Nu\88Gn\87Th\8bWt\7fXe\8d\o\88Vn~Y[~]U\83i[\84TY\7fJb}X[\80S_pNghKfcV_kb]aRhaVeXT[bRLZ]OPZE\Z@KWJNfPO`KMcQPbOVgPSiSV]]K[eQ]fMt`Fs_Vs[WjZUcaQmUSn^XwhPg^Pk^SsgOlbRwaOp_KsaZycSwdN\84]R\85QJ\84_F\91[R\8aMQ\87GN\91NY\96GX\92T[\93R\\92L[\85UO\8dWW\99VX\99^N\96bQ\89^P\90kO\83fZ\85WQ|YKzeZ\86eU|bT\89b_\85^]\8a]`\97ZK\94]V\96^T\98VV\89P[\93PU¥V^£NK£IJ\95ND\98BM¡GJ¡4G¨@@¡HE£AL¤8W\9f@Q\9b>R£<J\9e3I\9d?T\9d?O\9dLL\9fNV DR\98KO\9fBNªOW«BU¶C_¹=fºE\°Kc¹DZ´I\­HPµIM·IP´JP«?T·LQÅBYÇHH¿LHÄGW¸O[¬I_­G`¼OW½Ei°Mmª<p²Fg²Oc¡T{¢Lz\9bS\8c£Q\8a\9f@\92 A\87\94F\8f¢>\90¡E\82­E\89³S\87±T~½U\89½M\86ÃU\8bÉO\82ÅX{ÅN\83ÆO\8a°K\8d½Q\82¼P\80¸S\85¶P\91�T\8c±d\95·`\91²b\8bºf\8dµg\92Ã^\97¼h\8dµj\9aµh\92±c\9c±Z\94]\9f\99h\9d¢n «p\9a©r\97°h¡¯f\97²p\99§i\94¡b\98¤Y\94§S\8b«[\8a©W\91 K\9b¤N\94\98P\9d\97V\98\90_\89\96k\89\8fp\82\98e\86\97r\94\94q\97\99k\95\9cb\8d¡\\8c¨g|¦c\84 c\82«^\81­iy gu£h~\9ac\81\92a\81\95]\89\9cV\81\95_\7f\97Y\82£\|\9bU}\95a\86\95\\8c\8bR\89\8fQ\8e\81[\88\7fY\8b\8b^\92\83Z\95\8a[\9c\8aY\91\91Y\9b\8dS\94\99Y\9f¨_«¦a¯©g©\9e]©\97]§\96_°\95]¬\94U®\8fV¤\90[´\8fT²\8b^¨\84`¯\8ef«\8ee«\95a¨\91Xª\8eQ \92[\9e\89^\9b~[£\84a\9d\89a¤\91a\9c\89f\93\8fd\91\89e\89\93_\8a\8eg|\88kz\87dr\8a^w\82Ql\85Zn\8bba\90a^\90_i\8e`f\8dcY\92lT\84gZ\87fT\87UY|MWrTTvNXySblZllVg\^b[]W[ZZ_VKX_NV[KTYQR^GOjFNeSQnOKeOMaNSiORhYH_[LkUSgZLqdRs\Vi^QjZVnSWrXXsgSkfNmgYucYogNniRjmStaRseUvjY~gV\8d_Q\8a`I\90UH\8fIU\90JP\92EQ\96PT\94X]\93OZ\8bZ]\8fVR\92VR\95[T\98\T\8dlQ\91nR\90jZ\84]V\7f]Q|_Q\7fe[\8a`b\85jY\8ea`\85hb\91lV\92aT\8f]T\93_V\8dWM\8dYO\9aTU\99JS£IV¢DL¦FM\9eCH¥CD\9a<D¦@M§?I¤@G¬6V«3[¢;P¨8J¡?H\9a;P\9c=Q¥<[\9dDZ\9e?Q GT¥GO«>T©6\«;g´>]¶9d²A^µGdº>c´CY¬CYµATµCP³?MºBKºHR¾MK½NQ»KS¯MR©SM©RX±KVµGb¬>a¬El£=g©Fl£Mm P}¥D}\9cI\89\9cF\8d\93G\82\91E\8f\9e@\8f¬>\8a«L\8a¯R\80±L\80½M\7f¿S\8f¿Y\8d¾N\8a¿R\8fÄN\89¶L\90·J\88¼V\7f�[\86»V\8fÂ]\89Âb\8eºf\98±_\95·f\93³d\90¿j\9d¼j\99¾m\98µk\9c¯d\9d±b\92¯a\95b¡\9dc\9a©m\9aªu\9a¯l\9a°n££w\9c¦p\9dªv\8c§`\97\9fe\91¨_\8a¢[\88©P\91¤W\98\98C\97\97[\95\94`£\97Z\8d\90o\88\92_\8d\8ek\97\99n\9e\9eq\9d¤g\95\9bb\94§e\81\9eot\9bo\83©r\7f¢a{¨ds\95l\83\9f`{\8fa\7f\96b\82¦d\89¡Y\7f¡_\82©Z\82¤X\88¦Uw\9eX\7f\96W\82\9a^\84\8eX\8c~_\7f\89W\82\93V\83\92N\98\97Y\91\96P\98\9c]\8d\99T\92¥V¢\9cT¥¢d³\9cf²\98X¬\93U¶\9eP§\92T­\87X®\8dT«\90N¢\91I¶\8dV¯\82]´\8eh©\95]§\90R©\96Y©\8bU©\8dZ\9f\85b \91d¨\82_§\8fZ\91\8cf\92\88^\8c\8fZ\96\8ff\82\8bY}\8d_\83\86ix\8fds\7fUv\86QqwT_\84fW\8fY^\8dc^\83eg\90``\87bP\8fj`\84aW\88YMu`]wV[mXapZ]i_\gZgUYbTTNSPU][IYQHOYTDaGOWGGZNJlQPbPVcSIdUJ_NSfNSbXOn_KkUQrdUsh[u]UgYVvRNnXV|[OpVS|aVx\_tXUq[Vm^WnaXvj[}jS\89[R\83fD\86TT\96HE\93LI\84MT\95QO\89SL\85ZR\86ZR\8f_U\8e`K\92dK\8fWL\98cY\99cQ\8ega\90nT\92l]\8cg\\8b^S\89[]\8a]d~h\{ad\8cqb\81[V\84]O\90]T\8b^]\8d_]\96^X\8dXS\95OU\8fJQ\93BL\9cKE\9aAF\96=@\927N\946D\97>D¢2W©?K¦DJ¨<P¦>W\9d1L\9f5P\9d;U\9cCZ\9fEe\98Hb\92=b¦IZª7T§9[¥K^´I\µ8i±D^­Ec³Bgº>^¹9S®EU¹GZ¯JP±CL·CS¾EYÃ>[¨BT«N]©E`©Nc²S^­HX©<g­?m¢=g¡Be¦Gu\9dF\8a\92O\8e\9dC\95\97M\8f\95@\85\9aL\94¦;\94 I\89´W\83µS\8d©T\89»L\88»P\8a¼G\80�P\89ÄY\84¼O\8cÂP\8f²Z\84¹\\8c¼[\88¸\\92³T\8e±\\9d»a\9c·a\9f¸o\97¯e\92¸h\8f¸j\9dÂh¡±_\97¦^£¦Z\93¶\\93`\99¦`¡¤n\9aªn\9b²t¢¦n\9a§q\92®t\92¤z\96\9en\8b\9fk\88§_\8a£]\97\9eN\95¤T\9b«I\8f Q\9a\9c`\9f\95^\9f\99f\8f\99e\93\9ch \9bh\99\9ap\9f£d\9d¡f\91¤_\87¡e} qt¤st¤p}¤hv\97ot\98g\7f\93k\84¡h\8a¦k\86£c\8c£Z\8a®U\8d¨W\84¥Y\80\9e[\84\9fV\85\97[\89\95]\7f\8aW\84\8a^}\8dS\82\8cQ\89\96N\8c\95U\95 M\95 T\9a¢[¡¬Q¬«P¶¡Y²\95Z²\8dX³\95M°\93M¬\8bV§\92M£\87K±\85O²\87Qª\8dcª\8a]±\97V®\94]²\98R¬\8bX£\8cf¡\92m«\86c©\89X£\86X\8e\83^\93\90a\96\95b\95\93X\8c\8cS\88\88Y\85\91^|\8a^t\85^k\82XgzVb\81X\\82WZ\86a]\82cd\83c[~fQ\81hU\84hXucQvVVvZTjXXg`[l^QZXUMX[JSUOZ^N\U[XQRRTC_PG`RCdGGeHSaUUYTPYYMdNEnMEjPHlPMoZZs\]ybRscTmXJxcVx^YwW^yTZxWX\7f\cwY`tZWv`OmcSvXS\83YX\80fN\80fF\90^C\8eLO\8aNX\89JR\88WS\87TE\89QG\86WX\89^O\97dF\9f_?\98\G\9bgT\96`Y\97iY\95d_\87__\87kU\8b]U\8bZa\83hf}l`\81sW\88h_\8c`P\84^R\8bZT\8d[[\9cXS\9d\Z\94XW\8fIM\90RO\8dKJ\98I=\95H?\95CI\90CO\94=P\979P\9d<I\95>Q\98KJ\9fHO¨;U£3W\99<X\94?`\99@X\99?_\8fC^\93?b\8dD[\98>Z¤?b I\¤Cc¯EgµEm´Ge²F]¯9Y­Cb®@Zº=R¶KX¯>T¯@V¼?\·<e¨7f Cb¤Bi¯Jd²Je±K_°<`¨;f¬=o\9e@n\9e<y\9b@\85\93D\90\90J\94¤F\9b¦C\97¬>\8eªE\93²S\93¯Q\82«K\8c°K\8d­J\8c­M\82­O\83»Q\82ÂL\8e¼W\91°V\8eµY~³X\8c»]\88¸]\94²U\98±[¢¹b\9c³n\98³h\9d¶p\97¯p\91­f¤µe¥¶h ¦i¢«^ ®\\8fX¨\9eU\9d c¦©e\98µa\93«l\93¥m\97\9dv\92 j\92¥l\95\9dc\95\9e_\95¨\\95¬`\91ªO\92¢P\90\9e^¤¤\©\99c¦\99b\99\9b_¢\96f¢\9bp¡\99k\9c¢r\8c\99o\8e¦k\82£i\80 o|\96vs\9eg|\9ae\7f\90bt\9ba\83\93g\87¥n\84 j\86\9ek\8e\9eg\82¢^\88«_\85\9eY}¢X\86\94a\88\91_\81\9cc\8c\88i\80\96f\86\8d\\88\90S\88\95R\89¡T\9c\9dQ\95\9bH\9b«Q­¬Xµ\9fT¯\96W±\8dRª\94T±\93N¯\89L¯\97P´\85A²\82H¥\8aJ¯\92U¬\93Y«\93S¯\8b`­\95a¯\95Q¦\8aWª\8c`¢\84b©\90[¥\8fc\95\8ce\8d\88[\8c\82f\97\92[\95\84[\94\82_\8f\93R}\93]v\88Vo\89Qf\86X`\84Zf\86\Y\89hS\80iU\86[T\7f\^\84_P\87iS\87eS{l_uXVlaSk[de\VkbYVSQQTRMZXHPOP^PSULTK[@VZN^OJaO?jHJgPL`WObWHoKJlZDuMJj]Ujb`vaXo`NoXUkWSr\[v\Rn`_\80QZsUS\7fMV~YUy[ZwRZ|_P\82YR\86NK\87`C\84^A\82ZI\8fHU\8cFT\8cQK\8aKO\86OA\88_I|YL\8d^N\87mR\91_J\9abE\9fbU\96cQ\94pW\91fX\88aP\91m[\88[Z\90S^\8b^Y{ga\83g[\92jX\8acQ~aR\8fTa\95V]\8fSR\8fYM\94MJ\8bVF\8fSM\8bJ?\90KI\8dJE\93JG\91HM\8d<H\98AL\91@M\94FT\94CU\97>W\987[\9b:S 6V\959Y\9fG`\9d=Z\8dC]\8dC_\8fIV\94EU\98Hb\9cLX¤Jb¥Ae¦>aªD^«<`µ<Y±:^¤<Y¥@\©EY²;c«Cb»;Zº9]²H\§Cj£Gi©K^¬Mc²Hn²<gµAw¦9j¥9u\9fLz¡F\89£M\8c\98H\97\95@\95¥F\90¨E\91­G\96´J\86±R\82¬K\83©J\98ªL\89¨I}»S\8c½V\8bºV\8e­U\92µT\86§S\87±T\87­e\96¶Z\99¹Q¢·T\99±[\99ªh\9d³l¢­h¢¬j\99¯a\9f¦b\9f­^\9f§a¦´d\93¯W\99T©\99Wª¦cª¬]£®_\96 _\95¢n\92¥k\9c©h¡£k\9e«k\91¯h\95¦g\91¡h\99\9f]\94 U\9d¡Z\9f W©\99U¦\94V¢\9ea\9b¤Z\9f¡d\9c\9em\9a\9ev\94\98n\84\9ds\85\9ch~ rz\92k{\94t\7f\9am}\94m\7f\9ef\81 p\87\9bj\7f¤i\85¦l\7f\99l\8e\9b[\8d\9cQ\90¢X\88\98d\89\99`\87\9bh\8e\96f\87\93d~\98c\82\95^\86\9dT\8c\94L\8e\96T\9a\9fU§§M¨¤R³¤N± J¯\96W®\91\¯\90Y´\93U³\94O¿\92Q´\84D¶\7fD°\8fK©\8fZ­\8fY£\97Z©\98]¥\8f^ \87_«\88bª\86h¤\83]¨\8da\9e\87i\99~j\91\83h\92~b\8e\8aX\8e\88V\8c\81_\88\81Z\85\8bR\7f\83[{\87Wk\8aPc\84Z^\81X`~eS|lV\82d^\8f][\8ebY\84bM\86[^\7fdaz[^o`cm_]_W\YTZM\UN]OG_TPYQHVPLNTOORK]R?YMCZVG_PD`YI^YO`TSnVJk]JrRW{R^u_UzcTm`Qj_Mf_Xa^\j`SkRYwSS|I^\80MY\81ITzMQwPV{SNxKK\81OE\83Y@\84YL|[M\80PQ\88MU\90LK\85UB\84MC\86ZC\82bI\83eM\83eP\90cF\99nK\9ftF\9drN\97iP\8doS\89l`\92_[\94Te\8bXd\8a[X\89VP\8bcJ\8afP\80aR\87b]\8e^S\94OX\8dQM\8fOO\92XF\8dXH\8cQ=\88WA\87N?\8cTH\8aSC\93OK\98GM\8b=U\88FJ\8cFJ\96BH\93BS\88>X\8e@O\92EV\9a>[\99CW\93Cc\98C]\8c>_\9aAe\98FY\91MX\98Qa\92J`\9cI\©Kg¦<d¡C_«;i°;`§B^®?a©;a®3e¸;i¹Cd¸<e©=\¥Bc§G_£Af®Ci²AnªGo°>y­Fy¦B|¨H}§J~\9aL\7f\98B\8b\95<\82\9b?\88 J\95­P\91²L\8d·S\8c¹^\92®Y\93ªX\8b®K\84¶M\83¶P\89°R\8d¨]\8a«W\8a¥[\85§g\87ªa\93¯f\95´Y\9dª]¢«`¥¦f\9c£b\9c\9eZ\99\9dc\9d©fª¥e¥¢c ¯d¤­`\99¬P\94X¤¢V\9e«V\99\9e[\9a­a\98¬k\9a¦b£«p§±s ­p\97 m\91¥]\99¯d\8f\9fe¡©c\9e¢^ \9eX\9e£W\9b\95P\9d¡R¡«V©¦]£\9a\¢\9al\9f\96q\8d\99m\92\9ef\83¢h}\9cuy\9cjt\93g~\93i\86\95c\83\96hx¨n\86©l~ªq\84\9brz£l\89\9cg\94\9de\83\9be\8b§g\88¥h\92 h\8c\98\\80\8eW\80\96i\81£d\87\9aN\94\99[\92\98R\9a\93U\9d\98V¡\9eP­\97Hµ\9cL±\9bRµ\8dL¼\88X°\9aX¯\90O¸\8aK®\85C·\85E´\88J \98W£\8dS¥\90^­\8bN¨\91S¤\86R¦\86]ª\8d_©\80d£\7fW¡~h\96\80^\8b\82h\94\85Z\97\7fd\92\8fZ\80\90\\81\92[\82\85X{\85bz\8e]o\87\b\83Td\88_f\85`Z\82pUzhN\87eO}cR\81]V\7f]^zgWybci]]qd]f\fRaZT\]U]UTjTP`WL\QMbSMZQO_QGQM=_PAhQI_RDhNU`YNmNSbPLlMNq[ZlOMvTOl]Tg\QrfWf`TbeOiQR|YH~MG\8aUK}MUyKN\83VN{SG\82NN\87YM\81X@\8fRK|ZR\89XI\90PN\93FO\89U@\90PE\93^B\82d?\8flG\80kF\87cA\93tP\8fvP\98fM\96gW\8biQ\8beU\90ZO\94]]\8eWX\87aX\90UX\86eW\99ZI\8aVW\8aTY\92UR\98W_\86XL\8dQS\90ZB\86T>\85]K\84^H\8aW>\90UC\8aYC\8dOF\89KE\90>Q\8aEG\8dJP\8cHY\9aCW\98>O\9eF_\94F_\9eFW\9e<i\92Ag\86Cc\89<]\8b:_\9c=j\8f?e\9bVk\95Mb¦B^£<i ;r¬De§;f¢9`´<c£FX @e²9a´?c¨2g¯?dªCb¤As«Df\9fAs¡=d°Am§:p¨8z«=w\9fEn§Ht©Fw£E{\98B\8e\95?\84¥B\93¦@\8e¯Z\87´M\8dªL\85§[\94§U\90®P\8e©A\94¦L\91±R\89«R\82¬O\90¢]\82\9ca\84¥X\96±_\95°`\98¯a\9a®Y\9e\9eZ\9f®g\9b¬n¤¦f¤\9dj\96\9b`¤\9eY£¡a£¬cª²Q\94¸[\8fX¤ªa ¥h\9e\9f_\9a\9fh\9b§o¦¬i¥«p¦§q\9a¥l\99£]\92¢_\98§f\97«d\99¦Z\9f\98V\9a\99U\94\99P\9b\9fP\9a\9b\¢§U¡ª[¢¢g ¡a\95\91c\8f\92o\90\9bg\88¢my\9asx\8fuy\92l~¡p} sz\98i|\9eiv¥v}¢g\86\9di\81§`\81¦a\89§h\84£b}¥i\82§_\8b\9ed\82\9dX\82\94a\8f\9f_\8a e\8a\99Y\99\9bO\98\90I\9a\8fV\93\8dQ\9d\97F¤\93Eª\9b>·\90H²\88E®\93Nº\90V¹\8cO±\85W²\87N­\88P¦\89C¤\8fN§\91S«\93I£\8eO«\8bT­\90S²\8bS·\84a®\7fc |Z }X\9c\80^\8f\81a\94\89c\94\84]\83\94X\83\96\v\96\t\86Zk\8eah\92es\88Wm}[j~]_\82kQwtQqmKoeQ|eVz]W\80c[zcWmb`c_febcZnd\ic^^`X^`UjTTdVCeMBgP?hRBgIDVOCaNFeRL_JJcOT\QV`PW]Y[iTUkVNnLLrNYlSVxZQvcZvdZgYRlWKzXK\88\C\89RG\90DG\85GJwHFzVL\8aSI\89_E\84\@\89X@~OI\82PM\86LH\95HB\8dG=\94RA\91a?\91f?\89]@\86a>\90gD\94oF\96jM\93iS\8cba\8ae`\91^T\87WR\93`Y\8dd]\95[`\8c`V\8bdU\97WF\8aSE\86WR\90QQ\91WU\8d]V\81\Q\88SA\81NB\82Y9\91X>\97WK\8fYJ\90TJ\90PA\88?G\88>I\89?M\97EU\8bGU\8fGY\90GV\9fLd\96Q^\96L`\96E_\97Gf\8cG_\858i\956o\93=l\8f<k\8fKs\9b<w\9f>k\99Fo =o¨8n¥Ch¬>^¯;e±FZ¢I]©8]¢4c§?d\9f;hª?t©Hq°DtªAr§>i¦3m¤>n\9fCo§Cs\9dFl\9b;w¡8v\939z\95@\87\94>\8e\9f@\8e©L\94±S\8e¨L\93¥U\8e¡S\87¡P\8b©M\91¤H\95¨O\91¤X\82¤T\81£P\8e\9bR\85\9dX\8b\9fY\9a­[\97ª_\92§j\8e `\8c\9eb\95§f\95ªo¢«b\99\9da\97\97d¤\9fX®¤T¬¤V ¯^\98´W\99d\99¨d¤©i\98¢h\94\9ag« n«°q¡®r «n £q¡ªh¡°d¥ªh£ [¡¥U¥¤a«\9fO\9d\99I¤ U¦\9aP©¥X¢£b\9a\9ce\97\99[\8c\91k\88\9an\92¢f\83\92nx\92i{\9apx\96js\9bmr£r\85¦t{\95o\81£wy\9bh\83\9be\84¦c\84\9eb\8f£d\8dª]|¨`|¤b\85\9e`\7f\91d\86\8c_\88\91a\92¦U\94\97Z\9c\91S\98\98E\96\8bR\9b\87A£\98D£\96M¦\8e=¬\8c<½\84I´\83H·\8f@º\82B¸\87K¸\7fI­~K´\83B­\8c@¥\8aS±\8eC¦\85I·\86F°\92Q±\8cQ®\86]·\8cY¨\87W\9e\87g\91\89X\98\8a\\94\8db\94\90d\81\92_\87\91`\82\85g|\88dl\94Ul\96_r\83Wf|[l\7f_hxd\tsUufTslZ~oX\7f\_th[ke[ggUnjkflbbhjYpZQbfTfdYdTWpRVoZNh[ClNH^PI_MF^LQhKPiRQcSPgLQdVZmU[h\XlVGvVKjWUjHZwPXveSj[YnQJqTDoXCzQK\8eKK~LK\89PK\83KS}\I\85QH\87g@\90SB\87\:~^M\86MK\90TF\90RG\8aV?\8fP9\98P@\90[F\8efH\8ei=\87a@\89hK\99oJ\92i\\98`^\8ea\\85c[\87SM\87dY\86hZ\87^Z\92WX\8dSK\9eRG\93QG\8cXH\91OK\8c]R\89RP\80TA\88ZF\88O;\87S?\8fT@\89[A\8eTO\89VO\92KH\87FE\8eFM\8fPU\91IU\90TU\89P\\94GX\9aK`\97Ee\9dR_\9dDq\9fAl\93Dn\91=s\94@i\8cIg\87Ky\8fAp\97Ai£Ic\98Dv\9bJu¨Lt\9cEc >^©5h¢=`\9dKb«Ah @r\9fCk\98:g\9eKy¥=l©7x£?r\9d2m¦/m\9b1s\99Ce\9cEu\9d=v§9t\9b9s¦:|\959\8c\9e7\7f«=\8b§A\90±O\91£P\94­V\8e\9fU\92\9cU\92¢M\87¦J\8d\9eW\86¡T\7f¡R\82¦W\8e\9f`\8c \\91°[\90²k\8e¬d\95¬l\86¥j\9b¤h\90§e\9e¤i\9fªr\9a\9cp\91¡g¢¥T¬¥[­¡a¢©[¨´N©m\92¥`\99ªj\98®c\9f£g¯¢b­¨c®©m¨°p\9c°p\9c¬s\98©d£­]«¡^®¡W±\9a[ª U°\97S±\9aQ­\9dS¨£N¥¥X¢ W\97¥c\91\98c\96\9cf\8a\9b^\89\9ee|\98]v\9eau\92p\7f\9crx\9bwv\9dt\80\9dt{¨qx¡rz\9dk\86\9dg~¢_\87¤d\87\99a\84\9be\8a d\81\98g{\9fi\80\95h\82\98_\91\9c`\98\9eU\92\8eY\8c\84P\93\88H\9b\88B\9d\8fF¬\8bH¬\85B¶\8b<¼\857´\80B¹\86D²\80D¼\80L»}Gµ\84?¨\90D©\8aF«\7fJ«~P¨\89D±\8eQ·\85Q¯\8cY¬\89V²\87^ª\80d¦\86a\9f\82_\93\85a\8f\8de\90\8e^\8e\87g\80\85_\80\8fau\90at\91Xj\96dg\88`h\88ng\81nhxw_xn^rgSkoRur]vkXqiXpvSml__rcUq_`ga[ifYoZRu]WkbWlgIs[KkNFiRKaLIdKFiUEaNNfGNiNQrPQlSKuZKrVQjaGpZNjVWqNZwZVxUMvOJuYP{ORrNFxE@\81LF\8aDD\85GC\8bJF\86ST\8caK\90]D\84`=\88WC\89RK\7fXE\85OJ\87WA\94W>\93O@\94V=\90ZF\84Z=\89j@\82pG\8biD\8cbR\93gT\98[V\8d[Z\92^]\89UV\8e^_\8dc]\8fXP\97XO\8dOV\94WN\95SP\88^A\8bU>\84TD\85TJ\8eO@\8aM=\85QE\8fW8\91X<\8d^I\8fSH\8bJQ\8eNK\94HM\96PD\91[L\8fUW\95R[\91OY\92Dc\96E\\9f@h\99Gg\928m\95:t\9b5p\8f?n\89@k\88Es\92;j\92<q\94Jm\9aIl\99Ii£Hp\96Oe\9aGf\97:i¥>c\9dJc¦Dg£Lh\9eBo\9dAz\9bEw©Ao§Ax\9f@\81¤2~§7|\9d1q\9f,p\944h\931g\99:o\98Ao¢<n¤An :\7f¯7\83¯E|¦L\88«G\84­J\8d§U\8d£T\8f§O\8e¥U\81\9cJ~\95N|\9eN\83\99R\8b¥`\8b£]\8f§a\8d§k\87®l\8dªj\88§m\8e¦g\95\9cq\9b p\9c\9dh\9d\9cb\9f¦m\97«h§¨`¦£a¨¨b°©W¦¨V©i¦µf\99©f¢¬s ¨p¨\9ei¦­l®µy¦®l¤·l\9d¨n\9e¶k\95©`\9b¯n\9f¯`³¡Z­¬WµªT¯©\° ^\9d­e¥¤c\98©j\91¤a\8d\9ci\8b\97^\8e\8fi\83\95_v¡i\85\8ees\99k\80\9fm\82\9alv¢v\81¥j\86\9do\86¤e\88«h\87 [\8a©g\89¦[\8f©f\8b\9bjz¡g{\9bk}\99b\82\92g\88 l\93\9e[\97\8fW\90\90_\92\8fP\8b\8cH \8cO\9b\8dN\9e\8bK§\8dP³\88I´\85L°\89<±yEÀz?½\85A¶~C¾zB¶\8bE¬\85D¬\80F¬\83J¥\84E¨\81K­\86R¥\85X°\8b^¤\83S\9e\80^\9c\8ck\90\8d]\95\81f\8c\93[\8d\88]\86\92d\81\92et\8a_n\92bm\8fXh\8fXc\92ai\83_e\7frd}q_ukh{oXtbZ|oYjnRejUes]js_lvWZd]U`Y\gQPt[Lh\QmbXiVUn[JpYEmMJaEB`JFhHRdIRrBQrFFiWKkNUpLNo\MqOJmYQgKXtGbwMTr]VoYUjXVyQNs\DwZF\8aLD\87Q@\82J;\84VD\80PU\83OR\92QC\89P<\8eUD\8dXE\86fG\86V<\8e`8\92]7\8eW9\87UJ\88PM\8deD\8chR\82iI\87_B\88`K\88gS\93cY\90gV\8fdV\8cY\\86a[\8eiV\8fcY\8abW\8d_T\8bUW\89_O\8b`R\8b]O\87VA\85SE\80[G\86\C\85XB\89S<\85[?\8aUI\8fLR\8cGK\91JL\8dQC\95EJ\84MN\85IZ\83OR\89T[\98Gd\8fAe\8fA^\97Mm\9aKj\96Ci\96Hm\92Kh\95Er\8cNz\8a;r\97=m\90Jq\97Js\9eKo¥Qq\96Ff¤Iq\9c=`§@e\9d:g\93?d Al\9a?p @v Gq¨?p­=o¨6v¢*x¥/v\9c7q¡)w\9e4z£?q\9f>m\987h\9c2m\9dBx C\82¨@\82³It±H{¢O{ªJ~°G\8d\9eG\92§A\90\9fP\8e\95V\85\9dI\80ªY\81¦U\87ªU\8c\9cd\87\9cZ\8d«e\88³h\90­`\97§c\8f­d\9d¦h\93\9dk\9d§l\94ªd\9a®h\93§a ªY®§Z¯©eª³Z¨¨P¬o¨ªo\9e©m\9c¤t¦\9bq«¬g©¯m¥¨y§°k­­d£¯b\96ªp\98¯q\99´n¡°iª§c·ªa¸¥\´¦]®«c\9e°k\9d±d\91¤a\85 o\85\99a\85\95Y\85\8d^\81\95e\81\9ddz\9ff~\95fz\90^{\9bmw\99j|¡c\87¤j\83¬k\86¯Z\86¬e\8aµe\92¯d\8f¨j\87¤a~\9ad\7f\95^\83\97]\88\9dd\8f£j\9d\98d\9c\93d\9e\97]\95\88Y\91\89N\94\86L¢\8cR¬\89Gª\86T¦\8bR°\7fT±\84G¶xM¶\7fC·\8aM¿|M¸|L¯\84G¨\8cC¨\8fB¤\86;\9d~C\9a\80@\97\86I£\85R£\81U\9e\86S\93\84_\97\8el\97\8fg\91\8cX\84\88Z\88\93X\7f\92c\83\90f}\91Zq\8bTk\95Za\92bk\8e[l\8f[b\86lX~qf\84qb~o^{^WvcUknZeg`jkVlsPdsRcnMYePNcYPgYNtUJsUOqWSr^QkOChI?_ICVQBgONpERtCDuIEyFKlONmLKyZXmYKhPMoIPoNYxWZyUU|QTpSYl]Zw[IzNG\83PB\8cS@\8fP?\94QQ\87VY\8cSP\82K>\83S>\85`7\80]F\87bE\8aj>\84c=\91W>\93[@\8dQB\82QF\85VT\8bgR\84cO\7fcD\82gR\88[O\8aaU\89eL\84mV\80hV\89`N\8ecT\92l`\8ahZ\92eU\8eaP\86]Q\8a^T\83aP{XBx];\80`E\83V:\80S;{IG\80MR\80FV\8aMJ\81SH\83HH\80DT\88IR\7fLQ\80F[\7fSS\84PZ\89Ng\98Eb\9aF_\98Id\9eLa\99Bb\9aNe\97Mr\93Fq\8dGs\93Oo\9eHi\9eDn\91>~\90<z\9dHr\9aCz\9eNp\9dAs¦?f\9dDo\91Fj\87Ov\8cFu\9aLu¡Mm¤Fs¨<t\9e5z\9f-\81\99.z\9c/|\992\81 -\81¡2s\9d?o§3k¤4s\9fA\7f\9c@\81\9cEy§Dy\9eNq£Mx¡S\7f¬I\87®?\83¡B\85\9bR\8b\9cW\90©P\96§U\8c¢\\88¤U\8b¢_\89\9eX\8cªb\8f¨h\8d³`\91¬Y\95¬X\90¨c\95«e\99©b\8d­^\93¦X\99¥Y\9c¯b®³]¢ªX¡­Z\9f®Y®q\9a­qª«zªª{¥¦j¢ qª¦o¢¨\7f ®t¥±o¥«m§±k\94«v¢¯i¦¦j®¯i¹¬d½¬b²°i¦­]¤­a¡«_\99¦o\91\9bg\81\9b^\8f\9a[\94\97U\8c\94d\85\92Y\8b\99e\82\8ca\82\8cV\85\9ad\83¥Wx\9f_\86¤d\85­e\8b¦b\82¢a\89±j\98«j\96°i\92§d\90\9d`\85¤U\8d£Y\93\9bY\96 i¢\9ek\97\8fg\95\90^\99\8aY\94\84W¦\85P¦\8dI¨\87M«\82K«\83T³\83V±\80Q¶zM±|L­\82I²\88V«\83O°\81Lª\86@¡\86B¢\81H\97\81?\95\88H \8aS\9d\8aV\97\90`\91\8f]\9c\8ea\96\84c\8d\90b\83\8bb\8b\8baz\91ay\86a\86\8aau\92Vv\8cZu\93bf\8adb\8a_`\89kk\81sZ\83dZ\84o\\83a\\7fcXpmYpaYerUaq_ejNklYilW[oNLoOJcRPi]ApWRt]LsZSmKDjPNaSGURFcO?wCHsNP\80JLlOPwFQzLTtZLqRXgNOsPYjTRsKVzJNvYRrJYz[R\83]N~^E\85X;\86TF\8cSG\8aWG\88RX\8aKD\83VC\7fTA\8bY2~W>\85kG\8dZA\89Z?\8e]@\8ab;\81^?{OO{RS\83fX\80aS\7f]F\83YI\82iJ\85ZEzfH\8afR\88nL\85fR\8ffK\8cgY\8ep_\8egX\8ae]\88b]\8c\U|^J\81ZI\81eC\7ffN\87aL\84\F\7fO=~LK\84SH{PK\81VK\81ZP\85RS\85AI\82IQ\82HQ\83O[\81PT\80UV\87Sf\95P^\95Rl\9bFd\8cG^\9aPk\8dSo\97Mz\91Km\99Rg\95Hr\94Ap\8e:\84\92E\84¡E}\99Lx\98Ks\98Np¢Lm\9dJo\95Io\89Ru\85Lp\9cNo\9bKz\97Ep\9c0u\9d3|\95<}§:\84\9d(\82¨'\86¦'\81\9a0x\90=t\91:{\9aE\7f¡4w¥5{¡5|©;\83¤<y¬@\81 M\89¦D\82§C\83¦@\92\9eB\89\9fU\8e¤R\86\9dP\96£S\8b N\85¤Z\8c£f\81\99Y\84«Z\8f©^\91®_\8e£`\93¥]\95°e\94¬^\86±S\90¦P\92²S\9c±\£ªX©ªT²¬T­£aµ{¤·v©¸n²©u©§m¦¡r£ r\9c¦w\9c«z¥°r¨©o¡­l §i§¨t±¡r¹ªk·®f±±g¯¯g­·g¡²e\9c¥a\9e\9eg\9c\95j\8e\99i\90¥_\96\9f\\92\9cY\91\94U\84\8bW\81\8c_|\90^\81\97Qz§T\83¨Y~®Y\85¬Z\8a¦Z\85¤h\96¦d\97¬j\8c¯b\8b«Y\92¦Y\90£b\95 Z\93\9eX¡\9ed£\9db¥\97Y\9d\91\\9a\8fX¢\87Q\9f\80R \83O\9f\88K©\8bJ¢\8dN¦\84W­\87O§{T°\7fY¯\84W¯\8aV­\85S¤\8dU©\88I\9e\8cF¤\82@§}C\9a\81G\93\82R\95\88[\9a\90`\90\90c\95\8bb\98\8b]\89\87Y\86\90V{\92cy\85g{\7fb\7f\83`x\7f^u\8ack\87_n\86Vk\86]^\8cZd\8fhg\87ae\81efxmdmoYpcaoe`ejUkjVilP`oRdlN`kRPaSAaXAeQIhRDrNEuRJkPM`QLdQL]H=aIAtG<yE@zONuNEsIK{GJxRKrIRoKQnOZnURlOIsNMqJGoKQsXE\80VJ\84WD\87\<\8eb@\84VH\80JD\8aMM\8d[F\80Y:\82Z4\86Z;\85[=\89cG\86hH\93^E\97^K\8c\D\8ccL~]Rz\XzUV\7fQV\87YL\80ZB\80gH\83mQ|aHwe@\7fmG\7fnG\88wS\88tR\80zW~zX\8ao]\84cW\8df]\84g]|mN\88^O\87_R\86`B\89SC~XLxVDsTH|\T\85TP\85[X~MV\7fINxIT~STwRQ\80TZ\89M_\84Wd\86Of\93Ti\95Pd\8cNd\8dKl\8cWq\8a\k\8eQp\96Kw\96Hs\91Mz\93C\82\90@{\94C~\9fOu\99Rr\9cMk\95Oo\92S{\98V{\98N\7f\8fUz\8cK}\91K}\99Hw\955t\944\80\9a9~\9c8\7f«0\84¯3\80¥.y¡1\82\93=|\91J~\94E|\9c=\81¢:\82¤6\8e¥8\8a\9f@\8c©?\80©<\89¨J\89¡C\8b¦B\90¦D\88«J\8f\9fW\8f£[\8f£Z\91\9dV\86£[\83\9bd\83\99e\7f\9dY\85©\\86¨S\93¥Z\85©U\87¥^\8a¨\\8f¨Z\8d¯S\9c®]\98¯V¢¦^² Z³\9fe®¦a±sª°f¦³p®³s¥§o¡\9fp¯©x§©s\9a£l\9b¨w\9b²m¢¥j\9f±k««o®\9ej««c½¸m¬³eª±^§¹b\9c¹d\98²l\9bª_\94 p\87\97d\8b\9eU\8f¢[\95¦[\88\97S\7f\93^\80\99c\83\97^\89\90U\82¥Q\84\9aX\84¡b\85¬T\91£S\90¯Y\8b§`\94£f\8b®j\8d°Z\94§h\9c\9d\\93¥O ¡^\9c§g§\9bc£¢`\9c\91R\94\8aZ\9d\8bZ\9c\83Q\9a\88X\9f\90Q¨\84V\9f\80N¢\80V¨{Q¬~Y±\85V«\82`ª\8bU±\83W¯\8dP°\8cE­\8aM§\88C¤|R\99{N\98xJ\96xY\8az\\8f\88Y\91\8aY\9b\86[\83\90X\87\89]\82\85m\7f\8agq\85]{\7fko\84p}\84os\8ecf\8a`g\82Zd\90f[\83h`|\^\80hhwbexpgm_]kakdYdf\WZ`OWgRS^X^lKT_T?nP<kP8hWGoTJvOCcUH]IAcTFiA:mG?lK5tKCvQ>{AA{@G\81>N\83@QsIXkKToSQoLPuPYmPOxVPnGIxM>w]B\84\K\84_G|RA}TC\83MJ\8cGF}QG\84R9|\A\82^=\83d@\8ad=\8a\G\92kK\85hC\86`G\89YI\7fXOzcQv`SxZUx]E\85ZR\84gK\86kD}`SwkMydK\84nW\8bzT\87|M\81{X\81vN\8bu`\82c`\82d]\85sK\84kP{kO\84cV\8feQ\91`F|RL}VAp\K\7f`K}]M\88[_|YS\85SW\82NM~[R\85NY\89T[\8bNe\89Wj\91ah\92T`\88`^\84Xh\92Xh\94Zt\8fNk\8eTl\8eUz\9a?|\9bHw\9eIx\9a9\8a\8bD{\9b@z¢Hp\91En\9bUt\96Sl\8b[u\93Yu\90R\7f\92I\80\91Ep\96Cw\98B}\8e5v\93B\81\98?\81¤>\80\9d9\85¥/\80\9b7\84\9d8{\9b8\82\93=\89\96C\8b¤6\8c¡7\87\9e;\89\9c8\83§9\83 :~§=\8d\9bB\8e§A\97ªG\89¬L\83\9fR\89¡Y\83¢\\91«X\90¥a\84¤`\7f\9d\\86\97b\8a\9aX\94¤X\91­Q\99§]\93«`\90¤\\87ªV\95°]\9b«X\95£_\9c§^¤\9f\¸\9d[§¦d¨n ¬d§©qª¤o§¥u ¬jª«r\99\9eu\98¡w\94¥m\9a°t¥«q¥¯j¬©j¥¤k·®a»·a«²f¬µb«°X\9b®e\9f²g\96±e\8d¨l\91\9b^\8e¦Z\88¤`\7f¨[\85§]}¥S\85\9bd\86\9cd\88\99]\88\99W\89\9c]\8b«Z\8e®T\88¨T\93±]\96¥[\91¤j\8b¢h\96£i\9e¥e\98¡W¡\9aT\9c£V§\9f^¥\9e[§¥U\9a\9aU\95\8bR\96\81O\93\81M \85O\9c\84[§\8eX\9b\80V\9e\83K\9c\82Q¦\81P«zT¨{^¥\82Y­\89L¨\8dI°\8f@µ\8fD¨\8dF©\8dR\9b~S\9a\80D\8cxP\8d\7f^\99{\\92\88U\8f\90]\88\8ch\82\92kv\8cg{\90do\96hp\8ch|\88pz\8emk\8bni\89_a\85[Y\8fe_}b\ta`j]anb\xcgt\fm\k]S`e[U\[T\\SSbQWcUScLMlO9gG;nJ>gB:eDEhGFhK;qG;oI6yH2tA6zL2oG;yE;w=K\7f9T\83=P\84HWwKSvQWvORnQ]sQVvKKzJB\81N8}V<\83WF\85RF|QD{OD}NB\86JH\8bJH\82T;\8a\F\87[D\8d_<\89Y?\84dK\8aiK\8diK\81iD~^O\8c\R\86WS\7f\Q}aQyeN|kW|cO|bM\80hO}dD\83dE\8fuQ\89}^\82s\zwOtkL|kVyeR\7flV\87qW}xK}uO\89`V\8bZL\88`P\80]OrZKn_JpVNr^N|XWzXOzOQ~LX{QO{U]\88JZ\93X]\8c[e\93`j\8d\`\89de\80^a~ca\8dYe\92Ym\96Xq\95Ou\9fAv\99Hs\9cA\7f\9a>{\90=\87\92H\87\9cHw£Il\9aOo\96[u\8bUn\92Zy\96W}\91Mp\99Lj\96Dl\95Iu\8d?o\92<s\9d4w¥;\88\9a8\83\976\86¤Ey¦B|ª8\85\9d.\90\972\8f\9e?\85\94:}\9a<\86¤5\90¨<\8c\9c6\81¡:\84\9d7\8b¡=\91¦>\95£A\88£K\82¦W\88«T\8e©Y\8e¢Z\91\9fT\8c¦T\96\9c_\92\9f^\96\9eV\9b¤S¢¯`\9c´^\98­d\8b§f\8aªc\94¨f\95\9e^\94¤X§ªT¬\9eaµ\9b\¬g\9f­j­¤g¥¨k±°b©£c««o¡¥o\97¬j¡£r ¬i«¤t¯¢m¥°e®¬a²¸]º®f¶¶g¯·c¦«Z\9f«^\9b¨n\9b«n\94©n\95£b\91¨N\92±X\8e§S|¯]\89¤N\88¥^\82\9e]\85\94a\8f\99U\90£Q\90«^\9a©S\98¬S\91¨`\8e²`\9d­`\9b¢p\94 _\99\9cb¤\9eZ§ U§ªX\9e\9f_¯\96`§\9cW¢\95\\94\8aV¢\82_\9c\82U¨\92^\9c\8bb\9a\91\\97\8a_\9a~M¦\86K¢zS°\87W¬~Q³\86a¦\89]©\90W²\8dO£\92P\9e\8cG \8e\\9b~T\9azN\94tP\8f\7fU\89\82X\83\82Q\8e\8b]\81\93h\88\91i\7f\8e[{\8a^z\8a_j\95gk\86qv\8aui\8dlh\84ob\7f\_\8agg}c]ud^o[nrcpqVoxWerangVfWOQaUIXZSMWMHUIV]MAiFEoD<rJEoQ8fJ>a?=^I9lJ=lD1i?1m>1n=4l?8~B?v;M\84:K|@PzDMyNMzRN|FEzHHwMZvTM\80DJ{RJ\81Z:\86LC\82JMzH?\88RE\87R;\83J?\84U7\8aTF\87Y?\88ZC\82]A\90g?\8ajF\83aH\87lG~gB\8ciC\90dI\80fI\84`NzjN\83bV~dH\81kQz^V~mNxpJwhOzqO\82\81YtqMzqR\7flHxmJrfU\80gXznK\85~N~sQ\81pV}iV\89jW{]Gz]GzYRtPFpVGxYTzMXnNV\80[TsRYzX`\7fK]\86QZ\8eOa\88Ne\91Rd\8b]b~Ve\8a\b\83]o\88Vo\93Rz\9bUm£Pv\9fE|\92Rt\9aC|\9c>\84\909|\99Kz\9dJk\90Fl\97Ir\99Zl\95Px\9a^v\9eXw\9bNi\9cGw\91Hv\95Bs\98@}¤B|¨;\8b¡A\84\989\82\9d?z\9fA\87§0\89\9f7\94\9e-\88\930\98\90>\88\98:\86 8\92\9c<\8f\9eB\8e\9aE\86\9e@\87¨6\80£7\87 D\8b¢C\87©M\85\9eL\8b§X\91\98[\95\9dU\90\9f]\94¢S\91 W\95¢[\95¤W\9f§`\96³c\9f§_\99­_\90ª^\97¯X\9c¨\\98§T\96®Vª\9f\¡\9ec¨h°±j®«n³³e«ª`´¨i®£p«¬w¤¦x«¤j¡¬u\9e¯qª£qª§d­´e·²c³³[¥¬Y¦°a¦­\\99©X\98§e\8f«\\8f®a\90®X\86¸O\8b´Y\83­R\84¦U\83®T\7f¦U\88 X\82\9dU\8e\98Q\8d J\90\9fT\96©S\93 U\99¦Z\94¢_\9b©^\9d¡g\98\9bb¢\9b`§\98c«\96[¡¥]¨ \­\9eg¨¤b¢\9cd¥\97X\9f\8eZ¥\91b£\8ej\9c\86a\9d\82X\9e|W\98\81X\9c\80S¢\83J­\80M¬\86X¬\8c[¯\8f[¶\95T­\8aR©\92Q¤\8eS\9f\93W\97\8bM\97zJ\8bzU\83~R\81\83V\84\84W\85\81Z\84\88\\7f\87]v\84`v\8feq\93du\91cj\89op\8dkp}qn}wo\7fmg~pi}cazd^}VixYb\80VlxNovTgfRdbOQVYLLVLPTOVXMKiCKiJDpP9iM;iI5dF<^=>d@/l?5nE7gMAkK;nB;rB8|=;\7f=D|BH\849O\88EQ\83DK\8dOE\86HIwJTtNOuIKvFE}JH~QB~QD\84NH\81H?\86J9{K9\7fW3\87Y8\81X?\88cA\88]@\88fM\8bjN\93aK\89gJ\8dlF\89k=\82n>\87fE\84kF\81kO\7f`X\7f^PyjU|jMrdRseNvmNuwI\7f\82Jy|WouLvvHptCtkN|rHziP~jU\86rW~rZ\7fwMwxU{jMqhPrYOpQTsVNwNLtTKpVIs\V|V_yXWxM`\83R^\84W_\8dOj\83In\87Rb\81Rd\82M^\8aYg\83Xm\8bRu\92Vx\8bUr\95Mv\90Js\93Qx\9eR{\99A|\91;y\90=o\8d=g\93Kl¡Lj\9dMl\96Xu\95Ym bi\9b\h\8eLs\92Mx\99Fw\99Iz\9e>z¡5\82¬;\88©B}¯7\8b¨;\8c£8\98\99/\93\949\9e\971\9b\98:\92\8f7\8e\97C\8b\9a>\96\9fH\94\9fA\93\99G\88¡;\7f H\83\9dE\8f\9cA\96§I\91¢P\8a\9eT\92¥L\97\9eT\91\9f_\98£X\97¤Z\8e\9f`\96\9fc¢¨b\9c¶Z\9c²]\99¬^\96³\\92«Q\90¢W\95«[\9cªU\9f¥_£ f¡`®·m©°h§°`¤ªh§ªl¥¬j\9f¢u\9d©v£¦g¨¢m¨¦r¬¨l¬²k³²k«ª]°¼` ¸Z\98­V\9a¶S\92®b\8c«d\8e¨a\8a²]\8bµP\83ªT\90¢\\83ª_~¤O\8d¤R|¨V\8c\9fX\82¦^\87£]\92¯R\8e¬^\89¤T\91®\\93\9c\\95­c\95¬c\99®\\99\9af ¥^\9f\9b]ª¦b£«c¡\9ef³¨c§\97g£\9cd¡\8d[\9e\8cWª\8fc\9c\93_¥\8cU£\94R¥\89S¥\8d]¥\7fZ°\8eK¥\8bS£\8cN°\95_¹\98O³\93O¨\8dR«\89G\9f\86X \89L£\88H\9a\82Q\92tV\8bwZ\82\89S\82~T\81\8a[}\8dU\83\7fX\84\8bc\7f\90Y~\8dhu\8apn\96xf\93sd\88ch\87un\7fsg|m_zdYr^[}[iuTjyOdvP^rXbi[X^X^QYLTbGQXNUh\PqHBnM<sA;qEHpF=gA6gF6tB<rJ0nD>vI/z<8uN:sEA\84CFzAD\83@@\871E\8e@I\7fJ>\89IH\84JH\84CBvAKtEJm@4~S:vQ<xOD{GFxS:\80I-\83R1\8aX)\80R9\85XB{_>\8dX3\7fgC\85rI\8dcF\8c_K\89nA\8c^D\8ca={Z8\80cI~iD\83mK\83bW{`IviOtfCzhSplB\82sK\7ftM\85\86KtrHrvRvvIniXwoYtmN|xRzyN\7fvTwmLtoNtlTodVvZNzZNv[Jy_XpVSzVKyaWrbQzW]wVc\7fRg\8a]e\80Id\80Ln\85Zq\86Ka\86P^\85Yr\83Tp\8a]u\84K{\92Nr\94J~\93S|\8aH|\92Ky\98E\80\92Gw\8d?{\9e?y\90Kg\98Uq\9bTu\96Yi\8cUp\91Ql\99Xh\97Ow\94Ks\8fJ\81\95B}\92E\85\96<\86£A\89«H\7fªA\8b¡7\92\910\91\9d%\96\92(\8e\9e.\97\927\8b\9a8\90\9c7\88\99C\8e =\94\9a;\89 5\8b\9d>~\9bC\7f¨>\92¢@\8c¤E\95\9cW\94\9eS\8d\96O\97¢[\91¨P\8e¦T\99¢T\92­X\99©a\95¥[§\9fU\9eªe\97®c\95º[\99¤`\8f®]\96£`\95§Xª V¡¦d¨]±Äd³�j¬¾c¦¯m¢²o¨¦q¬\9f|¥©z\9e§t¥£|¦£{¦¥l©«b±®b¥´a¦³[¦ºe\99·a\97²X\92²]\97¶_\8c¬V\81ª^\85¯W\87¯V\83 V\7f\9e]\89£]\85 V\87\99U\8c\96Y\85¤\\94§W\91¬\\86¤\\88¬Z\89\9eZ\90\9fb\94°Y\95±U¤¬R¡ [¦\9e[\9e ]\9c\9da¥ l¨ªe«¢j­\9bc¬\96Z¢\96[¢\93Z \91[¦\90S«\8bS®\94P¥\8e[£\87[­\87S¯\88X´\94Xª\91X¯\91[³\95Q®\94R¬\8bW¥\88Lª\81Q \8bN\9f\88H¡\82F\92xV\8e{\\8c}V\82|_~\8cUy\90V}\85Tu\8a_~\94]\83\88`z\8cem\91pk\8djl\8bdf\85cg\82oonlqr`arifu`crWVcTZdTYldcpa_aU]]cNfcP^bQ^iZVnMKxD@j<@mCDkO=jJ?qOAuH9\7fK4yJ5w=;}>8}ME~KG{=F\818F~5@\858B\8f>8\8cC;\8276\81;;}E>\81A@x?7mH1rI4~JB{M?}LB\83P<wR0}V*\87Z*\82b0x_9xc:\86^2\84_>\85hJ\8b`L\8afQ\8cmL\8abO\87_C}X8wZ8|k@wdQylRsfF~^B}_Dy_J\84tH\80zE{{?\80\84D\86uI}qOtnQpuQywNzj[w{Tv|N~{XzlSvtP|lL{qXufXqiWpaTm[PuXTwX\o_SmaexVe\80Xg{]_y[[\82S\{S`xZs{Lm}Mm\80Mr\80Ww\81Tl\82Lo\85Lw\90Lx\8bLw\8dCy\96Hz\9dGz\99D\80\99A|\968p\99@p\8fQu\8e\z\8aZs\8c`t\94Um\97On\97Ql\98Oy\95E\82\97J\83\93P\80\98G\81£M\85£B\86\956\91\939\95\92+\9d\92*\94\9d-\91\97/\8f\9d-\8d\990\97\9a1\8d\8e?\87\92?\81\9c@\85\95:z\9f:\7f\9e@~¬@\83\9cE\89\9dI\88\9bV\93\9bS\98\9cI\99\9fP\88¦G\83 J\8bªY\89©[\92 Z\9d\9fS §X¥¡b¦«_\9a¯W\9e¯a\92¬f\8e¢^\94 Z£¬W ­d¨e§ºb®»k²²a«ºb³³q°²p·´y´¨t«¦z°®v«·{³¶m¦·[£®[§²X\9b¿`§¹d\9e²Y\97±S\90µb\8f¸l\8c¦l\8d±j\84¥V\82¢V{\9dU~¨\\85§R\7f¥P\89¥`\80\9bZ\92«b\83ªb\94°S\86 [\8c¢U\91§U\8e\9aL\91¥^\9f¶[\9b®X¡¤V©¥T©¡X¯¥_©\9dZµ­a¶\9eY©¦\³¦c¢\9eZ¢\96a¢\89Y \96_¨\94O±\93Y­\8f[ª\8fRª\83W®\8cQ¥\8ea§\8cX±\92R²\94^©\92Q­\88V\9e\7fK£\88K¥|R\92\89H\93\80S\8fzL\86y[\84\87^~\82Zt\83]y\89Os\85S}\82Uu\95_~\8bbw\83fv\88rn\7ffk\83guynvqglmfhs[hdccbe`obhbWdf[iki`lcblbZc\b`_][fWTm[WjYO\7fHK}N=qAN|L<p>AqJEw@>\83I:z@=yM5\82B:}DE}A?\8aBN\825A\8b6H\8c99\8963\90>0\89<5}57\81??\80<8qE/r9*tA-t?<{?A\7fJD}?:lF+sM+~`-}W+\80_4\7fX-\85d=\84Z3\82l:\82gJ\85eN\81`H}hEwgJvS>t]8~aC|eDtmKwlFx^H}`BndD\80nK\84w;\83uFw\85D\83z=\84|A\81lGvn[{o\{oV{x[p\80Or~SzsJpjO|lWu^Tw]Zn^VuVRp_O|eSj^\hYWv]as`]|Y_t]_vY[nV^yKmuR|tYm|Uhs\o\88Wz\86Yv\85Vy\87Mu\93U\86\9aSv\8dIp\8fJs\99Ju\91:s\95E\82\91>x\9f>y\91J}\8b[s\96`u\95d{\96Uj\97Lq\96Ns\93Pt\8cK\84\98F\7f\9dCv\98E\88\9fH\8c§?\81\9dC\90\900\9b\94-\91\91(\95\97+\99\89'\87\903\95\8b.\88\898\86\8eG\92\9b<\8a\99C\90\9b8\89\9e:\8f§A\7f©?~\9fA\88¡P\83\9fS\91¨I\98\9bN\96¡P\92¦R\91¬Q\85­O\84¨U\85©S\9a\9cT\9a¢T\9a¡_ª§U¡§Z¢¬_\92¨l\94¤i\96¦f\9b f¨¨b¦r¶Âk¯Äa·¹h³¶r·²nº·pµ·\82¶±\7f«·{«¹u¤»w®»p¨¸e£¿a\9f¼]\9fÂ\\9cÈS¢½R£»Z\9b¯e\94¬h\8a°e\84£m\83¡\\87¢[}¢]{\9fV\88\9c\\86§R\82¥X\90©]\8f¨^\95¦]\89ª^\8fªS\8d\9cU\94\94M\98\9aH\98\9eS\9d©X§\9cO¡\9d[\9e£Y¨¤R¬¤U¶¦Z¸¡\´¨b¨®d¨¤Z¦¢Z\9e\8e]¤\87b§\8ab²\8fY­\99a«\9aW¨\89T³\91V³\89\§\83^¦\8e]¯\8cVª\94R\9d\8bT¡\8dW\9e\86V\9e\80X\9auI\93yK\98\86P\8d\84P\80\81\}\86[t\7f[z\86av~Uo\86Ot\90Xx\8afw\87fx\83kp\84gq\7flp\81j|v`sjbtfWwh\kck^dk]bpaahhjiimcdjedfdffcldkeYnmJjcL{UCzSG\86TO\81HKz<Au?B\80=D\85;G}DG\84GF\88E:\82N?\81R<\89GD\87DD\87>F\8cH=\91@;\8fA6\92<0\8c@6\8a?6\8462v9=~8:w:1r>7n>3xB8x:5pE2qD*tL,~U+wS'zO'\81\1\84^7\80b<\81g9\89ZD\85]L\85gJ\80eKxaLx^;zeJyeHnp>rjCvf;qkDwpErnJr~>}|Aw\7fF|{B\83xJ}vB\7fvQzrW\84qZ|tN\7f\83Mz\81Um~HltLkhSphPqaVj\Lp_SuYV~UUva]sabrZcr`]qf_te`idad_`ePfdXonPwv[wnZp\81\z\82]x~dy\88a~\87e~\91W\83\9bU\83\9dSr\95Lz\96Es\95Au\93=\7f\8c@\83\95H\85\99O\80\8e[w\92V{\91]r\86Yr\85Qm\87Iq\8aGz\91Du\8aIw\94J\83\99F\80\93I\85\9bB\8d\8f8\90\912\97\8f)\9e\85'\97\843\9a\8c-\8e\8d)\92\8a.\86\875\83\8d>\8c\8fF\96\99B\90¡A\94£:\92\9bA\86\9c8\84\98?\8d¢J\8b«V\93©P\8e\9fL\94 I\8d§L\84§H\86¯E\86¦G\88ªV\8e\9cT\9a\96P¡\9dY¤\9aZ\9a§d\96¨]\97¥f\94¢h\99¨p\9b©p¢¬p\9etµÅp¿Âj¼Çr´¶t»ºe¸»r¶¸|½|¶¹z«»\7f°·{­Åe§Ài\9e»g\9fÆi\9d¿[\9e½U¡¶Z\91°e\93«^\8a³f\8d¬j\8c¨p\88­e\89¨d\82\98Z\88\9cf\86\95]~¦]\8f£\\8b©a\89­e\8b®^\93«V\91\9fN\99©J\8f¡R\97¡J\9a©X\98¨W¤«]\98¡M¨¥`¤¢Y¤¨Qµ¥T±¤_¯\9eX«\9f`¨\9eX®\90h¡\96g¤\97h±\94d¶\97\´\90U±\94P°\8fP©\8eJ¬\8fN©\91O®\85X¤\90S¯\8bOª\92W¡\82_¢\82]¢\85O¡\87T\9b}U\89\8a[\84\88a\83\85gwvbu\81bs\87U\81{\q\88S|\8bOz~Sv\84W\7f\82bpslv\83eixkmf[wieocgqjdrdk\WiWUkd^Y_khg^ggahZbh^eqafrebsiRxcOq^KsWLtWG\81KFtCEyBNy7E}3E\846L\7f<J\7fI8~?5\83?5\8e?@\8e79\8c>A\82A;\9077\91;6\9371\85</\9790\80>8}77s@0\817.rA-}B-{A5\85C9\82<&x9*tF!\87M)\83T zO'tZ-~V5\85XA\85XE\88cJ\87b=\8ddI}gC\80cA\80l?{eD{g<piGrdOtlLuoG|k<tiLsy@t{FwuE\83zNqrLvs?}zU}\7f[}\82Xx\82Oy}H|{Tf}Rn}OilQbcTjfKafMl_NmhSggYfcUnh_miofhjmec_kbZfi_VcgSgjNrkUnpSuv\nzSv\84\x\80`\86\85c\8b\8dY\8a\8d[\89\8dW\85\91W\84\8cM}\8bCy\8eCz\8eCs\89:y\8fF}\96Ey\98Oz\8dSn\98Wn\94R~\80Lq\83K~\83M{\83F\8a\8aF\86\94S}\96R\7f\8aL\85\9a@\8f\95:\90\905\91\904\8e\90/\93\85-\94\82*\95\91.\88\8f@\8a\8b6\8c\95@\92\97B\96\98N\8b ?\8e¥2¡\9a9\93\9c@\93\9cD\87¨C\87ªE\88ªU\88\9eG\86¥J\95§C\89¡?\87¡C\8b¦T\90¦J\8c\97R\8e\99\¡\94S¬\9bY¥\9fb\9e©c\8f ^\97ªj\99¬h ¢p\97ªv\9bt¹Ét½Ås¶Âp¸Æf³¼m¸½q¶ºvþp·ÅzºÇo²Ën¨¿l¬Èc\9e¿]\9fÇg\9a¾d\94¶b\9a¹Z\8a«a\8b«]\8c³f\92«b\86­i\80§e\81ª_\89\9bf\81\99g\86\99c\8f¤f\8b\9dg\8c\9f[\8dªY\94¢c\8e£d\90\9bY\93¤M\90£L\98¨\\9f©\\95±_¢´Z\9f¨[\98ªU\9f Q¡«[¬°]ª `¹¡T¹¤W°\98X´\92e«\94jµ\9e^¶\99XÀ\95U¸\92R¶\92R´\98T®\94O§\91G¤\93L­\89P¸\8eVµ\86\¨\81Z\9e\85V\98\88\¢\87[ \82\\92~X\8e{]\88\89^\86~`\82tc\84w`y~j\86\83b\83\82W\82\80W}\80YwzVtoipzmm}dmo`hgYxp`wjhqZjjZoeUj`Yf``Yg^]iV\eZlYUoX`y^izZazb_|_V~_Z}SVyMPpSKqONw:Q{:O\849J\88EK{?E\819A\8997\8905\8873\8a0)\883.\8c8<\8a19\81A7\87A:\88C4\94B7\8193\7f=7\847,\83:'\845,\81=4\8858\84:5\834'|;"w?(\83J%|T&vS+uQ'{\2\80X1\81RA\90QB\8da?\8c\3\80^8veA|l>wpCzc7p]HvfJzgP{nDtjHqs>m}>rzH}wHx\7fLywMvqJ~yX}\7fU~\81Hv\82Lj~FnsHkwOgwTfrWdjIkgNhjZicZmhYf`Yb^Rf]]`jj]kga\ncip\qehcqdVkjZwnOsuNwnMu{aovcx|[~\84_\87\85]\85\8aX\83\87N\85\8dJ\86\8eJu\82@t\8cIo\85Dw\80Gw\80?\84\82F\88\91K}\90T~\8das\87Sw\8cS\84\85W\8e\8dP\8a\83J\92\87J\8e\88T\88\89V\83\8bQ\8f\89@\96\8c?\93\957\9b\8e/\93\923\8f\8c(\96\89,\8b\95:\8a\96A\90\91F\8e\8e<\8c\99C\87\9cI\8f§D\9d¢8\9e©=\94¤<\96¦@\97 L\86¥N\8dªK\8e§K\8b\99J\8d£Q\85¨G\82¦S\8a¦P\8f\9fK\95 S\8f\9aX\90\8fQ¢\99T\95£^\96\98`\8f\97b\97\9fg\90¨o\94°y\8d®q\90tÊÄ\7f¿ÂvÄÂo½�l½½v¾ÇvºÆp¼¿z½�{À�}®Æm³Ìq¤Êm¨Ìc\98Ãc\9e¼r\9fÂv\97Äj\9e½c\88³l\8d´j\87®c\82¥b\84¡l\8b¡`\8a¨h\86\98o\87¡g\92\97k\87\98j\91¡^\88±V\82¦T\88¥S\93\9b`\9c¦R\91£Y\96§S\91®\\9b©U\97±d\9cª_\9d¤bª°Uª©e«©Y¬«\®\9f`²\9bZ©\98W³ ]³\9cY¶\92a²\95T³\92U±\96H»\9aW»\9aK±\90P¥\8cU°\91S¬\97N¯\8dV«\8dT¡\85`\9c\82X\9d\89]¦\80R\94\89`\89\80d\90|\\97\80^\84\84\\83yV\83y`wx\xxV|sbt~S~wZ{uYmxctxbopendet]cqfjydcgbgkSjo^hhY^fbUacX^`T[^l\cl\gzZbz`e\84e_}^U|_\\80LX\80ONuKF\80PR{:V\809N\849E\82A?\84>?}@A\8083~5.|73\8c*-\8b*-\8f7*\8e,:\8847\8a/.\8e25\90;=\8a:*\8685\8cB/\846*\88?1\8559}06\7f8/v4,w@+zA\1e\80J/|H/vI#\82P2\83[:tZ>\81YB|S<\87g>\82^B\83d:vm5sk@xp7tp6qlEyj@ql@\82j?wo:qvAy}@{|@r\84@psNnwPwoTt\81Nn\80QoxPr\83KgqGl{E]}V[lW[v\kmRcpZki[jkTclZacU\_Xahg\hd\lhj[tipw\li\aha^fm_nkWomWxo[uxY\81|T|t\\85\82Q\8f\8b_~\90b|\91Rz\88O\87\88J|\86Ay\80@w\80Jt\84=wwD~\83I\7f\8bJ|\89[y\8cTy\83K\89\7fK\8b\85J\91\80L\8a\88J\85\94V\8d\88L\92\8dX\8e\86R\94\8eF¡\85@\92\98?\9f\978¢\8d;\94\93?\8f\8e3\98\88C\99\93@\8b\97@\90\92L\90\9bP\92\9dG\92\97H ¦:\97¢9\98©>\94©M\88¥E\8c¢W\86¤X\88\9fF\8a\9aC\8a¨?\82©H\94¨S\91 U\9b©Y\8d©N\94\9aV£\93V\9d\97O\9c\8f[¤\95\\96\99^\97¡f\9d¦q\9b\9do\99¢t\8dsȼzƽ}ÃÆxÂËpÊÅtÂÀp»Åx¿ÅxÅÇ\7f¼Är�Ñu·Îw©Óz¤Ñq\9b�k\9eÇw¤Éx\9f�|\9aÄr\90¼k\94­q\8cªn\89¤a\8c©m\92«g\97©f\99¨i\91\9fm\85\99m\85\9fe\8b\9c]\8aªW\86\9cS\85\9fO\92\9eX\95\9e^\9b\96]\8f\9eb\90¦Y\90«_\90¯e\9b§e\99°_§®i«²b°©Z¯¥^­\9e`¦¡\ª\9f\´\9a\¹\92R´\90Y¶\99P¯\94O´\9eS¼\9dL³\90Y³\93[®\91V«\8fX°\94M²\86P®\89P«\7fZ\9c\82W¤\83S\9e\86W wa\91yj\98ze\94}^\8ezV\8c{P\83}[\83tR{rW|r_vq^tudqxaet`cubiibnhgp]lj[lo^ja[_d\`ic`keSbdW_[b^_[a[^dYrV^pZ[v[btaa\80_`\81a`|UW~\YxQK|IV\7f?S\83:Jw9Lw<H\82>=\80=8}=,u<4}2/\8822\8b01\9013\8e4)\914/\89.&\935(\9071\942+\87=%\86<"\83:*\85+2z-2\82,,\7f3,\7f80x9$u9/zD(\7fF)\85F*\88E.|N5\82N3|R9~b@\88c9\86g6\82a:ze:zp1wi1}sA\81u?wwB~tA{v@z\80?|y?\80wE\7f\7fFw\84HqxEw\82Iv~NuzKl\83MdxEhvA`\80EdyIfoK[pY`wUesWZpW`qVZfTcdUa`\ZkaUq\alajimbdsj`}blzcdnn^ppb|i\vrb\84pb\83tc\89{V\81}R\87yR\85\88Q\89\89]\7f\92T\84\8dK~\8aUw\82N{\81Iw\88Cw~Hu\7fJs\82Km\85Tu\7fZ}}R\84{N\86|I\89|P\89\83O\8e\92K\8b\8fQ\8a\88Z\8e\8aR\95\89S\93\84S\9c\83G¢\90G\9d\93O\9d\8fG\9d\8c@\9c\8a=\97\84K\96\8dM\96\92H\90\91K\92\8dG\90\99R\9d\95U¤\9eF\9a§B\9a¢B\8c\9cQ\97¥O\92\99W\8e\9cT\91\9bJ\8d\9fH\84£L\89 D\94\9aJ\8e T\95¡U\94£R\9c\96P\9c\92P\9b\94O¤\8c_¢\9c]\97\9bh\9d\9ce£\9da\9f\9c^¤£j\97}��{�Îy¾�xÈÂyƽuÃÄzÇÂmÉË{¿Êp¿ÈwÃÄnµÆx¶×s±Ëh\9fÌi­Ép­Ët¦Ês\9aÅj\9b�m\93·h\97ºd\97¶g\8e·h\97µf\92®e\8e¥m\93©e\8d¤g\86®m\8c«m\8c£e\82 _\8b¥[\8e¥b\98\99[\92 X\88\95c\87\9cX\98¤_\9a¡`\92\9fa¥§a¨£U°ªT­\9bV°\9a\§¨W£¤Y§\9a[º\9b^²\9eW½\95a²¢U³\95U¼\93M¹\95Z¸\8d^¸\92]¸\87c°\97Y­\8bS¯\8cG¨\91\¨\89Z\9b\87\©yX®\81X\95{[\8awh\8a{g\9a\81`\94u_\83x\\8cwc\8do\~lVzmWzv_wtYdm]jp\ht[^d\k_aigjoVusammdiu\ji[Xo^[p^^nOakUUfKjYOzXUw[YuV^|`drb[q`Ur`QrVWsPVyBMx@TsJKrB=xBAyDA\83;2z;-\81>1\7f4>\894:\8775\859#\8b7)\86>#\8c94\8e1+\91B*\90?*\839+\809"\8a71\8569y5;\80+9\81=,sC5\7fB's=.xD!}O.|G$zT.{R>~N5y[>\86Z.\86f<\8ee>~_-\82g4\84s3\80y9rs<nr?|z;vk<yq;ot?sr7zxJ\83tJouFktDpyIm|Eb\80G^yTbvOkwEauMX\7fNXoJ[|XcpRhmV`rQ[wXeq\`jYXf^[o\\`fWlm]cdghm_hoUl{g_xe\lp_lj`|f]tqa\85vV\80\80_\86\7f[\80~^\83\81\\82xO\81|Vx\82M}\83K\83\88N{\81C|\85M\80\80Bz\84SutHyzR{zN\80tS\80\83L\82~T\84\87R\86\85O\90~X\89\81Y\97\8dK\90\81R\93\81U\93{R¤\81J¢\91@\97\8d?\95\8dB\92\8f:\99\8b=\99\8cI\8c}D\90\81D\8e\87K\91\85@\8c\87H\94\91?\92\9dK¦ L\8e¡Q\8f«P\94¤N\98\98R\99\95N\96¡O\86¡Uy\94I\83\94U\8e\9bR\8e\9f_\97\99K\8c¢H\9d\9cP \9bJ\9c\9bT\99\9bT \9ch\98\91f\97\9fa\93\99`¡\9ak\9a®k\97\84¶Ì{½Î\83¾Å\89ÈÄ\82½Æx¿ÅtÌÀpοjÉÅmÈÈlÈÄm¶Îl²�h®Òb¬Ôm«Æh²È`©Ãl¡Åo\98¾r\99¸j\98Àp\8f»u\94¸p\9d±t\98®y\99­o\91ªr\84±n\88µj\85§l\84£b\87¡g\92«`\8b¢h\8f \\8b\9fW\85\96a\8a a\96¡T\9a§W\99\9f`\9f¦a­¢S¹¡Vµ\97Rª\9b]©¥^¤\9ba¯\92d¶\95d¶\9bb°\9c[±\9f]¶\9aQ¼\98Y»\99`¬\98`º\91a¶\8bZ·\89`­\8eN¥\8aK¨\89R¥\7fZ¡}S­{]®xd¤nd\93uW\96oY\91tZ\90nf\81m\\81q^\8aoY}heuncuuVqmXgm]eccedaclfla`i`qs`qu^kw[lvch}k^rbclTamQ\bJZfJllRpbMk_Ow\bmYWobUgdVm[Rq\YmOQsQE{GHzB8rG7m;8y:3\847/\82:.z@:uE=w90\8a8'\7fA,\80I\1f\87>"\8344\8cB+\8cD/\8d<3\857)\85;3\8b?3\8a=8{35y27\8299\80E6vC*zE!sH\1evJ vN&xT1yT;|]=\84[2\80U+\85Z3\83Z3\87j0\81p5\7fn6tq@ws>v|Dpu?soDmkFvj8zh8\80n9ufHmr@op;ksK_kL[vL]{NexN]rEb{HYyH[}J[|QcrVhvRdoMaxTkr[gjTbiVYcYUlfUjiYmp\`gQafUcvbjwddobSmdRviWxt\zq[v{_\80{Y\86~[\83zP\85vKvsIw\7fUu\82P\80|R\7f\80G\85|I}|J{zMy\80LyvQ\84xR~qcvtc\84\85R\81\85X\85{M\85\83G\8f\82P\92\88X\98\89N\8d\8aN\8f}L\9f\88A\9f\83C\9f\86?\98\83G\96\80=\93~=\8dx;\96~;\98zD\8a\83I\8a~<\8b\86>\92\8dH\94\92D¡\91P\98\9fQ\93\9aT\8f¤J\96\9dO\99\95V\8d\99N\8f\9dS\7f\9b[\88\96T\89\9eP\8d\99Z\88¦P\94¡H\96¤I\95\9aP \9bQ\9d¤X\97£Z\94\95`\90\9aZ\90\99Z\97©j\9c§m\9dv½ÊuÈ�xÇÊ\86ÅÈ\85Ë�|Ä�m�¿uËÈkÂÊvÇÆh¹ÅqµÆo²�g²Ôi¥Îr³Êm¨Óf«Ìf¤»f\9b¸u¡Ål\96¹u\95µv¥·u¤®q£°q\96±i\9b·m\9a¬b\8a´s\87ªl\90ªw\8dªq\88£j\88§m\88£_\8e\99`\8b\9ca\91\9b]\95\9ff\9a\99Z¡\91f\9a\9ai¦¢_­ W¯\99f¯¦a²\9dX¶\98\¸\96X¾\92d®\9d^»\99^ª\94R°\96ZÃ\98T²\90Vº\92g²\8d\·\85b¸\80Y³\81T³\81J£{V |Z¡sV«zT²zX¡ue\93rY\98wT\90we\85om{dg\8eqf\8diZ\82gczndulOok[ql[maZf^big[`fdhc`gai|\jkcptSmqT_g^\rVaeTd`IYeIaYQwfFhdKng_uYPhVMn`ThZJhSUjSSlKEsXIrICqE<sH=y=;z73\7f7;\84HApD;vI9\82D.\84H-\83C\1f\86>*\87I*\87G)\8a>+\83C3\899!\83D+\83=1}E4\827.w;6\8a@=\8242u>2yD#oM\1cvR/vO5\83P-{\CzT8z`AyY6zXAzh/\85k8xq3\80rB{n=rz>px=i{Gqr;rv@tbCpg;yhLnlAmm:kg9on?jhA[t?U|FduH[zR^|FcqE\{UTtPXySgvTg}W^tXpm^aqVkk\^\Zde_Sad^`ldSgQZqZ`|aVufZwa`re\sgb\80u]xwc\81|p\7fx\}p\~pYtrH\82vGulUsvW\84tM\80rR\7foH|tP\84zH\85|Q\83|X\8clSvvinz[y\83S\82\82W\80{Z\8f~H\8e~R\90\86L\8b\89R\87\88L\8d\80F\9bv@\94}D\98{@¢wD\99\87A\9d\81=\88}<\94yB\8f\83J\95\84C\95u8\95\823\95\8fD\98\8c8\9a\9c@\9d\94I\9a\9dU\91¤T\98¡S\88\9aV\85\92N\85\91L~\8fN\83\9dX\87\98N~\97_\81\93S\95 K\9e O £T©¥O  ^\9a\9fU\9c\97b\8f£^\8c\9a[\90\9ck\93§a \85ÃÈzÈÄ|ÑÄ\86��yÖÙqÑÒtÚÆqÑÆmÇËx�ÆyµÂqºÅp¹Çu­Êg°Ôe®Óo±Óh­�q¥�i¨¼m­¸s£Âp\9cÇx¤»u¥¹z¦³v\98³m\99¶b\97®f\98´s\9dµo\92®j\8b\9fv\8e\9cn\93\9fm\87\9ek\85¤b\89\98]\91 e\93\9ah\8e\99n\99\8ce¡\87f§\93d¢\9dgª\9aa¨\96[´ f¿\9e_º\9dX³\91^µ\95W¶\8cV±\90^®\90Y¸\91]�\93X½\8aXÂ\84aµ~^²{W¬\7fX²\81S«|M¨rX¬q[µwT¯sU§uc\95sX\9bj^\90jb\88bf\85_j\84ah\85i\\86^_~d^uiSgfWh`Mh\QhbWh^_c`_iYfxdiv_doXilTrsQilR`oMafP^^KcYKpdLoeIimSmdTf^QoZJr^AqdIcYBf]Ki[AnZ>~M<|N9sD0zI4{L;\83=:\87:4zE=zE>|N/\85D$\80K)vF"zN#zF1~D1\8aK'\8aD&\80D.\82D0\83G.\80;4x@0\8194wB7}>+\82K1vQ)tS2vZ2\86T9\89[:}U@{\?ydB{bA}l<|o6yr9}i>vsAmoDpsAoz=}w9|sAtpHufDmc>skHrqIpf<ff5gq7dy:ZvG]|HZ{U]~N`sS^qW]zNU}O^tXczVlr[mm[koVfdReaZ_e`Z\cTX[\Wb\ct[]v_[v_UzgXwp]ztg}ldx|jq}oqraqpbtsQunM|fH\82iKxvB{xG\86tF\8fmI\88tE\8crP\8fzL\90qW\85r[\7fz`wyXx{[\85}d\83|[\90\87Y\8d\87H\91\81C\89\86J\90\83I\96|N\93yR\9e}D\9b~H\9fxA¡\81@\95\826\94\89;\9e~>\97\80D\9duD\92tE\90y7\9a\7f?¦\8b<¢\93E\99\98N\95\94Y\88\96R\8c\9eQ\87\95Z\83\92]\84\88U\80\8eX\87\96J\81\95F\86\94S\85\90N\93\99V\9b\9aR\97¤M£¯U\9f©\¢£S\95\9bY\92\98\\8a c\90\9eZ\98\9e`¢\84�Õ\80ÎÕ\85�×{ÌÔqÓÔrÈËvÊ�zÑÇiÃÉm·�v·ÉpÃÂ}¿Êw´Ôm³Ùb­�kª�`ªÔm Îq¢�w­º{¡¿w®Ç}¥Ã\85¦¿w\99­u\93®i\98½h\92¿o\98¹h\8e¹l\98«s\90ªo\88\9as\8c\98y\82\98f\8a\95j\8f\8e[\8c\8f\\9b\9ad\9a\94h\99\98_¦\98jª\90n¤\98o¥\9fc¥\9ab«\9ce°\98hº¡f­\92q¬\97f®\8fl°\87Y¶\92^ª\94_¶\95fµ\8c]·}kµ\80`­\86X±\84Yµ\85W«uP«pV¯uM®hV¥zYªvb r_\9aeY\90c^\91dl\87h^\8cfd\8andxp\\7fbcjj[k__lYVcdbhaThZXlZZpbde`mkUom__tNcuZcsOkiNgeZb]DjbCc_DjcKu[JqjMrfGlkCf`OgeOpcEj]QmX<j`>zP:\7fN>zO7sF.pM1}H;yF5vRBtQ6\81V4\84O1\82L)~T+}G!\80Q2|C9yA6|N,\82D4\87;,\8cA-\8eG4~B:x3-t4+s3.\82J$\81P.\80V3\80^'\84T5\8aa3|g6\80Z;wm?t`>wgAqg1\83kBuqGlxKekNiwAp\817pzGt{;pgCllGshEddEon9sb0lk1jy:XsFO|QRtST\80L`lUijPcyJZoZfyTex_jve[l\`hUseXjlUddUf]`iVcgSi`]gcUhg[yaau`[\7fnSso`|t^\80uh{zfzplknnrnZ|hWvwGymRxqP\83vN{}K\84kG~qL\81yM\8a|P\90|Y\92\82Z}uV|rXv\83U\85\83Q\86\85a\81\89]\87\81Y\90\7fL\92\86M\95\7fF\92\80P\89\7fP\96qI\93\80A\8fvJ\9a{J\9dw6\90w-\8at<\8eq>\97yH\9cq=\9cr<\91\84@\91~7\97|;\9d\87F\94\89L\97\94U\8e\93Z\8a\91O\8d\8a_\87\85X\84\85Wy\92U\7f\9aT\8c\92\~\92Sy\9a[\8b\9d[\94\99L£\9fT\97 S\9aªV¡ªV\9b¢R\9c\9dY\9a©[\8b¢\ ¢i©\85ÇÕ\87Ê×}É�}ÑÒ\80ÔÇs�Èl×ÊqÑÃo�Ñn¾�\7f�Î~ÂÂpµ�q²Îq®Õ`¯�\¨Ùh¥ÕmªËw£�q­Ìv©¿~±Ç\81¨Â\8a\98·\84\96±z ¾u\9a¼m\97Âs\92·{\95±u\91¬k\90\9eo\8e¡l\84ªt\8b£l\93\95b\98\91\\9d\90^\9c\90i\9a\99g\98\9dk\97\97a¥\98f¡\97j§\9ag£\90m©\96a«\99c·\94rµ\97r±\8ay»\8fpµ\85l¯\90d«\92g´\95c®\8b`´\80l½wfµ{Pº\82JÀ~I¼{G¯mS²kS°nQ¬tW¬sU¤nZ\91bY\8fg[\89rh\8dwe\85\7fe\87we|bdx^fm[`_eek^cn\fj``gfff[be[kjaid\\tR`rXZjU_oXZcYc\S_cAca>pbKmYSeaNk`GrhHnmGkjOabI_SRkTIyTDwU;qJDuB=yO2nK*uH.kN:jNHqPFkQ1tU-tU.\80J/vM0{N-\80Q2\83L6\87H2zH7zJ2\82</\8eG3\8aA-|69y36v/&z9&|A)}E0\85B7{P-~b6\87i6}b7\84iD\82m;xm<\80p3wp;\7fx@|rCyuDntGksEp};p\80:dqBbqGhgDcgJdk?^cAfh1nn9is:gmMSvQSnOZvTgkWcnRUiMUpXerWgzeXtaZrZjdUr_Zded_]^f`WjY_j\[[]gh`yhb{k[{_c\82oU\81mSys[swg|tf~tjolhtj_\81pQ\7frJ}xG\7fqQ\87kI\89vQ\85s[{n[\81\81^\90\82R\8d\7f^\88\82\\86\81c\88z`\82\85Uz\86Sz\88Q\7f\86[\85\8b^\89\84S\90\81T\88\83L\8axI\8bxH\88xG\8fv@\8e\80K\8fzD\99z>\94s2\8cp1\8dn;\95kD\9fhG\9br;\91\7f@\91x@\96w;\9d~E\92\80O\8c\88U\84\8ba\83\8b`\89}S\7f\8b[~\8aY|\94[z\90^\85\96Yy\8e_~\97Z\88\9eU\99¨V£«L\9b¢U\9a¡\\96¦^\92¨P\98°Q\99¦V\8d¥V\9a\9bb¥\89É�\87ÈÞ\81ÆÖ\81ÑÑyÕÈzÑÊtËÌpÉÃyÀ�sÀ�\82½¿}»ÄmºÃl©Ëb«�j¢Ún±�l®Þw¨Îw\9dÊ|¥Óz¦�}¨Ã\81¬Ã\83 ¿\80\9b®\85\95¶\81\90³v\93¯q\8a©\80\87\9fs\84«o\83\9cl\95\98h\8d¤s\85\95e\8e\9fa\9f\90b¢\9aW \95f\9c\9eiª\99d®\9aY¨\8ch¦\9cm©\8cl£\92l©\8em¨\92b±\93q­\83x¬\8aq±\7fu´\8cn·\80c´\8eg¦\86c±\80aº\83c¹\82[»y[Ã}TµsN¾xS¸wQ°uU¯|Q¯qN±tZ tX\95gW\96if\99rb\98{`\82}f\89tc|qf\7fhehehglZej^gc^nn_ok`nahja[afZcbWrfZe\[e]^`^`^ShYU\`KdfI_hHeiYqiKfhHi\DkgN_^>`aFaZ;q]@eWFtT?wK8lC5wL)qA/sG+zL2tM5wKJnO=vP7wZ7\87U8{L3zV9~G+\80O+\8bL+\81L2\85D-\8b::\8272\8aI1xB+x:7\7f=)z3.\81=&\80D)\85E-\84U+~_;\7f`0}f?\83fE\88q?\83e7}rC\7fkB\80p>xnMth>hl>tzGfnDck;heEjl9fe=kj@bd5Z`>jd5^o9]h;anNSyKRyFZsL[mN[uLbjXNiZbr_jybjnXXhUcbdm`bahg\U]ie[gVjback^fp_rp\{_^sXhzbYufPwpc}yevv_r}fym`qnayx]\80qWzrW\82eO\92lY\86vL\8ajP\8dyR\91tU\86\83_\8e\89d\88{`~yc\88\7fe}\86U\88\90V|\92^\85\8ea\85\8eU\94\85R\99\8fN\93\82D\8a\82B\8ewL\86q?\86p=\83xG\85\80;\8el4\91r,\89n2\91g>\9br=\8fiM\9crO\93}L\90w?\98rD\9a{>\92mT\8cqP\87ye\88\83V~y[\84\87\\89\80Z\80\8aX\86\8dY\8f\83e\84\8dY\88\96S\95\96[\97\98S\97ªQ\93«N\9c\9cW\94¡^\94¯Z\94¬Z\9a§S\99¥c\94\9c]¢\87×Ü\87�Ô\81�×\83ËÜ\82Ã�yÉÊy�ÄzÑÆ\85ÊÄ~ÄÆuËÌ|ÀÈq°ÈjªÓq¤Õm¦Öo¦Øh«Ûi¥ßs\9eÔ\83\9e�\81\9fÇ\7f\9eÄ\83¤�\86©¹\86\9c»\80\93�\82\8f·\83\98­{\92£\82\8a\96z\83\9am\80\9di\8d\94a\88\93h\8d\98a\99\8db\98\91X\9c\90_\9f\9a`\9c\94cª\97^µ\9d[®\91Y²\95_«\8eg©\95p§\92m«\81rª\80r±\8ax·\83q·|s´\85q±}p¯\82v°|r±\83k¹\81e³\81d³~U¼vX»nP¹qS³}Q¸wK¼tS±wa«v_©w[¡pb\93pZ\9cl`\93ra\89xj\83rk\85k_}nbzcagadhagelbokbrf]robii[mkXfk\`f^imako[`d_Zffe^chUahFbbGjjNplJiaIgZMcZJ`hK`g@`_:iU5nN7lJ;rD4lB+iC1iD0xR6wS0uP:yU<\81[2}Y4xM4\82N=~S;\80T;\8eQ;\8dK/\94G/\90I+\92D9\87;7}G:}A7xB2\83<,\868.\7f='\84@1\87H3\81J>\8aX7\89\;}e;\82j:\83k@\7fe5~l7ti3zj;ycIukGue>npBruAlp?sb:l^@hW7d_9]]:bd;fd=_d;d_AY`GcmN]mJcnF`vBcwQ\lO`m[TrbVve^rbfl^feamgkicnjXjj^hi_jmdfxjru`ln\mmWvbZq`^nd\}fX{dR\85rZ\80qlwwpz|kwqdwwa{qW\85qX\86gZ\8bdO\84mO\8ctQ\89sZ\92xW\92\86c\87\8ad\86\7fa\83\87]z\88_\82\87a\83\92_\8a\96_\88\89W\86\88R\8c\90P\94\95F\92\88<\91\889\8ey>\8c{J\92vD\87u9\8cu5\88k1\88l7\95k>\94i>\92cD\9alD\9eoE\93oM\97tA\9csE\9ahL\97iJ\8eoP\8bs\\8dxV\8dwX\84~R\83~[\89w_\88}c\8c\80W\92\8bW\89\8aW\8b\8fS\9a\9fX\97¡R\97¥Y\9e ^\98¤\\90¯V\92¦_\90¤[\96¢^\8fª_\97\8aÛâ\81ÙÎ\89��|ÓÜ{ÎÌpÊÌzÆÑsÎ�\82ÊÄv��|�È\85ËÓv»Ös´Øx³ÜnªÛt®Ôl¯×y£Ú}\9a�\84ªÓ\82\9e�\8d\9e¿\82§¿\84\95¸\93\94º\87\9aª\7f\97¬\80\91¯\8a\8b¤\81\90¨\86\90\9br\88 n\8f\8cx\90\95i\8b\94j\95\8cq\98\85d \9bl\9d\9di¤\97b©\9ak¬\90l®\8eh¦\8cb \83l¡\89w®\93t²\90u¯\83m¯\88o­\88pª}o©{q¶|o´\80s­\7fq¨um®pl­qd´|c¹|X¯v[®nO»sU°}S»rV¸|c¦yb¥yf\97sd\8coi\96od\97ej\82pf\83kd\84d`~ekochnfadc\kmbge[sfgpiad`\igW`dbfnW^pUjf_bddbciiS]gJ`nDadNclJ]_OddN\YBX`BZ_JanH`^>kWFbZCpF8mD2uR;f?6fK+jP)~K8qO3vP9zK0\82X,zR3\83U7\86I?\81L.\83O%\8fL(\8fB2\8cI/\8a=/\81;4\7f47}39\8aD/\8a9(\83@ yJ%|P$\83L3\89O5\7fX(\88V*\84`9u[?~_9\83d1\83u.{p=zl?wp@moHloEoe9uj;snImt6_d5fh4]h5ca5[`6\_1a`9YlBVe?ZcOSsEbjM^vC]pHakYckQ[h^[kWloWorXkg_chggeflineffrZjcdieimz[rm_nk]~qU{sYurUti]xqc\7fnW|mexvmyoet~^smi\85he\89o_\8bjY\8cm\\8atQ\86lR\86i]\93xW\85\89f\87\85V}vd\8a}W\82\8ea\81\84T\8c\89^\8d\82M\8b\8eY\81\90E\89\88A\90\88A\89\81A\89}@\8c\83F\82w?\86qDzsC\89q:\86f7\96o,\92k4\9ck<\8do;\9fr7\9cwJ\8fwD\8dvM\94m?\9dwB\8dxG\91mN\8fsa\95yR\8c|S\8d~V\90vQ\8d~Z\95\84\\8c\8d\\90\92S\94\89S\91\8dN\94\9fH¢\9bW\9d\97O\96ª_¡\9e_\98ªZ\8d§W\9b V¡¥V\9b X¦sÛÒx�Õ\82Ù�\7fÊ�\81��vÌÌzÚ�vÖÉwÑ�z�ØwÑÓ\81ÊÔwÈ�w½Îy¶Òn«Õx­Ìq©Ër¬Ö|¡×{«Ê\84ªÈ\8c£¿\89\9eµ\88¢¸\8e\95´\94\95¨\88\92¦\85\86°\89\7f¬\83\89ª\8d\8c \88\89\91w\96\93y\97\91y\98\91\7f\99\95v\90\8ap¢\93r¦\98s²\94i¬\90k¢\8bn§\8eo§\8es\9f\86v«\86u¨\92w·\91g´\85t·}o­\82m¶zl­\7fi§~v¨yw¡|p¨mp¥hb«ohµli®u[¸dY±bg¸kc®ub¹xa´vb£ta\9em]\8cod\85sg\86jh\8ebs\8a\nwfj\80llyjl{oivcdviXk]emRblXbkYbd^Z]ecblbgtU`nVabhe[iq]bmR`lZ_oQ[pM]_LT_J\]A]i6Wf<Yj?_j?[j=^\E`\NiLEsG>oS9jB2rA#vM0uR.uO)|O1\86U.\80Q+zP.yP=\82U6}N'|M-\8aG&\8bD'\88=2\8bE;\89?6\884)\836-\8dB.\8d?+\8bC,|K$vL$|R)yZ\1d\80S!\81P-~\2}Z-v`+\80c+yl2}p<su<he;fb>cd5mh6rj=ntAbo?`l;Y`.Y`0\f1[].[X0b`4cf9_iG`fOZoJ_nFckJmsMfqUci]gd_ieUrk\ig_pqdpummggkgtlessgphadkgjmenw]qtZ~xZ}uWynW{kX\80tUzr`xii|mf\87ym\83{bzp]\8clf\8fs]\90i^\7fq]zqL\85nW\83pP\83{Z\84|Y\81}U\81xU\84wU\81\85T\8b\81\\81|R\82\80P\86\85K\89\8b@\87\87B|\828\80\898}\87>\85\84F\82vB~uH|u;xj0\83d0\8bi'\97j;\94hA\94r=\8fu;\99y@\98t@\8evE\86p@\8euN\8cxO\8at\\93xZ\8cxS\93\80P\9a\82F¢}M\99\8cL\92\8d\\98\92Q\91\8eV\93\8bM\9a\97M\9d\94U\94\91P\9a\92T\96£N ¨S\9a\9f`\97¡Z\9b§Z ¤^¢\99\¤\86ÒÙ\85ØØ\82ÖÒzËÕs�ÒpÒÎqÎË{Ø�\80ÒÎy×à \82Òß\88�ÎzÊÙ|É�o³Ëx¬Éx¬×o±ÆzµÆx±É~¨Ì\8c¨¹\80¨¾\87\99³\8f¢¸\8e\90²\88\94¨~\94¥\80\89¤\83~®\81\8f¡\89\8f¥\80\91\95\80\98\96|\9d\8bv\91\95v\97\96y\8d\87s\93\8er¤\8czª\95o±\96w¯\82i«\8ct\9d\85}£\82s¨\88x®\8by°\8dh»\85r³\88f¢\81k¯\83tªvj¬tq¤vlªjp\9brt§hg©onªke©jc«mZªhY¤jk\9fq_¡hl³y_ f`\98gj\93pg\8ekh\84m]\83hf\8ads\82gpzdqvceyfb{a^u]Sg]S]PYh\a[]\e^cdml_sXjgbpahhabs\asYXoJXsGXfNVfN`lPZh=U`GTeEZcET\CSh=]g<]X@^\GfYHoM?j[=qW4vD(lB/rI1rP$~Q3sL6\7fL)\7fR6|R=xO1|R.\8aE(\8fC'\84N/\8b@*\9284\88=2~C+\82:5\8c:,\90F1\8cG \83W#\89L#~U\1e|Y*\82U\1d\7f[+\83]0\7fZ#{a/sd-ps9vk5s}3cu5``0nl*ln.pk-`s9]p>er=bd5ba([m.dd,gk+hf:ar<Xt>XrKZiO_oHbnLduDooLmr]ig]xbcnqalhiqnjn]ivdfqcstmnv]nj`hgWjee{q\vuM\81vR\7fuave[|qg\7foa}vb\7foi\88ik\84qh\83qgykj\81yg\83m\\92ej\88oY\82mV\90cM\7foL\7fkP\85}_\82\7fQ\89yP\8d\7fX\83~Y\88\86^\90uW\86\80U\84\82G\83\81BzwA\83\88I\82\83Auz?yxE\7fr?yqJ\87n:{t+{j(\84s#\99b2\96k;\89f>\93w5\92zC\88zH\91pI\93tH\87jS\8as[\8cyL\96qZ\8f~M\96uN\94zZ\93|F¡\8bL¤\86[\9f\8eK\99~H\9b\8bO\9a\92D¢\8cJ\9c\8bT\99\94J¤\98D\9e\8fY£\9dV\94£^\98\9aX¥\99^\99\9dc¤\80�Ü\80×Ò\82�×yÓÔyÕÖzÜÕwÖÚtÕÞtÛÕyÑÜtÎ�\80�Ô{ÊÓoÈÊo¹Òs´Ìp³Õt½Î|½Ò\83¶É\7f¹�\8b¬±\88§«\8b\9d®~\9f®~\97³|\8a­\81\89©~\91 \86\8c¤\88\8c\9d\8c\8b¡\87\86\98~\91\9c{\8d\99z\9a\88\7f\93\8c\83\95\93\87\9c\9b|£\91s¢\89vª\8cm¤\84m¢\80p\9d\86w¦\8bxª\91y­\8an­\7ft±\84i¤\7fb§\84eªtp©qp«ij\9ejr\98ro\9foo¦to¦ps\98cj\9a`m¡be¢^l¥ae\9b`d¨op¤tf¦k`\9cci\8dm`\8bgb\8ab^\88gl\82hh\80kpydf|g`|bbrg[a^X^UZbU\]VdY__Yjgbtd^oifgendim]aobed^YgO`cQUkM[eDUlCRdGS`ET[IQXGWZNQbLJgIT]<a`AaV?eS<p\3pS(mN+uK.mJ#qJ%zK(pJ+vS6zZ6rT4w[/~T6\84V3\84K'\84O\1d\8fG$\86>*\87>&\81?/\82@,\80D.\87N*\8bI\1f\8bU\e\8eJ\14\85M\1euL&tS)w`&v_$qi'pf*zj0rj/fk.ku)`s,dm)jr,br#bl1_u1hp3_g5`k1[g,\d1\q$]k-cp/hv<`m=[oGfoFdqLngJtqGioIlhKukX|oSrn^qbg~^ruapv_sv^uzhwvfoubwsb\85lX\83tW\82tP\7fvY{i^vdhwgjw`brjewmf\8akq\8cqz\8eos\81jd\8cuc\87qh\93hf\91h]\88dV\8abV\82bV\83eW\84saype\81xW\88\84a\81\80Z\8ave\85|^\8avX\86wS\83rG\8bsK\81v@~\80Cu~=|z?\85~:\8cs=\83o7\88q0\83k0\8dm+\94n:\8eh;\8ac=\86o=\8co:\93pH\8bmO\8frH\8cgR\8bmV\93oL\9cnR\97zO\9e{Z\97x\\9c\85O¢\85Iª{M¢\81I\9f\7fK\95\8aP\9e\90J\95\8cF \8fK\9b\87O\9c\8bI\9c\92T\96\90W\9b\97Y\9f\95b¡\9bc¢\9d[\9e\89�Ø\86âÞ{�Ù\7fÒÒ}�ÚzÛà s�äz�çvÎä{�ßy�Ñ~ÒÙz�ÎvÌÅoÄÎxµÖs³Êx��~­Â\93­¾\8a¶´\89¨·\80£«\85¦­|\98¨\84\96¯\86\89¯|\8d\9f\7f\85\9c}\87©\8c\94\9c\90\8b\99\7f\89\9a{\8a\9c\82\8e\86s\9e}\83\99\83}\9b\86\81\9c\8f\84\9f\91t\9e\94}°\92q¦\88r¨\83k¥\89oª\8bk¬\8au±\85i°\86o²\82i¤\8bc¦\83j\9fqs£rq\9boh\93og£ja\98kk\98qy¤oc¡hb¡i[£Zh\9aY^¦cd\9dgn\9eqg\9eoo¡uf\97lc\88h^\84ec~gc\8c^e\89jr\89ik\86mkuqjmeelnXod\`NPhUPXRZbYU`lYal^lmbjfbncXbeWn^`jQYgQ\vHKnQQnJPh>Xq?JiSQeO[aCVdHVkHT\GPe>`[CZ`CiX@mb1gY,l[#oV"sV"iH\1dzG\1fqN0vV-qK)uU3uQ6\86P*\87P)\89V/\81K%\86Q!\87B!\87=*\8f?/\8bI)\81C&\86P+\86P"\8eQ\1c\81Q\1d\87R\17\86K'~Y-uW)xa$qa+ej"l_+qm8od)me1ip-_r&_k"cq0[m,]m-Vh2dh>Vl&[]0Rf'Qd&Zl+dv4cp@]jDek:fhGadCfnJjfL\rJsjUll_liYyha{do}mh{e}u`up[xrdn}curczzU\81lP\88xU\85}K{wW\86g_\80neufspeg~okwok\82ju\89cm\8fsk\90fi\80tc\83pb\8epk\8ccY\8c`R\8fb\\88dO\7flX\83o_xjU\88pT\90{V\89\86Z\8a|X\84xZ\7fuM\85lL\82}QxxMwsBss?|vC~tE~rE\81tC\84p<\81v9\87e+\80v%\83j5\8fqB\84mJ\91qH\87kL\92vH\80qC\89sB\81uQ\8eyK\9d}T\9a~V\97r[\9ap`¡\84M\9a\87R®\81W¥vG\9b\83I \8aQ\90\81V\91\89J\9d\88K¢\83W\93\8aW\9d\8dV\9e\8aQ\9d\92a\9f\96a§\91c£\90]¡©W\94\8a�é|ÛÛzÛ�yØ�xÖÒ|�ãyÙêwÕä\86ØÓ\87ÉÑ\86ÆË\82ÉÌ\7f�Ô\81Ò�wÆÒw¼Õz½�x¸É\8cº�\91ªÀ\94§¼\85®º\82¥¬\7f«¨\8b\99£\88\91¥\86\83ª}\83£\88\8b\9a\84\8a\9f\84\87\90\8b\93\8e\86\94\90\89\94\96|\8d\87y\97\80w¤}\84¢\88\8a¤\8d\81¡\90z\9b\8dr¤\8dy§\84r£\85t§\7fq¤\86i \88n¬\88l¤\8ai©\89f®\8aq«~p\9cvh\95il\94sm\95ti\9dna\9dib\99pq¡fc\9ag`\9egc¡\`\99Ud\9eXe jpªnn¥md\9aei\99l`\8eld\7fnozmm\7fbt\82iw\87qyzlrtmdrrgkg]l]^nXQiQQ\YXe_[kebea^hldcoXhdScd]fYXpYYpYUrUIvEMpH[qFMrOMtOUdOY]@RdCUfISeH]`:Tg@Z]9Vb6Xb:g^4p`#nU+jT$kS*jM\1erU$yM'\81Q2zL-~V&}[+za.\81\-\80\'\8aJ \93?(\8d=*\8eD-\8bI,\84D1\8dN*\8eH#\85R'\8cK#\86N\14\7fO\19\81P${R\1cuQ\1fi\&i]*j_._h/fk(^e'di*ai(Tc/Ra0Pf5Vc4Ql<Ze5`g3U`&O`*Vc.]e-^n8_l5Wv9]n=^h<im:dkIegU_tR^lQmgWvYcq\_qibukmqrzvg\81}Z|zVsu_{l^\83va\80|T\84~V\8byM\82kU\8ahZ\86hc\83ilwil|qc\80ftyaw\82dm\8cki\90di\86hm~ka\86g`\87k_\86`]\89nY}lM|iYxjT}sO\83jQ\8bsa\87\83f\8exc\83oT}nI}oKq{Kh{ToyJ{lHyuB\7fp>|l?ys>um?~l@}p2xm(\83t2\80sA\8euE\85nN\8atH\89zK\86|K\89zJ\82\81B\90}G\9bxK\98\83Y\95\84[\96uY\9bxT\9e|S©yJ£xL\9f\82L\98\87V\98\84N\9e\8eM¤\84Q\9d\86U\9b\81U \89V¨\92b©\91\§\96_¬\89S¢\96K\95£S\99\80Þá~Öæ{�ß~ÒÌxÊÖ\86ÖØ\80ËêxÚê}Ôç\81ÈÙ\89��\80ÒÎ|ÇÇ\88ÆÇzÇ�wÄØ\81·Ì\89³Ò\87²Â\86¯¾\8c©µ\7f¬º\8c±­|¦¥\7f©«\7f\97\9bz\8d£x\8b\96\81\92\90\84\86\91\84\94\8a\8c\96\8f\8f\89\8b\89\94\99\88\98\88\85\9a\84\84\94\7f\85\9a\86w \8e\84¤\8b\83\98\86u\9b\82t \83t \81x¤\88y\97yn§\84x¬\83u\99\81u\96\84u¢tw\9e|l\9epe\96nf\9bii\94mn\9dbk\9dak\99i`ªad¥`d¨`^\9bYg§bc¢[k§pv\9bfo\98er\94mn\92oh\85pi~px\81pzvus}kxzu{~qo{bjqfkec\maas]W`aJ[UPa]VidYh`XfaV`^VbY^jV\laTdXPp]LvFFsKF~IRrCYyLUvPUq=^_8TlAS]CN]IWhGM^4_c;Ma0Sb9X`&f[*m^*n\&iS'jL\1csU\1aoV\1eyQ)vX"\7fX \84`\1e{^"zd/z\*\8aS\1d\88G(\88K#\86I+\96R#\92L(\8eU%\83Z)\89N(}U'\89R\19\87P#wT\15\7fU\1f|Z\19pW+fZ&`j0]l)X[$U`)Um.ed2_c<Zb=Mc1Vb2Ok1Yf0Pi2[]-]a"b\/Un2]n?[j3^gHag6Zj8Wu:TpJgjO[nI_jRnleb`]ibhkZgx^tuc{xm}vZ}rTmkY\80kW\81zV\88uZvqU~vU\84v[yqT\84i^~ljxrg{up\81ql\86lq\83dm\82\d\8ekq}eo\8akn~gf\85h\\85h`\8bd[}`O\81gQ{hZzc\\8an_\81wU|yc\8dn]\89yTzwKwsTswLh~UiwHmaVscLn`@pcIkp=zqBmk?}i0th+|u=\8amD\88yF\92xR\90vP\8apQ\8bsE\8auK\87\82S\94~M\92\83V\9a\87[\9dv[\98}X\98\80S\9evY§}P£vT\9ez[\9f\81P\93\88N©\8bJ£\8dT­~Q¦\89U¢\8dTª\84Y \89Q­\8eN¥\88F©\97R\9e\95O¦\80äâ}Øà v�äyÖÖ\86�ß\81ÎÜ\84�ç~�á\87Îã\88Óä\8aÔÞ\82ÖÔ\85ÕÓ\8cÈÌ\85ÊÕ\83É�\85ÄÊ\90µÒ\93·Ç\8c¬�\8aµ·\84°ª\83µ¬\85¨¤\88¨§\83\9d\9e}\94 }\90\94s\8a\97z\8c\8e\83\86\8c\8a\89\90\83\92\87\8b\89\8a\8a\93\87\85\8f\86w\94\8ez\9e\89~¥\89\81¡}x\9eyz\9a\7fu\9a~w\97\82r\94{s\90wx\9c\83q\9d\80r tv\94tx\95nr\9dup\96os\9bks\9agf\91jj\8eal\9b]j¨a_£db jg¢cm¢Zm¤]u\9ahn jy¤et\9afm\97fr\8ckl\87kt\83m~\80l|vw~sur~nmzkup\rj[dn_[lcVle[mbTj_OpWVh_S_dZg]ZcbS_XJi`Qj\YeWWfPLsGLwMO~EK\80AZ\82C[yIYjM_f?blLXeJUePLfEOlERj5Tp3Rg)\k1c`,of,lb(b]!bQ)oO rN\18s[\11zV\e\80U\18\82a\1etW#v]&\7fR\1d~K%\81E&\85L$\8dX\1e\8fT$\8eM/\8dL*\95N#\8bY&\8d`)\7fa\1cz_\esS\15vM\1cuW\1eo`!ed&\`'Yc&aa%Y_&V\2Yf7Yi?Z]>[i>Uf2Uh/Qd.Yg-`\)h^&bf&Zf*Vh5]c@XfETn;SsARgFUl;bo=hfJhb]_kaXk^b^drWmtasuc\80sj|hi~kWtiT\81rX\7frS\83wPwwV{z\}{\|s^yjevqf\80zg\89rk\8cth\93lj\88dc\83^i\7fec\82bh\86kl\84ja\83eT}fW\81d[\85[Q\80_I\82`P\85pYwp]yme}s`~lV{qO{|PmuPlwTltOrfNy`YrXYm_NghMri=qb3tc3qg2\81h7\81s?\89pJ\8dsP\8evK\8etG\95oE\95tR\8a}Q\88zH\98\80H\98}N\91\84O\9b\7fL\99\7fN \83Q¤v\£v`©wZ\9dzP\9d\88N\9d\92E¢\8bF«\8cF®\85N­\88U¥\83P£\7fM£\88O¡\93H¤\98J¡\9fO\9e\98V§\80é�xà è\85Ü×}ÜÞxÙÞ}Öã\80Ôà |�à {×Ü\83Ñß\7fÞÑ~ÒÇ\81ØÔ\88ÑÓ}ÓÓ}ÑÌ\81¾Å\84¼¿\84®È\94§À\89¨¹\83««x«\9e~¤¤}¦¥\86\9e£|\9e\9a\81\8b\9b\83\96\96\87\90\92\83\95\86\84\84\8c\7f\82\93}\86\90\8c\86\88\8a\96\8f~\99\80\81\93{}\99\81\81\9d\83\80\99\80v\96\7f|\98\82{ \83s\91zt\99uu¡\80w¢\80l\91pq\94sy\95po\91|o vd\9fdg\98_i\95_e\9ehs\97Zb\9a_e\98fj\9af`¢\h\97_e\98Ve£hj dr\95Zv\99[z\98aq\85gs\84cqznpxnxrukztx}rhymkmVllVjj[Zh_a`\Xla]g_Rq[VqaRfa_c`[lZ^oNOjPZ`KYaNVsCWrELxNQtNE}@PyEbn:]c<biHa^:Z^BXhIMl9Mk;Nl*Ri%Tg$_[)a_,kV\1fmb+jX \R(aO'oW\17{M\17}N\1cyY\1f{P\1fxY\1d|Z2\83V\1f\81U$\81C"~B,\81M#\8bJ\1d\89S)~T)|M%~[%ug\1avg\1dnT\1azU\1dnQ\1dmZ\18i`%mb\17aj"Pk4Yi3[\1^k4VhD_b:h[5[e6Yo7Uf;Vg+da-fk2`o3Wi4at/`eDWt@foNQw=NsCSs:WbGafRpoW`eRZbgY^e]Wjmmfsoxnj\80om{iqvhfuj_~|eupX~sWtxZs{g}~Z\80s]\84{a\80t_\8bwm\8btd\87mq\7fnl\88fo\89fl\88ap\80`l\8fif\80h_\89qZ\7fbU\90jN\8b]G\7f_Vx_X\83gXyo_{k[~q^\81vZ\83lV|qQ~tMypQs{\jpXlcYpmPugNr_?yh>|`<qa9\7fd;}d9zjB\85xQ\83iG\92pO\8czH\98tW\90sT\95|Q\8cxT\96}N\99~F\9b\88O\94\84P\9b\84]¡yb«w^£vg§}]\9c}T\9e\83W\9b|S\9f\89V£\80M¥\83J¶\84S®\87T£\86X¢\88P \8dQ®\88W¦\93J§\92[ u�Úzæà \88Üä\84Ùâ\83ßÚ\82ØÞ{ÓßtÛÙqà Ü}ÕÜyà Ê{ÙÇ\7fÓÌ\89ÓÔ\86�ËvÉ�rÅ¿\7f·½\8b·�\96­¹\94­®\81¦¬\84¯©x±\9a}«\9d~ \9b\83\97\96\8b\92\99\8c\8f\98\8a\95\8c\8a\89\89\87\8d\87\85\8c\8f\7f\8a\89\85\8d\80\87\96\88\89\91\86\84\93x\80¡}|§\85}£\86}\95v\83\99\85\7f¦\88\8b¥\7f\86\99tx\9as{\9fs}\9dqm\95zl\97sv\94ui\98ha£fe\9agj\9c_n£Zh\9bfd\9b`i\9ace\91dj\94Ub\91Qa\9c^h¡bj\9aZi Wq\9baz\95Ur\89Zv\84^l\7fklrmlvclyft~hlx^bsa`nfimZkqc`e\]gRahOWlTWqaVjXTnTWuK[rJadGYbD\l<QtESqMMyDE\81AMyMQk@[e;]^<^aJ^]HSW8Zc;Pj:Pk1Il(Uk)eX$^X#hV$c]%`[#fS#dP\1daL&kW!j^\16vW\ f\83[ \84P\1f\83`-s^0\80U,\89M$\82G\1ezG'xC\1e\86M%|N-xN,}R#pY\17pe\1ekf"jc\13wW\14iX\11iS\18kZ\15cd\19_j(Nd4Wf9Qe-ae5bj@f`@db<egC]rAbk9V_8fd=fr:Ys7]o0_j8YpH]hEbqISsHTq@]kCXhNggRfgR]]Sd`]Z\Y]`d\kgdtvrr|{xzvvykovvft|axtazzWw}exva\84ti\80{c~\85^\85\7f]\8cui\8cxf\89ml\8bdl\80_s{dm\85ib\7fhd\86i^\81nY\85qU\8fiI\91jH\83gN~nM\87dN\7fiO}iS\87rX}ob\80y^\85uX\88xY\7fpUzqZ{v]or^ln[xc[~eXrhPsb=}]B\7fhA\87`?\89e>|gDysI\81vB\8djI\8byN\91~Y\93yW\9ewM\99\82V\8d\80N\89\81J\87\8eT\8c\8c\\97~_¡|`¢\83h¤\8ag¢\86[¦\84]\98|Y\98zS\9b\80[ \89K¡\8fK°\80R­\81P\9e\7fU£\8aV¬\8c\¤\85S¨\89L¨\8eV\9b\84Þé\87æì\83Úí\84Ùâ\86Ùè\80åâ\7fâãqÙãvÛÓ\84Ñ×uÓÓ\82Ú�\81�Ç\8eÓ�{ØÌoÈ�wÂ�}¿¹\8d°¶\90¯º\8e³±\8e\9f­y«©\7f³\99z«§z\9f¢\81\9a\9c\83\8b\99\8c\8a\9a\8a\9d\97\8b\91\92\8a\93\86\7f\84\8c\85\94\86\82\98|\8d\93\81\82\99|\8a\8f|\80\98u\88\9d\86\89¥\7fz\9b}\88\9f~\81¡\83~\9f\80\8b\9dp\85£z|£lv¡rl\8exs\92hz¡pl\99``\9eXh¥Xo£bo¡_u\98Uh\95dg\9aYf\8fQm\95Rc\98Rf§Pg\98Rm¡Ji\95Ty\8dav\8dS\80\80Vkvct|auyjtpjjp\u~Vkrbjlgke`mk]paer[ZbcVhhOZeNczVapZWlN\wKgkRYpCcgJVpLZj?]q=OzAWnGL}CUg@W_8bg;Sf@\]CXX?He=Qe;Kh3Vl1Z[+aU&eV&_d\16_X\17\_\ecW\17bY\14qS\1ezO\1a\7fW\1d\7f^\16yS\11}P\1d\87S\1auX-z\\1e\85K%zO\18\85C"\83R&|Z yN\1f~W'oT&uR\1ffY"fg\19lc\17x]\1diS\12lZ\16he\17hg\18Wc+Jg)Oe9`Y1eb2Zd?a`=jjC_s7amFZh8cm;^m3k|3Yv4]|0Xn7VrIYmLcfB\pDad:TlM_^CZhG]cS_dYgfPgf^]kmalrhxzuwo{xvxttqm}pf\84xc\84wfxvV|x\xya\83pg\8awd\88yd\82\80W\89\7fk\93lj\88ci\92kg\8beo\80bt\8din\90\j\8dh_\96db\93cQ\88dD\88bP\8bfH|eR\86gKzmS~p]\8cxc\8ag`\88kX\8dr[\8ct[\80sX\86mR~mWzncthYud_waRvkGrgA~nJxm=\86m;\88m7\82mC\88tC\84gO\87mI\8doP\8etV\9bsL\92\80W\9c{K\93\87]\9a\82X\8e\82S\87\8a[\8f\84[\98\86`¥\85^©\89a«\7fZ©z^¢\89`\99\84T \83T \81Wª\8dF­\8cR¢\80P¤\8bV¯\89X±\89Z\9f\8aZ\9d\8aZ\9f\90Y\96\8eëì\8eâî\96êä\8fçç\8aëÞ\86åÛ\82ÜÚx��tà Ú|×�zÓÓ\84ÙÇ\8bÓ�\81�Ê\86ÚÇyÒÎ\86Ç�\86ÈÂ\85ÇÅ\8c¸¿\83¸�\89©±\85ª§z©¤\83 ¯\83\92­\89\89§\8c\8f¢\8a\96ª\93\94¢\96\8a\9a\87\88\8e\86\8a\8c\7f\91\7f\80\92x\85 }{¢{\82\9c|\87¤\7f\88£}\7f¬~\83ª{\8d¢\7f\8e£{\86ªn\88­p{«w~£v\83\98f|\98fs\97_l\9fdk£`c [k\99cf [l\98Op\9fSt\99Nm\8aSu\93Ln\94Mp\98Lg¡P^\98Cf\9bGv\90Rx\8aS|\86W|\84Svt\uobnsawpckqcfvUilSombti]uidokes`_he_ihMllKdsSfq^]sYh|NdsM`hM_f?baAbeJcuKZwD\nBRrBRp:Wa>Ue;V]9IY=MV:HSBN_>VY<T]0U]$TX#b_"e`\16d^\11i\\1dq]\19oS\1cpU\12|O\16\80S\15}`\10\82b\17\85X\11}_\15\7fX'wP'|M!\88O \82O\17\85X\15~]\15y[\18s[!vc\19kZ\17i_!d_\1eff$o[#hY%g[\1d]](db(Yi0Vb/Vd5e]:jbCa`<cb@bnAfq9ap@iq6bk:`t9du:_q?Vy=`wK\iI\lK`dI\d>dcD]e=Z`AYkLagGmtJoqQkpgksmluoi|wftutuurtzqv\83vm\84xg\81|c\7f|c}sg\89qc\84{j\8bye\85{k\89|a\8d{`\8bmg\95bc\93ak\8adg\92ik\8dnq\95al\93fa\93a^\9a_\\91kN\90bS\86hN\86tM\87rS\86wZ\81x[\8b|_\95pg\91nm\87ya\7f~_\81uT\82tZunbwxf\82q^\80lR|iU~qK\82lR{qJxuH~v8\80k9\89r>\8fiJ\8crP\86jQ\8cpL\88vQ\92{V\8f{S\98\85T\9f}\\99xd\8d\84Z\92z_\8d~g\94vj¡}e\9e\83a\9b\82a¥|bª\85\\9d\8c\«\85Oª\8cM£\8bQª\85Qª~Vª\85T±\84_§\8cc¥\85[\9f\88[¥\86Q\9f\8dêó\8fêî\85çà \8aÜâ\88åç\8aå�\8bçå{âÙ\82ÔÛzÒ�\88ÎÊ\88ÔÆ\89ÓÓ}��tÙ�zÑÀwÇÆyËÎ\81»Ç\88µµ\8c­¶\89µ®\82«°r«®\83¦°\81\95¤\82\9b£}\8d\9d\87\8a¥\8c\98\9b\8e\93\9b\83\93\8e\7f\8c\93\91\9c\87\81\98\86\8a¤\81\8e\96\85\8e¤y\84¤\82\8a¤\84\8a¥\80\80£x\85¨q\8c\9e|\81¨p\80\9e~z\99zu¢ws\96pr\97qx\97b\7f¢ei\97hr Xl\9dRt¤Th\9eR{¤W{\9cQp\90Nf\8dNl\9aGb\97Vm¡Mf\9fLc\8cPb\93Si\85KkxJt{RnsUiuYtwMhz]tnZby\tzWjwYvgXq_eze_tmWzhOftGivMk~WXnU[{K`kSWpC]q9__?__I[dCWpMYm9Sr;Qo?[a@Q\:Pc@TV8O]6YN1H[8Ld:S]1Sc.OX(P[*SU%fZ\1efZ\19nb\11rT\1esN\1dnY\13zR\19\7fZ\ ey]\vsS\12\81Z\1duM\19xQ\1d~Y*qO)\7fK!\7fV\1c\81O\15vO\14|S\1cl]\1csV\18cV\10nY\17eQ"jV)hd*YV\1ddU+dX*gc%Rb'[`.\b2]a2Xb7cj7]l5Zw=_gEfhHeo@lmI`m9bs9c\80BV\7fI^z9Uv<]aGe`Nc`A\bFbeJY]JbhHcgRaaSmeTuoXpspo|pn|fn|itwppuxpnt\7frw\82h\84wmt|cv|[\85pf\87nd\82tb{yq\7fps\8a~m\89vf\8egd\8fim\8cmq\93bl\99ir\93Yn\9c[]\8e_[ j[\8fyT\90rL\81gQ\83j]\8fmS\8ep_\8dw[\94mb\94ti\8du_\8exU\85zQzwW{sS\80je\80h\\88ma\83gV}hJxcMxoR{pR\86tE\81iK{vE\81lH\80tO\82pK\8fmW\87tQ\96nO\93yV\94}a\90sX\9f\7fY\9f\85O\9b{O\9c\85a\8fxk\93{d\9f\8b]\9c}i \84i\9b}m¤\84e\9f\81f¢\7f[­\8d^\9e\88T©\80`¡\83^\9e\7fU«\89S¢{\¨\82S¥\82\¢\83R\98\7f�ñ~ãí{äì\83áÚ\8eßß\89ë�\85ßÛ\84×á\7fÜÓ\82Ø�\83ÕÈ\82ÔÒ\89�Ì\84Ì�\84ÖÆtÕÃ\7fÇÃyÂÈ~ÈÀ\84½³|±±|²¸v²·{¨±\84\9b®\80\9b¥\88\92«~\8c£\7f\87\9a|\8c\95\85\95\91\83\91\8e\8f\9d\96\92\9c\92\88 \92\86\9f\8c\86 \81\90\9c{\8c\9bv\90£y\90\9cw\8a¥p\87\9fn\83\94z\87\9a~| }\81\9fvy\98ry\9bwv\9ak\83\9fa\84\94c\83\9e]r¢^k\9eYq¨Sw Wx\9dLp\94Tt\92Of\88Fb\8fNj\91Um\94Ul\8aOh\8eQe\83Pc\7fReqEvtEvpAmnJdsKisIgzZo{Zqt[poSxadw_cxc_wvTz{SrqEp}J`xQ[vTZzGSuGReFWj9Te4Qh?UgIchG`k?\oGWp=X`6U^3Vd4J[3OV7SP0OW2MY5RX(Ph#J]-Ma%]W!fW\16ob\fk[\10lR\11qU\16lY
-pa\10xf\10v\\ f{Q
-pQ\1cqV!xW |J(sN'xQ&\81V rN\elJ\1enI\14pU\13m[\1chY\1ac[\edQ!\N#Q\"]\)]Q'`Z&Z\-P\.Rb3Xd/Ob+Qb6Th9Tm=[q:co5ag>mfKglGgt9Zs:bxG]{Cb{IZt>\o9_eEUe@YlGgiNciLdfJedPn]Sid`piiutdsomlvfxpbrsgyoisqlyfk\7fey\84nvzirx^\80s\\82s`\7fxi{uj\87us\8czg\90xi\8ckt\98`n\92\q\93hr\93`j\90^j\9a^k\9emZ\94oN\91vJ\85p[\87w[\86s[\90uT\93vR\8enY\8cud\88x]\91vR\85\7fT\82|M\86\7fS\81xayn]\7fl]\88uY\89gL}cNxkJ\7fkP\83qT\85mP\84iFxoI}pG\84rV\87kU\8af[\8bqS\94qQ\91q^\9as]\92}T\8fzQ\9d\80K\95\80O\9d\84\\9ey^\98\83^¡\88f \89f\9d~k\95{t\99{k¢\7fh \82_¡\80X\9d\8f_\9f\96\\9c\8b]¡\82Z§\80X yY§{W¨\8bI\9d\8dJ¢\92åß\87èé\82èä\7fîã\87íÛ\80à ß\7fÚÒ~ÙÒ\7fäÕ\82ØÎ\81âÕ\80ÙÎ\85ÙÊ\85Ò�vØÃsÑ�\7fÇÃ~ÉÂ\85¾À{º¹z¸�~µ¿\81¶°~\9f·{\9e®\84\97ª\87\97\9f\84\8f§x\95¤\89\95\96|\89\8d\85\89\93\8d\91\90\8a\8d\96\86\9a\86\8f\95\92\95\93\87\9c\97\87\98§w\8d¥s\90ªl\87\9ex\84\9a|\80\9cs\84\97o\84\9cu\85\97z}\97x\88\96j{\9dl\8b\9fc\81\9c^\86\9cZ{¡bz©cu Z| Tv\97Lo\90U|\9aXl\8cMl\87Sl\92Kj\91Rj\88[`\88TixW`pMgnBlvIuy?sqDszL|nBztT|vZwxWolStmZva]ziLtiTpxIlwJe{QdyIe~NVs?_mEWlCPp>Ik7MeELkDWl9ao9``6O^<T]6Nj9Pf+G\0FX8HS+U^-EX8FW%El\17Qh\1aUX$\`\1caU\12cR\18fN\16fZ\1enX\1ckT\17bU\18t[\bmW\17tP\16qM"pK\17jO\1czK!qL\eoP&xR\17iV\efW\17lN\12_N\17^[\13`W\1e\H\1feH$[L*XL&PQ$]E+SG0^T(VX,SX0R^&NY%^i1Zk>Tq<bq>an6gl=dnDhg=fsEWy@Y\81?f\85Ii\81KbwI]jLatL\nA`fLakGZdP[]Hd`Njd\gdeoebsj[pgelqkiwiordnulvilljux_qqdx{hmlesvhv~kvslq\81i\7fn|\8d{l\85yi\89gu\8bal\99an\90hg\96hl\99Yi¡l_\90iY\89iS\95vU\87rS\87wa\8eqb\8b}[\95~Z\92w^\90oW\94rc\8f~]\94zR\8e}Z\88~M\89|SxvR{nVymV\86mV}kK\83bS\7faK\8cmK\8d_W\85rV\82oK}jP\80v[\81f_\90m_\89uV\87vI\91oY\94p[\9do\\99~W\94}V¢\86X\96{a\95yg\9c\7fj\9d\91a\90\8ck\93yr yc£\84n§\86o\9c\83h§\8dh\9a\90`¢\89_\9f\8di\97\85f\98\88Z\9avV\9erQ©\84P\9e\8dI\9c\94âÜ\93äÞ\8fåØ\85ïà \89ìå\86áØ\87æÛ\88äÔ\87ãÈxçÊtÙÆvÙÉwÎÈxÑ�}ÙÃ}ÒÅqÔ¾uÒ¼\80�Â\80ȼ~»Æ\86µ¾\82¨µ\83§¶\86\9e±\8b\98®\8a\92 \81\92\9d\7f\9c\9c\86\99\97\89\91\92\81\8e\8e\87\8c\94\8a\8c\91\94\8b\86\96\9a\88\91\9c\88\9a\97\83\9d \81\93¢w\89¦r\8d¤p\80\9er\82\9ar\86\9bj\8e\9cn\88\9cx\88¡x\8d\9cs\8a\96g\83\9ce\89\9ea\8f\9d^\86£_x\9aVx\9dXy\9dSv\91]w\8c_x\90Oq\8dHs\84Ld\8bSe\87Y[\83T\\86V`{HcqHfxGgsBjoHotArvG}zBsuFxnPwlGxiHllFqhRssNplHsmVjyRj~RbwCUs=XzE\\81@YzJQlIKk=I^CN_7Wh3Uf@[^<W\2P].Ef2=]2Aa0AX,N\7GR/HV-Kd+Hd\1cQf\eTY\14MU\12SU\12bN\1e`P\1eXQ\1eaU\1edS\1a_M\ ffN\14lV\15lP\13mK jQ$mF!vE\1cnM\18nR\emN\1ccT"fW\18jY \P\19XI\19\L\1fTI\18ZI"[K%MB,OE6KF1PC3VF(RN1RS*P]3^]/Sk1Vi7Sf=a`C`bD_k>[o@WlCYl;^v<l|<i}DiqCauFnuMivFhiB_dEUhDYeIR[LU]Zd_Zacdh_Ynd[ll^skmwwuvwmrqbjnfvepsdqvlykdpzh~wb{wjq}nvup\81xs~rn\81wo\86xs\8fiy\95ls\8d`i\95gn\9cai\99fd\95dg\8fpd\8fmY\8dta\91~Y\97\81a\99|d\9b\83d\92xb\98x`\8d{a\91\84X\93}T\8e\83Q\91wN\8atX\85uRzuUymO~pJ\82oF}kS\87cQ\83`H\87bO\8bpI\81nO\81cW\83hZ\85q^\8au^\87u`\96uP\99}X\93uW\98o`\9ar^\96wZ\9f{Y\9dwa\9c}k \8cl\92\8am\91\82t\98\81j\9b\86j\9b\80o\9c\8aj§\8fh¡\8ck\9c\8d`\9b\93e\8e\88f\90|l\97~`\95\80X\99x[\9b\82Y\9d\85P¡\86ìß\92éã\91îé\7fõè\8aï×\81êÚ\88èÖ\85áßzæ�wòÉ}ã�v�ÀyÜÂ\7fÚÎ\8b�É\87×¼\7fÊÉzÑ»y�µz»{¸¹\81»½\7f°¶\7f±®| ¬\82\98ª{\98­\86\9b\9b\83\98¡~ \93\86\9c\8f\82\93\8e\82\95\94\91\9c\96\90\96\8e\94 \8b\92\9b\80\8e\9ev\92\99w\95§\80\92«t\87¡q\89\99o\84\9dr\8e\90s\83\92o\8b\98x\94£v\8f\91u\95\8fh\97\94f\97\9e_\89\97_z\9fe\7f\9eYu\97S\7f\9f[m Qu\90Ju\8eYp\8cPu\8dOi\82O]\84bk\87]_zMj~ShrGkxGglAdmFpmHrs>o\80M{mLynUqoEpnDpcI|nKucMirKk|Cc\80MlxEeyDRpDSw=SnHUl=TqHMg5Vi>Ii9Yl?UfEPo9F_7Hi+Dh0Kd3Bh*Ng5F]2GU0DP*QT\1cBb\1dUY
-PP\13\R\1aYO\f]J\12bS\18iI\1egQ cK\ f_F\10bX
-uY\17dM\elL#gG\erR$kL\18jL!`N%gJ%^O\1e^N&fC\1fRD WN!]I+VQ(PI#TP!SB/GH7QL-[D/MA/OS&OP#SU&\b6bV5\a.[l;`i3f`BaiBYn=Zm>QsCXpBil:esIjgBcl>kgB_r;ggC`l?\iHSeTVh\WbXY\Zgfnol[ykexpjxue}sqrqovmbqodenft[ml^xdbzw^xt_\89op~}hwvw\86tr\85orzeh\7fhv\87hm\97ad m^\92l]\9e_^\97e^\8bnh\90l[\95ja\8bmV\8f}V\91qW\9c\81c\92se\9ev\\91vf\97uc\89~Z\89uZ\8e~R\86yP\8dzR\83vOypR\86xV\83yS\80jF\82iT\82[E{gO\8bmP\80nX\8cq[\92jT\80eT\89hc\81tW\88r^\97z[\92}P\8dzQ\92wS\8dyV\95w^\8e|W\98\87Y\9b\7fb\99\85l\8f\95i\99\86r\96}u\96\80u\96\84u\99\88e¡\89h\98\8dc\9b\8aT\9d\90d\91\86T\9e|a\9axU\93{S\97~S\98\7fR£\87R§\8aóð\88õë\83ýß\89öã\8eðØ\8bôÙ\84ëà \83èÜ\83åã\82ðØ\85è�\82ì¿\82äÅ\89â�\86ßË\8e�¿\87̼~ÃÄ|ʾ}Æ´uǽz¾Â\88¸¼\84«³\83©­\82\9e±\82¢§~\9e¥}\97\9c\87\97 \81\9b\95\88\90\99\84\99\8c\86¢\90\96¥\8a\98\99~\95\97\82\8e y\8d¤u\87¦{\8eªx\8f¤s\87\9ds\84\96o|\9cf\84\94h\86\91m\93\99u\8d\98r\93\91c\94\90j\95\99a\88\9dc|\9cat\97Wz\8d[p\9bWr\9dHw\9aKm\8dSt\94Rs\89No\83Tb\8bbk\8ccl}UpzKe\80Ql\81XguQvzCsv>j{Lg{Mt|HqqKgp?ej>uc8{f;rsHiqNbwHlzBh}AbwEPq?Kz3Mz>Oj=Rp9\h:On@Nh9Om6Vo8Jk;Cm3Mc#J_"TX,Na(Mc7Kc9NU)QV)PS%DW\14IT\ fPM\11NV\18ZM\ fUW\f`R\ ecI\1cgL\1c^F\18ZE\17_N\14nW\14oL\19_M#nT\1dkW$k]#cS gJ dP ^P#`>%`B(YG\1e^I\1dRS%TI1NE+SE(GS)SN+WJ6]B2QJ,WS%T\+bb4`Y4QT-SW+[c4Wn4`m6_j>[sDVsAPp<Zm<]c@aj?fl;[d>bd;fb@f`DbiC\`TTgSWlQUh_Qmb]jfac[ui^trctneuqc\7fukxmfjffe\rqamlh|jk{jg\80n\\8doa\8dxp\86wu\80x}\80gz|`i\83ef\95dj\9aa_\9cmc\9am_\9fda\96da\8cqb\90o]\96h]\92a^\8dj^\98oZ\9axa\99t[\93oa\8dxb\89vZ\8fq`\97sU\8eu_\87|Z\80sV|iL\80uY\82vW\87uQytMyfK\81bH\83eM\89nQ\85{S\8cvW\92sV\93j\\89ob\86t]\8awT\93pV\92tO\8f\82X\89\8aS\8f\81U\8c\80]\8d\81[\98\7fe\99\88g\91\94e\94\90q\8f\8an\8e~o\98xk\97~s\92\83q\9b\8ah\97\86g\99\91X\9c\81L\9b~Q\9b\80U\91\80P\8c\83\\9d~Y\9e\85Z¬\8c[¨\8bõð\80ðí\8dõè\8bóæ\89òå\91ôâ\85úÙ\8díæ\89îá\85ìÒ\85çÄ\81ðÅ\8bß�~ÚÊ\8bÚÃ\96ÑÈ\83ž~¾Ç\81½Ä|ɺ{¿µ~ƽ\80´Ä\8c°¿\8d¦²\85ª®\8d«©\8e\9c£\83\98\9c\8b\94\92\87\94\94\81\9c \86\9e\9b{¨\8e\90§}\90\9b~\91\9cp\86¡t\8a\9av\86\9c}\82\9fv\92ªo\93¤t\8e\99f\88\99p\8b\9fh\8c\94v\93\94q\98\8dq\9d\95f\90\99c\93\9ei\8d\95U\80\91T\8b\89X\89\90L\84\95Tv\95Tz\9aIu\93Uf\89Lu\85Ze\87[g\92]k\8c_i{Zly[mxPbwUj\81Qw~LxuIlrJf~@pnEliDnv8noFyp7vl8np=elFoj:l{3as:fz=Yo/Pn7Nn6Xg0Ug>^h3No1NfAJn.Hk,Gh/Ri7Pb/SZ%T^([d$UZ-O[4Pf4R[$W_$IX\11IM\13LZ\vVJ\ 1NM\ fXU\ 4VK\ 6gQ\16dR\18`N\19]M\vgW
-mY\1afQ\1ebG$`R"eW#dQ\1aZ\&^R(_D\19g@#b>,\;\1e[;\1cYD&TL&]Q\1dGR,KT"HR4HV8]L9SN+^W<R_6^g(UY3ZQ6aW8YP/Vb.^n:]r@^b=_oGWh;]f=\i@Td?[^C_m<^hDhm>`]:iaHUeM`n\SjV_ifced_pb]pkmolseXxr`{gk\80f_~ljto`gijghpa`liiymg\84hc\8dtb\91og\8cso\8ekz\8ctuz`z\8d`o\88fl\98gn\8eme\9ede\9ehY\94i[\96h[\8fm`\89qb\8bef\98h_\8bmT\91r\\8btZ\88mW\94qX\85rQ\91}W\96kX\98kZ\97te\90x^\84n\\88hG\83iJ\82h[\87qO|fD\82iE{hP\80nK\8drL\8bw]\96yS\8eq`\8fhg\8bob\95}g\86yZ\89\84a\8f\86[\87x`\82\86_\8d\87`\95~Y\8c\87_\9a\8cc\8f}c\91\8eg\93\93i\90\84z\8a\81s\91\81k\94\83w\97zj\97\85\\97\81U\93\8cU\96\86Y \87M\8f\90G\8e\87N\99\83W\9e\8bV\9a\86Jª\91W©\8dîæ\89ïæ\80öí\85ðå\86ñè\87ûÞ\83÷â\85÷â\80üà \80ð×\81÷�\87íÃ\84ßÉ\7fÕÌ\84�Ó\8c�Î\8dÊÌ\80ľ\85õ\81�¼}¿¸{ÀÂ~¼À\83º½\87�·\8a¸¹\89©©\8f¨¤\93«\93\96¢\93\8a \8d\89¤\95~¥\8c}«\8e\82§\7f\86«z\8c\9b|\8d\97q\8b\9em\83\98p\84\9cg\83¢c\86\9ed\97\9fh\92\9ce\98\9ak\92\8ck\8b\8em\8a\85t\97\87r\9b\87m\8f\91c\9a\88V\94\8bM\8c\84N\8c\8bK\84\92S}\9aVr\9aMq\96Qk\9b^f\8e]c\8cRe\87Xb\88Q_\82Vc\87Pg|Tn}Oq{Gz}KuuMmzAmrBon7co:frDpk<lb;se9va4jh.`j)gq5fm/eq/_d&Qf+Vh1_l(^o1^x:Qp<Ii;Ni:He0MW*QW-\X'U\$ag*^b0_g&Za)[h!Xa%S`\1aRZ\13QZ\ 4XZ\ 3]\\0SM\ 4WV\ 4PQ\ 6UR\13bI\13dJ\10bR
-fK\11_L\10SW\1aXR\13TU\18aT\1f_\,[V'bK(`E\1cbC\18d>%aD\1cg>#hB\1caQ\19^Y\1fPT#SP3QR1WS/QF0YP8\]:Tg5V`6^T2bS1eN.]Z,a_3]f.fi9`f=VmF[gEYgKQlD]h8_b:^h@]h;gc;ah>YjGXfVWea`ea_jbgfb`iajtjqpeno^skYyf_pk^xj_tqnkik_ajafm\kral\85lh\82v`\8dkm\97hq\91^r\85dv\85\y\87_l\8f[m\95al\91c]\9el\\9cuZ\9bm`\93f]\92fT\92rR\9bl]\92fU\85qS\82yR\82t[\86pU\88uS\8b{Y\96tZ\9fkY¢pb\99th\89sb\7fxZ\8cvO\87kG\8dkO\86gS\8bfL\87oQ}tJ\82xJ\83zT\8euS\89l[\92sj\90mg\8fta\98\81`\8f\84_\9a\87^\96\85i\9a}b\8c\87_\8d\85Z\94\7fW\97\85U\95\86_\9c\81k\9c\8be\95\91p\95\96r\8b\90v\89\86q\94\82l\91\88i\99~[\9a~T\9c\8a\\9d\90O\95\94N\94\92M\94\8cL\95\8fM\95\89F£\8eF\9f\85R xùã\88êã\86çÛ\80èæ}ú�\7fóØ{úà \83ôÔ\8aóã\85ðÛ\84ñÊ\93å�\8fá�\8dà Æ\82ÑÇ\95ØÙ\8dÕÀ\8b̽\8a�µ\8bż\85ľ\86¼´\83´¸|°»\8c²·\89µª\8d¼§\8e©\98\89ª\90\9a¯\95\8e¨\91\94«\98\86°\8f\88§\90\8a¬|\88§y\87¨\83\8c\9es\8c\98o\8e\9ep\7f¥q\8c¦o\8e h\94\99b\91¢m\97 g\99\8fh\89\93h\95\87a\8b\93e\92\96m\93\8d[\8a\95S\9b\85P\96\88S\90\91J\8b\87[\8b\8fN\81\8dQq\9cXd\8fMd\83Nc\8cRk\85Lf\86Wa\85[m~JtyVpzPguItpIyvMszCim8rwEck6ie6jh@dp=lh0so4sh;mm7bk6fq-Wp!Rq&Lk\eVe)Zi \y-X\829Ro.Ok,Ic,Hq(Wd'PZ-R^*J_\17Ni\1dY_,Wk\1cgk\1fZj\1eOc#Q\\11N^\fXV
-_X\0OR\ 5RM\ 1UU\ 5OO
-_J\10aT\ e[U\12hZ\f_N\14_F\12eO\11VX\1fUU"]S\19UK\1fcL+bG&g@\12`@\14e5%^9&h>!fI\19bE\ fQW\15F[\17OO#HL%TJ2M>-ZQ)\Z*d^,Yf;dY4dP5XU9Ma8V_<W\5^_1`h@ZnA_i>ZsLNn>Si8Yb9dj9dd;[_G`lNa_N`qW\aYap_\fbXnb_j]kzgcvhoz\rnkuwbofmtkgpbpmog`jl[iebjqfg\80oo\8dwa\98gb\91dv\8e_t\87ov\86jn\88\w\87cl\8b[e\8f_d\9aqc\97uh mk¡tb\9bgf\93m\\8euh\8fn`\85d\\86d`\8eic\8bmd\89w]\91pQ\94lW\9exU\97sY tg\92|n\8cmY\8coX\87kN\81gN\86hK\8bsP\8coF\88xP\87yQ\80zL\8axN\92yd\87uX\8dvf\8e\80U\8a}Y\86\89\\89\81b\86\85i\8a\86^\86\83i\85vW\90\83U\93\8aX\93\8ad\91\8f\\9e\89p\91\90r\97\8ee\8a\97f\90\89q\86\85f\91|c\91uk¢\89_\98\91a\9e\88U\9b\8bP¥\94Y\91\8fV\8d\89G\99\95T\9c\84R \81^©sóävìã~éå\7fîßxíÖvíÜzðÒ\81úÖ\88ñá\8cíÛ\95æÕ\93äÑ\98îÄ\92çÄ\88à È\8cØÔ\86ÙÉ\8cÎÃ\85Ⱥ\8c¿º\83ƽ\83¾¶\81²¶\82´°\8c°¨\88½¨\86¦\86·\97\8a¸\91\96²\8f\95©\8a\8f¯\8e\93¨\8a\8b¥\84\87¦\8a\83¤\7f\88\9d~\8a§\7f\88¢x\8c\97t\84£i\83¥n\8b\9ec\98\90h\90\9ed\99\9ei\95\90g\93\8ba\95\89\\8c\93h\8e\93i\8a\8d[\97\8a[\96\8f]\8f\8ec\91\8cX\8a\8fW\8c\81P}\8fTo\94\h\96Yn\86Gb\85Nf\85LcyXm}Up}LwxKjvRlkLuoGzqNrs>jv9ug;nd?ot5ar9av2co2pu3qq6ev5iu.Zu(Vp#Sv\16Wj\19cs\17_t&]|-S{&Ju$Jg+Qs1Sp-Pf$[h'Qc\1cOh\ fKj\11Wj\18cp\16cf!Wf$Mc\16Kf\12P]
-YZ\ 2XG\ 3YE\0]O\0YJ\ 4\O\b`J\10^U        ZT\ eeP\18jQ\18bH\1cZR$a[\1f]P#[V\1e[P$_N ]E\1c]9\16\A\1fd9\19b6\1aY="YK"[J\14JL\11GQ\18OF\19KH'GB!NE\1dTP\1a_L'ZY0\a2Xb.[\2Yg8Nc=JaANc?Z[7W]9akHamFVrGYqGXmI^a;_]Aih;]`CVfOXnN]jW]fLcoMfiaZse`k^endol\nvcwv`qvmuvhkkknktnfmrldedhemmplzmn\8bja\91bl\88fp\86mk\92mo\8edi\94br\90et\91_n\8dgr\87ms\8erv\92tr op¢hj\92js\8dto\8af`\83f`\8bke\8add\88sX\94p]\94rb\92rX\95nX\96qY\9dye\97vi\8eqb\86v_\8ffX\93eO\86sS\7fpL\86rJ\90uK\89lO\8apJ\81mQ\8at[\89uY\90xX\93\80X\90\85T\8b\83V\92\82g\87\8bo\87\86i\83\82]\88xa\86y[\90\86Y\90\8fY\89\8cY\93\87_\94\8ep\92\8fc\93\8da\93\82^\90\81d\8d|_\91|i¢\84`©\89[§\8cS\9f\81T¥\91S¡\93V\96\9bY\97\92R\9b\95`ª\8d^©uöõ~ïã\81÷ä\7fîãrîéwõå{ùØ\84òÖ\85ëÓ\8cîÔ\98íÕ\8fã�\92çÔ\98äÌ\8aÙ�\93×Ë\90ÖÌ\8fËÂ\8bÈÇ\94ø\8f°\7f·½}²°\85¸¬~²¨\85�¦\8b´ª\83¼\94\8e®\92\97¶\89\8c°\89\8d¦\87\92§\85\8e\9e\84\80\9f\84\88¯\8b\8bª\85\8b¤w\8f¥r\8c\96u\91¢{\87\9bt\8e\9av\9a\91n\94\93n\9b\94q\9c\97]\95\8aZ\99\93[\97\95]\95\90a\8e\97_\87\84b\9a\93_\97\8bT\96\8cQ\92\8bQ\8eyZy\87Rt\8cSw\84PwwI|yGl\82Bl\89HuuMr\80GpoNpsPjmIvsQvgDwn=jo1et?gm5ao/dc4cc,Zh%ds*ko"kg&eg#jh+`d"cp\19Yl\14Xs\1c\i$`h*Rn$Xg\1aYi!Yp*Ko\1cMt!Tj\17Rk\11[m\ 4``\ f`h\16Xl\12ea\1dYa\19^Z\16SV\vUW\ eYP      XG\ 3_D\ fYM
-XM\ 4VV\0VS\ 3[R\ 5^T
-f`\1aYP\1efN\15\J\16ZU\11ZS\1eRM\16`T\18TN\12UD\10W7\15W9\ f]B\va@\16_8\1cXK\17YH\11JR\14NQ\11EG\15KG$OG#^K\19]F\1c^R2]T%_^6_`:be3Lc5O[>Rk@Um8Uk8ObESh<TcHTpBbsA^fLbiBZm?lgIWaH[pSdpL^fNavQlsA[tK]vae}h]sa`\7fojrbguckzermommmgfo_memjljisib{fn{pi\8ebp\88ds\85fs\86]q\96bf\8dey\92br\94gk\96]l\96gy\8euu\8ctn\92yz om\9eqa\92of\99of\8frm\93g]\89^d\8d_f\93fd\96w`\9apY\9blX\9dyT\99}X§mb\9ake\9axg\86o^\89jZ\87gY\8coN\87gR\86rG\86sE\88vM\8bkR}hL\84xW\87vZ\89oN\98wR\8d\8eU\83\80T\8b\91d\92\91Y\8d\8dg\81\86\\86\80U\8b\86Y\8a{U\90\85X\8d\8aS\8e\86h\96\93e\95\88i\99\90h\8f\8cf\8e\89n\90\85^\95ua\9b\84Y¬\82^¨|U\9fyU­\8d^\9a\97S\97\99U\9d\95R¡\8a_\9f\94_©|úñwùítÿêwÿßxøèrÿç}ÿã\82ôÛ\84ôÞ\92ðÔ\9aë�\91áÔ\8fçÇ\90æÇ\93ã�\8a�È\84ÕÉ\88�Æ\8bɺ\8cȵ\86ɽ\83¿´\81ø\84¹µ\81¼²\85À±\8d³©\88·\9a\90·\90\98µ\8c\93²\8a\94¨\8a\99¦\8b\94¥\89\91ª\88\82©\87\82¨\87\82¯|\86³t\88¥q\8c\9bw\90\95y\93\90n\8a\94m\90\97c\99\95j\98\8eh\9b\91`\9a\98d\99\99]\99\9ba\8e\91_\90\85f\90\86a\90\88^\96\86S\92\8bX\83\81R\82\82P\80\85U\88z[\83yXxxSy\82IsyJ~~G~uBvpFvs?olDtjA|jBzl7jp3ll>gf9a^6e`(bl$_o%_q'kn\1ebq$df!`d\1adb\16ig\15^f\1c_c\e`h$Yo\1aVl\e]f\1d\i\17]k Ol\19Hg\13Kj\ 6Rf\ 6Yq\bUo\10`_\10Vh\10[b
-``\11`W\ f^P\17UN\ eTQ\bSI
-QK
-`Q\ eX[\aT^\ 6U\\v[W\vaX\14W_\11P^\17ZX\18VR\ e^N\fUU
-XL\12[M\10SM\f_B\ 6]A\11V=
-XG
-XN
-^C\12]=\15TB\17SN\16QI\eTL\19QO\16WJ\16\G\1f[D)`N0aP2Z^.^b,W^:V_?Qa<Rg4Th8WmDOfEMgGWcI]iK_fDRlAViMTnBamGWkCYiL\hRfiFcnCirEd{Pa{UZvgb\80il}phyjmujk{ib\7fmcsjXto\pm]iqghvhfxji}op|ep\8cXh\95\h\8efs\8dgm\9aip\99rw\9ekp\98jr\91py\98kt\93rl\98tq\99rr\98xh\94wg\98qm\91gn\9bjf\95nh\94el\95cb\9aqf\8fqj\90o`\9bzi\99za t`£qh\94si\84xh\82\7fa\83t`\84u]\8ciV\90rN\88mL\8akP\83uO\83vL\90jQ\8bmX\91sP\92\84O\83\85Y\85\83[\91\90S\8d\94S\87\89\\86\87Y\91|U\90x]\95~b\93\85`\97\80]\8c\82^\84\8cd\8d\88\\90\88e\96\8bh\91\82g\96\83g\96{Y£|^¥\7fU¦}] z\¤\83]\9e\8a_\9e\86S¦\93S¢\97]\98\8aW\9f
\ No newline at end of file

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/kaimono.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/kaimono.ml
deleted file mode 100644 (file)
index e524156..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/kaimono.ml
+++ /dev/null
@@ -1,130 +0,0 @@
-(* $Id$ *)
-
-open GMain
-open Printf
-
-let file_dialog ~title ~callback ?filename () =
-  let sel = GWindow.file_selection ~title ~modal:true ?filename () in
-  sel#cancel_button#connect#clicked ~callback:sel#destroy;
-  sel#ok_button#connect#clicked ~callback:
-    begin fun () ->
-      let name = sel#get_filename in
-      sel#destroy ();
-      callback name
-    end;
-  sel#show ()
-
-let w = GWindow.window ~title:"Okaimono" ()
-let vb = GPack.vbox ~packing:w#add ()
-
-let menubar = GMenu.menu_bar ~packing:vb#pack ()
-let factory = new GMenu.factory menubar
-let file_menu = factory#add_submenu "File"
-let edit_menu = factory#add_submenu "Edit"
-
-let sw = GBin.scrolled_window ~height:200 ~packing:vb#add
-    ~hpolicy:`AUTOMATIC ~vpolicy:`AUTOMATIC ()
-let vp = GBin.viewport ~width:340 ~shadow_type:`NONE ~packing:sw#add ()
-let table = GPack.table ~columns:4 ~rows:256 ~packing:vp#add ()
-let _ =
-  table#focus#set_vadjustment (Some vp#vadjustment)
-
-let top = ref 0
-and left = ref 0
-let add_to_table  w =
-  table#attach ~left:!left ~top:!top ~expand:`X w;
-  incr left;
-  if !left >= 4 then (incr top; left := 0)
-
-let entry_list = ref []
-
-let add_entry () =
-  let entry =
-    List.map [40;200;40;60]
-      ~f:(fun width -> GEdit.entry ~packing:add_to_table ~width ())
-  in entry_list := entry :: !entry_list
-
-let _ =
-  List.iter2 ["Number";"Name";"Count";"Price"] [40;200;40;60] ~f:
-    begin fun text width ->
-      ignore (GButton.button ~label:text ~width ~packing:add_to_table ())
-    end;
-  for i = 1 to 9 do add_entry () done
-
-let split ~sep s =
-  let len = String.length s in
-  let rec loop pos =
-    let next =
-      try String.index_from s pos sep with Not_found -> len
-    in
-    let sub = String.sub s ~pos ~len:(next-pos) in
-    if next = len then [sub] else sub::loop (next+1)
-  in loop 0
-
-let load name =
-  try
-    let ic = open_in name in
-    List.iter !entry_list
-      ~f:(fun l -> List.iter l ~f:(fun e -> e#set_text ""));
-    let entries = Stack.create () in
-    List.iter !entry_list ~f:(fun x -> Stack.push x entries);
-    try while true do
-      let line = input_line ic in
-      let fields = split ~sep:'\t' line in
-      let entry =
-       try Stack.pop entries
-       with Stack.Empty ->
-         add_entry (); List.hd !entry_list
-      in
-      List.fold_left fields ~init:entry ~f:
-       begin fun acc field ->
-         (List.hd acc)#set_text field;
-         List.tl acc
-       end
-    done
-    with End_of_file -> close_in ic
-  with Sys_error _ -> ()
-    
-
-let save name =
-  try
-    let oc = open_out name in
-    List.iter (List.rev !entry_list) ~f:
-      begin fun entry ->
-       let l = List.map entry ~f:(fun e -> e#text) in
-       if List.exists l ~f:((<>) "") then
-         let rec loop = function
-             [] -> ()
-           | [x] -> fprintf oc "%s\n" x
-           | x::l -> fprintf oc "%s\t" x; loop l
-         in loop l
-      end;
-    close_out oc
-  with Sys_error _ -> ()
-
-open GdkKeysyms
-
-let _ =
-  w#connect#destroy ~callback:Main.quit;
-  w#event#connect#key_press ~callback:
-    begin fun ev ->
-      let key = GdkEvent.Key.keyval ev and adj = vp#vadjustment in
-      if key = _Page_Up then
-       adj#set_value (adj#value -. adj#page_increment)
-      else if key = _Page_Down then
-       adj#set_value (min (adj#value +. adj#page_increment)
-                        (adj#upper -. adj#page_size));
-      false
-    end;
-  w#add_accel_group factory#accel_group;
-  let ff = new GMenu.factory file_menu ~accel_group:factory#accel_group in
-  ff#add_item ~key:_O "Open..."
-    ~callback:(file_dialog ~title:"Open data file" ~callback:load);
-  ff#add_item ~key:_S "Save..."
-    ~callback:(file_dialog ~title:"Save data" ~callback:save);
-  ff#add_separator ();
-  ff#add_item ~key:_Q "Quit" ~callback:w#destroy;
-  let ef = new GMenu.factory edit_menu ~accel_group:factory#accel_group in
-  ef#add_item ~key:_A "Add line" ~callback:add_entry;
-  w#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/label.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/label.ml
deleted file mode 100644 (file)
index b9829fb..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/label.ml
+++ /dev/null
@@ -1,48 +0,0 @@
-(* $Id$ *)
-
-(* Embedding xpm data into an ML file *)
-
-let openfile = [|
-(* width height num_colors chars_per_pixel *)
-"    20    19       5            1";
-(* colors *)
-". c None";
-"# c #000000";
-"i c #ffffff";
-"s c #7f7f00";
-"y c #ffff00";
-(* pixels *)
-"....................";
-"....................";
-"....................";
-"...........###......";
-"..........#...#.#...";
-"...............##...";
-"...###........###...";
-"..#yiy#######.......";
-"..#iyiyiyiyi#.......";
-"..#yiyiyiyiy#.......";
-"..#iyiy###########..";
-"..#yiy#sssssssss#...";
-"..#iy#sssssssss#....";
-"..#y#sssssssss#.....";
-"..##sssssssss#......";
-"..###########.......";
-"....................";
-"....................";
-"...................." |]
-
-open GMain
-
-let main () =
-  let w = GWindow.window ~border_width:2 () in
-  w#misc#realize ();
-  let hbox = GPack.hbox ~spacing:10 ~packing:w#add () in
-  let pm = GDraw.pixmap_from_xpm_d ~data:openfile ~window:w () in
-  GMisc.pixmap pm ~packing:hbox#add ();
-  GMisc.label ~text:"Embedded xpm" ~packing:hbox#add ();
-  w#show ();
-  w#connect#destroy ~callback:Main.quit;
-  Main.main ()
-
-let () = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/lissajous.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/lissajous.ml
deleted file mode 100644 (file)
index 9d6cf3b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/lissajous.ml
+++ /dev/null
@@ -1,48 +0,0 @@
-(* $Id$ *)
-(* Lissajous \e$B?^7A\e(B *)
-
-open GMain
-
-
-let main () =
-  let window = GWindow.window ~border_width: 10 () in
-  window#event#connect#delete
-     ~callback:(fun _ -> prerr_endline "Delete event occured"; true);
-  window#connect#destroy ~callback:Main.quit;
-  let vbx = GPack.vbox ~packing:window#add () in
-  let quit = GButton.button ~label:"Quit" ~packing:vbx#add () in
-  quit#connect#clicked ~callback:window#destroy;
-  let area = GMisc.drawing_area ~width:200 ~height:200 ~packing:vbx#add () in
-  let drawing = area#misc#realize (); new GDraw.drawable (area#misc#window) in
-  let m_pi = acos (-1.) in
-  let c = ref 0. in
-  let expose_event _ =
-    drawing#set_foreground `WHITE;
-    drawing#rectangle ~filled:true ~x:0 ~y:0 ~width:200 ~height:200 ();
-    drawing#set_foreground `BLACK;
-(*    drawing#line x:0 y:0 x:150 y:150; 
-      drawing#polygon filled:true [10,100; 35,35; 100,10; 10, 100];
-*)
-    let n = 200 in
-    let r = 100. in
-    let a = 3 in let b = 5 in 
-    for i=0 to n do
-      let theta0 = 2.*.m_pi*.(float (i-1))/. (float n) in
-      let x0 = 100 + (truncate (r*.sin ((float a)*.theta0))) in
-      let y0 = 100 - (truncate (r*.cos ((float b)*.(theta0+. !c)))) in
-      let theta1 = 2.*.m_pi*.(float i)/.(float n) in
-      let x1 = 100 + (truncate (r*.sin((float a)*.theta1))) in
-      let y1 = 100 - (truncate (r*.cos((float b)*.(theta1+. !c)))) in
-      drawing#line ~x:x0 ~y:y0 ~x:x1 ~y:y1
-    done;  
-    false
-  in 
-  area#event#connect#expose ~callback:expose_event;
-  let timeout _ = c := !c +. 0.01*.m_pi;
-                  expose_event ();
-                 true in 
-  Timeout.add ~ms:500 ~callback:timeout;
-  window#show ();
-  Main.main ()
-
-let _ = Printexc.print main()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/nihongo.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/nihongo.ml
deleted file mode 100644 (file)
index 48f7d8c..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/nihongo.ml
+++ /dev/null
@@ -1,31 +0,0 @@
-(* $Id$ *)
-
-(* ¤³¤ì¤ò¼Â¹Ô¤¹¤ë�°¤ËLC_CTYPE=ja_JP.EUC¤Ê¤É¤È»ØÄꤷ¤Ê¤±¤ì¤�¤Ê¤é¤Ê¤¤ *)
-
-(* cut-and-paste ¤âÂ�±þ¤·¤Æ¤¤¤Þ¤¹¤¬¡¢edit¤�¤¦¤Þ¤¯¤¤¤­¤Þ¤»¤ó *)
-
-open GMain
-
-let window = GWindow.window ()
-let box = GPack.vbox ~packing: window#add ()
-let text = GEdit.text ~editable: true ~packing: box#add ()
-let font = Gdk.Font.load_fontset
-    "-*-fixed-medium-r-normal--24-*-c-120-iso8859-1, \
-     -*-fixed-medium-r-normal--24-*-jisx0208.1983-0, \
-     -*-fixed-medium-r-normal--24-*-jisx0201.1976-0"
-let button = GButton.button ~label: "½ªÎ»" ~packing: box#add ()
-let label = GMisc.label ~text:"¤³¤ì¤Ë¤�±Æ¶�¤·¤Ê¤¤" ~packing: box#add ()
-
-let _ =
-  window#connect#destroy ~callback:Main.quit;
-  text#misc#realize ();
-  text#insert "¤³¤ó¤Ë¤�¤�" ~font;
-  let style = button#misc#style#copy in
-  button#misc#set_style style;
-  style#set_font font;
-  style#set_bg [`NORMAL,`NAME "green"; `PRELIGHT,`NAME "red"];
-  button#connect#clicked ~callback:Main.quit
-
-let _ =
-  window#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/pousse.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/pousse.ml
deleted file mode 100644 (file)
index ecf0dff..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/pousse.ml
+++ /dev/null
@@ -1,199 +0,0 @@
-(* $Id$ *)
-
-(* The game logic *)
-
-type color = [`none|`white|`black]
-
-module type BoardSpec = sig
-  type t
-  val size : int
-  val get : t -> x:int -> y:int -> color
-  val set : t -> x:int -> y:int -> color:color -> unit
-end
-
-module Board (Spec : BoardSpec) = struct
-  open Spec
-  let size = size
-
-  let on_board x y =
-    x >= 0 && x < size && y >= 0 && y < size
-
-  let rec string board ~x ~y ~dx ~dy ~color l =
-    let x = x+dx and y = y+dy in
-    if on_board x y then
-      let col = get board ~x ~y in 
-      if col = (color : [`white|`black] :> color) then l else
-      if col = `none then [] else
-      string board ~x ~y ~dx ~dy ~color ((x,y)::l)
-    else []
-
-  let find_swaps board ~x ~y ~color =
-    if get board ~x ~y <> `none then [] else
-    List.fold_left [-1,-1; -1,0; -1,1; 0,-1; 0,1; 1,-1; 1,0; 1,1]
-      ~init:[]
-      ~f:(fun acc (dx,dy) -> string board ~x ~y ~dx ~dy ~color [] @ acc)
-
-  let action board ~x ~y ~color =
-    let swaps = find_swaps board ~x ~y ~color in
-    if swaps = [] then false else begin
-      List.iter ((x,y)::swaps)
-       ~f:(fun (x,y) -> set board ~x ~y ~color:(color :> color));
-      true
-    end
-
-  let check_impossible board ~color =
-    try
-      for x = 0 to size - 1 do for y = 0 to size - 1 do
-       if find_swaps board ~x ~y ~color <> [] then raise Exit
-      done done;
-      true
-    with Exit -> false
-
-  let count_cells board =
-    let w = ref 0 and b = ref 0 in
-    for x = 0 to size - 1 do for y = 0 to size - 1 do
-      match get board ~x ~y with
-       `white -> incr w
-      | `black -> incr b
-      | `none -> ()
-    done done;
-    (!w,!b)
-end
-
-(* GUI *)
-
-open GMain
-
-(* Toplevel window *)
-
-let window = GWindow.window ~title:"pousse" ()
-
-(* Create pixmaps *)
-
-let pixdraw =
-  GDraw.pixmap ~window ~width:40 ~height:40 ~mask:true ()
-let pixdraw1 =
-  GDraw.pixmap ~window ~width:40 ~height:40 ~mask:true ()
-let pixdraw2 =
-  GDraw.pixmap ~window ~width:40 ~height:40 ~mask:true ()
-
-let _ =
-  pixdraw1#set_foreground `BLACK;
-  pixdraw1#arc ~x:3 ~y:3 ~width:34 ~height:34 ~filled:true ();
-  pixdraw2#set_foreground `WHITE;
-  pixdraw2#arc ~x:3 ~y:3 ~width:34 ~height:34 ~filled:true ();
-  pixdraw2#set_foreground `BLACK;
-  pixdraw2#arc ~x:3 ~y:3 ~width:34 ~height:34 ()
-
-(* The cell class: a button with a pixmap on it *)
-
-class cell ?packing ?show () =
-  let button = GButton.button ?packing ?show () in
-object (self)
-  inherit GObj.widget button#as_widget
-  method connect = button#connect
-  val mutable color : color = `none
-  val pm = GMisc.pixmap pixdraw ~packing:button#add ()
-  method color = color
-  method set_color col =
-    if col <> color then begin
-      color <- col;
-      pm#set_pixmap
-       (match col with `none -> pixdraw
-       | `black -> pixdraw1
-       | `white -> pixdraw2)
-    end
-end
-
-module RealBoard = Board (
-  struct
-    type t = cell array array
-    let size = 8
-    let get (board : t) ~x ~y = board.(x).(y)#color
-    let set (board : t) ~x ~y ~color = board.(x).(y)#set_color color
-  end
-)
-
-(* Conducting a game *)
-
-open RealBoard
-
-class game ~(frame : #GContainer.container) ~(label : #GMisc.label)
-    ~(statusbar : #GMisc.statusbar) =
-  let table = GPack.table ~columns:size ~rows:size ~packing:frame#add () in
-object (self)
-  val cells =
-    Array.init size
-      ~f:(fun i -> Array.init size
-         ~f:(fun j -> new cell ~packing:(table#attach ~top:i ~left:j) ()))
-  val label = label
-  val turn = statusbar#new_context ~name:"turn"
-  val messages = statusbar#new_context ~name:"messages"
-  val mutable current_color = `black
-  method board = cells
-  method table = table
-  method player = current_color
-
-  method swap_players () =
-    current_color <-
-      match current_color with
-       `white -> turn#pop (); turn#push "Player is black"; `black
-      | `black -> turn#pop (); turn#push "Player is white"; `white
-
-  method finish () =
-    turn#pop ();
-    let w, b = count_cells cells in
-    turn#push
-      (if w > b then "White wins" else
-       if w < b then "Black wins" else
-       "Game is a draw");
-    ()
-
-  method update_label () =
-    let w, b = count_cells cells in
-    label#set_text (Printf.sprintf "White: %d Black: %d " w b)
-
-  method play x y =
-    if action cells ~x ~y ~color:current_color then begin
-      self#update_label ();
-      self#swap_players ();
-      if check_impossible cells ~color:current_color then begin
-       self#swap_players ();
-       if check_impossible cells ~color:current_color then self#finish ()
-      end
-    end else
-      messages#flash "You cannot play there"
-
-  initializer
-    for i = 0 to size-1 do for j = 0 to size-1 do
-      let cell = cells.(i).(j) in
-      cell#connect#enter ~callback:cell#misc#grab_focus;
-      cell#connect#clicked ~callback:(fun () -> self#play i j)
-    done done;
-    List.iter ~f:(fun (x,y,col) -> cells.(x).(y)#set_color col)
-      [ 3,3,`black; 4,4,`black; 3,4,`white; 4,3,`white ];
-    self#update_label ();
-    turn#push "Player is black";
-    ()
-end
-
-(* Graphical elements *)
-
-let vbox = GPack.vbox ~packing:window#add ()
-let frame = GBin.frame ~shadow_type:`IN ~packing:vbox#add ()
-let hbox = GPack.hbox ~packing:vbox#pack ()
-
-let bar = GMisc.statusbar ~packing:hbox#add ()
-
-let frame2 = GBin.frame ~shadow_type:`IN ~packing:hbox#pack ()
-let label =
-  GMisc.label ~justify:`LEFT ~xpad:5 ~xalign:0.0 ~packing:frame2#add ()
-
-let game = new game ~frame ~label ~statusbar:bar
-
-(* Start *)
-
-let _ =
-  window#connect#destroy ~callback:Main.quit;
-  window#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/progressbar.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/progressbar.ml
deleted file mode 100644 (file)
index b614f08..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/progressbar.ml
+++ /dev/null
@@ -1,51 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-class bar bar = object
-  val bar : #GRange.progress = bar
-  val mutable pstat = true
-  method progress () =
-    let pvalue = bar#percentage in
-    let pvalue =
-      if pvalue > 0.99 || not pstat then (pstat <- true; 0.0)
-      else pvalue +. 0.01
-    in
-    bar#set_percentage pvalue;
-    true
-  method reset () =
-    pstat <- false
-end
-
-let main () =
-
-  let window = GWindow.window ~border_width: 10 () in
-  window#connect#destroy ~callback:Main.quit;
-
-  let table = GPack.table ~rows:3 ~columns:2 ~packing: window#add () in
-  
-  GMisc.label ~text:"Progress Bar Example" ()
-    ~packing:(table#attach ~left:0 ~right:2 ~top:0 ~expand:`X ~shrink:`BOTH);
-  
-  let pbar =
-    GRange.progress_bar ~bar_style:`DISCRETE ~discrete_blocks:20 ()
-      ~packing:(table#attach ~left:0 ~right:2 ~top:1
-                  ~expand:`BOTH ~fill:`X ~shrink:`BOTH) in
-
-  let bar = new bar pbar in
-  let ptimer = Timeout.add ~ms:50 ~callback:bar#progress in
-
-  let button = GButton.button ~label:"Reset" ()
-      ~packing:(table#attach ~left:0 ~top:2
-                  ~expand:`NONE ~fill:`X ~shrink:`BOTH) in
-  button#connect#clicked ~callback:bar#reset;
-
-  let button = GButton.button ~label:"Cancel" ()
-      ~packing:(table#attach ~left:1 ~top:2
-                  ~expand:`NONE ~fill:`X ~shrink:`BOTH) in
-  button#connect#clicked ~callback:Main.quit;
-
-  window#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/radiobuttons.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/radiobuttons.ml
deleted file mode 100644 (file)
index 5743ee2..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/radiobuttons.ml
+++ /dev/null
@@ -1,39 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let main () =
-
-  let window = GWindow.window ~title: "radio buttons" ~border_width: 0 () in
-  window#connect#destroy ~callback:Main.quit;
-
-  let box1 = GPack.vbox ~packing: window#add () in
-
-  let box2 = GPack.vbox ~spacing:10 ~border_width: 10 ~packing: box1#add () in
-
-  let button1 = GButton.radio_button ~label:"button1" ~packing: box2#add () in
-  button1#connect#clicked ~callback:(fun () -> prerr_endline "button1");
-
-  let button2 = GButton.radio_button ~group:button1#group ~label:"button2"
-      ~active:true ~packing: box2#add () in
-  button2#connect#clicked ~callback:(fun () -> prerr_endline "button2");
-
-  let button3 = GButton.radio_button
-      ~group:button1#group ~label:"button3" ~packing: box2#add () in
-  button3#connect#clicked ~callback:(fun () -> prerr_endline "button3");
-
-  let separator =
-    GMisc.separator `HORIZONTAL ~packing: box1#pack () in
-
-  let box3 = GPack.vbox ~spacing: 10 ~border_width: 10
-      ~packing: box1#pack () in
-
-  let button = GButton.button ~label: "close" ~packing: box3#add () in
-  button#connect#clicked ~callback:Main.quit;
-  button#grab_default ();
-
-  window#show ();
-
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/rpn.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/rpn.ml
deleted file mode 100644 (file)
index e701f18..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/rpn.ml
+++ /dev/null
@@ -1,129 +0,0 @@
-(* $Id$ *)
-
-(* reverse polish calculator *)
-
-open GMain
-
-let wow _ = prerr_endline "Wow!"; ()
-let main () =
-  let stack = Stack.create () in       
-
-  (* toplevel window *)
-  let window =
-    GWindow.window ~border_width: 10 ~title:"Reverse Polish Calculator" () in
-  window#connect#destroy ~callback:Main.quit;
-
-
-  (* vbox *)
-  let vbx = GPack.vbox ~packing:window#add () in
-
-  (* entry *)
-  let entry =
-    GEdit.entry ~text:"0" ~editable:false ~max_length: 20 ~packing: vbx#add () in
-
-  (* BackSpace, Clear, All Clear, Quit *) 
-  let table0 = GPack.table ~rows:1 ~columns:4 ~packing:vbx#add () in
-  let bs_clicked _ = begin
-    let txt = entry#text in
-    let len = String.length txt in 
-    if len <= 1 then
-      entry#set_text "0"
-    else entry#set_text (String.sub txt ~pos:0 ~len:(len-1))
-  end in
-  let c_clicked _ = entry#set_text("0") in
-  let ac_clicked _ = Stack.clear stack; entry#set_text("0") in
-  let labels0 = [("BS", bs_clicked) ; ("C", c_clicked);
-                ("AC", ac_clicked); ("Quit", window#destroy)] in
-  let rec loop0 labels n =
-    match labels 
-    with  [] -> ()
-        | (lbl, cb) :: t  ->
-    let button =
-      GButton.button ~label:lbl
-        ~packing:(table0#attach ~left:n ~top:1 ~expand:`BOTH) () in
-    button#connect#clicked ~callback:cb;
-    loop0 t (n+1) in
-  loop0 labels0 1;
-
-  (* Numerals *)
-  let table1 = GPack.table ~rows:4 ~columns:5 ~packing:vbx#add () in
-  let labels1 = ["7"; "8"; "9"; "4"; "5"; "6"; "1"; "2"; "3"; "0"] in
-  let numClicked n _ =
-     let txt = entry#text in
-     if (txt = "0") then
-       entry#set_text n
-     else begin
-       entry#append_text n
-     end in
-  let rec loop1 labels n =
-    match labels with [] -> ()
-    | lbl :: lbls ->
-        let button = GButton.button ~label:(" "^lbl^" ")
-           ~packing:(table1#attach ~left:(n mod 3) ~top:(n/3) ~expand:`BOTH)
-            () in
-        button#connect#clicked ~callback:(numClicked lbl);
-        loop1 lbls (n+1) in
-  loop1 labels1 0; 
-
-  (* Period *)
-  let periodClicked _ = 
-     let txt = entry#text in
-     if (String.contains txt '.') then begin
-       Printf.printf "\a";
-        flush stdout;
-     end
-     else
-       entry#append_text "." in
-  (GButton.button ~label:" . "
-     ~packing:(table1#attach ~left:1 ~top:3 ~expand:`BOTH) ())
-    #connect#clicked ~callback:periodClicked;
-
-  (* Enter (Push) *)
-  let enterClicked _ =
-     let txt = entry#text in
-     let n = float_of_string txt in begin
-       Stack.push n stack;
-       entry#set_text "0"
-     end in
-  (GButton.button ~label:"Ent"
-     ~packing:(table1#attach ~left:2 ~top:3 ~expand:`BOTH) ())
-    #connect#clicked ~callback:enterClicked;
-
-  (* Operators *)
-  let op2Clicked op _ =
-    let n1 = float_of_string (entry#text) in
-    let n2 = Stack.pop stack in
-    entry#set_text (string_of_float (op n2 n1)) 
-  in
-  let op1Clicked op _ =
-    let n1 = float_of_string (entry#text) in
-    entry#set_text (string_of_float (op n1)) 
-  in
-  let modClicked _ =
-    let n1 = int_of_string (entry#text) in
-    let n2 = truncate (Stack.pop stack) in
-    entry#set_text (string_of_int (n2 mod n1))
-  in
-  let labels2 = [(" / ", op2Clicked (/.)); (" * ", op2Clicked ( *. ));
-                (" - ", op2Clicked (-.)); (" + ", op2Clicked (+.));
-                ("mod", modClicked); (" ^ ", op2Clicked ( ** ));
-                ("+/-", op1Clicked (~-.));
-                 ("1/x", op1Clicked (fun x -> 1.0/.x))] in
-  let rec loop2 labels n =
-    match labels
-    with [] -> ()
-    | (lbl, cb) :: t ->
-       let button = GButton.button ~label:lbl
-            ~packing:(table1#attach ~left:(3 + n/4) ~top: (n mod 4)
-                        ~expand:`BOTH)
-            () in
-       button#connect#clicked ~callback:cb;
-       loop2 t (n+1)
-  in
-  loop2 labels2 0;
-
-  (* show all and enter event loop *)
-  window#show ();
-  Main.main ()
-
-let _ = Printexc.print main()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/scrolledwin.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/scrolledwin.ml
deleted file mode 100644 (file)
index 8f4bee2..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/scrolledwin.ml
+++ /dev/null
@@ -1,35 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let main () =
-  let window = GWindow.dialog ~title: "dialog"
-      ~border_width: 10 ~width: 300 ~height: 300 () in
-  window#connect#destroy ~callback:Main.quit;
-
-  let scrolled_window = GBin.scrolled_window
-      ~border_width: 10 ~hpolicy: `AUTOMATIC ~packing: window#vbox#add ()
-  in
-
-  let table = GPack.table ~rows:10 ~columns:10
-      ~row_spacings: 10 ~col_spacings: 10
-      ~packing: scrolled_window#add_with_viewport ()
-  in
-
-  for i = 0 to 9 do
-    for j = 0 to 9 do
-      let label = Printf.sprintf "button (%d,%d)\n" i j in
-      GButton.toggle_button ~label
-        ~packing:(table#attach ~left: i ~top: j ~expand: `BOTH) ()
-    done
-  done;
-
-  let button =
-    GButton.button ~label: "close" ~packing: window#action_area#add () in
-  button#connect#clicked ~callback: Main.quit;
-  button#grab_default ();
-  window#show ();
-  Main.main ()
-
-let _ = main ()
-    

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/socket.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/socket.ml
deleted file mode 100644 (file)
index 687389c..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/socket.ml
+++ /dev/null
@@ -1,16 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let main () =
-  let w = GWindow.window ~title:"Socket example" () in
-  w#connect#destroy ~callback:Main.quit;
-  let vbox = GPack.vbox ~packing:w#add () in
-  let label = GMisc.label ~packing:vbox#pack () in
-  let socket = GBin.socket ~packing:vbox#add ~height:40 () in
-  label#set_text ("XID to plug into this socket: 0x" ^ 
-                  Int32.format "%x" socket#xwindow);
-  w#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/test.xpm b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/test.xpm
deleted file mode 100644 (file)
index 9b0d2ef..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/test.xpm
+++ /dev/null
@@ -1,92 +0,0 @@
-/* XPM */
-static char *openfile[] = {
-/* width height num_colors chars_per_pixel */
-"    20    19       66            2",
-/* colors */
-".. c None",
-".# c #000000",
-".a c #dfdfdf",
-".b c #7f7f7f",
-".c c #006f6f",
-".d c #00efef",
-".e c #009f9f",
-".f c #004040",
-".g c #00bfbf",
-".h c #ff0000",
-".i c #ffffff",
-".j c #7f0000",
-".k c #007070",
-".l c #00ffff",
-".m c #00a0a0",
-".n c #004f4f",
-".o c #00cfcf",
-".p c #8f8f8f",
-".q c #6f6f6f",
-".r c #a0a0a0",
-".s c #7f7f00",
-".t c #007f7f",
-".u c #5f5f5f",
-".v c #707070",
-".w c #00f0f0",
-".x c #009090",
-".y c #ffff00",
-".z c #0000ff",
-".A c #00afaf",
-".B c #00d0d0",
-".C c #00dfdf",
-".D c #005f5f",
-".E c #00b0b0",
-".F c #001010",
-".G c #00c0c0",
-".H c #000f0f",
-".I c #00007f",
-".J c #005050",
-".K c #002f2f",
-".L c #dfcfcf",
-".M c #dfd0d0",
-".N c #006060",
-".O c #00e0e0",
-".P c #00ff00",
-".Q c #002020",
-".R c #dfc0c0",
-".S c #008080",
-".T c #001f1f",
-".U c #003f3f",
-".V c #007f00",
-".W c #00000f",
-".X c #000010",
-".Y c #00001f",
-".Z c #000020",
-".0 c #00002f",
-".1 c #000030",
-".2 c #00003f",
-".3 c #000040",
-".4 c #00004f",
-".5 c #000050",
-".6 c #00005f",
-".7 c #000060",
-".8 c #00006f",
-".9 c #000070",
-"#. c #7f7f80",
-"## c #9f9f9f",
-/* pixels */
-"........................................",
-"........................................",
-"........................................",
-".......................#.#.#............",
-".....................#.......#...#......",
-"...............................#.#......",
-".......#.#.#.................#.#.#......",
-".....#.y.i.y.#.#.#.#.#.#.#..............",
-".....#.i.y.i.y.i.y.i.y.i.#..............",
-".....#.y.i.y.i.y.i.y.i.y.#..............",
-".....#.i.y.i.y.#.#.#.#.#.#.#.#.#.#.#....",
-".....#.y.i.y.#.s.s.s.s.s.s.s.s.s.#......",
-".....#.i.y.#.s.s.s.s.s.s.s.s.s.#........",
-".....#.y.#.s.s.s.s.s.s.s.s.s.#..........",
-".....#.#.s.s.s.s.s.s.s.s.s.#............",
-".....#.#.#.#.#.#.#.#.#.#.#..............",
-"........................................",
-"........................................",
-"........................................"
-};

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/testdnd.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/testdnd.ml
deleted file mode 100644 (file)
index 8c10f7b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/testdnd.ml
+++ /dev/null
@@ -1,510 +0,0 @@
-(* this is a translation in Caml of the gtk+ example testdnd.c  *)
-
-
-open Gaux
-open Gtk
-open GObj
-open GMain
-
-(* GtkThread.start() *)
-
-let drag_icon_xpm = [|
-"36 48 9 1";
-"      c None";
-".     c #020204";
-"+     c #8F8F90";
-"@     c #D3D3D2";
-"#     c #AEAEAC";
-"$     c #ECECEC";
-"%     c #A2A2A4";
-"&     c #FEFEFC";
-"*     c #BEBEBC";
-"               .....................";
-"              ..&&&&&&&&&&&&&&&&&&&.";
-"             ...&&&&&&&&&&&&&&&&&&&.";
-"            ..&.&&&&&&&&&&&&&&&&&&&.";
-"           ..&&.&&&&&&&&&&&&&&&&&&&.";
-"          ..&&&.&&&&&&&&&&&&&&&&&&&.";
-"         ..&&&&.&&&&&&&&&&&&&&&&&&&.";
-"        ..&&&&&.&&&@&&&&&&&&&&&&&&&.";
-"       ..&&&&&&.*$%$+$&&&&&&&&&&&&&.";
-"      ..&&&&&&&.%$%$+&&&&&&&&&&&&&&.";
-"     ..&&&&&&&&.#&#@$&&&&&&&&&&&&&&.";
-"    ..&&&&&&&&&.#$**#$&&&&&&&&&&&&&.";
-"   ..&&&&&&&&&&.&@%&%$&&&&&&&&&&&&&.";
-"  ..&&&&&&&&&&&.&&&&&&&&&&&&&&&&&&&.";
-" ..&&&&&&&&&&&&.&&&&&&&&&&&&&&&&&&&.";
-"................&$@&&&@&&&&&&&&&&&&.";
-".&&&&&&&+&&#@%#+@#@*$%$+$&&&&&&&&&&.";
-".&&&&&&&+&&#@#@&&@*%$%$+&&&&&&&&&&&.";
-".&&&&&&&+&$%&#@&#@@#&#@$&&&&&&&&&&&.";
-".&&&&&&@#@@$&*@&@#@#$**#$&&&&&&&&&&.";
-".&&&&&&&&&&&&&&&&&&&@%&%$&&&&&&&&&&.";
-".&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&.";
-".&&&&&&&&$#@@$&&&&&&&&&&&&&&&&&&&&&.";
-".&&&&&&&&&+&$+&$&@&$@&&$@&&&&&&&&&&.";
-".&&&&&&&&&+&&#@%#+@#@*$%&+$&&&&&&&&.";
-".&&&&&&&&&+&&#@#@&&@*%$%$+&&&&&&&&&.";
-".&&&&&&&&&+&$%&#@&#@@#&#@$&&&&&&&&&.";
-".&&&&&&&&@#@@$&*@&@#@#$#*#$&&&&&&&&.";
-".&&&&&&&&&&&&&&&&&&&&&$%&%$&&&&&&&&.";
-".&&&&&&&&&&$#@@$&&&&&&&&&&&&&&&&&&&.";
-".&&&&&&&&&&&+&$%&$$@&$@&&$@&&&&&&&&.";
-".&&&&&&&&&&&+&&#@%#+@#@*$%$+$&&&&&&.";
-".&&&&&&&&&&&+&&#@#@&&@*#$%$+&&&&&&&.";
-".&&&&&&&&&&&+&$+&*@&#@@#&#@$&&&&&&&.";
-".&&&&&&&&&&$%@@&&*@&@#@#$#*#&&&&&&&.";
-".&&&&&&&&&&&&&&&&&&&&&&&$%&%$&&&&&&.";
-".&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&.";
-".&&&&&&&&&&&&&&$#@@$&&&&&&&&&&&&&&&.";
-".&&&&&&&&&&&&&&&+&$%&$$@&$@&&$@&&&&.";
-".&&&&&&&&&&&&&&&+&&#@%#+@#@*$%$+$&&.";
-".&&&&&&&&&&&&&&&+&&#@#@&&@*#$%$+&&&.";
-".&&&&&&&&&&&&&&&+&$+&*@&#@@#&#@$&&&.";
-".&&&&&&&&&&&&&&$%@@&&*@&@#@#$#*#&&&.";
-".&&&&&&&&&&&&&&&&&&&&&&&&&&&$%&%$&&.";
-".&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&.";
-".&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&.";
-".&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&.";
-"...................................." |]
-
-
-
-let trashcan_closed_xpm = [|
-"64 80 17 1";
-"      c None";
-".     c #030304";
-"+     c #5A5A5C";
-"@     c #323231";
-"#     c #888888";
-"$     c #1E1E1F";
-"%     c #767677";
-"&     c #494949";
-"*     c #9E9E9C";
-"=     c #111111";
-"-     c #3C3C3D";
-";     c #6B6B6B";
-">     c #949494";
-",     c #282828";
-"'     c #808080";
-")     c #545454";
-"!     c #AEAEAC";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                       ==......=$$...===                        ";
-"                 ..$------)+++++++++++++@$$...                  ";
-"             ..=@@-------&+++++++++++++++++++-....              ";
-"          =.$$@@@-&&)++++)-,$$$$=@@&+++++++++++++,..$           ";
-"         .$$$$@@&+++++++&$$$@@@@-&,$,-++++++++++;;;&..          ";
-"        $$$$,@--&++++++&$$)++++++++-,$&++++++;%%'%%;;$@         ";
-"       .-@@-@-&++++++++-@++++++++++++,-++++++;''%;;;%*-$        ";
-"       +------++++++++++++++++++++++++++++++;;%%%;;##*!.        ";
-"        =+----+++++++++++++++++++++++;;;;;;;;;;;;%'>>).         ";
-"         .=)&+++++++++++++++++;;;;;;;;;;;;;;%''>>#>#@.          ";
-"          =..=&++++++++++++;;;;;;;;;;;;;%###>>###+%==           ";
-"           .&....=-+++++%;;####''''''''''##'%%%)..#.            ";
-"           .+-++@....=,+%#####'%%%%%%%%%;@$-@-@*++!.            ";
-"           .+-++-+++-&-@$$=$=......$,,,@;&)+!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           =+-++-+++-+++++++++!++++!++++!+++!++!+++=            ";
-"            $.++-+++-+++++++++!++++!++++!+++!++!+.$             ";
-"              =.++++++++++++++!++++!++++!+++!++.=               ";
-"                 $..+++++++++++++++!++++++...$                  ";
-"                      $$=.............=$$                       ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                "  |]
-
-let trashcan_open_xpm = [|
-"64 80 17 1";
-"      c None";
-".     c #030304";
-"+     c #5A5A5C";
-"@     c #323231";
-"#     c #888888";
-"$     c #1E1E1F";
-"%     c #767677";
-"&     c #494949";
-"*     c #9E9E9C";
-"=     c #111111";
-"-     c #3C3C3D";
-";     c #6B6B6B";
-">     c #949494";
-",     c #282828";
-"'     c #808080";
-")     c #545454";
-"!     c #AEAEAC";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                      .=.==.,@                  ";
-"                                   ==.,@-&&&)-=                 ";
-"                                 .$@,&++;;;%>*-                 ";
-"                               $,-+)+++%%;;'#+.                 ";
-"                            =---+++++;%%%;%##@.                 ";
-"                           @)++++++++;%%%%'#%$                  ";
-"                         $&++++++++++;%%;%##@=                  ";
-"                       ,-++++)+++++++;;;'#%)                    ";
-"                      @+++&&--&)++++;;%'#'-.                    ";
-"                    ,&++-@@,,,,-)++;;;'>'+,                     ";
-"                  =-++&@$@&&&&-&+;;;%##%+@                      ";
-"                =,)+)-,@@&+++++;;;;%##%&@                       ";
-"               @--&&,,@&)++++++;;;;'#)@                         ";
-"              ---&)-,@)+++++++;;;%''+,                          ";
-"            $--&)+&$-+++++++;;;%%'';-                           ";
-"           .,-&+++-$&++++++;;;%''%&=                            ";
-"          $,-&)++)-@++++++;;%''%),                              ";
-"         =,@&)++++&&+++++;%'''+$@&++++++                        ";
-"        .$@-++++++++++++;'#';,........=$@&++++                  ";
-"       =$@@&)+++++++++++'##-.................=&++               ";
-"      .$$@-&)+++++++++;%#+$.....................=)+             ";
-"      $$,@-)+++++++++;%;@=........................,+            ";
-"     .$$@@-++++++++)-)@=............................            ";
-"     $,@---)++++&)@===............................,.            ";
-"    $-@---&)))-$$=..............................=)!.            ";
-"     --&-&&,,$=,==...........................=&+++!.            ";
-"      =,=$..=$+)+++++&@$=.............=$@&+++++!++!.            ";
-"           .)-++-+++++++++++++++++++++++++++!++!++!.            ";
-"           .+-++-+++++++++++++++++++++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!+++!!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           .+-++-+++-+++++++++!++++!++++!+++!++!++!.            ";
-"           =+-++-+++-+++++++++!++++!++++!+++!++!+++=            ";
-"            $.++-+++-+++++++++!++++!++++!+++!++!+.$             ";
-"              =.++++++++++++++!++++!++++!+++!++.=               ";
-"                 $..+++++++++++++++!++++++...$                  ";
-"                      $$==...........==$$                       ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                ";
-"                                                                "  |]
-
-let window = GWindow.window ~title:"DnD Test" ()
-let _ = window#misc#realize ()
-
-let drag_icon =
-  GDraw.pixmap_from_xpm_d ~data:drag_icon_xpm ~window ()
-
-let trashcan_open =
-  GDraw.pixmap_from_xpm_d ~data:trashcan_open_xpm ~window ()
-
-let trashcan_closed =
-  GDraw.pixmap_from_xpm_d ~data:trashcan_closed_xpm ~window ()
-
-let targets = [
-  { target = "STRING"; flags = []; info = 0};
-  { target = "text/plain"; flags = []; info = 0};
-  { target = "text/uri-list"; flags = []; info = 2};
-  { target = "application/x-rootwin-drop"; flags = []; info = 1}
-]
-
-class drag_handler = object
-  method private beginning (_ : drag_context) = ()
-  method private data_delete (_ : drag_context) = ()
-  method private data_get (_ : drag_context) (_ : selection_data)
-      ~info:(_ : int) ~time:(_ : int) = ()
-  method private data_received (_ : drag_context) ~x:(_ : int) ~y:(_ : int)
-      (_ : selection_data) ~info:(_ : int) ~time:(_ : int) = ()
-  method private drop (_ : drag_context) ~x:(_ : int) ~y:(_ : int)
-      ~time:(_ : int) = false
-  method private ending (_ : drag_context) = ()
-  method private leave (_ : drag_context) ~time:(_ : int) = ()
-  method private motion (_ : drag_context) ~x:(_ : int) ~y:(_ : int)
-      ~time:(_ : int) = false
-end
-
-
-class target_drag ?packing ?show () =
-  let pixmap = GMisc.pixmap trashcan_closed ?packing ?show () in
-object (self)
-  inherit widget pixmap#as_widget
-  inherit drag_handler
-  val mutable have_drag = false
-
-  method leave _ ~time =
-    print_endline "leave"; flush stdout;
-    have_drag <- false;
-    pixmap#set_pixmap trashcan_closed
-
-  method motion context ~x ~y ~time =
-    if not have_drag then begin
-      have_drag <- true;
-      pixmap#set_pixmap trashcan_open
-    end;
-    let source_typename =
-      try
-       context#source_widget#misc#get_type
-      with Gpointer.Null -> "unknown"
-    in
-    Printf.printf "motion, source %s\n" source_typename; flush stdout;
-    context#status [context#suggested_action] ~time;
-    true
-
-  method drop context ~x ~y ~time =
-    prerr_endline "drop"; flush stdout;
-    have_drag <- false;
-    pixmap#set_pixmap trashcan_closed;
-    match context#targets with
-    | [] -> false
-    | d :: _ -> pixmap#drag#get_data d ~context ~time; true
-
-  method data_received context ~x ~y data ~info ~time =
-    if data#format = 8 then begin
-      Printf.printf "Received \"%s\" in trashcan\n" data#data;
-      flush stdout;
-      context#finish ~success:true ~del:false ~time
-    end
-    else context#finish ~success:false ~del:false ~time
-
-  initializer
-    pixmap#drag#dest_set targets ~actions:[`COPY;`MOVE];
-    pixmap#drag#connect#leave ~callback:self#leave;
-    pixmap#drag#connect#motion ~callback:self#motion;
-    pixmap#drag#connect#drop ~callback:self#drop;
-    pixmap#drag#connect#data_received ~callback:self#data_received;
-    ()
-end
-
-class label_drag ?packing ?show () =
-  let label = GMisc.label ~text:"Drop Here\n" ?packing ?show () in
-object (self)
-  inherit widget label#as_widget
-  inherit drag_handler
-  method data_received context ~x ~y data ~info ~time =
-    if data#format = 8 then  begin
-      Printf.printf "Received \"%s\" in label\n" data#data;
-      flush stdout;
-      context#finish ~success:true ~del:false ~time
-    end
-    else context#finish ~success:false ~del:false ~time
-
-  initializer
-    label#drag#dest_set targets ~actions:[`COPY; `MOVE ];
-    label#drag#connect#data_received ~callback:self#data_received;
-    ()
-end
-
-class source_drag ?packing ?show () =
-  let button = GButton.button ~label:"Drag Here\n" ?packing ?show () in
-object (self)
-  inherit widget button#as_widget
-  inherit drag_handler
-  method data_get _ data ~info ~time =
-    if info = 1 then begin
-      print_endline "I was dropped on the rootwin"; flush stdout
-    end
-    else if info = 2 then
-      data#set ~typ:data#target ~format:8
-       ~data:"file:///home/otaylor/images/weave.png"
-    else
-      data#set ~typ:data#target ~format:8 ~data:"I'm Data!"
-
-  method data_delete _ =
-    print_endline "Delete the data!"; flush stdout
-
-  initializer
-    button#drag#source_set targets
-      ~modi:[`BUTTON1; `BUTTON3 ] ~actions:[`COPY; `MOVE ];
-    button#drag#source_set_icon drag_icon;
-    button#drag#connect#data_get ~callback:self#data_get;
-    button#drag#connect#data_delete ~callback:self#data_delete;
-    ()
-end
-
-class popup () = object (self)
-  inherit drag_handler
-  val mutable popup_window = (None : GWindow.window option)
-  val mutable popped_up = false
-  val mutable in_popup = false
-  val mutable popdown_timer = None
-  val mutable popup_timer = None
-
-  method timer = popup_timer
-  method remove_timer () =
-    may popup_timer
-      ~f:(fun pdt -> Timeout.remove pdt; popup_timer <- None)
-  method add_timer time ~callback =
-    popup_timer <- Some (Timeout.add ~ms:time ~callback)
-
-  method popdown () =
-    popdown_timer <- None;
-    may popup_window ~f:(fun w -> w#misc#hide ());
-    popped_up <- false;
-    false
-
-  method motion (_ : drag_context) ~x ~y ~time =
-    if not in_popup then begin
-      in_popup <- true;
-      may popdown_timer ~f:
-       begin fun pdt ->
-         print_endline "removed popdown"; flush stdout;
-         Timeout.remove pdt;
-         popdown_timer <- None
-       end
-    end;
-    true
-
-  method leave (_ : drag_context) ~time =
-    if in_popup then begin
-      in_popup <- false;
-      if popdown_timer = None then begin
-       print_endline "added popdown"; flush stdout;
-       popdown_timer <- Some (Timeout.add ~ms:500 ~callback:self#popdown)
-      end
-    end
-
-  method popup () =
-    if not popped_up then begin
-      if popup_window = None then begin
-       let w = GWindow.window ~kind:`POPUP ~position:`MOUSE () in
-       popup_window <- Some w;
-       let table = GPack.table ~rows:3 ~columns:3 ~packing:w#add () in
-       for i = 0 to 2 do
-         for j = 0 to 2 do
-           let button =
-             GButton.button ~label:(string_of_int i ^ "," ^ string_of_int j)
-               ~packing:(table#attach ~left:i ~top:j ~expand:`BOTH) ()
-           in
-           button#drag#dest_set targets ~actions:[`COPY; `MOVE ];
-           button#drag#connect#motion ~callback:self#motion;
-           button#drag#connect#leave ~callback:self#leave;
-         done
-       done
-      end;
-      may popup_window ~f:(fun w -> w#show ());
-      popped_up <- true
-    end;
-    popdown_timer <- Some (Timeout.add ~ms:500 ~callback:self#popdown);
-    print_endline "added popdown"; flush stdout;
-    self#remove_timer ();
-    false
-end
-
-class popsite ?packing ?show () =
-  let label = GMisc.label ~text:"Popup\n" ?packing ?show ()
-  and popup = new popup () in
-object (self)
-  inherit widget label#as_widget
-  inherit drag_handler
-  method motion _ ~x ~y ~time =
-    if popup#timer = None then begin
-      print_endline "added popdown"; flush stdout;
-      popup#add_timer 500 ~callback:popup#popup
-    end;
-    true
-
-  method leave _ ~time =
-    popup#remove_timer ()
-
-  initializer
-    label#drag#dest_set targets ~actions:[`COPY; `MOVE ];
-    label#drag#connect#motion ~callback:self#motion;
-    label#drag#connect#leave ~callback:self#leave;
-    ()
-end
-
-let main () =
-  window#connect#destroy ~callback: Main.quit;
-  let table = GPack.table ~rows:2 ~columns:2 ~packing:window#add () in
-  let attach = table#attach ~expand:`BOTH in
-  new label_drag ~packing:(attach ~left:0 ~top:0) ();
-  new target_drag ~packing:(attach ~left:1 ~top:0) ();
-  new source_drag ~packing:(attach ~left:0 ~top:1) ();
-  new popsite ~packing:(attach ~left:1 ~top:1) ();
-
-  window#show ();
-  Main.main ()
-
-let _ =
-  main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/testgtk.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/testgtk.ml
deleted file mode 100644 (file)
index 6c937f5..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/testgtk.ml
+++ /dev/null
@@ -1,1140 +0,0 @@
-(* $Id$ *)
-
-open GdkKeysyms
-open GMain
-open GObj
-
-let create_bbox direction title spacing child_w child_h layout =
-  let frame = GBin.frame ~label: title () in
-  let bbox = GPack.button_box direction ~border_width: 5 ~packing: frame#add 
-      ~layout: layout ~child_height: child_h ~child_width: child_w
-      ~spacing: spacing () in
-  GButton.button ~label: "OK"     ~packing: bbox#add ();
-  GButton.button ~label: "Cancel" ~packing: bbox#add ();
-  GButton.button ~label: "Help"   ~packing: bbox#add ();
-  frame#coerce
-
-let create_button_box =
-  let rw = ref None in
-  let aux () =
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title: "Button Boxes" ~border_width: 0 () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-
-       let main_vbox = GPack.vbox ~packing: (window#add) () in
-
-       let frame_horz = GBin.frame ~label: "Horizontal Button Boxes"
-           ~packing:(main_vbox#pack ~expand:true ~fill:true ~padding:10) () in
-       
-       let vbox = GPack.vbox ~border_width: 10 ~packing: frame_horz#add () in
-       
-       vbox#add  (create_bbox `HORIZONTAL "Spread" 40 85 20 `SPREAD);
-       vbox#pack (create_bbox `HORIZONTAL "Edge"   40 85 20 `EDGE) 
-          ~expand: true ~fill: true ~padding: 5;
-       vbox#pack (create_bbox `HORIZONTAL "Start"  40 85 20 `START)
-          ~expand: true ~fill: true ~padding: 5;
-       vbox#pack (create_bbox `HORIZONTAL "End"    40 85 20 `END)
-          ~expand: true ~fill: true ~padding: 5;
-
-       let frame_vert = GBin.frame ~label: "Vertical Button Boxes"
-           ~packing:(main_vbox#pack ~expand:true ~fill:true ~padding:10) () in
-       
-       let hbox = GPack.hbox ~border_width: 10 ~packing: frame_vert#add () in
-       hbox#add  (create_bbox `VERTICAL "Spread" 30 85 20 `SPREAD);
-       hbox#pack (create_bbox `VERTICAL "Edge"   30 85 20 `EDGE)
-          ~expand: true ~fill: true ~padding: 5;
-       hbox#pack (create_bbox `VERTICAL "Start"  30 85 20 `START)
-          ~expand: true ~fill: true ~padding: 5;
-       hbox#pack (create_bbox `VERTICAL "End"    30 85 20 `END)
-          ~expand: true ~fill: true ~padding: 5;
-       window #show () 
-
-    | Some window -> window #destroy ()
-in aux
-
-
-let button_window button _ =
-  if button #misc#visible then
-    button #misc#hide ()
-  else
-    button #misc#show ()
-
-let create_buttons =
-  let rw = ref None in
-  let aux () =
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title: "GtkButton" ~border_width: 0 () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-
-       let box1 = GPack.vbox ~packing:window#add () in
-       
-       let table = GPack.table ~rows:3 ~columns:3 ~homogeneous:false 
-           ~row_spacings:3 ~col_spacings:3 ~border_width:10
-           ~packing:box1#add () in
-
-       let button = Array.create 9 (GButton.button ~label:"button1" ()) in
-       for i = 2 to 9 do
-         button.(i-1) <- GButton.button ~label:("button" ^ string_of_int i) ();
-       done;
-
-       let f i l r t b =
-         button.(i) #connect#clicked ~callback:(button_window button.(i+1));
-         table #attach button.(i)#coerce ~left:l ~right:r ~top:t ~bottom:b
-           ~xpadding:0 ~ypadding:0 ~expand:`BOTH
-       in
-       f 0 0 1 0 1;
-       f 1 1 2 1 2;
-       f 2 2 3 2 3;
-       f 3 0 1 2 3;
-       f 4 2 3 0 1;
-       f 5 1 2 2 3;
-       f 6 1 2 0 1;
-       f 7 2 3 1 2;
-       button.(8) #connect#clicked ~callback:(button_window button.(0)); 
-       table #attach button.(8)#coerce ~left:0 ~right:1 ~top:1 ~bottom:2
-         ~xpadding:0 ~ypadding:0 ~expand:`BOTH;
-
-       GMisc.separator `HORIZONTAL ~packing:box1#pack ();
-       
-       let box2 = GPack.vbox ~spacing: 10 ~border_width: 10
-            ~packing: box1#pack () in
-
-       let button = GButton.button ~label: "close" ~packing: box2#add () in
-       button #connect#clicked ~callback: window#destroy;
-       button #grab_default ();
-       window #show ()
-
-    | Some window -> window #destroy ()
-in aux
-
-
-
-let create_check_buttons =
-  let rw = ref None in
-  let aux () =
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title: "GtkCheckButton"
-           ~border_width: 0 () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-
-       let box1 = GPack.vbox ~packing:window#add () in
-       let box2 = GPack.vbox ~spacing: 10 ~border_width: 10
-           ~packing: box1#pack () in
-       
-       for i = 1 to 3 do
-         GButton.check_button ~label:("button" ^ (string_of_int i))
-           ~packing: box2#add ();
-       done;
-
-       GMisc.separator `HORIZONTAL ~packing: box1#pack ();
-       
-       let box2 = GPack.vbox ~spacing:10 ~border_width:10
-           ~packing: box1#pack () in
-
-       let button = GButton.button ~label: "close" ~packing:box2#add () in
-       button #connect#clicked ~callback: window#destroy;
-       button #grab_default ();
-       window #show ()
-       
-    | Some window ->  window #destroy ()
-in aux
-
-
-let create_radio_buttons =
-  let rw = ref None in
-  let aux () =
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title: "radio buttons"
-           ~border_width: 0 () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-
-       let box1 = GPack.vbox ~packing:window#add () in
-       
-       let box2 = GPack.vbox ~spacing:10 ~border_width:10 
-           ~packing: box1#pack () in
-       
-       let button = GButton.radio_button ~label:"button1"
-           ~packing: box2#add () in
-
-       let button = GButton.radio_button ~label:"button2" ~group:button#group
-           ~packing: box2#add ~active:true () in
-       
-       let button = GButton.radio_button ~label:"button3" ~group:button#group
-           ~packing: box2#add () in
-
-       GMisc.separator `HORIZONTAL ~packing: box1#pack ();
-       
-       let box2 = GPack.vbox ~spacing:10 ~border_width:10
-            ~packing: box1#pack () in
-
-       let button = GButton.button ~label: "close" ~packing: box2#add () in
-       button #connect#clicked ~callback: window #destroy;
-       button #grab_default ();
-       window #show ()
-       
-    | Some window -> window #destroy ()
-in aux
-
-
-let create_toggle_buttons =
-  let rw = ref None in
-  let aux () =
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title: "GtkToggleButton"
-           ~border_width: 0 () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-
-       let box1 = GPack.vbox ~packing: window#add () in
-       
-       let box2 = GPack.vbox ~spacing: 10 ~border_width: 10
-           ~packing: box1#pack () in
-       
-       for i = 1 to 3 do
-         GButton.toggle_button ~label:("button" ^ (string_of_int i))
-           ~packing: box2#add ()
-       done;
-
-       GMisc.separator `HORIZONTAL ~packing: box1#pack ();
-       
-       let box2 = GPack.vbox ~spacing: 10 ~border_width: 10
-           ~packing: box1#pack () in
-
-       let button = GButton.button ~label: "close" ~packing:box2#add () in
-       button #connect#clicked ~callback: window#destroy;
-       button #grab_default ();
-       window #show ()
-       
-    | Some window -> window #destroy ()
-in aux
-
-
-(* Menus *)
-
-let create_menu depth tearoff =
-  let rec aux depth tearoff =
-    let menu = GMenu.menu () and group = ref None in
-    if tearoff then ignore (GMenu.tearoff_item ~packing: menu#append ());
-    for i = 0 to 4 do
-      let menuitem = GMenu.radio_menu_item ?group:!group
-         ~label:("item " ^ string_of_int depth ^ " - " ^ string_of_int (i+1))
-         ~packing:menu#append ~show_toggle:(depth mod 2 <> 0)
-         () in
-      group := Some (menuitem #group);
-      if i = 3 then menuitem #misc#set_sensitive false;
-      if depth > 1 then
-       menuitem #set_submenu (aux (depth-1) true)
-    done;
-
-    menu
-  in aux depth tearoff
-
-
-let create_menus =
-  let rw = ref None in
-  fun () ->
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title: "menus"
-           ~border_width: 0 () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-       window #event#connect#delete ~callback:(fun _ -> true);
-
-       let accel_group = GtkData.AccelGroup.create () in
-       window #add_accel_group accel_group  ;
-
-       let box1 = GPack.vbox ~packing:window#add () in
-
-       let menubar = GMenu.menu_bar ~packing: box1#pack () in
-
-       let menuitem = GMenu.menu_item ~label:"test\nline2"
-           ~packing: menubar#append () in
-       menuitem #set_submenu (create_menu 2 true);
-
-       let menuitem = GMenu.menu_item ~label:"foo"
-           ~packing: menubar#append () in
-       menuitem #set_submenu (create_menu 3 true);
-       menuitem #right_justify ();
-
-       let box2 = GPack.vbox ~spacing: 10 ~packing: box1#add
-           ~border_width: 10 () in
-
-       let menu = create_menu 1 false in
-       menu #set_accel_group accel_group;
-
-       let menuitem = GMenu.check_menu_item ~label:"Accelerate Me"
-           ~packing:menu#append () in
-       menuitem #add_accelerator ~group:accel_group _M
-         ~flags:[`VISIBLE; `SIGNAL_VISIBLE];
-
-       let menuitem = GMenu.check_menu_item ~label:"Accelerator Locked"
-           ~packing:menu#append () in
-       menuitem #add_accelerator ~group:accel_group _L
-         ~flags:[`VISIBLE; `LOCKED];
-
-       let menuitem = GMenu.check_menu_item ~label:"Accelerators Frozen"
-           ~packing:menu#append () in
-       menuitem #add_accelerator ~group:accel_group _F
-         ~flags:[`VISIBLE];
-       menuitem #misc#lock_accelerators ();
-
-       let optionmenu = GMenu.option_menu ~packing: box2#add () in
-       optionmenu #set_menu menu;
-       optionmenu #set_history 3;
-
-       GMisc.separator `HORIZONTAL ~packing: box1#pack ();
-
-       let box2 = GPack.vbox ~spacing:10 ~border_width:10
-           ~packing: box1#pack () in
-
-       let button = GButton.button ~label: "close" ~packing: box2#add () in
-       button #connect#clicked ~callback: window#destroy;
-       button #grab_default ();
-       window #show ()
-
-    | Some window -> window #destroy ()
-
-
-
-(* Modal windows *)
-
-let cmw_destroy_cb _ =
-  Main.quit ()
-
-let cmw_color parent _ =
-  let csd = GWindow.color_selection_dialog ~modal:true
-      ~title:"This is a modal color selection dialog" () in
-  csd # set_transient_for parent;
-  csd # connect#destroy ~callback:cmw_destroy_cb;
-  csd # ok_button # connect#clicked ~callback:csd#destroy;
-  csd # cancel_button # connect#clicked ~callback:csd#destroy;
-  csd # show ();
-  Main.main ()
-
-let cmw_file parent _ =
-  let fs = GWindow.file_selection ~modal:true
-      ~title:"This is a modal file selection dialog" () in
-  fs # set_transient_for parent;
-  fs # connect#destroy ~callback:cmw_destroy_cb;
-  fs # ok_button # connect#clicked ~callback:fs#destroy;
-  fs # cancel_button # connect#clicked ~callback:fs#destroy;
-  fs # show ();
-  Main.main ()
-
-let create_modal_window () =
-  let window = GWindow.window ~modal:true ~title:"This window is modal" () in
-  let box1 = GPack.vbox ~spacing:5 ~border_width:3 ~packing:window#add () in
-  let frame1 = GBin.frame ~label:"Standard dialogs in modal form"
-      ~packing:(box1#pack ~expand:true ~padding:4) () in
-  let box2 = GPack.vbox ~homogeneous:true ~spacing:5 ~packing:frame1#add () in
-  let btnColor = GButton.button ~label:"Color" 
-      ~packing:(box2#pack ~padding:4) ()
-  and btnFile = GButton.button ~label:"File selection" 
-      ~packing:(box2#pack ~padding:4) ()
-  and btnClose = GButton.button ~label:"Close" 
-      ~packing:(box2#pack ~padding:4) () in
-  GMisc.separator `HORIZONTAL
-    ~packing:(box1#pack ~padding:4) ();
-  
-  btnClose #connect#clicked ~callback:(fun _ -> window #destroy ());
-  window #connect#destroy ~callback:cmw_destroy_cb;
-  btnColor #connect#clicked ~callback: (cmw_color window);
-  btnFile #connect#clicked ~callback: (cmw_file window);
-  window # show ();
-  Main.main ()
-
-
-(* corrected bug in testgtk.c *)
-let scrolled_windows_remove, scrolled_windows_clean =
-  let parent = ref None and float_parent = ref None in
-  let remove (scrollwin : GBin.scrolled_window) () =
-    match !parent with
-    | None ->
-       parent := scrollwin#misc#parent;
-       let f = GWindow.window ~title:"new parent" () in
-       float_parent := Some f#coerce;
-       f #set_default_size ~width:200 ~height:200;
-       scrollwin #misc#reparent f#coerce;
-       f #show ()
-    | Some p ->
-       scrollwin #misc#reparent p;
-       match !float_parent with
-       | None -> ()
-       | Some f ->
-         f #destroy ();
-       float_parent := None;
-       parent := None
-  and clean () =
-    match !float_parent with
-    | None -> ()
-    | Some p -> p #destroy (); parent := None; float_parent := None
-  in remove, clean
-
-
-(* scrolled windows *)
-
-let create_scrolled_windows =
-  let rw = ref None in
-  let aux () =
-    match !rw with
-    | None ->
-       let window = GWindow.dialog ~title:"dialog" ~border_width:0 () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun  _ -> rw := None);
-       window #connect#destroy ~callback:scrolled_windows_clean;
-
-       let scrolled_window = GBin.scrolled_window ~border_width:10
-           ~hpolicy: `AUTOMATIC ~vpolicy:`AUTOMATIC
-           ~packing: window#vbox#add () in
-
-       let table = GPack.table ~rows:20 ~columns:20 ~row_spacings:10
-           ~col_spacings:10 ~packing:scrolled_window#add_with_viewport () in
-       table #focus#set_hadjustment (Some scrolled_window # hadjustment);
-       table #focus#set_vadjustment (Some scrolled_window # vadjustment);
-
-       for i = 0 to 19 do
-         for j=0 to 19 do
-           GButton.toggle_button
-             ~label:("button ("^ string_of_int i ^","^ string_of_int j ^")\n")
-             ~packing:(table #attach ~left:i ~top:j ~expand:`BOTH) ()
-         done
-       done;
-
-       let button = GButton.button ~label:"close"
-           ~packing:window#action_area#add () in
-       button #connect#clicked ~callback:(window #destroy);
-       button #grab_default ();
-
-       let button = GButton.button ~label:"remove"
-           ~packing:window#action_area#add () in
-       button #connect#clicked
-         ~callback:(scrolled_windows_remove scrolled_window);
-       button #grab_default ();
-       
-       window #set_default_size ~width:300 ~height:300;
-       window #show ()
-
-    | Some window -> window #destroy ()
-  in aux
-
-
-(* Toolbar *)
-
-let make_toolbar (toolbar : GButton.toolbar) window =
-  let icon =
-    let info = GDraw.pixmap_from_xpm ~file:"test.xpm" ~window () in
-    fun () -> (GMisc.pixmap info ())#coerce
-  in
-
-  toolbar #insert_button ~text:"Horizontal"
-    ~tooltip:"Horizontal toolbar layout"
-    ~tooltip_private:"Toolbar/Horizontal"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_orientation `HORIZONTAL) ();
-  
-  toolbar #insert_button ~text:"Vertical"
-    ~tooltip:"Vertical toolbar layout"
-    ~tooltip_private:"Toolbar/Vertical"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_orientation `VERTICAL) ();
-  
-  toolbar #insert_space ();
-  
-  toolbar #insert_button ~text:"Icons"
-    ~tooltip: "Only show toolbar icons"
-    ~tooltip_private:"Toolbar/IconsOnly"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_style `ICONS) ();
-  
-  toolbar #insert_button ~text:"Text"
-    ~tooltip: "Only show toolbar text"
-    ~tooltip_private:"Toolbar/TextOnly"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_style `TEXT) ();
-  
-  toolbar #insert_button ~text:"Both"
-    ~tooltip: "Show toolbar icons and text"
-    ~tooltip_private:"Toolbar/Both"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_style `BOTH) ();
-  
-  toolbar #insert_space ();
-  
-  GEdit.entry ~packing:(toolbar #insert_widget
-                        ~tooltip:"This is an unusable GtkEntry"
-                        ~tooltip_private: "Hey don't click me!!!") ();
-  
-  toolbar #insert_button ~text:"Small"
-    ~tooltip:"Use small spaces"
-    ~tooltip_private:"Toolbar/Small"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_space_size 5) ();
-  
-  toolbar #insert_button ~text:"Big"
-    ~tooltip:"Use big spaces"
-    ~tooltip_private:"Toolbar/Big"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_space_size 10) ();
-  
-  toolbar #insert_space ();
-  
-  toolbar #insert_button ~text:"Enable"
-    ~tooltip:"Enable tooltips"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_tooltips true) ();
-  
-  toolbar #insert_button ~text:"Disable"
-    ~tooltip:"Disable tooltips"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_tooltips false) ();
-  
-  toolbar #insert_space ();
-  
-  toolbar #insert_button ~text:"Borders"
-    ~tooltip:"Show borders"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_button_relief `NORMAL) ();
-  
-  toolbar #insert_button ~text:"Borderless"
-    ~tooltip:"Hide borders"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_button_relief `NONE) ();
-  
-  toolbar #insert_space ();
-  
-  toolbar #insert_button ~text:"Empty"
-    ~tooltip:"Empty spaces"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_space_style `EMPTY) ();
-  
-  toolbar #insert_button ~text:"Lines"
-    ~tooltip:"Lines in spaces"
-    ~icon:(icon ())
-    ~callback:(fun _ -> toolbar #set_space_style `LINE) ();
-  ()
- 
-let create_toolbar =
-  let rw = ref None in
-  let aux () =
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title: "Toolbar test"
-           ~border_width: 0 ~allow_shrink: false ~allow_grow: true
-           ~auto_shrink: true () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-       window #misc #realize ();
-       
-       let toolbar = GButton.toolbar ~packing: window#add () in
-       make_toolbar toolbar window;
-       
-       window #show ()
-         
-    | Some window -> window #destroy ()
-  in aux
-
-
-(* Handlebox *)
-
-let handle_box_child_signal action (hb : GBin.handle_box) child =
-  Printf.printf "%s: child <%s> %s\n" hb#misc#get_type child#misc#get_type action
-
-let create_handle_box =
-  let rw = ref None in
-  let aux () =
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title: "Handle box test"
-           ~border_width: 20 ~allow_shrink: false ~allow_grow: true
-           ~auto_shrink: true () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-       window #misc #realize ();
-
-       let vbox = GPack.vbox ~packing:window#add () in
-
-       GMisc.label ~text:"Above" ~packing:vbox#add ();
-       GMisc.separator `HORIZONTAL ~packing:vbox#add ();
-
-       let hbox = GPack.hbox ~spacing:10 ~packing:vbox#add () in
-       GMisc.separator `HORIZONTAL ~packing:vbox#add ();
-
-       GMisc.label ~text:"Below" ~packing:vbox#add ();
-       let handle_box = GBin.handle_box ~packing:hbox#pack () in
-       handle_box #connect#child_attached
-         ~callback:(handle_box_child_signal "attached" handle_box);
-       handle_box #connect#child_detached
-         ~callback:(handle_box_child_signal "detached" handle_box);
-
-       let toolbar = GButton.toolbar ~packing:handle_box#add () in
-       make_toolbar toolbar window;
-       toolbar #set_button_relief `NORMAL;
-
-       let handle_box = GBin.handle_box ~packing:hbox#pack () in
-       handle_box #connect#child_attached
-         ~callback:(handle_box_child_signal "attached" handle_box);
-       handle_box #connect#child_detached
-         ~callback:(handle_box_child_signal "detached" handle_box);
-
-       let handle_box2 = GBin.handle_box ~packing:handle_box#add () in
-       handle_box2 #connect#child_attached
-         ~callback:(handle_box_child_signal "attached" handle_box);
-       handle_box2 #connect#child_detached
-         ~callback:(handle_box_child_signal "detached" handle_box);
-
-       GMisc.label ~text:"Fooo!" ~packing:handle_box2#add ();
-       window #show ()
-         
-    | Some window -> window #destroy ()
-  in aux
-
-
-
-(* Tree *)
-
-class tree_and_buttons () =
-object
-  val tree = GTree.tree ()
-  val add_button = GButton.button ~label: "Add Item" ()
-  val remove_button = GButton.button ~label:"Remove Item(s)" ()
-  val subtree_button = GButton.button ~label:"Remove Subtree" ()
-  val mutable nb_item_add = 0
-
-  method tree = tree
-  method add_button = add_button
-  method remove_button = remove_button
-  method subtree_button = subtree_button
-  method nb_item_add = nb_item_add
-  method incr_nb_item_add = nb_item_add <- nb_item_add + 1
-end
-
-let cb_tree_destroy_event w = ()
-
-let cb_add_new_item (treeb : tree_and_buttons) _ =
-  let subtree =
-    match treeb#tree#selection with
-    | []  -> treeb#tree
-    | selected_item :: _ ->
-       match selected_item#subtree with Some t -> t
-       | None ->
-          let t = GTree.tree () in
-          selected_item#set_subtree t;
-          t
-  in
-  let item_new = GTree.tree_item ~packing:(subtree#insert ~pos:0)
-      ~label:("item add " ^ string_of_int treeb # nb_item_add) () in
-  treeb #incr_nb_item_add
-
-
-let cb_remove_item (treeb : tree_and_buttons) _  = 
-  let tree = treeb#tree in
-  match tree #selection with
-  | [] -> ()
-  |  selected -> tree #remove_items selected
-
-
-let cb_remove_subtree (treeb : tree_and_buttons) _ =
-  match treeb#tree #selection with
-  | [] -> ()
-  | selected_item :: _ ->
-    try selected_item#subtree; selected_item#remove_subtree ()
-    with Not_found -> ()
-
-let cb_tree_changed (treeb : tree_and_buttons) _ =
-  let tree = treeb#tree in
-  let nb_selected = List.length (tree#selection) in
-  if nb_selected = 0 then begin
-    treeb # remove_button #misc#set_sensitive false;
-    treeb # subtree_button #misc#set_sensitive false;
-  end else begin
-    treeb # remove_button #misc#set_sensitive true;
-    treeb # subtree_button #misc#set_sensitive (nb_selected = 1);
-    treeb # add_button #misc#set_sensitive (nb_selected = 1);
-  end
-  
-  
-let rec create_subtree (item : GTree.tree_item) level nb_item_max
-    recursion_level_max =
-  if level = recursion_level_max then ()
-  else begin
-    let item_subtree = GTree.tree () in
-    for nb_item = 1 to nb_item_max do
-      let item_new = GTree.tree_item ~packing:(item_subtree#insert ~pos:0)
-         ~label:("item" ^ string_of_int level ^ "-" ^ string_of_int nb_item) ()
-      in
-      create_subtree item_new (level + 1) nb_item_max recursion_level_max;
-    done;
-    item # set_subtree item_subtree
-  end
-
-
-let create_tree_sample selection_mode draw_line view_line no_root_item
-    nb_item_max recursion_level_max =
-  let window = GWindow.window ~title:"Tree Sample" () in
-  let box1 = GPack.vbox ~packing:window#add () in
-  let box2 = GPack.vbox ~packing:box1#add ~border_width:5 () in
-  let scrolled_win = GBin.scrolled_window ~packing:box2#add
-      ~hpolicy: `AUTOMATIC ~vpolicy:`AUTOMATIC
-      ~width:200 ~height:200 () in
-
-  let root_treeb = new tree_and_buttons () in
-  let root_tree = root_treeb#tree in
-  root_tree #connect#selection_changed ~callback:(cb_tree_changed root_treeb);
-  scrolled_win #add_with_viewport root_tree#coerce;
-  root_tree #set_selection_mode selection_mode;
-  root_tree #set_view_lines draw_line;
-  root_tree #set_view_mode
-    (match view_line with `LINE -> `ITEM | `ITEM -> `LINE);
-
-  if no_root_item then
-    for nb_item = 1 to nb_item_max do
-      let item_new = GTree.tree_item ~label:("item0-" ^ string_of_int nb_item)
-         ~packing:(root_tree#insert ~pos:0) () in
-      create_subtree item_new 1 nb_item_max recursion_level_max;
-    done
-  else begin
-    let root_item = GTree.tree_item ~label:"root item"
-       ~packing:(root_tree #insert ~pos:0) () in
-    create_subtree root_item 0 nb_item_max recursion_level_max
-  end;
-
-  let box2 = GPack.vbox ~border_width:5 ~packing:box1#pack () in
-
-  let button = root_treeb #add_button in
-  button #misc#set_sensitive false;
-  button #connect#clicked ~callback:(cb_add_new_item root_treeb);
-  box2 #add button#coerce;
-
-  let button = root_treeb #remove_button in
-  button #misc#set_sensitive false;
-  button #connect#clicked ~callback:(cb_remove_item root_treeb);
-  box2 #add button#coerce;
-
-  let button = root_treeb #subtree_button in
-  button #misc#set_sensitive false;
-  button #connect#clicked ~callback:(cb_remove_subtree root_treeb);
-  box2 #add button#coerce;
-
-  GMisc.separator `HORIZONTAL ~packing:box1#pack ();
-
-  let button = GButton.button ~label:"Close" ~packing:box2#add () in
-  button #connect#clicked ~callback:window#destroy;
-
-  window #show ()
-
-
-let create_tree_mode_window =
-  let rw = ref None in
-  let aux () =
-    let default_number_of_item = 3.0 in
-    let default_recursion_level = 3.0 in
-    let single_button = GButton.radio_button ~label:"SINGLE" () in
-    let browse_button = GButton.radio_button
-       ~group:single_button#group ~label:"BROWSE" () in
-    let multiple_button = GButton.radio_button
-       ~group:browse_button#group ~label:"MULTIPLE" () in
-    let draw_line_button = GButton.check_button ~label:"Draw line" () in
-    let view_line_button = GButton.check_button ~label:"View line mode" () in
-    let no_root_item_button = GButton.check_button
-       ~label:"Without Root item" () in
-    let nb_item_spinner = GEdit.spin_button
-       ~adjustment:(GData.adjustment ~value:default_number_of_item
-          ~lower:1.0 ~upper:255.0 ~step_incr:1.0 ~page_incr:5.0
-          ~page_size:0.0 ()) ~rate:0. ~digits:0 () in
-    let recursion_spinner = GEdit.spin_button
-       ~adjustment:(GData.adjustment ~value:default_recursion_level
-          ~lower:0.0 ~upper:255.0 ~step_incr:1.0 ~page_incr:5.0
-          ~page_size:0.0 ()) ~rate:0. ~digits:0 () in
-    let cb_create_tree _ =
-      let selection_mode =
-       if single_button #active then `SINGLE
-       else if browse_button #active then `BROWSE
-       else `MULTIPLE in
-      let nb_item = nb_item_spinner#value_as_int  in
-      let recursion_level = recursion_spinner#value_as_int in
-      create_tree_sample selection_mode (draw_line_button #active)
-       (if (view_line_button #active) then `ITEM else `LINE)
-       (no_root_item_button #active)
-       nb_item recursion_level
-    in
-    match !rw with
-    | None ->
-       let window = GWindow.window ~title:"Set Tree Parameters" () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-
-       let box1 = GPack.vbox ~packing:window#add () in
-
-       let box2 = GPack.vbox ~spacing:5 ~packing:box1#add
-           ~border_width:5 () in
-
-       let box3 = GPack.hbox ~spacing:5 ~packing:box2#add () in
-
-       let frame = GBin.frame ~label:"Selection Mode" ~packing:box3#add ()
-       in
-       
-       let box4 = GPack.vbox ~packing:frame#add ~border_width:5 () in
-
-       box4 #add single_button#coerce;
-       box4 #add browse_button#coerce;
-       box4 #add multiple_button#coerce;
-
-       let frame = GBin.frame ~label:"Options" ~packing:box3#add () in
-       
-       let box4 = GPack.vbox ~packing:frame#add ~border_width:5 () in
-       box4 #add draw_line_button#coerce;
-       draw_line_button #set_active true;
-       
-       box4 #add view_line_button#coerce;
-       view_line_button #set_active true;
-       
-       box4 #add no_root_item_button#coerce;
-
-       let frame = GBin.frame ~label:"Size Parameters" ~packing:box2#add ()
-       in
-
-       let box4 = GPack.hbox ~spacing:5 ~packing:frame#add ~border_width:5 () in
-
-       let box5 = GPack.hbox ~spacing:5 ~packing:box4#add () in
-       let label = GMisc.label ~text:"Number of items : "
-            ~xalign:0. ~yalign:0.5 ~packing:box5#pack () in
-       box5 #pack nb_item_spinner#coerce;
-       
-       let label = GMisc.label ~text:"Depth : " ~xalign:0. ~yalign:0.5
-           ~packing:box5#pack () in
-       box5 #pack recursion_spinner#coerce;
-       
-       GMisc.separator `HORIZONTAL ~packing:box1#pack ();
-
-       let box2 = GPack.hbox ~homogeneous:true ~spacing:10 ~border_width:5
-           ~packing:box1#pack () in
-
-       let button = GButton.button ~label:"Create Tree"
-            ~packing:box2#add () in
-       button #connect#clicked ~callback:cb_create_tree;
-
-       let button = GButton.button ~label: "close" ~packing:box2#add () in
-       button #connect#clicked ~callback: window#destroy;
-       button #grab_default ();
-       window #show ()
-       
-    | Some window -> window #destroy ()
-  in aux
-
-
-
-(* Tooltips *)
-
-let tips_query_widget_entered (toggle : GButton.toggle_button)
-    (tq : GMisc.tips_query) _ ~text ~privat:_  =
-  if toggle #active then begin
-    tq #set_text
-      (match text with
-      | None -> "There is no tip!" | Some _ -> "There is a tip!");
-    GtkSignal.stop_emit ()
-  end
-
-let tips_query_widget_selected (w : #widget option) ~text ~privat:tp _ =
-  (match w with
-  | None -> ()
-  | Some w -> 
-    Printf.printf "Help \"%s\" requested for <%s>\n"
-       (match tp with None -> "None" | Some t -> t)
-       (w #misc#get_type));
-   true
-
-
-let create_tooltips =
-  let rw = ref None in
-  let aux () =
-     match !rw with
-    | None ->
-
-       let window = GWindow.window ~title:"Tooltips"
-           ~border_width:0 ~allow_shrink:false ~allow_grow:false
-           ~auto_shrink:true () in
-       rw := Some window;
-       let tooltips = GData.tooltips () in
-       window #connect#destroy 
-         ~callback:(fun _ -> tooltips #destroy ();  rw := None);
-
-       let box1 = GPack.vbox ~packing:window#add () in
-
-       let box2 = GPack.vbox ~spacing:10 ~border_width:10
-           ~packing:box1#add () in
-
-       let button = GButton.toggle_button ~label:"button1"
-            ~packing:box2#add ()
-       in
-       tooltips #set_tip button#coerce ~text:"This is button1"
-         ~privat:"ContextHelp/buttons/1";
-       
-       let button = GButton.toggle_button ~label:"button2"
-            ~packing:box2#add ()
-       in
-       tooltips #set_tip button#coerce
-         ~text:"This is button 2. This is also a really long tooltip which probably won't fit on a single line and will therefore need to be wrapped. Hopefully the wrapping will work correctly."
-         ~privat:"ContextHelp/buttons/2_long";
-
-       let toggle = GButton.toggle_button ~label:"Override TipsQuery Label" 
-           ~packing:box2#add () in
-       tooltips #set_tip toggle#coerce ~text:"Toggle TipsQuery view."
-         ~privat:"Hi msw! ;)";
-
-       let box3 = GPack.vbox ~spacing:5 ~border_width:5 () in
-
-       let button = GButton.button ~label:"[?]" 
-           ~packing:box3#pack () in
-
-       let tips_query = GMisc.tips_query ~packing:box3#add () in
-       button #connect#clicked ~callback:(tips_query #start);
-
-       tooltips #set_tip button#coerce ~text:"Start the Tooltips Inspector"
-         ~privat:"ContextHelp/buttons/?";
-
-       tips_query #set_caller button#coerce;
-       tips_query #connect#widget_entered
-         ~callback:(tips_query_widget_entered toggle tips_query);
-       tips_query #connect#widget_selected ~callback:tips_query_widget_selected;
-
-       let frame = GBin.frame ~label:"Tooltips Inspector"
-           ~border_width:0 ~packing:(box2#pack ~expand:true ~padding:10) 
-           ~label_xalign:0.5 ~label_yalign:0.0 () in
-       frame #add box3#coerce;
-
-       GMisc.separator `HORIZONTAL ~packing:box1#pack ();
-
-       let box2 = GPack.vbox ~spacing: 10 ~border_width: 10
-           ~packing: box1#pack () in
-
-       let button = GButton.button ~label: "close" ~packing: box2#add () in
-       button #connect#clicked ~callback: window#destroy;
-       button #grab_default ();
-       tooltips #set_tip button#coerce ~text:"Push this button to close window"
-         ~privat:"ContextHelp/buttons/Close";
-
-       window #show ();
-
-    | Some window -> window #destroy ()
-  in aux
-
-
-(* Labels *)
-let create_labels =
-  let rw = ref None in
-  let aux () =
-     match !rw with
-    | None ->
-
-       let window = GWindow.window ~title:"Labels" ~border_width:5 () in
-       rw := Some window;
-       window #connect#destroy 
-         ~callback:(fun _ -> rw := None);
-
-       let hbox = GPack.hbox ~spacing:5 ~packing:window#add () in
-       let vbox = GPack.vbox ~spacing:5 ~packing:hbox#add () in
-
-       let frame = GBin.frame ~label:"Normal Label"
-           ~packing:vbox#pack () in
-       GMisc.label ~text:"This is a normal label" ~packing:frame#add ();
-
-       let frame = GBin.frame ~label:"Multi_line Label"
-           ~packing:vbox#pack () in
-       GMisc.label ~packing:frame#add
-         ~text:"This is a multi-line label.\nSecond line\nThird line" ();
-
-       let frame = GBin.frame ~label:"Left Justified Label"
-           ~packing:vbox#pack () in
-       GMisc.label ~packing:frame#add ~justify:`LEFT
-         ~text:"This is a left justified\nmulti_line label\nThird line" ();
-
-       let frame = GBin.frame ~label:"Right Justified Label"
-           ~packing:vbox#pack () in
-       GMisc.label ~packing:frame#add ~justify:`RIGHT
-         ~text:"This is a right justified\nmulti_line label\nThird line" ();
-
-       let vbox = GPack.vbox ~spacing:5 ~packing:hbox#add () in
-
-       let frame = GBin.frame ~label:"Line wrapped Label"
-           ~packing:vbox#pack () in
-       GMisc.label ~packing:frame#add ~line_wrap:true
-         ~text:"This is an example of a line-wrapped label.  It should not be taking up the entire             width allocated to it, but automatically wraps the words to fit.  The time has come, for all good men, to come to the aid of their party.  The sixth sheik's six sheep's sick.\n     It supports multiple paragraphs correctly, and  correctly   adds many          extra  spaces. " ();
-
-       let frame = GBin.frame ~label:"Underlined Label"
-           ~packing:vbox#pack () in
-       GMisc.label ~text:"This label is underlined!\nThis one is underlined in a quite a funky fashion" ~packing:frame#add
-         ~justify:`LEFT ~pattern:"_________________________ _ _________ _ _____ _ __ __  ___ ____ _____" ();
-
-       window #show ();
-
-    | Some window -> window #destroy ()
-  in aux
-
-
-(* reparent *)
-
-
-let set_parent child old_parent =
-  let name_opt = function
-    | None -> "(NULL)"
-    | Some w -> w#misc#get_type in
-  Printf.printf
-    "set parent for \"%s\": new parent: \"%s\", old parent: \"%s\"\n" 
-    child#misc#get_type
-    (match child#misc#parent with Some p -> p#misc#get_type | None -> "(NULL)")
-    (name_opt old_parent)
-
-let reparent_label (label : GMisc.label) new_parent _ =
-  label #misc#reparent new_parent
-
-
-
-let create_reparent =
-  let rw = ref None in
-  let aux () =
-     match !rw with
-    | None ->
-
-       let window = GWindow.window ~title:"Reparent" ~border_width:5 () in
-       rw := Some window;
-       window #connect#destroy ~callback:(fun _ -> rw := None);
-
-       let vbox = GPack.vbox ~packing:window#add () in
-       let hbox = GPack.hbox ~spacing:5 ~border_width:10
-            ~packing:vbox#add () in
-
-       let frame = GBin.frame ~label:"Frame1"  ~packing:hbox#add () in
-       let vbox2 = GPack.vbox ~spacing:5 ~border_width:5
-            ~packing:frame#add () in
-       let label = GMisc.label ~text:"Hello world"
-           ~packing:vbox2#pack () in
-       label #misc#connect#parent_set ~callback:(set_parent label);
-       let button = GButton.button ~label:"switch"
-           ~packing:vbox2#pack () in
-       button #connect#clicked ~callback:(reparent_label label vbox2#coerce);
-
-       let frame = GBin.frame ~label:"Frame2"  ~packing:hbox#add () in
-       let vbox2 = GPack.vbox ~spacing:5 ~packing:frame#add ~border_width:5 () in
-       let button = GButton.button ~label:"switch"
-           ~packing:vbox2#pack () in
-       button #connect#clicked ~callback:(reparent_label label vbox2#coerce);
-
-       GMisc.separator `HORIZONTAL ~packing:vbox#pack ();
-
-       let vbox = GPack.vbox ~spacing:10 ~border_width:10
-           ~packing:vbox#pack () in
-
-       let button = GButton.button ~label: "close" ~packing:vbox#add () in
-       button #connect#clicked ~callback: window#destroy;
-       button #grab_default ();
-
-       window #show ();
-
-    | Some window -> window #destroy ()
-  in aux
-
-
-
-
-let create_main_window () =
-  let buttons = [
-    "button box", Some create_button_box;
-    "buttons", Some create_buttons;
-    "check buttons", Some create_check_buttons;
-    "clist", None;
-    "color selection", None;
-    "ctree", None;
-    "cursors", None;
-    "dialog", None;
-    "entry", None;
-    "event watcher", None;
-    "file selection", None;
-    "font selection", None;
-    "gamma curve", None;
-    "handle box", Some create_handle_box;
-    "item factory", None;
-    "labels", Some create_labels;
-    "layout", None;
-    "list", None;
-    "menus", Some create_menus;
-    "modal windows", Some create_modal_window;
-    "notebooks", None;
-    "panes", None;
-    "pixmap", None;
-    "preview color", None;
-    "preview gray", None;
-    "progress bar", None;
-    "radio buttons", Some create_radio_buttons;
-    "range controls", None;
-    "rc file", None;
-    "reparent", Some create_reparent;
-    "rulers", None;
-    "saved position", None;
-    "scrolled windows", Some create_scrolled_windows;
-    "shapes", None;
-    "spinbutton", None;
-    "statusbar", None;
-    "test idle", None;
-    "test mainloop", None;
-    "test scrolling", None;
-    "test selection", None;
-    "test timeout", None;
-    "text", None;
-    "toggle buttons", Some create_toggle_buttons;
-    "toolbar", Some create_toolbar;
-    "tooltips", Some create_tooltips;
-    "tree", Some create_tree_mode_window;
-    "WM hints", None
-  ] in
-
-  let window = GWindow.window ~title:"main window" ~allow_shrink:false
-      ~allow_grow:false ~auto_shrink:false ~width:200 ~height:400 ~x:20 ~y:20 () in
-
-  window #connect#destroy ~callback: Main.quit;
-
-  let box1 = GPack.vbox ~packing: window#add () in
-
-  GMisc.label ~text: "Gtk+ v1.2" ~packing:box1#pack ();
-
-  let scrolled_window = GBin.scrolled_window ~border_width: 10
-      ~hpolicy: `AUTOMATIC ~vpolicy: `AUTOMATIC
-      ~packing:box1#add () in
-
-  let box2 = GPack.vbox ~border_width: 10
-      ~packing:scrolled_window#add_with_viewport () in
-  box2 #focus#set_vadjustment (Some scrolled_window#vadjustment);
-
-  let rec aux = function
-    | [] -> ()
-    | (_,     None) :: tl -> aux tl
-    | (label, Some func) :: tl ->
-       let button = GButton.button ~label: label ~packing: box2#add () in
-       button #connect#clicked ~callback: func;
-       aux tl
-  in aux buttons;
-
-  GMisc.separator `HORIZONTAL ~packing: box1#pack ();
-
-  let box2 = GPack.vbox ~spacing: 10 ~border_width: 10
-      ~packing: box1#pack () in
-
-  let button = GButton.button ~label: "close"  ~packing: box2#add () in
-  button #connect#clicked ~callback: window#destroy;
-  button #grab_default ();
-
-  window #show ();
-
-  Main.main ()
-
-let _ = create_main_window ()
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/testinput.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/testinput.ml
deleted file mode 100644 (file)
index a6aceb8..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/testinput.ml
+++ /dev/null
@@ -1,43 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let main () =
-  let window = GWindow.window () in
-  window#misc#set_name "Test input";
-  window#connect#destroy ~callback:Main.quit;
-
-  let vbox = GPack.vbox ~packing:window#add () in
-
-  let drawing_area =
-    GMisc.drawing_area ~width:200 ~height:200 ~packing:vbox#add () in
-
-  drawing_area#event#connect#key_press ~callback:
-    begin fun ev ->
-      let key = GdkEvent.Key.keyval ev in
-      if key >= 32 && key < 256 then
-       Printf.printf "I got a %c\n" (Char.chr key)
-      else
-       print_string "I got another key\n";
-      flush stdout;
-      true
-    end;
-
-  drawing_area#event#add
-    [`EXPOSURE;`LEAVE_NOTIFY;`BUTTON_PRESS;
-     `POINTER_MOTION;`POINTER_MOTION_HINT;`PROXIMITY_OUT];
-  drawing_area#event#set_extensions `ALL;
-  drawing_area#misc#set_can_focus true;
-  drawing_area#misc#grab_focus ();
-
-  GButton.button ~label:"Input Dialog" ~packing:vbox#pack ();
-
-  let button =
-    GButton.button ~label:"Quit" ~packing:vbox#pack () in
-
-  button#connect#clicked ~callback:window#destroy;
-
-  window#show ();
-  Main.main ()
-
-let _ = main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/tictactoe.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/tictactoe.ml
deleted file mode 100644 (file)
index be01e19..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/tictactoe.ml
+++ /dev/null
@@ -1,113 +0,0 @@
-(* $Id$ *)
-
-open GtkNew
-open GtkBase
-
-(* To create a new widget:
-   create an array sig_array containing the signals defined by
-   the new widget;
-   call:
-      make_new_widget name parent:parent signal_array:sig_array
-   where name is the name of the new widget (a string)
-   parent is the type of the parent: of type Gtk.New.object_type
-   This call returns a triple:
-     (get_type_func, new_func, sig_array_num)
-   where get_type_func is the new widget get_type function,
-   new_func is the function returning a new widget of the new type
-   sig_array_num is an array containing the Gtk id of the signals
-   of the new widget.
-*)
-
-module Tictactoe = struct
-  type t = [`widget|`container|`box|`tictactoe]
-  module Signals = struct
-    open GtkSignal
-    let tictactoe : ([>`tictactoe],_) t =
-      { name = "tictactoe"; marshaller = marshal_unit }
-    let emit_tictactoe = emit_unit ~sgn:tictactoe
-  end
-  let create : unit -> t Gtk.obj =
-    let _,tictactoe_new = make_new_widget
-       ~name:"Tictactoe" ~parent:VBOX ~signals:[Signals.tictactoe]
-    in fun () -> Object.try_cast (tictactoe_new ()) "Tictactoe"
-end
-
-open GMain
-
-class tictactoe_signals obj = object
-  inherit GContainer.container_signals obj
-  method tictactoe =
-    GtkSignal.connect ~sgn:Tictactoe.Signals.tictactoe obj ~after
-end
-
-exception Trouve
-
-class tictactoe ?packing ?show () =
-  let obj : Tictactoe.t Gtk.obj = Tictactoe.create () in
-  let box = new GPack.box_skel obj in
-object (self)
-  inherit GObj.widget obj
-  val mutable buttons = [||]
-  val mutable buttons_handlers = [||]
-  val label = GMisc.label ~text:"Go on!" ~packing:box#add ()
-  method clear () =
-    for i = 0 to 2 do
-      for j = 0 to 2 do
-       let button = buttons.(i).(j)
-       and handler = buttons_handlers.(i).(j) in
-       button#misc#handler_block handler;
-       button#set_active false;
-       button#misc#handler_unblock handler
-      done
-    done
-  method connect = new tictactoe_signals obj
-  method emit_tictactoe () =
-    GtkSignal.emit_unit obj ~sgn:Tictactoe.Signals.tictactoe
-  method toggle () =
-    let rwins = [| [| 0; 0; 0 |]; [| 1; 1; 1 |]; [| 2; 2; 2 |];
-                   [| 0; 1; 2 |]; [| 0; 1; 2 |]; [| 0; 1; 2 |];
-                   [| 0; 1; 2 |]; [| 0; 1; 2 |] |]
-    and cwins = [| [| 0; 1; 2 |]; [| 0; 1; 2 |]; [| 0; 1; 2 |];
-                   [| 0; 0; 0 |]; [| 1; 1; 1 |]; [| 2; 2; 2 |];
-                   [| 0; 1; 2 |]; [| 2; 1; 0 |] |] in
-    label#set_text"Go on!";
-    try
-      for k = 0 to 7 do
-       let rec aux i =
-         (i = 3) ||
-         (buttons.(rwins.(k).(i)).(cwins.(k).(i))#active) && (aux (i+1)) in
-       if aux 0 then raise Trouve
-      done
-    with Trouve -> label#set_text "Win!!"; self#emit_tictactoe ()
-       
-  initializer
-    let table =
-      GPack.table ~rows:3 ~columns:3 ~homogeneous:true ~packing:box#add () in
-    buttons <-
-      Array.init 3 ~f:
-       (fun i -> Array.init 3 ~f:
-           (fun j ->
-             GButton.toggle_button ~width:20 ~height:20
-               ~packing:(table#attach ~left:i ~top:j ~expand:`BOTH) ()));
-    buttons_handlers <-
-      Array.mapi buttons ~f:
-       (fun i -> Array.mapi ~f:
-         (fun j button -> button #connect#toggled ~callback:self#toggle));
-    GObj.pack_return self ~packing ~show;
-    ()
-end
-
-let win (ttt : tictactoe)  _ =
-  Printf.printf "Gagne!!\n" ;
-  ttt #clear ()
-
-let essai () =
-  let window = GWindow.window ~title:"Tictactoe" ~border_width:10 () in
-  window #connect#destroy ~callback:Main.quit;
-  let ttt = new tictactoe ~packing:window#add () in
-  ttt #connect#tictactoe ~callback:(win ttt);
-  window #show ();
-  Main.main ()
-
-let _ = essai ()
-  

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/tron.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/tron.ml
deleted file mode 100644 (file)
index eced44a..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/tron.ml
+++ /dev/null
@@ -1,204 +0,0 @@
-(* $Id$ *)
-
-(* Tron? Game *)
-open GMain
-
-let m_pi = acos (-1.)
-let clRed   = `NAME "red"  (* `BLACK *)
-let clBlue  = `NAME "blue" (* `WHITE *)
-let clBlack = `BLACK
-
-type point = {mutable x: int; mutable y: int}
-
-let main () =
-(* Game State *)
-  let gameSize = 64 in
-  let gameState =
-    Array.create_matrix ~dimx:(gameSize+2) ~dimy:(gameSize+2) 0 in
-  let gameInit _ = 
-    for i=1 to gameSize do
-      for j=1 to gameSize do
-        gameState.(i).(j) <- 0;
-      done
-    done;
-    for i=0 to gameSize do
-      gameState.(0).(i) <- 3;            (* left wall *)
-      gameState.(i).(gameSize+1) <- 3;   (* floor *) 
-      gameState.(gameSize+1).(i+1) <- 3; (* right wall *)
-      gameState.(i+1).(0) <- 3           (* ceiling *)
-    done in
-  gameInit ();
-  let lpos = {x=4; y=4} in
-  let lspeed = {x=0; y=1} in
-  let rpos = {x=gameSize-3; y=gameSize-3} in
-  let rspeed = {x=0; y= -1} in
-  let keys = "asdfhjkl" in
-  let keyMapL = [|(-1, 0); (0, -1); (0, 1); (1, 0)|] in
-  let keyMapR = [|(-1, 0); (0, 1); (0, -1); (1, 0)|] in
-
-(* User Interface *)
-  let window = GWindow.window ~border_width:10 ~title:"tron(?)" () in
-  window#event#connect#delete
-     ~callback:(fun _ -> prerr_endline "Delete event occured"; false);
-  window#connect#destroy ~callback:Main.quit;
-  let vbx = GPack.vbox ~packing:window#add () in
-  let area = GMisc.drawing_area ~width:((gameSize+2)*4) ~height:((gameSize+2)*4)
-      ~packing:vbx#add () in
-  let drawing = area#misc#realize (); new GDraw.drawable (area#misc#window) in
-  let style = area#misc#style#copy in
-  style#set_bg [`NORMAL,`WHITE];
-  area#misc#set_style style;
-  drawing#set_background `WHITE;
-  let area_expose _ =
-    for i=0 to gameSize+1 do
-      for j=0 to gameSize+1 do
-        if gameState.(i).(j) = 1 then begin
-          drawing#set_foreground clRed;
-          drawing#rectangle ~filled:true ~x:(i*4) ~y:(j*4) ~width:4 ~height:4 ()
-        end
-        else if gameState.(i).(j) = 2 then begin
-          drawing#set_foreground clBlue;
-          drawing#rectangle ~filled:true ~x:(i*4) ~y:(j*4) ~width:4 ~height:4 ()
-        end
-        else if gameState.(i).(j) = 3 then begin
-          drawing#set_foreground clBlack;
-          drawing#rectangle ~filled:true ~x:(i*4) ~y:(j*4) ~width:4 ~height:4 ()
-        end 
-      done
-    done;
-    false
-  in
-  area#event#connect#expose ~callback:area_expose;
-  let control = GPack.table ~rows:3 ~columns:7 ~packing:vbx#pack () in
-
-  let abuttonClicked num (lbl : GMisc.label) _ = begin
-    let dialog =
-      GWindow.window ~kind:`DIALOG ~border_width:10 ~title:"Key remap" () in
-    let dvbx = GPack.box `VERTICAL ~packing:dialog#add () in
-    let entry  = GEdit.entry ~max_length:1 ~packing: dvbx#add () in
-    let txt = String.make 1 keys.[num] in
-    entry#set_text txt;
-    let dquit = GButton.button ~label:"OK" ~packing: dvbx#add () in 
-    dquit#connect#clicked ~callback:
-      begin fun _ ->
-       let chr = entry#text.[0] in
-        let txt2 = String.make 1 chr in
-        lbl#set_text txt2;
-        keys.[num]<-chr; 
-        dialog#destroy ()
-      end;
-    dialog#show ()
-  end in
-  let attach = control#attach ~expand:`BOTH in
-  let new_my_button ~label:label ~left:left ~top:top =
-      let str = String.make 1 keys.[label] in
-      let btn = GButton.button ~packing:(attach ~left:left ~top:top) () in
-      let lbl = GMisc.label ~text:str ~packing:(btn#add) () in
-      btn#connect#clicked ~callback:(abuttonClicked label lbl);
-      btn
-  in
-  new_my_button ~label:0 ~left:1 ~top:2;
-  new_my_button ~label:1 ~left:2 ~top:1;
-  new_my_button ~label:2 ~left:2 ~top:3;
-  new_my_button ~label:3 ~left:3 ~top:2;
-  new_my_button ~label:4 ~left:5 ~top:2;
-  new_my_button ~label:5 ~left:6 ~top:3;
-  new_my_button ~label:6 ~left:6 ~top:1;
-  new_my_button ~label:7 ~left:7 ~top:2;
-  let quit =
-    GButton.button ~label:"Quit" ~packing:(attach ~left:4 ~top:2) () in
-  quit#connect#clicked ~callback:window#destroy;
-  let message = GMisc.label ~text:"tron(?) game" ~packing:vbx#pack () in
-
-  let game_step () =
-        let lx = lpos.x in let ly = lpos.y in
-        gameState.(lx).(ly) <- 1;
-        drawing#set_foreground clRed;
-        drawing#rectangle ~filled:true ~x:(lx*4) ~y:(ly*4) ~width:4 ~height:4 ();
-        let rx = rpos.x in let ry = rpos.y in
-        gameState.(rx).(ry) <- 2;
-        drawing#set_foreground clBlue;
-        drawing#rectangle ~filled:true ~x:(rx*4) ~y:(ry*4) ~width:4 ~height:4 ()
-  in
-  game_step ();
-  let keyDown ev = begin
-    let key = GdkEvent.Key.keyval ev in
-    for i=0 to (Array.length keyMapL)-1 do
-       let (x, y) = keyMapL.(i) in
-       let k = keys.[i] in
-       if key = Char.code k then begin
-         lspeed.x <- x;
-         lspeed.y <- y 
-       end;
-       let (x, y) = keyMapR.(i) in
-       let k = keys.[i+4] in
-       if key = Char.code k then begin
-         rspeed.x <- x;
-         rspeed.y <- y 
-       end
-    done;       
-    false end in
-  window#event#connect#key_press ~callback:keyDown;
-  let safe_check _ = 
-    if lpos.x == rpos.x && lpos.y == rpos.y then
-      3
-    else
-      (* player 1 *)
-      (if gameState.(lpos.x).(lpos.y) != 0  then 2 else 0)
-      +
-      (* player 2 *)
-      (if gameState.(rpos.x).(rpos.y) != 0  then 1 else 0)
-      in
-  let timerID = ref (* dummy *) (Timeout.add ~ms:100 ~callback:(fun _ -> true)) in
-  let timerTimer _ = begin
-     lpos.x <- lpos.x+lspeed.x;
-     lpos.y <- lpos.y+lspeed.y;
-     rpos.x <- rpos.x+rspeed.x;
-     rpos.y <- rpos.y+rspeed.y;
-     let result = safe_check() in
-     if result!=0 then begin
-        Timeout.remove (!timerID);
-        message#set_text ("player "^string_of_int result^" won.")
-     end
-     else begin
-       game_step()
-     end;
-     true
-  end in
-  let count = ref 3 in
-  let timerTimer2 _ = begin
-(*    message#set_label (string_of_int (!count)); *)
-    if (!count==0) then begin
-      Timeout.remove (!timerID);
-      timerID := Timeout.add ~ms:100 ~callback:timerTimer
-    end
-    else begin
-      count := !count-1;
-    end;
-    true
-  end in
-  let restartClicked () =
-    Timeout.remove !timerID;
-    gameInit();
-    lpos.x <- 4; lpos.y <- 4;
-    lspeed.x <- 0; lspeed.y <- 1;
-    rpos.x <- gameSize-3; rpos.y <- gameSize-3;
-    rspeed.x <- 0; rspeed.y <- -1;
-    drawing#set_foreground `WHITE;
-    drawing#rectangle ~filled:true ~x:0 ~y:0
-      ~width:((gameSize+2)*4) ~height:((gameSize+2)*4) ();
-    area_expose();
-    count := 3;
-    timerID := Timeout.add ~ms:300 ~callback:timerTimer2;
-  in
-  let restart =
-    GButton.button ~label: "Restart" ~packing:(attach ~left:4 ~top:3) () in
-  restart#connect#clicked ~callback:restartClicked;
-  restartClicked ();
-
-  window#show ();
-  Main.main ()
-
-let _ = Printexc.print main ()
-
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/xmhtml/test.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/xmhtml/test.ml
deleted file mode 100644 (file)
index 6c9d371..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/xmhtml/test.ml
+++ /dev/null
@@ -1,38 +0,0 @@
-(* $Id$ *)
-
-let test_string2 = String.concat ~sep:"" [
-  "<html>\n";
-  "<head><title>The Gtk/XmHTML test</title></head>\n";
-  "This is the Gtk/XmHTML test program<p>\n";
-  "You can invoke this program with a command line argument, like this:\n";
-  "<hr>";
-  "<tt>./xtest filename.html</tt>";
-  "<hr>";
-  "Click here to load a different <a href=\"nothing\">test message</a>";
-  "</html>";
-]
-
-let read_file file =
-  let ic = open_in file in
-  let b = Buffer.create 16384 and s = String.create 1024 and len = ref 0 in
-  while len := input ic ~buf:s ~pos:0 ~len:1024; !len > 0 do
-    Buffer.add_substring b s ~pos:0 ~len:!len
-  done;
-  Buffer.contents b
-
-open GMain
-
-let _ =
-  let w = GWindow.window ~width:600 ~height:500 () in
-  w#connect#destroy ~callback:Main.quit;
-  let source =
-    if Array.length Sys.argv > 1 then begin
-      Sys.chdir (Filename.dirname Sys.argv.(1));
-      read_file (Filename.basename Sys.argv.(1))
-    end
-    else test_string2 in
-  let html = GHtml.xmhtml ~source ~packing:w#add () in
-  html#set_anchor_buttons false;
-  html#set_anchor_underline [`SINGLE;`DASHED];
-  w#show ();
-  Main.main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gBin.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gBin.ml
deleted file mode 100644 (file)
index f248ba0..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gBin.ml
+++ /dev/null
@@ -1,153 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkBin
-open GObj
-open GContainer
-
-class scrolled_window obj = object
-  inherit container_full (obj : Gtk.scrolled_window obj)
-  method hadjustment =
-    new GData.adjustment (ScrolledWindow.get_hadjustment obj)
-  method vadjustment =
-    new GData.adjustment (ScrolledWindow.get_vadjustment obj)
-  method set_hadjustment adj =
-    ScrolledWindow.set_hadjustment obj (GData.as_adjustment adj)
-  method set_vadjustment adj =
-    ScrolledWindow.set_vadjustment obj (GData.as_adjustment adj)
-  method set_hpolicy hpolicy = ScrolledWindow.set_policy' obj ~hpolicy
-  method set_vpolicy vpolicy = ScrolledWindow.set_policy' obj ~vpolicy
-  method set_placement = ScrolledWindow.set_placement obj
-  method add_with_viewport w =
-    ScrolledWindow.add_with_viewport obj (as_widget w)
-end
-
-let scrolled_window ?hadjustment ?vadjustment ?hpolicy ?vpolicy
-    ?placement ?border_width ?width ?height ?packing ?show () =
-  let w =
-    ScrolledWindow.create ()
-      ?hadjustment:(may_map ~f:GData.as_adjustment hadjustment)
-      ?vadjustment:(may_map ~f:GData.as_adjustment vadjustment) in
-  ScrolledWindow.set w ?hpolicy ?vpolicy ?placement;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new scrolled_window w) ~packing ~show
-
-class event_box obj = object
-  inherit container_full (obj : Gtk.event_box obj)
-  method event = new GObj.event_ops obj
-end
-
-let event_box ?border_width ?width ?height ?packing ?show () =
-  let w = EventBox.create () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new event_box w) ~packing ~show
-
-class handle_box_signals obj = object
-  inherit container_signals obj
-  method child_attached ~callback =
-    GtkSignal.connect ~sgn:HandleBox.Signals.child_attached obj ~after
-      ~callback:(fun obj -> callback (new widget obj))
-  method child_detached ~callback =
-    GtkSignal.connect ~sgn:HandleBox.Signals.child_detached obj ~after
-      ~callback:(fun obj -> callback (new widget obj))
-end
-
-class handle_box obj = object
-  inherit container (obj : Gtk.handle_box obj)
-  method set_shadow_type     = HandleBox.set_shadow_type     obj
-  method set_handle_position = HandleBox.set_handle_position obj
-  method set_snap_edge       = HandleBox.set_snap_edge       obj
-  method connect = new handle_box_signals obj
-  method event = new GObj.event_ops obj
-end
-
-let handle_box ?border_width ?width ?height ?packing ?show () =
-  let w = HandleBox.create () in
-  let () = Container.set w ?border_width ?width ?height in
-  pack_return (new handle_box w) ~packing ~show
-
-class frame_skel obj = object
-  inherit container obj
-  method set_label = Frame.set_label obj
-  method set_label_align ?x ?y () = Frame.set_label_align' obj ?x ?y
-  method set_shadow_type = Frame.set_shadow_type obj
-end
-
-class frame obj = object
-  inherit frame_skel (Frame.coerce obj)
-  method connect = new container_signals obj
-end
-
-let frame ?(label="") ?label_xalign ?label_yalign ?shadow_type
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Frame.create label in
-  Frame.set w ?label_xalign ?label_yalign ?shadow_type;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new frame w) ~packing ~show
-
-class aspect_frame obj = object
-  inherit frame_skel (obj : Gtk.aspect_frame obj)
-  method connect = new container_signals obj
-  method set_alignment ?x ?y () = AspectFrame.set obj ?xalign:x ?yalign:y
-  method set_ratio ratio = AspectFrame.set obj ~ratio
-  method set_obey_child obey_child = AspectFrame.set obj ~obey_child
-end
-
-let aspect_frame ?label ?xalign ?yalign ?ratio ?obey_child
-    ?label_xalign ?label_yalign ?shadow_type
-    ?border_width ?width ?height ?packing ?show () =
-  let w =
-    AspectFrame.create ?label ?xalign ?yalign ?ratio ?obey_child () in
-  Frame.set w ?label_xalign ?label_yalign ?shadow_type;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new aspect_frame w) ~packing ~show
-
-class viewport obj = object
-  inherit container_full (obj : Gtk.viewport obj)
-  method event = new event_ops obj
-  method set_hadjustment adj =
-    Viewport.set_hadjustment obj (GData.as_adjustment adj)
-  method set_vadjustment adj =
-    Viewport.set_vadjustment obj (GData.as_adjustment adj)
-  method set_shadow_type = Viewport.set_shadow_type obj
-  method hadjustment = new GData.adjustment (Viewport.get_hadjustment obj)
-  method vadjustment = new GData.adjustment (Viewport.get_vadjustment obj)
-end
-
-let viewport ?hadjustment ?vadjustment ?shadow_type
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Viewport.create ()
-      ?hadjustment:(may_map ~f:GData.as_adjustment hadjustment)
-      ?vadjustment:(may_map ~f:GData.as_adjustment vadjustment) in
-  may shadow_type ~f:(Viewport.set_shadow_type w);
-  Container.set w ?border_width ?width ?height;
-  pack_return (new viewport w) ~packing ~show
-
-class alignment obj = object
-  inherit container_full (obj : Gtk.alignment obj)
-  method set_alignment ?x ?y () = Alignment.set ?x ?y obj
-  method set_scale ?x ?y () = Alignment.set ?xscale:x ?yscale:y obj
-end
-
-let alignment ?x ?y ?xscale ?yscale
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Alignment.create ?x ?y ?xscale ?yscale () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new alignment w) ~packing ~show
-  
-let alignment_cast w = new alignment (Alignment.cast w#as_widget)
-
-class socket obj = object (self)
-  inherit container_full (obj : Gtk.socket obj)
-  method steal = Socket.steal obj
-  method xwindow =
-    self#misc#realize ();
-    Gdk.Window.get_xwindow self#misc#window
-end
-
-let socket ?border_width ?width ?height ?packing ?show () =
-  let w = Socket.create () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new socket w) ?packing ?show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gBin.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gBin.mli
deleted file mode 100644 (file)
index 9593650..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gBin.mli
+++ /dev/null
@@ -1,163 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GContainer
-
-class scrolled_window : Gtk.scrolled_window obj ->
-  object
-    inherit container_full
-    val obj : Gtk.scrolled_window obj
-    method add_with_viewport : widget -> unit
-    method hadjustment : GData.adjustment
-    method set_hadjustment : GData.adjustment -> unit
-    method set_hpolicy : Tags.policy_type -> unit
-    method set_placement : Tags.corner_type -> unit
-    method set_vadjustment : GData.adjustment -> unit
-    method set_vpolicy : Tags.policy_type -> unit
-    method vadjustment : GData.adjustment
-  end
-val scrolled_window :
-  ?hadjustment:GData.adjustment ->
-  ?vadjustment:GData.adjustment ->
-  ?hpolicy:Tags.policy_type ->
-  ?vpolicy:Tags.policy_type ->
-  ?placement:Tags.corner_type ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> scrolled_window
-
-class event_box : Gtk.event_box obj ->
-  object
-    inherit container_full
-    val obj : Gtk.event_box obj
-    method event : event_ops
-  end
-val event_box :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> event_box
-
-class handle_box_signals : 'a obj ->
-  object
-    inherit container_signals
-    constraint 'a = [>`handlebox|`container|`widget]
-    val obj : 'a obj
-    method child_attached : callback:(widget -> unit) -> GtkSignal.id
-    method child_detached : callback:(widget -> unit) -> GtkSignal.id
-  end
-
-class handle_box : Gtk.handle_box obj ->
-  object
-    inherit container
-    val obj : Gtk.handle_box obj
-    method event : event_ops
-    method connect : handle_box_signals
-    method set_handle_position : Tags.position -> unit
-    method set_shadow_type : Tags.shadow_type -> unit
-    method set_snap_edge : Tags.position -> unit
-  end
-val handle_box :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> handle_box
-
-class frame_skel : 'a obj ->
-  object
-    inherit container
-    constraint 'a = [>`frame|`container|`widget]
-    val obj : 'a obj
-    method set_label : string -> unit
-    method set_label_align : ?x:clampf -> ?y:clampf -> unit -> unit
-    method set_shadow_type : Tags.shadow_type -> unit
-  end
-class frame : [>`frame] obj ->
-  object
-    inherit frame_skel
-    val obj : Gtk.frame obj
-    method connect : GContainer.container_signals
-  end
-val frame :
-  ?label:string ->
-  ?label_xalign:clampf ->
-  ?label_yalign:clampf ->
-  ?shadow_type:Tags.shadow_type ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> frame
-
-class aspect_frame : Gtk.aspect_frame obj ->
-  object
-    inherit frame
-    val obj : Gtk.aspect_frame obj
-    method set_alignment : ?x:clampf -> ?y:clampf -> unit -> unit
-    method set_obey_child : bool -> unit
-    method set_ratio : clampf -> unit
-  end
-val aspect_frame :
-  ?label:string ->
-  ?xalign:clampf ->
-  ?yalign:clampf ->
-  ?ratio:float ->
-  ?obey_child:bool ->
-  ?label_xalign:clampf ->
-  ?label_yalign:clampf ->
-  ?shadow_type:Tags.shadow_type ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> aspect_frame
-
-class viewport : Gtk.viewport obj ->
-  object
-    inherit container_full
-    val obj : Gtk.viewport obj
-    method event : event_ops
-    method hadjustment : GData.adjustment
-    method set_hadjustment : GData.adjustment -> unit
-    method set_shadow_type : Gtk.Tags.shadow_type -> unit
-    method set_vadjustment : GData.adjustment -> unit
-    method vadjustment : GData.adjustment
-  end
-val viewport :
-  ?hadjustment:GData.adjustment ->
-  ?vadjustment:GData.adjustment ->
-  ?shadow_type:Tags.shadow_type ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> viewport
-
-class alignment : Gtk.alignment obj ->
-  object
-    inherit container_full
-    val obj : Gtk.alignment obj
-    method set_alignment : ?x:Gtk.clampf -> ?y:Gtk.clampf -> unit -> unit
-    method set_scale : ?x:Gtk.clampf -> ?y:Gtk.clampf -> unit -> unit
-  end
-val alignment :
-  ?x:Gtk.clampf ->
-  ?y:Gtk.clampf ->
-  ?xscale:Gtk.clampf ->
-  ?yscale:Gtk.clampf ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> alignment
-val alignment_cast : < as_widget : 'a obj; .. > -> alignment
-
-class socket : Gtk.socket obj ->
-  object
-    inherit container_full
-    val obj : Gtk.socket obj
-    method steal : Gdk.xid -> unit
-    method xwindow : Gdk.xid
-  end
-
-val socket :
-  ?border_width:int -> ?width:int -> ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> socket

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gButton.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gButton.ml
deleted file mode 100644 (file)
index 08ac704..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gButton.ml
+++ /dev/null
@@ -1,124 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkButton
-open GObj
-open GContainer
-
-class button_skel obj = object (self)
-  inherit container obj
-  method clicked () = Button.clicked obj
-  method grab_default () =
-    Widget.set_can_default obj true;
-    Widget.grab_default obj
-end
-
-class button_signals obj = object
-  inherit container_signals obj
-  method clicked = GtkSignal.connect ~sgn:Button.Signals.clicked ~after obj
-  method pressed = GtkSignal.connect ~sgn:Button.Signals.pressed ~after obj
-  method released = GtkSignal.connect ~sgn:Button.Signals.released ~after obj
-  method enter = GtkSignal.connect ~sgn:Button.Signals.enter ~after obj
-  method leave = GtkSignal.connect ~sgn:Button.Signals.leave ~after obj
-end
-
-class button obj = object
-  inherit button_skel (Button.coerce obj)
-  method connect = new button_signals obj
-  method event = new GObj.event_ops obj
-end
-
-let button ?label ?border_width ?width ?height ?packing ?show () =
-  let w = Button.create ?label () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new button w) ~packing ~show
-
-class toggle_button_signals obj = object
-  inherit button_signals obj
-  method toggled =
-    GtkSignal.connect ~sgn:ToggleButton.Signals.toggled obj ~after
-end
-
-class toggle_button obj = object
-  inherit button_skel obj
-  method connect = new toggle_button_signals obj
-  method active = ToggleButton.get_active obj
-  method set_active = ToggleButton.set_active obj
-  method set_draw_indicator = ToggleButton.set_mode obj
-end
-
-let toggle_button ?label ?active ?draw_indicator
-    ?border_width ?width ?height ?packing ?show () =
-  let w = ToggleButton.create_toggle ?label () in
-  ToggleButton.set w ?active ?draw_indicator;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new toggle_button w) ~packing ~show
-
-let check_button ?label ?active ?draw_indicator
-    ?border_width ?width ?height ?packing ?show () =
-  let w = ToggleButton.create_check ?label () in
-  ToggleButton.set w ?active ?draw_indicator;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new toggle_button w) ~packing ~show
-
-class radio_button obj = object
-  inherit toggle_button (obj : Gtk.radio_button obj)
-  method set_group = RadioButton.set_group obj
-  method group = Some obj
-end
-
-let radio_button ?group ?label ?active ?draw_indicator
-    ?border_width ?width ?height ?packing ?show () =
-  let w = RadioButton.create ?group ?label () in
-  ToggleButton.set w ?active ?draw_indicator;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new radio_button w) ~packing ~show
-
-class toolbar obj = object
-  inherit container_full (obj : Gtk.toolbar obj)
-  method insert_widget ?tooltip ?tooltip_private ?pos w =
-    Toolbar.insert_widget obj (as_widget w) ?tooltip ?tooltip_private ?pos
-
-  method insert_button ?text ?tooltip ?tooltip_private ?icon
-      ?pos ?callback () =
-    let icon = may_map icon ~f:as_widget in
-    new button
-      (Toolbar.insert_button obj ~kind:`BUTTON ?icon ?text
-        ?tooltip ?tooltip_private ?pos ?callback ())
-
-  method insert_toggle_button ?text ?tooltip ?tooltip_private ?icon
-      ?pos ?callback () =
-    let icon = may_map icon ~f:as_widget in
-    new toggle_button
-      (ToggleButton.cast
-        (Toolbar.insert_button obj ~kind:`TOGGLEBUTTON ?icon ?text
-           ?tooltip ?tooltip_private ?pos ?callback ()))
-
-  method insert_radio_button ?text ?tooltip ?tooltip_private ?icon
-      ?pos ?callback () =
-    let icon = may_map icon ~f:as_widget in
-    new radio_button
-      (RadioButton.cast
-        (Toolbar.insert_button obj ~kind:`RADIOBUTTON ?icon ?text
-           ?tooltip ?tooltip_private ?pos ?callback ()))
-
-  method insert_space = Toolbar.insert_space obj
-
-  method set_orientation = Toolbar.set_orientation obj
-  method set_style = Toolbar.set_style obj
-  method set_space_size = Toolbar.set_space_size obj
-  method set_space_style = Toolbar.set_space_style obj
-  method set_tooltips = Toolbar.set_tooltips obj
-  method set_button_relief = Toolbar.set_button_relief obj
-  method button_relief = Toolbar.get_button_relief obj
-end
-
-let toolbar ?(orientation=`HORIZONTAL) ?style
-    ?space_size ?space_style ?tooltips ?button_relief
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Toolbar.create orientation ?style () in
-  Toolbar.set w ?space_size ?space_style ?tooltips ?button_relief;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new toolbar w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gButton.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gButton.mli
deleted file mode 100644 (file)
index ee2653d..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gButton.mli
+++ /dev/null
@@ -1,144 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GContainer
-
-class button_skel :
-  'a obj ->
-  object
-    inherit container
-    constraint 'a = [>`widget|`button|`container]
-    val obj : 'a obj
-    method clicked : unit -> unit
-    method grab_default : unit -> unit
-  end
-class button_signals :
-  'b obj ->
-  object ('a)
-    inherit container_signals
-    constraint 'b = [>`button|`container|`widget]
-    val obj : 'b obj
-    method clicked : callback:(unit -> unit) -> GtkSignal.id
-    method enter : callback:(unit -> unit) -> GtkSignal.id
-    method leave : callback:(unit -> unit) -> GtkSignal.id
-    method pressed : callback:(unit -> unit) -> GtkSignal.id
-    method released : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class button :
-  [>`button] obj ->
-  object
-    inherit button_skel
-    val obj : Gtk.button obj
-    method event : event_ops
-    method connect : button_signals
-  end
-val button :
-  ?label:string ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> button
-
-class toggle_button_signals :
-  'b obj ->
-  object ('a)
-    inherit button_signals
-    constraint 'b = [>`toggle|`button|`container|`widget]
-    val obj : 'b obj
-    method toggled : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class toggle_button :
-  'a obj ->
-  object
-    inherit button_skel
-    constraint 'a = [>`toggle|`button|`container|`widget]
-    val obj : 'a obj
-    method active : bool
-    method connect : toggle_button_signals
-    method set_active : bool -> unit
-    method set_draw_indicator : bool -> unit
-  end
-val toggle_button :
-  ?label:string ->
-  ?active:bool ->
-  ?draw_indicator:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> toggle_button
-val check_button :
-  ?label:string ->
-  ?active:bool ->
-  ?draw_indicator:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> toggle_button
-
-class radio_button :
-  Gtk.radio_button obj ->
-  object
-    inherit toggle_button
-    val obj : Gtk.radio_button obj
-    method group : Gtk.radio_button group
-    method set_group : Gtk.radio_button group -> unit
-  end
-val radio_button :
-  ?group:Gtk.radio_button group ->
-  ?label:string ->
-  ?active:bool ->
-  ?draw_indicator:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> radio_button
-
-class toolbar :
-  Gtk.toolbar obj ->
-  object
-    inherit container_full
-    val obj : Gtk.toolbar obj
-    method button_relief : Tags.relief_style
-    method insert_button :
-      ?text:string ->
-      ?tooltip:string ->
-      ?tooltip_private:string ->
-      ?icon:widget ->
-      ?pos:int -> ?callback:(unit -> unit) -> unit -> button
-    method insert_radio_button :
-      ?text:string ->
-      ?tooltip:string ->
-      ?tooltip_private:string ->
-      ?icon:widget ->
-      ?pos:int -> ?callback:(unit -> unit) -> unit -> radio_button
-    method insert_space : ?pos:int -> unit -> unit
-    method insert_toggle_button :
-      ?text:string ->
-      ?tooltip:string ->
-      ?tooltip_private:string ->
-      ?icon:widget ->
-      ?pos:int -> ?callback:(unit -> unit) -> unit -> toggle_button
-    method insert_widget :
-      ?tooltip:string ->
-      ?tooltip_private:string -> ?pos:int -> widget -> unit
-    method set_button_relief : Tags.relief_style -> unit
-    method set_orientation : Tags.orientation -> unit
-    method set_space_size : int -> unit
-    method set_space_style : [`EMPTY|`LINE] -> unit
-    method set_style : Tags.toolbar_style -> unit
-    method set_tooltips : bool -> unit
-  end
-val toolbar :
-  ?orientation:Tags.orientation ->
-  ?style:Tags.toolbar_style ->
-  ?space_size:int ->
-  ?space_style:[`EMPTY|`LINE] ->
-  ?tooltips:bool ->
-  ?button_relief:Tags.relief_style ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> toolbar

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gContainer.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gContainer.ml
deleted file mode 100644 (file)
index 2ea765e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gContainer.ml
+++ /dev/null
@@ -1,75 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GObj
-open GData
-
-class focus obj = object
-  val obj = obj
-  method circulate = Container.focus obj
-  method set (child : widget option) =
-    let child = may_map child ~f:(fun x -> x#as_widget) in
-    Container.set_focus_child obj (Gpointer.optboxed child)
-  method set_hadjustment adj =
-    Container.set_focus_hadjustment obj
-      (Gpointer.optboxed (may_map adj ~f:as_adjustment))
-  method set_vadjustment adj =
-    Container.set_focus_vadjustment obj
-      (Gpointer.optboxed (may_map adj ~f:as_adjustment))
-end
-
-class container obj = object (self)
-  inherit widget obj
-  method add w =
-    (* Hack to avoid creating a bin class *)
-    if GtkBase.Object.is_a obj "GtkBin" && Container.children obj <> [] then
-      raise (Gtk.Error "GContainer.container#add: already full");
-    Container.add obj (as_widget w)
-  method remove w = Container.remove obj (as_widget w)
-  method children = List.map ~f:(new widget) (Container.children obj)
-  method set_border_width = Container.set_border_width obj
-  method focus = new focus obj
-end
-
-class container_signals obj = object
-  inherit widget_signals obj
-  method add ~callback =
-    GtkSignal.connect ~sgn:Container.Signals.add obj ~after
-      ~callback:(fun w -> callback (new widget w))
-  method remove ~callback =
-    GtkSignal.connect ~sgn:Container.Signals.remove obj ~after
-      ~callback:(fun w -> callback (new widget w))
-end
-
-class container_full obj = object
-  inherit container obj
-  method connect = new container_signals obj
-end
-
-let cast_container (w : widget) =
-  new container_full (GtkBase.Container.cast w#as_widget)
-
-class virtual ['a] item_container obj = object (self)
-  inherit widget obj
-  method add (w : 'a) =
-    Container.add obj w#as_item
-  method remove (w : 'a) =
-    Container.remove obj w#as_item
-  method private virtual wrap : Gtk.widget obj -> 'a
-  method children : 'a list =
-    List.map ~f:self#wrap (Container.children obj)
-  method set_border_width = Container.set_border_width obj
-  method focus = new focus obj
-  method virtual insert : 'a -> pos:int -> unit
-  method append (w : 'a) = self#insert w ~pos:(-1)
-  method prepend (w : 'a) = self#insert w ~pos:0
-end
-
-class item_signals obj = object
-  inherit container_signals obj
-  method select = GtkSignal.connect ~sgn:Item.Signals.select obj ~after
-  method deselect = GtkSignal.connect ~sgn:Item.Signals.deselect obj ~after
-  method toggle = GtkSignal.connect ~sgn:Item.Signals.toggle obj ~after
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gContainer.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gContainer.mli
deleted file mode 100644 (file)
index 2909829..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gContainer.mli
+++ /dev/null
@@ -1,79 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-
-class focus :
-  'a obj ->
-  object
-    constraint 'a = [>`container]
-    val obj : 'a obj
-    method circulate : Tags.direction_type -> bool
-    method set : widget option -> unit
-    method set_hadjustment : GData.adjustment option -> unit
-    method set_vadjustment : GData.adjustment option -> unit
-  end
-
-class container :
-  'a obj ->
-  object
-    inherit widget
-    constraint 'a = [>`container|`widget]
-    val obj : 'a obj
-    method add : widget -> unit
-    method children : widget list
-    method remove : widget -> unit
-    method focus : focus
-    method set_border_width : int -> unit
-  end
-
-class container_signals :
-  'a obj ->
-  object
-    inherit widget_signals
-    constraint 'a = [>`container|`widget]
-    val obj : 'a obj
-    method add : callback:(widget -> unit) -> GtkSignal.id
-    method remove : callback:(widget -> unit) -> GtkSignal.id
-  end
-
-class container_full :
-  'a obj ->
-  object
-    inherit container
-    constraint 'a = [>`container|`widget]
-    val obj : 'a obj
-    method connect : container_signals
-  end
-
-val cast_container : widget -> container_full
-(* may raise [Gtk.Cannot_cast "GtkContainer"] *)
-
-class virtual ['a] item_container :
-  'c obj ->
-  object
-    constraint 'a = < as_item : [>`widget] obj; .. >
-    constraint 'c = [>`container|`widget]
-    inherit widget
-    val obj : 'c obj
-    method add : 'a -> unit
-    method append : 'a -> unit
-    method children : 'a list
-    method virtual insert : 'a -> pos:int -> unit
-    method prepend : 'a -> unit
-    method remove : 'a -> unit
-    method focus : focus
-    method set_border_width : int -> unit
-    method private virtual wrap : Gtk.widget obj -> 'a
-  end
-
-class item_signals :
-  'a obj ->
-  object
-    inherit container_signals
-    constraint 'a = [>`container|`item|`widget]
-    val obj : 'a obj
-    method deselect : callback:(unit -> unit) -> GtkSignal.id
-    method select : callback:(unit -> unit) -> GtkSignal.id
-    method toggle : callback:(unit -> unit) -> GtkSignal.id
-  end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gData.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gData.ml
deleted file mode 100644 (file)
index 52aa3f1..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gData.ml
+++ /dev/null
@@ -1,60 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkData
-open GObj
-
-class data_signals obj = object
-  inherit gtkobj_signals obj
-  method disconnect_data =
-    GtkSignal.connect ~sgn:Data.Signals.disconnect obj ~after
-end
-
-class adjustment_signals obj = object
-  inherit data_signals obj
-  method changed = GtkSignal.connect ~sgn:Adjustment.Signals.changed obj ~after
-  method value_changed =
-    GtkSignal.connect ~sgn:Adjustment.Signals.value_changed obj ~after
-end
-
-class adjustment obj = object
-  inherit gtkobj obj
-  method as_adjustment : Gtk.adjustment obj = obj
-  method connect = new adjustment_signals obj
-  method set_value = Adjustment.set_value obj
-  method clamp_page = Adjustment.clamp_page obj
-  method lower = Adjustment.get_lower obj
-  method upper = Adjustment.get_upper obj
-  method value = Adjustment.get_value obj
-  method step_increment = Adjustment.get_step_increment obj
-  method page_increment = Adjustment.get_page_increment obj
-  method page_size = Adjustment.get_page_size obj
-end
-
-let adjustment ?(value=0.) ?(lower=0.) ?(upper=100.)
-    ?(step_incr=1.) ?(page_incr=10.) ?(page_size=10.) () =
-  let w =
-    Adjustment.create ~value ~lower ~upper ~step_incr ~page_incr ~page_size in
-  new adjustment w
-
-let as_adjustment (adj : adjustment) = adj#as_adjustment
-
-class tooltips obj = object
-  inherit gtkobj (obj : Gtk.tooltips obj)
-  method as_tooltips = obj
-  method connect = new data_signals obj
-  method enable () = Tooltips.enable obj
-  method disable () = Tooltips.disable obj
-  method set_tip ?text ?privat w =
-    Tooltips.set_tip obj (as_widget w) ?text ?privat
-  method set_delay = Tooltips.set_delay obj
-end
-
-let tooltips ?delay () =
-  let tt = Tooltips.create () in
-  Tooltips.set tt ?delay;
-  new tooltips tt
-
-
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gData.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gData.mli
deleted file mode 100644 (file)
index ae7b29e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gData.mli
+++ /dev/null
@@ -1,60 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-
-class data_signals :
-  'a obj ->
-  object
-    inherit GObj.gtkobj_signals
-    constraint 'a = [>`data]
-    val obj : 'a obj
-    method disconnect_data : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class adjustment_signals :
-  'a obj ->
-  object
-    inherit data_signals
-    constraint 'a = [>`adjustment|`data]
-    val obj : 'a obj
-    method changed : callback:(unit -> unit) -> GtkSignal.id
-    method value_changed : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class adjustment : Gtk.adjustment obj ->
-  object
-    inherit GObj.gtkobj
-    val obj : Gtk.adjustment obj
-    method as_adjustment : Gtk.adjustment obj
-    method clamp_page : lower:float -> upper:float -> unit
-    method connect : adjustment_signals
-    method set_value : float -> unit
-    method lower : float
-    method upper : float
-    method value : float
-    method step_increment : float
-    method page_increment : float
-    method page_size : float
-  end
-val adjustment :
-  ?value:float ->
-  ?lower:float ->
-  ?upper:float ->
-  ?step_incr:float ->
-  ?page_incr:float -> ?page_size:float -> unit -> adjustment
-
-val as_adjustment : adjustment -> Gtk.adjustment obj
-
-class tooltips :
-  Gtk.tooltips obj ->
-  object
-    inherit GObj.gtkobj
-    val obj : Gtk.tooltips obj
-    method as_tooltips : Gtk.tooltips obj
-    method connect : data_signals
-    method disable : unit -> unit
-    method enable : unit -> unit
-    method set_delay : int -> unit
-    method set_tip : ?text:string -> ?privat:string -> GObj.widget -> unit
-  end
-val tooltips : ?delay:int -> unit -> tooltips

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gDraw.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gDraw.ml
deleted file mode 100644 (file)
index 5782079..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gDraw.ml
+++ /dev/null
@@ -1,163 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gdk
-
-type color = [
-  | `COLOR of Color.t
-  | `WHITE
-  | `BLACK
-  | `NAME of string
-  | `RGB of int * int * int
-]
-
-let default_colormap = GtkBase.Widget.get_default_colormap
-
-let color ?(colormap = default_colormap ()) (c : color) =
-  match c with
-  | `COLOR col -> col
-  | #Gdk.Color.spec as def -> Color.alloc ~colormap def
-
-type optcolor = [
-  | `COLOR of Color.t
-  | `WHITE
-  | `BLACK
-  | `NAME of string
-  | `RGB of int * int * int
-  | `DEFAULT
-]
-
-let optcolor ?colormap (c : optcolor) =
-  match c with
-  | `DEFAULT -> None
-  | #color as c -> Some (color ?colormap c)
-
-class ['a] drawable ?(colormap = default_colormap ()) w =
-object (self)
-  val colormap = colormap
-  val gc = GC.create w
-  val w : 'a Gdk.drawable = w
-  method color = color ~colormap
-  method set_foreground col = GC.set_foreground gc (self#color col)
-  method set_background col = GC.set_background gc (self#color col)
-  method gc_values = GC.get_values gc
-  method set_clip_region region = GC.set_clip_region gc region
-  method set_line_attributes ?width ?style ?cap ?join () =
-    let v = GC.get_values gc in
-    GC.set_line_attributes gc
-      ~width:(default v.GC.line_width ~opt:width)
-      ~style:(default v.GC.line_style ~opt:style)
-      ~cap:(default v.GC.cap_style ~opt:cap)
-      ~join:(default v.GC.join_style ~opt:join)
-  method point = Draw.point w gc
-  method line = Draw.line w gc
-  method rectangle = Draw.rectangle w gc
-  method arc = Draw.arc w gc
-  method polygon ?filled l = Draw.polygon w gc ?filled l
-  method string s = Draw.string w gc ~string:s
-  method image ~width ~height ?(xsrc=0) ?(ysrc=0) ?(xdest=0) ?(ydest=0) image =
-    Draw.image w gc ~image ~width ~height ~xsrc ~ysrc ~xdest ~ydest
-end
-
-class pixmap ?colormap ?mask pm = object
-  inherit [[`pixmap]] drawable ?colormap pm as pixmap
-  val bitmap = may_map mask ~f:
-      begin fun x ->
-        let mask = new drawable x in
-        mask#set_foreground `WHITE;
-        mask
-      end
-  val mask : Gdk.bitmap option = mask
-  method pixmap = w
-  method mask = mask
-  method set_line_attributes ?width ?style ?cap ?join () =
-    pixmap#set_line_attributes ?width ?style ?cap ?join ();
-    may bitmap ~f:(fun m -> m#set_line_attributes ?width ?style ?cap ?join ())
-  method point ~x ~y =
-    pixmap#point ~x ~y;
-    may bitmap ~f:(fun m -> m#point ~x ~y)
-  method line ~x ~y ~x:x' ~y:y' =
-    pixmap#line ~x ~y ~x:x' ~y:y';
-    may bitmap ~f:(fun m -> m#line ~x ~y ~x:x' ~y:y')
-  method rectangle ~x ~y ~width ~height ?filled () =
-    pixmap#rectangle ~x ~y ~width ~height ?filled ();
-    may bitmap ~f:(fun m -> m#rectangle ~x ~y ~width ~height ?filled ())
-  method arc ~x ~y ~width ~height ?filled ?start ?angle () =
-    pixmap#arc ~x ~y ~width ~height ?filled ?start ?angle ();
-    may bitmap
-      ~f:(fun m -> m#arc ~x ~y ~width ~height ?filled ?start ?angle ());
-  method polygon ?filled l =
-    pixmap#polygon ?filled l;
-    may bitmap ~f:(fun m -> m#polygon ?filled l)
-  method string s ~font ~x ~y =
-    pixmap#string s ~font ~x ~y;
-    may bitmap ~f:(fun m -> m#string s ~font ~x ~y)
-end
-
-class type misc_ops = object
-  method allocation : Gtk.rectangle
-  method colormap : colormap
-  method draw : Rectangle.t option -> unit
-  method hide : unit -> unit
-  method hide_all : unit -> unit
-  method intersect : Rectangle.t -> Rectangle.t option
-  method pointer : int * int
-  method realize : unit -> unit
-  method set_app_paintable : bool -> unit
-  method set_geometry :
-    ?x:int -> ?y:int -> ?width:int -> ?height:int -> unit -> unit
-  method show : unit -> unit
-  method unmap : unit -> unit
-  method unparent : unit -> unit
-  method unrealize : unit -> unit
-  method visible : bool
-  method visual : visual
-  method visual_depth : int
-  method window : window
-end
-
-let pixmap ~(window : < misc : #misc_ops; .. >)
-    ~width ~height ?(mask=false) () =
-  window#misc#realize ();
-  let window =
-    try window#misc#window
-    with Gpointer.Null -> failwith "GDraw.pixmap : no window"
-  and depth = window#misc#visual_depth
-  and colormap = window#misc#colormap in
-  let mask =
-    if not mask then None else
-    let bm = Bitmap.create window ~width ~height in
-    let mask = new drawable bm in
-    mask#set_foreground `BLACK;
-    mask#rectangle ~x:0 ~y:0 ~width ~height ~filled:true ();
-    Some bm
-  in
-  new pixmap (Pixmap.create window ~width ~height ~depth) ~colormap ?mask
-
-let pixmap_from_xpm ~window ~file ?colormap ?transparent () =
-  window#misc#realize ();
-  let window =
-    try window#misc#window
-    with Gpointer.Null -> failwith "GDraw.pixmap_from_xpm : no window" in
-  let pm, mask =
-    try Pixmap.create_from_xpm window ~file ?colormap
-       ?transparent:(may_map transparent ~f:(fun c -> color c))
-    with Gpointer.Null -> invalid_arg ("GDraw.pixmap_from_xpm : " ^ file) in
-  new pixmap pm ?colormap ~mask
-
-let pixmap_from_xpm_d ~window ~data ?colormap ?transparent () =
-  window#misc#realize ();
-  let window =
-    try window#misc#window
-    with Gpointer.Null -> failwith "GDraw.pixmap_from_xpm_d : no window" in
-  let pm, mask =
-    Pixmap.create_from_xpm_d window ~data ?colormap
-      ?transparent:(may_map transparent ~f:(fun c -> color c)) in
-  new pixmap pm ?colormap ~mask
-
-class drag_context context = object
-  val context = context
-  method status ?(time=0) act = DnD.drag_status context act ~time
-  method suggested_action = DnD.drag_context_suggested_action context
-  method targets = DnD.drag_context_targets context
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gDraw.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gDraw.mli
deleted file mode 100644 (file)
index 2b5fc86..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gDraw.mli
+++ /dev/null
@@ -1,107 +0,0 @@
-(* $Id$ *)
-
-open Gdk
-
-type color =
-  [ `COLOR of Color.t
-  | `WHITE
-  | `BLACK
-  | `NAME of string
-  | `RGB of int * int * int]
-
-val color : ?colormap:colormap -> color -> Color.t
-
-type optcolor =
-  [ `COLOR of Color.t
-  | `WHITE
-  | `BLACK
-  | `NAME of string
-  | `RGB of int * int * int
-  | `DEFAULT ]
-
-val optcolor : ?colormap:colormap -> optcolor -> Color.t option
-
-class ['a] drawable : ?colormap:colormap -> 'a Gdk.drawable ->
-  object
-    val gc : gc
-    val w : 'a Gdk.drawable
-    method arc :
-      x:int ->
-      y:int ->
-      width:int ->
-      height:int ->
-      ?filled:bool -> ?start:float -> ?angle:float -> unit -> unit
-    method color : color -> Color.t
-    method gc_values : GC.values
-    method image :
-      width:int ->
-      height:int ->
-      ?xsrc:int -> ?ysrc:int -> ?xdest:int -> ?ydest:int -> image -> unit
-    method line : x:int -> y:int -> x:int -> y:int -> unit
-    method point : x:int -> y:int -> unit
-    method polygon : ?filled:bool -> (int * int) list -> unit
-    method rectangle :
-      x:int ->
-      y:int -> width:int -> height:int -> ?filled:bool -> unit -> unit
-    method set_background : color -> unit
-    method set_foreground : color -> unit
-    method set_clip_region : region -> unit
-    method set_line_attributes :
-      ?width:int ->
-      ?style:GC.gdkLineStyle ->
-      ?cap:GC.gdkCapStyle -> ?join:GC.gdkJoinStyle -> unit -> unit
-    method string : string -> font:font -> x:int -> y:int -> unit
-  end
-
-class pixmap :
-  ?colormap:colormap -> ?mask:bitmap -> [ `pixmap] Gdk.drawable ->
-  object
-    inherit [[`pixmap]] drawable
-    val bitmap : [ `bitmap] drawable option
-    val mask : bitmap option
-    method mask : bitmap option
-    method pixmap : Gdk.pixmap
-  end
-
-class type misc_ops =
-  object
-    method allocation : Gtk.rectangle
-    method colormap : colormap
-    method draw : Rectangle.t option -> unit
-    method hide : unit -> unit
-    method hide_all : unit -> unit
-    method intersect : Rectangle.t -> Rectangle.t option
-    method pointer : int * int
-    method realize : unit -> unit
-    method set_app_paintable : bool -> unit
-    method set_geometry :
-      ?x:int -> ?y:int -> ?width:int -> ?height:int -> unit -> unit
-    method show : unit -> unit
-    method unmap : unit -> unit
-    method unparent : unit -> unit
-    method unrealize : unit -> unit
-    method visible : bool
-    method visual : visual
-    method visual_depth : int
-    method window : window
-  end
-
-val pixmap :
-  window:< misc : #misc_ops; .. > ->
-  width:int -> height:int -> ?mask:bool -> unit -> pixmap
-val pixmap_from_xpm :
-  window:< misc : #misc_ops; .. > ->
-  file:string ->
-  ?colormap:colormap -> ?transparent:color -> unit -> pixmap
-val pixmap_from_xpm_d :
-  window:< misc : #misc_ops; .. > ->
-  data:string array ->
-  ?colormap:colormap -> ?transparent:color -> unit -> pixmap
-
-class drag_context : Gdk.drag_context ->
-  object
-    val context : Gdk.drag_context
-    method status : ?time:int -> Tags.drag_action list -> unit
-    method suggested_action : Tags.drag_action
-    method targets : atom list
-  end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gEdit.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gEdit.ml
deleted file mode 100644 (file)
index 467ee45..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gEdit.ml
+++ /dev/null
@@ -1,147 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkEdit
-open GObj
-
-class editable_signals obj = object
-  inherit widget_signals obj
-  method activate = GtkSignal.connect ~sgn:Editable.Signals.activate obj ~after
-  method changed = GtkSignal.connect ~sgn:Editable.Signals.changed obj ~after
-  method insert_text =
-    GtkSignal.connect ~sgn:Editable.Signals.insert_text obj ~after
-  method delete_text =
-    GtkSignal.connect ~sgn:Editable.Signals.delete_text obj ~after
-end
-
-class editable obj = object
-  inherit widget obj
-  method connect = new editable_signals obj
-  method select_region = Editable.select_region obj
-  method insert_text = Editable.insert_text obj
-  method delete_text = Editable.delete_text obj
-  method get_chars = Editable.get_chars obj
-  method cut_clipboard () = Editable.cut_clipboard obj
-  method copy_clipboard () = Editable.copy_clipboard obj
-  method paste_clipboard () = Editable.paste_clipboard obj
-  method delete_selection () = Editable.delete_selection obj
-  method set_position = Editable.set_position obj
-  method position = Editable.get_position obj
-  method set_editable = Editable.set_editable obj
-  method selection =
-    if Editable.has_selection obj then
-      Some (Editable.selection_start_pos obj, Editable.selection_end_pos obj)
-    else None
-end
-
-class entry obj = object
-  inherit editable obj
-  method event = new GObj.event_ops obj
-  method set_text = Entry.set_text obj
-  method append_text = Entry.append_text obj
-  method prepend_text = Entry.prepend_text obj
-  method set_visibility = Entry.set_visibility obj
-  method set_max_length = Entry.set_max_length obj
-  method text = Entry.get_text obj
-  method text_length = Entry.text_length obj
-end
-
-let set_editable ?editable ?(width = -2) ?(height = -2) w =
-  may editable ~f:(Editable.set_editable w);
-  if width <> -2 || height <> -2 then Widget.set_usize w ~width ~height
-
-let entry ?max_length ?text ?visibility ?editable
-    ?width ?height ?packing ?show () =
-  let w = Entry.create ?max_length () in
-  Entry.set w ?text ?visibility;
-  set_editable w ?editable ?width ?height;
-  pack_return (new entry w) ~packing ~show
-
-class spin_button obj = object
-  inherit entry (obj : Gtk.spin_button obj)
-  method adjustment =  new GData.adjustment (SpinButton.get_adjustment obj)
-  method value = SpinButton.get_value obj
-  method value_as_int = SpinButton.get_value_as_int obj
-  method spin = SpinButton.spin obj
-  method update = SpinButton.update obj
-  method set_adjustment adj =
-    SpinButton.set_adjustment obj (GData.as_adjustment adj)
-  method set_digits = SpinButton.set_digits obj
-  method set_value = SpinButton.set_value obj
-  method set_update_policy = SpinButton.set_update_policy obj
-  method set_numeric = SpinButton.set_numeric obj
-  method set_wrap = SpinButton.set_wrap obj
-  method set_shadow_type = SpinButton.set_shadow_type obj
-  method set_snap_to_ticks = SpinButton.set_snap_to_ticks obj
-end
-
-let spin_button ?adjustment ?rate ?digits ?value ?update_policy
-    ?numeric ?wrap ?shadow_type ?snap_to_ticks
-    ?width ?height ?packing ?show () =
-  let w = SpinButton.create ?rate ?digits
-      ?adjustment:(may_map ~f:GData.as_adjustment adjustment) () in
-  SpinButton.set w ?value ?update_policy
-    ?numeric ?wrap ?shadow_type ?snap_to_ticks;
-  set_editable w ?width ?height;
-  pack_return (new spin_button w) ~packing ~show
-
-class combo obj = object
-  inherit GObj.widget (obj : Gtk.combo obj)
-  method entry = new entry (Combo.entry obj)
-  method list = new GList.liste (Combo.list obj)
-  method set_popdown_strings = Combo.set_popdown_strings obj
-  method set_use_arrows = Combo.set_use_arrows' obj
-  method set_case_sensitive = Combo.set_case_sensitive obj
-  method set_value_in_list = Combo.set_value_in_list obj
-  method disable_activate () = Combo.disable_activate obj
-  method set_item_string (item : GList.list_item) =
-    Combo.set_item_string obj item#as_item
-end
-
-let combo ?popdown_strings ?use_arrows
-    ?case_sensitive ?value_in_list ?ok_if_empty
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Combo.create () in
-  Combo.set w ?popdown_strings ?use_arrows
-    ?case_sensitive ?value_in_list ?ok_if_empty;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new combo w) ~packing ~show
-
-class text obj = object (self)
-  inherit editable (obj : Gtk.text obj) as super
-  method get_chars ~start ~stop:e =
-    if start < 0 || e > Text.get_length obj || e < start then
-      invalid_arg "GEdit.text#get_chars";
-    super#get_chars ~start ~stop:e
-  method event = new GObj.event_ops obj
-  method set_point = Text.set_point obj
-  method set_hadjustment adj =
-    Text.set_adjustment obj ~horizontal:(GData.as_adjustment adj) ()
-  method set_vadjustment adj =
-    Text.set_adjustment obj ~vertical:(GData.as_adjustment adj) ()
-  method set_word_wrap = Text.set_word_wrap obj
-  method set_line_wrap = Text.set_line_wrap obj
-  method hadjustment = new GData.adjustment (Text.get_hadjustment obj)
-  method vadjustment = new GData.adjustment (Text.get_vadjustment obj)
-  method point = Text.get_point obj
-  method length = Text.get_length obj
-  method freeze () = Text.freeze obj
-  method thaw () = Text.thaw obj
-  method insert ?font ?foreground ?background text =
-    let colormap = try Some self#misc#colormap with _ -> None in
-    Text.insert obj text ?font
-      ?foreground:(may_map foreground ~f:(GDraw.color ?colormap))
-      ?background:(may_map background ~f:(GDraw.color ?colormap))
-end
-
-let text ?hadjustment ?vadjustment ?editable
-    ?word_wrap ?line_wrap ?width ?height ?packing ?show () =
-  let w = Text.create ()
-      ?hadjustment:(may_map ~f:GData.as_adjustment hadjustment)
-      ?vadjustment:(may_map ~f:GData.as_adjustment vadjustment) in
-  may word_wrap ~f:(Text.set_word_wrap w);
-  may line_wrap ~f:(Text.set_line_wrap w);
-  set_editable w ?editable ?width ?height;
-  pack_return (new text w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gEdit.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gEdit.mli
deleted file mode 100644 (file)
index 3b2c286..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gEdit.mli
+++ /dev/null
@@ -1,146 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-
-class editable_signals : 'a obj ->
-  object
-    inherit widget_signals
-    constraint 'a = [>`editable|`widget]
-    val obj : 'a obj
-    method activate : callback:(unit -> unit) -> GtkSignal.id
-    method changed : callback:(unit -> unit) -> GtkSignal.id
-    method delete_text :
-      callback:(start:int -> stop:int -> unit) -> GtkSignal.id
-    method insert_text :
-      callback:(string -> pos:int -> unit) -> GtkSignal.id
-  end
-
-class editable : 'a obj ->
-  object
-    inherit widget
-    constraint 'a = [>`editable|`widget]
-    val obj : 'a obj
-    method connect : editable_signals
-    method copy_clipboard : unit -> unit
-    method cut_clipboard : unit -> unit
-    method delete_selection : unit -> unit
-    method delete_text : start:int -> stop:int -> unit
-    method get_chars : start:int -> stop:int -> string
-    method insert_text : string -> pos:int -> int
-    method paste_clipboard : unit -> unit
-    method position : int
-    method select_region : start:int -> stop:int -> unit
-    method selection : (int * int) option
-    method set_editable : bool -> unit
-    method set_position : int -> unit
-  end
-
-class entry : 'a obj ->
-  object
-    inherit editable
-    constraint 'a = [>`entry|`editable|`widget]
-    val obj : 'a obj
-    method event : event_ops
-    method append_text : string -> unit
-    method prepend_text : string -> unit
-    method set_max_length : int -> unit
-    method set_text : string -> unit
-    method set_visibility : bool -> unit
-    method text : string
-    method text_length : int
-  end
-val entry :
-  ?max_length:int ->
-  ?text:string ->
-  ?visibility:bool ->
-  ?editable:bool ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> entry
-
-class spin_button : Gtk.spin_button obj ->
-  object
-    inherit entry
-    val obj : Gtk.spin_button obj
-    method adjustment : GData.adjustment
-    method set_adjustment : GData.adjustment -> unit
-    method set_digits : int -> unit
-    method set_numeric : bool -> unit
-    method set_shadow_type : Tags.shadow_type -> unit
-    method set_snap_to_ticks : bool -> unit
-    method set_update_policy : [`ALWAYS|`IF_VALID] -> unit
-    method set_value : float -> unit
-    method set_wrap : bool -> unit
-    method spin : Tags.spin_type -> unit
-    method update : unit
-    method value : float
-    method value_as_int : int
-  end
-val spin_button :
-  ?adjustment:GData.adjustment ->
-  ?rate:float ->
-  ?digits:int ->
-  ?value:float ->
-  ?update_policy:[`ALWAYS|`IF_VALID] ->
-  ?numeric:bool ->
-  ?wrap:bool ->
-  ?shadow_type:Tags.shadow_type ->
-  ?snap_to_ticks:bool ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> spin_button
-
-class combo : Gtk.combo obj ->
-  object
-    inherit widget
-    val obj : Gtk.combo obj
-    method disable_activate : unit -> unit
-    method entry : entry
-    method list : GList.liste
-    method set_case_sensitive : bool -> unit
-    method set_item_string : GList.list_item -> string -> unit
-    method set_popdown_strings : string list -> unit
-    method set_use_arrows : [`NEVER|`DEFAULT|`ALWAYS] -> unit
-    method set_value_in_list :
-      ?required:bool -> ?ok_if_empty:bool -> unit -> unit
-  end
-val combo :
-  ?popdown_strings:string list ->
-  ?use_arrows:[`NEVER|`DEFAULT|`ALWAYS] ->
-  ?case_sensitive:bool ->
-  ?value_in_list:bool ->
-  ?ok_if_empty:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> combo
-
-class text : Gtk.text obj ->
-  object
-    inherit editable
-    val obj : Gtk.text obj
-    method event : event_ops
-    method freeze : unit -> unit
-    method hadjustment : GData.adjustment
-    method insert :
-      ?font:Gdk.font ->
-      ?foreground:GDraw.color -> ?background:GDraw.color -> string -> unit
-    method length : int
-    method point : int
-    method set_hadjustment : GData.adjustment -> unit
-    method set_point : int -> unit
-    method set_vadjustment : GData.adjustment -> unit
-    method set_word_wrap : bool -> unit
-    method set_line_wrap : bool -> unit
-    method thaw : unit -> unit
-    method vadjustment : GData.adjustment
-  end
-val text :
-  ?hadjustment:GData.adjustment ->
-  ?vadjustment:GData.adjustment ->
-  ?editable:bool ->
-  ?word_wrap:bool ->
-  ?line_wrap:bool ->
-  ?width:int ->
-  ?height:int -> ?packing:(widget -> unit) -> ?show:bool -> unit -> text

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gHtml.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gHtml.ml
deleted file mode 100644 (file)
index 1150790..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gHtml.ml
+++ /dev/null
@@ -1,33 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GObj
-open GtkXmHTML
-
-class xmhtml obj = object (self)
-  inherit widget_full (obj : GtkXmHTML.xmhtml obj)
-  method event = new GObj.event_ops obj
-  method freeze = freeze obj
-  method thaw = thaw obj
-  method source = source obj
-  method set_fonts = set_font_familty obj
-  method set_fonts_fixed = set_font_familty_fixed obj
-  method set_anchor_buttons = set_anchor_buttons obj
-  method set_anchor_cursor = set_anchor_cursor obj
-  method set_anchor_underline = set_anchor_underline_type obj
-  method set_anchor_visited_underline = set_anchor_visited_underline_type obj
-  method set_anchor_target_underline = set_anchor_target_underline_type obj
-  method set_topline = set_topline obj
-  method topline = get_topline obj
-  method set_strict_checking = set_strict_checking obj
-  method set_bad_html_warnings = set_bad_html_warnings obj
-  method set_imagemap_draw = set_imagemap_draw obj
-end
-
-let xmhtml ?source ?border_width ?width ?height ?packing ?show () =
-  let w = create () in
-  Container.set w ?border_width ?width ?height;
-  may source ~f:(GtkXmHTML.source w);
-  pack_return (new xmhtml w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gList.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gList.ml
deleted file mode 100644 (file)
index 3b1abe4..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gList.ml
+++ /dev/null
@@ -1,162 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkList
-open GObj
-open GContainer
-
-class list_item obj = object
-  inherit container (obj : Gtk.list_item obj)
-  method event = new GObj.event_ops obj
-  method as_item = obj
-  method select () = Item.select obj
-  method deselect () = Item.deselect obj
-  method toggle () = Item.toggle obj
-  method connect = new item_signals obj
-end
-
-let list_item ?label ?border_width ?width ?height ?packing ?(show=true) () =
-  let w = ListItem.create ?label () in
-  Container.set w ?border_width ?width ?height;
-  let item = new list_item w in
-  may packing ~f:(fun f -> (f item : unit));
-  if show then item#misc#show ();
-  item
-
-class liste obj = object
-  inherit [list_item] item_container (obj : Gtk.liste obj)
-  method private wrap w = new list_item (ListItem.cast w)
-  method insert w = Liste.insert_item obj w#as_item
-  method clear_items = Liste.clear_items obj
-  method select_item = Liste.select_item obj
-  method unselect_item = Liste.unselect_item obj
-  method child_position (w : list_item) = Liste.child_position obj w#as_item
-end
-
-let liste ?selection_mode ?border_width ?width ?height
-    ?packing ?show () =
-  let w = Liste.create () in
-  may selection_mode ~f:(Liste.set_selection_mode w);
-  Container.set w ?border_width ?width ?height;
-  pack_return (new liste w) ~packing ~show
-
-(* Cell lists *)
-
-class clist_signals obj = object
-  inherit container_signals obj
-  method click_column =
-    GtkSignal.connect ~sgn:CList.Signals.click_column obj ~after
-  method select_row =
-    GtkSignal.connect ~sgn:CList.Signals.select_row obj ~after
-  method unselect_row =
-    GtkSignal.connect ~sgn:CList.Signals.unselect_row obj ~after
-  method scroll_vertical =
-    GtkSignal.connect ~sgn:CList.Signals.scroll_vertical obj ~after
-  method scroll_horizontal =
-    GtkSignal.connect ~sgn:CList.Signals.scroll_horizontal obj ~after
-end
-
-class ['a] clist obj = object (self)
-  inherit widget (obj : Gtk.clist obj)
-  method set_border_width = Container.set_border_width obj
-  method event = new GObj.event_ops obj
-  method connect = new clist_signals obj
-  method rows = CList.get_rows obj
-  method columns = CList.get_columns obj
-  method focus_row = CList.get_focus_row obj
-  method hadjustment = new GData.adjustment (CList.get_hadjustment obj)
-  method vadjustment = new GData.adjustment (CList.get_vadjustment obj)
-  method set_button_actions = CList.set_button_actions obj
-  method freeze () = CList.freeze obj
-  method thaw () = CList.thaw obj
-  method column_title = CList.get_column_title obj
-  method column_widget col =
-    new widget (CList.get_column_widget obj col)
-  method columns_autosize () = CList.columns_autosize obj
-  method optimal_column_width = CList.optimal_column_width obj
-  method moveto ?(row_align=0.) ?(col_align=0.) row col =
-    CList.moveto obj row col ~row_align ~col_align
-  method row_is_visible = CList.row_is_visible obj
-  method cell_type = CList.get_cell_type obj
-  method cell_text = CList.get_text obj
-  method cell_pixmap row col =
-    let pm, mask = CList.get_pixmap obj row col in
-    may_map pm ~f:(fun x -> new GDraw.pixmap ?mask x)
-  method cell_style  row col =
-    try Some (new style (CList.get_cell_style obj row col))
-    with Gpointer.Null -> None
-  method row_selectable row = CList.get_selectable obj ~row
-  method row_style row =
-    try Some (new style (CList.get_row_style obj ~row))
-    with Gpointer.Null -> None
-  method set_shift = CList.set_shift obj
-  method insert ~row texts =
-    let texts = List.map texts ~f:(fun x -> Some x) in
-    CList.insert obj ~row texts
-  method append = self#insert ~row:self#rows
-  method prepend = self#insert ~row:0
-  method remove = CList.remove obj
-  method select = CList.select obj
-  method unselect = CList.unselect obj
-  method clear () = CList.clear obj
-  method get_row_column = CList.get_row_column obj
-  method select_all () = CList.select_all obj
-  method unselect_all () = CList.unselect_all obj
-  method swap_rows = CList.swap_rows obj
-  method row_move = CList.row_move obj
-  method sort () = CList.sort obj
-  method set_hadjustment adj =
-    CList.set_hadjustment obj (GData.as_adjustment adj)
-  method set_vadjustment adj =
-    CList.set_vadjustment obj (GData.as_adjustment adj)
-  method set_shadow_type = CList.set_shadow_type obj
-  method set_button_actions = CList.set_button_actions obj
-  method set_selection_mode = CList.set_selection_mode obj
-  method set_reorderable = CList.set_reorderable obj
-  method set_use_drag_icons = CList.set_use_drag_icons obj
-  method set_row_height = CList.set_row_height obj
-  method set_titles_show = CList.set_titles_show obj
-  method set_titles_active = CList.set_titles_active obj
-  method set_sort = CList.set_sort obj
-  method set_column ?widget =
-    CList.set_column obj ?widget:(may_map widget ~f:as_widget)
-  method set_row ?foreground ?background ?selectable ?style =
-    let color = may_map ~f:(fun c -> Gpointer.optboxed (GDraw.optcolor c))
-    and style = may_map ~f:(fun (st : style) -> st#as_style) style in
-    CList.set_row obj
-      ?foreground:(color foreground) ?background:(color background)
-      ?selectable ?style
-  method set_cell ?text ?pixmap ?spacing ?style =
-    let pixmap, mask =
-      match pixmap with None -> None, None
-      | Some (pm : GDraw.pixmap) -> Some pm#pixmap, pm#mask
-    and style = may_map ~f:(fun (st : style) -> st#as_style) style in
-    CList.set_cell obj ?text ?pixmap ?mask ?spacing ?style
-  method set_row_data n ~data =
-    CList.set_row_data obj ~row:n (Obj.repr (data : 'a))
-  method get_row_data n : 'a = Obj.obj (CList.get_row_data obj ~row:n)
-  method scroll_vertical =
-    CList.Signals.emit_scroll obj ~sgn:CList.Signals.scroll_vertical
-  method scroll_horizontal =
-    CList.Signals.emit_scroll obj ~sgn:CList.Signals.scroll_horizontal
-end
-
-let clist ?(columns=1) ?titles ?hadjustment ?vadjustment
-    ?shadow_type ?button_actions ?selection_mode
-    ?reorderable ?use_drag_icons ?row_height
-    ?titles_show ?titles_active ?auto_sort ?sort_column ?sort_type
-    ?border_width ?width ?height ?packing ?show () =
-  let w =
-    match titles with None -> CList.create ~cols:columns
-    | Some titles -> CList.create_with_titles (Array.of_list titles)
-  in
-  CList.set w 
-    ?hadjustment:(may_map ~f:GData.as_adjustment hadjustment)
-    ?vadjustment:(may_map ~f:GData.as_adjustment vadjustment)
-    ?shadow_type ?button_actions ?selection_mode ?reorderable
-    ?use_drag_icons ?row_height ?titles_show ?titles_active;
-  CList.set_sort w ?auto:auto_sort ?column:sort_column ?dir:sort_type ();
-  Container.set w ?border_width ?width ?height;
-  pack_return (new clist w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gList.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gList.mli
deleted file mode 100644 (file)
index 17f4cef..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gList.mli
+++ /dev/null
@@ -1,158 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GContainer
-
-class list_item : Gtk.list_item obj ->
-  object
-    inherit container
-    val obj : Gtk.list_item obj
-    method event : event_ops
-    method as_item : Gtk.list_item obj
-    method connect : item_signals
-    method deselect : unit -> unit
-    method select : unit -> unit
-    method toggle : unit -> unit
-  end
-val list_item :
-  ?label:string ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(list_item -> unit) -> ?show:bool -> unit -> list_item
-
-class liste : Gtk.liste obj ->
-  object
-    inherit [list_item] item_container
-    val obj : Gtk.liste obj
-    method child_position : list_item -> int
-    method clear_items : start:int -> stop:int -> unit
-    method insert : list_item -> pos:int -> unit
-    method select_item : pos:int -> unit
-    method unselect_item : pos:int -> unit
-    method private wrap : Gtk.widget obj -> list_item
-  end
-val liste :
-  ?selection_mode:Tags.selection_mode ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> liste
-
-class clist_signals : 'a obj ->
-  object
-    inherit container_signals
-    constraint 'a = [>`clist|`container|`widget]
-    val obj : 'a obj
-    method click_column : callback:(int -> unit) -> GtkSignal.id
-    method select_row :
-      callback:(row:int ->
-                column:int -> event:GdkEvent.Button.t option -> unit) ->
-      GtkSignal.id
-    method unselect_row :
-      callback:(row:int ->
-                column:int -> event:GdkEvent.Button.t option -> unit) ->
-      GtkSignal.id
-    method scroll_horizontal :
-      callback:(Tags.scroll_type -> pos:clampf -> unit) -> GtkSignal.id
-    method scroll_vertical :
-      callback:(Tags.scroll_type -> pos:clampf -> unit) -> GtkSignal.id
-  end
-
-class ['a] clist : Gtk.clist obj ->
-  object
-    inherit widget
-    val obj : Gtk.clist obj
-    method event : event_ops
-    method append : string list -> int
-    method cell_pixmap : int -> int -> GDraw.pixmap option
-    method cell_style : int -> int -> style option
-    method cell_text : int -> int -> string
-    method cell_type : int -> int -> Tags.cell_type
-    method clear : unit -> unit
-    method column_title : int -> string
-    method column_widget : int -> widget
-    method columns : int
-    method columns_autosize : unit -> unit
-    method connect : clist_signals
-    method focus_row : int
-    method freeze : unit -> unit
-    method get_row_column : x:int -> y:int -> int * int
-    method get_row_data : int -> 'a
-    method hadjustment : GData.adjustment
-    method insert : row:int -> string list -> int
-    method moveto :
-      ?row_align:clampf -> ?col_align:clampf -> int -> int -> unit
-    method optimal_column_width : int -> int
-    method prepend : string list -> int
-    method remove : row:int -> unit
-    method row_is_visible : int -> Tags.visibility
-    method row_move : int -> dst:int -> unit
-    method row_selectable : int -> bool
-    method row_style : int -> style option
-    method rows : int
-    method scroll_vertical : Tags.scroll_type -> pos:clampf -> unit
-    method scroll_horizontal : Tags.scroll_type -> pos:clampf -> unit
-    method select : int -> int -> unit
-    method select_all : unit -> unit
-    method set_border_width : int -> unit
-    method set_button_actions : int -> Tags.button_action list -> unit
-    method set_cell :
-      ?text:string ->
-      ?pixmap:GDraw.pixmap ->
-      ?spacing:int -> ?style:style -> int -> int -> unit
-    method set_column :
-      ?widget:widget ->
-      ?title:string ->
-      ?title_active:bool ->
-      ?justification:Tags.justification ->
-      ?visibility:bool ->
-      ?resizeable:bool ->
-      ?auto_resize:bool ->
-      ?width:int -> ?min_width:int -> ?max_width:int -> int -> unit
-    method set_hadjustment : GData.adjustment -> unit
-    method set_reorderable : bool -> unit
-    method set_row :
-      ?foreground:GDraw.optcolor ->
-      ?background:GDraw.optcolor ->
-      ?selectable:bool ->
-      ?style:style -> int -> unit
-    method set_row_data : int -> data:'a -> unit
-    method set_row_height : int -> unit
-    method set_selection_mode : Tags.selection_mode -> unit
-    method set_shadow_type : Tags.shadow_type -> unit
-    method set_shift : int -> int -> vertical:int -> horizontal:int -> unit
-    method set_sort :
-      ?auto:bool -> ?column:int -> ?dir:Tags.sort_type -> unit -> unit
-    method set_titles_active : bool -> unit
-    method set_titles_show : bool -> unit
-    method set_use_drag_icons : bool -> unit
-    method set_vadjustment : GData.adjustment -> unit
-    method sort : unit -> unit
-    method swap_rows : int -> int -> unit
-    method thaw : unit -> unit
-    method unselect : int -> int -> unit
-    method unselect_all : unit -> unit
-    method vadjustment : GData.adjustment
-  end
-val clist :
-  ?columns:int ->
-  ?titles:string list ->
-  ?hadjustment:GData.adjustment ->
-  ?vadjustment:GData.adjustment ->
-  ?shadow_type:Tags.shadow_type ->
-  ?button_actions:(int * Tags.button_action list) list ->
-  ?selection_mode:Tags.selection_mode ->
-  ?reorderable:bool ->
-  ?use_drag_icons:bool ->
-  ?row_height:int ->
-  ?titles_show:bool ->
-  ?titles_active:bool ->
-  ?auto_sort:bool ->
-  ?sort_column:int ->
-  ?sort_type:Tags.sort_type ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> 'a clist

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gMain.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gMain.ml
deleted file mode 100644 (file)
index 811f490..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gMain.ml
+++ /dev/null
@@ -1,26 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GtkMain
-open GObj
-
-module Main : sig
-  val init : unit -> string (* returns the locale name *)
-  val main : unit -> unit
-  val quit : unit -> unit
-  val version : int * int * int
-  val flush : unit -> unit
-end = Main
-
-module Grab = struct
-  open Grab
-  let add (w : #widget) = add w#as_widget
-  let remove (w : #widget) = remove w#as_widget
-  let get_current () = new widget (get_current ())
-end
-
-module Timeout : sig
-  type id
-  val add : ms:int -> callback:(unit -> bool) -> id
-  val remove : id -> unit
-end = Timeout

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gMenu.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gMenu.ml
deleted file mode 100644 (file)
index 52f05a4..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gMenu.ml
+++ /dev/null
@@ -1,199 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkData
-open GtkBase
-open GtkMenu
-open GObj
-open GContainer
-
-(* Menu type *)
-
-class menu_shell_signals obj = object
-  inherit container_signals obj
-  method deactivate =
-    GtkSignal.connect ~sgn:MenuShell.Signals.deactivate obj ~after
-end
-
-class type virtual ['a] pre_menu = object
-  inherit ['a] item_container
-  method as_menu : Gtk.menu Gtk.obj
-  method deactivate : unit -> unit
-  method connect : menu_shell_signals
-  method event : event_ops
-  method popup : button:int -> time:int -> unit
-  method popdown : unit -> unit
-  method set_accel_group : accel_group -> unit
-end
-
-(* Menu items *)
-
-class menu_item_signals obj = object
-  inherit item_signals obj
-  method activate = GtkSignal.connect ~sgn:MenuItem.Signals.activate obj
-end
-
-
-class ['a] pre_menu_item_skel obj = object
-  inherit container obj
-  method as_item = MenuItem.coerce obj
-  method set_submenu (w : 'a pre_menu) = MenuItem.set_submenu obj w#as_menu
-  method remove_submenu () = MenuItem.remove_submenu obj
-  method configure = MenuItem.configure obj
-  method activate () = MenuItem.activate obj
-  method right_justify () = MenuItem.right_justify obj
-  method add_accelerator ~group ?modi:m ?flags key=
-    Widget.add_accelerator obj ~sgn:MenuItem.Signals.activate group ?flags
-      ?modi:m ~key
-end
-
-class menu_item obj = object
-  inherit [menu_item] pre_menu_item_skel obj
-  method connect = new menu_item_signals obj
-  method event = new GObj.event_ops obj
-end
-
-class menu_item_skel = [menu_item] pre_menu_item_skel
-
-let pack_item self ~packing ~show =
-  may packing ~f:(fun f -> (f (self :> menu_item) : unit));
-  if show <> Some false then self#misc#show ();
-  self
-
-let menu_item ?label ?border_width ?width ?height ?packing ?show () =
-  let w = MenuItem.create ?label () in
-  Container.set w ?border_width ?width ?height;
-  pack_item (new menu_item w) ?packing ?show
-
-let tearoff_item ?border_width ?width ?height ?packing ?show () =
-  let w = MenuItem.tearoff_create () in
-  Container.set w ?border_width ?width ?height;
-  pack_item (new menu_item w) ?packing ?show
-
-class check_menu_item_signals obj = object
-  inherit menu_item_signals obj
-  method toggled =
-    GtkSignal.connect ~sgn:CheckMenuItem.Signals.toggled obj ~after
-end
-
-class check_menu_item obj = object
-  inherit menu_item_skel obj
-  method set_active = CheckMenuItem.set_active obj
-  method set_show_toggle = CheckMenuItem.set_show_toggle obj
-  method active = CheckMenuItem.get_active obj
-  method toggled () = CheckMenuItem.toggled obj
-  method connect = new check_menu_item_signals obj
-  method event = new GObj.event_ops obj
-end
-
-let check_menu_item ?label ?active ?show_toggle
-    ?border_width ?width ?height ?packing ?show () =
-  let w = CheckMenuItem.create ?label () in
-  CheckMenuItem.set w ?active ?show_toggle;
-  Container.set w ?border_width ?width ?height;
-  pack_item (new check_menu_item w) ?packing ?show
-
-class radio_menu_item obj = object
-  inherit check_menu_item (obj : Gtk.radio_menu_item obj)
-  method group = Some obj
-  method set_group = RadioMenuItem.set_group obj
-end
-
-let radio_menu_item ?group ?label ?active ?show_toggle
-    ?border_width ?width ?height ?packing ?show () =
-  let w = RadioMenuItem.create ?group ?label () in
-  CheckMenuItem.set w ?active ?show_toggle;
-  Container.set w ?border_width ?width ?height;
-  pack_item (new radio_menu_item w) ?packing ?show
-
-(* Menus *)
-
-class menu_shell obj = object
-  inherit [menu_item] item_container obj
-  method private wrap w = new menu_item (MenuItem.cast w)
-  method insert w = MenuShell.insert obj w#as_item
-  method deactivate () = MenuShell.deactivate obj
-  method connect = new menu_shell_signals obj
-  method event = new GObj.event_ops obj
-end
-
-class menu obj = object
-  inherit menu_shell obj
-  method popup = Menu.popup obj
-  method popdown () = Menu.popdown obj
-  method as_menu : Gtk.menu obj = obj
-  method set_accel_group = Menu.set_accel_group obj
-end
-
-let menu ?border_width ?packing ?show () =
-  let w = Menu.create () in
-  may border_width ~f:(Container.set_border_width w);
-  let self = new menu w in
-  may packing ~f:(fun f -> (f (self :> menu) : unit));
-  if show <> Some false then self#misc#show ();
-  self
-
-(* Option Menu (GtkButton?) *)
-
-class option_menu obj = object
-  inherit GButton.button_skel obj
-  method connect = new GButton.button_signals obj
-  method event = new GObj.event_ops obj
-  method set_menu (menu : menu) = OptionMenu.set_menu obj menu#as_menu
-  method get_menu = new menu (OptionMenu.get_menu obj)
-  method remove_menu () = OptionMenu.remove_menu obj
-  method set_history = OptionMenu.set_history obj
-end
-
-let option_menu ?border_width ?width ?height ?packing ?show () =
-  let w = OptionMenu.create () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new option_menu w) ~packing ~show
-
-(* Menu Bar *)
-
-let menu_bar ?border_width ?width ?height ?packing ?show () =
-  let w = MenuBar.create () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new menu_shell w) ~packing ~show
-
-(* Menu Factory *)
-
-class ['a] factory
-    ?(accel_group=AccelGroup.create ())
-    ?(accel_modi=[`CONTROL])
-    ?(accel_flags=[`VISIBLE]) (menu_shell : 'a) =
-  object (self)
-    val menu_shell : #menu_shell = menu_shell
-    val group = accel_group
-    val m = accel_modi
-    val flags = accel_flags
-    method menu = menu_shell
-    method accel_group = group
-    method private bind ?key ?callback (item : menu_item) =
-      menu_shell#append item;
-      may key ~f:(item#add_accelerator ~group ~modi:m ~flags);
-      may callback ~f:(fun callback -> item#connect#activate ~callback)
-    method add_item ?key ?callback ?submenu label =
-      let item = menu_item ~label () in
-      self#bind item ?key ?callback;
-      may (submenu : menu option) ~f:item#set_submenu;
-      item
-    method add_check_item ?active ?key ?callback label =
-      let item = check_menu_item ~label ?active () in
-      self#bind (item :> menu_item) ?key
-       ?callback:(may_map callback ~f:(fun f () -> f item#active));
-      item
-    method add_radio_item ?group ?active ?key ?callback label =
-      let item = radio_menu_item ~label ?group ?active () in
-      self#bind (item :> menu_item) ?key
-       ?callback:(may_map callback ~f:(fun f () -> f item#active));
-      item
-    method add_separator () = menu_item ~packing:menu_shell#append ()
-    method add_submenu ?key label =
-      let item = menu_item ~label () in
-      self#bind item ?key;
-      menu ~packing:item#set_submenu ();
-    method add_tearoff () = tearoff_item ~packing:menu_shell#append ()
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gMenu.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gMenu.mli
deleted file mode 100644 (file)
index 505249b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gMenu.mli
+++ /dev/null
@@ -1,196 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GContainer
-
-class menu_shell_signals : 'b obj ->
-  object ('a)
-    inherit container_signals
-    constraint 'b = [>`menushell|`container|`widget]
-    val obj : 'b obj
-    method deactivate : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class menu_item_signals : 'b obj ->
-  object ('a)
-    inherit item_signals
-    constraint 'b = [>`menuitem|`container|`item|`widget]
-    val obj : 'b obj
-    method activate : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class menu_item_skel :
-  'a obj ->
-  object
-    inherit container
-    constraint 'a = [>`widget|`container|`menuitem]
-    val obj : 'a obj
-    method activate : unit -> unit
-    method add_accelerator :
-      group:accel_group ->
-      ?modi:Gdk.Tags.modifier list ->
-      ?flags:Tags.accel_flag list -> Gdk.keysym -> unit
-    method as_item : Gtk.menu_item obj
-    method configure : show_toggle:bool -> show_indicator:bool -> unit
-    method remove_submenu : unit -> unit
-    method right_justify : unit -> unit
-    method set_submenu : menu -> unit
-  end
-and menu_item : 'a obj ->
-  object
-    inherit menu_item_skel
-    constraint 'a = [>`widget|`container|`item|`menuitem]
-    val obj : 'a obj
-    method event : event_ops
-    method connect : menu_item_signals
-  end
-and menu : Gtk.menu obj ->
-  object
-    inherit [menu_item] item_container
-    val obj : Gtk.menu obj
-    method add : menu_item -> unit
-    method event : event_ops
-    method append : menu_item -> unit
-    method as_menu : Gtk.menu obj
-    method children : menu_item list
-    method connect : menu_shell_signals
-    method deactivate : unit -> unit
-    method insert : menu_item -> pos:int -> unit
-    method popdown : unit -> unit
-    method popup : button:int -> time:int -> unit
-    method prepend : menu_item -> unit
-    method remove : menu_item -> unit
-    method set_accel_group : accel_group -> unit
-    method set_border_width : int -> unit
-    method private wrap : Gtk.widget obj -> menu_item
-  end
-
-val menu :
-  ?border_width:int -> ?packing:(menu -> unit) -> ?show:bool -> unit -> menu
-val menu_item :
-  ?label:string ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(menu_item -> unit) -> ?show:bool -> unit -> menu_item
-val tearoff_item :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(menu_item -> unit) -> ?show:bool -> unit -> menu_item
-
-class check_menu_item_signals : 'a obj ->
-  object
-    inherit menu_item_signals
-    constraint 'a = [>`checkmenuitem|`container|`item|`menuitem|`widget]
-    val obj : 'a obj
-    method toggled : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class check_menu_item : 'a obj ->
-  object
-    inherit menu_item_skel
-    constraint 'a = [>`widget|`checkmenuitem|`container|`item|`menuitem]
-    val obj : 'a obj
-    method active : bool
-    method event : event_ops
-    method connect : check_menu_item_signals
-    method set_active : bool -> unit
-    method set_show_toggle : bool -> unit
-    method toggled : unit -> unit
-  end
-val check_menu_item :
-  ?label:string ->
-  ?active:bool ->
-  ?show_toggle:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(menu_item -> unit) -> ?show:bool -> unit -> check_menu_item
-
-class radio_menu_item : Gtk.radio_menu_item obj ->
-  object
-    inherit check_menu_item
-    val obj : Gtk.radio_menu_item obj
-    method group : Gtk.radio_menu_item group
-    method set_group : Gtk.radio_menu_item group -> unit
-  end
-val radio_menu_item :
-  ?group:Gtk.radio_menu_item group ->
-  ?label:string ->
-  ?active:bool ->
-  ?show_toggle:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(menu_item -> unit) -> ?show:bool -> unit -> radio_menu_item
-
-class menu_shell : 'a obj ->
-  object
-    inherit [menu_item] item_container
-    constraint 'a = [>`widget|`container|`menushell]
-    val obj : 'a obj
-    method event : event_ops
-    method deactivate : unit -> unit
-    method connect : menu_shell_signals
-    method insert : menu_item -> pos:int -> unit
-    method private wrap : Gtk.widget obj -> menu_item
-  end
-
-val menu_bar :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(GObj.widget -> unit) -> ?show:bool -> unit -> menu_shell
-
-class option_menu : 'a obj ->
-  object
-    inherit GButton.button_skel
-    constraint 'a = [>`optionmenu|`button|`container|`widget]
-    val obj : 'a obj
-    method event : event_ops
-    method connect : GButton.button_signals
-    method get_menu : menu
-    method remove_menu : unit -> unit
-    method set_history : int -> unit
-    method set_menu : menu -> unit
-  end
-val option_menu :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(GObj.widget -> unit) -> ?show:bool -> unit -> option_menu
-
-class ['a] factory :
-  ?accel_group:accel_group ->
-  ?accel_modi:Gdk.Tags.modifier list ->
-  ?accel_flags:Tags.accel_flag list ->
-  'a ->
-  object
-    constraint 'a = #menu_shell
-    val flags : Tags.accel_flag list
-    val group : accel_group
-    val m : Gdk.Tags.modifier list
-    val menu_shell : 'a
-    method accel_group : accel_group
-    method add_check_item :
-      ?active:bool ->
-      ?key:Gdk.keysym ->
-      ?callback:(bool -> unit) -> string -> check_menu_item
-    method add_item :
-      ?key:Gdk.keysym ->
-      ?callback:(unit -> unit) ->
-      ?submenu:menu -> string -> menu_item
-    method add_radio_item :
-      ?group:Gtk.radio_menu_item group ->
-      ?active:bool ->
-      ?key:Gdk.keysym ->
-      ?callback:(bool -> unit) -> string -> radio_menu_item
-    method add_separator : unit -> menu_item
-    method add_submenu : ?key:Gdk.keysym -> string -> menu
-    method add_tearoff : unit -> menu_item
-    method private bind :
-      ?key:Gdk.keysym -> ?callback:(unit -> unit) -> menu_item -> unit
-    method menu : 'a
-  end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gMisc.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gMisc.ml
deleted file mode 100644 (file)
index 13fd7b4..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gMisc.ml
+++ /dev/null
@@ -1,217 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkMisc
-open GObj
-
-let separator dir ?(width = -2) ?(height = -2) ?packing ?show () =
-  let w = Separator.create dir in
-  if width <> -2 || height <> -2 then Widget.set_usize w ~width ~height;
-  pack_return (new widget_full w) ~packing ~show
-
-class statusbar_context obj ctx = object (self)
-  val obj : statusbar obj = obj
-  val context : Gtk.statusbar_context = ctx
-  method context = context
-  method push text = Statusbar.push obj context ~text
-  method pop () = Statusbar.pop obj context
-  method remove = Statusbar.remove obj context
-  method flash ?(delay=1000) text =
-    let msg = self#push text in
-    GtkMain.Timeout.add ~ms:delay ~callback:(fun () -> self#remove msg; false);
-    ()
-end
-
-class statusbar obj = object
-  inherit GContainer.container_full (obj : Gtk.statusbar obj)
-  method new_context ~name =
-    new statusbar_context obj (Statusbar.get_context obj name)
-end
-
-let statusbar ?border_width ?width ?height ?packing ?show () =
-  let w = Statusbar.create () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new statusbar w) ~packing ~show
-
-class calendar_signals obj = object
-  inherit widget_signals obj
-  method month_changed =
-    GtkSignal.connect obj ~sgn:Calendar.Signals.month_changed ~after
-  method day_selected =
-    GtkSignal.connect obj ~sgn:Calendar.Signals.day_selected ~after
-  method day_selected_double_click =
-    GtkSignal.connect obj
-      ~sgn:Calendar.Signals.day_selected_double_click ~after
-  method prev_month =
-    GtkSignal.connect obj ~sgn:Calendar.Signals.prev_month ~after
-  method next_month =
-    GtkSignal.connect obj ~sgn:Calendar.Signals.next_month ~after
-  method prev_year =
-    GtkSignal.connect obj ~sgn:Calendar.Signals.prev_year ~after
-  method next_year =
-    GtkSignal.connect obj ~sgn:Calendar.Signals.next_year ~after
-end
-
-class calendar obj = object
-  inherit widget (obj : Gtk.calendar obj)
-  method event = new GObj.event_ops obj
-  method connect = new calendar_signals obj
-  method select_month = Calendar.select_month obj
-  method select_day = Calendar.select_day obj
-  method mark_day = Calendar.mark_day obj
-  method unmark_day = Calendar.unmark_day obj
-  method clear_marks = Calendar.clear_marks obj
-  method display_options = Calendar.display_options obj
-  method date = Calendar.get_date obj
-  method freeze () = Calendar.freeze obj
-  method thaw () = Calendar.thaw obj
-end
-
-let calendar ?options ?(width = -2) ?(height = -2) ?packing ?show () =
-  let w = Calendar.create () in
-  if width <> -2 || height <> -2 then Widget.set_usize w ~width ~height;
-  may options ~f:(Calendar.display_options w);
-  pack_return (new calendar w) ~packing ~show
-
-class drawing_area obj = object
-  inherit widget_full (obj : Gtk.drawing_area obj)
-  method event = new GObj.event_ops obj
-  method set_size = DrawingArea.size obj
-end
-
-let drawing_area ?(width=0) ?(height=0) ?packing ?show () =
-  let w = DrawingArea.create () in
-  if width <> 0 || height <> 0 then DrawingArea.size w ~width ~height;
-  pack_return (new drawing_area w) ~packing ~show
-
-class misc obj = object
-  inherit widget obj
-  method set_alignment = Misc.set_alignment obj
-  method set_padding = Misc.set_padding obj
-end
-
-class arrow obj = object
-  inherit misc obj
-  method set_arrow kind ~shadow = Arrow.set obj ~kind ~shadow
-end
-
-let arrow ~kind ~shadow
-    ?xalign ?yalign ?xpad ?ypad ?width ?height ?packing ?show () =
-  let w = Arrow.create ~kind ~shadow in
-  Misc.set w ?xalign ?yalign ?xpad ?ypad ?width ?height;
-  pack_return (new arrow w) ~packing ~show
-
-class image obj = object
-  inherit misc obj
-  method set_image ?mask image = Image.set obj image ?mask
-end
-
-let image image ?mask
-    ?xalign ?yalign ?xpad ?ypad ?width ?height ?packing ?show () =
-  let w = Image.create image ?mask in
-  Misc.set w ?xalign ?yalign ?xpad ?ypad ?width ?height;
-  pack_return (new image w) ~packing ~show
-
-class label_skel obj = object
-  inherit misc obj
-  method set_text = Label.set_text obj
-  method set_justify = Label.set_justify obj
-  method set_pattern = Label.set_pattern obj
-  method set_line_wrap = Label.set_line_wrap obj
-  method text = Label.get_text obj
-end
-
-class label obj = object
-  inherit label_skel (Label.coerce obj)
-  method connect = new widget_signals obj
-end
-
-let label ?(text="") ?justify ?line_wrap ?pattern
-    ?xalign ?yalign ?xpad ?ypad ?width ?height ?packing ?show () =
-  let w = Label.create text in
-  Label.set w ?justify ?line_wrap ?pattern;
-  Misc.set w ?xalign ?yalign ?xpad ?ypad ?width ?height;
-  pack_return (new label w) ~packing ~show
-
-let label_cast w = new label (Label.cast w#as_widget)
-
-class tips_query_signals obj = object
-  inherit widget_signals obj
-  method widget_entered ~callback = 
-    GtkSignal.connect ~sgn:TipsQuery.Signals.widget_entered obj ~after
-      ~callback:(function None -> callback None
-       | Some w -> callback (Some (new widget w)))
-  method widget_selected ~callback = 
-    GtkSignal.connect ~sgn:TipsQuery.Signals.widget_selected obj ~after
-      ~callback:(function None -> callback None
-       | Some w -> callback (Some (new widget w)))
-end
-
-class tips_query obj = object
-  inherit label_skel (obj : Gtk.tips_query obj)
-  method start () = TipsQuery.start obj
-  method stop () = TipsQuery.stop obj
-  method set_caller (w : widget) = TipsQuery.set_caller obj w#as_widget
-  method set_emit_always = TipsQuery.set_emit_always obj
-  method set_label_inactive inactive = TipsQuery.set_labels obj ~inactive
-  method set_label_no_tip no_tip = TipsQuery.set_labels obj ~no_tip
-  method connect = new tips_query_signals obj
-end
-
-let tips_query ?caller ?emit_always ?label_inactive ?label_no_tip
-    ?xalign ?yalign ?xpad ?ypad ?width ?height ?packing ?show () =
-  let w = TipsQuery.create () in
-  let caller = may_map caller ~f:(fun (w : #widget) -> w#as_widget) in
-  TipsQuery.set w ?caller ?emit_always ?label_inactive ?label_no_tip;
-  Misc.set w ?xalign ?yalign ?xpad ?ypad ?width ?height;
-  pack_return (new tips_query w) ~packing ~show
-
-class color_selection obj = object
-  inherit GObj.widget_full (obj : Gtk.color_selection obj)
-  method set_update_policy = ColorSelection.set_update_policy obj
-  method set_opacity = ColorSelection.set_opacity obj
-  method set_color ~red ~green ~blue ?opacity () =
-    ColorSelection.set_color obj ~red ~green ~blue ?opacity
-  method get_color = ColorSelection.get_color obj
-end
-
-let color_selection ?border_width ?width ?height ?packing ?show () =
-  let w = ColorSelection.create () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new color_selection w) ~packing ~show
-
-class pixmap obj = object
-  inherit misc (obj : Gtk.pixmap obj)
-  method connect = new widget_signals obj
-  method set_pixmap (pm : GDraw.pixmap) =
-    Pixmap.set obj ~pixmap:pm#pixmap ?mask:pm#mask
-  method pixmap =
-    new GDraw.pixmap (Pixmap.pixmap obj)
-      ?mask:(try Some(Pixmap.mask obj) with Gpointer.Null -> None)
-end
-
-let pixmap (pm : #GDraw.pixmap) ?xalign ?yalign ?xpad ?ypad
-    ?(width = -2) ?(height = -2) ?packing ?show () =
-  let w = Pixmap.create pm#pixmap ?mask:pm#mask in
-  Misc.set w ?xalign ?yalign ?xpad ?ypad;
-  if width <> -2 || height <> -2 then Widget.set_usize w ~width ~height;
-  pack_return (new pixmap w) ~packing ~show
-
-class font_selection obj = object
-  inherit widget_full (obj : Gtk.font_selection obj)
-  method notebook = new GPack.notebook obj
-  method event = new event_ops obj
-  method font = FontSelection.get_font obj
-  method font_name = FontSelection.get_font_name obj
-  method set_font_name = FontSelection.set_font_name obj
-  method preview_text = FontSelection.get_preview_text obj
-  method set_preview_text = FontSelection.set_preview_text obj
-  method set_filter = FontSelection.set_filter obj
-end
-
-let font_selection ?border_width ?width ?height ?packing ?show () =
-  let w = FontSelection.create () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new font_selection w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gMisc.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gMisc.mli
deleted file mode 100644 (file)
index 7008369..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gMisc.mli
+++ /dev/null
@@ -1,263 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GContainer
-
-val separator :
-  Tags.orientation ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> widget_full
-
-class statusbar_context :
-  Gtk.statusbar obj -> Gtk.statusbar_context ->
-  object
-    val context : Gtk.statusbar_context
-    val obj : Gtk.statusbar obj
-    method context : Gtk.statusbar_context
-    method flash : ?delay:int -> string -> unit
-    method pop : unit -> unit
-    method push : string -> statusbar_message
-    method remove : statusbar_message -> unit
-  end
-
-class statusbar : Gtk.statusbar obj ->
-  object
-    inherit container_full
-    val obj : Gtk.statusbar obj
-    method new_context : name:string -> statusbar_context
-  end
-val statusbar :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> statusbar
-
-class calendar_signals : 'a obj ->
-  object
-    inherit widget_signals
-    constraint 'a = [>`calendar|`widget]
-    val obj : 'a obj
-    method day_selected : callback:(unit -> unit) -> GtkSignal.id
-    method day_selected_double_click :
-      callback:(unit -> unit) -> GtkSignal.id
-    method month_changed : callback:(unit -> unit) -> GtkSignal.id
-    method next_month : callback:(unit -> unit) -> GtkSignal.id
-    method next_year : callback:(unit -> unit) -> GtkSignal.id
-    method prev_month : callback:(unit -> unit) -> GtkSignal.id
-    method prev_year : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class calendar : Gtk.calendar obj ->
-  object
-    inherit widget
-    val obj : Gtk.calendar obj
-    method event : event_ops
-    method clear_marks : unit
-    method connect : calendar_signals
-    method date : int * int * int
-    method display_options : Tags.calendar_display_options list -> unit
-    method freeze : unit -> unit
-    method mark_day : int -> unit
-    method select_day : int -> unit
-    method select_month : month:int -> year:int -> unit
-    method thaw : unit -> unit
-    method unmark_day : int -> unit
-  end
-val calendar :
-  ?options:Tags.calendar_display_options list ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> calendar
-
-class drawing_area : Gtk.drawing_area obj ->
-  object
-    inherit widget_full
-    val obj : Gtk.drawing_area obj
-    method event : event_ops
-    method set_size : width:int -> height:int -> unit
-  end
-val drawing_area :
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> drawing_area
-
-class misc : 'a obj ->
-  object
-    inherit widget
-    constraint 'a = [>`misc|`widget]
-    val obj : 'a obj
-    method set_alignment : ?x:float -> ?y:float -> unit -> unit
-    method set_padding : ?x:int -> ?y:int -> unit -> unit
-  end
-
-class arrow : 'a obj ->
-  object
-    inherit misc
-    constraint 'a = [>`arrow|`misc|`widget]
-    val obj : 'a obj
-    method set_arrow : Tags.arrow_type -> shadow:Tags.shadow_type -> unit
-  end
-
-val arrow :
-  kind:Tags.arrow_type ->
-  shadow:Tags.shadow_type ->
-  ?xalign:float ->
-  ?yalign:float ->
-  ?xpad:int ->
-  ?ypad:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> arrow
-
-class image : 'a obj ->
-  object
-    inherit misc
-    constraint 'a = [>`image|`misc|`widget]
-    val obj : 'a obj
-    method set_image : ?mask:Gdk.bitmap -> Gdk.image -> unit
-  end
-
-val image :
-  Gdk.image ->
-  ?mask:Gdk.bitmap ->
-  ?xalign:float ->
-  ?yalign:float ->
-  ?xpad:int ->
-  ?ypad:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> image
-
-class label_skel : 'a obj ->
-  object
-    inherit misc
-    constraint 'a = [>`label|`misc|`widget]
-    val obj : 'a obj
-    method set_justify : Tags.justification -> unit
-    method set_line_wrap : bool -> unit
-    method set_pattern : string -> unit
-    method set_text : string -> unit
-    method text : string
-  end
-
-class label : [>`label] obj ->
-  object
-    inherit label_skel
-    val obj : Gtk.label obj
-    method connect : widget_signals
-  end
-val label :
-  ?text:string ->
-  ?justify:Tags.justification ->
-  ?line_wrap:bool ->
-  ?pattern:string ->
-  ?xalign:float ->
-  ?yalign:float ->
-  ?xpad:int ->
-  ?ypad:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> label
-val label_cast : < as_widget : 'a obj ; .. > -> label
-
-class tips_query_signals : 'a obj ->
-  object
-    inherit widget_signals
-    constraint 'a = [>`tipsquery|`widget]
-    val obj : 'a obj
-    method widget_entered :
-      callback:(widget option ->
-                text:string option -> privat:string option -> unit) ->
-      GtkSignal.id
-    method widget_selected :
-      callback:(widget option -> text:string option ->
-                privat:string option -> GdkEvent.Button.t option -> bool) ->
-      GtkSignal.id
-  end
-
-class tips_query : Gtk.tips_query obj ->
-  object
-    inherit label_skel
-    val obj : Gtk.tips_query obj
-    method connect : tips_query_signals
-    method set_caller : widget -> unit
-    method set_emit_always : bool -> unit
-    method set_label_inactive : string -> unit
-    method set_label_no_tip : string -> unit
-    method start : unit -> unit
-    method stop : unit -> unit
-  end
-val tips_query :
-  ?caller:#widget ->
-  ?emit_always:bool ->
-  ?label_inactive:string ->
-  ?label_no_tip:string ->
-  ?xalign:float ->
-  ?yalign:float ->
-  ?xpad:int ->
-  ?ypad:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> tips_query
-
-class pixmap : Gtk.pixmap Gtk.obj ->
-  object
-    inherit misc
-    val obj : Gtk.pixmap Gtk.obj
-    method connect : GObj.widget_signals
-    method pixmap : GDraw.pixmap
-    method set_pixmap : GDraw.pixmap -> unit
-  end
-val pixmap :
-  #GDraw.pixmap ->
-  ?xalign:float ->
-  ?yalign:float ->
-  ?xpad:int ->
-  ?ypad:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> pixmap
-
-class color_selection : Gtk.color_selection obj ->
-  object
-    inherit widget_full
-    val obj : Gtk.color_selection obj
-    method get_color : Gtk.color
-    method set_color :
-      red:float -> green:float -> blue:float -> ?opacity:float -> unit -> unit
-    method set_opacity : bool -> unit
-    method set_update_policy : Tags.update_type -> unit
-  end
-val color_selection :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> color_selection
-
-class font_selection : Gtk.font_selection obj ->
-  object
-    inherit widget_full
-    val obj : Gtk.font_selection obj
-    method event : event_ops
-    method notebook : GPack.notebook
-    method font : Gdk.font option
-    method font_name : string option
-    method preview_text : string
-    method set_filter :
-      ?kind:Tags.font_type list ->
-      ?foundry:string list ->
-      ?weight:string list ->
-      ?slant:string list ->
-      ?setwidth:string list ->
-      ?spacing:string list ->
-      ?charset:string list -> Tags.font_filter_type -> unit
-    method set_font_name : string -> unit
-    method set_preview_text : string -> unit
-  end
-val font_selection :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> font_selection

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gObj.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gObj.ml
deleted file mode 100644 (file)
index 5c4819f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gObj.ml
+++ /dev/null
@@ -1,292 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkData
-open GtkBase
-
-(* Object *)
-
-class gtkobj obj = object
-  val obj = obj
-  method destroy () = Object.destroy obj
-  method get_id = Object.get_id obj
-end
-
-class gtkobj_misc obj = object
-  val obj = obj
-  method get_type = Type.name (Object.get_type obj)
-  method disconnect = GtkSignal.disconnect obj
-  method handler_block = GtkSignal.handler_block obj
-  method handler_unblock = GtkSignal.handler_unblock obj
-end
-
-class gtkobj_signals ?(after=false) obj = object
-  val obj = obj
-  val after = after
-  method after = {< after = true >}
-  method destroy = GtkSignal.connect ~sgn:Object.Signals.destroy obj
-end
-
-(* Widget *)
-
-class event_signals ?(after=false) obj = object
-  val obj = Widget.coerce obj
-  val after = after
-  method after = {< after = true >}
-  method any = GtkSignal.connect ~sgn:Widget.Signals.Event.any ~after obj
-  method button_press =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.button_press ~after obj
-  method button_release =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.button_release ~after obj
-  method configure =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.configure ~after obj
-  method delete =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.delete ~after obj
-  method destroy =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.destroy ~after obj
-  method enter_notify =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.enter_notify ~after obj
-  method expose =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.expose ~after obj
-  method focus_in =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.focus_in ~after obj
-  method focus_out =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.focus_out ~after obj
-  method key_press =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.key_press ~after obj
-  method key_release =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.key_release ~after obj
-  method leave_notify =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.leave_notify ~after obj
-  method map = GtkSignal.connect ~sgn:Widget.Signals.Event.map ~after obj
-  method motion_notify =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.motion_notify ~after obj
-  method property_notify =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.property_notify ~after obj
-  method proximity_in =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.proximity_in ~after obj
-  method proximity_out =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.proximity_out ~after obj
-  method selection_clear =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.selection_clear ~after obj
-  method selection_notify =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.selection_notify ~after obj
-  method selection_request =
-    GtkSignal.connect ~sgn:Widget.Signals.Event.selection_request ~after obj
-  method unmap = GtkSignal.connect ~sgn:Widget.Signals.Event.unmap ~after obj
-end
-
-class event_ops obj = object
-  val obj = Widget.coerce obj
-  method add = Widget.add_events obj
-  method connect = new event_signals obj
-  method send : Gdk.Tags.event_type Gdk.event -> bool = Widget.event obj
-  method set_extensions = Widget.set_extension_events obj
-end
-
-class style st = object
-  val style = st
-  method as_style = style
-  method copy = {< style = Style.copy style >}
-  method bg state = Style.get_bg style ~state
-  method colormap = Style.get_colormap style
-  method font = Style.get_font style
-  method set_bg =
-    List.iter ~f:
-      (fun (state,c) -> Style.set_bg style ~state ~color:(GDraw.color c))
-  method set_font = Style.set_font style
-  method set_background = Style.set_background style
-end
-
-class selection_data (sel : Selection.t) = object
-  val sel = sel
-  method selection = Selection.selection sel
-  method target = Selection.target sel
-  method seltype = Selection.seltype sel
-  method format = Selection.format sel
-  method data = Selection.get_data sel
-  method set = Selection.set sel
-end
-
-class drag_signals ?(after=false) obj = object
-  val obj =  Widget.coerce obj
-  val after = after
-  method after = {< after = true >}
-  method beginning ~callback =
-    GtkSignal.connect ~sgn:Widget.Signals.drag_begin ~after obj
-      ~callback:(fun context -> callback (new drag_context context))
-  method ending ~callback =
-    GtkSignal.connect ~sgn:Widget.Signals.drag_end ~after obj
-      ~callback:(fun context -> callback (new drag_context context))
-  method data_delete ~callback =
-    GtkSignal.connect ~sgn:Widget.Signals.drag_data_delete ~after obj
-      ~callback:(fun context -> callback (new drag_context context))
-  method leave ~callback =
-    GtkSignal.connect ~sgn:Widget.Signals.drag_leave ~after obj
-      ~callback:(fun context -> callback (new drag_context context))
-  method motion ~callback =
-    GtkSignal.connect ~sgn:Widget.Signals.drag_motion ~after obj
-      ~callback:(fun context -> callback (new drag_context context))
-  method drop ~callback =
-    GtkSignal.connect ~sgn:Widget.Signals.drag_drop ~after obj
-      ~callback:(fun context -> callback (new drag_context context))
-  method data_get ~callback =
-    GtkSignal.connect ~sgn:Widget.Signals.drag_data_get ~after obj
-      ~callback:(fun context data -> callback (new drag_context context)
-              (new selection_data data))
-  method data_received ~callback =
-    GtkSignal.connect ~sgn:Widget.Signals.drag_data_received ~after obj
-      ~callback:(fun context ~x ~y data -> callback (new drag_context context)
-              ~x ~y (new selection_data data))
-
-end
-
-and drag_ops obj = object
-  val obj = Widget.coerce obj
-  method connect = new drag_signals obj
-  method dest_set ?(flags=[`ALL]) ?(actions=[]) targets =
-    DnD.dest_set obj ~flags ~actions ~targets:(Array.of_list targets)
-  method dest_unset () = DnD.dest_unset obj
-  method get_data ?(time=0) ~context:(context : drag_context) target =
-    DnD.get_data obj (context : < context : Gdk.drag_context; .. >)#context
-      ~target ~time
-  method highlight () = DnD.highlight obj
-  method unhighlight () = DnD.unhighlight obj
-  method source_set ?modi:m ?(actions=[]) targets =
-    DnD.source_set obj ?modi:m ~actions ~targets:(Array.of_list targets)
-  method source_set_icon ?(colormap = Gdk.Color.get_system_colormap ())
-      (pix : GDraw.pixmap) =
-    DnD.source_set_icon obj ~colormap pix#pixmap ?mask:pix#mask
-  method source_unset () = DnD.source_unset obj
-end
-
-and drag_context context = object
-  inherit GDraw.drag_context context
-  method context = context
-  method finish = DnD.finish context
-  method source_widget =
-    new widget (Object.unsafe_cast (DnD.get_source_widget context))
-  method set_icon_widget (w : widget) =
-    DnD.set_icon_widget context (w#as_widget)
-  method set_icon_pixmap ?(colormap = Gdk.Color.get_system_colormap ())
-      (pix : GDraw.pixmap) =
-    DnD.set_icon_pixmap context ~colormap pix#pixmap ?mask:pix#mask
-end
-
-and misc_signals ?after obj = object
-  inherit gtkobj_signals ?after obj
-  method draw ~callback =
-    GtkSignal.connect obj ~sgn:Widget.Signals.draw ~after ~callback:
-      begin fun rect ->
-       callback
-         { x = Gdk.Rectangle.x rect ; y = Gdk.Rectangle.y rect;
-           width = Gdk.Rectangle.width rect;
-           height = Gdk.Rectangle.height rect }
-      end
-  method show = GtkSignal.connect ~sgn:Widget.Signals.show ~after obj
-  method hide = GtkSignal.connect ~sgn:Widget.Signals.hide ~after obj
-  method map = GtkSignal.connect ~sgn:Widget.Signals.map ~after obj
-  method unmap = GtkSignal.connect ~sgn:Widget.Signals.unmap ~after obj
-  method realize = GtkSignal.connect ~sgn:Widget.Signals.realize ~after obj
-  method state_changed =
-    GtkSignal.connect ~sgn:Widget.Signals.state_changed ~after obj
-  method parent_set ~callback =
-    GtkSignal.connect obj ~sgn:Widget.Signals.parent_set ~after ~callback:
-      begin function
-         None   -> callback None
-       | Some w -> callback (Some (new widget (Object.unsafe_cast w)))
-      end
-  method style_set ~callback =
-    GtkSignal.connect obj ~sgn:Widget.Signals.style_set ~after ~callback:
-      (fun opt -> callback (may opt ~f:(new style)))
-end
-
-and misc_ops obj = object
-  inherit gtkobj_misc (Widget.coerce obj)
-  method connect = new misc_signals obj
-  method show () = Widget.show obj
-  method unparent () = Widget.unparent obj
-  method show_all () = Widget.show_all obj
-  method hide () = Widget.hide obj
-  method hide_all () = Widget.hide_all obj
-  method map () = Widget.map obj
-  method unmap () = Widget.unmap obj
-  method realize () = Widget.realize obj
-  method unrealize () = Widget.unrealize obj
-  method draw = Widget.draw obj
-  method activate () = Widget.activate obj
-  method reparent (w : widget) =  Widget.reparent obj w#as_widget
-  method popup = Widget.popup obj
-  method intersect = Widget.intersect obj
-  method grab_focus () = Widget.grab_focus obj
-  method grab_default () = Widget.grab_default obj
-  method is_ancestor (w : widget) = Widget.is_ancestor obj w#as_widget
-  method add_accelerator ~sgn:sg ~group ?modi ?flags key =
-    Widget.add_accelerator obj ~sgn:sg group ~key ?modi ?flags
-  method remove_accelerator ~group ?modi key =
-    Widget.remove_accelerator obj group ~key ?modi
-  method lock_accelerators () = Widget.lock_accelerators obj
-  method set_name = Widget.set_name obj
-  method set_state = Widget.set_state obj
-  method set_sensitive = Widget.set_sensitive obj
-  method set_can_default = Widget.set_can_default obj
-  method set_can_focus = Widget.set_can_focus obj
-  method set_geometry ?(x = -2) ?(y = -2) ?(width = -2) ?(height = -2)  () =
-    if x+y <> -4 then Widget.set_uposition obj ~x ~y;
-    if width+height <> -4 then Widget.set_usize obj ~width ~height
-  method set_style (style : style) = Widget.set_style obj style#as_style
-  (* get functions *)
-  method name = Widget.get_name obj
-  method toplevel =
-    try Some (new widget (Object.unsafe_cast (Widget.get_toplevel obj)))
-    with Gpointer.Null -> None
-  method window = Widget.window obj
-  method colormap = Widget.get_colormap obj
-  method visual = Widget.get_visual obj
-  method visual_depth = Gdk.Window.visual_depth (Widget.get_visual obj)
-  method pointer = Widget.get_pointer obj
-  method style = new style (Widget.get_style obj)
-  method visible = Widget.visible obj
-  method has_focus = Widget.has_focus obj
-  method parent =
-    try Some (new widget (Object.unsafe_cast (Widget.parent obj)))
-    with Gpointer.Null -> None
-  method set_app_paintable = Widget.set_app_paintable obj
-  method allocation = Widget.allocation obj
-end
-
-and widget obj = object (self)
-  inherit gtkobj obj
-  method as_widget = Widget.coerce obj
-  method misc = new misc_ops obj
-  method drag = new drag_ops (Object.unsafe_cast obj)
-  method coerce =
-    (self :> < destroy : _; get_id : _; as_widget : _; misc : _;
-               drag : _; coerce : _ >)
-end
-
-(* just to check that GDraw.misc_ops is compatible with misc_ops *)
-let _ = fun (x : #GDraw.misc_ops) -> (x : misc_ops)
-
-class widget_signals ?after (obj : [> `widget] obj) =
-  gtkobj_signals ?after obj
-
-(*
-class widget_coerce obj = object
-  inherit widget obj
-  method coerce = (self :> widget)
-end
-*)
-
-class widget_full obj = object
-  inherit widget obj
-  method connect = new widget_signals obj
-end
-
-let as_widget (w : widget) = w#as_widget
-
-let pack_return self ~packing ~show =
-  may packing ~f:(fun f -> (f (self :> widget) : unit));
-  if show <> Some false then self#misc#show ();
-  self

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gObj.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gObj.mli
deleted file mode 100644 (file)
index 7c37cf1..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gObj.mli
+++ /dev/null
@@ -1,267 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-
-(* Object *)
-
-class gtkobj :
-  'a obj ->
-  object
-    val obj : 'a obj
-    method destroy : unit -> unit
-    method get_id : int
-  end
-
-class gtkobj_signals :
-  ?after:bool -> 'a obj ->
-  object ('b)
-    val obj : 'a obj
-    val after : bool
-    method after : 'b
-    method destroy : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class gtkobj_misc : 'a obj ->
-  object
-    method get_type : string
-    method disconnect : GtkSignal.id -> unit
-    method handler_block : GtkSignal.id -> unit
-    method handler_unblock : GtkSignal.id -> unit
-  end
-
-(* Widget *)
-
-class event_signals :
-  ?after:bool -> [>`widget] obj ->
-  object ('a)
-    method after : 'a
-    method any :
-       callback:(Gdk.Tags.event_type Gdk.event -> bool) -> GtkSignal.id
-    method button_press : callback:(GdkEvent.Button.t -> bool) -> GtkSignal.id
-    method button_release :
-       callback:(GdkEvent.Button.t -> bool) -> GtkSignal.id
-    method configure : callback:(GdkEvent.Configure.t -> bool) -> GtkSignal.id
-    method delete : callback:([`DELETE] Gdk.event -> bool) -> GtkSignal.id
-    method destroy : callback:([`DESTROY] Gdk.event -> bool) -> GtkSignal.id
-    method enter_notify :
-       callback:(GdkEvent.Crossing.t -> bool) -> GtkSignal.id
-    method expose : callback:(GdkEvent.Expose.t -> bool) -> GtkSignal.id
-    method focus_in : callback:(GdkEvent.Focus.t -> bool) -> GtkSignal.id
-    method focus_out : callback:(GdkEvent.Focus.t -> bool) -> GtkSignal.id
-    method key_press : callback:(GdkEvent.Key.t -> bool) -> GtkSignal.id
-    method key_release : callback:(GdkEvent.Key.t -> bool) -> GtkSignal.id
-    method leave_notify :
-       callback:(GdkEvent.Crossing.t -> bool) -> GtkSignal.id
-    method map : callback:([`MAP] Gdk.event -> bool) -> GtkSignal.id
-    method motion_notify :
-       callback:(GdkEvent.Motion.t -> bool) -> GtkSignal.id
-    method property_notify :
-       callback:(GdkEvent.Property.t -> bool) -> GtkSignal.id
-    method proximity_in :
-       callback:(GdkEvent.Proximity.t -> bool) -> GtkSignal.id
-    method proximity_out :
-       callback:(GdkEvent.Proximity.t -> bool) -> GtkSignal.id
-    method selection_clear :
-       callback:(GdkEvent.Selection.t -> bool) -> GtkSignal.id
-    method selection_notify :
-       callback:(GdkEvent.Selection.t -> bool) -> GtkSignal.id
-    method selection_request :
-       callback:(GdkEvent.Selection.t -> bool) -> GtkSignal.id
-    method unmap : callback:([`UNMAP] Gdk.event -> bool) -> GtkSignal.id
-  end
-
-class event_ops : [>`widget] obj ->
-  object
-    method add : Gdk.Tags.event_mask list -> unit
-    method connect : event_signals
-    method send : Gdk.Tags.event_type Gdk.event -> bool
-    method set_extensions : Gdk.Tags.extension_events -> unit
-  end
-
-class style : Gtk.style ->
-  object ('a)
-    val style : Gtk.style
-    method as_style : Gtk.style
-    method bg : Tags.state_type -> Gdk.Color.t
-    method colormap : Gdk.colormap
-    method copy : 'a
-    method font : Gdk.font
-    method set_background : Gdk.window -> Tags.state_type -> unit
-    method set_bg : (Tags.state_type * GDraw.color) list -> unit
-    method set_font : Gdk.font -> unit
-  end
-
-class selection_data :
-  GtkData.Selection.t ->
-  object
-    val sel : GtkData.Selection.t
-    method data : string       (* May raise Null_pointer *)
-    method format : int
-    method selection : Gdk.atom
-    method seltype : Gdk.atom
-    method target : Gdk.atom
-    method set : typ:Gdk.atom -> format:int -> ?data:string -> unit
-  end
-
-class drag_ops : [>`widget] obj ->
-  object
-    method connect : drag_signals
-    method dest_set :
-      ?flags:Tags.dest_defaults list ->
-      ?actions:Gdk.Tags.drag_action list -> target_entry list -> unit
-    method dest_unset : unit -> unit
-    method get_data : ?time:int -> context:drag_context -> Gdk.atom ->unit
-    method highlight : unit -> unit
-    method source_set :
-      ?modi:Gdk.Tags.modifier list ->
-      ?actions:Gdk.Tags.drag_action list -> target_entry list -> unit
-    method source_set_icon : ?colormap:Gdk.colormap -> GDraw.pixmap -> unit
-    method source_unset : unit -> unit
-    method unhighlight : unit -> unit
-  end
-
-and misc_ops :
-  [>`widget] obj ->
-  object
-    inherit gtkobj_misc
-    val obj : Gtk.widget obj
-    method activate : unit -> bool
-    method add_accelerator :
-      sgn:(Gtk.widget, unit -> unit) GtkSignal.t ->
-      group:accel_group -> ?modi:Gdk.Tags.modifier list ->
-      ?flags:Tags.accel_flag list -> Gdk.keysym -> unit
-    method allocation : rectangle
-    method colormap : Gdk.colormap
-    method connect : misc_signals
-    method draw : Gdk.Rectangle.t option -> unit
-    method grab_default : unit -> unit
-    method grab_focus : unit -> unit
-    method has_focus : bool
-    method hide : unit -> unit
-    method hide_all : unit -> unit
-    method intersect : Gdk.Rectangle.t -> Gdk.Rectangle.t option
-    method is_ancestor : widget -> bool
-    method lock_accelerators : unit -> unit
-    method map : unit -> unit
-    method name : string
-    method parent : widget option
-    method pointer : int * int
-    method popup : x:int -> y:int -> unit
-    method realize : unit -> unit
-    method remove_accelerator :
-      group:accel_group -> ?modi:Gdk.Tags.modifier list -> Gdk.keysym -> unit
-    method reparent : widget -> unit
-    method set_app_paintable : bool -> unit
-    method set_can_default : bool -> unit
-    method set_can_focus : bool -> unit
-    method set_name : string -> unit
-    method set_sensitive : bool -> unit
-    method set_state : Tags.state_type -> unit
-    method set_style : style -> unit
-    method set_geometry :
-      ?x:int -> ?y:int -> ?width:int -> ?height:int -> unit -> unit
-    method show : unit -> unit
-    method show_all : unit -> unit
-    method style : style
-    method toplevel : widget option
-    method unmap : unit -> unit
-    method unparent : unit -> unit
-    method unrealize : unit -> unit
-    method visible : bool
-    method visual : Gdk.visual
-    method visual_depth : int
-    method window : Gdk.window
-  end
-
-and widget :
-  'a obj ->
-  object
-    inherit gtkobj
-    constraint 'a = [>`widget]
-    val obj : 'a obj
-    method as_widget : Gtk.widget obj
-    method coerce : widget
-    method drag : drag_ops
-    method misc : misc_ops
-  end
-
-and misc_signals :
-  ?after:bool -> Gtk.widget obj ->
-  object ('b)
-    inherit gtkobj_signals 
-    val obj : Gtk.widget obj
-    method after : 'b
-    method draw : callback:(Gtk.rectangle -> unit) -> GtkSignal.id
-    method hide : callback:(unit -> unit) -> GtkSignal.id
-    method map : callback:(unit -> unit) -> GtkSignal.id
-    method parent_set : callback:(widget option -> unit) -> GtkSignal.id
-    method realize : callback:(unit -> unit) -> GtkSignal.id
-    method show : callback:(unit -> unit) -> GtkSignal.id
-    method state_changed :
-      callback:(Gtk.Tags.state_type -> unit) -> GtkSignal.id
-    method style_set : callback:(unit -> unit) -> GtkSignal.id
-    method unmap : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-and drag_context :
-  Gdk.drag_context ->
-  object
-    val context : Gdk.drag_context
-    method context : Gdk.drag_context
-    method finish : success:bool -> del:bool -> time:int -> unit
-    method source_widget : widget 
-    method set_icon_pixmap :
-      ?colormap:Gdk.colormap -> GDraw.pixmap -> hot_x:int -> hot_y:int -> unit
-    method set_icon_widget : widget -> hot_x:int -> hot_y:int -> unit
-    method status : ?time:int -> Gdk.Tags.drag_action list -> unit
-    method suggested_action : Gdk.Tags.drag_action
-    method targets : Gdk.atom list
-  end
-
-and drag_signals :
-  ?after:bool -> Gtk.widget obj ->
-  object ('a)
-    method after : 'a
-    method beginning :
-      callback:(drag_context -> unit) -> GtkSignal.id
-    method data_delete :
-      callback:(drag_context -> unit) -> GtkSignal.id
-    method data_get :
-      callback:(drag_context -> selection_data -> info:int -> time:int -> unit)
-      -> GtkSignal.id
-    method data_received :
-      callback:(drag_context -> x:int -> y:int ->
-               selection_data -> info:int -> time:int -> unit) -> GtkSignal.id
-    method drop :
-      callback:(drag_context -> x:int -> y:int -> time:int -> bool) ->
-      GtkSignal.id
-    method ending :
-      callback:(drag_context -> unit) -> GtkSignal.id
-    method leave :
-      callback:(drag_context -> time:int -> unit) -> GtkSignal.id
-    method motion :
-      callback:(drag_context -> x:int -> y:int -> time:int -> bool) ->
-      GtkSignal.id
-  end
-
-class widget_signals : ?after:bool -> 'a obj ->
-  object
-    inherit gtkobj_signals
-    constraint 'a = [>`widget]
-    val obj : 'a obj
-  end
-
-class widget_full : 'a obj ->
-  object
-    inherit widget
-    constraint 'a = [>`widget]
-    val obj : 'a obj
-    method connect : widget_signals
-  end
-
-val as_widget : widget -> Gtk.widget obj
-
-val pack_return :
-    (#widget as 'a) ->
-    packing:(widget -> unit) option -> show:bool option -> 'a
-    (* To use in initializers to provide a ?packing: option *)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gPack.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gPack.ml
deleted file mode 100644 (file)
index 3641349..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gPack.ml
+++ /dev/null
@@ -1,217 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkPack
-open GObj
-open GContainer
-
-class box_skel obj = object
-  inherit container obj
-  method pack ?from:f ?expand ?fill ?padding w =
-    Box.pack obj (as_widget w) ?from:f ?expand ?fill ?padding
-  method set_homogeneous = Box.set_homogeneous obj
-  method set_spacing = Box.set_spacing obj
-  method set_child_packing ?from:f ?expand ?fill ?padding w =
-    Box.set_child_packing obj (as_widget w) ?from:f ?expand ?fill ?padding
-  method reorder_child w = Box.reorder_child obj (as_widget w)
-end
-
-class box obj = object
-  inherit box_skel obj
-  method connect = new container_signals obj
-end
-  
-let box dir ?homogeneous ?spacing ?border_width ?width ?height
-    ?packing ?show () =
-  let w = Box.create dir ?homogeneous ?spacing () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new box w) ~packing ~show
-
-let vbox = box `VERTICAL
-let hbox = box `HORIZONTAL
-
-class button_box obj = object
-  inherit box_skel (obj : Gtk.button_box obj)
-  method connect = new container_signals obj
-  method set_layout  = BBox.set_layout  obj
-  method set_spacing = BBox.set_spacing obj
-  method set_child_size = BBox.set_child_size obj
-  method set_child_ipadding = BBox.set_child_ipadding obj
-end
-
-let button_box dir ?spacing ?child_width ?child_height ?child_ipadx
-    ?child_ipady ?layout ?border_width ?width ?height ?packing ?show ()=
-  let w = BBox.create dir in
-  BBox.set w ?spacing ?child_width ?child_height ?child_ipadx
-    ?child_ipady ?layout;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new button_box w) ~packing ~show
-
-class table obj = object
-  inherit container_full (obj : Gtk.table obj)
-  method attach ~left ~top ?right ?bottom ?expand ?fill ?shrink
-      ?xpadding ?ypadding w =
-    Table.attach obj (as_widget w) ~left ~top ?right ?bottom ?expand
-      ?fill ?shrink ?xpadding ?ypadding
-  method set_row_spacing = Table.set_row_spacing obj
-  method set_col_spacing = Table.set_col_spacing obj
-  method set_row_spacings = Table.set_row_spacings obj
-  method set_col_spacings = Table.set_col_spacings obj
-  method set_homogeneous = Table.set_homogeneous obj
-end
-
-let table ~rows ~columns ?homogeneous ?row_spacings ?col_spacings
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Table.create ~rows ~columns ?homogeneous () in
-  Table.set w ?row_spacings ?col_spacings;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new table w) ~packing ~show
-
-class fixed obj = object
-  inherit container_full (obj : Gtk.fixed obj)
-  method event = new GObj.event_ops obj
-  method put w = Fixed.put obj (as_widget w)
-  method move w = Fixed.move obj (as_widget w)
-end
-
-let fixed ?border_width ?width ?height ?packing ?show () =
-  let w = Fixed.create () in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new fixed w) ~packing ~show
-
-class layout obj = object
-  inherit container_full (obj : Gtk.layout obj)
-  method event = new GObj.event_ops obj
-  method put w = Layout.put obj (as_widget w)
-  method move w = Layout.move obj (as_widget w)
-  method set_hadjustment adj =
-    Layout.set_hadjustment obj (GData.as_adjustment adj)
-  method set_vadjustment adj =
-    Layout.set_vadjustment obj (GData.as_adjustment adj)
-  method set_width width = Layout.set_size obj ~width
-  method set_height height = Layout.set_size obj ~height
-  method hadjustment = new GData.adjustment (Layout.get_hadjustment obj)
-  method vadjustment = new GData.adjustment (Layout.get_vadjustment obj)
-  method freeze () = Layout.freeze obj
-  method thaw () = Layout.thaw obj
-  method width = Layout.get_width obj
-  method height = Layout.get_height obj
-end
-
-let layout ?hadjustment ?vadjustment ?layout_width ?layout_height
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Layout.create
-      (Gpointer.optboxed (may_map ~f:GData.as_adjustment hadjustment))
-      (Gpointer.optboxed (may_map ~f:GData.as_adjustment vadjustment)) in
-  if layout_width <> None || layout_height <> None then
-    Layout.set_size w ?width:layout_width ?height:layout_height;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new layout w) ~packing ~show
-
-
-class packer obj = object
-  inherit container_full (obj : Gtk.packer obj)
-  method pack ?side ?anchor ?expand ?fill
-      ?border_width ?pad_x ?pad_y ?i_pad_x ?i_pad_y w =
-    let options = Packer.build_options ?expand ?fill () in
-    if border_width == None && pad_x == None && pad_y == None &&
-      i_pad_x == None && i_pad_y == None
-      then Packer.add_defaults obj (as_widget w) ?side ?anchor ~options
-      else Packer.add obj (as_widget w) ?side ?anchor ~options
-         ?border_width ?pad_x ?pad_y ?i_pad_x ?i_pad_y
-  method set_child_packing ?side ?anchor ?expand ?fill
-      ?border_width ?pad_x ?pad_y ?i_pad_x ?i_pad_y w =
-    Packer.set_child_packing obj (as_widget w) ?side ?anchor
-      ~options:(Packer.build_options ?expand ?fill ())
-      ?border_width ?pad_x ?pad_y ?i_pad_x ?i_pad_y
-  method reorder_child w = Packer.reorder_child obj (as_widget w)
-  method set_spacing = Packer.set_spacing obj
-  method set_defaults = Packer.set_defaults obj
-end
-
-let packer ?spacing ?border_width ?width ?height ?packing ?show () =
-  let w = Packer.create () in
-  may spacing ~f:(Packer.set_spacing w);
-  Container.set w ?border_width ?width ?height;
-  pack_return (new packer w) ~packing ~show
-
-class paned obj = object
-  inherit container_full (obj : Gtk.paned obj)
-  method event = new GObj.event_ops obj
-  method add w =
-    if List.length (Container.children obj) = 2 then
-      raise(Error "Gpack.paned#add: already full");
-    Container.add obj (as_widget w)
-  method add1 w =
-    try ignore(Paned.child1 obj); raise(Error "GPack.paned#add1: already full")
-    with _ -> Paned.add1 obj (as_widget w)
-  method add2 w =
-    try ignore(Paned.child2 obj); raise(Error "GPack.paned#add2: already full")
-    with _ -> Paned.add2 obj (as_widget w)
-  method set_handle_size = Paned.set_handle_size obj
-  method set_gutter_size = Paned.set_gutter_size obj
-  method child1 = new widget (Paned.child1 obj)
-  method child2 = new widget (Paned.child2 obj)
-  method handle_size = Paned.handle_size obj
-  method gutter_size = Paned.gutter_size obj
-end
-
-let paned dir ?handle_size ?gutter_size
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Paned.create dir in
-  Paned.set w ?handle_size ?gutter_size;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new paned w) ~packing ~show
-
-class notebook_signals obj = object
-  inherit GContainer.container_signals obj
-  method switch_page =
-    GtkSignal.connect obj ~sgn:Notebook.Signals.switch_page ~after
-end
-
-class notebook obj = object (self)
-  inherit GContainer.container obj
-  method event = new GObj.event_ops obj
-  method connect = new notebook_signals obj
-  method insert_page ?tab_label ?menu_label ~pos child =
-      Notebook.insert_page obj (as_widget child) ~pos
-       ~tab_label:(Gpointer.may_box tab_label ~f:as_widget)
-       ~menu_label:(Gpointer.may_box menu_label ~f:as_widget)
-  method append_page = self#insert_page ~pos:(-1)
-  method prepend_page = self#insert_page ~pos:0
-  method remove_page = Notebook.remove_page obj
-  method current_page = Notebook.get_current_page obj
-  method goto_page = Notebook.set_page obj
-  method previous_page () = Notebook.prev_page obj
-  method next_page () = Notebook.next_page obj
-  method set_tab_pos = Notebook.set_tab_pos obj
-  method set_show_tabs = Notebook.set_show_tabs obj
-  method set_homogeneous_tabs = Notebook.set_homogeneous_tabs obj
-  method set_show_border = Notebook.set_show_border obj
-  method set_scrollable = Notebook.set_scrollable obj
-  method set_tab_border = Notebook.set_tab_border obj
-  method set_popup = Notebook.set_popup obj
-  method page_num w = Notebook.page_num obj (as_widget w)
-  method get_nth_page n = new widget (Notebook.get_nth_page obj n)
-  method get_tab_label w =
-    new widget (Notebook.get_tab_label obj (as_widget w))
-  method get_menu_label w =
-    new widget (Notebook.get_tab_label obj (as_widget w))
-  method set_page ?tab_label ?menu_label page =
-    let child = as_widget page in
-    may tab_label
-      ~f:(fun lbl -> Notebook.set_tab_label obj child (as_widget lbl));
-    may menu_label
-      ~f:(fun lbl -> Notebook.set_menu_label obj child (as_widget lbl))
-end
-
-let notebook ?tab_pos ?tab_border ?show_tabs ?homogeneous_tabs
-    ?show_border ?scrollable ?popup
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Notebook.create () in
-  Notebook.set w ?tab_pos ?tab_border ?show_tabs
-    ?homogeneous_tabs ?show_border ?scrollable ?popup;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new notebook w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gPack.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gPack.mli
deleted file mode 100644 (file)
index 994c8b8..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gPack.mli
+++ /dev/null
@@ -1,267 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GContainer
-
-class box_skel :
-  'a obj ->
-  object
-    inherit container
-    constraint 'a = [>`box|`container|`widget]
-    val obj : 'a obj
-    method pack :
-      ?from:Tags.pack_type ->
-      ?expand:bool -> ?fill:bool -> ?padding:int -> widget -> unit
-    method reorder_child : widget -> pos:int -> unit
-    method set_child_packing :
-      ?from:Tags.pack_type ->
-      ?expand:bool -> ?fill:bool -> ?padding:int -> widget -> unit
-    method set_homogeneous : bool -> unit
-    method set_spacing : int -> unit
-  end
-class box :
-  'a obj ->
-  object
-    inherit box_skel
-    constraint 'a = [>`box|`container|`widget]
-    val obj : 'a obj
-    method connect : GContainer.container_signals
-  end
-
-val box :
-  Tags.orientation ->
-  ?homogeneous:bool ->
-  ?spacing:int ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int -> ?packing:(widget -> unit) -> ?show:bool -> unit -> box
-val vbox :
-  ?homogeneous:bool ->
-  ?spacing:int ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int -> ?packing:(widget -> unit) -> ?show:bool -> unit -> box
-val hbox :
-  ?homogeneous:bool ->
-  ?spacing:int ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int -> ?packing:(widget -> unit) -> ?show:bool -> unit -> box
-
-class button_box :
-  Gtk.button_box obj ->
-  object
-    inherit container_full
-    val obj : Gtk.button_box obj
-    method pack :
-      ?from:Tags.pack_type ->
-      ?expand:bool -> ?fill:bool -> ?padding:int -> widget -> unit
-    method reorder_child : widget -> pos:int -> unit
-    method set_child_ipadding : ?x:int -> ?y:int -> unit -> unit
-    method set_child_packing :
-      ?from:Tags.pack_type ->
-      ?expand:bool -> ?fill:bool -> ?padding:int -> widget -> unit
-    method set_child_size : ?width:int -> ?height:int -> unit -> unit
-    method set_homogeneous : bool -> unit
-    method set_layout : GtkPack.BBox.bbox_style -> unit
-    method set_spacing : int -> unit
-  end
-val button_box :
-  Tags.orientation ->
-  ?spacing:int ->
-  ?child_width:int ->
-  ?child_height:int ->
-  ?child_ipadx:int ->
-  ?child_ipady:int ->
-  ?layout:GtkPack.BBox.bbox_style ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> button_box
-
-class table :
-  Gtk.table obj ->
-  object
-    inherit container_full
-    val obj : Gtk.table obj
-    method attach :
-      left:int ->
-      top:int ->
-      ?right:int ->
-      ?bottom:int ->
-      ?expand:Tags.expand_type ->
-      ?fill:Tags.expand_type ->
-      ?shrink:Tags.expand_type ->
-      ?xpadding:int -> ?ypadding:int -> widget -> unit
-    method set_col_spacing : int -> int -> unit
-    method set_col_spacings : int -> unit
-    method set_homogeneous : bool -> unit
-    method set_row_spacing : int -> int -> unit
-    method set_row_spacings : int -> unit
-  end
-val table :
-  rows:int ->
-  columns:int ->
-  ?homogeneous:bool ->
-  ?row_spacings:int ->
-  ?col_spacings:int ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> table
-
-class fixed :
-  Gtk.fixed obj ->
-  object
-    inherit container_full
-    val obj : Gtk.fixed obj
-    method event : event_ops
-    method move : widget -> x:int -> y:int -> unit
-    method put : widget -> x:int -> y:int -> unit
-  end
-val fixed :
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> fixed
-
-class layout :
-  Gtk.layout obj ->
-  object
-    inherit container_full
-    val obj : Gtk.layout obj
-    method event : event_ops
-    method freeze : unit -> unit
-    method hadjustment : GData.adjustment
-    method height : int
-    method move : widget -> x:int -> y:int -> unit
-    method put : widget -> x:int -> y:int -> unit
-    method set_hadjustment : GData.adjustment -> unit
-    method set_height : int -> unit
-    method set_vadjustment : GData.adjustment -> unit
-    method set_width : int -> unit
-    method thaw : unit -> unit
-    method vadjustment : GData.adjustment
-    method width : int
-  end
-val layout :
-  ?hadjustment:GData.adjustment ->
-  ?vadjustment:GData.adjustment ->
-  ?layout_width:int ->
-  ?layout_height:int ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> layout
-
-class notebook_signals : 'a obj ->
-  object
-    inherit container_signals
-    constraint 'a = [>`notebook|`container|`widget]
-    val obj : 'a obj
-    method switch_page : callback:(int -> unit) -> GtkSignal.id
-  end
-
-class notebook : ([> `widget | `container | `notebook] as 'a) obj ->
-  object
-    inherit container
-    val obj : 'a obj
-    method event : event_ops
-    method append_page :
-      ?tab_label:widget -> ?menu_label:widget -> widget -> unit
-    method connect : notebook_signals
-    method current_page : int
-    method get_menu_label : widget -> widget
-    method get_nth_page : int -> widget
-    method get_tab_label : widget -> widget
-    method goto_page : int -> unit
-    method insert_page :
-      ?tab_label:widget -> ?menu_label:widget -> pos:int -> widget -> unit
-    method next_page : unit -> unit
-    method page_num : widget -> int
-    method prepend_page :
-      ?tab_label:widget -> ?menu_label:widget -> widget -> unit
-    method previous_page : unit -> unit
-    method remove_page : int -> unit
-    method set_homogeneous_tabs : bool -> unit
-    method set_page :
-      ?tab_label:widget -> ?menu_label:widget -> widget -> unit
-    method set_popup : bool -> unit
-    method set_scrollable : bool -> unit
-    method set_show_border : bool -> unit
-    method set_show_tabs : bool -> unit
-    method set_tab_border : int -> unit
-    method set_tab_pos : Tags.position -> unit
-  end
-val notebook :
-  ?tab_pos:Tags.position ->
-  ?tab_border:int ->
-  ?show_tabs:bool ->
-  ?homogeneous_tabs:bool ->
-  ?show_border:bool ->
-  ?scrollable:bool ->
-  ?popup:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> notebook
-
-class packer :
-  Gtk.packer obj ->
-  object
-    inherit container_full
-    val obj : Gtk.packer obj
-    method pack :
-      ?side:Tags.side_type ->
-      ?anchor:Tags.anchor_type ->
-      ?expand:bool ->
-      ?fill:Tags.expand_type ->
-      ?border_width:int ->
-      ?pad_x:int ->
-      ?pad_y:int -> ?i_pad_x:int -> ?i_pad_y:int -> widget -> unit
-    method reorder_child : widget -> pos:int -> unit
-    method set_child_packing :
-      ?side:Tags.side_type ->
-      ?anchor:Tags.anchor_type ->
-      ?expand:bool ->
-      ?fill:Tags.expand_type ->
-      ?border_width:int ->
-      ?pad_x:int ->
-      ?pad_y:int -> ?i_pad_x:int -> ?i_pad_y:int -> widget -> unit
-    method set_defaults :
-      ?border_width:int ->
-      ?pad_x:int ->
-      ?pad_y:int -> ?i_pad_x:int -> ?i_pad_y:int -> unit -> unit
-    method set_spacing : int -> unit
-  end
-val packer :
-  ?spacing:int ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> packer
-
-class paned :
-  Gtk.paned obj ->
-  object
-    inherit container_full
-    val obj : Gtk.paned obj
-    method add1 : widget -> unit
-    method add2 : widget -> unit
-    method event : event_ops
-    method child1 : widget
-    method child2 : widget
-    method gutter_size : int
-    method handle_size : int
-    method set_gutter_size : int -> unit
-    method set_handle_size : int -> unit
-  end
-val paned :
-  Tags.orientation ->
-  ?handle_size:int ->
-  ?gutter_size:int ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> paned

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gRange.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gRange.ml
deleted file mode 100644 (file)
index 7df53ce..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gRange.ml
+++ /dev/null
@@ -1,83 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkRange
-open GObj
-
-class progress obj = object
-  inherit widget_full obj
-  method set_adjustment adj =
-    Progress.set_adjustment obj (GData.as_adjustment adj)
-  method set_show_text = Progress.set_show_text obj
-  method set_format_string = Progress.set_format_string obj
-  method set_text_alignment = Progress.set_text_alignment obj
-  method set_activity_mode = Progress.set_activity_mode obj
-  method set_value = Progress.set_value obj
-  method set_percentage = Progress.set_percentage obj
-  method configure = Progress.configure obj
-  method value = Progress.get_value obj
-  method percentage = Progress.get_percentage obj
-  method current_text = Progress.get_current_text obj
-  method adjustment = new GData.adjustment (Progress.get_adjustment obj)
-end
-
-class progress_bar obj = object
-  inherit progress (obj : Gtk.progress_bar obj)
-  method event = new GObj.event_ops obj
-  method set_bar_style = ProgressBar.set_bar_style obj
-  method set_discrete_blocks = ProgressBar.set_discrete_blocks obj
-  method set_activity_step = ProgressBar.set_activity_step obj
-  method set_activity_blocks = ProgressBar.set_activity_blocks obj
-  method set_orientation = ProgressBar.set_orientation obj
-end
-
-let progress_bar ?adjustment ?bar_style ?discrete_blocks
-    ?activity_step ?activity_blocks ?value ?percentage ?activity_mode
-    ?show_text ?format_string ?text_xalign ?text_yalign
-    ?packing ?show () =
-  let w =
-    match adjustment with None -> ProgressBar.create ()
-    | Some adj ->
-       ProgressBar.create_with_adjustment (GData.as_adjustment adj)
-  in
-  ProgressBar.set w ?bar_style ?discrete_blocks
-    ?activity_step ?activity_blocks;
-  Progress.set w ?value ?percentage ?activity_mode
-    ?show_text ?format_string ?text_xalign ?text_yalign;
-  pack_return (new progress_bar w) ~packing ~show
-
-class range obj = object
-  inherit widget_full obj
-  method adjustment = new GData.adjustment (Range.get_adjustment obj)
-  method set_adjustment adj =
-    Range.set_adjustment obj (GData.as_adjustment adj)
-  method set_update_policy = Range.set_update_policy obj
-end
-
-class scale obj = object
-  inherit range (obj : Gtk.scale obj)
-  method set_digits = Scale.set_digits obj
-  method set_draw_value = Scale.set_draw_value obj
-  method set_value_pos = Scale.set_value_pos obj
-end
-
-let scale dir ?adjustment ?digits ?draw_value ?value_pos
-    ?packing ?show () =
-  let w =
-    Scale.create dir ?adjustment:(may_map ~f:GData.as_adjustment adjustment)
-  in
-  let () = Scale.set w ?digits ?draw_value ?value_pos in
-  pack_return (new scale w) ~packing ~show
-
-class scrollbar obj = object
-  inherit range (obj : Gtk.scrollbar obj)
-  method event = new GObj.event_ops obj
-end
-
-let scrollbar dir ?adjustment ?update_policy ?packing ?show () =
-  let w = Scrollbar.create dir
-      ?adjustment:(may_map ~f:GData.as_adjustment adjustment) in
-  let () = may update_policy ~f:(Range.set_update_policy w) in
-  pack_return (new scrollbar w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gRange.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gRange.mli
deleted file mode 100644 (file)
index ac9b38c..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gRange.mli
+++ /dev/null
@@ -1,87 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-
-class progress : 'a obj ->
-  object
-    inherit widget_full
-    constraint 'a = [>`progress|`widget]
-    val obj : 'a obj
-    method adjustment : GData.adjustment
-    method configure : current:float -> min:float -> max:float -> unit
-    method current_text : string
-    method percentage : float
-    method set_activity_mode : bool -> unit
-    method set_adjustment : GData.adjustment -> unit
-    method set_format_string : string -> unit
-    method set_percentage : float -> unit
-    method set_show_text : bool -> unit
-    method set_text_alignment : ?x:float -> ?y:float -> unit -> unit
-    method set_value : float -> unit
-    method value : float
-  end
-
-class progress_bar : Gtk.progress_bar obj ->
-  object
-    inherit progress
-    val obj : Gtk.progress_bar obj
-    method event : event_ops
-    method set_activity_blocks : int -> unit
-    method set_activity_step : int -> unit
-    method set_bar_style : [`CONTINUOUS|`DISCRETE] -> unit
-    method set_discrete_blocks : int -> unit
-    method set_orientation : Tags.progress_bar_orientation -> unit
-  end
-val progress_bar :
-  ?adjustment:GData.adjustment ->
-  ?bar_style:[`CONTINUOUS|`DISCRETE] ->
-  ?discrete_blocks:int ->
-  ?activity_step:int ->
-  ?activity_blocks:int ->
-  ?value:float ->
-  ?percentage:float ->
-  ?activity_mode:bool ->
-  ?show_text:bool ->
-  ?format_string:string ->
-  ?text_xalign:float ->
-  ?text_yalign:float ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> progress_bar
-
-class range : 'a obj ->
-  object
-    inherit widget_full
-    constraint 'a = [>`range|`widget]
-    val obj : 'a obj
-    method adjustment : GData.adjustment
-    method set_adjustment : GData.adjustment -> unit
-    method set_update_policy : Tags.update_type -> unit
-  end
-
-class scale : Gtk.scale obj ->
-  object
-    inherit range
-    val obj : Gtk.scale obj
-    method set_digits : int -> unit
-    method set_draw_value : bool -> unit
-    method set_value_pos : Tags.position -> unit
-  end
-val scale :
-  Tags.orientation ->
-  ?adjustment:GData.adjustment ->
-  ?digits:int ->
-  ?draw_value:bool ->
-  ?value_pos:Tags.position ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> scale
-
-class scrollbar : Gtk.scrollbar obj ->
-  object
-    inherit range
-    val obj : Gtk.scrollbar obj
-    method event : event_ops
-  end
-val scrollbar :
-  Tags.orientation ->
-  ?adjustment:GData.adjustment ->
-  ?update_policy:Tags.update_type ->
-  ?packing:(widget -> unit) -> ?show:bool -> unit -> scrollbar

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gTree.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gTree.ml
deleted file mode 100644 (file)
index 80dab7b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gTree.ml
+++ /dev/null
@@ -1,76 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkTree
-open GObj
-open GContainer
-
-class tree_item_signals obj = object
-  inherit item_signals obj
-  method expand = GtkSignal.connect obj ~sgn:TreeItem.Signals.expand ~after
-  method collapse = GtkSignal.connect obj ~sgn:TreeItem.Signals.collapse ~after
-end
-
-class tree_item obj = object
-  inherit container obj
-  method event = new GObj.event_ops obj
-  method as_item : Gtk.tree_item obj = obj
-  method connect = new tree_item_signals obj
-  method set_subtree (w : tree) = TreeItem.set_subtree obj w#as_tree
-  method remove_subtree () = TreeItem.remove_subtree obj
-  method expand () = TreeItem.expand obj
-  method collapse () = TreeItem.collapse obj
-  method subtree =
-    try Some(new tree (TreeItem.subtree obj)) with Gpointer.Null -> None
-end
-
-and tree_signals obj = object
-  inherit container_signals obj
-  method selection_changed =
-    GtkSignal.connect obj ~sgn:Tree.Signals.selection_changed ~after
-  method select_child ~callback =
-    GtkSignal.connect obj ~sgn:Tree.Signals.select_child ~after
-      ~callback:(fun w -> callback (new tree_item (TreeItem.cast w))) 
-  method unselect_child ~callback =
-    GtkSignal.connect obj ~sgn:Tree.Signals.unselect_child ~after
-      ~callback:(fun w -> callback (new tree_item (TreeItem.cast w))) 
-end
-
-and tree obj = object (self)
-  inherit [tree_item] item_container obj
-  method event = new GObj.event_ops obj
-  method as_tree = Tree.coerce obj
-  method insert w ~pos = Tree.insert obj w#as_item ~pos
-  method connect = new tree_signals obj
-  method clear_items = Tree.clear_items obj
-  method select_item = Tree.select_item obj
-  method unselect_item = Tree.unselect_item obj
-  method child_position (w : tree_item) = Tree.child_position obj w#as_item
-  method remove_items items =
-    Tree.remove_items obj
-      (List.map ~f:(fun (t : tree_item) -> t#as_item) items)
-  method set_selection_mode = Tree.set_selection_mode obj
-  method set_view_mode = Tree.set_view_mode obj
-  method set_view_lines = Tree.set_view_lines obj
-  method selection =
-    List.map ~f:(fun w -> self#wrap (Widget.coerce w)) (Tree.selection obj)
-  method private wrap w =
-    new tree_item (TreeItem.cast w)
-end
-
-let tree_item ?label ?border_width ?width ?height ?packing ?show () =
-  let w = TreeItem.create ?label () in
-  Container.set w ?border_width ?width ?height;
-  let self = new tree_item w in
-  may packing ~f:(fun f -> (f self : unit));
-  if show <> Some false then self#misc#show ();
-  self
-
-let tree ?selection_mode ?view_mode ?view_lines
-    ?border_width ?width ?height ?packing ?show () =
-  let w = Tree.create () in
-  Tree.set w ?selection_mode ?view_mode ?view_lines;
-  Container.set w ?border_width ?width ?height;
-  pack_return (new tree w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gTree.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gTree.mli
deleted file mode 100644 (file)
index d48e09b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gTree.mli
+++ /dev/null
@@ -1,72 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-open GContainer
-
-class tree_item_signals : 'a obj ->
-  object
-    inherit item_signals
-    constraint 'a = [>`treeitem|`container|`item|`widget]
-    val obj : 'a obj
-    method collapse : callback:(unit -> unit) -> GtkSignal.id
-    method expand : callback:(unit -> unit) -> GtkSignal.id
-  end
-
-class tree_item : Gtk.tree_item obj ->
-  object
-    inherit GContainer.container
-    val obj : Gtk.tree_item obj
-    method event : event_ops
-    method as_item : Gtk.tree_item obj
-    method collapse : unit -> unit
-    method connect : tree_item_signals
-    method expand : unit -> unit
-    method remove_subtree : unit -> unit
-    method set_subtree : tree -> unit
-    method subtree : tree option
-  end
-
-and tree_signals : Gtk.tree obj ->
-  object
-    inherit container_signals
-    val obj : Gtk.tree obj
-    method select_child : callback:(tree_item -> unit) -> GtkSignal.id
-    method selection_changed : callback:(unit -> unit) -> GtkSignal.id
-    method unselect_child : callback:(tree_item -> unit) -> GtkSignal.id
-  end
-
-and tree : Gtk.tree obj ->
-  object
-    inherit [tree_item] item_container
-    val obj : Gtk.tree obj
-    method event : event_ops
-    method as_tree : Gtk.tree obj
-    method child_position : tree_item -> int
-    method clear_items : start:int -> stop:int -> unit
-    method connect : tree_signals
-    method insert : tree_item -> pos:int -> unit
-    method remove_items : tree_item list -> unit
-    method select_item : pos:int -> unit
-    method selection : tree_item list
-    method set_selection_mode : Tags.selection_mode -> unit
-    method set_view_lines : bool -> unit
-    method set_view_mode : [`LINE|`ITEM] -> unit
-    method unselect_item : pos:int -> unit
-    method private wrap : Gtk.widget obj -> tree_item
-  end
-
-val tree_item :
-  ?label:string ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int ->
-  ?packing:(tree_item -> unit) -> ?show:bool -> unit -> tree_item
-
-val tree :
-  ?selection_mode:Tags.selection_mode ->
-  ?view_mode:[`LINE|`ITEM] ->
-  ?view_lines:bool ->
-  ?border_width:int ->
-  ?width:int ->
-  ?height:int -> ?packing:(GObj.widget -> unit) -> ?show:bool -> unit -> tree

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gUtil.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gUtil.ml
deleted file mode 100644 (file)
index 260c2ac..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gUtil.ml
+++ /dev/null
@@ -1,80 +0,0 @@
-(* $Id$ *)
-
-open GObj
-
-class ['a] memo () = object
-  constraint 'a = #widget
-  val tbl = Hashtbl.create 7
-  method add (obj : 'a) =
-    Hashtbl.add tbl ~key:obj#get_id ~data:obj
-  method find (obj : widget) = Hashtbl.find tbl obj#get_id
-  method remove (obj : widget) = Hashtbl.remove tbl obj#get_id
-end
-
-let signal_id = ref 0
-
-let next_callback_id () : GtkSignal.id =
-  decr signal_id; Obj.magic (!signal_id : int)
-
-class ['a] signal () = object (self)
-  val mutable callbacks : (GtkSignal.id * ('a -> unit)) list = []
-  method callbacks = callbacks
-  method connect ~after ~callback =
-    let id = next_callback_id () in
-    callbacks <-
-      if after then callbacks @ [id,callback] else (id,callback)::callbacks;
-    id
-  method call arg =
-    List.exists callbacks ~f:
-      begin fun (_,f) ->
-        let old = GtkSignal.push_callback () in
-        try f arg; GtkSignal.pop_callback old
-        with exn -> GtkSignal.pop_callback old; raise exn
-      end;
-    ()
-  method disconnect key =
-    List.mem_assoc key callbacks &&
-    (callbacks <- List.remove_assoc key callbacks; true)
-end
-
-class virtual ml_signals disconnectors =
-  object (self)
-    val after = false
-    method after = {< after = true >}
-    val mutable disconnectors : (GtkSignal.id -> bool) list = disconnectors
-    method disconnect key =
-      ignore (List.exists disconnectors ~f:(fun f -> f key))
-  end
-
-class virtual add_ml_signals obj disconnectors =
-  object (self)
-    val mutable disconnectors : (GtkSignal.id -> bool) list = disconnectors
-    method disconnect key =
-      if List.exists disconnectors ~f:(fun f -> f key) then ()
-      else GtkSignal.disconnect obj key
-  end
-
-class ['a] variable_signals ~(set : 'a signal) ~(changed : 'a signal) =
-  object
-    inherit ml_signals [changed#disconnect; set#disconnect]
-    method changed = changed#connect ~after
-    method set = set#connect ~after
-  end
-
-class ['a] variable x =
-  object (self)
-    val changed = new signal ()
-    val set = new signal ()
-    method connect = new variable_signals ~set ~changed
-    val mutable x : 'a = x
-    method get = x
-    method set = set#call
-    method private equal : 'a -> 'a -> bool = (=)
-    method private real_set y =
-      let x0 = x in x <- y;
-      if changed#callbacks <> [] && not (self#equal x x0)
-      then changed#call y
-    initializer
-      ignore (set#connect ~after:false ~callback:self#real_set)
-  end
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gUtil.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gUtil.mli
deleted file mode 100644 (file)
index cd88d86..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gUtil.mli
+++ /dev/null
@@ -1,109 +0,0 @@
-(* $Id$ *)
-
-open GObj
-
-(* The memo class provides an easy way to remember the real class of
-   a widget.
-   Insert all widgets of class in one single t memo, and you can then
-   recover their original ML object with #find.
-*)
-
-class ['a] memo : unit ->
-  object
-    constraint 'a = #widget
-    val tbl : (int, 'a) Hashtbl.t
-    method add : 'a -> unit
-    method find : widget -> 'a
-    method remove : widget -> unit
-  end
-
-(* The ML signal mechanism allows one to add GTK-like signals to
-   arbitrary objects.
-*)
-
-val next_callback_id : unit -> GtkSignal.id
-
-class ['a] signal :
-  unit ->
-  object
-    val mutable callbacks : (GtkSignal.id * ('a -> unit)) list
-    method callbacks : (GtkSignal.id * ('a -> unit)) list
-    method call : 'a -> unit
-    method connect : after:bool -> callback:('a -> unit) -> GtkSignal.id
-    method disconnect : GtkSignal.id -> bool
-  end
-(* As with GTK signals, you can use [GtkSignal.stop_emit] inside a
-   callback to prevent other callbacks from being called. *)
-
-class virtual ml_signals : (GtkSignal.id -> bool) list ->
-  object ('a)
-    val after : bool
-    method after : 'a
-    method disconnect : GtkSignal.id -> unit
-    val mutable disconnectors : (GtkSignal.id -> bool) list
-  end
-class virtual add_ml_signals :
-  'a Gtk.obj -> (GtkSignal.id -> bool) list ->
-  object
-    method disconnect : GtkSignal.id -> unit
-    val mutable disconnectors : (GtkSignal.id -> bool) list
-  end
-
-(* To add ML signals to a LablGTK object:
-
-   class mywidget_signals obj ~mysignal1 ~mysignal2 = object
-     inherit somewidget_signals obj
-     inherit add_ml_signals obj [mysignal1#disconnect; mysignal2#disconnect]
-     method mysignal1 = mysignal1#connect ~after
-     method mysignal2 = mysignal2#connect ~after
-   end
-
-   class mywidget obj = object (self)
-     inherit somewidget obj
-     val mysignal1 = new signal obj
-     val mysignal2 = new signal obj
-     method connect = new mywidget_signals obj ~mysignal1 ~mysignal2
-     method call1 = mysignal1#call
-     method call2 = mysignal2#call
-   end
-
-   You can also add ML signals to an arbitrary object; just inherit
-   from [ml_signals] in place of [widget_signals]+[add_ml_signals].
-
-   class mysignals ~mysignal1 ~mysignal2 = object
-     inherit ml_signals [mysignal1#disconnect; mysignal2#disconnect]
-     method mysignal1 = mysignal1#connect ~after
-     method mysignal2 = mysignal2#connect ~after
-   end
-*)
-
-(* The variable class provides an easy way to propagate state modifications.
-   A new variable is created by [new variable init]. The [#set] method just
-   calls the [set] signal, which by default only calls [real_set].
-   [real_set] sets the variable and calls [changed] when needed.
-   Deep equality is used to compare values, but check is only done if
-   there are callbacks for [changed].
-*)
-
-class ['a] variable_signals :
-  set:'a signal -> changed:'a signal ->
-  object ('b)
-    val after : bool
-    method after : 'b
-    method set : callback:('a -> unit) -> GtkSignal.id
-    method changed : callback:('a -> unit) -> GtkSignal.id
-    method disconnect : GtkSignal.id -> unit
-    val mutable disconnectors : (GtkSignal.id -> bool) list
-  end
-
-class ['a] variable : 'a ->
-  object
-    val set : 'a signal
-    val changed : 'a signal
-    val mutable x : 'a
-    method connect : 'a variable_signals
-    method get : 'a
-    method set : 'a -> unit
-    method private equal : 'a -> 'a -> bool
-    method private real_set : 'a -> unit
-  end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gWindow.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gWindow.ml
deleted file mode 100644 (file)
index 9ee3136..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gWindow.ml
+++ /dev/null
@@ -1,151 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-open GtkWindow
-open GtkMisc
-open GObj
-open GContainer
-
-class ['a] window_skel obj = object
-  constraint 'a = _ #window_skel
-  inherit container obj
-  method event = new GObj.event_ops obj
-  method as_window = Window.coerce obj
-  method activate_focus () = Window.activate_focus obj
-  method activate_default () = Window.activate_default obj
-  method add_accel_group = Window.add_accel_group obj
-  method set_modal = Window.set_modal obj
-  method set_default_size = Window.set_default_size obj
-  method set_position = Window.set_position obj
-  method set_resize_mode = Container.set_resize_mode obj
-  method set_transient_for (w : 'a) =
-    Window.set_transient_for obj w#as_window
-  method set_title = Window.set_title obj
-  method set_wm_name name = Window.set_wmclass obj ~name
-  method set_wm_class cls = Window.set_wmclass obj ~clas:cls
-  method set_allow_shrink allow_shrink = Window.set_policy obj ~allow_shrink
-  method set_allow_grow allow_grow = Window.set_policy obj ~allow_grow
-  method set_auto_shrink auto_shrink = Window.set_policy obj ~auto_shrink
-  method show () = Widget.show obj
-end
-
-class window obj = object
-  inherit [window] window_skel (Window.coerce obj)
-  method connect = new container_signals obj
-end
-
-let window ?kind:(t=`TOPLEVEL) ?title ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y
-    ?border_width ?width ?height ?(show=false) () =
-  let w = Window.create t in
-  Window.set w ?title ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y;
-  Container.set w ?border_width ?width ?height;
-  if show then Widget.show w;
-  new window w
-
-class dialog obj = object
-  inherit [window] window_skel (Dialog.coerce obj)
-  method connect = new container_signals obj
-  method action_area = new GPack.box (Dialog.action_area obj)
-  method vbox = new GPack.box (Dialog.vbox obj)
-end
-
-let dialog ?title ?wm_name ?wm_class ?position ?allow_shrink
-    ?allow_grow ?auto_shrink ?modal ?x ?y ?border_width ?width ?height
-    ?(show=false) () =
-  let w = Dialog.create () in
-  Window.set w ?title ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y;
-  Container.set w ?border_width ?width ?height;
-  if show then Widget.show w;
-  new dialog w
-
-class color_selection_dialog obj = object
-  inherit [window] window_skel (obj : Gtk.color_selection_dialog obj)
-  method connect = new container_signals obj
-  method ok_button =
-    new GButton.button (ColorSelection.ok_button obj)
-  method cancel_button =
-    new GButton.button (ColorSelection.cancel_button obj)
-  method help_button =
-    new GButton.button (ColorSelection.help_button obj)
-  method colorsel =
-    new GMisc.color_selection (ColorSelection.colorsel obj)
-end
-
-let color_selection_dialog ?(title="Pick a color")
-    ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y
-    ?border_width ?width ?height ?(show=false) () =
-  let w = ColorSelection.create_dialog title in
-  Window.set w ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y;
-  Container.set w ?border_width ?width ?height;
-  if show then Widget.show w;
-  new color_selection_dialog w
-
-class file_selection obj = object
-  inherit [window] window_skel (obj : Gtk.file_selection obj)
-  method connect = new container_signals obj
-  method set_filename = FileSelection.set_filename obj
-  method get_filename = FileSelection.get_filename obj
-  method set_fileop_buttons = FileSelection.set_fileop_buttons obj
-  method ok_button = new GButton.button (FileSelection.get_ok_button obj)
-  method cancel_button =
-    new GButton.button (FileSelection.get_cancel_button obj)
-  method help_button = new GButton.button (FileSelection.get_help_button obj)
-end
-
-let file_selection ?(title="Choose a file") ?filename
-    ?(fileop_buttons=false)
-    ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y
-    ?border_width ?width ?height ?(show=false) () =
-  let w = FileSelection.create title in
-  FileSelection.set w ?filename ~fileop_buttons;
-  Window.set w ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y;
-  Container.set w ?border_width ?width ?height;
-  if show then Widget.show w;
-  new file_selection w
-
-class font_selection_dialog obj = object
-  inherit [window] window_skel (obj : Gtk.font_selection_dialog obj)
-  method connect = new container_signals obj
-(*
-  method font = FontSelectionDialog.get_font obj
-  method font_name = FontSelectionDialog.get_font_name obj
-  method set_font_name = FontSelectionDialog.set_font_name obj
-  method preview_text = FontSelectionDialog.get_preview_text obj
-  method set_preview_text = FontSelectionDialog.set_preview_text obj
-  method set_filter = FontSelectionDialog.set_filter obj
-*)
-  method selection =
-    new GMisc.font_selection (FontSelectionDialog.font_selection obj)
-  method ok_button =  new GButton.button (FontSelectionDialog.ok_button obj)
-  method apply_button =
-    new GButton.button (FontSelectionDialog.apply_button obj)
-  method cancel_button =
-    new GButton.button (FontSelectionDialog.cancel_button obj)
-end
-
-let font_selection_dialog ?title ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y
-    ?border_width ?width ?height ?(show=false) () =
-  let w = FontSelectionDialog.create ?title () in
-  Window.set w ?wm_name ?wm_class ?position
-    ?allow_shrink ?allow_grow ?auto_shrink ?modal ?x ?y;
-  Container.set w ?border_width ?width ?height;
-  if show then Widget.show w;
-  new font_selection_dialog w
-
-class plug (obj : Gtk.plug obj) = window obj
-
-let plug ~window:xid ?border_width ?width ?height ?(show=false) () =
-  let w = Plug.create xid in
-  Container.set w ?border_width ?width ?height;
-  if show then Widget.show w;
-  new plug w

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gWindow.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gWindow.mli
deleted file mode 100644 (file)
index 4c89a76..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gWindow.mli
+++ /dev/null
@@ -1,156 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-
-class ['a] window_skel : 'b obj ->
-  object
-    inherit GContainer.container
-    constraint 'a = 'a #window_skel
-    constraint 'b = [>`widget|`container|`window]
-    val obj : 'b obj
-    method activate_default : unit -> unit
-    method activate_focus : unit -> unit
-    method add_accel_group : accel_group -> unit
-    method event : event_ops
-    method as_window : Gtk.window obj
-    method set_allow_grow : bool -> unit
-    method set_allow_shrink : bool -> unit
-    method set_auto_shrink : bool -> unit
-    method set_default_size : width:int -> height:int -> unit
-    method set_modal : bool -> unit
-    method set_position : Tags.window_position -> unit
-    method set_resize_mode : Tags.resize_mode -> unit
-    method set_title : string -> unit
-    method set_transient_for : 'a -> unit
-    method set_wm_class : string -> unit
-    method set_wm_name : string -> unit
-    method show : unit -> unit
-  end
-
-class window : [>`window] obj ->
-  object
-    inherit [window] window_skel
-    val obj : Gtk.window obj
-    method connect : GContainer.container_signals
-  end
-val window :
-  ?kind:Tags.window_type ->
-  ?title:string ->
-  ?wm_name:string ->
-  ?wm_class:string ->
-  ?position:Tags.window_position ->
-  ?allow_shrink:bool ->
-  ?allow_grow:bool ->
-  ?auto_shrink:bool ->
-  ?modal:bool ->
-  ?x:int ->
-  ?y:int ->
-  ?border_width:int ->
-  ?width:int -> ?height:int -> ?show:bool -> unit -> window
-
-class dialog : [>`dialog] obj ->
-  object
-    inherit [window] window_skel
-    val obj : Gtk.dialog obj
-    method action_area : GPack.box
-    method connect : GContainer.container_signals
-    method event : event_ops
-    method vbox : GPack.box
-  end
-val dialog :
-  ?title:string ->
-  ?wm_name:string ->
-  ?wm_class:string ->
-  ?position:Tags.window_position ->
-  ?allow_shrink:bool ->
-  ?allow_grow:bool ->
-  ?auto_shrink:bool ->
-  ?modal:bool ->
-  ?x:int ->
-  ?y:int ->
-  ?border_width:int ->
-  ?width:int -> ?height:int -> ?show:bool -> unit -> dialog
-
-class color_selection_dialog : Gtk.color_selection_dialog obj ->
-  object
-    inherit [window] window_skel
-    val obj : Gtk.color_selection_dialog obj
-    method cancel_button : GButton.button
-    method colorsel : GMisc.color_selection
-    method connect : GContainer.container_signals
-    method help_button : GButton.button
-    method ok_button : GButton.button
-  end
-val color_selection_dialog :
-  ?title:string ->
-  ?wm_name:string ->
-  ?wm_class:string ->
-  ?position:Tags.window_position ->
-  ?allow_shrink:bool ->
-  ?allow_grow:bool ->
-  ?auto_shrink:bool ->
-  ?modal:bool ->
-  ?x:int ->
-  ?y:int ->
-  ?border_width:int ->
-  ?width:int -> ?height:int -> ?show:bool -> unit -> color_selection_dialog
-
-class file_selection : Gtk.file_selection obj ->
-  object
-    inherit [window] window_skel
-    val obj : Gtk.file_selection obj
-    method cancel_button : GButton.button
-    method connect : GContainer.container_signals
-    method get_filename : string
-    method help_button : GButton.button
-    method ok_button : GButton.button
-    method set_filename : string -> unit
-    method set_fileop_buttons : bool -> unit
-  end
-val file_selection :
-  ?title:string ->
-  ?filename:string ->
-  ?fileop_buttons:bool ->
-  ?wm_name:string ->
-  ?wm_class:string ->
-  ?position:Tags.window_position ->
-  ?allow_shrink:bool ->
-  ?allow_grow:bool ->
-  ?auto_shrink:bool ->
-  ?modal:bool ->
-  ?x:int ->
-  ?y:int ->
-  ?border_width:int ->
-  ?width:int -> ?height:int -> ?show:bool -> unit -> file_selection
-
-class font_selection_dialog : Gtk.font_selection_dialog obj ->
-  object
-    inherit [window] window_skel
-    val obj : Gtk.font_selection_dialog obj
-    method apply_button : GButton.button
-    method cancel_button : GButton.button
-    method connect : GContainer.container_signals
-    method selection : GMisc.font_selection
-    method ok_button : GButton.button
-  end
-val font_selection_dialog :
-  ?title:string ->
-  ?wm_name:string ->
-  ?wm_class:string ->
-  ?position:Tags.window_position ->
-  ?allow_shrink:bool ->
-  ?allow_grow:bool ->
-  ?auto_shrink:bool ->
-  ?modal:bool ->
-  ?x:int ->
-  ?y:int ->
-  ?border_width:int ->
-  ?width:int -> ?height:int -> ?show:bool -> unit -> font_selection_dialog
-
-class plug : Gtk.plug obj -> window
-
-val plug :
-  window:Gdk.xid ->
-  ?border_width:int ->
-  ?width:int -> ?height:int -> ?show:bool -> unit -> plug

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gaux.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gaux.ml
deleted file mode 100644 (file)
index a117291..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gaux.ml
+++ /dev/null
@@ -1,17 +0,0 @@
-(* $Id$ *)
-
-(* Option handling *)
-
-let may ~f x =
-  match x with None -> ()
-  | Some x -> let _ = f x in ()
-
-let may_map ~f x =
-  match x with None -> None
-  | Some x -> Some (f x)
-
-let default x ~opt =
-  match opt with None -> x | Some y -> y
-
-let may_default f x ~opt =
-  match opt with None -> f x | Some y -> y

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gdk.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gdk.ml
deleted file mode 100644 (file)
index c22c4b5..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gdk.ml
+++ /dev/null
@@ -1,535 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-
-type colormap
-type visual
-type region
-type gc
-type 'a drawable
-type window = [`window] drawable
-type pixmap = [`pixmap] drawable
-type bitmap = [`bitmap] drawable
-type font
-type image
-type atom = int
-type keysym = int
-type 'a event
-type drag_context
-type cursor
-type xid = int32
-
-exception Error of string
-let _ = Callback.register_exception "gdkerror" (Error"")
-
-module Tags = struct
-  type event_type =
-    [ `NOTHING|`DELETE|`DESTROY|`EXPOSE|`MOTION_NOTIFY|`BUTTON_PRESS
-     |`TWO_BUTTON_PRESS|`THREE_BUTTON_PRESS
-     |`BUTTON_RELEASE|`KEY_PRESS
-     |`KEY_RELEASE|`ENTER_NOTIFY|`LEAVE_NOTIFY|`FOCUS_CHANGE
-     |`CONFIGURE|`MAP|`UNMAP|`PROPERTY_NOTIFY|`SELECTION_CLEAR
-     |`SELECTION_REQUEST|`SELECTION_NOTIFY|`PROXIMITY_IN
-     |`PROXIMITY_OUT|`DRAG_ENTER|`DRAG_LEAVE|`DRAG_MOTION|`DRAG_STATUS
-     |`DROP_START|`DROP_FINISHED|`CLIENT_EVENT|`VISIBILITY_NOTIFY
-     |`NO_EXPOSE ]
-
-  type event_mask =
-    [ `EXPOSURE
-     |`POINTER_MOTION|`POINTER_MOTION_HINT
-     |`BUTTON_MOTION|`BUTTON1_MOTION|`BUTTON2_MOTION|`BUTTON3_MOTION
-     |`BUTTON_PRESS|`BUTTON_RELEASE
-     |`KEY_PRESS|`KEY_RELEASE
-     |`ENTER_NOTIFY|`LEAVE_NOTIFY|`FOCUS_CHANGE
-     |`STRUCTURE|`PROPERTY_CHANGE|`VISIBILITY_NOTIFY
-     |`PROXIMITY_IN|`PROXIMITY_OUT|`SUBSTRUCTURE
-     |`ALL_EVENTS ]
-
-  type extension_events =
-    [ `NONE|`ALL|`CURSOR ]
-
-  type visibility_state =
-    [ `UNOBSCURED|`PARTIAL|`FULLY_OBSCURED ]
-
-  type input_source =
-    [ `MOUSE|`PEN|`ERASER|`CURSOR ]
-
-  type notify_type =
-    [ `ANCESTOR|`VIRTUAL|`INFERIOR|`NONLINEAR|`NONLINEAR_VIRTUAL|`UNKNOWN ] 
-
-  type crossing_mode =
-    [ `NORMAL|`GRAB|`UNGRAB ]
-
-  type modifier =
-    [ `SHIFT|`LOCK|`CONTROL|`MOD1|`MOD2|`MOD3|`MOD4|`MOD5|`BUTTON1
-     |`BUTTON2|`BUTTON3|`BUTTON4|`BUTTON5 ]
-
-  type drag_action =
-    [ `DEFAULT|`COPY|`MOVE|`LINK|`PRIVATE|`ASK ]
-
-end
-open Tags
-
-module Convert = struct
-  external test_modifier : modifier -> int -> bool
-      = "ml_test_GdkModifier_val"
-  let modifier i =
-    List.filter [`SHIFT;`LOCK;`CONTROL;`MOD1;`MOD2;`MOD3;`MOD4;`MOD5;
-                `BUTTON1;`BUTTON2;`BUTTON3;`BUTTON4;`BUTTON5]
-      ~f:(fun m -> test_modifier m i)
-end
-
-module Screen = struct
-  external width : unit -> int = "ml_gdk_screen_width"
-  external height : unit -> int = "ml_gdk_screen_height"
-end
-
-module Visual = struct
-  type visual_type =
-    [ `STATIC_GRAY|`GRAYSCALE|`STATIC_COLOR
-     |`PSEUDO_COLOR|`TRUE_COLOR|`DIRECT_COLOR ]
-
-  external get_best : ?depth:int -> ?kind:visual_type -> unit -> visual
-      = "ml_gdk_visual_get_best"
-  external get_type : visual -> visual_type = "ml_GdkVisual_type"
-  external depth : visual -> int = "ml_GdkVisual_depth"
-  external red_mask : visual -> int = "ml_GdkVisual_red_mask"
-  external red_shift : visual -> int = "ml_GdkVisual_red_shift"
-  external red_prec : visual -> int = "ml_GdkVisual_red_prec"
-  external green_mask : visual -> int = "ml_GdkVisual_green_mask"
-  external green_shift : visual -> int = "ml_GdkVisual_green_shift"
-  external green_prec : visual -> int = "ml_GdkVisual_green_prec"
-  external blue_mask : visual -> int = "ml_GdkVisual_blue_mask"
-  external blue_shift : visual -> int = "ml_GdkVisual_blue_shift"
-  external blue_prec : visual -> int = "ml_GdkVisual_blue_prec"
-end
-
-module Image = struct
-  type image_type =
-    [ `NORMAL|`SHARED|`FASTEST ] 
-
-  external create_bitmap : visual: visual -> data: string -> 
-    width: int -> height: int -> image 
-      = "ml_gdk_image_new_bitmap"
-  external create : kind: image_type -> visual: visual -> 
-    width: int -> height: int -> image
-      = "ml_gdk_image_new"
-  external get :
-      'a drawable -> x: int -> y: int -> width: int -> height: int -> image
-      = "ml_gdk_image_get"
-  external put_pixel : image -> x: int -> y: int -> pixel: int -> unit
-    = "ml_gdk_image_put_pixel"
-  external get_pixel : image -> x: int -> y: int -> int
-    = "ml_gdk_image_get_pixel"
-  external destroy : image -> unit
-    = "ml_gdk_image_destroy"
-end
-
-module Color = struct
-  type t
-
-  external color_white : colormap -> t = "ml_gdk_color_white"
-  external color_black : colormap -> t = "ml_gdk_color_black"
-  external color_parse : string -> t = "ml_gdk_color_parse"
-  external color_alloc : colormap -> t -> bool = "ml_gdk_color_alloc"
-  external color_create : red:int -> green:int -> blue:int -> t
-      = "ml_GdkColor"
-
-  external get_system_colormap : unit -> colormap
-      = "ml_gdk_colormap_get_system"
-  external colormap_new : visual -> privat:bool -> colormap
-      = "ml_gdk_colormap_new"
-  let get_colormap ?(privat=false) vis = colormap_new vis ~privat
-
-  type spec = [ `BLACK | `NAME of string | `RGB of int * int * int | `WHITE]
-  let color_alloc ~colormap color =
-    if not (color_alloc colormap color) then raise (Error"Color.alloc");
-    color
-  let alloc ~colormap color =
-    match color with
-      `WHITE -> color_white colormap
-    | `BLACK -> color_black colormap
-    | `NAME s -> color_alloc ~colormap (color_parse s)
-    | `RGB (red,green,blue) ->
-       color_alloc ~colormap (color_create ~red ~green ~blue)
-
-  external red : t -> int = "ml_GdkColor_red"
-  external blue : t -> int = "ml_GdkColor_blue"
-  external green : t -> int = "ml_GdkColor_green"
-  external pixel : t -> int = "ml_GdkColor_pixel"
-end
-
-module Rectangle = struct
-  type t
-  external create : x:int -> y:int -> width:int -> height:int -> t
-      = "ml_GdkRectangle"
-  external x : t -> int = "ml_GdkRectangle_x"
-  external y : t -> int = "ml_GdkRectangle_y"
-  external width : t -> int = "ml_GdkRectangle_width"
-  external height : t -> int = "ml_GdkRectangle_height"
-end
-
-module Window = struct
-  type background_pixmap = [ `NONE | `PARENT_RELATIVE | `PIXMAP of pixmap]
-  external visual_depth : visual -> int = "ml_gdk_visual_get_depth"
-  external get_visual : window -> visual = "ml_gdk_window_get_visual"
-  external get_parent : window -> window = "ml_gdk_window_get_parent"
-  external get_size : window -> int * int = "ml_gdk_window_get_size"
-  external get_position : window -> int * int =
-    "ml_gdk_window_get_position"
-  external root_parent : unit -> window = "ml_GDK_ROOT_PARENT"
-  external set_back_pixmap : window -> pixmap -> int -> unit = 
-    "ml_gdk_window_set_back_pixmap"
-  external clear : window -> unit = "ml_gdk_window_clear"
-  external get_xwindow : window -> xid = "ml_GDK_WINDOW_XWINDOW"
-
-  let set_back_pixmap w pix = 
-    let null_pixmap = (Obj.magic Gpointer.boxed_null : pixmap) in
-    match pix with
-      `NONE -> set_back_pixmap w null_pixmap 0
-    | `PARENT_RELATIVE -> set_back_pixmap w null_pixmap 1
-    | `PIXMAP(pixmap) -> set_back_pixmap w pixmap 0 
-       (* anything OK, Maybe... *) 
-end
-
-module PointArray = struct
-  type t = { len: int}
-  external create : len:int -> t = "ml_point_array_new"
-  external set : t -> pos:int -> x:int -> y:int -> unit = "ml_point_array_set"
-  let set arr ~pos =
-    if pos < 0 || pos >= arr.len then invalid_arg "PointArray.set";
-    set arr ~pos
-end
-
-module Region = struct
-  type gdkFillRule = [ `EVEN_ODD_RULE|`WINDING_RULE ]
-  type gdkOverlapType = [ `IN|`OUT|`PART ]
-  external create : unit -> region = "ml_gdk_region_new"
-  external destroy : region -> unit = "ml_gdk_region_destroy"
-  external polygon : PointArray.t -> gdkFillRule -> region 
-      = "ml_gdk_region_polygon"
-  let polygon l =
-    let len = List.length l in
-    let arr = PointArray.create ~len in
-    List.fold_left l ~init:0
-      ~f:(fun pos (x,y) -> PointArray.set arr ~pos ~x ~y; pos+1);
-    polygon arr    
-  external intersect : region -> region -> region
-      = "ml_gdk_regions_intersect"
-  external union : region -> region -> region 
-      = "ml_gdk_regions_union"
-  external subtract : region -> region -> region 
-      = "ml_gdk_regions_subtract"
-  external xor : region -> region -> region 
-      = "ml_gdk_regions_xor"
-  external union_with_rect : region -> Rectangle.t -> region
-      = "ml_gdk_region_union_with_rect"
-  external offset : region -> x:int -> y:int -> unit = "ml_gdk_region_offset"
-  external shrink : region -> x:int -> y:int -> unit = "ml_gdk_region_shrink"
-  external empty : region -> bool = "ml_gdk_region_empty"
-  external equal : region -> region -> bool = "ml_gdk_region_equal"
-  external point_in : region -> x:int -> y:int -> bool 
-      = "ml_gdk_region_point_in"
-  external rect_in : region -> Rectangle.t -> gdkOverlapType
-      = "ml_gdk_region_rect_in"
-  external get_clipbox : region -> Rectangle.t -> unit
-      = "ml_gdk_region_get_clipbox"
-end
-      
-
-module GC = struct
-  type gdkFunction = [ `COPY|`INVERT|`XOR ]
-  type gdkFill = [ `SOLID|`TILED|`STIPPLED|`OPAQUE_STIPPLED ]
-  type gdkSubwindowMode = [ `CLIP_BY_CHILDREN|`INCLUDE_INFERIORS ]
-  type gdkLineStyle = [ `SOLID|`ON_OFF_DASH|`DOUBLE_DASH ]
-  type gdkCapStyle = [ `NOT_LAST|`BUTT|`ROUND|`PROJECTING ]
-  type gdkJoinStyle = [ `MITER|`ROUND|`BEVEL ]
-  external create : 'a drawable -> gc = "ml_gdk_gc_new"
-  external set_foreground : gc -> Color.t -> unit = "ml_gdk_gc_set_foreground"
-  external set_background : gc -> Color.t -> unit = "ml_gdk_gc_set_background"
-  external set_font : gc -> font -> unit = "ml_gdk_gc_set_font"
-  external set_function : gc -> gdkFunction -> unit = "ml_gdk_gc_set_function"
-  external set_fill : gc -> gdkFill -> unit = "ml_gdk_gc_set_fill"
-  external set_tile : gc -> pixmap -> unit = "ml_gdk_gc_set_tile"
-  external set_stipple : gc -> pixmap -> unit = "ml_gdk_gc_set_stipple"
-  external set_ts_origin : gc -> x:int -> y:int -> unit
-      = "ml_gdk_gc_set_ts_origin"
-  external set_clip_origin : gc -> x:int -> y:int -> unit
-      = "ml_gdk_gc_set_clip_origin"
-  external set_clip_mask : gc -> bitmap -> unit = "ml_gdk_gc_set_clip_mask"
-  external set_clip_rectangle : gc -> Rectangle.t -> unit
-      = "ml_gdk_gc_set_clip_rectangle"
-  external set_clip_region : gc -> region -> unit = "ml_gdk_gc_set_clip_region"
-  external set_subwindow : gc -> gdkSubwindowMode -> unit
-      = "ml_gdk_gc_set_subwindow"
-  external set_exposures : gc -> bool -> unit = "ml_gdk_gc_set_exposures"
-  external set_line_attributes :
-      gc -> width:int -> style:gdkLineStyle -> cap:gdkCapStyle ->
-      join:gdkJoinStyle -> unit
-      = "ml_gdk_gc_set_line_attributes"
-  external copy : dst:gc -> gc -> unit = "ml_gdk_gc_copy"
-  type values = {
-      foreground : Color.t;
-      background : Color.t;
-      font : font option;
-      fonction : gdkFunction;
-      fill : gdkFill;
-      tile : pixmap option;
-      stipple : pixmap option;
-      clip_mask : bitmap option;
-      subwindow_mode : gdkSubwindowMode;
-      ts_x_origin : int;
-      ts_y_origin : int;
-      clip_x_origin : int;
-      clip_y_origin : int;
-      graphics_exposures : bool;
-      line_width : int;
-      line_style : gdkLineStyle;
-      cap_style : gdkCapStyle;
-      join_style : gdkJoinStyle;
-    }
-  external get_values : gc -> values = "ml_gdk_gc_get_values"
-end
-
-module Pixmap = struct
-  external create : window -> width:int -> height:int -> depth:int -> pixmap
-      = "ml_gdk_pixmap_new"
-  external create_from_data :
-      window -> string -> width:int -> height:int -> depth:int ->
-      fg:Color.t -> bg:Color.t -> pixmap
-      = "ml_gdk_pixmap_create_from_data_bc" "ml_gk_pixmap_create_from_data"
-  external create_from_xpm :
-      window -> ?colormap:colormap -> ?transparent:Color.t ->
-      file:string -> pixmap * bitmap
-      = "ml_gdk_pixmap_colormap_create_from_xpm"
-  external create_from_xpm_d :
-      window -> ?colormap:colormap -> ?transparent:Color.t ->
-      data:string array -> pixmap * bitmap
-      = "ml_gdk_pixmap_colormap_create_from_xpm_d"
-end
-
-module Bitmap = struct
-  let create : window -> width:int -> height:int -> bitmap =
-    Obj.magic (Pixmap.create ~depth:1)
-  external create_from_data :
-      window -> string -> width:int -> height:int -> bitmap
-      = "ml_gdk_bitmap_create_from_data"
-end
-
-module Font = struct
-  external load : string -> font = "ml_gdk_font_load"
-  external load_fontset : string -> font = "ml_gdk_fontset_load"
-  external string_width : font -> string -> int = "ml_gdk_string_width"
-  external char_width : font -> char -> int = "ml_gdk_char_width"
-  external string_height : font -> string -> int = "ml_gdk_string_height"
-  external char_height : font -> char -> int = "ml_gdk_char_height"
-  external string_measure : font -> string -> int = "ml_gdk_string_measure"
-  external char_measure : font -> char -> int = "ml_gdk_char_measure"
-  external get_type : font -> [`FONT | `FONTSET] = "ml_GdkFont_type"
-  external ascent : font -> int = "ml_GdkFont_ascent"
-  external descent : font -> int = "ml_GdkFont_descent"
-end
-
-module Draw = struct
-  external point : 'a drawable -> gc -> x:int -> y:int -> unit
-      = "ml_gdk_draw_point"
-  external line : 'a drawable -> gc -> x:int -> y:int -> x:int -> y:int -> unit
-      = "ml_gdk_draw_line_bc" "ml_gdk_draw_line"
-  external rectangle :
-      'a drawable -> gc ->
-      filled:bool -> x:int -> y:int -> width:int -> height:int -> unit
-      = "ml_gdk_draw_rectangle_bc" "ml_gdk_draw_rectangle"
-  let rectangle w gc ~x ~y ~width ~height ?(filled=false) () =
-    rectangle w gc ~x ~y ~width ~height ~filled
-  external arc :
-      'a drawable -> gc -> filled:bool -> x:int -> y:int ->
-      width:int -> height:int -> start:int -> angle:int -> unit
-      = "ml_gdk_draw_arc_bc" "ml_gdk_draw_arc"
-  let arc w gc ~x ~y ~width ~height ?(filled=false) ?(start=0.)
-      ?(angle=360.) () =
-    arc w gc ~x ~y ~width ~height ~filled
-      ~start:(truncate(start *. 64.))
-      ~angle:(truncate(angle *. 64.))
-  external polygon : 'a drawable -> gc -> filled:bool -> PointArray.t -> unit
-      = "ml_gdk_draw_polygon"
-  let polygon w gc ?(filled=false) l =
-    let len = List.length l in
-    let arr = PointArray.create ~len in
-    List.fold_left l ~init:0
-      ~f:(fun pos (x,y) -> PointArray.set arr ~pos ~x ~y; pos+1);
-    polygon w gc ~filled arr
-  external string : 'a drawable -> font: font -> gc -> x: int -> y: int ->
-    string: string -> unit
-      = "ml_gdk_draw_string_bc" "ml_gdk_draw_string"   
-  external image : 'a drawable -> gc -> image: image -> 
-    xsrc: int -> ysrc: int -> xdest: int -> ydest: int -> 
-    width: int -> height: int -> unit
-      = "ml_gdk_draw_image_bc" "ml_gdk_draw_image"
-end
-
-module Rgb = struct
-  external init : unit -> unit = "ml_gdk_rgb_init"
-  external get_visual : unit -> visual = "ml_gdk_rgb_get_visual"
-  external get_cmap : unit -> colormap = "ml_gdk_rgb_get_cmap"
-end
-
-module DnD = struct
-  external drag_status : drag_context -> drag_action list -> time:int -> unit
-      = "ml_gdk_drag_status"
-  external drag_context_suggested_action : drag_context -> drag_action
-      = "ml_GdkDragContext_suggested_action"
-  external drag_context_targets : drag_context -> atom list
-      = "ml_GdkDragContext_targets"
-end
-
-module Truecolor = struct
-  (* Truecolor quick color query *) 
-
-  type visual_shift_prec = {
-      red_shift : int;
-      red_prec : int;
-      green_shift : int;
-      green_prec : int;
-      blue_shift : int;
-      blue_prec : int
-    }
- 
-  let shift_prec visual = {
-    red_shift = Visual.red_shift visual;
-    red_prec = Visual.red_prec visual;
-    green_shift = Visual.green_shift visual;
-    green_prec = Visual.green_prec visual;
-    blue_shift = Visual.blue_shift visual;
-    blue_prec = Visual.blue_prec visual;
-  }
-
-  let color_creator visual =
-    match Visual.get_type visual with
-      `TRUE_COLOR | `DIRECT_COLOR ->
-       let shift_prec = shift_prec visual in
-       Format.eprintf "red : %d %d, "
-         shift_prec.red_shift shift_prec.red_prec;
-       Format.eprintf "green : %d %d, "
-         shift_prec.green_shift shift_prec.green_prec;
-       Format.eprintf "blue : %d %d"
-         shift_prec.blue_shift shift_prec.blue_prec;
-       Format.pp_print_newline Format.err_formatter ();
-       let red_lsr = 16 - shift_prec.red_prec
-       and green_lsr = 16 - shift_prec.green_prec
-       and blue_lsr = 16 - shift_prec.blue_prec in
-       fun ~red: red ~green: green ~blue: blue ->
-         (((red lsr red_lsr) lsl shift_prec.red_shift) lor 
-          ((green lsr green_lsr) lsl shift_prec.green_shift) lor
-          ((blue lsr blue_lsr) lsl shift_prec.blue_shift))
-    | _ -> raise (Invalid_argument "Gdk.Truecolor.color_creator")
-
-  let color_parser visual =
-    match Visual.get_type visual with
-      `TRUE_COLOR | `DIRECT_COLOR ->
-       let shift_prec = shift_prec visual in
-       let red_lsr = 16 - shift_prec.red_prec
-       and green_lsr = 16 - shift_prec.green_prec
-       and blue_lsr = 16 - shift_prec.blue_prec in
-       let mask = 1 lsl 16 - 1 in
-       fun pixel ->
-         ((pixel lsr shift_prec.red_shift) lsl red_lsr) land mask,
-         ((pixel lsr shift_prec.green_shift) lsl green_lsr) land mask,
-         ((pixel lsr shift_prec.blue_shift) lsl blue_lsr) land mask
-    | _ -> raise (Invalid_argument "Gdk.Truecolor.color_parser")
-end
-
-module X = struct
-  (* X related functions *)
-  external flush : unit -> unit
-      = "ml_gdk_flush"
-  external beep : unit -> unit
-      = "ml_gdk_beep"
-end
-
-module Cursor = struct
-  type cursor_type = [
-    | `X_CURSOR
-    | `ARROW
-    | `BASED_ARROW_DOWN
-    | `BASED_ARROW_UP
-    | `BOAT
-    | `BOGOSITY
-    | `BOTTOM_LEFT_CORNER
-    | `BOTTOM_RIGHT_CORNER
-    | `BOTTOM_SIDE
-    | `BOTTOM_TEE
-    | `BOX_SPIRAL
-    | `CENTER_PTR
-    | `CIRCLE
-    | `CLOCK
-    | `COFFEE_MUG
-    | `CROSS
-    | `CROSS_REVERSE
-    | `CROSSHAIR
-    | `DIAMOND_CROSS
-    | `DOT
-    | `DOTBOX
-    | `DOUBLE_ARROW
-    | `DRAFT_LARGE
-    | `DRAFT_SMALL
-    | `DRAPED_BOX
-    | `EXCHANGE
-    | `FLEUR
-    | `GOBBLER
-    | `GUMBY
-    | `HAND1
-    | `HAND2
-    | `HEART
-    | `ICON
-    | `IRON_CROSS
-    | `LEFT_PTR
-    | `LEFT_SIDE
-    | `LEFT_TEE
-    | `LEFTBUTTON
-    | `LL_ANGLE
-    | `LR_ANGLE
-    | `MAN
-    | `MIDDLEBUTTON
-    | `MOUSE
-    | `PENCIL
-    | `PIRATE
-    | `PLUS
-    | `QUESTION_ARROW
-    | `RIGHT_PTR
-    | `RIGHT_SIDE
-    | `RIGHT_TEE
-    | `RIGHTBUTTON
-    | `RTL_LOGO
-    | `SAILBOAT
-    | `SB_DOWN_ARROW
-    | `SB_H_DOUBLE_ARROW
-    | `SB_LEFT_ARROW
-    | `SB_RIGHT_ARROW
-    | `SB_UP_ARROW
-    | `SB_V_DOUBLE_ARROW
-    | `SHUTTLE
-    | `SIZING
-    | `SPIDER
-    | `SPRAYCAN
-    | `STAR
-    | `TARGET
-    | `TCROSS
-    | `TOP_LEFT_ARROW
-    | `TOP_LEFT_CORNER
-    | `TOP_RIGHT_CORNER
-    | `TOP_SIDE
-    | `TOP_TEE
-    | `TREK
-    | `UL_ANGLE
-    | `UMBRELLA
-    | `UR_ANGLE
-    | `WATCH
-    | `XTERM
-  ]
-  external create : cursor_type -> cursor = "ml_gdk_cursor_new"
-  external create_from_pixmap :
-    pixmap -> mask:bitmap ->
-    fg:Color.t -> bg:Color.t -> x:int -> y:int -> cursor
-    = "ml_gdk_cursor_new_from_pixmap_bc" "ml_gdk_cursor_new_from_pixmap"
-  external destroy : cursor -> unit = "ml_gdk_cursor_destroy"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gdk.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gdk.mli
deleted file mode 100644 (file)
index 2914b60..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gdk.mli
+++ /dev/null
@@ -1,447 +0,0 @@
-(* $Id$ *)
-
-type colormap
-type visual
-type region
-type gc
-type 'a drawable
-type window = [`window] drawable
-type pixmap = [`pixmap] drawable
-type bitmap = [`bitmap] drawable
-type font
-type image
-type atom = int
-type keysym = int
-type 'a event
-type drag_context
-type cursor
-type xid = int32
-
-exception Error of string
-
-module Tags : sig
-  type event_type =
-    [ `NOTHING|`DELETE|`DESTROY|`EXPOSE|`MOTION_NOTIFY|`BUTTON_PRESS
-     |`TWO_BUTTON_PRESS|`THREE_BUTTON_PRESS
-     |`BUTTON_RELEASE|`KEY_PRESS
-     |`KEY_RELEASE|`ENTER_NOTIFY|`LEAVE_NOTIFY|`FOCUS_CHANGE
-     |`CONFIGURE|`MAP|`UNMAP|`PROPERTY_NOTIFY|`SELECTION_CLEAR
-     |`SELECTION_REQUEST|`SELECTION_NOTIFY|`PROXIMITY_IN
-     |`PROXIMITY_OUT|`DRAG_ENTER|`DRAG_LEAVE|`DRAG_MOTION|`DRAG_STATUS
-     |`DROP_START|`DROP_FINISHED|`CLIENT_EVENT|`VISIBILITY_NOTIFY
-     |`NO_EXPOSE ]
-  type event_mask =
-    [ `EXPOSURE
-     |`POINTER_MOTION|`POINTER_MOTION_HINT
-     |`BUTTON_MOTION|`BUTTON1_MOTION|`BUTTON2_MOTION|`BUTTON3_MOTION
-     |`BUTTON_PRESS|`BUTTON_RELEASE
-     |`KEY_PRESS|`KEY_RELEASE
-     |`ENTER_NOTIFY|`LEAVE_NOTIFY|`FOCUS_CHANGE
-     |`STRUCTURE|`PROPERTY_CHANGE|`VISIBILITY_NOTIFY
-     |`PROXIMITY_IN|`PROXIMITY_OUT|`SUBSTRUCTURE
-     |`ALL_EVENTS ]
-  type extension_events = [ `NONE|`ALL|`CURSOR ]
-  type visibility_state = [ `UNOBSCURED|`PARTIAL|`FULLY_OBSCURED ]
-  type input_source = [ `MOUSE|`PEN|`ERASER|`CURSOR ]
-  type notify_type =
-    [ `ANCESTOR|`VIRTUAL|`INFERIOR|`NONLINEAR|`NONLINEAR_VIRTUAL|`UNKNOWN ] 
-  type crossing_mode = [ `NORMAL|`GRAB|`UNGRAB ]
-  type modifier =
-    [ `SHIFT|`LOCK|`CONTROL|`MOD1|`MOD2|`MOD3|`MOD4|`MOD5|`BUTTON1
-     |`BUTTON2|`BUTTON3|`BUTTON4|`BUTTON5 ]
-  type drag_action = [ `DEFAULT|`COPY|`MOVE|`LINK|`PRIVATE|`ASK ]
-end
-
-module Convert :
-  sig
-    val modifier : int -> Tags.modifier list
-  end
-
-module Screen :
-  sig
-    external width : unit -> int = "ml_gdk_screen_width"
-    external height : unit -> int = "ml_gdk_screen_height"
-  end
-
-module Visual :
-  sig
-    type visual_type =
-      [ `STATIC_GRAY|`GRAYSCALE|`STATIC_COLOR
-       |`PSEUDO_COLOR|`TRUE_COLOR|`DIRECT_COLOR ]
-    external get_best : ?depth:int -> ?kind:visual_type -> unit -> visual
-        = "ml_gdk_visual_get_best"
-    external get_type : visual -> visual_type = "ml_GdkVisual_type"
-    external depth : visual -> int = "ml_GdkVisual_depth"
-    external red_mask : visual -> int = "ml_GdkVisual_red_mask"
-    external red_shift : visual -> int = "ml_GdkVisual_red_shift"
-    external red_prec : visual -> int = "ml_GdkVisual_red_prec"
-    external green_mask : visual -> int = "ml_GdkVisual_green_mask"
-    external green_shift : visual -> int = "ml_GdkVisual_green_shift"
-    external green_prec : visual -> int = "ml_GdkVisual_green_prec"
-    external blue_mask : visual -> int = "ml_GdkVisual_blue_mask"
-    external blue_shift : visual -> int = "ml_GdkVisual_blue_shift"
-    external blue_prec : visual -> int = "ml_GdkVisual_blue_prec"
-  end
-
-module Image :
-  sig
-    type image_type = [ `FASTEST|`NORMAL|`SHARED ]
-    external create_bitmap :
-      visual:visual -> data:string -> width:int -> height:int -> image
-      = "ml_gdk_image_new_bitmap"
-    external create :
-      kind:image_type ->
-      visual:visual -> width:int -> height:int -> image = "ml_gdk_image_new"
-    external get :
-      'a drawable -> x:int -> y:int -> width:int -> height:int -> image
-      = "ml_gdk_image_get"
-    external put_pixel : image -> x:int -> y:int -> pixel:int -> unit
-      = "ml_gdk_image_put_pixel"
-    external get_pixel : image -> x:int -> y:int -> int
-      = "ml_gdk_image_get_pixel"
-    external destroy : image -> unit = "ml_gdk_image_destroy"
-  end
-
-module Color :
-  sig
-    external get_system_colormap : unit -> colormap
-       = "ml_gdk_colormap_get_system"
-    val get_colormap : ?privat:bool -> visual -> colormap
-
-    type t
-    type spec = [
-      | `BLACK
-      | `NAME of string
-      | `RGB of int * int * int
-      | `WHITE
-    ]
-    val alloc : colormap:colormap -> spec -> t
-    external red : t -> int = "ml_GdkColor_red"
-    external blue : t -> int = "ml_GdkColor_blue"
-    external green : t -> int = "ml_GdkColor_green"
-    external pixel : t -> int = "ml_GdkColor_pixel"
-  end
-
-module Rectangle :
-  sig
-    type t
-    external create : x:int -> y:int -> width:int -> height:int -> t
-      = "ml_GdkRectangle"
-    external x : t -> int = "ml_GdkRectangle_x"
-    external y : t -> int = "ml_GdkRectangle_y"
-    external width : t -> int = "ml_GdkRectangle_width"
-    external height : t -> int = "ml_GdkRectangle_height"
-  end
-
-module Window :
-  sig
-    type background_pixmap = [ `NONE|`PARENT_RELATIVE|`PIXMAP of pixmap ]
-    external visual_depth : visual -> int = "ml_gdk_visual_get_depth"
-    external get_visual : window -> visual = "ml_gdk_window_get_visual"
-    external get_parent : window -> window = "ml_gdk_window_get_parent"
-    external get_size : window -> int * int = "ml_gdk_window_get_size"
-    external get_position : window -> int * int
-      = "ml_gdk_window_get_position"
-    external root_parent : unit -> window = "ml_GDK_ROOT_PARENT"
-    external clear : window -> unit = "ml_gdk_window_clear"
-    external get_xwindow : window -> xid = "ml_GDK_WINDOW_XWINDOW"
-    val set_back_pixmap : window -> background_pixmap -> unit
-  end
-
-module PointArray :
-  sig
-    type t = { len: int }
-    external create : len:int -> t = "ml_point_array_new"
-    val set : t -> pos:int -> x:int -> y:int -> unit
-  end
-
-module Region :
-  sig
-    type gdkFillRule = [ `EVEN_ODD_RULE|`WINDING_RULE ]
-    type gdkOverlapType = [ `IN|`OUT|`PART ]
-    external create : unit -> region = "ml_gdk_region_new"
-    external destroy : region -> unit = "ml_gdk_region_destroy"
-    val polygon : (int * int) list -> gdkFillRule -> region 
-    external intersect : region -> region -> region
-      = "ml_gdk_regions_intersect"
-    external union : region -> region -> region 
-      = "ml_gdk_regions_union"
-    external subtract : region -> region -> region 
-      = "ml_gdk_regions_subtract"
-    external xor : region -> region -> region 
-      = "ml_gdk_regions_xor"
-    external union_with_rect : region -> Rectangle.t -> region
-      = "ml_gdk_region_union_with_rect"
-    external offset : region -> x:int -> y:int -> unit = "ml_gdk_region_offset"
-    external shrink : region -> x:int -> y:int -> unit = "ml_gdk_region_shrink"
-    external empty : region -> bool = "ml_gdk_region_empty"
-    external equal : region -> region -> bool = "ml_gdk_region_equal"
-    external point_in : region -> x:int -> y:int -> bool 
-      = "ml_gdk_region_point_in"
-    external rect_in : region -> Rectangle.t -> gdkOverlapType
-      = "ml_gdk_region_rect_in"
-    external get_clipbox : region -> Rectangle.t -> unit
-      = "ml_gdk_region_get_clipbox"
-  end
-
-module GC :
-  sig
-    type gdkFunction = [ `COPY|`INVERT|`XOR ]
-    type gdkFill = [ `SOLID|`TILED|`STIPPLED|`OPAQUE_STIPPLED ]
-    type gdkSubwindowMode = [ `CLIP_BY_CHILDREN|`INCLUDE_INFERIORS ]
-    type gdkLineStyle = [ `SOLID|`ON_OFF_DASH|`DOUBLE_DASH ]
-    type gdkCapStyle = [ `NOT_LAST|`BUTT|`ROUND|`PROJECTING ]
-    type gdkJoinStyle = [ `MITER|`ROUND|`BEVEL ]
-    external create : 'a drawable -> gc = "ml_gdk_gc_new"
-    external set_foreground : gc -> Color.t -> unit
-      = "ml_gdk_gc_set_foreground"
-    external set_background : gc -> Color.t -> unit
-      = "ml_gdk_gc_set_background"
-    external set_font : gc -> font -> unit = "ml_gdk_gc_set_font"
-    external set_function : gc -> gdkFunction -> unit
-      = "ml_gdk_gc_set_function"
-    external set_fill : gc -> gdkFill -> unit = "ml_gdk_gc_set_fill"
-    external set_tile : gc -> pixmap -> unit = "ml_gdk_gc_set_tile"
-    external set_stipple : gc -> pixmap -> unit = "ml_gdk_gc_set_stipple"
-    external set_ts_origin : gc -> x:int -> y:int -> unit
-      = "ml_gdk_gc_set_ts_origin"
-    external set_clip_origin : gc -> x:int -> y:int -> unit
-      = "ml_gdk_gc_set_clip_origin"
-    external set_clip_mask : gc -> bitmap -> unit = "ml_gdk_gc_set_clip_mask"
-    external set_clip_rectangle : gc -> Rectangle.t -> unit
-      = "ml_gdk_gc_set_clip_rectangle"
-    external set_clip_region : gc -> region -> unit
-       = "ml_gdk_gc_set_clip_region"
-    external set_subwindow : gc -> gdkSubwindowMode -> unit
-      = "ml_gdk_gc_set_subwindow"
-    external set_exposures : gc -> bool -> unit = "ml_gdk_gc_set_exposures"
-    external set_line_attributes :
-      gc ->
-      width:int ->
-      style:gdkLineStyle -> cap:gdkCapStyle -> join:gdkJoinStyle -> unit
-      = "ml_gdk_gc_set_line_attributes"
-    external copy : dst:gc -> gc -> unit = "ml_gdk_gc_copy"
-    type values = {
-        foreground : Color.t;
-        background : Color.t;
-        font : font option;
-        fonction : gdkFunction;
-        fill : gdkFill;
-        tile : pixmap option;
-        stipple : pixmap option;
-        clip_mask : bitmap option;
-        subwindow_mode : gdkSubwindowMode;
-        ts_x_origin : int;
-        ts_y_origin : int;
-        clip_x_origin : int;
-        clip_y_origin : int;
-        graphics_exposures : bool;
-        line_width : int;
-        line_style : gdkLineStyle;
-        cap_style : gdkCapStyle;
-        join_style : gdkJoinStyle;
-      }
-    external get_values : gc -> values = "ml_gdk_gc_get_values"
-  end
-
-module Pixmap :
-  sig
-    external create :
-      window -> width:int -> height:int -> depth:int -> pixmap
-      = "ml_gdk_pixmap_new"
-    external create_from_data :
-      window ->
-      string ->
-      width:int ->
-      height:int -> depth:int -> fg:Color.t -> bg:Color.t -> pixmap
-      = "ml_gdk_pixmap_create_from_data_bc" "ml_gk_pixmap_create_from_data"
-    external create_from_xpm :
-      window ->
-      ?colormap:colormap ->
-      ?transparent:Color.t -> file:string -> pixmap * bitmap
-      = "ml_gdk_pixmap_colormap_create_from_xpm"
-    external create_from_xpm_d :
-      window ->
-      ?colormap:colormap ->
-      ?transparent:Color.t -> data:string array -> pixmap * bitmap
-      = "ml_gdk_pixmap_colormap_create_from_xpm_d"
-  end
-
-module Bitmap :
-  sig
-    val create : window -> width:int -> height:int -> bitmap
-    external create_from_data :
-      window -> string -> width:int -> height:int -> bitmap
-      = "ml_gdk_bitmap_create_from_data"
-  end
-
-module Font :
-  sig
-    external load : string -> font = "ml_gdk_font_load"
-    external load_fontset : string -> font = "ml_gdk_fontset_load"
-    external string_width : font -> string -> int = "ml_gdk_string_width"
-    external char_width : font -> char -> int = "ml_gdk_char_width"
-    external string_height : font -> string -> int = "ml_gdk_string_height"
-    external char_height : font -> char -> int = "ml_gdk_char_height"
-    external string_measure : font -> string -> int = "ml_gdk_string_measure"
-    external char_measure : font -> char -> int = "ml_gdk_char_measure"
-    external get_type : font -> [`FONT | `FONTSET] = "ml_GdkFont_type"
-    external ascent : font -> int = "ml_GdkFont_ascent"
-    external descent : font -> int = "ml_GdkFont_descent"
-  end
-
-module Draw :
-  sig
-    external point : 'a drawable -> gc -> x:int -> y:int -> unit
-      = "ml_gdk_draw_point"
-    external line :
-      'a drawable -> gc -> x:int -> y:int -> x:int -> y:int -> unit
-      = "ml_gdk_draw_line_bc" "ml_gdk_draw_line"
-    val rectangle :
-      'a drawable -> gc ->
-      x:int -> y:int -> width:int -> height:int -> ?filled:bool -> unit -> unit
-    val arc :
-      'a drawable -> gc ->
-      x:int -> y:int -> width:int -> height:int ->
-      ?filled:bool -> ?start:float -> ?angle:float -> unit -> unit
-    val polygon :
-      'a drawable -> gc -> ?filled:bool ->(int * int) list -> unit
-    external string :
-      'a drawable ->
-      font:font -> gc -> x:int -> y:int -> string:string -> unit
-      = "ml_gdk_draw_string_bc" "ml_gdk_draw_string"
-    external image :
-      'a drawable ->
-      gc ->
-      image:image ->
-      xsrc:int ->
-      ysrc:int -> xdest:int -> ydest:int -> width:int -> height:int -> unit
-      = "ml_gdk_draw_image_bc" "ml_gdk_draw_image"
-  end
-
-module Rgb :
-  sig
-    external init : unit -> unit = "ml_gdk_rgb_init"
-    external get_visual : unit -> visual = "ml_gdk_rgb_get_visual"
-    external get_cmap : unit -> colormap = "ml_gdk_rgb_get_cmap"
-  end
-
-module DnD :
-  sig
-    external drag_status :
-      drag_context -> Tags.drag_action list -> time:int -> unit
-      = "ml_gdk_drag_status"
-    external drag_context_suggested_action : drag_context -> Tags.drag_action
-      = "ml_GdkDragContext_suggested_action"
-    external drag_context_targets : drag_context -> atom list
-      = "ml_GdkDragContext_targets"
-  end
-
-module Truecolor :
-  sig
-    val color_creator : visual -> (red: int -> green: int -> blue: int -> int)
-       (* [color_creator visual] creates a function to calculate 
-          the pixel color id for given red, green and blue component 
-          value ([0..65535]) at the client side. [visual] must have 
-           `TRUE_COLOR or `DIRECT_COLOR type. This function improves
-           the speed of the color query of true color visual greatly. *)
-       (* WARN: this approach is not theoretically correct for true color
-          visual, because we need gamma correction. *)
-
-    val color_parser : visual -> int -> int * int * int
-  end
-
-module X :
-  (* X related functions *)
-  sig
-    val flush : unit -> unit (* also in GtkMain *)
-    val beep : unit -> unit
-  end
-
-module Cursor : sig
-  type cursor_type = [
-    | `X_CURSOR
-    | `ARROW
-    | `BASED_ARROW_DOWN
-    | `BASED_ARROW_UP
-    | `BOAT
-    | `BOGOSITY
-    | `BOTTOM_LEFT_CORNER
-    | `BOTTOM_RIGHT_CORNER
-    | `BOTTOM_SIDE
-    | `BOTTOM_TEE
-    | `BOX_SPIRAL
-    | `CENTER_PTR
-    | `CIRCLE
-    | `CLOCK
-    | `COFFEE_MUG
-    | `CROSS
-    | `CROSS_REVERSE
-    | `CROSSHAIR
-    | `DIAMOND_CROSS
-    | `DOT
-    | `DOTBOX
-    | `DOUBLE_ARROW
-    | `DRAFT_LARGE
-    | `DRAFT_SMALL
-    | `DRAPED_BOX
-    | `EXCHANGE
-    | `FLEUR
-    | `GOBBLER
-    | `GUMBY
-    | `HAND1
-    | `HAND2
-    | `HEART
-    | `ICON
-    | `IRON_CROSS
-    | `LEFT_PTR
-    | `LEFT_SIDE
-    | `LEFT_TEE
-    | `LEFTBUTTON
-    | `LL_ANGLE
-    | `LR_ANGLE
-    | `MAN
-    | `MIDDLEBUTTON
-    | `MOUSE
-    | `PENCIL
-    | `PIRATE
-    | `PLUS
-    | `QUESTION_ARROW
-    | `RIGHT_PTR
-    | `RIGHT_SIDE
-    | `RIGHT_TEE
-    | `RIGHTBUTTON
-    | `RTL_LOGO
-    | `SAILBOAT
-    | `SB_DOWN_ARROW
-    | `SB_H_DOUBLE_ARROW
-    | `SB_LEFT_ARROW
-    | `SB_RIGHT_ARROW
-    | `SB_UP_ARROW
-    | `SB_V_DOUBLE_ARROW
-    | `SHUTTLE
-    | `SIZING
-    | `SPIDER
-    | `SPRAYCAN
-    | `STAR
-    | `TARGET
-    | `TCROSS
-    | `TOP_LEFT_ARROW
-    | `TOP_LEFT_CORNER
-    | `TOP_RIGHT_CORNER
-    | `TOP_SIDE
-    | `TOP_TEE
-    | `TREK
-    | `UL_ANGLE
-    | `UMBRELLA
-    | `UR_ANGLE
-    | `WATCH
-    | `XTERM
-  ]
-  external create : cursor_type -> cursor = "ml_gdk_cursor_new"
-  external create_from_pixmap :
-    pixmap -> mask:bitmap ->
-    fg:Color.t -> bg:Color.t -> x:int -> y:int -> cursor
-    = "ml_gdk_cursor_new_from_pixmap_bc" "ml_gdk_cursor_new_from_pixmap"
-  external destroy : cursor -> unit = "ml_gdk_cursor_destroy"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gdkEvent.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gdkEvent.ml
deleted file mode 100644 (file)
index 87c0e88..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gdkEvent.ml
+++ /dev/null
@@ -1,159 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gdk
-open Tags
-
-external coerce : 'a event -> event_type event = "%identity"
-external unsafe_copy : Gpointer.boxed -> #event_type event
-    = "ml_gdk_event_copy"
-external copy : (#event_type as 'a) event -> 'a event
-    = "ml_gdk_event_copy"
-external get_type : 'a event -> 'a = "ml_GdkEventAny_type"
-external get_window : 'a event -> window = "ml_GdkEventAny_window"
-external get_send_event : 'a event -> bool = "ml_GdkEventAny_send_event"
-
-external create : (#event_type as 'a) -> 'a event
-    = "ml_gdk_event_new"
-external set_window : 'a event -> window -> unit
-    = "ml_gdk_event_set_window"
-
-module Expose = struct
-  type t = [ `EXPOSE ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with `EXPOSE -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Expose.cast"
-  external area : t -> Rectangle.t = "ml_GdkEventExpose_area"
-  external count : t -> int = "ml_GdkEventExpose_count"
-end
-
-module Visibility = struct
-  type t = [ `VISIBILITY_NOTIFY ] event
-  let cast (ev :  event_type event) : t =
-    match get_type ev with `VISIBILITY_NOTIFY -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Visibility.cast"
-  external visibility : t -> visibility_state
-      = "ml_GdkEventVisibility_state"
-end
-
-module Motion = struct
-  type t = [ `MOTION_NOTIFY ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with `MOTION_NOTIFY -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Motion.cast"
-  external time : t -> int = "ml_GdkEventMotion_time"
-  external x : t -> float = "ml_GdkEventMotion_x"
-  external y : t -> float = "ml_GdkEventMotion_y"
-  external pressure : t -> float = "ml_GdkEventMotion_pressure"
-  external xtilt : t -> float = "ml_GdkEventMotion_xtilt"
-  external ytilt : t -> float = "ml_GdkEventMotion_ytilt"
-  external state : t -> int = "ml_GdkEventMotion_state"
-  external is_hint : t -> bool = "ml_GdkEventMotion_is_hint"
-  external source : t -> input_source = "ml_GdkEventMotion_source"
-  external deviceid : t -> int = "ml_GdkEventMotion_deviceid"
-  external x_root : t -> float = "ml_GdkEventMotion_x_root"
-  external y_root : t -> float = "ml_GdkEventMotion_y_root"
-end
-
-module Button = struct
-  type types =
-      [ `BUTTON_PRESS|`TWO_BUTTON_PRESS|`THREE_BUTTON_PRESS|`BUTTON_RELEASE ]
-  type t = types event
-  let cast (ev : event_type event) : t =
-    match get_type ev with
-      `BUTTON_PRESS|`TWO_BUTTON_PRESS|`THREE_BUTTON_PRESS|`BUTTON_RELEASE
-      -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Button.cast"
-  external time : t -> int = "ml_GdkEventButton_time"
-  external x : t -> float = "ml_GdkEventButton_x"
-  external y : t -> float = "ml_GdkEventButton_y"
-  external pressure : t -> float = "ml_GdkEventButton_pressure"
-  external xtilt : t -> float = "ml_GdkEventButton_xtilt"
-  external ytilt : t -> float = "ml_GdkEventButton_ytilt"
-  external state : t -> int = "ml_GdkEventButton_state"
-  external button : t -> int = "ml_GdkEventButton_button"
-  external source : t -> input_source = "ml_GdkEventButton_source"
-  external deviceid : t -> int = "ml_GdkEventButton_deviceid"
-  external x_root : t -> float = "ml_GdkEventButton_x_root"
-  external y_root : t -> float = "ml_GdkEventButton_y_root"
-  external set_type : t -> #types -> unit
-      = "ml_gdk_event_set_type"
-  external set_button : t -> int -> unit
-      = "ml_gdk_event_button_set_button"
-end
-
-module Key = struct
-  type t = [ `KEY_PRESS|`KEY_RELEASE ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with
-      `KEY_PRESS|`KEY_RELEASE -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Key.cast"
-  external time : t -> int = "ml_GdkEventKey_time"
-  external state : t -> int = "ml_GdkEventKey_state"
-  external keyval : t -> keysym = "ml_GdkEventKey_keyval"
-  external string : t -> string = "ml_GdkEventKey_string"
-  let state ev = Convert.modifier (state ev)
-end
-
-module Crossing = struct
-  type t = [ `ENTER_NOTIFY|`LEAVE_NOTIFY ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with
-      `ENTER_NOTIFY|`LEAVE_NOTIFY -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Crossing.cast"
-  external subwindow : t -> window = "ml_GdkEventCrossing_subwindow"
-  external detail : t -> notify_type = "ml_GdkEventCrossing_detail"
-end
-
-module Focus = struct
-  type t = [ `FOCUS_CHANGE ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with `FOCUS_CHANGE -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Focus.cast"
-  external focus_in : t -> bool = "ml_GdkEventFocus_in"
-end
-
-module Configure = struct
-  type t = [ `CONFIGURE ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with `CONFIGURE -> Obj.magic ev
-    |  _ -> invalid_arg "GdkEvent.Configure.cast"
-  external x : t -> int = "ml_GdkEventConfigure_x"
-  external y : t -> int = "ml_GdkEventConfigure_y"
-  external width : t -> int = "ml_GdkEventConfigure_width"
-  external height : t -> int = "ml_GdkEventConfigure_height"
-end
-
-module Property = struct
-  type t = [ `PROPERTY_NOTIFY ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with `PROPERTY_NOTIFY -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Property.cast"
-  external atom : t -> atom = "ml_GdkEventProperty_atom"
-  external time : t -> int = "ml_GdkEventProperty_time"
-  external state : t -> int = "ml_GdkEventProperty_state"
-end
-
-module Selection = struct
-  type t = [ `SELECTION_CLEAR|`SELECTION_REQUEST|`SELECTION_NOTIFY ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with
-      `SELECTION_CLEAR|`SELECTION_REQUEST|`SELECTION_NOTIFY -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Selection.cast"
-  external selection : t -> atom = "ml_GdkEventSelection_selection"
-  external target : t -> atom = "ml_GdkEventSelection_target"
-  external property : t -> atom = "ml_GdkEventSelection_property"
-  external requestor : t -> int = "ml_GdkEventSelection_requestor"
-  external time : t -> int = "ml_GdkEventSelection_time"
-end
-
-module Proximity = struct
-  type t = [ `PROXIMITY_IN|`PROXIMITY_OUT ] event
-  let cast (ev : event_type event) : t =
-    match get_type ev with
-      `PROXIMITY_IN|`PROXIMITY_OUT -> Obj.magic ev
-    | _ -> invalid_arg "GdkEvent.Proximity.cast"
-  external time : t -> int = "ml_GdkEventProximity_time"
-  external source : t -> input_source = "ml_GdkEventProximity_source"
-  external deviceid : t -> int = "ml_GdkEventProximity_deviceid"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gdkKeysyms.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gdkKeysyms.ml
deleted file mode 100644 (file)
index b0257b4..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gdkKeysyms.ml
+++ /dev/null
@@ -1,1320 +0,0 @@
-(* $Id$ *)
-
-open Gdk
-let _VoidSymbol : keysym = 0xFFFFFF
-let _BackSpace : keysym = 0xFF08
-let _Tab : keysym = 0xFF09
-let _Linefeed : keysym = 0xFF0A
-let _Clear : keysym = 0xFF0B
-let _Return : keysym = 0xFF0D
-let _Pause : keysym = 0xFF13
-let _Scroll_Lock : keysym = 0xFF14
-let _Sys_Req : keysym = 0xFF15
-let _Escape : keysym = 0xFF1B
-let _Delete : keysym = 0xFFFF
-let _Multi_key : keysym = 0xFF20
-let _SingleCandidate : keysym = 0xFF3C
-let _MultipleCandidate : keysym = 0xFF3D
-let _PreviousCandidate : keysym = 0xFF3E
-let _Kanji : keysym = 0xFF21
-let _Muhenkan : keysym = 0xFF22
-let _Henkan_Mode : keysym = 0xFF23
-let _Henkan : keysym = 0xFF23
-let _Romaji : keysym = 0xFF24
-let _Hiragana : keysym = 0xFF25
-let _Katakana : keysym = 0xFF26
-let _Hiragana_Katakana : keysym = 0xFF27
-let _Zenkaku : keysym = 0xFF28
-let _Hankaku : keysym = 0xFF29
-let _Zenkaku_Hankaku : keysym = 0xFF2A
-let _Touroku : keysym = 0xFF2B
-let _Massyo : keysym = 0xFF2C
-let _Kana_Lock : keysym = 0xFF2D
-let _Kana_Shift : keysym = 0xFF2E
-let _Eisu_Shift : keysym = 0xFF2F
-let _Eisu_toggle : keysym = 0xFF30
-let _Zen_Koho : keysym = 0xFF3D
-let _Mae_Koho : keysym = 0xFF3E
-let _Home : keysym = 0xFF50
-let _Left : keysym = 0xFF51
-let _Up : keysym = 0xFF52
-let _Right : keysym = 0xFF53
-let _Down : keysym = 0xFF54
-let _Prior : keysym = 0xFF55
-let _Page_Up : keysym = 0xFF55
-let _Next : keysym = 0xFF56
-let _Page_Down : keysym = 0xFF56
-let _End : keysym = 0xFF57
-let _Begin : keysym = 0xFF58
-let _Select : keysym = 0xFF60
-let _Print : keysym = 0xFF61
-let _Execute : keysym = 0xFF62
-let _Insert : keysym = 0xFF63
-let _Undo : keysym = 0xFF65
-let _Redo : keysym = 0xFF66
-let _Menu : keysym = 0xFF67
-let _Find : keysym = 0xFF68
-let _Cancel : keysym = 0xFF69
-let _Help : keysym = 0xFF6A
-let _Break : keysym = 0xFF6B
-let _Mode_switch : keysym = 0xFF7E
-let _script_switch : keysym = 0xFF7E
-let _Num_Lock : keysym = 0xFF7F
-let _KP_Space : keysym = 0xFF80
-let _KP_Tab : keysym = 0xFF89
-let _KP_Enter : keysym = 0xFF8D
-let _KP_F1 : keysym = 0xFF91
-let _KP_F2 : keysym = 0xFF92
-let _KP_F3 : keysym = 0xFF93
-let _KP_F4 : keysym = 0xFF94
-let _KP_Home : keysym = 0xFF95
-let _KP_Left : keysym = 0xFF96
-let _KP_Up : keysym = 0xFF97
-let _KP_Right : keysym = 0xFF98
-let _KP_Down : keysym = 0xFF99
-let _KP_Prior : keysym = 0xFF9A
-let _KP_Page_Up : keysym = 0xFF9A
-let _KP_Next : keysym = 0xFF9B
-let _KP_Page_Down : keysym = 0xFF9B
-let _KP_End : keysym = 0xFF9C
-let _KP_Begin : keysym = 0xFF9D
-let _KP_Insert : keysym = 0xFF9E
-let _KP_Delete : keysym = 0xFF9F
-let _KP_Equal : keysym = 0xFFBD
-let _KP_Multiply : keysym = 0xFFAA
-let _KP_Add : keysym = 0xFFAB
-let _KP_Separator : keysym = 0xFFAC
-let _KP_Subtract : keysym = 0xFFAD
-let _KP_Decimal : keysym = 0xFFAE
-let _KP_Divide : keysym = 0xFFAF
-let _KP_0 : keysym = 0xFFB0
-let _KP_1 : keysym = 0xFFB1
-let _KP_2 : keysym = 0xFFB2
-let _KP_3 : keysym = 0xFFB3
-let _KP_4 : keysym = 0xFFB4
-let _KP_5 : keysym = 0xFFB5
-let _KP_6 : keysym = 0xFFB6
-let _KP_7 : keysym = 0xFFB7
-let _KP_8 : keysym = 0xFFB8
-let _KP_9 : keysym = 0xFFB9
-let _F1 : keysym = 0xFFBE
-let _F2 : keysym = 0xFFBF
-let _F3 : keysym = 0xFFC0
-let _F4 : keysym = 0xFFC1
-let _F5 : keysym = 0xFFC2
-let _F6 : keysym = 0xFFC3
-let _F7 : keysym = 0xFFC4
-let _F8 : keysym = 0xFFC5
-let _F9 : keysym = 0xFFC6
-let _F10 : keysym = 0xFFC7
-let _F11 : keysym = 0xFFC8
-let _L1 : keysym = 0xFFC8
-let _F12 : keysym = 0xFFC9
-let _L2 : keysym = 0xFFC9
-let _F13 : keysym = 0xFFCA
-let _L3 : keysym = 0xFFCA
-let _F14 : keysym = 0xFFCB
-let _L4 : keysym = 0xFFCB
-let _F15 : keysym = 0xFFCC
-let _L5 : keysym = 0xFFCC
-let _F16 : keysym = 0xFFCD
-let _L6 : keysym = 0xFFCD
-let _F17 : keysym = 0xFFCE
-let _L7 : keysym = 0xFFCE
-let _F18 : keysym = 0xFFCF
-let _L8 : keysym = 0xFFCF
-let _F19 : keysym = 0xFFD0
-let _L9 : keysym = 0xFFD0
-let _F20 : keysym = 0xFFD1
-let _L10 : keysym = 0xFFD1
-let _F21 : keysym = 0xFFD2
-let _R1 : keysym = 0xFFD2
-let _F22 : keysym = 0xFFD3
-let _R2 : keysym = 0xFFD3
-let _F23 : keysym = 0xFFD4
-let _R3 : keysym = 0xFFD4
-let _F24 : keysym = 0xFFD5
-let _R4 : keysym = 0xFFD5
-let _F25 : keysym = 0xFFD6
-let _R5 : keysym = 0xFFD6
-let _F26 : keysym = 0xFFD7
-let _R6 : keysym = 0xFFD7
-let _F27 : keysym = 0xFFD8
-let _R7 : keysym = 0xFFD8
-let _F28 : keysym = 0xFFD9
-let _R8 : keysym = 0xFFD9
-let _F29 : keysym = 0xFFDA
-let _R9 : keysym = 0xFFDA
-let _F30 : keysym = 0xFFDB
-let _R10 : keysym = 0xFFDB
-let _F31 : keysym = 0xFFDC
-let _R11 : keysym = 0xFFDC
-let _F32 : keysym = 0xFFDD
-let _R12 : keysym = 0xFFDD
-let _F33 : keysym = 0xFFDE
-let _R13 : keysym = 0xFFDE
-let _F34 : keysym = 0xFFDF
-let _R14 : keysym = 0xFFDF
-let _F35 : keysym = 0xFFE0
-let _R15 : keysym = 0xFFE0
-let _Shift_L : keysym = 0xFFE1
-let _Shift_R : keysym = 0xFFE2
-let _Control_L : keysym = 0xFFE3
-let _Control_R : keysym = 0xFFE4
-let _Caps_Lock : keysym = 0xFFE5
-let _Shift_Lock : keysym = 0xFFE6
-let _Meta_L : keysym = 0xFFE7
-let _Meta_R : keysym = 0xFFE8
-let _Alt_L : keysym = 0xFFE9
-let _Alt_R : keysym = 0xFFEA
-let _Super_L : keysym = 0xFFEB
-let _Super_R : keysym = 0xFFEC
-let _Hyper_L : keysym = 0xFFED
-let _Hyper_R : keysym = 0xFFEE
-let _ISO_Lock : keysym = 0xFE01
-let _ISO_Level2_Latch : keysym = 0xFE02
-let _ISO_Level3_Shift : keysym = 0xFE03
-let _ISO_Level3_Latch : keysym = 0xFE04
-let _ISO_Level3_Lock : keysym = 0xFE05
-let _ISO_Group_Shift : keysym = 0xFF7E
-let _ISO_Group_Latch : keysym = 0xFE06
-let _ISO_Group_Lock : keysym = 0xFE07
-let _ISO_Next_Group : keysym = 0xFE08
-let _ISO_Next_Group_Lock : keysym = 0xFE09
-let _ISO_Prev_Group : keysym = 0xFE0A
-let _ISO_Prev_Group_Lock : keysym = 0xFE0B
-let _ISO_First_Group : keysym = 0xFE0C
-let _ISO_First_Group_Lock : keysym = 0xFE0D
-let _ISO_Last_Group : keysym = 0xFE0E
-let _ISO_Last_Group_Lock : keysym = 0xFE0F
-let _ISO_Left_Tab : keysym = 0xFE20
-let _ISO_Move_Line_Up : keysym = 0xFE21
-let _ISO_Move_Line_Down : keysym = 0xFE22
-let _ISO_Partial_Line_Up : keysym = 0xFE23
-let _ISO_Partial_Line_Down : keysym = 0xFE24
-let _ISO_Partial_Space_Left : keysym = 0xFE25
-let _ISO_Partial_Space_Right : keysym = 0xFE26
-let _ISO_Set_Margin_Left : keysym = 0xFE27
-let _ISO_Set_Margin_Right : keysym = 0xFE28
-let _ISO_Release_Margin_Left : keysym = 0xFE29
-let _ISO_Release_Margin_Right : keysym = 0xFE2A
-let _ISO_Release_Both_Margins : keysym = 0xFE2B
-let _ISO_Fast_Cursor_Left : keysym = 0xFE2C
-let _ISO_Fast_Cursor_Right : keysym = 0xFE2D
-let _ISO_Fast_Cursor_Up : keysym = 0xFE2E
-let _ISO_Fast_Cursor_Down : keysym = 0xFE2F
-let _ISO_Continuous_Underline : keysym = 0xFE30
-let _ISO_Discontinuous_Underline : keysym = 0xFE31
-let _ISO_Emphasize : keysym = 0xFE32
-let _ISO_Center_Object : keysym = 0xFE33
-let _ISO_Enter : keysym = 0xFE34
-let _dead_grave : keysym = 0xFE50
-let _dead_acute : keysym = 0xFE51
-let _dead_circumflex : keysym = 0xFE52
-let _dead_tilde : keysym = 0xFE53
-let _dead_macron : keysym = 0xFE54
-let _dead_breve : keysym = 0xFE55
-let _dead_abovedot : keysym = 0xFE56
-let _dead_diaeresis : keysym = 0xFE57
-let _dead_abovering : keysym = 0xFE58
-let _dead_doubleacute : keysym = 0xFE59
-let _dead_caron : keysym = 0xFE5A
-let _dead_cedilla : keysym = 0xFE5B
-let _dead_ogonek : keysym = 0xFE5C
-let _dead_iota : keysym = 0xFE5D
-let _dead_voiced_sound : keysym = 0xFE5E
-let _dead_semivoiced_sound : keysym = 0xFE5F
-let _dead_belowdot : keysym = 0xFE60
-let _First_Virtual_Screen : keysym = 0xFED0
-let _Prev_Virtual_Screen : keysym = 0xFED1
-let _Next_Virtual_Screen : keysym = 0xFED2
-let _Last_Virtual_Screen : keysym = 0xFED4
-let _Terminate_Server : keysym = 0xFED5
-let _AccessX_Enable : keysym = 0xFE70
-let _AccessX_Feedback_Enable : keysym = 0xFE71
-let _RepeatKeys_Enable : keysym = 0xFE72
-let _SlowKeys_Enable : keysym = 0xFE73
-let _BounceKeys_Enable : keysym = 0xFE74
-let _StickyKeys_Enable : keysym = 0xFE75
-let _MouseKeys_Enable : keysym = 0xFE76
-let _MouseKeys_Accel_Enable : keysym = 0xFE77
-let _Overlay1_Enable : keysym = 0xFE78
-let _Overlay2_Enable : keysym = 0xFE79
-let _AudibleBell_Enable : keysym = 0xFE7A
-let _Pointer_Left : keysym = 0xFEE0
-let _Pointer_Right : keysym = 0xFEE1
-let _Pointer_Up : keysym = 0xFEE2
-let _Pointer_Down : keysym = 0xFEE3
-let _Pointer_UpLeft : keysym = 0xFEE4
-let _Pointer_UpRight : keysym = 0xFEE5
-let _Pointer_DownLeft : keysym = 0xFEE6
-let _Pointer_DownRight : keysym = 0xFEE7
-let _Pointer_Button_Dflt : keysym = 0xFEE8
-let _Pointer_Button1 : keysym = 0xFEE9
-let _Pointer_Button2 : keysym = 0xFEEA
-let _Pointer_Button3 : keysym = 0xFEEB
-let _Pointer_Button4 : keysym = 0xFEEC
-let _Pointer_Button5 : keysym = 0xFEED
-let _Pointer_DblClick_Dflt : keysym = 0xFEEE
-let _Pointer_DblClick1 : keysym = 0xFEEF
-let _Pointer_DblClick2 : keysym = 0xFEF0
-let _Pointer_DblClick3 : keysym = 0xFEF1
-let _Pointer_DblClick4 : keysym = 0xFEF2
-let _Pointer_DblClick5 : keysym = 0xFEF3
-let _Pointer_Drag_Dflt : keysym = 0xFEF4
-let _Pointer_Drag1 : keysym = 0xFEF5
-let _Pointer_Drag2 : keysym = 0xFEF6
-let _Pointer_Drag3 : keysym = 0xFEF7
-let _Pointer_Drag4 : keysym = 0xFEF8
-let _Pointer_Drag5 : keysym = 0xFEFD
-let _Pointer_EnableKeys : keysym = 0xFEF9
-let _Pointer_Accelerate : keysym = 0xFEFA
-let _Pointer_DfltBtnNext : keysym = 0xFEFB
-let _Pointer_DfltBtnPrev : keysym = 0xFEFC
-let _3270_Duplicate : keysym = 0xFD01
-let _3270_FieldMark : keysym = 0xFD02
-let _3270_Right2 : keysym = 0xFD03
-let _3270_Left2 : keysym = 0xFD04
-let _3270_BackTab : keysym = 0xFD05
-let _3270_EraseEOF : keysym = 0xFD06
-let _3270_EraseInput : keysym = 0xFD07
-let _3270_Reset : keysym = 0xFD08
-let _3270_Quit : keysym = 0xFD09
-let _3270_PA1 : keysym = 0xFD0A
-let _3270_PA2 : keysym = 0xFD0B
-let _3270_PA3 : keysym = 0xFD0C
-let _3270_Test : keysym = 0xFD0D
-let _3270_Attn : keysym = 0xFD0E
-let _3270_CursorBlink : keysym = 0xFD0F
-let _3270_AltCursor : keysym = 0xFD10
-let _3270_KeyClick : keysym = 0xFD11
-let _3270_Jump : keysym = 0xFD12
-let _3270_Ident : keysym = 0xFD13
-let _3270_Rule : keysym = 0xFD14
-let _3270_Copy : keysym = 0xFD15
-let _3270_Play : keysym = 0xFD16
-let _3270_Setup : keysym = 0xFD17
-let _3270_Record : keysym = 0xFD18
-let _3270_ChangeScreen : keysym = 0xFD19
-let _3270_DeleteWord : keysym = 0xFD1A
-let _3270_ExSelect : keysym = 0xFD1B
-let _3270_CursorSelect : keysym = 0xFD1C
-let _3270_PrintScreen : keysym = 0xFD1D
-let _3270_Enter : keysym = 0xFD1E
-let _space : keysym = 0x020
-let _exclam : keysym = 0x021
-let _quotedbl : keysym = 0x022
-let _numbersign : keysym = 0x023
-let _dollar : keysym = 0x024
-let _percent : keysym = 0x025
-let _ampersand : keysym = 0x026
-let _apostrophe : keysym = 0x027
-let _quoteright : keysym = 0x027
-let _parenleft : keysym = 0x028
-let _parenright : keysym = 0x029
-let _asterisk : keysym = 0x02a
-let _plus : keysym = 0x02b
-let _comma : keysym = 0x02c
-let _minus : keysym = 0x02d
-let _period : keysym = 0x02e
-let _slash : keysym = 0x02f
-let _0 : keysym = 0x030
-let _1 : keysym = 0x031
-let _2 : keysym = 0x032
-let _3 : keysym = 0x033
-let _4 : keysym = 0x034
-let _5 : keysym = 0x035
-let _6 : keysym = 0x036
-let _7 : keysym = 0x037
-let _8 : keysym = 0x038
-let _9 : keysym = 0x039
-let _colon : keysym = 0x03a
-let _semicolon : keysym = 0x03b
-let _less : keysym = 0x03c
-let _equal : keysym = 0x03d
-let _greater : keysym = 0x03e
-let _question : keysym = 0x03f
-let _at : keysym = 0x040
-let _A : keysym = 0x041
-let _B : keysym = 0x042
-let _C : keysym = 0x043
-let _D : keysym = 0x044
-let _E : keysym = 0x045
-let _F : keysym = 0x046
-let _G : keysym = 0x047
-let _H : keysym = 0x048
-let _I : keysym = 0x049
-let _J : keysym = 0x04a
-let _K : keysym = 0x04b
-let _L : keysym = 0x04c
-let _M : keysym = 0x04d
-let _N : keysym = 0x04e
-let _O : keysym = 0x04f
-let _P : keysym = 0x050
-let _Q : keysym = 0x051
-let _R : keysym = 0x052
-let _S : keysym = 0x053
-let _T : keysym = 0x054
-let _U : keysym = 0x055
-let _V : keysym = 0x056
-let _W : keysym = 0x057
-let _X : keysym = 0x058
-let _Y : keysym = 0x059
-let _Z : keysym = 0x05a
-let _bracketleft : keysym = 0x05b
-let _backslash : keysym = 0x05c
-let _bracketright : keysym = 0x05d
-let _asciicircum : keysym = 0x05e
-let _underscore : keysym = 0x05f
-let _grave : keysym = 0x060
-let _quoteleft : keysym = 0x060
-let _a : keysym = 0x061
-let _b : keysym = 0x062
-let _c : keysym = 0x063
-let _d : keysym = 0x064
-let _e : keysym = 0x065
-let _f : keysym = 0x066
-let _g : keysym = 0x067
-let _h : keysym = 0x068
-let _i : keysym = 0x069
-let _j : keysym = 0x06a
-let _k : keysym = 0x06b
-let _l : keysym = 0x06c
-let _m : keysym = 0x06d
-let _n : keysym = 0x06e
-let _o : keysym = 0x06f
-let _p : keysym = 0x070
-let _q : keysym = 0x071
-let _r : keysym = 0x072
-let _s : keysym = 0x073
-let _t : keysym = 0x074
-let _u : keysym = 0x075
-let _v : keysym = 0x076
-let _w : keysym = 0x077
-let _x : keysym = 0x078
-let _y : keysym = 0x079
-let _z : keysym = 0x07a
-let _braceleft : keysym = 0x07b
-let _bar : keysym = 0x07c
-let _braceright : keysym = 0x07d
-let _asciitilde : keysym = 0x07e
-let _nobreakspace : keysym = 0x0a0
-let _exclamdown : keysym = 0x0a1
-let _cent : keysym = 0x0a2
-let _sterling : keysym = 0x0a3
-let _currency : keysym = 0x0a4
-let _yen : keysym = 0x0a5
-let _brokenbar : keysym = 0x0a6
-let _section : keysym = 0x0a7
-let _diaeresis : keysym = 0x0a8
-let _copyright : keysym = 0x0a9
-let _ordfeminine : keysym = 0x0aa
-let _guillemotleft : keysym = 0x0ab
-let _notsign : keysym = 0x0ac
-let _hyphen : keysym = 0x0ad
-let _registered : keysym = 0x0ae
-let _macron : keysym = 0x0af
-let _degree : keysym = 0x0b0
-let _plusminus : keysym = 0x0b1
-let _twosuperior : keysym = 0x0b2
-let _threesuperior : keysym = 0x0b3
-let _acute : keysym = 0x0b4
-let _mu : keysym = 0x0b5
-let _paragraph : keysym = 0x0b6
-let _periodcentered : keysym = 0x0b7
-let _cedilla : keysym = 0x0b8
-let _onesuperior : keysym = 0x0b9
-let _masculine : keysym = 0x0ba
-let _guillemotright : keysym = 0x0bb
-let _onequarter : keysym = 0x0bc
-let _onehalf : keysym = 0x0bd
-let _threequarters : keysym = 0x0be
-let _questiondown : keysym = 0x0bf
-let _Agrave : keysym = 0x0c0
-let _Aacute : keysym = 0x0c1
-let _Acircumflex : keysym = 0x0c2
-let _Atilde : keysym = 0x0c3
-let _Adiaeresis : keysym = 0x0c4
-let _Aring : keysym = 0x0c5
-let _AE : keysym = 0x0c6
-let _Ccedilla : keysym = 0x0c7
-let _Egrave : keysym = 0x0c8
-let _Eacute : keysym = 0x0c9
-let _Ecircumflex : keysym = 0x0ca
-let _Ediaeresis : keysym = 0x0cb
-let _Igrave : keysym = 0x0cc
-let _Iacute : keysym = 0x0cd
-let _Icircumflex : keysym = 0x0ce
-let _Idiaeresis : keysym = 0x0cf
-let _ETH : keysym = 0x0d0
-let _Eth : keysym = 0x0d0
-let _Ntilde : keysym = 0x0d1
-let _Ograve : keysym = 0x0d2
-let _Oacute : keysym = 0x0d3
-let _Ocircumflex : keysym = 0x0d4
-let _Otilde : keysym = 0x0d5
-let _Odiaeresis : keysym = 0x0d6
-let _multiply : keysym = 0x0d7
-let _Ooblique : keysym = 0x0d8
-let _Ugrave : keysym = 0x0d9
-let _Uacute : keysym = 0x0da
-let _Ucircumflex : keysym = 0x0db
-let _Udiaeresis : keysym = 0x0dc
-let _Yacute : keysym = 0x0dd
-let _THORN : keysym = 0x0de
-let _Thorn : keysym = 0x0de
-let _ssharp : keysym = 0x0df
-let _agrave : keysym = 0x0e0
-let _aacute : keysym = 0x0e1
-let _acircumflex : keysym = 0x0e2
-let _atilde : keysym = 0x0e3
-let _adiaeresis : keysym = 0x0e4
-let _aring : keysym = 0x0e5
-let _ae : keysym = 0x0e6
-let _ccedilla : keysym = 0x0e7
-let _egrave : keysym = 0x0e8
-let _eacute : keysym = 0x0e9
-let _ecircumflex : keysym = 0x0ea
-let _ediaeresis : keysym = 0x0eb
-let _igrave : keysym = 0x0ec
-let _iacute : keysym = 0x0ed
-let _icircumflex : keysym = 0x0ee
-let _idiaeresis : keysym = 0x0ef
-let _eth : keysym = 0x0f0
-let _ntilde : keysym = 0x0f1
-let _ograve : keysym = 0x0f2
-let _oacute : keysym = 0x0f3
-let _ocircumflex : keysym = 0x0f4
-let _otilde : keysym = 0x0f5
-let _odiaeresis : keysym = 0x0f6
-let _division : keysym = 0x0f7
-let _oslash : keysym = 0x0f8
-let _ugrave : keysym = 0x0f9
-let _uacute : keysym = 0x0fa
-let _ucircumflex : keysym = 0x0fb
-let _udiaeresis : keysym = 0x0fc
-let _yacute : keysym = 0x0fd
-let _thorn : keysym = 0x0fe
-let _ydiaeresis : keysym = 0x0ff
-let _Aogonek : keysym = 0x1a1
-let _breve : keysym = 0x1a2
-let _Lstroke : keysym = 0x1a3
-let _Lcaron : keysym = 0x1a5
-let _Sacute : keysym = 0x1a6
-let _Scaron : keysym = 0x1a9
-let _Scedilla : keysym = 0x1aa
-let _Tcaron : keysym = 0x1ab
-let _Zacute : keysym = 0x1ac
-let _Zcaron : keysym = 0x1ae
-let _Zabovedot : keysym = 0x1af
-let _aogonek : keysym = 0x1b1
-let _ogonek : keysym = 0x1b2
-let _lstroke : keysym = 0x1b3
-let _lcaron : keysym = 0x1b5
-let _sacute : keysym = 0x1b6
-let _caron : keysym = 0x1b7
-let _scaron : keysym = 0x1b9
-let _scedilla : keysym = 0x1ba
-let _tcaron : keysym = 0x1bb
-let _zacute : keysym = 0x1bc
-let _doubleacute : keysym = 0x1bd
-let _zcaron : keysym = 0x1be
-let _zabovedot : keysym = 0x1bf
-let _Racute : keysym = 0x1c0
-let _Abreve : keysym = 0x1c3
-let _Lacute : keysym = 0x1c5
-let _Cacute : keysym = 0x1c6
-let _Ccaron : keysym = 0x1c8
-let _Eogonek : keysym = 0x1ca
-let _Ecaron : keysym = 0x1cc
-let _Dcaron : keysym = 0x1cf
-let _Dstroke : keysym = 0x1d0
-let _Nacute : keysym = 0x1d1
-let _Ncaron : keysym = 0x1d2
-let _Odoubleacute : keysym = 0x1d5
-let _Rcaron : keysym = 0x1d8
-let _Uring : keysym = 0x1d9
-let _Udoubleacute : keysym = 0x1db
-let _Tcedilla : keysym = 0x1de
-let _racute : keysym = 0x1e0
-let _abreve : keysym = 0x1e3
-let _lacute : keysym = 0x1e5
-let _cacute : keysym = 0x1e6
-let _ccaron : keysym = 0x1e8
-let _eogonek : keysym = 0x1ea
-let _ecaron : keysym = 0x1ec
-let _dcaron : keysym = 0x1ef
-let _dstroke : keysym = 0x1f0
-let _nacute : keysym = 0x1f1
-let _ncaron : keysym = 0x1f2
-let _odoubleacute : keysym = 0x1f5
-let _udoubleacute : keysym = 0x1fb
-let _rcaron : keysym = 0x1f8
-let _uring : keysym = 0x1f9
-let _tcedilla : keysym = 0x1fe
-let _abovedot : keysym = 0x1ff
-let _Hstroke : keysym = 0x2a1
-let _Hcircumflex : keysym = 0x2a6
-let _Iabovedot : keysym = 0x2a9
-let _Gbreve : keysym = 0x2ab
-let _Jcircumflex : keysym = 0x2ac
-let _hstroke : keysym = 0x2b1
-let _hcircumflex : keysym = 0x2b6
-let _idotless : keysym = 0x2b9
-let _gbreve : keysym = 0x2bb
-let _jcircumflex : keysym = 0x2bc
-let _Cabovedot : keysym = 0x2c5
-let _Ccircumflex : keysym = 0x2c6
-let _Gabovedot : keysym = 0x2d5
-let _Gcircumflex : keysym = 0x2d8
-let _Ubreve : keysym = 0x2dd
-let _Scircumflex : keysym = 0x2de
-let _cabovedot : keysym = 0x2e5
-let _ccircumflex : keysym = 0x2e6
-let _gabovedot : keysym = 0x2f5
-let _gcircumflex : keysym = 0x2f8
-let _ubreve : keysym = 0x2fd
-let _scircumflex : keysym = 0x2fe
-let _kra : keysym = 0x3a2
-let _kappa : keysym = 0x3a2
-let _Rcedilla : keysym = 0x3a3
-let _Itilde : keysym = 0x3a5
-let _Lcedilla : keysym = 0x3a6
-let _Emacron : keysym = 0x3aa
-let _Gcedilla : keysym = 0x3ab
-let _Tslash : keysym = 0x3ac
-let _rcedilla : keysym = 0x3b3
-let _itilde : keysym = 0x3b5
-let _lcedilla : keysym = 0x3b6
-let _emacron : keysym = 0x3ba
-let _gcedilla : keysym = 0x3bb
-let _tslash : keysym = 0x3bc
-let _ENG : keysym = 0x3bd
-let _eng : keysym = 0x3bf
-let _Amacron : keysym = 0x3c0
-let _Iogonek : keysym = 0x3c7
-let _Eabovedot : keysym = 0x3cc
-let _Imacron : keysym = 0x3cf
-let _Ncedilla : keysym = 0x3d1
-let _Omacron : keysym = 0x3d2
-let _Kcedilla : keysym = 0x3d3
-let _Uogonek : keysym = 0x3d9
-let _Utilde : keysym = 0x3dd
-let _Umacron : keysym = 0x3de
-let _amacron : keysym = 0x3e0
-let _iogonek : keysym = 0x3e7
-let _eabovedot : keysym = 0x3ec
-let _imacron : keysym = 0x3ef
-let _ncedilla : keysym = 0x3f1
-let _omacron : keysym = 0x3f2
-let _kcedilla : keysym = 0x3f3
-let _uogonek : keysym = 0x3f9
-let _utilde : keysym = 0x3fd
-let _umacron : keysym = 0x3fe
-let _overline : keysym = 0x47e
-let _kana_fullstop : keysym = 0x4a1
-let _kana_openingbracket : keysym = 0x4a2
-let _kana_closingbracket : keysym = 0x4a3
-let _kana_comma : keysym = 0x4a4
-let _kana_conjunctive : keysym = 0x4a5
-let _kana_middledot : keysym = 0x4a5
-let _kana_WO : keysym = 0x4a6
-let _kana_a : keysym = 0x4a7
-let _kana_i : keysym = 0x4a8
-let _kana_u : keysym = 0x4a9
-let _kana_e : keysym = 0x4aa
-let _kana_o : keysym = 0x4ab
-let _kana_ya : keysym = 0x4ac
-let _kana_yu : keysym = 0x4ad
-let _kana_yo : keysym = 0x4ae
-let _kana_tsu : keysym = 0x4af
-let _kana_tu : keysym = 0x4af
-let _prolongedsound : keysym = 0x4b0
-let _kana_A : keysym = 0x4b1
-let _kana_I : keysym = 0x4b2
-let _kana_U : keysym = 0x4b3
-let _kana_E : keysym = 0x4b4
-let _kana_O : keysym = 0x4b5
-let _kana_KA : keysym = 0x4b6
-let _kana_KI : keysym = 0x4b7
-let _kana_KU : keysym = 0x4b8
-let _kana_KE : keysym = 0x4b9
-let _kana_KO : keysym = 0x4ba
-let _kana_SA : keysym = 0x4bb
-let _kana_SHI : keysym = 0x4bc
-let _kana_SU : keysym = 0x4bd
-let _kana_SE : keysym = 0x4be
-let _kana_SO : keysym = 0x4bf
-let _kana_TA : keysym = 0x4c0
-let _kana_CHI : keysym = 0x4c1
-let _kana_TI : keysym = 0x4c1
-let _kana_TSU : keysym = 0x4c2
-let _kana_TU : keysym = 0x4c2
-let _kana_TE : keysym = 0x4c3
-let _kana_TO : keysym = 0x4c4
-let _kana_NA : keysym = 0x4c5
-let _kana_NI : keysym = 0x4c6
-let _kana_NU : keysym = 0x4c7
-let _kana_NE : keysym = 0x4c8
-let _kana_NO : keysym = 0x4c9
-let _kana_HA : keysym = 0x4ca
-let _kana_HI : keysym = 0x4cb
-let _kana_FU : keysym = 0x4cc
-let _kana_HU : keysym = 0x4cc
-let _kana_HE : keysym = 0x4cd
-let _kana_HO : keysym = 0x4ce
-let _kana_MA : keysym = 0x4cf
-let _kana_MI : keysym = 0x4d0
-let _kana_MU : keysym = 0x4d1
-let _kana_ME : keysym = 0x4d2
-let _kana_MO : keysym = 0x4d3
-let _kana_YA : keysym = 0x4d4
-let _kana_YU : keysym = 0x4d5
-let _kana_YO : keysym = 0x4d6
-let _kana_RA : keysym = 0x4d7
-let _kana_RI : keysym = 0x4d8
-let _kana_RU : keysym = 0x4d9
-let _kana_RE : keysym = 0x4da
-let _kana_RO : keysym = 0x4db
-let _kana_WA : keysym = 0x4dc
-let _kana_N : keysym = 0x4dd
-let _voicedsound : keysym = 0x4de
-let _semivoicedsound : keysym = 0x4df
-let _kana_switch : keysym = 0xFF7E
-let _Arabic_comma : keysym = 0x5ac
-let _Arabic_semicolon : keysym = 0x5bb
-let _Arabic_question_mark : keysym = 0x5bf
-let _Arabic_hamza : keysym = 0x5c1
-let _Arabic_maddaonalef : keysym = 0x5c2
-let _Arabic_hamzaonalef : keysym = 0x5c3
-let _Arabic_hamzaonwaw : keysym = 0x5c4
-let _Arabic_hamzaunderalef : keysym = 0x5c5
-let _Arabic_hamzaonyeh : keysym = 0x5c6
-let _Arabic_alef : keysym = 0x5c7
-let _Arabic_beh : keysym = 0x5c8
-let _Arabic_tehmarbuta : keysym = 0x5c9
-let _Arabic_teh : keysym = 0x5ca
-let _Arabic_theh : keysym = 0x5cb
-let _Arabic_jeem : keysym = 0x5cc
-let _Arabic_hah : keysym = 0x5cd
-let _Arabic_khah : keysym = 0x5ce
-let _Arabic_dal : keysym = 0x5cf
-let _Arabic_thal : keysym = 0x5d0
-let _Arabic_ra : keysym = 0x5d1
-let _Arabic_zain : keysym = 0x5d2
-let _Arabic_seen : keysym = 0x5d3
-let _Arabic_sheen : keysym = 0x5d4
-let _Arabic_sad : keysym = 0x5d5
-let _Arabic_dad : keysym = 0x5d6
-let _Arabic_tah : keysym = 0x5d7
-let _Arabic_zah : keysym = 0x5d8
-let _Arabic_ain : keysym = 0x5d9
-let _Arabic_ghain : keysym = 0x5da
-let _Arabic_tatweel : keysym = 0x5e0
-let _Arabic_feh : keysym = 0x5e1
-let _Arabic_qaf : keysym = 0x5e2
-let _Arabic_kaf : keysym = 0x5e3
-let _Arabic_lam : keysym = 0x5e4
-let _Arabic_meem : keysym = 0x5e5
-let _Arabic_noon : keysym = 0x5e6
-let _Arabic_ha : keysym = 0x5e7
-let _Arabic_heh : keysym = 0x5e7
-let _Arabic_waw : keysym = 0x5e8
-let _Arabic_alefmaksura : keysym = 0x5e9
-let _Arabic_yeh : keysym = 0x5ea
-let _Arabic_fathatan : keysym = 0x5eb
-let _Arabic_dammatan : keysym = 0x5ec
-let _Arabic_kasratan : keysym = 0x5ed
-let _Arabic_fatha : keysym = 0x5ee
-let _Arabic_damma : keysym = 0x5ef
-let _Arabic_kasra : keysym = 0x5f0
-let _Arabic_shadda : keysym = 0x5f1
-let _Arabic_sukun : keysym = 0x5f2
-let _Arabic_switch : keysym = 0xFF7E
-let _Serbian_dje : keysym = 0x6a1
-let _Macedonia_gje : keysym = 0x6a2
-let _Cyrillic_io : keysym = 0x6a3
-let _Ukrainian_ie : keysym = 0x6a4
-let _Ukranian_je : keysym = 0x6a4
-let _Macedonia_dse : keysym = 0x6a5
-let _Ukrainian_i : keysym = 0x6a6
-let _Ukranian_i : keysym = 0x6a6
-let _Ukrainian_yi : keysym = 0x6a7
-let _Ukranian_yi : keysym = 0x6a7
-let _Cyrillic_je : keysym = 0x6a8
-let _Serbian_je : keysym = 0x6a8
-let _Cyrillic_lje : keysym = 0x6a9
-let _Serbian_lje : keysym = 0x6a9
-let _Cyrillic_nje : keysym = 0x6aa
-let _Serbian_nje : keysym = 0x6aa
-let _Serbian_tshe : keysym = 0x6ab
-let _Macedonia_kje : keysym = 0x6ac
-let _Byelorussian_shortu : keysym = 0x6ae
-let _Cyrillic_dzhe : keysym = 0x6af
-let _Serbian_dze : keysym = 0x6af
-let _numerosign : keysym = 0x6b0
-let _Serbian_DJE : keysym = 0x6b1
-let _Macedonia_GJE : keysym = 0x6b2
-let _Cyrillic_IO : keysym = 0x6b3
-let _Ukrainian_IE : keysym = 0x6b4
-let _Ukranian_JE : keysym = 0x6b4
-let _Macedonia_DSE : keysym = 0x6b5
-let _Ukrainian_I : keysym = 0x6b6
-let _Ukranian_I : keysym = 0x6b6
-let _Ukrainian_YI : keysym = 0x6b7
-let _Ukranian_YI : keysym = 0x6b7
-let _Cyrillic_JE : keysym = 0x6b8
-let _Serbian_JE : keysym = 0x6b8
-let _Cyrillic_LJE : keysym = 0x6b9
-let _Serbian_LJE : keysym = 0x6b9
-let _Cyrillic_NJE : keysym = 0x6ba
-let _Serbian_NJE : keysym = 0x6ba
-let _Serbian_TSHE : keysym = 0x6bb
-let _Macedonia_KJE : keysym = 0x6bc
-let _Byelorussian_SHORTU : keysym = 0x6be
-let _Cyrillic_DZHE : keysym = 0x6bf
-let _Serbian_DZE : keysym = 0x6bf
-let _Cyrillic_yu : keysym = 0x6c0
-let _Cyrillic_a : keysym = 0x6c1
-let _Cyrillic_be : keysym = 0x6c2
-let _Cyrillic_tse : keysym = 0x6c3
-let _Cyrillic_de : keysym = 0x6c4
-let _Cyrillic_ie : keysym = 0x6c5
-let _Cyrillic_ef : keysym = 0x6c6
-let _Cyrillic_ghe : keysym = 0x6c7
-let _Cyrillic_ha : keysym = 0x6c8
-let _Cyrillic_i : keysym = 0x6c9
-let _Cyrillic_shorti : keysym = 0x6ca
-let _Cyrillic_ka : keysym = 0x6cb
-let _Cyrillic_el : keysym = 0x6cc
-let _Cyrillic_em : keysym = 0x6cd
-let _Cyrillic_en : keysym = 0x6ce
-let _Cyrillic_o : keysym = 0x6cf
-let _Cyrillic_pe : keysym = 0x6d0
-let _Cyrillic_ya : keysym = 0x6d1
-let _Cyrillic_er : keysym = 0x6d2
-let _Cyrillic_es : keysym = 0x6d3
-let _Cyrillic_te : keysym = 0x6d4
-let _Cyrillic_u : keysym = 0x6d5
-let _Cyrillic_zhe : keysym = 0x6d6
-let _Cyrillic_ve : keysym = 0x6d7
-let _Cyrillic_softsign : keysym = 0x6d8
-let _Cyrillic_yeru : keysym = 0x6d9
-let _Cyrillic_ze : keysym = 0x6da
-let _Cyrillic_sha : keysym = 0x6db
-let _Cyrillic_e : keysym = 0x6dc
-let _Cyrillic_shcha : keysym = 0x6dd
-let _Cyrillic_che : keysym = 0x6de
-let _Cyrillic_hardsign : keysym = 0x6df
-let _Cyrillic_YU : keysym = 0x6e0
-let _Cyrillic_A : keysym = 0x6e1
-let _Cyrillic_BE : keysym = 0x6e2
-let _Cyrillic_TSE : keysym = 0x6e3
-let _Cyrillic_DE : keysym = 0x6e4
-let _Cyrillic_IE : keysym = 0x6e5
-let _Cyrillic_EF : keysym = 0x6e6
-let _Cyrillic_GHE : keysym = 0x6e7
-let _Cyrillic_HA : keysym = 0x6e8
-let _Cyrillic_I : keysym = 0x6e9
-let _Cyrillic_SHORTI : keysym = 0x6ea
-let _Cyrillic_KA : keysym = 0x6eb
-let _Cyrillic_EL : keysym = 0x6ec
-let _Cyrillic_EM : keysym = 0x6ed
-let _Cyrillic_EN : keysym = 0x6ee
-let _Cyrillic_O : keysym = 0x6ef
-let _Cyrillic_PE : keysym = 0x6f0
-let _Cyrillic_YA : keysym = 0x6f1
-let _Cyrillic_ER : keysym = 0x6f2
-let _Cyrillic_ES : keysym = 0x6f3
-let _Cyrillic_TE : keysym = 0x6f4
-let _Cyrillic_U : keysym = 0x6f5
-let _Cyrillic_ZHE : keysym = 0x6f6
-let _Cyrillic_VE : keysym = 0x6f7
-let _Cyrillic_SOFTSIGN : keysym = 0x6f8
-let _Cyrillic_YERU : keysym = 0x6f9
-let _Cyrillic_ZE : keysym = 0x6fa
-let _Cyrillic_SHA : keysym = 0x6fb
-let _Cyrillic_E : keysym = 0x6fc
-let _Cyrillic_SHCHA : keysym = 0x6fd
-let _Cyrillic_CHE : keysym = 0x6fe
-let _Cyrillic_HARDSIGN : keysym = 0x6ff
-let _Greek_ALPHAaccent : keysym = 0x7a1
-let _Greek_EPSILONaccent : keysym = 0x7a2
-let _Greek_ETAaccent : keysym = 0x7a3
-let _Greek_IOTAaccent : keysym = 0x7a4
-let _Greek_IOTAdiaeresis : keysym = 0x7a5
-let _Greek_OMICRONaccent : keysym = 0x7a7
-let _Greek_UPSILONaccent : keysym = 0x7a8
-let _Greek_UPSILONdieresis : keysym = 0x7a9
-let _Greek_OMEGAaccent : keysym = 0x7ab
-let _Greek_accentdieresis : keysym = 0x7ae
-let _Greek_horizbar : keysym = 0x7af
-let _Greek_alphaaccent : keysym = 0x7b1
-let _Greek_epsilonaccent : keysym = 0x7b2
-let _Greek_etaaccent : keysym = 0x7b3
-let _Greek_iotaaccent : keysym = 0x7b4
-let _Greek_iotadieresis : keysym = 0x7b5
-let _Greek_iotaaccentdieresis : keysym = 0x7b6
-let _Greek_omicronaccent : keysym = 0x7b7
-let _Greek_upsilonaccent : keysym = 0x7b8
-let _Greek_upsilondieresis : keysym = 0x7b9
-let _Greek_upsilonaccentdieresis : keysym = 0x7ba
-let _Greek_omegaaccent : keysym = 0x7bb
-let _Greek_ALPHA : keysym = 0x7c1
-let _Greek_BETA : keysym = 0x7c2
-let _Greek_GAMMA : keysym = 0x7c3
-let _Greek_DELTA : keysym = 0x7c4
-let _Greek_EPSILON : keysym = 0x7c5
-let _Greek_ZETA : keysym = 0x7c6
-let _Greek_ETA : keysym = 0x7c7
-let _Greek_THETA : keysym = 0x7c8
-let _Greek_IOTA : keysym = 0x7c9
-let _Greek_KAPPA : keysym = 0x7ca
-let _Greek_LAMDA : keysym = 0x7cb
-let _Greek_LAMBDA : keysym = 0x7cb
-let _Greek_MU : keysym = 0x7cc
-let _Greek_NU : keysym = 0x7cd
-let _Greek_XI : keysym = 0x7ce
-let _Greek_OMICRON : keysym = 0x7cf
-let _Greek_PI : keysym = 0x7d0
-let _Greek_RHO : keysym = 0x7d1
-let _Greek_SIGMA : keysym = 0x7d2
-let _Greek_TAU : keysym = 0x7d4
-let _Greek_UPSILON : keysym = 0x7d5
-let _Greek_PHI : keysym = 0x7d6
-let _Greek_CHI : keysym = 0x7d7
-let _Greek_PSI : keysym = 0x7d8
-let _Greek_OMEGA : keysym = 0x7d9
-let _Greek_alpha : keysym = 0x7e1
-let _Greek_beta : keysym = 0x7e2
-let _Greek_gamma : keysym = 0x7e3
-let _Greek_delta : keysym = 0x7e4
-let _Greek_epsilon : keysym = 0x7e5
-let _Greek_zeta : keysym = 0x7e6
-let _Greek_eta : keysym = 0x7e7
-let _Greek_theta : keysym = 0x7e8
-let _Greek_iota : keysym = 0x7e9
-let _Greek_kappa : keysym = 0x7ea
-let _Greek_lamda : keysym = 0x7eb
-let _Greek_lambda : keysym = 0x7eb
-let _Greek_mu : keysym = 0x7ec
-let _Greek_nu : keysym = 0x7ed
-let _Greek_xi : keysym = 0x7ee
-let _Greek_omicron : keysym = 0x7ef
-let _Greek_pi : keysym = 0x7f0
-let _Greek_rho : keysym = 0x7f1
-let _Greek_sigma : keysym = 0x7f2
-let _Greek_finalsmallsigma : keysym = 0x7f3
-let _Greek_tau : keysym = 0x7f4
-let _Greek_upsilon : keysym = 0x7f5
-let _Greek_phi : keysym = 0x7f6
-let _Greek_chi : keysym = 0x7f7
-let _Greek_psi : keysym = 0x7f8
-let _Greek_omega : keysym = 0x7f9
-let _Greek_switch : keysym = 0xFF7E
-let _leftradical : keysym = 0x8a1
-let _topleftradical : keysym = 0x8a2
-let _horizconnector : keysym = 0x8a3
-let _topintegral : keysym = 0x8a4
-let _botintegral : keysym = 0x8a5
-let _vertconnector : keysym = 0x8a6
-let _topleftsqbracket : keysym = 0x8a7
-let _botleftsqbracket : keysym = 0x8a8
-let _toprightsqbracket : keysym = 0x8a9
-let _botrightsqbracket : keysym = 0x8aa
-let _topleftparens : keysym = 0x8ab
-let _botleftparens : keysym = 0x8ac
-let _toprightparens : keysym = 0x8ad
-let _botrightparens : keysym = 0x8ae
-let _leftmiddlecurlybrace : keysym = 0x8af
-let _rightmiddlecurlybrace : keysym = 0x8b0
-let _topleftsummation : keysym = 0x8b1
-let _botleftsummation : keysym = 0x8b2
-let _topvertsummationconnector : keysym = 0x8b3
-let _botvertsummationconnector : keysym = 0x8b4
-let _toprightsummation : keysym = 0x8b5
-let _botrightsummation : keysym = 0x8b6
-let _rightmiddlesummation : keysym = 0x8b7
-let _lessthanequal : keysym = 0x8bc
-let _notequal : keysym = 0x8bd
-let _greaterthanequal : keysym = 0x8be
-let _integral : keysym = 0x8bf
-let _therefore : keysym = 0x8c0
-let _variation : keysym = 0x8c1
-let _infinity : keysym = 0x8c2
-let _nabla : keysym = 0x8c5
-let _approximate : keysym = 0x8c8
-let _similarequal : keysym = 0x8c9
-let _ifonlyif : keysym = 0x8cd
-let _implies : keysym = 0x8ce
-let _identical : keysym = 0x8cf
-let _radical : keysym = 0x8d6
-let _includedin : keysym = 0x8da
-let _includes : keysym = 0x8db
-let _intersection : keysym = 0x8dc
-let _union : keysym = 0x8dd
-let _logicaland : keysym = 0x8de
-let _logicalor : keysym = 0x8df
-let _partialderivative : keysym = 0x8ef
-let _function : keysym = 0x8f6
-let _leftarrow : keysym = 0x8fb
-let _uparrow : keysym = 0x8fc
-let _rightarrow : keysym = 0x8fd
-let _downarrow : keysym = 0x8fe
-let _blank : keysym = 0x9df
-let _soliddiamond : keysym = 0x9e0
-let _checkerboard : keysym = 0x9e1
-let _ht : keysym = 0x9e2
-let _ff : keysym = 0x9e3
-let _cr : keysym = 0x9e4
-let _lf : keysym = 0x9e5
-let _nl : keysym = 0x9e8
-let _vt : keysym = 0x9e9
-let _lowrightcorner : keysym = 0x9ea
-let _uprightcorner : keysym = 0x9eb
-let _upleftcorner : keysym = 0x9ec
-let _lowleftcorner : keysym = 0x9ed
-let _crossinglines : keysym = 0x9ee
-let _horizlinescan1 : keysym = 0x9ef
-let _horizlinescan3 : keysym = 0x9f0
-let _horizlinescan5 : keysym = 0x9f1
-let _horizlinescan7 : keysym = 0x9f2
-let _horizlinescan9 : keysym = 0x9f3
-let _leftt : keysym = 0x9f4
-let _rightt : keysym = 0x9f5
-let _bott : keysym = 0x9f6
-let _topt : keysym = 0x9f7
-let _vertbar : keysym = 0x9f8
-let _emspace : keysym = 0xaa1
-let _enspace : keysym = 0xaa2
-let _em3space : keysym = 0xaa3
-let _em4space : keysym = 0xaa4
-let _digitspace : keysym = 0xaa5
-let _punctspace : keysym = 0xaa6
-let _thinspace : keysym = 0xaa7
-let _hairspace : keysym = 0xaa8
-let _emdash : keysym = 0xaa9
-let _endash : keysym = 0xaaa
-let _signifblank : keysym = 0xaac
-let _ellipsis : keysym = 0xaae
-let _doubbaselinedot : keysym = 0xaaf
-let _onethird : keysym = 0xab0
-let _twothirds : keysym = 0xab1
-let _onefifth : keysym = 0xab2
-let _twofifths : keysym = 0xab3
-let _threefifths : keysym = 0xab4
-let _fourfifths : keysym = 0xab5
-let _onesixth : keysym = 0xab6
-let _fivesixths : keysym = 0xab7
-let _careof : keysym = 0xab8
-let _figdash : keysym = 0xabb
-let _leftanglebracket : keysym = 0xabc
-let _decimalpoint : keysym = 0xabd
-let _rightanglebracket : keysym = 0xabe
-let _marker : keysym = 0xabf
-let _oneeighth : keysym = 0xac3
-let _threeeighths : keysym = 0xac4
-let _fiveeighths : keysym = 0xac5
-let _seveneighths : keysym = 0xac6
-let _trademark : keysym = 0xac9
-let _signaturemark : keysym = 0xaca
-let _trademarkincircle : keysym = 0xacb
-let _leftopentriangle : keysym = 0xacc
-let _rightopentriangle : keysym = 0xacd
-let _emopencircle : keysym = 0xace
-let _emopenrectangle : keysym = 0xacf
-let _leftsinglequotemark : keysym = 0xad0
-let _rightsinglequotemark : keysym = 0xad1
-let _leftdoublequotemark : keysym = 0xad2
-let _rightdoublequotemark : keysym = 0xad3
-let _prescription : keysym = 0xad4
-let _minutes : keysym = 0xad6
-let _seconds : keysym = 0xad7
-let _latincross : keysym = 0xad9
-let _hexagram : keysym = 0xada
-let _filledrectbullet : keysym = 0xadb
-let _filledlefttribullet : keysym = 0xadc
-let _filledrighttribullet : keysym = 0xadd
-let _emfilledcircle : keysym = 0xade
-let _emfilledrect : keysym = 0xadf
-let _enopencircbullet : keysym = 0xae0
-let _enopensquarebullet : keysym = 0xae1
-let _openrectbullet : keysym = 0xae2
-let _opentribulletup : keysym = 0xae3
-let _opentribulletdown : keysym = 0xae4
-let _openstar : keysym = 0xae5
-let _enfilledcircbullet : keysym = 0xae6
-let _enfilledsqbullet : keysym = 0xae7
-let _filledtribulletup : keysym = 0xae8
-let _filledtribulletdown : keysym = 0xae9
-let _leftpointer : keysym = 0xaea
-let _rightpointer : keysym = 0xaeb
-let _club : keysym = 0xaec
-let _diamond : keysym = 0xaed
-let _heart : keysym = 0xaee
-let _maltesecross : keysym = 0xaf0
-let _dagger : keysym = 0xaf1
-let _doubledagger : keysym = 0xaf2
-let _checkmark : keysym = 0xaf3
-let _ballotcross : keysym = 0xaf4
-let _musicalsharp : keysym = 0xaf5
-let _musicalflat : keysym = 0xaf6
-let _malesymbol : keysym = 0xaf7
-let _femalesymbol : keysym = 0xaf8
-let _telephone : keysym = 0xaf9
-let _telephonerecorder : keysym = 0xafa
-let _phonographcopyright : keysym = 0xafb
-let _caret : keysym = 0xafc
-let _singlelowquotemark : keysym = 0xafd
-let _doublelowquotemark : keysym = 0xafe
-let _cursor : keysym = 0xaff
-let _leftcaret : keysym = 0xba3
-let _rightcaret : keysym = 0xba6
-let _downcaret : keysym = 0xba8
-let _upcaret : keysym = 0xba9
-let _overbar : keysym = 0xbc0
-let _downtack : keysym = 0xbc2
-let _upshoe : keysym = 0xbc3
-let _downstile : keysym = 0xbc4
-let _underbar : keysym = 0xbc6
-let _jot : keysym = 0xbca
-let _quad : keysym = 0xbcc
-let _uptack : keysym = 0xbce
-let _circle : keysym = 0xbcf
-let _upstile : keysym = 0xbd3
-let _downshoe : keysym = 0xbd6
-let _rightshoe : keysym = 0xbd8
-let _leftshoe : keysym = 0xbda
-let _lefttack : keysym = 0xbdc
-let _righttack : keysym = 0xbfc
-let _hebrew_doublelowline : keysym = 0xcdf
-let _hebrew_aleph : keysym = 0xce0
-let _hebrew_bet : keysym = 0xce1
-let _hebrew_beth : keysym = 0xce1
-let _hebrew_gimel : keysym = 0xce2
-let _hebrew_gimmel : keysym = 0xce2
-let _hebrew_dalet : keysym = 0xce3
-let _hebrew_daleth : keysym = 0xce3
-let _hebrew_he : keysym = 0xce4
-let _hebrew_waw : keysym = 0xce5
-let _hebrew_zain : keysym = 0xce6
-let _hebrew_zayin : keysym = 0xce6
-let _hebrew_chet : keysym = 0xce7
-let _hebrew_het : keysym = 0xce7
-let _hebrew_tet : keysym = 0xce8
-let _hebrew_teth : keysym = 0xce8
-let _hebrew_yod : keysym = 0xce9
-let _hebrew_finalkaph : keysym = 0xcea
-let _hebrew_kaph : keysym = 0xceb
-let _hebrew_lamed : keysym = 0xcec
-let _hebrew_finalmem : keysym = 0xced
-let _hebrew_mem : keysym = 0xcee
-let _hebrew_finalnun : keysym = 0xcef
-let _hebrew_nun : keysym = 0xcf0
-let _hebrew_samech : keysym = 0xcf1
-let _hebrew_samekh : keysym = 0xcf1
-let _hebrew_ayin : keysym = 0xcf2
-let _hebrew_finalpe : keysym = 0xcf3
-let _hebrew_pe : keysym = 0xcf4
-let _hebrew_finalzade : keysym = 0xcf5
-let _hebrew_finalzadi : keysym = 0xcf5
-let _hebrew_zade : keysym = 0xcf6
-let _hebrew_zadi : keysym = 0xcf6
-let _hebrew_qoph : keysym = 0xcf7
-let _hebrew_kuf : keysym = 0xcf7
-let _hebrew_resh : keysym = 0xcf8
-let _hebrew_shin : keysym = 0xcf9
-let _hebrew_taw : keysym = 0xcfa
-let _hebrew_taf : keysym = 0xcfa
-let _Hebrew_switch : keysym = 0xFF7E
-let _Thai_kokai : keysym = 0xda1
-let _Thai_khokhai : keysym = 0xda2
-let _Thai_khokhuat : keysym = 0xda3
-let _Thai_khokhwai : keysym = 0xda4
-let _Thai_khokhon : keysym = 0xda5
-let _Thai_khorakhang : keysym = 0xda6
-let _Thai_ngongu : keysym = 0xda7
-let _Thai_chochan : keysym = 0xda8
-let _Thai_choching : keysym = 0xda9
-let _Thai_chochang : keysym = 0xdaa
-let _Thai_soso : keysym = 0xdab
-let _Thai_chochoe : keysym = 0xdac
-let _Thai_yoying : keysym = 0xdad
-let _Thai_dochada : keysym = 0xdae
-let _Thai_topatak : keysym = 0xdaf
-let _Thai_thothan : keysym = 0xdb0
-let _Thai_thonangmontho : keysym = 0xdb1
-let _Thai_thophuthao : keysym = 0xdb2
-let _Thai_nonen : keysym = 0xdb3
-let _Thai_dodek : keysym = 0xdb4
-let _Thai_totao : keysym = 0xdb5
-let _Thai_thothung : keysym = 0xdb6
-let _Thai_thothahan : keysym = 0xdb7
-let _Thai_thothong : keysym = 0xdb8
-let _Thai_nonu : keysym = 0xdb9
-let _Thai_bobaimai : keysym = 0xdba
-let _Thai_popla : keysym = 0xdbb
-let _Thai_phophung : keysym = 0xdbc
-let _Thai_fofa : keysym = 0xdbd
-let _Thai_phophan : keysym = 0xdbe
-let _Thai_fofan : keysym = 0xdbf
-let _Thai_phosamphao : keysym = 0xdc0
-let _Thai_moma : keysym = 0xdc1
-let _Thai_yoyak : keysym = 0xdc2
-let _Thai_rorua : keysym = 0xdc3
-let _Thai_ru : keysym = 0xdc4
-let _Thai_loling : keysym = 0xdc5
-let _Thai_lu : keysym = 0xdc6
-let _Thai_wowaen : keysym = 0xdc7
-let _Thai_sosala : keysym = 0xdc8
-let _Thai_sorusi : keysym = 0xdc9
-let _Thai_sosua : keysym = 0xdca
-let _Thai_hohip : keysym = 0xdcb
-let _Thai_lochula : keysym = 0xdcc
-let _Thai_oang : keysym = 0xdcd
-let _Thai_honokhuk : keysym = 0xdce
-let _Thai_paiyannoi : keysym = 0xdcf
-let _Thai_saraa : keysym = 0xdd0
-let _Thai_maihanakat : keysym = 0xdd1
-let _Thai_saraaa : keysym = 0xdd2
-let _Thai_saraam : keysym = 0xdd3
-let _Thai_sarai : keysym = 0xdd4
-let _Thai_saraii : keysym = 0xdd5
-let _Thai_saraue : keysym = 0xdd6
-let _Thai_sarauee : keysym = 0xdd7
-let _Thai_sarau : keysym = 0xdd8
-let _Thai_sarauu : keysym = 0xdd9
-let _Thai_phinthu : keysym = 0xdda
-let _Thai_maihanakat_maitho : keysym = 0xdde
-let _Thai_baht : keysym = 0xddf
-let _Thai_sarae : keysym = 0xde0
-let _Thai_saraae : keysym = 0xde1
-let _Thai_sarao : keysym = 0xde2
-let _Thai_saraaimaimuan : keysym = 0xde3
-let _Thai_saraaimaimalai : keysym = 0xde4
-let _Thai_lakkhangyao : keysym = 0xde5
-let _Thai_maiyamok : keysym = 0xde6
-let _Thai_maitaikhu : keysym = 0xde7
-let _Thai_maiek : keysym = 0xde8
-let _Thai_maitho : keysym = 0xde9
-let _Thai_maitri : keysym = 0xdea
-let _Thai_maichattawa : keysym = 0xdeb
-let _Thai_thanthakhat : keysym = 0xdec
-let _Thai_nikhahit : keysym = 0xded
-let _Thai_leksun : keysym = 0xdf0
-let _Thai_leknung : keysym = 0xdf1
-let _Thai_leksong : keysym = 0xdf2
-let _Thai_leksam : keysym = 0xdf3
-let _Thai_leksi : keysym = 0xdf4
-let _Thai_lekha : keysym = 0xdf5
-let _Thai_lekhok : keysym = 0xdf6
-let _Thai_lekchet : keysym = 0xdf7
-let _Thai_lekpaet : keysym = 0xdf8
-let _Thai_lekkao : keysym = 0xdf9
-let _Hangul : keysym = 0xff31
-let _Hangul_Start : keysym = 0xff32
-let _Hangul_End : keysym = 0xff33
-let _Hangul_Hanja : keysym = 0xff34
-let _Hangul_Jamo : keysym = 0xff35
-let _Hangul_Romaja : keysym = 0xff36
-let _Hangul_Codeinput : keysym = 0xff37
-let _Hangul_Jeonja : keysym = 0xff38
-let _Hangul_Banja : keysym = 0xff39
-let _Hangul_PreHanja : keysym = 0xff3a
-let _Hangul_PostHanja : keysym = 0xff3b
-let _Hangul_SingleCandidate : keysym = 0xff3c
-let _Hangul_MultipleCandidate : keysym = 0xff3d
-let _Hangul_PreviousCandidate : keysym = 0xff3e
-let _Hangul_Special : keysym = 0xff3f
-let _Hangul_switch : keysym = 0xFF7E
-let _Hangul_Kiyeog : keysym = 0xea1
-let _Hangul_SsangKiyeog : keysym = 0xea2
-let _Hangul_KiyeogSios : keysym = 0xea3
-let _Hangul_Nieun : keysym = 0xea4
-let _Hangul_NieunJieuj : keysym = 0xea5
-let _Hangul_NieunHieuh : keysym = 0xea6
-let _Hangul_Dikeud : keysym = 0xea7
-let _Hangul_SsangDikeud : keysym = 0xea8
-let _Hangul_Rieul : keysym = 0xea9
-let _Hangul_RieulKiyeog : keysym = 0xeaa
-let _Hangul_RieulMieum : keysym = 0xeab
-let _Hangul_RieulPieub : keysym = 0xeac
-let _Hangul_RieulSios : keysym = 0xead
-let _Hangul_RieulTieut : keysym = 0xeae
-let _Hangul_RieulPhieuf : keysym = 0xeaf
-let _Hangul_RieulHieuh : keysym = 0xeb0
-let _Hangul_Mieum : keysym = 0xeb1
-let _Hangul_Pieub : keysym = 0xeb2
-let _Hangul_SsangPieub : keysym = 0xeb3
-let _Hangul_PieubSios : keysym = 0xeb4
-let _Hangul_Sios : keysym = 0xeb5
-let _Hangul_SsangSios : keysym = 0xeb6
-let _Hangul_Ieung : keysym = 0xeb7
-let _Hangul_Jieuj : keysym = 0xeb8
-let _Hangul_SsangJieuj : keysym = 0xeb9
-let _Hangul_Cieuc : keysym = 0xeba
-let _Hangul_Khieuq : keysym = 0xebb
-let _Hangul_Tieut : keysym = 0xebc
-let _Hangul_Phieuf : keysym = 0xebd
-let _Hangul_Hieuh : keysym = 0xebe
-let _Hangul_A : keysym = 0xebf
-let _Hangul_AE : keysym = 0xec0
-let _Hangul_YA : keysym = 0xec1
-let _Hangul_YAE : keysym = 0xec2
-let _Hangul_EO : keysym = 0xec3
-let _Hangul_E : keysym = 0xec4
-let _Hangul_YEO : keysym = 0xec5
-let _Hangul_YE : keysym = 0xec6
-let _Hangul_O : keysym = 0xec7
-let _Hangul_WA : keysym = 0xec8
-let _Hangul_WAE : keysym = 0xec9
-let _Hangul_OE : keysym = 0xeca
-let _Hangul_YO : keysym = 0xecb
-let _Hangul_U : keysym = 0xecc
-let _Hangul_WEO : keysym = 0xecd
-let _Hangul_WE : keysym = 0xece
-let _Hangul_WI : keysym = 0xecf
-let _Hangul_YU : keysym = 0xed0
-let _Hangul_EU : keysym = 0xed1
-let _Hangul_YI : keysym = 0xed2
-let _Hangul_I : keysym = 0xed3
-let _Hangul_J_Kiyeog : keysym = 0xed4
-let _Hangul_J_SsangKiyeog : keysym = 0xed5
-let _Hangul_J_KiyeogSios : keysym = 0xed6
-let _Hangul_J_Nieun : keysym = 0xed7
-let _Hangul_J_NieunJieuj : keysym = 0xed8
-let _Hangul_J_NieunHieuh : keysym = 0xed9
-let _Hangul_J_Dikeud : keysym = 0xeda
-let _Hangul_J_Rieul : keysym = 0xedb
-let _Hangul_J_RieulKiyeog : keysym = 0xedc
-let _Hangul_J_RieulMieum : keysym = 0xedd
-let _Hangul_J_RieulPieub : keysym = 0xede
-let _Hangul_J_RieulSios : keysym = 0xedf
-let _Hangul_J_RieulTieut : keysym = 0xee0
-let _Hangul_J_RieulPhieuf : keysym = 0xee1
-let _Hangul_J_RieulHieuh : keysym = 0xee2
-let _Hangul_J_Mieum : keysym = 0xee3
-let _Hangul_J_Pieub : keysym = 0xee4
-let _Hangul_J_PieubSios : keysym = 0xee5
-let _Hangul_J_Sios : keysym = 0xee6
-let _Hangul_J_SsangSios : keysym = 0xee7
-let _Hangul_J_Ieung : keysym = 0xee8
-let _Hangul_J_Jieuj : keysym = 0xee9
-let _Hangul_J_Cieuc : keysym = 0xeea
-let _Hangul_J_Khieuq : keysym = 0xeeb
-let _Hangul_J_Tieut : keysym = 0xeec
-let _Hangul_J_Phieuf : keysym = 0xeed
-let _Hangul_J_Hieuh : keysym = 0xeee
-let _Hangul_RieulYeorinHieuh : keysym = 0xeef
-let _Hangul_SunkyeongeumMieum : keysym = 0xef0
-let _Hangul_SunkyeongeumPieub : keysym = 0xef1
-let _Hangul_PanSios : keysym = 0xef2
-let _Hangul_KkogjiDalrinIeung : keysym = 0xef3
-let _Hangul_SunkyeongeumPhieuf : keysym = 0xef4
-let _Hangul_YeorinHieuh : keysym = 0xef5
-let _Hangul_AraeA : keysym = 0xef6
-let _Hangul_AraeAE : keysym = 0xef7
-let _Hangul_J_PanSios : keysym = 0xef8
-let _Hangul_J_KkogjiDalrinIeung : keysym = 0xef9
-let _Hangul_J_YeorinHieuh : keysym = 0xefa
-let _Korean_Won : keysym = 0xeff

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gdk_tags.var b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gdk_tags.var
deleted file mode 100644 (file)
index 2c244a7..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gdk_tags.var
+++ /dev/null
@@ -1,163 +0,0 @@
-(* $Id$ *)
-
-type gdkEventType = "GDK_"
-  [ `NOTHING | `DELETE | `DESTROY | `EXPOSE | `MOTION_NOTIFY | `BUTTON_PRESS
-  | `TWO_BUTTON_PRESS "GDK_2BUTTON_PRESS"
-  | `THREE_BUTTON_PRESS "GDK_3BUTTON_PRESS"
-  | `BUTTON_RELEASE | `KEY_PRESS
-  | `KEY_RELEASE | `ENTER_NOTIFY | `LEAVE_NOTIFY | `FOCUS_CHANGE
-  | `CONFIGURE | `MAP | `UNMAP | `PROPERTY_NOTIFY | `SELECTION_CLEAR
-  | `SELECTION_REQUEST | `SELECTION_NOTIFY | `PROXIMITY_IN
-  | `PROXIMITY_OUT
-  | `DRAG_ENTER | `DRAG_LEAVE | `DRAG_MOTION | `DRAG_STATUS
-  | `DROP_START | `DROP_FINISHED | `CLIENT_EVENT | `VISIBILITY_NOTIFY
-  | `NO_EXPOSE ]
-
-type event_mask = "GDK_"
-  [ `EXPOSURE
-  | `POINTER_MOTION | `POINTER_MOTION_HINT
-  | `BUTTON_MOTION | `BUTTON1_MOTION | `BUTTON2_MOTION | `BUTTON3_MOTION
-  | `BUTTON_PRESS | `BUTTON_RELEASE
-  | `KEY_PRESS | `KEY_RELEASE
-  | `ENTER_NOTIFY | `LEAVE_NOTIFY | `FOCUS_CHANGE
-  | `STRUCTURE | `PROPERTY_CHANGE | `VISIBILITY_NOTIFY
-  | `PROXIMITY_IN | `PROXIMITY_OUT | `SUBSTRUCTURE
-  | `ALL_EVENTS ] "_MASK"
-
-type extension_events = "GDK_EXTENSION_EVENTS_"
-  [ `NONE | `ALL | `CURSOR ]
-
-type gdkVisibilityState = "GDK_VISIBILITY_"
-  [ `UNOBSCURED | `PARTIAL | `FULLY_OBSCURED ]
-
-type gdkInputSource = "GDK_SOURCE_"
-  [ `MOUSE | `PEN | `ERASER | `CURSOR ]
-
-type gdkCrossingMode = "GDK_CROSSING_"
-  [ `NORMAL | `GRAB | `UNGRAB ]
-
-type gdkNotifyType = "GDK_NOTIFY_"
-  [ `ANCESTOR | `VIRTUAL | `INFERIOR | `NONLINEAR | `NONLINEAR_VIRTUAL
-  | `UNKNOWN ] 
-
-type gdkFillRule = "GDK_"
-  [ `EVEN_ODD_RULE | `WINDING_RULE ]
-
-type gdkOverlapType = "GDK_OVERLAP_RECTANGLE_"
-  [ `IN | `OUT | `PART ]
-
-type gdkFunction = "GDK_"
-  [ `COPY | `INVERT | `XOR ]
-
-type gdkFill = "GDK_"
-  [ `SOLID | `TILED | `STIPPLED | `OPAQUE_STIPPLED ]
-
-type gdkSubwindowMode = "GDK_"
-  [ `CLIP_BY_CHILDREN | `INCLUDE_INFERIORS ]
-
-type gdkLineStyle = "GDK_LINE_"
-  [ `SOLID | `ON_OFF_DASH | `DOUBLE_DASH ]
-
-type gdkCapStyle = "GDK_CAP_"
-  [ `NOT_LAST | `BUTT | `ROUND | `PROJECTING ]
-
-type gdkJoinStyle = "GDK_JOIN_"
-  [ `MITER | `ROUND | `BEVEL ]
-
-type gdkModifier = "GDK_"
-  [ `SHIFT | `LOCK | `CONTROL | `MOD1 | `MOD2 | `MOD3 | `MOD4 | `MOD5
-  | `BUTTON1 | `BUTTON2 | `BUTTON3 | `BUTTON4 | `BUTTON5 ] "_MASK"
-
-type gdkImageType = "GDK_IMAGE_"
-  [ `NORMAL | `SHARED | `FASTEST ]
-
-type gdkVisualType = "GDK_VISUAL_"
-  [ `STATIC_GRAY | `GRAYSCALE | `STATIC_COLOR | `PSEUDO_COLOR
-  | `TRUE_COLOR | `DIRECT_COLOR ]
-
-type gdkFontType = "GDK_FONT_"
-  [ `FONT | `FONTSET ]
-
-type gdkDragAction = "GDK_ACTION_"
-  [ `DEFAULT | `COPY | `MOVE | `LINK | `PRIVATE | `ASK ]
-
-type gdkCursorType = "GDK_" [
-  | `NUM_GLYPHS
-  | `X_CURSOR
-  | `ARROW
-  | `BASED_ARROW_DOWN
-  | `BASED_ARROW_UP
-  | `BOAT
-  | `BOGOSITY
-  | `BOTTOM_LEFT_CORNER
-  | `BOTTOM_RIGHT_CORNER
-  | `BOTTOM_SIDE
-  | `BOTTOM_TEE
-  | `BOX_SPIRAL
-  | `CENTER_PTR
-  | `CIRCLE
-  | `CLOCK
-  | `COFFEE_MUG
-  | `CROSS
-  | `CROSS_REVERSE
-  | `CROSSHAIR
-  | `DIAMOND_CROSS
-  | `DOT
-  | `DOTBOX
-  | `DOUBLE_ARROW
-  | `DRAFT_LARGE
-  | `DRAFT_SMALL
-  | `DRAPED_BOX
-  | `EXCHANGE
-  | `FLEUR
-  | `GOBBLER
-  | `GUMBY
-  | `HAND1
-  | `HAND2
-  | `HEART
-  | `ICON
-  | `IRON_CROSS
-  | `LEFT_PTR
-  | `LEFT_SIDE
-  | `LEFT_TEE
-  | `LEFTBUTTON
-  | `LL_ANGLE
-  | `LR_ANGLE
-  | `MAN
-  | `MIDDLEBUTTON
-  | `MOUSE
-  | `PENCIL
-  | `PIRATE
-  | `PLUS
-  | `QUESTION_ARROW
-  | `RIGHT_PTR
-  | `RIGHT_SIDE
-  | `RIGHT_TEE
-  | `RIGHTBUTTON
-  | `RTL_LOGO
-  | `SAILBOAT
-  | `SB_DOWN_ARROW
-  | `SB_H_DOUBLE_ARROW
-  | `SB_LEFT_ARROW
-  | `SB_RIGHT_ARROW
-  | `SB_UP_ARROW
-  | `SB_V_DOUBLE_ARROW
-  | `SHUTTLE
-  | `SIZING
-  | `SPIDER
-  | `SPRAYCAN
-  | `STAR
-  | `TARGET
-  | `TCROSS
-  | `TOP_LEFT_ARROW
-  | `TOP_LEFT_CORNER
-  | `TOP_RIGHT_CORNER
-  | `TOP_SIDE
-  | `TOP_TEE
-  | `TREK
-  | `UL_ANGLE
-  | `UMBRELLA
-  | `UR_ANGLE
-  | `WATCH
-  | `XTERM
-  ]

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/glGtk.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/glGtk.ml
deleted file mode 100644 (file)
index c7020a4..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/glGtk.ml
+++ /dev/null
@@ -1,86 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-
-type visual_options = [
-  | `USE_GL
-  | `BUFFER_SIZE of int
-  | `LEVEL of int
-  | `RGBA
-  | `DOUBLEBUFFER
-  | `STEREO
-  | `AUX_BUFFERS of int
-  | `RED_SIZE of int
-  | `GREEN_SIZE of int
-  | `BLUE_SIZE of int
-  | `ALPHA_SIZE of int
-  | `DEPTH_SIZE of int
-  | `STENCIL_SIZE of int
-  | `ACCUM_GREEN_SIZE of int
-  | `ACCUM_ALPHA_SIZE of int
-]
-
-type gl_area = [`widget|`drawing|`glarea]
-
-module Raw = struct
-  external create :
-    visual_options list -> share:[>`glarea] optobj -> gl_area obj
-    = "ml_gtk_gl_area_new"
-
-  external swap_buffers : [>`glarea] obj -> unit
-    = "ml_gtk_gl_area_swapbuffers"
-
-  external make_current : [>`glarea] obj -> bool
-    = "ml_gtk_gl_area_make_current"
-end
-
-class area_signals obj =
-object (connect)
-  inherit GObj.widget_signals obj
-  method display ~callback =
-    (new GObj.event_signals ~after obj)#expose ~callback:
-      begin fun ev ->
-       if GdkEvent.Expose.count ev = 0 then
-         if Raw.make_current obj then callback ()
-         else prerr_endline "GlGtk-WARNING **: could not make current";
-       true
-      end
-  method reshape ~callback =
-    (new GObj.event_signals ~after obj)#configure ~callback:
-      begin fun ev ->
-       if Raw.make_current obj then begin
-         callback ~width:(GdkEvent.Configure.width ev)
-           ~height:(GdkEvent.Configure.height ev)
-       end
-       else prerr_endline "GlGtk-WARNING **: could not make current";
-       true
-      end
-  method realize ~callback =
-    let connect = new GObj.misc_signals ~after (GtkBase.Widget.coerce obj) in
-    connect#realize ~callback:
-      begin fun ev ->
-       if Raw.make_current obj then callback ()
-       else prerr_endline "GlGtk-WARNING **: could not make current"
-      end
-end
-
-class area obj = object (self)
-  inherit GObj.widget (obj : gl_area obj)
-  method as_area = obj
-  method event = new GObj.event_ops obj
-  method connect = new area_signals obj
-  method set_size = GtkMisc.DrawingArea.size obj
-  method swap_buffers () = Raw.swap_buffers obj
-  method make_current () =
-    if not (Raw.make_current obj) then
-      raise (Gl.GLerror "make_current")
-end
-
-let area options ?share ?(width=0) ?(height=0) ?packing ?show () =
-  let share =
-    match share with Some (x : area) -> Some x#as_area | None -> None in
-  let w = Raw.create options ~share:(Gpointer.optboxed share) in
-  if width <> 0 || height <> 0 then GtkMisc.DrawingArea.size w ~width ~height;
-  GtkBase.Widget.add_events w [`EXPOSURE];
-  GObj.pack_return (new area w) ~packing ~show

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/glGtk.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/glGtk.mli
deleted file mode 100644 (file)
index 599f24a..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/glGtk.mli
+++ /dev/null
@@ -1,63 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-open GObj
-
-type visual_options = [
-    `USE_GL
-  | `BUFFER_SIZE of int
-  | `LEVEL of int
-  | `RGBA
-  | `DOUBLEBUFFER
-  | `STEREO
-  | `AUX_BUFFERS of int
-  | `RED_SIZE of int
-  | `GREEN_SIZE of int
-  | `BLUE_SIZE of int
-  | `ALPHA_SIZE of int
-  | `DEPTH_SIZE of int
-  | `STENCIL_SIZE of int
-  | `ACCUM_GREEN_SIZE of int
-  | `ACCUM_ALPHA_SIZE of int
-]
-type gl_area = [`widget|`drawing|`glarea]
-
-module Raw :
-  sig
-    external create :
-      visual_options list -> share:[>`glarea] optobj -> gl_area obj
-      = "ml_gtk_gl_area_new"
-    external swap_buffers : [>`glarea] obj -> unit
-      = "ml_gtk_gl_area_swapbuffers"
-    external make_current : [>`glarea] obj -> bool
-      = "ml_gtk_gl_area_make_current"
-  end
-
-class area_signals : 'a obj ->
-  object
-    inherit widget_signals
-    constraint 'a = [>`glarea|`widget]
-    val obj : 'a obj
-    method display : callback:(unit -> unit) -> GtkSignal.id
-    method realize : callback:(unit -> unit) -> GtkSignal.id
-    method reshape :
-      callback:(width:int -> height:int -> unit) -> GtkSignal.id
-  end
-
-class area : gl_area obj ->
-  object
-    inherit widget
-    val obj : gl_area obj
-    method event : event_ops
-    method as_area : gl_area obj
-    method connect : area_signals
-    method make_current : unit -> unit
-    method set_size : width:int -> height:int -> unit
-    method swap_buffers : unit -> unit
-  end
-
-val area :
-  visual_options list ->
-  ?share:area ->
-  ?width:int ->
-  ?height:int -> ?packing:(widget -> unit) -> ?show:bool -> unit -> area

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/glib.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/glib.ml
deleted file mode 100644 (file)
index 2fd0140..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/glib.ml
+++ /dev/null
@@ -1,21 +0,0 @@
-(* $Id$ *)
-
-type warning_func = string -> unit
-
-external set_warning_handler : (string -> unit) -> warning_func
-    = "ml_g_set_warning_handler"
-
-type print_func = string -> unit
-
-external set_print_handler : (string -> unit) -> print_func
-    = "ml_g_set_print_handler"
-
-module Main = struct
-  type t
-  external create : bool -> t = "ml_g_main_new"
-  external iteration : bool -> bool = "ml_g_main_iteration"
-  external pending : unit -> bool = "ml_g_main_pending"
-  external is_running : t -> bool = "ml_g_main_is_running"
-  external quit : t -> unit = "ml_g_main_quit"
-  external destroy : t -> unit = "ml_g_main_destroy"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gpointer.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gpointer.ml
deleted file mode 100644 (file)
index 7d28a1f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gpointer.ml
+++ /dev/null
@@ -1,41 +0,0 @@
-(* $Id$ *)
-
-(* marked pointers *)
-type 'a optaddr
-
-let optaddr : 'a option -> 'a optaddr =
-  function
-      None -> Obj.magic 0
-    | Some x -> Obj.magic x
-
-(* naked pointers *)
-type optstring
-
-external get_null : unit -> optstring = "ml_get_null"
-let raw_null = get_null ()
-
-let optstring : string option -> optstring =
-  function
-      None -> raw_null
-    | Some x -> Obj.magic x
-
-(* boxed pointers *)
-type boxed
-let boxed_null : boxed = Obj.magic (0, raw_null)
-
-type 'a optboxed
-
-let optboxed : 'a option -> 'a optboxed =
-  function
-      None -> Obj.magic boxed_null
-    | Some obj -> Obj.magic obj
-
-let may_box ~f obj : 'a optboxed =
-  match obj with
-    None -> Obj.magic boxed_null
-  | Some obj -> Obj.magic (f obj : 'a)
-
-(* Exceptions *)
-
-exception Null
-let _ =  Callback.register_exception "null_pointer" Null

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtk.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtk.ml
deleted file mode 100644 (file)
index 0c7892e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtk.ml
+++ /dev/null
@@ -1,158 +0,0 @@
-(* $Id$ *)
-
-exception Error of string
-exception Warning of string
-exception Cannot_cast of string * string
-type 'a obj
-type 'a optobj = 'a obj Gpointer.optboxed
-type clampf = float
-
-module Tags = struct
-  type arrow_type = [ `UP|`DOWN|`LEFT|`RIGHT ]
-  type attach_options = [ `EXPAND|`SHRINK|`FILL ]
-  type direction_type = [ `TAB_FORWARD|`TAB_BACKWARD|`UP|`DOWN|`LEFT|`RIGHT ]
-  type justification = [ `LEFT|`RIGHT|`CENTER|`FILL ]
-  type match_type = [ `ALL|`ALL_TAIL|`HEAD|`TAIL|`EXACT|`LAST ]
-  type metric_type = [ `PIXELS|`INCHES|`CENTIMETERS ]
-  type orientation = [ `HORIZONTAL|`VERTICAL ]
-  type corner_type = [ `TOP_LEFT|`BOTTOM_LEFT|`TOP_RIGHT|`BOTTOM_RIGHT ]
-  type pack_type = [ `START|`END ]
-  type path_type = [ `WIDGET|`WIDGET_CLASS|`CLASS ]
-  type policy_type = [ `ALWAYS|`AUTOMATIC|`NEVER ]
-  type position = [ `LEFT|`RIGHT|`TOP|`BOTTOM ]
-  type preview_type = [ `COLOR|`GRAYSCALE ]
-  type relief_style = [ `NORMAL|`HALF|`NONE ]
-  type resize_mode = [ `PARENT|`QUEUE|`IMMEDIATE ]
-  type signal_run_type = [ `FIRST|`LAST|`BOTH|`NO_RECURSE|`ACTION|`NO_HOOKS ]
-  type scroll_type =
-      [ `NONE|`STEP_FORWARD|`STEP_BACKWARD|`PAGE_BACKWARD|`PAGE_FORWARD|`JUMP ]
-  type selection_mode = [ `SINGLE|`BROWSE|`MULTIPLE|`EXTENDED ]
-  type shadow_type = [ `NONE|`IN|`OUT|`ETCHED_IN|`ETCHED_OUT ]
-  type state_type = [ `NORMAL|`ACTIVE|`PRELIGHT|`SELECTED|`INSENSITIVE ] 
-  type submenu_direction = [ `LEFT|`RIGHT ]
-  type submenu_placement = [ `TOP_BOTTOM|`LEFT_RIGHT ]
-  type toolbar_style = [ `ICONS|`TEXT|`BOTH ]
-  type trough_type = [ `NONE|`START|`END|`JUMP ]
-  type update_type = [ `CONTINUOUS|`DISCONTINUOUS|`DELAYED ]
-  type visibility = [ `NONE|`PARTIAL|`FULL ]
-  type window_position = [ `NONE|`CENTER|`MOUSE|`CENTER_ALWAYS ]
-  type window_type = [ `TOPLEVEL|`DIALOG|`POPUP ]
-  type sort_type = [ `ASCENDING|`DESCENDING ]
-  type fundamental_type =
-    [ `INVALID|`NONE|`CHAR|`BOOL|`INT|`UINT|`LONG|`ULONG|`FLOAT|`DOUBLE
-     |`STRING|`ENUM|`FLAGS|`BOXED|`FOREIGN|`CALLBACK|`ARGS|`POINTER
-     |`SIGNAL|`C_CALLBACK|`OBJECT ]
-
-  type accel_flag = [ `VISIBLE|`SIGNAL_VISIBLE|`LOCKED ]
-  type button_box_style = [ `DEFAULT_STYLE|`SPREAD|`EDGE|`START|`END ]
-  type expand_type = [ `X|`Y|`BOTH|`NONE ]
-  type packer_options = [ `PACK_EXPAND|`FILL_X|`FILL_Y ]
-  type side_type = [ `TOP|`BOTTOM|`LEFT|`RIGHT ]
-  type anchor_type = [ `CENTER|`NORTH|`NW|`NE|`SOUTH|`SW|`SE|`WEST|`EAST ]
-  type update_policy = [ `ALWAYS|`IF_VALID|`SNAP_TO_TICKS ]
-  type cell_type = [ `EMPTY|`TEXT|`PIXMAP|`PIXTEXT|`WIDGET ]
-  type button_action = [ `SELECTS|`DRAGS|`EXPANDS ]
-  type calendar_display_options =
-    [ `SHOW_HEADING|`SHOW_DAY_NAMES|`NO_MONTH_CHANGE|`SHOW_WEEK_NUMBERS
-     |`WEEK_START_MONDAY ]
-  type spin_button_update_policy = [ `ALWAYS|`IF_VALID ]
-  type spin_type =
-    [ `STEP_FORWARD|`STEP_BACKWARD|`PAGE_FORWARD|`PAGE_BACKWARD
-     |`HOME|`END|`USER_DEFINED of float ]
-  type progress_bar_style = [ `CONTINUOUS|`DISCRETE ]
-  type progress_bar_orientation =
-    [ `LEFT_TO_RIGHT|`RIGHT_TO_LEFT|`BOTTOM_TO_TOP|`TOP_TO_BOTTOM ]
-  type dest_defaults = [ `MOTION|`HIGHLIGHT|`DROP|`ALL ]
-  type target_flags = [ `SAME_APP|`SAME_WIDGET ]
-  type font_metric_type = [ `PIXELS|`POINTS ]
-  type font_type = [ `BITMAP|`SCALABLE|`SCALABLE_BITMAP|`ALL ]
-  type font_filter_type = [ `BASE|`USER ]
-end
-open Tags
-
-type gtk_type
-type gtk_class
-
-type accel_group
-
-type style
-type 'a group = 'a obj option
-
-type statusbar_message
-type statusbar_context
-
-type color = { red: float; green: float; blue: float; opacity: float }
-type rectangle  = { x: int; y: int; width: int; height: int }
-type target_entry = { target: string; flags: target_flags list; info: int }
-
-type data = [`data]
-type adjustment = [`data|`adjustment]
-type tooltips = [`data|`tooltips]
-type widget = [`widget]
-type container = [`widget|`container]
-type alignment = [`widget|`container|`bin|`alignment]
-type event_box = [`widget|`container|`bin|`eventbox]
-type frame = [`widget|`container|`bin|`frame]
-type aspect_frame = [`widget|`container|`bin|`frame|`aspect]
-type handle_box = [`widget|`container|`bin|`handlebox]
-type invisible = [`widget|`container|`bin|`invisible]
-type item = [`widget|`container|`bin|`item]
-type list_item = [`widget|`container|`bin|`item|`listitem]
-type menu_item = [`widget|`container|`bin|`item|`menuitem]
-type check_menu_item = [`widget|`container|`bin|`item|`menuitem|`checkmenuitem]
-type radio_menu_item =
-    [`widget|`container|`bin|`item|`menuitem|`checkmenuitem|`radiomenuitem]
-type tree_item = [`widget|`container|`bin|`item|`treeitem]
-type viewport = [`widget|`container|`bin|`viewport]
-type window = [`widget|`container|`bin|`window]
-type color_selection_dialog = [`widget|`container|`window|`colorseldialog]
-type dialog = [`widget|`container|`bin|`window|`dialog]
-type input_dialog = [`widget|`container|`bin|`window|`dialog|`inputdialog]
-type file_selection = [`widget|`container|`bin|`window|`filesel]
-type font_selection_dialog = [`widget|`container|`bin|`window|`fontseldialog]
-type plug = [`widget|`container|`bin|`window|`plug]
-type box = [`widget|`container|`box]
-type button_box = [`widget|`container|`box|`bbox]
-type gamma_curve = [`widget|`container|`bbox|`gamma]
-type color_selection = [`widget|`container|`box|`colorsel]
-type combo = [`widget|`container|`box|`combo]
-type statusbar = [`widget|`container|`box|`statusbar]
-type button = [`widget|`container|`button]
-type toggle_button = [`widget|`container|`button|`toggle]
-type radio_button = [`widget|`container|`button|`toggle|`radio]
-type option_menu = [`widget|`container|`button|`optionmenu]
-type clist = [`widget|`container|`clist]
-type fixed = [`widget|`container|`fixed]
-type layout = [`widget|`container|`layout]
-type liste = [`widget|`container|`list]
-type menu_shell = [`widget|`container|`menushell]
-type menu = [`widget|`container|`menushell|`menu]
-type menu_bar = [`widget|`container|`menushell|`menubar]
-type notebook = [`widget|`container|`notebook]
-type font_selection = [`widget|`container|`notebook|`fontsel]
-type packer = [`widget|`container|`packer]
-type paned = [`widget|`container|`paned]
-type scrolled_window = [`widget|`container|`scrolled]
-type socket = [`widget|`container|`socket]
-type table = [`widget|`container|`table]
-type toolbar = [`widget|`container|`toolbar]
-type tree = [`widget|`container|`tree]
-type calendar = [`widget|`calendar]
-type drawing_area = [`widget|`drawing]
-type editable = [`widget|`editable]
-type entry = [`widget|`editable|`entry]
-type spin_button = [`widget|`editable|`entry|`spinbutton]
-type text = [`widget|`editable|`text]
-type misc = [`widget|`misc]
-type arrow = [`widget|`misc|`arrow]
-type image = [`widget|`misc|`image]
-type label = [`widget|`misc|`label]
-type tips_query = [`widget|`misc|`label|`tipsquery]
-type pixmap = [`widget|`misc|`pixmap]
-type progress = [`widget|`progress]
-type progress_bar = [`widget|`progress|`progressbar]
-type range = [`widget|`range]
-type scale = [`widget|`range|`scale]
-type scrollbar = [`widget|`range|`scrollbar]
-type ruler = [`widget|`ruler]
-type separator = [`widget|`separator]

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkArgv.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkArgv.ml
deleted file mode 100644 (file)
index 5e60c8d..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkArgv.ml
+++ /dev/null
@@ -1,106 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-
-type data =
-  | NONE
-  | CHAR of char
-  | BOOL of bool
-  | INT of int
-  | FLOAT of float
-  | STRING of string option
-  | OBJECT of unit obj option
-  | POINTER of Gpointer.boxed option
-
-type 'a result =
-  [ `NONE
-  | `CHAR of char | `BOOL of bool | `INT of int
-  | `UINT of int32 | `LONG of nativeint | `ULONG of nativeint
-  | `FLOAT of float | `DOUBLE of float
-  | `STRING of string option | `ENUM of int | `FLAGS of int32
-  | `BOXED of Gpointer.boxed option
-  | `POINTER of Gpointer.boxed option
-  | `OBJECT of 'a obj option ]
-
-module Arg = struct
-  type t
-  external shift : t -> pos:int -> t = "ml_gtk_arg_shift"
-  external get_type : t -> gtk_type = "ml_gtk_arg_get_type"
-  external get : t -> data = "ml_gtk_arg_get"
-  external set_retloc : t -> 'a result -> unit = "ml_gtk_arg_set_retloc"
-  external get_pointer : t -> Gpointer.boxed = "ml_gtk_arg_get_pointer"
-  external get_nativeint : t -> nativeint = "ml_gtk_arg_get_nativeint"
-
-  (* Safely get an argument *)
-  (*
-  external get_char : t -> char = "ml_gtk_arg_get_char"
-  external get_bool : t -> bool = "ml_gtk_arg_get_bool"
-  external get_int : t -> int = "ml_gtk_arg_get_int"
-  external get_float : t -> float = "ml_gtk_arg_get_float"
-  external get_string : t -> string option = "ml_gtk_arg_get_string"
-  external get_object : t -> unit obj option = "ml_gtk_arg_get_object"
-  *)
-  (* Safely set a result
-     Beware: this is not the opposite of get, arguments and results
-     are two different ways to use GtkArg. *)
-  (*
-  external set_char : t -> char -> unit = "ml_gtk_arg_set_char"
-  external set_bool : t -> bool -> unit = "ml_gtk_arg_set_bool"
-  external set_int : t -> int -> unit = "ml_gtk_arg_set_int"
-  external set_nativeint : t -> nativeint -> unit = "ml_gtk_arg_set_nativeint"
-  external set_float : t -> float -> unit = "ml_gtk_arg_set_float"
-  external set_string : t -> string -> unit = "ml_gtk_arg_set_string"
-  external set_pointer : t -> Gpointer.boxed -> unit = "ml_gtk_arg_set_pointer"
-  external set_object : t -> 'a obj -> unit = "ml_gtk_arg_set_object"
-  *)
-end
-
-open Arg
-type raw_obj
-type t = { referent: raw_obj; nargs: int; args: Arg.t }
-let nth arg ~pos =
-  if pos < 0 || pos >= arg.nargs then invalid_arg "GtkArg.Vect.nth";
-  shift arg.args ~pos
-let result arg =
-  if arg.nargs < 0 then invalid_arg "GtkArgv.result";
-  shift arg.args ~pos:arg.nargs
-external wrap_object : raw_obj -> unit obj = "Val_GtkObject"
-let referent arg =
-  if arg.referent == Obj.magic (-1) then invalid_arg "GtkArgv.referent";
-  wrap_object arg.referent
-let get_result_type arg = get_type (result arg)
-let get_type arg ~pos = get_type (nth arg ~pos)
-let get arg ~pos = get (nth arg ~pos)
-let set_result arg = set_retloc (result arg)
-
-let get_args arg =
-  let rec loop args ~pos =
-    if pos < 0 then args
-    else loop (get arg ~pos :: args) ~pos:(pos-1)
-  in loop [] ~pos:(arg.nargs - 1)
-
-let get_pointer arg ~pos = get_pointer (nth arg ~pos)
-let get_nativeint arg ~pos = get_nativeint (nth arg ~pos)
-
-(*
-let get_char arg ~pos = get_char (nth arg ~pos)
-let get_bool arg ~pos = get_bool (nth arg ~pos)
-let get_int arg ~pos = get_int (nth arg ~pos)
-let get_float arg ~pos = get_float (nth arg ~pos)
-let get_string arg ~pos = get_string (nth arg ~pos)
-let get_object arg ~pos = get_object (nth arg ~pos)
-let set_result_char arg = set_char (result arg)
-let set_result_bool arg = set_bool (result arg)
-let set_result_int arg = set_int (result arg)
-let set_result_nativeint arg = set_nativeint (result arg)
-let set_result_float arg = set_float (result arg)
-let set_result_string arg = set_string (result arg)
-let set_result_pointer arg = set_pointer (result arg)
-let set_result_object arg = set_object (result arg)
-*)
-
-external string_at_pointer : ?pos:int -> ?len:int -> Gpointer.boxed -> string
-    = "ml_string_at_pointer"
-external int_at_pointer : Gpointer.boxed -> int
-    = "ml_int_at_pointer"

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkBase.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkBase.ml
deleted file mode 100644 (file)
index 3b1a00f..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkBase.ml
+++ /dev/null
@@ -1,414 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-
-module Type = struct
-  external name : gtk_type -> string = "ml_gtk_type_name"
-  external from_name : string -> gtk_type = "ml_gtk_type_from_name"
-  external parent : gtk_type -> gtk_type = "ml_gtk_type_parent"
-  external get_class : gtk_type -> gtk_class = "ml_gtk_type_class"
-  external parent_class : gtk_type -> gtk_class = "ml_gtk_type_parent_class"
-  external is_a : gtk_type -> gtk_type -> bool = "ml_gtk_type_is_a"
-  external fundamental : gtk_type -> fundamental_type
-      = "ml_gtk_type_fundamental"
-end
-
-module Object = struct
-  external get_type : 'a obj -> gtk_type = "ml_gtk_object_type"
-  let is_a obj name =
-    Type.is_a (get_type obj) (Type.from_name name)
-  external destroy : 'a obj -> unit = "ml_gtk_object_destroy"
-  external coerce : 'a obj -> unit obj = "%identity"
-  external unsafe_cast : 'a obj -> 'b obj = "%identity"
-  let try_cast w name =
-    if is_a w name then unsafe_cast w
-    else raise (Cannot_cast(Type.name(get_type w), name))
-  let get_id (obj : 'a obj) : int = (snd (Obj.magic obj) lor 0)
-  module Signals = struct
-    open GtkSignal
-    let destroy : (_,_) t =
-      { name = "destroy"; marshaller = marshal_unit }
-  end
-end
-
-module Widget = struct
-  let cast w : widget obj = Object.try_cast w "GtkWidget"
-  external coerce : [>`widget] obj -> widget obj = "%identity"
-  external unparent : [>`widget] obj -> unit = "ml_gtk_widget_unparent"
-  external show : [>`widget] obj -> unit = "ml_gtk_widget_show"
-  external show_now : [>`widget] obj -> unit = "ml_gtk_widget_show_now"
-  external show_all : [>`widget] obj -> unit = "ml_gtk_widget_show_all"
-  external hide : [>`widget] obj -> unit = "ml_gtk_widget_hide"
-  external hide_all : [>`widget] obj -> unit = "ml_gtk_widget_hide_all"
-  external map : [>`widget] obj -> unit = "ml_gtk_widget_map"
-  external unmap : [>`widget] obj -> unit = "ml_gtk_widget_unmap"
-  external realize : [>`widget] obj -> unit = "ml_gtk_widget_realize"
-  external unrealize : [>`widget] obj -> unit = "ml_gtk_widget_unrealize"
-  external queue_draw : [>`widget] obj -> unit = "ml_gtk_widget_queue_draw"
-  external queue_resize : [>`widget] obj -> unit = "ml_gtk_widget_queue_resize"
-  external draw : [>`widget] obj -> Gdk.Rectangle.t option -> unit
-      = "ml_gtk_widget_draw"
-  external draw_focus : [>`widget] obj -> unit
-      = "ml_gtk_widget_draw_focus"
-  external draw_default : [>`widget] obj -> unit
-      = "ml_gtk_widget_draw_default"
-  external event : [>`widget] obj -> 'a Gdk.event -> bool
-      = "ml_gtk_widget_event"
-  external activate : [>`widget] obj -> bool
-      = "ml_gtk_widget_activate"
-  external reparent : [>`widget] obj -> [>`widget] obj -> unit
-      = "ml_gtk_widget_reparent"
-  external popup : [>`widget] obj -> x:int -> y:int -> unit
-      = "ml_gtk_widget_popup"
-  external intersect :
-      [>`widget] obj -> Gdk.Rectangle.t -> Gdk.Rectangle.t option
-      = "ml_gtk_widget_intersect"
-  external set_can_default : [>`widget] obj -> bool -> unit
-      = "ml_gtk_widget_set_can_default"
-  external set_can_focus : [>`widget] obj -> bool -> unit
-      = "ml_gtk_widget_set_can_focus"
-  external grab_focus : [>`widget] obj -> unit
-      = "ml_gtk_widget_grab_focus"
-  external grab_default : [>`widget] obj -> unit
-      = "ml_gtk_widget_grab_default"
-  external set_name : [>`widget] obj -> string -> unit
-      = "ml_gtk_widget_set_name"
-  external get_name : [>`widget] obj -> string
-      = "ml_gtk_widget_get_name"
-  external set_state : [>`widget] obj -> state_type -> unit
-      = "ml_gtk_widget_set_state"
-  external set_sensitive : [>`widget] obj -> bool -> unit
-      = "ml_gtk_widget_set_sensitive"
-  external set_uposition : [>`widget] obj -> x:int -> y:int -> unit
-      = "ml_gtk_widget_set_uposition"
-  external set_usize : [>`widget] obj -> width:int -> height:int -> unit
-      = "ml_gtk_widget_set_usize"
-  external add_events : [>`widget] obj -> Gdk.Tags.event_mask list -> unit
-      = "ml_gtk_widget_add_events"
-  external set_events : [>`widget] obj -> Gdk.Tags.event_mask list -> unit
-      = "ml_gtk_widget_set_events"
-  external set_extension_events :
-      [>`widget] obj -> Gdk.Tags.extension_events -> unit
-      = "ml_gtk_widget_set_extension_events"
-  external get_toplevel : [>`widget] obj -> widget obj
-      = "ml_gtk_widget_get_toplevel"
-  external get_ancestor : [>`widget] obj -> gtk_type -> widget obj
-      = "ml_gtk_widget_get_ancestor"
-  external get_colormap : [>`widget] obj -> Gdk.colormap
-      = "ml_gtk_widget_get_colormap"
-  external get_visual : [>`widget] obj -> Gdk.visual
-      = "ml_gtk_widget_get_visual"
-  external get_pointer : [>`widget] obj -> int * int
-      = "ml_gtk_widget_get_pointer"
-  external is_ancestor : [>`widget] obj -> [>`widget] obj -> bool
-      = "ml_gtk_widget_is_ancestor"
-  external set_style : [>`widget] obj -> style -> unit
-      = "ml_gtk_widget_set_style"
-  external set_rc_style : [>`widget] obj -> unit
-      = "ml_gtk_widget_set_rc_style"
-  external ensure_style : [>`widget] obj -> unit
-      = "ml_gtk_widget_ensure_style"
-  external get_style : [>`widget] obj -> style
-      = "ml_gtk_widget_get_style"
-  external restore_default_style : [>`widget] obj -> unit
-      = "ml_gtk_widget_restore_default_style"
-  external add_accelerator :
-      ([>`widget] as 'a) obj -> sgn:('a,unit->unit) GtkSignal.t ->
-      accel_group -> key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list ->
-      ?flags:accel_flag list -> unit
-      = "ml_gtk_widget_add_accelerator_bc" "ml_gtk_widget_add_accelerator"
-  external remove_accelerator :
-      [>`widget] obj -> accel_group ->
-      key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> unit
-      = "ml_gtk_widget_remove_accelerator"
-  external lock_accelerators : [>`widget] obj -> unit
-      = "ml_gtk_widget_lock_accelerators"
-  external unlock_accelerators : [>`widget] obj -> unit
-      = "ml_gtk_widget_unlock_accelerators"
-  external accelerators_locked : [>`widget] obj -> bool
-      = "ml_gtk_widget_accelerators_locked"
-  external window : [>`widget] obj -> Gdk.window
-      = "ml_GtkWidget_window"
-  external visible : [>`widget] obj -> bool
-      = "ml_GTK_WIDGET_VISIBLE"
-  external has_focus : [>`widget] obj -> bool
-      = "ml_GTK_WIDGET_HAS_FOCUS"
-  external parent : [>`widget] obj -> widget obj
-      = "ml_gtk_widget_parent"
-  external set_app_paintable : [>`widget] obj -> bool -> unit
-      = "ml_gtk_widget_set_app_paintable"
-  external allocation : [>`widget] obj -> rectangle
-      = "ml_gtk_widget_allocation"
-  external set_colormap : [>`widget] obj -> Gdk.colormap -> unit
-      = "ml_gtk_widget_set_colormap"
-  external set_visual : [>`widget] obj -> Gdk.visual -> unit
-      = "ml_gtk_widget_set_visual"
-  external set_default_colormap : Gdk.colormap -> unit
-      = "ml_gtk_widget_set_default_colormap"
-  external set_default_visual : Gdk.visual -> unit
-      = "ml_gtk_widget_set_default_visual"
-  external get_default_colormap : unit -> Gdk.colormap
-      = "ml_gtk_widget_get_default_colormap"
-  external get_default_visual : unit -> Gdk.visual
-      = "ml_gtk_widget_get_default_visual"
-  external push_colormap : Gdk.colormap -> unit
-      = "ml_gtk_widget_push_colormap"
-  external push_visual : Gdk.visual -> unit
-      = "ml_gtk_widget_push_visual"
-  external pop_colormap : unit -> unit
-      = "ml_gtk_widget_pop_colormap"
-  external pop_visual : unit -> unit
-      = "ml_gtk_widget_pop_visual"
-  module Signals = struct
-    open GtkArgv
-    open GtkSignal
-    let marshal f _ = function
-      | OBJECT(Some p) :: _ -> f (cast p)
-      |        _ -> invalid_arg "GtkBase.Widget.Signals.marshal"
-    let marshal_opt f _ = function
-      | OBJECT(Some obj) :: _ -> f (Some (cast obj))
-      | OBJECT None :: _ -> f None
-      | _ -> invalid_arg "GtkBase.Widget.Signals.marshal_opt"
-    let marshal_style f _ = function
-      | POINTER p :: _ -> f (Obj.magic p : Gtk.style option)
-      | _ -> invalid_arg "GtkBase.Widget.Signals.marshal_opt"
-    let marshal_drag1 f _ = function
-      | POINTER(Some p) :: _ -> f (Obj.magic p : Gdk.drag_context)
-      |        _ -> invalid_arg "GtkBase.Widget.Signals.marshal_drag1"
-    let marshal_drag2 f _ = function
-      | POINTER(Some p) :: INT time :: _ ->
-         f (Obj.magic p : Gdk.drag_context) ~time
-      |        _ -> invalid_arg "GtkBase.Widget.Signals.marshal_drag2"
-    let marshal_drag3 f argv = function
-      | POINTER(Some p) :: INT x :: INT y :: INT time :: _ ->
-         let res = f (Obj.magic p : Gdk.drag_context) ~x ~y ~time
-         in GtkArgv.set_result argv (`BOOL res)
-      |        _ -> invalid_arg "GtkBase.Widget.Signals.marshal_drag3"
-    let show : ([>`widget],_) t =
-      { name = "show"; marshaller = marshal_unit }
-    let hide : ([>`widget],_) t =
-      { name = "hide"; marshaller = marshal_unit }
-    let map : ([>`widget],_) t =
-      { name = "map"; marshaller = marshal_unit }
-    let unmap : ([>`widget],_) t =
-      { name = "unmap"; marshaller = marshal_unit }
-    let realize : ([>`widget],_) t =
-      { name = "realize"; marshaller = marshal_unit }
-    let draw : ([>`widget],_) t =
-      let marshal f _ = function
-       | POINTER(Some p) :: _ -> f (Obj.magic p : Gdk.Rectangle.t)
-       | _ -> invalid_arg "GtkBase.Widget.Signals.marshal_draw"
-      in { name = "draw"; marshaller = marshal }
-    let draw_focus : ([>`widget],_) t =
-      { name = "draw_focus"; marshaller = marshal_unit }
-    let draw_default : ([>`widget],_) t =
-      { name = "draw_default"; marshaller = marshal_unit }
-    external val_state : int -> state_type = "ml_Val_state_type"
-    let state_changed : ([>`widget],_) t =
-      let marshal f = marshal_int (fun x -> f (val_state x)) in
-      { name = "state_changed"; marshaller = marshal }
-    let parent_set : ([>`widget],_) t =
-      { name = "parent_set"; marshaller = marshal_opt }
-    let style_set : ([>`widget],_) t =
-      { name = "style_set"; marshaller = marshal_style }
-    let drag_begin : ([>`widget],_) t =
-      { name = "drag_begin"; marshaller = marshal_drag1 }
-    let drag_end : ([>`widget],_) t =
-      { name = "drag_end"; marshaller = marshal_drag1 }
-    let drag_data_delete : ([>`widget],_) t =
-      { name = "drag_data_delete"; marshaller = marshal_drag1 }
-    let drag_leave : ([>`widget],_) t =
-      { name = "drag_leave"; marshaller = marshal_drag2 }
-    let drag_motion : ([>`widget],_) t =
-      { name = "drag_motion"; marshaller = marshal_drag3 }
-    let drag_drop : ([>`widget],_) t =
-      { name = "drag_drop"; marshaller = marshal_drag3 }
-    let drag_data_get : ([>`widget],_) t =
-      let marshal f argv = function
-        | POINTER(Some p) :: POINTER(Some q) :: INT info :: INT time :: _ ->
-           f (Obj.magic p : Gdk.drag_context)
-             (Obj.magic q : GtkData.Selection.t) 
-             ~info
-             ~time
-       | _ -> invalid_arg "GtkBase.Widget.Signals.marshal_drag_data_get"
-      in
-      { name = "drag_data_get"; marshaller = marshal }
-    let drag_data_received : ([>`widget],_) t =
-      let marshal f _ = function
-        | POINTER(Some p) :: INT x :: INT y :: POINTER(Some q) ::
-          INT info :: INT time :: _ ->
-           f (Obj.magic p : Gdk.drag_context) ~x ~y
-              (Obj.magic q : GtkData.Selection.t)
-             ~info ~time
-       | _ -> invalid_arg "GtkBase.Widget.Signals.marshal_drag_data_received"
-      in
-      { name = "drag_data_received"; marshaller = marshal }
-
-    module Event = struct
-      let marshal f argv = function
-        | [POINTER(Some p)] ->
-           let ev = GdkEvent.unsafe_copy p in
-            GtkArgv.set_result argv (`BOOL(f ev))
-       | _ -> invalid_arg "GtkBase.Widget.Event.marshal"
-      let any : ([>`widget], Gdk.Tags.event_type Gdk.event -> bool) t =
-       { name = "event"; marshaller = marshal }
-      let button_press : ([>`widget], GdkEvent.Button.t -> bool) t =
-       { name = "button_press_event"; marshaller = marshal }
-      let button_release : ([>`widget], GdkEvent.Button.t -> bool) t =
-       { name = "button_release_event"; marshaller = marshal }
-      let motion_notify : ([>`widget], GdkEvent.Motion.t -> bool) t =
-       { name = "motion_notify_event"; marshaller = marshal }
-      let delete : ([>`widget], [`DELETE] Gdk.event -> bool) t =
-       { name = "delete_event"; marshaller = marshal }
-      let destroy : ([>`widget], [`DESTROY] Gdk.event -> bool) t =
-       { name = "destroy_event"; marshaller = marshal }
-      let expose : ([>`widget], GdkEvent.Expose.t -> bool) t =
-       { name = "expose_event"; marshaller = marshal }
-      let key_press : ([>`widget], GdkEvent.Key.t -> bool) t =
-       { name = "key_press_event"; marshaller = marshal }
-      let key_release : ([>`widget], GdkEvent.Key.t -> bool) t =
-       { name = "key_release_event"; marshaller = marshal }
-      let enter_notify : ([>`widget], GdkEvent.Crossing.t -> bool) t =
-       { name = "enter_notify_event"; marshaller = marshal }
-      let leave_notify : ([>`widget], GdkEvent.Crossing.t -> bool) t =
-       { name = "leave_notify_event"; marshaller = marshal }
-      let configure : ([>`widget], GdkEvent.Configure.t -> bool) t =
-       { name = "configure_event"; marshaller = marshal }
-      let focus_in : ([>`widget], GdkEvent.Focus.t -> bool) t =
-       { name = "focus_in_event"; marshaller = marshal }
-      let focus_out : ([>`widget], GdkEvent.Focus.t -> bool) t =
-       { name = "focus_out_event"; marshaller = marshal }
-      let map : ([>`widget], [`MAP] Gdk.event -> bool) t =
-       { name = "map_event"; marshaller = marshal }
-      let unmap : ([>`widget], [`UNMAP] Gdk.event -> bool) t =
-       { name = "unmap_event"; marshaller = marshal }
-      let property_notify : ([>`widget], GdkEvent.Property.t -> bool) t =
-       { name = "property_notify_event"; marshaller = marshal }
-      let selection_clear : ([>`widget], GdkEvent.Selection.t -> bool) t =
-       { name = "selection_clear_event"; marshaller = marshal }
-      let selection_request : ([>`widget], GdkEvent.Selection.t -> bool) t =
-       { name = "selection_request_event"; marshaller = marshal }
-      let selection_notify : ([>`widget], GdkEvent.Selection.t -> bool) t =
-       { name = "selection_notify_event"; marshaller = marshal }
-      let proximity_in : ([>`widget], GdkEvent.Proximity.t -> bool) t =
-       { name = "proximity_in_event"; marshaller = marshal }
-      let proximity_out : ([>`widget], GdkEvent.Proximity.t -> bool) t =
-       { name = "proximity_out_event"; marshaller = marshal }
-    end
-  end
-end
-
-module Container = struct
-  let cast w : container obj = Object.try_cast w "GtkContainer"
-  external coerce : [>`container] obj -> container obj = "%identity"
-  external set_border_width : [>`container] obj -> int -> unit
-      = "ml_gtk_container_set_border_width"
-  external set_resize_mode : [>`container] obj -> resize_mode -> unit
-      = "ml_gtk_container_set_resize_mode"
-  external add : [>`container] obj -> [>`widget] obj -> unit
-      = "ml_gtk_container_add"
-  external remove : [>`container] obj -> [>`widget] obj -> unit
-      = "ml_gtk_container_remove"
-  let set ?border_width ?(width = -2) ?(height = -2) w =
-    may border_width ~f:(set_border_width w);
-    if width <> -2 || height <> -2 then
-      Widget.set_usize w ?width ?height
-  external foreach : [>`container] obj -> f:(widget obj-> unit) -> unit
-      = "ml_gtk_container_foreach"
-  let children w =
-    let l = ref [] in
-    foreach w ~f:(fun c -> l := c :: !l);
-    List.rev !l
-  external focus : [>`container] obj -> direction_type -> bool
-      = "ml_gtk_container_focus"
-  (* Called by Widget.grab_focus *)
-  external set_focus_child : [>`container] obj -> [>`widget] optobj -> unit
-      = "ml_gtk_container_set_focus_child"
-  external set_focus_vadjustment :
-      [>`container] obj -> [>`adjustment] optobj -> unit
-      = "ml_gtk_container_set_focus_vadjustment"
-  external set_focus_hadjustment :
-      [>`container] obj -> [>`adjustment] optobj -> unit
-      = "ml_gtk_container_set_focus_hadjustment"
-  module Signals = struct
-    open GtkSignal
-    let add : ([>`container],_) t =
-      { name = "add"; marshaller = Widget.Signals.marshal }
-    let remove : ([>`container],_) t =
-      { name = "remove"; marshaller = Widget.Signals.marshal }
-    let need_resize : ([>`container],_) t =
-      let marshal f argv _ = GtkArgv.set_result argv (`BOOL(f ())) in
-      { name = "need_resize"; marshaller = marshal }
-    external val_direction : int -> direction_type = "ml_Val_direction_type"
-    let focus : ([>`container],_) t =
-      let marshal f argv = function
-        | GtkArgv.INT dir :: _ ->
-            GtkArgv.set_result argv (`BOOL(f (val_direction dir)))
-        | _ -> invalid_arg "GtkBase.Container.Signals.marshal_focus"
-      in { name = "focus"; marshaller = marshal }
-  end
-end
-
-module Item = struct
-  let cast w : item obj = Object.try_cast w "GtkItem"
-  external coerce : [>`item] obj -> item obj = "%identity"
-  external select : [>`item] obj -> unit = "ml_gtk_item_select"
-  external deselect : [>`item] obj -> unit = "ml_gtk_item_deselect"
-  external toggle : [>`item] obj -> unit = "ml_gtk_item_toggle"
-  module Signals = struct
-    open GtkSignal
-    let select : ([>`item],_) t =
-      { name = "select"; marshaller = marshal_unit }
-    let deselect : ([>`item],_) t =
-      { name = "deselect"; marshaller = marshal_unit }
-    let toggle : ([>`item],_) t =
-      { name = "toggle"; marshaller = marshal_unit }
-  end
-end
-
-
-module DnD = struct
-  external dest_set :
-      [>`widget] obj -> flags:dest_defaults list ->
-      targets:target_entry array -> actions:Gdk.Tags.drag_action list -> unit 
-    = "ml_gtk_drag_dest_set"
-  external dest_unset : [>`widget] obj -> unit
-      = "ml_gtk_drag_dest_unset"
-  external finish :
-      Gdk.drag_context -> success:bool -> del:bool -> time:int -> unit
-      = "ml_gtk_drag_finish"
-  external get_data :
-      [>`widget] obj -> Gdk.drag_context -> target:Gdk.atom -> time:int -> unit
-      = "ml_gtk_drag_get_data"
-  external get_source_widget : Gdk.drag_context -> widget obj
-      = "ml_gtk_drag_get_source_widget"
-  external highlight : [>`widget] obj -> unit = "ml_gtk_drag_highlight"
-  external unhighlight : [>`widget] obj -> unit = "ml_gtk_drag_unhighlight"
-  external set_icon_widget :
-      Gdk.drag_context -> [>`widget] obj -> hot_x:int -> hot_y:int -> unit
-      = "ml_gtk_drag_set_icon_widget"
-  external set_icon_pixmap :
-      Gdk.drag_context -> colormap:Gdk.colormap ->
-      Gdk.pixmap -> ?mask:Gdk.bitmap -> hot_x:int -> hot_y:int -> unit
-      = "ml_gtk_drag_set_icon_pixmap_bc" "ml_gtk_drag_set_icon_pixmap"
-  external set_icon_default : Gdk.drag_context -> unit
-      = "ml_gtk_drag_set_icon_default"
-  external set_default_icon :
-      colormap:Gdk.colormap -> Gdk.pixmap ->
-      ?mask:Gdk.bitmap -> hot_x:int -> hot_y:int -> unit
-      = "ml_gtk_drag_set_default_icon"
-  external source_set :
-      [>`widget] obj -> ?modi:Gdk.Tags.modifier list ->
-      targets:target_entry array -> actions:Gdk.Tags.drag_action list -> unit
-      = "ml_gtk_drag_source_set"
-  external source_set_icon :
-      [>`widget] obj -> colormap:Gdk.colormap ->
-      Gdk.pixmap -> ?mask:Gdk.bitmap -> unit
-      = "ml_gtk_drag_source_set_icon"
-  external source_unset : [>`widget] obj -> unit
-      = "ml_gtk_drag_source_unset"
-(*  external dest_handle_event : [>`widget] -> *)
-end
-

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkBin.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkBin.ml
deleted file mode 100644 (file)
index ab4cc7e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkBin.ml
+++ /dev/null
@@ -1,170 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module Alignment = struct
-  let cast w : alignment obj = Object.try_cast w "GtkAlignment"
-  external create :
-      x:clampf -> y:clampf -> xscale:clampf -> yscale:clampf -> alignment obj
-      = "ml_gtk_alignment_new"
-  let create ?(x=0.5) ?(y=0.5) ?(xscale=1.) ?(yscale=1.) () =
-    create ~x ~y ~xscale ~yscale
-  external set :
-      ?x:clampf -> ?y:clampf -> ?xscale:clampf -> ?yscale:clampf ->
-      [>`alignment] obj -> unit
-      = "ml_gtk_alignment_set"
-end
-
-module EventBox = struct
-  let cast w : event_box obj = Object.try_cast w "GtkEventBox"
-  external create : unit -> event_box obj = "ml_gtk_event_box_new"
-end
-
-module Frame = struct
-  let cast w : frame obj = Object.try_cast w "GtkFrame"
-  external coerce : [>`frame] obj -> frame obj = "%identity"
-  external create : string -> frame obj = "ml_gtk_frame_new"
-  external set_label : [>`frame] obj -> string -> unit
-      = "ml_gtk_frame_set_label"
-  external set_label_align : [>`frame] obj -> x:clampf -> y:clampf -> unit
-      = "ml_gtk_frame_set_label_align"
-  external set_shadow_type : [>`frame] obj -> shadow_type -> unit
-      = "ml_gtk_frame_set_shadow_type"
-  external get_label_xalign : [>`frame] obj -> float
-      = "ml_gtk_frame_get_label_xalign"
-  external get_label_yalign : [>`frame] obj -> float
-      = "ml_gtk_frame_get_label_yalign"
-  let set_label_align' ?x ?y w =
-    set_label_align w
-      ~x:(may_default get_label_xalign w ~opt:x)
-      ~y:(may_default get_label_yalign w ~opt:y)
-  let set ?label ?label_xalign ?label_yalign ?shadow_type w =
-    may label ~f:(set_label w);
-    if label_xalign <> None || label_yalign <> None then
-      set_label_align' w ?x:label_xalign ?y:label_yalign;
-    may shadow_type ~f:(set_shadow_type w)
-end
-
-module AspectFrame = struct
-  let cast w : aspect_frame obj = Object.try_cast w "GtkAspectFrame"
-  external create :
-      label:string -> xalign:clampf ->
-      yalign:clampf -> ratio:float -> obey_child:bool -> aspect_frame obj
-      = "ml_gtk_aspect_frame_new"
-  let create ?(label="") ?(xalign=0.5) ?(yalign=0.5)
-      ?(ratio=1.0) ?(obey_child=true) () =
-    create ~label ~xalign ~yalign ~ratio ~obey_child
-  external set :
-      [>`aspect] obj ->
-      xalign:clampf -> yalign:clampf -> ratio:float -> obey_child:bool -> unit
-      = "ml_gtk_aspect_frame_set"
-  external get_xalign : [>`aspect] obj -> clampf
-      = "ml_gtk_aspect_frame_get_xalign"
-  external get_yalign : [>`aspect] obj -> clampf
-      = "ml_gtk_aspect_frame_get_yalign"
-  external get_ratio : [>`aspect] obj -> clampf
-      = "ml_gtk_aspect_frame_get_ratio"
-  external get_obey_child : [>`aspect] obj -> bool
-      = "ml_gtk_aspect_frame_get_obey_child"
-  let set ?xalign ?yalign ?ratio ?obey_child w =
-    if xalign <> None || yalign <> None || ratio <> None || obey_child <> None
-    then set w
-       ~xalign:(may_default get_xalign w ~opt:xalign)
-       ~yalign:(may_default get_yalign w ~opt:yalign)
-       ~ratio:(may_default get_ratio w ~opt:ratio)
-       ~obey_child:(may_default get_obey_child w ~opt:obey_child)
-end
-
-module HandleBox = struct
-  let cast w : handle_box obj = Object.try_cast w "GtkHandleBox"
-  external create : unit -> handle_box obj = "ml_gtk_handle_box_new"
-  external set_shadow_type : [>`handlebox] obj -> shadow_type -> unit =
-   "ml_gtk_handle_box_set_shadow_type"
-  external set_handle_position : [>`handlebox] obj -> position -> unit =
-   "ml_gtk_handle_box_set_handle_position"
-  external set_snap_edge : [>`handlebox] obj -> position -> unit =
-   "ml_gtk_handle_box_set_snap_edge"
-  module Signals = struct
-    open GtkSignal
-    let child_attached : ([>`handlebox],_) t =
-      { name = "child_attached"; marshaller = Widget.Signals.marshal }
-    let child_detached : ([>`handlebox],_) t =
-      { name = "child_detached"; marshaller = Widget.Signals.marshal }
-  end
-end
-
-module Viewport = struct
-  let cast w : viewport obj = Object.try_cast w "GtkViewport"
-  external create :
-      [>`adjustment] optobj -> [>`adjustment] optobj -> viewport obj
-      = "ml_gtk_viewport_new"
-  let create ?hadjustment ?vadjustment () =
-    create (Gpointer.optboxed hadjustment) (Gpointer.optboxed vadjustment)
-  external get_hadjustment : [>`viewport] obj -> adjustment obj
-      = "ml_gtk_viewport_get_hadjustment"
-  external get_vadjustment : [>`viewport] obj -> adjustment obj
-      = "ml_gtk_viewport_get_vadjustment"
-  external set_hadjustment : [>`viewport] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_viewport_set_hadjustment"
-  external set_vadjustment : [>`viewport] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_viewport_set_vadjustment"
-  external set_shadow_type : [>`viewport] obj -> shadow_type -> unit
-      = "ml_gtk_viewport_set_shadow_type"
-  let set ?hadjustment ?vadjustment ?shadow_type w =
-    may hadjustment ~f:(set_hadjustment w);
-    may vadjustment ~f:(set_vadjustment w);
-    may shadow_type ~f:(set_shadow_type w)
-end
-
-module ScrolledWindow = struct
-  let cast w : scrolled_window obj = Object.try_cast w "GtkScrolledWindow"
-  external create :
-      [>`adjustment] optobj -> [>`adjustment] optobj -> scrolled_window obj
-      = "ml_gtk_scrolled_window_new"
-  let create ?hadjustment ?vadjustment () =
-    create (Gpointer.optboxed hadjustment) (Gpointer.optboxed vadjustment)
-  external set_hadjustment : [>`scrolled] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_scrolled_window_set_hadjustment"
-  external set_vadjustment : [>`scrolled] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_scrolled_window_set_vadjustment"
-  external get_hadjustment : [>`scrolled] obj -> adjustment obj
-      = "ml_gtk_scrolled_window_get_hadjustment"
-  external get_vadjustment : [>`scrolled] obj -> adjustment obj
-      = "ml_gtk_scrolled_window_get_vadjustment"
-  external set_policy : [>`scrolled] obj -> policy_type -> policy_type -> unit
-      = "ml_gtk_scrolled_window_set_policy"
-  external add_with_viewport : [>`scrolled] obj -> [>`widget] obj -> unit
-      = "ml_gtk_scrolled_window_add_with_viewport"
-  external get_hscrollbar_policy : [>`scrolled] obj -> policy_type
-      = "ml_gtk_scrolled_window_get_hscrollbar_policy"
-  external get_vscrollbar_policy : [>`scrolled] obj -> policy_type
-      = "ml_gtk_scrolled_window_get_vscrollbar_policy"
-  external set_placement : [>`scrolled] obj -> corner_type -> unit
-      = "ml_gtk_scrolled_window_set_placement"
-  let set_policy' ?hpolicy ?vpolicy w =
-    set_policy w
-      (may_default get_hscrollbar_policy w ~opt:hpolicy)
-      (may_default get_vscrollbar_policy w ~opt:vpolicy)
-  let set ?hpolicy ?vpolicy ?placement w =
-    if hpolicy <> None || vpolicy <> None then
-      set_policy' w ?hpolicy ?vpolicy;
-    may placement ~f:(set_placement w)
-end
-
-module Socket = struct
-  let cast w : socket obj = Object.try_cast w "GtkSocket"
-  external coerce : [>`socket] obj -> socket obj = "%identity"
-  external create : unit -> socket obj = "ml_gtk_socket_new"
-  external steal : [>`socket] obj -> Gdk.xid -> unit = "ml_gtk_socket_steal"
-end
-
-(*
-module Invisible = struct
-  let cast w : socket obj = Object.try_cast w "GtkInvisible"
-  external coerce : [>`invisible] obj -> invisible obj = "%identity"
-  external create : unit -> invisible obj = "ml_gtk_invisible_new"
-end
-*)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkButton.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkButton.ml
deleted file mode 100644 (file)
index 6d9ddf5..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkButton.ml
+++ /dev/null
@@ -1,148 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module Button = struct
-  let cast w : button obj = Object.try_cast w "GtkButton"
-  external coerce : [>`button] obj -> button obj = "%identity"
-  external create : unit -> button obj = "ml_gtk_button_new"
-  external create_with_label : string -> button obj
-      = "ml_gtk_button_new_with_label"
-  let create ?label () =
-    match label with None -> create ()
-    | Some x -> create_with_label x
-  external pressed : [>`button] obj -> unit = "ml_gtk_button_pressed"
-  external released : [>`button] obj -> unit = "ml_gtk_button_released"
-  external clicked : [>`button] obj -> unit = "ml_gtk_button_clicked"
-  external enter : [>`button] obj -> unit = "ml_gtk_button_enter"
-  external leave : [>`button] obj -> unit = "ml_gtk_button_leave"
-  module Signals = struct
-    open GtkSignal
-    let pressed : ([>`button],_) t =
-      { name = "pressed"; marshaller = marshal_unit }
-    let released : ([>`button],_) t =
-      { name = "released"; marshaller = marshal_unit }
-    let clicked : ([>`button],_) t =
-      { name = "clicked"; marshaller = marshal_unit }
-    let enter : ([>`button],_) t =
-      { name = "enter"; marshaller = marshal_unit }
-    let leave : ([>`button],_) t =
-      { name = "leave"; marshaller = marshal_unit }
-  end
-end
-
-module ToggleButton = struct
-  let cast w : toggle_button obj = Object.try_cast w "GtkToggleButton"
-  external coerce : [>`toggle] obj -> toggle_button obj = "%identity"
-  external toggle_button_create : unit -> toggle_button obj
-      = "ml_gtk_toggle_button_new"
-  external toggle_button_create_with_label : string -> toggle_button obj
-      = "ml_gtk_toggle_button_new_with_label"
-  external check_button_create : unit -> toggle_button obj
-      = "ml_gtk_check_button_new"
-  external check_button_create_with_label : string -> toggle_button obj
-      = "ml_gtk_check_button_new_with_label"
-  let create_toggle ?label () =
-    match label with None -> toggle_button_create ()
-    | Some label -> toggle_button_create_with_label label
-  let create_check ?label () =
-    match label with None -> check_button_create ()
-    | Some label -> check_button_create_with_label label
-  external set_mode : [>`toggle] obj -> bool -> unit
-      = "ml_gtk_toggle_button_set_mode"
-  external set_active : [>`toggle] obj -> bool -> unit
-      = "ml_gtk_toggle_button_set_active"
-  let set ?active ?draw_indicator w =
-    may ~f:(set_mode w) draw_indicator;
-    may ~f:(set_active w) active
-  external get_active : [>`toggle] obj -> bool
-      = "ml_gtk_toggle_button_get_active"
-  external toggled : [>`toggle] obj -> unit
-      = "ml_gtk_toggle_button_toggled"
-  module Signals = struct
-    open GtkSignal
-    let toggled : ([>`toggle],_) t =
-      { name = "toggled"; marshaller = marshal_unit }
-  end
-end
-
-module RadioButton = struct
-  let cast w : radio_button obj = Object.try_cast w "GtkRadioButton"
-  external create : radio_button group -> radio_button obj
-      = "ml_gtk_radio_button_new"
-  external create_with_label : radio_button group -> string -> radio_button obj
-      = "ml_gtk_radio_button_new_with_label"
-  external set_group : [>`radio] obj -> radio_button group -> unit
-      = "ml_gtk_radio_button_set_group"
-  let create ?(group = None) ?label () =
-    match label with None -> create group
-    | Some label -> create_with_label group label
-end
-
-module Toolbar = struct
-  let cast w : toolbar obj = Object.try_cast w "GtkToolbar"
-  external create : orientation -> style:toolbar_style -> toolbar obj
-      = "ml_gtk_toolbar_new"
-  let create dir ?(style=`BOTH) () = create dir ~style
-  external insert_space : [>`toolbar] obj -> pos:int -> unit
-      = "ml_gtk_toolbar_insert_space"
-  let insert_space w ?(pos = -1) () = insert_space w ~pos
-  external insert_button :
-      [>`toolbar] obj -> kind:[`BUTTON|`TOGGLEBUTTON|`RADIOBUTTON] ->
-      text:string -> tooltip:string ->
-      tooltip_private:string ->
-      icon:[>`widget] optobj -> pos:int -> button obj
-      = "ml_gtk_toolbar_insert_element_bc" "ml_gtk_toolbar_insert_element"
-  let insert_button w ?(kind=`BUTTON) ?(text="") ?(tooltip="")
-      ?(tooltip_private="") ?icon ?(pos = -1) ?callback () =
-    let b =insert_button w ~kind ~text ~tooltip ~tooltip_private ~pos
-        ~icon:(Gpointer.optboxed icon)
-    in
-    match callback with
-    | None   -> b
-    | Some c -> GtkSignal.connect b ~sgn:Button.Signals.clicked
-         ~callback: c; b
-  external insert_widget :
-      [>`toolbar] obj -> [>`widget] obj ->
-      tooltip:string -> tooltip_private:string -> pos:int -> unit
-      = "ml_gtk_toolbar_insert_widget"
-  let insert_widget w ?(tooltip="") ?(tooltip_private="") ?(pos = -1) w' =
-    insert_widget w w' ~tooltip ~tooltip_private ~pos
-  external set_orientation : [>`toolbar] obj -> orientation -> unit =
-    "ml_gtk_toolbar_set_orientation"
-  external set_style : [>`toolbar] obj -> toolbar_style -> unit =
-    "ml_gtk_toolbar_set_style"
-  external set_space_size : [>`toolbar] obj -> int -> unit =
-    "ml_gtk_toolbar_set_space_size"
-  external set_space_style : [>`toolbar] obj -> [ `EMPTY|`LINE ] -> unit =
-    "ml_gtk_toolbar_set_space_style"
-  external set_tooltips : [>`toolbar] obj -> bool -> unit =
-    "ml_gtk_toolbar_set_tooltips"
-  external set_button_relief : [>`toolbar] obj -> relief_style -> unit =
-    "ml_gtk_toolbar_set_button_relief"
-  external get_button_relief : [>`toolbar] obj -> relief_style =
-    "ml_gtk_toolbar_get_button_relief"
-  let set ?orientation ?style ?space_size
-      ?space_style ?tooltips ?button_relief w =
-    may orientation ~f:(set_orientation w);
-    may style ~f:(set_style w);
-    may space_size ~f:(set_space_size w);
-    may space_style ~f:(set_space_style w);
-    may tooltips ~f:(set_tooltips w);
-    may button_relief ~f:(set_button_relief w)
-  module Signals = struct
-    open GtkSignal
-    external val_orientation : int -> orientation = "ml_Val_orientation"
-    external val_toolbar_style : int -> toolbar_style
-       = "ml_Val_toolbar_style"
-    let orientation_changed : ([>`toolbar],_) t =
-      let marshal f = marshal_int (fun x -> f (val_orientation x)) in
-      { name = "orientation_changed"; marshaller = marshal }
-    let style_changed : ([>`toolbar],_) t =
-      let marshal f = marshal_int (fun x -> f (val_toolbar_style x)) in
-      { name = "style_changed"; marshaller = marshal }
-  end
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkData.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkData.ml
deleted file mode 100644 (file)
index 5b7f90e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkData.ml
+++ /dev/null
@@ -1,148 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-
-module AccelGroup = struct
-  external create : unit -> accel_group = "ml_gtk_accel_group_new"
-  external activate :
-      accel_group -> key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> bool
-      = "ml_gtk_accel_group_activate"
-  external groups_activate :
-      'a obj -> key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> bool
-      = "ml_gtk_accel_groups_activate"
-  external attach : accel_group -> 'a obj -> unit
-      = "ml_gtk_accel_group_attach"
-  external detach : accel_group -> 'a obj -> unit
-      = "ml_gtk_accel_group_detach"
-  external lock : accel_group -> unit
-      = "ml_gtk_accel_group_lock"
-  external unlock : accel_group -> unit
-      = "ml_gtk_accel_group_unlock"
-  external lock_entry :
-      accel_group -> key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> bool
-      = "ml_gtk_accel_group_lock_entry"
-  external add :
-      accel_group -> key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list ->
-      ?flags:accel_flag list ->
-      call:'a obj -> sgn:('a,unit->unit) GtkSignal.t -> unit
-      = "ml_gtk_accel_group_add_bc" "ml_gtk_accel_group_add"
-  external remove :
-      accel_group ->
-      key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> call:'a obj -> unit
-      = "ml_gtk_accel_group_remove"
-  external valid : key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> bool
-      = "ml_gtk_accelerator_valid"
-  external set_default_mod_mask : Gdk.Tags.modifier list option -> unit
-      = "ml_gtk_accelerator_set_default_mod_mask"
-end
-
-module Style = struct
-  external create : unit -> style = "ml_gtk_style_new"
-  external copy : style -> style = "ml_gtk_style_copy"
-  external attach : style -> Gdk.window -> style = "ml_gtk_style_attach"
-  external detach : style -> unit = "ml_gtk_style_detach"
-  external set_background : style -> Gdk.window -> state_type -> unit
-      = "ml_gtk_style_set_background"
-  external draw_hline :
-      style -> Gdk.window -> state_type -> x:int -> x:int -> y:int -> unit
-      = "ml_gtk_draw_hline_bc" "ml_gtk_draw_hline"
-  external draw_vline :
-      style -> Gdk.window -> state_type -> y:int -> y:int -> x:int -> unit
-      = "ml_gtk_draw_vline_bc" "ml_gtk_draw_vline"
-  external get_bg : style -> state:state_type -> Gdk.Color.t
-      = "ml_gtk_style_get_bg"
-  external set_bg : style -> state:state_type -> color:Gdk.Color.t -> unit
-      = "ml_gtk_style_set_bg"
-  external get_dark_gc : style -> state:state_type -> Gdk.gc
-      = "ml_gtk_style_get_dark_gc"
-  external get_light_gc : style -> state:state_type -> Gdk.gc
-      = "ml_gtk_style_get_light_gc"
-  external get_colormap : style -> Gdk.colormap = "ml_gtk_style_get_colormap"
-  external get_font : style -> Gdk.font = "ml_gtk_style_get_font"
-  external set_font : style -> Gdk.font -> unit = "ml_gtk_style_set_font"
-(*
-  let set st ?:background ?:font =
-    let may_set f = may fun:(f st) in
-    may_set set_background background;
-    may_set set_font font
-*)
-end
-
-module Data = struct
-  module Signals = struct
-    open GtkSignal
-    let disconnect : ([>`data],_) t =
-      { name = "disconnect"; marshaller = marshal_unit }
-  end
-end
-
-module Adjustment = struct
-  external create :
-      value:float -> lower:float -> upper:float ->
-      step_incr:float -> page_incr:float -> page_size:float -> adjustment obj
-      = "ml_gtk_adjustment_new_bc" "ml_gtk_adjustment_new"
-  external set_value : [>`adjustment] obj -> float -> unit
-      = "ml_gtk_adjustment_set_value"
-  external clamp_page :
-      [>`adjustment] obj -> lower:float -> upper:float -> unit
-      = "ml_gtk_adjustment_clamp_page"
-  external get_lower : [>`adjustment] obj -> float
-      = "ml_gtk_adjustment_get_lower"
-  external get_upper : [>`adjustment] obj -> float
-      = "ml_gtk_adjustment_get_upper"
-  external get_value : [>`adjustment] obj -> float
-      = "ml_gtk_adjustment_get_value"
-  external get_step_increment : [>`adjustment] obj -> float
-      = "ml_gtk_adjustment_get_step_increment"
-  external get_page_increment : [>`adjustment] obj -> float
-      = "ml_gtk_adjustment_get_page_increment"
-  external get_page_size : [>`adjustment] obj -> float
-      = "ml_gtk_adjustment_get_page_size"
-  module Signals = struct
-    open GtkSignal
-    let changed : ([>`adjustment],_) t =
-      { name = "changed"; marshaller = marshal_unit }
-    let value_changed : ([>`adjustment],_) t =
-      { name = "value_changed"; marshaller = marshal_unit }
-  end
-end
-
-module Tooltips = struct
-  external create : unit -> tooltips obj = "ml_gtk_tooltips_new"
-  external enable : [>`tooltips] obj -> unit = "ml_gtk_tooltips_enable"
-  external disable : [>`tooltips] obj -> unit = "ml_gtk_tooltips_disable"
-  external set_delay : [>`tooltips] obj -> int -> unit
-      = "ml_gtk_tooltips_set_delay"
-  external set_tip :
-      [>`tooltips] obj ->
-      [>`widget] obj -> ?text:string -> ?privat:string -> unit
-      = "ml_gtk_tooltips_set_tip"
-  external set_colors :
-      [>`tooltips] obj ->
-      ?foreground:Gdk.Color.t -> ?background:Gdk.Color.t -> unit -> unit
-      = "ml_gtk_tooltips_set_colors"
-  let set ?delay ?foreground ?background tt =
-    may ~f:(set_delay tt) delay;
-    if foreground <> None || background <> None then
-      set_colors tt ?foreground ?background ()
-end
-
-
-module Selection = struct
-  type t
-  external selection : t -> Gdk.atom
-      = "ml_gtk_selection_data_selection"
-  external target : t -> Gdk.atom
-      = "ml_gtk_selection_data_target"
-  external seltype : t -> Gdk.atom
-      = "ml_gtk_selection_data_type"
-  external format : t -> int
-      = "ml_gtk_selection_data_format"
-  external get_data : t -> string
-      = "ml_gtk_selection_data_get_data"       (* May raise Gpointer.null *)
-  external set :
-      t -> typ:Gdk.atom -> format:int -> ?data:string -> unit
-      = "ml_gtk_selection_data_set"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkEdit.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkEdit.ml
deleted file mode 100644 (file)
index bef2fed..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkEdit.ml
+++ /dev/null
@@ -1,223 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module Editable = struct
-  let cast w : editable obj = Object.try_cast w "GtkEditable"
-  external coerce : [>`editable] obj -> editable obj = "%identity"
-  external select_region : [>`editable] obj -> start:int -> stop:int -> unit
-      = "ml_gtk_editable_select_region"
-  external insert_text : [>`editable] obj -> string -> pos:int -> int
-      = "ml_gtk_editable_insert_text"
-  external delete_text : [>`editable] obj -> start:int -> stop:int -> unit
-      = "ml_gtk_editable_delete_text"
-  external get_chars : [>`editable] obj -> start:int -> stop:int -> string
-      = "ml_gtk_editable_get_chars"
-  external cut_clipboard : [>`editable] obj -> unit
-      = "ml_gtk_editable_cut_clipboard"
-  external copy_clipboard : [>`editable] obj -> unit
-      = "ml_gtk_editable_copy_clipboard"
-  external paste_clipboard : [>`editable] obj -> unit
-      = "ml_gtk_editable_paste_clipboard"
-  external claim_selection :
-      [>`editable] obj -> claim:bool -> time:int -> unit
-      = "ml_gtk_editable_claim_selection"
-  external delete_selection : [>`editable] obj -> unit
-      = "ml_gtk_editable_delete_selection"
-  external changed : [>`editable] obj -> unit = "ml_gtk_editable_changed"
-  external set_position : [>`editable] obj -> int -> unit
-      = "ml_gtk_editable_set_position"
-  external get_position : [>`editable] obj -> int
-      = "ml_gtk_editable_get_position"
-  external set_editable : [>`editable] obj -> bool -> unit
-      = "ml_gtk_editable_set_editable"
-  external selection_start_pos : [>`editable] obj -> int
-      = "ml_gtk_editable_selection_start_pos"
-  external selection_end_pos : [>`editable] obj -> int
-      = "ml_gtk_editable_selection_end_pos"
-  external has_selection : [>`editable] obj -> bool
-      = "ml_gtk_editable_has_selection"
-  module Signals = struct
-    open GtkArgv
-    open GtkSignal
-    let activate : ([>`editable],_) t =
-      { name = "activate"; marshaller = marshal_unit }
-    let changed : ([>`editable],_) t =
-      { name = "changed"; marshaller = marshal_unit }
-    let marshal_insert f argv = function
-      | STRING _ :: INT len :: POINTER(Some pos) :: _ ->
-          (* XXX These two accesses are implementation-dependent *)
-          let s = string_at_pointer (get_pointer argv ~pos:0) ~len
-          and pos = int_at_pointer pos in
-          f s ~pos
-      | _ -> invalid_arg "GtkEdit.Editable.Signals.marshal_insert"
-    let insert_text : ([>`editable],_) t =
-      { name = "insert_text"; marshaller = marshal_insert }
-    let marshal_delete f _ = function
-      | INT start :: INT stop :: _ ->
-          f ~start ~stop
-      | _ -> invalid_arg "GtkEdit.Editable.Signals.marshal_delete"
-    let delete_text : ([>`editable],_) t =
-      { name = "delete_text"; marshaller = marshal_delete }
-  end
-end
-
-module Entry = struct
-  let cast w : entry obj = Object.try_cast w "GtkEntry"
-  external coerce : [>`entry] obj -> entry obj = "%identity"
-  external create : unit -> entry obj = "ml_gtk_entry_new"
-  external create_with_max_length : int -> entry obj
-      = "ml_gtk_entry_new_with_max_length"
-  let create ?max_length () =
-    match max_length with None -> create ()
-    | Some len -> create_with_max_length len
-  external set_text : [>`entry] obj -> string -> unit
-      = "ml_gtk_entry_set_text"
-  external append_text : [>`entry] obj -> string -> unit
-      = "ml_gtk_entry_append_text"
-  external prepend_text : [>`entry] obj -> string -> unit
-      = "ml_gtk_entry_prepend_text"
-  external get_text : [>`entry] obj -> string = "ml_gtk_entry_get_text"
-  external set_visibility : [>`entry] obj -> bool -> unit
-      = "ml_gtk_entry_set_visibility"
-  external set_max_length : [>`entry] obj -> int -> unit
-      = "ml_gtk_entry_set_max_length"
-  let set ?text ?visibility ?max_length w =
-    let may_set f = may ~f:(f w) in
-    may_set set_text text;
-    may_set set_visibility visibility;
-    may_set set_max_length max_length
-  external text_length : [>`entry] obj -> int
-      = "ml_GtkEntry_text_length"
-end
-
-module SpinButton = struct
-  let cast w : spin_button obj = Object.try_cast w "GtkSpinButton"
-  external create :
-      [>`adjustment] optobj -> rate:float -> digits:int -> spin_button obj
-      = "ml_gtk_spin_button_new"
-  let create ?adjustment ?(rate=0.5) ?(digits=0) () =
-    create (Gpointer.optboxed adjustment) ~rate ~digits
-  external configure :
-    [>`spinbutton] obj -> adjustment:[>`adjustment] obj ->
-    rate:float -> digits:int -> unit
-    = "ml_gtk_spin_button_configure"
-  external set_adjustment : [>`spinbutton] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_spin_button_set_adjustment"
-  external get_adjustment : [>`spinbutton] obj -> adjustment obj
-      = "ml_gtk_spin_button_get_adjustment"
-  external set_digits : [>`spinbutton] obj -> int -> unit
-      = "ml_gtk_spin_button_set_digits"
-  external get_value : [>`spinbutton] obj -> float
-      = "ml_gtk_spin_button_get_value_as_float"
-  let get_value_as_int w = truncate (get_value w +. 0.5)
-  external set_value : [>`spinbutton] obj -> float -> unit
-      = "ml_gtk_spin_button_set_value"
-  external set_update_policy :
-      [>`spinbutton] obj -> [`ALWAYS|`IF_VALID] -> unit
-      = "ml_gtk_spin_button_set_update_policy"
-  external set_numeric : [>`spinbutton] obj -> bool -> unit
-      = "ml_gtk_spin_button_set_numeric"
-  external spin : [>`spinbutton] obj -> spin_type -> unit
-      = "ml_gtk_spin_button_spin"
-  external set_wrap : [>`spinbutton] obj -> bool -> unit
-      = "ml_gtk_spin_button_set_wrap"
-  external set_shadow_type : [>`spinbutton] obj -> shadow_type -> unit
-      = "ml_gtk_spin_button_set_shadow_type"
-  external set_snap_to_ticks : [>`spinbutton] obj -> bool -> unit
-      = "ml_gtk_spin_button_set_snap_to_ticks"
-  external update : [>`spinbutton] obj -> unit
-      = "ml_gtk_spin_button_update"
-  let set ?adjustment ?digits ?value ?update_policy
-      ?numeric ?wrap ?shadow_type ?snap_to_ticks w =
-    let may_set f = may ~f:(f w) in
-    may_set set_adjustment adjustment;
-    may_set set_digits digits;
-    may_set set_value value;
-    may_set set_update_policy update_policy;
-    may_set set_numeric numeric;
-    may_set set_wrap wrap;
-    may_set set_shadow_type shadow_type;
-    may_set set_snap_to_ticks snap_to_ticks
-end
-
-module Text = struct
-  let cast w : text obj = Object.try_cast w "GtkText"
-  external create : [>`adjustment] optobj -> [>`adjustment] optobj -> text obj
-      = "ml_gtk_text_new"
-  let create ?hadjustment ?vadjustment () =
-    create (Gpointer.optboxed hadjustment) (Gpointer.optboxed vadjustment)
-  external set_word_wrap : [>`text] obj -> bool -> unit
-      = "ml_gtk_text_set_word_wrap"
-  external set_line_wrap : [>`text] obj -> bool -> unit
-      = "ml_gtk_text_set_line_wrap"
-  external set_adjustment :
-      [>`text] obj -> ?horizontal:[>`adjustment] obj ->
-      ?vertical:[>`adjustment] obj -> unit -> unit
-      = "ml_gtk_text_set_adjustments"
-  external get_hadjustment : [>`text] obj -> adjustment obj
-      = "ml_gtk_text_get_hadj"
-  external get_vadjustment : [>`text] obj -> adjustment obj
-      = "ml_gtk_text_get_vadj"
-  external set_point : [>`text] obj -> int -> unit
-      = "ml_gtk_text_set_point"
-  external get_point : [>`text] obj -> int = "ml_gtk_text_get_point"
-  external get_length : [>`text] obj -> int = "ml_gtk_text_get_length"
-  external freeze : [>`text] obj -> unit = "ml_gtk_text_freeze"
-  external thaw : [>`text] obj -> unit = "ml_gtk_text_thaw"
-  external insert :
-      [>`text] obj -> ?font:Gdk.font -> ?foreground:Gdk.Color.t ->
-      ?background:Gdk.Color.t -> string -> unit
-      = "ml_gtk_text_insert"
-  let set ?hadjustment ?vadjustment ?word_wrap w =
-    if hadjustment <> None || vadjustment <> None then
-      set_adjustment w ?horizontal: hadjustment ?vertical: vadjustment ();
-    may word_wrap ~f:(set_word_wrap w)
-end
-
-module Combo = struct
-  let cast w : combo obj = Object.try_cast w "GtkCombo"
-  external create : unit -> combo obj = "ml_gtk_combo_new"
-  external set_value_in_list :
-      [>`combo] obj -> ?required:bool -> ?ok_if_empty:bool -> unit -> unit
-      = "ml_gtk_combo_set_value_in_list"
-  external set_use_arrows : [>`combo] obj -> bool -> unit
-      = "ml_gtk_combo_set_use_arrows"
-  external set_use_arrows_always : [>`combo] obj -> bool -> unit
-      = "ml_gtk_combo_set_use_arrows_always"
-  external set_case_sensitive : [>`combo] obj -> bool -> unit
-      = "ml_gtk_combo_set_case_sensitive"
-  external set_item_string : [>`combo] obj -> [>`item] obj -> string -> unit
-      = "ml_gtk_combo_set_item_string"
-  external entry : [>`combo] obj -> entry obj= "ml_gtk_combo_entry"
-  external list : [>`combo] obj -> liste obj= "ml_gtk_combo_list"
-  let set_popdown_strings combo strings =
-    GtkList.Liste.clear_items (list combo) ~start:0 ~stop:(-1);
-    List.iter strings ~f:
-      begin fun s ->
-       let li = GtkList.ListItem.create_with_label s in
-       Widget.show li;
-       Container.add (list combo) li
-      end
-  let set_use_arrows' w (mode : [`NEVER|`DEFAULT|`ALWAYS]) =
-    let def,always =
-      match mode with
-       `NEVER -> false, false
-      |        `DEFAULT -> true, false
-      |        `ALWAYS -> true, true
-    in
-    set_use_arrows w def;
-    set_use_arrows_always w always
-  let set ?popdown_strings ?use_arrows
-      ?case_sensitive ?value_in_list ?ok_if_empty w =
-    may popdown_strings ~f:(set_popdown_strings w);
-    may use_arrows ~f:(set_use_arrows' w);
-    may case_sensitive ~f:(set_case_sensitive w);
-    if value_in_list <> None || ok_if_empty <> None then
-      set_value_in_list w ?required:value_in_list ?ok_if_empty ()
-  external disable_activate : [>`combo] obj -> unit
-      = "ml_gtk_combo_disable_activate"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkInit.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkInit.ml
deleted file mode 100644 (file)
index 5ce40db..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkInit.ml
+++ /dev/null
@@ -1,5 +0,0 @@
-(* $Id$ *)
-
-(* Does the initialization for toplevels *)
-
-let locale = GtkMain.Main.init ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkList.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkList.ml
deleted file mode 100644 (file)
index 4d2ae09..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkList.ml
+++ /dev/null
@@ -1,294 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module ListItem = struct
-  let cast w : list_item obj = Object.try_cast w "GtkListItem"
-  external create : unit -> list_item obj = "ml_gtk_list_item_new"
-  external create_with_label : string -> list_item obj
-      = "ml_gtk_list_item_new_with_label"
-  let create ?label () =
-    match label with None -> create ()
-    | Some label -> create_with_label label
-end
-
-module Liste = struct
-  let cast w : liste obj = Object.try_cast w "GtkList"
-  external create : unit -> liste obj = "ml_gtk_list_new"
-  external insert_item :
-      [>`list] obj -> [>`listitem] obj -> pos:int -> unit
-      = "ml_gtk_list_insert_item"
-  let insert_items l wl ~pos =
-    let wl = if pos < 0 then wl else List.rev wl in
-    List.iter wl ~f:(insert_item l ~pos)
-  let append_items l = insert_items l ~pos:(-1)
-  let prepend_items l = insert_items l ~pos:0
-  external clear_items : [>`list] obj -> start:int -> stop:int -> unit =
-    "ml_gtk_list_clear_items"
-  external select_item : [>`list] obj -> pos:int -> unit
-      = "ml_gtk_list_select_item"
-  external unselect_item : [>`list] obj -> pos:int -> unit
-      = "ml_gtk_list_unselect_item"
-  external select_child : [>`list] obj -> [>`listitem] obj -> unit
-      = "ml_gtk_list_select_child"
-  external unselect_child : [>`list] obj -> [>`listitem] obj -> unit
-      = "ml_gtk_list_unselect_child"
-  external child_position : [>`list] obj -> [>`listitem] obj -> int
-      = "ml_gtk_list_child_position"
-  external set_selection_mode : [>`list] obj -> selection_mode -> unit
-      = "ml_gtk_list_set_selection_mode"
-  module Signals = struct
-    open GtkSignal
-    let selection_changed : ([>`list],_) t =
-      { name = "selection_changed"; marshaller = marshal_unit }
-    let select_child : ([>`list],_) t =
-      { name = "select_child"; marshaller = Widget.Signals.marshal }
-    let unselect_child : ([>`list],_) t =
-      { name = "unselect_child"; marshaller = Widget.Signals.marshal }
-  end
-end
-
-module CList = struct
-  let cast w : clist obj = Object.try_cast w "GtkCList"
-  external create : cols:int -> clist obj = "ml_gtk_clist_new"
-  external create_with_titles : string array -> clist obj
-      = "ml_gtk_clist_new_with_titles"
-  external get_rows : [>`clist] obj -> int = "ml_gtk_clist_get_rows"
-  external get_columns : [>`clist] obj -> int = "ml_gtk_clist_get_columns"
-  external get_focus_row : [>`clist] obj -> int
-      = "ml_gtk_clist_get_focus_row"
-  external set_hadjustment : [>`clist] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_clist_set_hadjustment"
-  external set_vadjustment : [>`clist] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_clist_set_vadjustment"
-  external get_hadjustment : [>`clist] obj -> adjustment obj
-      = "ml_gtk_clist_get_hadjustment"
-  external get_vadjustment : [>`clist] obj -> adjustment obj
-      = "ml_gtk_clist_get_vadjustment"
-  external set_shadow_type : [>`clist] obj -> shadow_type -> unit
-      = "ml_gtk_clist_set_shadow_type"
-  external set_selection_mode : [>`clist] obj -> selection_mode -> unit
-      = "ml_gtk_clist_set_selection_mode"
-  external set_reorderable : [>`clist] obj -> bool -> unit
-      = "ml_gtk_clist_set_reorderable"
-  external set_use_drag_icons : [>`clist] obj -> bool -> unit
-      = "ml_gtk_clist_set_use_drag_icons"
-  external set_button_actions :
-      [>`clist] obj -> int -> button_action list -> unit
-      = "ml_gtk_clist_set_button_actions"
-  external freeze : [>`clist] obj -> unit = "ml_gtk_clist_freeze"
-  external thaw : [>`clist] obj -> unit = "ml_gtk_clist_thaw"
-  external column_titles_show : [>`clist] obj -> unit
-      = "ml_gtk_clist_column_titles_show"
-  external column_titles_hide : [>`clist] obj -> unit
-      = "ml_gtk_clist_column_titles_hide"
-  external column_title_active : [>`clist] obj -> int -> unit
-      = "ml_gtk_clist_column_title_active"
-  external column_title_passive : [>`clist] obj -> int -> unit
-      = "ml_gtk_clist_column_title_passive"
-  external column_titles_active : [>`clist] obj -> unit
-      = "ml_gtk_clist_column_titles_active"
-  external column_titles_passive : [>`clist] obj -> unit
-      = "ml_gtk_clist_column_titles_passive"
-  external set_column_title : [>`clist] obj -> int -> string -> unit
-      = "ml_gtk_clist_set_column_title"
-  external get_column_title : [>`clist] obj -> int -> string
-      = "ml_gtk_clist_get_column_title"
-  external set_column_widget : [>`clist] obj -> int -> [>`widget] obj -> unit
-      = "ml_gtk_clist_set_column_widget"
-  external get_column_widget : [>`clist] obj -> int -> widget obj
-      = "ml_gtk_clist_get_column_widget"
-  external set_column_justification :
-      [>`clist] obj -> int -> justification -> unit
-      = "ml_gtk_clist_set_column_justification"
-  external set_column_visibility : [>`clist] obj -> int -> bool -> unit
-      = "ml_gtk_clist_set_column_visibility"
-  external set_column_resizeable : [>`clist] obj -> int -> bool -> unit
-      = "ml_gtk_clist_set_column_resizeable"
-  external set_column_auto_resize : [>`clist] obj -> int -> bool -> unit
-      = "ml_gtk_clist_set_column_auto_resize"
-  external columns_autosize : [>`clist] obj -> unit
-      = "ml_gtk_clist_columns_autosize"
-  external optimal_column_width : [>`clist] obj -> int -> int
-      = "ml_gtk_clist_optimal_column_width"
-  external set_column_width : [>`clist] obj -> int -> int -> unit
-      = "ml_gtk_clist_set_column_width"
-  external set_column_min_width : [>`clist] obj -> int -> int -> unit
-      = "ml_gtk_clist_set_column_min_width"
-  external set_column_max_width : [>`clist] obj -> int -> int -> unit
-      = "ml_gtk_clist_set_column_max_width"
-  external set_row_height : [>`clist] obj -> int -> unit
-      = "ml_gtk_clist_set_row_height"
-  external moveto :
-      [>`clist] obj ->
-      int -> int -> row_align:clampf -> col_align:clampf -> unit
-      = "ml_gtk_clist_moveto"
-  external row_is_visible : [>`clist] obj -> int -> visibility
-      = "ml_gtk_clist_row_is_visible"
-  external get_cell_type : [>`clist] obj -> int -> int -> cell_type
-      = "ml_gtk_clist_get_cell_type"
-  external set_text : [>`clist] obj -> int -> int -> string -> unit
-      = "ml_gtk_clist_set_text"
-  external get_text : [>`clist] obj -> int -> int -> string
-      = "ml_gtk_clist_get_text"
-  external set_pixmap :
-      [>`clist] obj ->
-      int -> int -> Gdk.pixmap -> Gdk.bitmap Gpointer.optboxed -> unit
-      = "ml_gtk_clist_set_pixmap"
-  external get_pixmap :
-      [>`clist] obj -> int -> int -> Gdk.pixmap option * Gdk.bitmap option
-      = "ml_gtk_clist_get_pixmap"
-  external set_pixtext :
-      [>`clist] obj -> int -> int ->
-      string -> int -> Gdk.pixmap -> Gdk.bitmap Gpointer.optboxed -> unit
-      = "ml_gtk_clist_set_pixtext_bc" "ml_gtk_clist_set_pixtext"
-  external set_foreground :
-      [>`clist] obj -> row:int -> Gdk.Color.t Gpointer.optboxed -> unit
-      = "ml_gtk_clist_set_foreground"
-  external set_background :
-      [>`clist] obj -> row:int -> Gdk.Color.t Gpointer.optboxed -> unit
-      = "ml_gtk_clist_set_background"
-  external get_cell_style : [>`clist] obj -> int -> int -> Gtk.style
-      = "ml_gtk_clist_get_cell_style"
-  external set_cell_style : [>`clist] obj -> int -> int -> Gtk.style -> unit
-      = "ml_gtk_clist_set_cell_style"
-  external get_row_style : [>`clist] obj -> row:int -> Gtk.style
-      = "ml_gtk_clist_get_row_style"
-  external set_row_style : [>`clist] obj -> row:int -> Gtk.style -> unit
-      = "ml_gtk_clist_set_row_style"
-  external set_selectable : [>`clist] obj -> row:int -> bool -> unit
-      = "ml_gtk_clist_set_selectable"
-  external get_selectable : [>`clist] obj -> row:int -> bool
-      = "ml_gtk_clist_get_selectable"
-  external set_shift :
-      [>`clist] obj -> int -> int -> vertical:int -> horizontal:int -> unit
-      = "ml_gtk_clist_set_shift"
-  external insert : [>`clist] obj -> row:int -> Gpointer.optstring array -> int
-      = "ml_gtk_clist_insert"
-  let insert w ~row texts =
-    let len = get_columns w in
-    if List.length texts > len then invalid_arg "CList.insert";
-    let arr = Array.create (get_columns w) None in
-    List.fold_left texts ~init:0
-      ~f:(fun pos text -> arr.(pos) <- text; pos+1);
-    let r = insert w ~row (Array.map ~f:Gpointer.optstring arr) in
-    if r = -1 then invalid_arg "GtkCList::insert";
-    r
-  external remove : [>`clist] obj -> row:int -> unit
-      = "ml_gtk_clist_remove"
-  external set_row_data : [>`clist] obj -> row:int -> Obj.t -> unit
-      = "ml_gtk_clist_set_row_data"
-  external get_row_data : [>`clist] obj -> row:int -> Obj.t
-      = "ml_gtk_clist_get_row_data"
-  external select : [>`clist] obj -> int -> int -> unit
-      = "ml_gtk_clist_select_row"
-  external unselect : [>`clist] obj -> int -> int -> unit
-      = "ml_gtk_clist_unselect_row"
-  external clear : [>`clist] obj -> unit = "ml_gtk_clist_clear"
-  external get_row_column : [>`clist] obj -> x:int -> y:int -> int * int
-      = "ml_gtk_clist_get_selection_info"
-  external select_all : [>`clist] obj -> unit = "ml_gtk_clist_select_all"
-  external unselect_all : [>`clist] obj -> unit = "ml_gtk_clist_unselect_all"
-  external swap_rows : [>`clist] obj -> int -> int -> unit
-      = "ml_gtk_clist_swap_rows"
-  external row_move : [>`clist] obj -> int -> dst:int -> unit
-      = "ml_gtk_clist_row_move"
-  external set_sort_column : [>`clist] obj -> int -> unit
-      = "ml_gtk_clist_set_sort_column"
-  external set_sort_type : [>`clist] obj -> sort_type -> unit
-      = "ml_gtk_clist_set_sort_type"
-  external sort : [>`clist] obj -> unit
-      = "ml_gtk_clist_sort"
-  external set_auto_sort : [>`clist] obj -> bool -> unit
-      = "ml_gtk_clist_set_auto_sort"
-  let set_titles_show w = function
-      true -> column_titles_show w
-    | false -> column_titles_hide w
-  let set_titles_active w = function
-      true -> column_titles_active w
-    | false -> column_titles_passive w
-  let set ?hadjustment ?vadjustment ?shadow_type
-      ?(button_actions=[]) ?selection_mode ?reorderable
-      ?use_drag_icons ?row_height ?titles_show ?titles_active w =
-    let may_set f param = may param ~f:(f w) in
-    may_set set_hadjustment hadjustment;
-    may_set set_vadjustment vadjustment;
-    may_set set_shadow_type shadow_type;
-    List.iter button_actions ~f:(fun (n,act) -> set_button_actions w n act);
-    may_set set_selection_mode selection_mode;
-    may_set set_reorderable reorderable;
-    may_set set_use_drag_icons use_drag_icons;
-    may_set set_row_height row_height;
-    may_set set_titles_show titles_show;
-    may_set set_titles_active titles_active
-  let set_sort w ?auto ?column ?dir:sort_type () =
-    may auto ~f:(set_auto_sort w);
-    may column ~f:(set_sort_column w);
-    may sort_type ~f:(set_sort_type w)
-  let set_cell w ?text ?pixmap ?mask ?(spacing=0) ?style row col =
-    begin match text, pixmap with
-    | Some text, None ->
-        set_text w row col text
-    | None, Some pm ->
-        set_pixmap w row col pm (Gpointer.optboxed mask)
-    | Some text, Some pm ->
-        set_pixtext w row col text spacing pm (Gpointer.optboxed mask)
-    | _ -> ()
-    end;
-    may style ~f:(set_cell_style w row col)
-  let set_column w ?widget ?title ?title_active ?justification
-      ?visibility ?resizeable ?auto_resize ?width ?min_width ?max_width
-      col =
-    let may_set f param = may param ~f:(f w col) in
-    may_set set_column_widget widget;
-    may_set set_column_title title;
-    may title_active
-      ~f:(fun active -> if active then column_title_active w col
-                                   else column_title_passive w col);
-    may_set set_column_justification justification;
-    may_set set_column_visibility visibility;
-    may_set set_column_resizeable resizeable;
-    may_set set_column_auto_resize auto_resize;
-    may_set set_column_width width;
-    may_set set_column_min_width min_width;
-    may_set set_column_max_width max_width
-  let set_row w ?foreground ?background ?selectable ?style row =
-    let may_set f = may ~f:(f w ~row) in
-    may_set set_foreground foreground;
-    may_set set_background  background;
-    may_set set_selectable  selectable;
-    may_set set_row_style style
-  module Signals = struct
-    open GtkArgv
-    open GtkSignal
-    let marshal_select f argv = function
-      | INT row :: INT column :: POINTER p :: _ ->
-          let event : GdkEvent.Button.t option =
-           may_map ~f:GdkEvent.unsafe_copy p
-          in
-          f ~row ~column ~event
-      | _ -> invalid_arg "GtkList.CList.Signals.marshal_select"
-    let select_row : ([>`clist],_) t =
-      { name = "select_row"; marshaller = marshal_select }
-    let unselect_row : ([>`clist],_) t =
-      { name = "unselect_row"; marshaller = marshal_select }
-    let click_column : ([>`clist],_) t =
-      { name = "click_column"; marshaller = marshal_int }
-    external val_scroll_type : int -> scroll_type = "ml_Val_scroll_type"
-    let marshal_scroll f argv = function
-      | INT st :: FLOAT (pos : clampf) :: _ ->
-          f (val_scroll_type st) ~pos
-      | _ -> invalid_arg "GtkList.CList.Signals.marshal_scroll"
-    let scroll_horizontal : ([>`clist],_) t =
-      { name = "scroll_horizontal"; marshaller = marshal_scroll }
-    let scroll_vertical : ([>`clist],_) t =
-      { name = "scroll_vertical"; marshaller = marshal_scroll }
-    external emit_scroll :
-        'a obj -> name:string -> Tags.scroll_type -> pos:clampf -> unit
-        = "ml_gtk_signal_emit_scroll"
-    let emit_scroll = emit ~emitter:emit_scroll
-  end
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkMain.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkMain.ml
deleted file mode 100644 (file)
index 3c45614..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkMain.ml
+++ /dev/null
@@ -1,49 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-
-let _ = Callback.register_exception "gtkerror" (Error"")
-
-module Timeout = struct
-  type id
-  external add : ms:int -> callback:(GtkArgv.t -> unit) -> id
-      = "ml_gtk_timeout_add"
-  let add ~ms ~callback =
-    add ~ms ~callback:(fun arg -> GtkArgv.set_result arg (`BOOL(callback ())))
-  external remove : id -> unit = "ml_gtk_timeout_remove"
-end
-
-module Main = struct
-  external init : string array -> string array = "ml_gtk_init"
-  (* external exit : int -> unit = "ml_gtk_exit" *)
-  external set_locale : unit -> string = "ml_gtk_set_locale"
-  (* external main : unit -> unit = "ml_gtk_main" *)
-  let init () =
-    let locale = set_locale () in
-    let argv = init Sys.argv in
-    Array.blit ~src:argv ~dst:Sys.argv ~len:(Array.length argv)
-      ~src_pos:0 ~dst_pos:0;
-    Obj.truncate (Obj.repr Sys.argv) ~len:(Array.length argv);
-    locale
-  open Glib
-  let loops = ref [] 
-  let main () =
-    let loop = (Main.create true) in
-    loops := loop :: !loops;
-    while Main.is_running loop do Main.iteration true done;
-    loops := List.tl !loops
-  and quit () = Main.quit (List.hd !loops)
-  external get_version : unit -> int * int * int = "ml_gtk_get_version"
-  let version = get_version ()
-
-  let flush = Gdk.X.flush
-end
-
-module Grab = struct
-  external add : [>`widget] obj -> unit = "ml_gtk_grab_add"
-  external remove : [>`widget] obj -> unit = "ml_gtk_grab_remove"
-  external get_current : unit -> widget obj= "ml_gtk_grab_get_current"
-end
-
-let _ = Glib.set_warning_handler (fun msg -> raise (Warning msg))
-let _ = Glib.set_print_handler (fun msg -> print_string msg)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkMenu.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkMenu.ml
deleted file mode 100644 (file)
index 2f1eb30..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkMenu.ml
+++ /dev/null
@@ -1,144 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open GtkBase
-
-module MenuItem = struct
-  let cast w : menu_item obj = Object.try_cast w "GtkMenuItem"
-  external coerce : [>`menuitem] obj -> menu_item obj = "%identity"
-  external create : unit -> menu_item obj = "ml_gtk_menu_item_new"
-  external create_with_label : string -> menu_item obj
-      = "ml_gtk_menu_item_new_with_label"
-  external tearoff_create : unit -> menu_item obj
-      = "ml_gtk_tearoff_menu_item_new"
-  let create ?label () =
-    match label with None -> create ()
-    | Some label -> create_with_label label
-  external set_submenu : [>`menuitem] obj -> [>`menu] obj -> unit
-      = "ml_gtk_menu_item_set_submenu"
-  external remove_submenu : [>`menuitem] obj -> unit
-      = "ml_gtk_menu_item_remove_submenu"
-  external configure :
-      [>`menuitem] obj -> show_toggle:bool -> show_indicator:bool -> unit
-      = "ml_gtk_menu_item_configure"
-  external activate : [>`menuitem] obj -> unit
-      = "ml_gtk_menu_item_activate"
-  external right_justify : [>`menuitem] obj -> unit
-      = "ml_gtk_menu_item_right_justify"
-  module Signals = struct
-    open GtkSignal
-    let activate : ([>`menuitem],_) t =
-      { name = "activate"; marshaller = marshal_unit }
-    let activate_item : ([>`menuitem],_) t =
-      { name = "activate_item"; marshaller = marshal_unit }
-  end
-end
-
-module CheckMenuItem = struct
-  let cast w : check_menu_item obj = Object.try_cast w "GtkCheckMenuItem"
-  external coerce : [>`checkmenuitem] obj -> check_menu_item obj = "%identity"
-  external create : unit -> check_menu_item obj = "ml_gtk_check_menu_item_new"
-  external create_with_label : string -> check_menu_item obj
-      = "ml_gtk_check_menu_item_new_with_label"
-  let create ?label () =
-    match label with None -> create ()
-    | Some label -> create_with_label label
-  external set_active : [>`checkmenuitem] obj -> bool -> unit
-      = "ml_gtk_check_menu_item_set_active"
-  external get_active : [>`checkmenuitem] obj -> bool
-      = "ml_gtk_check_menu_item_get_active"
-  external set_show_toggle : [>`checkmenuitem] obj -> bool -> unit
-      = "ml_gtk_check_menu_item_set_show_toggle"
-  let set ?active ?show_toggle w =
-    may active ~f:(set_active w);
-    may show_toggle ~f:(set_show_toggle w)
-  external toggled : [>`checkmenuitem] obj -> unit
-      = "ml_gtk_check_menu_item_toggled"
-  module Signals = struct
-    open GtkSignal
-    let toggled : ([>`checkmenuitem],_) t =
-      { name = "toggled"; marshaller = marshal_unit }
-  end
-end
-
-module RadioMenuItem = struct
-  let cast w : radio_menu_item obj = Object.try_cast w "GtkRadioMenuItem"
-  external create : radio_menu_item group -> radio_menu_item obj
-      = "ml_gtk_radio_menu_item_new"
-  external create_with_label :
-      radio_menu_item group -> string -> radio_menu_item obj
-      = "ml_gtk_radio_menu_item_new_with_label"
-  let create ?(group = None) ?label () =
-    match label with None -> create group
-    | Some label -> create_with_label group label
-  external set_group : [>`radiomenuitem] obj -> radio_menu_item group -> unit
-      = "ml_gtk_radio_menu_item_set_group"
-end
-
-module OptionMenu = struct
-  let cast w : option_menu obj = Object.try_cast w "GtkOptionMenu"
-  external create : unit -> option_menu obj = "ml_gtk_option_menu_new"
-  external get_menu : [>`optionmenu] obj -> menu obj
-      = "ml_gtk_option_menu_get_menu"
-  external set_menu : [>`optionmenu] obj -> [>`menu] obj -> unit
-      = "ml_gtk_option_menu_set_menu"
-  external remove_menu : [>`optionmenu] obj -> unit
-      = "ml_gtk_option_menu_remove_menu"
-  external set_history : [>`optionmenu] obj -> int -> unit
-      = "ml_gtk_option_menu_set_history"
-  let set ?menu ?history w =
-    may menu ~f:(set_menu w);
-    may history ~f:(set_history w)
-end
-
-module MenuShell = struct
-  let cast w : menu_shell obj = Object.try_cast w "GtkMenuShell"
-  external coerce : [>`menushell] obj -> menu_shell obj = "%identity"
-  external append : [>`menushell] obj -> [>`widget] obj -> unit
-      = "ml_gtk_menu_shell_append"
-  external prepend : [>`menushell] obj -> [>`widget] obj -> unit
-      = "ml_gtk_menu_shell_prepend"
-  external insert : [>`menushell] obj -> [>`widget] obj -> pos:int -> unit
-      = "ml_gtk_menu_shell_insert"
-  external deactivate : [>`menushell] obj -> unit
-      = "ml_gtk_menu_shell_deactivate"
-  module Signals = struct
-    open GtkSignal
-    let deactivate : ([>`menushell],_) t =
-      { name = "deactivate"; marshaller = marshal_unit }
-  end
-end
-
-module Menu = struct
-  let cast w : menu obj = Object.try_cast w "GtkMenu"
-  external create : unit -> menu obj = "ml_gtk_menu_new"
-  external popup :
-      [>`menu] obj -> [>`menushell] optobj ->
-      [>`menuitem] optobj -> button:int -> time:int -> unit
-      = "ml_gtk_menu_popup"
-  let popup ?parent_menu ?parent_item w =
-    popup w (Gpointer.optboxed parent_menu) (Gpointer.optboxed parent_item)
-  external popdown : [>`menu] obj -> unit = "ml_gtk_menu_popdown"
-  external get_active : [>`menu] obj -> widget obj= "ml_gtk_menu_get_active"
-  external set_active : [>`menu] obj -> int -> unit = "ml_gtk_menu_set_active"
-  external set_accel_group : [>`menu] obj -> accel_group -> unit
-      = "ml_gtk_menu_set_accel_group"
-  external get_accel_group : [>`menu] obj -> accel_group
-      = "ml_gtk_menu_get_accel_group"
-  external ensure_uline_accel_group : [>`menu] obj -> accel_group
-      = "ml_gtk_menu_ensure_uline_accel_group"
-  external attach_to_widget : [>`menu] obj -> [>`widget] obj -> unit
-      = "ml_gtk_menu_attach_to_widget"
-  external get_attach_widget : [>`menu] obj -> widget obj
-      = "ml_gtk_menu_get_attach_widget"
-  external detach : [>`menu] obj -> unit = "ml_gtk_menu_detach"
-  let set ?active ?accel_group w =
-    may active ~f:(set_active w);
-    may accel_group ~f:(set_accel_group w)
-end
-
-module MenuBar = struct
-  let cast w : menu_bar obj = Object.try_cast w "GtkMenuBar"
-  external create : unit -> menu_bar obj = "ml_gtk_menu_bar_new"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkMisc.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkMisc.ml
deleted file mode 100644 (file)
index ded7f48..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkMisc.ml
+++ /dev/null
@@ -1,323 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module GammaCurve = struct
-  let cast w : gamma_curve obj = Object.try_cast w "GtkGammaCurve"
-  external create : unit -> gamma_curve obj = "ml_gtk_gamma_curve_new"
-  external get_gamma : [>`gamma] obj -> float = "ml_gtk_gamma_curve_get_gamma"
-end
-
-module ColorSelection = struct
-  let cast w : color_selection obj = Object.try_cast w "GtkColorSelection"
-  external create : unit -> color_selection obj = "ml_gtk_color_selection_new"
-  external create_dialog : string -> color_selection_dialog obj
-      = "ml_gtk_color_selection_dialog_new"
-  external set_update_policy : [>`colorsel] obj -> update_type -> unit
-      = "ml_gtk_color_selection_set_update_policy"
-  external set_opacity : [>`colorsel] obj -> bool -> unit
-      = "ml_gtk_color_selection_set_opacity"
-  let set ?update_policy ?opacity w =
-    may update_policy ~f:(set_update_policy w);
-    may opacity ~f:(set_opacity w)
-  external set_color :
-      [>`colorsel] obj ->
-      red:float -> green:float -> blue:float -> ?opacity:float -> unit
-      = "ml_gtk_color_selection_set_color"
-  external get_color : [>`colorsel] obj -> color
-      = "ml_gtk_color_selection_get_color"
-
-  external ok_button : [>`colorseldialog] obj -> button obj =
-    "ml_gtk_color_selection_dialog_ok_button"
-  external cancel_button : [>`colorseldialog] obj -> button obj =
-    "ml_gtk_color_selection_dialog_cancel_button"
-  external help_button : [>`colorseldialog] obj -> button obj =
-    "ml_gtk_color_selection_dialog_help_button"
-  external colorsel : [>`colorseldialog] obj -> color_selection obj =
-    "ml_gtk_color_selection_dialog_colorsel"
-  module Signals = struct
-    open GtkSignal
-    let color_changed : ([>`colorsel],_) t =
-      { name = "color_changed"; marshaller = marshal_unit }
-  end
-end
-
-module Statusbar = struct
-  let cast w : statusbar obj = Object.try_cast w "GtkStatusbar"
-  external create : unit -> statusbar obj = "ml_gtk_statusbar_new"
-  external get_context : [>`statusbar] obj -> string -> statusbar_context
-      = "ml_gtk_statusbar_get_context_id"
-  external push :
-      [>`statusbar] obj ->
-      statusbar_context -> text:string -> statusbar_message
-      = "ml_gtk_statusbar_push"
-  external pop : [>`statusbar] obj -> statusbar_context ->  unit
-      = "ml_gtk_statusbar_pop"
-  external remove :
-      [>`statusbar] obj -> statusbar_context -> statusbar_message -> unit
-      = "ml_gtk_statusbar_remove"
-  module Signals = struct
-    open GtkSignal
-    let text_pushed : ([>`statusbar],_) t =
-      let marshal f _ = function
-        | GtkArgv.INT ctx :: GtkArgv.STRING s :: _ ->
-           f (Obj.magic ctx : statusbar_context) s
-        | _ -> invalid_arg "GtkMisc.Statusbar.Signals.marshal_text"
-      in
-      { name = "text_pushed"; marshaller = marshal }
-  end
-end
-
-module Calendar = struct
-  let cast w : calendar obj = Object.try_cast w "GtkCalendar"
-  external create : unit -> calendar obj = "ml_gtk_calendar_new"
-  external select_month : [>`calendar] obj -> month:int -> year:int -> unit
-      = "ml_gtk_calendar_select_month"
-  external select_day : [>`calendar] obj -> int -> unit
-      = "ml_gtk_calendar_select_day"
-  external mark_day : [>`calendar] obj -> int -> unit
-      = "ml_gtk_calendar_mark_day"
-  external unmark_day : [>`calendar] obj -> int -> unit
-      = "ml_gtk_calendar_unmark_day"
-  external clear_marks : [>`calendar] obj -> unit
-      = "ml_gtk_calendar_clear_marks"
-  external display_options :
-      [>`calendar] obj -> Tags.calendar_display_options list -> unit
-      = "ml_gtk_calendar_display_options"
-  external get_date : [>`calendar] obj -> int * int * int
-      = "ml_gtk_calendar_get_date"   (* year * month * day *)
-  external freeze : [>`calendar] obj -> unit
-      = "ml_gtk_calendar_freeze"
-  external thaw : [>`calendar] obj -> unit
-      = "ml_gtk_calendar_thaw"
-  module Signals = struct
-    open GtkSignal
-    let month_changed : ([>`calendar],_) t =
-      { name = "month_changed"; marshaller = marshal_unit }
-    let day_selected : ([>`calendar],_) t =
-      { name = "day_selected"; marshaller = marshal_unit }
-    let day_selected_double_click : ([>`calendar],_) t =
-      { name = "day_selected_double_click"; marshaller = marshal_unit }
-    let prev_month : ([>`calendar],_) t =
-      { name = "prev_month"; marshaller = marshal_unit }
-    let next_month : ([>`calendar],_) t =
-      { name = "next_month"; marshaller = marshal_unit }
-    let prev_year : ([>`calendar],_) t =
-      { name = "prev_year"; marshaller = marshal_unit }
-    let next_year : ([>`calendar],_) t =
-      { name = "next_year"; marshaller = marshal_unit }
-  end
-end
-
-module DrawingArea = struct
-  let cast w : drawing_area obj = Object.try_cast w "GtkDrawingArea"
-  external create : unit -> drawing_area obj = "ml_gtk_drawing_area_new"
-  external size : [>`drawing] obj -> width:int -> height:int -> unit
-      = "ml_gtk_drawing_area_size"
-end
-
-(* Does not seem very useful ...
-module Curve = struct
-  type t = [widget drawing curve] obj
-  let cast w : t = Object.try_cast w "GtkCurve"
-  external create : unit -> t = "ml_gtk_curve_new"
-  external reset : [>`curve] obj -> unit = "ml_gtk_curve_reset"
-  external set_gamma : [>`curve] obj -> float -> unit
-      = "ml_gtk_curve_set_gamma"
-  external set_range :
-      [>`curve] obj -> min_x:float -> max_x:float ->
-      min_y:float -> max_y:float -> unit
-      = "ml_gtk_curve_set_gamma"
-end
-*)
-
-module Misc = struct
-  let cast w : misc obj = Object.try_cast w "GtkMisc"
-  external coerce : [>`misc] obj -> misc obj = "%identity"
-  external set_alignment : [>`misc] obj -> x:float -> y:float -> unit
-      = "ml_gtk_misc_set_alignment"
-  external set_padding : [>`misc] obj -> x:int -> y:int -> unit
-      = "ml_gtk_misc_set_padding"
-  external get_xalign : [>`misc] obj -> float = "ml_gtk_misc_get_xalign"
-  external get_yalign : [>`misc] obj -> float = "ml_gtk_misc_get_yalign"
-  external get_xpad : [>`misc] obj -> int = "ml_gtk_misc_get_xpad"
-  external get_ypad : [>`misc] obj -> int = "ml_gtk_misc_get_ypad"
-  let set_alignment w ?x ?y () =
-    set_alignment w ~x:(may_default get_xalign w ~opt:x)
-      ~y:(may_default get_yalign w ~opt:y)
-  let set_padding w ?x ?y () =
-    set_padding w ~x:(may_default get_xpad w ~opt:x)
-      ~y:(may_default get_ypad w ~opt:y)
-  let set ?xalign ?yalign ?xpad ?ypad ?(width = -2) ?(height = -2) w =
-    if xalign <> None || yalign <> None then
-      set_alignment w ?x:xalign ?y:yalign ();
-    if xpad <> None || ypad <> None then
-      set_padding w ?x:xpad ?y:ypad ();
-    if width <> -2 || height <> -2 then Widget.set_usize w ~width ~height
-end
-
-module Arrow = struct
-  let cast w : arrow obj = Object.try_cast w "GtkArrow"
-  external create : kind:arrow_type -> shadow:shadow_type -> arrow obj
-      = "ml_gtk_arrow_new"
-  external set : [>`arrow] obj -> kind:arrow_type -> shadow:shadow_type -> unit
-      = "ml_gtk_arrow_set"
-end
-
-module Image = struct
-  let cast w : image obj = Object.try_cast w "GtkImage"
-  external create : Gdk.image -> ?mask:Gdk.bitmap -> image obj
-      = "ml_gtk_image_new"
-  let create ?mask img = create img ?mask
-  external set : [>`image] obj -> Gdk.image -> ?mask:Gdk.bitmap -> unit
-      = "ml_gtk_image_set"
-end
-
-module Label = struct
-  let cast w : label obj = Object.try_cast w "GtkLabel"
-  external coerce : [>`label] obj -> label obj = "%identity"
-  external create : string -> label obj = "ml_gtk_label_new"
-  external set_text : [>`label] obj -> string -> unit = "ml_gtk_label_set_text"
-  external set_justify : [>`label] obj -> justification -> unit
-      = "ml_gtk_label_set_justify"
-  external set_pattern : [>`label] obj -> string -> unit
-      = "ml_gtk_label_set_pattern"
-  external set_line_wrap : [>`label] obj -> bool -> unit
-      = "ml_gtk_label_set_line_wrap"
-  let set ?text ?justify ?line_wrap ?pattern w =
-    may ~f:(set_text w) text;
-    may ~f:(set_justify w) justify;
-    may ~f:(set_line_wrap w) line_wrap;
-    may ~f:(set_pattern w) pattern
-  external get_text : [>`label] obj -> string = "ml_gtk_label_get_label"
-end
-
-module TipsQuery = struct
-  let cast w : tips_query obj = Object.try_cast w "GtkTipsQuery"
-  external create : unit -> tips_query obj = "ml_gtk_tips_query_new"
-  external start : [>`tipsquery] obj -> unit = "ml_gtk_tips_query_start_query"
-  external stop : [>`tipsquery] obj -> unit = "ml_gtk_tips_query_stop_query"
-  external set_caller : [>`tipsquery] obj -> [>`widget] obj -> unit
-      = "ml_gtk_tips_query_set_caller"
-  external set_labels :
-      [>`tipsquery] obj -> inactive:string -> no_tip:string -> unit
-      = "ml_gtk_tips_query_set_labels"
-  external set_emit_always : [>`tipsquery] obj -> bool -> unit
-      = "ml_gtk_tips_query_set_emit_always"
-  external get_caller : [>`tipsquery] obj -> widget obj
-      = "ml_gtk_tips_query_get_caller"
-  external get_label_inactive : [>`tipsquery] obj -> string
-      = "ml_gtk_tips_query_get_label_inactive"
-  external get_label_no_tip : [>`tipsquery] obj -> string
-      = "ml_gtk_tips_query_get_label_no_tip"
-  external get_emit_always : [>`tipsquery] obj -> bool
-      = "ml_gtk_tips_query_get_emit_always"
-  let set_labels ?inactive ?no_tip w =
-    set_labels w
-      ~inactive:(may_default get_label_inactive w ~opt:inactive)
-      ~no_tip:(may_default get_label_no_tip w ~opt:no_tip)
-  let set ?caller ?emit_always ?label_inactive ?label_no_tip w =
-    may caller ~f:(set_caller w);
-    may emit_always ~f:(set_emit_always w);
-    if label_inactive <> None || label_no_tip <> None then
-      set_labels w ?inactive:label_inactive ?no_tip:label_no_tip
-  module Signals = struct
-    open GtkArgv
-    open GtkSignal
-    let start_query : ([>`tipsquery],_) t =
-      { name = "start_query"; marshaller = marshal_unit }
-    let stop_query : ([>`tipsquery],_) t =
-      { name = "stop_query"; marshaller = marshal_unit }
-    let widget_entered :
-       ([>`tipsquery],
-        widget obj option ->
-        text:string option -> privat:string option -> unit) t =
-      let marshal f _ = function
-        | OBJECT opt :: STRING text :: STRING privat :: _ ->
-           f (may_map ~f:Widget.cast opt) ~text ~privat
-        | _ -> invalid_arg "GtkMisc.TipsQuery.Signals.marshal_entered"
-      in
-      { name = "widget_entered"; marshaller = marshal }
-    let widget_selected :
-       ([>`tipsquery],
-        widget obj option ->
-        text:string option ->
-        privat:string option -> GdkEvent.Button.t option -> bool) t =
-      let marshal f argv = function
-        | OBJECT obj :: STRING text :: STRING privat :: POINTER p :: _ ->
-           let stop = 
-             f (may_map ~f:Widget.cast obj) ~text ~privat
-               (may_map ~f:GdkEvent.unsafe_copy p)
-            in set_result argv (`BOOL stop)
-        | _ -> invalid_arg "GtkMisc.TipsQuery.Signals.marshal_selected"
-      in
-      { name = "widget_selected"; marshaller = marshal }
-  end
-end
-
-module Pixmap = struct
-  let cast w : pixmap obj = Object.try_cast w "GtkPixmap"
-  external create : Gdk.pixmap -> ?mask:Gdk.bitmap -> pixmap obj
-      = "ml_gtk_pixmap_new"
-  let create ?mask img = create img ?mask
-  external set :
-      [>`pixmap] obj -> ?pixmap:Gdk.pixmap -> ?mask:Gdk.bitmap -> unit
-      = "ml_gtk_pixmap_set"
-  external pixmap : [>`pixmap] obj -> Gdk.pixmap = "ml_GtkPixmap_pixmap"
-  external mask : [>`pixmap] obj -> Gdk.bitmap = "ml_GtkPixmap_mask"
-end
-
-module Separator = struct
-  let cast w : separator obj = Object.try_cast w "GtkSeparator"
-  external hseparator_new : unit -> separator obj = "ml_gtk_hseparator_new"
-  external vseparator_new : unit -> separator obj = "ml_gtk_vseparator_new"
-  let create (dir : Tags.orientation) =
-    if dir = `HORIZONTAL then hseparator_new () else vseparator_new ()
-end
-
-module FontSelection = struct
-  type null_terminated
-  let null_terminated arg : null_terminated =
-    match arg with None -> Obj.magic Gpointer.raw_null
-    | Some l ->
-       let len = List.length l in
-       let arr = Array.create (len + 1) "" in
-       let rec loop i = function
-           [] -> arr.(i) <- Obj.magic Gpointer.raw_null
-         | s::l -> arr.(i) <- s; loop (i+1) l
-       in loop 0 l;
-       Obj.magic (arr : string array)
-  let cast w : font_selection obj =
-    Object.try_cast w "GtkFontSelection"
-  external create : unit -> font_selection obj
-      = "ml_gtk_font_selection_new"
-  external get_font : [>`fontsel] obj -> Gdk.font
-      = "ml_gtk_font_selection_get_font"
-  let get_font w =
-    try Some (get_font w) with Gpointer.Null -> None
-  external get_font_name : [>`fontsel] obj -> string
-      = "ml_gtk_font_selection_get_font_name"
-  let get_font_name w =
-    try Some (get_font_name w) with Gpointer.Null -> None
-  external set_font_name : [>`fontsel] obj -> string -> unit
-      = "ml_gtk_font_selection_set_font_name"
-  external set_filter :
-    [>`fontsel] obj -> font_filter_type -> font_type list ->
-    null_terminated -> null_terminated -> null_terminated ->
-    null_terminated -> null_terminated -> null_terminated -> unit
-    = "ml_gtk_font_selection_set_filter_bc"
-      "ml_gtk_font_selection_set_filter"
-  let set_filter w ?kind:(tl=[`ALL]) ?foundry
-      ?weight ?slant ?setwidth ?spacing ?charset filter =
-    set_filter w filter tl (null_terminated foundry)
-      (null_terminated weight) (null_terminated slant)
-      (null_terminated setwidth) (null_terminated spacing)
-      (null_terminated charset)
-  external get_preview_text : [>`fontsel] obj -> string
-      = "ml_gtk_font_selection_get_preview_text"
-  external set_preview_text : [>`fontsel] obj -> string -> unit
-      = "ml_gtk_font_selection_set_preview_text"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkNew.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkNew.ml
deleted file mode 100644 (file)
index 532a709..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkNew.ml
+++ /dev/null
@@ -1,56 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-
-type t
-
-(* if you modify this type modify widget_info_array 
-   in ml_gtk.c in accordance *)
-type object_type =
-  | OBJECT  | WIDGET  | MISC  | LABEL  | ACCELLABEL  | TIPSQUERY  | ARROW
-  | IMAGE   | PIXMAP  | CONTAINER  | BIN  | ALIGNMENT  | FRAME  | ASPECTFRAME
-  | BUTTON  | TOGGLEBUTTON  | CHECKBUTTON  | RADIOBUTTON  | OPTIONMENU
-  | ITEM  | MENUITEM  | CHECKMENUITEM  | RADIOMENUITEM  | TEAROFFMENUITEM
-  | LISTITEM  | TREEITEM  | WINDOW  | COLORSELECTIONDIALOG  | DIALOG
-  | INPUTDIALOG  | FILESELECTION  | FONTSELECTIONDIALOG  | PLUG
-  | EVENTBOX  | HANDLEBOX  | SCROLLEDWINDOW  | VIEWPORT  | BOX
-  | BUTTONBOX  | HBUTTONBOX  | VBUTTONBOX  | VBOX  | COLORSELECTION
-  | GAMMACURVE  | HBOX  | COMBO  | STATUSBAR  | CLIST  | CTREE  | FIXED
-  | NOTEBOOK  | FONTSELECTION  | PANED  | HPANED  | VPANED  | LAYOUT
-  | LIST  | MENUSHELL  | MENUBAR  | MENU  | PACKER  | SOCKET  | TABLE
-  | TOOLBAR  | TREE  | CALENDAR  | DRAWINGAREA  | CURVE  | EDITABLE
-  | ENTRY  | SPINBUTTON  | TEXT  | RULER  | HRULER  | VRULER  | RANGE
-  | SCALE  | HSCALE  | VSCALE  | SCROLLBAR  | HSCROLLBAR  | VSCROLLBAR
-  | SEPARATOR  | HSEPARATOR  | VSEPARATOR  | PREVIEW  | PROGRESS
-  | PROGRESSBAR  | DATA  | ADJUSTMENT  | TOOLTIPS  | ITEMFACTORY
-
-external set_ml_class_init  : (t -> unit) -> unit = "set_ml_class_init"
-external signal_new : string -> int -> t -> object_type -> int  -> int
-    = "ml_gtk_signal_new"
-external object_class_add_signals : t -> int array -> int -> unit
-    = "ml_gtk_object_class_add_signals"
-external type_unique :
-    name:string -> parent:object_type -> nsignals:int -> gtk_type
-    = "ml_gtk_type_unique"
-external type_new : gtk_type -> unit obj
-    = "ml_gtk_type_new"
-
-open GtkSignal
-
-let make_new_widget ~name ~parent
-    ~(signals : ('a, unit -> unit) GtkSignal.t list) =
-  let nsignals = List.length signals in
-  let new_type = type_unique ~name ~parent ~nsignals in
-  let signal_num_array = Array.create nsignals 0 in
-  let class_init_func classe =
-    List.fold_left signals ~init:0 ~f:
-      (fun i signal ->
-       signal_num_array.(i) <- signal_new signal.name 1 classe parent i;
-       i+1);
-    object_class_add_signals classe signal_num_array nsignals
-  in
-  new_type,
-  (fun () ->
-    set_ml_class_init class_init_func;
-    type_new new_type)
-  (* , signal_num_array *)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkPack.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkPack.ml
deleted file mode 100644 (file)
index 20adb05..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkPack.ml
+++ /dev/null
@@ -1,318 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module Box = struct
-  let cast w : box obj = Object.try_cast w "GtkBox"
-  external coerce : [>`box] obj -> box obj = "%identity"
-  external pack_start :
-      [>`box] obj -> [>`widget] obj ->
-      expand:bool -> fill:bool -> padding:int -> unit
-      = "ml_gtk_box_pack_start"
-  external pack_end :
-      [>`box] obj -> [>`widget] obj ->
-      expand:bool -> fill:bool -> padding:int -> unit
-      = "ml_gtk_box_pack_end"
-  let pack box ?from:( dir = (`START : pack_type))
-      ?(expand=false) ?(fill=true) ?(padding=0) child =
-    (match dir with `START -> pack_start | `END -> pack_end)
-      box child ~expand ~fill ~padding
-  external reorder_child : [>`box] obj -> [>`widget] obj -> pos:int -> unit
-      = "ml_gtk_box_reorder_child"
-  external set_homogeneous : [>`box] obj -> bool -> unit
-      = "ml_gtk_box_set_homogeneous"
-  external set_spacing : [>`box] obj -> int -> unit
-      = "ml_gtk_box_set_spacing"
-  let set ?homogeneous ?spacing w =
-    may homogeneous ~f:(set_homogeneous w);
-    may spacing ~f:(set_spacing w)
-  type packing =
-      { expand: bool; fill: bool; padding: int; pack_type: pack_type }
-  external query_child_packing : [>`box] obj -> [>`widget] obj -> packing
-      = "ml_gtk_box_query_child_packing"
-  external set_child_packing :
-      [>`box] obj -> [>`widget] obj ->
-      ?expand:bool -> ?fill:bool -> ?padding:int -> ?from:pack_type -> unit
-      = "ml_gtk_box_set_child_packing_bc" "ml_gtk_box_set_child_packing"
-  external hbox_new : homogeneous:bool -> spacing:int -> box obj
-      = "ml_gtk_hbox_new"
-  external vbox_new : homogeneous:bool -> spacing:int -> box obj
-      = "ml_gtk_vbox_new"
-  let create (dir : orientation) ?(homogeneous=false) ?(spacing=0) () =
-    (match dir with `HORIZONTAL -> hbox_new | `VERTICAL -> vbox_new)
-      ~homogeneous ~spacing
-end
-
-module BBox = struct
-  (* Omitted defaults setting *)
-  let cast w : button_box obj = Object.try_cast w "GtkBBox"
-  external coerce : [>`bbox] obj -> button_box obj = "%identity"
-  type bbox_style = [ `DEFAULT_STYLE|`SPREAD|`EDGE|`START|`END ]
-  external get_spacing : [>`bbox] obj -> int = "ml_gtk_button_box_get_spacing"
-  external get_child_width : [>`bbox] obj -> int
-      = "ml_gtk_button_box_get_child_min_width"
-  external get_child_height : [>`bbox] obj -> int
-      = "ml_gtk_button_box_get_child_min_height"
-  external get_child_ipadx : [>`bbox] obj -> int
-      = "ml_gtk_button_box_get_child_ipad_x"
-  external get_child_ipady : [>`bbox] obj -> int
-      = "ml_gtk_button_box_get_child_ipad_y"
-  external get_layout : [>`bbox] obj -> bbox_style
-      = "ml_gtk_button_box_get_layout_style"
-  external set_spacing : [>`bbox] obj -> int -> unit
-      = "ml_gtk_button_box_set_spacing"
-  external set_child_size : [>`bbox] obj -> width:int -> height:int -> unit
-      = "ml_gtk_button_box_set_child_size"
-  external set_child_ipadding : [>`bbox] obj -> x:int -> y:int -> unit
-      = "ml_gtk_button_box_set_child_ipadding"
-  external set_layout : [>`bbox] obj -> bbox_style -> unit
-      = "ml_gtk_button_box_set_layout"
-  let set_child_size w ?width ?height () =
-    set_child_size w ~width:(may_default get_child_width w ~opt:width)
-      ~height:(may_default get_child_height w ~opt:height)
-  let set_child_ipadding w ?x ?y () =
-    set_child_ipadding w
-      ~x:(may_default get_child_ipadx w ~opt:x)
-      ~y:(may_default get_child_ipady w ~opt:y)
-  let set ?spacing ?child_width ?child_height ?child_ipadx
-      ?child_ipady ?layout w =
-    may spacing ~f:(set_spacing w);
-    if child_width <> None || child_height <> None then
-      set_child_size w ?width:child_width ?height:child_height ();
-    if child_ipadx <> None || child_ipady <> None then
-      set_child_ipadding w ?x:child_ipadx ?y:child_ipady ();
-    may layout ~f:(set_layout w)
-  external set_child_size_default : width:int -> height:int -> unit
-      = "ml_gtk_button_box_set_child_size_default"
-  external set_child_ipadding_default : x:int -> y:int -> unit
-      = "ml_gtk_button_box_set_child_ipadding_default"
-  external create_hbbox : unit -> button_box obj = "ml_gtk_hbutton_box_new"
-  external create_vbbox : unit -> button_box obj = "ml_gtk_vbutton_box_new"
-  let create (dir : orientation) =
-    if dir = `HORIZONTAL then create_hbbox () else create_vbbox ()
-end
-
-module Fixed = struct
-  let cast w : fixed obj = Object.try_cast w "GtkFixed"
-  external create : unit -> fixed obj = "ml_gtk_fixed_new"
-  external put : [>`fixed] obj -> [>`widget] obj -> x:int -> y:int -> unit
-      = "ml_gtk_fixed_put"
-  external move : [>`fixed] obj -> [>`widget] obj -> x:int -> y:int -> unit
-      = "ml_gtk_fixed_move"
-end
-
-module Layout = struct
-  let cast w : layout obj = Object.try_cast w "GtkLayout"
-  external create :
-      [>`adjustment] optobj -> [>`adjustment] optobj -> layout obj
-      = "ml_gtk_layout_new"
-  external put : [>`layout] obj -> [>`widget] obj -> x:int -> y:int -> unit
-      = "ml_gtk_layout_put"
-  external move : [>`layout] obj -> [>`widget] obj -> x:int -> y:int -> unit
-      = "ml_gtk_layout_move"
-  external set_size : [>`layout] obj -> width:int -> height:int -> unit
-      = "ml_gtk_layout_set_size"
-  external get_hadjustment : [>`layout] obj -> adjustment obj
-      = "ml_gtk_layout_get_hadjustment"
-  external get_vadjustment : [>`layout] obj -> adjustment obj
-      = "ml_gtk_layout_get_vadjustment"
-  external set_hadjustment : [>`layout] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_layout_set_hadjustment"
-  external set_vadjustment : [>`layout] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_layout_set_vadjustment"
-  external freeze : [>`layout] obj -> unit
-      = "ml_gtk_layout_freeze"
-  external thaw : [>`layout] obj -> unit
-      = "ml_gtk_layout_thaw"
-  external get_height : [>`layout] obj -> int
-      = "ml_gtk_layout_get_height"
-  external get_width : [>`layout] obj -> int
-      = "ml_gtk_layout_get_width"
-  let set_size ?width ?height w =
-    set_size w ~width:(may_default get_width w ~opt:width)
-      ~height:(may_default get_height w ~opt:height)
-end
-
-
-module Packer = struct
-  let cast w : packer obj = Object.try_cast w "GtkPacker"
-  external create : unit -> packer obj = "ml_gtk_packer_new"
-  external add :
-      [>`packer] obj -> [>`widget] obj ->
-      ?side:side_type -> ?anchor:anchor_type ->
-      ?options:packer_options list ->
-      ?border_width:int -> ?pad_x:int -> ?pad_y:int ->
-      ?i_pad_x:int -> ?i_pad_y:int -> unit
-      = "ml_gtk_packer_add_bc" "ml_gtk_packer_add"
-  external add_defaults :
-      [>`packer] obj -> [>`widget] obj ->
-      ?side:side_type -> ?anchor:anchor_type ->
-      ?options:packer_options list -> unit
-      = "ml_gtk_packer_add_defaults"
-  external set_child_packing :
-      [>`packer] obj -> [>`widget] obj ->
-      ?side:side_type -> ?anchor:anchor_type ->
-      ?options:packer_options list ->
-      ?border_width:int -> ?pad_x:int -> ?pad_y:int ->
-      ?i_pad_x:int -> ?i_pad_y:int -> unit
-      = "ml_gtk_packer_set_child_packing_bc" "ml_gtk_packer_set_child_packing"
-  external reorder_child : [>`packer] obj -> [>`widget] obj -> pos:int -> unit
-      = "ml_gtk_packer_reorder_child"
-  external set_spacing : [>`packer] obj -> int -> unit
-      = "ml_gtk_packer_set_spacing"
-  external set_defaults :
-      [>`packer] obj -> ?border_width:int -> ?pad_x:int -> ?pad_y:int ->
-      ?i_pad_x:int -> ?i_pad_y:int -> unit -> unit
-      = "ml_gtk_packer_set_defaults_bc" "ml_gtk_packer_set_defaults"
-
-  let build_options ?(expand=false) ?(fill=`BOTH) () =
-    (if expand then [`PACK_EXPAND] else []) @
-    (match (fill : expand_type) with `NONE -> []
-    | `X -> [`FILL_X]
-    | `Y -> [`FILL_Y]
-    | `BOTH -> [`FILL_X;`FILL_Y])
-end
-
-module Paned = struct
-  let cast w : paned obj = Object.try_cast w "GtkPaned"
-  external add1 : [>`paned] obj -> [>`widget] obj -> unit
-      = "ml_gtk_paned_add1"
-  external add2 : [>`paned] obj -> [>`widget] obj -> unit
-      = "ml_gtk_paned_add2"
-  external set_handle_size : [>`paned] obj -> int -> unit
-      = "ml_gtk_paned_set_handle_size"
-  external set_gutter_size : [>`paned] obj -> int -> unit
-      = "ml_gtk_paned_set_gutter_size"
-  let set ?handle_size ?gutter_size w =
-    may ~f:(set_handle_size w) handle_size;
-    may ~f:(set_gutter_size w) gutter_size
-  external child1 : [>`paned] obj -> widget obj = "ml_gtk_paned_child1"
-  external child2 : [>`paned] obj -> widget obj = "ml_gtk_paned_child2"
-  external handle_size : [>`paned] obj -> int = "ml_gtk_paned_handle_size"
-  external gutter_size : [>`paned] obj -> int = "ml_gtk_paned_handle_size"
-  external hpaned_new : unit -> paned obj = "ml_gtk_hpaned_new"
-  external vpaned_new : unit -> paned obj = "ml_gtk_vpaned_new"
-  let create (dir : orientation) =
-    if dir = `HORIZONTAL then hpaned_new () else vpaned_new ()
-end
-
-module Table = struct
-  let cast w : table obj = Object.try_cast w "GtkTable"
-  external create : int -> int -> homogeneous:bool -> table obj
-      = "ml_gtk_table_new"
-  let create ~rows:r ~columns:c ?(homogeneous=false) () =
-    create r c ~homogeneous
-  external attach :
-      [>`table] obj -> [>`widget] obj -> left:int -> right:int ->
-      top:int -> bottom:int -> xoptions:attach_options list ->
-      yoptions:attach_options list -> xpadding:int -> ypadding:int -> unit
-      = "ml_gtk_table_attach_bc" "ml_gtk_table_attach"
-  let has_x : expand_type -> bool =
-    function `X|`BOTH -> true | `Y|`NONE -> false
-  let has_y : expand_type -> bool =
-    function `Y|`BOTH -> true | `X|`NONE -> false
-  let attach t ~left ~top ?(right=left+1) ?(bottom=top+1)
-      ?(expand=`NONE) ?(fill=`BOTH) ?(shrink=`NONE)
-      ?(xpadding=0) ?(ypadding=0) w =
-    let xoptions = if has_x shrink then [`SHRINK] else [] in
-    let xoptions = if has_x fill then `FILL::xoptions else xoptions in
-    let xoptions = if has_x expand then `EXPAND::xoptions else xoptions in
-    let yoptions = if has_y shrink then [`SHRINK] else [] in
-    let yoptions = if has_y fill then `FILL::yoptions else yoptions in
-    let yoptions = if has_y expand then `EXPAND::yoptions else yoptions in
-    attach t w ~left ~top ~right ~bottom ~xoptions ~yoptions
-      ~xpadding ~ypadding
-  external set_row_spacing : [>`table] obj -> int -> int -> unit
-      = "ml_gtk_table_set_row_spacing"
-  external set_col_spacing : [>`table] obj -> int -> int -> unit
-      = "ml_gtk_table_set_col_spacing"
-  external set_row_spacings : [>`table] obj -> int -> unit
-      = "ml_gtk_table_set_row_spacings"
-  external set_col_spacings : [>`table] obj -> int -> unit
-      = "ml_gtk_table_set_col_spacings"
-  external set_homogeneous : [>`table] obj -> bool -> unit
-      = "ml_gtk_table_set_homogeneous"
-  let set ?homogeneous ?row_spacings ?col_spacings w =
-    may row_spacings ~f:(set_row_spacings w);
-    may col_spacings ~f:(set_col_spacings w);
-    may homogeneous ~f:(set_homogeneous w)
-end
-
-module Notebook = struct
-  let cast w : notebook obj = Object.try_cast w "GtkNotebook"
-  external create : unit -> notebook obj = "ml_gtk_notebook_new"
-  external insert_page :
-      [>`notebook] obj -> [>`widget] obj -> tab_label:[>`widget] optobj ->
-      menu_label:[>`widget] optobj -> pos:int -> unit
-      = "ml_gtk_notebook_insert_page_menu"
-      (* default is append to end *)
-  external remove_page : [>`notebook] obj -> int -> unit
-      = "ml_gtk_notebook_remove_page"
-  external get_current_page : [>`notebook] obj -> int
-      = "ml_gtk_notebook_get_current_page"
-  external set_page : [>`notebook] obj -> int -> unit
-      = "ml_gtk_notebook_set_page"
-  external set_tab_pos : [>`notebook] obj -> position -> unit
-      = "ml_gtk_notebook_set_tab_pos"
-  external set_homogeneous_tabs : [>`notebook] obj -> bool -> unit
-      = "ml_gtk_notebook_set_homogeneous_tabs"
-  external set_show_tabs : [>`notebook] obj -> bool -> unit
-      = "ml_gtk_notebook_set_show_tabs"
-  external set_show_border : [>`notebook] obj -> bool -> unit
-      = "ml_gtk_notebook_set_show_border"
-  external set_scrollable : [>`notebook] obj -> bool -> unit
-      = "ml_gtk_notebook_set_scrollable"
-  external set_tab_border : [>`notebook] obj -> int -> unit
-      = "ml_gtk_notebook_set_tab_border"
-  external popup_enable : [>`notebook] obj -> unit
-      = "ml_gtk_notebook_popup_enable"
-  external popup_disable : [>`notebook] obj -> unit
-      = "ml_gtk_notebook_popup_disable"
-  external get_nth_page : [>`notebook] obj -> int -> widget obj
-      = "ml_gtk_notebook_get_nth_page"
-  external page_num : [>`notebook] obj -> [>`widget] obj -> int
-      = "ml_gtk_notebook_page_num"
-  external next_page : [>`notebook] obj -> unit
-      = "ml_gtk_notebook_next_page"
-  external prev_page : [>`notebook] obj -> unit
-      = "ml_gtk_notebook_prev_page"
-  external get_tab_label : [>`notebook] obj -> [>`widget] obj -> widget obj
-      = "ml_gtk_notebook_get_tab_label"
-  external set_tab_label :
-      [>`notebook] obj -> [>`widget] obj -> [>`widget] obj -> unit
-      = "ml_gtk_notebook_set_tab_label"
-  external get_menu_label : [>`notebook] obj -> [>`widget] obj -> widget obj
-      = "ml_gtk_notebook_get_menu_label"
-  external set_menu_label :
-      [>`notebook] obj -> [>`widget] obj -> [>`widget] obj -> unit
-      = "ml_gtk_notebook_set_menu_label"
-  external reorder_child : [>`notebook] obj -> [>`widget] obj -> int -> unit
-      = "ml_gtk_notebook_reorder_child"
-
-  let set_popup w = function
-      true -> popup_enable w
-    | false -> popup_disable w
-  let set ?page ?tab_pos ?show_tabs ?homogeneous_tabs
-      ?show_border ?scrollable ?tab_border ?popup w =
-    let may_set f = may ~f:(f w) in
-    may_set set_page page;
-    may_set set_tab_pos tab_pos;
-    may_set set_show_tabs show_tabs;
-    may_set set_homogeneous_tabs homogeneous_tabs;
-    may_set set_show_border show_border;
-    may_set set_scrollable scrollable;
-    may_set set_tab_border tab_border;
-    may_set set_popup popup
-  module Signals = struct
-    open GtkArgv
-    open GtkSignal
-    let marshal_page f argv = function
-      |        _ :: INT page :: _ -> f page
-      |        _ -> invalid_arg "GtkPack.Notebook.Signals.marshal_page"
-    let switch_page : ([>`notebook],_) t =
-      { name = "switch_page"; marshaller = marshal_page }
-  end
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkRange.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkRange.ml
deleted file mode 100644 (file)
index b67e49b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkRange.ml
+++ /dev/null
@@ -1,147 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module Progress = struct
-  let cast w : progress obj = Object.try_cast w "GtkProgress"
-  external set_show_text : [>`progress] obj -> bool -> unit
-      = "ml_gtk_progress_set_show_text"
-  external set_text_alignment :
-      [>`progress] obj -> ?x:float -> ?y:float -> unit -> unit
-      = "ml_gtk_progress_set_show_text"
-  external set_format_string : [>`progress] obj -> string -> unit
-      = "ml_gtk_progress_set_format_string"
-  external set_adjustment : [>`progress] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_progress_set_adjustment"
-  external configure :
-      [>`progress] obj -> current:float -> min:float -> max:float -> unit
-      = "ml_gtk_progress_configure"
-  external set_percentage : [>`progress] obj -> float -> unit
-      = "ml_gtk_progress_set_percentage"
-  external set_value : [>`progress] obj -> float -> unit
-      = "ml_gtk_progress_set_value"
-  external get_value : [>`progress] obj -> float
-      = "ml_gtk_progress_get_value"
-  external get_percentage : [>`progress] obj -> float
-      = "ml_gtk_progress_get_current_percentage"
-  external set_activity_mode : [>`progress] obj -> bool -> unit
-      = "ml_gtk_progress_set_activity_mode"
-  external get_current_text : [>`progress] obj -> string
-      = "ml_gtk_progress_get_current_text"
-  external get_adjustment : [>`progress] obj -> adjustment obj
-      = "ml_gtk_progress_get_adjustment"
-  let set ?value ?percentage ?activity_mode
-      ?show_text ?format_string ?text_xalign ?text_yalign w =
-    may value ~f:(set_value w);
-    may percentage ~f:(set_percentage w);
-    may activity_mode ~f:(set_activity_mode w);
-    may show_text ~f:(set_show_text w);
-    may format_string ~f:(set_format_string w);
-    if text_xalign <> None || text_yalign <> None then
-      set_text_alignment w ?x:text_xalign ?y:text_yalign ()
-end
-
-module ProgressBar = struct
-  let cast w : progress_bar obj = Object.try_cast w "GtkProgressBar"
-  external create : unit -> progress_bar obj = "ml_gtk_progress_bar_new"
-  external create_with_adjustment : [>`adjustment] obj -> progress_bar obj
-      = "ml_gtk_progress_bar_new_with_adjustment"
-  external set_bar_style :
-      [>`progressbar] obj -> [`CONTINUOUS|`DISCRETE] -> unit
-      = "ml_gtk_progress_bar_set_bar_style"
-  external set_discrete_blocks : [>`progressbar] obj -> int -> unit
-      = "ml_gtk_progress_bar_set_discrete_blocks"
-  external set_activity_step : [>`progressbar] obj -> int -> unit
-      = "ml_gtk_progress_bar_set_activity_step"
-  external set_activity_blocks : [>`progressbar] obj -> int -> unit
-      = "ml_gtk_progress_bar_set_activity_blocks"
-  external set_orientation :
-      [>`progressbar] obj -> Tags.progress_bar_orientation -> unit
-      = "ml_gtk_progress_bar_set_orientation"
-  let set ?bar_style ?discrete_blocks ?activity_step ?activity_blocks w =
-    let may_set f opt = may opt ~f:(f w) in
-    may_set set_bar_style bar_style;
-    may_set set_discrete_blocks discrete_blocks;
-    may_set set_activity_step activity_step;
-    may_set set_activity_blocks activity_blocks
-end
-
-module Range = struct
-  let cast w : range obj = Object.try_cast w "GtkRange"
-  external coerce : [>`range] obj -> range obj = "%identity"
-  external get_adjustment : [>`range] obj -> adjustment obj
-      = "ml_gtk_range_get_adjustment"
-  external set_adjustment : [>`range] obj -> [>`adjustment] obj -> unit
-      = "ml_gtk_range_set_adjustment"
-  external set_update_policy : [>`range] obj -> update_type -> unit
-      = "ml_gtk_range_set_update_policy"
-  let set ?adjustment ?update_policy w =
-    may adjustment ~f:(set_adjustment w);
-    may update_policy ~f:(set_update_policy w)
-end
-
-module Scale = struct
-  let cast w : scale obj = Object.try_cast w "GtkScale"
-  external hscale_new : [>`adjustment] optobj -> scale obj
-      = "ml_gtk_hscale_new"
-  external vscale_new : [>`adjustment] optobj -> scale obj
-      = "ml_gtk_vscale_new"
-  let create ?adjustment (dir : orientation) =
-    let create = if dir = `HORIZONTAL then hscale_new else vscale_new  in
-    create (Gpointer.optboxed adjustment)
-  external set_digits : [>`scale] obj -> int -> unit
-      = "ml_gtk_scale_set_digits"
-  external set_draw_value : [>`scale] obj -> bool -> unit
-      = "ml_gtk_scale_set_draw_value"
-  external set_value_pos : [>`scale] obj -> position -> unit
-      = "ml_gtk_scale_set_value_pos"
-  external get_value_width : [>`scale] obj -> int
-      = "ml_gtk_scale_get_value_width"
-  external draw_value : [>`scale] obj -> unit
-      = "ml_gtk_scale_draw_value"
-  let set ?digits ?draw_value ?value_pos w =
-    may digits ~f:(set_digits w);
-    may draw_value ~f:(set_draw_value w);
-    may value_pos ~f:(set_value_pos w)
-end
-
-module Scrollbar = struct
-  let cast w : scrollbar obj = Object.try_cast w "GtkScrollbar"
-  external hscrollbar_new : [>`adjustment] optobj -> scrollbar obj
-      = "ml_gtk_hscrollbar_new"
-  external vscrollbar_new : [>`adjustment] optobj -> scrollbar obj
-      = "ml_gtk_vscrollbar_new"
-  let create ?adjustment (dir : orientation) =
-    let create = if dir = `HORIZONTAL then hscrollbar_new else vscrollbar_new
-    in create (Gpointer.optboxed adjustment)
-end
-
-module Ruler = struct
-  let cast w : ruler obj = Object.try_cast w "GtkRuler"
-  external hruler_new : unit -> ruler obj = "ml_gtk_hruler_new"
-  external vruler_new : unit -> ruler obj = "ml_gtk_vruler_new"
-  let create (dir : orientation) =
-    if dir = `HORIZONTAL then hruler_new () else vruler_new ()
-  external set_metric : [>`ruler] obj -> metric_type -> unit
-      = "ml_gtk_ruler_set_metric"
-  external set_range :
-      [>`ruler] obj ->
-      lower:float -> upper:float -> position:float -> max_size:float -> unit
-      = "ml_gtk_ruler_set_range"
-  external get_lower : [>`ruler] obj -> float = "ml_gtk_ruler_get_lower"
-  external get_upper : [>`ruler] obj -> float = "ml_gtk_ruler_get_upper"
-  external get_position : [>`ruler] obj -> float = "ml_gtk_ruler_get_position"
-  external get_max_size : [>`ruler] obj -> float = "ml_gtk_ruler_get_max_size"
-  let set_range ?lower ?upper ?position ?max_size w =
-    set_range w ~lower:(may_default get_lower w ~opt:lower)
-      ~upper:(may_default get_upper w ~opt:upper)
-      ~position:(may_default get_position w ~opt:position)
-      ~max_size:(may_default get_max_size w ~opt:max_size)
-  let set ?metric ?lower ?upper ?position ?max_size w =
-    may metric ~f:(set_metric w);
-    if lower <> None || upper <> None || position <> None || max_size <> None
-    then set_range w ?lower ?upper ?position ?max_size
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkSignal.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkSignal.ml
deleted file mode 100644 (file)
index 8fa4602..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkSignal.ml
+++ /dev/null
@@ -1,65 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-
-type id
-type ('a,'b) t =
- { name: string;
-   marshaller: ('b -> GtkArgv.t -> GtkArgv.data list -> unit) }
-
-let enter_callback = ref (fun () -> ())
-and exit_callback = ref (fun () -> ())
-
-let stop_emit_ref = ref false
-let stop_emit () = stop_emit_ref := true
-
-type saved_state = State of bool
-let push_callback () =
-  !enter_callback ();
-  let old = !stop_emit_ref in
-  stop_emit_ref := false;
-  State old
-
-let pop_callback (State old) =
-  let res = !stop_emit_ref in
-  stop_emit_ref := old;
-  !exit_callback ();
-  res
-
-external connect :
-  'a obj -> name:string -> callback:(GtkArgv.t -> unit) -> after:bool -> id
-  = "ml_gtk_signal_connect"
-external emit_stop_by_name : 'a obj -> name:string -> unit
-  = "ml_gtk_signal_emit_stop_by_name"
-let connect  ~(sgn : ('a, _) t) ~callback ?(after=false) (obj : 'a obj) =
-  let callback argv =
-    let old = push_callback () in
-    let exn =
-      try sgn.marshaller callback argv (GtkArgv.get_args argv); None
-      with exn -> Some exn
-    in
-    if pop_callback old then emit_stop_by_name obj ~name:sgn.name;
-    Gaux.may ~f:raise exn
-  in
-  connect obj ~name:sgn.name ~callback ~after
-external disconnect : 'a obj -> id -> unit
-  = "ml_gtk_signal_disconnect"
-external handler_block : 'a obj -> id -> unit
-  = "ml_gtk_signal_handler_block"
-external handler_unblock : 'a obj -> id -> unit
-  = "ml_gtk_signal_handler_unblock"
-
-let marshal_unit f _ _ = f ()
-let marshal_int f _ = function
-  | GtkArgv.INT n :: _ -> f n
-  | _ -> invalid_arg "GtkSignal.marshal_int"
-
-let emit (obj : 'a obj) ~(sgn : ('a, 'b) t)
-    ~(emitter : 'a obj -> name:string -> 'b) =
-  emitter obj ~name:sgn.name
-external emit_none : 'a obj -> name:string -> unit -> unit
-    = "ml_gtk_signal_emit_none"
-let emit_unit obj ~sgn = emit obj ~emitter:emit_none ~sgn ()
-external emit_int : 'a obj -> name:string -> int -> unit
-    = "ml_gtk_signal_emit_int"
-let emit_int = emit ~emitter:emit_int

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkSignal.mli b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkSignal.mli
deleted file mode 100644 (file)
index 0ef2ab2..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkSignal.mli
+++ /dev/null
@@ -1,45 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-
-type id
-type ('a,'b) t =
- { name: string;
-   marshaller: ('b -> GtkArgv.t -> GtkArgv.data list -> unit) }
-
-val stop_emit : unit -> unit
-    (* Call [stop_emit ()] in a callback to prohibit further handling
-       of the current signal invocation, by calling [emit_stop_by_name].
-       Be careful about where you use it, since the concept of current
-       signal may be tricky. *)
-
-val connect :
-  sgn:('a, 'b) t -> callback:'b -> ?after:bool -> 'a obj -> id
-    (* You may use [stop_emit] inside the callback *)
-
-external disconnect : 'a obj -> id -> unit
-  = "ml_gtk_signal_disconnect"
-external emit_stop_by_name : 'a obj -> name:string -> unit
-  = "ml_gtk_signal_emit_stop_by_name"
-    (* Unsafe: use [stop_emit] instead. *)
-external handler_block : 'a obj -> id -> unit
-  = "ml_gtk_signal_handler_block"
-external handler_unblock : 'a obj -> id -> unit
-  = "ml_gtk_signal_handler_unblock"
-
-(* Some marshaller functions, to build signals *)
-val marshal_unit : (unit -> unit) -> GtkArgv.t -> GtkArgv.data list -> unit
-val marshal_int : (int -> unit) -> GtkArgv.t -> GtkArgv.data list -> unit
-
-(* Emitter functions *)
-val emit :
-  'a obj -> sgn:('a, 'b) t -> emitter:('a obj -> name:string -> 'b) -> 'b
-val emit_unit : 'a obj -> sgn:('a, unit -> unit) t -> unit
-val emit_int : 'a obj -> sgn:('a, int -> unit) t -> int -> unit
-
-(* Internal functions. *)
-val enter_callback : (unit -> unit) ref
-val exit_callback : (unit -> unit) ref
-type saved_state
-val push_callback : unit -> saved_state
-val pop_callback : saved_state -> bool

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkThInit.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkThInit.ml
deleted file mode 100644 (file)
index 517f80b..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkThInit.ml
+++ /dev/null
@@ -1,5 +0,0 @@
-(* $Id$ *)
-
-(* Start the main thread in a threaded toplevel *)
-
-let thread = GtkThread.start ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkThread.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkThread.ml
deleted file mode 100644 (file)
index 3ab577e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkThread.ml
+++ /dev/null
@@ -1,33 +0,0 @@
-(* $Id$ *)
-
-open GtkMain
-
-(* We check first whether there are some event pending, and run
-   some iterations. We then need to delay, thus focing a thread switch. *)
-
-let main () =
-  try
-    let loop = (Glib.Main.create true) in
-    Main.loops := loop :: !Main.loops;
-    while Glib.Main.is_running loop do
-      let i = ref 0 in
-      while !i < 100 && Glib.Main.pending () do
-       Glib.Main.iteration true;
-       incr i
-      done;
-      Thread.delay 0.001
-    done;
-    Main.loops := List.tl !Main.loops
-  with exn ->
-    Main.loops := List.tl !Main.loops;
-    raise exn
-      
-let start = Thread.create main
-
-let _ =
-  let mutex = Mutex.create () in
-  let depth = ref 0 in
-  GtkSignal.enter_callback :=
-    (fun () -> if !depth = 0 then Mutex.lock mutex; incr depth);
-  GtkSignal.exit_callback :=
-    (fun () -> decr depth; if !depth = 0 then Mutex.unlock mutex)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkTree.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkTree.ml
deleted file mode 100644 (file)
index 9260741..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkTree.ml
+++ /dev/null
@@ -1,122 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module TreeItem = struct
-  let cast w : tree_item obj = Object.try_cast w "GtkTreeItem"
-  external create : unit -> tree_item obj = "ml_gtk_tree_item_new"
-  external create_with_label : string -> tree_item obj
-      = "ml_gtk_tree_item_new_with_label"
-  let create ?label () =
-    match label with None -> create ()
-    | Some label -> create_with_label label
-  external set_subtree : [>`treeitem] obj -> [>`widget] obj -> unit
-      = "ml_gtk_tree_item_set_subtree"
-  external remove_subtree : [>`treeitem] obj -> unit
-      = "ml_gtk_tree_item_remove_subtree"
-  external expand : [>`treeitem] obj -> unit
-      = "ml_gtk_tree_item_expand"
-  external collapse : [>`treeitem] obj -> unit
-      = "ml_gtk_tree_item_collapse"
-  external subtree : [>`treeitem] obj -> tree obj
-      = "ml_GTK_TREE_ITEM_SUBTREE"
-  module Signals = struct
-    open GtkSignal
-    let expand : ([>`treeitem],_) t =
-      { name = "expand"; marshaller = marshal_unit }
-    let collapse : ([>`treeitem],_) t =
-      { name = "collapse"; marshaller = marshal_unit }
-  end
-end
-
-module Tree = struct
-  let cast w : tree obj = Object.try_cast w "GtkTree"
-  external coerce : [>`tree] obj -> tree obj = "%identity"
-  external create : unit -> tree obj = "ml_gtk_tree_new"
-  external insert : [>`tree] obj -> [>`treeitem] obj -> pos:int -> unit
-      = "ml_gtk_tree_insert"
-  external remove_items : [>`tree] obj -> [>`treeitem] obj list -> unit
-      = "ml_gtk_tree_remove_items"
-  external clear_items : [>`tree] obj -> start:int -> stop:int -> unit
-      = "ml_gtk_tree_clear_items"
-  external select_item : [>`tree] obj -> pos:int -> unit
-      = "ml_gtk_tree_select_item"
-  external unselect_item : [>`tree] obj -> pos:int -> unit
-      = "ml_gtk_tree_unselect_item"
-  external child_position : [>`tree] obj -> [>`treeitem] obj -> int
-      = "ml_gtk_tree_child_position"
-  external set_selection_mode : [>`tree] obj -> selection_mode -> unit
-      = "ml_gtk_tree_set_selection_mode"
-  external set_view_mode : [>`tree] obj -> [`LINE|`ITEM] -> unit
-      = "ml_gtk_tree_set_view_mode"
-  external set_view_lines : [>`tree] obj -> bool -> unit
-      = "ml_gtk_tree_set_view_lines"
-  external selection : [>`tree] obj -> tree_item obj list =
-    "ml_gtk_tree_selection"
-  let set ?selection_mode ?view_mode ?view_lines w =
-    let may_set f = may ~f:(f w) in
-    may_set set_selection_mode selection_mode;
-    may_set set_view_mode view_mode;
-    may_set set_view_lines view_lines
-  module Signals = struct
-    open GtkSignal
-    let selection_changed : ([>`tree],_) t =
-      { name = "selection_changed"; marshaller = marshal_unit }
-    let select_child : ([>`tree],_) t =
-      { name = "select_child"; marshaller = Widget.Signals.marshal }
-    let unselect_child : ([>`tree],_) t =
-      { name = "unselect_child"; marshaller = Widget.Signals.marshal }
-  end
-end
-(*
-module CTree = struct
-  type t
-  type node =  [`ctree] obj * t
-  let cast w : ctree obj = Object.try_cast w "GtkCTree"
-  external create : cols:int -> treecol:int -> ctree obj = "ml_gtk_ctree_new"
-  external insert_node :
-      [>`ctree] obj -> ?parent:node -> ?sibling:node ->
-      titles:optstring array ->
-      spacing:int -> ?pclosed:Gdk.pixmap -> ?mclosed:Gdk.bitmap obj ->
-      ?popened:Gdk.pixmap -> ?mopened:Gdk.bitmap obj ->
-      is_leaf:bool -> expanded:bool -> node
-      = "ml_gtk_ctree_insert_node_bc" "ml_gtk_ctree_insert_node"
-  let insert_node'
-      w ?parent ?sibling ?(spacing = 0) ?(is_leaf = true)
-      ?(expanded = false)
-      ?pclosed ?mclosed ?popened ?mopened titles =
-    let len = GtkList.CList.get_columns w in
-    if List.length titles > len then invalid_arg "CTree.insert_node";
-    let arr = Array.create ~len None in
-    List.fold_left titles ~acc:0
-      ~f:(fun ~acc text -> arr.(acc) <- Some text; acc+1);
-    insert_node w
-      ?parent ?sibling ~titles:(Array.map ~f:optstring arr)
-      ~spacing ~is_leaf ~expanded
-      ?pclosed ?mclosed ?popened ?mopened 
-  external node_set_row_data : [>`ctree] obj -> node:node -> Obj.t -> unit
-      = "ml_gtk_ctree_node_set_row_data"
-  external node_get_row_data : [>`ctree] obj -> node:node -> Obj.t
-      = "ml_gtk_ctree_node_get_row_data"
-  external set_indent : [>`ctree] obj -> int -> unit
-      = "ml_gtk_ctree_set_indent"
-  module Signals = struct
-    open GtkSignal
-    let marshal_select f argv =
-      let node : node =
-        match GtkArgv.get_pointer argv ~pos:0 with
-          Some p -> Obj.magic p
-        | None -> invalid_arg "GtkTree.CTree.Signals.marshal_select"
-      in
-      f ~node ~column:(GtkArgv.get_int argv ~pos:1)
-
-    let tree_select_row : ([>`ctree],_) t =
-      { name = "tree_select_row"; marshaller = marshal_select }
-    let tree_unselect_row : ([>`ctree],_) t =
-      { name = "tree_unselect_row"; marshaller = marshal_select }
-  end
-end
-*)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkWindow.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkWindow.ml
deleted file mode 100644 (file)
index ffe00e9..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkWindow.ml
+++ /dev/null
@@ -1,189 +0,0 @@
-(* $Id$ *)
-
-open Gaux
-open Gtk
-open Tags
-open GtkBase
-
-module Window = struct
-  let cast w : window obj = Object.try_cast w "GtkWindow"
-  external coerce : [>`window] obj -> window obj = "%identity"
-  external create : window_type -> window obj = "ml_gtk_window_new"
-  external set_title : [>`window] obj -> string -> unit
-      = "ml_gtk_window_set_title"
-  external set_wmclass : [>`window] obj -> name:string -> clas:string -> unit
-      = "ml_gtk_window_set_title"
-  external get_wmclass_name : [>`window] obj -> string
-      = "ml_gtk_window_get_wmclass_name"
-  external get_wmclass_class : [>`window] obj -> string
-      = "ml_gtk_window_get_wmclass_class"
-  (* set_focus/default are called by Widget.grab_focus/default *)
-  external set_focus : [>`window] obj -> [>`widget] obj -> unit
-      = "ml_gtk_window_set_focus"
-  external set_default : [>`window] obj -> [>`widget] obj -> unit
-      = "ml_gtk_window_set_default"
-  external set_policy :
-      [>`window] obj ->
-      allow_shrink:bool -> allow_grow:bool -> auto_shrink:bool -> unit
-      = "ml_gtk_window_set_policy"
-  external get_allow_shrink : [>`window] obj -> bool
-      = "ml_gtk_window_get_allow_shrink"
-  external get_allow_grow : [>`window] obj -> bool
-      = "ml_gtk_window_get_allow_grow"
-  external get_auto_shrink : [>`window] obj -> bool
-      = "ml_gtk_window_get_auto_shrink"
-  external activate_focus : [>`window] obj -> bool
-      = "ml_gtk_window_activate_focus"
-  external activate_default : [>`window] obj -> bool
-      = "ml_gtk_window_activate_default"
-  external set_modal : [>`window] obj -> bool -> unit
-      = "ml_gtk_window_set_modal"
-  external set_default_size :
-      [>`window] obj -> width:int -> height:int -> unit
-      = "ml_gtk_window_set_default_size"
-  external set_position : [>`window] obj -> window_position -> unit
-      = "ml_gtk_window_set_position"
-  external set_transient_for : [>`window] obj ->[>`window] obj -> unit
-      = "ml_gtk_window_set_transient_for"
-
-  let set_wmclass ?name ?clas:wm_class w =
-    set_wmclass w ~name:(may_default get_wmclass_name w ~opt:name)
-      ~clas:(may_default get_wmclass_class w ~opt:wm_class)
-  let set_policy ?allow_shrink ?allow_grow ?auto_shrink w =
-    set_policy w
-      ~allow_shrink:(may_default get_allow_shrink w ~opt:allow_shrink)
-      ~allow_grow:(may_default get_allow_grow w ~opt:allow_grow)
-      ~auto_shrink:(may_default get_auto_shrink w ~opt:auto_shrink)
-  let set ?title ?wm_name ?wm_class ?position ?allow_shrink ?allow_grow
-      ?auto_shrink ?modal ?(x = -2) ?(y = -2) w =
-    may title ~f:(set_title w);
-    if wm_name <> None || wm_class <> None then
-      set_wmclass w ?name:wm_name ?clas:wm_class;
-    may position ~f:(set_position w);
-    if allow_shrink <> None || allow_grow <> None || auto_shrink <> None then
-      set_policy w ?allow_shrink ?allow_grow ?auto_shrink;
-    may ~f:(set_modal w) modal;
-    if x <> -2 || y <> -2 then Widget.set_uposition w ~x ~y
-  external add_accel_group : [>`window] obj -> accel_group -> unit
-      = "ml_gtk_window_add_accel_group"
-  external remove_accel_group :
-      [>`window] obj -> accel_group -> unit
-      = "ml_gtk_window_remove_accel_group"
-  external activate_focus : [>`window] obj -> unit
-      = "ml_gtk_window_activate_focus"
-  external activate_default : [>`window] obj -> unit
-      = "ml_gtk_window_activate_default"
-  module Signals = struct
-    open GtkSignal
-    let move_resize : ([>`window],_) t =
-      { name = "move_resize"; marshaller = marshal_unit }
-    let set_focus : ([>`window],_) t =
-      { name = "set_focus"; marshaller = Widget.Signals.marshal_opt }
-  end
-end
-
-module Dialog = struct
-  let cast w : dialog obj = Object.try_cast w "GtkDialog"
-  external coerce : [>`dialog] obj -> dialog obj = "%identity"
-  external create : unit -> dialog obj = "ml_gtk_dialog_new"
-  external action_area : [>`dialog] obj -> box obj
-      = "ml_GtkDialog_action_area"
-  external vbox : [>`dialog] obj -> box obj
-      = "ml_GtkDialog_vbox"
-end
-
-module InputDialog = struct
-  let cast w : input_dialog obj = Object.try_cast w "GtkInputDialog"
-  external create : unit -> input_dialog obj = "ml_gtk_input_dialog_new"
-  module Signals = struct
-    open GtkSignal
-    let enable_device : ([>`inputdialog],_) t =
-      { name = "enable_device"; marshaller = marshal_int }
-    let disable_device : ([>`inputdialog],_) t =
-      { name = "disable_device"; marshaller = marshal_int }
-  end
-end
-
-module FileSelection = struct
-  let cast w : file_selection obj = Object.try_cast w "GtkFileSelection"
-  external create : string -> file_selection obj = "ml_gtk_file_selection_new"
-  external set_filename : [>`filesel] obj -> string -> unit
-      = "ml_gtk_file_selection_set_filename"
-  external get_filename : [>`filesel] obj -> string
-      = "ml_gtk_file_selection_get_filename"
-  external show_fileop_buttons : [>`filesel] obj -> unit
-      = "ml_gtk_file_selection_show_fileop_buttons"
-  external hide_fileop_buttons : [>`filesel] obj -> unit
-      = "ml_gtk_file_selection_hide_fileop_buttons"
-  external get_ok_button : [>`filesel] obj -> button obj
-      = "ml_gtk_file_selection_get_ok_button"
-  external get_cancel_button : [>`filesel] obj -> button obj
-      = "ml_gtk_file_selection_get_cancel_button"
-  external get_help_button : [>`filesel] obj -> button obj
-      = "ml_gtk_file_selection_get_help_button"
-  let set_fileop_buttons w = function
-      true -> show_fileop_buttons w
-    | false -> hide_fileop_buttons w
-  let set ?filename ?fileop_buttons w =
-    may filename ~f:(set_filename w);
-    may fileop_buttons ~f:(set_fileop_buttons w)
-end
-
-module FontSelectionDialog = struct
-  let cast w : font_selection_dialog obj =
-    Object.try_cast w "GtkFontSelectionDialog"
-  external create : ?title:string -> unit -> font_selection_dialog obj
-      = "ml_gtk_font_selection_dialog_new"
-  external font_selection : [>`fontseldialog] obj -> font_selection obj
-      = "ml_gtk_font_selection_dialog_fontsel"
-  external ok_button : [>`fontseldialog] obj -> button obj
-      = "ml_gtk_font_selection_dialog_ok_button"
-  external apply_button : [>`fontseldialog] obj -> button obj
-      = "ml_gtk_font_selection_dialog_apply_button"
-  external cancel_button : [>`fontseldialog] obj -> button obj
-      = "ml_gtk_font_selection_dialog_cancel_button"
-(*
-  type null_terminated
-  let null_terminated arg : null_terminated =
-    match arg with None -> Obj.magic Gpointer.raw_null
-    | Some l ->
-       let len = List.length l in
-       let arr = Array.create (len + 1) "" in
-       let rec loop i = function
-           [] -> arr.(i) <- Obj.magic Gpointer.raw_null
-         | s::l -> arr.(i) <- s; loop (i+1) l
-       in loop 0 l;
-       Obj.magic (arr : string array)
-  external get_font : [>`fontseldialog] obj -> Gdk.font
-      = "ml_gtk_font_selection_dialog_get_font"
-  let get_font w =
-    try Some (get_font w) with Gpointer.Null -> None
-  external get_font_name : [>`fontseldialog] obj -> string
-      = "ml_gtk_font_selection_dialog_get_font_name"
-  let get_font_name w =
-    try Some (get_font_name w) with Gpointer.Null -> None
-  external set_font_name : [>`fontseldialog] obj -> string -> unit
-      = "ml_gtk_font_selection_dialog_set_font_name"
-  external set_filter :
-    [>`fontseldialog] obj -> font_filter_type -> font_type list ->
-    null_terminated -> null_terminated -> null_terminated ->
-    null_terminated -> null_terminated -> null_terminated -> unit
-    = "ml_gtk_font_selection_dialog_set_filter_bc"
-      "ml_gtk_font_selection_dialog_set_filter"
-  let set_filter w ?kind:(tl=[`ALL]) ?foundry
-      ?weight ?slant ?setwidth ?spacing ?charset filter =
-    set_filter w filter tl (null_terminated foundry)
-      (null_terminated weight) (null_terminated slant)
-      (null_terminated setwidth) (null_terminated spacing)
-      (null_terminated charset)
-  external get_preview_text : [>`fontseldialog] obj -> string
-      = "ml_gtk_font_selection_dialog_get_preview_text"
-  external set_preview_text : [>`fontseldialog] obj -> string -> unit
-      = "ml_gtk_font_selection_dialog_set_preview_text"
-*)
-end
-
-module Plug = struct
-  let cast w : plug obj = Object.try_cast w "GtkPlug"
-  external create : Gdk.xid -> plug obj = "ml_gtk_plug_new"
-end

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkXmHTML.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkXmHTML.ml
deleted file mode 100644 (file)
index 3bf5791..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkXmHTML.ml
+++ /dev/null
@@ -1,109 +0,0 @@
-(* $Id$ *)
-
-open Gtk
-
-type string_direction = [
-  | `R_TO_L
-  | `L_TO_R
-]
-
-type position = [
-  | `END
-  | `CENTER
-  | `BEGINNING
-]
-
-type line_type = [
-  | `SOLID
-  | `DASHED
-  | `SINGLE
-  | `DOUBLE
-  | `STRIKE
-  | `UNDER
-  | `NONE
-]
-
-type dither_type = [
-  | `QUICK
-  | `BEST
-  | `FAST
-  | `SLOW
-  | `DISABLED
-]
-
-type xmhtml = [`widget|`container|`xmhtml]
-
-external create : unit -> xmhtml obj = "ml_gtk_xmhtml_new"
-external freeze : [> `xmhtml] obj -> unit = "ml_gtk_xmhtml_freeze"
-external thaw : [> `xmhtml] obj -> unit = "ml_gtk_xmhtml_thaw"
-external source : [> `xmhtml] obj -> string -> unit = "ml_gtk_xmhtml_source"
-(* external get_source : [> `xmhtml] obj -> string = "ml_gtk_xmhtml_get_source" *)
-external set_string_direction : [> `xmhtml] obj -> string_direction -> unit
-  = "ml_gtk_xmhtml_set_string_direction"
-external set_alignment : [> `xmhtml] obj -> position -> unit
-  = "ml_gtk_xmhtml_set_alignment"
-(* external set_outline : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_outline" *)
-external set_font_familty :
-  [> `xmhtml] obj -> family:string -> sizes:string -> unit
-  = "ml_gtk_xmhtml_set_font_familty"
-external set_font_familty_fixed :
-  [> `xmhtml] obj -> family:string -> sizes:string -> unit
-  = "ml_gtk_xmhtml_set_font_familty_fixed"
-external set_font_charset : [> `xmhtml] obj -> string -> unit
-  = "ml_gtk_xmhtml_set_font_charset"
-external set_allow_body_colors : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_allow_body_colors"
-external set_hilight_on_enter : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_hilight_on_enter"
-external set_anchor_underline_type : [> `xmhtml] obj -> line_type list -> unit
-  = "ml_gtk_xmhtml_set_anchor_underline_type"
-external set_anchor_visited_underline_type :
-  [> `xmhtml] obj -> line_type list -> unit
-  = "ml_gtk_xmhtml_set_anchor_visited_underline_type"
-external set_anchor_target_underline_type :
-  [> `xmhtml] obj -> line_type list -> unit
-  = "ml_gtk_xmhtml_set_anchor_target_underline_type"
-external set_allow_color_switching : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_allow_color_switching"
-external set_dithering : [> `xmhtml] obj -> dither_type -> unit
-  = "ml_gtk_xmhtml_set_dithering"
-external set_allow_font_switching : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_allow_font_switching"
-external set_max_image_colors : [> `xmhtml] obj -> int -> unit
-  = "ml_gtk_xmhtml_set_max_image_colors"
-external set_allow_images : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_allow_images"
-external set_plc_intervals :
-  [> `xmhtml] obj -> min:int -> max:int -> default:int -> unit
-  = "ml_gtk_xmhtml_set_plc_intervals"
-(*
-external set_def_body_image_url : [> `xmhtml] obj -> string -> unit
-  = "ml_gtk_xmhtml_set_def_body_image_url"
-*)
-external set_anchor_buttons : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_anchor_buttons"
-external set_anchor_cursor : [> `xmhtml] obj -> Gdk.cursor option -> unit
-  = "ml_gtk_xmhtml_set_anchor_cursor"
-external set_topline : [> `xmhtml] obj -> int -> unit
-  = "ml_gtk_xmhtml_set_topline"
-external get_topline : [> `xmhtml] obj -> int
-  = "ml_gtk_xmhtml_get_topline"
-external set_freeze_animations : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_freeze_animations"
-external set_screen_gamma : [> `xmhtml] obj -> float -> unit
-  = "ml_gtk_xmhtml_set_screen_gamma"
-external set_perfect_colors : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_perfect_colors"
-external set_uncompress_command : [> `xmhtml] obj -> string -> unit
-  = "ml_gtk_xmhtml_set_uncompress_command"
-external set_strict_checking : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_strict_checking"
-external set_bad_html_warnings : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_bad_html_warnings"
-external set_allow_form_coloring : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_allow_form_coloring"
-external set_imagemap_draw : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_imagemap_draw"
-external set_alpha_processing : [> `xmhtml] obj -> bool -> unit
-  = "ml_gtk_xmhtml_set_alpha_processing"

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtk_tags.var b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtk_tags.var
deleted file mode 100644 (file)
index b2a7d2a..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtk_tags.var
+++ /dev/null
@@ -1,169 +0,0 @@
-(* $Id$ *)
-
-type arrow_type = "GTK_ARROW_"
-  [ `UP | `DOWN | `LEFT | `RIGHT ]
-
-type attach_options = "GTK_"
-  [ `EXPAND | `SHRINK | `FILL ]
-
-type button_box_style = "GTK_BUTTONBOX_"
-  [ `DEFAULT_STYLE | `SPREAD | `EDGE | `START | `END ]
-
-type direction_type = "GTK_DIR_"
-  [ `TAB_FORWARD | `TAB_BACKWARD | `UP | `DOWN | `LEFT | `RIGHT ]
-
-type justification = "GTK_JUSTIFY_"
-  [ `LEFT | `RIGHT | `CENTER | `FILL ]
-
-type match_type = "GTK_MATCH_"
-  [ `ALL | `ALL_TAIL | `HEAD | `TAIL | `EXACT | `LAST ]
-
-type metric_type = "GTK_"
-  [ `PIXELS | `INCHES | `CENTIMETERS ]
-
-type orientation = "GTK_ORIENTATION_"
-  [ `HORIZONTAL | `VERTICAL ]
-
-type corner_type = "GTK_CORNER_"
-  [ `TOP_LEFT | `BOTTOM_LEFT | `TOP_RIGHT | `BOTTOM_RIGHT ]
-
-type pack_type = "GTK_PACK_"
-  [ `START | `END ]
-
-type path_type = "GTK_PATH_"
-  [ `WIDGET | `WIDGET_CLASS | `CLASS ]
-
-type policy_type = "GTK_POLICY_"
-  [ `ALWAYS | `AUTOMATIC | `NEVER ]
-
-type position = "GTK_POS_"
-  [ `LEFT | `RIGHT | `TOP | `BOTTOM ]
-
-type preview_type = "GTK_PREVIEW_"
-  [ `COLOR | `GRAYSCALE ]
-
-type relief_style = "GTK_RELIEF_"
-  [ `NORMAL | `HALF | `NONE ]
-
-type resize_mode = "GTK_RESIZE_"
-  [ `PARENT | `QUEUE | `IMMEDIATE ]
-
-type signal_run_type = "GTK_RUN_"
-  [ `FIRST | `LAST | `BOTH | `NO_RECURSE | `ACTION | `NO_HOOKS ]
-
-type scroll_type = "GTK_SCROLL_"
-  [ `NONE | `STEP_FORWARD | `STEP_BACKWARD | `PAGE_BACKWARD
-  | `PAGE_FORWARD | `JUMP ]
-
-type selection_mode = "GTK_SELECTION_"
-  [ `SINGLE | `BROWSE | `MULTIPLE | `EXTENDED ]
-
-type shadow_type = "GTK_SHADOW_"
-  [ `NONE | `IN | `OUT | `ETCHED_IN | `ETCHED_OUT ]
-
-type state_type = "GTK_STATE_"
-  [ `NORMAL | `ACTIVE | `PRELIGHT | `SELECTED | `INSENSITIVE ] 
-
-type submenu_direction = "GTK_DIRECTION_"
-  [ `LEFT | `RIGHT ]
-
-type submenu_placement = "GTK_"
-  [ `TOP_BOTTOM | `LEFT_RIGHT ]
-
-type toolbar_style = "GTK_TOOLBAR_"
-  [ `ICONS | `TEXT | `BOTH ]
-
-type trough_type = "GTK_TROUGH_"
-  [ `NONE | `START | `END | `JUMP ]
-
-type update_type = "GTK_UPDATE_"
-  [ `CONTINUOUS | `DISCONTINUOUS | `DELAYED ]
-
-type visibility = "GTK_VISIBILITY_"
-  [ `NONE | `PARTIAL | `FULL ]
-
-type window_position = "GTK_WIN_POS_"
-  [ `NONE | `CENTER | `MOUSE | `CENTER_ALWAYS ]
-
-type window_type = "GTK_WINDOW_"
-  [ `TOPLEVEL | `DIALOG | `POPUP ]
-
-type sort_type = "GTK_SORT_"
-  [ `ASCENDING | `DESCENDING ]
-
-
-type fundamental_type = "GTK_TYPE_"
-  [ `INVALID | `NONE | `CHAR | `BOOL | `INT | `UINT | `LONG | `ULONG
-  | `FLOAT | `DOUBLE | `STRING | `ENUM | `FLAGS | `BOXED | `FOREIGN
-  | `CALLBACK | `ARGS | `POINTER | `SIGNAL | `C_CALLBACK | `OBJECT ]
-
-type cell_type = "GTK_CELL_"
-  [ `EMPTY | `TEXT | `PIXMAP | `PIXTEXT | `WIDGET ]
-
-type toolbar_child = "GTK_TOOLBAR_CHILD_"
-  [ `SPACE | `BUTTON | `TOGGLEBUTTON | `RADIOBUTTON | `WIDGET ]
-
-type toolbar_space_style = "GTK_TOOLBAR_SPACE_"
-  [ `EMPTY | `LINE ]
-
-type tree_view_mode = "GTK_TREE_VIEW_"
-  [ `LINE | `ITEM ]
-
-type spin_type = "GTK_SPIN_"
-  [ `STEP_FORWARD | `STEP_BACKWARD | `PAGE_FORWARD | `PAGE_BACKWARD
-  | `HOME | `END | `USER_DEFINED ]
-
-type accel_flag = "GTK_ACCEL_"
-  [ `VISIBLE | `SIGNAL_VISIBLE | `LOCKED ]
-
-type packer_options = "GTK_"
-  [ `PACK_EXPAND | `FILL_X | `FILL_Y ]
-
-type side_type = "GTK_SIDE_"
-  [ `TOP | `BOTTOM | `LEFT | `RIGHT ]
-
-type anchor_type = "GTK_ANCHOR_"
-  [ `CENTER | `NORTH | `NW | `NE | `SOUTH | `SW | `SE | `WEST | `EAST ]
-
-type button_action = "GTK_BUTTON_"
-  [ `SELECTS | `DRAGS | `EXPANDS ]
-
-type calendar_display_options = "GTK_CALENDAR_"
-  [ `SHOW_HEADING | `SHOW_DAY_NAMES | `NO_MONTH_CHANGE | `SHOW_WEEK_NUMBERS
-  | `WEEK_START_MONDAY ]
-
-type progress_bar_style = "GTK_PROGRESS_"
-  [ `CONTINUOUS | `DISCRETE ]
-
-type progress_bar_orientation = "GTK_PROGRESS_"
-  [ `LEFT_TO_RIGHT | `RIGHT_TO_LEFT | `BOTTOM_TO_TOP | `TOP_TO_BOTTOM ]
-
-type dest_defaults = "GTK_DEST_DEFAULT_"
-  [ `MOTION | `HIGHLIGHT | `DROP | `ALL ]
-
-type target_flags = "GTK_TARGET_"
-  [ `SAME_APP | `SAME_WIDGET ]
-
-type font_metric_type = "GTK_FONT_METRIC_"
-  [ `PIXELS | `POINTS ]
-
-type font_type = "GTK_FONT_"
-  [ `BITMAP | `SCALABLE | `SCALABLE_BITMAP | `ALL ]
-
-type font_filter_type = "GTK_FONT_FILTER_"
-  [ `BASE | `USER ]
-
-(*
-type tree_pos = "GTK_CTREE_POS_"
-  [ `BEFORE | `AS_CHILD | `AFTER ]
-
-type tree_line_style = "GTK_CTREE_LINES_"
-  [ `NONE | `SOLID | `DOTTED | `TABBED ]
-
-type tree_expander_style = "GTK_CTREE_EXPANDER_"
-  [ `NONE | `SQUARE | `TRIANGLE | `CIRCULAR ]
-
-type tree_expansion_type = "GTK_CTREE_EXPANSION_"
-  [ `EXPAND | `EXPAND_RECURSIVE | `COLLAPSE | `COLLAPSE_RECURSIVE
-  | `TOGGLE | `TOGGLE_RECURSIVE ]
-*)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkgl_tags.var b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkgl_tags.var
deleted file mode 100644 (file)
index 57a9f73..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkgl_tags.var
+++ /dev/null
@@ -1,19 +0,0 @@
-(* $Id$ *)
-
-type visual_options = "GDK_GL_" [
-  | `USE_GL
-  | `BUFFER_SIZE
-  | `LEVEL
-  | `RGBA
-  | `DOUBLEBUFFER
-  | `STEREO
-  | `AUX_BUFFERS
-  | `RED_SIZE
-  | `GREEN_SIZE
-  | `BLUE_SIZE
-  | `ALPHA_SIZE
-  | `DEPTH_SIZE
-  | `STENCIL_SIZE
-  | `ACCUM_GREEN_SIZE
-  | `ACCUM_ALPHA_SIZE
-]

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkxmhtml_tags.var b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkxmhtml_tags.var
deleted file mode 100644 (file)
index f26206e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/gtkxmhtml_tags.var
+++ /dev/null
@@ -1,30 +0,0 @@
-(* $Id$ *)
-
-type string_direction = "TSTRING_DIRECTION_" [
-  | `R_TO_L
-  | `L_TO_R
-]
-
-type alignment = "TALIGNMENT_" [
-  | `END
-  | `CENTER
-  | `BEGINNING
-]
-
-type line_type = "LINE_" [
-  | `SOLID
-  | `DASHED
-  | `SINGLE
-  | `DOUBLE
-  | `STRIKE
-  | `UNDER
-  | `NONE "NO_LINE"
-]
-
-type dither_type = "Xm" [
-  | `QUICK
-  | `BEST
-  | `FAST
-  | `SLOW
-  | `DISABLED
-]

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/lablgl.patch b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/lablgl.patch
deleted file mode 100644 (file)
index c48de24..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/lablgl.patch
+++ /dev/null
@@ -1,112 +0,0 @@
-Index: Makefile
-===================================================================
-RCS file: /staff2/garrigue/repos/lablGL/Makefile,v
-retrieving revision 1.33
-retrieving revision 1.34
-diff -c -r1.33 -r1.34
-*** Makefile   1998/09/17 03:16:06     1.33
---- Makefile   1999/06/18 07:39:08     1.34
-***************
-*** 12,22 ****
-  OTHERLIBS=-L$(LABLTKDIR) -llabltk41 $(LIBS)
-  
-  # Files
-! MLOBJS =     raw.cmo         togl.cmo \
-               gl.cmo          glLight.cmo     glList.cmo      glMap.cmo \
-               glMat.cmo       glMisc.cmo      glPix.cmo       glClear.cmo \
-               glTex.cmo       glDraw.cmo      glFunc.cmo      gluMisc.cmo \
-               gluNurbs.cmo    gluQuadric.cmo  gluTess.cmo     gluMat.cmo
-  OPTOBJS = $(MLOBJS:.cmo=.cmx)
-  COBJS =              ml_gl.o         ml_glu.o        ml_togl.o       ml_raw.o \
-               $(TOGLDIR)/togl.o
---- 12,23 ----
-  OTHERLIBS=-L$(LABLTKDIR) -llabltk41 $(LIBS)
-  
-  # Files
-! LIBOBJS =    raw.cmo \
-               gl.cmo          glLight.cmo     glList.cmo      glMap.cmo \
-               glMat.cmo       glMisc.cmo      glPix.cmo       glClear.cmo \
-               glTex.cmo       glDraw.cmo      glFunc.cmo      gluMisc.cmo \
-               gluNurbs.cmo    gluQuadric.cmo  gluTess.cmo     gluMat.cmo
-+ MLOBJS = $(LIBOBJS)  togl.cmo
-  OPTOBJS = $(MLOBJS:.cmo=.cmx)
-  COBJS =              ml_gl.o         ml_glu.o        ml_togl.o       ml_raw.o \
-               $(TOGLDIR)/togl.o
-***************
-*** 53,60 ****
-  var2switch: var2switch.cmo
-       $(LINKER) var2switch.cmo -o $@
-  
-! lablgl.cma: $(MLOBJS)
-!      $(LIBRARIAN) -o lablgl.cma $(MLOBJS)
-  
-  lablgl.cmxa: $(OPTOBJS)
-       $(OPTLIB) -o lablgl.cmxa $(OPTOBJS)
---- 54,61 ----
-  var2switch: var2switch.cmo
-       $(LINKER) var2switch.cmo -o $@
-  
-! lablgl.cma: $(LIBOBJS)
-!      $(LIBRARIAN) -o lablgl.cma $(LIBOBJS)
-  
-  lablgl.cmxa: $(OPTOBJS)
-       $(OPTLIB) -o lablgl.cmxa $(OPTOBJS)
-***************
-*** 66,74 ****
-  $(TOGLDIR)/togl.o:
-       cd $(TOGLDIR) && $(MAKE) togl.o
-  
-! lablgltop: lablgl.cma liblablgl.a
-       olablmktop $(OLABLINC) -custom -o lablgltop \
-!              unix.cma tk41.cma lablgl.cma \
-               -cclib "-L. -llablgl -lunix $(OTHERLIBS)"
-  
-  lablgl: lablgl.in Makefile.config
---- 67,75 ----
-  $(TOGLDIR)/togl.o:
-       cd $(TOGLDIR) && $(MAKE) togl.o
-  
-! lablgltop: lablgl.cma togl.cmo liblablgl.a
-       olablmktop $(OLABLINC) -custom -o lablgltop \
-!              unix.cma tk41.cma lablgl.cma togl.cmo \
-               -cclib "-L. -llablgl -lunix $(OTHERLIBS)"
-  
-  lablgl: lablgl.in Makefile.config
-***************
-*** 107,113 ****
-       if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
-       cp $(MLOBJS:.cmo=.cmi) $(INSTALLDIR)
-       cp $(MLOBJS:.cmo=.mli) $(INSTALLDIR)
-!      cp lablgl.cma liblablgl.a $(INSTALLDIR)
-       cp lablgltop $(INSTALLDIR)
-       cp lablgl lablgllink $(BINDIR)
-       if test -f lablgl.cmxa; then : ; \
---- 108,114 ----
-       if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
-       cp $(MLOBJS:.cmo=.cmi) $(INSTALLDIR)
-       cp $(MLOBJS:.cmo=.mli) $(INSTALLDIR)
-!      cp lablgl.cma togl.cmo liblablgl.a $(INSTALLDIR)
-       cp lablgltop $(INSTALLDIR)
-       cp lablgl lablgllink $(BINDIR)
-       if test -f lablgl.cmxa; then : ; \
-Index: lablgllink.in
-===================================================================
-RCS file: /staff2/garrigue/repos/lablGL/lablgllink.in,v
-retrieving revision 1.2
-retrieving revision 1.3
-diff -c -r1.2 -r1.3
-*** lablgllink.in      1998/09/16 10:26:17     1.2
---- lablgllink.in      1999/06/18 07:39:09     1.3
-***************
-*** 1,5 ****
-  #!/bin/sh
-  
-  exec olablc -custom @INCLUDES@ -I @INSTALLDIR@ \
-!      tk41.cma lablgl.cma $* -cclib "-L@INSTALLDIR@ -llablgl" \
-       -cclib "@OTHERLIBS@"
---- 1,5 ----
-  #!/bin/sh
-  
-  exec olablc -custom @INCLUDES@ -I @INSTALLDIR@ \
-!      tk41.cma lablgl.cma togl.cmo $* -cclib "-L@INSTALLDIR@ -llablgl" \
-       -cclib "@OTHERLIBS@"

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/lablgtk.in b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/lablgtk.in
deleted file mode 100644 (file)
index 9801514..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/lablgtk.in
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/bin/sh
-
-thread="no"
-
-case $1 in
--help)
-    echo "Usage: lablgtk [-thread] <options> [script-file]"
-    echo "  -thread  use the threaded version of the toplevel"
-    ;;
--thread)
-    thread=yes
-    shift
-    ;;
-esac
-
-if test $thread = yes; then
-    toplevel="@INSTALLDIR@/lablgtktop_t -I @LIBDIR@/threads"
-else
-    toplevel=@INSTALLDIR@/lablgtktop
-fi
-
-exec $toplevel -w s \
-               -I @LABLGLDIR@ \
-               -I @INSTALLDIR@ $*

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gdk.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gdk.c
deleted file mode 100644 (file)
index 0526258..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gdk.c
+++ /dev/null
@@ -1,522 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <gdk/gdk.h>
-#ifdef _WIN32
-#include <gdk/win32/gdkwin32.h>
-#else
-#include <gdk/gdkx.h>
-#endif
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "gdk_tags.h"
-
-void ml_raise_gdk (const char *errmsg)
-{
-  static value * exn = NULL;
-  if (exn == NULL)
-      exn = caml_named_value ("gdkerror");
-  raise_with_string (*exn, (char*)errmsg);
-}
-
-#include "gdk_tags.c"
-
-Make_OptFlags_val (GdkModifier_val)
-Make_Flags_val (Event_mask_val)
-
-#define Make_test(conv) \
-value ml_test_##conv (value mask, value test) \
-{ return Val_bool (conv(mask) & Int_val(test)); }
-
-Make_test(GdkModifier_val)
-
-/* Colormap */
-
-Make_Val_final_pointer (GdkColormap, gdk_colormap_ref, gdk_colormap_unref, 0)
-ML_0 (gdk_colormap_get_system, Val_GdkColormap)
-
-/* Screen geometry */
-ML_0 (gdk_screen_width, Val_int)
-ML_0 (gdk_screen_height, Val_int)
-
-/* Visual */
-value ml_gdk_visual_get_best (value depth, value type)
-{
-     GdkVisual *vis;
-     if (type == Val_unit)
-          if (depth == Val_unit) vis = gdk_visual_get_best ();
-          else vis = gdk_visual_get_best_with_depth (Int_val(Field(depth,0)));
-     else
-          if (depth == Val_unit)
-               vis = gdk_visual_get_best_with_type
-                    (GdkVisualType_val(Field(type,0)));
-          else vis = gdk_visual_get_best_with_both
-                    (Int_val(Field(depth,0)),GdkVisualType_val(Field(type,0)));
-     if (!vis) ml_raise_gdk("Gdk.Visual.get_best");
-     return Val_GdkVisual(vis);
-}
-
-Make_Extractor (GdkVisual,GdkVisual_val,type,Val_gdkVisualType)
-Make_Extractor (GdkVisual,GdkVisual_val,depth,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,red_mask,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,red_shift,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,red_prec,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,green_mask,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,green_shift,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,green_prec,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,blue_mask,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,blue_shift,Val_int)
-Make_Extractor (GdkVisual,GdkVisual_val,blue_prec,Val_int)
-
-/* Image */
-
-Make_Val_final_pointer (GdkImage, Ignore, gdk_image_destroy, 0)
-GdkImage *GdkImage_val(value val)
-{
-    if (!Field(val,1)) ml_raise_gdk ("attempt to use destroyed GdkImage");
-    return (GdkImage*)(Field(val,1));
-}
-value ml_gdk_image_destroy (value val)
-{
-    if (Field(val,1)) gdk_image_destroy((GdkImage*)(Field(val,1)));
-    Field(val,1) = 0;
-    return Val_unit;
-}
-ML_4 (gdk_image_new_bitmap, GdkVisual_val, String_val, Int_val, Int_val,
-      Val_GdkImage)
-ML_4 (gdk_image_new, GdkImageType_val, GdkVisual_val, Int_val, Int_val,
-      Val_GdkImage)
-ML_5 (gdk_image_get, GdkWindow_val, Int_val, Int_val, Int_val, Int_val,
-      Val_GdkImage)
-ML_4 (gdk_image_put_pixel, GdkImage_val, Int_val, Int_val, Int_val, Unit)
-ML_3 (gdk_image_get_pixel, GdkImage_val, Int_val, Int_val, Val_int)
-
-/* Color */
-
-ML_2 (gdk_colormap_new, GdkVisual_val, Bool_val, Val_GdkColormap)
-
-value ml_gdk_color_white (value cmap)
-{
-    GdkColor color;
-    gdk_color_white (GdkColormap_val(cmap), &color);
-    return Val_copy(color);
-}
-    
-value ml_gdk_color_black (value cmap)
-{
-    GdkColor color;
-    gdk_color_black (GdkColormap_val(cmap), &color);
-    return Val_copy(color);
-}
-
-value ml_gdk_color_parse (char *spec)
-{
-    GdkColor color;
-    if (!gdk_color_parse (spec, &color))
-       ml_raise_gdk ("color_parse");
-    return Val_copy(color);
-}
-
-ML_2 (gdk_color_alloc, GdkColormap_val, GdkColor_val, Val_bool)
-
-value ml_GdkColor (value red, value green, value blue)
-{
-    GdkColor color;
-    color.red = Int_val(red);
-    color.green = Int_val(green);
-    color.blue = Int_val(blue);
-    color.pixel = 0;
-    return Val_copy(color);
-}
-
-Make_Extractor (GdkColor, GdkColor_val, red, Val_int)
-Make_Extractor (GdkColor, GdkColor_val, green, Val_int)
-Make_Extractor (GdkColor, GdkColor_val, blue, Val_int)
-Make_Extractor (GdkColor, GdkColor_val, pixel, Val_int)
-
-/* Rectangle */
-
-value ml_GdkRectangle (value x, value y, value width, value height)
-{
-    GdkRectangle rectangle;
-    rectangle.x = Int_val(x);
-    rectangle.y = Int_val(y);
-    rectangle.width = Int_val(width);
-    rectangle.height = Int_val(height);
-    return Val_copy(rectangle);
-}
-
-Make_Extractor (GdkRectangle, GdkRectangle_val, x, Val_int)
-Make_Extractor (GdkRectangle, GdkRectangle_val, y, Val_int)
-Make_Extractor (GdkRectangle, GdkRectangle_val, width, Val_int)
-Make_Extractor (GdkRectangle, GdkRectangle_val, height, Val_int)
-
-/* Window */
-
-Make_Val_final_pointer (GdkWindow, gdk_window_ref, gdk_window_unref, 0)
-Make_Extractor (gdk_visual_get, GdkVisual_val, depth, Val_int)
-ML_1 (gdk_window_get_visual, GdkWindow_val, Val_GdkVisual)
-ML_3 (gdk_window_set_back_pixmap, GdkWindow_val, GdkPixmap_val, Int_val, Unit)
-ML_1 (gdk_window_clear, GdkWindow_val, Unit)
-ML_0 (GDK_ROOT_PARENT, Val_GdkWindow)
-ML_1 (gdk_window_get_parent, GdkWindow_val, Val_GdkWindow)
-ML_1 (GDK_WINDOW_XWINDOW, GdkWindow_val, Val_XID)
-value ml_gdk_window_get_position (value window)
-{
-  int x, y;
-  value ret;
-
-  gdk_window_get_position (GdkWindow_val(window), &x, &y);
-  
-  ret = alloc_small (2,0);
-  Field(ret,0) = Val_int(x);
-  Field(ret,1) = Val_int(y);
-  return ret;
-}
-
-value ml_gdk_window_get_size (value window)
-{
-  int x, y;
-  value ret;
-
-  gdk_window_get_size (GdkWindow_val(window), &x, &y);
-  
-  ret = alloc_small (2,0);
-  Field(ret,0) = Val_int(x);
-  Field(ret,1) = Val_int(y);
-  return ret;
-}
-
-/* Cursor */
-
-ML_1 (gdk_cursor_new, GdkCursorType_val, Val_GdkCursor)
-ML_6 (gdk_cursor_new_from_pixmap, GdkPixmap_val, GdkPixmap_val,
-      GdkColor_val, GdkColor_val, Int_val, Int_val, Val_GdkCursor)
-ML_bc6 (ml_gdk_cursor_new_from_pixmap)
-ML_1 (gdk_cursor_destroy, GdkCursor_val, Unit)
-
-/* Pixmap */
-
-Make_Val_final_pointer (GdkPixmap, gdk_pixmap_ref, gdk_pixmap_unref, 0)
-Make_Val_final_pointer (GdkBitmap, gdk_bitmap_ref, gdk_bitmap_unref, 0)
-Make_Val_final_pointer_ext (GdkPixmap, _no_ref, Ignore, gdk_pixmap_unref, 20)
-Make_Val_final_pointer_ext (GdkBitmap, _no_ref, Ignore, gdk_bitmap_unref, 20)
-ML_4 (gdk_pixmap_new, GdkWindow_val, Int_val, Int_val, Int_val,
-      Val_GdkPixmap_no_ref)
-ML_4 (gdk_bitmap_create_from_data, GdkWindow_val,
-      String_val, Int_val, Int_val, Val_GdkBitmap_no_ref)
-ML_7 (gdk_pixmap_create_from_data, GdkWindow_val, String_val,
-      Int_val, Int_val, Int_val, GdkColor_val, GdkColor_val,
-      Val_GdkPixmap_no_ref)
-ML_bc7 (ml_gdk_pixmap_create_from_data)
-
-value ml_gdk_pixmap_colormap_create_from_xpm
-       (value window, value colormap, value transparent, char *filename)
-{
-    CAMLparam0();
-    GdkBitmap *mask;
-    CAMLlocal2(vpixmap, vmask);
-    value ret;
-
-    vpixmap = Val_GdkPixmap_no_ref
-       (gdk_pixmap_colormap_create_from_xpm
-        (GdkWindow_val(window), Option_val(colormap,GdkColormap_val,NULL),
-         &mask, Option_val(transparent,GdkColor_val,NULL), filename));
-    vmask = Val_GdkBitmap_no_ref (mask);
-
-    ret = alloc_small (2,0);
-    Field(ret,0) = vpixmap;
-    Field(ret,1) = vmask;
-    CAMLreturn(ret);
-}
-
-value ml_gdk_pixmap_colormap_create_from_xpm_d
-       (value window, value colormap, value transparent, char **data)
-{
-    CAMLparam0();
-    GdkBitmap *mask;
-    CAMLlocal2(vpixmap, vmask);
-    value ret;
-
-    vpixmap = Val_GdkPixmap_no_ref
-       (gdk_pixmap_colormap_create_from_xpm_d
-        (GdkWindow_val(window), Option_val(colormap,GdkColormap_val,NULL),
-         &mask, Option_val(transparent,GdkColor_val,NULL), data));
-    vmask = Val_GdkBitmap_no_ref (mask);
-
-    ret = alloc_small (2, 0);
-    Field(ret,0) = vpixmap;
-    Field(ret,1) = vmask;
-    CAMLreturn(ret);
-}
-
-/* Font */
-
-Make_Val_final_pointer (GdkFont, gdk_font_ref, gdk_font_unref, 0)
-Make_Val_final_pointer_ext (GdkFont, _no_ref, Ignore, gdk_font_unref, 20)
-ML_1 (gdk_font_load, String_val, Val_GdkFont_no_ref)
-ML_1 (gdk_fontset_load, String_val, Val_GdkFont_no_ref)
-ML_2 (gdk_string_width, GdkFont_val, String_val, Val_int)
-ML_2 (gdk_char_width, GdkFont_val, (gchar)Long_val, Val_int)
-ML_2 (gdk_string_height, GdkFont_val, String_val, Val_int)
-ML_2 (gdk_char_height, GdkFont_val, (gchar)Long_val, Val_int)
-ML_2 (gdk_string_measure, GdkFont_val, String_val, Val_int)
-ML_2 (gdk_char_measure, GdkFont_val, (char)Long_val, Val_int)
-Make_Extractor (GdkFont, GdkFont_val, type, Val_gdkFontType)
-Make_Extractor (GdkFont, GdkFont_val, ascent, Val_int)
-Make_Extractor (GdkFont, GdkFont_val, descent, Val_int)
-
-/* Region */
-
-#define PointArray_val(val) ((GdkPoint*)&Field(val,1))
-#define PointArrayLen_val(val) Int_val(Field(val,0))
-Make_Val_final_pointer (GdkRegion, Ignore, gdk_region_destroy, 0)
-GdkRegion *GdkRegion_val(value val)
-{
-    if (!Field(val,1)) ml_raise_gdk ("attempt to use destroyed GdkRegion");
-    return (GdkRegion*)(Field(val,1));
-}
-value ml_gdk_region_destroy (value val)
-{
-    if (Field(val,1)) gdk_region_destroy((GdkRegion*)(Field(val,1)));
-    Field(val,1) = 0;
-    return Val_unit;
-}
-ML_0 (gdk_region_new, Val_GdkRegion)
-ML_2 (gdk_region_polygon, Insert(PointArray_val(arg1)) PointArrayLen_val,
-      GdkFillRule_val, Val_GdkRegion)
-ML_2 (gdk_regions_intersect, GdkRegion_val, GdkRegion_val, Val_GdkRegion)
-ML_2 (gdk_regions_union, GdkRegion_val, GdkRegion_val, Val_GdkRegion)
-ML_2 (gdk_regions_subtract, GdkRegion_val, GdkRegion_val, Val_GdkRegion)
-ML_2 (gdk_regions_xor, GdkRegion_val, GdkRegion_val, Val_GdkRegion)
-ML_2 (gdk_region_union_with_rect, GdkRegion_val, GdkRectangle_val,
-      Val_GdkRegion)
-ML_3 (gdk_region_offset, GdkRegion_val, Int_val, Int_val, Unit)
-ML_3 (gdk_region_shrink, GdkRegion_val, Int_val, Int_val, Unit)
-ML_1 (gdk_region_empty, GdkRegion_val, Val_bool)
-ML_2 (gdk_region_equal, GdkRegion_val, GdkRegion_val, Val_bool)
-ML_3 (gdk_region_point_in, GdkRegion_val, Int_val, Int_val, Val_bool)
-ML_2 (gdk_region_rect_in, GdkRegion_val, GdkRectangle_val, Val_gdkOverlapType)
-ML_2 (gdk_region_get_clipbox, GdkRegion_val, GdkRectangle_val, Unit)
-
-
-/* GC */
-
-Make_Val_final_pointer (GdkGC, gdk_gc_ref, gdk_gc_unref, 0)
-Make_Val_final_pointer_ext (GdkGC, _no_ref, Ignore, gdk_gc_unref, 20)
-ML_1 (gdk_gc_new, GdkWindow_val, Val_GdkGC_no_ref)
-ML_2 (gdk_gc_set_foreground, GdkGC_val, GdkColor_val, Unit)
-ML_2 (gdk_gc_set_background, GdkGC_val, GdkColor_val, Unit)
-ML_2 (gdk_gc_set_font, GdkGC_val, GdkFont_val, Unit)
-ML_2 (gdk_gc_set_function, GdkGC_val, GdkFunction_val, Unit)
-ML_2 (gdk_gc_set_fill, GdkGC_val, GdkFill_val, Unit)
-ML_2 (gdk_gc_set_tile, GdkGC_val, GdkPixmap_val, Unit)
-ML_2 (gdk_gc_set_stipple, GdkGC_val, GdkPixmap_val, Unit)
-ML_3 (gdk_gc_set_ts_origin, GdkGC_val, Int_val, Int_val, Unit)
-ML_3 (gdk_gc_set_clip_origin, GdkGC_val, Int_val, Int_val, Unit)
-ML_2 (gdk_gc_set_clip_mask, GdkGC_val, GdkBitmap_val, Unit)
-ML_2 (gdk_gc_set_clip_rectangle, GdkGC_val, GdkRectangle_val, Unit)
-ML_2 (gdk_gc_set_clip_region, GdkGC_val, GdkRegion_val, Unit)
-ML_2 (gdk_gc_set_subwindow, GdkGC_val, GdkSubwindowMode_val, Unit)
-ML_2 (gdk_gc_set_exposures, GdkGC_val, Bool_val, Unit)
-ML_5 (gdk_gc_set_line_attributes, GdkGC_val, Int_val, GdkLineStyle_val,
-      GdkCapStyle_val, GdkJoinStyle_val, Unit)
-ML_2 (gdk_gc_copy, GdkGC_val, GdkGC_val, Unit)
-value ml_gdk_gc_get_values (value gc)
-{
-    CAMLparam0();
-    GdkGCValues values;
-    int i;
-    CAMLlocal2(ret, tmp);
-
-    gdk_gc_get_values (GdkGC_val(gc), &values);
-    ret = alloc (18, 0);
-    tmp = Val_copy(values.foreground); Store_field(ret, 0, tmp);
-    tmp = Val_copy(values.background); Store_field(ret, 1, tmp);
-    if (values.font) {
-        tmp = ml_some(Val_GdkFont(values.font));
-        Store_field(ret, 2, tmp);
-    }
-    Field(ret,3) = Val_gdkFunction(values.function);
-    Field(ret,4) = Val_gdkFill(values.fill);
-    if (values.tile) {
-        tmp = ml_some(Val_GdkPixmap(values.tile));
-        Store_field(ret, 5, tmp);
-    }
-    if (values.tile) {
-        tmp = ml_some(Val_GdkPixmap(values.stipple));
-        Store_field(ret, 6, tmp);
-    }
-    if (values.tile) {
-        tmp = ml_some(Val_GdkPixmap(values.clip_mask));
-        Store_field(ret, 7, tmp);
-    }
-    Field(ret,8) = Val_gdkSubwindowMode(values.subwindow_mode);
-    Field(ret,9) = Val_int(values.ts_x_origin);
-    Field(ret,10) = Val_int(values.ts_y_origin);
-    Field(ret,11) = Val_int(values.clip_x_origin);
-    Field(ret,12) = Val_int(values.clip_y_origin);
-    Field(ret,13) = Val_bool(values.graphics_exposures);
-    Field(ret,14) = Val_int(values.line_width);
-    Field(ret,15) = Val_gdkLineStyle(values.line_style);
-    Field(ret,16) = Val_gdkCapStyle(values.cap_style);
-    Field(ret,17) = Val_gdkJoinStyle(values.join_style);
-    CAMLreturn(ret);
-}
-
-/* Draw */
-
-value ml_point_array_new (value len)
-{
-    value ret = alloc (1 + Wosize_asize(Int_val(len)*sizeof(GdkPoint)),
-                      Abstract_tag);
-    Field(ret,0) = len;
-    return ret;
-}
-value ml_point_array_set (value arr, value pos, value x, value y)
-{
-    GdkPoint *pt = PointArray_val(arr) + Int_val(pos);
-    pt->x = Int_val(x);
-    pt->y = Int_val(y);
-    return Val_unit;
-}
-
-ML_4 (gdk_draw_point, GdkDrawable_val, GdkGC_val, Int_val, Int_val, Unit)
-ML_6 (gdk_draw_line, GdkDrawable_val, GdkGC_val, Int_val, Int_val,
-      Int_val, Int_val, Unit)
-ML_bc6 (ml_gdk_draw_line)
-ML_7 (gdk_draw_rectangle, GdkDrawable_val, GdkGC_val, Bool_val,
-      Int_val, Int_val, Int_val, Int_val, Unit)
-ML_bc7 (ml_gdk_draw_rectangle)
-ML_9 (gdk_draw_arc, GdkDrawable_val, GdkGC_val, Bool_val, Int_val, Int_val,
-      Int_val, Int_val, Int_val, Int_val, Unit)
-ML_bc9 (ml_gdk_draw_arc)
-ML_4 (gdk_draw_polygon, GdkDrawable_val, GdkGC_val, Bool_val,
-      Insert(PointArray_val(arg4)) PointArrayLen_val, Unit)
-ML_6 (gdk_draw_string, GdkDrawable_val, GdkFont_val, GdkGC_val, Int_val, Int_val, String_val, Unit)
-ML_bc6 (ml_gdk_draw_string)
-
-ML_9 (gdk_draw_image, GdkDrawable_val, GdkGC_val, GdkImage_val, Int_val, Int_val, Int_val, Int_val, Int_val, Int_val, Unit)
-ML_bc9 (ml_gdk_draw_image)
-
-/* RGB */
-
-ML_0 (gdk_rgb_init, Unit)
-ML_0 (gdk_rgb_get_visual, Val_GdkVisual)
-ML_0 (gdk_rgb_get_cmap, Val_GdkColormap)
-
-/* Events */
-
-/* Have a major collection every 1000 events */
-Make_Val_final_pointer (GdkEvent, Ignore, gdk_event_free, 1)
-ML_1 (gdk_event_copy, GdkEvent_val, Val_GdkEvent)
-
-value ml_gdk_event_new (value event_type)
-{
-    GdkEvent event;
-    memset (&event, 0, sizeof(GdkEvent));
-    event.type = GdkEventType_val(event_type);
-    event.any.send_event = TRUE;
-    return Val_copy(event);
-}
-
-#define GdkEvent_arg(type) (GdkEvent##type*)GdkEvent_val
-
-Make_Extractor (GdkEventAny, GdkEvent_arg(Any), type, Val_gdkEventType)
-Make_Extractor (GdkEventAny, GdkEvent_arg(Any), window, Val_GdkWindow)
-Make_Extractor (GdkEventAny, GdkEvent_arg(Any), send_event, Val_bool)
-Make_Setter (gdk_event_set, GdkEvent_arg(Any), GdkEventType_val, type)
-Make_Setter (gdk_event_set, GdkEvent_arg(Any), GdkWindow_val, window)
-
-Make_Extractor (GdkEventExpose, GdkEvent_arg(Expose), area, Val_copy)
-Make_Extractor (GdkEventExpose, GdkEvent_arg(Expose), count, Val_int)
-
-Make_Extractor (GdkEventVisibility, GdkEvent_arg(Visibility), state,
-               Val_gdkVisibilityState)
-
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), time, Val_int)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), x, copy_double)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), y, copy_double)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), pressure, copy_double)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), xtilt, copy_double)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), ytilt, copy_double)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), state, Val_int)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), is_hint, Val_int)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), source, Val_gdkInputSource)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), deviceid, Val_int)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), x_root, copy_double)
-Make_Extractor (GdkEventMotion, GdkEvent_arg(Motion), y_root, copy_double)
-
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), time, Val_int)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), x, copy_double)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), y, copy_double)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), pressure, copy_double)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), xtilt, copy_double)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), ytilt, copy_double)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), state, Val_int)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), button, Val_int)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), source, Val_gdkInputSource)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), deviceid, Val_int)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), x_root, copy_double)
-Make_Extractor (GdkEventButton, GdkEvent_arg(Button), y_root, copy_double)
-
-Make_Setter (gdk_event_button_set, GdkEvent_arg(Button), Int_val, button)
-
-Make_Extractor (GdkEventKey, GdkEvent_arg(Key), time, Val_int)
-Make_Extractor (GdkEventKey, GdkEvent_arg(Key), state, Val_int)
-Make_Extractor (GdkEventKey, GdkEvent_arg(Key), keyval, Val_int)
-Make_Extractor (GdkEventKey, GdkEvent_arg(Key), string, Val_string)
-
-Make_Extractor (GdkEventCrossing, GdkEvent_arg(Crossing), subwindow,
-               Val_GdkWindow)
-Make_Extractor (GdkEventCrossing, GdkEvent_arg(Crossing), detail,
-               Val_gdkNotifyType)
-
-Make_Extractor (GdkEventFocus, GdkEvent_arg(Focus), in, Val_int)
-
-Make_Extractor (GdkEventConfigure, GdkEvent_arg(Configure), x, Val_int)
-Make_Extractor (GdkEventConfigure, GdkEvent_arg(Configure), y, Val_int)
-Make_Extractor (GdkEventConfigure, GdkEvent_arg(Configure), width, Val_int)
-Make_Extractor (GdkEventConfigure, GdkEvent_arg(Configure), height, Val_int)
-
-Make_Extractor (GdkEventProperty, GdkEvent_arg(Property), atom, Val_int)
-Make_Extractor (GdkEventProperty, GdkEvent_arg(Property), time, Val_int)
-Make_Extractor (GdkEventProperty, GdkEvent_arg(Property), state, Val_int)
-
-Make_Extractor (GdkEventSelection, GdkEvent_arg(Selection), selection, Val_int)
-Make_Extractor (GdkEventSelection, GdkEvent_arg(Selection), target, Val_int)
-Make_Extractor (GdkEventSelection, GdkEvent_arg(Selection), property, Val_int)
-Make_Extractor (GdkEventSelection, GdkEvent_arg(Selection), requestor, Val_int)
-Make_Extractor (GdkEventSelection, GdkEvent_arg(Selection), time, Val_int)
-
-Make_Extractor (GdkEventProximity, GdkEvent_arg(Proximity), time, Val_int)
-Make_Extractor (GdkEventProximity, GdkEvent_arg(Proximity), source,
-               Val_gdkInputSource)
-Make_Extractor (GdkEventProximity, GdkEvent_arg(Proximity), deviceid, Val_int)
-
-/* DnD */
-Make_Val_final_pointer (GdkDragContext, gdk_drag_context_ref, gdk_drag_context_unref, 0)
-Make_Flags_val (GdkDragAction_val)
-ML_3 (gdk_drag_status, GdkDragContext_val, Flags_GdkDragAction_val, Int_val, Unit)
-Make_Extractor (GdkDragContext, GdkDragContext_val, suggested_action, Val_gdkDragAction)
-value val_int(gpointer i)
-{
-  return Val_int (GPOINTER_TO_INT(i));
-}
-value ml_GdkDragContext_targets (value c)
-{
-  GList *t;
-
-  t = (GdkDragContext_val(c))->targets;
-  return Val_GList (t, val_int);
-}
-
-/* Misc */
-ML_0 (gdk_flush, Unit)
-ML_0 (gdk_beep, Unit)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gdk.h b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gdk.h
deleted file mode 100644 (file)
index 5d699ac..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gdk.h
+++ /dev/null
@@ -1,53 +0,0 @@
-/* $Id$ */
-
-#define GdkColormap_val(val) ((GdkColormap*)Pointer_val(val))
-extern value Val_GdkColormap (GdkColormap *);
-
-#define GdkColor_val(val) ((GdkColor*)MLPointer_val(val))
-#define Val_GdkColor Val_pointer
-
-#define GdkRectangle_val(val) ((GdkRectangle*)MLPointer_val(val))
-#define Val_GdkRectangle Val_pointer
-
-#define GdkDrawable_val(val) ((GdkDrawable*)Pointer_val(val))
-
-#define GdkWindow_val(val) ((GdkWindow*)Pointer_val(val))
-extern value Val_GdkWindow (GdkWindow *);
-
-#define GdkCursor_val(val) ((GdkCursor*)Pointer_val(val))
-#define Val_GdkCursor Val_pointer
-
-#define GdkPixmap_val(val) ((GdkPixmap*)Pointer_val(val))
-extern value Val_GdkPixmap (GdkPixmap *);
-
-#define GdkBitmap_val(val) ((GdkBitmap*)Pointer_val(val))
-extern value Val_GdkBitmap (GdkBitmap *);
-
-extern GdkImage *GdkImage_val (value); /* check argument */
-extern value Val_GdkImage (GdkImage *); /* finalizer is destroy! */
-
-#define GdkFont_val(val) ((GdkFont*)Pointer_val(val))
-extern value Val_GdkFont (GdkFont *);
-
-extern GdkRegion *GdkRegion_val (value); /* check argument */
-extern value Val_GdkRegion (GdkRegion *); /* finalizer is destroy! */
-
-#define GdkGC_val(val) ((GdkGC*)Pointer_val(val))
-extern value Val_GdkGC (GdkGC *);
-
-#define GdkEvent_val (GdkEvent*)MLPointer_val
-
-#define GdkVisual_val(val) ((GdkVisual*) val)
-#define Val_GdkVisual(visual) ((value) visual)
-
-#define Val_XID copy_int32
-#define XID_val Int32_val
-
-extern int OptFlags_GdkModifier_val (value);
-extern int Flags_Event_mask_val (value);
-extern lookup_info ml_table_extension_events[];
-#define Extension_events_val(key) ml_lookup_to_c (ml_table_extension_events, key)
-
-#define GdkDragContext_val(val) ((GdkDragContext*)Pointer_val(val))
-extern value Val_GdkDragContext (GdkDragContext *);
-extern int Flags_GdkDragAction_val (value);

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_glib.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_glib.c
deleted file mode 100644 (file)
index a93bb58..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_glib.c
+++ /dev/null
@@ -1,143 +0,0 @@
-/* $Id$ */
-
-#include <glib.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-
-value copy_string_and_free (char *str)
-{
-    value res;
-    res = copy_string_check (str);
-    g_free (str);
-    return res;
-}
-
-value Val_GList (GList *list, value (*func)(gpointer))
-{
-    value new_cell, result, last_cell, cell;
-
-    if (list == NULL) return Val_unit;
-
-    last_cell = cell = Val_unit;
-    result = func(list->data);
-    Begin_roots3 (last_cell, cell, result);
-    cell = last_cell = alloc_small(2,0);
-    Field(cell,0) = result;
-    Field(cell,1) = Val_unit;
-    list = list->next;
-    while (list != NULL) {
-       result = func(list->data);
-       new_cell = alloc_small(2,0);
-       Field(new_cell,0) = result;
-       Field(new_cell,1) = Val_unit;
-       modify(&Field(last_cell,1), new_cell);
-       last_cell = new_cell;
-       list = list->next;
-    }
-    End_roots ();
-    return cell;
-}
-
-GList *GList_val (value list, gpointer (*func)(value))
-{
-    CAMLparam1(list);
-    GList *res = NULL;
-    if (list == Val_unit) CAMLreturn (res);
-    for (; Is_block(list); list = Field(list,1))
-      res = g_list_append (res, func(Field(list,0)));
-    CAMLreturn (res);
-}
-
-static value ml_warning_handler = 0L;
-
-static void ml_warning_wrapper (const gchar *msg)
-{
-    value arg = copy_string ((char*)msg);
-    callback (ml_warning_handler, arg);
-}
-    
-value ml_g_set_warning_handler (value clos)
-{
-    value old_handler = ml_warning_handler ? ml_warning_handler : clos;
-    if (!ml_warning_handler) register_global_root (&ml_warning_handler);
-    g_set_warning_handler (ml_warning_wrapper);
-    ml_warning_handler = clos;
-    return old_handler;
-}
-
-static value ml_print_handler = 0L;
-
-static void ml_print_wrapper (const gchar *msg)
-{
-    value arg = copy_string ((char*)msg);
-    callback (ml_print_handler, arg);
-}
-    
-value ml_g_set_print_handler (value clos)
-{
-    value old_handler = ml_print_handler ? ml_print_handler : clos;
-    if (!ml_print_handler) register_global_root (&ml_print_handler);
-    g_set_print_handler (ml_print_wrapper);
-    ml_print_handler = clos;
-    return old_handler;
-}
-
-value ml_get_null (value unit) { return 0L; }
-
-#define GMainLoop_val(val) ((GMainLoop*)Addr_val(val))
-ML_1 (g_main_new, Bool_val, Val_addr)
-ML_1 (g_main_iteration, Bool_val, Val_bool)
-ML_0 (g_main_pending, Val_bool)
-ML_1 (g_main_is_running, GMainLoop_val, Val_bool)
-ML_1 (g_main_quit, GMainLoop_val, Unit)
-ML_1 (g_main_destroy, GMainLoop_val, Unit)
-
-/*
-value Val_GSList (GSList *list, value (*func)(gpointer))
-{
-    value new_cell, result, last_cell, cell;
-
-    if (list == NULL) return Val_unit;
-
-    last_cell = cell = Val_unit;
-    result = func(list->data);
-    Begin_roots3 (last_cell, cell, result);
-    cell = last_cell = alloc_tuple (2);
-    Field(cell,0) = result;
-    Field(cell,1) = Val_unit;
-    list = list->next;
-    while (list != NULL) {
-       result = func(list->data);
-       new_cell = alloc_tuple(2);
-       Field(new_cell,0) = result;
-       Field(new_cell,1) = Val_unit;
-       modify(&Field(last_cell,1), new_cell);
-       last_cell = new_cell;
-       list = list->next;
-    }
-    End_roots ();
-    return cell;
-}
-
-GSList *GSList_val (value list, gpointer (*func)(value))
-{
-    GSList *res = NULL;
-    GSList **current = &res;
-    value cell = list;
-    if (list == Val_unit) return res;
-    Begin_root (cell);
-    while (cell != Val_unit) {
-       *current = g_slist_alloc ();
-       (*current)->data = func(Field(cell,0));
-       cell = Field(cell,1);
-       current = &(*current)->next;
-    }
-    End_roots ();
-    return res;
-}
-*/

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_glib.h b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_glib.h
deleted file mode 100644 (file)
index 10f31ca..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_glib.h
+++ /dev/null
@@ -1,10 +0,0 @@
-/* $Id$ */
-
-value copy_string_and_free (char *str); /* for g_strings only */
-value Val_GList (GList *list, value (*func)(gpointer));
-GList *GList_val (value list, gpointer (*func)(value));
-
-/*
-value Val_GSList (GSList *list, value (*func)(gpointer));
-GSList *GSList_val (value list, gpointer (*func)(value));
-*/

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtk.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtk.c
deleted file mode 100644 (file)
index 271f094..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtk.c
+++ /dev/null
@@ -1,1013 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "ml_gtk.h"
-#include "gtk_tags.h"
-
-void ml_raise_gtk (const char *errmsg)
-{
-  static value * exn = NULL;
-  if (exn == NULL)
-      exn = caml_named_value ("gtkerror");
-  raise_with_string (*exn, (char*)errmsg);
-}
-
-/* conversion functions */
-
-#include "gtk_tags.c"
-
-ML_1 (Val_direction_type, Int_val, Id)
-ML_1 (Val_orientation, Int_val, Id)
-ML_1 (Val_toolbar_style, Int_val, Id)
-ML_1 (Val_state_type, Int_val, Id)
-ML_1 (Val_scroll_type, Int_val, Id)
-
-static Make_Flags_val (Dest_defaults_val)
-static Make_Flags_val (Target_flags_val)
-static Make_Flags_val (Font_type_val)
-
-/* gtkobject.h */
-
-Make_Val_final_pointer(GtkObject, gtk_object_ref, gtk_object_unref, 0)
-
-#define gtk_object_ref_and_sink(w) (gtk_object_ref(w), gtk_object_sink(w))
-Make_Val_final_pointer_ext(GtkObject, _sink , gtk_object_ref_and_sink,
-                           gtk_object_unref, 20)
-
-/* gtkaccelgroup.h */
-
-Make_Val_final_pointer (GtkAccelGroup, gtk_accel_group_ref,
-                       gtk_accel_group_unref, 0)
-Make_Val_final_pointer_ext (GtkAccelGroup, _no_ref, Ignore,
-                            gtk_accel_group_unref, 20)
-Make_OptFlags_val (Accel_flag_val)
-
-#define Signal_name_val(val) String_val(Field(val,0))
-
-ML_0 (gtk_accel_group_new, Val_GtkAccelGroup_no_ref)
-ML_0 (gtk_accel_group_get_default, Val_GtkAccelGroup)
-ML_3 (gtk_accel_group_activate, GtkAccelGroup_val, Int_val,
-      OptFlags_GdkModifier_val, Val_bool)
-ML_3 (gtk_accel_groups_activate, GtkObject_val, Int_val,
-      OptFlags_GdkModifier_val, Val_bool)
-ML_2 (gtk_accel_group_attach, GtkAccelGroup_val, GtkObject_val, Unit)
-ML_2 (gtk_accel_group_detach, GtkAccelGroup_val, GtkObject_val, Unit)
-ML_1 (gtk_accel_group_lock, GtkAccelGroup_val, Unit)
-ML_1 (gtk_accel_group_unlock, GtkAccelGroup_val, Unit)
-ML_3 (gtk_accel_group_lock_entry, GtkAccelGroup_val, Int_val,
-      OptFlags_GdkModifier_val, Unit)
-ML_3 (gtk_accel_group_unlock_entry, GtkAccelGroup_val, Int_val,
-      OptFlags_GdkModifier_val, Unit)
-ML_6 (gtk_accel_group_add, GtkAccelGroup_val, Int_val,
-      OptFlags_GdkModifier_val, OptFlags_Accel_flag_val,
-      GtkObject_val, Signal_name_val, Unit)
-ML_bc6 (ml_gtk_accel_group_add)
-ML_4 (gtk_accel_group_remove, GtkAccelGroup_val, Int_val,
-      OptFlags_GdkModifier_val, GtkObject_val, Unit)
-ML_2 (gtk_accelerator_valid, Int_val, OptFlags_GdkModifier_val, Val_bool)
-ML_1 (gtk_accelerator_set_default_mod_mask, OptFlags_GdkModifier_val, Unit)
-
-/* gtkstyle.h */
-
-Make_Val_final_pointer (GtkStyle, gtk_style_ref, gtk_style_unref, 0)
-Make_Val_final_pointer_ext (GtkStyle, _no_ref, Ignore, gtk_style_unref, 20)
-ML_0 (gtk_style_new, Val_GtkStyle_no_ref)
-ML_1 (gtk_style_copy, GtkStyle_val, Val_GtkStyle_no_ref)
-ML_2 (gtk_style_attach, GtkStyle_val, GdkWindow_val, Val_GtkStyle)
-ML_1 (gtk_style_detach, GtkStyle_val, Unit)
-ML_3 (gtk_style_set_background, GtkStyle_val, GdkWindow_val, State_type_val, Unit)
-ML_6 (gtk_draw_hline, GtkStyle_val, GdkWindow_val, State_type_val,
-      Int_val, Int_val, Int_val, Unit)
-ML_bc6 (ml_gtk_draw_hline)
-ML_6 (gtk_draw_vline, GtkStyle_val, GdkWindow_val, State_type_val,
-      Int_val, Int_val, Int_val, Unit)
-ML_bc6 (ml_gtk_draw_vline)
-Make_Array_Extractor (gtk_style_get, GtkStyle_val, State_type_val,  bg, Val_copy)
-Make_Array_Setter (gtk_style_set, GtkStyle_val, State_type_val, *GdkColor_val, bg)
-Make_Extractor (gtk_style_get, GtkStyle_val, colormap, Val_GdkColormap)
-Make_Extractor (gtk_style_get, GtkStyle_val, depth, Val_int)
-Make_Extractor (gtk_style_get, GtkStyle_val, font, Val_GdkFont)
-/* Make_Setter (gtk_style_set, GtkStyle_val, GdkFont_val, font) */
-value ml_gtk_style_set_font (value st, value font)
-{
-    GtkStyle *style = GtkStyle_val(st);
-    if (style->font) gdk_font_unref(style->font);
-    style->font = GdkFont_val(font);
-    gdk_font_ref(style->font);
-    return Val_unit;
-}   
-Make_Array_Extractor (gtk_style_get, GtkStyle_val, State_type_val,  dark_gc, Val_GdkGC)
-Make_Array_Extractor (gtk_style_get, GtkStyle_val, State_type_val,  light_gc, Val_GdkGC)
-
-/* gtktypeutils.h */
-
-ML_1 (gtk_type_name, Int_val, Val_string)
-ML_1 (gtk_type_from_name, String_val, Val_int)
-ML_1 (gtk_type_parent, Int_val, Val_int)
-ML_1 (gtk_type_class, Int_val, (value))
-ML_1 (gtk_type_parent_class, Int_val, (value))
-ML_2 (gtk_type_is_a, Int_val, Int_val, Val_bool)
-value ml_gtk_type_fundamental (value type)
-{
-    return Val_fundamental_type (GTK_FUNDAMENTAL_TYPE (Int_val(type)));
-}
-
-/* gtkobject.h */
-
-/* ML_1 (GTK_OBJECT_TYPE, GtkObject_val, Val_int) */
-value ml_gtk_object_type (value val)
-{
-    return Val_int (GtkObject_val(val)->klass->type);
-}
-
-ML_1 (gtk_object_destroy, GtkObject_val, Unit)
-ML_1 (gtk_object_ref, GtkObject_val, Unit)
-ML_1 (gtk_object_unref, GtkObject_val, Unit)
-ML_1 (gtk_object_sink, GtkObject_val, Unit)
-
-Make_Extractor (gtk_class,(GtkObjectClass *),type,Val_int)
-
-/* gtkdata.h */
-
-/* gtkadjustment.h */
-
-ML_6 (gtk_adjustment_new, Float_val, Float_val, Float_val, Float_val,
-      Float_val, Float_val, Val_GtkObject_sink)
-ML_bc6 (ml_gtk_adjustment_new)
-ML_2 (gtk_adjustment_set_value, GtkAdjustment_val, Float_val, Unit)
-ML_3 (gtk_adjustment_clamp_page, GtkAdjustment_val,
-      Float_val, Float_val, Unit)
-Make_Extractor (gtk_adjustment_get, GtkAdjustment_val, lower, copy_double)
-Make_Extractor (gtk_adjustment_get, GtkAdjustment_val, upper, copy_double)
-Make_Extractor (gtk_adjustment_get, GtkAdjustment_val, value, copy_double)
-Make_Extractor (gtk_adjustment_get, GtkAdjustment_val, step_increment,
-               copy_double)
-Make_Extractor (gtk_adjustment_get, GtkAdjustment_val, page_increment,
-               copy_double)
-Make_Extractor (gtk_adjustment_get, GtkAdjustment_val, page_size, copy_double)
-
-/* gtktooltips.h */
-
-#define GtkTooltips_val(val) check_cast(GTK_TOOLTIPS,val)
-ML_0 (gtk_tooltips_new, Val_GtkAny)
-ML_1 (gtk_tooltips_enable, GtkTooltips_val, Unit)
-ML_1 (gtk_tooltips_disable, GtkTooltips_val, Unit)
-ML_2 (gtk_tooltips_set_delay, GtkTooltips_val, Int_val, Unit)
-ML_4 (gtk_tooltips_set_tip, GtkTooltips_val, GtkWidget_val,
-      String_option_val, String_option_val, Unit)
-ML_3 (gtk_tooltips_set_colors, GtkTooltips_val,
-      Option_val(arg2, GdkColor_val, NULL) Ignore,
-      Option_val(arg3, GdkColor_val, NULL) Ignore,
-      Unit)
-
-/* gtkwidget.h */
-
-value ml_gtk_widget_set_can_default (value val, value bool)
-{
-    GtkWidget *w = GtkWidget_val(val);
-    guint32 saved_flags = GTK_WIDGET_FLAGS(w);
-    if (Bool_val(bool)) GTK_WIDGET_SET_FLAGS(w, GTK_CAN_DEFAULT);
-    else GTK_WIDGET_UNSET_FLAGS(w, GTK_CAN_DEFAULT);
-    if (saved_flags != GTK_WIDGET_FLAGS(w))
-       gtk_widget_queue_resize (w);
-    return Val_unit;
-}
-value ml_gtk_widget_set_can_focus (value val, value bool)
-{
-    GtkWidget *w = GtkWidget_val(val);
-    guint32 saved_flags = GTK_WIDGET_FLAGS(w);
-    if (Bool_val(bool)) GTK_WIDGET_SET_FLAGS(w, GTK_CAN_FOCUS);
-    else GTK_WIDGET_UNSET_FLAGS(w, GTK_CAN_FOCUS);
-    if (saved_flags != GTK_WIDGET_FLAGS(w))
-       gtk_widget_queue_resize (w);
-    return Val_unit;
-}
-ML_1 (gtk_widget_unparent, GtkWidget_val, Unit)
-ML_1 (gtk_widget_show, GtkWidget_val, Unit)
-ML_1 (gtk_widget_show_now, GtkWidget_val, Unit)
-ML_1 (gtk_widget_show_all, GtkWidget_val, Unit)
-ML_1 (gtk_widget_hide, GtkWidget_val, Unit)
-ML_1 (gtk_widget_hide_all, GtkWidget_val, Unit)
-ML_1 (gtk_widget_map, GtkWidget_val, Unit)
-ML_1 (gtk_widget_unmap, GtkWidget_val, Unit)
-ML_1 (gtk_widget_realize, GtkWidget_val, Unit)
-ML_1 (gtk_widget_unrealize, GtkWidget_val, Unit)
-ML_1 (gtk_widget_queue_draw, GtkWidget_val, Unit)
-ML_1 (gtk_widget_queue_resize, GtkWidget_val, Unit)
-ML_2 (gtk_widget_draw, GtkWidget_val,
-      Option_val(arg2,GdkRectangle_val,NULL) Ignore, Unit)
-ML_1 (gtk_widget_draw_focus, GtkWidget_val, Unit)
-ML_1 (gtk_widget_draw_default, GtkWidget_val, Unit)
-/* ML_1 (gtk_widget_draw_children, GtkWidget_val, Unit) */
-ML_2 (gtk_widget_event, GtkWidget_val, GdkEvent_val, Val_bool)
-ML_1 (gtk_widget_activate, GtkWidget_val, Val_bool)
-ML_2 (gtk_widget_reparent, GtkWidget_val, GtkWidget_val, Unit)
-ML_3 (gtk_widget_popup, GtkWidget_val, Int_val, Int_val, Unit)
-value ml_gtk_widget_intersect (value w, value area)
-{
-    GdkRectangle inter;
-    if (gtk_widget_intersect(GtkWidget_val(w), GdkRectangle_val(area), &inter))
-       return ml_some (Val_copy (inter));
-    return Val_unit;
-}
-/* ML_1 (gtk_widget_basic, GtkWidget_val, Val_bool) */
-ML_1 (gtk_widget_grab_focus, GtkWidget_val, Unit)
-ML_1 (gtk_widget_grab_default, GtkWidget_val, Unit)
-ML_2 (gtk_widget_set_name, GtkWidget_val, String_val, Unit)
-ML_1 (gtk_widget_get_name, GtkWidget_val, Val_string)
-ML_2 (gtk_widget_set_state, GtkWidget_val, State_type_val, Unit)
-ML_2 (gtk_widget_set_sensitive, GtkWidget_val, Bool_val, Unit)
-ML_3 (gtk_widget_set_uposition, GtkWidget_val, Int_val, Int_val, Unit)
-ML_3 (gtk_widget_set_usize, GtkWidget_val, Int_val, Int_val, Unit)
-ML_2 (gtk_widget_add_events, GtkWidget_val, Flags_Event_mask_val, Unit)
-ML_2 (gtk_widget_set_events, GtkWidget_val, Flags_Event_mask_val, Unit)
-ML_2 (gtk_widget_set_extension_events, GtkWidget_val, Extension_events_val,
-      Unit)
-ML_1 (gtk_widget_get_toplevel, GtkWidget_val, Val_GtkWidget)
-ML_2 (gtk_widget_get_ancestor, GtkWidget_val, Int_val, Val_GtkWidget)
-ML_1 (gtk_widget_get_colormap, GtkWidget_val, Val_GdkColormap)
-ML_1 (gtk_widget_get_visual, GtkWidget_val, (value))
-value ml_gtk_widget_get_pointer (value w)
-{
-    int x,y;
-    value ret;
-    gtk_widget_get_pointer (GtkWidget_val(w), &x, &y);
-    ret = alloc_small (2,0);
-    Field(ret,0) = Val_int(x);
-    Field(ret,1) = Val_int(y);
-    return ret;
-}
-ML_2 (gtk_widget_is_ancestor, GtkWidget_val, GtkWidget_val, Val_bool)
-/* ML_2 (gtk_widget_is_child, GtkWidget_val, GtkWidget_val, Val_bool) */
-ML_2 (gtk_widget_set_style, GtkWidget_val, GtkStyle_val, Unit)
-ML_1 (gtk_widget_set_rc_style, GtkWidget_val, Unit)
-ML_1 (gtk_widget_ensure_style, GtkWidget_val, Unit)
-ML_1 (gtk_widget_get_style, GtkWidget_val, Val_GtkStyle)
-ML_1 (gtk_widget_restore_default_style, GtkWidget_val, Unit)
-
-ML_6 (gtk_widget_add_accelerator, GtkWidget_val, Signal_name_val,
-      GtkAccelGroup_val, Char_val, OptFlags_GdkModifier_val,
-      OptFlags_Accel_flag_val, Unit)
-ML_bc6 (ml_gtk_widget_add_accelerator)
-ML_4 (gtk_widget_remove_accelerator, GtkWidget_val, GtkAccelGroup_val,
-      Char_val, OptFlags_GdkModifier_val, Unit)
-ML_1 (gtk_widget_lock_accelerators, GtkWidget_val, Unit)
-ML_1 (gtk_widget_unlock_accelerators, GtkWidget_val, Unit)
-ML_1 (gtk_widget_accelerators_locked, GtkWidget_val, Val_bool)
-
-ML_1 (GTK_WIDGET_VISIBLE, GtkWidget_val, Val_bool)
-ML_1 (GTK_WIDGET_HAS_FOCUS, GtkWidget_val, Val_bool)
-
-Make_Extractor (GtkWidget, GtkWidget_val, window, Val_GdkWindow)
-Make_Extractor (gtk_widget, GtkWidget_val, parent, Val_GtkWidget)
-static value Val_GtkAllocation (GtkAllocation allocation)
-{
-    value ret = alloc_small (4, 0);
-    Field(ret,0) = Val_int(allocation.x);
-    Field(ret,1) = Val_int(allocation.y);
-    Field(ret,2) = Val_int(allocation.width);
-    Field(ret,3) = Val_int(allocation.height);
-    return ret;
-}
-Make_Extractor (gtk_widget, GtkWidget_val, allocation, Val_GtkAllocation)
-/*
-#define GtkAllocation_val(val) ((GtkAllocation*)Pointer_val(val))
-Make_Extractor (gtk_allocation, GtkAllocation_val, x, Val_int)
-Make_Extractor (gtk_allocation, GtkAllocation_val, y, Val_int)
-Make_Extractor (gtk_allocation, GtkAllocation_val, width, Val_int)
-Make_Extractor (gtk_allocation, GtkAllocation_val, height, Val_int)
-*/
-
-ML_2 (gtk_widget_set_app_paintable, GtkWidget_val, Bool_val, Unit)
-
-ML_2 (gtk_widget_set_visual, GtkWidget_val, GdkVisual_val, Unit)
-ML_2 (gtk_widget_set_colormap, GtkWidget_val, GdkColormap_val, Unit)
-ML_1 (gtk_widget_set_default_visual, GdkVisual_val, Unit)
-ML_1 (gtk_widget_set_default_colormap, GdkColormap_val, Unit)
-ML_0 (gtk_widget_get_default_visual, Val_GdkVisual)
-ML_0 (gtk_widget_get_default_colormap, Val_GdkColormap)
-ML_1 (gtk_widget_push_visual, GdkVisual_val, Unit)
-ML_1 (gtk_widget_push_colormap, GdkColormap_val, Unit)
-ML_0 (gtk_widget_pop_visual, Unit)
-ML_0 (gtk_widget_pop_colormap, Unit)
-
-/* gtkdnd.h */
-
-value ml_gtk_drag_dest_set (value w, value f, value t, value a)
-{
-  GtkTargetEntry *targets = (GtkTargetEntry *)Val_unit;
-  int n_targets, i;
-  
-  CAMLparam4 (w,f,t,a);
-  n_targets = Wosize_val(t);
-  if (n_targets)
-      targets = (GtkTargetEntry *)
-         alloc (Wosize_asize(n_targets * sizeof(GtkTargetEntry)),
-                Abstract_tag);
-  for (i=0; i<n_targets; i++) {
-    targets[i].target = String_val(Field(Field(t, i), 0));
-    targets[i].flags = Flags_Target_flags_val(Field(Field(t, i), 1));
-    targets[i].info = Int_val(Field(Field(t, i), 2));
-  }
-  gtk_drag_dest_set (GtkWidget_val(w), Flags_Dest_defaults_val(f),
-                    targets, n_targets, Flags_GdkDragAction_val(a));
-  CAMLreturn(Val_unit);
-}
-ML_1 (gtk_drag_dest_unset, GtkWidget_val, Unit)
-ML_4 (gtk_drag_finish, GdkDragContext_val, Bool_val, Bool_val, Int_val, Unit)
-ML_4 (gtk_drag_get_data, GtkWidget_val, GdkDragContext_val, Int_val, Int_val, Unit)
-ML_1 (gtk_drag_get_source_widget, GdkDragContext_val, Val_GtkWidget)
-ML_1 (gtk_drag_highlight, GtkWidget_val, Unit)
-ML_1 (gtk_drag_unhighlight, GtkWidget_val, Unit)
-ML_4 (gtk_drag_set_icon_widget, GdkDragContext_val, GtkWidget_val,
-      Int_val, Int_val, Unit)
-ML_6 (gtk_drag_set_icon_pixmap, GdkDragContext_val, GdkColormap_val,
-      GdkPixmap_val, Option_val(arg4, GdkBitmap_val, NULL) Ignore,
-      Int_val, Int_val, Unit)
-ML_bc6 (ml_gtk_drag_set_icon_pixmap)
-ML_1 (gtk_drag_set_icon_default, GdkDragContext_val, Unit)
-ML_5 (gtk_drag_set_default_icon, GdkColormap_val,
-      GdkPixmap_val, Option_val(arg3, GdkBitmap_val, NULL) Ignore,
-      Int_val, Int_val, Unit)
-value ml_gtk_drag_source_set (value w, value m, value t, value a)
-{
-  GtkTargetEntry *targets = (GtkTargetEntry *)Val_unit;
-  int n_targets, i;
-  CAMLparam4 (w,m,t,a);
-  
-  n_targets = Wosize_val(t);
-  if (n_targets)
-      targets = (GtkTargetEntry *)
-         alloc (Wosize_asize(n_targets * sizeof(GtkTargetEntry)),
-                Abstract_tag);
-  for (i=0; i<n_targets; i++) {
-    targets[i].target = String_val(Field(Field(t, i), 0));
-    targets[i].flags = Flags_Target_flags_val(Field(Field(t, i), 1));
-    targets[i].info = Int_val(Field(Field(t, i), 2));
-  }
-  gtk_drag_source_set (GtkWidget_val(w), OptFlags_GdkModifier_val(m),
-                      targets, n_targets, Flags_GdkDragAction_val(a));
-  CAMLreturn(Val_unit);
-}
-ML_4 (gtk_drag_source_set_icon, GtkWidget_val, GdkColormap_val,
-      GdkPixmap_val, Option_val(arg4, GdkBitmap_val, NULL) Ignore, Unit)
-ML_1 (gtk_drag_source_unset, GtkWidget_val, Unit)
-
-/* gtkwidget.h / gtkselection.h */
-
-#define GtkSelectionData_val(val) ((GtkSelectionData *)Pointer_val(val))
-
-Make_Extractor (gtk_selection_data, GtkSelectionData_val, selection, Val_int)
-Make_Extractor (gtk_selection_data, GtkSelectionData_val, target, Val_int)
-Make_Extractor (gtk_selection_data, GtkSelectionData_val, type, Val_int)
-Make_Extractor (gtk_selection_data, GtkSelectionData_val, format, Val_int)
-value ml_gtk_selection_data_get_data (value val)
-{
-    value ret;
-    GtkSelectionData *data = GtkSelectionData_val(val);
-
-    if (data->length < 0) ml_raise_null_pointer();
-    ret = alloc_string (data->length);
-    if (data->length) memcpy ((void*)ret, data->data, data->length);
-    return ret;
-}
-
-ML_4 (gtk_selection_data_set, GtkSelectionData_val, Int_val, Int_val,
-      Insert((guchar*)String_option_val(arg4))
-      Option_val(arg4, string_length, -1) Ignore,
-      Unit)
-
-/* gtkcontainer.h */
-
-#define GtkContainer_val(val) check_cast(GTK_CONTAINER,val)
-ML_2 (gtk_container_set_border_width, GtkContainer_val, Int_val, Unit)
-ML_2 (gtk_container_set_resize_mode, GtkContainer_val, Resize_mode_val, Unit)
-ML_2 (gtk_container_add, GtkContainer_val, GtkWidget_val, Unit)
-ML_2 (gtk_container_remove, GtkContainer_val, GtkWidget_val, Unit)
-static void ml_gtk_simple_callback (GtkWidget *w, gpointer data)
-{
-    value val, *clos = (value*)data;
-    val = Val_GtkWidget(w);
-    callback (*clos, val);
-}
-value ml_gtk_container_foreach (value w, value clos)
-{
-    CAMLparam1(clos);
-    gtk_container_foreach (GtkContainer_val(w), ml_gtk_simple_callback,
-                          &clos);
-    CAMLreturn(Val_unit);
-}
-ML_1 (gtk_container_register_toplevel, GtkContainer_val, Unit)
-ML_1 (gtk_container_unregister_toplevel, GtkContainer_val, Unit)
-ML_2 (gtk_container_focus, GtkContainer_val, Direction_type_val, Val_bool)
-ML_2 (gtk_container_set_focus_child, GtkContainer_val, GtkWidget_val, Unit)
-ML_2 (gtk_container_set_focus_vadjustment, GtkContainer_val,
-      GtkAdjustment_val, Unit)
-ML_2 (gtk_container_set_focus_hadjustment, GtkContainer_val,
-      GtkAdjustment_val, Unit)
-
-/* gtkdialog.h */
-
-static void window_unref (GtkObject *w)
-{
-    /* If the window exists and is still not visible, then unreference twice.
-       This should be enough to destroy it. */
-    if (!GTK_OBJECT_DESTROYED(w) && !GTK_WIDGET_VISIBLE(w))
-       gtk_object_unref (w);
-    gtk_object_unref (w);
-}
-Make_Val_final_pointer_ext (GtkObject, _window, gtk_object_ref, window_unref,
-                            20)
-#define Val_GtkWidget_window(w) Val_GtkObject_window((GtkObject*)w)
-
-#define GtkDialog_val(val) check_cast(GTK_DIALOG,val)
-ML_0 (gtk_dialog_new, Val_GtkWidget_window)
-Make_Extractor (GtkDialog, GtkDialog_val, action_area, Val_GtkWidget)
-Make_Extractor (GtkDialog, GtkDialog_val, vbox, Val_GtkWidget)
-
-/* gtkinputdialog.h */
-
-ML_0 (gtk_input_dialog_new, Val_GtkWidget_window)
-
-/* gtkfileselection.h */
-
-#define GtkFileSelection_val(val) check_cast(GTK_FILE_SELECTION,val)
-ML_1 (gtk_file_selection_new, String_val, Val_GtkWidget_window)
-ML_2 (gtk_file_selection_set_filename, GtkFileSelection_val, String_val, Unit)
-ML_1 (gtk_file_selection_get_filename, GtkFileSelection_val, Val_string)
-ML_1 (gtk_file_selection_show_fileop_buttons, GtkFileSelection_val, Unit)
-ML_1 (gtk_file_selection_hide_fileop_buttons, GtkFileSelection_val, Unit)
-Make_Extractor (gtk_file_selection_get, GtkFileSelection_val, ok_button,
-               Val_GtkWidget)
-Make_Extractor (gtk_file_selection_get, GtkFileSelection_val, cancel_button,
-               Val_GtkWidget)
-Make_Extractor (gtk_file_selection_get, GtkFileSelection_val, help_button,
-               Val_GtkWidget)
-
-/* gtkwindow.h */
-
-#define GtkWindow_val(val) check_cast(GTK_WINDOW,val)
-ML_1 (gtk_window_new, Window_type_val, Val_GtkWidget_window)
-ML_2 (gtk_window_set_title, GtkWindow_val, String_val, Unit)
-ML_3 (gtk_window_set_wmclass, GtkWindow_val, String_val, String_val, Unit)
-Make_Extractor (gtk_window_get, GtkWindow_val, wmclass_name, Val_optstring)
-Make_Extractor (gtk_window_get, GtkWindow_val, wmclass_class, Val_optstring)
-ML_2 (gtk_window_set_focus, GtkWindow_val, GtkWidget_val, Unit)
-ML_2 (gtk_window_set_default, GtkWindow_val, GtkWidget_val, Unit)
-ML_4 (gtk_window_set_policy, GtkWindow_val, Bool_val, Bool_val, Bool_val, Unit)
-Make_Extractor (gtk_window_get, GtkWindow_val, allow_shrink, Val_bool)
-Make_Extractor (gtk_window_get, GtkWindow_val, allow_grow, Val_bool)
-Make_Extractor (gtk_window_get, GtkWindow_val, auto_shrink, Val_bool)
-ML_2 (gtk_window_add_accel_group, GtkWindow_val,
-      GtkAccelGroup_val, Unit)
-ML_2 (gtk_window_remove_accel_group, GtkWindow_val,
-      GtkAccelGroup_val, Unit)
-ML_1 (gtk_window_activate_focus, GtkWindow_val, Val_bool)
-ML_1 (gtk_window_activate_default, GtkWindow_val, Val_bool)
-ML_2 (gtk_window_set_modal, GtkWindow_val, Bool_val, Unit)
-ML_3 (gtk_window_set_default_size, GtkWindow_val, Int_val, Int_val, Unit)
-ML_2 (gtk_window_set_position, GtkWindow_val, Window_position_val, Unit)
-ML_2 (gtk_window_set_transient_for, GtkWindow_val, GtkWindow_val, Unit)
-
-/* gtkcolorsel.h */
-
-#define GtkColorSelection_val(val) check_cast(GTK_COLOR_SELECTION,val)
-#define GtkColorSelectionDialog_val(val) check_cast(GTK_COLOR_SELECTION_DIALOG,val)
-ML_0 (gtk_color_selection_new, Val_GtkWidget_sink)
-ML_2 (gtk_color_selection_set_update_policy, GtkColorSelection_val,
-      Update_type_val, Unit)
-ML_2 (gtk_color_selection_set_opacity, GtkColorSelection_val,
-      Bool_val, Unit)
-value ml_gtk_color_selection_set_color (value w, value red, value green,
-                                       value blue, value opacity)
-{
-    double color[4];
-    color[0] = Double_val(red);
-    color[1] = Double_val(green);
-    color[2] = Double_val(blue);
-    color[3] = Option_val(opacity,Double_val,0.0);
-    gtk_color_selection_set_color (GtkColorSelection_val(w), color);
-    return Val_unit;
-}
-value ml_gtk_color_selection_get_color (value w)
-{
-    value ret;
-    double color[4];
-    color[3] = 0.0;
-    gtk_color_selection_get_color (GtkColorSelection_val(w), color);
-    ret = alloc (4*Double_wosize, Double_array_tag);
-    Store_double_field (ret, 0, color[0]);
-    Store_double_field (ret, 1, color[1]);
-    Store_double_field (ret, 2, color[2]);
-    Store_double_field (ret, 3, color[3]);
-    return ret;
-}
-ML_1 (gtk_color_selection_dialog_new, String_val, Val_GtkWidget_window)
-Make_Extractor (gtk_color_selection_dialog, GtkColorSelectionDialog_val, ok_button, Val_GtkWidget)
-Make_Extractor (gtk_color_selection_dialog, GtkColorSelectionDialog_val, cancel_button, Val_GtkWidget)
-Make_Extractor (gtk_color_selection_dialog, GtkColorSelectionDialog_val, help_button, Val_GtkWidget)
-Make_Extractor (gtk_color_selection_dialog, GtkColorSelectionDialog_val, colorsel, Val_GtkWidget)
-
-/* gtkfontsel.h */
-
-#define GtkFontSelection_val(val) \
-   check_cast(GTK_FONT_SELECTION,val)
-ML_0 (gtk_font_selection_new, Val_GtkWidget_sink)
-ML_1 (gtk_font_selection_get_font, GtkFontSelection_val,
-      Val_GdkFont)
-ML_1 (gtk_font_selection_get_font_name, GtkFontSelection_val,
-      copy_string_check)
-ML_2 (gtk_font_selection_set_font_name, GtkFontSelection_val,
-      String_val, Val_bool)
-ML_9 (gtk_font_selection_set_filter, GtkFontSelection_val,
-      Font_filter_type_val, Flags_Font_type_val,
-      (gchar**), (gchar**), (gchar**),
-      (gchar**), (gchar**), (gchar**), Unit)
-ML_bc9 (ml_gtk_font_selection_set_filter)
-ML_1 (gtk_font_selection_get_preview_text, GtkFontSelection_val,
-      copy_string)
-ML_2 (gtk_font_selection_set_preview_text, GtkFontSelection_val,
-      String_val, Unit)
-
-#define GtkFontSelectionDialog_val(val) \
-   check_cast(GTK_FONT_SELECTION_DIALOG,val)
-ML_1 (gtk_font_selection_dialog_new, String_option_val, Val_GtkWidget_window)
-/*
-ML_1 (gtk_font_selection_dialog_get_font, GtkFontSelectionDialog_val,
-      Val_GdkFont)
-ML_1 (gtk_font_selection_dialog_get_font_name, GtkFontSelectionDialog_val,
-      copy_string_check)
-ML_2 (gtk_font_selection_dialog_set_font_name, GtkFontSelectionDialog_val,
-      String_val, Val_bool)
-ML_9 (gtk_font_selection_dialog_set_filter, GtkFontSelectionDialog_val,
-      Font_filter_type_val, Flags_Font_type_val,
-      (gchar**), (gchar**), (gchar**),
-      (gchar**), (gchar**), (gchar**), Unit)
-ML_bc9 (ml_gtk_font_selection_dialog_set_filter)
-ML_1 (gtk_font_selection_dialog_get_preview_text, GtkFontSelectionDialog_val,
-      copy_string)
-ML_2 (gtk_font_selection_dialog_set_preview_text, GtkFontSelectionDialog_val,
-      String_val, Unit)
-*/
-Make_Extractor (gtk_font_selection_dialog, GtkFontSelectionDialog_val,
-                fontsel, Val_GtkWidget)
-Make_Extractor (gtk_font_selection_dialog, GtkFontSelectionDialog_val,
-               ok_button, Val_GtkWidget)
-Make_Extractor (gtk_font_selection_dialog, GtkFontSelectionDialog_val,
-               apply_button, Val_GtkWidget)
-Make_Extractor (gtk_font_selection_dialog, GtkFontSelectionDialog_val,
-               cancel_button, Val_GtkWidget)
-
-/* gtkplug.h */
-
-ML_1 (gtk_plug_new, XID_val, Val_GtkWidget_window)
-
-/* gtkctree.h */
-#define GtkCTree_val(val) check_cast(GTK_CTREE,val)
-/* Beware: this definition axpects arg1 to be a GtkCTree */
-/*
-#define GtkCTreeNode_val(val) \
-     (gtk_ctree_find(GtkCTree_val(arg1),NULL,(GtkCTreeNode*)(val-1)) \
-     ? (GtkCTreeNode*)(val-1) : (ml_raise_gtk ("Bad GtkCTreeNode"), NULL))
-#define Val_GtkCTreeNode Val_addr
-ML_2 (gtk_ctree_new, Int_val, Int_val, Val_GtkWidget_sink)
-ML_3 (gtk_ctree_new_with_titles, Int_val, Int_val, (char **),
-      Val_GtkWidget_sink)
-ML_11 (gtk_ctree_insert_node, GtkCTree_val, GtkCTreeNode_val,
-       GtkCTreeNode_val, (char**), Int_val, GdkPixmap_val, GdkBitmap_val,
-       GdkPixmap_val, GdkBitmap_val, Bool_val, Bool_val,
-       Val_GtkCTreeNode)
-ML_2 (gtk_ctree_remove_node, GtkCTree_val, GtkCTreeNode_val, Unit)
-ML_2 (gtk_ctree_is_viewable, GtkCTree_val, GtkCTreeNode_val, Val_bool)
-*/
-
-/* gtkpreview.h */
-/*
-#define GtkPreview_val(val) GTK_PREVIEW(Pointer_val(val))
-ML_1 (gtk_preview_new, Preview_val, Val_GtkWidget_sink)
-ML_3 (gtk_preview_size, GtkPreview_val, Int_val, Int_val, Unit)
-ML_9 (gtk_preview_put, GtkPreview_val, GdkWindow_val, GdkGC_val,
-      Int_val, Int_val, Int_val, Int_val, Int_val, Int_val, Unit)
-ML_bc9 (ml_gtk_preview_put)
-*/
-
-/* gtkmain.h */
-
-value ml_gtk_init (value argv)
-{
-    CAMLparam1 (argv);
-    int argc = Wosize_val(argv), i;
-    CAMLlocal1 (copy);
-
-    copy = (argc ? alloc (argc, Abstract_tag) : Atom(0));
-    for (i = 0; i < argc; i++) Field(copy,i) = Field(argv,i);
-    gtk_init (&argc, (char ***)&copy);
-
-    argv = (argc ? alloc (argc, 0) : Atom(0));
-    for (i = 0; i < argc; i++) modify(&Field(argv,i), Field(copy,i));
-    CAMLreturn (argv);
-}
-ML_1 (gtk_exit, Int_val, Unit)
-ML_0 (gtk_set_locale, Val_string)
-ML_0 (gtk_main, Unit)
-ML_1 (gtk_main_iteration_do, Bool_val, Val_bool)
-ML_0 (gtk_main_quit, Unit)
-ML_1 (gtk_grab_add, GtkWidget_val, Unit)
-ML_1 (gtk_grab_remove, GtkWidget_val, Unit)
-ML_0 (gtk_grab_get_current, Val_GtkWidget)
-value ml_gtk_get_version (value unit)
-{
-    value ret = alloc_small(3,0);
-    Field(ret,0) = Val_int(gtk_major_version);
-    Field(ret,1) = Val_int(gtk_minor_version);
-    Field(ret,2) = Val_int(gtk_micro_version);
-    return ret;
-}
-
-/* Marshalling */
-
-void ml_gtk_callback_marshal (GtkObject *object, gpointer data,
-                              guint nargs, GtkArg *args)
-{
-    value vargs = alloc_small(3,0);
-
-    CAMLparam1 (vargs);
-    Field(vargs,0) = (value) object;
-    Field(vargs,1) = Val_int(nargs);
-    Field(vargs,2) = (value) args;
-
-    callback (*(value*)data, vargs);
-
-    Field(vargs,0) = Val_int(-1);
-    Field(vargs,1) = Val_int(-1);
-    CAMLreturn0;
-}
-
-value ml_gtk_arg_shift (GtkArg *args, value index)
-{
-    return (value) (&args[Int_val(index)]);
-}
-
-value ml_gtk_arg_get_type (GtkArg *arg)
-{
-    return Val_int (arg->type);
-}
-
-value ml_gtk_arg_get (GtkArg *arg)
-{
-    CAMLparam0();
-    CAMLlocal1(tmp);
-    value ret = Val_unit;
-    GtkFundamentalType type = GTK_FUNDAMENTAL_TYPE(arg->type);
-    int tag;
-
-    switch (type) {
-    case GTK_TYPE_CHAR:
-        tag = 0;
-        tmp = Int_val(GTK_VALUE_CHAR(*arg));
-        break;
-    case GTK_TYPE_BOOL:
-        tag = 1;
-        tmp = Val_bool(GTK_VALUE_BOOL(*arg));
-        break;
-    case GTK_TYPE_INT:
-    case GTK_TYPE_ENUM:
-    case GTK_TYPE_UINT:
-    case GTK_TYPE_FLAGS:
-        tag = 2;
-        tmp = Val_int (GTK_VALUE_INT(*arg)); break;
-    case GTK_TYPE_LONG:
-    case GTK_TYPE_ULONG:
-        tag = 2;
-        tmp = Val_int (GTK_VALUE_LONG(*arg)); break;
-    case GTK_TYPE_FLOAT:
-        tag = 3;
-        tmp = copy_double ((double)GTK_VALUE_FLOAT(*arg)); break;
-    case GTK_TYPE_DOUBLE:
-        tag = 3;
-        tmp = copy_double (GTK_VALUE_DOUBLE(*arg)); break;
-    case GTK_TYPE_STRING:
-        tag = 4;
-        tmp = Val_option (GTK_VALUE_STRING(*arg), copy_string); break;
-    case GTK_TYPE_OBJECT:
-        tag = 5;
-        tmp = Val_option (GTK_VALUE_OBJECT(*arg), Val_GtkObject); break;
-    case GTK_TYPE_BOXED:
-    case GTK_TYPE_POINTER:
-        tag = 6;
-        tmp = Val_option (GTK_VALUE_POINTER(*arg), Val_pointer); break;
-    default:
-        tag = -1;
-    }
-    if (tag != -1) {
-        ret = alloc_small(1,tag);
-        Field(ret,0) = tmp;
-    }
-    CAMLreturn(ret);
-}
-
-value ml_gtk_arg_set_retloc (GtkArg *arg, value val)
-{
-    value type = Fundamental_type_val(Is_block(val) ? Field(val,0) : val);
-    value data = (Is_block(val) ? Field(val,1) : 0);
-    if (GTK_FUNDAMENTAL_TYPE(arg->type) != GTK_TYPE_POINTER
-        && GTK_FUNDAMENTAL_TYPE(arg->type) != type)
-       ml_raise_gtk ("GtkArgv.Arg.set : argument type mismatch");
-    switch (type) {
-    case GTK_TYPE_CHAR:   *GTK_RETLOC_CHAR(*arg) = Int_val(data); break;
-    case GTK_TYPE_BOOL:   *GTK_RETLOC_BOOL(*arg) = Int_val(data); break;
-    case GTK_TYPE_INT:
-    case GTK_TYPE_ENUM:   *GTK_RETLOC_INT(*arg) = Int_val(data); break;
-    case GTK_TYPE_UINT:
-    case GTK_TYPE_FLAGS:  *GTK_RETLOC_UINT(*arg) = Int32_val(data); break;
-    case GTK_TYPE_LONG:
-    case GTK_TYPE_ULONG:  *GTK_RETLOC_LONG(*arg) = Nativeint_val(data); break;
-    case GTK_TYPE_FLOAT:  *GTK_RETLOC_FLOAT(*arg) = Float_val(data); break;
-    case GTK_TYPE_DOUBLE: *GTK_RETLOC_DOUBLE(*arg) = Double_val(data); break;
-    case GTK_TYPE_STRING:
-         *GTK_RETLOC_STRING(*arg) = Option_val(data, String_val, NULL);
-         break;
-    case GTK_TYPE_BOXED:
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_OBJECT:
-         *GTK_RETLOC_POINTER(*arg) = Option_val(data, Pointer_val, NULL);
-         break;
-    }
-    return Val_unit;
-}
-
-/*
-value ml_gtk_arg_get_char (GtkArg *arg)
-{
-    if (GTK_FUNDAMENTAL_TYPE(arg->type) != GTK_TYPE_CHAR)
-       ml_raise_gtk ("argument type mismatch");
-    return Val_char (GTK_VALUE_CHAR(*arg));
-}
-
-value ml_gtk_arg_get_bool (GtkArg *arg)
-{
-    if (GTK_FUNDAMENTAL_TYPE(arg->type) != GTK_TYPE_BOOL)
-       ml_raise_gtk ("argument type mismatch");
-    return Val_bool (GTK_VALUE_BOOL(*arg));
-}
-
-value ml_gtk_arg_get_int (GtkArg *arg)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_INT:
-    case GTK_TYPE_UINT:
-       return Val_int (GTK_VALUE_INT(*arg));
-    case GTK_TYPE_LONG:
-    case GTK_TYPE_ULONG:
-       return Val_long (GTK_VALUE_LONG(*arg));
-    case GTK_TYPE_ENUM:
-       return Val_int (GTK_VALUE_ENUM(*arg));
-    case GTK_TYPE_FLAGS:
-       return Val_int (GTK_VALUE_FLAGS(*arg));
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-*/
-value ml_gtk_arg_get_nativeint(GtkArg *arg) {
-
-     switch(GTK_FUNDAMENTAL_TYPE(arg->type)) {
-     case GTK_TYPE_INT:
-     case GTK_TYPE_UINT:
-          return copy_nativeint (GTK_VALUE_INT(*arg));
-     case GTK_TYPE_LONG:
-     case GTK_TYPE_ULONG:
-          return copy_nativeint (GTK_VALUE_LONG(*arg));
-     case GTK_TYPE_ENUM:
-          return copy_nativeint (GTK_VALUE_ENUM(*arg));
-     case GTK_TYPE_FLAGS:
-          return copy_nativeint (GTK_VALUE_FLAGS(*arg));
-     default:
-          ml_raise_gtk ("argument type mismatch");
-     }
-     return Val_unit;
-}
-/*
-value ml_gtk_arg_get_float (GtkArg *arg)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_FLOAT:
-       return copy_double ((double)GTK_VALUE_FLOAT(*arg));
-    case GTK_TYPE_DOUBLE:
-       return copy_double (GTK_VALUE_DOUBLE(*arg));
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-
-value ml_gtk_arg_get_string (GtkArg *arg)
-{
-    char *p;
-    if (GTK_FUNDAMENTAL_TYPE(arg->type) != GTK_TYPE_STRING)
-       ml_raise_gtk ("argument type mismatch");
-    p = GTK_VALUE_STRING(*arg);
-    return Val_option (p, copy_string);
-}
-*/
-value ml_gtk_arg_get_pointer (GtkArg *arg)
-{
-    gpointer p = NULL;
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_STRING:
-    case GTK_TYPE_BOXED:
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_OBJECT:
-        p = GTK_VALUE_POINTER(*arg); break;
-    default:
-       ml_raise_gtk ("GtkArgv.get_pointer : argument type mismatch");
-    }
-    return Val_pointer(p);
-}
-/*
-value ml_gtk_arg_get_object (GtkArg *arg)
-{
-    GtkObject *p;
-    if (GTK_FUNDAMENTAL_TYPE(arg->type) != GTK_TYPE_OBJECT)
-       ml_raise_gtk ("argument type mismatch");
-    p = GTK_VALUE_OBJECT(*arg);
-    return Val_option (p, Val_GtkObject);
-}
-*/
-
-value ml_string_at_pointer (value ofs, value len, value ptr)
-{
-    char *start = ((char*)Pointer_val(ptr)) + Option_val(ofs, Int_val, 0);
-    int length = Option_val(len, Int_val, strlen(start));
-    value ret = alloc_string(length);
-    memcpy ((char*)ret, start, length);
-    return ret;
-}
-
-value ml_int_at_pointer (value ptr)
-{
-    return Val_int(*(int*)Pointer_val(ptr));
-}
-
-/*
-value ml_gtk_arg_set_char (GtkArg *arg, value val)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_CHAR:
-         *GTK_RETLOC_CHAR(*arg) = Char_val(val); break;
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-
-value ml_gtk_arg_set_bool (GtkArg *arg, value val)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_BOOL:
-         *GTK_RETLOC_BOOL(*arg) = Bool_val(val); break;
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-
-value ml_gtk_arg_set_int (GtkArg *arg, value val)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_INT:
-    case GTK_TYPE_UINT:
-       *GTK_RETLOC_INT(*arg) = Int_val(val); break;
-    case GTK_TYPE_LONG:
-    case GTK_TYPE_ULONG:
-       *GTK_RETLOC_LONG(*arg) = Long_val(val); break;
-    case GTK_TYPE_ENUM:
-       *GTK_RETLOC_ENUM(*arg) = Int_val(val); break;
-    case GTK_TYPE_FLAGS:
-       *GTK_RETLOC_FLAGS(*arg) = Int_val(val); break;
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-
-value ml_gtk_arg_set_nativeint (GtkArg *arg, value val)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_INT:
-    case GTK_TYPE_UINT:
-       *GTK_RETLOC_INT(*arg) = Nativeint_val(val); break;
-    case GTK_TYPE_LONG:
-    case GTK_TYPE_ULONG:
-       *GTK_RETLOC_LONG(*arg) = Nativeint_val(val); break;
-    case GTK_TYPE_ENUM:
-       *GTK_RETLOC_ENUM(*arg) = Nativeint_val(val); break;
-    case GTK_TYPE_FLAGS:
-       *GTK_RETLOC_FLAGS(*arg) = Nativeint_val(val); break;
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-
-value ml_gtk_arg_set_float (GtkArg *arg, value val)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_FLOAT:
-       *GTK_RETLOC_FLOAT(*arg) = (float) Double_val(val); break;
-    case GTK_TYPE_DOUBLE:
-       *GTK_RETLOC_DOUBLE(*arg) = Double_val(val); break;
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-
-value ml_gtk_arg_set_string (GtkArg *arg, value val)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_STRING:
-         *GTK_RETLOC_STRING(*arg) = String_val(val); break;
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-
-value ml_gtk_arg_set_pointer (GtkArg *arg, value val)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_BOXED:
-       *GTK_RETLOC_BOXED(*arg) = Pointer_val(val); break;
-    case GTK_TYPE_POINTER:
-       *GTK_RETLOC_POINTER(*arg) = Pointer_val(val); break;
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-
-value ml_gtk_arg_set_object (GtkArg *arg, value val)
-{
-    switch (GTK_FUNDAMENTAL_TYPE(arg->type)) {
-    case GTK_TYPE_POINTER:
-    case GTK_TYPE_OBJECT:
-         *GTK_RETLOC_OBJECT(*arg) = GtkObject_val(val); break;
-    default:
-       ml_raise_gtk ("argument type mismatch");
-    }
-    return Val_unit;
-}
-*/
-
-/* gtksignal.h */
-
-value ml_gtk_signal_connect (value object, value name, value clos, value after)
-{
-    value *clos_p = ml_global_root_new (clos);
-    return Val_int (gtk_signal_connect_full
-                   (GtkObject_val(object), String_val(name), NULL,
-                    ml_gtk_callback_marshal, clos_p,
-                    ml_global_root_destroy, FALSE, Bool_val(after)));
-}
-
-ML_2 (gtk_signal_disconnect, GtkObject_val, Int_val, Unit)
-ML_2 (gtk_signal_emit_stop_by_name, GtkObject_val, String_val, Unit)
-ML_2 (gtk_signal_handler_block, GtkObject_val, Int_val, Unit)
-ML_2 (gtk_signal_handler_unblock, GtkObject_val, Int_val, Unit)
-ML_2_name (ml_gtk_signal_emit_none, gtk_signal_emit_by_name,
-           GtkObject_val, String_val, Unit)
-ML_3_name (ml_gtk_signal_emit_int, gtk_signal_emit_by_name,
-           GtkObject_val, String_val, Int_val, Unit)
-ML_4_name (ml_gtk_signal_emit_scroll, gtk_signal_emit_by_name,
-           GtkObject_val, String_val, Scroll_type_val, Double_val, Unit)
-
-/* gtkmain.h (again) */
-
-value ml_gtk_timeout_add (value interval, value clos)
-{
-    value *clos_p = ml_global_root_new (clos);
-    return Val_int (gtk_timeout_add_full
-                   (Int_val(interval), NULL, ml_gtk_callback_marshal, clos_p,
-                    ml_global_root_destroy));
-}
-ML_1 (gtk_timeout_remove, Int_val, Unit)
-
-ML_1 (gtk_rc_add_default_file, String_val, Unit)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtk.h b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtk.h
deleted file mode 100644 (file)
index eac3f6e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtk.h
+++ /dev/null
@@ -1,24 +0,0 @@
-/* $Id$ */
-
-#define GtkObject_val(obj) ((GtkObject*)Field(obj,1))
-value Val_GtkObject (GtkObject *w);
-value Val_GtkObject_sink (GtkObject *w);
-#define GtkAccelGroup_val(val) ((GtkAccelGroup*)Pointer_val(val))
-value Val_GtkAccelGroup (GtkAccelGroup *);
-#define GtkStyle_val(val) ((GtkStyle*)Pointer_val(val))
-value Val_GtkStyle (GtkStyle *);
-
-#define Val_GtkAny(w) Val_GtkObject((GtkObject*)w)
-#define Val_GtkAny_sink(w) Val_GtkObject_sink((GtkObject*)w)
-#define Val_GtkWidget Val_GtkAny
-#define Val_GtkWidget_sink Val_GtkAny_sink
-
-#ifdef GTK_NO_CHECK_CASTS
-#define check_cast(f,v) f(Pointer_val(v))
-#else
-#define check_cast(f,v) (Pointer_val(v) == NULL ? NULL : f(Pointer_val(v)))
-#endif
-
-#define GtkWidget_val(val) check_cast(GTK_WIDGET,val)
-#define GtkAdjustment_val(val) check_cast(GTK_ADJUSTMENT,val)
-#define GtkItem_val(val) check_cast(GTK_ITEM,val)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkbin.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkbin.c
deleted file mode 100644 (file)
index 9b797a6..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkbin.c
+++ /dev/null
@@ -1,118 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "ml_gtk.h"
-#include "gtk_tags.h"
-
-/* gtkalignment.h */
-
-#define GtkAlignment_val(val) check_cast(GTK_ALIGNMENT,val)
-ML_4 (gtk_alignment_new, Float_val, Float_val, Float_val, Float_val,
-      Val_GtkWidget_sink)
-value ml_gtk_alignment_set (value x, value y,
-                          value xscale, value yscale, value val)
-{
-    GtkAlignment *alignment = GtkAlignment_val(val);
-    gtk_alignment_set (alignment,
-                      Option_val(x, Float_val, alignment->xalign),
-                      Option_val(y, Float_val, alignment->yalign),
-                      Option_val(xscale, Float_val, alignment->xscale),
-                      Option_val(yscale, Float_val, alignment->xscale));
-    return Val_unit;
-}
-
-/* gtkeventbox.h */
-
-ML_0 (gtk_event_box_new, Val_GtkWidget_sink)
-
-/* gtkframe.h */
-
-#define GtkFrame_val(val) check_cast(GTK_FRAME,val)
-ML_1 (gtk_frame_new, Optstring_val, Val_GtkWidget_sink)
-ML_2 (gtk_frame_set_label, GtkFrame_val, Optstring_val, Unit)
-ML_3 (gtk_frame_set_label_align, GtkFrame_val, Float_val, Float_val, Unit)
-ML_2 (gtk_frame_set_shadow_type, GtkFrame_val, Shadow_type_val, Unit)
-Make_Extractor (gtk_frame_get, GtkFrame_val, label_xalign, copy_double)
-Make_Extractor (gtk_frame_get, GtkFrame_val, label_yalign, copy_double)
-
-/* gtkaspectframe.h */
-
-#define GtkAspectFrame_val(val) check_cast(GTK_ASPECT_FRAME,val)
-ML_5 (gtk_aspect_frame_new, Optstring_val,
-      Float_val, Float_val, Float_val, Bool_val, Val_GtkWidget_sink)
-ML_5 (gtk_aspect_frame_set, GtkAspectFrame_val, Float_val, Float_val,
-      Float_val, Bool_val, Unit)
-Make_Extractor (gtk_aspect_frame_get, GtkAspectFrame_val, xalign, copy_double)
-Make_Extractor (gtk_aspect_frame_get, GtkAspectFrame_val, yalign, copy_double)
-Make_Extractor (gtk_aspect_frame_get, GtkAspectFrame_val, ratio, copy_double)
-Make_Extractor (gtk_aspect_frame_get, GtkAspectFrame_val, obey_child, Val_bool)
-
-/* gtkhandlebox.h */
-
-#define GtkHandleBox_val(val) check_cast(GTK_HANDLE_BOX,val)
-ML_0 (gtk_handle_box_new, Val_GtkWidget_sink)
-ML_2 (gtk_handle_box_set_shadow_type, GtkHandleBox_val, Shadow_type_val, Unit)
-ML_2 (gtk_handle_box_set_handle_position, GtkHandleBox_val, Position_val, Unit)
-ML_2 (gtk_handle_box_set_snap_edge, GtkHandleBox_val, Position_val, Unit)
-
-/* gtkinvisible.h */
-/* private class
-ML_0 (gtk_invisible_new, Val_GtkWidget_sink)
-*/
-
-/* gtkitem.h */
-
-ML_1 (gtk_item_select, GtkItem_val, Unit)
-ML_1 (gtk_item_deselect, GtkItem_val, Unit)
-ML_1 (gtk_item_toggle, GtkItem_val, Unit)
-
-/* gtkviewport.h */
-
-#define GtkViewport_val(val) check_cast(GTK_VIEWPORT,val)
-ML_2 (gtk_viewport_new, GtkAdjustment_val, GtkAdjustment_val,
-      Val_GtkWidget_sink)
-ML_1 (gtk_viewport_get_hadjustment, GtkViewport_val, Val_GtkWidget_sink)
-ML_1 (gtk_viewport_get_vadjustment, GtkViewport_val, Val_GtkWidget)
-ML_2 (gtk_viewport_set_hadjustment, GtkViewport_val, GtkAdjustment_val, Unit)
-ML_2 (gtk_viewport_set_vadjustment, GtkViewport_val, GtkAdjustment_val, Unit)
-ML_2 (gtk_viewport_set_shadow_type, GtkViewport_val, Shadow_type_val, Unit)
-
-/* gtkscrolledwindow.h */
-
-#define GtkScrolledWindow_val(val) check_cast(GTK_SCROLLED_WINDOW,val)
-ML_2 (gtk_scrolled_window_new, GtkAdjustment_val ,GtkAdjustment_val,
-      Val_GtkWidget_sink)
-ML_2 (gtk_scrolled_window_set_hadjustment, GtkScrolledWindow_val ,
-      GtkAdjustment_val, Unit)
-ML_2 (gtk_scrolled_window_set_vadjustment, GtkScrolledWindow_val ,
-      GtkAdjustment_val, Unit)
-ML_1 (gtk_scrolled_window_get_hadjustment, GtkScrolledWindow_val,
-      Val_GtkWidget)
-ML_1 (gtk_scrolled_window_get_vadjustment, GtkScrolledWindow_val,
-      Val_GtkWidget)
-ML_3 (gtk_scrolled_window_set_policy, GtkScrolledWindow_val,
-      Policy_type_val, Policy_type_val, Unit)
-Make_Extractor (gtk_scrolled_window_get, GtkScrolledWindow_val,
-               hscrollbar_policy, Val_policy_type)
-Make_Extractor (gtk_scrolled_window_get, GtkScrolledWindow_val,
-               vscrollbar_policy, Val_policy_type)
-ML_2 (gtk_scrolled_window_set_placement, GtkScrolledWindow_val,
-      Corner_type_val, Unit)
-ML_2 (gtk_scrolled_window_add_with_viewport, GtkScrolledWindow_val,
-      GtkWidget_val, Unit)
-
-/* gtksocket.h */
-
-#define GtkSocket_val(val) check_cast(GTK_SOCKET,val)
-ML_0 (gtk_socket_new, Val_GtkWidget_sink)
-ML_2 (gtk_socket_steal, GtkSocket_val, XID_val, Unit)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkbutton.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkbutton.c
deleted file mode 100644 (file)
index a718305..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkbutton.c
+++ /dev/null
@@ -1,75 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "ml_gtk.h"
-#include "gtk_tags.h"
-
-/* gtkbutton.h */
-
-#define GtkButton_val(val) check_cast(GTK_BUTTON,val)
-ML_0 (gtk_button_new, Val_GtkWidget_sink)
-ML_1 (gtk_button_new_with_label, String_val, Val_GtkWidget_sink)
-ML_1 (gtk_button_pressed, GtkButton_val, Unit)
-ML_1 (gtk_button_released, GtkButton_val, Unit)
-ML_1 (gtk_button_clicked, GtkButton_val, Unit)
-ML_1 (gtk_button_enter, GtkButton_val, Unit)
-ML_1 (gtk_button_leave, GtkButton_val, Unit)
-
-/* gtktogglebutton.h */
-
-#define GtkToggleButton_val(val) check_cast(GTK_TOGGLE_BUTTON,val)
-ML_0 (gtk_toggle_button_new, Val_GtkWidget_sink)
-ML_1 (gtk_toggle_button_new_with_label, String_val, Val_GtkWidget_sink)
-ML_2 (gtk_toggle_button_set_mode, GtkToggleButton_val, Bool_val, Unit)
-ML_2 (gtk_toggle_button_set_active, GtkToggleButton_val, Bool_val, Unit)
-ML_1 (gtk_toggle_button_toggled, GtkToggleButton_val, Unit)
-Make_Extractor (gtk_toggle_button_get, GtkToggleButton_val, active, Val_bool)
-
-/* gtkcheckbutton.h */
-
-#define GtkCheckButton_val(val) check_cast(GTK_CHECK_BUTTON,val)
-ML_0 (gtk_check_button_new, Val_GtkWidget_sink)
-ML_1 (gtk_check_button_new_with_label, String_val, Val_GtkWidget_sink)
-
-/* gtkradiobutton.h */
-
-#define GtkRadioButton_val(val) check_cast(GTK_RADIO_BUTTON,val)
-static GSList* button_group_val(value val)
-{
-    return (val == Val_unit ? NULL :
-            gtk_radio_button_group(GtkRadioButton_val(Field(val,0))));
-}
-ML_1 (gtk_radio_button_new, button_group_val,
-      Val_GtkWidget_sink)
-ML_2 (gtk_radio_button_new_with_label, button_group_val,
-      String_val, Val_GtkWidget_sink)
-ML_2 (gtk_radio_button_set_group, GtkRadioButton_val, button_group_val, Unit)
-
-/* gtktoolbar.h */
-
-#define GtkToolbar_val(val) check_cast(GTK_TOOLBAR,val)
-ML_2 (gtk_toolbar_new, Orientation_val, Toolbar_style_val, Val_GtkWidget_sink)
-ML_2 (gtk_toolbar_insert_space, GtkToolbar_val, Int_val, Unit)
-ML_7 (gtk_toolbar_insert_element, GtkToolbar_val, Toolbar_child_val,
-      Insert(NULL) Optstring_val, Optstring_val, Optstring_val, GtkWidget_val,
-      Insert(NULL) Insert(NULL) Int_val, Val_GtkWidget)
-ML_bc7 (ml_gtk_toolbar_insert_element)
-ML_5 (gtk_toolbar_insert_widget, GtkToolbar_val, GtkWidget_val,
-      Optstring_val, Optstring_val, Int_val, Unit)
-ML_2 (gtk_toolbar_set_orientation, GtkToolbar_val, Orientation_val, Unit)
-ML_2 (gtk_toolbar_set_style, GtkToolbar_val, Toolbar_style_val, Unit)
-ML_2 (gtk_toolbar_set_space_size, GtkToolbar_val, Int_val, Unit)
-ML_2 (gtk_toolbar_set_space_style, GtkToolbar_val, Toolbar_space_style_val, Unit)
-ML_2 (gtk_toolbar_set_tooltips, GtkToolbar_val, Bool_val, Unit)
-ML_2 (gtk_toolbar_set_button_relief, GtkToolbar_val, Relief_style_val, Unit)
-ML_1 (gtk_toolbar_get_button_relief, GtkToolbar_val, Val_relief_style)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkedit.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkedit.c
deleted file mode 100644 (file)
index 1c64ec2..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkedit.c
+++ /dev/null
@@ -1,126 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "ml_gtk.h"
-#include "gtk_tags.h"
-
-/* gtkeditable.h */
-
-#define GtkEditable_val(val) check_cast(GTK_EDITABLE,val)
-ML_3 (gtk_editable_select_region, GtkEditable_val, Int_val, Int_val, Unit)
-value ml_gtk_editable_insert_text (value w, value s, value pos)
-{
-    int position = Int_val(pos);
-    gtk_editable_insert_text (GtkEditable_val(w), String_val(s),
-                             string_length(s), &position);
-    return Val_int(position);
-}
-ML_3 (gtk_editable_delete_text, GtkEditable_val, Int_val, Int_val, Unit)
-ML_3 (gtk_editable_get_chars, GtkEditable_val, Int_val, Int_val,
-      copy_string_and_free)
-ML_1 (gtk_editable_cut_clipboard, GtkEditable_val, Unit)
-ML_1 (gtk_editable_copy_clipboard, GtkEditable_val, Unit)
-ML_1 (gtk_editable_paste_clipboard, GtkEditable_val, Unit)
-ML_3 (gtk_editable_claim_selection, GtkEditable_val, Bool_val, Int_val, Unit)
-ML_1 (gtk_editable_delete_selection, GtkEditable_val, Unit)
-ML_1 (gtk_editable_changed, GtkEditable_val, Unit)
-ML_2 (gtk_editable_set_position, GtkEditable_val, Int_val, Unit)
-ML_1 (gtk_editable_get_position, GtkEditable_val, Val_int)
-ML_2 (gtk_editable_set_editable, GtkEditable_val, Bool_val, Unit)
-Make_Extractor (gtk_editable, GtkEditable_val, selection_start_pos, Val_int)
-Make_Extractor (gtk_editable, GtkEditable_val, selection_end_pos, Val_int)
-Make_Extractor (gtk_editable, GtkEditable_val, has_selection, Val_bool)
-
-/* gtkentry.h */
-
-#define GtkEntry_val(val) check_cast(GTK_ENTRY,val)
-ML_0 (gtk_entry_new, Val_GtkWidget_sink)
-ML_1 (gtk_entry_new_with_max_length, (gint16)Long_val, Val_GtkWidget_sink)
-ML_2 (gtk_entry_set_text, GtkEntry_val, String_val, Unit)
-ML_2 (gtk_entry_append_text, GtkEntry_val, String_val, Unit)
-ML_2 (gtk_entry_prepend_text, GtkEntry_val, String_val, Unit)
-ML_1 (gtk_entry_get_text, GtkEntry_val, Val_string)
-ML_3 (gtk_entry_select_region, GtkEntry_val, Int_val, Int_val, Unit)
-ML_2 (gtk_entry_set_visibility, GtkEntry_val, Bool_val, Unit)
-ML_2 (gtk_entry_set_max_length, GtkEntry_val, (gint16)Long_val, Unit)
-Make_Extractor (GtkEntry, GtkEntry_val, text_length, Val_int)
-
-/* gtkspinbutton.h */
-
-#define GtkSpinButton_val(val) check_cast(GTK_SPIN_BUTTON,val)
-ML_3 (gtk_spin_button_new, GtkAdjustment_val,
-      Float_val, Int_val, Val_GtkWidget_sink)
-ML_2 (gtk_spin_button_set_adjustment, GtkSpinButton_val, GtkAdjustment_val,
-      Unit)
-ML_1 (gtk_spin_button_get_adjustment, GtkSpinButton_val, Val_GtkAny)
-ML_2 (gtk_spin_button_set_digits, GtkSpinButton_val, Int_val, Unit)
-ML_1 (gtk_spin_button_get_value_as_float, GtkSpinButton_val, copy_double)
-ML_2 (gtk_spin_button_set_value, GtkSpinButton_val, Float_val, Unit)
-ML_2 (gtk_spin_button_set_update_policy, GtkSpinButton_val,
-      Update_type_val, Unit)
-ML_2 (gtk_spin_button_set_numeric, GtkSpinButton_val, Bool_val, Unit)
-ML_2 (gtk_spin_button_spin, GtkSpinButton_val,
-      Insert (Is_long(arg2) ? Spin_type_val(arg2) : GTK_SPIN_USER_DEFINED)
-      (Is_long(arg2) ? 0.0 : Float_val(Field(arg2,1))) Ignore, Unit)
-ML_2 (gtk_spin_button_set_wrap, GtkSpinButton_val, Bool_val, Unit)
-ML_2 (gtk_spin_button_set_shadow_type, GtkSpinButton_val, Shadow_type_val, Unit)
-ML_2 (gtk_spin_button_set_snap_to_ticks, GtkSpinButton_val, Bool_val, Unit)
-ML_4 (gtk_spin_button_configure, GtkSpinButton_val, GtkAdjustment_val,
-      Float_val, Int_val, Unit)
-ML_1 (gtk_spin_button_update, GtkSpinButton_val, Unit)
-
-/* gtktext.h */
-
-#define GtkText_val(val) check_cast(GTK_TEXT,val)
-ML_2 (gtk_text_new, GtkAdjustment_val, GtkAdjustment_val, Val_GtkWidget_sink)
-ML_2 (gtk_text_set_word_wrap, GtkText_val, Bool_val, Unit)
-ML_2 (gtk_text_set_line_wrap, GtkText_val, Bool_val, Unit)
-ML_3 (gtk_text_set_adjustments, GtkText_val,
-      Option_val(arg2,GtkAdjustment_val,GtkText_val(arg1)->hadj) Ignore,
-      Option_val(arg3,GtkAdjustment_val,GtkText_val(arg1)->vadj) Ignore,
-      Unit)
-Make_Extractor (gtk_text_get, GtkText_val, hadj, Val_GtkWidget)
-Make_Extractor (gtk_text_get, GtkText_val, vadj, Val_GtkWidget)
-ML_2 (gtk_text_set_point, GtkText_val, Int_val, Unit)
-ML_1 (gtk_text_get_point, GtkText_val, Val_int)
-ML_1 (gtk_text_get_length, GtkText_val, Val_int)
-ML_1 (gtk_text_freeze, GtkText_val, Unit)
-ML_1 (gtk_text_thaw, GtkText_val, Unit)
-value ml_gtk_text_insert (value text, value font, value fore, value back,
-                         value str)
-{
-    gtk_text_insert (GtkText_val(text),
-                    Option_val(font,GdkFont_val,NULL),
-                    Option_val(fore,GdkColor_val,NULL),
-                    Option_val(back,GdkColor_val,NULL),
-                    String_val(str), string_length(str));
-    return Val_unit;
-}
-ML_2 (gtk_text_forward_delete, GtkText_val, Int_val, Val_int)
-ML_2 (gtk_text_backward_delete, GtkText_val, Int_val, Val_int)
-
-/* gtkcombo.h */
-
-#define GtkCombo_val(val) check_cast(GTK_COMBO,val)
-ML_0 (gtk_combo_new, Val_GtkWidget_sink)
-ML_3 (gtk_combo_set_value_in_list, GtkCombo_val,
-      Option_val(arg2, Bool_val, GtkCombo_val(arg1)->value_in_list) Ignore,
-      Option_val(arg3, Bool_val, GtkCombo_val(arg1)->ok_if_empty) Ignore,
-      Unit)
-ML_2 (gtk_combo_set_use_arrows, GtkCombo_val, Bool_val, Unit)
-ML_2 (gtk_combo_set_use_arrows_always, GtkCombo_val, Bool_val, Unit)
-ML_2 (gtk_combo_set_case_sensitive, GtkCombo_val, Bool_val, Unit)
-ML_3 (gtk_combo_set_item_string, GtkCombo_val, GtkItem_val, String_val, Unit)
-ML_1 (gtk_combo_disable_activate, GtkCombo_val, Unit)
-Make_Extractor (gtk_combo, GtkCombo_val, entry, Val_GtkWidget)
-Make_Extractor (gtk_combo, GtkCombo_val, list, Val_GtkWidget)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkgl.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkgl.c
deleted file mode 100644 (file)
index 5e0efd7..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkgl.c
+++ /dev/null
@@ -1,54 +0,0 @@
-/* $Id$ */
-
-#include <gtk/gtk.h>
-#include <gtkgl/gtkglarea.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "ml_gtk.h"
-#include "gtkgl_tags.h"
-
-/* Conversion functions */
-#include "gtkgl_tags.c"
-
-#define GtkGLArea_val(val) ((GtkGLArea*)GtkObject_val(val))
-
-value ml_gtk_gl_area_new (value list, value share)
-{
-    value cursor, res;
-    int len, i;
-    int *attrs;
-
-    for (len = 0, cursor = list; cursor != Val_unit; cursor = Field(cursor,1))
-    {
-       if (Is_block(Field(cursor,0))) len += 2;
-       else len++;
-    }
-
-    attrs = (int*) stat_alloc ((len+1)*sizeof(int));
-    
-    for (i = 0, cursor = list; cursor != Val_unit; cursor = Field(cursor,1))
-    {
-       value option = Field(cursor,0);
-       if (Is_block(option)) {
-           attrs[i++] = Visual_options_val(Field(option,0));
-           attrs[i++] = Int_val(Field(option,1));
-       }
-       else attrs[i++] = Visual_options_val(option);
-    }
-    attrs[i] = GDK_GL_NONE;
-
-    res = Val_GtkObject
-       ((GtkObject*)gtk_gl_area_share_new(attrs,GtkGLArea_val(share)));
-    stat_free(attrs);
-    return res;
-}
-
-ML_1 (gtk_gl_area_make_current, GtkGLArea_val, Val_bool)
-ML_1 (gtk_gl_area_swapbuffers, GtkGLArea_val, Unit)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtklist.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtklist.c
deleted file mode 100644 (file)
index d651ca3..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtklist.c
+++ /dev/null
@@ -1,168 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "ml_gtk.h"
-#include "gtk_tags.h"
-
-static Make_Flags_val (Button_action_val)
-
-/* gtklistitem.h */
-
-ML_0 (gtk_list_item_new, Val_GtkWidget_sink)
-ML_1 (gtk_list_item_new_with_label, String_val, Val_GtkWidget_sink)
-
-/* gtklist.h */
-
-#define GtkList_val(val) check_cast(GTK_LIST,val)
-ML_0 (gtk_list_new, Val_GtkWidget_sink)
-value ml_gtk_list_insert_item (value list, value item, value pos)
-{
-    GList *tmp_list = g_list_alloc ();
-    tmp_list->data = GtkWidget_val(item);
-    tmp_list->next = NULL;
-    tmp_list->prev = NULL;
-    gtk_list_insert_items (GtkList_val(list), tmp_list, Int_val(pos));
-    return Val_unit;
-}
-ML_3 (gtk_list_clear_items, GtkList_val, Int_val, Int_val, Unit)
-ML_2 (gtk_list_select_item, GtkList_val, Int_val, Unit)
-ML_2 (gtk_list_unselect_item, GtkList_val, Int_val, Unit)
-ML_2 (gtk_list_select_child, GtkList_val, GtkWidget_val, Unit)
-ML_2 (gtk_list_unselect_child, GtkList_val, GtkWidget_val, Unit)
-ML_2 (gtk_list_child_position, GtkList_val, GtkWidget_val, Val_int)
-ML_2 (gtk_list_set_selection_mode, GtkList_val, Selection_mode_val, Unit)
-
-/* gtkclist.h */
-
-#define GtkCList_val(val) check_cast(GTK_CLIST,val)
-ML_1 (gtk_clist_new, Int_val, Val_GtkWidget_sink)
-ML_1 (gtk_clist_new_with_titles, Insert(Wosize_val(arg1)) (char **),
-      Val_GtkWidget_sink)
-Make_Extractor (gtk_clist_get, GtkCList_val, rows, Val_int)
-Make_Extractor (gtk_clist_get, GtkCList_val, columns, Val_int)
-Make_Extractor (gtk_clist_get, GtkCList_val, focus_row, Val_int)
-ML_2 (gtk_clist_set_hadjustment, GtkCList_val, GtkAdjustment_val, Unit)
-ML_2 (gtk_clist_set_vadjustment, GtkCList_val, GtkAdjustment_val, Unit)
-ML_1 (gtk_clist_get_hadjustment, GtkCList_val, Val_GtkAny)
-ML_1 (gtk_clist_get_vadjustment, GtkCList_val, Val_GtkAny)
-ML_2 (gtk_clist_set_shadow_type, GtkCList_val, Shadow_type_val, Unit)
-ML_2 (gtk_clist_set_selection_mode, GtkCList_val, Selection_mode_val, Unit)
-ML_2 (gtk_clist_set_reorderable, GtkCList_val, Bool_val, Unit)
-ML_2 (gtk_clist_set_use_drag_icons, GtkCList_val, Bool_val, Unit)
-ML_3 (gtk_clist_set_button_actions, GtkCList_val, Int_val,
-      (guint8)Flags_Button_action_val, Unit)
-ML_1 (gtk_clist_freeze, GtkCList_val, Unit)
-ML_1 (gtk_clist_thaw, GtkCList_val, Unit)
-ML_1 (gtk_clist_column_titles_show, GtkCList_val, Unit)
-ML_1 (gtk_clist_column_titles_hide, GtkCList_val, Unit)
-ML_2 (gtk_clist_column_title_active, GtkCList_val, Int_val, Unit)
-ML_2 (gtk_clist_column_title_passive, GtkCList_val, Int_val, Unit)
-ML_1 (gtk_clist_column_titles_active, GtkCList_val, Unit)
-ML_1 (gtk_clist_column_titles_passive, GtkCList_val, Unit)
-ML_3 (gtk_clist_set_column_title, GtkCList_val, Int_val, String_val, Unit)
-ML_2 (gtk_clist_get_column_title, GtkCList_val, Int_val, Val_string)
-ML_3 (gtk_clist_set_column_widget, GtkCList_val, Int_val, GtkWidget_val, Unit)
-ML_2 (gtk_clist_get_column_widget, GtkCList_val, Int_val, Val_GtkWidget)
-ML_3 (gtk_clist_set_column_justification, GtkCList_val, Int_val,
-      Justification_val, Unit)
-ML_3 (gtk_clist_set_column_visibility, GtkCList_val, Int_val, Bool_val, Unit)
-ML_3 (gtk_clist_set_column_resizeable, GtkCList_val, Int_val, Bool_val, Unit)
-ML_3 (gtk_clist_set_column_auto_resize, GtkCList_val, Int_val, Bool_val, Unit)
-ML_1 (gtk_clist_columns_autosize, GtkCList_val, Unit)
-ML_2 (gtk_clist_optimal_column_width, GtkCList_val, Int_val, Val_int)
-ML_3 (gtk_clist_set_column_width, GtkCList_val, Int_val, Int_val, Unit)
-ML_3 (gtk_clist_set_column_min_width, GtkCList_val, Int_val, Int_val, Unit)
-ML_3 (gtk_clist_set_column_max_width, GtkCList_val, Int_val, Int_val, Unit)
-ML_2 (gtk_clist_set_row_height, GtkCList_val, Int_val, Unit)
-ML_5 (gtk_clist_moveto, GtkCList_val, Int_val, Int_val,
-      Double_val, Double_val, Unit)
-ML_2 (gtk_clist_row_is_visible, GtkCList_val, Int_val, Val_visibility)
-ML_3 (gtk_clist_get_cell_type, GtkCList_val, Int_val, Int_val, Val_cell_type)
-ML_4 (gtk_clist_set_text, GtkCList_val, Int_val, Int_val, Optstring_val, Unit)
-value ml_gtk_clist_get_text (value clist, value row, value column)
-{
-    char *text;
-    if (!gtk_clist_get_text (GtkCList_val(clist), Int_val(row),
-                            Int_val(column), &text))
-       invalid_argument ("Gtk.Clist.get_text");
-    return Val_optstring(text);
-}
-ML_5 (gtk_clist_set_pixmap, GtkCList_val, Int_val, Int_val, GdkPixmap_val,
-      GdkBitmap_val, Unit)
-value ml_gtk_clist_get_pixmap (value clist, value row, value column)
-{
-    CAMLparam0 ();
-    GdkPixmap *pixmap;
-    GdkBitmap *bitmap;
-    CAMLlocal2 (vpixmap,vbitmap);
-    value ret;
-
-    if (!gtk_clist_get_pixmap (GtkCList_val(clist), Int_val(row),
-                              Int_val(column), &pixmap, &bitmap))
-       invalid_argument ("Gtk.Clist.get_pixmap");
-    vpixmap = Val_option (pixmap, Val_GdkPixmap);
-    vbitmap = Val_option (bitmap, Val_GdkBitmap);
-
-    ret = alloc_small (2,0);
-    Field(ret,0) = vpixmap;
-    Field(ret,1) = vbitmap;
-    CAMLreturn(ret);
-}
-ML_7 (gtk_clist_set_pixtext, GtkCList_val, Int_val, Int_val, String_val,
-      (guint8)Long_val, GdkPixmap_val, GdkBitmap_val, Unit)
-ML_bc7 (ml_gtk_clist_set_pixtext)
-ML_3 (gtk_clist_set_foreground, GtkCList_val, Int_val, GdkColor_val, Unit)
-ML_3 (gtk_clist_set_background, GtkCList_val, Int_val, GdkColor_val, Unit)
-ML_3 (gtk_clist_get_cell_style, GtkCList_val, Int_val, Int_val, Val_GtkStyle)
-ML_4 (gtk_clist_set_cell_style, GtkCList_val, Int_val, Int_val, GtkStyle_val,
-      Unit)
-ML_2 (gtk_clist_get_row_style, GtkCList_val, Int_val, Val_GtkStyle)
-ML_3 (gtk_clist_set_row_style, GtkCList_val, Int_val, GtkStyle_val, Unit)
-ML_3 (gtk_clist_set_selectable, GtkCList_val, Int_val, Bool_val, Unit)
-ML_2 (gtk_clist_get_selectable, GtkCList_val, Int_val, Val_bool)
-ML_5 (gtk_clist_set_shift, GtkCList_val, Int_val, Int_val, Int_val, Int_val,
-      Unit)
-/* ML_2 (gtk_clist_append, GtkCList_val, (char **), Val_int) */
-ML_3 (gtk_clist_insert, GtkCList_val, Int_val, (char **), Val_int)
-ML_2 (gtk_clist_remove, GtkCList_val, Int_val, Unit)
-value ml_gtk_clist_set_row_data (value w, value row, value data)
-{
-     value *data_p = ml_global_root_new (data);
-     gtk_clist_set_row_data_full (GtkCList_val(w), Int_val(row),
-                                 data_p, ml_global_root_destroy);
-     return Val_unit;
-}
-ML_2 (gtk_clist_get_row_data, GtkCList_val, Int_val, *(value*)Check_null)
-ML_3 (gtk_clist_select_row, GtkCList_val, Int_val, Int_val, Unit)
-ML_3 (gtk_clist_unselect_row, GtkCList_val, Int_val, Int_val, Unit)
-ML_1 (gtk_clist_clear, GtkCList_val, Unit)
-value ml_gtk_clist_get_selection_info (value clist, value x, value y)
-{
-    int row, column;
-    value ret;
-    if (!gtk_clist_get_selection_info (GtkCList_val(clist), Int_val(x),
-                            Int_val(y), &row, &column))
-       invalid_argument ("Gtk.Clist.get_selection_info");
-    ret = alloc_small (2,0);
-    Field(ret,0) = row;
-    Field(ret,1) = column;
-    return ret;
-}
-ML_1 (gtk_clist_select_all, GtkCList_val, Unit)
-ML_1 (gtk_clist_unselect_all, GtkCList_val, Unit)
-ML_3 (gtk_clist_swap_rows, GtkCList_val, Int_val, Int_val, Unit)
-ML_3 (gtk_clist_row_move, GtkCList_val, Int_val, Int_val, Unit)
-ML_2 (gtk_clist_set_sort_column, GtkCList_val, Int_val, Unit)
-ML_2 (gtk_clist_set_sort_type, GtkCList_val, Sort_type_val, Unit)
-ML_1 (gtk_clist_sort, GtkCList_val, Unit)
-ML_2 (gtk_clist_set_auto_sort, GtkCList_val, Bool_val, Unit)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkmenu.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkmenu.c
deleted file mode 100644 (file)
index 355b9fe..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkmenu.c
+++ /dev/null
@@ -1,97 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "ml_gtk.h"
-#include "gtk_tags.h"
-
-/* gtkmenuitem.h */
-
-#define GtkMenuItem_val(val) check_cast(GTK_MENU_ITEM,val)
-ML_0 (gtk_menu_item_new, Val_GtkWidget_sink)
-ML_0 (gtk_tearoff_menu_item_new, Val_GtkWidget_sink)
-ML_1 (gtk_menu_item_new_with_label, String_val, Val_GtkWidget_sink)
-ML_2 (gtk_menu_item_set_submenu, GtkMenuItem_val, GtkWidget_val, Unit)
-ML_1 (gtk_menu_item_remove_submenu, GtkMenuItem_val, Unit)
-ML_2 (gtk_menu_item_set_placement, GtkMenuItem_val,
-      Submenu_placement_val, Unit)
-ML_3 (gtk_menu_item_configure, GtkMenuItem_val, Bool_val, Bool_val, Unit)
-ML_1 (gtk_menu_item_activate, GtkMenuItem_val, Unit)
-ML_1 (gtk_menu_item_right_justify, GtkMenuItem_val, Unit)
-
-/* gtkcheckmenuitem.h */
-
-#define GtkCheckMenuItem_val(val) check_cast(GTK_CHECK_MENU_ITEM,val)
-ML_0 (gtk_check_menu_item_new, Val_GtkWidget_sink)
-ML_1 (gtk_check_menu_item_new_with_label, String_val, Val_GtkWidget_sink)
-ML_2 (gtk_check_menu_item_set_active, GtkCheckMenuItem_val, Bool_val, Unit)
-ML_2 (gtk_check_menu_item_set_show_toggle, GtkCheckMenuItem_val,
-      Bool_val, Unit)
-ML_1 (gtk_check_menu_item_toggled, GtkCheckMenuItem_val, Unit)
-Make_Extractor (gtk_check_menu_item_get, GtkCheckMenuItem_val,
-               active, Val_bool)
-
-/* gtkradiomenuitem.h */
-
-#define GtkRadioMenuItem_val(val) check_cast(GTK_RADIO_MENU_ITEM,val)
-static GSList* item_group_val(value val)
-{
-    return (val == Val_unit ? NULL :
-            gtk_radio_menu_item_group(GtkRadioMenuItem_val(Field(val,0))));
-}
-ML_1 (gtk_radio_menu_item_new, item_group_val, Val_GtkWidget_sink)
-ML_2 (gtk_radio_menu_item_new_with_label, item_group_val,
-      String_val, Val_GtkWidget_sink)
-ML_2 (gtk_radio_menu_item_set_group, GtkRadioMenuItem_val,
-      item_group_val, Unit)
-
-/* gtkoptionmenu.h */
-
-#define GtkOptionMenu_val(val) check_cast(GTK_OPTION_MENU,val)
-ML_0 (gtk_option_menu_new, Val_GtkWidget_sink)
-ML_1 (gtk_option_menu_get_menu, GtkOptionMenu_val, Val_GtkWidget_sink)
-ML_2 (gtk_option_menu_set_menu, GtkOptionMenu_val, GtkWidget_val, Unit)
-ML_1 (gtk_option_menu_remove_menu, GtkOptionMenu_val, Unit)
-ML_2 (gtk_option_menu_set_history, GtkOptionMenu_val, Int_val, Unit)
-
-/* gtkmenushell.h */
-
-#define GtkMenuShell_val(val) check_cast(GTK_MENU_SHELL,val)
-ML_2 (gtk_menu_shell_append, GtkMenuShell_val, GtkWidget_val, Unit)
-ML_2 (gtk_menu_shell_prepend, GtkMenuShell_val, GtkWidget_val, Unit)
-ML_3 (gtk_menu_shell_insert, GtkMenuShell_val, GtkWidget_val, Int_val, Unit)
-ML_1 (gtk_menu_shell_deactivate, GtkMenuShell_val, Unit)
-
-/* gtkmenu.h */
-
-#define GtkMenu_val(val) check_cast(GTK_MENU,val)
-ML_0 (gtk_menu_new, Val_GtkWidget_sink)
-ML_5 (gtk_menu_popup, GtkMenu_val, GtkWidget_val, GtkWidget_val,
-      Insert(NULL) Insert(NULL) Int_val, Int_val, Unit)
-ML_1 (gtk_menu_popdown, GtkMenu_val, Unit)
-ML_1 (gtk_menu_get_active, GtkMenu_val, Val_GtkWidget)
-ML_2 (gtk_menu_set_active, GtkMenu_val, Int_val, Unit)
-ML_2 (gtk_menu_set_accel_group, GtkMenu_val, GtkAccelGroup_val, Unit)
-ML_1 (gtk_menu_get_accel_group, GtkMenu_val, Val_GtkAccelGroup)
-ML_1 (gtk_menu_ensure_uline_accel_group, GtkMenu_val, Val_GtkAccelGroup)
-value ml_gtk_menu_attach_to_widget (value menu, value widget)
-{
-    gtk_menu_attach_to_widget (GtkMenu_val(menu), GtkWidget_val(widget), NULL);
-    return Val_unit;
-}
-ML_1 (gtk_menu_get_attach_widget, GtkMenu_val, Val_GtkWidget)
-ML_1 (gtk_menu_detach, GtkMenu_val, Unit)
-
-/* gtkmenubar.h */
-
-#define GtkMenuBar_val(val) check_cast(GTK_MENU_BAR,val)
-ML_0 (gtk_menu_bar_new, Val_GtkWidget_sink)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkmisc.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkmisc.c
deleted file mode 100644 (file)
index f69f343..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkmisc.c
+++ /dev/null
@@ -1,139 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "ml_gtk.h"
-#include "gtk_tags.h"
-
-/* gtkgamma.h */
-
-#define GtkGammaCurve_val(val) check_cast(GTK_GAMMA_CURVE,val)
-ML_0 (gtk_gamma_curve_new, Val_GtkWidget_sink)
-Make_Extractor (gtk_gamma_curve_get, GtkGammaCurve_val, gamma, copy_double)
-
-/* gtkstatusbar.h */
-
-#define GtkStatusbar_val(val) check_cast(GTK_STATUSBAR,val)
-ML_0 (gtk_statusbar_new, Val_GtkWidget_sink)
-ML_2 (gtk_statusbar_get_context_id, GtkStatusbar_val, String_val, Val_int)
-ML_3 (gtk_statusbar_push, GtkStatusbar_val, Int_val, String_val, Val_int)
-ML_2 (gtk_statusbar_pop, GtkStatusbar_val, Int_val, Unit)
-ML_3 (gtk_statusbar_remove, GtkStatusbar_val, Int_val, Int_val, Unit)
-
-/* gtkcalendar.h */
-
-#define GtkCalendar_val(val) check_cast(GTK_CALENDAR,val)
-ML_0 (gtk_calendar_new, Val_GtkWidget_sink)
-ML_3 (gtk_calendar_select_month, GtkCalendar_val, Int_val, Int_val, Unit)
-ML_2 (gtk_calendar_select_day, GtkCalendar_val, Int_val, Unit)
-ML_2 (gtk_calendar_mark_day, GtkCalendar_val, Int_val, Unit)
-ML_2 (gtk_calendar_unmark_day, GtkCalendar_val, Int_val, Unit)
-ML_1 (gtk_calendar_clear_marks, GtkCalendar_val, Unit)
-Make_Flags_val (Calendar_display_options_val)
-ML_2 (gtk_calendar_display_options, GtkCalendar_val,
-      Flags_Calendar_display_options_val, Unit)
-value ml_gtk_calendar_get_date (value w)
-{
-    guint year, month, day;
-    value ret;
-
-    gtk_calendar_get_date (GtkCalendar_val(w), &year, &month, &day);
-    ret = alloc_small (3, 0);
-    Field(ret,0) = Val_int(year);
-    Field(ret,1) = Val_int(month);
-    Field(ret,2) = Val_int(day);
-    return ret;
-}
-ML_1 (gtk_calendar_freeze, GtkCalendar_val, Unit)
-ML_1 (gtk_calendar_thaw, GtkCalendar_val, Unit)
-
-/* gtkdrawingarea.h */
-
-#define GtkDrawingArea_val(val) check_cast(GTK_DRAWING_AREA,val)
-ML_0 (gtk_drawing_area_new, Val_GtkWidget_sink)
-ML_3 (gtk_drawing_area_size, GtkDrawingArea_val, Int_val, Int_val, Unit)
-
-/* gtkmisc.h */
-
-#define GtkMisc_val(val) check_cast(GTK_MISC,val)
-ML_3 (gtk_misc_set_alignment, GtkMisc_val, Double_val, Double_val, Unit)
-ML_3 (gtk_misc_set_padding, GtkMisc_val, Int_val, Int_val, Unit)
-Make_Extractor (gtk_misc_get, GtkMisc_val, xalign, copy_double)
-Make_Extractor (gtk_misc_get, GtkMisc_val, yalign, copy_double)
-Make_Extractor (gtk_misc_get, GtkMisc_val, xpad, Val_int)
-Make_Extractor (gtk_misc_get, GtkMisc_val, ypad, Val_int)
-
-/* gtkarrow.h */
-
-#define GtkArrow_val(val) check_cast(GTK_ARROW,val)
-ML_2 (gtk_arrow_new, Arrow_type_val, Shadow_type_val, Val_GtkWidget_sink)
-ML_3 (gtk_arrow_set, GtkArrow_val, Arrow_type_val, Shadow_type_val, Unit)
-
-/* gtkimage.h */
-
-#define GtkImage_val(val) check_cast(GTK_IMAGE,val)
-ML_2 (gtk_image_new, GdkImage_val,
-      Option_val (arg2, GdkBitmap_val, NULL) Ignore, Val_GtkWidget_sink)
-ML_3 (gtk_image_set, GtkImage_val, GdkImage_val,
-      Option_val (arg2, GdkBitmap_val, NULL) Ignore, Unit)
-
-/* gtklabel.h */
-
-#define GtkLabel_val(val) check_cast(GTK_LABEL,val)
-ML_1 (gtk_label_new, String_val, Val_GtkWidget_sink)
-ML_2 (gtk_label_set_text, GtkLabel_val, String_val, Unit)
-ML_2 (gtk_label_set_pattern, GtkLabel_val, String_val, Unit)
-ML_2 (gtk_label_set_justify, GtkLabel_val, Justification_val, Unit)
-ML_2 (gtk_label_set_line_wrap, GtkLabel_val, Bool_val, Unit)
-Make_Extractor (gtk_label_get, GtkLabel_val, label, Val_string)
-
-/* gtktipsquery.h */
-
-#define GtkTipsQuery_val(val) check_cast(GTK_TIPS_QUERY,val)
-ML_0 (gtk_tips_query_new, Val_GtkWidget_sink)
-ML_1 (gtk_tips_query_start_query, GtkTipsQuery_val, Unit)
-ML_1 (gtk_tips_query_stop_query, GtkTipsQuery_val, Unit)
-ML_2 (gtk_tips_query_set_caller, GtkTipsQuery_val, GtkWidget_val, Unit)
-ML_3 (gtk_tips_query_set_labels, GtkTipsQuery_val,
-      String_val, String_val, Unit)
-value ml_gtk_tips_query_set_emit_always (value w, value arg)
-{
-    GtkTipsQuery_val(w)->emit_always = Bool_val(arg);
-    return Val_unit;
-}
-Make_Extractor (gtk_tips_query_get, GtkTipsQuery_val, emit_always, Val_bool)
-Make_Extractor (gtk_tips_query_get, GtkTipsQuery_val, caller, Val_GtkWidget)
-Make_Extractor (gtk_tips_query_get, GtkTipsQuery_val, label_inactive,
-               Val_string)
-Make_Extractor (gtk_tips_query_get, GtkTipsQuery_val, label_no_tip,
-               Val_string)
-
-/* gtkpixmap.h */
-
-#define GtkPixmap_val(val) check_cast(GTK_PIXMAP,val)
-ML_2 (gtk_pixmap_new, GdkPixmap_val,
-      Option_val (arg2, GdkBitmap_val, NULL) Ignore,
-      Val_GtkWidget_sink)
-value ml_gtk_pixmap_set (value val, value pixmap, value mask)
-{
-    GtkPixmap *w = GtkPixmap_val(val);
-    gtk_pixmap_set (w, Option_val(pixmap,GdkPixmap_val,w->pixmap),
-                   Option_val(mask,GdkBitmap_val,w->mask));
-    return Val_unit;
-}
-Make_Extractor (GtkPixmap, GtkPixmap_val, pixmap, Val_GdkPixmap)
-Make_Extractor (GtkPixmap, GtkPixmap_val, mask, Val_GdkBitmap)
-
-/* gtk[hv]separator.h */
-
-ML_0 (gtk_hseparator_new, Val_GtkWidget_sink)
-ML_0 (gtk_vseparator_new, Val_GtkWidget_sink)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtknew.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtknew.c
deleted file mode 100644 (file)
index a75c1fb..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtknew.c
+++ /dev/null
@@ -1,180 +0,0 @@
-/* $Id$ */
-
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "ml_gtk.h"
-
-static value ml_class_init=0;
-
-static void class_init (value class)
-{
-  callback(ml_class_init, class);
-}
-
-
-value set_ml_class_init (value class_func)
-{
-  if (!ml_class_init) register_global_root (&ml_class_init);
-  ml_class_init = class_func;
-  return Val_unit;
-}
-
-value ml_gtk_type_new (value type)
-{
-  return Val_GtkWidget_sink(gtk_type_new(Int_val(type)));
-}
-
-
-struct widget_info {
-  guint size;
-  guint class_size;
-  guint (*get_type_func)(void);
-}
-widget_info_array[] = {
-  { sizeof(GtkObject), sizeof(GtkObjectClass), gtk_object_get_type },
-  { sizeof(GtkWidget), sizeof(GtkWidgetClass), gtk_widget_get_type },
-  { sizeof(GtkMisc), sizeof(GtkMiscClass), gtk_misc_get_type },
-  { sizeof(GtkLabel), sizeof(GtkLabelClass), gtk_label_get_type },
-  { sizeof(GtkAccelLabel), sizeof(GtkAccelLabelClass), gtk_accel_label_get_type },
-  { sizeof(GtkTipsQuery), sizeof(GtkTipsQueryClass), gtk_tips_query_get_type },
-  { sizeof(GtkArrow), sizeof(GtkArrowClass), gtk_arrow_get_type },
-  { sizeof(GtkImage), sizeof(GtkImageClass), gtk_image_get_type },
-  { sizeof(GtkPixmap), sizeof(GtkPixmapClass), gtk_pixmap_get_type },
-  { sizeof(GtkContainer), sizeof(GtkContainerClass), gtk_container_get_type },
-  { sizeof(GtkBin), sizeof(GtkBinClass), gtk_bin_get_type },
-  { sizeof(GtkAlignment), sizeof(GtkAlignmentClass), gtk_alignment_get_type },
-  { sizeof(GtkFrame), sizeof(GtkFrameClass), gtk_frame_get_type },
-  { sizeof(GtkAspectFrame), sizeof(GtkAspectFrameClass), gtk_aspect_frame_get_type },
-  { sizeof(GtkButton), sizeof(GtkButtonClass), gtk_button_get_type },
-  { sizeof(GtkToggleButton), sizeof(GtkToggleButtonClass), gtk_toggle_button_get_type },
-  { sizeof(GtkCheckButton), sizeof(GtkCheckButtonClass), gtk_check_button_get_type },
-  { sizeof(GtkRadioButton), sizeof(GtkRadioButtonClass), gtk_radio_button_get_type },
-  { sizeof(GtkOptionMenu), sizeof(GtkOptionMenuClass), gtk_option_menu_get_type },
-  { sizeof(GtkItem), sizeof(GtkItemClass), gtk_item_get_type },
-  { sizeof(GtkMenuItem), sizeof(GtkMenuItemClass), gtk_menu_item_get_type },
-  { sizeof(GtkCheckMenuItem), sizeof(GtkCheckMenuItemClass), gtk_check_menu_item_get_type },
-  { sizeof(GtkRadioMenuItem), sizeof(GtkRadioMenuItemClass), gtk_radio_menu_item_get_type },
-  { sizeof(GtkTearoffMenuItem), sizeof(GtkTearoffMenuItemClass), gtk_tearoff_menu_item_get_type },
-  { sizeof(GtkListItem), sizeof(GtkListItemClass), gtk_list_item_get_type },
-  { sizeof(GtkTreeItem), sizeof(GtkTreeItemClass), gtk_tree_item_get_type },
-  { sizeof(GtkWindow), sizeof(GtkWindowClass), gtk_window_get_type },
-  { sizeof(GtkColorSelectionDialog), sizeof(GtkColorSelectionDialogClass), gtk_color_selection_dialog_get_type },
-  { sizeof(GtkDialog), sizeof(GtkDialogClass), gtk_dialog_get_type },
-  { sizeof(GtkInputDialog), sizeof(GtkInputDialogClass), gtk_input_dialog_get_type },
-  { sizeof(GtkFileSelection), sizeof(GtkFileSelectionClass), gtk_file_selection_get_type },
-  { sizeof(GtkFontSelectionDialog), sizeof(GtkFontSelectionDialogClass), gtk_font_selection_dialog_get_type },
-  { sizeof(GtkPlug), sizeof(GtkPlugClass), gtk_plug_get_type },
-  { sizeof(GtkEventBox), sizeof(GtkEventBoxClass), gtk_event_box_get_type },
-  { sizeof(GtkHandleBox), sizeof(GtkHandleBoxClass), gtk_handle_box_get_type },
-  { sizeof(GtkScrolledWindow), sizeof(GtkScrolledWindowClass), gtk_scrolled_window_get_type },
-  { sizeof(GtkViewport), sizeof(GtkViewportClass), gtk_viewport_get_type },
-  { sizeof(GtkBox), sizeof(GtkBoxClass), gtk_box_get_type },
-  { sizeof(GtkButtonBox), sizeof(GtkButtonBoxClass), gtk_button_box_get_type },
-  { sizeof(GtkHButtonBox), sizeof(GtkHButtonBoxClass), gtk_hbutton_box_get_type },
-  { sizeof(GtkVButtonBox), sizeof(GtkVButtonBoxClass), gtk_vbutton_box_get_type },
-  { sizeof(GtkVBox), sizeof(GtkVBoxClass), gtk_vbox_get_type },
-  { sizeof(GtkColorSelection), sizeof(GtkColorSelectionClass), gtk_color_selection_get_type },
-  { sizeof(GtkGammaCurve), sizeof(GtkGammaCurveClass), gtk_gamma_curve_get_type },
-  { sizeof(GtkHBox), sizeof(GtkHBoxClass), gtk_hbox_get_type },
-  { sizeof(GtkCombo), sizeof(GtkComboClass), gtk_combo_get_type },
-  { sizeof(GtkStatusbar), sizeof(GtkStatusbarClass), gtk_statusbar_get_type },
-  { sizeof(GtkCList), sizeof(GtkCListClass), gtk_clist_get_type },
-  { sizeof(GtkCTree), sizeof(GtkCTreeClass), gtk_ctree_get_type },
-  { sizeof(GtkFixed), sizeof(GtkFixedClass), gtk_fixed_get_type },
-  { sizeof(GtkNotebook), sizeof(GtkNotebookClass), gtk_notebook_get_type },
-  { sizeof(GtkFontSelection), sizeof(GtkFontSelectionClass), gtk_font_selection_get_type },
-  { sizeof(GtkPaned), sizeof(GtkPanedClass), gtk_paned_get_type },
-  { sizeof(GtkHPaned), sizeof(GtkHPanedClass), gtk_hpaned_get_type },
-  { sizeof(GtkVPaned), sizeof(GtkVPanedClass), gtk_vpaned_get_type },
-  { sizeof(GtkLayout), sizeof(GtkLayoutClass), gtk_layout_get_type },
-  { sizeof(GtkList), sizeof(GtkListClass), gtk_list_get_type },
-  { sizeof(GtkMenuShell), sizeof(GtkMenuShellClass), gtk_menu_shell_get_type },
-  { sizeof(GtkMenuBar), sizeof(GtkMenuBarClass), gtk_menu_bar_get_type },
-  { sizeof(GtkMenu), sizeof(GtkMenuClass), gtk_menu_get_type },
-  { sizeof(GtkPacker), sizeof(GtkPackerClass), gtk_packer_get_type },
-  { sizeof(GtkSocket), sizeof(GtkSocketClass), gtk_socket_get_type },
-  { sizeof(GtkTable), sizeof(GtkTableClass), gtk_table_get_type },
-  { sizeof(GtkToolbar), sizeof(GtkToolbarClass), gtk_toolbar_get_type },
-  { sizeof(GtkTree), sizeof(GtkTreeClass), gtk_tree_get_type },
-  { sizeof(GtkCalendar), sizeof(GtkCalendarClass), gtk_calendar_get_type },
-  { sizeof(GtkDrawingArea), sizeof(GtkDrawingAreaClass), gtk_drawing_area_get_type },
-  { sizeof(GtkCurve), sizeof(GtkCurveClass), gtk_curve_get_type },
-  { sizeof(GtkEditable), sizeof(GtkEditableClass), gtk_editable_get_type },
-  { sizeof(GtkEntry), sizeof(GtkEntryClass), gtk_entry_get_type },
-  { sizeof(GtkSpinButton), sizeof(GtkSpinButtonClass), gtk_spin_button_get_type },
-  { sizeof(GtkText), sizeof(GtkTextClass), gtk_text_get_type },
-  { sizeof(GtkRuler), sizeof(GtkRulerClass), gtk_ruler_get_type },
-  { sizeof(GtkHRuler), sizeof(GtkHRulerClass), gtk_hruler_get_type },
-  { sizeof(GtkVRuler), sizeof(GtkVRulerClass), gtk_vruler_get_type },
-  { sizeof(GtkRange), sizeof(GtkRangeClass), gtk_range_get_type },
-  { sizeof(GtkScale), sizeof(GtkScaleClass), gtk_scale_get_type },
-  { sizeof(GtkHScale), sizeof(GtkHScaleClass), gtk_hscale_get_type },
-  { sizeof(GtkVScale), sizeof(GtkVScaleClass), gtk_vscale_get_type },
-  { sizeof(GtkScrollbar), sizeof(GtkScrollbarClass), gtk_scrollbar_get_type },
-  { sizeof(GtkHScrollbar), sizeof(GtkHScrollbarClass), gtk_hscrollbar_get_type },
-  { sizeof(GtkVScrollbar), sizeof(GtkVScrollbarClass), gtk_vscrollbar_get_type },
-  { sizeof(GtkSeparator), sizeof(GtkSeparatorClass), gtk_separator_get_type },
-  { sizeof(GtkHSeparator), sizeof(GtkHSeparatorClass), gtk_hseparator_get_type },
-  { sizeof(GtkVSeparator), sizeof(GtkVSeparatorClass), gtk_vseparator_get_type },
-  { sizeof(GtkPreview), sizeof(GtkPreviewClass), gtk_preview_get_type },
-  { sizeof(GtkProgress), sizeof(GtkProgressClass), gtk_progress_get_type },
-  { sizeof(GtkProgressBar), sizeof(GtkProgressBarClass), gtk_progress_bar_get_type },
-  { sizeof(GtkData), sizeof(GtkDataClass), gtk_data_get_type },
-  { sizeof(GtkAdjustment), sizeof(GtkAdjustmentClass), gtk_adjustment_get_type },
-  { sizeof(GtkTooltips), sizeof(GtkTooltipsClass), gtk_tooltips_get_type },
-  { sizeof(GtkItemFactory), sizeof(GtkItemFactoryClass), gtk_item_factory_get_type }
-};
-
-
-value ml_gtk_type_unique (value name, value parent, value nsignals)
-{
-  struct widget_info * wi;
-  GtkTypeInfo ttt_info;
-
-  wi = widget_info_array + Int_val(parent);
-  ttt_info.type_name = String_val(name);
-  ttt_info.object_size = wi->size;
-  ttt_info.class_size = wi->class_size + Int_val(nsignals)*sizeof(void *);
-  ttt_info.class_init_func = (GtkClassInitFunc) class_init;
-  ttt_info.object_init_func = (GtkObjectInitFunc) NULL;
-  ttt_info.reserved_1 = NULL;
-  ttt_info.reserved_2 = NULL;
-  ttt_info.base_class_init_func = (GtkClassInitFunc) NULL;
-
-  return Val_int(gtk_type_unique(wi->get_type_func (), &ttt_info));
-}
-
-static guint sig[100];
-
-value ml_gtk_object_class_add_signals (value class, value signals,
-                                      value nsignals)
-{
-  int i;
-  for (i=0; i<nsignals; i++)
-    sig[i] = Int_val(Field(signals, i));
-  gtk_object_class_add_signals ((GtkObjectClass *)class,
-              sig, Int_val(nsignals));
-  return Val_unit;
-}
-
-value ml_gtk_signal_new (value name, value run_type, value classe,
-                        value parent, value num)
-{
-  struct widget_info * wi;
-  int offset;
-
-  wi = widget_info_array + Int_val(parent);
-  offset = wi->class_size+Int_val(num)*sizeof(void *);
-  return Val_int(gtk_signal_new (String_val(name), Int_val(run_type),
-                  ((GtkObjectClass *)classe)->type, offset,
-                  gtk_signal_default_marshaller, GTK_TYPE_NONE, 0));
-  *(((int *)classe)+offset) = 0;
-}

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkpack.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkpack.c
deleted file mode 100644 (file)
index b089b88..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkpack.c
+++ /dev/null
@@ -1,229 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "ml_gtk.h"
-#include "gtk_tags.h"
-
-static Make_Flags_val (Attach_options_val)
-
-/* gtkbox.h */
-
-#define GtkBox_val(val) check_cast(GTK_BOX,val)
-ML_5 (gtk_box_pack_start, GtkBox_val, GtkWidget_val, Bool_val, Bool_val,
-      Int_val, Unit)
-ML_5 (gtk_box_pack_end, GtkBox_val, GtkWidget_val, Bool_val, Bool_val,
-      Int_val, Unit)
-ML_2 (gtk_box_set_homogeneous, GtkBox_val, Bool_val, Unit)
-ML_2 (gtk_box_set_spacing, GtkBox_val, Int_val, Unit)
-ML_3 (gtk_box_reorder_child, GtkBox_val, GtkWidget_val, Int_val, Unit)
-value ml_gtk_box_query_child_packing (value box, value child)
-{
-    int expand, fill;
-    unsigned int padding;
-    GtkPackType pack_type;
-    value ret;
-    gtk_box_query_child_packing (GtkBox_val(box), GtkWidget_val(child),
-                                &expand, &fill, &padding, &pack_type);
-    ret = alloc_small(4,0);
-    Field(ret,0) = Val_bool(expand);
-    Field(ret,1) = Val_bool(fill);
-    Field(ret,2) = Val_int(padding);
-    Field(ret,3) = Val_pack_type(pack_type);
-    return ret;
-}
-value ml_gtk_box_set_child_packing (value vbox, value vchild, value vexpand,
-                                   value vfill, value vpadding, value vpack)
-{
-    GtkBox *box = GtkBox_val(vbox);
-    GtkWidget *child = GtkWidget_val(vchild);
-    int expand, fill;
-    unsigned int padding;
-    GtkPackType pack;
-    gtk_box_query_child_packing (box, child, &expand, &fill, &padding, &pack);
-    gtk_box_set_child_packing (box, child,
-                              Option_val(vexpand, Bool_val, expand),
-                              Option_val(vfill, Bool_val, fill),
-                              Option_val(vpadding, Int_val, padding),
-                              Option_val(vpack, Pack_type_val, pack));
-    return Val_unit;
-}
-ML_bc6 (ml_gtk_box_set_child_packing)
-
-ML_2 (gtk_hbox_new, Bool_val, Int_val, Val_GtkWidget_sink)
-ML_2 (gtk_vbox_new, Bool_val, Int_val, Val_GtkWidget_sink)
-
-/* gtkbbox.h */
-    
-#define GtkButtonBox_val(val) check_cast(GTK_BUTTON_BOX,val)
-Make_Extractor (gtk_button_box_get, GtkButtonBox_val, spacing, Val_int)
-Make_Extractor (gtk_button_box_get, GtkButtonBox_val, child_min_width, Val_int)
-Make_Extractor (gtk_button_box_get, GtkButtonBox_val, child_min_height,
-               Val_int)
-Make_Extractor (gtk_button_box_get, GtkButtonBox_val, child_ipad_x, Val_int)
-Make_Extractor (gtk_button_box_get, GtkButtonBox_val, child_ipad_y, Val_int)
-Make_Extractor (gtk_button_box_get, GtkButtonBox_val, layout_style,
-               Val_button_box_style)
-ML_2 (gtk_button_box_set_spacing, GtkButtonBox_val, Int_val, Unit)
-ML_3 (gtk_button_box_set_child_size, GtkButtonBox_val,
-      Int_val, Int_val, Unit)
-ML_3 (gtk_button_box_set_child_ipadding, GtkButtonBox_val,
-      Int_val, Int_val, Unit)
-ML_2 (gtk_button_box_set_layout, GtkButtonBox_val, Button_box_style_val, Unit)
-ML_2 (gtk_button_box_set_child_size_default, Int_val, Int_val, Unit)
-ML_2 (gtk_button_box_set_child_ipadding_default, Int_val, Int_val, Unit)
-
-ML_0 (gtk_hbutton_box_new, Val_GtkWidget_sink)
-ML_0 (gtk_vbutton_box_new, Val_GtkWidget_sink)
-
-/* gtkfixed.h */
-
-#define GtkFixed_val(val) check_cast(GTK_FIXED,val)
-ML_0 (gtk_fixed_new, Val_GtkWidget_sink)
-ML_4 (gtk_fixed_put, GtkFixed_val, GtkWidget_val, (gint16)Long_val, (gint16)Long_val, Unit)
-ML_4 (gtk_fixed_move, GtkFixed_val, GtkWidget_val, (gint16)Long_val, (gint16)Long_val, Unit)
-
-/* gtklayout.h */
-
-#define GtkLayout_val(val) check_cast(GTK_LAYOUT,val)
-ML_2 (gtk_layout_new, GtkAdjustment_val, GtkAdjustment_val, Val_GtkWidget_sink)
-ML_4 (gtk_layout_put, GtkLayout_val, GtkWidget_val, Int_val, Int_val, Unit)
-ML_4 (gtk_layout_move, GtkLayout_val, GtkWidget_val, Int_val, Int_val, Unit)
-ML_3 (gtk_layout_set_size, GtkLayout_val, Int_val, Int_val, Unit)
-ML_1 (gtk_layout_get_hadjustment, GtkLayout_val, Val_GtkAny)
-ML_1 (gtk_layout_get_vadjustment, GtkLayout_val, Val_GtkAny)
-ML_2 (gtk_layout_set_hadjustment, GtkLayout_val, GtkAdjustment_val, Unit)
-ML_2 (gtk_layout_set_vadjustment, GtkLayout_val, GtkAdjustment_val, Unit)
-ML_1 (gtk_layout_freeze, GtkLayout_val, Unit)
-ML_1 (gtk_layout_thaw, GtkLayout_val, Unit)
-Make_Extractor (gtk_layout_get, GtkLayout_val, width, Val_int)
-Make_Extractor (gtk_layout_get, GtkLayout_val, height, Val_int)
-
-/* gtknotebook.h */
-
-#define GtkNotebook_val(val) check_cast(GTK_NOTEBOOK,val)
-ML_0 (gtk_notebook_new, Val_GtkWidget_sink)
-
-ML_5 (gtk_notebook_insert_page_menu, GtkNotebook_val, GtkWidget_val,
-      GtkWidget_val, GtkWidget_val, Int_val, Unit)
-ML_2 (gtk_notebook_remove_page, GtkNotebook_val, Int_val, Unit)
-
-ML_2 (gtk_notebook_set_tab_pos, GtkNotebook_val, Position_val, Unit)
-ML_2 (gtk_notebook_set_homogeneous_tabs, GtkNotebook_val, Bool_val, Unit)
-ML_2 (gtk_notebook_set_show_tabs, GtkNotebook_val, Bool_val, Unit)
-ML_2 (gtk_notebook_set_show_border, GtkNotebook_val, Bool_val, Unit)
-ML_2 (gtk_notebook_set_scrollable, GtkNotebook_val, Bool_val, Unit)
-ML_2 (gtk_notebook_set_tab_border, GtkNotebook_val, Int_val, Unit)
-ML_1 (gtk_notebook_popup_enable, GtkNotebook_val, Unit)
-ML_1 (gtk_notebook_popup_disable, GtkNotebook_val, Unit)
-
-ML_1 (gtk_notebook_get_current_page, GtkNotebook_val, Val_int)
-ML_2 (gtk_notebook_set_page, GtkNotebook_val, Int_val, Unit)
-ML_2 (gtk_notebook_get_nth_page, GtkNotebook_val, Int_val, Val_GtkWidget)
-ML_2 (gtk_notebook_page_num, GtkNotebook_val, GtkWidget_val, Val_int)
-ML_1 (gtk_notebook_next_page, GtkNotebook_val, Unit)
-ML_1 (gtk_notebook_prev_page, GtkNotebook_val, Unit)
-
-ML_2 (gtk_notebook_get_tab_label, GtkNotebook_val, GtkWidget_val,
-      Val_GtkWidget)
-ML_3 (gtk_notebook_set_tab_label, GtkNotebook_val, GtkWidget_val,
-      GtkWidget_val, Unit)
-ML_2 (gtk_notebook_get_menu_label, GtkNotebook_val, GtkWidget_val,
-      Val_GtkWidget)
-ML_3 (gtk_notebook_set_menu_label, GtkNotebook_val, GtkWidget_val,
-      GtkWidget_val, Unit)
-ML_3 (gtk_notebook_reorder_child, GtkNotebook_val, GtkWidget_val,
-      Int_val, Unit)
-
-
-/* gtkpacker.h */
-
-Make_OptFlags_val(Packer_options_val)
-
-#define GtkPacker_val(val) check_cast(GTK_PACKER,val)
-ML_0 (gtk_packer_new, Val_GtkWidget_sink)
-ML_10 (gtk_packer_add, GtkPacker_val, GtkWidget_val,
-       Option_val(arg3,Side_type_val,GTK_SIDE_TOP) Ignore,
-       Option_val(arg4,Anchor_type_val,GTK_ANCHOR_CENTER) Ignore,
-       OptFlags_Packer_options_val,
-       Option_val(arg6,Int_val,GtkPacker_val(arg1)->default_border_width) Ignore,
-       Option_val(arg7,Int_val,GtkPacker_val(arg1)->default_pad_x) Ignore,
-       Option_val(arg8,Int_val,GtkPacker_val(arg1)->default_pad_y) Ignore,
-       Option_val(arg9,Int_val,GtkPacker_val(arg1)->default_i_pad_x) Ignore,
-       Option_val(arg10,Int_val,GtkPacker_val(arg1)->default_i_pad_y) Ignore,
-       Unit)
-ML_bc10 (ml_gtk_packer_add)
-ML_5 (gtk_packer_add_defaults, GtkPacker_val, GtkWidget_val,
-       Option_val(arg3,Side_type_val,GTK_SIDE_TOP) Ignore,
-       Option_val(arg4,Anchor_type_val,GTK_ANCHOR_CENTER) Ignore,
-       OptFlags_Packer_options_val, Unit)
-ML_10 (gtk_packer_set_child_packing, GtkPacker_val, GtkWidget_val,
-       Option_val(arg3,Side_type_val,GTK_SIDE_TOP) Ignore,
-       Option_val(arg4,Anchor_type_val,GTK_ANCHOR_CENTER) Ignore,
-       OptFlags_Packer_options_val,
-       Option_val(arg6,Int_val,GtkPacker_val(arg1)->default_border_width) Ignore,
-       Option_val(arg7,Int_val,GtkPacker_val(arg1)->default_pad_x) Ignore,
-       Option_val(arg8,Int_val,GtkPacker_val(arg1)->default_pad_y) Ignore,
-       Option_val(arg9,Int_val,GtkPacker_val(arg1)->default_i_pad_x) Ignore,
-       Option_val(arg10,Int_val,GtkPacker_val(arg1)->default_i_pad_y) Ignore,
-       Unit)
-ML_bc10 (ml_gtk_packer_set_child_packing)
-ML_3 (gtk_packer_reorder_child, GtkPacker_val, GtkWidget_val,
-      Int_val, Unit)
-ML_2 (gtk_packer_set_spacing, GtkPacker_val, Int_val, Unit)
-value ml_gtk_packer_set_defaults (value w, value border_width,
-                                 value pad_x, value pad_y,
-                                 value i_pad_x, value i_pad_y)
-{
-    GtkPacker *p = GtkPacker_val(w);
-    if (Is_block(border_width))
-       gtk_packer_set_default_border_width (p,Int_val(Field(border_width,0)));
-    if (Is_block(pad_x) || Is_block(pad_y))
-       gtk_packer_set_default_pad
-           (p, Option_val(pad_x,Int_val,p->default_pad_x),
-               Option_val(pad_y,Int_val,p->default_pad_y));
-    if (Is_block(i_pad_x) || Is_block(i_pad_y))
-       gtk_packer_set_default_ipad
-           (p, Option_val(pad_x,Int_val,p->default_i_pad_x),
-               Option_val(pad_y,Int_val,p->default_i_pad_y));
-    return Val_unit;
-}
-ML_bc6 (ml_gtk_packer_set_defaults)
-
-/* gtkpaned.h */
-
-#define GtkPaned_val(val) check_cast(GTK_PANED,val)
-ML_0 (gtk_hpaned_new, Val_GtkWidget_sink)
-ML_0 (gtk_vpaned_new, Val_GtkWidget_sink)
-ML_2 (gtk_paned_add1, GtkPaned_val, GtkWidget_val, Unit)
-ML_2 (gtk_paned_add2, GtkPaned_val, GtkWidget_val, Unit)
-ML_2 (gtk_paned_set_handle_size, GtkPaned_val, (gint16)Int_val, Unit)
-ML_2 (gtk_paned_set_gutter_size, GtkPaned_val, (gint16)Int_val, Unit)
-Make_Extractor (gtk_paned, GtkPaned_val, child1, Val_GtkWidget)
-Make_Extractor (gtk_paned, GtkPaned_val, child2, Val_GtkWidget)
-Make_Extractor (gtk_paned, GtkPaned_val, handle_size, Val_int)
-Make_Extractor (gtk_paned, GtkPaned_val, gutter_size, Val_int)
-
-/* gtktable.h */
-
-#define GtkTable_val(val) check_cast(GTK_TABLE,val)
-ML_3 (gtk_table_new, Int_val, Int_val, Int_val, Val_GtkWidget_sink)
-ML_10 (gtk_table_attach, GtkTable_val, GtkWidget_val,
-       Int_val, Int_val, Int_val, Int_val,
-       Flags_Attach_options_val, Flags_Attach_options_val,
-       Int_val, Int_val, Unit)
-ML_bc10 (ml_gtk_table_attach)
-ML_3 (gtk_table_set_row_spacing, GtkTable_val, Int_val, Int_val, Unit)
-ML_3 (gtk_table_set_col_spacing, GtkTable_val, Int_val, Int_val, Unit)
-ML_2 (gtk_table_set_row_spacings, GtkTable_val, Int_val, Unit)
-ML_2 (gtk_table_set_col_spacings, GtkTable_val, Int_val, Unit)
-ML_2 (gtk_table_set_homogeneous, GtkTable_val, Bool_val, Unit)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkrange.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkrange.c
deleted file mode 100644 (file)
index 642d269..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkrange.c
+++ /dev/null
@@ -1,88 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "ml_gtk.h"
-#include "gtk_tags.h"
-
-/* gtkprogress.h */
-
-#define GtkProgress_val(val) check_cast(GTK_PROGRESS,val)
-ML_2 (gtk_progress_set_show_text, GtkProgress_val, Bool_val, Unit)
-ML_3 (gtk_progress_set_text_alignment, GtkProgress_val,
-      Option_val(arg2,Float_val,(GtkProgress_val(arg1))->x_align) Ignore,
-      Option_val(arg3,Float_val,(GtkProgress_val(arg1))->y_align) Ignore, Unit)
-ML_2 (gtk_progress_set_format_string, GtkProgress_val, String_val, Unit)
-ML_2 (gtk_progress_set_adjustment, GtkProgress_val, GtkAdjustment_val, Unit)
-ML_4 (gtk_progress_configure, GtkProgress_val,
-      Float_val, Float_val, Float_val, Unit)
-ML_2 (gtk_progress_set_percentage, GtkProgress_val, Float_val, Unit)
-ML_2 (gtk_progress_set_value, GtkProgress_val, Float_val, Unit)
-ML_1 (gtk_progress_get_value, GtkProgress_val, copy_double)
-ML_1 (gtk_progress_get_current_percentage, GtkProgress_val, copy_double)
-ML_2 (gtk_progress_set_activity_mode, GtkProgress_val, Bool_val, Unit)
-ML_1 (gtk_progress_get_current_text, GtkProgress_val, Val_string)
-Make_Extractor (gtk_progress_get, GtkProgress_val, adjustment,
-               Val_GtkAny)
-
-/* gtkprogressbar.h */
-
-#define GtkProgressBar_val(val) check_cast(GTK_PROGRESS_BAR,val)
-ML_0 (gtk_progress_bar_new, Val_GtkWidget_sink)
-ML_1 (gtk_progress_bar_new_with_adjustment, GtkAdjustment_val,
-      Val_GtkWidget_sink)
-ML_2 (gtk_progress_bar_set_bar_style, GtkProgressBar_val,
-      Progress_bar_style_val, Unit)
-ML_2 (gtk_progress_bar_set_discrete_blocks, GtkProgressBar_val, Int_val, Unit)
-ML_2 (gtk_progress_bar_set_activity_step, GtkProgressBar_val, Int_val, Unit)
-ML_2 (gtk_progress_bar_set_activity_blocks, GtkProgressBar_val, Int_val, Unit)
-ML_2 (gtk_progress_bar_set_orientation, GtkProgressBar_val,
-      Progress_bar_orientation_val, Unit)
-/* ML_2 (gtk_progress_bar_update, GtkProgressBar_val, Float_val, Unit) */
-
-/* gtkrange.h */
-
-#define GtkRange_val(val) check_cast(GTK_RANGE,val)
-ML_1 (gtk_range_get_adjustment, GtkRange_val, Val_GtkAny)
-ML_2 (gtk_range_set_adjustment, GtkRange_val, GtkAdjustment_val, Unit)
-ML_2 (gtk_range_set_update_policy, GtkRange_val, Update_type_val, Unit)
-
-/* gtkscale.h */
-
-#define GtkScale_val(val) check_cast(GTK_SCALE,val)
-ML_2 (gtk_scale_set_digits, GtkScale_val, Int_val, Unit)
-ML_2 (gtk_scale_set_draw_value, GtkScale_val, Bool_val, Unit)
-ML_2 (gtk_scale_set_value_pos, GtkScale_val, Position_val, Unit)
-ML_1 (gtk_scale_get_value_width, GtkScale_val, Val_int)
-ML_1 (gtk_scale_draw_value, GtkScale_val, Unit)
-ML_1 (gtk_hscale_new, GtkAdjustment_val, Val_GtkWidget_sink)
-ML_1 (gtk_vscale_new, GtkAdjustment_val, Val_GtkWidget_sink)
-
-/* gtkscrollbar.h */
-
-ML_1 (gtk_hscrollbar_new, GtkAdjustment_val, Val_GtkWidget_sink)
-ML_1 (gtk_vscrollbar_new, GtkAdjustment_val, Val_GtkWidget_sink)
-
-/* gtkruler.h */
-
-#define GtkRuler_val(val) check_cast(GTK_RULER,val)
-ML_2 (gtk_ruler_set_metric, GtkRuler_val, Metric_type_val, Unit)
-ML_5 (gtk_ruler_set_range, GtkRuler_val, Float_val,
-      Float_val, Float_val, Float_val, Unit)
-Make_Extractor (gtk_ruler_get, GtkRuler_val, lower, copy_double)
-Make_Extractor (gtk_ruler_get, GtkRuler_val, upper, copy_double)
-Make_Extractor (gtk_ruler_get, GtkRuler_val, position, copy_double)
-Make_Extractor (gtk_ruler_get, GtkRuler_val, max_size, copy_double)
-ML_1 (gtk_ruler_draw_ticks, GtkRuler_val, Unit)
-ML_1 (gtk_ruler_draw_pos, GtkRuler_val, Unit)
-ML_0 (gtk_hruler_new, Val_GtkWidget_sink)
-ML_0 (gtk_vruler_new, Val_GtkWidget_sink)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtktree.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtktree.c
deleted file mode 100644 (file)
index a1239c2..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtktree.c
+++ /dev/null
@@ -1,53 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "ml_gtk.h"
-#include "gtk_tags.h"
-
-/* gtktreeitem.h */
-
-#define GtkTreeItem_val(val) check_cast(GTK_TREE_ITEM,val)
-ML_0 (gtk_tree_item_new, Val_GtkWidget_sink)
-ML_1 (gtk_tree_item_new_with_label, String_val, Val_GtkWidget_sink)
-ML_2 (gtk_tree_item_set_subtree, GtkTreeItem_val, GtkWidget_val, Unit)
-ML_1 (gtk_tree_item_remove_subtree, GtkTreeItem_val, Unit)
-ML_1 (gtk_tree_item_expand, GtkTreeItem_val, Unit)
-ML_1 (gtk_tree_item_collapse, GtkTreeItem_val, Unit)
-ML_1 (GTK_TREE_ITEM_SUBTREE, GtkTreeItem_val, Val_GtkWidget)
-
-/* gtktree.h */
-
-#define GtkTree_val(val) check_cast(GTK_TREE,val)
-ML_0 (gtk_tree_new, Val_GtkWidget_sink)
-ML_3 (gtk_tree_insert, GtkTree_val, GtkWidget_val, Int_val, Unit)
-ML_3 (gtk_tree_clear_items, GtkTree_val, Int_val, Int_val, Unit)
-ML_2 (gtk_tree_select_item, GtkTree_val, Int_val, Unit)
-ML_2 (gtk_tree_unselect_item, GtkTree_val, Int_val, Unit)
-ML_2 (gtk_tree_child_position, GtkTree_val, GtkWidget_val, Val_int)
-ML_2 (gtk_tree_set_selection_mode, GtkTree_val, Selection_mode_val, Unit)
-ML_2 (gtk_tree_set_view_mode, GtkTree_val, Tree_view_mode_val, Unit)
-ML_2 (gtk_tree_set_view_lines, GtkTree_val, Bool_val, Unit)
-
-static value val_gtkany (gpointer p) { return Val_GtkAny(p); }
-value ml_gtk_tree_selection (value tree)
-{
-  GList *selection = GTK_TREE_SELECTION(GtkTree_val(tree));
-  return Val_GList(selection, val_gtkany);
-}
-static gpointer gtkobject_val (value val) { return GtkObject_val(val); }
-value ml_gtk_tree_remove_items (value tree, value items)
-{
-  GList *items_list = GList_val (items, gtkobject_val);
-  gtk_tree_remove_items (GtkTree_val(tree), items_list);
-  return Val_unit;
-}

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkxmhtml.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkxmhtml.c
deleted file mode 100644 (file)
index 54bd51e..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/ml_gtkxmhtml.c
+++ /dev/null
@@ -1,76 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <gtk/gtk.h>
-#include <gtk-xmhtml/gtk-xmhtml.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-#include "ml_glib.h"
-#include "ml_gdk.h"
-#include "ml_gtk.h"
-#include "gtkxmhtml_tags.h"
-
-/* conversion functions */
-
-#include "gtkxmhtml_tags.c"
-
-Make_Flags_val (Line_type_val)
-
-#define GtkXmHTML_val(val) ((GtkXmHTML*)GtkObject_val(val))
-
-ML_0 (gtk_xmhtml_new, Val_GtkAny_sink)
-ML_1 (gtk_xmhtml_freeze, GtkXmHTML_val, Unit)
-ML_1 (gtk_xmhtml_thaw, GtkXmHTML_val, Unit)
-ML_2 (gtk_xmhtml_source, GtkXmHTML_val, String_val, Unit)
-ML_2 (gtk_xmhtml_set_string_direction, GtkXmHTML_val, String_direction_val,
-      Unit)
-ML_2 (gtk_xmhtml_set_alignment, GtkXmHTML_val, Alignment_val, Unit)
-/* ML_2 (gtk_xmhtml_outline, GtkXmHTML_val, Bool_val, Unit) */
-ML_3 (gtk_xmhtml_set_font_familty, GtkXmHTML_val, String_val, String_val, Unit)
-ML_3 (gtk_xmhtml_set_font_familty_fixed, GtkXmHTML_val, String_val, String_val,
-      Unit)
-ML_2 (gtk_xmhtml_set_font_charset, GtkXmHTML_val, String_val, Unit)
-ML_2 (gtk_xmhtml_set_allow_body_colors, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_hilight_on_enter, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_anchor_underline_type, GtkXmHTML_val, Flags_Line_type_val,
-      Unit)
-ML_2 (gtk_xmhtml_set_anchor_visited_underline_type, GtkXmHTML_val,
-      Flags_Line_type_val, Unit)
-ML_2 (gtk_xmhtml_set_anchor_target_underline_type, GtkXmHTML_val,
-      Flags_Line_type_val, Unit)
-ML_2 (gtk_xmhtml_set_allow_color_switching, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_dithering, GtkXmHTML_val, Dither_type_val, Unit)
-ML_2 (gtk_xmhtml_set_allow_font_switching, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_max_image_colors, GtkXmHTML_val, Int_val, Unit)
-ML_2 (gtk_xmhtml_set_allow_images, GtkXmHTML_val, Bool_val, Unit)
-ML_4 (gtk_xmhtml_set_plc_intervals, GtkXmHTML_val, Int_val, Int_val, Int_val,
-      Unit)
-/* ML_2 (gtk_xmhtml_set_def_body_image_url, GtkXmHTML_val, String_val, Unit) */
-ML_2 (gtk_xmhtml_set_anchor_buttons, GtkXmHTML_val, Bool_val, Unit)
-value ml_gtk_xmhtml_set_anchor_cursor(value html, value cursor)
-{
-     gtk_xmhtml_set_anchor_cursor
-          (GtkXmHTML_val(html), Option_val(cursor, GdkCursor_val, NULL),
-           Bool_val(cursor));
-     return Val_unit;
-}
-ML_2 (gtk_xmhtml_set_topline, GtkXmHTML_val, Int_val, Unit)
-ML_1 (gtk_xmhtml_get_topline, GtkXmHTML_val, Val_int)
-ML_2 (gtk_xmhtml_set_freeze_animations, GtkXmHTML_val, Bool_val, Unit)
-/* ML_1 (gtk_xmhtml_get_source, GtkXmHTML_val, copy_string) */
-ML_2 (gtk_xmhtml_set_screen_gamma, GtkXmHTML_val, Float_val, Unit)
-/* ML_2 (gtk_xmhtml_set_event_proc, GtkXmHTML_val, ???, Unit) */
-ML_2 (gtk_xmhtml_set_perfect_colors, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_uncompress_command, GtkXmHTML_val, String_val, Unit)
-ML_2 (gtk_xmhtml_set_strict_checking, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_bad_html_warnings, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_allow_form_coloring, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_imagemap_draw, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_mime_type, GtkXmHTML_val, String_val, Unit)
-ML_2 (gtk_xmhtml_set_alpha_processing, GtkXmHTML_val, Bool_val, Unit)
-ML_2 (gtk_xmhtml_set_rgb_conv_mode, GtkXmHTML_val, Dither_type_val, Unit)

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/varcc.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/varcc.ml
deleted file mode 100644 (file)
index 100bee3..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/varcc.ml
+++ /dev/null
@@ -1,157 +0,0 @@
-(* $Id$ *)
-
-(* Compile a list of variant tags into CPP defines *) 
-
-(* hash_variant, from ctype.ml *)
-
-let hash_variant s =
-  let accu = ref 0 in
-  for i = 0 to String.length s - 1 do
-    accu := 223 * !accu + Char.code s.[i]
-  done;
-  (* reduce to 31 bits *)
-  accu := !accu land (1 lsl 31 - 1);
-  (* make it signed for 64 bits architectures *)
-  if !accu > 0x3FFFFFFF then !accu - (1 lsl 31) else !accu
-
-open Genlex
-
-let lexer = make_lexer ["type"; "public"; "="; "["; "]"; "`"; "|"]
-
-let may_string = parser
-    [< ' String s >] -> s
-  | [< >] -> ""
-
-let may_bar = parser
-    [< ' Kwd "|" >] -> ()
-  | [< >] -> ()
-
-let rec ident_list = parser
-    [< ' Kwd "`"; ' Ident x; trans = may_string; _ = may_bar; s >] ->
-      (x, trans) :: ident_list s
-  | [< >] -> []
-
-let static = ref false
-let may_public = parser
-    [< ' Kwd "public" >] -> true
-  | [< ' Kwd "private" >] -> false
-  | [< >] -> not !static
-
-open Printf
-
-let hashes = Hashtbl.create 57
-
-let declaration ~hc ~cc = parser
-    [< ' Kwd "type"; public = may_public; ' Ident name; ' Kwd "=";
-       prefix = may_string; ' Kwd "["; _ = may_bar;
-       tags = ident_list; ' Kwd "]"; suffix = may_string >] ->
-    let oh x = fprintf hc x and oc x = fprintf cc x in
-    (* Output tag values to headers *)
-    let first = ref true in
-    List.iter tags ~f:
-      begin fun (tag, _) ->
-        let hash = hash_variant tag in
-        try
-         let tag' = Hashtbl.find hashes hash in
-         if tag <> tag' then
-           failwith (String.concat ~sep:" " ["Doublon tag:";tag;"and";tag'])
-        with Not_found ->
-         Hashtbl.add ~key:hash ~data:tag hashes;
-          if !first then begin
-            oh "/* %s : tags and macros */\n" name; first := false
-          end;
-         oh "#define MLTAG_%s\tVal_int(%d)\n" tag hash;
-      end;
-    (* compute C name *)
-    let ctag tag trans =
-      if trans <> "" then trans else
-      let tag =
-       if tag.[0] = '_' then
-         String.sub tag ~pos:1 ~len:(String.length tag -1)
-       else tag
-      in
-      match
-       if prefix = "" then None, ""
-       else
-         Some (prefix.[String.length prefix - 1]), 
-         String.sub prefix ~pos:0 ~len:(String.length prefix - 1)
-      with
-       Some '#', prefix ->
-         prefix ^ String.uncapitalize tag ^ suffix
-      |        Some '^', prefix ->
-         prefix ^ String.uppercase tag ^ suffix
-      |        _ ->
-         prefix ^ tag ^ suffix
-    and cname =
-      String.capitalize name
-    in
-    let tags =
-      Sort.list tags
-       ~order:(fun (tag1,_) (tag2,_) -> hash_variant tag1 < hash_variant tag2)
-    in
-    (* Output table to code file *)
-    oc "/* %s : conversion table */\n" name;
-    let static = if not public then "static " else "" in
-    oc "%slookup_info ml_table_%s[] = {\n" static name;
-    oc "  { 0, %d },\n" (List.length tags);
-    List.iter tags ~f:
-      begin fun (tag,trans) ->
-       oc "  { MLTAG_%s, %s },\n" tag (ctag tag trans)
-      end;
-    oc "};\n\n";
-    (* Output macros to headers *)
-    if not !first then oh "\n";
-    if public then oh "extern lookup_info ml_table_%s[];\n" name;
-    oh "#define Val_%s(data) ml_lookup_from_c (ml_table_%s, data)\n"
-      name name;
-    oh "#define %s_val(key) ml_lookup_to_c (ml_table_%s, key)\n\n"
-      cname name;
-  | [< >] -> raise End_of_file
-
-
-let process ic ~hc ~cc =  
-  let chars = Stream.of_channel ic in
-  let s = lexer chars in
-  try
-    while true do declaration s ~hc ~cc done
-  with End_of_file -> ()
-  | Stream.Error err ->
-      failwith
-        (Printf.sprintf "Parsing error \"%s\" at character %d on input stream"
-           err (Stream.count chars))
-
-let main () =
-  let inputs = ref [] in
-  let header = ref "" in
-  let code = ref "" in
-  Arg.parse ~errmsg:"usage: varcc [options] file.var" ~keywords:
-    [ "-h", Arg.String ((:=) header), "file to output macros (file.h)";
-      "-c", Arg.String ((:=) code),
-      "file to output conversion tables (file.c)";
-      "-static", Arg.Set static, "do not export conversion tables" ]
-    ~others:(fun s -> inputs := s :: !inputs);
-  let inputs = List.rev !inputs in
-  begin match inputs with
-  | [] ->
-      if !header = "" then header := "a.h";
-      if !code = "" then code := "a.c"
-  | ip :: _ ->
-      let rad =
-        if Filename.check_suffix ip ".var" then Filename.chop_extension ip
-        else ip in
-      if !header = "" then header := rad ^ ".h";
-      if !code = "" then code := rad ^ ".c"
-  end;
-  let hc = open_out !header and cc = open_out !code in
-  let chars = Stream.of_channel stdin in
-  if inputs = [] then process stdin ~hc ~cc else begin
-    List.iter inputs ~f:
-      begin fun file ->
-        let ic = open_in file in
-        try process ic ~hc ~cc; close_in ic
-        with exn -> close_in ic; prerr_endline ("Error in " ^ file); raise exn
-      end
-  end;
-  close_out hc; close_out cc
-
-let _ = Printexc.print main ()

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/wrappers.c b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/wrappers.c
deleted file mode 100644 (file)
index ee0f567..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/wrappers.c
+++ /dev/null
@@ -1,90 +0,0 @@
-/* $Id$ */
-
-#include <string.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include "wrappers.h"
-
-value copy_memblock_indirected (void *src, asize_t size)
-{
-    value ret = alloc (Wosize_asize(size)+2, Abstract_tag);
-    if (!src) ml_raise_null_pointer ();
-    
-    Field(ret,1) = 2;
-    memcpy (&Field(ret,2), src, size);
-    return ret;
-}
-
-value ml_some (value v)
-{
-     CAMLparam1(v);
-     value ret = alloc_small(1,0);
-     Field(ret,0) = v;
-     CAMLreturn(ret);
-}
-
-void ml_raise_null_pointer ()
-{
-  static value * exn = NULL;
-  if (exn == NULL)
-      exn = caml_named_value ("null_pointer");
-  raise_constant (*exn);
-}   
-
-value Val_pointer (void *ptr)
-{
-    value ret = alloc_small (2, Abstract_tag);
-    if (!ptr) ml_raise_null_pointer ();
-    Field(ret,1) = (value)ptr;
-    return ret;
-}
-
-value copy_string_check (const char*str)
-{
-    if (!str) ml_raise_null_pointer ();
-    return copy_string ((char*) str);
-}
-
-value copy_string_or_null (const char*str)
-{
-    return copy_string (str ? (char*) str : "");
-}
-
-value *ml_global_root_new (value v)
-{
-    value *p = stat_alloc(sizeof(value));
-    *p = v;
-    register_global_root (p);
-    return p;
-}
-
-void ml_global_root_destroy (void *data)
-{
-    remove_global_root ((value *)data);
-    stat_free (data);
-}
-
-value ml_lookup_from_c (lookup_info *table, int data)
-{
-    int i;
-    for (i = table[0].data; i > 0; i--)
-       if (table[i].data == data) return table[i].key;
-    invalid_argument ("ml_lookup_from_c");
-}
-    
-int ml_lookup_to_c (lookup_info *table, value key)
-{
-    int first = 1, last = table[0].data, current;
-
-    while (first < last) {
-       current = (first+last)/2;
-       if (table[current].key >= key) last = current;
-       else first = current + 1;
-    }
-    if (table[first].key == key) return table[first].data;
-    invalid_argument ("ml_lookup_to_c");
-}

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/wrappers.h b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/wrappers.h
deleted file mode 100644 (file)
index 2006bcb..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/wrappers.h
+++ /dev/null
@@ -1,225 +0,0 @@
-/* $Id$ */
-
-#ifndef _wrappers_
-#define _wrappers_
-
-#include <caml/mlvalues.h>
-#include <caml/fail.h>
-
-value copy_memblock_indirected (void *src, asize_t size);
-value ml_some (value);
-void ml_raise_null_pointer (void) Noreturn;
-value Val_pointer (void *);
-value copy_string_check (const char*);
-value copy_string_or_null (const char *);
-
-value *ml_global_root_new (value v);
-void ml_global_root_destroy (void *data);
-
-typedef struct { value key; int data; } lookup_info;
-value ml_lookup_from_c (lookup_info *table, int data);
-int ml_lookup_to_c (lookup_info *table, value key);
-
-/* Wrapper generators */
-
-#define ML_0(cname, conv) \
-value ml_##cname (value unit) { return conv (cname ()); }
-#define ML_1(cname, conv1, conv) \
-value ml_##cname (value arg1) { return conv (cname (conv1 (arg1))); }
-#define ML_1_post(cname, conv1, conv, post) \
-value ml_##cname (value arg1) \
-{ value ret = conv (cname (conv1(arg1))); post; return ret; }
-#define ML_2(cname, conv1, conv2, conv) \
-value ml_##cname (value arg1, value arg2) \
-{ return conv (cname (conv1(arg1), conv2(arg2))); }
-#define ML_2_name(mlname, cname, conv1, conv2, conv) \
-value mlname (value arg1, value arg2) \
-{ return conv (cname (conv1(arg1), conv2(arg2))); }
-#define ML_3(cname, conv1, conv2, conv3, conv) \
-value ml_##cname (value arg1, value arg2, value arg3) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3))); }
-#define ML_3_name(mlname, cname, conv1, conv2, conv3, conv) \
-value mlname (value arg1, value arg2, value arg3) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3))); }
-#define ML_4(cname, conv1, conv2, conv3, conv4, conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4))); }
-#define ML_4_name(mlname, cname, conv1, conv2, conv3, conv4, conv) \
-value mlname (value arg1, value arg2, value arg3, value arg4) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4))); }
-#define ML_5(cname, conv1, conv2, conv3, conv4, conv5, conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4, value arg5) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4), \
-                     conv5(arg5))); }
-#define ML_6(cname, conv1, conv2, conv3, conv4, conv5, conv6, conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4, value arg5, \
-                 value arg6) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4), \
-                     conv5(arg5), conv6(arg6))); }
-#define ML_7(cname, conv1, conv2, conv3, conv4, conv5, conv6, conv7, conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4, value arg5, \
-                 value arg6, value arg7) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4), \
-                     conv5(arg5), conv6(arg6), conv7(arg7))); }
-#define ML_8(cname, conv1, conv2, conv3, conv4, conv5, conv6, conv7, conv8, \
-            conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4, value arg5, \
-                 value arg6, value arg7, value arg8) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4), \
-                     conv5(arg5), conv6(arg6), conv7(arg7), conv8(arg8))); }
-#define ML_9(cname, conv1, conv2, conv3, conv4, conv5, conv6, conv7, conv8, \
-             conv9, conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4, value arg5, \
-                 value arg6, value arg7, value arg8, value arg9) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4), \
-                     conv5(arg5), conv6(arg6), conv7(arg7), conv8(arg8), \
-                     conv9(arg9))); }
-#define ML_10(cname, conv1, conv2, conv3, conv4, conv5, conv6, conv7, conv8, \
-             conv9, conv10, conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4, value arg5, \
-                 value arg6, value arg7, value arg8, value arg9, value arg10)\
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4), \
-                     conv5(arg5), conv6(arg6), conv7(arg7), conv8(arg8), \
-                     conv9(arg9), conv10(arg10))); }
-#define ML_11(cname, conv1, conv2, conv3, conv4, conv5, conv6, conv7, conv8, \
-             conv9, conv10, conv11, conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4, value arg5, \
-                 value arg6, value arg7, value arg8, value arg9, value arg10,\
-                 value arg11) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4), \
-                     conv5(arg5), conv6(arg6), conv7(arg7), conv8(arg8), \
-                     conv9(arg9), conv10(arg10), conv11(arg11))); }
-#define ML_12(cname, conv1, conv2, conv3, conv4, conv5, conv6, conv7, conv8, \
-             conv9, conv10, conv11, conv12, conv) \
-value ml_##cname (value arg1, value arg2, value arg3, value arg4, value arg5, \
-                 value arg6, value arg7, value arg8, value arg9, value arg10,\
-                 value arg11, value arg12) \
-{ return conv (cname (conv1(arg1), conv2(arg2), conv3(arg3), conv4(arg4), \
-                     conv5(arg5), conv6(arg6), conv7(arg7), conv8(arg8), \
-                     conv9(arg9), conv10(arg10), conv11(arg11), \
-                     conv12(arg12))); }
-
-/* Use with care: needs the argument index */
-#define Ignore(x)
-#define Insert(x) (x),
-#define Split(x,f,g) f(x), g(x) Ignore
-#define Split3(x,f,g,h) f(x), g(x), h(x) Ignore
-#define Pair(x,f,g) f(Field(x,0)), g(Field(x,1)) Ignore
-#define Triple(x,f,g,h) f(Field(x,0)), g(Field(x,1)), h(Field(x,2)) Ignore
-
-/* For more than 5 arguments */
-#define ML_bc6(cname) \
-value cname##_bc (value *argv, int argn) \
-{ return cname(argv[0],argv[1],argv[2],argv[3],argv[4],argv[5]); }
-#define ML_bc7(cname) \
-value cname##_bc (value *argv, int argn) \
-{ return cname(argv[0],argv[1],argv[2],argv[3],argv[4],argv[5],argv[6]); }
-#define ML_bc8(cname) \
-value cname##_bc (value *argv, int argn) \
-{ return cname(argv[0],argv[1],argv[2],argv[3],argv[4],argv[5],argv[6], \
-              argv[7]); }
-#define ML_bc9(cname) \
-value cname##_bc (value *argv, int argn) \
-{ return cname(argv[0],argv[1],argv[2],argv[3],argv[4],argv[5],argv[6], \
-              argv[7],argv[8]); }
-#define ML_bc10(cname) \
-value cname##_bc (value *argv, int argn) \
-{ return cname(argv[0],argv[1],argv[2],argv[3],argv[4],argv[5],argv[6], \
-              argv[7],argv[8],argv[9]); }
-#define ML_bc11(cname) \
-value cname##_bc (value *argv, int argn) \
-{ return cname(argv[0],argv[1],argv[2],argv[3],argv[4],argv[5],argv[6], \
-              argv[7],argv[8],argv[9],argv[10]); }
-#define ML_bc12(cname) \
-value cname##_bc (value *argv, int argn) \
-{ return cname(argv[0],argv[1],argv[2],argv[3],argv[4],argv[5],argv[6], \
-              argv[7],argv[8],argv[9],argv[10],argv[11]); }
-
-/* result conversion */
-#define Unit(x) ((x), Val_unit)
-#define Id(x) x
-#define Val_char Val_int
-
-/* parameter conversion */
-#define Bool_ptr(x) ((long) x - 1)
-#define Char_val Int_val
-#define Float_val(x) ((float)Double_val(x))
-
-#define Option_val(val,unwrap,default) \
-((long)val-1 ? unwrap(Field(val,0)) : default)
-#define String_option_val(s) Option_val(s,String_val,NULL)
-
-/* Utility */
-
-#define Copy_array(ret,l,src,conv) \
- if (!l) ret = Atom(0); \
- else if (l <= Max_young_wosize) { int i; ret = alloc_tuple(l); \
-   for(i=0;i<l;i++) Field(ret,i) = conv(src[i]); } \
- else { int i; ret = alloc_shr(l,0); \
-   for(i=0;i<l;i++) initialize (&Field(ret,i), conv(src[i])); }
-
-#define Make_Val_final_pointer(type, init, final, adv) \
-static void ml_final_##type (value val) \
-{ if (Field(val,1)) final ((type*)Field(val,1)); } \
-value Val_##type (type *p) \
-{ value ret; if (!p) ml_raise_null_pointer(); \
-  ret = alloc_final (2, ml_final_##type, adv, 1000); \
-  initialize (&Field(ret,1), (value) p); init(p); return ret; }
-
-#define Make_Val_final_pointer_ext(type, ext, init, final, adv) \
-static void ml_final_##type##ext (value val) \
-{ if (Field(val,1)) final ((type*)Field(val,1)); } \
-value Val_##type##ext (type *p) \
-{ value ret; if (!p) ml_raise_null_pointer(); \
-  ret = alloc_final (2, ml_final_##type##ext, adv, 1000); \
-  initialize (&Field(ret,1), (value) p); init(p); return ret; }
-
-#define Pointer_val(val) ((void*)Field(val,1))
-#define MLPointer_val(val) (Field(val,1) == 2 ? &Field(val,2) : (void*)Field(val,1))
-
-#define Val_addr(ptr) (1+(value)ptr)
-#define Addr_val(val) ((void*)(val-1))
-
-#define Wosize_asize(x) ((x-1)/sizeof(value)+1)
-#define Wosizeof(x) Wosize_asize(sizeof(x))
-
-#define Make_Extractor(name,conv1,field,conv2) \
-value ml_##name##_##field (value val) \
-{ return conv2 ((conv1(val))->field); }
-
-#define Make_Setter(name,conv1,conv2,field) \
-value ml_##name##_##field (value val, value new) \
-{ (conv1(val))->field = conv2(new); return Val_unit; }
-
-#define Make_Array_Extractor(name,conv1,conv2,field,conv) \
-value ml_##name##_##field (value val, value index) \
-{ return conv ((conv1(val))->field[conv2(index)]); }
-
-#define Make_Array_Setter(name,conv1,conv2,conv3,field) \
-value ml_##name##_##field (value val, value index, value new) \
-{ (conv1(val))->field[conv2(index)] = conv3(new); return Val_unit; }
-
-/* ML value is [flag list] */
-#define Make_Flags_val(conv) \
-int Flags_##conv (value list) \
-{ int flags = 0L; \
-  while Is_block(list) { flags |= conv(Field(list,0)); list = Field(list,1); }\
-  return flags; }
-
-/* ML value is [flag list option] */
-#define Make_OptFlags_val(conv) \
-int OptFlags_##conv (value list) \
-{ int flags = 0L; \
-  if Is_block(list) list = Field(list,0); \
-  while Is_block(list) { flags |= conv(Field(list,0)); list = Field(list,1); }\
-  return flags; }
-
-#define Val_copy(val) copy_memblock_indirected (&val, sizeof(val))
-#define Val_string copy_string_check
-#define Val_optstring copy_string_or_null
-#define Optstring_val(v) (string_length(v) ? String_val(v) : (char*)NULL)
-#define Val_option(v,f) (v ? ml_some(f(v)) : Val_unit)
-
-#define Check_null(v) (v ? v : (ml_raise_null_pointer (), v))
-
-#endif /* _wrappers_ */

diff --git a/helm/DEVEL/lablgtk_gtkmathview/.cvsignore b/helm/DEVEL/lablgtk_gtkmathview/.cvsignore
deleted file mode 100644 (file)
index 8e6f4f9..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmi *.cmo *.cmx *.cma *.cmxa test test.opt

diff --git a/helm/DEVEL/lablgtk_gtkmathview/.depend b/helm/DEVEL/lablgtk_gtkmathview/.depend
deleted file mode 100644 (file)
index 600449b..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/.depend
+++ /dev/null
@@ -1,4 +0,0 @@
-gMathView.cmo: gtkMathView.cmo gtk_mathview.cmo 
-gMathView.cmx: gtkMathView.cmx gtk_mathview.cmx 
-gtkMathView.cmo: gtk_mathview.cmo 
-gtkMathView.cmx: gtk_mathview.cmx 

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0-1.i386.rpm b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0-1.i386.rpm
deleted file mode 100644 (file)
index e759a66..0000000
Binary files a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0-1.i386.rpm and /dev/null differ

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0-1.spec b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0-1.spec
deleted file mode 100644 (file)
index 63b197d..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0-1.spec
+++ /dev/null
@@ -1,25 +0,0 @@
-Summary: GtkMathView : the binding for lablgtk of the GtkMathView widget
-Name: lablgtk-20000829_gtkmathview
-Version: 0.1.0
-Release: 1
-Copyright: LGPL
-Group: Development/Libraries
-Requires: lablgtk_20000829 gtkmathview
-Source: www.cs.unibo.it:/~lpadovan/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0.tar.gz
-%description
-GtkMathView is the binding for lablgtk of the GtkMathView widget.
-
-%prep
-%setup
-
-%build
-make
-make opt
-
-%install
-make install
-
-%files
-%doc COPYING
-
-/usr/lib/ocaml/lablgtk/mathview

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0-1.src.rpm b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0-1.src.rpm
deleted file mode 100644 (file)
index 3377d3c..0000000
Binary files a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0-1.src.rpm and /dev/null differ

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0.tar.gz b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0.tar.gz
deleted file mode 100644 (file)
index 73f44b3..0000000
Binary files a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0.tar.gz and /dev/null differ

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/.depend b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/.depend
deleted file mode 100644 (file)
index 600449b..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/.depend
+++ /dev/null
@@ -1,4 +0,0 @@
-gMathView.cmo: gtkMathView.cmo gtk_mathview.cmo 
-gMathView.cmx: gtkMathView.cmx gtk_mathview.cmx 
-gtkMathView.cmo: gtk_mathview.cmo 
-gtkMathView.cmx: gtk_mathview.cmx 

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/COPYING b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/COPYING
deleted file mode 100644 (file)
index 20b480a..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/COPYING
+++ /dev/null
@@ -1,11 +0,0 @@
-This library is made available under the LGPL.
-You should have got a copy of the LGPL with Objective Caml.
-The LGPL applies to all the files in this directory, but not in
-subdirectories.
-
-For the test subdirectory, there is no specific licensing policy,
-but you may freely take inspiration from the code, and copy parts of
-it in your application.
-
-Author:
-       Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/Makefile b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/Makefile
deleted file mode 100644 (file)
index 1195de5..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/Makefile
+++ /dev/null
@@ -1,98 +0,0 @@
-# Makefile for lablgtk_mathview.
-
-LABLGTKDIR = /usr/local/lib/ocaml/lablgtk
-MLFLAGS += -I $(LABLGTKDIR)
-
-TARGETS = ml_gtk_mathview.o lablgtkmathview.cma
-
-all: $(TARGETS)
-
-opt: lablgtkmathviewopt
-
-configure:
-       @rm -f config.make
-       @$(MAKE) --no-print-directory -f configure.mk
-
-depend:
-       @rm -f .depend
-       @$(MAKE) --no-print-directory -f configure.mk .depend
-
-.depend config.make:
-       @$(MAKE) --no-print-directory -f configure.mk
-
-COMPILER = $(CAMLC) $(MLFLAGS) -w s -labels -c
-LINKER = $(CAMLC) $(MLFLAGS)
-COMPOPT = $(CAMLOPT) $(MLFLAGS) -w s -labels -c
-LINKOPT = $(CAMLOPT) $(MLFLAGS)
-
-include config.make
-
-INSTALLDIR = $(LIBDIR)/lablgtk/mathview
-
-MLLIBS = lablgtkmathview.cma
-CLIBS = 
-MLLINK = unix.cma str.cma
-
-ifdef DEBUG
-CFLAGS = -g $(GTKCFLAGS)
-MLLINK += -cclib -lcamlrund
-MLFLAGS += -g
-else
-CFLAGS = -O -DGTK_NO_CHECK_CASTS -DGTK_DISABLE_COMPAT_H $(GTKCFLAGS)
-endif
-
-THFLAGS = -thread
-THLINK = unix.cma threads.cma
-
-ifdef USE_CC
-CCOMPILER = $(CC) -c -I$(LIBDIR) $(CFLAGS)
-else
-CCOMPILER = ocamlc -c -ccopt "$(CFLAGS)"
-endif
-
-# Rules
-.SUFFIXES: .ml .mli .cmo .cmi .cmx .c .o .var .h .opt .def
-.c.o:
-       $(CCOMPILER) $<
-.ml.cmo:
-       $(COMPILER) $<
-.mli.cmi:
-       $(COMPILER) $<
-.ml.cmx:
-       $(COMPOPT) $<
-.var.h:
-       ./var2def < $< > $@
-.var.c:
-       ./var2conv < $< > $@
-
-# Targets
-COBJS = ml_gtk_mathview.o
-MLOBJS = gtk_mathview.cmo gtkMathView.cmo gMathView.cmo
-ALLOBJS = $(MLOBJS)
-
-lablgtkmathviewopt: $(CLIBS) $(MLLIBS:.cma=.cmxa)
-
-install:
-       if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
-       cp $(ALLOBJS:.cmo=.cmi) $(INSTALLDIR)
-       if test -f *.mli ; then cp *.mli $(INSTALLDIR) ; fi
-       cp $(ALLOBJS:.cmo=.ml) $(INSTALLDIR)
-       cp $(MLLIBS) $(INSTALLDIR)
-       cp $(COBJS) $(INSTALLDIR)
-       if test ! -z "$(CLIBS)" ; then cp $(CLIBS) $(INSTALLDIR) ; fi
-       if test -f lablgtkmathview.cmxa; then \
-          cp $(MLLIBS:.cma=.cmxa) $(MLLIBS:.cma=.a) \
-             $(INSTALLDIR); fi
-
-lablgtkmathview.cma: $(MLOBJS)
-       $(LINKER) -a -custom -o $@ $(MLOBJS) $(GTKLIBS) $(GTKMATHVIEWLIBS)
-lablgtkmathview.cmxa: $(MLOBJS:.cmo=.cmx)
-       $(LINKOPT) -a -o $@ $(MLOBJS:.cmo=.cmx) $(GTKLIBS) $(GTKMATHVIEWLIBS)
-
-ml_gtk.o: $(LABLGTKDIR)/gtk_tags.c $(LABLGTKDIR)/gtk_tags.h \
-          $(LABLGTKDIR)/ml_gtk.h $(LABLGTKDIR)/ml_gdk.h $(LABLGTKDIR)/wrappers.h
-
-clean:
-       rm -f *.cm* *.o *.a *_tags.[ch] $(TARGETS)
-
-include .depend

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/config.make b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/config.make
deleted file mode 100644 (file)
index d50ffb5..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/config.make
+++ /dev/null
@@ -1,15 +0,0 @@
-CAMLC=ocamlc
-CAMLOPT=ocamlopt
-USE_GL=
-USE_GNOME=
-USE_CC=
-DEBUG=
-CC=cc
-RANLIB=ranlib
-LIBDIR=/usr/lib/ocaml
-BINDIR=/usr/bin
-INSTALLDIR=/usr/lib/ocaml/lablgtk/mathview
-GTKCFLAGS=-I/usr/lib/glib/include -I/usr/X11R6/include -I/usr/lib/ocaml/lablgtk
-GTKLIBS=-ccopt -L/usr/lib -ccopt -L/usr/X11R6/lib -cclib -lgtk -cclib -lgdk -ccopt -rdynamic -cclib -lgmodule -cclib -lglib -cclib -ldl -cclib -lXi -cclib -lXext -cclib -lX11 -cclib -lm
-GTKMATHVIEWLIBS=-ccopt -L/usr/local/lib/gtkmathview -cclib -lgtkmathview 
-GNOMELIBS=

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/configure.mk b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/configure.mk
deleted file mode 100644 (file)
index 73cfc3d..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/configure.mk
+++ /dev/null
@@ -1,53 +0,0 @@
-# makefile for configuring lablGTK_mathview
-
-# Default compilers
-CAMLC = ocamlc
-CAMLOPT = ocamlopt
-
-# Default installation directories
-BINDIR = `$(GETBINDIR)`
-INSTALLDIR = $(LIBDIR)/lablgtk/mathview
-
-# Autoconf
-GETLIBDIR = ocamlc -v | grep "^Standard" | sed 's/^.*: *//'
-LIBDIR = `$(GETLIBDIR)`
-GETBINDIR = $(GETLIBDIR) | sed -e 's|/lib/[^/]*$$|/bin|' -e 's|/lib$$|/bin|'
-GETRANLIB = which ranlib 2>/dev/null | sed -e 's|.*/ranlib$$|!|' -e 's/^[^!]*$$/:/' -e 's/!/ranlib/'
-
-ifdef USE_GNOME
-GTKGETCFLAGS = gtk-config --cflags`" -I"`gnome-config --includedir
-GNOMELIBS = `gnome-config --libs gtkxmhtml`
-else
-GTKGETCFLAGS = gtk-config --cflags
-endif
-
-GTKGETLIBS = gtk-config --libs
-
-configure: .depend config.make
-
-.depend:
-       ocamldep *.ml *.mli > .depend
-
-config.make:
-       @echo CAMLC=$(CAMLC) > config.make
-       @echo CAMLOPT=$(CAMLOPT) >> config.make
-       @echo USE_GL=$(USE_GL) >> config.make
-       @echo USE_GNOME=$(USE_GNOME) >> config.make
-       @echo USE_CC=$(USE_CC) >> config.make
-       @echo DEBUG=$(DEBUG) >> config.make
-       @echo CC=$(CC) >> config.make
-       @echo RANLIB=`$(GETRANLIB)` >> config.make
-       @echo LIBDIR=$(LIBDIR) >> config.make
-       @echo BINDIR=`$(GETBINDIR)` >> config.make
-       @echo INSTALLDIR=$(INSTALLDIR) >> config.make
-       @echo GTKCFLAGS=`$(GTKGETCFLAGS)` -I/usr/lib/ocaml/lablgtk >> config.make
-       @echo GTKLIBS=`$(GTKGETLIBS)` | \
-         sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
-         >> config.make
-       #<CSC>
-       echo GTKMATHVIEWLIBS="-ccopt -L/usr/local/lib/gtkmathview -cclib -lgtkmathview " >> config.make
-       #</CSC>
-       @echo GNOMELIBS=$(GNOMELIBS) | \
-         sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
-         >> config.make
-       cat config.make

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/gMathView.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/gMathView.ml
deleted file mode 100644 (file)
index b79c812..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/gMathView.ml
+++ /dev/null
@@ -1,50 +0,0 @@
-open Gaux
-open Gtk
-open Gtk_mathview
-open GtkBase
-open GtkMathView
-open GObj
-
-exception ErrorLoadingFile of string;;
-
-class math_view_signals obj = object
-  inherit GContainer.container_signals obj
-  method jump = GtkSignal.connect ~sgn:MathView.Signals.jump obj ~after
-  method clicked = GtkSignal.connect ~sgn:MathView.Signals.clicked obj ~after
-end
-
-class math_view obj = object
- inherit GContainer.container (obj : Gtk_mathview.math_view obj)
- method connect = new math_view_signals obj
- method load ~filename =
-  if not (MathView.load obj ~filename) then raise (ErrorLoadingFile filename)
- method get_selection = MathView.get_selection obj
- method unload = MathView.unload obj
- method dump = MathView.dump obj
- method get_width = MathView.get_width obj
- method get_height = MathView.get_height obj
- method set_adjustments =
-  fun adj1 adj2 ->
-   MathView.set_adjustments obj (GData.as_adjustment adj1)
-   (GData.as_adjustment adj2)
- method get_hadjustment = new GData.adjustment (MathView.get_hadjustment obj)
- method get_vadjustment = new GData.adjustment (MathView.get_vadjustment obj)
- method get_buffer = MathView.get_buffer obj
- method get_frame = new GBin.frame (MathView.get_frame obj)
- method set_font_size = MathView.set_font_size obj
- (*method get_top = MathView.get_top obj
- method set_top = MathView.set_top obj*)
-end
-
-let math_view ?adjustmenth ?adjustmentv ?border_width ?width ?height
- ?packing ?show ()
-=
- let w =
-   MathView.create
-    ?adjustmenth:(may_map ~f:GData.as_adjustment adjustmenth)
-    ?adjustmentv:(may_map ~f:GData.as_adjustment adjustmentv)
-    ()
- in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new math_view w) ~packing ~show
-;;

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/gtkMathView.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/gtkMathView.ml
deleted file mode 100644 (file)
index 9ed42b8..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/gtkMathView.ml
+++ /dev/null
@@ -1,61 +0,0 @@
-open Gtk
-open Gtk_mathview
-open Tags
-open GtkBase
-open Gpointer
-
-module MathView = struct
-  let cast w : math_view obj = Object.try_cast w "GtkMathView"
-  external create : Gtk.adjustment optobj -> Gtk.adjustment optobj ->
-   math_view obj = "ml_gtk_math_view_new"
-  let create ~adjustmenth ~adjustmentv () =
-   create (optboxed adjustmenth) (optboxed adjustmentv)
-  external load : [>`math_view] obj -> filename:string -> bool =
-   "ml_gtk_math_view_load"
-  external get_selection : [>`math_view] obj -> string option =
-   "ml_gtk_math_view_get_selection"
-  external unload : [>`math_view] obj -> unit =
-   "ml_gtk_math_view_unload"
-  external dump : [>`math_view] obj -> unit =
-   "ml_gtk_math_view_dump"
-  external get_width : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_width"
-  external get_height : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_height"
-  external set_adjustments : [>`math_view] obj -> Gtk.adjustment obj -> Gtk.adjustment obj -> unit =
-   "ml_gtk_math_view_set_adjustments"
-  external get_hadjustment : [>`math_view] obj -> Gtk.adjustment obj =
-   "ml_gtk_math_view_get_hadjustment"
-  external get_vadjustment : [>`math_view] obj -> Gtk.adjustment obj =
-   "ml_gtk_math_view_get_vadjustment"
-  external get_buffer : [>`math_view] obj -> Gdk.pixmap =
-   "ml_gtk_math_view_get_buffer"
-  external get_frame : [>`math_view] obj -> [`frame] obj =
-   "ml_gtk_math_view_get_frame"
-  external set_font_size : [>`math_view] obj -> int -> unit =
-   "ml_gtk_math_view_set_font_size"
-  (*external get_top : [>`math_view] obj -> (int * int) =
-   "ml_gtk_math_view_get_top"
-  external set_top : [>`math_view] obj -> int -> int -> unit =
-   "ml_gtk_math_view_set_top"*)
-
-  module Signals = struct
-    open GtkSignal
-
-    let jump : ([>`math_view],_) t =
-     let marshal_jump f _ =
-      function
-         [GtkArgv.STRING (Some str)] -> f str
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_jump"
-     in
-      { name = "jump"; marshaller = marshal_jump }
-
-    let clicked : ([>`math_view],_) t =
-     let marshal_clicked f _ =
-      function
-         [] -> f ()
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_clicked"
-     in
-      { name = "clicked"; marshaller = marshal_clicked }
-  end
-end

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/gtk_mathview.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/gtk_mathview.ml
deleted file mode 100644 (file)
index 745a1ba..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/gtk_mathview.ml
+++ /dev/null
@@ -1 +0,0 @@
-type math_view = [`widget|`container|`bin|`eventbox|`math_view]

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/ml_gtk_mathview.c b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/ml_gtk_mathview.c
deleted file mode 100644 (file)
index b16f68e..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/ml_gtk_mathview.c
+++ /dev/null
@@ -1,55 +0,0 @@
-#include <string.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include <gtkmathview/gtkmathview.h>
-#include <ml_gtk.h>
-
-#include <wrappers.h>
-#include <ml_glib.h>
-#include <ml_gdk.h>
-#include <ml_gtk.h>
-#include <gtk_tags.h>
-
-/* <CSC/>: Next row should be put in a .h of lablgtk. */
-#define GtkAdjustment_val(val) check_cast(GTK_ADJUSTMENT,val)
-
-#define GtkMathView_val(val) check_cast(GTK_MATH_VIEW,val)
-ML_2 (gtk_math_view_new,GtkAdjustment_val, GtkAdjustment_val,Val_GtkWidget_sink)
-ML_2 (gtk_math_view_load, GtkMathView_val, String_val, Val_bool)
-ML_1 (gtk_math_view_unload, GtkMathView_val, Unit)
-ML_1 (gtk_math_view_dump, GtkMathView_val, Unit)
-ML_1 (gtk_math_view_get_width, GtkMathView_val, Val_int)
-ML_1 (gtk_math_view_get_height, GtkMathView_val, Val_int)
-//ML_3 (gtk_math_view_set_top, GtkMathView_val, Int_val, Int_val, Unit)
-ML_3 (gtk_math_view_set_adjustments, GtkMathView_val, GtkAdjustment_val, GtkAdjustment_val, Unit)
-ML_1 (gtk_math_view_get_hadjustment, GtkMathView_val, Val_GtkWidget)
-ML_1 (gtk_math_view_get_vadjustment, GtkMathView_val, Val_GtkWidget)
-ML_1 (gtk_math_view_get_buffer, GtkMathView_val, Val_GdkPixmap)
-ML_1 (gtk_math_view_get_frame, GtkMathView_val, Val_GtkWidget)
-ML_2 (gtk_math_view_set_font_size, GtkMathView_val, Int_val, Unit)
-
-/*
-value ml_gtk_math_view_get_top (value arg1)
-{
-   CAMLparam1(arg1);
-   CAMLlocal1 (result);
-   int x, y;
-   gtk_math_view_get_top(GtkMathView_val (arg1), &x, &y);
-   result = alloc(2, 0);
-   Store_field(result, 0, Val_int(x));
-   Store_field(result, 0, Val_int(y));
-   CAMLreturn (result);
-}
-*/
-
-value ml_gtk_math_view_get_selection (value arg1)
-{
-   const char *stringa;
-   stringa = gtk_math_view_get_selection (GtkMathView_val (arg1));
-   return Val_option (stringa, Val_string);
-}

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/test/Makefile b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/test/Makefile
deleted file mode 100644 (file)
index cc5bd50..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/test/Makefile
+++ /dev/null
@@ -1,36 +0,0 @@
-LABLGTK_DIR = ../../lablgtk-20000829
-LABLGTK_MATHVIEW_DIR = ..
-OCAMLC = ocamlc -I $(LABLGTK_DIR) -I $(LABLGTK_MATHVIEW_DIR) -I mlmathview
-OCAMLOPT = ocamlopt -I $(LABLGTK_DIR) -I $(LABLGTK_MATHVIEW_DIR) -I mlmathview
-
-all: test
-opt: test.opt
-
-test: test.cmo
-       $(OCAMLC) -custom -o test lablgtk.cma gtkInit.cmo \
-                  $(LABLGTK_MATHVIEW_DIR)/lablgtkmathview.cma \
-                  test.cmo \
-                  -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
-                  -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
-                  -L/usr/local/lib/gtkmathview -lgtkmathview \
-                  $(LABLGTK_MATHVIEW_DIR)/ml_gtk_mathview.o"
-
-test.opt: test.cmx
-       $(OCAMLOPT) -o test.opt lablgtk.cmxa gtkInit.cmx \
-                  $(LABLGTK_MATHVIEW_DIR)/lablgtkmathview.cmxa \
-                  test.cmx \
-                  -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
-                  -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
-                  -L/usr/local/lib/gtkmathview -lgtkmathview \
-                  $(LABLGTK_MATHVIEW_DIR)/ml_gtk_mathview.o"
-
-.SUFFIXES: .ml .mli .cmo .cmi .cmx
-.ml.cmo:
-       $(OCAMLC) -c $<
-.mli.cmi:
-       $(OCAMLC) -c $<
-.ml.cmx:
-       $(OCAMLOPT) -c $<
-
-clean:
-       rm -f *.cm[iox] *.o test test.opt

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/test/test.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/test/test.ml
deleted file mode 100644 (file)
index e914f4d..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/test/test.ml
+++ /dev/null
@@ -1,141 +0,0 @@
-(******************************************************************************)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 25/09/2000                                 *)
-(*                                                                            *)
-(*     This is a simple test for the OCaml (LablGtk indeed) binding of the    *)
-(*                             MathView widget                                *)
-(******************************************************************************)
-
-(* Callbacks *)
-let jump s =
- print_string ("jump: " ^ s ^ "\n") ;
- flush stdout
-;;
-
-let clicked () =
- print_string "clicked: IT WORKS\n" ;
- flush stdout
-;;
-
-let load mathview () =
- mathview#load "test.xml" ;
- print_string "load: SEEMS TO WORK\n" ;
- flush stdout
-;;
-
-exception Ok;;
-let get_selection mathview () =
- let selection =
-  match mathview#get_selection with
-     None -> "NO SELECTION"
-   | Some s -> s
- in
-  print_string ("get_selection: " ^ selection ^ "\n") ;
-  flush stdout
-;;
-
-let unload mathview () =
- mathview#unload ;
- print_string "unload: SEEMS TO WORK\n" ;
- flush stdout
-;;
-
-let dump mathview () =
- mathview#dump ;
- print_string "dump: SEEMS TO WORK\n" ;
- flush stdout
-;;
-
-let get_width mathview () =
- print_string ("get_width: " ^ string_of_int (mathview#get_width) ^ "\n") ;
- flush stdout
-;;
-
-let get_height mathview () =
- print_string ("get_height: " ^ string_of_int (mathview#get_height) ^ "\n") ;
- flush stdout
-;;
-
-let set_adjustments mathview () =
- let adj1 = GData.adjustment () in
- let adj2 = GData.adjustment () in
-  mathview#set_adjustments adj1 adj2 ;
-  adj1#set_value ((adj1#lower +. adj1#upper) /. 2.0) ;
-  adj2#set_value ((adj2#lower +. adj2#upper) /. 2.0) ;
-  print_string "set_adjustments: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_hadjustment mathview () =
- let adj = mathview#get_hadjustment in
-  adj#set_value ((adj#lower +. adj#upper) /. 2.0) ;
-  print_string "get_hadjustment: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_vadjustment mathview () =
- let adj = mathview#get_vadjustment in
-  adj#set_value ((adj#lower +. adj#upper) /. 2.0) ;
-  print_string "get_vadjustment: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_buffer mathview () =
- let buffer = mathview#get_buffer in
-  Gdk.Draw.rectangle buffer (Gdk.GC.create buffer) ~x:0 ~y:0
-   ~width:50 ~height:50 ~filled:true () ;
-  print_string "get_buffer: SEEMS TO WORK (hint: force the widget redrawing)\n";
-  flush stdout
-;;
-
-let get_frame mathview () =
- let frame = mathview#get_frame in
-  frame#set_shadow_type `NONE ;
-  print_string "get_frame: SEEMS TO WORK\n" ;
-  flush stdout
-;;
-
-let set_font_size mathview () =
- mathview#set_font_size 24 ;
- print_string "set_font_size: FONT IS NOW 24\n" ;
- flush stdout
-;;
- 
-(* Widget creation *)
-let main_window = GWindow.window ~title:"GtkMathView test" () in
-let vbox = GPack.vbox ~packing:main_window#add () in
-let sw = GBin.scrolled_window ~width:50 ~height:50 ~packing:vbox#pack () in
-(*let mathview = GMathView.math_view ~packing:sw#add_with_viewport ~width:50 ~height:50 () in*)
-let mathview = GMathView.math_view ~packing:sw#add ~width:50 ~height:50 () in
-let hbox = GPack.hbox ~packing:vbox#pack () in
-let button_load = GButton.button ~label:"load" ~packing:hbox#pack () in
-let button_get_selection = GButton.button ~label:"get_selection" ~packing:hbox#pack () in
-let button_unload = GButton.button ~label:"unload" ~packing:hbox#pack () in
-let button_dump = GButton.button ~label:"dump" ~packing:hbox#pack () in
-let button_get_width = GButton.button ~label:"get_width" ~packing:hbox#pack () in
-let button_get_height = GButton.button ~label:"get_height" ~packing:hbox#pack () in
-let button_set_adjustments = GButton.button ~label:"set_adjustments" ~packing:hbox#pack () in
-let button_get_hadjustment = GButton.button ~label:"get_hadjustment" ~packing:hbox#pack () in
-let button_get_vadjustment = GButton.button ~label:"get_vadjustment" ~packing:hbox#pack () in
-let button_get_buffer = GButton.button ~label:"get_buffer" ~packing:hbox#pack () in
-let button_get_frame = GButton.button ~label:"get_frame" ~packing:hbox#pack () in
-let button_set_font_size = GButton.button ~label:"set_font_size" ~packing:hbox#pack () in
-(* Signals connection *)
-ignore(button_load#connect#clicked (load mathview)) ;
-ignore(button_get_selection#connect#clicked (get_selection mathview)) ;
-ignore(button_unload#connect#clicked (unload mathview)) ;
-ignore(button_dump#connect#clicked (dump mathview)) ;
-ignore(button_get_width#connect#clicked (get_width mathview)) ;
-ignore(button_get_height#connect#clicked (get_height mathview)) ;
-ignore(button_set_adjustments#connect#clicked (set_adjustments mathview)) ;
-ignore(button_get_hadjustment#connect#clicked (get_hadjustment mathview)) ;
-ignore(button_get_vadjustment#connect#clicked (get_vadjustment mathview)) ;
-ignore(button_get_buffer#connect#clicked (get_buffer mathview)) ;
-ignore(button_get_frame#connect#clicked (get_frame mathview)) ;
-ignore(button_set_font_size#connect#clicked (set_font_size mathview)) ;
-ignore(mathview#connect#jump jump) ;
-ignore(mathview#connect#clicked clicked) ;
-(* Main Loop *)
-main_window#show () ;
-GMain.Main.main ()
-;;

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/test/test.xml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/test/test.xml
deleted file mode 100644 (file)
index b0f8c15..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0/test/test.xml
+++ /dev/null
@@ -1,123 +0,0 @@
-<math display="block">
-  <mrow helm:xref="SELECTION OK">
-    <mo>&int;</mo>
-    <mo>&ApplyFunction;</mo>
-    <mfrac>
-      <mrow>
-        <mrow>
-          <mi>a</mi>
-         <mo>&InvisibleTimes;</mo>
-         <mi>x</mi>
-       </mrow>
-       <mo>+</mo>
-       <mi>b</mi>
-      </mrow>
-      <mrow>
-        <msup>
-         <mi>x</mi>
-         <mn>2</mn>
-       </msup>
-       <mo>+</mo>
-       <mrow>
-         <mi>p</mi>
-         <mo>&InvisibleTimes;</mo>
-         <mi>x</mi>
-       </mrow>
-       <mo>+</mo>
-       <mi>q</mi>
-      </mrow>
-    </mfrac>
-  </mrow>
-  <mo fontstyle="italic">d</mo>
-  <mi>x</mi>
-  <mo>=</mo>
-  <mrow>
-    <mrow>
-      <mfrac><mi>a</mi><mn>2</mn></mfrac>
-      <mo>&InvisibleTimes;</mo>
-      <mrow>
-        <mi>ln</mi>
-       <mo>&ApplyFunction;</mo>
-       <mrow>
-         <mo>(</mo>
-         <mrow>
-           <msup><mi>x</mi><mn>2</mn></msup>
-           <mo>+</mo>
-           <mrow>
-             <mi>p</mi>
-             <mo>&InvisibleTimes;</mo>
-             <mi>x</mi>
-           </mrow>
-           <mo>+</mo>
-           <mi>q</mi>
-         </mrow>
-         <mo>)</mo>
-       </mrow>
-      </mrow>
-    </mrow>
-    <mo>+</mo>
-    <mrow>
-      <mfrac>
-        <mrow>
-         <mrow>
-           <mn>2</mn>
-           <mo>&InvisibleTimes;</mo>
-           <mi>b</mi>
-         </mrow>
-         <mo>-</mo>
-         <mrow>
-           <mi>a</mi>
-           <mo>&InvisibleTimes;</mo>
-           <mi>p</mi>
-         </mrow>
-       </mrow>
-       <msqrt>
-         <mrow>
-           <mrow>
-             <mn>4</mn>
-             <mo>&InvisibleTimes;</mo>
-             <mi>q</mi>
-           </mrow>
-           <mo>-</mo>
-           <msup>
-             <mi>p</mi>
-             <mn>2</mn>
-           </msup>
-         </mrow>
-       </msqrt>
-      </mfrac>
-      <mo>&InvisibleTimes;</mo>
-      <mrow>
-        <mi xlink:href="JUMPS WORK">arctg</mi>
-       <mo>&ApplyFunction;</mo>
-       <mfrac>
-         <mrow>
-           <mrow>
-             <mn>2</mn>
-             <mo>&InvisibleTimes;</mo>
-             <mi>x</mi>
-           </mrow>
-           <mo>+</mo>
-           <mi>p</mi>
-         </mrow>
-         <msqrt>
-           <mrow>
-             <mrow>
-               <mn>4</mn>
-               <mo>&InvisibleTimes;</mo>
-               <mi>q</mi>
-             </mrow>
-             <mo>-</mo>
-             <msup>
-               <mi>p</mi>
-               <mn>2</mn>
-             </msup>
-           </mrow>
-         </msqrt>
-       </mfrac>
-      </mrow>
-    </mrow>
-    <mo>+</mo>
-    <mi>c</mi>
-  </mrow>  
-</math>

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0-1.spec b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0-1.spec
deleted file mode 100644 (file)
index 59a3298..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0-1.spec
+++ /dev/null
@@ -1,25 +0,0 @@
-Summary: GtkMathView : the binding for lablgtk of the GtkMathView widget
-Name: lablgtk-20000829_gtkmathview
-Version: 0.2.0
-Release: 1
-Copyright: LGPL
-Group: Development/Libraries
-Requires: lablgtk_20000829 gtkmathview
-Source: www.cs.unibo.it:/~lpadovan/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.1.0.tar.gz
-%description
-GtkMathView is the binding for lablgtk of the GtkMathView widget.
-
-%prep
-%setup
-
-%build
-make
-make opt
-
-%install
-make install
-
-%files
-%doc COPYING
-
-/usr/lib/ocaml/lablgtk/mathview

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0.tar.gz b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0.tar.gz
deleted file mode 100644 (file)
index 489f3c7..0000000
Binary files a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0.tar.gz and /dev/null differ

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/.cvsignore b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/.cvsignore
deleted file mode 100644 (file)
index cd9e250..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmi *.cmo *.cmx *.cma *.cmxa config.make

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/.depend b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/.depend
deleted file mode 100644 (file)
index 600449b..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/.depend
+++ /dev/null
@@ -1,4 +0,0 @@
-gMathView.cmo: gtkMathView.cmo gtk_mathview.cmo 
-gMathView.cmx: gtkMathView.cmx gtk_mathview.cmx 
-gtkMathView.cmo: gtk_mathview.cmo 
-gtkMathView.cmx: gtk_mathview.cmx 

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/COPYING b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/COPYING
deleted file mode 100644 (file)
index 20b480a..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/COPYING
+++ /dev/null
@@ -1,11 +0,0 @@
-This library is made available under the LGPL.
-You should have got a copy of the LGPL with Objective Caml.
-The LGPL applies to all the files in this directory, but not in
-subdirectories.
-
-For the test subdirectory, there is no specific licensing policy,
-but you may freely take inspiration from the code, and copy parts of
-it in your application.
-
-Author:
-       Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/Makefile b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/Makefile
deleted file mode 100644 (file)
index d5a1685..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/Makefile
+++ /dev/null
@@ -1,107 +0,0 @@
-# Makefile for lablgtk_mathview.
-
-LABLGTKDIR = /usr/lib/ocaml/lablgtk
-MINIDOMDIR = ./minidom
-MLFLAGS += -I $(LABLGTKDIR) -I $(MINIDOMDIR)
-
-TARGETS = ml_gtk_mathview.o lablgtkmathview.cma
-
-all: Minidom $(TARGETS)
-
-opt: Minidom.opt lablgtkmathviewopt
-
-Minidom:
-       cd minidom ; make
-
-Minidom.opt:
-       cd minidom ; make opt
-
-configure:
-       @rm -f config.make
-       @$(MAKE) --no-print-directory -f configure.mk
-
-depend:
-       @rm -f .depend
-       @$(MAKE) --no-print-directory -f configure.mk .depend
-
-.depend config.make:
-       @$(MAKE) --no-print-directory -f configure.mk
-
-COMPILER = $(CAMLC) $(MLFLAGS) -w s -labels -c
-LINKER = $(CAMLC) $(MLFLAGS)
-COMPOPT = $(CAMLOPT) $(MLFLAGS) -w s -labels -c
-LINKOPT = $(CAMLOPT) $(MLFLAGS)
-
-include config.make
-
-INSTALLDIR = $(LIBDIR)/lablgtk/mathview
-
-MLLIBS = lablgtkmathview.cma
-CLIBS = 
-MLLINK = unix.cma str.cma
-
-ifdef DEBUG
-CFLAGS = -g $(GTKCFLAGS)
-MLLINK += -cclib -lcamlrund
-MLFLAGS += -g
-else
-CFLAGS = -O -DGTK_NO_CHECK_CASTS -DGTK_DISABLE_COMPAT_H $(GTKCFLAGS)
-endif
-
-THFLAGS = -thread
-THLINK = unix.cma threads.cma
-
-ifdef USE_CC
-CCOMPILER = $(CC) -c -I$(LIBDIR) $(CFLAGS)
-else
-CCOMPILER = ocamlc -c -ccopt "$(CFLAGS)"
-endif
-
-# Rules
-.SUFFIXES: .ml .mli .cmo .cmi .cmx .c .o .var .h .opt .def
-.c.o:
-       $(CCOMPILER) $<
-.ml.cmo:
-       $(COMPILER) $<
-.mli.cmi:
-       $(COMPILER) $<
-.ml.cmx:
-       $(COMPOPT) $<
-.var.h:
-       ./var2def < $< > $@
-.var.c:
-       ./var2conv < $< > $@
-
-# Targets
-COBJS = ml_gtk_mathview.o
-MLOBJS = gtk_mathview.cmo gtkMathView.cmo gMathView.cmo
-ALLOBJS = $(MLOBJS)
-
-lablgtkmathviewopt: $(CLIBS) $(MLLIBS:.cma=.cmxa)
-
-install:
-       if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
-       cp $(ALLOBJS:.cmo=.cmi) $(INSTALLDIR)
-       if test -f *.mli ; then cp *.mli $(INSTALLDIR) ; fi
-       cp $(ALLOBJS:.cmo=.ml) $(INSTALLDIR)
-       cp $(MLLIBS) $(INSTALLDIR)
-       cp $(COBJS) $(INSTALLDIR)
-       if test ! -z "$(CLIBS)" ; then cp $(CLIBS) $(INSTALLDIR) ; fi
-       if test -f lablgtkmathview.cmxa; then \
-          cp $(MLLIBS:.cma=.cmxa) $(MLLIBS:.cma=.a) \
-             $(INSTALLDIR); fi
-       cd minidom ; make install
-
-lablgtkmathview.cma: $(MLOBJS)
-       $(LINKER) -a -custom -o $@ $(MLOBJS) $(GTKLIBS) $(GTKMATHVIEWLIBS)
-lablgtkmathview.cmxa: $(MLOBJS:.cmo=.cmx)
-       $(LINKOPT) -a -o $@ $(MLOBJS:.cmo=.cmx) $(GTKLIBS) $(GTKMATHVIEWLIBS)
-
-ml_gtk.o: $(LABLGTKDIR)/gtk_tags.c $(LABLGTKDIR)/gtk_tags.h \
-          $(LABLGTKDIR)/ml_gtk.h $(LABLGTKDIR)/ml_gdk.h $(LABLGTKDIR)/wrappers.h
-
-clean:
-       rm -f *.cm* *.o *.a *_tags.[ch] $(TARGETS)
-       cd minidom ; make clean
-
-include .depend

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/configure.mk b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/configure.mk
deleted file mode 100644 (file)
index c5fd711..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/configure.mk
+++ /dev/null
@@ -1,53 +0,0 @@
-# makefile for configuring lablGTK_mathview
-
-# Default compilers
-CAMLC = ocamlc
-CAMLOPT = ocamlopt
-
-# Default installation directories
-BINDIR = `$(GETBINDIR)`
-INSTALLDIR = $(LIBDIR)/lablgtk/mathview
-
-# Autoconf
-GETLIBDIR = ocamlc -v | grep "^Standard" | sed 's/^.*: *//'
-LIBDIR = `$(GETLIBDIR)`
-GETBINDIR = $(GETLIBDIR) | sed -e 's|/lib/[^/]*$$|/bin|' -e 's|/lib$$|/bin|'
-GETRANLIB = which ranlib 2>/dev/null | sed -e 's|.*/ranlib$$|!|' -e 's/^[^!]*$$/:/' -e 's/!/ranlib/'
-
-ifdef USE_GNOME
-GTKGETCFLAGS = gtk-config --cflags`" -I"`gnome-config --includedir" "`xml-config --cflags`" "`gtkmathview-config --cflags
-GNOMELIBS = `gnome-config --libs gtkxmhtml`
-else
-GTKGETCFLAGS = gtk-config --cflags`" "`xml-config --cflags`" "`gtkmathview-config --cflags
-endif
-
-GTKGETLIBS = gtk-config --libs
-
-configure: .depend config.make
-
-.depend:
-       ocamldep *.ml *.mli > .depend
-
-config.make:
-       @echo CAMLC=$(CAMLC) > config.make
-       @echo CAMLOPT=$(CAMLOPT) >> config.make
-       @echo USE_GL=$(USE_GL) >> config.make
-       @echo USE_GNOME=$(USE_GNOME) >> config.make
-       @echo USE_CC=$(USE_CC) >> config.make
-       @echo DEBUG=$(DEBUG) >> config.make
-       @echo CC=$(CC) >> config.make
-       @echo RANLIB=`$(GETRANLIB)` >> config.make
-       @echo LIBDIR=$(LIBDIR) >> config.make
-       @echo BINDIR=`$(GETBINDIR)` >> config.make
-       @echo INSTALLDIR=$(INSTALLDIR) >> config.make
-       @echo GTKCFLAGS=`$(GTKGETCFLAGS)` -I/usr/lib/ocaml/lablgtk >> config.make
-       @echo GTKLIBS=`$(GTKGETLIBS)` | \
-         sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
-         >> config.make
-       #<CSC>
-       echo GTKMATHVIEWLIBS="-ccopt \""`gtkmathview-config --libs`"\"" >> config.make
-       #</CSC>
-       @echo GNOMELIBS=$(GNOMELIBS) | \
-         sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
-         >> config.make
-       cat config.make

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/gMathView.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/gMathView.ml
deleted file mode 100644 (file)
index 87f0d50..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/gMathView.ml
+++ /dev/null
@@ -1,64 +0,0 @@
-open Gaux
-open Gtk
-open Gtk_mathview
-open GtkBase
-open GtkMathView
-open GObj
-
-exception ErrorLoadingFile of string;;
-exception ErrorWritingFile of string;;
-
-class math_view_signals obj = object
-  inherit GContainer.container_signals obj
-  method clicked = GtkSignal.connect ~sgn:MathView.Signals.clicked obj ~after
-  method jump = GtkSignal.connect ~sgn:MathView.Signals.jump obj ~after
-  method selection_changed =
-  GtkSignal.connect ~sgn:MathView.Signals.selection_changed obj ~after
-end
-
-class math_view obj = object
- inherit GContainer.container (obj : Gtk_mathview.math_view obj)
- method connect = new math_view_signals obj
- method load ~filename =
-  if not (MathView.load obj ~filename) then raise (ErrorLoadingFile filename)
- method unload = MathView.unload obj
- method get_selection = MathView.get_selection obj
- method set_selection = MathView.set_selection obj
- method get_width = MathView.get_width obj
- method get_height = MathView.get_height obj
- method get_top = MathView.get_top obj
- method set_top = MathView.set_top obj
- method set_adjustments =
-  fun adj1 adj2 ->
-   MathView.set_adjustments obj (GData.as_adjustment adj1)
-   (GData.as_adjustment adj2)
- method get_hadjustment = new GData.adjustment (MathView.get_hadjustment obj)
- method get_vadjustment = new GData.adjustment (MathView.get_vadjustment obj)
- method get_buffer = MathView.get_buffer obj
- method get_frame = new GBin.frame (MathView.get_frame obj)
- method set_font_size = MathView.set_font_size obj
- method get_font_size = MathView.get_font_size obj
- method set_anti_aliasing = MathView.set_anti_aliasing obj
- method get_anti_aliasing = MathView.get_anti_aliasing obj
- method set_kerning = MathView.set_kerning obj
- method get_kerning = MathView.get_kerning obj
- method set_log_verbosity = MathView.set_log_verbosity obj
- method get_log_verbosity = MathView.get_log_verbosity obj
- method export_to_postscript ~filename =
-  if not (MathView.export_to_postscript obj ~filename) then
-   raise (ErrorWritingFile filename)
-end
-
-let math_view ?adjustmenth ?adjustmentv ?(use_t1_lib=false) ?border_width
- ?width ?height ?packing ?show ()
-=
- let w =
-   MathView.create
-    ?adjustmenth:(may_map ~f:GData.as_adjustment adjustmenth)
-    ?adjustmentv:(may_map ~f:GData.as_adjustment adjustmentv)
-    ?use_t1_lib
-    ()
- in
-  Container.set w ?border_width ?width ?height;
-  pack_return (new math_view w) ~packing ~show
-;;

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/gtkMathView.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/gtkMathView.ml
deleted file mode 100644 (file)
index 97ae38e..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/gtkMathView.ml
+++ /dev/null
@@ -1,93 +0,0 @@
-open Gtk
-open Gtk_mathview
-open Tags
-open GtkBase
-open Gpointer
-
-external mDOMNode_of_boxed_option :
- Gpointer.boxed option -> Minidom.mDOMNode =
-  "ml_gtk_math_view_mDOMNode_of_bodex_option"
-
-external mDOMNode_option_of_boxed_option :
- Gpointer.boxed option -> Minidom.mDOMNode option =
-  "ml_gtk_math_view_mDOMNode_option_of_bodex_option"
-
-module MathView = struct
-  let cast w : math_view obj = Object.try_cast w "GtkMathView"
-  external create : Gtk.adjustment optobj -> Gtk.adjustment optobj -> bool ->
-   math_view obj = "ml_gtk_math_view_new"
-  let create ~adjustmenth ~adjustmentv ~use_t1_lib () =
-   create (optboxed adjustmenth) (optboxed adjustmentv) use_t1_lib
-  external load : [>`math_view] obj -> filename:string -> bool =
-   "ml_gtk_math_view_load"
-  external unload : [>`math_view] obj -> unit =
-   "ml_gtk_math_view_unload"
-  external get_selection : [>`math_view] obj -> Minidom.mDOMNode option =
-   "ml_gtk_math_view_get_selection"
-  external set_selection : [>`math_view] obj -> Minidom.mDOMNode option -> unit=
-   "ml_gtk_math_view_set_selection"
-  external get_width : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_width"
-  external get_height : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_height"
-  external get_top : [>`math_view] obj -> (int * int) =
-   "ml_gtk_math_view_get_top"
-  external set_top : [>`math_view] obj -> int -> int -> unit =
-   "ml_gtk_math_view_set_top"
-  external set_adjustments : [>`math_view] obj -> Gtk.adjustment obj -> Gtk.adjustment obj -> unit =
-   "ml_gtk_math_view_set_adjustments"
-  external get_hadjustment : [>`math_view] obj -> Gtk.adjustment obj =
-   "ml_gtk_math_view_get_hadjustment"
-  external get_vadjustment : [>`math_view] obj -> Gtk.adjustment obj =
-   "ml_gtk_math_view_get_vadjustment"
-  external get_buffer : [>`math_view] obj -> Gdk.pixmap =
-   "ml_gtk_math_view_get_buffer"
-  external get_frame : [>`math_view] obj -> [`frame] obj =
-   "ml_gtk_math_view_get_frame"
-  external set_font_size : [>`math_view] obj -> int -> unit =
-   "ml_gtk_math_view_set_font_size"
-  external get_font_size : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_font_size"
-  external set_anti_aliasing : [>`math_view] obj -> bool -> unit =
-   "ml_gtk_math_view_set_anti_aliasing"
-  external get_anti_aliasing : [>`math_view] obj -> bool =
-   "ml_gtk_math_view_get_anti_aliasing"
-  external set_kerning : [>`math_view] obj -> bool -> unit =
-   "ml_gtk_math_view_set_kerning"
-  external get_kerning : [>`math_view] obj -> bool =
-   "ml_gtk_math_view_get_kerning"
-  external set_log_verbosity : [>`math_view] obj -> int -> unit =
-   "ml_gtk_math_view_set_log_verbosity"
-  external get_log_verbosity : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_log_verbosity"
-  external export_to_postscript : [>`math_view] obj -> filename:string -> bool =
-   "ml_gtk_math_view_export_to_postscript"
-
-  module Signals = struct
-    open GtkSignal
-
-    let clicked : ([>`math_view],_) t =
-     let marshal_clicked f _ =
-      function
-         [GtkArgv.POINTER node] -> f (mDOMNode_of_boxed_option node)
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_clicked"
-     in
-      { name = "clicked"; marshaller = marshal_clicked }
-
-    let jump : ([>`math_view],_) t =
-     let marshal_jump f _ =
-      function
-         [GtkArgv.POINTER node] -> f (mDOMNode_of_boxed_option node)
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_jump"
-     in
-      { name = "jump"; marshaller = marshal_jump }
-
-    let selection_changed : ([>`math_view],_) t =
-     let marshal_selection_changed f _ =
-      function
-         [GtkArgv.POINTER node] -> f (mDOMNode_option_of_boxed_option node)
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_selection_changed"
-     in
-      { name = "selection_changed"; marshaller = marshal_selection_changed }
-  end
-end

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/gtk_mathview.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/gtk_mathview.ml
deleted file mode 100644 (file)
index 745a1ba..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/gtk_mathview.ml
+++ /dev/null
@@ -1 +0,0 @@
-type math_view = [`widget|`container|`bin|`eventbox|`math_view]

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/.cvsignore b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/.cvsignore
deleted file mode 100644 (file)
index 84bdd8e..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmi *.cmo *.cmx test test.opt

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/Makefile b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/Makefile
deleted file mode 100644 (file)
index 7463870..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/Makefile
+++ /dev/null
@@ -1,43 +0,0 @@
-LIBDIR = /usr/lib/ocaml
-INSTALLDIR = $(LIBDIR)/lablgtk/mathview/minidom
-OBJECTS = minidom.cmi minidom.cmo minidom.cmx minidom.mli ml_minidom.h \
-          ml_minidom.o minidom.o
-
-all: test
-
-opt: test.opt
-
-ml_minidom.o: ml_minidom.c
-       gcc -c -I/usr/lib/ocaml/caml/ `glib-config --cflags` `xml-config --cflags` `gtkmathview-config --cflags` $<
-
-minidom.cmi: minidom.mli
-       ocamlc -c $<
-
-minidom.cmo: minidom.ml minidom.cmi
-       ocamlc -c $<
-
-minidom.cmx: minidom.ml minidom.cmi
-       ocamlopt -c $<
-
-test.cmo: test.ml minidom.cmo
-       ocamlc -c test.ml
-
-test.cmx: test.ml minidom.cmx
-       ocamlopt -c test.ml
-
-test: test.cmo minidom.cmo ml_minidom.o
-       ocamlc -custom -o test minidom.cmo test.cmo ml_minidom.o \
-        -cclib "`xml-config --libs`" -cclib "`glib-config --libs`" \
-        -cclib "`gtkmathview-config --libs`"
-
-test.opt: test.cmx minidom.cmx ml_minidom.o
-       ocamlopt -o test.opt minidom.cmx test.cmx ml_minidom.o \
-        -cclib "`xml-config --libs`" -cclib "`glib-config --libs`" \
-        -cclib "`gtkmathview-config --libs`"
-
-install:
-       if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
-       cp $(OBJECTS) $(INSTALLDIR)
-
-clean:
-       rm -f *.o *.cm? test test.opt

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/minidom.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/minidom.ml
deleted file mode 100644 (file)
index 31e677b..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/minidom.ml
+++ /dev/null
@@ -1,61 +0,0 @@
-
-type mDOMString
-type mDOMDoc
-type mDOMNode
-type mDOMAttr
-type mDOMEntity
-
-external string_of_mDOMString : mDOMString -> string = "ml_string_of_mDOMString"
-external mDOMString_of_string : string -> mDOMString = "ml_mDOMString_of_string"
-external mDOMString_eq : string -> string -> bool = "ml_mDOMString_eq"
-
-external doc_load : string -> mDOMDoc = "ml_doc_load"
-external doc_unload : mDOMDoc -> unit = "ml_doc_unload"
-
-external doc_new : mDOMString -> mDOMDoc = "ml_doc_new"
-external doc_get_root_node : mDOMDoc -> mDOMNode = "ml_doc_get_root_node"
-
-external doc_add_entity : mDOMDoc -> mDOMString -> mDOMString -> mDOMEntity = "ml_doc_add_entity"
-external doc_get_entity : mDOMDoc -> mDOMString -> mDOMEntity option = "ml_doc_get_entity"
-external doc_get_predefined_entity : mDOMDoc -> mDOMString -> mDOMEntity option = "ml_doc_get_predefined_entity"
-external entity_get_content : mDOMEntity -> mDOMString = "ml_entity_get_content"
-
-external node_is_text  : mDOMNode -> bool = "ml_node_is_text"
-external node_is_element : mDOMNode -> bool = "ml_node_is_element"
-external node_is_blank : mDOMNode -> bool = "ml_node_is_blank"
-external node_is_entity_ref : mDOMNode -> bool = "ml_node_is_entity_ref"
-external node_get_type : mDOMNode -> int = "ml_node_get_type"
-external node_get_name : mDOMNode -> mDOMString option = "ml_node_get_name"
-external node_get_ns_uri : mDOMNode -> mDOMString option = "ml_node_get_ns_uri"
-external node_get_attribute : mDOMNode -> mDOMString -> mDOMString option = "ml_node_get_attribute"
-external node_get_attribute_ns : mDOMNode -> mDOMString -> mDOMString -> mDOMString option = "ml_node_get_attribute_ns"
-external node_get_content : mDOMNode -> mDOMString option = "ml_node_get_content"
-external node_get_parent : mDOMNode -> mDOMNode option = "ml_node_get_parent"
-external node_get_prev_sibling : mDOMNode -> mDOMNode option = "ml_node_get_prev_sibling"
-external node_get_next_sibling : mDOMNode -> mDOMNode option = "ml_node_get_next_sibling"
-external node_get_first_child : mDOMNode -> mDOMNode option = "ml_node_get_first_child"
-external node_get_first_attribute : mDOMNode -> mDOMAttr option = "ml_node_get_first_attribute"
-external node_is_first : mDOMNode -> bool = "ml_node_is_first"
-external node_is_last : mDOMNode -> bool = "ml_node_is_last"
-
-external attr_get_name : mDOMAttr -> mDOMString option = "ml_attr_get_name"
-external attr_get_ns_uri : mDOMAttr -> mDOMString option = "ml_attr_get_ns_uri"
-external attr_get_value : mDOMAttr -> mDOMString option = "ml_attr_get_value"
-external attr_get_prev_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_prev_sibling"
-external attr_get_next_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_next_sibling"
-external attr_get_parent : mDOMAttr -> mDOMNode option = "ml_attr_get_parent"
-
-let rec node_list_of_node_first =
-  function None -> []
-  |        Some node -> node :: (node_list_of_node_first (node_get_next_sibling node))
-
-let rec attr_list_of_attr_first =
-  function None -> []
-  |        Some attr -> attr :: (attr_list_of_attr_first (attr_get_next_sibling attr))
-  
-let node_get_children node =
-  (node_list_of_node_first (node_get_first_child node))
-
-let node_get_attributes node =
-  (attr_list_of_attr_first (node_get_first_attribute node))
-

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/minidom.mli b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/minidom.mli
deleted file mode 100644 (file)
index 0b65595..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/minidom.mli
+++ /dev/null
@@ -1,50 +0,0 @@
-
-type mDOMString
-type mDOMDoc
-type mDOMNode
-type mDOMAttr
-type mDOMEntity
-
-external string_of_mDOMString : mDOMString -> string = "ml_string_of_mDOMString"
-external mDOMString_of_string : string -> mDOMString = "ml_mDOMString_of_string"
-external mDOMString_eq : string -> string -> bool = "ml_mDOMString_eq"
-
-external doc_load : string -> mDOMDoc = "ml_doc_load"
-external doc_unload : mDOMDoc -> unit = "ml_doc_unload"
-
-external doc_new : mDOMString -> mDOMDoc = "ml_doc_new"
-external doc_get_root_node : mDOMDoc -> mDOMNode = "ml_doc_get_root_node"
-
-external doc_add_entity : doc:mDOMDoc -> name:mDOMString -> content:mDOMString -> mDOMEntity = "ml_doc_add_entity"
-external doc_get_entity : doc:mDOMDoc -> name:mDOMString -> mDOMEntity option = "ml_doc_get_entity"
-external doc_get_predefined_entity : doc:mDOMDoc -> name:mDOMString -> mDOMEntity option = "ml_doc_get_predefined_entity"
-external entity_get_content : mDOMEntity -> mDOMString = "ml_entity_get_content"
-
-external node_is_text  : mDOMNode -> bool = "ml_node_is_text"
-external node_is_element : mDOMNode -> bool = "ml_node_is_element"
-external node_is_blank : mDOMNode -> bool = "ml_node_is_blank"
-external node_is_entity_ref : mDOMNode -> bool = "ml_node_is_entity_ref"
-external node_get_type : mDOMNode -> int = "ml_node_get_type"
-external node_get_name : mDOMNode -> mDOMString option = "ml_node_get_name"
-external node_get_ns_uri : mDOMNode -> mDOMString option = "ml_node_get_ns_uri"
-external node_get_attribute : node:mDOMNode -> name:mDOMString -> mDOMString option = "ml_node_get_attribute"
-external node_get_attribute_ns : node:mDOMNode -> name:mDOMString -> ns_uri:mDOMString -> mDOMString option = "ml_node_get_attribute_ns"
-external node_get_content : mDOMNode -> mDOMString option = "ml_node_get_content"
-external node_get_parent : mDOMNode -> mDOMNode option = "ml_node_get_parent"
-external node_get_prev_sibling : mDOMNode -> mDOMNode option = "ml_node_get_prev_sibling"
-external node_get_next_sibling : mDOMNode -> mDOMNode option = "ml_node_get_next_sibling"
-external node_get_first_child : mDOMNode -> mDOMNode option = "ml_node_get_first_child"
-external node_get_first_attribute : mDOMNode -> mDOMAttr option = "ml_node_get_first_attribute"
-external node_is_first : mDOMNode -> bool = "ml_node_is_first"
-external node_is_last : mDOMNode -> bool = "ml_node_is_last"
-
-external attr_get_name : mDOMAttr -> mDOMString option = "ml_attr_get_name"
-external attr_get_ns_uri : mDOMAttr -> mDOMString option = "ml_attr_get_ns_uri"
-external attr_get_value : mDOMAttr -> mDOMString option = "ml_attr_get_value"
-external attr_get_prev_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_prev_sibling"
-external attr_get_next_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_next_sibling"
-external attr_get_parent : mDOMAttr -> mDOMNode option = "ml_attr_get_parent"
-
-val node_get_children : mDOMNode -> mDOMNode list
-val node_get_attributes : mDOMNode -> mDOMAttr list
-

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/ml_minidom.c b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/ml_minidom.c
deleted file mode 100644 (file)
index 1062614..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/ml_minidom.c
+++ /dev/null
@@ -1,288 +0,0 @@
-
-#include <assert.h>
-#include <mlvalues.h>
-#include <memory.h>
-
-#include "minidom.h"
-
-#define Val_ptr(p)        ((value) (p))
-#define Val_option(p,f)   ((p != NULL) ? ml_some(f(p)) : Val_unit)
-#define Val_mDOMString(s) (copy_string((char*) (s)))
-#define mDOMString_val(v) ((mDOMStringRef) String_val(v))
-
-static value
-ml_some(value v)
-{
-  CAMLparam1(v);
-  value ret = alloc_small(1,0);
-  Field(ret,0) = v;
-  CAMLreturn(ret);
-}
-
-value
-ml_string_of_mDOMString(value s)
-{
-  CAMLparam1(s);
-  CAMLreturn(s);
-}
-
-value
-ml_mDOMString_of_string(value s)
-{
-  CAMLparam1(s);
-  CAMLreturn(s);
-}
-
-value
-ml_doc_load(value file_name)
-{
-  mDOMDocRef doc_ref;
-
-  CAMLparam1(file_name);
-
-  doc_ref = mdom_load(String_val(file_name), FALSE, NULL);
-  if (doc_ref == NULL) failwith("minidom: could not load document");
-
-  CAMLreturn((value) doc_ref);
-}
-
-value
-ml_doc_unload(value doc)
-{
-  CAMLparam1(doc);
-
-  mdom_unload((mDOMDocRef) doc);
-
-  CAMLreturn(Val_unit);
-}
-
-value
-ml_doc_new(value s)
-{
-  mDOMDocRef doc_ref;
-
-  CAMLparam1(s);
-
-  doc_ref = mdom_doc_new(mDOMString_val(s));
-  if (doc_ref == NULL) failwith("minidom: could not create new document");
-
-  CAMLreturn((value) doc_ref);
-}
-
-
-value
-ml_doc_get_root_node(value doc)
-{
-  mDOMNodeRef root;
-
-  CAMLparam1(doc);
-  root = mdom_doc_get_root_node((mDOMDocRef) doc);
-  if (root == NULL) failwith("minidom: document has no root node!");
-
-  CAMLreturn((value) root);
-}
-
-value
-ml_doc_add_entity(value doc, value name, value content)
-{
-  mDOMEntityRef ent;
-
-  CAMLparam3(doc, name, content);
-  ent = mdom_doc_add_entity((mDOMDocRef) doc, mDOMString_val(name), mDOMString_val(content));
-  if (ent == NULL) failwith("minidom: could not add entity");
-
-  CAMLreturn((value) ent);
-}
-
-value
-ml_doc_get_entity(value doc, value name)
-{
-  mDOMEntityRef ent;
-
-  CAMLparam2(doc, name);
-  ent = mdom_doc_get_entity((mDOMDocRef) doc, mDOMString_val(name));
-
-  CAMLreturn(Val_option(ent, Val_ptr));
-}
-
-value
-ml_doc_get_predefined_entity(value name)
-{
-  mDOMEntityRef ent;
-
-  CAMLparam1(name);
-  ent = mdom_get_predefined_entity(mDOMString_val(name));
-
-  CAMLreturn(Val_option(ent, Val_ptr));
-}
-
-value
-ml_entity_get_content(value ent)
-{
-  CAMLparam1(ent);
-  CAMLreturn(Val_mDOMString(mdom_entity_get_content((mDOMEntityRef) ent)));
-}
-
-value
-ml_node_is_text(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_text((mDOMNodeRef) node)));
-}
-
-value
-ml_node_is_element(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_element((mDOMNodeRef) node)));
-}
-
-value
-ml_node_is_blank(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_blank((mDOMNodeRef) node)));
-}
-
-value
-ml_node_is_entity_ref(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_entity_ref((mDOMNodeRef) node)));
-}
-
-value
-ml_node_get_type(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_int(mdom_node_get_type((mDOMNodeRef) node)));
-}
-
-value
-ml_node_get_name(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_name((mDOMNodeRef) node), Val_mDOMString));
-}
-
-value
-ml_node_get_content(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_content((mDOMNodeRef) node), Val_mDOMString));
-}
-
-value
-ml_node_get_ns_uri(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_ns_uri((mDOMNodeRef) node), Val_mDOMString));
-}
-
-value
-ml_node_get_attribute(value node, value name)
-{
-  CAMLparam2(node,name);
-  CAMLreturn(Val_option(mdom_node_get_attribute((mDOMNodeRef) node, String_val(name)), Val_mDOMString));
-}
-
-value
-ml_node_get_attribute_ns(value node, value name, value ns_uri)
-{
-  CAMLparam2(node,name);
-  CAMLreturn(Val_option(mdom_node_get_attribute_ns((mDOMNodeRef) node,
-                                                  String_val(name),
-                                                  String_val(ns_uri)), Val_mDOMString));
-}
-
-value
-ml_node_get_parent(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_parent((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_get_prev_sibling(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_prev_sibling((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_get_next_sibling(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_next_sibling((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_get_first_child(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_first_child((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_get_first_attribute(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_first_attribute((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_is_first(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_first((mDOMNodeRef) node)));
-}
-
-value
-ml_node_is_last(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_last((mDOMNodeRef) node)));
-}
-
-value
-ml_attr_get_name(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_name((mDOMAttrRef) attr), Val_mDOMString));
-}
-
-value
-ml_attr_get_ns_uri(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_ns_uri((mDOMAttrRef) attr), Val_mDOMString));
-}
-
-value
-ml_attr_get_value(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_value((mDOMAttrRef) attr), Val_mDOMString));
-}
-
-value
-ml_attr_get_prev_sibling(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_prev_sibling((mDOMAttrRef) attr), Val_ptr));
-}
-
-value
-ml_attr_get_next_sibling(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_next_sibling((mDOMAttrRef) attr), Val_ptr));
-}
-
-value
-ml_attr_get_parent(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_parent((mDOMAttrRef) attr), Val_ptr));
-}
-

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/ml_minidom.h b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/ml_minidom.h
deleted file mode 100644 (file)
index cf1be3a..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/ml_minidom.h
+++ /dev/null
@@ -1,10 +0,0 @@
-#define Val_ptr(p)        ((value) (p))
-#define Val_option(p,f)   ((p != NULL) ? ml_some(f(p)) : Val_unit)
-#define Val_mDOMString(s) (copy_string((char*) (s)))
-#define mDOMString_val(v) ((mDOMStringRef) String_val(v))
-#define mDOMNode_val(v) ((mDOMNodeRef) v)
-
-#define mDOMNode_option_mDOMNodeRef(p) (((p) != NULL) ? ml_some((value) (p)) : Val_unit)
-#define mDOMNodeRef_mDOMNode_option(v) ((v == Val_unit) ? NULL : (mDOMNodeRef)Field((v),0))
-#define Val_mDOMNodeRef(p)             (mDOMNode_option_mDOMNodeRef(p))
-#define mDOMNodeRef_val(v)             (mDOMNodeRef_mDOMNode_option(v))

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/test.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/test.ml
deleted file mode 100644 (file)
index 3c7a092..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/test.ml
+++ /dev/null
@@ -1,84 +0,0 @@
-
-let doc = Minidom.doc_load "test.xml"
-
-let root = Minidom.doc_get_root_node doc
-
-let check_attribute_ns attr =
-  Printf.printf "\n\n";
-  let ns_uri = Minidom.attr_get_ns_uri attr
-  and attr_name = Minidom.attr_get_name attr
-  and attr_value = Minidom.attr_get_value attr
-  and parent = Minidom.attr_get_parent attr
-  in
-  match parent,ns_uri,attr_name,attr_value with
-    Some parent_node,Some uri,Some attribute_name,Some attribute_value ->
-      let attr_value = Minidom.node_get_attribute_ns parent_node attribute_name uri
-      in begin
-        match attr_value with
-          Some attr1 ->
-           Printf.printf "found the attribute with ns %s (was %s)\n"
-              (Minidom.string_of_mDOMString attr1) (Minidom.string_of_mDOMString attribute_value)
-        | None ->
-           Printf.printf "attribute not found (uri was %s)!!!!\n" (Minidom.string_of_mDOMString uri)
-      end
-  | _ ->
-      Printf.printf "parent_node == NULL || uri == NULL || attribute_name == NULL || attribute_value == NULL\n"
-;;
-    
-let print_attribute attr =
-  check_attribute_ns attr;
-  let ns_uri = Minidom.attr_get_ns_uri attr
-  in
-  begin
-    match ns_uri with
-      Some uri -> Printf.printf " %s:" (Minidom.string_of_mDOMString uri);
-    | None -> ()
-  end;
-  match ((Minidom.attr_get_name attr), (Minidom.attr_get_value attr)) with
-    (Some attr_name, Some attr_value) ->
-      Printf.printf " %s=\"%s\"" (Minidom.string_of_mDOMString attr_name) (Minidom.string_of_mDOMString attr_value) 
-  | (Some attr_name, _) ->
-      Printf.printf " ??? attribute %s has no value !!!" (Minidom.string_of_mDOMString attr_name)
-  | (_,_) ->
-      Printf.printf " ??? very strange attribute !!!"
-;;
-
-let rec print_node n node =
-  if Minidom.node_is_blank node then ()
-  else if Minidom.node_is_element node then begin
-    match Minidom.node_get_name node with
-      Some node_name -> 
-        begin
-          let children = Minidom.node_get_children node
-          and attributes = Minidom.node_get_attributes node
-          and ns_uri = Minidom.node_get_ns_uri node
-          and is_first,is_last = (Minidom.node_is_first node), (Minidom.node_is_last node)
-          in
-          for i = 1 to n do print_char ' ' done;
-          Printf.printf "<";
-          begin
-            match ns_uri with
-              Some uri -> Printf.printf "%s:" (Minidom.string_of_mDOMString uri)
-            | None     -> ()
-          end;
-          Printf.printf "%s" (Minidom.string_of_mDOMString node_name);
-          List.iter print_attribute attributes;
-          Printf.printf ">\n";
-          List.iter (print_node (n + 2)) children;
-          for i = 1 to n do print_char ' ' done;
-          Printf.printf "</%s>\n" (Minidom.string_of_mDOMString node_name)
-        end
-    | None -> Printf.printf "??? this node has no name !!!\n"
-  end else if Minidom.node_is_text node then begin
-    match Minidom.node_get_content node with
-      Some node_content ->
-        for i = 1 to n do print_char ' ' done;
-        Printf.printf "%s\n" (Minidom.string_of_mDOMString node_content)
-    | None -> Printf.printf "??? this node has no content !!!\n"
-  end else begin
-    Printf.printf "don't know how to manage a node with type %d\n" (Minidom.node_get_type node)
-  end
-;;
-  
-print_node 0 root;;
-

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/test.xml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/test.xml
deleted file mode 100644 (file)
index 83d2eef..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/minidom/test.xml
+++ /dev/null
@@ -1,505 +0,0 @@
-<?xml version="1.0" encoding="iso-8859-1"?>
-<?cocoon-format type="text/xhtml"?>
-<m:math xmlns:helm="http://www.cs.unibo.it/helm" xmlns:m="http://www.w3.org/1998/Math/MathML">
-    <m:mtable helm:xref="i0" columnalign="left" equalrows="false" align="baseline 1">
-        <m:mtr>
-            <m:mtd>
-                <m:mrow>
-                    <m:mtext>DEFINITION and_ind() OF TYPE</m:mtext>
-                </m:mrow>
-            </m:mtd>
-        </m:mtr>
-        <m:mtr>
-            <m:mtd>
-                <m:mrow>
-                    <m:mphantom>
-                        <m:mtext>__</m:mtext>
-                    </m:mphantom>
-                    <m:semantics xmlns:xlink="http://www.w3.org/1999/xlink">
-                        <m:mrow helm:xref="i22">
-                            <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mrow>
-                                            <m:mo stretchy="false">(</m:mo>
-                                            <m:mrow helm:xref="i23">
-                                                <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                    <m:mtr>
-                                                        <m:mtd>
-                                                            <m:mo color="Blue">&#928;</m:mo>
-                                                            <m:mi>A</m:mi>
-                                                            <m:mo>:</m:mo>
-                                                            <m:mrow helm:xref="i24">
-                                                                <m:mo>Prop</m:mo>
-                                                            </m:mrow>
-                                                        </m:mtd>
-                                                    </m:mtr>
-                                                    <m:mtr>
-                                                        <m:mtd>
-                                                            <m:mrow>
-                                                                <m:mo>.</m:mo>
-                                                                <m:mrow helm:xref="i25">
-                                                                    <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                        <m:mtr>
-                                                                            <m:mtd>
-                                                                                <m:mo color="Blue">&#928;</m:mo>
-                                                                                <m:mi>B</m:mi>
-                                                                                <m:mo>:</m:mo>
-                                                                                <m:mrow helm:xref="i26">
-                                                                                    <m:mo>Prop</m:mo>
-                                                                                </m:mrow>
-                                                                            </m:mtd>
-                                                                        </m:mtr>
-                                                                        <m:mtr>
-                                                                            <m:mtd>
-                                                                                <m:mrow>
-                                                                                    <m:mo>.</m:mo>
-                                                                                    <m:mrow helm:xref="i27">
-                                                                                        <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                                            <m:mtr>
-                                                                                                <m:mtd>
-                                                                                                    <m:mo color="Blue">&#928;</m:mo>
-                                                                                                    <m:mi>P</m:mi>
-                                                                                                    <m:mo>:</m:mo>
-                                                                                                    <m:mrow helm:xref="i28">
-                                                                                                        <m:mo>Prop</m:mo>
-                                                                                                    </m:mrow>
-                                                                                                </m:mtd>
-                                                                                            </m:mtr>
-                                                                                            <m:mtr>
-                                                                                                <m:mtd>
-                                                                                                    <m:mrow>
-                                                                                                        <m:mo>.</m:mo>
-                                                                                                        <m:mrow helm:xref="i29">
-                                                                                                            <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                                                                <m:mtr>
-                                                                                                                    <m:mtd>
-                                                                                                                        <m:mo color="Blue">&#928;</m:mo>
-                                                                                                                        <m:mi>f</m:mi>
-                                                                                                                        <m:mo>:</m:mo>
-                                                                                                                        <m:mrow helm:xref="i30">
-                                                                                                                            <m:mo stretchy="false">(</m:mo>
-                                                                                                                            <m:mi helm:xref="i31">A</m:mi>
-                                                                                                                            <m:mo color="Blue">&#8594;</m:mo>
-                                                                                                                            <m:mrow helm:xref="i32">
-                                                                                                                                <m:mo stretchy="false">(</m:mo>
-                                                                                                                                <m:mi helm:xref="i33">B</m:mi>
-                                                                                                                                <m:mo color="Blue">&#8594;</m:mo>
-                                                                                                                                <m:mi helm:xref="i34">P</m:mi>
-                                                                                                                                <m:mo stretchy="false">)</m:mo>
-                                                                                                                            </m:mrow>
-                                                                                                                            <m:mo stretchy="false">)</m:mo>
-                                                                                                                        </m:mrow>
-                                                                                                                    </m:mtd>
-                                                                                                                </m:mtr>
-                                                                                                                <m:mtr>
-                                                                                                                    <m:mtd>
-                                                                                                                        <m:mrow>
-                                                                                                                            <m:mo>.</m:mo>
-                                                                                                                            <m:mrow helm:xref="i35">
-                                                                                                                                <m:mo color="Blue">&#928;</m:mo>
-                                                                                                                                <m:mi>a</m:mi>
-                                                                                                                                <m:mo>:</m:mo>
-                                                                                                                                <m:mrow helm:xref="i36">
-                                                                                                                                    <m:mo stretchy="false">(</m:mo>
-                                                                                                                                    <m:mi xlink:href="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i37">and</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi helm:xref="i38">A</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi helm:xref="i39">B</m:mi>
-                                                                                                                                    <m:mo stretchy="false">)</m:mo>
-                                                                                                                                </m:mrow>
-                                                                                                                                <m:mo>.</m:mo>
-                                                                                                                                <m:mi helm:xref="i40">P</m:mi>
-                                                                                                                            </m:mrow>
-                                                                                                                        </m:mrow>
-                                                                                                                    </m:mtd>
-                                                                                                                </m:mtr>
-                                                                                                            </m:mtable>
-                                                                                                        </m:mrow>
-                                                                                                    </m:mrow>
-                                                                                                </m:mtd>
-                                                                                            </m:mtr>
-                                                                                        </m:mtable>
-                                                                                    </m:mrow>
-                                                                                </m:mrow>
-                                                                            </m:mtd>
-                                                                        </m:mtr>
-                                                                    </m:mtable>
-                                                                </m:mrow>
-                                                            </m:mrow>
-                                                        </m:mtd>
-                                                    </m:mtr>
-                                                </m:mtable>
-                                            </m:mrow>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mrow>
-                                            <m:mo color="#b03060">:&gt;</m:mo>
-                                            <m:mrow helm:xref="i41">
-                                                <m:mo>Prop</m:mo>
-                                            </m:mrow>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mrow>
-                                            <m:mo stretchy="false">)</m:mo>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                            </m:mtable>
-                        </m:mrow>
-                        <m:annotation-xml encoding="MathML">
-                            <m:apply helm:xref="i22">
-                                <m:csymbol>cast</m:csymbol>
-                                <m:apply helm:xref="i23">
-                                    <m:csymbol>prod</m:csymbol>
-                                    <m:bvar>
-                                        <m:ci>A</m:ci>
-                                        <m:type>
-                                            <m:apply helm:xref="i24">
-                                                <m:csymbol>Prop</m:csymbol>
-                                            </m:apply>
-                                        </m:type>
-                                    </m:bvar>
-                                    <m:apply helm:xref="i25">
-                                        <m:csymbol>prod</m:csymbol>
-                                        <m:bvar>
-                                            <m:ci>B</m:ci>
-                                            <m:type>
-                                                <m:apply helm:xref="i26">
-                                                    <m:csymbol>Prop</m:csymbol>
-                                                </m:apply>
-                                            </m:type>
-                                        </m:bvar>
-                                        <m:apply helm:xref="i27">
-                                            <m:csymbol>prod</m:csymbol>
-                                            <m:bvar>
-                                                <m:ci>P</m:ci>
-                                                <m:type>
-                                                    <m:apply helm:xref="i28">
-                                                        <m:csymbol>Prop</m:csymbol>
-                                                    </m:apply>
-                                                </m:type>
-                                            </m:bvar>
-                                            <m:apply helm:xref="i29">
-                                                <m:csymbol>prod</m:csymbol>
-                                                <m:bvar>
-                                                    <m:ci>f</m:ci>
-                                                    <m:type>
-                                                        <m:apply helm:xref="i30">
-                                                            <m:csymbol>arrow</m:csymbol>
-                                                            <m:ci helm:xref="i31">A</m:ci>
-                                                            <m:apply helm:xref="i32">
-                                                                <m:csymbol>arrow</m:csymbol>
-                                                                <m:ci helm:xref="i33">B</m:ci>
-                                                                <m:ci helm:xref="i34">P</m:ci>
-                                                            </m:apply>
-                                                        </m:apply>
-                                                    </m:type>
-                                                </m:bvar>
-                                                <m:apply helm:xref="i35">
-                                                    <m:csymbol>prod</m:csymbol>
-                                                    <m:bvar>
-                                                        <m:ci>a</m:ci>
-                                                        <m:type>
-                                                            <m:apply helm:xref="i36">
-                                                                <m:csymbol>app</m:csymbol>
-                                                                <m:ci definitionURL="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i37">and</m:ci>
-                                                                <m:ci helm:xref="i38">A</m:ci>
-                                                                <m:ci helm:xref="i39">B</m:ci>
-                                                            </m:apply>
-                                                        </m:type>
-                                                    </m:bvar>
-                                                    <m:ci helm:xref="i40">P</m:ci>
-                                                </m:apply>
-                                            </m:apply>
-                                        </m:apply>
-                                    </m:apply>
-                                </m:apply>
-                                <m:apply helm:xref="i41">
-                                    <m:csymbol>Prop</m:csymbol>
-                                </m:apply>
-                            </m:apply>
-                        </m:annotation-xml>
-                    </m:semantics>
-                </m:mrow>
-            </m:mtd>
-        </m:mtr>
-        <m:mtr>
-            <m:mtd>
-                <m:mrow>
-                    <m:mtext>AS</m:mtext>
-                </m:mrow>
-            </m:mtd>
-        </m:mtr>
-        <m:mtr>
-            <m:mtd>
-                <m:mrow>
-                    <m:mphantom>
-                        <m:mtext>__</m:mtext>
-                    </m:mphantom>
-                    <m:semantics xmlns:xlink="http://www.w3.org/1999/xlink">
-                        <m:mrow helm:xref="i1">
-                            <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mo color="Red">&#955;</m:mo>
-                                        <m:mi>A</m:mi>
-                                        <m:mo>:</m:mo>
-                                        <m:mrow helm:xref="i2">
-                                            <m:mo>Prop</m:mo>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mrow>
-                                            <m:mo>.</m:mo>
-                                            <m:mrow helm:xref="i3">
-                                                <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                    <m:mtr>
-                                                        <m:mtd>
-                                                            <m:mo color="Red">&#955;</m:mo>
-                                                            <m:mi>B</m:mi>
-                                                            <m:mo>:</m:mo>
-                                                            <m:mrow helm:xref="i4">
-                                                                <m:mo>Prop</m:mo>
-                                                            </m:mrow>
-                                                        </m:mtd>
-                                                    </m:mtr>
-                                                    <m:mtr>
-                                                        <m:mtd>
-                                                            <m:mrow>
-                                                                <m:mo>.</m:mo>
-                                                                <m:mrow helm:xref="i5">
-                                                                    <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                        <m:mtr>
-                                                                            <m:mtd>
-                                                                                <m:mo color="Red">&#955;</m:mo>
-                                                                                <m:mi>P</m:mi>
-                                                                                <m:mo>:</m:mo>
-                                                                                <m:mrow helm:xref="i6">
-                                                                                    <m:mo>Prop</m:mo>
-                                                                                </m:mrow>
-                                                                            </m:mtd>
-                                                                        </m:mtr>
-                                                                        <m:mtr>
-                                                                            <m:mtd>
-                                                                                <m:mrow>
-                                                                                    <m:mo>.</m:mo>
-                                                                                    <m:mrow helm:xref="i7">
-                                                                                        <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                                            <m:mtr>
-                                                                                                <m:mtd>
-                                                                                                    <m:mo color="Red">&#955;</m:mo>
-                                                                                                    <m:mi>f</m:mi>
-                                                                                                    <m:mo>:</m:mo>
-                                                                                                    <m:mrow helm:xref="i8">
-                                                                                                        <m:mo stretchy="false">(</m:mo>
-                                                                                                        <m:mi helm:xref="i9">A</m:mi>
-                                                                                                        <m:mo color="Blue">&#8594;</m:mo>
-                                                                                                        <m:mrow helm:xref="i10">
-                                                                                                            <m:mo stretchy="false">(</m:mo>
-                                                                                                            <m:mi helm:xref="i11">B</m:mi>
-                                                                                                            <m:mo color="Blue">&#8594;</m:mo>
-                                                                                                            <m:mi helm:xref="i12">P</m:mi>
-                                                                                                            <m:mo stretchy="false">)</m:mo>
-                                                                                                        </m:mrow>
-                                                                                                        <m:mo stretchy="false">)</m:mo>
-                                                                                                    </m:mrow>
-                                                                                                </m:mtd>
-                                                                                            </m:mtr>
-                                                                                            <m:mtr>
-                                                                                                <m:mtd>
-                                                                                                    <m:mrow>
-                                                                                                        <m:mo>.</m:mo>
-                                                                                                        <m:mrow helm:xref="i13">
-                                                                                                            <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                                                                <m:mtr>
-                                                                                                                    <m:mtd>
-                                                                                                                        <m:mo color="Red">&#955;</m:mo>
-                                                                                                                        <m:mi>a</m:mi>
-                                                                                                                        <m:mo>:</m:mo>
-                                                                                                                        <m:mrow helm:xref="i14">
-                                                                                                                            <m:mo stretchy="false">(</m:mo>
-                                                                                                                            <m:mi xlink:href="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i15">and</m:mi>
-                                                                                                                            <m:mphantom>
-                                                                                                                                <m:mtext>_</m:mtext>
-                                                                                                                            </m:mphantom>
-                                                                                                                            <m:mi helm:xref="i16">A</m:mi>
-                                                                                                                            <m:mphantom>
-                                                                                                                                <m:mtext>_</m:mtext>
-                                                                                                                            </m:mphantom>
-                                                                                                                            <m:mi helm:xref="i17">B</m:mi>
-                                                                                                                            <m:mo stretchy="false">)</m:mo>
-                                                                                                                        </m:mrow>
-                                                                                                                    </m:mtd>
-                                                                                                                </m:mtr>
-                                                                                                                <m:mtr>
-                                                                                                                    <m:mtd>
-                                                                                                                        <m:mrow>
-                                                                                                                            <m:mo>.</m:mo>
-                                                                                                                            <m:mrow helm:xref="i18">
-                                                                                                                                <m:mo>&lt;</m:mo>
-                                                                                                                                <m:mi helm:xref="i19">P</m:mi>
-                                                                                                                                <m:mo>&gt;</m:mo>
-                                                                                                                                <m:mo>CASES</m:mo>
-                                                                                                                                <m:mphantom>
-                                                                                                                                    <m:mtext>_</m:mtext>
-                                                                                                                                </m:mphantom>
-                                                                                                                                <m:mi helm:xref="i20">a</m:mi>
-                                                                                                                                <m:mphantom>
-                                                                                                                                    <m:mtext>_</m:mtext>
-                                                                                                                                </m:mphantom>
-                                                                                                                                <m:mo>OF</m:mo>
-                                                                                                                                <m:mrow>
-                                                                                                                                    <m:mo stretchy="false">(</m:mo>
-                                                                                                                                    <m:mi>conj</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi>$1</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi>$2</m:mi>
-                                                                                                                                    <m:mo stretchy="false">)</m:mo>
-                                                                                                                                </m:mrow>
-                                                                                                                                <m:mo color="Green">&#8658;</m:mo>
-                                                                                                                                <m:mrow>
-                                                                                                                                    <m:mo stretchy="false">(</m:mo>
-                                                                                                                                    <m:mi helm:xref="i21">f</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi>$1</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi>$2</m:mi>
-                                                                                                                                    <m:mo stretchy="false">)</m:mo>
-                                                                                                                                </m:mrow>
-                                                                                                                                <m:mphantom>
-                                                                                                                                    <m:mtext>_</m:mtext>
-                                                                                                                                </m:mphantom>
-                                                                                                                                <m:mo>END</m:mo>
-                                                                                                                            </m:mrow>
-                                                                                                                        </m:mrow>
-                                                                                                                    </m:mtd>
-                                                                                                                </m:mtr>
-                                                                                                            </m:mtable>
-                                                                                                        </m:mrow>
-                                                                                                    </m:mrow>
-                                                                                                </m:mtd>
-                                                                                            </m:mtr>
-                                                                                        </m:mtable>
-                                                                                    </m:mrow>
-                                                                                </m:mrow>
-                                                                            </m:mtd>
-                                                                        </m:mtr>
-                                                                    </m:mtable>
-                                                                </m:mrow>
-                                                            </m:mrow>
-                                                        </m:mtd>
-                                                    </m:mtr>
-                                                </m:mtable>
-                                            </m:mrow>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                            </m:mtable>
-                        </m:mrow>
-                        <m:annotation-xml encoding="MathML">
-                            <m:lambda helm:xref="i1">
-                                <m:bvar>
-                                    <m:ci>A</m:ci>
-                                    <m:type>
-                                        <m:apply helm:xref="i2">
-                                            <m:csymbol>Prop</m:csymbol>
-                                        </m:apply>
-                                    </m:type>
-                                </m:bvar>
-                                <m:lambda helm:xref="i3">
-                                    <m:bvar>
-                                        <m:ci>B</m:ci>
-                                        <m:type>
-                                            <m:apply helm:xref="i4">
-                                                <m:csymbol>Prop</m:csymbol>
-                                            </m:apply>
-                                        </m:type>
-                                    </m:bvar>
-                                    <m:lambda helm:xref="i5">
-                                        <m:bvar>
-                                            <m:ci>P</m:ci>
-                                            <m:type>
-                                                <m:apply helm:xref="i6">
-                                                    <m:csymbol>Prop</m:csymbol>
-                                                </m:apply>
-                                            </m:type>
-                                        </m:bvar>
-                                        <m:lambda helm:xref="i7">
-                                            <m:bvar>
-                                                <m:ci>f</m:ci>
-                                                <m:type>
-                                                    <m:apply helm:xref="i8">
-                                                        <m:csymbol>arrow</m:csymbol>
-                                                        <m:ci helm:xref="i9">A</m:ci>
-                                                        <m:apply helm:xref="i10">
-                                                            <m:csymbol>arrow</m:csymbol>
-                                                            <m:ci helm:xref="i11">B</m:ci>
-                                                            <m:ci helm:xref="i12">P</m:ci>
-                                                        </m:apply>
-                                                    </m:apply>
-                                                </m:type>
-                                            </m:bvar>
-                                            <m:lambda helm:xref="i13">
-                                                <m:bvar>
-                                                    <m:ci>a</m:ci>
-                                                    <m:type>
-                                                        <m:apply helm:xref="i14">
-                                                            <m:csymbol>app</m:csymbol>
-                                                            <m:ci definitionURL="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i15">and</m:ci>
-                                                            <m:ci helm:xref="i16">A</m:ci>
-                                                            <m:ci helm:xref="i17">B</m:ci>
-                                                        </m:apply>
-                                                    </m:type>
-                                                </m:bvar>
-                                                <m:apply helm:xref="i18">
-                                                    <m:csymbol>mutcase</m:csymbol>
-                                                    <m:ci helm:xref="i19">P</m:ci>
-                                                    <m:ci helm:xref="i20">a</m:ci>
-                                                    <m:apply>
-                                                        <m:csymbol>app</m:csymbol>
-                                                        <m:ci>conj</m:ci>
-                                                        <m:ci>$1</m:ci>
-                                                        <m:ci>$2</m:ci>
-                                                    </m:apply>
-                                                    <m:apply>
-                                                        <m:csymbol>app</m:csymbol>
-                                                        <m:ci helm:xref="i21">f</m:ci>
-                                                        <m:ci>$1</m:ci>
-                                                        <m:ci>$2</m:ci>
-                                                    </m:apply>
-                                                </m:apply>
-                                            </m:lambda>
-                                        </m:lambda>
-                                    </m:lambda>
-                                </m:lambda>
-                            </m:lambda>
-                        </m:annotation-xml>
-                    </m:semantics>
-                </m:mrow>
-            </m:mtd>
-        </m:mtr>
-    </m:mtable>
-</m:math>

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/ml_gtk_mathview.c b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/ml_gtk_mathview.c
deleted file mode 100644 (file)
index 39f3d74..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/ml_gtk_mathview.c
+++ /dev/null
@@ -1,120 +0,0 @@
-#include <string.h>
-#include <assert.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include <gtkmathview/gtkmathview.h>
-#include <ml_gtk.h>
-
-#include <wrappers.h>
-#include <ml_glib.h>
-#include <ml_gdk.h>
-#include <ml_gtk.h>
-#include <gtk_tags.h>
-
-#include "minidom/ml_minidom.h"
-
-/* <CSC/>: Next row should be put in a .h of lablgtk. */
-#define GtkAdjustment_val(val) check_cast(GTK_ADJUSTMENT,val)
-
-#define GtkMathView_val(val) check_cast(GTK_MATH_VIEW,val)
-ML_3 (gtk_math_view_new,GtkAdjustment_val, GtkAdjustment_val, Bool_val, Val_GtkWidget_sink)
-ML_2 (gtk_math_view_load, GtkMathView_val, String_val, Val_bool)
-ML_1 (gtk_math_view_unload, GtkMathView_val, Unit)
-/*ML_1 (gtk_math_view_dump, GtkMathView_val, Unit)*/
-ML_1 (gtk_math_view_get_selection, GtkMathView_val, Val_mDOMNodeRef)
-ML_2 (gtk_math_view_set_selection, GtkMathView_val, mDOMNodeRef_val, Unit)
-ML_1 (gtk_math_view_get_width, GtkMathView_val, Val_int)
-ML_1 (gtk_math_view_get_height, GtkMathView_val, Val_int)
-ML_3 (gtk_math_view_set_top, GtkMathView_val, Int_val, Int_val, Unit)
-ML_3 (gtk_math_view_set_adjustments, GtkMathView_val, GtkAdjustment_val, GtkAdjustment_val, Unit)
-ML_1 (gtk_math_view_get_hadjustment, GtkMathView_val, Val_GtkWidget)
-ML_1 (gtk_math_view_get_vadjustment, GtkMathView_val, Val_GtkWidget)
-ML_1 (gtk_math_view_get_buffer, GtkMathView_val, Val_GdkPixmap)
-ML_1 (gtk_math_view_get_frame, GtkMathView_val, Val_GtkWidget)
-ML_2 (gtk_math_view_set_font_size, GtkMathView_val, Int_val, Unit)
-ML_1 (gtk_math_view_get_font_size, GtkMathView_val, Val_int)
-ML_2 (gtk_math_view_set_anti_aliasing, GtkMathView_val, Bool_val, Unit)
-ML_1 (gtk_math_view_get_anti_aliasing, GtkMathView_val, Val_bool)
-ML_2 (gtk_math_view_set_kerning, GtkMathView_val, Bool_val, Unit)
-ML_1 (gtk_math_view_get_kerning, GtkMathView_val, Val_bool)
-ML_2 (gtk_math_view_set_log_verbosity, GtkMathView_val, Int_val, Unit)
-ML_1 (gtk_math_view_get_log_verbosity, GtkMathView_val, Val_int)
-
-
-value ml_gtk_math_view_export_to_postscript (value arg1, value arg2)
-{
-   CAMLparam1(arg1);
-   char *filename;
-   FILE *fd;
-   int res;
-   filename = String_val (arg2);
-   if ((fd = fopen(filename, "w"))) {
-      gtk_math_view_export_to_postscript (GtkMathView_val (arg1), fd);
-      fclose (fd);
-      res = 1;
-   } else {
-      fprintf(stderr, "Error opening file %s for writing\n", filename);
-      res = 0;
-   }
-   CAMLreturn (Val_bool(res));
-}
-
-value ml_gtk_math_view_get_top (value arg1)
-{
-   CAMLparam1(arg1);
-   CAMLlocal1 (result);
-   int x, y;
-   gtk_math_view_get_top(GtkMathView_val (arg1), &x, &y);
-   result = alloc(2, 0);
-   Store_field(result, 0, Val_int(x));
-   Store_field(result, 0, Val_int(y));
-   CAMLreturn (result);
-}
-
-
-value ml_gtk_math_view_mDOMNode_of_bodex_option (value arg1)
-{
-   CAMLparam1(arg1);
-
-   mDOMNodeRef nr;
-   CAMLlocal1 (tmp);
-   CAMLlocal1 (optval);
-   CAMLlocal1 (res);
-
-   if (arg1==Val_int(0)) {
-      assert(0);
-   } else {
-      tmp = Field(arg1, 0);
-      nr = (mDOMNodeRef) Field(tmp, 1);
-   }
-   optval = Val_mDOMNodeRef(nr);
-   if (optval==Val_int(0)) {
-      assert(0);
-   } else {
-      res = Field(optval, 0);
-   }
-
-  CAMLreturn(res);
-}
-
-value ml_gtk_math_view_mDOMNode_option_of_bodex_option (value arg1)
-{
-   CAMLparam1(arg1);
-
-   mDOMNodeRef nr;
-   CAMLlocal1 (tmp);
-
-   if (arg1==Val_int(0)) {
-      nr=NULL;
-   } else {
-      tmp = Field(arg1, 0);
-      nr = (mDOMNodeRef) Field(tmp, 1);
-   }
-
-  CAMLreturn(Val_mDOMNodeRef(nr));
-}

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/test/.cvsignore b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/test/.cvsignore
deleted file mode 100644 (file)
index 1968614..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/test/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmo *.cmi *.cmx t1lib.log test test.opt test.ps test.o

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/test/Makefile b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/test/Makefile
deleted file mode 100644 (file)
index 1d5f5e1..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/test/Makefile
+++ /dev/null
@@ -1,43 +0,0 @@
-LABLGTK_DIR = /usr/lib/ocaml/lablgtk
-LABLGTK_MATHVIEW_DIR = ..
-MINIDOM_DIR = ../minidom
-OCAMLC = ocamlc -I $(LABLGTK_DIR) -I $(LABLGTK_MATHVIEW_DIR) \
- -I $(MINIDOM_DIR) -I mlmathview
-OCAMLOPT = ocamlopt -I $(LABLGTK_DIR) -I $(LABLGTK_MATHVIEW_DIR) \
- -I $(MINIDOM_DIR) -I mlmathview
-
-all: test
-opt: test.opt
-
-test: test.cmo
-       $(OCAMLC) -custom -o test lablgtk.cma gtkInit.cmo \
-                  $(LABLGTK_MATHVIEW_DIR)/lablgtkmathview.cma \
-                  $(MINIDOM_DIR)/minidom.cmo \
-                  -cclib "$(MINIDOM_DIR)/ml_minidom.o" \
-                  test.cmo \
-                  -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
-                  -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
-                  -L/usr/local/lib/gtkmathview -lgtkmathview \
-                  $(LABLGTK_MATHVIEW_DIR)/ml_gtk_mathview.o"
-
-test.opt: test.cmx
-       $(OCAMLOPT) -o test.opt lablgtk.cmxa gtkInit.cmx \
-                  $(LABLGTK_MATHVIEW_DIR)/lablgtkmathview.cmxa \
-                  $(MINIDOM_DIR)/minidom.cmx \
-                  -cclib "$(MINIDOM_DIR)/ml_minidom.o" \
-                  test.cmx \
-                  -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
-                  -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
-                  -L/usr/local/lib/gtkmathview -lgtkmathview \
-                  $(LABLGTK_MATHVIEW_DIR)/ml_gtk_mathview.o"
-
-.SUFFIXES: .ml .mli .cmo .cmi .cmx
-.ml.cmo:
-       $(OCAMLC) -c $<
-.mli.cmi:
-       $(OCAMLC) -c $<
-.ml.cmx:
-       $(OCAMLOPT) -c $<
-
-clean:
-       rm -f *.cm[iox] *.o test test.opt t1lib.log

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/test/t1.config b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/test/t1.config
deleted file mode 100644 (file)
index afb669e..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/test/t1.config
+++ /dev/null
@@ -1,3 +0,0 @@
-ENCODING=.
-AFM=/usr/share/texmf/fonts/afm/
-TYPE1=/usr/share/texmf/fonts/type1/bluesky/cm/:/usr/X11R6/lib/X11/fonts/Type1/:.

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/test/test.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/test/test.ml
deleted file mode 100644 (file)
index af65d74..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/test/test.ml
+++ /dev/null
@@ -1,278 +0,0 @@
-(******************************************************************************)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 25/09/2000                                 *)
-(*                                                                            *)
-(*     This is a simple test for the OCaml (LablGtk indeed) binding of the    *)
-(*                             MathView widget                                *)
-(******************************************************************************)
-
-(* Callbacks *)
-let jump node =
- let module M = Minidom in
-  print_string ("jump: " ^
-   (match
-     M.node_get_attribute node
-      (M.mDOMString_of_string "href")
-    with
-       None   -> "DOES NOT WORKS (if you have clicked on the hyperlink)!!!!!" 
-     | Some s -> M.string_of_mDOMString s
-   ) ^ "\n");
-  flush stdout
-;;
-
-let selection_changed node =
- let module M = Minidom in
-  print_string ("selection_changed: " ^
-   (match node with
-       None -> "selection_changed on nothing"
-     | Some node ->
-        match M.node_get_name node with
-           None   -> "selection_changed on a node without name" 
-         | Some s -> "selection changed on " ^ M.string_of_mDOMString s
-   ) ^ "\n");
-  flush stdout
-;;
-
-
-let clicked node =
- let module M = Minidom in
-  print_string ("clicked: " ^
-   (match M.node_get_name node with
-       None   -> "Nothing clicked (???)" 
-     | Some s -> M.string_of_mDOMString s ^ " clicked"
-   ) ^ "\n");
-  flush stdout
-;;
-
-
-let activate_t1 mathview sw () =
- sw#remove !mathview#coerce ;
- mathview :=
- (GMathView.math_view ~packing:sw#add ~width:50 ~height:50
-  ~use_t1_lib:true ()) ;
- ignore(!mathview#connect#jump jump) ;
- ignore(!mathview#connect#clicked clicked) ;
- ignore(!mathview#connect#selection_changed selection_changed) ;
- print_string "WIDGET RECREATED WITH T1 FONTS ACTIVATED\n" ;
-;;
-
-let load mathview () =
- !mathview#load "test.xml" ;
- print_string "load: SEEMS TO WORK\n" ;
- flush stdout
-;;
-
-let get_selection mathview () =
- let selection =
-  match !mathview#get_selection with
-     None -> "NO SELECTION"
-   | Some node ->
-      match Minidom.node_get_name node with
-        None   -> "selection is on nothing" 
-      | Some s -> "selection is on " ^ Minidom.string_of_mDOMString s
- in
-  print_string ("get_selection: " ^ selection ^ "\n") ;
-  flush stdout
-;;
-
-let set_selection mathview () =
- begin
-  try
-   match !mathview#get_selection with
-      None -> raise Not_found
-    | Some node ->
-       match Minidom.node_get_parent node with
-          None -> raise Not_found
-        | Some node ->
-           !mathview#set_selection (Some node) ;
-           print_string "set_selection: SEEMS TO WORK\n"
-  with
-   Not_found ->
-    print_string "set_selection: YOU MUST PREVIOUSLY SELECT A NON-ROOT NODE" 
- end ;
- flush stdout
-;;
-
-let unload mathview () =
- !mathview#unload ;
- print_string "unload: SEEMS TO WORK\n" ;
- flush stdout
-;;
-
-let get_width mathview () =
- print_string ("get_width: " ^ string_of_int (!mathview#get_width) ^ "\n") ;
- flush stdout
-;;
-
-let get_height mathview () =
- print_string ("get_height: " ^ string_of_int (!mathview#get_height) ^ "\n") ;
- flush stdout
-;;
-
-let get_top mathview () =
- let (x,y) = !mathview#get_top in
-  print_string ("get_top: ("^ string_of_int x ^ "," ^ string_of_int y ^ ")\n") ;
-  flush stdout
-;;
-
-let set_top mathview () =
- !mathview#set_top 0 0;
- print_string "set_top: SEEM TO WORK\n" ;
- flush stdout
-;;
-
-let set_adjustments mathview () =
- let adj1 = GData.adjustment () in
- let adj2 = GData.adjustment () in
-  !mathview#set_adjustments adj1 adj2 ;
-  adj1#set_value ((adj1#lower +. adj1#upper) /. 2.0) ;
-  adj2#set_value ((adj2#lower +. adj2#upper) /. 2.0) ;
-  print_string "set_adjustments: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_hadjustment mathview () =
- let adj = !mathview#get_hadjustment in
-  adj#set_value ((adj#lower +. adj#upper) /. 2.0) ;
-  print_string "get_hadjustment: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_vadjustment mathview () =
- let adj = !mathview#get_vadjustment in
-  adj#set_value ((adj#lower +. adj#upper) /. 2.0) ;
-  print_string "get_vadjustment: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_buffer mathview () =
- let buffer = !mathview#get_buffer in
-  Gdk.Draw.rectangle buffer (Gdk.GC.create buffer) ~x:0 ~y:0
-   ~width:50 ~height:50 ~filled:true () ;
-  print_string "get_buffer: SEEMS TO WORK (hint: force the widget redrawing)\n";
-  flush stdout
-;;
-
-let get_frame mathview () =
- let frame = !mathview#get_frame in
-  frame#set_shadow_type `NONE ;
-  print_string "get_frame: SEEMS TO WORK\n" ;
-  flush stdout
-;;
-
-let set_font_size mathview () =
- !mathview#set_font_size 24 ;
- print_string "set_font_size: FONT IS NOW 24\n" ;
- flush stdout
-;;
- 
-let get_font_size mathview () =
- print_string ("get_font_size: " ^ string_of_int (!mathview#get_font_size) ^ "\n") ;
- flush stdout
-;;
- 
-let set_anti_aliasing mathview () =
- !mathview#set_anti_aliasing true ;
- print_string "set_anti_aliasing: ON\n" ;
- flush stdout
-;;
- 
-let get_anti_aliasing mathview () =
- print_string ("get_anti_aliasing: " ^
-  (match !mathview#get_anti_aliasing with true -> "ON" | false -> "OFF") ^
-  "\n") ;
- flush stdout
-;;
- 
-let set_kerning mathview () =
- !mathview#set_kerning true ;
- print_string "set_kerning: ON\n" ;
- flush stdout
-;;
- 
-let get_kerning mathview () =
- print_string ("get_kerning: " ^
-  (match !mathview#get_kerning with true -> "ON" | false -> "OFF") ^
-  "\n") ;
- flush stdout
-;;
-
-let set_log_verbosity mathview () =
- !mathview#set_log_verbosity 3 ;
- print_string "set_log_verbosity: NOW IS 3\n" ;
- flush stdout
-;;
- 
-let get_log_verbosity mathview () =
- print_string ("get_log_verbosity: " ^
-  string_of_int !mathview#get_log_verbosity ^
-  "\n") ;
- flush stdout
-;;
-
-let export_to_postscript mathview () =
- !mathview#export_to_postscript "test.ps" ;
- print_string "expor_to_postscript: SEEMS TO WORK (hint: look at test.ps)\n";
- flush stdout
-;;
- 
-(* Widget creation *)
-let main_window = GWindow.window ~title:"GtkMathView test" () in
-let vbox = GPack.vbox ~packing:main_window#add () in
-let sw = GBin.scrolled_window ~width:50 ~height:50 ~packing:vbox#pack () in
-let mathview= ref (GMathView.math_view ~packing:sw#add ~width:50 ~height:50 ()) in
-let table = GPack.table ~rows:5 ~columns:5 ~packing:vbox#pack () in
-let button_t1=GButton.button ~label:"activate t1 fonts" ~packing:(table#attach ~left:0 ~top:0) () in
-let button_load = GButton.button ~label:"load" ~packing:(table#attach ~left:1 ~top:0) () in
-let button_unload = GButton.button ~label:"unload" ~packing:(table#attach ~left:2 ~top:0) () in
-let button_get_selection = GButton.button ~label:"get_selection" ~packing:(table#attach ~left:3 ~top:0) () in
-let button_set_selection = GButton.button ~label:"set_selection" ~packing:(table#attach ~left:4 ~top:0) () in
-let button_get_width = GButton.button ~label:"get_width" ~packing:(table#attach ~left:0 ~top:1) () in
-let button_get_height = GButton.button ~label:"get_height" ~packing:(table#attach ~left:1 ~top:1) () in
-let button_get_top = GButton.button ~label:"get_top" ~packing:(table#attach ~left:2 ~top:1) () in
-let button_set_top = GButton.button ~label:"set_top" ~packing:(table#attach ~left:3 ~top:1) () in
-let button_set_adjustments = GButton.button ~label:"set_adjustments" ~packing:(table#attach ~left:4 ~top:1) () in
-let button_get_hadjustment = GButton.button ~label:"get_hadjustment" ~packing:(table#attach ~left:0 ~top:2) () in
-let button_get_vadjustment = GButton.button ~label:"get_vadjustment" ~packing:(table#attach ~left:1 ~top:2) () in
-let button_get_buffer = GButton.button ~label:"get_buffer" ~packing:(table#attach ~left:2 ~top:2) () in
-let button_get_frame = GButton.button ~label:"get_frame" ~packing:(table#attach ~left:3 ~top:2) () in
-let button_set_font_size = GButton.button ~label:"set_font_size" ~packing:(table#attach ~left:4 ~top:2) () in
-let button_get_font_size = GButton.button ~label:"get_font_size" ~packing:(table#attach ~left:0 ~top:3) () in
-let button_set_anti_aliasing = GButton.button ~label:"set_anti_aliasing" ~packing:(table#attach ~left:1 ~top:3) () in
-let button_get_anti_aliasing = GButton.button ~label:"get_anti_aliasing" ~packing:(table#attach ~left:2 ~top:3) () in
-let button_set_kerning = GButton.button ~label:"set_kerning" ~packing:(table#attach ~left:3 ~top:3) () in
-let button_get_kerning = GButton.button ~label:"get_kerning" ~packing:(table#attach ~left:4 ~top:3) () in
-let button_set_log_verbosity = GButton.button ~label:"set_log_verbosity" ~packing:(table#attach ~left:0 ~top:4) () in
-let button_get_log_verbosity = GButton.button ~label:"get_log_verbosity" ~packing:(table#attach ~left:1 ~top:4) () in
-let button_export_to_postscript = GButton.button ~label:"export_to_postscript" ~packing:(table#attach ~left:2 ~top:4) () in
-(* Signals connection *)
-ignore(button_t1#connect#clicked (activate_t1 mathview sw)) ;
-ignore(button_load#connect#clicked (load mathview)) ;
-ignore(button_unload#connect#clicked (unload mathview)) ;
-ignore(button_get_selection#connect#clicked (get_selection mathview)) ;
-ignore(button_set_selection#connect#clicked (set_selection mathview)) ;
-ignore(button_get_width#connect#clicked (get_width mathview)) ;
-ignore(button_get_height#connect#clicked (get_height mathview)) ;
-ignore(button_get_top#connect#clicked (get_top mathview)) ;
-ignore(button_set_top#connect#clicked (set_top mathview)) ;
-ignore(button_set_adjustments#connect#clicked (set_adjustments mathview)) ;
-ignore(button_get_hadjustment#connect#clicked (get_hadjustment mathview)) ;
-ignore(button_get_vadjustment#connect#clicked (get_vadjustment mathview)) ;
-ignore(button_get_buffer#connect#clicked (get_buffer mathview)) ;
-ignore(button_get_frame#connect#clicked (get_frame mathview)) ;
-ignore(button_set_font_size#connect#clicked (set_font_size mathview)) ;
-ignore(button_get_font_size#connect#clicked (get_font_size mathview)) ;
-ignore(button_set_anti_aliasing#connect#clicked (set_anti_aliasing mathview)) ;
-ignore(button_get_anti_aliasing#connect#clicked (get_anti_aliasing mathview)) ;
-ignore(button_set_kerning#connect#clicked (set_kerning mathview)) ;
-ignore(button_get_kerning#connect#clicked (get_kerning mathview)) ;
-ignore(button_set_log_verbosity#connect#clicked (set_log_verbosity mathview)) ;
-ignore(button_get_log_verbosity#connect#clicked (get_log_verbosity mathview)) ;
-ignore(button_export_to_postscript#connect#clicked (export_to_postscript mathview)) ;
-ignore(!mathview#connect#jump jump) ;
-ignore(!mathview#connect#clicked clicked) ;
-ignore(!mathview#connect#selection_changed selection_changed) ;
-(* Main Loop *)
-main_window#show () ;
-GMain.Main.main ()
-;;

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/test/test.xml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/test/test.xml
deleted file mode 100644 (file)
index b0f8c15..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.0/test/test.xml
+++ /dev/null
@@ -1,123 +0,0 @@
-<math display="block">
-  <mrow helm:xref="SELECTION OK">
-    <mo>&int;</mo>
-    <mo>&ApplyFunction;</mo>
-    <mfrac>
-      <mrow>
-        <mrow>
-          <mi>a</mi>
-         <mo>&InvisibleTimes;</mo>
-         <mi>x</mi>
-       </mrow>
-       <mo>+</mo>
-       <mi>b</mi>
-      </mrow>
-      <mrow>
-        <msup>
-         <mi>x</mi>
-         <mn>2</mn>
-       </msup>
-       <mo>+</mo>
-       <mrow>
-         <mi>p</mi>
-         <mo>&InvisibleTimes;</mo>
-         <mi>x</mi>
-       </mrow>
-       <mo>+</mo>
-       <mi>q</mi>
-      </mrow>
-    </mfrac>
-  </mrow>
-  <mo fontstyle="italic">d</mo>
-  <mi>x</mi>
-  <mo>=</mo>
-  <mrow>
-    <mrow>
-      <mfrac><mi>a</mi><mn>2</mn></mfrac>
-      <mo>&InvisibleTimes;</mo>
-      <mrow>
-        <mi>ln</mi>
-       <mo>&ApplyFunction;</mo>
-       <mrow>
-         <mo>(</mo>
-         <mrow>
-           <msup><mi>x</mi><mn>2</mn></msup>
-           <mo>+</mo>
-           <mrow>
-             <mi>p</mi>
-             <mo>&InvisibleTimes;</mo>
-             <mi>x</mi>
-           </mrow>
-           <mo>+</mo>
-           <mi>q</mi>
-         </mrow>
-         <mo>)</mo>
-       </mrow>
-      </mrow>
-    </mrow>
-    <mo>+</mo>
-    <mrow>
-      <mfrac>
-        <mrow>
-         <mrow>
-           <mn>2</mn>
-           <mo>&InvisibleTimes;</mo>
-           <mi>b</mi>
-         </mrow>
-         <mo>-</mo>
-         <mrow>
-           <mi>a</mi>
-           <mo>&InvisibleTimes;</mo>
-           <mi>p</mi>
-         </mrow>
-       </mrow>
-       <msqrt>
-         <mrow>
-           <mrow>
-             <mn>4</mn>
-             <mo>&InvisibleTimes;</mo>
-             <mi>q</mi>
-           </mrow>
-           <mo>-</mo>
-           <msup>
-             <mi>p</mi>
-             <mn>2</mn>
-           </msup>
-         </mrow>
-       </msqrt>
-      </mfrac>
-      <mo>&InvisibleTimes;</mo>
-      <mrow>
-        <mi xlink:href="JUMPS WORK">arctg</mi>
-       <mo>&ApplyFunction;</mo>
-       <mfrac>
-         <mrow>
-           <mrow>
-             <mn>2</mn>
-             <mo>&InvisibleTimes;</mo>
-             <mi>x</mi>
-           </mrow>
-           <mo>+</mo>
-           <mi>p</mi>
-         </mrow>
-         <msqrt>
-           <mrow>
-             <mrow>
-               <mn>4</mn>
-               <mo>&InvisibleTimes;</mo>
-               <mi>q</mi>
-             </mrow>
-             <mo>-</mo>
-             <msup>
-               <mi>p</mi>
-               <mn>2</mn>
-             </msup>
-           </mrow>
-         </msqrt>
-       </mfrac>
-      </mrow>
-    </mrow>
-    <mo>+</mo>
-    <mi>c</mi>
-  </mrow>  
-</math>

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1-1.spec b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1-1.spec
deleted file mode 100644 (file)
index f6381e9..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1-1.spec
+++ /dev/null
@@ -1,25 +0,0 @@
-Summary: GtkMathView : the binding for lablgtk of the GtkMathView widget
-Name: lablgtk-20000829_gtkmathview
-Version: 0.2.1
-Release: 1
-Copyright: LGPL
-Group: Development/Libraries
-Requires: lablgtk_20000829 gtkmathview
-Source: www.cs.unibo.it:/~lpadovan/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1.tar.gz
-%description
-GtkMathView is the binding for lablgtk of the GtkMathView widget.
-
-%prep
-%setup
-
-%build
-make
-make opt
-
-%install
-make install
-
-%files
-%doc COPYING
-
-/usr/lib/ocaml/lablgtk/mathview

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/.cvsignore b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/.cvsignore
deleted file mode 100644 (file)
index cd9e250..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmi *.cmo *.cmx *.cma *.cmxa config.make

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/.depend b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/.depend
deleted file mode 100644 (file)
index 600449b..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/.depend
+++ /dev/null
@@ -1,4 +0,0 @@
-gMathView.cmo: gtkMathView.cmo gtk_mathview.cmo 
-gMathView.cmx: gtkMathView.cmx gtk_mathview.cmx 
-gtkMathView.cmo: gtk_mathview.cmo 
-gtkMathView.cmx: gtk_mathview.cmx 

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/COPYING b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/COPYING
deleted file mode 100644 (file)
index 20b480a..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/COPYING
+++ /dev/null
@@ -1,11 +0,0 @@
-This library is made available under the LGPL.
-You should have got a copy of the LGPL with Objective Caml.
-The LGPL applies to all the files in this directory, but not in
-subdirectories.
-
-For the test subdirectory, there is no specific licensing policy,
-but you may freely take inspiration from the code, and copy parts of
-it in your application.
-
-Author:
-       Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/Makefile b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/Makefile
deleted file mode 100644 (file)
index b8adbb4..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/Makefile
+++ /dev/null
@@ -1,109 +0,0 @@
-# Makefile for lablgtk_mathview.
-
-LABLGTKDIR = /usr/lib/ocaml/lablgtk
-MINIDOMDIR = ./minidom
-TESTDIR = ./test
-MLFLAGS += -I $(LABLGTKDIR) -I $(MINIDOMDIR)
-
-TARGETS = ml_gtk_mathview.o lablgtkmathview.cma
-
-all: Minidom $(TARGETS)
-
-opt: Minidom.opt lablgtkmathviewopt
-
-Minidom:
-       cd $(MINIDOMDIR); make
-
-Minidom.opt:
-       cd $(MINIDOMDIR); make opt
-
-configure:
-       @rm -f config.make
-       @$(MAKE) --no-print-directory -f configure.mk
-
-depend:
-       @rm -f .depend
-       @$(MAKE) --no-print-directory -f configure.mk .depend
-
-.depend config.make:
-       @$(MAKE) --no-print-directory -f configure.mk
-
-COMPILER = $(CAMLC) $(MLFLAGS) -w s -labels -c
-LINKER = $(CAMLC) $(MLFLAGS)
-COMPOPT = $(CAMLOPT) $(MLFLAGS) -w s -labels -c
-LINKOPT = $(CAMLOPT) $(MLFLAGS)
-
-include config.make
-
-INSTALLDIR = $(LIBDIR)/lablgtk/mathview
-
-MLLIBS = lablgtkmathview.cma
-CLIBS = 
-MLLINK = unix.cma str.cma
-
-ifdef DEBUG
-CFLAGS = -g $(GTKCFLAGS)
-MLLINK += -cclib -lcamlrund
-MLFLAGS += -g
-else
-CFLAGS = -O -DGTK_NO_CHECK_CASTS -DGTK_DISABLE_COMPAT_H $(GTKCFLAGS)
-endif
-CFLAGS += $(MINIDOMCFLAGS) $(GTKMATHVIEWCFLAGS)
-
-THFLAGS = -thread
-THLINK = unix.cma threads.cma
-
-ifdef USE_CC
-CCOMPILER = $(CC) -c -I$(LIBDIR) $(CFLAGS)
-else
-CCOMPILER = ocamlc -c -ccopt "$(CFLAGS)"
-endif
-
-# Rules
-.SUFFIXES: .ml .mli .cmo .cmi .cmx .c .o .var .h .opt .def
-.c.o:
-       $(CCOMPILER) $<
-.ml.cmo:
-       $(COMPILER) $<
-.mli.cmi:
-       $(COMPILER) $<
-.ml.cmx:
-       $(COMPOPT) $<
-.var.h:
-       ./var2def < $< > $@
-.var.c:
-       ./var2conv < $< > $@
-
-# Targets
-COBJS = ml_gtk_mathview.o
-MLOBJS = gtk_mathview.cmo gtkMathView.cmo gMathView.cmo
-ALLOBJS = $(MLOBJS)
-
-lablgtkmathviewopt: $(CLIBS) $(MLLIBS:.cma=.cmxa)
-
-install:
-       if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
-       cp $(ALLOBJS:.cmo=.cmi) $(INSTALLDIR)
-       if test -f *.mli ; then cp *.mli $(INSTALLDIR) ; fi
-       cp $(ALLOBJS:.cmo=.ml) $(INSTALLDIR)
-       cp $(MLLIBS) $(INSTALLDIR)
-       cp $(COBJS) $(INSTALLDIR)
-       if test ! -z "$(CLIBS)" ; then cp $(CLIBS) $(INSTALLDIR) ; fi
-       if test -f lablgtkmathview.cmxa; then \
-          cp $(MLLIBS:.cma=.cmxa) $(MLLIBS:.cma=.a) \
-             $(INSTALLDIR); fi
-
-lablgtkmathview.cma: $(MLOBJS)
-       $(LINKER) -a -custom -o $@ $(MLOBJS) $(GTKLIBS) -cclib "$(GTKMATHVIEWLIBS)" -cclib "$(MINIDOMLIBS)"
-lablgtkmathview.cmxa: $(MLOBJS:.cmo=.cmx)
-       $(LINKOPT) -a -o $@ $(MLOBJS:.cmo=.cmx) $(GTKLIBS) -cclib "$(GTKMATHVIEWLIBS)" -cclib "$(MINIDOMLIBS)"
-
-ml_gtk.o: $(LABLGTKDIR)/gtk_tags.c $(LABLGTKDIR)/gtk_tags.h \
-          $(LABLGTKDIR)/ml_gtk.h $(LABLGTKDIR)/ml_gdk.h $(LABLGTKDIR)/wrappers.h
-
-clean:
-       rm -f *.cm* *.o *.a *_tags.[ch] $(TARGETS)
-       cd $(MINIDOMDIR); make clean
-       cd $(TESTDIR); make clean
-
-include .depend

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/configure.mk b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/configure.mk
deleted file mode 100644 (file)
index 8982371..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/configure.mk
+++ /dev/null
@@ -1,59 +0,0 @@
-# makefile for configuring lablGTK_mathview
-
-# Default compilers
-CAMLC = ocamlc
-CAMLOPT = ocamlopt
-
-# Default installation directories
-BINDIR = `$(GETBINDIR)`
-INSTALLDIR = $(LIBDIR)/lablgtk/mathview
-
-# Autoconf
-GETLIBDIR = ocamlc -v | grep "^Standard" | sed 's/^.*: *//'
-LIBDIR = `$(GETLIBDIR)`
-GETBINDIR = $(GETLIBDIR) | sed -e 's|/lib/[^/]*$$|/bin|' -e 's|/lib$$|/bin|'
-GETRANLIB = which ranlib 2>/dev/null | sed -e 's|.*/ranlib$$|!|' -e 's/^[^!]*$$/:/' -e 's/!/ranlib/'
-
-ifdef USE_GNOME
-GTKGETCFLAGS = gtk-config --cflags`" -I"`gnome-config --includedir
-GNOMELIBS = `gnome-config --libs gtkxmhtml`
-else
-GTKGETCFLAGS = gtk-config --cflags
-endif
-
-GTKGETLIBS = gtk-config --libs
-
-configure: .depend config.make
-
-.depend:
-       ocamldep *.ml *.mli > .depend
-
-config.make:
-       @echo CAMLC=$(CAMLC) > config.make
-       @echo CAMLOPT=$(CAMLOPT) >> config.make
-       @echo USE_GL=$(USE_GL) >> config.make
-       @echo USE_GNOME=$(USE_GNOME) >> config.make
-       @echo USE_CC=$(USE_CC) >> config.make
-       @echo DEBUG=$(DEBUG) >> config.make
-       @echo CC=$(CC) >> config.make
-       @echo RANLIB=`$(GETRANLIB)` >> config.make
-       @echo LIBDIR=$(LIBDIR) >> config.make
-       @echo BINDIR=`$(GETBINDIR)` >> config.make
-       @echo INSTALLDIR=$(INSTALLDIR) >> config.make
-# Luca: was
-#      @echo GTKCFLAGS=`$(GTKGETCFLAGS)` -I/usr/lib/ocaml/lablgtk >> config.make
-# Luca: now
-       @echo GTKCFLAGS=`$(GTKGETCFLAGS)` -I$(LIBDIR)/lablgtk >> config.make
-       @echo GTKLIBS=`$(GTKGETLIBS)` | \
-         sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
-         >> config.make
-# Luca: GtkMathView configuration
-       @echo GTKMATHVIEWCFLAGS=`gtkmathview-config --cflags` >> config.make
-       @echo MINIDOMCFLAGS=`minidom-config --cflags` >> config.make
-       @echo GTKMATHVIEWLIBS=`gtkmathview-config --libs` >> config.make
-       @echo MINIDOMLIBS=`minidom-config --libs` >> config.make
-# Luca: end of GtkMathView configuration
-       @echo GNOMELIBS=$(GNOMELIBS) | \
-         sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
-         >> config.make
-       cat config.make

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/gMathView.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/gMathView.ml
deleted file mode 100644 (file)
index 951b8d4..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/gMathView.ml
+++ /dev/null
@@ -1,79 +0,0 @@
-open Gaux
-open Gtk
-open Gtk_mathview
-open GtkBase
-open GtkMathView
-open GObj
-
-exception ErrorLoadingFile of string;;
-exception ErrorWritingFile of string;;
-exception NoSelection;;
-
-class math_view_signals obj = object
-  inherit GContainer.container_signals obj
-  method clicked = GtkSignal.connect ~sgn:MathView.Signals.clicked obj ~after
-  method jump = GtkSignal.connect ~sgn:MathView.Signals.jump obj ~after
-  method selection_changed =
-  GtkSignal.connect ~sgn:MathView.Signals.selection_changed obj ~after
-end
-
-class math_view obj = object
- inherit GContainer.container (obj : Gtk_mathview.math_view obj)
- method connect = new math_view_signals obj
- method load ~filename =
-  if not (MathView.load obj ~filename) then raise (ErrorLoadingFile filename)
- method unload = MathView.unload obj
- method get_selection = MathView.get_selection obj
- method set_selection (node : Ominidom.o_mDOMNode option) = MathView.set_selection obj node
- method get_width = MathView.get_width obj
- method get_height = MathView.get_height obj
- method get_top = MathView.get_top obj
- method set_top = MathView.set_top obj
- method set_adjustments =
-  fun adj1 adj2 ->
-   MathView.set_adjustments obj (GData.as_adjustment adj1)
-   (GData.as_adjustment adj2)
- method get_hadjustment = new GData.adjustment (MathView.get_hadjustment obj)
- method get_vadjustment = new GData.adjustment (MathView.get_vadjustment obj)
- method get_buffer = MathView.get_buffer obj
- method get_frame = new GBin.frame (MathView.get_frame obj)
- method set_font_size = MathView.set_font_size obj
- method get_font_size = MathView.get_font_size obj
- method set_anti_aliasing = MathView.set_anti_aliasing obj
- method get_anti_aliasing = MathView.get_anti_aliasing obj
- method set_kerning = MathView.set_kerning obj
- method get_kerning = MathView.get_kerning obj
- method set_log_verbosity = MathView.set_log_verbosity obj
- method get_log_verbosity = MathView.get_log_verbosity obj
- method export_to_postscript
-       ?(width = 595) ?(height = 822) ?(x_margin = 72) ?(y_margin = 72)
-       ?(disable_colors = false) ~filename () =
-  let result = MathView.export_to_postscript obj
-       ~width ~height ~x_margin ~y_margin ~disable_colors ~filename
-  in
-  if not result then raise (ErrorWritingFile filename)
- method get_font_manager_type = MathView.get_font_manager_type obj
- method set_font_manager_type ~fm_type = MathView.set_font_manager_type obj ~fm_type
-end
-
-let math_view ?adjustmenth ?adjustmentv ?font_size ?font_manager ?border_width
- ?width ?height ?packing ?show () =
- let w =
-   MathView.create
-    ?adjustmenth:(may_map ~f:GData.as_adjustment adjustmenth)
-    ?adjustmentv:(may_map ~f:GData.as_adjustment adjustmentv)
-    ()
- in
-  Container.set w ?border_width ?width ?height;
- let mathview = pack_return (new math_view w) ~packing ~show in
- begin
-    match font_size with
-    | Some size -> mathview#set_font_size size
-    | None      -> ()
-  end;
-  begin
-    match font_manager with
-    | Some manager -> mathview#set_font_manager_type ~fm_type:manager
-    | None         -> ()
-  end;
-;;

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/gtkMathView.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/gtkMathView.ml
deleted file mode 100644 (file)
index 4c893fa..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/gtkMathView.ml
+++ /dev/null
@@ -1,118 +0,0 @@
-open Gtk
-open Gtk_mathview
-open Tags
-open GtkBase
-open Gpointer
-
-external mDOMNode_of_boxed_option :
- Gpointer.boxed option -> Minidom.mDOMNode =
-  "ml_gtk_math_view_mDOMNode_of_bodex_option"
-
-external mDOMNode_option_of_boxed_option :
- Gpointer.boxed option -> Minidom.mDOMNode option =
-  "ml_gtk_math_view_mDOMNode_option_of_bodex_option"
-
-let o_mDOMNode_of_mDOMNode node = new Ominidom.o_mDOMNode node
-
-let o_mDOMNode_option_of_mDOMNode_option =
-  function
-  | Some x -> Some (o_mDOMNode_of_mDOMNode x)
-  | None   -> None
-
-let mDOMNode_option_of_o_mDOMNode_option =
-  function
-  | Some x -> Some (x#get_dom_node)
-  | None   -> None
-
-module MathView = struct
-  exception NoSelection
-
-  let cast w : math_view obj = Object.try_cast w "GtkMathView"
-  external create : Gtk.adjustment optobj -> Gtk.adjustment optobj -> 
-   math_view obj = "ml_gtk_math_view_new"
-  let create ~adjustmenth ~adjustmentv () =
-   create (optboxed adjustmenth) (optboxed adjustmentv)
-  external load : [>`math_view] obj -> filename:string -> bool =
-   "ml_gtk_math_view_load"
-  external unload : [>`math_view] obj -> unit =
-   "ml_gtk_math_view_unload"
-  external raw_get_selection : [>`math_view] obj -> Minidom.mDOMNode option =
-   "ml_gtk_math_view_get_selection"
-  let get_selection obj =
-   o_mDOMNode_option_of_mDOMNode_option (raw_get_selection obj)
-  external raw_set_selection : [>`math_view] obj -> Minidom.mDOMNode option -> unit=
-   "ml_gtk_math_view_set_selection"
-  let set_selection obj node =
-   raw_set_selection obj (mDOMNode_option_of_o_mDOMNode_option node)
-  external get_width : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_width"
-  external get_height : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_height"
-  external get_top : [>`math_view] obj -> (int * int) =
-   "ml_gtk_math_view_get_top"
-  external set_top : [>`math_view] obj -> int -> int -> unit =
-   "ml_gtk_math_view_set_top"
-  external set_adjustments : [>`math_view] obj -> Gtk.adjustment obj -> Gtk.adjustment obj -> unit =
-   "ml_gtk_math_view_set_adjustments"
-  external get_hadjustment : [>`math_view] obj -> Gtk.adjustment obj =
-   "ml_gtk_math_view_get_hadjustment"
-  external get_vadjustment : [>`math_view] obj -> Gtk.adjustment obj =
-   "ml_gtk_math_view_get_vadjustment"
-  external get_buffer : [>`math_view] obj -> Gdk.pixmap =
-   "ml_gtk_math_view_get_buffer"
-  external get_frame : [>`math_view] obj -> [`frame] obj =
-   "ml_gtk_math_view_get_frame"
-  external set_font_size : [>`math_view] obj -> int -> unit =
-   "ml_gtk_math_view_set_font_size"
-  external get_font_size : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_font_size"
-  external set_anti_aliasing : [>`math_view] obj -> bool -> unit =
-   "ml_gtk_math_view_set_anti_aliasing"
-  external get_anti_aliasing : [>`math_view] obj -> bool =
-   "ml_gtk_math_view_get_anti_aliasing"
-  external set_kerning : [>`math_view] obj -> bool -> unit =
-   "ml_gtk_math_view_set_kerning"
-  external get_kerning : [>`math_view] obj -> bool =
-   "ml_gtk_math_view_get_kerning"
-  external set_log_verbosity : [>`math_view] obj -> int -> unit =
-   "ml_gtk_math_view_set_log_verbosity"
-  external get_log_verbosity : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_log_verbosity"
-  external export_to_postscript :
-   [>`math_view] obj -> width:int -> height:int -> x_margin:int -> y_margin:int -> disable_colors:bool -> filename:string -> bool =
-   "ml_gtk_math_view_export_to_postscript_bytecode" "ml_gtk_math_view_export_to_postscript_native"
-  external get_font_manager_type : [>`math_view] obj ->
-   [`font_manager_gtk | `font_manager_t1] =
-   "ml_gtk_math_view_get_font_manager_type"
-  external set_font_manager_type : [>`math_view] obj ->
-    fm_type:[`font_manager_gtk | `font_manager_t1] -> unit =
-   "ml_gtk_math_view_set_font_manager_type"
-  
-  module Signals = struct
-    open GtkSignal
-
-    let clicked : ([>`math_view],_) t =
-     let marshal_clicked f _ =
-      function
-         [GtkArgv.POINTER node] -> f (o_mDOMNode_of_mDOMNode (mDOMNode_of_boxed_option node))
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_clicked"
-     in
-      { name = "clicked"; marshaller = marshal_clicked }
-
-    let jump : ([>`math_view],_) t =
-     let marshal_jump f _ =
-      function
-         [GtkArgv.POINTER node] -> f (o_mDOMNode_of_mDOMNode (mDOMNode_of_boxed_option node))
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_jump"
-     in
-      { name = "jump"; marshaller = marshal_jump }
-
-    let selection_changed : ([>`math_view],_) t =
-     let marshal_selection_changed f _ =
-      function
-         [GtkArgv.POINTER node] -> f (o_mDOMNode_option_of_mDOMNode_option (mDOMNode_option_of_boxed_option node))
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_selection_changed"
-     in
-      { name = "selection_changed"; marshaller = marshal_selection_changed }
-  end
-end

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/gtk_mathview.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/gtk_mathview.ml
deleted file mode 100644 (file)
index 745a1ba..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/gtk_mathview.ml
+++ /dev/null
@@ -1 +0,0 @@
-type math_view = [`widget|`container|`bin|`eventbox|`math_view]

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/.cvsignore b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/.cvsignore
deleted file mode 100644 (file)
index 84bdd8e..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmi *.cmo *.cmx test test.opt

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/Makefile b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/Makefile
deleted file mode 100644 (file)
index 6fe73af..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/Makefile
+++ /dev/null
@@ -1,51 +0,0 @@
-LIBDIR = /usr/lib/ocaml
-INSTALLDIR = $(LIBDIR)/minidom
-OBJECTS = minidom.cmi minidom.cmo ml_minidom.o ominidom.cmi ominidom.cmo
-OBJECTS_OPT = minidom.cmx ominidom.cmx
-INST = minidom.o ominidom.o ml_minidom.h minidom.mli
-
-all: $(OBJECTS) test
-
-opt: $(OBJECTS_OPT) test.opt
-
-ml_minidom.o: ml_minidom.c
-       gcc -c -I/usr/lib/ocaml/caml/ `glib-config --cflags` `minidom-config --cflags` $<
-
-minidom.cmi: minidom.mli
-       ocamlc -c $<
-
-minidom.cmo: minidom.ml minidom.cmi
-       ocamlc -c $<
-
-minidom.cmx: minidom.ml minidom.cmi
-       ocamlopt -c $<
-
-ominidom.cmi: ominidom.mli
-       ocamlc -c $<
-
-ominidom.cmo: ominidom.ml
-       ocamlc -c $<
-
-ominidom.cmx: ominidom.ml
-       ocamlopt -c $<
-
-test.cmo: test.ml minidom.cmo
-       ocamlc -c test.ml
-
-test.cmx: test.ml minidom.cmx
-       ocamlopt -c test.ml
-
-test: test.cmo minidom.cmo ml_minidom.o
-       ocamlc -custom -o test minidom.cmo test.cmo ml_minidom.o \
-        -cclib "`glib-config --libs` `minidom-config --libs`"
-
-test.opt: test.cmx minidom.cmx ml_minidom.o
-       ocamlopt -o test.opt minidom.cmx test.cmx ml_minidom.o \
-        -cclib "`glib-config --libs` `minidom-config --libs`"
-
-install:
-       if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
-       cp $(OBJECTS) $(OBJECTS_OPT) $(INST) $(INSTALLDIR)
-
-clean:
-       rm -f *.o *.cm? test test.opt

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/minidom.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/minidom.ml
deleted file mode 100644 (file)
index 31e677b..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/minidom.ml
+++ /dev/null
@@ -1,61 +0,0 @@
-
-type mDOMString
-type mDOMDoc
-type mDOMNode
-type mDOMAttr
-type mDOMEntity
-
-external string_of_mDOMString : mDOMString -> string = "ml_string_of_mDOMString"
-external mDOMString_of_string : string -> mDOMString = "ml_mDOMString_of_string"
-external mDOMString_eq : string -> string -> bool = "ml_mDOMString_eq"
-
-external doc_load : string -> mDOMDoc = "ml_doc_load"
-external doc_unload : mDOMDoc -> unit = "ml_doc_unload"
-
-external doc_new : mDOMString -> mDOMDoc = "ml_doc_new"
-external doc_get_root_node : mDOMDoc -> mDOMNode = "ml_doc_get_root_node"
-
-external doc_add_entity : mDOMDoc -> mDOMString -> mDOMString -> mDOMEntity = "ml_doc_add_entity"
-external doc_get_entity : mDOMDoc -> mDOMString -> mDOMEntity option = "ml_doc_get_entity"
-external doc_get_predefined_entity : mDOMDoc -> mDOMString -> mDOMEntity option = "ml_doc_get_predefined_entity"
-external entity_get_content : mDOMEntity -> mDOMString = "ml_entity_get_content"
-
-external node_is_text  : mDOMNode -> bool = "ml_node_is_text"
-external node_is_element : mDOMNode -> bool = "ml_node_is_element"
-external node_is_blank : mDOMNode -> bool = "ml_node_is_blank"
-external node_is_entity_ref : mDOMNode -> bool = "ml_node_is_entity_ref"
-external node_get_type : mDOMNode -> int = "ml_node_get_type"
-external node_get_name : mDOMNode -> mDOMString option = "ml_node_get_name"
-external node_get_ns_uri : mDOMNode -> mDOMString option = "ml_node_get_ns_uri"
-external node_get_attribute : mDOMNode -> mDOMString -> mDOMString option = "ml_node_get_attribute"
-external node_get_attribute_ns : mDOMNode -> mDOMString -> mDOMString -> mDOMString option = "ml_node_get_attribute_ns"
-external node_get_content : mDOMNode -> mDOMString option = "ml_node_get_content"
-external node_get_parent : mDOMNode -> mDOMNode option = "ml_node_get_parent"
-external node_get_prev_sibling : mDOMNode -> mDOMNode option = "ml_node_get_prev_sibling"
-external node_get_next_sibling : mDOMNode -> mDOMNode option = "ml_node_get_next_sibling"
-external node_get_first_child : mDOMNode -> mDOMNode option = "ml_node_get_first_child"
-external node_get_first_attribute : mDOMNode -> mDOMAttr option = "ml_node_get_first_attribute"
-external node_is_first : mDOMNode -> bool = "ml_node_is_first"
-external node_is_last : mDOMNode -> bool = "ml_node_is_last"
-
-external attr_get_name : mDOMAttr -> mDOMString option = "ml_attr_get_name"
-external attr_get_ns_uri : mDOMAttr -> mDOMString option = "ml_attr_get_ns_uri"
-external attr_get_value : mDOMAttr -> mDOMString option = "ml_attr_get_value"
-external attr_get_prev_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_prev_sibling"
-external attr_get_next_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_next_sibling"
-external attr_get_parent : mDOMAttr -> mDOMNode option = "ml_attr_get_parent"
-
-let rec node_list_of_node_first =
-  function None -> []
-  |        Some node -> node :: (node_list_of_node_first (node_get_next_sibling node))
-
-let rec attr_list_of_attr_first =
-  function None -> []
-  |        Some attr -> attr :: (attr_list_of_attr_first (attr_get_next_sibling attr))
-  
-let node_get_children node =
-  (node_list_of_node_first (node_get_first_child node))
-
-let node_get_attributes node =
-  (attr_list_of_attr_first (node_get_first_attribute node))
-

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/minidom.mli b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/minidom.mli
deleted file mode 100644 (file)
index 0b65595..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/minidom.mli
+++ /dev/null
@@ -1,50 +0,0 @@
-
-type mDOMString
-type mDOMDoc
-type mDOMNode
-type mDOMAttr
-type mDOMEntity
-
-external string_of_mDOMString : mDOMString -> string = "ml_string_of_mDOMString"
-external mDOMString_of_string : string -> mDOMString = "ml_mDOMString_of_string"
-external mDOMString_eq : string -> string -> bool = "ml_mDOMString_eq"
-
-external doc_load : string -> mDOMDoc = "ml_doc_load"
-external doc_unload : mDOMDoc -> unit = "ml_doc_unload"
-
-external doc_new : mDOMString -> mDOMDoc = "ml_doc_new"
-external doc_get_root_node : mDOMDoc -> mDOMNode = "ml_doc_get_root_node"
-
-external doc_add_entity : doc:mDOMDoc -> name:mDOMString -> content:mDOMString -> mDOMEntity = "ml_doc_add_entity"
-external doc_get_entity : doc:mDOMDoc -> name:mDOMString -> mDOMEntity option = "ml_doc_get_entity"
-external doc_get_predefined_entity : doc:mDOMDoc -> name:mDOMString -> mDOMEntity option = "ml_doc_get_predefined_entity"
-external entity_get_content : mDOMEntity -> mDOMString = "ml_entity_get_content"
-
-external node_is_text  : mDOMNode -> bool = "ml_node_is_text"
-external node_is_element : mDOMNode -> bool = "ml_node_is_element"
-external node_is_blank : mDOMNode -> bool = "ml_node_is_blank"
-external node_is_entity_ref : mDOMNode -> bool = "ml_node_is_entity_ref"
-external node_get_type : mDOMNode -> int = "ml_node_get_type"
-external node_get_name : mDOMNode -> mDOMString option = "ml_node_get_name"
-external node_get_ns_uri : mDOMNode -> mDOMString option = "ml_node_get_ns_uri"
-external node_get_attribute : node:mDOMNode -> name:mDOMString -> mDOMString option = "ml_node_get_attribute"
-external node_get_attribute_ns : node:mDOMNode -> name:mDOMString -> ns_uri:mDOMString -> mDOMString option = "ml_node_get_attribute_ns"
-external node_get_content : mDOMNode -> mDOMString option = "ml_node_get_content"
-external node_get_parent : mDOMNode -> mDOMNode option = "ml_node_get_parent"
-external node_get_prev_sibling : mDOMNode -> mDOMNode option = "ml_node_get_prev_sibling"
-external node_get_next_sibling : mDOMNode -> mDOMNode option = "ml_node_get_next_sibling"
-external node_get_first_child : mDOMNode -> mDOMNode option = "ml_node_get_first_child"
-external node_get_first_attribute : mDOMNode -> mDOMAttr option = "ml_node_get_first_attribute"
-external node_is_first : mDOMNode -> bool = "ml_node_is_first"
-external node_is_last : mDOMNode -> bool = "ml_node_is_last"
-
-external attr_get_name : mDOMAttr -> mDOMString option = "ml_attr_get_name"
-external attr_get_ns_uri : mDOMAttr -> mDOMString option = "ml_attr_get_ns_uri"
-external attr_get_value : mDOMAttr -> mDOMString option = "ml_attr_get_value"
-external attr_get_prev_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_prev_sibling"
-external attr_get_next_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_next_sibling"
-external attr_get_parent : mDOMAttr -> mDOMNode option = "ml_attr_get_parent"
-
-val node_get_children : mDOMNode -> mDOMNode list
-val node_get_attributes : mDOMNode -> mDOMAttr list
-

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/ml_minidom.c b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/ml_minidom.c
deleted file mode 100644 (file)
index 1062614..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/ml_minidom.c
+++ /dev/null
@@ -1,288 +0,0 @@
-
-#include <assert.h>
-#include <mlvalues.h>
-#include <memory.h>
-
-#include "minidom.h"
-
-#define Val_ptr(p)        ((value) (p))
-#define Val_option(p,f)   ((p != NULL) ? ml_some(f(p)) : Val_unit)
-#define Val_mDOMString(s) (copy_string((char*) (s)))
-#define mDOMString_val(v) ((mDOMStringRef) String_val(v))
-
-static value
-ml_some(value v)
-{
-  CAMLparam1(v);
-  value ret = alloc_small(1,0);
-  Field(ret,0) = v;
-  CAMLreturn(ret);
-}
-
-value
-ml_string_of_mDOMString(value s)
-{
-  CAMLparam1(s);
-  CAMLreturn(s);
-}
-
-value
-ml_mDOMString_of_string(value s)
-{
-  CAMLparam1(s);
-  CAMLreturn(s);
-}
-
-value
-ml_doc_load(value file_name)
-{
-  mDOMDocRef doc_ref;
-
-  CAMLparam1(file_name);
-
-  doc_ref = mdom_load(String_val(file_name), FALSE, NULL);
-  if (doc_ref == NULL) failwith("minidom: could not load document");
-
-  CAMLreturn((value) doc_ref);
-}
-
-value
-ml_doc_unload(value doc)
-{
-  CAMLparam1(doc);
-
-  mdom_unload((mDOMDocRef) doc);
-
-  CAMLreturn(Val_unit);
-}
-
-value
-ml_doc_new(value s)
-{
-  mDOMDocRef doc_ref;
-
-  CAMLparam1(s);
-
-  doc_ref = mdom_doc_new(mDOMString_val(s));
-  if (doc_ref == NULL) failwith("minidom: could not create new document");
-
-  CAMLreturn((value) doc_ref);
-}
-
-
-value
-ml_doc_get_root_node(value doc)
-{
-  mDOMNodeRef root;
-
-  CAMLparam1(doc);
-  root = mdom_doc_get_root_node((mDOMDocRef) doc);
-  if (root == NULL) failwith("minidom: document has no root node!");
-
-  CAMLreturn((value) root);
-}
-
-value
-ml_doc_add_entity(value doc, value name, value content)
-{
-  mDOMEntityRef ent;
-
-  CAMLparam3(doc, name, content);
-  ent = mdom_doc_add_entity((mDOMDocRef) doc, mDOMString_val(name), mDOMString_val(content));
-  if (ent == NULL) failwith("minidom: could not add entity");
-
-  CAMLreturn((value) ent);
-}
-
-value
-ml_doc_get_entity(value doc, value name)
-{
-  mDOMEntityRef ent;
-
-  CAMLparam2(doc, name);
-  ent = mdom_doc_get_entity((mDOMDocRef) doc, mDOMString_val(name));
-
-  CAMLreturn(Val_option(ent, Val_ptr));
-}
-
-value
-ml_doc_get_predefined_entity(value name)
-{
-  mDOMEntityRef ent;
-
-  CAMLparam1(name);
-  ent = mdom_get_predefined_entity(mDOMString_val(name));
-
-  CAMLreturn(Val_option(ent, Val_ptr));
-}
-
-value
-ml_entity_get_content(value ent)
-{
-  CAMLparam1(ent);
-  CAMLreturn(Val_mDOMString(mdom_entity_get_content((mDOMEntityRef) ent)));
-}
-
-value
-ml_node_is_text(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_text((mDOMNodeRef) node)));
-}
-
-value
-ml_node_is_element(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_element((mDOMNodeRef) node)));
-}
-
-value
-ml_node_is_blank(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_blank((mDOMNodeRef) node)));
-}
-
-value
-ml_node_is_entity_ref(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_entity_ref((mDOMNodeRef) node)));
-}
-
-value
-ml_node_get_type(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_int(mdom_node_get_type((mDOMNodeRef) node)));
-}
-
-value
-ml_node_get_name(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_name((mDOMNodeRef) node), Val_mDOMString));
-}
-
-value
-ml_node_get_content(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_content((mDOMNodeRef) node), Val_mDOMString));
-}
-
-value
-ml_node_get_ns_uri(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_ns_uri((mDOMNodeRef) node), Val_mDOMString));
-}
-
-value
-ml_node_get_attribute(value node, value name)
-{
-  CAMLparam2(node,name);
-  CAMLreturn(Val_option(mdom_node_get_attribute((mDOMNodeRef) node, String_val(name)), Val_mDOMString));
-}
-
-value
-ml_node_get_attribute_ns(value node, value name, value ns_uri)
-{
-  CAMLparam2(node,name);
-  CAMLreturn(Val_option(mdom_node_get_attribute_ns((mDOMNodeRef) node,
-                                                  String_val(name),
-                                                  String_val(ns_uri)), Val_mDOMString));
-}
-
-value
-ml_node_get_parent(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_parent((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_get_prev_sibling(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_prev_sibling((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_get_next_sibling(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_next_sibling((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_get_first_child(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_first_child((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_get_first_attribute(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_first_attribute((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_is_first(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_first((mDOMNodeRef) node)));
-}
-
-value
-ml_node_is_last(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_last((mDOMNodeRef) node)));
-}
-
-value
-ml_attr_get_name(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_name((mDOMAttrRef) attr), Val_mDOMString));
-}
-
-value
-ml_attr_get_ns_uri(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_ns_uri((mDOMAttrRef) attr), Val_mDOMString));
-}
-
-value
-ml_attr_get_value(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_value((mDOMAttrRef) attr), Val_mDOMString));
-}
-
-value
-ml_attr_get_prev_sibling(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_prev_sibling((mDOMAttrRef) attr), Val_ptr));
-}
-
-value
-ml_attr_get_next_sibling(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_next_sibling((mDOMAttrRef) attr), Val_ptr));
-}
-
-value
-ml_attr_get_parent(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_parent((mDOMAttrRef) attr), Val_ptr));
-}
-

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/ml_minidom.h b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/ml_minidom.h
deleted file mode 100644 (file)
index d224799..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/ml_minidom.h
+++ /dev/null
@@ -1,18 +0,0 @@
-
-#ifndef ml_minidom_h
-#define ml_minidom_h
-
-#define Val_ptr(p)        ((value) (p))
-#ifndef Val_option
-#define Val_option(p,f)   ((p != NULL) ? ml_some(f(p)) : Val_unit)
-#endif /* Val_option */
-#define Val_mDOMString(s) (copy_string((char*) (s)))
-#define mDOMString_val(v) ((mDOMStringRef) String_val(v))
-#define mDOMNode_val(v) ((mDOMNodeRef) v)
-
-#define mDOMNode_option_mDOMNodeRef(p) (((p) != NULL) ? ml_some((value) (p)) : Val_unit)
-#define mDOMNodeRef_mDOMNode_option(v) ((v == Val_unit) ? NULL : (mDOMNodeRef)Field((v),0))
-#define Val_mDOMNodeRef(p)             (mDOMNode_option_mDOMNodeRef(p))
-#define mDOMNodeRef_val(v)             (mDOMNodeRef_mDOMNode_option(v))
-
-#endif /* ml_minidom_h */

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/ominidom.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/ominidom.ml
deleted file mode 100644 (file)
index 85ad2e4..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/ominidom.ml
+++ /dev/null
@@ -1,156 +0,0 @@
-
-exception Node_has_no_parent;;
-exception Node_has_no_sibling of string;;
-exception Node_has_no_children;;
-exception Node_has_no_attributes;;
-exception Attribute_has_no_sibling of string;;
-exception Attribute_has_no_parent;;
-exception Undefined_entity;;
-
-let option_to_exception v e =
-  match v with
-    Some x -> x
-  | None   -> raise e
-;;
-
-class o_mDOMString (str: Minidom.mDOMString) =
-  object
-    method get_dom_string = str
-    method get_string = Minidom.string_of_mDOMString str
-  end;;
-  
-let o_mDOMString_of_string str =
-  new o_mDOMString (Minidom.mDOMString_of_string str)
-
-class o_mDOMEntity (ent : Minidom.mDOMEntity) =
-  object
-    method get_dom_entity = ent
-    method get_content =
-      new o_mDOMString (Minidom.entity_get_content ent)
-  end
-;;
-
-class o_mDOMDoc (doc : Minidom.mDOMDoc) =
-  object
-    method get_dom_doc = doc
-
-    method get_root_node =
-      new o_mDOMNode (Minidom.doc_get_root_node doc)
-    method add_entity (name : o_mDOMString) (value : o_mDOMString) =
-      new o_mDOMEntity
-        (Minidom.doc_add_entity doc
-         (name#get_dom_string) (value#get_dom_string)
-       )
-    method get_entity (name : o_mDOMString) =
-      match Minidom.doc_get_entity doc (name#get_dom_string) with
-      | Some x -> new o_mDOMEntity x
-      | None -> raise Undefined_entity
-    method get_predefined_entity (name : o_mDOMString) =
-      match Minidom.doc_get_predefined_entity doc (name#get_dom_string) with
-      | Some x -> new o_mDOMEntity x
-      | None -> raise Undefined_entity
-  end
-and o_mDOMNode (node : Minidom.mDOMNode) =
-  object
-    method get_dom_node = node
-
-    method is_text = Minidom.node_is_text node
-    method is_element = Minidom.node_is_element node
-    method is_blank = Minidom.node_is_blank node
-    method is_entity_ref = Minidom.node_is_entity_ref node
-
-    method get_type = Minidom.node_get_type node
-    method get_name = 
-      match Minidom.node_get_name node with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_ns_uri =
-      match Minidom.node_get_ns_uri node with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_attribute (name : o_mDOMString) =
-      match Minidom.node_get_attribute node (name#get_dom_string) with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_attribute_ns (name : o_mDOMString) (uri : o_mDOMString) =
-      match 
-        Minidom.node_get_attribute_ns node
-         (name#get_dom_string) (uri#get_dom_string)
-      with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_content =
-      match Minidom.node_get_content node with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_parent =
-      new o_mDOMNode
-       (option_to_exception (Minidom.node_get_parent node) Node_has_no_parent)
-    method get_prev_sibling =
-      new o_mDOMNode
-       (option_to_exception
-        (Minidom.node_get_prev_sibling node)
-        (Node_has_no_sibling "left")
-       )
-    method get_next_sibling =
-      new o_mDOMNode
-       (option_to_exception
-        (Minidom.node_get_next_sibling node)
-        (Node_has_no_sibling "right")
-       )
-    method get_first_child =
-      new o_mDOMNode
-       (option_to_exception
-        (Minidom.node_get_first_child node)
-        (Node_has_no_children)
-       )
-    method get_first_attribute =
-      new o_mDOMAttr
-       (option_to_exception
-         (Minidom.node_get_first_attribute node)
-         (Node_has_no_attributes)
-       )
-    method is_first = Minidom.node_is_first node
-    method is_last = Minidom.node_is_last node
-
-    method get_children =
-      List.map (function x -> new o_mDOMNode x) (Minidom.node_get_children node)
-    method get_attributes = List.map
-      (function x -> new o_mDOMAttr x) (Minidom.node_get_attributes node)
-  end
-and o_mDOMAttr (attr : Minidom.mDOMAttr) =
-  object
-    method get_dom_attr = attr
-
-    method get_name =
-      match Minidom.attr_get_name attr with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_ns_uri =
-      match Minidom.attr_get_ns_uri attr with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_value =
-      match Minidom.attr_get_value attr with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_prev_sibling =
-      new o_mDOMAttr
-        (option_to_exception
-         (Minidom.attr_get_prev_sibling attr)
-         (Attribute_has_no_sibling "left")
-       )
-    method get_next_sibling =
-      new o_mDOMAttr
-        (option_to_exception
-         (Minidom.attr_get_next_sibling attr)
-         (Attribute_has_no_sibling "right")
-       )
-    method get_parent =
-      new o_mDOMNode
-        (option_to_exception
-         (Minidom.attr_get_parent attr) Attribute_has_no_parent
-       )
-  end
-;;
-    

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/test.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/test.ml
deleted file mode 100644 (file)
index 3c7a092..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/test.ml
+++ /dev/null
@@ -1,84 +0,0 @@
-
-let doc = Minidom.doc_load "test.xml"
-
-let root = Minidom.doc_get_root_node doc
-
-let check_attribute_ns attr =
-  Printf.printf "\n\n";
-  let ns_uri = Minidom.attr_get_ns_uri attr
-  and attr_name = Minidom.attr_get_name attr
-  and attr_value = Minidom.attr_get_value attr
-  and parent = Minidom.attr_get_parent attr
-  in
-  match parent,ns_uri,attr_name,attr_value with
-    Some parent_node,Some uri,Some attribute_name,Some attribute_value ->
-      let attr_value = Minidom.node_get_attribute_ns parent_node attribute_name uri
-      in begin
-        match attr_value with
-          Some attr1 ->
-           Printf.printf "found the attribute with ns %s (was %s)\n"
-              (Minidom.string_of_mDOMString attr1) (Minidom.string_of_mDOMString attribute_value)
-        | None ->
-           Printf.printf "attribute not found (uri was %s)!!!!\n" (Minidom.string_of_mDOMString uri)
-      end
-  | _ ->
-      Printf.printf "parent_node == NULL || uri == NULL || attribute_name == NULL || attribute_value == NULL\n"
-;;
-    
-let print_attribute attr =
-  check_attribute_ns attr;
-  let ns_uri = Minidom.attr_get_ns_uri attr
-  in
-  begin
-    match ns_uri with
-      Some uri -> Printf.printf " %s:" (Minidom.string_of_mDOMString uri);
-    | None -> ()
-  end;
-  match ((Minidom.attr_get_name attr), (Minidom.attr_get_value attr)) with
-    (Some attr_name, Some attr_value) ->
-      Printf.printf " %s=\"%s\"" (Minidom.string_of_mDOMString attr_name) (Minidom.string_of_mDOMString attr_value) 
-  | (Some attr_name, _) ->
-      Printf.printf " ??? attribute %s has no value !!!" (Minidom.string_of_mDOMString attr_name)
-  | (_,_) ->
-      Printf.printf " ??? very strange attribute !!!"
-;;
-
-let rec print_node n node =
-  if Minidom.node_is_blank node then ()
-  else if Minidom.node_is_element node then begin
-    match Minidom.node_get_name node with
-      Some node_name -> 
-        begin
-          let children = Minidom.node_get_children node
-          and attributes = Minidom.node_get_attributes node
-          and ns_uri = Minidom.node_get_ns_uri node
-          and is_first,is_last = (Minidom.node_is_first node), (Minidom.node_is_last node)
-          in
-          for i = 1 to n do print_char ' ' done;
-          Printf.printf "<";
-          begin
-            match ns_uri with
-              Some uri -> Printf.printf "%s:" (Minidom.string_of_mDOMString uri)
-            | None     -> ()
-          end;
-          Printf.printf "%s" (Minidom.string_of_mDOMString node_name);
-          List.iter print_attribute attributes;
-          Printf.printf ">\n";
-          List.iter (print_node (n + 2)) children;
-          for i = 1 to n do print_char ' ' done;
-          Printf.printf "</%s>\n" (Minidom.string_of_mDOMString node_name)
-        end
-    | None -> Printf.printf "??? this node has no name !!!\n"
-  end else if Minidom.node_is_text node then begin
-    match Minidom.node_get_content node with
-      Some node_content ->
-        for i = 1 to n do print_char ' ' done;
-        Printf.printf "%s\n" (Minidom.string_of_mDOMString node_content)
-    | None -> Printf.printf "??? this node has no content !!!\n"
-  end else begin
-    Printf.printf "don't know how to manage a node with type %d\n" (Minidom.node_get_type node)
-  end
-;;
-  
-print_node 0 root;;
-

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/test.xml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/test.xml
deleted file mode 100644 (file)
index 83d2eef..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/minidom/test.xml
+++ /dev/null
@@ -1,505 +0,0 @@
-<?xml version="1.0" encoding="iso-8859-1"?>
-<?cocoon-format type="text/xhtml"?>
-<m:math xmlns:helm="http://www.cs.unibo.it/helm" xmlns:m="http://www.w3.org/1998/Math/MathML">
-    <m:mtable helm:xref="i0" columnalign="left" equalrows="false" align="baseline 1">
-        <m:mtr>
-            <m:mtd>
-                <m:mrow>
-                    <m:mtext>DEFINITION and_ind() OF TYPE</m:mtext>
-                </m:mrow>
-            </m:mtd>
-        </m:mtr>
-        <m:mtr>
-            <m:mtd>
-                <m:mrow>
-                    <m:mphantom>
-                        <m:mtext>__</m:mtext>
-                    </m:mphantom>
-                    <m:semantics xmlns:xlink="http://www.w3.org/1999/xlink">
-                        <m:mrow helm:xref="i22">
-                            <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mrow>
-                                            <m:mo stretchy="false">(</m:mo>
-                                            <m:mrow helm:xref="i23">
-                                                <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                    <m:mtr>
-                                                        <m:mtd>
-                                                            <m:mo color="Blue">&#928;</m:mo>
-                                                            <m:mi>A</m:mi>
-                                                            <m:mo>:</m:mo>
-                                                            <m:mrow helm:xref="i24">
-                                                                <m:mo>Prop</m:mo>
-                                                            </m:mrow>
-                                                        </m:mtd>
-                                                    </m:mtr>
-                                                    <m:mtr>
-                                                        <m:mtd>
-                                                            <m:mrow>
-                                                                <m:mo>.</m:mo>
-                                                                <m:mrow helm:xref="i25">
-                                                                    <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                        <m:mtr>
-                                                                            <m:mtd>
-                                                                                <m:mo color="Blue">&#928;</m:mo>
-                                                                                <m:mi>B</m:mi>
-                                                                                <m:mo>:</m:mo>
-                                                                                <m:mrow helm:xref="i26">
-                                                                                    <m:mo>Prop</m:mo>
-                                                                                </m:mrow>
-                                                                            </m:mtd>
-                                                                        </m:mtr>
-                                                                        <m:mtr>
-                                                                            <m:mtd>
-                                                                                <m:mrow>
-                                                                                    <m:mo>.</m:mo>
-                                                                                    <m:mrow helm:xref="i27">
-                                                                                        <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                                            <m:mtr>
-                                                                                                <m:mtd>
-                                                                                                    <m:mo color="Blue">&#928;</m:mo>
-                                                                                                    <m:mi>P</m:mi>
-                                                                                                    <m:mo>:</m:mo>
-                                                                                                    <m:mrow helm:xref="i28">
-                                                                                                        <m:mo>Prop</m:mo>
-                                                                                                    </m:mrow>
-                                                                                                </m:mtd>
-                                                                                            </m:mtr>
-                                                                                            <m:mtr>
-                                                                                                <m:mtd>
-                                                                                                    <m:mrow>
-                                                                                                        <m:mo>.</m:mo>
-                                                                                                        <m:mrow helm:xref="i29">
-                                                                                                            <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                                                                <m:mtr>
-                                                                                                                    <m:mtd>
-                                                                                                                        <m:mo color="Blue">&#928;</m:mo>
-                                                                                                                        <m:mi>f</m:mi>
-                                                                                                                        <m:mo>:</m:mo>
-                                                                                                                        <m:mrow helm:xref="i30">
-                                                                                                                            <m:mo stretchy="false">(</m:mo>
-                                                                                                                            <m:mi helm:xref="i31">A</m:mi>
-                                                                                                                            <m:mo color="Blue">&#8594;</m:mo>
-                                                                                                                            <m:mrow helm:xref="i32">
-                                                                                                                                <m:mo stretchy="false">(</m:mo>
-                                                                                                                                <m:mi helm:xref="i33">B</m:mi>
-                                                                                                                                <m:mo color="Blue">&#8594;</m:mo>
-                                                                                                                                <m:mi helm:xref="i34">P</m:mi>
-                                                                                                                                <m:mo stretchy="false">)</m:mo>
-                                                                                                                            </m:mrow>
-                                                                                                                            <m:mo stretchy="false">)</m:mo>
-                                                                                                                        </m:mrow>
-                                                                                                                    </m:mtd>
-                                                                                                                </m:mtr>
-                                                                                                                <m:mtr>
-                                                                                                                    <m:mtd>
-                                                                                                                        <m:mrow>
-                                                                                                                            <m:mo>.</m:mo>
-                                                                                                                            <m:mrow helm:xref="i35">
-                                                                                                                                <m:mo color="Blue">&#928;</m:mo>
-                                                                                                                                <m:mi>a</m:mi>
-                                                                                                                                <m:mo>:</m:mo>
-                                                                                                                                <m:mrow helm:xref="i36">
-                                                                                                                                    <m:mo stretchy="false">(</m:mo>
-                                                                                                                                    <m:mi xlink:href="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i37">and</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi helm:xref="i38">A</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi helm:xref="i39">B</m:mi>
-                                                                                                                                    <m:mo stretchy="false">)</m:mo>
-                                                                                                                                </m:mrow>
-                                                                                                                                <m:mo>.</m:mo>
-                                                                                                                                <m:mi helm:xref="i40">P</m:mi>
-                                                                                                                            </m:mrow>
-                                                                                                                        </m:mrow>
-                                                                                                                    </m:mtd>
-                                                                                                                </m:mtr>
-                                                                                                            </m:mtable>
-                                                                                                        </m:mrow>
-                                                                                                    </m:mrow>
-                                                                                                </m:mtd>
-                                                                                            </m:mtr>
-                                                                                        </m:mtable>
-                                                                                    </m:mrow>
-                                                                                </m:mrow>
-                                                                            </m:mtd>
-                                                                        </m:mtr>
-                                                                    </m:mtable>
-                                                                </m:mrow>
-                                                            </m:mrow>
-                                                        </m:mtd>
-                                                    </m:mtr>
-                                                </m:mtable>
-                                            </m:mrow>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mrow>
-                                            <m:mo color="#b03060">:&gt;</m:mo>
-                                            <m:mrow helm:xref="i41">
-                                                <m:mo>Prop</m:mo>
-                                            </m:mrow>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mrow>
-                                            <m:mo stretchy="false">)</m:mo>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                            </m:mtable>
-                        </m:mrow>
-                        <m:annotation-xml encoding="MathML">
-                            <m:apply helm:xref="i22">
-                                <m:csymbol>cast</m:csymbol>
-                                <m:apply helm:xref="i23">
-                                    <m:csymbol>prod</m:csymbol>
-                                    <m:bvar>
-                                        <m:ci>A</m:ci>
-                                        <m:type>
-                                            <m:apply helm:xref="i24">
-                                                <m:csymbol>Prop</m:csymbol>
-                                            </m:apply>
-                                        </m:type>
-                                    </m:bvar>
-                                    <m:apply helm:xref="i25">
-                                        <m:csymbol>prod</m:csymbol>
-                                        <m:bvar>
-                                            <m:ci>B</m:ci>
-                                            <m:type>
-                                                <m:apply helm:xref="i26">
-                                                    <m:csymbol>Prop</m:csymbol>
-                                                </m:apply>
-                                            </m:type>
-                                        </m:bvar>
-                                        <m:apply helm:xref="i27">
-                                            <m:csymbol>prod</m:csymbol>
-                                            <m:bvar>
-                                                <m:ci>P</m:ci>
-                                                <m:type>
-                                                    <m:apply helm:xref="i28">
-                                                        <m:csymbol>Prop</m:csymbol>
-                                                    </m:apply>
-                                                </m:type>
-                                            </m:bvar>
-                                            <m:apply helm:xref="i29">
-                                                <m:csymbol>prod</m:csymbol>
-                                                <m:bvar>
-                                                    <m:ci>f</m:ci>
-                                                    <m:type>
-                                                        <m:apply helm:xref="i30">
-                                                            <m:csymbol>arrow</m:csymbol>
-                                                            <m:ci helm:xref="i31">A</m:ci>
-                                                            <m:apply helm:xref="i32">
-                                                                <m:csymbol>arrow</m:csymbol>
-                                                                <m:ci helm:xref="i33">B</m:ci>
-                                                                <m:ci helm:xref="i34">P</m:ci>
-                                                            </m:apply>
-                                                        </m:apply>
-                                                    </m:type>
-                                                </m:bvar>
-                                                <m:apply helm:xref="i35">
-                                                    <m:csymbol>prod</m:csymbol>
-                                                    <m:bvar>
-                                                        <m:ci>a</m:ci>
-                                                        <m:type>
-                                                            <m:apply helm:xref="i36">
-                                                                <m:csymbol>app</m:csymbol>
-                                                                <m:ci definitionURL="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i37">and</m:ci>
-                                                                <m:ci helm:xref="i38">A</m:ci>
-                                                                <m:ci helm:xref="i39">B</m:ci>
-                                                            </m:apply>
-                                                        </m:type>
-                                                    </m:bvar>
-                                                    <m:ci helm:xref="i40">P</m:ci>
-                                                </m:apply>
-                                            </m:apply>
-                                        </m:apply>
-                                    </m:apply>
-                                </m:apply>
-                                <m:apply helm:xref="i41">
-                                    <m:csymbol>Prop</m:csymbol>
-                                </m:apply>
-                            </m:apply>
-                        </m:annotation-xml>
-                    </m:semantics>
-                </m:mrow>
-            </m:mtd>
-        </m:mtr>
-        <m:mtr>
-            <m:mtd>
-                <m:mrow>
-                    <m:mtext>AS</m:mtext>
-                </m:mrow>
-            </m:mtd>
-        </m:mtr>
-        <m:mtr>
-            <m:mtd>
-                <m:mrow>
-                    <m:mphantom>
-                        <m:mtext>__</m:mtext>
-                    </m:mphantom>
-                    <m:semantics xmlns:xlink="http://www.w3.org/1999/xlink">
-                        <m:mrow helm:xref="i1">
-                            <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mo color="Red">&#955;</m:mo>
-                                        <m:mi>A</m:mi>
-                                        <m:mo>:</m:mo>
-                                        <m:mrow helm:xref="i2">
-                                            <m:mo>Prop</m:mo>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mrow>
-                                            <m:mo>.</m:mo>
-                                            <m:mrow helm:xref="i3">
-                                                <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                    <m:mtr>
-                                                        <m:mtd>
-                                                            <m:mo color="Red">&#955;</m:mo>
-                                                            <m:mi>B</m:mi>
-                                                            <m:mo>:</m:mo>
-                                                            <m:mrow helm:xref="i4">
-                                                                <m:mo>Prop</m:mo>
-                                                            </m:mrow>
-                                                        </m:mtd>
-                                                    </m:mtr>
-                                                    <m:mtr>
-                                                        <m:mtd>
-                                                            <m:mrow>
-                                                                <m:mo>.</m:mo>
-                                                                <m:mrow helm:xref="i5">
-                                                                    <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                        <m:mtr>
-                                                                            <m:mtd>
-                                                                                <m:mo color="Red">&#955;</m:mo>
-                                                                                <m:mi>P</m:mi>
-                                                                                <m:mo>:</m:mo>
-                                                                                <m:mrow helm:xref="i6">
-                                                                                    <m:mo>Prop</m:mo>
-                                                                                </m:mrow>
-                                                                            </m:mtd>
-                                                                        </m:mtr>
-                                                                        <m:mtr>
-                                                                            <m:mtd>
-                                                                                <m:mrow>
-                                                                                    <m:mo>.</m:mo>
-                                                                                    <m:mrow helm:xref="i7">
-                                                                                        <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                                            <m:mtr>
-                                                                                                <m:mtd>
-                                                                                                    <m:mo color="Red">&#955;</m:mo>
-                                                                                                    <m:mi>f</m:mi>
-                                                                                                    <m:mo>:</m:mo>
-                                                                                                    <m:mrow helm:xref="i8">
-                                                                                                        <m:mo stretchy="false">(</m:mo>
-                                                                                                        <m:mi helm:xref="i9">A</m:mi>
-                                                                                                        <m:mo color="Blue">&#8594;</m:mo>
-                                                                                                        <m:mrow helm:xref="i10">
-                                                                                                            <m:mo stretchy="false">(</m:mo>
-                                                                                                            <m:mi helm:xref="i11">B</m:mi>
-                                                                                                            <m:mo color="Blue">&#8594;</m:mo>
-                                                                                                            <m:mi helm:xref="i12">P</m:mi>
-                                                                                                            <m:mo stretchy="false">)</m:mo>
-                                                                                                        </m:mrow>
-                                                                                                        <m:mo stretchy="false">)</m:mo>
-                                                                                                    </m:mrow>
-                                                                                                </m:mtd>
-                                                                                            </m:mtr>
-                                                                                            <m:mtr>
-                                                                                                <m:mtd>
-                                                                                                    <m:mrow>
-                                                                                                        <m:mo>.</m:mo>
-                                                                                                        <m:mrow helm:xref="i13">
-                                                                                                            <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                                                                <m:mtr>
-                                                                                                                    <m:mtd>
-                                                                                                                        <m:mo color="Red">&#955;</m:mo>
-                                                                                                                        <m:mi>a</m:mi>
-                                                                                                                        <m:mo>:</m:mo>
-                                                                                                                        <m:mrow helm:xref="i14">
-                                                                                                                            <m:mo stretchy="false">(</m:mo>
-                                                                                                                            <m:mi xlink:href="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i15">and</m:mi>
-                                                                                                                            <m:mphantom>
-                                                                                                                                <m:mtext>_</m:mtext>
-                                                                                                                            </m:mphantom>
-                                                                                                                            <m:mi helm:xref="i16">A</m:mi>
-                                                                                                                            <m:mphantom>
-                                                                                                                                <m:mtext>_</m:mtext>
-                                                                                                                            </m:mphantom>
-                                                                                                                            <m:mi helm:xref="i17">B</m:mi>
-                                                                                                                            <m:mo stretchy="false">)</m:mo>
-                                                                                                                        </m:mrow>
-                                                                                                                    </m:mtd>
-                                                                                                                </m:mtr>
-                                                                                                                <m:mtr>
-                                                                                                                    <m:mtd>
-                                                                                                                        <m:mrow>
-                                                                                                                            <m:mo>.</m:mo>
-                                                                                                                            <m:mrow helm:xref="i18">
-                                                                                                                                <m:mo>&lt;</m:mo>
-                                                                                                                                <m:mi helm:xref="i19">P</m:mi>
-                                                                                                                                <m:mo>&gt;</m:mo>
-                                                                                                                                <m:mo>CASES</m:mo>
-                                                                                                                                <m:mphantom>
-                                                                                                                                    <m:mtext>_</m:mtext>
-                                                                                                                                </m:mphantom>
-                                                                                                                                <m:mi helm:xref="i20">a</m:mi>
-                                                                                                                                <m:mphantom>
-                                                                                                                                    <m:mtext>_</m:mtext>
-                                                                                                                                </m:mphantom>
-                                                                                                                                <m:mo>OF</m:mo>
-                                                                                                                                <m:mrow>
-                                                                                                                                    <m:mo stretchy="false">(</m:mo>
-                                                                                                                                    <m:mi>conj</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi>$1</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi>$2</m:mi>
-                                                                                                                                    <m:mo stretchy="false">)</m:mo>
-                                                                                                                                </m:mrow>
-                                                                                                                                <m:mo color="Green">&#8658;</m:mo>
-                                                                                                                                <m:mrow>
-                                                                                                                                    <m:mo stretchy="false">(</m:mo>
-                                                                                                                                    <m:mi helm:xref="i21">f</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi>$1</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi>$2</m:mi>
-                                                                                                                                    <m:mo stretchy="false">)</m:mo>
-                                                                                                                                </m:mrow>
-                                                                                                                                <m:mphantom>
-                                                                                                                                    <m:mtext>_</m:mtext>
-                                                                                                                                </m:mphantom>
-                                                                                                                                <m:mo>END</m:mo>
-                                                                                                                            </m:mrow>
-                                                                                                                        </m:mrow>
-                                                                                                                    </m:mtd>
-                                                                                                                </m:mtr>
-                                                                                                            </m:mtable>
-                                                                                                        </m:mrow>
-                                                                                                    </m:mrow>
-                                                                                                </m:mtd>
-                                                                                            </m:mtr>
-                                                                                        </m:mtable>
-                                                                                    </m:mrow>
-                                                                                </m:mrow>
-                                                                            </m:mtd>
-                                                                        </m:mtr>
-                                                                    </m:mtable>
-                                                                </m:mrow>
-                                                            </m:mrow>
-                                                        </m:mtd>
-                                                    </m:mtr>
-                                                </m:mtable>
-                                            </m:mrow>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                            </m:mtable>
-                        </m:mrow>
-                        <m:annotation-xml encoding="MathML">
-                            <m:lambda helm:xref="i1">
-                                <m:bvar>
-                                    <m:ci>A</m:ci>
-                                    <m:type>
-                                        <m:apply helm:xref="i2">
-                                            <m:csymbol>Prop</m:csymbol>
-                                        </m:apply>
-                                    </m:type>
-                                </m:bvar>
-                                <m:lambda helm:xref="i3">
-                                    <m:bvar>
-                                        <m:ci>B</m:ci>
-                                        <m:type>
-                                            <m:apply helm:xref="i4">
-                                                <m:csymbol>Prop</m:csymbol>
-                                            </m:apply>
-                                        </m:type>
-                                    </m:bvar>
-                                    <m:lambda helm:xref="i5">
-                                        <m:bvar>
-                                            <m:ci>P</m:ci>
-                                            <m:type>
-                                                <m:apply helm:xref="i6">
-                                                    <m:csymbol>Prop</m:csymbol>
-                                                </m:apply>
-                                            </m:type>
-                                        </m:bvar>
-                                        <m:lambda helm:xref="i7">
-                                            <m:bvar>
-                                                <m:ci>f</m:ci>
-                                                <m:type>
-                                                    <m:apply helm:xref="i8">
-                                                        <m:csymbol>arrow</m:csymbol>
-                                                        <m:ci helm:xref="i9">A</m:ci>
-                                                        <m:apply helm:xref="i10">
-                                                            <m:csymbol>arrow</m:csymbol>
-                                                            <m:ci helm:xref="i11">B</m:ci>
-                                                            <m:ci helm:xref="i12">P</m:ci>
-                                                        </m:apply>
-                                                    </m:apply>
-                                                </m:type>
-                                            </m:bvar>
-                                            <m:lambda helm:xref="i13">
-                                                <m:bvar>
-                                                    <m:ci>a</m:ci>
-                                                    <m:type>
-                                                        <m:apply helm:xref="i14">
-                                                            <m:csymbol>app</m:csymbol>
-                                                            <m:ci definitionURL="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i15">and</m:ci>
-                                                            <m:ci helm:xref="i16">A</m:ci>
-                                                            <m:ci helm:xref="i17">B</m:ci>
-                                                        </m:apply>
-                                                    </m:type>
-                                                </m:bvar>
-                                                <m:apply helm:xref="i18">
-                                                    <m:csymbol>mutcase</m:csymbol>
-                                                    <m:ci helm:xref="i19">P</m:ci>
-                                                    <m:ci helm:xref="i20">a</m:ci>
-                                                    <m:apply>
-                                                        <m:csymbol>app</m:csymbol>
-                                                        <m:ci>conj</m:ci>
-                                                        <m:ci>$1</m:ci>
-                                                        <m:ci>$2</m:ci>
-                                                    </m:apply>
-                                                    <m:apply>
-                                                        <m:csymbol>app</m:csymbol>
-                                                        <m:ci helm:xref="i21">f</m:ci>
-                                                        <m:ci>$1</m:ci>
-                                                        <m:ci>$2</m:ci>
-                                                    </m:apply>
-                                                </m:apply>
-                                            </m:lambda>
-                                        </m:lambda>
-                                    </m:lambda>
-                                </m:lambda>
-                            </m:lambda>
-                        </m:annotation-xml>
-                    </m:semantics>
-                </m:mrow>
-            </m:mtd>
-        </m:mtr>
-    </m:mtable>
-</m:math>

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/ml_gtk_mathview.c b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/ml_gtk_mathview.c
deleted file mode 100644 (file)
index 3c86f00..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/ml_gtk_mathview.c
+++ /dev/null
@@ -1,159 +0,0 @@
-#include <assert.h>
-#include <string.h>
-#include <assert.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include <gtkmathview/gtkmathview.h>
-#include <ml_gtk.h>
-
-#include <wrappers.h>
-#include <ml_glib.h>
-#include <ml_gdk.h>
-#include <ml_gtk.h>
-#include <gtk_tags.h>
-
-#include <minidom.h>
-#include "minidom/ml_minidom.h"
-
-/* <CSC/>: Next row should be put in a .h of lablgtk. */
-#define GtkAdjustment_val(val) check_cast(GTK_ADJUSTMENT,val)
-
-#define GtkMathView_val(val) check_cast(GTK_MATH_VIEW,val)
-
-#define FontManagerId_val(val) Int_val(val)
-#define Val_FontManagerId(val) Val_int(val)
-
-FontManagerId
-font_manager_id_of_value(value v)
-{
-  if (v == hash_variant("font_manager_gtk")) return FONT_MANAGER_GTK;
-  else if (v == hash_variant("font_manager_t1")) return FONT_MANAGER_T1;
-  else assert(0);
-}
-
-value
-value_of_font_manager_id(FontManagerId id)
-{
-  switch (id) {
-  case FONT_MANAGER_GTK:
-    return hash_variant("font_manager_gtk");
-  case FONT_MANAGER_T1:
-    return hash_variant("font_manager_t1");
-  default:
-    assert(0);
-    break;
-  }
-}
-
-ML_2 (gtk_math_view_new,GtkAdjustment_val, GtkAdjustment_val, Val_GtkWidget_sink)
-ML_2 (gtk_math_view_load, GtkMathView_val, String_val, Val_bool)
-ML_1 (gtk_math_view_unload, GtkMathView_val, Unit)
-/*ML_1 (gtk_math_view_dump, GtkMathView_val, Unit)*/
-ML_1 (gtk_math_view_get_selection, GtkMathView_val, Val_mDOMNodeRef)
-ML_2 (gtk_math_view_set_selection, GtkMathView_val, mDOMNodeRef_val, Unit)
-ML_1 (gtk_math_view_get_width, GtkMathView_val, Val_int)
-ML_1 (gtk_math_view_get_height, GtkMathView_val, Val_int)
-ML_3 (gtk_math_view_set_top, GtkMathView_val, Int_val, Int_val, Unit)
-ML_3 (gtk_math_view_set_adjustments, GtkMathView_val, GtkAdjustment_val, GtkAdjustment_val, Unit)
-ML_1 (gtk_math_view_get_hadjustment, GtkMathView_val, Val_GtkWidget)
-ML_1 (gtk_math_view_get_vadjustment, GtkMathView_val, Val_GtkWidget)
-ML_1 (gtk_math_view_get_buffer, GtkMathView_val, Val_GdkPixmap)
-ML_1 (gtk_math_view_get_frame, GtkMathView_val, Val_GtkWidget)
-ML_2 (gtk_math_view_set_font_size, GtkMathView_val, Int_val, Unit)
-ML_1 (gtk_math_view_get_font_size, GtkMathView_val, Val_int)
-ML_2 (gtk_math_view_set_anti_aliasing, GtkMathView_val, Bool_val, Unit)
-ML_1 (gtk_math_view_get_anti_aliasing, GtkMathView_val, Val_bool)
-ML_2 (gtk_math_view_set_kerning, GtkMathView_val, Bool_val, Unit)
-ML_1 (gtk_math_view_get_kerning, GtkMathView_val, Val_bool)
-ML_2 (gtk_math_view_set_log_verbosity, GtkMathView_val, Int_val, Unit)
-ML_1 (gtk_math_view_get_log_verbosity, GtkMathView_val, Val_int)
-ML_2 (gtk_math_view_set_font_manager_type, GtkMathView_val, font_manager_id_of_value, Unit)
-ML_1 (gtk_math_view_get_font_manager_type, GtkMathView_val, value_of_font_manager_id)
-
-value
-ml_gtk_math_view_export_to_postscript_native(value arg1,
-               value w, value h, value x0, value y0, value disable_colors, value arg2)
-{
-   CAMLparam5(arg1,w,h,x0,y0);
-   CAMLxparam2(disable_colors, arg2);
-
-   char *filename;
-   FILE *fd;
-   int res;
-   filename = String_val (arg2);
-   if ((fd = fopen(filename, "w"))) {
-      gtk_math_view_export_to_postscript(GtkMathView_val (arg1),
-                     Int_val(w), Int_val(h), Int_val(x0), Int_val(y0), Bool_val(disable_colors), fd);
-      fclose (fd);
-      res = 1;
-   } else {
-      fprintf(stderr, "Error opening file %s for writing\n", filename);
-      res = 0;
-   }
-   CAMLreturn (Val_bool(res));
-}
-
-value ml_gtk_math_view_export_to_postscript_bytecode (value* arg, int argn)
-{
-   return ml_gtk_math_view_export_to_postscript_native(arg[0], arg[1], arg[2], arg[3], arg[4], arg[5], arg[6]);
-}
-
-value ml_gtk_math_view_get_top (value arg1)
-{
-   CAMLparam1(arg1);
-   CAMLlocal1 (result);
-   int x, y;
-   gtk_math_view_get_top(GtkMathView_val (arg1), &x, &y);
-   result = alloc(2, 0);
-   Store_field(result, 0, Val_int(x));
-   Store_field(result, 0, Val_int(y));
-   CAMLreturn (result);
-}
-
-
-value ml_gtk_math_view_mDOMNode_of_bodex_option (value arg1)
-{
-   CAMLparam1(arg1);
-
-   mDOMNodeRef nr;
-   CAMLlocal1 (tmp);
-   CAMLlocal1 (optval);
-   CAMLlocal1 (res);
-
-   if (arg1==Val_int(0)) {
-      assert(0);
-   } else {
-      tmp = Field(arg1, 0);
-      nr = (mDOMNodeRef) Field(tmp, 1);
-   }
-   optval = Val_mDOMNodeRef(nr);
-   if (optval==Val_int(0)) {
-      assert(0);
-   } else {
-      res = Field(optval, 0);
-   }
-
-  CAMLreturn(res);
-}
-
-value ml_gtk_math_view_mDOMNode_option_of_bodex_option (value arg1)
-{
-   CAMLparam1(arg1);
-
-   mDOMNodeRef nr;
-   CAMLlocal1 (tmp);
-
-   if (arg1==Val_int(0)) {
-      nr=NULL;
-   } else {
-      tmp = Field(arg1, 0);
-      nr = (mDOMNodeRef) Field(tmp, 1);
-   }
-
-  CAMLreturn(Val_mDOMNodeRef(nr));
-}

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/.cvsignore b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/.cvsignore
deleted file mode 100644 (file)
index 1968614..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmo *.cmi *.cmx t1lib.log test test.opt test.ps test.o

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/Makefile b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/Makefile
deleted file mode 100644 (file)
index d631d23..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/Makefile
+++ /dev/null
@@ -1,45 +0,0 @@
-LABLGTK_DIR = /usr/lib/ocaml/lablgtk
-LABLGTK_MATHVIEW_DIR = ..
-MINIDOM_DIR = ../minidom
-OCAMLC = ocamlc -I $(LABLGTK_DIR) -I $(LABLGTK_MATHVIEW_DIR) \
- -I $(MINIDOM_DIR) -I mlmathview
-OCAMLOPT = ocamlopt -I $(LABLGTK_DIR) -I $(LABLGTK_MATHVIEW_DIR) \
- -I $(MINIDOM_DIR) -I mlmathview
-
-all: test
-opt: test.opt
-
-test: test.cmo
-       $(OCAMLC) -custom -o test lablgtk.cma gtkInit.cmo \
-                  $(MINIDOM_DIR)/minidom.cmo \
-                  $(MINIDOM_DIR)/ominidom.cmo \
-                  $(LABLGTK_MATHVIEW_DIR)/lablgtkmathview.cma \
-                  -cclib "$(MINIDOM_DIR)/ml_minidom.o" \
-                  test.cmo \
-                  -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
-                  -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
-                  -L/usr/local/lib/gtkmathview -lgtkmathview \
-                  $(LABLGTK_MATHVIEW_DIR)/ml_gtk_mathview.o"
-
-test.opt: test.cmx
-       $(OCAMLOPT) -o test.opt lablgtk.cmxa gtkInit.cmx \
-                  $(MINIDOM_DIR)/minidom.cmx \
-                  $(MINIDOM_DIR)/ominidom.cmx \
-                  $(LABLGTK_MATHVIEW_DIR)/lablgtkmathview.cmxa \
-                  -cclib "$(MINIDOM_DIR)/ml_minidom.o" \
-                  test.cmx \
-                  -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
-                  -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
-                  -L/usr/local/lib/gtkmathview -lgtkmathview \
-                  $(LABLGTK_MATHVIEW_DIR)/ml_gtk_mathview.o"
-
-.SUFFIXES: .ml .mli .cmo .cmi .cmx
-.ml.cmo:
-       $(OCAMLC) -c $<
-.mli.cmi:
-       $(OCAMLC) -c $<
-.ml.cmx:
-       $(OCAMLOPT) -c $<
-
-clean:
-       rm -f *.cm[iox] *.o test test.opt t1lib.log test.ps

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/t1.config b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/t1.config
deleted file mode 100644 (file)
index afb669e..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/t1.config
+++ /dev/null
@@ -1,3 +0,0 @@
-ENCODING=.
-AFM=/usr/share/texmf/fonts/afm/
-TYPE1=/usr/share/texmf/fonts/type1/bluesky/cm/:/usr/X11R6/lib/X11/fonts/Type1/:.

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/test.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/test.ml
deleted file mode 100644 (file)
index dd66d38..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/test.ml
+++ /dev/null
@@ -1,297 +0,0 @@
-(******************************************************************************)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 25/09/2000                                 *)
-(*                                                                            *)
-(*     This is a simple test for the OCaml (LablGtk indeed) binding of the    *)
-(*                             MathView widget                                *)
-(******************************************************************************)
-
-(* Callbacks *)
-let jump (node : Ominidom.o_mDOMNode) =
- let module O = Ominidom in
-  print_string ("jump: " ^
-   (match node#get_attribute (O.o_mDOMString_of_string "href") with
-    | Some x -> x#get_string
-    | None   -> "NO HREF FOR THIS NODE"
-   ) ^ "\n");
-  flush stdout
-;;
-
-let selection_changed mathview (node : Ominidom.o_mDOMNode option) =
- let module O = Ominidom in
-  print_string ("selection_changed: " ^
-   (match node with
-       None -> "selection_changed on nothing"
-     | Some node ->
-       match node#get_name with
-       | Some x -> x#get_string
-       | None   -> "on element without name"
-   ) ^ "\n");
-  mathview#set_selection node;
-  flush stdout
-;;
-
-
-let clicked (node : Ominidom.o_mDOMNode) =
- let module O = Ominidom in
-  print_string ("clicked: " ^
-   (match node#get_name with
-    | Some x -> x#get_string
-    | None   -> "no name"
-   ) ^ "\n");
-  flush stdout
-;;
-
-
-let activate_t1 mathview () =
- mathview#set_font_manager_type `font_manager_t1;
- print_string "WIDGET SET WITH T1 FONTS\n" ;
- flush stdout
-;;
-
-let activate_gtk mathview () =
- mathview#set_font_manager_type `font_manager_gtk;
- print_string "WIDGET SET WITH GTK FONTS\n" ;
- flush stdout
-;;
-
-let get_font_manager_type mathview () =
- print_string "CURRENT FONT MANAGER TYPE: ";
- begin
-  match mathview#get_font_manager_type with
-  | `font_manager_t1 -> print_string "T1"
-  | `font_manager_gtk -> print_string "GTK"
- end;
- print_newline();
- flush stdout
-;;
-
-let load mathview () =
- mathview#load "test.xml" ;
- print_string "load: SEEMS TO WORK\n" ;
- flush stdout
-;;
-
-let get_selection mathview () =
- let module O = Ominidom in
-  let selection =
-    match mathview#get_selection with
-    | Some node ->
-      begin
-        match node#get_name with
-       | Some name -> name#get_string
-       | None      -> "element with no name!"
-      end
-    | None      -> "no selection!"
-  in
-   print_string ("get_selection: " ^ selection ^ "\n") ;
-   flush stdout
-;;
-
-let set_selection mathview () =
- let module O = Ominidom in
-  begin
-    match mathview#get_selection with
-    | Some node -> 
-      begin
-        try 
-          let parent_node = node#get_parent in
-          mathview#set_selection (Some parent_node);
-          print_string "set selection: SEEMS TO WORK\n"
-       with
-         _ -> print_string "EXCEPTION: no parent\n"
-      end
-    | None ->
-      mathview#set_selection None;
-      print_string "no selection\n"
-  end ;
-  flush stdout
-;;
-
-let unload mathview () =
- mathview#unload ;
- print_string "unload: SEEMS TO WORK\n" ;
- flush stdout
-;;
-
-let get_width mathview () =
- print_string ("get_width: " ^ string_of_int (mathview#get_width) ^ "\n") ;
- flush stdout
-;;
-
-let get_height mathview () =
- print_string ("get_height: " ^ string_of_int (mathview#get_height) ^ "\n") ;
- flush stdout
-;;
-
-let get_top mathview () =
- let (x,y) = mathview#get_top in
-  print_string ("get_top: ("^ string_of_int x ^ "," ^ string_of_int y ^ ")\n") ;
-  flush stdout
-;;
-
-let set_top mathview () =
- mathview#set_top 0 0;
- print_string "set_top: SEEM TO WORK\n" ;
- flush stdout
-;;
-
-let set_adjustments mathview () =
- let adj1 = GData.adjustment () in
- let adj2 = GData.adjustment () in
-  mathview#set_adjustments adj1 adj2 ;
-  adj1#set_value ((adj1#lower +. adj1#upper) /. 2.0) ;
-  adj2#set_value ((adj2#lower +. adj2#upper) /. 2.0) ;
-  print_string "set_adjustments: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_hadjustment mathview () =
- let adj = mathview#get_hadjustment in
-  adj#set_value ((adj#lower +. adj#upper) /. 2.0) ;
-  print_string "get_hadjustment: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_vadjustment mathview () =
- let adj = mathview#get_vadjustment in
-  adj#set_value ((adj#lower +. adj#upper) /. 2.0) ;
-  print_string "get_vadjustment: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_buffer mathview () =
- let buffer = mathview#get_buffer in
-  Gdk.Draw.rectangle buffer (Gdk.GC.create buffer) ~x:0 ~y:0
-   ~width:50 ~height:50 ~filled:true () ;
-  print_string "get_buffer: SEEMS TO WORK (hint: force the widget redrawing)\n";
-  flush stdout
-;;
-
-let get_frame mathview () =
- let frame = mathview#get_frame in
-  frame#set_shadow_type `NONE ;
-  print_string "get_frame: SEEMS TO WORK\n" ;
-  flush stdout
-;;
-
-let set_font_size mathview () =
- mathview#set_font_size 24 ;
- print_string "set_font_size: FONT IS NOW 24\n" ;
- flush stdout
-;;
- 
-let get_font_size mathview () =
- print_string ("get_font_size: " ^ string_of_int (mathview#get_font_size) ^ "\n") ;
- flush stdout
-;;
- 
-let set_anti_aliasing mathview () =
- mathview#set_anti_aliasing true ;
- print_string "set_anti_aliasing: ON\n" ;
- flush stdout
-;;
- 
-let get_anti_aliasing mathview () =
- print_string ("get_anti_aliasing: " ^
-  (match mathview#get_anti_aliasing with true -> "ON" | false -> "OFF") ^
-  "\n") ;
- flush stdout
-;;
- 
-let set_kerning mathview () =
- mathview#set_kerning true ;
- print_string "set_kerning: ON\n" ;
- flush stdout
-;;
- 
-let get_kerning mathview () =
- print_string ("get_kerning: " ^
-  (match mathview#get_kerning with true -> "ON" | false -> "OFF") ^
-  "\n") ;
- flush stdout
-;;
-
-let set_log_verbosity mathview () =
- mathview#set_log_verbosity 3 ;
- print_string "set_log_verbosity: NOW IS 3\n" ;
- flush stdout
-;;
- 
-let get_log_verbosity mathview () =
- print_string ("get_log_verbosity: " ^
-  string_of_int mathview#get_log_verbosity ^
-  "\n") ;
- flush stdout
-;;
-
-let export_to_postscript (mathview : GMathView.math_view) () =
- mathview#export_to_postscript ~filename:"test.ps" ();
- print_string "expor_to_postscript: SEEMS TO WORK (hint: look at test.ps)\n";
- flush stdout
-;;
- 
-(* Widget creation *)
-let main_window = GWindow.window ~title:"GtkMathView test" () in
-let vbox = GPack.vbox ~packing:main_window#add () in
-let sw = GBin.scrolled_window ~width:50 ~height:50 ~packing:vbox#pack () in
-let mathview= GMathView.math_view ~packing:sw#add ~width:50 ~height:50 () in
-let table = GPack.table ~rows:6 ~columns:5 ~packing:vbox#pack () in
-let button_gtk=GButton.button ~label:"activate Gtk fonts" ~packing:(table#attach ~left:0 ~top:0) () in
-let button_load = GButton.button ~label:"load" ~packing:(table#attach ~left:1 ~top:0) () in
-let button_unload = GButton.button ~label:"unload" ~packing:(table#attach ~left:2 ~top:0) () in
-let button_get_selection = GButton.button ~label:"get_selection" ~packing:(table#attach ~left:3 ~top:0) () in
-let button_set_selection = GButton.button ~label:"set_selection" ~packing:(table#attach ~left:4 ~top:0) () in
-let button_get_width = GButton.button ~label:"get_width" ~packing:(table#attach ~left:0 ~top:1) () in
-let button_get_height = GButton.button ~label:"get_height" ~packing:(table#attach ~left:1 ~top:1) () in
-let button_get_top = GButton.button ~label:"get_top" ~packing:(table#attach ~left:2 ~top:1) () in
-let button_set_top = GButton.button ~label:"set_top" ~packing:(table#attach ~left:3 ~top:1) () in
-let button_set_adjustments = GButton.button ~label:"set_adjustments" ~packing:(table#attach ~left:4 ~top:1) () in
-let button_get_hadjustment = GButton.button ~label:"get_hadjustment" ~packing:(table#attach ~left:0 ~top:2) () in
-let button_get_vadjustment = GButton.button ~label:"get_vadjustment" ~packing:(table#attach ~left:1 ~top:2) () in
-let button_get_buffer = GButton.button ~label:"get_buffer" ~packing:(table#attach ~left:2 ~top:2) () in
-let button_get_frame = GButton.button ~label:"get_frame" ~packing:(table#attach ~left:3 ~top:2) () in
-let button_set_font_size = GButton.button ~label:"set_font_size" ~packing:(table#attach ~left:4 ~top:2) () in
-let button_get_font_size = GButton.button ~label:"get_font_size" ~packing:(table#attach ~left:0 ~top:3) () in
-let button_set_anti_aliasing = GButton.button ~label:"set_anti_aliasing" ~packing:(table#attach ~left:1 ~top:3) () in
-let button_get_anti_aliasing = GButton.button ~label:"get_anti_aliasing" ~packing:(table#attach ~left:2 ~top:3) () in
-let button_set_kerning = GButton.button ~label:"set_kerning" ~packing:(table#attach ~left:3 ~top:3) () in
-let button_get_kerning = GButton.button ~label:"get_kerning" ~packing:(table#attach ~left:4 ~top:3) () in
-let button_set_log_verbosity = GButton.button ~label:"set_log_verbosity" ~packing:(table#attach ~left:0 ~top:4) () in
-let button_get_log_verbosity = GButton.button ~label:"get_log_verbosity" ~packing:(table#attach ~left:1 ~top:4) () in
-let button_export_to_postscript = GButton.button ~label:"export_to_postscript" ~packing:(table#attach ~left:2 ~top:4) () in
-let button_t1 = GButton.button ~label:"activate T1 fonts" ~packing:(table#attach ~left:3 ~top:4) () in
-let button_get_font_manager_type = GButton.button ~label:"get_font_manager" ~packing:(table#attach ~left:4 ~top:4) () in
-(* Signals connection *)
-ignore(button_gtk#connect#clicked (activate_gtk mathview)) ;
-ignore(button_load#connect#clicked (load mathview)) ;
-ignore(button_unload#connect#clicked (unload mathview)) ;
-ignore(button_get_selection#connect#clicked (get_selection mathview)) ;
-ignore(button_set_selection#connect#clicked (set_selection mathview)) ;
-ignore(button_get_width#connect#clicked (get_width mathview)) ;
-ignore(button_get_height#connect#clicked (get_height mathview)) ;
-ignore(button_get_top#connect#clicked (get_top mathview)) ;
-ignore(button_set_top#connect#clicked (set_top mathview)) ;
-ignore(button_set_adjustments#connect#clicked (set_adjustments mathview)) ;
-ignore(button_get_hadjustment#connect#clicked (get_hadjustment mathview)) ;
-ignore(button_get_vadjustment#connect#clicked (get_vadjustment mathview)) ;
-ignore(button_get_buffer#connect#clicked (get_buffer mathview)) ;
-ignore(button_get_frame#connect#clicked (get_frame mathview)) ;
-ignore(button_set_font_size#connect#clicked (set_font_size mathview)) ;
-ignore(button_get_font_size#connect#clicked (get_font_size mathview)) ;
-ignore(button_set_anti_aliasing#connect#clicked (set_anti_aliasing mathview)) ;
-ignore(button_get_anti_aliasing#connect#clicked (get_anti_aliasing mathview)) ;
-ignore(button_set_kerning#connect#clicked (set_kerning mathview)) ;
-ignore(button_get_kerning#connect#clicked (get_kerning mathview)) ;
-ignore(button_set_log_verbosity#connect#clicked (set_log_verbosity mathview)) ;
-ignore(button_get_log_verbosity#connect#clicked (get_log_verbosity mathview)) ;
-ignore(button_export_to_postscript#connect#clicked (export_to_postscript mathview)) ;
-ignore(button_t1#connect#clicked (activate_t1 mathview)) ;
-ignore(button_get_font_manager_type#connect#clicked (get_font_manager_type mathview)) ;
-ignore(mathview#connect#jump jump) ;
-ignore(mathview#connect#clicked clicked) ;
-ignore(mathview#connect#selection_changed (selection_changed mathview)) ;
-(* Main Loop *)
-main_window#show () ;
-GMain.Main.main ()
-;;

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/test.xml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/test.xml
deleted file mode 100644 (file)
index b0f8c15..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20000829_gtkmathview-0.2.1/test/test.xml
+++ /dev/null
@@ -1,123 +0,0 @@
-<math display="block">
-  <mrow helm:xref="SELECTION OK">
-    <mo>&int;</mo>
-    <mo>&ApplyFunction;</mo>
-    <mfrac>
-      <mrow>
-        <mrow>
-          <mi>a</mi>
-         <mo>&InvisibleTimes;</mo>
-         <mi>x</mi>
-       </mrow>
-       <mo>+</mo>
-       <mi>b</mi>
-      </mrow>
-      <mrow>
-        <msup>
-         <mi>x</mi>
-         <mn>2</mn>
-       </msup>
-       <mo>+</mo>
-       <mrow>
-         <mi>p</mi>
-         <mo>&InvisibleTimes;</mo>
-         <mi>x</mi>
-       </mrow>
-       <mo>+</mo>
-       <mi>q</mi>
-      </mrow>
-    </mfrac>
-  </mrow>
-  <mo fontstyle="italic">d</mo>
-  <mi>x</mi>
-  <mo>=</mo>
-  <mrow>
-    <mrow>
-      <mfrac><mi>a</mi><mn>2</mn></mfrac>
-      <mo>&InvisibleTimes;</mo>
-      <mrow>
-        <mi>ln</mi>
-       <mo>&ApplyFunction;</mo>
-       <mrow>
-         <mo>(</mo>
-         <mrow>
-           <msup><mi>x</mi><mn>2</mn></msup>
-           <mo>+</mo>
-           <mrow>
-             <mi>p</mi>
-             <mo>&InvisibleTimes;</mo>
-             <mi>x</mi>
-           </mrow>
-           <mo>+</mo>
-           <mi>q</mi>
-         </mrow>
-         <mo>)</mo>
-       </mrow>
-      </mrow>
-    </mrow>
-    <mo>+</mo>
-    <mrow>
-      <mfrac>
-        <mrow>
-         <mrow>
-           <mn>2</mn>
-           <mo>&InvisibleTimes;</mo>
-           <mi>b</mi>
-         </mrow>
-         <mo>-</mo>
-         <mrow>
-           <mi>a</mi>
-           <mo>&InvisibleTimes;</mo>
-           <mi>p</mi>
-         </mrow>
-       </mrow>
-       <msqrt>
-         <mrow>
-           <mrow>
-             <mn>4</mn>
-             <mo>&InvisibleTimes;</mo>
-             <mi>q</mi>
-           </mrow>
-           <mo>-</mo>
-           <msup>
-             <mi>p</mi>
-             <mn>2</mn>
-           </msup>
-         </mrow>
-       </msqrt>
-      </mfrac>
-      <mo>&InvisibleTimes;</mo>
-      <mrow>
-        <mi xlink:href="JUMPS WORK">arctg</mi>
-       <mo>&ApplyFunction;</mo>
-       <mfrac>
-         <mrow>
-           <mrow>
-             <mn>2</mn>
-             <mo>&InvisibleTimes;</mo>
-             <mi>x</mi>
-           </mrow>
-           <mo>+</mo>
-           <mi>p</mi>
-         </mrow>
-         <msqrt>
-           <mrow>
-             <mrow>
-               <mn>4</mn>
-               <mo>&InvisibleTimes;</mo>
-               <mi>q</mi>
-             </mrow>
-             <mo>-</mo>
-             <msup>
-               <mi>p</mi>
-               <mn>2</mn>
-             </msup>
-           </mrow>
-         </msqrt>
-       </mfrac>
-      </mrow>
-    </mrow>
-    <mo>+</mo>
-    <mi>c</mi>
-  </mrow>  
-</math>

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1-1.spec b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1-1.spec
deleted file mode 100644 (file)
index ed7e492..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1-1.spec
+++ /dev/null
@@ -1,25 +0,0 @@
-Summary: GtkMathView : the binding for lablgtk of the GtkMathView widget
-Name: lablgtk-20001129_gtkmathview
-Version: 0.2.1
-Release: 1
-Copyright: LGPL
-Group: Development/Libraries
-Requires: lablgtk_20001129 gtkmathview
-Source: www.cs.unibo.it:/~lpadovan/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1.tar.gz
-%description
-GtkMathView is the binding for lablgtk of the GtkMathView widget.
-
-%prep
-%setup
-
-%build
-make
-make opt
-
-%install
-make install
-
-%files
-%doc COPYING
-
-/usr/lib/ocaml/lablgtk/mathview

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/.cvsignore b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/.cvsignore
deleted file mode 100644 (file)
index cd9e250..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmi *.cmo *.cmx *.cma *.cmxa config.make

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/.depend b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/.depend
deleted file mode 100644 (file)
index 600449b..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/.depend
+++ /dev/null
@@ -1,4 +0,0 @@
-gMathView.cmo: gtkMathView.cmo gtk_mathview.cmo 
-gMathView.cmx: gtkMathView.cmx gtk_mathview.cmx 
-gtkMathView.cmo: gtk_mathview.cmo 
-gtkMathView.cmx: gtk_mathview.cmx 

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/COPYING b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/COPYING
deleted file mode 100644 (file)
index 20b480a..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/COPYING
+++ /dev/null
@@ -1,11 +0,0 @@
-This library is made available under the LGPL.
-You should have got a copy of the LGPL with Objective Caml.
-The LGPL applies to all the files in this directory, but not in
-subdirectories.
-
-For the test subdirectory, there is no specific licensing policy,
-but you may freely take inspiration from the code, and copy parts of
-it in your application.
-
-Author:
-       Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/Makefile b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/Makefile
deleted file mode 100644 (file)
index 0bdfed0..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/Makefile
+++ /dev/null
@@ -1,108 +0,0 @@
-# Makefile for lablgtk_mathview.
-
-MINIDOMDIR = ./minidom
-TESTDIR = ./test
-MLFLAGS += -I $(LABLGTKDIR) -I $(MINIDOMDIR)
-
-TARGETS = ml_gtk_mathview.o lablgtkmathview.cma
-
-all: Minidom $(TARGETS)
-
-opt: Minidom.opt lablgtkmathviewopt
-
-Minidom:
-       cd $(MINIDOMDIR); make
-
-Minidom.opt:
-       cd $(MINIDOMDIR); make opt
-
-configure:
-       @rm -f config.make
-       @$(MAKE) --no-print-directory -f configure.mk
-
-depend:
-       @rm -f .depend
-       @$(MAKE) --no-print-directory -f configure.mk .depend
-
-.depend config.make:
-       @$(MAKE) --no-print-directory -f configure.mk
-
-COMPILER = $(CAMLC) $(MLFLAGS) -w s -labels -c
-LINKER = $(CAMLC) $(MLFLAGS)
-COMPOPT = $(CAMLOPT) $(MLFLAGS) -w s -labels -c
-LINKOPT = $(CAMLOPT) $(MLFLAGS)
-
-include config.make
-
-INSTALLDIR = $(LIBDIR)/lablgtk/mathview
-
-MLLIBS = lablgtkmathview.cma
-CLIBS = 
-MLLINK = unix.cma str.cma
-
-ifdef DEBUG
-CFLAGS = -g $(GTKCFLAGS)
-MLLINK += -cclib -lcamlrund
-MLFLAGS += -g
-else
-CFLAGS = -O -DGTK_NO_CHECK_CASTS -DGTK_DISABLE_COMPAT_H $(GTKCFLAGS)
-endif
-CFLAGS += $(MINIDOMCFLAGS) $(GTKMATHVIEWCFLAGS)
-
-THFLAGS = -thread
-THLINK = unix.cma threads.cma
-
-ifdef USE_CC
-CCOMPILER = $(CC) -c -I$(LIBDIR) $(CFLAGS)
-else
-CCOMPILER = ocamlc -c -ccopt "$(CFLAGS)"
-endif
-
-# Rules
-.SUFFIXES: .ml .mli .cmo .cmi .cmx .c .o .var .h .opt .def
-.c.o:
-       $(CCOMPILER) $<
-.ml.cmo:
-       $(COMPILER) $<
-.mli.cmi:
-       $(COMPILER) $<
-.ml.cmx:
-       $(COMPOPT) $<
-.var.h:
-       ./var2def < $< > $@
-.var.c:
-       ./var2conv < $< > $@
-
-# Targets
-COBJS = ml_gtk_mathview.o
-MLOBJS = gtk_mathview.cmo gtkMathView.cmo gMathView.cmo
-ALLOBJS = $(MLOBJS)
-
-lablgtkmathviewopt: $(CLIBS) $(MLLIBS:.cma=.cmxa)
-
-install:
-       if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
-       cp $(ALLOBJS:.cmo=.cmi) $(INSTALLDIR)
-       if test -f *.mli ; then cp *.mli $(INSTALLDIR) ; fi
-       cp $(ALLOBJS:.cmo=.ml) $(INSTALLDIR)
-       cp $(MLLIBS) $(INSTALLDIR)
-       cp $(COBJS) $(INSTALLDIR)
-       if test ! -z "$(CLIBS)" ; then cp $(CLIBS) $(INSTALLDIR) ; fi
-       if test -f lablgtkmathview.cmxa; then \
-          cp $(MLLIBS:.cma=.cmxa) $(MLLIBS:.cma=.a) \
-             $(INSTALLDIR); fi
-
-lablgtkmathview.cma: $(MLOBJS)
-       $(LINKER) -a -custom -o $@ $(MLOBJS) $(GTKLIBS) -cclib "$(GTKMATHVIEWLIBS)" -cclib "$(MINIDOMLIBS)"
-lablgtkmathview.cmxa: $(MLOBJS:.cmo=.cmx)
-       $(LINKOPT) -a -o $@ $(MLOBJS:.cmo=.cmx) $(GTKLIBS) -cclib "$(GTKMATHVIEWLIBS)" -cclib "$(MINIDOMLIBS)"
-
-ml_gtk.o: $(LABLGTKDIR)/gtk_tags.c $(LABLGTKDIR)/gtk_tags.h \
-          $(LABLGTKDIR)/ml_gtk.h $(LABLGTKDIR)/ml_gdk.h $(LABLGTKDIR)/wrappers.h
-
-clean:
-       rm -f *.cm* *.o *.a *_tags.[ch] $(TARGETS)
-       cd $(MINIDOMDIR); make clean
-       cd $(TESTDIR); make clean
-
-include .depend

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/configure.mk b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/configure.mk
deleted file mode 100644 (file)
index 15e2c37..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/configure.mk
+++ /dev/null
@@ -1,62 +0,0 @@
-# makefile for configuring lablGTK_mathview
-
-# Default compilers
-CAMLC = ocamlc
-CAMLOPT = ocamlopt
-
-# Default installation directories
-BINDIR = `$(GETBINDIR)`
-INSTALLDIR = $(LIBDIR)/lablgtk/mathview
-
-# Autoconf
-GETLIBDIR = ocamlc -v | grep "^Standard" | sed 's/^.*: *//'
-LIBDIR = `$(GETLIBDIR)`
-GETBINDIR = $(GETLIBDIR) | sed -e 's|/lib/[^/]*$$|/bin|' -e 's|/lib$$|/bin|'
-GETRANLIB = which ranlib 2>/dev/null | sed -e 's|.*/ranlib$$|!|' -e 's/^[^!]*$$/:/' -e 's/!/ranlib/'
-
-LABLGTKDIR = $(LIBDIR)/lablgtk
-
-ifdef USE_GNOME
-GTKGETCFLAGS = gtk-config --cflags`" -I"`gnome-config --includedir
-GNOMELIBS = `gnome-config --libs gtkxmhtml`
-else
-GTKGETCFLAGS = gtk-config --cflags
-endif
-
-GTKGETLIBS = gtk-config --libs
-
-configure: .depend config.make
-
-.depend:
-       ocamldep *.ml *.mli > .depend
-
-config.make:
-       @echo CAMLC=$(CAMLC) > config.make
-       @echo CAMLOPT=$(CAMLOPT) >> config.make
-       @echo USE_GL=$(USE_GL) >> config.make
-       @echo USE_GNOME=$(USE_GNOME) >> config.make
-       @echo USE_CC=$(USE_CC) >> config.make
-       @echo DEBUG=$(DEBUG) >> config.make
-       @echo CC=$(CC) >> config.make
-       @echo RANLIB=`$(GETRANLIB)` >> config.make
-       @echo LIBDIR=$(LIBDIR) >> config.make
-       @echo BINDIR=`$(GETBINDIR)` >> config.make
-       @echo INSTALLDIR=$(INSTALLDIR) >> config.make
-       @echo LABLGTKDIR=$(LABLGTKDIR) >> config.make
-# Luca: was
-#      @echo GTKCFLAGS=`$(GTKGETCFLAGS)` -I/usr/lib/ocaml/lablgtk >> config.make
-# Luca: now
-       @echo GTKCFLAGS=`$(GTKGETCFLAGS)` -I$(LIBDIR)/lablgtk >> config.make
-       @echo GTKLIBS=`$(GTKGETLIBS)` | \
-         sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
-         >> config.make
-# Luca: GtkMathView configuration
-       @echo GTKMATHVIEWCFLAGS=`gtkmathview-config --cflags` >> config.make
-       @echo MINIDOMCFLAGS=`minidom-config --cflags` >> config.make
-       @echo GTKMATHVIEWLIBS=`gtkmathview-config --libs` >> config.make
-       @echo MINIDOMLIBS=`minidom-config --libs` >> config.make
-# Luca: end of GtkMathView configuration
-       @echo GNOMELIBS=$(GNOMELIBS) | \
-         sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
-         >> config.make
-       cat config.make

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/gMathView.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/gMathView.ml
deleted file mode 100644 (file)
index e897ccf..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/gMathView.ml
+++ /dev/null
@@ -1,80 +0,0 @@
-open Gaux
-open Gtk
-open Gtk_mathview
-open GtkBase
-open GtkMathView
-open GObj
-
-exception ErrorLoadingFile of string;;
-exception ErrorWritingFile of string;;
-exception NoSelection;;
-
-class math_view_signals obj = object
-  inherit GContainer.container_signals obj
-  method clicked = GtkSignal.connect ~sgn:MathView.Signals.clicked obj ~after
-  method jump = GtkSignal.connect ~sgn:MathView.Signals.jump obj ~after
-  method selection_changed =
-  GtkSignal.connect ~sgn:MathView.Signals.selection_changed obj ~after
-end
-
-class math_view obj = object
- inherit GContainer.container (obj : Gtk_mathview.math_view obj)
- method connect = new math_view_signals obj
- method load ~filename =
-  if not (MathView.load obj ~filename) then raise (ErrorLoadingFile filename)
- method unload = MathView.unload obj
- method get_selection = MathView.get_selection obj
- method set_selection (node : Ominidom.o_mDOMNode option) = MathView.set_selection obj node
- method get_width = MathView.get_width obj
- method get_height = MathView.get_height obj
- method get_top = MathView.get_top obj
- method set_top = MathView.set_top obj
- method set_adjustments =
-  fun adj1 adj2 ->
-   MathView.set_adjustments obj (GData.as_adjustment adj1)
-   (GData.as_adjustment adj2)
- method get_hadjustment = new GData.adjustment (MathView.get_hadjustment obj)
- method get_vadjustment = new GData.adjustment (MathView.get_vadjustment obj)
- method get_buffer = MathView.get_buffer obj
- method get_frame = new GBin.frame (MathView.get_frame obj)
- method set_font_size = MathView.set_font_size obj
- method get_font_size = MathView.get_font_size obj
- method set_anti_aliasing = MathView.set_anti_aliasing obj
- method get_anti_aliasing = MathView.get_anti_aliasing obj
- method set_kerning = MathView.set_kerning obj
- method get_kerning = MathView.get_kerning obj
- method set_log_verbosity = MathView.set_log_verbosity obj
- method get_log_verbosity = MathView.get_log_verbosity obj
- method export_to_postscript
-       ?(width = 595) ?(height = 822) ?(x_margin = 72) ?(y_margin = 72)
-       ?(disable_colors = false) ~filename () =
-  let result = MathView.export_to_postscript obj
-       ~width ~height ~x_margin ~y_margin ~disable_colors ~filename
-  in
-  if not result then raise (ErrorWritingFile filename)
- method get_font_manager_type = MathView.get_font_manager_type obj
- method set_font_manager_type ~fm_type = MathView.set_font_manager_type obj ~fm_type
-end
-
-let math_view ?adjustmenth ?adjustmentv ?font_size ?font_manager ?border_width
- ?width ?height ?packing ?show () =
- let w =
-   MathView.create
-    ?adjustmenth:(may_map ~f:GData.as_adjustment adjustmenth)
-    ?adjustmentv:(may_map ~f:GData.as_adjustment adjustmentv)
-    ()
- in
-  Container.set w ?border_width ?width ?height;
- let mathview = pack_return (new math_view w) ~packing ~show in
- begin
-    match font_size with
-    | Some size -> mathview#set_font_size size
-    | None      -> ()
-  end;
-  begin
-    match font_manager with
-    | Some manager -> mathview#set_font_manager_type ~fm_type:manager
-    | None         -> ()
-  end;
-  mathview
-;;

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/gtkMathView.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/gtkMathView.ml
deleted file mode 100644 (file)
index 4c893fa..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/gtkMathView.ml
+++ /dev/null
@@ -1,118 +0,0 @@
-open Gtk
-open Gtk_mathview
-open Tags
-open GtkBase
-open Gpointer
-
-external mDOMNode_of_boxed_option :
- Gpointer.boxed option -> Minidom.mDOMNode =
-  "ml_gtk_math_view_mDOMNode_of_bodex_option"
-
-external mDOMNode_option_of_boxed_option :
- Gpointer.boxed option -> Minidom.mDOMNode option =
-  "ml_gtk_math_view_mDOMNode_option_of_bodex_option"
-
-let o_mDOMNode_of_mDOMNode node = new Ominidom.o_mDOMNode node
-
-let o_mDOMNode_option_of_mDOMNode_option =
-  function
-  | Some x -> Some (o_mDOMNode_of_mDOMNode x)
-  | None   -> None
-
-let mDOMNode_option_of_o_mDOMNode_option =
-  function
-  | Some x -> Some (x#get_dom_node)
-  | None   -> None
-
-module MathView = struct
-  exception NoSelection
-
-  let cast w : math_view obj = Object.try_cast w "GtkMathView"
-  external create : Gtk.adjustment optobj -> Gtk.adjustment optobj -> 
-   math_view obj = "ml_gtk_math_view_new"
-  let create ~adjustmenth ~adjustmentv () =
-   create (optboxed adjustmenth) (optboxed adjustmentv)
-  external load : [>`math_view] obj -> filename:string -> bool =
-   "ml_gtk_math_view_load"
-  external unload : [>`math_view] obj -> unit =
-   "ml_gtk_math_view_unload"
-  external raw_get_selection : [>`math_view] obj -> Minidom.mDOMNode option =
-   "ml_gtk_math_view_get_selection"
-  let get_selection obj =
-   o_mDOMNode_option_of_mDOMNode_option (raw_get_selection obj)
-  external raw_set_selection : [>`math_view] obj -> Minidom.mDOMNode option -> unit=
-   "ml_gtk_math_view_set_selection"
-  let set_selection obj node =
-   raw_set_selection obj (mDOMNode_option_of_o_mDOMNode_option node)
-  external get_width : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_width"
-  external get_height : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_height"
-  external get_top : [>`math_view] obj -> (int * int) =
-   "ml_gtk_math_view_get_top"
-  external set_top : [>`math_view] obj -> int -> int -> unit =
-   "ml_gtk_math_view_set_top"
-  external set_adjustments : [>`math_view] obj -> Gtk.adjustment obj -> Gtk.adjustment obj -> unit =
-   "ml_gtk_math_view_set_adjustments"
-  external get_hadjustment : [>`math_view] obj -> Gtk.adjustment obj =
-   "ml_gtk_math_view_get_hadjustment"
-  external get_vadjustment : [>`math_view] obj -> Gtk.adjustment obj =
-   "ml_gtk_math_view_get_vadjustment"
-  external get_buffer : [>`math_view] obj -> Gdk.pixmap =
-   "ml_gtk_math_view_get_buffer"
-  external get_frame : [>`math_view] obj -> [`frame] obj =
-   "ml_gtk_math_view_get_frame"
-  external set_font_size : [>`math_view] obj -> int -> unit =
-   "ml_gtk_math_view_set_font_size"
-  external get_font_size : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_font_size"
-  external set_anti_aliasing : [>`math_view] obj -> bool -> unit =
-   "ml_gtk_math_view_set_anti_aliasing"
-  external get_anti_aliasing : [>`math_view] obj -> bool =
-   "ml_gtk_math_view_get_anti_aliasing"
-  external set_kerning : [>`math_view] obj -> bool -> unit =
-   "ml_gtk_math_view_set_kerning"
-  external get_kerning : [>`math_view] obj -> bool =
-   "ml_gtk_math_view_get_kerning"
-  external set_log_verbosity : [>`math_view] obj -> int -> unit =
-   "ml_gtk_math_view_set_log_verbosity"
-  external get_log_verbosity : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_log_verbosity"
-  external export_to_postscript :
-   [>`math_view] obj -> width:int -> height:int -> x_margin:int -> y_margin:int -> disable_colors:bool -> filename:string -> bool =
-   "ml_gtk_math_view_export_to_postscript_bytecode" "ml_gtk_math_view_export_to_postscript_native"
-  external get_font_manager_type : [>`math_view] obj ->
-   [`font_manager_gtk | `font_manager_t1] =
-   "ml_gtk_math_view_get_font_manager_type"
-  external set_font_manager_type : [>`math_view] obj ->
-    fm_type:[`font_manager_gtk | `font_manager_t1] -> unit =
-   "ml_gtk_math_view_set_font_manager_type"
-  
-  module Signals = struct
-    open GtkSignal
-
-    let clicked : ([>`math_view],_) t =
-     let marshal_clicked f _ =
-      function
-         [GtkArgv.POINTER node] -> f (o_mDOMNode_of_mDOMNode (mDOMNode_of_boxed_option node))
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_clicked"
-     in
-      { name = "clicked"; marshaller = marshal_clicked }
-
-    let jump : ([>`math_view],_) t =
-     let marshal_jump f _ =
-      function
-         [GtkArgv.POINTER node] -> f (o_mDOMNode_of_mDOMNode (mDOMNode_of_boxed_option node))
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_jump"
-     in
-      { name = "jump"; marshaller = marshal_jump }
-
-    let selection_changed : ([>`math_view],_) t =
-     let marshal_selection_changed f _ =
-      function
-         [GtkArgv.POINTER node] -> f (o_mDOMNode_option_of_mDOMNode_option (mDOMNode_option_of_boxed_option node))
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_selection_changed"
-     in
-      { name = "selection_changed"; marshaller = marshal_selection_changed }
-  end
-end

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/gtk_mathview.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/gtk_mathview.ml
deleted file mode 100644 (file)
index 745a1ba..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/gtk_mathview.ml
+++ /dev/null
@@ -1 +0,0 @@
-type math_view = [`widget|`container|`bin|`eventbox|`math_view]

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/.cvsignore b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/.cvsignore
deleted file mode 100644 (file)
index 84bdd8e..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmi *.cmo *.cmx test test.opt

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/Makefile b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/Makefile
deleted file mode 100644 (file)
index cacfcca..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/Makefile
+++ /dev/null
@@ -1,52 +0,0 @@
-GETLIBDIR = ocamlc -v | grep "^Standard" | sed 's/^.*: *//'
-LIBDIR = `$(GETLIBDIR)`
-INSTALLDIR = $(LIBDIR)/minidom
-OBJECTS = minidom.cmi minidom.cmo ml_minidom.o ominidom.cmi ominidom.cmo
-OBJECTS_OPT = minidom.cmx ominidom.cmx
-INST = minidom.o ominidom.o ml_minidom.h minidom.mli
-
-all: $(OBJECTS) test
-
-opt: $(OBJECTS_OPT) test.opt
-
-ml_minidom.o: ml_minidom.c
-       gcc -c -I$(LIBDIR)/caml/ `glib-config --cflags` `minidom-config --cflags` $<
-
-minidom.cmi: minidom.mli
-       ocamlc -c $<
-
-minidom.cmo: minidom.ml minidom.cmi
-       ocamlc -c $<
-
-minidom.cmx: minidom.ml minidom.cmi
-       ocamlopt -c $<
-
-ominidom.cmi: ominidom.mli
-       ocamlc -c $<
-
-ominidom.cmo: ominidom.ml
-       ocamlc -c $<
-
-ominidom.cmx: ominidom.ml
-       ocamlopt -c $<
-
-test.cmo: test.ml minidom.cmo
-       ocamlc -c test.ml
-
-test.cmx: test.ml minidom.cmx
-       ocamlopt -c test.ml
-
-test: test.cmo minidom.cmo ml_minidom.o
-       ocamlc -custom -o test minidom.cmo test.cmo ml_minidom.o \
-        -cclib "`glib-config --libs` `minidom-config --libs`"
-
-test.opt: test.cmx minidom.cmx ml_minidom.o
-       ocamlopt -o test.opt minidom.cmx test.cmx ml_minidom.o \
-        -cclib "`glib-config --libs` `minidom-config --libs`"
-
-install:
-       if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
-       cp $(OBJECTS) $(OBJECTS_OPT) $(INST) $(INSTALLDIR)
-
-clean:
-       rm -f *.o *.cm? test test.opt

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/minidom.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/minidom.ml
deleted file mode 100644 (file)
index 31e677b..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/minidom.ml
+++ /dev/null
@@ -1,61 +0,0 @@
-
-type mDOMString
-type mDOMDoc
-type mDOMNode
-type mDOMAttr
-type mDOMEntity
-
-external string_of_mDOMString : mDOMString -> string = "ml_string_of_mDOMString"
-external mDOMString_of_string : string -> mDOMString = "ml_mDOMString_of_string"
-external mDOMString_eq : string -> string -> bool = "ml_mDOMString_eq"
-
-external doc_load : string -> mDOMDoc = "ml_doc_load"
-external doc_unload : mDOMDoc -> unit = "ml_doc_unload"
-
-external doc_new : mDOMString -> mDOMDoc = "ml_doc_new"
-external doc_get_root_node : mDOMDoc -> mDOMNode = "ml_doc_get_root_node"
-
-external doc_add_entity : mDOMDoc -> mDOMString -> mDOMString -> mDOMEntity = "ml_doc_add_entity"
-external doc_get_entity : mDOMDoc -> mDOMString -> mDOMEntity option = "ml_doc_get_entity"
-external doc_get_predefined_entity : mDOMDoc -> mDOMString -> mDOMEntity option = "ml_doc_get_predefined_entity"
-external entity_get_content : mDOMEntity -> mDOMString = "ml_entity_get_content"
-
-external node_is_text  : mDOMNode -> bool = "ml_node_is_text"
-external node_is_element : mDOMNode -> bool = "ml_node_is_element"
-external node_is_blank : mDOMNode -> bool = "ml_node_is_blank"
-external node_is_entity_ref : mDOMNode -> bool = "ml_node_is_entity_ref"
-external node_get_type : mDOMNode -> int = "ml_node_get_type"
-external node_get_name : mDOMNode -> mDOMString option = "ml_node_get_name"
-external node_get_ns_uri : mDOMNode -> mDOMString option = "ml_node_get_ns_uri"
-external node_get_attribute : mDOMNode -> mDOMString -> mDOMString option = "ml_node_get_attribute"
-external node_get_attribute_ns : mDOMNode -> mDOMString -> mDOMString -> mDOMString option = "ml_node_get_attribute_ns"
-external node_get_content : mDOMNode -> mDOMString option = "ml_node_get_content"
-external node_get_parent : mDOMNode -> mDOMNode option = "ml_node_get_parent"
-external node_get_prev_sibling : mDOMNode -> mDOMNode option = "ml_node_get_prev_sibling"
-external node_get_next_sibling : mDOMNode -> mDOMNode option = "ml_node_get_next_sibling"
-external node_get_first_child : mDOMNode -> mDOMNode option = "ml_node_get_first_child"
-external node_get_first_attribute : mDOMNode -> mDOMAttr option = "ml_node_get_first_attribute"
-external node_is_first : mDOMNode -> bool = "ml_node_is_first"
-external node_is_last : mDOMNode -> bool = "ml_node_is_last"
-
-external attr_get_name : mDOMAttr -> mDOMString option = "ml_attr_get_name"
-external attr_get_ns_uri : mDOMAttr -> mDOMString option = "ml_attr_get_ns_uri"
-external attr_get_value : mDOMAttr -> mDOMString option = "ml_attr_get_value"
-external attr_get_prev_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_prev_sibling"
-external attr_get_next_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_next_sibling"
-external attr_get_parent : mDOMAttr -> mDOMNode option = "ml_attr_get_parent"
-
-let rec node_list_of_node_first =
-  function None -> []
-  |        Some node -> node :: (node_list_of_node_first (node_get_next_sibling node))
-
-let rec attr_list_of_attr_first =
-  function None -> []
-  |        Some attr -> attr :: (attr_list_of_attr_first (attr_get_next_sibling attr))
-  
-let node_get_children node =
-  (node_list_of_node_first (node_get_first_child node))
-
-let node_get_attributes node =
-  (attr_list_of_attr_first (node_get_first_attribute node))
-

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/minidom.mli b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/minidom.mli
deleted file mode 100644 (file)
index 0b65595..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/minidom.mli
+++ /dev/null
@@ -1,50 +0,0 @@
-
-type mDOMString
-type mDOMDoc
-type mDOMNode
-type mDOMAttr
-type mDOMEntity
-
-external string_of_mDOMString : mDOMString -> string = "ml_string_of_mDOMString"
-external mDOMString_of_string : string -> mDOMString = "ml_mDOMString_of_string"
-external mDOMString_eq : string -> string -> bool = "ml_mDOMString_eq"
-
-external doc_load : string -> mDOMDoc = "ml_doc_load"
-external doc_unload : mDOMDoc -> unit = "ml_doc_unload"
-
-external doc_new : mDOMString -> mDOMDoc = "ml_doc_new"
-external doc_get_root_node : mDOMDoc -> mDOMNode = "ml_doc_get_root_node"
-
-external doc_add_entity : doc:mDOMDoc -> name:mDOMString -> content:mDOMString -> mDOMEntity = "ml_doc_add_entity"
-external doc_get_entity : doc:mDOMDoc -> name:mDOMString -> mDOMEntity option = "ml_doc_get_entity"
-external doc_get_predefined_entity : doc:mDOMDoc -> name:mDOMString -> mDOMEntity option = "ml_doc_get_predefined_entity"
-external entity_get_content : mDOMEntity -> mDOMString = "ml_entity_get_content"
-
-external node_is_text  : mDOMNode -> bool = "ml_node_is_text"
-external node_is_element : mDOMNode -> bool = "ml_node_is_element"
-external node_is_blank : mDOMNode -> bool = "ml_node_is_blank"
-external node_is_entity_ref : mDOMNode -> bool = "ml_node_is_entity_ref"
-external node_get_type : mDOMNode -> int = "ml_node_get_type"
-external node_get_name : mDOMNode -> mDOMString option = "ml_node_get_name"
-external node_get_ns_uri : mDOMNode -> mDOMString option = "ml_node_get_ns_uri"
-external node_get_attribute : node:mDOMNode -> name:mDOMString -> mDOMString option = "ml_node_get_attribute"
-external node_get_attribute_ns : node:mDOMNode -> name:mDOMString -> ns_uri:mDOMString -> mDOMString option = "ml_node_get_attribute_ns"
-external node_get_content : mDOMNode -> mDOMString option = "ml_node_get_content"
-external node_get_parent : mDOMNode -> mDOMNode option = "ml_node_get_parent"
-external node_get_prev_sibling : mDOMNode -> mDOMNode option = "ml_node_get_prev_sibling"
-external node_get_next_sibling : mDOMNode -> mDOMNode option = "ml_node_get_next_sibling"
-external node_get_first_child : mDOMNode -> mDOMNode option = "ml_node_get_first_child"
-external node_get_first_attribute : mDOMNode -> mDOMAttr option = "ml_node_get_first_attribute"
-external node_is_first : mDOMNode -> bool = "ml_node_is_first"
-external node_is_last : mDOMNode -> bool = "ml_node_is_last"
-
-external attr_get_name : mDOMAttr -> mDOMString option = "ml_attr_get_name"
-external attr_get_ns_uri : mDOMAttr -> mDOMString option = "ml_attr_get_ns_uri"
-external attr_get_value : mDOMAttr -> mDOMString option = "ml_attr_get_value"
-external attr_get_prev_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_prev_sibling"
-external attr_get_next_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_next_sibling"
-external attr_get_parent : mDOMAttr -> mDOMNode option = "ml_attr_get_parent"
-
-val node_get_children : mDOMNode -> mDOMNode list
-val node_get_attributes : mDOMNode -> mDOMAttr list
-

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/ml_minidom.c b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/ml_minidom.c
deleted file mode 100644 (file)
index 1062614..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/ml_minidom.c
+++ /dev/null
@@ -1,288 +0,0 @@
-
-#include <assert.h>
-#include <mlvalues.h>
-#include <memory.h>
-
-#include "minidom.h"
-
-#define Val_ptr(p)        ((value) (p))
-#define Val_option(p,f)   ((p != NULL) ? ml_some(f(p)) : Val_unit)
-#define Val_mDOMString(s) (copy_string((char*) (s)))
-#define mDOMString_val(v) ((mDOMStringRef) String_val(v))
-
-static value
-ml_some(value v)
-{
-  CAMLparam1(v);
-  value ret = alloc_small(1,0);
-  Field(ret,0) = v;
-  CAMLreturn(ret);
-}
-
-value
-ml_string_of_mDOMString(value s)
-{
-  CAMLparam1(s);
-  CAMLreturn(s);
-}
-
-value
-ml_mDOMString_of_string(value s)
-{
-  CAMLparam1(s);
-  CAMLreturn(s);
-}
-
-value
-ml_doc_load(value file_name)
-{
-  mDOMDocRef doc_ref;
-
-  CAMLparam1(file_name);
-
-  doc_ref = mdom_load(String_val(file_name), FALSE, NULL);
-  if (doc_ref == NULL) failwith("minidom: could not load document");
-
-  CAMLreturn((value) doc_ref);
-}
-
-value
-ml_doc_unload(value doc)
-{
-  CAMLparam1(doc);
-
-  mdom_unload((mDOMDocRef) doc);
-
-  CAMLreturn(Val_unit);
-}
-
-value
-ml_doc_new(value s)
-{
-  mDOMDocRef doc_ref;
-
-  CAMLparam1(s);
-
-  doc_ref = mdom_doc_new(mDOMString_val(s));
-  if (doc_ref == NULL) failwith("minidom: could not create new document");
-
-  CAMLreturn((value) doc_ref);
-}
-
-
-value
-ml_doc_get_root_node(value doc)
-{
-  mDOMNodeRef root;
-
-  CAMLparam1(doc);
-  root = mdom_doc_get_root_node((mDOMDocRef) doc);
-  if (root == NULL) failwith("minidom: document has no root node!");
-
-  CAMLreturn((value) root);
-}
-
-value
-ml_doc_add_entity(value doc, value name, value content)
-{
-  mDOMEntityRef ent;
-
-  CAMLparam3(doc, name, content);
-  ent = mdom_doc_add_entity((mDOMDocRef) doc, mDOMString_val(name), mDOMString_val(content));
-  if (ent == NULL) failwith("minidom: could not add entity");
-
-  CAMLreturn((value) ent);
-}
-
-value
-ml_doc_get_entity(value doc, value name)
-{
-  mDOMEntityRef ent;
-
-  CAMLparam2(doc, name);
-  ent = mdom_doc_get_entity((mDOMDocRef) doc, mDOMString_val(name));
-
-  CAMLreturn(Val_option(ent, Val_ptr));
-}
-
-value
-ml_doc_get_predefined_entity(value name)
-{
-  mDOMEntityRef ent;
-
-  CAMLparam1(name);
-  ent = mdom_get_predefined_entity(mDOMString_val(name));
-
-  CAMLreturn(Val_option(ent, Val_ptr));
-}
-
-value
-ml_entity_get_content(value ent)
-{
-  CAMLparam1(ent);
-  CAMLreturn(Val_mDOMString(mdom_entity_get_content((mDOMEntityRef) ent)));
-}
-
-value
-ml_node_is_text(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_text((mDOMNodeRef) node)));
-}
-
-value
-ml_node_is_element(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_element((mDOMNodeRef) node)));
-}
-
-value
-ml_node_is_blank(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_blank((mDOMNodeRef) node)));
-}
-
-value
-ml_node_is_entity_ref(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_entity_ref((mDOMNodeRef) node)));
-}
-
-value
-ml_node_get_type(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_int(mdom_node_get_type((mDOMNodeRef) node)));
-}
-
-value
-ml_node_get_name(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_name((mDOMNodeRef) node), Val_mDOMString));
-}
-
-value
-ml_node_get_content(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_content((mDOMNodeRef) node), Val_mDOMString));
-}
-
-value
-ml_node_get_ns_uri(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_ns_uri((mDOMNodeRef) node), Val_mDOMString));
-}
-
-value
-ml_node_get_attribute(value node, value name)
-{
-  CAMLparam2(node,name);
-  CAMLreturn(Val_option(mdom_node_get_attribute((mDOMNodeRef) node, String_val(name)), Val_mDOMString));
-}
-
-value
-ml_node_get_attribute_ns(value node, value name, value ns_uri)
-{
-  CAMLparam2(node,name);
-  CAMLreturn(Val_option(mdom_node_get_attribute_ns((mDOMNodeRef) node,
-                                                  String_val(name),
-                                                  String_val(ns_uri)), Val_mDOMString));
-}
-
-value
-ml_node_get_parent(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_parent((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_get_prev_sibling(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_prev_sibling((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_get_next_sibling(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_next_sibling((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_get_first_child(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_first_child((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_get_first_attribute(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_first_attribute((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_is_first(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_first((mDOMNodeRef) node)));
-}
-
-value
-ml_node_is_last(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_last((mDOMNodeRef) node)));
-}
-
-value
-ml_attr_get_name(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_name((mDOMAttrRef) attr), Val_mDOMString));
-}
-
-value
-ml_attr_get_ns_uri(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_ns_uri((mDOMAttrRef) attr), Val_mDOMString));
-}
-
-value
-ml_attr_get_value(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_value((mDOMAttrRef) attr), Val_mDOMString));
-}
-
-value
-ml_attr_get_prev_sibling(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_prev_sibling((mDOMAttrRef) attr), Val_ptr));
-}
-
-value
-ml_attr_get_next_sibling(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_next_sibling((mDOMAttrRef) attr), Val_ptr));
-}
-
-value
-ml_attr_get_parent(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_parent((mDOMAttrRef) attr), Val_ptr));
-}
-

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/ml_minidom.h b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/ml_minidom.h
deleted file mode 100644 (file)
index d224799..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/ml_minidom.h
+++ /dev/null
@@ -1,18 +0,0 @@
-
-#ifndef ml_minidom_h
-#define ml_minidom_h
-
-#define Val_ptr(p)        ((value) (p))
-#ifndef Val_option
-#define Val_option(p,f)   ((p != NULL) ? ml_some(f(p)) : Val_unit)
-#endif /* Val_option */
-#define Val_mDOMString(s) (copy_string((char*) (s)))
-#define mDOMString_val(v) ((mDOMStringRef) String_val(v))
-#define mDOMNode_val(v) ((mDOMNodeRef) v)
-
-#define mDOMNode_option_mDOMNodeRef(p) (((p) != NULL) ? ml_some((value) (p)) : Val_unit)
-#define mDOMNodeRef_mDOMNode_option(v) ((v == Val_unit) ? NULL : (mDOMNodeRef)Field((v),0))
-#define Val_mDOMNodeRef(p)             (mDOMNode_option_mDOMNodeRef(p))
-#define mDOMNodeRef_val(v)             (mDOMNodeRef_mDOMNode_option(v))
-
-#endif /* ml_minidom_h */

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/ominidom.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/ominidom.ml
deleted file mode 100644 (file)
index 85ad2e4..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/ominidom.ml
+++ /dev/null
@@ -1,156 +0,0 @@
-
-exception Node_has_no_parent;;
-exception Node_has_no_sibling of string;;
-exception Node_has_no_children;;
-exception Node_has_no_attributes;;
-exception Attribute_has_no_sibling of string;;
-exception Attribute_has_no_parent;;
-exception Undefined_entity;;
-
-let option_to_exception v e =
-  match v with
-    Some x -> x
-  | None   -> raise e
-;;
-
-class o_mDOMString (str: Minidom.mDOMString) =
-  object
-    method get_dom_string = str
-    method get_string = Minidom.string_of_mDOMString str
-  end;;
-  
-let o_mDOMString_of_string str =
-  new o_mDOMString (Minidom.mDOMString_of_string str)
-
-class o_mDOMEntity (ent : Minidom.mDOMEntity) =
-  object
-    method get_dom_entity = ent
-    method get_content =
-      new o_mDOMString (Minidom.entity_get_content ent)
-  end
-;;
-
-class o_mDOMDoc (doc : Minidom.mDOMDoc) =
-  object
-    method get_dom_doc = doc
-
-    method get_root_node =
-      new o_mDOMNode (Minidom.doc_get_root_node doc)
-    method add_entity (name : o_mDOMString) (value : o_mDOMString) =
-      new o_mDOMEntity
-        (Minidom.doc_add_entity doc
-         (name#get_dom_string) (value#get_dom_string)
-       )
-    method get_entity (name : o_mDOMString) =
-      match Minidom.doc_get_entity doc (name#get_dom_string) with
-      | Some x -> new o_mDOMEntity x
-      | None -> raise Undefined_entity
-    method get_predefined_entity (name : o_mDOMString) =
-      match Minidom.doc_get_predefined_entity doc (name#get_dom_string) with
-      | Some x -> new o_mDOMEntity x
-      | None -> raise Undefined_entity
-  end
-and o_mDOMNode (node : Minidom.mDOMNode) =
-  object
-    method get_dom_node = node
-
-    method is_text = Minidom.node_is_text node
-    method is_element = Minidom.node_is_element node
-    method is_blank = Minidom.node_is_blank node
-    method is_entity_ref = Minidom.node_is_entity_ref node
-
-    method get_type = Minidom.node_get_type node
-    method get_name = 
-      match Minidom.node_get_name node with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_ns_uri =
-      match Minidom.node_get_ns_uri node with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_attribute (name : o_mDOMString) =
-      match Minidom.node_get_attribute node (name#get_dom_string) with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_attribute_ns (name : o_mDOMString) (uri : o_mDOMString) =
-      match 
-        Minidom.node_get_attribute_ns node
-         (name#get_dom_string) (uri#get_dom_string)
-      with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_content =
-      match Minidom.node_get_content node with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_parent =
-      new o_mDOMNode
-       (option_to_exception (Minidom.node_get_parent node) Node_has_no_parent)
-    method get_prev_sibling =
-      new o_mDOMNode
-       (option_to_exception
-        (Minidom.node_get_prev_sibling node)
-        (Node_has_no_sibling "left")
-       )
-    method get_next_sibling =
-      new o_mDOMNode
-       (option_to_exception
-        (Minidom.node_get_next_sibling node)
-        (Node_has_no_sibling "right")
-       )
-    method get_first_child =
-      new o_mDOMNode
-       (option_to_exception
-        (Minidom.node_get_first_child node)
-        (Node_has_no_children)
-       )
-    method get_first_attribute =
-      new o_mDOMAttr
-       (option_to_exception
-         (Minidom.node_get_first_attribute node)
-         (Node_has_no_attributes)
-       )
-    method is_first = Minidom.node_is_first node
-    method is_last = Minidom.node_is_last node
-
-    method get_children =
-      List.map (function x -> new o_mDOMNode x) (Minidom.node_get_children node)
-    method get_attributes = List.map
-      (function x -> new o_mDOMAttr x) (Minidom.node_get_attributes node)
-  end
-and o_mDOMAttr (attr : Minidom.mDOMAttr) =
-  object
-    method get_dom_attr = attr
-
-    method get_name =
-      match Minidom.attr_get_name attr with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_ns_uri =
-      match Minidom.attr_get_ns_uri attr with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_value =
-      match Minidom.attr_get_value attr with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_prev_sibling =
-      new o_mDOMAttr
-        (option_to_exception
-         (Minidom.attr_get_prev_sibling attr)
-         (Attribute_has_no_sibling "left")
-       )
-    method get_next_sibling =
-      new o_mDOMAttr
-        (option_to_exception
-         (Minidom.attr_get_next_sibling attr)
-         (Attribute_has_no_sibling "right")
-       )
-    method get_parent =
-      new o_mDOMNode
-        (option_to_exception
-         (Minidom.attr_get_parent attr) Attribute_has_no_parent
-       )
-  end
-;;
-    

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/ominidom.mli b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/ominidom.mli
deleted file mode 100644 (file)
index 2432954..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/ominidom.mli
+++ /dev/null
@@ -1,64 +0,0 @@
-exception Node_has_no_parent
-exception Node_has_no_sibling of string
-exception Node_has_no_children
-exception Node_has_no_attributes
-exception Attribute_has_no_sibling of string
-exception Attribute_has_no_parent
-exception Undefined_entity
-
-class o_mDOMString : Minidom.mDOMString ->
-  object
-    method get_dom_string : Minidom.mDOMString
-    method get_string : string
-  end
-
-val o_mDOMString_of_string : string -> o_mDOMString
-
-class o_mDOMEntity : Minidom.mDOMEntity ->
-  object
-    method get_content : o_mDOMString
-    method get_dom_entity : Minidom.mDOMEntity
-  end
-
-class o_mDOMDoc : Minidom.mDOMDoc ->
-  object
-    method add_entity : o_mDOMString -> o_mDOMString -> o_mDOMEntity
-    method get_dom_doc : Minidom.mDOMDoc
-    method get_entity : o_mDOMString -> o_mDOMEntity
-    method get_predefined_entity : o_mDOMString -> o_mDOMEntity
-    method get_root_node : o_mDOMNode
-  end
-and o_mDOMNode : Minidom.mDOMNode ->
-  object
-    method get_attribute : o_mDOMString -> o_mDOMString option
-    method get_attribute_ns :
-      o_mDOMString -> o_mDOMString -> o_mDOMString option
-    method get_attributes : o_mDOMAttr list
-    method get_children : o_mDOMNode list
-    method get_content : o_mDOMString option
-    method get_dom_node : Minidom.mDOMNode
-    method get_first_attribute : o_mDOMAttr
-    method get_first_child : o_mDOMNode
-    method get_name : o_mDOMString option
-    method get_next_sibling : o_mDOMNode
-    method get_ns_uri : o_mDOMString option
-    method get_parent : o_mDOMNode
-    method get_prev_sibling : o_mDOMNode
-    method get_type : int
-    method is_blank : bool
-    method is_element : bool
-    method is_entity_ref : bool
-    method is_first : bool
-    method is_last : bool
-    method is_text : bool
-  end
-and o_mDOMAttr : Minidom.mDOMAttr ->
-  object
-    method get_dom_attr : Minidom.mDOMAttr
-    method get_name : o_mDOMString option
-    method get_next_sibling : o_mDOMAttr
-    method get_ns_uri : o_mDOMString option
-    method get_parent : o_mDOMNode
-    method get_prev_sibling : o_mDOMAttr
-    method get_value : o_mDOMString option
-  end

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/test.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/test.ml
deleted file mode 100644 (file)
index 3c7a092..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/test.ml
+++ /dev/null
@@ -1,84 +0,0 @@
-
-let doc = Minidom.doc_load "test.xml"
-
-let root = Minidom.doc_get_root_node doc
-
-let check_attribute_ns attr =
-  Printf.printf "\n\n";
-  let ns_uri = Minidom.attr_get_ns_uri attr
-  and attr_name = Minidom.attr_get_name attr
-  and attr_value = Minidom.attr_get_value attr
-  and parent = Minidom.attr_get_parent attr
-  in
-  match parent,ns_uri,attr_name,attr_value with
-    Some parent_node,Some uri,Some attribute_name,Some attribute_value ->
-      let attr_value = Minidom.node_get_attribute_ns parent_node attribute_name uri
-      in begin
-        match attr_value with
-          Some attr1 ->
-           Printf.printf "found the attribute with ns %s (was %s)\n"
-              (Minidom.string_of_mDOMString attr1) (Minidom.string_of_mDOMString attribute_value)
-        | None ->
-           Printf.printf "attribute not found (uri was %s)!!!!\n" (Minidom.string_of_mDOMString uri)
-      end
-  | _ ->
-      Printf.printf "parent_node == NULL || uri == NULL || attribute_name == NULL || attribute_value == NULL\n"
-;;
-    
-let print_attribute attr =
-  check_attribute_ns attr;
-  let ns_uri = Minidom.attr_get_ns_uri attr
-  in
-  begin
-    match ns_uri with
-      Some uri -> Printf.printf " %s:" (Minidom.string_of_mDOMString uri);
-    | None -> ()
-  end;
-  match ((Minidom.attr_get_name attr), (Minidom.attr_get_value attr)) with
-    (Some attr_name, Some attr_value) ->
-      Printf.printf " %s=\"%s\"" (Minidom.string_of_mDOMString attr_name) (Minidom.string_of_mDOMString attr_value) 
-  | (Some attr_name, _) ->
-      Printf.printf " ??? attribute %s has no value !!!" (Minidom.string_of_mDOMString attr_name)
-  | (_,_) ->
-      Printf.printf " ??? very strange attribute !!!"
-;;
-
-let rec print_node n node =
-  if Minidom.node_is_blank node then ()
-  else if Minidom.node_is_element node then begin
-    match Minidom.node_get_name node with
-      Some node_name -> 
-        begin
-          let children = Minidom.node_get_children node
-          and attributes = Minidom.node_get_attributes node
-          and ns_uri = Minidom.node_get_ns_uri node
-          and is_first,is_last = (Minidom.node_is_first node), (Minidom.node_is_last node)
-          in
-          for i = 1 to n do print_char ' ' done;
-          Printf.printf "<";
-          begin
-            match ns_uri with
-              Some uri -> Printf.printf "%s:" (Minidom.string_of_mDOMString uri)
-            | None     -> ()
-          end;
-          Printf.printf "%s" (Minidom.string_of_mDOMString node_name);
-          List.iter print_attribute attributes;
-          Printf.printf ">\n";
-          List.iter (print_node (n + 2)) children;
-          for i = 1 to n do print_char ' ' done;
-          Printf.printf "</%s>\n" (Minidom.string_of_mDOMString node_name)
-        end
-    | None -> Printf.printf "??? this node has no name !!!\n"
-  end else if Minidom.node_is_text node then begin
-    match Minidom.node_get_content node with
-      Some node_content ->
-        for i = 1 to n do print_char ' ' done;
-        Printf.printf "%s\n" (Minidom.string_of_mDOMString node_content)
-    | None -> Printf.printf "??? this node has no content !!!\n"
-  end else begin
-    Printf.printf "don't know how to manage a node with type %d\n" (Minidom.node_get_type node)
-  end
-;;
-  
-print_node 0 root;;
-

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/test.xml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/test.xml
deleted file mode 100644 (file)
index 83d2eef..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/minidom/test.xml
+++ /dev/null
@@ -1,505 +0,0 @@
-<?xml version="1.0" encoding="iso-8859-1"?>
-<?cocoon-format type="text/xhtml"?>
-<m:math xmlns:helm="http://www.cs.unibo.it/helm" xmlns:m="http://www.w3.org/1998/Math/MathML">
-    <m:mtable helm:xref="i0" columnalign="left" equalrows="false" align="baseline 1">
-        <m:mtr>
-            <m:mtd>
-                <m:mrow>
-                    <m:mtext>DEFINITION and_ind() OF TYPE</m:mtext>
-                </m:mrow>
-            </m:mtd>
-        </m:mtr>
-        <m:mtr>
-            <m:mtd>
-                <m:mrow>
-                    <m:mphantom>
-                        <m:mtext>__</m:mtext>
-                    </m:mphantom>
-                    <m:semantics xmlns:xlink="http://www.w3.org/1999/xlink">
-                        <m:mrow helm:xref="i22">
-                            <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mrow>
-                                            <m:mo stretchy="false">(</m:mo>
-                                            <m:mrow helm:xref="i23">
-                                                <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                    <m:mtr>
-                                                        <m:mtd>
-                                                            <m:mo color="Blue">&#928;</m:mo>
-                                                            <m:mi>A</m:mi>
-                                                            <m:mo>:</m:mo>
-                                                            <m:mrow helm:xref="i24">
-                                                                <m:mo>Prop</m:mo>
-                                                            </m:mrow>
-                                                        </m:mtd>
-                                                    </m:mtr>
-                                                    <m:mtr>
-                                                        <m:mtd>
-                                                            <m:mrow>
-                                                                <m:mo>.</m:mo>
-                                                                <m:mrow helm:xref="i25">
-                                                                    <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                        <m:mtr>
-                                                                            <m:mtd>
-                                                                                <m:mo color="Blue">&#928;</m:mo>
-                                                                                <m:mi>B</m:mi>
-                                                                                <m:mo>:</m:mo>
-                                                                                <m:mrow helm:xref="i26">
-                                                                                    <m:mo>Prop</m:mo>
-                                                                                </m:mrow>
-                                                                            </m:mtd>
-                                                                        </m:mtr>
-                                                                        <m:mtr>
-                                                                            <m:mtd>
-                                                                                <m:mrow>
-                                                                                    <m:mo>.</m:mo>
-                                                                                    <m:mrow helm:xref="i27">
-                                                                                        <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                                            <m:mtr>
-                                                                                                <m:mtd>
-                                                                                                    <m:mo color="Blue">&#928;</m:mo>
-                                                                                                    <m:mi>P</m:mi>
-                                                                                                    <m:mo>:</m:mo>
-                                                                                                    <m:mrow helm:xref="i28">
-                                                                                                        <m:mo>Prop</m:mo>
-                                                                                                    </m:mrow>
-                                                                                                </m:mtd>
-                                                                                            </m:mtr>
-                                                                                            <m:mtr>
-                                                                                                <m:mtd>
-                                                                                                    <m:mrow>
-                                                                                                        <m:mo>.</m:mo>
-                                                                                                        <m:mrow helm:xref="i29">
-                                                                                                            <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                                                                <m:mtr>
-                                                                                                                    <m:mtd>
-                                                                                                                        <m:mo color="Blue">&#928;</m:mo>
-                                                                                                                        <m:mi>f</m:mi>
-                                                                                                                        <m:mo>:</m:mo>
-                                                                                                                        <m:mrow helm:xref="i30">
-                                                                                                                            <m:mo stretchy="false">(</m:mo>
-                                                                                                                            <m:mi helm:xref="i31">A</m:mi>
-                                                                                                                            <m:mo color="Blue">&#8594;</m:mo>
-                                                                                                                            <m:mrow helm:xref="i32">
-                                                                                                                                <m:mo stretchy="false">(</m:mo>
-                                                                                                                                <m:mi helm:xref="i33">B</m:mi>
-                                                                                                                                <m:mo color="Blue">&#8594;</m:mo>
-                                                                                                                                <m:mi helm:xref="i34">P</m:mi>
-                                                                                                                                <m:mo stretchy="false">)</m:mo>
-                                                                                                                            </m:mrow>
-                                                                                                                            <m:mo stretchy="false">)</m:mo>
-                                                                                                                        </m:mrow>
-                                                                                                                    </m:mtd>
-                                                                                                                </m:mtr>
-                                                                                                                <m:mtr>
-                                                                                                                    <m:mtd>
-                                                                                                                        <m:mrow>
-                                                                                                                            <m:mo>.</m:mo>
-                                                                                                                            <m:mrow helm:xref="i35">
-                                                                                                                                <m:mo color="Blue">&#928;</m:mo>
-                                                                                                                                <m:mi>a</m:mi>
-                                                                                                                                <m:mo>:</m:mo>
-                                                                                                                                <m:mrow helm:xref="i36">
-                                                                                                                                    <m:mo stretchy="false">(</m:mo>
-                                                                                                                                    <m:mi xlink:href="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i37">and</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi helm:xref="i38">A</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi helm:xref="i39">B</m:mi>
-                                                                                                                                    <m:mo stretchy="false">)</m:mo>
-                                                                                                                                </m:mrow>
-                                                                                                                                <m:mo>.</m:mo>
-                                                                                                                                <m:mi helm:xref="i40">P</m:mi>
-                                                                                                                            </m:mrow>
-                                                                                                                        </m:mrow>
-                                                                                                                    </m:mtd>
-                                                                                                                </m:mtr>
-                                                                                                            </m:mtable>
-                                                                                                        </m:mrow>
-                                                                                                    </m:mrow>
-                                                                                                </m:mtd>
-                                                                                            </m:mtr>
-                                                                                        </m:mtable>
-                                                                                    </m:mrow>
-                                                                                </m:mrow>
-                                                                            </m:mtd>
-                                                                        </m:mtr>
-                                                                    </m:mtable>
-                                                                </m:mrow>
-                                                            </m:mrow>
-                                                        </m:mtd>
-                                                    </m:mtr>
-                                                </m:mtable>
-                                            </m:mrow>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mrow>
-                                            <m:mo color="#b03060">:&gt;</m:mo>
-                                            <m:mrow helm:xref="i41">
-                                                <m:mo>Prop</m:mo>
-                                            </m:mrow>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mrow>
-                                            <m:mo stretchy="false">)</m:mo>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                            </m:mtable>
-                        </m:mrow>
-                        <m:annotation-xml encoding="MathML">
-                            <m:apply helm:xref="i22">
-                                <m:csymbol>cast</m:csymbol>
-                                <m:apply helm:xref="i23">
-                                    <m:csymbol>prod</m:csymbol>
-                                    <m:bvar>
-                                        <m:ci>A</m:ci>
-                                        <m:type>
-                                            <m:apply helm:xref="i24">
-                                                <m:csymbol>Prop</m:csymbol>
-                                            </m:apply>
-                                        </m:type>
-                                    </m:bvar>
-                                    <m:apply helm:xref="i25">
-                                        <m:csymbol>prod</m:csymbol>
-                                        <m:bvar>
-                                            <m:ci>B</m:ci>
-                                            <m:type>
-                                                <m:apply helm:xref="i26">
-                                                    <m:csymbol>Prop</m:csymbol>
-                                                </m:apply>
-                                            </m:type>
-                                        </m:bvar>
-                                        <m:apply helm:xref="i27">
-                                            <m:csymbol>prod</m:csymbol>
-                                            <m:bvar>
-                                                <m:ci>P</m:ci>
-                                                <m:type>
-                                                    <m:apply helm:xref="i28">
-                                                        <m:csymbol>Prop</m:csymbol>
-                                                    </m:apply>
-                                                </m:type>
-                                            </m:bvar>
-                                            <m:apply helm:xref="i29">
-                                                <m:csymbol>prod</m:csymbol>
-                                                <m:bvar>
-                                                    <m:ci>f</m:ci>
-                                                    <m:type>
-                                                        <m:apply helm:xref="i30">
-                                                            <m:csymbol>arrow</m:csymbol>
-                                                            <m:ci helm:xref="i31">A</m:ci>
-                                                            <m:apply helm:xref="i32">
-                                                                <m:csymbol>arrow</m:csymbol>
-                                                                <m:ci helm:xref="i33">B</m:ci>
-                                                                <m:ci helm:xref="i34">P</m:ci>
-                                                            </m:apply>
-                                                        </m:apply>
-                                                    </m:type>
-                                                </m:bvar>
-                                                <m:apply helm:xref="i35">
-                                                    <m:csymbol>prod</m:csymbol>
-                                                    <m:bvar>
-                                                        <m:ci>a</m:ci>
-                                                        <m:type>
-                                                            <m:apply helm:xref="i36">
-                                                                <m:csymbol>app</m:csymbol>
-                                                                <m:ci definitionURL="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i37">and</m:ci>
-                                                                <m:ci helm:xref="i38">A</m:ci>
-                                                                <m:ci helm:xref="i39">B</m:ci>
-                                                            </m:apply>
-                                                        </m:type>
-                                                    </m:bvar>
-                                                    <m:ci helm:xref="i40">P</m:ci>
-                                                </m:apply>
-                                            </m:apply>
-                                        </m:apply>
-                                    </m:apply>
-                                </m:apply>
-                                <m:apply helm:xref="i41">
-                                    <m:csymbol>Prop</m:csymbol>
-                                </m:apply>
-                            </m:apply>
-                        </m:annotation-xml>
-                    </m:semantics>
-                </m:mrow>
-            </m:mtd>
-        </m:mtr>
-        <m:mtr>
-            <m:mtd>
-                <m:mrow>
-                    <m:mtext>AS</m:mtext>
-                </m:mrow>
-            </m:mtd>
-        </m:mtr>
-        <m:mtr>
-            <m:mtd>
-                <m:mrow>
-                    <m:mphantom>
-                        <m:mtext>__</m:mtext>
-                    </m:mphantom>
-                    <m:semantics xmlns:xlink="http://www.w3.org/1999/xlink">
-                        <m:mrow helm:xref="i1">
-                            <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mo color="Red">&#955;</m:mo>
-                                        <m:mi>A</m:mi>
-                                        <m:mo>:</m:mo>
-                                        <m:mrow helm:xref="i2">
-                                            <m:mo>Prop</m:mo>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mrow>
-                                            <m:mo>.</m:mo>
-                                            <m:mrow helm:xref="i3">
-                                                <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                    <m:mtr>
-                                                        <m:mtd>
-                                                            <m:mo color="Red">&#955;</m:mo>
-                                                            <m:mi>B</m:mi>
-                                                            <m:mo>:</m:mo>
-                                                            <m:mrow helm:xref="i4">
-                                                                <m:mo>Prop</m:mo>
-                                                            </m:mrow>
-                                                        </m:mtd>
-                                                    </m:mtr>
-                                                    <m:mtr>
-                                                        <m:mtd>
-                                                            <m:mrow>
-                                                                <m:mo>.</m:mo>
-                                                                <m:mrow helm:xref="i5">
-                                                                    <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                        <m:mtr>
-                                                                            <m:mtd>
-                                                                                <m:mo color="Red">&#955;</m:mo>
-                                                                                <m:mi>P</m:mi>
-                                                                                <m:mo>:</m:mo>
-                                                                                <m:mrow helm:xref="i6">
-                                                                                    <m:mo>Prop</m:mo>
-                                                                                </m:mrow>
-                                                                            </m:mtd>
-                                                                        </m:mtr>
-                                                                        <m:mtr>
-                                                                            <m:mtd>
-                                                                                <m:mrow>
-                                                                                    <m:mo>.</m:mo>
-                                                                                    <m:mrow helm:xref="i7">
-                                                                                        <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                                            <m:mtr>
-                                                                                                <m:mtd>
-                                                                                                    <m:mo color="Red">&#955;</m:mo>
-                                                                                                    <m:mi>f</m:mi>
-                                                                                                    <m:mo>:</m:mo>
-                                                                                                    <m:mrow helm:xref="i8">
-                                                                                                        <m:mo stretchy="false">(</m:mo>
-                                                                                                        <m:mi helm:xref="i9">A</m:mi>
-                                                                                                        <m:mo color="Blue">&#8594;</m:mo>
-                                                                                                        <m:mrow helm:xref="i10">
-                                                                                                            <m:mo stretchy="false">(</m:mo>
-                                                                                                            <m:mi helm:xref="i11">B</m:mi>
-                                                                                                            <m:mo color="Blue">&#8594;</m:mo>
-                                                                                                            <m:mi helm:xref="i12">P</m:mi>
-                                                                                                            <m:mo stretchy="false">)</m:mo>
-                                                                                                        </m:mrow>
-                                                                                                        <m:mo stretchy="false">)</m:mo>
-                                                                                                    </m:mrow>
-                                                                                                </m:mtd>
-                                                                                            </m:mtr>
-                                                                                            <m:mtr>
-                                                                                                <m:mtd>
-                                                                                                    <m:mrow>
-                                                                                                        <m:mo>.</m:mo>
-                                                                                                        <m:mrow helm:xref="i13">
-                                                                                                            <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                                                                <m:mtr>
-                                                                                                                    <m:mtd>
-                                                                                                                        <m:mo color="Red">&#955;</m:mo>
-                                                                                                                        <m:mi>a</m:mi>
-                                                                                                                        <m:mo>:</m:mo>
-                                                                                                                        <m:mrow helm:xref="i14">
-                                                                                                                            <m:mo stretchy="false">(</m:mo>
-                                                                                                                            <m:mi xlink:href="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i15">and</m:mi>
-                                                                                                                            <m:mphantom>
-                                                                                                                                <m:mtext>_</m:mtext>
-                                                                                                                            </m:mphantom>
-                                                                                                                            <m:mi helm:xref="i16">A</m:mi>
-                                                                                                                            <m:mphantom>
-                                                                                                                                <m:mtext>_</m:mtext>
-                                                                                                                            </m:mphantom>
-                                                                                                                            <m:mi helm:xref="i17">B</m:mi>
-                                                                                                                            <m:mo stretchy="false">)</m:mo>
-                                                                                                                        </m:mrow>
-                                                                                                                    </m:mtd>
-                                                                                                                </m:mtr>
-                                                                                                                <m:mtr>
-                                                                                                                    <m:mtd>
-                                                                                                                        <m:mrow>
-                                                                                                                            <m:mo>.</m:mo>
-                                                                                                                            <m:mrow helm:xref="i18">
-                                                                                                                                <m:mo>&lt;</m:mo>
-                                                                                                                                <m:mi helm:xref="i19">P</m:mi>
-                                                                                                                                <m:mo>&gt;</m:mo>
-                                                                                                                                <m:mo>CASES</m:mo>
-                                                                                                                                <m:mphantom>
-                                                                                                                                    <m:mtext>_</m:mtext>
-                                                                                                                                </m:mphantom>
-                                                                                                                                <m:mi helm:xref="i20">a</m:mi>
-                                                                                                                                <m:mphantom>
-                                                                                                                                    <m:mtext>_</m:mtext>
-                                                                                                                                </m:mphantom>
-                                                                                                                                <m:mo>OF</m:mo>
-                                                                                                                                <m:mrow>
-                                                                                                                                    <m:mo stretchy="false">(</m:mo>
-                                                                                                                                    <m:mi>conj</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi>$1</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi>$2</m:mi>
-                                                                                                                                    <m:mo stretchy="false">)</m:mo>
-                                                                                                                                </m:mrow>
-                                                                                                                                <m:mo color="Green">&#8658;</m:mo>
-                                                                                                                                <m:mrow>
-                                                                                                                                    <m:mo stretchy="false">(</m:mo>
-                                                                                                                                    <m:mi helm:xref="i21">f</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi>$1</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi>$2</m:mi>
-                                                                                                                                    <m:mo stretchy="false">)</m:mo>
-                                                                                                                                </m:mrow>
-                                                                                                                                <m:mphantom>
-                                                                                                                                    <m:mtext>_</m:mtext>
-                                                                                                                                </m:mphantom>
-                                                                                                                                <m:mo>END</m:mo>
-                                                                                                                            </m:mrow>
-                                                                                                                        </m:mrow>
-                                                                                                                    </m:mtd>
-                                                                                                                </m:mtr>
-                                                                                                            </m:mtable>
-                                                                                                        </m:mrow>
-                                                                                                    </m:mrow>
-                                                                                                </m:mtd>
-                                                                                            </m:mtr>
-                                                                                        </m:mtable>
-                                                                                    </m:mrow>
-                                                                                </m:mrow>
-                                                                            </m:mtd>
-                                                                        </m:mtr>
-                                                                    </m:mtable>
-                                                                </m:mrow>
-                                                            </m:mrow>
-                                                        </m:mtd>
-                                                    </m:mtr>
-                                                </m:mtable>
-                                            </m:mrow>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                            </m:mtable>
-                        </m:mrow>
-                        <m:annotation-xml encoding="MathML">
-                            <m:lambda helm:xref="i1">
-                                <m:bvar>
-                                    <m:ci>A</m:ci>
-                                    <m:type>
-                                        <m:apply helm:xref="i2">
-                                            <m:csymbol>Prop</m:csymbol>
-                                        </m:apply>
-                                    </m:type>
-                                </m:bvar>
-                                <m:lambda helm:xref="i3">
-                                    <m:bvar>
-                                        <m:ci>B</m:ci>
-                                        <m:type>
-                                            <m:apply helm:xref="i4">
-                                                <m:csymbol>Prop</m:csymbol>
-                                            </m:apply>
-                                        </m:type>
-                                    </m:bvar>
-                                    <m:lambda helm:xref="i5">
-                                        <m:bvar>
-                                            <m:ci>P</m:ci>
-                                            <m:type>
-                                                <m:apply helm:xref="i6">
-                                                    <m:csymbol>Prop</m:csymbol>
-                                                </m:apply>
-                                            </m:type>
-                                        </m:bvar>
-                                        <m:lambda helm:xref="i7">
-                                            <m:bvar>
-                                                <m:ci>f</m:ci>
-                                                <m:type>
-                                                    <m:apply helm:xref="i8">
-                                                        <m:csymbol>arrow</m:csymbol>
-                                                        <m:ci helm:xref="i9">A</m:ci>
-                                                        <m:apply helm:xref="i10">
-                                                            <m:csymbol>arrow</m:csymbol>
-                                                            <m:ci helm:xref="i11">B</m:ci>
-                                                            <m:ci helm:xref="i12">P</m:ci>
-                                                        </m:apply>
-                                                    </m:apply>
-                                                </m:type>
-                                            </m:bvar>
-                                            <m:lambda helm:xref="i13">
-                                                <m:bvar>
-                                                    <m:ci>a</m:ci>
-                                                    <m:type>
-                                                        <m:apply helm:xref="i14">
-                                                            <m:csymbol>app</m:csymbol>
-                                                            <m:ci definitionURL="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i15">and</m:ci>
-                                                            <m:ci helm:xref="i16">A</m:ci>
-                                                            <m:ci helm:xref="i17">B</m:ci>
-                                                        </m:apply>
-                                                    </m:type>
-                                                </m:bvar>
-                                                <m:apply helm:xref="i18">
-                                                    <m:csymbol>mutcase</m:csymbol>
-                                                    <m:ci helm:xref="i19">P</m:ci>
-                                                    <m:ci helm:xref="i20">a</m:ci>
-                                                    <m:apply>
-                                                        <m:csymbol>app</m:csymbol>
-                                                        <m:ci>conj</m:ci>
-                                                        <m:ci>$1</m:ci>
-                                                        <m:ci>$2</m:ci>
-                                                    </m:apply>
-                                                    <m:apply>
-                                                        <m:csymbol>app</m:csymbol>
-                                                        <m:ci helm:xref="i21">f</m:ci>
-                                                        <m:ci>$1</m:ci>
-                                                        <m:ci>$2</m:ci>
-                                                    </m:apply>
-                                                </m:apply>
-                                            </m:lambda>
-                                        </m:lambda>
-                                    </m:lambda>
-                                </m:lambda>
-                            </m:lambda>
-                        </m:annotation-xml>
-                    </m:semantics>
-                </m:mrow>
-            </m:mtd>
-        </m:mtr>
-    </m:mtable>
-</m:math>

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/ml_gtk_mathview.c b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/ml_gtk_mathview.c
deleted file mode 100644 (file)
index 185d9f0..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/ml_gtk_mathview.c
+++ /dev/null
@@ -1,159 +0,0 @@
-#include <assert.h>
-#include <string.h>
-#include <assert.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include <gtkmathview.h>
-#include <ml_gtk.h>
-
-#include <wrappers.h>
-#include <ml_glib.h>
-#include <ml_gdk.h>
-#include <ml_gtk.h>
-#include <gtk_tags.h>
-
-#include <minidom.h>
-#include "minidom/ml_minidom.h"
-
-/* <CSC/>: Next row should be put in a .h of lablgtk. */
-#define GtkAdjustment_val(val) check_cast(GTK_ADJUSTMENT,val)
-
-#define GtkMathView_val(val) check_cast(GTK_MATH_VIEW,val)
-
-#define FontManagerId_val(val) Int_val(val)
-#define Val_FontManagerId(val) Val_int(val)
-
-FontManagerId
-font_manager_id_of_value(value v)
-{
-  if (v == hash_variant("font_manager_gtk")) return FONT_MANAGER_GTK;
-  else if (v == hash_variant("font_manager_t1")) return FONT_MANAGER_T1;
-  else assert(0);
-}
-
-value
-value_of_font_manager_id(FontManagerId id)
-{
-  switch (id) {
-  case FONT_MANAGER_GTK:
-    return hash_variant("font_manager_gtk");
-  case FONT_MANAGER_T1:
-    return hash_variant("font_manager_t1");
-  default:
-    assert(0);
-    break;
-  }
-}
-
-ML_2 (gtk_math_view_new,GtkAdjustment_val, GtkAdjustment_val, Val_GtkWidget_sink)
-ML_2 (gtk_math_view_load, GtkMathView_val, String_val, Val_bool)
-ML_1 (gtk_math_view_unload, GtkMathView_val, Unit)
-/*ML_1 (gtk_math_view_dump, GtkMathView_val, Unit)*/
-ML_1 (gtk_math_view_get_selection, GtkMathView_val, Val_mDOMNodeRef)
-ML_2 (gtk_math_view_set_selection, GtkMathView_val, mDOMNodeRef_val, Unit)
-ML_1 (gtk_math_view_get_width, GtkMathView_val, Val_int)
-ML_1 (gtk_math_view_get_height, GtkMathView_val, Val_int)
-ML_3 (gtk_math_view_set_top, GtkMathView_val, Int_val, Int_val, Unit)
-ML_3 (gtk_math_view_set_adjustments, GtkMathView_val, GtkAdjustment_val, GtkAdjustment_val, Unit)
-ML_1 (gtk_math_view_get_hadjustment, GtkMathView_val, Val_GtkWidget)
-ML_1 (gtk_math_view_get_vadjustment, GtkMathView_val, Val_GtkWidget)
-ML_1 (gtk_math_view_get_buffer, GtkMathView_val, Val_GdkPixmap)
-ML_1 (gtk_math_view_get_frame, GtkMathView_val, Val_GtkWidget)
-ML_2 (gtk_math_view_set_font_size, GtkMathView_val, Int_val, Unit)
-ML_1 (gtk_math_view_get_font_size, GtkMathView_val, Val_int)
-ML_2 (gtk_math_view_set_anti_aliasing, GtkMathView_val, Bool_val, Unit)
-ML_1 (gtk_math_view_get_anti_aliasing, GtkMathView_val, Val_bool)
-ML_2 (gtk_math_view_set_kerning, GtkMathView_val, Bool_val, Unit)
-ML_1 (gtk_math_view_get_kerning, GtkMathView_val, Val_bool)
-ML_2 (gtk_math_view_set_log_verbosity, GtkMathView_val, Int_val, Unit)
-ML_1 (gtk_math_view_get_log_verbosity, GtkMathView_val, Val_int)
-ML_2 (gtk_math_view_set_font_manager_type, GtkMathView_val, font_manager_id_of_value, Unit)
-ML_1 (gtk_math_view_get_font_manager_type, GtkMathView_val, value_of_font_manager_id)
-
-value
-ml_gtk_math_view_export_to_postscript_native(value arg1,
-               value w, value h, value x0, value y0, value disable_colors, value arg2)
-{
-   CAMLparam5(arg1,w,h,x0,y0);
-   CAMLxparam2(disable_colors, arg2);
-
-   char *filename;
-   FILE *fd;
-   int res;
-   filename = String_val (arg2);
-   if ((fd = fopen(filename, "w"))) {
-      gtk_math_view_export_to_postscript(GtkMathView_val (arg1),
-                     Int_val(w), Int_val(h), Int_val(x0), Int_val(y0), Bool_val(disable_colors), fd);
-      fclose (fd);
-      res = 1;
-   } else {
-      fprintf(stderr, "Error opening file %s for writing\n", filename);
-      res = 0;
-   }
-   CAMLreturn (Val_bool(res));
-}
-
-value ml_gtk_math_view_export_to_postscript_bytecode (value* arg, int argn)
-{
-   return ml_gtk_math_view_export_to_postscript_native(arg[0], arg[1], arg[2], arg[3], arg[4], arg[5], arg[6]);
-}
-
-value ml_gtk_math_view_get_top (value arg1)
-{
-   CAMLparam1(arg1);
-   CAMLlocal1 (result);
-   int x, y;
-   gtk_math_view_get_top(GtkMathView_val (arg1), &x, &y);
-   result = alloc(2, 0);
-   Store_field(result, 0, Val_int(x));
-   Store_field(result, 0, Val_int(y));
-   CAMLreturn (result);
-}
-
-
-value ml_gtk_math_view_mDOMNode_of_bodex_option (value arg1)
-{
-   CAMLparam1(arg1);
-
-   mDOMNodeRef nr;
-   CAMLlocal1 (tmp);
-   CAMLlocal1 (optval);
-   CAMLlocal1 (res);
-
-   if (arg1==Val_int(0)) {
-      assert(0);
-   } else {
-      tmp = Field(arg1, 0);
-      nr = (mDOMNodeRef) Field(tmp, 1);
-   }
-   optval = Val_mDOMNodeRef(nr);
-   if (optval==Val_int(0)) {
-      assert(0);
-   } else {
-      res = Field(optval, 0);
-   }
-
-  CAMLreturn(res);
-}
-
-value ml_gtk_math_view_mDOMNode_option_of_bodex_option (value arg1)
-{
-   CAMLparam1(arg1);
-
-   mDOMNodeRef nr;
-   CAMLlocal1 (tmp);
-
-   if (arg1==Val_int(0)) {
-      nr=NULL;
-   } else {
-      tmp = Field(arg1, 0);
-      nr = (mDOMNodeRef) Field(tmp, 1);
-   }
-
-  CAMLreturn(Val_mDOMNodeRef(nr));
-}

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/test/.cvsignore b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/test/.cvsignore
deleted file mode 100644 (file)
index 1968614..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/test/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmo *.cmi *.cmx t1lib.log test test.opt test.ps test.o

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/test/Makefile b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/test/Makefile
deleted file mode 100644 (file)
index d631d23..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/test/Makefile
+++ /dev/null
@@ -1,45 +0,0 @@
-LABLGTK_DIR = /usr/lib/ocaml/lablgtk
-LABLGTK_MATHVIEW_DIR = ..
-MINIDOM_DIR = ../minidom
-OCAMLC = ocamlc -I $(LABLGTK_DIR) -I $(LABLGTK_MATHVIEW_DIR) \
- -I $(MINIDOM_DIR) -I mlmathview
-OCAMLOPT = ocamlopt -I $(LABLGTK_DIR) -I $(LABLGTK_MATHVIEW_DIR) \
- -I $(MINIDOM_DIR) -I mlmathview
-
-all: test
-opt: test.opt
-
-test: test.cmo
-       $(OCAMLC) -custom -o test lablgtk.cma gtkInit.cmo \
-                  $(MINIDOM_DIR)/minidom.cmo \
-                  $(MINIDOM_DIR)/ominidom.cmo \
-                  $(LABLGTK_MATHVIEW_DIR)/lablgtkmathview.cma \
-                  -cclib "$(MINIDOM_DIR)/ml_minidom.o" \
-                  test.cmo \
-                  -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
-                  -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
-                  -L/usr/local/lib/gtkmathview -lgtkmathview \
-                  $(LABLGTK_MATHVIEW_DIR)/ml_gtk_mathview.o"
-
-test.opt: test.cmx
-       $(OCAMLOPT) -o test.opt lablgtk.cmxa gtkInit.cmx \
-                  $(MINIDOM_DIR)/minidom.cmx \
-                  $(MINIDOM_DIR)/ominidom.cmx \
-                  $(LABLGTK_MATHVIEW_DIR)/lablgtkmathview.cmxa \
-                  -cclib "$(MINIDOM_DIR)/ml_minidom.o" \
-                  test.cmx \
-                  -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
-                  -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
-                  -L/usr/local/lib/gtkmathview -lgtkmathview \
-                  $(LABLGTK_MATHVIEW_DIR)/ml_gtk_mathview.o"
-
-.SUFFIXES: .ml .mli .cmo .cmi .cmx
-.ml.cmo:
-       $(OCAMLC) -c $<
-.mli.cmi:
-       $(OCAMLC) -c $<
-.ml.cmx:
-       $(OCAMLOPT) -c $<
-
-clean:
-       rm -f *.cm[iox] *.o test test.opt t1lib.log test.ps

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/test/t1.config b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/test/t1.config
deleted file mode 100644 (file)
index afb669e..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/test/t1.config
+++ /dev/null
@@ -1,3 +0,0 @@
-ENCODING=.
-AFM=/usr/share/texmf/fonts/afm/
-TYPE1=/usr/share/texmf/fonts/type1/bluesky/cm/:/usr/X11R6/lib/X11/fonts/Type1/:.

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/test/test.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/test/test.ml
deleted file mode 100644 (file)
index dd66d38..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/test/test.ml
+++ /dev/null
@@ -1,297 +0,0 @@
-(******************************************************************************)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 25/09/2000                                 *)
-(*                                                                            *)
-(*     This is a simple test for the OCaml (LablGtk indeed) binding of the    *)
-(*                             MathView widget                                *)
-(******************************************************************************)
-
-(* Callbacks *)
-let jump (node : Ominidom.o_mDOMNode) =
- let module O = Ominidom in
-  print_string ("jump: " ^
-   (match node#get_attribute (O.o_mDOMString_of_string "href") with
-    | Some x -> x#get_string
-    | None   -> "NO HREF FOR THIS NODE"
-   ) ^ "\n");
-  flush stdout
-;;
-
-let selection_changed mathview (node : Ominidom.o_mDOMNode option) =
- let module O = Ominidom in
-  print_string ("selection_changed: " ^
-   (match node with
-       None -> "selection_changed on nothing"
-     | Some node ->
-       match node#get_name with
-       | Some x -> x#get_string
-       | None   -> "on element without name"
-   ) ^ "\n");
-  mathview#set_selection node;
-  flush stdout
-;;
-
-
-let clicked (node : Ominidom.o_mDOMNode) =
- let module O = Ominidom in
-  print_string ("clicked: " ^
-   (match node#get_name with
-    | Some x -> x#get_string
-    | None   -> "no name"
-   ) ^ "\n");
-  flush stdout
-;;
-
-
-let activate_t1 mathview () =
- mathview#set_font_manager_type `font_manager_t1;
- print_string "WIDGET SET WITH T1 FONTS\n" ;
- flush stdout
-;;
-
-let activate_gtk mathview () =
- mathview#set_font_manager_type `font_manager_gtk;
- print_string "WIDGET SET WITH GTK FONTS\n" ;
- flush stdout
-;;
-
-let get_font_manager_type mathview () =
- print_string "CURRENT FONT MANAGER TYPE: ";
- begin
-  match mathview#get_font_manager_type with
-  | `font_manager_t1 -> print_string "T1"
-  | `font_manager_gtk -> print_string "GTK"
- end;
- print_newline();
- flush stdout
-;;
-
-let load mathview () =
- mathview#load "test.xml" ;
- print_string "load: SEEMS TO WORK\n" ;
- flush stdout
-;;
-
-let get_selection mathview () =
- let module O = Ominidom in
-  let selection =
-    match mathview#get_selection with
-    | Some node ->
-      begin
-        match node#get_name with
-       | Some name -> name#get_string
-       | None      -> "element with no name!"
-      end
-    | None      -> "no selection!"
-  in
-   print_string ("get_selection: " ^ selection ^ "\n") ;
-   flush stdout
-;;
-
-let set_selection mathview () =
- let module O = Ominidom in
-  begin
-    match mathview#get_selection with
-    | Some node -> 
-      begin
-        try 
-          let parent_node = node#get_parent in
-          mathview#set_selection (Some parent_node);
-          print_string "set selection: SEEMS TO WORK\n"
-       with
-         _ -> print_string "EXCEPTION: no parent\n"
-      end
-    | None ->
-      mathview#set_selection None;
-      print_string "no selection\n"
-  end ;
-  flush stdout
-;;
-
-let unload mathview () =
- mathview#unload ;
- print_string "unload: SEEMS TO WORK\n" ;
- flush stdout
-;;
-
-let get_width mathview () =
- print_string ("get_width: " ^ string_of_int (mathview#get_width) ^ "\n") ;
- flush stdout
-;;
-
-let get_height mathview () =
- print_string ("get_height: " ^ string_of_int (mathview#get_height) ^ "\n") ;
- flush stdout
-;;
-
-let get_top mathview () =
- let (x,y) = mathview#get_top in
-  print_string ("get_top: ("^ string_of_int x ^ "," ^ string_of_int y ^ ")\n") ;
-  flush stdout
-;;
-
-let set_top mathview () =
- mathview#set_top 0 0;
- print_string "set_top: SEEM TO WORK\n" ;
- flush stdout
-;;
-
-let set_adjustments mathview () =
- let adj1 = GData.adjustment () in
- let adj2 = GData.adjustment () in
-  mathview#set_adjustments adj1 adj2 ;
-  adj1#set_value ((adj1#lower +. adj1#upper) /. 2.0) ;
-  adj2#set_value ((adj2#lower +. adj2#upper) /. 2.0) ;
-  print_string "set_adjustments: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_hadjustment mathview () =
- let adj = mathview#get_hadjustment in
-  adj#set_value ((adj#lower +. adj#upper) /. 2.0) ;
-  print_string "get_hadjustment: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_vadjustment mathview () =
- let adj = mathview#get_vadjustment in
-  adj#set_value ((adj#lower +. adj#upper) /. 2.0) ;
-  print_string "get_vadjustment: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_buffer mathview () =
- let buffer = mathview#get_buffer in
-  Gdk.Draw.rectangle buffer (Gdk.GC.create buffer) ~x:0 ~y:0
-   ~width:50 ~height:50 ~filled:true () ;
-  print_string "get_buffer: SEEMS TO WORK (hint: force the widget redrawing)\n";
-  flush stdout
-;;
-
-let get_frame mathview () =
- let frame = mathview#get_frame in
-  frame#set_shadow_type `NONE ;
-  print_string "get_frame: SEEMS TO WORK\n" ;
-  flush stdout
-;;
-
-let set_font_size mathview () =
- mathview#set_font_size 24 ;
- print_string "set_font_size: FONT IS NOW 24\n" ;
- flush stdout
-;;
- 
-let get_font_size mathview () =
- print_string ("get_font_size: " ^ string_of_int (mathview#get_font_size) ^ "\n") ;
- flush stdout
-;;
- 
-let set_anti_aliasing mathview () =
- mathview#set_anti_aliasing true ;
- print_string "set_anti_aliasing: ON\n" ;
- flush stdout
-;;
- 
-let get_anti_aliasing mathview () =
- print_string ("get_anti_aliasing: " ^
-  (match mathview#get_anti_aliasing with true -> "ON" | false -> "OFF") ^
-  "\n") ;
- flush stdout
-;;
- 
-let set_kerning mathview () =
- mathview#set_kerning true ;
- print_string "set_kerning: ON\n" ;
- flush stdout
-;;
- 
-let get_kerning mathview () =
- print_string ("get_kerning: " ^
-  (match mathview#get_kerning with true -> "ON" | false -> "OFF") ^
-  "\n") ;
- flush stdout
-;;
-
-let set_log_verbosity mathview () =
- mathview#set_log_verbosity 3 ;
- print_string "set_log_verbosity: NOW IS 3\n" ;
- flush stdout
-;;
- 
-let get_log_verbosity mathview () =
- print_string ("get_log_verbosity: " ^
-  string_of_int mathview#get_log_verbosity ^
-  "\n") ;
- flush stdout
-;;
-
-let export_to_postscript (mathview : GMathView.math_view) () =
- mathview#export_to_postscript ~filename:"test.ps" ();
- print_string "expor_to_postscript: SEEMS TO WORK (hint: look at test.ps)\n";
- flush stdout
-;;
- 
-(* Widget creation *)
-let main_window = GWindow.window ~title:"GtkMathView test" () in
-let vbox = GPack.vbox ~packing:main_window#add () in
-let sw = GBin.scrolled_window ~width:50 ~height:50 ~packing:vbox#pack () in
-let mathview= GMathView.math_view ~packing:sw#add ~width:50 ~height:50 () in
-let table = GPack.table ~rows:6 ~columns:5 ~packing:vbox#pack () in
-let button_gtk=GButton.button ~label:"activate Gtk fonts" ~packing:(table#attach ~left:0 ~top:0) () in
-let button_load = GButton.button ~label:"load" ~packing:(table#attach ~left:1 ~top:0) () in
-let button_unload = GButton.button ~label:"unload" ~packing:(table#attach ~left:2 ~top:0) () in
-let button_get_selection = GButton.button ~label:"get_selection" ~packing:(table#attach ~left:3 ~top:0) () in
-let button_set_selection = GButton.button ~label:"set_selection" ~packing:(table#attach ~left:4 ~top:0) () in
-let button_get_width = GButton.button ~label:"get_width" ~packing:(table#attach ~left:0 ~top:1) () in
-let button_get_height = GButton.button ~label:"get_height" ~packing:(table#attach ~left:1 ~top:1) () in
-let button_get_top = GButton.button ~label:"get_top" ~packing:(table#attach ~left:2 ~top:1) () in
-let button_set_top = GButton.button ~label:"set_top" ~packing:(table#attach ~left:3 ~top:1) () in
-let button_set_adjustments = GButton.button ~label:"set_adjustments" ~packing:(table#attach ~left:4 ~top:1) () in
-let button_get_hadjustment = GButton.button ~label:"get_hadjustment" ~packing:(table#attach ~left:0 ~top:2) () in
-let button_get_vadjustment = GButton.button ~label:"get_vadjustment" ~packing:(table#attach ~left:1 ~top:2) () in
-let button_get_buffer = GButton.button ~label:"get_buffer" ~packing:(table#attach ~left:2 ~top:2) () in
-let button_get_frame = GButton.button ~label:"get_frame" ~packing:(table#attach ~left:3 ~top:2) () in
-let button_set_font_size = GButton.button ~label:"set_font_size" ~packing:(table#attach ~left:4 ~top:2) () in
-let button_get_font_size = GButton.button ~label:"get_font_size" ~packing:(table#attach ~left:0 ~top:3) () in
-let button_set_anti_aliasing = GButton.button ~label:"set_anti_aliasing" ~packing:(table#attach ~left:1 ~top:3) () in
-let button_get_anti_aliasing = GButton.button ~label:"get_anti_aliasing" ~packing:(table#attach ~left:2 ~top:3) () in
-let button_set_kerning = GButton.button ~label:"set_kerning" ~packing:(table#attach ~left:3 ~top:3) () in
-let button_get_kerning = GButton.button ~label:"get_kerning" ~packing:(table#attach ~left:4 ~top:3) () in
-let button_set_log_verbosity = GButton.button ~label:"set_log_verbosity" ~packing:(table#attach ~left:0 ~top:4) () in
-let button_get_log_verbosity = GButton.button ~label:"get_log_verbosity" ~packing:(table#attach ~left:1 ~top:4) () in
-let button_export_to_postscript = GButton.button ~label:"export_to_postscript" ~packing:(table#attach ~left:2 ~top:4) () in
-let button_t1 = GButton.button ~label:"activate T1 fonts" ~packing:(table#attach ~left:3 ~top:4) () in
-let button_get_font_manager_type = GButton.button ~label:"get_font_manager" ~packing:(table#attach ~left:4 ~top:4) () in
-(* Signals connection *)
-ignore(button_gtk#connect#clicked (activate_gtk mathview)) ;
-ignore(button_load#connect#clicked (load mathview)) ;
-ignore(button_unload#connect#clicked (unload mathview)) ;
-ignore(button_get_selection#connect#clicked (get_selection mathview)) ;
-ignore(button_set_selection#connect#clicked (set_selection mathview)) ;
-ignore(button_get_width#connect#clicked (get_width mathview)) ;
-ignore(button_get_height#connect#clicked (get_height mathview)) ;
-ignore(button_get_top#connect#clicked (get_top mathview)) ;
-ignore(button_set_top#connect#clicked (set_top mathview)) ;
-ignore(button_set_adjustments#connect#clicked (set_adjustments mathview)) ;
-ignore(button_get_hadjustment#connect#clicked (get_hadjustment mathview)) ;
-ignore(button_get_vadjustment#connect#clicked (get_vadjustment mathview)) ;
-ignore(button_get_buffer#connect#clicked (get_buffer mathview)) ;
-ignore(button_get_frame#connect#clicked (get_frame mathview)) ;
-ignore(button_set_font_size#connect#clicked (set_font_size mathview)) ;
-ignore(button_get_font_size#connect#clicked (get_font_size mathview)) ;
-ignore(button_set_anti_aliasing#connect#clicked (set_anti_aliasing mathview)) ;
-ignore(button_get_anti_aliasing#connect#clicked (get_anti_aliasing mathview)) ;
-ignore(button_set_kerning#connect#clicked (set_kerning mathview)) ;
-ignore(button_get_kerning#connect#clicked (get_kerning mathview)) ;
-ignore(button_set_log_verbosity#connect#clicked (set_log_verbosity mathview)) ;
-ignore(button_get_log_verbosity#connect#clicked (get_log_verbosity mathview)) ;
-ignore(button_export_to_postscript#connect#clicked (export_to_postscript mathview)) ;
-ignore(button_t1#connect#clicked (activate_t1 mathview)) ;
-ignore(button_get_font_manager_type#connect#clicked (get_font_manager_type mathview)) ;
-ignore(mathview#connect#jump jump) ;
-ignore(mathview#connect#clicked clicked) ;
-ignore(mathview#connect#selection_changed (selection_changed mathview)) ;
-(* Main Loop *)
-main_window#show () ;
-GMain.Main.main ()
-;;

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/test/test.xml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/test/test.xml
deleted file mode 100644 (file)
index b0f8c15..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.1/test/test.xml
+++ /dev/null
@@ -1,123 +0,0 @@
-<math display="block">
-  <mrow helm:xref="SELECTION OK">
-    <mo>&int;</mo>
-    <mo>&ApplyFunction;</mo>
-    <mfrac>
-      <mrow>
-        <mrow>
-          <mi>a</mi>
-         <mo>&InvisibleTimes;</mo>
-         <mi>x</mi>
-       </mrow>
-       <mo>+</mo>
-       <mi>b</mi>
-      </mrow>
-      <mrow>
-        <msup>
-         <mi>x</mi>
-         <mn>2</mn>
-       </msup>
-       <mo>+</mo>
-       <mrow>
-         <mi>p</mi>
-         <mo>&InvisibleTimes;</mo>
-         <mi>x</mi>
-       </mrow>
-       <mo>+</mo>
-       <mi>q</mi>
-      </mrow>
-    </mfrac>
-  </mrow>
-  <mo fontstyle="italic">d</mo>
-  <mi>x</mi>
-  <mo>=</mo>
-  <mrow>
-    <mrow>
-      <mfrac><mi>a</mi><mn>2</mn></mfrac>
-      <mo>&InvisibleTimes;</mo>
-      <mrow>
-        <mi>ln</mi>
-       <mo>&ApplyFunction;</mo>
-       <mrow>
-         <mo>(</mo>
-         <mrow>
-           <msup><mi>x</mi><mn>2</mn></msup>
-           <mo>+</mo>
-           <mrow>
-             <mi>p</mi>
-             <mo>&InvisibleTimes;</mo>
-             <mi>x</mi>
-           </mrow>
-           <mo>+</mo>
-           <mi>q</mi>
-         </mrow>
-         <mo>)</mo>
-       </mrow>
-      </mrow>
-    </mrow>
-    <mo>+</mo>
-    <mrow>
-      <mfrac>
-        <mrow>
-         <mrow>
-           <mn>2</mn>
-           <mo>&InvisibleTimes;</mo>
-           <mi>b</mi>
-         </mrow>
-         <mo>-</mo>
-         <mrow>
-           <mi>a</mi>
-           <mo>&InvisibleTimes;</mo>
-           <mi>p</mi>
-         </mrow>
-       </mrow>
-       <msqrt>
-         <mrow>
-           <mrow>
-             <mn>4</mn>
-             <mo>&InvisibleTimes;</mo>
-             <mi>q</mi>
-           </mrow>
-           <mo>-</mo>
-           <msup>
-             <mi>p</mi>
-             <mn>2</mn>
-           </msup>
-         </mrow>
-       </msqrt>
-      </mfrac>
-      <mo>&InvisibleTimes;</mo>
-      <mrow>
-        <mi xlink:href="JUMPS WORK">arctg</mi>
-       <mo>&ApplyFunction;</mo>
-       <mfrac>
-         <mrow>
-           <mrow>
-             <mn>2</mn>
-             <mo>&InvisibleTimes;</mo>
-             <mi>x</mi>
-           </mrow>
-           <mo>+</mo>
-           <mi>p</mi>
-         </mrow>
-         <msqrt>
-           <mrow>
-             <mrow>
-               <mn>4</mn>
-               <mo>&InvisibleTimes;</mo>
-               <mi>q</mi>
-             </mrow>
-             <mo>-</mo>
-             <msup>
-               <mi>p</mi>
-               <mn>2</mn>
-             </msup>
-           </mrow>
-         </msqrt>
-       </mfrac>
-      </mrow>
-    </mrow>
-    <mo>+</mo>
-    <mi>c</mi>
-  </mrow>  
-</math>

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2-1.spec b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2-1.spec
deleted file mode 100644 (file)
index cad3d06..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2-1.spec
+++ /dev/null
@@ -1,26 +0,0 @@
-Summary: GtkMathView : the binding for lablgtk of the GtkMathView widget
-Name: lablgtk-20001129_gtkmathview
-Version: 0.2.2
-Release: 1
-Copyright: LGPL
-Group: Development/Libraries
-Requires: lablgtk_20001129 gtkmathview
-Source: www.cs.unibo.it:/~lpadovan/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2.tar.gz
-%description
-GtkMathView is the binding for lablgtk of the GtkMathView widget.
-
-%prep
-%setup
-
-%build
-make
-make opt
-
-%install
-make install
-
-%files
-%doc COPYING
-
-/usr/lib/ocaml/lablgtk/mathview
-/usr/lib/ocaml/minidom

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2.tar.gz b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2.tar.gz
deleted file mode 100644 (file)
index 96d8630..0000000
Binary files a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2.tar.gz and /dev/null differ

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/.cvsignore b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/.cvsignore
deleted file mode 100644 (file)
index cd9e250..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmi *.cmo *.cmx *.cma *.cmxa config.make

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/.depend b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/.depend
deleted file mode 100644 (file)
index 600449b..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/.depend
+++ /dev/null
@@ -1,4 +0,0 @@
-gMathView.cmo: gtkMathView.cmo gtk_mathview.cmo 
-gMathView.cmx: gtkMathView.cmx gtk_mathview.cmx 
-gtkMathView.cmo: gtk_mathview.cmo 
-gtkMathView.cmx: gtk_mathview.cmx 

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/COPYING b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/COPYING
deleted file mode 100644 (file)
index 20b480a..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/COPYING
+++ /dev/null
@@ -1,11 +0,0 @@
-This library is made available under the LGPL.
-You should have got a copy of the LGPL with Objective Caml.
-The LGPL applies to all the files in this directory, but not in
-subdirectories.
-
-For the test subdirectory, there is no specific licensing policy,
-but you may freely take inspiration from the code, and copy parts of
-it in your application.
-
-Author:
-       Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/Makefile b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/Makefile
deleted file mode 100644 (file)
index b8adbb4..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/Makefile
+++ /dev/null
@@ -1,109 +0,0 @@
-# Makefile for lablgtk_mathview.
-
-LABLGTKDIR = /usr/lib/ocaml/lablgtk
-MINIDOMDIR = ./minidom
-TESTDIR = ./test
-MLFLAGS += -I $(LABLGTKDIR) -I $(MINIDOMDIR)
-
-TARGETS = ml_gtk_mathview.o lablgtkmathview.cma
-
-all: Minidom $(TARGETS)
-
-opt: Minidom.opt lablgtkmathviewopt
-
-Minidom:
-       cd $(MINIDOMDIR); make
-
-Minidom.opt:
-       cd $(MINIDOMDIR); make opt
-
-configure:
-       @rm -f config.make
-       @$(MAKE) --no-print-directory -f configure.mk
-
-depend:
-       @rm -f .depend
-       @$(MAKE) --no-print-directory -f configure.mk .depend
-
-.depend config.make:
-       @$(MAKE) --no-print-directory -f configure.mk
-
-COMPILER = $(CAMLC) $(MLFLAGS) -w s -labels -c
-LINKER = $(CAMLC) $(MLFLAGS)
-COMPOPT = $(CAMLOPT) $(MLFLAGS) -w s -labels -c
-LINKOPT = $(CAMLOPT) $(MLFLAGS)
-
-include config.make
-
-INSTALLDIR = $(LIBDIR)/lablgtk/mathview
-
-MLLIBS = lablgtkmathview.cma
-CLIBS = 
-MLLINK = unix.cma str.cma
-
-ifdef DEBUG
-CFLAGS = -g $(GTKCFLAGS)
-MLLINK += -cclib -lcamlrund
-MLFLAGS += -g
-else
-CFLAGS = -O -DGTK_NO_CHECK_CASTS -DGTK_DISABLE_COMPAT_H $(GTKCFLAGS)
-endif
-CFLAGS += $(MINIDOMCFLAGS) $(GTKMATHVIEWCFLAGS)
-
-THFLAGS = -thread
-THLINK = unix.cma threads.cma
-
-ifdef USE_CC
-CCOMPILER = $(CC) -c -I$(LIBDIR) $(CFLAGS)
-else
-CCOMPILER = ocamlc -c -ccopt "$(CFLAGS)"
-endif
-
-# Rules
-.SUFFIXES: .ml .mli .cmo .cmi .cmx .c .o .var .h .opt .def
-.c.o:
-       $(CCOMPILER) $<
-.ml.cmo:
-       $(COMPILER) $<
-.mli.cmi:
-       $(COMPILER) $<
-.ml.cmx:
-       $(COMPOPT) $<
-.var.h:
-       ./var2def < $< > $@
-.var.c:
-       ./var2conv < $< > $@
-
-# Targets
-COBJS = ml_gtk_mathview.o
-MLOBJS = gtk_mathview.cmo gtkMathView.cmo gMathView.cmo
-ALLOBJS = $(MLOBJS)
-
-lablgtkmathviewopt: $(CLIBS) $(MLLIBS:.cma=.cmxa)
-
-install:
-       if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
-       cp $(ALLOBJS:.cmo=.cmi) $(INSTALLDIR)
-       if test -f *.mli ; then cp *.mli $(INSTALLDIR) ; fi
-       cp $(ALLOBJS:.cmo=.ml) $(INSTALLDIR)
-       cp $(MLLIBS) $(INSTALLDIR)
-       cp $(COBJS) $(INSTALLDIR)
-       if test ! -z "$(CLIBS)" ; then cp $(CLIBS) $(INSTALLDIR) ; fi
-       if test -f lablgtkmathview.cmxa; then \
-          cp $(MLLIBS:.cma=.cmxa) $(MLLIBS:.cma=.a) \
-             $(INSTALLDIR); fi
-
-lablgtkmathview.cma: $(MLOBJS)
-       $(LINKER) -a -custom -o $@ $(MLOBJS) $(GTKLIBS) -cclib "$(GTKMATHVIEWLIBS)" -cclib "$(MINIDOMLIBS)"
-lablgtkmathview.cmxa: $(MLOBJS:.cmo=.cmx)
-       $(LINKOPT) -a -o $@ $(MLOBJS:.cmo=.cmx) $(GTKLIBS) -cclib "$(GTKMATHVIEWLIBS)" -cclib "$(MINIDOMLIBS)"
-
-ml_gtk.o: $(LABLGTKDIR)/gtk_tags.c $(LABLGTKDIR)/gtk_tags.h \
-          $(LABLGTKDIR)/ml_gtk.h $(LABLGTKDIR)/ml_gdk.h $(LABLGTKDIR)/wrappers.h
-
-clean:
-       rm -f *.cm* *.o *.a *_tags.[ch] $(TARGETS)
-       cd $(MINIDOMDIR); make clean
-       cd $(TESTDIR); make clean
-
-include .depend

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/configure.mk b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/configure.mk
deleted file mode 100644 (file)
index 8982371..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/configure.mk
+++ /dev/null
@@ -1,59 +0,0 @@
-# makefile for configuring lablGTK_mathview
-
-# Default compilers
-CAMLC = ocamlc
-CAMLOPT = ocamlopt
-
-# Default installation directories
-BINDIR = `$(GETBINDIR)`
-INSTALLDIR = $(LIBDIR)/lablgtk/mathview
-
-# Autoconf
-GETLIBDIR = ocamlc -v | grep "^Standard" | sed 's/^.*: *//'
-LIBDIR = `$(GETLIBDIR)`
-GETBINDIR = $(GETLIBDIR) | sed -e 's|/lib/[^/]*$$|/bin|' -e 's|/lib$$|/bin|'
-GETRANLIB = which ranlib 2>/dev/null | sed -e 's|.*/ranlib$$|!|' -e 's/^[^!]*$$/:/' -e 's/!/ranlib/'
-
-ifdef USE_GNOME
-GTKGETCFLAGS = gtk-config --cflags`" -I"`gnome-config --includedir
-GNOMELIBS = `gnome-config --libs gtkxmhtml`
-else
-GTKGETCFLAGS = gtk-config --cflags
-endif
-
-GTKGETLIBS = gtk-config --libs
-
-configure: .depend config.make
-
-.depend:
-       ocamldep *.ml *.mli > .depend
-
-config.make:
-       @echo CAMLC=$(CAMLC) > config.make
-       @echo CAMLOPT=$(CAMLOPT) >> config.make
-       @echo USE_GL=$(USE_GL) >> config.make
-       @echo USE_GNOME=$(USE_GNOME) >> config.make
-       @echo USE_CC=$(USE_CC) >> config.make
-       @echo DEBUG=$(DEBUG) >> config.make
-       @echo CC=$(CC) >> config.make
-       @echo RANLIB=`$(GETRANLIB)` >> config.make
-       @echo LIBDIR=$(LIBDIR) >> config.make
-       @echo BINDIR=`$(GETBINDIR)` >> config.make
-       @echo INSTALLDIR=$(INSTALLDIR) >> config.make
-# Luca: was
-#      @echo GTKCFLAGS=`$(GTKGETCFLAGS)` -I/usr/lib/ocaml/lablgtk >> config.make
-# Luca: now
-       @echo GTKCFLAGS=`$(GTKGETCFLAGS)` -I$(LIBDIR)/lablgtk >> config.make
-       @echo GTKLIBS=`$(GTKGETLIBS)` | \
-         sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
-         >> config.make
-# Luca: GtkMathView configuration
-       @echo GTKMATHVIEWCFLAGS=`gtkmathview-config --cflags` >> config.make
-       @echo MINIDOMCFLAGS=`minidom-config --cflags` >> config.make
-       @echo GTKMATHVIEWLIBS=`gtkmathview-config --libs` >> config.make
-       @echo MINIDOMLIBS=`minidom-config --libs` >> config.make
-# Luca: end of GtkMathView configuration
-       @echo GNOMELIBS=$(GNOMELIBS) | \
-         sed -e 's/-l/-cclib &/g' -e 's/-[LRWr][^ ]*/-ccopt &/g' \
-         >> config.make
-       cat config.make

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/gMathView.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/gMathView.ml
deleted file mode 100644 (file)
index e897ccf..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/gMathView.ml
+++ /dev/null
@@ -1,80 +0,0 @@
-open Gaux
-open Gtk
-open Gtk_mathview
-open GtkBase
-open GtkMathView
-open GObj
-
-exception ErrorLoadingFile of string;;
-exception ErrorWritingFile of string;;
-exception NoSelection;;
-
-class math_view_signals obj = object
-  inherit GContainer.container_signals obj
-  method clicked = GtkSignal.connect ~sgn:MathView.Signals.clicked obj ~after
-  method jump = GtkSignal.connect ~sgn:MathView.Signals.jump obj ~after
-  method selection_changed =
-  GtkSignal.connect ~sgn:MathView.Signals.selection_changed obj ~after
-end
-
-class math_view obj = object
- inherit GContainer.container (obj : Gtk_mathview.math_view obj)
- method connect = new math_view_signals obj
- method load ~filename =
-  if not (MathView.load obj ~filename) then raise (ErrorLoadingFile filename)
- method unload = MathView.unload obj
- method get_selection = MathView.get_selection obj
- method set_selection (node : Ominidom.o_mDOMNode option) = MathView.set_selection obj node
- method get_width = MathView.get_width obj
- method get_height = MathView.get_height obj
- method get_top = MathView.get_top obj
- method set_top = MathView.set_top obj
- method set_adjustments =
-  fun adj1 adj2 ->
-   MathView.set_adjustments obj (GData.as_adjustment adj1)
-   (GData.as_adjustment adj2)
- method get_hadjustment = new GData.adjustment (MathView.get_hadjustment obj)
- method get_vadjustment = new GData.adjustment (MathView.get_vadjustment obj)
- method get_buffer = MathView.get_buffer obj
- method get_frame = new GBin.frame (MathView.get_frame obj)
- method set_font_size = MathView.set_font_size obj
- method get_font_size = MathView.get_font_size obj
- method set_anti_aliasing = MathView.set_anti_aliasing obj
- method get_anti_aliasing = MathView.get_anti_aliasing obj
- method set_kerning = MathView.set_kerning obj
- method get_kerning = MathView.get_kerning obj
- method set_log_verbosity = MathView.set_log_verbosity obj
- method get_log_verbosity = MathView.get_log_verbosity obj
- method export_to_postscript
-       ?(width = 595) ?(height = 822) ?(x_margin = 72) ?(y_margin = 72)
-       ?(disable_colors = false) ~filename () =
-  let result = MathView.export_to_postscript obj
-       ~width ~height ~x_margin ~y_margin ~disable_colors ~filename
-  in
-  if not result then raise (ErrorWritingFile filename)
- method get_font_manager_type = MathView.get_font_manager_type obj
- method set_font_manager_type ~fm_type = MathView.set_font_manager_type obj ~fm_type
-end
-
-let math_view ?adjustmenth ?adjustmentv ?font_size ?font_manager ?border_width
- ?width ?height ?packing ?show () =
- let w =
-   MathView.create
-    ?adjustmenth:(may_map ~f:GData.as_adjustment adjustmenth)
-    ?adjustmentv:(may_map ~f:GData.as_adjustment adjustmentv)
-    ()
- in
-  Container.set w ?border_width ?width ?height;
- let mathview = pack_return (new math_view w) ~packing ~show in
- begin
-    match font_size with
-    | Some size -> mathview#set_font_size size
-    | None      -> ()
-  end;
-  begin
-    match font_manager with
-    | Some manager -> mathview#set_font_manager_type ~fm_type:manager
-    | None         -> ()
-  end;
-  mathview
-;;

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/gtkMathView.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/gtkMathView.ml
deleted file mode 100644 (file)
index 4c893fa..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/gtkMathView.ml
+++ /dev/null
@@ -1,118 +0,0 @@
-open Gtk
-open Gtk_mathview
-open Tags
-open GtkBase
-open Gpointer
-
-external mDOMNode_of_boxed_option :
- Gpointer.boxed option -> Minidom.mDOMNode =
-  "ml_gtk_math_view_mDOMNode_of_bodex_option"
-
-external mDOMNode_option_of_boxed_option :
- Gpointer.boxed option -> Minidom.mDOMNode option =
-  "ml_gtk_math_view_mDOMNode_option_of_bodex_option"
-
-let o_mDOMNode_of_mDOMNode node = new Ominidom.o_mDOMNode node
-
-let o_mDOMNode_option_of_mDOMNode_option =
-  function
-  | Some x -> Some (o_mDOMNode_of_mDOMNode x)
-  | None   -> None
-
-let mDOMNode_option_of_o_mDOMNode_option =
-  function
-  | Some x -> Some (x#get_dom_node)
-  | None   -> None
-
-module MathView = struct
-  exception NoSelection
-
-  let cast w : math_view obj = Object.try_cast w "GtkMathView"
-  external create : Gtk.adjustment optobj -> Gtk.adjustment optobj -> 
-   math_view obj = "ml_gtk_math_view_new"
-  let create ~adjustmenth ~adjustmentv () =
-   create (optboxed adjustmenth) (optboxed adjustmentv)
-  external load : [>`math_view] obj -> filename:string -> bool =
-   "ml_gtk_math_view_load"
-  external unload : [>`math_view] obj -> unit =
-   "ml_gtk_math_view_unload"
-  external raw_get_selection : [>`math_view] obj -> Minidom.mDOMNode option =
-   "ml_gtk_math_view_get_selection"
-  let get_selection obj =
-   o_mDOMNode_option_of_mDOMNode_option (raw_get_selection obj)
-  external raw_set_selection : [>`math_view] obj -> Minidom.mDOMNode option -> unit=
-   "ml_gtk_math_view_set_selection"
-  let set_selection obj node =
-   raw_set_selection obj (mDOMNode_option_of_o_mDOMNode_option node)
-  external get_width : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_width"
-  external get_height : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_height"
-  external get_top : [>`math_view] obj -> (int * int) =
-   "ml_gtk_math_view_get_top"
-  external set_top : [>`math_view] obj -> int -> int -> unit =
-   "ml_gtk_math_view_set_top"
-  external set_adjustments : [>`math_view] obj -> Gtk.adjustment obj -> Gtk.adjustment obj -> unit =
-   "ml_gtk_math_view_set_adjustments"
-  external get_hadjustment : [>`math_view] obj -> Gtk.adjustment obj =
-   "ml_gtk_math_view_get_hadjustment"
-  external get_vadjustment : [>`math_view] obj -> Gtk.adjustment obj =
-   "ml_gtk_math_view_get_vadjustment"
-  external get_buffer : [>`math_view] obj -> Gdk.pixmap =
-   "ml_gtk_math_view_get_buffer"
-  external get_frame : [>`math_view] obj -> [`frame] obj =
-   "ml_gtk_math_view_get_frame"
-  external set_font_size : [>`math_view] obj -> int -> unit =
-   "ml_gtk_math_view_set_font_size"
-  external get_font_size : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_font_size"
-  external set_anti_aliasing : [>`math_view] obj -> bool -> unit =
-   "ml_gtk_math_view_set_anti_aliasing"
-  external get_anti_aliasing : [>`math_view] obj -> bool =
-   "ml_gtk_math_view_get_anti_aliasing"
-  external set_kerning : [>`math_view] obj -> bool -> unit =
-   "ml_gtk_math_view_set_kerning"
-  external get_kerning : [>`math_view] obj -> bool =
-   "ml_gtk_math_view_get_kerning"
-  external set_log_verbosity : [>`math_view] obj -> int -> unit =
-   "ml_gtk_math_view_set_log_verbosity"
-  external get_log_verbosity : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_log_verbosity"
-  external export_to_postscript :
-   [>`math_view] obj -> width:int -> height:int -> x_margin:int -> y_margin:int -> disable_colors:bool -> filename:string -> bool =
-   "ml_gtk_math_view_export_to_postscript_bytecode" "ml_gtk_math_view_export_to_postscript_native"
-  external get_font_manager_type : [>`math_view] obj ->
-   [`font_manager_gtk | `font_manager_t1] =
-   "ml_gtk_math_view_get_font_manager_type"
-  external set_font_manager_type : [>`math_view] obj ->
-    fm_type:[`font_manager_gtk | `font_manager_t1] -> unit =
-   "ml_gtk_math_view_set_font_manager_type"
-  
-  module Signals = struct
-    open GtkSignal
-
-    let clicked : ([>`math_view],_) t =
-     let marshal_clicked f _ =
-      function
-         [GtkArgv.POINTER node] -> f (o_mDOMNode_of_mDOMNode (mDOMNode_of_boxed_option node))
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_clicked"
-     in
-      { name = "clicked"; marshaller = marshal_clicked }
-
-    let jump : ([>`math_view],_) t =
-     let marshal_jump f _ =
-      function
-         [GtkArgv.POINTER node] -> f (o_mDOMNode_of_mDOMNode (mDOMNode_of_boxed_option node))
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_jump"
-     in
-      { name = "jump"; marshaller = marshal_jump }
-
-    let selection_changed : ([>`math_view],_) t =
-     let marshal_selection_changed f _ =
-      function
-         [GtkArgv.POINTER node] -> f (o_mDOMNode_option_of_mDOMNode_option (mDOMNode_option_of_boxed_option node))
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_selection_changed"
-     in
-      { name = "selection_changed"; marshaller = marshal_selection_changed }
-  end
-end

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/gtk_mathview.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/gtk_mathview.ml
deleted file mode 100644 (file)
index 745a1ba..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/gtk_mathview.ml
+++ /dev/null
@@ -1 +0,0 @@
-type math_view = [`widget|`container|`bin|`eventbox|`math_view]

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/.cvsignore b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/.cvsignore
deleted file mode 100644 (file)
index 84bdd8e..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmi *.cmo *.cmx test test.opt

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/Makefile b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/Makefile
deleted file mode 100644 (file)
index 6fe73af..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/Makefile
+++ /dev/null
@@ -1,51 +0,0 @@
-LIBDIR = /usr/lib/ocaml
-INSTALLDIR = $(LIBDIR)/minidom
-OBJECTS = minidom.cmi minidom.cmo ml_minidom.o ominidom.cmi ominidom.cmo
-OBJECTS_OPT = minidom.cmx ominidom.cmx
-INST = minidom.o ominidom.o ml_minidom.h minidom.mli
-
-all: $(OBJECTS) test
-
-opt: $(OBJECTS_OPT) test.opt
-
-ml_minidom.o: ml_minidom.c
-       gcc -c -I/usr/lib/ocaml/caml/ `glib-config --cflags` `minidom-config --cflags` $<
-
-minidom.cmi: minidom.mli
-       ocamlc -c $<
-
-minidom.cmo: minidom.ml minidom.cmi
-       ocamlc -c $<
-
-minidom.cmx: minidom.ml minidom.cmi
-       ocamlopt -c $<
-
-ominidom.cmi: ominidom.mli
-       ocamlc -c $<
-
-ominidom.cmo: ominidom.ml
-       ocamlc -c $<
-
-ominidom.cmx: ominidom.ml
-       ocamlopt -c $<
-
-test.cmo: test.ml minidom.cmo
-       ocamlc -c test.ml
-
-test.cmx: test.ml minidom.cmx
-       ocamlopt -c test.ml
-
-test: test.cmo minidom.cmo ml_minidom.o
-       ocamlc -custom -o test minidom.cmo test.cmo ml_minidom.o \
-        -cclib "`glib-config --libs` `minidom-config --libs`"
-
-test.opt: test.cmx minidom.cmx ml_minidom.o
-       ocamlopt -o test.opt minidom.cmx test.cmx ml_minidom.o \
-        -cclib "`glib-config --libs` `minidom-config --libs`"
-
-install:
-       if test -d $(INSTALLDIR); then : ; else mkdir -p $(INSTALLDIR); fi
-       cp $(OBJECTS) $(OBJECTS_OPT) $(INST) $(INSTALLDIR)
-
-clean:
-       rm -f *.o *.cm? test test.opt

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/minidom.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/minidom.ml
deleted file mode 100644 (file)
index 31e677b..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/minidom.ml
+++ /dev/null
@@ -1,61 +0,0 @@
-
-type mDOMString
-type mDOMDoc
-type mDOMNode
-type mDOMAttr
-type mDOMEntity
-
-external string_of_mDOMString : mDOMString -> string = "ml_string_of_mDOMString"
-external mDOMString_of_string : string -> mDOMString = "ml_mDOMString_of_string"
-external mDOMString_eq : string -> string -> bool = "ml_mDOMString_eq"
-
-external doc_load : string -> mDOMDoc = "ml_doc_load"
-external doc_unload : mDOMDoc -> unit = "ml_doc_unload"
-
-external doc_new : mDOMString -> mDOMDoc = "ml_doc_new"
-external doc_get_root_node : mDOMDoc -> mDOMNode = "ml_doc_get_root_node"
-
-external doc_add_entity : mDOMDoc -> mDOMString -> mDOMString -> mDOMEntity = "ml_doc_add_entity"
-external doc_get_entity : mDOMDoc -> mDOMString -> mDOMEntity option = "ml_doc_get_entity"
-external doc_get_predefined_entity : mDOMDoc -> mDOMString -> mDOMEntity option = "ml_doc_get_predefined_entity"
-external entity_get_content : mDOMEntity -> mDOMString = "ml_entity_get_content"
-
-external node_is_text  : mDOMNode -> bool = "ml_node_is_text"
-external node_is_element : mDOMNode -> bool = "ml_node_is_element"
-external node_is_blank : mDOMNode -> bool = "ml_node_is_blank"
-external node_is_entity_ref : mDOMNode -> bool = "ml_node_is_entity_ref"
-external node_get_type : mDOMNode -> int = "ml_node_get_type"
-external node_get_name : mDOMNode -> mDOMString option = "ml_node_get_name"
-external node_get_ns_uri : mDOMNode -> mDOMString option = "ml_node_get_ns_uri"
-external node_get_attribute : mDOMNode -> mDOMString -> mDOMString option = "ml_node_get_attribute"
-external node_get_attribute_ns : mDOMNode -> mDOMString -> mDOMString -> mDOMString option = "ml_node_get_attribute_ns"
-external node_get_content : mDOMNode -> mDOMString option = "ml_node_get_content"
-external node_get_parent : mDOMNode -> mDOMNode option = "ml_node_get_parent"
-external node_get_prev_sibling : mDOMNode -> mDOMNode option = "ml_node_get_prev_sibling"
-external node_get_next_sibling : mDOMNode -> mDOMNode option = "ml_node_get_next_sibling"
-external node_get_first_child : mDOMNode -> mDOMNode option = "ml_node_get_first_child"
-external node_get_first_attribute : mDOMNode -> mDOMAttr option = "ml_node_get_first_attribute"
-external node_is_first : mDOMNode -> bool = "ml_node_is_first"
-external node_is_last : mDOMNode -> bool = "ml_node_is_last"
-
-external attr_get_name : mDOMAttr -> mDOMString option = "ml_attr_get_name"
-external attr_get_ns_uri : mDOMAttr -> mDOMString option = "ml_attr_get_ns_uri"
-external attr_get_value : mDOMAttr -> mDOMString option = "ml_attr_get_value"
-external attr_get_prev_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_prev_sibling"
-external attr_get_next_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_next_sibling"
-external attr_get_parent : mDOMAttr -> mDOMNode option = "ml_attr_get_parent"
-
-let rec node_list_of_node_first =
-  function None -> []
-  |        Some node -> node :: (node_list_of_node_first (node_get_next_sibling node))
-
-let rec attr_list_of_attr_first =
-  function None -> []
-  |        Some attr -> attr :: (attr_list_of_attr_first (attr_get_next_sibling attr))
-  
-let node_get_children node =
-  (node_list_of_node_first (node_get_first_child node))
-
-let node_get_attributes node =
-  (attr_list_of_attr_first (node_get_first_attribute node))
-

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/minidom.mli b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/minidom.mli
deleted file mode 100644 (file)
index 0b65595..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/minidom.mli
+++ /dev/null
@@ -1,50 +0,0 @@
-
-type mDOMString
-type mDOMDoc
-type mDOMNode
-type mDOMAttr
-type mDOMEntity
-
-external string_of_mDOMString : mDOMString -> string = "ml_string_of_mDOMString"
-external mDOMString_of_string : string -> mDOMString = "ml_mDOMString_of_string"
-external mDOMString_eq : string -> string -> bool = "ml_mDOMString_eq"
-
-external doc_load : string -> mDOMDoc = "ml_doc_load"
-external doc_unload : mDOMDoc -> unit = "ml_doc_unload"
-
-external doc_new : mDOMString -> mDOMDoc = "ml_doc_new"
-external doc_get_root_node : mDOMDoc -> mDOMNode = "ml_doc_get_root_node"
-
-external doc_add_entity : doc:mDOMDoc -> name:mDOMString -> content:mDOMString -> mDOMEntity = "ml_doc_add_entity"
-external doc_get_entity : doc:mDOMDoc -> name:mDOMString -> mDOMEntity option = "ml_doc_get_entity"
-external doc_get_predefined_entity : doc:mDOMDoc -> name:mDOMString -> mDOMEntity option = "ml_doc_get_predefined_entity"
-external entity_get_content : mDOMEntity -> mDOMString = "ml_entity_get_content"
-
-external node_is_text  : mDOMNode -> bool = "ml_node_is_text"
-external node_is_element : mDOMNode -> bool = "ml_node_is_element"
-external node_is_blank : mDOMNode -> bool = "ml_node_is_blank"
-external node_is_entity_ref : mDOMNode -> bool = "ml_node_is_entity_ref"
-external node_get_type : mDOMNode -> int = "ml_node_get_type"
-external node_get_name : mDOMNode -> mDOMString option = "ml_node_get_name"
-external node_get_ns_uri : mDOMNode -> mDOMString option = "ml_node_get_ns_uri"
-external node_get_attribute : node:mDOMNode -> name:mDOMString -> mDOMString option = "ml_node_get_attribute"
-external node_get_attribute_ns : node:mDOMNode -> name:mDOMString -> ns_uri:mDOMString -> mDOMString option = "ml_node_get_attribute_ns"
-external node_get_content : mDOMNode -> mDOMString option = "ml_node_get_content"
-external node_get_parent : mDOMNode -> mDOMNode option = "ml_node_get_parent"
-external node_get_prev_sibling : mDOMNode -> mDOMNode option = "ml_node_get_prev_sibling"
-external node_get_next_sibling : mDOMNode -> mDOMNode option = "ml_node_get_next_sibling"
-external node_get_first_child : mDOMNode -> mDOMNode option = "ml_node_get_first_child"
-external node_get_first_attribute : mDOMNode -> mDOMAttr option = "ml_node_get_first_attribute"
-external node_is_first : mDOMNode -> bool = "ml_node_is_first"
-external node_is_last : mDOMNode -> bool = "ml_node_is_last"
-
-external attr_get_name : mDOMAttr -> mDOMString option = "ml_attr_get_name"
-external attr_get_ns_uri : mDOMAttr -> mDOMString option = "ml_attr_get_ns_uri"
-external attr_get_value : mDOMAttr -> mDOMString option = "ml_attr_get_value"
-external attr_get_prev_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_prev_sibling"
-external attr_get_next_sibling : mDOMAttr -> mDOMAttr option = "ml_attr_get_next_sibling"
-external attr_get_parent : mDOMAttr -> mDOMNode option = "ml_attr_get_parent"
-
-val node_get_children : mDOMNode -> mDOMNode list
-val node_get_attributes : mDOMNode -> mDOMAttr list
-

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/ml_minidom.c b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/ml_minidom.c
deleted file mode 100644 (file)
index 1062614..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/ml_minidom.c
+++ /dev/null
@@ -1,288 +0,0 @@
-
-#include <assert.h>
-#include <mlvalues.h>
-#include <memory.h>
-
-#include "minidom.h"
-
-#define Val_ptr(p)        ((value) (p))
-#define Val_option(p,f)   ((p != NULL) ? ml_some(f(p)) : Val_unit)
-#define Val_mDOMString(s) (copy_string((char*) (s)))
-#define mDOMString_val(v) ((mDOMStringRef) String_val(v))
-
-static value
-ml_some(value v)
-{
-  CAMLparam1(v);
-  value ret = alloc_small(1,0);
-  Field(ret,0) = v;
-  CAMLreturn(ret);
-}
-
-value
-ml_string_of_mDOMString(value s)
-{
-  CAMLparam1(s);
-  CAMLreturn(s);
-}
-
-value
-ml_mDOMString_of_string(value s)
-{
-  CAMLparam1(s);
-  CAMLreturn(s);
-}
-
-value
-ml_doc_load(value file_name)
-{
-  mDOMDocRef doc_ref;
-
-  CAMLparam1(file_name);
-
-  doc_ref = mdom_load(String_val(file_name), FALSE, NULL);
-  if (doc_ref == NULL) failwith("minidom: could not load document");
-
-  CAMLreturn((value) doc_ref);
-}
-
-value
-ml_doc_unload(value doc)
-{
-  CAMLparam1(doc);
-
-  mdom_unload((mDOMDocRef) doc);
-
-  CAMLreturn(Val_unit);
-}
-
-value
-ml_doc_new(value s)
-{
-  mDOMDocRef doc_ref;
-
-  CAMLparam1(s);
-
-  doc_ref = mdom_doc_new(mDOMString_val(s));
-  if (doc_ref == NULL) failwith("minidom: could not create new document");
-
-  CAMLreturn((value) doc_ref);
-}
-
-
-value
-ml_doc_get_root_node(value doc)
-{
-  mDOMNodeRef root;
-
-  CAMLparam1(doc);
-  root = mdom_doc_get_root_node((mDOMDocRef) doc);
-  if (root == NULL) failwith("minidom: document has no root node!");
-
-  CAMLreturn((value) root);
-}
-
-value
-ml_doc_add_entity(value doc, value name, value content)
-{
-  mDOMEntityRef ent;
-
-  CAMLparam3(doc, name, content);
-  ent = mdom_doc_add_entity((mDOMDocRef) doc, mDOMString_val(name), mDOMString_val(content));
-  if (ent == NULL) failwith("minidom: could not add entity");
-
-  CAMLreturn((value) ent);
-}
-
-value
-ml_doc_get_entity(value doc, value name)
-{
-  mDOMEntityRef ent;
-
-  CAMLparam2(doc, name);
-  ent = mdom_doc_get_entity((mDOMDocRef) doc, mDOMString_val(name));
-
-  CAMLreturn(Val_option(ent, Val_ptr));
-}
-
-value
-ml_doc_get_predefined_entity(value name)
-{
-  mDOMEntityRef ent;
-
-  CAMLparam1(name);
-  ent = mdom_get_predefined_entity(mDOMString_val(name));
-
-  CAMLreturn(Val_option(ent, Val_ptr));
-}
-
-value
-ml_entity_get_content(value ent)
-{
-  CAMLparam1(ent);
-  CAMLreturn(Val_mDOMString(mdom_entity_get_content((mDOMEntityRef) ent)));
-}
-
-value
-ml_node_is_text(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_text((mDOMNodeRef) node)));
-}
-
-value
-ml_node_is_element(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_element((mDOMNodeRef) node)));
-}
-
-value
-ml_node_is_blank(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_blank((mDOMNodeRef) node)));
-}
-
-value
-ml_node_is_entity_ref(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_entity_ref((mDOMNodeRef) node)));
-}
-
-value
-ml_node_get_type(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_int(mdom_node_get_type((mDOMNodeRef) node)));
-}
-
-value
-ml_node_get_name(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_name((mDOMNodeRef) node), Val_mDOMString));
-}
-
-value
-ml_node_get_content(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_content((mDOMNodeRef) node), Val_mDOMString));
-}
-
-value
-ml_node_get_ns_uri(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_ns_uri((mDOMNodeRef) node), Val_mDOMString));
-}
-
-value
-ml_node_get_attribute(value node, value name)
-{
-  CAMLparam2(node,name);
-  CAMLreturn(Val_option(mdom_node_get_attribute((mDOMNodeRef) node, String_val(name)), Val_mDOMString));
-}
-
-value
-ml_node_get_attribute_ns(value node, value name, value ns_uri)
-{
-  CAMLparam2(node,name);
-  CAMLreturn(Val_option(mdom_node_get_attribute_ns((mDOMNodeRef) node,
-                                                  String_val(name),
-                                                  String_val(ns_uri)), Val_mDOMString));
-}
-
-value
-ml_node_get_parent(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_parent((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_get_prev_sibling(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_prev_sibling((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_get_next_sibling(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_next_sibling((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_get_first_child(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_first_child((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_get_first_attribute(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_option(mdom_node_get_first_attribute((mDOMNodeRef) node), Val_ptr));
-}
-
-value
-ml_node_is_first(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_first((mDOMNodeRef) node)));
-}
-
-value
-ml_node_is_last(value node)
-{
-  CAMLparam1(node);
-  CAMLreturn(Val_bool(mdom_node_is_last((mDOMNodeRef) node)));
-}
-
-value
-ml_attr_get_name(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_name((mDOMAttrRef) attr), Val_mDOMString));
-}
-
-value
-ml_attr_get_ns_uri(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_ns_uri((mDOMAttrRef) attr), Val_mDOMString));
-}
-
-value
-ml_attr_get_value(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_value((mDOMAttrRef) attr), Val_mDOMString));
-}
-
-value
-ml_attr_get_prev_sibling(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_prev_sibling((mDOMAttrRef) attr), Val_ptr));
-}
-
-value
-ml_attr_get_next_sibling(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_next_sibling((mDOMAttrRef) attr), Val_ptr));
-}
-
-value
-ml_attr_get_parent(value attr)
-{
-  CAMLparam1(attr);
-  CAMLreturn(Val_option(mdom_attr_get_parent((mDOMAttrRef) attr), Val_ptr));
-}
-

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/ml_minidom.h b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/ml_minidom.h
deleted file mode 100644 (file)
index d224799..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/ml_minidom.h
+++ /dev/null
@@ -1,18 +0,0 @@
-
-#ifndef ml_minidom_h
-#define ml_minidom_h
-
-#define Val_ptr(p)        ((value) (p))
-#ifndef Val_option
-#define Val_option(p,f)   ((p != NULL) ? ml_some(f(p)) : Val_unit)
-#endif /* Val_option */
-#define Val_mDOMString(s) (copy_string((char*) (s)))
-#define mDOMString_val(v) ((mDOMStringRef) String_val(v))
-#define mDOMNode_val(v) ((mDOMNodeRef) v)
-
-#define mDOMNode_option_mDOMNodeRef(p) (((p) != NULL) ? ml_some((value) (p)) : Val_unit)
-#define mDOMNodeRef_mDOMNode_option(v) ((v == Val_unit) ? NULL : (mDOMNodeRef)Field((v),0))
-#define Val_mDOMNodeRef(p)             (mDOMNode_option_mDOMNodeRef(p))
-#define mDOMNodeRef_val(v)             (mDOMNodeRef_mDOMNode_option(v))
-
-#endif /* ml_minidom_h */

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/ominidom.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/ominidom.ml
deleted file mode 100644 (file)
index 85ad2e4..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/ominidom.ml
+++ /dev/null
@@ -1,156 +0,0 @@
-
-exception Node_has_no_parent;;
-exception Node_has_no_sibling of string;;
-exception Node_has_no_children;;
-exception Node_has_no_attributes;;
-exception Attribute_has_no_sibling of string;;
-exception Attribute_has_no_parent;;
-exception Undefined_entity;;
-
-let option_to_exception v e =
-  match v with
-    Some x -> x
-  | None   -> raise e
-;;
-
-class o_mDOMString (str: Minidom.mDOMString) =
-  object
-    method get_dom_string = str
-    method get_string = Minidom.string_of_mDOMString str
-  end;;
-  
-let o_mDOMString_of_string str =
-  new o_mDOMString (Minidom.mDOMString_of_string str)
-
-class o_mDOMEntity (ent : Minidom.mDOMEntity) =
-  object
-    method get_dom_entity = ent
-    method get_content =
-      new o_mDOMString (Minidom.entity_get_content ent)
-  end
-;;
-
-class o_mDOMDoc (doc : Minidom.mDOMDoc) =
-  object
-    method get_dom_doc = doc
-
-    method get_root_node =
-      new o_mDOMNode (Minidom.doc_get_root_node doc)
-    method add_entity (name : o_mDOMString) (value : o_mDOMString) =
-      new o_mDOMEntity
-        (Minidom.doc_add_entity doc
-         (name#get_dom_string) (value#get_dom_string)
-       )
-    method get_entity (name : o_mDOMString) =
-      match Minidom.doc_get_entity doc (name#get_dom_string) with
-      | Some x -> new o_mDOMEntity x
-      | None -> raise Undefined_entity
-    method get_predefined_entity (name : o_mDOMString) =
-      match Minidom.doc_get_predefined_entity doc (name#get_dom_string) with
-      | Some x -> new o_mDOMEntity x
-      | None -> raise Undefined_entity
-  end
-and o_mDOMNode (node : Minidom.mDOMNode) =
-  object
-    method get_dom_node = node
-
-    method is_text = Minidom.node_is_text node
-    method is_element = Minidom.node_is_element node
-    method is_blank = Minidom.node_is_blank node
-    method is_entity_ref = Minidom.node_is_entity_ref node
-
-    method get_type = Minidom.node_get_type node
-    method get_name = 
-      match Minidom.node_get_name node with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_ns_uri =
-      match Minidom.node_get_ns_uri node with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_attribute (name : o_mDOMString) =
-      match Minidom.node_get_attribute node (name#get_dom_string) with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_attribute_ns (name : o_mDOMString) (uri : o_mDOMString) =
-      match 
-        Minidom.node_get_attribute_ns node
-         (name#get_dom_string) (uri#get_dom_string)
-      with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_content =
-      match Minidom.node_get_content node with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_parent =
-      new o_mDOMNode
-       (option_to_exception (Minidom.node_get_parent node) Node_has_no_parent)
-    method get_prev_sibling =
-      new o_mDOMNode
-       (option_to_exception
-        (Minidom.node_get_prev_sibling node)
-        (Node_has_no_sibling "left")
-       )
-    method get_next_sibling =
-      new o_mDOMNode
-       (option_to_exception
-        (Minidom.node_get_next_sibling node)
-        (Node_has_no_sibling "right")
-       )
-    method get_first_child =
-      new o_mDOMNode
-       (option_to_exception
-        (Minidom.node_get_first_child node)
-        (Node_has_no_children)
-       )
-    method get_first_attribute =
-      new o_mDOMAttr
-       (option_to_exception
-         (Minidom.node_get_first_attribute node)
-         (Node_has_no_attributes)
-       )
-    method is_first = Minidom.node_is_first node
-    method is_last = Minidom.node_is_last node
-
-    method get_children =
-      List.map (function x -> new o_mDOMNode x) (Minidom.node_get_children node)
-    method get_attributes = List.map
-      (function x -> new o_mDOMAttr x) (Minidom.node_get_attributes node)
-  end
-and o_mDOMAttr (attr : Minidom.mDOMAttr) =
-  object
-    method get_dom_attr = attr
-
-    method get_name =
-      match Minidom.attr_get_name attr with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_ns_uri =
-      match Minidom.attr_get_ns_uri attr with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_value =
-      match Minidom.attr_get_value attr with
-      | Some x -> Some (new o_mDOMString x)
-      | None   -> None
-    method get_prev_sibling =
-      new o_mDOMAttr
-        (option_to_exception
-         (Minidom.attr_get_prev_sibling attr)
-         (Attribute_has_no_sibling "left")
-       )
-    method get_next_sibling =
-      new o_mDOMAttr
-        (option_to_exception
-         (Minidom.attr_get_next_sibling attr)
-         (Attribute_has_no_sibling "right")
-       )
-    method get_parent =
-      new o_mDOMNode
-        (option_to_exception
-         (Minidom.attr_get_parent attr) Attribute_has_no_parent
-       )
-  end
-;;
-    

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/ominidom.mli b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/ominidom.mli
deleted file mode 100644 (file)
index 2432954..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/ominidom.mli
+++ /dev/null
@@ -1,64 +0,0 @@
-exception Node_has_no_parent
-exception Node_has_no_sibling of string
-exception Node_has_no_children
-exception Node_has_no_attributes
-exception Attribute_has_no_sibling of string
-exception Attribute_has_no_parent
-exception Undefined_entity
-
-class o_mDOMString : Minidom.mDOMString ->
-  object
-    method get_dom_string : Minidom.mDOMString
-    method get_string : string
-  end
-
-val o_mDOMString_of_string : string -> o_mDOMString
-
-class o_mDOMEntity : Minidom.mDOMEntity ->
-  object
-    method get_content : o_mDOMString
-    method get_dom_entity : Minidom.mDOMEntity
-  end
-
-class o_mDOMDoc : Minidom.mDOMDoc ->
-  object
-    method add_entity : o_mDOMString -> o_mDOMString -> o_mDOMEntity
-    method get_dom_doc : Minidom.mDOMDoc
-    method get_entity : o_mDOMString -> o_mDOMEntity
-    method get_predefined_entity : o_mDOMString -> o_mDOMEntity
-    method get_root_node : o_mDOMNode
-  end
-and o_mDOMNode : Minidom.mDOMNode ->
-  object
-    method get_attribute : o_mDOMString -> o_mDOMString option
-    method get_attribute_ns :
-      o_mDOMString -> o_mDOMString -> o_mDOMString option
-    method get_attributes : o_mDOMAttr list
-    method get_children : o_mDOMNode list
-    method get_content : o_mDOMString option
-    method get_dom_node : Minidom.mDOMNode
-    method get_first_attribute : o_mDOMAttr
-    method get_first_child : o_mDOMNode
-    method get_name : o_mDOMString option
-    method get_next_sibling : o_mDOMNode
-    method get_ns_uri : o_mDOMString option
-    method get_parent : o_mDOMNode
-    method get_prev_sibling : o_mDOMNode
-    method get_type : int
-    method is_blank : bool
-    method is_element : bool
-    method is_entity_ref : bool
-    method is_first : bool
-    method is_last : bool
-    method is_text : bool
-  end
-and o_mDOMAttr : Minidom.mDOMAttr ->
-  object
-    method get_dom_attr : Minidom.mDOMAttr
-    method get_name : o_mDOMString option
-    method get_next_sibling : o_mDOMAttr
-    method get_ns_uri : o_mDOMString option
-    method get_parent : o_mDOMNode
-    method get_prev_sibling : o_mDOMAttr
-    method get_value : o_mDOMString option
-  end

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/test.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/test.ml
deleted file mode 100644 (file)
index 3c7a092..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/test.ml
+++ /dev/null
@@ -1,84 +0,0 @@
-
-let doc = Minidom.doc_load "test.xml"
-
-let root = Minidom.doc_get_root_node doc
-
-let check_attribute_ns attr =
-  Printf.printf "\n\n";
-  let ns_uri = Minidom.attr_get_ns_uri attr
-  and attr_name = Minidom.attr_get_name attr
-  and attr_value = Minidom.attr_get_value attr
-  and parent = Minidom.attr_get_parent attr
-  in
-  match parent,ns_uri,attr_name,attr_value with
-    Some parent_node,Some uri,Some attribute_name,Some attribute_value ->
-      let attr_value = Minidom.node_get_attribute_ns parent_node attribute_name uri
-      in begin
-        match attr_value with
-          Some attr1 ->
-           Printf.printf "found the attribute with ns %s (was %s)\n"
-              (Minidom.string_of_mDOMString attr1) (Minidom.string_of_mDOMString attribute_value)
-        | None ->
-           Printf.printf "attribute not found (uri was %s)!!!!\n" (Minidom.string_of_mDOMString uri)
-      end
-  | _ ->
-      Printf.printf "parent_node == NULL || uri == NULL || attribute_name == NULL || attribute_value == NULL\n"
-;;
-    
-let print_attribute attr =
-  check_attribute_ns attr;
-  let ns_uri = Minidom.attr_get_ns_uri attr
-  in
-  begin
-    match ns_uri with
-      Some uri -> Printf.printf " %s:" (Minidom.string_of_mDOMString uri);
-    | None -> ()
-  end;
-  match ((Minidom.attr_get_name attr), (Minidom.attr_get_value attr)) with
-    (Some attr_name, Some attr_value) ->
-      Printf.printf " %s=\"%s\"" (Minidom.string_of_mDOMString attr_name) (Minidom.string_of_mDOMString attr_value) 
-  | (Some attr_name, _) ->
-      Printf.printf " ??? attribute %s has no value !!!" (Minidom.string_of_mDOMString attr_name)
-  | (_,_) ->
-      Printf.printf " ??? very strange attribute !!!"
-;;
-
-let rec print_node n node =
-  if Minidom.node_is_blank node then ()
-  else if Minidom.node_is_element node then begin
-    match Minidom.node_get_name node with
-      Some node_name -> 
-        begin
-          let children = Minidom.node_get_children node
-          and attributes = Minidom.node_get_attributes node
-          and ns_uri = Minidom.node_get_ns_uri node
-          and is_first,is_last = (Minidom.node_is_first node), (Minidom.node_is_last node)
-          in
-          for i = 1 to n do print_char ' ' done;
-          Printf.printf "<";
-          begin
-            match ns_uri with
-              Some uri -> Printf.printf "%s:" (Minidom.string_of_mDOMString uri)
-            | None     -> ()
-          end;
-          Printf.printf "%s" (Minidom.string_of_mDOMString node_name);
-          List.iter print_attribute attributes;
-          Printf.printf ">\n";
-          List.iter (print_node (n + 2)) children;
-          for i = 1 to n do print_char ' ' done;
-          Printf.printf "</%s>\n" (Minidom.string_of_mDOMString node_name)
-        end
-    | None -> Printf.printf "??? this node has no name !!!\n"
-  end else if Minidom.node_is_text node then begin
-    match Minidom.node_get_content node with
-      Some node_content ->
-        for i = 1 to n do print_char ' ' done;
-        Printf.printf "%s\n" (Minidom.string_of_mDOMString node_content)
-    | None -> Printf.printf "??? this node has no content !!!\n"
-  end else begin
-    Printf.printf "don't know how to manage a node with type %d\n" (Minidom.node_get_type node)
-  end
-;;
-  
-print_node 0 root;;
-

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/test.xml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/test.xml
deleted file mode 100644 (file)
index 83d2eef..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/minidom/test.xml
+++ /dev/null
@@ -1,505 +0,0 @@
-<?xml version="1.0" encoding="iso-8859-1"?>
-<?cocoon-format type="text/xhtml"?>
-<m:math xmlns:helm="http://www.cs.unibo.it/helm" xmlns:m="http://www.w3.org/1998/Math/MathML">
-    <m:mtable helm:xref="i0" columnalign="left" equalrows="false" align="baseline 1">
-        <m:mtr>
-            <m:mtd>
-                <m:mrow>
-                    <m:mtext>DEFINITION and_ind() OF TYPE</m:mtext>
-                </m:mrow>
-            </m:mtd>
-        </m:mtr>
-        <m:mtr>
-            <m:mtd>
-                <m:mrow>
-                    <m:mphantom>
-                        <m:mtext>__</m:mtext>
-                    </m:mphantom>
-                    <m:semantics xmlns:xlink="http://www.w3.org/1999/xlink">
-                        <m:mrow helm:xref="i22">
-                            <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mrow>
-                                            <m:mo stretchy="false">(</m:mo>
-                                            <m:mrow helm:xref="i23">
-                                                <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                    <m:mtr>
-                                                        <m:mtd>
-                                                            <m:mo color="Blue">&#928;</m:mo>
-                                                            <m:mi>A</m:mi>
-                                                            <m:mo>:</m:mo>
-                                                            <m:mrow helm:xref="i24">
-                                                                <m:mo>Prop</m:mo>
-                                                            </m:mrow>
-                                                        </m:mtd>
-                                                    </m:mtr>
-                                                    <m:mtr>
-                                                        <m:mtd>
-                                                            <m:mrow>
-                                                                <m:mo>.</m:mo>
-                                                                <m:mrow helm:xref="i25">
-                                                                    <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                        <m:mtr>
-                                                                            <m:mtd>
-                                                                                <m:mo color="Blue">&#928;</m:mo>
-                                                                                <m:mi>B</m:mi>
-                                                                                <m:mo>:</m:mo>
-                                                                                <m:mrow helm:xref="i26">
-                                                                                    <m:mo>Prop</m:mo>
-                                                                                </m:mrow>
-                                                                            </m:mtd>
-                                                                        </m:mtr>
-                                                                        <m:mtr>
-                                                                            <m:mtd>
-                                                                                <m:mrow>
-                                                                                    <m:mo>.</m:mo>
-                                                                                    <m:mrow helm:xref="i27">
-                                                                                        <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                                            <m:mtr>
-                                                                                                <m:mtd>
-                                                                                                    <m:mo color="Blue">&#928;</m:mo>
-                                                                                                    <m:mi>P</m:mi>
-                                                                                                    <m:mo>:</m:mo>
-                                                                                                    <m:mrow helm:xref="i28">
-                                                                                                        <m:mo>Prop</m:mo>
-                                                                                                    </m:mrow>
-                                                                                                </m:mtd>
-                                                                                            </m:mtr>
-                                                                                            <m:mtr>
-                                                                                                <m:mtd>
-                                                                                                    <m:mrow>
-                                                                                                        <m:mo>.</m:mo>
-                                                                                                        <m:mrow helm:xref="i29">
-                                                                                                            <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                                                                <m:mtr>
-                                                                                                                    <m:mtd>
-                                                                                                                        <m:mo color="Blue">&#928;</m:mo>
-                                                                                                                        <m:mi>f</m:mi>
-                                                                                                                        <m:mo>:</m:mo>
-                                                                                                                        <m:mrow helm:xref="i30">
-                                                                                                                            <m:mo stretchy="false">(</m:mo>
-                                                                                                                            <m:mi helm:xref="i31">A</m:mi>
-                                                                                                                            <m:mo color="Blue">&#8594;</m:mo>
-                                                                                                                            <m:mrow helm:xref="i32">
-                                                                                                                                <m:mo stretchy="false">(</m:mo>
-                                                                                                                                <m:mi helm:xref="i33">B</m:mi>
-                                                                                                                                <m:mo color="Blue">&#8594;</m:mo>
-                                                                                                                                <m:mi helm:xref="i34">P</m:mi>
-                                                                                                                                <m:mo stretchy="false">)</m:mo>
-                                                                                                                            </m:mrow>
-                                                                                                                            <m:mo stretchy="false">)</m:mo>
-                                                                                                                        </m:mrow>
-                                                                                                                    </m:mtd>
-                                                                                                                </m:mtr>
-                                                                                                                <m:mtr>
-                                                                                                                    <m:mtd>
-                                                                                                                        <m:mrow>
-                                                                                                                            <m:mo>.</m:mo>
-                                                                                                                            <m:mrow helm:xref="i35">
-                                                                                                                                <m:mo color="Blue">&#928;</m:mo>
-                                                                                                                                <m:mi>a</m:mi>
-                                                                                                                                <m:mo>:</m:mo>
-                                                                                                                                <m:mrow helm:xref="i36">
-                                                                                                                                    <m:mo stretchy="false">(</m:mo>
-                                                                                                                                    <m:mi xlink:href="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i37">and</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi helm:xref="i38">A</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi helm:xref="i39">B</m:mi>
-                                                                                                                                    <m:mo stretchy="false">)</m:mo>
-                                                                                                                                </m:mrow>
-                                                                                                                                <m:mo>.</m:mo>
-                                                                                                                                <m:mi helm:xref="i40">P</m:mi>
-                                                                                                                            </m:mrow>
-                                                                                                                        </m:mrow>
-                                                                                                                    </m:mtd>
-                                                                                                                </m:mtr>
-                                                                                                            </m:mtable>
-                                                                                                        </m:mrow>
-                                                                                                    </m:mrow>
-                                                                                                </m:mtd>
-                                                                                            </m:mtr>
-                                                                                        </m:mtable>
-                                                                                    </m:mrow>
-                                                                                </m:mrow>
-                                                                            </m:mtd>
-                                                                        </m:mtr>
-                                                                    </m:mtable>
-                                                                </m:mrow>
-                                                            </m:mrow>
-                                                        </m:mtd>
-                                                    </m:mtr>
-                                                </m:mtable>
-                                            </m:mrow>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mrow>
-                                            <m:mo color="#b03060">:&gt;</m:mo>
-                                            <m:mrow helm:xref="i41">
-                                                <m:mo>Prop</m:mo>
-                                            </m:mrow>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mrow>
-                                            <m:mo stretchy="false">)</m:mo>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                            </m:mtable>
-                        </m:mrow>
-                        <m:annotation-xml encoding="MathML">
-                            <m:apply helm:xref="i22">
-                                <m:csymbol>cast</m:csymbol>
-                                <m:apply helm:xref="i23">
-                                    <m:csymbol>prod</m:csymbol>
-                                    <m:bvar>
-                                        <m:ci>A</m:ci>
-                                        <m:type>
-                                            <m:apply helm:xref="i24">
-                                                <m:csymbol>Prop</m:csymbol>
-                                            </m:apply>
-                                        </m:type>
-                                    </m:bvar>
-                                    <m:apply helm:xref="i25">
-                                        <m:csymbol>prod</m:csymbol>
-                                        <m:bvar>
-                                            <m:ci>B</m:ci>
-                                            <m:type>
-                                                <m:apply helm:xref="i26">
-                                                    <m:csymbol>Prop</m:csymbol>
-                                                </m:apply>
-                                            </m:type>
-                                        </m:bvar>
-                                        <m:apply helm:xref="i27">
-                                            <m:csymbol>prod</m:csymbol>
-                                            <m:bvar>
-                                                <m:ci>P</m:ci>
-                                                <m:type>
-                                                    <m:apply helm:xref="i28">
-                                                        <m:csymbol>Prop</m:csymbol>
-                                                    </m:apply>
-                                                </m:type>
-                                            </m:bvar>
-                                            <m:apply helm:xref="i29">
-                                                <m:csymbol>prod</m:csymbol>
-                                                <m:bvar>
-                                                    <m:ci>f</m:ci>
-                                                    <m:type>
-                                                        <m:apply helm:xref="i30">
-                                                            <m:csymbol>arrow</m:csymbol>
-                                                            <m:ci helm:xref="i31">A</m:ci>
-                                                            <m:apply helm:xref="i32">
-                                                                <m:csymbol>arrow</m:csymbol>
-                                                                <m:ci helm:xref="i33">B</m:ci>
-                                                                <m:ci helm:xref="i34">P</m:ci>
-                                                            </m:apply>
-                                                        </m:apply>
-                                                    </m:type>
-                                                </m:bvar>
-                                                <m:apply helm:xref="i35">
-                                                    <m:csymbol>prod</m:csymbol>
-                                                    <m:bvar>
-                                                        <m:ci>a</m:ci>
-                                                        <m:type>
-                                                            <m:apply helm:xref="i36">
-                                                                <m:csymbol>app</m:csymbol>
-                                                                <m:ci definitionURL="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i37">and</m:ci>
-                                                                <m:ci helm:xref="i38">A</m:ci>
-                                                                <m:ci helm:xref="i39">B</m:ci>
-                                                            </m:apply>
-                                                        </m:type>
-                                                    </m:bvar>
-                                                    <m:ci helm:xref="i40">P</m:ci>
-                                                </m:apply>
-                                            </m:apply>
-                                        </m:apply>
-                                    </m:apply>
-                                </m:apply>
-                                <m:apply helm:xref="i41">
-                                    <m:csymbol>Prop</m:csymbol>
-                                </m:apply>
-                            </m:apply>
-                        </m:annotation-xml>
-                    </m:semantics>
-                </m:mrow>
-            </m:mtd>
-        </m:mtr>
-        <m:mtr>
-            <m:mtd>
-                <m:mrow>
-                    <m:mtext>AS</m:mtext>
-                </m:mrow>
-            </m:mtd>
-        </m:mtr>
-        <m:mtr>
-            <m:mtd>
-                <m:mrow>
-                    <m:mphantom>
-                        <m:mtext>__</m:mtext>
-                    </m:mphantom>
-                    <m:semantics xmlns:xlink="http://www.w3.org/1999/xlink">
-                        <m:mrow helm:xref="i1">
-                            <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mo color="Red">&#955;</m:mo>
-                                        <m:mi>A</m:mi>
-                                        <m:mo>:</m:mo>
-                                        <m:mrow helm:xref="i2">
-                                            <m:mo>Prop</m:mo>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                                <m:mtr>
-                                    <m:mtd>
-                                        <m:mrow>
-                                            <m:mo>.</m:mo>
-                                            <m:mrow helm:xref="i3">
-                                                <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                    <m:mtr>
-                                                        <m:mtd>
-                                                            <m:mo color="Red">&#955;</m:mo>
-                                                            <m:mi>B</m:mi>
-                                                            <m:mo>:</m:mo>
-                                                            <m:mrow helm:xref="i4">
-                                                                <m:mo>Prop</m:mo>
-                                                            </m:mrow>
-                                                        </m:mtd>
-                                                    </m:mtr>
-                                                    <m:mtr>
-                                                        <m:mtd>
-                                                            <m:mrow>
-                                                                <m:mo>.</m:mo>
-                                                                <m:mrow helm:xref="i5">
-                                                                    <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                        <m:mtr>
-                                                                            <m:mtd>
-                                                                                <m:mo color="Red">&#955;</m:mo>
-                                                                                <m:mi>P</m:mi>
-                                                                                <m:mo>:</m:mo>
-                                                                                <m:mrow helm:xref="i6">
-                                                                                    <m:mo>Prop</m:mo>
-                                                                                </m:mrow>
-                                                                            </m:mtd>
-                                                                        </m:mtr>
-                                                                        <m:mtr>
-                                                                            <m:mtd>
-                                                                                <m:mrow>
-                                                                                    <m:mo>.</m:mo>
-                                                                                    <m:mrow helm:xref="i7">
-                                                                                        <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                                            <m:mtr>
-                                                                                                <m:mtd>
-                                                                                                    <m:mo color="Red">&#955;</m:mo>
-                                                                                                    <m:mi>f</m:mi>
-                                                                                                    <m:mo>:</m:mo>
-                                                                                                    <m:mrow helm:xref="i8">
-                                                                                                        <m:mo stretchy="false">(</m:mo>
-                                                                                                        <m:mi helm:xref="i9">A</m:mi>
-                                                                                                        <m:mo color="Blue">&#8594;</m:mo>
-                                                                                                        <m:mrow helm:xref="i10">
-                                                                                                            <m:mo stretchy="false">(</m:mo>
-                                                                                                            <m:mi helm:xref="i11">B</m:mi>
-                                                                                                            <m:mo color="Blue">&#8594;</m:mo>
-                                                                                                            <m:mi helm:xref="i12">P</m:mi>
-                                                                                                            <m:mo stretchy="false">)</m:mo>
-                                                                                                        </m:mrow>
-                                                                                                        <m:mo stretchy="false">)</m:mo>
-                                                                                                    </m:mrow>
-                                                                                                </m:mtd>
-                                                                                            </m:mtr>
-                                                                                            <m:mtr>
-                                                                                                <m:mtd>
-                                                                                                    <m:mrow>
-                                                                                                        <m:mo>.</m:mo>
-                                                                                                        <m:mrow helm:xref="i13">
-                                                                                                            <m:mtable columnalign="left" equalrows="false" align="baseline 1">
-                                                                                                                <m:mtr>
-                                                                                                                    <m:mtd>
-                                                                                                                        <m:mo color="Red">&#955;</m:mo>
-                                                                                                                        <m:mi>a</m:mi>
-                                                                                                                        <m:mo>:</m:mo>
-                                                                                                                        <m:mrow helm:xref="i14">
-                                                                                                                            <m:mo stretchy="false">(</m:mo>
-                                                                                                                            <m:mi xlink:href="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i15">and</m:mi>
-                                                                                                                            <m:mphantom>
-                                                                                                                                <m:mtext>_</m:mtext>
-                                                                                                                            </m:mphantom>
-                                                                                                                            <m:mi helm:xref="i16">A</m:mi>
-                                                                                                                            <m:mphantom>
-                                                                                                                                <m:mtext>_</m:mtext>
-                                                                                                                            </m:mphantom>
-                                                                                                                            <m:mi helm:xref="i17">B</m:mi>
-                                                                                                                            <m:mo stretchy="false">)</m:mo>
-                                                                                                                        </m:mrow>
-                                                                                                                    </m:mtd>
-                                                                                                                </m:mtr>
-                                                                                                                <m:mtr>
-                                                                                                                    <m:mtd>
-                                                                                                                        <m:mrow>
-                                                                                                                            <m:mo>.</m:mo>
-                                                                                                                            <m:mrow helm:xref="i18">
-                                                                                                                                <m:mo>&lt;</m:mo>
-                                                                                                                                <m:mi helm:xref="i19">P</m:mi>
-                                                                                                                                <m:mo>&gt;</m:mo>
-                                                                                                                                <m:mo>CASES</m:mo>
-                                                                                                                                <m:mphantom>
-                                                                                                                                    <m:mtext>_</m:mtext>
-                                                                                                                                </m:mphantom>
-                                                                                                                                <m:mi helm:xref="i20">a</m:mi>
-                                                                                                                                <m:mphantom>
-                                                                                                                                    <m:mtext>_</m:mtext>
-                                                                                                                                </m:mphantom>
-                                                                                                                                <m:mo>OF</m:mo>
-                                                                                                                                <m:mrow>
-                                                                                                                                    <m:mo stretchy="false">(</m:mo>
-                                                                                                                                    <m:mi>conj</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi>$1</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi>$2</m:mi>
-                                                                                                                                    <m:mo stretchy="false">)</m:mo>
-                                                                                                                                </m:mrow>
-                                                                                                                                <m:mo color="Green">&#8658;</m:mo>
-                                                                                                                                <m:mrow>
-                                                                                                                                    <m:mo stretchy="false">(</m:mo>
-                                                                                                                                    <m:mi helm:xref="i21">f</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi>$1</m:mi>
-                                                                                                                                    <m:mphantom>
-                                                                                                                                        <m:mtext>_</m:mtext>
-                                                                                                                                    </m:mphantom>
-                                                                                                                                    <m:mi>$2</m:mi>
-                                                                                                                                    <m:mo stretchy="false">)</m:mo>
-                                                                                                                                </m:mrow>
-                                                                                                                                <m:mphantom>
-                                                                                                                                    <m:mtext>_</m:mtext>
-                                                                                                                                </m:mphantom>
-                                                                                                                                <m:mo>END</m:mo>
-                                                                                                                            </m:mrow>
-                                                                                                                        </m:mrow>
-                                                                                                                    </m:mtd>
-                                                                                                                </m:mtr>
-                                                                                                            </m:mtable>
-                                                                                                        </m:mrow>
-                                                                                                    </m:mrow>
-                                                                                                </m:mtd>
-                                                                                            </m:mtr>
-                                                                                        </m:mtable>
-                                                                                    </m:mrow>
-                                                                                </m:mrow>
-                                                                            </m:mtd>
-                                                                        </m:mtr>
-                                                                    </m:mtable>
-                                                                </m:mrow>
-                                                            </m:mrow>
-                                                        </m:mtd>
-                                                    </m:mtr>
-                                                </m:mtable>
-                                            </m:mrow>
-                                        </m:mrow>
-                                    </m:mtd>
-                                </m:mtr>
-                            </m:mtable>
-                        </m:mrow>
-                        <m:annotation-xml encoding="MathML">
-                            <m:lambda helm:xref="i1">
-                                <m:bvar>
-                                    <m:ci>A</m:ci>
-                                    <m:type>
-                                        <m:apply helm:xref="i2">
-                                            <m:csymbol>Prop</m:csymbol>
-                                        </m:apply>
-                                    </m:type>
-                                </m:bvar>
-                                <m:lambda helm:xref="i3">
-                                    <m:bvar>
-                                        <m:ci>B</m:ci>
-                                        <m:type>
-                                            <m:apply helm:xref="i4">
-                                                <m:csymbol>Prop</m:csymbol>
-                                            </m:apply>
-                                        </m:type>
-                                    </m:bvar>
-                                    <m:lambda helm:xref="i5">
-                                        <m:bvar>
-                                            <m:ci>P</m:ci>
-                                            <m:type>
-                                                <m:apply helm:xref="i6">
-                                                    <m:csymbol>Prop</m:csymbol>
-                                                </m:apply>
-                                            </m:type>
-                                        </m:bvar>
-                                        <m:lambda helm:xref="i7">
-                                            <m:bvar>
-                                                <m:ci>f</m:ci>
-                                                <m:type>
-                                                    <m:apply helm:xref="i8">
-                                                        <m:csymbol>arrow</m:csymbol>
-                                                        <m:ci helm:xref="i9">A</m:ci>
-                                                        <m:apply helm:xref="i10">
-                                                            <m:csymbol>arrow</m:csymbol>
-                                                            <m:ci helm:xref="i11">B</m:ci>
-                                                            <m:ci helm:xref="i12">P</m:ci>
-                                                        </m:apply>
-                                                    </m:apply>
-                                                </m:type>
-                                            </m:bvar>
-                                            <m:lambda helm:xref="i13">
-                                                <m:bvar>
-                                                    <m:ci>a</m:ci>
-                                                    <m:type>
-                                                        <m:apply helm:xref="i14">
-                                                            <m:csymbol>app</m:csymbol>
-                                                            <m:ci definitionURL="cic:/coq/INIT/Logic/Conjunction/and.ind" helm:xref="i15">and</m:ci>
-                                                            <m:ci helm:xref="i16">A</m:ci>
-                                                            <m:ci helm:xref="i17">B</m:ci>
-                                                        </m:apply>
-                                                    </m:type>
-                                                </m:bvar>
-                                                <m:apply helm:xref="i18">
-                                                    <m:csymbol>mutcase</m:csymbol>
-                                                    <m:ci helm:xref="i19">P</m:ci>
-                                                    <m:ci helm:xref="i20">a</m:ci>
-                                                    <m:apply>
-                                                        <m:csymbol>app</m:csymbol>
-                                                        <m:ci>conj</m:ci>
-                                                        <m:ci>$1</m:ci>
-                                                        <m:ci>$2</m:ci>
-                                                    </m:apply>
-                                                    <m:apply>
-                                                        <m:csymbol>app</m:csymbol>
-                                                        <m:ci helm:xref="i21">f</m:ci>
-                                                        <m:ci>$1</m:ci>
-                                                        <m:ci>$2</m:ci>
-                                                    </m:apply>
-                                                </m:apply>
-                                            </m:lambda>
-                                        </m:lambda>
-                                    </m:lambda>
-                                </m:lambda>
-                            </m:lambda>
-                        </m:annotation-xml>
-                    </m:semantics>
-                </m:mrow>
-            </m:mtd>
-        </m:mtr>
-    </m:mtable>
-</m:math>

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/ml_gtk_mathview.c b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/ml_gtk_mathview.c
deleted file mode 100644 (file)
index 3c86f00..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/ml_gtk_mathview.c
+++ /dev/null
@@ -1,159 +0,0 @@
-#include <assert.h>
-#include <string.h>
-#include <assert.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include <gtkmathview/gtkmathview.h>
-#include <ml_gtk.h>
-
-#include <wrappers.h>
-#include <ml_glib.h>
-#include <ml_gdk.h>
-#include <ml_gtk.h>
-#include <gtk_tags.h>
-
-#include <minidom.h>
-#include "minidom/ml_minidom.h"
-
-/* <CSC/>: Next row should be put in a .h of lablgtk. */
-#define GtkAdjustment_val(val) check_cast(GTK_ADJUSTMENT,val)
-
-#define GtkMathView_val(val) check_cast(GTK_MATH_VIEW,val)
-
-#define FontManagerId_val(val) Int_val(val)
-#define Val_FontManagerId(val) Val_int(val)
-
-FontManagerId
-font_manager_id_of_value(value v)
-{
-  if (v == hash_variant("font_manager_gtk")) return FONT_MANAGER_GTK;
-  else if (v == hash_variant("font_manager_t1")) return FONT_MANAGER_T1;
-  else assert(0);
-}
-
-value
-value_of_font_manager_id(FontManagerId id)
-{
-  switch (id) {
-  case FONT_MANAGER_GTK:
-    return hash_variant("font_manager_gtk");
-  case FONT_MANAGER_T1:
-    return hash_variant("font_manager_t1");
-  default:
-    assert(0);
-    break;
-  }
-}
-
-ML_2 (gtk_math_view_new,GtkAdjustment_val, GtkAdjustment_val, Val_GtkWidget_sink)
-ML_2 (gtk_math_view_load, GtkMathView_val, String_val, Val_bool)
-ML_1 (gtk_math_view_unload, GtkMathView_val, Unit)
-/*ML_1 (gtk_math_view_dump, GtkMathView_val, Unit)*/
-ML_1 (gtk_math_view_get_selection, GtkMathView_val, Val_mDOMNodeRef)
-ML_2 (gtk_math_view_set_selection, GtkMathView_val, mDOMNodeRef_val, Unit)
-ML_1 (gtk_math_view_get_width, GtkMathView_val, Val_int)
-ML_1 (gtk_math_view_get_height, GtkMathView_val, Val_int)
-ML_3 (gtk_math_view_set_top, GtkMathView_val, Int_val, Int_val, Unit)
-ML_3 (gtk_math_view_set_adjustments, GtkMathView_val, GtkAdjustment_val, GtkAdjustment_val, Unit)
-ML_1 (gtk_math_view_get_hadjustment, GtkMathView_val, Val_GtkWidget)
-ML_1 (gtk_math_view_get_vadjustment, GtkMathView_val, Val_GtkWidget)
-ML_1 (gtk_math_view_get_buffer, GtkMathView_val, Val_GdkPixmap)
-ML_1 (gtk_math_view_get_frame, GtkMathView_val, Val_GtkWidget)
-ML_2 (gtk_math_view_set_font_size, GtkMathView_val, Int_val, Unit)
-ML_1 (gtk_math_view_get_font_size, GtkMathView_val, Val_int)
-ML_2 (gtk_math_view_set_anti_aliasing, GtkMathView_val, Bool_val, Unit)
-ML_1 (gtk_math_view_get_anti_aliasing, GtkMathView_val, Val_bool)
-ML_2 (gtk_math_view_set_kerning, GtkMathView_val, Bool_val, Unit)
-ML_1 (gtk_math_view_get_kerning, GtkMathView_val, Val_bool)
-ML_2 (gtk_math_view_set_log_verbosity, GtkMathView_val, Int_val, Unit)
-ML_1 (gtk_math_view_get_log_verbosity, GtkMathView_val, Val_int)
-ML_2 (gtk_math_view_set_font_manager_type, GtkMathView_val, font_manager_id_of_value, Unit)
-ML_1 (gtk_math_view_get_font_manager_type, GtkMathView_val, value_of_font_manager_id)
-
-value
-ml_gtk_math_view_export_to_postscript_native(value arg1,
-               value w, value h, value x0, value y0, value disable_colors, value arg2)
-{
-   CAMLparam5(arg1,w,h,x0,y0);
-   CAMLxparam2(disable_colors, arg2);
-
-   char *filename;
-   FILE *fd;
-   int res;
-   filename = String_val (arg2);
-   if ((fd = fopen(filename, "w"))) {
-      gtk_math_view_export_to_postscript(GtkMathView_val (arg1),
-                     Int_val(w), Int_val(h), Int_val(x0), Int_val(y0), Bool_val(disable_colors), fd);
-      fclose (fd);
-      res = 1;
-   } else {
-      fprintf(stderr, "Error opening file %s for writing\n", filename);
-      res = 0;
-   }
-   CAMLreturn (Val_bool(res));
-}
-
-value ml_gtk_math_view_export_to_postscript_bytecode (value* arg, int argn)
-{
-   return ml_gtk_math_view_export_to_postscript_native(arg[0], arg[1], arg[2], arg[3], arg[4], arg[5], arg[6]);
-}
-
-value ml_gtk_math_view_get_top (value arg1)
-{
-   CAMLparam1(arg1);
-   CAMLlocal1 (result);
-   int x, y;
-   gtk_math_view_get_top(GtkMathView_val (arg1), &x, &y);
-   result = alloc(2, 0);
-   Store_field(result, 0, Val_int(x));
-   Store_field(result, 0, Val_int(y));
-   CAMLreturn (result);
-}
-
-
-value ml_gtk_math_view_mDOMNode_of_bodex_option (value arg1)
-{
-   CAMLparam1(arg1);
-
-   mDOMNodeRef nr;
-   CAMLlocal1 (tmp);
-   CAMLlocal1 (optval);
-   CAMLlocal1 (res);
-
-   if (arg1==Val_int(0)) {
-      assert(0);
-   } else {
-      tmp = Field(arg1, 0);
-      nr = (mDOMNodeRef) Field(tmp, 1);
-   }
-   optval = Val_mDOMNodeRef(nr);
-   if (optval==Val_int(0)) {
-      assert(0);
-   } else {
-      res = Field(optval, 0);
-   }
-
-  CAMLreturn(res);
-}
-
-value ml_gtk_math_view_mDOMNode_option_of_bodex_option (value arg1)
-{
-   CAMLparam1(arg1);
-
-   mDOMNodeRef nr;
-   CAMLlocal1 (tmp);
-
-   if (arg1==Val_int(0)) {
-      nr=NULL;
-   } else {
-      tmp = Field(arg1, 0);
-      nr = (mDOMNodeRef) Field(tmp, 1);
-   }
-
-  CAMLreturn(Val_mDOMNodeRef(nr));
-}

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/test/.cvsignore b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/test/.cvsignore
deleted file mode 100644 (file)
index 1968614..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/test/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmo *.cmi *.cmx t1lib.log test test.opt test.ps test.o

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/test/Makefile b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/test/Makefile
deleted file mode 100644 (file)
index d631d23..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/test/Makefile
+++ /dev/null
@@ -1,45 +0,0 @@
-LABLGTK_DIR = /usr/lib/ocaml/lablgtk
-LABLGTK_MATHVIEW_DIR = ..
-MINIDOM_DIR = ../minidom
-OCAMLC = ocamlc -I $(LABLGTK_DIR) -I $(LABLGTK_MATHVIEW_DIR) \
- -I $(MINIDOM_DIR) -I mlmathview
-OCAMLOPT = ocamlopt -I $(LABLGTK_DIR) -I $(LABLGTK_MATHVIEW_DIR) \
- -I $(MINIDOM_DIR) -I mlmathview
-
-all: test
-opt: test.opt
-
-test: test.cmo
-       $(OCAMLC) -custom -o test lablgtk.cma gtkInit.cmo \
-                  $(MINIDOM_DIR)/minidom.cmo \
-                  $(MINIDOM_DIR)/ominidom.cmo \
-                  $(LABLGTK_MATHVIEW_DIR)/lablgtkmathview.cma \
-                  -cclib "$(MINIDOM_DIR)/ml_minidom.o" \
-                  test.cmo \
-                  -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
-                  -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
-                  -L/usr/local/lib/gtkmathview -lgtkmathview \
-                  $(LABLGTK_MATHVIEW_DIR)/ml_gtk_mathview.o"
-
-test.opt: test.cmx
-       $(OCAMLOPT) -o test.opt lablgtk.cmxa gtkInit.cmx \
-                  $(MINIDOM_DIR)/minidom.cmx \
-                  $(MINIDOM_DIR)/ominidom.cmx \
-                  $(LABLGTK_MATHVIEW_DIR)/lablgtkmathview.cmxa \
-                  -cclib "$(MINIDOM_DIR)/ml_minidom.o" \
-                  test.cmx \
-                  -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
-                  -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
-                  -L/usr/local/lib/gtkmathview -lgtkmathview \
-                  $(LABLGTK_MATHVIEW_DIR)/ml_gtk_mathview.o"
-
-.SUFFIXES: .ml .mli .cmo .cmi .cmx
-.ml.cmo:
-       $(OCAMLC) -c $<
-.mli.cmi:
-       $(OCAMLC) -c $<
-.ml.cmx:
-       $(OCAMLOPT) -c $<
-
-clean:
-       rm -f *.cm[iox] *.o test test.opt t1lib.log test.ps

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/test/t1.config b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/test/t1.config
deleted file mode 100644 (file)
index afb669e..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/test/t1.config
+++ /dev/null
@@ -1,3 +0,0 @@
-ENCODING=.
-AFM=/usr/share/texmf/fonts/afm/
-TYPE1=/usr/share/texmf/fonts/type1/bluesky/cm/:/usr/X11R6/lib/X11/fonts/Type1/:.

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/test/test.ml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/test/test.ml
deleted file mode 100644 (file)
index dd66d38..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/test/test.ml
+++ /dev/null
@@ -1,297 +0,0 @@
-(******************************************************************************)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 25/09/2000                                 *)
-(*                                                                            *)
-(*     This is a simple test for the OCaml (LablGtk indeed) binding of the    *)
-(*                             MathView widget                                *)
-(******************************************************************************)
-
-(* Callbacks *)
-let jump (node : Ominidom.o_mDOMNode) =
- let module O = Ominidom in
-  print_string ("jump: " ^
-   (match node#get_attribute (O.o_mDOMString_of_string "href") with
-    | Some x -> x#get_string
-    | None   -> "NO HREF FOR THIS NODE"
-   ) ^ "\n");
-  flush stdout
-;;
-
-let selection_changed mathview (node : Ominidom.o_mDOMNode option) =
- let module O = Ominidom in
-  print_string ("selection_changed: " ^
-   (match node with
-       None -> "selection_changed on nothing"
-     | Some node ->
-       match node#get_name with
-       | Some x -> x#get_string
-       | None   -> "on element without name"
-   ) ^ "\n");
-  mathview#set_selection node;
-  flush stdout
-;;
-
-
-let clicked (node : Ominidom.o_mDOMNode) =
- let module O = Ominidom in
-  print_string ("clicked: " ^
-   (match node#get_name with
-    | Some x -> x#get_string
-    | None   -> "no name"
-   ) ^ "\n");
-  flush stdout
-;;
-
-
-let activate_t1 mathview () =
- mathview#set_font_manager_type `font_manager_t1;
- print_string "WIDGET SET WITH T1 FONTS\n" ;
- flush stdout
-;;
-
-let activate_gtk mathview () =
- mathview#set_font_manager_type `font_manager_gtk;
- print_string "WIDGET SET WITH GTK FONTS\n" ;
- flush stdout
-;;
-
-let get_font_manager_type mathview () =
- print_string "CURRENT FONT MANAGER TYPE: ";
- begin
-  match mathview#get_font_manager_type with
-  | `font_manager_t1 -> print_string "T1"
-  | `font_manager_gtk -> print_string "GTK"
- end;
- print_newline();
- flush stdout
-;;
-
-let load mathview () =
- mathview#load "test.xml" ;
- print_string "load: SEEMS TO WORK\n" ;
- flush stdout
-;;
-
-let get_selection mathview () =
- let module O = Ominidom in
-  let selection =
-    match mathview#get_selection with
-    | Some node ->
-      begin
-        match node#get_name with
-       | Some name -> name#get_string
-       | None      -> "element with no name!"
-      end
-    | None      -> "no selection!"
-  in
-   print_string ("get_selection: " ^ selection ^ "\n") ;
-   flush stdout
-;;
-
-let set_selection mathview () =
- let module O = Ominidom in
-  begin
-    match mathview#get_selection with
-    | Some node -> 
-      begin
-        try 
-          let parent_node = node#get_parent in
-          mathview#set_selection (Some parent_node);
-          print_string "set selection: SEEMS TO WORK\n"
-       with
-         _ -> print_string "EXCEPTION: no parent\n"
-      end
-    | None ->
-      mathview#set_selection None;
-      print_string "no selection\n"
-  end ;
-  flush stdout
-;;
-
-let unload mathview () =
- mathview#unload ;
- print_string "unload: SEEMS TO WORK\n" ;
- flush stdout
-;;
-
-let get_width mathview () =
- print_string ("get_width: " ^ string_of_int (mathview#get_width) ^ "\n") ;
- flush stdout
-;;
-
-let get_height mathview () =
- print_string ("get_height: " ^ string_of_int (mathview#get_height) ^ "\n") ;
- flush stdout
-;;
-
-let get_top mathview () =
- let (x,y) = mathview#get_top in
-  print_string ("get_top: ("^ string_of_int x ^ "," ^ string_of_int y ^ ")\n") ;
-  flush stdout
-;;
-
-let set_top mathview () =
- mathview#set_top 0 0;
- print_string "set_top: SEEM TO WORK\n" ;
- flush stdout
-;;
-
-let set_adjustments mathview () =
- let adj1 = GData.adjustment () in
- let adj2 = GData.adjustment () in
-  mathview#set_adjustments adj1 adj2 ;
-  adj1#set_value ((adj1#lower +. adj1#upper) /. 2.0) ;
-  adj2#set_value ((adj2#lower +. adj2#upper) /. 2.0) ;
-  print_string "set_adjustments: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_hadjustment mathview () =
- let adj = mathview#get_hadjustment in
-  adj#set_value ((adj#lower +. adj#upper) /. 2.0) ;
-  print_string "get_hadjustment: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_vadjustment mathview () =
- let adj = mathview#get_vadjustment in
-  adj#set_value ((adj#lower +. adj#upper) /. 2.0) ;
-  print_string "get_vadjustment: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_buffer mathview () =
- let buffer = mathview#get_buffer in
-  Gdk.Draw.rectangle buffer (Gdk.GC.create buffer) ~x:0 ~y:0
-   ~width:50 ~height:50 ~filled:true () ;
-  print_string "get_buffer: SEEMS TO WORK (hint: force the widget redrawing)\n";
-  flush stdout
-;;
-
-let get_frame mathview () =
- let frame = mathview#get_frame in
-  frame#set_shadow_type `NONE ;
-  print_string "get_frame: SEEMS TO WORK\n" ;
-  flush stdout
-;;
-
-let set_font_size mathview () =
- mathview#set_font_size 24 ;
- print_string "set_font_size: FONT IS NOW 24\n" ;
- flush stdout
-;;
- 
-let get_font_size mathview () =
- print_string ("get_font_size: " ^ string_of_int (mathview#get_font_size) ^ "\n") ;
- flush stdout
-;;
- 
-let set_anti_aliasing mathview () =
- mathview#set_anti_aliasing true ;
- print_string "set_anti_aliasing: ON\n" ;
- flush stdout
-;;
- 
-let get_anti_aliasing mathview () =
- print_string ("get_anti_aliasing: " ^
-  (match mathview#get_anti_aliasing with true -> "ON" | false -> "OFF") ^
-  "\n") ;
- flush stdout
-;;
- 
-let set_kerning mathview () =
- mathview#set_kerning true ;
- print_string "set_kerning: ON\n" ;
- flush stdout
-;;
- 
-let get_kerning mathview () =
- print_string ("get_kerning: " ^
-  (match mathview#get_kerning with true -> "ON" | false -> "OFF") ^
-  "\n") ;
- flush stdout
-;;
-
-let set_log_verbosity mathview () =
- mathview#set_log_verbosity 3 ;
- print_string "set_log_verbosity: NOW IS 3\n" ;
- flush stdout
-;;
- 
-let get_log_verbosity mathview () =
- print_string ("get_log_verbosity: " ^
-  string_of_int mathview#get_log_verbosity ^
-  "\n") ;
- flush stdout
-;;
-
-let export_to_postscript (mathview : GMathView.math_view) () =
- mathview#export_to_postscript ~filename:"test.ps" ();
- print_string "expor_to_postscript: SEEMS TO WORK (hint: look at test.ps)\n";
- flush stdout
-;;
- 
-(* Widget creation *)
-let main_window = GWindow.window ~title:"GtkMathView test" () in
-let vbox = GPack.vbox ~packing:main_window#add () in
-let sw = GBin.scrolled_window ~width:50 ~height:50 ~packing:vbox#pack () in
-let mathview= GMathView.math_view ~packing:sw#add ~width:50 ~height:50 () in
-let table = GPack.table ~rows:6 ~columns:5 ~packing:vbox#pack () in
-let button_gtk=GButton.button ~label:"activate Gtk fonts" ~packing:(table#attach ~left:0 ~top:0) () in
-let button_load = GButton.button ~label:"load" ~packing:(table#attach ~left:1 ~top:0) () in
-let button_unload = GButton.button ~label:"unload" ~packing:(table#attach ~left:2 ~top:0) () in
-let button_get_selection = GButton.button ~label:"get_selection" ~packing:(table#attach ~left:3 ~top:0) () in
-let button_set_selection = GButton.button ~label:"set_selection" ~packing:(table#attach ~left:4 ~top:0) () in
-let button_get_width = GButton.button ~label:"get_width" ~packing:(table#attach ~left:0 ~top:1) () in
-let button_get_height = GButton.button ~label:"get_height" ~packing:(table#attach ~left:1 ~top:1) () in
-let button_get_top = GButton.button ~label:"get_top" ~packing:(table#attach ~left:2 ~top:1) () in
-let button_set_top = GButton.button ~label:"set_top" ~packing:(table#attach ~left:3 ~top:1) () in
-let button_set_adjustments = GButton.button ~label:"set_adjustments" ~packing:(table#attach ~left:4 ~top:1) () in
-let button_get_hadjustment = GButton.button ~label:"get_hadjustment" ~packing:(table#attach ~left:0 ~top:2) () in
-let button_get_vadjustment = GButton.button ~label:"get_vadjustment" ~packing:(table#attach ~left:1 ~top:2) () in
-let button_get_buffer = GButton.button ~label:"get_buffer" ~packing:(table#attach ~left:2 ~top:2) () in
-let button_get_frame = GButton.button ~label:"get_frame" ~packing:(table#attach ~left:3 ~top:2) () in
-let button_set_font_size = GButton.button ~label:"set_font_size" ~packing:(table#attach ~left:4 ~top:2) () in
-let button_get_font_size = GButton.button ~label:"get_font_size" ~packing:(table#attach ~left:0 ~top:3) () in
-let button_set_anti_aliasing = GButton.button ~label:"set_anti_aliasing" ~packing:(table#attach ~left:1 ~top:3) () in
-let button_get_anti_aliasing = GButton.button ~label:"get_anti_aliasing" ~packing:(table#attach ~left:2 ~top:3) () in
-let button_set_kerning = GButton.button ~label:"set_kerning" ~packing:(table#attach ~left:3 ~top:3) () in
-let button_get_kerning = GButton.button ~label:"get_kerning" ~packing:(table#attach ~left:4 ~top:3) () in
-let button_set_log_verbosity = GButton.button ~label:"set_log_verbosity" ~packing:(table#attach ~left:0 ~top:4) () in
-let button_get_log_verbosity = GButton.button ~label:"get_log_verbosity" ~packing:(table#attach ~left:1 ~top:4) () in
-let button_export_to_postscript = GButton.button ~label:"export_to_postscript" ~packing:(table#attach ~left:2 ~top:4) () in
-let button_t1 = GButton.button ~label:"activate T1 fonts" ~packing:(table#attach ~left:3 ~top:4) () in
-let button_get_font_manager_type = GButton.button ~label:"get_font_manager" ~packing:(table#attach ~left:4 ~top:4) () in
-(* Signals connection *)
-ignore(button_gtk#connect#clicked (activate_gtk mathview)) ;
-ignore(button_load#connect#clicked (load mathview)) ;
-ignore(button_unload#connect#clicked (unload mathview)) ;
-ignore(button_get_selection#connect#clicked (get_selection mathview)) ;
-ignore(button_set_selection#connect#clicked (set_selection mathview)) ;
-ignore(button_get_width#connect#clicked (get_width mathview)) ;
-ignore(button_get_height#connect#clicked (get_height mathview)) ;
-ignore(button_get_top#connect#clicked (get_top mathview)) ;
-ignore(button_set_top#connect#clicked (set_top mathview)) ;
-ignore(button_set_adjustments#connect#clicked (set_adjustments mathview)) ;
-ignore(button_get_hadjustment#connect#clicked (get_hadjustment mathview)) ;
-ignore(button_get_vadjustment#connect#clicked (get_vadjustment mathview)) ;
-ignore(button_get_buffer#connect#clicked (get_buffer mathview)) ;
-ignore(button_get_frame#connect#clicked (get_frame mathview)) ;
-ignore(button_set_font_size#connect#clicked (set_font_size mathview)) ;
-ignore(button_get_font_size#connect#clicked (get_font_size mathview)) ;
-ignore(button_set_anti_aliasing#connect#clicked (set_anti_aliasing mathview)) ;
-ignore(button_get_anti_aliasing#connect#clicked (get_anti_aliasing mathview)) ;
-ignore(button_set_kerning#connect#clicked (set_kerning mathview)) ;
-ignore(button_get_kerning#connect#clicked (get_kerning mathview)) ;
-ignore(button_set_log_verbosity#connect#clicked (set_log_verbosity mathview)) ;
-ignore(button_get_log_verbosity#connect#clicked (get_log_verbosity mathview)) ;
-ignore(button_export_to_postscript#connect#clicked (export_to_postscript mathview)) ;
-ignore(button_t1#connect#clicked (activate_t1 mathview)) ;
-ignore(button_get_font_manager_type#connect#clicked (get_font_manager_type mathview)) ;
-ignore(mathview#connect#jump jump) ;
-ignore(mathview#connect#clicked clicked) ;
-ignore(mathview#connect#selection_changed (selection_changed mathview)) ;
-(* Main Loop *)
-main_window#show () ;
-GMain.Main.main ()
-;;

diff --git a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/test/test.xml b/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/test/test.xml
deleted file mode 100644 (file)
index b0f8c15..0000000
--- a/helm/DEVEL/lablgtk_gtkmathview/lablgtk-20001129_gtkmathview-0.2.2/test/test.xml
+++ /dev/null
@@ -1,123 +0,0 @@
-<math display="block">
-  <mrow helm:xref="SELECTION OK">
-    <mo>&int;</mo>
-    <mo>&ApplyFunction;</mo>
-    <mfrac>
-      <mrow>
-        <mrow>
-          <mi>a</mi>
-         <mo>&InvisibleTimes;</mo>
-         <mi>x</mi>
-       </mrow>
-       <mo>+</mo>
-       <mi>b</mi>
-      </mrow>
-      <mrow>
-        <msup>
-         <mi>x</mi>
-         <mn>2</mn>
-       </msup>
-       <mo>+</mo>
-       <mrow>
-         <mi>p</mi>
-         <mo>&InvisibleTimes;</mo>
-         <mi>x</mi>
-       </mrow>
-       <mo>+</mo>
-       <mi>q</mi>
-      </mrow>
-    </mfrac>
-  </mrow>
-  <mo fontstyle="italic">d</mo>
-  <mi>x</mi>
-  <mo>=</mo>
-  <mrow>
-    <mrow>
-      <mfrac><mi>a</mi><mn>2</mn></mfrac>
-      <mo>&InvisibleTimes;</mo>
-      <mrow>
-        <mi>ln</mi>
-       <mo>&ApplyFunction;</mo>
-       <mrow>
-         <mo>(</mo>
-         <mrow>
-           <msup><mi>x</mi><mn>2</mn></msup>
-           <mo>+</mo>
-           <mrow>
-             <mi>p</mi>
-             <mo>&InvisibleTimes;</mo>
-             <mi>x</mi>
-           </mrow>
-           <mo>+</mo>
-           <mi>q</mi>
-         </mrow>
-         <mo>)</mo>
-       </mrow>
-      </mrow>
-    </mrow>
-    <mo>+</mo>
-    <mrow>
-      <mfrac>
-        <mrow>
-         <mrow>
-           <mn>2</mn>
-           <mo>&InvisibleTimes;</mo>
-           <mi>b</mi>
-         </mrow>
-         <mo>-</mo>
-         <mrow>
-           <mi>a</mi>
-           <mo>&InvisibleTimes;</mo>
-           <mi>p</mi>
-         </mrow>
-       </mrow>
-       <msqrt>
-         <mrow>
-           <mrow>
-             <mn>4</mn>
-             <mo>&InvisibleTimes;</mo>
-             <mi>q</mi>
-           </mrow>
-           <mo>-</mo>
-           <msup>
-             <mi>p</mi>
-             <mn>2</mn>
-           </msup>
-         </mrow>
-       </msqrt>
-      </mfrac>
-      <mo>&InvisibleTimes;</mo>
-      <mrow>
-        <mi xlink:href="JUMPS WORK">arctg</mi>
-       <mo>&ApplyFunction;</mo>
-       <mfrac>
-         <mrow>
-           <mrow>
-             <mn>2</mn>
-             <mo>&InvisibleTimes;</mo>
-             <mi>x</mi>
-           </mrow>
-           <mo>+</mo>
-           <mi>p</mi>
-         </mrow>
-         <msqrt>
-           <mrow>
-             <mrow>
-               <mn>4</mn>
-               <mo>&InvisibleTimes;</mo>
-               <mi>q</mi>
-             </mrow>
-             <mo>-</mo>
-             <msup>
-               <mi>p</mi>
-               <mn>2</mn>
-             </msup>
-           </mrow>
-         </msqrt>
-       </mfrac>
-      </mrow>
-    </mrow>
-    <mo>+</mo>
-    <mi>c</mi>
-  </mrow>  
-</math>

diff --git a/helm/DEVEL/lablgtkmathview/.cvsignore b/helm/DEVEL/lablgtkmathview/.cvsignore
deleted file mode 100644 (file)
index b684a8b..0000000
--- a/helm/DEVEL/lablgtkmathview/.cvsignore
+++ /dev/null
@@ -1,5 +0,0 @@
-*.cmi *.cmo *.cmx *.cma *.cmxa config.make config.cache config.log configure
-Makefile
-config.status
-META
-lablgtkmathview.spec

diff --git a/helm/DEVEL/lablgtkmathview/.depend b/helm/DEVEL/lablgtkmathview/.depend
deleted file mode 100644 (file)
index 600449b..0000000
--- a/helm/DEVEL/lablgtkmathview/.depend
+++ /dev/null
@@ -1,4 +0,0 @@
-gMathView.cmo: gtkMathView.cmo gtk_mathview.cmo 
-gMathView.cmx: gtkMathView.cmx gtk_mathview.cmx 
-gtkMathView.cmo: gtk_mathview.cmo 
-gtkMathView.cmx: gtk_mathview.cmx 

diff --git a/helm/DEVEL/lablgtkmathview/AUTHORS b/helm/DEVEL/lablgtkmathview/AUTHORS
deleted file mode 100644 (file)
index 3598094..0000000
--- a/helm/DEVEL/lablgtkmathview/AUTHORS
+++ /dev/null
@@ -1,2 +0,0 @@
-Luca Padovani <luca.padovani@cs.unibo.it>
-Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>

diff --git a/helm/DEVEL/lablgtkmathview/COPYING b/helm/DEVEL/lablgtkmathview/COPYING
deleted file mode 100644 (file)
index d60c31a..0000000
--- a/helm/DEVEL/lablgtkmathview/COPYING
+++ /dev/null
@@ -1,340 +0,0 @@
-                   GNU GENERAL PUBLIC LICENSE
-                      Version 2, June 1991
-
- Copyright (C) 1989, 1991 Free Software Foundation, Inc.
-     59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-                           Preamble
-
-  The licenses for most software are designed to take away your
-freedom to share and change it.  By contrast, the GNU General Public
-License is intended to guarantee your freedom to share and change free
-software--to make sure the software is free for all its users.  This
-General Public License applies to most of the Free Software
-Foundation's software and to any other program whose authors commit to
-using it.  (Some other Free Software Foundation software is covered by
-the GNU Library General Public License instead.)  You can apply it to
-your programs, too.
-
-  When we speak of free software, we are referring to freedom, not
-price.  Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-this service if you wish), that you receive source code or can get it
-if you want it, that you can change the software or use pieces of it
-in new free programs; and that you know you can do these things.
-
-  To protect your rights, we need to make restrictions that forbid
-anyone to deny you these rights or to ask you to surrender the rights.
-These restrictions translate to certain responsibilities for you if you
-distribute copies of the software, or if you modify it.
-
-  For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must give the recipients all the rights that
-you have.  You must make sure that they, too, receive or can get the
-source code.  And you must show them these terms so they know their
-rights.
-
-  We protect your rights with two steps: (1) copyright the software, and
-(2) offer you this license which gives you legal permission to copy,
-distribute and/or modify the software.
-
-  Also, for each author's protection and ours, we want to make certain
-that everyone understands that there is no warranty for this free
-software.  If the software is modified by someone else and passed on, we
-want its recipients to know that what they have is not the original, so
-that any problems introduced by others will not reflect on the original
-authors' reputations.
-
-  Finally, any free program is threatened constantly by software
-patents.  We wish to avoid the danger that redistributors of a free
-program will individually obtain patent licenses, in effect making the
-program proprietary.  To prevent this, we have made it clear that any
-patent must be licensed for everyone's free use or not licensed at all.
-
-  The precise terms and conditions for copying, distribution and
-modification follow.
-\f
-                   GNU GENERAL PUBLIC LICENSE
-   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
-  0. This License applies to any program or other work which contains
-a notice placed by the copyright holder saying it may be distributed
-under the terms of this General Public License.  The "Program", below,
-refers to any such program or work, and a "work based on the Program"
-means either the Program or any derivative work under copyright law:
-that is to say, a work containing the Program or a portion of it,
-either verbatim or with modifications and/or translated into another
-language.  (Hereinafter, translation is included without limitation in
-the term "modification".)  Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not
-covered by this License; they are outside its scope.  The act of
-running the Program is not restricted, and the output from the Program
-is covered only if its contents constitute a work based on the
-Program (independent of having been made by running the Program).
-Whether that is true depends on what the Program does.
-
-  1. You may copy and distribute verbatim copies of the Program's
-source code as you receive it, in any medium, provided that you
-conspicuously and appropriately publish on each copy an appropriate
-copyright notice and disclaimer of warranty; keep intact all the
-notices that refer to this License and to the absence of any warranty;
-and give any other recipients of the Program a copy of this License
-along with the Program.
-
-You may charge a fee for the physical act of transferring a copy, and
-you may at your option offer warranty protection in exchange for a fee.
-
-  2. You may modify your copy or copies of the Program or any portion
-of it, thus forming a work based on the Program, and copy and
-distribute such modifications or work under the terms of Section 1
-above, provided that you also meet all of these conditions:
-
-    a) You must cause the modified files to carry prominent notices
-    stating that you changed the files and the date of any change.
-
-    b) You must cause any work that you distribute or publish, that in
-    whole or in part contains or is derived from the Program or any
-    part thereof, to be licensed as a whole at no charge to all third
-    parties under the terms of this License.
-
-    c) If the modified program normally reads commands interactively
-    when run, you must cause it, when started running for such
-    interactive use in the most ordinary way, to print or display an
-    announcement including an appropriate copyright notice and a
-    notice that there is no warranty (or else, saying that you provide
-    a warranty) and that users may redistribute the program under
-    these conditions, and telling the user how to view a copy of this
-    License.  (Exception: if the Program itself is interactive but
-    does not normally print such an announcement, your work based on
-    the Program is not required to print an announcement.)
-\f
-These requirements apply to the modified work as a whole.  If
-identifiable sections of that work are not derived from the Program,
-and can be reasonably considered independent and separate works in
-themselves, then this License, and its terms, do not apply to those
-sections when you distribute them as separate works.  But when you
-distribute the same sections as part of a whole which is a work based
-on the Program, the distribution of the whole must be on the terms of
-this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest
-your rights to work written entirely by you; rather, the intent is to
-exercise the right to control the distribution of derivative or
-collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program
-with the Program (or with a work based on the Program) on a volume of
-a storage or distribution medium does not bring the other work under
-the scope of this License.
-
-  3. You may copy and distribute the Program (or a work based on it,
-under Section 2) in object code or executable form under the terms of
-Sections 1 and 2 above provided that you also do one of the following:
-
-    a) Accompany it with the complete corresponding machine-readable
-    source code, which must be distributed under the terms of Sections
-    1 and 2 above on a medium customarily used for software interchange; or,
-
-    b) Accompany it with a written offer, valid for at least three
-    years, to give any third party, for a charge no more than your
-    cost of physically performing source distribution, a complete
-    machine-readable copy of the corresponding source code, to be
-    distributed under the terms of Sections 1 and 2 above on a medium
-    customarily used for software interchange; or,
-
-    c) Accompany it with the information you received as to the offer
-    to distribute corresponding source code.  (This alternative is
-    allowed only for noncommercial distribution and only if you
-    received the program in object code or executable form with such
-    an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for
-making modifications to it.  For an executable work, complete source
-code means all the source code for all modules it contains, plus any
-associated interface definition files, plus the scripts used to
-control compilation and installation of the executable.  However, as a
-special exception, the source code distributed need not include
-anything that is normally distributed (in either source or binary
-form) with the major components (compiler, kernel, and so on) of the
-operating system on which the executable runs, unless that component
-itself accompanies the executable.
-
-If distribution of executable or object code is made by offering
-access to copy from a designated place, then offering equivalent
-access to copy the source code from the same place counts as
-distribution of the source code, even though third parties are not
-compelled to copy the source along with the object code.
-\f
-  4. You may not copy, modify, sublicense, or distribute the Program
-except as expressly provided under this License.  Any attempt
-otherwise to copy, modify, sublicense or distribute the Program is
-void, and will automatically terminate your rights under this License.
-However, parties who have received copies, or rights, from you under
-this License will not have their licenses terminated so long as such
-parties remain in full compliance.
-
-  5. You are not required to accept this License, since you have not
-signed it.  However, nothing else grants you permission to modify or
-distribute the Program or its derivative works.  These actions are
-prohibited by law if you do not accept this License.  Therefore, by
-modifying or distributing the Program (or any work based on the
-Program), you indicate your acceptance of this License to do so, and
-all its terms and conditions for copying, distributing or modifying
-the Program or works based on it.
-
-  6. Each time you redistribute the Program (or any work based on the
-Program), the recipient automatically receives a license from the
-original licensor to copy, distribute or modify the Program subject to
-these terms and conditions.  You may not impose any further
-restrictions on the recipients' exercise of the rights granted herein.
-You are not responsible for enforcing compliance by third parties to
-this License.
-
-  7. If, as a consequence of a court judgment or allegation of patent
-infringement or for any other reason (not limited to patent issues),
-conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License.  If you cannot
-distribute so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you
-may not distribute the Program at all.  For example, if a patent
-license would not permit royalty-free redistribution of the Program by
-all those who receive copies directly or indirectly through you, then
-the only way you could satisfy both it and this License would be to
-refrain entirely from distribution of the Program.
-
-If any portion of this section is held invalid or unenforceable under
-any particular circumstance, the balance of the section is intended to
-apply and the section as a whole is intended to apply in other
-circumstances.
-
-It is not the purpose of this section to induce you to infringe any
-patents or other property right claims or to contest validity of any
-such claims; this section has the sole purpose of protecting the
-integrity of the free software distribution system, which is
-implemented by public license practices.  Many people have made
-generous contributions to the wide range of software distributed
-through that system in reliance on consistent application of that
-system; it is up to the author/donor to decide if he or she is willing
-to distribute software through any other system and a licensee cannot
-impose that choice.
-
-This section is intended to make thoroughly clear what is believed to
-be a consequence of the rest of this License.
-\f
-  8. If the distribution and/or use of the Program is restricted in
-certain countries either by patents or by copyrighted interfaces, the
-original copyright holder who places the Program under this License
-may add an explicit geographical distribution limitation excluding
-those countries, so that distribution is permitted only in or among
-countries not thus excluded.  In such case, this License incorporates
-the limitation as if written in the body of this License.
-
-  9. The Free Software Foundation may publish revised and/or new versions
-of the General Public License from time to time.  Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
-Each version is given a distinguishing version number.  If the Program
-specifies a version number of this License which applies to it and "any
-later version", you have the option of following the terms and conditions
-either of that version or of any later version published by the Free
-Software Foundation.  If the Program does not specify a version number of
-this License, you may choose any version ever published by the Free Software
-Foundation.
-
-  10. If you wish to incorporate parts of the Program into other free
-programs whose distribution conditions are different, write to the author
-to ask for permission.  For software which is copyrighted by the Free
-Software Foundation, write to the Free Software Foundation; we sometimes
-make exceptions for this.  Our decision will be guided by the two goals
-of preserving the free status of all derivatives of our free software and
-of promoting the sharing and reuse of software generally.
-
-                           NO WARRANTY
-
-  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
-OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
-TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
-PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
-REPAIR OR CORRECTION.
-
-  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
-INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
-OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
-TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
-YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
-PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGES.
-
-                    END OF TERMS AND CONDITIONS
-\f
-           How to Apply These Terms to Your New Programs
-
-  If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
-  To do so, attach the following notices to the program.  It is safest
-to attach them to the start of each source file to most effectively
-convey the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
-    <one line to give the program's name and a brief idea of what it does.>
-    Copyright (C) <year>  <name of author>
-
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-
-
-Also add information on how to contact you by electronic and paper mail.
-
-If the program is interactive, make it output a short notice like this
-when it starts in an interactive mode:
-
-    Gnomovision version 69, Copyright (C) year  name of author
-    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
-    This is free software, and you are welcome to redistribute it
-    under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License.  Of course, the commands you use may
-be called something other than `show w' and `show c'; they could even be
-mouse-clicks or menu items--whatever suits your program.
-
-You should also get your employer (if you work as a programmer) or your
-school, if any, to sign a "copyright disclaimer" for the program, if
-necessary.  Here is a sample; alter the names:
-
-  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
-  `Gnomovision' (which makes passes at compilers) written by James Hacker.
-
-  <signature of Ty Coon>, 1 April 1989
-  Ty Coon, President of Vice
-
-This General Public License does not permit incorporating your program into
-proprietary programs.  If your program is a subroutine library, you may
-consider it more useful to permit linking proprietary applications with the
-library.  If this is what you want to do, use the GNU Library General
-Public License instead of this License.

diff --git a/helm/DEVEL/lablgtkmathview/ChangeLog b/helm/DEVEL/lablgtkmathview/ChangeLog
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/DEVEL/lablgtkmathview/LICENSE b/helm/DEVEL/lablgtkmathview/LICENSE
deleted file mode 100644 (file)
index 3781bda..0000000
--- a/helm/DEVEL/lablgtkmathview/LICENSE
+++ /dev/null
@@ -1,21 +0,0 @@
-(* Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- *
- * This file is part of lablgtkmathview, the Ocaml binding
- * for the GtkMathView widget.
- * 
- * lablgtkmathview is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- *
- * lablgtkmathview is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with lablgtkmathview; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- * 
- * For details, send a mail to the author.
- *)

diff --git a/helm/DEVEL/lablgtkmathview/META.in b/helm/DEVEL/lablgtkmathview/META.in
deleted file mode 100644 (file)
index ef5298f..0000000
--- a/helm/DEVEL/lablgtkmathview/META.in
+++ /dev/null
@@ -1,5 +0,0 @@
-requires="mlminidom lablgtk"
-version="@VERSION@"
-archive(byte)="lablgtkmathview.cma ml_gtk_mathview.o"
-archive(native)="lablgtkmathview.cmxa ml_gtk_mathview.o"
-linkopts=""

diff --git a/helm/DEVEL/lablgtkmathview/Makefile.in b/helm/DEVEL/lablgtkmathview/Makefile.in
deleted file mode 100644 (file)
index e7d9c0d..0000000
--- a/helm/DEVEL/lablgtkmathview/Makefile.in
+++ /dev/null
@@ -1,96 +0,0 @@
-PACKAGE = @PACKAGE@
-VERSION = @VERSION@
-INCLUDEDIR = @OCAML_INCLUDE_DIR@
-PREFIX = 
-OBJECTS_C = ml_gtk_mathview.o
-OBJECTS =  gtk_mathview.cmo gtkMathView.cmo gMathView.cmo
-OBJECTS_OPT = gtkMathView.cmx gtk_mathview.cmx gMathView.cmx
-INST = META gMathView.cmi gtkMathView.cmi gtk_mathview.cmi
-DIST_FILES = \
-  AUTHORS COPYING ChangeLog LICENSE Makefile.in NEWS README \
-  configure.in gMathView.ml gtkMathView.ml gtk_mathview.ml \
-  ml_gtk_mathview.c META.in
-DOC_FILES = AUTHORS COPYING ChangeLog NEWS README
-REQUIRES = mlminidom lablgtk
-PREDICATES =
-MLFLAGS = -labels
-
-OCAMLC = ocamlfind ocamlc $(MLFLAGS)
-OCAMLOPT = ocamlfind ocamlopt $(MLFLAGS)
-OCAMLDEP = ocamldep
-
-ARCHIVE = $(PACKAGE).cma
-ARCHIVE_C = $(PACKAGE).a
-ARCHIVE_OPT = $(PACKAGE).cmxa
-
-TESTDIR = ./test
-TMPDIR = .test
-TMPPKGDIR = $(TMPDIR)/$(PACKAGE)
-
-all: $(OBJECTS_C) $(ARCHIVE) $(TESTDIR)/test
-
-opt: $(OBJECTS_C) $(ARCHIVE_OPT) $(TESTDIR)/test.opt
-
-dist:
-       rm -rf $(PACKAGE)-$(VERSION)
-       mkdir $(PACKAGE)-$(VERSION)
-       cp $(DIST_FILES) $(DOC_FILES) $(PACKAGE)-$(VERSION)
-       tar cvfz $(PACKAGE)-$(VERSION).tar.gz $(PACKAGE)-$(VERSION)
-       rm -rf $(PACKAGE)-$(VERSION)
-
-ml_gtk_mathview.o: ml_gtk_mathview.c
-       gcc -c -I$(INCLUDEDIR) `ocamlfind query -i-format lablgtk` `glib-config --cflags` `minidom-config --cflags` `gtk-config --cflags` `gtkmathview-config --cflags` `ocamlfind query -i-format mlminidom` $<
-
-.SUFFIXES: .cmo .cmi .cmx .ml .mli
-
-.ml.cmo:
-       $(OCAMLC) -package "$(REQUIRES)" -predicates "$(PREDICATES)" \
-                  -c $<
-.mli.cmi:
-       $(OCAMLC) -package "$(REQUIRES)" -predicates "$(PREDICATES)" \
-                  -c $<
-.ml.cmx:
-       $(OCAMLOPT) -package "$(REQUIRES)" -predicates "$(PREDICATES)" \
-                  -c $<
-
-depend: *.ml *.mli
-       $(OCAMLDEP) *.ml *.mli >.depend
-include .depend
-
-$(ARCHIVE): $(OBJECTS)
-       $(OCAMLC) -a -custom -package "$(REQUIRES)" \
-        -predicates "$(PREDICATES)" -o $@ $^ \
-        -cclib "`glib-config --libs` `minidom-config --libs` `gtkmathview-config --libs`"
-
-$(ARCHIVE_OPT): $(OBJECTS_OPT)
-       $(OCAMLOPT) -a -package "$(REQUIRES)" \
-        -predicates "$(PREDICATES)" -o $@ $^ \
-        -cclib "`glib-config --libs` `minidom-config --libs` `gtkmathview-config --libs`"
-
-$(TESTDIR)/test: $(OBJECTS_C) $(ARCHIVE) $(TESTDIR)/test.ml
-       mkdir -p $(TMPPKGDIR)
-       cp $(OBJECTS_C) $(ARCHIVE) $(INST) $(TMPPKGDIR)
-       cd $(TESTDIR) ; export OCAMLPATH=../$(TMPDIR):$$OCAMLPATH ; make
-       rm -r $(TMPDIR)
-
-$(TESTDIR)/test.opt: $(OBJECTS_C) $(ARCHIVE_C) $(ARCHIVE_OPT) $(TESTDIR)/test.ml
-       mkdir -p $(TMPPKGDIR)
-       cp $(OBJECTS_C) $(ARCHIVE_C) $(ARCHIVE_OPT) $(INST) $(TMPPKGDIR)
-       cd $(TESTDIR) ; export OCAMLPATH=../$(TMPDIR):$$OCAMLPATH ; make opt
-       rm -r $(TMPDIR)
-
-install:
-       test ! -f $(ARCHIVE_OPT) || extra="$(ARCHIVE_C) $(ARCHIVE_OPT)" ; \
-       ocamlfind install $(PACKAGE) $(OBJECTS_C) $(ARCHIVE) $(INST) $$extra
-
-uninstall:
-       ocamlfind remove $(PACKAGE)
-
-clean:
-       rm -f *.o *.cm? $(ARCHIVE) $(ARCHIVE_C) $(ARCHIVE_OPT)
-       cd $(TESTDIR) ; make clean
-       rm -rf $(TMPDIR)
-
-distclean: clean
-       rm -f config.log config.cache config.status Makefile META lablgtkmathview.spec
-       cd $(TESTDIR) ; make distclean

diff --git a/helm/DEVEL/lablgtkmathview/NEWS b/helm/DEVEL/lablgtkmathview/NEWS
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/DEVEL/lablgtkmathview/README b/helm/DEVEL/lablgtkmathview/README
deleted file mode 100644 (file)
index 61c34d4..0000000
--- a/helm/DEVEL/lablgtkmathview/README
+++ /dev/null
@@ -1,9 +0,0 @@
-This is the Ocaml binding for the GtkMathView widget.
-
-To compile and install:
-
-       ./configure
-       make
-       make opt
-       make install
-

diff --git a/helm/DEVEL/lablgtkmathview/configure.in b/helm/DEVEL/lablgtkmathview/configure.in
deleted file mode 100644 (file)
index b01be7d..0000000
--- a/helm/DEVEL/lablgtkmathview/configure.in
+++ /dev/null
@@ -1,52 +0,0 @@
-AC_INIT(gMathView.ml)
-
-PACKAGE=lablgtkmathview
-
-LABLGTKMATHVIEW_MAJOR_VERSION=0
-LABLGTKMATHVIEW_MINOR_VERSION=2
-LABLGTKMATHVIEW_MICRO_VERSION=8
-LABLGTKMATHVIEW_VERSION=$LABLGTKMATHVIEW_MAJOR_VERSION.$LABLGTKMATHVIEW_MINOR_VERSION.$LABLGTKMATHVIEW_MICRO_VERSION
-VERSION=$LABLGTKMATHVIEW_VERSION
-
-AC_CHECK_PROG(HAVE_GTKMATHVIEW, gtkmathview-config, yes, no)
-if test $HAVE_GTKMATHVIEW = "no"; then
-  AC_MSG_ERROR(could not find gtkmathview configuration script, please make sure gtkmathview is installed)
-fi
-
-AC_CHECK_PROG(HAVE_OCAMLC, ocamlc, yes, no)
-if test $HAVE_OCAMLC = "no"; then
-  AC_MSG_ERROR(could not find ocamlc in PATH, please make sure ocaml is installed)
-fi
-
-AC_CHECK_PROG(HAVE_OCAMLFIND, ocamlfind, yes, no)
-if test $HAVE_OCAMLFIND = "no"; then
-  AC_MSG_ERROR(could not find ocamlfind in PATH, please make sure findlib is installed)
-fi
-
-AC_MSG_CHECKING("for mlminidom")
-ocamlfind query mlminidom ||
-  AC_MSG_ERROR(mlminidom not installed (according to findlib))
-
-AC_MSG_CHECKING("for lablgtk")
-ocamlfind query lablgtk ||
-  AC_MSG_ERROR(lablgtk not installed (according to findlib))
-
-AC_MSG_CHECKING("for the ocaml library dir")
-OCAML_LIB_DIR=`ocamlc -where`
-AC_MSG_RESULT($OCAML_LIB_DIR)
-
-AC_CHECK_FILE(/usr/include/caml/mlvalues.h,
-       OCAML_INCLUDE_DIR=/usr/include/caml,
-       OCAML_INCLUDE_DIR=$OCAML_LIB_DIR/caml
-)
-
-AC_SUBST(PACKAGE)
-AC_SUBST(VERSION)
-AC_SUBST(OCAML_INCLUDE_DIR)
-
-AC_OUTPUT([
-  test/Makefile
-  Makefile
-  lablgtkmathview.spec
-  META
-])

diff --git a/helm/DEVEL/lablgtkmathview/debian/changelog b/helm/DEVEL/lablgtkmathview/debian/changelog
deleted file mode 100644 (file)
index e2cab05..0000000
--- a/helm/DEVEL/lablgtkmathview/debian/changelog
+++ /dev/null
@@ -1,34 +0,0 @@
-lablgtkmathview (0.2.8helm-1) unstable; urgency=low
-
-  * New upstream release.
-  * Helm version: depends on Helm version of lablgtk.
-
- -- Stefano Zacchiroli <zack@debian.org>  Sat, 17 Nov 2001 09:40:37 +0100
-
-lablgtkmathview (0.2.4-4) unstable; urgency=low
-
-  * Rebuilt with libgtkmathview 0.2.7
-
- -- Stefano Zacchiroli <zack@debian.org>  Tue,  4 Sep 2001 22:16:35 +0200
-
-lablgtkmathview (0.2.4-3) unstable; urgency=low
-
-  *  Rebuilt with ocaml 3.02 and lablgtk 1.2.1
-
- -- Stefano Zacchiroli <zack@debian.org>  Tue, 21 Aug 2001 15:20:05 +0200
-
-lablgtkmathview (0.2.4-2) unstable; urgency=low
-
-  * Added build-dep on libxml2-dev (closes: Bug#102715).
-
- -- Stefano Zacchiroli <zack@debian.org>  Fri, 29 Jun 2001 12:39:57 +0200
-
-lablgtkmathview (0.2.4-1) unstable; urgency=low
-
-  * Initial Release (closes: Bug#93105).
-
- -- Stefano Zacchiroli <zack@debian.org>  Wed,  4 Apr 2001 23:27:07 +0200
-
-Local variables:
-mode: debian-changelog
-End:

diff --git a/helm/DEVEL/lablgtkmathview/debian/control b/helm/DEVEL/lablgtkmathview/debian/control
deleted file mode 100644 (file)
index 71d2dfb..0000000
--- a/helm/DEVEL/lablgtkmathview/debian/control
+++ /dev/null
@@ -1,15 +0,0 @@
-Source: lablgtkmathview
-Section: devel
-Priority: optional
-Maintainer: Stefano Zacchiroli <zack@debian.org>
-Build-Depends: debhelper (>> 2.0.0), ocaml (>= 3.02), lablgtk (= 1.2.1helm-1), mlminidom (>= 0.2.1), libgtk1.2-dev, libgtkmathview-dev (>= 0.2.8), libminidom-dev (>= 0.1.3), libxml2-dev, ocaml-findlib
-Standards-Version: 3.5.2
-
-Package: lablgtkmathview
-Architecture: any
-Depends: ${shlibs:Depends}
-Recommends: ocaml, libgtkmathview0
-Description: OCaml binding for libgtkmathview
- This is the Ocaml binding for the GtkMathView widget, that is
- currently available in the libgtkmathview0 package.
-

diff --git a/helm/DEVEL/lablgtkmathview/debian/copyright b/helm/DEVEL/lablgtkmathview/debian/copyright
deleted file mode 100644 (file)
index 75643d1..0000000
--- a/helm/DEVEL/lablgtkmathview/debian/copyright
+++ /dev/null
@@ -1,33 +0,0 @@
-This package was debianized by Stefano Zacchiroli <zack@debian.org> on
-Wed,  4 Apr 2001 23:27:07 +0200.
-
-It was packed from source obtained via cvs, with this CVSROOT:
- :pserver:anonymous@phd.cs.unibo.it:/home/lpadovan/PHELM/
-
-Authors:
- Luca Padovani <luca.padovani@cs.unibo.it>
- Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>
-
-Copyright:
-
- Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- 
- This file is part of lablgtkmathview, the Ocaml binding
- for the GtkMathView widget.
- 
- lablgtkmathview is free software; you can redistribute it and/or
- modify it under the terms of the GNU General Public License
- as published by the Free Software Foundation; either version 2
- of the License, or (at your option) any later version.
- 
- lablgtkmathview is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- GNU General Public License for more details.
- 
- You should have received a copy of the GNU General Public License
- along with lablgtkmathview; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- 
- For details, send a mail to the author.
- 

diff --git a/helm/DEVEL/lablgtkmathview/debian/dirs b/helm/DEVEL/lablgtkmathview/debian/dirs
deleted file mode 100644 (file)
index 00a96ae..0000000
--- a/helm/DEVEL/lablgtkmathview/debian/dirs
+++ /dev/null
@@ -1 +0,0 @@
-usr/lib/ocaml

diff --git a/helm/DEVEL/lablgtkmathview/debian/docs b/helm/DEVEL/lablgtkmathview/debian/docs
deleted file mode 100644 (file)
index e845566..0000000
--- a/helm/DEVEL/lablgtkmathview/debian/docs
+++ /dev/null
@@ -1 +0,0 @@
-README

diff --git a/helm/DEVEL/lablgtkmathview/debian/rules b/helm/DEVEL/lablgtkmathview/debian/rules
deleted file mode 100755 (executable)
index 1f01a99..0000000
--- a/helm/DEVEL/lablgtkmathview/debian/rules
+++ /dev/null
@@ -1,85 +0,0 @@
-#!/usr/bin/make -f
-# Sample debian/rules that uses debhelper.
-# GNU copyright 1997 to 1999 by Joey Hess.
-
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
-
-# This is the debhelper compatability version to use.
-export DH_COMPAT=2
-
-configure: configure-stamp
-configure-stamp:
-       dh_testdir
-       # Add here commands to configure the package.
-       ./configure
-
-       touch configure-stamp
-
-build: configure-stamp build-stamp
-build-stamp:
-       dh_testdir
-
-       # Add here commands to compile the package.
-       $(MAKE)
-       -$(MAKE) opt
-       #/usr/bin/docbook-to-man debian/lablgtkmathview.sgml > lablgtkmathview.1
-
-       touch build-stamp
-
-clean:
-       dh_testdir
-       dh_testroot
-       rm -f build-stamp configure-stamp
-
-       # Add here commands to clean up after the build process.
-       -$(MAKE) distclean
-
-       dh_clean
-
-install: build
-       dh_testdir
-       dh_testroot
-       dh_clean -k
-       dh_installdirs
-
-       # Add here commands to install the package into debian/lablgtkmathview.
-       $(MAKE) install DESTDIR=$(CURDIR)/debian/lablgtkmathview/usr/lib/ocaml
-
-
-# Build architecture-independent files here.
-binary-indep: build install
-# We have nothing to do by default.
-
-# Build architecture-dependent files here.
-binary-arch: build install
-       dh_testdir
-       dh_testroot
-#      dh_installdebconf       
-       dh_installdocs
-       dh_installexamples
-       dh_installmenu
-#      dh_installlogrotate
-#      dh_installemacsen
-#      dh_installpam
-#      dh_installmime
-#      dh_installinit
-       dh_installcron
-       dh_installmanpages
-       dh_installinfo
-#      dh_undocumented
-       dh_installchangelogs ChangeLog
-       dh_link
-       dh_strip
-       dh_compress
-       dh_fixperms
-#      dh_makeshlibs
-       dh_installdeb
-#      dh_perl
-       dh_shlibdeps
-       dh_gencontrol
-       dh_md5sums
-       dh_builddeb
-
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary install configure

diff --git a/helm/DEVEL/lablgtkmathview/gMathView.ml b/helm/DEVEL/lablgtkmathview/gMathView.ml
deleted file mode 100644 (file)
index 00c239a..0000000
--- a/helm/DEVEL/lablgtkmathview/gMathView.ml
+++ /dev/null
@@ -1,113 +0,0 @@
-(* Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- *
- * This file is part of lablgtkmathview, the Ocaml binding
- * for the GtkMathView widget.
- * 
- * lablgtkmathview is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- *
- * lablgtkmathview is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with lablgtkmathview; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- * 
- * For details, send a mail to the author.
- *)
-
-open Gaux
-open Gtk
-open Gtk_mathview
-open GtkBase
-open GtkMathView
-open GObj
-
-exception ErrorLoadingFile of string;;
-exception ErrorWritingFile of string;;
-exception ErrorLoadingDOM;;
-exception NoSelection;;
-
-class math_view_signals obj = object
-  inherit GContainer.container_signals obj
-  method clicked = GtkSignal.connect ~sgn:MathView.Signals.clicked obj ~after
-  method selection_changed =
-   GtkSignal.connect ~sgn:MathView.Signals.selection_changed obj ~after
-  method element_changed =
-   GtkSignal.connect ~sgn:MathView.Signals.element_changed obj ~after
-end
-
-class math_view obj = object
- inherit GContainer.container (obj : Gtk_mathview.math_view obj)
- method connect = new math_view_signals obj
- method load ~filename =
-  if not (MathView.load obj ~filename) then raise (ErrorLoadingFile filename)
- method load_tree ~dom =
-  if not (MathView.load_tree obj ~dom) then raise ErrorLoadingDOM
- method unload = MathView.unload obj
- method get_selection = MathView.get_selection obj
- method set_selection (node : Ominidom.o_mDOMNode option) = MathView.set_selection obj node
- method get_width = MathView.get_width obj
- method get_height = MathView.get_height obj
- method get_top = MathView.get_top obj
- method set_top = MathView.set_top obj
- method set_adjustments =
-  fun adj1 adj2 ->
-   MathView.set_adjustments obj (GData.as_adjustment adj1)
-   (GData.as_adjustment adj2)
- method get_hadjustment = new GData.adjustment (MathView.get_hadjustment obj)
- method get_vadjustment = new GData.adjustment (MathView.get_vadjustment obj)
- method get_buffer = MathView.get_buffer obj
- method get_frame = new GBin.frame (MathView.get_frame obj)
- method set_font_size = MathView.set_font_size obj
- method get_font_size = MathView.get_font_size obj
- method set_anti_aliasing = MathView.set_anti_aliasing obj
- method get_anti_aliasing = MathView.get_anti_aliasing obj
- method set_kerning = MathView.set_kerning obj
- method get_kerning = MathView.get_kerning obj
- method set_transparency = MathView.set_transparency obj
- method get_transparency = MathView.get_transparency obj
- method set_log_verbosity = MathView.set_log_verbosity obj
- method get_log_verbosity = MathView.get_log_verbosity obj
- method export_to_postscript
-       ?(width = 595) ?(height = 822) ?(x_margin = 72) ?(y_margin = 72)
-       ?(disable_colors = false) ~filename () =
-  let result = MathView.export_to_postscript obj
-       ~width ~height ~x_margin ~y_margin ~disable_colors ~filename
-  in
-  if not result then raise (ErrorWritingFile filename)
- method get_font_manager_type = MathView.get_font_manager_type obj
- method set_font_manager_type ~fm_type = MathView.set_font_manager_type obj ~fm_type
- method get_element = MathView.get_element obj
- method action_get_selected = MathView.action_get_selected obj
- method action_set_selected = MathView.action_set_selected obj
- method get_action = MathView.get_action obj
- method action_toggle = MathView.action_toggle obj
-end
-
-let math_view ?adjustmenth ?adjustmentv ?font_size ?font_manager ?border_width
- ?width ?height ?packing ?show () =
- let w =
-   MathView.create
-    ?adjustmenth:(may_map ~f:GData.as_adjustment adjustmenth)
-    ?adjustmentv:(may_map ~f:GData.as_adjustment adjustmentv)
-    ()
- in
-  Container.set w ?border_width ?width ?height;
- let mathview = pack_return (new math_view w) ~packing ~show in
- begin
-    match font_size with
-    | Some size -> mathview#set_font_size size
-    | None      -> ()
-  end;
-  begin
-    match font_manager with
-    | Some manager -> mathview#set_font_manager_type ~fm_type:manager
-    | None         -> ()
-  end;
-  mathview
-;;

diff --git a/helm/DEVEL/lablgtkmathview/gtkMathView.ml b/helm/DEVEL/lablgtkmathview/gtkMathView.ml
deleted file mode 100644 (file)
index eed812d..0000000
--- a/helm/DEVEL/lablgtkmathview/gtkMathView.ml
+++ /dev/null
@@ -1,162 +0,0 @@
-(* Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- *
- * This file is part of lablgtkmathview, the Ocaml binding
- * for the GtkMathView widget.
- * 
- * lablgtkmathview is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- *
- * lablgtkmathview is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with lablgtkmathview; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- * 
- * For details, send a mail to the author.
- *)
-
-open Gtk
-open Gtk_mathview
-open Tags
-open GtkBase
-open Gpointer
-
-external mDOMNode_of_boxed_option :
- Gpointer.boxed option -> Minidom.mDOMNode =
-  "ml_gtk_math_view_mDOMNode_of_boxed_option"
-
-external mDOMNode_option_of_boxed_option :
- Gpointer.boxed option -> Minidom.mDOMNode option =
-  "ml_gtk_math_view_mDOMNode_option_of_boxed_option"
-
-let o_mDOMNode_of_mDOMNode node = new Ominidom.o_mDOMNode node
-
-let o_mDOMNode_option_of_mDOMNode_option =
-  function
-  | Some x -> Some (o_mDOMNode_of_mDOMNode x)
-  | None   -> None
-
-let mDOMNode_option_of_o_mDOMNode_option =
-  function
-  | Some x -> Some (x#get_dom_node)
-  | None   -> None
-
-module MathView = struct
-  exception NoSelection
-
-  let cast w : math_view obj = Object.try_cast w "GtkMathView"
-  external create : Gtk.adjustment optobj -> Gtk.adjustment optobj -> 
-   math_view obj = "ml_gtk_math_view_new"
-  let create ~adjustmenth ~adjustmentv () =
-   create (optboxed adjustmenth) (optboxed adjustmentv)
-  external load : [>`math_view] obj -> filename:string -> bool =
-   "ml_gtk_math_view_load"
-  external raw_load_tree : [>`math_view] obj -> Minidom.mDOMDoc -> bool =
-   "ml_gtk_math_view_load_tree"
-  let load_tree obj ~(dom:Ominidom.o_mDOMDoc) =
-   raw_load_tree obj dom#get_dom_doc
-  external unload : [>`math_view] obj -> unit =
-   "ml_gtk_math_view_unload"
-  external raw_get_selection : [>`math_view] obj -> Minidom.mDOMNode option =
-   "ml_gtk_math_view_get_selection"
-  let get_selection obj =
-   o_mDOMNode_option_of_mDOMNode_option (raw_get_selection obj)
-  external raw_set_selection : [>`math_view] obj -> Minidom.mDOMNode option -> unit=
-   "ml_gtk_math_view_set_selection"
-  let set_selection obj node =
-   raw_set_selection obj (mDOMNode_option_of_o_mDOMNode_option node)
-  external get_width : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_width"
-  external get_height : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_height"
-  external get_top : [>`math_view] obj -> (int * int) =
-   "ml_gtk_math_view_get_top"
-  external set_top : [>`math_view] obj -> int -> int -> unit =
-   "ml_gtk_math_view_set_top"
-  external set_adjustments : [>`math_view] obj -> Gtk.adjustment obj -> Gtk.adjustment obj -> unit =
-   "ml_gtk_math_view_set_adjustments"
-  external get_hadjustment : [>`math_view] obj -> Gtk.adjustment obj =
-   "ml_gtk_math_view_get_hadjustment"
-  external get_vadjustment : [>`math_view] obj -> Gtk.adjustment obj =
-   "ml_gtk_math_view_get_vadjustment"
-  external get_buffer : [>`math_view] obj -> Gdk.pixmap =
-   "ml_gtk_math_view_get_buffer"
-  external get_frame : [>`math_view] obj -> Gtk.frame obj =
-   "ml_gtk_math_view_get_frame"
-  external set_font_size : [>`math_view] obj -> int -> unit =
-   "ml_gtk_math_view_set_font_size"
-  external get_font_size : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_font_size"
-  external set_anti_aliasing : [>`math_view] obj -> bool -> unit =
-   "ml_gtk_math_view_set_anti_aliasing"
-  external get_anti_aliasing : [>`math_view] obj -> bool =
-   "ml_gtk_math_view_get_anti_aliasing"
-  external set_kerning : [>`math_view] obj -> bool -> unit =
-   "ml_gtk_math_view_set_kerning"
-  external get_kerning : [>`math_view] obj -> bool =
-   "ml_gtk_math_view_get_kerning"
-  external set_transparency : [>`math_view] obj -> bool -> unit =
-   "ml_gtk_math_view_set_transparency"
-  external get_transparency : [>`math_view] obj -> bool =
-   "ml_gtk_math_view_get_transparency"
-  external set_log_verbosity : [>`math_view] obj -> int -> unit =
-   "ml_gtk_math_view_set_log_verbosity"
-  external get_log_verbosity : [>`math_view] obj -> int =
-   "ml_gtk_math_view_get_log_verbosity"
-  external export_to_postscript :
-   [>`math_view] obj -> width:int -> height:int -> x_margin:int -> y_margin:int -> disable_colors:bool -> filename:string -> bool =
-   "ml_gtk_math_view_export_to_postscript_bytecode" "ml_gtk_math_view_export_to_postscript_native"
-  external get_font_manager_type : [>`math_view] obj ->
-   [`font_manager_gtk | `font_manager_t1] =
-   "ml_gtk_math_view_get_font_manager_type"
-  external set_font_manager_type : [>`math_view] obj ->
-    fm_type:[`font_manager_gtk | `font_manager_t1] -> unit =
-   "ml_gtk_math_view_set_font_manager_type"
-  external raw_get_element : [>`math_view] obj -> Minidom.mDOMNode option =
-   "ml_gtk_math_view_get_element"
-  let get_element obj =
-   o_mDOMNode_option_of_mDOMNode_option (raw_get_element obj)
-  external action_get_selected : [>`math_view] obj -> int =
-   "ml_gtk_math_view_action_get_selected"
-  external action_set_selected : [>`math_view] obj -> int -> unit =
-   "ml_gtk_math_view_action_set_selected"
-  external raw_get_action : [>`math_view] obj -> Minidom.mDOMNode option =
-   "ml_gtk_math_view_get_action"
-  let get_action obj =
-   o_mDOMNode_option_of_mDOMNode_option (raw_get_action obj)
-  external action_toggle : [>`math_view] obj -> unit =
-   "ml_gtk_math_view_action_toggle"
-  
-  module Signals = struct
-    open GtkSignal
-
-    let clicked : ([>`math_view],_) t =
-     let marshal_clicked f _ =
-      function
-         [GtkArgv.POINTER node] -> f (o_mDOMNode_of_mDOMNode (mDOMNode_of_boxed_option node))
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_clicked"
-     in
-      { name = "clicked"; marshaller = marshal_clicked }
-
-    let selection_changed : ([>`math_view],_) t =
-     let marshal_selection_changed f _ =
-      function
-         [GtkArgv.POINTER node] -> f (o_mDOMNode_option_of_mDOMNode_option (mDOMNode_option_of_boxed_option node))
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_selection_changed"
-     in
-      { name = "selection_changed"; marshaller = marshal_selection_changed }
-
-    let element_changed : ([>`math_view],_) t =
-     let marshal_element_changed f _ =
-      function
-         [GtkArgv.POINTER node] -> f (o_mDOMNode_option_of_mDOMNode_option (mDOMNode_option_of_boxed_option node))
-       | _ -> invalid_arg "GtkMathView.MathView.Signals.marshal_element_changed"
-     in
-      { name = "element_changed"; marshaller = marshal_element_changed }
-  end
-end

diff --git a/helm/DEVEL/lablgtkmathview/gtk_mathview.ml b/helm/DEVEL/lablgtkmathview/gtk_mathview.ml
deleted file mode 100644 (file)
index a8ef3ea..0000000
--- a/helm/DEVEL/lablgtkmathview/gtk_mathview.ml
+++ /dev/null
@@ -1,23 +0,0 @@
-(* Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- *
- * This file is part of lablgtkmathview, the Ocaml binding
- * for the GtkMathView widget.
- * 
- * lablgtkmathview is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- *
- * lablgtkmathview is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with lablgtkmathview; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- * 
- * For details, send a mail to the author.
- *)
-
-type math_view = [`widget|`container|`bin|`eventbox|`math_view]

diff --git a/helm/DEVEL/lablgtkmathview/lablgtkmathview.spec.in b/helm/DEVEL/lablgtkmathview/lablgtkmathview.spec.in
deleted file mode 100644 (file)
index 8e7e6fd..0000000
--- a/helm/DEVEL/lablgtkmathview/lablgtkmathview.spec.in
+++ /dev/null
@@ -1,28 +0,0 @@
-Summary: The LablGTK binding for the GtkMathView widget
-Name: @PACKAGE@
-Version: @VERSION@
-Release: 1
-Copyright: GPL
-URL: http://www.cs.unibo.it/helm
-Packager: Luca Padovani <luca.padovani@cs.unibo.it>
-Requires: gtkmathview >= 0.2.2 ocaml >= 3.00 lablgtk
-Group: Applications/Publishing
-Source: www.cs.unibo.it:/~lpadovan/mml-widget/@PACKAGE@-@VERSION@.tar.gz
-%description
-The LablGTK binding for the GtkMathView widget
-
-%prep
-%setup
-
-%build
-./configure
-make configure
-
-%install
-make
-make opt
-make install
-
-%files
-%doc AUTHORS COPYING ChangeLog NEWS README
-/usr/lib/ocaml/lablgtkmathview

diff --git a/helm/DEVEL/lablgtkmathview/ml_gtk_mathview.c b/helm/DEVEL/lablgtkmathview/ml_gtk_mathview.c
deleted file mode 100644 (file)
index 5038e8b..0000000
--- a/helm/DEVEL/lablgtkmathview/ml_gtk_mathview.c
+++ /dev/null
@@ -1,185 +0,0 @@
-/* Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- *
- * This file is part of lablgtkmathview, the Ocaml binding
- * for the GtkMathView widget.
- * 
- * lablgtkmathview is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- *
- * lablgtkmathview is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with lablgtkmathview; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- * 
- * For details, send a mail to the author.
- */
-
-#include <assert.h>
-#include <string.h>
-#include <assert.h>
-#include <gtk/gtk.h>
-#include <caml/mlvalues.h>
-#include <caml/alloc.h>
-#include <caml/memory.h>
-#include <caml/callback.h>
-#include <caml/fail.h>
-
-#include <gtkmathview.h>
-#include <ml_gtk.h>
-
-#include <wrappers.h>
-#include <ml_glib.h>
-#include <ml_gdk.h>
-#include <ml_gtk.h>
-#include <gtk_tags.h>
-
-#include <minidom.h>
-#include "ml_minidom.h"
-
-#define GtkMathView_val(val) check_cast(GTK_MATH_VIEW,val)
-
-#define FontManagerId_val(val) Int_val(val)
-#define Val_FontManagerId(val) Val_int(val)
-
-FontManagerId
-font_manager_id_of_value(value v)
-{
-  if (v == hash_variant("font_manager_gtk")) return FONT_MANAGER_GTK;
-  else if (v == hash_variant("font_manager_t1")) return FONT_MANAGER_T1;
-  else assert(0);
-}
-
-value
-value_of_font_manager_id(FontManagerId id)
-{
-  switch (id) {
-  case FONT_MANAGER_GTK:
-    return hash_variant("font_manager_gtk");
-  case FONT_MANAGER_T1:
-    return hash_variant("font_manager_t1");
-  default:
-    assert(0);
-    break;
-  }
-}
-
-ML_2 (gtk_math_view_new,GtkAdjustment_val, GtkAdjustment_val, Val_GtkWidget_sink)
-ML_2 (gtk_math_view_load, GtkMathView_val, String_val, Val_bool)
-ML_2 (gtk_math_view_load_tree, GtkMathView_val, mDOMDocRef_val, Val_bool)
-ML_1 (gtk_math_view_unload, GtkMathView_val, Unit)
-ML_1 (gtk_math_view_get_selection, GtkMathView_val, Val_mDOMNodeRef)
-ML_2 (gtk_math_view_set_selection, GtkMathView_val, mDOMNodeRef_val, Unit)
-ML_1 (gtk_math_view_get_width, GtkMathView_val, Val_int)
-ML_1 (gtk_math_view_get_height, GtkMathView_val, Val_int)
-ML_3 (gtk_math_view_set_top, GtkMathView_val, Int_val, Int_val, Unit)
-ML_3 (gtk_math_view_set_adjustments, GtkMathView_val, GtkAdjustment_val, GtkAdjustment_val, Unit)
-ML_1 (gtk_math_view_get_hadjustment, GtkMathView_val, Val_GtkWidget)
-ML_1 (gtk_math_view_get_vadjustment, GtkMathView_val, Val_GtkWidget)
-ML_1 (gtk_math_view_get_buffer, GtkMathView_val, Val_GdkPixmap)
-ML_1 (gtk_math_view_get_frame, GtkMathView_val, Val_GtkWidget)
-ML_2 (gtk_math_view_set_font_size, GtkMathView_val, Int_val, Unit)
-ML_1 (gtk_math_view_get_font_size, GtkMathView_val, Val_int)
-ML_2 (gtk_math_view_set_anti_aliasing, GtkMathView_val, Bool_val, Unit)
-ML_1 (gtk_math_view_get_anti_aliasing, GtkMathView_val, Val_bool)
-ML_2 (gtk_math_view_set_kerning, GtkMathView_val, Bool_val, Unit)
-ML_1 (gtk_math_view_get_kerning, GtkMathView_val, Val_bool)
-ML_2 (gtk_math_view_set_transparency, GtkMathView_val, Bool_val, Unit)
-ML_1 (gtk_math_view_get_transparency, GtkMathView_val, Val_bool)
-ML_2 (gtk_math_view_set_log_verbosity, GtkMathView_val, Int_val, Unit)
-ML_1 (gtk_math_view_get_log_verbosity, GtkMathView_val, Val_int)
-ML_2 (gtk_math_view_set_font_manager_type, GtkMathView_val, font_manager_id_of_value, Unit)
-ML_1 (gtk_math_view_get_font_manager_type, GtkMathView_val, value_of_font_manager_id)
-ML_1 (gtk_math_view_get_element, GtkMathView_val, Val_mDOMNodeRef)
-ML_1 (gtk_math_view_get_action, GtkMathView_val, Val_mDOMNodeRef)
-ML_1 (gtk_math_view_action_get_selected, GtkMathView_val, Val_int)
-ML_2 (gtk_math_view_action_set_selected, GtkMathView_val, Int_val, Unit)
-ML_1 (gtk_math_view_action_toggle, GtkMathView_val, Unit)
-
-value
-ml_gtk_math_view_export_to_postscript_native(value arg1,
-               value w, value h, value x0, value y0, value disable_colors, value arg2)
-{
-   CAMLparam5(arg1,w,h,x0,y0);
-   CAMLxparam2(disable_colors, arg2);
-
-   char *filename;
-   FILE *fd;
-   int res;
-   filename = String_val (arg2);
-   if ((fd = fopen(filename, "w"))) {
-      gtk_math_view_export_to_postscript(GtkMathView_val (arg1),
-                     Int_val(w), Int_val(h), Int_val(x0), Int_val(y0), Bool_val(disable_colors), fd);
-      fclose (fd);
-      res = 1;
-   } else {
-      fprintf(stderr, "Error opening file %s for writing\n", filename);
-      res = 0;
-   }
-   CAMLreturn (Val_bool(res));
-}
-
-value ml_gtk_math_view_export_to_postscript_bytecode (value* arg, int argn)
-{
-   return ml_gtk_math_view_export_to_postscript_native(arg[0], arg[1], arg[2], arg[3], arg[4], arg[5], arg[6]);
-}
-
-value ml_gtk_math_view_get_top (value arg1)
-{
-   CAMLparam1(arg1);
-   CAMLlocal1 (result);
-   int x, y;
-   gtk_math_view_get_top(GtkMathView_val (arg1), &x, &y);
-   result = alloc(2, 0);
-   Store_field(result, 0, Val_int(x));
-   Store_field(result, 0, Val_int(y));
-   CAMLreturn (result);
-}
-
-
-value ml_gtk_math_view_mDOMNode_of_boxed_option (value arg1)
-{
-   CAMLparam1(arg1);
-
-   mDOMNodeRef nr;
-   CAMLlocal1 (tmp);
-   CAMLlocal1 (optval);
-   CAMLlocal1 (res);
-
-   if (arg1==Val_int(0)) {
-      assert(0);
-   } else {
-      tmp = Field(arg1, 0);
-      nr = (mDOMNodeRef) Field(tmp, 1);
-   }
-   optval = Val_mDOMNodeRef(nr);
-   if (optval==Val_int(0)) {
-      assert(0);
-   } else {
-      res = Field(optval, 0);
-   }
-
-  CAMLreturn(res);
-}
-
-value ml_gtk_math_view_mDOMNode_option_of_boxed_option (value arg1)
-{
-   CAMLparam1(arg1);
-
-   mDOMNodeRef nr;
-   CAMLlocal1 (tmp);
-
-   if (arg1==Val_int(0)) {
-      nr=NULL;
-   } else {
-      tmp = Field(arg1, 0);
-      nr = (mDOMNodeRef) Field(tmp, 1);
-   }
-
-  CAMLreturn(Val_mDOMNodeRef(nr));
-}

diff --git a/helm/DEVEL/lablgtkmathview/test/.cvsignore b/helm/DEVEL/lablgtkmathview/test/.cvsignore
deleted file mode 100644 (file)
index b95eb22..0000000
--- a/helm/DEVEL/lablgtkmathview/test/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmo *.cmi *.cmx t1lib.log test test.opt test.ps test.o Makefile

diff --git a/helm/DEVEL/lablgtkmathview/test/Makefile.in b/helm/DEVEL/lablgtkmathview/test/Makefile.in
deleted file mode 100644 (file)
index 30f41c4..0000000
--- a/helm/DEVEL/lablgtkmathview/test/Makefile.in
+++ /dev/null
@@ -1,20 +0,0 @@
-PACKAGE = @PACKAGE@
-MLFLAGS =
-OCAMLC = ocamlfind ocamlc $(MLFLAGS)
-OCAMLOPT = ocamlfind ocamlopt $(MLFLAGS)
-TMPDIR = .test
-
-all: test
-opt: test.opt
-
-test: test.ml
-       $(OCAMLC) -package "$(PACKAGE)" -linkpkg -predicates "" -o $@ test.ml
-
-test.opt: test.ml
-       $(OCAMLOPT) -package "$(PACKAGE)" -linkpkg -predicates "" -o $@ test.ml
-
-clean:
-       rm -f *.cm[iox] *.o test test.opt t1lib.log test.ps
-
-distclean:
-       rm Makefile

diff --git a/helm/DEVEL/lablgtkmathview/test/t1.config b/helm/DEVEL/lablgtkmathview/test/t1.config
deleted file mode 100644 (file)
index afb669e..0000000
--- a/helm/DEVEL/lablgtkmathview/test/t1.config
+++ /dev/null
@@ -1,3 +0,0 @@
-ENCODING=.
-AFM=/usr/share/texmf/fonts/afm/
-TYPE1=/usr/share/texmf/fonts/type1/bluesky/cm/:/usr/X11R6/lib/X11/fonts/Type1/:.

diff --git a/helm/DEVEL/lablgtkmathview/test/test.ml b/helm/DEVEL/lablgtkmathview/test/test.ml
deleted file mode 100644 (file)
index 855ce95..0000000
--- a/helm/DEVEL/lablgtkmathview/test/test.ml
+++ /dev/null
@@ -1,370 +0,0 @@
-(* Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- *
- * This file is part of lablgtkmathview, the Ocaml binding
- * for the GtkMathView widget.
- * 
- * lablgtkmathview is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- *
- * lablgtkmathview is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with lablgtkmathview; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- * 
- * For details, send a mail to the author.
- *)
-
-(******************************************************************************)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 25/09/2000                                 *)
-(*                                                                            *)
-(*     This is a simple test for the OCaml (LablGtk indeed) binding of the    *)
-(*                             MathView widget                                *)
-(******************************************************************************)
-
-(* Callbacks *)
-let selection_changed mathview (node : Ominidom.o_mDOMNode option) =
- let module O = Ominidom in
-  print_string ("selection_changed: " ^
-   (match node with
-       None -> "selection_changed on nothing"
-     | Some node ->
-       match node#get_name with
-       | Some x -> x#get_string
-       | None   -> "on element without name"
-   ) ^ "\n");
-  mathview#set_selection node;
-  flush stdout
-;;
-
-
-let rec jump (node : Ominidom.o_mDOMNode) =
- let module O = Ominidom in
-  match node#get_attribute (O.o_mDOMString_of_string "href") with
-     None ->
-      begin
-       try
-        let p = node#get_parent in
-         jump p
-       with
-          O.Node_has_no_parent ->
-           print_string "jump: NO HREF FOR THIS NODE\n" ;
-           flush stdout ;
-           false
-      end
-   | Some x ->
-      print_string ("jump: " ^ x#get_string ^ "\n") ;
-      flush stdout ;
-      true
-;;
-
-let clicked mathview (node : Ominidom.o_mDOMNode) =
- let module O = Ominidom in
-  if not (jump node) then
-   match mathview#get_action with
-      Some n ->
-       mathview#action_toggle ;
-       print_string ("current action selection: " ^
-        string_of_int mathview#action_get_selected ^ "\n") ;
-       flush stdout ;
-    | None ->
-       print_string ("mouse is on: " ^
-        (match (mathview#get_element : Ominidom.o_mDOMNode option) with
-            Some e ->
-             (match e#get_name with
-                 Some x -> x#get_string
-               | None   -> "no name"
-             )
-          | None -> "NO ELEMENT!\n"
-         ) ^ "\n") ;
-       print_string ("clicked: " ^
-        (match node#get_name with
-           Some x -> x#get_string
-         | None   -> "no name"
-        ) ^ "\n") ;
-       flush stdout
-;;
-
-
-let activate_t1 mathview () =
- mathview#set_font_manager_type `font_manager_t1;
- print_string "WIDGET SET WITH T1 FONTS\n" ;
- flush stdout
-;;
-
-let activate_gtk mathview () =
- mathview#set_font_manager_type `font_manager_gtk;
- print_string "WIDGET SET WITH GTK FONTS\n" ;
- flush stdout
-;;
-
-let get_font_manager_type mathview () =
- print_string "CURRENT FONT MANAGER TYPE: ";
- begin
-  match mathview#get_font_manager_type with
-  | `font_manager_t1 -> print_string "T1"
-  | `font_manager_gtk -> print_string "GTK"
- end;
- print_newline();
- flush stdout
-;;
-
-let get_transparency mathview () =
- print_string ("CURRENT TRANSPARENCY: " ^
-  (if mathview#get_transparency then "ON" else "OFF") ^ "\n") ;
- flush stdout
-;;
-
-let set_transparency mathview () =
- mathview#set_transparency (not mathview#get_transparency) ;
- print_string "TRANSPARENCY CHANGED\n" ;
- flush stdout
-;;
-
-
-let load mathview () =
- mathview#load "test.xml" ;
- print_string "load: SEEMS TO WORK\n" ;
- flush stdout
-;;
-
-let load_dom mathview () =
- mathview#load_tree (new Ominidom.o_mDOMDoc (Minidom.doc_load "test.xml")) ;
- print_string "load from DOM: SEEMS TO WORK\n" ;
- flush stdout
-;;
-
-let get_selection mathview () =
- let module O = Ominidom in
-  let selection =
-    match mathview#get_selection with
-    | Some node ->
-      begin
-        match node#get_name with
-       | Some name -> name#get_string
-       | None      -> "element with no name!"
-      end
-    | None      -> "no selection!"
-  in
-   print_string ("get_selection: " ^ selection ^ "\n") ;
-   flush stdout
-;;
-
-let set_selection mathview () =
- let module O = Ominidom in
-  begin
-    match mathview#get_selection with
-    | Some node -> 
-      begin
-        try 
-          let parent_node = node#get_parent in
-          mathview#set_selection (Some parent_node);
-          print_string "set selection: SEEMS TO WORK\n"
-       with
-         _ -> print_string "EXCEPTION: no parent\n"
-      end
-    | None ->
-      mathview#set_selection None;
-      print_string "no selection\n"
-  end ;
-  flush stdout
-;;
-
-let unload mathview () =
- mathview#unload ;
- print_string "unload: SEEMS TO WORK\n" ;
- flush stdout
-;;
-
-let get_width mathview () =
- print_string ("get_width: " ^ string_of_int (mathview#get_width) ^ "\n") ;
- flush stdout
-;;
-
-let get_height mathview () =
- print_string ("get_height: " ^ string_of_int (mathview#get_height) ^ "\n") ;
- flush stdout
-;;
-
-let get_top mathview () =
- let (x,y) = mathview#get_top in
-  print_string ("get_top: ("^ string_of_int x ^ "," ^ string_of_int y ^ ")\n") ;
-  flush stdout
-;;
-
-let set_top mathview () =
- mathview#set_top 0 0;
- print_string "set_top: SEEM TO WORK\n" ;
- flush stdout
-;;
-
-let set_adjustments mathview () =
- let adj1 = GData.adjustment () in
- let adj2 = GData.adjustment () in
-  mathview#set_adjustments adj1 adj2 ;
-  adj1#set_value ((adj1#lower +. adj1#upper) /. 2.0) ;
-  adj2#set_value ((adj2#lower +. adj2#upper) /. 2.0) ;
-  print_string "set_adjustments: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_hadjustment mathview () =
- let adj = mathview#get_hadjustment in
-  adj#set_value ((adj#lower +. adj#upper) /. 2.0) ;
-  print_string "get_hadjustment: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_vadjustment mathview () =
- let adj = mathview#get_vadjustment in
-  adj#set_value ((adj#lower +. adj#upper) /. 2.0) ;
-  print_string "get_vadjustment: SEEM TO WORK\n" ;
-  flush stdout
-;;
-
-let get_buffer mathview () =
- let buffer = mathview#get_buffer in
-  Gdk.Draw.rectangle buffer (Gdk.GC.create buffer) ~x:0 ~y:0
-   ~width:50 ~height:50 ~filled:true () ;
-  print_string "get_buffer: SEEMS TO WORK (hint: force the widget redrawing)\n";
-  flush stdout
-;;
-
-let get_frame mathview () =
- let frame = mathview#get_frame in
-  frame#set_shadow_type `NONE ;
-  print_string "get_frame: SEEMS TO WORK\n" ;
-  flush stdout
-;;
-
-let set_font_size mathview () =
- mathview#set_font_size 24 ;
- print_string "set_font_size: FONT IS NOW 24\n" ;
- flush stdout
-;;
- 
-let get_font_size mathview () =
- print_string ("get_font_size: " ^ string_of_int (mathview#get_font_size) ^ "\n") ;
- flush stdout
-;;
- 
-let set_anti_aliasing mathview () =
- mathview#set_anti_aliasing true ;
- print_string "set_anti_aliasing: ON\n" ;
- flush stdout
-;;
- 
-let get_anti_aliasing mathview () =
- print_string ("get_anti_aliasing: " ^
-  (match mathview#get_anti_aliasing with true -> "ON" | false -> "OFF") ^
-  "\n") ;
- flush stdout
-;;
- 
-let set_kerning mathview () =
- mathview#set_kerning true ;
- print_string "set_kerning: ON\n" ;
- flush stdout
-;;
- 
-let get_kerning mathview () =
- print_string ("get_kerning: " ^
-  (match mathview#get_kerning with true -> "ON" | false -> "OFF") ^
-  "\n") ;
- flush stdout
-;;
-
-let set_log_verbosity mathview () =
- mathview#set_log_verbosity 3 ;
- print_string "set_log_verbosity: NOW IS 3\n" ;
- flush stdout
-;;
- 
-let get_log_verbosity mathview () =
- print_string ("get_log_verbosity: " ^
-  string_of_int mathview#get_log_verbosity ^
-  "\n") ;
- flush stdout
-;;
-
-let export_to_postscript (mathview : GMathView.math_view) () =
- mathview#export_to_postscript ~filename:"test.ps" ();
- print_string "expor_to_postscript: SEEMS TO WORK (hint: look at test.ps)\n";
- flush stdout
-;;
- 
-(* Widget creation *)
-let main_window = GWindow.window ~title:"GtkMathView test" () in
-let vbox = GPack.vbox ~packing:main_window#add () in
-let sw = GBin.scrolled_window ~width:50 ~height:50 ~packing:vbox#pack () in
-let mathview= GMathView.math_view ~packing:sw#add ~width:50 ~height:50 () in
-let table = GPack.table ~rows:6 ~columns:5 ~packing:vbox#pack () in
-let button_gtk=GButton.button ~label:"activate Gtk fonts" ~packing:(table#attach ~left:0 ~top:0) () in
-let button_load = GButton.button ~label:"load" ~packing:(table#attach ~left:1 ~top:0) () in
-let button_unload = GButton.button ~label:"unload" ~packing:(table#attach ~left:2 ~top:0) () in
-let button_get_selection = GButton.button ~label:"get_selection" ~packing:(table#attach ~left:3 ~top:0) () in
-let button_set_selection = GButton.button ~label:"set_selection" ~packing:(table#attach ~left:4 ~top:0) () in
-let button_get_width = GButton.button ~label:"get_width" ~packing:(table#attach ~left:0 ~top:1) () in
-let button_get_height = GButton.button ~label:"get_height" ~packing:(table#attach ~left:1 ~top:1) () in
-let button_get_top = GButton.button ~label:"get_top" ~packing:(table#attach ~left:2 ~top:1) () in
-let button_set_top = GButton.button ~label:"set_top" ~packing:(table#attach ~left:3 ~top:1) () in
-let button_set_adjustments = GButton.button ~label:"set_adjustments" ~packing:(table#attach ~left:4 ~top:1) () in
-let button_get_hadjustment = GButton.button ~label:"get_hadjustment" ~packing:(table#attach ~left:0 ~top:2) () in
-let button_get_vadjustment = GButton.button ~label:"get_vadjustment" ~packing:(table#attach ~left:1 ~top:2) () in
-let button_get_buffer = GButton.button ~label:"get_buffer" ~packing:(table#attach ~left:2 ~top:2) () in
-let button_get_frame = GButton.button ~label:"get_frame" ~packing:(table#attach ~left:3 ~top:2) () in
-let button_set_font_size = GButton.button ~label:"set_font_size" ~packing:(table#attach ~left:4 ~top:2) () in
-let button_get_font_size = GButton.button ~label:"get_font_size" ~packing:(table#attach ~left:0 ~top:3) () in
-let button_set_anti_aliasing = GButton.button ~label:"set_anti_aliasing" ~packing:(table#attach ~left:1 ~top:3) () in
-let button_get_anti_aliasing = GButton.button ~label:"get_anti_aliasing" ~packing:(table#attach ~left:2 ~top:3) () in
-let button_set_kerning = GButton.button ~label:"set_kerning" ~packing:(table#attach ~left:3 ~top:3) () in
-let button_get_kerning = GButton.button ~label:"get_kerning" ~packing:(table#attach ~left:4 ~top:3) () in
-let button_set_log_verbosity = GButton.button ~label:"set_log_verbosity" ~packing:(table#attach ~left:0 ~top:4) () in
-let button_get_log_verbosity = GButton.button ~label:"get_log_verbosity" ~packing:(table#attach ~left:1 ~top:4) () in
-let button_export_to_postscript = GButton.button ~label:"export_to_postscript" ~packing:(table#attach ~left:2 ~top:4) () in
-let button_t1 = GButton.button ~label:"activate T1 fonts" ~packing:(table#attach ~left:3 ~top:4) () in
-let button_get_font_manager_type = GButton.button ~label:"get_font_manager" ~packing:(table#attach ~left:4 ~top:4) () in
-let button_get_transparency = GButton.button ~label:"get_transparency" ~packing:(table#attach ~left:0 ~top:5) () in
-let button_set_transparency = GButton.button ~label:"set_transparency" ~packing:(table#attach ~left:1 ~top:5) () in
-let button_load_dom = GButton.button ~label:"load from DOM" ~packing:(table#attach ~left:2 ~top:5) () in
-(* Signals connection *)
-ignore(button_gtk#connect#clicked (activate_gtk mathview)) ;
-ignore(button_load#connect#clicked (load mathview)) ;
-ignore(button_unload#connect#clicked (unload mathview)) ;
-ignore(button_get_selection#connect#clicked (get_selection mathview)) ;
-ignore(button_set_selection#connect#clicked (set_selection mathview)) ;
-ignore(button_get_width#connect#clicked (get_width mathview)) ;
-ignore(button_get_height#connect#clicked (get_height mathview)) ;
-ignore(button_get_top#connect#clicked (get_top mathview)) ;
-ignore(button_set_top#connect#clicked (set_top mathview)) ;
-ignore(button_set_adjustments#connect#clicked (set_adjustments mathview)) ;
-ignore(button_get_hadjustment#connect#clicked (get_hadjustment mathview)) ;
-ignore(button_get_vadjustment#connect#clicked (get_vadjustment mathview)) ;
-ignore(button_get_buffer#connect#clicked (get_buffer mathview)) ;
-ignore(button_get_frame#connect#clicked (get_frame mathview)) ;
-ignore(button_set_font_size#connect#clicked (set_font_size mathview)) ;
-ignore(button_get_font_size#connect#clicked (get_font_size mathview)) ;
-ignore(button_set_anti_aliasing#connect#clicked (set_anti_aliasing mathview)) ;
-ignore(button_get_anti_aliasing#connect#clicked (get_anti_aliasing mathview)) ;
-ignore(button_set_kerning#connect#clicked (set_kerning mathview)) ;
-ignore(button_get_kerning#connect#clicked (get_kerning mathview)) ;
-ignore(button_set_log_verbosity#connect#clicked (set_log_verbosity mathview)) ;
-ignore(button_get_log_verbosity#connect#clicked (get_log_verbosity mathview)) ;
-ignore(button_export_to_postscript#connect#clicked (export_to_postscript mathview)) ;
-ignore(button_t1#connect#clicked (activate_t1 mathview)) ;
-ignore(button_get_font_manager_type#connect#clicked (get_font_manager_type mathview)) ;
-ignore(button_get_transparency#connect#clicked (get_transparency mathview)) ;
-ignore(button_set_transparency#connect#clicked (set_transparency mathview)) ;
-ignore(mathview#connect#clicked (clicked mathview)) ;
-ignore(mathview#connect#selection_changed (selection_changed mathview)) ;
-ignore(button_load_dom#connect#clicked (load_dom mathview)) ;
-(* Main Loop *)
-main_window#show () ;
-GMain.Main.main ()
-;;

diff --git a/helm/DEVEL/lablgtkmathview/test/test.xml b/helm/DEVEL/lablgtkmathview/test/test.xml
deleted file mode 100644 (file)
index 5f9ce9f..0000000
--- a/helm/DEVEL/lablgtkmathview/test/test.xml
+++ /dev/null
@@ -1,126 +0,0 @@
-<math display="block">
-  <mrow helm:xref="SELECTION OK">
-    <mo>&int;</mo>
-    <mo>&ApplyFunction;</mo>
-    <mfrac>
-      <maction>
-       <mtext>It's a secret!</mtext>
-       <mrow>
-         <mrow>
-           <mi>a</mi>
-          <mo>&InvisibleTimes;</mo>
-          <mi>x</mi>
-        </mrow>
-        <mo>+</mo>
-        <mi>b</mi>
-       </mrow>
-      </maction>
-      <mrow>
-        <msup>
-         <mi>x</mi>
-         <mn>2</mn>
-       </msup>
-       <mo>+</mo>
-       <mrow>
-         <mi>p</mi>
-         <mo>&InvisibleTimes;</mo>
-         <mi>x</mi>
-       </mrow>
-       <mo>+</mo>
-       <mi>q</mi>
-      </mrow>
-    </mfrac>
-  </mrow>
-  <mo fontstyle="italic">d</mo>
-  <mi>x</mi>
-  <mo>=</mo>
-  <mrow>
-    <mrow>
-      <mfrac><mi>a</mi><mn>2</mn></mfrac>
-      <mo>&InvisibleTimes;</mo>
-      <mrow>
-        <mi>ln</mi>
-       <mo>&ApplyFunction;</mo>
-       <mrow>
-         <mo>(</mo>
-         <mrow>
-           <msup><mi>x</mi><mn>2</mn></msup>
-           <mo>+</mo>
-           <mrow>
-             <mi>p</mi>
-             <mo>&InvisibleTimes;</mo>
-             <mi>x</mi>
-           </mrow>
-           <mo>+</mo>
-           <mi>q</mi>
-         </mrow>
-         <mo>)</mo>
-       </mrow>
-      </mrow>
-    </mrow>
-    <mo>+</mo>
-    <mrow>
-      <mfrac>
-        <mrow>
-         <mrow>
-           <mn>2</mn>
-           <mo>&InvisibleTimes;</mo>
-           <mi>b</mi>
-         </mrow>
-         <mo>-</mo>
-         <mrow>
-           <mi>a</mi>
-           <mo>&InvisibleTimes;</mo>
-           <mi>p</mi>
-         </mrow>
-       </mrow>
-       <msqrt>
-         <mrow>
-           <mrow>
-             <mn>4</mn>
-             <mo>&InvisibleTimes;</mo>
-             <mi>q</mi>
-           </mrow>
-           <mo>-</mo>
-           <msup>
-             <mi>p</mi>
-             <mn>2</mn>
-           </msup>
-         </mrow>
-       </msqrt>
-      </mfrac>
-      <mo>&InvisibleTimes;</mo>
-      <mrow>
-        <mi xlink:href="JUMPS WORK">arctg</mi>
-       <mo>&ApplyFunction;</mo>
-       <mfrac>
-         <mrow>
-           <mrow>
-             <mn>2</mn>
-             <mo>&InvisibleTimes;</mo>
-             <mi>x</mi>
-           </mrow>
-           <mo>+</mo>
-           <mi>p</mi>
-         </mrow>
-         <msqrt>
-           <mrow>
-             <mrow>
-               <mn>4</mn>
-               <mo>&InvisibleTimes;</mo>
-               <mi>q</mi>
-             </mrow>
-             <mo>-</mo>
-             <msup>
-               <mi>p</mi>
-               <mn>2</mn>
-             </msup>
-           </mrow>
-         </msqrt>
-       </mfrac>
-      </mrow>
-    </mrow>
-    <mo>+</mo>
-    <mi>c</mi>
-  </mrow>  
-</math>

diff --git a/helm/DEVEL/mlminidom/debian/changelog b/helm/DEVEL/mlminidom/debian/changelog
deleted file mode 100644 (file)
index 8457b12..0000000
--- a/helm/DEVEL/mlminidom/debian/changelog
+++ /dev/null
@@ -1,47 +0,0 @@
-mlminidom (0.2.2-1) unstable; urgency=low
-
-  * New upstream release. Built with ocaml 3.04.
-
- -- Stefano Zacchiroli <zack@debian.org>  Sun, 20 Jan 2002 15:18:38 +0100
-
-mlminidom (0.2.1-2) unstable; urgency=low
-
-  * Bug fix: moved automagically generated configure from diff.gz to
-    original tar.gz archive.
-
- -- Stefano Zacchiroli <zack@debian.org>  Tue, 20 Nov 2001 01:06:27 +0100
-
-mlminidom (0.2.1-1) unstable; urgency=low
-
-  * New upstream release
-
- -- Stefano Zacchiroli <zack@debian.org>  Sat, 17 Nov 2001 09:24:02 +0100
-
-mlminidom (0.2.0-1) unstable; urgency=low
-
-  * New upstream release
-
- -- Stefano Zacchiroli <zack@debian.org>  Tue, 13 Nov 2001 19:41:58 +0100
-
-mlminidom (0.1.0-3) unstable; urgency=low
-
-  * Fixed build on architecture which doesn't have native code compiler
-    (closes: Bug#104702).
-
- -- Stefano Zacchiroli <zack@debian.org>  Tue, 21 Aug 2001 11:14:51 +0200
-
-mlminidom (0.1.0-2) unstable; urgency=low
-
-  * Added build-dep on libxml2-dev (closes: Bug#9887).
-
- -- Stefano Zacchiroli <zack@debian.org>  Mon, 28 May 2001 12:28:25 +0200
-
-mlminidom (0.1.0-1) unstable; urgency=low
-
-  * Initial Release (closes: Bug#93106).
-
- -- Stefano Zacchiroli <zack@debian.org>  Wed,  4 Apr 2001 22:50:43 +0200
-
-Local variables:
-mode: debian-changelog
-End:

diff --git a/helm/DEVEL/mlminidom/debian/control b/helm/DEVEL/mlminidom/debian/control
deleted file mode 100644 (file)
index 244cf25..0000000
--- a/helm/DEVEL/mlminidom/debian/control
+++ /dev/null
@@ -1,13 +0,0 @@
-Source: mlminidom
-Section: devel
-Priority: optional
-Maintainer: Stefano Zacchiroli <zack@debian.org>
-Build-Depends: debhelper (>> 3.0.0), ocaml (>= 3.04), libglib1.2-dev, libminidom-dev, libxml2-dev, ocaml-findlib
-Standards-Version: 3.5.2
-
-Package: mlminidom
-Architecture: any
-Depends: ocaml (>= 3.04), libminidom0 (>= 0.1.3)
-Description: OCaml binding for minidom
- This is the OCaml binding for minidom, that is currently available in
- the libminidom0 package.

diff --git a/helm/DEVEL/mlminidom/debian/copyright b/helm/DEVEL/mlminidom/debian/copyright
deleted file mode 100644 (file)
index 458a470..0000000
--- a/helm/DEVEL/mlminidom/debian/copyright
+++ /dev/null
@@ -1,31 +0,0 @@
-This package was debianized by Stefano Zacchiroli <zack@debian.org> on
-Wed,  4 Apr 2001 22:50:43 +0200.
-
-It was packed from source obtained via cvs, with this CVSROOT:
- :pserver:anonymous@phd.cs.unibo.it:/home/lpadovan/PHELM/
-
-Upstream Author(s):
- Luca Padovani <luca.padovani@cs.unibo.it>
- Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>
-
-Copyright:
- Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
-
- This file is part of mlminidom, the Ocaml binding for minidom.
- 
- mlminidom is free software; you can redistribute it and/or
- modify it under the terms of the GNU General Public License
- as published by the Free Software Foundation; either version 2
- of the License, or (at your option) any later version.
-
- mlminidom is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with mlminidom; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- 
- For details, send a mail to the author.
-

diff --git a/helm/DEVEL/mlminidom/debian/dirs b/helm/DEVEL/mlminidom/debian/dirs
deleted file mode 100644 (file)
index 00a96ae..0000000
--- a/helm/DEVEL/mlminidom/debian/dirs
+++ /dev/null
@@ -1 +0,0 @@
-usr/lib/ocaml

diff --git a/helm/DEVEL/mlminidom/debian/docs b/helm/DEVEL/mlminidom/debian/docs
deleted file mode 100644 (file)
index 6f12db5..0000000
--- a/helm/DEVEL/mlminidom/debian/docs
+++ /dev/null
@@ -1,2 +0,0 @@
-AUTHORS
-README

diff --git a/helm/DEVEL/mlminidom/debian/examples b/helm/DEVEL/mlminidom/debian/examples
deleted file mode 100644 (file)
index 31c13b4..0000000
--- a/helm/DEVEL/mlminidom/debian/examples
+++ /dev/null
@@ -1 +0,0 @@
-test.ml

diff --git a/helm/DEVEL/mlminidom/debian/rules b/helm/DEVEL/mlminidom/debian/rules
deleted file mode 100755 (executable)
index 8e77d81..0000000
--- a/helm/DEVEL/mlminidom/debian/rules
+++ /dev/null
@@ -1,87 +0,0 @@
-#!/usr/bin/make -f
-# Sample debian/rules that uses debhelper.
-# GNU copyright 1997 to 1999 by Joey Hess.
-
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
-
-# This is the debhelper compatability version to use.
-export DH_COMPAT=2
-
-UPSTREAM_CHANGELOG = ChangeLog
-
-configure: configure-stamp
-configure-stamp:
-       dh_testdir
-       # Add here commands to configure the package.
-       ./configure
-
-       touch configure-stamp
-
-build: configure-stamp build-stamp
-build-stamp:
-       dh_testdir
-
-       # Add here commands to compile the package.
-       $(MAKE)
-       -test -x /usr/bin/ocamlopt && $(MAKE) opt
-       #/usr/bin/docbook-to-man debian/mlminidom.sgml > mlminidom.1
-
-       touch build-stamp
-
-clean:
-       dh_testdir
-       dh_testroot
-       rm -f build-stamp configure-stamp
-
-       # Add here commands to clean up after the build process.
-       -$(MAKE) distclean
-
-       dh_clean
-
-install: build
-       dh_testdir
-       dh_testroot
-       dh_clean -k
-       dh_installdirs
-
-       # Add here commands to install the package into debian/mlminidom.
-       $(MAKE) install DESTDIR=$(CURDIR)/debian/mlminidom/usr/lib/ocaml
-
-
-# Build architecture-independent files here.
-binary-indep: build install
-# We have nothing to do by default.
-
-# Build architecture-dependent files here.
-binary-arch: build install
-       dh_testdir
-       dh_testroot
-#      dh_installdebconf       
-       dh_installdocs
-       dh_installexamples
-#      dh_installmenu
-#      dh_installlogrotate
-#      dh_installemacsen
-#      dh_installpam
-#      dh_installmime
-#      dh_installinit
-#      dh_installcron
-#      dh_installmanpages
-#      dh_installinfo
-#      dh_undocumented
-       -test -s $(UPSTREAM_CHANGELOG) && dh_installchangelogs $(UPSTREAM_CHANGELOG)
-       dh_link
-       dh_strip
-       dh_compress
-       dh_fixperms
-#      dh_makeshlibs
-       dh_installdeb
-#      dh_perl
-       dh_shlibdeps
-       dh_gencontrol
-       dh_md5sums
-       dh_builddeb
-
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary install configure

diff --git a/helm/DEVEL/pxp/.cvsignore b/helm/DEVEL/pxp/.cvsignore
deleted file mode 100644 (file)
index c1fcbc4..0000000
--- a/helm/DEVEL/pxp/.cvsignore
+++ /dev/null
@@ -1,7 +0,0 @@
-*.cmo
-*.cmx
-*.cmi
-
-*.o
-*.a
-

diff --git a/helm/DEVEL/pxp/findlib-0.4.tar.gz b/helm/DEVEL/pxp/findlib-0.4.tar.gz
deleted file mode 100644 (file)
index a45cce5..0000000
Binary files a/helm/DEVEL/pxp/findlib-0.4.tar.gz and /dev/null differ

diff --git a/helm/DEVEL/pxp/netstring-0.9.3.tar.gz b/helm/DEVEL/pxp/netstring-0.9.3.tar.gz
deleted file mode 100644 (file)
index 8a7431e..0000000
Binary files a/helm/DEVEL/pxp/netstring-0.9.3.tar.gz and /dev/null differ

diff --git a/helm/DEVEL/pxp/netstring/.cvsignore b/helm/DEVEL/pxp/netstring/.cvsignore
deleted file mode 100644 (file)
index c1fcbc4..0000000
--- a/helm/DEVEL/pxp/netstring/.cvsignore
+++ /dev/null
@@ -1,7 +0,0 @@
-*.cmo
-*.cmx
-*.cmi
-
-*.o
-*.a
-

diff --git a/helm/DEVEL/pxp/netstring/LICENSE b/helm/DEVEL/pxp/netstring/LICENSE
deleted file mode 100644 (file)
index 820032e..0000000
--- a/helm/DEVEL/pxp/netstring/LICENSE
+++ /dev/null
@@ -1,21 +0,0 @@
-Copyright 1999 by Gerd Stolpmann
-
-The package "netstring" is copyright by Gerd Stolpmann. 
-
-Permission is hereby granted, free of charge, to any person obtaining
-a copy of the "netstring" software (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 Gerd Stolpmann 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.

diff --git a/helm/DEVEL/pxp/netstring/META b/helm/DEVEL/pxp/netstring/META
deleted file mode 100644 (file)
index d422128..0000000
--- a/helm/DEVEL/pxp/netstring/META
+++ /dev/null
@@ -1,54 +0,0 @@
-version = "0.9.3"
-requires = "str"
-description = "String processing for the Internet"
-
-archive(byte) = 
-    "netstring.cma netmappings_iso.cmo netmappings_other.cmo"
-archive(byte,toploop) = 
-    "netstring.cma netmappings_iso.cmo netmappings_other.cmo 
-     netstring_top.cmo"
-archive(byte,mt) = 
-    "netstring.cma netmappings_iso.cmo netmappings_other.cmo 
-     netstring_mt.cmo"
-archive(byte,mt,toploop) = 
-    "netstring.cma netmappings_iso.cmo netmappings_other.cmo 
-     netstring_mt.cmo netstring_top.cmo"
-archive(native) = 
-    "netstring.cmxa netmappings_iso.cmx netmappings_other.cmx"
-archive(native,mt) = 
-    "netstring.cmxa netmappings_iso.cmx netmappings_other.cmx 
-     netstring_mt.cmx"
-
-archive(byte,netstring_only_iso) = 
-    "netstring.cma netmappings_iso.cmo"
-archive(byte,toploop,netstring_only_iso) = 
-    "netstring.cma netmappings_iso.cmo
-     netstring_top.cmo"
-archive(byte,mt,netstring_only_iso) = 
-    "netstring.cma netmappings_iso.cmo
-     netstring_mt.cmo"
-archive(byte,mt,toploop,netstring_only_iso) = 
-    "netstring.cma netmappings_iso.cmo
-     netstring_mt.cmo netstring_top.cmo"
-archive(native,netstring_only_iso) = 
-    "netstring.cmxa netmappings_iso.cmx"
-archive(native,mt,netstring_only_iso) = 
-    "netstring.cmxa netmappings_iso.cmx 
-     netstring_mt.cmx"
-
-archive(byte,netstring_minimum) = 
-    "netstring.cma"
-archive(byte,toploop,netstring_minimum) = 
-    "netstring.cma 
-     netstring_top.cmo"
-archive(byte,mt,netstring_minimum) = 
-    "netstring.cma 
-     netstring_mt.cmo"
-archive(byte,mt,toploop,netstring_minimum) = 
-    "netstring.cma 
-     netstring_mt.cmo netstring_top.cmo"
-archive(native,netstring_minimum) = 
-    "netstring.cmxa"
-archive(native,mt,netstring_minimum) = 
-    "netstring.cmxa 
-     netstring_mt.cmx"

diff --git a/helm/DEVEL/pxp/netstring/Makefile b/helm/DEVEL/pxp/netstring/Makefile
deleted file mode 100644 (file)
index 98f9ef0..0000000
--- a/helm/DEVEL/pxp/netstring/Makefile
+++ /dev/null
@@ -1,151 +0,0 @@
-# make all:            make bytecode archive
-# make opt:            make native archive
-# make install:        install bytecode archive, and if present, native archive
-# make uninstall:      uninstall package
-# make clean:          remove intermediate files
-# make distclean:      remove any superflous files
-# make release:        cleanup, create archive, tag CVS module 
-#                      (for developers)
-
-#----------------------------------------------------------------------
-# specific rules for this package:
-
-OBJECTS  = netstring_str.cmo \
-           netencoding.cmo netbuffer.cmo netstream.cmo \
-          mimestring.cmo cgi.cmo base64.cmo \
-           nethtml_scanner.cmo nethtml.cmo \
-          neturl.cmo \
-          netmappings.cmo netconversion.cmo
-XOBJECTS = $(OBJECTS:.cmo=.cmx)
-ARCHIVE  = netstring.cma
-XARCHIVE = netstring.cmxa
-
-NAME     = netstring
-REQUIRES = str
-
-ISO_MAPPINGS   = mappings/iso*.unimap
-OTHER_MAPPINGS = mappings/cp*.unimap \
-                 mappings/adobe*.unimap \
-                mappings/jis*.unimap \
-                 mappings/koi*.unimap \
-                 mappings/mac*.unimap \
-                 mappings/windows*.unimap
-
-all: $(ARCHIVE) \
-     netstring_top.cmo netstring_mt.cmo \
-     netmappings_iso.cmo netmappings_other.cmo
-
-opt: $(XARCHIVE) \
-     netstring_mt.cmx \
-     netmappings_iso.cmx netmappings_other.cmx
-
-
-$(ARCHIVE): $(OBJECTS) 
-       $(OCAMLC) -a -o $(ARCHIVE) $(OBJECTS)
-
-$(XARCHIVE): $(XOBJECTS) 
-       $(OCAMLOPT) -a -o $(XARCHIVE) $(XOBJECTS)
-
-netmappings_iso.ml:
-       $(MAKE) -C tools 
-       test ! -d mappings || tools/unimap_to_ocaml/unimap_to_ocaml \
-               -o netmappings_iso.ml $(ISO_MAPPINGS)
-
-netmappings_other.ml:
-       $(MAKE) -C tools 
-       test ! -d mappings || tools/unimap_to_ocaml/unimap_to_ocaml \
-               -o netmappings_other.ml $(OTHER_MAPPINGS)
-
-#----------------------------------------------------------------------
-# general rules:
-
-OPTIONS   =
-OCAMLC    = ocamlc $(DEBUG) $(OPTIONS) $(ROPTIONS)
-OCAMLOPT  = ocamlopt $(OPTIONS) $(ROPTIONS)
-OCAMLLEX  = ocamllex
-OCAMLDEP  = ocamldep $(OPTIONS)
-OCAMLFIND = ocamlfind
-
-DEBUG  =
-# Invoke with: make DEBUG=-g
-
-depend: *.ml *.mli
-       $(OCAMLDEP) *.ml *.mli >depend
-
-depend.pkg: Makefile
-       $(OCAMLFIND) use -p ROPTIONS= $(REQUIRES) >depend.pkg
-
-.PHONY: install
-install: all
-       { test ! -f $(XARCHIVE) || extra="*.cmxa *.a netstring_mt.cmx netmappings_iso.cmx netmappings_other.cmx netstring_mt.o netmappings_iso.o netmappings_other.o"; }; \
-       $(OCAMLFIND) install $(NAME) *.mli *.cmi *.cma netstring_top.cmo netstring_mt.cmo netmappings_iso.cmo netmappings_other.cmo META $$extra
-
-.PHONY: install-cgi
-install-cgi: 
-       $(OCAMLFIND) install cgi compat-cgi/META
-
-
-.PHONY: install-base64
-install-base64: 
-       $(OCAMLFIND) install base64 compat-base64/META
-
-
-.PHONY: uninstall
-uninstall:
-       $(OCAMLFIND) remove $(NAME)
-
-.PHONY: uninstall-cgi
-uninstall-cgi:
-       $(OCAMLFIND) remove cgi
-
-.PHONY: uninstall-base64
-uninstall-base64:
-       $(OCAMLFIND) remove base64
-
-.PHONY: clean
-clean:
-       rm -f *.cmi *.cmo *.cma *.cmx *.o *.a *.cmxa
-       test ! -d mappings || rm -f netmappings_iso.ml netmappings_other.ml
-
-.PHONY: distclean
-distclean:
-       rm -f *.cmi *.cmo *.cma *.cmx *.o *.a *.cmxa
-       rm -f *~ depend depend.pkg compat-cgi/*~ compat-base64/*~
-       $(MAKE) -C tests distclean
-       $(MAKE) -C doc distclean
-       $(MAKE) -C tools distclean
-
-RELEASE: META
-       awk '/version/ { print substr($$3,2,length($$3)-2) }' META >RELEASE
-
-.PHONY: dist
-dist: RELEASE
-       r=`head -1 RELEASE`; cd ..; gtar czf $(NAME)-$$r.tar.gz --exclude='*/CVS*' --exclude="*/depend.pkg" --exclude="*/depend" --exclude="*/doc/common.xml" --exclude="*/doc/config.xml" --exclude="*/doc/readme.dtd" --exclude="*/Mail" --exclude="*/mappings" $(NAME)
-
-.PHONY: tag-release
-tag-release: RELEASE
-       r=`head -1 RELEASE | sed -e s/\\\./-/g`; cd ..; cvs tag -F $(NAME)-$$r $(NAME)
-
-.PHONY: release
-release: distclean
-       test -f netmappings_iso.ml
-       test -f netmappings_other.ml
-       $(MAKE) tag-release
-       $(MAKE) dist
-
-.SUFFIXES: .cmo .cmi .cmx .ml .mli .mll
-
-.ml.cmx:
-       $(OCAMLOPT) -c -thread $<
-
-.ml.cmo:
-       $(OCAMLC) -c -thread $<
-
-.mli.cmi:
-       $(OCAMLC) -c $<
-
-.mll.ml:
-       $(OCAMLLEX) $<
-
-include depend
-include depend.pkg

diff --git a/helm/DEVEL/pxp/netstring/RELEASE b/helm/DEVEL/pxp/netstring/RELEASE
deleted file mode 100644 (file)
index 965065d..0000000
--- a/helm/DEVEL/pxp/netstring/RELEASE
+++ /dev/null
@@ -1 +0,0 @@
-0.9.3

diff --git a/helm/DEVEL/pxp/netstring/base64.ml b/helm/DEVEL/pxp/netstring/base64.ml
deleted file mode 100644 (file)
index 285626f..0000000
--- a/helm/DEVEL/pxp/netstring/base64.ml
+++ /dev/null
@@ -1,24 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-let encode s = Netencoding.Base64.encode s;;
-let url_encode s = Netencoding.Base64.url_encode s;;
-let decode s = Netencoding.Base64.decode s;;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:27  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/06/25 22:34:43  gerd
- *     Added labels to arguments.
- *
- * Revision 1.1  2000/03/02 01:15:20  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/base64.mli b/helm/DEVEL/pxp/netstring/base64.mli
deleted file mode 100644 (file)
index 5dd60ea..0000000
--- a/helm/DEVEL/pxp/netstring/base64.mli
+++ /dev/null
@@ -1,36 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(**********************************************************************)
-(* Base64 compatibility module                                        *)
-(**********************************************************************)
-
-(* PLEASE DO NOT USE THIS MODULE IN NEW SOFTWARE!
- * The module Netencoding.Base64 is the preferred API. This module is
- * only for compatibility with older software.
- *)
-
-(* This interface is compatible with all previously released Base64
- * modules (0.1 and 0.2).
- *)
-
-val encode : string -> string
-
-val url_encode : string -> string
-
-val decode : string -> string
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:27  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/03/02 01:15:20  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/cgi.ml b/helm/DEVEL/pxp/netstring/cgi.ml
deleted file mode 100644 (file)
index 48412be..0000000
--- a/helm/DEVEL/pxp/netstring/cgi.ml
+++ /dev/null
@@ -1,645 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-exception Resources_exceeded
-
-type argument_processing = Memory | File | Automatic;;
-
-type argument =
-    { mutable arg_name : string;
-      mutable arg_processing : argument_processing;
-      mutable arg_buf_value : Buffer.t;
-      mutable arg_mem_value : string option;
-              (* Here, the value is stored if it must be kept in memory *)
-      mutable arg_disk_value : string Weak.t;
-              (* This component is used iff arg_mem_value = None. The
-              * weak array has a length of 1, and the single element stores
-              * the value (if any).
-              *)
-      mutable arg_file : string option;
-              (* The filename of the temporary file storing the value *)
-      mutable arg_fd : out_channel option;
-              (* The file descriptor of the temp file (if open) *)
-      mutable arg_mimetype : string;
-      mutable arg_filename : string option;
-      mutable arg_header : (string * string) list;
-              (* For the last three components, see the description of the
-              * corresponding functions in the mli file.
-              *)
-    }
-;;
-
-type workaround =
-    Work_around_MSIE_Content_type_bug
-  | Work_around_backslash_bug
-;;
-
-type config =
-    { maximum_content_length : int;
-      how_to_process_arguments : argument -> argument_processing;
-      tmp_directory : string;
-      tmp_prefix : string;
-      workarounds : workaround list;
-    }
-;;
-
-
-let print_argument arg =
-  Format.printf
-    "<CGIARG name=%s filename=%s mimetype=%s store=%s>"
-    arg.arg_name
-    (match arg.arg_filename with None -> "*" | Some n -> n)
-    arg.arg_mimetype
-    (match arg.arg_file with None -> "Memory" | Some n -> n)
-;;
-
-
-let encode = Netencoding.Url.encode ;;
-let decode = Netencoding.Url.decode ;;
-
-
-
-let url_split_re =
-  Str.regexp "[&=]";;
-
-
-let mk_url_encoded_parameters nv_pairs =
-  String.concat "&"
-    (List.map
-       (fun (name,value) ->
-         let name_encoded = Netencoding.Url.encode name in
-         let value_encoded = Netencoding.Url.encode value in
-         name_encoded ^ "=" ^ value_encoded
-       )
-       nv_pairs
-    )
-;;
-
-
-let dest_url_encoded_parameters parstr =
-
-  let rec parse_after_amp tl =
-    match tl with
-       Str.Text name :: Str.Delim "=" :: Str.Text value :: tl' ->
-         (Netencoding.Url.decode name,
-          Netencoding.Url.decode value) :: parse_next tl'
-      | Str.Text name :: Str.Delim "=" :: Str.Delim "&" :: tl' ->
-         (Netencoding.Url.decode name, "") :: parse_after_amp tl'
-      | Str.Text name :: Str.Delim "=" :: [] ->
-         [Netencoding.Url.decode name, ""]
-      | _ ->
-         failwith "Cgi.dest_url_encoded_parameters"
-  and parse_next tl =
-    match tl with
-       [] -> []
-      | Str.Delim "&" :: tl' ->
-         parse_after_amp tl'
-      | _ ->
-         failwith "Cgi.dest_url_encoded_parameters"
-  in
-  let toklist = Str.full_split url_split_re parstr in
-  match toklist with
-      [] -> []
-    | _ -> parse_after_amp toklist
-;;
-
-
-let mk_form_encoded_parameters ntv_triples =
-  failwith "Cgi.mk_form_encoded_parameters: not implemented";;
-
-
-let dest_parameter_header header options =
-  let get_name s =
-    (* s is: form-data; ... name="fieldname" ...
-     * Extract "fieldname"
-     *)
-    try
-      let tok, params = Mimestring.scan_value_with_parameters s options in
-      List.assoc "name" params
-    with
-       Not_found ->
-         failwith "Cgi.dest_form_encoded_parameters"
-      | Failure "Mimestring.scan_value_with_parameters" ->
-         failwith "Cgi.dest_form_encoded_parameters"
-  in
-
-  let get_filename s =
-    (* s is: form-data; ... filename="fieldname" ...
-     * Extract "fieldname"
-     *)
-    try
-      let tok, params = Mimestring.scan_value_with_parameters s options in
-      Some(List.assoc "filename" params)
-    with
-       Not_found ->
-         None
-      | Failure "Mimestring.scan_value_with_parameters" ->
-         failwith "Cgi.dest_form_encoded_parameters"
-  in
-
-  let mime_type =
-    try List.assoc "content-type" header
-    with Not_found -> "text/plain" in     (* the default *)
-
-  let content_disposition =
-    try List.assoc "content-disposition" header
-    with
-       Not_found ->
-         failwith "Cgi.dest_form_encoded_parameters: no content-disposition"
-  in
-
-  let name = get_name content_disposition in
-  let filename = get_filename content_disposition in
-
-  name, mime_type, filename
-;;
-
-
-let dest_form_encoded_parameters parstr ~boundary config =
-  let options =
-    if List.mem Work_around_backslash_bug config.workarounds then
-      [ Mimestring.No_backslash_escaping ]
-    else
-      []
-  in
-  let parts =
-    Mimestring.scan_multipart_body_and_decode
-      parstr 0 (String.length parstr) boundary in
-  List.map
-    (fun (params, value) ->
-
-      let name, mime_type, filename = dest_parameter_header params options in
-      { arg_name = name;
-       arg_processing = Memory;
-       arg_buf_value = Buffer.create 1;
-       arg_mem_value = Some value;
-       arg_disk_value = Weak.create 1;
-       arg_file = None;
-       arg_fd = None;
-       arg_mimetype = mime_type;
-       arg_filename = filename;
-       arg_header = params;
-      }
-
-    )
-    parts
-;;
-
-
-let make_temporary_file config =
-  (* Returns (filename, out_channel). *)
-  let rec try_creation n =
-    try
-      let fn =
-       Filename.concat
-         config.tmp_directory
-         (config.tmp_prefix ^ "-" ^ (string_of_int n))
-      in
-      let fd =
-       open_out_gen
-         [ Open_wronly; Open_creat; Open_excl; Open_binary ]
-         0o666
-         fn
-      in
-      fn, fd
-    with
-       Sys_error m ->
-         (* This does not look very intelligent, but it is the only chance
-          * to limit the number of trials.
-          *)
-         if n > 1000 then
-           failwith ("Cgi: Cannot create temporary file: " ^ m);
-         try_creation (n+1)
-  in
-  try_creation 0
-;;
-
-
-let dest_form_encoded_parameters_from_netstream s ~boundary config =
-  let parts = ref [] in
-  let options =
-    if List.mem Work_around_backslash_bug config.workarounds then
-      [ Mimestring.No_backslash_escaping ]
-    else
-      []
-  in
-
-  let create header =
-    (* CALLBACK for scan_multipart_body_from_netstream *)
-    let name, mime_type, filename = dest_parameter_header header options in
-    let p0 =
-      { arg_name = name;
-       arg_processing = Memory;
-       arg_buf_value = Buffer.create 80;
-       arg_mem_value = None;
-       arg_disk_value = Weak.create 1;
-       arg_file = None;
-       arg_fd = None;
-       arg_mimetype = mime_type;
-       arg_filename = filename;
-       arg_header = header;
-      }
-    in
-    let pr = config.how_to_process_arguments p0 in
-    let p = { p0 with arg_processing = pr } in
-    if pr = File then begin
-      let fn, fd = make_temporary_file config in
-      p.arg_file <- Some fn;
-      p.arg_fd   <- Some fd;
-      p.arg_mem_value <- None;
-    end;
-    p
-  in
-
-  let add p s k n =
-    (* CALLBACK for scan_multipart_body_from_netstream *)
-    if (p.arg_processing = Automatic) &&
-       (Buffer.length (p.arg_buf_value) >= Netstream.block_size s) then begin
-        (* This is a LARGE argument *)
-        p.arg_processing <- File;
-        let fn, fd = make_temporary_file config in
-        p.arg_file <- Some fn;
-        p.arg_fd   <- Some fd;
-        p.arg_mem_value <- None;
-        output_string fd (Buffer.contents p.arg_buf_value);
-        p.arg_buf_value <- Buffer.create 1;
-       end;
-
-    match p.arg_processing with
-       (Memory|Automatic) ->
-         Buffer.add_substring
-           p.arg_buf_value
-           (Netbuffer.unsafe_buffer (Netstream.window s))
-           k
-           n
-      | File ->
-         let fd = match p.arg_fd with Some fd -> fd | None -> assert false in
-         output
-           fd
-           (Netbuffer.unsafe_buffer (Netstream.window s))
-           k
-           n;
-  in
-
-  let stop p =
-    (* CALLBACK for scan_multipart_body_from_netstream *)
-    begin match p.arg_processing with
-       (Memory|Automatic) ->
-         p.arg_mem_value <- Some (Buffer.contents p.arg_buf_value);
-         p.arg_buf_value <- Buffer.create 1;
-      | File ->
-         let fd = match p.arg_fd with Some fd -> fd | None -> assert false in
-         close_out fd;
-         p.arg_mem_value <- None
-    end;
-    parts := p :: !parts
-  in
-
-  Mimestring.scan_multipart_body_from_netstream
-    s
-    boundary
-    create
-    add
-    stop;
-
-  List.rev !parts
-;;
-
-
-let getenv name =
-  try Sys.getenv name with Not_found -> "";;
-
-(* getenv:
- * We use this getenv instead of Sys.getenv. The CGI specification does not
- * say anything about what should happen if a certain environment variable
- * is not set.
- * Some servers initialize the environment variable to the empty string if
- * it is not applicable, some servers do not set the variable at all. Because
- * of this, unset variables are always reported as empty variables.
- *
- * This is especially a problem with QUERY_STRING.
- *)
-
-let mk_simple_arg ~name v =
-  { arg_name = name;
-    arg_processing = Memory;
-    arg_buf_value = Buffer.create 1;
-    arg_mem_value = Some v;
-    arg_disk_value = Weak.create 0;
-    arg_file = None;
-    arg_fd = None;
-    arg_mimetype = "text/plain";
-    arg_filename = None;
-    arg_header = [];
-  }
-;;
-
-let mk_memory_arg ~name ?(mime = "text/plain") ?filename ?(header = []) v =
-  { arg_name = name;
-    arg_processing = Memory;
-    arg_buf_value = Buffer.create 1;
-    arg_mem_value = Some v;
-    arg_disk_value = Weak.create 0;
-    arg_file = None;
-    arg_fd = None;
-    arg_mimetype = mime;
-    arg_filename = filename;
-    arg_header = header;
-  }
-;;
-
-let mk_file_arg 
-  ~name ?(mime = "text/plain") ?filename ?(header = []) v_filename =
-  let v_abs_filename =
-    if Filename.is_relative v_filename then
-      Filename.concat (Sys.getcwd()) v_filename
-    else
-      v_filename
-  in
-  { arg_name = name;
-    arg_processing = File;
-    arg_buf_value = Buffer.create 1;
-    arg_mem_value = None;
-    arg_disk_value = Weak.create 0;
-    arg_file = Some v_abs_filename;
-    arg_fd = None;
-    arg_mimetype = mime;
-    arg_filename = filename;
-    arg_header = header;
-  }
-;;
-
-
-let get_content_type config =
-  (* Get the environment variable CONTENT_TYPE; if necessary apply
-   * workarounds for browser bugs.
-   *)
-  let content_type = getenv "CONTENT_TYPE" in
-  let user_agent = getenv "HTTP_USER_AGENT" in
-  let eff_content_type =
-    if Str.string_match (Str.regexp ".*MSIE") user_agent 0 &&
-       List.mem Work_around_MSIE_Content_type_bug config.workarounds
-    then begin
-      (* Microsoft Internet Explorer: When used with SSL connections,
-       * this browser sometimes produces CONTENT_TYPEs like
-       * "multipart/form-data; boundary=..., multipart/form-data; boundary=..."
-       * Workaround: Throw away everything after ", ".
-       *)
-      if Str.string_match (Str.regexp "\\([^,]*boundary[^,]*\\), .*boundary")
-                         content_type 0
-      then
-       Str.matched_group 1 content_type
-      else
-       content_type
-    end
-    else
-      content_type
-  in
-  eff_content_type
-;;
-
-
-let really_parse_args config =
-  let make_simple_arg (n,v) = mk_simple_arg n v in
-
-  match getenv "REQUEST_METHOD" with
-      ("GET"|"HEAD") ->
-       List.map
-         make_simple_arg
-         (dest_url_encoded_parameters(getenv "QUERY_STRING"))
-
-    | "POST" ->
-       let n =
-         try
-           int_of_string (getenv "CONTENT_LENGTH")
-         with
-             _ -> failwith "Cgi.parse_arguments"
-       in
-       if n > config.maximum_content_length then
-         raise Resources_exceeded;
-       begin
-         let mime_type, params =
-           Mimestring.scan_mime_type(get_content_type config) [] in
-         match mime_type with
-             "application/x-www-form-urlencoded" ->
-               let buf = String.create n in
-               really_input stdin buf 0 n;
-               List.map
-                 make_simple_arg
-                 (dest_url_encoded_parameters buf)
-           | "multipart/form-data" ->
-               let boundary =
-                 try
-                   List.assoc "boundary" params
-                 with
-                     Not_found ->
-                       failwith "Cgi.parse_arguments"
-               in
-               (* -------------------------------------------------- DEBUG
-                  let f = open_out "/tmp/cgiout" in
-                  output_string f buf;
-                  close_out f;
-                * --------------------------------------------------
-                *)
-               dest_form_encoded_parameters_from_netstream
-                 (Netstream.create_from_channel stdin (Some n) 4096)
-                 boundary
-                 config
-           | _ ->
-               failwith ("Cgi.parse_arguments: unknown content-type " ^ mime_type)
-       end
-    | _ ->
-       failwith "Cgi.parse_arguments: unknown method"
-
-let parsed = ref None;;    (* protected by lock/unlock *)
-
-let lock   = ref (fun () -> ());;
-let unlock = ref (fun () -> ());;
-
-let init_mt new_lock new_unlock =
-  lock   := new_lock;
-  unlock := new_unlock
-;;
-
-let protect f =
-  !lock();
-  try
-    let r = f() in
-    !unlock();
-    r
-  with
-      x ->
-        !unlock();
-        raise x
-;;
-
-let parse_arguments config =
-  protect
-    (fun () ->
-       match !parsed with
-          Some _ -> ()
-        | None ->
-            parsed := Some (List.map
-                              (fun arg -> arg.arg_name, arg)
-                              (really_parse_args config))
-    )
-;;
-
-let arguments () =
-  protect
-    (fun () ->
-       match !parsed with
-          Some plist -> plist
-        | None ->
-            failwith "Cgi.arguments"
-    )
-;;
-
-let set_arguments arglist =
-  protect 
-    (fun () ->
-       parsed := Some (List.map
-                        (fun arg -> arg.arg_name, arg)
-                        arglist)
-    )
-;;
-
-let default_config =
-  { maximum_content_length = max_int;
-    how_to_process_arguments = (fun _ -> Memory);
-    tmp_directory = "/var/tmp";
-    tmp_prefix = "cgi-";
-    workarounds = [ Work_around_MSIE_Content_type_bug;
-                   Work_around_backslash_bug;
-                 ]
-  }
-;;
-
-let arg_value arg =
-  match arg.arg_mem_value with
-      None ->
-       begin
-         match Weak.get arg.arg_disk_value 0 with
-             None ->
-               begin
-                 match arg.arg_file with
-                     None ->
-                       failwith "Cgi.arg_value: no value present"
-                   | Some filename ->
-                       let fd = open_in_bin filename in
-                       try
-                         let len = in_channel_length fd in
-                         let s = String.create len in
-                         really_input fd s 0 len;
-                         Weak.set arg.arg_disk_value 0 (Some s);
-                         close_in fd;
-                         s
-                       with
-                           any -> close_in fd; raise any
-               end
-           | Some v -> v
-       end
-    | Some s ->
-       s
-;;
-
-let arg_name     arg = arg.arg_name;;
-let arg_file     arg = arg.arg_file;;
-let arg_mimetype arg = arg.arg_mimetype;;
-let arg_filename arg = arg.arg_filename;;
-let arg_header   arg = arg.arg_header;;
-
-let cleanup () =
-  protect
-    (fun () ->
-       match !parsed with
-          None -> ()
-        | Some plist ->
-            List.iter
-              (fun (name, arg) ->
-                 match arg.arg_file with
-                     None -> ()
-                   | Some filename ->
-                       (* We do not complain if the file does not exist anymore. *)
-                       if Sys.file_exists filename then
-                         Sys.remove filename;
-                       arg.arg_file <- None
-              )
-              plist
-    )
-;;
-
-let argument name = List.assoc name (arguments());;
-let argument_value name = arg_value (argument name);;
-
-module Operators = struct
-  let ( !% ) = argument
-  let ( !$ ) = argument_value
-end;;
-
-
-let parse_args() =
-  parse_arguments default_config;
-  List.map
-    (fun (name, arg) -> name, arg_value arg)
-    (arguments())
-;;
-
-let parse_args_with_mimetypes() =
-  parse_arguments default_config;
-  List.map
-    (fun (name, arg) -> name, arg_mimetype arg, arg_value arg)
-    (arguments())
-;;
-
-let header s =
-  let t =
-    match s with
-       "" -> "text/html"
-      | _  -> s
-  in
-  print_string ("Content-type: " ^ t ^ "\n\n");
-  flush stdout
-;;
-
-
-let this_url() =
-  "http://" ^ (getenv "SERVER_NAME") ^ (getenv "SCRIPT_NAME")
-;;
-
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:27  lpadovan
- * Initial revision
- *
- * Revision 1.8  2000/06/25 22:34:43  gerd
- *     Added labels to arguments.
- *
- * Revision 1.7  2000/06/25 21:40:36  gerd
- *     Added printer.
- *
- * Revision 1.6  2000/06/25 21:15:48  gerd
- *     Checked thread-safety.
- *
- * Revision 1.5  2000/05/16 22:29:36  gerd
- *     Added support for two common file upload bugs.
- *
- * Revision 1.4  2000/04/15 16:47:27  gerd
- *     Last minor changes before releasing 0.6.
- *
- * Revision 1.3  2000/04/15 13:09:01  gerd
- *     Implemented uploads to temporary files.
- *
- * Revision 1.2  2000/03/02 01:15:30  gerd
- *     Updated.
- *
- * Revision 1.1  2000/02/25 15:21:12  gerd
- *     Initial revision.
- *
- *
- *)

diff --git a/helm/DEVEL/pxp/netstring/cgi.mli b/helm/DEVEL/pxp/netstring/cgi.mli
deleted file mode 100644 (file)
index 8aea499..0000000
--- a/helm/DEVEL/pxp/netstring/cgi.mli
+++ /dev/null
@@ -1,419 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(* FOR SIMPLE CGI PROGRAMS:
- *
- * If you do not need all the features of the API below, the following may
- * be enough:
- *
- * - At the beginning of the main program, call 'parse_argument' with
- *   either 'default_config' as argument or with a customized configuration.
- * - Use 'argument_value(name)' to get the string value of the CGI parameter
- *   'name'. If you like, you can also open the Cgi.Operators module and
- *   write '!$ name' instead. Here, !$ is a prefix operator equivalent to
- *   argument_value.
- *
- * If you do not change the default configuration, you do not need to
- * worry about temporary files - there are not any.
- *
- * Most of the other functions defined below deal with file uploads, and
- * are only useful for that.
- *)
-
-
-(**********************************************************************)
-(* CGI functions                                                      *)
-(**********************************************************************)
-
-(* First, the general interface to the CGI argument parser. *)
-
-exception Resources_exceeded
-
-type argument
-
-type argument_processing =
-    Memory        (* Keep the value of the argument in memory *)
-  | File          (* Store the value of the argument into a temporary file *)
-  | Automatic     (* Store only large arguments into files. An argument
-                  * value is large if it is longer than about one block (4K).
-                  * This is not an exact definition.
-                  *)
-
-type workaround =
-    Work_around_MSIE_Content_type_bug
-      (* There is a bug in MSIE I observed together with SSL connections.
-       * The CONTENT_TYPE passed to the server has sometimes the wrong
-       * format. This option enables a workaround if the user agent string
-       * contains the word "MSIE".
-       *)
-  | Work_around_backslash_bug
-      (* There is a bug in many browsers: The backslash character is not
-       * handled as an escaping character in MIME headers. Because DOS-
-       * based systems use the backslash regularly in filenames, this bug
-       * matters.
-       * This option changes the interpretation of backslashes such that
-       * these are handled as normal characters. I do not know any browser
-       * that is not affected by this bug, so there is no check on
-       * the user agent string.
-       *)
-
-
-type config =
-    { maximum_content_length : int;
-          (* The maximum CONTENT_LENGTH. Bigger requests trigger an
-          * Resources_exceeded exception. This feature can be used
-          * to detect primitive denial-of-service attacks.
-          *)
-      how_to_process_arguments : argument -> argument_processing;
-          (* After the beginning of an argument has been decoded, the
-          * type of processing is decided by invoking this function on
-          * the argument. Note that the passed argument is incomplete -
-          * it does not have a value. You can assume that name, filename,
-          * MIME type and the whole header are already known.
-          * - THIS CONFIGURATION PARAMETER ONLY AFFECTS ARGUMENTS
-          * "POST"ED FROM THE CLIENT IN FORM-ENCODED REPRESENTATION.
-          * All other transport methods can only handle the Memory
-          * processing type.
-          *)
-      tmp_directory : string;
-          (* The temporary directory to use for the temporary files. *)
-      tmp_prefix : string;
-         (* A prefix for temporary files. It is recommended that the prefix
-          * contains a part that is random or that depends on rapidly changing
-          * environment properties. For example, the process ID is a good
-          * candidate, or the current system time. It is not required that
-          * the prefix is unique; there is a fail-safe algorithm that
-          * computes a unique file name from the prefix, even if several
-          * CGI programs run concurrently.
-          *)
-      workarounds : workaround list;
-          (* Specifies which workarounds should be enabled. *)
-    }
-
-val parse_arguments : config -> unit
-val arguments : unit -> (string * argument) list
-    (* - let () = parse_arguments config:
-     * Decodes the CGI arguments. 'config' specifies limits and processing
-     * hints; you can simply pass default_config (see below).
-     *
-     * - let arglist = get_arguments():
-     * The function returns a list with (name, arg) pairs. The name is
-     * passed back as string while the value is returned as opaque type
-     * 'argument'. Below accessor functions are defined. These functions
-     * require that parse_arguments was invoked before.
-     *
-     * Note 1: You can invoke 'parse_arguments' several times, but only
-     * the first time the arguments are read in. If you call the function
-     * again, it does nothing (even if the config changes). This is also
-     * true if 'parse_arguments' has been invoked after 'set_arguments'.
-     *
-     * Note 2: It is not guaranteed that stdin has been read until EOF.
-     * Only CONTENT_LENGTH bytes are read from stdin (following the CGI spec).
-     *
-     * Note 3: If arguments are processed in File or Automatic mode, the
-     * caller of 'parse_arguments' is responsible for deleting the files
-     * after use. You may consider to apply the at_exit function of the
-     * core library for this purpose. See also 'cleanup' below.
-     *)
-
-val set_arguments : argument list -> unit
-    (* Alternatively, you can set the arguments to use. This overrides any
-     * previously parsed set of arguments, and also any following parsing.
-     * - Intended for debugging, and to make it possible to replace the
-     * CGI parser by a different one while retaining this API.
-     *)
-
-val default_config : config
-    (* maximum_content_length = maxint
-     * how_to_process_arguments = "use always Memory"
-     * tmp_directory = "/var/tmp"
-     * tmp_prefix = "cgi"
-     * workarounds = [ Work_around_MSIE_content_type_bug;
-     *                 Work_around_backslash_bug;
-     *               ]
-     *
-     * Note 1: On some Unixes, a special file system is used for /tmp that
-     * stores the files into the virtual memory (main memory or swap area).
-     * Because of this, /var/tmp is preferred as default.
-     *
-     * Note 2: Filename.temp_file is not used because it depends on
-     * environment variables which are usually not set in a CGI environment.
-     *)
-
-val arg_name     : argument -> string
-val arg_value    : argument -> string
-val arg_file     : argument -> string option
-val arg_mimetype : argument -> string
-val arg_filename : argument -> string option
-val arg_header   : argument -> (string * string) list
-    (* The accessor functions that return several aspects of arguments.
-     * arg_name: returns the name of the argument
-     * arg_value: returns the value of the argument. If the value is stored
-     *     in a temporary file, the contents of this file are returned, i.e.
-     *     the file is loaded. This may have some consequences:
-     *     (1) The function may fail because of I/O errors.
-     *     (2) The function may be very slow, especially if the file is
-     *         non-local.
-     *     (3) If the value is bigger than Sys.max_string_length, the function
-     *         raises the exception Resources_exceeded. On 32 bit architectures,
-     *         strings are limited to 16 MB.
-     *     Note that loaded values are put into weak arrays. This makes it
-     *     possible that subsequent calls of 'arg_value' on the same argument
-     *     can avoid loading the value again, and that unused values will
-     *     nevertheless be collected by the GC.
-     * arg_file: returns 'Some filename' if the value resides in a temporary
-     *     file, and 'filename' is the absolute path of this file. If the
-     *     value is only available in memory, None is returned.
-     * arg_mimetype: returns the MIME type of the argument. Note that the
-     *     default MIME type is "text/plain", and that the default is returned
-     *     if the MIME type is not available.
-     * arg_filename: returns 'Some filename' if the argument is associated
-     *     with a certain filename (e.g. from a file upload); otherwise None
-     * arg_header: returns pairs (name,value) containing the complete header
-     *     of the argument. If the transmission protocol does not specify
-     *     a header, the empty list is passed back.
-     *)
-
-val mk_simple_arg : name:string -> string -> argument
-    (* mk_simple_arg name value:
-     * Creates a simple argument with only name, and a value passed by string.
-     * The MIME type is "text/plain".
-     *)
-
-val mk_memory_arg
-    : name:string -> ?mime:string -> ?filename:string -> 
-      ?header:((string * string) list) -> string -> argument
-    (* mk_memory_arg name mimetype filename header value:
-     * Creates an argument whose value is kept in memory.
-     *
-     * Note: The signature of this function changed in release 0.8.
-     *)
-
-val mk_file_arg
-    : name:string -> ?mime:string -> ?filename:string -> 
-      ?header:((string * string) list) -> string -> argument
-    (* mk_file_arg name mimetype filename header value_filename:
-     * Creates an argument whose value is stored in the file
-     * 'value_filename'. If this file name is not absolute, it is interpreted
-     * relative to the directory returned by Sys.getcwd() - this might not
-     * be what you want with respect to mount points and symlinks (and it
-     * depends on the operating system as getcwd is only POSIX.1). The
-     * file name is turned into an absolute name immediately, and the
-     * function arg_file returns the rewritten name.
-     *
-     * Note: The signature of this function changed in release 0.8.
-     *)
-
-
-val cleanup : unit -> unit
-    (* Removes all temporary files that occur in the current set of arguments
-     * (as returned by 'arguments()').
-     *)
-
-
-(* Convenience functions: *)
-
-val argument : string -> argument
-    (* let argument name = List.assoc name (arguments()) -- i.e. returns
-     * the argument with the passed name. Of course, this function expects
-     * that 'parse_arguments' was called before.
-     *)
-
-val argument_value : string -> string
-    (* let argument_value name = arg_value(argument name) -- i.e. returns
-     * the value of the argument.
-     * See also Operators.( !$ ) below.
-     *)
-
-(* For toploop printers: *)
-
-val print_argument : argument -> unit
-
-
-(* Now, the compatibility functions. *)
-
-val parse_args : unit -> (string * string) list
-    (* Decodes the arguments of the CGI and returns them as an association list
-     * Works whatever the method is (GET or POST)
-     *)
-
-val parse_args_with_mimetypes : unit -> (string * string * string) list
-    (* Like parse_args, but returns also the MIME type.
-     * The triples contain (name, mime_type, value).
-     * If an encoding was chosen that does not transfer the MIME type,
-     * "text/plain" is returned.
-     *
-     * THIS FUNCTION SHOULD BE CONSIDERED AS DEPRECATED.
-     * It was included in netstring-0.4, but most people want not only
-     * the MIME type. parse_arguments should be used instead.
-     *)
-
-val header : string -> unit
-    (* Prints the content-type header.
-     * the argument is the MIME type (default value is "text/html" if the
-     * argument is the empty string)
-     *)
-
-val this_url : unit -> string
-    (* Returns the address of the CGI *)
-
-(**********************************************************************)
-(* The Operators module                                               *)
-(**********************************************************************)
-
-(* If you open the Operators module, you can write
- *     !% "name"      instead of     argument "name", and
- *     !$ "name"      instead of     argument_value "name"
- *)
-
-module Operators : sig
-  val ( !% ) : string -> argument
-      (* same as 'argument' above *)
-  val ( !$ ) : string -> string
-      (* same as 'argument_value' above *)
-end
-
-(**********************************************************************)
-(* Low-level functions                                                *)
-(**********************************************************************)
-
-(* Encoding/Decoding within URLs:
- *
- * The following two functions perform the '%'-substitution for
- * characters that may otherwise be interpreted as metacharacters.
- *
- * See also the Netencoding module. This interface contains these functions
- * to keep the compatibility with the old Cgi module.
- *)
-
-val decode : string -> string
-val encode : string -> string
-
-(* URL-encoded parameters:
- *
- * The following two functions create and analyze URL-encoded parameters.
- * Format: name1=val1&name2=val2&...
- *)
-
-val mk_url_encoded_parameters : (string * string) list -> string
-    (* The argument is a list of (name,value) pairs. The result is the
-     * single URL-encoded parameter string.
-     *)
-
-val dest_url_encoded_parameters : string -> (string * string) list
-    (* The argument is the URL-encoded parameter string. The result is
-     * the corresponding list of (name,value) pairs.
-     * Note: Whitespace within the parameter string is ignored.
-     * If there is a format error, the function fails.
-     *)
-
-(* Form-encoded parameters:
- *
- * According to: RFCs 2388, 2183, 2045, 2046
- *
- * General note: This is a simple API to encode/decode form-encoded parameters.
- * Especially, it is not possible to pass the header of the parts through
- * this API.
- *)
-
-val mk_form_encoded_parameters : (string * string * string) list ->
-                                     (string * string)
-    (* The argument is a list of (name,mimetype,value) triples.
-     * The result is (parstr, boundary), where 'parstr' is the
-     * single form-encoded parameter string, and 'boundary' is the
-     * boundary to separate the message parts.
-     *
-     * THIS FUNCTION IS CURRENTLY NOT IMPLEMENTED!
-     *)
-
-val  dest_form_encoded_parameters : string -> boundary:string -> config ->
-                                       argument list
-    (* The first argument is the form-encoded parameter string.
-     * The second argument is the boundary (extracted from the mime type).
-     * Third argument: Only the workarounds component is used.
-     * The result is
-     * the corresponding list of arguments (all in memory).
-     * If there is a format error, the function fails.
-     * Note: embedded multipart/mixed types are returned as they are,
-     *   and are not recursively decoded.
-     * Note: The content-transfer-encodings "7bit", "8bit", "binary",
-     *   "base64", and "quoted-printable" are supported.
-     * Note: Parameter names which include spaces or non-alphanumeric
-     *   characters may be problematic (the rules of RFC 2047 are NOT applied).
-     * Note: The returned MIME type is not normalized.
-     *)
-
-val dest_form_encoded_parameters_from_netstream
-    : Netstream.t -> boundary:string -> config -> argument list
-    (* let arglist = dest_form_encoded_parameters_from_netstream s b c:
-     * Reads the form-encoded parameters from netstream s. The boundary
-     * is passed in b, and the configuration in c.
-     * A list of arguments is returned.
-     *
-     * See also dest_form_encoded_parameters.
-     *
-     * Restriction: In contrast to dest_form_encoded_parameters, this
-     * function is not able to handle the content-transfer-encodings
-     * "base64" and "quoted-printable". (This is not really a restriction
-     * because no browser uses these encodings in conjunction with HTTP.
-     * This is different if mail transport is chosen. - The reason for
-     * this restriction is that there are currently no stream functions
-     * for decoding.)
-     *)
-
-(* Private functions: *)
-
-val init_mt : (unit -> unit) -> (unit -> unit) -> unit
-
-
-(**********************************************************************)
-(* Compatibility with CGI library by J.-C. Filliatre                  *)
-(**********************************************************************)
-
-(* The following functions are compatible with J.-C. Filliatre's CGI
- * library:
- *
- * parse_args, header, this_url, decode, encode.
- *
- * Note that the new implementation of parse_args can be safely invoked
- * several times.
- *
- * Since release 0.8, Netstring's CGI implementation is again thread-safe.
- *)
-
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:27  lpadovan
- * Initial revision
- *
- * Revision 1.8  2000/06/25 22:34:43  gerd
- *     Added labels to arguments.
- *
- * Revision 1.7  2000/06/25 21:40:36  gerd
- *     Added printer.
- *
- * Revision 1.6  2000/06/25 21:15:48  gerd
- *     Checked thread-safety.
- *
- * Revision 1.5  2000/05/16 22:28:13  gerd
- *     New "workarounds" config component.
- *
- * Revision 1.4  2000/04/15 16:47:27  gerd
- *     Last minor changes before releasing 0.6.
- *
- * Revision 1.3  2000/04/15 13:09:01  gerd
- *     Implemented uploads to temporary files.
- *
- * Revision 1.2  2000/03/02 01:15:30  gerd
- *     Updated.
- *
- * Revision 1.1  2000/02/25 15:21:12  gerd
- *     Initial revision.
- *
- *
- *)

diff --git a/helm/DEVEL/pxp/netstring/compat-base64/META b/helm/DEVEL/pxp/netstring/compat-base64/META
deleted file mode 100644 (file)
index a5c003e..0000000
--- a/helm/DEVEL/pxp/netstring/compat-base64/META
+++ /dev/null
@@ -1,3 +0,0 @@
-version = "0.5"
-requires = "netstring"
-description = "Compatibility with base64"

diff --git a/helm/DEVEL/pxp/netstring/compat-cgi/META b/helm/DEVEL/pxp/netstring/compat-cgi/META
deleted file mode 100644 (file)
index 2294921..0000000
--- a/helm/DEVEL/pxp/netstring/compat-cgi/META
+++ /dev/null
@@ -1,3 +0,0 @@
-version = "0.5"
-requires = "netstring"
-description = "Compatibility with cgi"

diff --git a/helm/DEVEL/pxp/netstring/depend b/helm/DEVEL/pxp/netstring/depend
deleted file mode 100644 (file)
index 5991264..0000000
--- a/helm/DEVEL/pxp/netstring/depend
+++ /dev/null
@@ -1,36 +0,0 @@
-base64.cmo: netencoding.cmi base64.cmi 
-base64.cmx: netencoding.cmx base64.cmi 
-cgi.cmo: mimestring.cmi netbuffer.cmi netencoding.cmi netstream.cmi cgi.cmi 
-cgi.cmx: mimestring.cmx netbuffer.cmx netencoding.cmx netstream.cmx cgi.cmi 
-mimestring.cmo: netbuffer.cmi netencoding.cmi netstream.cmi netstring_str.cmi \
-    mimestring.cmi 
-mimestring.cmx: netbuffer.cmx netencoding.cmx netstream.cmx netstring_str.cmx \
-    mimestring.cmi 
-netbuffer.cmo: netbuffer.cmi 
-netbuffer.cmx: netbuffer.cmi 
-netconversion.cmo: netmappings.cmi netconversion.cmi 
-netconversion.cmx: netmappings.cmx netconversion.cmi 
-netencoding.cmo: netstring_str.cmi netencoding.cmi 
-netencoding.cmx: netstring_str.cmx netencoding.cmi 
-nethtml.cmo: nethtml.cmi 
-nethtml.cmx: nethtml.cmi 
-netmappings.cmo: netmappings.cmi 
-netmappings.cmx: netmappings.cmi 
-netmappings_iso.cmo: netmappings.cmi 
-netmappings_iso.cmx: netmappings.cmx 
-netmappings_other.cmo: netmappings.cmi 
-netmappings_other.cmx: netmappings.cmx 
-netstream.cmo: netbuffer.cmi netstream.cmi 
-netstream.cmx: netbuffer.cmx netstream.cmi 
-netstring_mt.cmo: cgi.cmi netmappings.cmi netstring_str.cmi netstring_mt.cmi 
-netstring_mt.cmx: cgi.cmx netmappings.cmx netstring_str.cmx netstring_mt.cmi 
-netstring_str.cmo: netstring_str.cmi 
-netstring_str.cmx: netstring_str.cmi 
-netstring_top.cmo: netstring_top.cmi 
-netstring_top.cmx: netstring_top.cmi 
-neturl.cmo: netencoding.cmi neturl.cmi 
-neturl.cmx: netencoding.cmx neturl.cmi 
-cgi.cmi: netstream.cmi 
-mimestring.cmi: netstream.cmi 
-netmappings.cmi: netconversion.cmi 
-netstream.cmi: netbuffer.cmi 

diff --git a/helm/DEVEL/pxp/netstring/depend.pkg b/helm/DEVEL/pxp/netstring/depend.pkg
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/DEVEL/pxp/netstring/doc/ABOUT-FINDLIB b/helm/DEVEL/pxp/netstring/doc/ABOUT-FINDLIB
deleted file mode 100644 (file)
index d942e27..0000000
--- a/helm/DEVEL/pxp/netstring/doc/ABOUT-FINDLIB
+++ /dev/null
@@ -1,52 +0,0 @@
-******************************************************************************
-ABOUT-FINDLIB - Package manager for O'Caml
-******************************************************************************
-
-
-==============================================================================
-Abstract
-==============================================================================
-
-The findlib library provides a scheme to manage reusable software components 
-(packages), and includes tools that support this scheme. Packages are 
-collections of OCaml modules for which metainformation can be stored. The 
-packages are kept in the filesystem hierarchy, but with strict directory 
-structure. The library contains functions to look the directory up that stores 
-a package, to query metainformation about a package, and to retrieve dependency 
-information about multiple packages. There is also a tool that allows the user 
-to enter queries on the command-line. In order to simplify compilation and 
-linkage, there are new frontends of the various OCaml compilers that can 
-directly deal with packages. 
-
-Together with the packages metainformation is stored. This includes a version 
-string, the archives the package consists of, and additional linker options. 
-Packages can also be dependent on other packages. There is a query which finds 
-out all predecessors of a list of packages and sorts them topologically. The 
-new compiler frontends do this implicitly. 
-
-Metainformation can be conditional, i.e. depend on a set of predicates. This is 
-mainly used to be able to react on certain properties of the environment, such 
-as if the bytecode or the native compiler is invoked, if the application is 
-multi-threaded, and a few more. If the new compiler frontends are used, most 
-predicates are found out automatically. 
-
-There is special support for scripts. A new directive, "#require", loads 
-packages into scripts. Of course, this works only with newly created toploops 
-which include the findlib library. 
-
-==============================================================================
-Where to get findlib
-==============================================================================
-
-The manual of findlib is available online [1]. You can download findlib here 
-[2]. 
-
-
---------------------------
-
-[1]   see http://www.ocaml-programming.de/packages/documentation/findlib/
-
-[2]   see http://www.ocaml-programming.de/packages/findlib-0.3.1.tar.gz
-
-
-

diff --git a/helm/DEVEL/pxp/netstring/doc/ABOUT-FINDLIB.xml b/helm/DEVEL/pxp/netstring/doc/ABOUT-FINDLIB.xml
deleted file mode 100644 (file)
index d1dc5b0..0000000
--- a/helm/DEVEL/pxp/netstring/doc/ABOUT-FINDLIB.xml
+++ /dev/null
@@ -1,61 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<!DOCTYPE readme SYSTEM "readme.dtd" [
-
-<!ENTITY % common SYSTEM "common.xml">
-%common;
-
-<!ENTITY f "<em>findlib</em>">
-<!ENTITY F "<em>Findlib</em>">
-
-]>
-
-<readme title="ABOUT-FINDLIB - Package manager for O'Caml">
-  <sect1>
-    <title>Abstract</title>
-<p>
-The &f; library provides a scheme to manage reusable software
-components (packages), and includes tools that support this
-scheme. Packages are collections of OCaml modules for which
-metainformation can be stored. The packages are kept in the filesystem
-hierarchy, but with strict directory structure. The library contains
-functions to look the directory up that stores a package, to query
-metainformation about a package, and to retrieve dependency
-information about multiple packages. There is also a tool that allows
-the user to enter queries on the command-line. In order to simplify
-compilation and linkage, there are new frontends of the various OCaml
-compilers that can directly deal with packages.
-</p>
-
-<p>
-Together with the packages metainformation is stored. This includes a
-version string, the archives the package consists of, and additional
-linker options. Packages can also be dependent on other
-packages. There is a query which finds out all predecessors of a list
-of packages and sorts them topologically. The new compiler frontends
-do this implicitly.
-</p>
-
-<p>
-Metainformation can be conditional, i.e. depend on a set of
-predicates. This is mainly used to be able to react on certain
-properties of the environment, such as if the bytecode or the native
-compiler is invoked, if the application is multi-threaded, and a few
-more. If the new compiler frontends are used, most predicates are
-found out automatically.
-</p>
-
-<p>
-There is special support for scripts. A new directive, "#require",
-loads packages into scripts. Of course, this works only with newly
-created toploops which include the &f; library.
-</p>
-
-  </sect1>
-
-  <sect1><title>Where to get findlib</title>
-    <p>
-The manual of &f; is available <a href="&url.findlib-project;">online</a>.
-You can download &f; <a href="&url.findlib-download;">here</a>.
-</p>
-  </sect1>
-</readme>

diff --git a/helm/DEVEL/pxp/netstring/doc/INSTALL b/helm/DEVEL/pxp/netstring/doc/INSTALL
deleted file mode 100644 (file)
index cca3994..0000000
--- a/helm/DEVEL/pxp/netstring/doc/INSTALL
+++ /dev/null
@@ -1,128 +0,0 @@
-******************************************************************************
-INSTALL - Netstring, string processing functions for the net
-******************************************************************************
-
-
-==============================================================================
-The "Netstring" package
-==============================================================================
-
-------------------------------------------------------------------------------
-Prerequisites
-------------------------------------------------------------------------------
-
-Netstring does not need any other packages besides the O'Caml core. Netstring 
-needs at least O'Caml 3.00. The installation procedure defined in the Makefile 
-requires findlib [1] to work [2]. 
-
-------------------------------------------------------------------------------
-Configuration
-------------------------------------------------------------------------------
-
-It is not necessary to configure "Netstring". 
-
-------------------------------------------------------------------------------
-Compilation
-------------------------------------------------------------------------------
-
-The Makefile defines the following goals: 
-
--  make all
-   compiles with the bytecode compiler and creates netstring.cma, 
-   netstring_mt.cmo, netstring_top.cmo, netmappings_iso.cmo, and 
-   netmappings_other.cmo
-   
--  make opt
-   compiles with the native compiler and creates netstring.cmxa, 
-   netstring_mt.cmx, netmappings_iso.cmx, and netmappings_other.cmx
-   
-The archive netstring.cmx?a contains the functionality, and the two 
-single-module files netmappings_iso.cm[ox] and netmappings_other.cm[ox] add 
-configurations to the character set conversion module. These configurations are 
-optional:
-
--  Netmappings_iso: Conversion tables for the character sets ISO-8859-2, -3, 
-   -4, -5, -6, -7, -8, -9, -10, 13, -14, and -15.
-   
--  Netmappings_other: Conversion tables for the character sets WINDOWS-1250, 
-   -1251, -1252, -1253, -1254, -1255, -1256, -1257, -1258; code pages 037, 424, 
-   437, 500, 737, 775, 850, 852, 855, 856, 857, 860, 861, 862, 863, 864, 865, 
-   866, 869, 874, 875, 1006, 1026; JIS-0201; KOI8R; Macintosh Roman encoding; 
-   Adobe Standard Encoding, Symbol Encoding, and Zapf Dingbats Encodings.
-   
-Even without these configuration files, the conversion module is able to handle 
-the encodings ISO-8859-1, US-ASCII, UTF-16, UTF-8, and the Java variant of 
-UTF-8.
-
-The module Netstring_mt must be linked into multi-threaded applications; 
-otherwise some mutexes remain uninitialized.
-
-The module Netstring_top loads several printers for abstract values (for 
-toploops).
-
-------------------------------------------------------------------------------
-Installation
-------------------------------------------------------------------------------
-
-The Makefile defines the following goals:
-
--  make install
-   installs the bytecode archive, the interface definitions, and if present, 
-   the native archive in the default location of findlib 
-   
--  make install-cgi
-   Installs a pseudo package "cgi" which is compatible with the old cgi 
-   package. This has the effect that software searching the "cgi" package will 
-   find the netstring package instead. This is recommended.
-   
--  make install-base64
-   Installs a pseudo package "base64" which is compatible with the old base64 
-   package. This has the effect that software searching the "base64" package 
-   will find the netstring package instead. This is recommended.
-   
--  make uninstall
-   removes the package
-   
--  make uninstall-cgi
-   removes the "cgi" compatibility package
-   
--  make uninstall-base64
-   removes the "base64" compatibility package
-   
-------------------------------------------------------------------------------
-Linking netstring with findlib
-------------------------------------------------------------------------------
-
-The command 
-
-ocamlfind ocamlc ... -package netstring ... -linkpkg ...
-
-links as much as possible code from netstring into your application: All 
-conversion tables; when -thread is specified, the initialization code for 
-multi-threaded programs; when a toploop is created, the code setting the value 
-printers.
-
-The following predicates reduce the amount of linked code:
-
--  netstring_only_iso: Only the conversion tables for the ISO-8859 series of 
-   character sets are linked.
-   
--  netstring_minimum: No additional conversion tables are linked; only 
-   ISO-8859-1 and the UTF encodings work.
-   
-For example, the command may look like 
-
-ocamlfind ocamlc ... 
-          -package netstring -predicates netstring_only_iso ... -linkpkg ...
-
-to link only the ISO-8859 conversion tables.
-
-
---------------------------
-
-[1]   see http://www.ocaml-programming.de/packages/documentation/findlib/
-
-[2]   Findlib is a package manager, see the file ABOUT-FINDLIB.
-
-
-

diff --git a/helm/DEVEL/pxp/netstring/doc/INSTALL.xml b/helm/DEVEL/pxp/netstring/doc/INSTALL.xml
deleted file mode 100644 (file)
index b5b53ed..0000000
--- a/helm/DEVEL/pxp/netstring/doc/INSTALL.xml
+++ /dev/null
@@ -1,153 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<!DOCTYPE readme SYSTEM "readme.dtd" [
-
-<!ENTITY % common SYSTEM "common.xml">
-%common;
-
-<!ENTITY m "<em>Netstring</em>">
-
-]>
-
-<readme title="INSTALL - Netstring, string processing functions for the net">
-  <sect1><title>The "Netstring" package</title>
-    <sect2><title>Prerequisites</title>
-      <p>
-&m; does not need any other packages besides the O'Caml core. &m; needs
-at least O'Caml 3.00. The installation procedure defined in the Makefile
-requires <a href="&url.findlib-project;">findlib</a> to
-work<footnote><em>Findlib</em> is a package manager, see the file
-ABOUT-FINDLIB.</footnote>.
-</p>
-    </sect2>
-
-    <sect2><title>Configuration</title>
-      <p>
-It is not necessary to configure "Netstring".
-</p>
-    </sect2>
-
-    <sect2><title>Compilation</title>
-      <p>
-The Makefile defines the following goals:
-</p>
-      <ul>
-       <li>
-         <p>make all</p> 
-         <p>compiles with the bytecode compiler and creates netstring.cma,
-netstring_mt.cmo, netstring_top.cmo, netmappings_iso.cmo, and
-netmappings_other.cmo</p>
-       </li>
-       <li>
-         <p>make opt</p>
-         <p>compiles with the native compiler and creates netstring.cmxa,
-netstring_mt.cmx, netmappings_iso.cmx, and netmappings_other.cmx</p>
-       </li>
-      </ul>
-
-      <p>The archive netstring.cmx?a contains the functionality, and the two
-single-module files netmappings_iso.cm[ox] and netmappings_other.cm[ox] add
-configurations to the character set conversion module. These configurations are
-optional:</p>
-
-      <ul>
-       <li><p>Netmappings_iso: Conversion tables for the character sets
-ISO-8859-2, -3, -4, -5, -6, -7, -8, -9, -10, 13, -14, and -15.</p>
-       </li>
-       <li><p>Netmappings_other: Conversion tables for the character sets
-WINDOWS-1250, -1251, -1252, -1253, -1254, -1255, -1256, -1257, -1258;
-code pages 037, 424, 437, 500, 737, 775, 850, 852, 855, 856, 857, 860, 861,
-862, 863, 864, 865, 866, 869, 874, 875, 1006, 1026; JIS-0201; KOI8R; Macintosh
-Roman encoding; Adobe Standard Encoding, Symbol Encoding, and Zapf Dingbats
-Encodings.</p>
-       </li>
-      </ul>
-
-<p>Even without these configuration files, the conversion module is able to
-handle the encodings ISO-8859-1, US-ASCII, UTF-16, UTF-8, and the Java variant
-of UTF-8.</p>
-
-<p>The module Netstring_mt must be linked into multi-threaded applications;
-otherwise some mutexes remain uninitialized.</p>
-
-<p>The module Netstring_top loads several printers for abstract values (for
-toploops).</p> 
-
-    </sect2>
-
-    <sect2><title>Installation</title>
-      <p>
-The Makefile defines the following goals:</p>
-      <ul>
-       <li>
-         <p>make install</p>
-         <p>installs the bytecode archive, the interface definitions, and if
-present, the native archive in the default location of <em>findlib</em>
-</p>
-       </li>
-
-       <li>
-         <p>make install-cgi</p>
-         <p>Installs a pseudo package "cgi" which is compatible with the old
-cgi package. This has the effect that software searching the "cgi" package will
-find the netstring package instead. This is recommended.</p>
-       </li>
-
-       <li>
-         <p>make install-base64</p> <p>Installs a pseudo package "base64"
-which is compatible with the old base64 package. This has the effect that
-software searching the "base64" package will find the netstring package
-instead. This is recommended.</p>
-       </li>
-
-       <li>
-         <p>make uninstall</p>
-         <p>removes the package</p>
-       </li>
-
-       <li>
-         <p>make uninstall-cgi</p>
-         <p>removes the "cgi" compatibility package</p>
-       </li>
-
-       <li>
-         <p>make uninstall-base64</p>
-         <p>removes the "base64" compatibility package</p>
-       </li>
-      </ul>
-    </sect2>
-
-
-    <sect2>
-      <title>Linking netstring with findlib</title>
-      <p>The command
-<code>
-ocamlfind ocamlc ... -package netstring ... -linkpkg ...
-</code>
-links as much as possible code from netstring into your application: All
-conversion tables; when -thread is specified, the initialization code for
-multi-threaded programs; when a toploop is created, the code setting the value
-printers.</p>
-
-<p>The following predicates reduce the amount of linked code:</p>
-
-      <ul>
-       <li><p>netstring_only_iso: Only the conversion tables for the ISO-8859
-series of character sets are linked.</p>
-       </li>
-       <li><p>netstring_minimum: No additional conversion tables are linked;
-only ISO-8859-1 and the UTF encodings work.</p>
-       </li>
-      </ul>
-
-<p>For example, the command may look like
-
-<code>
-ocamlfind ocamlc ... 
-          -package netstring -predicates netstring_only_iso ... -linkpkg ...
-</code>
-
-to link only the ISO-8859 conversion tables.</p>
-    </sect2>
-
-  </sect1>
-</readme>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/netstring/doc/Makefile b/helm/DEVEL/pxp/netstring/doc/Makefile
deleted file mode 100644 (file)
index 7f8450b..0000000
--- a/helm/DEVEL/pxp/netstring/doc/Makefile
+++ /dev/null
@@ -1,22 +0,0 @@
-.PHONY: all
-all: README INSTALL ABOUT-FINDLIB
-
-README: README.xml common.xml config.xml
-       readme -text README.xml >README
-
-INSTALL: INSTALL.xml common.xml config.xml
-       readme -text INSTALL.xml >INSTALL
-
-ABOUT-FINDLIB: ABOUT-FINDLIB.xml common.xml config.xml
-       readme -text ABOUT-FINDLIB.xml >ABOUT-FINDLIB
-
-.PHONY: clean
-clean:
-
-.PHONY: CLEAN
-CLEAN: clean
-
-.PHONY: distclean
-distclean: clean
-       rm -f *~
-

diff --git a/helm/DEVEL/pxp/netstring/doc/README b/helm/DEVEL/pxp/netstring/doc/README
deleted file mode 100644 (file)
index b590416..0000000
--- a/helm/DEVEL/pxp/netstring/doc/README
+++ /dev/null
@@ -1,212 +0,0 @@
-******************************************************************************
-README - Netstring, string processing functions for the net
-******************************************************************************
-
-
-==============================================================================
-Abstract
-==============================================================================
-
-Netstring is a collection of string processing functions that are useful in 
-conjunction with Internet messages and protocols. In particular, it contains 
-functions for the following purposes:
-
--  Parsing MIME messages
-   
--  Several encoding/decoding functions (Base 64, Quoted Printable, Q, 
-   URL-encoding)
-   
--  A new implementation of the CGI interface that allows users to upload files
-   
--  A simple HTML parser
-   
--  URL parsing, printing and processing
-   
--  Conversion between character sets
-   
-==============================================================================
-Download
-==============================================================================
-
-You can download Netstring as gzip'ed tarball [1]. 
-
-==============================================================================
-Documentation
-==============================================================================
-
-Sorry, there is no manual. The mli files describe each function in detail. 
-Furthermore, the following additional information may be useful.
-
-------------------------------------------------------------------------------
-New CGI implementation
-------------------------------------------------------------------------------
-
-For a long time, the CGI implementation by Jean-Christophe Filliatre has been 
-the only freely available module that implemented the CGI interface (it also 
-based on code by Daniel de Rauglaudre). It worked well, but it did not support 
-file uploads because this requires a parser for MIME messages.
-
-The main goal of Netstring is to realize such uploads, and because of this it 
-contains an almost complete parser for MIME messages.
-
-The new CGI implementation provides the same functions than the old one, and 
-some extensions. If you call Cgi.parse_args(), you get the CGI parameters as 
-before, but as already explained this works also if the parameters are 
-encaspulated as MIME message. In the HTML code, you can select the MIME format 
-by using 
-
-<form action="..." method="post" enctype="multipart/form-data">
-...
-</form>
-
-
-- this "enctype" attribute forces the browser to send the form parameters as 
-multipart MIME message (Note: You can neither send the parameters of a 
-conventional hyperlink as MIME message nor the form parameters if the "method" 
-is "get"). In many browsers only this particular encoding enables the file 
-upload elements, you cannot perform file uploads with other encodings. 
-
-As MIME messages can transport MIME types, filename, and other additional 
-properties, it is also possible to get these using the enhanced interface. 
-After calling 
-
-Cgi.parse_arguments config
-
-you can get all available information about a certain parameter by invoking 
-
-let param = Cgi.argument "name"
-
-- where "param" has the type "argument". There are several accessor functions 
-to extract the various aspects of arguments (name, filename, value by string, 
-value by temporary file, MIME type, MIME header) from "argument" values. 
-
-------------------------------------------------------------------------------
-Base64, and other encodings
-------------------------------------------------------------------------------
-
-Netstring is also the successor of the Base64 package. It provides a Base64 
-compatible interface, and an enhanced API. The latter is contained in the 
-Netencoding module which also offers implementations of the "quoted printable", 
-"Q", and "URL" encodings. Please see netencoding.mli for details.
-
-------------------------------------------------------------------------------
-The MIME scanner functions
-------------------------------------------------------------------------------
-
-In the Mimestring module you can find several functions scanning parts of MIME 
-messages. These functions already cover most aspects of MIME messages: Scanning 
-of headers, analysis of structured header entries, and scanning of multipart 
-bodies. Of course, a full-featured MIME scanner would require some more 
-functions, especially concrete parsers for frequent structures (mail addresses 
-or date strings). 
-
-Please see the file mimestring.mli for details.
-
-------------------------------------------------------------------------------
-The HTML parser
-------------------------------------------------------------------------------
-
-The HTML parser should be able to read every HTML file; whether it is correct 
-or not. The parser tries to recover from parsing errors as much as possible. 
-
-The parser returns the HTML term as conventional recursive value (i.e. no 
-object-oriented design).
-
-The parser depends a bit on knowledge about the HTML version; mainly because it 
-needs to know the tags that are always empty. It may be necessary that you must 
-adjust this configuration before the parser works well enough for your purpose. 
-
-Please see the Nethtml module for details.
-
-------------------------------------------------------------------------------
-The abstract data type URL
-------------------------------------------------------------------------------
-
-The module Neturl contains support for URL parsing and processing. The 
-implementation follows strictly the standards RFC 1738 and RFC 1808. URLs can 
-be parsed, and several accessor functions allow the user to get components of 
-parsed URLs, or to change components. Modifying URLs is safe; it is impossible 
-to create a URL that does not have a valid string representation.
-
-Both absolute and relative URLs are supported. It is possible to apply a 
-relative URL to a base URL in order to get the corresponding absolute URL.
-
-------------------------------------------------------------------------------
-Conversion between character sets and encodings
-------------------------------------------------------------------------------
-
-The module Netconversion converts strings from one characters set to another. 
-It is Unicode-based, and there are conversion tables for more than 50 
-encodings.
-
-==============================================================================
-Author, Copying
-==============================================================================
-
-Netstring has been written by Gerd Stolpmann [2]. You may copy it as you like, 
-you may use it even for commercial purposes as long as the license conditions 
-are respected, see the file LICENSE coming with the distribution. It allows 
-almost everything. 
-
-==============================================================================
-History
-==============================================================================
-
--  Changed in 0.9.3: Fixed a bug in the "install" rule of the Makefile.
-   
--  Changed in 0.9.2: New format for the conversion tables which are now much 
-   smaller.
-   
--  Changed in 0.9.1: Updated the Makefile such that (native-code) compilation 
-   of netmappings.ml becomes possible. 
-   
--  Changed in 0.9: Extended Mimestring module: It can now process RFC-2047 
-   messages.
-   New Netconversion module which converts strings between character encodings.
-   
--  Changed in 0.8.1: Added the component url_accepts_8bits to 
-   Neturl.url_syntax. This helps processing URLs which intentionally contain 
-   bytes >= 0x80.
-   Fixed a bug: Every URL containing a 'j' was malformed!
-   
--  Changed in 0.8: Added the module Neturl which provides the abstract data 
-   types of URLs.
-   The whole package is now thread-safe.
-   Added printers for the various opaque data types.
-   Added labels to function arguments where appropriate. The following 
-   functions changed their signatures significantly: Cgi.mk_memory_arg, 
-   Cgi.mk_file_arg.
-   
--  Changed in 0.7: Added workarounds for frequent browser bugs. Some functions 
-   take now an additional argument specifying which workarounds are enabled.
-   
--  Changed in 0.6.1: Updated URLs in documentation.
-   
--  Changed in 0.6: The file upload has been re-implemented to support large 
-   files; the file is now read block by block and the blocks can be collected 
-   either in memory or in a temporary file.
-   Furthermore, the CGI API has been revised. There is now an opaque data type 
-   "argument" that hides all implementation details and that is extensible (if 
-   necessary, it is possible to add features without breaking the interface 
-   again).
-   The CGI argument parser can be configured; currently it is possible to limit 
-   the size of uploaded data, to control by which method arguments are 
-   processed, and to set up where temporary files are created.
-   The other parts of the package that have nothing to do with CGI remain 
-   unchanged. 
-   
--  Changed in 0.5.1: A mistake in the documentation has been corrected.
-   
--  Initial version 0.5: The Netstring package wants to be the successor of the 
-   Base64-0.2 and the Cgi-0.3 packages. The sum of both numbers is 0.5, and 
-   because of this, the first version number is 0.5. 
-   
-
---------------------------
-
-[1]   see http://www.ocaml-programming.de/packages/netstring-0.9.2.tar.gz
-
-[2]   see mailto:gerd@gerd-stolpmann.de
-
-
-

diff --git a/helm/DEVEL/pxp/netstring/doc/README.xml b/helm/DEVEL/pxp/netstring/doc/README.xml
deleted file mode 100644 (file)
index bbf473e..0000000
--- a/helm/DEVEL/pxp/netstring/doc/README.xml
+++ /dev/null
@@ -1,244 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<!DOCTYPE readme SYSTEM "readme.dtd" [
-
-<!ENTITY % common SYSTEM "common.xml">
-%common;
-
-<!-- Special HTML config: -->
-<!ENTITY % readme:html:up '<a href="../..">up</a>'>
-
-<!ENTITY % config SYSTEM "config.xml">
-%config;
-
-]>
-
-<readme title="README - Netstring, string processing functions for the net">
-  <sect1>
-    <title>Abstract</title>
-    <p>
-<em>Netstring</em> is a collection of string processing functions that are
-useful in conjunction with Internet messages and protocols. In particular,
-it contains functions for the following purposes:</p>
-
-<ul>
-      <li><p>Parsing MIME messages</p>
-      </li>
-      <li><p>Several encoding/decoding functions (Base 64, Quoted Printable, Q, URL-encoding)</p>
-      </li>
-      <li><p>A new implementation of the CGI interface that allows users to upload files</p>
-      </li>
-      <li><p>A simple HTML parser</p>
-      </li>
-      <li><p>URL parsing, printing and processing</p>
-      </li>
-      <li><p>Conversion between character sets</p>
-      </li>
-    </ul>
-
-  </sect1>
-
-  <sect1>
-    <title>Download</title>
-    <p>
-You can download <em>Netstring</em> as gzip'ed <a
-                                              href="&url.netstring-download;">tarball</a>.
-</p>
-
-  </sect1>
-
-  <sect1>
-    <title>Documentation</title>
-    <p>
-Sorry, there is no manual. The mli files describe each function in
-detail. Furthermore, the following additional information may be useful.</p>
-
-    <sect2>
-      <title>New CGI implementation</title>
-
-      <p>For a long time, the CGI implementation by Jean-Christophe Filliatre
-has been the only freely available module that implemented the CGI interface
-(it also based on code by Daniel de Rauglaudre). It worked well, but it did not
-support file uploads because this requires a parser for MIME messages.</p>
-      <p>The main goal of Netstring is to realize such uploads, and because of
-this it contains an almost complete parser for MIME messages.</p>
-      <p>The new CGI implementation provides the same functions than the old
-one, and some extensions. If you call Cgi.parse_args(), you get the CGI
-parameters as before, but as already explained this works also if the
-parameters are encaspulated as MIME message. In the HTML code, you can select
-the MIME format by using
-<code><![CDATA[
-<form action="..." method="post" enctype="multipart/form-data">
-...
-</form>
-]]>
-</code>
-- this "enctype" attribute forces the browser to send the form parameters
-as multipart MIME message (Note: You can neither send the parameters of a
-conventional hyperlink as MIME message nor the form parameters if the
-"method" is "get"). In many browsers only this particular encoding enables
-the file upload elements, you cannot perform file uploads with other encodings.
-</p>
-
-      <p>As MIME messages can transport MIME types, filename, and other
-additional properties, it is also possible to get these using the enhanced
-interface. After calling
-<code><![CDATA[
-Cgi.parse_arguments config
-]]></code>
-you can get all available information about a certain parameter by invoking
-<code><![CDATA[
-let param = Cgi.argument "name"
-]]></code>
-- where "param" has the type "argument". There are several accessor functions
-to extract the various aspects of arguments (name, filename, value by string,
-value by temporary file, MIME type, MIME header) from "argument" values.
-</p>
-
-    </sect2>
-
-
-    <sect2>
-      <title>Base64, and other encodings</title>
-
-      <p>Netstring is also the successor of the Base64 package. It provides a
-Base64 compatible interface, and an enhanced API. The latter is contained in
-the Netencoding module which also offers implementations of the "quoted
-printable", "Q", and "URL" encodings. Please see netencoding.mli for
-details.</p>
-
-    </sect2>
-
-
-    <sect2>
-      <title>The MIME scanner functions</title>
-
-      <p>In the Mimestring module you can find several functions scanning parts
-of MIME messages. These functions already cover most aspects of MIME messages:
-Scanning of headers, analysis of structured header entries, and scanning of
-multipart bodies. Of course, a full-featured MIME scanner would require some
-more functions, especially concrete parsers for frequent structures 
-(mail addresses or date strings).
-</p>
-      <p>Please see the file mimestring.mli for details.</p>
-    </sect2>
-
-
-    <sect2>
-      <title>The HTML parser</title>
-
-      <p>The HTML parser should be able to read every HTML file; whether it is
-correct or not. The parser tries to recover from parsing errors as much as
-possible.
-</p>
-      <p>The parser returns the HTML term as conventional recursive value
-(i.e. no object-oriented design).</p>
-      <p>The parser depends a bit on knowledge about the HTML version; mainly
-because it needs to know the tags that are always empty. It may be necessary
-that you must adjust this configuration before the parser works well enough for
-your purpose.
-</p>
-      <p>Please see the Nethtml module for details.</p>
-    </sect2>
-
-    <sect2>
-      <title>The abstract data type URL</title>
-      <p>The module Neturl contains support for URL parsing and processing.
-The implementation follows strictly the standards RFC 1738 and RFC 1808.
-URLs can be parsed, and several accessor functions allow the user to
-get components of parsed URLs, or to change components. Modifying URLs
-is safe; it is impossible to create a URL that does not have a valid
-string representation.</p>
-
-      <p>Both absolute and relative URLs are supported. It is possible to
-apply a relative URL to a base URL in order to get the corresponding
-absolute URL.</p>
-    </sect2>
-
-    <sect2>
-      <title>Conversion between character sets and encodings</title>
-      <p>The module Netconversion converts strings from one characters set
-to another. It is Unicode-based, and there are conversion tables for more than
-50 encodings.</p>
-    </sect2>
-
-  </sect1>
-
-  <sect1>
-    <title>Author, Copying</title>
-    <p>
-<em>Netstring</em> has been written by &person.gps;. You may copy it as you like,
-you may use it even for commercial purposes as long as the license conditions
-are respected, see the file LICENSE coming with the distribution. It allows
-almost everything.
-</p>
-  </sect1>
-
-  <sect1>
-    <title>History</title>
-
-    <ul>
-      <li><p><em>Changed in 0.9.3:</em> Fixed a bug in the "install" rule of
-the Makefile.</p>
-      </li>
-      <li><p><em>Changed in 0.9.2:</em> New format for the conversion tables
-which are now much smaller.</p>
-      </li>
-      <li><p><em>Changed in 0.9.1:</em> Updated the Makefile such that
-(native-code) compilation of netmappings.ml becomes possible.
-</p>
-      </li>
-      <li><p><em>Changed in 0.9:</em> Extended Mimestring module: It can
-now process RFC-2047 messages.</p>
-       <p>New Netconversion module which converts strings between character
-encodings.</p>
-      </li>
-      <li><p><em>Changed in 0.8.1:</em> Added the component
-url_accepts_8bits to Neturl.url_syntax. This helps processing URLs which
-intentionally contain bytes >= 0x80.</p>
-       <p>Fixed a bug: Every URL containing a 'j' was malformed!</p>
-      </li>
-      <li><p><em>Changed in 0.8:</em> Added the module Neturl which 
-provides the abstract data types of URLs.</p>
-       <p>The whole package is now thread-safe.</p>
-       <p>Added printers for the various opaque data types.</p>
-       <p>Added labels to function arguments where appropriate. The
-following functions changed their signatures significantly:
-Cgi.mk_memory_arg, Cgi.mk_file_arg.</p>
-      </li>
-      <li><p><em>Changed in 0.7:</em> Added workarounds for frequent
-browser bugs. Some functions take now an additional argument
-specifying which workarounds are enabled.</p>
-      </li>
-      <li><p><em>Changed in 0.6.1:</em> Updated URLs in documentation.</p>
-      </li>
-
-      <li><p><em>Changed in 0.6:</em> The file upload has been re-implemented
-to support large files; the file is now read block by block and the blocks can
-be collected either in memory or in a temporary file.<br/>
-Furthermore, the CGI API has been revised. There is now an opaque data type
-"argument" that hides all implementation details and that is extensible (if
-necessary, it is possible to add features without breaking the interface
-again).<br/>
-The CGI argument parser can be configured; currently it is possible to
-limit the size of uploaded data, to control by which method arguments are
-processed, and to set up where temporary files are created.<br/>
-The other parts of the package that have nothing to do with CGI remain
-unchanged.
-</p>
-      </li>
-
-      <li><p><em>Changed in 0.5.1:</em> A mistake in the documentation has
-been corrected.</p>
-      </li>
-
-      <li><p><em>Initial version 0.5:</em>
-The Netstring package wants to be the successor of the Base64-0.2 and
-the Cgi-0.3 packages. The sum of both numbers is 0.5, and because of this,
-the first version number is 0.5.
-</p>
-      </li>
-    </ul>
-  </sect1>
-
-</readme>
-

diff --git a/helm/DEVEL/pxp/netstring/mimestring.ml b/helm/DEVEL/pxp/netstring/mimestring.ml
deleted file mode 100644 (file)
index 8fc4bfc..0000000
--- a/helm/DEVEL/pxp/netstring/mimestring.ml
+++ /dev/null
@@ -1,1035 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-module Str = Netstring_str;;
-
-let cr_or_lf_re = Str.regexp "[\013\n]";;
-
-let trim_right_spaces_re =
-  Str.regexp "[ \t]+$";;
-
-let trim_left_spaces_re =
-  Str.regexp "^[ \t]+";;
-
-let header_re =
-  Str.regexp "\\([^ \t\r\n:]+\\):\\([ \t]*.*\n\\([ \t].*\n\\)*\\)";;
-
-let empty_line_re =
-  Str.regexp "\013?\n";;
-
-let end_of_header_re =
-  Str.regexp "\n\013?\n";;
-
-
-let scan_header ?(unfold=true) parstr ~start_pos:i0 ~end_pos:i1 =
-  let rec parse_header i l =
-    match Str.string_partial_match header_re parstr i with
-       Some r ->
-         let i' = Str.match_end r in
-         if i' > i1 then
-           failwith "Mimestring.scan_header";
-         let name = String.lowercase(Str.matched_group r 1 parstr) in
-         let value_with_crlf =
-           Str.matched_group r 2 parstr in
-         let value =
-           if unfold then begin
-             let value_with_rspaces =
-               Str.global_replace cr_or_lf_re "" value_with_crlf in
-             let value_with_lspaces =
-               Str.global_replace trim_right_spaces_re "" value_with_rspaces in
-             Str.global_replace trim_left_spaces_re "" value_with_lspaces 
-           end
-           else value_with_crlf
-         in
-         parse_header i' ( (name,value) :: l)
-      | None ->
-         (* The header must end with an empty line *)
-         begin match Str.string_partial_match empty_line_re parstr i with
-             Some r' ->
-               List.rev l, Str.match_end r'
-           | None ->
-               failwith "Mimestring.scan_header"
-         end
-  in
-  parse_header i0 []
-;;
-
-type s_token =
-    Atom of string
-  | EncodedWord of (string * string * string)
-  | QString of string
-  | Control of char
-  | Special of char
-  | DomainLiteral of string
-  | Comment
-  | End
-;;
-
-type s_option =
-    No_backslash_escaping
-  | Return_comments
-  | Recognize_encoded_words
-;;
-
-type s_extended_token =
-    { token      : s_token;
-      token_pos  : int;
-      token_line : int;
-      token_linepos : int;   (* Position of the beginning of the line *)
-      token_len  : int;
-      mutable token_sep : bool; (* separates adjacent encoded words *)
-    }
-;;
-
-let get_token et  = et.token;;
-let get_pos et    = et.token_pos;;
-let get_line et   = et.token_line;;
-let get_column et = et.token_pos - et.token_linepos;;
-let get_length et = et.token_len;;
-let separates_adjacent_encoded_words et = et.token_sep;;
-
-let get_decoded_word et =
-  match et.token with
-      Atom s -> s
-    | QString s -> s
-    | Control c -> String.make 1 c
-    | Special c -> String.make 1 c
-    | DomainLiteral s -> s
-    | Comment -> ""
-    | EncodedWord (_, encoding, content) ->
-       ( match encoding with
-             ("Q"|"q") ->
-               Netencoding.Q.decode content
-           | ("B"|"b") -> 
-               Netencoding.Base64.decode 
-                 ~url_variant:false
-                 ~accept_spaces:false
-                 content
-           | _ -> failwith "get_decoded_word"
-       )
-    | End -> 
-       failwith "get_decoded_word"
-;;
-
-let get_charset et =
-  match et.token with
-      EncodedWord (charset, _, _) -> charset
-    | End -> failwith "get_charset"
-    | _ -> "US-ASCII"
-;;
-
-type scanner_spec =
-    { (* What the user specifies: *)
-      scanner_specials : char list;
-      scanner_options : s_option list;
-      (* Derived from that: *)
-      mutable opt_no_backslash_escaping : bool;
-      mutable opt_return_comments : bool;
-      mutable opt_recognize_encoded_words : bool;
-
-      mutable is_special : bool array;
-      mutable space_is_special : bool;
-    }
-;;
-
-type scanner_target =
-    { scanned_string : string;
-      mutable scanner_pos : int;
-      mutable scanner_line : int;
-      mutable scanner_linepos : int; 
-      (* Position of the beginning of the line *)
-      mutable scanned_tokens : s_extended_token Queue.t;
-      (* A queue of already scanned tokens in order to look ahead *)
-      mutable last_token : s_token;
-      (* The last returned token. It is only important whether it is
-       * EncodedWord or not.
-       *)
-    }
-;;
-
-type mime_scanner = scanner_spec * scanner_target
-;;
-
-let get_pos_of_scanner (spec, target) = 
-  if spec.opt_recognize_encoded_words then
-    failwith "get_pos_of_scanner"
-  else
-    target.scanner_pos
-;;
-
-let get_line_of_scanner (spec, target) = 
-  if spec.opt_recognize_encoded_words then
-    failwith "get_line_of_scanner"
-  else
-    target.scanner_line
-;;
-
-let get_column_of_scanner (spec, target) = 
-  if spec.opt_recognize_encoded_words then
-    failwith "get_column_of_scanner"
-  else
-    target.scanner_pos - target.scanner_linepos 
-;;
-
-let create_mime_scanner ~specials ~scan_options =
-  let is_spcl = Array.create 256 false in
-  List.iter
-    (fun c -> is_spcl.( Char.code c ) <- true)
-    specials;
-  let spec =
-    { scanner_specials = specials;
-      scanner_options = scan_options;
-      opt_no_backslash_escaping = 
-       List.mem No_backslash_escaping scan_options;
-      opt_return_comments = 
-       List.mem Return_comments scan_options;
-      opt_recognize_encoded_words = 
-       List.mem Recognize_encoded_words scan_options;
-      is_special = is_spcl;
-      space_is_special = is_spcl.(32);
-    }
-  in
-  (* Grab the remaining arguments: *)
-  fun ?(pos=0) ?(line=1) ?(column=0) s ->
-    let target =
-      { scanned_string = s;
-       scanner_pos = pos;
-       scanner_line = line;
-       scanner_linepos = pos - column;
-       scanned_tokens = Queue.create();
-       last_token = Comment;   (* Must not be initialized with EncodedWord *)
-      }
-    in
-    spec, target
-;;
-
-
-let encoded_word_re =
-  Str.regexp "=\\?\\([^?]+\\)\\?\\([^?]+\\)\\?\\([^?]+\\)\\?=";;
-
-let scan_next_token ((spec,target) as scn) =
-  let mk_pair t len =
-    { token = t;
-      token_pos = target.scanner_pos;
-      token_line = target.scanner_line;
-      token_linepos = target.scanner_linepos;
-      token_len = len;
-      token_sep = false;
-    },
-    t
-  in
-
-  (* Note: mk_pair creates a new token pair, and it assumes that 
-   * target.scanner_pos (and also scanner_line and scanner_linepos)
-   * still contain the position of the beginning of the token.
-   *)
-
-  let s = target.scanned_string in
-  let l = String.length s in
-  let rec scan i =
-    if i < l then begin
-      let c = s.[i] in
-      if spec.is_special.( Char.code c ) then begin
-       let pair = mk_pair (Special c) 1 in
-       target.scanner_pos <- target.scanner_pos + 1;
-       (match c with
-            '\n' -> 
-              target.scanner_line    <- target.scanner_line + 1;
-              target.scanner_linepos <- target.scanner_pos;
-          | _ -> ()
-       );
-       pair
-      end
-      else
-       match c with
-           '"' -> 
-             (* Quoted string: *)
-             scan_qstring (i+1) (i+1) 0
-         | '(' ->
-             (* Comment: *)
-             let i', line, linepos = 
-               scan_comment (i+1) 0 target.scanner_line target.scanner_linepos
-             in
-             let advance() =
-               target.scanner_pos <- i';
-               target.scanner_line <- line;
-               target.scanner_linepos <- linepos
-             in
-             if spec.opt_return_comments then begin
-               let pair = mk_pair Comment (i' - i) in
-               advance();
-               pair
-             end
-             else 
-               if spec.space_is_special then begin
-                 let pair = mk_pair (Special ' ') (i' - i) in
-                 advance();
-                 pair
-               end
-               else begin
-                 advance();
-                 scan i'
-               end
-         | (' '|'\t'|'\r') ->
-             (* Ignore whitespace by default: *)
-             target.scanner_pos <- target.scanner_pos + 1;
-             scan (i+1)
-         | '\n' ->
-             (* Ignore whitespace by default: *)
-             target.scanner_pos     <- target.scanner_pos + 1;
-             target.scanner_line    <- target.scanner_line + 1;
-             target.scanner_linepos <- target.scanner_pos;
-             scan (i+1)
-         | ('\000'..'\031'|'\127'..'\255') ->
-             let pair = mk_pair (Control c) 1 in
-             target.scanner_pos <- target.scanner_pos + 1;
-             pair
-         | '[' ->
-             (* Domain literal: *)
-             scan_dliteral (i+1) (i+1) 0
-         | _ ->
-             scan_atom i i
-    end
-    else 
-      mk_pair End 0
-
-  and scan_atom i0 i =
-    let return_atom() =
-      let astring = String.sub s i0 (i-i0) in
-      let r =
-       if spec.opt_recognize_encoded_words then
-         Str.string_match ~groups:4 encoded_word_re astring 0
-       else
-         None
-      in
-      match r with
-         None ->
-           (* An atom contains never a linefeed character, so we can ignore
-            * scanner_line here.
-            *)
-           let pair = mk_pair (Atom astring) (i-i0) in
-           target.scanner_pos <- i;
-           pair
-       | Some mr ->
-           (* Found an encoded word. *)
-           let charset  = Str.matched_group mr 1 astring in
-           let encoding = Str.matched_group mr 2 astring in
-           let content  = Str.matched_group mr 3 astring in
-           let t = EncodedWord(String.uppercase charset,
-                                String.uppercase encoding,
-                                content) in
-           let pair = mk_pair t (i-i0) in
-           target.scanner_pos <- i;
-           pair
-    in
-
-    if i < l then
-      let c = s.[i] in
-      match c with
-         ('\000'..'\031'|'\127'..'\255'|'"'|'('|'['|' '|'\t'|'\r'|'\n') ->
-           return_atom()
-       | _ ->
-           if spec.is_special.( Char.code c ) then
-             return_atom()
-           else
-             scan_atom i0 (i+1)
-    else
-      return_atom()
-
-  and scan_qstring i0 i n =
-    if i < l then
-      let c = s.[i] in
-      match c with
-         '"' ->
-           (* Regular end of the quoted string: *)
-           let content, line, linepos = copy_qstring i0 (i-1) n in
-           let pair = mk_pair (QString content) (i-i0+2) in
-           target.scanner_pos <- i+1;
-           target.scanner_line <- line;
-           target.scanner_linepos <- linepos;
-           pair
-       | '\\' when not spec.opt_no_backslash_escaping ->
-           scan_qstring i0 (i+2) (n+1)
-       | _ ->
-           scan_qstring i0 (i+1) (n+1)
-    else
-      (* Missing right double quote *)
-      let content, line, linepos = copy_qstring i0 (l-1) n in
-      let pair = mk_pair (QString content) (l-i0+1) in
-      target.scanner_pos <- l;
-      target.scanner_line <- line;
-      target.scanner_linepos <- linepos;
-      pair
-
-  and copy_qstring i0 i1 n =
-    (* Used for quoted strings and for domain literals *)
-    let r = String.create n in
-    let k = ref 0 in
-    let line = ref target.scanner_line in
-    let linepos = ref target.scanner_linepos in
-    for i = i0 to i1 do
-      let c = s.[i] in
-      match c with
-         '\\' when i < i1 &&  not spec.opt_no_backslash_escaping -> ()
-       | '\n' ->
-           line := !line + 1;
-           linepos := i+1;
-           r.[ !k ] <- c; 
-           incr k
-       | _ -> 
-           r.[ !k ] <- c; 
-           incr k
-    done;
-    assert (!k = n);
-    r, !line, !linepos
-
-  and scan_dliteral i0 i n =
-    if i < l then
-      let c = s.[i] in
-      match c with
-         ']' ->
-           (* Regular end of the domain literal: *)
-           let content, line, linepos = copy_qstring i0 (i-1) n in
-           let pair = mk_pair (DomainLiteral content) (i-i0+2) in
-           target.scanner_pos <- i+1;
-           target.scanner_line <- line;
-           target.scanner_linepos <- linepos;
-           pair
-       | '\\' when not spec.opt_no_backslash_escaping ->
-           scan_dliteral i0 (i+2) (n+1)
-       | _ ->
-           (* Note: '[' is not allowed by RFC 822; we treat it here as
-            * a regular character (questionable)
-            *)
-           scan_dliteral i0 (i+1) (n+1)
-    else
-      (* Missing right bracket *)
-      let content, line, linepos = copy_qstring i0 (l-1) n in
-      let pair = mk_pair (DomainLiteral content) (l-i0+1) in
-      target.scanner_pos <- l;
-      target.scanner_line <- line;
-      target.scanner_linepos <- linepos;
-      pair
-
-
-  and scan_comment i level line linepos =
-    if i < l then
-      let c = s.[i] in
-      match c with
-         ')' ->
-           (i+1), line, linepos
-       | '(' ->
-           (* nested comment *)
-           let i', line', linepos' = 
-             scan_comment (i+1) (level+1) line linepos 
-           in
-           scan_comment i' level line' linepos'
-       | '\\' when not spec.opt_no_backslash_escaping ->
-           if (i+1) < l && s.[i+1] = '\n' then
-             scan_comment (i+2) level (line+1) (i+2)
-           else
-             scan_comment (i+2) level line linepos
-       | '\n' ->
-           scan_comment (i+1) level (line+1) (i+1)
-       | _ ->
-           scan_comment (i+1) level line linepos
-    else
-      (* Missing closing ')' *)
-      i, line, linepos
-  in
-
-  scan target.scanner_pos
-;;
-
-
-let scan_token ((spec,target) as scn) =
-  (* This function handles token queueing in order to recognize white space
-   * that separates adjacent encoded words.
-   *)
-
-  let rec collect_whitespace () =
-    (* Scans whitespace tokens and returns them as:
-     * (ws_list, other_tok)     if there is some other_tok following the
-     *                          list (other_tok = End is possible)
-     *)
-    let (et, t) as pair = scan_next_token scn in
-    ( match t with
-         (Special ' '|Special '\t'|Special '\n'|Special '\r') ->
-           let ws_list, tok = collect_whitespace() in
-           pair :: ws_list, tok
-       | _ ->
-           [], pair
-    )
-  in
-
-  try
-    (* Is there an already scanned token in the queue? *)
-    let et = Queue.take target.scanned_tokens in
-    let t = et.token in
-    target.last_token <- t;
-    et, et.token
-  with
-      Queue.Empty ->
-       (* If not: inspect the last token. If that token is an EncodedWord,
-        * the next tokens are scanned in advance to determine if there
-        * are spaces separating two EncodedWords. These tokens are put
-        * into the queue such that it is avoided that they are scanned
-        * twice. (The sole purpose of the queue.)
-        *)
-       match target.last_token with
-           EncodedWord(_,_,_) as ew ->
-             let ws_list, tok = collect_whitespace() in
-             (* If tok is an EncodedWord, too, the tokens in ws_list must
-              * be flagged as separating two adjacent encoded words. 
-              *)
-             ( match tok with
-                   _, EncodedWord(_,_,_) ->
-                     List.iter
-                       (fun (et,t) ->
-                          et.token_sep <- true)
-                       ws_list
-                 | _ ->
-                     ()
-             );
-             (* Anyway, queue the read tokens but the first up *)
-             ( match ws_list with
-                   [] ->
-                     (* Nothing to queue *)
-                     let et, t = tok in
-                     target.last_token <- t;
-                     tok
-                 | (et,t) as pair :: ws_list' ->
-                     List.iter
-                       (fun (et',_) -> 
-                          Queue.add et' target.scanned_tokens)
-                       ws_list';
-                     ( match tok with
-                         | _, End ->
-                             ()
-                         | (et',_) ->
-                             Queue.add et' target.scanned_tokens
-                     );
-                     (* Return the first scanned token *)
-                     target.last_token <- t;
-                     pair
-             )
-         | _ ->
-             (* Regular case: Scan one token; do not queue it up *)
-             let (et, t) as pair = scan_next_token scn in 
-             target.last_token <- t;
-             pair
-;;
-       
-
-let scan_token_list scn =
-  let rec collect() =
-    match scan_token scn with
-       _, End ->
-         []
-      | pair ->
-         pair :: collect()
-  in
-  collect()
-;;
-
-
-let scan_structured_value s specials options =
-  let rec collect scn =
-    match scan_token scn with
-       _, End ->
-         []
-      | _, t ->
-         t :: collect scn
-  in
-  let scn = create_mime_scanner specials options s in
-  collect scn
-;;
-
-
-let specials_rfc822 =
-  [ '<'; '>'; '@'; ','; ';'; ':'; '\\'; '.' ];;
-
-
-let specials_rfc2045 =
-  [ '<'; '>'; '@'; ','; ';'; ':'; '\\'; '/' ];;
-
-
-let scan_encoded_text_value s =
-  let specials = [ ' '; '\t'; '\r'; '\n'; '('; '['; '"' ] in
-  let options =  [ Recognize_encoded_words ] in
-  let scn = create_mime_scanner specials options s in
-  
-  let rec collect () =
-    match scan_token scn with
-       _, End ->
-         []
-      | et, _ when separates_adjacent_encoded_words et ->
-         collect()
-      | et, (Special _|Atom _|EncodedWord(_,_,_)) ->
-         et :: collect ()
-      | _, _ ->
-         assert false
-  in
-  collect()
-;;
-
-
-let scan_value_with_parameters s options =
-  let rec parse_params tl =
-    match tl with
-       Atom n :: Special '=' :: Atom v :: tl' ->
-         (n,v) :: parse_rest tl'
-      | Atom n :: Special '=' :: QString v :: tl' ->
-         (n,v) :: parse_rest tl'
-      | _ ->
-         failwith "Mimestring.scan_value_with_parameters"
-  and parse_rest tl =
-    match tl with
-       [] -> []
-      | Special ';' :: tl' ->
-         parse_params tl'
-      | _ ->
-         failwith "Mimestring.scan_value_with_parameters"
-  in
-
-  (* Note: Even if not used here, the comma is a very common separator
-   * and should be recognized as being special. You will get a
-   * failure if there is a comma in the scanned string.
-   *)
-  let tl = scan_structured_value s [ ';'; '='; ',' ] options in
-  match tl with
-      [ Atom n ] -> n, []
-    | [ QString n ] -> n, []
-    | Atom n :: Special ';' :: tl' ->
-       n, parse_params tl'
-    | QString n :: Special ';' :: tl' ->
-       n, parse_params tl'
-    | _ ->
-       failwith "Mimestring.scan_value_with_parameters"
-;;
-
-
-let scan_mime_type s options =
-  let n, params = scan_value_with_parameters s options in
-  (String.lowercase n),
-  (List.map (fun (n,v) -> (String.lowercase n, v)) params)
-;;
-
-
-let lf_re = Str.regexp "[\n]";;
-
-let scan_multipart_body s ~start_pos:i0 ~end_pos:i1 ~boundary =
-  let l_s = String.length s in
-  if i0 < 0 or i1 < 0 or i0 > l_s or i1 >l_s then
-    invalid_arg "Mimestring.scan_multipart_body";
-
-  (* First compile the regexps scanning for 'boundary': *)
-  let boundary1_re =
-    Str.regexp ("\n--" ^ Str.quote boundary) in
-  let boundary2_re =
-    Str.regexp ("--" ^ Str.quote boundary) in
-
-  let rec parse i =
-    (* i: Beginning of the current part (position directly after the
-     * boundary line
-     *)
-    (* Search for next boundary at position i *)
-    let i' =
-      try min (fst (Str.search_forward boundary1_re s i) + 1) i1
-      with
-         Not_found -> i1
-    in
-    (* i': Either the position of the first '-' of the boundary line,
-     *     or i1 if no boundary has been found
-     *)
-    if i' >= i1 then
-      [] (* Ignore everything after the last boundary *)
-    else
-      let i'' =
-       try min (fst (Str.search_forward lf_re s i') + 1) i1
-       with
-           Not_found -> i1
-      in
-      (* i'': The position after the boundary line *)
-(*
-      print_int i; print_newline();
-      print_int i'; print_newline();
-      print_int i''; print_newline();
-      flush stdout;
-*)
-      let header, k = scan_header s i i' in
-      (* header: the header of the part
-       * k: beginning of the body
-       *)
-
-      let value =
-       (* We know that i'-1 is a linefeed character. i'-2 should be a CR
-        * character. Both characters are not part of the value.
-        *)
-       if i' >= 2 then
-         match s.[i'-2] with
-             '\013' -> String.sub s k (i'-2-k)
-           | _      -> String.sub s k (i'-1-k)
-       else
-         String.sub s k (i'-1-k)
-      in
-
-      let pair =
-       (header, value) in
-
-      if i'' >= i1
-      then
-       [ pair ]
-      else
-       pair :: parse i''
-  in
-
-  (* Find the first boundary. This is a special case, because it may be
-   * right at the beginning of the string (no preceding CRLF)
-   *)
-
-  let i_bnd =
-    if Str.string_partial_match boundary2_re s i0 <> None then
-      i0
-    else
-      try min (fst (Str.search_forward boundary1_re s i0)) i1
-      with
-         Not_found -> i1
-  in
-
-  if i_bnd >= i1 then
-    []
-  else
-    let i_bnd' =
-      try min (fst (Str.search_forward lf_re s (i_bnd + 1)) + 1) i1
-      with
-         Not_found -> i1
-    in
-    if i_bnd' >= i1 then
-      []
-    else
-      parse i_bnd'
-;;
-
-
-let scan_multipart_body_and_decode s ~start_pos:i0 ~end_pos:i1 ~boundary =
-  let parts = scan_multipart_body s i0 i1 boundary in
-  List.map
-    (fun (params, value) ->
-       let encoding =
-        try List.assoc "content-transfer-encoding" params
-        with Not_found -> "7bit"
-       in
-
-       (* NOTE: In the case of "base64" and "quoted-printable", the allocation
-       * of the string "value" could be avoided.
-       *)
-
-       let value' =
-        match encoding with
-            ("7bit"|"8bit"|"binary") -> value
-          | "base64" ->
-              Netencoding.Base64.decode_substring
-                value 0 (String.length value) false true
-          | "quoted-printable" ->
-              Netencoding.QuotedPrintable.decode_substring
-                value 0 (String.length value)
-          | _ ->
-              failwith "Mimestring.scan_multipart_body_and_decode: Unknown content-transfer-encoding"
-       in
-       (params, value')
-    )
-    parts
-;;
-
-
-let scan_multipart_body_from_netstream s ~boundary ~create ~add ~stop =
-
-  (* The block size of s must be at least the length of the boundary + 3.
-   * Otherwise it is not guaranteed that the boundary is always recognized.
-   *)
-  if Netstream.block_size s < String.length boundary + 3 then
-    invalid_arg "Mimestring.scan_multipart_body_from_netstream";
-
-  (* First compile the regexps scanning for 'boundary': *)
-  let boundary1_re =
-    Str.regexp ("\n--" ^ Str.quote boundary) in
-  let boundary2_re =
-    Str.regexp ("--" ^ Str.quote boundary) in
-
-  (* Subtask 1: Search the end of the MIME header: CR LF CR LF
-   *            (or LF LF). Enlarge the window until the complete header
-   *            is covered by the window.
-   *)
-  let rec search_end_of_header k =
-    (* Search the end of the header beginning at position k of the
-     * current window.
-     * Return the position of the first character of the body.
-     *)
-    try
-      (* Search for LF CR? LF: *)
-      let i, r = Str.search_forward
-                  end_of_header_re
-                  (Netbuffer.unsafe_buffer (Netstream.window s))
-                  k
-      in
-      (* If match_end <= window_length, the search was successful.
-       * Otherwise, we searched in the uninitialized region of the
-       * buffer.
-       *)
-      if Str.match_end r <= Netstream.window_length s then
-       Str.match_end r
-      else
-       raise Not_found
-    with
-       Not_found ->
-         (* If the end of the stream is reached, the end of the header
-          * is missing: Error.
-          * Otherwise, we try to read another block, and continue.
-          *)
-         if Netstream.at_eos s then
-           failwith "Mimestring.scan_multipart_body_from_netstream: Unexpected end of stream";
-         let w0 = Netstream.window_length s in
-         Netstream.want_another_block s;
-         search_end_of_header (max (w0 - 2) 0)
-  in
-
-  (* Subtask 2: Search the first boundary line. *)
-  let rec search_first_boundary() =
-    (* Search boundary per regexp; return the position of the character
-     * immediately following the boundary (on the same line), or
-     * raise Not_found.
-     *)
-    try
-      (* Search boundary per regexp: *)
-      let i, r = Str.search_forward
-                  boundary1_re
-                  (Netbuffer.unsafe_buffer (Netstream.window s))
-                  0
-      in
-      (* If match_end <= window_length, the search was successful.
-       * Otherwise, we searched in the uninitialized region of the
-       * buffer.
-       *)
-      if Str.match_end r <= Netstream.window_length s then begin
-       Str.match_end r
-      end
-      else raise Not_found
-    with
-       Not_found ->
-         if Netstream.at_eos s then raise Not_found;
-         (* The regexp did not match: Move the window by one block.
-          *)
-         let n =
-           min
-             (Netstream.window_length s)
-             (Netstream.block_size s)
-         in
-         Netstream.move s n;
-         search_first_boundary()
-  in
-
-  (* Subtask 3: Search the next boundary line. Invoke 'add' for every
-   * read chunk
-   *)
-  let rec search_next_boundary p =
-    (* Returns the position directly after the boundary on the same line *)
-    try
-      (* Search boundary per regexp: *)
-      let i,r = Str.search_forward
-                 boundary1_re
-                 (Netbuffer.unsafe_buffer (Netstream.window s))
-                 0
-      in
-      (* If match_end <= window_length, the search was successful.
-       * Otherwise, we searched in the uninitialized region of the
-       * buffer.
-       *)
-      if Str.match_end r <= Netstream.window_length s then begin
-       (* Add the last chunk of the part. *)
-       let n =
-         (* i is a LF. i - 1 should be CR. Ignore these characters. *)
-         if i >= 1 then
-           match (Netbuffer.unsafe_buffer (Netstream.window s)).[ i - 1 ] with
-               '\013' -> i - 1
-             | _      -> i
-         else
-           i
-       in
-       (* Printf.printf "add n=%d\n" n; *)
-       add p s 0 n;
-       Str.match_end r
-      end
-      else raise Not_found
-    with
-       Not_found ->
-         if Netstream.at_eos s then
-           failwith "Mimestring.scan_multipart_body_from_netstream: next MIME boundary not found";
-         (* The regexp did not match: Add the first block of the window;
-          * and move the window.
-          *)
-         let n =
-           min
-             (Netstream.window_length s)
-             (Netstream.block_size s)
-         in
-         (* Printf.printf "add n=%d\n" n; *)
-         add p s 0 n;
-         Netstream.move s n;
-         search_next_boundary p
-  in
-
-  (* Subtask 4: Search the end of the boundary line *)
-  let rec search_end_of_line k =
-    (* Search LF beginning at position k. Discard any contents until that. *)
-    try
-      let i,r = Str.search_forward
-                 lf_re
-                 (Netbuffer.unsafe_buffer (Netstream.window s))
-                 k
-      in
-      (* If match_end <= window_length, the search was successful.
-       * Otherwise, we searched in the uninitialized region of the
-       * buffer.
-       *)
-      if Str.match_end r <= Netstream.window_length s then begin
-        Str.match_end r
-      end
-      else raise Not_found
-    with
-       Not_found ->
-         if Netstream.at_eos s then
-           failwith "Mimestring.scan_multipart_body_from_netstream: MIME boundary without line end";
-         (* The regexp did not match: move the window.
-          *)
-         let n = Netstream.window_length s in
-         Netstream.move s n;
-         search_end_of_line 0
-  in
-
-  (* Subtask 5: Check whether "--" follows the boundary on the same line *)
-  let check_whether_last_boundary k =
-    (* k: The position directly after the boundary. *)
-    Netstream.want s (k+2);
-    let str = Netbuffer.unsafe_buffer (Netstream.window s) in
-    (Netstream.window_length s >= k+2) && str.[k] = '-' && str.[k+1] = '-'
-  in
-
-  (* Subtask 6: Check whether the buffer begins with a boundary. *)
-  let check_beginning_is_boundary () =
-    let m = String.length boundary + 2 in
-    Netstream.want s m;
-    let str = Netbuffer.unsafe_buffer (Netstream.window s) in
-    (Netstream.window_length s >= m) &&
-    (Str.string_partial_match boundary2_re str 0 <> None)
-  in
-
-  let rec parse_part () =
-    (* The first byte of the current window of s contains the character
-     * directly following the boundary line that starts this part.
-     *)
-    (* Search the end of the MIME header: *)
-    let k_eoh = search_end_of_header 0 in
-    (* Printf.printf "k_eoh=%d\n" k_eoh; *)
-    (* Get the MIME header: *)
-    let str = Netbuffer.unsafe_buffer (Netstream.window s) in
-    let header, k_eoh' = scan_header str 0 k_eoh in
-    assert (k_eoh = k_eoh');
-    (* Move the window over the header: *)
-    Netstream.move s k_eoh;
-    (* Create the part: *)
-    let p = create header in
-    let continue =
-      begin try
-       (* Search the next boundary; add the chunks while searching: *)
-       let k_eob = search_next_boundary p in
-       (* Printf.printf "k_eob=%d\n" k_eob; *)
-        (* Is this the last boundary? *)
-       if check_whether_last_boundary k_eob then begin
-         (* Skip the rest: *)
-         while not (Netstream.at_eos s) do
-           Netstream.move s (Netstream.window_length s)
-         done;
-         Netstream.move s (Netstream.window_length s);
-         false
-       end
-       else begin
-         (* Move to the beginning of the next line: *)
-         let k_eol = search_end_of_line k_eob in
-         Netstream.move s k_eol;
-         true
-       end
-      with
-         any ->
-           (try stop p with _ -> ());
-           raise any
-      end in
-      stop p;
-      if continue then
-       (* Continue with next part: *)
-       parse_part()
-  in
-
-  (* Check whether s directly begins with a boundary: *)
-  if check_beginning_is_boundary() then begin
-    (* Move to the beginning of the next line: *)
-    let k_eol = search_end_of_line 0 in
-    Netstream.move s k_eol;
-    (* Begin with first part: *)
-    parse_part()
-  end
-  else begin
-    (* Search the first boundary: *)
-    try
-      let k_eob = search_first_boundary() in
-      (* Printf.printf "k_eob=%d\n" k_eob; *)
-      (* Move to the beginning of the next line: *)
-      let k_eol = search_end_of_line k_eob in
-      (* Printf.printf "k_eol=%d\n" k_eol; *)
-      Netstream.move s k_eol;
-      (* Begin with first part: *)
-      parse_part()
-    with
-       Not_found ->
-         (* No boundary at all: The body is empty. *)
-         ()
-  end;
-;;
-
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:27  lpadovan
- * Initial revision
- *
- * Revision 1.8  2000/08/13 00:04:36  gerd
- *     Encoded_word -> EncodedWord
- *     Bugfixes.
- *
- * Revision 1.7  2000/08/07 00:25:14  gerd
- *     Implemented the new functions for structured field lexing.
- *
- * Revision 1.6  2000/06/25 22:34:43  gerd
- *     Added labels to arguments.
- *
- * Revision 1.5  2000/06/25 21:15:48  gerd
- *     Checked thread-safety.
- *
- * Revision 1.4  2000/05/16 22:30:14  gerd
- *     Added support for some types of malformed MIME messages.
- *
- * Revision 1.3  2000/04/15 13:09:01  gerd
- *     Implemented uploads to temporary files.
- *
- * Revision 1.2  2000/03/02 01:15:30  gerd
- *     Updated.
- *
- * Revision 1.1  2000/02/25 15:21:12  gerd
- *     Initial revision.
- *
- *
- *)

diff --git a/helm/DEVEL/pxp/netstring/mimestring.mli b/helm/DEVEL/pxp/netstring/mimestring.mli
deleted file mode 100644 (file)
index 39634b5..0000000
--- a/helm/DEVEL/pxp/netstring/mimestring.mli
+++ /dev/null
@@ -1,683 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(**********************************************************************)
-(* Collection of auxiliary functions to parse MIME headers            *)
-(**********************************************************************)
-
-
-val scan_header : 
-       ?unfold:bool ->
-       string -> start_pos:int -> end_pos:int -> 
-         ((string * string) list * int)
-    (* let params, i2 = scan_header s i0 i1:
-     *
-     * DESCRIPTION
-     *
-     * Scans the MIME header that begins at position i0 in the string s
-     * and that must end somewhere before position i1. It is intended
-     * that in i1 the character position following the end of the body of the
-     * MIME message is passed.
-     * Returns the parameters of the header as (name,value) pairs (in
-     * params), and in i2 the position of the character following
-     * directly after the header (i.e. after the blank line separating
-     * the header from the body).
-     * The following normalizations have already been applied:
-     * - The names are all in lowercase
-     * - Newline characters (CR and LF) have been removed (unless
-     *   ?unfold:false has been passed)
-     * - Whitespace at the beginning and at the end of values has been
-     *   removed (unless ?unfold:false is specified)
-     * The rules of RFC 2047 have NOT been applied.
-     * The function fails if the header violates the header format
-     * strongly. (Some minor deviations are tolerated, e.g. it is sufficient
-     * to separate lines by only LF instead of CRLF.)
-     *
-     * OPTIONS:
-     *
-     * unfold: If true (the default), folded lines are concatenated and
-     *   returned as one line. This means that CR and LF characters are
-     *   deleted and that whitespace at the beginning and the end of the
-     *   string is removed.
-     *   You may set ?unfold:false to locate individual characters in the
-     *   parameter value exactly.
-     *
-     * ABOUT MIME MESSAGE FORMAT:
-     *
-     * This is the modern name for messages in "E-Mail format". Messages
-     * consist of a header and a body; the first empty line separates both
-     * parts. The header contains lines "param-name: param-value" where
-     * the param-name must begin on column 0 of the line, and the ":"
-     * separates the name and the value. So the format is roughly:
-     *
-     * param1-name: param1-value
-     * ...
-     * paramN-name: paramN-value
-     *
-     * body
-     *
-     * This function wants in i0 the position of the first character of
-     * param1-name in the string, and in i1 the position of the character
-     * following the body. It returns as i2 the position where the body
-     * begins. Furthermore, in 'params' all parameters are returned that
-     * exist in the header.
-     *
-     * DETAILS
-     *
-     * Note that parameter values are restricted; you cannot represent
-     * arbitrary strings. The following problems can arise:
-     * - Values cannot begin with whitespace characters, because there
-     *   may be an arbitrary number of whitespaces between the ':' and the
-     *   value.
-     * - Values (and names of parameters, too) must only be formed of
-     *   7 bit ASCII characters. (If this is not enough, the MIME standard
-     *   knows the extension RFC 2047 that allows that header values may
-     *   be composed of arbitrary characters of arbitrary character sets.)
-     * - Header values may be broken into several lines, the continuation
-     *   lines must begin with whitespace characters. This means that values
-     *   must not contain line breaks as semantical part of the value.
-     *   And it may mean that ONE whitespace character is not distinguishable
-     *   from SEVERAL whitespace characters.
-     * - Header lines must not be longer than 76 characters. Values that
-     *   would result into longer lines must be broken into several lines.
-     *   This means that you cannot represent strings that contain too few
-     *   whitespace characters.
-     * - Some gateways pad the lines with spaces at the end of the lines.
-     *
-     * This implementation of a MIME scanner tolerates a number of
-     * deviations from the standard: long lines are not rejected; 8 bit
-     * values are accepted; lines may be ended only with LF instead of
-     * CRLF.
-     * Furthermore, header values are transformed:
-     * - leading and trailing spaces are always removed
-     * - CRs and LFs are deleted; it is guaranteed that there is at least
-     *   one space or tab where CR/LFs are deleted.
-     * Last but not least, the names of the header values are converted
-     * to lowercase; MIME specifies that they are case-independent.
-     *
-     * COMPATIBILITY WITH THE STANDARD
-     *
-     * This function can parse all MIME headers that conform to RFC 822.
-     * But there may be still problems, as RFC 822 allows some crazy
-     * representations that are actually not used in practice.
-     * In particular, RFC 822 allows it to use backslashes to "indicate"
-     * that a CRLF sequence is semantically meant as line break. As this
-     * function normally deletes CRLFs, it is not possible to recognize such
-     * indicators in the result of the function.
-     *)
-
-(**********************************************************************)
-
-(* The following types and functions allow it to build scanners for
- * structured MIME values in a highly configurable way.
- *
- * WHAT ARE STRUCTURED VALUES?
- *
- * RFC 822 (together with some other RFCs) defines lexical rules
- * how formal MIME header values should be divided up into tokens. Formal
- * MIME headers are those headers that are formed according to some
- * grammar, e.g. mail addresses or MIME types.
- *    Some of the characters separate phrases of the value; these are
- * the "special" characters. For example, '@' is normally a special
- * character for mail addresses, because it separates the user name
- * from the domain name. RFC 822 defines a fixed set of special
- * characters, but other RFCs use different sets. Because of this,
- * the following functions allow it to configure the set of special characters.
- *    Every sequence of characters may be embraced by double quotes,
- * which means that the sequence is meant as literal data item;
- * special characters are not recognized inside a quoted string. You may
- * use the backslash to insert any character (including double quotes)
- * verbatim into the quoted string (e.g. "He said: \"Give it to me!\"").
- * The sequence of a backslash character and another character is called
- * a quoted pair.
- *    Structured values may contain comments. The beginning of a comment
- * is indicated by '(', and the end by ')'. Comments may be nested.
- * Comments may contain quoted pairs. A
- * comment counts as if a space character were written instead of it.
- *    Control characters are the ASCII characters 0 to 31, and 127.
- * RFC 822 demands that MIME headers are 7 bit ASCII strings. Because
- * of this, this function also counts the characters 128 to 255 as
- * control characters.
- *    Domain literals are strings embraced by '[' and ']'; such literals
- * may contain quoted pairs. Today, domain literals are used to specify
- * IP addresses.
- *    Every character sequence not falling in one of the above categories
- * is an atom (a sequence of non-special and non-control characters).
- * When recognized, atoms may be encoded in a character set different than
- * US-ASCII; such atoms are called encoded words (see RFC 2047).
- *
- * EXTENDED INTERFACE:
- *
- * In order to scan a string containing a MIME value, you must first
- * create a mime_scanner using the function create_mime_scanner.
- * The scanner contains the reference to the scanned string, and a 
- * specification how the string is to be scanned. The specification
- * consists of the lists 'specials' and 'scan_options'.
- *
- * The character list 'specials' specifies the set of special characters.
- * These characters are returned as Special c token; the following additional
- * rules apply:
- *
- * - Spaces:
- *   If ' ' in specials: A space character is returned as Special ' '.
- *       Note that there may also be an effect on how comments are returned
- *       (see below).
- *   If ' ' not in specials: Spaces are ignored.
- *
- * - Tabs, CRs, LFs:
- *   If '\t' in specials: A tab character is returned as Special '\t'.
- *   If '\t' not in specials: Tabs are ignored.
- *
- *   If '\r' in specials: A CR character is returned as Special '\r'.
- *   If '\r' not in specials: CRs are ignored.
- *
- *   If '\n' in specials: A LF character is returned as Special '\n'.
- *   If '\n' not in specials: LFs are ignored.
- *
- * - Comments:
- *   If '(' in specials: Comments are not recognized. The character '('
- *       is returned as Special '('.
- *   If '(' not in specials: Comments are recognized. How comments are
- *       returned, depends on the following:
- *       If Return_comments in scan_options: Outer comments are returned as
- *           Comment (note that inner comments count but
- *           are not returned as tokens)
- *       If otherwise ' ' in specials: Outer comments are returned as
- *           Special ' '
- *       Otherwise: Comments are recognized but ignored.
- *
- * - Quoted strings:
- *   If '"' in specials: Quoted strings are not recognized, and double quotes
- *       are returned as Special '"'.
- *   If '"' not in specials: Quoted strings are returned as QString tokens.
- *
- * - Domain literals:
- *   If '[' in specials: Domain literals are not recognized, and left brackets
- *       are returned as Special '['.
- *   If '[' not in specials: Domain literals are returned as DomainLiteral
- *       tokens.
- *
- * Note that the rule for domain literals is completely new in netstring-0.9.
- * It may cause incompatibilities with previous versions if '[' is not
- * special.
- *
- * The general rule for special characters: Every special character c is
- * returned as Special c, and any additional scanning functionality 
- * for this character is turned off.
- *
- * If recognized, quoted strings are returned as QString s, where
- * s is the string without the embracing quotes, and with already
- * decoded quoted pairs.
- *
- * Control characters c are returned as Control c.
- *
- * If recognized, comments may either be returned as spaces (in the case
- * you are not interested in the contents of comments), or as Comment tokens.
- * The contents of comments are not further scanned; you must start a
- * subscanner to analyze comments as structured values.
- *
- * If recognized, domain literals are returned as DomainLiteral s, where
- * s is the literal without brackets, and with decoded quoted pairs.
- *
- * Atoms are returned as Atom s where s is a longest sequence of
- * atomic characters (all characters which are neither special nor control
- * characters nor delimiters for substructures). If the option
- * Recognize_encoded_words is on, atoms which look like encoded words
- * are returned as EncodedWord tokens. (Important note: Neither '?' nor
- * '=' must be special in order to enable this functionality.)
- *
- * After the mime_scanner has been created, you can scan the tokens by
- * invoking scan_token which returns one token at a time, or by invoking
- * scan_token_list which returns all following tokens.
- *
- * There are two token types: s_token is the base type and is intended to
- * be used for pattern matching. s_extended_token is a wrapper that 
- * additionally contains information where the token occurs.
- *
- * SIMPLE INTERFACE
- *
- * Instead of creating a mime_scanner and calling the scan functions,
- * you may also invoke scan_structured_value. This function returns the
- * list of tokens directly; however, it is restricted to s_token.
- *
- * EXAMPLES
- *
- * scan_structured_value "user@domain.com" [ '@'; '.' ] []
- *   = [ Atom "user"; Special '@'; Atom "domain"; Special '.'; Atom "com" ]
- *
- * scan_structured_value "user @ domain . com" [ '@'; '.' ] []
- *   = [ Atom "user"; Special '@'; Atom "domain"; Special '.'; Atom "com" ]
- *
- * scan_structured_value "user(Do you know him?)@domain.com" [ '@'; '.' ] []
- *   = [ Atom "user"; Special '@'; Atom "domain"; Special '.'; Atom "com" ]
- *
- * scan_structured_value "user(Do you know him?)@domain.com" [ '@'; '.' ] 
- *     [ Return_comments ]
- *   = [ Atom "user"; Comment; Special '@'; Atom "domain"; Special '.'; 
- *       Atom "com" ]
- *
- * scan_structured_value "user (Do you know him?) @ domain . com" 
- *     [ '@'; '.'; ' ' ] []
- *   = [ Atom "user"; Special ' '; Special ' '; Special ' '; Special '@'; 
- *       Special ' '; Atom "domain";
- *       Special ' '; Special '.'; Special ' '; Atom "com" ]
- *
- * scan_structured_value "user (Do you know him?) @ domain . com" 
- *     [ '@'; '.'; ' ' ] [ Return_comments ]
- *   = [ Atom "user"; Special ' '; Comment; Special ' '; Special '@'; 
- *       Special ' '; Atom "domain";
- *       Special ' '; Special '.'; Special ' '; Atom "com" ]
- *
- * scan_structured_value "user @ domain . com" [ '@'; '.'; ' ' ] []
- *   = [ Atom "user"; Special ' '; Special '@'; Special ' '; Atom "domain";
- *       Special ' '; Special '.'; Special ' '; Atom "com" ]
- *
- * scan_structured_value "user(Do you know him?)@domain.com" ['@'; '.'; '(']
- *     []
- *   = [ Atom "user"; Special '('; Atom "Do"; Atom "you"; Atom "know";
- *       Atom "him?)"; Special '@'; Atom "domain"; Special '.'; Atom "com" ]
- *
- * scan_structured_value "\"My.name\"@domain.com" [ '@'; '.' ] []
- *   = [ QString "My.name"; Special '@'; Atom "domain"; Special '.';
- *       Atom "com" ]
- *
- * scan_structured_value "=?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?=" 
- *     [ ] [ ] 
- *   = [ Atom "=?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?=" ]
- *
- * scan_structured_value "=?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?=" 
- *     [ ] [ Recognize_encoded_words ] 
- *   = [ EncodedWord("ISO-8859-1", "Q", "Keld_J=F8rn_Simonsen") ]
- *
- *)
-
-
-
-type s_token =
-    Atom of string
-  | EncodedWord of (string * string * string)
-  | QString of string
-  | Control of char
-  | Special of char
-  | DomainLiteral of string
-  | Comment
-  | End
-
-(* - Words are: Atom, EncodedWord, QString.
- * - Atom s: The character sequence forming the atom is contained in s
- * - EncodedWord(charset, encoding, encoded_string) means:
- *   * charset is the (uppercase) character set
- *   * encoding is either "Q" or "B"
- *   * encoded_string: contains the text of the word; the text is represented
- *     as octet string following the conventions for character set charset and 
- *     then encoded either as "Q" or "B" string.
- * - QString s: Here, s are the characters inside the double quotes after
- *   decoding any quoted pairs (backslash + character pairs)
- * - Control c: The control character c
- * - Special c: The special character c
- * - DomainLiteral s: s contains the characters inside the brackets after
- *   decoding any quoted pairs
- * - Comment: if the option Return_comments is specified, this token
- *   represents the whole comment.
- * - End: Is returned after the last token
- *)
-
-
-type s_option =
-    No_backslash_escaping
-      (* Do not handle backslashes in quoted string and comments as escape
-       * characters; backslashes are handled as normal characters.
-       * For example: "C:\dir\file" will be returned as
-       * QString "C:\dir\file", and not as QString "C:dirfile".
-       * - This is a common error in many MIME implementations.
-       *)
-  | Return_comments
-      (* Comments are returned as token Comment (unless '(' is included
-       * in the list of special characters, in which case comments are
-       * not recognized at all).
-       * You may get the exact location of the comment by applying
-       * get_pos and get_length to the extended token.
-       *)
-  | Recognize_encoded_words
-      (* Enables that encoded words are recognized and returned as
-       * EncodedWord(charset,encoding,content) instead of Atom.
-       *)
-
-type s_extended_token
-  (* An opaque type containing s_token plus:
-   * - where the token occurs
-   * - RFC-2047 access functions
-   *)
-
-val get_token : s_extended_token -> s_token
-    (* Return the s_token within the s_extended_token *)
-
-val get_decoded_word : s_extended_token -> string
-val get_charset : s_extended_token -> string
-    (* Return the decoded word (the contents of the word after decoding the
-     * "Q" or "B" representation), and the character set of the decoded word
-     * (uppercase).
-     * These functions not only work for EncodedWord:
-     * - Atom: Returns the atom without decoding it
-     * - QString: Returns the characters inside the double quotes, and
-     *   decodes any quoted pairs (backslash + character)
-     * - Control: Returns the one-character string
-     * - Special: Returns the one-character string
-     * - DomainLiteral: Returns the characters inside the brackets, and
-     *   decodes any quoted pairs
-     * - Comment: Returns ""
-     * The character set is "US-ASCII" for these tokens.
-     *)
-
-val get_pos : s_extended_token -> int
-    (* Return the byte position where the token starts in the string 
-     * (the first byte has position 0)
-     *)
-
-val get_line : s_extended_token -> int
-    (* Return the line number where the token starts (numbering begins
-     * usually with 1) 
-     *)
-
-val get_column : s_extended_token -> int
-    (* Return the column of the line where the token starts (first column
-     * is number 0)
-     *)
-
-val get_length : s_extended_token -> int
-    (* Return the length of the token in bytes *)
-
-val separates_adjacent_encoded_words : s_extended_token -> bool
-    (* True iff the current token is white space (Special ' ', Special '\t',
-     * Special '\r' or Special '\n') and the last non-white space token
-     * was EncodedWord and the next non-white space token will be
-     * EncodedWord.
-     * Such spaces do not count and must be ignored by any application.
-     *)
-
-
-type mime_scanner
-
-val create_mime_scanner : 
-      specials:char list -> 
-      scan_options:s_option list -> 
-      ?pos:int ->
-      ?line:int ->
-      ?column:int ->
-      string -> 
-        mime_scanner
-    (* Creates a new mime_scanner scanning the passed string.
-     * specials: The list of characters recognized as special characters.
-     * scan_options: The list of global options modifying the behaviour
-     *   of the scanner
-     * pos: The position of the byte where the scanner starts in the
-     *   passed string. Defaults to 0.
-     * line: The line number of this byte. Defaults to 1.
-     * column: The column number of this byte. Default to 0.
-     *
-     * The optional parameters pos, line, column are intentionally after
-     * scan_options and before the string argument, so you can specify
-     * scanners by partially applying arguments to create_mime_scanner
-     * which are not yet connected with a particular string:
-     * let my_scanner_spec = create_mime_scanner my_specials my_options in
-     * ...
-     * let my_scanner = my_scanner_spec my_string in 
-     * ...
-     *)
-
-val get_pos_of_scanner : mime_scanner -> int
-val get_line_of_scanner : mime_scanner -> int
-val get_column_of_scanner : mime_scanner -> int
-    (* Return the current position, line, and column of a mime_scanner.
-     * The primary purpose of these functions is to simplify switching
-     * from one mime_scanner to another within a string:
-     *
-     * let scanner1 = create_mime_scanner ... s in
-     * ... now scanning some tokens from s using scanner1 ...
-     * let scanner2 = create_mime_scanner ... 
-     *                  ?pos:(get_pos_of_scanner scanner1)
-     *                  ?line:(get_line_of_scanner scanner1)
-     *                  ?column:(get_column_of_scanner scanner1)
-     *                  s in
-     * ... scanning more tokens from s using scanner2 ...
-     *
-     * RESTRICTION: These functions are not available if the option
-     * Recognize_encoded_words is on. The reason is that this option
-     * enables look-ahead scanning; please use the location of the last
-     * scanned token instead.
-     * It is currently not clear whether a better implementation is needed
-     * (costs a bit more time).
-     *
-     * Note: To improve the performance of switching, it is recommended to
-     * create scanner specs in advance (see the example my_scanner_spec
-     * above).
-     *)
-
-val scan_token : mime_scanner -> (s_extended_token * s_token)
-    (* Returns the next token, or End if there is no more token. *)
-
-val scan_token_list : mime_scanner -> (s_extended_token * s_token) list
-    (* Returns all following tokens as a list (excluding End) *)
-
-val scan_structured_value : string -> char list -> s_option list -> s_token list
-    (* This function is included for backwards compatibility, and for all
-     * cases not requiring extended tokens.
-     *
-     * It scans the passed string according to the list of special characters
-     * and the list of options, and returns the list of all tokens.
-     *)
-
-val specials_rfc822 : char list
-val specials_rfc2045 : char list
-    (* The sets of special characters defined by the RFCs 822 and 2045.
-     *
-     * CHANGE in netstring-0.9: '[' and ']' are no longer special because
-     * there is now support for domain literals.
-     * '?' and '=' are not special in the rfc2045 version because there is
-     * already support for encoded words.
-     *)
-
-
-(**********************************************************************)
-
-(* Widely used scanners: *)
-
-
-val scan_encoded_text_value : string -> s_extended_token list
-    (* Scans a "text" value. The returned token list contains only
-     * Special, Atom and EncodedWord tokens. 
-     * Spaces, TABs, CRs, LFs are returned unless
-     * they occur between adjacent encoded words in which case
-     * they are ignored.
-     *)
-
-
-val scan_value_with_parameters : string -> s_option list ->
-                                   (string * (string * string) list)
-    (* let name, params = scan_value_with_parameters s options:
-     * Scans phrases like
-     *    name ; p1=v1 ; p2=v2 ; ...
-     * The scan is done with the set of special characters [';', '='].
-     *)
-
-val scan_mime_type : string -> s_option list ->
-                       (string * (string * string) list)
-    (* let name, params = scan_mime_type s options:
-     * Scans MIME types like
-     *    text/plain; charset=iso-8859-1
-     * The name of the type and the names of the parameters are converted
-     * to lower case.
-     *)
-
-
-(**********************************************************************)
-
-(* Scanners for MIME bodies *)
-
-val scan_multipart_body : string -> start_pos:int -> end_pos:int -> 
-                            boundary:string ->
-                            ((string * string) list * string) list
-    (* let [params1, value1; params2, value2; ...]
-     *   = scan_multipart_body s i0 i1 b
-     *
-     * Scans the string s that is the body of a multipart message.
-     * The multipart message begins at position i0 in s and i1 the position
-     * of the character following the message. In b the boundary string
-     * must be passed (this is the "boundary" parameter of the multipart
-     * MIME type, e.g. multipart/mixed;boundary="some string" ).
-     *     The return value is the list of the parts, where each part
-     * is returned as pair (params, value). The left component params
-     * is the list of name/value pairs of the header of the part. The
-     * right component is the RAW content of the part, i.e. if the part
-     * is encoded ("content-transfer-encoding"), the content is returned
-     * in the encoded representation. The caller must himself decode
-     * the content.
-     *     The material before the first boundary and after the last
-     * boundary is not returned.
-     *
-     * MULTIPART MESSAGES
-     *
-     * The MIME standard defines a way to group several message parts to
-     * a larger message (for E-Mails this technique is known as "attaching"
-     * files to messages); these are the so-called multipart messages.
-     * Such messages are recognized by the major type string "multipart",
-     * e.g. multipart/mixed or multipart/form-data. Multipart types MUST
-     * have a boundary parameter because boundaries are essential for the
-     * representation.
-     *    Multipart messages have a format like
-     *
-     * ...Header...
-     * Content-type: multipart/xyz; boundary="abc"
-     * ...Header...
-     *
-     * Body begins here ("prologue")
-     * --abc
-     * ...Header part 1...
-     *
-     * ...Body part 1...
-     * --abc
-     * ...Header part 2...
-     *
-     *
-     * ...Body part 2
-     * --abc
-     * ...
-     * --abc--
-     * Epilogue
-     *
-     * The parts are separated by boundary lines which begin with "--" and
-     * the string passed as boundary parameter. (Note that there may follow
-     * arbitrary text on boundary lines after "--abc".) The boundary is
-     * chosen such that it does not occur as prefix of any line of the
-     * inner parts of the message.
-     *     The parts are again MIME messages, with header and body. Note
-     * that it is explicitely allowed that the parts are even multipart
-     * messages.
-     *     The texts before the first boundary and after the last boundary
-     * are ignored.
-     *     Note that multipart messages as a whole MUST NOT be encoded.
-     * Only the PARTS of the messages may be encoded (if they are not
-     * multipart messages themselves).
-     *
-     * Please read RFC 2046 if want to know the gory details of this
-     * brain-dead format.
-     *)
-
-val scan_multipart_body_and_decode : string -> start_pos:int -> end_pos:int -> 
-                                        boundary:string ->
-                                        ((string * string) list * string) list
-    (* Same as scan_multipart_body, but decodes the bodies of the parts
-     * if they are encoded using the methods "base64" or "quoted printable".
-     * Fails, if an unknown encoding is used.
-     *)
-
-val scan_multipart_body_from_netstream
-    : Netstream.t ->
-      boundary:string ->
-      create:((string * string) list -> 'a) ->
-      add:('a -> Netstream.t -> int -> int -> unit) ->
-      stop:('a -> unit) ->
-      unit
-    (* scan_multipart_body_from_netstream s b create add stop:
-     *
-     * Reads the MIME message from the netstream s block by block. The
-     * parts are delimited by the boundary b.
-     *
-     * Once a new part is detected and begins, the function 'create' is
-     * called with the MIME header as argument. The result p of this function
-     * may be of any type.
-     *
-     * For every chunk of the part that is being read, the function 'add'
-     * is invoked: add p s k n.
-     * Here, p is the value returned by the 'create' invocation for the
-     * current part. s is the netstream. The current window of s contains
-     * the read chunk completely; the chunk begins at position k of the
-     * window (relative to the beginning of the window) and has a length
-     * of n bytes.
-     *
-     * When the part has been fully read, the function 'stop' is
-     * called with p as argument.
-     *
-     * That means, for every part the following is executed:
-     * - let p = create h
-     * - add p s k1 n1
-     * - add p s k2 n2
-     * - ...
-     * - add p s kN nN
-     * - stop p
-     *
-     * IMPORTANT PRECONDITION:
-     * - The block size of the netstream s must be at least
-     *   String.length b + 3
-     *
-     * EXCEPTIONS:
-     * - Exceptions can happen because of ill-formed input, and within
-     *   the callbacks of the functions 'create', 'add', 'stop'.
-     * - If the exception happens while part p is being read, and the
-     *   'create' function has already been called (successfully), the
-     *   'stop' function is also called (you have the chance to close files).
-     *)
-
-
-(* THREAD-SAFETY:
- * The functions are thread-safe as long as the threads do not share
- * values.
- *)
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:27  lpadovan
- * Initial revision
- *
- * Revision 1.8  2000/08/13 00:04:36  gerd
- *     Encoded_word -> EncodedWord
- *     Bugfixes.
- *
- * Revision 1.7  2000/08/07 00:25:00  gerd
- *     Major update of the interface for structured field lexing.
- *
- * Revision 1.6  2000/06/25 22:34:43  gerd
- *     Added labels to arguments.
- *
- * Revision 1.5  2000/06/25 21:15:48  gerd
- *     Checked thread-safety.
- *
- * Revision 1.4  2000/05/16 22:29:12  gerd
- *     New "option" arguments specifying the level of MIME
- * compatibility.
- *
- * Revision 1.3  2000/04/15 13:09:01  gerd
- *     Implemented uploads to temporary files.
- *
- * Revision 1.2  2000/03/02 01:15:30  gerd
- *     Updated.
- *
- * Revision 1.1  2000/02/25 15:21:12  gerd
- *     Initial revision.
- *
- *
- *)

diff --git a/helm/DEVEL/pxp/netstring/netbuffer.ml b/helm/DEVEL/pxp/netstring/netbuffer.ml
deleted file mode 100644 (file)
index d6fc40f..0000000
--- a/helm/DEVEL/pxp/netstring/netbuffer.ml
+++ /dev/null
@@ -1,145 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-type t = 
-    { mutable buffer : string;
-      mutable length : int;
-    }
-
-(* To help the garbage collector:
- * The 'buffer' has a minimum length of 31 bytes. This minimum can still
- * be stored in the minor heap.
- * The 'buffer' has a length which is always near a multiple of two. This
- * limits the number of different bucket sizes, and simplifies reallocation
- * of freed memory.
- *)
-
-(* Optimal string length:
- * Every string takes: 1 word for the header, enough words for the 
- * contents + 1 Null byte (for C compatibility).
- * If the buffer grows, it is best to use a new string length such
- * that the number of words is exactly twice as large as for the previous
- * string.
- * n:              length of the previous string in bytes
- * w:              storage size of the previous string in words
- * n':             length of the new string in bytes
- * w' = 2*w:       storage size of the new string in words
- *
- * w = (n+1) / word_length + 1
- *            [it is assumed that (n+1) is always a multiple of word_length]
- *
- * n' = (2*w - 1) * word_length - 1
- *
- * n' = [2 * ( [n+1] / word_length + 1) - 1] * word_length - 1
- *    = ...
- *    = (2*n + 2) + word_length - 1
- *    = 2 * n + word_length + 1
- *
- * n'+1 is again a multiple of word_length:
- * n'+1 = 2*n + 2 + word_length
- *      = 2*(n+1) + word_length
- *      = a multiple of word_length because n+1 is a multiple of word_length
- *)
-
-let word_length = Sys.word_size / 8       (* in bytes *)
-
-let create n =
-  { buffer = String.create (max n 31); length = 0; }
-
-let contents b =
-  String.sub b.buffer 0 b.length
-    
-let sub b ~pos:k ~len:n =
-  if k+n > b.length then
-    raise (Invalid_argument "Netbuffer.sub");
-  String.sub b.buffer k n
-    
-let unsafe_buffer b =
-  b.buffer
-
-let length b =
-  b.length
-
-let add_string b s =
-  let l = String.length s in
-  if l + b.length > String.length b.buffer then begin
-    let l' = l + b.length in
-    let rec new_size s =
-      if s >= l' then s else new_size(2*s + word_length + 1)
-    in
-    let buffer' = String.create (new_size (String.length b.buffer)) in
-    String.blit b.buffer 0 buffer' 0 b.length;
-    b.buffer <- buffer'
-  end;
-  String.blit s 0 b.buffer b.length l;
-  b.length <- b.length + l
-    
-let add_sub_string b s ~pos:k ~len:l =
-  if l + b.length > String.length b.buffer then begin
-    let l' = l + b.length in
-    let rec new_size s =
-      if s >= l' then s else new_size(2*s + word_length + 1)
-    in
-    let buffer' = String.create (new_size (String.length b.buffer)) in
-    String.blit b.buffer 0 buffer' 0 b.length;
-    b.buffer <- buffer'
-  end;
-  String.blit s k b.buffer b.length l;
-  b.length <- b.length + l
-    
-let delete b ~pos:k ~len:l =
-  (* deletes l bytes at position k in b *)
-  let n = String.length b.buffer in
-  if k+l <> n & k <> n then
-    String.blit b.buffer (k+l) b.buffer k (n-l-k);
-  b.length <- b.length - l;
-  ()
-
-let try_shrinking b =
-  (* If the buffer size decreases drastically, reallocate the buffer *)
-  if b.length < (String.length b.buffer / 2) then begin
-    let rec new_size s =
-      if s >= b.length then s else new_size(2*s + word_length + 1)
-    in
-    let buffer' = String.create (new_size 31) in
-    String.blit b.buffer 0 buffer' 0 b.length;
-    b.buffer <- buffer'
-  end 
-
-let clear b =
-  delete b 0 (b.length)
-  
-let index_from b k c =
-  if k > b.length then
-    raise (Invalid_argument "Netbuffer.index_from");
-  let p = String.index_from b.buffer k c in
-  if p >= b.length then raise Not_found;
-  p
-
-let print_buffer b =
-  Format.printf
-    "<NETBUFFER: %d/%d>"
-    b.length
-    (String.length b.buffer)
-;;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:27  lpadovan
- * Initial revision
- *
- * Revision 1.3  2000/06/25 22:34:43  gerd
- *     Added labels to arguments.
- *
- * Revision 1.2  2000/06/24 20:20:33  gerd
- *     Added the toploop printer.
- *
- * Revision 1.1  2000/04/15 13:07:48  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/netbuffer.mli b/helm/DEVEL/pxp/netstring/netbuffer.mli
deleted file mode 100644 (file)
index 0ecd61e..0000000
--- a/helm/DEVEL/pxp/netstring/netbuffer.mli
+++ /dev/null
@@ -1,93 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-(* A Netbuffer.t is a buffer that can grow and shrink dynamically. *)
-
-type t
-
-val create : int -> t
-    (* Creates a netbuffer which allocates initially this number of bytes. 
-     * The logical length is zero.
-     *)
-
-val contents : t -> string
-    (* Returns the contents of the buffer as fresh string. *)
-
-val sub : t -> pos:int -> len:int -> string
-    (* sub nb k n: returns the n characters starting at position n from 
-     * netbuffer nb as fresh string
-     *)
-
-val length : t -> int
-    (* Returns the logical length of the buffer *)
-
-val add_string : t -> string -> unit
-    (* add_string nb s: Adds a copy of the string s to the logical end of
-     * the netbuffer nb. If necessary, the nb grows.
-     *)
-
-val add_sub_string : t -> string -> pos:int -> len:int -> unit
-    (* add_sub_string nb s k n: Adds the substring of s starting at position
-     * k with length n to the logical end of the netbuffer nb. If necessary,
-     * the nb grows.
-     * This is semantically the same as
-     * add_string nb (String.sub s k n), but the extra copy is avoided.
-     *)
-
-val delete : t -> pos:int -> len:int -> unit
-    (* delete nb k n: Deletes the n bytes at position k of netbuffer nb
-     * in-place.
-     * The netbuffer does not shrink!
-     *)
-
-val clear : t -> unit
-    (* deletes all contents from the buffer. As 'delete', the netbuffer does
-     * not shrink.
-     *)
-
-val try_shrinking : t -> unit
-    (* try_shrinking nb: If the length of the buffer is less than half of
-     * the allocated space, the netbuffer is reallocated in order to save
-     * memory.
-     *)
-
-val index_from : t -> int -> char -> int
-    (* index_from nb k c: Searches the character c in the netbuffer beginning
-     * at position k. If found, the position of the left-most occurence is
-     * returned. Otherwise, Not_found is raised.
-     *)
-
-val unsafe_buffer : t -> string
-    (* WARNING! This is a low-level function!
-     * Returns the current string that internally holds the buffer.
-     * The byte positions 0 to length - 1 actually store the contents of
-     * the buffer. You can directly read and modify the buffer. Note that
-     * there is no protection if you read or write positions beyond the
-     * length of the buffer.
-     *)
-
-val print_buffer : t -> unit
-    (* For the toploop *)
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:27  lpadovan
- * Initial revision
- *
- * Revision 1.3  2000/06/25 22:34:43  gerd
- *     Added labels to arguments.
- *
- * Revision 1.2  2000/06/24 20:20:33  gerd
- *     Added the toploop printer.
- *
- * Revision 1.1  2000/04/15 13:07:48  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/netconversion.ml b/helm/DEVEL/pxp/netstring/netconversion.ml
deleted file mode 100644 (file)
index e740654..0000000
--- a/helm/DEVEL/pxp/netstring/netconversion.ml
+++ /dev/null
@@ -1,864 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *)
-
-exception Malformed_code
-
-
-type encoding =
-  [  `Enc_utf8       (* UTF-8 *)
-  |  `Enc_java
-  |  `Enc_utf16      (* UTF-16 with unspecified endianess (restricted usage) *)
-  |  `Enc_utf16_le   (* UTF-16 little endian *)
-  |  `Enc_utf16_be   (* UTF-16 big endian *)
-  |  `Enc_usascii    (* US-ASCII (only 7 bit) *)
-  |  `Enc_iso88591   (* ISO-8859-1 *)
-  |  `Enc_iso88592   (* ISO-8859-2 *)
-  |  `Enc_iso88593   (* ISO-8859-3 *)
-  |  `Enc_iso88594   (* ISO-8859-4 *)
-  |  `Enc_iso88595   (* ISO-8859-5 *)
-  |  `Enc_iso88596   (* ISO-8859-6 *)
-  |  `Enc_iso88597   (* ISO-8859-7 *)
-  |  `Enc_iso88598   (* ISO-8859-8 *)
-  |  `Enc_iso88599   (* ISO-8859-9 *)
-  |  `Enc_iso885910  (* ISO-8859-10 *)
-  |  `Enc_iso885913  (* ISO-8859-13 *)
-  |  `Enc_iso885914  (* ISO-8859-14 *)
-  |  `Enc_iso885915  (* ISO-8859-15 *)
-  |  `Enc_koi8r      (* KOI8-R *)
-  |  `Enc_jis0201    (* JIS-0201 *)
-    (* Microsoft: *)
-  |  `Enc_windows1250  (* WINDOWS-1250 *)
-  |  `Enc_windows1251  (* WINDOWS-1251 *)
-  |  `Enc_windows1252  (* WINDOWS-1252 *)
-  |  `Enc_windows1253  (* WINDOWS-1253 *)
-  |  `Enc_windows1254  (* WINDOWS-1254 *)
-  |  `Enc_windows1255  (* WINDOWS-1255 *)
-  |  `Enc_windows1256  (* WINDOWS-1256 *)
-  |  `Enc_windows1257  (* WINDOWS-1257 *)
-  |  `Enc_windows1258  (* WINDOWS-1258 *)
-    (* IBM, ASCII-based: *)
-  |  `Enc_cp437
-  |  `Enc_cp737
-  |  `Enc_cp775
-  |  `Enc_cp850
-  |  `Enc_cp852
-  |  `Enc_cp855
-  |  `Enc_cp856
-  |  `Enc_cp857
-  |  `Enc_cp860
-  |  `Enc_cp861
-  |  `Enc_cp862
-  |  `Enc_cp863
-  |  `Enc_cp864
-  |  `Enc_cp865
-  |  `Enc_cp866
-  |  `Enc_cp869
-  |  `Enc_cp874
-  |  `Enc_cp1006
-   (* IBM, EBCDIC-based: *)
-  |  `Enc_cp037
-  |  `Enc_cp424
-  |  `Enc_cp500
-  |  `Enc_cp875
-  |  `Enc_cp1026
-   (* Adobe: *)
-  |  `Enc_adobe_standard_encoding
-  |  `Enc_adobe_symbol_encoding
-  |  `Enc_adobe_zapf_dingbats_encoding
-   (* Apple: *)
-  |  `Enc_macroman
-
-  ]
-;;
-
-
-let norm_enc_name e =
-  (* Removes some characters from e; uppercase *)
-  let e' = String.create (String.length e) in
-  let rec next i j =
-    if i < String.length e then
-      match e.[i] with
-         ('-'|'_'|'.') -> next (i+1) j
-       | c             -> e'.[j] <- c; next (i+1) (j+1)
-    else
-      j
-  in
-  let l = next 0 0 in
-  String.uppercase(String.sub e' 0 l)
-;;
-
-
-let encoding_of_string e =
-  match norm_enc_name e with
-      ("UTF16"|"UCS2"|"ISO10646UCS2")                 -> `Enc_utf16
-    | "UTF16BE"                                       -> `Enc_utf16_be
-    | "UTF16LE"                                       -> `Enc_utf16_le
-    | "UTF8"                                          -> `Enc_utf8
-    | ("UTF8JAVA"|"JAVA")                             -> `Enc_java
-    | ("USASCII"|"ASCII"|"ISO646US"|"IBM367"|"CP367") -> `Enc_usascii
-    | ("ISO88591"|"LATIN1"|"IBM819"|"CP819")          -> `Enc_iso88591
-    | ("ISO88592"|"LATIN2")                           -> `Enc_iso88592
-    | ("ISO88593"|"LATIN3")                           -> `Enc_iso88593
-    | ("ISO88594"|"LATIN4")                           -> `Enc_iso88594
-    | ("ISO88595"|"CYRILLIC")                         -> `Enc_iso88595
-    | ("ISO88596"|"ARABIC"|"ECMA114"|"ASMO708")       -> `Enc_iso88596
-    | ("ISO88597"|"GREEK"|"GREEK8"|"ELOT928"|"ECMA118") -> `Enc_iso88597
-    | ("ISO88598"|"HEBREW")                           -> `Enc_iso88598
-    | ("ISO88599"|"LATIN5")                           -> `Enc_iso88599
-    | ("ISO885910"|"LATIN6")                          -> `Enc_iso885910
-    | "ISO885913"                                     -> `Enc_iso885913
-    | "ISO885914"                                     -> `Enc_iso885914
-    | "ISO885915"                                     -> `Enc_iso885915
-    | "KOI8R"                                         -> `Enc_koi8r
-    | ("JIS0201"|"JISX0201"|"X0201")                  -> `Enc_jis0201
-
-    | "WINDOWS1250"                                   -> `Enc_windows1250
-    | "WINDOWS1251"                                   -> `Enc_windows1251
-    | "WINDOWS1252"                                   -> `Enc_windows1252
-    | "WINDOWS1253"                                   -> `Enc_windows1253
-    | "WINDOWS1254"                                   -> `Enc_windows1254
-    | "WINDOWS1255"                                   -> `Enc_windows1255
-    | "WINDOWS1256"                                   -> `Enc_windows1256
-    | "WINDOWS1257"                                   -> `Enc_windows1257
-    | "WINDOWS1258"                                   -> `Enc_windows1258
-
-    | ("CP437"|"IBM437")                              -> `Enc_cp437
-    | ("CP737"|"IBM737")                              -> `Enc_cp737
-    | ("CP775"|"IBM775")                              -> `Enc_cp775
-    | ("CP850"|"IBM850")                              -> `Enc_cp850
-    | ("CP852"|"IBM852")                              -> `Enc_cp852
-    | ("CP855"|"IBM855")                              -> `Enc_cp855
-    | ("CP856"|"IBM856")                              -> `Enc_cp856
-    | ("CP857"|"IBM857")                              -> `Enc_cp857
-    | ("CP860"|"IBM860")                              -> `Enc_cp860
-    | ("CP861"|"IBM861")                              -> `Enc_cp861
-    | ("CP862"|"IBM862")                              -> `Enc_cp862
-    | ("CP863"|"IBM863")                              -> `Enc_cp863
-    | ("CP864"|"IBM864")                              -> `Enc_cp864
-    | ("CP865"|"IBM865")                              -> `Enc_cp865
-    | ("CP866"|"IBM866")                              -> `Enc_cp866
-    | ("CP869"|"IBM869")                              -> `Enc_cp869
-    | ("CP874"|"IBM874")                              -> `Enc_cp874
-    | ("CP1006"|"IBM1006")                            -> `Enc_cp1006
-
-    | ("CP037"|"IBM037"|"EBCDICCPUS"|"EBCDICCPCA"|"EBCDICCPWT"|
-       "EBCDICCPNL")                                  -> `Enc_cp037
-    | ("CP424"|"IBM424"|"EBCDICCPHE")                 -> `Enc_cp424
-    | ("CP500"|"IBM500"|"EBCDICCPBE"|"EBCDICCPCH")    -> `Enc_cp500
-    | ("CP875"|"IBM875")                              -> `Enc_cp875
-    | ("CP1026"|"IBM1026")                            -> `Enc_cp1026
-
-    | "ADOBESTANDARDENCODING"       -> `Enc_adobe_standard_encoding
-    | "ADOBESYMBOLENCODING"         -> `Enc_adobe_symbol_encoding
-    | "ADOBEZAPFDINGBATSENCODING"   -> `Enc_adobe_zapf_dingbats_encoding
-
-    | "MACINTOSH"                   -> `Enc_macroman
-
-    | _ ->
-       failwith "Netconversion.encoding_of_string: unknown encoding"
-;;
-
-
-let string_of_encoding (e : encoding) =
-  (* If there is a "preferred MIME name", this name is returned (see IANA). *)
-  match e with
-      `Enc_utf16    -> "UTF-16"
-    | `Enc_utf16_be -> "UTF-16-BE"
-    | `Enc_utf16_le -> "UTF-16-LE"
-    | `Enc_utf8     -> "UTF-8"
-    | `Enc_java     -> "UTF-8-JAVA"
-    | `Enc_usascii  -> "US-ASCII"
-    | `Enc_iso88591 -> "ISO-8859-1"
-    | `Enc_iso88592 -> "ISO-8859-2"
-    | `Enc_iso88593 -> "ISO-8859-3"
-    | `Enc_iso88594 -> "ISO-8859-4"
-    | `Enc_iso88595 -> "ISO-8859-5"
-    | `Enc_iso88596 -> "ISO-8859-6"
-    | `Enc_iso88597 -> "ISO-8859-7"
-    | `Enc_iso88598 -> "ISO-8859-8"
-    | `Enc_iso88599 -> "ISO-8859-9"
-    | `Enc_iso885910 -> "ISO-8859-10"
-    | `Enc_iso885913 -> "ISO-8859-13"
-    | `Enc_iso885914 -> "ISO-8859-14"
-    | `Enc_iso885915 -> "ISO-8859-15"
-    | `Enc_koi8r     -> "KOI8-R"
-    | `Enc_jis0201   -> "JIS_X0201"
-    | `Enc_windows1250 -> "WINDOWS-1250"
-    | `Enc_windows1251 -> "WINDOWS-1251"
-    | `Enc_windows1252 -> "WINDOWS-1252"
-    | `Enc_windows1253 -> "WINDOWS-1253"
-    | `Enc_windows1254 -> "WINDOWS-1254"
-    | `Enc_windows1255 -> "WINDOWS-1255"
-    | `Enc_windows1256 -> "WINDOWS-1256"
-    | `Enc_windows1257 -> "WINDOWS-1257"
-    | `Enc_windows1258 -> "WINDOWS-1258"
-    | `Enc_cp437   -> "CP437"
-    | `Enc_cp737   -> "CP737"
-    | `Enc_cp775   -> "CP775"
-    | `Enc_cp850   -> "CP850"
-    | `Enc_cp852   -> "CP852"
-    | `Enc_cp855   -> "CP855"
-    | `Enc_cp856   -> "CP856"
-    | `Enc_cp857   -> "CP857"
-    | `Enc_cp860   -> "CP860"
-    | `Enc_cp861   -> "CP861"
-    | `Enc_cp862   -> "CP862"
-    | `Enc_cp863   -> "CP863"
-    | `Enc_cp864   -> "CP864"
-    | `Enc_cp865   -> "CP865"
-    | `Enc_cp866   -> "CP866"
-    | `Enc_cp869   -> "CP869"
-    | `Enc_cp874   -> "CP874"
-    | `Enc_cp1006  -> "CP1006"
-    | `Enc_cp037   -> "CP037"
-    | `Enc_cp424   -> "CP424"
-    | `Enc_cp500   -> "CP500"
-    | `Enc_cp875   -> "CP875"
-    | `Enc_cp1026  -> "CP1026"
-    | `Enc_adobe_standard_encoding      -> "ADOBE-STANDARD-ENCODING"
-    | `Enc_adobe_symbol_encoding        -> "ADOBE-SYMBOL-ENCODING"
-    | `Enc_adobe_zapf_dingbats_encoding -> "ADOBE-ZAPF-DINGBATS-ENCODING"
-    | `Enc_macroman                     -> "MACINTOSH"
-;;
-
-
-let read_iso88591 write s_in p_in l_in =
-  let rec scan k_in k_out c_out =
-    if k_in < l_in then begin
-      let p = Char.code s_in.[p_in + k_in] in
-      let n = write p k_out c_out in
-      if n < 0 then
-       k_in, k_out, `Enc_iso88591
-      else
-       scan (k_in + 1) (k_out + n) (c_out + 1)
-    end
-    else
-      k_in, k_out, `Enc_iso88591
-  in
-  scan 0 0 0
-;;
-
-
-let read_usascii write s_in p_in l_in =
-  let rec scan k_in k_out c_out =
-    if k_in < l_in then begin
-      let p = Char.code s_in.[p_in + k_in] in
-      if p >= 0x80 then raise Malformed_code;
-      let n = write p k_out c_out in
-      if n < 0 then
-       k_in, k_out, `Enc_usascii
-      else
-       scan (k_in + 1) (k_out + n) (c_out + 1)
-    end
-    else
-      k_in, k_out, `Enc_usascii
-  in
-  scan 0 0 0
-;;
-
-
-let read_8bit m_to_unicode enc write s_in p_in l_in =
-  let rec scan k_in k_out c_out =
-    if k_in < l_in then begin
-      let p_local = Char.code s_in.[p_in + k_in] in
-      let p_uni = Array.unsafe_get m_to_unicode p_local in
-      if p_uni < 0 then raise Malformed_code;
-      let n = write p_uni k_out c_out in
-      if n < 0 then
-       k_in, k_out, enc
-      else
-       scan (k_in + 1) (k_out + n) (c_out + 1)
-    end
-    else
-      k_in, k_out, enc
-  in
-  scan 0 0 0
-;;
-
-
-let read_utf8 is_java write s_in p_in l_in =
-  let rec scan k_in k_out c_out =
-    if k_in < l_in then begin
-      let n_out, n_in =
-       match s_in.[p_in + k_in] with
-           '\000' ->
-             if is_java then raise Malformed_code;
-             write 0 k_out c_out, 1
-         | ('\001'..'\127' as c) ->
-             write (Char.code c) k_out c_out, 1
-         | ('\128'..'\223' as c) ->
-             if k_in + 1 >= l_in then
-               -1, 0
-             else begin
-               let n1 = Char.code c in
-               let n2 = Char.code (s_in.[p_in + k_in + 1]) in
-               if is_java && (n1 = 0x80 && n2 = 0xc0) then
-                 write 0 k_out c_out, 2
-               else begin
-                 if n2 < 128 or n2 > 191 then raise Malformed_code;
-                 let p = ((n1 land 0b11111) lsl 6) lor (n2 land 0b111111) in
-                 if p < 128 then raise Malformed_code;
-                 write p k_out c_out, 2
-               end
-             end
-         | ('\224'..'\239' as c) ->
-             if k_in + 2 >= l_in then
-               -1, 0
-             else begin
-               let n1 = Char.code c in
-               let n2 = Char.code (s_in.[p_in + k_in + 1]) in
-               let n3 = Char.code (s_in.[p_in + k_in + 2]) in
-               if n2 < 128 or n2 > 191 then raise Malformed_code;
-               if n3 < 128 or n3 > 191 then raise Malformed_code;
-               let p =
-                 ((n1 land 0b1111) lsl 12) lor
-                 ((n2 land 0b111111) lsl 6) lor
-                 (n3 land 0b111111)
-               in
-               if p < 0x800 then raise Malformed_code;
-               if (p >= 0xd800 && p < 0xe000) then
-                 (* Surrogate pairs are not supported in UTF-8 *)
-                 raise Malformed_code;
-               if (p >= 0xfffe && p <= 0xffff) then
-                 raise Malformed_code;
-               write p k_out c_out, 3
-             end
-         | ('\240'..'\247' as c) ->
-             if k_in + 3 >= l_in then
-               -1, 0
-             else begin
-               let n1 = Char.code c in
-               let n2 = Char.code (s_in.[p_in + k_in + 1]) in
-               let n3 = Char.code (s_in.[p_in + k_in + 2]) in
-               let n4 = Char.code (s_in.[p_in + k_in + 3]) in
-               if n2 < 128 or n2 > 191 then raise Malformed_code;
-               if n3 < 128 or n3 > 191 then raise Malformed_code;
-               if n4 < 128 or n4 > 191 then raise Malformed_code;
-               let p = ((n1 land 0b111) lsl 18) lor
-                       ((n2 land 0b111111) lsl 12) lor
-                       ((n3 land 0b111111) lsl 6) lor
-                       (n4 land 0b111111)
-               in
-               if p < 0x10000 then raise Malformed_code;
-               if p >= 0x110000 then
-                 (* These code points are not supported. *)
-                 raise Malformed_code;
-               write p k_out c_out, 4
-             end
-         | _ ->
-             (* Outside the valid range of XML characters *)
-             raise Malformed_code;
-      in
-      (* n_out: number of written bytes; -1 means out buf is full
-       * n_in: number of read bytes; 0 means end of in buf reached
-       * n_in = 0  implies  n_out = -1
-       *)
-      if n_out < 0 then
-       k_in, k_out, `Enc_utf8
-      else
-       scan (k_in + n_in) (k_out + n_out) (c_out + 1)
-    end
-    else
-      k_in, k_out, `Enc_utf8
-  in
-  scan 0 0 0
-;;
-
-
-let surrogate_offset = 0x10000 - (0xD800 lsl 10) - 0xDC00;;
-       
-let read_utf16_le k_in_0 write s_in p_in l_in =
-  let rec scan k_in k_out c_out =
-    if k_in + 1 < l_in then begin
-      let p = (Char.code s_in.[p_in + k_in]) lor ((Char.code s_in.[p_in + k_in + 1]) lsl 8) in
-
-      if p >= 0xd800 & p < 0xe000 then begin
-       (* This is a surrogate pair. *)
-       if k_in + 3 < l_in then begin
-         if p <= 0xdbff then begin
-           let q = (Char.code s_in.[p_in + k_in + 2 ]) lor
-                   ((Char.code s_in.[p_in + k_in + 3]) lsl 8) in
-           if q < 0xdc00 or q > 0xdfff then raise Malformed_code;
-           let eff_p = (p lsl 10) + q + surrogate_offset in
-           let n = write eff_p k_out c_out in
-           if n < 0 then
-             k_in, k_out, `Enc_utf16_le
-           else
-             scan (k_in + 4) (k_out + n) (c_out + 1)
-         end
-         else
-           (* Malformed pair: *)
-           raise Malformed_code;
-       end
-       else 
-         (* Incomplete pair: *)
-         k_in, k_out, `Enc_utf16_le
-      end
-
-      else
-       if p = 0xfffe then 
-         (* Big endian byte order mark: It is illegal here *)
-         raise Malformed_code
-       else begin
-         (* A regular code point *)
-         let n = write p k_out c_out in
-         if n < 0 then
-           k_in, k_out, `Enc_utf16_le
-         else
-           scan (k_in + 2) (k_out + n) (c_out + 1)
-       end
-    end
-    else
-      (* Incomplete character: *)
-      k_in, k_out, `Enc_utf16_le
-  in
-  scan k_in_0 0 0
-;;
-
-
-let read_utf16_be k_in_0 write s_in p_in l_in =
-  let rec scan k_in k_out c_out =
-    if k_in + 1 < l_in then begin
-      let p = (Char.code s_in.[p_in + k_in + 1]) lor ((Char.code s_in.[p_in + k_in]) lsl 8) in
-
-      if p >= 0xd800 & p < 0xe000 then begin
-       (* This is a surrogate pair. *)
-       if k_in + 3 < l_in then begin
-         if p <= 0xdbff then begin
-           let q = (Char.code s_in.[p_in + k_in + 3 ]) lor
-                   ((Char.code s_in.[p_in + k_in + 2]) lsl 8) in
-           if q < 0xdc00 or q > 0xdfff then raise Malformed_code;
-           let eff_p = (p lsl 10) + q + surrogate_offset in
-           let n = write eff_p k_out c_out in
-           if n < 0 then
-             k_in, k_out, `Enc_utf16_be
-           else
-             scan (k_in + 4) (k_out + n) (c_out + 1)
-         end
-         else
-           (* Malformed pair: *)
-           raise Malformed_code;
-       end
-       else 
-         (* Incomplete pair: *)
-         k_in, k_out, `Enc_utf16_be
-      end
-
-      else
-       if p = 0xfffe then
-         (* Little endian byte order mark: It is illegal here *)
-         raise Malformed_code
-       else begin
-         (* A regular code point *)
-         let n = write p k_out c_out in
-         if n < 0 then
-           k_in, k_out, `Enc_utf16_be
-         else
-           scan (k_in + 2) (k_out + n) (c_out + 1)
-       end
-
-    end
-    else
-      (* Incomplete character: *)
-      k_in, k_out, `Enc_utf16_be
-  in
-  scan k_in_0 0 0
-;;
-
-
-let read_utf16 write s_in p_in l_in =
-  (* Expect a BOM at the beginning of the text *)
-  if l_in >= 2 then begin
-    let c0 = s_in.[p_in + 0] in
-    let c1 = s_in.[p_in + 1] in
-    if c0 = '\254' & c1 = '\255' then begin
-      (* 0xfeff as big endian *)
-      read_utf16_be 2 write s_in p_in l_in
-    end
-    else 
-      if c0 = '\255' & c1 = '\254' then begin
-       (* 0xfeff as little endian *)
-       read_utf16_le 2 write s_in p_in l_in
-      end
-      else
-       (* byte order mark missing *)
-       raise Malformed_code
-  end
-  else
-    0, 0, `Enc_utf16
-;;
-
-
-let write_iso88591 s_out p_out l_out max_chars w p k_out c_out =
-  if k_out < l_out && c_out < max_chars then begin
-    if p > 255 then begin
-      let subst = w p in
-      let l_subst =  String.length subst in
-      if k_out + l_subst <= l_out then begin
-       (* Enough space to store 'subst': *)
-       String.blit subst 0 s_out (k_out+p_out) l_subst;
-       l_subst
-      end
-      else
-       (* Not enough space: Stop this round of recoding *)
-       -1
-    end
-    else begin
-      s_out.[p_out + k_out] <- Char.chr p;
-      1
-    end
-  end
-  else
-    -1   (* End-of-buffer indicator *)
-;;
-
-
-let write_usascii s_out p_out l_out max_chars w p k_out c_out =
-  if k_out < l_out && c_out < max_chars then begin
-    if p > 127 then begin
-      let subst = w p in
-      let l_subst =  String.length subst in
-      if k_out + l_subst <= l_out then begin
-       (* Enough space to store 'subst': *)
-       String.blit subst 0 s_out (k_out+p_out) l_subst;
-       l_subst
-      end
-      else
-       (* Not enough space: Stop this round of recoding *)
-       -1
-    end
-    else begin
-      s_out.[p_out + k_out] <- Char.chr p;
-      1
-    end
-  end
-  else
-    -1   (* End-of-buffer indicator *)
-;;
-
-
-let write_8bit from_unicode s_out p_out l_out max_chars w p k_out c_out =
-  if k_out < l_out && c_out < max_chars then begin
-    let p' =
-      match Array.unsafe_get from_unicode (p land 255) with
-         Netmappings.U_nil -> -1
-       | Netmappings.U_single (p0,q0) ->
-           if p0 = p then q0 else -1
-       | Netmappings.U_list l ->
-           (try List.assoc p l with Not_found -> -1)
-    in
-    if p' < 0 then begin
-      let subst = w p in
-      let l_subst =  String.length subst in
-      if k_out + l_subst <= l_out then begin
-       (* Enough space to store 'subst': *)
-       String.blit subst 0 s_out (k_out+p_out) l_subst;
-       l_subst
-      end
-      else
-       (* Not enough space: Stop this round of recoding *)
-       -1
-    end
-    else begin
-      s_out.[p_out + k_out] <- Char.chr p';
-      1
-    end
-  end
-  else
-    -1   (* End-of-buffer indicator *)
-;;
-
-
-let write_utf8 is_java s_out p_out l_out max_chars w p k_out c_out =
-  if p <= 127 && (not is_java || p <> 0) then begin
-    if k_out < l_out && c_out < max_chars then begin
-      s_out.[p_out + k_out] <- Char.chr p;
-      1
-    end
-    else -1
-  end
-  else if p <= 0x7ff then begin
-    if k_out + 1 < l_out && c_out < max_chars then begin
-      s_out.[p_out + k_out]     <- Char.chr (0xc0 lor (p lsr 6));
-      s_out.[p_out + k_out + 1] <- Char.chr (0x80 lor (p land 0x3f));
-      2
-    end
-    else -1
-  end
-  else if p <= 0xffff then begin
-    (* Refuse writing surrogate pairs, and fffe, ffff *)
-    if (p >= 0xd800 & p < 0xe000) or (p >= 0xfffe) then
-      failwith "Netconversion.write_utf8";
-    if k_out + 2 < l_out && c_out < max_chars then begin
-      s_out.[p_out + k_out]     <- Char.chr (0xe0 lor (p lsr 12));
-      s_out.[p_out + k_out + 1] <- Char.chr (0x80 lor ((p lsr 6) land 0x3f));
-      s_out.[p_out + k_out + 2] <- Char.chr (0x80 lor (p land 0x3f));
-      3
-    end
-    else -1
-  end
-  else if p <= 0x10ffff then begin
-    if k_out + 3 < l_out && c_out < max_chars then begin
-      s_out.[p_out + k_out]     <- Char.chr (0xf0 lor (p lsr 18));
-      s_out.[p_out + k_out + 1] <- Char.chr (0x80 lor ((p lsr 12) land 0x3f));
-      s_out.[p_out + k_out + 2] <- Char.chr (0x80 lor ((p lsr 6)  land 0x3f));
-      s_out.[p_out + k_out + 3] <- Char.chr (0x80 lor (p land 0x3f));
-      4
-    end
-    else -1
-  end
-  else
-    (* Higher code points are not possible in XML: *)
-    failwith "Netconversion.write_utf8"
-;;
-
-
-let write_utf16_le s_out p_out l_out max_chars w p k_out c_out =
-  if p >= 0xfffe then begin
-    if p <= 0xffff or p > 0x10ffff then failwith "Netconversion.write_utf16_le";
-    (* Must be written as surrogate pair *)
-    if k_out + 3 < l_out && c_out < max_chars then begin
-      let high = (p lsr 10) + 0xd800 in
-      let low  = (p land 0x3ff) + 0xdc00 in
-      s_out.[p_out + k_out    ] <- Char.chr (high land 0xff);
-      s_out.[p_out + k_out + 1] <- Char.chr (high lsr 8);
-      s_out.[p_out + k_out + 2] <- Char.chr (low land 0xff);
-      s_out.[p_out + k_out + 3] <- Char.chr (low lsr 8);
-      4
-    end
-    else -1
-  end
-  else begin
-    if k_out + 1 < l_out && c_out < max_chars then begin
-      s_out.[p_out + k_out    ] <- Char.chr (p land 0xff);
-      s_out.[p_out + k_out + 1] <- Char.chr (p lsr 8);
-      2
-    end
-    else
-      -1
-  end
-;;
-
-
-let write_utf16_be s_out p_out l_out max_chars w p k_out c_out =
-  if p >= 0xfffe then begin
-    if p <= 0xffff or p > 0x10ffff then failwith "Netconversion.write_utf16_be";
-    (* Must be written as surrogate pair *)
-    if k_out + 3 < l_out && c_out < max_chars then begin
-      let high = (p lsr 10) + 0xd800 in
-      let low  = (p land 0x3ff) + 0xdc00 in
-      s_out.[p_out + k_out + 1] <- Char.chr (high land 0xff);
-      s_out.[p_out + k_out    ] <- Char.chr (high lsr 8);
-      s_out.[p_out + k_out + 3] <- Char.chr (low land 0xff);
-      s_out.[p_out + k_out + 2] <- Char.chr (low lsr 8);
-      4
-    end
-    else -1
-  end
-  else begin
-    if k_out + 1 < l_out && c_out < max_chars then begin
-      s_out.[p_out + k_out + 1] <- Char.chr (p land 0xff);
-      s_out.[p_out + k_out    ] <- Char.chr (p lsr 8);
-      2
-    end
-    else
-      -1
-  end
-;;
-
-
-let recode ~in_enc
-           ~in_buf
-          ~in_pos
-          ~in_len
-          ~out_enc
-          ~out_buf
-           ~out_pos
-          ~out_len
-          ~max_chars
-          ~subst =
-  if (in_pos < 0  || in_len < 0  || in_pos  + in_len  > String.length in_buf ||
-      out_pos < 0 || out_len < 0 || out_pos + out_len > String.length out_buf)
-  then
-    invalid_arg "Netconversion.recode";
-
-  let reader =
-    match in_enc with
-       `Enc_iso88591 -> read_iso88591
-      | `Enc_usascii  -> read_usascii
-      | `Enc_utf8     -> read_utf8 false
-      | `Enc_java     -> read_utf8 true
-      | `Enc_utf16    -> read_utf16
-      | `Enc_utf16_le -> read_utf16_le 0
-      | `Enc_utf16_be -> read_utf16_be 0
-      | _             -> 
-         (try
-            let to_unicode' = Hashtbl.find Netmappings.to_unicode in_enc in
-            let to_unicode =
-              Netmappings.lock();
-              Lazy.force to_unicode' in
-            Netmappings.unlock();
-            read_8bit to_unicode in_enc
-          with
-              Not_found ->
-                failwith("Support for the encoding `" ^
-                         string_of_encoding in_enc ^ 
-                         "' has not been compiled into Netstring")
-         )
-  in
-  let writer =
-    match out_enc with
-       `Enc_iso88591 -> write_iso88591  out_buf out_pos out_len max_chars subst
-      | `Enc_usascii  -> write_usascii   out_buf out_pos out_len max_chars subst
-      | `Enc_utf8     -> write_utf8 false 
-                                         out_buf out_pos out_len max_chars subst
-      | `Enc_java     -> write_utf8 true out_buf out_pos out_len max_chars subst
-      | `Enc_utf16    -> failwith "Netconversion.recode"
-      | `Enc_utf16_le -> write_utf16_le  out_buf out_pos out_len max_chars subst
-      | `Enc_utf16_be -> write_utf16_be  out_buf out_pos out_len max_chars subst
-      | _             -> 
-         (try
-            let from_unicode' = Hashtbl.find Netmappings.from_unicode out_enc 
-            in
-            let from_unicode =
-              Netmappings.lock();
-              Lazy.force from_unicode' in
-            Netmappings.unlock();
-            write_8bit from_unicode out_buf out_pos out_len max_chars subst
-          with
-              Not_found ->
-                failwith("Support for the encoding `" ^
-                         string_of_encoding out_enc ^ 
-                         "' has not been compiled into Netstring")
-         )
-  in
-  reader writer in_buf in_pos in_len
-;;
-
-
-let makechar enc p =
-  match enc with
-      `Enc_iso88591 -> 
-       if p > 255 then raise Not_found;
-       String.make 1 (Char.chr p)
-    | `Enc_usascii ->
-       if p > 127 then raise Not_found;
-       String.make 1 (Char.chr p)
-    | `Enc_utf8 ->
-       let s = String.create 4 in
-       let n = write_utf8 false s 0 4 1 (fun _ -> raise Not_found) p 0 0 in
-       String.sub s 0 n
-    | `Enc_java ->
-       let s = String.create 4 in
-       let n = write_utf8 true s 0 4 1 (fun _ -> raise Not_found) p 0 0 in
-       String.sub s 0 n
-    | `Enc_utf16_le ->
-       let s = String.create 4 in
-       let n = write_utf16_le s 0 4 1 (fun _ -> raise Not_found) p 0 0 in
-       String.sub s 0 n
-    | `Enc_utf16_be ->
-       let s = String.create 4 in
-       let n = write_utf16_be s 0 4 1 (fun _ -> raise Not_found) p 0 0 in
-       String.sub s 0 n
-    | `Enc_utf16 ->
-       failwith "Netconversion.makechar"
-    | _ ->
-       let s = String.create 1 in
-       let from_unicode' = 
-         try
-           Hashtbl.find Netmappings.from_unicode enc 
-         with
-             Not_found ->
-               failwith("Support for the encoding `" ^
-                        string_of_encoding enc ^ 
-                        "' has not been compiled into Netstring")
-       in
-       let from_unicode =
-         Netmappings.lock();
-         Lazy.force from_unicode' in
-       Netmappings.unlock();
-       let n =
-         write_8bit from_unicode s 0 1 1 (fun _ -> raise Not_found) p 0 0 in
-       s
-;;
-
-
-let recode_string ~in_enc ~out_enc ?(subst = (fun _ -> raise Not_found)) s =
-
-  let length = String.length s in
-  let size = 1024 in
-  let out_buf = String.create size in
-
-  let rec recode_loop k s_done in_enc =
-    (* 'k' bytes of 's' have already been processed, and the result is in
-     * 's_done'.
-     *)
-    (* Recode to 'out_buf': *)
-    let in_len = length - k in
-    let in_done, out_done, in_enc' =
-      recode ~in_enc:in_enc   ~in_buf:s        ~in_pos:k     ~in_len:in_len
-             ~out_enc:out_enc ~out_buf:out_buf ~out_pos:0    ~out_len:size  
-             ~max_chars:size  ~subst:subst in
-    (* Collect the results: *)
-    let k' = k + in_done in
-    let s_done' = String.sub out_buf 0 out_done :: s_done in
-    (* Still something to do? *)
-    if k' < length then
-      recode_loop k' s_done' in_enc'
-    else
-      (* No: Concatenate s_done' to get the final result. *)
-      String.concat "" (List.rev s_done')
-  in
-
-  recode_loop 0 [] in_enc
-;;
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:28  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/08/29 00:46:41  gerd
- *     New type for the Unicode to 8 bit translation table.
- *     The Netmappings tables are now Lazy.t.
- *
- * Revision 1.1  2000/08/13 00:02:57  gerd
- *     Initial revision.
- *
- *
- * ======================================================================
- * OLD LOGS FROM THE PXP PACKAGE (FILE NAME pxp_encoding.ml):
- * 
- * Revision 1.5  2000/07/27 00:41:14  gerd
- *     new 8 bit codes
- *
- * Revision 1.4  2000/07/04 22:11:41  gerd
- *     Implemented the enhancements and extensions of
- * rev. 1.4 of pxp_encoding.mli.
- *
- * Revision 1.3  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * Revision 1.2  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.1  2000/05/20 20:30:50  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/netconversion.mli b/helm/DEVEL/pxp/netstring/netconversion.mli
deleted file mode 100644 (file)
index 5e3e4b4..0000000
--- a/helm/DEVEL/pxp/netstring/netconversion.mli
+++ /dev/null
@@ -1,241 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *)
-
-exception Malformed_code
-
-(* Encodings:
- * - With the exception of UTF-8 and UTF-16, only single-byte character sets
- *   are supported.
- * - I took the mappings from www.unicode.org, and the standard names of
- *   the character sets from IANA. Obviously, many character sets are missing
- *   that can be supported; especially ISO646 character sets, many EBCDIC 
- *   code pages. 
- * - Because of the copyright statement from Unicode, I cannot put the
- *   source tables that describe the mappings into the distribution. They
- *   are publicly available from www.unicode.org.
- * - Because of this, it is difficult for you to extend the list of character 
- *   sets; you need the source tables I am not allowed to distribute.
- *   These tables have a very simple format: Every line describes a pair
- *   of code points; the left code (<= 0xff) is the code in the character
- *   set, the right code (<= 0xffff) is the Unicode equivalent.
- *   For an example, see
- *   http://www.unicode.org/Public/MAPPINGS/ISO8859/8859-2.TXT
- *   You can send me such files, and I will integrate them into the 
- *   distribution (if possible).
- * - I really do not know very much about the character sets used in
- *   East Asia. If you need them, please write the necessary conversion
- *   functions and send them to me.
- *
- * KNOWN PROBLEMS:
- * - The following charsets do not have a bijective mapping to Unicode:
- *   adobe_standard_encoding, adobe_symbol_encoding, 
- *   adobe_zapf_dingbats_encoding, cp1002 (0xFEBE). The current implementation
- *   simply removes one of the conflicting code point pairs - this might
- *   not what you want.
- *)
-
-type encoding =
-  [  `Enc_utf8       (* UTF-8 *)
-  |  `Enc_java       (* The variant of UTF-8 used by Java *)
-  |  `Enc_utf16      (* UTF-16 with unspecified endianess (restricted usage) *)
-  |  `Enc_utf16_le   (* UTF-16 little endian *)
-  |  `Enc_utf16_be   (* UTF-16 big endian *)
-  |  `Enc_usascii    (* US-ASCII (only 7 bit) *)
-  |  `Enc_iso88591   (* ISO-8859-1 *)
-  |  `Enc_iso88592   (* ISO-8859-2 *)
-  |  `Enc_iso88593   (* ISO-8859-3 *)
-  |  `Enc_iso88594   (* ISO-8859-4 *)
-  |  `Enc_iso88595   (* ISO-8859-5 *)
-  |  `Enc_iso88596   (* ISO-8859-6 *)
-  |  `Enc_iso88597   (* ISO-8859-7 *)
-  |  `Enc_iso88598   (* ISO-8859-8 *)
-  |  `Enc_iso88599   (* ISO-8859-9 *)
-  |  `Enc_iso885910  (* ISO-8859-10 *)
-  |  `Enc_iso885913  (* ISO-8859-13 *)
-  |  `Enc_iso885914  (* ISO-8859-14 *)
-  |  `Enc_iso885915  (* ISO-8859-15 *)
-  |  `Enc_koi8r      (* KOI8-R *)
-  |  `Enc_jis0201    (* JIS-0201 *)
-    (* Microsoft: *)
-  |  `Enc_windows1250  (* WINDOWS-1250 *)
-  |  `Enc_windows1251  (* WINDOWS-1251 *)
-  |  `Enc_windows1252  (* WINDOWS-1252 *)
-  |  `Enc_windows1253  (* WINDOWS-1253 *)
-  |  `Enc_windows1254  (* WINDOWS-1254 *)
-  |  `Enc_windows1255  (* WINDOWS-1255 *)
-  |  `Enc_windows1256  (* WINDOWS-1256 *)
-  |  `Enc_windows1257  (* WINDOWS-1257 *)
-  |  `Enc_windows1258  (* WINDOWS-1258 *)
-    (* IBM, ASCII-based: *)
-  |  `Enc_cp437
-  |  `Enc_cp737
-  |  `Enc_cp775
-  |  `Enc_cp850
-  |  `Enc_cp852
-  |  `Enc_cp855
-  |  `Enc_cp856
-  |  `Enc_cp857
-  |  `Enc_cp860
-  |  `Enc_cp861
-  |  `Enc_cp862
-  |  `Enc_cp863
-  |  `Enc_cp864
-  |  `Enc_cp865
-  |  `Enc_cp866
-  |  `Enc_cp869
-  |  `Enc_cp874
-  |  `Enc_cp1006
-   (* IBM, EBCDIC-based: *)
-  |  `Enc_cp037
-  |  `Enc_cp424
-  |  `Enc_cp500
-  |  `Enc_cp875
-  |  `Enc_cp1026
-   (* Adobe: *)
-  |  `Enc_adobe_standard_encoding
-  |  `Enc_adobe_symbol_encoding
-  |  `Enc_adobe_zapf_dingbats_encoding
-   (* Apple: *)
-  |  `Enc_macroman
-
-  ]
-
-
-val encoding_of_string : string -> encoding;;
-    (* Returns the encoding of the name of the encoding. Fails if the 
-     * encoding is unknown.
-     * E.g. encoding_of_string "iso-8859-1" = `Enc_iso88591
-     *)
-
-val string_of_encoding : encoding -> string;;
-    (* Returns the name of the encoding. *)
-
-
-val makechar : encoding -> int -> string
-  (* makechar enc i:
-   * Creates the string representing the code point i in encoding enc.
-   * Raises Not_found if the character is legal but cannot be represented 
-   * in enc.
-   * 
-   * Possible encodings: everything but `Enc_utf16.
-   *)
-
-val recode : in_enc:encoding -> 
-             in_buf:string -> 
-            in_pos:int ->
-            in_len:int -> 
-            out_enc:encoding -> 
-            out_buf:string -> 
-            out_pos:int ->
-            out_len:int ->
-            max_chars:int ->
-             subst:(int -> string) -> (int * int * encoding)
-  (* 
-   * let (in_n, out_n, in_enc') = 
-   *     recode in_enc in_buf in_len out_enc out_buf out_pos out_len max_chars 
-   *            subst:
-   * Converts the character sequence contained in the at most in_len bytes
-   * of in_buf starting at position in_pos, and writes the result 
-   * into at most out_len bytes of out_buf starting at out_pos.
-   * At most max_chars are written into out_buf.
-   * The characters in in_buf are assumed to be encoded as in_enc, and the 
-   * characters in out_buf will be encoded as out_enc.
-   * If there is a code point which cannot be represented in out_enc,
-   * the function subst is called with the code point as argument, and the
-   * resulting string (which must already be encoded as out_enc) is
-   * inserted instead. 
-   * Note: It is possible that subst is called several times for the same
-   * character.
-   * Return value: out_n is the actual number of bytes written into out_buf.
-   * in_n is the actual number of bytes that have been converted from
-   * in_buf; in_n may be smaller than in_len because of incomplete
-   * multi-byte characters, or because the output buffer has less space
-   * for characters than the input buffer, or because of a change
-   * of the encoding variant.
-   * If there is at least one complete character in in_buf, and at least
-   * space for one complete character in out_buf, and max_chars >= 1, it is 
-   * guaranteed that in_n > 0 or out_n > 0.
-   * in_enc' is normally identical to in_enc. However, there are cases
-   * in which the encoding can be refined when looking at the byte
-   * sequence; for example whether a little endian or big endian variant
-   * of the encoding is used. in_enc' is the variant of in_enc that was
-   * used for the last character that has been converted.
-   *
-   * NOTES:
-   *
-   * Supported range of code points: 0 to 0xd7ff, 0xe000 to 0xfffd,
-   * 0x10000 to 0x10ffff.
-   *
-   * Enc_utf8: Malformed UTF-8 byte sequences are always rejected. This
-   * is also true for the sequence 0xc0 0x80 which is used by some software
-   * (Java) as paraphrase for the code point 0.
-   *
-   * Enc_utf16: When reading from a string encoded as Enc_utf16, a byte
-   * order mark is expected at the beginning. The detected variant 
-   * (Enc_utf16_le or Enc_utf16_be) is returned. The byte order mark is
-   * not included into the output string. - It is not possible to
-   * write as Enc_utf16.
-   *
-   * Enc_utf16_le, Enc_utf16_be: When reading from such a string, the
-   * code point 0xfeff is returned as it is; it is a "zero-width 
-   * non-breaking space". The code point 0xfffe is rejected.
-   *
-   * Surrogate pairs: These are recognized (or written) only for a
-   * UTF-16 encoding; and rejected for any other encoding.
-   *
-   * Rejected byte sequences cause the exception Bad_character_stream.
-   *)
-
-val recode_string : in_enc:encoding -> 
-                    out_enc:encoding ->
-                   ?subst:(int -> string) ->
-                   string ->
-                    string 
-  (* Recodes a complete string from in_enc to out_enc, and returns it.
-   * The function subst is invoked for code points of in_enc that cannot
-   * be represented in out_enc, and the result of the function invocation
-   * is substituted.
-   * If subst is missing, Not_found is raised in this case.
-   *)
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:28  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/08/13 00:02:57  gerd
- *     Initial revision.
- *
- *
- * ======================================================================
- * OLD LOGS FROM THE PXP PACKAGE (FILE NAME pxp_encoding.mli):
- *
- * Revision 1.4  2000/07/04 22:05:58  gerd
- *     Enhanced version of 'recode'. Labeled arguments.
- * New function 'recode_string'.
- *
- * Revision 1.3  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * Revision 1.2  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.1  2000/05/20 20:30:50  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/netencoding.ml b/helm/DEVEL/pxp/netstring/netencoding.ml
deleted file mode 100644 (file)
index e87c4c3..0000000
--- a/helm/DEVEL/pxp/netstring/netencoding.ml
+++ /dev/null
@@ -1,903 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-module Str = Netstring_str;;
-
-module Base64 = struct
-  let b64_pattern plus slash =
-    [| 'A'; 'B'; 'C'; 'D'; 'E'; 'F'; 'G'; 'H'; 'I'; 'J'; 'K'; 'L'; 'M';
-       'N'; 'O'; 'P'; 'Q'; 'R'; 'S'; 'T'; 'U'; 'V'; 'W'; 'X'; 'Y'; 'Z';
-       'a'; 'b'; 'c'; 'd'; 'e'; 'f'; 'g'; 'h'; 'i'; 'j'; 'k'; 'l'; 'm';
-       'n'; 'o'; 'p'; 'q'; 'r'; 's'; 't'; 'u'; 'v'; 'w'; 'x'; 'y'; 'z';
-       '0'; '1'; '2'; '3'; '4'; '5'; '6'; '7'; '8'; '9'; plus; slash |];;
-
-
-  let rfc_pattern = b64_pattern '+' '/';;
-  let url_pattern = b64_pattern '-' '/';;
-
-  let encode_with_options b64 equal s pos len linelen crlf =
-  (* encode using "base64".
-   * 'b64': The encoding table, created by b64_pattern.
-   * 'equal': The character that should be used instead of '=' in the original
-   *          encoding scheme. Pass '=' to get the original encoding scheme.
-   * s, pos, len, linelen: See the interface description of encode_substring.
-   *)
-    assert (Array.length b64 = 64);
-    if len < 0 or pos < 0 or pos > String.length s or linelen < 0 then
-      invalid_arg "Netencoding.Base64.encode_with_options";
-    if pos + len > String.length s then
-      invalid_arg "Netencoding.Base64.encode_with_options";
-
-    let linelen =
-      (linelen/4) * 4 in
-
-    let l_t = if len = 0 then 0 else ((len - 1) / 3 + 1) * 4 in
-    (* l_t: length of the result without additional line endings *)
-
-    let l_t' = 
-      if linelen < 4 then
-       l_t
-      else
-       if l_t = 0 then 0 else 
-         let n_lines = ((l_t - 1) / linelen) + 1 in
-         l_t + n_lines * (if crlf then 2 else 1)
-    in
-    (* l_t': length of the result with CRLF or LF characters *)
-    
-    let t = String.make l_t' equal in
-    let j = ref 0 in
-    let q = ref 0 in
-    for k = 0 to len / 3 - 1 do
-      let p = pos + 3*k in
-      (* p >= pos >= 0: this is evident
-       * p+2 < pos+len <= String.length s:
-       *   Because k <= len/3-1
-       *         3*k <= 3*(len/3-1) = len - 3
-       *   pos+3*k+2 <= pos + len - 3 + 2 = pos + len - 1 < pos + len
-       * So it is proved that the following unsafe string accesses always
-       * work.
-       *)
-      let bits = (Char.code (String.unsafe_get s (p))   lsl 16) lor
-                (Char.code (String.unsafe_get s (p+1)) lsl  8) lor
-                (Char.code (String.unsafe_get s (p+2))) in
-      (* Obviously, 'bits' is a 24 bit entity (i.e. bits < 2**24) *)
-      assert(!j + 3 < l_t');
-      String.unsafe_set t !j     (Array.unsafe_get b64 ( bits lsr 18));
-      String.unsafe_set t (!j+1) (Array.unsafe_get b64 ((bits lsr 12) land 63));
-      String.unsafe_set t (!j+2) (Array.unsafe_get b64 ((bits lsr  6) land 63));
-      String.unsafe_set t (!j+3) (Array.unsafe_get b64 ( bits         land 63));
-      j := !j + 4;
-      if linelen > 3 then begin
-       q := !q + 4;
-       if !q + 4 > linelen then begin
-         (* The next 4 characters won't fit on the current line. So insert
-          * a line ending.
-          *)
-         if crlf then begin
-           t.[ !j ] <- '\013';
-           t.[ !j+1 ] <- '\010';
-           j := !j + 2;
-         end
-         else begin 
-           t.[ !j ] <- '\010';
-           incr j
-         end;
-         q := 0;
-       end;
-      end;
-    done;
-    (* padding if needed: *)
-    let m = len mod 3 in
-    begin
-      match m with
-         0 -> ()
-       | 1 ->
-            let bits = Char.code (s.[pos + len - 1]) in
-           t.[ !j     ] <- b64.( bits lsr 2);
-           t.[ !j + 1 ] <- b64.( (bits land 0x03) lsl 4);
-           j := !j + 4;
-           q := !q + 4;
-       | 2 ->
-           let bits = (Char.code (s.[pos + len - 2]) lsl 8) lor
-                       (Char.code (s.[pos + len - 1])) in
-           t.[ !j     ] <- b64.( bits lsr 10);
-           t.[ !j + 1 ] <- b64.((bits lsr  4) land 0x3f);
-           t.[ !j + 2 ] <- b64.((bits lsl  2) land 0x3f);
-           j := !j + 4;
-           q := !q + 4;
-       | _ -> assert false
-    end;
-
-    (* If required, add another line end: *)
-
-    if linelen > 3 & !q > 0 then begin
-      if crlf then begin
-       t.[ !j ] <- '\013';
-       t.[ !j+1 ] <- '\010';
-       j := !j + 2;
-      end
-      else begin 
-       t.[ !j ] <- '\010';
-       incr j
-      end;     
-    end;
-
-    t ;;
-
-
-
-  let encode ?(pos=0) ?len ?(linelength=0) ?(crlf=false) s =
-    let l = match len with None -> String.length s - pos | Some x -> x in
-    encode_with_options rfc_pattern '=' s pos l linelength crlf;;
-
-
-  let encode_substring s ~pos ~len ~linelength ~crlf =
-    encode_with_options rfc_pattern '=' s pos len linelength crlf;;
-
-
-  let url_encode ?(pos=0) ?len ?(linelength=0) ?(crlf=false) s =
-    let l = match len with None -> String.length s - pos | Some x -> x in
-    encode_with_options url_pattern '.' s pos l linelength crlf;;
-    
-
-  let decode_substring t ~pos ~len ~url_variant:p_url ~accept_spaces:p_spaces =
-    if len < 0 or pos < 0 or pos > String.length t then
-      invalid_arg "Netencoding.Base64.decode_substring";
-    if pos + len > String.length t then
-      invalid_arg "Netencoding.Base64.decode_substring";
-
-    (* Compute the number of effective characters l_t in 't';
-     * pad_chars: number of '=' characters at the end of the string.
-     *)
-    let l_t, pad_chars =
-      if p_spaces then begin
-       (* Count all non-whitespace characters: *)
-       let c = ref 0 in
-       let p = ref 0 in
-       for i = pos to pos + len - 1 do
-         match String.unsafe_get t i with
-             (' '|'\t'|'\r'|'\n') -> ()
-           | ('='|'.') as ch ->
-               if ch = '.' & not p_url then
-                 invalid_arg "Netencoding.Base64.decode_substring";
-               incr c;
-               incr p;
-               if !p > 2 then
-                 invalid_arg "Netencoding.Base64.decode_substring";
-               for j = i+1 to pos + len - 1 do
-                 match String.unsafe_get t j with
-                     (' '|'\t'|'\r'|'\n'|'.'|'=') -> ()
-                   | _ ->
-                       (* Only another '=' or spaces allowed *)
-                       invalid_arg "Netencoding.Base64.decode_substring";
-               done
-           | _ -> incr c
-       done;
-       if !c mod 4 <> 0 then
-         invalid_arg "Netencoding.Base64.decode_substring";
-       !c, !p
-      end
-      else
-       len,
-       ( if len mod 4 <> 0 then
-           invalid_arg "Netencoding.Base64.decode_substring";
-         if len > 0 then (
-           if String.sub t (len - 2) 2 = "==" or 
-              (p_url & String.sub t (len - 2) 2 = "..") then 2
-           else 
-             if String.sub t (len - 1) 1 = "=" or 
-                (p_url & String.sub t (len - 1) 1 = ".") then 1
-             else
-               0
-         )
-         else 0 
-       )
-    in
-
-    let l_s = (l_t / 4) * 3 - pad_chars in       (* sic! *)
-    let s = String.create l_s in
-
-    let decode_char c =
-      match c with
-         'A' .. 'Z'  -> Char.code(c) - 65     (* 65 = Char.code 'A' *)
-       | 'a' .. 'z'  -> Char.code(c) - 71     (* 71 = Char.code 'a' - 26 *)
-       | '0' .. '9'  -> Char.code(c) + 4      (* -4 = Char.code '0' - 52 *)
-       | '+'         -> 62
-       | '-'         -> if not p_url then 
-                          invalid_arg "Netencoding.Base64.decode_substring";
-                        62
-       | '/'         -> 63
-       | _           -> invalid_arg "Netencoding.Base64.decode_substring";
-    in
-
-    (* Decode all but the last quartet: *)
-
-    let cursor = ref pos in
-    let rec next_char() = 
-      match t.[ !cursor ] with
-         (' '|'\t'|'\r'|'\n') -> 
-           if p_spaces then (incr cursor; next_char())
-           else invalid_arg "Netencoding.Base64.decode_substring"
-       | c ->
-           incr cursor; c
-    in
-
-    if p_spaces then begin
-      for k = 0 to l_t / 4 - 2 do
-       let q = 3*k in
-       let c0 = next_char() in
-       let c1 = next_char() in
-       let c2 = next_char() in
-       let c3 = next_char() in
-       let n0 = decode_char c0 in
-       let n1 = decode_char c1 in
-       let n2 = decode_char c2 in
-       let n3 = decode_char c3 in
-       let x0 = (n0 lsl 2) lor (n1 lsr 4) in
-       let x1 = ((n1 lsl 4) land 0xf0) lor (n2 lsr 2) in
-       let x2 = ((n2 lsl 6) land 0xc0) lor n3 in
-       String.unsafe_set s q     (Char.chr x0);
-       String.unsafe_set s (q+1) (Char.chr x1);
-       String.unsafe_set s (q+2) (Char.chr x2);
-      done;
-    end
-    else begin
-      (* Much faster: *)
-      for k = 0 to l_t / 4 - 2 do
-       let p = pos + 4*k in
-       let q = 3*k in
-       let c0 = String.unsafe_get t p in
-       let c1 = String.unsafe_get t (p + 1) in
-       let c2 = String.unsafe_get t (p + 2) in
-       let c3 = String.unsafe_get t (p + 3) in
-       let n0 = decode_char c0 in
-       let n1 = decode_char c1 in
-       let n2 = decode_char c2 in
-       let n3 = decode_char c3 in
-       let x0 = (n0 lsl 2) lor (n1 lsr 4) in
-       let x1 = ((n1 lsl 4) land 0xf0) lor (n2 lsr 2) in
-       let x2 = ((n2 lsl 6) land 0xc0) lor n3 in
-       String.unsafe_set s q     (Char.chr x0);
-       String.unsafe_set s (q+1) (Char.chr x1);
-       String.unsafe_set s (q+2) (Char.chr x2);
-      done;
-      cursor := pos + l_t - 4;
-    end;
-
-    (* Decode the last quartet: *)
-
-    if l_t > 0 then begin
-      let q = 3*(l_t / 4 - 1) in
-      let c0 = next_char() in
-      let c1 = next_char() in
-      let c2 = next_char() in
-      let c3 = next_char() in
-
-      if (c2 = '=' & c3 = '=') or (p_url & c2 = '.' & c3 = '.') then begin
-       let n0 = decode_char c0 in
-       let n1 = decode_char c1 in
-       let x0 = (n0 lsl 2) lor (n1 lsr 4) in
-       s.[ q ]   <- Char.chr x0;
-      end
-      else
-       if (c3 = '=') or (p_url & c3 = '.') then begin
-         let n0 = decode_char c0 in
-         let n1 = decode_char c1 in
-         let n2 = decode_char c2 in
-         let x0 = (n0 lsl 2) lor (n1 lsr 4) in
-         let x1 = ((n1 lsl 4) land 0xf0) lor (n2 lsr 2) in
-         s.[ q ]   <- Char.chr x0;
-         s.[ q+1 ] <- Char.chr x1;
-       end
-       else begin
-         let n0 = decode_char c0 in
-         let n1 = decode_char c1 in
-         let n2 = decode_char c2 in
-         let n3 = decode_char c3 in
-         let x0 = (n0 lsl 2) lor (n1 lsr 4) in
-         let x1 = ((n1 lsl 4) land 0xf0) lor (n2 lsr 2) in
-         let x2 = ((n2 lsl 6) land 0xc0) lor n3 in
-         s.[ q ]   <- Char.chr x0;
-         s.[ q+1 ] <- Char.chr x1;
-         s.[ q+2 ] <- Char.chr x2;
-       end
-
-    end;
-
-    s ;;
-
-
-
-  let decode ?(pos=0) ?len ?(url_variant=true) ?(accept_spaces=false) s =
-    let l = match len with None -> String.length s - pos | Some x -> x in
-    decode_substring s pos l url_variant accept_spaces;;
-
-  let decode_ignore_spaces s =
-    decode_substring s 0 (String.length s) true true;;
-
-  
-end
-
-
-
-module QuotedPrintable = struct
-
-  let encode_substring s ~pos ~len =
-    
-    if len < 0 or pos < 0 or pos > String.length s then
-      invalid_arg "Netencoding.QuotedPrintable.encode_substring";
-    if pos + len > String.length s then
-      invalid_arg "Netencoding.QuotedPrintable.encode_substring";
-
-    let rec count n i =
-      if i < len then
-       match String.unsafe_get s (pos+i) with
-           ('\r'|'\n') -> 
-             count (n+1) (i+1)
-         | ('\000'..'\031'|'\127'..'\255'|
-            '!'|'"'|'#'|'$'|'@'|'['|']'|'^'|'\''|'{'|'|'|'}'|'~'|'=') ->
-             count (n+3) (i+1)
-         | ' ' ->
-             (* Protect spaces only if they occur at the end of a line *)
-             if i+1 < len then
-               match s.[pos+i+1] with
-                   ('\r'|'\n') -> 
-                     count (n+3) (i+1)
-                 | _ ->
-                     count (n+1) (i+1)
-             else
-               count (n+3) (i+1)
-         | _ ->
-             count (n+1) (i+1)
-      else
-       n
-    in
-
-    let l = count 0 0 in
-    let t = String.create l in
-    
-    let hexdigit =
-      [| '0'; '1'; '2'; '3'; '4'; '5'; '6'; '7';
-        '8'; '9'; 'A'; 'B'; 'C'; 'D'; 'E'; 'F'; |] in
-
-    let k = ref 0 in
-
-    let add_quoted c =
-      t.[ !k ]   <- '=';
-      t.[ !k+1 ] <- hexdigit.( Char.code c lsr 4 );
-      t.[ !k+2 ] <- hexdigit.( Char.code c land 15 )
-    in
-
-    for i = 0 to len - 1 do
-      match String.unsafe_get s i with
-         ('\r'|'\n') as c -> 
-           String.unsafe_set t !k c;
-           incr k
-       | ('\000'..'\031'|'\127'..'\255'|
-          '!'|'"'|'#'|'$'|'@'|'['|']'|'^'|'\''|'{'|'|'|'}'|'~'|'=') as c ->
-           add_quoted c;
-           k := !k + 3
-       | ' ' ->
-           (* Protect spaces only if they occur at the end of a line *)
-           if i+1 < len then
-             match s.[pos+i+1] with
-                 ('\r'|'\n') -> 
-                   add_quoted ' ';
-                   k := !k + 3;
-               | _ ->
-                   String.unsafe_set t !k ' ';
-                   incr k
-           else begin
-             add_quoted ' ';
-             k := !k + 3;
-           end
-       | c ->
-           String.unsafe_set t !k c;
-           incr k
-    done;
-
-    t ;;
-
-
-  let encode ?(pos=0) ?len s =
-    let l = match len with None -> String.length s - pos | Some x -> x in 
-    encode_substring s pos l;;
-
-
-
-  let decode_substring s ~pos ~len =
-    
-    if len < 0 or pos < 0 or pos > String.length s then
-      invalid_arg "Netencoding.QuotedPrintable.decode_substring";
-    if pos + len > String.length s then
-      invalid_arg "Netencoding.QuotedPrintable.decode_substring";
-
-    let decode_hex c =
-      match c with
-         '0'..'9' -> Char.code c - 48
-       | 'A'..'F' -> Char.code c - 55
-       | 'a'..'f' -> Char.code c - 87
-       | _ ->
-          invalid_arg "Netencoding.QuotedPrintable.decode_substring";
-    in 
-
-    let rec count n i =
-      if i < len then
-       match String.unsafe_get s (pos+i) with
-           '=' ->
-             if i+1 = len then
-               (* A '=' at EOF is ignored *)
-               count n (i+1)
-             else
-               if i+1 < len then
-                 match s.[pos+i+1] with
-                     '\r' ->
-                       (* Official soft break *)
-                       if i+2 < len & s.[pos+i+2] = '\n' then
-                         count n (i+3)
-                       else
-                         count n (i+2)
-                   | '\n' ->
-                       (* Inofficial soft break *)
-                       count n (i+2)
-                   | _ ->
-                       if i+2 >= len then
-                         invalid_arg 
-                           "Netencoding.QuotedPrintable.decode_substring";
-                       let _ = decode_hex s.[pos+i+1] in
-                       let _ = decode_hex s.[pos+i+2] in
-                       count (n+1) (i+3)
-               else
-                 invalid_arg "Netencoding.QuotedPrintable.decode_substring"
-         | _ ->
-             count (n+1) (i+1)
-      else
-       n
-    in
-
-    let l = count 0 0 in
-    let t = String.create l in
-    let k = ref pos in
-    let e = pos + len in
-    let i = ref 0 in
-
-    while !i < l do
-      match String.unsafe_get s !k with
-         '=' ->
-           if !k+1 = e then
-             (* A '=' at EOF is ignored *)
-             ()
-           else
-             if !k+1 < e then
-               match s.[!k+1] with
-                   '\r' ->
-                     (* Official soft break *)
-                     if !k+2 < e & s.[!k+2] = '\n' then
-                       k := !k + 3
-                     else
-                       k := !k + 2
-                 | '\n' ->
-                     (* Inofficial soft break *)
-                     k := !k + 2
-                 | _ ->
-                     if !k+2 >= e then
-                       invalid_arg 
-                         "Netencoding.QuotedPrintable.decode_substring";
-                     let x1 = decode_hex s.[!k+1] in
-                     let x2 = decode_hex s.[!k+2] in
-                     t.[ !i ] <- Char.chr ((x1 lsl 4) lor x2);
-                     k := !k + 3;
-                     incr i
-             else
-               invalid_arg "Netencoding.QuotedPrintable.decode_substring"
-       | c ->
-           String.unsafe_set t !i c;
-           incr k;
-           incr i
-    done;
-
-    t ;;
-
-
-  let decode ?(pos=0) ?len s =
-    let l = match len with None -> String.length s - pos | Some x -> x in 
-    decode_substring s pos l;;
-
-end
-
-             
-module Q = struct
-
-  let encode_substring s ~pos ~len =
-    
-    if len < 0 or pos < 0 or pos > String.length s then
-      invalid_arg "Netencoding.Q.encode_substring";
-    if pos + len > String.length s then
-      invalid_arg "Netencoding.Q.encode_substring";
-
-    let rec count n i =
-      if i < len then
-       match String.unsafe_get s (pos+i) with
-         | ('A'..'Z'|'a'..'z'|'0'..'9') ->
-             count (n+1) (i+1)
-         | _ ->
-             count (n+3) (i+1)
-      else
-       n
-    in
-
-    let l = count 0 0 in
-    let t = String.create l in
-    
-    let hexdigit =
-      [| '0'; '1'; '2'; '3'; '4'; '5'; '6'; '7';
-        '8'; '9'; 'A'; 'B'; 'C'; 'D'; 'E'; 'F'; |] in
-
-    let k = ref 0 in
-
-    let add_quoted c =
-      t.[ !k ]   <- '=';
-      t.[ !k+1 ] <- hexdigit.( Char.code c lsr 4 );
-      t.[ !k+2 ] <- hexdigit.( Char.code c land 15 )
-    in
-
-    for i = 0 to len - 1 do
-      match String.unsafe_get s i with
-       | ('A'..'Z'|'a'..'z'|'0'..'9') as c ->
-           String.unsafe_set t !k c;
-           incr k
-       | c ->
-           add_quoted c;
-           k := !k + 3
-    done;
-
-    t ;;
-
-
-  let encode ?(pos=0) ?len s =
-    let l = match len with None -> String.length s - pos | Some x -> x in 
-    encode_substring s pos l;;
-
-
-
-  let decode_substring s ~pos ~len =
-    
-    if len < 0 or pos < 0 or pos > String.length s then
-      invalid_arg "Netencoding.Q.decode_substring";
-    if pos + len > String.length s then
-      invalid_arg "Netencoding.Q.decode_substring";
-
-    let decode_hex c =
-      match c with
-         '0'..'9' -> Char.code c - 48
-       | 'A'..'F' -> Char.code c - 55
-       | 'a'..'f' -> Char.code c - 87
-       | _ ->
-          invalid_arg "Netencoding.Q.decode_substring";
-    in 
-
-    let rec count n i =
-      if i < len then
-       match String.unsafe_get s (pos+i) with
-           '=' ->
-             if i+2 >= len then
-               invalid_arg "Netencoding.Q.decode_substring";
-             let _ = decode_hex s.[pos+i+1] in
-             let _ = decode_hex s.[pos+i+2] in
-             count (n+1) (i+3)
-         | _ ->  (* including '_' *)
-             count (n+1) (i+1)
-      else
-       n
-    in
-
-    let l = count 0 0 in
-    let t = String.create l in
-    let k = ref pos in
-    let e = pos + len in
-    let i = ref 0 in
-
-    while !i < l do
-      match String.unsafe_get s !k with
-         '=' ->
-           if !k+2 >= e then
-             invalid_arg "Netencoding.Q.decode_substring";
-           let x1 = decode_hex s.[!k+1] in
-           let x2 = decode_hex s.[!k+2] in
-           t.[ !i ] <- Char.chr ((x1 lsl 4) lor x2);
-           k := !k + 3;
-           incr i
-       | '_' ->
-           String.unsafe_set t !i ' ';
-           incr k;
-           incr i
-       | c ->
-           String.unsafe_set t !i c;
-           incr k;
-           incr i
-    done;
-
-    t ;;
-
-
-  let decode ?(pos=0) ?len s =
-    let l = match len with None -> String.length s - pos | Some x -> x in 
-    decode_substring s pos l ;;
-
-end
-
-
-module Url = struct
-  let hex_digits =
-    [| '0'; '1'; '2'; '3'; '4'; '5'; '6'; '7';
-       '8'; '9'; 'A'; 'B'; 'C'; 'D'; 'E'; 'F' |];;
-
-  let to_hex2 k =
-    (* Converts k to a 2-digit hex string *)
-    let s = String.create 2 in
-    s.[0] <- hex_digits.( (k lsr 4) land 15 );
-    s.[1] <- hex_digits.( k land 15 );
-    s ;;
-
-
-  let of_hex1 c =
-    match c with
-       ('0'..'9') -> Char.code c - Char.code '0'
-      | ('A'..'F') -> Char.code c - Char.code 'A' + 10
-      | ('a'..'f') -> Char.code c - Char.code 'a' + 10
-      | _ ->
-       raise Not_found ;;
-
-
-
-  let url_encoding_re =
-    Str.regexp "[^A-Za-z0-9$_.!*'(),-]";;
-
-  let url_decoding_re =
-    Str.regexp "\\+\\|%..\\|%.\\|%";;
-
-
-  let encode s =
-    Str.global_substitute
-      url_encoding_re
-      (fun r _ ->
-        match Str.matched_string r s with
-            " " -> "+"
-          | x ->
-              let k = Char.code(x.[0]) in
-              "%" ^ to_hex2 k
-      )
-      s ;;
-
-
-  let decode s =
-    let l = String.length s in
-    Str.global_substitute
-      url_decoding_re
-      (fun r _ ->
-        match Str.matched_string r s with
-          | "+" -> " "
-          | _ ->
-              let i = Str.match_beginning r in
-              (* Assertion: s.[i] = '%' *)
-              if i+2 >= l then failwith "Cgi.decode";
-              let c1 = s.[i+1] in
-              let c2 = s.[i+2] in
-              begin
-                try
-                  let k1 = of_hex1 c1 in
-                  let k2 = of_hex1 c2 in
-                  String.make 1 (Char.chr((k1 lsl 4) lor k2))
-                with
-                    Not_found ->
-                      failwith "Cgi.decode"
-              end
-      )
-      s ;;
-
-end
-
-
-module Html = struct
-
-  let eref_re = 
-    Str.regexp 
-      "&\\(#\\([0-9]+\\);\\|\\([a-zA-Z]+\\);\\)" ;;
-  let unsafe_re = Str.regexp "[<>&\"\000-\008\011-\012\014-\031\127-\255]" ;;
-  
-  let etable =
-    [ "lt", "<";
-      "gt", ">";
-      "amp", "&";
-      "quot", "\"";     
-         (* Note: &quot; is new in HTML-4.0, but it has been widely used
-         * much earlier.
-         *)
-      "nbsp", "\160";
-      "iexcl", "\161";
-      "cent", "\162";
-      "pound", "\163";
-      "curren", "\164";
-      "yen", "\165";
-      "brvbar", "\166";
-      "sect", "\167";
-      "uml", "\168";
-      "copy", "\169";
-      "ordf", "\170";
-      "laquo", "\171";
-      "not", "\172";
-      "shy", "\173";
-      "reg", "\174";
-      "macr", "\175";
-      "deg", "\176";
-      "plusmn", "\177";
-      "sup2", "\178";
-      "sup3", "\179";
-      "acute", "\180";
-      "micro", "\181";
-      "para", "\182";
-      "middot", "\183";
-      "cedil", "\184";
-      "sup1", "\185";
-      "ordm", "\186";
-      "raquo", "\187";
-      "frac14", "\188";
-      "frac12", "\189";
-      "frac34", "\190";
-      "iquest", "\191";
-      "Agrave", "\192";
-      "Aacute", "\193";
-      "Acirc", "\194";
-      "Atilde", "\195";
-      "Auml", "\196";
-      "Aring", "\197";
-      "AElig", "\198";
-      "Ccedil", "\199";
-      "Egrave", "\200";
-      "Eacute", "\201";
-      "Ecirc", "\202";
-      "Euml", "\203";
-      "Igrave", "\204";
-      "Iacute", "\205";
-      "Icirc", "\206";
-      "Iuml", "\207";
-      "ETH", "\208";
-      "Ntilde", "\209";
-      "Ograve", "\210";
-      "Oacute", "\211";
-      "Ocirc", "\212";
-      "Otilde", "\213";
-      "Ouml", "\214";
-      "times", "\215";
-      "Oslash", "\216";
-      "Ugrave", "\217";
-      "Uacute", "\218";
-      "Ucirc", "\219";
-      "Uuml", "\220";
-      "Yacute", "\221";
-      "THORN", "\222";
-      "szlig", "\223";
-      "agrave", "\224";
-      "aacute", "\225";
-      "acirc", "\226";
-      "atilde", "\227";
-      "auml", "\228";
-      "aring", "\229";
-      "aelig", "\230";
-      "ccedil", "\231";
-      "egrave", "\232";
-      "eacute", "\233";
-      "ecirc", "\234";
-      "euml", "\235";
-      "igrave", "\236";
-      "iacute", "\237";
-      "icirc", "\238";
-      "iuml", "\239";
-      "eth", "\240";
-      "ntilde", "\241";
-      "ograve", "\242";
-      "oacute", "\243";
-      "ocirc", "\244";
-      "otilde", "\245";
-      "ouml", "\246";
-      "divide", "\247";
-      "oslash", "\248";
-      "ugrave", "\249";
-      "uacute", "\250";
-      "ucirc", "\251";
-      "uuml", "\252";
-      "yacute", "\253";
-      "thorn", "\254";
-      "yuml", "\255";
-    ] ;;
-
-  let quick_etable =
-    let ht = Hashtbl.create 50 in
-    List.iter (fun (name,value) -> Hashtbl.add ht name value) etable;
-    (* Entities to be decoded, but that must not be encoded: *)
-    Hashtbl.add ht "apos" "'";        (* used in XML documents *)
-    ht ;;
-
-  let rev_etable =
-    let a = Array.create 256 "" in
-    List.iter (fun (name,value) -> 
-                a.(Char.code(value.[0])) <- "&" ^ name ^ ";") etable;
-    for i = 0 to 8 do
-      a.(i) <- "&#" ^ string_of_int i ^ ";"
-    done;
-    for i = 11 to 12 do
-      a.(i) <- "&#" ^ string_of_int i ^ ";"
-    done;
-    for i = 14 to 31 do
-      a.(i) <- "&#" ^ string_of_int i ^ ";"
-    done;
-    for i = 127 to 159 do
-      a.(i) <- "&#" ^ string_of_int i ^ ";"
-    done;
-    a ;;
-
-  let decode_to_latin1 s =
-    Str.global_substitute
-      eref_re
-      (fun r _ ->
-        let t = Str.matched_string r s in
-        try
-          let n = int_of_string(Str.matched_group r 2 s) in
-          if n < 256 then
-            String.make 1 (Char.chr n)
-          else
-            t
-        with
-            Not_found ->
-              try
-                let name = Str.matched_group r 3 s in
-                try
-                  Hashtbl.find quick_etable name
-                with
-                    Not_found ->
-                      t
-              with
-                  Not_found -> assert false
-      )
-      s ;;
-
-  let encode_from_latin1 s =
-    Str.global_substitute
-      unsafe_re
-      (fun r _ ->
-        let t = Str.matched_string r s in
-        let i = Char.code (t.[0]) in
-        rev_etable.(i)
-      )
-      s ;;
-end
-        
-            
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:27  lpadovan
- * Initial revision
- *
- * Revision 1.5  2000/06/25 22:34:43  gerd
- *     Added labels to arguments.
- *
- * Revision 1.4  2000/06/25 21:15:48  gerd
- *     Checked thread-safety.
- *
- * Revision 1.3  2000/03/03 17:03:16  gerd
- *     Q encoding: CR and LF are quoted.
- *
- * Revision 1.2  2000/03/03 01:08:29  gerd
- *     Added Netencoding.Html functions.
- *
- * Revision 1.1  2000/03/02 01:14:48  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/netencoding.mli b/helm/DEVEL/pxp/netstring/netencoding.mli
deleted file mode 100644 (file)
index 6466572..0000000
--- a/helm/DEVEL/pxp/netstring/netencoding.mli
+++ /dev/null
@@ -1,271 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(**********************************************************************)
-(* Several encodings important for the net                            *)
-(**********************************************************************)
-
-
-(**********************************************************************)
-(* Base 64 encoding                                                   *)
-(**********************************************************************)
-
-(* See RFC 2045 for a description of Base 64 encoding. *)
-
-(* THREAD-SAFETY: 
- * All Base64 functions are reentrant and thus thread-safe.
- *)
-
-module Base64 : sig
-
-  val encode : ?pos:int -> ?len:int -> ?linelength:int -> ?crlf:bool ->
-               string -> string
-      (* Compute the "base 64" encoding of the given string argument.
-       * Note that the result is a string that only contains the characters
-       * a-z, A-Z, 0-9, +, /, =, and optionally spaces, CR and LF characters.
-       *
-       * If pos and/or len are passed, only the substring starting at
-       * pos (default: 0) with length len (default: rest of the string)
-       * is encoded.
-       *
-       * The result is divided up into lines not longer than 'linelength' 
-       * (without counting the line separator); default: do not divide lines.
-       * If 'linelength' is smaller than 4, no line division is performed.
-       * If 'linelength' is not divisible by 4, the produced lines are a 
-       * bit shorter than 'linelength'.
-       *
-       * If 'crlf' (default: false) the lines are ended by CRLF; otherwise 
-       * they are only ended by LF.
-       * (You need the crlf option to produce correct MIME messages.)
-       * 
-       *)
-
-  val url_encode : ?pos:int -> ?len:int -> ?linelength:int -> ?crlf:bool ->
-                   string -> string
-      (* Same as 'encode' but use slightly different characters that can be
-       * part of URLs without additional encodings.
-       * The encoded string consists only of the characters a-z, A-Z, 0-9, 
-       * -, /, .
-       * 'url_encode' does NOT implement the Base 64 encoding as described
-       * in the standard!
-       *)
-
-  val encode_substring : string -> pos:int -> len:int -> linelength:int -> 
-                         crlf:bool -> string
-      (* *** DEPRECATED FUNCTION *** Use 'encode' instead! ***
-       *
-       * encode_substring s pos len linelen crlf:
-       * Encodes the substring at position 'pos' in 's' with length 'len'.
-       * The result is divided up into lines not longer than 'linelen' (without
-       * counting the line separator).
-       * If 'linelen' is smaller than 4, no line division is performed.
-       * If 'linelen' is not divisible by 4, the produced lines are a 
-       * bit shorter than 'linelen'.
-       * If 'crlf' the lines are ended by CRLF; otherwise they are only
-       * ended by LF.
-       * (You need the crlf option to produce correct MIME messages.)
-       *)
-
-  val decode : ?pos:int -> ?len:int -> ?url_variant:bool -> 
-               ?accept_spaces:bool -> string -> string
-      (* Decodes the given string argument. 
-       *
-       * If pos and/or len are passed, only the substring starting at
-       * pos (default: 0) with length len (default: rest of the string)
-       * is decoded.
-       * 
-       * If url_variant (default: true) is set, the functions also
-       * accepts the characters '-' and '.' as produced by 'url_encode'.
-       *
-       * If accept_spaces (default: false) is set, the function ignores
-       * white space contained in the string to decode (otherwise the
-       * function fails if it finds white space).
-       *)
-
-  val decode_ignore_spaces : string -> string
-      (* *** DEPRECATED FUNCTION *** Use 'decode' instead! ***
-       *
-       * Decodes the string, too, but it is allowed that the string contains
-       * whitespace characters.
-       * This function is slower than 'decode'.
-       *)
-
-  val decode_substring : string -> pos:int -> len:int -> url_variant:bool -> 
-                         accept_spaces:bool -> string
-      (* *** DEPRECATED FUNCTION *** Use 'decode' instead! ***
-       *
-       * decode_substring s pos len url spaces:
-       * Decodes the substring of 's' beginning at 'pos' with length 'len'.
-       * If 'url', strings created by 'url_encode' are accepted, too.
-       * If 'spaces', whitespace characters are allowed in the string.
-       *)
-end
-
-(**********************************************************************)
-(* Quoted printable encoding                                          *)
-(**********************************************************************)
-
-(* See RFC 2045.
- * This implementation assumes that the encoded string has a text MIME
- * type. Because of this, the characters CR and LF are never protected 
- * by hex tokens; they are copied literally to the output string.
- *)
-
-(* THREAD-SAFETY: 
- * All QuotedPrintable functions are reentrant and thus thread-safe.
- *)
-
-module QuotedPrintable :
-  sig
-    val encode : ?pos:int -> ?len:int -> string -> string
-       (* Encodes the string and returns it.
-        * Note line breaks: 
-        *   No additional soft line breaks are added. The characters CR
-        *   and LF are not represented as =0D resp. =0A. (But other control
-        *   characters ARE encoded.)
-        * Note unsafe characters:
-        *   As recommended by RFC 2045, the characters !\"#$@[]^`{|}~
-        *   are additionally represented as hex tokens.        -- "
-        *
-        * If pos and/or len are passed, only the substring starting at
-        * pos (default: 0) with length len (default: rest of the string)
-        * is encoded.
-        *)
-
-    val encode_substring : string -> pos:int -> len:int -> string
-       (* *** DEPRECATED FUNCTION *** Use 'encode' instead! ***
-        * encode_substring s pos len:
-        * Encodes the substring of 's' beginning at 'pos' with length 'len'.
-        *)
-
-    val decode : ?pos:int -> ?len:int -> string -> string
-       (* Decodes the string and returns it.
-        * Most format errors cause an Invalid_argument exception.
-        * Note that soft line breaks can be properly decoded although 
-        * 'encode' will never produce them.
-        *
-        * If pos and/or len are passed, only the substring starting at
-        * pos (default: 0) with length len (default: rest of the string)
-        * is decoded.
-        *)
-
-    val decode_substring : string -> pos:int -> len:int -> string
-        (* *** DEPRECATED FUNCTION *** Use 'decode' instead! ***
-        * decode_substring s pos len:
-        * Decodes the substring of 's' beginning at 'pos' with length 'len'.
-        *)
-
-  end
-
-(**********************************************************************)
-(* Q encoding                                                         *)
-(**********************************************************************)
-
-(* See RFC 2047. 
- * The functions behave similar to those of QuotedPrintable. 
- *)
-
-(* THREAD-SAFETY: 
- * All Q functions are reentrant and thus thread-safe.
- *)
-
-module Q :
-  sig
-    val encode : ?pos:int -> ?len:int -> string -> string
-       (* Note:
-        * All characters except alphanumeric characters are protected by
-        * hex tokens.
-        * In particular, spaces are represented as "=20", not as "_".
-        *)
-
-    val decode : ?pos:int -> ?len:int -> string -> string
-
-    val encode_substring : string -> pos:int -> len:int -> string
-        (* *** DEPRECATED FUNCTION *** Use 'encode' instead! *** *)
-
-    val decode_substring : string -> pos:int -> len:int -> string
-        (* *** DEPRECATED FUNCTION *** Use 'decode' instead! *** *)
-  end
-
-(**********************************************************************)
-(* B encoding                                                         *)
-(**********************************************************************)
-
-(* The B encoding of RFC 2047 is the same as Base64. *)
-
-
-(**********************************************************************)
-(* URL-encoding                                                       *)
-(**********************************************************************)
-
-(* Encoding/Decoding within URLs:
- *
- * The following two functions perform the '%'-substitution for
- * characters that may otherwise be interpreted as metacharacters.
- *
- * According to: RFC 1738, RFC 1630
- *)
-
-(* THREAD-SAFETY:
- * The Url functions are thread-safe.
- *)
-
-module Url : 
-  sig
-    val decode : string -> string
-    val encode : string -> string
-  end
-
-
-(**********************************************************************)
-(* HTMLization                                                        *)
-(**********************************************************************)
-
-(* Encodes characters that need protection by converting them to
- * entity references. E.g. "<" is converted to "&lt;".
- * As the entities may be named, there is a dependency on the character
- * set. Currently, there are only functions for the Latin 1 alphabet.
- *)
-
-(* THREAD-SAFETY:
- * The Html functions are thread-safe.
- *)
-
-module Html :
-  sig
-    val encode_from_latin1 : string -> string
-       (* Encodes the characters 0-8, 11-12, 14-31, '<', '>', '"', '&',
-        * 127-255. If the characters have a name, a named entity is
-        * preferred over a numeric entity.
-        *)
-    val decode_to_latin1   : string -> string
-       (* Decodes the string. Unknown named entities are left as they
-        * are (i.e. decode_to_latin1 "&nonsense;" = "&nonsense;").
-        * The same applies to numeric entities greater than 255.
-        *)
-  end
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:27  lpadovan
- * Initial revision
- *
- * Revision 1.4  2000/06/25 22:34:43  gerd
- *     Added labels to arguments.
- *
- * Revision 1.3  2000/06/25 21:15:48  gerd
- *     Checked thread-safety.
- *
- * Revision 1.2  2000/03/03 01:08:29  gerd
- *     Added Netencoding.Html functions.
- *
- * Revision 1.1  2000/03/02 01:14:48  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/nethtml.ml b/helm/DEVEL/pxp/netstring/nethtml.ml
deleted file mode 100644 (file)
index 7f9d983..0000000
--- a/helm/DEVEL/pxp/netstring/nethtml.ml
+++ /dev/null
@@ -1,276 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-open Nethtml_scanner;;
-
-type document =
-    Element of (string  *  (string*string) list  *  document list)
-  | Data of string
-;;
-
-
-exception End_of_scan;;
-
-
-let no_end_tag =  (* empty HTML elements *)
-  ref
-    [ "isindex";
-      "base";
-      "meta";
-      "link";
-      "hr";
-      "input";
-      "img";
-      "param";
-      "basefont";
-      "br";
-      "area";
-    ]
-;;
-
-
-let special_tag =   (* other lexical rules *)
-  ref
-    [ "script";
-      "style";
-    ]
-;;
-
-
-let rec parse_comment buf =
-  let t = scan_comment buf in
-  match t with
-      Mcomment ->
-       parse_comment buf
-    | Eof ->
-       raise End_of_scan
-    | _ ->
-       ()
-;;
-
-
-let rec parse_doctype buf =
-  let t = scan_doctype buf in
-  match t with
-      Mdoctype ->
-       parse_doctype buf
-    | Eof ->
-       raise End_of_scan
-    | _ ->
-       ()
-;;
-
-
-let parse_document buf =
-  let current_name = ref "" in
-  let current_atts = ref [] in
-  let current_subs = ref [] in
-  let stack = Stack.create() in
-
-  let parse_atts() =
-    let rec next_no_space() =
-      match scan_element buf with
-         Space _ -> next_no_space()
-       | t -> t
-    in
-
-    let rec parse_atts_lookahead next =
-      match next with
-         Relement -> []
-       | Name n ->
-           begin match next_no_space() with
-               Is ->
-                 begin match next_no_space() with
-                     Name v ->
-                       (String.lowercase n, String.uppercase v) ::
-                       parse_atts_lookahead (next_no_space())
-                   | Literal v ->
-                       (String.lowercase n,v) ::
-                       parse_atts_lookahead (next_no_space())
-                   | Eof ->
-                       raise End_of_scan
-                   | Relement ->
-                       (* Illegal *)
-                       []
-                   | _ ->
-                       (* Illegal *)
-                       parse_atts_lookahead (next_no_space())
-                 end
-             | Eof ->
-                 raise End_of_scan
-             | Relement ->
-                 (* <tag name> <==> <tag name="name"> *)
-                 [ String.lowercase n, String.lowercase n ]
-             | next' ->
-                 (* assume <tag name ... > <==> <tag name="name" ...> *)
-                 ( String.lowercase n, String.lowercase n ) ::
-                 parse_atts_lookahead next'
-           end
-       | Eof ->
-           raise End_of_scan
-       | _ ->
-           (* Illegal *)
-           parse_atts_lookahead (next_no_space())
-    in
-    parse_atts_lookahead (next_no_space())
-  in
-
-  let rec parse_special name =
-    (* Parse until </name> *)
-    match scan_special buf with
-       Lelementend n ->
-         if n = name then
-           ""
-         else
-           "</" ^ n ^ parse_special name
-      | Eof ->
-         raise End_of_scan
-      | Cdata s ->
-         s ^ parse_special name
-      | _ ->
-         (* Illegal *)
-         parse_special name
-  in
-
-  let rec skip_element() =
-    (* Skip until ">" *)
-    match scan_element buf with
-       Relement ->
-         ()
-      | Eof ->
-         raise End_of_scan
-      | _ ->
-         skip_element()
-  in
-
-  let rec parse_next() =
-    let t = scan_document buf in
-    match t with
-       Lcomment ->
-         parse_comment buf;
-         parse_next()
-      | Ldoctype ->
-         parse_doctype buf;
-         parse_next()
-      | Lelement name ->
-         let name = String.lowercase name in
-         if List.mem name !no_end_tag then begin
-           let atts = parse_atts() in
-           current_subs := (Element(name, atts, [])) :: !current_subs;
-           parse_next()
-         end
-         else if List.mem name !special_tag then begin
-           let atts = parse_atts() in
-           let data = parse_special name in
-           (* Read until ">" *)
-           skip_element();
-           current_subs := (Element(name, atts, [Data data])) :: !current_subs;
-           parse_next()
-         end
-         else begin
-           let atts = parse_atts() in
-           Stack.push (!current_name, !current_atts, !current_subs) stack;
-           current_name := name;
-           current_atts := atts;
-           current_subs := [];
-           parse_next()
-         end
-      | Cdata data ->
-         current_subs := (Data data) :: !current_subs;
-         parse_next()
-      | Lelementend name ->
-         let name = String.lowercase name in
-         (* Read until ">" *)
-         skip_element();
-         (* Search the element to close on the stack: *)
-         let found = ref (name = !current_name) in
-         Stack.iter
-           (fun (old_name, _, _) ->
-              if name = old_name then found := true)
-           stack;
-         (* If not found, the end tag is wrong. Simply ignore it. *)
-         if not !found then
-           parse_next()
-         else begin
-           (* Put the current element on to the stack: *)
-           Stack.push (!current_name, !current_atts, !current_subs) stack;
-           (* If found: Remove the elements from the stack, and append
-            * them to the previous element as sub elements
-            *)
-           let rec remove() =
-             let old_name, old_atts, old_subs = Stack.pop stack in
-               (* or raise Stack.Empty *)
-             if old_name = name then
-               old_name, old_atts, old_subs
-             else
-               let older_name, older_atts, older_subs = remove() in
-               older_name,
-               older_atts,
-               (Element (old_name, old_atts, List.rev old_subs) :: older_subs)
-           in
-           let old_name, old_atts, old_subs = remove() in
-           (* Remove one more element: the element containing the element
-            * currently being closed.
-            *)
-           let new_name, new_atts, new_subs = Stack.pop stack in
-           current_name := new_name;
-           current_atts := new_atts;
-           current_subs := (Element (old_name, old_atts, List.rev old_subs))
-                            :: new_subs;
-           (* Go on *)
-           parse_next()
-         end
-      | Eof ->
-         raise End_of_scan
-      | _ ->
-         parse_next()
-  in
-  try
-    parse_next();
-    List.rev !current_subs
-  with
-      End_of_scan ->
-       (* Close all remaining elements: *)
-       Stack.push (!current_name, !current_atts, !current_subs) stack;
-       let rec remove() =
-         let old_name, old_atts, old_subs = Stack.pop stack in
-               (* or raise Stack.Empty *)
-         try
-           let older_name, older_atts, older_subs = remove() in
-           older_name,
-           older_atts,
-           (Element (old_name, old_atts, List.rev old_subs) :: older_subs)
-         with
-             Stack.Empty ->
-               old_name, old_atts, old_subs
-       in
-       let name, atts, subs = remove() in
-       List.rev subs
-;;
-
-
-let parse_string s =
-  let buf = Lexing.from_string s in
-  parse_document buf
-;;
-
-
-let parse_file fd =
-  let buf = Lexing.from_channel fd in
-  parse_document buf
-;;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:28  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/03/03 01:07:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/nethtml.mli b/helm/DEVEL/pxp/netstring/nethtml.mli
deleted file mode 100644 (file)
index d7af381..0000000
--- a/helm/DEVEL/pxp/netstring/nethtml.mli
+++ /dev/null
@@ -1,72 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-(* The type 'document' represents parsed HTML documents. 
- * Element (name, args, subnodes): is an element node for an element of
- *   type 'name' (i.e. written <name ...>...</name>) with arguments 'args'
- *   and subnodes 'subnodes' (the material within the element). The arguments
- *   are simply name/value pairs. Entity references (something like %xy;)
- *   occuring in the values are NOT resolved.
- *   Arguments without values (e.g. <select name="x" multiple>: here,
- *   "multiple" is such an argument) are represented as (name,name), i.e. the
- *   name is returned as value.
- *   As argument names are case-insensitive, the names are all lowercase.
- * Data s: is a character data node. Again, entity references are contained
- *   as such and not as what they mean.
- *)
-
-type document =
-    Element of (string  *  (string*string) list  *  document list)
-  | Data of string
-;;
-
-
-val no_end_tag : string list ref;;
-  (* List of tags which are always empty. This variable is pre-configured,
-   * but you may want to change it.
-   * It is important to know which elements are always empty, because HTML
-   * allows it to omit the end tag for them. For example, 
-   * <a><b>x</a> is parsed as 
-   *   Element("a",[],[ Element("b",[],[]); Data "x" ])
-   * if we know that "a" is an empty element, but it is wrongly parsed as
-   *   Element("a",[],[ Element("b",[], [ Data "x"]) ])
-   * if "a" is actually empty but we do not know it.
-   * An example of such a tag is "br".
-   *)
-
-val special_tag : string list ref;;
-  (* List of tags with a special rule for recognizing the end.
-   * This variable is pre-configured, but you may want to change it.
-   * The special rule is that the metacharacters '<', '>' and so on lose
-   * their meaning within the element, and that only the corresponding 
-   * end tag stops this kind of scanning. An example is the element
-   * "javascript". Inner elements are not recognized, and the element
-   * can only be ended by </javascript>. (Other elements are also ended
-   * if an embracing element ends, e.g. "j" in <k><j></k>!)
-   *
-   * Note that comments are not recognized within special elements;
-   * comments are returned as character material.
-   *)
-
-val parse_string : string -> document list
-  (* Parses the HTML document from a string and returns it *)
-
-val parse_file : in_channel -> document list
-  (* Parses the HTML document from a file and returns it *)
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:28  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/03/03 01:07:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/nethtml_scanner.mll b/helm/DEVEL/pxp/netstring/nethtml_scanner.mll
deleted file mode 100644 (file)
index 03e6dea..0000000
--- a/helm/DEVEL/pxp/netstring/nethtml_scanner.mll
+++ /dev/null
@@ -1,128 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-{
-  type token =
-      Lcomment
-    | Rcomment
-    | Mcomment
-    | Ldoctype
-    | Rdoctype
-    | Mdoctype
-    | Lelement of string
-    | Lelementend of string
-    | Relement
-    | Cdata of string 
-    | Space of int
-    | Name of string
-    | Is
-    | Literal of string
-    | Other
-    | Eof
-}
-
-(* Simplified rules: Only Latin-1 is recognized as character set *)
-
-let letter = ['A'-'Z' 'a'-'z' '\192'-'\214' '\216'-'\246' '\248'-'\255']
-let extender = '\183'
-let digit = ['0'-'9']
-let hexdigit = ['0'-'9' 'A'-'F' 'a'-'f']
-let namechar = letter | digit | '.' | ':' | '-' | '_' | extender
-let name = ( letter | '_' | ':' ) namechar*
-let nmtoken = namechar+
-let ws = [ ' ' '\t' '\r' '\n' ]
-let string_literal1 = '"' [^ '"' '>' '<' '\n']* '"'
-let string_literal2 = "'" [^ '\'' '>' '<' '\n']* "'"
-
-
-(* This following rules reflect HTML as it is used, not the SGML
- * rules.
- *)
-
-rule scan_document = parse
-  | "<!--"
-      { Lcomment }
-  | "<!"
-      { Ldoctype }
-  | "<" name
-      { let s = Lexing.lexeme lexbuf in
-       Lelement (String.sub s 1 (String.length s - 1))
-      }
-  | "</" name
-      { let s = Lexing.lexeme lexbuf in
-       Lelementend (String.sub s 2 (String.length s - 2))
-      }
-  | "<"                (* misplaced "<" *)
-      { Cdata "<" }
-  | eof
-      { Eof }
-  | [^ '<' ]+
-      { Cdata (Lexing.lexeme lexbuf)}
-
-and scan_special = parse
-  | "</" name 
-      { let s = Lexing.lexeme lexbuf in
-       Lelementend (String.sub s 2 (String.length s - 2))
-      }
-  | "<"
-      { Cdata "<" }
-  | eof
-      { Eof }
-  | [^ '<' ]+
-      { Cdata (Lexing.lexeme lexbuf)}
-
-
-and scan_comment = parse
-  | "-->"
-      { Rcomment }
-  | "-"
-      { Mcomment }
-  | eof
-      { Eof }
-  | [^ '-']+
-      { Mcomment }
-
-and scan_doctype = parse
-  | ">"                   (* Occurence in strings, and [ ] brackets ignored *)
-      { Rdoctype }
-  | eof
-      { Eof }
-  | [^ '>' ] +
-      { Mdoctype }
-
-and scan_element = parse
-  | ">"
-      { Relement }
-  | ws+
-      { Space (String.length (Lexing.lexeme lexbuf)) }
-  | name
-      { Name (Lexing.lexeme lexbuf) }
-  | "="
-      { Is }
-  | string_literal1
-      { let s = Lexing.lexeme lexbuf in
-       Literal (String.sub s 1 (String.length s - 2)) 
-      }
-  | string_literal2
-      { let s = Lexing.lexeme lexbuf in
-       Literal (String.sub s 1 (String.length s - 2)) 
-      }
-  | eof
-      { Eof }
-  | _
-      { Other }
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:28  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/03/03 01:07:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/netmappings.ml b/helm/DEVEL/pxp/netstring/netmappings.ml
deleted file mode 100644 (file)
index 4821350..0000000
--- a/helm/DEVEL/pxp/netstring/netmappings.ml
+++ /dev/null
@@ -1,38 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-type from_uni_list =
-    U_nil
-  | U_single of (int*int)
-  | U_list of (int*int) list
-;;
-
-let to_unicode = Hashtbl.create 50;;
-
-let from_unicode = Hashtbl.create 50;;
-
-let f_lock = ref (fun () -> ());;
-let f_unlock = ref (fun () -> ());;
-
-let lock () = !f_lock();;
-let unlock () = !f_unlock();;
-
-let init_mt new_f_lock new_f_unlock =
-  f_lock := new_f_lock;
-  f_unlock := new_f_unlock
-;;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:28  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/08/28 23:17:54  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/netmappings.mli b/helm/DEVEL/pxp/netstring/netmappings.mli
deleted file mode 100644 (file)
index 1c52d07..0000000
--- a/helm/DEVEL/pxp/netstring/netmappings.mli
+++ /dev/null
@@ -1,115 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *)
-
-type from_uni_list =
-    U_nil
-  | U_single of (int*int)
-  | U_list of (int*int) list
-;;
-  (* A representation of (int*int) list that is optimized for the case that
-   * lists with 0 and 1 elements are the most frequent cases.
-   *)
-
-
-val to_unicode   : (Netconversion.encoding, 
-                   int array Lazy.t)           Hashtbl.t;;
-
-val from_unicode : (Netconversion.encoding, 
-                   from_uni_list array Lazy.t) Hashtbl.t;;
-  (* These hashtables are used internally by the parser to store
-   * the conversion tables from 8 bit encodings to Unicode and vice versa.
-   * It is normally not necessary to access these tables; the 
-   * Netconversion module does it already for you.
-   *
-   * Specification of the conversion tables:
-   *
-   * to_unicode: maps an 8 bit code to Unicode, i.e.
-   *    let m = Hashtbl.find `Enc_isoXXX to_unicode in
-   *    let unicode = m.(isocode) 
-   *    - This may be (-1) to indicate that the code point is not defined.
-   *
-   * from_unicode: maps Unicode to an 8 bit code, i.e.
-   *    let m = Hashtbl.find `Enc_isoXXX from_unicode in
-   *    let l = m.(unicode land 255)
-   *    Now search in l the pair (unicode, isocode), and return isocode.
-   *
-   * Note: It is guaranteed that both arrays have always 256 elements.
-   *)
-
-val lock : unit -> unit
-  (* In multi-threaded applications: obtains a lock which is required to
-   * Lazy.force the values found in to_unicode and from_unicode.
-   * In single-threaded applications: a NO-OP
-   *)
-
-val unlock : unit -> unit
-  (* In multi-threaded applications: releases the lock which is required to
-   * Lazy.force the values found in to_unicode and from_unicode.
-   * In single-threaded applications: a NO-OP
-   *)
-
-
-val init_mt : (unit -> unit) -> (unit -> unit) -> unit
-  (* Internally used; see netstring_mt.ml *)
-
-
-(* ---------------------------------------- *)
-
-(* The following comment was written when the conversion module belonged
- * to the PXP package (Polymorhic XML Parser).
- *)
-
-(* HOW TO ADD A NEW 8 BIT CODE:
- *
- * It is relatively simple to add a new 8 bit code to the system. This
- * means that the parser can read and write files with the new encoding;
- * this does not mean that the parser can represent the XML tree internally
- * by the new encoding.
- *
- * - Put a new unimap file into the "mappings" directory. The file format
- *   is simple; please look at the already existing files. 
- *   The name of the file determines the internal name of the code:
- *   If the file is called <name>.unimap, the code will be called
- *   `Enc_<name>.
- *
- * - Extend the type "encoding" in pxp_types.mli and pxp_types.ml
- *
- * - Extend the two functions encoding_of_string and string_of_encoding
- *   in pxp_types.ml
- *
- * - Recompile the parser
- *
- * Every encoding consumes at least 3kB of memory, but this may be much more 
- * if the code points are dispersed on the Unicode code space.
- *
- * Perhaps the addition of new codes will become even simpler in future
- * versions of PXP; but it is currently more important to support 
- * non-8-bit codes, too.
- * Every contribution of new codes to PXP is welcome!
- *)
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:28  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/08/29 00:47:24  gerd
- *     New type for the conversion Unicode to 8bit.
- *     Conversion tables are now lazy. Thus also mutexes are required.
- *
- * Revision 1.1  2000/08/13 00:02:57  gerd
- *     Initial revision.
- *
- *
- * ======================================================================
- * OLD LOGS FROM THE PXP PACKAGE (FILE NAME pxp_mappings.mli):
- * 
- * Revision 1.1  2000/07/27 00:40:02  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/netmappings_iso.ml b/helm/DEVEL/pxp/netstring/netmappings_iso.ml
deleted file mode 100644 (file)
index 9b86aae..0000000
--- a/helm/DEVEL/pxp/netstring/netmappings_iso.ml
+++ /dev/null
@@ -1,54 +0,0 @@
-(* WARNING! This is a generated file! *)
-let iso88591_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132\001\000\133\001\000\134\001\000\135\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140\001\000\141\001\000\142\001\000\143\001\000\144\001\000\145\001\000\146\001\000\147\001\000\148\001\000\149\001\000\150\001\000\151\001\000\152\001\000\153\001\000\154\001\000\155\001\000\156\001\000\157\001\000\158\001\000\159\001\000\160\001\000\161\001\000\162\001\000\163\001\000\164\001\000\165\001\000\166\001\000\167\001\000\168\001\000\169\001\000\170\001\000\171\001\000\172\001\000\173\001\000\174\001\000\175\001\000\176\001\000\177\001\000\178\001\000\179\001\000\180\001\000\181\001\000\182\001\000\183\001\000\184\001\000\185\001\000\186\001\000\187\001\000\188\001\000\189\001\000\190\001\000\191\001\000\192\001\000\193\001\000\194\001\000\195\001\000\196\001\000\197\001\000\198\001\000\199\001\000\200\001\000\201\001\000\202\001\000\203\001\000\204\001\000\205\001\000\206\001\000\207\001\000\208\001\000\209\001\000\210\001\000\211\001\000\212\001\000\213\001\000\214\001\000\215\001\000\216\001\000\217\001\000\218\001\000\219\001\000\220\001\000\221\001\000\222\001\000\223\001\000\224\001\000\225\001\000\226\001\000\227\001\000\228\001\000\229\001\000\230\001\000\231\001\000\232\001\000\233\001\000\234\001\000\235\001\000\236\001\000\237\001\000\238\001\000\239\001\000\240\001\000\241\001\000\242\001\000\243\001\000\244\001\000\245\001\000\246\001\000\247\001\000\248\001\000\249\001\000\250\001\000\251\001\000\252\001\000\253\001\000\254\001\000\255" 0 : int array);;
-let iso88591_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\133\000\000\000\000\000\000\006\001\000\000\006\001\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\144\160LL\144\160MM\144\160NN\144\160OO\144\160PP\144\160QQ\144\160RR\144\160SS\144\160TT\144\160UU\144\160VV\144\160WW\144\160XX\144\160YY\144\160ZZ\144\160[[\144\160\\\\\144\160]]\144\160^^\144\160__\144\160``\144\160aa\144\160bb\144\160cc\144\160dd\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\144\160\000R\000R\144\160\000S\000S\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\144\160\000`\000`\144\160\000a\000a\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127\144\160\001\000\128\001\000\128\144\160\001\000\129\001\000\129\144\160\001\000\130\001\000\130\144\160\001\000\131\001\000\131\144\160\001\000\132\001\000\132\144\160\001\000\133\001\000\133\144\160\001\000\134\001\000\134\144\160\001\000\135\001\000\135\144\160\001\000\136\001\000\136\144\160\001\000\137\001\000\137\144\160\001\000\138\001\000\138\144\160\001\000\139\001\000\139\144\160\001\000\140\001\000\140\144\160\001\000\141\001\000\141\144\160\001\000\142\001\000\142\144\160\001\000\143\001\000\143\144\160\001\000\144\001\000\144\144\160\001\000\145\001\000\145\144\160\001\000\146\001\000\146\144\160\001\000\147\001\000\147\144\160\001\000\148\001\000\148\144\160\001\000\149\001\000\149\144\160\001\000\150\001\000\150\144\160\001\000\151\001\000\151\144\160\001\000\152\001\000\152\144\160\001\000\153\001\000\153\144\160\001\000\154\001\000\154\144\160\001\000\155\001\000\155\144\160\001\000\156\001\000\156\144\160\001\000\157\001\000\157\144\160\001\000\158\001\000\158\144\160\001\000\159\001\000\159\144\160\001\000\160\001\000\160\144\160\001\000\161\001\000\161\144\160\001\000\162\001\000\162\144\160\001\000\163\001\000\163\144\160\001\000\164\001\000\164\144\160\001\000\165\001\000\165\144\160\001\000\166\001\000\166\144\160\001\000\167\001\000\167\144\160\001\000\168\001\000\168\144\160\001\000\169\001\000\169\144\160\001\000\170\001\000\170\144\160\001\000\171\001\000\171\144\160\001\000\172\001\000\172\144\160\001\000\173\001\000\173\144\160\001\000\174\001\000\174\144\160\001\000\175\001\000\175\144\160\001\000\176\001\000\176\144\160\001\000\177\001\000\177\144\160\001\000\178\001\000\178\144\160\001\000\179\001\000\179\144\160\001\000\180\001\000\180\144\160\001\000\181\001\000\181\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\183\144\160\001\000\184\001\000\184\144\160\001\000\185\001\000\185\144\160\001\000\186\001\000\186\144\160\001\000\187\001\000\187\144\160\001\000\188\001\000\188\144\160\001\000\189\001\000\189\144\160\001\000\190\001\000\190\144\160\001\000\191\001\000\191\144\160\001\000\192\001\000\192\144\160\001\000\193\001\000\193\144\160\001\000\194\001\000\194\144\160\001\000\195\001\000\195\144\160\001\000\196\001\000\196\144\160\001\000\197\001\000\197\144\160\001\000\198\001\000\198\144\160\001\000\199\001\000\199\144\160\001\000\200\001\000\200\144\160\001\000\201\001\000\201\144\160\001\000\202\001\000\202\144\160\001\000\203\001\000\203\144\160\001\000\204\001\000\204\144\160\001\000\205\001\000\205\144\160\001\000\206\001\000\206\144\160\001\000\207\001\000\207\144\160\001\000\208\001\000\208\144\160\001\000\209\001\000\209\144\160\001\000\210\001\000\210\144\160\001\000\211\001\000\211\144\160\001\000\212\001\000\212\144\160\001\000\213\001\000\213\144\160\001\000\214\001\000\214\144\160\001\000\215\001\000\215\144\160\001\000\216\001\000\216\144\160\001\000\217\001\000\217\144\160\001\000\218\001\000\218\144\160\001\000\219\001\000\219\144\160\001\000\220\001\000\220\144\160\001\000\221\001\000\221\144\160\001\000\222\001\000\222\144\160\001\000\223\001\000\223\144\160\001\000\224\001\000\224\144\160\001\000\225\001\000\225\144\160\001\000\226\001\000\226\144\160\001\000\227\001\000\227\144\160\001\000\228\001\000\228\144\160\001\000\229\001\000\229\144\160\001\000\230\001\000\230\144\160\001\000\231\001\000\231\144\160\001\000\232\001\000\232\144\160\001\000\233\001\000\233\144\160\001\000\234\001\000\234\144\160\001\000\235\001\000\235\144\160\001\000\236\001\000\236\144\160\001\000\237\001\000\237\144\160\001\000\238\001\000\238\144\160\001\000\239\001\000\239\144\160\001\000\240\001\000\240\144\160\001\000\241\001\000\241\144\160\001\000\242\001\000\242\144\160\001\000\243\001\000\243\144\160\001\000\244\001\000\244\144\160\001\000\245\001\000\245\144\160\001\000\246\001\000\246\144\160\001\000\247\001\000\247\144\160\001\000\248\001\000\248\144\160\001\000\249\001\000\249\144\160\001\000\250\001\000\250\144\160\001\000\251\001\000\251\144\160\001\000\252\001\000\252\144\160\001\000\253\001\000\253\144\160\001\000\254\001\000\254\144\160\001\000\255\001\000\255" 0 : Netmappings.from_uni_list array);;
- let iso885910_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132\001\000\133\001\000\134\001\000\135\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140\001\000\141\001\000\142\001\000\143\001\000\144\001\000\145\001\000\146\001\000\147\001\000\148\001\000\149\001\000\150\001\000\151\001\000\152\001\000\153\001\000\154\001\000\155\001\000\156\001\000\157\001\000\158\001\000\159\001\000\160\001\001\004\001\001\018\001\001\"\001\001*\001\001(\001\0016\001\000\167\001\001;\001\001\016\001\001`\001\001f\001\001}\001\000\173\001\001j\001\001J\001\000\176\001\001\005\001\001\019\001\001#\001\001+\001\001)\001\0017\001\000\183\001\001<\001\001\017\001\001a\001\001g\001\001~\001 \021\001\001k\001\001K\001\001\000\001\000\193\001\000\194\001\000\195\001\000\196\001\000\197\001\000\198\001\001.\001\001\012\001\000\201\001\001\024\001\000\203\001\001\022\001\000\205\001\000\206\001\000\207\001\000\208\001\001E\001\001L\001\000\211\001\000\212\001\000\213\001\000\214\001\001h\001\000\216\001\001r\001\000\218\001\000\219\001\000\220\001\000\221\001\000\222\001\000\223\001\001\001\001\000\225\001\000\226\001\000\227\001\000\228\001\000\229\001\000\230\001\001/\001\001\013\001\000\233\001\001\025\001\000\235\001\001\023\001\000\237\001\000\238\001\000\239\001\000\240\001\001F\001\001M\001\000\243\001\000\244\001\000\245\001\000\246\001\001i\001\000\248\001\001s\001\000\250\001\000\251\001\000\252\001\000\253\001\000\254\001\0018" 0 : int array);;
-let iso885910_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007\015\000\000\000\000\000\000\006\185\000\000\006\185\008\000\004\000\000\145\160\160@@\160\160\001\001\000\001\000\192@\145\160\160AA\160\160\001\001\001\001\000\224@\144\160BB\144\160CC\145\160\160DD\160\160\001\001\004\001\000\161@\145\160\160EE\160\160\001\001\005\001\000\177@\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001\001\012\001\000\200@\145\160\160MM\160\160\001\001\013\001\000\232@\144\160NN\144\160OO\145\160\160PP\160\160\001\001\016\001\000\169@\145\160\160QQ\160\160\001\001\017\001\000\185@\145\160\160RR\160\160\001\001\018\001\000\162@\145\160\160SS\160\160\001\001\019\001\000\178@\144\160TT\145\160\160UU\160\160\001 \021\001\000\189@\145\160\160VV\160\160\001\001\022\001\000\204@\145\160\160WW\160\160\001\001\023\001\000\236@\145\160\160XX\160\160\001\001\024\001\000\202@\145\160\160YY\160\160\001\001\025\001\000\234@\144\160ZZ\144\160[[\144\160\\\\\144\160]]\144\160^^\144\160__\144\160``\144\160aa\145\160\160bb\160\160\001\001\"\001\000\163@\145\160\160cc\160\160\001\001#\001\000\179@\144\160dd\144\160ee\144\160ff\144\160gg\145\160\160hh\160\160\001\001(\001\000\165@\145\160\160ii\160\160\001\001)\001\000\181@\145\160\160jj\160\160\001\001*\001\000\164@\145\160\160kk\160\160\001\001+\001\000\180@\144\160ll\144\160mm\145\160\160nn\160\160\001\001.\001\000\199@\145\160\160oo\160\160\001\001/\001\000\231@\144\160pp\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\145\160\160vv\160\160\001\0016\001\000\166@\145\160\160ww\160\160\001\0017\001\000\182@\145\160\160xx\160\160\001\0018\001\000\255@\144\160yy\144\160zz\145\160\160{{\160\160\001\001;\001\000\168@\145\160\160||\160\160\001\001<\001\000\184@\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\145\160\160\000E\000E\160\160\001\001E\001\000\209@\145\160\160\000F\000F\160\160\001\001F\001\000\241@\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\145\160\160\000J\000J\160\160\001\001J\001\000\175@\145\160\160\000K\000K\160\160\001\001K\001\000\191@\145\160\160\000L\000L\160\160\001\001L\001\000\210@\145\160\160\000M\000M\160\160\001\001M\001\000\242@\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\144\160\000R\000R\144\160\000S\000S\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\145\160\160\000`\000`\160\160\001\001`\001\000\170@\145\160\160\000a\000a\160\160\001\001a\001\000\186@\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\145\160\160\000f\000f\160\160\001\001f\001\000\171@\145\160\160\000g\000g\160\160\001\001g\001\000\187@\145\160\160\000h\000h\160\160\001\001h\001\000\215@\145\160\160\000i\000i\160\160\001\001i\001\000\247@\145\160\160\000j\000j\160\160\001\001j\001\000\174@\145\160\160\000k\000k\160\160\001\001k\001\000\190@\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\145\160\160\000r\000r\160\160\001\001r\001\000\217@\145\160\160\000s\000s\160\160\001\001s\001\000\249@\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\145\160\160\000}\000}\160\160\001\001}\001\000\172@\145\160\160\000~\000~\160\160\001\001~\001\000\188@\144\160\000\127\000\127\144\160\001\000\128\001\000\128\144\160\001\000\129\001\000\129\144\160\001\000\130\001\000\130\144\160\001\000\131\001\000\131\144\160\001\000\132\001\000\132\144\160\001\000\133\001\000\133\144\160\001\000\134\001\000\134\144\160\001\000\135\001\000\135\144\160\001\000\136\001\000\136\144\160\001\000\137\001\000\137\144\160\001\000\138\001\000\138\144\160\001\000\139\001\000\139\144\160\001\000\140\001\000\140\144\160\001\000\141\001\000\141\144\160\001\000\142\001\000\142\144\160\001\000\143\001\000\143\144\160\001\000\144\001\000\144\144\160\001\000\145\001\000\145\144\160\001\000\146\001\000\146\144\160\001\000\147\001\000\147\144\160\001\000\148\001\000\148\144\160\001\000\149\001\000\149\144\160\001\000\150\001\000\150\144\160\001\000\151\001\000\151\144\160\001\000\152\001\000\152\144\160\001\000\153\001\000\153\144\160\001\000\154\001\000\154\144\160\001\000\155\001\000\155\144\160\001\000\156\001\000\156\144\160\001\000\157\001\000\157\144\160\001\000\158\001\000\158\144\160\001\000\159\001\000\159\144\160\001\000\160\001\000\160@@@@@@\144\160\001\000\167\001\000\167@@@@@\144\160\001\000\173\001\000\173@@\144\160\001\000\176\001\000\176@@@@@@\144\160\001\000\183\001\000\183@@@@@@@@@\144\160\001\000\193\001\000\193\144\160\001\000\194\001\000\194\144\160\001\000\195\001\000\195\144\160\001\000\196\001\000\196\144\160\001\000\197\001\000\197\144\160\001\000\198\001\000\198@@\144\160\001\000\201\001\000\201@\144\160\001\000\203\001\000\203@\144\160\001\000\205\001\000\205\144\160\001\000\206\001\000\206\144\160\001\000\207\001\000\207\144\160\001\000\208\001\000\208@@\144\160\001\000\211\001\000\211\144\160\001\000\212\001\000\212\144\160\001\000\213\001\000\213\144\160\001\000\214\001\000\214@\144\160\001\000\216\001\000\216@\144\160\001\000\218\001\000\218\144\160\001\000\219\001\000\219\144\160\001\000\220\001\000\220\144\160\001\000\221\001\000\221\144\160\001\000\222\001\000\222\144\160\001\000\223\001\000\223@\144\160\001\000\225\001\000\225\144\160\001\000\226\001\000\226\144\160\001\000\227\001\000\227\144\160\001\000\228\001\000\228\144\160\001\000\229\001\000\229\144\160\001\000\230\001\000\230@@\144\160\001\000\233\001\000\233@\144\160\001\000\235\001\000\235@\144\160\001\000\237\001\000\237\144\160\001\000\238\001\000\238\144\160\001\000\239\001\000\239\144\160\001\000\240\001\000\240@@\144\160\001\000\243\001\000\243\144\160\001\000\244\001\000\244\144\160\001\000\245\001\000\245\144\160\001\000\246\001\000\246@\144\160\001\000\248\001\000\248@\144\160\001\000\250\001\000\250\144\160\001\000\251\001\000\251\144\160\001\000\252\001\000\252\144\160\001\000\253\001\000\253\144\160\001\000\254\001\000\254@" 0 : Netmappings.from_uni_list array);;
- let iso885913_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132\001\000\133\001\000\134\001\000\135\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140\001\000\141\001\000\142\001\000\143\001\000\144\001\000\145\001\000\146\001\000\147\001\000\148\001\000\149\001\000\150\001\000\151\001\000\152\001\000\153\001\000\154\001\000\155\001\000\156\001\000\157\001\000\158\001\000\159\001\000\160\001 \029\001\000\162\001\000\163\001\000\164\001 \030\001\000\166\001\000\167\001\000\216\001\000\169\001\001V\001\000\171\001\000\172\001\000\173\001\000\174\001\000\198\001\000\176\001\000\177\001\000\178\001\000\179\001 \028\001\000\181\001\000\182\001\000\183\001\000\248\001\000\185\001\001W\001\000\187\001\000\188\001\000\189\001\000\190\001\000\230\001\001\004\001\001.\001\001\000\001\001\006\001\000\196\001\000\197\001\001\024\001\001\018\001\001\012\001\000\201\001\001y\001\001\022\001\001\"\001\0016\001\001*\001\001;\001\001`\001\001C\001\001E\001\000\211\001\001L\001\000\213\001\000\214\001\000\215\001\001r\001\001A\001\001Z\001\001j\001\000\220\001\001{\001\001}\001\000\223\001\001\005\001\001/\001\001\001\001\001\007\001\000\228\001\000\229\001\001\025\001\001\019\001\001\013\001\000\233\001\001z\001\001\023\001\001#\001\0017\001\001+\001\001<\001\001a\001\001D\001\001F\001\000\243\001\001M\001\000\245\001\000\246\001\000\247\001\001s\001\001B\001\001[\001\001k\001\000\252\001\001|\001\001~\001 \025" 0 : int array);;
-let iso885913_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007\031\000\000\000\000\000\000\006\206\000\000\006\206\008\000\004\000\000\145\160\160@@\160\160\001\001\000\001\000\194@\145\160\160AA\160\160\001\001\001\001\000\226@\144\160BB\144\160CC\145\160\160DD\160\160\001\001\004\001\000\192@\145\160\160EE\160\160\001\001\005\001\000\224@\145\160\160FF\160\160\001\001\006\001\000\195@\145\160\160GG\160\160\001\001\007\001\000\227@\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001\001\012\001\000\200@\145\160\160MM\160\160\001\001\013\001\000\232@\144\160NN\144\160OO\144\160PP\144\160QQ\145\160\160RR\160\160\001\001\018\001\000\199@\145\160\160SS\160\160\001\001\019\001\000\231@\144\160TT\144\160UU\145\160\160VV\160\160\001\001\022\001\000\203@\145\160\160WW\160\160\001\001\023\001\000\235@\145\160\160XX\160\160\001\001\024\001\000\198@\145\160\160YY\160\160\001\001\025\001\000\230\160\160\001 \025\001\000\255@\144\160ZZ\144\160[[\145\160\160\\\\\160\160\001 \028\001\000\180@\145\160\160]]\160\160\001 \029\001\000\161@\145\160\160^^\160\160\001 \030\001\000\165@\144\160__\144\160``\144\160aa\145\160\160bb\160\160\001\001\"\001\000\204@\145\160\160cc\160\160\001\001#\001\000\236@\144\160dd\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\145\160\160jj\160\160\001\001*\001\000\206@\145\160\160kk\160\160\001\001+\001\000\238@\144\160ll\144\160mm\145\160\160nn\160\160\001\001.\001\000\193@\145\160\160oo\160\160\001\001/\001\000\225@\144\160pp\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\145\160\160vv\160\160\001\0016\001\000\205@\145\160\160ww\160\160\001\0017\001\000\237@\144\160xx\144\160yy\144\160zz\145\160\160{{\160\160\001\001;\001\000\207@\145\160\160||\160\160\001\001<\001\000\239@\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\145\160\160\000A\000A\160\160\001\001A\001\000\217@\145\160\160\000B\000B\160\160\001\001B\001\000\249@\145\160\160\000C\000C\160\160\001\001C\001\000\209@\145\160\160\000D\000D\160\160\001\001D\001\000\241@\145\160\160\000E\000E\160\160\001\001E\001\000\210@\145\160\160\000F\000F\160\160\001\001F\001\000\242@\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\145\160\160\000L\000L\160\160\001\001L\001\000\212@\145\160\160\000M\000M\160\160\001\001M\001\000\244@\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\144\160\000R\000R\144\160\000S\000S\144\160\000T\000T\144\160\000U\000U\145\160\160\000V\000V\160\160\001\001V\001\000\170@\145\160\160\000W\000W\160\160\001\001W\001\000\186@\144\160\000X\000X\144\160\000Y\000Y\145\160\160\000Z\000Z\160\160\001\001Z\001\000\218@\145\160\160\000[\000[\160\160\001\001[\001\000\250@\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\145\160\160\000`\000`\160\160\001\001`\001\000\208@\145\160\160\000a\000a\160\160\001\001a\001\000\240@\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\145\160\160\000j\000j\160\160\001\001j\001\000\219@\145\160\160\000k\000k\160\160\001\001k\001\000\251@\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\145\160\160\000r\000r\160\160\001\001r\001\000\216@\145\160\160\000s\000s\160\160\001\001s\001\000\248@\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\145\160\160\000y\000y\160\160\001\001y\001\000\202@\145\160\160\000z\000z\160\160\001\001z\001\000\234@\145\160\160\000{\000{\160\160\001\001{\001\000\221@\145\160\160\000|\000|\160\160\001\001|\001\000\253@\145\160\160\000}\000}\160\160\001\001}\001\000\222@\145\160\160\000~\000~\160\160\001\001~\001\000\254@\144\160\000\127\000\127\144\160\001\000\128\001\000\128\144\160\001\000\129\001\000\129\144\160\001\000\130\001\000\130\144\160\001\000\131\001\000\131\144\160\001\000\132\001\000\132\144\160\001\000\133\001\000\133\144\160\001\000\134\001\000\134\144\160\001\000\135\001\000\135\144\160\001\000\136\001\000\136\144\160\001\000\137\001\000\137\144\160\001\000\138\001\000\138\144\160\001\000\139\001\000\139\144\160\001\000\140\001\000\140\144\160\001\000\141\001\000\141\144\160\001\000\142\001\000\142\144\160\001\000\143\001\000\143\144\160\001\000\144\001\000\144\144\160\001\000\145\001\000\145\144\160\001\000\146\001\000\146\144\160\001\000\147\001\000\147\144\160\001\000\148\001\000\148\144\160\001\000\149\001\000\149\144\160\001\000\150\001\000\150\144\160\001\000\151\001\000\151\144\160\001\000\152\001\000\152\144\160\001\000\153\001\000\153\144\160\001\000\154\001\000\154\144\160\001\000\155\001\000\155\144\160\001\000\156\001\000\156\144\160\001\000\157\001\000\157\144\160\001\000\158\001\000\158\144\160\001\000\159\001\000\159\144\160\001\000\160\001\000\160@\144\160\001\000\162\001\000\162\144\160\001\000\163\001\000\163\144\160\001\000\164\001\000\164@\144\160\001\000\166\001\000\166\144\160\001\000\167\001\000\167@\144\160\001\000\169\001\000\169@\144\160\001\000\171\001\000\171\144\160\001\000\172\001\000\172\144\160\001\000\173\001\000\173\144\160\001\000\174\001\000\174@\144\160\001\000\176\001\000\176\144\160\001\000\177\001\000\177\144\160\001\000\178\001\000\178\144\160\001\000\179\001\000\179@\144\160\001\000\181\001\000\181\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\183@\144\160\001\000\185\001\000\185@\144\160\001\000\187\001\000\187\144\160\001\000\188\001\000\188\144\160\001\000\189\001\000\189\144\160\001\000\190\001\000\190@@@@@\144\160\001\000\196\001\000\196\144\160\001\000\197\001\000\197\144\160\001\000\198\001\000\175@@\144\160\001\000\201\001\000\201@@@@@@@@@\144\160\001\000\211\001\000\211@\144\160\001\000\213\001\000\213\144\160\001\000\214\001\000\214\144\160\001\000\215\001\000\215\144\160\001\000\216\001\000\168@@@\144\160\001\000\220\001\000\220@@\144\160\001\000\223\001\000\223@@@@\144\160\001\000\228\001\000\228\144\160\001\000\229\001\000\229\144\160\001\000\230\001\000\191@@\144\160\001\000\233\001\000\233@@@@@@@@@\144\160\001\000\243\001\000\243@\144\160\001\000\245\001\000\245\144\160\001\000\246\001\000\246\144\160\001\000\247\001\000\247\144\160\001\000\248\001\000\184@@@\144\160\001\000\252\001\000\252@@@" 0 : Netmappings.from_uni_list array);;
- let iso885914_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132\001\000\133\001\000\134\001\000\135\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140\001\000\141\001\000\142\001\000\143\001\000\144\001\000\145\001\000\146\001\000\147\001\000\148\001\000\149\001\000\150\001\000\151\001\000\152\001\000\153\001\000\154\001\000\155\001\000\156\001\000\157\001\000\158\001\000\159\001\000\160\001\030\002\001\030\003\001\000\163\001\001\n\001\001\011\001\030\n\001\000\167\001\030\128\001\000\169\001\030\130\001\030\011\001\030\242\001\000\173\001\000\174\001\001x\001\030\030\001\030\031\001\001 \001\001!\001\030@\001\030A\001\000\182\001\030V\001\030\129\001\030W\001\030\131\001\030`\001\030\243\001\030\132\001\030\133\001\030a\001\000\192\001\000\193\001\000\194\001\000\195\001\000\196\001\000\197\001\000\198\001\000\199\001\000\200\001\000\201\001\000\202\001\000\203\001\000\204\001\000\205\001\000\206\001\000\207\001\001t\001\000\209\001\000\210\001\000\211\001\000\212\001\000\213\001\000\214\001\030j\001\000\216\001\000\217\001\000\218\001\000\219\001\000\220\001\000\221\001\001v\001\000\223\001\000\224\001\000\225\001\000\226\001\000\227\001\000\228\001\000\229\001\000\230\001\000\231\001\000\232\001\000\233\001\000\234\001\000\235\001\000\236\001\000\237\001\000\238\001\000\239\001\001u\001\000\241\001\000\242\001\000\243\001\000\244\001\000\245\001\000\246\001\030k\001\000\248\001\000\249\001\000\250\001\000\251\001\000\252\001\000\253\001\001w\001\000\255" 0 : int array);;
-let iso885914_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\222\000\000\000\000\000\000\006w\000\000\006w\008\000\004\000\000\144\160@@\144\160AA\145\160\160BB\160\160\001\030\002\001\000\161@\145\160\160CC\160\160\001\030\003\001\000\162@\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\145\160\160JJ\160\160\001\001\n\001\000\164\160\160\001\030\n\001\000\166@\145\160\160KK\160\160\001\001\011\001\000\165\160\160\001\030\011\001\000\171@\144\160LL\144\160MM\144\160NN\144\160OO\144\160PP\144\160QQ\144\160RR\144\160SS\144\160TT\144\160UU\144\160VV\144\160WW\144\160XX\144\160YY\144\160ZZ\144\160[[\144\160\\\\\144\160]]\145\160\160^^\160\160\001\030\030\001\000\176@\145\160\160__\160\160\001\030\031\001\000\177@\145\160\160``\160\160\001\001 \001\000\178@\145\160\160aa\160\160\001\001!\001\000\179@\144\160bb\144\160cc\144\160dd\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\145\160\160\000@\000@\160\160\001\030@\001\000\180@\145\160\160\000A\000A\160\160\001\030A\001\000\181@\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\144\160\000R\000R\144\160\000S\000S\144\160\000T\000T\144\160\000U\000U\145\160\160\000V\000V\160\160\001\030V\001\000\183@\145\160\160\000W\000W\160\160\001\030W\001\000\185@\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\145\160\160\000`\000`\160\160\001\030`\001\000\187@\145\160\160\000a\000a\160\160\001\030a\001\000\191@\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\145\160\160\000j\000j\160\160\001\030j\001\000\215@\145\160\160\000k\000k\160\160\001\030k\001\000\247@\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\145\160\160\000t\000t\160\160\001\001t\001\000\208@\145\160\160\000u\000u\160\160\001\001u\001\000\240@\145\160\160\000v\000v\160\160\001\001v\001\000\222@\145\160\160\000w\000w\160\160\001\001w\001\000\254@\145\160\160\000x\000x\160\160\001\001x\001\000\175@\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127\145\160\160\001\000\128\001\000\128\160\160\001\030\128\001\000\168@\145\160\160\001\000\129\001\000\129\160\160\001\030\129\001\000\184@\145\160\160\001\000\130\001\000\130\160\160\001\030\130\001\000\170@\145\160\160\001\000\131\001\000\131\160\160\001\030\131\001\000\186@\145\160\160\001\000\132\001\000\132\160\160\001\030\132\001\000\189@\145\160\160\001\000\133\001\000\133\160\160\001\030\133\001\000\190@\144\160\001\000\134\001\000\134\144\160\001\000\135\001\000\135\144\160\001\000\136\001\000\136\144\160\001\000\137\001\000\137\144\160\001\000\138\001\000\138\144\160\001\000\139\001\000\139\144\160\001\000\140\001\000\140\144\160\001\000\141\001\000\141\144\160\001\000\142\001\000\142\144\160\001\000\143\001\000\143\144\160\001\000\144\001\000\144\144\160\001\000\145\001\000\145\144\160\001\000\146\001\000\146\144\160\001\000\147\001\000\147\144\160\001\000\148\001\000\148\144\160\001\000\149\001\000\149\144\160\001\000\150\001\000\150\144\160\001\000\151\001\000\151\144\160\001\000\152\001\000\152\144\160\001\000\153\001\000\153\144\160\001\000\154\001\000\154\144\160\001\000\155\001\000\155\144\160\001\000\156\001\000\156\144\160\001\000\157\001\000\157\144\160\001\000\158\001\000\158\144\160\001\000\159\001\000\159\144\160\001\000\160\001\000\160@@\144\160\001\000\163\001\000\163@@@\144\160\001\000\167\001\000\167@\144\160\001\000\169\001\000\169@@@\144\160\001\000\173\001\000\173\144\160\001\000\174\001\000\174@@@@@@@\144\160\001\000\182\001\000\182@@@@@@@@@\144\160\001\000\192\001\000\192\144\160\001\000\193\001\000\193\144\160\001\000\194\001\000\194\144\160\001\000\195\001\000\195\144\160\001\000\196\001\000\196\144\160\001\000\197\001\000\197\144\160\001\000\198\001\000\198\144\160\001\000\199\001\000\199\144\160\001\000\200\001\000\200\144\160\001\000\201\001\000\201\144\160\001\000\202\001\000\202\144\160\001\000\203\001\000\203\144\160\001\000\204\001\000\204\144\160\001\000\205\001\000\205\144\160\001\000\206\001\000\206\144\160\001\000\207\001\000\207@\144\160\001\000\209\001\000\209\144\160\001\000\210\001\000\210\144\160\001\000\211\001\000\211\144\160\001\000\212\001\000\212\144\160\001\000\213\001\000\213\144\160\001\000\214\001\000\214@\144\160\001\000\216\001\000\216\144\160\001\000\217\001\000\217\144\160\001\000\218\001\000\218\144\160\001\000\219\001\000\219\144\160\001\000\220\001\000\220\144\160\001\000\221\001\000\221@\144\160\001\000\223\001\000\223\144\160\001\000\224\001\000\224\144\160\001\000\225\001\000\225\144\160\001\000\226\001\000\226\144\160\001\000\227\001\000\227\144\160\001\000\228\001\000\228\144\160\001\000\229\001\000\229\144\160\001\000\230\001\000\230\144\160\001\000\231\001\000\231\144\160\001\000\232\001\000\232\144\160\001\000\233\001\000\233\144\160\001\000\234\001\000\234\144\160\001\000\235\001\000\235\144\160\001\000\236\001\000\236\144\160\001\000\237\001\000\237\144\160\001\000\238\001\000\238\144\160\001\000\239\001\000\239@\144\160\001\000\241\001\000\241\145\160\160\001\030\242\001\000\172\160\160\001\000\242\001\000\242@\145\160\160\001\030\243\001\000\188\160\160\001\000\243\001\000\243@\144\160\001\000\244\001\000\244\144\160\001\000\245\001\000\245\144\160\001\000\246\001\000\246@\144\160\001\000\248\001\000\248\144\160\001\000\249\001\000\249\144\160\001\000\250\001\000\250\144\160\001\000\251\001\000\251\144\160\001\000\252\001\000\252\144\160\001\000\253\001\000\253@\144\160\001\000\255\001\000\255" 0 : Netmappings.from_uni_list array);;
- let iso885915_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132\001\000\133\001\000\134\001\000\135\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140\001\000\141\001\000\142\001\000\143\001\000\144\001\000\145\001\000\146\001\000\147\001\000\148\001\000\149\001\000\150\001\000\151\001\000\152\001\000\153\001\000\154\001\000\155\001\000\156\001\000\157\001\000\158\001\000\159\001\000\160\001\000\161\001\000\162\001\000\163\001 \172\001\000\165\001\001`\001\000\167\001\001a\001\000\169\001\000\170\001\000\171\001\000\172\001\000\173\001\000\174\001\000\175\001\000\176\001\000\177\001\000\178\001\000\179\001\001}\001\000\181\001\000\182\001\000\183\001\001~\001\000\185\001\000\186\001\000\187\001\001R\001\001S\001\001x\001\000\191\001\000\192\001\000\193\001\000\194\001\000\195\001\000\196\001\000\197\001\000\198\001\000\199\001\000\200\001\000\201\001\000\202\001\000\203\001\000\204\001\000\205\001\000\206\001\000\207\001\000\208\001\000\209\001\000\210\001\000\211\001\000\212\001\000\213\001\000\214\001\000\215\001\000\216\001\000\217\001\000\218\001\000\219\001\000\220\001\000\221\001\000\222\001\000\223\001\000\224\001\000\225\001\000\226\001\000\227\001\000\228\001\000\229\001\000\230\001\000\231\001\000\232\001\000\233\001\000\234\001\000\235\001\000\236\001\000\237\001\000\238\001\000\239\001\000\240\001\000\241\001\000\242\001\000\243\001\000\244\001\000\245\001\000\246\001\000\247\001\000\248\001\000\249\001\000\250\001\000\251\001\000\252\001\000\253\001\000\254\001\000\255" 0 : int array);;
-let iso885915_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\157\000\000\000\000\000\000\006!\000\000\006!\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\144\160LL\144\160MM\144\160NN\144\160OO\144\160PP\144\160QQ\144\160RR\144\160SS\144\160TT\144\160UU\144\160VV\144\160WW\144\160XX\144\160YY\144\160ZZ\144\160[[\144\160\\\\\144\160]]\144\160^^\144\160__\144\160``\144\160aa\144\160bb\144\160cc\144\160dd\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\145\160\160\000R\000R\160\160\001\001R\001\000\188@\145\160\160\000S\000S\160\160\001\001S\001\000\189@\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\145\160\160\000`\000`\160\160\001\001`\001\000\166@\145\160\160\000a\000a\160\160\001\001a\001\000\168@\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\145\160\160\000x\000x\160\160\001\001x\001\000\190@\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\145\160\160\000}\000}\160\160\001\001}\001\000\180@\145\160\160\000~\000~\160\160\001\001~\001\000\184@\144\160\000\127\000\127\144\160\001\000\128\001\000\128\144\160\001\000\129\001\000\129\144\160\001\000\130\001\000\130\144\160\001\000\131\001\000\131\144\160\001\000\132\001\000\132\144\160\001\000\133\001\000\133\144\160\001\000\134\001\000\134\144\160\001\000\135\001\000\135\144\160\001\000\136\001\000\136\144\160\001\000\137\001\000\137\144\160\001\000\138\001\000\138\144\160\001\000\139\001\000\139\144\160\001\000\140\001\000\140\144\160\001\000\141\001\000\141\144\160\001\000\142\001\000\142\144\160\001\000\143\001\000\143\144\160\001\000\144\001\000\144\144\160\001\000\145\001\000\145\144\160\001\000\146\001\000\146\144\160\001\000\147\001\000\147\144\160\001\000\148\001\000\148\144\160\001\000\149\001\000\149\144\160\001\000\150\001\000\150\144\160\001\000\151\001\000\151\144\160\001\000\152\001\000\152\144\160\001\000\153\001\000\153\144\160\001\000\154\001\000\154\144\160\001\000\155\001\000\155\144\160\001\000\156\001\000\156\144\160\001\000\157\001\000\157\144\160\001\000\158\001\000\158\144\160\001\000\159\001\000\159\144\160\001\000\160\001\000\160\144\160\001\000\161\001\000\161\144\160\001\000\162\001\000\162\144\160\001\000\163\001\000\163@\144\160\001\000\165\001\000\165@\144\160\001\000\167\001\000\167@\144\160\001\000\169\001\000\169\144\160\001\000\170\001\000\170\144\160\001\000\171\001\000\171\145\160\160\001 \172\001\000\164\160\160\001\000\172\001\000\172@\144\160\001\000\173\001\000\173\144\160\001\000\174\001\000\174\144\160\001\000\175\001\000\175\144\160\001\000\176\001\000\176\144\160\001\000\177\001\000\177\144\160\001\000\178\001\000\178\144\160\001\000\179\001\000\179@\144\160\001\000\181\001\000\181\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\183@\144\160\001\000\185\001\000\185\144\160\001\000\186\001\000\186\144\160\001\000\187\001\000\187@@@\144\160\001\000\191\001\000\191\144\160\001\000\192\001\000\192\144\160\001\000\193\001\000\193\144\160\001\000\194\001\000\194\144\160\001\000\195\001\000\195\144\160\001\000\196\001\000\196\144\160\001\000\197\001\000\197\144\160\001\000\198\001\000\198\144\160\001\000\199\001\000\199\144\160\001\000\200\001\000\200\144\160\001\000\201\001\000\201\144\160\001\000\202\001\000\202\144\160\001\000\203\001\000\203\144\160\001\000\204\001\000\204\144\160\001\000\205\001\000\205\144\160\001\000\206\001\000\206\144\160\001\000\207\001\000\207\144\160\001\000\208\001\000\208\144\160\001\000\209\001\000\209\144\160\001\000\210\001\000\210\144\160\001\000\211\001\000\211\144\160\001\000\212\001\000\212\144\160\001\000\213\001\000\213\144\160\001\000\214\001\000\214\144\160\001\000\215\001\000\215\144\160\001\000\216\001\000\216\144\160\001\000\217\001\000\217\144\160\001\000\218\001\000\218\144\160\001\000\219\001\000\219\144\160\001\000\220\001\000\220\144\160\001\000\221\001\000\221\144\160\001\000\222\001\000\222\144\160\001\000\223\001\000\223\144\160\001\000\224\001\000\224\144\160\001\000\225\001\000\225\144\160\001\000\226\001\000\226\144\160\001\000\227\001\000\227\144\160\001\000\228\001\000\228\144\160\001\000\229\001\000\229\144\160\001\000\230\001\000\230\144\160\001\000\231\001\000\231\144\160\001\000\232\001\000\232\144\160\001\000\233\001\000\233\144\160\001\000\234\001\000\234\144\160\001\000\235\001\000\235\144\160\001\000\236\001\000\236\144\160\001\000\237\001\000\237\144\160\001\000\238\001\000\238\144\160\001\000\239\001\000\239\144\160\001\000\240\001\000\240\144\160\001\000\241\001\000\241\144\160\001\000\242\001\000\242\144\160\001\000\243\001\000\243\144\160\001\000\244\001\000\244\144\160\001\000\245\001\000\245\144\160\001\000\246\001\000\246\144\160\001\000\247\001\000\247\144\160\001\000\248\001\000\248\144\160\001\000\249\001\000\249\144\160\001\000\250\001\000\250\144\160\001\000\251\001\000\251\144\160\001\000\252\001\000\252\144\160\001\000\253\001\000\253\144\160\001\000\254\001\000\254\144\160\001\000\255\001\000\255" 0 : Netmappings.from_uni_list array);;
- let iso88592_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132\001\000\133\001\000\134\001\000\135\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140\001\000\141\001\000\142\001\000\143\001\000\144\001\000\145\001\000\146\001\000\147\001\000\148\001\000\149\001\000\150\001\000\151\001\000\152\001\000\153\001\000\154\001\000\155\001\000\156\001\000\157\001\000\158\001\000\159\001\000\160\001\001\004\001\002\216\001\001A\001\000\164\001\001=\001\001Z\001\000\167\001\000\168\001\001`\001\001^\001\001d\001\001y\001\000\173\001\001}\001\001{\001\000\176\001\001\005\001\002\219\001\001B\001\000\180\001\001>\001\001[\001\002\199\001\000\184\001\001a\001\001_\001\001e\001\001z\001\002\221\001\001~\001\001|\001\001T\001\000\193\001\000\194\001\001\002\001\000\196\001\0019\001\001\006\001\000\199\001\001\012\001\000\201\001\001\024\001\000\203\001\001\026\001\000\205\001\000\206\001\001\014\001\001\016\001\001C\001\001G\001\000\211\001\000\212\001\001P\001\000\214\001\000\215\001\001X\001\001n\001\000\218\001\001p\001\000\220\001\000\221\001\001b\001\000\223\001\001U\001\000\225\001\000\226\001\001\003\001\000\228\001\001:\001\001\007\001\000\231\001\001\013\001\000\233\001\001\025\001\000\235\001\001\027\001\000\237\001\000\238\001\001\015\001\001\017\001\001D\001\001H\001\000\243\001\000\244\001\001Q\001\000\246\001\000\247\001\001Y\001\001o\001\000\250\001\001q\001\000\252\001\000\253\001\001c\001\002\217" 0 : int array);;
-let iso88592_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007'\000\000\000\000\000\000\006\217\000\000\006\217\008\000\004\000\000\144\160@@\144\160AA\145\160\160BB\160\160\001\001\002\001\000\195@\145\160\160CC\160\160\001\001\003\001\000\227@\145\160\160DD\160\160\001\001\004\001\000\161@\145\160\160EE\160\160\001\001\005\001\000\177@\145\160\160FF\160\160\001\001\006\001\000\198@\145\160\160GG\160\160\001\001\007\001\000\230@\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001\001\012\001\000\200@\145\160\160MM\160\160\001\001\013\001\000\232@\145\160\160NN\160\160\001\001\014\001\000\207@\145\160\160OO\160\160\001\001\015\001\000\239@\145\160\160PP\160\160\001\001\016\001\000\208@\145\160\160QQ\160\160\001\001\017\001\000\240@\144\160RR\144\160SS\144\160TT\144\160UU\144\160VV\144\160WW\145\160\160XX\160\160\001\001\024\001\000\202@\145\160\160YY\160\160\001\001\025\001\000\234@\145\160\160ZZ\160\160\001\001\026\001\000\204@\145\160\160[[\160\160\001\001\027\001\000\236@\144\160\\\\\144\160]]\144\160^^\144\160__\144\160``\144\160aa\144\160bb\144\160cc\144\160dd\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\145\160\160yy\160\160\001\0019\001\000\197@\145\160\160zz\160\160\001\001:\001\000\229@\144\160{{\144\160||\145\160\160}}\160\160\001\001=\001\000\165@\145\160\160~~\160\160\001\001>\001\000\181@\144\160\127\127\144\160\000@\000@\145\160\160\000A\000A\160\160\001\001A\001\000\163@\145\160\160\000B\000B\160\160\001\001B\001\000\179@\145\160\160\000C\000C\160\160\001\001C\001\000\209@\145\160\160\000D\000D\160\160\001\001D\001\000\241@\144\160\000E\000E\144\160\000F\000F\145\160\160\000G\000G\160\160\001\001G\001\000\210@\145\160\160\000H\000H\160\160\001\001H\001\000\242@\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\145\160\160\000P\000P\160\160\001\001P\001\000\213@\145\160\160\000Q\000Q\160\160\001\001Q\001\000\245@\144\160\000R\000R\144\160\000S\000S\145\160\160\000T\000T\160\160\001\001T\001\000\192@\145\160\160\000U\000U\160\160\001\001U\001\000\224@\144\160\000V\000V\144\160\000W\000W\145\160\160\000X\000X\160\160\001\001X\001\000\216@\145\160\160\000Y\000Y\160\160\001\001Y\001\000\248@\145\160\160\000Z\000Z\160\160\001\001Z\001\000\166@\145\160\160\000[\000[\160\160\001\001[\001\000\182@\144\160\000\\\000\\\144\160\000]\000]\145\160\160\000^\000^\160\160\001\001^\001\000\170@\145\160\160\000_\000_\160\160\001\001_\001\000\186@\145\160\160\000`\000`\160\160\001\001`\001\000\169@\145\160\160\000a\000a\160\160\001\001a\001\000\185@\145\160\160\000b\000b\160\160\001\001b\001\000\222@\145\160\160\000c\000c\160\160\001\001c\001\000\254@\145\160\160\000d\000d\160\160\001\001d\001\000\171@\145\160\160\000e\000e\160\160\001\001e\001\000\187@\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\145\160\160\000n\000n\160\160\001\001n\001\000\217@\145\160\160\000o\000o\160\160\001\001o\001\000\249@\145\160\160\000p\000p\160\160\001\001p\001\000\219@\145\160\160\000q\000q\160\160\001\001q\001\000\251@\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\145\160\160\000y\000y\160\160\001\001y\001\000\172@\145\160\160\000z\000z\160\160\001\001z\001\000\188@\145\160\160\000{\000{\160\160\001\001{\001\000\175@\145\160\160\000|\000|\160\160\001\001|\001\000\191@\145\160\160\000}\000}\160\160\001\001}\001\000\174@\145\160\160\000~\000~\160\160\001\001~\001\000\190@\144\160\000\127\000\127\144\160\001\000\128\001\000\128\144\160\001\000\129\001\000\129\144\160\001\000\130\001\000\130\144\160\001\000\131\001\000\131\144\160\001\000\132\001\000\132\144\160\001\000\133\001\000\133\144\160\001\000\134\001\000\134\144\160\001\000\135\001\000\135\144\160\001\000\136\001\000\136\144\160\001\000\137\001\000\137\144\160\001\000\138\001\000\138\144\160\001\000\139\001\000\139\144\160\001\000\140\001\000\140\144\160\001\000\141\001\000\141\144\160\001\000\142\001\000\142\144\160\001\000\143\001\000\143\144\160\001\000\144\001\000\144\144\160\001\000\145\001\000\145\144\160\001\000\146\001\000\146\144\160\001\000\147\001\000\147\144\160\001\000\148\001\000\148\144\160\001\000\149\001\000\149\144\160\001\000\150\001\000\150\144\160\001\000\151\001\000\151\144\160\001\000\152\001\000\152\144\160\001\000\153\001\000\153\144\160\001\000\154\001\000\154\144\160\001\000\155\001\000\155\144\160\001\000\156\001\000\156\144\160\001\000\157\001\000\157\144\160\001\000\158\001\000\158\144\160\001\000\159\001\000\159\144\160\001\000\160\001\000\160@@@\144\160\001\000\164\001\000\164@@\144\160\001\000\167\001\000\167\144\160\001\000\168\001\000\168@@@@\144\160\001\000\173\001\000\173@@\144\160\001\000\176\001\000\176@@@\144\160\001\000\180\001\000\180@@@\144\160\001\000\184\001\000\184@@@@@@@@\144\160\001\000\193\001\000\193\144\160\001\000\194\001\000\194@\144\160\001\000\196\001\000\196@@\145\160\160\001\002\199\001\000\183\160\160\001\000\199\001\000\199@@\144\160\001\000\201\001\000\201@\144\160\001\000\203\001\000\203@\144\160\001\000\205\001\000\205\144\160\001\000\206\001\000\206@@@@\144\160\001\000\211\001\000\211\144\160\001\000\212\001\000\212@\144\160\001\000\214\001\000\214\144\160\001\000\215\001\000\215\144\160\001\002\216\001\000\162\144\160\001\002\217\001\000\255\144\160\001\000\218\001\000\218\144\160\001\002\219\001\000\178\144\160\001\000\220\001\000\220\145\160\160\001\002\221\001\000\189\160\160\001\000\221\001\000\221@@\144\160\001\000\223\001\000\223@\144\160\001\000\225\001\000\225\144\160\001\000\226\001\000\226@\144\160\001\000\228\001\000\228@@\144\160\001\000\231\001\000\231@\144\160\001\000\233\001\000\233@\144\160\001\000\235\001\000\235@\144\160\001\000\237\001\000\237\144\160\001\000\238\001\000\238@@@@\144\160\001\000\243\001\000\243\144\160\001\000\244\001\000\244@\144\160\001\000\246\001\000\246\144\160\001\000\247\001\000\247@@\144\160\001\000\250\001\000\250@\144\160\001\000\252\001\000\252\144\160\001\000\253\001\000\253@@" 0 : Netmappings.from_uni_list array);;
- let iso88593_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002>\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132\001\000\133\001\000\134\001\000\135\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140\001\000\141\001\000\142\001\000\143\001\000\144\001\000\145\001\000\146\001\000\147\001\000\148\001\000\149\001\000\150\001\000\151\001\000\152\001\000\153\001\000\154\001\000\155\001\000\156\001\000\157\001\000\158\001\000\159\001\000\160\001\001&\001\002\216\001\000\163\001\000\164\000\255\001\001$\001\000\167\001\000\168\001\0010\001\001^\001\001\030\001\0014\001\000\173\000\255\001\001{\001\000\176\001\001'\001\000\178\001\000\179\001\000\180\001\000\181\001\001%\001\000\183\001\000\184\001\0011\001\001_\001\001\031\001\0015\001\000\189\000\255\001\001|\001\000\192\001\000\193\001\000\194\000\255\001\000\196\001\001\n\001\001\008\001\000\199\001\000\200\001\000\201\001\000\202\001\000\203\001\000\204\001\000\205\001\000\206\001\000\207\000\255\001\000\209\001\000\210\001\000\211\001\000\212\001\001 \001\000\214\001\000\215\001\001\028\001\000\217\001\000\218\001\000\219\001\000\220\001\001l\001\001\\\001\000\223\001\000\224\001\000\225\001\000\226\000\255\001\000\228\001\001\011\001\001\t\001\000\231\001\000\232\001\000\233\001\000\234\001\000\235\001\000\236\001\000\237\001\000\238\001\000\239\000\255\001\000\241\001\000\242\001\000\243\001\000\244\001\001!\001\000\246\001\000\247\001\001\029\001\000\249\001\000\250\001\000\251\001\000\252\001\001m\001\001]\001\002\217" 0 : int array);;
-let iso88593_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\165\000\000\000\000\000\000\006J\000\000\006J\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\145\160\160HH\160\160\001\001\008\001\000\198@\145\160\160II\160\160\001\001\t\001\000\230@\145\160\160JJ\160\160\001\001\n\001\000\197@\145\160\160KK\160\160\001\001\011\001\000\229@\144\160LL\144\160MM\144\160NN\144\160OO\144\160PP\144\160QQ\144\160RR\144\160SS\144\160TT\144\160UU\144\160VV\144\160WW\144\160XX\144\160YY\144\160ZZ\144\160[[\145\160\160\\\\\160\160\001\001\028\001\000\216@\145\160\160]]\160\160\001\001\029\001\000\248@\145\160\160^^\160\160\001\001\030\001\000\171@\145\160\160__\160\160\001\001\031\001\000\187@\145\160\160``\160\160\001\001 \001\000\213@\145\160\160aa\160\160\001\001!\001\000\245@\144\160bb\144\160cc\145\160\160dd\160\160\001\001$\001\000\166@\145\160\160ee\160\160\001\001%\001\000\182@\145\160\160ff\160\160\001\001&\001\000\161@\145\160\160gg\160\160\001\001'\001\000\177@\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\145\160\160pp\160\160\001\0010\001\000\169@\145\160\160qq\160\160\001\0011\001\000\185@\144\160rr\144\160ss\145\160\160tt\160\160\001\0014\001\000\172@\145\160\160uu\160\160\001\0015\001\000\188@\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\144\160\000R\000R\144\160\000S\000S\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\145\160\160\000\\\000\\\160\160\001\001\\\001\000\222@\145\160\160\000]\000]\160\160\001\001]\001\000\254@\145\160\160\000^\000^\160\160\001\001^\001\000\170@\145\160\160\000_\000_\160\160\001\001_\001\000\186@\144\160\000`\000`\144\160\000a\000a\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\145\160\160\000l\000l\160\160\001\001l\001\000\221@\145\160\160\000m\000m\160\160\001\001m\001\000\253@\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\145\160\160\000{\000{\160\160\001\001{\001\000\175@\145\160\160\000|\000|\160\160\001\001|\001\000\191@\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127\144\160\001\000\128\001\000\128\144\160\001\000\129\001\000\129\144\160\001\000\130\001\000\130\144\160\001\000\131\001\000\131\144\160\001\000\132\001\000\132\144\160\001\000\133\001\000\133\144\160\001\000\134\001\000\134\144\160\001\000\135\001\000\135\144\160\001\000\136\001\000\136\144\160\001\000\137\001\000\137\144\160\001\000\138\001\000\138\144\160\001\000\139\001\000\139\144\160\001\000\140\001\000\140\144\160\001\000\141\001\000\141\144\160\001\000\142\001\000\142\144\160\001\000\143\001\000\143\144\160\001\000\144\001\000\144\144\160\001\000\145\001\000\145\144\160\001\000\146\001\000\146\144\160\001\000\147\001\000\147\144\160\001\000\148\001\000\148\144\160\001\000\149\001\000\149\144\160\001\000\150\001\000\150\144\160\001\000\151\001\000\151\144\160\001\000\152\001\000\152\144\160\001\000\153\001\000\153\144\160\001\000\154\001\000\154\144\160\001\000\155\001\000\155\144\160\001\000\156\001\000\156\144\160\001\000\157\001\000\157\144\160\001\000\158\001\000\158\144\160\001\000\159\001\000\159\144\160\001\000\160\001\000\160@@\144\160\001\000\163\001\000\163\144\160\001\000\164\001\000\164@@\144\160\001\000\167\001\000\167\144\160\001\000\168\001\000\168@@@@\144\160\001\000\173\001\000\173@@\144\160\001\000\176\001\000\176@\144\160\001\000\178\001\000\178\144\160\001\000\179\001\000\179\144\160\001\000\180\001\000\180\144\160\001\000\181\001\000\181@\144\160\001\000\183\001\000\183\144\160\001\000\184\001\000\184@@@@\144\160\001\000\189\001\000\189@@\144\160\001\000\192\001\000\192\144\160\001\000\193\001\000\193\144\160\001\000\194\001\000\194@\144\160\001\000\196\001\000\196@@\144\160\001\000\199\001\000\199\144\160\001\000\200\001\000\200\144\160\001\000\201\001\000\201\144\160\001\000\202\001\000\202\144\160\001\000\203\001\000\203\144\160\001\000\204\001\000\204\144\160\001\000\205\001\000\205\144\160\001\000\206\001\000\206\144\160\001\000\207\001\000\207@\144\160\001\000\209\001\000\209\144\160\001\000\210\001\000\210\144\160\001\000\211\001\000\211\144\160\001\000\212\001\000\212@\144\160\001\000\214\001\000\214\144\160\001\000\215\001\000\215\144\160\001\002\216\001\000\162\145\160\160\001\000\217\001\000\217\160\160\001\002\217\001\000\255@\144\160\001\000\218\001\000\218\144\160\001\000\219\001\000\219\144\160\001\000\220\001\000\220@@\144\160\001\000\223\001\000\223\144\160\001\000\224\001\000\224\144\160\001\000\225\001\000\225\144\160\001\000\226\001\000\226@\144\160\001\000\228\001\000\228@@\144\160\001\000\231\001\000\231\144\160\001\000\232\001\000\232\144\160\001\000\233\001\000\233\144\160\001\000\234\001\000\234\144\160\001\000\235\001\000\235\144\160\001\000\236\001\000\236\144\160\001\000\237\001\000\237\144\160\001\000\238\001\000\238\144\160\001\000\239\001\000\239@\144\160\001\000\241\001\000\241\144\160\001\000\242\001\000\242\144\160\001\000\243\001\000\243\144\160\001\000\244\001\000\244@\144\160\001\000\246\001\000\246\144\160\001\000\247\001\000\247@\144\160\001\000\249\001\000\249\144\160\001\000\250\001\000\250\144\160\001\000\251\001\000\251\144\160\001\000\252\001\000\252@@@" 0 : Netmappings.from_uni_list array);;
- let iso88594_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132\001\000\133\001\000\134\001\000\135\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140\001\000\141\001\000\142\001\000\143\001\000\144\001\000\145\001\000\146\001\000\147\001\000\148\001\000\149\001\000\150\001\000\151\001\000\152\001\000\153\001\000\154\001\000\155\001\000\156\001\000\157\001\000\158\001\000\159\001\000\160\001\001\004\001\0018\001\001V\001\000\164\001\001(\001\001;\001\000\167\001\000\168\001\001`\001\001\018\001\001\"\001\001f\001\000\173\001\001}\001\000\175\001\000\176\001\001\005\001\002\219\001\001W\001\000\180\001\001)\001\001<\001\002\199\001\000\184\001\001a\001\001\019\001\001#\001\001g\001\001J\001\001~\001\001K\001\001\000\001\000\193\001\000\194\001\000\195\001\000\196\001\000\197\001\000\198\001\001.\001\001\012\001\000\201\001\001\024\001\000\203\001\001\022\001\000\205\001\000\206\001\001*\001\001\016\001\001E\001\001L\001\0016\001\000\212\001\000\213\001\000\214\001\000\215\001\000\216\001\001r\001\000\218\001\000\219\001\000\220\001\001h\001\001j\001\000\223\001\001\001\001\000\225\001\000\226\001\000\227\001\000\228\001\000\229\001\000\230\001\001/\001\001\013\001\000\233\001\001\025\001\000\235\001\001\023\001\000\237\001\000\238\001\001+\001\001\017\001\001F\001\001M\001\0017\001\000\244\001\000\245\001\000\246\001\000\247\001\000\248\001\001s\001\000\250\001\000\251\001\000\252\001\001i\001\001k\001\002\217" 0 : int array);;
-let iso88594_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007\021\000\000\000\000\000\000\006\193\000\000\006\193\008\000\004\000\000\145\160\160@@\160\160\001\001\000\001\000\192@\145\160\160AA\160\160\001\001\001\001\000\224@\144\160BB\144\160CC\145\160\160DD\160\160\001\001\004\001\000\161@\145\160\160EE\160\160\001\001\005\001\000\177@\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001\001\012\001\000\200@\145\160\160MM\160\160\001\001\013\001\000\232@\144\160NN\144\160OO\145\160\160PP\160\160\001\001\016\001\000\208@\145\160\160QQ\160\160\001\001\017\001\000\240@\145\160\160RR\160\160\001\001\018\001\000\170@\145\160\160SS\160\160\001\001\019\001\000\186@\144\160TT\144\160UU\145\160\160VV\160\160\001\001\022\001\000\204@\145\160\160WW\160\160\001\001\023\001\000\236@\145\160\160XX\160\160\001\001\024\001\000\202@\145\160\160YY\160\160\001\001\025\001\000\234@\144\160ZZ\144\160[[\144\160\\\\\144\160]]\144\160^^\144\160__\144\160``\144\160aa\145\160\160bb\160\160\001\001\"\001\000\171@\145\160\160cc\160\160\001\001#\001\000\187@\144\160dd\144\160ee\144\160ff\144\160gg\145\160\160hh\160\160\001\001(\001\000\165@\145\160\160ii\160\160\001\001)\001\000\181@\145\160\160jj\160\160\001\001*\001\000\207@\145\160\160kk\160\160\001\001+\001\000\239@\144\160ll\144\160mm\145\160\160nn\160\160\001\001.\001\000\199@\145\160\160oo\160\160\001\001/\001\000\231@\144\160pp\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\145\160\160vv\160\160\001\0016\001\000\211@\145\160\160ww\160\160\001\0017\001\000\243@\145\160\160xx\160\160\001\0018\001\000\162@\144\160yy\144\160zz\145\160\160{{\160\160\001\001;\001\000\166@\145\160\160||\160\160\001\001<\001\000\182@\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\145\160\160\000E\000E\160\160\001\001E\001\000\209@\145\160\160\000F\000F\160\160\001\001F\001\000\241@\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\145\160\160\000J\000J\160\160\001\001J\001\000\189@\145\160\160\000K\000K\160\160\001\001K\001\000\191@\145\160\160\000L\000L\160\160\001\001L\001\000\210@\145\160\160\000M\000M\160\160\001\001M\001\000\242@\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\144\160\000R\000R\144\160\000S\000S\144\160\000T\000T\144\160\000U\000U\145\160\160\000V\000V\160\160\001\001V\001\000\163@\145\160\160\000W\000W\160\160\001\001W\001\000\179@\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\145\160\160\000`\000`\160\160\001\001`\001\000\169@\145\160\160\000a\000a\160\160\001\001a\001\000\185@\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\145\160\160\000f\000f\160\160\001\001f\001\000\172@\145\160\160\000g\000g\160\160\001\001g\001\000\188@\145\160\160\000h\000h\160\160\001\001h\001\000\221@\145\160\160\000i\000i\160\160\001\001i\001\000\253@\145\160\160\000j\000j\160\160\001\001j\001\000\222@\145\160\160\000k\000k\160\160\001\001k\001\000\254@\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\145\160\160\000r\000r\160\160\001\001r\001\000\217@\145\160\160\000s\000s\160\160\001\001s\001\000\249@\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\145\160\160\000}\000}\160\160\001\001}\001\000\174@\145\160\160\000~\000~\160\160\001\001~\001\000\190@\144\160\000\127\000\127\144\160\001\000\128\001\000\128\144\160\001\000\129\001\000\129\144\160\001\000\130\001\000\130\144\160\001\000\131\001\000\131\144\160\001\000\132\001\000\132\144\160\001\000\133\001\000\133\144\160\001\000\134\001\000\134\144\160\001\000\135\001\000\135\144\160\001\000\136\001\000\136\144\160\001\000\137\001\000\137\144\160\001\000\138\001\000\138\144\160\001\000\139\001\000\139\144\160\001\000\140\001\000\140\144\160\001\000\141\001\000\141\144\160\001\000\142\001\000\142\144\160\001\000\143\001\000\143\144\160\001\000\144\001\000\144\144\160\001\000\145\001\000\145\144\160\001\000\146\001\000\146\144\160\001\000\147\001\000\147\144\160\001\000\148\001\000\148\144\160\001\000\149\001\000\149\144\160\001\000\150\001\000\150\144\160\001\000\151\001\000\151\144\160\001\000\152\001\000\152\144\160\001\000\153\001\000\153\144\160\001\000\154\001\000\154\144\160\001\000\155\001\000\155\144\160\001\000\156\001\000\156\144\160\001\000\157\001\000\157\144\160\001\000\158\001\000\158\144\160\001\000\159\001\000\159\144\160\001\000\160\001\000\160@@@\144\160\001\000\164\001\000\164@@\144\160\001\000\167\001\000\167\144\160\001\000\168\001\000\168@@@@\144\160\001\000\173\001\000\173@\144\160\001\000\175\001\000\175\144\160\001\000\176\001\000\176@@@\144\160\001\000\180\001\000\180@@@\144\160\001\000\184\001\000\184@@@@@@@@\144\160\001\000\193\001\000\193\144\160\001\000\194\001\000\194\144\160\001\000\195\001\000\195\144\160\001\000\196\001\000\196\144\160\001\000\197\001\000\197\144\160\001\000\198\001\000\198\144\160\001\002\199\001\000\183@\144\160\001\000\201\001\000\201@\144\160\001\000\203\001\000\203@\144\160\001\000\205\001\000\205\144\160\001\000\206\001\000\206@@@@@\144\160\001\000\212\001\000\212\144\160\001\000\213\001\000\213\144\160\001\000\214\001\000\214\144\160\001\000\215\001\000\215\144\160\001\000\216\001\000\216\144\160\001\002\217\001\000\255\144\160\001\000\218\001\000\218\145\160\160\001\002\219\001\000\178\160\160\001\000\219\001\000\219@\144\160\001\000\220\001\000\220@@\144\160\001\000\223\001\000\223@\144\160\001\000\225\001\000\225\144\160\001\000\226\001\000\226\144\160\001\000\227\001\000\227\144\160\001\000\228\001\000\228\144\160\001\000\229\001\000\229\144\160\001\000\230\001\000\230@@\144\160\001\000\233\001\000\233@\144\160\001\000\235\001\000\235@\144\160\001\000\237\001\000\237\144\160\001\000\238\001\000\238@@@@@\144\160\001\000\244\001\000\244\144\160\001\000\245\001\000\245\144\160\001\000\246\001\000\246\144\160\001\000\247\001\000\247\144\160\001\000\248\001\000\248@\144\160\001\000\250\001\000\250\144\160\001\000\251\001\000\251\144\160\001\000\252\001\000\252@@@" 0 : Netmappings.from_uni_list array);;
- let iso88595_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132\001\000\133\001\000\134\001\000\135\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140\001\000\141\001\000\142\001\000\143\001\000\144\001\000\145\001\000\146\001\000\147\001\000\148\001\000\149\001\000\150\001\000\151\001\000\152\001\000\153\001\000\154\001\000\155\001\000\156\001\000\157\001\000\158\001\000\159\001\000\160\001\004\001\001\004\002\001\004\003\001\004\004\001\004\005\001\004\006\001\004\007\001\004\008\001\004\t\001\004\n\001\004\011\001\004\012\001\000\173\001\004\014\001\004\015\001\004\016\001\004\017\001\004\018\001\004\019\001\004\020\001\004\021\001\004\022\001\004\023\001\004\024\001\004\025\001\004\026\001\004\027\001\004\028\001\004\029\001\004\030\001\004\031\001\004 \001\004!\001\004\"\001\004#\001\004$\001\004%\001\004&\001\004'\001\004(\001\004)\001\004*\001\004+\001\004,\001\004-\001\004.\001\004/\001\0040\001\0041\001\0042\001\0043\001\0044\001\0045\001\0046\001\0047\001\0048\001\0049\001\004:\001\004;\001\004<\001\004=\001\004>\001\004?\001\004@\001\004A\001\004B\001\004C\001\004D\001\004E\001\004F\001\004G\001\004H\001\004I\001\004J\001\004K\001\004L\001\004M\001\004N\001\004O\001!\022\001\004Q\001\004R\001\004S\001\004T\001\004U\001\004V\001\004W\001\004X\001\004Y\001\004Z\001\004[\001\004\\\001\000\167\001\004^\001\004_" 0 : int array);;
-let iso88595_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007\154\000\000\000\000\000\000\007r\000\000\007r\008\000\004\000\000\144\160@@\145\160\160AA\160\160\001\004\001\001\000\161@\145\160\160BB\160\160\001\004\002\001\000\162@\145\160\160CC\160\160\001\004\003\001\000\163@\145\160\160DD\160\160\001\004\004\001\000\164@\145\160\160EE\160\160\001\004\005\001\000\165@\145\160\160FF\160\160\001\004\006\001\000\166@\145\160\160GG\160\160\001\004\007\001\000\167@\145\160\160HH\160\160\001\004\008\001\000\168@\145\160\160II\160\160\001\004\t\001\000\169@\145\160\160JJ\160\160\001\004\n\001\000\170@\145\160\160KK\160\160\001\004\011\001\000\171@\145\160\160LL\160\160\001\004\012\001\000\172@\144\160MM\145\160\160NN\160\160\001\004\014\001\000\174@\145\160\160OO\160\160\001\004\015\001\000\175@\145\160\160PP\160\160\001\004\016\001\000\176@\145\160\160QQ\160\160\001\004\017\001\000\177@\145\160\160RR\160\160\001\004\018\001\000\178@\145\160\160SS\160\160\001\004\019\001\000\179@\145\160\160TT\160\160\001\004\020\001\000\180@\145\160\160UU\160\160\001\004\021\001\000\181@\145\160\160VV\160\160\001\004\022\001\000\182\160\160\001!\022\001\000\240@\145\160\160WW\160\160\001\004\023\001\000\183@\145\160\160XX\160\160\001\004\024\001\000\184@\145\160\160YY\160\160\001\004\025\001\000\185@\145\160\160ZZ\160\160\001\004\026\001\000\186@\145\160\160[[\160\160\001\004\027\001\000\187@\145\160\160\\\\\160\160\001\004\028\001\000\188@\145\160\160]]\160\160\001\004\029\001\000\189@\145\160\160^^\160\160\001\004\030\001\000\190@\145\160\160__\160\160\001\004\031\001\000\191@\145\160\160``\160\160\001\004 \001\000\192@\145\160\160aa\160\160\001\004!\001\000\193@\145\160\160bb\160\160\001\004\"\001\000\194@\145\160\160cc\160\160\001\004#\001\000\195@\145\160\160dd\160\160\001\004$\001\000\196@\145\160\160ee\160\160\001\004%\001\000\197@\145\160\160ff\160\160\001\004&\001\000\198@\145\160\160gg\160\160\001\004'\001\000\199@\145\160\160hh\160\160\001\004(\001\000\200@\145\160\160ii\160\160\001\004)\001\000\201@\145\160\160jj\160\160\001\004*\001\000\202@\145\160\160kk\160\160\001\004+\001\000\203@\145\160\160ll\160\160\001\004,\001\000\204@\145\160\160mm\160\160\001\004-\001\000\205@\145\160\160nn\160\160\001\004.\001\000\206@\145\160\160oo\160\160\001\004/\001\000\207@\145\160\160pp\160\160\001\0040\001\000\208@\145\160\160qq\160\160\001\0041\001\000\209@\145\160\160rr\160\160\001\0042\001\000\210@\145\160\160ss\160\160\001\0043\001\000\211@\145\160\160tt\160\160\001\0044\001\000\212@\145\160\160uu\160\160\001\0045\001\000\213@\145\160\160vv\160\160\001\0046\001\000\214@\145\160\160ww\160\160\001\0047\001\000\215@\145\160\160xx\160\160\001\0048\001\000\216@\145\160\160yy\160\160\001\0049\001\000\217@\145\160\160zz\160\160\001\004:\001\000\218@\145\160\160{{\160\160\001\004;\001\000\219@\145\160\160||\160\160\001\004<\001\000\220@\145\160\160}}\160\160\001\004=\001\000\221@\145\160\160~~\160\160\001\004>\001\000\222@\145\160\160\127\127\160\160\001\004?\001\000\223@\145\160\160\000@\000@\160\160\001\004@\001\000\224@\145\160\160\000A\000A\160\160\001\004A\001\000\225@\145\160\160\000B\000B\160\160\001\004B\001\000\226@\145\160\160\000C\000C\160\160\001\004C\001\000\227@\145\160\160\000D\000D\160\160\001\004D\001\000\228@\145\160\160\000E\000E\160\160\001\004E\001\000\229@\145\160\160\000F\000F\160\160\001\004F\001\000\230@\145\160\160\000G\000G\160\160\001\004G\001\000\231@\145\160\160\000H\000H\160\160\001\004H\001\000\232@\145\160\160\000I\000I\160\160\001\004I\001\000\233@\145\160\160\000J\000J\160\160\001\004J\001\000\234@\145\160\160\000K\000K\160\160\001\004K\001\000\235@\145\160\160\000L\000L\160\160\001\004L\001\000\236@\145\160\160\000M\000M\160\160\001\004M\001\000\237@\145\160\160\000N\000N\160\160\001\004N\001\000\238@\145\160\160\000O\000O\160\160\001\004O\001\000\239@\144\160\000P\000P\145\160\160\000Q\000Q\160\160\001\004Q\001\000\241@\145\160\160\000R\000R\160\160\001\004R\001\000\242@\145\160\160\000S\000S\160\160\001\004S\001\000\243@\145\160\160\000T\000T\160\160\001\004T\001\000\244@\145\160\160\000U\000U\160\160\001\004U\001\000\245@\145\160\160\000V\000V\160\160\001\004V\001\000\246@\145\160\160\000W\000W\160\160\001\004W\001\000\247@\145\160\160\000X\000X\160\160\001\004X\001\000\248@\145\160\160\000Y\000Y\160\160\001\004Y\001\000\249@\145\160\160\000Z\000Z\160\160\001\004Z\001\000\250@\145\160\160\000[\000[\160\160\001\004[\001\000\251@\145\160\160\000\\\000\\\160\160\001\004\\\001\000\252@\144\160\000]\000]\145\160\160\000^\000^\160\160\001\004^\001\000\254@\145\160\160\000_\000_\160\160\001\004_\001\000\255@\144\160\000`\000`\144\160\000a\000a\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127\144\160\001\000\128\001\000\128\144\160\001\000\129\001\000\129\144\160\001\000\130\001\000\130\144\160\001\000\131\001\000\131\144\160\001\000\132\001\000\132\144\160\001\000\133\001\000\133\144\160\001\000\134\001\000\134\144\160\001\000\135\001\000\135\144\160\001\000\136\001\000\136\144\160\001\000\137\001\000\137\144\160\001\000\138\001\000\138\144\160\001\000\139\001\000\139\144\160\001\000\140\001\000\140\144\160\001\000\141\001\000\141\144\160\001\000\142\001\000\142\144\160\001\000\143\001\000\143\144\160\001\000\144\001\000\144\144\160\001\000\145\001\000\145\144\160\001\000\146\001\000\146\144\160\001\000\147\001\000\147\144\160\001\000\148\001\000\148\144\160\001\000\149\001\000\149\144\160\001\000\150\001\000\150\144\160\001\000\151\001\000\151\144\160\001\000\152\001\000\152\144\160\001\000\153\001\000\153\144\160\001\000\154\001\000\154\144\160\001\000\155\001\000\155\144\160\001\000\156\001\000\156\144\160\001\000\157\001\000\157\144\160\001\000\158\001\000\158\144\160\001\000\159\001\000\159\144\160\001\000\160\001\000\160@@@@@@\144\160\001\000\167\001\000\253@@@@@\144\160\001\000\173\001\000\173@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let iso88596_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002\024\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132\001\000\133\001\000\134\001\000\135\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140\001\000\141\001\000\142\001\000\143\001\000\144\001\000\145\001\000\146\001\000\147\001\000\148\001\000\149\001\000\150\001\000\151\001\000\152\001\000\153\001\000\154\001\000\155\001\000\156\001\000\157\001\000\158\001\000\159\001\000\160\000\255\000\255\000\255\001\000\164\000\255\000\255\000\255\000\255\000\255\000\255\000\255\001\006\012\001\000\173\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\001\006\027\000\255\000\255\000\255\001\006\031\000\255\001\006!\001\006\"\001\006#\001\006$\001\006%\001\006&\001\006'\001\006(\001\006)\001\006*\001\006+\001\006,\001\006-\001\006.\001\006/\001\0060\001\0061\001\0062\001\0063\001\0064\001\0065\001\0066\001\0067\001\0068\001\0069\001\006:\000\255\000\255\000\255\000\255\000\255\001\006@\001\006A\001\006B\001\006C\001\006D\001\006E\001\006F\001\006G\001\006H\001\006I\001\006J\001\006K\001\006L\001\006M\001\006N\001\006O\001\006P\001\006Q\001\006R\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255" 0 : int array);;
-let iso88596_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\005\218\000\000\000\000\000\000\005\224\000\000\005\224\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001\006\012\001\000\172@\144\160MM\144\160NN\144\160OO\144\160PP\144\160QQ\144\160RR\144\160SS\144\160TT\144\160UU\144\160VV\144\160WW\144\160XX\144\160YY\144\160ZZ\145\160\160[[\160\160\001\006\027\001\000\187@\144\160\\\\\144\160]]\144\160^^\145\160\160__\160\160\001\006\031\001\000\191@\144\160``\145\160\160aa\160\160\001\006!\001\000\193@\145\160\160bb\160\160\001\006\"\001\000\194@\145\160\160cc\160\160\001\006#\001\000\195@\145\160\160dd\160\160\001\006$\001\000\196@\145\160\160ee\160\160\001\006%\001\000\197@\145\160\160ff\160\160\001\006&\001\000\198@\145\160\160gg\160\160\001\006'\001\000\199@\145\160\160hh\160\160\001\006(\001\000\200@\145\160\160ii\160\160\001\006)\001\000\201@\145\160\160jj\160\160\001\006*\001\000\202@\145\160\160kk\160\160\001\006+\001\000\203@\145\160\160ll\160\160\001\006,\001\000\204@\145\160\160mm\160\160\001\006-\001\000\205@\145\160\160nn\160\160\001\006.\001\000\206@\145\160\160oo\160\160\001\006/\001\000\207@\145\160\160pp\160\160\001\0060\001\000\208@\145\160\160qq\160\160\001\0061\001\000\209@\145\160\160rr\160\160\001\0062\001\000\210@\145\160\160ss\160\160\001\0063\001\000\211@\145\160\160tt\160\160\001\0064\001\000\212@\145\160\160uu\160\160\001\0065\001\000\213@\145\160\160vv\160\160\001\0066\001\000\214@\145\160\160ww\160\160\001\0067\001\000\215@\145\160\160xx\160\160\001\0068\001\000\216@\145\160\160yy\160\160\001\0069\001\000\217@\145\160\160zz\160\160\001\006:\001\000\218@\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\145\160\160\000@\000@\160\160\001\006@\001\000\224@\145\160\160\000A\000A\160\160\001\006A\001\000\225@\145\160\160\000B\000B\160\160\001\006B\001\000\226@\145\160\160\000C\000C\160\160\001\006C\001\000\227@\145\160\160\000D\000D\160\160\001\006D\001\000\228@\145\160\160\000E\000E\160\160\001\006E\001\000\229@\145\160\160\000F\000F\160\160\001\006F\001\000\230@\145\160\160\000G\000G\160\160\001\006G\001\000\231@\145\160\160\000H\000H\160\160\001\006H\001\000\232@\145\160\160\000I\000I\160\160\001\006I\001\000\233@\145\160\160\000J\000J\160\160\001\006J\001\000\234@\145\160\160\000K\000K\160\160\001\006K\001\000\235@\145\160\160\000L\000L\160\160\001\006L\001\000\236@\145\160\160\000M\000M\160\160\001\006M\001\000\237@\145\160\160\000N\000N\160\160\001\006N\001\000\238@\145\160\160\000O\000O\160\160\001\006O\001\000\239@\145\160\160\000P\000P\160\160\001\006P\001\000\240@\145\160\160\000Q\000Q\160\160\001\006Q\001\000\241@\145\160\160\000R\000R\160\160\001\006R\001\000\242@\144\160\000S\000S\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\144\160\000`\000`\144\160\000a\000a\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127\144\160\001\000\128\001\000\128\144\160\001\000\129\001\000\129\144\160\001\000\130\001\000\130\144\160\001\000\131\001\000\131\144\160\001\000\132\001\000\132\144\160\001\000\133\001\000\133\144\160\001\000\134\001\000\134\144\160\001\000\135\001\000\135\144\160\001\000\136\001\000\136\144\160\001\000\137\001\000\137\144\160\001\000\138\001\000\138\144\160\001\000\139\001\000\139\144\160\001\000\140\001\000\140\144\160\001\000\141\001\000\141\144\160\001\000\142\001\000\142\144\160\001\000\143\001\000\143\144\160\001\000\144\001\000\144\144\160\001\000\145\001\000\145\144\160\001\000\146\001\000\146\144\160\001\000\147\001\000\147\144\160\001\000\148\001\000\148\144\160\001\000\149\001\000\149\144\160\001\000\150\001\000\150\144\160\001\000\151\001\000\151\144\160\001\000\152\001\000\152\144\160\001\000\153\001\000\153\144\160\001\000\154\001\000\154\144\160\001\000\155\001\000\155\144\160\001\000\156\001\000\156\144\160\001\000\157\001\000\157\144\160\001\000\158\001\000\158\144\160\001\000\159\001\000\159\144\160\001\000\160\001\000\160@@@\144\160\001\000\164\001\000\164@@@@@@@@\144\160\001\000\173\001\000\173@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let iso88597_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002?\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132\001\000\133\001\000\134\001\000\135\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140\001\000\141\001\000\142\001\000\143\001\000\144\001\000\145\001\000\146\001\000\147\001\000\148\001\000\149\001\000\150\001\000\151\001\000\152\001\000\153\001\000\154\001\000\155\001\000\156\001\000\157\001\000\158\001\000\159\001\000\160\001 \024\001 \025\001\000\163\000\255\000\255\001\000\166\001\000\167\001\000\168\001\000\169\000\255\001\000\171\001\000\172\001\000\173\000\255\001 \021\001\000\176\001\000\177\001\000\178\001\000\179\001\003\132\001\003\133\001\003\134\001\000\183\001\003\136\001\003\137\001\003\138\001\000\187\001\003\140\001\000\189\001\003\142\001\003\143\001\003\144\001\003\145\001\003\146\001\003\147\001\003\148\001\003\149\001\003\150\001\003\151\001\003\152\001\003\153\001\003\154\001\003\155\001\003\156\001\003\157\001\003\158\001\003\159\001\003\160\001\003\161\000\255\001\003\163\001\003\164\001\003\165\001\003\166\001\003\167\001\003\168\001\003\169\001\003\170\001\003\171\001\003\172\001\003\173\001\003\174\001\003\175\001\003\176\001\003\177\001\003\178\001\003\179\001\003\180\001\003\181\001\003\182\001\003\183\001\003\184\001\003\185\001\003\186\001\003\187\001\003\188\001\003\189\001\003\190\001\003\191\001\003\192\001\003\193\001\003\194\001\003\195\001\003\196\001\003\197\001\003\198\001\003\199\001\003\200\001\003\201\001\003\202\001\003\203\001\003\204\001\003\205\001\003\206\000\255" 0 : int array);;
-let iso88597_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\223\000\000\000\000\000\000\006\147\000\000\006\147\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\144\160LL\144\160MM\144\160NN\144\160OO\144\160PP\144\160QQ\144\160RR\144\160SS\144\160TT\145\160\160UU\160\160\001 \021\001\000\175@\144\160VV\144\160WW\145\160\160XX\160\160\001 \024\001\000\161@\145\160\160YY\160\160\001 \025\001\000\162@\144\160ZZ\144\160[[\144\160\\\\\144\160]]\144\160^^\144\160__\144\160``\144\160aa\144\160bb\144\160cc\144\160dd\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\144\160\000R\000R\144\160\000S\000S\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\144\160\000`\000`\144\160\000a\000a\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127\144\160\001\000\128\001\000\128\144\160\001\000\129\001\000\129\144\160\001\000\130\001\000\130\144\160\001\000\131\001\000\131\145\160\160\001\000\132\001\000\132\160\160\001\003\132\001\000\180@\145\160\160\001\000\133\001\000\133\160\160\001\003\133\001\000\181@\145\160\160\001\000\134\001\000\134\160\160\001\003\134\001\000\182@\144\160\001\000\135\001\000\135\145\160\160\001\000\136\001\000\136\160\160\001\003\136\001\000\184@\145\160\160\001\000\137\001\000\137\160\160\001\003\137\001\000\185@\145\160\160\001\000\138\001\000\138\160\160\001\003\138\001\000\186@\144\160\001\000\139\001\000\139\145\160\160\001\000\140\001\000\140\160\160\001\003\140\001\000\188@\144\160\001\000\141\001\000\141\145\160\160\001\000\142\001\000\142\160\160\001\003\142\001\000\190@\145\160\160\001\000\143\001\000\143\160\160\001\003\143\001\000\191@\145\160\160\001\000\144\001\000\144\160\160\001\003\144\001\000\192@\145\160\160\001\000\145\001\000\145\160\160\001\003\145\001\000\193@\145\160\160\001\000\146\001\000\146\160\160\001\003\146\001\000\194@\145\160\160\001\000\147\001\000\147\160\160\001\003\147\001\000\195@\145\160\160\001\000\148\001\000\148\160\160\001\003\148\001\000\196@\145\160\160\001\000\149\001\000\149\160\160\001\003\149\001\000\197@\145\160\160\001\000\150\001\000\150\160\160\001\003\150\001\000\198@\145\160\160\001\000\151\001\000\151\160\160\001\003\151\001\000\199@\145\160\160\001\000\152\001\000\152\160\160\001\003\152\001\000\200@\145\160\160\001\000\153\001\000\153\160\160\001\003\153\001\000\201@\145\160\160\001\000\154\001\000\154\160\160\001\003\154\001\000\202@\145\160\160\001\000\155\001\000\155\160\160\001\003\155\001\000\203@\145\160\160\001\000\156\001\000\156\160\160\001\003\156\001\000\204@\145\160\160\001\000\157\001\000\157\160\160\001\003\157\001\000\205@\145\160\160\001\000\158\001\000\158\160\160\001\003\158\001\000\206@\145\160\160\001\000\159\001\000\159\160\160\001\003\159\001\000\207@\145\160\160\001\000\160\001\000\160\160\160\001\003\160\001\000\208@\144\160\001\003\161\001\000\209@\145\160\160\001\000\163\001\000\163\160\160\001\003\163\001\000\211@\144\160\001\003\164\001\000\212\144\160\001\003\165\001\000\213\145\160\160\001\000\166\001\000\166\160\160\001\003\166\001\000\214@\145\160\160\001\000\167\001\000\167\160\160\001\003\167\001\000\215@\145\160\160\001\000\168\001\000\168\160\160\001\003\168\001\000\216@\145\160\160\001\000\169\001\000\169\160\160\001\003\169\001\000\217@\144\160\001\003\170\001\000\218\145\160\160\001\000\171\001\000\171\160\160\001\003\171\001\000\219@\145\160\160\001\000\172\001\000\172\160\160\001\003\172\001\000\220@\145\160\160\001\000\173\001\000\173\160\160\001\003\173\001\000\221@\144\160\001\003\174\001\000\222\144\160\001\003\175\001\000\223\145\160\160\001\000\176\001\000\176\160\160\001\003\176\001\000\224@\145\160\160\001\000\177\001\000\177\160\160\001\003\177\001\000\225@\145\160\160\001\000\178\001\000\178\160\160\001\003\178\001\000\226@\145\160\160\001\000\179\001\000\179\160\160\001\003\179\001\000\227@\144\160\001\003\180\001\000\228\144\160\001\003\181\001\000\229\144\160\001\003\182\001\000\230\145\160\160\001\000\183\001\000\183\160\160\001\003\183\001\000\231@\144\160\001\003\184\001\000\232\144\160\001\003\185\001\000\233\144\160\001\003\186\001\000\234\145\160\160\001\000\187\001\000\187\160\160\001\003\187\001\000\235@\144\160\001\003\188\001\000\236\145\160\160\001\000\189\001\000\189\160\160\001\003\189\001\000\237@\144\160\001\003\190\001\000\238\144\160\001\003\191\001\000\239\144\160\001\003\192\001\000\240\144\160\001\003\193\001\000\241\144\160\001\003\194\001\000\242\144\160\001\003\195\001\000\243\144\160\001\003\196\001\000\244\144\160\001\003\197\001\000\245\144\160\001\003\198\001\000\246\144\160\001\003\199\001\000\247\144\160\001\003\200\001\000\248\144\160\001\003\201\001\000\249\144\160\001\003\202\001\000\250\144\160\001\003\203\001\000\251\144\160\001\003\204\001\000\252\144\160\001\003\205\001\000\253\144\160\001\003\206\001\000\254@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let iso88598_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002!\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132\001\000\133\001\000\134\001\000\135\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140\001\000\141\001\000\142\001\000\143\001\000\144\001\000\145\001\000\146\001\000\147\001\000\148\001\000\149\001\000\150\001\000\151\001\000\152\001\000\153\001\000\154\001\000\155\001\000\156\001\000\157\001\000\158\001\000\159\001\000\160\000\255\001\000\162\001\000\163\001\000\164\001\000\165\001\000\166\001\000\167\001\000\168\001\000\169\001\000\215\001\000\171\001\000\172\001\000\173\001\000\174\001\000\175\001\000\176\001\000\177\001\000\178\001\000\179\001\000\180\001\000\181\001\000\182\001\000\183\001\000\184\001\000\185\001\000\247\001\000\187\001\000\188\001\000\189\001\000\190\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\001 \023\001\005\208\001\005\209\001\005\210\001\005\211\001\005\212\001\005\213\001\005\214\001\005\215\001\005\216\001\005\217\001\005\218\001\005\219\001\005\220\001\005\221\001\005\222\001\005\223\001\005\224\001\005\225\001\005\226\001\005\227\001\005\228\001\005\229\001\005\230\001\005\231\001\005\232\001\005\233\001\005\234\000\255\000\255\001 \014\001 \015\000\255" 0 : int array);;
-let iso88598_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\005\149\000\000\000\000\000\000\005]\000\000\005]\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\144\160LL\144\160MM\145\160\160NN\160\160\001 \014\001\000\253@\145\160\160OO\160\160\001 \015\001\000\254@\144\160PP\144\160QQ\144\160RR\144\160SS\144\160TT\144\160UU\144\160VV\145\160\160WW\160\160\001 \023\001\000\223@\144\160XX\144\160YY\144\160ZZ\144\160[[\144\160\\\\\144\160]]\144\160^^\144\160__\144\160``\144\160aa\144\160bb\144\160cc\144\160dd\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\144\160\000R\000R\144\160\000S\000S\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\144\160\000`\000`\144\160\000a\000a\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127\144\160\001\000\128\001\000\128\144\160\001\000\129\001\000\129\144\160\001\000\130\001\000\130\144\160\001\000\131\001\000\131\144\160\001\000\132\001\000\132\144\160\001\000\133\001\000\133\144\160\001\000\134\001\000\134\144\160\001\000\135\001\000\135\144\160\001\000\136\001\000\136\144\160\001\000\137\001\000\137\144\160\001\000\138\001\000\138\144\160\001\000\139\001\000\139\144\160\001\000\140\001\000\140\144\160\001\000\141\001\000\141\144\160\001\000\142\001\000\142\144\160\001\000\143\001\000\143\144\160\001\000\144\001\000\144\144\160\001\000\145\001\000\145\144\160\001\000\146\001\000\146\144\160\001\000\147\001\000\147\144\160\001\000\148\001\000\148\144\160\001\000\149\001\000\149\144\160\001\000\150\001\000\150\144\160\001\000\151\001\000\151\144\160\001\000\152\001\000\152\144\160\001\000\153\001\000\153\144\160\001\000\154\001\000\154\144\160\001\000\155\001\000\155\144\160\001\000\156\001\000\156\144\160\001\000\157\001\000\157\144\160\001\000\158\001\000\158\144\160\001\000\159\001\000\159\144\160\001\000\160\001\000\160@\144\160\001\000\162\001\000\162\144\160\001\000\163\001\000\163\144\160\001\000\164\001\000\164\144\160\001\000\165\001\000\165\144\160\001\000\166\001\000\166\144\160\001\000\167\001\000\167\144\160\001\000\168\001\000\168\144\160\001\000\169\001\000\169@\144\160\001\000\171\001\000\171\144\160\001\000\172\001\000\172\144\160\001\000\173\001\000\173\144\160\001\000\174\001\000\174\144\160\001\000\175\001\000\175\144\160\001\000\176\001\000\176\144\160\001\000\177\001\000\177\144\160\001\000\178\001\000\178\144\160\001\000\179\001\000\179\144\160\001\000\180\001\000\180\144\160\001\000\181\001\000\181\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\183\144\160\001\000\184\001\000\184\144\160\001\000\185\001\000\185@\144\160\001\000\187\001\000\187\144\160\001\000\188\001\000\188\144\160\001\000\189\001\000\189\144\160\001\000\190\001\000\190@@@@@@@@@@@@@@@@@\144\160\001\005\208\001\000\224\144\160\001\005\209\001\000\225\144\160\001\005\210\001\000\226\144\160\001\005\211\001\000\227\144\160\001\005\212\001\000\228\144\160\001\005\213\001\000\229\144\160\001\005\214\001\000\230\145\160\160\001\000\215\001\000\170\160\160\001\005\215\001\000\231@\144\160\001\005\216\001\000\232\144\160\001\005\217\001\000\233\144\160\001\005\218\001\000\234\144\160\001\005\219\001\000\235\144\160\001\005\220\001\000\236\144\160\001\005\221\001\000\237\144\160\001\005\222\001\000\238\144\160\001\005\223\001\000\239\144\160\001\005\224\001\000\240\144\160\001\005\225\001\000\241\144\160\001\005\226\001\000\242\144\160\001\005\227\001\000\243\144\160\001\005\228\001\000\244\144\160\001\005\229\001\000\245\144\160\001\005\230\001\000\246\144\160\001\005\231\001\000\247\144\160\001\005\232\001\000\248\144\160\001\005\233\001\000\249\144\160\001\005\234\001\000\250@@@@@@@@@@@@\144\160\001\000\247\001\000\186@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let iso88599_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132\001\000\133\001\000\134\001\000\135\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140\001\000\141\001\000\142\001\000\143\001\000\144\001\000\145\001\000\146\001\000\147\001\000\148\001\000\149\001\000\150\001\000\151\001\000\152\001\000\153\001\000\154\001\000\155\001\000\156\001\000\157\001\000\158\001\000\159\001\000\160\001\000\161\001\000\162\001\000\163\001\000\164\001\000\165\001\000\166\001\000\167\001\000\168\001\000\169\001\000\170\001\000\171\001\000\172\001\000\173\001\000\174\001\000\175\001\000\176\001\000\177\001\000\178\001\000\179\001\000\180\001\000\181\001\000\182\001\000\183\001\000\184\001\000\185\001\000\186\001\000\187\001\000\188\001\000\189\001\000\190\001\000\191\001\000\192\001\000\193\001\000\194\001\000\195\001\000\196\001\000\197\001\000\198\001\000\199\001\000\200\001\000\201\001\000\202\001\000\203\001\000\204\001\000\205\001\000\206\001\000\207\001\001\030\001\000\209\001\000\210\001\000\211\001\000\212\001\000\213\001\000\214\001\000\215\001\000\216\001\000\217\001\000\218\001\000\219\001\000\220\001\0010\001\001^\001\000\223\001\000\224\001\000\225\001\000\226\001\000\227\001\000\228\001\000\229\001\000\230\001\000\231\001\000\232\001\000\233\001\000\234\001\000\235\001\000\236\001\000\237\001\000\238\001\000\239\001\001\031\001\000\241\001\000\242\001\000\243\001\000\244\001\000\245\001\000\246\001\000\247\001\000\248\001\000\249\001\000\250\001\000\251\001\000\252\001\0011\001\001_\001\000\255" 0 : int array);;
-let iso88599_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\151\000\000\000\000\000\000\006\025\000\000\006\025\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\144\160LL\144\160MM\144\160NN\144\160OO\144\160PP\144\160QQ\144\160RR\144\160SS\144\160TT\144\160UU\144\160VV\144\160WW\144\160XX\144\160YY\144\160ZZ\144\160[[\144\160\\\\\144\160]]\145\160\160^^\160\160\001\001\030\001\000\208@\145\160\160__\160\160\001\001\031\001\000\240@\144\160``\144\160aa\144\160bb\144\160cc\144\160dd\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\145\160\160pp\160\160\001\0010\001\000\221@\145\160\160qq\160\160\001\0011\001\000\253@\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\144\160\000R\000R\144\160\000S\000S\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\145\160\160\000^\000^\160\160\001\001^\001\000\222@\145\160\160\000_\000_\160\160\001\001_\001\000\254@\144\160\000`\000`\144\160\000a\000a\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127\144\160\001\000\128\001\000\128\144\160\001\000\129\001\000\129\144\160\001\000\130\001\000\130\144\160\001\000\131\001\000\131\144\160\001\000\132\001\000\132\144\160\001\000\133\001\000\133\144\160\001\000\134\001\000\134\144\160\001\000\135\001\000\135\144\160\001\000\136\001\000\136\144\160\001\000\137\001\000\137\144\160\001\000\138\001\000\138\144\160\001\000\139\001\000\139\144\160\001\000\140\001\000\140\144\160\001\000\141\001\000\141\144\160\001\000\142\001\000\142\144\160\001\000\143\001\000\143\144\160\001\000\144\001\000\144\144\160\001\000\145\001\000\145\144\160\001\000\146\001\000\146\144\160\001\000\147\001\000\147\144\160\001\000\148\001\000\148\144\160\001\000\149\001\000\149\144\160\001\000\150\001\000\150\144\160\001\000\151\001\000\151\144\160\001\000\152\001\000\152\144\160\001\000\153\001\000\153\144\160\001\000\154\001\000\154\144\160\001\000\155\001\000\155\144\160\001\000\156\001\000\156\144\160\001\000\157\001\000\157\144\160\001\000\158\001\000\158\144\160\001\000\159\001\000\159\144\160\001\000\160\001\000\160\144\160\001\000\161\001\000\161\144\160\001\000\162\001\000\162\144\160\001\000\163\001\000\163\144\160\001\000\164\001\000\164\144\160\001\000\165\001\000\165\144\160\001\000\166\001\000\166\144\160\001\000\167\001\000\167\144\160\001\000\168\001\000\168\144\160\001\000\169\001\000\169\144\160\001\000\170\001\000\170\144\160\001\000\171\001\000\171\144\160\001\000\172\001\000\172\144\160\001\000\173\001\000\173\144\160\001\000\174\001\000\174\144\160\001\000\175\001\000\175\144\160\001\000\176\001\000\176\144\160\001\000\177\001\000\177\144\160\001\000\178\001\000\178\144\160\001\000\179\001\000\179\144\160\001\000\180\001\000\180\144\160\001\000\181\001\000\181\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\183\144\160\001\000\184\001\000\184\144\160\001\000\185\001\000\185\144\160\001\000\186\001\000\186\144\160\001\000\187\001\000\187\144\160\001\000\188\001\000\188\144\160\001\000\189\001\000\189\144\160\001\000\190\001\000\190\144\160\001\000\191\001\000\191\144\160\001\000\192\001\000\192\144\160\001\000\193\001\000\193\144\160\001\000\194\001\000\194\144\160\001\000\195\001\000\195\144\160\001\000\196\001\000\196\144\160\001\000\197\001\000\197\144\160\001\000\198\001\000\198\144\160\001\000\199\001\000\199\144\160\001\000\200\001\000\200\144\160\001\000\201\001\000\201\144\160\001\000\202\001\000\202\144\160\001\000\203\001\000\203\144\160\001\000\204\001\000\204\144\160\001\000\205\001\000\205\144\160\001\000\206\001\000\206\144\160\001\000\207\001\000\207@\144\160\001\000\209\001\000\209\144\160\001\000\210\001\000\210\144\160\001\000\211\001\000\211\144\160\001\000\212\001\000\212\144\160\001\000\213\001\000\213\144\160\001\000\214\001\000\214\144\160\001\000\215\001\000\215\144\160\001\000\216\001\000\216\144\160\001\000\217\001\000\217\144\160\001\000\218\001\000\218\144\160\001\000\219\001\000\219\144\160\001\000\220\001\000\220@@\144\160\001\000\223\001\000\223\144\160\001\000\224\001\000\224\144\160\001\000\225\001\000\225\144\160\001\000\226\001\000\226\144\160\001\000\227\001\000\227\144\160\001\000\228\001\000\228\144\160\001\000\229\001\000\229\144\160\001\000\230\001\000\230\144\160\001\000\231\001\000\231\144\160\001\000\232\001\000\232\144\160\001\000\233\001\000\233\144\160\001\000\234\001\000\234\144\160\001\000\235\001\000\235\144\160\001\000\236\001\000\236\144\160\001\000\237\001\000\237\144\160\001\000\238\001\000\238\144\160\001\000\239\001\000\239@\144\160\001\000\241\001\000\241\144\160\001\000\242\001\000\242\144\160\001\000\243\001\000\243\144\160\001\000\244\001\000\244\144\160\001\000\245\001\000\245\144\160\001\000\246\001\000\246\144\160\001\000\247\001\000\247\144\160\001\000\248\001\000\248\144\160\001\000\249\001\000\249\144\160\001\000\250\001\000\250\144\160\001\000\251\001\000\251\144\160\001\000\252\001\000\252@@\144\160\001\000\255\001\000\255" 0 : Netmappings.from_uni_list array);;
- Hashtbl.add Netmappings.to_unicode `Enc_iso88599 iso88599_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_iso88599 iso88599_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_iso88598 iso88598_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_iso88598 iso88598_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_iso88597 iso88597_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_iso88597 iso88597_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_iso88596 iso88596_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_iso88596 iso88596_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_iso88595 iso88595_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_iso88595 iso88595_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_iso88594 iso88594_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_iso88594 iso88594_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_iso88593 iso88593_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_iso88593 iso88593_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_iso88592 iso88592_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_iso88592 iso88592_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_iso885915 iso885915_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_iso885915 iso885915_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_iso885914 iso885914_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_iso885914 iso885914_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_iso885913 iso885913_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_iso885913 iso885913_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_iso885910 iso885910_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_iso885910 iso885910_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_iso88591 iso88591_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_iso88591 iso88591_from_unicode;
-();;

diff --git a/helm/DEVEL/pxp/netstring/netmappings_other.ml b/helm/DEVEL/pxp/netstring/netmappings_other.ml
deleted file mode 100644 (file)
index 57fcb48..0000000
--- a/helm/DEVEL/pxp/netstring/netmappings_other.ml
+++ /dev/null
@@ -1,154 +0,0 @@
-(* WARNING! This is a generated file! *)
-let cp037_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABC\001\000\156I\001\000\134\000\127\001\000\151\001\000\141\001\000\142KLMNOPQRS\001\000\157\001\000\133H\001\000\135XY\001\000\146\001\000\143\\]^_\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132JW[\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140EFG\001\000\144\001\000\145V\001\000\147\001\000\148\001\000\149\001\000\150D\001\000\152\001\000\153\001\000\154\001\000\155TU\001\000\158Z`\001\000\160\001\000\226\001\000\228\001\000\224\001\000\225\001\000\227\001\000\229\001\000\231\001\000\241\001\000\162n|hk\000|f\001\000\233\001\000\234\001\000\235\001\000\232\001\000\237\001\000\238\001\000\239\001\000\236\001\000\223adji{\001\000\172mo\001\000\194\001\000\196\001\000\192\001\000\193\001\000\195\001\000\197\001\000\199\001\000\209\001\000\166le\000_~\127\001\000\248\001\000\201\001\000\202\001\000\203\001\000\200\001\000\205\001\000\206\001\000\207\001\000\204\000`zc\000@g}b\001\000\216\000a\000b\000c\000d\000e\000f\000g\000h\000i\001\000\171\001\000\187\001\000\240\001\000\253\001\000\254\001\000\177\001\000\176\000j\000k\000l\000m\000n\000o\000p\000q\000r\001\000\170\001\000\186\001\000\230\001\000\184\001\000\198\001\000\164\001\000\181\000~\000s\000t\000u\000v\000w\000x\000y\000z\001\000\161\001\000\191\001\000\208\001\000\221\001\000\222\001\000\174\000^\001\000\163\001\000\165\001\000\183\001\000\169\001\000\167\001\000\182\001\000\188\001\000\189\001\000\190\000[\000]\001\000\175\001\000\168\001\000\180\001\000\215\000{\000A\000B\000C\000D\000E\000F\000G\000H\000I\001\000\173\001\000\244\001\000\246\001\000\242\001\000\243\001\000\245\000}\000J\000K\000L\000M\000N\000O\000P\000Q\000R\001\000\185\001\000\251\001\000\252\001\000\249\001\000\250\001\000\255\000\\\001\000\247\000S\000T\000U\000V\000W\000X\000Y\000Z\001\000\178\001\000\212\001\000\214\001\000\210\001\000\211\001\000\213pqrstuvwxy\001\000\179\001\000\219\001\000\220\001\000\217\001\000\218\001\000\159" 0 : int array);;
-let cp037_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\133\000\000\000\000\000\000\006\001\000\000\006\001\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160Dw\144\160Em\144\160Fn\144\160Go\144\160HV\144\160IE\144\160Je\144\160KK\144\160LL\144\160MM\144\160NN\144\160OO\144\160PP\144\160QQ\144\160RR\144\160SS\144\160T|\144\160U}\144\160Vr\144\160Wf\144\160XX\144\160YY\144\160Z\127\144\160[g\144\160\\\\\144\160]]\144\160^^\144\160__\144\160`\000@\144\160a\000Z\144\160b\000\127\144\160c\000{\144\160d\000[\144\160e\000l\144\160f\000P\144\160g\000}\144\160h\000M\144\160i\000]\144\160j\000\\\144\160k\000N\144\160l\000k\144\160m\000`\144\160n\000K\144\160o\000a\144\160p\001\000\240\144\160q\001\000\241\144\160r\001\000\242\144\160s\001\000\243\144\160t\001\000\244\144\160u\001\000\245\144\160v\001\000\246\144\160w\001\000\247\144\160x\001\000\248\144\160y\001\000\249\144\160z\000z\144\160{\000^\144\160|\000L\144\160}\000~\144\160~\000n\144\160\127\000o\144\160\000@\000|\144\160\000A\001\000\193\144\160\000B\001\000\194\144\160\000C\001\000\195\144\160\000D\001\000\196\144\160\000E\001\000\197\144\160\000F\001\000\198\144\160\000G\001\000\199\144\160\000H\001\000\200\144\160\000I\001\000\201\144\160\000J\001\000\209\144\160\000K\001\000\210\144\160\000L\001\000\211\144\160\000M\001\000\212\144\160\000N\001\000\213\144\160\000O\001\000\214\144\160\000P\001\000\215\144\160\000Q\001\000\216\144\160\000R\001\000\217\144\160\000S\001\000\226\144\160\000T\001\000\227\144\160\000U\001\000\228\144\160\000V\001\000\229\144\160\000W\001\000\230\144\160\000X\001\000\231\144\160\000Y\001\000\232\144\160\000Z\001\000\233\144\160\000[\001\000\186\144\160\000\\\001\000\224\144\160\000]\001\000\187\144\160\000^\001\000\176\144\160\000_\000m\144\160\000`\000y\144\160\000a\001\000\129\144\160\000b\001\000\130\144\160\000c\001\000\131\144\160\000d\001\000\132\144\160\000e\001\000\133\144\160\000f\001\000\134\144\160\000g\001\000\135\144\160\000h\001\000\136\144\160\000i\001\000\137\144\160\000j\001\000\145\144\160\000k\001\000\146\144\160\000l\001\000\147\144\160\000m\001\000\148\144\160\000n\001\000\149\144\160\000o\001\000\150\144\160\000p\001\000\151\144\160\000q\001\000\152\144\160\000r\001\000\153\144\160\000s\001\000\162\144\160\000t\001\000\163\144\160\000u\001\000\164\144\160\000v\001\000\165\144\160\000w\001\000\166\144\160\000x\001\000\167\144\160\000y\001\000\168\144\160\000z\001\000\169\144\160\000{\001\000\192\144\160\000|\000O\144\160\000}\001\000\208\144\160\000~\001\000\161\144\160\000\127G\144\160\001\000\128`\144\160\001\000\129a\144\160\001\000\130b\144\160\001\000\131c\144\160\001\000\132d\144\160\001\000\133U\144\160\001\000\134F\144\160\001\000\135W\144\160\001\000\136h\144\160\001\000\137i\144\160\001\000\138j\144\160\001\000\139k\144\160\001\000\140l\144\160\001\000\141I\144\160\001\000\142J\144\160\001\000\143[\144\160\001\000\144p\144\160\001\000\145q\144\160\001\000\146Z\144\160\001\000\147s\144\160\001\000\148t\144\160\001\000\149u\144\160\001\000\150v\144\160\001\000\151H\144\160\001\000\152x\144\160\001\000\153y\144\160\001\000\154z\144\160\001\000\155{\144\160\001\000\156D\144\160\001\000\157T\144\160\001\000\158~\144\160\001\000\159\001\000\255\144\160\001\000\160\000A\144\160\001\000\161\001\000\170\144\160\001\000\162\000J\144\160\001\000\163\001\000\177\144\160\001\000\164\001\000\159\144\160\001\000\165\001\000\178\144\160\001\000\166\000j\144\160\001\000\167\001\000\181\144\160\001\000\168\001\000\189\144\160\001\000\169\001\000\180\144\160\001\000\170\001\000\154\144\160\001\000\171\001\000\138\144\160\001\000\172\000_\144\160\001\000\173\001\000\202\144\160\001\000\174\001\000\175\144\160\001\000\175\001\000\188\144\160\001\000\176\001\000\144\144\160\001\000\177\001\000\143\144\160\001\000\178\001\000\234\144\160\001\000\179\001\000\250\144\160\001\000\180\001\000\190\144\160\001\000\181\001\000\160\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\179\144\160\001\000\184\001\000\157\144\160\001\000\185\001\000\218\144\160\001\000\186\001\000\155\144\160\001\000\187\001\000\139\144\160\001\000\188\001\000\183\144\160\001\000\189\001\000\184\144\160\001\000\190\001\000\185\144\160\001\000\191\001\000\171\144\160\001\000\192\000d\144\160\001\000\193\000e\144\160\001\000\194\000b\144\160\001\000\195\000f\144\160\001\000\196\000c\144\160\001\000\197\000g\144\160\001\000\198\001\000\158\144\160\001\000\199\000h\144\160\001\000\200\000t\144\160\001\000\201\000q\144\160\001\000\202\000r\144\160\001\000\203\000s\144\160\001\000\204\000x\144\160\001\000\205\000u\144\160\001\000\206\000v\144\160\001\000\207\000w\144\160\001\000\208\001\000\172\144\160\001\000\209\000i\144\160\001\000\210\001\000\237\144\160\001\000\211\001\000\238\144\160\001\000\212\001\000\235\144\160\001\000\213\001\000\239\144\160\001\000\214\001\000\236\144\160\001\000\215\001\000\191\144\160\001\000\216\001\000\128\144\160\001\000\217\001\000\253\144\160\001\000\218\001\000\254\144\160\001\000\219\001\000\251\144\160\001\000\220\001\000\252\144\160\001\000\221\001\000\173\144\160\001\000\222\001\000\174\144\160\001\000\223\000Y\144\160\001\000\224\000D\144\160\001\000\225\000E\144\160\001\000\226\000B\144\160\001\000\227\000F\144\160\001\000\228\000C\144\160\001\000\229\000G\144\160\001\000\230\001\000\156\144\160\001\000\231\000H\144\160\001\000\232\000T\144\160\001\000\233\000Q\144\160\001\000\234\000R\144\160\001\000\235\000S\144\160\001\000\236\000X\144\160\001\000\237\000U\144\160\001\000\238\000V\144\160\001\000\239\000W\144\160\001\000\240\001\000\140\144\160\001\000\241\000I\144\160\001\000\242\001\000\205\144\160\001\000\243\001\000\206\144\160\001\000\244\001\000\203\144\160\001\000\245\001\000\207\144\160\001\000\246\001\000\204\144\160\001\000\247\001\000\225\144\160\001\000\248\000p\144\160\001\000\249\001\000\221\144\160\001\000\250\001\000\222\144\160\001\000\251\001\000\219\144\160\001\000\252\001\000\220\144\160\001\000\253\001\000\141\144\160\001\000\254\001\000\142\144\160\001\000\255\001\000\223" 0 : Netmappings.from_uni_list array);;
- let cp1006_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002\228\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132\001\000\133\001\000\134\001\000\135\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140\001\000\141\001\000\142\001\000\143\001\000\144\001\000\145\001\000\146\001\000\147\001\000\148\001\000\149\001\000\150\001\000\151\001\000\152\001\000\153\001\000\154\001\000\155\001\000\156\001\000\157\001\000\158\001\000\159\001\000\160\001\006\240\001\006\241\001\006\242\001\006\243\001\006\244\001\006\245\001\006\246\001\006\247\001\006\248\001\006\249\001\006\012\001\006\027\001\000\173\001\006\031\002\000\000\254\129\002\000\000\254\141\002\000\000\254\142\000\255\002\000\000\254\143\002\000\000\254\145\002\000\000\251V\002\000\000\251X\002\000\000\254\147\002\000\000\254\149\002\000\000\254\151\002\000\000\251f\002\000\000\251h\002\000\000\254\153\002\000\000\254\155\002\000\000\254\157\002\000\000\254\159\002\000\000\251z\002\000\000\251|\002\000\000\254\161\002\000\000\254\163\002\000\000\254\165\002\000\000\254\167\002\000\000\254\169\002\000\000\251\132\002\000\000\254\171\002\000\000\254\173\002\000\000\251\140\002\000\000\254\175\002\000\000\251\138\002\000\000\254\177\002\000\000\254\179\002\000\000\254\181\002\000\000\254\183\002\000\000\254\185\002\000\000\254\187\002\000\000\254\189\002\000\000\254\191\002\000\000\254\193\002\000\000\254\197\002\000\000\254\201\002\000\000\254\202\002\000\000\254\203\002\000\000\254\204\002\000\000\254\205\002\000\000\254\206\002\000\000\254\207\002\000\000\254\208\002\000\000\254\209\002\000\000\254\211\002\000\000\254\213\002\000\000\254\215\002\000\000\254\217\002\000\000\254\219\002\000\000\251\146\002\000\000\251\148\002\000\000\254\221\002\000\000\254\223\002\000\000\254\224\002\000\000\254\225\002\000\000\254\227\002\000\000\251\158\002\000\000\254\229\002\000\000\254\231\002\000\000\254\133\002\000\000\254\237\002\000\000\251\166\002\000\000\251\168\002\000\000\251\169\002\000\000\251\170\002\000\000\254\128\002\000\000\254\137\002\000\000\254\138\002\000\000\254\139\002\000\000\254\241\002\000\000\254\242\002\000\000\254\243\002\000\000\251\176\002\000\000\251\174\002\000\000\254|\002\000\000\254}" 0 : int array);;
-let cp1006_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007\143\000\000\000\000\000\000\006\146\000\000\006\146\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001\006\012\001\000\171@\144\160MM\144\160NN\144\160OO\144\160PP\144\160QQ\144\160RR\144\160SS\144\160TT\144\160UU\144\160VV\144\160WW\144\160XX\144\160YY\144\160ZZ\145\160\160[[\160\160\001\006\027\001\000\172@\144\160\\\\\144\160]]\144\160^^\145\160\160__\160\160\001\006\031\001\000\174@\144\160``\144\160aa\144\160bb\144\160cc\144\160dd\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\144\160\000R\000R\144\160\000S\000S\144\160\000T\000T\144\160\000U\000U\145\160\160\000V\000V\160\160\002\000\000\251V\001\000\181@\144\160\000W\000W\145\160\160\000X\000X\160\160\002\000\000\251X\001\000\182@\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\144\160\000`\000`\144\160\000a\000a\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\145\160\160\000f\000f\160\160\002\000\000\251f\001\000\186@\144\160\000g\000g\145\160\160\000h\000h\160\160\002\000\000\251h\001\000\187@\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\145\160\160\000z\000z\160\160\002\000\000\251z\001\000\192@\144\160\000{\000{\145\160\160\000|\000|\160\160\002\000\000\251|\001\000\193\160\160\002\000\000\254|\001\000\254@\145\160\160\000}\000}\160\160\002\000\000\254}\001\000\255@\144\160\000~\000~\144\160\000\127\000\127\145\160\160\001\000\128\001\000\128\160\160\002\000\000\254\128\001\000\245@\145\160\160\001\000\129\001\000\129\160\160\002\000\000\254\129\001\000\175@\144\160\001\000\130\001\000\130\144\160\001\000\131\001\000\131\145\160\160\001\000\132\001\000\132\160\160\002\000\000\251\132\001\000\199@\145\160\160\001\000\133\001\000\133\160\160\002\000\000\254\133\001\000\239@\144\160\001\000\134\001\000\134\144\160\001\000\135\001\000\135\144\160\001\000\136\001\000\136\145\160\160\001\000\137\001\000\137\160\160\002\000\000\254\137\001\000\246@\145\160\160\001\000\138\001\000\138\160\160\002\000\000\251\138\001\000\204\160\160\002\000\000\254\138\001\000\247@\145\160\160\001\000\139\001\000\139\160\160\002\000\000\254\139\001\000\248@\145\160\160\001\000\140\001\000\140\160\160\002\000\000\251\140\001\000\202@\145\160\160\001\000\141\001\000\141\160\160\002\000\000\254\141\001\000\176@\145\160\160\001\000\142\001\000\142\160\160\002\000\000\254\142\001\000\177@\145\160\160\001\000\143\001\000\143\160\160\002\000\000\254\143\001\000\179@\144\160\001\000\144\001\000\144\145\160\160\001\000\145\001\000\145\160\160\002\000\000\254\145\001\000\180@\145\160\160\001\000\146\001\000\146\160\160\002\000\000\251\146\001\000\229@\145\160\160\001\000\147\001\000\147\160\160\002\000\000\254\147\001\000\183@\145\160\160\001\000\148\001\000\148\160\160\002\000\000\251\148\001\000\230@\145\160\160\001\000\149\001\000\149\160\160\002\000\000\254\149\001\000\184@\144\160\001\000\150\001\000\150\145\160\160\001\000\151\001\000\151\160\160\002\000\000\254\151\001\000\185@\144\160\001\000\152\001\000\152\145\160\160\001\000\153\001\000\153\160\160\002\000\000\254\153\001\000\188@\144\160\001\000\154\001\000\154\145\160\160\001\000\155\001\000\155\160\160\002\000\000\254\155\001\000\189@\144\160\001\000\156\001\000\156\145\160\160\001\000\157\001\000\157\160\160\002\000\000\254\157\001\000\190@\145\160\160\001\000\158\001\000\158\160\160\002\000\000\251\158\001\000\236@\145\160\160\001\000\159\001\000\159\160\160\002\000\000\254\159\001\000\191@\144\160\001\000\160\001\000\160\144\160\002\000\000\254\161\001\000\194@\144\160\002\000\000\254\163\001\000\195@\144\160\002\000\000\254\165\001\000\196\144\160\002\000\000\251\166\001\000\241\144\160\002\000\000\254\167\001\000\197\144\160\002\000\000\251\168\001\000\242\145\160\160\002\000\000\254\169\001\000\198\160\160\002\000\000\251\169\001\000\243@\144\160\002\000\000\251\170\001\000\244\144\160\002\000\000\254\171\001\000\200@\145\160\160\001\000\173\001\000\173\160\160\002\000\000\254\173\001\000\201@\144\160\002\000\000\251\174\001\000\253\144\160\002\000\000\254\175\001\000\203\144\160\002\000\000\251\176\001\000\252\144\160\002\000\000\254\177\001\000\205@\144\160\002\000\000\254\179\001\000\206@\144\160\002\000\000\254\181\001\000\207@\144\160\002\000\000\254\183\001\000\208@\144\160\002\000\000\254\185\001\000\209@\144\160\002\000\000\254\187\001\000\210@\144\160\002\000\000\254\189\001\000\211@\144\160\002\000\000\254\191\001\000\212@\144\160\002\000\000\254\193\001\000\213@@@\144\160\002\000\000\254\197\001\000\214@@@\144\160\002\000\000\254\201\001\000\215\144\160\002\000\000\254\202\001\000\216\144\160\002\000\000\254\203\001\000\217\144\160\002\000\000\254\204\001\000\218\144\160\002\000\000\254\205\001\000\219\144\160\002\000\000\254\206\001\000\220\144\160\002\000\000\254\207\001\000\221\144\160\002\000\000\254\208\001\000\222\144\160\002\000\000\254\209\001\000\223@\144\160\002\000\000\254\211\001\000\224@\144\160\002\000\000\254\213\001\000\225@\144\160\002\000\000\254\215\001\000\226@\144\160\002\000\000\254\217\001\000\227@\144\160\002\000\000\254\219\001\000\228@\144\160\002\000\000\254\221\001\000\231@\144\160\002\000\000\254\223\001\000\232\144\160\002\000\000\254\224\001\000\233\144\160\002\000\000\254\225\001\000\234@\144\160\002\000\000\254\227\001\000\235@\144\160\002\000\000\254\229\001\000\237@\144\160\002\000\000\254\231\001\000\238@@@@@\144\160\002\000\000\254\237\001\000\240@@\144\160\001\006\240\001\000\161\145\160\160\001\006\241\001\000\162\160\160\002\000\000\254\241\001\000\249@\145\160\160\001\006\242\001\000\163\160\160\002\000\000\254\242\001\000\250@\145\160\160\001\006\243\001\000\164\160\160\002\000\000\254\243\001\000\251@\144\160\001\006\244\001\000\165\144\160\001\006\245\001\000\166\144\160\001\006\246\001\000\167\144\160\001\006\247\001\000\168\144\160\001\006\248\001\000\169\144\160\001\006\249\001\000\170@@@@@@" 0 : Netmappings.from_uni_list array);;
- let cp1026_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABC\001\000\156I\001\000\134\000\127\001\000\151\001\000\141\001\000\142KLMNOPQRS\001\000\157\001\000\133H\001\000\135XY\001\000\146\001\000\143\\]^_\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132JW[\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140EFG\001\000\144\001\000\145V\001\000\147\001\000\148\001\000\149\001\000\150D\001\000\152\001\000\153\001\000\154\001\000\155TU\001\000\158Z`\001\000\160\001\000\226\001\000\228\001\000\224\001\000\225\001\000\227\001\000\229\000{\001\000\241\001\000\199n|hkaf\001\000\233\001\000\234\001\000\235\001\000\232\001\000\237\001\000\238\001\000\239\001\000\236\001\000\223\001\001\030\001\0010ji{\000^mo\001\000\194\001\000\196\001\000\192\001\000\193\001\000\195\001\000\197\000[\001\000\209\001\001_le\000_~\127\001\000\248\001\000\201\001\000\202\001\000\203\001\000\200\001\000\205\001\000\206\001\000\207\001\000\204\001\0011z\001\000\214\001\001^g}\001\000\220\001\000\216\000a\000b\000c\000d\000e\000f\000g\000h\000i\001\000\171\001\000\187\000}\000`\001\000\166\001\000\177\001\000\176\000j\000k\000l\000m\000n\000o\000p\000q\000r\001\000\170\001\000\186\001\000\230\001\000\184\001\000\198\001\000\164\001\000\181\001\000\246\000s\000t\000u\000v\000w\000x\000y\000z\001\000\161\001\000\191\000]d\000@\001\000\174\001\000\162\001\000\163\001\000\165\001\000\183\001\000\169\001\000\167\001\000\182\001\000\188\001\000\189\001\000\190\001\000\172\000|\001\000\175\001\000\168\001\000\180\001\000\215\001\000\231\000A\000B\000C\000D\000E\000F\000G\000H\000I\001\000\173\001\000\244\000~\001\000\242\001\000\243\001\000\245\001\001\031\000J\000K\000L\000M\000N\000O\000P\000Q\000R\001\000\185\001\000\251\000\\\001\000\249\001\000\250\001\000\255\001\000\252\001\000\247\000S\000T\000U\000V\000W\000X\000Y\000Z\001\000\178\001\000\212c\001\000\210\001\000\211\001\000\213pqrstuvwxy\001\000\179\001\000\219b\001\000\217\001\000\218\001\000\159" 0 : int array);;
-let cp1026_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\151\000\000\000\000\000\000\006\025\000\000\006\025\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160Dw\144\160Em\144\160Fn\144\160Go\144\160HV\144\160IE\144\160Je\144\160KK\144\160LL\144\160MM\144\160NN\144\160OO\144\160PP\144\160QQ\144\160RR\144\160SS\144\160T|\144\160U}\144\160Vr\144\160Wf\144\160XX\144\160YY\144\160Z\127\144\160[g\144\160\\\\\144\160]]\145\160\160^^\160\160\001\001\030\000Z@\145\160\160__\160\160\001\001\031\001\000\208@\144\160`\000@\144\160a\000O\144\160b\001\000\252\144\160c\001\000\236\144\160d\001\000\173\144\160e\000l\144\160f\000P\144\160g\000}\144\160h\000M\144\160i\000]\144\160j\000\\\144\160k\000N\144\160l\000k\144\160m\000`\144\160n\000K\144\160o\000a\145\160\160\001\0010\000[\160\160p\001\000\240@\145\160\160\001\0011\000y\160\160q\001\000\241@\144\160r\001\000\242\144\160s\001\000\243\144\160t\001\000\244\144\160u\001\000\245\144\160v\001\000\246\144\160w\001\000\247\144\160x\001\000\248\144\160y\001\000\249\144\160z\000z\144\160{\000^\144\160|\000L\144\160}\000~\144\160~\000n\144\160\127\000o\144\160\000@\001\000\174\144\160\000A\001\000\193\144\160\000B\001\000\194\144\160\000C\001\000\195\144\160\000D\001\000\196\144\160\000E\001\000\197\144\160\000F\001\000\198\144\160\000G\001\000\199\144\160\000H\001\000\200\144\160\000I\001\000\201\144\160\000J\001\000\209\144\160\000K\001\000\210\144\160\000L\001\000\211\144\160\000M\001\000\212\144\160\000N\001\000\213\144\160\000O\001\000\214\144\160\000P\001\000\215\144\160\000Q\001\000\216\144\160\000R\001\000\217\144\160\000S\001\000\226\144\160\000T\001\000\227\144\160\000U\001\000\228\144\160\000V\001\000\229\144\160\000W\001\000\230\144\160\000X\001\000\231\144\160\000Y\001\000\232\144\160\000Z\001\000\233\144\160\000[\000h\144\160\000\\\001\000\220\144\160\000]\001\000\172\145\160\160\000^\000_\160\160\001\001^\000|@\145\160\160\001\001_\000j\160\160\000_\000m@\144\160\000`\001\000\141\144\160\000a\001\000\129\144\160\000b\001\000\130\144\160\000c\001\000\131\144\160\000d\001\000\132\144\160\000e\001\000\133\144\160\000f\001\000\134\144\160\000g\001\000\135\144\160\000h\001\000\136\144\160\000i\001\000\137\144\160\000j\001\000\145\144\160\000k\001\000\146\144\160\000l\001\000\147\144\160\000m\001\000\148\144\160\000n\001\000\149\144\160\000o\001\000\150\144\160\000p\001\000\151\144\160\000q\001\000\152\144\160\000r\001\000\153\144\160\000s\001\000\162\144\160\000t\001\000\163\144\160\000u\001\000\164\144\160\000v\001\000\165\144\160\000w\001\000\166\144\160\000x\001\000\167\144\160\000y\001\000\168\144\160\000z\001\000\169\144\160\000{\000H\144\160\000|\001\000\187\144\160\000}\001\000\140\144\160\000~\001\000\204\144\160\000\127G\144\160\001\000\128`\144\160\001\000\129a\144\160\001\000\130b\144\160\001\000\131c\144\160\001\000\132d\144\160\001\000\133U\144\160\001\000\134F\144\160\001\000\135W\144\160\001\000\136h\144\160\001\000\137i\144\160\001\000\138j\144\160\001\000\139k\144\160\001\000\140l\144\160\001\000\141I\144\160\001\000\142J\144\160\001\000\143[\144\160\001\000\144p\144\160\001\000\145q\144\160\001\000\146Z\144\160\001\000\147s\144\160\001\000\148t\144\160\001\000\149u\144\160\001\000\150v\144\160\001\000\151H\144\160\001\000\152x\144\160\001\000\153y\144\160\001\000\154z\144\160\001\000\155{\144\160\001\000\156D\144\160\001\000\157T\144\160\001\000\158~\144\160\001\000\159\001\000\255\144\160\001\000\160\000A\144\160\001\000\161\001\000\170\144\160\001\000\162\001\000\176\144\160\001\000\163\001\000\177\144\160\001\000\164\001\000\159\144\160\001\000\165\001\000\178\144\160\001\000\166\001\000\142\144\160\001\000\167\001\000\181\144\160\001\000\168\001\000\189\144\160\001\000\169\001\000\180\144\160\001\000\170\001\000\154\144\160\001\000\171\001\000\138\144\160\001\000\172\001\000\186\144\160\001\000\173\001\000\202\144\160\001\000\174\001\000\175\144\160\001\000\175\001\000\188\144\160\001\000\176\001\000\144\144\160\001\000\177\001\000\143\144\160\001\000\178\001\000\234\144\160\001\000\179\001\000\250\144\160\001\000\180\001\000\190\144\160\001\000\181\001\000\160\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\179\144\160\001\000\184\001\000\157\144\160\001\000\185\001\000\218\144\160\001\000\186\001\000\155\144\160\001\000\187\001\000\139\144\160\001\000\188\001\000\183\144\160\001\000\189\001\000\184\144\160\001\000\190\001\000\185\144\160\001\000\191\001\000\171\144\160\001\000\192\000d\144\160\001\000\193\000e\144\160\001\000\194\000b\144\160\001\000\195\000f\144\160\001\000\196\000c\144\160\001\000\197\000g\144\160\001\000\198\001\000\158\144\160\001\000\199\000J\144\160\001\000\200\000t\144\160\001\000\201\000q\144\160\001\000\202\000r\144\160\001\000\203\000s\144\160\001\000\204\000x\144\160\001\000\205\000u\144\160\001\000\206\000v\144\160\001\000\207\000w@\144\160\001\000\209\000i\144\160\001\000\210\001\000\237\144\160\001\000\211\001\000\238\144\160\001\000\212\001\000\235\144\160\001\000\213\001\000\239\144\160\001\000\214\000{\144\160\001\000\215\001\000\191\144\160\001\000\216\001\000\128\144\160\001\000\217\001\000\253\144\160\001\000\218\001\000\254\144\160\001\000\219\001\000\251\144\160\001\000\220\000\127@@\144\160\001\000\223\000Y\144\160\001\000\224\000D\144\160\001\000\225\000E\144\160\001\000\226\000B\144\160\001\000\227\000F\144\160\001\000\228\000C\144\160\001\000\229\000G\144\160\001\000\230\001\000\156\144\160\001\000\231\001\000\192\144\160\001\000\232\000T\144\160\001\000\233\000Q\144\160\001\000\234\000R\144\160\001\000\235\000S\144\160\001\000\236\000X\144\160\001\000\237\000U\144\160\001\000\238\000V\144\160\001\000\239\000W@\144\160\001\000\241\000I\144\160\001\000\242\001\000\205\144\160\001\000\243\001\000\206\144\160\001\000\244\001\000\203\144\160\001\000\245\001\000\207\144\160\001\000\246\001\000\161\144\160\001\000\247\001\000\225\144\160\001\000\248\000p\144\160\001\000\249\001\000\221\144\160\001\000\250\001\000\222\144\160\001\000\251\001\000\219\144\160\001\000\252\001\000\224@@\144\160\001\000\255\001\000\223" 0 : Netmappings.from_uni_list array);;
- let cp424_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002\031\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABC\001\000\156I\001\000\134\000\127\001\000\151\001\000\141\001\000\142KLMNOPQRS\001\000\157\001\000\133H\001\000\135XY\001\000\146\001\000\143\\]^_\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132JW[\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140EFG\001\000\144\001\000\145V\001\000\147\001\000\148\001\000\149\001\000\150D\001\000\152\001\000\153\001\000\154\001\000\155TU\001\000\158Z`\001\005\208\001\005\209\001\005\210\001\005\211\001\005\212\001\005\213\001\005\214\001\005\215\001\005\216\001\000\162n|hk\000|f\001\005\217\001\005\218\001\005\219\001\005\220\001\005\221\001\005\222\001\005\223\001\005\224\001\005\225adji{\001\000\172mo\001\005\226\001\005\227\001\005\228\001\005\229\001\005\230\001\005\231\001\005\232\001\005\233\001\000\166le\000_~\127\000\255\001\005\234\000\255\000\255\001\000\160\000\255\000\255\000\255\001 \023\000`zc\000@g}b\000\255\000a\000b\000c\000d\000e\000f\000g\000h\000i\001\000\171\001\000\187\000\255\000\255\000\255\001\000\177\001\000\176\000j\000k\000l\000m\000n\000o\000p\000q\000r\000\255\000\255\000\255\001\000\184\000\255\001\000\164\001\000\181\000~\000s\000t\000u\000v\000w\000x\000y\000z\000\255\000\255\000\255\000\255\000\255\001\000\174\000^\001\000\163\001\000\165\001\000\183\001\000\169\001\000\167\001\000\182\001\000\188\001\000\189\001\000\190\000[\000]\001\000\175\001\000\168\001\000\180\001\000\215\000{\000A\000B\000C\000D\000E\000F\000G\000H\000I\001\000\173\000\255\000\255\000\255\000\255\000\255\000}\000J\000K\000L\000M\000N\000O\000P\000Q\000R\001\000\185\000\255\000\255\000\255\000\255\000\255\000\\\001\000\247\000S\000T\000U\000V\000W\000X\000Y\000Z\001\000\178\000\255\000\255\000\255\000\255\000\255pqrstuvwxy\001\000\179\000\255\000\255\000\255\000\255\001\000\159" 0 : int array);;
-let cp424_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\005\135\000\000\000\000\000\000\005K\000\000\005K\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160Dw\144\160Em\144\160Fn\144\160Go\144\160HV\144\160IE\144\160Je\144\160KK\144\160LL\144\160MM\144\160NN\144\160OO\144\160PP\144\160QQ\144\160RR\144\160SS\144\160T|\144\160U}\144\160Vr\145\160\160Wf\160\160\001 \023\000x@\144\160XX\144\160YY\144\160Z\127\144\160[g\144\160\\\\\144\160]]\144\160^^\144\160__\144\160`\000@\144\160a\000Z\144\160b\000\127\144\160c\000{\144\160d\000[\144\160e\000l\144\160f\000P\144\160g\000}\144\160h\000M\144\160i\000]\144\160j\000\\\144\160k\000N\144\160l\000k\144\160m\000`\144\160n\000K\144\160o\000a\144\160p\001\000\240\144\160q\001\000\241\144\160r\001\000\242\144\160s\001\000\243\144\160t\001\000\244\144\160u\001\000\245\144\160v\001\000\246\144\160w\001\000\247\144\160x\001\000\248\144\160y\001\000\249\144\160z\000z\144\160{\000^\144\160|\000L\144\160}\000~\144\160~\000n\144\160\127\000o\144\160\000@\000|\144\160\000A\001\000\193\144\160\000B\001\000\194\144\160\000C\001\000\195\144\160\000D\001\000\196\144\160\000E\001\000\197\144\160\000F\001\000\198\144\160\000G\001\000\199\144\160\000H\001\000\200\144\160\000I\001\000\201\144\160\000J\001\000\209\144\160\000K\001\000\210\144\160\000L\001\000\211\144\160\000M\001\000\212\144\160\000N\001\000\213\144\160\000O\001\000\214\144\160\000P\001\000\215\144\160\000Q\001\000\216\144\160\000R\001\000\217\144\160\000S\001\000\226\144\160\000T\001\000\227\144\160\000U\001\000\228\144\160\000V\001\000\229\144\160\000W\001\000\230\144\160\000X\001\000\231\144\160\000Y\001\000\232\144\160\000Z\001\000\233\144\160\000[\001\000\186\144\160\000\\\001\000\224\144\160\000]\001\000\187\144\160\000^\001\000\176\144\160\000_\000m\144\160\000`\000y\144\160\000a\001\000\129\144\160\000b\001\000\130\144\160\000c\001\000\131\144\160\000d\001\000\132\144\160\000e\001\000\133\144\160\000f\001\000\134\144\160\000g\001\000\135\144\160\000h\001\000\136\144\160\000i\001\000\137\144\160\000j\001\000\145\144\160\000k\001\000\146\144\160\000l\001\000\147\144\160\000m\001\000\148\144\160\000n\001\000\149\144\160\000o\001\000\150\144\160\000p\001\000\151\144\160\000q\001\000\152\144\160\000r\001\000\153\144\160\000s\001\000\162\144\160\000t\001\000\163\144\160\000u\001\000\164\144\160\000v\001\000\165\144\160\000w\001\000\166\144\160\000x\001\000\167\144\160\000y\001\000\168\144\160\000z\001\000\169\144\160\000{\001\000\192\144\160\000|\000O\144\160\000}\001\000\208\144\160\000~\001\000\161\144\160\000\127G\144\160\001\000\128`\144\160\001\000\129a\144\160\001\000\130b\144\160\001\000\131c\144\160\001\000\132d\144\160\001\000\133U\144\160\001\000\134F\144\160\001\000\135W\144\160\001\000\136h\144\160\001\000\137i\144\160\001\000\138j\144\160\001\000\139k\144\160\001\000\140l\144\160\001\000\141I\144\160\001\000\142J\144\160\001\000\143[\144\160\001\000\144p\144\160\001\000\145q\144\160\001\000\146Z\144\160\001\000\147s\144\160\001\000\148t\144\160\001\000\149u\144\160\001\000\150v\144\160\001\000\151H\144\160\001\000\152x\144\160\001\000\153y\144\160\001\000\154z\144\160\001\000\155{\144\160\001\000\156D\144\160\001\000\157T\144\160\001\000\158~\144\160\001\000\159\001\000\255\144\160\001\000\160\000t@\144\160\001\000\162\000J\144\160\001\000\163\001\000\177\144\160\001\000\164\001\000\159\144\160\001\000\165\001\000\178\144\160\001\000\166\000j\144\160\001\000\167\001\000\181\144\160\001\000\168\001\000\189\144\160\001\000\169\001\000\180@\144\160\001\000\171\001\000\138\144\160\001\000\172\000_\144\160\001\000\173\001\000\202\144\160\001\000\174\001\000\175\144\160\001\000\175\001\000\188\144\160\001\000\176\001\000\144\144\160\001\000\177\001\000\143\144\160\001\000\178\001\000\234\144\160\001\000\179\001\000\250\144\160\001\000\180\001\000\190\144\160\001\000\181\001\000\160\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\179\144\160\001\000\184\001\000\157\144\160\001\000\185\001\000\218@\144\160\001\000\187\001\000\139\144\160\001\000\188\001\000\183\144\160\001\000\189\001\000\184\144\160\001\000\190\001\000\185@@@@@@@@@@@@@@@@@\144\160\001\005\208\000A\144\160\001\005\209\000B\144\160\001\005\210\000C\144\160\001\005\211\000D\144\160\001\005\212\000E\144\160\001\005\213\000F\144\160\001\005\214\000G\145\160\160\001\005\215\000H\160\160\001\000\215\001\000\191@\144\160\001\005\216\000I\144\160\001\005\217\000Q\144\160\001\005\218\000R\144\160\001\005\219\000S\144\160\001\005\220\000T\144\160\001\005\221\000U\144\160\001\005\222\000V\144\160\001\005\223\000W\144\160\001\005\224\000X\144\160\001\005\225\000Y\144\160\001\005\226\000b\144\160\001\005\227\000c\144\160\001\005\228\000d\144\160\001\005\229\000e\144\160\001\005\230\000f\144\160\001\005\231\000g\144\160\001\005\232\000h\144\160\001\005\233\000i\144\160\001\005\234\000q@@@@@@@@@@@@\144\160\001\000\247\001\000\225@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let cp437_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\199\001\000\252\001\000\233\001\000\226\001\000\228\001\000\224\001\000\229\001\000\231\001\000\234\001\000\235\001\000\232\001\000\239\001\000\238\001\000\236\001\000\196\001\000\197\001\000\201\001\000\230\001\000\198\001\000\244\001\000\246\001\000\242\001\000\251\001\000\249\001\000\255\001\000\214\001\000\220\001\000\162\001\000\163\001\000\165\001 \167\001\001\146\001\000\225\001\000\237\001\000\243\001\000\250\001\000\241\001\000\209\001\000\170\001\000\186\001\000\191\001#\016\001\000\172\001\000\189\001\000\188\001\000\161\001\000\171\001\000\187\001%\145\001%\146\001%\147\001%\002\001%$\001%a\001%b\001%V\001%U\001%c\001%Q\001%W\001%]\001%\\\001%[\001%\016\001%\020\001%4\001%,\001%\028\001%\000\001%<\001%^\001%_\001%Z\001%T\001%i\001%f\001%`\001%P\001%l\001%g\001%h\001%d\001%e\001%Y\001%X\001%R\001%S\001%k\001%j\001%\024\001%\012\001%\136\001%\132\001%\140\001%\144\001%\128\001\003\177\001\000\223\001\003\147\001\003\192\001\003\163\001\003\195\001\000\181\001\003\196\001\003\166\001\003\152\001\003\169\001\003\180\001\"\030\001\003\198\001\003\181\001\")\001\"a\001\000\177\001\"e\001\"d\001# \001#!\001\000\247\001\"H\001\000\176\001\"\025\001\000\183\001\"\026\001 \127\001\000\178\001%\160\001\000\160" 0 : int array);;
-let cp437_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\0071\000\000\000\000\000\000\006\229\000\000\006\229\008\000\004\000\000\145\160\160@@\160\160\001%\000\001\000\196@\144\160AA\145\160\160BB\160\160\001%\002\001\000\179@\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001%\012\001\000\218@\144\160MM\144\160NN\144\160OO\145\160\160PP\160\160\001#\016\001\000\169\160\160\001%\016\001\000\191@\144\160QQ\144\160RR\144\160SS\145\160\160TT\160\160\001%\020\001\000\192@\144\160UU\144\160VV\144\160WW\145\160\160XX\160\160\001%\024\001\000\217@\145\160\160YY\160\160\001\"\025\001\000\249@\145\160\160ZZ\160\160\001\"\026\001\000\251@\144\160[[\145\160\160\\\\\160\160\001%\028\001\000\195@\144\160]]\145\160\160^^\160\160\001\"\030\001\000\236@\144\160__\145\160\160``\160\160\001# \001\000\244@\145\160\160aa\160\160\001#!\001\000\245@\144\160bb\144\160cc\145\160\160dd\160\160\001%$\001\000\180@\144\160ee\144\160ff\144\160gg\144\160hh\145\160\160ii\160\160\001\")\001\000\239@\144\160jj\144\160kk\145\160\160ll\160\160\001%,\001\000\194@\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\145\160\160tt\160\160\001%4\001\000\193@\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\145\160\160||\160\160\001%<\001\000\197@\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\145\160\160\000H\000H\160\160\001\"H\001\000\247@\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\145\160\160\000P\000P\160\160\001%P\001\000\205@\145\160\160\000Q\000Q\160\160\001%Q\001\000\186@\145\160\160\000R\000R\160\160\001%R\001\000\213@\145\160\160\000S\000S\160\160\001%S\001\000\214@\145\160\160\000T\000T\160\160\001%T\001\000\201@\145\160\160\000U\000U\160\160\001%U\001\000\184@\145\160\160\000V\000V\160\160\001%V\001\000\183@\145\160\160\000W\000W\160\160\001%W\001\000\187@\145\160\160\000X\000X\160\160\001%X\001\000\212@\145\160\160\000Y\000Y\160\160\001%Y\001\000\211@\145\160\160\000Z\000Z\160\160\001%Z\001\000\200@\145\160\160\000[\000[\160\160\001%[\001\000\190@\145\160\160\000\\\000\\\160\160\001%\\\001\000\189@\145\160\160\000]\000]\160\160\001%]\001\000\188@\145\160\160\000^\000^\160\160\001%^\001\000\198@\145\160\160\000_\000_\160\160\001%_\001\000\199@\145\160\160\000`\000`\160\160\001%`\001\000\204@\145\160\160\000a\000a\160\160\001%a\001\000\181\160\160\001\"a\001\000\240@\145\160\160\000b\000b\160\160\001%b\001\000\182@\145\160\160\000c\000c\160\160\001%c\001\000\185@\145\160\160\000d\000d\160\160\001%d\001\000\209\160\160\001\"d\001\000\243@\145\160\160\000e\000e\160\160\001%e\001\000\210\160\160\001\"e\001\000\242@\145\160\160\000f\000f\160\160\001%f\001\000\203@\145\160\160\000g\000g\160\160\001%g\001\000\207@\145\160\160\000h\000h\160\160\001%h\001\000\208@\145\160\160\000i\000i\160\160\001%i\001\000\202@\145\160\160\000j\000j\160\160\001%j\001\000\216@\145\160\160\000k\000k\160\160\001%k\001\000\215@\145\160\160\000l\000l\160\160\001%l\001\000\206@\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\145\160\160\000\127\000\127\160\160\001 \127\001\000\252@\144\160\001%\128\001\000\223@@@\144\160\001%\132\001\000\220@@@\144\160\001%\136\001\000\219@@@\144\160\001%\140\001\000\221@@@\144\160\001%\144\001\000\222\144\160\001%\145\001\000\176\145\160\160\001\001\146\001\000\159\160\160\001%\146\001\000\177@\145\160\160\001%\147\001\000\178\160\160\001\003\147\001\000\226@@@@@\144\160\001\003\152\001\000\233@@@@@@@\145\160\160\001%\160\001\000\254\160\160\001\000\160\001\000\255@\144\160\001\000\161\001\000\173\144\160\001\000\162\001\000\155\145\160\160\001\000\163\001\000\156\160\160\001\003\163\001\000\228@@\144\160\001\000\165\001\000\157\144\160\001\003\166\001\000\232\144\160\001 \167\001\000\158@\144\160\001\003\169\001\000\234\144\160\001\000\170\001\000\166\144\160\001\000\171\001\000\174\144\160\001\000\172\001\000\170@@@\144\160\001\000\176\001\000\248\145\160\160\001\003\177\001\000\224\160\160\001\000\177\001\000\241@\144\160\001\000\178\001\000\253@\144\160\001\003\180\001\000\235\145\160\160\001\000\181\001\000\230\160\160\001\003\181\001\000\238@@\144\160\001\000\183\001\000\250@@\144\160\001\000\186\001\000\167\144\160\001\000\187\001\000\175\144\160\001\000\188\001\000\172\144\160\001\000\189\001\000\171@\144\160\001\000\191\001\000\168\144\160\001\003\192\001\000\227@@\144\160\001\003\195\001\000\229\145\160\160\001\000\196\001\000\142\160\160\001\003\196\001\000\231@\144\160\001\000\197\001\000\143\145\160\160\001\000\198\001\000\146\160\160\001\003\198\001\000\237@\144\160\001\000\199\001\000\128@\144\160\001\000\201\001\000\144@@@@@@@\144\160\001\000\209\001\000\165@@@@\144\160\001\000\214\001\000\153@@@@@\144\160\001\000\220\001\000\154@@\144\160\001\000\223\001\000\225\144\160\001\000\224\001\000\133\144\160\001\000\225\001\000\160\144\160\001\000\226\001\000\131@\144\160\001\000\228\001\000\132\144\160\001\000\229\001\000\134\144\160\001\000\230\001\000\145\144\160\001\000\231\001\000\135\144\160\001\000\232\001\000\138\144\160\001\000\233\001\000\130\144\160\001\000\234\001\000\136\144\160\001\000\235\001\000\137\144\160\001\000\236\001\000\141\144\160\001\000\237\001\000\161\144\160\001\000\238\001\000\140\144\160\001\000\239\001\000\139@\144\160\001\000\241\001\000\164\144\160\001\000\242\001\000\149\144\160\001\000\243\001\000\162\144\160\001\000\244\001\000\147@\144\160\001\000\246\001\000\148\144\160\001\000\247\001\000\246@\144\160\001\000\249\001\000\151\144\160\001\000\250\001\000\163\144\160\001\000\251\001\000\150\144\160\001\000\252\001\000\129@@\144\160\001\000\255\001\000\152" 0 : Netmappings.from_uni_list array);;
- let cp500_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABC\001\000\156I\001\000\134\000\127\001\000\151\001\000\141\001\000\142KLMNOPQRS\001\000\157\001\000\133H\001\000\135XY\001\000\146\001\000\143\\]^_\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132JW[\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140EFG\001\000\144\001\000\145V\001\000\147\001\000\148\001\000\149\001\000\150D\001\000\152\001\000\153\001\000\154\001\000\155TU\001\000\158Z`\001\000\160\001\000\226\001\000\228\001\000\224\001\000\225\001\000\227\001\000\229\001\000\231\001\000\241\000[n|hkaf\001\000\233\001\000\234\001\000\235\001\000\232\001\000\237\001\000\238\001\000\239\001\000\236\001\000\223\000]dji{\000^mo\001\000\194\001\000\196\001\000\192\001\000\193\001\000\195\001\000\197\001\000\199\001\000\209\001\000\166le\000_~\127\001\000\248\001\000\201\001\000\202\001\000\203\001\000\200\001\000\205\001\000\206\001\000\207\001\000\204\000`zc\000@g}b\001\000\216\000a\000b\000c\000d\000e\000f\000g\000h\000i\001\000\171\001\000\187\001\000\240\001\000\253\001\000\254\001\000\177\001\000\176\000j\000k\000l\000m\000n\000o\000p\000q\000r\001\000\170\001\000\186\001\000\230\001\000\184\001\000\198\001\000\164\001\000\181\000~\000s\000t\000u\000v\000w\000x\000y\000z\001\000\161\001\000\191\001\000\208\001\000\221\001\000\222\001\000\174\001\000\162\001\000\163\001\000\165\001\000\183\001\000\169\001\000\167\001\000\182\001\000\188\001\000\189\001\000\190\001\000\172\000|\001\000\175\001\000\168\001\000\180\001\000\215\000{\000A\000B\000C\000D\000E\000F\000G\000H\000I\001\000\173\001\000\244\001\000\246\001\000\242\001\000\243\001\000\245\000}\000J\000K\000L\000M\000N\000O\000P\000Q\000R\001\000\185\001\000\251\001\000\252\001\000\249\001\000\250\001\000\255\000\\\001\000\247\000S\000T\000U\000V\000W\000X\000Y\000Z\001\000\178\001\000\212\001\000\214\001\000\210\001\000\211\001\000\213pqrstuvwxy\001\000\179\001\000\219\001\000\220\001\000\217\001\000\218\001\000\159" 0 : int array);;
-let cp500_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\133\000\000\000\000\000\000\006\001\000\000\006\001\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160Dw\144\160Em\144\160Fn\144\160Go\144\160HV\144\160IE\144\160Je\144\160KK\144\160LL\144\160MM\144\160NN\144\160OO\144\160PP\144\160QQ\144\160RR\144\160SS\144\160T|\144\160U}\144\160Vr\144\160Wf\144\160XX\144\160YY\144\160Z\127\144\160[g\144\160\\\\\144\160]]\144\160^^\144\160__\144\160`\000@\144\160a\000O\144\160b\000\127\144\160c\000{\144\160d\000[\144\160e\000l\144\160f\000P\144\160g\000}\144\160h\000M\144\160i\000]\144\160j\000\\\144\160k\000N\144\160l\000k\144\160m\000`\144\160n\000K\144\160o\000a\144\160p\001\000\240\144\160q\001\000\241\144\160r\001\000\242\144\160s\001\000\243\144\160t\001\000\244\144\160u\001\000\245\144\160v\001\000\246\144\160w\001\000\247\144\160x\001\000\248\144\160y\001\000\249\144\160z\000z\144\160{\000^\144\160|\000L\144\160}\000~\144\160~\000n\144\160\127\000o\144\160\000@\000|\144\160\000A\001\000\193\144\160\000B\001\000\194\144\160\000C\001\000\195\144\160\000D\001\000\196\144\160\000E\001\000\197\144\160\000F\001\000\198\144\160\000G\001\000\199\144\160\000H\001\000\200\144\160\000I\001\000\201\144\160\000J\001\000\209\144\160\000K\001\000\210\144\160\000L\001\000\211\144\160\000M\001\000\212\144\160\000N\001\000\213\144\160\000O\001\000\214\144\160\000P\001\000\215\144\160\000Q\001\000\216\144\160\000R\001\000\217\144\160\000S\001\000\226\144\160\000T\001\000\227\144\160\000U\001\000\228\144\160\000V\001\000\229\144\160\000W\001\000\230\144\160\000X\001\000\231\144\160\000Y\001\000\232\144\160\000Z\001\000\233\144\160\000[\000J\144\160\000\\\001\000\224\144\160\000]\000Z\144\160\000^\000_\144\160\000_\000m\144\160\000`\000y\144\160\000a\001\000\129\144\160\000b\001\000\130\144\160\000c\001\000\131\144\160\000d\001\000\132\144\160\000e\001\000\133\144\160\000f\001\000\134\144\160\000g\001\000\135\144\160\000h\001\000\136\144\160\000i\001\000\137\144\160\000j\001\000\145\144\160\000k\001\000\146\144\160\000l\001\000\147\144\160\000m\001\000\148\144\160\000n\001\000\149\144\160\000o\001\000\150\144\160\000p\001\000\151\144\160\000q\001\000\152\144\160\000r\001\000\153\144\160\000s\001\000\162\144\160\000t\001\000\163\144\160\000u\001\000\164\144\160\000v\001\000\165\144\160\000w\001\000\166\144\160\000x\001\000\167\144\160\000y\001\000\168\144\160\000z\001\000\169\144\160\000{\001\000\192\144\160\000|\001\000\187\144\160\000}\001\000\208\144\160\000~\001\000\161\144\160\000\127G\144\160\001\000\128`\144\160\001\000\129a\144\160\001\000\130b\144\160\001\000\131c\144\160\001\000\132d\144\160\001\000\133U\144\160\001\000\134F\144\160\001\000\135W\144\160\001\000\136h\144\160\001\000\137i\144\160\001\000\138j\144\160\001\000\139k\144\160\001\000\140l\144\160\001\000\141I\144\160\001\000\142J\144\160\001\000\143[\144\160\001\000\144p\144\160\001\000\145q\144\160\001\000\146Z\144\160\001\000\147s\144\160\001\000\148t\144\160\001\000\149u\144\160\001\000\150v\144\160\001\000\151H\144\160\001\000\152x\144\160\001\000\153y\144\160\001\000\154z\144\160\001\000\155{\144\160\001\000\156D\144\160\001\000\157T\144\160\001\000\158~\144\160\001\000\159\001\000\255\144\160\001\000\160\000A\144\160\001\000\161\001\000\170\144\160\001\000\162\001\000\176\144\160\001\000\163\001\000\177\144\160\001\000\164\001\000\159\144\160\001\000\165\001\000\178\144\160\001\000\166\000j\144\160\001\000\167\001\000\181\144\160\001\000\168\001\000\189\144\160\001\000\169\001\000\180\144\160\001\000\170\001\000\154\144\160\001\000\171\001\000\138\144\160\001\000\172\001\000\186\144\160\001\000\173\001\000\202\144\160\001\000\174\001\000\175\144\160\001\000\175\001\000\188\144\160\001\000\176\001\000\144\144\160\001\000\177\001\000\143\144\160\001\000\178\001\000\234\144\160\001\000\179\001\000\250\144\160\001\000\180\001\000\190\144\160\001\000\181\001\000\160\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\179\144\160\001\000\184\001\000\157\144\160\001\000\185\001\000\218\144\160\001\000\186\001\000\155\144\160\001\000\187\001\000\139\144\160\001\000\188\001\000\183\144\160\001\000\189\001\000\184\144\160\001\000\190\001\000\185\144\160\001\000\191\001\000\171\144\160\001\000\192\000d\144\160\001\000\193\000e\144\160\001\000\194\000b\144\160\001\000\195\000f\144\160\001\000\196\000c\144\160\001\000\197\000g\144\160\001\000\198\001\000\158\144\160\001\000\199\000h\144\160\001\000\200\000t\144\160\001\000\201\000q\144\160\001\000\202\000r\144\160\001\000\203\000s\144\160\001\000\204\000x\144\160\001\000\205\000u\144\160\001\000\206\000v\144\160\001\000\207\000w\144\160\001\000\208\001\000\172\144\160\001\000\209\000i\144\160\001\000\210\001\000\237\144\160\001\000\211\001\000\238\144\160\001\000\212\001\000\235\144\160\001\000\213\001\000\239\144\160\001\000\214\001\000\236\144\160\001\000\215\001\000\191\144\160\001\000\216\001\000\128\144\160\001\000\217\001\000\253\144\160\001\000\218\001\000\254\144\160\001\000\219\001\000\251\144\160\001\000\220\001\000\252\144\160\001\000\221\001\000\173\144\160\001\000\222\001\000\174\144\160\001\000\223\000Y\144\160\001\000\224\000D\144\160\001\000\225\000E\144\160\001\000\226\000B\144\160\001\000\227\000F\144\160\001\000\228\000C\144\160\001\000\229\000G\144\160\001\000\230\001\000\156\144\160\001\000\231\000H\144\160\001\000\232\000T\144\160\001\000\233\000Q\144\160\001\000\234\000R\144\160\001\000\235\000S\144\160\001\000\236\000X\144\160\001\000\237\000U\144\160\001\000\238\000V\144\160\001\000\239\000W\144\160\001\000\240\001\000\140\144\160\001\000\241\000I\144\160\001\000\242\001\000\205\144\160\001\000\243\001\000\206\144\160\001\000\244\001\000\203\144\160\001\000\245\001\000\207\144\160\001\000\246\001\000\204\144\160\001\000\247\001\000\225\144\160\001\000\248\000p\144\160\001\000\249\001\000\221\144\160\001\000\250\001\000\222\144\160\001\000\251\001\000\219\144\160\001\000\252\001\000\220\144\160\001\000\253\001\000\141\144\160\001\000\254\001\000\142\144\160\001\000\255\001\000\223" 0 : Netmappings.from_uni_list array);;
- let cp737_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\003\145\001\003\146\001\003\147\001\003\148\001\003\149\001\003\150\001\003\151\001\003\152\001\003\153\001\003\154\001\003\155\001\003\156\001\003\157\001\003\158\001\003\159\001\003\160\001\003\161\001\003\163\001\003\164\001\003\165\001\003\166\001\003\167\001\003\168\001\003\169\001\003\177\001\003\178\001\003\179\001\003\180\001\003\181\001\003\182\001\003\183\001\003\184\001\003\185\001\003\186\001\003\187\001\003\188\001\003\189\001\003\190\001\003\191\001\003\192\001\003\193\001\003\195\001\003\194\001\003\196\001\003\197\001\003\198\001\003\199\001\003\200\001%\145\001%\146\001%\147\001%\002\001%$\001%a\001%b\001%V\001%U\001%c\001%Q\001%W\001%]\001%\\\001%[\001%\016\001%\020\001%4\001%,\001%\028\001%\000\001%<\001%^\001%_\001%Z\001%T\001%i\001%f\001%`\001%P\001%l\001%g\001%h\001%d\001%e\001%Y\001%X\001%R\001%S\001%k\001%j\001%\024\001%\012\001%\136\001%\132\001%\140\001%\144\001%\128\001\003\201\001\003\172\001\003\173\001\003\174\001\003\202\001\003\175\001\003\204\001\003\205\001\003\203\001\003\206\001\003\134\001\003\136\001\003\137\001\003\138\001\003\140\001\003\142\001\003\143\001\000\177\001\"e\001\"d\001\003\170\001\003\171\001\000\247\001\"H\001\000\176\001\"\025\001\000\183\001\"\026\001 \127\001\000\178\001%\160\001\000\160" 0 : int array);;
-let cp737_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007'\000\000\000\000\000\000\006\216\000\000\006\216\008\000\004\000\000\145\160\160@@\160\160\001%\000\001\000\196@\144\160AA\145\160\160BB\160\160\001%\002\001\000\179@\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001%\012\001\000\218@\144\160MM\144\160NN\144\160OO\145\160\160PP\160\160\001%\016\001\000\191@\144\160QQ\144\160RR\144\160SS\145\160\160TT\160\160\001%\020\001\000\192@\144\160UU\144\160VV\144\160WW\145\160\160XX\160\160\001%\024\001\000\217@\145\160\160YY\160\160\001\"\025\001\000\249@\145\160\160ZZ\160\160\001\"\026\001\000\251@\144\160[[\145\160\160\\\\\160\160\001%\028\001\000\195@\144\160]]\144\160^^\144\160__\144\160``\144\160aa\144\160bb\144\160cc\145\160\160dd\160\160\001%$\001\000\180@\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\145\160\160ll\160\160\001%,\001\000\194@\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\145\160\160tt\160\160\001%4\001\000\193@\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\145\160\160||\160\160\001%<\001\000\197@\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\145\160\160\000H\000H\160\160\001\"H\001\000\247@\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\145\160\160\000P\000P\160\160\001%P\001\000\205@\145\160\160\000Q\000Q\160\160\001%Q\001\000\186@\145\160\160\000R\000R\160\160\001%R\001\000\213@\145\160\160\000S\000S\160\160\001%S\001\000\214@\145\160\160\000T\000T\160\160\001%T\001\000\201@\145\160\160\000U\000U\160\160\001%U\001\000\184@\145\160\160\000V\000V\160\160\001%V\001\000\183@\145\160\160\000W\000W\160\160\001%W\001\000\187@\145\160\160\000X\000X\160\160\001%X\001\000\212@\145\160\160\000Y\000Y\160\160\001%Y\001\000\211@\145\160\160\000Z\000Z\160\160\001%Z\001\000\200@\145\160\160\000[\000[\160\160\001%[\001\000\190@\145\160\160\000\\\000\\\160\160\001%\\\001\000\189@\145\160\160\000]\000]\160\160\001%]\001\000\188@\145\160\160\000^\000^\160\160\001%^\001\000\198@\145\160\160\000_\000_\160\160\001%_\001\000\199@\145\160\160\000`\000`\160\160\001%`\001\000\204@\145\160\160\000a\000a\160\160\001%a\001\000\181@\145\160\160\000b\000b\160\160\001%b\001\000\182@\145\160\160\000c\000c\160\160\001%c\001\000\185@\145\160\160\000d\000d\160\160\001%d\001\000\209\160\160\001\"d\001\000\243@\145\160\160\000e\000e\160\160\001%e\001\000\210\160\160\001\"e\001\000\242@\145\160\160\000f\000f\160\160\001%f\001\000\203@\145\160\160\000g\000g\160\160\001%g\001\000\207@\145\160\160\000h\000h\160\160\001%h\001\000\208@\145\160\160\000i\000i\160\160\001%i\001\000\202@\145\160\160\000j\000j\160\160\001%j\001\000\216@\145\160\160\000k\000k\160\160\001%k\001\000\215@\145\160\160\000l\000l\160\160\001%l\001\000\206@\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\145\160\160\000\127\000\127\160\160\001 \127\001\000\252@\144\160\001%\128\001\000\223@@@\144\160\001%\132\001\000\220@\144\160\001\003\134\001\000\234@\145\160\160\001%\136\001\000\219\160\160\001\003\136\001\000\235@\144\160\001\003\137\001\000\236\144\160\001\003\138\001\000\237@\145\160\160\001%\140\001\000\221\160\160\001\003\140\001\000\238@@\144\160\001\003\142\001\000\239\144\160\001\003\143\001\000\240\144\160\001%\144\001\000\222\145\160\160\001\003\145\001\000\128\160\160\001%\145\001\000\176@\145\160\160\001\003\146\001\000\129\160\160\001%\146\001\000\177@\145\160\160\001\003\147\001\000\130\160\160\001%\147\001\000\178@\144\160\001\003\148\001\000\131\144\160\001\003\149\001\000\132\144\160\001\003\150\001\000\133\144\160\001\003\151\001\000\134\144\160\001\003\152\001\000\135\144\160\001\003\153\001\000\136\144\160\001\003\154\001\000\137\144\160\001\003\155\001\000\138\144\160\001\003\156\001\000\139\144\160\001\003\157\001\000\140\144\160\001\003\158\001\000\141\144\160\001\003\159\001\000\142\145\160\160\001\003\160\001\000\143\160\160\001%\160\001\000\254\160\160\001\000\160\001\000\255@\144\160\001\003\161\001\000\144@\144\160\001\003\163\001\000\145\144\160\001\003\164\001\000\146\144\160\001\003\165\001\000\147\144\160\001\003\166\001\000\148\144\160\001\003\167\001\000\149\144\160\001\003\168\001\000\150\144\160\001\003\169\001\000\151\144\160\001\003\170\001\000\244\144\160\001\003\171\001\000\245\144\160\001\003\172\001\000\225\144\160\001\003\173\001\000\226\144\160\001\003\174\001\000\227\144\160\001\003\175\001\000\229\144\160\001\000\176\001\000\248\145\160\160\001\003\177\001\000\152\160\160\001\000\177\001\000\241@\145\160\160\001\003\178\001\000\153\160\160\001\000\178\001\000\253@\144\160\001\003\179\001\000\154\144\160\001\003\180\001\000\155\144\160\001\003\181\001\000\156\144\160\001\003\182\001\000\157\145\160\160\001\003\183\001\000\158\160\160\001\000\183\001\000\250@\144\160\001\003\184\001\000\159\144\160\001\003\185\001\000\160\144\160\001\003\186\001\000\161\144\160\001\003\187\001\000\162\144\160\001\003\188\001\000\163\144\160\001\003\189\001\000\164\144\160\001\003\190\001\000\165\144\160\001\003\191\001\000\166\144\160\001\003\192\001\000\167\144\160\001\003\193\001\000\168\144\160\001\003\194\001\000\170\144\160\001\003\195\001\000\169\144\160\001\003\196\001\000\171\144\160\001\003\197\001\000\172\144\160\001\003\198\001\000\173\144\160\001\003\199\001\000\174\144\160\001\003\200\001\000\175\144\160\001\003\201\001\000\224\144\160\001\003\202\001\000\228\144\160\001\003\203\001\000\232\144\160\001\003\204\001\000\230\144\160\001\003\205\001\000\231\144\160\001\003\206\001\000\233@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\144\160\001\000\247\001\000\246@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let cp775_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\001\006\001\000\252\001\000\233\001\001\001\001\000\228\001\001#\001\000\229\001\001\007\001\001B\001\001\019\001\001V\001\001W\001\001+\001\001y\001\000\196\001\000\197\001\000\201\001\000\230\001\000\198\001\001M\001\000\246\001\001\"\001\000\162\001\001Z\001\001[\001\000\214\001\000\220\001\000\248\001\000\163\001\000\216\001\000\215\001\000\164\001\001\000\001\001*\001\000\243\001\001{\001\001|\001\001z\001 \029\001\000\166\001\000\169\001\000\174\001\000\172\001\000\189\001\000\188\001\001A\001\000\171\001\000\187\001%\145\001%\146\001%\147\001%\002\001%$\001\001\004\001\001\012\001\001\024\001\001\022\001%c\001%Q\001%W\001%]\001\001.\001\001`\001%\016\001%\020\001%4\001%,\001%\028\001%\000\001%<\001\001r\001\001j\001%Z\001%T\001%i\001%f\001%`\001%P\001%l\001\001}\001\001\005\001\001\013\001\001\025\001\001\023\001\001/\001\001a\001\001s\001\001k\001\001~\001%\024\001%\012\001%\136\001%\132\001%\140\001%\144\001%\128\001\000\211\001\000\223\001\001L\001\001C\001\000\245\001\000\213\001\000\181\001\001D\001\0016\001\0017\001\001;\001\001<\001\001F\001\001\018\001\001E\001 \025\001\000\173\001\000\177\001 \028\001\000\190\001\000\182\001\000\167\001\000\247\001 \030\001\000\176\001\"\025\001\000\183\001\000\185\001\000\179\001\000\178\001%\160\001\000\160" 0 : int array);;
-let cp775_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007U\000\000\000\000\000\000\007\019\000\000\007\019\008\000\004\000\000\145\160\160@@\160\160\001\001\000\001\000\160\160\160\001%\000\001\000\196@\145\160\160AA\160\160\001\001\001\001\000\131@\145\160\160BB\160\160\001%\002\001\000\179@\144\160CC\145\160\160DD\160\160\001\001\004\001\000\181@\145\160\160EE\160\160\001\001\005\001\000\208@\145\160\160FF\160\160\001\001\006\001\000\128@\145\160\160GG\160\160\001\001\007\001\000\135@\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001\001\012\001\000\182\160\160\001%\012\001\000\218@\145\160\160MM\160\160\001\001\013\001\000\209@\144\160NN\144\160OO\145\160\160PP\160\160\001%\016\001\000\191@\144\160QQ\145\160\160RR\160\160\001\001\018\001\000\237@\145\160\160SS\160\160\001\001\019\001\000\137@\145\160\160TT\160\160\001%\020\001\000\192@\144\160UU\145\160\160VV\160\160\001\001\022\001\000\184@\145\160\160WW\160\160\001\001\023\001\000\211@\145\160\160XX\160\160\001\001\024\001\000\183\160\160\001%\024\001\000\217@\145\160\160YY\160\160\001\001\025\001\000\210\160\160\001 \025\001\000\239\160\160\001\"\025\001\000\249@\144\160ZZ\144\160[[\145\160\160\\\\\160\160\001%\028\001\000\195\160\160\001 \028\001\000\242@\145\160\160]]\160\160\001 \029\001\000\166@\145\160\160^^\160\160\001 \030\001\000\247@\144\160__\144\160``\144\160aa\145\160\160bb\160\160\001\001\"\001\000\149@\145\160\160cc\160\160\001\001#\001\000\133@\145\160\160dd\160\160\001%$\001\000\180@\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\145\160\160jj\160\160\001\001*\001\000\161@\145\160\160kk\160\160\001\001+\001\000\140@\145\160\160ll\160\160\001%,\001\000\194@\144\160mm\145\160\160nn\160\160\001\001.\001\000\189@\145\160\160oo\160\160\001\001/\001\000\212@\144\160pp\144\160qq\144\160rr\144\160ss\145\160\160tt\160\160\001%4\001\000\193@\144\160uu\145\160\160vv\160\160\001\0016\001\000\232@\145\160\160ww\160\160\001\0017\001\000\233@\144\160xx\144\160yy\144\160zz\145\160\160{{\160\160\001\001;\001\000\234@\145\160\160||\160\160\001%<\001\000\197\160\160\001\001<\001\000\235@\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\145\160\160\000A\000A\160\160\001\001A\001\000\173@\145\160\160\000B\000B\160\160\001\001B\001\000\136@\145\160\160\000C\000C\160\160\001\001C\001\000\227@\145\160\160\000D\000D\160\160\001\001D\001\000\231@\145\160\160\000E\000E\160\160\001\001E\001\000\238@\145\160\160\000F\000F\160\160\001\001F\001\000\236@\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\145\160\160\000L\000L\160\160\001\001L\001\000\226@\145\160\160\000M\000M\160\160\001\001M\001\000\147@\144\160\000N\000N\144\160\000O\000O\145\160\160\000P\000P\160\160\001%P\001\000\205@\145\160\160\000Q\000Q\160\160\001%Q\001\000\186@\144\160\000R\000R\144\160\000S\000S\145\160\160\000T\000T\160\160\001%T\001\000\201@\144\160\000U\000U\145\160\160\000V\000V\160\160\001\001V\001\000\138@\145\160\160\000W\000W\160\160\001\001W\001\000\139\160\160\001%W\001\000\187@\144\160\000X\000X\144\160\000Y\000Y\145\160\160\000Z\000Z\160\160\001\001Z\001\000\151\160\160\001%Z\001\000\200@\145\160\160\000[\000[\160\160\001\001[\001\000\152@\144\160\000\\\000\\\145\160\160\000]\000]\160\160\001%]\001\000\188@\144\160\000^\000^\144\160\000_\000_\145\160\160\000`\000`\160\160\001\001`\001\000\190\160\160\001%`\001\000\204@\145\160\160\000a\000a\160\160\001\001a\001\000\213@\144\160\000b\000b\145\160\160\000c\000c\160\160\001%c\001\000\185@\144\160\000d\000d\144\160\000e\000e\145\160\160\000f\000f\160\160\001%f\001\000\203@\144\160\000g\000g\144\160\000h\000h\145\160\160\000i\000i\160\160\001%i\001\000\202@\145\160\160\000j\000j\160\160\001\001j\001\000\199@\145\160\160\000k\000k\160\160\001\001k\001\000\215@\145\160\160\000l\000l\160\160\001%l\001\000\206@\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\145\160\160\000r\000r\160\160\001\001r\001\000\198@\145\160\160\000s\000s\160\160\001\001s\001\000\214@\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\145\160\160\000y\000y\160\160\001\001y\001\000\141@\145\160\160\000z\000z\160\160\001\001z\001\000\165@\145\160\160\000{\000{\160\160\001\001{\001\000\163@\145\160\160\000|\000|\160\160\001\001|\001\000\164@\145\160\160\000}\000}\160\160\001\001}\001\000\207@\145\160\160\000~\000~\160\160\001\001~\001\000\216@\144\160\000\127\000\127\144\160\001%\128\001\000\223@@@\144\160\001%\132\001\000\220@@@\144\160\001%\136\001\000\219@@@\144\160\001%\140\001\000\221@@@\144\160\001%\144\001\000\222\144\160\001%\145\001\000\176\144\160\001%\146\001\000\177\144\160\001%\147\001\000\178@@@@@@@@@@@@\145\160\160\001%\160\001\000\254\160\160\001\000\160\001\000\255@@\144\160\001\000\162\001\000\150\144\160\001\000\163\001\000\156\144\160\001\000\164\001\000\159@\144\160\001\000\166\001\000\167\144\160\001\000\167\001\000\245@\144\160\001\000\169\001\000\168@\144\160\001\000\171\001\000\174\144\160\001\000\172\001\000\170\144\160\001\000\173\001\000\240\144\160\001\000\174\001\000\169@\144\160\001\000\176\001\000\248\144\160\001\000\177\001\000\241\144\160\001\000\178\001\000\253\144\160\001\000\179\001\000\252@\144\160\001\000\181\001\000\230\144\160\001\000\182\001\000\244\144\160\001\000\183\001\000\250@\144\160\001\000\185\001\000\251@\144\160\001\000\187\001\000\175\144\160\001\000\188\001\000\172\144\160\001\000\189\001\000\171\144\160\001\000\190\001\000\243@@@@@\144\160\001\000\196\001\000\142\144\160\001\000\197\001\000\143\144\160\001\000\198\001\000\146@@\144\160\001\000\201\001\000\144@@@@@@@@@\144\160\001\000\211\001\000\224@\144\160\001\000\213\001\000\229\144\160\001\000\214\001\000\153\144\160\001\000\215\001\000\158\144\160\001\000\216\001\000\157@@@\144\160\001\000\220\001\000\154@@\144\160\001\000\223\001\000\225@@@@\144\160\001\000\228\001\000\132\144\160\001\000\229\001\000\134\144\160\001\000\230\001\000\145@@\144\160\001\000\233\001\000\130@@@@@@@@@\144\160\001\000\243\001\000\162@\144\160\001\000\245\001\000\228\144\160\001\000\246\001\000\148\144\160\001\000\247\001\000\246\144\160\001\000\248\001\000\155@@@\144\160\001\000\252\001\000\129@@@" 0 : Netmappings.from_uni_list array);;
- let cp850_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\199\001\000\252\001\000\233\001\000\226\001\000\228\001\000\224\001\000\229\001\000\231\001\000\234\001\000\235\001\000\232\001\000\239\001\000\238\001\000\236\001\000\196\001\000\197\001\000\201\001\000\230\001\000\198\001\000\244\001\000\246\001\000\242\001\000\251\001\000\249\001\000\255\001\000\214\001\000\220\001\000\248\001\000\163\001\000\216\001\000\215\001\001\146\001\000\225\001\000\237\001\000\243\001\000\250\001\000\241\001\000\209\001\000\170\001\000\186\001\000\191\001\000\174\001\000\172\001\000\189\001\000\188\001\000\161\001\000\171\001\000\187\001%\145\001%\146\001%\147\001%\002\001%$\001\000\193\001\000\194\001\000\192\001\000\169\001%c\001%Q\001%W\001%]\001\000\162\001\000\165\001%\016\001%\020\001%4\001%,\001%\028\001%\000\001%<\001\000\227\001\000\195\001%Z\001%T\001%i\001%f\001%`\001%P\001%l\001\000\164\001\000\240\001\000\208\001\000\202\001\000\203\001\000\200\001\0011\001\000\205\001\000\206\001\000\207\001%\024\001%\012\001%\136\001%\132\001\000\166\001\000\204\001%\128\001\000\211\001\000\223\001\000\212\001\000\210\001\000\245\001\000\213\001\000\181\001\000\254\001\000\222\001\000\218\001\000\219\001\000\217\001\000\253\001\000\221\001\000\175\001\000\180\001\000\173\001\000\177\001 \023\001\000\190\001\000\182\001\000\167\001\000\247\001\000\184\001\000\176\001\000\168\001\000\183\001\000\185\001\000\179\001\000\178\001%\160\001\000\160" 0 : int array);;
-let cp850_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\211\000\000\000\000\000\000\006i\000\000\006i\008\000\004\000\000\145\160\160@@\160\160\001%\000\001\000\196@\144\160AA\145\160\160BB\160\160\001%\002\001\000\179@\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001%\012\001\000\218@\144\160MM\144\160NN\144\160OO\145\160\160PP\160\160\001%\016\001\000\191@\144\160QQ\144\160RR\144\160SS\145\160\160TT\160\160\001%\020\001\000\192@\144\160UU\144\160VV\145\160\160WW\160\160\001 \023\001\000\242@\145\160\160XX\160\160\001%\024\001\000\217@\144\160YY\144\160ZZ\144\160[[\145\160\160\\\\\160\160\001%\028\001\000\195@\144\160]]\144\160^^\144\160__\144\160``\144\160aa\144\160bb\144\160cc\145\160\160dd\160\160\001%$\001\000\180@\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\145\160\160ll\160\160\001%,\001\000\194@\144\160mm\144\160nn\144\160oo\144\160pp\145\160\160qq\160\160\001\0011\001\000\213@\144\160rr\144\160ss\145\160\160tt\160\160\001%4\001\000\193@\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\145\160\160||\160\160\001%<\001\000\197@\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\145\160\160\000P\000P\160\160\001%P\001\000\205@\145\160\160\000Q\000Q\160\160\001%Q\001\000\186@\144\160\000R\000R\144\160\000S\000S\145\160\160\000T\000T\160\160\001%T\001\000\201@\144\160\000U\000U\144\160\000V\000V\145\160\160\000W\000W\160\160\001%W\001\000\187@\144\160\000X\000X\144\160\000Y\000Y\145\160\160\000Z\000Z\160\160\001%Z\001\000\200@\144\160\000[\000[\144\160\000\\\000\\\145\160\160\000]\000]\160\160\001%]\001\000\188@\144\160\000^\000^\144\160\000_\000_\145\160\160\000`\000`\160\160\001%`\001\000\204@\144\160\000a\000a\144\160\000b\000b\145\160\160\000c\000c\160\160\001%c\001\000\185@\144\160\000d\000d\144\160\000e\000e\145\160\160\000f\000f\160\160\001%f\001\000\203@\144\160\000g\000g\144\160\000h\000h\145\160\160\000i\000i\160\160\001%i\001\000\202@\144\160\000j\000j\144\160\000k\000k\145\160\160\000l\000l\160\160\001%l\001\000\206@\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127\144\160\001%\128\001\000\223@@@\144\160\001%\132\001\000\220@@@\144\160\001%\136\001\000\219@@@@@@@@\144\160\001%\145\001\000\176\145\160\160\001\001\146\001\000\159\160\160\001%\146\001\000\177@\144\160\001%\147\001\000\178@@@@@@@@@@@@\145\160\160\001%\160\001\000\254\160\160\001\000\160\001\000\255@\144\160\001\000\161\001\000\173\144\160\001\000\162\001\000\189\144\160\001\000\163\001\000\156\144\160\001\000\164\001\000\207\144\160\001\000\165\001\000\190\144\160\001\000\166\001\000\221\144\160\001\000\167\001\000\245\144\160\001\000\168\001\000\249\144\160\001\000\169\001\000\184\144\160\001\000\170\001\000\166\144\160\001\000\171\001\000\174\144\160\001\000\172\001\000\170\144\160\001\000\173\001\000\240\144\160\001\000\174\001\000\169\144\160\001\000\175\001\000\238\144\160\001\000\176\001\000\248\144\160\001\000\177\001\000\241\144\160\001\000\178\001\000\253\144\160\001\000\179\001\000\252\144\160\001\000\180\001\000\239\144\160\001\000\181\001\000\230\144\160\001\000\182\001\000\244\144\160\001\000\183\001\000\250\144\160\001\000\184\001\000\247\144\160\001\000\185\001\000\251\144\160\001\000\186\001\000\167\144\160\001\000\187\001\000\175\144\160\001\000\188\001\000\172\144\160\001\000\189\001\000\171\144\160\001\000\190\001\000\243\144\160\001\000\191\001\000\168\144\160\001\000\192\001\000\183\144\160\001\000\193\001\000\181\144\160\001\000\194\001\000\182\144\160\001\000\195\001\000\199\144\160\001\000\196\001\000\142\144\160\001\000\197\001\000\143\144\160\001\000\198\001\000\146\144\160\001\000\199\001\000\128\144\160\001\000\200\001\000\212\144\160\001\000\201\001\000\144\144\160\001\000\202\001\000\210\144\160\001\000\203\001\000\211\144\160\001\000\204\001\000\222\144\160\001\000\205\001\000\214\144\160\001\000\206\001\000\215\144\160\001\000\207\001\000\216\144\160\001\000\208\001\000\209\144\160\001\000\209\001\000\165\144\160\001\000\210\001\000\227\144\160\001\000\211\001\000\224\144\160\001\000\212\001\000\226\144\160\001\000\213\001\000\229\144\160\001\000\214\001\000\153\144\160\001\000\215\001\000\158\144\160\001\000\216\001\000\157\144\160\001\000\217\001\000\235\144\160\001\000\218\001\000\233\144\160\001\000\219\001\000\234\144\160\001\000\220\001\000\154\144\160\001\000\221\001\000\237\144\160\001\000\222\001\000\232\144\160\001\000\223\001\000\225\144\160\001\000\224\001\000\133\144\160\001\000\225\001\000\160\144\160\001\000\226\001\000\131\144\160\001\000\227\001\000\198\144\160\001\000\228\001\000\132\144\160\001\000\229\001\000\134\144\160\001\000\230\001\000\145\144\160\001\000\231\001\000\135\144\160\001\000\232\001\000\138\144\160\001\000\233\001\000\130\144\160\001\000\234\001\000\136\144\160\001\000\235\001\000\137\144\160\001\000\236\001\000\141\144\160\001\000\237\001\000\161\144\160\001\000\238\001\000\140\144\160\001\000\239\001\000\139\144\160\001\000\240\001\000\208\144\160\001\000\241\001\000\164\144\160\001\000\242\001\000\149\144\160\001\000\243\001\000\162\144\160\001\000\244\001\000\147\144\160\001\000\245\001\000\228\144\160\001\000\246\001\000\148\144\160\001\000\247\001\000\246\144\160\001\000\248\001\000\155\144\160\001\000\249\001\000\151\144\160\001\000\250\001\000\163\144\160\001\000\251\001\000\150\144\160\001\000\252\001\000\129\144\160\001\000\253\001\000\236\144\160\001\000\254\001\000\231\144\160\001\000\255\001\000\152" 0 : Netmappings.from_uni_list array);;
- let cp852_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\199\001\000\252\001\000\233\001\000\226\001\000\228\001\001o\001\001\007\001\000\231\001\001B\001\000\235\001\001P\001\001Q\001\000\238\001\001y\001\000\196\001\001\006\001\000\201\001\0019\001\001:\001\000\244\001\000\246\001\001=\001\001>\001\001Z\001\001[\001\000\214\001\000\220\001\001d\001\001e\001\001A\001\000\215\001\001\013\001\000\225\001\000\237\001\000\243\001\000\250\001\001\004\001\001\005\001\001}\001\001~\001\001\024\001\001\025\001\000\172\001\001z\001\001\012\001\001_\001\000\171\001\000\187\001%\145\001%\146\001%\147\001%\002\001%$\001\000\193\001\000\194\001\001\026\001\001^\001%c\001%Q\001%W\001%]\001\001{\001\001|\001%\016\001%\020\001%4\001%,\001%\028\001%\000\001%<\001\001\002\001\001\003\001%Z\001%T\001%i\001%f\001%`\001%P\001%l\001\000\164\001\001\017\001\001\016\001\001\014\001\000\203\001\001\015\001\001G\001\000\205\001\000\206\001\001\027\001%\024\001%\012\001%\136\001%\132\001\001b\001\001n\001%\128\001\000\211\001\000\223\001\000\212\001\001C\001\001D\001\001H\001\001`\001\001a\001\001T\001\000\218\001\001U\001\001p\001\000\253\001\000\221\001\001c\001\000\180\001\000\173\001\002\221\001\002\219\001\002\199\001\002\216\001\000\167\001\000\247\001\000\184\001\000\176\001\000\168\001\002\217\001\001q\001\001X\001\001Y\001%\160\001\000\160" 0 : int array);;
-let cp852_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007X\000\000\000\000\000\000\007\023\000\000\007\023\008\000\004\000\000\145\160\160@@\160\160\001%\000\001\000\196@\144\160AA\145\160\160BB\160\160\001%\002\001\000\179\160\160\001\001\002\001\000\198@\145\160\160CC\160\160\001\001\003\001\000\199@\145\160\160DD\160\160\001\001\004\001\000\164@\145\160\160EE\160\160\001\001\005\001\000\165@\145\160\160FF\160\160\001\001\006\001\000\143@\145\160\160GG\160\160\001\001\007\001\000\134@\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001\001\012\001\000\172\160\160\001%\012\001\000\218@\145\160\160MM\160\160\001\001\013\001\000\159@\145\160\160NN\160\160\001\001\014\001\000\210@\145\160\160OO\160\160\001\001\015\001\000\212@\145\160\160PP\160\160\001%\016\001\000\191\160\160\001\001\016\001\000\209@\145\160\160QQ\160\160\001\001\017\001\000\208@\144\160RR\144\160SS\145\160\160TT\160\160\001%\020\001\000\192@\144\160UU\144\160VV\144\160WW\145\160\160XX\160\160\001\001\024\001\000\168\160\160\001%\024\001\000\217@\145\160\160YY\160\160\001\001\025\001\000\169@\145\160\160ZZ\160\160\001\001\026\001\000\183@\145\160\160[[\160\160\001\001\027\001\000\216@\145\160\160\\\\\160\160\001%\028\001\000\195@\144\160]]\144\160^^\144\160__\144\160``\144\160aa\144\160bb\144\160cc\145\160\160dd\160\160\001%$\001\000\180@\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\145\160\160ll\160\160\001%,\001\000\194@\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\145\160\160tt\160\160\001%4\001\000\193@\144\160uu\144\160vv\144\160ww\144\160xx\145\160\160yy\160\160\001\0019\001\000\145@\145\160\160zz\160\160\001\001:\001\000\146@\144\160{{\145\160\160||\160\160\001%<\001\000\197@\145\160\160}}\160\160\001\001=\001\000\149@\145\160\160~~\160\160\001\001>\001\000\150@\144\160\127\127\144\160\000@\000@\145\160\160\000A\000A\160\160\001\001A\001\000\157@\145\160\160\000B\000B\160\160\001\001B\001\000\136@\145\160\160\000C\000C\160\160\001\001C\001\000\227@\145\160\160\000D\000D\160\160\001\001D\001\000\228@\144\160\000E\000E\144\160\000F\000F\145\160\160\000G\000G\160\160\001\001G\001\000\213@\145\160\160\000H\000H\160\160\001\001H\001\000\229@\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\145\160\160\000P\000P\160\160\001\001P\001\000\138\160\160\001%P\001\000\205@\145\160\160\000Q\000Q\160\160\001\001Q\001\000\139\160\160\001%Q\001\000\186@\144\160\000R\000R\144\160\000S\000S\145\160\160\000T\000T\160\160\001%T\001\000\201\160\160\001\001T\001\000\232@\145\160\160\000U\000U\160\160\001\001U\001\000\234@\144\160\000V\000V\145\160\160\000W\000W\160\160\001%W\001\000\187@\145\160\160\000X\000X\160\160\001\001X\001\000\252@\145\160\160\000Y\000Y\160\160\001\001Y\001\000\253@\145\160\160\000Z\000Z\160\160\001\001Z\001\000\151\160\160\001%Z\001\000\200@\145\160\160\000[\000[\160\160\001\001[\001\000\152@\144\160\000\\\000\\\145\160\160\000]\000]\160\160\001%]\001\000\188@\145\160\160\000^\000^\160\160\001\001^\001\000\184@\145\160\160\000_\000_\160\160\001\001_\001\000\173@\145\160\160\000`\000`\160\160\001%`\001\000\204\160\160\001\001`\001\000\230@\145\160\160\000a\000a\160\160\001\001a\001\000\231@\145\160\160\000b\000b\160\160\001\001b\001\000\221@\145\160\160\000c\000c\160\160\001%c\001\000\185\160\160\001\001c\001\000\238@\145\160\160\000d\000d\160\160\001\001d\001\000\155@\145\160\160\000e\000e\160\160\001\001e\001\000\156@\145\160\160\000f\000f\160\160\001%f\001\000\203@\144\160\000g\000g\144\160\000h\000h\145\160\160\000i\000i\160\160\001%i\001\000\202@\144\160\000j\000j\144\160\000k\000k\145\160\160\000l\000l\160\160\001%l\001\000\206@\144\160\000m\000m\145\160\160\000n\000n\160\160\001\001n\001\000\222@\145\160\160\000o\000o\160\160\001\001o\001\000\133@\145\160\160\000p\000p\160\160\001\001p\001\000\235@\145\160\160\000q\000q\160\160\001\001q\001\000\251@\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\145\160\160\000y\000y\160\160\001\001y\001\000\141@\145\160\160\000z\000z\160\160\001\001z\001\000\171@\145\160\160\000{\000{\160\160\001\001{\001\000\189@\145\160\160\000|\000|\160\160\001\001|\001\000\190@\145\160\160\000}\000}\160\160\001\001}\001\000\166@\145\160\160\000~\000~\160\160\001\001~\001\000\167@\144\160\000\127\000\127\144\160\001%\128\001\000\223@@@\144\160\001%\132\001\000\220@@@\144\160\001%\136\001\000\219@@@@@@@@\144\160\001%\145\001\000\176\144\160\001%\146\001\000\177\144\160\001%\147\001\000\178@@@@@@@@@@@@\145\160\160\001%\160\001\000\254\160\160\001\000\160\001\000\255@@@@\144\160\001\000\164\001\000\207@@\144\160\001\000\167\001\000\245\144\160\001\000\168\001\000\249@@\144\160\001\000\171\001\000\174\144\160\001\000\172\001\000\170\144\160\001\000\173\001\000\240@@\144\160\001\000\176\001\000\248@@@\144\160\001\000\180\001\000\239@@@\144\160\001\000\184\001\000\247@@\144\160\001\000\187\001\000\175@@@@@\144\160\001\000\193\001\000\181\144\160\001\000\194\001\000\182@\144\160\001\000\196\001\000\142@@\145\160\160\001\000\199\001\000\128\160\160\001\002\199\001\000\243@@\144\160\001\000\201\001\000\144@\144\160\001\000\203\001\000\211@\144\160\001\000\205\001\000\214\144\160\001\000\206\001\000\215@@@@\144\160\001\000\211\001\000\224\144\160\001\000\212\001\000\226@\144\160\001\000\214\001\000\153\144\160\001\000\215\001\000\158\144\160\001\002\216\001\000\244\144\160\001\002\217\001\000\250\144\160\001\000\218\001\000\233\144\160\001\002\219\001\000\242\144\160\001\000\220\001\000\154\145\160\160\001\000\221\001\000\237\160\160\001\002\221\001\000\241@@\144\160\001\000\223\001\000\225@\144\160\001\000\225\001\000\160\144\160\001\000\226\001\000\131@\144\160\001\000\228\001\000\132@@\144\160\001\000\231\001\000\135@\144\160\001\000\233\001\000\130@\144\160\001\000\235\001\000\137@\144\160\001\000\237\001\000\161\144\160\001\000\238\001\000\140@@@@\144\160\001\000\243\001\000\162\144\160\001\000\244\001\000\147@\144\160\001\000\246\001\000\148\144\160\001\000\247\001\000\246@@\144\160\001\000\250\001\000\163@\144\160\001\000\252\001\000\129\144\160\001\000\253\001\000\236@@" 0 : Netmappings.from_uni_list array);;
- let cp855_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\004R\001\004\002\001\004S\001\004\003\001\004Q\001\004\001\001\004T\001\004\004\001\004U\001\004\005\001\004V\001\004\006\001\004W\001\004\007\001\004X\001\004\008\001\004Y\001\004\t\001\004Z\001\004\n\001\004[\001\004\011\001\004\\\001\004\012\001\004^\001\004\014\001\004_\001\004\015\001\004N\001\004.\001\004J\001\004*\001\0040\001\004\016\001\0041\001\004\017\001\004F\001\004&\001\0044\001\004\020\001\0045\001\004\021\001\004D\001\004$\001\0043\001\004\019\001\000\171\001\000\187\001%\145\001%\146\001%\147\001%\002\001%$\001\004E\001\004%\001\0048\001\004\024\001%c\001%Q\001%W\001%]\001\0049\001\004\025\001%\016\001%\020\001%4\001%,\001%\028\001%\000\001%<\001\004:\001\004\026\001%Z\001%T\001%i\001%f\001%`\001%P\001%l\001\000\164\001\004;\001\004\027\001\004<\001\004\028\001\004=\001\004\029\001\004>\001\004\030\001\004?\001%\024\001%\012\001%\136\001%\132\001\004\031\001\004O\001%\128\001\004/\001\004@\001\004 \001\004A\001\004!\001\004B\001\004\"\001\004C\001\004#\001\0046\001\004\022\001\0042\001\004\018\001\004L\001\004,\001!\022\001\000\173\001\004K\001\004+\001\0047\001\004\023\001\004H\001\004(\001\004M\001\004-\001\004I\001\004)\001\004G\001\004'\001\000\167\001%\160\001\000\160" 0 : int array);;
-let cp855_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007\195\000\000\000\000\000\000\007\164\000\000\007\164\008\000\004\000\000\145\160\160@@\160\160\001%\000\001\000\196@\145\160\160AA\160\160\001\004\001\001\000\133@\145\160\160BB\160\160\001\004\002\001\000\129\160\160\001%\002\001\000\179@\145\160\160CC\160\160\001\004\003\001\000\131@\145\160\160DD\160\160\001\004\004\001\000\135@\145\160\160EE\160\160\001\004\005\001\000\137@\145\160\160FF\160\160\001\004\006\001\000\139@\145\160\160GG\160\160\001\004\007\001\000\141@\145\160\160HH\160\160\001\004\008\001\000\143@\145\160\160II\160\160\001\004\t\001\000\145@\145\160\160JJ\160\160\001\004\n\001\000\147@\145\160\160KK\160\160\001\004\011\001\000\149@\145\160\160LL\160\160\001\004\012\001\000\151\160\160\001%\012\001\000\218@\144\160MM\145\160\160NN\160\160\001\004\014\001\000\153@\145\160\160OO\160\160\001\004\015\001\000\155@\145\160\160PP\160\160\001\004\016\001\000\161\160\160\001%\016\001\000\191@\145\160\160QQ\160\160\001\004\017\001\000\163@\145\160\160RR\160\160\001\004\018\001\000\236@\145\160\160SS\160\160\001\004\019\001\000\173@\145\160\160TT\160\160\001\004\020\001\000\167\160\160\001%\020\001\000\192@\145\160\160UU\160\160\001\004\021\001\000\169@\145\160\160VV\160\160\001\004\022\001\000\234\160\160\001!\022\001\000\239@\145\160\160WW\160\160\001\004\023\001\000\244@\145\160\160XX\160\160\001\004\024\001\000\184\160\160\001%\024\001\000\217@\145\160\160YY\160\160\001\004\025\001\000\190@\145\160\160ZZ\160\160\001\004\026\001\000\199@\145\160\160[[\160\160\001\004\027\001\000\209@\145\160\160\\\\\160\160\001%\028\001\000\195\160\160\001\004\028\001\000\211@\145\160\160]]\160\160\001\004\029\001\000\213@\145\160\160^^\160\160\001\004\030\001\000\215@\145\160\160__\160\160\001\004\031\001\000\221@\145\160\160``\160\160\001\004 \001\000\226@\145\160\160aa\160\160\001\004!\001\000\228@\145\160\160bb\160\160\001\004\"\001\000\230@\145\160\160cc\160\160\001\004#\001\000\232@\145\160\160dd\160\160\001\004$\001\000\171\160\160\001%$\001\000\180@\145\160\160ee\160\160\001\004%\001\000\182@\145\160\160ff\160\160\001\004&\001\000\165@\145\160\160gg\160\160\001\004'\001\000\252@\145\160\160hh\160\160\001\004(\001\000\246@\145\160\160ii\160\160\001\004)\001\000\250@\145\160\160jj\160\160\001\004*\001\000\159@\145\160\160kk\160\160\001\004+\001\000\242@\145\160\160ll\160\160\001%,\001\000\194\160\160\001\004,\001\000\238@\145\160\160mm\160\160\001\004-\001\000\248@\145\160\160nn\160\160\001\004.\001\000\157@\145\160\160oo\160\160\001\004/\001\000\224@\145\160\160pp\160\160\001\0040\001\000\160@\145\160\160qq\160\160\001\0041\001\000\162@\145\160\160rr\160\160\001\0042\001\000\235@\145\160\160ss\160\160\001\0043\001\000\172@\145\160\160tt\160\160\001\0044\001\000\166\160\160\001%4\001\000\193@\145\160\160uu\160\160\001\0045\001\000\168@\145\160\160vv\160\160\001\0046\001\000\233@\145\160\160ww\160\160\001\0047\001\000\243@\145\160\160xx\160\160\001\0048\001\000\183@\145\160\160yy\160\160\001\0049\001\000\189@\145\160\160zz\160\160\001\004:\001\000\198@\145\160\160{{\160\160\001\004;\001\000\208@\145\160\160||\160\160\001%<\001\000\197\160\160\001\004<\001\000\210@\145\160\160}}\160\160\001\004=\001\000\212@\145\160\160~~\160\160\001\004>\001\000\214@\145\160\160\127\127\160\160\001\004?\001\000\216@\145\160\160\000@\000@\160\160\001\004@\001\000\225@\145\160\160\000A\000A\160\160\001\004A\001\000\227@\145\160\160\000B\000B\160\160\001\004B\001\000\229@\145\160\160\000C\000C\160\160\001\004C\001\000\231@\145\160\160\000D\000D\160\160\001\004D\001\000\170@\145\160\160\000E\000E\160\160\001\004E\001\000\181@\145\160\160\000F\000F\160\160\001\004F\001\000\164@\145\160\160\000G\000G\160\160\001\004G\001\000\251@\145\160\160\000H\000H\160\160\001\004H\001\000\245@\145\160\160\000I\000I\160\160\001\004I\001\000\249@\145\160\160\000J\000J\160\160\001\004J\001\000\158@\145\160\160\000K\000K\160\160\001\004K\001\000\241@\145\160\160\000L\000L\160\160\001\004L\001\000\237@\145\160\160\000M\000M\160\160\001\004M\001\000\247@\145\160\160\000N\000N\160\160\001\004N\001\000\156@\145\160\160\000O\000O\160\160\001\004O\001\000\222@\145\160\160\000P\000P\160\160\001%P\001\000\205@\145\160\160\000Q\000Q\160\160\001\004Q\001\000\132\160\160\001%Q\001\000\186@\145\160\160\000R\000R\160\160\001\004R\001\000\128@\145\160\160\000S\000S\160\160\001\004S\001\000\130@\145\160\160\000T\000T\160\160\001\004T\001\000\134\160\160\001%T\001\000\201@\145\160\160\000U\000U\160\160\001\004U\001\000\136@\145\160\160\000V\000V\160\160\001\004V\001\000\138@\145\160\160\000W\000W\160\160\001\004W\001\000\140\160\160\001%W\001\000\187@\145\160\160\000X\000X\160\160\001\004X\001\000\142@\145\160\160\000Y\000Y\160\160\001\004Y\001\000\144@\145\160\160\000Z\000Z\160\160\001\004Z\001\000\146\160\160\001%Z\001\000\200@\145\160\160\000[\000[\160\160\001\004[\001\000\148@\145\160\160\000\\\000\\\160\160\001\004\\\001\000\150@\145\160\160\000]\000]\160\160\001%]\001\000\188@\145\160\160\000^\000^\160\160\001\004^\001\000\152@\145\160\160\000_\000_\160\160\001\004_\001\000\154@\145\160\160\000`\000`\160\160\001%`\001\000\204@\144\160\000a\000a\144\160\000b\000b\145\160\160\000c\000c\160\160\001%c\001\000\185@\144\160\000d\000d\144\160\000e\000e\145\160\160\000f\000f\160\160\001%f\001\000\203@\144\160\000g\000g\144\160\000h\000h\145\160\160\000i\000i\160\160\001%i\001\000\202@\144\160\000j\000j\144\160\000k\000k\145\160\160\000l\000l\160\160\001%l\001\000\206@\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127\144\160\001%\128\001\000\223@@@\144\160\001%\132\001\000\220@@@\144\160\001%\136\001\000\219@@@@@@@@\144\160\001%\145\001\000\176\144\160\001%\146\001\000\177\144\160\001%\147\001\000\178@@@@@@@@@@@@\145\160\160\001%\160\001\000\254\160\160\001\000\160\001\000\255@@@@\144\160\001\000\164\001\000\207@@\144\160\001\000\167\001\000\253@@@\144\160\001\000\171\001\000\174@\144\160\001\000\173\001\000\240@@@@@@@@@@@@@\144\160\001\000\187\001\000\175@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let cp856_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002\028\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\005\208\001\005\209\001\005\210\001\005\211\001\005\212\001\005\213\001\005\214\001\005\215\001\005\216\001\005\217\001\005\218\001\005\219\001\005\220\001\005\221\001\005\222\001\005\223\001\005\224\001\005\225\001\005\226\001\005\227\001\005\228\001\005\229\001\005\230\001\005\231\001\005\232\001\005\233\001\005\234\000\255\001\000\163\000\255\001\000\215\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\001\000\174\001\000\172\001\000\189\001\000\188\000\255\001\000\171\001\000\187\001%\145\001%\146\001%\147\001%\002\001%$\000\255\000\255\000\255\001\000\169\001%c\001%Q\001%W\001%]\001\000\162\001\000\165\001%\016\001%\020\001%4\001%,\001%\028\001%\000\001%<\000\255\000\255\001%Z\001%T\001%i\001%f\001%`\001%P\001%l\001\000\164\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\001%\024\001%\012\001%\136\001%\132\001\000\166\000\255\001%\128\000\255\000\255\000\255\000\255\000\255\000\255\001\000\181\000\255\000\255\000\255\000\255\000\255\000\255\000\255\001\000\175\001\000\180\001\000\173\001\000\177\001 \023\001\000\190\001\000\182\001\000\167\001\000\247\001\000\184\001\000\176\001\000\168\001\000\183\001\000\185\001\000\179\001\000\178\001%\160\001\000\160" 0 : int array);;
-let cp856_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\005\177\000\000\000\000\000\000\005\152\000\000\005\152\008\000\004\000\000\145\160\160@@\160\160\001%\000\001\000\196@\144\160AA\145\160\160BB\160\160\001%\002\001\000\179@\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001%\012\001\000\218@\144\160MM\144\160NN\144\160OO\145\160\160PP\160\160\001%\016\001\000\191@\144\160QQ\144\160RR\144\160SS\145\160\160TT\160\160\001%\020\001\000\192@\144\160UU\144\160VV\145\160\160WW\160\160\001 \023\001\000\242@\145\160\160XX\160\160\001%\024\001\000\217@\144\160YY\144\160ZZ\144\160[[\145\160\160\\\\\160\160\001%\028\001\000\195@\144\160]]\144\160^^\144\160__\144\160``\144\160aa\144\160bb\144\160cc\145\160\160dd\160\160\001%$\001\000\180@\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\145\160\160ll\160\160\001%,\001\000\194@\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\145\160\160tt\160\160\001%4\001\000\193@\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\145\160\160||\160\160\001%<\001\000\197@\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\145\160\160\000P\000P\160\160\001%P\001\000\205@\145\160\160\000Q\000Q\160\160\001%Q\001\000\186@\144\160\000R\000R\144\160\000S\000S\145\160\160\000T\000T\160\160\001%T\001\000\201@\144\160\000U\000U\144\160\000V\000V\145\160\160\000W\000W\160\160\001%W\001\000\187@\144\160\000X\000X\144\160\000Y\000Y\145\160\160\000Z\000Z\160\160\001%Z\001\000\200@\144\160\000[\000[\144\160\000\\\000\\\145\160\160\000]\000]\160\160\001%]\001\000\188@\144\160\000^\000^\144\160\000_\000_\145\160\160\000`\000`\160\160\001%`\001\000\204@\144\160\000a\000a\144\160\000b\000b\145\160\160\000c\000c\160\160\001%c\001\000\185@\144\160\000d\000d\144\160\000e\000e\145\160\160\000f\000f\160\160\001%f\001\000\203@\144\160\000g\000g\144\160\000h\000h\145\160\160\000i\000i\160\160\001%i\001\000\202@\144\160\000j\000j\144\160\000k\000k\145\160\160\000l\000l\160\160\001%l\001\000\206@\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127\144\160\001%\128\001\000\223@@@\144\160\001%\132\001\000\220@@@\144\160\001%\136\001\000\219@@@@@@@@\144\160\001%\145\001\000\176\144\160\001%\146\001\000\177\144\160\001%\147\001\000\178@@@@@@@@@@@@\145\160\160\001%\160\001\000\254\160\160\001\000\160\001\000\255@@\144\160\001\000\162\001\000\189\144\160\001\000\163\001\000\156\144\160\001\000\164\001\000\207\144\160\001\000\165\001\000\190\144\160\001\000\166\001\000\221\144\160\001\000\167\001\000\245\144\160\001\000\168\001\000\249\144\160\001\000\169\001\000\184@\144\160\001\000\171\001\000\174\144\160\001\000\172\001\000\170\144\160\001\000\173\001\000\240\144\160\001\000\174\001\000\169\144\160\001\000\175\001\000\238\144\160\001\000\176\001\000\248\144\160\001\000\177\001\000\241\144\160\001\000\178\001\000\253\144\160\001\000\179\001\000\252\144\160\001\000\180\001\000\239\144\160\001\000\181\001\000\230\144\160\001\000\182\001\000\244\144\160\001\000\183\001\000\250\144\160\001\000\184\001\000\247\144\160\001\000\185\001\000\251@\144\160\001\000\187\001\000\175\144\160\001\000\188\001\000\172\144\160\001\000\189\001\000\171\144\160\001\000\190\001\000\243@@@@@@@@@@@@@@@@@\144\160\001\005\208\001\000\128\144\160\001\005\209\001\000\129\144\160\001\005\210\001\000\130\144\160\001\005\211\001\000\131\144\160\001\005\212\001\000\132\144\160\001\005\213\001\000\133\144\160\001\005\214\001\000\134\145\160\160\001\005\215\001\000\135\160\160\001\000\215\001\000\158@\144\160\001\005\216\001\000\136\144\160\001\005\217\001\000\137\144\160\001\005\218\001\000\138\144\160\001\005\219\001\000\139\144\160\001\005\220\001\000\140\144\160\001\005\221\001\000\141\144\160\001\005\222\001\000\142\144\160\001\005\223\001\000\143\144\160\001\005\224\001\000\144\144\160\001\005\225\001\000\145\144\160\001\005\226\001\000\146\144\160\001\005\227\001\000\147\144\160\001\005\228\001\000\148\144\160\001\005\229\001\000\149\144\160\001\005\230\001\000\150\144\160\001\005\231\001\000\151\144\160\001\005\232\001\000\152\144\160\001\005\233\001\000\153\144\160\001\005\234\001\000\154@@@@@@@@@@@@\144\160\001\000\247\001\000\246@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let cp857_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002B\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\199\001\000\252\001\000\233\001\000\226\001\000\228\001\000\224\001\000\229\001\000\231\001\000\234\001\000\235\001\000\232\001\000\239\001\000\238\001\0011\001\000\196\001\000\197\001\000\201\001\000\230\001\000\198\001\000\244\001\000\246\001\000\242\001\000\251\001\000\249\001\0010\001\000\214\001\000\220\001\000\248\001\000\163\001\000\216\001\001^\001\001_\001\000\225\001\000\237\001\000\243\001\000\250\001\000\241\001\000\209\001\001\030\001\001\031\001\000\191\001\000\174\001\000\172\001\000\189\001\000\188\001\000\161\001\000\171\001\000\187\001%\145\001%\146\001%\147\001%\002\001%$\001\000\193\001\000\194\001\000\192\001\000\169\001%c\001%Q\001%W\001%]\001\000\162\001\000\165\001%\016\001%\020\001%4\001%,\001%\028\001%\000\001%<\001\000\227\001\000\195\001%Z\001%T\001%i\001%f\001%`\001%P\001%l\001\000\164\001\000\186\001\000\170\001\000\202\001\000\203\001\000\200\000\255\001\000\205\001\000\206\001\000\207\001%\024\001%\012\001%\136\001%\132\001\000\166\001\000\204\001%\128\001\000\211\001\000\223\001\000\212\001\000\210\001\000\245\001\000\213\001\000\181\000\255\001\000\215\001\000\218\001\000\219\001\000\217\001\000\236\001\000\255\001\000\175\001\000\180\001\000\173\001\000\177\000\255\001\000\190\001\000\182\001\000\167\001\000\247\001\000\184\001\000\176\001\000\168\001\000\183\001\000\185\001\000\179\001\000\178\001%\160\001\000\160" 0 : int array);;
-let cp857_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\199\000\000\000\000\000\000\006f\000\000\006f\008\000\004\000\000\145\160\160@@\160\160\001%\000\001\000\196@\144\160AA\145\160\160BB\160\160\001%\002\001\000\179@\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001%\012\001\000\218@\144\160MM\144\160NN\144\160OO\145\160\160PP\160\160\001%\016\001\000\191@\144\160QQ\144\160RR\144\160SS\145\160\160TT\160\160\001%\020\001\000\192@\144\160UU\144\160VV\144\160WW\145\160\160XX\160\160\001%\024\001\000\217@\144\160YY\144\160ZZ\144\160[[\145\160\160\\\\\160\160\001%\028\001\000\195@\144\160]]\145\160\160^^\160\160\001\001\030\001\000\166@\145\160\160__\160\160\001\001\031\001\000\167@\144\160``\144\160aa\144\160bb\144\160cc\145\160\160dd\160\160\001%$\001\000\180@\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\145\160\160ll\160\160\001%,\001\000\194@\144\160mm\144\160nn\144\160oo\145\160\160pp\160\160\001\0010\001\000\152@\145\160\160qq\160\160\001\0011\001\000\141@\144\160rr\144\160ss\145\160\160tt\160\160\001%4\001\000\193@\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\145\160\160||\160\160\001%<\001\000\197@\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\145\160\160\000P\000P\160\160\001%P\001\000\205@\145\160\160\000Q\000Q\160\160\001%Q\001\000\186@\144\160\000R\000R\144\160\000S\000S\145\160\160\000T\000T\160\160\001%T\001\000\201@\144\160\000U\000U\144\160\000V\000V\145\160\160\000W\000W\160\160\001%W\001\000\187@\144\160\000X\000X\144\160\000Y\000Y\145\160\160\000Z\000Z\160\160\001%Z\001\000\200@\144\160\000[\000[\144\160\000\\\000\\\145\160\160\000]\000]\160\160\001%]\001\000\188@\145\160\160\000^\000^\160\160\001\001^\001\000\158@\145\160\160\000_\000_\160\160\001\001_\001\000\159@\145\160\160\000`\000`\160\160\001%`\001\000\204@\144\160\000a\000a\144\160\000b\000b\145\160\160\000c\000c\160\160\001%c\001\000\185@\144\160\000d\000d\144\160\000e\000e\145\160\160\000f\000f\160\160\001%f\001\000\203@\144\160\000g\000g\144\160\000h\000h\145\160\160\000i\000i\160\160\001%i\001\000\202@\144\160\000j\000j\144\160\000k\000k\145\160\160\000l\000l\160\160\001%l\001\000\206@\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127\144\160\001%\128\001\000\223@@@\144\160\001%\132\001\000\220@@@\144\160\001%\136\001\000\219@@@@@@@@\144\160\001%\145\001\000\176\144\160\001%\146\001\000\177\144\160\001%\147\001\000\178@@@@@@@@@@@@\145\160\160\001%\160\001\000\254\160\160\001\000\160\001\000\255@\144\160\001\000\161\001\000\173\144\160\001\000\162\001\000\189\144\160\001\000\163\001\000\156\144\160\001\000\164\001\000\207\144\160\001\000\165\001\000\190\144\160\001\000\166\001\000\221\144\160\001\000\167\001\000\245\144\160\001\000\168\001\000\249\144\160\001\000\169\001\000\184\144\160\001\000\170\001\000\209\144\160\001\000\171\001\000\174\144\160\001\000\172\001\000\170\144\160\001\000\173\001\000\240\144\160\001\000\174\001\000\169\144\160\001\000\175\001\000\238\144\160\001\000\176\001\000\248\144\160\001\000\177\001\000\241\144\160\001\000\178\001\000\253\144\160\001\000\179\001\000\252\144\160\001\000\180\001\000\239\144\160\001\000\181\001\000\230\144\160\001\000\182\001\000\244\144\160\001\000\183\001\000\250\144\160\001\000\184\001\000\247\144\160\001\000\185\001\000\251\144\160\001\000\186\001\000\208\144\160\001\000\187\001\000\175\144\160\001\000\188\001\000\172\144\160\001\000\189\001\000\171\144\160\001\000\190\001\000\243\144\160\001\000\191\001\000\168\144\160\001\000\192\001\000\183\144\160\001\000\193\001\000\181\144\160\001\000\194\001\000\182\144\160\001\000\195\001\000\199\144\160\001\000\196\001\000\142\144\160\001\000\197\001\000\143\144\160\001\000\198\001\000\146\144\160\001\000\199\001\000\128\144\160\001\000\200\001\000\212\144\160\001\000\201\001\000\144\144\160\001\000\202\001\000\210\144\160\001\000\203\001\000\211\144\160\001\000\204\001\000\222\144\160\001\000\205\001\000\214\144\160\001\000\206\001\000\215\144\160\001\000\207\001\000\216@\144\160\001\000\209\001\000\165\144\160\001\000\210\001\000\227\144\160\001\000\211\001\000\224\144\160\001\000\212\001\000\226\144\160\001\000\213\001\000\229\144\160\001\000\214\001\000\153\144\160\001\000\215\001\000\232\144\160\001\000\216\001\000\157\144\160\001\000\217\001\000\235\144\160\001\000\218\001\000\233\144\160\001\000\219\001\000\234\144\160\001\000\220\001\000\154@@\144\160\001\000\223\001\000\225\144\160\001\000\224\001\000\133\144\160\001\000\225\001\000\160\144\160\001\000\226\001\000\131\144\160\001\000\227\001\000\198\144\160\001\000\228\001\000\132\144\160\001\000\229\001\000\134\144\160\001\000\230\001\000\145\144\160\001\000\231\001\000\135\144\160\001\000\232\001\000\138\144\160\001\000\233\001\000\130\144\160\001\000\234\001\000\136\144\160\001\000\235\001\000\137\144\160\001\000\236\001\000\236\144\160\001\000\237\001\000\161\144\160\001\000\238\001\000\140\144\160\001\000\239\001\000\139@\144\160\001\000\241\001\000\164\144\160\001\000\242\001\000\149\144\160\001\000\243\001\000\162\144\160\001\000\244\001\000\147\144\160\001\000\245\001\000\228\144\160\001\000\246\001\000\148\144\160\001\000\247\001\000\246\144\160\001\000\248\001\000\155\144\160\001\000\249\001\000\151\144\160\001\000\250\001\000\163\144\160\001\000\251\001\000\150\144\160\001\000\252\001\000\129@@\144\160\001\000\255\001\000\237" 0 : Netmappings.from_uni_list array);;
- let cp860_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\199\001\000\252\001\000\233\001\000\226\001\000\227\001\000\224\001\000\193\001\000\231\001\000\234\001\000\202\001\000\232\001\000\205\001\000\212\001\000\236\001\000\195\001\000\194\001\000\201\001\000\192\001\000\200\001\000\244\001\000\245\001\000\242\001\000\218\001\000\249\001\000\204\001\000\213\001\000\220\001\000\162\001\000\163\001\000\217\001 \167\001\000\211\001\000\225\001\000\237\001\000\243\001\000\250\001\000\241\001\000\209\001\000\170\001\000\186\001\000\191\001\000\210\001\000\172\001\000\189\001\000\188\001\000\161\001\000\171\001\000\187\001%\145\001%\146\001%\147\001%\002\001%$\001%a\001%b\001%V\001%U\001%c\001%Q\001%W\001%]\001%\\\001%[\001%\016\001%\020\001%4\001%,\001%\028\001%\000\001%<\001%^\001%_\001%Z\001%T\001%i\001%f\001%`\001%P\001%l\001%g\001%h\001%d\001%e\001%Y\001%X\001%R\001%S\001%k\001%j\001%\024\001%\012\001%\136\001%\132\001%\140\001%\144\001%\128\001\003\177\001\000\223\001\003\147\001\003\192\001\003\163\001\003\195\001\000\181\001\003\196\001\003\166\001\003\152\001\003\169\001\003\180\001\"\030\001\003\198\001\003\181\001\")\001\"a\001\000\177\001\"e\001\"d\001# \001#!\001\000\247\001\"H\001\000\176\001\"\025\001\000\183\001\"\026\001 \127\001\000\178\001%\160\001\000\160" 0 : int array);;
-let cp860_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007-\000\000\000\000\000\000\006\224\000\000\006\224\008\000\004\000\000\145\160\160@@\160\160\001%\000\001\000\196@\144\160AA\145\160\160BB\160\160\001%\002\001\000\179@\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001%\012\001\000\218@\144\160MM\144\160NN\144\160OO\145\160\160PP\160\160\001%\016\001\000\191@\144\160QQ\144\160RR\144\160SS\145\160\160TT\160\160\001%\020\001\000\192@\144\160UU\144\160VV\144\160WW\145\160\160XX\160\160\001%\024\001\000\217@\145\160\160YY\160\160\001\"\025\001\000\249@\145\160\160ZZ\160\160\001\"\026\001\000\251@\144\160[[\145\160\160\\\\\160\160\001%\028\001\000\195@\144\160]]\145\160\160^^\160\160\001\"\030\001\000\236@\144\160__\145\160\160``\160\160\001# \001\000\244@\145\160\160aa\160\160\001#!\001\000\245@\144\160bb\144\160cc\145\160\160dd\160\160\001%$\001\000\180@\144\160ee\144\160ff\144\160gg\144\160hh\145\160\160ii\160\160\001\")\001\000\239@\144\160jj\144\160kk\145\160\160ll\160\160\001%,\001\000\194@\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\145\160\160tt\160\160\001%4\001\000\193@\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\145\160\160||\160\160\001%<\001\000\197@\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\145\160\160\000H\000H\160\160\001\"H\001\000\247@\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\145\160\160\000P\000P\160\160\001%P\001\000\205@\145\160\160\000Q\000Q\160\160\001%Q\001\000\186@\145\160\160\000R\000R\160\160\001%R\001\000\213@\145\160\160\000S\000S\160\160\001%S\001\000\214@\145\160\160\000T\000T\160\160\001%T\001\000\201@\145\160\160\000U\000U\160\160\001%U\001\000\184@\145\160\160\000V\000V\160\160\001%V\001\000\183@\145\160\160\000W\000W\160\160\001%W\001\000\187@\145\160\160\000X\000X\160\160\001%X\001\000\212@\145\160\160\000Y\000Y\160\160\001%Y\001\000\211@\145\160\160\000Z\000Z\160\160\001%Z\001\000\200@\145\160\160\000[\000[\160\160\001%[\001\000\190@\145\160\160\000\\\000\\\160\160\001%\\\001\000\189@\145\160\160\000]\000]\160\160\001%]\001\000\188@\145\160\160\000^\000^\160\160\001%^\001\000\198@\145\160\160\000_\000_\160\160\001%_\001\000\199@\145\160\160\000`\000`\160\160\001%`\001\000\204@\145\160\160\000a\000a\160\160\001%a\001\000\181\160\160\001\"a\001\000\240@\145\160\160\000b\000b\160\160\001%b\001\000\182@\145\160\160\000c\000c\160\160\001%c\001\000\185@\145\160\160\000d\000d\160\160\001%d\001\000\209\160\160\001\"d\001\000\243@\145\160\160\000e\000e\160\160\001%e\001\000\210\160\160\001\"e\001\000\242@\145\160\160\000f\000f\160\160\001%f\001\000\203@\145\160\160\000g\000g\160\160\001%g\001\000\207@\145\160\160\000h\000h\160\160\001%h\001\000\208@\145\160\160\000i\000i\160\160\001%i\001\000\202@\145\160\160\000j\000j\160\160\001%j\001\000\216@\145\160\160\000k\000k\160\160\001%k\001\000\215@\145\160\160\000l\000l\160\160\001%l\001\000\206@\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\145\160\160\000\127\000\127\160\160\001 \127\001\000\252@\144\160\001%\128\001\000\223@@@\144\160\001%\132\001\000\220@@@\144\160\001%\136\001\000\219@@@\144\160\001%\140\001\000\221@@@\144\160\001%\144\001\000\222\144\160\001%\145\001\000\176\144\160\001%\146\001\000\177\145\160\160\001%\147\001\000\178\160\160\001\003\147\001\000\226@@@@@\144\160\001\003\152\001\000\233@@@@@@@\145\160\160\001%\160\001\000\254\160\160\001\000\160\001\000\255@\144\160\001\000\161\001\000\173\144\160\001\000\162\001\000\155\145\160\160\001\000\163\001\000\156\160\160\001\003\163\001\000\228@@@\144\160\001\003\166\001\000\232\144\160\001 \167\001\000\158@\144\160\001\003\169\001\000\234\144\160\001\000\170\001\000\166\144\160\001\000\171\001\000\174\144\160\001\000\172\001\000\170@@@\144\160\001\000\176\001\000\248\145\160\160\001\003\177\001\000\224\160\160\001\000\177\001\000\241@\144\160\001\000\178\001\000\253@\144\160\001\003\180\001\000\235\145\160\160\001\000\181\001\000\230\160\160\001\003\181\001\000\238@@\144\160\001\000\183\001\000\250@@\144\160\001\000\186\001\000\167\144\160\001\000\187\001\000\175\144\160\001\000\188\001\000\172\144\160\001\000\189\001\000\171@\144\160\001\000\191\001\000\168\145\160\160\001\000\192\001\000\145\160\160\001\003\192\001\000\227@\144\160\001\000\193\001\000\134\144\160\001\000\194\001\000\143\145\160\160\001\000\195\001\000\142\160\160\001\003\195\001\000\229@\144\160\001\003\196\001\000\231@\144\160\001\003\198\001\000\237\144\160\001\000\199\001\000\128\144\160\001\000\200\001\000\146\144\160\001\000\201\001\000\144\144\160\001\000\202\001\000\137@\144\160\001\000\204\001\000\152\144\160\001\000\205\001\000\139@@@\144\160\001\000\209\001\000\165\144\160\001\000\210\001\000\169\144\160\001\000\211\001\000\159\144\160\001\000\212\001\000\140\144\160\001\000\213\001\000\153@@@\144\160\001\000\217\001\000\157\144\160\001\000\218\001\000\150@\144\160\001\000\220\001\000\154@@\144\160\001\000\223\001\000\225\144\160\001\000\224\001\000\133\144\160\001\000\225\001\000\160\144\160\001\000\226\001\000\131\144\160\001\000\227\001\000\132@@@\144\160\001\000\231\001\000\135\144\160\001\000\232\001\000\138\144\160\001\000\233\001\000\130\144\160\001\000\234\001\000\136@\144\160\001\000\236\001\000\141\144\160\001\000\237\001\000\161@@@\144\160\001\000\241\001\000\164\144\160\001\000\242\001\000\149\144\160\001\000\243\001\000\162\144\160\001\000\244\001\000\147\144\160\001\000\245\001\000\148@\144\160\001\000\247\001\000\246@\144\160\001\000\249\001\000\151\144\160\001\000\250\001\000\163@\144\160\001\000\252\001\000\129@@@" 0 : Netmappings.from_uni_list array);;
- let cp861_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\199\001\000\252\001\000\233\001\000\226\001\000\228\001\000\224\001\000\229\001\000\231\001\000\234\001\000\235\001\000\232\001\000\208\001\000\240\001\000\222\001\000\196\001\000\197\001\000\201\001\000\230\001\000\198\001\000\244\001\000\246\001\000\254\001\000\251\001\000\221\001\000\253\001\000\214\001\000\220\001\000\248\001\000\163\001\000\216\001 \167\001\001\146\001\000\225\001\000\237\001\000\243\001\000\250\001\000\193\001\000\205\001\000\211\001\000\218\001\000\191\001#\016\001\000\172\001\000\189\001\000\188\001\000\161\001\000\171\001\000\187\001%\145\001%\146\001%\147\001%\002\001%$\001%a\001%b\001%V\001%U\001%c\001%Q\001%W\001%]\001%\\\001%[\001%\016\001%\020\001%4\001%,\001%\028\001%\000\001%<\001%^\001%_\001%Z\001%T\001%i\001%f\001%`\001%P\001%l\001%g\001%h\001%d\001%e\001%Y\001%X\001%R\001%S\001%k\001%j\001%\024\001%\012\001%\136\001%\132\001%\140\001%\144\001%\128\001\003\177\001\000\223\001\003\147\001\003\192\001\003\163\001\003\195\001\000\181\001\003\196\001\003\166\001\003\152\001\003\169\001\003\180\001\"\030\001\003\198\001\003\181\001\")\001\"a\001\000\177\001\"e\001\"d\001# \001#!\001\000\247\001\"H\001\000\176\001\"\025\001\000\183\001\"\026\001 \127\001\000\178\001%\160\001\000\160" 0 : int array);;
-let cp861_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\0071\000\000\000\000\000\000\006\229\000\000\006\229\008\000\004\000\000\145\160\160@@\160\160\001%\000\001\000\196@\144\160AA\145\160\160BB\160\160\001%\002\001\000\179@\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001%\012\001\000\218@\144\160MM\144\160NN\144\160OO\145\160\160PP\160\160\001#\016\001\000\169\160\160\001%\016\001\000\191@\144\160QQ\144\160RR\144\160SS\145\160\160TT\160\160\001%\020\001\000\192@\144\160UU\144\160VV\144\160WW\145\160\160XX\160\160\001%\024\001\000\217@\145\160\160YY\160\160\001\"\025\001\000\249@\145\160\160ZZ\160\160\001\"\026\001\000\251@\144\160[[\145\160\160\\\\\160\160\001%\028\001\000\195@\144\160]]\145\160\160^^\160\160\001\"\030\001\000\236@\144\160__\145\160\160``\160\160\001# \001\000\244@\145\160\160aa\160\160\001#!\001\000\245@\144\160bb\144\160cc\145\160\160dd\160\160\001%$\001\000\180@\144\160ee\144\160ff\144\160gg\144\160hh\145\160\160ii\160\160\001\")\001\000\239@\144\160jj\144\160kk\145\160\160ll\160\160\001%,\001\000\194@\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\145\160\160tt\160\160\001%4\001\000\193@\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\145\160\160||\160\160\001%<\001\000\197@\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\145\160\160\000H\000H\160\160\001\"H\001\000\247@\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\145\160\160\000P\000P\160\160\001%P\001\000\205@\145\160\160\000Q\000Q\160\160\001%Q\001\000\186@\145\160\160\000R\000R\160\160\001%R\001\000\213@\145\160\160\000S\000S\160\160\001%S\001\000\214@\145\160\160\000T\000T\160\160\001%T\001\000\201@\145\160\160\000U\000U\160\160\001%U\001\000\184@\145\160\160\000V\000V\160\160\001%V\001\000\183@\145\160\160\000W\000W\160\160\001%W\001\000\187@\145\160\160\000X\000X\160\160\001%X\001\000\212@\145\160\160\000Y\000Y\160\160\001%Y\001\000\211@\145\160\160\000Z\000Z\160\160\001%Z\001\000\200@\145\160\160\000[\000[\160\160\001%[\001\000\190@\145\160\160\000\\\000\\\160\160\001%\\\001\000\189@\145\160\160\000]\000]\160\160\001%]\001\000\188@\145\160\160\000^\000^\160\160\001%^\001\000\198@\145\160\160\000_\000_\160\160\001%_\001\000\199@\145\160\160\000`\000`\160\160\001%`\001\000\204@\145\160\160\000a\000a\160\160\001%a\001\000\181\160\160\001\"a\001\000\240@\145\160\160\000b\000b\160\160\001%b\001\000\182@\145\160\160\000c\000c\160\160\001%c\001\000\185@\145\160\160\000d\000d\160\160\001%d\001\000\209\160\160\001\"d\001\000\243@\145\160\160\000e\000e\160\160\001%e\001\000\210\160\160\001\"e\001\000\242@\145\160\160\000f\000f\160\160\001%f\001\000\203@\145\160\160\000g\000g\160\160\001%g\001\000\207@\145\160\160\000h\000h\160\160\001%h\001\000\208@\145\160\160\000i\000i\160\160\001%i\001\000\202@\145\160\160\000j\000j\160\160\001%j\001\000\216@\145\160\160\000k\000k\160\160\001%k\001\000\215@\145\160\160\000l\000l\160\160\001%l\001\000\206@\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\145\160\160\000\127\000\127\160\160\001 \127\001\000\252@\144\160\001%\128\001\000\223@@@\144\160\001%\132\001\000\220@@@\144\160\001%\136\001\000\219@@@\144\160\001%\140\001\000\221@@@\144\160\001%\144\001\000\222\144\160\001%\145\001\000\176\145\160\160\001\001\146\001\000\159\160\160\001%\146\001\000\177@\145\160\160\001%\147\001\000\178\160\160\001\003\147\001\000\226@@@@@\144\160\001\003\152\001\000\233@@@@@@@\145\160\160\001%\160\001\000\254\160\160\001\000\160\001\000\255@\144\160\001\000\161\001\000\173@\145\160\160\001\000\163\001\000\156\160\160\001\003\163\001\000\228@@@\144\160\001\003\166\001\000\232\144\160\001 \167\001\000\158@\144\160\001\003\169\001\000\234@\144\160\001\000\171\001\000\174\144\160\001\000\172\001\000\170@@@\144\160\001\000\176\001\000\248\145\160\160\001\003\177\001\000\224\160\160\001\000\177\001\000\241@\144\160\001\000\178\001\000\253@\144\160\001\003\180\001\000\235\145\160\160\001\000\181\001\000\230\160\160\001\003\181\001\000\238@@\144\160\001\000\183\001\000\250@@@\144\160\001\000\187\001\000\175\144\160\001\000\188\001\000\172\144\160\001\000\189\001\000\171@\144\160\001\000\191\001\000\168\144\160\001\003\192\001\000\227\144\160\001\000\193\001\000\164@\144\160\001\003\195\001\000\229\145\160\160\001\000\196\001\000\142\160\160\001\003\196\001\000\231@\144\160\001\000\197\001\000\143\145\160\160\001\000\198\001\000\146\160\160\001\003\198\001\000\237@\144\160\001\000\199\001\000\128@\144\160\001\000\201\001\000\144@@@\144\160\001\000\205\001\000\165@@\144\160\001\000\208\001\000\139@@\144\160\001\000\211\001\000\166@@\144\160\001\000\214\001\000\153@\144\160\001\000\216\001\000\157@\144\160\001\000\218\001\000\167@\144\160\001\000\220\001\000\154\144\160\001\000\221\001\000\151\144\160\001\000\222\001\000\141\144\160\001\000\223\001\000\225\144\160\001\000\224\001\000\133\144\160\001\000\225\001\000\160\144\160\001\000\226\001\000\131@\144\160\001\000\228\001\000\132\144\160\001\000\229\001\000\134\144\160\001\000\230\001\000\145\144\160\001\000\231\001\000\135\144\160\001\000\232\001\000\138\144\160\001\000\233\001\000\130\144\160\001\000\234\001\000\136\144\160\001\000\235\001\000\137@\144\160\001\000\237\001\000\161@@\144\160\001\000\240\001\000\140@@\144\160\001\000\243\001\000\162\144\160\001\000\244\001\000\147@\144\160\001\000\246\001\000\148\144\160\001\000\247\001\000\246\144\160\001\000\248\001\000\155@\144\160\001\000\250\001\000\163\144\160\001\000\251\001\000\150\144\160\001\000\252\001\000\129\144\160\001\000\253\001\000\152\144\160\001\000\254\001\000\149@" 0 : Netmappings.from_uni_list array);;
- let cp862_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\005\208\001\005\209\001\005\210\001\005\211\001\005\212\001\005\213\001\005\214\001\005\215\001\005\216\001\005\217\001\005\218\001\005\219\001\005\220\001\005\221\001\005\222\001\005\223\001\005\224\001\005\225\001\005\226\001\005\227\001\005\228\001\005\229\001\005\230\001\005\231\001\005\232\001\005\233\001\005\234\001\000\162\001\000\163\001\000\165\001 \167\001\001\146\001\000\225\001\000\237\001\000\243\001\000\250\001\000\241\001\000\209\001\000\170\001\000\186\001\000\191\001#\016\001\000\172\001\000\189\001\000\188\001\000\161\001\000\171\001\000\187\001%\145\001%\146\001%\147\001%\002\001%$\001%a\001%b\001%V\001%U\001%c\001%Q\001%W\001%]\001%\\\001%[\001%\016\001%\020\001%4\001%,\001%\028\001%\000\001%<\001%^\001%_\001%Z\001%T\001%i\001%f\001%`\001%P\001%l\001%g\001%h\001%d\001%e\001%Y\001%X\001%R\001%S\001%k\001%j\001%\024\001%\012\001%\136\001%\132\001%\140\001%\144\001%\128\001\003\177\001\000\223\001\003\147\001\003\192\001\003\163\001\003\195\001\000\181\001\003\196\001\003\166\001\003\152\001\003\169\001\003\180\001\"\030\001\003\198\001\003\181\001\")\001\"a\001\000\177\001\"e\001\"d\001# \001#!\001\000\247\001\"H\001\000\176\001\"\025\001\000\183\001\"\026\001 \127\001\000\178\001%\160\001\000\160" 0 : int array);;
-let cp862_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\0074\000\000\000\000\000\000\006\233\000\000\006\233\008\000\004\000\000\145\160\160@@\160\160\001%\000\001\000\196@\144\160AA\145\160\160BB\160\160\001%\002\001\000\179@\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001%\012\001\000\218@\144\160MM\144\160NN\144\160OO\145\160\160PP\160\160\001#\016\001\000\169\160\160\001%\016\001\000\191@\144\160QQ\144\160RR\144\160SS\145\160\160TT\160\160\001%\020\001\000\192@\144\160UU\144\160VV\144\160WW\145\160\160XX\160\160\001%\024\001\000\217@\145\160\160YY\160\160\001\"\025\001\000\249@\145\160\160ZZ\160\160\001\"\026\001\000\251@\144\160[[\145\160\160\\\\\160\160\001%\028\001\000\195@\144\160]]\145\160\160^^\160\160\001\"\030\001\000\236@\144\160__\145\160\160``\160\160\001# \001\000\244@\145\160\160aa\160\160\001#!\001\000\245@\144\160bb\144\160cc\145\160\160dd\160\160\001%$\001\000\180@\144\160ee\144\160ff\144\160gg\144\160hh\145\160\160ii\160\160\001\")\001\000\239@\144\160jj\144\160kk\145\160\160ll\160\160\001%,\001\000\194@\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\145\160\160tt\160\160\001%4\001\000\193@\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\145\160\160||\160\160\001%<\001\000\197@\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\145\160\160\000H\000H\160\160\001\"H\001\000\247@\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\145\160\160\000P\000P\160\160\001%P\001\000\205@\145\160\160\000Q\000Q\160\160\001%Q\001\000\186@\145\160\160\000R\000R\160\160\001%R\001\000\213@\145\160\160\000S\000S\160\160\001%S\001\000\214@\145\160\160\000T\000T\160\160\001%T\001\000\201@\145\160\160\000U\000U\160\160\001%U\001\000\184@\145\160\160\000V\000V\160\160\001%V\001\000\183@\145\160\160\000W\000W\160\160\001%W\001\000\187@\145\160\160\000X\000X\160\160\001%X\001\000\212@\145\160\160\000Y\000Y\160\160\001%Y\001\000\211@\145\160\160\000Z\000Z\160\160\001%Z\001\000\200@\145\160\160\000[\000[\160\160\001%[\001\000\190@\145\160\160\000\\\000\\\160\160\001%\\\001\000\189@\145\160\160\000]\000]\160\160\001%]\001\000\188@\145\160\160\000^\000^\160\160\001%^\001\000\198@\145\160\160\000_\000_\160\160\001%_\001\000\199@\145\160\160\000`\000`\160\160\001%`\001\000\204@\145\160\160\000a\000a\160\160\001%a\001\000\181\160\160\001\"a\001\000\240@\145\160\160\000b\000b\160\160\001%b\001\000\182@\145\160\160\000c\000c\160\160\001%c\001\000\185@\145\160\160\000d\000d\160\160\001%d\001\000\209\160\160\001\"d\001\000\243@\145\160\160\000e\000e\160\160\001%e\001\000\210\160\160\001\"e\001\000\242@\145\160\160\000f\000f\160\160\001%f\001\000\203@\145\160\160\000g\000g\160\160\001%g\001\000\207@\145\160\160\000h\000h\160\160\001%h\001\000\208@\145\160\160\000i\000i\160\160\001%i\001\000\202@\145\160\160\000j\000j\160\160\001%j\001\000\216@\145\160\160\000k\000k\160\160\001%k\001\000\215@\145\160\160\000l\000l\160\160\001%l\001\000\206@\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\145\160\160\000\127\000\127\160\160\001 \127\001\000\252@\144\160\001%\128\001\000\223@@@\144\160\001%\132\001\000\220@@@\144\160\001%\136\001\000\219@@@\144\160\001%\140\001\000\221@@@\144\160\001%\144\001\000\222\144\160\001%\145\001\000\176\145\160\160\001\001\146\001\000\159\160\160\001%\146\001\000\177@\145\160\160\001%\147\001\000\178\160\160\001\003\147\001\000\226@@@@@\144\160\001\003\152\001\000\233@@@@@@@\145\160\160\001%\160\001\000\254\160\160\001\000\160\001\000\255@\144\160\001\000\161\001\000\173\144\160\001\000\162\001\000\155\145\160\160\001\000\163\001\000\156\160\160\001\003\163\001\000\228@@\144\160\001\000\165\001\000\157\144\160\001\003\166\001\000\232\144\160\001 \167\001\000\158@\144\160\001\003\169\001\000\234\144\160\001\000\170\001\000\166\144\160\001\000\171\001\000\174\144\160\001\000\172\001\000\170@@@\144\160\001\000\176\001\000\248\145\160\160\001\003\177\001\000\224\160\160\001\000\177\001\000\241@\144\160\001\000\178\001\000\253@\144\160\001\003\180\001\000\235\145\160\160\001\000\181\001\000\230\160\160\001\003\181\001\000\238@@\144\160\001\000\183\001\000\250@@\144\160\001\000\186\001\000\167\144\160\001\000\187\001\000\175\144\160\001\000\188\001\000\172\144\160\001\000\189\001\000\171@\144\160\001\000\191\001\000\168\144\160\001\003\192\001\000\227@@\144\160\001\003\195\001\000\229\144\160\001\003\196\001\000\231@\144\160\001\003\198\001\000\237@@@@@@@@@\144\160\001\005\208\001\000\128\145\160\160\001\005\209\001\000\129\160\160\001\000\209\001\000\165@\144\160\001\005\210\001\000\130\144\160\001\005\211\001\000\131\144\160\001\005\212\001\000\132\144\160\001\005\213\001\000\133\144\160\001\005\214\001\000\134\144\160\001\005\215\001\000\135\144\160\001\005\216\001\000\136\144\160\001\005\217\001\000\137\144\160\001\005\218\001\000\138\144\160\001\005\219\001\000\139\144\160\001\005\220\001\000\140\144\160\001\005\221\001\000\141\144\160\001\005\222\001\000\142\145\160\160\001\005\223\001\000\143\160\160\001\000\223\001\000\225@\144\160\001\005\224\001\000\144\145\160\160\001\005\225\001\000\145\160\160\001\000\225\001\000\160@\144\160\001\005\226\001\000\146\144\160\001\005\227\001\000\147\144\160\001\005\228\001\000\148\144\160\001\005\229\001\000\149\144\160\001\005\230\001\000\150\144\160\001\005\231\001\000\151\144\160\001\005\232\001\000\152\144\160\001\005\233\001\000\153\144\160\001\005\234\001\000\154@@\144\160\001\000\237\001\000\161@@@\144\160\001\000\241\001\000\164@\144\160\001\000\243\001\000\162@@@\144\160\001\000\247\001\000\246@@\144\160\001\000\250\001\000\163@@@@@" 0 : Netmappings.from_uni_list array);;
- let cp863_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\199\001\000\252\001\000\233\001\000\226\001\000\194\001\000\224\001\000\182\001\000\231\001\000\234\001\000\235\001\000\232\001\000\239\001\000\238\001 \023\001\000\192\001\000\167\001\000\201\001\000\200\001\000\202\001\000\244\001\000\203\001\000\207\001\000\251\001\000\249\001\000\164\001\000\212\001\000\220\001\000\162\001\000\163\001\000\217\001\000\219\001\001\146\001\000\166\001\000\180\001\000\243\001\000\250\001\000\168\001\000\184\001\000\179\001\000\175\001\000\206\001#\016\001\000\172\001\000\189\001\000\188\001\000\190\001\000\171\001\000\187\001%\145\001%\146\001%\147\001%\002\001%$\001%a\001%b\001%V\001%U\001%c\001%Q\001%W\001%]\001%\\\001%[\001%\016\001%\020\001%4\001%,\001%\028\001%\000\001%<\001%^\001%_\001%Z\001%T\001%i\001%f\001%`\001%P\001%l\001%g\001%h\001%d\001%e\001%Y\001%X\001%R\001%S\001%k\001%j\001%\024\001%\012\001%\136\001%\132\001%\140\001%\144\001%\128\001\003\177\001\000\223\001\003\147\001\003\192\001\003\163\001\003\195\001\000\181\001\003\196\001\003\166\001\003\152\001\003\169\001\003\180\001\"\030\001\003\198\001\003\181\001\")\001\"a\001\000\177\001\"e\001\"d\001# \001#!\001\000\247\001\"H\001\000\176\001\"\025\001\000\183\001\"\026\001 \127\001\000\178\001%\160\001\000\160" 0 : int array);;
-let cp863_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\0077\000\000\000\000\000\000\006\237\000\000\006\237\008\000\004\000\000\145\160\160@@\160\160\001%\000\001\000\196@\144\160AA\145\160\160BB\160\160\001%\002\001\000\179@\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001%\012\001\000\218@\144\160MM\144\160NN\144\160OO\145\160\160PP\160\160\001#\016\001\000\169\160\160\001%\016\001\000\191@\144\160QQ\144\160RR\144\160SS\145\160\160TT\160\160\001%\020\001\000\192@\144\160UU\144\160VV\145\160\160WW\160\160\001 \023\001\000\141@\145\160\160XX\160\160\001%\024\001\000\217@\145\160\160YY\160\160\001\"\025\001\000\249@\145\160\160ZZ\160\160\001\"\026\001\000\251@\144\160[[\145\160\160\\\\\160\160\001%\028\001\000\195@\144\160]]\145\160\160^^\160\160\001\"\030\001\000\236@\144\160__\145\160\160``\160\160\001# \001\000\244@\145\160\160aa\160\160\001#!\001\000\245@\144\160bb\144\160cc\145\160\160dd\160\160\001%$\001\000\180@\144\160ee\144\160ff\144\160gg\144\160hh\145\160\160ii\160\160\001\")\001\000\239@\144\160jj\144\160kk\145\160\160ll\160\160\001%,\001\000\194@\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\145\160\160tt\160\160\001%4\001\000\193@\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\145\160\160||\160\160\001%<\001\000\197@\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\145\160\160\000H\000H\160\160\001\"H\001\000\247@\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\145\160\160\000P\000P\160\160\001%P\001\000\205@\145\160\160\000Q\000Q\160\160\001%Q\001\000\186@\145\160\160\000R\000R\160\160\001%R\001\000\213@\145\160\160\000S\000S\160\160\001%S\001\000\214@\145\160\160\000T\000T\160\160\001%T\001\000\201@\145\160\160\000U\000U\160\160\001%U\001\000\184@\145\160\160\000V\000V\160\160\001%V\001\000\183@\145\160\160\000W\000W\160\160\001%W\001\000\187@\145\160\160\000X\000X\160\160\001%X\001\000\212@\145\160\160\000Y\000Y\160\160\001%Y\001\000\211@\145\160\160\000Z\000Z\160\160\001%Z\001\000\200@\145\160\160\000[\000[\160\160\001%[\001\000\190@\145\160\160\000\\\000\\\160\160\001%\\\001\000\189@\145\160\160\000]\000]\160\160\001%]\001\000\188@\145\160\160\000^\000^\160\160\001%^\001\000\198@\145\160\160\000_\000_\160\160\001%_\001\000\199@\145\160\160\000`\000`\160\160\001%`\001\000\204@\145\160\160\000a\000a\160\160\001%a\001\000\181\160\160\001\"a\001\000\240@\145\160\160\000b\000b\160\160\001%b\001\000\182@\145\160\160\000c\000c\160\160\001%c\001\000\185@\145\160\160\000d\000d\160\160\001%d\001\000\209\160\160\001\"d\001\000\243@\145\160\160\000e\000e\160\160\001%e\001\000\210\160\160\001\"e\001\000\242@\145\160\160\000f\000f\160\160\001%f\001\000\203@\145\160\160\000g\000g\160\160\001%g\001\000\207@\145\160\160\000h\000h\160\160\001%h\001\000\208@\145\160\160\000i\000i\160\160\001%i\001\000\202@\145\160\160\000j\000j\160\160\001%j\001\000\216@\145\160\160\000k\000k\160\160\001%k\001\000\215@\145\160\160\000l\000l\160\160\001%l\001\000\206@\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\145\160\160\000\127\000\127\160\160\001 \127\001\000\252@\144\160\001%\128\001\000\223@@@\144\160\001%\132\001\000\220@@@\144\160\001%\136\001\000\219@@@\144\160\001%\140\001\000\221@@@\144\160\001%\144\001\000\222\144\160\001%\145\001\000\176\145\160\160\001\001\146\001\000\159\160\160\001%\146\001\000\177@\145\160\160\001%\147\001\000\178\160\160\001\003\147\001\000\226@@@@@\144\160\001\003\152\001\000\233@@@@@@@\145\160\160\001%\160\001\000\254\160\160\001\000\160\001\000\255@@\144\160\001\000\162\001\000\155\145\160\160\001\000\163\001\000\156\160\160\001\003\163\001\000\228@\144\160\001\000\164\001\000\152@\145\160\160\001\000\166\001\000\160\160\160\001\003\166\001\000\232@\144\160\001\000\167\001\000\143\144\160\001\000\168\001\000\164\144\160\001\003\169\001\000\234@\144\160\001\000\171\001\000\174\144\160\001\000\172\001\000\170@@\144\160\001\000\175\001\000\167\144\160\001\000\176\001\000\248\145\160\160\001\003\177\001\000\224\160\160\001\000\177\001\000\241@\144\160\001\000\178\001\000\253\144\160\001\000\179\001\000\166\145\160\160\001\000\180\001\000\161\160\160\001\003\180\001\000\235@\145\160\160\001\000\181\001\000\230\160\160\001\003\181\001\000\238@\144\160\001\000\182\001\000\134\144\160\001\000\183\001\000\250\144\160\001\000\184\001\000\165@@\144\160\001\000\187\001\000\175\144\160\001\000\188\001\000\172\144\160\001\000\189\001\000\171\144\160\001\000\190\001\000\173@\145\160\160\001\000\192\001\000\142\160\160\001\003\192\001\000\227@@\144\160\001\000\194\001\000\132\144\160\001\003\195\001\000\229\144\160\001\003\196\001\000\231@\144\160\001\003\198\001\000\237\144\160\001\000\199\001\000\128\144\160\001\000\200\001\000\145\144\160\001\000\201\001\000\144\144\160\001\000\202\001\000\146\144\160\001\000\203\001\000\148@@\144\160\001\000\206\001\000\168\144\160\001\000\207\001\000\149@@@@\144\160\001\000\212\001\000\153@@@@\144\160\001\000\217\001\000\157@\144\160\001\000\219\001\000\158\144\160\001\000\220\001\000\154@@\144\160\001\000\223\001\000\225\144\160\001\000\224\001\000\133@\144\160\001\000\226\001\000\131@@@@\144\160\001\000\231\001\000\135\144\160\001\000\232\001\000\138\144\160\001\000\233\001\000\130\144\160\001\000\234\001\000\136\144\160\001\000\235\001\000\137@@\144\160\001\000\238\001\000\140\144\160\001\000\239\001\000\139@@@\144\160\001\000\243\001\000\162\144\160\001\000\244\001\000\147@@\144\160\001\000\247\001\000\246@\144\160\001\000\249\001\000\151\144\160\001\000\250\001\000\163\144\160\001\000\251\001\000\150\144\160\001\000\252\001\000\129@@@" 0 : Netmappings.from_uni_list array);;
- let cp864_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002\209\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcd\001\006jfghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\176\001\000\183\001\"\025\001\"\026\001%\146\001%\000\001%\002\001%<\001%$\001%,\001%\028\001%4\001%\016\001%\012\001%\020\001%\024\001\003\178\001\"\030\001\003\198\001\000\177\001\000\189\001\000\188\001\"H\001\000\171\001\000\187\002\000\000\254\247\002\000\000\254\248\000\255\000\255\002\000\000\254\251\002\000\000\254\252\000\255\001\000\160\001\000\173\002\000\000\254\130\001\000\163\001\000\164\002\000\000\254\132\000\255\000\255\002\000\000\254\142\002\000\000\254\143\002\000\000\254\149\002\000\000\254\153\001\006\012\002\000\000\254\157\002\000\000\254\161\002\000\000\254\165\001\006`\001\006a\001\006b\001\006c\001\006d\001\006e\001\006f\001\006g\001\006h\001\006i\002\000\000\254\209\001\006\027\002\000\000\254\177\002\000\000\254\181\002\000\000\254\185\001\006\031\001\000\162\002\000\000\254\128\002\000\000\254\129\002\000\000\254\131\002\000\000\254\133\002\000\000\254\202\002\000\000\254\139\002\000\000\254\141\002\000\000\254\145\002\000\000\254\147\002\000\000\254\151\002\000\000\254\155\002\000\000\254\159\002\000\000\254\163\002\000\000\254\167\002\000\000\254\169\002\000\000\254\171\002\000\000\254\173\002\000\000\254\175\002\000\000\254\179\002\000\000\254\183\002\000\000\254\187\002\000\000\254\191\002\000\000\254\193\002\000\000\254\197\002\000\000\254\203\002\000\000\254\207\001\000\166\001\000\172\001\000\247\001\000\215\002\000\000\254\201\001\006@\002\000\000\254\211\002\000\000\254\215\002\000\000\254\219\002\000\000\254\223\002\000\000\254\227\002\000\000\254\231\002\000\000\254\235\002\000\000\254\237\002\000\000\254\239\002\000\000\254\243\002\000\000\254\189\002\000\000\254\204\002\000\000\254\206\002\000\000\254\205\002\000\000\254\225\002\000\000\254}\001\006Q\002\000\000\254\229\002\000\000\254\233\002\000\000\254\236\002\000\000\254\240\002\000\000\254\242\002\000\000\254\208\002\000\000\254\213\002\000\000\254\245\002\000\000\254\246\002\000\000\254\221\002\000\000\254\217\002\000\000\254\241\001%\160\000\255" 0 : int array);;
-let cp864_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007i\000\000\000\000\000\000\006\136\000\000\006\136\008\000\004\000\000\145\160\160@@\160\160\001%\000\001\000\133@\144\160AA\145\160\160BB\160\160\001%\002\001\000\134@\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001%\012\001\000\141\160\160\001\006\012\001\000\172@\144\160MM\144\160NN\144\160OO\145\160\160PP\160\160\001%\016\001\000\140@\144\160QQ\144\160RR\144\160SS\145\160\160TT\160\160\001%\020\001\000\142@\144\160UU\144\160VV\144\160WW\145\160\160XX\160\160\001%\024\001\000\143@\145\160\160YY\160\160\001\"\025\001\000\130@\145\160\160ZZ\160\160\001\"\026\001\000\131@\145\160\160[[\160\160\001\006\027\001\000\187@\145\160\160\\\\\160\160\001%\028\001\000\138@\144\160]]\145\160\160^^\160\160\001\"\030\001\000\145@\145\160\160__\160\160\001\006\031\001\000\191@\144\160``\144\160aa\144\160bb\144\160cc\145\160\160dd\160\160\001%$\001\000\136@@\144\160ff\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\145\160\160ll\160\160\001%,\001\000\137@\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\145\160\160tt\160\160\001%4\001\000\139@\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\145\160\160||\160\160\001%<\001\000\135@\144\160}}\144\160~~\144\160\127\127\145\160\160\000@\000@\160\160\001\006@\001\000\224@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\145\160\160\000H\000H\160\160\001\"H\001\000\150@\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\145\160\160\000Q\000Q\160\160\001\006Q\001\000\241@\144\160\000R\000R\144\160\000S\000S\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\145\160\160\000`\000`\160\160\001\006`\001\000\176@\145\160\160\000a\000a\160\160\001\006a\001\000\177@\145\160\160\000b\000b\160\160\001\006b\001\000\178@\145\160\160\000c\000c\160\160\001\006c\001\000\179@\145\160\160\000d\000d\160\160\001\006d\001\000\180@\145\160\160\000e\000e\160\160\001\006e\001\000\181@\145\160\160\000f\000f\160\160\001\006f\001\000\182@\145\160\160\000g\000g\160\160\001\006g\001\000\183@\145\160\160\000h\000h\160\160\001\006h\001\000\184@\145\160\160\000i\000i\160\160\001\006i\001\000\185@\145\160\160\001\006je\160\160\000j\000j@\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\145\160\160\000}\000}\160\160\002\000\000\254}\001\000\240@\144\160\000~\000~\144\160\000\127\000\127\144\160\002\000\000\254\128\001\000\193\144\160\002\000\000\254\129\001\000\194\144\160\002\000\000\254\130\001\000\162\144\160\002\000\000\254\131\001\000\195\144\160\002\000\000\254\132\001\000\165\144\160\002\000\000\254\133\001\000\196@@@@@\144\160\002\000\000\254\139\001\000\198@\144\160\002\000\000\254\141\001\000\199\144\160\002\000\000\254\142\001\000\168\144\160\002\000\000\254\143\001\000\169@\144\160\002\000\000\254\145\001\000\200\144\160\001%\146\001\000\132\144\160\002\000\000\254\147\001\000\201@\144\160\002\000\000\254\149\001\000\170@\144\160\002\000\000\254\151\001\000\202@\144\160\002\000\000\254\153\001\000\171@\144\160\002\000\000\254\155\001\000\203@\144\160\002\000\000\254\157\001\000\173@\144\160\002\000\000\254\159\001\000\204\145\160\160\001\000\160\001\000\160\160\160\001%\160\001\000\254@\144\160\002\000\000\254\161\001\000\174\144\160\001\000\162\001\000\192\145\160\160\001\000\163\001\000\163\160\160\002\000\000\254\163\001\000\205@\144\160\001\000\164\001\000\164\144\160\002\000\000\254\165\001\000\175\144\160\001\000\166\001\000\219\144\160\002\000\000\254\167\001\000\206@\144\160\002\000\000\254\169\001\000\207@\145\160\160\001\000\171\001\000\151\160\160\002\000\000\254\171\001\000\208@\144\160\001\000\172\001\000\220\145\160\160\001\000\173\001\000\161\160\160\002\000\000\254\173\001\000\209@@\144\160\002\000\000\254\175\001\000\210\144\160\001\000\176\001\000\128\145\160\160\001\000\177\001\000\147\160\160\002\000\000\254\177\001\000\188@\144\160\001\003\178\001\000\144\144\160\002\000\000\254\179\001\000\211@\144\160\002\000\000\254\181\001\000\189@\145\160\160\001\000\183\001\000\129\160\160\002\000\000\254\183\001\000\212@@\144\160\002\000\000\254\185\001\000\190@\145\160\160\001\000\187\001\000\152\160\160\002\000\000\254\187\001\000\213@\144\160\001\000\188\001\000\149\145\160\160\001\000\189\001\000\148\160\160\002\000\000\254\189\001\000\235@@\144\160\002\000\000\254\191\001\000\214@\144\160\002\000\000\254\193\001\000\215@@@\144\160\002\000\000\254\197\001\000\216\144\160\001\003\198\001\000\146@@\144\160\002\000\000\254\201\001\000\223\144\160\002\000\000\254\202\001\000\197\144\160\002\000\000\254\203\001\000\217\144\160\002\000\000\254\204\001\000\236\144\160\002\000\000\254\205\001\000\238\144\160\002\000\000\254\206\001\000\237\144\160\002\000\000\254\207\001\000\218\144\160\002\000\000\254\208\001\000\247\144\160\002\000\000\254\209\001\000\186@\144\160\002\000\000\254\211\001\000\225@\144\160\002\000\000\254\213\001\000\248@\145\160\160\001\000\215\001\000\222\160\160\002\000\000\254\215\001\000\226@@\144\160\002\000\000\254\217\001\000\252@\144\160\002\000\000\254\219\001\000\227@\144\160\002\000\000\254\221\001\000\251@\144\160\002\000\000\254\223\001\000\228@\144\160\002\000\000\254\225\001\000\239@\144\160\002\000\000\254\227\001\000\229@\144\160\002\000\000\254\229\001\000\242@\144\160\002\000\000\254\231\001\000\230@\144\160\002\000\000\254\233\001\000\243@\144\160\002\000\000\254\235\001\000\231\144\160\002\000\000\254\236\001\000\244\144\160\002\000\000\254\237\001\000\232@\144\160\002\000\000\254\239\001\000\233\144\160\002\000\000\254\240\001\000\245\144\160\002\000\000\254\241\001\000\253\144\160\002\000\000\254\242\001\000\246\144\160\002\000\000\254\243\001\000\234@\144\160\002\000\000\254\245\001\000\249\144\160\002\000\000\254\246\001\000\250\145\160\160\002\000\000\254\247\001\000\153\160\160\001\000\247\001\000\221@\144\160\002\000\000\254\248\001\000\154@@\144\160\002\000\000\254\251\001\000\157\144\160\002\000\000\254\252\001\000\158@@@" 0 : Netmappings.from_uni_list array);;
- let cp865_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\000\199\001\000\252\001\000\233\001\000\226\001\000\228\001\000\224\001\000\229\001\000\231\001\000\234\001\000\235\001\000\232\001\000\239\001\000\238\001\000\236\001\000\196\001\000\197\001\000\201\001\000\230\001\000\198\001\000\244\001\000\246\001\000\242\001\000\251\001\000\249\001\000\255\001\000\214\001\000\220\001\000\248\001\000\163\001\000\216\001 \167\001\001\146\001\000\225\001\000\237\001\000\243\001\000\250\001\000\241\001\000\209\001\000\170\001\000\186\001\000\191\001#\016\001\000\172\001\000\189\001\000\188\001\000\161\001\000\171\001\000\164\001%\145\001%\146\001%\147\001%\002\001%$\001%a\001%b\001%V\001%U\001%c\001%Q\001%W\001%]\001%\\\001%[\001%\016\001%\020\001%4\001%,\001%\028\001%\000\001%<\001%^\001%_\001%Z\001%T\001%i\001%f\001%`\001%P\001%l\001%g\001%h\001%d\001%e\001%Y\001%X\001%R\001%S\001%k\001%j\001%\024\001%\012\001%\136\001%\132\001%\140\001%\144\001%\128\001\003\177\001\000\223\001\003\147\001\003\192\001\003\163\001\003\195\001\000\181\001\003\196\001\003\166\001\003\152\001\003\169\001\003\180\001\"\030\001\003\198\001\003\181\001\")\001\"a\001\000\177\001\"e\001\"d\001# \001#!\001\000\247\001\"H\001\000\176\001\"\025\001\000\183\001\"\026\001 \127\001\000\178\001%\160\001\000\160" 0 : int array);;
-let cp865_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\0071\000\000\000\000\000\000\006\229\000\000\006\229\008\000\004\000\000\145\160\160@@\160\160\001%\000\001\000\196@\144\160AA\145\160\160BB\160\160\001%\002\001\000\179@\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001%\012\001\000\218@\144\160MM\144\160NN\144\160OO\145\160\160PP\160\160\001#\016\001\000\169\160\160\001%\016\001\000\191@\144\160QQ\144\160RR\144\160SS\145\160\160TT\160\160\001%\020\001\000\192@\144\160UU\144\160VV\144\160WW\145\160\160XX\160\160\001%\024\001\000\217@\145\160\160YY\160\160\001\"\025\001\000\249@\145\160\160ZZ\160\160\001\"\026\001\000\251@\144\160[[\145\160\160\\\\\160\160\001%\028\001\000\195@\144\160]]\145\160\160^^\160\160\001\"\030\001\000\236@\144\160__\145\160\160``\160\160\001# \001\000\244@\145\160\160aa\160\160\001#!\001\000\245@\144\160bb\144\160cc\145\160\160dd\160\160\001%$\001\000\180@\144\160ee\144\160ff\144\160gg\144\160hh\145\160\160ii\160\160\001\")\001\000\239@\144\160jj\144\160kk\145\160\160ll\160\160\001%,\001\000\194@\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\145\160\160tt\160\160\001%4\001\000\193@\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\145\160\160||\160\160\001%<\001\000\197@\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\145\160\160\000H\000H\160\160\001\"H\001\000\247@\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\145\160\160\000P\000P\160\160\001%P\001\000\205@\145\160\160\000Q\000Q\160\160\001%Q\001\000\186@\145\160\160\000R\000R\160\160\001%R\001\000\213@\145\160\160\000S\000S\160\160\001%S\001\000\214@\145\160\160\000T\000T\160\160\001%T\001\000\201@\145\160\160\000U\000U\160\160\001%U\001\000\184@\145\160\160\000V\000V\160\160\001%V\001\000\183@\145\160\160\000W\000W\160\160\001%W\001\000\187@\145\160\160\000X\000X\160\160\001%X\001\000\212@\145\160\160\000Y\000Y\160\160\001%Y\001\000\211@\145\160\160\000Z\000Z\160\160\001%Z\001\000\200@\145\160\160\000[\000[\160\160\001%[\001\000\190@\145\160\160\000\\\000\\\160\160\001%\\\001\000\189@\145\160\160\000]\000]\160\160\001%]\001\000\188@\145\160\160\000^\000^\160\160\001%^\001\000\198@\145\160\160\000_\000_\160\160\001%_\001\000\199@\145\160\160\000`\000`\160\160\001%`\001\000\204@\145\160\160\000a\000a\160\160\001%a\001\000\181\160\160\001\"a\001\000\240@\145\160\160\000b\000b\160\160\001%b\001\000\182@\145\160\160\000c\000c\160\160\001%c\001\000\185@\145\160\160\000d\000d\160\160\001%d\001\000\209\160\160\001\"d\001\000\243@\145\160\160\000e\000e\160\160\001%e\001\000\210\160\160\001\"e\001\000\242@\145\160\160\000f\000f\160\160\001%f\001\000\203@\145\160\160\000g\000g\160\160\001%g\001\000\207@\145\160\160\000h\000h\160\160\001%h\001\000\208@\145\160\160\000i\000i\160\160\001%i\001\000\202@\145\160\160\000j\000j\160\160\001%j\001\000\216@\145\160\160\000k\000k\160\160\001%k\001\000\215@\145\160\160\000l\000l\160\160\001%l\001\000\206@\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\145\160\160\000\127\000\127\160\160\001 \127\001\000\252@\144\160\001%\128\001\000\223@@@\144\160\001%\132\001\000\220@@@\144\160\001%\136\001\000\219@@@\144\160\001%\140\001\000\221@@@\144\160\001%\144\001\000\222\144\160\001%\145\001\000\176\145\160\160\001\001\146\001\000\159\160\160\001%\146\001\000\177@\145\160\160\001%\147\001\000\178\160\160\001\003\147\001\000\226@@@@@\144\160\001\003\152\001\000\233@@@@@@@\145\160\160\001%\160\001\000\254\160\160\001\000\160\001\000\255@\144\160\001\000\161\001\000\173@\145\160\160\001\000\163\001\000\156\160\160\001\003\163\001\000\228@\144\160\001\000\164\001\000\175@\144\160\001\003\166\001\000\232\144\160\001 \167\001\000\158@\144\160\001\003\169\001\000\234\144\160\001\000\170\001\000\166\144\160\001\000\171\001\000\174\144\160\001\000\172\001\000\170@@@\144\160\001\000\176\001\000\248\145\160\160\001\003\177\001\000\224\160\160\001\000\177\001\000\241@\144\160\001\000\178\001\000\253@\144\160\001\003\180\001\000\235\145\160\160\001\000\181\001\000\230\160\160\001\003\181\001\000\238@@\144\160\001\000\183\001\000\250@@\144\160\001\000\186\001\000\167@\144\160\001\000\188\001\000\172\144\160\001\000\189\001\000\171@\144\160\001\000\191\001\000\168\144\160\001\003\192\001\000\227@@\144\160\001\003\195\001\000\229\145\160\160\001\000\196\001\000\142\160\160\001\003\196\001\000\231@\144\160\001\000\197\001\000\143\145\160\160\001\000\198\001\000\146\160\160\001\003\198\001\000\237@\144\160\001\000\199\001\000\128@\144\160\001\000\201\001\000\144@@@@@@@\144\160\001\000\209\001\000\165@@@@\144\160\001\000\214\001\000\153@\144\160\001\000\216\001\000\157@@@\144\160\001\000\220\001\000\154@@\144\160\001\000\223\001\000\225\144\160\001\000\224\001\000\133\144\160\001\000\225\001\000\160\144\160\001\000\226\001\000\131@\144\160\001\000\228\001\000\132\144\160\001\000\229\001\000\134\144\160\001\000\230\001\000\145\144\160\001\000\231\001\000\135\144\160\001\000\232\001\000\138\144\160\001\000\233\001\000\130\144\160\001\000\234\001\000\136\144\160\001\000\235\001\000\137\144\160\001\000\236\001\000\141\144\160\001\000\237\001\000\161\144\160\001\000\238\001\000\140\144\160\001\000\239\001\000\139@\144\160\001\000\241\001\000\164\144\160\001\000\242\001\000\149\144\160\001\000\243\001\000\162\144\160\001\000\244\001\000\147@\144\160\001\000\246\001\000\148\144\160\001\000\247\001\000\246\144\160\001\000\248\001\000\155\144\160\001\000\249\001\000\151\144\160\001\000\250\001\000\163\144\160\001\000\251\001\000\150\144\160\001\000\252\001\000\129@@\144\160\001\000\255\001\000\152" 0 : Netmappings.from_uni_list array);;
- let cp866_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\004\016\001\004\017\001\004\018\001\004\019\001\004\020\001\004\021\001\004\022\001\004\023\001\004\024\001\004\025\001\004\026\001\004\027\001\004\028\001\004\029\001\004\030\001\004\031\001\004 \001\004!\001\004\"\001\004#\001\004$\001\004%\001\004&\001\004'\001\004(\001\004)\001\004*\001\004+\001\004,\001\004-\001\004.\001\004/\001\0040\001\0041\001\0042\001\0043\001\0044\001\0045\001\0046\001\0047\001\0048\001\0049\001\004:\001\004;\001\004<\001\004=\001\004>\001\004?\001%\145\001%\146\001%\147\001%\002\001%$\001%a\001%b\001%V\001%U\001%c\001%Q\001%W\001%]\001%\\\001%[\001%\016\001%\020\001%4\001%,\001%\028\001%\000\001%<\001%^\001%_\001%Z\001%T\001%i\001%f\001%`\001%P\001%l\001%g\001%h\001%d\001%e\001%Y\001%X\001%R\001%S\001%k\001%j\001%\024\001%\012\001%\136\001%\132\001%\140\001%\144\001%\128\001\004@\001\004A\001\004B\001\004C\001\004D\001\004E\001\004F\001\004G\001\004H\001\004I\001\004J\001\004K\001\004L\001\004M\001\004N\001\004O\001\004\001\001\004Q\001\004\004\001\004T\001\004\007\001\004W\001\004\014\001\004^\001\000\176\001\"\025\001\000\183\001\"\026\001!\022\001\000\164\001%\160\001\000\160" 0 : int array);;
-let cp866_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007\195\000\000\000\000\000\000\007\164\000\000\007\164\008\000\004\000\000\145\160\160@@\160\160\001%\000\001\000\196@\145\160\160AA\160\160\001\004\001\001\000\240@\145\160\160BB\160\160\001%\002\001\000\179@\144\160CC\145\160\160DD\160\160\001\004\004\001\000\242@\144\160EE\144\160FF\145\160\160GG\160\160\001\004\007\001\000\244@\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001%\012\001\000\218@\144\160MM\145\160\160NN\160\160\001\004\014\001\000\246@\144\160OO\145\160\160PP\160\160\001\004\016\001\000\128\160\160\001%\016\001\000\191@\145\160\160QQ\160\160\001\004\017\001\000\129@\145\160\160RR\160\160\001\004\018\001\000\130@\145\160\160SS\160\160\001\004\019\001\000\131@\145\160\160TT\160\160\001\004\020\001\000\132\160\160\001%\020\001\000\192@\145\160\160UU\160\160\001\004\021\001\000\133@\145\160\160VV\160\160\001\004\022\001\000\134\160\160\001!\022\001\000\252@\145\160\160WW\160\160\001\004\023\001\000\135@\145\160\160XX\160\160\001\004\024\001\000\136\160\160\001%\024\001\000\217@\145\160\160YY\160\160\001\004\025\001\000\137\160\160\001\"\025\001\000\249@\145\160\160ZZ\160\160\001\004\026\001\000\138\160\160\001\"\026\001\000\251@\145\160\160[[\160\160\001\004\027\001\000\139@\145\160\160\\\\\160\160\001\004\028\001\000\140\160\160\001%\028\001\000\195@\145\160\160]]\160\160\001\004\029\001\000\141@\145\160\160^^\160\160\001\004\030\001\000\142@\145\160\160__\160\160\001\004\031\001\000\143@\145\160\160``\160\160\001\004 \001\000\144@\145\160\160aa\160\160\001\004!\001\000\145@\145\160\160bb\160\160\001\004\"\001\000\146@\145\160\160cc\160\160\001\004#\001\000\147@\145\160\160dd\160\160\001\004$\001\000\148\160\160\001%$\001\000\180@\145\160\160ee\160\160\001\004%\001\000\149@\145\160\160ff\160\160\001\004&\001\000\150@\145\160\160gg\160\160\001\004'\001\000\151@\145\160\160hh\160\160\001\004(\001\000\152@\145\160\160ii\160\160\001\004)\001\000\153@\145\160\160jj\160\160\001\004*\001\000\154@\145\160\160kk\160\160\001\004+\001\000\155@\145\160\160ll\160\160\001\004,\001\000\156\160\160\001%,\001\000\194@\145\160\160mm\160\160\001\004-\001\000\157@\145\160\160nn\160\160\001\004.\001\000\158@\145\160\160oo\160\160\001\004/\001\000\159@\145\160\160pp\160\160\001\0040\001\000\160@\145\160\160qq\160\160\001\0041\001\000\161@\145\160\160rr\160\160\001\0042\001\000\162@\145\160\160ss\160\160\001\0043\001\000\163@\145\160\160tt\160\160\001\0044\001\000\164\160\160\001%4\001\000\193@\145\160\160uu\160\160\001\0045\001\000\165@\145\160\160vv\160\160\001\0046\001\000\166@\145\160\160ww\160\160\001\0047\001\000\167@\145\160\160xx\160\160\001\0048\001\000\168@\145\160\160yy\160\160\001\0049\001\000\169@\145\160\160zz\160\160\001\004:\001\000\170@\145\160\160{{\160\160\001\004;\001\000\171@\145\160\160||\160\160\001\004<\001\000\172\160\160\001%<\001\000\197@\145\160\160}}\160\160\001\004=\001\000\173@\145\160\160~~\160\160\001\004>\001\000\174@\145\160\160\127\127\160\160\001\004?\001\000\175@\145\160\160\000@\000@\160\160\001\004@\001\000\224@\145\160\160\000A\000A\160\160\001\004A\001\000\225@\145\160\160\000B\000B\160\160\001\004B\001\000\226@\145\160\160\000C\000C\160\160\001\004C\001\000\227@\145\160\160\000D\000D\160\160\001\004D\001\000\228@\145\160\160\000E\000E\160\160\001\004E\001\000\229@\145\160\160\000F\000F\160\160\001\004F\001\000\230@\145\160\160\000G\000G\160\160\001\004G\001\000\231@\145\160\160\000H\000H\160\160\001\004H\001\000\232@\145\160\160\000I\000I\160\160\001\004I\001\000\233@\145\160\160\000J\000J\160\160\001\004J\001\000\234@\145\160\160\000K\000K\160\160\001\004K\001\000\235@\145\160\160\000L\000L\160\160\001\004L\001\000\236@\145\160\160\000M\000M\160\160\001\004M\001\000\237@\145\160\160\000N\000N\160\160\001\004N\001\000\238@\145\160\160\000O\000O\160\160\001\004O\001\000\239@\145\160\160\000P\000P\160\160\001%P\001\000\205@\145\160\160\000Q\000Q\160\160\001%Q\001\000\186\160\160\001\004Q\001\000\241@\145\160\160\000R\000R\160\160\001%R\001\000\213@\145\160\160\000S\000S\160\160\001%S\001\000\214@\145\160\160\000T\000T\160\160\001%T\001\000\201\160\160\001\004T\001\000\243@\145\160\160\000U\000U\160\160\001%U\001\000\184@\145\160\160\000V\000V\160\160\001%V\001\000\183@\145\160\160\000W\000W\160\160\001%W\001\000\187\160\160\001\004W\001\000\245@\145\160\160\000X\000X\160\160\001%X\001\000\212@\145\160\160\000Y\000Y\160\160\001%Y\001\000\211@\145\160\160\000Z\000Z\160\160\001%Z\001\000\200@\145\160\160\000[\000[\160\160\001%[\001\000\190@\145\160\160\000\\\000\\\160\160\001%\\\001\000\189@\145\160\160\000]\000]\160\160\001%]\001\000\188@\145\160\160\000^\000^\160\160\001%^\001\000\198\160\160\001\004^\001\000\247@\145\160\160\000_\000_\160\160\001%_\001\000\199@\145\160\160\000`\000`\160\160\001%`\001\000\204@\145\160\160\000a\000a\160\160\001%a\001\000\181@\145\160\160\000b\000b\160\160\001%b\001\000\182@\145\160\160\000c\000c\160\160\001%c\001\000\185@\145\160\160\000d\000d\160\160\001%d\001\000\209@\145\160\160\000e\000e\160\160\001%e\001\000\210@\145\160\160\000f\000f\160\160\001%f\001\000\203@\145\160\160\000g\000g\160\160\001%g\001\000\207@\145\160\160\000h\000h\160\160\001%h\001\000\208@\145\160\160\000i\000i\160\160\001%i\001\000\202@\145\160\160\000j\000j\160\160\001%j\001\000\216@\145\160\160\000k\000k\160\160\001%k\001\000\215@\145\160\160\000l\000l\160\160\001%l\001\000\206@\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127\144\160\001%\128\001\000\223@@@\144\160\001%\132\001\000\220@@@\144\160\001%\136\001\000\219@@@\144\160\001%\140\001\000\221@@@\144\160\001%\144\001\000\222\144\160\001%\145\001\000\176\144\160\001%\146\001\000\177\144\160\001%\147\001\000\178@@@@@@@@@@@@\145\160\160\001%\160\001\000\254\160\160\001\000\160\001\000\255@@@@\144\160\001\000\164\001\000\253@@@@@@@@@@@\144\160\001\000\176\001\000\248@@@@@@\144\160\001\000\183\001\000\250@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let cp869_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002<\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\000\255\000\255\000\255\000\255\000\255\000\255\001\003\134\000\255\001\000\183\001\000\172\001\000\166\001 \024\001 \025\001\003\136\001 \021\001\003\137\001\003\138\001\003\170\001\003\140\000\255\000\255\001\003\142\001\003\171\001\000\169\001\003\143\001\000\178\001\000\179\001\003\172\001\000\163\001\003\173\001\003\174\001\003\175\001\003\202\001\003\144\001\003\204\001\003\205\001\003\145\001\003\146\001\003\147\001\003\148\001\003\149\001\003\150\001\003\151\001\000\189\001\003\152\001\003\153\001\000\171\001\000\187\001%\145\001%\146\001%\147\001%\002\001%$\001\003\154\001\003\155\001\003\156\001\003\157\001%c\001%Q\001%W\001%]\001\003\158\001\003\159\001%\016\001%\020\001%4\001%,\001%\028\001%\000\001%<\001\003\160\001\003\161\001%Z\001%T\001%i\001%f\001%`\001%P\001%l\001\003\163\001\003\164\001\003\165\001\003\166\001\003\167\001\003\168\001\003\169\001\003\177\001\003\178\001\003\179\001%\024\001%\012\001%\136\001%\132\001\003\180\001\003\181\001%\128\001\003\182\001\003\183\001\003\184\001\003\185\001\003\186\001\003\187\001\003\188\001\003\189\001\003\190\001\003\191\001\003\192\001\003\193\001\003\195\001\003\194\001\003\196\001\003\132\001\000\173\001\000\177\001\003\197\001\003\198\001\003\199\001\000\167\001\003\200\001\003\133\001\000\176\001\000\168\001\003\201\001\003\203\001\003\176\001\003\206\001%\160\001\000\160" 0 : int array);;
-let cp869_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\207\000\000\000\000\000\000\006\138\000\000\006\138\008\000\004\000\000\145\160\160@@\160\160\001%\000\001\000\196@\144\160AA\145\160\160BB\160\160\001%\002\001\000\179@\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001%\012\001\000\218@\144\160MM\144\160NN\144\160OO\145\160\160PP\160\160\001%\016\001\000\191@\144\160QQ\144\160RR\144\160SS\145\160\160TT\160\160\001%\020\001\000\192@\145\160\160UU\160\160\001 \021\001\000\142@\144\160VV\144\160WW\145\160\160XX\160\160\001 \024\001\000\139\160\160\001%\024\001\000\217@\145\160\160YY\160\160\001 \025\001\000\140@\144\160ZZ\144\160[[\145\160\160\\\\\160\160\001%\028\001\000\195@\144\160]]\144\160^^\144\160__\144\160``\144\160aa\144\160bb\144\160cc\145\160\160dd\160\160\001%$\001\000\180@\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\145\160\160ll\160\160\001%,\001\000\194@\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\145\160\160tt\160\160\001%4\001\000\193@\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\145\160\160||\160\160\001%<\001\000\197@\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\145\160\160\000P\000P\160\160\001%P\001\000\205@\145\160\160\000Q\000Q\160\160\001%Q\001\000\186@\144\160\000R\000R\144\160\000S\000S\145\160\160\000T\000T\160\160\001%T\001\000\201@\144\160\000U\000U\144\160\000V\000V\145\160\160\000W\000W\160\160\001%W\001\000\187@\144\160\000X\000X\144\160\000Y\000Y\145\160\160\000Z\000Z\160\160\001%Z\001\000\200@\144\160\000[\000[\144\160\000\\\000\\\145\160\160\000]\000]\160\160\001%]\001\000\188@\144\160\000^\000^\144\160\000_\000_\145\160\160\000`\000`\160\160\001%`\001\000\204@\144\160\000a\000a\144\160\000b\000b\145\160\160\000c\000c\160\160\001%c\001\000\185@\144\160\000d\000d\144\160\000e\000e\145\160\160\000f\000f\160\160\001%f\001\000\203@\144\160\000g\000g\144\160\000h\000h\145\160\160\000i\000i\160\160\001%i\001\000\202@\144\160\000j\000j\144\160\000k\000k\145\160\160\000l\000l\160\160\001%l\001\000\206@\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127\144\160\001%\128\001\000\223@@@\145\160\160\001%\132\001\000\220\160\160\001\003\132\001\000\239@\144\160\001\003\133\001\000\247\144\160\001\003\134\001\000\134@\145\160\160\001\003\136\001\000\141\160\160\001%\136\001\000\219@\144\160\001\003\137\001\000\143\144\160\001\003\138\001\000\144@\144\160\001\003\140\001\000\146@\144\160\001\003\142\001\000\149\144\160\001\003\143\001\000\152\144\160\001\003\144\001\000\161\145\160\160\001\003\145\001\000\164\160\160\001%\145\001\000\176@\145\160\160\001\003\146\001\000\165\160\160\001%\146\001\000\177@\145\160\160\001\003\147\001\000\166\160\160\001%\147\001\000\178@\144\160\001\003\148\001\000\167\144\160\001\003\149\001\000\168\144\160\001\003\150\001\000\169\144\160\001\003\151\001\000\170\144\160\001\003\152\001\000\172\144\160\001\003\153\001\000\173\144\160\001\003\154\001\000\181\144\160\001\003\155\001\000\182\144\160\001\003\156\001\000\183\144\160\001\003\157\001\000\184\144\160\001\003\158\001\000\189\144\160\001\003\159\001\000\190\145\160\160\001\003\160\001\000\198\160\160\001%\160\001\000\254\160\160\001\000\160\001\000\255@\144\160\001\003\161\001\000\199@\145\160\160\001\000\163\001\000\156\160\160\001\003\163\001\000\207@\144\160\001\003\164\001\000\208\144\160\001\003\165\001\000\209\145\160\160\001\000\166\001\000\138\160\160\001\003\166\001\000\210@\145\160\160\001\003\167\001\000\211\160\160\001\000\167\001\000\245@\145\160\160\001\003\168\001\000\212\160\160\001\000\168\001\000\249@\145\160\160\001\000\169\001\000\151\160\160\001\003\169\001\000\213@\144\160\001\003\170\001\000\145\145\160\160\001\003\171\001\000\150\160\160\001\000\171\001\000\174@\145\160\160\001\000\172\001\000\137\160\160\001\003\172\001\000\155@\145\160\160\001\003\173\001\000\157\160\160\001\000\173\001\000\240@\144\160\001\003\174\001\000\158\144\160\001\003\175\001\000\159\145\160\160\001\000\176\001\000\248\160\160\001\003\176\001\000\252@\145\160\160\001\003\177\001\000\214\160\160\001\000\177\001\000\241@\145\160\160\001\000\178\001\000\153\160\160\001\003\178\001\000\215@\145\160\160\001\000\179\001\000\154\160\160\001\003\179\001\000\216@\144\160\001\003\180\001\000\221\144\160\001\003\181\001\000\222\144\160\001\003\182\001\000\224\145\160\160\001\000\183\001\000\136\160\160\001\003\183\001\000\225@\144\160\001\003\184\001\000\226\144\160\001\003\185\001\000\227\144\160\001\003\186\001\000\228\145\160\160\001\000\187\001\000\175\160\160\001\003\187\001\000\229@\144\160\001\003\188\001\000\230\145\160\160\001\000\189\001\000\171\160\160\001\003\189\001\000\231@\144\160\001\003\190\001\000\232\144\160\001\003\191\001\000\233\144\160\001\003\192\001\000\234\144\160\001\003\193\001\000\235\144\160\001\003\194\001\000\237\144\160\001\003\195\001\000\236\144\160\001\003\196\001\000\238\144\160\001\003\197\001\000\242\144\160\001\003\198\001\000\243\144\160\001\003\199\001\000\244\144\160\001\003\200\001\000\246\144\160\001\003\201\001\000\250\144\160\001\003\202\001\000\160\144\160\001\003\203\001\000\251\144\160\001\003\204\001\000\162\144\160\001\003\205\001\000\163\144\160\001\003\206\001\000\253@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let cp874_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002&\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001 \172\000\255\000\255\000\255\000\255\001 &\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\001 \024\001 \025\001 \028\001 \029\001 \"\001 \019\001 \020\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\001\000\160\001\014\001\001\014\002\001\014\003\001\014\004\001\014\005\001\014\006\001\014\007\001\014\008\001\014\t\001\014\n\001\014\011\001\014\012\001\014\013\001\014\014\001\014\015\001\014\016\001\014\017\001\014\018\001\014\019\001\014\020\001\014\021\001\014\022\001\014\023\001\014\024\001\014\025\001\014\026\001\014\027\001\014\028\001\014\029\001\014\030\001\014\031\001\014 \001\014!\001\014\"\001\014#\001\014$\001\014%\001\014&\001\014'\001\014(\001\014)\001\014*\001\014+\001\014,\001\014-\001\014.\001\014/\001\0140\001\0141\001\0142\001\0143\001\0144\001\0145\001\0146\001\0147\001\0148\001\0149\001\014:\000\255\000\255\000\255\000\255\001\014?\001\014@\001\014A\001\014B\001\014C\001\014D\001\014E\001\014F\001\014G\001\014H\001\014I\001\014J\001\014K\001\014L\001\014M\001\014N\001\014O\001\014P\001\014Q\001\014R\001\014S\001\014T\001\014U\001\014V\001\014W\001\014X\001\014Y\001\014Z\001\014[\000\255\000\255\000\255\000\255" 0 : int array);;
-let cp874_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\185\000\000\000\000\000\000\006\202\000\000\006\202\008\000\004\000\000\144\160@@\145\160\160AA\160\160\001\014\001\001\000\161@\145\160\160BB\160\160\001\014\002\001\000\162@\145\160\160CC\160\160\001\014\003\001\000\163@\145\160\160DD\160\160\001\014\004\001\000\164@\145\160\160EE\160\160\001\014\005\001\000\165@\145\160\160FF\160\160\001\014\006\001\000\166@\145\160\160GG\160\160\001\014\007\001\000\167@\145\160\160HH\160\160\001\014\008\001\000\168@\145\160\160II\160\160\001\014\t\001\000\169@\145\160\160JJ\160\160\001\014\n\001\000\170@\145\160\160KK\160\160\001\014\011\001\000\171@\145\160\160LL\160\160\001\014\012\001\000\172@\145\160\160MM\160\160\001\014\013\001\000\173@\145\160\160NN\160\160\001\014\014\001\000\174@\145\160\160OO\160\160\001\014\015\001\000\175@\145\160\160PP\160\160\001\014\016\001\000\176@\145\160\160QQ\160\160\001\014\017\001\000\177@\145\160\160RR\160\160\001\014\018\001\000\178@\145\160\160SS\160\160\001 \019\001\000\150\160\160\001\014\019\001\000\179@\145\160\160TT\160\160\001 \020\001\000\151\160\160\001\014\020\001\000\180@\145\160\160UU\160\160\001\014\021\001\000\181@\145\160\160VV\160\160\001\014\022\001\000\182@\145\160\160WW\160\160\001\014\023\001\000\183@\145\160\160XX\160\160\001 \024\001\000\145\160\160\001\014\024\001\000\184@\145\160\160YY\160\160\001 \025\001\000\146\160\160\001\014\025\001\000\185@\145\160\160ZZ\160\160\001\014\026\001\000\186@\145\160\160[[\160\160\001\014\027\001\000\187@\145\160\160\\\\\160\160\001 \028\001\000\147\160\160\001\014\028\001\000\188@\145\160\160]]\160\160\001 \029\001\000\148\160\160\001\014\029\001\000\189@\145\160\160^^\160\160\001\014\030\001\000\190@\145\160\160__\160\160\001\014\031\001\000\191@\145\160\160``\160\160\001\014 \001\000\192@\145\160\160aa\160\160\001\014!\001\000\193@\145\160\160bb\160\160\001 \"\001\000\149\160\160\001\014\"\001\000\194@\145\160\160cc\160\160\001\014#\001\000\195@\145\160\160dd\160\160\001\014$\001\000\196@\145\160\160ee\160\160\001\014%\001\000\197@\145\160\160ff\160\160\001 &\001\000\133\160\160\001\014&\001\000\198@\145\160\160gg\160\160\001\014'\001\000\199@\145\160\160hh\160\160\001\014(\001\000\200@\145\160\160ii\160\160\001\014)\001\000\201@\145\160\160jj\160\160\001\014*\001\000\202@\145\160\160kk\160\160\001\014+\001\000\203@\145\160\160ll\160\160\001\014,\001\000\204@\145\160\160mm\160\160\001\014-\001\000\205@\145\160\160nn\160\160\001\014.\001\000\206@\145\160\160oo\160\160\001\014/\001\000\207@\145\160\160pp\160\160\001\0140\001\000\208@\145\160\160qq\160\160\001\0141\001\000\209@\145\160\160rr\160\160\001\0142\001\000\210@\145\160\160ss\160\160\001\0143\001\000\211@\145\160\160tt\160\160\001\0144\001\000\212@\145\160\160uu\160\160\001\0145\001\000\213@\145\160\160vv\160\160\001\0146\001\000\214@\145\160\160ww\160\160\001\0147\001\000\215@\145\160\160xx\160\160\001\0148\001\000\216@\145\160\160yy\160\160\001\0149\001\000\217@\145\160\160zz\160\160\001\014:\001\000\218@\144\160{{\144\160||\144\160}}\144\160~~\145\160\160\127\127\160\160\001\014?\001\000\223@\145\160\160\000@\000@\160\160\001\014@\001\000\224@\145\160\160\000A\000A\160\160\001\014A\001\000\225@\145\160\160\000B\000B\160\160\001\014B\001\000\226@\145\160\160\000C\000C\160\160\001\014C\001\000\227@\145\160\160\000D\000D\160\160\001\014D\001\000\228@\145\160\160\000E\000E\160\160\001\014E\001\000\229@\145\160\160\000F\000F\160\160\001\014F\001\000\230@\145\160\160\000G\000G\160\160\001\014G\001\000\231@\145\160\160\000H\000H\160\160\001\014H\001\000\232@\145\160\160\000I\000I\160\160\001\014I\001\000\233@\145\160\160\000J\000J\160\160\001\014J\001\000\234@\145\160\160\000K\000K\160\160\001\014K\001\000\235@\145\160\160\000L\000L\160\160\001\014L\001\000\236@\145\160\160\000M\000M\160\160\001\014M\001\000\237@\145\160\160\000N\000N\160\160\001\014N\001\000\238@\145\160\160\000O\000O\160\160\001\014O\001\000\239@\145\160\160\000P\000P\160\160\001\014P\001\000\240@\145\160\160\000Q\000Q\160\160\001\014Q\001\000\241@\145\160\160\000R\000R\160\160\001\014R\001\000\242@\145\160\160\000S\000S\160\160\001\014S\001\000\243@\145\160\160\000T\000T\160\160\001\014T\001\000\244@\145\160\160\000U\000U\160\160\001\014U\001\000\245@\145\160\160\000V\000V\160\160\001\014V\001\000\246@\145\160\160\000W\000W\160\160\001\014W\001\000\247@\145\160\160\000X\000X\160\160\001\014X\001\000\248@\145\160\160\000Y\000Y\160\160\001\014Y\001\000\249@\145\160\160\000Z\000Z\160\160\001\014Z\001\000\250@\145\160\160\000[\000[\160\160\001\014[\001\000\251@\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\144\160\000`\000`\144\160\000a\000a\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\144\160\001\000\160\001\000\160@@@@@@@@@@@\144\160\001 \172\001\000\128@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let cp875_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002@\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABC\001\000\156I\001\000\134\000\127\001\000\151\001\000\141\001\000\142KLMNOPQRS\001\000\157\001\000\133H\001\000\135XY\001\000\146\001\000\143\\]^_\001\000\128\001\000\129\001\000\130\001\000\131\001\000\132JW[\001\000\136\001\000\137\001\000\138\001\000\139\001\000\140EFG\001\000\144\001\000\145V\001\000\147\001\000\148\001\000\149\001\000\150D\001\000\152\001\000\153\001\000\154\001\000\155TU\001\000\158\000\255`\001\003\145\001\003\146\001\003\147\001\003\148\001\003\149\001\003\150\001\003\151\001\003\152\001\003\153\000[n|hkaf\001\003\154\001\003\155\001\003\156\001\003\157\001\003\158\001\003\159\001\003\160\001\003\161\001\003\163\000]dji{\000^mo\001\003\164\001\003\165\001\003\166\001\003\167\001\003\168\001\003\169\001\003\170\001\003\171\000|le\000_~\127\001\000\168\001\003\134\001\003\136\001\003\137\001\000\160\001\003\138\001\003\140\001\003\142\001\003\143\000`zc\000@g}b\001\003\133\000a\000b\000c\000d\000e\000f\000g\000h\000i\001\003\177\001\003\178\001\003\179\001\003\180\001\003\181\001\003\182\001\000\176\000j\000k\000l\000m\000n\000o\000p\000q\000r\001\003\183\001\003\184\001\003\185\001\003\186\001\003\187\001\003\188\001\000\180\000~\000s\000t\000u\000v\000w\000x\000y\000z\001\003\189\001\003\190\001\003\191\001\003\192\001\003\193\001\003\195\001\000\163\001\003\172\001\003\173\001\003\174\001\003\202\001\003\175\001\003\204\001\003\205\001\003\203\001\003\206\001\003\194\001\003\196\001\003\197\001\003\198\001\003\199\001\003\200\000{\000A\000B\000C\000D\000E\000F\000G\000H\000I\001\000\173\001\003\201\001\003\144\001\003\176\001 \024\001 \021\000}\000J\000K\000L\000M\000N\000O\000P\000Q\000R\001\000\177\001\000\189\000\255\001\003\135\001 \025\001\000\166\000\\\000\255\000S\000T\000U\000V\000W\000X\000Y\000Z\001\000\178\001\000\167\000\255\000\255\001\000\171\001\000\172pqrstuvwxy\001\000\179\001\000\169\000\255\000\255\001\000\187\001\000\159" 0 : int array);;
-let cp875_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\220\000\000\000\000\000\000\006\142\000\000\006\142\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160Dw\144\160Em\144\160Fn\144\160Go\144\160HV\144\160IE\144\160Je\144\160KK\144\160LL\144\160MM\144\160NN\144\160OO\144\160PP\144\160QQ\144\160RR\144\160SS\144\160T|\145\160\160U}\160\160\001 \021\001\000\207@\144\160Vr\144\160Wf\145\160\160XX\160\160\001 \024\001\000\206@\145\160\160YY\160\160\001 \025\001\000\222@@\144\160[g\144\160\\\\\144\160]]\144\160^^\144\160__\144\160`\000@\144\160a\000O\144\160b\000\127\144\160c\000{\144\160d\000[\144\160e\000l\144\160f\000P\144\160g\000}\144\160h\000M\144\160i\000]\144\160j\000\\\144\160k\000N\144\160l\000k\144\160m\000`\144\160n\000K\144\160o\000a\144\160p\001\000\240\144\160q\001\000\241\144\160r\001\000\242\144\160s\001\000\243\144\160t\001\000\244\144\160u\001\000\245\144\160v\001\000\246\144\160w\001\000\247\144\160x\001\000\248\144\160y\001\000\249\144\160z\000z\144\160{\000^\144\160|\000L\144\160}\000~\144\160~\000n\144\160\127\000o\144\160\000@\000|\144\160\000A\001\000\193\144\160\000B\001\000\194\144\160\000C\001\000\195\144\160\000D\001\000\196\144\160\000E\001\000\197\144\160\000F\001\000\198\144\160\000G\001\000\199\144\160\000H\001\000\200\144\160\000I\001\000\201\144\160\000J\001\000\209\144\160\000K\001\000\210\144\160\000L\001\000\211\144\160\000M\001\000\212\144\160\000N\001\000\213\144\160\000O\001\000\214\144\160\000P\001\000\215\144\160\000Q\001\000\216\144\160\000R\001\000\217\144\160\000S\001\000\226\144\160\000T\001\000\227\144\160\000U\001\000\228\144\160\000V\001\000\229\144\160\000W\001\000\230\144\160\000X\001\000\231\144\160\000Y\001\000\232\144\160\000Z\001\000\233\144\160\000[\000J\144\160\000\\\001\000\224\144\160\000]\000Z\144\160\000^\000_\144\160\000_\000m\144\160\000`\000y\144\160\000a\001\000\129\144\160\000b\001\000\130\144\160\000c\001\000\131\144\160\000d\001\000\132\144\160\000e\001\000\133\144\160\000f\001\000\134\144\160\000g\001\000\135\144\160\000h\001\000\136\144\160\000i\001\000\137\144\160\000j\001\000\145\144\160\000k\001\000\146\144\160\000l\001\000\147\144\160\000m\001\000\148\144\160\000n\001\000\149\144\160\000o\001\000\150\144\160\000p\001\000\151\144\160\000q\001\000\152\144\160\000r\001\000\153\144\160\000s\001\000\162\144\160\000t\001\000\163\144\160\000u\001\000\164\144\160\000v\001\000\165\144\160\000w\001\000\166\144\160\000x\001\000\167\144\160\000y\001\000\168\144\160\000z\001\000\169\144\160\000{\001\000\192\144\160\000|\000j\144\160\000}\001\000\208\144\160\000~\001\000\161\144\160\000\127G\144\160\001\000\128`\144\160\001\000\129a\144\160\001\000\130b\144\160\001\000\131c\144\160\001\000\132d\145\160\160\001\000\133U\160\160\001\003\133\001\000\128@\145\160\160\001\000\134F\160\160\001\003\134\000q@\145\160\160\001\000\135W\160\160\001\003\135\001\000\221@\145\160\160\001\000\136h\160\160\001\003\136\000r@\145\160\160\001\000\137i\160\160\001\003\137\000s@\145\160\160\001\000\138j\160\160\001\003\138\000u@\144\160\001\000\139k\145\160\160\001\000\140l\160\160\001\003\140\000v@\144\160\001\000\141I\145\160\160\001\000\142J\160\160\001\003\142\000w@\145\160\160\001\000\143[\160\160\001\003\143\000x@\145\160\160\001\000\144p\160\160\001\003\144\001\000\204@\145\160\160\001\000\145q\160\160\001\003\145\000A@\145\160\160\001\000\146Z\160\160\001\003\146\000B@\145\160\160\001\000\147s\160\160\001\003\147\000C@\145\160\160\001\000\148t\160\160\001\003\148\000D@\145\160\160\001\000\149u\160\160\001\003\149\000E@\145\160\160\001\000\150v\160\160\001\003\150\000F@\145\160\160\001\000\151H\160\160\001\003\151\000G@\145\160\160\001\000\152x\160\160\001\003\152\000H@\145\160\160\001\000\153y\160\160\001\003\153\000I@\145\160\160\001\000\154z\160\160\001\003\154\000Q@\145\160\160\001\000\155{\160\160\001\003\155\000R@\145\160\160\001\000\156D\160\160\001\003\156\000S@\145\160\160\001\000\157T\160\160\001\003\157\000T@\145\160\160\001\000\158~\160\160\001\003\158\000U@\145\160\160\001\003\159\000V\160\160\001\000\159\001\000\255@\145\160\160\001\003\160\000W\160\160\001\000\160\000t@\144\160\001\003\161\000X@\145\160\160\001\003\163\000Y\160\160\001\000\163\001\000\176@\144\160\001\003\164\000b\144\160\001\003\165\000c\145\160\160\001\003\166\000d\160\160\001\000\166\001\000\223@\145\160\160\001\003\167\000e\160\160\001\000\167\001\000\235@\145\160\160\001\003\168\000f\160\160\001\000\168\000p@\145\160\160\001\003\169\000g\160\160\001\000\169\001\000\251@\144\160\001\003\170\000h\145\160\160\001\003\171\000i\160\160\001\000\171\001\000\238@\145\160\160\001\003\172\001\000\177\160\160\001\000\172\001\000\239@\145\160\160\001\003\173\001\000\178\160\160\001\000\173\001\000\202@\144\160\001\003\174\001\000\179\144\160\001\003\175\001\000\181\145\160\160\001\000\176\001\000\144\160\160\001\003\176\001\000\205@\145\160\160\001\003\177\001\000\138\160\160\001\000\177\001\000\218@\145\160\160\001\003\178\001\000\139\160\160\001\000\178\001\000\234@\145\160\160\001\003\179\001\000\140\160\160\001\000\179\001\000\250@\145\160\160\001\003\180\001\000\141\160\160\001\000\180\001\000\160@\144\160\001\003\181\001\000\142\144\160\001\003\182\001\000\143\144\160\001\003\183\001\000\154\144\160\001\003\184\001\000\155\144\160\001\003\185\001\000\156\144\160\001\003\186\001\000\157\145\160\160\001\003\187\001\000\158\160\160\001\000\187\001\000\254@\144\160\001\003\188\001\000\159\145\160\160\001\003\189\001\000\170\160\160\001\000\189\001\000\219@\144\160\001\003\190\001\000\171\144\160\001\003\191\001\000\172\144\160\001\003\192\001\000\173\144\160\001\003\193\001\000\174\144\160\001\003\194\001\000\186\144\160\001\003\195\001\000\175\144\160\001\003\196\001\000\187\144\160\001\003\197\001\000\188\144\160\001\003\198\001\000\189\144\160\001\003\199\001\000\190\144\160\001\003\200\001\000\191\144\160\001\003\201\001\000\203\144\160\001\003\202\001\000\180\144\160\001\003\203\001\000\184\144\160\001\003\204\001\000\182\144\160\001\003\205\001\000\183\144\160\001\003\206\001\000\185@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let adobe_standard_encoding_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002\031\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255`abcdef\001 \025hijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\001 \024\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\001\000\161\001\000\162\001\000\163\001 D\001\000\165\001\001\146\001\000\167\001\000\164g\001 \028\001\000\171\001 9\001 :\002\000\000\251\001\002\000\000\251\002\000\255\001 \019\001  \001 !\001\000\183\000\255\001\000\182\001 \"\001 \026\001 \030\001 \029\001\000\187\001 &\001 0\000\255\001\000\191\000\255\000`\001\000\180\001\002\198\001\002\220\001\000\175\001\002\216\001\002\217\001\000\168\000\255\001\002\218\001\000\184\000\255\001\002\221\001\002\219\001\002\199\001 \020\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\001\000\198\000\255\001\000\170\000\255\000\255\000\255\000\255\001\001A\001\000\216\001\001R\001\000\186\000\255\000\255\000\255\000\255\000\255\001\000\230\000\255\000\255\000\255\001\0011\000\255\000\255\001\001B\001\000\248\001\001S\001\000\223\000\255\000\255\000\255\000\255" 0 : int array);;
-let adobe_standard_encoding_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\004K\000\000\000\000\000\000\004&\000\000\004&\008\000\004\000\000@\144\160\002\000\000\251\001\001\000\174\144\160\002\000\000\251\002\001\000\175@@@@@@@@@@@@@@@@\144\160\001 \019\001\000\177\144\160\001 \020\001\000\208@@@\144\160\001 \024\000`\144\160\001 \025g\144\160\001 \026\001\000\184@\144\160\001 \028\001\000\170\144\160\001 \029\001\000\186\144\160\001 \030\001\000\185@\145\160\160``\160\160\001  \001\000\178@\145\160\160aa\160\160\001 !\001\000\179@\145\160\160bb\160\160\001 \"\001\000\183@\144\160cc\144\160dd\144\160ee\145\160\160ff\160\160\001 &\001\000\188@\144\160g\001\000\169\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\145\160\160pp\160\160\001 0\001\000\189@\145\160\160qq\160\160\001\0011\001\000\245@\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\145\160\160yy\160\160\001 9\001\000\172@\145\160\160zz\160\160\001 :\001\000\173@\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\145\160\160\000A\000A\160\160\001\001A\001\000\232@\145\160\160\000B\000B\160\160\001\001B\001\000\248@\144\160\000C\000C\145\160\160\000D\000D\160\160\001 D\001\000\164@\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\145\160\160\000R\000R\160\160\001\001R\001\000\234@\145\160\160\000S\000S\160\160\001\001S\001\000\250@\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\144\160\000`\001\000\193\144\160\000a\000a\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~@@@@@@@@@@@@@@@@@@@\144\160\001\001\146\001\000\166@@@@@@@@@@@@@@\144\160\001\000\161\001\000\161\144\160\001\000\162\001\000\162\144\160\001\000\163\001\000\163\144\160\001\000\164\001\000\168\144\160\001\000\165\001\000\165@\144\160\001\000\167\001\000\167\144\160\001\000\168\001\000\200@\144\160\001\000\170\001\000\227\144\160\001\000\171\001\000\171@@@\144\160\001\000\175\001\000\197@@@@\144\160\001\000\180\001\000\194@\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\180\144\160\001\000\184\001\000\203@\144\160\001\000\186\001\000\235\144\160\001\000\187\001\000\187@@@\144\160\001\000\191\001\000\191@@@@@@\145\160\160\001\002\198\001\000\195\160\160\001\000\198\001\000\225@\144\160\001\002\199\001\000\207@@@@@@@@@@@@@@@@\145\160\160\001\002\216\001\000\198\160\160\001\000\216\001\000\233@\144\160\001\002\217\001\000\199\144\160\001\002\218\001\000\202\144\160\001\002\219\001\000\206\144\160\001\002\220\001\000\196\144\160\001\002\221\001\000\205@\144\160\001\000\223\001\000\251@@@@@@\144\160\001\000\230\001\000\241@@@@@@@@@@@@@@@@@\144\160\001\000\248\001\000\249@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let adobe_symbol_encoding_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002\192\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255`a\001\"\000c\001\"\003ef\001\"\011hi\001\"\023kl\001\"\018nopqrstuvwxyz{|}~\127\001\"E\001\003\145\001\003\146\001\003\167\001\003\148\001\003\149\001\003\166\001\003\147\001\003\151\001\003\153\001\003\209\001\003\154\001\003\155\001\003\156\001\003\157\001\003\159\001\003\160\001\003\152\001\003\161\001\003\163\001\003\164\001\003\165\001\003\194\001\003\169\001\003\158\001\003\168\001\003\150\000[\001\"4\000]\001\"\165\000_\002\000\000\248\229\001\003\177\001\003\178\001\003\199\001\003\180\001\003\181\001\003\198\001\003\179\001\003\183\001\003\185\001\003\213\001\003\186\001\003\187\001\003\188\001\003\189\001\003\191\001\003\192\001\003\184\001\003\193\001\003\195\001\003\196\001\003\197\001\003\214\001\003\201\001\003\190\001\003\200\001\003\182\000{\000|\000}\001\"<\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\001 \172\001\003\210\001 2\001\"d\001 D\001\"\030\001\001\146\001&c\001&f\001&e\001&`\001!\148\001!\144\001!\145\001!\146\001!\147\001\000\176\001\000\177\001 3\001\"e\001\000\215\001\"\029\001\"\002\001 \"\001\000\247\001\"`\001\"a\001\"H\001 &\002\000\000\248\230\002\000\000\248\231\001!\181\001!5\001!\017\001!\028\001!\024\001\"\151\001\"\149\001\"\005\001\")\001\"*\001\"\131\001\"\135\001\"\132\001\"\130\001\"\134\001\"\008\001\"\t\001\" \001\"\007\002\000\000\246\218\002\000\000\246\217\002\000\000\246\219\001\"\015\001\"\026\001\"\197\001\000\172\001\"'\001\"(\001!\212\001!\208\001!\209\001!\210\001!\211\001%\202\001#)\002\000\000\248\232\002\000\000\248\233\002\000\000\248\234\001\"\017\002\000\000\248\235\002\000\000\248\236\002\000\000\248\237\002\000\000\248\238\002\000\000\248\239\002\000\000\248\240\002\000\000\248\241\002\000\000\248\242\002\000\000\248\243\002\000\000\248\244\000\255\001#*\001\"+\001# \002\000\000\248\245\001#!\002\000\000\248\246\002\000\000\248\247\002\000\000\248\248\002\000\000\248\249\002\000\000\248\250\002\000\000\248\251\002\000\000\248\252\002\000\000\248\253\002\000\000\248\254\000\255" 0 : int array);;
-let adobe_symbol_encoding_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\t\000\000\000\000\000\000\005)\000\000\005)\008\000\004\000\000\144\160\001\"\000b@\144\160\001\"\002\001\000\182\144\160\001\"\003d@\144\160\001\"\005\001\000\198@\144\160\001\"\007\001\000\209\144\160\001\"\008\001\000\206\144\160\001\"\t\001\000\207@\144\160\001\"\011g@@@\144\160\001\"\015\001\000\213@\145\160\160\001!\017\001\000\193\160\160\001\"\017\001\000\229@\144\160\001\"\018m@@@@\144\160\001\"\023j\144\160\001!\024\001\000\195@\144\160\001\"\026\001\000\214@\144\160\001!\028\001\000\194\144\160\001\"\029\001\000\181\144\160\001\"\030\001\000\165@\145\160\160``\160\160\001\" \001\000\208\160\160\001# \001\000\243@\145\160\160aa\160\160\001#!\001\000\245@\144\160\001 \"\001\000\183\144\160cc@\144\160ee\145\160\160ff\160\160\001 &\001\000\188@\144\160\001\"'\001\000\217\145\160\160hh\160\160\001\"(\001\000\218@\145\160\160ii\160\160\001\")\001\000\199\160\160\001#)\001\000\225@\145\160\160\001\"*\001\000\200\160\160\001#*\001\000\241@\145\160\160kk\160\160\001\"+\001\000\242@\144\160ll@\144\160nn\144\160oo\144\160pp\144\160qq\145\160\160rr\160\160\001 2\001\000\162@\145\160\160ss\160\160\001 3\001\000\178@\145\160\160tt\160\160\001\"4\000\\@\145\160\160uu\160\160\001!5\001\000\192@\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\145\160\160||\160\160\001\"<\000~@\144\160}}\144\160~~\144\160\127\127@@@@\144\160\001 D\001\000\164\144\160\001\"E\000@@@\144\160\001\"H\001\000\187@@@@@@@@@@@@@@@@@@\144\160\000[\000[@\144\160\000]\000]@\144\160\000_\000_\145\160\160\001&`\001\000\170\160\160\001\"`\001\000\185@\144\160\001\"a\001\000\186@\144\160\001&c\001\000\167\144\160\001\"d\001\000\163\145\160\160\001&e\001\000\169\160\160\001\"e\001\000\179@\144\160\001&f\001\000\168@@@@@@@@@@@@@@@@@@@@\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}@@@@\144\160\001\"\130\001\000\204\144\160\001\"\131\001\000\201\144\160\001\"\132\001\000\203@\144\160\001\"\134\001\000\205\144\160\001\"\135\001\000\202@@@@@@@@\144\160\001!\144\001\000\172\145\160\160\001\003\145\000A\160\160\001!\145\001\000\173@\145\160\160\001\003\146\000B\160\160\001\001\146\001\000\166\160\160\001!\146\001\000\174@\145\160\160\001\003\147\000G\160\160\001!\147\001\000\175@\145\160\160\001\003\148\000D\160\160\001!\148\001\000\171@\145\160\160\001\003\149\000E\160\160\001\"\149\001\000\197@\144\160\001\003\150\000Z\145\160\160\001\003\151\000H\160\160\001\"\151\001\000\196@\144\160\001\003\152\000Q\144\160\001\003\153\000I\144\160\001\003\154\000K\144\160\001\003\155\000L\144\160\001\003\156\000M\144\160\001\003\157\000N\144\160\001\003\158\000X\144\160\001\003\159\000O\144\160\001\003\160\000P\144\160\001\003\161\000R@\144\160\001\003\163\000S\144\160\001\003\164\000T\145\160\160\001\003\165\000U\160\160\001\"\165\000^@\144\160\001\003\166\000F\144\160\001\003\167\000C\144\160\001\003\168\000Y\144\160\001\003\169\000W@@\145\160\160\001 \172\001\000\160\160\160\001\000\172\001\000\216@@@@\144\160\001\000\176\001\000\176\145\160\160\001\003\177\000a\160\160\001\000\177\001\000\177@\144\160\001\003\178\000b\144\160\001\003\179\000g\144\160\001\003\180\000d\145\160\160\001\003\181\000e\160\160\001!\181\001\000\191@\144\160\001\003\182\000z\144\160\001\003\183\000h\144\160\001\003\184\000q\144\160\001\003\185\000i\144\160\001\003\186\000k\144\160\001\003\187\000l\144\160\001\003\188\000m\144\160\001\003\189\000n\144\160\001\003\190\000x\144\160\001\003\191\000o\144\160\001\003\192\000p\144\160\001\003\193\000r\144\160\001\003\194\000V\144\160\001\003\195\000s\144\160\001\003\196\000t\145\160\160\001\003\197\000u\160\160\001\"\197\001\000\215@\144\160\001\003\198\000f\144\160\001\003\199\000c\144\160\001\003\200\000y\144\160\001\003\201\000w\144\160\001%\202\001\000\224@@@@@\144\160\001!\208\001\000\220\145\160\160\001\003\209\000J\160\160\001!\209\001\000\221@\145\160\160\001\003\210\001\000\161\160\160\001!\210\001\000\222@\144\160\001!\211\001\000\223\144\160\001!\212\001\000\219\144\160\001\003\213\000j\144\160\001\003\214\000v\144\160\001\000\215\001\000\180@\144\160\002\000\000\246\217\001\000\211\144\160\002\000\000\246\218\001\000\210\144\160\002\000\000\246\219\001\000\212@@@@@@@@@\144\160\002\000\000\248\229\000`\144\160\002\000\000\248\230\001\000\189\144\160\002\000\000\248\231\001\000\190\144\160\002\000\000\248\232\001\000\226\144\160\002\000\000\248\233\001\000\227\144\160\002\000\000\248\234\001\000\228\144\160\002\000\000\248\235\001\000\230\144\160\002\000\000\248\236\001\000\231\144\160\002\000\000\248\237\001\000\232\144\160\002\000\000\248\238\001\000\233\144\160\002\000\000\248\239\001\000\234\144\160\002\000\000\248\240\001\000\235\144\160\002\000\000\248\241\001\000\236\144\160\002\000\000\248\242\001\000\237\144\160\002\000\000\248\243\001\000\238\144\160\002\000\000\248\244\001\000\239\144\160\002\000\000\248\245\001\000\244\144\160\002\000\000\248\246\001\000\246\145\160\160\001\000\247\001\000\184\160\160\002\000\000\248\247\001\000\247@\144\160\002\000\000\248\248\001\000\248\144\160\002\000\000\248\249\001\000\249\144\160\002\000\000\248\250\001\000\250\144\160\002\000\000\248\251\001\000\251\144\160\002\000\000\248\252\001\000\252\144\160\002\000\000\248\253\001\000\253\144\160\002\000\000\248\254\001\000\254@" 0 : Netmappings.from_uni_list array);;
- let adobe_zapf_dingbats_encoding_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002\233\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255`\001'\001\001'\002\001'\003\001'\004\001&\014\001'\006\001'\007\001'\008\001'\t\001&\027\001&\030\001'\012\001'\013\001'\014\001'\015\001'\016\001'\017\001'\018\001'\019\001'\020\001'\021\001'\022\001'\023\001'\024\001'\025\001'\026\001'\027\001'\028\001'\029\001'\030\001'\031\001' \001'!\001'\"\001'#\001'$\001'%\001'&\001''\001&\005\001')\001'*\001'+\001',\001'-\001'.\001'/\001'0\001'1\001'2\001'3\001'4\001'5\001'6\001'7\001'8\001'9\001':\001';\001'<\001'=\001'>\001'?\001'@\001'A\001'B\001'C\001'D\001'E\001'F\001'G\001'H\001'I\001'J\001'K\001%\207\001'M\001%\160\001'O\001'P\001'Q\001'R\001%\178\001%\188\001%\198\001'V\001%\215\001'X\001'Y\001'Z\001'[\001'\\\001']\001'^\000\255\002\000\000\248\215\002\000\000\248\216\002\000\000\248\217\002\000\000\248\218\002\000\000\248\219\002\000\000\248\220\002\000\000\248\221\002\000\000\248\222\002\000\000\248\223\002\000\000\248\224\002\000\000\248\225\002\000\000\248\226\002\000\000\248\227\002\000\000\248\228\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\001'a\001'b\001'c\001'd\001'e\001'f\001'g\001&c\001&f\001&e\001&`\001$`\001$a\001$b\001$c\001$d\001$e\001$f\001$g\001$h\001$i\001'v\001'w\001'x\001'y\001'z\001'{\001'|\001'}\001'~\001'\127\001'\128\001'\129\001'\130\001'\131\001'\132\001'\133\001'\134\001'\135\001'\136\001'\137\001'\138\001'\139\001'\140\001'\141\001'\142\001'\143\001'\144\001'\145\001'\146\001'\147\001'\148\001!\146\001!\148\001!\149\001'\152\001'\153\001'\154\001'\155\001'\156\001'\157\001'\158\001'\159\001'\160\001'\161\001'\162\001'\163\001'\164\001'\165\001'\166\001'\167\001'\168\001'\169\001'\170\001'\171\001'\172\001'\173\001'\174\001'\175\000\255\001'\177\001'\178\001'\179\001'\180\001'\181\001'\182\001'\183\001'\184\001'\185\001'\186\001'\187\001'\188\001'\189\001'\190\000\255" 0 : int array);;
-let adobe_zapf_dingbats_encoding_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006_\000\000\000\000\000\000\005>\000\000\005>\008\000\004\000\000@\144\160\001'\001a\144\160\001'\002b\144\160\001'\003c\144\160\001'\004d\144\160\001&\005\000H\144\160\001'\006f\144\160\001'\007g\144\160\001'\008h\144\160\001'\ti@@\144\160\001'\012l\144\160\001'\013m\145\160\160\001&\014e\160\160\001'\014n@\144\160\001'\015o\144\160\001'\016p\144\160\001'\017q\144\160\001'\018r\144\160\001'\019s\144\160\001'\020t\144\160\001'\021u\144\160\001'\022v\144\160\001'\023w\144\160\001'\024x\144\160\001'\025y\144\160\001'\026z\145\160\160\001&\027j\160\160\001'\027{@\144\160\001'\028|\144\160\001'\029}\145\160\160\001&\030k\160\160\001'\030~@\144\160\001'\031\127\145\160\160``\160\160\001' \000@@\144\160\001'!\000A\144\160\001'\"\000B\144\160\001'#\000C\144\160\001'$\000D\144\160\001'%\000E\144\160\001'&\000F\144\160\001''\000G@\144\160\001')\000I\144\160\001'*\000J\144\160\001'+\000K\144\160\001',\000L\144\160\001'-\000M\144\160\001'.\000N\144\160\001'/\000O\144\160\001'0\000P\144\160\001'1\000Q\144\160\001'2\000R\144\160\001'3\000S\144\160\001'4\000T\144\160\001'5\000U\144\160\001'6\000V\144\160\001'7\000W\144\160\001'8\000X\144\160\001'9\000Y\144\160\001':\000Z\144\160\001';\000[\144\160\001'<\000\\\144\160\001'=\000]\144\160\001'>\000^\144\160\001'?\000_\144\160\001'@\000`\144\160\001'A\000a\144\160\001'B\000b\144\160\001'C\000c\144\160\001'D\000d\144\160\001'E\000e\144\160\001'F\000f\144\160\001'G\000g\144\160\001'H\000h\144\160\001'I\000i\144\160\001'J\000j\144\160\001'K\000k@\144\160\001'M\000m@\144\160\001'O\000o\144\160\001'P\000p\144\160\001'Q\000q\144\160\001'R\000r@@@\144\160\001'V\000v@\144\160\001'X\000x\144\160\001'Y\000y\144\160\001'Z\000z\144\160\001'[\000{\144\160\001'\\\000|\144\160\001']\000}\144\160\001'^\000~@\145\160\160\001&`\001\000\171\160\160\001$`\001\000\172@\145\160\160\001'a\001\000\161\160\160\001$a\001\000\173@\145\160\160\001'b\001\000\162\160\160\001$b\001\000\174@\145\160\160\001'c\001\000\163\160\160\001&c\001\000\168\160\160\001$c\001\000\175@\145\160\160\001'd\001\000\164\160\160\001$d\001\000\176@\145\160\160\001'e\001\000\165\160\160\001&e\001\000\170\160\160\001$e\001\000\177@\145\160\160\001'f\001\000\166\160\160\001&f\001\000\169\160\160\001$f\001\000\178@\145\160\160\001'g\001\000\167\160\160\001$g\001\000\179@\144\160\001$h\001\000\180\144\160\001$i\001\000\181@@@@@@@@@@@@\144\160\001'v\001\000\182\144\160\001'w\001\000\183\144\160\001'x\001\000\184\144\160\001'y\001\000\185\144\160\001'z\001\000\186\144\160\001'{\001\000\187\144\160\001'|\001\000\188\144\160\001'}\001\000\189\144\160\001'~\001\000\190\144\160\001'\127\001\000\191\144\160\001'\128\001\000\192\144\160\001'\129\001\000\193\144\160\001'\130\001\000\194\144\160\001'\131\001\000\195\144\160\001'\132\001\000\196\144\160\001'\133\001\000\197\144\160\001'\134\001\000\198\144\160\001'\135\001\000\199\144\160\001'\136\001\000\200\144\160\001'\137\001\000\201\144\160\001'\138\001\000\202\144\160\001'\139\001\000\203\144\160\001'\140\001\000\204\144\160\001'\141\001\000\205\144\160\001'\142\001\000\206\144\160\001'\143\001\000\207\144\160\001'\144\001\000\208\144\160\001'\145\001\000\209\145\160\160\001'\146\001\000\210\160\160\001!\146\001\000\213@\144\160\001'\147\001\000\211\145\160\160\001'\148\001\000\212\160\160\001!\148\001\000\214@\144\160\001!\149\001\000\215@@\144\160\001'\152\001\000\216\144\160\001'\153\001\000\217\144\160\001'\154\001\000\218\144\160\001'\155\001\000\219\144\160\001'\156\001\000\220\144\160\001'\157\001\000\221\144\160\001'\158\001\000\222\144\160\001'\159\001\000\223\145\160\160\001%\160\000n\160\160\001'\160\001\000\224@\144\160\001'\161\001\000\225\144\160\001'\162\001\000\226\144\160\001'\163\001\000\227\144\160\001'\164\001\000\228\144\160\001'\165\001\000\229\144\160\001'\166\001\000\230\144\160\001'\167\001\000\231\144\160\001'\168\001\000\232\144\160\001'\169\001\000\233\144\160\001'\170\001\000\234\144\160\001'\171\001\000\235\144\160\001'\172\001\000\236\144\160\001'\173\001\000\237\144\160\001'\174\001\000\238\144\160\001'\175\001\000\239@\144\160\001'\177\001\000\241\145\160\160\001%\178\000s\160\160\001'\178\001\000\242@\144\160\001'\179\001\000\243\144\160\001'\180\001\000\244\144\160\001'\181\001\000\245\144\160\001'\182\001\000\246\144\160\001'\183\001\000\247\144\160\001'\184\001\000\248\144\160\001'\185\001\000\249\144\160\001'\186\001\000\250\144\160\001'\187\001\000\251\145\160\160\001%\188\000t\160\160\001'\188\001\000\252@\144\160\001'\189\001\000\253\144\160\001'\190\001\000\254@@@@@@@\144\160\001%\198\000u@@@@@@@@\144\160\001%\207\000l@@@@@@@\145\160\160\001%\215\000w\160\160\002\000\000\248\215\001\000\128@\144\160\002\000\000\248\216\001\000\129\144\160\002\000\000\248\217\001\000\130\144\160\002\000\000\248\218\001\000\131\144\160\002\000\000\248\219\001\000\132\144\160\002\000\000\248\220\001\000\133\144\160\002\000\000\248\221\001\000\134\144\160\002\000\000\248\222\001\000\135\144\160\002\000\000\248\223\001\000\136\144\160\002\000\000\248\224\001\000\137\144\160\002\000\000\248\225\001\000\138\144\160\002\000\000\248\226\001\000\139\144\160\002\000\000\248\227\001\000\140\144\160\002\000\000\248\228\001\000\141@@@@@@@@@@@@@@@@@@@@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let jis0201_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002\164\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\001\000\165\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\001 >\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\002\000\000\255a\002\000\000\255b\002\000\000\255c\002\000\000\255d\002\000\000\255e\002\000\000\255f\002\000\000\255g\002\000\000\255h\002\000\000\255i\002\000\000\255j\002\000\000\255k\002\000\000\255l\002\000\000\255m\002\000\000\255n\002\000\000\255o\002\000\000\255p\002\000\000\255q\002\000\000\255r\002\000\000\255s\002\000\000\255t\002\000\000\255u\002\000\000\255v\002\000\000\255w\002\000\000\255x\002\000\000\255y\002\000\000\255z\002\000\000\255{\002\000\000\255|\002\000\000\255}\002\000\000\255~\002\000\000\255\127\002\000\000\255\128\002\000\000\255\129\002\000\000\255\130\002\000\000\255\131\002\000\000\255\132\002\000\000\255\133\002\000\000\255\134\002\000\000\255\135\002\000\000\255\136\002\000\000\255\137\002\000\000\255\138\002\000\000\255\139\002\000\000\255\140\002\000\000\255\141\002\000\000\255\142\002\000\000\255\143\002\000\000\255\144\002\000\000\255\145\002\000\000\255\146\002\000\000\255\147\002\000\000\255\148\002\000\000\255\149\002\000\000\255\150\002\000\000\255\151\002\000\000\255\152\002\000\000\255\153\002\000\000\255\154\002\000\000\255\155\002\000\000\255\156\002\000\000\255\157\002\000\000\255\158\002\000\000\255\159\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255" 0 : int array);;
-let jis0201_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\0053\000\000\000\000\000\000\004\143\000\000\004\143\008\000\004\000\000@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\144\160``\144\160aa\144\160bb\144\160cc\144\160dd\144\160ee\144\160ff\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\144\160pp\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\144\160yy\144\160zz\144\160{{\144\160||\144\160}}\145\160\160~~\160\160\001 >\000~@\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\144\160\000R\000R\144\160\000S\000S\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[@\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\144\160\000`\000`\145\160\160\000a\000a\160\160\002\000\000\255a\001\000\161@\145\160\160\000b\000b\160\160\002\000\000\255b\001\000\162@\145\160\160\000c\000c\160\160\002\000\000\255c\001\000\163@\145\160\160\000d\000d\160\160\002\000\000\255d\001\000\164@\145\160\160\000e\000e\160\160\002\000\000\255e\001\000\165@\145\160\160\000f\000f\160\160\002\000\000\255f\001\000\166@\145\160\160\000g\000g\160\160\002\000\000\255g\001\000\167@\145\160\160\000h\000h\160\160\002\000\000\255h\001\000\168@\145\160\160\000i\000i\160\160\002\000\000\255i\001\000\169@\145\160\160\000j\000j\160\160\002\000\000\255j\001\000\170@\145\160\160\000k\000k\160\160\002\000\000\255k\001\000\171@\145\160\160\000l\000l\160\160\002\000\000\255l\001\000\172@\145\160\160\000m\000m\160\160\002\000\000\255m\001\000\173@\145\160\160\000n\000n\160\160\002\000\000\255n\001\000\174@\145\160\160\000o\000o\160\160\002\000\000\255o\001\000\175@\145\160\160\000p\000p\160\160\002\000\000\255p\001\000\176@\145\160\160\000q\000q\160\160\002\000\000\255q\001\000\177@\145\160\160\000r\000r\160\160\002\000\000\255r\001\000\178@\145\160\160\000s\000s\160\160\002\000\000\255s\001\000\179@\145\160\160\000t\000t\160\160\002\000\000\255t\001\000\180@\145\160\160\000u\000u\160\160\002\000\000\255u\001\000\181@\145\160\160\000v\000v\160\160\002\000\000\255v\001\000\182@\145\160\160\000w\000w\160\160\002\000\000\255w\001\000\183@\145\160\160\000x\000x\160\160\002\000\000\255x\001\000\184@\145\160\160\000y\000y\160\160\002\000\000\255y\001\000\185@\145\160\160\000z\000z\160\160\002\000\000\255z\001\000\186@\145\160\160\000{\000{\160\160\002\000\000\255{\001\000\187@\145\160\160\000|\000|\160\160\002\000\000\255|\001\000\188@\145\160\160\000}\000}\160\160\002\000\000\255}\001\000\189@\144\160\002\000\000\255~\001\000\190\144\160\002\000\000\255\127\001\000\191\144\160\002\000\000\255\128\001\000\192\144\160\002\000\000\255\129\001\000\193\144\160\002\000\000\255\130\001\000\194\144\160\002\000\000\255\131\001\000\195\144\160\002\000\000\255\132\001\000\196\144\160\002\000\000\255\133\001\000\197\144\160\002\000\000\255\134\001\000\198\144\160\002\000\000\255\135\001\000\199\144\160\002\000\000\255\136\001\000\200\144\160\002\000\000\255\137\001\000\201\144\160\002\000\000\255\138\001\000\202\144\160\002\000\000\255\139\001\000\203\144\160\002\000\000\255\140\001\000\204\144\160\002\000\000\255\141\001\000\205\144\160\002\000\000\255\142\001\000\206\144\160\002\000\000\255\143\001\000\207\144\160\002\000\000\255\144\001\000\208\144\160\002\000\000\255\145\001\000\209\144\160\002\000\000\255\146\001\000\210\144\160\002\000\000\255\147\001\000\211\144\160\002\000\000\255\148\001\000\212\144\160\002\000\000\255\149\001\000\213\144\160\002\000\000\255\150\001\000\214\144\160\002\000\000\255\151\001\000\215\144\160\002\000\000\255\152\001\000\216\144\160\002\000\000\255\153\001\000\217\144\160\002\000\000\255\154\001\000\218\144\160\002\000\000\255\155\001\000\219\144\160\002\000\000\255\156\001\000\220\144\160\002\000\000\255\157\001\000\221\144\160\002\000\000\255\158\001\000\222\144\160\002\000\000\255\159\001\000\223@@@@@\144\160\001\000\165\000\\@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let koi8r_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001%\000\001%\002\001%\012\001%\016\001%\020\001%\024\001%\028\001%$\001%,\001%4\001%<\001%\128\001%\132\001%\136\001%\140\001%\144\001%\145\001%\146\001%\147\001# \001%\160\001\"\025\001\"\026\001\"H\001\"d\001\"e\001\000\160\001#!\001\000\176\001\000\178\001\000\183\001\000\247\001%P\001%Q\001%R\001\004Q\001%S\001%T\001%U\001%V\001%W\001%X\001%Y\001%Z\001%[\001%\\\001%]\001%^\001%_\001%`\001%a\001\004\001\001%b\001%c\001%d\001%e\001%f\001%g\001%h\001%i\001%j\001%k\001%l\001\000\169\001\004N\001\0040\001\0041\001\004F\001\0044\001\0045\001\004D\001\0043\001\004E\001\0048\001\0049\001\004:\001\004;\001\004<\001\004=\001\004>\001\004?\001\004O\001\004@\001\004A\001\004B\001\004C\001\0046\001\0042\001\004L\001\004K\001\0047\001\004H\001\004M\001\004I\001\004G\001\004J\001\004.\001\004\016\001\004\017\001\004&\001\004\020\001\004\021\001\004$\001\004\019\001\004%\001\004\024\001\004\025\001\004\026\001\004\027\001\004\028\001\004\029\001\004\030\001\004\031\001\004/\001\004 \001\004!\001\004\"\001\004#\001\004\022\001\004\018\001\004,\001\004+\001\004\023\001\004(\001\004-\001\004)\001\004'\001\004*" 0 : int array);;
-let koi8r_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007\187\000\000\000\000\000\000\007\153\000\000\007\153\008\000\004\000\000\145\160\160@@\160\160\001%\000\001\000\128@\145\160\160AA\160\160\001\004\001\001\000\179@\145\160\160BB\160\160\001%\002\001\000\129@\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001%\012\001\000\130@\144\160MM\144\160NN\144\160OO\145\160\160PP\160\160\001%\016\001\000\131\160\160\001\004\016\001\000\225@\145\160\160QQ\160\160\001\004\017\001\000\226@\145\160\160RR\160\160\001\004\018\001\000\247@\145\160\160SS\160\160\001\004\019\001\000\231@\145\160\160TT\160\160\001%\020\001\000\132\160\160\001\004\020\001\000\228@\145\160\160UU\160\160\001\004\021\001\000\229@\145\160\160VV\160\160\001\004\022\001\000\246@\145\160\160WW\160\160\001\004\023\001\000\250@\145\160\160XX\160\160\001%\024\001\000\133\160\160\001\004\024\001\000\233@\145\160\160YY\160\160\001\"\025\001\000\149\160\160\001\004\025\001\000\234@\145\160\160ZZ\160\160\001\"\026\001\000\150\160\160\001\004\026\001\000\235@\145\160\160[[\160\160\001\004\027\001\000\236@\145\160\160\\\\\160\160\001%\028\001\000\134\160\160\001\004\028\001\000\237@\145\160\160]]\160\160\001\004\029\001\000\238@\145\160\160^^\160\160\001\004\030\001\000\239@\145\160\160__\160\160\001\004\031\001\000\240@\145\160\160``\160\160\001# \001\000\147\160\160\001\004 \001\000\242@\145\160\160aa\160\160\001#!\001\000\155\160\160\001\004!\001\000\243@\145\160\160bb\160\160\001\004\"\001\000\244@\145\160\160cc\160\160\001\004#\001\000\245@\145\160\160dd\160\160\001%$\001\000\135\160\160\001\004$\001\000\230@\145\160\160ee\160\160\001\004%\001\000\232@\145\160\160ff\160\160\001\004&\001\000\227@\145\160\160gg\160\160\001\004'\001\000\254@\145\160\160hh\160\160\001\004(\001\000\251@\145\160\160ii\160\160\001\004)\001\000\253@\145\160\160jj\160\160\001\004*\001\000\255@\145\160\160kk\160\160\001\004+\001\000\249@\145\160\160ll\160\160\001%,\001\000\136\160\160\001\004,\001\000\248@\145\160\160mm\160\160\001\004-\001\000\252@\145\160\160nn\160\160\001\004.\001\000\224@\145\160\160oo\160\160\001\004/\001\000\241@\145\160\160pp\160\160\001\0040\001\000\193@\145\160\160qq\160\160\001\0041\001\000\194@\145\160\160rr\160\160\001\0042\001\000\215@\145\160\160ss\160\160\001\0043\001\000\199@\145\160\160tt\160\160\001%4\001\000\137\160\160\001\0044\001\000\196@\145\160\160uu\160\160\001\0045\001\000\197@\145\160\160vv\160\160\001\0046\001\000\214@\145\160\160ww\160\160\001\0047\001\000\218@\145\160\160xx\160\160\001\0048\001\000\201@\145\160\160yy\160\160\001\0049\001\000\202@\145\160\160zz\160\160\001\004:\001\000\203@\145\160\160{{\160\160\001\004;\001\000\204@\145\160\160||\160\160\001%<\001\000\138\160\160\001\004<\001\000\205@\145\160\160}}\160\160\001\004=\001\000\206@\145\160\160~~\160\160\001\004>\001\000\207@\145\160\160\127\127\160\160\001\004?\001\000\208@\145\160\160\000@\000@\160\160\001\004@\001\000\210@\145\160\160\000A\000A\160\160\001\004A\001\000\211@\145\160\160\000B\000B\160\160\001\004B\001\000\212@\145\160\160\000C\000C\160\160\001\004C\001\000\213@\145\160\160\000D\000D\160\160\001\004D\001\000\198@\145\160\160\000E\000E\160\160\001\004E\001\000\200@\145\160\160\000F\000F\160\160\001\004F\001\000\195@\145\160\160\000G\000G\160\160\001\004G\001\000\222@\145\160\160\000H\000H\160\160\001\"H\001\000\151\160\160\001\004H\001\000\219@\145\160\160\000I\000I\160\160\001\004I\001\000\221@\145\160\160\000J\000J\160\160\001\004J\001\000\223@\145\160\160\000K\000K\160\160\001\004K\001\000\217@\145\160\160\000L\000L\160\160\001\004L\001\000\216@\145\160\160\000M\000M\160\160\001\004M\001\000\220@\145\160\160\000N\000N\160\160\001\004N\001\000\192@\145\160\160\000O\000O\160\160\001\004O\001\000\209@\145\160\160\000P\000P\160\160\001%P\001\000\160@\145\160\160\000Q\000Q\160\160\001%Q\001\000\161\160\160\001\004Q\001\000\163@\145\160\160\000R\000R\160\160\001%R\001\000\162@\145\160\160\000S\000S\160\160\001%S\001\000\164@\145\160\160\000T\000T\160\160\001%T\001\000\165@\145\160\160\000U\000U\160\160\001%U\001\000\166@\145\160\160\000V\000V\160\160\001%V\001\000\167@\145\160\160\000W\000W\160\160\001%W\001\000\168@\145\160\160\000X\000X\160\160\001%X\001\000\169@\145\160\160\000Y\000Y\160\160\001%Y\001\000\170@\145\160\160\000Z\000Z\160\160\001%Z\001\000\171@\145\160\160\000[\000[\160\160\001%[\001\000\172@\145\160\160\000\\\000\\\160\160\001%\\\001\000\173@\145\160\160\000]\000]\160\160\001%]\001\000\174@\145\160\160\000^\000^\160\160\001%^\001\000\175@\145\160\160\000_\000_\160\160\001%_\001\000\176@\145\160\160\000`\000`\160\160\001%`\001\000\177@\145\160\160\000a\000a\160\160\001%a\001\000\178@\145\160\160\000b\000b\160\160\001%b\001\000\180@\145\160\160\000c\000c\160\160\001%c\001\000\181@\145\160\160\000d\000d\160\160\001\"d\001\000\152\160\160\001%d\001\000\182@\145\160\160\000e\000e\160\160\001\"e\001\000\153\160\160\001%e\001\000\183@\145\160\160\000f\000f\160\160\001%f\001\000\184@\145\160\160\000g\000g\160\160\001%g\001\000\185@\145\160\160\000h\000h\160\160\001%h\001\000\186@\145\160\160\000i\000i\160\160\001%i\001\000\187@\145\160\160\000j\000j\160\160\001%j\001\000\188@\145\160\160\000k\000k\160\160\001%k\001\000\189@\145\160\160\000l\000l\160\160\001%l\001\000\190@\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127\144\160\001%\128\001\000\139@@@\144\160\001%\132\001\000\140@@@\144\160\001%\136\001\000\141@@@\144\160\001%\140\001\000\142@@@\144\160\001%\144\001\000\143\144\160\001%\145\001\000\144\144\160\001%\146\001\000\145\144\160\001%\147\001\000\146@@@@@@@@@@@@\145\160\160\001%\160\001\000\148\160\160\001\000\160\001\000\154@@@@@@@@@\144\160\001\000\169\001\000\191@@@@@@\144\160\001\000\176\001\000\156@\144\160\001\000\178\001\000\157@@@@\144\160\001\000\183\001\000\158@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\144\160\001\000\247\001\000\159@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let macroman_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002k\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255\000\255`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\255\001\000\196\001\000\197\001\000\199\001\000\201\001\000\209\001\000\214\001\000\220\001\000\225\001\000\224\001\000\226\001\000\228\001\000\227\001\000\229\001\000\231\001\000\233\001\000\232\001\000\234\001\000\235\001\000\237\001\000\236\001\000\238\001\000\239\001\000\241\001\000\243\001\000\242\001\000\244\001\000\246\001\000\245\001\000\250\001\000\249\001\000\251\001\000\252\001  \001\000\176\001\000\162\001\000\163\001\000\167\001 \"\001\000\182\001\000\223\001\000\174\001\000\169\001!\"\001\000\180\001\000\168\001\"`\001\000\198\001\000\216\001\"\030\001\000\177\001\"d\001\"e\001\000\165\001\000\181\001\"\002\001\"\017\001\"\015\001\003\192\001\"+\001\000\170\001\000\186\001\003\169\001\000\230\001\000\248\001\000\191\001\000\161\001\000\172\001\"\026\001\001\146\001\"H\001\"\006\001\000\171\001\000\187\001 &\001\000\160\001\000\192\001\000\195\001\000\213\001\001R\001\001S\001 \019\001 \020\001 \028\001 \029\001 \024\001 \025\001\000\247\001%\202\001\000\255\001\001x\001 D\001 \172\001 9\001 :\002\000\000\251\001\002\000\000\251\002\001 !\001\000\183\001 \026\001 \030\001 0\001\000\194\001\000\202\001\000\193\001\000\203\001\000\200\001\000\205\001\000\206\001\000\207\001\000\204\001\000\211\001\000\212\002\000\000\248\255\001\000\210\001\000\218\001\000\219\001\000\217\001\0011\001\002\198\001\002\220\001\000\175\001\002\216\001\002\217\001\002\218\001\000\184\001\002\221\001\002\219\001\002\199" 0 : int array);;
-let macroman_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\135\000\000\000\000\000\000\005\221\000\000\005\221\008\000\004\000\000@\144\160\002\000\000\251\001\001\000\222\145\160\160\001\"\002\001\000\182\160\160\002\000\000\251\002\001\000\223@@@@\144\160\001\"\006\001\000\198@@@@@@@@\144\160\001\"\015\001\000\184@\144\160\001\"\017\001\000\183@\144\160\001 \019\001\000\208\144\160\001 \020\001\000\209@@@\144\160\001 \024\001\000\212\144\160\001 \025\001\000\213\145\160\160\001\"\026\001\000\195\160\160\001 \026\001\000\226@@\144\160\001 \028\001\000\210\144\160\001 \029\001\000\211\145\160\160\001\"\030\001\000\176\160\160\001 \030\001\000\227@@\145\160\160``\160\160\001  \001\000\160@\145\160\160aa\160\160\001 !\001\000\224@\145\160\160bb\160\160\001 \"\001\000\165\160\160\001!\"\001\000\170@\144\160cc\144\160dd\144\160ee\145\160\160ff\160\160\001 &\001\000\201@\144\160gg\144\160hh\144\160ii\144\160jj\145\160\160kk\160\160\001\"+\001\000\186@\144\160ll\144\160mm\144\160nn\144\160oo\145\160\160pp\160\160\001 0\001\000\228@\145\160\160qq\160\160\001\0011\001\000\245@\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\145\160\160yy\160\160\001 9\001\000\220@\145\160\160zz\160\160\001 :\001\000\221@\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\145\160\160\000D\000D\160\160\001 D\001\000\218@\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\145\160\160\000H\000H\160\160\001\"H\001\000\197@\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\145\160\160\000R\000R\160\160\001\001R\001\000\206@\145\160\160\000S\000S\160\160\001\001S\001\000\207@\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\145\160\160\000`\000`\160\160\001\"`\001\000\173@\144\160\000a\000a\144\160\000b\000b\144\160\000c\000c\145\160\160\000d\000d\160\160\001\"d\001\000\178@\145\160\160\000e\000e\160\160\001\"e\001\000\179@\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\145\160\160\000x\000x\160\160\001\001x\001\000\217@\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~@@@@@@@@@@@@@@@@@@@\144\160\001\001\146\001\000\196@@@@@@@@@@@@@\144\160\001\000\160\001\000\202\144\160\001\000\161\001\000\193\144\160\001\000\162\001\000\162\144\160\001\000\163\001\000\163@\144\160\001\000\165\001\000\180@\144\160\001\000\167\001\000\164\144\160\001\000\168\001\000\172\145\160\160\001\000\169\001\000\169\160\160\001\003\169\001\000\189@\144\160\001\000\170\001\000\187\144\160\001\000\171\001\000\199\145\160\160\001\000\172\001\000\194\160\160\001 \172\001\000\219@@\144\160\001\000\174\001\000\168\144\160\001\000\175\001\000\248\144\160\001\000\176\001\000\161\144\160\001\000\177\001\000\177@@\144\160\001\000\180\001\000\171\144\160\001\000\181\001\000\181\144\160\001\000\182\001\000\166\144\160\001\000\183\001\000\225\144\160\001\000\184\001\000\252@\144\160\001\000\186\001\000\188\144\160\001\000\187\001\000\200@@@\144\160\001\000\191\001\000\192\145\160\160\001\003\192\001\000\185\160\160\001\000\192\001\000\203@\144\160\001\000\193\001\000\231\144\160\001\000\194\001\000\229\144\160\001\000\195\001\000\204\144\160\001\000\196\001\000\128\144\160\001\000\197\001\000\129\145\160\160\001\000\198\001\000\174\160\160\001\002\198\001\000\246@\145\160\160\001\000\199\001\000\130\160\160\001\002\199\001\000\255@\144\160\001\000\200\001\000\233\144\160\001\000\201\001\000\131\145\160\160\001%\202\001\000\215\160\160\001\000\202\001\000\230@\144\160\001\000\203\001\000\232\144\160\001\000\204\001\000\237\144\160\001\000\205\001\000\234\144\160\001\000\206\001\000\235\144\160\001\000\207\001\000\236@\144\160\001\000\209\001\000\132\144\160\001\000\210\001\000\241\144\160\001\000\211\001\000\238\144\160\001\000\212\001\000\239\144\160\001\000\213\001\000\205\144\160\001\000\214\001\000\133@\145\160\160\001\000\216\001\000\175\160\160\001\002\216\001\000\249@\145\160\160\001\000\217\001\000\244\160\160\001\002\217\001\000\250@\145\160\160\001\000\218\001\000\242\160\160\001\002\218\001\000\251@\145\160\160\001\000\219\001\000\243\160\160\001\002\219\001\000\254@\145\160\160\001\000\220\001\000\134\160\160\001\002\220\001\000\247@\144\160\001\002\221\001\000\253@\144\160\001\000\223\001\000\167\144\160\001\000\224\001\000\136\144\160\001\000\225\001\000\135\144\160\001\000\226\001\000\137\144\160\001\000\227\001\000\139\144\160\001\000\228\001\000\138\144\160\001\000\229\001\000\140\144\160\001\000\230\001\000\190\144\160\001\000\231\001\000\141\144\160\001\000\232\001\000\143\144\160\001\000\233\001\000\142\144\160\001\000\234\001\000\144\144\160\001\000\235\001\000\145\144\160\001\000\236\001\000\147\144\160\001\000\237\001\000\146\144\160\001\000\238\001\000\148\144\160\001\000\239\001\000\149@\144\160\001\000\241\001\000\150\144\160\001\000\242\001\000\152\144\160\001\000\243\001\000\151\144\160\001\000\244\001\000\153\144\160\001\000\245\001\000\155\144\160\001\000\246\001\000\154\144\160\001\000\247\001\000\214\144\160\001\000\248\001\000\191\144\160\001\000\249\001\000\157\144\160\001\000\250\001\000\156\144\160\001\000\251\001\000\158\144\160\001\000\252\001\000\159@@\145\160\160\001\000\255\001\000\216\160\160\002\000\000\248\255\001\000\240@" 0 : Netmappings.from_uni_list array);;
- let windows1250_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002@\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001 \172\000\255\001 \026\000\255\001 \030\001 &\001  \001 !\000\255\001 0\001\001`\001 9\001\001Z\001\001d\001\001}\001\001y\000\255\001 \024\001 \025\001 \028\001 \029\001 \"\001 \019\001 \020\000\255\001!\"\001\001a\001 :\001\001[\001\001e\001\001~\001\001z\001\000\160\001\002\199\001\002\216\001\001A\001\000\164\001\001\004\001\000\166\001\000\167\001\000\168\001\000\169\001\001^\001\000\171\001\000\172\001\000\173\001\000\174\001\001{\001\000\176\001\000\177\001\002\219\001\001B\001\000\180\001\000\181\001\000\182\001\000\183\001\000\184\001\001\005\001\001_\001\000\187\001\001=\001\002\221\001\001>\001\001|\001\001T\001\000\193\001\000\194\001\001\002\001\000\196\001\0019\001\001\006\001\000\199\001\001\012\001\000\201\001\001\024\001\000\203\001\001\026\001\000\205\001\000\206\001\001\014\001\001\016\001\001C\001\001G\001\000\211\001\000\212\001\001P\001\000\214\001\000\215\001\001X\001\001n\001\000\218\001\001p\001\000\220\001\000\221\001\001b\001\000\223\001\001U\001\000\225\001\000\226\001\001\003\001\000\228\001\001:\001\001\007\001\000\231\001\001\013\001\000\233\001\001\025\001\000\235\001\001\027\001\000\237\001\000\238\001\001\015\001\001\017\001\001D\001\001H\001\000\243\001\000\244\001\001Q\001\000\246\001\000\247\001\001Y\001\001o\001\000\250\001\001q\001\000\252\001\000\253\001\001c\001\002\217" 0 : int array);;
-let windows1250_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007+\000\000\000\000\000\000\006\242\000\000\006\242\008\000\004\000\000\144\160@@\144\160AA\145\160\160BB\160\160\001\001\002\001\000\195@\145\160\160CC\160\160\001\001\003\001\000\227@\145\160\160DD\160\160\001\001\004\001\000\165@\145\160\160EE\160\160\001\001\005\001\000\185@\145\160\160FF\160\160\001\001\006\001\000\198@\145\160\160GG\160\160\001\001\007\001\000\230@\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001\001\012\001\000\200@\145\160\160MM\160\160\001\001\013\001\000\232@\145\160\160NN\160\160\001\001\014\001\000\207@\145\160\160OO\160\160\001\001\015\001\000\239@\145\160\160PP\160\160\001\001\016\001\000\208@\145\160\160QQ\160\160\001\001\017\001\000\240@\144\160RR\145\160\160SS\160\160\001 \019\001\000\150@\145\160\160TT\160\160\001 \020\001\000\151@\144\160UU\144\160VV\144\160WW\145\160\160XX\160\160\001 \024\001\000\145\160\160\001\001\024\001\000\202@\145\160\160YY\160\160\001 \025\001\000\146\160\160\001\001\025\001\000\234@\145\160\160ZZ\160\160\001 \026\001\000\130\160\160\001\001\026\001\000\204@\145\160\160[[\160\160\001\001\027\001\000\236@\145\160\160\\\\\160\160\001 \028\001\000\147@\145\160\160]]\160\160\001 \029\001\000\148@\145\160\160^^\160\160\001 \030\001\000\132@\144\160__\145\160\160``\160\160\001  \001\000\134@\145\160\160aa\160\160\001 !\001\000\135@\145\160\160bb\160\160\001 \"\001\000\149\160\160\001!\"\001\000\153@\144\160cc\144\160dd\144\160ee\145\160\160ff\160\160\001 &\001\000\133@\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\145\160\160pp\160\160\001 0\001\000\137@\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\145\160\160yy\160\160\001 9\001\000\139\160\160\001\0019\001\000\197@\145\160\160zz\160\160\001 :\001\000\155\160\160\001\001:\001\000\229@\144\160{{\144\160||\145\160\160}}\160\160\001\001=\001\000\188@\145\160\160~~\160\160\001\001>\001\000\190@\144\160\127\127\144\160\000@\000@\145\160\160\000A\000A\160\160\001\001A\001\000\163@\145\160\160\000B\000B\160\160\001\001B\001\000\179@\145\160\160\000C\000C\160\160\001\001C\001\000\209@\145\160\160\000D\000D\160\160\001\001D\001\000\241@\144\160\000E\000E\144\160\000F\000F\145\160\160\000G\000G\160\160\001\001G\001\000\210@\145\160\160\000H\000H\160\160\001\001H\001\000\242@\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\145\160\160\000P\000P\160\160\001\001P\001\000\213@\145\160\160\000Q\000Q\160\160\001\001Q\001\000\245@\144\160\000R\000R\144\160\000S\000S\145\160\160\000T\000T\160\160\001\001T\001\000\192@\145\160\160\000U\000U\160\160\001\001U\001\000\224@\144\160\000V\000V\144\160\000W\000W\145\160\160\000X\000X\160\160\001\001X\001\000\216@\145\160\160\000Y\000Y\160\160\001\001Y\001\000\248@\145\160\160\000Z\000Z\160\160\001\001Z\001\000\140@\145\160\160\000[\000[\160\160\001\001[\001\000\156@\144\160\000\\\000\\\144\160\000]\000]\145\160\160\000^\000^\160\160\001\001^\001\000\170@\145\160\160\000_\000_\160\160\001\001_\001\000\186@\145\160\160\000`\000`\160\160\001\001`\001\000\138@\145\160\160\000a\000a\160\160\001\001a\001\000\154@\145\160\160\000b\000b\160\160\001\001b\001\000\222@\145\160\160\000c\000c\160\160\001\001c\001\000\254@\145\160\160\000d\000d\160\160\001\001d\001\000\141@\145\160\160\000e\000e\160\160\001\001e\001\000\157@\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\145\160\160\000n\000n\160\160\001\001n\001\000\217@\145\160\160\000o\000o\160\160\001\001o\001\000\249@\145\160\160\000p\000p\160\160\001\001p\001\000\219@\145\160\160\000q\000q\160\160\001\001q\001\000\251@\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\145\160\160\000y\000y\160\160\001\001y\001\000\143@\145\160\160\000z\000z\160\160\001\001z\001\000\159@\145\160\160\000{\000{\160\160\001\001{\001\000\175@\145\160\160\000|\000|\160\160\001\001|\001\000\191@\145\160\160\000}\000}\160\160\001\001}\001\000\142@\145\160\160\000~\000~\160\160\001\001~\001\000\158@\144\160\000\127\000\127@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\144\160\001\000\160\001\000\160@@@\144\160\001\000\164\001\000\164@\144\160\001\000\166\001\000\166\144\160\001\000\167\001\000\167\144\160\001\000\168\001\000\168\144\160\001\000\169\001\000\169@\144\160\001\000\171\001\000\171\145\160\160\001 \172\001\000\128\160\160\001\000\172\001\000\172@\144\160\001\000\173\001\000\173\144\160\001\000\174\001\000\174@\144\160\001\000\176\001\000\176\144\160\001\000\177\001\000\177@@\144\160\001\000\180\001\000\180\144\160\001\000\181\001\000\181\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\183\144\160\001\000\184\001\000\184@@\144\160\001\000\187\001\000\187@@@@@\144\160\001\000\193\001\000\193\144\160\001\000\194\001\000\194@\144\160\001\000\196\001\000\196@@\145\160\160\001\002\199\001\000\161\160\160\001\000\199\001\000\199@@\144\160\001\000\201\001\000\201@\144\160\001\000\203\001\000\203@\144\160\001\000\205\001\000\205\144\160\001\000\206\001\000\206@@@@\144\160\001\000\211\001\000\211\144\160\001\000\212\001\000\212@\144\160\001\000\214\001\000\214\144\160\001\000\215\001\000\215\144\160\001\002\216\001\000\162\144\160\001\002\217\001\000\255\144\160\001\000\218\001\000\218\144\160\001\002\219\001\000\178\144\160\001\000\220\001\000\220\145\160\160\001\002\221\001\000\189\160\160\001\000\221\001\000\221@@\144\160\001\000\223\001\000\223@\144\160\001\000\225\001\000\225\144\160\001\000\226\001\000\226@\144\160\001\000\228\001\000\228@@\144\160\001\000\231\001\000\231@\144\160\001\000\233\001\000\233@\144\160\001\000\235\001\000\235@\144\160\001\000\237\001\000\237\144\160\001\000\238\001\000\238@@@@\144\160\001\000\243\001\000\243\144\160\001\000\244\001\000\244@\144\160\001\000\246\001\000\246\144\160\001\000\247\001\000\247@@\144\160\001\000\250\001\000\250@\144\160\001\000\252\001\000\252\144\160\001\000\253\001\000\253@@" 0 : Netmappings.from_uni_list array);;
- let windows1251_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002D\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001\004\002\001\004\003\001 \026\001\004S\001 \030\001 &\001  \001 !\001 \172\001 0\001\004\t\001 9\001\004\n\001\004\012\001\004\011\001\004\015\001\004R\001 \024\001 \025\001 \028\001 \029\001 \"\001 \019\001 \020\000\255\001!\"\001\004Y\001 :\001\004Z\001\004\\\001\004[\001\004_\001\000\160\001\004\014\001\004^\001\004\008\001\000\164\001\004\144\001\000\166\001\000\167\001\004\001\001\000\169\001\004\004\001\000\171\001\000\172\001\000\173\001\000\174\001\004\007\001\000\176\001\000\177\001\004\006\001\004V\001\004\145\001\000\181\001\000\182\001\000\183\001\004Q\001!\022\001\004T\001\000\187\001\004X\001\004\005\001\004U\001\004W\001\004\016\001\004\017\001\004\018\001\004\019\001\004\020\001\004\021\001\004\022\001\004\023\001\004\024\001\004\025\001\004\026\001\004\027\001\004\028\001\004\029\001\004\030\001\004\031\001\004 \001\004!\001\004\"\001\004#\001\004$\001\004%\001\004&\001\004'\001\004(\001\004)\001\004*\001\004+\001\004,\001\004-\001\004.\001\004/\001\0040\001\0041\001\0042\001\0043\001\0044\001\0045\001\0046\001\0047\001\0048\001\0049\001\004:\001\004;\001\004<\001\004=\001\004>\001\004?\001\004@\001\004A\001\004B\001\004C\001\004D\001\004E\001\004F\001\004G\001\004H\001\004I\001\004J\001\004K\001\004L\001\004M\001\004N\001\004O" 0 : int array);;
-let windows1251_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007\166\000\000\000\000\000\000\007\129\000\000\007\129\008\000\004\000\000\144\160@@\145\160\160AA\160\160\001\004\001\001\000\168@\145\160\160BB\160\160\001\004\002\001\000\128@\145\160\160CC\160\160\001\004\003\001\000\129@\145\160\160DD\160\160\001\004\004\001\000\170@\145\160\160EE\160\160\001\004\005\001\000\189@\145\160\160FF\160\160\001\004\006\001\000\178@\145\160\160GG\160\160\001\004\007\001\000\175@\145\160\160HH\160\160\001\004\008\001\000\163@\145\160\160II\160\160\001\004\t\001\000\138@\145\160\160JJ\160\160\001\004\n\001\000\140@\145\160\160KK\160\160\001\004\011\001\000\142@\145\160\160LL\160\160\001\004\012\001\000\141@\144\160MM\145\160\160NN\160\160\001\004\014\001\000\161@\145\160\160OO\160\160\001\004\015\001\000\143@\145\160\160PP\160\160\001\004\016\001\000\192@\145\160\160QQ\160\160\001\004\017\001\000\193@\145\160\160RR\160\160\001\004\018\001\000\194@\145\160\160SS\160\160\001 \019\001\000\150\160\160\001\004\019\001\000\195@\145\160\160TT\160\160\001 \020\001\000\151\160\160\001\004\020\001\000\196@\145\160\160UU\160\160\001\004\021\001\000\197@\145\160\160VV\160\160\001!\022\001\000\185\160\160\001\004\022\001\000\198@\145\160\160WW\160\160\001\004\023\001\000\199@\145\160\160XX\160\160\001 \024\001\000\145\160\160\001\004\024\001\000\200@\145\160\160YY\160\160\001 \025\001\000\146\160\160\001\004\025\001\000\201@\145\160\160ZZ\160\160\001 \026\001\000\130\160\160\001\004\026\001\000\202@\145\160\160[[\160\160\001\004\027\001\000\203@\145\160\160\\\\\160\160\001 \028\001\000\147\160\160\001\004\028\001\000\204@\145\160\160]]\160\160\001 \029\001\000\148\160\160\001\004\029\001\000\205@\145\160\160^^\160\160\001 \030\001\000\132\160\160\001\004\030\001\000\206@\145\160\160__\160\160\001\004\031\001\000\207@\145\160\160``\160\160\001  \001\000\134\160\160\001\004 \001\000\208@\145\160\160aa\160\160\001 !\001\000\135\160\160\001\004!\001\000\209@\145\160\160bb\160\160\001 \"\001\000\149\160\160\001!\"\001\000\153\160\160\001\004\"\001\000\210@\145\160\160cc\160\160\001\004#\001\000\211@\145\160\160dd\160\160\001\004$\001\000\212@\145\160\160ee\160\160\001\004%\001\000\213@\145\160\160ff\160\160\001 &\001\000\133\160\160\001\004&\001\000\214@\145\160\160gg\160\160\001\004'\001\000\215@\145\160\160hh\160\160\001\004(\001\000\216@\145\160\160ii\160\160\001\004)\001\000\217@\145\160\160jj\160\160\001\004*\001\000\218@\145\160\160kk\160\160\001\004+\001\000\219@\145\160\160ll\160\160\001\004,\001\000\220@\145\160\160mm\160\160\001\004-\001\000\221@\145\160\160nn\160\160\001\004.\001\000\222@\145\160\160oo\160\160\001\004/\001\000\223@\145\160\160pp\160\160\001 0\001\000\137\160\160\001\0040\001\000\224@\145\160\160qq\160\160\001\0041\001\000\225@\145\160\160rr\160\160\001\0042\001\000\226@\145\160\160ss\160\160\001\0043\001\000\227@\145\160\160tt\160\160\001\0044\001\000\228@\145\160\160uu\160\160\001\0045\001\000\229@\145\160\160vv\160\160\001\0046\001\000\230@\145\160\160ww\160\160\001\0047\001\000\231@\145\160\160xx\160\160\001\0048\001\000\232@\145\160\160yy\160\160\001 9\001\000\139\160\160\001\0049\001\000\233@\145\160\160zz\160\160\001 :\001\000\155\160\160\001\004:\001\000\234@\145\160\160{{\160\160\001\004;\001\000\235@\145\160\160||\160\160\001\004<\001\000\236@\145\160\160}}\160\160\001\004=\001\000\237@\145\160\160~~\160\160\001\004>\001\000\238@\145\160\160\127\127\160\160\001\004?\001\000\239@\145\160\160\000@\000@\160\160\001\004@\001\000\240@\145\160\160\000A\000A\160\160\001\004A\001\000\241@\145\160\160\000B\000B\160\160\001\004B\001\000\242@\145\160\160\000C\000C\160\160\001\004C\001\000\243@\145\160\160\000D\000D\160\160\001\004D\001\000\244@\145\160\160\000E\000E\160\160\001\004E\001\000\245@\145\160\160\000F\000F\160\160\001\004F\001\000\246@\145\160\160\000G\000G\160\160\001\004G\001\000\247@\145\160\160\000H\000H\160\160\001\004H\001\000\248@\145\160\160\000I\000I\160\160\001\004I\001\000\249@\145\160\160\000J\000J\160\160\001\004J\001\000\250@\145\160\160\000K\000K\160\160\001\004K\001\000\251@\145\160\160\000L\000L\160\160\001\004L\001\000\252@\145\160\160\000M\000M\160\160\001\004M\001\000\253@\145\160\160\000N\000N\160\160\001\004N\001\000\254@\145\160\160\000O\000O\160\160\001\004O\001\000\255@\144\160\000P\000P\145\160\160\000Q\000Q\160\160\001\004Q\001\000\184@\145\160\160\000R\000R\160\160\001\004R\001\000\144@\145\160\160\000S\000S\160\160\001\004S\001\000\131@\145\160\160\000T\000T\160\160\001\004T\001\000\186@\145\160\160\000U\000U\160\160\001\004U\001\000\190@\145\160\160\000V\000V\160\160\001\004V\001\000\179@\145\160\160\000W\000W\160\160\001\004W\001\000\191@\145\160\160\000X\000X\160\160\001\004X\001\000\188@\145\160\160\000Y\000Y\160\160\001\004Y\001\000\154@\145\160\160\000Z\000Z\160\160\001\004Z\001\000\156@\145\160\160\000[\000[\160\160\001\004[\001\000\158@\145\160\160\000\\\000\\\160\160\001\004\\\001\000\157@\144\160\000]\000]\145\160\160\000^\000^\160\160\001\004^\001\000\162@\145\160\160\000_\000_\160\160\001\004_\001\000\159@\144\160\000`\000`\144\160\000a\000a\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127@@@@@@@@@@@@@@@@\144\160\001\004\144\001\000\165\144\160\001\004\145\001\000\180@@@@@@@@@@@@@@\144\160\001\000\160\001\000\160@@@\144\160\001\000\164\001\000\164@\144\160\001\000\166\001\000\166\144\160\001\000\167\001\000\167@\144\160\001\000\169\001\000\169@\144\160\001\000\171\001\000\171\145\160\160\001 \172\001\000\136\160\160\001\000\172\001\000\172@\144\160\001\000\173\001\000\173\144\160\001\000\174\001\000\174@\144\160\001\000\176\001\000\176\144\160\001\000\177\001\000\177@@@\144\160\001\000\181\001\000\181\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\183@@@\144\160\001\000\187\001\000\187@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let windows1252_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002@\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001 \172\000\255\001 \026\001\001\146\001 \030\001 &\001  \001 !\001\002\198\001 0\001\001`\001 9\001\001R\000\255\001\001}\000\255\000\255\001 \024\001 \025\001 \028\001 \029\001 \"\001 \019\001 \020\001\002\220\001!\"\001\001a\001 :\001\001S\000\255\001\001~\001\001x\001\000\160\001\000\161\001\000\162\001\000\163\001\000\164\001\000\165\001\000\166\001\000\167\001\000\168\001\000\169\001\000\170\001\000\171\001\000\172\001\000\173\001\000\174\001\000\175\001\000\176\001\000\177\001\000\178\001\000\179\001\000\180\001\000\181\001\000\182\001\000\183\001\000\184\001\000\185\001\000\186\001\000\187\001\000\188\001\000\189\001\000\190\001\000\191\001\000\192\001\000\193\001\000\194\001\000\195\001\000\196\001\000\197\001\000\198\001\000\199\001\000\200\001\000\201\001\000\202\001\000\203\001\000\204\001\000\205\001\000\206\001\000\207\001\000\208\001\000\209\001\000\210\001\000\211\001\000\212\001\000\213\001\000\214\001\000\215\001\000\216\001\000\217\001\000\218\001\000\219\001\000\220\001\000\221\001\000\222\001\000\223\001\000\224\001\000\225\001\000\226\001\000\227\001\000\228\001\000\229\001\000\230\001\000\231\001\000\232\001\000\233\001\000\234\001\000\235\001\000\236\001\000\237\001\000\238\001\000\239\001\000\240\001\000\241\001\000\242\001\000\243\001\000\244\001\000\245\001\000\246\001\000\247\001\000\248\001\000\249\001\000\250\001\000\251\001\000\252\001\000\253\001\000\254\001\000\255" 0 : int array);;
-let windows1252_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\174\000\000\000\000\000\000\006M\000\000\006M\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\144\160LL\144\160MM\144\160NN\144\160OO\144\160PP\144\160QQ\144\160RR\145\160\160SS\160\160\001 \019\001\000\150@\145\160\160TT\160\160\001 \020\001\000\151@\144\160UU\144\160VV\144\160WW\145\160\160XX\160\160\001 \024\001\000\145@\145\160\160YY\160\160\001 \025\001\000\146@\145\160\160ZZ\160\160\001 \026\001\000\130@\144\160[[\145\160\160\\\\\160\160\001 \028\001\000\147@\145\160\160]]\160\160\001 \029\001\000\148@\145\160\160^^\160\160\001 \030\001\000\132@\144\160__\145\160\160``\160\160\001  \001\000\134@\145\160\160aa\160\160\001 !\001\000\135@\145\160\160bb\160\160\001 \"\001\000\149\160\160\001!\"\001\000\153@\144\160cc\144\160dd\144\160ee\145\160\160ff\160\160\001 &\001\000\133@\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\145\160\160pp\160\160\001 0\001\000\137@\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\145\160\160yy\160\160\001 9\001\000\139@\145\160\160zz\160\160\001 :\001\000\155@\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\145\160\160\000R\000R\160\160\001\001R\001\000\140@\145\160\160\000S\000S\160\160\001\001S\001\000\156@\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\145\160\160\000`\000`\160\160\001\001`\001\000\138@\145\160\160\000a\000a\160\160\001\001a\001\000\154@\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\145\160\160\000x\000x\160\160\001\001x\001\000\159@\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\145\160\160\000}\000}\160\160\001\001}\001\000\142@\145\160\160\000~\000~\160\160\001\001~\001\000\158@\144\160\000\127\000\127@@@@@@@@@@@@@@@@@@\144\160\001\001\146\001\000\131@@@@@@@@@@@@@\144\160\001\000\160\001\000\160\144\160\001\000\161\001\000\161\144\160\001\000\162\001\000\162\144\160\001\000\163\001\000\163\144\160\001\000\164\001\000\164\144\160\001\000\165\001\000\165\144\160\001\000\166\001\000\166\144\160\001\000\167\001\000\167\144\160\001\000\168\001\000\168\144\160\001\000\169\001\000\169\144\160\001\000\170\001\000\170\144\160\001\000\171\001\000\171\145\160\160\001 \172\001\000\128\160\160\001\000\172\001\000\172@\144\160\001\000\173\001\000\173\144\160\001\000\174\001\000\174\144\160\001\000\175\001\000\175\144\160\001\000\176\001\000\176\144\160\001\000\177\001\000\177\144\160\001\000\178\001\000\178\144\160\001\000\179\001\000\179\144\160\001\000\180\001\000\180\144\160\001\000\181\001\000\181\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\183\144\160\001\000\184\001\000\184\144\160\001\000\185\001\000\185\144\160\001\000\186\001\000\186\144\160\001\000\187\001\000\187\144\160\001\000\188\001\000\188\144\160\001\000\189\001\000\189\144\160\001\000\190\001\000\190\144\160\001\000\191\001\000\191\144\160\001\000\192\001\000\192\144\160\001\000\193\001\000\193\144\160\001\000\194\001\000\194\144\160\001\000\195\001\000\195\144\160\001\000\196\001\000\196\144\160\001\000\197\001\000\197\145\160\160\001\002\198\001\000\136\160\160\001\000\198\001\000\198@\144\160\001\000\199\001\000\199\144\160\001\000\200\001\000\200\144\160\001\000\201\001\000\201\144\160\001\000\202\001\000\202\144\160\001\000\203\001\000\203\144\160\001\000\204\001\000\204\144\160\001\000\205\001\000\205\144\160\001\000\206\001\000\206\144\160\001\000\207\001\000\207\144\160\001\000\208\001\000\208\144\160\001\000\209\001\000\209\144\160\001\000\210\001\000\210\144\160\001\000\211\001\000\211\144\160\001\000\212\001\000\212\144\160\001\000\213\001\000\213\144\160\001\000\214\001\000\214\144\160\001\000\215\001\000\215\144\160\001\000\216\001\000\216\144\160\001\000\217\001\000\217\144\160\001\000\218\001\000\218\144\160\001\000\219\001\000\219\145\160\160\001\002\220\001\000\152\160\160\001\000\220\001\000\220@\144\160\001\000\221\001\000\221\144\160\001\000\222\001\000\222\144\160\001\000\223\001\000\223\144\160\001\000\224\001\000\224\144\160\001\000\225\001\000\225\144\160\001\000\226\001\000\226\144\160\001\000\227\001\000\227\144\160\001\000\228\001\000\228\144\160\001\000\229\001\000\229\144\160\001\000\230\001\000\230\144\160\001\000\231\001\000\231\144\160\001\000\232\001\000\232\144\160\001\000\233\001\000\233\144\160\001\000\234\001\000\234\144\160\001\000\235\001\000\235\144\160\001\000\236\001\000\236\144\160\001\000\237\001\000\237\144\160\001\000\238\001\000\238\144\160\001\000\239\001\000\239\144\160\001\000\240\001\000\240\144\160\001\000\241\001\000\241\144\160\001\000\242\001\000\242\144\160\001\000\243\001\000\243\144\160\001\000\244\001\000\244\144\160\001\000\245\001\000\245\144\160\001\000\246\001\000\246\144\160\001\000\247\001\000\247\144\160\001\000\248\001\000\248\144\160\001\000\249\001\000\249\144\160\001\000\250\001\000\250\144\160\001\000\251\001\000\251\144\160\001\000\252\001\000\252\144\160\001\000\253\001\000\253\144\160\001\000\254\001\000\254\144\160\001\000\255\001\000\255" 0 : Netmappings.from_uni_list array);;
- let windows1253_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\0024\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001 \172\000\255\001 \026\001\001\146\001 \030\001 &\001  \001 !\000\255\001 0\000\255\001 9\000\255\000\255\000\255\000\255\000\255\001 \024\001 \025\001 \028\001 \029\001 \"\001 \019\001 \020\000\255\001!\"\000\255\001 :\000\255\000\255\000\255\000\255\001\000\160\001\003\133\001\003\134\001\000\163\001\000\164\001\000\165\001\000\166\001\000\167\001\000\168\001\000\169\000\255\001\000\171\001\000\172\001\000\173\001\000\174\001 \021\001\000\176\001\000\177\001\000\178\001\000\179\001\003\132\001\000\181\001\000\182\001\000\183\001\003\136\001\003\137\001\003\138\001\000\187\001\003\140\001\000\189\001\003\142\001\003\143\001\003\144\001\003\145\001\003\146\001\003\147\001\003\148\001\003\149\001\003\150\001\003\151\001\003\152\001\003\153\001\003\154\001\003\155\001\003\156\001\003\157\001\003\158\001\003\159\001\003\160\001\003\161\000\255\001\003\163\001\003\164\001\003\165\001\003\166\001\003\167\001\003\168\001\003\169\001\003\170\001\003\171\001\003\172\001\003\173\001\003\174\001\003\175\001\003\176\001\003\177\001\003\178\001\003\179\001\003\180\001\003\181\001\003\182\001\003\183\001\003\184\001\003\185\001\003\186\001\003\187\001\003\188\001\003\189\001\003\190\001\003\191\001\003\192\001\003\193\001\003\194\001\003\195\001\003\196\001\003\197\001\003\198\001\003\199\001\003\200\001\003\201\001\003\202\001\003\203\001\003\204\001\003\205\001\003\206\000\255" 0 : int array);;
-let windows1253_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\130\000\000\000\000\000\000\006F\000\000\006F\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\144\160LL\144\160MM\144\160NN\144\160OO\144\160PP\144\160QQ\144\160RR\145\160\160SS\160\160\001 \019\001\000\150@\145\160\160TT\160\160\001 \020\001\000\151@\145\160\160UU\160\160\001 \021\001\000\175@\144\160VV\144\160WW\145\160\160XX\160\160\001 \024\001\000\145@\145\160\160YY\160\160\001 \025\001\000\146@\145\160\160ZZ\160\160\001 \026\001\000\130@\144\160[[\145\160\160\\\\\160\160\001 \028\001\000\147@\145\160\160]]\160\160\001 \029\001\000\148@\145\160\160^^\160\160\001 \030\001\000\132@\144\160__\145\160\160``\160\160\001  \001\000\134@\145\160\160aa\160\160\001 !\001\000\135@\145\160\160bb\160\160\001 \"\001\000\149\160\160\001!\"\001\000\153@\144\160cc\144\160dd\144\160ee\145\160\160ff\160\160\001 &\001\000\133@\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\145\160\160pp\160\160\001 0\001\000\137@\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\145\160\160yy\160\160\001 9\001\000\139@\145\160\160zz\160\160\001 :\001\000\155@\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\144\160\000R\000R\144\160\000S\000S\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\144\160\000`\000`\144\160\000a\000a\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127@@@@\144\160\001\003\132\001\000\180\144\160\001\003\133\001\000\161\144\160\001\003\134\001\000\162@\144\160\001\003\136\001\000\184\144\160\001\003\137\001\000\185\144\160\001\003\138\001\000\186@\144\160\001\003\140\001\000\188@\144\160\001\003\142\001\000\190\144\160\001\003\143\001\000\191\144\160\001\003\144\001\000\192\144\160\001\003\145\001\000\193\145\160\160\001\001\146\001\000\131\160\160\001\003\146\001\000\194@\144\160\001\003\147\001\000\195\144\160\001\003\148\001\000\196\144\160\001\003\149\001\000\197\144\160\001\003\150\001\000\198\144\160\001\003\151\001\000\199\144\160\001\003\152\001\000\200\144\160\001\003\153\001\000\201\144\160\001\003\154\001\000\202\144\160\001\003\155\001\000\203\144\160\001\003\156\001\000\204\144\160\001\003\157\001\000\205\144\160\001\003\158\001\000\206\144\160\001\003\159\001\000\207\145\160\160\001\000\160\001\000\160\160\160\001\003\160\001\000\208@\144\160\001\003\161\001\000\209@\145\160\160\001\000\163\001\000\163\160\160\001\003\163\001\000\211@\145\160\160\001\000\164\001\000\164\160\160\001\003\164\001\000\212@\145\160\160\001\000\165\001\000\165\160\160\001\003\165\001\000\213@\145\160\160\001\000\166\001\000\166\160\160\001\003\166\001\000\214@\145\160\160\001\000\167\001\000\167\160\160\001\003\167\001\000\215@\145\160\160\001\000\168\001\000\168\160\160\001\003\168\001\000\216@\145\160\160\001\000\169\001\000\169\160\160\001\003\169\001\000\217@\144\160\001\003\170\001\000\218\145\160\160\001\000\171\001\000\171\160\160\001\003\171\001\000\219@\145\160\160\001 \172\001\000\128\160\160\001\000\172\001\000\172\160\160\001\003\172\001\000\220@\145\160\160\001\000\173\001\000\173\160\160\001\003\173\001\000\221@\145\160\160\001\000\174\001\000\174\160\160\001\003\174\001\000\222@\144\160\001\003\175\001\000\223\145\160\160\001\000\176\001\000\176\160\160\001\003\176\001\000\224@\145\160\160\001\000\177\001\000\177\160\160\001\003\177\001\000\225@\145\160\160\001\000\178\001\000\178\160\160\001\003\178\001\000\226@\145\160\160\001\000\179\001\000\179\160\160\001\003\179\001\000\227@\144\160\001\003\180\001\000\228\145\160\160\001\000\181\001\000\181\160\160\001\003\181\001\000\229@\145\160\160\001\000\182\001\000\182\160\160\001\003\182\001\000\230@\145\160\160\001\000\183\001\000\183\160\160\001\003\183\001\000\231@\144\160\001\003\184\001\000\232\144\160\001\003\185\001\000\233\144\160\001\003\186\001\000\234\145\160\160\001\000\187\001\000\187\160\160\001\003\187\001\000\235@\144\160\001\003\188\001\000\236\145\160\160\001\000\189\001\000\189\160\160\001\003\189\001\000\237@\144\160\001\003\190\001\000\238\144\160\001\003\191\001\000\239\144\160\001\003\192\001\000\240\144\160\001\003\193\001\000\241\144\160\001\003\194\001\000\242\144\160\001\003\195\001\000\243\144\160\001\003\196\001\000\244\144\160\001\003\197\001\000\245\144\160\001\003\198\001\000\246\144\160\001\003\199\001\000\247\144\160\001\003\200\001\000\248\144\160\001\003\201\001\000\249\144\160\001\003\202\001\000\250\144\160\001\003\203\001\000\251\144\160\001\003\204\001\000\252\144\160\001\003\205\001\000\253\144\160\001\003\206\001\000\254@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let windows1254_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002>\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001 \172\000\255\001 \026\001\001\146\001 \030\001 &\001  \001 !\001\002\198\001 0\001\001`\001 9\001\001R\000\255\000\255\000\255\000\255\001 \024\001 \025\001 \028\001 \029\001 \"\001 \019\001 \020\001\002\220\001!\"\001\001a\001 :\001\001S\000\255\000\255\001\001x\001\000\160\001\000\161\001\000\162\001\000\163\001\000\164\001\000\165\001\000\166\001\000\167\001\000\168\001\000\169\001\000\170\001\000\171\001\000\172\001\000\173\001\000\174\001\000\175\001\000\176\001\000\177\001\000\178\001\000\179\001\000\180\001\000\181\001\000\182\001\000\183\001\000\184\001\000\185\001\000\186\001\000\187\001\000\188\001\000\189\001\000\190\001\000\191\001\000\192\001\000\193\001\000\194\001\000\195\001\000\196\001\000\197\001\000\198\001\000\199\001\000\200\001\000\201\001\000\202\001\000\203\001\000\204\001\000\205\001\000\206\001\000\207\001\001\030\001\000\209\001\000\210\001\000\211\001\000\212\001\000\213\001\000\214\001\000\215\001\000\216\001\000\217\001\000\218\001\000\219\001\000\220\001\0010\001\001^\001\000\223\001\000\224\001\000\225\001\000\226\001\000\227\001\000\228\001\000\229\001\000\230\001\000\231\001\000\232\001\000\233\001\000\234\001\000\235\001\000\236\001\000\237\001\000\238\001\000\239\001\001\031\001\000\241\001\000\242\001\000\243\001\000\244\001\000\245\001\000\246\001\000\247\001\000\248\001\000\249\001\000\250\001\000\251\001\000\252\001\0011\001\001_\001\000\255" 0 : int array);;
-let windows1254_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\168\000\000\000\000\000\000\006M\000\000\006M\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\144\160LL\144\160MM\144\160NN\144\160OO\144\160PP\144\160QQ\144\160RR\145\160\160SS\160\160\001 \019\001\000\150@\145\160\160TT\160\160\001 \020\001\000\151@\144\160UU\144\160VV\144\160WW\145\160\160XX\160\160\001 \024\001\000\145@\145\160\160YY\160\160\001 \025\001\000\146@\145\160\160ZZ\160\160\001 \026\001\000\130@\144\160[[\145\160\160\\\\\160\160\001 \028\001\000\147@\145\160\160]]\160\160\001 \029\001\000\148@\145\160\160^^\160\160\001 \030\001\000\132\160\160\001\001\030\001\000\208@\145\160\160__\160\160\001\001\031\001\000\240@\145\160\160``\160\160\001  \001\000\134@\145\160\160aa\160\160\001 !\001\000\135@\145\160\160bb\160\160\001 \"\001\000\149\160\160\001!\"\001\000\153@\144\160cc\144\160dd\144\160ee\145\160\160ff\160\160\001 &\001\000\133@\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\145\160\160pp\160\160\001 0\001\000\137\160\160\001\0010\001\000\221@\145\160\160qq\160\160\001\0011\001\000\253@\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\145\160\160yy\160\160\001 9\001\000\139@\145\160\160zz\160\160\001 :\001\000\155@\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\145\160\160\000R\000R\160\160\001\001R\001\000\140@\145\160\160\000S\000S\160\160\001\001S\001\000\156@\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\145\160\160\000^\000^\160\160\001\001^\001\000\222@\145\160\160\000_\000_\160\160\001\001_\001\000\254@\145\160\160\000`\000`\160\160\001\001`\001\000\138@\145\160\160\000a\000a\160\160\001\001a\001\000\154@\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\145\160\160\000x\000x\160\160\001\001x\001\000\159@\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127@@@@@@@@@@@@@@@@@@\144\160\001\001\146\001\000\131@@@@@@@@@@@@@\144\160\001\000\160\001\000\160\144\160\001\000\161\001\000\161\144\160\001\000\162\001\000\162\144\160\001\000\163\001\000\163\144\160\001\000\164\001\000\164\144\160\001\000\165\001\000\165\144\160\001\000\166\001\000\166\144\160\001\000\167\001\000\167\144\160\001\000\168\001\000\168\144\160\001\000\169\001\000\169\144\160\001\000\170\001\000\170\144\160\001\000\171\001\000\171\145\160\160\001 \172\001\000\128\160\160\001\000\172\001\000\172@\144\160\001\000\173\001\000\173\144\160\001\000\174\001\000\174\144\160\001\000\175\001\000\175\144\160\001\000\176\001\000\176\144\160\001\000\177\001\000\177\144\160\001\000\178\001\000\178\144\160\001\000\179\001\000\179\144\160\001\000\180\001\000\180\144\160\001\000\181\001\000\181\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\183\144\160\001\000\184\001\000\184\144\160\001\000\185\001\000\185\144\160\001\000\186\001\000\186\144\160\001\000\187\001\000\187\144\160\001\000\188\001\000\188\144\160\001\000\189\001\000\189\144\160\001\000\190\001\000\190\144\160\001\000\191\001\000\191\144\160\001\000\192\001\000\192\144\160\001\000\193\001\000\193\144\160\001\000\194\001\000\194\144\160\001\000\195\001\000\195\144\160\001\000\196\001\000\196\144\160\001\000\197\001\000\197\145\160\160\001\002\198\001\000\136\160\160\001\000\198\001\000\198@\144\160\001\000\199\001\000\199\144\160\001\000\200\001\000\200\144\160\001\000\201\001\000\201\144\160\001\000\202\001\000\202\144\160\001\000\203\001\000\203\144\160\001\000\204\001\000\204\144\160\001\000\205\001\000\205\144\160\001\000\206\001\000\206\144\160\001\000\207\001\000\207@\144\160\001\000\209\001\000\209\144\160\001\000\210\001\000\210\144\160\001\000\211\001\000\211\144\160\001\000\212\001\000\212\144\160\001\000\213\001\000\213\144\160\001\000\214\001\000\214\144\160\001\000\215\001\000\215\144\160\001\000\216\001\000\216\144\160\001\000\217\001\000\217\144\160\001\000\218\001\000\218\144\160\001\000\219\001\000\219\145\160\160\001\002\220\001\000\152\160\160\001\000\220\001\000\220@@@\144\160\001\000\223\001\000\223\144\160\001\000\224\001\000\224\144\160\001\000\225\001\000\225\144\160\001\000\226\001\000\226\144\160\001\000\227\001\000\227\144\160\001\000\228\001\000\228\144\160\001\000\229\001\000\229\144\160\001\000\230\001\000\230\144\160\001\000\231\001\000\231\144\160\001\000\232\001\000\232\144\160\001\000\233\001\000\233\144\160\001\000\234\001\000\234\144\160\001\000\235\001\000\235\144\160\001\000\236\001\000\236\144\160\001\000\237\001\000\237\144\160\001\000\238\001\000\238\144\160\001\000\239\001\000\239@\144\160\001\000\241\001\000\241\144\160\001\000\242\001\000\242\144\160\001\000\243\001\000\243\144\160\001\000\244\001\000\244\144\160\001\000\245\001\000\245\144\160\001\000\246\001\000\246\144\160\001\000\247\001\000\247\144\160\001\000\248\001\000\248\144\160\001\000\249\001\000\249\144\160\001\000\250\001\000\250\144\160\001\000\251\001\000\251\144\160\001\000\252\001\000\252@@\144\160\001\000\255\001\000\255" 0 : Netmappings.from_uni_list array);;
- let windows1255_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002.\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001 \172\000\255\001 \026\001\001\146\001 \030\001 &\001  \001 !\001\002\198\001 0\000\255\001 9\000\255\000\255\000\255\000\255\000\255\001 \024\001 \025\001 \028\001 \029\001 \"\001 \019\001 \020\001\002\220\001!\"\000\255\001 :\000\255\000\255\000\255\000\255\001\000\160\001\000\161\001\000\162\001\000\163\001 \170\001\000\165\001\000\166\001\000\167\001\000\168\001\000\169\001\000\215\001\000\171\001\000\172\001\000\173\001\000\174\001\000\175\001\000\176\001\000\177\001\000\178\001\000\179\001\000\180\001\000\181\001\000\182\001\000\183\001\000\184\001\000\185\001\000\247\001\000\187\001\000\188\001\000\189\001\000\190\001\000\191\001\005\176\001\005\177\001\005\178\001\005\179\001\005\180\001\005\181\001\005\182\001\005\183\001\005\184\001\005\185\000\255\001\005\187\001\005\188\001\005\189\001\005\190\001\005\191\001\005\192\001\005\193\001\005\194\001\005\195\001\005\240\001\005\241\001\005\242\001\005\243\001\005\244\000\255\000\255\000\255\000\255\000\255\000\255\000\255\001\005\208\001\005\209\001\005\210\001\005\211\001\005\212\001\005\213\001\005\214\001\005\215\001\005\216\001\005\217\001\005\218\001\005\219\001\005\220\001\005\221\001\005\222\001\005\223\001\005\224\001\005\225\001\005\226\001\005\227\001\005\228\001\005\229\001\005\230\001\005\231\001\005\232\001\005\233\001\005\234\000\255\000\255\001 \014\001 \015\000\255" 0 : int array);;
-let windows1255_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006N\000\000\000\000\000\000\006\027\000\000\006\027\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\144\160LL\144\160MM\145\160\160NN\160\160\001 \014\001\000\253@\145\160\160OO\160\160\001 \015\001\000\254@\144\160PP\144\160QQ\144\160RR\145\160\160SS\160\160\001 \019\001\000\150@\145\160\160TT\160\160\001 \020\001\000\151@\144\160UU\144\160VV\144\160WW\145\160\160XX\160\160\001 \024\001\000\145@\145\160\160YY\160\160\001 \025\001\000\146@\145\160\160ZZ\160\160\001 \026\001\000\130@\144\160[[\145\160\160\\\\\160\160\001 \028\001\000\147@\145\160\160]]\160\160\001 \029\001\000\148@\145\160\160^^\160\160\001 \030\001\000\132@\144\160__\145\160\160``\160\160\001  \001\000\134@\145\160\160aa\160\160\001 !\001\000\135@\145\160\160bb\160\160\001 \"\001\000\149\160\160\001!\"\001\000\153@\144\160cc\144\160dd\144\160ee\145\160\160ff\160\160\001 &\001\000\133@\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\145\160\160pp\160\160\001 0\001\000\137@\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\145\160\160yy\160\160\001 9\001\000\139@\145\160\160zz\160\160\001 :\001\000\155@\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\144\160\000R\000R\144\160\000S\000S\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\144\160\000`\000`\144\160\000a\000a\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127@@@@@@@@@@@@@@@@@@\144\160\001\001\146\001\000\131@@@@@@@@@@@@@\144\160\001\000\160\001\000\160\144\160\001\000\161\001\000\161\144\160\001\000\162\001\000\162\144\160\001\000\163\001\000\163@\144\160\001\000\165\001\000\165\144\160\001\000\166\001\000\166\144\160\001\000\167\001\000\167\144\160\001\000\168\001\000\168\144\160\001\000\169\001\000\169\144\160\001 \170\001\000\164\144\160\001\000\171\001\000\171\145\160\160\001 \172\001\000\128\160\160\001\000\172\001\000\172@\144\160\001\000\173\001\000\173\144\160\001\000\174\001\000\174\144\160\001\000\175\001\000\175\145\160\160\001\000\176\001\000\176\160\160\001\005\176\001\000\192@\145\160\160\001\000\177\001\000\177\160\160\001\005\177\001\000\193@\145\160\160\001\000\178\001\000\178\160\160\001\005\178\001\000\194@\145\160\160\001\000\179\001\000\179\160\160\001\005\179\001\000\195@\145\160\160\001\000\180\001\000\180\160\160\001\005\180\001\000\196@\145\160\160\001\000\181\001\000\181\160\160\001\005\181\001\000\197@\145\160\160\001\000\182\001\000\182\160\160\001\005\182\001\000\198@\145\160\160\001\000\183\001\000\183\160\160\001\005\183\001\000\199@\145\160\160\001\000\184\001\000\184\160\160\001\005\184\001\000\200@\145\160\160\001\000\185\001\000\185\160\160\001\005\185\001\000\201@@\145\160\160\001\000\187\001\000\187\160\160\001\005\187\001\000\203@\145\160\160\001\000\188\001\000\188\160\160\001\005\188\001\000\204@\145\160\160\001\000\189\001\000\189\160\160\001\005\189\001\000\205@\145\160\160\001\000\190\001\000\190\160\160\001\005\190\001\000\206@\145\160\160\001\000\191\001\000\191\160\160\001\005\191\001\000\207@\144\160\001\005\192\001\000\208\144\160\001\005\193\001\000\209\144\160\001\005\194\001\000\210\144\160\001\005\195\001\000\211@@\144\160\001\002\198\001\000\136@@@@@@@@@\144\160\001\005\208\001\000\224\144\160\001\005\209\001\000\225\144\160\001\005\210\001\000\226\144\160\001\005\211\001\000\227\144\160\001\005\212\001\000\228\144\160\001\005\213\001\000\229\144\160\001\005\214\001\000\230\145\160\160\001\000\215\001\000\170\160\160\001\005\215\001\000\231@\144\160\001\005\216\001\000\232\144\160\001\005\217\001\000\233\144\160\001\005\218\001\000\234\144\160\001\005\219\001\000\235\145\160\160\001\002\220\001\000\152\160\160\001\005\220\001\000\236@\144\160\001\005\221\001\000\237\144\160\001\005\222\001\000\238\144\160\001\005\223\001\000\239\144\160\001\005\224\001\000\240\144\160\001\005\225\001\000\241\144\160\001\005\226\001\000\242\144\160\001\005\227\001\000\243\144\160\001\005\228\001\000\244\144\160\001\005\229\001\000\245\144\160\001\005\230\001\000\246\144\160\001\005\231\001\000\247\144\160\001\005\232\001\000\248\144\160\001\005\233\001\000\249\144\160\001\005\234\001\000\250@@@@@\144\160\001\005\240\001\000\212\144\160\001\005\241\001\000\213\144\160\001\005\242\001\000\214\144\160\001\005\243\001\000\215\144\160\001\005\244\001\000\216@@\144\160\001\000\247\001\000\186@@@@@@@@" 0 : Netmappings.from_uni_list array);;
- let windows1256_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002E\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001 \172\001\006~\001 \026\001\001\146\001 \030\001 &\001  \001 !\001\002\198\001 0\001\006y\001 9\001\001R\001\006\134\001\006\152\001\006\136\001\006\175\001 \024\001 \025\001 \028\001 \029\001 \"\001 \019\001 \020\001\006\169\001!\"\001\006\145\001 :\001\001S\001 \012\001 \013\001\006\186\001\000\160\001\006\012\001\000\162\001\000\163\001\000\164\001\000\165\001\000\166\001\000\167\001\000\168\001\000\169\001\006\190\001\000\171\001\000\172\001\000\173\001\000\174\001\000\175\001\000\176\001\000\177\001\000\178\001\000\179\001\000\180\001\000\181\001\000\182\001\000\183\001\000\184\001\000\185\001\006\027\001\000\187\001\000\188\001\000\189\001\000\190\001\006\031\001\006\193\001\006!\001\006\"\001\006#\001\006$\001\006%\001\006&\001\006'\001\006(\001\006)\001\006*\001\006+\001\006,\001\006-\001\006.\001\006/\001\0060\001\0061\001\0062\001\0063\001\0064\001\0065\001\0066\001\000\215\001\0067\001\0068\001\0069\001\006:\001\006@\001\006A\001\006B\001\006C\001\000\224\001\006D\001\000\226\001\006E\001\006F\001\006G\001\006H\001\000\231\001\000\232\001\000\233\001\000\234\001\000\235\001\006I\001\006J\001\000\238\001\000\239\001\006K\001\006L\001\006M\001\006N\001\000\244\001\006O\001\006P\001\000\247\001\006Q\001\000\249\001\006R\001\000\251\001\000\252\001 \014\001 \015\001\006\210" 0 : int array);;
-let windows1256_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\007W\000\000\000\000\000\000\007\022\000\000\007\022\008\000\004\000\000\144\160@@\144\160AA\144\160BB\144\160CC\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001 \012\001\000\157\160\160\001\006\012\001\000\161@\145\160\160MM\160\160\001 \013\001\000\158@\145\160\160NN\160\160\001 \014\001\000\253@\145\160\160OO\160\160\001 \015\001\000\254@\144\160PP\144\160QQ\144\160RR\145\160\160SS\160\160\001 \019\001\000\150@\145\160\160TT\160\160\001 \020\001\000\151@\144\160UU\144\160VV\144\160WW\145\160\160XX\160\160\001 \024\001\000\145@\145\160\160YY\160\160\001 \025\001\000\146@\145\160\160ZZ\160\160\001 \026\001\000\130@\145\160\160[[\160\160\001\006\027\001\000\186@\145\160\160\\\\\160\160\001 \028\001\000\147@\145\160\160]]\160\160\001 \029\001\000\148@\145\160\160^^\160\160\001 \030\001\000\132@\145\160\160__\160\160\001\006\031\001\000\191@\145\160\160``\160\160\001  \001\000\134@\145\160\160aa\160\160\001 !\001\000\135\160\160\001\006!\001\000\193@\145\160\160bb\160\160\001 \"\001\000\149\160\160\001!\"\001\000\153\160\160\001\006\"\001\000\194@\145\160\160cc\160\160\001\006#\001\000\195@\145\160\160dd\160\160\001\006$\001\000\196@\145\160\160ee\160\160\001\006%\001\000\197@\145\160\160ff\160\160\001 &\001\000\133\160\160\001\006&\001\000\198@\145\160\160gg\160\160\001\006'\001\000\199@\145\160\160hh\160\160\001\006(\001\000\200@\145\160\160ii\160\160\001\006)\001\000\201@\145\160\160jj\160\160\001\006*\001\000\202@\145\160\160kk\160\160\001\006+\001\000\203@\145\160\160ll\160\160\001\006,\001\000\204@\145\160\160mm\160\160\001\006-\001\000\205@\145\160\160nn\160\160\001\006.\001\000\206@\145\160\160oo\160\160\001\006/\001\000\207@\145\160\160pp\160\160\001 0\001\000\137\160\160\001\0060\001\000\208@\145\160\160qq\160\160\001\0061\001\000\209@\145\160\160rr\160\160\001\0062\001\000\210@\145\160\160ss\160\160\001\0063\001\000\211@\145\160\160tt\160\160\001\0064\001\000\212@\145\160\160uu\160\160\001\0065\001\000\213@\145\160\160vv\160\160\001\0066\001\000\214@\145\160\160ww\160\160\001\0067\001\000\216@\145\160\160xx\160\160\001\0068\001\000\217@\145\160\160yy\160\160\001 9\001\000\139\160\160\001\0069\001\000\218@\145\160\160zz\160\160\001 :\001\000\155\160\160\001\006:\001\000\219@\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\145\160\160\000@\000@\160\160\001\006@\001\000\220@\145\160\160\000A\000A\160\160\001\006A\001\000\221@\145\160\160\000B\000B\160\160\001\006B\001\000\222@\145\160\160\000C\000C\160\160\001\006C\001\000\223@\145\160\160\000D\000D\160\160\001\006D\001\000\225@\145\160\160\000E\000E\160\160\001\006E\001\000\227@\145\160\160\000F\000F\160\160\001\006F\001\000\228@\145\160\160\000G\000G\160\160\001\006G\001\000\229@\145\160\160\000H\000H\160\160\001\006H\001\000\230@\145\160\160\000I\000I\160\160\001\006I\001\000\236@\145\160\160\000J\000J\160\160\001\006J\001\000\237@\145\160\160\000K\000K\160\160\001\006K\001\000\240@\145\160\160\000L\000L\160\160\001\006L\001\000\241@\145\160\160\000M\000M\160\160\001\006M\001\000\242@\145\160\160\000N\000N\160\160\001\006N\001\000\243@\145\160\160\000O\000O\160\160\001\006O\001\000\245@\145\160\160\000P\000P\160\160\001\006P\001\000\246@\145\160\160\000Q\000Q\160\160\001\006Q\001\000\248@\145\160\160\000R\000R\160\160\001\001R\001\000\140\160\160\001\006R\001\000\250@\145\160\160\000S\000S\160\160\001\001S\001\000\156@\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\144\160\000`\000`\144\160\000a\000a\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\145\160\160\000y\000y\160\160\001\006y\001\000\138@\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\145\160\160\000~\000~\160\160\001\006~\001\000\129@\144\160\000\127\000\127@@@@@@\144\160\001\006\134\001\000\141@\144\160\001\006\136\001\000\143@@@@@@@@\144\160\001\006\145\001\000\154\144\160\001\001\146\001\000\131@@@@@\144\160\001\006\152\001\000\142@@@@@@@\144\160\001\000\160\001\000\160@\144\160\001\000\162\001\000\162\144\160\001\000\163\001\000\163\144\160\001\000\164\001\000\164\144\160\001\000\165\001\000\165\144\160\001\000\166\001\000\166\144\160\001\000\167\001\000\167\144\160\001\000\168\001\000\168\145\160\160\001\006\169\001\000\152\160\160\001\000\169\001\000\169@@\144\160\001\000\171\001\000\171\145\160\160\001 \172\001\000\128\160\160\001\000\172\001\000\172@\144\160\001\000\173\001\000\173\144\160\001\000\174\001\000\174\145\160\160\001\006\175\001\000\144\160\160\001\000\175\001\000\175@\144\160\001\000\176\001\000\176\144\160\001\000\177\001\000\177\144\160\001\000\178\001\000\178\144\160\001\000\179\001\000\179\144\160\001\000\180\001\000\180\144\160\001\000\181\001\000\181\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\183\144\160\001\000\184\001\000\184\144\160\001\000\185\001\000\185\144\160\001\006\186\001\000\159\144\160\001\000\187\001\000\187\144\160\001\000\188\001\000\188\144\160\001\000\189\001\000\189\145\160\160\001\006\190\001\000\170\160\160\001\000\190\001\000\190@@@\144\160\001\006\193\001\000\192@@@@\144\160\001\002\198\001\000\136@@@@@@@@@@@\144\160\001\006\210\001\000\255@@@@\144\160\001\000\215\001\000\215@@@@@@@@\144\160\001\000\224\001\000\224@\144\160\001\000\226\001\000\226@@@@\144\160\001\000\231\001\000\231\144\160\001\000\232\001\000\232\144\160\001\000\233\001\000\233\144\160\001\000\234\001\000\234\144\160\001\000\235\001\000\235@@\144\160\001\000\238\001\000\238\144\160\001\000\239\001\000\239@@@@\144\160\001\000\244\001\000\244@@\144\160\001\000\247\001\000\247@\144\160\001\000\249\001\000\249@\144\160\001\000\251\001\000\251\144\160\001\000\252\001\000\252@@@" 0 : Netmappings.from_uni_list array);;
- let windows1257_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\0029\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001 \172\000\255\001 \026\000\255\001 \030\001 &\001  \001 !\000\255\001 0\000\255\001 9\000\255\001\000\168\001\002\199\001\000\184\000\255\001 \024\001 \025\001 \028\001 \029\001 \"\001 \019\001 \020\000\255\001!\"\000\255\001 :\000\255\001\000\175\001\002\219\000\255\001\000\160\000\255\001\000\162\001\000\163\001\000\164\000\255\001\000\166\001\000\167\001\000\216\001\000\169\001\001V\001\000\171\001\000\172\001\000\173\001\000\174\001\000\198\001\000\176\001\000\177\001\000\178\001\000\179\001\000\180\001\000\181\001\000\182\001\000\183\001\000\248\001\000\185\001\001W\001\000\187\001\000\188\001\000\189\001\000\190\001\000\230\001\001\004\001\001.\001\001\000\001\001\006\001\000\196\001\000\197\001\001\024\001\001\018\001\001\012\001\000\201\001\001y\001\001\022\001\001\"\001\0016\001\001*\001\001;\001\001`\001\001C\001\001E\001\000\211\001\001L\001\000\213\001\000\214\001\000\215\001\001r\001\001A\001\001Z\001\001j\001\000\220\001\001{\001\001}\001\000\223\001\001\005\001\001/\001\001\001\001\001\007\001\000\228\001\000\229\001\001\025\001\001\019\001\001\013\001\000\233\001\001z\001\001\023\001\001#\001\0017\001\001+\001\001<\001\001a\001\001D\001\001F\001\000\243\001\001M\001\000\245\001\000\246\001\000\247\001\001s\001\001B\001\001[\001\001k\001\000\252\001\001|\001\001~\001\002\217" 0 : int array);;
-let windows1257_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\234\000\000\000\000\000\000\006\186\000\000\006\186\008\000\004\000\000\145\160\160@@\160\160\001\001\000\001\000\194@\145\160\160AA\160\160\001\001\001\001\000\226@\144\160BB\144\160CC\145\160\160DD\160\160\001\001\004\001\000\192@\145\160\160EE\160\160\001\001\005\001\000\224@\145\160\160FF\160\160\001\001\006\001\000\195@\145\160\160GG\160\160\001\001\007\001\000\227@\144\160HH\144\160II\144\160JJ\144\160KK\145\160\160LL\160\160\001\001\012\001\000\200@\145\160\160MM\160\160\001\001\013\001\000\232@\144\160NN\144\160OO\144\160PP\144\160QQ\145\160\160RR\160\160\001\001\018\001\000\199@\145\160\160SS\160\160\001 \019\001\000\150\160\160\001\001\019\001\000\231@\145\160\160TT\160\160\001 \020\001\000\151@\144\160UU\145\160\160VV\160\160\001\001\022\001\000\203@\145\160\160WW\160\160\001\001\023\001\000\235@\145\160\160XX\160\160\001 \024\001\000\145\160\160\001\001\024\001\000\198@\145\160\160YY\160\160\001 \025\001\000\146\160\160\001\001\025\001\000\230@\145\160\160ZZ\160\160\001 \026\001\000\130@\144\160[[\145\160\160\\\\\160\160\001 \028\001\000\147@\145\160\160]]\160\160\001 \029\001\000\148@\145\160\160^^\160\160\001 \030\001\000\132@\144\160__\145\160\160``\160\160\001  \001\000\134@\145\160\160aa\160\160\001 !\001\000\135@\145\160\160bb\160\160\001 \"\001\000\149\160\160\001!\"\001\000\153\160\160\001\001\"\001\000\204@\145\160\160cc\160\160\001\001#\001\000\236@\144\160dd\144\160ee\145\160\160ff\160\160\001 &\001\000\133@\144\160gg\144\160hh\144\160ii\145\160\160jj\160\160\001\001*\001\000\206@\145\160\160kk\160\160\001\001+\001\000\238@\144\160ll\144\160mm\145\160\160nn\160\160\001\001.\001\000\193@\145\160\160oo\160\160\001\001/\001\000\225@\145\160\160pp\160\160\001 0\001\000\137@\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\145\160\160vv\160\160\001\0016\001\000\205@\145\160\160ww\160\160\001\0017\001\000\237@\144\160xx\145\160\160yy\160\160\001 9\001\000\139@\145\160\160zz\160\160\001 :\001\000\155@\145\160\160{{\160\160\001\001;\001\000\207@\145\160\160||\160\160\001\001<\001\000\239@\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\145\160\160\000A\000A\160\160\001\001A\001\000\217@\145\160\160\000B\000B\160\160\001\001B\001\000\249@\145\160\160\000C\000C\160\160\001\001C\001\000\209@\145\160\160\000D\000D\160\160\001\001D\001\000\241@\145\160\160\000E\000E\160\160\001\001E\001\000\210@\145\160\160\000F\000F\160\160\001\001F\001\000\242@\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\145\160\160\000L\000L\160\160\001\001L\001\000\212@\145\160\160\000M\000M\160\160\001\001M\001\000\244@\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\144\160\000R\000R\144\160\000S\000S\144\160\000T\000T\144\160\000U\000U\145\160\160\000V\000V\160\160\001\001V\001\000\170@\145\160\160\000W\000W\160\160\001\001W\001\000\186@\144\160\000X\000X\144\160\000Y\000Y\145\160\160\000Z\000Z\160\160\001\001Z\001\000\218@\145\160\160\000[\000[\160\160\001\001[\001\000\250@\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\145\160\160\000`\000`\160\160\001\001`\001\000\208@\145\160\160\000a\000a\160\160\001\001a\001\000\240@\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\145\160\160\000j\000j\160\160\001\001j\001\000\219@\145\160\160\000k\000k\160\160\001\001k\001\000\251@\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\145\160\160\000r\000r\160\160\001\001r\001\000\216@\145\160\160\000s\000s\160\160\001\001s\001\000\248@\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\144\160\000x\000x\145\160\160\000y\000y\160\160\001\001y\001\000\202@\145\160\160\000z\000z\160\160\001\001z\001\000\234@\145\160\160\000{\000{\160\160\001\001{\001\000\221@\145\160\160\000|\000|\160\160\001\001|\001\000\253@\145\160\160\000}\000}\160\160\001\001}\001\000\222@\145\160\160\000~\000~\160\160\001\001~\001\000\254@\144\160\000\127\000\127@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\144\160\001\000\160\001\000\160@\144\160\001\000\162\001\000\162\144\160\001\000\163\001\000\163\144\160\001\000\164\001\000\164@\144\160\001\000\166\001\000\166\144\160\001\000\167\001\000\167\144\160\001\000\168\001\000\141\144\160\001\000\169\001\000\169@\144\160\001\000\171\001\000\171\145\160\160\001 \172\001\000\128\160\160\001\000\172\001\000\172@\144\160\001\000\173\001\000\173\144\160\001\000\174\001\000\174\144\160\001\000\175\001\000\157\144\160\001\000\176\001\000\176\144\160\001\000\177\001\000\177\144\160\001\000\178\001\000\178\144\160\001\000\179\001\000\179\144\160\001\000\180\001\000\180\144\160\001\000\181\001\000\181\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\183\144\160\001\000\184\001\000\143\144\160\001\000\185\001\000\185@\144\160\001\000\187\001\000\187\144\160\001\000\188\001\000\188\144\160\001\000\189\001\000\189\144\160\001\000\190\001\000\190@@@@@\144\160\001\000\196\001\000\196\144\160\001\000\197\001\000\197\144\160\001\000\198\001\000\175\144\160\001\002\199\001\000\142@\144\160\001\000\201\001\000\201@@@@@@@@@\144\160\001\000\211\001\000\211@\144\160\001\000\213\001\000\213\144\160\001\000\214\001\000\214\144\160\001\000\215\001\000\215\144\160\001\000\216\001\000\168\144\160\001\002\217\001\000\255@\144\160\001\002\219\001\000\158\144\160\001\000\220\001\000\220@@\144\160\001\000\223\001\000\223@@@@\144\160\001\000\228\001\000\228\144\160\001\000\229\001\000\229\144\160\001\000\230\001\000\191@@\144\160\001\000\233\001\000\233@@@@@@@@@\144\160\001\000\243\001\000\243@\144\160\001\000\245\001\000\245\144\160\001\000\246\001\000\246\144\160\001\000\247\001\000\247\144\160\001\000\248\001\000\184@@@\144\160\001\000\252\001\000\252@@@" 0 : Netmappings.from_uni_list array);;
- let windows1258_to_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\002<\000\000\000\000\000\000\001\001\000\000\001\001\008\000\004\000\000@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\127\000@\000A\000B\000C\000D\000E\000F\000G\000H\000I\000J\000K\000L\000M\000N\000O\000P\000Q\000R\000S\000T\000U\000V\000W\000X\000Y\000Z\000[\000\\\000]\000^\000_\000`\000a\000b\000c\000d\000e\000f\000g\000h\000i\000j\000k\000l\000m\000n\000o\000p\000q\000r\000s\000t\000u\000v\000w\000x\000y\000z\000{\000|\000}\000~\000\127\001 \172\000\255\001 \026\001\001\146\001 \030\001 &\001  \001 !\001\002\198\001 0\000\255\001 9\001\001R\000\255\000\255\000\255\000\255\001 \024\001 \025\001 \028\001 \029\001 \"\001 \019\001 \020\001\002\220\001!\"\000\255\001 :\001\001S\000\255\000\255\001\001x\001\000\160\001\000\161\001\000\162\001\000\163\001\000\164\001\000\165\001\000\166\001\000\167\001\000\168\001\000\169\001\000\170\001\000\171\001\000\172\001\000\173\001\000\174\001\000\175\001\000\176\001\000\177\001\000\178\001\000\179\001\000\180\001\000\181\001\000\182\001\000\183\001\000\184\001\000\185\001\000\186\001\000\187\001\000\188\001\000\189\001\000\190\001\000\191\001\000\192\001\000\193\001\000\194\001\001\002\001\000\196\001\000\197\001\000\198\001\000\199\001\000\200\001\000\201\001\000\202\001\000\203\001\003\000\001\000\205\001\000\206\001\000\207\001\001\016\001\000\209\001\003\t\001\000\211\001\000\212\001\001\160\001\000\214\001\000\215\001\000\216\001\000\217\001\000\218\001\000\219\001\000\220\001\001\175\001\003\003\001\000\223\001\000\224\001\000\225\001\000\226\001\001\003\001\000\228\001\000\229\001\000\230\001\000\231\001\000\232\001\000\233\001\000\234\001\000\235\001\003\001\001\000\237\001\000\238\001\000\239\001\001\017\001\000\241\001\003#\001\000\243\001\000\244\001\001\161\001\000\246\001\000\247\001\000\248\001\000\249\001\000\250\001\000\251\001\000\252\001\001\176\001 \171\001\000\255" 0 : int array);;
-let windows1258_from_unicode = lazy (Marshal.from_string "\132\149\166\190\000\000\006\174\000\000\000\000\000\000\006^\000\000\006^\008\000\004\000\000\145\160\160@@\160\160\001\003\000\001\000\204@\145\160\160AA\160\160\001\003\001\001\000\236@\145\160\160BB\160\160\001\001\002\001\000\195@\145\160\160CC\160\160\001\003\003\001\000\222\160\160\001\001\003\001\000\227@\144\160DD\144\160EE\144\160FF\144\160GG\144\160HH\145\160\160II\160\160\001\003\t\001\000\210@\144\160JJ\144\160KK\144\160LL\144\160MM\144\160NN\144\160OO\145\160\160PP\160\160\001\001\016\001\000\208@\145\160\160QQ\160\160\001\001\017\001\000\240@\144\160RR\145\160\160SS\160\160\001 \019\001\000\150@\145\160\160TT\160\160\001 \020\001\000\151@\144\160UU\144\160VV\144\160WW\145\160\160XX\160\160\001 \024\001\000\145@\145\160\160YY\160\160\001 \025\001\000\146@\145\160\160ZZ\160\160\001 \026\001\000\130@\144\160[[\145\160\160\\\\\160\160\001 \028\001\000\147@\145\160\160]]\160\160\001 \029\001\000\148@\145\160\160^^\160\160\001 \030\001\000\132@\144\160__\145\160\160``\160\160\001  \001\000\134@\145\160\160aa\160\160\001 !\001\000\135@\145\160\160bb\160\160\001 \"\001\000\149\160\160\001!\"\001\000\153@\145\160\160cc\160\160\001\003#\001\000\242@\144\160dd\144\160ee\145\160\160ff\160\160\001 &\001\000\133@\144\160gg\144\160hh\144\160ii\144\160jj\144\160kk\144\160ll\144\160mm\144\160nn\144\160oo\145\160\160pp\160\160\001 0\001\000\137@\144\160qq\144\160rr\144\160ss\144\160tt\144\160uu\144\160vv\144\160ww\144\160xx\145\160\160yy\160\160\001 9\001\000\139@\145\160\160zz\160\160\001 :\001\000\155@\144\160{{\144\160||\144\160}}\144\160~~\144\160\127\127\144\160\000@\000@\144\160\000A\000A\144\160\000B\000B\144\160\000C\000C\144\160\000D\000D\144\160\000E\000E\144\160\000F\000F\144\160\000G\000G\144\160\000H\000H\144\160\000I\000I\144\160\000J\000J\144\160\000K\000K\144\160\000L\000L\144\160\000M\000M\144\160\000N\000N\144\160\000O\000O\144\160\000P\000P\144\160\000Q\000Q\145\160\160\000R\000R\160\160\001\001R\001\000\140@\145\160\160\000S\000S\160\160\001\001S\001\000\156@\144\160\000T\000T\144\160\000U\000U\144\160\000V\000V\144\160\000W\000W\144\160\000X\000X\144\160\000Y\000Y\144\160\000Z\000Z\144\160\000[\000[\144\160\000\\\000\\\144\160\000]\000]\144\160\000^\000^\144\160\000_\000_\144\160\000`\000`\144\160\000a\000a\144\160\000b\000b\144\160\000c\000c\144\160\000d\000d\144\160\000e\000e\144\160\000f\000f\144\160\000g\000g\144\160\000h\000h\144\160\000i\000i\144\160\000j\000j\144\160\000k\000k\144\160\000l\000l\144\160\000m\000m\144\160\000n\000n\144\160\000o\000o\144\160\000p\000p\144\160\000q\000q\144\160\000r\000r\144\160\000s\000s\144\160\000t\000t\144\160\000u\000u\144\160\000v\000v\144\160\000w\000w\145\160\160\000x\000x\160\160\001\001x\001\000\159@\144\160\000y\000y\144\160\000z\000z\144\160\000{\000{\144\160\000|\000|\144\160\000}\000}\144\160\000~\000~\144\160\000\127\000\127@@@@@@@@@@@@@@@@@@\144\160\001\001\146\001\000\131@@@@@@@@@@@@@\145\160\160\001\000\160\001\000\160\160\160\001\001\160\001\000\213@\145\160\160\001\000\161\001\000\161\160\160\001\001\161\001\000\245@\144\160\001\000\162\001\000\162\144\160\001\000\163\001\000\163\144\160\001\000\164\001\000\164\144\160\001\000\165\001\000\165\144\160\001\000\166\001\000\166\144\160\001\000\167\001\000\167\144\160\001\000\168\001\000\168\144\160\001\000\169\001\000\169\144\160\001\000\170\001\000\170\145\160\160\001\000\171\001\000\171\160\160\001 \171\001\000\254@\145\160\160\001 \172\001\000\128\160\160\001\000\172\001\000\172@\144\160\001\000\173\001\000\173\144\160\001\000\174\001\000\174\145\160\160\001\000\175\001\000\175\160\160\001\001\175\001\000\221@\145\160\160\001\000\176\001\000\176\160\160\001\001\176\001\000\253@\144\160\001\000\177\001\000\177\144\160\001\000\178\001\000\178\144\160\001\000\179\001\000\179\144\160\001\000\180\001\000\180\144\160\001\000\181\001\000\181\144\160\001\000\182\001\000\182\144\160\001\000\183\001\000\183\144\160\001\000\184\001\000\184\144\160\001\000\185\001\000\185\144\160\001\000\186\001\000\186\144\160\001\000\187\001\000\187\144\160\001\000\188\001\000\188\144\160\001\000\189\001\000\189\144\160\001\000\190\001\000\190\144\160\001\000\191\001\000\191\144\160\001\000\192\001\000\192\144\160\001\000\193\001\000\193\144\160\001\000\194\001\000\194@\144\160\001\000\196\001\000\196\144\160\001\000\197\001\000\197\145\160\160\001\002\198\001\000\136\160\160\001\000\198\001\000\198@\144\160\001\000\199\001\000\199\144\160\001\000\200\001\000\200\144\160\001\000\201\001\000\201\144\160\001\000\202\001\000\202\144\160\001\000\203\001\000\203@\144\160\001\000\205\001\000\205\144\160\001\000\206\001\000\206\144\160\001\000\207\001\000\207@\144\160\001\000\209\001\000\209@\144\160\001\000\211\001\000\211\144\160\001\000\212\001\000\212@\144\160\001\000\214\001\000\214\144\160\001\000\215\001\000\215\144\160\001\000\216\001\000\216\144\160\001\000\217\001\000\217\144\160\001\000\218\001\000\218\144\160\001\000\219\001\000\219\145\160\160\001\002\220\001\000\152\160\160\001\000\220\001\000\220@@@\144\160\001\000\223\001\000\223\144\160\001\000\224\001\000\224\144\160\001\000\225\001\000\225\144\160\001\000\226\001\000\226@\144\160\001\000\228\001\000\228\144\160\001\000\229\001\000\229\144\160\001\000\230\001\000\230\144\160\001\000\231\001\000\231\144\160\001\000\232\001\000\232\144\160\001\000\233\001\000\233\144\160\001\000\234\001\000\234\144\160\001\000\235\001\000\235@\144\160\001\000\237\001\000\237\144\160\001\000\238\001\000\238\144\160\001\000\239\001\000\239@\144\160\001\000\241\001\000\241@\144\160\001\000\243\001\000\243\144\160\001\000\244\001\000\244@\144\160\001\000\246\001\000\246\144\160\001\000\247\001\000\247\144\160\001\000\248\001\000\248\144\160\001\000\249\001\000\249\144\160\001\000\250\001\000\250\144\160\001\000\251\001\000\251\144\160\001\000\252\001\000\252@@\144\160\001\000\255\001\000\255" 0 : Netmappings.from_uni_list array);;
- Hashtbl.add Netmappings.to_unicode `Enc_windows1258 windows1258_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_windows1258 windows1258_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_windows1257 windows1257_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_windows1257 windows1257_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_windows1256 windows1256_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_windows1256 windows1256_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_windows1255 windows1255_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_windows1255 windows1255_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_windows1254 windows1254_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_windows1254 windows1254_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_windows1253 windows1253_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_windows1253 windows1253_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_windows1252 windows1252_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_windows1252 windows1252_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_windows1251 windows1251_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_windows1251 windows1251_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_windows1250 windows1250_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_windows1250 windows1250_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_macroman macroman_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_macroman macroman_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_koi8r koi8r_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_koi8r koi8r_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_jis0201 jis0201_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_jis0201 jis0201_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_adobe_zapf_dingbats_encoding adobe_zapf_dingbats_encoding_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_adobe_zapf_dingbats_encoding adobe_zapf_dingbats_encoding_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_adobe_symbol_encoding adobe_symbol_encoding_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_adobe_symbol_encoding adobe_symbol_encoding_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_adobe_standard_encoding adobe_standard_encoding_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_adobe_standard_encoding adobe_standard_encoding_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp875 cp875_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp875 cp875_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp874 cp874_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp874 cp874_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp869 cp869_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp869 cp869_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp866 cp866_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp866 cp866_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp865 cp865_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp865 cp865_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp864 cp864_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp864 cp864_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp863 cp863_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp863 cp863_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp862 cp862_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp862 cp862_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp861 cp861_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp861 cp861_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp860 cp860_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp860 cp860_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp857 cp857_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp857 cp857_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp856 cp856_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp856 cp856_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp855 cp855_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp855 cp855_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp852 cp852_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp852 cp852_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp850 cp850_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp850 cp850_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp775 cp775_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp775 cp775_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp737 cp737_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp737 cp737_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp500 cp500_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp500 cp500_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp437 cp437_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp437 cp437_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp424 cp424_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp424 cp424_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp1026 cp1026_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp1026 cp1026_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp1006 cp1006_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp1006 cp1006_from_unicode;
-Hashtbl.add Netmappings.to_unicode `Enc_cp037 cp037_to_unicode;
-Hashtbl.add Netmappings.from_unicode `Enc_cp037 cp037_from_unicode;
-();;

diff --git a/helm/DEVEL/pxp/netstring/netstream.ml b/helm/DEVEL/pxp/netstring/netstream.ml
deleted file mode 100644 (file)
index 76c2e3a..0000000
--- a/helm/DEVEL/pxp/netstring/netstream.ml
+++ /dev/null
@@ -1,162 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-type t =
-    { s_channel : in_channel;
-      s_maxlength : int option;
-      s_blocksize : int;
-      mutable s_current_length : int;
-      mutable s_at_eos : bool;
-      mutable s_win_pos : int;
-      mutable s_win_len : int;
-      s_netbuf : Netbuffer.t;
-      s_iobuf : string;
-    }
-;;
-
-
-let dump s text = 
-  print_string ("*** NETSTREAM DUMP " ^ text ^ "\n");
-  Printf.printf "current_length=%d  at_eos=%b  win_pos=%d  win_len=%d\n"
-                s.s_current_length s.s_at_eos s.s_win_pos s.s_win_len;
-  Printf.printf "netbuffer_length=%d  netbuffer_size=%d\n"
-                (Netbuffer.length s.s_netbuf)
-                (String.length(Netbuffer.unsafe_buffer s.s_netbuf));
-  Printf.printf "netbuffer=\"%s\"\n"
-                (String.escaped(Netbuffer.contents s.s_netbuf));
-  print_string "*** ---------------\n";
-  flush stdout
-;;
-
-
-let want_another_block s =
-  if not s.s_at_eos then begin
-    (* How much are we allowed to read? *)
-    let m =
-      match s.s_maxlength with
-         None   -> s.s_blocksize
-       | Some k -> min (k - s.s_current_length) s.s_blocksize
-    in
-    (* Read this. *)
-    let rec read_block k =
-      if k < m then
-       let n = 
-         input s.s_channel s.s_iobuf k (m - k) in
-       ( if n > 0 then
-           read_block (k+n)
-         else (* EOF *)
-           k
-       )
-      else
-       k
-    in
-    let n = read_block 0 in
-    (* If n < blocksize, EOS is reached. *)
-    Netbuffer.add_sub_string s.s_netbuf s.s_iobuf 0 n;
-    s.s_win_len        <- s.s_win_len + n;
-    s.s_current_length <- s.s_current_length + n;
-    s.s_at_eos         <- n < s.s_blocksize;
-
-    (* dump s "After appending block"; *)
-  end
-;;
-
-
-let want s n =
-  while not s.s_at_eos && s.s_win_len < n do
-    want_another_block s
-  done
-;;
-
-
-let want_minimum s =
-  want s (s.s_blocksize + s.s_blocksize)
-;;
-
-
-let move s n =
-  Netbuffer.delete s.s_netbuf 0 n;
-  s.s_win_pos <- s.s_win_pos + n;
-  s.s_win_len <- s.s_win_len - n;
-  want_minimum s;
-  (* dump s "After move"; *)
-;;
-
-
-let create_from_channel ch maxlength blocksize =
-  let s =
-    { s_channel = ch;
-      s_maxlength = maxlength;
-      s_blocksize = blocksize;
-      s_current_length = 0;
-      s_at_eos = false;
-      s_win_pos = 0;
-      s_win_len = 0;
-      s_netbuf = Netbuffer.create (2*blocksize);
-      s_iobuf = String.create blocksize;
-    }
-  in
-  want_minimum s;
-  s
-;;
-
-
-let create_from_string str =
-  let l = String.length str in
-  { s_channel = stdin;
-    s_maxlength = None;
-    s_blocksize = l;
-    s_current_length = l;
-    s_at_eos = true;
-    s_win_pos = 0;
-    s_win_len = l;
-    s_netbuf =
-      ( let nb = Netbuffer.create l in
-       Netbuffer.add_string nb str;
-       nb
-      );
-    s_iobuf = "";
-  }
-;;
-
-
-let block_size s = s.s_blocksize;;
-
-let current_length s = s.s_current_length;;
-
-let at_eos s = s.s_at_eos;;
-
-let window_position s = s.s_win_pos;;
-
-let window_length s = s.s_win_len;;
-
-let window s = s.s_netbuf;;
-
-let print_stream s =
-  Format.printf
-    "<NETSTREAM window:%d/%d total_length:%d eof=%b>"
-    s.s_win_pos
-    s.s_win_len
-    s.s_current_length
-    s.s_at_eos
-;;
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:27  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/06/24 20:20:33  gerd
- *     Added the toploop printer.
- *
- * Revision 1.1  2000/04/15 13:07:48  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/netstream.mli b/helm/DEVEL/pxp/netstring/netstream.mli
deleted file mode 100644 (file)
index 7cb1857..0000000
--- a/helm/DEVEL/pxp/netstring/netstream.mli
+++ /dev/null
@@ -1,118 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-(* A netstream is an input channel that is read block by block. The 
- * fragment of the channel currently loaded into memory is called the
- * current window of the netstream.
- *
- * PICTURE:
- *
- * 0            window_position     current_length                  EOS
- * +------------------+-------------------+--------------------------+
- *                    ====================
- *                     The current window
- *
- * window_length = current_length - window_position
- *
- * There is an automatism that the window has a certain length. If possible,
- * the window is at least twice the block size long, where a "block" is
- * the amount of data that is read from the input channel in one step.
- *
- * (The idea is that you choose as block size the number of bytes you want
- * to analyze at once, and which must be loaded into memory. You can start
- * your analysis at window_position and proceed until window_position +
- * blocksize without having to check whether your window is large enough.
- * Only when the first blocksize bytes of the window are already processed,
- * the window must be enlarged by loading the next block.)
- *
- * If you want that the window becomes larger, you can call 'want' (to
- * enlarge the window to a certain size) or 'want_another_block' (to load
- * just another block from the input channel). Note that this affects only
- * the current window and not future windows.
- *
- * If you do not need the first n bytes of the window anymore, you can
- * call 'move' to move the beginning of the window by n bytes. If the
- * window becomes too small after this operation, it is enlarged until
- * it has twice the block size or until it reaches EOS.
- *)
-
-type t
-
-val create_from_channel : in_channel -> int option -> int -> t
-    (* create_from_channel ch maxlength blocksize:
-     * The new netstream reads from the channel 'ch'. If maxlength = None,
-     * the channel is read until EOF. If maxlength = Some n, at most n bytes
-     * are read; i.e. the netstream reads until n bytes have been read or
-     * until EOF has been reached, whatever comes first. The blocksize 
-     * specifies the number of bytes to read at once.
-     *)
-
-val create_from_string : string -> t
-    (* Creates a new netstream from a string. The initial window of this
-     * netstream is a copy of the passed string.
-     *)
-
-val block_size : t -> int
-   (* Returns the (immutable) block size. *)
-
-val current_length : t -> int
-    (* Returns the number of bytes read so far. *)
-
-val at_eos : t -> bool
-    (* True iff EOS (end of stream) is reached, i.e. the last byte of the
-     * window is the last byte of the stream.
-     *)
-
-val window_position : t -> int
-    (* Returns the absolute position of the current window. *)
-
-val window_length : t -> int
-    (* Returns the length of the current window. *)
-
-val window : t -> Netbuffer.t
-    (* Returns the current window. *)
-
-val move : t -> int -> unit
-    (* move s n:
-     * Moves the window: The first n bytes of the current window are 
-     * discarded. If the window would become smaller than twice the
-     * blocksize and if the end of the stream is not yet reached, another
-     * block is read from the input channel and appended to the window.
-     * 
-     * PRECONDITION:
-     * - n <= window_length
-     *)
-
-val want : t -> int -> unit
-    (* want s n:
-     * If the window is smaller than n bytes, it is tried to enlarge
-     * the window such that it is at least n bytes long. The enlargement
-     * is not possible if the stream is not long enough; in this case
-     * the window becomes as large as possible.
-     *)
-
-val want_another_block : t -> unit
-    (* Enlarges the window by another block (if possible i.e. if the stream
-     * is long enough).
-     *)
-
-val print_stream : t -> unit
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:27  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/06/24 20:20:33  gerd
- *     Added the toploop printer.
- *
- * Revision 1.1  2000/04/15 13:07:48  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/netstring.cma b/helm/DEVEL/pxp/netstring/netstring.cma
deleted file mode 100644 (file)
index 1cf66b5..0000000
Binary files a/helm/DEVEL/pxp/netstring/netstring.cma and /dev/null differ

diff --git a/helm/DEVEL/pxp/netstring/netstring.cmxa b/helm/DEVEL/pxp/netstring/netstring.cmxa
deleted file mode 100644 (file)
index f95c008..0000000
Binary files a/helm/DEVEL/pxp/netstring/netstring.cmxa and /dev/null differ

diff --git a/helm/DEVEL/pxp/netstring/netstring_mt.ml b/helm/DEVEL/pxp/netstring/netstring_mt.ml
deleted file mode 100644 (file)
index 96576f1..0000000
--- a/helm/DEVEL/pxp/netstring/netstring_mt.ml
+++ /dev/null
@@ -1,37 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(* Initialize multi-threading mode: *)
-
-let str_mutex = Mutex.create();;
-let cgi_mutex = Mutex.create();;
-let mappings_mutex = Mutex.create();;
-
-Netstring_str.init_mt
-  (fun () -> Mutex.lock str_mutex)
-  (fun () -> Mutex.unlock str_mutex);
-Cgi.init_mt
-  (fun () -> Mutex.lock cgi_mutex)
-  (fun () -> Mutex.unlock cgi_mutex);
-Netmappings.init_mt
-  (fun () -> Mutex.lock mappings_mutex)
-  (fun () -> Mutex.unlock mappings_mutex)
-;;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:28  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/08/29 00:45:42  gerd
- *     Initializing Netmappings, too
- *
- * Revision 1.1  2000/06/25 21:15:27  gerd
- *     Initial revision
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/netstring_mt.mli b/helm/DEVEL/pxp/netstring/netstring_mt.mli
deleted file mode 100644 (file)
index c224b2b..0000000
--- a/helm/DEVEL/pxp/netstring/netstring_mt.mli
+++ /dev/null
@@ -1,25 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(* This module initializes the multi-threading mode of 
- * Netstring. You must link it with every application that
- * uses multi-threading.
- * PITFALL: Link this module _directly_ with the executable,
- * _don't_ put this module into a cma archive! This would not work!
- *)
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:28  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/06/25 21:15:27  gerd
- *     Initial revision
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/netstring_str.ml b/helm/DEVEL/pxp/netstring/netstring_str.ml
deleted file mode 100644 (file)
index 7353719..0000000
--- a/helm/DEVEL/pxp/netstring/netstring_str.ml
+++ /dev/null
@@ -1,241 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-let lock   = ref (fun () -> ());;
-let unlock = ref (fun () -> ());;
-
-let init_mt new_lock new_unlock =
-  lock   := new_lock;
-  unlock := new_unlock
-;;
-
-let protect f =
-  !lock();
-  try
-    let r = f() in
-    !unlock();
-    r
-  with
-      x ->
-       !unlock();
-       raise x
-;;
-
-type regexp = Str.regexp;;
-type split_result = Str.split_result = Text of string | Delim of string;;
-
-type result =
-    { pos : int;
-      match_beg : int;
-      match_end : int;
-      group_beg : int array;
-      group_end : int array;
-    }
-;;
-
-let regexp s =
-  protect
-    (fun () -> Str.regexp s)
-;;
-
-let regexp_case_fold s =
-  protect
-    (fun () -> Str.regexp_case_fold s)
-;;
-
-let quote s =
-  protect
-    (fun () -> Str.quote s)
-;;
-
-let regexp_string s =
-  protect
-    (fun () -> Str.regexp_string s)
-;;
-
-let regexp_string_case_fold s =
-  protect
-    (fun () -> Str.regexp_string_case_fold s)
-;;
-
-let return_result pos n_groups =
-  let r =
-    { pos = pos;
-      match_beg = (try Str.match_beginning() with Not_found -> -1);
-      match_end = (try Str.match_end()       with Not_found -> -1);
-      group_beg = Array.create n_groups (-1);
-      group_end = Array.create n_groups (-1);
-    }
-  in
-  for g = 0 to n_groups - 1 do
-    r.group_beg.(g) <- (try Str.group_beginning (g+1) with Not_found -> -1);
-    r.group_end.(g) <- (try Str.group_end (g+1)       with Not_found -> -1);
-  done;
-  r
-;;
-
-let string_match ?(groups = 9) ~pat s ~pos =
-  protect
-    (fun () ->
-       if Str.string_match pat s pos then
-        Some (return_result pos groups)
-       else
-        None
-    )
-;;
-
-let string_partial_match ?(groups = 9) ~pat s ~pos =
-  protect
-    (fun () ->
-       if Str.string_partial_match pat s pos then
-        Some (return_result pos groups)
-       else
-        None
-    )
-;;
-
-let search_forward ?(groups = 9) ~pat s ~pos =
-  protect
-    (fun () ->
-       let i = Str.search_forward pat s pos in
-       i, return_result pos groups
-    )
-;;
-
-let search_backward ?(groups = 9) ~pat s ~pos =
-  protect
-    (fun () ->
-       let i = Str.search_backward pat s pos in
-       i, return_result pos groups
-    )
-;;
-
-let matched_string result s =
-  if result.match_beg < 0 or result.match_end < 0 then raise Not_found;
-  String.sub s result.match_beg (result.match_end - result.match_beg)
-;;
-
-let match_beginning result =
-  if result.match_beg < 0 then raise Not_found;
-  result.match_beg
-;;
-
-let match_end result =
-  if result.match_end < 0 then raise Not_found;
-  result.match_end
-;;
-
-let matched_group result n s =
-  if n < 0 || n >= Array.length result.group_beg then raise Not_found;
-  let gbeg = result.group_beg.(n-1) in
-  let gend = result.group_end.(n-1) in
-  if gbeg < 0 or gend < 0 then raise Not_found;
-  String.sub s gbeg (gend - gbeg)
-;;
-
-let group_beginning result n =
-  if n < 0 || n >= Array.length result.group_beg then raise Not_found;
-  let gbeg = result.group_beg.(n-1) in
-  if gbeg < 0 then raise Not_found else 
-    gbeg
-;;
-
-let group_end result n =
-  if n < 0 || n >= Array.length result.group_end then raise Not_found;
-  let gend = result.group_end.(n-1) in
-  if gend < 0 then raise Not_found else 
-    gend
-;;
-
-let global_replace ~pat ~templ s =
-  protect
-    (fun () ->
-       Str.global_replace pat templ s)
-;;
-
-let replace_first ~pat ~templ s =
-  protect
-    (fun () ->
-       Str.replace_first pat templ s)
-;;
-
-let global_substitute ?(groups = 9) ~pat ~subst s =
-  protect
-    (fun () ->
-       let xsubst s =
-        let r = return_result 0 groups in
-        subst r s
-       in
-       Str.global_substitute pat xsubst s)
-;;
-
-let substitute_first ?(groups = 9) ~pat ~subst s =
-  protect
-    (fun () ->
-       let xsubst s =
-        let r = return_result 0 groups in
-        subst r s
-       in
-       Str.substitute_first pat xsubst s)
-;;
-
-(* replace_matched: n/a *)
-
-let split ~sep s =
-  protect
-    (fun () ->
-       Str.split sep s)
-;;
-
-let bounded_split ~sep s ~max =
-  protect
-    (fun () ->
-       Str.bounded_split sep s max)
-;;
-
-let split_delim ~sep s =
-  protect
-    (fun () ->
-       Str.split_delim sep s)
-;;
-
-let bounded_split_delim ~sep s ~max =
-  protect
-    (fun () ->
-       Str.bounded_split_delim sep s max)
-;;
-
-let full_split ~sep s =
-  protect
-    (fun () ->
-       Str.full_split sep s)
-;;
-
-let bounded_full_split ~sep s ~max =
-  protect
-    (fun () ->
-       Str.bounded_full_split sep s max)
-;;
-
-let string_before = Str.string_before;;
-let string_after = Str.string_after;;
-let first_chars = Str.first_chars;;
-let last_chars = Str.last_chars;;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:28  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/06/25 21:15:48  gerd
- *     Checked thread-safety.
- *
- * Revision 1.1  2000/06/25 20:48:19  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/netstring_str.mli b/helm/DEVEL/pxp/netstring/netstring_str.mli
deleted file mode 100644 (file)
index 86d6840..0000000
--- a/helm/DEVEL/pxp/netstring/netstring_str.mli
+++ /dev/null
@@ -1,82 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(* This module is a version of Str with a thread-safe interface *)
-
-type regexp = Str.regexp;;
-type split_result = Str.split_result = Text of string | Delim of string;;
-
-type result;;
-  (* The type of matching results *)
-
-val regexp: string -> regexp
-val regexp_case_fold: string -> regexp
-val quote: string -> string
-val regexp_string: string -> regexp
-val regexp_string_case_fold: string -> regexp
-
-val string_match: 
-      ?groups:int -> pat:regexp -> string -> pos:int -> result option
-val search_forward: 
-      ?groups:int -> pat:regexp -> string -> pos:int -> (int * result)
-val search_backward: 
-      ?groups:int -> pat:regexp -> string -> pos:int -> (int * result)
-val string_partial_match: 
-      ?groups:int -> pat:regexp -> string -> pos:int -> result option
-
-(* The ~groups option specifies how many groups will be stored into
- * 'result'. Default: 9
- *)
-
-val matched_string : result -> string -> string
-val match_beginning : result -> int
-val match_end : result -> int
-val matched_group : result -> int -> string -> string
-val group_beginning : result -> int -> int
-val group_end : result -> int -> int
-
-val global_replace: pat:regexp -> templ:string -> string -> string
-val replace_first: pat:regexp -> templ:string -> string -> string
-val global_substitute:
-       ?groups:int -> 
-       pat:regexp -> subst:(result -> string -> string) -> string -> string
-val substitute_first:
-       ?groups:int -> 
-       pat:regexp -> subst:(result -> string -> string) -> string -> string
-
-(* replace_matched: not available *)
-
-val split: sep:regexp -> string -> string list
-val bounded_split: sep:regexp -> string -> max:int -> string list
-val split_delim: sep:regexp -> string -> string list
-val bounded_split_delim: sep:regexp -> string -> max:int -> string list
-val full_split: sep:regexp -> string -> split_result list
-val bounded_full_split: sep:regexp -> string -> max:int -> split_result list
-
-val string_before: string -> int -> string
-val string_after: string -> int -> string
-val first_chars: string -> len:int -> string
-val last_chars: string -> len:int -> string
-
-(* Private: *)
-
-val init_mt : (unit -> unit) -> (unit -> unit) -> unit
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:28  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/06/25 21:15:48  gerd
- *     Checked thread-safety.
- *
- * Revision 1.1  2000/06/25 20:48:19  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/netstring_top.ml b/helm/DEVEL/pxp/netstring/netstring_top.ml
deleted file mode 100644 (file)
index d25505c..0000000
--- a/helm/DEVEL/pxp/netstring/netstring_top.ml
+++ /dev/null
@@ -1,34 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-let exec s =
-  let l = Lexing.from_string s in
-  let ph = !Toploop.parse_toplevel_phrase l in
-  assert(Toploop.execute_phrase false Format.err_formatter ph)
-;;
-
-(* Install the printers: *)
-
-exec "#install_printer Neturl.print_url;;";;
-exec "#install_printer Netbuffer.print_buffer;;";;
-exec "#install_printer Netstream.print_stream;;";;
-exec "#install_printer Cgi.print_argument;;";;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:28  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/06/25 22:34:43  gerd
- *     Added labels to arguments.
- *
- * Revision 1.1  2000/06/24 20:20:58  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/netstring_top.mli b/helm/DEVEL/pxp/netstring/netstring_top.mli
deleted file mode 100644 (file)
index 1d5ac72..0000000
--- a/helm/DEVEL/pxp/netstring/netstring_top.mli
+++ /dev/null
@@ -1,21 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(* You may load this module into the toploop in order to install
- * the printers for the various opaque data types of Netstring.
- *)
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:28  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/06/25 22:53:45  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/neturl.ml b/helm/DEVEL/pxp/netstring/neturl.ml
deleted file mode 100644 (file)
index f597b0c..0000000
--- a/helm/DEVEL/pxp/netstring/neturl.ml
+++ /dev/null
@@ -1,1302 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-exception Malformed_URL
-
-type url_syntax_option =
-    Url_part_not_recognized
-  | Url_part_allowed
-  | Url_part_required
-
-
-type url_syntax =
-    { url_enable_scheme    : url_syntax_option;
-      url_enable_user      : url_syntax_option;
-      url_enable_password  : url_syntax_option;
-      url_enable_host      : url_syntax_option;
-      url_enable_port      : url_syntax_option;
-      url_enable_path      : url_syntax_option;
-      url_enable_param     : url_syntax_option;
-      url_enable_query     : url_syntax_option;
-      url_enable_fragment  : url_syntax_option;
-      url_enable_other     : url_syntax_option;
-      url_accepts_8bits    : bool;
-      url_is_valid         : url -> bool;
-    }
-
-and url =
-    { 
-      url_syntax   : url_syntax;
-      mutable url_validity : bool;
-      url_scheme   : string option;
-      url_user     : string option;
-      url_password : string option;
-      url_host     : string option;
-      url_port     : int option;
-      url_path     : string list;
-      url_param    : string list;
-      url_query    : string option;
-      url_fragment : string option;
-      url_other    : string option;
-    }
-;;
-
-
-type char_category =
-    Accepted
-  | Rejected
-  | Separator
-
-
-
-let scan_url_part s k_from k_to cats accept_8bits =
-  (* Scans the longest word of accepted characters from position 'k_from'
-   * in 's' until at most position 'k_to'. The character following the
-   * word (if any) must be a separator character.
-   * On success, the function returns the position of the last character
-   * of the word + 1.
-   * If there is any rejected character before the separator or the end
-   * of the string (i.e. position 'k_to') is reached, the exception
-   * Malformed_URL is raised.
-   * Furthermore, if the character '%' is accepted it is checked whether
-   * two hexadecimal digits follow (which must be accepted, too). If this
-   * is not true, the exception Malformed_URL is raised, too.
-   * 'cats': contains for every character code (0 to 255) the category
-   * of the character.
-   *)
-  let check_hex c =
-    if cats.( Char.code c ) <> Accepted then raise Malformed_URL;
-    match c with
-       ('0'..'9'|'A'..'F'|'a'..'f') -> ()
-      | _ -> raise Malformed_URL
-  in
-
-  let rec scan k =
-    if k >= k_to then
-      k
-    else begin
-      let c = s.[k] in
-      let cat = cats.(Char.code c) in
-      match cat with
-         Accepted -> 
-           if c = '%' then begin
-             if k+2 >= k_to then raise Malformed_URL;
-             let c1 = s.[k+1] in
-             let c2 = s.[k+2] in
-             check_hex c1;
-             check_hex c2;
-             scan (k+3)
-           end
-           else
-             scan (k+1)
-       | Separator -> k
-       | Rejected -> 
-           if accept_8bits && c >= '\128' 
-           then scan (k+1)
-           else raise Malformed_URL
-    end
-  in
-
-  assert (Array.length cats = 256);
-  assert (k_from >= 0);
-  assert (k_from <= k_to);
-  assert (k_to <= String.length s);
-  
-  scan k_from
-;;
-
-  
-(* Create a categorization: *)
-
-let lalpha = [ 'a'; 'b'; 'c'; 'd'; 'e'; 'f'; 'g'; 'h'; 'i'; 'j'; 'k'; 'l'; 'm';
-              'n'; 'o'; 'p'; 'q'; 'r'; 's'; 't'; 'u'; 'v'; 'w'; 'x'; 'y'; 'z' ]
-
-let ualpha = [ 'A'; 'B'; 'C'; 'D'; 'E'; 'F'; 'G'; 'H'; 'I'; 'J'; 'K'; 'L'; 'M';
-              'N'; 'O'; 'P'; 'Q'; 'R'; 'S'; 'T'; 'U'; 'V'; 'W'; 'X'; 'Y'; 'Z' ]
-
-let digit = [ '0'; '1'; '2'; '3'; '4'; '5'; '6'; '7'; '8'; '9' ]
-
-let safe = [ '$'; '-'; '_'; '.'; '+' ]
-
-let extra = [ '!'; '*'; '\''; '('; ')'; ',' ]
-
-let make_cats accepted separators =
-  (* create a categorization:
-   * - All characters listed in 'separators' are separators.
-   * - All characters listed in 'accepted' and which do not occur in
-   *   'separators' are accepted characters.
-   * - All other characters are rejected.
-   *)
-  let cats = Array.make 256 Rejected in
-  List.iter
-    (fun c ->
-       cats.(Char.code c) <- Accepted
-    )
-    accepted;
-
-  List.iter
-    (fun c ->
-       cats.(Char.code c) <- Separator
-    )
-    separators;
-  cats
-;;
-
-
-let scheme_cats =
-  make_cats (lalpha @ ualpha @ ['+'; '-'; '.']) [':'] ;;
-
-    (* scheme_cats: character categorization to _extract_ the URL scheme *)
-
-
-let login_cats =
-  make_cats 
-    (lalpha @ ualpha @ digit @ safe @ extra @ [';'; '?'; '&'; '='; '%'])  
-    [':'; '@'; '/'; '#' ]
-;;
-
-    (* login_cats: character categorization to _extract_ user name, password,
-     * host name, and port.
-     *)
-
-let host_cats =
-  make_cats
-    (lalpha @ ualpha @ digit @ ['.'; '-'])
-    []
-;;
-
-    (* host_cats: character categorization to _check_ whether the host name
-     * is formed only by legal characters.
-     * Especially '%' is not allowed here!
-     *)
-
-let port_cats =
-  make_cats
-    digit
-    []
-;;
-
-    (* port_cats: character categorization to _check_ whether the port number
-     * is formed only by legal characters.
-     * Especially '%' is not allowed here!
-     *)
-
-let path_cats separators =
-  make_cats
-    (lalpha @ ualpha @ digit @ safe @ extra @ 
-              ['?'; ':'; '@'; '&'; '='; ';'; '%'; '/'; '~'])
-    separators
-;;
-
-
-let separators_from_syntax syn =
-  let include_if syn_option clist =
-    if syn_option <> Url_part_not_recognized then
-      clist
-    else
-      []
-  in
-  (include_if syn.url_enable_param [';']) @
-  (include_if syn.url_enable_query ['?']) @
-  (include_if syn.url_enable_fragment ['#'])
-;;
-
-
-let path_cats_from_syntax syn extraseps =
-  let separators = separators_from_syntax syn in
-  path_cats (separators @ extraseps)
-;;
-
-(* path_cats_from_syntax:
- * Computes a character categorization to extract the path from an URL.
- * This depends on the syntax because the list of possible separators
- * contains the characters that may begin the next URL clause.
- *
- * Notes:
- * - The '#' is rejected unless fragments are enabled. 
- * - The '~' is accepted although this violates RFC 1738.
- *)
-
-
-let other_cats_from_syntax syn =
-  let include_if syn_option clist =
-    if syn_option <> Url_part_not_recognized then
-      clist
-    else
-      []
-  in
-  let separators =
-    (include_if syn.url_enable_param [';']) @
-    (include_if syn.url_enable_query ['?']) @
-    (include_if syn.url_enable_fragment ['#'])
-  in
-
-  make_cats
-    (lalpha @ ualpha @ digit @ safe @ extra @ 
-              (separators @ ['?'; ':'; '@'; '&'; '='; ';'; '%'; '/']))
-    []
-;;
-
-    (* other_cats: character categorization to extract or check the
-     * "other" part of the URL.
-     *)
-
-
-
-let extract_url_scheme s = 
-  let l = String.length s in
-  let k = scan_url_part s 0 l scheme_cats false in
-          (* or raise Malformed_URL *)
-  if k = l then raise Malformed_URL;
-  assert (s.[k] = ':');
-  String.lowercase(String.sub s 0 k)
-;;
-
-
-let ( => ) a b = not a or b;;   (* implication *)
-
-let ( <=> ) (a:bool) b = ( a = b );;  (* equivalence *)
-
-let url_syntax_is_valid syn =
-  let recognized x = x <> Url_part_not_recognized in
-  let not_recognized x = x = Url_part_not_recognized in
-  (recognized syn.url_enable_password => recognized syn.url_enable_user) &
-  (recognized syn.url_enable_port     => recognized syn.url_enable_host) &
-  (recognized syn.url_enable_user     => recognized syn.url_enable_host) &
-  not ( (recognized syn.url_enable_user ||
-        recognized syn.url_enable_password ||
-        recognized syn.url_enable_host ||
-        recognized syn.url_enable_port ||
-        recognized syn.url_enable_path) &&
-       (recognized syn.url_enable_other))
-;;
-
-
-let partial_url_syntax syn =
-  let weaken =
-    function
-       Url_part_not_recognized -> Url_part_not_recognized
-      | Url_part_allowed        -> Url_part_allowed
-      | Url_part_required       -> Url_part_allowed
-  in
-  { url_enable_scheme    = weaken syn.url_enable_scheme;
-    url_enable_user      = weaken syn.url_enable_user;
-    url_enable_password  = weaken syn.url_enable_password;
-    url_enable_host      = weaken syn.url_enable_host;
-    url_enable_port      = weaken syn.url_enable_port;
-    url_enable_path      = weaken syn.url_enable_path;
-    url_enable_param     = weaken syn.url_enable_param;
-    url_enable_query     = weaken syn.url_enable_query;
-    url_enable_fragment  = weaken syn.url_enable_fragment;
-    url_enable_other     = weaken syn.url_enable_other;
-    url_accepts_8bits    = syn.url_accepts_8bits;
-    url_is_valid         = syn.url_is_valid;
-  }
-;;
-
-
-
-let file_url_syntax =
-  { url_enable_scheme    = Url_part_required;
-    url_enable_user      = Url_part_not_recognized;
-    url_enable_password  = Url_part_not_recognized;
-    url_enable_host      = Url_part_allowed;
-    url_enable_port      = Url_part_not_recognized;
-    url_enable_path      = Url_part_required;
-    url_enable_param     = Url_part_not_recognized;
-    url_enable_query     = Url_part_not_recognized;
-    url_enable_fragment  = Url_part_not_recognized;
-    url_enable_other     = Url_part_not_recognized;
-    url_accepts_8bits    = false;
-    url_is_valid         = (fun _ -> true);
-  }
-;;
-
-
-let ftp_url_syntax =
-  { url_enable_scheme    = Url_part_required;
-    url_enable_user      = Url_part_allowed;
-    url_enable_password  = Url_part_allowed;
-    url_enable_host      = Url_part_required;
-    url_enable_port      = Url_part_allowed;
-    url_enable_path      = Url_part_allowed;
-    url_enable_param     = Url_part_allowed;
-    url_enable_query     = Url_part_not_recognized;
-    url_enable_fragment  = Url_part_not_recognized;
-    url_enable_other     = Url_part_not_recognized;
-    url_accepts_8bits    = false;
-    url_is_valid         = (fun _ -> true);
-  }
-;;
-
-
-let http_url_syntax =
-  { url_enable_scheme    = Url_part_required;
-    url_enable_user      = Url_part_allowed;
-    url_enable_password  = Url_part_allowed;
-    url_enable_host      = Url_part_required;
-    url_enable_port      = Url_part_allowed;
-    url_enable_path      = Url_part_allowed;
-    url_enable_param     = Url_part_not_recognized;
-    url_enable_query     = Url_part_allowed;
-    url_enable_fragment  = Url_part_not_recognized;
-    url_enable_other     = Url_part_not_recognized;
-    url_accepts_8bits    = false;
-    url_is_valid         = (fun _ -> true);
-  }
-;;
-
-
-let mailto_url_syntax =
-  { url_enable_scheme    = Url_part_required;
-    url_enable_user      = Url_part_not_recognized;
-    url_enable_password  = Url_part_not_recognized;
-    url_enable_host      = Url_part_not_recognized;
-    url_enable_port      = Url_part_not_recognized;
-    url_enable_path      = Url_part_not_recognized;
-    url_enable_param     = Url_part_not_recognized;
-    url_enable_query     = Url_part_not_recognized;
-    url_enable_fragment  = Url_part_not_recognized;
-    url_enable_other     = Url_part_required;
-    url_accepts_8bits    = false;
-    url_is_valid         = (fun _ -> true);
-  }
-;;
-
-
-let null_url_syntax =
-  { url_enable_scheme    = Url_part_not_recognized;
-    url_enable_user      = Url_part_not_recognized;
-    url_enable_password  = Url_part_not_recognized;
-    url_enable_host      = Url_part_not_recognized;
-    url_enable_port      = Url_part_not_recognized;
-    url_enable_path      = Url_part_not_recognized;
-    url_enable_param     = Url_part_not_recognized;
-    url_enable_query     = Url_part_not_recognized;
-    url_enable_fragment  = Url_part_not_recognized;
-    url_enable_other     = Url_part_not_recognized;
-    url_accepts_8bits    = false;
-    url_is_valid         = (fun _ -> true);
-  }
-;;
-
-
-let ip_url_syntax =
-  { url_enable_scheme    = Url_part_allowed;
-    url_enable_user      = Url_part_allowed;
-    url_enable_password  = Url_part_allowed;
-    url_enable_host      = Url_part_allowed;
-    url_enable_port      = Url_part_allowed;
-    url_enable_path      = Url_part_allowed;
-    url_enable_param     = Url_part_allowed;
-    url_enable_query     = Url_part_allowed;
-    url_enable_fragment  = Url_part_allowed;
-    url_enable_other     = Url_part_not_recognized;
-    url_accepts_8bits    = false;
-    url_is_valid         = (fun _ -> true);
-  }
-;;
-
-
-let common_url_syntax =
-  let h = Hashtbl.create 10 in
-  Hashtbl.add h "file"   file_url_syntax;
-  Hashtbl.add h "ftp"    ftp_url_syntax;
-  Hashtbl.add h "http"   http_url_syntax;
-  Hashtbl.add h "mailto" mailto_url_syntax;
-  h
-;;
-
-
-let url_conforms_to_syntax url =
-  let recognized x = x <> Url_part_not_recognized in
-  let required x = x = Url_part_required in
-  let present x    = x <> None in
-  let syn = url.url_syntax in
-  (present url.url_scheme   => recognized syn.url_enable_scheme)   &
-  (present url.url_user     => recognized syn.url_enable_user)     &
-  (present url.url_password => recognized syn.url_enable_password) &
-  (present url.url_host     => recognized syn.url_enable_host)     &
-  (present url.url_port     => recognized syn.url_enable_port)     &
-  ((url.url_path <> [])     => recognized syn.url_enable_path)     &
-  ((url.url_param <> [])    => recognized syn.url_enable_param)    &
-  (present url.url_query    => recognized syn.url_enable_query)    &
-  (present url.url_fragment => recognized syn.url_enable_fragment) &
-  (present url.url_other    => recognized syn.url_enable_other)    &
-  (required syn.url_enable_scheme   => present url.url_scheme)     &
-  (required syn.url_enable_user     => present url.url_user)       &
-  (required syn.url_enable_password => present url.url_password)   &
-  (required syn.url_enable_host     => present url.url_host)       &
-  (required syn.url_enable_port     => present url.url_port)       &
-  (required syn.url_enable_path     => (url.url_path <> []))       &
-  (required syn.url_enable_param    => (url.url_param <> []))      &
-  (required syn.url_enable_query    => present url.url_query)      &
-  (required syn.url_enable_fragment => present url.url_fragment)   &
-  (required syn.url_enable_other    => present url.url_other)      &
-  (url.url_validity or syn.url_is_valid url)
-;;
-
-
-let url_syntax_of_url url = url.url_syntax
-;;
-
-
-let modify_url
-      ?syntax
-      ?(encoded = false)
-      ?scheme
-      ?user
-      ?password
-      ?host
-      ?port
-      ?path
-      ?param
-      ?query
-      ?fragment
-      ?other
-      url 
-  =
-
-  let encode = Netencoding.Url.encode in
-  let enc x =
-    if encoded then
-      x
-    else
-      match x with
-         None -> None
-       | Some x' -> Some (encode x')
-  in
-  let enc_list l = 
-    if encoded then
-      l
-    else
-      List.map encode l 
-  in
-
-  let new_syntax =
-    match syntax with
-       None -> url.url_syntax
-      | Some syn -> syn
-  in
-
-  let check_string s_opt cats =
-    match s_opt with
-       None   -> ()
-      | Some s ->
-         let l = String.length s in
-         let k = scan_url_part s 0 l cats new_syntax.url_accepts_8bits in
-                 (* or raise Malformed_URL *)
-         if k <> l then raise Malformed_URL
-  in
-
-  let check_string_list p cats sep =
-    List.iter
-      (fun p_component ->
-        let l = String.length p_component in
-        let k = 
-          scan_url_part p_component 0 l cats new_syntax.url_accepts_8bits in
-          (* or raise Malformed_URL *)
-        if k <> l then raise Malformed_URL;
-        if String.contains p_component sep then raise Malformed_URL;
-      )
-      p
-  in
-
-  (* Create the modified record: *)
-  let url' =
-    { 
-      url_syntax   = new_syntax;
-      url_validity = false;
-      url_scheme   = if scheme   = None then url.url_scheme   else scheme;
-      url_user     = if user     = None then url.url_user     else enc user;
-      url_password = if password = None then url.url_password else enc password;
-      url_host     = if host     = None then url.url_host     else host;
-      url_port     = if port     = None then url.url_port     else port;
-      url_path     = (match path with
-                         None -> url.url_path
-                       | Some p -> enc_list p);
-      url_param    = (match param with
-                         None -> url.url_param
-                       | Some p -> enc_list p);
-      url_query    = if query    = None then url.url_query    else enc query;
-      url_fragment = if fragment = None then url.url_fragment else enc fragment;
-      url_other    = if other    = None then url.url_other    else enc other;
-    }
-  in
-  (* Check whether the URL conforms to the syntax:
-   *)
-  if not (url_conforms_to_syntax url') then raise Malformed_URL;
-  if url'.url_password <> None && url'.url_user = None then raise Malformed_URL;
-  if url'.url_user <> None && url'.url_host = None then raise Malformed_URL;
-  if url'.url_port <> None && url'.url_host = None then raise Malformed_URL;
-  (* Check every part: *)
-  check_string url'.url_scheme   scheme_cats;
-  check_string url'.url_user     login_cats;
-  check_string url'.url_password login_cats;
-  check_string url'.url_host     host_cats;
-  (match url'.url_port with 
-       None -> ()
-     | Some p -> if p < 0 || p > 65535 then raise Malformed_URL
-  );
-  let path_cats  = path_cats_from_syntax  new_syntax [] in
-  let other_cats = other_cats_from_syntax new_syntax in
-  check_string url'.url_query    path_cats;
-  check_string url'.url_fragment path_cats;
-  check_string url'.url_other    other_cats;
-  (* Check the lists: *)
-  check_string_list url'.url_param path_cats ';';
-  check_string_list url'.url_path  path_cats '/';
-  (* Further path checks: *)
-  begin match url'.url_path with
-      [] ->
-       (* The path is empty: There must not be a 'param' or 'query' *)
-       if url'.url_host <> None then begin
-         if url'.url_param <> [] then raise Malformed_URL;
-         if url'.url_query <> None then raise Malformed_URL;
-       end
-    | ["";""] ->
-       (* This is illegal. *)
-       raise Malformed_URL;
-    | "" :: p' ->
-       (* The path is absolute: always ok *)
-       ()
-    | _ ->
-       (* The path is relative: there must not be a host *)
-       if url'.url_host <> None then raise Malformed_URL;
-  end;
-  begin match url'.url_path with
-      _ :: rest ->              (* "//" ambiguity *)
-       begin match List.rev rest with
-           _ :: rest' -> 
-             if List.exists (fun p -> p = "") rest' then
-               raise Malformed_URL;
-         | [] ->
-             ()
-       end
-    | [] ->
-       ()
-  end;
-  (* Cache that the URL is valid: *)
-  url'.url_validity <- true;
-
-  url'
-;;
-
-
-let null_url =
-  { 
-    url_syntax   = null_url_syntax;
-    url_validity = true;
-    url_scheme   = None;
-    url_user     = None;
-    url_password = None;
-    url_host     = None;
-    url_port     = None;
-    url_path     = [];
-    url_param    = [];
-    url_query    = None;
-    url_fragment = None;
-    url_other    = None;
-  }
-;;
-
-
-let make_url
-      ?(encoded = false)
-      ?scheme
-      ?user
-      ?password
-      ?host
-      ?port
-      ?path
-      ?param
-      ?query
-      ?fragment
-      ?other
-      url_syntax
-  =
-
-  if not (url_syntax_is_valid url_syntax) then
-    invalid_arg "Neturl.make_url";
-
-  modify_url
-    ~encoded:encoded
-    ~syntax:url_syntax
-    ?scheme:scheme
-    ?user:user
-    ?password:password
-    ?host:host
-    ?port:port
-    ?path:path
-    ?param:param
-    ?query:query
-    ?fragment:fragment
-    ?other:other
-    null_url
-;;
-
-
-let remove_from_url
-      ?(scheme = false)
-      ?(user = false)
-      ?(password = false)
-      ?(host = false)
-      ?(port = false)
-      ?(path = false)
-      ?(param = false)
-      ?(query = false)
-      ?(fragment = false)
-      ?(other = false)
-      url
-  =
-
-  make_url
-    ~encoded:  true
-    ?scheme:   (if scheme   then None else url.url_scheme)
-    ?user:     (if user     then None else url.url_user)
-    ?password: (if password then None else url.url_password)
-    ?host:     (if host     then None else url.url_host)
-    ?port:     (if port     then None else url.url_port)
-    ?path:     (if path     then None else Some url.url_path)
-    ?param:    (if param    then None else Some url.url_param)
-    ?query:    (if query    then None else url.url_query)
-    ?fragment: (if fragment then None else url.url_fragment)
-    ?other:    (if other    then None else url.url_other)
-    url.url_syntax
-;;
-
-
-let default_url
-      ?(encoded = false)
-      ?scheme
-      ?user
-      ?password
-      ?host
-      ?port
-      ?(path = [])
-      ?(param = [])
-      ?query
-      ?fragment
-      ?other
-      url
-  =
-
-  let encode = Netencoding.Url.encode in
-
-  let enc x =
-    if encoded then
-      x
-    else
-      match x with
-         None -> None
-       | Some x' -> Some (encode x')
-  in
-
-  let enc_list l = 
-    if encoded then
-      l
-    else
-      List.map encode l 
-  in
-
-  let pass_if_missing current arg =
-    match current with
-       None -> arg
-      | _    -> current
-  in
-
-  make_url
-    ~encoded:  true
-    ?scheme:   (pass_if_missing url.url_scheme   scheme)
-    ?user:     (pass_if_missing url.url_user     (enc user))
-    ?password: (pass_if_missing url.url_password (enc password))
-    ?host:     (pass_if_missing url.url_host     host)
-    ?port:     (pass_if_missing url.url_port     port)
-    ~path:     (if url.url_path  = [] then enc_list path  else url.url_path)
-    ~param:    (if url.url_param = [] then enc_list param else url.url_param)
-    ?query:    (pass_if_missing url.url_query    (enc query))
-    ?fragment: (pass_if_missing url.url_fragment (enc fragment))
-    ?other:    (pass_if_missing url.url_other    (enc other))
-    url.url_syntax
-;;
-
-
-let undefault_url
-      ?scheme
-      ?user
-      ?password
-      ?host
-      ?port
-      ?path
-      ?param
-      ?query
-      ?fragment
-      ?other
-      url
-  =
-
-  let remove_if_matching current arg =
-    match current with
-       None -> None
-      | Some x -> 
-         (match arg with
-              None -> current
-            | Some x' ->
-                if x=x' then
-                  None
-                else
-                  current)
-  in
-
-  make_url
-    ~encoded:  true
-    ?scheme:   (remove_if_matching url.url_scheme   scheme)
-    ?user:     (remove_if_matching url.url_user     user)
-    ?password: (remove_if_matching url.url_password password)
-    ?host:     (remove_if_matching url.url_host     host)
-    ?port:     (remove_if_matching url.url_port     port)
-    ~path:     (match path with
-                    None -> url.url_path
-                  | Some x ->
-                      if x = url.url_path then
-                        []
-                      else
-                        url.url_path)
-    ~param:    (match param with
-                    None -> url.url_param
-                  | Some x ->
-                      if x = url.url_param then
-                        []
-                      else
-                        url.url_param)
-    ?query:    (remove_if_matching url.url_query    query)
-    ?fragment: (remove_if_matching url.url_fragment fragment)
-    ?other:    (remove_if_matching url.url_other    other)
-    url.url_syntax
-;;
-
-
-let url_provides 
-      ?(scheme = false)
-      ?(user = false)
-      ?(password = false)
-      ?(host = false)
-      ?(port = false)
-      ?(path = false)
-      ?(param = false)
-      ?(query = false)
-      ?(fragment = false)
-      ?(other = false)
-      url
-  =
-  
-  (scheme   => (url.url_scheme   <> None)) &
-  (user     => (url.url_user     <> None)) &
-  (password => (url.url_password <> None)) &
-  (host     => (url.url_host     <> None)) &
-  (port     => (url.url_port     <> None)) &
-  (path     => (url.url_path     <> []))   &
-  (param    => (url.url_param    <> [])) &
-  (query    => (url.url_query    <> None)) &
-  (fragment => (url.url_fragment <> None)) &
-  (other    => (url.url_other    <> None))
-;;
-  
-
-let return_if value =
-  match value with
-      None -> raise Not_found
-    | Some x -> x
-;;
-
-
-let decode_if want_encoded value =
-  let value' = return_if value in
-  if want_encoded then
-    value'
-  else
-    Netencoding.Url.decode value'     (* WARNING: not thread-safe! *)
-;;
-
-
-let decode_path_if want_encoded value =
-  if want_encoded then
-    value
-  else
-    List.map Netencoding.Url.decode value     (* WARNING: not thread-safe! *)
-;;
-
-
-let url_scheme                    url = return_if url.url_scheme;;
-let url_user     ?(encoded=false) url = decode_if encoded url.url_user;;
-let url_password ?(encoded=false) url = decode_if encoded url.url_password;;
-let url_host                      url = return_if url.url_host;;
-let url_port                      url = return_if url.url_port;;
-let url_path     ?(encoded=false) url = decode_path_if encoded url.url_path;;
-let url_param    ?(encoded=false) url = decode_path_if encoded url.url_param;;
-let url_query    ?(encoded=false) url = decode_if encoded url.url_query;;
-let url_fragment ?(encoded=false) url = decode_if encoded url.url_fragment;;
-let url_other    ?(encoded=false) url = decode_if encoded url.url_other;;
-
-
-let string_of_url url =
-  if not (url.url_validity) then
-    failwith "Neturl.string_of_url: URL not flagged as valid";
-  (match url.url_scheme with
-       None -> ""
-     | Some s -> s ^ ":") ^ 
-  (match url.url_host with
-       None -> ""
-     | Some host ->
-        "//" ^ 
-        (match url.url_user with
-             None -> "" 
-           | Some user -> 
-               user ^ 
-               (match url.url_password with
-                    None -> ""
-                  | Some password ->
-                      ":" ^ password 
-               ) ^ 
-               "@") ^ 
-        host ^ 
-        (match url.url_port with
-             None -> ""
-           | Some port ->
-               ":" ^ string_of_int port)) ^ 
-  (match url.url_path with
-     | [""] ->
-        "/"
-     | x :: p  when  url.url_scheme = None &&
-                     url.url_host = None &&
-                    String.contains x ':' 
-       ->
-         (* Really a special case: The colon contained in 'x' may cause
-          * that a prefix of 'x' is interpreted as URL scheme. In this
-          * case, "./" is prepended (as recommended in RFC 1808, 5.3).
-          *)
-         "./"
-     | _ ->
-        ""
-  ) ^
-  String.concat "/" url.url_path ^ 
-  (match url.url_other with
-       None -> ""
-     | Some other ->
-        other) ^ 
-  String.concat ""  (List.map (fun s -> ";" ^ s) url.url_param) ^ 
-  (match url.url_query with
-       None -> ""
-     | Some query ->
-        "?" ^ query) ^ 
-  (match url.url_fragment with
-       None -> ""
-     | Some fragment ->
-        "#" ^ fragment)
-;;
-
-
-let url_of_string url_syntax s =
-  let l = String.length s in
-  let recognized x = x <> Url_part_not_recognized in
-
-  let rec collect_words terminators eof_char cats k =
-    (* Collect words as recognized by 'cats', starting at position 'k' in
-     * 's'. Collection stops if one the characters listed in 'terminators'
-     * is found. If the end of the string is reached, it is treated as
-     * 'eof_char'.
-     *)
-    let k' = scan_url_part s k l cats url_syntax.url_accepts_8bits in  
-             (* or raise Malformed_URL *)
-    let word, sep =
-      String.sub s k (k'-k), (if k'<l then s.[k'] else eof_char) in
-    if List.mem sep terminators then
-      [word, sep], k'
-    else
-      let word_sep_list', k'' = 
-       collect_words terminators eof_char cats (k'+1) in
-      ((word, sep) :: word_sep_list'), k''
-  in
-
-  (* Try to extract the scheme name: *)
-  let scheme, k1 =
-    if recognized url_syntax.url_enable_scheme then
-      try
-       let k = scan_url_part s 0 l scheme_cats false in
-        (* or raise Malformed_URL *)
-       if k = l then raise Malformed_URL;
-       assert (s.[k] = ':');
-       Some (String.sub s 0 k), (k+1)
-      with
-         Malformed_URL -> None, 0
-    else
-      None, 0
-  in
-
-  (* If there is a "//", a host will follow: *)
-  let host, port, user, password, k2 =
-    if recognized url_syntax.url_enable_host  &&
-       k1 + 2 <= l  &&  s.[k1]='/'  && s.[k1+1]='/' then begin
-
-      let word_sep_list, k' = collect_words [ '/'; '#' ] '/' login_cats (k1+2) 
-      in
-          (* or raise Malformed_URL *)
-
-      let int x =
-       try int_of_string x with _ -> raise Malformed_URL in
-
-      match word_sep_list with
-         [ host, ('/'|'#') ] ->
-           Some host, None, None, None, k'
-       | [ host, ':'; port, ('/'|'#') ] ->
-           Some host, Some (int port), None, None, k'
-       | [ user, '@'; host, ('/'|'#') ] ->
-           Some host, None, Some user, None, k'
-       | [ user, '@'; host, ':'; port, ('/'|'#') ] ->
-           Some host, Some (int port), Some user, None, k'
-       | [ user, ':'; password, '@'; host, ('/'|'#') ] ->
-           Some host, None, Some user, Some password, k'
-       | [ user, ':'; password, '@'; host, ':'; port, ('/'|'#') ] ->
-           Some host, Some (int port), Some user, Some password, k'
-       | _ ->
-           raise Malformed_URL
-    end
-    else
-      None, None, None, None, k1
-  in
-
-  let path, k3 =
-    if recognized url_syntax.url_enable_path  &&
-       k2 < l  (*  &&  s.[k2]='/'  *)
-    then begin
-      let cats = path_cats_from_syntax url_syntax [ '/' ] in
-      let seps = separators_from_syntax url_syntax in
-
-      (* Note: '>' is not allowed within URLs; because of this we can use
-       * it as end-of-string character.
-       *)
-
-      let word_sep_list, k' = collect_words ('>'::seps) '>' cats k2 in
-          (* or raise Malformed_URL *)
-      match word_sep_list with
-         [ "", '/'; "", _ ] ->
-           [ "" ], k'
-       | [ "", _ ] ->
-           [], k'
-       | _ ->
-           List.map fst word_sep_list, k'
-    end
-    else begin
-      (* If there is a single '/': skip it *)
-      if not (recognized url_syntax.url_enable_other) &&
-        k2 < l  &&  s.[k2]='/'
-      then
-       [], (k2+1)
-      else
-       [], k2
-    end
-  in
-
-  let other, k4 =
-    if recognized url_syntax.url_enable_other  &&
-       k3 < l 
-    then begin
-      
-      let cats = other_cats_from_syntax url_syntax in
-
-      (* Note: '>' is not allowed within URLs; because of this we can use
-       * it as end-of-string character.
-       *)
-
-      let word_sep_list, k' = collect_words ['>';'#'] '>' cats k3 in
-          (* or raise Malformed_URL *)
-
-      match word_sep_list with
-         [ other, _ ] -> Some other, k'
-       | _ -> assert false
-    end
-    else
-      None, k3
-  in
-
-  let param, k5 =
-    if recognized url_syntax.url_enable_param  &&
-       k4 < l  &&  s.[k4]=';' 
-    then begin
-      let cats  = path_cats_from_syntax url_syntax [] in
-      let seps  = separators_from_syntax url_syntax in
-      let seps' = List.filter (fun c -> c <> ';') seps in
-
-      (* Note: '>' is not allowed within URLs; because of this we can use
-       * it as end-of-string character.
-       *)
-
-      let word_sep_list, k' = collect_words ('>'::seps') '>' cats (k4+1) in
-          (* or raise Malformed_URL *)
-      
-      List.map fst word_sep_list, k'
-    end
-    else
-      [], k4
-  in
-
-  let query, k6 =
-    if recognized url_syntax.url_enable_query  &&
-       k5 < l  &&  s.[k5]='?'
-    then begin
-      let cats  = path_cats_from_syntax url_syntax [] in
-      let seps  = separators_from_syntax url_syntax in
-      
-      (* Note: '>' is not allowed within URLs; because of this we can use
-       * it as end-of-string character.
-       *)
-
-      let word_sep_list, k' = collect_words ('>'::seps) '>' cats (k5+1) in
-          (* or raise Malformed_URL *)
-
-      match word_sep_list with
-         [ query, _ ] -> Some query, k'
-       | _ -> assert false
-    end
-    else
-      None, k5
-  in
-
-  let fragment, k7 =
-    if recognized url_syntax.url_enable_fragment  &&
-       k6 < l  &&  s.[k6]='#'
-    then begin
-      let cats  = path_cats_from_syntax url_syntax [] in
-      let seps  = separators_from_syntax url_syntax in
-      
-      (* Note: '>' is not allowed within URLs; because of this we can use
-       * it as end-of-string character.
-       *)
-
-      let word_sep_list, k' = collect_words ('>'::seps) '>' cats (k6+1) in
-          (* or raise Malformed_URL *)
-
-      match word_sep_list with
-         [ fragment, _ ] -> Some fragment, k'
-       | _ -> assert false
-    end
-    else
-      None, k6
-  in
-
-  if k7 <> l then raise Malformed_URL;
-
-  make_url
-    ~encoded:true
-    ?scheme:scheme
-    ?user:user
-    ?password:password
-    ?host:host
-    ?port:port
-    ~path:path
-    ~param:param
-    ?query:query
-    ?fragment:fragment
-    ?other:other
-    url_syntax
-;;
-
-
-let split_path s =
-  let l = String.length s in
-  let rec collect_words k =
-    let k' = 
-      try
-       String.index_from s k '/'
-      with
-         Not_found -> l
-    in
-    let word = String.sub s k (k'-k) in
-    if k' >= l then
-      [word]
-    else
-      word :: collect_words (k'+1)
-  in
-  match collect_words 0 with
-      [ "" ] -> []
-    | [ "";"" ] -> [ "" ]
-    | other -> other
-;;
-
-
-let join_path l = 
-  match l with
-      [ "" ] -> "/"
-    | _      -> String.concat "/" l;;
-
-
-let norm_path l = 
-
-  let rec remove_slash_slash l first =
-    match l with
-      | [ "" ] ->
-         [ "" ]
-      | [ ""; "" ] when first ->
-         [ "" ]
-      | "" :: l' when not first ->
-         remove_slash_slash l' false
-      | x :: l' ->
-         x :: remove_slash_slash l' false
-      | [] ->
-         []
-  in
-
-  let rec remove_dot l first =
-    match l with
-      | ([ "." ] | ["."; ""]) ->
-         if first then [] else [ "" ]
-      |        "." :: x :: l' ->
-         remove_dot (x :: l') false
-      | x :: l' ->
-         x :: remove_dot l' false
-      | [] ->
-         []
-  in
-
-  let rec remove_dot_dot_once l first =
-    match l with
-       x :: ".." :: [] when x <> "" && x <> ".." && not first ->
-         [ "" ]
-      |        x :: ".." :: l' when x <> "" && x <> ".." ->
-         l'
-      | x :: l' ->
-         x :: remove_dot_dot_once l' false
-      | [] ->
-         raise Not_found
-  in
-
-  let rec remove_dot_dot l =
-    try
-      let l' = remove_dot_dot_once l true in
-      remove_dot_dot l'
-    with
-       Not_found -> l
-  in
-
-  let l' = remove_dot_dot (remove_dot (remove_slash_slash l true) true) in
-  match l' with
-      [".."] -> [".."; ""]
-    | ["";""] -> [ "" ]
-    | _      -> l'
-;;
-
-
-let apply_relative_url baseurl relurl =
-  if not (baseurl.url_validity) or not (relurl.url_validity) then
-    failwith "Neturl.apply_relative_url: URL not flagged as valid";
-
-  if relurl.url_scheme <> None then
-    modify_url 
-      ~syntax:baseurl.url_syntax           (* inherit syntax *)
-      relurl
-  else
-    if relurl.url_host <> None then
-      modify_url 
-       ~syntax:baseurl.url_syntax         (* inherit syntax and scheme *)
-       ?scheme:baseurl.url_scheme
-       relurl
-    else
-      match relurl.url_path with
-         "" :: other ->
-           (* An absolute path *)
-           modify_url 
-             ~syntax:baseurl.url_syntax   (* inherit syntax, scheme, and *)
-             ~encoded:true
-             ?scheme:baseurl.url_scheme   (* login info *)
-             ?host:baseurl.url_host
-             ?port:baseurl.url_port
-             ?user:baseurl.url_user
-             ?password:baseurl.url_password
-             relurl
-       | [] ->
-           (* Empty: Inherit also path, params, query, and fragment *)
-           let new_params, new_query, new_fragment =
-             match relurl.url_param, relurl.url_query, relurl.url_fragment
-             with
-                 [], None, None ->
-                   (* Inherit all three *)
-                   baseurl.url_param, baseurl.url_query, baseurl.url_fragment
-               | [], None, f ->
-                   (* Inherit params and query *)
-                   baseurl.url_param, baseurl.url_query, f
-               | [], q, f ->
-                   (* Inherit params *)
-                   baseurl.url_param, q, f
-               | p, q, f ->
-                   (* Inherit none of them *)
-                   p, q, f
-           in
-           modify_url 
-             ~syntax:baseurl.url_syntax
-             ~encoded:true
-             ?scheme:baseurl.url_scheme
-             ?host:baseurl.url_host
-             ?port:baseurl.url_port
-             ?user:baseurl.url_user
-             ?password:baseurl.url_password
-             ~path:baseurl.url_path
-             ~param:new_params
-             ?query:new_query
-             ?fragment:new_fragment
-             relurl
-       | relpath ->
-           (* A relative path *)
-           let rec change_path basepath =
-             match basepath with
-               | [] ->
-                   relpath
-               | [ x ] ->
-                   relpath
-               | x :: basepath' ->
-                   x :: change_path basepath'
-           in
-           let new_path = norm_path (change_path baseurl.url_path) in
-           modify_url 
-             ~syntax:baseurl.url_syntax   (* inherit syntax, scheme, and *)
-             ~encoded:true
-             ?scheme:baseurl.url_scheme   (* login info *)
-             ?host:baseurl.url_host
-             ?port:baseurl.url_port
-             ?user:baseurl.url_user
-             ?password:baseurl.url_password
-             ~path:new_path               (* and change path *)
-             relurl
-
-;;
-
-
-let print_url url =
-  Format.print_string ("<URL:" ^ string_of_url url ^ ">")
-;;
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:28  lpadovan
- * Initial revision
- *
- * Revision 1.4  2000/07/04 21:50:51  gerd
- *     Fixed typo.
- *
- * Revision 1.3  2000/06/26 22:57:49  gerd
- *     Change: The record 'url_syntax' has an additional component
- * 'url_accepts_8bits'. Setting this option to 'true' causes that
- * the bytes >= 0x80 are no longer rejected.
- *
- * Revision 1.2  2000/06/25 19:39:48  gerd
- *     Lots of Bugfixes.
- *
- * Revision 1.1  2000/06/24 20:19:59  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/neturl.mli b/helm/DEVEL/pxp/netstring/neturl.mli
deleted file mode 100644 (file)
index 988aef6..0000000
--- a/helm/DEVEL/pxp/netstring/neturl.mli
+++ /dev/null
@@ -1,460 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(* This module applies already O'Caml-3 features. *)
-
-(* Uniform Resource Locators (URLs):
- *
- * This module provides functions to parse URLs, to print URLs, to
- * store URLs, to modify URLs, and to apply relative URLs.
- *
- * URLs are strings formed according to pattern (1) or (2):
- *
- * (1) scheme://user:password@host:port/path;params?query#fragment
- * (2) scheme:other;params?query#fragment
- *
- * The word at the beginning of the URL identifies the URL scheme
- * (such as "http" or "file"). Depending on the scheme, not all of the
- * parts are allowed, or parts may be omitted. This module defines the
- * type 'url_syntax' whose values describe which parts are allowed/required/
- * not allowed for a concrete URL scheme (see below).
- *
- * Not all characters are allowed in a URL. Some characters are allowed,
- * but have the special task to separate the various parts of the URL
- * (reserved characters).
- * However, it is possible to include even invalid or reserved characters
- * as normal content by applying the '%'-encoding on these characters:
- * A '%' indicates that an encoded character follows, and the character
- * is denoted by a two-digit hexadecimal number (e.g. %2f for '/').
- * In the following descriptions, the term "encoded string" means a string
- * containing such %-encoded characters, and the "decoded string" means a
- * string not containing such characters.
- * See the module Netencoding.Url for functions encoding or decoding
- * strings.
- *
- * The type 'url' describes values storing the components of a URL,
- * and the 'url_syntax' for the URL. In general, the components are
- * stored as encoded strings; however, not for all components the
- * '%'-encoding is applicable.
- * For convenience, the functions creating, modifying, and accessing
- * URLs can handle both encoded and decoded strings. In order to
- * avoid errors, the functions pass strings even in their decoded form.
- *
- * Note that there is currently no function to compare URLs. The
- * canoncical comparison ( = ) is not applicable because the same URL
- * may be written differently.
- *
- * Note that nothing is said about the character set/encoding of URLs.
- * Some protocols and standards prefer UTF-8 as fundamental encoding
- * and apply the '%'-encoding on top of it; i.e. the byte sequence
- * representing a character in UTF-8 is '%'-encoded. There is no special
- * support for this technique.
- *
- * For more information about URLs, see RFCs 1738 and 1808.
- *)
-
-exception Malformed_URL
-(* Is raised by a number of functions when encountering a badly formed
- * URL.
- *)
-
-val extract_url_scheme : string -> string
-  (* Returns the URL scheme from the string representation of an URL. 
-   * E.g. extract_url_scheme "http://host/path" = "http". 
-   * The scheme name is always converted to lowercase characters.
-   * Raises Malformed_URL if the scheme name is not found.
-   *)
-
-type url_syntax_option =
-    Url_part_not_recognized
-  | Url_part_allowed
-  | Url_part_required
-
-
-type url_syntax =
-    { url_enable_scheme    : url_syntax_option;
-      url_enable_user      : url_syntax_option;
-      url_enable_password  : url_syntax_option;
-      url_enable_host      : url_syntax_option;
-      url_enable_port      : url_syntax_option;
-      url_enable_path      : url_syntax_option;
-      url_enable_param     : url_syntax_option;
-      url_enable_query     : url_syntax_option;
-      url_enable_fragment  : url_syntax_option;
-      url_enable_other     : url_syntax_option;
-      url_accepts_8bits    : bool;
-      url_is_valid         : url -> bool;
-    }
-
-and url
-;;
-
-(* Values of type 'url_syntax' describe which components of an URL are
- * recognized, which are allowed (and optional), and which are required.
- * Not all combinations are valid; the predicate expressed by the
- * function 'url_syntax_is_valid' must hold.
- * The function 'url_is_valid' is applied when a fresh URL is created
- * and must return 'true'. This function allows it to add an arbitrary
- * validity criterion to 'url_syntax'. (Note that the URL passed to 
- * this function is not fully working; you can safely assume that the
- * accessor functions url_scheme etc. can be applied to it.)
- *
- * Switch 'url_accepts_8bit': If 'true', the bytes with code 128 to
- * 255 are treated like alphanumeric characters; if 'false' these bytes
- * are illegal (but it is still possible to include such byte in their
- * encoded form: %80 to %FF).
- *
- * Values of type 'url' describe concrete URLs. Every URL must have
- * a fundamental 'url_syntax', and it is only possible to create URLs
- * conforming to the syntax. See 'make_url' for further information.
- *)
-
-
-val url_syntax_is_valid : url_syntax -> bool
-  (* Checks whether the passed url_syntax is valid. This means:
-   *
-   * - If passwords are recognized, users (and hosts) must be recognized, too
-   * - If ports are recognized, hosts must be recognized, too
-   * - If users are recognized, hosts must be recognized, too
-   * - Either the syntax recognizes one of the phrases
-   *   { user, password, host, port, path }, or the syntax recognized
-   *   the phrase 'other'.
-   *)
-
-
-val partial_url_syntax : url_syntax -> url_syntax
-  (* Transforms the syntax into another syntax where all required parts are
-   * changed into optional parts.
-   *)
-
-
-(* Note that all following url_syntaxes do not allow 8bit bytes. *)
-
-val null_url_syntax   : url_syntax
-
-val ip_url_syntax : url_syntax
-  (* Maximum syntax for IP based protocols *)
-
-val common_url_syntax : (string, url_syntax) Hashtbl.t
-  (* Syntax descriptions for common URL schemes:
-   * 
-   * null_url_syntax: nothing is recognized
-   *
-   * common_url_syntax: Hashtable mapping from URL scheme names to
-   * definitions of syntaxes:
-   *
-   * "file":   scheme, host?, path
-   * "ftp":    scheme, user?, password?, host, port?, path?, param?
-   * "http":   scheme, user?, password?, host, port?, path?, query?
-   * "mailto": scheme, other
-   *
-   * Notes:
-   * (1) These syntax descriptions can be weakened for partial/relative URLs 
-   *     by changing the required parts to optional parts: See the function
-   *     'partial_url_syntax'.
-   * (2) None of the descriptions allows fragments. These can be enabled by
-   *     setting 'url_enable_fragment' to Url_part_allowed. E.g.
-   *     { file_url_syntax with url_enable_fragment = Url_part_allowed }
-   *)
-
-val null_url : url
-  (* A URL without any component and 'null_url_syntax'
-   *)
-
-val make_url :
-      ?encoded:bool ->
-      ?scheme:string ->
-      ?user:string ->
-      ?password:string ->
-      ?host:string ->
-      ?port:int ->
-      ?path:string list ->
-      ?param:string list ->
-      ?query:string ->
-      ?fragment:string ->
-      ?other:string ->
-      url_syntax ->
-      url
-  (* Creates a URL from components:
-   * 
-   * - The components "scheme" and "host" are simple strings to which the
-   *   '%'-encoding is not applicable.
-   * - The component "port" is a simple number. Of course, the '%'-encoding
-   *   is not applicable, too.
-   * - The components "user", "password", "query", "fragment", and "other"
-   *   are strings which may contains '%'-encoded characters. By default,
-   *   you can pass any string for these components, and problematic characters 
-   *   are automatically encoded. If you set ~encoded:true, the passed
-   *   strings must already be encoded, but the function checks whether
-   *   the encoding is correct.
-   *   Note that for "query" even the characters '?' and '=' are encoded
-   *   by default, so you need to set ~encoded:true to pass a reasonable
-   *   query string.
-   * - The components "path" and "param" are lists of strings which may
-   *   contain '%'-encoded characters. Again, the default is to pass
-   *   decoded strings to the function, and the function encodes them
-   *   automatically, and by setting ~encoded:true the caller is responsible
-   *   for encoding the strings.
-   *   path = [] and params = [] mean that no path and no parameters are
-   *   specified, respectively.
-   *   See below for the respresentation of these components.
-   *
-   * Except of "path", the strings representing the components do not
-   * contain the characters separating the components from each other. 
-   * The "path" component includes the '/' at the beginning of the path
-   * (if present).
-   *
-   * The created URL must conform to the 'url_syntax', i.e.
-   * - The URL must only contain components which are recognized by the
-   *   syntax
-   * - The URL must contain components which are required by the syntax
-   * - The URL must fulfill the predicate expressed by the 'url_is_valid'
-   *   function of the syntax.
-   *
-   * The path of a URL is represented as a list of '/'-separated path
-   * components. i.e.
-   *   [ s1; s2; ...; sN ]  represents the path  
-   *                        s1 ^ "/" ^ s2 ^ "/" ^ ... ^ "/" ^ sN
-   * As special cases:
-   *   []                   is the non-existing path
-   *   [ "" ]               is "/"
-   *   [ "";"" ]            is illegal
-   * 
-   * Except of s1 and sN, the path components must not be empty strings.
-   *
-   * To avoid ambiguities, it is illegal to create URLs with both relative
-   * paths (s1 <> "") and host components.
-   *
-   * Parameters of URLs are components beginning with ';'. The list
-   * of parameters is represented as list of strings where the strings
-   * contain the value following ';'.
-   *)
-
-val modify_url :
-      ?syntax:url_syntax ->
-      ?encoded:bool ->
-      ?scheme:string ->
-      ?user:string ->
-      ?password:string ->
-      ?host:string ->
-      ?port:int ->
-      ?path:string list ->
-      ?param:string list ->
-      ?query:string ->
-      ?fragment:string ->
-      ?other:string ->
-      url ->
-      url
-  (* Modifies the passed components and returns the modified URL. 
-   * The modfied URL shares unmodified components with the original
-   * URL.
-   *)
-
-val remove_from_url :
-      ?scheme:bool ->
-      ?user:bool ->
-      ?password:bool ->
-      ?host:bool ->
-      ?port:bool ->
-      ?path:bool ->
-      ?param:bool ->
-      ?query:bool ->
-      ?fragment:bool ->
-      ?other:bool ->
-      url ->
-      url
-  (* Removes the 'true' components from the URL, and returns the modified
-   * URL.
-   * The modfied URL shares unmodified components with the original
-   * URL.
-   *)
-
-val default_url :
-      ?encoded:bool -> 
-      ?scheme:string ->
-      ?user:string ->
-      ?password:string ->
-      ?host:string ->
-      ?port:int ->
-      ?path:string list ->
-      ?param:string list ->
-      ?query:string ->
-      ?fragment:string ->
-      ?other:string ->
-      url ->
-      url
-  (* Adds missing components and returns the modified URL.
-   * The modfied URL shares unmodified components with the original
-   * URL.
-   *)
-
-val undefault_url :
-      ?scheme:string ->
-      ?user:string ->
-      ?password:string ->
-      ?host:string ->
-      ?port:int ->
-      ?path:string list ->
-      ?param:string list ->
-      ?query:string ->
-      ?fragment:string ->
-      ?other:string ->
-      url ->
-      url
-  (* Removes components from the URL if they have the passed value, and
-   * returns the modified URL.
-   * Note: The values must always be passed in _encoded_ form!
-   * The modfied URL shares unmodified components with the original
-   * URL.
-   *)
-
-val url_syntax_of_url : url -> url_syntax
-  (* Returns the 'url_syntax' record of a URL. *)
-
-val url_of_string : url_syntax -> string -> url
-  (* Parses the passed string according to the passed url_syntax. *)
-
-val string_of_url : url -> string
-  (* Returns the URL as string *)
-
-val url_provides :
-      ?scheme:bool ->
-      ?user:bool ->
-      ?password:bool ->
-      ?host:bool ->
-      ?port:bool ->
-      ?path:bool ->
-      ?param:bool ->
-      ?query:bool ->
-      ?fragment:bool ->
-      ?other:bool ->
-      url ->
-      bool
-  (* Returns 'true' iff the URL has all of the components passed with
-   * 'true' value.
-   *)
-
-val url_scheme    :                  url -> string
-val url_user      : ?encoded:bool -> url -> string
-val url_password  : ?encoded:bool -> url -> string
-val url_host      :                  url -> string
-val url_port      :                  url -> int
-val url_path      : ?encoded:bool -> url -> string list
-val url_param     : ?encoded:bool -> url -> string list
-val url_query     : ?encoded:bool -> url -> string
-val url_fragment  : ?encoded:bool -> url -> string
-val url_other     : ?encoded:bool -> url -> string
-  (* Return components of the URL. The functions return decoded strings
-   * unless ~encoded:true is set.
-   * If the component does not exist, the exception Not_found
-   * is raised.
-   *)
-
-val split_path : string -> string list
-  (* Splits a '/'-separated path into components (e.g. to set up the
-   * ~path argument of make_url).
-   * E.g. split_path "a/b/c" = [ "a"; "b"; "c" ],
-   *      split_path "/a/b"  = [ ""; "a"; "b" ],
-   *      split_path "a/b/"  = [ "a"; "b"; "" ]
-   *)
-
-val join_path : string list -> string
-  (* Concatenates the path components (reverse function of split_path).
-   *)
-
-val norm_path : string list -> string list
-  (* Removes "." and ".." from the path if possible. Deletes double slashes.
-   *
-   * EXAMPLES:
-   *
-   * norm_path ["."] = []
-   *           means: "." = ""
-   * norm_path ["."; ""] = []
-   *           means: "./" = ""
-   * norm_path ["a"; "."] = ["a"; ""]
-   *           means: "a/." = "a/"
-   * norm_path ["a"; "b"; "."] = ["a"; "b"; ""]
-   *           means: "a/b/." = "a/b/"
-   * norm_path ["a"; "."; "b"; "."] = ["a"; "b"; ""]
-   *           means: "a/./b/." = "a/b/"
-   * norm_path [".."] = [".."; ""]
-   *           means: ".." = "../"
-   * norm_path [".."; ""] = [".."; ""]
-   *           means: "../" = "../"
-   * norm_path ["a"; "b"; ".."; "c" ] = ["a"; "c"]
-   *           means: "a/b/../c" = "a/c"
-   * norm_path ["a"; "b"; ".."; "c"; ""] = ["a"; "c"; ""]
-   *           means: "a/b/../c/" = "a/c/"
-   * norm_path ["";"";"a";"";"b"] = [""; "a"; "b"]
-   *           means: "//a//b" = "/a/b"
-   * norm_path ["a"; "b"; ""; ".."; "c"; ""] = ["a"; "c"; ""]
-   *           means: "a/b//../c/" = "a/c/"
-   * norm_path ["a"; ".."] = []
-   *           means: "a/.." = ""
-   *)
-
-
-val apply_relative_url : url -> url -> url
-  (* apply_relative_url base rel:
-   * Interprets 'rel' relative to 'base' and returns the new URL. This
-   * function implements RFC 1808.
-   *)
-
-val print_url : url -> unit
-  (* Printer for the toploop. *)
-
-(* ---------------------------------------------------------------------- *)
-
-(* EXAMPLES:
- *
- * let http = Hashtbl.find common_url_syntax "http";;
- * let u = url_of_string http "http://g:pw@host/a/%62/";;
- * string_of_url u;;
- *   --> "http://g:pw@host/a/%62/"
- * url_scheme u;;
- *   --> "http"
- * url_user u;;
- *   --> "g"
- * url_password u;;
- *   --> "pw"
- * url_host u;;
- *   --> "host"
- * url_path u;;
- *   --> [ ""; "a"; "b"; "" ]          (* sic! *)
- * url_path ~encoded:true u;;
- *   --> [ ""; "a"; "%62"; "" ]
- * let v = make_url 
- *   ~path:[ ".."; "c" ]
- *   ~fragment:"near-the-#-character"
- *   { (partial_url_syntax http) with url_enable_fragment = Url_part_allowed };;
- * string_of_url v;;
- *   --> "../c#near-the-%23-character"
- * let u' = modify_url ~syntax:(url_syntax_of_url v) u;;
- *    (* u does not permit fragments *)
- * let w = apply_relative_url u' v;;
- * string_of_url w;;
- *   --> "http://g:pw@host/c#near-the-%23-character"
- *)
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:27  lpadovan
- * Initial revision
- *
- * Revision 1.3  2000/06/26 22:57:49  gerd
- *     Change: The record 'url_syntax' has an additional component
- * 'url_accepts_8bits'. Setting this option to 'true' causes that
- * the bytes >= 0x80 are no longer rejected.
- *
- * Revision 1.2  2000/06/25 22:55:47  gerd
- *     Doc update.
- *
- * Revision 1.1  2000/06/24 20:19:59  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/netstring/tests/.cvsignore b/helm/DEVEL/pxp/netstring/tests/.cvsignore
deleted file mode 100644 (file)
index c1fcbc4..0000000
--- a/helm/DEVEL/pxp/netstring/tests/.cvsignore
+++ /dev/null
@@ -1,7 +0,0 @@
-*.cmo
-*.cmx
-*.cmi
-
-*.o
-*.a
-

diff --git a/helm/DEVEL/pxp/netstring/tests/Makefile b/helm/DEVEL/pxp/netstring/tests/Makefile
deleted file mode 100644 (file)
index 1aa5265..0000000
--- a/helm/DEVEL/pxp/netstring/tests/Makefile
+++ /dev/null
@@ -1,26 +0,0 @@
-# Note: you need an appopriate toploop "ocamlfattop" to run the
-# tests.
-
-# 2nd note: "test_encoding.cgi" is a CGI script; you must invoke
-# it through browser and WWW server.
-
-test: test_recode
-       ocamlfattop test_netencoding.ml
-       ocamlfattop test_mimestring.ml
-       ocamlfattop test_cgi.ml
-       ocamlfattop test_neturl.ml
-       ./test_recode
-
-test_recode: test_recode.ml
-       ocamlc -custom -o test_recode unix.cma threads.cma str.cma \
-               ../netstring.cma ../netmappings_iso.cmo \
-               -I .. -thread test_recode.ml
-
-distclean: clean
-       rm -f *~ test_recode
-
-clean:
-       rm -f *.cmi *.cmo *.cma *.cmx *.o *.a *.cmxa
-
-CLEAN:
-

diff --git a/helm/DEVEL/pxp/netstring/tests/test_cgi.ml b/helm/DEVEL/pxp/netstring/tests/test_cgi.ml
deleted file mode 100644 (file)
index 43d9886..0000000
--- a/helm/DEVEL/pxp/netstring/tests/test_cgi.ml
+++ /dev/null
@@ -1,423 +0,0 @@
-#require "str";;
-#directory "..";;
-#load "netstring.cma";;
-
-
-open Cgi;;
-
-(**********************************************************************)
-(* dest_form_encoded_parameters                                       *)
-(**********************************************************************)
-
-let t001 f =
-  let r =
-    f
-      "blah blah
---snip
-Content-Disposition: form-data; name=blupp
-
-This is a text
---snip--
-blah blah"
-      "snip"
-  in
-  r = ["blupp", "text/plain", "This is a text"]
-;;
-
-
-let t002 f =
-  let r =
-    f
-      "blah blah
---snip
-Content-Disposition: form-data; name=blupp
-
-This is a text
---snip--
-blah blah"
-      "snip"
-  in
-  r = ["blupp", "text/plain", "This is a text"]
-;;
-
-
-let t003 f =
-  let r =
-    f
-      "--snip
-Content-Disposition: form-data; name=blupp
-
-This is a text
---snip--"
-      "snip"
-  in
-  r = ["blupp", "text/plain", "This is a text"]
-;;
-
-
-let t004 f =
-  let r =
-    f
-      "--snip
-Content-Disposition: form-data; name=blupp
-
-This is a text
-
---snip--"
-      "snip"
-  in
-  r = ["blupp", "text/plain", "This is a text\013\n"]
-;;
-
-
-let t005 f =
-  let r =
-    f
-      "--snip
-Content-Disposition: form-data; name=blupp
-
-This is a text
-
---snip--"
-      "snip"
-  in
-  r = ["blupp", "text/plain", "This is a text\n"]
-;;
-
-
-let t006 f =
-  let r =
-    f
-      "blah blah
---snip
-Content-Disposition: form-data;name= \"blupp\"
-
-This is a text
---snip--
-blah blah"
-      "snip"
-  in
-  r = ["blupp", "text/plain", "This is a text"]
-;;
-
-
-let t007 f =
-  let r =
-    f
-      "blah blah
---snip
-Content-Disposition: form-data;name= \"name=blupp\"
-
-This is a text
---snip--
-blah blah"
-      "snip"
-  in
-  r = ["name=blupp", "text/plain", "This is a text"]
-;;
-
-
-let t008 f =
-  let r =
-    f
-      "blah blah
---snip
-Content-Disposition: form-data; strange=\"name=blop\"; name= \"blupp\"
-
-This is a text
---snip--
-blah blah"
-      "snip"
-  in
-  r = ["blupp", "text/plain", "This is a text"]
-;;
-
-
-let t009 f =
-  let r =
-    f
-      "blah blah
---snip
-Content-Disposition: form-data; strange=\" name=blop \";  name=blupp
-
-This is a text
---snip--
-blah blah"
-      "snip"
-  in
-  r = ["blupp", "text/plain", "This is a text"]
-;;
-
-
-let t010 f =
-  (* There is a space after "octet-stream"! *)
-  let r =
-    f
-      "--snip
-Content-Disposition: form-data; name=blupp
-Content-type:  application/octet-stream
-
-This is a text
---snip--"
-      "snip"
-  in
-  r = ["blupp", "application/octet-stream", "This is a text"]
-;;
-
-
-let t011 f =
-  let r =
-    f
-      "blah blah
---snip
-Content-Disposition: form-data; name=blupp
-
-This is a text
---snip
-Content-Disposition: form-data; name=blipp
-
-Another line
---snip-- blah
-blah blah"
-      "snip"
-  in
-  r = ["blupp", "text/plain", "This is a text";
-       "blipp", "text/plain", "Another line" ]
-;;
-
-
-let t012 f =
-  (* A real example *)
-   let r =
-     f
-"-----------------------------10843891265508332411092264958
-Content-Disposition: form-data; name=\"line\"
-
-aaa
------------------------------10843891265508332411092264958
-Content-Disposition: form-data; name=\"submit\"
-
-Submit
------------------------------10843891265508332411092264958--
-"
-      "---------------------------10843891265508332411092264958"
-   in
-   r = [ "line", "text/plain", "aaa";
-        "submit", "text/plain", "Submit";
-       ]
-;;
-
-
-(**********************************************************************)
-(* encode/decode                                                      *)
-(**********************************************************************)
-
-let t100() =
-  let s = String.create 256 in
-  for i = 0 to 255 do s.[i] <- Char.chr i done;
-  let r = encode s in
-  r = ("%00%01%02%03%04%05%06%07%08%09%0A%0B%0C%0D%0E%0F" ^
-       "%10%11%12%13%14%15%16%17%18%19%1A%1B%1C%1D%1E%1F" ^
-       "+!%22%23$%25%26'()*%2B,-.%2F" ^
-       "0123456789%3A%3B%3C%3D%3E%3F" ^
-       "%40ABCDEFGHIJKLMNOPQRSTUVWXYZ%5B%5C%5D%5E_" ^
-       "%60abcdefghijklmnopqrstuvwxyz%7B%7C%7D%7E%7F" ^
-       "%80%81%82%83%84%85%86%87%88%89%8A%8B%8C%8D%8E%8F" ^
-       "%90%91%92%93%94%95%96%97%98%99%9A%9B%9C%9D%9E%9F" ^
-       "%A0%A1%A2%A3%A4%A5%A6%A7%A8%A9%AA%AB%AC%AD%AE%AF" ^
-       "%B0%B1%B2%B3%B4%B5%B6%B7%B8%B9%BA%BB%BC%BD%BE%BF" ^
-       "%C0%C1%C2%C3%C4%C5%C6%C7%C8%C9%CA%CB%CC%CD%CE%CF" ^
-       "%D0%D1%D2%D3%D4%D5%D6%D7%D8%D9%DA%DB%DC%DD%DE%DF" ^
-       "%E0%E1%E2%E3%E4%E5%E6%E7%E8%E9%EA%EB%EC%ED%EE%EF" ^
-       "%F0%F1%F2%F3%F4%F5%F6%F7%F8%F9%FA%FB%FC%FD%FE%FF")
-;;
-
-
-let t101() =
-  let r = String.create 256 in
-  for i = 0 to 255 do r.[i] <- Char.chr i done;
-  let s = decode
-           ("%00%01%02%03%04%05%06%07%08%09%0A%0B%0C%0D%0E%0F" ^
-            "%10%11%12%13%14%15%16%17%18%19%1A%1B%1C%1D%1E%1F" ^
-            "+!%22%23$%25%26'()*%2B,-.%2F" ^
-            "0123456789%3A%3B%3C%3D%3E%3F" ^
-            "%40ABCDEFGHIJKLMNOPQRSTUVWXYZ%5B%5C%5D%5E_" ^
-            "%60abcdefghijklmnopqrstuvwxyz%7B%7C%7D%7E%7F" ^
-            "%80%81%82%83%84%85%86%87%88%89%8A%8B%8C%8D%8E%8F" ^
-            "%90%91%92%93%94%95%96%97%98%99%9A%9B%9C%9D%9E%9F" ^
-            "%A0%A1%A2%A3%A4%A5%A6%A7%A8%A9%AA%AB%AC%AD%AE%AF" ^
-            "%B0%B1%B2%B3%B4%B5%B6%B7%B8%B9%BA%BB%BC%BD%BE%BF" ^
-            "%C0%C1%C2%C3%C4%C5%C6%C7%C8%C9%CA%CB%CC%CD%CE%CF" ^
-            "%D0%D1%D2%D3%D4%D5%D6%D7%D8%D9%DA%DB%DC%DD%DE%DF" ^
-            "%E0%E1%E2%E3%E4%E5%E6%E7%E8%E9%EA%EB%EC%ED%EE%EF" ^
-            "%F0%F1%F2%F3%F4%F5%F6%F7%F8%F9%FA%FB%FC%FD%FE%FF") in
-  r = s
-;;
-
-
-let t102() =
-  let r = String.create 256 in
-  for i = 0 to 255 do r.[i] <- Char.chr i done;
-  let s = decode
-           ((String.lowercase
-               ("%00%01%02%03%04%05%06%07%08%09%0A%0B%0C%0D%0E%0F" ^
-                "%10%11%12%13%14%15%16%17%18%19%1A%1B%1C%1D%1E%1F" ^
-                "+!%22%23$%25%26'()*%2B,-.%2F" ^
-                "0123456789%3A%3B%3C%3D%3E%3F")) ^
-            "%40ABCDEFGHIJKLMNOPQRSTUVWXYZ%5B%5C%5D%5E_" ^
-            (String.lowercase
-               ("%60abcdefghijklmnopqrstuvwxyz%7B%7C%7D%7E%7F" ^
-                "%80%81%82%83%84%85%86%87%88%89%8A%8B%8C%8D%8E%8F" ^
-                "%90%91%92%93%94%95%96%97%98%99%9A%9B%9C%9D%9E%9F" ^
-                "%A0%A1%A2%A3%A4%A5%A6%A7%A8%A9%AA%AB%AC%AD%AE%AF" ^
-                "%B0%B1%B2%B3%B4%B5%B6%B7%B8%B9%BA%BB%BC%BD%BE%BF" ^
-                "%C0%C1%C2%C3%C4%C5%C6%C7%C8%C9%CA%CB%CC%CD%CE%CF" ^
-                "%D0%D1%D2%D3%D4%D5%D6%D7%D8%D9%DA%DB%DC%DD%DE%DF" ^
-                "%E0%E1%E2%E3%E4%E5%E6%E7%E8%E9%EA%EB%EC%ED%EE%EF" ^
-                "%F0%F1%F2%F3%F4%F5%F6%F7%F8%F9%FA%FB%FC%FD%FE%FF"))) in
-  r = s
-;;
-
-(**********************************************************************)
-(* dest_url_encoded_parameters                                        *)
-(**********************************************************************)
-
-let t200() =
-  let r = dest_url_encoded_parameters "a=b&c=d" in
-  r = ["a", "b"; "c", "d" ]
-;;
-
-
-let t201() =
-  let r = dest_url_encoded_parameters "a=&c=d" in
-  r = ["a", ""; "c", "d" ]
-;;
-
-
-let t202() =
-  let r = dest_url_encoded_parameters "a=&c=" in
-  r = ["a", ""; "c", "" ]
-;;
-
-
-let t203() =
-  let r = dest_url_encoded_parameters "" in
-  r = []
-;;
-
-
-let t204() =
-  let r = dest_url_encoded_parameters "%41=%42" in
-  r = ["A", "B"]
-;;
-
-
-(**********************************************************************)
-
-let test f n =
-  if f() then
-    print_endline ("Test " ^ n ^ " ok")
-  else
-    print_endline ("Test " ^ n ^ " FAILED!!!!");
-  flush stdout
-;;
-
-
-let test_dest_form_encoded_parameters f n =
-  let dest s b =
-    let args = dest_form_encoded_parameters s b default_config in
-    List.map
-      (fun a -> arg_name a, arg_mimetype a, arg_value a)
-      args
-  in
-  if f dest then
-    print_endline ("Test dest_form_encoded_parameters " ^ n ^ " ok")
-  else
-    print_endline ("Test dest_form_encoded_parameters " ^ n ^ " FAILED!!!!");
-  flush stdout
-;;
-
-
-let fill_stream s =
-  (* Returns a channel that reads from string s.
-   * This requires forking.
-   *)
-  let rd, wr = Unix.pipe() in
-  let pid = Unix.fork() in
-  if pid = 0 then begin
-    Unix.close rd;
-    let out = Unix.out_channel_of_descr wr in
-    output_string out s;
-    close_out out;
-    exit(0);
-  end;
-  Unix.close wr;
-  Unix.in_channel_of_descr rd
-;;
-
-
-let test_dest_form_encoded_parameters_from_netstream f n =
-  let dest s b =
-    let fd = fill_stream s in
-    let bs = String.length b * 2 in
-    let stream = Netstream.create_from_channel fd None bs in
-    let args = dest_form_encoded_parameters_from_netstream
-                stream b default_config in
-
-(*
-    List.iter
-      (fun a ->
-        Printf.printf "name=%s mimetype=%s value=%s\n"
-          (arg_name a) (arg_mimetype a) (arg_value a))
-      args;
-*)
-    List.map
-      (fun a -> arg_name a, arg_mimetype a, arg_value a)
-      args
-  in
-  if f dest then
-    Printf.printf
-      "Test dest_form_encoded_parameters_from_netstream %s ok\n"
-      n
-  else
-    print_endline ("Test dest_form_encoded_parameters_from_netstream " ^ n ^ " FAILED!!!!");
-  flush stdout
-;;
-
-
-
-test_dest_form_encoded_parameters t001 "001";;
-test_dest_form_encoded_parameters t002 "002";;
-test_dest_form_encoded_parameters t003 "003";;
-test_dest_form_encoded_parameters t004 "004";;
-test_dest_form_encoded_parameters t005 "005";;
-test_dest_form_encoded_parameters t006 "006";;
-test_dest_form_encoded_parameters t007 "007";;
-test_dest_form_encoded_parameters t008 "008";;
-test_dest_form_encoded_parameters t009 "009";;
-test_dest_form_encoded_parameters t010 "010";;
-test_dest_form_encoded_parameters t011 "011";;
-test_dest_form_encoded_parameters t012 "012";;
-
-test_dest_form_encoded_parameters_from_netstream t001 "001";;
-test_dest_form_encoded_parameters_from_netstream t002 "002";;
-test_dest_form_encoded_parameters_from_netstream t003 "003";;
-test_dest_form_encoded_parameters_from_netstream t004 "004";;
-test_dest_form_encoded_parameters_from_netstream t005 "005";;
-test_dest_form_encoded_parameters_from_netstream t006 "006";;
-test_dest_form_encoded_parameters_from_netstream t007 "007";;
-test_dest_form_encoded_parameters_from_netstream t008 "008";;
-test_dest_form_encoded_parameters_from_netstream t009 "009";;
-test_dest_form_encoded_parameters_from_netstream t010 "010";;
-test_dest_form_encoded_parameters_from_netstream t011 "011";;
-test_dest_form_encoded_parameters_from_netstream t012 "012";;
-
-test t100 "100";;
-test t101 "101";;
-test t102 "102";;
-
-test t200 "200";;
-test t201 "201";;
-test t202 "202";;
-test t203 "203";;
-test t204 "204";;

diff --git a/helm/DEVEL/pxp/netstring/tests/test_encoding.cgi b/helm/DEVEL/pxp/netstring/tests/test_encoding.cgi
deleted file mode 100755 (executable)
index 2402cda..0000000
--- a/helm/DEVEL/pxp/netstring/tests/test_encoding.cgi
+++ /dev/null
@@ -1,72 +0,0 @@
-#! /bin/sh
-# (*
-exec /opt/ocaml-2.04/bin/ocamlfattop "$0" "$@"
-*) directory ".";;
-
-#directory "..";;
-#load "netstring.cma";;
-
-Cgi.header "";
-Cgi.parse_arguments 
-  { Cgi.default_config with
-      Cgi.how_to_process_arguments = (fun _ -> Cgi.File)
-  };
-let params = Cgi.arguments() in
-print_string "<html><body>\n";
-print_string "<h1>Parameters:</h1>\n";
-print_string "<ul>\n";
-List.iter
-  (fun (n,a) ->
-     print_string "<li>";
-     print_string n;
-     print_string ":";
-     print_string (Cgi.arg_mimetype a);
-     print_string "=";
-     (match Cgi.arg_filename a with
-         None -> ()
-       | Some fn -> print_string ("[filename=" ^ fn ^ "]")
-     );
-     print_string (Cgi.arg_value a);
-     print_string "</li>\n";
-
-  )
-  params;
-
-Cgi.cleanup();
-
-print_string "</ul>\n";
-
-print_string "<h1>GET URL-encoded form</h1>\n";
-print_string "<form action=\"test_encoding.cgi\" method=GET>\n";
-print_string "<input type=text name=line>\n";
-print_string "<input type=submit name=submit value=\"Submit\">\n";
-print_string "</form>\n";
-
-print_string "<h1>POST URL-encoded form</h1>\n";
-print_string "<form action=\"test_encoding.cgi\" method=POST>\n";
-print_string "<input type=text name=line>\n";
-print_string "<input type=submit name=submit value=\"Submit\">\n";
-print_string "</form>\n";
-
-print_string "<h1>POST FORM-encoded form</h1>\n";
-print_string "<form action=\"test_encoding.cgi\" method=POST enctype=\"multipart/form-data\">\n";
-print_string "<input type=text name=line>\n";
-print_string "<input type=text name=\"sträange\">\n";
-print_string "<input type=submit name=submit value=\"Submit\">\n";
-print_string "</form>\n";
-
-print_string "<h1>File upload</h1>\n";
-print_string "<form action=\"test_encoding.cgi\" method=POST enctype=\"multipart/form-data\">\n";
-print_string "<input type=text name=line>\n";
-print_string "<input type=file name=file>\n";
-print_string "<input type=submit name=submit value=\"Submit\">\n";
-print_string "</form>\n";
-
-
-
-print_string "</body></html>\n";
-
-flush stdout
-;;
-
-     

diff --git a/helm/DEVEL/pxp/netstring/tests/test_mimestring.ml b/helm/DEVEL/pxp/netstring/tests/test_mimestring.ml
deleted file mode 100644 (file)
index db5eac9..0000000
--- a/helm/DEVEL/pxp/netstring/tests/test_mimestring.ml
+++ /dev/null
@@ -1,589 +0,0 @@
-#require "str";;
-#directory "..";;
-#load "netstring.cma";;
-
-open Mimestring;;
-
-(**********************************************************************)
-(* scan_structured_value                                              *)
-(**********************************************************************)
-
-let t001() =
-  let r = scan_structured_value "user@domain.com" [ '@'; '.' ] [] in
-  r = [ Atom "user"; Special '@'; Atom "domain"; Special '.'; Atom "com" ]
-;;
-
-
-let t002() =
-  let r = scan_structured_value "user @ domain . com" [ '@'; '.' ]  [] in
-  r = [ Atom "user"; Special '@'; Atom "domain"; Special '.'; Atom "com" ]
-;;
-
-
-let t003() =
-  let r = scan_structured_value "user(Do you know him?)@domain.com" [ '@'; '.' ]
- []  in
-  r = [ Atom "user"; Special '@'; Atom "domain"; Special '.'; Atom "com" ]
-;;
-
-
-let t004() =
-  let r = scan_structured_value "user @ domain . com" [ '@'; '.'; ' ' ] []  in
-  r = [ Atom "user"; Special ' '; Special '@'; Special ' '; Atom "domain";
-       Special ' '; Special '.'; Special ' '; Atom "com" ]
-;;
-
-
-let t005() =
-  let r = scan_structured_value "user(Do you know him?)@domain.com"
-                               ['@'; '.'; '(']  [] in
-  r = [ Atom "user"; Special '('; Atom "Do"; Atom "you"; Atom "know";
-       Atom "him?)"; Special '@'; Atom "domain"; Special '.'; Atom "com" ]
-;;
-
-
-let t006() =
-  let r = scan_structured_value "\"My.name\"@domain.com" [ '@'; '.' ]  [] in
-  r = [ QString "My.name"; Special '@'; Atom "domain"; Special '.';
-       Atom "com" ]
-;;
-
-
-let t007() =
-  let r = scan_structured_value "\"\\\"()@. \"@domain.com" [ '@'; '.' ]  [] in
-  r = [ QString "\"()@. "; Special '@'; Atom "domain"; Special '.';
-       Atom "com" ]
-;;
-
-
-let t008() =
-  let r = scan_structured_value "a(b(c(d)e)f)g" [] [] in
-  r = [ Atom "a"; Atom "g" ]
-;;
-
-
-let t009() =
-  let r = scan_structured_value "a(b(c(d)e)f" [] [] in
-  r = [ Atom "a" ]
-;;
-
-
-let t010() =
-  let r = scan_structured_value "a(b\\(c\\(d\\)e)f" [] [] in
-  r = [ Atom "a"; Atom "f" ]
-;;
-
-
-let t011() =
-  let r = scan_structured_value "a(b(c(d)e)f\\" [] [] in
-  r = [ Atom "a" ]
-;;
-
-
-let t012() =
-  let r = scan_structured_value "\"abc" [] [] in
-  r = [ QString "abc" ]
-;;
-
-
-let t013() =
-  let r = scan_structured_value "\"abc\\" [] [] in
-  r = [ QString "abc\\" ]
-;;
-
-
-(* New tests for netstring-0.9: *)
-
-let t020() =
-  let r = scan_structured_value "user(Do you know him?)@domain.com" 
-           [ '@'; '.' ] [ Return_comments ] in
-  r = [ Atom "user"; Comment; Special '@'; Atom "domain"; Special '.'; 
-       Atom "com" ]
-;;
-
-let t021() =
-  let r = scan_structured_value "user (Do you know him?) @ domain . com"
-           [ '@'; '.'; ' ' ] [] in
-  r = [ Atom "user"; Special ' '; Special ' '; Special ' '; Special '@';
-       Special ' '; Atom "domain";
-       Special ' '; Special '.'; Special ' '; Atom "com" ]
-;;
-
-let t022() =
-  let r = scan_structured_value "user (Do you know him?) @ domain . com"
-           [ '@'; '.'; ' ' ] [ Return_comments ] in
-  r = [ Atom "user"; Special ' '; Comment; Special ' '; Special '@'; 
-       Special ' '; Atom "domain";
-       Special ' '; Special '.'; Special ' '; Atom "com" ]
-;;
-
-let t023() =
-  let r = scan_structured_value "=?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?=" 
-           [] [] in
-  r = [ Atom "=?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?=" ]
-;;
-
-let t024() =
-  let r = scan_structured_value "=?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?=" 
-           [ ] [ Recognize_encoded_words ] in
-  r = [ EncodedWord("ISO-8859-1", "Q", "Keld_J=F8rn_Simonsen") ]
-;;
-
-let t025() =
-  let r = scan_structured_value 
-           "=?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?= =?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?="
-           []
-           [ Recognize_encoded_words ] in
-  r = [ EncodedWord
-         ("ISO-8859-1", "B", "SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=");
-       EncodedWord
-         ("ISO-8859-2", "B", "dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==")
-      ]
-;;
-
-(**********************************************************************)
-(* s_extended_token                                                   *)
-(**********************************************************************)
-
-let scan specials options str =
-  let scn = create_mime_scanner specials options str in
-  scan_token_list scn;;
-
-let t100() =
-  let r = scan [] [] "Two atoms" in
-  match r with
-      [ a1, Atom "Two"; a2, Atom "atoms" ] ->
-
-       (get_pos a1 = 0) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 0) &&
-       (get_length a1 = 3) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-
-       (get_pos a2 = 4) &&
-       (get_line a2 = 1) &&
-       (get_column a2 = 4) &&
-       (get_length a2 = 5) &&
-       (separates_adjacent_encoded_words a2 = false)
-
-    | _ ->
-       false
-;;
-
-
-let t101() =
-  let r = scan [] [] "  Two  atoms  " in
-  match r with
-      [ a1, Atom "Two"; a2, Atom "atoms" ] ->
-
-       (get_pos a1 = 2) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 2) &&
-       (get_length a1 = 3) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-
-       (get_pos a2 = 7) &&
-       (get_line a2 = 1) &&
-       (get_column a2 = 7) &&
-       (get_length a2 = 5) &&
-       (separates_adjacent_encoded_words a2 = false)
-
-    | _ ->
-       false
-;;
-
-
-let t102() =
-  let r = scan [] [] "  Two\n atoms  " in
-  match r with
-      [ a1, Atom "Two"; a2, Atom "atoms" ] ->
-
-       (get_pos a1 = 2) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 2) &&
-       (get_length a1 = 3) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-
-       (get_pos a2 = 7) &&
-       (get_line a2 = 2) &&
-       (get_column a2 = 1) &&
-       (get_length a2 = 5) &&
-       (separates_adjacent_encoded_words a2 = false)
-
-    | _ ->
-       false
-;;
-
-let t110() =
-  let r = scan [] [] "\"Two\" \"qstrings\"" in
-  match r with
-      [ a1, QString "Two"; a2, QString "qstrings" ] ->
-
-       (get_pos a1 = 0) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 0) &&
-       (get_length a1 = 5) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-
-       (get_pos a2 = 6) &&
-       (get_line a2 = 1) &&
-       (get_column a2 = 6) &&
-       (get_length a2 = 10) &&
-       (separates_adjacent_encoded_words a2 = false)
-
-    | _ ->
-       false
-;;
-
-let t111() =
-  let r = scan [] [] "  \"Two\"  \"qstrings\"  " in
-  match r with
-      [ a1, QString "Two"; a2, QString "qstrings" ] ->
-
-       (get_pos a1 = 2) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 2) &&
-       (get_length a1 = 5) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-
-       (get_pos a2 = 9) &&
-       (get_line a2 = 1) &&
-       (get_column a2 = 9) &&
-       (get_length a2 = 10) &&
-       (separates_adjacent_encoded_words a2 = false)
-
-    | _ ->
-       false
-;;
-
-let t112() =
-  let r = scan [] [] "  \"Two\nlines\"  \"and\nqstrings\"  " in
-  match r with
-      [ a1, QString "Two\nlines"; a2, QString "and\nqstrings" ] ->
-
-       (get_pos a1 = 2) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 2) &&
-       (get_length a1 = 11) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-
-       (get_pos a2 = 15) &&
-       (get_line a2 = 2) &&
-       (get_column a2 = 8) &&
-       (get_length a2 = 14) &&
-       (separates_adjacent_encoded_words a2 = false)
-
-    | _ ->
-       false
-;;
-
-let t113() =
-  let r = scan [] [] "  \"Two\\\nlines\"  \"and\\\nqstrings\"  " in
-  match r with
-      [ a1, QString "Two\nlines"; a2, QString "and\nqstrings" ] ->
-
-       (get_pos a1 = 2) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 2) &&
-       (get_length a1 = 12) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-
-       (get_pos a2 = 16) &&
-       (get_line a2 = 2) &&
-       (get_column a2 = 8) &&
-       (get_length a2 = 15) &&
-       (separates_adjacent_encoded_words a2 = false)
-
-    | _ ->
-       false
-;;
-
-let t120() =
-  (* Domain literals are implemented like quoted strings, so only the
-   * most complicated test case.
-   *)
-  let r = scan [] [] "  [Two\\\nlines]  [and\\\nliterals]  " in
-  match r with
-      [ a1, DomainLiteral "Two\nlines"; a2, DomainLiteral "and\nliterals" ] ->
-
-       (get_pos a1 = 2) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 2) &&
-       (get_length a1 = 12) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-
-       (get_pos a2 = 16) &&
-       (get_line a2 = 2) &&
-       (get_column a2 = 8) &&
-       (get_length a2 = 15) &&
-       (separates_adjacent_encoded_words a2 = false)
-
-    | _ ->
-       false
-;;
-
-let t130() =
-  let r = scan [] [ Return_comments ] "(Two) (comments)" in
-  match r with
-      [ a1, Comment; a2, Comment ] ->
-
-       (get_pos a1 = 0) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 0) &&
-       (get_length a1 = 5) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-
-       (get_pos a2 = 6) &&
-       (get_line a2 = 1) &&
-       (get_column a2 = 6) &&
-       (get_length a2 = 10) &&
-       (separates_adjacent_encoded_words a2 = false)
-
-    | _ ->
-       false
-;;
-
-let t131() =
-  let r = scan [] [ Return_comments ] "(Two\nlines) (and\ncomments)" in
-  match r with
-      [ a1, Comment; a2, Comment ] ->
-
-       (get_pos a1 = 0) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 0) &&
-       (get_length a1 = 11) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-
-       (get_pos a2 = 12) &&
-       (get_line a2 = 2) &&
-       (get_column a2 = 7) &&
-       (get_length a2 = 14) &&
-       (separates_adjacent_encoded_words a2 = false)
-
-    | _ ->
-       false
-;;
-
-let t132() =
-  let r = scan [] [ Return_comments ] "(Two\\\nlines) (and\\\ncomments)" in
-  match r with
-      [ a1, Comment; a2, Comment ] ->
-
-       (get_pos a1 = 0) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 0) &&
-       (get_length a1 = 12) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-
-       (get_pos a2 = 13) &&
-       (get_line a2 = 2) &&
-       (get_column a2 = 7) &&
-       (get_length a2 = 15) &&
-       (separates_adjacent_encoded_words a2 = false)
-
-    | _ ->
-       false
-;;
-
-let t133() =
-  let r = scan [] [ Return_comments ] "(a\n(b\nc)d\ne(f)) atom" in
-  match r with
-      [ a1, Comment; a2, Atom "atom" ] ->
-
-       (get_pos a1 = 0) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 0) &&
-       (get_length a1 = 15) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-
-       (get_pos a2 = 16) &&
-       (get_line a2 = 4) &&
-       (get_column a2 = 6) &&
-       (get_length a2 = 4) &&
-       (separates_adjacent_encoded_words a2 = false)
-
-    | _ ->
-       false
-;;
-
-let t140() = 
-  let r = scan [] [] "\031\031" in
-  match r with
-      [ a1, Control '\031'; a2, Control '\031' ] ->
-
-       (get_pos a1 = 0) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 0) &&
-       (get_length a1 = 1) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-
-       (get_pos a2 = 1) &&
-       (get_line a2 = 1) &&
-       (get_column a2 = 1) &&
-       (get_length a2 = 1) &&
-       (separates_adjacent_encoded_words a2 = false)
-
-    | _ ->
-       false
-;;
-
-let t150() = 
-  let r = scan [ '\t'; '\n' ] [] " \t\n  \n  \t" in
-  match r with
-      [ a1, Special '\t'; _, Special '\n'; _, Special '\n'; a2, Special '\t'] ->
-
-       (get_pos a1 = 1) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 1) &&
-       (get_length a1 = 1) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-
-       (get_pos a2 = 8) &&
-       (get_line a2 = 3) &&
-       (get_column a2 = 2) &&
-       (get_length a2 = 1) &&
-       (separates_adjacent_encoded_words a2 = false)
-
-    | _ ->
-       false
-;;
-
-let t160() =
-  let r = scan [] [ Recognize_encoded_words ] 
-           "=?iso8859-1?q?G=F6rd?= =?iso8859-1?q?G=F6rd?=" in
-  match r with
-      [ a1, EncodedWord("ISO8859-1", "Q", "G=F6rd"); 
-       a2, EncodedWord("ISO8859-1", "Q", "G=F6rd"); ] ->
-
-       (get_pos a1 = 0) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 0) &&
-       (get_length a1 = 22) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-       (get_decoded_word a1 = "Görd") &&
-       (get_charset a1 = "ISO8859-1") &&
-
-       (get_pos a2 = 23) &&
-       (get_line a2 = 1) &&
-       (get_column a2 = 23) &&
-       (get_length a2 = 22) &&
-       (separates_adjacent_encoded_words a2 = false) &&
-       (get_decoded_word a2 = "Görd") &&
-       (get_charset a2 = "ISO8859-1")
-
-    | _ ->
-       false
-;;
-
-let t161() =
-  let r = scan [ ' ' ] [ Recognize_encoded_words ] 
-           "=?iso8859-1?q?G=F6rd?= =?iso8859-1?q?G=F6rd?=" in
-  match r with
-      [ a1, EncodedWord("ISO8859-1", "Q", "G=F6rd"); 
-       sp, Special ' ';
-       a2, EncodedWord("ISO8859-1", "Q", "G=F6rd"); ] ->
-
-       (get_pos a1 = 0) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 0) &&
-       (get_length a1 = 22) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-       (get_decoded_word a1 = "Görd") &&
-       (get_charset a1 = "ISO8859-1") &&
-
-       (get_pos a2 = 23) &&
-       (get_line a2 = 1) &&
-       (get_column a2 = 23) &&
-       (get_length a2 = 22) &&
-       (separates_adjacent_encoded_words a2 = false) &&
-       (get_decoded_word a2 = "Görd") &&
-       (get_charset a2 = "ISO8859-1") &&
-
-       (separates_adjacent_encoded_words sp = true)
-
-    | _ ->
-       false
-;;
-
-let t162() =
-  let r = scan [ ' ' ] [ Recognize_encoded_words ] 
-           "=?iso8859-1?q?G=F6rd?=  =?iso8859-1?q?G=F6rd?=" in
-  match r with
-      [ a1, EncodedWord("ISO8859-1", "Q", "G=F6rd"); 
-       sp1, Special ' ';
-       sp2, Special ' ';
-       a2, EncodedWord("ISO8859-1", "Q", "G=F6rd"); ] ->
-
-       (get_pos a1 = 0) &&
-       (get_line a1 = 1) &&
-       (get_column a1 = 0) &&
-       (get_length a1 = 22) &&
-       (separates_adjacent_encoded_words a1 = false) &&
-       (get_decoded_word a1 = "Görd") &&
-       (get_charset a1 = "ISO8859-1") &&
-
-       (get_pos a2 = 24) &&
-       (get_line a2 = 1) &&
-       (get_column a2 = 24) &&
-       (get_length a2 = 22) &&
-       (separates_adjacent_encoded_words a2 = false) &&
-       (get_decoded_word a2 = "Görd") &&
-       (get_charset a2 = "ISO8859-1") &&
-
-       (separates_adjacent_encoded_words sp1 = true) &&
-       (separates_adjacent_encoded_words sp2 = true)
-
-    | _ ->
-       false
-;;
-
-
-
-(**********************************************************************)
-
-let test f n =
-  if f() then
-    print_endline ("Test " ^ n ^ " ok")
-  else
-    print_endline ("Test " ^ n ^ " FAILED!!!!");
-  flush stdout
-;;
-
-test t001 "001";;
-test t002 "002";;
-test t003 "003";;
-test t004 "004";;
-test t005 "005";;
-test t006 "006";;
-test t007 "007";;
-test t008 "008";;
-test t009 "009";;
-test t010 "010";;
-test t011 "011";;
-test t012 "012";;
-test t013 "013";;
-
-test t020 "020";;
-test t021 "021";;
-test t022 "022";;
-test t023 "023";;
-test t024 "024";;
-test t025 "025";;
-
-test t100 "100";;
-test t101 "101";;
-test t102 "102";;
-test t110 "110";;
-test t111 "111";;
-test t112 "112";;
-test t113 "113";;
-test t120 "120";;
-test t130 "130";;
-test t131 "131";;
-test t132 "132";;
-test t133 "133";;
-test t140 "140";;
-test t150 "150";;
-test t160 "160";;
-test t161 "161";;
-test t162 "162";;

diff --git a/helm/DEVEL/pxp/netstring/tests/test_netencoding.ml b/helm/DEVEL/pxp/netstring/tests/test_netencoding.ml
deleted file mode 100644 (file)
index 29673fa..0000000
--- a/helm/DEVEL/pxp/netstring/tests/test_netencoding.ml
+++ /dev/null
@@ -1,223 +0,0 @@
-#require "str";;
-#directory "..";;
-#load "netstring.cma";;
-
-
-open Netencoding;;
-
-(**********************************************************************)
-(* Base64                                                             *)
-(**********************************************************************)
-
-(* Test strings:
- * "", "a", "ab", "abc", "abcd", "abcde",
- * "abcdefghijklmnopqrstuvwxyz".
- *)
-
-let t001() =
-  (* ENCODE. No line breaks. *)
-  Base64.encode "" = "" &
-  Base64.encode "a" = "YQ==" &
-  Base64.encode "ab" = "YWI=" &
-  Base64.encode "abc" = "YWJj" &
-  Base64.encode "abcd" = "YWJjZA==" &
-  Base64.encode "abcde" = "YWJjZGU=" &
-  Base64.encode "abcdefghijklmnopqrstuvwxyz" =
-                "YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXo="
-;;
-
-
-let t002() =
-  (* ENCODE. Lines with length of 4, separated by LF *)
-  let abc = "abcdefghijklmnopqrstuvwxyz" in
-  Base64.encode_substring abc 0 0 4 false = "" &
-  Base64.encode_substring abc 0 1 4 false = "YQ==\n" &
-  Base64.encode_substring abc 0 2 4 false = "YWI=\n" &
-  Base64.encode_substring abc 0 3 4 false = "YWJj\n" &
-  Base64.encode_substring abc 0 4 4 false = "YWJj\nZA==\n" &
-  Base64.encode_substring abc 0 5 4 false = "YWJj\nZGU=\n" &
-  Base64.encode_substring abc 0 26 4 false = 
-    "YWJj\nZGVm\nZ2hp\namts\nbW5v\ncHFy\nc3R1\ndnd4\neXo=\n"
-;;
-
-
-let t003() =
-  (* ENCODE. Lines with length of 5, separated by LF *)
-  let abc = "abcdefghijklmnopqrstuvwxyz" in
-  Base64.encode_substring abc 0 0 5 false = "" &
-  Base64.encode_substring abc 0 1 5 false = "YQ==\n" &
-  Base64.encode_substring abc 0 2 5 false = "YWI=\n" &
-  Base64.encode_substring abc 0 3 5 false = "YWJj\n" &
-  Base64.encode_substring abc 0 4 5 false = "YWJj\nZA==\n" &
-  Base64.encode_substring abc 0 5 5 false = "YWJj\nZGU=\n" &
-  Base64.encode_substring abc 0 26 5 false = 
-    "YWJj\nZGVm\nZ2hp\namts\nbW5v\ncHFy\nc3R1\ndnd4\neXo=\n"
-;;
-
-
-let t004() =
-  (* ENCODE. Lines with length of 7, separated by LF *)
-  let abc = "abcdefghijklmnopqrstuvwxyz" in
-  Base64.encode_substring abc 0 0 7 false = "" &
-  Base64.encode_substring abc 0 1 7 false = "YQ==\n" &
-  Base64.encode_substring abc 0 2 7 false = "YWI=\n" &
-  Base64.encode_substring abc 0 3 7 false = "YWJj\n" &
-  Base64.encode_substring abc 0 4 7 false = "YWJj\nZA==\n" &
-  Base64.encode_substring abc 0 5 7 false = "YWJj\nZGU=\n" &
-  Base64.encode_substring abc 0 26 7 false = 
-    "YWJj\nZGVm\nZ2hp\namts\nbW5v\ncHFy\nc3R1\ndnd4\neXo=\n"
-;;
-
-
-let t005() =
-  (* ENCODE. Lines with length of 8, separated by LF *)
-  let abc = "abcdefghijklmnopqrstuvwxyz" in
-  Base64.encode_substring abc 0 0 8 false = "" &
-  Base64.encode_substring abc 0 1 8 false = "YQ==\n" &
-  Base64.encode_substring abc 0 2 8 false = "YWI=\n" &
-  Base64.encode_substring abc 0 3 8 false = "YWJj\n" &
-  Base64.encode_substring abc 0 4 8 false = "YWJjZA==\n" &
-  Base64.encode_substring abc 0 5 8 false = "YWJjZGU=\n" &
-  Base64.encode_substring abc 0 26 8 false = 
-    "YWJjZGVm\nZ2hpamts\nbW5vcHFy\nc3R1dnd4\neXo=\n"
-;;
-
-
-let t006() =
-  (* ENCODE. Lines with length of 8, separated by CRLF *)
-  let abc = "abcdefghijklmnopqrstuvwxyz" in
-  Base64.encode_substring abc 0 0 8 true = "" &
-  Base64.encode_substring abc 0 1 8 true = "YQ==\r\n" &
-  Base64.encode_substring abc 0 2 8 true = "YWI=\r\n" &
-  Base64.encode_substring abc 0 3 8 true = "YWJj\r\n" &
-  Base64.encode_substring abc 0 4 8 true = "YWJjZA==\r\n" &
-  Base64.encode_substring abc 0 5 8 true = "YWJjZGU=\r\n" &
-  Base64.encode_substring abc 0 26 8 true = 
-    "YWJjZGVm\r\nZ2hpamts\r\nbW5vcHFy\r\nc3R1dnd4\r\neXo=\r\n"
-;;
-
-
-let t020() =
-  (* DECODE. First test without spaces *)
-  Base64.decode_substring "" 0 0 false false = "" &
-  Base64.decode_substring "YQ==" 0 4 false false = "a" &
-  Base64.decode_substring "YWI=" 0 4 false false = "ab" &
-  Base64.decode_substring "YWJj" 0 4 false false = "abc" &
-  Base64.decode_substring "YWJjZA==" 0 8 false false = "abcd" &
-  Base64.decode_substring "YWJjZGU=" 0 8 false false = "abcde" &
-  Base64.decode_substring 
-    "YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXo=" 0 36 false false =
-    "abcdefghijklmnopqrstuvwxyz"
-;;
-
-
-let t021() =
-  (* DECODE. With spaces *)
-  Base64.decode_substring " \r\n\t" 0 4 false true = "" &
-  Base64.decode_substring " Y W J j\n Z G U = " 0 18 false true = "abcde"
-;;
- 
-
-let t022() =
-  (* DECODE. With URL characters and spaces *)
-  Base64.decode_substring " Y W J j\n Z G U = " 0 18 true true = "abcde" &
-  Base64.decode_substring " Y W J j\n Z G U . " 0 18 true true = "abcde"
-;;
-
-(**********************************************************************)
-(* Quoted Printable                                                   *)
-(**********************************************************************)
-
-let t100() =
-  (* ENCODE. *)
-  QuotedPrintable.encode "a %= 12345 &$[]\"" = "a %=3D 12345 &=24=5B=5D=22" &
-  QuotedPrintable.encode "\000\001\002" = "=00=01=02" &
-  QuotedPrintable.encode "abc\r\ndef\nghi" = "abc\r\ndef\nghi" &
-  QuotedPrintable.encode " abc\r\n def\n ghi" = " abc\r\n def\n ghi" &
-  QuotedPrintable.encode "abc \r\n def\nghi " = "abc=20\r\n def\nghi=20"
-;;
-
-
-let t120() =
-  (* DECODE. *)
-  QuotedPrintable.decode "a %=3D 12345 &=24=5B=5D=22" = "a %= 12345 &$[]\"" &
-  QuotedPrintable.decode "=00=01=02" = "\000\001\002" &
-  QuotedPrintable.decode "abc\r\ndef\nghi" = "abc\r\ndef\nghi" &
-  QuotedPrintable.decode " abc\r\n def\n ghi" = " abc\r\n def\n ghi" &
-  QuotedPrintable.decode "abc=20\r\n def\nghi=20" = "abc \r\n def\nghi " &
-  QuotedPrintable.decode "abc=\r\n def\nghi=20" = "abc def\nghi "
-;;
-
-(**********************************************************************)
-(* Q                                                                  *)
-(**********************************************************************)
-
-let t200() =
-  (* ENCODE. *)
-  Q.encode "a %= 12345 &$[]\"" = "a=20=25=3D=2012345=20=26=24=5B=5D=22" &
-  Q.encode "\000\001\002\r\n" = "=00=01=02=0D=0A"
-;;
-
-
-let t220() =
-  (* DECODE. *)
-  Q.decode "a=20=25=3D=2012345=20=26=24=5B=5D=22" = "a %= 12345 &$[]\"" &
-  Q.decode "=00=01=02=0D=0A" = "\000\001\002\r\n" &
-  Q.decode "a=20=25=3d=2012345=20=26=24=5b=5d=22" = "a %= 12345 &$[]\"" 
-;;
-
-(**********************************************************************)
-(* Url                                                                *)
-(**********************************************************************)
-
-(* Already tested for Cgi *)
-
-(**********************************************************************)
-(* Html                                                               *)
-(**********************************************************************)
-
-let t300() =
-  Html.encode_from_latin1 "<>&\"abcdefäöÜ\160\025'" = 
-    "&lt;&gt;&amp;&quot;abcdef&auml;&ouml;&Uuml;&nbsp;&#25;'"
-;;
-
-
-let t320() =
-  Html.decode_to_latin1 
-    "&lt;&gt;&amp;&quot;abcdef&auml;&ouml;&Uuml;&nbsp;&#25;" =
-    "<>&\"abcdefäöÜ\160\025" &
-  Html.decode_to_latin1 "&apos;" = "'" &
-  Html.decode_to_latin1 "&nonsense;" = "&nonsense;" &
-  Html.decode_to_latin1 "&#256;" = "&#256;"
-;;
-
-
-(**********************************************************************)
-
-let test f n =
-  if f() then
-    print_endline ("Test " ^ n ^ " ok")
-  else 
-    print_endline ("Test " ^ n ^ " FAILED!!!!");
-  flush stdout
-;;
-
-test t001 "001";
-test t002 "002";
-test t003 "003";
-test t004 "004";
-test t005 "005";
-test t006 "006";
-
-test t020 "020";
-test t021 "021";
-test t022 "022";
-
-test t100 "100";
-test t120 "120";
-
-test t200 "200";
-test t220 "220";
-
-test t300 "300";
-test t320 "320";

diff --git a/helm/DEVEL/pxp/netstring/tests/test_neturl.ml b/helm/DEVEL/pxp/netstring/tests/test_neturl.ml
deleted file mode 100644 (file)
index 633bfda..0000000
--- a/helm/DEVEL/pxp/netstring/tests/test_neturl.ml
+++ /dev/null
@@ -1,969 +0,0 @@
-#directory "..";;
-#load "netstring.cma";;
-
-open Neturl;;
-
-
-let expect_malformed_url f =
-  try ignore(f()); false with Malformed_URL -> true;;
-
-let works f =
-  not (expect_malformed_url f)
-;;
-
-(**********************************************************************)
-(* extract_url_scheme                                                 *)
-(**********************************************************************)
-
-let t001 () =
-  extract_url_scheme "a:bc" = "a" &&
-  extract_url_scheme "A:bc" = "a" &&
-  extract_url_scheme "a:b:c" = "a" &&
-  extract_url_scheme "a+b-c:d:e" = "a+b-c"
-;;
-
-
-let t002 () =
-  let test s =
-    try ignore(extract_url_scheme s); false with Malformed_URL -> true
-  in
-  test "a" &&
-  test "a/b:c" &&
-  test "%61:b" &&
-  test "a%3ab"
-;;
-
-(**********************************************************************)
-(* url_syntax                                                         *)
-(**********************************************************************)
-
-let hashtbl_for_all f h =
-  let b = ref true in
-  Hashtbl.iter
-    (fun k v -> b := !b && f k v)
-    h;
-  !b
-;;
-
-let t010 () =
-  url_syntax_is_valid null_url_syntax &&
-  url_syntax_is_valid ip_url_syntax &&
-  hashtbl_for_all
-    (fun _ syn ->
-       url_syntax_is_valid syn
-    )
-    common_url_syntax
-;;
-
-let t011 () =
-  url_syntax_is_valid (partial_url_syntax null_url_syntax) &&
-  url_syntax_is_valid (partial_url_syntax ip_url_syntax) &&
-  hashtbl_for_all
-    (fun _ syn ->
-       url_syntax_is_valid (partial_url_syntax syn)
-    )
-    common_url_syntax
-;;
-
-let t012 () =
-  let f = fun _ -> true in
-  let syn =
-    { url_enable_scheme    = Url_part_not_recognized;
-      url_enable_user      = Url_part_required;
-      url_enable_password  = Url_part_allowed;
-      url_enable_host      = Url_part_required;
-      url_enable_port      = Url_part_not_recognized;
-      url_enable_path      = Url_part_required;
-      url_enable_param     = Url_part_not_recognized;
-      url_enable_query     = Url_part_not_recognized;
-      url_enable_fragment  = Url_part_required;
-      url_enable_other     = Url_part_not_recognized;
-      url_accepts_8bits    = false;
-      url_is_valid         = f;
-    } in
-  let syn' = partial_url_syntax syn in
-  
-  (syn'.url_enable_scheme    = Url_part_not_recognized) &&
-  (syn'.url_enable_user      = Url_part_allowed) &&
-  (syn'.url_enable_password  = Url_part_allowed) &&
-  (syn'.url_enable_host      = Url_part_allowed) &&
-  (syn'.url_enable_port      = Url_part_not_recognized) &&
-  (syn'.url_enable_path      = Url_part_allowed) &&
-  (syn'.url_enable_param     = Url_part_not_recognized) &&
-  (syn'.url_enable_query     = Url_part_not_recognized) &&
-  (syn'.url_enable_fragment  = Url_part_allowed) &&
-  (syn'.url_enable_other     = Url_part_not_recognized) &&
-  (syn'.url_is_valid        == f) &&
-
-  url_syntax_is_valid syn &&
-  url_syntax_is_valid syn'
-;;
-
-(**********************************************************************)
-(* make_url                                                           *)
-(**********************************************************************)
-
-let t020 () =
-  (* Basic functionality: *)
-  let http_syn = Hashtbl.find common_url_syntax "http" in
-
-  let u1 = make_url
-            (* default: not encoded *)
-            ~scheme:"http"
-            ~user:"U"
-            ~password:"%()~$@"
-            ~host:"a.b.c"
-            ~port:81
-            ~path:["";"?";""]
-            http_syn in
-
-  url_provides 
-    ~scheme:true ~user:true ~password:true ~host:true ~port:true ~path:true 
-    u1 &&
-
-  not
-    (url_provides
-       ~scheme:true ~user:true ~password:true ~host:true ~port:true ~path:true 
-       ~query:true u1) &&
-
-  (url_syntax_of_url u1 == http_syn) &&
-
-  (url_scheme   u1 = "http") &&
-  (url_user     u1 = "U") &&
-  (url_password u1 = "%()~$@") &&
-  (url_host     u1 = "a.b.c") &&
-  (url_port     u1 = 81) &&
-  (url_path     u1 = ["";"?";""]) &&
-
-  (url_user     ~encoded:true u1 = "U") &&
-  (url_password ~encoded:true u1 = "%25()%7E$%40") &&
-  (url_path     ~encoded:true u1 = ["";"%3F";""]) &&
-
-  string_of_url u1 = "http://U:%25()%7E$%40@a.b.c:81/%3F/"
-;;
-
-
-let t021 () =
-  (* Basic functionality: *)
-  let http_syn = Hashtbl.find common_url_syntax "http" in
-
-  let u1 = make_url
-            ~encoded:true
-            ~scheme:"http"
-            ~user:"%55"
-            ~password:"%25()%7e$%40"
-            ~host:"a.b.c"
-            ~port:81
-            ~path:["";"%3F";""]
-            http_syn in
-
-  url_provides 
-    ~scheme:true ~user:true ~password:true ~host:true ~port:true ~path:true 
-    u1 &&
-
-  not
-    (url_provides
-       ~scheme:true ~user:true ~password:true ~host:true ~port:true ~path:true 
-       ~query:true u1) &&
-
-  (url_syntax_of_url u1 == http_syn) &&
-
-  (url_scheme   u1 = "http") &&
-  (url_user     u1 = "U") &&
-  (url_password u1 = "%()~$@") &&
-  (url_host     u1 = "a.b.c") &&
-  (url_port     u1 = 81) &&
-  (url_path     u1 = ["";"?";""]) &&
-
-  (url_user     ~encoded:true u1 = "%55") &&
-  (url_password ~encoded:true u1 = "%25()%7e$%40") &&
-  (url_path     ~encoded:true u1 = ["";"%3F";""]) &&
-
-  string_of_url u1 = "http://%55:%25()%7e$%40@a.b.c:81/%3F/"
-;;
-
-
-(* NEGATIVE TESTS *)
-
-let t030 () =
-  (* It is not possible to add a component which is not recognized *)
-  let http_syn = Hashtbl.find common_url_syntax "http" in
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~scheme:"http"
-        ~user:"U"
-        ~password:"%()~$@"
-        ~host:"a.b.c"
-        ~port:81
-        ~path:["";"?";""]
-        ~fragment:"abc"
-        http_syn)
-;;
-
-
-let t031 () =
-  (* It is not possible to put malformed '%'-encodings into the URL *)
-  let http_syn = Hashtbl.find common_url_syntax "http" in
-
-  works                      (* reference *)
-    (fun () ->
-       make_url
-        ~encoded:true
-        ~scheme:"http"
-        ~user:"U"
-        ~password:"XX"
-        ~host:"a.b.c"
-        ~port:81
-        ~path:["";"a";""]
-        http_syn) &&
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~encoded:true
-        ~scheme:"http"
-        ~user:"U"
-        ~password:"%XX"
-        ~host:"a.b.c"
-        ~port:81
-        ~path:["";"a";""]
-        http_syn) &&
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~encoded:true
-        ~scheme:"http"
-        ~user:"U"
-        ~password:"%X"
-        ~host:"a.b.c"
-        ~port:81
-        ~path:["";"a";""]
-        http_syn) &&
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~encoded:true
-        ~scheme:"http"
-        ~user:"U"
-        ~password:"%"
-        ~host:"a.b.c"
-        ~port:81
-        ~path:["";"a";""]
-        http_syn) 
-;;
-
-let t032 () =
-  (* It is not possible to put unsafe characters into the URL *)
-  let http_syn = Hashtbl.find common_url_syntax "http" in
-
-  let make c =
-    make_url
-      ~encoded:true
-      ~scheme:"http"
-      ~user:"U"
-      ~password:(String.make 1 c)
-      ~host:"a.b.c"
-      ~port:81
-      ~path:["";"a";""]
-      http_syn
-  in
-
-  works (fun () -> make 'a') &&                   (* reference *)
-
-  (* List of unsafe characters taken from RFC1738: *)
-  expect_malformed_url (fun () -> make '<') && 
-  expect_malformed_url (fun () -> make '>') && 
-  expect_malformed_url (fun () -> make '"') && 
-  expect_malformed_url (fun () -> make '#') && 
-    (* Note: '#' would be considered as reserved if fragments were enabled *)
-  expect_malformed_url (fun () -> make '%') && 
-  expect_malformed_url (fun () -> make '{') && 
-  expect_malformed_url (fun () -> make '}') && 
-  expect_malformed_url (fun () -> make '|') && 
-  expect_malformed_url (fun () -> make '\\') && 
-  expect_malformed_url (fun () -> make '^') && 
-  expect_malformed_url (fun () -> make '[') && 
-  expect_malformed_url (fun () -> make ']') && 
-  expect_malformed_url (fun () -> make '`') &&
-  expect_malformed_url (fun () -> make '~') &&
-    (* Note: '~' is considered as safe in paths: *)
-  works 
-    (fun () ->
-    make_url
-      ~encoded:true
-      ~scheme:"http"
-      ~user:"U"
-      ~password:"a"
-      ~host:"a.b.c"
-      ~port:81
-      ~path:["";"~";""]
-      http_syn)
-;;
-
-let t033 () =
-  (* It is not possible to put reserved characters into the URL *)
-  let http_syn = Hashtbl.find common_url_syntax "http" in
-
-  let make_password c =
-    make_url
-      ~encoded:true
-      ~scheme:"http"
-      ~user:"U"
-      ~password:(String.make 1 c)
-      ~host:"a.b.c"
-      ~port:81
-      ~path:["";"a";""]
-      http_syn
-  in
-  let make_path c =
-    make_url
-      ~encoded:true
-      ~scheme:"http"
-      ~user:"U"
-      ~password:"a"
-      ~host:"a.b.c"
-      ~port:81
-      ~path:["";String.make 1 c;""]
-      http_syn
-  in
-  let make_query c =
-    make_url
-      ~encoded:true
-      ~scheme:"http"
-      ~user:"U"
-      ~password:"a"
-      ~host:"a.b.c"
-      ~port:81
-      ~path:["";"a";""]
-      ~query:(String.make 1 c)
-      http_syn
-  in
-
-  (* Note: There is a difference between RFC 1738 and RFC 1808 regarding
-   * which characters are reserved. RFC 1808 defines a fixed set of characters
-   * as reserved while RFC 1738 defines the reserved characters depending
-   * on the scheme.
-   * This implementation of URLs follows RFC 1738 (because of practical
-   * reasons).
-   *)
-
-  works (fun () -> make_password 'a') &&                   (* reference *)
-  works (fun () -> make_path 'a') &&
-  works (fun () -> make_query 'a') &&
-
-  expect_malformed_url (fun () -> make_password ':') && 
-  expect_malformed_url (fun () -> make_password '@') && 
-  expect_malformed_url (fun () -> make_password '/') && 
-  works                (fun () -> make_password ';') &&
-  works                (fun () -> make_password '?') &&
-  works                (fun () -> make_password '=') &&
-  works                (fun () -> make_password '&') &&
-
-  (* Note: ';' is allowed in path and query because parameters are not
-   * recognized in HTTP syntax.
-   *)
-
-  expect_malformed_url (fun () -> make_path '/') && 
-  expect_malformed_url (fun () -> make_path '?') && 
-  works                (fun () -> make_path ':') && 
-  works                (fun () -> make_path '@') && 
-  works                (fun () -> make_path ';') && 
-  works                (fun () -> make_path '=') && 
-  works                (fun () -> make_path '&') && 
-
-  expect_malformed_url (fun () -> make_query '?') && 
-  works                (fun () -> make_query '/') && 
-  works                (fun () -> make_query ':') && 
-  works                (fun () -> make_query '@') && 
-  works                (fun () -> make_query ';') && 
-  works                (fun () -> make_query '=') && 
-  works                (fun () -> make_query '&')
-;;
-
-
-let t034 () =
-  (* It is not possible to create a URL with a password, but without user;
-   * and neither to create a URL with a port, but without host;
-   * and neither to create a URL with a user, but without host
-   *)
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~scheme:"http"
-        ~password:"a"
-        ~host:"a.b.c"
-        ~path:["";"a";""]
-        ip_url_syntax) &&
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~scheme:"http"
-        ~user:"U"
-        ~path:["";"a";""]
-        ip_url_syntax) &&
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~scheme:"http"
-        ~port:81
-        ~path:["";"a";""]
-        ip_url_syntax)
-;;
-
-
-let t035 () =
-  (* It is not possible to create a URL with illegal scheme prefix *)
-  
-  (* reference: *)
-  works
-    (fun () ->
-       make_url
-        ~scheme:"a"
-        ip_url_syntax) &&
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~scheme:":"
-        ip_url_syntax) &&
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~scheme:"a=b"
-        ip_url_syntax) &&
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~scheme:"a%62b"
-        ip_url_syntax) &&
- 
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~scheme:"a&b"
-        ip_url_syntax)
-;;
-
-
-let t036 () =
-  (* It is not possible to have a path with double slashes *)
-  
-  (* reference: *)
-  works
-    (fun () ->
-       make_url
-        ~path:["";"a";""]
-        ip_url_syntax) &&
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~path:["";""]
-        ip_url_syntax) &&
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~path:["a";"";""]
-        ip_url_syntax) &&
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~path:["";"";"a"]
-        ip_url_syntax) &&
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~path:["a";"";"a"]
-        ip_url_syntax)
-;;
-
-
-let t037 () =
-  (* It is not possible to have port numbers outside 0..65535 *)
-  
-  (* reference: *)
-  works
-    (fun () ->
-       make_url
-        ~host:"a"
-        ~port:1
-        ip_url_syntax) &&
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~host:"a"
-        ~port:(-1)
-        ip_url_syntax) &&
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~host:"a"
-        ~port:65536
-        ip_url_syntax)
-;;
-
-
-let t038 () =
-  (* Several cases which are not allowed. *)
-  
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~host:"a"
-        ~path:["a"]
-        ip_url_syntax
-    ) &&                       (* illegal: host + relative path *)
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~host:"a"
-        ~path:[]
-        ~param:["x"]
-        ip_url_syntax
-    ) &&                       (* illegal: host + no path + params *)
-
-  expect_malformed_url
-    (fun () ->
-       make_url
-        ~host:"a"
-        ~path:[]
-        ~query:"x"
-        ip_url_syntax
-    )                          (* illegal: host + no path + query *)
-;;
-
-(**********************************************************************)
-(* url_of_string                                                      *)
-(**********************************************************************)
-
-let t050 () =
-  (* absolute URLs with ip_url_syntax *)
-  let identical s =
-    string_of_url (url_of_string ip_url_syntax s) = s in
-
-  let fails s =
-    try ignore(url_of_string ip_url_syntax s); false 
-    with Malformed_URL -> true
-  in
-
-  identical "http:" &&
-
-  identical "http://host" &&
-  identical "http://user@host" &&
-  identical "http://user:password@host" &&
-  identical "http://user@host:99" &&
-  identical "http://user:password@host:99" &&
-
-  identical "http://host/" &&
-  identical "http://user@host/" &&
-  identical "http://user:password@host/" &&
-  identical "http://user@host:99/" &&
-  identical "http://user:password@host:99/" &&
-
-  identical "http://host/a/b" &&
-  identical "http://user@host/a/b" &&
-  identical "http://user:password@host/a/b" &&
-  identical "http://user@host:99/a/b" &&
-  identical "http://user:password@host:99/a/b" &&
-
-  identical "http://host/a/b/" &&
-  identical "http://user@host/a/b/" &&
-  identical "http://user:password@host/a/b/" &&
-  identical "http://user@host:99/a/b/" &&
-  identical "http://user:password@host:99/a/b/" &&
-
-  identical "http://host/?a=b&c=d" &&
-  identical "http://user@host/?a=b&c=d" &&
-  identical "http://user:password@host/?a=b&c=d" &&
-  identical "http://user@host:99/?a=b&c=d" &&
-  identical "http://user:password@host:99/?a=b&c=d" &&
-
-  fails "http://host?a=b&c=d" &&
-  fails "http://user@host?a=b&c=d" &&
-  fails "http://user:password@host?a=b&c=d" &&
-  fails "http://user@host:99?a=b&c=d" &&
-  fails "http://user:password@host:99?a=b&c=d" &&
-
-  identical "http://host/?a=/&c=/" &&
-  identical "http://user@host/?a=/&c=/" &&
-  identical "http://user:password@host/?a=/&c=/" &&
-  identical "http://user@host:99/?a=/&c=/" &&
-  identical "http://user:password@host:99/?a=/&c=/" &&
-
-  identical "http://host/;a;b" &&
-  identical "http://user@host/;a;b" &&
-  identical "http://user:password@host/;a;b" &&
-  identical "http://user@host:99/;a;b" &&
-  identical "http://user:password@host:99/;a;b" &&
-
-  fails "http://host;a;b" &&
-  fails "http://user@host;a;b" &&
-  fails "http://user:password@host;a;b" &&
-  fails "http://user@host:99;a;b" &&
-  fails "http://user:password@host:99;a;b" &&
-
-  identical "http://host/;a;b?a=b&c=d" &&
-  identical "http://user@host/;a;b?a=b&c=d" &&
-  identical "http://user:password@host/;a;b?a=b&c=d" &&
-  identical "http://user@host:99/;a;b?a=b&c=d" &&
-  identical "http://user:password@host:99/;a;b?a=b&c=d" &&
-
-  identical "http:#f" &&
-
-  identical "http://host#f" &&
-  identical "http://user@host#f" &&
-  identical "http://user:password@host#f" &&
-  identical "http://user@host:99#f" &&
-  identical "http://user:password@host:99#f" &&
-
-  identical "http://host/;a;b?a=b&c=d#f" &&
-  identical "http://user@host/;a;b?a=b&c=d#f" &&
-  identical "http://user:password@host/;a;b?a=b&c=d#f" &&
-  identical "http://user@host:99/;a;b?a=b&c=d#f" &&
-  identical "http://user:password@host:99/;a;b?a=b&c=d#f" &&
-
-  true
-;;
-
-
-let t051 () =
-  (* relative URLs with ip_url_syntax *)
-  let identical s =
-    string_of_url (url_of_string ip_url_syntax s) = s in
-
-  let fails s =
-    try ignore(url_of_string ip_url_syntax s); false 
-    with Malformed_URL -> true
-  in
-
-  identical "//host" &&
-  identical "//user@host" &&
-  identical "//user:password@host" &&
-  identical "//user@host:99" &&
-  identical "//user:password@host:99" &&
-
-  identical "//host/" &&
-  identical "//user@host/" &&
-  identical "//user:password@host/" &&
-  identical "//user@host:99/" &&
-  identical "//user:password@host:99/" &&
-
-  identical "//host#f" &&
-  identical "//user@host#f" &&
-  identical "//user:password@host#f" &&
-  identical "//user@host:99#f" &&
-  identical "//user:password@host:99#f" &&
-
-  identical "/" &&
-  identical "/a" &&
-  identical "/a/" &&
-  identical "/a/a" &&
-
-  identical "/;a;b" &&
-  identical "/a;a;b" &&
-  identical "/a/;a;b" &&
-  identical "/a/a;a;b" &&
-
-  identical "/?a=b&c=d" &&
-  identical "/a?a=b&c=d" &&
-  identical "/a/?a=b&c=d" &&
-  identical "/a/a?a=b&c=d" &&
-
-  identical "/;a;b?a=b&c=d" &&
-  identical "/a;a;b?a=b&c=d" &&
-  identical "/a/;a;b?a=b&c=d" &&
-  identical "/a/a;a;b?a=b&c=d" &&
-
-  identical "/#f" &&
-  identical "/a#f" &&
-  identical "/a/#f" &&
-  identical "/a/a#f" &&
-
-  identical "/;a;b#f" &&
-  identical "/a;a;b#f" &&
-  identical "/a/;a;b#f" &&
-  identical "/a/a;a;b#f" &&
-
-  identical "/;a;b?a=b&c=d#f" &&
-  identical "/a;a;b?a=b&c=d#f" &&
-  identical "/a/;a;b?a=b&c=d#f" &&
-  identical "/a/a;a;b?a=b&c=d#f" &&
-
-  identical "" &&
-  identical "a" &&
-  identical "a/" &&
-  identical "a/a" &&
-
-  identical ";a;b" &&
-  identical "a;a;b" &&
-  identical "a/;a;b" &&
-  identical "a/a;a;b" &&
-
-  identical "?a=b&c=d" &&
-  identical "a?a=b&c=d" &&
-  identical "a/?a=b&c=d" &&
-  identical "a/a?a=b&c=d" &&
-
-  identical ";a;b?a=b&c=d" &&
-  identical "a;a;b?a=b&c=d" &&
-  identical "a/;a;b?a=b&c=d" &&
-  identical "a/a;a;b?a=b&c=d" &&
-
-  identical "#f" &&
-  identical "a#f" &&
-  identical "a/#f" &&
-  identical "a/a#f" &&
-
-  identical ";a;b#f" &&
-  identical "a;a;b#f" &&
-  identical "a/;a;b#f" &&
-  identical "a/a;a;b#f" &&
-
-  identical ";a;b?a=b&c=d#f" &&
-  identical "a;a;b?a=b&c=d#f" &&
-  identical "a/;a;b?a=b&c=d#f" &&
-  identical "a/a;a;b?a=b&c=d#f" &&
-
-  identical "." &&
-  identical "./" &&
-  identical "./a" &&
-
-  identical ".;a;b" &&
-  identical "./;a;b" &&
-  identical "./a;a;b" &&
-
-  identical ".?a=b&c=d" &&
-  identical "./?a=b&c=d" &&
-  identical "./a?a=b&c=d" &&
-
-  identical ".;a;b?a=b&c=d" &&
-  identical "./;a;b?a=b&c=d" &&
-  identical "./a;a;b?a=b&c=d" &&
-
-  identical ".#f" &&
-  identical "./#f" &&
-  identical "./a#f" &&
-
-  identical ".;a;b#f" &&
-  identical "./;a;b#f" &&
-  identical "./a;a;b#f" &&
-
-  identical ".;a;b?a=b&c=d#f" &&
-  identical "./;a;b?a=b&c=d#f" &&
-  identical "./a;a;b?a=b&c=d#f" &&
-
-  identical ".." &&
-  identical "../" &&
-  identical "../a" &&
-
-  identical "..;a;b" &&
-  identical "../;a;b" &&
-  identical "../a;a;b" &&
-
-  identical "..?a=b&c=d" &&
-  identical "../?a=b&c=d" &&
-  identical "../a?a=b&c=d" &&
-
-  identical "..;a;b?a=b&c=d" &&
-  identical "../;a;b?a=b&c=d" &&
-  identical "../a;a;b?a=b&c=d" &&
-
-  identical "..#f" &&
-  identical "../#f" &&
-  identical "../a#f" &&
-
-  identical "..;a;b#f" &&
-  identical "../;a;b#f" &&
-  identical "../a;a;b#f" &&
-
-  identical "..;a;b?a=b&c=d#f" &&
-  identical "../;a;b?a=b&c=d#f" &&
-  identical "../a;a;b?a=b&c=d#f" &&
-
-  string_of_url
-    (make_url ~path:["a:b"] ip_url_syntax) = "a%3Ab" &&
-
-  string_of_url
-    (make_url ~encoded:true ~path:["a:b"] ip_url_syntax) = "./a:b" &&
-
-  true
-;;
-
-
-let t052 () =
-  (* mailto: URLs *)
-  let mailto_syn = Hashtbl.find common_url_syntax "mailto" in
-
-  let identical s =
-    string_of_url (url_of_string mailto_syn s) = s in
-
-  let fails s =
-    try ignore(url_of_string mailto_syn s); false 
-    with Malformed_URL -> true
-  in
-
-  identical "mailto:user@host" &&
-  identical "mailto:user@host;?;?" &&
-  fails     "mailto:user@host#f"
-;;
-
-(**********************************************************************)
-(* split_path/join_path/norm_path:                                    *)
-(**********************************************************************)
-
-let t060 () =
-  (split_path "" = []) &&
-  (split_path "/" = [ "" ]) &&
-  (split_path "/a" = [ ""; "a" ]) &&
-  (split_path "a" = [ "a" ]) &&
-  (split_path "a/" = [ "a"; "" ]) &&
-  (split_path "/a/" = [ ""; "a"; "" ]) &&
-  (split_path "/a/b" = [ ""; "a"; "b" ]) &&
-  (split_path "/a/b/" = [ ""; "a"; "b"; "" ]) &&
-  (split_path "/a/b/c" = [ ""; "a"; "b"; "c" ]) &&
-
-  (join_path [] = "") &&
-  (join_path [ "" ] = "/") &&
-  (join_path [ ""; "a" ] = "/a") &&
-  (join_path [ "a" ] = "a") &&
-  (join_path [ "a"; "" ] = "a/") &&
-  (join_path [ ""; "a"; "" ] = "/a/") &&
-  (join_path [ ""; "a"; "b" ] = "/a/b") &&
-  (join_path [ ""; "a"; "b"; "" ] = "/a/b/") &&
-  (join_path [ ""; "a"; "b"; "c" ] = "/a/b/c") &&
-
-  true
-;;
-
-
-let t061 () =
-  (norm_path ["."] = []) &&
-  (norm_path ["."; ""] = []) &&
-  (norm_path ["a"; "."] = ["a"; ""]) &&
-  (norm_path ["a"; "b"; "."] = ["a"; "b"; ""]) &&
-  (norm_path ["a"; "b"; ".."] = ["a"; ""]) &&
-  (norm_path ["a"; "."; "b"; "."] = ["a"; "b"; ""]) &&
-  (norm_path [".."] = [".."; ""]) &&
-  (norm_path [".."; ""] = [".."; ""]) &&
-  (norm_path ["a"; "b"; ".."; "c" ] = ["a"; "c"]) &&
-  (norm_path ["a"; "b"; ".."; "c"; ""] = ["a"; "c"; ""]) &&
-  (norm_path ["";"";"a";"";"b"] = [""; "a"; "b"]) &&
-  (norm_path ["a"; "b"; ""; ".."; "c"; ""] = ["a"; "c"; ""]) &&
-  (norm_path ["a"; ".."] = []) &&
-  (norm_path ["";""] = [""]) &&
-  (norm_path [""] = [""]) &&
-  (norm_path [] = []) &&
-
-  true
-;;
-                 
-(**********************************************************************)
-(* apply_relative_url:                                                *)
-(**********************************************************************)
-
-let t070() =
-  (* Examples taken from RFC 1808 *)
-  let url = url_of_string ip_url_syntax in
-  let base = url "http://a/b/c/d;p?q#f" in
-  let aru = apply_relative_url base in
-
-  (aru (url "g:h")     = url "g:h") &&
-  (aru (url "g")       = url "http://a/b/c/g") &&
-  (aru (url "./g")     = url "http://a/b/c/g") &&
-  (aru (url "g/")      = url "http://a/b/c/g/") &&
-  (aru (url "/g")      = url "http://a/g") &&
-  (aru (url "//g")     = url "http://g") &&
-  (aru (url "?y")      = url "http://a/b/c/d;p?y") &&
-  (aru (url "g?y")     = url "http://a/b/c/g?y") &&
-  (aru (url "g?y/./x") = url "http://a/b/c/g?y/./x") &&
-  (aru (url "#s")      = url "http://a/b/c/d;p?q#s") &&
-  (aru (url "g#s")     = url "http://a/b/c/g#s") &&
-  (aru (url "g#s/./x") = url "http://a/b/c/g#s/./x") &&
-  (aru (url "g?y#s")   = url "http://a/b/c/g?y#s") &&
-  (aru (url ";x")      = url "http://a/b/c/d;x") &&
-  (aru (url "g;x")     = url "http://a/b/c/g;x") &&
-  (aru (url "g;x?y#s") = url "http://a/b/c/g;x?y#s") &&
-  (aru (url ".")       = url "http://a/b/c/") &&
-  (aru (url "./")      = url "http://a/b/c/") &&
-  (aru (url "..")      = url "http://a/b/") &&
-  (aru (url "../")     = url "http://a/b/") &&
-  (aru (url "../g")    = url "http://a/b/g") &&
-  (aru (url "../..")   = url "http://a/") &&
-  (aru (url "../../")  = url "http://a/") &&
-  (aru (url "../../g") = url "http://a/g") &&
-
-  (aru (url "")              = url "http://a/b/c/d;p?q#f") &&
-  (aru (url "../../../g")    = url "http://a/../g") &&
-  (aru (url "../../../../g") = url "http://a/../../g") &&
-  (aru (url "/./g")          = url "http://a/./g") &&
-  (aru (url "/../g")         = url "http://a/../g") &&
-  (aru (url "g.")            = url "http://a/b/c/g.") &&
-  (aru (url ".g")            = url "http://a/b/c/.g") &&
-  (aru (url "g..")           = url "http://a/b/c/g..") &&
-  (aru (url "..g")           = url "http://a/b/c/..g") &&
-  (aru (url "./../g")        = url "http://a/b/g") &&
-  (aru (url "./g/.")         = url "http://a/b/c/g/") &&
-  (aru (url "g/./h")         = url "http://a/b/c/g/h") &&
-  (aru (url "g/../h")        = url "http://a/b/c/h") &&
-  (aru (url "http:g")        = url "http:g") &&
-  (aru (url "http:")         = url "http:") &&
-
-  true
-;;
-  
-
-(**********************************************************************)
-
-let test f n =
-  if f() then
-    print_endline ("Test " ^ n ^ " ok")
-  else 
-    print_endline ("Test " ^ n ^ " FAILED!!!!");
-  flush stdout
-;;
-
-test t001 "001";
-test t002 "002";
-
-test t010 "010";
-test t011 "011";
-test t012 "012";
-
-test t020 "020";
-test t021 "021";
-
-test t030 "030";
-test t031 "031";
-test t032 "032";
-test t033 "033";
-test t034 "034";
-test t035 "035";
-test t036 "036";
-test t037 "037";
-test t038 "038";
-
-test t050 "050";
-test t051 "051";
-test t052 "052";
-
-test t060 "060";
-test t061 "061";
-
-test t070 "070";
-()
-;;

diff --git a/helm/DEVEL/pxp/netstring/tests/test_recode.ml b/helm/DEVEL/pxp/netstring/tests/test_recode.ml
deleted file mode 100644 (file)
index 64a04ca..0000000
--- a/helm/DEVEL/pxp/netstring/tests/test_recode.ml
+++ /dev/null
@@ -1,169 +0,0 @@
-
-
-let make_iso enc =
-  let s = ref "" in
-  for i = 0 to 255 do
-    let u = try Netconversion.makechar (enc :> Netconversion.encoding) i 
-            with Not_found -> "" in
-    s := !s ^ u
-  done;
-  !s
-;;
-
-let make_ucs2 start stop =
-  let s = String.create ((stop - start) * 2) in
-  for i = 0 to stop-start-1 do
-    let k = 2 * i in
-    let c = i + start in
-    s.[k]   <- Char.chr(c lsr 8);
-    s.[k+1] <- Char.chr(c land 0xff);
-  done;
-  s
-;;
-
-let make_ucs4 start stop =
-  let s = String.create ((stop - start) * 4) in
-  for i = 0 to stop-start-1 do
-    let k = 4 * i in
-    let c = i + start in
-    s.[k]   <- Char.chr(c lsr 24);
-    s.[k+1] <- Char.chr((c lsr 16) land 0xff);
-    s.[k+2] <- Char.chr((c lsr 8) land 0xff);
-    s.[k+3] <- Char.chr(c land 0xff);
-  done;
-  s
-;;
-
-let name_of_encoding enc =
-  match enc with
-      `Enc_iso88591 -> "ISO_8859-1"
-    | `Enc_iso88592 -> "ISO_8859-2"
-    | `Enc_iso88593 -> "ISO_8859-3"
-    | `Enc_iso88594 -> "ISO_8859-4"
-    | `Enc_iso88595 -> "ISO_8859-5"
-    | `Enc_iso88596 -> "ISO_8859-6"
-    | `Enc_iso88597 -> "ISO_8859-7"
-    | `Enc_iso88598 -> "ISO_8859-8"
-    | `Enc_iso88599 -> "ISO_8859-9"
-    | `Enc_iso885910 -> "ISO_8859-10"
-    | `Enc_iso885913 -> "ISO_8859-13"
-    | `Enc_iso885914 -> "ISO_8859-14"
-    | `Enc_iso885915 -> "ISO_8859-15"
-    | `Enc_utf8     -> "UTF-8"
-    | `Enc_ucs4     -> "UCS-4"
-    | `Enc_ucs2     -> "UCS-2"
-    | `Enc_utf16    -> "UTF-16"
-
-  (* Note: GNU-iconv assumes big endian byte order *)
-;;
-
-let iconv_recode_string in_enc out_enc in_s =
-  let in_enc_name  = name_of_encoding in_enc in
-  let out_enc_name = name_of_encoding out_enc in
-  let out_s = ref "" in
-
-  let out_ch,in_ch = Unix.open_process ("iconv -f " ^ in_enc_name ^ " -t " ^ 
-                                       out_enc_name) in
-  (* Write in_s to in_ch in a new thread: *)
-  ignore
-    (Thread.create
-       (fun () ->
-         output_string in_ch in_s;
-         close_out in_ch;
-       )
-       ()
-    );
-  (* Read the result in the current thread: *)
-  let buf = String.create 1024 in
-  let n = ref 1 in
-  while !n <> 0 do
-    let n' = input out_ch buf 0 1024 in
-    out_s := !out_s ^ String.sub buf 0 n';
-    n := n'
-  done;
-  ignore(Unix.close_process (out_ch,in_ch));
-  !out_s
-;;
-
-let test_iso_and_utf8 enc  =
-  let name = name_of_encoding enc in
-  print_string ("Recode: " ^ name ^ " and UTF-8... "); flush stdout;
-  let s = make_iso enc in
-  let s1' = Netconversion.recode_string (enc :> Netconversion.encoding) 
-                                        `Enc_utf8 s in
-  let s2' = iconv_recode_string         enc `Enc_utf8 s in
-  assert(s1' = s2');
-  let s1  = Netconversion.recode_string `Enc_utf8 
-                                       (enc :> Netconversion.encoding) s1' in
-  let s2  = iconv_recode_string         `Enc_utf8 enc s1' in
-  assert(s1 = s2 && s1 = s);
-  print_endline "OK"; flush stdout
-;;
-
-let test_utf16_and_utf8_0000_d7ff () =
-  print_string "Recode: UTF-16-BE and UTF-8, #0000-#D7FF... "; 
-  flush stdout;
-  let s = make_ucs2 0 0xd800 in
-  let s1' = Netconversion.recode_string `Enc_utf16_be `Enc_utf8 s in
-  let s2' = iconv_recode_string        `Enc_utf16    `Enc_utf8 s in
-  assert(s1' = s2');
-  let s1  = Netconversion.recode_string `Enc_utf8 `Enc_utf16_be s1' in
-  let s2  = iconv_recode_string        `Enc_utf8 `Enc_utf16 s1' in
-  assert(s1 = s2 && s1 = s);
-  print_endline "OK"; flush stdout
-;;
-
-let test_utf16_and_utf8_e000_fffd () =
-  print_string "Recode: UTF-16-BE and UTF-8, #E000-#FFFD... "; 
-  flush stdout;
-  let s = make_ucs2 0xe000 0xfffe in
-  let s1' = Netconversion.recode_string `Enc_utf16_be `Enc_utf8 s in
-  let s2' = iconv_recode_string        `Enc_utf16    `Enc_utf8 s in
-  assert(s1' = s2');
-  let s1  = Netconversion.recode_string `Enc_utf8 `Enc_utf16_be s1' in
-  let s2  = iconv_recode_string        `Enc_utf8 `Enc_utf16 s1' in
-  assert(s1 = s2 && s1 = s);
-  print_endline "OK"; flush stdout
-;;
-
-let test_utf16_and_utf8_10000_10FFFF () =
-  print_string "Recode: UTF-16-BE and UTF-8, #10000-#10FFFF... "; 
-  flush stdout;
-  for i = 1 to 16 do
-    let s0  = make_ucs4 (i * 0x10000) (i * 0x10000 + 0x10000) in
-    let s   = iconv_recode_string        `Enc_ucs4     `Enc_utf16 s0 in
-    let s1' = Netconversion.recode_string `Enc_utf16_be `Enc_utf8 s in
-    let s2' = iconv_recode_string        `Enc_utf16    `Enc_utf8 s in
-    assert(s1' = s2');
-    let s1  = Netconversion.recode_string `Enc_utf8 `Enc_utf16_be s1' in
-    let s2  = iconv_recode_string        `Enc_utf8 `Enc_utf16 s1' in
-    assert(s1 = s2 && s1 = s);
-    print_string "+"; flush stdout;
-  done;
-  print_endline "OK"; flush stdout
-;;
-
-
-print_endline "Warning: You need the command 'iconv' to run this test!";
-flush stdout;
-test_iso_and_utf8 `Enc_iso88591;
-test_iso_and_utf8 `Enc_iso88592;
-test_iso_and_utf8 `Enc_iso88593;
-test_iso_and_utf8 `Enc_iso88594;
-test_iso_and_utf8 `Enc_iso88595;
-test_iso_and_utf8 `Enc_iso88596;
-test_iso_and_utf8 `Enc_iso88597;
-(* test_iso_and_utf8 `Enc_iso88598; *)
-test_iso_and_utf8 `Enc_iso88599;
-test_iso_and_utf8 `Enc_iso885910;
-(* test_iso_and_utf8 `Enc_iso885913; *)
-(* test_iso_and_utf8 `Enc_iso885914; *)
-(* test_iso_and_utf8 `Enc_iso885915; *)
-test_utf16_and_utf8_0000_d7ff();
-test_utf16_and_utf8_e000_fffd();
-(* This test does not work because iconv does not support the surrogate
- * representation of UTF-16:
- * test_utf16_and_utf8_10000_10FFFF();
- *)
-()
-;;

diff --git a/helm/DEVEL/pxp/netstring/tools/Makefile b/helm/DEVEL/pxp/netstring/tools/Makefile
deleted file mode 100644 (file)
index b3c148d..0000000
--- a/helm/DEVEL/pxp/netstring/tools/Makefile
+++ /dev/null
@@ -1,10 +0,0 @@
-all:
-       $(MAKE) -C unimap_to_ocaml
-
-clean:
-
-CLEAN: clean
-       $(MAKE) -C unimap_to_ocaml CLEAN
-
-distclean: clean
-       $(MAKE) -C unimap_to_ocaml distclean

diff --git a/helm/DEVEL/pxp/netstring/tools/unimap_to_ocaml/.cvsignore b/helm/DEVEL/pxp/netstring/tools/unimap_to_ocaml/.cvsignore
deleted file mode 100644 (file)
index c1fcbc4..0000000
--- a/helm/DEVEL/pxp/netstring/tools/unimap_to_ocaml/.cvsignore
+++ /dev/null
@@ -1,7 +0,0 @@
-*.cmo
-*.cmx
-*.cmi
-
-*.o
-*.a
-

diff --git a/helm/DEVEL/pxp/netstring/tools/unimap_to_ocaml/Makefile b/helm/DEVEL/pxp/netstring/tools/unimap_to_ocaml/Makefile
deleted file mode 100644 (file)
index ed42773..0000000
--- a/helm/DEVEL/pxp/netstring/tools/unimap_to_ocaml/Makefile
+++ /dev/null
@@ -1,15 +0,0 @@
-all: unimap_to_ocaml
-
-unimap_to_ocaml: unimap_to_ocaml.ml
-       ocamlfind ocamlc -g -package str -linkpkg -custom \
-               -o unimap_to_ocaml \
-               unimap_to_ocaml.ml
-
-clean:
-       rm -f *.cmi *.cmo *.cma *.cmx *.o *.a *.cmxa
-
-CLEAN: clean
-
-distclean: clean
-       rm -f *~ unimap_to_ocaml
-

diff --git a/helm/DEVEL/pxp/netstring/tools/unimap_to_ocaml/unimap_to_ocaml.ml b/helm/DEVEL/pxp/netstring/tools/unimap_to_ocaml/unimap_to_ocaml.ml
deleted file mode 100644 (file)
index 14a89e9..0000000
--- a/helm/DEVEL/pxp/netstring/tools/unimap_to_ocaml/unimap_to_ocaml.ml
+++ /dev/null
@@ -1,201 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-open Printf;;
-
-let comment_re = Str.regexp "#.*$";;
-let space_re = Str.regexp "[ \t\r\n]+";;
-
-let read_unimap_format_a fname f =
-  (* Reads a Unicode mapping in format A from a "local" code to Unicode.
-   * Returns a list of pairs (localcode, unicode).
-   *)
-  
-  let read_unimap_line() =
-    let s = input_line f in    (* may raise End_of_file *)
-    let s' = Str.global_replace comment_re "" s in
-    let words = Str.split space_re s' in
-    match words with
-       [] -> raise Not_found
-      | [ localcode; unicode ] ->
-         int_of_string localcode, int_of_string unicode
-      | _ ->
-         failwith ("File " ^ fname ^ ": Do not know what to do with:\n" ^ s')
-  in
-
-  let rec read_following_lines() =
-    try
-      let localcode, unicode = read_unimap_line() in 
-                               (* may raise End_of_file, Not_found *)
-      (localcode, unicode) :: read_following_lines()
-    with
-       Not_found -> read_following_lines()
-      | End_of_file -> []
-  in
-
-  read_following_lines()
-;;
-
-
-type from_uni_list =
-    U_nil
-  | U_single of (int * int)
-  | U_list of (int * int) list
-
-type from_unicode =
-    from_uni_list array;;
-  (* A hashtable with fixed size (256). A pair (unicode, localcode) is
-   * stored at the position unicode mod 256 in the array.
-   *)
-
-
-let make_bijection unimap =
-  (* unimap: a list of pairs (localcode, unicode)
-   * returns a pair of arrays (m_to_unicode, m_from_unicode) with:
-   *   - m_to_unicode.(localcode) = Some unicode, 
-   *                                 if the pair (localcode, unicode) exists
-   *     m_to_unicode.(x) = None otherwise
-   *   - m_from_unicode.(unicode lsr 8) = [ ...; (unicode,localcode); ... ]
-   *)
-
-  let m_to_unicode   = Array.create 256 None in
-  let m_from_unicode = Array.create 256 [] in
-
-  List.iter
-    (fun (localcode, unicode) ->
-       assert(localcode < 256);
-
-       (* Update m_to_unicode: *)
-       if m_to_unicode.(localcode) <> None then
-        failwith ("Local code point " ^ string_of_int localcode ^ 
-                  " mapped twice");
-       m_to_unicode.(localcode) <- Some unicode;
-
-       (* Update m_from_unicode: *)
-       let unilow = unicode land 255 in
-       if List.mem_assoc unicode (m_from_unicode.(unilow)) then
-        failwith ("Unicode code point " ^ string_of_int unicode ^ 
-                  " mapped twice");
-       m_from_unicode.(unilow) <- 
-         m_from_unicode.(unilow) @ [unicode,localcode];
-    )
-    unimap;
-
-  m_to_unicode, m_from_unicode
-;;
-
-
-let to_unimap_as_string to_unimap =
-  let make_repr x =
-    match x with
-       None -> -1
-      | Some u -> u
-  in
-  Marshal.to_string (Array.map make_repr to_unimap) [ Marshal.No_sharing ]
-;;
-
-
-let from_unimap_as_string from_unimap =
-  let make_repr l =
-    match l with
-       []    -> U_nil
-      | [u,l] -> U_single(u,l)
-      | _     -> U_list l
-  in
-  let m = Array.map make_repr from_unimap in
-  Marshal.to_string m [ Marshal.No_sharing ]
-;;
-
-
-let print_bijection f name m_to_unicode m_from_unicode =
-  (* Prints on file f this O'Caml code:
-   * let <name>_to_unicode = ...
-   * let <name>_from_unicode = ...
-   *)
-  fprintf f "let %s_to_unicode = lazy (Marshal.from_string \"%s\" 0 : int array);;\n" 
-    name 
-    (String.escaped (to_unimap_as_string m_to_unicode));
-
-  fprintf f "let %s_from_unicode = lazy (Marshal.from_string \"%s\" 0 : Netmappings.from_uni_list array);;\n "
-    name
-    (String.escaped (from_unimap_as_string m_from_unicode));
-;;
-
-
-let main() =
-  let files = ref [] in
-  let outch = ref (lazy stdout) in
-  Arg.parse
-      [ "-o", Arg.String (fun s -> outch := lazy (open_out s)),
-           " <file>   Write result to this file"]
-      (fun s -> files := !files @ [s])
-      "usage: unimap_to_ocaml file.unimap ...";
-  
-  (* First read in all unimaps: *)
-  let unimaps =
-    List.map
-      (fun filename ->
-        let mapname = Str.replace_first (Str.regexp "\.unimap$") "" 
-                                        (Filename.basename filename) in
-        let f = open_in filename in
-        prerr_endline ("Reading " ^ filename);
-        let unimap = read_unimap_format_a filename f in
-        close_in f;
-        mapname, unimap
-      )
-      !files
-  in
-
-  (* Second compute all bijections: *)
-  let bijections =
-    List.map
-      (fun (mapname, unimap) ->
-        prerr_endline ("Processing " ^ mapname);
-        let to_unicode, from_unicode = make_bijection unimap in
-        mapname, to_unicode, from_unicode
-      )
-      unimaps
-  in
-
-  let out = Lazy.force !outch in
-  (* Third output all results: *)
-  output_string out "(* WARNING! This is a generated file! *)\n";
-
-  List.iter
-    (fun (mapname, to_unicode, from_unicode) ->
-       print_bijection out mapname to_unicode from_unicode)
-    bijections;
-  List.iter
-    (fun (mapname, _, _) ->
-       fprintf out "Hashtbl.add Netmappings.to_unicode `Enc_%s %s_to_unicode;\n" 
-                  mapname mapname;
-       fprintf out "Hashtbl.add Netmappings.from_unicode `Enc_%s %s_from_unicode;\n" 
-                  mapname mapname;
-    )
-    (List.rev bijections);
-  fprintf out "();;\n";
-
-  close_out out
-;;
-
-
-main();;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.3  2000/08/29 00:48:52  gerd
- *     Conversion tables are now stored in marshalled form.
- *     New type for the conversion table Unicode to 8bit.
- *
- * Revision 1.2  2000/08/12 23:54:56  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/ocaml-findlib-0.4.0-1.i386.rpm b/helm/DEVEL/pxp/ocaml-findlib-0.4.0-1.i386.rpm
deleted file mode 100644 (file)
index 1877eea..0000000
Binary files a/helm/DEVEL/pxp/ocaml-findlib-0.4.0-1.i386.rpm and /dev/null differ

diff --git a/helm/DEVEL/pxp/ocaml-findlib-0.4.0-1.src.rpm b/helm/DEVEL/pxp/ocaml-findlib-0.4.0-1.src.rpm
deleted file mode 100644 (file)
index 6ae4bb2..0000000
Binary files a/helm/DEVEL/pxp/ocaml-findlib-0.4.0-1.src.rpm and /dev/null differ

diff --git a/helm/DEVEL/pxp/ocaml-findlib.spec b/helm/DEVEL/pxp/ocaml-findlib.spec
deleted file mode 100644 (file)
index 6d5cc6b..0000000
--- a/helm/DEVEL/pxp/ocaml-findlib.spec
+++ /dev/null
@@ -1,80 +0,0 @@
-%define toolname  findlib
-
-Summary: OCAML FindLib package manager
-Name: ocaml-%{toolname}
-Version: 0.4.0
-Release: 1
-Copyright: GPL-like
-Group: Development/Languages
-Source: http://www.ocaml-programming.de/packages/%{toolname}-%{version}.tar.gz
-Vendor:  Gerd Stolpmann
-Url: http://www.ocaml-programming.de/packages/documentation/%{toolname}/
-Prereq: fileutils, ocaml
-Requires: fileutils, ocaml
-
-%define dir_man      usr/man
-%define dir_bin      usr/bin
-%define dir_sitelib  usr/lib/ocaml/site-lib
-%define files_doc    LICENSE README INSTALL
-
-BuildRoot: /tmp/root-%{name}
-
-%description
-Provides a scheme to manage reusable software components (packages), 
-as collections of OCaml modules for which metainformation can be stored. 
-The library contains functions to look the directory up that
-stores a package, to query metainformation about a package, and 
-to retrieve dependency information about multiple packages.
-Metainformation includes a version string, the archives the package consists of, additional linker
-options, and dependencies dependent on other packages.
-
-%prep
-%setup -n %{toolname}
-./configure -mandir "/%{dir_man}" -bindir "/%{dir_bin}" -sitelib "/%{dir_sitelib}"
-
-%build
-make all
-make opt
-
-%install
-# Install binary, libs, manuals
-DIR_BIN="${RPM_BUILD_ROOT}/%{dir_bin}"
-DIR_MAN="${RPM_BUILD_ROOT}/%{dir_man}"
-DIR_SITELIB="${RPM_BUILD_ROOT}/%{dir_sitelib}"
-install -m 755 -d   "${DIR_BIN}"
-install -m 755 -d   "${DIR_MAN}"
-install -m 755 -d   "${DIR_SITELIB}"
-make install "OCAML_SITELIB=${DIR_SITELIB}" "OCAMLFIND_BIN=${DIR_BIN}" "OCAMLFIND_MAN=${DIR_MAN}"
-# Move doc files to root, if needed
-for F in %{files_doc} ; do test -f "./doc/${F}" && mv -f "./doc/${F}" . ; done
-
-# HTML manual
-if test -d doc/html ; then mv doc/html htmlman; else mkdir htmlman ; fi
-
-%post
-# Create a symbolic link to version-specific HTML manual 
-cd /usr/doc/HTML/
-if test -L "%{name}" ; then rm -f "%{name}" ; fi
-if test ! -e "%{name}" ; then ln -s "../%{name}-%{version}/htmlman" "%{name}" ; fi
-
-%postun
-cd /usr/doc/HTML/
-if test "$1" = "0" -a -L %{name} ; then rm -f %{name} ; fi
-
-
-%clean
-if test `dirname "${RPM_BUILD_ROOT}"` != "/" ; then rm -rf "${RPM_BUILD_ROOT}" ; fi
-
-%files
-%defattr(-,root,root)
-%doc %{files_doc} htmlman
-/%{dir_bin}
-/%{dir_man}/man1
-/%{dir_man}/man3
-/%{dir_man}/man5
-/%{dir_sitelib}
-
-
-%changelog
-* Fri Sep  1 2000 Olivier Montanuy <Olivier.Montanuy@wanadoo.fr> 
-- created and tested package, with html manual

diff --git a/helm/DEVEL/pxp/ocaml-netstring-0.9.3-2.i386.rpm b/helm/DEVEL/pxp/ocaml-netstring-0.9.3-2.i386.rpm
deleted file mode 100644 (file)
index e9dc283..0000000
Binary files a/helm/DEVEL/pxp/ocaml-netstring-0.9.3-2.i386.rpm and /dev/null differ

diff --git a/helm/DEVEL/pxp/ocaml-netstring-0.9.3-2.src.rpm b/helm/DEVEL/pxp/ocaml-netstring-0.9.3-2.src.rpm
deleted file mode 100644 (file)
index 3c20f54..0000000
Binary files a/helm/DEVEL/pxp/ocaml-netstring-0.9.3-2.src.rpm and /dev/null differ

diff --git a/helm/DEVEL/pxp/ocaml-netstring.spec b/helm/DEVEL/pxp/ocaml-netstring.spec
deleted file mode 100644 (file)
index 0735399..0000000
--- a/helm/DEVEL/pxp/ocaml-netstring.spec
+++ /dev/null
@@ -1,73 +0,0 @@
-%define toolname  netstring
-
-Summary: OCAML Netstring library
-Name: ocaml-%{toolname}
-Version: 0.9.3
-Release: 2
-Copyright: GPL-like
-Group: Development/Languages
-Source: http://www.ocaml-programming.de/packages/%{toolname}-%{version}.tar.gz
-Vendor:  Gerd Stolpmann
-Url: http://www.ocaml-programming.de/packages/documentation/%{toolname}/
-Prereq: fileutils, ocaml, ocaml-findlib
-Requires: fileutils, ocaml
-
-%define dir_sitelib  usr/lib/ocaml/site-lib
-%define files_doc    LICENSE README INSTALL
-BuildRoot: /tmp/root-%{name}
-
-%description
-A collection of string processing functions for Internet protocols
-- Parse MIME messages
-- Encode/decode Base 64, Quoted Printable, Q, URL-encoding   
-- CGI interface that allows users to upload files
-- Simple HTML parser 
-- URL parsing, printing and processing
-
-%prep
-%setup -n %{toolname}
-make clean
-
-%build
-make all
-make opt
-
-%install
-# Install binary, libs, manuals
-
-DIR_INSTALL="${RPM_BUILD_ROOT}/%{dir_sitelib}/%{toolname}"
-install -m 755 -d   "${DIR_INSTALL}"
-# Install in non-standard directory
-# replace "$(OCAMLFIND) install" or "ocamlfind install"
-cat Makefile | sed "s#[_A-Za-z\(\)\$]* install \$(NAME) #\$(TRICK) #" > Makefile.trick
-# Ugly trick: replace "findlib" by "cp"
-make -f Makefile.trick install        "TRICK=cp -f --target-directory=${DIR_INSTALL}"
-# Reference to obsolete CGI and BASE64 packages
-for CMD in cgi base64 ; do
-  cat Makefile | sed "s#[_A-Za-z\(\)\$]* install $CMD #\$(TRICK) #" > Makefile.trick
-  DIR="${RPM_BUILD_ROOT}/%{dir_sitelib}/${CMD}"
-  install -m 755 -d   "${DIR}"
-  make -f Makefile.trick "install-${CMD}"  "TRICK=cp -f --target-directory=${DIR}"
-done
-
-# Move doc files to root, if needed
-for F in %{files_doc} ; do test -f "./doc/${F}" && mv -f "./doc/${F}" . ; done
-
-%clean
-#if test `dirname "${RPM_BUILD_ROOT}"` != "/" ; then rm -rf "${RPM_BUILD_ROOT}" ; fi
-
-%files
-%defattr(-,root,root)
-%doc %{files_doc}
-/%{dir_sitelib}/%{toolname}
-# Reference to obsolete CGI and BASE64 packages
-/%{dir_sitelib}/cgi
-/%{dir_sitelib}/base64
-
-%changelog
-* Wed Sep  6 2000 Olivier Montanuy <Olivier.Montanuy@wanadoo.fr>
-- attempt to install cgi and base64 modules, for obsolete Makefiles
-
-* Fri Sep  1 2000 Olivier Montanuy <Olivier.Montanuy@wanadoo.fr> 
-- created and tested package
-

diff --git a/helm/DEVEL/pxp/ocaml-pxp-1.0-1.i386.rpm b/helm/DEVEL/pxp/ocaml-pxp-1.0-1.i386.rpm
deleted file mode 100644 (file)
index 3dac2d9..0000000
Binary files a/helm/DEVEL/pxp/ocaml-pxp-1.0-1.i386.rpm and /dev/null differ

diff --git a/helm/DEVEL/pxp/ocaml-pxp-1.0-1.src.rpm b/helm/DEVEL/pxp/ocaml-pxp-1.0-1.src.rpm
deleted file mode 100644 (file)
index c00caec..0000000
Binary files a/helm/DEVEL/pxp/ocaml-pxp-1.0-1.src.rpm and /dev/null differ

diff --git a/helm/DEVEL/pxp/ocaml-pxp.spec b/helm/DEVEL/pxp/ocaml-pxp.spec
deleted file mode 100644 (file)
index ee2080d..0000000
--- a/helm/DEVEL/pxp/ocaml-pxp.spec
+++ /dev/null
@@ -1,73 +0,0 @@
-%define toolname  pxp
-
-Summary: OCAML PXP XML library
-Name: ocaml-%{toolname}
-Version: 1.0
-Release: 1
-Copyright: GPL-like
-Group: Development/Languages
-Source: http://www.ocaml-programming.de/packages/%{toolname}-%{version}.tar.gz
-Vendor:  Gerd Stolpmann
-Url: http://www.ocaml-programming.de/packages/documentation/%{toolname}/
-Prereq: fileutils, ocaml, ocaml-findlib, ocaml-netstring
-Requires: fileutils, ocaml, ocaml-netstring
-
-%define dir_sitelib  usr/lib/ocaml/site-lib
-%define files_doc    LICENSE README INSTALL SPEC EXTENSIONS
-
-BuildRoot: /tmp/root-%{name}
-
-%description
-PXP is a validating parser for XML-1.0 written entirely in Objective Caml. 
-PXP stands for Polymorphic XML parser, emphasizes its most useful property: 
-the API is polymorphic and can be configured such that different objects are 
-used to store different types of elements. 
-PXP was formerly known as "Markup". 
-
-%prep
-%setup -n %{toolname}
-make clean
-
-%build
-make all
-make opt
-
-%install
-# Install binary, libs, manuals
-
-DIR_INSTALL="${RPM_BUILD_ROOT}/%{dir_sitelib}/%{toolname}"
-install -m 755 -d   "${DIR_INSTALL}"
-# Install in non-standard directory
-# replace "$(OCAMLFIND) install" or "ocamlfind install"
-cat Makefile | sed "s#[_A-Za-z\(\)\$]* install \$(NAME)#\$(TRICK)#" > Makefile.trick
-# Ugly trick: replace "findlib" by "cp"
-make -f Makefile.trick install "TRICK=cp -f --target-directory=${DIR_INSTALL}"
-
-# Move doc files to root, if needed
-for F in %{files_doc} ; do test -f "./doc/${F}" && mv -f "./doc/${F}" . ; done
-
-# HTML manual
-if test -d doc/manual/html ; then mv doc/manual/html htmlman; else mkdir htmlman ; fi
-
-
-# Create a symbolic link to version-specific HTML manual 
-%post
-cd /usr/doc/HTML/
-if test -L "%{name}" ; then rm -f "%{name}" ; fi
-if test ! -e "%{name}" ; then ln -s "../%{name}-%{version}/htmlman" "%{name}" ; fi
-
-%postun
-cd /usr/doc/HTML/
-if test "$1" = "0" -a -L %{name} ; then rm -f %{name} ; fi
-
-%clean
-if test `dirname "${RPM_BUILD_ROOT}"` != "/" ; then rm -rf "${RPM_BUILD_ROOT}" ; fi
-
-%files
-%defattr(-,root,root)
-%doc %{files_doc} htmlman examples
-/%{dir_sitelib}/%{toolname}
-
-%changelog
-* Fri Sep  1 2000 Olivier Montanuy <Olivier.Montanuy@wanadoo.fr> 
-- created and tested package

diff --git a/helm/DEVEL/pxp/pxp-1.0.tar.gz b/helm/DEVEL/pxp/pxp-1.0.tar.gz
deleted file mode 100644 (file)
index 9f6e019..0000000
Binary files a/helm/DEVEL/pxp/pxp-1.0.tar.gz and /dev/null differ

diff --git a/helm/DEVEL/pxp/pxp/.cvsignore b/helm/DEVEL/pxp/pxp/.cvsignore
deleted file mode 100644 (file)
index deb5b7f..0000000
--- a/helm/DEVEL/pxp/pxp/.cvsignore
+++ /dev/null
@@ -1,4 +0,0 @@
-*.cmo
-*.cmx
-*.cmi
-

diff --git a/helm/DEVEL/pxp/pxp/LICENSE b/helm/DEVEL/pxp/pxp/LICENSE
deleted file mode 100644 (file)
index 55182a7..0000000
--- a/helm/DEVEL/pxp/pxp/LICENSE
+++ /dev/null
@@ -1,22 +0,0 @@
-Copyright 1999 by Gerd Stolpmann
-
-The package "markup" is copyright by Gerd Stolpmann. 
-
-Permission is hereby granted, free of charge, to any person obtaining
-a copy of this document and the "markup" software (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 Gerd Stolpmann 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.

diff --git a/helm/DEVEL/pxp/pxp/META b/helm/DEVEL/pxp/pxp/META
deleted file mode 100644 (file)
index 020128a..0000000
--- a/helm/DEVEL/pxp/pxp/META
+++ /dev/null
@@ -1,20 +0,0 @@
-version = "1.0"
-requires = "netstring"
-description = "Validating parser for XML-1.0"
-archive(byte) = "pxp_types.cma 
-                 pxp_lex_iso88591.cma 
-                 pxp_lex_utf8.cma 
-                 pxp_engine.cma 
-                 pxp_utf8.cmo"
-archive(byte, pxp_without_utf8) = "pxp_types.cma 
-                 pxp_lex_iso88591.cma 
-                 pxp_engine.cma"
-archive(native) = "pxp_types.cmxa 
-                   pxp_lex_iso88591.cmxa 
-                   pxp_lex_utf8.cmxa 
-                   pxp_engine.cmxa 
-                   pxp_utf8.cmx"
-archive(native, pxp_without_utf8) = "pxp_types.cmxa 
-                 pxp_lex_iso88591.cmxa 
-                 pxp_engine.cmxa"
-

diff --git a/helm/DEVEL/pxp/pxp/Makefile b/helm/DEVEL/pxp/pxp/Makefile
deleted file mode 100644 (file)
index f08eab9..0000000
--- a/helm/DEVEL/pxp/pxp/Makefile
+++ /dev/null
@@ -1,105 +0,0 @@
-# make all:            make bytecode archive
-# make opt:            make native archive
-# make install:        install bytecode archive, and if present, native archive
-# make uninstall:      uninstall package
-# make clean:          remove intermediate files (in this directory)
-# make CLEAN:           remove intermediate files (recursively)
-# make distclean:      remove any superflous files (recursively)
-# make release:        cleanup, create archive, tag CVS module 
-#                      (for developers)
-
-#----------------------------------------------------------------------
-
-include Makefile.conf
-
-.PHONY: all
-all: 
-       $(MAKE) -C m2parsergen all
-       $(MAKE) -C tools/ucs2_to_utf8 all
-       $(MAKE) -f Makefile.code all
-       $(MAKE) -C compatibility all
-
-.PHONY: opt
-opt: 
-       $(MAKE) -C m2parsergen all
-       $(MAKE) -C tools/ucs2_to_utf8 all
-       $(MAKE) -f Makefile.code opt
-       $(MAKE) -C compatibility opt
-
-.PHONY: install
-install: all tmp/pxp_entity.mli
-       files=`tools/collect_files *.cmi *.cma *.cmxa *.a \
-               pxp_utf8.cmo pxp_utf8.cmx pxp_utf8.o` && \
-       ocamlfind install $(NAME) $(MLI) tmp/pxp_entity.mli $$files META
-
-.PHONY: uninstall
-uninstall:
-       ocamlfind remove $(NAME)
-
-.PHONY: markup-install
-markup-install:
-       $(MAKE) -C compatibility install
-
-.PHONY: markup-uninstall
-markup-uninstall:
-       $(MAKE) -C compatibility uninstall
-
-tmp/pxp_entity.mli: pxp_entity.ml
-       mkdir -p tmp
-       rm -f tmp/pxp_entity.*
-       cp pxp_entity.ml tmp
-       echo '(* Sorry, this is currently undocumented *)' >tmp/mli
-       ocamlc -i -c tmp/pxp_entity.ml >>tmp/mli
-       mv tmp/mli tmp/pxp_entity.mli
-
-.PHONY: clean
-clean:
-       rm -f *.cmi *.cmo *.cma *.cmx *.o *.a *.cmxa *.new *.old
-       rm -f pxp_yacc.ml
-       touch lexers/objects_iso88591 lexers/objects_utf8 lexers/depend
-       $(MAKE) -C lexers clean
-       $(MAKE) -C compatibility clean
-
-.PHONY: CLEAN
-CLEAN: clean
-       $(MAKE) -C doc CLEAN
-       $(MAKE) -C examples CLEAN
-       $(MAKE) -C rtests CLEAN
-       $(MAKE) -C m2parsergen CLEAN
-       touch tools/ucs2_to_utf8/depend
-       $(MAKE) -C tools/ucs2_to_utf8 clean
-
-.PHONY: distclean
-distclean: clean
-       rm -f *~ depend depend.pkg
-       $(MAKE) -C doc distclean
-       $(MAKE) -C examples distclean
-       $(MAKE) -C rtests distclean
-       $(MAKE) -C m2parsergen distclean
-       touch tools/ucs2_to_utf8/depend
-       $(MAKE) -C tools/ucs2_to_utf8 clean
-       $(MAKE) -C compatibility distclean
-
-RELEASE: META
-       awk '/version/ { print substr($$3,2,length($$3)-2) }' META >RELEASE
-
-.PHONY: dist
-dist: RELEASE
-       r=`head -1 RELEASE`; cd ..; gtar czf $(NAME)-$$r.tar.gz --exclude='*/CVS*' --exclude="*~" --exclude="*/depend.pkg" --exclude="*/depend" --exclude="*/oo_questions*" --exclude="*/testsamples*" --exclude="*/tmp/*" --exclude="*reptil*" --exclude="*/doc/common.xml" --exclude="*/doc/config.xml" --exclude="*.fig.bak" --exclude="*/ps/pic*" --exclude="*/examples/panel*" --exclude="*/examples/xmlforms_gtk*" --exclude="*/Mail*" $(NAME)/*
-
-.PHONY: tag-release
-tag-release: RELEASE
-       r=`head -1 RELEASE | sed -e s/\\\./-/g`; cd ..; cvs tag -F $(NAME)-$$r markup
-
-.PHONY: release
-release: distclean
-       $(MAKE) tag-release
-       $(MAKE) dist
-
-.PHONY: dev
-dev:
-       $(MAKE) all
-       -$(MAKE) uninstall
-       $(MAKE) install
-       $(MAKE) -C examples/validate distclean
-       $(MAKE) -C examples/validate validate

diff --git a/helm/DEVEL/pxp/pxp/Makefile.code b/helm/DEVEL/pxp/pxp/Makefile.code
deleted file mode 100644 (file)
index 3afed39..0000000
--- a/helm/DEVEL/pxp/pxp/Makefile.code
+++ /dev/null
@@ -1,96 +0,0 @@
-# make all:            make bytecode archives
-# make opt:            make native archives
-#----------------------------------------------------------------------
-
-include Makefile.conf
-
-all: 
-       $(MAKE) -f Makefile.code pxp_types.cma
-       $(MAKE) -f Makefile.code pxp_lex_iso88591.cma
-       if [ "x$(UTF8_SUPPORT)" = "xyes" ]; then $(MAKE) -f Makefile.code pxp_lex_utf8.cma; else rm -f pxp_lex_utf8.cma; fi
-       $(MAKE) -f Makefile.code pxp_engine.cma
-       if [ "x$(UTF8_SUPPORT)" = "xyes" ]; then $(MAKE) -f Makefile.code pxp_utf8.cmo; else rm -f pxp_utf8.cmo; fi
-
-opt:
-       $(MAKE) -f Makefile.code pxp_types.cmxa
-       $(MAKE) -f Makefile.code pxp_lex_iso88591.cmxa
-       if [ "x$(UTF8_SUPPORT)" = "xyes" ]; then $(MAKE) -f Makefile.code pxp_lex_utf8.cmxa; else rm -f pxp_lex_utf8.cmxa; fi
-       $(MAKE) -f Makefile.code pxp_engine.cmxa
-       if [ "x$(UTF8_SUPPORT)" = "xyes" ]; then $(MAKE) -f Makefile.code pxp_utf8.cmx; else rm -f pxp_utf8.cmx; fi
-
-#----------------------------------------------------------------------
-
-pxp_types.cma: $(OBJECTS_types)
-       $(OCAMLC) -a -o pxp_types.cma $(OBJECTS_types)
-
-pxp_types.cmxa: $(XOBJECTS_types)
-       $(OCAMLOPT) -a -o pxp_types.cmxa $(XOBJECTS_types)
-
-pxp_engine.cma: $(OBJECTS_engine)
-       $(OCAMLC) -a -o pxp_engine.cma $(OBJECTS_engine)
-
-pxp_engine.cmxa: $(XOBJECTS_engine)
-       $(OCAMLOPT) -a -o pxp_engine.cmxa $(XOBJECTS_engine)
-
-
-# The following rules are "phony" to force 'make' to go into the
-# "lexers" subdirectory.
-
-.PHONY: pxp_lex_iso88591.cma
-pxp_lex_iso88591.cma: $(CMI_types)
-       $(MAKE) -C lexers all_iso88591
-       cp lexers/pxp_lex_iso88591.cma .
-
-.PHONY: pxp_lex_iso88591.cmxa
-pxp_lex_iso88591.cmxa: $(CMI_types)
-       $(MAKE) -C lexers opt_iso88591
-       cp lexers/pxp_lex_iso88591.cmxa lexers/pxp_lex_iso88591.a .
-
-.PHONY: pxp_lex_utf8.cma
-pxp_lex_utf8.cma: $(CMI_types)
-       $(MAKE) -C lexers all_utf8
-       cp lexers/pxp_lex_utf8.cma .
-
-.PHONY: pxp_lex_utf8.cmxa
-pxp_lex_utf8.cmxa: $(CMI_types)
-       $(MAKE) -C lexers opt_utf8
-       cp lexers/pxp_lex_utf8.cmxa lexers/pxp_lex_utf8.a .
-
-#----------------------------------------------------------------------
-# general rules:
-
-OPTIONS   =
-OCAMLC    = $(OCAMLFIND) ocamlc -package "$(PACKAGES)" \
-              -g -I lexers $(OPTIONS) $(ROPTIONS)
-OCAMLOPT  = $(OCAMLFIND) ocamlopt -package "$(PACKAGES)" \
-              -p -I lexers $(OPTIONS) $(ROPTIONS)
-OCAMLDEP  = ocamldep $(OPTIONS)
-OCAMLFIND = ocamlfind
-
-depend: *.ml *.mli pxp_yacc.ml
-       $(OCAMLDEP) *.ml *.mli >depend
-
-.SUFFIXES: .cmo .cmi .cmx .ml .mli .mll .m2y
-
-.ml.cmx:
-       $(OCAMLOPT) -c $<
-
-.ml.cmo:
-       $(OCAMLC) -c $<
-
-.mli.cmi:
-       $(OCAMLC) -c $<
-
-.mll.ml:
-       ocamllex $<
-
-.m2y.ml:
-       ./m2parsergen/m2parsergen < $< >`basename $< .m2y`.ml || { rm -f `basename $< .m2y`.ml; false; }
-
-*.mli:
-
-
-# Generated dependencies:
-
-include depend
-

diff --git a/helm/DEVEL/pxp/pxp/Makefile.conf b/helm/DEVEL/pxp/pxp/Makefile.conf
deleted file mode 100644 (file)
index 749c702..0000000
--- a/helm/DEVEL/pxp/pxp/Makefile.conf
+++ /dev/null
@@ -1,37 +0,0 @@
-# User-configurable section:
-
-# yes or no: Do you want that the parser has support for the internal
-# representation as UTF-8 strings? "yes" is recommended, but the parser
-# becomes much bigger 
-UTF8_SUPPORT = yes
-
-# --- End of User-configurable section.
-
-# Settings.
-
-NAME = pxp
-PACKAGES = netstring
-
-# Caml objects that are needed by the lexers:
-OBJECTS_types = \
-           pxp_types.cmo pxp_lexer_types.cmo
-
-CMI_types = $(OBJECTS_types:.cmo=.cmi)
-
-# Caml objects that depend on the lexers:
-OBJECTS_engine = \
-          pxp_lexers.cmo \
-           pxp_dfa.cmo \
-          pxp_aux.cmo pxp_reader.cmo \
-           pxp_entity.cmo pxp_dtd.cmo pxp_document.cmo \
-          pxp_yacc.cmo pxp_codewriter.cmo
-
-# Same as native objects:
-XOBJECTS_types  = $(OBJECTS_types:.cmo=.cmx)
-XOBJECTS_engine = $(OBJECTS_engine:.cmo=.cmx)
-
-# .mli files to install:
-
-MLI = pxp_document.mli pxp_dtd.mli \
-      pxp_types.mli pxp_yacc.mli \
-      pxp_codewriter.mli pxp_dfa.mli

diff --git a/helm/DEVEL/pxp/pxp/RELEASE b/helm/DEVEL/pxp/pxp/RELEASE
deleted file mode 100644 (file)
index d3827e7..0000000
--- a/helm/DEVEL/pxp/pxp/RELEASE
+++ /dev/null
@@ -1 +0,0 @@
-1.0

diff --git a/helm/DEVEL/pxp/pxp/compatibility/.cvsignore b/helm/DEVEL/pxp/pxp/compatibility/.cvsignore
deleted file mode 100644 (file)
index deb5b7f..0000000
--- a/helm/DEVEL/pxp/pxp/compatibility/.cvsignore
+++ /dev/null
@@ -1,4 +0,0 @@
-*.cmo
-*.cmx
-*.cmi
-

diff --git a/helm/DEVEL/pxp/pxp/compatibility/META b/helm/DEVEL/pxp/pxp/compatibility/META
deleted file mode 100644 (file)
index 441e30a..0000000
--- a/helm/DEVEL/pxp/pxp/compatibility/META
+++ /dev/null
@@ -1,6 +0,0 @@
-version = "PXP-emulator"
-requires = "pxp"
-description = "Validating parser for XML-1.0"
-archive(byte) = "markup.cma"
-archive(native) = "markup.cmxa"
-

diff --git a/helm/DEVEL/pxp/pxp/compatibility/Makefile b/helm/DEVEL/pxp/pxp/compatibility/Makefile
deleted file mode 100644 (file)
index 187116c..0000000
--- a/helm/DEVEL/pxp/pxp/compatibility/Makefile
+++ /dev/null
@@ -1,40 +0,0 @@
-# make all:            make bytecode archive
-# make opt:            make native archive
-# make install:        install bytecode archive, and if present, native archive
-# make uninstall:      uninstall package
-# make clean:          remove intermediate files (in this directory)
-# make CLEAN:           remove intermediate files (recursively)
-# make distclean:      remove any superflous files (recursively)
-
-#----------------------------------------------------------------------
-
-include Makefile.conf
-
-.PHONY: all
-all: 
-       $(MAKE) -f Makefile.code all
-
-.PHONY: opt
-opt: 
-       $(MAKE) -f Makefile.code opt
-
-.PHONY: install
-install: all 
-       files=`../tools/collect_files *.cmi *.cma *.cmxa *.a` && \
-       ocamlfind install $(NAME) $(MLI) $$files META
-
-.PHONY: uninstall
-uninstall:
-       ocamlfind remove $(NAME)
-
-.PHONY: clean
-clean:
-       rm -f *.cmi *.cmo *.cma *.cmx *.o *.a *.cmxa *.new *.old
-
-.PHONY: CLEAN
-CLEAN: clean
-
-.PHONY: distclean
-distclean: clean
-       rm -f *~ depend depend.pkg
-

diff --git a/helm/DEVEL/pxp/pxp/compatibility/Makefile.code b/helm/DEVEL/pxp/pxp/compatibility/Makefile.code
deleted file mode 100644 (file)
index 2733faa..0000000
--- a/helm/DEVEL/pxp/pxp/compatibility/Makefile.code
+++ /dev/null
@@ -1,50 +0,0 @@
-# make all:            make bytecode archives
-# make opt:            make native archives
-#----------------------------------------------------------------------
-
-include Makefile.conf
-
-.PHONY: all
-all: markup.cma
-
-.PHONY: opt
-opt: markup.cmxa
-
-#----------------------------------------------------------------------
-
-markup.cma: $(OBJECTS)
-       $(OCAMLC) -a -o markup.cma $(OBJECTS)
-
-markup.cmxa: $(XOBJECTS)
-       $(OCAMLOPT) -a -o markup.cmxa $(XOBJECTS)
-
-#----------------------------------------------------------------------
-# general rules:
-
-OPTIONS   =
-OCAMLC    = ocamlfind ocamlc -g -I .. -package netstring $(OPTIONS) $(ROPTIONS)
-OCAMLOPT  = ocamlfind ocamlopt -p -I .. -package netstring $(OPTIONS) $(ROPTIONS)
-OCAMLDEP  = ocamldep $(OPTIONS)
-OCAMLFIND = ocamlfind
-
-depend: *.ml *.mli
-       $(OCAMLDEP) *.ml *.mli >depend
-
-.SUFFIXES: .cmo .cmi .cmx .ml .mli
-
-.ml.cmx:
-       $(OCAMLOPT) -c $<
-
-.ml.cmo:
-       $(OCAMLC) -c $<
-
-.mli.cmi:
-       $(OCAMLC) -c $<
-
-*.mli:
-
-
-# Generated dependencies:
-
-include depend
-

diff --git a/helm/DEVEL/pxp/pxp/compatibility/Makefile.conf b/helm/DEVEL/pxp/pxp/compatibility/Makefile.conf
deleted file mode 100644 (file)
index 061d0ca..0000000
--- a/helm/DEVEL/pxp/pxp/compatibility/Makefile.conf
+++ /dev/null
@@ -1,9 +0,0 @@
-NAME = markup
-
-OBJECTS = markup_types.cmo markup_dtd.cmo markup_reader.cmo \
-         markup_document.cmo markup_yacc.cmo
-XOBJECTS = $(OBJECTS:.cmo=.cmx)
-
-MLI = markup_document.mli markup_dtd.mli \
-      markup_types.mli markup_yacc.mli markup_reader.mli
-

diff --git a/helm/DEVEL/pxp/pxp/compatibility/README b/helm/DEVEL/pxp/pxp/compatibility/README
deleted file mode 100644 (file)
index 5008673..0000000
--- a/helm/DEVEL/pxp/pxp/compatibility/README
+++ /dev/null
@@ -1,21 +0,0 @@
-This directory contains the modules for Markup-0.2.10
-compatibility. The modules consist mainly of wrapper classes for the
-new PXP classes, and translate the old methods to the new ones.
-
-Please note that the compatibility is not perfect. Sometimes there are
-new methods which do not exist in Markup-0.2.10, and sometimes even
-existing methods changed their signature. I have tried to avoid that,
-but there are some ugly cases which are hard to solve without such
-modifications. 
-
-Translating old methods into new methods costs time and
-memory. Because of this, it is best to consider the compatibility
-modules as migration path to PXP: You can test whether PXP parses your
-input files, and you can compare the old API with the new API
-directly. (However, it is hard to test new features of PXP with the
-compatibility modules; the old API does not reflect the new features.)
-
-The compatibility modules are currently maintained, but that will stop
-once PXP has been established.
-
-(Gerd)

diff --git a/helm/DEVEL/pxp/pxp/compatibility/markup_document.ml b/helm/DEVEL/pxp/pxp/compatibility/markup_document.ml
deleted file mode 100644 (file)
index bbc4979..0000000
--- a/helm/DEVEL/pxp/pxp/compatibility/markup_document.ml
+++ /dev/null
@@ -1,374 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *)
-
-type node_type = 
-    T_element of string
-  | T_data
-
-class type [ 'node ] extension = [ 'node ] Pxp_document.extension
-
-class type [ 'ext, 'node ] pxp_extension_type =
-object ('self)
-    method clone : 'self
-    method node : 'self Pxp_document.node
-    method set_node : 'self Pxp_document.node -> unit
-
-    method markup_node : 'node
-    method set_markup_node : 'node -> unit
-
-    method set_index : 'self Pxp_yacc.index -> unit
-    method index : 'self Pxp_yacc.index
-  end
-;;
-
-
-class type [ 'ext ] node = 
-  object ('self)
-    constraint 'ext = 'ext node #extension
-    method pxp_node : (('ext, 'ext node) pxp_extension_type) Pxp_document.node
-
-    method extension : 'ext
-    method delete : unit
-    method parent : 'ext node
-    method root : 'ext node
-    method orphaned_clone : 'ext node
-    method orphaned_flat_clone : 'ext node
-    method add_node : 'ext node -> unit
-    method add_pinstr : Markup_dtd.proc_instruction -> unit
-    method pinstr : string -> Markup_dtd.proc_instruction list
-    method pinstr_names : string list
-    method sub_nodes : 'ext node list
-    method iter_nodes : ('ext node -> unit) -> unit
-    method iter_nodes_sibl :
-      ('ext node option -> 'ext node -> 'ext node option -> unit) -> unit
-    method set_nodes : 'ext node list -> unit
-    method data : string
-    method node_type : node_type
-    method attribute : string -> Markup_types.att_value
-    method attribute_names : string list
-    method attribute_type : string -> Markup_types.att_type
-    method attributes : (string * Markup_types.att_value) list
-    method required_string_attribute : string -> string
-    method required_list_attribute : string -> string list
-    method optional_string_attribute : string -> string option
-    method optional_list_attribute : string -> string list
-    method quick_set_attributes : (string * Markup_types.att_value) list -> unit
-    method find : string -> 'ext node
-    method reset_finder : unit
-    method dtd : Markup_dtd.dtd
-    method create_element :
-      Markup_dtd.dtd -> node_type -> (string * string) list -> 'ext node
-    method create_data : Markup_dtd.dtd -> string -> 'ext node
-    method local_validate : unit
-    method keep_always_whitespace_mode : unit
-    method write_compact_as_latin1 : Markup_types.output_stream -> unit
-    method internal_adopt : 'ext node option -> unit
-    method internal_delete : 'ext node -> unit
-    method internal_init : Markup_dtd.dtd -> string -> (string * string) list -> unit
-  end
-;;
-
-
-class [ 'ext ] pxp_extension init_markup_node =
-  (object (self : 'self)
-    (* constraint 'ext = 'ext node #extension *)
-    val mutable pxp_node = (None : 
-                             'self Pxp_document.node option)
-    (* 'ext pxp_extension Pxp_document.node option *)
-    val mutable markup_node = (init_markup_node : 'ext node)
-
-    val mutable index = (None : 'self Pxp_yacc.index option)
-
-    method clone =
-      {< >}
-
-    method node =
-      match pxp_node with
-          None ->
-            assert false
-        | Some n -> n
-
-    method set_node n =
-      pxp_node <- Some n
-
-    method markup_node = markup_node
-
-    method set_markup_node n = markup_node <- n
-
-    method set_index ix =
-      index <- Some ix
-
-    method index = 
-      match index with
-         None -> assert false
-       | Some x -> x
-
-   end
-     : ['ext, 'ext node] pxp_extension_type )
-;;
-
-
-class [ 'ext ] emulate_markup_node init_ext init_pxp_node = 
-  object (self)
-    constraint 'ext = 'ext node #extension
-    val mutable pxp_node = (init_pxp_node : 
-                             ('ext, 'ext #node) 
-                             pxp_extension_type Pxp_document.node option)
-    val mutable extension = (init_ext : 'ext)
-
-    method pxp_node =
-      match pxp_node with
-         None   -> assert false
-       | Some n -> n 
-
-    method extension = extension
-    method delete = self # pxp_node # delete
-    method parent = self # pxp_node # parent # extension # markup_node
-    method root   = self # pxp_node # root # extension # markup_node
-
-    method orphaned_clone =
-      let ext' = extension # clone in
-      let pxp' = self # pxp_node # orphaned_clone in
-      let n = new emulate_markup_node ext' (Some pxp') in
-      ext' # set_node (n : 'ext #node  :> 'ext node);
-      pxp' # extension # set_markup_node n;
-      n
-
-     method orphaned_flat_clone =
-      let ext' = extension # clone in
-      let pxp' = self # pxp_node # orphaned_flat_clone in
-      let n = new emulate_markup_node ext' (Some pxp') in
-      ext' # set_node (n : 'ext #node  :> 'ext node);
-      pxp' # extension # set_markup_node n;
-      n
-
-     method dtd = self # pxp_node # dtd
-
-     method add_node (n : 'ext node) =
-       let n_pxp = n # pxp_node in
-       self # pxp_node # add_node n_pxp
-
-     method add_pinstr pi =
-       self # pxp_node # add_pinstr pi
-
-     method sub_nodes =
-       let l = self # pxp_node # sub_nodes in
-       List.map (fun n_pxp -> n_pxp # extension # markup_node) l
-
-     method pinstr name =
-       self # pxp_node # pinstr name
-
-     method pinstr_names =
-       self # pxp_node # pinstr_names
-
-     method iter_nodes f =
-       self # pxp_node # iter_nodes
-        (fun n_pxp -> f (n_pxp # extension # markup_node))
-
-     method iter_nodes_sibl f =
-       self # pxp_node # iter_nodes_sibl
-        (fun left_pxp node_pxp right_pxp ->
-           let left =
-             match left_pxp with 
-                 None       -> None
-               | Some n_pxp -> Some (n_pxp # extension # markup_node) in
-           let right =
-             match right_pxp with 
-                 None       -> None
-               | Some n_pxp -> Some (n_pxp # extension # markup_node) in
-           let node =
-             node_pxp # extension # markup_node in
-           f left node right
-        )
-
-     method set_nodes (l : 'ext node list) =
-       let l_pxp = List.map (fun n -> n # pxp_node) l in
-       self # pxp_node # set_nodes l_pxp
-
-     method data = self # pxp_node # data
-
-     method node_type =
-       match self # pxp_node # node_type with
-          Pxp_document.T_data         -> T_data
-        | Pxp_document.T_element name -> T_element name
-        | Pxp_document.T_super_root   -> T_element "-vr"
-        | Pxp_document.T_pinstr _     -> T_element "-pi"
-        | _ -> assert false
-
-     method attribute name =
-       self # pxp_node # attribute name
-
-     method attribute_names =
-       self # pxp_node # attribute_names
-
-     method attribute_type name =
-       self # pxp_node # attribute_type name
-
-     method attributes =
-       self # pxp_node # attributes
-
-     method required_string_attribute name =
-       self # pxp_node # required_string_attribute name
-
-     method required_list_attribute name =
-       self # pxp_node # required_list_attribute name
-
-     method optional_string_attribute name =
-       self # pxp_node # optional_string_attribute name
-
-     method optional_list_attribute name =
-       self # pxp_node # optional_list_attribute name
-
-     method quick_set_attributes l =
-       self # pxp_node # quick_set_attributes l
-
-     method find (name : string) =
-       let index = self # root # pxp_node # extension # index in
-       let n = index # find name in (* may raise Not_found *)
-       n # extension # markup_node
-
-     method reset_finder = ()
-
-     method create_element dtd nt atts =
-       let nt_pxp =
-        match nt with
-            T_data -> Pxp_document.T_data
-          | T_element name -> Pxp_document.T_element name in
-       let node_pxp =
-        self # pxp_node # create_element dtd nt_pxp atts in
-       let ext' = extension # clone in
-       let n = new emulate_markup_node ext' (Some node_pxp) in
-       ext' # set_node (n : 'ext #node  :> 'ext node);
-       node_pxp # extension # set_markup_node n;
-       n
-
-     method create_data dtd s =
-       let node_pxp =
-        self # pxp_node # create_data dtd s in
-       let ext' = extension # clone in
-       let n = new emulate_markup_node ext' (Some node_pxp) in
-       ext' # set_node (n : 'ext #node  :> 'ext node);
-       node_pxp # extension # set_markup_node n;
-       n
-
-     method keep_always_whitespace_mode =
-       self # pxp_node # keep_always_whitespace_mode
-
-     method write_compact_as_latin1 out =
-       self # pxp_node # write_compact_as_latin1 out
-
-     method local_validate =
-       self # pxp_node # local_validate()
-
-     method internal_adopt (p:'ext node option) =
-       assert false;
-       ()
-
-     method internal_delete (n:'ext node) =
-       assert false;
-       ()
- 
-     method internal_init (d:Markup_dtd.dtd) (s:string) (atts:(string*string)list) =
-       assert false;
-       ()
-  end
-;;
-
-class [ 'ext ] data_impl ext data =
-  object (self)
-    inherit [ 'ext ] emulate_markup_node ext None
-    constraint 'ext = 'ext node #extension
-    initializer
-      if data <> "" then
-       failwith "Emulation of Markup_document: Cannot instantiate data node with non-empty string";
-      let self' = (self : 'ext #node :> 'ext node ) in
-      pxp_node <- Some (new Pxp_document.data_impl (new pxp_extension self'))
-
-  end
-;;
-
-class [ 'ext ] element_impl ext =
-  object (self)
-    inherit [ 'ext ] emulate_markup_node ext None
-    initializer
-      let self' = (self : 'ext #node :> 'ext node ) in
-      pxp_node <- Some (new Pxp_document.element_impl (new pxp_extension self'))
-  end
-;;
-
-
-class [ 'ext ] document w =
-  object (self)
-    val pxp_doc = new Pxp_document.document 
-                   (w : Markup_types.collect_warnings :> Pxp_types.collect_warnings)
-
-    val mutable standalone_flag = false
-
-    method init_xml_version v =
-      pxp_doc # init_xml_version v
-
-    method xml_version =
-      pxp_doc # xml_version
-
-    method init_xml_standalone b =
-      standalone_flag <- b
-
-    method xml_standalone = standalone_flag
-
-    method init_root (r : 'ext node) =
-      pxp_doc # init_root (r # pxp_node);
-      self # dtd # set_standalone_declaration standalone_flag
-        (* questionable *)
-
-    method root =
-      let pxp_root = pxp_doc # root in
-      pxp_root # extension # markup_node
-
-    method dtd =
-      pxp_doc # dtd
-
-    method add_pinstr pi =
-      pxp_doc # add_pinstr pi
-
-    method pinstr name =
-      pxp_doc # pinstr name
-
-    method pinstr_names =
-      pxp_doc # pinstr_names
-
-    method write_compact_as_latin1 out =
-      pxp_doc # write_compact_as_latin1 out
-
-  end
-;;
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:30  lpadovan
- * Initial revision
- *
- * Revision 1.6  2000/08/18 20:19:00  gerd
- *     Changed the emulation: there are now wrapper objects for nodes.
- * This was necessary because node_type changed in PXP such that it became
- * incompatible with Markup's node_type.
- *
- * Revision 1.5  2000/07/14 21:35:35  gerd
- *     Updated because of the simplification of Pxp_types.collect_warnings.
- *
- * Revision 1.4  2000/07/08 17:40:50  gerd
- *     Updated the simulation.
- *
- * Revision 1.3  2000/06/14 22:19:27  gerd
- *     Update because of additional 'encoding' methods.
- *
- * Revision 1.2  2000/05/30 00:08:40  gerd
- *     Bugfix.
- *
- * Revision 1.1  2000/05/29 23:43:51  gerd
- *     Initial compatibility revision.
- *
- *)
-

diff --git a/helm/DEVEL/pxp/pxp/compatibility/markup_document.mli b/helm/DEVEL/pxp/pxp/compatibility/markup_document.mli
deleted file mode 100644 (file)
index 2e37f0f..0000000
--- a/helm/DEVEL/pxp/pxp/compatibility/markup_document.mli
+++ /dev/null
@@ -1,420 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * Markup! The validating XML parser for Objective Caml.
- * Copyright 1999 by Gerd Stolpmann. See LICENSE for details.
- *
- * THIS IS THE markup-0.2.10 COMPATIBLE INTERFACE TO markup_document.mli.
- * It corresponds to revision 1.13 of markup_document.mli.
- *)
-
-(**********************************************************************)
-(*                                                                    *)
-(* Markup_document:                                                   *)
-(*     Object model of the document/element instances                 *)
-(*                                                                    *)
-(**********************************************************************)
-
-
-(* ======================================================================
- * OVERVIEW
- *
- * class type node ............. The common class type of the nodes of
- *                               the element tree. Nodes are either
- *                               elements (inner nodes) or data nodes
- *                               (leaves)
- * class type extension ........ The minimal properties of the so-called
- *                               extensions of the nodes: Nodes can be
- *                               customized by applying a class parameter
- *                               that adds methods/values to nodes.
- * class data_impl : node ...... Implements data nodes.
- * class element_impl : node ... Implements element nodes
- * class document .............. A document is an element with some additional
- *                               properties
- *
- * ======================================================================
- *
- * THE STRUCTURE OF NODE TREES:
- *
- * Every node except the root node has a parent node. The parent node is
- * always an element, because data nodes never contain other nodes.
- * In the other direction, element nodes may have children; both elements
- * and data nodes are possible as children.
- * Every node knows its parent (if any) and all its children (if any);
- * the linkage is maintained in both directions. A node without a parent
- * is called a root.
- * It is not possible that a node is the child of two nodes (two different nodes
- * or a multiple child of the same node).
- * You can break the connection between a node and its parent; the method
- * "delete" performs this operations and deletes the node from the parent's
- * list of children. The node is now a root, for itself and for all
- * subordinate nodes. In this context, the node is also called an orphan,
- * because it has lost its parent (this is a bit misleading because the
- * parent is not always the creator of a node).
- * In order to simplify complex operations, you can also set the list of
- * children of an element. Nodes that have been children before are unchanged;
- * new nodes are added (and the linkage is set up), nodes no more occurring
- * in the list are handled if they have been deleted.
- * If you try to add a node that is not a root (either by an "add" or by a
- * "set" operation) the operation fails.
- *
- * CREATION OF NODES
- *
- * The class interface supports creation of nodes by cloning a so-called
- * exemplar. The idea is that it is sometimes useful to implement different
- * element types by different classes, and to implement this by looking up
- * exemplars.
- * Imagine you have three element types A, B, and C, and three classes
- * a, b, and c implementing the node interface (for example, by providing
- * different extensions, see below). The XML parser can be configured to
- * have a lookup table
- *   { A --> a0,  B --> b0, C --> c0 }
- * where a0, b0, c0 are exemplars of the classes a, b, and c, i.e. empty
- * objects belonging to these classes. If the parser finds an instance of
- * A, it looks up the exemplar a0 of A and clones it (actually, the method
- * "create_element" performs this for elements, and "create_data" for data
- * nodes). Clones belong to the same class as the original nodes, so the
- * instances of the elements have the same classes as the configured
- * exemplars.
- * Note: This technique assumes that the interface of all exemplars is the
- * same!
- *
- * THE EXTENSION
- *
- * The class type node and all its implementations have a class parameter
- * 'ext which must at least fulfil the properties of the class type "extension".
- * The idea is that you can add properties, for example:
- *
- * class my_extension =
- *   object
- *     (* minimal properties required by class type "extension": *)
- *     method clone = ...
- *     method node = ...
- *     method set_node n = ...
- *     (* here my own methods: *)
- *     method do_this_and_that ...
- *   end
- *
- * class my_element_impl = [ my_extension ] element_impl
- * class my_data_impl    = [ my_extension ] data_impl
- *
- * The whole XML parser is parameterized with 'ext, so your extension is
- * visible everywhere (this is the reason why extensibility is solved by
- * parametric polymorphism and not by inclusive polymorphism (subtyping)).
- *
- *
- * SOME COMPLICATED TYPE EXPRESSIONS
- *
- * Sometimes the following type expressions turn out to be necessary:
- *
- * 'a node extension as 'a
- *      This is the type of an extension that belongs to a node that
- *      has an extension that is the same as we started with.
- *
- * 'a extension node as 'a
- *      This is the type of a node that has an extension that belongs to a
- *      node of the type we started with.
- *
- *
- * DOCUMENTS
- * ...
- *
- * ======================================================================
- *
- * SIMPLE USAGE: ...
- *)
-
-
-open Markup_dtd
-
-
-type node_type = 
-    T_element of string
-  | T_data
-
-
-
-class type [ 'node ] extension =
-  object ('self)
-    method clone : 'self
-      (* "clone" should return an exact deep copy of the object. *)
-    method node : 'node
-      (* "node" returns the corresponding node of this extension. This method
-       * intended to return exactly what previously has been set by "set_node".
-       *)
-    method set_node : 'node -> unit
-      (* "set_node" is invoked once the extension is associated to a new
-       * node object.
-       *)
-  end
-;;
-
-class type [ 'ext, 'node ] pxp_extension_type =
-object ('self)
-    method clone : 'self
-    method node : 'self Pxp_document.node
-    method set_node : 'self Pxp_document.node -> unit
-
-    method markup_node : 'node
-    method set_markup_node : 'node -> unit
-
-    method set_index : 'self Pxp_yacc.index -> unit
-    method index : 'self Pxp_yacc.index
-  end
-;;
-
-class type [ 'ext ] node =
-  object ('self)
-    constraint 'ext = 'ext node #extension
-    method pxp_node : (('ext, 'ext node) pxp_extension_type) Pxp_document.node
-
-    method extension : 'ext
-      (* Return the extension of this node: *)
-
-    method delete : unit
-      (* Delete this node from the parent's list of sub nodes. This node gets
-       * orphaned.
-       * 'delete' does nothing if this node does not have a parent.
-       *)
-
-    method parent : 'ext node
-      (* Get the parent, or raise Not_found if this node is an orphan. *)
-
-    method root : 'ext node
-      (* Get the direct or indirect parent that does not have a parent itself,
-       * i.e. the root of the tree.
-       *)
-
-    method orphaned_clone : 'ext node
-      (* return an exact clone of this element and all sub nodes (deep copy)
-       * except string values which are shared by this node and the clone.
-       * The other exception is that the clone has no parent (i.e. it is now
-       * a root).
-       *)
-
-    method orphaned_flat_clone : 'ext node
-      (* return a clone of this element where all subnodes are omitted.
-       * The type of the node, and the attributes are the same as in the
-       * original node.
-       * The clone has no parent.
-       *)
-
-    method add_node : 'ext node -> unit
-      (* Append new sub nodes -- mainly used by the parser itself, but
-       * of course open for everybody. If an element is added, it must be
-       * an orphan (i.e. does not have a parent node); and after addition
-       * *this* node is the new parent.
-       *)
-
-    method add_pinstr : proc_instruction -> unit
-      (* Add a processing instruction to the set of processing instructions of
-       * this node. Usually only elements contain processing instructions.
-       *)
-
-    method pinstr : string -> proc_instruction list
-      (* Get all processing instructions with the passed name *)
-
-    method pinstr_names : string list
-      (* Get a list of all names of processing instructions *)
-
-    method sub_nodes : 'ext node list
-      (* Get the list of sub nodes *)
-
-    method iter_nodes : ('ext node -> unit) -> unit
-      (* iterate over the sub nodes *)
-
-    method iter_nodes_sibl :
-      ('ext node option -> 'ext node -> 'ext node option -> unit) -> unit
-      (* Here every iteration step can also access to the previous and to the
-       * following node if present:
-       *)
-
-    method find : string -> 'ext node
-      (* Get the node that has an ID attribute with this value, or raise
-       * Not_found.
-       * "find" may also cause a Validation_error if something is wrong
-       * with the IDs.
-       *)
-
-    method reset_finder : unit
-      (* makes that newly added nodes will also be found *)
-
-    method set_nodes : 'ext node list -> unit
-      (* Set the list of sub nodes. Elements that are no longer sub nodes gets
-       * orphaned, and all new elements that previously were not sub nodes
-       * must have been orphaned.
-       *)
-
-    method data : string
-      (* Get the data string of this node. For data nodes, this string is just
-       * the content. For elements, this string is the concatenation of all
-       * subordinate data nodes.
-       *)
-
-    method node_type : node_type
-      (* Get the name of the element type. *)
-
-    method attribute : string -> Markup_types.att_value
-    method attribute_names : string list
-    method attribute_type : string -> Markup_types.att_type
-    method attributes : (string * Markup_types.att_value) list
-      (* Get a specific attribute; get the names of all attributes; get the
-       * type of a specific attribute; get names and values of all attributes.
-       * Only elements have attributes.
-       * Note: If the DTD allows arbitrary for this element, "attribute_type"
-       * raises Undeclared.
-       *)
-
-    method required_string_attribute : string -> string
-    method required_list_attribute : string -> string list
-      (* Return the attribute or fail if the attribute is not present:
-       * The first version passes the value always as string back;
-       * the second version always as list.
-       *)
-
-    method optional_string_attribute : string -> string option
-    method optional_list_attribute : string -> string list
-      (* Return some attribute value or return None if the attribute is not
-       *  present:
-       * The first version passes the value always as string back;
-       * the second version always as list.
-       *)
-
-    method quick_set_attributes : (string * Markup_types.att_value) list -> unit
-      (* Sets the attributes but does not check whether they match the DTD.
-       *)
-
-     method dtd : dtd
-       (* Get the DTD *)
-
-    method create_element : dtd -> node_type -> (string * string) list -> 'ext node
-      (* create an "empty copy" of this element:
-       * - new DTD
-       * - new node type
-       * - new attribute list
-       * - empty list of nodes
-       *)
-
-    method create_data : dtd -> string -> 'ext node
-      (* create an "empty copy" of this data node: *)
-
-    method local_validate : unit
-      (* Check that this element conforms to the DTD: *)
-
-    method keep_always_whitespace_mode : unit
-      (* Normally, add_node does not accept data nodes when the DTD does not
-       * allow data nodes or only whitespace ("ignorable whitespace").
-       * Once you have invoked this method, ignorable whitespace is forced
-       * to be included into the document.
-       *)
-
-    method write_compact_as_latin1 : Markup_types.output_stream -> unit
-      (* Write the contents of this node and the subtrees to the passed
-       * output stream; the character set ISO-8859-1 is used. The format
-       * is compact (the opposite of "pretty printing").
-       *)
-
-    (* ---------------------------------------- *)
-    (* internal methods: *)
-    method internal_adopt : 'ext node option -> unit
-    method internal_delete : 'ext node -> unit
-    method internal_init : dtd -> string -> (string * string) list -> unit
-  end
-;;
-
-class [ 'ext ] data_impl : 'ext -> string -> [ 'ext ] node
-
-class [ 'ext ] element_impl : 'ext -> [ 'ext ] node
-
-class [ 'ext ] document :
-  Markup_types.collect_warnings -> 
-  object
-    method init_xml_version : string -> unit
-    method init_xml_standalone : bool -> unit
-    method init_root : 'ext node -> unit
-
-    method xml_version : string
-    method xml_standalone : bool
-    method dtd : dtd
-    method root : 'ext node
-
-    method add_pinstr : proc_instruction -> unit
-    method pinstr : string -> proc_instruction list
-    method pinstr_names : string list
-
-    method write_compact_as_latin1 : Markup_types.output_stream -> unit
-      (* Write the document to the passed
-       * output stream; the character set ISO-8859-1 is used. The format
-       * is compact (the opposite of "pretty printing").
-       * If a DTD is present, the DTD is included into the internal subset.
-       *)
-
-  end
-;;
-
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:30  lpadovan
- * Initial revision
- *
- * Revision 1.4  2000/08/18 20:19:16  gerd
- *     Updates in the emulation because of PXP changes.
- *
- * Revision 1.3  2000/07/16 16:35:06  gerd
- *     Update because PXP interface contains now the method 'write'.
- *
- * Revision 1.2  2000/06/14 22:19:27  gerd
- *     Update because of additional 'encoding' methods.
- *
- * Revision 1.1  2000/05/29 23:43:51  gerd
- *     Initial compatibility revision.
- *
- * ======================================================================
- * OLD LOGS:
- *
- * Revision 1.13  2000/05/27 19:15:08  gerd
- *     Removed the method init_xml_standalone.
- *
- * Revision 1.12  2000/05/01 20:42:34  gerd
- *         New method write_compact_as_latin1.
- *
- * Revision 1.11  2000/04/30 18:15:57  gerd
- *     Beautifications.
- *     New method keep_always_whitespace_mode.
- *
- * Revision 1.10  2000/03/11 22:58:15  gerd
- *     Updated to support Markup_codewriter.
- *
- * Revision 1.9  2000/01/27 21:51:56  gerd
- *     Added method 'attributes'.
- *
- * Revision 1.8  2000/01/27 21:19:07  gerd
- *     Added further methods.
- *
- * Revision 1.7  1999/11/09 22:20:14  gerd
- *     Removed method init_dtd from class "document". The DTD is
- * implicitly passed to the document by the root element.
- *
- * Revision 1.6  1999/09/01 22:51:40  gerd
- *     Added methods to store processing instructions.
- *
- * Revision 1.5  1999/09/01 16:19:57  gerd
- *     The "document" class has now a "warner" as class argument.
- *
- * Revision 1.4  1999/08/19 21:59:13  gerd
- *     Added method "reset_finder".
- *
- * Revision 1.3  1999/08/19 01:08:29  gerd
- *     Added method "find".
- *
- * Revision 1.2  1999/08/15 02:19:41  gerd
- *     Some new explanations: That unknown elements are not rejected
- * if the DTD allows them.
- *
- * Revision 1.1  1999/08/10 00:35:51  gerd
- *     Initial revision.
- *
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/compatibility/markup_dtd.ml b/helm/DEVEL/pxp/pxp/compatibility/markup_dtd.ml
deleted file mode 100644 (file)
index 7df5e29..0000000
--- a/helm/DEVEL/pxp/pxp/compatibility/markup_dtd.ml
+++ /dev/null
@@ -1,36 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *)
-
-class dtd w = 
-  Pxp_dtd.dtd 
-    (w : Markup_types.collect_warnings :> Pxp_types.collect_warnings) 
-    `Enc_iso88591;;
-
-class dtd_element dtd name = 
-  Pxp_dtd.dtd_element dtd name;;
-
-class dtd_notation name id = 
-  Pxp_dtd.dtd_notation name id `Enc_iso88591;;
-
-class proc_instruction target value = 
-  Pxp_dtd.proc_instruction target value `Enc_iso88591;;
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:30  lpadovan
- * Initial revision
- *
- * Revision 1.3  2000/07/14 21:35:35  gerd
- *     Updated because of the simplification of Pxp_types.collect_warnings.
- *
- * Revision 1.2  2000/06/14 22:19:27  gerd
- *     Update because of additional 'encoding' methods.
- *
- * Revision 1.1  2000/05/29 23:43:51  gerd
- *     Initial compatibility revision.
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/compatibility/markup_dtd.mli b/helm/DEVEL/pxp/pxp/compatibility/markup_dtd.mli
deleted file mode 100644 (file)
index 660b35a..0000000
--- a/helm/DEVEL/pxp/pxp/compatibility/markup_dtd.mli
+++ /dev/null
@@ -1,108 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * Markup! The validating XML parser for Objective Caml.
- * Copyright 1999 by Gerd Stolpmann. See LICENSE for details.
- *
- * THIS IS THE markup-0.2.10 COMPATIBLE INTERFACE TO markup_dtd.mli.
- * It corresponds to revision 1.11 of markup_dtd.mli.
- *)
-
-(**********************************************************************)
-(*                                                                    *)
-(* Markup_dtd:                                                        *)
-(*     Object model of document type declarations                     *)
-(*                                                                    *)
-(**********************************************************************)
-
-(* ======================================================================
- * OVERVIEW
- *
- * class dtd ............... represents the whole DTD, including element
- *                           declarations, entity declarations, notation
- *                           declarations, and processing instructions
- * class dtd_element ....... represents an element declaration consisting
- *                           of a content model and an attribute list
- *                           declaration
- * class dtd_notation ...... represents a notation declaration
- * class proc_instruction .. represents a processing instruction
- * ======================================================================
- *
- *)
-
-
-class dtd :
-  Markup_types.collect_warnings -> 
-  Pxp_dtd.dtd
-    (* Incompatibilities:
-     * add_gen_entity, gen_entity
-     *)
-
-class dtd_element : dtd -> string -> Pxp_dtd.dtd_element
-  (* Incompatibilities:
-   * set_content_model, add_attribute
-   *)
-
-class dtd_notation : string -> Markup_types.ext_id -> Pxp_dtd.dtd_notation
-
-class proc_instruction : string -> string -> Pxp_dtd.proc_instruction
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:30  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/05/29 23:43:51  gerd
- *     Initial compatibility revision.
- *
- * ======================================================================
- * OLD LOGS:
- *
- * Revision 1.11  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.10  2000/05/27 19:20:38  gerd
- *     Changed the interfaces for the standalone check: New
- * methods: standalone_declaration, set_standalone_declaration,
- * externally_declared, attribute_violates_standalone_declaration.
- *     The method set_content_model has been renamed to
- * set_cm_and_extdecl; it now initializes also whether the element
- * has been declared in an external entity.
- *     Methods add_gen_entity and gen_entity pass an additional
- * boolean argument containing whether the declaration of the
- * general entity happened in an external entity.
- *     Method add_attribute expects this argument, too, which
- * states whether the declaration of the attribute happened in an
- * external entity.
- *
- * Revision 1.9  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.8  2000/05/06 23:10:26  gerd
- *     allow_arbitrary for elements, too.
- *
- * Revision 1.7  2000/05/01 20:42:52  gerd
- *         New method write_compact_as_latin1.
- *
- * Revision 1.6  2000/03/11 22:58:15  gerd
- *     Updated to support Markup_codewriter.
- *
- * Revision 1.5  2000/02/22 02:32:02  gerd
- *     Updated.
- *
- * Revision 1.4  1999/11/09 22:15:41  gerd
- *     Added method "arbitrary_allowed".
- *
- * Revision 1.3  1999/09/01 16:21:56  gerd
- *     "dtd" classes have now an argument that passes a "warner".
- *
- * Revision 1.2  1999/08/15 02:20:23  gerd
- *         New feature: a DTD can allow arbitrary elements.
- *
- * Revision 1.1  1999/08/10 00:35:51  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/compatibility/markup_reader.ml b/helm/DEVEL/pxp/pxp/compatibility/markup_reader.ml
deleted file mode 100644 (file)
index a196c22..0000000
--- a/helm/DEVEL/pxp/pxp/compatibility/markup_reader.ml
+++ /dev/null
@@ -1,119 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *)
-
-open Markup_types;;
-
-class type resolver =
-  object
-    method open_in : ext_id -> Lexing.lexbuf
-    method close_in : unit
-    method change_encoding : string -> unit
-    method clone : resolver
-  end
-;;
-
-(* General note: close_in is simulated by close_all. Of course, this is
- * wrong, but it should not matter 
- *)
-
-
-class resolve_read_channel ch the_warner =
-  object (self)
-    val pxp_resolver = 
-           new Pxp_reader.resolve_read_this_channel 
-             ~auto_close:false
-             ch
-    val warner = the_warner
-
-    initializer
-      pxp_resolver # init_warner 
-       (warner : Markup_types.collect_warnings :> Pxp_types.collect_warnings);
-      pxp_resolver # init_rep_encoding `Enc_iso88591;
-
-    method open_in xid =
-      pxp_resolver # open_in xid
-
-    method close_in =
-      pxp_resolver # close_all   (* sic! *)
-
-    method change_encoding enc =
-      pxp_resolver # change_encoding enc
-
-    method clone =
-      ( {< pxp_resolver = pxp_resolver # clone >} : #resolver :> resolver )
-
-  end
-;;
-
-
-class resolve_read_string str =
-  object (self)
-    val pxp_resolver = 
-           new Pxp_reader.resolve_read_this_string str
-    val warner = new Pxp_types.drop_warnings
-
-    initializer
-      pxp_resolver # init_warner warner;
-      pxp_resolver # init_rep_encoding `Enc_iso88591;
-
-    method open_in xid =
-      pxp_resolver # open_in xid
-
-    method close_in =
-      pxp_resolver # close_all   (* sic! *)
-
-    method change_encoding enc =
-      pxp_resolver # change_encoding enc
-
-    method clone =
-      ( {< pxp_resolver = pxp_resolver # clone >} : #resolver :> resolver )
-  end
-;;
-
-
-class resolve_as_file the_warner =
-  object (self)
-    val pxp_resolver = 
-           new Pxp_reader.resolve_as_file
-             ~system_encoding:`Enc_iso88591
-             ()
-    val warner = the_warner
-
-    initializer
-      pxp_resolver # init_warner
-       (warner : Markup_types.collect_warnings :> Pxp_types.collect_warnings);
-      pxp_resolver # init_rep_encoding `Enc_iso88591;
-
-    method open_in xid =
-      pxp_resolver # open_in xid
-
-    method close_in =
-      pxp_resolver # close_all   (* sic! *)
-
-    method change_encoding enc =
-      pxp_resolver # change_encoding enc
-
-    method clone =
-      ( {< pxp_resolver = pxp_resolver # clone >} : #resolver :> resolver )
-  end
-;;
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:30  lpadovan
- * Initial revision
- *
- * Revision 1.3  2000/07/14 21:35:35  gerd
- *     Updated because of the simplification of Pxp_types.collect_warnings.
- *
- * Revision 1.2  2000/07/08 17:40:50  gerd
- *     Updated the simulation.
- *
- * Revision 1.1  2000/05/29 23:43:51  gerd
- *     Initial compatibility revision.
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/compatibility/markup_reader.mli b/helm/DEVEL/pxp/pxp/compatibility/markup_reader.mli
deleted file mode 100644 (file)
index 8e5e2c8..0000000
--- a/helm/DEVEL/pxp/pxp/compatibility/markup_reader.mli
+++ /dev/null
@@ -1,141 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * Markup! The validating XML parser for Objective Caml.
- * Copyright by Gerd Stolpmann. See LICENSE for details.
- *
- * THIS IS THE markup-0.2.10 COMPATIBLE INTERFACE TO markup_reader.mli.
- * It corresponds to revision 1.3 of markup_reader.mli.
- *)
-
-open Markup_types;;
-
-
-(* The class type resolver is the official type of all "resolvers". 
- * Resolvers get file names (or better, external identifiers) and 
- * return lexbufs, scanning the file for tokens. Resolvers may be
- * cloned, and clones can interpret relative file names relative to
- * their creator. 
- *)
-
-class type resolver =
-  object
-    (* A resolver can open a character source, and returns this source as
-     * Lexing.lexbuf.
-     * The resolver should recode the source into ISO-8859-1. By default,
-     * a resolver should assume UTF-8 or UTF-16 encoding. Before
-     * 'change_encoding' is invoked, the resolver should only return
-     * lexbufs with one character. After 'change_encoding' has been invoked,
-     * there is no character limit anymore.
-     * 'change_encoding' can only be invoked once. This method is usually
-     * called after the <? ... ?> prolog of the entity has been read.
-     * If this method is not called, it is up to the resolver to find out
-     * if UTF-8 or UTF-16 is used. It is recommended to invoke this method
-     * with an empty string to indicate this situation.
-     *)
-    method open_in : ext_id -> Lexing.lexbuf
-    method close_in : unit
-    method change_encoding : string -> unit
-
-
-    (* Every resolver can be cloned. The clone does not inherit the connection
-     * with the external object, i.e. it is closed.
-     *)
-    method clone : resolver
-
-  end
-;;
-
-
-(* The following class is the current main implementation of resolvers.
- * It fetches strings from an arbitrary source (by calling init_in, and
- * then repeatedly next_string), recodes them to ISO-8859-1, and creates
- * lexbufs for them.
- * It is not complete, as the source is missing.
- *
- * Note that 'resolve_general' may change in future revisions; it is ugly.
- *)
-
-(* -- This API simulation does not provide 'resolve_general' any longer
-
-class virtual resolve_general :
-  collect_warnings ->
-  object 
-    val mutable encoding : string
-    val mutable encoding_requested : bool
-    val warner : collect_warnings
-
-    method clone : resolver
-
-    method private warn : int -> unit
-    method private autodetect : string -> unit
-
-    method private virtual next_string : string -> int -> int -> int
-    method private virtual init_in : ext_id -> unit
-    method virtual close_in : unit
-
-    method open_in : ext_id -> Lexing.lexbuf
-
-    method change_encoding : string -> unit
-  end
-*)
-
-
-(* The next classes are resolvers for concrete input sources. *)
-
-class resolve_read_channel : 
-  in_channel -> collect_warnings -> resolver;;
-
-  (* Reads from the passed channel (it may be even a pipe). Note that this
-   * resolver cannot handle file inclusions, as it is pre-bound to a 
-   * specific channel and is not able to interpret file names.
-   * That means, if there is a entity reference (something like &name; or
-   * %name;) to parse, and the definition points to another file, the
-   * resolver will fail.
-   *)
-
-
-class resolve_read_string : 
-  string -> resolver;;
-
-  (* Reads from the passed string. As 'resolver_read_channel', this 
-   * resolver cannot handle file inclusions.
-   *)
-
-
-class resolve_as_file :
-  collect_warnings -> resolver;;
-
-  (* Reads from the local file system. Every file name is interpreted as
-   * file name of the local file system, and the referred file is read.
-   * This resolver can handle file inclusions as long as they do not
-   * exceed the scope of the local file system (i.e. no URLs).
-   *)
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:30  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/07/08 17:40:50  gerd
- *     Updated the simulation.
- *
- * Revision 1.1  2000/05/29 23:43:51  gerd
- *     Initial compatibility revision.
- *
- * ======================================================================
- * OLD LOGS:
- *
- * Revision 1.3  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.2  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.1  2000/03/13 23:41:54  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/compatibility/markup_types.ml b/helm/DEVEL/pxp/pxp/compatibility/markup_types.ml
deleted file mode 100644 (file)
index a0c0c27..0000000
--- a/helm/DEVEL/pxp/pxp/compatibility/markup_types.ml
+++ /dev/null
@@ -1,103 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *)
-
-
-type ext_id = Pxp_types.ext_id =
-    System of string
-  | Public of (string * string)
-  | Anonymous
-type dtd_id = Pxp_types.dtd_id=
-    External of ext_id
-  | Derived of ext_id
-  | Internal
-type content_model_type = Pxp_types.content_model_type =
-    Unspecified
-  | Empty
-  | Any
-  | Mixed of mixed_spec list
-  | Regexp of regexp_spec
-and mixed_spec = Pxp_types.mixed_spec =
-    MPCDATA
-  | MChild of string
-and regexp_spec = Pxp_types.regexp_spec =
-    Optional of regexp_spec
-  | Repeated of regexp_spec
-  | Repeated1 of regexp_spec
-  | Alt of regexp_spec list
-  | Seq of regexp_spec list
-  | Child of string
-type att_type = Pxp_types.att_type =
-    A_cdata
-  | A_id
-  | A_idref
-  | A_idrefs
-  | A_entity
-  | A_entities
-  | A_nmtoken
-  | A_nmtokens
-  | A_notation of string list
-  | A_enum of string list
-type att_default = Pxp_types.att_default =
-    D_required
-  | D_implied
-  | D_default of string
-  | D_fixed of string
-type att_value = Pxp_types.att_value =
-    Value of string
-  | Valuelist of string list
-  | Implied_value
-
-class collect_warnings = 
-object
-  val mutable w = Buffer.create 100
-  method print_warnings =
-    Buffer.contents w
-  method reset =
-    Buffer.clear w
-  method warn s =
-    Buffer.add_string w ("WARNING: " ^ s ^ "\n")
-end
-
-exception Illegal_character of int
-exception Validation_error = Pxp_types.Validation_error
-exception WF_error = Pxp_types.WF_error
-exception Character_not_supported = Pxp_types.Character_not_supported
-exception Bad_character_stream = Netconversion.Malformed_code
-exception At = Pxp_types.At
-exception Undeclared = Pxp_types.Undeclared
-
-let string_of_exn = Pxp_types.string_of_exn
-
-type output_stream = Pxp_types.output_stream =
-    Out_buffer of Buffer.t
-  | Out_channel of out_channel
-  | Out_function of (string -> int -> int -> unit)
-
-let write = Pxp_types.write
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:30  lpadovan
- * Initial revision
- *
- * Revision 1.5  2000/08/18 20:19:16  gerd
- *     Updates in the emulation because of PXP changes.
- *
- * Revision 1.4  2000/07/16 18:30:15  gerd
- *     Updated because PXP does no longer have the exception
- * Illegal_character.
- *
- * Revision 1.3  2000/07/14 21:35:35  gerd
- *     Updated because of the simplification of Pxp_types.collect_warnings.
- *
- * Revision 1.2  2000/07/08 17:40:50  gerd
- *     Updated the simulation.
- *
- * Revision 1.1  2000/05/29 23:43:51  gerd
- *     Initial compatibility revision.
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/compatibility/markup_types.mli b/helm/DEVEL/pxp/pxp/compatibility/markup_types.mli
deleted file mode 100644 (file)
index b33bb30..0000000
--- a/helm/DEVEL/pxp/pxp/compatibility/markup_types.mli
+++ /dev/null
@@ -1,125 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * Markup! The validating XML parser for Objective Caml.
- * Copyright 1999 by Gerd Stolpmann. See LICENSE for details.
- *
- * THIS IS THE markup-0.2.10 COMPATIBLE INTERFACE TO markup_types.mli.
- * It corresponds to revision 1.7 of markup_types.mli.
- *)
-
-
-type ext_id = Pxp_types.ext_id =
-    System of string
-  | Public of (string * string)
-  | Anonymous
-type dtd_id = Pxp_types.dtd_id =
-    External of ext_id
-  | Derived of ext_id
-  | Internal
-type content_model_type = Pxp_types.content_model_type =
-    Unspecified
-  | Empty
-  | Any
-  | Mixed of mixed_spec list
-  | Regexp of regexp_spec
-and mixed_spec = Pxp_types.mixed_spec =
-    MPCDATA
-  | MChild of string
-and regexp_spec = Pxp_types.regexp_spec =
-    Optional of regexp_spec
-  | Repeated of regexp_spec
-  | Repeated1 of regexp_spec
-  | Alt of regexp_spec list
-  | Seq of regexp_spec list
-  | Child of string
-type att_type = Pxp_types.att_type =
-    A_cdata
-  | A_id
-  | A_idref
-  | A_idrefs
-  | A_entity
-  | A_entities
-  | A_nmtoken
-  | A_nmtokens
-  | A_notation of string list
-  | A_enum of string list
-type att_default = Pxp_types.att_default =
-    D_required
-  | D_implied
-  | D_default of string
-  | D_fixed of string
-type att_value = Pxp_types.att_value =
-    Value of string
-  | Valuelist of string list
-  | Implied_value
-
-class collect_warnings :
-  object 
-    method warn : string -> unit
-    method print_warnings : string
-    method reset : unit
-  end
-;;
-
-
-exception Illegal_character of int
-exception Validation_error of string
-exception WF_error of string
-exception Character_not_supported
-exception Bad_character_stream
-exception At of (string * exn)
-exception Undeclared
-
-val string_of_exn : exn -> string
-  (* Converts a Markup exception into a readable string *)
-
-
-type output_stream = Pxp_types.output_stream =
-    Out_buffer of Buffer.t
-  | Out_channel of out_channel
-  | Out_function of (string -> int -> int -> unit)
-
-val write : output_stream -> string -> int -> int -> unit
-  (* write os s pos len: Writes the string to the buffer/channel/stream *)
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:30  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/07/08 17:40:50  gerd
- *     Updated the simulation.
- *
- * Revision 1.1  2000/05/29 23:43:51  gerd
- *     Initial compatibility revision.
- *
- * ======================================================================
- * OLD LOGS:
- *
- * Revision 1.7  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.6  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.5  2000/05/01 20:43:25  gerd
- *         New type output_stream; new function 'write'.
- *
- * Revision 1.4  1999/09/01 16:25:35  gerd
- *     Dropped Illegal_token and Content_not_allowed_here. WF_error can
- * be used instead.
- *
- * Revision 1.3  1999/08/15 02:22:40  gerd
- *         Added exception Undeclared.
- *
- * Revision 1.2  1999/08/14 22:15:17  gerd
- *         New class "collect_warnings".
- *
- * Revision 1.1  1999/08/10 00:35:52  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/compatibility/markup_yacc.ml b/helm/DEVEL/pxp/pxp/compatibility/markup_yacc.ml
deleted file mode 100644 (file)
index 26c40de..0000000
--- a/helm/DEVEL/pxp/pxp/compatibility/markup_yacc.ml
+++ /dev/null
@@ -1,245 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *)
-
-open Markup_types
-open Markup_dtd
-open Markup_document
-
-type config =
-    { warner : collect_warnings;
-      errors_with_line_numbers : bool;
-      processing_instructions_inline : bool;
-      virtual_root : bool;
-      debugging_mode : bool;
-    }
-
-
-type source =
-    Entity of ((dtd -> Pxp_entity.entity) * Markup_reader.resolver)
-  | Channel of in_channel
-  | File of string
-  | Latin1 of string
-  | ExtID of (ext_id * Markup_reader.resolver)
-
-type 'ext domspec =
-    { map : (node_type, 'ext node) Hashtbl.t;
-      default_element : 'ext node;
-    }
-
-
-class default_ext =
-  object(self)
-    val mutable node = (None : ('a extension node as 'a) option)
-    method clone = {< >}
-    method node =
-      match node with
-          None ->
-            assert false
-        | Some n -> n
-    method set_node n =
-      node <- Some n
-  end
-;;
-
-
-let default_extension = new default_ext;;
-
-let default_config = 
-  { warner = new collect_warnings;
-    errors_with_line_numbers = true;
-    processing_instructions_inline = false;
-    virtual_root = false;
-    debugging_mode = false;
-  }
-
-
-let default_dom =
-  let d = Hashtbl.create 2 in
-  Hashtbl.add d T_data (new data_impl default_extension "");
-  { map = d;
-    default_element = new element_impl default_extension
-  }
-;;
-
-
-let pxp_config cfg =
-  { Pxp_yacc.default_config with
-       Pxp_yacc.warner = (cfg.warner :> Pxp_types.collect_warnings);
-       Pxp_yacc.errors_with_line_numbers = cfg.errors_with_line_numbers;
-       Pxp_yacc.enable_pinstr_nodes = cfg.processing_instructions_inline;
-       Pxp_yacc.enable_super_root_node = cfg.virtual_root;
-       Pxp_yacc.encoding = `Enc_iso88591;
-       Pxp_yacc.recognize_standalone_declaration = false;
-       Pxp_yacc.debugging_mode = cfg.debugging_mode;
-  }
-;;
-
-
-class pxp_resolver r =
-  object (self)
-    val markup_resolver = r
-
-    method init_rep_encoding enc =
-      assert (enc = `Enc_iso88591 )
-  
-    method init_warner w =
-      ()
-
-    method rep_encoding = `Enc_iso88591
-
-    method open_in xid = 
-      markup_resolver # open_in xid
-
-    method close_in =
-      markup_resolver # close_in
-
-    method close_all =
-      markup_resolver # close_in
-
-    method change_encoding enc =
-      markup_resolver # change_encoding enc
-
-    method clone =
-      ( {< markup_resolver = markup_resolver # clone >} 
-       : #Pxp_reader.resolver :> Pxp_reader.resolver )
-  end
-;;
-
-
-let pxp_source src =
-  match src with
-      Entity (mkent, res) -> Pxp_yacc.Entity(mkent, new pxp_resolver res)
-    | ExtID (id, res)     -> Pxp_yacc.ExtID(id, new pxp_resolver res)
-    | Channel ch          -> Pxp_yacc.from_channel 
-                              ~system_encoding:`Enc_iso88591 ch
-    | File f              -> Pxp_yacc.from_file 
-                              ~system_encoding:`Enc_iso88591 f
-    | Latin1 s            -> Pxp_yacc.from_string ~fixenc:`Enc_iso88591 s
-;;
-
-
-let pxp_dom dom =
-  let dex =
-    try Hashtbl.find dom.map T_data 
-    with Not_found -> assert false
-  in
-  let eex = dom.default_element in
-  let m = Hashtbl.create 100 in
-  Hashtbl.iter
-    (fun nt ex ->
-       match nt with
-          T_element name when name <> "-vr" && name <> "-pi" -> 
-            let pxp_ex = ex # pxp_node in
-            Hashtbl.add m name pxp_ex
-        | _              -> ()
-    )
-    dom.map;
-  let srex =
-    try
-      Some ((Hashtbl.find dom.map (T_element "-vr")) # pxp_node)
-    with
-       Not_found -> None
-  in
-  let piex =
-    try
-      Some ((Hashtbl.find dom.map (T_element "-pi")) # pxp_node)
-    with
-       Not_found -> None
-  in
-  Pxp_document.make_spec_from_mapping
-    ?super_root_exemplar:srex
-    ?default_pinstr_exemplar:piex
-    ~data_exemplar:(dex # pxp_node)
-    ~default_element_exemplar:(eex # pxp_node)
-    ~element_mapping:m
-    ()
-;;
-
-
-let markup_document w index doc =
-  let mdoc = new document w in
-  mdoc # init_xml_version (doc # xml_version);
-  mdoc # init_xml_standalone (doc # xml_standalone);
-  let r = doc # root # extension in
-  r # set_index index;
-  mdoc # init_root (r # markup_node);
-  List.iter
-    (fun piname ->
-       let l = doc # pinstr piname in
-       List.iter 
-        (fun pi -> mdoc # add_pinstr pi)
-        l)
-    (doc # pinstr_names);
-  mdoc
-;;
-
-
-
-let parse_dtd_entity cfg src =
-  Pxp_yacc.parse_dtd_entity
-    (pxp_config cfg)
-    (pxp_source src)
-;;
-
-
-let parse_document_entity cfg src dom =
-  let index = (new Pxp_yacc.hash_index :> 'ext Pxp_yacc.index) in
-  markup_document
-    cfg.warner
-    index
-    (Pxp_yacc.parse_document_entity 
-        ~id_index:index
-       (pxp_config cfg)
-       (pxp_source src)
-       (pxp_dom dom))
-;;
-
-
-let parse_content_entity cfg src dtd dom =
-  let index = (new Pxp_yacc.hash_index :> 'ext Pxp_yacc.index) in
-  let n = 
-    (Pxp_yacc.parse_content_entity
-     ~id_index:index
-       (pxp_config cfg)
-       (pxp_source src)
-       dtd
-       (pxp_dom dom)) # extension in
-  n # set_index index;
-  n # markup_node
-;;
-
-
-let parse_wf_entity cfg src dom =
-  let index = (new Pxp_yacc.hash_index :> 'ext Pxp_yacc.index) in
-  (* Restriction: index is not filled! *)
-  markup_document
-    cfg.warner
-    index 
-    (Pxp_yacc.parse_wfdocument_entity
-       (pxp_config cfg)
-       (pxp_source src)
-       (pxp_dom dom))
-;;
-
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:30  lpadovan
- * Initial revision
- *
- * Revision 1.4  2000/08/18 20:19:16  gerd
- *     Updates in the emulation because of PXP changes.
- *
- * Revision 1.3  2000/07/14 21:35:35  gerd
- *     Updated because of the simplification of Pxp_types.collect_warnings.
- *
- * Revision 1.2  2000/07/08 17:40:50  gerd
- *     Updated the simulation.
- *
- * Revision 1.1  2000/05/29 23:43:51  gerd
- *     Initial compatibility revision.
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/compatibility/markup_yacc.mli b/helm/DEVEL/pxp/pxp/compatibility/markup_yacc.mli
deleted file mode 100644 (file)
index daccad4..0000000
--- a/helm/DEVEL/pxp/pxp/compatibility/markup_yacc.mli
+++ /dev/null
@@ -1,233 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * Markup! The validating XML parser for Objective Caml.
- * Copyright 1999 by Gerd Stolpmann. See LICENSE for details.
- *
- * THIS IS THE markup-0.2.10 COMPATIBLE INTERFACE TO markup_yacc.mli.
- * It corresponds to revision 1.4 of markup_yacc.mli.
- *)
-
-
-(*$ markup-yacc.mli *)
-
-open Markup_types
-open Markup_dtd
-open Markup_document
-
-type config =
-    { warner : collect_warnings;
-         (* An object that collects warnings. *)
-
-      errors_with_line_numbers : bool;
-         (* Whether error messages contain line numbers or not. The parser
-         * is 10 to 20 per cent faster if line numbers are turned off;
-         * you get only character positions in this case.
-         *)
-
-      processing_instructions_inline : bool;
-         (* true: turns a special mode for processing instructions on. Normally,
-         * you cannot determine the exact location of a PI; you only know
-         * in which element the PI occurs. The "inline" mode makes it possible
-         * to find the exact location out: Every PI is artificially wrapped
-         * by a special element with name "-pi". For example, if the XML text
-         * is <a><?x?><?y?></a>, the parser normally produces only an element
-         * object for "a", and puts the PIs "x" and "y" into it (without
-         * order). In inline mode, the object "a" will contain two objects
-         * with name "-pi", and the first object will contain "x", and the
-         * second "y".
-         * Notes:
-         * (1) The name "-pi" is reserved. You cannot use it for your own
-         *     tags because tag names must not begin with '-'.
-         * (2) You need not to add a declaration for "-pi" to the DTD. These
-         *     elements are handled separately.
-         * (3) Of course, the "-pi" objects are created from exemplars of
-         *     your DOM map.
-         *)
-
-      virtual_root : bool;
-         (* true: the topmost element of the XML tree is not the root element,
-         * but the so-called virtual root. The root element is a son of the
-         * virtual root. The virtual root is an ordinary element with name
-         * "-vr".
-         * The following behaviour changes, too:
-         * - PIs occurring outside the root element and outside the DTD are
-         *   added to the virtual root instead of the document object
-         * - If processing_instructions_inline is also turned on, these PIs
-         *   are added inline to the virtual root
-         * Notes:
-         * (1) The name "-vr" is reserved. You cannot use it for your own
-         *     tags because tag names must not begin with '-'.
-         * (2) You need not to add a declaration for "-vr" to the DTD. These
-         *     elements are handled separately.
-         * (3) Of course, the "-vr" objects are created from exemplars of
-         *     your DOM map.
-         *)
-
-      (* The following options are not implemented, or only for internal
-       * use.
-       *)
-
-      debugging_mode : bool;
-    }
-
-
-type source =
-    Entity of ((dtd -> Pxp_entity.entity) * Markup_reader.resolver)
-  | Channel of in_channel
-  | File of string
-  | Latin1 of string
-  | ExtID of (ext_id * Markup_reader.resolver)
-
-(* Note on sources:
- *
- * The sources do not have all the same capabilities. Here the differences:
- *
- * - File: A File source reads from a file by name. This has the advantage
- *   that references to external entites can be resolved. - The problem
- *   with SYSTEM references is that they usually contain relative file
- *   names; more exactly, a file name relative to the document containing it.
- *   It is only possible to convert such names to absolute file names if the
- *   name of the document containing such references is known; and File
- *   denotes this name.
- *
- * - Channel, Latin1: These sources read from documents given as channels or
- *   (Latin 1-encoded) strings. There is no file name, and because of this
- *   the documents must not contain references to external files (even
- *   if the file names are given as absolute names).
- *
- * - ExtID(x,r): The identifier x (either the SYSTEM or the PUBLIC name) of the
- *   entity to read from is passed to the resolver r as-is.
- *   The intention of this option is to allow customized
- *   resolvers to interpret external identifiers without any restriction.
- *   For example, you can assign the PUBLIC identifiers a meaning (they
- *   currently do not have any), or you can extend the "namespace" of
- *   identifiers.
- *   ExtID is the interface of choice for own extensions to resolvers.
- *
- * - Entity(m,r): You can implementy every behaviour by using a customized
- *   entity class. Once the DTD object d is known that will be used during
- *   parsing, the entity  e = m d  is determined and used together with the
- *   resolver r.
- *   This is only for hackers.
- *)
-
-
-type 'ext domspec =
-    { map : (node_type, 'ext node) Hashtbl.t;
-      default_element : 'ext node;
-    }
-  (* Specifies which node to use as exemplar for which node type. See the
-   * manual for explanations.
-   *)
-
-val default_config : config
-  (* - The resolver is able to read from files by name
-   * - Warnings are thrown away
-   * - Error message will contain line numbers
-   * - The internal encoding is ISO-8859-1
-   * - standalone declaration is checked
-   *)
-
-val default_extension : ('a node extension) as 'a
-  (* A "null" extension; an extension that does not extend the funtionality *)
-
-val default_dom : ('a node extension as 'a) domspec
-  (* Specifies that you do not want to use extensions. *)
-
-val parse_dtd_entity      : config -> source -> dtd
-  (* Parse an entity containing a DTD, and return this DTD. *)
-
-val parse_document_entity : config -> source -> 'ext domspec -> 'ext document
-  (* Parse a closed document, i.e. a document beginning with <!DOCTYPE...>,
-   * and validate the contents of the document against the DTD contained
-   * and/or referenced in the document.
-   *)
-
-val parse_content_entity  : config ->
-                            source ->
-                           dtd ->
-                           'ext domspec ->
-                             'ext node
-  (* Parse a file representing a well-formed fragment of a document. The
-   * fragment must be a single element (i.e. something like <a>...</a>;
-   * not a sequence like <a>...</a><b>...</b>). The element is validated
-   * against the passed DTD, but it is not checked whether the element is
-   * the root element specified in the DTD.
-   * Note that you can create DTDs that specify not to validate at all
-   * (invoke method allow_arbitrary on the DTD).
-   *)
-
-val parse_wf_entity : config -> source -> 'ext domspec -> 'ext document
-  (* Parse a closed document (see parse_document_entity), but do not
-   * validate it. Only checks on well-formedness are performed.
-   *)
-
-(*$-*)
-
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:30  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/05/29 23:43:51  gerd
- *     Initial compatibility revision.
- *
- * ======================================================================
- * OLD LOGS:
- *
- * Revision 1.4  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.3  2000/05/27 19:24:01  gerd
- *     New option: recognize_standalone_declaration.
- *
- * Revision 1.2  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.1  2000/05/06 23:21:49  gerd
- *     Initial revision.
- *
- * Revision 1.9  2000/04/30 18:23:38  gerd
- *     New config options 'processing_instructions_inline' and
- * 'virtual_root'.
- *
- * Revision 1.8  2000/03/13 23:46:46  gerd
- *     Change: The 'resolver' component of the 'config' type has
- * disappeared. Instead, there is a new resolver component in the Entity
- * and ExtID values of 'source'. I hope that this makes clearer that the
- * resolver has only an effect if used together with Entity and ExtID
- * sources.
- *     Change: The Entity value can now return the entity dependent
- * on the DTD that is going to be used.
- *
- * Revision 1.7  2000/02/22 02:32:02  gerd
- *     Updated.
- *
- * Revision 1.6  2000/02/22 01:52:45  gerd
- *     Added documentation.
- *
- * Revision 1.5  2000/01/20 20:54:43  gerd
- *     New config.errors_with_line_numbers.
- *
- * Revision 1.4  1999/09/01 23:09:10  gerd
- *     New function parse_wf_entity that simulates a well-formedness
- * parser.
- *
- * Revision 1.3  1999/09/01 16:26:36  gerd
- *     Added an empty line. This is *really* a big change.
- *
- * Revision 1.2  1999/08/14 22:20:27  gerd
- *         The "config" slot has now a component "warner"which is
- * an object with a "warn" method. This is used to warn about characters
- * that cannot be represented in the Latin 1 alphabet.
- *         Furthermore, there is a new component "debugging_mode".
- *
- * Revision 1.1  1999/08/10 00:35:52  gerd
- *     Initial revision.
- *
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/doc/ABOUT-FINDLIB b/helm/DEVEL/pxp/pxp/doc/ABOUT-FINDLIB
deleted file mode 100644 (file)
index d942e27..0000000
--- a/helm/DEVEL/pxp/pxp/doc/ABOUT-FINDLIB
+++ /dev/null
@@ -1,52 +0,0 @@
-******************************************************************************
-ABOUT-FINDLIB - Package manager for O'Caml
-******************************************************************************
-
-
-==============================================================================
-Abstract
-==============================================================================
-
-The findlib library provides a scheme to manage reusable software components 
-(packages), and includes tools that support this scheme. Packages are 
-collections of OCaml modules for which metainformation can be stored. The 
-packages are kept in the filesystem hierarchy, but with strict directory 
-structure. The library contains functions to look the directory up that stores 
-a package, to query metainformation about a package, and to retrieve dependency 
-information about multiple packages. There is also a tool that allows the user 
-to enter queries on the command-line. In order to simplify compilation and 
-linkage, there are new frontends of the various OCaml compilers that can 
-directly deal with packages. 
-
-Together with the packages metainformation is stored. This includes a version 
-string, the archives the package consists of, and additional linker options. 
-Packages can also be dependent on other packages. There is a query which finds 
-out all predecessors of a list of packages and sorts them topologically. The 
-new compiler frontends do this implicitly. 
-
-Metainformation can be conditional, i.e. depend on a set of predicates. This is 
-mainly used to be able to react on certain properties of the environment, such 
-as if the bytecode or the native compiler is invoked, if the application is 
-multi-threaded, and a few more. If the new compiler frontends are used, most 
-predicates are found out automatically. 
-
-There is special support for scripts. A new directive, "#require", loads 
-packages into scripts. Of course, this works only with newly created toploops 
-which include the findlib library. 
-
-==============================================================================
-Where to get findlib
-==============================================================================
-
-The manual of findlib is available online [1]. You can download findlib here 
-[2]. 
-
-
---------------------------
-
-[1]   see http://www.ocaml-programming.de/packages/documentation/findlib/
-
-[2]   see http://www.ocaml-programming.de/packages/findlib-0.3.1.tar.gz
-
-
-

diff --git a/helm/DEVEL/pxp/pxp/doc/ABOUT-FINDLIB.xml b/helm/DEVEL/pxp/pxp/doc/ABOUT-FINDLIB.xml
deleted file mode 100644 (file)
index d1dc5b0..0000000
--- a/helm/DEVEL/pxp/pxp/doc/ABOUT-FINDLIB.xml
+++ /dev/null
@@ -1,61 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<!DOCTYPE readme SYSTEM "readme.dtd" [
-
-<!ENTITY % common SYSTEM "common.xml">
-%common;
-
-<!ENTITY f "<em>findlib</em>">
-<!ENTITY F "<em>Findlib</em>">
-
-]>
-
-<readme title="ABOUT-FINDLIB - Package manager for O'Caml">
-  <sect1>
-    <title>Abstract</title>
-<p>
-The &f; library provides a scheme to manage reusable software
-components (packages), and includes tools that support this
-scheme. Packages are collections of OCaml modules for which
-metainformation can be stored. The packages are kept in the filesystem
-hierarchy, but with strict directory structure. The library contains
-functions to look the directory up that stores a package, to query
-metainformation about a package, and to retrieve dependency
-information about multiple packages. There is also a tool that allows
-the user to enter queries on the command-line. In order to simplify
-compilation and linkage, there are new frontends of the various OCaml
-compilers that can directly deal with packages.
-</p>
-
-<p>
-Together with the packages metainformation is stored. This includes a
-version string, the archives the package consists of, and additional
-linker options. Packages can also be dependent on other
-packages. There is a query which finds out all predecessors of a list
-of packages and sorts them topologically. The new compiler frontends
-do this implicitly.
-</p>
-
-<p>
-Metainformation can be conditional, i.e. depend on a set of
-predicates. This is mainly used to be able to react on certain
-properties of the environment, such as if the bytecode or the native
-compiler is invoked, if the application is multi-threaded, and a few
-more. If the new compiler frontends are used, most predicates are
-found out automatically.
-</p>
-
-<p>
-There is special support for scripts. A new directive, "#require",
-loads packages into scripts. Of course, this works only with newly
-created toploops which include the &f; library.
-</p>
-
-  </sect1>
-
-  <sect1><title>Where to get findlib</title>
-    <p>
-The manual of &f; is available <a href="&url.findlib-project;">online</a>.
-You can download &f; <a href="&url.findlib-download;">here</a>.
-</p>
-  </sect1>
-</readme>

diff --git a/helm/DEVEL/pxp/pxp/doc/EXTENSIONS b/helm/DEVEL/pxp/pxp/doc/EXTENSIONS
deleted file mode 100644 (file)
index a956839..0000000
--- a/helm/DEVEL/pxp/pxp/doc/EXTENSIONS
+++ /dev/null
@@ -1,50 +0,0 @@
-******************************************************************************
-Extensions of the XML specification
-******************************************************************************
-
-
-==============================================================================
-This document
-==============================================================================
-
-This parser has some options extending the XML specification. Here, the options 
-are explained. 
-
-==============================================================================
-Optional declarations instead of mandatory declarations
-==============================================================================
-
-The XML spec demands that elements, notations, and attributes must be declared. 
-However, there are sometimes situations where a different rule would be better: 
-If there is a declaration, the actual instance of the element type, notation 
-reference or attribute must match the pattern of the declaration; but if the 
-declaration is missing, a reasonable default declaration should be assumed.
-
-I have an example that seems to be typical: The inclusion of HTML into a meta 
-language. Imagine you have defined some type of "generator" or other tool 
-working with HTML fragments, and your document contains two types of elements: 
-The generating elements (with a name like "gen:xxx"), and the object elements 
-which are HTML. As HTML is still evolving, you do not want to declare the HTML 
-elements; the HTML fragments should be treated as well-formed XML fragments. In 
-contrast to this, the elements of the generator should be declared and 
-validated because you can more easily detect errors.
-
-The following two processing instructions can be included into the DTD:
-
--  
-   <?pxp:dtd optional-element-and-notation-declarations?>
-   
-   References to unknown element types and notations no longer cause an error. 
-   The element may contain everything, but it must be still well-formed. It may 
-   have arbitrary attributes, and every attribute is treated as an #IMPLIED 
-   CDATA attribute.
-   
--  
-   <?pxp:dtd optional-attribute-declarations elements="x y ..."?>
-   
-   References to unknown attributes inside one of the enumerated elements no 
-   longer cause an error. Such an attribute is treated as an #IMPLIED CDATA 
-   attribute. 
-   If there are several "optional-attribute-declarations" PIs, they are all 
-   interpreted (implicitly merged).
-   

diff --git a/helm/DEVEL/pxp/pxp/doc/EXTENSIONS.xml b/helm/DEVEL/pxp/pxp/doc/EXTENSIONS.xml
deleted file mode 100644 (file)
index e64d061..0000000
--- a/helm/DEVEL/pxp/pxp/doc/EXTENSIONS.xml
+++ /dev/null
@@ -1,62 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<!DOCTYPE readme SYSTEM "readme.dtd" [
-
-<!ENTITY % common SYSTEM "common.xml">
-%common;
-
-<!-- Special HTML config: -->
-<!ENTITY % readme:html:up '<a href="../..">up</a>'>
-
-<!ENTITY % config SYSTEM "config.xml">
-%config;
-
-]>
-
-<readme title="Extensions of the XML specification">
-
-  <sect1>
-    <title>This document</title>
-    <p>This parser has some options extending the XML specification. Here, the 
-options are explained.
-</p>
-  </sect1>
-
-  <sect1>
-    <title>Optional declarations instead of mandatory declarations</title>
-
-<p>The XML spec demands that elements, notations, and attributes must be
-declared. However, there are sometimes situations where a different rule would
-be better: <em>If</em> there is a declaration, the actual instance of the
-element type, notation reference or attribute must match the pattern of the
-declaration; but if the declaration is missing, a reasonable default declaration
-should be assumed.</p> 
-
-<p>I have an example that seems to be typical: The inclusion of HTML into a
-meta language. Imagine you have defined some type of "generator" or other tool
-working with HTML fragments, and your document contains two types of elements:
-The generating elements (with a name like "gen:xxx"), and the object elements
-which are HTML. As HTML is still evolving, you do not want to declare the HTML
-elements; the HTML fragments should be treated as well-formed XML fragments. In
-contrast to this, the elements of the generator should be declared and
-validated because you can more easily detect errors.</p> 
-
-<p>The following two processing instructions can be included into the DTD:</p>
-    <ul>
-      <li><p><code><![CDATA[<?pxp:dtd optional-element-and-notation-declarations?>]]></code>
-       References to unknown element types and notations no longer cause an
-       error. The element may contain everything, but it must be still
-       well-formed. It may have arbitrary attributes, and every attribute is
-       treated as an #IMPLIED CDATA attribute.</p>
-      </li>
-      <li><p><code><![CDATA[<?pxp:dtd optional-attribute-declarations elements="x y ..."?>]]></code>
-        References to unknown attributes inside one of the enumerated elements
-        no longer cause an error. Such an attribute is treated as an #IMPLIED
-        CDATA attribute.
-</p>
-
-<p>If there are several "optional-attribute-declarations" PIs, they are all
-interpreted (implicitly merged).</p>
-      </li>
-    </ul>
-  </sect1>
-</readme>

diff --git a/helm/DEVEL/pxp/pxp/doc/INSTALL b/helm/DEVEL/pxp/pxp/doc/INSTALL
deleted file mode 100644 (file)
index 9a49a22..0000000
--- a/helm/DEVEL/pxp/pxp/doc/INSTALL
+++ /dev/null
@@ -1,154 +0,0 @@
-******************************************************************************
-INSTALL - PXP, the XML parser for O'Caml
-******************************************************************************
-
-
-==============================================================================
-The "pxp" package
-==============================================================================
-
-------------------------------------------------------------------------------
-Prerequisites
-------------------------------------------------------------------------------
-
-PXP requires that the netstring package  [1] is already installed. PXP works 
-only with O'Caml 3.00 (the support for 2.04 has been dropped). The installation 
-procedure defined in the Makefile requires findlib [2] to work [3]. 
-
-------------------------------------------------------------------------------
-Configuration
-------------------------------------------------------------------------------
-
-It is not necessary to configure PXP; but you can switch off the UTF-8 support 
-by setting the variable 
-
-UTF8_SUPPORT = no
-
-in Makefile.conf. In this case, the UTF-8 modules are not even compiled. - By 
-default, the UTF-8 support is enabled. 
-
-Note: Compiling the UTF-8 modules lasts 10 minutes on my 400 Mhz Pentium II; if 
-this is too long, you can set UTF8_SUPPORT to "no".
-
-------------------------------------------------------------------------------
-Compilation
-------------------------------------------------------------------------------
-
-The Makefile defines the following goals: 
-
--  make all
-   compiles with the bytecode compiler and creates the files pxp_types.cma, 
-   pxp_lex_iso88591.cma, pxp_lex_utf8.cma (*), pxp_engine.cma, and pxp_utf8.cmo 
-   (*). The (*) files are not built if the UTF-8 support is switched off.
-   
--  make opt
-   compiles with the native compiler and creates the files pxp_types.cmxa, 
-   pxp_lex_iso88591.cmxa, pxp_lex_utf8.cmxa (*), pxp_engine.cmxa, and 
-   pxp_utf8.cmx (*). The (*) files are not built if the UTF-8 support is 
-   switched off.
-   
-------------------------------------------------------------------------------
-Installation
-------------------------------------------------------------------------------
-
-The Makefile defines the following goals:
-
--  make install
-   installs the bytecode archives, the interface definitions, and if present, 
-   the native archives in the default location of findlib as package "pxp" 
-   
--  make uninstall
-   removes the package "pxp"
-   
--  make markup-install
-   installs the Markup compatibility API as package "markup"
-   
--  make markup-uninstall
-   removes the package "markup"
-   
-------------------------------------------------------------------------------
-Usage with the help of "findlib"
-------------------------------------------------------------------------------
-
-You can refer to the parser as the findlib package "pxp": 
-
-ocamlfind ocamlc -package pxp ...
-
-By default, the UTF-8 support modules will be linked in. If you do not need 
-them, you may define the predicate "pxp_without_utf8", which causes that the 
-UTF-8 relevant parts are not linked with your program; the difference in size 
-is about 1 MB: 
-
-ocamlfind ocamlc -package pxp -predicates pxp_without_utf8 ...
-
-Note that you can also reduce the size of the resulting executable by 
-specifying Netstring-related predicates (e.g. netstring_only_iso); see the 
-documentation of Netstring. 
-
-------------------------------------------------------------------------------
-Linking with the archives directly
-------------------------------------------------------------------------------
-
-If you need UTF-8 support, you must link your program as follows: 
-
-ocamlc ... pxp_types.cma pxp_lex_iso88591.cma pxp_lex_utf8.cma 
-           pxp_engine.cma pxp_utf8.cmo ...
-
-If you do not need UTF-8, the following suffices: 
-
-ocamlc ... pxp_types.cma pxp_lex_iso88591.cma pxp_engine.cma ...
-
-
-
-==============================================================================
-The examples
-==============================================================================
-
-In the "examples" directory you find several applications of PXP. They require 
-that PXP has been installed using findlib. See the Makefiles in the directories 
-for descriptions of "make" goals. 
-
-==============================================================================
-Trouble shooting
-==============================================================================
-
-------------------------------------------------------------------------------
-Solaris
-------------------------------------------------------------------------------
-
-The "make" utility of Solaris does not work properly enough; there is a bug in 
-it that prevents the so-called suffix rules from being recognized. There are 
-two solutions:
-
--  Install GNU make and use it instead of Solaris make. This is the recommended 
-   way to solve the problem, as GNU make can process almost every Makefile from 
-   open source projects, and you will never have problems with building 
-   software again.
-   
--  Add the following lines to Makefile.code: 
-   
-   %.cmx: %.ml
-           $(OCAMLOPT) -c $<
-   
-   %.cmo: %.ml
-           $(OCAMLC) -c $<
-   
-   %.cmi: %.mli
-           $(OCAMLC) -c $<
-   
-   %.ml: %.mll
-           ocamllex $<
-   
-   
-   
-
---------------------------
-
-[1]   see http://www.ocaml-programming.de/packages/documentation/netstring
-
-[2]   see http://www.ocaml-programming.de/packages/documentation/findlib/
-
-[3]   Findlib is a package manager, see the file ABOUT-FINDLIB.
-
-
-

diff --git a/helm/DEVEL/pxp/pxp/doc/INSTALL.xml b/helm/DEVEL/pxp/pxp/doc/INSTALL.xml
deleted file mode 100644 (file)
index ac7832d..0000000
--- a/helm/DEVEL/pxp/pxp/doc/INSTALL.xml
+++ /dev/null
@@ -1,171 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<!DOCTYPE readme SYSTEM "readme.dtd" [
-
-<!ENTITY % common SYSTEM "common.xml">
-%common;
-
-<!ENTITY m "<em>PXP</em>">
-
-]>
-
-<readme title="INSTALL - PXP, the XML parser for O'Caml">
-  <sect1><title>The "pxp" package</title>
-    <sect2><title>Prerequisites</title>
-      <p>
-&m; requires that the <a href="&url.netstring-project;">netstring package
-</a> is already installed. &m; works
-only with O'Caml 3.00 (the support for 2.04 has been dropped).
-The installation
-procedure defined in the Makefile requires <a
-href="&url.findlib-project;">findlib</a> to work<footnote><em>Findlib</em> is a
-package manager, see the file ABOUT-FINDLIB.</footnote>.
-</p>
-    </sect2>
-
-    <sect2><title>Configuration</title>
-      <p>
-It is not necessary to configure PXP; but you can switch off the UTF-8
-support by setting the variable
-
-<code>
-UTF8_SUPPORT = no
-</code>
-
-in Makefile.conf. In this case, the UTF-8 modules are not even compiled.
-- By default, the UTF-8 support is enabled.
-</p>
-
-      <p>
-Note: Compiling the UTF-8 modules lasts 10 minutes on my 400 Mhz Pentium II;
-if this is too long, you can set UTF8_SUPPORT to "no".</p>
-    </sect2>
-
-    <sect2><title>Compilation</title>
-      <p>
-The Makefile defines the following goals:
-</p>
-      <ul>
-       <li>
-         <p>make all</p>
-         <p>compiles with the bytecode compiler and creates the files
-pxp_types.cma, pxp_lex_iso88591.cma, pxp_lex_utf8.cma (*), pxp_engine.cma,
-and pxp_utf8.cmo (*). The (*) files are not built if the UTF-8 support
-is switched off.</p>
-       </li>
-       <li>
-         <p>make opt</p>
-         <p>compiles with the native compiler and creates  the files
-pxp_types.cmxa, pxp_lex_iso88591.cmxa, pxp_lex_utf8.cmxa (*), pxp_engine.cmxa,
-and pxp_utf8.cmx (*). The (*) files are not built if the UTF-8 support
-is switched off.</p>
-       </li>
-      </ul>
-    </sect2>
-
-    <sect2><title>Installation</title>
-      <p>
-The Makefile defines the following goals:</p>
-      <ul>
-       <li>
-         <p>make install</p>
-         <p>installs the bytecode archives, the interface definitions, and if
-present, the native archives in the default location of <em>findlib</em> as
-package "pxp"
-</p>
-       </li>
-       <li>
-         <p>make uninstall</p>
-         <p>removes the package "pxp"</p>
-       </li>
-       <li>
-         <p>make markup-install</p>
-         <p>installs the Markup compatibility API as package "markup"</p>
-       </li>
-       <li>
-         <p>make markup-uninstall</p>
-         <p>removes the package "markup"</p>
-       </li>
-      </ul>
-    </sect2>
-
-    <sect2>
-      <title>Usage with the help of "findlib"</title>
-      <p>You can refer to the parser as the findlib package "pxp":
-
-<code>
-ocamlfind ocamlc -package pxp ...
-</code>
-
-By default, the UTF-8 support modules will be linked in. If you do not need
-them, you may define the predicate "pxp_without_utf8", which causes that the
-UTF-8 relevant parts are not linked with your program; the difference in size
-is about 1 MB:
-
-<code>
-ocamlfind ocamlc -package pxp -predicates pxp_without_utf8 ...
-</code>
-
-Note that you can also reduce the size of the resulting executable by
-specifying Netstring-related predicates (e.g. netstring_only_iso); see the
-documentation of Netstring.
-</p>
-    </sect2>
-
-    <sect2>
-      <title>Linking with the archives directly</title>
-      <p>If you need UTF-8 support, you must link your program as follows:
-
-<code>
-ocamlc ... pxp_types.cma pxp_lex_iso88591.cma pxp_lex_utf8.cma 
-           pxp_engine.cma pxp_utf8.cmo ...
-</code>
-
-If you do not need UTF-8, the following suffices:
-
-<code>
-ocamlc ... pxp_types.cma pxp_lex_iso88591.cma pxp_engine.cma ...
-</code>
-
-</p>
-    </sect2>
-
-  </sect1>
-
-  <sect1><title>The examples</title>
-    <p>
-In the "examples" directory you find several applications of &m;. They require
-that &m; has been installed using <em>findlib</em>. See the Makefiles in the
-directories for descriptions of "make" goals.
-</p>
-  </sect1>
-
-  <sect1><title>Trouble shooting</title>
-    <sect2><title>Solaris</title>
-      <p>
-The "make" utility of Solaris does not work properly enough; there is a bug
-in it that prevents the so-called suffix rules from being recognized. There
-are two solutions:</p>
-      <ul>
-       <li><p>Install GNU make and use it instead of Solaris make. This is
-the recommended way to solve the problem, as GNU make can process almost
-every Makefile from open source projects, and you will never have problems
-with building software again.</p></li>
-       <li><p>Add the following lines to Makefile.code:
-         <code>
-%.cmx: %.ml
-        $(OCAMLOPT) -c $&lt;
-
-%.cmo: %.ml
-        $(OCAMLC) -c $&lt;
-
-%.cmi: %.mli
-        $(OCAMLC) -c $&lt;
-
-%.ml: %.mll
-        ocamllex $&lt;
-</code>
-</p></li>
-      </ul>
-    </sect2>
-  </sect1>
-</readme>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/Makefile b/helm/DEVEL/pxp/pxp/doc/Makefile
deleted file mode 100644 (file)
index 0ed1274..0000000
--- a/helm/DEVEL/pxp/pxp/doc/Makefile
+++ /dev/null
@@ -1,43 +0,0 @@
-.PHONY: all
-all: README INSTALL ABOUT-FINDLIB SPEC PRERELEASE EXTENSIONS
-
-README: README.xml common.xml config.xml
-       readme -text README.xml >README
-
-INSTALL: INSTALL.xml common.xml config.xml
-       readme -text INSTALL.xml >INSTALL
-
-ABOUT-FINDLIB: ABOUT-FINDLIB.xml common.xml config.xml
-       readme -text ABOUT-FINDLIB.xml >ABOUT-FINDLIB
-
-SPEC: SPEC.xml common.xml config.xml
-       readme -text SPEC.xml >SPEC
-
-EXTENSIONS: EXTENSIONS.xml common.xml config.xml
-       readme -text EXTENSIONS.xml >EXTENSIONS
-
-PRERELEASE: PRERELEASE.xml common.xml config.xml
-       readme -text PRERELEASE.xml >PRERELEASE
-
-config.xml:
-       touch config.xml
-
-common.xml:
-       ln -s dist-common.xml common.xml 
-
-.PHONY: clean
-clean:
-
-.PHONY: CLEAN
-CLEAN: clean
-       $(MAKE) -C manual CLEAN
-
-.PHONY: distclean
-distclean: clean
-       rm -f *~
-       $(MAKE) -C manual distclean
-
-.PHONY: symlinks
-symlinks:
-       ln -s ../examples/readme/readme.dtd .
-

diff --git a/helm/DEVEL/pxp/pxp/doc/PRERELEASE b/helm/DEVEL/pxp/pxp/doc/PRERELEASE
deleted file mode 100644 (file)
index bc46cd0..0000000
--- a/helm/DEVEL/pxp/pxp/doc/PRERELEASE
+++ /dev/null
@@ -1,103 +0,0 @@
-******************************************************************************
-README - PXP, the XML parser for O'Caml
-******************************************************************************
-
-
-==============================================================================
-Pre-release of PXP, the XML parser for O'Caml
-==============================================================================
-
-PXP is the new, completely revised and partly rewritten validating XML parser 
-for O'Caml; the old name, "Markup", has been dropped. The current version of 
-PXP is still a bit experimental because it is not fully tested; however, it is 
-now stable enough to be used in experimental applications. 
-
-PXP will retain most parts of Markup's API; the name PXP emphasizes the 
-strengths of the API: it is the Polymorphic XML Parser. The document objects 
-representing the parsed file have an interesting polymorphism which allows that 
-the user of the parser can control which kind of objects are actually created. 
-The current API supports the element type as criterion for object/class 
-selection; future APIs will extend this concept such that arbitrary criterions 
-are possible (e.g. you may want to have different classes for different 
-namespaces). 
-
-The current development goals of PXP are:
-
--  Full XML-1.0 conformance: The current pre-release is now very close to 
-   strict XML-1.0 conformance. The only bigger difference to the standard is 
-   that PXP sometimes accepts DTDs as legal while the standard forbids them 
-   (non-deterministic content models).
-   One of the more important improvements since 0.2.10 is the possibility to 
-   represent XML documents internally as UTF-8 strings, not only as ISO-8859-1 
-   strings. Thanks to Claudio Sacerdoti Coen who contributed a special lexer 
-   preprocessor hiding the details of the UTF-8 encoding in the lexer 
-   definitions. 
-   
--  Correctness of validation: The well-formedness and valididity constraints 
-   must be implemented as correct as possible. The last stable release had 
-   already a regression test covering many aspects of XML. The test suite will 
-   be extended.
-   
--  Parsing performance: It should be possible to process large amounts of data 
-   in a reasoable period of time. The last stable release had many stages of 
-   processing that wasted time.
-   The current pre-release is already 30 per cent faster than 0.2.10.
-   
--  Simplicity of usage: Unlike parsers basing on imperative languages and DOM, 
-   the usage of PXP should be simple, even for complex tasks. The current 
-   parser API has already many advantages over DOM; especially it is well 
-   integrated into the functional and object-oriented language O'Caml. You do 
-   not have to deal with artificial representations like "node lists" while the 
-   programming environment already provides good support for list structures. 
-   The fact that O'Caml allows a functional programming style is interesting 
-   for programs transforming XML trees.
-   
-==============================================================================
-Download the PXP pre-release
-==============================================================================
-
-The current pre-release is available under 
-http://www.ocaml-programming.de/packages/pxp-pre-0.99.8.tar.gz [1]. There is 
-currently no documentation for this version of the software; it is recommended 
-to use the Markup manual [2] and compare it with the current module interfaces.
-
-Please note that this is work in progress; it may still contain bugs and 
-irregularities.
-
-The parser works only with OCaml-3. The parser needs the netstring package [3], 
-at least version 0.9.1. 
-
-I am very interested in your opinion to PXP; please contact me [4].
-
-==============================================================================
-Author, Credits, Copying
-==============================================================================
-
-PXP has been written by Gerd Stolpmann [5]; it contains contributions by 
-Claudio Sacerdoti Coen. You may copy it as you like, you may use it even for 
-commercial purposes as long as the license conditions are respected, see the 
-file LICENSE coming with the distribution. It allows almost everything. 
-
-==============================================================================
-Where to find the stable release
-==============================================================================
-
-Here. [6]
-
-
---------------------------
-
-[1]   see http://www.ocaml-programming.de/packages/pxp-pre-0.99.8.tar.gz
-
-[2]   see http://www.ocaml-programming.de/packages/documentation/markup/manual
-
-[3]   see http://www.ocaml-programming.de/packages/documentation/netstring
-
-[4]   see mailto:gerd@gerd-stolpmann.de
-
-[5]   see mailto:gerd@gerd-stolpmann.de
-
-[6]   see http://www.ocaml-programming.de/packages/documentation/markup
-
-
-

diff --git a/helm/DEVEL/pxp/pxp/doc/PRERELEASE.xml b/helm/DEVEL/pxp/pxp/doc/PRERELEASE.xml
deleted file mode 100644 (file)
index f155abd..0000000
--- a/helm/DEVEL/pxp/pxp/doc/PRERELEASE.xml
+++ /dev/null
@@ -1,116 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<!DOCTYPE readme SYSTEM "readme.dtd" [
-
-<!ENTITY % common SYSTEM "common.xml">
-%common;
-
-<!-- Special HTML config: -->
-<!ENTITY % readme:html:up '<a href="../..">up</a>'>
-
-<!ENTITY % config SYSTEM "config.xml">
-%config;
-
-]>
-
-<readme title="README - PXP, the XML parser for O'Caml">
-  <sect1>
-    <title>Pre-release of PXP, the XML parser for O'Caml</title>
-
-    <p>PXP is the new, completely revised and partly rewritten 
-validating XML parser
-for O'Caml; the old name, "Markup", has been dropped. The current version
-of PXP is still a bit experimental because it is not fully tested; however,
-it is now stable enough to be used in experimental applications.
-</p>
-
-    <p>PXP will retain most parts of Markup's API; the name PXP 
-emphasizes the strengths of the API: it is the Polymorphic XML Parser.
-The document objects representing the parsed file have an interesting
-polymorphism which allows that the user of the parser can control
-which kind of objects are actually created. The current API supports
-the element type as criterion for object/class selection; future APIs will
-extend this concept such that arbitrary criterions are possible
-(e.g. you may want to have different classes for different namespaces).
-</p>
-
-    <p>The current development goals of PXP are:</p>
-
-    <ul>
-      <li><p><em>Full XML-1.0 conformance:</em> The current pre-release
-is now very close to strict XML-1.0 conformance. The only bigger 
-difference to the standard is that PXP sometimes accepts DTDs as legal
-while the standard forbids them (non-deterministic content models).</p>
-
-<p>One of the more important improvements since 0.2.10 is the possibility to
-represent XML documents internally as UTF-8 strings, not only as ISO-8859-1
-strings. Thanks to Claudio Sacerdoti Coen who contributed a special lexer
-preprocessor hiding the details of the UTF-8 encoding in the lexer definitions.
-</p>
-      </li>
-
-      <li><p><em>Correctness of validation:</em> The well-formedness
-and valididity constraints must be implemented as correct as possible.
-The last stable release had already a regression test covering many
-aspects of XML. The test suite will be extended.</p>
-      </li>
-
-      <li><p><em>Parsing performance:</em> It should be possible to
-process large amounts of data in a reasoable period of time. The last
-stable release had many stages of processing that wasted time.</p>
-
-       <p>The current pre-release is already 30 per cent faster than
-0.2.10.</p>
-      </li>
-
-      <li><p><em>Simplicity of usage:</em> Unlike parsers basing on
-imperative languages and DOM, the usage of PXP should be simple, even
-for complex tasks. The current parser API has already many advantages
-over DOM; especially it is well integrated into the functional and
-object-oriented language O'Caml. You do not have to deal with
-artificial representations like "node lists" while the programming
-environment already provides good support for list structures. The
-fact that O'Caml allows a functional programming style is interesting
-for programs transforming XML trees.</p>
-      </li>
-    </ul>
-  </sect1>
-
-  <sect1>
-    <title>Download the PXP pre-release</title>
-
-    <p>The current pre-release is available under 
-<a href="&url.gps-ocaml-download;/pxp-pre-0.99.8.tar.gz">
-&url.gps-ocaml-download;/pxp-pre-0.99.8.tar.gz</a>. There is currently no
-documentation for this version of the software; it is recommended to use the <a
-href="&url.markup-manual;">Markup manual</a> and compare it with the current
-module interfaces.</p>
-
-    <p>Please note that this is work in progress; it may still contain bugs
-and irregularities.</p>
-
-    <p>The parser works only with OCaml-3. The parser needs the <a
-href="&url.netstring-project;">netstring package</a>, at least version 0.9.1.
-</p>
-
-    <p>I am very interested in your opinion to PXP; please <a
-href="mailto:&person.gps.mail;">contact me</a>.</p>
-  </sect1>
-
-  <sect1>
-    <title>Author, Credits, Copying</title>
-    <p>
-<em>PXP</em> has been written by &person.gps;; it contains contributions by
-Claudio Sacerdoti Coen. You may copy it as you like,
-you may use it even for commercial purposes as long as the license conditions
-are respected, see the file LICENSE coming with the distribution. It allows
-almost everything. 
-</p>
-  </sect1>
-
-  <sect1>
-    <title>Where to find the stable release</title>
-    <p><a href="&url.markup-project;">Here.</a></p>
-  </sect1>
-
-</readme>
-

diff --git a/helm/DEVEL/pxp/pxp/doc/README b/helm/DEVEL/pxp/pxp/doc/README
deleted file mode 100644 (file)
index b7ad5de..0000000
--- a/helm/DEVEL/pxp/pxp/doc/README
+++ /dev/null
@@ -1,247 +0,0 @@
-******************************************************************************
-README - PXP, the XML parser for O'Caml
-******************************************************************************
-
-
-==============================================================================
-Abstract
-==============================================================================
-
-PXP is a validating parser for XML-1.0 which has been written entirely in 
-Objective Caml. 
-
-PXP is the new name of the parser formerly known as "Markup". PXP means 
-"Polymorphic XML parser" and emphasizes its most useful property: that the API 
-is polymorphic and can be configured such that different objects are used to 
-store different types of elements.
-
-==============================================================================
-Download
-==============================================================================
-
-You can download PXP as gzip'ed tarball [1]. The parser needs the Netstring [2] 
-package (0.9.3). Note that PXP requires O'Caml 3.00. 
-
-==============================================================================
-User's Manual
-==============================================================================
-
-The manual is included in the distribution both as Postscript document and 
-bunch of HTML files. An online version can be found here [3]. 
-
-==============================================================================
-Author, Credits, Copying
-==============================================================================
-
-PXP has been written by Gerd Stolpmann [4]; it contains contributions by 
-Claudio Sacerdoti Coen. You may copy it as you like, you may use it even for 
-commercial purposes as long as the license conditions are respected, see the 
-file LICENSE coming with the distribution. It allows almost everything. 
-
-Thanks also to Alain Frisch and Haruo Hosoya for discussions and bug reports.
-
-==============================================================================
-Description
-==============================================================================
-
-PXP is a validating XML parser for O'Caml [5]. It strictly complies to the 
-XML-1.0 [6] standard. 
-
-The parser is simple to call, usually only one statement (function call) is 
-sufficient to parse an XML document and to represent it as object tree.
-
-Once the document is parsed, it can be accessed using a class interface. The 
-interface allows arbitrary access including transformations. One of the 
-features of the document representation is its polymorphic nature; it is simple 
-to add custom methods to the document classes. Furthermore, the parser can be 
-configured such that different XML elements are represented by objects created 
-from different classes. This is a very powerful feature, because it simplifies 
-the structure of programs processing XML documents. 
-
-Note that the class interface does not comply to the DOM standard. It was not a 
-development goal to realize a standard API (industrial developers can this much 
-better than I); however, the API is powerful enough to be considered as 
-equivalent with DOM. More important, the interface is compatible with the XML 
-information model required by many XML-related standards. 
-
-------------------------------------------------------------------------------
-Detailed feature list
-------------------------------------------------------------------------------
-
--  The XML instance is validated against the DTD; any violation of a validation 
-   constraint leads to the rejection of the instance. The validator has been 
-   carefully implemented, and conforms strictly to the standard. If needed, it 
-   is also possible to run the parser in a well-formedness mode.
-   
--  If possible, the validator applies a deterministic finite automaton to 
-   validate the content models. This ensures that validation can always be 
-   performed in linear time. However, in the case that the content models are 
-   not deterministic, the parser uses a backtracking algorithm which can be 
-   much slower. - It is also possible to reject non-deterministic content 
-   models.
-   
--  In particular, the validator also checks the complicated rules whether 
-   parentheses are properly nested with respect to entities, and whether the 
-   standalone declaration is satisfied. On demand, it is checked whether the 
-   IDREF attributes only refer to existing nodes.
-   
--  Entity references are automatically resolved while the XML text is being 
-   scanned. It is not possible to recognize in the object tree where a 
-   referenced entity begins or ends; the object tree only represents the 
-   logical structure.
-   
--  External entities are loaded using a configurable resolver infrastructure. 
-   It is possible to connect the parser with an arbitrary XML source.
-   
--  The parser can read XML text encoded in a variety of character sets. 
-   Independent of this, it is possible to choose the encoding of the internal 
-   representation of the tree nodes; the parser automatically converts the 
-   input text to this encoding. Currently, the parser supports UTF-8 and 
-   ISO-8859-1 as internal encodings.
-   
--  The interface of the parser has been designed such that it is best 
-   integrated into the language O'Caml. The first goal was simplicity of usage 
-   which is achieved by many convenience methods and functions, and by allowing 
-   the user to select which parts of the XML text are actually represented in 
-   the tree. For example, it is possible to store processing instructions as 
-   tree nodes, but the parser can also be configured such that these 
-   instructions are put into hashtables. The information model is compatible 
-   with the requirements of XML-related standards such as XPath.
-   
--  In particular, the node tree can optionally contain or leave out processing 
-   instructions and comments. It is also possible to generate a "super root" 
-   object which is the parent of the root element. The attributes of elements 
-   are normally not stored as nodes, but it is possible to get them wrapped 
-   into nodes.
-   
--  There is also an interface for DTDs; you can parse and access sequences of 
-   declarations. The declarations are fully represented as recursive O'Caml 
-   values. 
-   
-------------------------------------------------------------------------------
-Code examples
-------------------------------------------------------------------------------
-
-This distribution contains several examples:
-
--  validate: simply parses a document and prints all error messages 
-   
--  readme: Defines a DTD for simple "README"-like documents, and offers 
-   conversion to HTML and text files [7]. 
-   
--  xmlforms: This is already a sophisticated application that uses XML as style 
-   sheet language and data storage format. It shows how a Tk user interface can 
-   be configured by an XML style, and how data records can be stored using XML. 
-   
-------------------------------------------------------------------------------
-Restrictions and missing features
-------------------------------------------------------------------------------
-
-The following restrictions apply that are not violations of the standard: 
-
--  The attributes "xml:space", and "xml:lang" are not supported specially. (The 
-   application can do this.)
-   
--  The built-in support for SYSTEM and PUBLIC identifiers is limited to local 
-   file access. There is no support for catalogs. The parser offers a hook to 
-   add missing features.
-   
--  It is currently not possible to check for interoperatibility with SGML. 
-   
-The following features are also missing:
-
--  There is no special support for namespaces. (Perhaps in the next release?)
-   
--  There is no support for XPATH or XSLT.
-   
-However, I hope that these features will be implemented soon, either by myself 
-or by contributors (who are invited to do so).
-
-------------------------------------------------------------------------------
-Recent Changes
-------------------------------------------------------------------------------
-
--  Changed in 1.0:
-   Support for document order.
-   
--  Changed in 0.99.8:
-   Several fixes of bugs reported by Haruo Hosoya and Alain Frisch.
-   The class type "node" has been extended: you can go directly to the next and 
-   previous nodes in the list; you can refer to nodes by position.
-   There are now some iterators for nodes: find, find_all, find_element, 
-   find_all_elements, map_tree, iter_tree.
-   Experimental support for viewing attributes as nodes; I hope that helps 
-   Alain writing his XPath evaluator.
-   The user's manual has been revised and is almost up to date.
-   
--  Changed in 0.99.7:
-   There are now additional node types T_super_root, T_pinstr and T_comment, 
-   and the parser is able to create the corresponding nodes.
-   The functions for character set conversion have been moved to the Netstring 
-   package; they are not specific for XML.
-   
--  Changed in 0.99.6:
-   Implemented a check on deterministic content models. Added an alternate 
-   validator basing on a DFA. - This means that now all mandatory features for 
-   an XML-1.0 parser are implemented! The parser is now substantially complete.
-   
--  Changed in 0.99.5:
-   The handling of ID and IDREF attributes has changed. The index of nodes 
-   containing an ID attribute is now separated from the document. Optionally 
-   the parser now checks whether the IDREF attributes refer to existing 
-   elements.
-   The element nodes can optionally store the location in the source XML code.
-   The method 'write' writes the XML tree in every supported encoding. 
-   (Successor of 'write_compact_as_latin1'.)
-   Several smaller changes and fixes.
-   
--  Changed in 0.99.4:
-   The module Pxp_reader has been modernized. The resolver classes are simpler 
-   to use. There is now support for URLs.
-   The interface of Pxp_yacc has been improved: The type 'source' is now 
-   simpler. The type 'domspec' has gone; the new 'spec' is opaque and performs 
-   better. There are some new parsing modes.
-   Many smaller changes.
-   
--  Changed in 0.99.3:
-   The markup_* modules have been renamed to pxp_*. There is a new 
-   compatibility API that tries to be compatible with markup-0.2.10.
-   The type "encoding" is now a polymorphic variant.
-   
--  Changed in 0.99.2:
-   Added checks for the constraints about the standalone declaration.
-   Added regression tests about attribute normalization, attribute checks, 
-   standalone checks.
-   Fixed some minor errors of the attribute normalization function.
-   The bytecode/native archives are now separated in a general part, in a 
-   ISO-8859-1-relevant part, and a UTF-8-relevant part. The parser can again be 
-   compiled with ocamlopt.
-   
--  Changed in 0.99.1:
-   In general, this release is an early pre-release of the next stable version 
-   1.00. I do not recommend to use it for serious work; it is still very 
-   experimental!
-   The core of the parser has been rewritten using a self-written parser 
-   generator.
-   The lexer has been restructured, and can now handle UTF-8 encoded files.
-   Numerous other changes.
-   
-
---------------------------
-
-[1]   see http://www.ocaml-programming.de/packages/pxp-1.0.tar.gz
-
-[2]   see http://www.ocaml-programming.de/packages/documentation/netstring
-
-[3]   see http://www.ocaml-programming.de/packages/documentation/pxp/manual
-
-[4]   see mailto:gerd@gerd-stolpmann.de
-
-[5]   see http://caml.inria.fr/
-
-[6]   see http://www.w3.org/TR/1998/REC-xml-19980210.html
-
-[7]   This particular document is an example of this DTD!
-
-
-

diff --git a/helm/DEVEL/pxp/pxp/doc/README.xml b/helm/DEVEL/pxp/pxp/doc/README.xml
deleted file mode 100644 (file)
index 34c7726..0000000
--- a/helm/DEVEL/pxp/pxp/doc/README.xml
+++ /dev/null
@@ -1,423 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<!DOCTYPE readme SYSTEM "readme.dtd" [
-
-<!--
-<!ENTITY url.ocaml           "http://caml.inria.fr/">
-<!ENTITY url.xml-spec        "http://www.w3.org/TR/1998/REC-xml-19980210.html">
-<!ENTITY url.jclark-xmltdata "ftp://ftp.jclark.com/pub/xml/xmltest.zip">
-<!ENTITY url.gps-ocaml-download "http://people.darmstadt.netsurf.de/ocaml">
-<!ENTITY url.markup-download    "&url.gps-ocaml-download;/markup-0.1.tar.gz">
-<!ENTITY person.gps             '<a
-  href="mailto:Gerd.Stolpmann@darmstadt.netsurf.de">Gerd Stolpmann</a>'>
--->
-
-<!ENTITY % common SYSTEM "common.xml">
-%common;
-
-<!-- Special HTML config: -->
-<!ENTITY % readme:html:up '<a href="../..">up</a>'>
-
-<!ENTITY % config SYSTEM "config.xml">
-%config;
-
-]>
-
-<readme title="README - PXP, the XML parser for O'Caml">
-  <sect1>
-    <title>Abstract</title>
-    <p>
-<em>PXP</em> is a validating parser for XML-1.0 which has been written
-entirely in Objective Caml.
-</p>
-
-    <p>PXP is the new name of the parser formerly known as "Markup". 
-PXP means "Polymorphic XML parser" and emphasizes its most useful
-property: that the API is polymorphic and can be configured such that
-different objects are used to store different types of elements.</p>
-  </sect1>
-
-  <sect1>
-    <title>Download</title>
-    <p>
-You can download <em>PXP</em> as gzip'ed <a
-href="&url.pxp-download;">tarball</a>. The parser needs the <a
-href="&url.netstring-project;">Netstring</a> package (0.9.3). Note that PXP
-requires O'Caml 3.00.
-</p>
-  </sect1>
-
-  <sect1>
-    <title>User's Manual</title>
-    <p>
-The manual is included in the distribution both as Postscript document and
-bunch of HTML files. An online version can be found <a
-                                                      href="&url.pxp-manual;">here</a>.
-</p>
-  </sect1>
-
-  <sect1>
-    <title>Author, Credits, Copying</title>
-    <p>
-<em>PXP</em> has been written by &person.gps;; it contains contributions by
-Claudio Sacerdoti Coen. You may copy it as you like,
-you may use it even for commercial purposes as long as the license conditions
-are respected, see the file LICENSE coming with the distribution. It allows
-almost everything. 
-</p>
-
-    <p>Thanks also to Alain Frisch and Haruo Hosoya for discussions and bug
-reports.</p>
-  </sect1>
-
-  <sect1>
-    <title>Description</title>
-    <p>
-<em>PXP</em> is a validating XML parser for <a
-href="&url.ocaml;">O'Caml</a>. It strictly complies to the 
-<a href="&url.xml-spec;">XML-1.0</a> standard.
-</p>
-
-    <p>The parser is simple to call, usually only one statement (function
-call) is sufficient to parse an XML document and to represent it as object
-tree.</p>
-
-    <p>
-Once the document is parsed, it can be accessed using a class interface.
-The interface allows arbitrary access including transformations. One of
-the features of the document representation is its polymorphic nature;
-it is simple to add custom methods to the document classes. Furthermore,
-the parser can be configured such that different XML elements are represented
-by objects created from different classes. This is a very powerful feature,
-because it simplifies the structure of programs processing XML documents.
-</p>
-
-    <p>
-Note that the class interface does not comply to the DOM standard. It was not a
-development goal to realize a standard API (industrial developers can this much
-better than I); however, the API is powerful enough to be considered as
-equivalent with DOM. More important, the interface is compatible with the
-XML information model required by many XML-related standards.
-</p>
-
-    <sect2>
-      <title>Detailed feature list</title>
-
-      <ul>
-       <li><p>The XML instance is validated against the DTD; any violation of
-a validation constraint leads to the rejection of the instance. The validator
-has been carefully implemented, and conforms strictly to the standard. If
-needed, it is also possible to run the parser in a well-formedness mode.</p>
-       </li>
-       <li><p>If possible, the validator applies a deterministic finite
-automaton to validate the content models. This ensures that validation can
-always be performed in linear time. However, in the case that the content
-models are not deterministic, the parser uses a backtracking algorithm which
-can be much slower. - It is also possible to reject non-deterministic content
-models.</p>
-       </li>
-       <li><p>In particular, the validator also checks the complicated rules
-whether parentheses are properly nested with respect to entities, and whether
-the standalone declaration is satisfied. On demand, it is checked whether the
-IDREF attributes only refer to existing nodes.</p>
-       </li>
-       <li><p>Entity references are automatically resolved while the XML text
-is being scanned. It is not possible to recognize in the object tree where a
-referenced entity begins or ends; the object tree only represents the logical structure.</p>
-       </li>
-       <li><p>External entities are loaded using a configurable resolver
-infrastructure. It is possible to connect the parser with an arbitrary XML source.</p>
-       </li>
-       <li><p>The parser can read XML text encoded in a variety of character
-sets. Independent of this, it is possible to choose the encoding of the
-internal representation of the tree nodes; the parser automatically converts
-the input text to this encoding. Currently, the parser supports UTF-8 and
-ISO-8859-1 as internal encodings.</p>
-       </li>
-       <li><p>The interface of the parser has been designed such that it is
-best integrated into the language O'Caml. The first goal was simplicity of
-usage which is achieved by many convenience methods and functions, and by
-allowing the user to select which parts of the XML text are actually
-represented in the tree. For example, it is possible to store processing
-instructions as tree nodes, but the parser can also be configured such that
-these instructions are put into hashtables. The information model is compatible
-with the requirements of XML-related standards such as XPath.</p>
-       </li>
-       <li><p>In particular, the node tree can optionally contain or leave out
-processing instructions and comments. It is also possible to generate a "super
-root" object which is the parent of the root element. The attributes of
-elements are normally not stored as nodes, but it is possible to get them
-wrapped into nodes.</p>
-       </li>
-       <li><p>There is also an interface for DTDs; you can parse and access
-sequences of declarations. The declarations are fully represented as recursive
-O'Caml values.
-</p>
-       </li>
-      </ul>
-    </sect2>
-
-
-    <sect2>
-      <title>Code examples</title>
-      <p>
-This distribution contains several examples:</p>
-      <ul>
-       <li><p>
-<em>validate:</em> simply parses a
-document and prints all error messages
-</p></li>
-
-       <li><p>
-<em>readme:</em> Defines a DTD for simple "README"-like documents, and offers
-conversion to HTML and text files<footnote>This particular document is an
-example of this DTD!</footnote>.
-</p></li>
-
-       <li><p>
-<em>xmlforms:</em> This is already a
-sophisticated application that uses XML as style sheet language and data
-storage format. It shows how a Tk user interface can be configured by an
-XML style, and how data records can be stored using XML.
-</p></li>
-      </ul>
-    </sect2>
-
-    <sect2>
-      <title>Restrictions and missing features</title>
-      <p>
-The following restrictions apply that are not violations of the standard:
-</p>
-      <ul>
-       <li><p>
-The attributes "xml:space", and "xml:lang" are not supported specially.
-  (The application can do this.)</p></li>
-
-       <li><p>
-The built-in support for SYSTEM and PUBLIC identifiers is limited to
-  local file access. There is no support for catalogs. The parser offers
-  a hook to add missing features.</p></li>
-
-       <li><p>
-It is currently not possible to check for interoperatibility with SGML.
-</p></li>
-      </ul>
-
-<p>The following features are also missing:</p>
-      <ul>
-       <li><p>There is no special support for namespaces. (Perhaps in the next release?)</p>
-       </li>
-       <li><p>There is no support for XPATH or XSLT.</p>
-       </li>
-      </ul>
-<p>However, I hope that these features will be implemented soon, either by
-myself or by contributors (who are invited to do so).</p>
-    </sect2>
-
-    <sect2>
-      <title>Recent Changes</title>
-      <ul>
-       <li>
-         <p>Changed in 1.0:</p>
-         <p>Support for document order.</p>
-       </li>
-       <li>
-         <p>Changed in 0.99.8:</p>
-         <p>Several fixes of bugs reported by Haruo Hosoya and Alain
-Frisch.</p>
-         <p>The class type "node" has been extended: you can go directly to
-the next and previous nodes in the list; you can refer to nodes by
-position.</p>
-         <p>There are now some iterators for nodes: find, find_all,
-find_element, find_all_elements, map_tree, iter_tree.</p>
-         <p>Experimental support for viewing attributes as nodes; I hope that
-helps Alain writing his XPath evaluator.</p>
-         <p>The user's manual has been revised and is almost up to date.</p>
-       </li>
-       <li>
-         <p>Changed in 0.99.7:</p>
-         <p>There are now additional node types T_super_root, T_pinstr and
-T_comment, and the parser is able to create the corresponding nodes.</p>
-         <p>The functions for character set conversion have been moved to
-the Netstring package; they are not specific for XML.</p>
-       </li>
-       <li>
-         <p>Changed in 0.99.6:</p>
-         <p>Implemented a check on deterministic content models. Added
-an alternate validator basing on a DFA. - This means that now all mandatory
-features for an XML-1.0 parser are implemented! The parser is now substantially
-complete.</p>
-       </li>
-       <li>
-         <p>Changed in 0.99.5:</p>
-         <p>The handling of ID and IDREF attributes has changed. The
-index of nodes containing an ID attribute is now separated from the document.
-Optionally the parser now checks whether the IDREF attributes refer to
-existing elements.</p>
-         <p>The element nodes can optionally store the location in the
-source XML code.</p>
-         <p>The method 'write' writes the XML tree in every supported
-encoding. (Successor of 'write_compact_as_latin1'.)</p>
-         <p>Several smaller changes and fixes.</p>
-       </li>
-       <li>
-         <p>Changed in 0.99.4:</p>
-         <p>The module Pxp_reader has been modernized. The resolver classes
-are simpler to use. There is now support for URLs.</p>
-         <p>The interface of Pxp_yacc has been improved: The type 'source'
-is now simpler. The type 'domspec' has gone; the new 'spec' is opaque and
-performs better. There are some new parsing modes.</p>
-         <p>Many smaller changes.</p>
-       </li>
-       <li>
-         <p>Changed in 0.99.3:</p>
-         <p>The markup_* modules have been renamed to pxp_*. There is a new
-compatibility API that tries to be compatible with markup-0.2.10.</p>
-         <p>The type "encoding" is now a polymorphic variant.</p>
-       </li>
-        <li>
-         <p>Changed in 0.99.2:</p>
-         <p>Added checks for the constraints about the standalone
-declaration.</p>
-         <p>Added regression tests about attribute normalization, 
-attribute checks, standalone checks.</p>
-         <p>Fixed some minor errors of the attribute normalization
-function.</p>
-         <p>The bytecode/native archives are now separated in
-a general part, in a ISO-8859-1-relevant part, and a UTF-8-relevant
-part. The parser can again be compiled with ocamlopt.</p>
-       </li>
-        <li>
-         <p>Changed in 0.99.1:</p>
-         <p>In general, this release is an early pre-release of the
-next stable version 1.00. I do not recommend to use it for serious
-work; it is still very experimental!</p>
-         <p>The core of the parser has been rewritten using a self-written
-parser generator.</p>
-         <p>The lexer has been restructured, and can now handle UTF-8
-encoded files.</p>
-         <p>Numerous other changes.</p>
-       </li>
-
-<!--
-       <li>
-         <p>Changed in 0.2.10:</p>
-         <p>Bugfix: in the "allow_undeclared_attributes" feature.</p>
-         <p>Bugfix: in the methods write_compact_as_latin1.</p>
-         <p>Improvement: The code produced by the codewriter module can be
-faster compiled and with less memory usage.</p>
-       </li>
-
-       <li>
-         <p>Changed in 0.2.9:</p>
-         <p>New: The module Markup_codewriter generates for a given XML
-tree O'Caml code that creates the same XML tree. This is useful for
-applications which use large, constant XML trees.</p>
-         <p>New: Documents and DTDs have a method write_compact_as_latin1
-that writes an XML tree to a buffer or to a channel. (But it is not a pretty
-printer...)</p>
-         <p>Enhancement: If a DTD contains the processing instruction
-<code>
-&lt;?xml:allow_undeclared_attributes x?&gt;</code> 
-where "x" is the name of an already declared element it is allowed that
-instances of this element type have attributes that have not been declared.
-</p>
-         <p>New function Markup_types.string_of_exn that converts an
-exception from Markup into a readable string.</p>
-         <p>Change: The module Markup_reader contains all resolvers.
-The resolver API is now stable.</p>
-         <p>New parser modes processing_instructions_inline and
-virtual_root that help locating processing instructions exactly (if needed).
-</p>
-         <p>Many bugs regarding CRLF handling have been fixed.</p>
-         <p>The distributed tarball contains now the regression test suite.
-</p>
-         <p>The manual has been extended (but it is still incomplete and
-still behind the code).</p>
-       </li>
-       <li>
-         <p>Changed in 0.2.8:</p>
-         <p>A bit more documentation (Markup_yacc).</p>
-         <p>Bugfix: In previous versions, the second trial to refer to
-an entity caused a Bad_character_stream exception. The reason was improper
-re-initialization of the resolver object.</p>
-       </li>
-       <li>
-         <p>Changed in 0.2.7:</p>
-         <p>Added some methods in Markup_document.</p>
-         <p>Bugfix: in method orphaned_clone</p>
-       </li>
-       <li>
-         <p>Changed in 0.2.6:</p>
-         <p>Enhancement: The config parameter has a new component
-"errors_with_line_numbers". If "true", error exceptions come with line numbers 
-(the default; and the only option in the previous versions); if "false"
-the line numbers are left out (only character positions). The parser is 10 to
-20 percent faster if the lines are not tracked.</p>
-         <p>Enhancement: If a DTD contains the processing instruction
-<code>
-&lt;?xml:allow_undeclared_elements_and_notations?&gt;</code> 
-it is allowed that
-elements and notations are undeclared. However, the elements for which
-declarations exist are still validated. The main effect is that the
-keyword ALL in element declarations means that also undeclared elements
-are permitted at this location.</p>
-         <p>Bugfix in method "set_nodes" of class Markup_document.node_impl.
-</p>
-       </li>
-       <li>
-         <p>Changed in 0.2.5:</p>
-         <p>If the XML source is a string (i.e. Latin1 some_string is passed
-to the parser functions as source), resolving did not work properly in 
-previous releases. This is now fixed.
-</p>
-       </li>
-       <li>
-         <p>Changed in 0.2.4:</p>
-         <p>A problem with some kind of DTD that does not specify the name
-of the root element was fixed. As a result, the "xmlforms" application works
-again. Again thanks to Haruo.</p>
-         <p>Due to the XML specs it is forbidden that parameter entities are
-referenced within the internal subset if the referenced text is not a 
-complete declaration itself. This is checked, but the check was too hard;
-even in external entities referenced from the internal subset this rule
-was enforced. This has been corrected; in external entities it is now possible
-to use parameter entities in an unrestricted way.
-</p>
-       </li>
-       <li>
-         <p>Changed in 0.2.3:</p>
-         <p>A fix for a problem when installing Markup on Solaris. 
-Haruo detected the problem.</p>
-       </li>
-       <li>
-         <p>Changed in 0.2.2:</p>
-         <p>A single bugfix: The parser did not reject documents where the
-root element was not the element declared as root element. Again thanks
-to Claudio.</p>
-       </li>
-       <li>
-         <p>Changed in 0.2.1:</p>
-         <p>A single bugfix which reduces the number of warnings. Thanks
-to Claudio for detecting the bug.</p>
-       </li>
-       <li>
-         <p>Changed in 0.2:</p>
-         <p>
-Much more constraints are checked in the 0.2 release than in 0.1. Especially
-that entities are properly nested is now guaranteed; parsed entities now always
-match the corresponding production of the grammar.</p>
-         <p>
-Many weak checks have been turned into strong checks. For example, it is now
-detected if the "version", "encoding", and "standalone" attributes of an XML
-declaration are ordered in the right way.
-</p>
-         <p>
-The error messages have been improved. 
-</p>
-       </li>
--->
-      </ul>
-    </sect2>
-  </sect1>
-</readme>
-

diff --git a/helm/DEVEL/pxp/pxp/doc/SPEC b/helm/DEVEL/pxp/pxp/doc/SPEC
deleted file mode 100644 (file)
index 28e6914..0000000
--- a/helm/DEVEL/pxp/pxp/doc/SPEC
+++ /dev/null
@@ -1,185 +0,0 @@
-******************************************************************************
-Notes on the XML specification
-******************************************************************************
-
-
-==============================================================================
-This document
-==============================================================================
-
-There are some points in the XML specification which are ambiguous. The 
-following notes discuss these points, and describe how this parser behaves.
-
-==============================================================================
-Conditional sections and the token ]]>
-==============================================================================
-
-It is unclear what happens if an ignored section contains the token ]]> at 
-places where it is normally allowed, i.e. within string literals and comments, 
-e.g. 
-
-<![IGNORE[ <!-- ]]> --> ]]>
-
-On the one hand, the production rule of the XML grammar does not treat such 
-tokens specially. Following the grammar, already the first ]]> ends the 
-conditional section 
-
-<![IGNORE[ <!-- ]]>
-
-and the other tokens are included into the DTD.
-
-On the other hand, we can read: "Like the internal and external DTD subsets, a 
-conditional section may contain one or more complete declarations, comments, 
-processing instructions, or nested conditional sections, intermingled with 
-white space" (XML 1.0 spec, section 3.4). Complete declarations and comments 
-may contain ]]>, so this is contradictory to the grammar.
-
-The intention of conditional sections is to include or exclude the section 
-depending on the current replacement text of a parameter entity. Almost always 
-such sections are used as in 
-
-<!ENTITY % want.a.feature.or.not "INCLUDE">   (or "IGNORE")
-<![ %want.a.feature.or.not; [ ... ]]>
-
-This means that if it is possible to include a section it must also be legal to 
-ignore the same section. This is a strong indication that the token ]]> must 
-not count as section terminator if it occurs in a string literal or comment.
-
-This parser implements the latter.
-
-==============================================================================
-Conditional sections and the inclusion of parameter entities
-==============================================================================
-
-It is unclear what happens if an ignored section contains a reference to a 
-parameter entity. In most cases, this is not problematic because nesting of 
-parameter entities must respect declaration braces. The replacement text of 
-parameter entities must either contain a whole number of declarations or only 
-inner material of one declaration. Almost always it does not matter whether 
-these references are resolved or not (the section is ignored).
-
-But there is one case which is not explicitly specified: Is it allowed that the 
-replacement text of an entity contains the end marker ]]> of an ignored 
-conditional section? Example: 
-
-<!ENTITY % end "]]>">
-<![ IGNORE [ %end;
-
-We do not find the statement in the XML spec that the ]]> must be contained in 
-the same entity as the corresponding <![ (as for the tokens <! and > of 
-declarations). So it is possible to conclude that ]]> may be in another entity.
-
-Of course, there are many arguments not to allow such constructs: The resulting 
-code is incomprehensive, and parsing takes longer (especially if the entities 
-are external). I think the best argument against this kind of XML is that the 
-XML spec is not detailed enough, as it contains no rules where entity 
-references should be recognized and where not. For example: 
-
-<!ENTITY % y "]]>">
-<!ENTITY % x "<!ENTITY z '<![CDATA[some text%y;'>">
-<![ IGNORE [ %x; ]]>
-
-Which token ]]> counts? From a logical point of view, the ]]> in the third line 
-ends the conditional section. As already pointed out, the XML spec permits the 
-interpretation that ]]> is recognized even in string literals, and this may be 
-also true if it is "imported" from a separate entity; and so the first ]]> 
-denotes the end of the section.
-
-As a practical solution, this parser does not expand parameter entities in 
-ignored sections. Furthermore, it is also not allowed that the ending ]]> of 
-ignored or included sections is contained in a different entity than the 
-starting <![ token.
-
-==============================================================================
-Standalone documents and attribute normalization
-==============================================================================
-
-If a document is declared as stand-alone, a restriction on the effect of 
-attribute normalization takes effect for attributes declared in external 
-entities. Normally, the parser knows the type of the attribute from the ATTLIST 
-declaration, and it can normalize attribute values depending on their types. 
-For example, an NMTOKEN attribute can be written with leading or trailing 
-spaces, but the parser returns always the nmtoken without such added spaces; in 
-contrast to this, a CDATA attribute is not normalized in this way. For 
-stand-alone document the type information is not available if the ATTLIST 
-declaration is located in an external entity. Because of this, the XML spec 
-demands that attribute values must be written in their normal form in this 
-case, i.e. without additional spaces. 
-
-This parser interprets this restriction as follows. Obviously, the substitution 
-of character and entity references is not considered as a "change of the value" 
-as a result of the normalization, because these operations will be performed 
-identically if the ATTLIST declaration is not available. The same applies to 
-the substitution of TABs, CRs, and LFs by space characters. Only the removal of 
-spaces depending on the type of the attribute changes the value if the ATTLIST 
-is not available. 
-
-This means in detail: CDATA attributes never violate the stand-alone status. 
-ID, IDREF, NMTOKEN, ENTITY, NOTATION and enumerator attributes must not be 
-written with leading and/or trailing spaces. IDREF, ENTITIES, and NMTOKENS 
-attributes must not be written with extra spaces at the beginning or at the end 
-of the value, or between the tokens of the list. 
-
-The whole check is dubious, because the attribute type expresses also a 
-semantical constraint, not only a syntactical one. At least this parser 
-distinguishes strictly between single-value and list types, and returns the 
-attribute values differently; the first are represented as Value s (where s is 
-a string), the latter are represented as Valuelist [s1; s2; ...; sN]. The 
-internal representation of the value is dependent on the attribute type, too, 
-such that even normalized values are processed differently depending on whether 
-the attribute has list type or not. For this parser, it makes still a 
-difference whether a value is normalized and processed as if it were CDATA, or 
-whether the value is processed according to its declared type. 
-
-The stand-alone check is included to be able to make a statement whether other, 
-well-formedness parsers can process the document. Of course, these parsers 
-always process attributes as CDATA, and the stand-alone check guarantees that 
-these parsers will always see the normalized values. 
-
-==============================================================================
-Standalone documents and the restrictions on entity
-references
-==============================================================================
-
-Stand-alone documents must not refer to entities which are declared in an 
-external entity. This parser applies this rule only: to general and NDATA 
-entities when they occur in the document body (i.e. not in the DTD); and to 
-general and NDATA entities occuring in default attribute values declared in the 
-internal subset of the DTD. 
-
-Parameter entities are out of discussion for the stand-alone property. If there 
-is a parameter entity reference in the internal subset which was declared in an 
-external entity, it is not available in the same way as the external entity is 
-not available that contains its declaration. Because of this "equivalence", 
-parameter entity references are not checked on violations against the 
-stand-alone declaration. It simply does not matter. - Illustration: 
-
-Main document: 
-
-<!ENTITY % ext SYSTEM "ext">
-%ext;
-%ent;
-
-"ext" contains: 
-
-<!ENTITY % ent "<!ELEMENT el (other*)>">
-
-
-
-Here, the reference %ent; would be illegal if the standalone declaration is 
-strictly interpreted. This parser handles the references %ent; and %ext; 
-equivalently which means that %ent; is allowed, but the element type "el" is 
-treated as externally declared. 
-
-General entities can occur within the DTD, but they can only be contained in 
-the default value of attributes, or in the definition of other general 
-entities. The latter can be ignored, because the check will be repeated when 
-the entities are expanded. Though, general entities occuring in default 
-attribute values are actually checked at the moment when the default is used in 
-an element instance. 
-
-General entities occuring in the document body are always checked.
-
-NDATA entities can occur in ENTITY attribute values; either in the element 
-instance or in the default declaration. Both cases are checked. 
-

diff --git a/helm/DEVEL/pxp/pxp/doc/SPEC.xml b/helm/DEVEL/pxp/pxp/doc/SPEC.xml
deleted file mode 100644 (file)
index 906f45a..0000000
--- a/helm/DEVEL/pxp/pxp/doc/SPEC.xml
+++ /dev/null
@@ -1,226 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<!DOCTYPE readme SYSTEM "readme.dtd" [
-
-<!ENTITY % common SYSTEM "common.xml">
-%common;
-
-<!-- Special HTML config: -->
-<!ENTITY % readme:html:up '<a href="../..">up</a>'>
-
-<!ENTITY % config SYSTEM "config.xml">
-%config;
-
-]>
-
-<readme title="Notes on the XML specification">
-
-  <sect1>
-    <title>This document</title>
-    <p>There are some points in the XML specification which are ambiguous.
-The following notes discuss these points, and describe how this parser
-behaves.</p>
-  </sect1>
-
-  <sect1>
-    <title>Conditional sections and the token ]]&gt;</title>
-
-    <p>It is unclear what happens if an ignored section contains the
-token ]]&gt; at places where it is normally allowed, i.e. within string
-literals and comments, e.g.
-
-<code>
-&lt;![IGNORE[ &lt;!-- ]]&gt; --&gt; ]]&gt;
-</code>
-
-On the one hand, the production rule of the XML grammar does not treat such 
-tokens specially. Following the grammar, already the first ]]&gt; ends
-the conditional section
-
-<code>
-&lt;![IGNORE[ &lt;!-- ]]&gt;
-</code>
-
-and the other tokens are included into the DTD.</p>
-
-<p>On the other hand, we can read: "Like the internal and external DTD subsets,
-a conditional section may contain one or more complete declarations, comments,
-processing instructions, or nested conditional sections, intermingled with
-white space" (XML 1.0 spec, section 3.4). Complete declarations and comments
-may contain ]]&gt;, so this is contradictory to the grammar.</p>
-
-<p>The intention of conditional sections is to include or exclude the section 
-depending on the current replacement text of a parameter entity. Almost
-always such sections are used as in
-
-<code>
-&lt;!ENTITY % want.a.feature.or.not "INCLUDE"&gt;   (or "IGNORE")
-&lt;![ %want.a.feature.or.not; [ ... ]]&gt;
-</code>
-
-This means that if it is possible to include a section it must also be
-legal to ignore the same section. This is a strong indication that 
-the token ]]&gt; must not count as section terminator if it occurs
-in a string literal or comment.</p>
-
-<p>This parser implements the latter.</p>
-
-  </sect1>
-
-  <sect1>
-    <title>Conditional sections and the inclusion of parameter entities</title>
-
-    <p>It is unclear what happens if an ignored section contains a reference
-to a parameter entity. In most cases, this is not problematic because 
-nesting of parameter entities must respect declaration braces. The
-replacement text of parameter entities must either contain a <em>whole</em>
-number of declarations or only inner material of one declaration. Almost always
-it does not matter whether these references are resolved or not
-(the section is ignored).</p>
-
-    <p>But there is one case which is not explicitly specified: Is it allowed
-that the replacement text of an entity contains the end marker ]]&gt; 
-of an ignored conditional section? Example:
-
-<code>
-&lt;!ENTITY % end "]]&gt;"&gt;
-&lt;![ IGNORE [ %end;
-</code>
-
-We do not find the statement in the XML spec that the ]]&gt; must be contained
-in the same entity as the corresponding &lt;![ (as for the tokens &lt;! and
-&gt; of declarations). So it is possible to conclude that ]]&gt; may be in
-another entity.</p>
-
-    <p>Of course, there are many arguments not to allow such constructs: The
-resulting code is incomprehensive, and parsing takes longer (especially if the
-entities are external). I think the best argument against this kind of XML
-is that the XML spec is not detailed enough, as it contains no rules where
-entity references should be recognized and where not. For example:
-
-<code>
-&lt;!ENTITY % y "]]&gt;"&gt;
-&lt;!ENTITY % x "&lt;!ENTITY z '&lt;![CDATA[some text%y;'&gt;"&gt;
-&lt;![ IGNORE [ %x; ]]&gt;
-</code>
-
-Which token ]]&gt; counts? From a logical point of view, the ]]&gt; in the
-third line ends the conditional section. As already pointed out, the XML spec
-permits the interpretation that ]]&gt; is recognized even in string literals,
-and this may be also true if it is "imported" from a separate entity; and so
-the first ]]&gt; denotes the end of the section.</p>
-
-    <p>As a practical solution, this parser does not expand parameter entities
-in ignored sections. Furthermore, it is also not allowed that the ending ]]&gt;
-of ignored or included sections is contained in a different entity than the
-starting &lt;![ token.</p>
-  </sect1>
-
-
-  <sect1>
-    <title>Standalone documents and attribute normalization</title>
-    
-    <p>
-If a document is declared as stand-alone, a restriction on the effect of
-attribute normalization takes effect for attributes declared in external
-entities. Normally, the parser knows the type of the attribute from
-the ATTLIST declaration, and it can normalize attribute values depending
-on their types. For example, an NMTOKEN attribute can be written with
-leading or trailing spaces, but the parser returns always the nmtoken
-without such added spaces; in contrast to this, a CDATA attribute is
-not normalized in this way. For stand-alone document the type information is
-not available if the ATTLIST declaration is located in an external
-entity. Because of this, the XML spec demands that attribute values must
-be written in their normal form in this case, i.e. without additional
-spaces.
-</p>
-    <p>This parser interprets this restriction as follows. Obviously, 
-the substitution of character and entity references is not considered
-as a "change of the value" as a result of the normalization, because
-these operations will be performed identically if the ATTLIST declaration
-is not available. The same applies to the substitution of TABs, CRs, 
-and LFs by space characters. Only the removal of spaces depending on
-the type of the attribute changes the value if the ATTLIST is not
-available.
-</p>
-    <p>This means in detail: CDATA attributes never violate the
-stand-alone status. ID, IDREF, NMTOKEN, ENTITY, NOTATION and enumerator
-attributes must not be written with leading and/or trailing spaces. IDREF,
-ENTITIES, and NMTOKENS attributes must not be written with extra spaces at the
-beginning or at the end of the value, or between the tokens of the list.
-</p>
-    <p>The whole check is dubious, because the attribute type expresses also a
-semantical constraint, not only a syntactical one. At least this parser
-distinguishes strictly between single-value and list types, and returns the
-attribute values differently; the first are represented as Value s (where s is
-a string), the latter are represented as Valuelist [s1; s2; ...; sN]. The
-internal representation of the value is dependent on the attribute type, too,
-such that even normalized values are processed differently depending on
-whether the attribute has list type or not. For this parser, it makes still a
-difference whether a value is normalized and processed as if it were CDATA, or
-whether the value is processed according to its declared type.
-</p>
-    <p>The stand-alone check is included to be able to make a statement 
-whether other, well-formedness parsers can process the document. Of course,
-these parsers always process attributes as CDATA, and the stand-alone check
-guarantees that these parsers will always see the normalized values.
-</p>
-  </sect1>
-
-  <sect1>
-    <title>Standalone documents and the restrictions on entity
-references</title>
-    <p>
-Stand-alone documents must not refer to entities which are declared in an
-external entity. This parser applies this rule only: to general and NDATA
-entities when they occur in the document body (i.e. not in the DTD); and to
-general and NDATA entities occuring in default attribute values declared in the
-internal subset of the DTD.
-</p>
-    <p>
-Parameter entities are out of discussion for the stand-alone property. If there
-is a parameter entity reference in the internal subset which was declared in an
-external entity, it is not available in the same way as the external entity is
-not available that contains its declaration. Because of this "equivalence",
-parameter entity references are not checked on violations against the
-stand-alone declaration. It simply does not matter. - Illustration:
-</p>
-
-    <p>
-Main document:
-
-    <code><![CDATA[
-<!ENTITY % ext SYSTEM "ext">
-%ext;
-%ent;
-]]></code>
-
-"ext" contains:
-
-    <code><![CDATA[
-<!ENTITY % ent "<!ELEMENT el (other*)>">
-]]></code>
-</p>
-
-    <p>Here, the reference %ent; would be illegal if the standalone
-declaration is strictly interpreted. This parser handles the references
-%ent; and %ext; equivalently which means that %ent; is allowed, but the
-element type "el" is treated as externally declared.
-</p>
-
-    <p>
-General entities can occur within the DTD, but they can only be contained in
-the default value of attributes, or in the definition of other general
-entities. The latter can be ignored, because the check will be repeated when
-the entities are expanded. Though, general entities occuring in default
-attribute values are actually checked at the moment when the default is
-used in an element instance.
-</p>
-    <p>
-General entities occuring in the document body are always checked.</p>
-    <p>
-NDATA entities can occur in ENTITY attribute values; either in the element
-instance or in the default declaration. Both cases are checked.
-</p>
-  </sect1>
-
-</readme>

diff --git a/helm/DEVEL/pxp/pxp/doc/design.txt b/helm/DEVEL/pxp/pxp/doc/design.txt
deleted file mode 100644 (file)
index bf75d06..0000000
--- a/helm/DEVEL/pxp/pxp/doc/design.txt
+++ /dev/null
@@ -1,340 +0,0 @@
------------------------------------------------- -*- indented-text -*-
-Some Notes About the Design:
-----------------------------------------------------------------------
-
-----------------------------------------------------------------------
-Compilation
-----------------------------------------------------------------------
-
-Compilation is non-trivial because:
-
- - The lexer and parser generators ocamlllex resp. ocamlyacc normally
-   create code such that the parser module precedes the lexer module.
-   THIS design requires that the lexer layer precedes the entity layer
-   which precedes the parser layer, because the parsing results modify
-   the behaviour of the lexer and entity layers. There is no way to get
-   around this because of the nature of XML.
-
-   So the dependency relation of the lexer and the parser is modified;
-   in particular the "token" type that is normally defined by the 
-   generated parser is moved to a common prdecessor of both lexer
-   and parser.
-
- - Another modification of the standard way of handling parsers is that
-   the parser is turned into an object. This is necessary because the
-   whole parser is polymorphic, i.e. there is a type parameter (the
-   type of the node extension).
-
-......................................................................
-
-First some modules are generated as illustrated by the following
-diagram:
-
-
-                                    markup_yacc.mly
-                              |        |
-                              \|/      \|/  [ocamlyacc, 1]
-                               V               V
-                            markup_yacc.mli  markup_yacc.ml
-                                 |             --> renamed into markup_yacc.ml0
-           [awk, 2]     \|/                        |
-                         V                        \|/   [sed, 3]
-              markup_yacc_token.mlf                V
-                      |       |              markup_yacc.ml
- markup_lexer_types_   |       |
- shadow.mli  |                |       | markup_lexer_types_
-           \|/ [sed, \|/      | shadow.ml
-            V    4]   V       |     |
-       markup_lexer_types.mli |     |   [sed, 4]
-                             \|/   \|/
-                              V     V
-                       markup_lexer_types.ml
-
-
-                                  markup_yacc_shadow.mli
-                                          |
-                                 \|/  [replaces, 5]
-                                  V
-                             markup_yacc.mli
-
-
-
-                          markup_lexers.mll
-                                          |
-                                 \|/  [ocamllex, 6]
-                                  V
-                           markup_lexers.ml
-
-
-Notes:
-
-       (1) ocamlyacc generates both a module and a module interface.
-           The module is postprocessed in step (3). The interface cannot
-           be used, but it contains the definition of the "token" type.
-           This definition is extracted in step (2). The interface is
-           completely replaced in step (5) by a different file.
-
-       (2) An "awk" script extracts the definition of the type "token".
-           "token" is created by ocamlyacc upon the %token directives
-           in markup_yacc.mly, and normally "token" is defined in
-           the module generated by ocamlyacc. This turned out not to be
-           useful as the module dependency must be that the lexer is
-           an antecedent of the parser and not vice versa (as usually),
-           so the "token" type is "moved" to the module Markup_lexer_types
-           which is an antecedent of both the lexer and the parser.
-
-       (3) A "sed" script turns the generated parser into an object.
-           This is rather simple; some "let" definitions must be rewritten
-           as "val" definitions, the other "let" definitions as
-           "method" definitions. The parser object is needed because
-           the whole parser has a polymorphic type parameter.
-
-       (4) The implementation and definition of Markup_lexer_types are
-           both generated by inserting the "token" type definition
-           (in markup_lexer_types.mlf) into two pattern files,
-           markup_lexer_types_shadow.ml resp. -.mli. The point of insertion
-           is marked by the string INCLUDE_HERE.
-
-       (5) The generated interface of the Markup_yacc module is replaced
-           by a hand-written file.
-
-       (6) ocamllex generates the lexer; this process is not patched in any
-           way.
-
-......................................................................
-
-After the additional modules have been generated, compilation proceeds
-in the usual manner.
-
-
-----------------------------------------------------------------------
-Hierarchy of parsing layers:
-----------------------------------------------------------------------
-
-From top to bottom:
-
- - Parser: Markup_yacc
-   + gets input stream from the main entity object
-   + checks most of the grammar
-   + creates the DTD object as side-effect
-   + creates the element tree as side-effect
-   + creates further entity objects that are entered into the DTD
- - Entity layer: Markup_entity
-   + gets input stream from the lexers, or another entity object
-   + handles entity references: if a reference is encountered the
-     input stream is redirected such that the tokens come from the
-     referenced entity object
-   + handles conditional sections
- - Lexer layer: Markup_lexers
-   + gets input from lexbuffers created by resolvers
-   + different lexers for different lexical contexts
-   + a lexer returns pairs (token,lexid), where token is the scanned
-     token, and lexid is the name of the lexer that must be used for
-     the next token
- - Resolver layer: Markup_entity
-   + a resolver creates the lexbuf from some character source
-   + a resolver recodes the input and handles the encoding scheme
-
-----------------------------------------------------------------------
-The YACC based parser
-----------------------------------------------------------------------
-
-ocamlyacc allows it to pass an arbitrary 'next_token' function to the
-parsing functions. We always use 'en # next_token()' where 'en' is the
-main entity object representing the main file to be parsed.
-
-The parser is not functional, but uses mainly side-effects to accumulate
-the structures that have been recognized. This is very important for the
-entity definitions, because once an entity definition has been found there
-may be a reference to it which is handled by the entity layer (which is
-below the yacc layer). This means that such a definition modifies the
-token source of the parser, and this can only be handled by side-effects
-(at least in a sensible manner; a purely functional parser would have to
-pass unresolved entity references to its caller, which would have to
-resolve the reference and to re-parse the whole document!).
-
-Note that also element definitions profit from the imperative style of
-the parser; an element instance can be validated directly once the end
-tag has been read in.
-
-----------------------------------------------------------------------
-The entity layer
-----------------------------------------------------------------------
-
-The parser gets the tokens from the main entity object. This object
-controls the underlying lexing mechanism (see below), and already
-interprets the following:
-
-- Conditional sections (if they are allowed in this entity):
-  The structures <![ INCLUDE [ ... ]]> and <! IGNORE [ ... ]]> are
-  recognized and interpreted.
-
-  This would be hard to realize by the yacc parser, because:
-  - INCLUDE and IGNORE are not recognized as lexical keywords but as names.
-    This means that the parser cannot select different rules for them.
-  - The text after IGNORE requires a different lexical handling.
-
-- Entity references: &name; and %name;
-  The named entity is looked up and the input source is redirected to it, i.e.
-  if the main entity object gets the message 'next_token' this message is
-  forwarded to the referenced entity. (This entity may choose to forward the
-  message again to a third entity, and so on.)
-
-  There are some fine points:
-
-  - It is okay that redirection happens at token level, not at character level:
-    + General entities must always match the 'content' production, and because
-      of this they must always consist of a whole number of tokens.
-    + If parameter entities are resolved, the XML specification states that
-      a space character is inserted before and after the replacement text.
-      This also means that such entities always consists of a whole number
-      of tokens.
-
-  - There are some "nesting constraints":
-    + General entities must match the 'content' production. Because of this,
-      the special token Begin_entity is inserted before the first token of
-      the entity, and End_entity is inserted just before the Eof token. The
-      brace Begin_entity...End_entity is recognized by the yacc parser, but
-      only in the 'content' production.
-    + External parameter entities must match 'extSubsetDecl'. Again,
-      Begin_entity and End_entity tokens embrace the inner token stream.
-      The brace Begin_entity...End_entity is recognized by the yacc parser
-      at the appropriate position.
-      (As general and parameter entities are used in different contexts
-      (document vs. DTD), both kinds of entities can use the same brace
-      Begin_entity...End_entity.)
-    + TODO:
-      The constraints for internal parameter entities are not yet checked.
-
-  - Recursive references can be detected because entities must be opened
-    before the 'next_token' method can be invoked.
-
-----------------------------------------------------------------------
-The lexer layer
-----------------------------------------------------------------------
-
-There are five main lexers, and a number of auxiliary lexers. The five
-main lexers are:
-
-- Document (function scan_document):
-  Scans an XML document outside the DTD and outside the element instance.
-
-- Content (function scan_content):
-  Scans an element instance, but not within tags.
-
-- Within_tag (function scan_within_tag):
-  Scans within <...>, i.e. a tag denoting an element instance.
-
-- Document_type (function scan_document_type):
-  Scans after <!DOCTYPE until the corresponding >.
-
-- Declaration (function scan_declaration):
-  Scans sequences of declarations
-
-Why several lexers? Because there are different lexical rules in these
-five regions of an XML document.
-
-Every lexer not only produces tokens, but also the name of the next lexer
-to use. For example, if the Document lexer scans "<!DOCTYPE", it also
-outputs that the next token must be scanned by Document_type.
-
-It is interesting that this really works. The beginning of every lexical
-context can be recognized by the lexer of the previous context, and there
-is always a token that unambigously indicates that the context ends.
-
-----------------------------------------------------------------------
-The DTD object
-----------------------------------------------------------------------
-
-There is usually one object that collects DTD declarations. All kinds of
-declarations are entered here:
-
-- element and attribute list declarations
-- entity declarations
-- notation declarations
-
-Some properties are validated directly after a declarations has been added
-to the DTD, but most validation is done by a 'validate' method.
-
-The result of 'validate' is stored such that another invocation is cheap.
-A DTD becomes again 'unchecked' if another declaration is added.
-
-TODO: We need a special DTD object that allows every content.
-
-The DTD object is known by more or less every other object, i.e. entities
-know the DTD, element declarations and instances know the DTD, and so on.
-
-TODO: We need a method that deletes all entity declarations once the DTD
-is complete (to free memory).
-
-----------------------------------------------------------------------
-Element and Document objects
-----------------------------------------------------------------------
-
-The 'element' objects form the tree of the element instances.
-
-The 'document' object is a derivate of 'element' where properties of the
-whole document can be stored.
-
-New element objects are NOT created by the "new class" mechanism, but
-instead by an exemplar/instance scheme: A new instance is the duplicate
-of an exemplar. This has the advantage that the user can provide own
-classes for the element instances. A hashtable contains the exemplars
-for every element type (tag name), and there is a default exemplar.
-The user can configure this hashtable such that for elements A objects
-of class element_a, for elements B objects of class element_b and so on
-are used.
-
-The object for the root element must already be created before parsing
-starts, and the parser returns the (filled) root object. Because of this,
-the user determines the *static* type of the object without the need
-of back coercion (which is not possible in Ocaml).
-
-----------------------------------------------------------------------
-Newline normalization
-----------------------------------------------------------------------
-
-The XML spec states that all of \n, \r, and \r\n must be recognized
-as newline characters/character sequences. Notes:
-- The replacement text of entities always contains the orginal text,
-  i.e. \r and \r\n are NOT converted to \n.
-  It is unclear if this is a violation of the standard or not.
-- Content of elements: Newline characters are converted to \n.
-- Attribute values: Newline characters are converted to spaces.
-- Processing instructions: Newline characters are not converted.
-  It is unclear if this is a violation of the standard or not.
-
-----------------------------------------------------------------------
-Empty entities
-----------------------------------------------------------------------
-
-Many entities are artificially surrounded by a Begin_entity/End_entity pair.
-This is sometimes not done if the entity is empty:
-
-- External parameter entities are parsed entities, i.e. they must match
-  the markupdecl* production. If they are not empty, the Begin_entity/End_entity
-  trick guarantees that they match markupdecl+, and that they are only
-  referred to at positions where markupdecl+ is allowed.
-  If they are empty, they are allowed everywhere just like internal 
-  parameter entities. Because of this, the Begin_entity/End_entity pair
-  is dropped.
-
-- This does not apply to parameter entities (either external or internal)
-  which are referred to in the internal subset, nor applies to internal
-  parameter entities, nor applies to general entities:
-
-  + References in the internal subset are only allowed at positions where
-    markupdecl can occur, so Begin_entity/End_entity is added even if the
-    entity is empty.
-  + References to internal parameter entities are allowed anywhere, so
-    never Begin_entity/End_entity is added.
-  + References to general entities: An empty  Begin_entity/End_entity pair
-    is recognized by the yacc parser, so special handling is not required.
-    Moreover, there is the situation that an empty entity is referred to
-    after the toplevel element:
-    <!DOCTYPE doc ...[
-    <!ENTITY empty "">
-    ]>
-    <doc></doc>&empty;
-    - This is illegal, and the presence of an empty Begin_entity/End_entity pair
-    helps to recognize this.

diff --git a/helm/DEVEL/pxp/pxp/doc/dist-common.xml b/helm/DEVEL/pxp/pxp/doc/dist-common.xml
deleted file mode 100644 (file)
index d18a150..0000000
--- a/helm/DEVEL/pxp/pxp/doc/dist-common.xml
+++ /dev/null
@@ -1,123 +0,0 @@
-<?xml encoding="ISO-8859-1"?>
-
-<!-- ************************************************************ -->
-<!-- EXTERNAL URLs                                                -->
-<!-- ************************************************************ -->
-
-<!ENTITY url.ocaml           
-         "http://caml.inria.fr/">
-
-<!ENTITY url.ocaml.list
-         "http://caml.inria.fr/caml-list-eng.html">
-
-<!ENTITY url.ocaml.download
-         "ftp://ftp.inria.fr/lang/caml-light/">
-
-<!ENTITY url.ocaml.camlp4
-         "http://caml.inria.fr/camlp4/">
-
-<!ENTITY url.ocaml.hump
-         "http://caml.inria.fr/hump.html">
-
-<!ENTITY url.ocaml.mottl
-         "http://miss.wu-wien.ac.at/~mottl/ocaml_sources/intro.html">
-
-<!ENTITY url.ocaml.mottl.pcre
-         "http://miss.wu-wien.ac.at/~mottl/ocaml_sources/pcre_ocaml.tar.gz">
-
-<!ENTITY url.ocaml.lindig
-         "http://www.cs.tu-bs.de/softech/people/lindig/software/index.html">
-
-<!ENTITY url.ocaml.lindig.ocmarkup
-         "http://www.cs.tu-bs.de/softech/people/lindig/software/ocmarkup.html">
-
-<!ENTITY url.ocaml.lindig.tony
-         "http://www.cs.tu-bs.de/softech/people/lindig/software/tony.html">
-
-<!ENTITY url.ocaml.filliatre
-         "http://www.lri.fr/~filliatr/software.en.html">
-
-<!ENTITY url.ocaml.filliatre.cgi
-         "http://www.lri.fr/~filliatr/ftp/ocaml/cgi/">
-
-<!ENTITY url.xml-spec        
-         "http://www.w3.org/TR/1998/REC-xml-19980210.html">
-
-<!ENTITY url.xml.oasis
-         "http://www.oasis-open.org/cover/">
-
-<!ENTITY url.xml.w3c
-         "http://www.w3c.org/XML/">
-
-<!ENTITY url.jclark-xmltdata 
-         "ftp://ftp.jclark.com/pub/xml/xmltest.zip">
-
-<!ENTITY urlprefix.ietf.rfc
-         "http://www.ietf.org/rfc">
-   <!-- Ohne "/" am Ende! -->
-
-<!ENTITY url.apache
-         "http://www.apache.org/">
-
-
-<!-- ************************************************************ -->
-<!-- MY URLs                                                      -->
-<!-- ************************************************************ -->
-
-<!ENTITY url.linkdb
-         "http://www.npc.de/ocaml/linkdb">
-
-<!-- ************************************************************ -->
-<!-- HOMEPAGE URLs                                                -->
-<!-- ************************************************************ -->
-
-<!-- GENERIC -->
-
-<!ENTITY url.gps-ocaml-download 
-         "http://people.darmstadt.netsurf.de/Gerd.Stolpmann/ocaml">
-
-<!ENTITY url.gps-ocaml-projects
-         "http://people.darmstadt.netsurf.de/Gerd.Stolpmann/ocaml/projects">
-
-<!ENTITY url.gps-old-download
-         "http://people.darmstadt.netsurf.de/Gerd.Stolpmann/download">
-
-
-<!-- SPECIFIC -->
-
-<!ENTITY release.findlib
-         "SOME-VERSION">
-
-<!ENTITY url.findlib-download
-         "&url.gps-ocaml-download;/findlib-&release.findlib;.tar.gz">
-
-<!ENTITY url.findlib-project
-         "&url.gps-ocaml-projects;/findlib/">
-
-<!ENTITY url.findlib-manual
-         "&url.gps-ocaml-projects;/findlib/">
-
-
-
-<!ENTITY release.markup
-         "SOME-VERSION">
-
-<!ENTITY url.markup-download    
-         "&url.gps-ocaml-download;/markup-&release.markup;.tar.gz">
-
-<!ENTITY url.markup-project
-         "&url.gps-ocaml-projects;/markup">
-
-<!ENTITY url.markup-manual
-         "&url.gps-ocaml-projects;/markup/manual">
-
-
-<!-- ************************************************************ -->
-<!-- MAIL URLs                                                    -->
-<!-- ************************************************************ -->
-
-<!ENTITY person.gps '<a href="mailto:&person.gps.mail;">Gerd Stolpmann</a>'>
-
-<!ENTITY person.gps.mail
-         "Gerd.Stolpmann@darmstadt.netsurf.de">
-

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/Makefile b/helm/DEVEL/pxp/pxp/doc/manual/Makefile
deleted file mode 100644 (file)
index 5a3e1ff..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/Makefile
+++ /dev/null
@@ -1,82 +0,0 @@
-DOCBOOK_HTML = /usr/share/sgml/docbkdsl/html
-DOCBOOK_PRINT = /usr/share/sgml/docbkdsl/print
-SRC = $(PWD)/src
-
-.PHONY: html ps
-
-default: html ps
-
-html: html/book1.htm html/pic/done
-
-ps: ps/markup.ps ps/pic/done
-
-
-src/readme.ent: ../../examples/readme/to_html.ml
-       src/getcode.ml <../../examples/readme/to_html.ml >src/readme.ent
-
-src/yacc.mli.ent: ../../pxp_yacc.mli
-       src/getcode.ml <../../pxp_yacc.mli >src/yacc.mli.ent
-
-src/dtd.mli.ent: ../../pxp_dtd.mli
-       src/getcode.ml <../../pxp_dtd.mli >src/dtd.mli.ent
-
-html/book1.htm: src/*.sgml src/readme.ent src/yacc.mli.ent src/dtd.mli.ent
-       mkdir -p html
-       cp src/markup.css html; \
-       cd html; \
-       rm -f *.htm*; \
-       jade -t sgml -D$(DOCBOOK_HTML) -D$(SRC) -ihtml markup.sgml; \
-       true
-       touch html/TIMESTAMP
-
-html/pic/done: src/pic/*.fig
-       mkdir -p html/pic
-       l=`cd src/pic; echo *.fig`; \
-       for x in $$l; do fig2dev -L gif src/pic/$$x html/pic/`basename $$x .fig`.gif; done
-       touch html/pic/done
-
-#man: src/findlib_reference.xml
-#      mkdir -p man
-#      cd man; \
-#      rm -f *.[0-9]; \
-#      db2man <../src/findlib_reference.xml
-
-ps/markup.tex: src/*.sgml src/readme.ent src/yacc.mli.ent src/dtd.mli.ent
-       mkdir -p ps
-       cd ps; \
-       jade -t tex -D$(DOCBOOK_PRINT) -D$(SRC) markup.sgml; \
-       true
-
-ps/markup.dvi: ps/markup.tex ps/pic/done
-       cd ps; \
-       jadetex markup.tex; \
-       jadetex markup.tex; \
-       jadetex markup.tex
-
-ps/markup.ps: ps/markup.dvi
-       cd ps; \
-       dvips -f <markup.dvi >markup.ps
-
-ps/pic/done: src/pic/*.fig
-       mkdir -p ps/pic
-       l=`cd src/pic; echo *.fig`; \
-       for x in $$l; do fig2dev -L ps -m 0.8 src/pic/$$x ps/pic/`basename $$x .fig`.ps; done
-       touch ps/pic/done
-
-.SUFFIXES: .xml .sgml
-
-.sgml.xml: 
-       sx -xndata $< >$@; true
-
-
-
-clean:
-       rm -rf html man ps
-       rm -f src/readme.ent
-
-CLEAN: clean
-
-distclean:
-       rm -f src/*~
-       rm -f *~
-       rm -f ps/*.aux ps/*.dvi ps/*.log ps/*.tex

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/TIMESTAMP b/helm/DEVEL/pxp/pxp/doc/manual/html/TIMESTAMP
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/c1567.html b/helm/DEVEL/pxp/pxp/doc/manual/html/c1567.html
deleted file mode 100644 (file)
index ab88e87..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/c1567.html
+++ /dev/null
@@ -1,434 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->Configuring and calling the parser</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="UP"
-TITLE="User's guide"
-HREF="p34.html"><LINK
-REL="PREVIOUS"
-TITLE="Details of the mapping from XML text to the tree representation"
-HREF="x1496.html"><LINK
-REL="NEXT"
-TITLE="Resolvers and sources"
-HREF="x1629.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="CHAPTER"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="x1496.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
-></TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
-><A
-HREF="x1629.html"
->Next</A
-></TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="CHAPTER"
-><H1
-><A
-NAME="AEN1567"
->Chapter 4. Configuring and calling the parser</A
-></H1
-><DIV
-CLASS="TOC"
-><DL
-><DT
-><B
->Table of Contents</B
-></DT
-><DT
->4.1. <A
-HREF="c1567.html#AEN1569"
->Overview</A
-></DT
-><DT
->4.2. <A
-HREF="x1629.html"
->Resolvers and sources</A
-></DT
-><DT
->4.3. <A
-HREF="x1812.html"
->The DTD classes</A
-></DT
-><DT
->4.4. <A
-HREF="x1818.html"
->Invoking the parser</A
-></DT
-><DT
->4.5. <A
-HREF="x1965.html"
->Updates</A
-></DT
-></DL
-></DIV
-><DIV
-CLASS="SECT1"
-><H1
-CLASS="SECT1"
-><A
-NAME="AEN1569"
->4.1. Overview</A
-></H1
-><P
->There are the following main functions invoking the parser (in Pxp_yacc):
-
-          <P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><I
-CLASS="EMPHASIS"
->parse_document_entity:</I
-> You want to
-parse a complete and closed document consisting of a DTD and the document body;
-the body is validated against the DTD. This mode is interesting if you have a
-file
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!DOCTYPE root ... [ ... ] &#62; &#60;root&#62; ... &#60;/root&#62;</PRE
->
-
-and you can accept any DTD that is included in the file (e.g. because the file
-is under your control).</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><I
-CLASS="EMPHASIS"
->parse_wfdocument_entity:</I
-> You want to
-parse a complete and closed document consisting of a DTD and the document body;
-but the body is not validated, only checked for well-formedness. This mode is
-preferred if validation costs too much time or if the DTD is missing.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><I
-CLASS="EMPHASIS"
->parse_dtd_entity:</I
-> You want only to
-parse an entity (file) containing the external subset of a DTD. Sometimes it is
-interesting to read such a DTD, for example to compare it with the DTD included
-in a document, or to apply the next mode:</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><I
-CLASS="EMPHASIS"
->parse_content_entity:</I
-> You want only to
-parse an entity (file) containing a fragment of a document body; this fragment
-is validated against the DTD you pass to the function. Especially, the fragment
-must not have a <TT
-CLASS="LITERAL"
-> &lt;!DOCTYPE&gt;</TT
-> clause, and must directly
-begin with an element.  The element is validated against the DTD.  This mode is
-interesting if you want to check documents against a fixed, immutable DTD.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><I
-CLASS="EMPHASIS"
->parse_wfcontent_entity:</I
-> This function
-also parses a single element without DTD, but does not validate it.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><I
-CLASS="EMPHASIS"
->extract_dtd_from_document_entity:</I
-> This
-function extracts the DTD from a closed document consisting of a DTD and a
-document body. Both the internal and the external subsets are extracted.</P
-></LI
-></UL
-></P
-><P
->In many cases, <TT
-CLASS="LITERAL"
->parse_document_entity</TT
-> is the preferred mode
-to parse a document in a validating way, and
-<TT
-CLASS="LITERAL"
->parse_wfdocument_entity</TT
-> is the mode of choice to parse a
-file while only checking for well-formedness.</P
-><P
->There are a number of variations of these modes. One important application of a
-parser is to check documents of an untrusted source against a fixed DTD. One
-solution is to not allow the <TT
-CLASS="LITERAL"
->&lt;!DOCTYPE&gt;</TT
-> clause in
-these documents, and treat the document like a fragment (using mode
-<I
-CLASS="EMPHASIS"
->parse_content_entity</I
->). This is very simple, but
-inflexible; users of such a system cannot even define additional entities to
-abbreviate frequent phrases of their text.</P
-><P
->It may be necessary to have a more intelligent checker. For example, it is also
-possible to parse the document to check fully, i.e. with DTD, and to compare
-this DTD with the prescribed one. In order to fully parse the document, mode
-<I
-CLASS="EMPHASIS"
->parse_document_entity</I
-> is applied, and to get the DTD to
-compare with mode <I
-CLASS="EMPHASIS"
->parse_dtd_entity</I
-> can be used.</P
-><P
->There is another very important configurable aspect of the parser: the
-so-called resolver. The task of the resolver is to locate the contents of an
-(external) entity for a given entity name, and to make the contents accessible
-as a character stream. (Furthermore, it also normalizes the character set;
-but this is a detail we can ignore here.) Consider you have a file called
-<TT
-CLASS="LITERAL"
->"main.xml"</TT
-> containing 
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ENTITY % sub SYSTEM "sub/sub.xml"&#62;
-%sub;</PRE
->
-
-and a file stored in the subdirectory <TT
-CLASS="LITERAL"
->"sub"</TT
-> with name
-<TT
-CLASS="LITERAL"
->"sub.xml"</TT
-> containing
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ENTITY % subsub SYSTEM "subsub/subsub.xml"&#62;
-%subsub;</PRE
->
-
-and a file stored in the subdirectory <TT
-CLASS="LITERAL"
->"subsub"</TT
-> of
-<TT
-CLASS="LITERAL"
->"sub"</TT
-> with name <TT
-CLASS="LITERAL"
->"subsub.xml"</TT
-> (the
-contents of this file do not matter). Here, the resolver must track that
-the second entity <TT
-CLASS="LITERAL"
->subsub</TT
-> is located in the directory
-<TT
-CLASS="LITERAL"
->"sub/subsub"</TT
->, i.e. the difficulty is to interpret the
-system (file) names of entities relative to the entities containing them,
-even if the entities are deeply nested.</P
-><P
->There is not a fixed resolver already doing everything right - resolving entity
-names is a task that highly depends on the environment. The XML specification
-only demands that <TT
-CLASS="LITERAL"
->SYSTEM</TT
-> entities are interpreted like URLs
-(which is not very precise, as there are lots of URL schemes in use), hoping
-that this helps overcoming the local peculiarities of the environment; the idea
-is that if you do not know your environment you can refer to other entities by
-denoting URLs for them. I think that this interpretation of
-<TT
-CLASS="LITERAL"
->SYSTEM</TT
-> names may have some applications in the internet, but
-it is not the first choice in general. Because of this, the resolver is a
-separate module of the parser that can be exchanged by another one if
-necessary; more precisely, the parser already defines several resolvers.</P
-><P
->The following resolvers do already exist:
-
-          <P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
->Resolvers reading from arbitrary input channels. These
-can be configured such that a certain ID is associated with the channel; in
-this case inner references to external entities can be resolved. There is also
-a special resolver that interprets SYSTEM IDs as URLs; this resolver can
-process relative SYSTEM names and determine the corresponding absolute URL.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->A resolver that reads always from a given O'Caml
-string. This resolver is not able to resolve further names unless the string is
-not associated with any name, i.e. if the document contained in the string
-refers to an external entity, this reference cannot be followed in this
-case.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->A resolver for file names. The <TT
-CLASS="LITERAL"
->SYSTEM</TT
->
-name is interpreted as file URL with the slash "/" as separator for
-directories. - This resolver is derived from the generic URL resolver.</P
-></LI
-></UL
->
-
-The interface a resolver must have is documented, so it is possible to write
-your own resolver. For example, you could connect the parser with an HTTP
-client, and resolve URLs of the HTTP namespace. The resolver classes support
-that several independent resolvers are combined to one more powerful resolver;
-thus it is possible to combine a self-written resolver with the already
-existing resolvers.</P
-><P
->Note that the existing resolvers only interpret <TT
-CLASS="LITERAL"
->SYSTEM</TT
->
-names, not <TT
-CLASS="LITERAL"
->PUBLIC</TT
-> names. If it helps you, it is possible to
-define resolvers for <TT
-CLASS="LITERAL"
->PUBLIC</TT
-> names, too; for example, such a
-resolver could look up the public name in a hash table, and map it to a system
-name which is passed over to the existing resolver for system names. It is
-relatively simple to provide such a resolver.</P
-></DIV
-></DIV
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="x1496.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="x1629.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->Details of the mapping from XML text to the tree representation</TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="p34.html"
->Up</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->Resolvers and sources</TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/c36.html b/helm/DEVEL/pxp/pxp/doc/manual/html/c36.html
deleted file mode 100644 (file)
index d74ecbb..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/c36.html
+++ /dev/null
@@ -1,533 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->What is XML?</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="UP"
-TITLE="User's guide"
-HREF="p34.html"><LINK
-REL="PREVIOUS"
-TITLE="User's guide"
-HREF="p34.html"><LINK
-REL="NEXT"
-TITLE="Highlights of XML"
-HREF="x107.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="CHAPTER"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="p34.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
-></TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
-><A
-HREF="x107.html"
->Next</A
-></TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="CHAPTER"
-><H1
-><A
-NAME="AEN36"
->Chapter 1. What is XML?</A
-></H1
-><DIV
-CLASS="TOC"
-><DL
-><DT
-><B
->Table of Contents</B
-></DT
-><DT
->1.1. <A
-HREF="c36.html#AEN38"
->Introduction</A
-></DT
-><DT
->1.2. <A
-HREF="x107.html"
->Highlights of XML</A
-></DT
-><DT
->1.3. <A
-HREF="x468.html"
->A complete example: The <I
-CLASS="EMPHASIS"
->readme</I
-> DTD</A
-></DT
-></DL
-></DIV
-><DIV
-CLASS="SECT1"
-><H1
-CLASS="SECT1"
-><A
-NAME="AEN38"
->1.1. Introduction</A
-></H1
-><P
->XML (short for <I
-CLASS="EMPHASIS"
->Extensible Markup Language</I
->)
-generalizes the idea that text documents are typically structured in sections,
-sub-sections, paragraphs, and so on. The format of the document is not fixed
-(as, for example, in HTML), but can be declared by a so-called DTD (document
-type definition). The DTD describes only the rules how the document can be
-structured, but not how the document can be processed. For example, if you want
-to publish a book that uses XML markup, you will need a processor that converts
-the XML file into a printable format such as Postscript. On the one hand, the
-structure of XML documents is configurable; on the other hand, there is no
-longer a canonical interpretation of the elements of the document; for example
-one XML DTD might want that paragraphes are delimited by
-<TT
-CLASS="LITERAL"
->para</TT
-> tags, and another DTD expects <TT
-CLASS="LITERAL"
->p</TT
-> tags
-for the same purpose. As a result, for every DTD a new processor is required.</P
-><P
->Although XML can be used to express structured text documents it is not limited
-to this kind of application. For example, XML can also be used to exchange
-structured data over a network, or to simply store structured data in
-files. Note that XML documents cannot contain arbitrary binary data because
-some characters are forbidden; for some applications you need to encode binary
-data as text (e.g. the base 64 encoding).</P
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN45"
->1.1.1. The "hello world" example</A
-></H2
-><P
->The following example shows a very simple DTD, and a corresponding document
-instance. The document is structured such that it consists of sections, and
-that sections consist of paragraphs, and that paragraphs contain plain text:</P
-><PRE
-CLASS="PROGRAMLISTING"
->&#60;!ELEMENT document (section)+&#62;
-&#60;!ELEMENT section (paragraph)+&#62;
-&#60;!ELEMENT paragraph (#PCDATA)&#62;</PRE
-><P
->The following document is an instance of this DTD:</P
-><PRE
-CLASS="PROGRAMLISTING"
->&#60;?xml version="1.0" encoding="ISO-8859-1"?&#62;
-&#60;!DOCTYPE document SYSTEM "simple.dtd"&#62;
-&#60;document&#62;
-  &#60;section&#62;
-    &#60;paragraph&#62;This is a paragraph of the first section.&#60;/paragraph&#62;
-    &#60;paragraph&#62;This is another paragraph of the first section.&#60;/paragraph&#62;
-  &#60;/section&#62;
-  &#60;section&#62;
-    &#60;paragraph&#62;This is the only paragraph of the second section.&#60;/paragraph&#62;
-  &#60;/section&#62;
-&#60;/document&#62;</PRE
-><P
->As in HTML (and, of course, in grand-father SGML), the "pieces" of
-the document are delimited by element braces, i.e. such a piece begins with
-<TT
-CLASS="LITERAL"
->&lt;name-of-the-type-of-the-piece&gt;</TT
-> and ends with
-<TT
-CLASS="LITERAL"
->&lt;/name-of-the-type-of-the-piece&gt;</TT
->, and the pieces are
-called <I
-CLASS="EMPHASIS"
->elements</I
->. Unlike HTML and SGML, both start tags and
-end tags (i.e. the delimiters written in angle brackets) can never be left
-out. For example, HTML calls the paragraphs simply <TT
-CLASS="LITERAL"
->p</TT
->, and
-because paragraphs never contain paragraphs, a sequence of several paragraphs
-can be written as:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;p&#62;First paragraph 
-&#60;p&#62;Second paragraph</PRE
->
-
-This is not possible in XML; continuing our example above we must always write
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;paragraph&#62;First paragraph&#60;/paragraph&#62;
-&#60;paragraph&#62;Second paragraph&#60;/paragraph&#62;</PRE
->
-
-The rationale behind that is to (1) simplify the development of XML parsers
-(you need not convert the DTD into a deterministic finite automaton which is
-required to detect omitted tags), and to (2) make it possible to parse the
-document independent of whether the DTD is known or not.</P
-><P
->The first line of our sample document,
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;?xml version="1.0" encoding="ISO-8859-1"?&#62;</PRE
->
-
-is the so-called <I
-CLASS="EMPHASIS"
->XML declaration</I
->. It expresses that the
-document follows the conventions of XML version 1.0, and that the document is
-encoded using characters from the ISO-8859-1 character set (often known as
-"Latin 1", mostly used in Western Europe). Although the XML declaration is not
-mandatory, it is good style to include it; everybody sees at the first glance
-that the document uses XML markup and not the similar-looking HTML and SGML
-markup languages. If you omit the XML declaration, the parser will assume
-that the document is encoded as UTF-8 or UTF-16 (there is a rule that makes
-it possible to distinguish between UTF-8 and UTF-16 automatically); these
-are encodings of Unicode's universal character set. (Note that <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
->, unlike its
-predecessor "Markup", fully supports Unicode.)</P
-><P
->The second line,
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!DOCTYPE document SYSTEM "simple.dtd"&#62;</PRE
->
-
-names the DTD that is going to be used for the rest of the document. In
-general, it is possible that the DTD consists of two parts, the so-called
-external and the internal subset. "External" means that the DTD exists as a
-second file; "internal" means that the DTD is included in the same file. In
-this example, there is only an external subset, and the system identifier
-"simple.dtd" specifies where the DTD file can be found. System identifiers are
-interpreted as URLs; for instance this would be legal:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!DOCTYPE document SYSTEM "http://host/location/simple.dtd"&#62;</PRE
->
-
-Please note that <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-> cannot interpret HTTP identifiers by default, but it is
-possible to change the interpretation of system identifiers.</P
-><P
->The word immediately following <TT
-CLASS="LITERAL"
->DOCTYPE</TT
-> determines which of
-the declared element types (here "document", "section", and "paragraph") is
-used for the outermost element, the <I
-CLASS="EMPHASIS"
->root element</I
->. In this
-example it is <TT
-CLASS="LITERAL"
->document</TT
-> because the outermost element is
-delimited by <TT
-CLASS="LITERAL"
->&lt;document&gt;</TT
-> and
-<TT
-CLASS="LITERAL"
->&lt;/document&gt;</TT
->. </P
-><P
->The DTD consists of three declarations for element types:
-<TT
-CLASS="LITERAL"
->document</TT
->, <TT
-CLASS="LITERAL"
->section</TT
->, and
-<TT
-CLASS="LITERAL"
->paragraph</TT
->. Such a declaration has two parts:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;!ELEMENT <TT
-CLASS="REPLACEABLE"
-><I
->name</I
-></TT
-> <TT
-CLASS="REPLACEABLE"
-><I
->content-model</I
-></TT
->&gt;</PRE
->
-
-The content model is a regular expression which describes the possible inner
-structure of the element. Here, <TT
-CLASS="LITERAL"
->document</TT
-> contains one or
-more sections, and a <TT
-CLASS="LITERAL"
->section</TT
-> contains one or more
-paragraphs. Note that these two element types are not allowed to contain
-arbitrary text. Only the <TT
-CLASS="LITERAL"
->paragraph</TT
-> element type is declared
-such that parsed character data (indicated by the symbol
-<TT
-CLASS="LITERAL"
->#PCDATA</TT
->) is permitted.</P
-><P
->See below for a detailed discussion of content models. </P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN84"
->1.1.2. XML parsers and processors</A
-></H2
-><P
->XML documents are human-readable, but this is not the main purpose of this
-language. XML has been designed such that documents can be read by a program
-called an <I
-CLASS="EMPHASIS"
->XML parser</I
->. The parser checks that the document
-is well-formatted, and it represents the document as objects of the programming
-language. There are two aspects when checking the document: First, the document
-must follow some basic syntactic rules, such as that tags are written in angle
-brackets, that for every start tag there must be a corresponding end tag and so
-on. A document respecting these rules is
-<I
-CLASS="EMPHASIS"
->well-formed</I
->. Second, the document must match the DTD in
-which case the document is <I
-CLASS="EMPHASIS"
->valid</I
->. Many parsers check only
-on well-formedness and ignore the DTD; <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-> is designed such that it can
-even validate the document.</P
-><P
->A parser does not make a sensible application, it only reads XML
-documents. The whole application working with XML-formatted data is called an
-<I
-CLASS="EMPHASIS"
->XML processor</I
->. Often XML processors convert documents into
-another format, such as HTML or Postscript. Sometimes processors extract data
-of the documents and output the processed data again XML-formatted. The parser
-can help the application processing the document; for example it can provide
-means to access the document in a specific manner. <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-> supports an
-object-oriented access layer specially.</P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN94"
->1.1.3. Discussion</A
-></H2
-><P
->As we have seen, there are two levels of description: On the one hand, XML can
-define rules about the format of a document (the DTD), on the other hand, XML
-expresses structured documents. There are a number of possible applications:</P
-><P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
->XML can be used to express structured texts. Unlike HTML, there is no canonical
-interpretation; one would have to write a backend for the DTD that translates
-the structured texts into a format that existing browsers, printers
-etc. understand. The advantage of a self-defined document format is that it is
-possible to design the format in a more problem-oriented way. For example, if
-the task is to extract reports from a database, one can use a DTD that reflects
-the structure of the report or the database. A possible approach would be to
-have an element type for every database table and for every column. Once the
-DTD has been designed, the report procedure can be splitted up in a part that
-selects the database rows and outputs them as an XML document according to the
-DTD, and in a part that translates the document into other formats. Of course,
-the latter part can be solved in a generic way, e.g. there may be configurable
-backends for all DTDs that follow the approach and have element types for
-tables and columns.</P
-><P
->XML plays the role of a configurable intermediate format. The database
-extraction function can be written without having to know the details of
-typesetting; the backends can be written without having to know the details of
-the database.</P
-><P
->Of course, there are traditional solutions. One can define an ad hoc
-intermediate text file format. This disadvantage is that there are no names for
-the pieces of the format, and that such formats usually lack of documentation
-because of this. Another solution would be to have a binary representation,
-either as language-dependent or language-independent structure (example of the
-latter can be found in RPC implementations). The disadvantage is that it is
-harder to view such representations, one has to write pretty printers for this
-purpose. It is also more difficult to enter test data; XML is plain text that
-can be written using an arbitrary editor (Emacs has even a good XML mode,
-PSGML). All these alternatives suffer from a missing structure checker,
-i.e. the programs processing these formats usually do not check the input file
-or input object in detail; XML parsers check the syntax of the input (the
-so-called well-formedness check), and the advanced parsers like <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-> even
-verify that the structure matches the DTD (the so-called validation).</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->XML can be used as configurable communication language. A fundamental problem
-of every communication is that sender and receiver must follow the same
-conventions about the language. For data exchange, the question is usually
-which data records and fields are available, how they are syntactically
-composed, and which values are possible for the various fields. Similar
-questions arise for text document exchange. XML does not answer these problems
-completely, but it reduces the number of ambiguities for such conventions: The
-outlines of the syntax are specified by the DTD (but not necessarily the
-details), and XML introduces canonical names for the components of documents
-such that it is simpler to describe the rest of the syntax and the semantics
-informally.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->XML is a data storage format. Currently, every software product tends to use
-its own way to store data; commercial software often does not describe such
-formats, and it is a pain to integrate such software into a bigger project. 
-XML can help to improve this situation when several applications share the same
-syntax of data files. DTDs are then neutral instances that check the format of
-data files independent of applications. </P
-></LI
-></UL
-></DIV
-></DIV
-></DIV
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="p34.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="x107.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->User's guide</TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="p34.html"
->Up</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->Highlights of XML</TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/c533.html b/helm/DEVEL/pxp/pxp/doc/manual/html/c533.html
deleted file mode 100644 (file)
index c58e6ff..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/c533.html
+++ /dev/null
@@ -1,234 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->Using PXP</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="UP"
-TITLE="User's guide"
-HREF="p34.html"><LINK
-REL="PREVIOUS"
-TITLE="A complete example: The readme DTD"
-HREF="x468.html"><LINK
-REL="NEXT"
-TITLE="How to parse a document from an application"
-HREF="x550.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="CHAPTER"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="x468.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
-></TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
-><A
-HREF="x550.html"
->Next</A
-></TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="CHAPTER"
-><H1
-><A
-NAME="AEN533"
->Chapter 2. Using <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-></A
-></H1
-><DIV
-CLASS="TOC"
-><DL
-><DT
-><B
->Table of Contents</B
-></DT
-><DT
->2.1. <A
-HREF="c533.html#AEN536"
->Validation</A
-></DT
-><DT
->2.2. <A
-HREF="x550.html"
->How to parse a document from an application</A
-></DT
-><DT
->2.3. <A
-HREF="x675.html"
->Class-based processing of the node tree</A
-></DT
-><DT
->2.4. <A
-HREF="x738.html"
->Example: An HTML backend for the <I
-CLASS="EMPHASIS"
->readme</I
->
-DTD</A
-></DT
-></DL
-></DIV
-><DIV
-CLASS="SECT1"
-><H1
-CLASS="SECT1"
-><A
-NAME="AEN536"
->2.1. Validation</A
-></H1
-><P
->The parser can be used to <I
-CLASS="EMPHASIS"
->validate</I
-> a document. This means
-that all the constraints that must hold for a valid document are actually
-checked. Validation is the default mode of <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
->, i.e. every document is
-validated while it is being parsed.</P
-><P
->In the <TT
-CLASS="LITERAL"
->examples</TT
-> directory of the distribution you find the
-<TT
-CLASS="LITERAL"
->pxpvalidate</TT
-> application. It is invoked in the following way:
-
-<PRE
-CLASS="PROGRAMLISTING"
->pxpvalidate [ -wf ] <TT
-CLASS="REPLACEABLE"
-><I
->file</I
-></TT
->...</PRE
->
-
-The files mentioned on the command line are validated, and every warning and
-every error messages are printed to stderr.</P
-><P
->The -wf switch modifies the behaviour such that a well-formedness parser is
-simulated. In this mode, the ELEMENT, ATTLIST, and NOTATION declarations of the
-DTD are ignored, and only the ENTITY declarations will take effect. This mode
-is intended for documents lacking a DTD. Please note that the parser still
-scans the DTD fully and will report all errors in the DTD; such checks are not
-required by a well-formedness parser.</P
-><P
->The <TT
-CLASS="LITERAL"
->pxpvalidate</TT
-> application is the simplest sensible program
-using <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
->, you may consider it as "hello world" program. </P
-></DIV
-></DIV
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="x468.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="x550.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->A complete example: The <I
-CLASS="EMPHASIS"
->readme</I
-> DTD</TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="p34.html"
->Up</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->How to parse a document from an application</TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/c893.html b/helm/DEVEL/pxp/pxp/doc/manual/html/c893.html
deleted file mode 100644 (file)
index 0e564fb..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/c893.html
+++ /dev/null
@@ -1,349 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->The objects representing the document</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="UP"
-TITLE="User's guide"
-HREF="p34.html"><LINK
-REL="PREVIOUS"
-TITLE="Example: An HTML backend for the readme
-DTD"
-HREF="x738.html"><LINK
-REL="NEXT"
-TITLE="The class type node"
-HREF="x939.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="CHAPTER"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="x738.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
-></TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
-><A
-HREF="x939.html"
->Next</A
-></TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="CHAPTER"
-><H1
-><A
-NAME="AEN893"
->Chapter 3. The objects representing the document</A
-></H1
-><DIV
-CLASS="TOC"
-><DL
-><DT
-><B
->Table of Contents</B
-></DT
-><DT
->3.1. <A
-HREF="c893.html#AEN897"
->The <TT
-CLASS="LITERAL"
->document</TT
-> class</A
-></DT
-><DT
->3.2. <A
-HREF="x939.html"
->The class type <TT
-CLASS="LITERAL"
->node</TT
-></A
-></DT
-><DT
->3.3. <A
-HREF="x1439.html"
->The class type <TT
-CLASS="LITERAL"
->extension</TT
-></A
-></DT
-><DT
->3.4. <A
-HREF="x1496.html"
->Details of the mapping from XML text to the tree representation</A
-></DT
-></DL
-></DIV
-><P
-><I
-CLASS="EMPHASIS"
->This description might be out-of-date. See the module interface files
-for updated information.</I
-></P
-><DIV
-CLASS="SECT1"
-><H1
-CLASS="SECT1"
-><A
-NAME="AEN897"
->3.1. The <TT
-CLASS="LITERAL"
->document</TT
-> class</A
-></H1
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->class [ 'ext ] document :
-  Pxp_types.collect_warnings -&#62; 
-  object
-    method init_xml_version : string -&#62; unit
-    method init_root : 'ext node -&#62; unit
-
-    method xml_version : string
-    method xml_standalone : bool
-    method dtd : dtd
-    method root : 'ext node
-
-    method encoding : Pxp_types.rep_encoding
-
-    method add_pinstr : proc_instruction -&#62; unit
-    method pinstr : string -&#62; proc_instruction list
-    method pinstr_names : string list
-
-    method write : Pxp_types.output_stream -&#62; Pxp_types.encoding -&#62; unit
-
-  end
-;;</PRE
->
-
-The methods beginning with <TT
-CLASS="LITERAL"
->init_</TT
-> are only for internal use
-of the parser.</P
-><P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->xml_version</TT
->: returns the version string at the beginning of
-the document. For example, "1.0" is returned if the document begins with
-<TT
-CLASS="LITERAL"
->&lt;?xml version="1.0"?&gt;</TT
->.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->xml_standalone</TT
->: returns the boolean value of
-<TT
-CLASS="LITERAL"
->standalone</TT
-> declaration in the XML declaration. If the
-<TT
-CLASS="LITERAL"
->standalone</TT
-> attribute is missing, <TT
-CLASS="LITERAL"
->false</TT
-> is
-returned. </P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->dtd</TT
->: returns a reference to the global DTD object.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->root</TT
->: returns a reference to the root element.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->encoding</TT
->: returns the internal encoding of the
-document. This means that all strings of which the document consists are
-encoded in this character set.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->pinstr</TT
->: returns the processing instructions outside the DTD
-and outside the root element. The argument passed to the method names a
-<I
-CLASS="EMPHASIS"
->target</I
->, and the method returns all instructions with this
-target. The target is the first word inside <TT
-CLASS="LITERAL"
->&lt;?</TT
-> and
-<TT
-CLASS="LITERAL"
->?&gt;</TT
->.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->pinstr_names</TT
->: returns the names of the processing instructions</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->add_pinstr</TT
->: adds another processing instruction. This method
-is used by the parser itself to enter the instructions returned by
-<TT
-CLASS="LITERAL"
->pinstr</TT
->, but you can also enter additional instructions.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->write</TT
->: writes the document to the passed stream as XML
-text using the passed (external) encoding. The generated text is always valid
-XML and can be parsed by PXP; however, the text is badly formatted (this is not
-a pretty printer).</P
-></LI
-></UL
-></DIV
-></DIV
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="x738.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="x939.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->Example: An HTML backend for the <I
-CLASS="EMPHASIS"
->readme</I
->
-DTD</TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="p34.html"
->Up</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->The class type <TT
-CLASS="LITERAL"
->node</TT
-></TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/index.html b/helm/DEVEL/pxp/pxp/doc/manual/html/index.html
deleted file mode 100644 (file)
index 3c07ff2..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/index.html
+++ /dev/null
@@ -1,330 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->The PXP user's guide</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="NEXT"
-TITLE="User's guide"
-HREF="p34.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="BOOK"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="BOOK"
-><A
-NAME="AEN1"
-></A
-><DIV
-CLASS="TITLEPAGE"
-><H1
-CLASS="TITLE"
-><A
-NAME="AEN1"
->The PXP user's guide</A
-></H1
-><H3
-CLASS="AUTHOR"
->Gerd Stolpmann</H3
-><P
-CLASS="COPYRIGHT"
->Copyright &copy; 1999, 2000 by <SPAN
-CLASS="HOLDER"
->Gerd Stolpmann</SPAN
-></P
-><DIV
-><DIV
-CLASS="ABSTRACT"
-><P
-></P
-><P
-><SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-> is a validating parser for XML-1.0 which has been
-written entirely in Objective Caml.</P
-><DIV
-CLASS="FORMALPARA"
-><P
-><H1
-CLASS="TITLE"
-><A
-NAME="AEN18"
->Download <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
->:</A
-></H1
->The free <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-> library can be downloaded at
-<A
-HREF="http://www.ocaml-programming.de/packages/"
-TARGET="_top"
->http://www.ocaml-programming.de/packages/</A
->. This user's guide is included.
-Newest releases of <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-> will be announced in
-<A
-HREF="http://www.npc.de/ocaml/linkdb/"
-TARGET="_top"
->The OCaml Link
-Database</A
->.</P
-></DIV
-><P
-></P
-></DIV
-></DIV
-><DIV
-CLASS="LEGALNOTICE"
-><P
-><B
->License</B
-></P
-><P
->This document, and the described software, "<SPAN
-CLASS="ACRONYM"
->PXP</SPAN
->", are copyright by
-Gerd Stolpmann. </P
-><P
->Permission is hereby granted, free of charge, to any person obtaining
-a copy of this document and the "<SPAN
-CLASS="ACRONYM"
->PXP</SPAN
->" software (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:</P
-><P
->The above copyright notice and this permission notice shall be included
-in all copies or substantial portions of the Software.</P
-><P
->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 Gerd Stolpmann 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.</P
-></DIV
-><HR></DIV
-><DIV
-CLASS="TOC"
-><DL
-><DT
-><B
->Table of Contents</B
-></DT
-><DT
->I. <A
-HREF="p34.html"
->User's guide</A
-></DT
-><DD
-><DL
-><DT
->1. <A
-HREF="c36.html"
->What is XML?</A
-></DT
-><DD
-><DL
-><DT
->1.1. <A
-HREF="c36.html#AEN38"
->Introduction</A
-></DT
-><DT
->1.2. <A
-HREF="x107.html"
->Highlights of XML</A
-></DT
-><DT
->1.3. <A
-HREF="x468.html"
->A complete example: The <I
-CLASS="EMPHASIS"
->readme</I
-> DTD</A
-></DT
-></DL
-></DD
-><DT
->2. <A
-HREF="c533.html"
->Using <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-></A
-></DT
-><DD
-><DL
-><DT
->2.1. <A
-HREF="c533.html#AEN536"
->Validation</A
-></DT
-><DT
->2.2. <A
-HREF="x550.html"
->How to parse a document from an application</A
-></DT
-><DT
->2.3. <A
-HREF="x675.html"
->Class-based processing of the node tree</A
-></DT
-><DT
->2.4. <A
-HREF="x738.html"
->Example: An HTML backend for the <I
-CLASS="EMPHASIS"
->readme</I
->
-DTD</A
-></DT
-></DL
-></DD
-><DT
->3. <A
-HREF="c893.html"
->The objects representing the document</A
-></DT
-><DD
-><DL
-><DT
->3.1. <A
-HREF="c893.html#AEN897"
->The <TT
-CLASS="LITERAL"
->document</TT
-> class</A
-></DT
-><DT
->3.2. <A
-HREF="x939.html"
->The class type <TT
-CLASS="LITERAL"
->node</TT
-></A
-></DT
-><DT
->3.3. <A
-HREF="x1439.html"
->The class type <TT
-CLASS="LITERAL"
->extension</TT
-></A
-></DT
-><DT
->3.4. <A
-HREF="x1496.html"
->Details of the mapping from XML text to the tree representation</A
-></DT
-></DL
-></DD
-><DT
->4. <A
-HREF="c1567.html"
->Configuring and calling the parser</A
-></DT
-><DD
-><DL
-><DT
->4.1. <A
-HREF="c1567.html#AEN1569"
->Overview</A
-></DT
-><DT
->4.2. <A
-HREF="x1629.html"
->Resolvers and sources</A
-></DT
-><DT
->4.3. <A
-HREF="x1812.html"
->The DTD classes</A
-></DT
-><DT
->4.4. <A
-HREF="x1818.html"
->Invoking the parser</A
-></DT
-><DT
->4.5. <A
-HREF="x1965.html"
->Updates</A
-></DT
-></DL
-></DD
-></DL
-></DD
-></DL
-></DIV
-></DIV
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->&nbsp;</TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
->&nbsp;</TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="p34.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->&nbsp;</TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
->&nbsp;</TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->User's guide</TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/markup.css b/helm/DEVEL/pxp/pxp/doc/manual/html/markup.css
deleted file mode 100644 (file)
index 67dfaec..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/markup.css
+++ /dev/null
@@ -1,4 +0,0 @@
-.acronym { 
-  font-weight: bold;
-  color: #c71585
-}

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/p34.html b/helm/DEVEL/pxp/pxp/doc/manual/html/p34.html
deleted file mode 100644 (file)
index 9db427d..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/p34.html
+++ /dev/null
@@ -1,167 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->User's guide</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="PREVIOUS"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="NEXT"
-TITLE="What is XML?"
-HREF="c36.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="PART"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="index.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
-></TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
-><A
-HREF="c36.html"
->Next</A
-></TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="PART"
-><A
-NAME="AEN34"
-></A
-><DIV
-CLASS="TITLEPAGE"
-><H1
-CLASS="TITLE"
->I. User's guide</H1
-><DIV
-CLASS="TOC"
-><DL
-><DT
-><B
->Table of Contents</B
-></DT
-><DT
->1. <A
-HREF="c36.html"
->What is XML?</A
-></DT
-><DT
->2. <A
-HREF="c533.html"
->Using <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-></A
-></DT
-><DT
->3. <A
-HREF="c893.html"
->The objects representing the document</A
-></DT
-><DT
->4. <A
-HREF="c1567.html"
->Configuring and calling the parser</A
-></DT
-></DL
-></DIV
-></DIV
-></DIV
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="index.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="c36.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->The PXP user's guide</TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
->&nbsp;</TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->What is XML?</TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/pic/done b/helm/DEVEL/pxp/pxp/doc/manual/html/pic/done
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/pic/extension_general.gif b/helm/DEVEL/pxp/pxp/doc/manual/html/pic/extension_general.gif
deleted file mode 100644 (file)
index 6cc260a..0000000
Binary files a/helm/DEVEL/pxp/pxp/doc/manual/html/pic/extension_general.gif and /dev/null differ

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/pic/node_add.gif b/helm/DEVEL/pxp/pxp/doc/manual/html/pic/node_add.gif
deleted file mode 100644 (file)
index 0091db2..0000000
Binary files a/helm/DEVEL/pxp/pxp/doc/manual/html/pic/node_add.gif and /dev/null differ

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/pic/node_clone.gif b/helm/DEVEL/pxp/pxp/doc/manual/html/pic/node_clone.gif
deleted file mode 100644 (file)
index 97cd363..0000000
Binary files a/helm/DEVEL/pxp/pxp/doc/manual/html/pic/node_clone.gif and /dev/null differ

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/pic/node_delete.gif b/helm/DEVEL/pxp/pxp/doc/manual/html/pic/node_delete.gif
deleted file mode 100644 (file)
index d521123..0000000
Binary files a/helm/DEVEL/pxp/pxp/doc/manual/html/pic/node_delete.gif and /dev/null differ

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/pic/node_general.gif b/helm/DEVEL/pxp/pxp/doc/manual/html/pic/node_general.gif
deleted file mode 100644 (file)
index 5f6358c..0000000
Binary files a/helm/DEVEL/pxp/pxp/doc/manual/html/pic/node_general.gif and /dev/null differ

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/pic/node_term.gif b/helm/DEVEL/pxp/pxp/doc/manual/html/pic/node_term.gif
deleted file mode 100644 (file)
index 5644c91..0000000
Binary files a/helm/DEVEL/pxp/pxp/doc/manual/html/pic/node_term.gif and /dev/null differ

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/x107.html b/helm/DEVEL/pxp/pxp/doc/manual/html/x107.html
deleted file mode 100644 (file)
index 102aba2..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/x107.html
+++ /dev/null
@@ -1,1694 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->Highlights of XML</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="UP"
-TITLE="What is XML?"
-HREF="c36.html"><LINK
-REL="PREVIOUS"
-TITLE="What is XML?"
-HREF="c36.html"><LINK
-REL="NEXT"
-TITLE="A complete example: The readme DTD"
-HREF="x468.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="SECT1"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="c36.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
->Chapter 1. What is XML?</TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
-><A
-HREF="x468.html"
->Next</A
-></TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="SECT1"
-><H1
-CLASS="SECT1"
-><A
-NAME="AEN107"
->1.2. Highlights of XML</A
-></H1
-><P
->This section explains many of the features of XML, but not all, and some
-features not in detail. For a complete description, see the <A
-HREF="http://www.w3.org/TR/1998/REC-xml-19980210.html"
-TARGET="_top"
->XML
-specification</A
->.</P
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN111"
->1.2.1. The DTD and the instance</A
-></H2
-><P
->The DTD contains various declarations; in general you can only use a feature if
-you have previously declared it. The document instance file may contain the
-full DTD, but it is also possible to split the DTD into an internal and an
-external subset. A document must begin as follows if the full DTD is included:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;?xml version="1.0" encoding="<TT
-CLASS="REPLACEABLE"
-><I
->Your encoding</I
-></TT
->"?&gt;
-&lt;!DOCTYPE <TT
-CLASS="REPLACEABLE"
-><I
->root</I
-></TT
-> [
-  <TT
-CLASS="REPLACEABLE"
-><I
->Declarations</I
-></TT
->
-]&gt;</PRE
->
-
-These declarations are called the <I
-CLASS="EMPHASIS"
->internal subset</I
->. Note
-that the usage of entities and conditional sections is restricted within the
-internal subset.</P
-><P
->If the declarations are located in a different file, you can refer to this file
-as follows:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;?xml version="1.0" encoding="<TT
-CLASS="REPLACEABLE"
-><I
->Your encoding</I
-></TT
->"?&gt;
-&lt;!DOCTYPE <TT
-CLASS="REPLACEABLE"
-><I
->root</I
-></TT
-> SYSTEM "<TT
-CLASS="REPLACEABLE"
-><I
->file name</I
-></TT
->"&gt;</PRE
->
-
-The declarations in the file are called the <I
-CLASS="EMPHASIS"
->external
-subset</I
->. The file name is called the <I
-CLASS="EMPHASIS"
->system
-identifier</I
->. 
-It is also possible to refer to the file by a so-called
-<I
-CLASS="EMPHASIS"
->public identifier</I
->, but most XML applications won't use
-this feature.</P
-><P
->You can also specify both internal and external subsets. In this case, the
-declarations of both subsets are mixed, and if there are conflicts, the
-declaration of the internal subset overrides those of the external subset with
-the same name. This looks as follows:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;?xml version="1.0" encoding="<TT
-CLASS="REPLACEABLE"
-><I
->Your encoding</I
-></TT
->"?&gt;
-&lt;!DOCTYPE <TT
-CLASS="REPLACEABLE"
-><I
->root</I
-></TT
->  SYSTEM "<TT
-CLASS="REPLACEABLE"
-><I
->file name</I
-></TT
->" [
-  <TT
-CLASS="REPLACEABLE"
-><I
->Declarations</I
-></TT
->
-]&gt;</PRE
-></P
-><P
->The XML declaration (the string beginning with <TT
-CLASS="LITERAL"
->&lt;?xml</TT
-> and
-ending at <TT
-CLASS="LITERAL"
->?&gt;</TT
->) should specify the encoding of the
-file. Common values are UTF-8, and the ISO-8859 series of character sets. Note
-that every file parsed by the XML processor can begin with an XML declaration
-and that every file may have its own encoding.</P
-><P
->The name of the root element must be mentioned directly after the
-<TT
-CLASS="LITERAL"
->DOCTYPE</TT
-> string. This means that a full document instance
-looks like
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;?xml version="1.0" encoding="<TT
-CLASS="REPLACEABLE"
-><I
->Your encoding</I
-></TT
->"?&gt;
-&lt;!DOCTYPE <TT
-CLASS="REPLACEABLE"
-><I
->root</I
-></TT
->  SYSTEM "<TT
-CLASS="REPLACEABLE"
-><I
->file name</I
-></TT
->" [
-  <TT
-CLASS="REPLACEABLE"
-><I
->Declarations</I
-></TT
->
-]&gt;
-
-&lt;<TT
-CLASS="REPLACEABLE"
-><I
->root</I
-></TT
->&gt;
-  <TT
-CLASS="REPLACEABLE"
-><I
->inner contents</I
-></TT
->
-&lt;/<TT
-CLASS="REPLACEABLE"
-><I
->root</I
-></TT
->&gt;</PRE
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN146"
->1.2.2. Reserved characters</A
-></H2
-><P
->Some characters are generally reserved to indicate markup such that they cannot
-be used for character data. These characters are &lt;, &gt;, and
-&amp;. Furthermore, single and double quotes are sometimes reserved. If you
-want to include such a character as character, write it as follows:
-
-<P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->&amp;lt;</TT
-> instead of &lt;</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->&amp;gt;</TT
-> instead of &gt;</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->&amp;amp;</TT
-> instead of &amp;</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->&amp;apos;</TT
-> instead of '</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->&amp;quot;</TT
-> instead of "</P
-></LI
-></UL
->
-
-All other characters are free in the document instance. It is possible to
-include a character by its position in the Unicode alphabet: 
-
-<PRE
-CLASS="PROGRAMLISTING"
->&amp;#<TT
-CLASS="REPLACEABLE"
-><I
->n</I
-></TT
->;</PRE
->
-
-where <TT
-CLASS="REPLACEABLE"
-><I
->n</I
-></TT
-> is the decimal number of the
-character. Alternatively, you can specify the character by its hexadecimal
-number: 
-
-<PRE
-CLASS="PROGRAMLISTING"
->&amp;#x<TT
-CLASS="REPLACEABLE"
-><I
->n</I
-></TT
->;</PRE
->
-
-In the scope of declarations, the character % is no longer free. To include it
-as character, you must use the notations <TT
-CLASS="LITERAL"
->&amp;#37;</TT
-> or
-<TT
-CLASS="LITERAL"
->&amp;#x25;</TT
->.</P
-><P
->Note that besides &amp;lt;, &amp;gt;, &amp;amp;,
-&amp;apos;, and &amp;quot; there are no predefines character entities. This is
-different from HTML which defines a list of characters that can be referenced
-by name (e.g. &amp;auml; for ä); however, if you prefer named characters, you
-can declare such entities yourself (see below).</P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN173"
->1.2.3. Elements and ELEMENT declarations</A
-></H2
-><P
->Elements structure the document instance in a hierarchical way. There is a
-top-level element, the <I
-CLASS="EMPHASIS"
->root element</I
->, which contains a
-sequence of inner elements and character sections. The inner elements are
-structured in the same way. Every element has an <I
-CLASS="EMPHASIS"
->element
-type</I
->. The beginning of the element is indicated by a <I
-CLASS="EMPHASIS"
->start
-tag</I
->, written
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;<TT
-CLASS="REPLACEABLE"
-><I
->element-type</I
-></TT
->&gt;</PRE
->
-
-and the element continues until the corresponding <I
-CLASS="EMPHASIS"
->end tag</I
->
-is reached:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;/<TT
-CLASS="REPLACEABLE"
-><I
->element-type</I
-></TT
->&gt;</PRE
->
-
-In XML, it is not allowed to omit start or end tags, even if the DTD would
-permit this. Note that there are no special rules how to interpret spaces or
-newlines near start or end tags; all spaces and newlines count.</P
-><P
->Every element type must be declared before it can be used. The declaration
-consists of two parts: the ELEMENT declaration describes the content model,
-i.e. which inner elements are allowed; the ATTLIST declaration describes the
-attributes of the element.</P
-><P
->An element can simply allow everything as content. This is written:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;!ELEMENT <TT
-CLASS="REPLACEABLE"
-><I
->name</I
-></TT
-> ANY&gt;</PRE
->
-
-On the opposite, an element can be forced to be empty; declared by:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;!ELEMENT <TT
-CLASS="REPLACEABLE"
-><I
->name</I
-></TT
-> EMPTY&gt;</PRE
->
-
-Note that there is an abbreviated notation for empty element instances:
-<TT
-CLASS="LITERAL"
->&lt;<TT
-CLASS="REPLACEABLE"
-><I
->name</I
-></TT
->/&gt;</TT
->. </P
-><P
->There are two more sophisticated forms of declarations: so-called
-<I
-CLASS="EMPHASIS"
->mixed declarations</I
->, and <I
-CLASS="EMPHASIS"
->regular
-expressions</I
->. An element with mixed content contains character data
-interspersed with inner elements, and the set of allowed inner elements can be
-specified. In contrast to this, a regular expression declaration does not allow
-character data, but the inner elements can be described by the more powerful
-means of regular expressions.</P
-><P
->A declaration for mixed content looks as follows:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;!ELEMENT <TT
-CLASS="REPLACEABLE"
-><I
->name</I
-></TT
-> (#PCDATA | <TT
-CLASS="REPLACEABLE"
-><I
->element<SUB
->1</SUB
-></I
-></TT
-> | ... | <TT
-CLASS="REPLACEABLE"
-><I
->element<SUB
->n</SUB
-></I
-></TT
-> )*&gt;</PRE
->
-
-or if you do not want to allow any inner element, simply
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;!ELEMENT <TT
-CLASS="REPLACEABLE"
-><I
->name</I
-></TT
-> (#PCDATA)&gt;</PRE
-></P
-><BLOCKQUOTE
-CLASS="BLOCKQUOTE"
-><P
-><B
->Example</B
-></P
-><P
->If element type <TT
-CLASS="LITERAL"
->q</TT
-> is declared as
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ELEMENT q (#PCDATA | r | s)*&#62;</PRE
->
-
-this is a legal instance:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;q&#62;This is character data&#60;r&#62;&#60;/r&#62;with &#60;s&#62;&#60;/s&#62;inner elements&#60;/q&#62;</PRE
->
-
-But this is illegal because <TT
-CLASS="LITERAL"
->t</TT
-> has not been enumerated in the
-declaration:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;q&#62;This is character data&#60;r&#62;&#60;/r&#62;with &#60;t&#62;&#60;/t&#62;inner elements&#60;/q&#62;</PRE
-></P
-></BLOCKQUOTE
-><P
->The other form uses a regular expression to describe the possible contents:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;!ELEMENT <TT
-CLASS="REPLACEABLE"
-><I
->name</I
-></TT
-> <TT
-CLASS="REPLACEABLE"
-><I
->regexp</I
-></TT
->&gt;</PRE
->
-
-The following well-known regexp operators are allowed:
-
-<P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
-><TT
-CLASS="REPLACEABLE"
-><I
->element-name</I
-></TT
-></TT
-></P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->(<TT
-CLASS="REPLACEABLE"
-><I
->subexpr<SUB
->1</SUB
-></I
-></TT
-> ,</TT
-> ... <TT
-CLASS="LITERAL"
->, <TT
-CLASS="REPLACEABLE"
-><I
->subexpr<SUB
->n</SUB
-></I
-></TT
-> )</TT
-></P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->(<TT
-CLASS="REPLACEABLE"
-><I
->subexpr<SUB
->1</SUB
-></I
-></TT
-> |</TT
-> ... <TT
-CLASS="LITERAL"
->| <TT
-CLASS="REPLACEABLE"
-><I
->subexpr<SUB
->n</SUB
-></I
-></TT
-> )</TT
-></P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
-><TT
-CLASS="REPLACEABLE"
-><I
->subexpr</I
-></TT
->*</TT
-></P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
-><TT
-CLASS="REPLACEABLE"
-><I
->subexpr</I
-></TT
->+</TT
-></P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
-><TT
-CLASS="REPLACEABLE"
-><I
->subexpr</I
-></TT
->?</TT
-></P
-></LI
-></UL
->
-
-The <TT
-CLASS="LITERAL"
->,</TT
-> operator indicates a sequence of sub-models, the
-<TT
-CLASS="LITERAL"
->|</TT
-> operator describes alternative sub-models. The
-<TT
-CLASS="LITERAL"
->*</TT
-> indicates zero or more repetitions, and
-<TT
-CLASS="LITERAL"
->+</TT
-> one or more repetitions. Finally, <TT
-CLASS="LITERAL"
->?</TT
-> can
-be used for optional sub-models. As atoms the regexp can contain names of
-elements; note that it is not allowed to include <TT
-CLASS="LITERAL"
->#PCDATA</TT
->.</P
-><P
->The exact syntax of the regular expressions is rather strange. This can be
-explained best by a list of constraints:
-
-<P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
->The outermost expression must not be
-<TT
-CLASS="LITERAL"
-><TT
-CLASS="REPLACEABLE"
-><I
->element-name</I
-></TT
-></TT
->. </P
-><P
-><I
-CLASS="EMPHASIS"
->Illegal:</I
-> 
-<TT
-CLASS="LITERAL"
->&#60;!ELEMENT x y&#62;</TT
->; this must be written as
-<TT
-CLASS="LITERAL"
->&#60;!ELEMENT x (y)&#62;</TT
->.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->For the unary operators <TT
-CLASS="LITERAL"
-><TT
-CLASS="REPLACEABLE"
-><I
->subexpr</I
-></TT
->*</TT
->,
-<TT
-CLASS="LITERAL"
-><TT
-CLASS="REPLACEABLE"
-><I
->subexpr</I
-></TT
->+</TT
->, and
-<TT
-CLASS="LITERAL"
-><TT
-CLASS="REPLACEABLE"
-><I
->subexpr</I
-></TT
->?</TT
->, the
-<TT
-CLASS="LITERAL"
-><TT
-CLASS="REPLACEABLE"
-><I
->subexpr</I
-></TT
-></TT
-> must not be again an
-unary operator.</P
-><P
-><I
-CLASS="EMPHASIS"
->Illegal:</I
-> 
-<TT
-CLASS="LITERAL"
->&#60;!ELEMENT x y**&#62;</TT
->; this must be written as
-<TT
-CLASS="LITERAL"
->&#60;!ELEMENT x (y*)*&#62;</TT
->.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->Between <TT
-CLASS="LITERAL"
->)</TT
-> and one of the unary operatory
-<TT
-CLASS="LITERAL"
->*</TT
->, <TT
-CLASS="LITERAL"
->+</TT
->, or <TT
-CLASS="LITERAL"
->?</TT
->, there must
-not be whitespace.</P
-><P
-><I
-CLASS="EMPHASIS"
->Illegal:</I
-> 
-<TT
-CLASS="LITERAL"
->&#60;!ELEMENT x (y|z) *&#62;</TT
->; this must be written as
-<TT
-CLASS="LITERAL"
->&#60;!ELEMENT x (y|z)*&#62;</TT
->.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->There is the additional constraint that the
-right parenthsis must be contained in the same entity as the left parenthesis;
-see the section about parsed entities below.</P
-></LI
-></UL
->&#13;</P
-><P
->Note that there is another restriction on regular expressions which must be
-deterministic. This means that the parser must be able to see by looking at the
-next token which alternative is actually used, or whether the repetition
-stops. The reason for this is simply compatability with SGML (there is no
-intrinsic reason for this rule; XML can live without this restriction).</P
-><BLOCKQUOTE
-CLASS="BLOCKQUOTE"
-><P
-><B
->Example</B
-></P
-><P
->The elements are declared as follows:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ELEMENT q (r?, (s | t)+)&#62;
-&#60;!ELEMENT r (#PCDATA)&#62;
-&#60;!ELEMENT s EMPTY&#62;
-&#60;!ELEMENT t (q | r)&#62;</PRE
->
-
-This is a legal instance:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;q&#62;&#60;r&#62;Some characters&#60;/r&#62;&#60;s/&#62;&#60;/q&#62;</PRE
->
-
-(Note: <TT
-CLASS="LITERAL"
->&lt;s/&gt;</TT
-> is an abbreviation for
-<TT
-CLASS="LITERAL"
->&lt;s&gt;&lt;/s&gt;</TT
->.)
-
-It would be illegal to leave <TT
-CLASS="LITERAL"
->&#60;s/&#62;</TT
-> out because at
-least one instance of <TT
-CLASS="LITERAL"
->s</TT
-> or <TT
-CLASS="LITERAL"
->t</TT
-> must be
-present. It would be illegal, too, if characters existed outside the
-<TT
-CLASS="LITERAL"
->r</TT
-> element; the only exception is white space. -- This is
-legal, too:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;q&#62;&#60;s/&#62;&#60;t&#62;&#60;q&#62;&#60;s/&#62;&#60;/q&#62;&#60;/t&#62;&#60;/q&#62;</PRE
-></P
-></BLOCKQUOTE
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN304"
->1.2.4. Attribute lists and ATTLIST declarations</A
-></H2
-><P
->Elements may have attributes. These are put into the start tag of an element as
-follows:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;<TT
-CLASS="REPLACEABLE"
-><I
->element-name</I
-></TT
-> <TT
-CLASS="REPLACEABLE"
-><I
->attribute<SUB
->1</SUB
-></I
-></TT
->="<TT
-CLASS="REPLACEABLE"
-><I
->value<SUB
->1</SUB
-></I
-></TT
->" ... <TT
-CLASS="REPLACEABLE"
-><I
->attribute<SUB
->n</SUB
-></I
-></TT
->="<TT
-CLASS="REPLACEABLE"
-><I
->value<SUB
->n</SUB
-></I
-></TT
->"&gt;</PRE
->
-
-Instead of
-<TT
-CLASS="LITERAL"
->"<TT
-CLASS="REPLACEABLE"
-><I
->value<SUB
->k</SUB
-></I
-></TT
->"</TT
->
-it is also possible to use single quotes as in
-<TT
-CLASS="LITERAL"
->'<TT
-CLASS="REPLACEABLE"
-><I
->value<SUB
->k</SUB
-></I
-></TT
->'</TT
->.
-Note that you cannot use double quotes literally within the value of the
-attribute if double quotes are the delimiters; the same applies to single
-quotes. You can generally not use &lt; and &amp; as characters in attribute
-values. It is possible to include the paraphrases &amp;lt;, &amp;gt;,
-&amp;amp;, &amp;apos;, and &amp;quot; (and any other reference to a general
-entity as long as the entity is not defined by an external file) as well as
-&amp;#<TT
-CLASS="REPLACEABLE"
-><I
->n</I
-></TT
->;.</P
-><P
->Before you can use an attribute you must declare it. An ATTLIST declaration
-looks as follows:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;!ATTLIST <TT
-CLASS="REPLACEABLE"
-><I
->element-name</I
-></TT
-> 
-          <TT
-CLASS="REPLACEABLE"
-><I
->attribute-name</I
-></TT
-> <TT
-CLASS="REPLACEABLE"
-><I
->attribute-type</I
-></TT
-> <TT
-CLASS="REPLACEABLE"
-><I
->attribute-default</I
-></TT
->
-          ...
-          <TT
-CLASS="REPLACEABLE"
-><I
->attribute-name</I
-></TT
-> <TT
-CLASS="REPLACEABLE"
-><I
->attribute-type</I
-></TT
-> <TT
-CLASS="REPLACEABLE"
-><I
->attribute-default</I
-></TT
->
-&gt;</PRE
->
-
-There are a lot of types, but most important are:
-
-<P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->CDATA</TT
->: Every string is allowed as attribute value.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->NMTOKEN</TT
->: Every nametoken is allowed as attribute
-value. Nametokens consist (mainly) of letters, digits, ., :, -, _ in arbitrary
-order.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->NMTOKENS</TT
->: A space-separated list of nametokens is allowed as
-attribute value.</P
-></LI
-></UL
->
-
-The most interesting default declarations are:
-
-<P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->#REQUIRED</TT
->: The attribute must be specified.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->#IMPLIED</TT
->: The attribute can be specified but also can be
-left out. The application can find out whether the attribute was present or
-not. </P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->"<TT
-CLASS="REPLACEABLE"
-><I
->value</I
-></TT
->"</TT
-> or
-<TT
-CLASS="LITERAL"
->'<TT
-CLASS="REPLACEABLE"
-><I
->value</I
-></TT
->'</TT
->: This particular value is
-used as default if the attribute is omitted in the element.</P
-></LI
-></UL
-></P
-><BLOCKQUOTE
-CLASS="BLOCKQUOTE"
-><P
-><B
->Example</B
-></P
-><P
->This is a valid attribute declaration for element type <TT
-CLASS="LITERAL"
->r</TT
->:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ATTLIST r 
-          x CDATA    #REQUIRED
-          y NMTOKEN  #IMPLIED
-          z NMTOKENS "one two three"&#62;</PRE
->
-
-This means that <TT
-CLASS="LITERAL"
->x</TT
-> is a required attribute that cannot be
-left out, while <TT
-CLASS="LITERAL"
->y</TT
-> and <TT
-CLASS="LITERAL"
->z</TT
-> are optional. The
-XML parser indicates the application whether <TT
-CLASS="LITERAL"
->y</TT
-> is present or
-not, but if <TT
-CLASS="LITERAL"
->z</TT
-> is missing the default value
-"one two three" is returned automatically. </P
-><P
->This is a valid example of these attributes:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;r x="He said: &#38;quot;I don't like quotes!&#38;quot;" y='1'&#62;</PRE
-></P
-></BLOCKQUOTE
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN368"
->1.2.5. Parsed entities</A
-></H2
-><P
->Elements describe the logical structure of the document, while
-<I
-CLASS="EMPHASIS"
->entities</I
-> determine the physical structure. Entities are
-the pieces of text the parser operates on, mostly files and macros. Entities
-may be <I
-CLASS="EMPHASIS"
->parsed</I
-> in which case the parser reads the text and
-interprets it as XML markup, or <I
-CLASS="EMPHASIS"
->unparsed</I
-> which simply
-means that the data of the entity has a foreign format (e.g. a GIF icon).</P
-><P
->If the parsed entity is going to be used as part of the DTD, it
-is called a <I
-CLASS="EMPHASIS"
->parameter entity</I
->. You can declare a parameter
-entity with a fixed text as content by:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;!ENTITY % <TT
-CLASS="REPLACEABLE"
-><I
->name</I
-></TT
-> "<TT
-CLASS="REPLACEABLE"
-><I
->value</I
-></TT
->"&gt;</PRE
->
-
-Within the DTD, you can <I
-CLASS="EMPHASIS"
->refer to</I
-> this entity, i.e. read
-the text of the entity, by:
-
-<PRE
-CLASS="PROGRAMLISTING"
->%<TT
-CLASS="REPLACEABLE"
-><I
->name</I
-></TT
->;</PRE
->
-
-Such entities behave like macros, i.e. when they are referred to, the
-macro text is inserted and read instead of the original text.
-
-<BLOCKQUOTE
-CLASS="BLOCKQUOTE"
-><P
-><B
->Example</B
-></P
-><P
->For example, you can declare two elements with the same content model by:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ENTITY % model "a | b | c"&#62;
-&#60;!ELEMENT x (%model;)&#62;
-&#60;!ELEMENT y (%model;)&#62;</PRE
->&#13;</P
-></BLOCKQUOTE
->
-
-If the contents of the entity are given as string constant, the entity is
-called an <I
-CLASS="EMPHASIS"
->internal</I
-> entity. It is also possible to name a
-file to be used as content (an <I
-CLASS="EMPHASIS"
->external</I
-> entity):
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;!ENTITY % <TT
-CLASS="REPLACEABLE"
-><I
->name</I
-></TT
-> SYSTEM "<TT
-CLASS="REPLACEABLE"
-><I
->file name</I
-></TT
->"&gt;</PRE
->
-
-There are some restrictions for parameter entities:
-
-<P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
->If the internal parameter entity contains the first token of a declaration
-(i.e. <TT
-CLASS="LITERAL"
->&lt;!</TT
->), it must also contain the last token of the
-declaration, i.e. the <TT
-CLASS="LITERAL"
->&gt;</TT
->. This means that the entity
-either contains a whole number of complete declarations, or some text from the
-middle of one declaration.</P
-><P
-><I
-CLASS="EMPHASIS"
->Illegal:</I
->
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ENTITY % e "(a | b | c)&#62;"&#62;
-&#60;!ELEMENT x %e;</PRE
-> Because <TT
-CLASS="LITERAL"
->&lt;!</TT
-> is contained in the main
-entity, and the corresponding <TT
-CLASS="LITERAL"
->&gt;</TT
-> is contained in the
-entity <TT
-CLASS="LITERAL"
->e</TT
->.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->If the internal parameter entity contains a left paranthesis, it must also
-contain the corresponding right paranthesis.</P
-><P
-><I
-CLASS="EMPHASIS"
->Illegal:</I
->
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ENTITY % e "(a | b | c"&#62;
-&#60;!ELEMENT x %e;)&#62;</PRE
-> Because <TT
-CLASS="LITERAL"
->(</TT
-> is contained in the entity 
-<TT
-CLASS="LITERAL"
->e</TT
->, and the corresponding <TT
-CLASS="LITERAL"
->)</TT
-> is
-contained in the main entity.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->When reading text from an entity, the parser automatically inserts one space
-character before the entity text and one space character after the entity
-text. However, this rule is not applied within the definition of another
-entity.</P
-><P
-><I
-CLASS="EMPHASIS"
->Legal:</I
->
-<PRE
-CLASS="PROGRAMLISTING"
-> 
-&#60;!ENTITY % suffix "gif"&#62; 
-&#60;!ENTITY iconfile 'icon.%suffix;'&#62;</PRE
-> Because <TT
-CLASS="LITERAL"
->%suffix;</TT
-> is referenced within
-the definition text for <TT
-CLASS="LITERAL"
->iconfile</TT
->, no additional spaces are
-added.</P
-><P
-><I
-CLASS="EMPHASIS"
->Illegal:</I
->
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ENTITY % suffix "test"&#62;
-&#60;!ELEMENT x.%suffix; ANY&#62;</PRE
->
-Because <TT
-CLASS="LITERAL"
->%suffix;</TT
-> is referenced outside the definition
-text of another entity, the parser replaces <TT
-CLASS="LITERAL"
->%suffix;</TT
-> by
-<TT
-CLASS="LITERAL"
-><TT
-CLASS="REPLACEABLE"
-><I
->space</I
-></TT
->test<TT
-CLASS="REPLACEABLE"
-><I
->space</I
-></TT
-></TT
->. </P
-><P
-><I
-CLASS="EMPHASIS"
->Illegal:</I
->
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ENTITY % e "(a | b | c)"&#62;
-&#60;!ELEMENT x %e;*&#62;</PRE
-> Because there is a whitespace between <TT
-CLASS="LITERAL"
->)</TT
->
-and <TT
-CLASS="LITERAL"
->*</TT
->, which is illegal.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->An external parameter entity must always consist of a whole number of complete
-declarations.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->In the internal subset of the DTD, a reference to a parameter entity (internal
-or external) is only allowed at positions where a new declaration can start.</P
-></LI
-></UL
-></P
-><P
->If the parsed entity is going to be used in the document instance, it is called
-a <I
-CLASS="EMPHASIS"
->general entity</I
->. Such entities can be used as
-abbreviations for frequent phrases, or to include external files. Internal
-general entities are declared as follows:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;!ENTITY <TT
-CLASS="REPLACEABLE"
-><I
->name</I
-></TT
-> "<TT
-CLASS="REPLACEABLE"
-><I
->value</I
-></TT
->"&gt;</PRE
->
-
-External general entities are declared this way:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;!ENTITY <TT
-CLASS="REPLACEABLE"
-><I
->name</I
-></TT
-> SYSTEM "<TT
-CLASS="REPLACEABLE"
-><I
->file name</I
-></TT
->"&gt;</PRE
->
-
-References to general entities are written as:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#38;<TT
-CLASS="REPLACEABLE"
-><I
->name</I
-></TT
->;</PRE
->
-
-The main difference between parameter and general entities is that the former
-are only recognized in the DTD and that the latter are only recognized in the
-document instance. As the DTD is parsed before the document, the parameter
-entities are expanded first; for example it is possible to use the content of a
-parameter entity as the name of a general entity:
-<TT
-CLASS="LITERAL"
->&amp;#38;%name;;</TT
-><A
-NAME="AEN445"
-HREF="#FTN.AEN445"
->[1]</A
->.</P
-><P
->General entities must respect the element hierarchy. This means that there must
-be an end tag for every start tag in the entity value, and that end tags
-without corresponding start tags are not allowed.</P
-><BLOCKQUOTE
-CLASS="BLOCKQUOTE"
-><P
-><B
->Example</B
-></P
-><P
->If the author of a document changes sometimes, it is worthwhile to set up a
-general entity containing the names of the authors. If the author changes, you
-need only to change the definition of the entity, and do not need to check all
-occurrences of authors' names:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ENTITY authors "Gerd Stolpmann"&#62;</PRE
->
-
-In the document text, you can now refer to the author names by writing
-<TT
-CLASS="LITERAL"
->&amp;authors;</TT
->.</P
-><P
-><I
-CLASS="EMPHASIS"
->Illegal:</I
->
-The following two entities are illegal because the elements in the definition
-do not nest properly:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ENTITY lengthy-tag "&#60;section textcolor='white' background='graphic'&#62;"&#62;
-&#60;!ENTITY nonsense    "&#60;a&#62;&#60;/b&#62;"&#62;</PRE
-></P
-></BLOCKQUOTE
-><P
->Earlier in this introduction we explained that there are substitutes for
-reserved characters: &amp;lt;, &amp;gt;, &amp;amp;, &amp;apos;, and
-&amp;quot;. These are simply predefined general entities; note that they are
-the only predefined entities. It is allowed to define these entities again
-as long as the meaning is unchanged.</P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN463"
->1.2.6. Notations and unparsed entities</A
-></H2
-><P
->Unparsed entities have a foreign format and can thus not be read by the XML
-parser. Unparsed entities are always external. The format of an unparsed entity
-must have been declared, such a format is called a
-<I
-CLASS="EMPHASIS"
->notation</I
->. The entity can then be declared by referring to
-this notation. As unparsed entities do not contain XML text, it is not possible
-to include them directly into the document; you can only declare attributes
-such that names of unparsed entities are acceptable values.</P
-><P
->As you can see, unparsed entities are too complicated in order to have any
-purpose. It is almost always better to simply pass the name of the data file as
-normal attribute value, and let the application recognize and process the
-foreign format. </P
-></DIV
-></DIV
-><H3
-CLASS="FOOTNOTES"
->Notes</H3
-><TABLE
-BORDER="0"
-CLASS="FOOTNOTES"
-WIDTH="100%"
-><TR
-><TD
-ALIGN="LEFT"
-VALIGN="TOP"
-WIDTH="5%"
-><A
-NAME="FTN.AEN445"
-HREF="x107.html#AEN445"
->[1]</A
-></TD
-><TD
-ALIGN="LEFT"
-VALIGN="TOP"
-WIDTH="95%"
-><P
->This construct is only
-allowed within the definition of another entity; otherwise extra spaces would
-be added (as explained above). Such indirection is not recommended.</P
-><P
->Complete example:
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ENTITY % variant "a"&#62;      &#60;!-- or "b" --&#62;
-&#60;!ENTITY text-a "This is text A."&#62;
-&#60;!ENTITY text-b "This is text B."&#62;
-&#60;!ENTITY text "&#38;#38;text-%variant;;"&#62;</PRE
->
-You can now write <TT
-CLASS="LITERAL"
->&amp;text;</TT
-> in the document instance, and
-depending on the value of <TT
-CLASS="LITERAL"
->variant</TT
-> either
-<TT
-CLASS="LITERAL"
->text-a</TT
-> or <TT
-CLASS="LITERAL"
->text-b</TT
-> is inserted.</P
-></TD
-></TR
-></TABLE
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="c36.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="x468.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->What is XML?</TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="c36.html"
->Up</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->A complete example: The <I
-CLASS="EMPHASIS"
->readme</I
-> DTD</TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/x1439.html b/helm/DEVEL/pxp/pxp/doc/manual/html/x1439.html
deleted file mode 100644 (file)
index 2677305..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/x1439.html
+++ /dev/null
@@ -1,464 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->The class type extension</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="UP"
-TITLE="The objects representing the document"
-HREF="c893.html"><LINK
-REL="PREVIOUS"
-TITLE="The class type node"
-HREF="x939.html"><LINK
-REL="NEXT"
-TITLE="Details of the mapping from XML text to the tree representation"
-HREF="x1496.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="SECT1"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="x939.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
->Chapter 3. The objects representing the document</TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
-><A
-HREF="x1496.html"
->Next</A
-></TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="SECT1"
-><H1
-CLASS="SECT1"
-><A
-NAME="AEN1439"
->3.3. The class type <TT
-CLASS="LITERAL"
->extension</TT
-></A
-></H1
-><P
->&#13;<PRE
-CLASS="PROGRAMLISTING"
->class type [ 'node ] extension =
-  object ('self)
-    method clone : 'self
-      (* "clone" should return an exact deep copy of the object. *)
-    method node : 'node
-      (* "node" returns the corresponding node of this extension. This method
-       * intended to return exactly what previously has been set by "set_node".
-       *)
-    method set_node : 'node -&#62; unit
-      (* "set_node" is invoked once the extension is associated to a new
-       * node object.
-       *)
-  end</PRE
->
-
-This is the type of classes used for node extensions. For every node of the
-document tree, there is not only the <TT
-CLASS="LITERAL"
->node</TT
-> object, but also
-an <TT
-CLASS="LITERAL"
->extension</TT
-> object. The latter has minimal
-functionality; it has only the necessary methods to be attached to the node
-object containing the details of the node instance. The extension object is
-called extension because its purpose is extensibility.</P
-><P
->For some reasons, it is impossible to derive the
-<TT
-CLASS="LITERAL"
->node</TT
-> classes (i.e. <TT
-CLASS="LITERAL"
->element_impl</TT
-> and
-<TT
-CLASS="LITERAL"
->data_impl</TT
->) such that the subclasses can be extended by new
-new methods. But
-subclassing nodes is a great feature, because it allows the user to provide
-different classes for different types of nodes. The extension objects are a
-workaround that is as powerful as direct subclassing, the costs are
-some notation overhead.</P
-><DIV
-CLASS="FIGURE"
-><A
-NAME="EXTENSION-GENERAL"
-></A
-><P
-><B
->Figure 3-6. The structure of nodes and extensions</B
-></P
-><P
-><IMG
-SRC="pic/extension_general.gif"></P
-></DIV
-><P
->The picture shows how the nodes and extensions are linked
-together. Every node has a reference to its extension, and every extension has
-a reference to its node. The methods <TT
-CLASS="LITERAL"
->extension</TT
-> and
-<TT
-CLASS="LITERAL"
->node</TT
-> follow these references; a typical phrase is 
-
-<PRE
-CLASS="PROGRAMLISTING"
->self # node # attribute "xy"</PRE
->
-
-to get the value of an attribute from a method defined in the extension object;
-or 
-
-<PRE
-CLASS="PROGRAMLISTING"
->self # node # iter
-  (fun n -&gt; n # extension # my_method ...)</PRE
->
-
-to iterate over the subnodes and to call <TT
-CLASS="LITERAL"
->my_method</TT
-> of the
-corresponding extension objects.</P
-><P
->Note that extension objects do not have references to subnodes
-(or "subextensions") themselves; in order to get one of the children of an
-extension you must first go to the node object, then get the child node, and
-finally reach the extension that is logically the child of the extension you
-started with.</P
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1460"
->3.3.1. How to define an extension class</A
-></H2
-><P
->At minimum, you must define the methods
-<TT
-CLASS="LITERAL"
->clone</TT
->, <TT
-CLASS="LITERAL"
->node</TT
->, and
-<TT
-CLASS="LITERAL"
->set_node</TT
-> such that your class is compatible with the type
-<TT
-CLASS="LITERAL"
->extension</TT
->. The method <TT
-CLASS="LITERAL"
->set_node</TT
-> is called
-during the initialization of the node, or after a node has been cloned; the
-node object invokes <TT
-CLASS="LITERAL"
->set_node</TT
-> on the extension object to tell
-it that this node is now the object the extension is linked to. The extension
-must return the node object passed as argument of <TT
-CLASS="LITERAL"
->set_node</TT
->
-when the <TT
-CLASS="LITERAL"
->node</TT
-> method is called.</P
-><P
->The <TT
-CLASS="LITERAL"
->clone</TT
-> method must return a copy of the
-extension object; at least the object itself must be duplicated, but if
-required, the copy should deeply duplicate all objects and values that are
-referred by the extension, too. Whether this is required, depends on the
-application; <TT
-CLASS="LITERAL"
->clone</TT
-> is invoked by the node object when one of
-its cloning methods is called.</P
-><P
->A good starting point for an extension class:
-
-<PRE
-CLASS="PROGRAMLISTING"
->class custom_extension =
-  object (self)
-
-    val mutable node = (None : custom_extension node option)
-
-    method clone = {&#60; &#62;} 
-
-    method node =
-      match node with
-          None -&#62;
-            assert false
-        | Some n -&#62; n
-
-    method set_node n =
-      node &#60;- Some n
-
-  end</PRE
->
-
-This class is compatible with <TT
-CLASS="LITERAL"
->extension</TT
->. The purpose of
-defining such a class is, of course, adding further methods; and you can do it
-without restriction. </P
-><P
->Often, you want not only one extension class. In this case,
-it is the simplest way that all your classes (for one kind of document) have
-the same type (with respect to the interface; i.e. it does not matter if your
-classes differ in the defined private methods and instance variables, but
-public methods count). This approach avoids lots of coercions and problems with
-type incompatibilities. It is simple to implement:
-
-<PRE
-CLASS="PROGRAMLISTING"
->class custom_extension =
-  object (self)
-    val mutable node = (None : custom_extension node option)
-
-    method clone = ...      (* see above *)
-    method node = ...       (* see above *)
-    method set_node n = ... (* see above *)
-
-    method virtual my_method1 : ...
-    method virtual my_method2 : ...
-    ... (* etc. *)
-  end
-
-class custom_extension_kind_A =
-  object (self)
-    inherit custom_extension
-
-    method my_method1 = ...
-    method my_method2 = ...
-  end
-
-class custom_extension_kind_B =
-  object (self)
-    inherit custom_extension
-
-    method my_method1 = ...
-    method my_method2 = ...
-  end</PRE
->
-
-If a class does not need a method (e.g. because it does not make sense, or it
-would violate some important condition), it is possible to define the method
-and to always raise an exception when the method is invoked
-(e.g. <TT
-CLASS="LITERAL"
->assert false</TT
->).</P
-><P
->The latter is a strong recommendation: do not try to further
-specialize the types of extension objects. It is difficult, sometimes even
-impossible, and almost never worth-while.</P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1481"
->3.3.2. How to bind extension classes to element types</A
-></H2
-><P
->Once you have defined your extension classes, you can bind them
-to element types. The simplest case is that you have only one class and that
-this class is to be always used. The parsing functions in the module
-<TT
-CLASS="LITERAL"
->Pxp_yacc</TT
-> take a <TT
-CLASS="LITERAL"
->spec</TT
-> argument which
-can be customized. If your single class has the name <TT
-CLASS="LITERAL"
->c</TT
->,
-this argument should be 
-
-<PRE
-CLASS="PROGRAMLISTING"
->let spec =
-  make_spec_from_alist
-    ~data_exemplar:            (new data_impl c)
-    ~default_element_exemplar: (new element_impl c)
-    ~element_alist:            []
-    ()</PRE
->
-
-This means that data nodes will be created from the exemplar passed by
-~data_exemplar and that all element nodes will be made from the exemplar
-specified by ~default_element_exemplar. In ~element_alist, you can 
-pass that different exemplars are to be used for different element types; but
-this is an optional feature. If you do not need it, pass the empty list.</P
-><P
->Remember that an exemplar is a (node, extension) pair that serves as pattern
-when new nodes (and the corresponding extension objects) are added to the
-document tree. In this case, the exemplar contains <TT
-CLASS="LITERAL"
->c</TT
-> as
-extension, and when nodes are created, the exemplar is cloned, and cloning
-makes also a copy of <TT
-CLASS="LITERAL"
->c</TT
-> such that all nodes of the document
-tree will have a copy of <TT
-CLASS="LITERAL"
->c</TT
-> as extension.</P
-><P
->The <TT
-CLASS="LITERAL"
->~element_alist</TT
-> argument can bind
-specific element types to specific exemplars; as exemplars may be instances of
-different classes it is effectively possible to bind element types to
-classes. For example, if the element type "p" is implemented by class "c_p",
-and "q" is realized by "c_q", you can pass the following value:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let spec =
-  make_spec_from_alist
-    ~data_exemplar:            (new data_impl c)
-    ~default_element_exemplar: (new element_impl c)
-    ~element_alist:            
-      [ "p", new element_impl c_p;
-        "q", new element_impl c_q;
-      ]
-    ()</PRE
->
-
-The extension object <TT
-CLASS="LITERAL"
->c</TT
-> is still used for all data nodes and
-for all other element types.</P
-></DIV
-></DIV
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="x939.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="x1496.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->The class type <TT
-CLASS="LITERAL"
->node</TT
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="c893.html"
->Up</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->Details of the mapping from XML text to the tree representation</TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/x1496.html b/helm/DEVEL/pxp/pxp/doc/manual/html/x1496.html
deleted file mode 100644 (file)
index faea39f..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/x1496.html
+++ /dev/null
@@ -1,442 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->Details of the mapping from XML text to the tree representation</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="UP"
-TITLE="The objects representing the document"
-HREF="c893.html"><LINK
-REL="PREVIOUS"
-TITLE="The class type extension"
-HREF="x1439.html"><LINK
-REL="NEXT"
-TITLE="Configuring and calling the parser"
-HREF="c1567.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="SECT1"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="x1439.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
->Chapter 3. The objects representing the document</TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
-><A
-HREF="c1567.html"
->Next</A
-></TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="SECT1"
-><H1
-CLASS="SECT1"
-><A
-NAME="AEN1496"
->3.4. Details of the mapping from XML text to the tree representation</A
-></H1
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1498"
->3.4.1. The representation of character-free elements</A
-></H2
-><P
->If an element declaration does not allow the element to 
-contain character data, the following rules apply.</P
-><P
->If the element must be empty, i.e. it is declared with the
-keyword <TT
-CLASS="LITERAL"
->EMPTY</TT
->, the element instance must be effectively
-empty (it must not even contain whitespace characters). The parser guarantees
-that a declared <TT
-CLASS="LITERAL"
->EMPTY</TT
-> element does never contain a data
-node, even if the data node represents the empty string.</P
-><P
->If the element declaration only permits other elements to occur
-within that element but not character data, it is still possible to insert
-whitespace characters between the subelements. The parser ignores these
-characters, too, and does not create data nodes for them.</P
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->Example. </B
->Consider the following element types:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ELEMENT x ( #PCDATA | z )* &#62;
-&#60;!ELEMENT y ( z )* &#62;
-&#60;!ELEMENT z EMPTY&#62;</PRE
->
-
-Only <TT
-CLASS="LITERAL"
->x</TT
-> may contain character data, the keyword
-<TT
-CLASS="LITERAL"
->#PCDATA</TT
-> indicates this. The other types are character-free. </P
-></DIV
-><P
->The XML term
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;x&#62;&#60;z/&#62; &#60;z/&#62;&#60;/x&#62;</PRE
->
-
-will be internally represented by an element node for <TT
-CLASS="LITERAL"
->x</TT
-> 
-with three subnodes: the first <TT
-CLASS="LITERAL"
->z</TT
-> element, a data node
-containing the space character, and the second <TT
-CLASS="LITERAL"
->z</TT
-> element. 
-In contrast to this, the term
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;y&#62;&#60;z/&#62; &#60;z/&#62;&#60;/y&#62;</PRE
->
-
-is represented by an  element node for <TT
-CLASS="LITERAL"
->y</TT
-> with only
-<I
-CLASS="EMPHASIS"
->two</I
-> subnodes, the two <TT
-CLASS="LITERAL"
->z</TT
-> elements. There
-is no data node for the space character because spaces are ignored in the
-character-free element <TT
-CLASS="LITERAL"
->y</TT
->.</P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1521"
->3.4.2. The representation of character data</A
-></H2
-><P
->The XML specification allows all Unicode characters in XML
-texts. This parser can be configured such that UTF-8 is used to represent the
-characters internally; however, the default character encoding is
-ISO-8859-1. (Currently, no other encodings are possible for the internal string
-representation; the type <TT
-CLASS="LITERAL"
->Pxp_types.rep_encoding</TT
-> enumerates
-the possible encodings. Principially, the parser could use any encoding that is
-ASCII-compatible, but there are currently only lexical analyzers for UTF-8 and
-ISO-8859-1. It is currently impossible to use UTF-16 or UCS-4 as internal
-encodings (or other multibyte encodings which are not ASCII-compatible) unless
-major parts of the parser are rewritten - unlikely...)</P
-><P
->The internal encoding may be different from the external encoding (specified
-in the XML declaration <TT
-CLASS="LITERAL"
->&lt;?xml ... encoding="..."?&gt;</TT
->); in
-this case the strings are automatically converted to the internal encoding.</P
-><P
->If the internal encoding is ISO-8859-1, it is possible that there are
-characters that cannot be represented. In this case, the parser ignores such
-characters and prints a warning (to the <TT
-CLASS="LITERAL"
->collect_warning</TT
->
-object that must be passed when the parser is called).</P
-><P
->The XML specification allows lines to be separated by single LF
-characters, by CR LF character sequences, or by single CR
-characters. Internally, these separators are always converted to single LF
-characters.</P
-><P
->The parser guarantees that there are never two adjacent data
-nodes; if necessary, data material that would otherwise be represented by
-several nodes is collapsed into one node. Note that you can still create node
-trees with adjacent data nodes; however, the parser does not return such trees.</P
-><P
->Note that CDATA sections are not represented specially; such
-sections are added to the current data material that being collected for the
-next data node.</P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1532"
->3.4.3. The representation of entities within documents</A
-></H2
-><P
-><I
-CLASS="EMPHASIS"
->Entities are not represented within
-documents!</I
-> If the parser finds an entity reference in the document
-content, the reference is immediately expanded, and the parser reads the
-expansion text instead of the reference.</P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1536"
->3.4.4. The representation of attributes</A
-></H2
-><P
->As attribute
-values are composed of Unicode characters, too, the same problems with the
-character encoding arise as for character material. Attribute values are
-converted to the internal encoding, too; and if there are characters that
-cannot be represented, these are dropped, and a warning is printed.</P
-><P
->Attribute values are normalized before they are returned by
-methods like <TT
-CLASS="LITERAL"
->attribute</TT
->. First, any remaining entity
-references are expanded; if necessary, expansion is performed recursively.
-Second, newline characters (any of LF, CR LF, or CR characters) are converted
-to single space characters. Note that especially the latter action is
-prescribed by the XML standard (but <TT
-CLASS="LITERAL"
-></TT
-> is not converted
-such that it is still possible to include line feeds into attributes).</P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1542"
->3.4.5. The representation of processing instructions</A
-></H2
-><P
->Processing instructions are parsed to some extent: The first word of the
-PI is called the target, and it is stored separated from the rest of the PI:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;?target rest?&#62;</PRE
->
-
-The exact location where a PI occurs is not represented (by default). The
-parser puts the PI into the object that represents the embracing construct (an
-element, a DTD, or the whole document); that means you can find out which PIs
-occur in a certain element, in the DTD, or in the whole document, but you
-cannot lookup the exact position within the construct.</P
-><P
->If you require the exact location of PIs, it is possible to
-create extra nodes for them. This mode is controled by the option
-<TT
-CLASS="LITERAL"
->enable_pinstr_nodes</TT
->. The additional nodes have the node type
-<TT
-CLASS="LITERAL"
->T_pinstr <TT
-CLASS="REPLACEABLE"
-><I
->target</I
-></TT
-></TT
->, and are created
-from special exemplars contained in the <TT
-CLASS="LITERAL"
->spec</TT
-> (see
-pxp_document.mli).</P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1551"
->3.4.6. The representation of comments</A
-></H2
-><P
->Normally, comments are not represented; they are dropped by
-default. However, if you require them, it is possible to create
-<TT
-CLASS="LITERAL"
->T_comment</TT
-> nodes for them. This mode can be specified by the
-option <TT
-CLASS="LITERAL"
->enable_comment_nodes</TT
->. Comment nodes are created from
-special exemplars contained in the <TT
-CLASS="LITERAL"
->spec</TT
-> (see
-pxp_document.mli). You can access the contents of comments through the 
-method <TT
-CLASS="LITERAL"
->comment</TT
->.</P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1558"
->3.4.7. The attributes <TT
-CLASS="LITERAL"
->xml:lang</TT
-> and
-<TT
-CLASS="LITERAL"
->xml:space</TT
-></A
-></H2
-><P
->These attributes are not supported specially; they are handled
-like any other attribute.</P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1563"
->3.4.8. And what about namespaces?</A
-></H2
-><P
->Currently, there is no special support for namespaces.
-However, the parser allows it that the colon occurs in names such that it is
-possible to implement namespaces on top of the current API.</P
-><P
->Some future release of PXP will support namespaces as built-in
-feature...</P
-></DIV
-></DIV
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="x1439.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="c1567.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->The class type <TT
-CLASS="LITERAL"
->extension</TT
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="c893.html"
->Up</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->Configuring and calling the parser</TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/x1629.html b/helm/DEVEL/pxp/pxp/doc/manual/html/x1629.html
deleted file mode 100644 (file)
index 06b1e60..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/x1629.html
+++ /dev/null
@@ -1,895 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->Resolvers and sources</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="UP"
-TITLE="Configuring and calling the parser"
-HREF="c1567.html"><LINK
-REL="PREVIOUS"
-TITLE="Configuring and calling the parser"
-HREF="c1567.html"><LINK
-REL="NEXT"
-TITLE="The DTD classes"
-HREF="x1812.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="SECT1"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="c1567.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
->Chapter 4. Configuring and calling the parser</TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
-><A
-HREF="x1812.html"
->Next</A
-></TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="SECT1"
-><H1
-CLASS="SECT1"
-><A
-NAME="AEN1629"
->4.2. Resolvers and sources</A
-></H1
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1631"
->4.2.1. Using the built-in resolvers (called sources)</A
-></H2
-><P
->The type <TT
-CLASS="LITERAL"
->source</TT
-> enumerates the two
-possibilities where the document to parse comes from.
-
-<PRE
-CLASS="PROGRAMLISTING"
->type source =
-    Entity of ((dtd -&gt; Pxp_entity.entity) * Pxp_reader.resolver)
-  | ExtID of (ext_id * Pxp_reader.resolver)</PRE
->
-
-You normally need not to worry about this type as there are convenience
-functions that create <TT
-CLASS="LITERAL"
->source</TT
-> values:
-
-
-            <P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->from_file s</TT
->: The document is read from
-file <TT
-CLASS="LITERAL"
->s</TT
->; you may specify absolute or relative path names.
-The file name must be encoded as UTF-8 string.</P
-><P
->There is an optional argument <TT
-CLASS="LITERAL"
->~system_encoding</TT
->
-specifying the character encoding which is used for the names of the file
-system. For example, if this encoding is ISO-8859-1 and <TT
-CLASS="LITERAL"
->s</TT
-> is
-also a ISO-8859-1 string, you can form the source:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let s_utf8  =  recode_string ~in_enc:`Enc_iso88591 ~out_enc:`Enc_utf8 s in
-from_file ~system_encoding:`Enc_iso88591 s_utf8</PRE
-></P
-><P
->This <TT
-CLASS="LITERAL"
->source</TT
-> has the advantage that
-it is able to resolve inner external entities; i.e. if your document includes
-data from another file (using the <TT
-CLASS="LITERAL"
->SYSTEM</TT
-> attribute), this
-mode will find that file. However, this mode cannot resolve
-<TT
-CLASS="LITERAL"
->PUBLIC</TT
-> identifiers nor <TT
-CLASS="LITERAL"
->SYSTEM</TT
-> identifiers
-other than "file:".</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->from_channel ch</TT
->: The document is read
-from the channel <TT
-CLASS="LITERAL"
->ch</TT
->. In general, this source also supports
-file URLs found in the document; however, by default only absolute URLs are
-understood. It is possible to associate an ID with the channel such that the
-resolver knows how to interpret relative URLs:
-
-<PRE
-CLASS="PROGRAMLISTING"
->from_channel ~id:(System "file:///dir/dir1/") ch</PRE
->
-
-There is also the ~system_encoding argument specifying how file names are
-encoded. - The example from above can also be written (but it is no
-longer possible to interpret relative URLs because there is no ~id argument,
-and computing this argument is relatively complicated because it must
-be a valid URL):
-
-<PRE
-CLASS="PROGRAMLISTING"
->let ch = open_in s in
-let src = from_channel ~system_encoding:`Enc_iso88591 ch in
-...;
-close_in ch</PRE
-></P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->from_string s</TT
->: The string
-<TT
-CLASS="LITERAL"
->s</TT
-> is the document to parse. This mode is not able to
-interpret file names of <TT
-CLASS="LITERAL"
->SYSTEM</TT
-> clauses, nor it can look up
-<TT
-CLASS="LITERAL"
->PUBLIC</TT
-> identifiers. </P
-><P
->Normally, the encoding of the string is detected as usual
-by analyzing the XML declaration, if any. However, it is also possible to
-specify the encoding directly:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let src = from_string ~fixenc:`ISO-8859-2 s</PRE
-></P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->ExtID (id, r)</TT
->: The document to parse
-is denoted by the identifier <TT
-CLASS="LITERAL"
->id</TT
-> (either a
-<TT
-CLASS="LITERAL"
->SYSTEM</TT
-> or <TT
-CLASS="LITERAL"
->PUBLIC</TT
-> clause), and this
-identifier is interpreted by the resolver <TT
-CLASS="LITERAL"
->r</TT
->. Use this mode
-if you have written your own resolver.</P
-><P
->Which character sets are possible depends on the passed
-resolver <TT
-CLASS="LITERAL"
->r</TT
->.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->Entity (get_entity, r)</TT
->: The document
-to parse is returned by the function invocation <TT
-CLASS="LITERAL"
->get_entity
-dtd</TT
->, where <TT
-CLASS="LITERAL"
->dtd</TT
-> is the DTD object to use (it may be
-empty). Inner external references occuring in this entity are resolved using
-the resolver <TT
-CLASS="LITERAL"
->r</TT
->.</P
-><P
->Which character sets are possible depends on the passed
-resolver <TT
-CLASS="LITERAL"
->r</TT
->.</P
-></LI
-></UL
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1682"
->4.2.2. The resolver API</A
-></H2
-><P
->A resolver is an object that can be opened like a file, but you
-do not pass the file name to the resolver, but the XML identifier of the entity
-to read from (either a <TT
-CLASS="LITERAL"
->SYSTEM</TT
-> or <TT
-CLASS="LITERAL"
->PUBLIC</TT
->
-clause). When opened, the resolver must return the
-<TT
-CLASS="LITERAL"
->Lexing.lexbuf</TT
-> that reads the characters.  The resolver can
-be closed, and it can be cloned. Furthermore, it is possible to tell the
-resolver which character set it should assume. - The following from Pxp_reader:
-
-<PRE
-CLASS="PROGRAMLISTING"
->exception Not_competent
-exception Not_resolvable of exn
-
-class type resolver =
-  object
-    method init_rep_encoding : rep_encoding -&#62; unit
-    method init_warner : collect_warnings -&#62; unit
-    method rep_encoding : rep_encoding
-    method open_in : ext_id -&#62; Lexing.lexbuf
-    method close_in : unit
-    method change_encoding : string -&#62; unit
-    method clone : resolver
-    method close_all : unit
-  end</PRE
->
-
-The resolver object must work as follows:</P
-><P
->            <P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
->When the parser is called, it tells the resolver the
-warner object and the internal encoding by invoking
-<TT
-CLASS="LITERAL"
->init_warner</TT
-> and <TT
-CLASS="LITERAL"
->init_rep_encoding</TT
->. The
-resolver should store these values. The method <TT
-CLASS="LITERAL"
->rep_encoding</TT
->
-should return the internal encoding.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->If the parser wants to read from the resolver, it invokes
-the method <TT
-CLASS="LITERAL"
->open_in</TT
->. Either the resolver succeeds, in which
-case the <TT
-CLASS="LITERAL"
->Lexing.lexbuf</TT
-> reading from the file or stream must
-be returned, or opening fails. In the latter case the method implementation
-should raise an exception (see below).</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->If the parser finishes reading, it calls the
-<TT
-CLASS="LITERAL"
->close_in</TT
-> method.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->If the parser finds a reference to another external
-entity in the input stream, it calls <TT
-CLASS="LITERAL"
->clone</TT
-> to get a second
-resolver which must be initially closed (not yet connected with an input
-stream).  The parser then invokes <TT
-CLASS="LITERAL"
->open_in</TT
-> and the other
-methods as described.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->If you already know the character set of the input
-stream, you should recode it to the internal encoding, and define the method
-<TT
-CLASS="LITERAL"
->change_encoding</TT
-> as an empty method.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->If you want to support multiple external character sets,
-the object must follow a much more complicated protocol. Directly after
-<TT
-CLASS="LITERAL"
->open_in</TT
-> has been called, the resolver must return a lexical
-buffer that only reads one byte at a time. This is only possible if you create
-the lexical buffer with <TT
-CLASS="LITERAL"
->Lexing.from_function</TT
->; the function
-must then always return 1 if the EOF is not yet reached, and 0 if EOF is
-reached. If the parser has read the first line of the document, it will invoke
-<TT
-CLASS="LITERAL"
->change_encoding</TT
-> to tell the resolver which character set to
-assume. From this moment, the object can return more than one byte at once. The
-argument of <TT
-CLASS="LITERAL"
->change_encoding</TT
-> is either the parameter of the
-"encoding" attribute of the XML declaration, or the empty string if there is
-not any XML declaration or if the declaration does not contain an encoding
-attribute. </P
-><P
->At the beginning the resolver must only return one
-character every time something is read from the lexical buffer. The reason for
-this is that you otherwise would not exactly know at which position in the
-input stream the character set changes.</P
-><P
->If you want automatic recognition of the character set,
-it is up to the resolver object to implement this.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->If an error occurs, the parser calls the method
-<TT
-CLASS="LITERAL"
->close_all</TT
-> for the top-level resolver; this method should
-close itself (if not already done) and all clones.</P
-></LI
-></UL
-></P
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->Exceptions. </B
->It is possible to chain resolvers such that when the first resolver is not able
-to open the entity, the other resolvers of the chain are tried in turn. The
-method <TT
-CLASS="LITERAL"
->open_in</TT
-> should raise the exception
-<TT
-CLASS="LITERAL"
->Not_competent</TT
-> to indicate that the next resolver should try
-to open the entity. If the resolver is able to handle the ID, but some other
-error occurs, the exception <TT
-CLASS="LITERAL"
->Not_resolvable</TT
-> should be raised
-to force that the chain breaks.
-         </P
-></DIV
-><P
->Example: How to define a resolver that is equivalent to
-from_string: ...</P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1728"
->4.2.3. Predefined resolver components</A
-></H2
-><P
->There are some classes in Pxp_reader that define common resolver behaviour.
-
-<PRE
-CLASS="PROGRAMLISTING"
->class resolve_read_this_channel : 
-    ?id:ext_id -&#62; 
-    ?fixenc:encoding -&#62; 
-    ?auto_close:bool -&#62; 
-    in_channel -&#62; 
-        resolver</PRE
->
-
-Reads from the passed channel (it may be even a pipe). If the
-<TT
-CLASS="LITERAL"
->~id</TT
-> argument is passed to the object, the created resolver
-accepts only this ID. Otherwise all IDs are accepted.  - Once the resolver has
-been cloned, it does not accept any ID. This means that this resolver cannot
-handle inner references to external entities. Note that you can combine this
-resolver with another resolver that can handle inner references (such as
-resolve_as_file); see class 'combine' below.  - If you pass the
-<TT
-CLASS="LITERAL"
->~fixenc</TT
-> argument, the encoding of the channel is set to the
-passed value, regardless of any auto-recognition or any XML declaration. - If
-<TT
-CLASS="LITERAL"
->~auto_close = true</TT
-> (which is the default), the channel is
-closed after use. If <TT
-CLASS="LITERAL"
->~auto_close = false</TT
->, the channel is
-left open.
- </P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->class resolve_read_any_channel : 
-    ?auto_close:bool -&#62; 
-    channel_of_id:(ext_id -&#62; (in_channel * encoding option)) -&#62; 
-        resolver</PRE
->
-
-This resolver calls the function <TT
-CLASS="LITERAL"
->~channel_of_id</TT
-> to open a
-new channel for the passed <TT
-CLASS="LITERAL"
->ext_id</TT
->. This function must either
-return the channel and the encoding, or it must fail with Not_competent.  The
-function must return <TT
-CLASS="LITERAL"
->None</TT
-> as encoding if the default
-mechanism to recognize the encoding should be used. It must return
-<TT
-CLASS="LITERAL"
->Some e</TT
-> if it is already known that the encoding of the
-channel is <TT
-CLASS="LITERAL"
->e</TT
->.  If <TT
-CLASS="LITERAL"
->~auto_close = true</TT
->
-(which is the default), the channel is closed after use. If
-<TT
-CLASS="LITERAL"
->~auto_close = false</TT
->, the channel is left open.</P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->class resolve_read_url_channel :
-    ?base_url:Neturl.url -&#62;
-    ?auto_close:bool -&#62; 
-    url_of_id:(ext_id -&#62; Neturl.url) -&#62; 
-    channel_of_url:(Neturl.url -&#62; (in_channel * encoding option)) -&#62; 
-        resolver</PRE
->
-
-When this resolver gets an ID to read from, it calls the function
-<TT
-CLASS="LITERAL"
->~url_of_id</TT
-> to get the corresponding URL. This URL may be a
-relative URL; however, a URL scheme must be used which contains a path.  The
-resolver converts the URL to an absolute URL if necessary.  The second
-function, <TT
-CLASS="LITERAL"
->~channel_of_url</TT
->, is fed with the absolute URL as
-input. This function opens the resource to read from, and returns the channel
-and the encoding of the resource.</P
-><P
->Both functions, <TT
-CLASS="LITERAL"
->~url_of_id</TT
-> and
-<TT
-CLASS="LITERAL"
->~channel_of_url</TT
->, can raise Not_competent to indicate that
-the object is not able to read from the specified resource. However, there is a
-difference: A Not_competent from <TT
-CLASS="LITERAL"
->~url_of_id</TT
-> is left as it
-is, but a Not_competent from <TT
-CLASS="LITERAL"
->~channel_of_url</TT
-> is converted to
-Not_resolvable. So only <TT
-CLASS="LITERAL"
->~url_of_id</TT
-> decides which URLs are
-accepted by the resolver and which not.</P
-><P
->The function <TT
-CLASS="LITERAL"
->~channel_of_url</TT
-> must return
-<TT
-CLASS="LITERAL"
->None</TT
-> as encoding if the default mechanism to recognize the
-encoding should be used. It must return <TT
-CLASS="LITERAL"
->Some e</TT
-> if it is
-already known that the encoding of the channel is <TT
-CLASS="LITERAL"
->e</TT
->.</P
-><P
->If <TT
-CLASS="LITERAL"
->~auto_close = true</TT
-> (which is the default), the channel is
-closed after use. If <TT
-CLASS="LITERAL"
->~auto_close = false</TT
->, the channel is
-left open.</P
-><P
->Objects of this class contain a base URL relative to which relative URLs are
-interpreted. When creating a new object, you can specify the base URL by
-passing it as <TT
-CLASS="LITERAL"
->~base_url</TT
-> argument. When an existing object is
-cloned, the base URL of the clone is the URL of the original object. - Note
-that the term "base URL" has a strict definition in RFC 1808.</P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->class resolve_read_this_string : 
-    ?id:ext_id -&#62; 
-    ?fixenc:encoding -&#62; 
-    string -&#62; 
-        resolver</PRE
->
-
-Reads from the passed string. If the <TT
-CLASS="LITERAL"
->~id</TT
-> argument is passed
-to the object, the created resolver accepts only this ID. Otherwise all IDs are
-accepted. - Once the resolver has been cloned, it does not accept any ID. This
-means that this resolver cannot handle inner references to external
-entities. Note that you can combine this resolver with another resolver that
-can handle inner references (such as resolve_as_file); see class 'combine'
-below. - If you pass the <TT
-CLASS="LITERAL"
->~fixenc</TT
-> argument, the encoding of
-the string is set to the passed value, regardless of any auto-recognition or
-any XML declaration.</P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->class resolve_read_any_string : 
-    string_of_id:(ext_id -&#62; (string * encoding option)) -&#62; 
-        resolver</PRE
->
-
-This resolver calls the function <TT
-CLASS="LITERAL"
->~string_of_id</TT
-> to get the
-string for the passed <TT
-CLASS="LITERAL"
->ext_id</TT
->. This function must either
-return the string and the encoding, or it must fail with Not_competent.  The
-function must return <TT
-CLASS="LITERAL"
->None</TT
-> as encoding if the default
-mechanism to recognize the encoding should be used. It must return
-<TT
-CLASS="LITERAL"
->Some e</TT
-> if it is already known that the encoding of the
-string is <TT
-CLASS="LITERAL"
->e</TT
->.</P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->class resolve_as_file :
-    ?file_prefix:[ `Not_recognized | `Allowed | `Required ] -&#62;
-    ?host_prefix:[ `Not_recognized | `Allowed | `Required ] -&#62;
-    ?system_encoding:encoding -&#62;
-    ?url_of_id:(ext_id -&#62; Neturl.url) -&#62; 
-    ?channel_of_url: (Neturl.url -&#62; (in_channel * encoding option)) -&#62;
-    unit -&#62; 
-        resolver</PRE
->
-Reads from the local file system. Every file name is interpreted as
-file name of the local file system, and the referred file is read.</P
-><P
->The full form of a file URL is: file://host/path, where
-'host' specifies the host system where the file identified 'path'
-resides. host = "" or host = "localhost" are accepted; other values
-will raise Not_competent. The standard for file URLs is 
-defined in RFC 1738.</P
-><P
->Option <TT
-CLASS="LITERAL"
->~file_prefix</TT
->: Specifies how the "file:" prefix of
-file names is handled:
-            <P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->`Not_recognized:</TT
->The prefix is not
-recognized.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->`Allowed:</TT
-> The prefix is allowed but
-not required (the default).</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->`Required:</TT
-> The prefix is
-required.</P
-></LI
-></UL
-></P
-><P
->Option <TT
-CLASS="LITERAL"
->~host_prefix:</TT
-> Specifies how the "//host" phrase of
-file names is handled:
-            <P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->`Not_recognized:</TT
->The prefix is not
-recognized.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->`Allowed:</TT
-> The prefix is allowed but
-not required (the default).</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->`Required:</TT
-> The prefix is
-required.</P
-></LI
-></UL
-></P
-><P
->Option <TT
-CLASS="LITERAL"
->~system_encoding:</TT
-> Specifies the encoding of file
-names of the local file system. Default: UTF-8.</P
-><P
->Options <TT
-CLASS="LITERAL"
->~url_of_id</TT
->, <TT
-CLASS="LITERAL"
->~channel_of_url</TT
->: Not
-for the casual user!</P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->class combine : 
-    ?prefer:resolver -&#62; 
-    resolver list -&#62; 
-        resolver</PRE
->
-
-Combines several resolver objects. If a concrete entity with an
-<TT
-CLASS="LITERAL"
->ext_id</TT
-> is to be opened, the combined resolver tries the
-contained resolvers in turn until a resolver accepts opening the entity
-(i.e. it does not raise Not_competent on open_in).</P
-><P
->Clones: If the 'clone' method is invoked before 'open_in', all contained
-resolvers are cloned separately and again combined. If the 'clone' method is 
-invoked after 'open_in' (i.e. while the resolver is open), additionally the
-clone of the active resolver is flagged as being preferred, i.e. it is tried
-first. </P
-></DIV
-></DIV
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="c1567.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="x1812.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->Configuring and calling the parser</TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="c1567.html"
->Up</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->The DTD classes</TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/x1812.html b/helm/DEVEL/pxp/pxp/doc/manual/html/x1812.html
deleted file mode 100644 (file)
index 34f09c2..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/x1812.html
+++ /dev/null
@@ -1,517 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->The DTD classes</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="UP"
-TITLE="Configuring and calling the parser"
-HREF="c1567.html"><LINK
-REL="PREVIOUS"
-TITLE="Resolvers and sources"
-HREF="x1629.html"><LINK
-REL="NEXT"
-TITLE="Invoking the parser"
-HREF="x1818.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="SECT1"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="x1629.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
->Chapter 4. Configuring and calling the parser</TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
-><A
-HREF="x1818.html"
->Next</A
-></TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="SECT1"
-><H1
-CLASS="SECT1"
-><A
-NAME="AEN1812"
->4.3. The DTD classes</A
-></H1
-><P
-><I
-CLASS="EMPHASIS"
->Sorry, not yet
-written. Perhaps the interface definition of Pxp_dtd expresses the same:</I
-></P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->&#13;(**********************************************************************)
-(*                                                                    *)
-(* Pxp_dtd:                                                           *)
-(*     Object model of document type declarations                     *)
-(*                                                                    *)
-(**********************************************************************)
-
-(* ======================================================================
- * OVERVIEW
- *
- * class dtd ............... represents the whole DTD, including element
- *                           declarations, entity declarations, notation
- *                           declarations, and processing instructions
- * class dtd_element ....... represents an element declaration consisting
- *                           of a content model and an attribute list
- *                           declaration
- * class dtd_notation ...... represents a notation declaration
- * class proc_instruction .. represents a processing instruction
- * ======================================================================
- *
- *)
-
-
-class dtd :
-  (* Creation:
-   *   new dtd
-   * creates a new, empty DTD object without any declaration, without a root
-   * element, without an ID.
-   *)
-  Pxp_types.collect_warnings -&gt; 
-  Pxp_types.rep_encoding -&gt;
-  object
-    method root : string option
-      (* get the name of the root element if present *)
-
-    method set_root : string -&gt; unit
-      (* set the name of the root element. This method can be invoked 
-       * only once
-       *)
-
-    method id : Pxp_types.dtd_id option
-      (* get the identifier for this DTD *)
-
-    method set_id : Pxp_types.dtd_id -&gt; unit
-      (* set the identifier. This method can be invoked only once *)
-
-    method encoding : Pxp_types.rep_encoding
-      (* returns the encoding used for character representation *)
-
-
-    method allow_arbitrary : unit
-      (* After this method has been invoked, the object changes its behaviour:
-       * - elements and notations that have not been added may be used in an
-       *   arbitrary way; the methods "element" and "notation" indicate this
-       *   by raising Undeclared instead of Validation_error.
-       *)
-
-    method disallow_arbitrary : unit
-
-    method arbitrary_allowed : bool
-      (* Returns whether arbitrary contents are allowed or not. *)
-
-    method standalone_declaration : bool
-      (* Whether there is a 'standalone' declaration or not. Strictly 
-       * speaking, this declaration is not part of the DTD, but it is
-       * included here because of practical reasons. 
-       * If not set, this property defaults to 'false'.
-       *)
-
-    method set_standalone_declaration : bool -&gt; unit
-      (* Sets the 'standalone' declaration. *)
-
-
-    method add_element : dtd_element -&gt; unit
-      (* add the given element declaration to this DTD. Raises Not_found
-       * if there is already an element declaration with the same name.
-       *)
-
-    method add_gen_entity : Pxp_entity.entity -&gt; bool -&gt; unit
-      (* add_gen_entity e extdecl:
-       * add the entity 'e' as general entity to this DTD (general entities
-       * are those represented by &amp;name;). If there is already a declaration
-       * with the same name, the second definition is ignored; as exception from
-       * this rule, entities with names "lt", "gt", "amp", "quot", and "apos"
-       * may only be redeclared with a definition that is equivalent to the
-       * standard definition; otherwise a Validation_error is raised.
-       *
-       * 'extdecl': 'true' indicates that the entity declaration occurs in
-       * an external entity. (Used for the standalone check.)
-       *)
-
-    method add_par_entity : Pxp_entity.entity -&gt; unit
-      (* add the given entity as parameter entity to this DTD (parameter
-       * entities are those represented by %name;). If there is already a 
-       * declaration with the same name, the second definition is ignored.
-       *)
-
-    method add_notation : dtd_notation -&gt; unit
-      (* add the given notation to this DTD. If there is already a declaration
-       * with the same name, a Validation_error is raised.
-       *)
-
-    method add_pinstr : proc_instruction -&gt; unit
-      (* add the given processing instruction to this DTD. *)
-
-    method element : string -&gt; dtd_element
-      (* looks up the element declaration with the given name. Raises 
-       * Validation_error if the element cannot be found. (If "allow_arbitrary"
-       * has been invoked before, Unrestricted is raised instead.)
-       *)
-
-    method element_names : string list
-      (* returns the list of the names of all element declarations. *)
-
-    method gen_entity : string -&gt; (Pxp_entity.entity * bool)
-      (* let e, extdecl = obj # gen_entity n:
-       * looks up the general entity 'e' with the name 'n'. Raises
-       * WF_error if the entity cannot be found.
-       * 'extdecl': indicates whether the entity declaration occured in an 
-       * external entity.
-       *)
-
-    method gen_entity_names : string list
-      (* returns the list of all general entity names *)
-
-    method par_entity : string -&gt; Pxp_entity.entity
-      (* looks up the parameter entity with the given name. Raises
-       * WF_error if the entity cannot be found.
-       *)
-
-    method par_entity_names : string list
-      (* returns the list of all parameter entity names *)
-
-    method notation : string -&gt; dtd_notation
-      (* looks up the notation declaration with the given name. Raises
-       * Validation_error if the notation cannot be found. (If "allow_arbitrary"
-       * has been invoked before, Unrestricted is raised instead.)
-       *)
-
-    method notation_names : string list
-      (* Returns the list of the names of all added notations *)
-
-    method pinstr : string -&gt; proc_instruction list
-      (* looks up all processing instructions with the given target.
-       * The "target" is the identifier following "&lt;?".
-       * Note: It is not possible to find out the exact position of the
-       * processing instruction.
-       *)
-
-    method pinstr_names : string list
-      (* Returns the list of the names (targets) of all added pinstrs *)
-
-    method validate : unit
-      (* ensures that the DTD is valid. This method is optimized such that
-       * actual validation is only performed if DTD has changed.
-       * If the DTD is invalid, mostly a Validation_error is raised,
-       * but other exceptions are possible, too.
-       *)
-
-    method only_deterministic_models : unit
-      (* Succeeds if all regexp content models are deterministic. 
-       * Otherwise Validation_error.
-       *)
-
-    method write : Pxp_types.output_stream -&gt; Pxp_types.encoding -&gt; bool -&gt; unit
-      (* write_compact_as_latin1 os enc doctype:
-       * Writes the DTD as 'enc'-encoded string to 'os'. If 'doctype', a 
-       * DTD like &lt;!DOCTYPE root [ ... ]&gt; is written. If 'not doctype',
-       * only the declarations are written (the material within the
-       * square brackets).
-       *)
-
-    method write_compact_as_latin1 : Pxp_types.output_stream -&gt; bool -&gt; unit
-      (* DEPRECATED METHOD; included only to keep compatibility with
-       * older versions of the parser
-       *)
-
-
-    (*----------------------------------------*)
-    method invalidate : unit
-      (* INTERNAL METHOD *)
-    method warner : Pxp_types.collect_warnings
-      (* INTERNAL METHOD *)
-  end
-
-
-
-(* ---------------------------------------------------------------------- *)
-
-and dtd_element : dtd -&gt; string -&gt; 
-  (* Creation:
-   *   new dtd_element init_dtd init_name:
-   * creates a new dtd_element object for init_dtd with init_name.
-   * The strings are represented in the same encoding as init_dtd.
-   *)
-  object
-
-    method name : string
-      (* returns the name of the declared element *)
-
-    method externally_declared : bool
-      (* returns whether the element declaration occurs in an external
-       * entity.
-       *)
-
-    method content_model : Pxp_types.content_model_type
-      (* get the content model of this element declaration, or Unspecified *)
-
-    method content_dfa : Pxp_dfa.dfa_definition option
-      (* return the DFA of the content model if there is a DFA, or None.
-       * A DFA exists only for regexp style content models which are
-       * deterministic.
-       *)
-
-    method set_cm_and_extdecl : Pxp_types.content_model_type -&gt; bool -&gt; unit
-      (* set_cm_and_extdecl cm extdecl:
-       * set the content model to 'cm'. Once the content model is not 
-       * Unspecified, it cannot be set to a different value again.
-       * Furthermore, it is set whether the element occurs in an external
-       * entity ('extdecl').
-       *)
-
-    method encoding : Pxp_types.rep_encoding
-      (* Return the encoding of the strings *)
-
-    method allow_arbitrary : unit
-      (* After this method has been invoked, the object changes its behaviour:
-       * - attributes that have not been added may be used in an
-       *   arbitrary way; the method "attribute" indicates this
-       *   by raising Undeclared instead of Validation_error.
-       *)
-
-    method disallow_arbitrary : unit
-
-    method arbitrary_allowed : bool
-      (* Returns whether arbitrary attributes are allowed or not. *)
-
-    method attribute : string -&gt; 
-                         Pxp_types.att_type * Pxp_types.att_default
-      (* get the type and default value of a declared attribute, or raise
-       * Validation_error if the attribute does not exist.
-       * If 'arbitrary_allowed', the exception Undeclared is raised instead
-       * of Validation_error.
-       *)
-
-    method attribute_violates_standalone_declaration : 
-               string -&gt; string option -&gt; bool
-      (* attribute_violates_standalone_declaration name v:
-       * Checks whether the attribute 'name' violates the "standalone"
-       * declaration if it has value 'v'.
-       * The method returns true if:
-       * - The attribute declaration occurs in an external entity, 
-       * and if one of the two conditions holds:
-       * - v = None, and there is a default for the attribute value
-       * - v = Some s, and the type of the attribute is not CDATA,
-       *   and s changes if normalized according to the rules of the
-       *   attribute type.
-       *
-       * The method raises Validation_error if the attribute does not exist.
-       * If 'arbitrary_allowed', the exception Undeclared is raised instead
-       * of Validation_error.
-       *)
-
-    method attribute_names : string list
-      (* get the list of all declared attributes *)
-
-    method names_of_required_attributes : string list
-      (* get the list of all attributes that are specified as required 
-       * attributes
-       *)
-
-    method id_attribute_name : string option
-      (* Returns the name of the attribute with type ID, or None. *)
-
-    method idref_attribute_names : string list
-      (* Returns the names of the attributes with type IDREF or IDREFS. *)
-
-    method add_attribute : string -&gt; 
-                           Pxp_types.att_type -&gt; 
-                          Pxp_types.att_default -&gt; 
-                          bool -&gt;
-                            unit
-      (* add_attribute name type default extdecl:
-       * add an attribute declaration for an attribute with the given name,
-       * type, and default value. If there is more than one declaration for
-       * an attribute name, the first declaration counts; the other declarations
-       * are ignored.
-       * 'extdecl': if true, the attribute declaration occurs in an external
-       * entity. This property is used to check the "standalone" attribute.
-       *)
-
-    method validate : unit
-      (* checks whether this element declaration (i.e. the content model and
-       * all attribute declarations) is valid for the associated DTD.
-       * Raises mostly Validation_error if the validation fails.
-       *)
-
-    method write : Pxp_types.output_stream -&gt; Pxp_types.encoding -&gt; unit
-      (* write_compact_as_latin1 os enc:
-       * Writes the &lt;!ELEMENT ... &gt; declaration to 'os' as 'enc'-encoded string.
-       *)
-
-    method write_compact_as_latin1 : Pxp_types.output_stream -&gt; unit
-      (* DEPRECATED METHOD; included only to keep compatibility with
-       * older versions of the parser
-       *)
-  end
-
-(* ---------------------------------------------------------------------- *)
-
-and dtd_notation : string -&gt; Pxp_types.ext_id -&gt; Pxp_types.rep_encoding -&gt;
-  (* Creation:
-   *    new dtd_notation a_name an_external_ID init_encoding
-   * creates a new dtd_notation object with the given name and the given
-   * external ID.
-   *)
-  object
-    method name : string
-    method ext_id : Pxp_types.ext_id
-    method encoding : Pxp_types.rep_encoding
-
-    method write : Pxp_types.output_stream -&gt; Pxp_types.encoding -&gt; unit
-      (* write_compact_as_latin1 os enc:
-       * Writes the &lt;!NOTATION ... &gt; declaration to 'os' as 'enc'-encoded 
-       * string.
-       *)
-
-    method write_compact_as_latin1 : Pxp_types.output_stream -&gt; unit
-      (* DEPRECATED METHOD; included only to keep compatibility with
-       * older versions of the parser
-       *)
-
-  end
-
-(* ---------------------------------------------------------------------- *)
-
-and proc_instruction : string -&gt; string -&gt; Pxp_types.rep_encoding -&gt;
-  (* Creation:
-   *   new proc_instruction a_target a_value
-   * creates a new proc_instruction object with the given target string and
-   * the given value string. 
-   * Note: A processing instruction is written as &lt;?target value?&gt;. 
-   *)
-  object
-    method target : string
-    method value : string
-    method encoding : Pxp_types.rep_encoding
-
-    method write : Pxp_types.output_stream -&gt; Pxp_types.encoding -&gt; unit
-      (* write os enc:
-       * Writes the &lt;?...?&gt; PI to 'os' as 'enc'-encoded string.
-       *)
-
-    method write_compact_as_latin1 : Pxp_types.output_stream -&gt; unit
-      (* DEPRECATED METHOD; included only to keep compatibility with
-       * older versions of the parser
-       *)
-
-    method parse_pxp_option : (string * string * (string * string) list)
-      (* Parses a PI containing a PXP option. Such PIs are formed like:
-       *   &lt;?target option-name option-att="value" option-att="value" ... ?&gt;
-       * The method returns a triple
-       *   (target, option-name, [option-att, value; ...])
-       * or raises Error.
-       *)
-
-  end
-
-;;&#13;</PRE
-></P
-></DIV
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="x1629.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="x1818.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->Resolvers and sources</TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="c1567.html"
->Up</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->Invoking the parser</TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/x1818.html b/helm/DEVEL/pxp/pxp/doc/manual/html/x1818.html
deleted file mode 100644 (file)
index b289a36..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/x1818.html
+++ /dev/null
@@ -1,779 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->Invoking the parser</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="UP"
-TITLE="Configuring and calling the parser"
-HREF="c1567.html"><LINK
-REL="PREVIOUS"
-TITLE="The DTD classes"
-HREF="x1812.html"><LINK
-REL="NEXT"
-TITLE="Updates"
-HREF="x1965.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="SECT1"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="x1812.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
->Chapter 4. Configuring and calling the parser</TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
-><A
-HREF="x1965.html"
->Next</A
-></TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="SECT1"
-><H1
-CLASS="SECT1"
-><A
-NAME="AEN1818"
->4.4. Invoking the parser</A
-></H1
-><P
->Here a description of Pxp_yacc.</P
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1821"
->4.4.1. Defaults</A
-></H2
-><P
->The following defaults are available:
-
-<PRE
-CLASS="PROGRAMLISTING"
->val default_config : config
-val default_extension : ('a node extension) as 'a
-val default_spec : ('a node extension as 'a) spec</PRE
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1825"
->4.4.2. Parsing functions</A
-></H2
-><P
->In the following, the term "closed document" refers to
-an XML structure like
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;!DOCTYPE ... [ <TT
-CLASS="REPLACEABLE"
-><I
->declarations</I
-></TT
-> ] &gt;
-&lt;<TT
-CLASS="REPLACEABLE"
-><I
->root</I
-></TT
->&gt;
-...
-&lt;/<TT
-CLASS="REPLACEABLE"
-><I
->root</I
-></TT
->&gt;</PRE
->
-
-The term "fragment" refers to an XML structure like
-
-<PRE
-CLASS="PROGRAMLISTING"
->&lt;<TT
-CLASS="REPLACEABLE"
-><I
->root</I
-></TT
->&gt;
-...
-&lt;/<TT
-CLASS="REPLACEABLE"
-><I
->root</I
-></TT
->&gt;</PRE
->
-
-i.e. only to one isolated element instance.</P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->val parse_dtd_entity : config -&#62; source -&#62; dtd</PRE
->
-
-Parses the declarations which are contained in the entity, and returns them as
-<TT
-CLASS="LITERAL"
->dtd</TT
-> object.</P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->val extract_dtd_from_document_entity : config -&#62; source -&#62; dtd</PRE
->
-
-Extracts the DTD from a closed document. Both the internal and the external
-subsets are extracted and combined to one <TT
-CLASS="LITERAL"
->dtd</TT
-> object. This
-function does not parse the whole document, but only the parts that are
-necessary to extract the DTD.</P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->val parse_document_entity : 
-    ?transform_dtd:(dtd -&#62; dtd) -&#62;
-    ?id_index:('ext index) -&#62;
-    config -&#62; 
-    source -&#62; 
-    'ext spec -&#62; 
-        'ext document</PRE
->
-
-Parses a closed document and validates it against the DTD that is contained in
-the document (internal and external subsets). The option
-<TT
-CLASS="LITERAL"
->~transform_dtd</TT
-> can be used to transform the DTD in the
-document, and to use the transformed DTD for validation. If
-<TT
-CLASS="LITERAL"
->~id_index</TT
-> is specified, an index of all ID attributes is
-created.</P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->val parse_wfdocument_entity : 
-    config -&#62; 
-    source -&#62; 
-    'ext spec -&#62; 
-        'ext document</PRE
->
-
-Parses a closed document, but checks it only on well-formedness.</P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->val parse_content_entity  : 
-    ?id_index:('ext index) -&#62;
-    config -&#62;  
-    source -&#62; 
-    dtd -&#62; 
-    'ext spec -&#62; 
-        'ext node</PRE
->
-
-Parses a fragment, and validates the element.</P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->val parse_wfcontent_entity : 
-    config -&#62; 
-    source -&#62; 
-    'ext spec -&#62; 
-        'ext node</PRE
->
-
-Parses a fragment, but checks it only on well-formedness.</P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1851"
->4.4.3. Configuration options</A
-></H2
-><P
->&#13;<PRE
-CLASS="PROGRAMLISTING"
->type config =
-    { warner : collect_warnings;
-      errors_with_line_numbers : bool;
-      enable_pinstr_nodes : bool;
-      enable_super_root_node : bool;
-      enable_comment_nodes : bool;
-      encoding : rep_encoding;
-      recognize_standalone_declaration : bool;
-      store_element_positions : bool;
-      idref_pass : bool;
-      validate_by_dfa : bool;
-      accept_only_deterministic_models : bool;
-      ...
-    }</PRE
->
-
-<P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->warner:</TT
->The parser prints
-warnings by invoking the method <TT
-CLASS="LITERAL"
->warn</TT
-> for this warner
-object. (Default: all warnings are dropped)</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->errors_with_line_numbers:</TT
->If
-true, errors contain line numbers; if false, errors contain only byte
-positions. The latter mode is faster. (Default: true)</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->enable_pinstr_nodes:</TT
->If true,
-the parser creates extra nodes for processing instructions. If false,
-processing instructions are simply added to the element or document surrounding
-the instructions. (Default: false)</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->enable_super_root_node:</TT
->If
-true, the parser creates an extra node which is the parent of the root of the
-document tree. This node is called super root; it is an element with type
-<TT
-CLASS="LITERAL"
->T_super_root</TT
->. - If there are processing instructions outside
-the root element and outside the DTD, they are added to the super root instead
-of the document. - If false, the super root node is not created. (Default:
-false)</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->enable_comment_nodes:</TT
->If true,
-the parser creates nodes for comments with type <TT
-CLASS="LITERAL"
->T_comment</TT
->;
-if false, such nodes are not created. (Default: false)</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->encoding:</TT
->Specifies the
-internal encoding of the parser. Most strings are then represented according to
-this encoding; however there are some exceptions (especially
-<TT
-CLASS="LITERAL"
->ext_id</TT
-> values which are always UTF-8 encoded).
-(Default: `Enc_iso88591)</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->recognize_standalone_declaration:</TT
-> If true and if the parser is
-validating, the <TT
-CLASS="LITERAL"
->standalone="yes"</TT
-> declaration forces that it
-is checked whether the document is a standalone document. - If false, or if the
-parser is in well-formedness mode, such declarations are ignored.
-(Default: true)</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->store_element_positions:</TT
-> If
-true, for every non-data node the source position is stored. If false, the
-position information is lost. If available, you can get the positions of nodes
-by invoking the <TT
-CLASS="LITERAL"
->position</TT
-> method.
-(Default: true)</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->idref_pass:</TT
->If true and if
-there is an ID index, the parser checks whether every IDREF or IDREFS attribute
-refer to an existing node; this requires that the parser traverses the whole
-doument tree. If false, this check is left out. (Default: false)</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->validate_by_dfa:</TT
->If true and if
-the content model for an element type is deterministic, a deterministic finite
-automaton is used to validate whether the element contents match the content
-model of the type. If false, or if a DFA is not available, a backtracking
-algorithm is used for validation. (Default: true)</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->accept_only_deterministic_models:</TT
-> If true, only deterministic content
-models are accepted; if false, any syntactically correct content models can be
-processed. (Default: true)</P
-></LI
-></UL
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1895"
->4.4.4. Which configuration should I use?</A
-></H2
-><P
->First, I recommend to vary the default configuration instead of
-creating a new configuration record. For instance, to set
-<TT
-CLASS="LITERAL"
->idref_pass</TT
-> to <TT
-CLASS="LITERAL"
->true</TT
->, change the default
-as in:
-<PRE
-CLASS="PROGRAMLISTING"
->let config = { default_config with idref_pass = true }</PRE
->
-The background is that I can add more options to the record in future versions
-of the parser without breaking your programs.</P
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->Do I need extra nodes for processing instructions? </B
->By default, such nodes are not created. This does not mean that the
-processing instructions are lost; however, you cannot find out the exact
-location where they occur. For example, the following XML text
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;x&#62;&#60;?pi1?&#62;&#60;y/&#62;&#60;?pi2?&#62;&#60;/x&#62; </PRE
-> 
-
-will normally create one element node for <TT
-CLASS="LITERAL"
->x</TT
-> containing
-<I
-CLASS="EMPHASIS"
->one</I
-> subnode for <TT
-CLASS="LITERAL"
->y</TT
->. The processing
-instructions are attached to <TT
-CLASS="LITERAL"
->x</TT
-> in a separate hash table; you
-can access them using <TT
-CLASS="LITERAL"
->x # pinstr "pi1"</TT
-> and <TT
-CLASS="LITERAL"
->x #
-pinstr "pi2"</TT
->, respectively. The information is lost where the
-instructions occur within <TT
-CLASS="LITERAL"
->x</TT
->.</P
-></DIV
-><P
->If the option <TT
-CLASS="LITERAL"
->enable_pinstr_nodes</TT
-> is
-turned on, the parser creates extra nodes <TT
-CLASS="LITERAL"
->pi1</TT
-> and
-<TT
-CLASS="LITERAL"
->pi2</TT
-> such that the subnodes of <TT
-CLASS="LITERAL"
->x</TT
-> are now: 
-
-<PRE
-CLASS="PROGRAMLISTING"
->x # sub_nodes = [ pi1; y; pi2 ]</PRE
->
-
-The extra nodes contain the processing instructions in the usual way, i.e. you
-can access them using <TT
-CLASS="LITERAL"
->pi1 # pinstr "pi1"</TT
-> and <TT
-CLASS="LITERAL"
->pi2 #
-pinstr "pi2"</TT
->, respectively.</P
-><P
->Note that you will need an exemplar for the PI nodes (see
-<TT
-CLASS="LITERAL"
->make_spec_from_alist</TT
->).</P
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->Do I need a super root node? </B
->By default, there is no super root node. The
-<TT
-CLASS="LITERAL"
->document</TT
-> object refers directly to the node representing the
-root element of the document, i.e.
-
-<PRE
-CLASS="PROGRAMLISTING"
->doc # root = r</PRE
->
-
-if <TT
-CLASS="LITERAL"
->r</TT
-> is the root node. This is sometimes inconvenient: (1)
-Some algorithms become simpler if every node has a parent, even the root
-node. (2) Some standards such as XPath call the "root node" the node whose
-child represents the root of the document. (3) The super root node can serve
-as a container for processing instructions outside the root element. Because of
-these reasons, it is possible to create an extra super root node, whose child
-is the root node:
-
-<PRE
-CLASS="PROGRAMLISTING"
->doc # root = sr         &#38;&#38;
-sr # sub_nodes = [ r ]</PRE
->
-
-When extra nodes are also created for processing instructions, these nodes can
-be added to the super root node if they occur outside the root element (reason
-(3)), and the order reflects the order in the source text.</P
-></DIV
-><P
->Note that you will need an exemplar for the super root node
-(see <TT
-CLASS="LITERAL"
->make_spec_from_alist</TT
->).</P
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->What is the effect of the UTF-8 encoding? </B
->By default, the parser represents strings (with few
-exceptions) as ISO-8859-1 strings. These are well-known, and there are tools
-and fonts for this encoding.</P
-></DIV
-><P
->However, internationalization may require that you switch over
-to UTF-8 encoding. In most environments, the immediate effect will be that you
-cannot read strings with character codes &#62;= 160 any longer; your terminal will
-only show funny glyph combinations. It is strongly recommended to install
-Unicode fonts (<A
-HREF="http://czyborra.com/unifont/"
-TARGET="_top"
->GNU Unifont</A
->, 
-<A
-HREF="http://www.cl.cam.ac.uk/~mgk25/download/ucs-fonts.tar.gz"
-TARGET="_top"
->Markus Kuhn's fonts</A
->) and <A
-HREF="http://myweb.clark.net/pub/dickey/xterm/xterm.html"
-TARGET="_top"
->terminal emulators
-that can handle UTF-8 byte sequences</A
->. Furthermore, a Unicode editor may
-be helpful (such as <A
-HREF="ftp://metalab.unc.edu/pub/Linux/apps/editors/X/"
-TARGET="_top"
->Yudit</A
->). There are
-also <A
-HREF="http://www.cl.cam.ac.uk/~mgk25/unicode.html"
-TARGET="_top"
->FAQ</A
-> by
-Markus Kuhn.</P
-><P
->By setting <TT
-CLASS="LITERAL"
->encoding</TT
-> to
-<TT
-CLASS="LITERAL"
->`Enc_utf8</TT
-> all strings originating from the parsed XML
-document are represented as UTF-8 strings. This includes not only character
-data and attribute values but also element names, attribute names and so on, as
-it is possible to use any Unicode letter to form such names.  Strictly
-speaking, PXP is only XML-compliant if the UTF-8 mode is used; otherwise it
-will have difficulties when validating documents containing
-non-ISO-8859-1-names.</P
-><P
->This mode does not have any impact on the external
-representation of documents. The character set assumed when reading a document
-is set in the XML declaration, and character set when writing a document must
-be passed to the <TT
-CLASS="LITERAL"
->write</TT
-> method.</P
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->How do I check that nodes exist which are referred by IDREF attributes? </B
->First, you must create an index of all occurring ID
-attributes:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let index = new hash_index</PRE
->
-
-This index must be passed to the parsing function:
-
-<PRE
-CLASS="PROGRAMLISTING"
->parse_document_entity
-  ~id_index:(index :&#62; index)
-  config source spec</PRE
->
-
-Next, you must turn on the <TT
-CLASS="LITERAL"
->idref_pass</TT
-> mode:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let config = { default_config with idref_pass = true }</PRE
->
-
-Note that now the whole document tree will be traversed, and every node will be
-checked for IDREF and IDREFS attributes. If the tree is big, this may take some
-time.</P
-></DIV
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->What are deterministic content models? </B
->These type of models can speed up the validation checks;
-furthermore they ensure SGML-compatibility. In particular, a content model is
-deterministic if the parser can determine the actually used alternative by
-inspecting only the current token. For example, this element has
-non-deterministic contents:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ELEMENT x ((u,v) | (u,y+) | v)&#62;</PRE
->
-
-If the first element in <TT
-CLASS="LITERAL"
->x</TT
-> is <TT
-CLASS="LITERAL"
->u</TT
->, the
-parser does not know which of the alternatives <TT
-CLASS="LITERAL"
->(u,v)</TT
-> or
-<TT
-CLASS="LITERAL"
->(u,y+)</TT
-> will work; the parser must also inspect the second
-element to be able to distinguish between the alternatives. Because such
-look-ahead (or "guessing") is required, this example is
-non-deterministic.</P
-></DIV
-><P
->The XML standard demands that content models must be
-deterministic. So it is recommended to turn the option
-<TT
-CLASS="LITERAL"
->accept_only_deterministic_models</TT
-> on; however, PXP can also
-process non-deterministic models using a backtracking algorithm.</P
-><P
->Deterministic models ensure that validation can be performed in
-linear time. In order to get the maximum benefits, PXP also implements a
-special validator that profits from deterministic models; this is the
-deterministic finite automaton (DFA). This validator is enabled per element
-type if the element type has a deterministic model and if the option
-<TT
-CLASS="LITERAL"
->validate_by_dfa</TT
-> is turned on.</P
-><P
->In general, I expect that the DFA method is faster than the
-backtracking method; especially in the worst case the DFA takes only linear
-time. However, if the content model has only few alternatives and the
-alternatives do not nest, the backtracking algorithm may be better.</P
-></DIV
-></DIV
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="x1812.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="x1965.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->The DTD classes</TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="c1567.html"
->Up</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->Updates</TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/x1965.html b/helm/DEVEL/pxp/pxp/doc/manual/html/x1965.html
deleted file mode 100644 (file)
index 8fc8562..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/x1965.html
+++ /dev/null
@@ -1,152 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->Updates</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="UP"
-TITLE="Configuring and calling the parser"
-HREF="c1567.html"><LINK
-REL="PREVIOUS"
-TITLE="Invoking the parser"
-HREF="x1818.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="SECT1"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="x1818.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
->Chapter 4. Configuring and calling the parser</TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
->&nbsp;</TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="SECT1"
-><H1
-CLASS="SECT1"
-><A
-NAME="AEN1965"
->4.5. Updates</A
-></H1
-><P
-><I
-CLASS="EMPHASIS"
->Some (often later added) features that are otherwise
-not explained in the manual but worth to be mentioned.</I
-></P
-><P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
->Methods node_position, node_path, nth_node,
-previous_node, next_node for nodes: See pxp_document.mli</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
->Functions to determine the document order of nodes:
-compare, create_ord_index, ord_number, ord_compare: See pxp_document.mli</P
-></LI
-></UL
-></DIV
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="x1818.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->&nbsp;</TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->Invoking the parser</TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="c1567.html"
->Up</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->&nbsp;</TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/x468.html b/helm/DEVEL/pxp/pxp/doc/manual/html/x468.html
deleted file mode 100644 (file)
index dc9cc1e..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/x468.html
+++ /dev/null
@@ -1,474 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->A complete example: The readme DTD</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="UP"
-TITLE="What is XML?"
-HREF="c36.html"><LINK
-REL="PREVIOUS"
-TITLE="Highlights of XML"
-HREF="x107.html"><LINK
-REL="NEXT"
-TITLE="Using PXP"
-HREF="c533.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="SECT1"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="x107.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
->Chapter 1. What is XML?</TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
-><A
-HREF="c533.html"
->Next</A
-></TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="SECT1"
-><H1
-CLASS="SECT1"
-><A
-NAME="SECT.README.DTD"
->1.3. A complete example: The <I
-CLASS="EMPHASIS"
->readme</I
-> DTD</A
-></H1
-><P
->The reason for <I
-CLASS="EMPHASIS"
->readme</I
-> was that I often wrote two versions
-of files such as README and INSTALL which explain aspects of a distributed
-software archive; one version was ASCII-formatted, the other was written in
-HTML. Maintaining both versions means double amount of work, and changes
-of one version may be forgotten in the other version. To improve this situation
-I invented the <I
-CLASS="EMPHASIS"
->readme</I
-> DTD which allows me to maintain only
-one source written as XML document, and to generate the ASCII and the HTML
-version from it.</P
-><P
->In this section, I explain only the DTD. The <I
-CLASS="EMPHASIS"
->readme</I
-> DTD is
-contained in the <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-> distribution together with the two converters to
-produce ASCII and HTML. Another <A
-HREF="x738.html"
->section</A
-> of this manual describes the HTML
-converter.</P
-><P
->The documents have a simple structure: There are up to three levels of nested
-sections, paragraphs, item lists, footnotes, hyperlinks, and text emphasis. The
-outermost element has usually the type <TT
-CLASS="LITERAL"
->readme</TT
->, it is
-declared by
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ELEMENT readme (sect1+)&#62;
-&#60;!ATTLIST readme
-          title CDATA #REQUIRED&#62;</PRE
->
-
-This means that this element contains one or more sections of the first level
-(element type <TT
-CLASS="LITERAL"
->sect1</TT
->), and that the element has a required
-attribute <TT
-CLASS="LITERAL"
->title</TT
-> containing character data (CDATA). Note that
-<TT
-CLASS="LITERAL"
->readme</TT
-> elements must not contain text data.</P
-><P
->The three levels of sections are declared as follows:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ELEMENT sect1 (title,(sect2|p|ul)+)&#62;
-
-&#60;!ELEMENT sect2 (title,(sect3|p|ul)+)&#62;
-
-&#60;!ELEMENT sect3 (title,(p|ul)+)&#62;</PRE
->
-
-Every section has a <TT
-CLASS="LITERAL"
->title</TT
-> element as first subelement. After
-the title an arbitrary but non-empty sequence of inner sections, paragraphs and
-item lists follows. Note that the inner sections must belong to the next higher
-section level; <TT
-CLASS="LITERAL"
->sect3</TT
-> elements must not contain inner
-sections because there is no next higher level.</P
-><P
->Obviously, all three declarations allow paragraphs (<TT
-CLASS="LITERAL"
->p</TT
->) and
-item lists (<TT
-CLASS="LITERAL"
->ul</TT
->). The definition can be simplified at this
-point by using a parameter entity:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ENTITY % p.like "p|ul"&#62;
-
-&#60;!ELEMENT sect1 (title,(sect2|%p.like;)+)&#62;
-
-&#60;!ELEMENT sect2 (title,(sect3|%p.like;)+)&#62;
-
-&#60;!ELEMENT sect3 (title,(%p.like;)+)&#62;</PRE
->
-
-Here, the entity <TT
-CLASS="LITERAL"
->p.like</TT
-> is nothing but a macro abbreviating
-the same sequence of declarations; if new elements on the same level as
-<TT
-CLASS="LITERAL"
->p</TT
-> and <TT
-CLASS="LITERAL"
->ul</TT
-> are later added, it is
-sufficient only to change the entity definition. Note that there are some
-restrictions on the usage of entities in this context; most important, entities
-containing a left paranthesis must also contain the corresponding right
-paranthesis. </P
-><P
->Note that the entity <TT
-CLASS="LITERAL"
->p.like</TT
-> is a
-<I
-CLASS="EMPHASIS"
->parameter</I
-> entity, i.e. the ENTITY declaration contains a
-percent sign, and the entity is referred to by
-<TT
-CLASS="LITERAL"
->%p.like;</TT
->. This kind of entity must be used to abbreviate
-parts of the DTD; the <I
-CLASS="EMPHASIS"
->general</I
-> entities declared without
-percent sign and referred to as <TT
-CLASS="LITERAL"
->&amp;name;</TT
-> are not allowed
-in this context.</P
-><P
->The <TT
-CLASS="LITERAL"
->title</TT
-> element specifies the title of the section in
-which it occurs. The title is given as character data, optionally interspersed
-with line breaks (<TT
-CLASS="LITERAL"
->br</TT
->):
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ELEMENT title (#PCDATA|br)*&#62;</PRE
->
-
-Compared with the <TT
-CLASS="LITERAL"
->title</TT
-> <I
-CLASS="EMPHASIS"
->attribute</I
-> of
-the <TT
-CLASS="LITERAL"
->readme</TT
-> element, this element allows inner markup
-(i.e. <TT
-CLASS="LITERAL"
->br</TT
->) while attribute values do not: It is an error if
-an attribute value contains the left angle bracket &lt; literally such that it
-is impossible to include inner elements. </P
-><P
->The paragraph element <TT
-CLASS="LITERAL"
->p</TT
-> has a structure similar to
-<TT
-CLASS="LITERAL"
->title</TT
->, but it allows more inner elements:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ENTITY % text "br|code|em|footnote|a"&#62;
-
-&#60;!ELEMENT p (#PCDATA|%text;)*&#62;</PRE
->
-
-Line breaks do not have inner structure, so they are declared as being empty:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ELEMENT br EMPTY&#62;</PRE
->
-
-This means that really nothing is allowed within <TT
-CLASS="LITERAL"
->br</TT
->; you
-must always write <TT
-CLASS="LITERAL"
->&#60;br&#62;&#60;/br&#62;</TT
-> or abbreviated
-<TT
-CLASS="LITERAL"
->&#60;br/&#62;</TT
->.</P
-><P
->Code samples should be marked up by the <TT
-CLASS="LITERAL"
->code</TT
-> tag; emphasized
-text can be indicated by <TT
-CLASS="LITERAL"
->em</TT
->:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ELEMENT code (#PCDATA)&#62;
-
-&#60;!ELEMENT em (#PCDATA|%text;)*&#62;</PRE
->
-
-That <TT
-CLASS="LITERAL"
->code</TT
-> elements are not allowed to contain further markup
-while <TT
-CLASS="LITERAL"
->em</TT
-> elements do is a design decision by the author of
-the DTD.</P
-><P
->Unordered lists simply consists of one or more list items, and a list item may
-contain paragraph-level material:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ELEMENT ul (li+)&#62;
-
-&#60;!ELEMENT li (%p.like;)*&#62;</PRE
->
-
-Footnotes are described by the text of the note; this text may contain
-text-level markup. There is no mechanism to describe the numbering scheme of
-footnotes, or to specify how footnote references are printed.
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ELEMENT footnote (#PCDATA|%text;)*&#62;</PRE
->
-
-Hyperlinks are written as in HTML. The anchor tag contains the text describing
-where the link points to, and the <TT
-CLASS="LITERAL"
->href</TT
-> attribute is the
-pointer (as URL). There is no way to describe locations of "hash marks". If the
-link refers to another <I
-CLASS="EMPHASIS"
->readme</I
-> document, the attribute
-<TT
-CLASS="LITERAL"
->readmeref</TT
-> should be used instead of <TT
-CLASS="LITERAL"
->href</TT
->.
-The reason is that the converted document has usually a different system
-identifier (file name), and the link to a converted document must be
-converted, too.
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ELEMENT a (#PCDATA)*&#62;
-&#60;!ATTLIST a 
-          href      CDATA #IMPLIED
-          readmeref CDATA #IMPLIED
-&#62;</PRE
->
-
-Note that although it is only sensible to specify one of the two attributes,
-the DTD has no means to express this restriction.</P
-><P
->So far the DTD. Finally, here is a document for it:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;?xml version="1.0" encoding="ISO-8859-1"?&#62;
-&#60;!DOCTYPE readme SYSTEM "readme.dtd"&#62;
-&#60;readme title="How to use the readme converters"&#62;
-&#60;sect1&#62;
-  &#60;title&#62;Usage&#60;/title&#62;
-  &#60;p&#62;
-    The &#60;em&#62;readme&#60;/em&#62; converter is invoked on the command line by:
-  &#60;/p&#62;
-  &#60;p&#62;
-    &#60;code&#62;readme [ -text | -html ] input.xml&#60;/code&#62;
-  &#60;/p&#62;
-  &#60;p&#62;
-    Here a list of options:
-  &#60;/p&#62;
-  &#60;ul&#62;
-    &#60;li&#62;
-      &#60;p&#62;&#60;code&#62;-text&#60;/code&#62;: specifies that ASCII output should be produced&#60;/p&#62;
-    &#60;/li&#62;
-    &#60;li&#62;
-      &#60;p&#62;&#60;code&#62;-html&#60;/code&#62;: specifies that HTML output should be produced&#60;/p&#62;
-    &#60;/li&#62;
-  &#60;/ul&#62;
-  &#60;p&#62;
-    The input file must be given on the command line. The converted output is
-    printed to &#60;em&#62;stdout&#60;/em&#62;.
-  &#60;/p&#62;
-&#60;/sect1&#62;
-&#60;sect1&#62;
-  &#60;title&#62;Author&#60;/title&#62;
-  &#60;p&#62;
-    The program has been written by
-    &#60;a href="mailto:Gerd.Stolpmann@darmstadt.netsurf.de"&#62;Gerd Stolpmann&#60;/a&#62;.
-  &#60;/p&#62;
-&#60;/sect1&#62;
-&#60;/readme&#62;</PRE
->&#13;</P
-></DIV
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="x107.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="c533.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->Highlights of XML</TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="c36.html"
->Up</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->Using <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-></TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/x550.html b/helm/DEVEL/pxp/pxp/doc/manual/html/x550.html
deleted file mode 100644 (file)
index f2dcdd7..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/x550.html
+++ /dev/null
@@ -1,765 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->How to parse a document from an application</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="UP"
-TITLE="Using PXP"
-HREF="c533.html"><LINK
-REL="PREVIOUS"
-TITLE="Using PXP"
-HREF="c533.html"><LINK
-REL="NEXT"
-TITLE="Class-based processing of the node tree"
-HREF="x675.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="SECT1"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="c533.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
->Chapter 2. Using <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-></TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
-><A
-HREF="x675.html"
->Next</A
-></TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="SECT1"
-><H1
-CLASS="SECT1"
-><A
-NAME="AEN550"
->2.2. How to parse a document from an application</A
-></H1
-><P
->Let me first give a rough overview of the object model of the parser. The
-following items are represented by objects:
-
-<P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><I
-CLASS="EMPHASIS"
->Documents:</I
-> The document representation is more or less the
-anchor for the application; all accesses to the parsed entities start here. It
-is described by the class <TT
-CLASS="LITERAL"
->document</TT
-> contained in the module
-<TT
-CLASS="LITERAL"
->Pxp_document</TT
->. You can get some global information, such
-as the XML declaration the document begins with, the DTD of the document,
-global processing instructions, and most important, the document tree. </P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><I
-CLASS="EMPHASIS"
->The contents of documents:</I
-> The contents have the structure
-of a tree: Elements contain other elements and text<A
-NAME="AEN562"
-HREF="#FTN.AEN562"
->[1]</A
->. 
-
-The common type to represent both kinds of content is <TT
-CLASS="LITERAL"
->node</TT
->
-which is a class type that unifies the properties of elements and character
-data. Every node has a list of children (which is empty if the element is empty
-or the node represents text); nodes may have attributes; nodes have always text
-contents. There are two implementations of <TT
-CLASS="LITERAL"
->node</TT
->, the class
-<TT
-CLASS="LITERAL"
->element_impl</TT
-> for elements, and the class
-<TT
-CLASS="LITERAL"
->data_impl</TT
-> for text data. You find these classes and class
-types in the module <TT
-CLASS="LITERAL"
->Pxp_document</TT
->, too.</P
-><P
->Note that attribute lists are represented by non-class values.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><I
-CLASS="EMPHASIS"
->The node extension:</I
-> For advanced usage, every node of the
-document may have an associated <I
-CLASS="EMPHASIS"
->extension</I
-> which is simply
-a second object. This object must have the three methods
-<TT
-CLASS="LITERAL"
->clone</TT
->, <TT
-CLASS="LITERAL"
->node</TT
->, and
-<TT
-CLASS="LITERAL"
->set_node</TT
-> as bare minimum, but you are free to add methods as
-you want. This is the preferred way to add functionality to the document
-tree<A
-NAME="AEN582"
-HREF="#FTN.AEN582"
->[2]</A
->. The class type <TT
-CLASS="LITERAL"
->extension</TT
-> is
-defined in <TT
-CLASS="LITERAL"
->Pxp_document</TT
->, too.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><I
-CLASS="EMPHASIS"
->The DTD:</I
-> Sometimes it is necessary to access the DTD of a
-document; the average application does not need this feature. The class
-<TT
-CLASS="LITERAL"
->dtd</TT
-> describes DTDs, and makes it possible to get
-representations of element, entity, and notation declarations as well as
-processing instructions contained in the DTD. This class, and
-<TT
-CLASS="LITERAL"
->dtd_element</TT
->, <TT
-CLASS="LITERAL"
->dtd_notation</TT
->, and
-<TT
-CLASS="LITERAL"
->proc_instruction</TT
-> can be found in the module
-<TT
-CLASS="LITERAL"
->Pxp_dtd</TT
->. There are a couple of classes representing
-different kinds of entities; these can be found in the module
-<TT
-CLASS="LITERAL"
->Pxp_entity</TT
->. </P
-></LI
-></UL
->
-
-Additionally, the following modules play a role:
-
-<P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><I
-CLASS="EMPHASIS"
->Pxp_yacc:</I
-> Here the main parsing functions such as
-<TT
-CLASS="LITERAL"
->parse_document_entity</TT
-> are located. Some additional types and
-functions allow the parser to be configured in a non-standard way.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><I
-CLASS="EMPHASIS"
->Pxp_types:</I
-> This is a collection of basic types and
-exceptions. </P
-></LI
-></UL
->
-
-There are some further modules that are needed internally but are not part of
-the API.</P
-><P
->Let the document to be parsed be stored in a file called
-<TT
-CLASS="LITERAL"
->doc.xml</TT
->. The parsing process is started by calling the
-function
-
-<PRE
-CLASS="PROGRAMLISTING"
->val parse_document_entity : config -&#62; source -&#62; 'ext spec -&#62; 'ext document</PRE
->
-
-defined in the module <TT
-CLASS="LITERAL"
->Pxp_yacc</TT
->. The first argument
-specifies some global properties of the parser; it is recommended to start with
-the <TT
-CLASS="LITERAL"
->default_config</TT
->. The second argument determines where the
-document to be parsed comes from; this may be a file, a channel, or an entity
-ID. To parse <TT
-CLASS="LITERAL"
->doc.xml</TT
->, it is sufficient to pass
-<TT
-CLASS="LITERAL"
->from_file "doc.xml"</TT
->. </P
-><P
->The third argument passes the object specification to use. Roughly
-speaking, it determines which classes implement the node objects of which
-element types, and which extensions are to be used. The <TT
-CLASS="LITERAL"
->'ext</TT
->
-polymorphic variable is the type of the extension. For the moment, let us
-simply pass <TT
-CLASS="LITERAL"
->default_spec</TT
-> as this argument, and ignore it.</P
-><P
->So the following expression parses <TT
-CLASS="LITERAL"
->doc.xml</TT
->:
-
-<PRE
-CLASS="PROGRAMLISTING"
->open Pxp_yacc
-let d = parse_document_entity default_config (from_file "doc.xml") default_spec</PRE
->
-
-Note that <TT
-CLASS="LITERAL"
->default_config</TT
-> implies that warnings are collected
-but not printed. Errors raise one of the exception defined in
-<TT
-CLASS="LITERAL"
->Pxp_types</TT
->; to get readable errors and warnings catch the
-exceptions as follows:
-
-<PRE
-CLASS="PROGRAMLISTING"
->class warner =
-  object 
-    method warn w =
-      print_endline ("WARNING: " ^ w)
-  end
-;;
-
-try
-  let config = { default_config with warner = new warner } in
-  let d = parse_document_entity config (from_file "doc.xml") default_spec
-  in
-    ...
-with
-   e -&#62;
-     print_endline (Pxp_types.string_of_exn e)</PRE
->
-
-Now <TT
-CLASS="LITERAL"
->d</TT
-> is an object of the <TT
-CLASS="LITERAL"
->document</TT
->
-class. If you want the node tree, you can get the root element by
-
-<PRE
-CLASS="PROGRAMLISTING"
->let root = d # root</PRE
->
-
-and if you would rather like to access the DTD, determine it by
-
-<PRE
-CLASS="PROGRAMLISTING"
->let dtd = d # dtd</PRE
->
-
-As it is more interesting, let us investigate the node tree now. Given the root
-element, it is possible to recursively traverse the whole tree. The children of
-a node <TT
-CLASS="LITERAL"
->n</TT
-> are returned by the method
-<TT
-CLASS="LITERAL"
->sub_nodes</TT
->, and the type of a node is returned by
-<TT
-CLASS="LITERAL"
->node_type</TT
->. This function traverses the tree, and prints the
-type of each node:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let rec print_structure n =
-  let ntype = n # node_type in
-  match ntype with
-    T_element name -&#62;
-      print_endline ("Element of type " ^ name);
-      let children = n # sub_nodes in
-      List.iter print_structure children
-  | T_data -&#62;
-      print_endline "Data"
-  | _ -&#62;
-      (* Other node types are not possible unless the parser is configured
-         differently.
-       *)
-      assert false</PRE
->
-
-You can call this function by
-
-<PRE
-CLASS="PROGRAMLISTING"
->print_structure root</PRE
->
-
-The type returned by <TT
-CLASS="LITERAL"
->node_type</TT
-> is either <TT
-CLASS="LITERAL"
->T_element
-name</TT
-> or <TT
-CLASS="LITERAL"
->T_data</TT
->. The <TT
-CLASS="LITERAL"
->name</TT
-> of the
-element type is the string included in the angle brackets. Note that only
-elements have children; data nodes are always leaves of the tree.</P
-><P
->There are some more methods in order to access a parsed node tree:
-
-<P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->n # parent</TT
->: Returns the parent node, or raises
-<TT
-CLASS="LITERAL"
->Not_found</TT
-> if the node is already the root</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->n # root</TT
->: Returns the root of the node tree. </P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->n # attribute a</TT
->: Returns the value of the attribute with
-name <TT
-CLASS="LITERAL"
->a</TT
->. The method returns a value for every
-<I
-CLASS="EMPHASIS"
->declared</I
-> attribute, independently of whether the attribute
-instance is defined or not. If the attribute is not declared,
-<TT
-CLASS="LITERAL"
->Not_found</TT
-> will be raised. (In well-formedness mode, every
-attribute is considered as being implicitly declared with type
-<TT
-CLASS="LITERAL"
->CDATA</TT
->.) </P
-><P
->The following return values are possible: <TT
-CLASS="LITERAL"
->Value s</TT
->, 
-<TT
-CLASS="LITERAL"
->Valuelist sl</TT
-> , and <TT
-CLASS="LITERAL"
->Implied_value</TT
->. 
-The first two value types indicate that the attribute value is available,
-either because there is a definition
-<TT
-CLASS="LITERAL"
-><TT
-CLASS="REPLACEABLE"
-><I
->a</I
-></TT
->="<TT
-CLASS="REPLACEABLE"
-><I
->value</I
-></TT
->"</TT
->
-in the XML text, or because there is a default value (declared in the
-DTD). Only if both the instance definition and the default declaration are
-missing, the latter value <TT
-CLASS="LITERAL"
->Implied_value</TT
-> will be returned.</P
-><P
->In the DTD, every attribute is typed. There are single-value types (CDATA, ID,
-IDREF, ENTITY, NMTOKEN, enumerations), in which case the method passes
-<TT
-CLASS="LITERAL"
->Value s</TT
-> back, where <TT
-CLASS="LITERAL"
->s</TT
-> is the normalized
-string value of the attribute. The other types (IDREFS, ENTITIES, NMTOKENS)
-represent list values, and the parser splits the XML literal into several
-tokens and returns these tokens as <TT
-CLASS="LITERAL"
->Valuelist sl</TT
->.</P
-><P
->Normalization means that entity references (the
-<TT
-CLASS="LITERAL"
->&amp;<TT
-CLASS="REPLACEABLE"
-><I
->name</I
-></TT
->;</TT
-> tokens) and
-character references
-(<TT
-CLASS="LITERAL"
->&amp;#<TT
-CLASS="REPLACEABLE"
-><I
->number</I
-></TT
->;</TT
->) are replaced
-by the text they represent, and that white space characters are converted into
-plain spaces.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->n # data</TT
->: Returns the character data contained in the
-node. For data nodes, the meaning is obvious as this is the main content of
-data nodes. For element nodes, this method returns the concatenated contents of
-all inner data nodes.</P
-><P
->Note that entity references included in the text are resolved while they are
-being parsed; for example the text "a &#38;lt;&#38;gt; b" will be returned
-as "a &#60;&#62; b" by this method. Spaces of data nodes are always
-preserved. Newlines are preserved, but always converted to \n characters even
-if newlines are encoded as \r\n or \r. Normally you will never see two adjacent
-data nodes because the parser collapses all data material at one location into
-one node. (However, if you create your own tree or transform the parsed tree,
-it is possible to have adjacent data nodes.)</P
-><P
->Note that elements that do <I
-CLASS="EMPHASIS"
->not</I
-> allow #PCDATA as content
-will not have data nodes as children. This means that spaces and newlines, the
-only character material allowed for such elements, are silently dropped.</P
-></LI
-></UL
->
-
-For example, if the task is to print all contents of elements with type
-"valuable" whose attribute "priority" is "1", this function can help:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let rec print_valuable_prio1 n =
-  let ntype = n # node_type in
-  match ntype with
-    T_element "valuable" when n # attribute "priority" = Value "1" -&#62;
-      print_endline "Valuable node with priotity 1 found:";
-      print_endline (n # data)
-  | (T_element _ | T_data) -&#62;
-      let children = n # sub_nodes in
-      List.iter print_valuable_prio1 children
-  | _ -&#62;
-      assert false</PRE
->
-
-You can call this function by:
-
-<PRE
-CLASS="PROGRAMLISTING"
->print_valuable_prio1 root</PRE
->
-
-If you like a DSSSL-like style, you can make the function
-<TT
-CLASS="LITERAL"
->process_children</TT
-> explicit:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let rec print_valuable_prio1 n =
-
-  let process_children n =
-    let children = n # sub_nodes in
-    List.iter print_valuable_prio1 children 
-  in
-
-  let ntype = n # node_type in
-  match ntype with
-    T_element "valuable" when n # attribute "priority" = Value "1" -&#62;
-      print_endline "Valuable node with priority 1 found:";
-      print_endline (n # data)
-  | (T_element _ | T_data) -&#62;
-      process_children n
-  | _ -&#62;
-      assert false</PRE
->
-
-So far, O'Caml is now a simple "style-sheet language": You can form a big
-"match" expression to distinguish between all significant cases, and provide
-different reactions on different conditions. But this technique has
-limitations; the "match" expression tends to get larger and larger, and it is
-difficult to store intermediate values as there is only one big
-recursion. Alternatively, it is also possible to represent the various cases as
-classes, and to use dynamic method lookup to find the appropiate class. The
-next section explains this technique in detail.&#13;</P
-></DIV
-><H3
-CLASS="FOOTNOTES"
->Notes</H3
-><TABLE
-BORDER="0"
-CLASS="FOOTNOTES"
-WIDTH="100%"
-><TR
-><TD
-ALIGN="LEFT"
-VALIGN="TOP"
-WIDTH="5%"
-><A
-NAME="FTN.AEN562"
-HREF="x550.html#AEN562"
->[1]</A
-></TD
-><TD
-ALIGN="LEFT"
-VALIGN="TOP"
-WIDTH="95%"
-><P
->Elements may
-also contain processing instructions. Unlike other document models, <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
->
-separates processing instructions from the rest of the text and provides a
-second interface to access them (method <TT
-CLASS="LITERAL"
->pinstr</TT
->). However,
-there is a parser option (<TT
-CLASS="LITERAL"
->enable_pinstr_nodes</TT
->) which changes
-the behaviour of the parser such that extra nodes for processing instructions
-are included into the tree.</P
-><P
->Furthermore, the tree does normally not contain nodes for XML comments;
-they are ignored by default. Again, there is an option
-(<TT
-CLASS="LITERAL"
->enable_comment_nodes</TT
->) changing this.</P
-></TD
-></TR
-><TR
-><TD
-ALIGN="LEFT"
-VALIGN="TOP"
-WIDTH="5%"
-><A
-NAME="FTN.AEN582"
-HREF="x550.html#AEN582"
->[2]</A
-></TD
-><TD
-ALIGN="LEFT"
-VALIGN="TOP"
-WIDTH="95%"
-><P
->Due to the typing system it is more or less impossible to
-derive recursive classes in O'Caml. To get around this, it is common practice
-to put the modifiable or extensible part of recursive objects into parallel
-objects.</P
-></TD
-></TR
-></TABLE
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="c533.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="x675.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->Using <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="c533.html"
->Up</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->Class-based processing of the node tree</TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/x675.html b/helm/DEVEL/pxp/pxp/doc/manual/html/x675.html
deleted file mode 100644 (file)
index cf3f473..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/x675.html
+++ /dev/null
@@ -1,538 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->Class-based processing of the node tree</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="UP"
-TITLE="Using PXP"
-HREF="c533.html"><LINK
-REL="PREVIOUS"
-TITLE="How to parse a document from an application"
-HREF="x550.html"><LINK
-REL="NEXT"
-TITLE="Example: An HTML backend for the readme
-DTD"
-HREF="x738.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="SECT1"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="x550.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
->Chapter 2. Using <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-></TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
-><A
-HREF="x738.html"
->Next</A
-></TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="SECT1"
-><H1
-CLASS="SECT1"
-><A
-NAME="AEN675"
->2.3. Class-based processing of the node tree</A
-></H1
-><P
->By default, the parsed node tree consists of objects of the same class; this is
-a good design as long as you want only to access selected parts of the
-document. For complex transformations, it may be better to use different
-classes for objects describing different element types.</P
-><P
->For example, if the DTD declares the element types <TT
-CLASS="LITERAL"
->a</TT
->,
-<TT
-CLASS="LITERAL"
->b</TT
->, and <TT
-CLASS="LITERAL"
->c</TT
->, and if the task is to convert
-an arbitrary document into a printable format, the idea is to define for every
-element type a separate class that has a method <TT
-CLASS="LITERAL"
->print</TT
->. The
-classes are <TT
-CLASS="LITERAL"
->eltype_a</TT
->, <TT
-CLASS="LITERAL"
->eltype_b</TT
->, and
-<TT
-CLASS="LITERAL"
->eltype_c</TT
->, and every class implements
-<TT
-CLASS="LITERAL"
->print</TT
-> such that elements of the type corresponding to the
-class are converted to the output format.</P
-><P
->The parser supports such a design directly. As it is impossible to derive
-recursive classes in O'Caml<A
-NAME="AEN688"
-HREF="#FTN.AEN688"
->[1]</A
->, the specialized element classes cannot be formed by
-simply inheriting from the built-in classes of the parser and adding methods
-for customized functionality. To get around this limitation, every node of the
-document tree is represented by <I
-CLASS="EMPHASIS"
->two</I
-> objects, one called
-"the node" and containing the recursive definition of the tree, one called "the
-extension". Every node object has a reference to the extension, and the
-extension has a reference to the node. The advantage of this model is that it
-is now possible to customize the extension without affecting the typing
-constraints of the recursive node definition.</P
-><P
->Every extension must have the three methods <TT
-CLASS="LITERAL"
->clone</TT
->,
-<TT
-CLASS="LITERAL"
->node</TT
->, and <TT
-CLASS="LITERAL"
->set_node</TT
->. The method
-<TT
-CLASS="LITERAL"
->clone</TT
-> creates a deep copy of the extension object and
-returns it; <TT
-CLASS="LITERAL"
->node</TT
-> returns the node object for this extension
-object; and <TT
-CLASS="LITERAL"
->set_node</TT
-> is used to tell the extension object
-which node is associated with it, this method is automatically called when the
-node tree is initialized. The following definition is a good starting point
-for these methods; usually <TT
-CLASS="LITERAL"
->clone</TT
-> must be further refined
-when instance variables are added to the class:
-
-<PRE
-CLASS="PROGRAMLISTING"
->class custom_extension =
-  object (self)
-
-    val mutable node = (None : custom_extension node option)
-
-    method clone = {&#60; &#62;} 
-    method node =
-      match node with
-          None -&#62;
-            assert false
-        | Some n -&#62; n
-    method set_node n =
-      node &#60;- Some n
-
-  end</PRE
->
-
-This part of the extension is usually the same for all classes, so it is a good
-idea to consider <TT
-CLASS="LITERAL"
->custom_extension</TT
-> as the super-class of the
-further class definitions. Continuining the example of above, we can define the
-element type classes as follows:
-
-<PRE
-CLASS="PROGRAMLISTING"
->class virtual custom_extension =
-  object (self)
-    ... clone, node, set_node defined as above ...
-
-    method virtual print : out_channel -&#62; unit
-  end
-
-class eltype_a =
-  object (self)
-    inherit custom_extension
-    method print ch = ...
-  end
-
-class eltype_b =
-  object (self)
-    inherit custom_extension
-    method print ch = ...
-  end
-
-class eltype_c =
-  object (self)
-    inherit custom_extension
-    method print ch = ...
-  end</PRE
->
-
-The method <TT
-CLASS="LITERAL"
->print</TT
-> can now be implemented for every element
-type separately. Note that you get the associated node by invoking
-
-<PRE
-CLASS="PROGRAMLISTING"
->self # node</PRE
->
-
-and you get the extension object of a node <TT
-CLASS="LITERAL"
->n</TT
-> by writing 
-
-<PRE
-CLASS="PROGRAMLISTING"
->n # extension</PRE
->
-
-It is guaranteed that 
-
-<PRE
-CLASS="PROGRAMLISTING"
->self # node # extension == self</PRE
->
-
-always holds.</P
-><P
->Here are sample definitions of the <TT
-CLASS="LITERAL"
->print</TT
->
-methods:
-
-<PRE
-CLASS="PROGRAMLISTING"
->class eltype_a =
-  object (self)
-    inherit custom_extension
-    method print ch = 
-      (* Nodes &#60;a&#62;...&#60;/a&#62; are only containers: *)
-      output_string ch "(";
-      List.iter
-        (fun n -&#62; n # extension # print ch)
-        (self # node # sub_nodes);
-      output_string ch ")";
-  end
-
-class eltype_b =
-  object (self)
-    inherit custom_extension
-    method print ch =
-      (* Print the value of the CDATA attribute "print": *)
-      match self # node # attribute "print" with
-        Value s       -&#62; output_string ch s
-      | Implied_value -&#62; output_string ch "&#60;missing&#62;"
-      | Valuelist l   -&#62; assert false   
-                         (* not possible because the att is CDATA *)
-  end
-
-class eltype_c =
-  object (self)
-    inherit custom_extension
-    method print ch = 
-      (* Print the contents of this element: *)
-      output_string ch (self # node # data)
-  end
-
-class null_extension =
-  object (self)
-    inherit custom_extension
-    method print ch = assert false
-  end</PRE
-></P
-><P
->The remaining task is to configure the parser such that these extension classes
-are actually used. Here another problem arises: It is not possible to
-dynamically select the class of an object to be created. As workaround,
-<SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-> allows the user to specify <I
-CLASS="EMPHASIS"
->exemplar objects</I
-> for
-the various element types; instead of creating the nodes of the tree by
-applying the <TT
-CLASS="LITERAL"
->new</TT
-> operator the nodes are produced by
-duplicating the exemplars. As object duplication preserves the class of the
-object, one can create fresh objects of every class for which previously an
-exemplar has been registered.</P
-><P
->Exemplars are meant as objects without contents, the only interesting thing is
-that exemplars are instances of a certain class. The creation of an exemplar
-for an element node can be done by:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let element_exemplar = new element_impl extension_exemplar</PRE
->
-
-And a data node exemplar is created by:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let data_exemplar = new data_impl extension_exemplar</PRE
->
-
-The classes <TT
-CLASS="LITERAL"
->element_impl</TT
-> and <TT
-CLASS="LITERAL"
->data_impl</TT
->
-are defined in the module <TT
-CLASS="LITERAL"
->Pxp_document</TT
->. The constructors
-initialize the fresh objects as empty objects, i.e. without children, without
-data contents, and so on. The <TT
-CLASS="LITERAL"
->extension_exemplar</TT
-> is the
-initial extension object the exemplars are associated with. </P
-><P
->Once the exemplars are created and stored somewhere (e.g. in a hash table), you
-can take an exemplar and create a concrete instance (with contents) by
-duplicating it. As user of the parser you are normally not concerned with this
-as this is part of the internal logic of the parser, but as background knowledge
-it is worthwhile to mention that the two methods
-<TT
-CLASS="LITERAL"
->create_element</TT
-> and <TT
-CLASS="LITERAL"
->create_data</TT
-> actually
-perform the duplication of the exemplar for which they are invoked,
-additionally apply modifications to the clone, and finally return the new
-object. Moreover, the extension object is copied, too, and the new node object
-is associated with the fresh extension object. Note that this is the reason why
-every extension object must have a <TT
-CLASS="LITERAL"
->clone</TT
-> method.</P
-><P
->The configuration of the set of exemplars is passed to the
-<TT
-CLASS="LITERAL"
->parse_document_entity</TT
-> function as third argument. In our
-example, this argument can be set up as follows:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let spec =
-  make_spec_from_alist
-    ~data_exemplar:            (new data_impl (new null_extension))
-    ~default_element_exemplar: (new element_impl (new null_extension))
-    ~element_alist:
-       [ "a",  new element_impl (new eltype_a);
-         "b",  new element_impl (new eltype_b);
-         "c",  new element_impl (new eltype_c);
-       ]
-    ()</PRE
->
-
-The <TT
-CLASS="LITERAL"
->~element_alist</TT
-> function argument defines the mapping
-from element types to exemplars as associative list. The argument
-<TT
-CLASS="LITERAL"
->~data_exemplar</TT
-> specifies the exemplar for data nodes, and
-the <TT
-CLASS="LITERAL"
->~default_element_exemplar</TT
-> is used whenever the parser
-finds an element type for which the associative list does not define an
-exemplar. </P
-><P
->The configuration is now complete. You can still use the same parsing
-functions, only the initialization is a bit different. For example, call the
-parser by:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let d = parse_document_entity default_config (from_file "doc.xml") spec</PRE
->
-
-Note that the resulting document <TT
-CLASS="LITERAL"
->d</TT
-> has a usable type;
-especially the <TT
-CLASS="LITERAL"
->print</TT
-> method we added is visible. So you can
-print your document by
-
-<PRE
-CLASS="PROGRAMLISTING"
->d # root # extension # print stdout</PRE
-></P
-><P
->This object-oriented approach looks rather complicated; this is mostly caused
-by working around some problems of the strict typing system of O'Caml. Some
-auxiliary concepts such as extensions were needed, but the practical
-consequences are low. In the next section, one of the examples of the
-distribution is explained, a converter from <I
-CLASS="EMPHASIS"
->readme</I
->
-documents to HTML.</P
-></DIV
-><H3
-CLASS="FOOTNOTES"
->Notes</H3
-><TABLE
-BORDER="0"
-CLASS="FOOTNOTES"
-WIDTH="100%"
-><TR
-><TD
-ALIGN="LEFT"
-VALIGN="TOP"
-WIDTH="5%"
-><A
-NAME="FTN.AEN688"
-HREF="x675.html#AEN688"
->[1]</A
-></TD
-><TD
-ALIGN="LEFT"
-VALIGN="TOP"
-WIDTH="95%"
-><P
->The problem is that the subclass is
-usually not a subtype in this case because O'Caml has a contravariant subtyping
-rule. </P
-></TD
-></TR
-></TABLE
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="x550.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="x738.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->How to parse a document from an application</TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="c533.html"
->Up</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->Example: An HTML backend for the <I
-CLASS="EMPHASIS"
->readme</I
->
-DTD</TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/x738.html b/helm/DEVEL/pxp/pxp/doc/manual/html/x738.html
deleted file mode 100644 (file)
index 6741801..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/x738.html
+++ /dev/null
@@ -1,1036 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->Example: An HTML backend for the readme
-DTD</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="UP"
-TITLE="Using PXP"
-HREF="c533.html"><LINK
-REL="PREVIOUS"
-TITLE="Class-based processing of the node tree"
-HREF="x675.html"><LINK
-REL="NEXT"
-TITLE="The objects representing the document"
-HREF="c893.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="SECT1"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="x675.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
->Chapter 2. Using <SPAN
-CLASS="ACRONYM"
->PXP</SPAN
-></TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
-><A
-HREF="c893.html"
->Next</A
-></TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="SECT1"
-><H1
-CLASS="SECT1"
-><A
-NAME="SECT.README.TO-HTML"
->2.4. Example: An HTML backend for the <I
-CLASS="EMPHASIS"
->readme</I
->
-DTD</A
-></H1
-><P
->The converter from <I
-CLASS="EMPHASIS"
->readme</I
-> documents to HTML
-documents follows strictly the approach to define one class per element
-type. The HTML code is similar to the <I
-CLASS="EMPHASIS"
->readme</I
-> source,
-because of this most elements can be converted in the following way: Given the
-input element 
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;e&#62;content&#60;/e&#62;</PRE
->
-
-the conversion text is the concatenation of a computed prefix, the recursively
-converted content, and a computed suffix. </P
-><P
->Only one element type cannot be handled by this scheme:
-<TT
-CLASS="LITERAL"
->footnote</TT
->. Footnotes are collected while they are found in
-the input text, and they are printed after the main text has been converted and
-printed. </P
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN747"
->2.4.1. Header</A
-></H2
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->open Pxp_types
-open Pxp_document</PRE
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN751"
->2.4.2. Type declarations</A
-></H2
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->class type footnote_printer =
-  object
-    method footnote_to_html : store_type -&gt; out_channel -&gt; unit
-  end
-
-and store_type =
-  object
-    method alloc_footnote : footnote_printer -&gt; int
-    method print_footnotes : out_channel -&gt; unit
-  end
-;;</PRE
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN755"
->2.4.3. Class <TT
-CLASS="LITERAL"
->store</TT
-></A
-></H2
-><P
->The <TT
-CLASS="LITERAL"
->store</TT
-> is a container for footnotes. You can add a
-footnote by invoking <TT
-CLASS="LITERAL"
->alloc_footnote</TT
->; the argument is an
-object of the class <TT
-CLASS="LITERAL"
->footnote_printer</TT
->, the method returns the
-number of the footnote. The interesting property of a footnote is that it can
-be converted to HTML, so a <TT
-CLASS="LITERAL"
->footnote_printer</TT
-> is an object
-with a method <TT
-CLASS="LITERAL"
->footnote_to_html</TT
->. The class
-<TT
-CLASS="LITERAL"
->footnote</TT
-> which is defined below has a compatible method
-<TT
-CLASS="LITERAL"
->footnote_to_html</TT
-> such that objects created from it can be
-used as <TT
-CLASS="LITERAL"
->footnote_printer</TT
->s.</P
-><P
->The other method, <TT
-CLASS="LITERAL"
->print_footnotes</TT
-> prints the footnotes as
-definition list, and is typically invoked after the main material of the page
-has already been printed. Every item of the list is printed by
-<TT
-CLASS="LITERAL"
->footnote_to_html</TT
->.</P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->class store =
-  object (self)
-
-    val mutable footnotes = ( [] : (int * footnote_printer) list )
-    val mutable next_footnote_number = 1
-
-    method alloc_footnote n =
-      let number = next_footnote_number in
-      next_footnote_number &lt;- number+1;
-      footnotes &lt;- footnotes @ [ number, n ];
-      number
-
-    method print_footnotes ch =
-      if footnotes &lt;&gt; [] then begin
-       output_string ch "&lt;hr align=left noshade=noshade width=\"30%\"&gt;\n";
-       output_string ch "&lt;dl&gt;\n";
-       List.iter
-         (fun (_,n) -&gt; 
-            n # footnote_to_html (self : #store_type :&gt; store_type) ch)
-         footnotes;
-       output_string ch "&lt;/dl&gt;\n";
-      end
-
-  end
-;;</PRE
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN772"
->2.4.4. Function <TT
-CLASS="LITERAL"
->escape_html</TT
-></A
-></H2
-><P
->This function converts the characters &lt;, &gt;, &amp;, and " to their HTML
-representation. For example, 
-<TT
-CLASS="LITERAL"
->escape_html "&lt;&gt;" = "&amp;lt;&amp;gt;"</TT
->. Other
-characters are left unchanged.
-
-<PRE
-CLASS="PROGRAMLISTING"
->let escape_html s =
-  Str.global_substitute
-    (Str.regexp "&lt;\\|&gt;\\|&amp;\\|\"")
-    (fun s -&gt;
-      match Str.matched_string s with
-        "&lt;" -&gt; "&amp;lt;"
-      | "&gt;" -&gt; "&amp;gt;"
-      | "&amp;" -&gt; "&amp;amp;"
-      | "\"" -&gt; "&amp;quot;"
-      | _ -&gt; assert false)
-    s
-;;</PRE
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN778"
->2.4.5. Virtual class <TT
-CLASS="LITERAL"
->shared</TT
-></A
-></H2
-><P
->This virtual class is the abstract superclass of the extension classes shown
-below. It defines the standard methods <TT
-CLASS="LITERAL"
->clone</TT
->,
-<TT
-CLASS="LITERAL"
->node</TT
->, and <TT
-CLASS="LITERAL"
->set_node</TT
->, and declares the type
-of the virtual method <TT
-CLASS="LITERAL"
->to_html</TT
->. This method recursively
-traverses the whole element tree, and prints the converted HTML code to the
-output channel passed as second argument. The first argument is the reference
-to the global <TT
-CLASS="LITERAL"
->store</TT
-> object which collects the footnotes.
-
-<PRE
-CLASS="PROGRAMLISTING"
->class virtual shared =
-  object (self)
-
-    (* --- default_ext --- *)
-
-    val mutable node = (None : shared node option)
-
-    method clone = {&lt; &gt;} 
-    method node =
-      match node with
-          None -&gt;
-            assert false
-        | Some n -&gt; n
-    method set_node n =
-      node &lt;- Some n
-
-    (* --- virtual --- *)
-
-    method virtual to_html : store -&gt; out_channel -&gt; unit
-
-  end
-;;</PRE
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN788"
->2.4.6. Class <TT
-CLASS="LITERAL"
->only_data</TT
-></A
-></H2
-><P
->This class defines <TT
-CLASS="LITERAL"
->to_html</TT
-> such that the character data of
-the current node is converted to HTML. Note that <TT
-CLASS="LITERAL"
->self</TT
-> is an
-extension object, <TT
-CLASS="LITERAL"
->self # node</TT
-> is the node object, and
-<TT
-CLASS="LITERAL"
->self # node # data</TT
-> returns the character data of the node. 
-
-<PRE
-CLASS="PROGRAMLISTING"
->class only_data =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      output_string ch (escape_html (self # node # data))
-  end
-;;</PRE
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN797"
->2.4.7. Class <TT
-CLASS="LITERAL"
->readme</TT
-></A
-></H2
-><P
->This class converts elements of type <TT
-CLASS="LITERAL"
->readme</TT
-> to HTML. Such an
-element is (by definition) always the root element of the document. First, the
-HTML header is printed; the <TT
-CLASS="LITERAL"
->title</TT
-> attribute of the element
-determines the title of the HTML page. Some aspects of the HTML page can be
-configured by setting certain parameter entities, for example the background
-color, the text color, and link colors. After the header, the
-<TT
-CLASS="LITERAL"
->body</TT
-> tag, and the headline have been printed, the contents
-of the page are converted by invoking <TT
-CLASS="LITERAL"
->to_html</TT
-> on all
-children of the current node (which is the root node). Then, the footnotes are
-appended to this by telling the global <TT
-CLASS="LITERAL"
->store</TT
-> object to print
-the footnotes. Finally, the end tags of the HTML pages are printed.</P
-><P
->This class is an example how to access the value of an attribute: The value is
-determined by invoking <TT
-CLASS="LITERAL"
->self # node # attribute "title"</TT
->. As
-this attribute has been declared as CDATA and as being required, the value has
-always the form <TT
-CLASS="LITERAL"
->Value s</TT
-> where <TT
-CLASS="LITERAL"
->s</TT
-> is the
-string value of the attribute. </P
-><P
->You can also see how entity contents can be accessed. A parameter entity object
-can be looked up by <TT
-CLASS="LITERAL"
->self # node # dtd # par_entity "name"</TT
->,
-and by invoking <TT
-CLASS="LITERAL"
->replacement_text</TT
-> the value of the entity
-is returned after inner parameter and character entities have been
-processed. Note that you must use <TT
-CLASS="LITERAL"
->gen_entity</TT
-> instead of
-<TT
-CLASS="LITERAL"
->par_entity</TT
-> to access general entities.</P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->class readme =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      (* output header *)
-      output_string 
-       ch "&lt;!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\"&gt;";
-      output_string
-       ch "&lt;!-- WARNING! This is a generated file, do not edit! --&gt;\n";
-      let title = 
-       match self # node # attribute "title" with
-           Value s -&gt; s
-         | _ -&gt; assert false
-      in
-      let html_header, _ =
-       try (self # node # dtd # par_entity "readme:html:header") 
-            # replacement_text
-       with WF_error _ -&gt; "", false in
-      let html_trailer, _ =
-       try (self # node # dtd # par_entity "readme:html:trailer")
-            # replacement_text
-       with WF_error _ -&gt; "", false in
-      let html_bgcolor, _ =
-       try (self # node # dtd # par_entity "readme:html:bgcolor")
-            # replacement_text
-       with WF_error _ -&gt; "white", false in
-      let html_textcolor, _ =
-       try (self # node # dtd # par_entity "readme:html:textcolor")
-            # replacement_text
-       with WF_error _ -&gt; "", false in
-      let html_alinkcolor, _ =
-       try (self # node # dtd # par_entity "readme:html:alinkcolor")
-            # replacement_text
-       with WF_error _ -&gt; "", false in
-      let html_vlinkcolor, _ =
-       try (self # node # dtd # par_entity "readme:html:vlinkcolor")
-            # replacement_text
-       with WF_error _ -&gt; "", false in
-      let html_linkcolor, _ =
-       try (self # node # dtd # par_entity "readme:html:linkcolor")
-            # replacement_text
-       with WF_error _ -&gt; "", false in
-      let html_background, _ =
-       try (self # node # dtd # par_entity "readme:html:background")
-            # replacement_text
-       with WF_error _ -&gt; "", false in
-
-      output_string ch "&lt;html&gt;&lt;header&gt;&lt;title&gt;\n";
-      output_string ch (escape_html title);
-      output_string ch "&lt;/title&gt;&lt;/header&gt;\n";
-      output_string ch "&lt;body ";
-      List.iter
-       (fun (name,value) -&gt;
-          if value &lt;&gt; "" then 
-            output_string ch (name ^ "=\"" ^ escape_html value ^ "\" "))
-       [ "bgcolor",    html_bgcolor;
-         "text",       html_textcolor;
-         "link",       html_linkcolor;
-         "alink",      html_alinkcolor;
-         "vlink",      html_vlinkcolor;
-       ];
-      output_string ch "&gt;\n";
-      output_string ch html_header;
-      output_string ch "&lt;h1&gt;";
-      output_string ch (escape_html title);
-      output_string ch "&lt;/h1&gt;\n";
-      (* process main content: *)
-      List.iter
-       (fun n -&gt; n # extension # to_html store ch)
-       (self # node # sub_nodes);
-      (* now process footnotes *)
-      store # print_footnotes ch;
-      (* trailer *)
-      output_string ch html_trailer;
-      output_string ch "&lt;/html&gt;\n";
-
-  end
-;;</PRE
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN817"
->2.4.8. Classes <TT
-CLASS="LITERAL"
->section</TT
->, <TT
-CLASS="LITERAL"
->sect1</TT
->,
-<TT
-CLASS="LITERAL"
->sect2</TT
->, and <TT
-CLASS="LITERAL"
->sect3</TT
-></A
-></H2
-><P
->As the conversion process is very similar, the conversion classes of the three
-section levels are derived from the more general <TT
-CLASS="LITERAL"
->section</TT
->
-class. The HTML code of the section levels only differs in the type of the
-headline, and because of this the classes describing the section levels can be
-computed by replacing the class argument <TT
-CLASS="LITERAL"
->the_tag</TT
-> of
-<TT
-CLASS="LITERAL"
->section</TT
-> by the HTML name of the headline tag.</P
-><P
->Section elements are converted to HTML by printing a headline and then
-converting the contents of the element recursively. More precisely, the first
-sub-element is always a <TT
-CLASS="LITERAL"
->title</TT
-> element, and the other
-elements are the contents of the section. This structure is declared in the
-DTD, and it is guaranteed that the document matches the DTD. Because of this
-the title node can be separated from the rest without any checks.</P
-><P
->Both the title node, and the body nodes are then converted to HTML by calling
-<TT
-CLASS="LITERAL"
->to_html</TT
-> on them.</P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->class section the_tag =
-  object (self)
-    inherit shared
-
-    val tag = the_tag
-
-    method to_html store ch =
-      let sub_nodes = self # node # sub_nodes in
-      match sub_nodes with
-         title_node :: rest -&gt;
-           output_string ch ("&lt;" ^ tag ^ "&gt;\n");
-           title_node # extension # to_html store ch;
-           output_string ch ("\n&lt;/" ^ tag ^ "&gt;");
-           List.iter
-             (fun n -&gt; n # extension # to_html store ch)
-             rest
-       | _ -&gt;
-           assert false
-  end
-;;
-
-class sect1 = section "h1";;
-class sect2 = section "h3";;
-class sect3 = section "h4";;</PRE
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN833"
->2.4.9. Classes <TT
-CLASS="LITERAL"
->map_tag</TT
->, <TT
-CLASS="LITERAL"
->p</TT
->,
-<TT
-CLASS="LITERAL"
->em</TT
->, <TT
-CLASS="LITERAL"
->ul</TT
->, <TT
-CLASS="LITERAL"
->li</TT
-></A
-></H2
-><P
->Several element types are converted to HTML by simply mapping them to
-corresponding HTML element types. The class <TT
-CLASS="LITERAL"
->map_tag</TT
->
-implements this, and the class argument <TT
-CLASS="LITERAL"
->the_target_tag</TT
->
-determines the tag name to map to. The output consists of the start tag, the
-recursively converted inner elements, and the end tag.
-
-<PRE
-CLASS="PROGRAMLISTING"
->class map_tag the_target_tag =
-  object (self)
-    inherit shared
-
-    val target_tag = the_target_tag
-
-    method to_html store ch =
-      output_string ch ("&lt;" ^ target_tag ^ "&gt;\n");
-      List.iter
-       (fun n -&gt; n # extension # to_html store ch)
-       (self # node # sub_nodes);
-      output_string ch ("\n&lt;/" ^ target_tag ^ "&gt;");
-  end
-;;
-
-class p = map_tag "p";;
-class em = map_tag "b";;
-class ul = map_tag "ul";;
-class li = map_tag "li";;</PRE
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN844"
->2.4.10. Class <TT
-CLASS="LITERAL"
->br</TT
-></A
-></H2
-><P
->Element of type <TT
-CLASS="LITERAL"
->br</TT
-> are mapped to the same HTML type. Note
-that HTML forbids the end tag of <TT
-CLASS="LITERAL"
->br</TT
->.
-
-<PRE
-CLASS="PROGRAMLISTING"
->class br =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      output_string ch "&lt;br&gt;\n";
-      List.iter
-       (fun n -&gt; n # extension # to_html store ch)
-       (self # node # sub_nodes);
-  end
-;;</PRE
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN851"
->2.4.11. Class <TT
-CLASS="LITERAL"
->code</TT
-></A
-></H2
-><P
->The <TT
-CLASS="LITERAL"
->code</TT
-> type is converted to a <TT
-CLASS="LITERAL"
->pre</TT
->
-section (preformatted text). As the meaning of tabs is unspecified in HTML,
-tabs are expanded to spaces.
-
-<PRE
-CLASS="PROGRAMLISTING"
->class code =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      let data = self # node # data in
-      (* convert tabs *)
-      let l = String.length data in
-      let rec preprocess i column =
-       (* this is very ineffective but comprehensive: *)
-       if i &lt; l then
-         match data.[i] with
-             '\t' -&gt;
-               let n = 8 - (column mod 8) in
-               String.make n ' ' ^ preprocess (i+1) (column + n)
-           | '\n' -&gt;
-               "\n" ^ preprocess (i+1) 0
-           | c -&gt;
-               String.make 1 c ^ preprocess (i+1) (column + 1)
-       else
-         ""
-      in
-      output_string ch "&lt;p&gt;&lt;pre&gt;";
-      output_string ch (escape_html (preprocess 0 0));
-      output_string ch "&lt;/pre&gt;&lt;/p&gt;";
-
-  end
-;;</PRE
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN858"
->2.4.12. Class <TT
-CLASS="LITERAL"
->a</TT
-></A
-></H2
-><P
->Hyperlinks, expressed by the <TT
-CLASS="LITERAL"
->a</TT
-> element type, are converted
-to the HTML <TT
-CLASS="LITERAL"
->a</TT
-> type. If the target of the hyperlink is given
-by <TT
-CLASS="LITERAL"
->href</TT
->, the URL of this attribute can be used
-directly. Alternatively, the target can be given by
-<TT
-CLASS="LITERAL"
->readmeref</TT
-> in which case the ".html" suffix must be added to
-the file name. </P
-><P
->Note that within <TT
-CLASS="LITERAL"
->a</TT
-> only #PCDATA is allowed, so the contents
-can be converted directly by applying <TT
-CLASS="LITERAL"
->escape_html</TT
-> to the
-character data contents.
-
-<PRE
-CLASS="PROGRAMLISTING"
->class a =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      output_string ch "&lt;a ";
-      let href =
-       match self # node # attribute "href" with
-           Value v -&gt; escape_html v
-         | Valuelist _ -&gt; assert false
-         | Implied_value -&gt;
-             begin match self # node # attribute "readmeref" with
-                 Value v -&gt; escape_html v ^ ".html"
-               | Valuelist _ -&gt; assert false
-               | Implied_value -&gt;
-                   ""
-             end
-      in
-      if href &lt;&gt; "" then
-       output_string ch ("href=\""  ^ href ^ "\"");
-      output_string ch "&gt;";
-      output_string ch (escape_html (self # node # data));
-      output_string ch "&lt;/a&gt;";
-       
-  end
-;;</PRE
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN870"
->2.4.13. Class <TT
-CLASS="LITERAL"
->footnote</TT
-></A
-></H2
-><P
->The <TT
-CLASS="LITERAL"
->footnote</TT
-> class has two methods:
-<TT
-CLASS="LITERAL"
->to_html</TT
-> to convert the footnote reference to HTML, and
-<TT
-CLASS="LITERAL"
->footnote_to_html</TT
-> to convert the footnote text itself.</P
-><P
->The footnote reference is converted to a local hyperlink; more precisely, to
-two anchor tags which are connected with each other. The text anchor points to
-the footnote anchor, and the footnote anchor points to the text anchor.</P
-><P
->The footnote must be allocated in the <TT
-CLASS="LITERAL"
->store</TT
-> object. By
-allocating the footnote, you get the number of the footnote, and the text of
-the footnote is stored until the end of the HTML page is reached when the
-footnotes can be printed. The <TT
-CLASS="LITERAL"
->to_html</TT
-> method stores simply
-the object itself, such that the <TT
-CLASS="LITERAL"
->footnote_to_html</TT
-> method is
-invoked on the same object that encountered the footnote.</P
-><P
->The <TT
-CLASS="LITERAL"
->to_html</TT
-> only allocates the footnote, and prints the
-reference anchor, but it does not print nor convert the contents of the
-note. This is deferred until the footnotes actually get printed, i.e. the
-recursive call of <TT
-CLASS="LITERAL"
->to_html</TT
-> on the sub nodes is done by
-<TT
-CLASS="LITERAL"
->footnote_to_html</TT
->. </P
-><P
->Note that this technique does not work if you make another footnote within a
-footnote; the second footnote gets allocated but not printed.</P
-><P
-><PRE
-CLASS="PROGRAMLISTING"
->class footnote =
-  object (self)
-    inherit shared
-
-    val mutable footnote_number = 0
-
-    method to_html store ch =
-      let number = 
-       store # alloc_footnote (self : #shared :&gt; footnote_printer) in
-      let foot_anchor = 
-       "footnote" ^ string_of_int number in
-      let text_anchor =
-       "textnote" ^ string_of_int number in
-      footnote_number &lt;- number;
-      output_string ch ( "&lt;a name=\"" ^ text_anchor ^ "\" href=\"#" ^ 
-                        foot_anchor ^ "\"&gt;[" ^ string_of_int number ^ 
-                        "]&lt;/a&gt;" )
-
-    method footnote_to_html store ch =
-      (* prerequisite: we are in a definition list &lt;dl&gt;...&lt;/dl&gt; *)
-      let foot_anchor = 
-       "footnote" ^ string_of_int footnote_number in
-      let text_anchor =
-       "textnote" ^ string_of_int footnote_number in
-      output_string ch ("&lt;dt&gt;&lt;a name=\"" ^ foot_anchor ^ "\" href=\"#" ^ 
-                       text_anchor ^ "\"&gt;[" ^ string_of_int footnote_number ^ 
-                       "]&lt;/a&gt;&lt;/dt&gt;\n&lt;dd&gt;");
-      List.iter
-       (fun n -&gt; n # extension # to_html store ch)
-       (self # node # sub_nodes);
-      output_string ch ("\n&lt;/dd&gt;")
- 
-  end
-;;</PRE
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN889"
->2.4.14. The specification of the document model</A
-></H2
-><P
->This code sets up the hash table that connects element types with the exemplars
-of the extension classes that convert the elements to HTML.
-
-<PRE
-CLASS="PROGRAMLISTING"
->open Pxp_yacc
-
-let tag_map =
-  make_spec_from_alist
-    ~data_exemplar:(new data_impl (new only_data))
-    ~default_element_exemplar:(new element_impl (new no_markup))
-    ~element_alist:
-      [ "readme", (new element_impl (new readme));
-       "sect1",  (new element_impl (new sect1));
-       "sect2",  (new element_impl (new sect2));
-       "sect3",  (new element_impl (new sect3));
-       "title",  (new element_impl (new no_markup));
-       "p",      (new element_impl (new p));
-       "br",     (new element_impl (new br));
-       "code",   (new element_impl (new code));
-       "em",     (new element_impl (new em));
-       "ul",     (new element_impl (new ul));
-       "li",     (new element_impl (new li));
-       "footnote", (new element_impl (new footnote : #shared :&gt; shared));
-       "a",      (new element_impl (new a));
-      ]
-    ()
-;;</PRE
-></P
-></DIV
-></DIV
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="x675.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="c893.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->Class-based processing of the node tree</TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="c533.html"
->Up</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->The objects representing the document</TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/html/x939.html b/helm/DEVEL/pxp/pxp/doc/manual/html/x939.html
deleted file mode 100644 (file)
index cf177f8..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/html/x939.html
+++ /dev/null
@@ -1,2337 +0,0 @@
-<HTML
-><HEAD
-><TITLE
->The class type node</TITLE
-><META
-NAME="GENERATOR"
-CONTENT="Modular DocBook HTML Stylesheet Version 1.46"><LINK
-REL="HOME"
-TITLE="The PXP user's guide"
-HREF="index.html"><LINK
-REL="UP"
-TITLE="The objects representing the document"
-HREF="c893.html"><LINK
-REL="PREVIOUS"
-TITLE="The objects representing the document"
-HREF="c893.html"><LINK
-REL="NEXT"
-TITLE="The class type extension"
-HREF="x1439.html"><LINK
-REL="STYLESHEET"
-TYPE="text/css"
-HREF="markup.css"></HEAD
-><BODY
-CLASS="SECT1"
-BGCOLOR="#FFFFFF"
-TEXT="#000000"
-LINK="#0000FF"
-VLINK="#840084"
-ALINK="#0000FF"
-><DIV
-CLASS="NAVHEADER"
-><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TH
-COLSPAN="3"
-ALIGN="center"
->The PXP user's guide</TH
-></TR
-><TR
-><TD
-WIDTH="10%"
-ALIGN="left"
-VALIGN="bottom"
-><A
-HREF="c893.html"
->Prev</A
-></TD
-><TD
-WIDTH="80%"
-ALIGN="center"
-VALIGN="bottom"
->Chapter 3. The objects representing the document</TD
-><TD
-WIDTH="10%"
-ALIGN="right"
-VALIGN="bottom"
-><A
-HREF="x1439.html"
->Next</A
-></TD
-></TR
-></TABLE
-><HR
-ALIGN="LEFT"
-WIDTH="100%"></DIV
-><DIV
-CLASS="SECT1"
-><H1
-CLASS="SECT1"
-><A
-NAME="AEN939"
->3.2. The class type <TT
-CLASS="LITERAL"
->node</TT
-></A
-></H1
-><P
->&#13;From <TT
-CLASS="LITERAL"
->Pxp_document</TT
->:
-
-<PRE
-CLASS="PROGRAMLISTING"
->type node_type =
-  T_data
-| T_element of string
-| T_super_root
-| T_pinstr of string
-| T_comment
-<TT
-CLASS="REPLACEABLE"
-><I
->and some other, reserved types</I
-></TT
->
-;;
-
-class type [ 'ext ] node =
-  object ('self)
-    constraint 'ext = 'ext node #extension
-
-    <A
-NAME="TYPE-NODE-GENERAL.SIG"
-></A
->(* <A
-HREF="x939.html#TYPE-NODE-GENERAL"
-><I
-><I
->General observers</I
-></I
-></A
-> *)
-
-    method extension : 'ext
-    method dtd : dtd
-    method parent : 'ext node
-    method root : 'ext node
-    method sub_nodes : 'ext node list
-    method iter_nodes : ('ext node -&gt; unit) -&gt; unit
-    method iter_nodes_sibl : 
-           ('ext node option -&gt; 'ext node -&gt; 'ext node option -&gt; unit) -&gt; unit
-    method node_type : node_type
-    method encoding : Pxp_types.rep_encoding
-    method data : string
-    method position : (string * int * int)
-    method comment : string option
-    method pinstr : string -&gt; proc_instruction list
-    method pinstr_names : string list
-    method write : Pxp_types.output_stream -&#62; Pxp_types.encoding -&#62; unit
-
-    <A
-NAME="TYPE-NODE-ATTS.SIG"
-></A
->(* <A
-HREF="x939.html#TYPE-NODE-ATTS"
-><I
-><I
->Attribute observers</I
-></I
-></A
-> *)
-
-    method attribute : string -&gt; Pxp_types.att_value
-    method required_string_attribute : string -&gt; string
-    method optional_string_attribute : string -&gt; string option
-    method required_list_attribute : string -&gt; string list
-    method optional_list_attribute : string -&gt; string list
-    method attribute_names : string list
-    method attribute_type : string -&gt; Pxp_types.att_type
-    method attributes : (string * Pxp_types.att_value) list
-    method id_attribute_name : string
-    method id_attribute_value : string
-    method idref_attribute_names : string
-
-    <A
-NAME="TYPE-NODE-MODS.SIG"
-></A
->(* <A
-HREF="x939.html#TYPE-NODE-MODS"
-><I
-><I
->Modifying methods</I
-></I
-></A
-> *)
-
-    method add_node : ?force:bool -&gt; 'ext node -&gt; unit
-    method add_pinstr : proc_instruction -&gt; unit
-    method delete : unit
-    method set_nodes : 'ext node list -&gt; unit
-    method quick_set_attributes : (string * Pxp_types.att_value) list -&gt; unit
-    method set_comment : string option -&gt; unit
-
-    <A
-NAME="TYPE-NODE-CLONING.SIG"
-></A
->(* <A
-HREF="x939.html#TYPE-NODE-CLONING"
-><I
-><I
->Cloning methods</I
-></I
-></A
-> *)
-
-    method orphaned_clone : 'self
-    method orphaned_flat_clone : 'self
-    method create_element : 
-              ?position:(string * int * int) -&gt;
-              dtd -&gt; node_type -&gt; (string * string) list -&gt;
-                  'ext node
-    method create_data : dtd -&gt; string -&gt; 'ext node
-    method keep_always_whitespace_mode : unit
-
-    <A
-NAME="TYPE-NODE-WEIRD.SIG"
-></A
->(* <A
-HREF="x939.html#TYPE-NODE-WEIRD"
-><I
-><I
->Validating methods</I
-></I
-></A
-> *)
-
-    method local_validate : ?use_dfa:bool -&#62; unit -&#62; unit
-
-    (* ... Internal methods are undocumented. *)
-
-  end
-;;</PRE
->
-
-In the module <TT
-CLASS="LITERAL"
->Pxp_types</TT
-> you can find another type
-definition that is important in this context:
-
-<PRE
-CLASS="PROGRAMLISTING"
->type Pxp_types.att_value =
-    Value     of string
-  | Valuelist of string list
-  | Implied_value
-;;</PRE
-></P
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN958"
->3.2.1. The structure of document trees</A
-></H2
-><P
->A node represents either an element or a character data section. There are two
-classes implementing the two aspects of nodes: <TT
-CLASS="LITERAL"
->element_impl</TT
->
-and <TT
-CLASS="LITERAL"
->data_impl</TT
->. The latter class does not implement all
-methods because some methods do not make sense for data nodes.</P
-><P
->(Note: PXP also supports a mode which forces that processing instructions and
-comments are represented as nodes of the document tree. However, these nodes
-are instances of <TT
-CLASS="LITERAL"
->element_impl</TT
-> with node types
-<TT
-CLASS="LITERAL"
->T_pinstr</TT
-> and <TT
-CLASS="LITERAL"
->T_comment</TT
->,
-respectively. This mode must be explicitly configured; the basic representation
-knows only element and data nodes.)</P
-><P
->The following figure 
-(<A
-HREF="x939.html#NODE-TERM"
-><I
-><I
->A tree with element nodes, data nodes, and attributes</I
-><I
-></I
-></I
-></A
->) shows an example how
-a tree is constructed from element and data nodes. The circular areas 
-represent element nodes whereas the ovals denote data nodes. Only elements
-may have subnodes; data nodes are always leaves of the tree. The subnodes
-of an element can be either element or data nodes; in both cases the O'Caml
-objects storing the nodes have the class type <TT
-CLASS="LITERAL"
->node</TT
->.</P
-><P
->Attributes (the clouds in the picture) are not directly
-integrated into the tree; there is always an extra link to the attribute
-list. This is also true for processing instructions (not shown in the
-picture). This means that there are separated access methods for attributes and
-processing instructions.</P
-><DIV
-CLASS="FIGURE"
-><A
-NAME="NODE-TERM"
-></A
-><P
-><B
->Figure 3-1. A tree with element nodes, data nodes, and attributes</B
-></P
-><P
-><IMG
-SRC="pic/node_term.gif"></P
-></DIV
-><P
->Only elements, data sections, attributes and processing
-instructions (and comments, if configured) can, directly or indirectly, occur
-in the document tree. It is impossible to add entity references to the tree; if
-the parser finds such a reference, not the reference as such but the referenced
-text (i.e. the tree representing the structured text) is included in the
-tree.</P
-><P
->Note that the parser collapses as much data material into one
-data node as possible such that there are normally never two adjacent data
-nodes. This invariant is enforced even if data material is included by entity
-references or CDATA sections, or if a data sequence is interrupted by
-comments. So <TT
-CLASS="LITERAL"
->a &amp;amp; b &lt;-- comment --&gt; c &lt;![CDATA[
-&lt;&gt; d]]&gt;</TT
-> is represented by only one data node, for
-instance. However, you can create document trees manually which break this
-invariant; it is only the way the parser forms the tree.</P
-><DIV
-CLASS="FIGURE"
-><A
-NAME="NODE-GENERAL"
-></A
-><P
-><B
->Figure 3-2. Nodes are doubly linked trees</B
-></P
-><P
-><IMG
-SRC="pic/node_general.gif"></P
-></DIV
-><P
->The node tree has links in both directions: Every node has a link to its parent
-(if any), and it has links to the subnodes (see 
-figure <A
-HREF="x939.html#NODE-GENERAL"
-><I
-><I
->Nodes are doubly linked trees</I
-><I
-></I
-></I
-></A
->). Obviously,
-this doubly-linked structure simplifies the navigation in the tree; but has
-also some consequences for the possible operations on trees.</P
-><P
->Because every node must have at most <I
-CLASS="EMPHASIS"
->one</I
-> parent node,
-operations are illegal if they violate this condition. The following figure
-(<A
-HREF="x939.html#NODE-ADD"
-><I
-><I
->A node can only be added if it is a root</I
-><I
-></I
-></I
-></A
->) shows on the left side
-that node <TT
-CLASS="LITERAL"
->y</TT
-> is added to <TT
-CLASS="LITERAL"
->x</TT
-> as new subnode
-which is allowed because <TT
-CLASS="LITERAL"
->y</TT
-> does not have a parent yet. The
-right side of the picture illustrates what would happen if <TT
-CLASS="LITERAL"
->y</TT
->
-had a parent node; this is illegal because <TT
-CLASS="LITERAL"
->y</TT
-> would have two
-parents after the operation.</P
-><DIV
-CLASS="FIGURE"
-><A
-NAME="NODE-ADD"
-></A
-><P
-><B
->Figure 3-3. A node can only be added if it is a root</B
-></P
-><P
-><IMG
-SRC="pic/node_add.gif"></P
-></DIV
-><P
->The "delete" operation simply removes the links between two nodes. In the
-picture (<A
-HREF="x939.html#NODE-DELETE"
-><I
-><I
->A deleted node becomes the root of the subtree</I
-><I
-></I
-></I
-></A
->) the node
-<TT
-CLASS="LITERAL"
->x</TT
-> is deleted from the list of subnodes of
-<TT
-CLASS="LITERAL"
->y</TT
->. After that, <TT
-CLASS="LITERAL"
->x</TT
-> becomes the root of the
-subtree starting at this node.</P
-><DIV
-CLASS="FIGURE"
-><A
-NAME="NODE-DELETE"
-></A
-><P
-><B
->Figure 3-4. A deleted node becomes the root of the subtree</B
-></P
-><P
-><IMG
-SRC="pic/node_delete.gif"></P
-></DIV
-><P
->It is also possible to make a clone of a subtree; illustrated in 
-<A
-HREF="x939.html#NODE-CLONE"
-><I
-><I
->The clone of a subtree</I
-><I
-></I
-></I
-></A
->. In this case, the
-clone is a copy of the original subtree except that it is no longer a
-subnode. Because cloning never keeps the connection to the parent, the clones
-are called <I
-CLASS="EMPHASIS"
->orphaned</I
->.</P
-><DIV
-CLASS="FIGURE"
-><A
-NAME="NODE-CLONE"
-></A
-><P
-><B
->Figure 3-5. The clone of a subtree</B
-></P
-><P
-><IMG
-SRC="pic/node_clone.gif"></P
-></DIV
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1007"
->3.2.2. The methods of the class type <TT
-CLASS="LITERAL"
->node</TT
-></A
-></H2
-><A
-NAME="TYPE-NODE-GENERAL"
-></A
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->              <A
-HREF="x939.html#TYPE-NODE-GENERAL.SIG"
->General observers</A
->
-            . </B
->            <P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->extension</TT
->: The reference to the extension object which
-belongs to this node (see ...).</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->dtd</TT
->: Returns a reference to the global DTD. All nodes
-of a tree must share the same DTD.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->parent</TT
->: Get the father node. Raises
-<TT
-CLASS="LITERAL"
->Not_found</TT
-> in the case the node does not have a
-parent, i.e. the node is the root.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->root</TT
->: Gets the reference to the root node of the tree.
-Every node is contained in a tree with a root, so this method always 
-succeeds. Note that this method <I
-CLASS="EMPHASIS"
->searches</I
-> the root,
-which costs time proportional to the length of the path to the root.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->sub_nodes</TT
->: Returns references to the children. The returned
-list reflects the order of the children. For data nodes, this method returns
-the empty list.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->iter_nodes f</TT
->: Iterates over the children, and calls
-<TT
-CLASS="LITERAL"
->f</TT
-> for every child in turn. </P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->iter_nodes_sibl f</TT
->: Iterates over the children, and calls
-<TT
-CLASS="LITERAL"
->f</TT
-> for every child in turn. <TT
-CLASS="LITERAL"
->f</TT
-> gets as
-arguments the previous node, the current node, and the next node.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->node_type</TT
->: Returns either <TT
-CLASS="LITERAL"
->T_data</TT
-> which
-means that the node is a data node, or <TT
-CLASS="LITERAL"
->T_element n</TT
->
-which means that the node is an element of type <TT
-CLASS="LITERAL"
->n</TT
->. 
-If configured, possible node types are also <TT
-CLASS="LITERAL"
->T_pinstr t</TT
->
-indicating that the node represents a processing instruction with target
-<TT
-CLASS="LITERAL"
->t</TT
->, and <TT
-CLASS="LITERAL"
->T_comment</TT
-> in which case the node
-is a comment.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->encoding</TT
->: Returns the encoding of the strings.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->data</TT
->: Returns the character data of this node and all
-children, concatenated as one string. The encoding of the string is what
-the method <TT
-CLASS="LITERAL"
->encoding</TT
-> returns.
-- For data nodes, this method simply returns the represented characters.
-For elements, the meaning of the method has been extended such that it
-returns something useful, i.e. the effectively contained characters, without
-markup. (For <TT
-CLASS="LITERAL"
->T_pinstr</TT
-> and <TT
-CLASS="LITERAL"
->T_comment</TT
->
-nodes, the method returns the empty string.)</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->position</TT
->: If configured, this method returns the position of
-the element as triple (entity, line, byteposition). For data nodes, the
-position is not stored. If the position is not available the triple
-<TT
-CLASS="LITERAL"
->"?", 0, 0</TT
-> is returned.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->comment</TT
->: Returns <TT
-CLASS="LITERAL"
->Some text</TT
-> for comment
-nodes, and <TT
-CLASS="LITERAL"
->None</TT
-> for other nodes. The <TT
-CLASS="LITERAL"
->text</TT
->
-is everything between the comment delimiters <TT
-CLASS="LITERAL"
->&lt;--</TT
-> and
-<TT
-CLASS="LITERAL"
->--&gt;</TT
->.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->pinstr n</TT
->: Returns all processing instructions that are
-directly contained in this element and that have a <I
-CLASS="EMPHASIS"
->target</I
->
-specification of <TT
-CLASS="LITERAL"
->n</TT
->. The target is the first word after
-the <TT
-CLASS="LITERAL"
->&lt;?</TT
->.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->pinstr_names</TT
->: Returns the list of all targets of processing
-instructions directly contained in this element.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->write s enc</TT
->: Prints the node and all subnodes to the passed
-output stream as valid XML text, using the passed external encoding.</P
-></LI
-></UL
->
-            </P
-></DIV
-><A
-NAME="TYPE-NODE-ATTS"
-></A
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->              <A
-HREF="x939.html#TYPE-NODE-ATTS.SIG"
->Attribute observers</A
->
-            . </B
->            <P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->attribute n</TT
->: Returns the value of the attribute with name
-<TT
-CLASS="LITERAL"
->n</TT
->. This method returns a value for every declared 
-attribute, and it raises <TT
-CLASS="LITERAL"
->Not_found</TT
-> for any undeclared
-attribute. Note that it even returns a value if the attribute is actually
-missing but is declared as <TT
-CLASS="LITERAL"
->#IMPLIED</TT
-> or has a default
-value. - Possible values are:
-                  <P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->Implied_value</TT
->: The attribute has been declared with the
-keyword <TT
-CLASS="LITERAL"
->#IMPLIED</TT
->, and the attribute is missing in the
-attribute list of this element.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->Value s</TT
->: The attribute has been declared as type
-<TT
-CLASS="LITERAL"
->CDATA</TT
->, as <TT
-CLASS="LITERAL"
->ID</TT
->, as
-<TT
-CLASS="LITERAL"
->IDREF</TT
->, as <TT
-CLASS="LITERAL"
->ENTITY</TT
->, or as
-<TT
-CLASS="LITERAL"
->NMTOKEN</TT
->, or as enumeration or notation, and one of the two
-conditions holds: (1) The attribute value is present in the attribute list in
-which case the value is returned in the string <TT
-CLASS="LITERAL"
->s</TT
->. (2) The
-attribute has been omitted, and the DTD declared the attribute with a default
-value. The default value is returned in <TT
-CLASS="LITERAL"
->s</TT
->. 
-- Summarized, <TT
-CLASS="LITERAL"
->Value s</TT
-> is returned for non-implied, non-list 
-attribute values.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->Valuelist l</TT
->: The attribute has been declared as type
-<TT
-CLASS="LITERAL"
->IDREFS</TT
->, as <TT
-CLASS="LITERAL"
->ENTITIES</TT
->, or
-as <TT
-CLASS="LITERAL"
->NMTOKENS</TT
->, and one of the two conditions holds: (1) The
-attribute value is present in the attribute list in which case the
-space-separated tokens of the value are returned in the string list
-<TT
-CLASS="LITERAL"
->l</TT
->. (2) The attribute has been omitted, and the DTD declared
-the attribute with a default value. The default value is returned in
-<TT
-CLASS="LITERAL"
->l</TT
->. 
-- Summarized, <TT
-CLASS="LITERAL"
->Valuelist l</TT
-> is returned for all list-type
-attribute values.</P
-></LI
-></UL
->
-
-Note that before the attribute value is returned, the value is normalized. This
-means that newlines are converted to spaces, and that references to character
-entities (i.e. <TT
-CLASS="LITERAL"
->&amp;#<TT
-CLASS="REPLACEABLE"
-><I
->n</I
-></TT
->;</TT
->) and
-general entities
-(i.e. <TT
-CLASS="LITERAL"
->&amp;<TT
-CLASS="REPLACEABLE"
-><I
->name</I
-></TT
->;</TT
->) are expanded;
-if necessary, expansion is performed recursively.</P
-><P
->In well-formedness mode, there is no DTD which could declare an
-attribute. Because of this, every occuring attribute is considered as a CDATA
-attribute.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->required_string_attribute n</TT
->: returns the Value attribute
-called n, or the Valuelist attribute as a string where the list elements
-are separated by spaces. If the attribute value is implied, or if the
-attribute does not exists, the method will fail. - This method is convenient
-if you expect a non-implied and non-list attribute value.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->optional_string_attribute n</TT
->: returns the Value attribute
-called n, or the Valuelist attribute as a string where the list elements
-are separated by spaces. If the attribute value is implied, or if the
-attribute does not exists, the method returns None. - This method is 
-convenient if you expect a non-list attribute value including the implied
-value.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->required_list_attribute n</TT
->: returns the Valuelist attribute
-called n, or the Value attribute as a list with a single element.
-If the attribute value is implied, or if the
-attribute does not exists, the method will fail. - This method is 
-convenient if you expect a list attribute value.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->optional_list_attribute n</TT
->: returns the Valuelist attribute
-called n, or the Value attribute as a list with a single element.
-If the attribute value is implied, or if the
-attribute does not exists, an empty list will be returned. - This method
-is convenient if you expect a list attribute value or the implied value.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->attribute_names</TT
->: returns the list of all attribute names of
-this element. As this is a validating parser, this list is equal to the
-list of declared attributes.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->attribute_type n</TT
->: returns the type of the attribute called
-<TT
-CLASS="LITERAL"
->n</TT
->. See the module <TT
-CLASS="LITERAL"
->Pxp_types</TT
-> for a
-description of the encoding of the types.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->attributes</TT
->: returns the list of pairs of names and values
-for all attributes of
-this element.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->id_attribute_name</TT
->: returns the name of the attribute that is
-declared with type ID. There is at most one such attribute. The method raises
-<TT
-CLASS="LITERAL"
->Not_found</TT
-> if there is no declared ID attribute for the
-element type.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->id_attribute_value</TT
->: returns the value of the attribute that
-is declared with type ID. There is at most one such attribute. The method raises
-<TT
-CLASS="LITERAL"
->Not_found</TT
-> if there is no declared ID attribute for the
-element type.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->idref_attribute_names</TT
->: returns the list of attribute names
-that are declared as IDREF or IDREFS.</P
-></LI
-></UL
->
-          </P
-></DIV
-><A
-NAME="TYPE-NODE-MODS"
-></A
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->              <A
-HREF="x939.html#TYPE-NODE-MODS.SIG"
->Modifying methods</A
->
-            . </B
->The following methods are only defined for element nodes (more exactly:
-the methods are defined for data nodes, too, but fail always).
-
-             <P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->add_node sn</TT
->: Adds sub node <TT
-CLASS="LITERAL"
->sn</TT
-> to the list
-of children. This operation is illustrated in the picture 
-<A
-HREF="x939.html#NODE-ADD"
-><I
-><I
->A node can only be added if it is a root</I
-><I
-></I
-></I
-></A
->. This method expects that
-<TT
-CLASS="LITERAL"
->sn</TT
-> is a root, and it requires that <TT
-CLASS="LITERAL"
->sn</TT
-> and
-the current object share the same DTD.</P
-><P
->Because <TT
-CLASS="LITERAL"
->add_node</TT
-> is the method the parser itself uses
-to add new nodes to the tree, it performs by default some simple validation
-checks: If the content model is a regular expression, it is not allowed to add
-data nodes to this node unless the new nodes consist only of whitespace. In
-this case, the new data nodes are silently dropped (you can change this by
-invoking <TT
-CLASS="LITERAL"
->keep_always_whitespace_mode</TT
->).</P
-><P
->If the document is flagged as stand-alone, these data nodes only
-containing whitespace are even forbidden if the element declaration is
-contained in an external entity. This case is detected and rejected.</P
-><P
->If the content model is <TT
-CLASS="LITERAL"
->EMPTY</TT
->, it is not allowed to
-add any data node unless the data node is empty. In this case, the new data
-node is silently dropped.</P
-><P
->These checks only apply if there is a DTD. In well-formedness mode, it is
-assumed that every element is declared with content model
-<TT
-CLASS="LITERAL"
->ANY</TT
-> which prohibits any validation check. Furthermore, you
-turn these checks off by passing <TT
-CLASS="LITERAL"
->~force:true</TT
-> as first
-argument.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->add_pinstr pi</TT
->: Adds the processing instruction
-<TT
-CLASS="LITERAL"
->pi</TT
-> to the list of processing instructions.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->delete</TT
->: Deletes this node from the tree. After this
-operation, this node is no longer the child of the former father node; and the
-node loses the connection to the father as well. This operation is illustrated
-by the figure <A
-HREF="x939.html#NODE-DELETE"
-><I
-><I
->A deleted node becomes the root of the subtree</I
-><I
-></I
-></I
-></A
->.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->set_nodes nl</TT
->: Sets the list of children to
-<TT
-CLASS="LITERAL"
->nl</TT
->. It is required that every member of <TT
-CLASS="LITERAL"
->nl</TT
->
-is a root, and that all members and the current object share the same DTD.
-Unlike <TT
-CLASS="LITERAL"
->add_node</TT
->, no validation checks are performed.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->quick_set_attributes atts</TT
->: sets the attributes of this
-element to <TT
-CLASS="LITERAL"
->atts</TT
->. It is <I
-CLASS="EMPHASIS"
->not</I
-> checked
-whether <TT
-CLASS="LITERAL"
->atts</TT
-> matches the DTD or not; it is up to the
-caller of this method to ensure this. (This method may be useful to transform
-the attribute values, i.e. apply a mapping to every attribute.)</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->set_comment text</TT
->: This method is only applicable to
-<TT
-CLASS="LITERAL"
->T_comment</TT
-> nodes; it sets the comment text contained by such
-nodes. </P
-></LI
-></UL
-></P
-></DIV
-><A
-NAME="TYPE-NODE-CLONING"
-></A
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->              <A
-HREF="x939.html#TYPE-NODE-CLONING.SIG"
->Cloning methods</A
->
-            . </B
->            <P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->orphaned_clone</TT
->: Returns a clone of the node and the complete
-tree below this node (deep clone). The clone does not have a parent (i.e. the
-reference to the parent node is <I
-CLASS="EMPHASIS"
->not</I
-> cloned). While
-copying the subtree, strings are skipped; it is likely that the original tree
-and the copy tree share strings. Extension objects are cloned by invoking
-the <TT
-CLASS="LITERAL"
->clone</TT
-> method on the original objects; how much of
-the extension objects is cloned depends on the implemention of this method.</P
-><P
->This operation is illustrated by the figure 
-<A
-HREF="x939.html#NODE-CLONE"
-><I
-><I
->The clone of a subtree</I
-><I
-></I
-></I
-></A
->.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->orphaned_flat_clone</TT
->: Returns a clone of the node,
-but sets the list of sub nodes to [], i.e. the sub nodes are not cloned.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><A
-NAME="TYPE-NODE-METH-CREATE-ELEMENT"
-></A
->
-<TT
-CLASS="LITERAL"
->create_element dtd nt al</TT
->: Returns a flat copy of this node
-(which must be an element) with the following modifications: The DTD is set to
-<TT
-CLASS="LITERAL"
->dtd</TT
->; the node type is set to <TT
-CLASS="LITERAL"
->nt</TT
->, and the
-new attribute list is set to <TT
-CLASS="LITERAL"
->al</TT
-> (given as list of
-(name,value) pairs). The copy does not have children nor a parent. It does not
-contain processing instructions. See 
-<A
-HREF="x939.html#TYPE-NODE-EX-CREATE-ELEMENT"
->the example below</A
->.</P
-><P
->Note that you can specify the position of the new node
-by the optional argument <TT
-CLASS="LITERAL"
->~position</TT
->.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><A
-NAME="TYPE-NODE-METH-CREATE-DATA"
-></A
->
-<TT
-CLASS="LITERAL"
->create_data dtd cdata</TT
->: Returns a flat copy of this node
-(which must be a data node) with the following modifications: The DTD is set to
-<TT
-CLASS="LITERAL"
->dtd</TT
->; the node type is set to <TT
-CLASS="LITERAL"
->T_data</TT
->; the
-attribute list is empty (data nodes never have attributes); the list of
-children and PIs is empty, too (same reason). The new node does not have a
-parent. The value <TT
-CLASS="LITERAL"
->cdata</TT
-> is the new character content of the
-node. See 
-<A
-HREF="x939.html#TYPE-NODE-EX-CREATE-DATA"
->the example below</A
->.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->keep_always_whitespace_mode</TT
->: Even data nodes which are
-normally dropped because they only contain ignorable whitespace, can added to
-this node once this mode is turned on. (This mode is useful to produce
-canonical XML.)</P
-></LI
-></UL
-></P
-></DIV
-><A
-NAME="TYPE-NODE-WEIRD"
-></A
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->              <A
-HREF="x939.html#TYPE-NODE-WEIRD.SIG"
->Validating methods</A
->
-            . </B
->There is one method which locally validates the node, i.e. checks whether the
-subnodes match the content model of this node.
-
-             <P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->local_validate</TT
->: Checks that this node conforms to the
-DTD by comparing the type of the subnodes with the content model for this
-node. (Applications need not call this method unless they add new nodes
-themselves to the tree.)</P
-></LI
-></UL
-></P
-></DIV
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1252"
->3.2.3. The class <TT
-CLASS="LITERAL"
->element_impl</TT
-></A
-></H2
-><P
->This class is an implementation of <TT
-CLASS="LITERAL"
->node</TT
-> which
-realizes element nodes:
-
-<PRE
-CLASS="PROGRAMLISTING"
->class [ 'ext ] element_impl : 'ext -&#62; [ 'ext ] node</PRE
->&#13;</P
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->Constructor. </B
->You can create a new instance by
-
-<PRE
-CLASS="PROGRAMLISTING"
->new element_impl <TT
-CLASS="REPLACEABLE"
-><I
->extension_object</I
-></TT
-></PRE
->
-
-which creates a special form of empty element which already contains a
-reference to the <TT
-CLASS="REPLACEABLE"
-><I
->extension_object</I
-></TT
->, but is
-otherwise empty. This special form is called an
-<I
-CLASS="EMPHASIS"
->exemplar</I
->. The purpose of exemplars is that they serve as
-patterns that can be duplicated and filled with data. The method
-<A
-HREF="x939.html#TYPE-NODE-METH-CREATE-ELEMENT"
-><TT
-CLASS="LITERAL"
->create_element</TT
-></A
-> is designed to perform this action.</P
-></DIV
-><A
-NAME="TYPE-NODE-EX-CREATE-ELEMENT"
-></A
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->Example. </B
->First, create an exemplar by
-
-<PRE
-CLASS="PROGRAMLISTING"
->let exemplar_ext = ... in
-let exemplar     = new element_impl exemplar_ext in</PRE
->
-
-The <TT
-CLASS="LITERAL"
->exemplar</TT
-> is not used in node trees, but only as
-a pattern when the element nodes are created:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let element = exemplar # <A
-HREF="x939.html#TYPE-NODE-METH-CREATE-ELEMENT"
->create_element</A
-> dtd (T_element name) attlist </PRE
->
-
-The <TT
-CLASS="LITERAL"
->element</TT
-> is a copy of <TT
-CLASS="LITERAL"
->exemplar</TT
->
-(even the extension <TT
-CLASS="LITERAL"
->exemplar_ext</TT
-> has been copied)
-which ensures that <TT
-CLASS="LITERAL"
->element</TT
-> and its extension are objects
-of the same class as the exemplars; note that you need not to pass a 
-class name or other meta information. The copy is initially connected 
-with the <TT
-CLASS="LITERAL"
->dtd</TT
->, it gets a node type, and the attribute list
-is filled. The <TT
-CLASS="LITERAL"
->element</TT
-> is now fully functional; it can
-be added to another element as child, and it can contain references to
-subnodes.</P
-></DIV
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1281"
->3.2.4. The class <TT
-CLASS="LITERAL"
->data_impl</TT
-></A
-></H2
-><P
->This class is an implementation of <TT
-CLASS="LITERAL"
->node</TT
-> which
-should be used for all character data nodes:
-
-<PRE
-CLASS="PROGRAMLISTING"
->class [ 'ext ] data_impl : 'ext -&#62; [ 'ext ] node</PRE
->&#13;</P
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->Constructor. </B
->You can create a new instance by
-
-<PRE
-CLASS="PROGRAMLISTING"
->new data_impl <TT
-CLASS="REPLACEABLE"
-><I
->extension_object</I
-></TT
-></PRE
->
-
-which creates an empty exemplar node which is connected to
-<TT
-CLASS="REPLACEABLE"
-><I
->extension_object</I
-></TT
->. The node does not contain a
-reference to any DTD, and because of this it cannot be added to node trees.</P
-></DIV
-><P
->To get a fully working data node, apply the method
-<A
-HREF="x939.html#TYPE-NODE-METH-CREATE-DATA"
-><TT
-CLASS="LITERAL"
->create_data</TT
-></A
-> to the exemplar (see example).</P
-><A
-NAME="TYPE-NODE-EX-CREATE-DATA"
-></A
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->Example. </B
->First, create an exemplar by
-
-<PRE
-CLASS="PROGRAMLISTING"
->let exemplar_ext = ... in
-let exemplar     = new exemplar_ext data_impl in</PRE
->
-
-The <TT
-CLASS="LITERAL"
->exemplar</TT
-> is not used in node trees, but only as
-a pattern when the data nodes are created:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let data_node = exemplar # <A
-HREF="x939.html#TYPE-NODE-METH-CREATE-DATA"
->create_data</A
-> dtd "The characters contained in the data node" </PRE
->
-
-The <TT
-CLASS="LITERAL"
->data_node</TT
-> is a copy of <TT
-CLASS="LITERAL"
->exemplar</TT
->.
-The copy is initially connected 
-with the <TT
-CLASS="LITERAL"
->dtd</TT
->, and it is filled with character material.
-The <TT
-CLASS="LITERAL"
->data_node</TT
-> is now fully functional; it can
-be added to an element as child.</P
-></DIV
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1308"
->3.2.5. The type <TT
-CLASS="LITERAL"
->spec</TT
-></A
-></H2
-><P
->The type <TT
-CLASS="LITERAL"
->spec</TT
-> defines a way to handle the details of
-creating nodes from exemplars.
-
-<PRE
-CLASS="PROGRAMLISTING"
->type 'ext spec
-constraint 'ext = 'ext node #extension
-
-val make_spec_from_mapping :
-      ?super_root_exemplar : 'ext node -&#62;
-      ?comment_exemplar : 'ext node -&#62;
-      ?default_pinstr_exemplar : 'ext node -&#62;
-      ?pinstr_mapping : (string, 'ext node) Hashtbl.t -&#62;
-      data_exemplar: 'ext node -&#62;
-      default_element_exemplar: 'ext node -&#62;
-      element_mapping: (string, 'ext node) Hashtbl.t -&#62; 
-      unit -&#62; 
-        'ext spec
-
-val make_spec_from_alist :
-      ?super_root_exemplar : 'ext node -&#62;
-      ?comment_exemplar : 'ext node -&#62;
-      ?default_pinstr_exemplar : 'ext node -&#62;
-      ?pinstr_alist : (string * 'ext node) list -&#62;
-      data_exemplar: 'ext node -&#62;
-      default_element_exemplar: 'ext node -&#62;
-      element_alist: (string * 'ext node) list -&#62; 
-      unit -&#62; 
-        'ext spec</PRE
->
-
-The two functions <TT
-CLASS="LITERAL"
->make_spec_from_mapping</TT
-> and
-<TT
-CLASS="LITERAL"
->make_spec_from_alist</TT
-> create <TT
-CLASS="LITERAL"
->spec</TT
->
-values. Both functions are functionally equivalent and the only difference is
-that the first function prefers hashtables and the latter associative lists to
-describe mappings from names to exemplars.</P
-><P
->You can specify exemplars for the various kinds of nodes that need to be
-generated when an XML document is parsed:
-             
-<P
-></P
-><UL
-COMPACT="COMPACT"
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->~super_root_exemplar</TT
->: This exemplar
-is used to create the super root. This special node is only created if the
-corresponding configuration option has been selected; it is the parent node of
-the root node which may be convenient if every working node must have a parent.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->~comment_exemplar</TT
->: This exemplar is
-used when a comment node must be created. Note that such nodes are only created
-if the corresponding configuration option is "on".</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->~default_pinstr_exemplar</TT
->: If a node
-for a processing instruction must be created, and the instruction is not listed
-in the table passed by <TT
-CLASS="LITERAL"
->~pinstr_mapping</TT
-> or
-<TT
-CLASS="LITERAL"
->~pinstr_alist</TT
->, this exemplar is used.
-Again the configuration option must be "on" in order to create such nodes at
-all. </P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->~pinstr_mapping</TT
-> or
-<TT
-CLASS="LITERAL"
->~pinstr_alist</TT
->: Map the target names of processing
-instructions to exemplars. These mappings are only used when nodes for
-processing instructions are created.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->~data_exemplar</TT
->: The exemplar for
-ordinary data nodes.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->~default_element_exemplar</TT
->: This
-exemplar is used if an element node must be created, but the element type
-cannot be found in the tables <TT
-CLASS="LITERAL"
->element_mapping</TT
-> or
-<TT
-CLASS="LITERAL"
->element_alist</TT
->.</P
-></LI
-><LI
-STYLE="list-style-type: disc"
-><P
-><TT
-CLASS="LITERAL"
->~element_mapping</TT
-> or
-<TT
-CLASS="LITERAL"
->~element_alist</TT
->: Map the element types to exemplars. These
-mappings are used to create element nodes.</P
-></LI
-></UL
->
-
-In most cases, you only want to create <TT
-CLASS="LITERAL"
->spec</TT
-> values to pass
-them to the parser functions found in <TT
-CLASS="LITERAL"
->Pxp_yacc</TT
->. However, it
-might be useful to apply <TT
-CLASS="LITERAL"
->spec</TT
-> values directly.</P
-><P
->The following functions create various types of nodes by selecting the
-corresponding exemplar from the passed <TT
-CLASS="LITERAL"
->spec</TT
-> value, and by
-calling <TT
-CLASS="LITERAL"
->create_element</TT
-> or <TT
-CLASS="LITERAL"
->create_data</TT
-> on
-the exemplar.
-
-<PRE
-CLASS="PROGRAMLISTING"
->val create_data_node : 
-      'ext spec -&#62; 
-      dtd -&#62; 
-      (* data material: *) string -&#62; 
-          'ext node
-
-val create_element_node : 
-      ?position:(string * int * int) -&#62;
-      'ext spec -&#62; 
-      dtd -&#62; 
-      (* element type: *) string -&#62; 
-      (* attributes: *) (string * string) list -&#62; 
-          'ext node
-
-val create_super_root_node :
-      ?position:(string * int * int) -&#62;
-      'ext spec -&#62; 
-       dtd -&#62; 
-           'ext node
-
-val create_comment_node :
-      ?position:(string * int * int) -&#62;
-      'ext spec -&#62; 
-      dtd -&#62; 
-      (* comment text: *) string -&#62; 
-          'ext node
-
-val create_pinstr_node :
-      ?position:(string * int * int) -&#62;
-      'ext spec -&#62; 
-      dtd -&#62; 
-      proc_instruction -&#62; 
-          'ext node</PRE
-></P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1354"
->3.2.6. Examples</A
-></H2
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->Building trees. </B
->Here is the piece of code that creates the tree of
-the figure <A
-HREF="x939.html#NODE-TERM"
-><I
-><I
->A tree with element nodes, data nodes, and attributes</I
-><I
-></I
-></I
-></A
->. The extension
-object and the DTD are beyond the scope of this example.
-
-<PRE
-CLASS="PROGRAMLISTING"
->let exemplar_ext = ... (* some extension *) in
-let dtd = ... (* some DTD *) in
-
-let element_exemplar = new element_impl exemplar_ext in
-let data_exemplar    = new data_impl    exemplar_ext in
-
-let a1 = element_exemplar # create_element dtd (T_element "a") ["att", "apple"]
-and b1 = element_exemplar # create_element dtd (T_element "b") []
-and c1 = element_exemplar # create_element dtd (T_element "c") []
-and a2 = element_exemplar # create_element dtd (T_element "a") ["att", "orange"]
-in
-
-let cherries = data_exemplar # create_data dtd "Cherries" in
-let orange   = data_exemplar # create_data dtd "An orange" in
-
-a1 # add_node b1;
-a1 # add_node c1;
-b1 # add_node a2;
-b1 # add_node cherries;
-a2 # add_node orange;</PRE
->
-
-Alternatively, the last block of statements could also be written as:
-
-<PRE
-CLASS="PROGRAMLISTING"
->a1 # set_nodes [b1; c1];
-b1 # set_nodes [a2; cherries];
-a2 # set_nodes [orange];</PRE
->
-
-The root of the tree is <TT
-CLASS="LITERAL"
->a1</TT
->, i.e. it is true that
-
-<PRE
-CLASS="PROGRAMLISTING"
->x # root == a1</PRE
->
-
-for every x from { <TT
-CLASS="LITERAL"
->a1</TT
->, <TT
-CLASS="LITERAL"
->a2</TT
->,
-<TT
-CLASS="LITERAL"
->b1</TT
->, <TT
-CLASS="LITERAL"
->c1</TT
->, <TT
-CLASS="LITERAL"
->cherries</TT
->,
-<TT
-CLASS="LITERAL"
->orange</TT
-> }.</P
-></DIV
-><P
->Furthermore, the following properties hold:
-
-<PRE
-CLASS="PROGRAMLISTING"
->  a1 # attribute "att" = Value "apple"
-&#38; a2 # attribute "att" = Value "orange"
-
-&#38; cherries # data = "Cherries"
-&#38;   orange # data = "An orange"
-&#38;       a1 # data = "CherriesAn orange"
-
-&#38;       a1 # node_type = T_element "a"
-&#38;       a2 # node_type = T_element "a"
-&#38;       b1 # node_type = T_element "b"
-&#38;       c1 # node_type = T_element "c"
-&#38; cherries # node_type = T_data
-&#38;   orange # node_type = T_data
-
-&#38;       a1 # sub_nodes = [ b1; c1 ]
-&#38;       a2 # sub_nodes = [ orange ]
-&#38;       b1 # sub_nodes = [ a2; cherries ]
-&#38;       c1 # sub_nodes = []
-&#38; cherries # sub_nodes = []
-&#38;   orange # sub_nodes = []
-
-&#38;       a2 # parent == a1
-&#38;       b1 # parent == b1
-&#38;       c1 # parent == a1
-&#38; cherries # parent == b1
-&#38;   orange # parent == a2</PRE
-></P
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->Searching nodes. </B
->The following function searches all nodes of a tree 
-for which a certain condition holds:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let rec search p t =
-  if p t then
-    t :: search_list p (t # sub_nodes)
-  else
-    search_list p (t # sub_nodes)
-
-and search_list p l =
-  match l with
-    []      -&gt; []
-  | t :: l' -&gt; (search p t) @ (search_list p l')
-;;</PRE
-></P
-></DIV
-><P
->For example, if you want to search all elements of a certain
-type <TT
-CLASS="LITERAL"
->et</TT
->, the function <TT
-CLASS="LITERAL"
->search</TT
-> can be
-applied as follows:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let search_element_type et t =
-  search (fun x -&gt; x # node_type = T_element et) t
-;;</PRE
-></P
-><DIV
-CLASS="FORMALPARA"
-><P
-><B
->Getting attribute values. </B
->Suppose we have the declaration:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ATTLIST e a CDATA #REQUIRED
-            b CDATA #IMPLIED
-            c CDATA "12345"&#62;</PRE
->
-
-In this case, every element <TT
-CLASS="LITERAL"
->e</TT
-> must have an attribute 
-<TT
-CLASS="LITERAL"
->a</TT
->, otherwise the parser would indicate an error. If
-the O'Caml variable <TT
-CLASS="LITERAL"
->n</TT
-> holds the node of the tree 
-corresponding to the element, you can get the value of the attribute
-<TT
-CLASS="LITERAL"
->a</TT
-> by
-
-<PRE
-CLASS="PROGRAMLISTING"
->let value_of_a = n # required_string_attribute "a"</PRE
->
-
-which is more or less an abbreviation for 
-
-<PRE
-CLASS="PROGRAMLISTING"
->let value_of_a = 
-  match n # attribute "a" with
-    Value s -&#62; s
-  | _       -&#62; assert false</PRE
->
-
-- as the attribute is required, the <TT
-CLASS="LITERAL"
->attribute</TT
-> method always
-returns a <TT
-CLASS="LITERAL"
->Value</TT
->.</P
-></DIV
-><P
->In contrast to this, the attribute <TT
-CLASS="LITERAL"
->b</TT
-> can be
-omitted. In this case, the method <TT
-CLASS="LITERAL"
->required_string_attribute</TT
->
-works only if the attribute is there, and the method will fail if the attribute
-is missing. To get the value, you can apply the method
-<TT
-CLASS="LITERAL"
->optional_string_attribute</TT
->:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let value_of_b = n # optional_string_attribute "b"</PRE
->
-
-Now, <TT
-CLASS="LITERAL"
->value_of_b</TT
-> is of type <TT
-CLASS="LITERAL"
->string option</TT
->,
-and <TT
-CLASS="LITERAL"
->None</TT
-> represents the omitted attribute. Alternatively, 
-you could also use <TT
-CLASS="LITERAL"
->attribute</TT
->:
-
-<PRE
-CLASS="PROGRAMLISTING"
->let value_of_b = 
-  match n # attribute "b" with
-    Value s       -&#62; Some s
-  | Implied_value -&#62; None
-  | _             -&#62; assert false</PRE
-></P
-><P
->The attribute <TT
-CLASS="LITERAL"
->c</TT
-> behaves much like
-<TT
-CLASS="LITERAL"
->a</TT
->, because it has always a value. If the attribute is
-omitted, the default, here "12345", will be returned instead. Because of this,
-you can again use <TT
-CLASS="LITERAL"
->required_string_attribute</TT
-> to get the
-value.</P
-><P
->The type <TT
-CLASS="LITERAL"
->CDATA</TT
-> is the most general string
-type. The types <TT
-CLASS="LITERAL"
->NMTOKEN</TT
->, <TT
-CLASS="LITERAL"
->ID</TT
->,
-<TT
-CLASS="LITERAL"
->IDREF</TT
->, <TT
-CLASS="LITERAL"
->ENTITY</TT
->, and all enumerators and
-notations are special forms of string types that restrict the possible
-values. From O'Caml, they behave like <TT
-CLASS="LITERAL"
->CDATA</TT
->, i.e. you can
-use the methods <TT
-CLASS="LITERAL"
->required_string_attribute</TT
-> and
-<TT
-CLASS="LITERAL"
->optional_string_attribute</TT
->, too.</P
-><P
->In contrast to this, the types <TT
-CLASS="LITERAL"
->NMTOKENS</TT
->,
-<TT
-CLASS="LITERAL"
->IDREFS</TT
->, and <TT
-CLASS="LITERAL"
->ENTITIES</TT
-> mean lists of
-strings. Suppose we have the declaration:
-
-<PRE
-CLASS="PROGRAMLISTING"
->&#60;!ATTLIST f d NMTOKENS #REQUIRED
-            e NMTOKENS #IMPLIED&#62;</PRE
->
-
-The type <TT
-CLASS="LITERAL"
->NMTOKENS</TT
-> stands for lists of space-separated
-tokens; for example the value <TT
-CLASS="LITERAL"
->"1 abc 23ef"</TT
-> means the list
-<TT
-CLASS="LITERAL"
->["1"; "abc"; "23ef"]</TT
->. (Again, <TT
-CLASS="LITERAL"
->IDREFS</TT
->
-and <TT
-CLASS="LITERAL"
->ENTITIES</TT
-> have more restricted values.) To get the
-value of attribute <TT
-CLASS="LITERAL"
->d</TT
->, one can use
-
-<PRE
-CLASS="PROGRAMLISTING"
->let value_of_d = n # required_list_attribute "d"</PRE
->
-
-or
-
-<PRE
-CLASS="PROGRAMLISTING"
->let value_of_d = 
-  match n # attribute "d" with
-    Valuelist l -&#62; l
-  | _           -&#62; assert false</PRE
->
- 
-As <TT
-CLASS="LITERAL"
->d</TT
-> is required, the attribute cannot be omitted, and 
-the <TT
-CLASS="LITERAL"
->attribute</TT
-> method returns always a
-<TT
-CLASS="LITERAL"
->Valuelist</TT
->. </P
-><P
->For optional attributes like <TT
-CLASS="LITERAL"
->e</TT
->, apply
-
-<PRE
-CLASS="PROGRAMLISTING"
->let value_of_e = n # optional_list_attribute "e"</PRE
->
-
-or
-
-<PRE
-CLASS="PROGRAMLISTING"
->let value_of_e = 
-  match n # attribute "e" with
-    Valuelist l   -&#62; l
-  | Implied_value -&#62; []
-  | _             -&#62; assert false</PRE
->
-
-Here, the case that the attribute is missing counts like the empty list.</P
-></DIV
-><DIV
-CLASS="SECT2"
-><H2
-CLASS="SECT2"
-><A
-NAME="AEN1435"
->3.2.7. Iterators</A
-></H2
-><P
->There are also several iterators in Pxp_document; please see
-the mli file for details. You can find examples for them in the
-"simple_transformation" directory.
-
-<PRE
-CLASS="PROGRAMLISTING"
->val find : ?deeply:bool -&#62; 
-           f:('ext node -&#62; bool) -&#62; 'ext node -&#62; 'ext node
-
-val find_all : ?deeply:bool -&#62;
-               f:('ext node -&#62; bool) -&#62; 'ext node -&#62; 'ext node list
-
-val find_element : ?deeply:bool -&#62;
-                   string -&#62; 'ext node -&#62; 'ext node
-
-val find_all_elements : ?deeply:bool -&#62;
-                        string -&#62; 'ext node -&#62; 'ext node list
-
-exception Skip
-val map_tree :  pre:('exta node -&#62; 'extb node) -&#62;
-               ?post:('extb node -&#62; 'extb node) -&#62;
-               'exta node -&#62; 
-                   'extb node
-
-
-val map_tree_sibl : 
-        pre: ('exta node option -&#62; 'exta node -&#62; 'exta node option -&#62; 
-                  'extb node) -&#62;
-       ?post:('extb node option -&#62; 'extb node -&#62; 'extb node option -&#62; 
-                  'extb node) -&#62;
-       'exta node -&#62; 
-           'extb node
-
-val iter_tree : ?pre:('ext node -&#62; unit) -&#62;
-                ?post:('ext node -&#62; unit) -&#62;
-                'ext node -&#62; 
-                    unit
-
-val iter_tree_sibl :
-       ?pre: ('ext node option -&#62; 'ext node -&#62; 'ext node option -&#62; unit) -&#62;
-       ?post:('ext node option -&#62; 'ext node -&#62; 'ext node option -&#62; unit) -&#62;
-       'ext node -&#62; 
-           unit</PRE
-></P
-></DIV
-></DIV
-><DIV
-CLASS="NAVFOOTER"
-><HR
-ALIGN="LEFT"
-WIDTH="100%"><TABLE
-WIDTH="100%"
-BORDER="0"
-CELLPADDING="0"
-CELLSPACING="0"
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
-><A
-HREF="c893.html"
->Prev</A
-></TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="index.html"
->Home</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
-><A
-HREF="x1439.html"
->Next</A
-></TD
-></TR
-><TR
-><TD
-WIDTH="33%"
-ALIGN="left"
-VALIGN="top"
->The objects representing the document</TD
-><TD
-WIDTH="34%"
-ALIGN="center"
-VALIGN="top"
-><A
-HREF="c893.html"
->Up</A
-></TD
-><TD
-WIDTH="33%"
-ALIGN="right"
-VALIGN="top"
->The class type <TT
-CLASS="LITERAL"
->extension</TT
-></TD
-></TR
-></TABLE
-></DIV
-></BODY
-></HTML
->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/ps/markup.ps b/helm/DEVEL/pxp/pxp/doc/manual/ps/markup.ps
deleted file mode 100644 (file)
index 3a98c79..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/ps/markup.ps
+++ /dev/null
@@ -1,8866 +0,0 @@
-%!PS-Adobe-2.0
-%%Creator: dvips(k) 5.86 Copyright 1999 Radical Eye Software
-%%Pages: 96
-%%PageOrder: Ascend
-%%BoundingBox: 0 0 596 842
-%%DocumentFonts: Helvetica-Bold Times-Roman Times-Bold Times-Italic
-%%+ Courier Courier-Oblique Helvetica-BoldOblique Courier-Bold
-%%DocumentPaperSizes: a4
-%%EndComments
-%DVIPSWebPage: (www.radicaleye.com)
-%DVIPSCommandLine: dvips -f
-%DVIPSParameters: dpi=600, compressed
-%DVIPSSource:  TeX output 2000.08.30:1757
-%%BeginProcSet: texc.pro
-%!
-/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S
-N}B/A{dup}B/TR{translate}N/isls false N/vsize 11 72 mul N/hsize 8.5 72
-mul N/landplus90{false}def/@rigin{isls{[0 landplus90{1 -1}{-1 1}ifelse 0
-0 0]concat}if 72 Resolution div 72 VResolution div neg scale isls{
-landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div hsize
-mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul TR[
-matrix currentmatrix{A A round sub abs 0.00001 lt{round}if}forall round
-exch round exch]setmatrix}N/@landscape{/isls true N}B/@manualfeed{
-statusdict/manualfeed true put}B/@copies{/#copies X}B/FMat[1 0 0 -1 0 0]
-N/FBB[0 0 0 0]N/nn 0 N/IEn 0 N/ctr 0 N/df-tail{/nn 8 dict N nn begin
-/FontType 3 N/FontMatrix fntrx N/FontBBox FBB N string/base X array
-/BitMaps X/BuildChar{CharBuilder}N/Encoding IEn N end A{/foo setfont}2
-array copy cvx N load 0 nn put/ctr 0 N[}B/sf 0 N/df{/sf 1 N/fntrx FMat N
-df-tail}B/dfs{div/sf X/fntrx[sf 0 0 sf neg 0 0]N df-tail}B/E{pop nn A
-definefont setfont}B/Cw{Cd A length 5 sub get}B/Ch{Cd A length 4 sub get
-}B/Cx{128 Cd A length 3 sub get sub}B/Cy{Cd A length 2 sub get 127 sub}
-B/Cdx{Cd A length 1 sub get}B/Ci{Cd A type/stringtype ne{ctr get/ctr ctr
-1 add N}if}B/id 0 N/rw 0 N/rc 0 N/gp 0 N/cp 0 N/G 0 N/CharBuilder{save 3
-1 roll S A/base get 2 index get S/BitMaps get S get/Cd X pop/ctr 0 N Cdx
-0 Cx Cy Ch sub Cx Cw add Cy setcachedevice Cw Ch true[1 0 0 -1 -.1 Cx
-sub Cy .1 sub]/id Ci N/rw Cw 7 add 8 idiv string N/rc 0 N/gp 0 N/cp 0 N{
-rc 0 ne{rc 1 sub/rc X rw}{G}ifelse}imagemask restore}B/G{{id gp get/gp
-gp 1 add N A 18 mod S 18 idiv pl S get exec}loop}B/adv{cp add/cp X}B
-/chg{rw cp id gp 4 index getinterval putinterval A gp add/gp X adv}B/nd{
-/cp 0 N rw exit}B/lsh{rw cp 2 copy get A 0 eq{pop 1}{A 255 eq{pop 254}{
-A A add 255 and S 1 and or}ifelse}ifelse put 1 adv}B/rsh{rw cp 2 copy
-get A 0 eq{pop 128}{A 255 eq{pop 127}{A 2 idiv S 128 and or}ifelse}
-ifelse put 1 adv}B/clr{rw cp 2 index string putinterval adv}B/set{rw cp
-fillstr 0 4 index getinterval putinterval adv}B/fillstr 18 string 0 1 17
-{2 copy 255 put pop}for N/pl[{adv 1 chg}{adv 1 chg nd}{1 add chg}{1 add
-chg nd}{adv lsh}{adv lsh nd}{adv rsh}{adv rsh nd}{1 add adv}{/rc X nd}{
-1 add set}{1 add clr}{adv 2 chg}{adv 2 chg nd}{pop nd}]A{bind pop}
-forall N/D{/cc X A type/stringtype ne{]}if nn/base get cc ctr put nn
-/BitMaps get S ctr S sf 1 ne{A A length 1 sub A 2 index S get sf div put
-}if put/ctr ctr 1 add N}B/I{cc 1 add D}B/bop{userdict/bop-hook known{
-bop-hook}if/SI save N @rigin 0 0 moveto/V matrix currentmatrix A 1 get A
-mul exch 0 get A mul add .99 lt{/QV}{/RV}ifelse load def pop pop}N/eop{
-SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{
-userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X
-1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4
-index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N
-/p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{
-/Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)
-(LaserWriter 16/600)]{A length product length le{A length product exch 0
-exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse
-end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask
-grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot}
-imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round
-exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto
-fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B/M{S p
-delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}B/g{0 M}
-B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{
-p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{0 S
-rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end
-
-%%EndProcSet
-%%BeginProcSet: 8r.enc
-% @@psencodingfile@{
-%   author = "S. Rahtz, P. MacKay, Alan Jeffrey, B. Horn, K. Berry",
-%   version = "0.6",
-%   date = "1 July 1998",
-%   filename = "8r.enc",
-%   email = "tex-fonts@@tug.org",
-%   docstring = "Encoding for TrueType or Type 1 fonts
-%                to be used with TeX."
-% @}
-% 
-% Idea is to have all the characters normally included in Type 1 fonts
-% available for typesetting. This is effectively the characters in Adobe
-% Standard Encoding + ISO Latin 1 + extra characters from Lucida.
-% 
-% Character code assignments were made as follows:
-% 
-% (1) the Windows ANSI characters are almost all in their Windows ANSI
-% positions, because some Windows users cannot easily reencode the
-% fonts, and it makes no difference on other systems. The only Windows
-% ANSI characters not available are those that make no sense for
-% typesetting -- rubout (127 decimal), nobreakspace (160), softhyphen
-% (173). quotesingle and grave are moved just because it's such an
-% irritation not having them in TeX positions.
-% 
-% (2) Remaining characters are assigned arbitrarily to the lower part
-% of the range, avoiding 0, 10 and 13 in case we meet dumb software.
-% 
-% (3) Y&Y Lucida Bright includes some extra text characters; in the
-% hopes that other PostScript fonts, perhaps created for public
-% consumption, will include them, they are included starting at 0x12.
-% 
-% (4) Remaining positions left undefined are for use in (hopefully)
-% upward-compatible revisions, if someday more characters are generally
-% available.
-% 
-% (5) hyphen appears twice for compatibility with both 
-% ASCII and Windows.
-% 
-/TeXBase1Encoding [
-% 0x00 (encoded characters from Adobe Standard not in Windows 3.1)
-  /.notdef /dotaccent /fi /fl
-  /fraction /hungarumlaut /Lslash /lslash
-  /ogonek /ring /.notdef
-  /breve /minus /.notdef 
-% These are the only two remaining unencoded characters, so may as
-% well include them.
-  /Zcaron /zcaron 
-% 0x10
- /caron /dotlessi 
-% (unusual TeX characters available in, e.g., Lucida Bright)
- /dotlessj /ff /ffi /ffl 
- /.notdef /.notdef /.notdef /.notdef
- /.notdef /.notdef /.notdef /.notdef
- % very contentious; it's so painful not having quoteleft and quoteright
- % at 96 and 145 that we move the things normally found there to here.
- /grave /quotesingle 
-% 0x20 (ASCII begins)
- /space /exclam /quotedbl /numbersign
- /dollar /percent /ampersand /quoteright
- /parenleft /parenright /asterisk /plus /comma /hyphen /period /slash
-% 0x30
- /zero /one /two /three /four /five /six /seven
- /eight /nine /colon /semicolon /less /equal /greater /question
-% 0x40
- /at /A /B /C /D /E /F /G /H /I /J /K /L /M /N /O
-% 0x50
- /P /Q /R /S /T /U /V /W
- /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore
-% 0x60
- /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o
-% 0x70
- /p /q /r /s /t /u /v /w
- /x /y /z /braceleft /bar /braceright /asciitilde
- /.notdef % rubout; ASCII ends
-% 0x80
- /.notdef /.notdef /quotesinglbase /florin
- /quotedblbase /ellipsis /dagger /daggerdbl
- /circumflex /perthousand /Scaron /guilsinglleft
- /OE /.notdef /.notdef /.notdef
-% 0x90
- /.notdef /.notdef /.notdef /quotedblleft
- /quotedblright /bullet /endash /emdash
- /tilde /trademark /scaron /guilsinglright
- /oe /.notdef /.notdef /Ydieresis
-% 0xA0
- /.notdef % nobreakspace
- /exclamdown /cent /sterling
- /currency /yen /brokenbar /section
- /dieresis /copyright /ordfeminine /guillemotleft
- /logicalnot
- /hyphen % Y&Y (also at 45); Windows' softhyphen
- /registered
- /macron
-% 0xD0
- /degree /plusminus /twosuperior /threesuperior
- /acute /mu /paragraph /periodcentered
- /cedilla /onesuperior /ordmasculine /guillemotright
- /onequarter /onehalf /threequarters /questiondown
-% 0xC0
- /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla
- /Egrave /Eacute /Ecircumflex /Edieresis
- /Igrave /Iacute /Icircumflex /Idieresis
-% 0xD0
- /Eth /Ntilde /Ograve /Oacute
- /Ocircumflex /Otilde /Odieresis /multiply
- /Oslash /Ugrave /Uacute /Ucircumflex
- /Udieresis /Yacute /Thorn /germandbls
-% 0xE0
- /agrave /aacute /acircumflex /atilde
- /adieresis /aring /ae /ccedilla
- /egrave /eacute /ecircumflex /edieresis
- /igrave /iacute /icircumflex /idieresis
-% 0xF0
- /eth /ntilde /ograve /oacute
- /ocircumflex /otilde /odieresis /divide
- /oslash /ugrave /uacute /ucircumflex
- /udieresis /yacute /thorn /ydieresis
-] def
-
-%%EndProcSet
-%%BeginProcSet: texps.pro
-%!
-TeXDict begin/rf{findfont dup length 1 add dict begin{1 index/FID ne 2
-index/UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
-exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]/Metrics
-exch def dict begin Encoding{exch dup type/integertype ne{pop pop 1 sub
-dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}
-ifelse}forall Metrics/Metrics currentdict end def[2 index currentdict
-end definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{
-dup sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1
-roll mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def
-dup[exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}
-if}forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}
-def end
-
-%%EndProcSet
-%%BeginProcSet: special.pro
-%!
-TeXDict begin/SDict 200 dict N SDict begin/@SpecialDefaults{/hs 612 N
-/vs 792 N/ho 0 N/vo 0 N/hsc 1 N/vsc 1 N/ang 0 N/CLIP 0 N/rwiSeen false N
-/rhiSeen false N/letter{}N/note{}N/a4{}N/legal{}N}B/@scaleunit 100 N
-/@hscale{@scaleunit div/hsc X}B/@vscale{@scaleunit div/vsc X}B/@hsize{
-/hs X/CLIP 1 N}B/@vsize{/vs X/CLIP 1 N}B/@clip{/CLIP 2 N}B/@hoffset{/ho
-X}B/@voffset{/vo X}B/@angle{/ang X}B/@rwi{10 div/rwi X/rwiSeen true N}B
-/@rhi{10 div/rhi X/rhiSeen true N}B/@llx{/llx X}B/@lly{/lly X}B/@urx{
-/urx X}B/@ury{/ury X}B/magscale true def end/@MacSetUp{userdict/md known
-{userdict/md get type/dicttype eq{userdict begin md length 10 add md
-maxlength ge{/md md dup length 20 add dict copy def}if end md begin
-/letter{}N/note{}N/legal{}N/od{txpose 1 0 mtx defaultmatrix dtransform S
-atan/pa X newpath clippath mark{transform{itransform moveto}}{transform{
-itransform lineto}}{6 -2 roll transform 6 -2 roll transform 6 -2 roll
-transform{itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll
-curveto}}{{closepath}}pathforall newpath counttomark array astore/gc xdf
-pop ct 39 0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}
-if}N/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1
--1 scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3
-get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip
-yflip not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub
-neg 0 TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{
-noflips{TR pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop
-90 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get
-neg sub neg TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr
-1 get neg sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr
-2 get ppr 0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4
--1 roll add 2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S
-TR}if}N/cp{pop pop showpage pm restore}N end}if}if}N/normalscale{
-Resolution 72 div VResolution 72 div neg scale magscale{DVImag dup scale
-}if 0 setgray}N/psfts{S 65781.76 div N}N/startTexFig{/psf$SavedState
-save N userdict maxlength dict begin/magscale true def normalscale
-currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts
-/psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x
-psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx
-psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub
-TR/showpage{}N/erasepage{}N/copypage{}N/p 3 def @MacSetUp}N/doclip{
-psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
-roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
-moveto}N/endTexFig{end psf$SavedState restore}N/@beginspecial{SDict
-begin/SpecialSave save N gsave normalscale currentpoint TR
-@SpecialDefaults count/ocount X/dcount countdictstack N}N/@setspecial{
-CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
-closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
-sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
-}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
-CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
-lineto closepath clip}if/showpage{}N/erasepage{}N/copypage{}N newpath}N
-/@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{end}
-repeat grestore SpecialSave restore end}N/@defspecial{SDict begin}N
-/@fedspecial{end}B/li{lineto}B/rl{rlineto}B/rc{rcurveto}B/np{/SaveX
-currentpoint/SaveY X N 1 setlinecap newpath}N/st{stroke SaveX SaveY
-moveto}N/fil{fill SaveX SaveY moveto}N/ellipse{/endangle X/startangle X
-/yrad X/xrad X/savematrix matrix currentmatrix N TR xrad yrad scale 0 0
-1 startangle endangle arc savematrix setmatrix}N end
-
-%%EndProcSet
-%%BeginProcSet: color.pro
-%!
-TeXDict begin/setcmykcolor where{pop}{/setcmykcolor{dup 10 eq{pop
-setrgbcolor}{1 sub 4 1 roll 3{3 index add neg dup 0 lt{pop 0}if 3 1 roll
-}repeat setrgbcolor pop}ifelse}B}ifelse/TeXcolorcmyk{setcmykcolor}def
-/TeXcolorrgb{setrgbcolor}def/TeXcolorgrey{setgray}def/TeXcolorgray{
-setgray}def/TeXcolorhsb{sethsbcolor}def/currentcmykcolor where{pop}{
-/currentcmykcolor{currentrgbcolor 10}B}ifelse/DC{exch dup userdict exch
-known{pop pop}{X}ifelse}B/GreenYellow{0.15 0 0.69 0 setcmykcolor}DC
-/Yellow{0 0 1 0 setcmykcolor}DC/Goldenrod{0 0.10 0.84 0 setcmykcolor}DC
-/Dandelion{0 0.29 0.84 0 setcmykcolor}DC/Apricot{0 0.32 0.52 0
-setcmykcolor}DC/Peach{0 0.50 0.70 0 setcmykcolor}DC/Melon{0 0.46 0.50 0
-setcmykcolor}DC/YellowOrange{0 0.42 1 0 setcmykcolor}DC/Orange{0 0.61
-0.87 0 setcmykcolor}DC/BurntOrange{0 0.51 1 0 setcmykcolor}DC
-/Bittersweet{0 0.75 1 0.24 setcmykcolor}DC/RedOrange{0 0.77 0.87 0
-setcmykcolor}DC/Mahogany{0 0.85 0.87 0.35 setcmykcolor}DC/Maroon{0 0.87
-0.68 0.32 setcmykcolor}DC/BrickRed{0 0.89 0.94 0.28 setcmykcolor}DC/Red{
-0 1 1 0 setcmykcolor}DC/OrangeRed{0 1 0.50 0 setcmykcolor}DC/RubineRed{
-0 1 0.13 0 setcmykcolor}DC/WildStrawberry{0 0.96 0.39 0 setcmykcolor}DC
-/Salmon{0 0.53 0.38 0 setcmykcolor}DC/CarnationPink{0 0.63 0 0
-setcmykcolor}DC/Magenta{0 1 0 0 setcmykcolor}DC/VioletRed{0 0.81 0 0
-setcmykcolor}DC/Rhodamine{0 0.82 0 0 setcmykcolor}DC/Mulberry{0.34 0.90
-0 0.02 setcmykcolor}DC/RedViolet{0.07 0.90 0 0.34 setcmykcolor}DC
-/Fuchsia{0.47 0.91 0 0.08 setcmykcolor}DC/Lavender{0 0.48 0 0
-setcmykcolor}DC/Thistle{0.12 0.59 0 0 setcmykcolor}DC/Orchid{0.32 0.64 0
-0 setcmykcolor}DC/DarkOrchid{0.40 0.80 0.20 0 setcmykcolor}DC/Purple{
-0.45 0.86 0 0 setcmykcolor}DC/Plum{0.50 1 0 0 setcmykcolor}DC/Violet{
-0.79 0.88 0 0 setcmykcolor}DC/RoyalPurple{0.75 0.90 0 0 setcmykcolor}DC
-/BlueViolet{0.86 0.91 0 0.04 setcmykcolor}DC/Periwinkle{0.57 0.55 0 0
-setcmykcolor}DC/CadetBlue{0.62 0.57 0.23 0 setcmykcolor}DC
-/CornflowerBlue{0.65 0.13 0 0 setcmykcolor}DC/MidnightBlue{0.98 0.13 0
-0.43 setcmykcolor}DC/NavyBlue{0.94 0.54 0 0 setcmykcolor}DC/RoyalBlue{1
-0.50 0 0 setcmykcolor}DC/Blue{1 1 0 0 setcmykcolor}DC/Cerulean{0.94 0.11
-0 0 setcmykcolor}DC/Cyan{1 0 0 0 setcmykcolor}DC/ProcessBlue{0.96 0 0 0
-setcmykcolor}DC/SkyBlue{0.62 0 0.12 0 setcmykcolor}DC/Turquoise{0.85 0
-0.20 0 setcmykcolor}DC/TealBlue{0.86 0 0.34 0.02 setcmykcolor}DC
-/Aquamarine{0.82 0 0.30 0 setcmykcolor}DC/BlueGreen{0.85 0 0.33 0
-setcmykcolor}DC/Emerald{1 0 0.50 0 setcmykcolor}DC/JungleGreen{0.99 0
-0.52 0 setcmykcolor}DC/SeaGreen{0.69 0 0.50 0 setcmykcolor}DC/Green{1 0
-1 0 setcmykcolor}DC/ForestGreen{0.91 0 0.88 0.12 setcmykcolor}DC
-/PineGreen{0.92 0 0.59 0.25 setcmykcolor}DC/LimeGreen{0.50 0 1 0
-setcmykcolor}DC/YellowGreen{0.44 0 0.74 0 setcmykcolor}DC/SpringGreen{
-0.26 0 0.76 0 setcmykcolor}DC/OliveGreen{0.64 0 0.95 0.40 setcmykcolor}
-DC/RawSienna{0 0.72 1 0.45 setcmykcolor}DC/Sepia{0 0.83 1 0.70
-setcmykcolor}DC/Brown{0 0.81 1 0.60 setcmykcolor}DC/Tan{0.14 0.42 0.56 0
-setcmykcolor}DC/Gray{0 0 0 0.50 setcmykcolor}DC/Black{0 0 0 1
-setcmykcolor}DC/White{0 0 0 0 setcmykcolor}DC end
-
-%%EndProcSet
-TeXDict begin 39158280 55380996 1000 600 600 () @start
-/Fa 106[21 149[{TeXBase1Encoding ReEncodeFont}1 59.7758
-/Times-Roman rf /Fb 135[77 2[77 77 77 3[77 77 77 3[77
-3[77 77 77 99[{TeXBase1Encoding ReEncodeFont}11 129.116
-/Courier-Bold rf /Fc 134[65 65 2[65 65 65 65 1[65 65
-65 65 65 2[65 65 65 65 65 65 65 65 65 1[65 36[65 6[65
-65 65 49[{TeXBase1Encoding ReEncodeFont}25 107.597 /Courier-Bold
-rf /Fd 141[56 4[128 7[80 88 2[80 97[{TeXBase1Encoding ReEncodeFont}5
-143.462 /Helvetica-BoldOblique rf /Fe 147[21 4[37 1[33
-3[37 23[25 14[25 58[{TeXBase1Encoding ReEncodeFont}6
-74.7198 /Times-Italic rf /Ff 204[25 25 25 49[{
-TeXBase1Encoding ReEncodeFont}3 49.8132 /Times-Roman
-rf
-%DVIPSBitmapFont: Fg cmmi8 8 2
-/Fg 2 63 df<EE01C01607161FEE7F00ED01FCED07F0ED1FC0037FC7FCEC01FCEC07F0EC
-0FC0023FC8FC14FCEB03F8EB0FE0EB3F8001FEC9FCEA03F8EA0FE0EA3F8000FECAFC12F8
-12FEEA3F80EA0FE0EA03F8EA00FEEB3F80EB0FE0EB03F8EB00FC143FEC0FC0EC07F0EC01
-FCEC007FED1FC0ED07F0ED01FCED007FEE1FC0160716012A2B7AA537>60
-D<12E012F812FEEA3F80EA0FE0EA03F8EA00FEEB3F80EB0FE0EB03F8EB00FC143FEC0FC0
-EC07F0EC01FCEC007FED1FC0ED07F0ED01FCED007FEE1FC01607161FEE7F00ED01FCED07
-F0ED1FC0037FC7FCEC01FCEC07F0EC0FC0023FC8FC14FCEB03F8EB0FE0EB3F8001FEC9FC
-EA03F8EA0FE0EA3F8000FECAFC12F812E02A2B7AA537>62 D E
-%EndDVIPSBitmapFont
-/Fh 131[40 1[40 40 40 40 40 40 40 40 40 40 40 40 40 40
-40 40 1[40 40 40 1[40 40 40 40 40 1[40 5[40 3[40 40 40
-40 40 40 40 40 40 40 40 1[40 40 40 1[40 40 40 40 40 1[40
-40 40 40 40 40 1[40 4[40 1[40 1[40 40 40 40 40 40 40
-40 40 40 40 1[40 40 40 33[{TeXBase1Encoding ReEncodeFont}69
-67.2479 /Courier rf /Fi 105[37 28[37 37 54 37 37 21 29
-25 37 37 37 37 58 21 37 1[21 37 37 25 33 37 33 37 33
-7[54 54 3[46 5[54 66 46 2[25 2[42 2[50 50 54 5[21 21
-11[19 1[19 2[25 25 25 4[30 31[42 2[{TeXBase1Encoding ReEncodeFont}45
-74.7198 /Times-Roman rf /Fj 135[55 7[61 2[89 28 6[55
-3[55 27[66 69[{TeXBase1Encoding ReEncodeFont}7 99.6264
-/Helvetica-Bold rf /Fk 145[27 2[27 57[27 49[{
-TeXBase1Encoding ReEncodeFont}3 44.8318 /Courier-Oblique
-rf /Fl 135[50 3[50 50 3[50 50 3[50 50 3[50 1[50 50 2[50
-95[{TeXBase1Encoding ReEncodeFont}11 83.022 /Courier-Oblique
-rf
-%DVIPSBitmapFont: Fm cmmi10 10 2
-/Fm 2 63 df<EF0380EF0FC0173FEFFF80933803FE00EE0FF8EE3FE0EEFF80DB03FEC7FC
-ED0FF8ED3FE0EDFF80DA03FEC8FCEC0FF8EC3FE0ECFF80D903FEC9FCEB0FF8EB3FE0EBFF
-80D803FECAFCEA0FF8EA3FE0EA7F8000FECBFCA2EA7F80EA3FE0EA0FF8EA03FEC66C7EEB
-3FE0EB0FF8EB03FE903800FF80EC3FE0EC0FF8EC03FE913800FF80ED3FE0ED0FF8ED03FE
-923800FF80EE3FE0EE0FF8EE03FE933800FF80EF3FC0170FEF0380323279AD41>60
-D<126012FCB4FCEA7FC0EA1FF0EA07FCEA01FF38007FC0EB1FF0EB07FCEB01FF9038007F
-C0EC1FF0EC07FCEC01FF9138007FC0ED1FF0ED07FCED01FF9238007FC0EE1FF0EE07FCEE
-01FF9338007F80EF1FC0A2EF7F80933801FF00EE07FCEE1FF0EE7FC04B48C7FCED07FCED
-1FF0ED7FC04A48C8FCEC07FCEC1FF0EC7FC04948C9FCEB07FCEB1FF0EB7FC04848CAFCEA
-07FCEA3FF0EA7FC048CBFC12FC1270323279AD41>62 D E
-%EndDVIPSBitmapFont
-/Fn 134[45 45 1[45 45 45 45 45 1[45 45 45 45 45 1[45
-45 45 45 45 45 45 45 45 45 1[45 5[45 2[45 8[45 5[45 2[45
-45 1[45 19[45 45 44[{TeXBase1Encoding ReEncodeFont}32
-74.7198 /Courier-Oblique rf
-%DVIPSBitmapFont: Fo cmmi9 9 2
-/Fo 2 63 df<171C177EEE01FEEE07FCEE1FF0EE7FC0923801FF00ED07FCED1FF0ED7FC0
-4A48C7FCEC07FCEC1FF0EC7FC04948C8FCEB07FCEB1FF0EB7FC04848C9FCEA07FCEA1FF0
-EA7FC048CAFCA2EA7FC0EA1FF0EA07FCEA01FF38007FC0EB1FF0EB07FCEB01FF9038007F
-C0EC1FF0EC07FCEC01FF9138007FC0ED1FF0ED07FCED01FF9238007FC0EE1FF0EE07FCEE
-01FEEE007E171C2F2E7AA93C>60 D<127012FCB4FCEA7FC0EA1FF0EA07FCEA01FF38007F
-C0EB1FF0EB07FCEB01FF9038007FC0EC1FF0EC07FCEC01FF9138007FC0ED1FF0ED07FCED
-01FF9238007FC0EE1FF0EE07FCEE01FEA2EE07FCEE1FF0EE7FC0923801FF00ED07FCED1F
-F0ED7FC04A48C7FCEC07FCEC1FF0EC7FC04948C8FCEB07FCEB1FF0EB7FC04848C9FCEA07
-FCEA1FF0EA7FC048CAFC12FC12702F2E7AA93C>62 D E
-%EndDVIPSBitmapFont
-/Fp 134[66 66 93 66 73 40 66 47 1[73 73 73 106 33 2[33
-73 73 40 66 73 66 73 66 8[80 113 80 86 73 80 86 1[80
-1[86 100 73 2[33 86 1[73 80 86 86 1[86 1[73 5[66 66 66
-66 66 66 66 66 66 66 1[33 40 33 2[40 40 5[57 31[73 2[{
-TeXBase1Encoding ReEncodeFont}58 119.552 /Helvetica-Bold
-rf /Fq 129[45 45 45 45 45 45 45 45 45 45 45 45 45 45
-45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45 45
-45 45 45 45 1[45 45 45 45 45 45 45 45 45 45 45 45 45
-45 45 1[45 45 45 45 45 45 45 45 45 45 45 45 45 45 45
-45 45 45 45 1[45 45 45 45 45 45 45 45 45 45 45 45 45
-45 45 45 45 1[45 45 45 33[{TeXBase1Encoding ReEncodeFont}90
-74.7198 /Courier rf /Fr 134[37 37 55 37 42 23 32 32 1[42
-42 42 60 23 37 23 23 42 42 23 37 42 37 42 42 1[42 6[51
-69 1[60 46 42 2[51 1[55 69 46 2[28 3[51 60 55 1[51 1[42
-4[28 42 42 42 42 42 42 42 42 42 42 1[21 28 21 2[28 28
-6[28 30[42 2[{TeXBase1Encoding ReEncodeFont}58 83.022
-/Times-Italic rf /Fs 138[105 57 96 67 1[105 105 105 153
-48 1[48 48 105 105 57 96 105 96 105 96 8[115 163 1[124
-105 3[115 2[143 105 5[105 2[124 3[105 10[96 96 96 96
-2[48 43[105 2[{TeXBase1Encoding ReEncodeFont}35 172.154
-/Helvetica-Bold rf /Ft 106[23 29 29 25[33 33 48 33 33
-18 26 22 1[33 33 33 52 18 33 18 18 33 33 22 29 33 29
-33 29 8[48 3[41 37 2[37 6[22 1[48 12[18 10[18 17 1[17
-2[22 22 5[27 31[37 2[{TeXBase1Encoding ReEncodeFont}41
-66.4176 /Times-Roman rf /Fu 134[42 42 60 42 46 28 32
-37 1[46 42 46 69 23 46 1[23 46 42 28 37 46 37 46 42 9[83
-60 60 55 46 60 3[60 78 55 2[32 65 65 51 55 60 60 55 60
-1[42 6[42 1[42 42 42 42 42 42 2[21 28 21 4[28 39[{
-TeXBase1Encoding ReEncodeFont}53 83.022 /Times-Bold rf
-/Fv 27[37 58[63 42[45 40 1[40 37 42 42 60 42 42 23 32
-28 42 42 42 42 65 23 42 23 23 42 42 28 37 42 37 42 37
-28 42 1[28 23 28 1[60 60 78 60 60 51 46 55 60 46 60 60
-74 51 60 1[28 60 60 46 51 60 55 55 60 1[37 47 47 47 23
-23 42 42 42 42 42 42 42 42 42 42 23 21 28 21 2[28 28
-28 65 69 1[42 34 28 29[46 46 2[{TeXBase1Encoding ReEncodeFont}90
-83.022 /Times-Roman rf /Fw 136[65 1[51 1[46 32 2[51 51
-1[23 2[23 51 51 1[46 51 2[46 8[55 3[51 3[55 11[60 9[28
-18[23 39[{TeXBase1Encoding ReEncodeFont}19 83.022 /Helvetica-Bold
-rf /Fx 134[80 80 112 80 88 48 80 56 1[88 88 88 128 40
-80 1[40 88 88 48 80 88 80 88 80 8[96 1[96 104 88 96 104
-2[112 104 120 88 2[40 104 112 1[96 104 104 1[104 6[48
-4[80 80 80 80 80 2[40 48 45[{TeXBase1Encoding ReEncodeFont}48
-143.462 /Helvetica-Bold rf /Fy 138[126 1[115 80 8[57
-126 126 1[115 126 11[138 2[149 126 3[138 6[57 26[57 6[57
-39[{TeXBase1Encoding ReEncodeFont}15 206.584 /Helvetica-Bold
-rf end
-%%EndProlog
-%%BeginSetup
-%%Feature: *Resolution 600dpi
-TeXDict begin
-%%BeginPaperSize: a4
-a4
-%%EndPaperSize
-
-%%EndSetup
-%%Page: 1 1
-1 0 bop Black Black 890 647 a Fy(The)58 b(PXP)f(user')-12
-b(s)58 b(guide)1384 2594 y Fx(Ger)m(d)39 b(Stolpmann)p
-Black Black eop
-%%Page: 2 2
-2 1 bop Black Black -2 579 a Fw(The)22 b(PXP)j(user')-5
-b(s)23 b(guide)-2 687 y Fv(by)d(Gerd)f(Stolpmann)-2 903
-y(Cop)o(yright)f(\251)j(1999,)e(2000)g(by)g(Gerd)h(Stolpmann)-2
-1135 y(PXP)h(is)g(a)g(v)n(alidating)d(parser)i(for)f(XML-1.0)g(which)h
-(has)g(been)g(written)g(entirely)f(in)h(Objecti)n(v)o(e)g(Caml.)-2
-1285 y Fw(Do)o(wnload)h(PXP:)j Fv(The)c(free)g(PXP)h(library)e(can)h
-(be)g(do)n(wnloaded)d(at)k(http://www)-5 b(.ocaml-programming)o(.de)o
-(/pack)o(age)o(s/.)15 b(This)-2 1393 y(user')-5 b(s)20
-b(guide)f(is)j(included.)c(Ne)n(west)j(releases)f(of)g(PXP)h(will)g(be)
-f(announced)e(in)i(The)g(OCaml)g(Link)g(Database)-2 1500
-y(\(http://www)-5 b(.npc.de/ocaml/linkdb)o(/\).)-2 1899
-y Fu(License)-2 2090 y Ft(This)16 b(document,)j(and)e(the)h(described)h
-(softw)o(are,)f("PXP",)e(are)i(cop)o(yright)i(by)d(Gerd)g(Stolpmann.)-2
-2198 y(Permission)h(is)e(hereby)j(granted,)f(free)g(of)f(char)o(ge,)h
-(to)f(an)o(y)h(person)f(obtaining)j(a)d(cop)o(y)h(of)f(this)h(document)
-g(and)g(the)f("PXP")g(softw)o(are)i(\(the)f("Softw)o(are"\),)g(to)f
-(deal)i(in)-2 2306 y(the)f(Softw)o(are)g(without)h(restriction,)g
-(including)h(without)e(limitation)i(the)e(rights)g(to)f(use,)g(cop)o(y)
-l(,)g(modify)l(,)g(mer)o(ge,)g(publish,)h(distrib)o(ute,)h(sublicense,)
-g(and/or)f(sell)-2 2414 y(copies)g(of)f(the)h(Softw)o(are,)g(and)g(to)f
-(permit)h(persons)f(to)h(whom)e(the)i(Softw)o(are)h(is)e(furnished)h
-(to)f(do)g(so,)g(subject)h(to)g(the)f(follo)n(wing)j(conditions:)-2
-2522 y(The)d(abo)o(v)o(e)h(cop)o(yright)h(notice)g(and)f(this)f
-(permission)h(notice)h(shall)f(be)g(included)h(in)e(all)h(copies)h(or)e
-(substantial)i(portions)g(of)e(the)g(Softw)o(are.)-2
-2630 y(The)g(Softw)o(are)h(is)f(pro)o(vided)i(\223as)e(is\224,)g
-(without)i(w)o(arranty)g(of)e(an)o(y)g(kind,)h(e)o(xpress)f(or)g
-(implied,)i(including)g(b)o(ut)e(not)h(limited)h(to)e(the)h(w)o
-(arranties)h(of)e(merchantability)l(,)-2 2737 y(\002tness)g(for)g(a)g
-(particular)j(purpose)e(and)g(noninfringement.)i(In)d(no)g(e)n(v)o(ent)
-h(shall)h(Gerd)e(Stolpmann)h(be)g(liable)h(for)e(an)o(y)g(claim,)h
-(damages)g(or)f(other)h(liability)l(,)i(whether)-2 2845
-y(in)d(an)g(action)i(of)e(contract,)i(tort)f(or)f(otherwise,)i(arising)
-f(from,)e(out)i(of)f(or)g(in)g(connection)j(with)e(the)f(Softw)o(are)i
-(or)e(the)h(use)f(or)g(other)h(dealings)h(in)e(the)h(softw)o(are.)p
-Black Black eop
-%%Page: 3 3
-3 2 bop Black Black -2 621 a Fs(T)-14 b(ab)n(le)48 b(of)g(Contents)396
-815 y Fu(I.)21 b(User')m(s)g(guide)p Black 4 w(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black 4 w(6)596
-943 y Fv(1.)f(What)g(is)h(XML?)p Black 4 w(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black 4 w(7)795 1051
-y(1.1.)e(Introduction)p Black 14 w(.)p Black Black -1
-w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black 4 w(7)994 1159
-y(1.1.1.)g(The)g("hello)h(w)o(orld")g(e)o(xample)p Black
-13 w(.)p Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black 4 w(7)994 1267 y(1.1.2.)f(XML)h(parsers)g(and)f
-(processors)p Black 3 w(.)p Black Black -2 w(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black 4 w(9)994 1375 y(1.1.3.)g(Discussion)p
-Black 9 w(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-4 w(9)795 1483 y(1.2.)g(Highlights)g(of)h(XML)p Black
-10 w(.)p Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(11)994
-1591 y(1.2.1.)f(The)g(DTD)i(and)e(the)i(instance)p Black
-15 w(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black 4 w(11)994 1699 y(1.2.2.)e(Reserv)o(ed)g(characters)p
-Black 19 w(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black 4 w(12)994 1807 y(1.2.3.)g(Elements)g(and)h
-(ELEMENT)f(declarations)p Black 7 w(.)p Black Black -2
-w(.)p Black Black(.)p Black Black(.)p Black Black -1
-w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(13)994
-1915 y(1.2.4.)g(Attrib)n(ute)g(lists)j(and)e(A)-9 b(TTLIST)19
-b(declarations)p Black 6 w(.)p Black Black -2 w(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black 4 w(15)994 2023 y(1.2.5.)g(P)o(arsed)g(entities)p
-Black 18 w(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black 4 w(16)994 2131 y(1.2.6.)g(Notations)g(and)h
-(unparsed)e(entities)p Black 14 w(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black 4 w(19)795 2238 y(1.3.)h(A)i(complete)e(e)o(xample:)g
-(The)h Fr(r)m(eadme)f Fv(DTD)p Black 3 w(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black 4 w(20)596 2346 y(2.)h(Using)g(PXP)p Black
-6 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black 4 w(24)795 2454 y(2.1.)f(V)-9 b(alidation)p
-Black 3 w(.)p Black Black -2 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(24)795
-2562 y(2.2.)19 b(Ho)n(w)h(to)g(parse)g(a)h(document)d(from)h(an)h
-(application)p Black 10 w(.)p Black Black -2 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(24)795
-2670 y(2.3.)f(Class-based)h(processing)f(of)h(the)g(node)g(tree)p
-Black 8 w(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(29)795
-2778 y(2.4.)f(Example:)g(An)h(HTML)g(back)o(end)f(for)g(the)i
-Fr(r)m(eadme)e Fv(DTD)p Black 3 w(.)p Black Black -1
-w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black 4 w(33)994 2886 y(2.4.1.)g(Header)p
-Black 9 w(.)p Black Black -2 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black 4 w(33)994 2994 y(2.4.2.)g(T)-7 b(ype)19
-b(declarations)p Black 14 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black 4 w(33)994 3102 y(2.4.3.)g(Class)i Fq(store)p Black
-11 w Fv(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black 4 w(34)994 3210 y(2.4.4.)e(Function)g
-Fq(escape_html)p Black Fv(.)p Black Black -2 w(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-4 w(35)994 3318 y(2.4.5.)g(V)-5 b(irtual)20 b(class)h
-Fq(shared)p Black 4 w Fv(.)p Black Black -2 w(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black 4 w(35)994 3426 y(2.4.6.)e(Class)i
-Fq(only_data)p Black 17 w Fv(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(36)994
-3534 y(2.4.7.)e(Class)i Fq(readme)p Black 8 w Fv(.)p
-Black Black -1 w(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black 4 w(36)994 3642 y(2.4.8.)e(Classes)i
-Fq(section)p Fv(,)f Fq(sect1)p Fv(,)f Fq(sect2)p Fv(,)h(and)g
-Fq(sect3)p Black 13 w Fv(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black 4 w(39)994 3749 y(2.4.9.)f(Classes)i
-Fq(map_tag)p Fv(,)f Fq(p)p Fv(,)g Fq(em)p Fv(,)g Fq(ul)p
-Fv(,)g Fq(li)p Black 16 w Fv(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(39)994
-3857 y(2.4.10.)e(Class)k Fq(br)p Black Fv(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black 4 w(40)994 3965 y(2.4.11.)c(Class)k
-Fq(code)p Black 13 w Fv(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black 4 w(40)994 4073 y(2.4.12.)c(Class)k
-Fq(a)p Black 4 w Fv(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(41)994
-4181 y(2.4.13.)c(Class)k Fq(footnote)p Black 1 w Fv(.)p
-Black Black -2 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black 4 w(42)994 4289
-y(2.4.14.)c(The)i(speci\002cation)f(of)h(the)g(document)f(model)p
-Black 12 w(.)p Black Black -2 w(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black 4 w(43)596 4397 y(3.)h(The)f(objects)h
-(representing)e(the)j(document)p Black 4 w(.)p Black
-Black -3 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-4 w(46)795 4505 y(3.1.)e(The)h Fq(document)f Fv(class)p
-Black 7 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black 4 w(46)795 4613 y(3.2.)g(The)h(class)h(type)f
-Fq(node)p Black 2 w Fv(.)p Black Black -2 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-4 w(47)994 4721 y(3.2.1.)f(The)g(structure)h(of)g(document)e(trees)p
-Black 3 w(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(49)994
-4829 y(3.2.2.)h(The)g(methods)h(of)f(the)i(class)g(type)f
-Fq(node)p Black 13 w Fv(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black 4 w(52)p Black 3842
-5278 a Fr(3)p Black eop
-%%Page: 4 4
-4 3 bop Black Black 994 579 a Fv(3.2.3.)19 b(The)g(class)j
-Fq(element_impl)p Black 2 w Fv(.)p Black Black -3 w(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black 4 w(56)994 687 y(3.2.4.)d(The)g(class)j Fq(data_impl)p
-Black 12 w Fv(.)p Black Black -2 w(.)p Black Black -1
-w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(57)994
-795 y(3.2.5.)d(The)g(type)h Fq(spec)p Black 5 w Fv(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black 4 w(58)994 903 y(3.2.6.)f(Examples)p Black
-5 w(.)p Black Black -3 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(60)994
-1011 y(3.2.7.)g(Iterators)p Black 12 w(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black 4 w(64)795 1119 y(3.3.)g(The)h(class)h(type)f Fq(extension)p
-Black 6 w Fv(.)p Black Black -2 w(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black 4 w(65)994 1226 y(3.3.1.)f(Ho)n(w)h(to)g(de\002ne)
-g(an)g(e)o(xtension)f(class)p Black 13 w(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black 4 w(66)994 1334
-y(3.3.2.)g(Ho)n(w)h(to)g(bind)f(e)o(xtension)g(classes)i(to)g(element)e
-(types)p Black 10 w(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-4 w(68)795 1442 y(3.4.)g(Details)i(of)f(the)g(mapping)e(from)i(XML)g
-(te)o(xt)g(to)g(the)g(tree)h(representation)p Black 13
-w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(69)994
-1550 y(3.4.1.)e(The)g(representation)g(of)g(character)n(-free)f
-(elements)p Black 9 w(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-4 w(69)994 1658 y(3.4.2.)h(The)g(representation)g(of)g(character)g
-(data)p Black 10 w(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black 4 w(70)994 1766
-y(3.4.3.)g(The)g(representation)g(of)g(entities)i(within)f(documents)p
-Black 12 w(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black 4 w(70)994 1874 y(3.4.4.)f(The)g(representation)g
-(of)g(attrib)n(utes)p Black 20 w(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black 4 w(71)994 1982 y(3.4.5.)g(The)g(representation)g(of)g
-(processing)g(instructions)p Black(.)p Black Black -1
-w(.)p Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black 4 w(71)994 2090 y(3.4.6.)g(The)g
-(representation)g(of)g(comments)p Black 7 w(.)p Black
-Black -1 w(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black 4 w(71)994 2198 y(3.4.7.)g(The)g(attrib)n(utes)i
-Fq(xml:lang)e Fv(and)h Fq(xml:space)p Black 10 w Fv(.)p
-Black Black -2 w(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black 4 w(72)994 2306 y(3.4.8.)f(And)g(what)h(about)g(namespaces?)p
-Black 12 w(.)p Black Black -2 w(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(72)596
-2414 y(4.)g(Con\002guring)e(and)h(calling)h(the)g(parser)p
-Black 11 w(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black 4 w(73)795 2522 y(4.1.)f(Ov)o(ervie)n(w)p
-Black 19 w(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(73)795
-2630 y(4.2.)g(Resolv)o(ers)h(and)g(sources)p Black 2
-w(.)p Black Black -1 w(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black 4 w(75)994 2737
-y(4.2.1.)f(Using)h(the)g(b)n(uilt-in)f(resolv)o(ers)h(\(called)f
-(sources\))p Black 5 w(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-4 w(75)994 2845 y(4.2.2.)g(The)g(resolv)o(er)g(API)p
-Black 11 w(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black 4 w(76)994 2953 y(4.2.3.)g(Prede\002ned)f(resolv)o(er)h
-(components)p Black 13 w(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black 4 w(78)795 3061
-y(4.3.)g(The)h(DTD)g(classes)p Black 1 w(.)p Black Black
-1 w(.)p Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(81)795
-3169 y(4.4.)f(In)m(v)n(oking)f(the)i(parser)p Black 14
-w(.)p Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(89)994
-3277 y(4.4.1.)f(Def)o(aults)p Black 10 w(.)p Black Black
--1 w(.)p Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black 4 w(89)994 3385 y(4.4.2.)g(P)o(arsing)g(functions)p
-Black 4 w(.)p Black Black -3 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black 4 w(90)994 3493 y(4.4.3.)g(Con\002guration)f(options)p
-Black 19 w(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black 4 w(91)994 3601 y(4.4.4.)h(Which)h
-(con\002guration)d(should)i(I)i(use?)p Black 18 w(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-4 w(93)795 3709 y(4.5.)e(Updates)p Black 10 w(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black 4 w(95)p Black 3842 5278 a
-Fr(4)p Black eop
-%%Page: 5 5
-5 4 bop Black Black -2 621 a Fs(List)48 b(of)g(Figures)396
-815 y Fv(3-1.)19 b(A)i(tree)f(with)h(element)e(nodes,)h(data)g(nodes,)f
-(and)g(attrib)n(utes)p Black 18 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black 4 w(49)396 923 y(3-2.)g(Nodes)h(are)g(doubly)f(link)o
-(ed)g(trees)p Black 15 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black 4 w(50)396
-1031 y(3-3.)g(A)i(node)e(can)h(only)g(be)g(added)f(if)h(it)h(is)g(a)g
-(root)p Black 5 w(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black 4 w(51)396 1139 y(3-4.)e(A)i(deleted)f(node)f
-(becomes)g(the)h(root)g(of)g(the)g(subtree)p Black 3
-w(.)p Black Black -1 w(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-4 w(51)396 1247 y(3-5.)f(The)h(clone)g(of)g(a)g(subtree)p
-Black 18 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black 4 w(52)396 1355 y(3-6.)f(The)h(structure)g
-(of)f(nodes)h(and)g(e)o(xtensions)p Black 18 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black -1 w(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black Black(.)p Black Black(.)p Black Black(.)p Black
-Black -1 w(.)p Black Black(.)p Black Black(.)p Black
-Black(.)p Black Black -1 w(.)p Black Black(.)p Black
-Black(.)p Black Black(.)p Black Black -1 w(.)p Black
-Black(.)p Black Black(.)p Black Black(.)p Black Black
--1 w(.)p Black Black(.)p Black Black(.)p Black Black(.)p
-Black Black -1 w(.)p Black Black(.)p Black Black(.)p
-Black Black(.)p Black Black(.)p Black Black -1 w(.)p
-Black 4 w(65)p Black 3842 5278 a Fr(5)p Black eop
-%%Page: 6 6
-6 5 bop Black Black 1241 647 a Fy(I.)58 b(User')-12 b(s)57
-b(guide)p Black Black eop
-%%Page: 7 7
-7 6 bop Black Black -2 621 a Fs(Chapter)48 b(1.)f(What)h(is)f(XML?)-2
-1055 y Fx(1.1.)39 b(Intr)m(oduction)396 1235 y Fv(XML)20
-b(\(short)g(for)f Fr(Extensible)h(Markup)g(Langua)o(g)o(e)p
-Fv(\))e(generalizes)h(the)h(idea)g(that)g(te)o(xt)g(documents)f(are)h
-(typically)396 1343 y(structured)f(in)h(sections,)g(sub-sections,)f
-(paragraphs,)f(and)i(so)g(on.)g(The)g(format)f(of)h(the)g(document)e
-(is)j(not)f(\002x)o(ed)g(\(as,)396 1451 y(for)g(e)o(xample,)e(in)j
-(HTML\),)e(b)n(ut)h(can)g(be)g(declared)f(by)h(a)h(so-called)e(DTD)i
-(\(document)c(type)j(de\002nition\).)f(The)g(DTD)396
-1559 y(describes)h(only)f(the)i(rules)f(ho)n(w)f(the)i(document)d(can)i
-(be)g(structured,)e(b)n(ut)j(not)e(ho)n(w)h(the)g(document)e(can)i(be)
-396 1667 y(processed.)f(F)o(or)h(e)o(xample,)e(if)j(you)e(w)o(ant)i(to)
-f(publish)f(a)i(book)e(that)h(uses)h(XML)f(markup,)e(you)h(will)i(need)
-f(a)g(processor)396 1775 y(that)h(con)m(v)o(erts)d(the)i(XML)g(\002le)h
-(into)f(a)h(printable)e(format)g(such)h(as)h(Postscript.)f(On)g(the)g
-(one)g(hand,)f(the)h(structure)f(of)396 1883 y(XML)h(documents)f(is)i
-(con\002gurable;)d(on)i(the)g(other)f(hand,)g(there)h(is)h(no)f(longer)
-f(a)h(canonical)f(interpretation)f(of)i(the)396 1991
-y(elements)g(of)g(the)g(document;)f(for)g(e)o(xample)g(one)h(XML)g(DTD)
-g(might)g(w)o(ant)g(that)g(paragraphes)e(are)i(delimited)g(by)396
-2099 y Fq(para)g Fv(tags,)h(and)e(another)g(DTD)h(e)o(xpects)g
-Fq(p)g Fv(tags)h(for)e(the)i(same)f(purpose.)e(As)j(a)g(result,)f(for)g
-(e)n(v)o(ery)e(DTD)j(a)f(ne)n(w)396 2206 y(processor)f(is)i(required.)
-396 2356 y(Although)e(XML)h(can)g(be)g(used)g(to)g(e)o(xpress)g
-(structured)f(te)o(xt)h(documents)e(it)j(is)g(not)f(limited)g(to)g
-(this)h(kind)e(of)396 2464 y(application.)g(F)o(or)h(e)o(xample,)e(XML)
-i(can)g(also)h(be)f(used)g(to)g(e)o(xchange)e(structured)h(data)h(o)o
-(v)o(er)f(a)h(netw)o(ork,)f(or)h(to)396 2572 y(simply)g(store)g
-(structured)f(data)h(in)g(\002les.)h(Note)f(that)h(XML)f(documents)e
-(cannot)i(contain)f(arbitrary)f(binary)h(data)396 2680
-y(because)g(some)g(characters)g(are)g(forbidden;)e(for)i(some)g
-(applications)g(you)f(need)h(to)h(encode)e(binary)g(data)h(as)h(te)o
-(xt)g(\(e.g.)396 2788 y(the)g(base)h(64)f(encoding\).)-2
-3116 y Fp(1.1.1.)35 b(The)f("hello)g(w)n(orld")e(e)n(xample)396
-3283 y Fv(The)20 b(follo)n(wing)f(e)o(xample)f(sho)n(ws)j(a)f(v)o(ery)f
-(simple)i(DTD,)f(and)f(a)i(corresponding)c(document)h(instance.)h(The)
-396 3391 y(document)f(is)k(structured)c(such)i(that)h(it)f(consists)h
-(of)f(sections,)g(and)g(that)g(sections)g(consist)h(of)f(paragraphs,)d
-(and)j(that)396 3499 y(paragraphs)e(contain)h(plain)h(te)o(xt:)396
-3679 y Fq(<!ELEMENT)44 b(document)f(\(section\)+>)396
-3777 y(<!ELEMENT)h(section)f(\(paragraph\)+>)396 3874
-y(<!ELEMENT)h(paragraph)f(\(#PCDATA\)>)396 4065 y Fv(The)20
-b(follo)n(wing)f(document)f(is)j(an)f(instance)g(of)g(this)h(DTD:)396
-4245 y Fq(<?xml)44 b(version="1.0")f(encoding="ISO-8859-1"?>)396
-4342 y(<!DOCTYPE)h(document)f(SYSTEM)h("simple.dtd">)396
-4439 y(<document>)486 4536 y(<section>)576 4633 y(<paragraph>This)e(is)
-i(a)h(paragraph)e(of)i(the)f(first)g(section.</paragraph>)576
-4731 y(<paragraph>This)e(is)i(another)g(paragraph)f(of)i(the)f(first)g
-(section.</paragraph>)486 4828 y(</section>)p Black 3839
-5278 a Fr(7)p Black eop
-%%Page: 8 8
-8 7 bop Black 3028 67 a Fr(Chapter)19 b(1.)h(What)h(is)g(XML?)p
-Black 486 579 a Fq(<section>)576 676 y(<paragraph>This)42
-b(is)i(the)h(only)f(paragraph)f(of)i(the)f(second)g
-(section.</paragraph>)486 773 y(</section>)396 870 y(</document>)396
-1061 y Fv(As)21 b(in)g(HTML)f(\(and,)f(of)h(course,)f(in)h(grand-f)o
-(ather)d(SGML\),)j(the)g("pieces")g(of)g(the)g(document)f(are)h
-(delimited)f(by)396 1169 y(element)h(braces,)f(i.e.)i(such)f(a)g(piece)
-g(be)o(gins)f(with)i Fo(<)p Fq(name-of-the-type-of-the-piece)p
-Fo(>)15 b Fv(and)20 b(ends)g(with)396 1277 y Fo(<)p Fq
-(/name-of-the-type-of-the-piece)p Fo(>)p Fv(,)15 b(and)20
-b(the)g(pieces)g(are)g(called)g Fr(elements)p Fv(.)g(Unlik)o(e)g(HTML)g
-(and)396 1385 y(SGML,)g(both)g(start)g(tags)h(and)f(end)f(tags)i
-(\(i.e.)f(the)g(delimiters)g(written)g(in)g(angle)g(brack)o(ets\))f
-(can)h(ne)n(v)o(er)f(be)h(left)g(out.)396 1493 y(F)o(or)g(e)o(xample,)f
-(HTML)h(calls)h(the)f(paragraphs)e(simply)i Fq(p)p Fv(,)g(and)f
-(because)h(paragraphs)e(ne)n(v)o(er)h(contain)g(paragraphs,)f(a)396
-1601 y(sequence)h(of)h(se)n(v)o(eral)g(paragraphs)e(can)i(be)g(written)
-g(as:)396 1781 y Fq(<p>First)44 b(paragraph)396 1878
-y(<p>Second)g(paragraph)396 2069 y Fv(This)21 b(is)g(not)f(possible)g
-(in)g(XML;)g(continuing)e(our)i(e)o(xample)e(abo)o(v)o(e)h(we)h(must)h
-(al)o(w)o(ays)f(write)396 2249 y Fq(<paragraph>First)42
-b(paragraph</paragraph>)396 2346 y(<paragraph>Second)g
-(paragraph</paragraph>)396 2537 y Fv(The)20 b(rationale)f(behind)g
-(that)h(is)i(to)e(\(1\))f(simplify)h(the)g(de)n(v)o(elopment)d(of)j
-(XML)h(parsers)f(\(you)e(need)i(not)g(con)m(v)o(ert)e(the)396
-2645 y(DTD)j(into)f(a)g(deterministic)f(\002nite)i(automaton)d(which)i
-(is)h(required)d(to)j(detect)f(omitted)f(tags\),)h(and)g(to)g(\(2\))g
-(mak)o(e)f(it)396 2753 y(possible)h(to)h(parse)e(the)i(document)d
-(independent)f(of)j(whether)f(the)i(DTD)f(is)h(kno)n(wn)e(or)h(not.)396
-2903 y(The)g(\002rst)h(line)f(of)g(our)g(sample)g(document,)396
-3083 y Fq(<?xml)44 b(version="1.0")f(encoding="ISO-8859-1"?>)396
-3274 y Fv(is)21 b(the)e(so-called)g Fr(XML)h(declar)o(ation)p
-Fv(.)d(It)j(e)o(xpresses)e(that)i(the)f(document)f(follo)n(ws)h(the)g
-(con)m(v)o(entions)e(of)i(XML)g(v)o(ersion)396 3382 y(1.0,)h(and)f
-(that)h(the)h(document)d(is)j(encoded)d(using)i(characters)f(from)g
-(the)i(ISO-8859-1)c(character)i(set)i(\(often)e(kno)n(wn)396
-3490 y(as)i("Latin)e(1",)g(mostly)h(used)f(in)h(W)-7
-b(estern)20 b(Europe\).)d(Although)h(the)i(XML)g(declaration)e(is)i
-(not)g(mandatory)-5 b(,)16 b(it)21 b(is)f(good)396 3598
-y(style)h(to)f(include)f(it;)i(e)n(v)o(erybody)c(sees)k(at)g(the)f
-(\002rst)h(glance)f(that)g(the)g(document)e(uses)j(XML)f(markup)f(and)g
-(not)h(the)396 3706 y(similar)n(-looking)e(HTML)i(and)g(SGML)g(markup)f
-(languages.)f(If)i(you)g(omit)g(the)g(XML)g(declaration,)e(the)j
-(parser)e(will)396 3813 y(assume)h(that)h(the)f(document)e(is)j
-(encoded)e(as)i(UTF-8)e(or)h(UTF-16)f(\(there)h(is)h(a)g(rule)e(that)i
-(mak)o(es)f(it)h(possible)f(to)396 3921 y(distinguish)f(between)h
-(UTF-8)g(and)f(UTF-16)g(automatically\);)g(these)h(are)g(encodings)f
-(of)h(Unicode')-5 b(s)19 b(uni)n(v)o(ersal)396 4029 y(character)g(set.)
-i(\(Note)f(that)g(PXP,)h(unlik)o(e)e(its)i(predecessor)e("Markup",)f
-(fully)i(supports)f(Unicode.\))396 4179 y(The)h(second)f(line,)396
-4359 y Fq(<!DOCTYPE)44 b(document)f(SYSTEM)h("simple.dtd">)396
-4550 y Fv(names)20 b(the)g(DTD)h(that)f(is)h(going)e(to)h(be)g(used)g
-(for)g(the)g(rest)h(of)f(the)g(document.)e(In)i(general,)f(it)i(is)g
-(possible)f(that)g(the)396 4658 y(DTD)h(consists)f(of)g(tw)o(o)h
-(parts,)f(the)g(so-called)f(e)o(xternal)g(and)h(the)g(internal)f
-(subset.)h("External")f(means)h(that)g(the)h(DTD)396
-4766 y(e)o(xists)g(as)g(a)f(second)g(\002le;)h("internal")e(means)h
-(that)g(the)g(DTD)h(is)g(included)d(in)j(the)f(same)g(\002le.)h(In)f
-(this)g(e)o(xample,)f(there)p Black 3842 5278 a Fr(8)p
-Black eop
-%%Page: 9 9
-9 8 bop Black 3028 67 a Fr(Chapter)19 b(1.)h(What)h(is)g(XML?)p
-Black 396 579 a Fv(is)g(only)f(an)g(e)o(xternal)f(subset,)h(and)g(the)g
-(system)g(identi\002er)g("simple.dtd")e(speci\002es)j(where)f(the)g
-(DTD)g(\002le)h(can)f(be)396 687 y(found.)e(System)j(identi\002ers)f
-(are)g(interpreted)e(as)j(URLs;)g(for)f(instance)g(this)g(w)o(ould)g
-(be)g(le)o(gal:)396 867 y Fq(<!DOCTYPE)44 b(document)f(SYSTEM)h
-("http://host/location/simple.dtd">)396 1058 y Fv(Please)21
-b(note)f(that)g(PXP)h(cannot)e(interpret)g(HTTP)i(identi\002ers)e(by)h
-(def)o(ault,)f(b)n(ut)i(it)g(is)g(possible)f(to)g(change)f(the)396
-1166 y(interpretation)f(of)i(system)h(identi\002ers.)396
-1315 y(The)f(w)o(ord)g(immediately)f(follo)n(wing)f Fq(DOCTYPE)i
-Fv(determines)f(which)g(of)h(the)g(declared)f(element)h(types)g(\(here)
-396 1423 y("document",)e("section",)h(and)h("paragraph"\))d(is)k(used)f
-(for)g(the)g(outermost)f(element,)g(the)h Fr(r)l(oot)h(element)q
-Fv(.)f(In)g(this)396 1531 y(e)o(xample)f(it)i(is)g Fq(document)f
-Fv(because)f(the)h(outermost)f(element)h(is)h(delimited)e(by)h
-Fo(<)p Fq(document)p Fo(>)f Fv(and)396 1639 y Fo(<)p
-Fq(/document)p Fo(>)p Fv(.)396 1789 y(The)h(DTD)g(consists)h(of)f
-(three)g(declarations)f(for)g(element)h(types:)g Fq(document)p
-Fv(,)f Fq(section)p Fv(,)g(and)h Fq(paragraph)p Fv(.)f(Such)396
-1896 y(a)i(declaration)d(has)j(tw)o(o)f(parts:)396 2077
-y Fo(<)p Fq(!ELEMENT)43 b Fn(name)i(content-model)p Fo(>)396
-2268 y Fv(The)20 b(content)f(model)h(is)h(a)f(re)o(gular)f(e)o
-(xpression)g(which)g(describes)h(the)g(possible)g(inner)f(structure)h
-(of)g(the)g(element.)396 2376 y(Here,)g Fq(document)f
-Fv(contains)h(one)g(or)g(more)f(sections,)h(and)g(a)g
-Fq(section)g Fv(contains)f(one)h(or)g(more)f(paragraphs.)f(Note)396
-2483 y(that)j(these)f(tw)o(o)g(element)g(types)g(are)g(not)g(allo)n
-(wed)f(to)i(contain)e(arbitrary)g(te)o(xt.)g(Only)h(the)g
-Fq(paragraph)g Fv(element)f(type)396 2591 y(is)i(declared)e(such)h
-(that)h(parsed)e(character)g(data)h(\(indicated)f(by)h(the)g(symbol)f
-Fq(#PCDATA)p Fv(\))g(is)i(permitted.)396 2741 y(See)g(belo)n(w)e(for)h
-(a)h(detailed)e(discussion)h(of)g(content)f(models.)-2
-3110 y Fp(1.1.2.)35 b(XML)e(par)n(ser)n(s)h(and)g(pr)n(ocessor)n(s)396
-3278 y Fv(XML)20 b(documents)f(are)h(human-readable,)c(b)n(ut)21
-b(this)f(is)h(not)f(the)h(main)e(purpose)g(of)h(this)h(language.)d(XML)
-i(has)g(been)396 3386 y(designed)f(such)h(that)g(documents)f(can)h(be)g
-(read)g(by)f(a)i(program)d(called)i(an)g Fr(XML)h(par)o(ser)r
-Fv(.)f(The)g(parser)g(checks)f(that)396 3494 y(the)h(document)f(is)i
-(well-formatted,)d(and)h(it)i(represents)f(the)g(document)e(as)j
-(objects)f(of)g(the)g(programming)d(language.)396 3602
-y(There)j(are)g(tw)o(o)g(aspects)h(when)e(checking)g(the)h(document:)e
-(First,)j(the)f(document)e(must)j(follo)n(w)e(some)h(basic)396
-3710 y(syntactic)g(rules,)g(such)g(as)h(that)f(tags)h(are)f(written)g
-(in)g(angle)g(brack)o(ets,)f(that)h(for)g(e)n(v)o(ery)f(start)h(tag)h
-(there)e(must)i(be)f(a)396 3818 y(corresponding)d(end)j(tag)g(and)f(so)
-i(on.)f(A)g(document)e(respecting)h(these)i(rules)f(is)h
-Fr(well-formed)r Fv(.)f(Second,)f(the)396 3926 y(document)f(must)j
-(match)e(the)i(DTD)f(in)g(which)g(case)h(the)f(document)e(is)j
-Fr(valid)r Fv(.)f(Man)o(y)f(parsers)h(check)f(only)h(on)396
-4034 y(well-formedness)e(and)i(ignore)f(the)h(DTD;)h(PXP)g(is)g
-(designed)e(such)g(that)i(it)g(can)f(e)n(v)o(en)f(v)n(alidate)g(the)i
-(document.)396 4183 y(A)g(parser)f(does)f(not)h(mak)o(e)g(a)h(sensible)
-f(application,)e(it)j(only)f(reads)g(XML)g(documents.)e(The)i(whole)g
-(application)396 4291 y(w)o(orking)f(with)h(XML-formatted)e(data)i(is)h
-(called)f(an)g Fr(XML)h(pr)l(ocessor)r Fv(.)f(Often)g(XML)g(processors)
-f(con)m(v)o(ert)396 4399 y(documents)g(into)h(another)e(format,)h(such)
-h(as)h(HTML)f(or)g(Postscript.)g(Sometimes)g(processors)f(e)o(xtract)g
-(data)h(of)g(the)396 4507 y(documents)f(and)g(output)g(the)i(processed)
-e(data)h(again)f(XML-formatted.)e(The)j(parser)g(can)g(help)f(the)i
-(application)396 4615 y(processing)e(the)h(document;)f(for)g(e)o
-(xample)g(it)i(can)f(pro)o(vide)e(means)i(to)g(access)h(the)f(document)
-e(in)j(a)f(speci\002c)h(manner)-5 b(.)396 4723 y(PXP)21
-b(supports)e(an)i(object-oriented)c(access)k(layer)e(specially)-5
-b(.)p Black 3842 5278 a Fr(9)p Black eop
-%%Page: 10 10
-10 9 bop Black 3028 67 a Fr(Chapter)19 b(1.)h(What)h(is)g(XML?)p
-Black -2 583 a Fp(1.1.3.)35 b(Discussion)396 751 y Fv(As)21
-b(we)g(ha)n(v)o(e)e(seen,)h(there)g(are)g(tw)o(o)h(le)n(v)o(els)f(of)g
-(description:)f(On)h(the)g(one)g(hand,)f(XML)h(can)g(de\002ne)f(rules)i
-(about)e(the)396 859 y(format)g(of)h(a)h(document)d(\(the)i(DTD\),)g
-(on)f(the)i(other)e(hand,)g(XML)h(e)o(xpresses)g(structured)f
-(documents.)f(There)h(are)h(a)396 967 y(number)f(of)h(possible)f
-(applications:)p Black 396 1199 a Ft(\225)p Black 60
-w Fv(XML)i(can)f(be)g(used)g(to)g(e)o(xpress)f(structured)g(te)o(xts.)h
-(Unlik)o(e)g(HTML,)g(there)g(is)h(no)e(canonical)g(interpretation;)g
-(one)479 1307 y(w)o(ould)h(ha)n(v)o(e)f(to)i(write)f(a)h(back)o(end)d
-(for)i(the)g(DTD)g(that)h(translates)f(the)g(structured)f(te)o(xts)h
-(into)g(a)h(format)e(that)479 1415 y(e)o(xisting)h(bro)n(wsers,)f
-(printers)g(etc.)i(understand.)c(The)j(adv)n(antage)e(of)i(a)h
-(self-de\002ned)e(document)f(format)h(is)i(that)f(it)479
-1523 y(is)h(possible)f(to)h(design)e(the)h(format)f(in)i(a)f(more)g
-(problem-oriented)c(w)o(ay)-5 b(.)20 b(F)o(or)f(e)o(xample,)g(if)h(the)
-h(task)f(is)h(to)g(e)o(xtract)479 1631 y(reports)f(from)f(a)h
-(database,)g(one)f(can)h(use)h(a)f(DTD)h(that)f(re\003ects)h(the)f
-(structure)f(of)h(the)g(report)f(or)h(the)g(database.)g(A)479
-1739 y(possible)g(approach)e(w)o(ould)i(be)g(to)g(ha)n(v)o(e)g(an)g
-(element)f(type)h(for)g(e)n(v)o(ery)f(database)g(table)h(and)g(for)g(e)
-n(v)o(ery)e(column.)479 1847 y(Once)i(the)g(DTD)h(has)f(been)g
-(designed,)e(the)j(report)e(procedure)e(can)j(be)g(splitted)h(up)e(in)i
-(a)f(part)g(that)h(selects)g(the)479 1955 y(database)f(ro)n(ws)g(and)g
-(outputs)f(them)h(as)h(an)f(XML)g(document)e(according)g(to)j(the)f
-(DTD,)g(and)g(in)g(a)g(part)g(that)479 2063 y(translates)h(the)f
-(document)e(into)i(other)f(formats.)g(Of)i(course,)e(the)h(latter)h
-(part)e(can)h(be)h(solv)o(ed)e(in)h(a)h(generic)e(w)o(ay)-5
-b(,)479 2170 y(e.g.)20 b(there)g(may)f(be)h(con\002gurable)e(back)o
-(ends)h(for)h(all)g(DTDs)h(that)f(follo)n(w)g(the)g(approach)e(and)i
-(ha)n(v)o(e)f(element)h(types)479 2278 y(for)g(tables)g(and)g(columns.)
-479 2428 y(XML)h(plays)f(the)g(role)g(of)g(a)g(con\002gurable)e
-(intermediate)h(format.)g(The)g(database)h(e)o(xtraction)e(function)h
-(can)h(be)479 2536 y(written)g(without)g(ha)n(ving)f(to)h(kno)n(w)f
-(the)h(details)h(of)f(typesetting;)f(the)h(back)o(ends)f(can)h(be)g
-(written)g(without)g(ha)n(ving)479 2644 y(to)h(kno)n(w)e(the)h(details)
-h(of)e(the)i(database.)479 2793 y(Of)g(course,)e(there)h(are)g
-(traditional)f(solutions.)g(One)h(can)g(de\002ne)g(an)g(ad)g(hoc)g
-(intermediate)e(te)o(xt)j(\002le)f(format.)f(This)479
-2901 y(disadv)n(antage)f(is)k(that)e(there)g(are)g(no)f(names)h(for)g
-(the)g(pieces)g(of)g(the)g(format,)f(and)h(that)g(such)g(formats)g
-(usually)f(lack)479 3009 y(of)h(documentation)d(because)j(of)g(this.)g
-(Another)f(solution)g(w)o(ould)h(be)g(to)g(ha)n(v)o(e)g(a)h(binary)e
-(representation,)e(either)j(as)479 3117 y(language-dependent)c(or)k
-(language-independent)14 b(structure)20 b(\(e)o(xample)e(of)i(the)g
-(latter)h(can)f(be)g(found)e(in)j(RPC)479 3225 y(implementations\).)d
-(The)i(disadv)n(antage)e(is)j(that)f(it)h(is)g(harder)e(to)i(vie)n(w)f
-(such)g(representations,)e(one)h(has)i(to)f(write)479
-3333 y(pretty)g(printers)f(for)h(this)g(purpose.)f(It)h(is)h(also)g
-(more)e(dif)n(\002cult)h(to)g(enter)g(test)h(data;)f(XML)g(is)h(plain)f
-(te)o(xt)g(that)h(can)f(be)479 3441 y(written)g(using)g(an)g(arbitrary)
-f(editor)g(\(Emacs)h(has)g(e)n(v)o(en)f(a)i(good)e(XML)h(mode,)f
-(PSGML\).)h(All)h(these)f(alternati)n(v)o(es)479 3549
-y(suf)n(fer)g(from)f(a)h(missing)g(structure)g(check)o(er)m(,)e(i.e.)i
-(the)h(programs)d(processing)h(these)h(formats)f(usually)h(do)g(not)479
-3657 y(check)g(the)g(input)f(\002le)i(or)f(input)g(object)f(in)i
-(detail;)f(XML)g(parsers)g(check)f(the)h(syntax)g(of)g(the)g(input)g
-(\(the)f(so-called)479 3765 y(well-formedness)f(check\),)h(and)h(the)g
-(adv)n(anced)e(parsers)i(lik)o(e)g(PXP)h(e)n(v)o(en)f(v)o(erify)e(that)
-j(the)f(structure)f(matches)h(the)479 3872 y(DTD)h(\(the)f(so-called)f
-(v)n(alidation\).)p Black 396 4022 a Ft(\225)p Black
-60 w Fv(XML)i(can)f(be)g(used)g(as)g(con\002gurable)e(communication)g
-(language.)g(A)i(fundamental)e(problem)h(of)h(e)n(v)o(ery)479
-4130 y(communication)e(is)j(that)f(sender)f(and)h(recei)n(v)o(er)f
-(must)h(follo)n(w)g(the)g(same)g(con)m(v)o(entions)e(about)h(the)h
-(language.)e(F)o(or)479 4238 y(data)i(e)o(xchange,)e(the)i(question)f
-(is)j(usually)d(which)h(data)g(records)f(and)h(\002elds)g(are)g(a)n(v)n
-(ailable,)g(ho)n(w)g(the)o(y)f(are)479 4346 y(syntactically)h
-(composed,)e(and)i(which)f(v)n(alues)h(are)g(possible)g(for)g(the)g(v)n
-(arious)f(\002elds.)h(Similar)h(questions)e(arise)479
-4454 y(for)h(te)o(xt)g(document)e(e)o(xchange.)g(XML)i(does)g(not)g
-(answer)g(these)g(problems)f(completely)-5 b(,)18 b(b)n(ut)i(it)h
-(reduces)e(the)479 4562 y(number)g(of)h(ambiguities)f(for)g(such)h(con)
-m(v)o(entions:)e(The)i(outlines)f(of)h(the)g(syntax)g(are)g
-(speci\002ed)g(by)g(the)g(DTD)g(\(b)n(ut)479 4669 y(not)g(necessarily)g
-(the)g(details\),)g(and)g(XML)g(introduces)e(canonical)h(names)h(for)g
-(the)g(components)e(of)i(documents)479 4777 y(such)g(that)h(it)f(is)i
-(simpler)d(to)i(describe)e(the)h(rest)h(of)f(the)g(syntax)g(and)f(the)h
-(semantics)h(informally)-5 b(.)p Black 3800 5278 a Fr(10)p
-Black eop
-%%Page: 11 11
-11 10 bop Black 3028 67 a Fr(Chapter)19 b(1.)h(What)h(is)g(XML?)p
-Black Black 396 579 a Ft(\225)p Black 60 w Fv(XML)f(is)g(a)g(data)f
-(storage)g(format.)f(Currently)-5 b(,)17 b(e)n(v)o(ery)h(softw)o(are)h
-(product)f(tends)h(to)h(use)f(its)i(o)n(wn)d(w)o(ay)i(to)f(store)h
-(data;)479 687 y(commercial)f(softw)o(are)h(often)f(does)h(not)g
-(describe)f(such)h(formats,)f(and)h(it)h(is)g(a)g(pain)e(to)i(inte)o
-(grate)e(such)h(softw)o(are)479 795 y(into)g(a)g(bigger)f(project.)f
-(XML)i(can)g(help)f(to)h(impro)o(v)o(e)e(this)j(situation)e(when)g(se)n
-(v)o(eral)g(applications)g(share)h(the)g(same)479 903
-y(syntax)g(of)g(data)g(\002les.)h(DTDs)f(are)g(then)g(neutral)g
-(instances)g(that)g(check)f(the)h(format)g(of)f(data)i(\002les)g
-(independent)c(of)479 1011 y(applications.)-2 1512 y
-Fx(1.2.)39 b(Highlights)e(of)i(XML)396 1692 y Fv(This)21
-b(section)f(e)o(xplains)f(man)o(y)g(of)h(the)g(features)f(of)h(XML,)g
-(b)n(ut)h(not)e(all,)i(and)f(some)g(features)f(not)h(in)g(detail.)g(F)o
-(or)g(a)396 1800 y(complete)f(description,)g(see)i(the)f(XML)g
-(speci\002cation)396 1908 y(\(http://www)-5 b(.w3.or)o
-(g/TR/1998/REC-xml-)o(19)o(98)o(02)o(10)o(.htm)o(l\).)-2
-2236 y Fp(1.2.1.)35 b(The)f(DTD)g(and)g(the)f(instance)396
-2404 y Fv(The)20 b(DTD)g(contains)g(v)n(arious)f(declarations;)g(in)h
-(general)f(you)h(can)g(only)f(use)i(a)f(feature)f(if)i(you)e(ha)n(v)o
-(e)h(pre)n(viously)396 2512 y(declared)f(it.)i(The)f(document)e
-(instance)i(\002le)h(may)e(contain)g(the)i(full)f(DTD,)g(b)n(ut)g(it)h
-(is)g(also)g(possible)f(to)g(split)h(the)f(DTD)396 2619
-y(into)g(an)g(internal)g(and)f(an)h(e)o(xternal)f(subset.)h(A)h
-(document)d(must)j(be)o(gin)e(as)h(follo)n(ws)g(if)h(the)f(full)g(DTD)g
-(is)h(included:)396 2800 y Fo(<)p Fq(?xml)44 b(version="1.0")f
-(encoding=")p Fn(Your)f(encoding)t Fq("?)p Fo(>)396 2897
-y(<)p Fq(!DOCTYPE)h Fn(root)i Fq([)486 2994 y Fn(Declarations)396
-3091 y Fq(])p Fo(>)396 3282 y Fv(These)20 b(declarations)f(are)h
-(called)g(the)h Fr(internal)e(subset)q Fv(.)i(Note)f(that)g(the)g
-(usage)g(of)g(entities)h(and)e(conditional)g(sections)396
-3390 y(is)i(restricted)f(within)g(the)g(internal)g(subset.)396
-3539 y(If)g(the)h(declarations)d(are)j(located)e(in)h(a)h(dif)n(ferent)
-e(\002le,)h(you)f(can)h(refer)g(to)g(this)h(\002le)g(as)g(follo)n(ws:)
-396 3720 y Fo(<)p Fq(?xml)44 b(version="1.0")f(encoding=")p
-Fn(Your)f(encoding)t Fq("?)p Fo(>)396 3817 y(<)p Fq(!DOCTYPE)h
-Fn(root)i Fq(SYSTEM)e(")p Fn(file)h(name)p Fq(")p Fo(>)396
-4008 y Fv(The)20 b(declarations)f(in)h(the)h(\002le)f(are)h(called)f
-(the)g Fr(e)n(xternal)g(subset)q Fv(.)g(The)g(\002le)h(name)f(is)h
-(called)f(the)g Fr(system)h(identi\002er)r Fv(.)e(It)396
-4116 y(is)i(also)g(possible)f(to)g(refer)g(to)g(the)g(\002le)h(by)f(a)g
-(so-called)g Fr(public)f(identi\002er)r Fv(,)g(b)n(ut)i(most)f(XML)g
-(applications)f(w)o(on')o(t)g(use)396 4223 y(this)i(feature.)396
-4373 y(Y)-9 b(ou)20 b(can)g(also)g(specify)g(both)f(internal)h(and)f(e)
-o(xternal)g(subsets.)i(In)e(this)i(case,)g(the)f(declarations)f(of)h
-(both)f(subsets)i(are)396 4481 y(mix)o(ed,)e(and)h(if)g(there)g(are)g
-(con\003icts,)g(the)g(declaration)f(of)h(the)g(internal)f(subset)i(o)o
-(v)o(errides)d(those)i(of)g(the)g(e)o(xternal)396 4589
-y(subset)h(with)f(the)g(same)h(name.)e(This)h(looks)g(as)h(follo)n(ws:)
-396 4769 y Fo(<)p Fq(?xml)44 b(version="1.0")f(encoding=")p
-Fn(Your)f(encoding)t Fq("?)p Fo(>)396 4866 y(<)p Fq(!DOCTYPE)h
-Fn(root)89 b Fq(SYSTEM)44 b(")p Fn(file)g(name)p Fq(")g([)p
-Black 3800 5278 a Fr(11)p Black eop
-%%Page: 12 12
-12 11 bop Black 3028 67 a Fr(Chapter)19 b(1.)h(What)h(is)g(XML?)p
-Black 486 579 a Fn(Declarations)396 676 y Fq(])p Fo(>)396
-909 y Fv(The)f(XML)g(declaration)f(\(the)h(string)g(be)o(ginning)d
-(with)k Fo(<)p Fq(?xml)e Fv(and)h(ending)f(at)i Fq(?)p
-Fo(>)p Fv(\))f(should)f(specify)g(the)h(encoding)396
-1016 y(of)g(the)g(\002le.)h(Common)e(v)n(alues)h(are)g(UTF-8,)f(and)h
-(the)g(ISO-8859)e(series)j(of)f(character)f(sets.)i(Note)f(that)g(e)n
-(v)o(ery)f(\002le)396 1124 y(parsed)h(by)f(the)i(XML)f(processor)f(can)
-h(be)o(gin)f(with)h(an)g(XML)h(declaration)d(and)i(that)g(e)n(v)o(ery)f
-(\002le)i(may)e(ha)n(v)o(e)h(its)h(o)n(wn)396 1232 y(encoding.)396
-1382 y(The)f(name)g(of)g(the)g(root)f(element)h(must)g(be)g(mentioned)f
-(directly)g(after)h(the)g Fq(DOCTYPE)g Fv(string.)f(This)i(means)e
-(that)i(a)396 1490 y(full)f(document)f(instance)g(looks)h(lik)o(e)396
-1670 y Fo(<)p Fq(?xml)44 b(version="1.0")f(encoding=")p
-Fn(Your)f(encoding)t Fq("?)p Fo(>)396 1767 y(<)p Fq(!DOCTYPE)h
-Fn(root)89 b Fq(SYSTEM)44 b(")p Fn(file)g(name)p Fq(")g([)486
-1864 y Fn(Declarations)396 1961 y Fq(])p Fo(>)396 2156
-y(<)p Fn(root)p Fo(>)486 2253 y Fn(inner)g(contents)396
-2350 y Fo(<)p Fq(/)p Fn(root)p Fo(>)-2 2802 y Fp(1.2.2.)35
-b(Reser)q(ved)h(c)o(haracter)n(s)396 2970 y Fv(Some)20
-b(characters)f(are)i(generally)d(reserv)o(ed)h(to)h(indicate)g(markup)e
-(such)i(that)g(the)o(y)g(cannot)f(be)h(used)g(for)g(character)396
-3078 y(data.)g(These)g(characters)f(are)h Fm(<)p Fv(,)h
-Fm(>)p Fv(,)f(and)f(&.)h(Furthermore,)e(single)i(and)g(double)e(quotes)
-i(are)g(sometimes)g(reserv)o(ed.)396 3186 y(If)g(you)g(w)o(ant)g(to)g
-(include)f(such)h(a)h(character)e(as)i(character)m(,)d(write)j(it)f(as)
-h(follo)n(ws:)p Black 396 3473 a Ft(\225)p Black 60 w
-Fq(&lt;)f Fv(instead)g(of)g Fm(<)p Black 396 3581 a Ft(\225)p
-Black 60 w Fq(&gt;)g Fv(instead)g(of)g Fm(>)p Black 396
-3689 a Ft(\225)p Black 60 w Fq(&amp;)g Fv(instead)g(of)g(&)p
-Black 396 3797 a Ft(\225)p Black 60 w Fq(&apos;)g Fv(instead)g(of)g(')p
-Black 396 3905 a Ft(\225)p Black 60 w Fq(&quot;)g Fv(instead)g(of)g(")
-396 4054 y(All)h(other)e(characters)h(are)g(free)g(in)g(the)g(document)
-e(instance.)i(It)g(is)i(possible)d(to)i(include)e(a)i(character)e(by)g
-(its)j(position)396 4162 y(in)f(the)f(Unicode)f(alphabet:)396
-4342 y Fq(&#)p Fn(n)p Fq(;)396 4533 y Fv(where)h Fl(n)g
-Fv(is)i(the)e(decimal)f(number)g(of)h(the)g(character)-5
-b(.)19 b(Alternati)n(v)o(ely)-5 b(,)18 b(you)h(can)h(specify)g(the)g
-(character)f(by)h(its)396 4641 y(he)o(xadecimal)e(number:)396
-4822 y Fq(&#x)p Fn(n)p Fq(;)p Black 3800 5278 a Fr(12)p
-Black eop
-%%Page: 13 13
-13 12 bop Black 3028 67 a Fr(Chapter)19 b(1.)h(What)h(is)g(XML?)p
-Black 396 579 a Fv(In)f(the)g(scope)g(of)g(declarations,)f(the)h
-(character)f(\045)i(is)g(no)f(longer)f(free.)g(T)-7 b(o)20
-b(include)g(it)h(as)f(character)m(,)f(you)g(must)h(use)396
-687 y(the)g(notations)g Fq(&#37;)g Fv(or)f Fq(&#x25;)p
-Fv(.)396 836 y(Note)h(that)h(besides)f(&lt;,)g(&gt;,)g(&amp;,)f
-(&apos;,)g(and)h(&quot;)f(there)h(are)g(no)g(prede\002nes)f(character)g
-(entities.)h(This)396 944 y(is)h(dif)n(ferent)e(from)g(HTML)h(which)g
-(de\002nes)g(a)g(list)i(of)d(characters)h(that)g(can)g(be)g(referenced)
-e(by)i(name)f(\(e.g.)h(&auml;)396 1052 y(for)g(\344\);)g(ho)n(we)n(v)o
-(er)m(,)e(if)i(you)g(prefer)e(named)i(characters,)f(you)g(can)h
-(declare)f(such)h(entities)h(yourself)e(\(see)h(belo)n(w\).)-2
-1422 y Fp(1.2.3.)35 b(Elements)g(and)f(ELEMENT)e(dec)n(larations)396
-1589 y Fv(Elements)20 b(structure)f(the)h(document)f(instance)g(in)i(a)
-f(hierarchical)f(w)o(ay)-5 b(.)20 b(There)f(is)i(a)g(top-le)n(v)o(el)d
-(element,)i(the)g Fr(r)l(oot)396 1697 y(element)q Fv(,)g(which)g
-(contains)g(a)g(sequence)f(of)h(inner)g(elements)f(and)h(character)f
-(sections.)h(The)g(inner)f(elements)h(are)396 1805 y(structured)f(in)h
-(the)f(same)h(w)o(ay)-5 b(.)20 b(Ev)o(ery)e(element)h(has)h(an)g
-Fr(element)f(type)p Fv(.)h(The)f(be)o(ginning)f(of)h(the)h(element)f
-(is)i(indicated)396 1913 y(by)f(a)h Fr(start)g(ta)o(g)p
-Fv(,)e(written)396 2093 y Fo(<)p Fn(element-type)p Fo(>)396
-2284 y Fv(and)h(the)g(element)g(continues)f(until)h(the)g
-(corresponding)d Fr(end)i(ta)o(g)h Fv(is)h(reached:)396
-2465 y Fo(<)p Fq(/)p Fn(element-type)p Fo(>)396 2655
-y Fv(In)f(XML,)f(it)i(is)f(not)g(allo)n(wed)f(to)h(omit)f(start)i(or)e
-(end)g(tags,)h(e)n(v)o(en)f(if)h(the)g(DTD)g(w)o(ould)f(permit)g(this.)
-h(Note)g(that)g(there)f(are)396 2763 y(no)h(special)g(rules)g(ho)n(w)g
-(to)g(interpret)g(spaces)g(or)g(ne)n(wlines)g(near)f(start)i(or)f(end)g
-(tags;)g(all)h(spaces)f(and)g(ne)n(wlines)g(count.)396
-2913 y(Ev)o(ery)f(element)h(type)f(must)i(be)f(declared)f(before)f(it)j
-(can)f(be)g(used.)g(The)g(declaration)f(consists)h(of)g(tw)o(o)h
-(parts:)f(the)396 3021 y(ELEMENT)f(declaration)f(describes)h(the)h
-(content)f(model,)f(i.e.)i(which)f(inner)g(elements)g(are)h(allo)n
-(wed;)f(the)h(A)-9 b(TTLIST)396 3129 y(declaration)19
-b(describes)h(the)g(attrib)n(utes)g(of)g(the)g(element.)396
-3278 y(An)g(element)g(can)g(simply)g(allo)n(w)g(e)n(v)o(erything)e(as)i
-(content.)f(This)i(is)g(written:)396 3458 y Fo(<)p Fq(!ELEMENT)43
-b Fn(name)i Fq(ANY)p Fo(>)396 3649 y Fv(On)20 b(the)h(opposite,)e(an)h
-(element)f(can)h(be)g(forced)f(to)i(be)f(empty;)f(declared)g(by:)396
-3829 y Fo(<)p Fq(!ELEMENT)43 b Fn(name)i Fq(EMPTY)p Fo(>)396
-4020 y Fv(Note)20 b(that)h(there)e(is)j(an)e(abbre)n(viated)e(notation)
-h(for)g(empty)g(element)h(instances:)g Fo(<)p Fn(name)p
-Fq(/)p Fo(>)p Fv(.)396 4170 y(There)g(are)g(tw)o(o)g(more)g
-(sophisticated)f(forms)g(of)h(declarations:)f(so-called)h
-Fr(mixed)g(declar)o(ations)p Fv(,)e(and)i Fr(r)m(e)m(gular)396
-4278 y(e)n(xpr)m(essions)p Fv(.)g(An)h(element)e(with)i(mix)o(ed)e
-(content)g(contains)g(character)g(data)h(interspersed)f(with)i(inner)e
-(elements,)396 4386 y(and)h(the)g(set)h(of)f(allo)n(wed)g(inner)f
-(elements)h(can)g(be)g(speci\002ed.)g(In)f(contrast)h(to)g(this,)h(a)g
-(re)o(gular)d(e)o(xpression)396 4494 y(declaration)h(does)h(not)g(allo)
-n(w)g(character)f(data,)h(b)n(ut)g(the)g(inner)f(elements)h(can)g(be)g
-(described)f(by)h(the)g(more)g(po)n(werful)396 4601 y(means)g(of)g(re)o
-(gular)f(e)o(xpressions.)396 4751 y(A)i(declaration)e(for)g(mix)o(ed)g
-(content)g(looks)h(as)h(follo)n(ws:)p Black 3800 5278
-a Fr(13)p Black eop
-%%Page: 14 14
-14 13 bop Black 3028 67 a Fr(Chapter)19 b(1.)h(What)h(is)g(XML?)p
-Black 396 579 a Fo(<)p Fq(!ELEMENT)43 b Fn(name)i Fq(\(#PCDATA)e(|)i
-Fn(element)1892 609 y Fk(1)1962 579 y Fq(|)g(...)f(|)h
-Fn(element)2636 609 y Fk(n)2707 579 y Fq(\)*)p Fo(>)396
-770 y Fv(or)20 b(if)h(you)e(do)h(not)g(w)o(ant)g(to)g(allo)n(w)g(an)o
-(y)g(inner)f(element,)h(simply)396 950 y Fo(<)p Fq(!ELEMENT)43
-b Fn(name)i Fq(\(#PCDATA\))p Fo(>)396 1279 y Fj(Example)479
-1426 y Fi(If)19 b(element)g(type)g Fh(q)g Fi(is)g(declared)h(as)479
-1596 y Fh(<!ELEMENT)44 b(q)c(\(#PCDATA)k(|)c(r)h(|)g(s\)*>)479
-1776 y Fi(this)19 b(is)f(a)h(le)o(gal)g(instance:)479
-1947 y Fh(<q>This)43 b(is)e(character)j(data<r></r>with)h(<s></s>inner)
-g(elements</q>)479 2127 y Fi(But)19 b(this)g(is)f(ille)o(gal)g(because)
-i Fh(t)f Fi(has)h(not)f(been)g(enumerated)i(in)e(the)g(declaration:)479
-2297 y Fh(<q>This)43 b(is)e(character)j(data<r></r>with)h(<t></t>inner)
-g(elements</q>)396 2571 y Fv(The)20 b(other)f(form)h(uses)g(a)h(re)o
-(gular)e(e)o(xpression)f(to)j(describe)e(the)h(possible)g(contents:)396
-2752 y Fo(<)p Fq(!ELEMENT)43 b Fn(name)i(regexp)p Fo(>)396
-2942 y Fv(The)20 b(follo)n(wing)f(well-kno)n(wn)f(re)o(ge)o(xp)g
-(operators)h(are)h(allo)n(wed:)p Black 396 3299 a Ft(\225)p
-Black 60 w Fn(element-name)p Black 396 3407 a Ft(\225)p
-Black 60 w Fq(\()p Fn(subexpr)839 3437 y Fk(1)910 3407
-y Fq(,)g Fv(...)g Fq(,)45 b Fn(subexpr)1463 3437 y Fk(n)1533
-3407 y Fq(\))p Black 396 3515 a Ft(\225)p Black 60 w
-Fq(\()p Fn(subexpr)839 3545 y Fk(1)910 3515 y Fq(|)20
-b Fv(...)g Fq(|)45 b Fn(subexpr)1463 3545 y Fk(n)1533
-3515 y Fq(\))p Black 396 3623 a Ft(\225)p Black 60 w
-Fn(subexpr)s Fq(*)p Black 396 3731 a Ft(\225)p Black
-60 w Fn(subexpr)s Fq(+)p Black 396 3839 a Ft(\225)p Black
-60 w Fn(subexpr)s Fq(?)396 3989 y Fv(The)20 b Fq(,)h
-Fv(operator)d(indicates)i(a)h(sequence)e(of)h(sub-models,)e(the)i
-Fq(|)h Fv(operator)d(describes)i(alternati)n(v)o(e)f(sub-models.)f(The)
-396 4096 y Fq(*)j Fv(indicates)f(zero)f(or)h(more)g(repetitions,)f(and)
-g Fq(+)i Fv(one)f(or)f(more)h(repetitions.)f(Finally)-5
-b(,)19 b Fq(?)i Fv(can)f(be)g(used)g(for)f(optional)396
-4204 y(sub-models.)g(As)i(atoms)f(the)g(re)o(ge)o(xp)e(can)i(contain)f
-(names)h(of)g(elements;)g(note)g(that)g(it)h(is)g(not)f(allo)n(wed)f
-(to)i(include)396 4312 y Fq(#PCDATA)p Fv(.)396 4462 y(The)f(e)o(xact)g
-(syntax)f(of)h(the)g(re)o(gular)f(e)o(xpressions)g(is)i(rather)e
-(strange.)h(This)g(can)g(be)g(e)o(xplained)f(best)h(by)g(a)g(list)i(of)
-396 4570 y(constraints:)p Black 396 4802 a Ft(\225)p
-Black 60 w Fv(The)e(outermost)f(e)o(xpression)g(must)h(not)g(be)g
-Fn(element-name)p Fv(.)p Black 3800 5278 a Fr(14)p Black
-eop
-%%Page: 15 15
-15 14 bop Black 3028 67 a Fr(Chapter)19 b(1.)h(What)h(is)g(XML?)p
-Black 479 579 a(Ille)m(gal:)e Fq(<!ELEMENT)43 b(x)i(y>)p
-Fv(;)21 b(this)f(must)h(be)f(written)g(as)h Fq(<!ELEMENT)43
-b(x)i(\(y\)>)p Fv(.)p Black 396 728 a Ft(\225)p Black
-60 w Fv(F)o(or)20 b(the)g(unary)f(operators)g Fn(subexpr)s
-Fq(*)p Fv(,)g Fn(subexpr)s Fq(+)p Fv(,)g(and)g Fn(subexpr)s
-Fq(?)p Fv(,)g(the)h Fn(subexpr)i Fv(must)f(not)f(be)g(again)f(an)479
-836 y(unary)g(operator)-5 b(.)479 986 y Fr(Ille)m(gal:)19
-b Fq(<!ELEMENT)43 b(x)i(y**>)p Fv(;)20 b(this)h(must)f(be)g(written)g
-(as)h Fq(<!ELEMENT)44 b(x)g(\(y*\)*>)p Fv(.)p Black 396
-1135 a Ft(\225)p Black 60 w Fv(Between)21 b Fq(\))f Fv(and)g(one)f(of)h
-(the)h(unary)d(operatory)g Fq(*)p Fv(,)j Fq(+)p Fv(,)f(or)g
-Fq(?)p Fv(,)g(there)g(must)g(not)g(be)g(whitespace.)479
-1285 y Fr(Ille)m(gal:)f Fq(<!ELEMENT)43 b(x)i(\(y|z\))f(*>)p
-Fv(;)21 b(this)f(must)h(be)f(written)g(as)h Fq(<!ELEMENT)43
-b(x)i(\(y|z\)*>)p Fv(.)p Black 396 1434 a Ft(\225)p Black
-60 w Fv(There)20 b(is)h(the)f(additional)f(constraint)g(that)h(the)h
-(right)e(parenthsis)g(must)i(be)f(contained)e(in)j(the)f(same)g(entity)
-g(as)h(the)479 1542 y(left)g(parenthesis;)e(see)i(the)f(section)g
-(about)f(parsed)h(entities)g(belo)n(w)-5 b(.)396 1733
-y(Note)20 b(that)g(there)g(is)h(another)e(restriction)g(on)h(re)o
-(gular)e(e)o(xpressions)h(which)h(must)g(be)g(deterministic.)f(This)h
-(means)g(that)396 1841 y(the)g(parser)g(must)g(be)g(able)g(to)h(see)g
-(by)e(looking)g(at)i(the)f(ne)o(xt)f(tok)o(en)h(which)f(alternati)n(v)o
-(e)g(is)i(actually)f(used,)g(or)f(whether)396 1949 y(the)h(repetition)f
-(stops.)i(The)f(reason)f(for)g(this)i(is)g(simply)f(compatability)f
-(with)h(SGML)g(\(there)g(is)h(no)f(intrinsic)f(reason)396
-2057 y(for)h(this)h(rule;)e(XML)i(can)f(li)n(v)o(e)g(without)f(this)i
-(restriction\).)396 2302 y Fj(Example)479 2449 y Fi(The)e(elements)g
-(are)g(declared)h(as)f(follo)n(ws:)479 2620 y Fh(<!ELEMENT)44
-b(q)c(\(r?,)i(\(s)f(|)g(t\)+\)>)479 2707 y(<!ELEMENT)j(r)c
-(\(#PCDATA\)>)479 2795 y(<!ELEMENT)k(s)c(EMPTY>)479 2882
-y(<!ELEMENT)k(t)c(\(q)i(|)e(r\)>)479 3062 y Fi(This)19
-b(is)f(a)h(le)o(gal)g(instance:)479 3233 y Fh(<q><r>Some)44
-b(characters</r><s/><)q(/q>)479 3413 y Fi(\(Note:)19
-b Fg(<)p Fh(s/)p Fg(>)g Fi(is)g(an)g(abbre)n(viation)h(for)f
-Fg(<)p Fh(s)p Fg(><)p Fh(/s)p Fg(>)p Fi(.\))g(It)f(w)o(ould)i(be)f
-(ille)o(gal)f(to)h(lea)o(v)o(e)g Fh(<s/>)h Fi(out)f(because)h(at)f
-(least)f(one)479 3510 y(instance)i(of)f Fh(s)g Fi(or)g
-Fh(t)g Fi(must)g(be)g(present.)g(It)f(w)o(ould)i(be)f(ille)o(gal,)f
-(too,)h(if)f(characters)i(e)o(xisted)f(outside)h(the)e
-Fh(r)i Fi(element;)f(the)g(only)479 3607 y(e)o(xception)h(is)f(white)g
-(space.)g(\226)g(This)f(is)h(le)o(gal,)f(too:)479 3778
-y Fh(<q><s/><t><q><s/><)q(/q>)q(</t)q(></)q(q>)-2 4230
-y Fp(1.2.4.)35 b(Attrib)n(ute)e(lists)h(and)g(A)-11 b(TTLIST)34
-b(dec)n(larations)396 4398 y Fv(Elements)20 b(may)g(ha)n(v)o(e)f
-(attrib)n(utes.)h(These)g(are)g(put)g(into)g(the)g(start)h(tag)f(of)g
-(an)g(element)g(as)h(follo)n(ws:)396 4578 y Fo(<)p Fn(element-name)43
-b(attribute)1444 4608 y Fk(1)1469 4578 y Fq(=")p Fn(value)1784
-4608 y Fk(1)1810 4578 y Fq(")i(...)f Fn(attribute)2484
-4608 y Fk(n)2509 4578 y Fq(=")p Fn(value)2824 4608 y
-Fk(n)2850 4578 y Fq(")p Fo(>)396 4769 y Fv(Instead)20
-b(of)g Fq(")p Fn(value)1017 4799 y Fk(k)1043 4769 y Fq(")g
-Fv(it)h(is)g(also)g(possible)f(to)g(use)g(single)g(quotes)g(as)h(in)f
-Fq(')p Fn(value)2817 4799 y Fk(k)2843 4769 y Fq(')p Fv(.)g(Note)h(that)
-f(you)f(cannot)g(use)396 4877 y(double)g(quotes)h(literally)g(within)g
-(the)g(v)n(alue)f(of)h(the)g(attrib)n(ute)g(if)h(double)d(quotes)i(are)
-g(the)g(delimiters;)g(the)g(same)p Black 3800 5278 a
-Fr(15)p Black eop
-%%Page: 16 16
-16 15 bop Black 3028 67 a Fr(Chapter)19 b(1.)h(What)h(is)g(XML?)p
-Black 396 579 a Fv(applies)f(to)h(single)f(quotes.)f(Y)-9
-b(ou)20 b(can)g(generally)e(not)i(use)g Fm(<)h Fv(and)e(&)i(as)g
-(characters)e(in)h(attrib)n(ute)g(v)n(alues.)g(It)g(is)396
-687 y(possible)g(to)h(include)e(the)h(paraphrases)e(&lt;,)j(&gt;,)f
-(&amp;,)f(&apos;,)g(and)h(&quot;)f(\(and)g(an)o(y)g(other)h(reference)e
-(to)j(a)396 795 y(general)e(entity)h(as)h(long)f(as)g(the)h(entity)f
-(is)h(not)e(de\002ned)h(by)f(an)i(e)o(xternal)d(\002le\))j(as)g(well)g
-(as)g(&#)p Fl(n)p Fv(;.)396 944 y(Before)f(you)f(can)h(use)h(an)f
-(attrib)n(ute)g(you)f(must)h(declare)g(it.)g(An)g(A)-9
-b(TTLIST)20 b(declaration)e(looks)i(as)h(follo)n(ws:)396
-1124 y Fo(<)p Fq(!ATTLIST)43 b Fn(element-name)845 1222
-y(attribute-name)f(attribute-type)h(attribute-default)845
-1319 y Fq(...)845 1416 y Fn(attribute-name)f(attribute-type)h
-(attribute-default)396 1513 y Fo(>)396 1704 y Fv(There)20
-b(are)g(a)g(lot)h(of)f(types,)f(b)n(ut)i(most)f(important)f(are:)p
-Black 396 2061 a Ft(\225)p Black 60 w Fq(CDATA)p Fv(:)h(Ev)o(ery)f
-(string)h(is)h(allo)n(wed)f(as)g(attrib)n(ute)g(v)n(alue.)p
-Black 396 2169 a Ft(\225)p Black 60 w Fq(NMTOKEN)p Fv(:)g(Ev)o(ery)f
-(nametok)o(en)f(is)j(allo)n(wed)f(as)g(attrib)n(ute)g(v)n(alue.)g
-(Nametok)o(ens)f(consist)h(\(mainly\))f(of)g(letters,)479
-2277 y(digits,)h(.,)h(:,)f(-,)g(_)h(in)f(arbitrary)f(order)-5
-b(.)p Black 396 2385 a Ft(\225)p Black 60 w Fq(NMTOKENS)p
-Fv(:)20 b(A)g(space-separated)f(list)i(of)f(nametok)o(ens)e(is)k(allo)n
-(wed)d(as)i(attrib)n(ute)f(v)n(alue.)396 2534 y(The)g(most)g
-(interesting)g(def)o(ault)f(declarations)g(are:)p Black
-396 2767 a Ft(\225)p Black 60 w Fq(#REQUIRED)p Fv(:)h(The)f(attrib)n
-(ute)h(must)g(be)h(speci\002ed.)p Black 396 2874 a Ft(\225)p
-Black 60 w Fq(#IMPLIED)p Fv(:)e(The)h(attrib)n(ute)f(can)g(be)h
-(speci\002ed)f(b)n(ut)h(also)g(can)f(be)h(left)g(out.)f(The)g
-(application)g(can)g(\002nd)g(out)h(whether)479 2982
-y(the)g(attrib)n(ute)g(w)o(as)h(present)f(or)g(not.)p
-Black 396 3090 a Ft(\225)p Black 60 w Fq(")p Fn(value)p
-Fq(")g Fv(or)f Fq(')p Fn(value)p Fq(')p Fv(:)h(This)g(particular)e(v)n
-(alue)i(is)g(used)g(as)h(def)o(ault)e(if)h(the)g(attrib)n(ute)g(is)g
-(omitted)g(in)g(the)g(element.)396 3378 y Fj(Example)479
-3525 y Fi(This)f(is)f(a)h(v)n(alid)g(attrib)o(ute)g(declaration)g(for)g
-(element)g(type)h Fh(r)p Fi(:)479 3695 y Fh(<!ATTLIST)44
-b(r)883 3782 y(x)c(CDATA)164 b(#REQUIRED)883 3870 y(y)40
-b(NMTOKEN)84 b(#IMPLIED)883 3957 y(z)40 b(NMTOKENS)k("one)d(two)h
-(three">)479 4137 y Fi(This)19 b(means)g(that)g Fh(x)g
-Fi(is)g(a)g(required)g(attrib)o(ute)f(that)h(cannot)h(be)f(left)g(out,)
-f(while)h Fh(y)g Fi(and)h Fh(z)f Fi(are)g(optional.)g(The)g(XML)g
-(parser)479 4235 y(indicates)h(the)f(application)g(whether)h
-Fh(y)f Fi(is)f(present)i(or)f(not,)f(b)o(ut)h(if)f Fh(z)h
-Fi(is)g(missing)g(the)g(def)o(ault)h(v)n(alue)f("one)h(tw)o(o)f(three")
-h(is)479 4332 y(returned)g(automatically)-5 b(.)479 4470
-y(This)19 b(is)f(a)h(v)n(alid)g(e)o(xample)h(of)f(these)g(attrib)o
-(utes:)479 4641 y Fh(<r)41 b(x="He)h(said:)h(&quot;I)f(don't)g(like)g
-(quotes!&quot;")j(y='1'>)p Black 3798 5278 a Fr(16)p
-Black eop
-%%Page: 17 17
-17 16 bop Black 3028 67 a Fr(Chapter)19 b(1.)h(What)h(is)g(XML?)p
-Black -2 583 a Fp(1.2.5.)35 b(P)l(ar)n(sed)g(entities)396
-751 y Fv(Elements)20 b(describe)f(the)i(logical)e(structure)h(of)g(the)
-g(document,)e(while)i Fr(entities)g Fv(determine)f(the)h(physical)g
-(structure.)396 859 y(Entities)h(are)f(the)g(pieces)g(of)g(te)o(xt)g
-(the)g(parser)g(operates)f(on,)h(mostly)g(\002les)h(and)f(macros.)f
-(Entities)h(may)g(be)g Fr(par)o(sed)i Fv(in)396 967 y(which)e(case)h
-(the)f(parser)f(reads)h(the)g(te)o(xt)h(and)e(interprets)g(it)i(as)g
-(XML)g(markup,)d(or)i Fr(unpar)o(sed)h Fv(which)e(simply)h(means)396
-1075 y(that)h(the)f(data)g(of)g(the)g(entity)g(has)g(a)h(foreign)d
-(format)h(\(e.g.)h(a)g(GIF)h(icon\).)396 1224 y(If)f(the)g(parsed)f
-(entity)g(is)i(going)e(to)h(be)g(used)f(as)i(part)e(of)h(the)g(DTD,)g
-(it)g(is)h(called)f(a)g Fr(par)o(ameter)f(entity)p Fv(.)h(Y)-9
-b(ou)19 b(can)h(declare)396 1332 y(a)h(parameter)e(entity)g(with)i(a)f
-(\002x)o(ed)g(te)o(xt)g(as)h(content)e(by:)396 1512 y
-Fo(<)p Fq(!ENTITY)44 b(\045)g Fn(name)g Fq(")p Fn(value)p
-Fq(")p Fo(>)396 1703 y Fv(W)m(ithin)20 b(the)h(DTD,)f(you)f(can)h
-Fr(r)m(efer)h(to)f Fv(this)h(entity)-5 b(,)19 b(i.e.)i(read)e(the)h(te)
-o(xt)g(of)g(the)h(entity)-5 b(,)19 b(by:)396 1883 y Fq(\045)p
-Fn(name)p Fq(;)396 2074 y Fv(Such)h(entities)h(beha)n(v)o(e)e(lik)o(e)h
-(macros,)f(i.e.)i(when)e(the)o(y)h(are)g(referred)e(to,)i(the)g(macro)g
-(te)o(xt)g(is)h(inserted)e(and)h(read)396 2182 y(instead)g(of)g(the)g
-(original)f(te)o(xt.)396 2478 y Fj(Example)479 2625 y
-Fi(F)o(or)g(e)o(xample,)g(you)h(can)f(declare)h(tw)o(o)f(elements)g
-(with)f(the)h(same)h(content)f(model)h(by:)479 2795 y
-Fh(<!ENTITY)43 b(\045)e(model)h("a)f(|)g(b)g(|)f(c">)479
-2882 y(<!ELEMENT)k(x)c(\(\045model;\)>)479 2970 y(<!ELEMENT)k(y)c
-(\(\045model;\)>)396 3202 y Fv(If)20 b(the)h(contents)e(of)h(the)g
-(entity)g(are)g(gi)n(v)o(en)f(as)i(string)f(constant,)f(the)h(entity)g
-(is)h(called)f(an)g Fr(internal)g Fv(entity)-5 b(.)19
-b(It)i(is)g(also)396 3310 y(possible)f(to)h(name)e(a)i(\002le)g(to)f
-(be)g(used)g(as)h(content)e(\(an)h Fr(e)n(xternal)g Fv(entity\):)396
-3490 y Fo(<)p Fq(!ENTITY)44 b(\045)g Fn(name)g Fq(SYSTEM)g(")p
-Fn(file)g(name)p Fq(")p Fo(>)396 3681 y Fv(There)20 b(are)g(some)g
-(restrictions)f(for)h(parameter)f(entities:)p Black 396
-4038 a Ft(\225)p Black 60 w Fv(If)h(the)h(internal)e(parameter)g
-(entity)g(contains)h(the)g(\002rst)h(tok)o(en)e(of)h(a)h(declaration)e
-(\(i.e.)g Fo(<)p Fq(!)p Fv(\),)h(it)h(must)f(also)h(contain)479
-4146 y(the)f(last)i(tok)o(en)d(of)h(the)g(declaration,)e(i.e.)j(the)f
-Fo(>)p Fv(.)g(This)g(means)g(that)h(the)f(entity)g(either)g(contains)f
-(a)i(whole)e(number)479 4254 y(of)h(complete)f(declarations,)g(or)h
-(some)g(te)o(xt)g(from)f(the)h(middle)g(of)g(one)f(declaration.)479
-4404 y Fr(Ille)m(gal:)479 4542 y Fq(<!ENTITY)44 b(\045)g(e)h("\(a)f(|)h
-(b)g(|)f(c\)>">)479 4639 y(<!ELEMENT)g(x)g(\045e;)479
-4789 y Fv(Because)21 b Fo(<)p Fq(!)f Fv(is)h(contained)e(in)h(the)g
-(main)g(entity)-5 b(,)19 b(and)h(the)g(corresponding)d
-Fo(>)j Fv(is)h(contained)e(in)h(the)h(entity)e Fq(e)p
-Fv(.)p Black 3797 5278 a Fr(17)p Black eop
-%%Page: 18 18
-18 17 bop Black 3028 67 a Fr(Chapter)19 b(1.)h(What)h(is)g(XML?)p
-Black Black 396 579 a Ft(\225)p Black 60 w Fv(If)f(the)h(internal)e
-(parameter)g(entity)g(contains)h(a)h(left)f(paranthesis,)f(it)i(must)f
-(also)h(contain)e(the)h(corresponding)d(right)479 687
-y(paranthesis.)479 836 y Fr(Ille)m(gal:)479 975 y Fq(<!ENTITY)44
-b(\045)g(e)h("\(a)f(|)h(b)g(|)f(c">)479 1072 y(<!ELEMENT)g(x)g
-(\045e;\)>)479 1222 y Fv(Because)21 b Fq(\()f Fv(is)h(contained)e(in)h
-(the)g(entity)g Fq(e)p Fv(,)h(and)e(the)i(corresponding)16
-b Fq(\))21 b Fv(is)g(contained)e(in)h(the)g(main)g(entity)-5
-b(.)p Black 396 1371 a Ft(\225)p Black 60 w Fv(When)20
-b(reading)e(te)o(xt)i(from)f(an)g(entity)-5 b(,)19 b(the)h(parser)f
-(automatically)f(inserts)i(one)g(space)f(character)g(before)f(the)i
-(entity)479 1479 y(te)o(xt)g(and)g(one)g(space)g(character)f(after)h
-(the)g(entity)g(te)o(xt.)f(Ho)n(we)n(v)o(er)m(,)f(this)j(rule)f(is)h
-(not)f(applied)f(within)h(the)g(de\002nition)479 1587
-y(of)g(another)f(entity)-5 b(.)479 1736 y Fr(Le)m(gal:)479
-1875 y Fq(<!ENTITY)44 b(\045)g(suffix)g("gif">)479 1972
-y(<!ENTITY)g(iconfile)f('icon.\045suffix;'>)479 2121
-y Fv(Because)21 b Fq(\045suffix;)e Fv(is)i(referenced)d(within)i(the)g
-(de\002nition)f(te)o(xt)h(for)g Fq(iconfile)p Fv(,)f(no)h(additional)f
-(spaces)h(are)479 2229 y(added.)479 2379 y Fr(Ille)m(gal:)479
-2517 y Fq(<!ENTITY)44 b(\045)g(suffix)g("test">)479 2615
-y(<!ELEMENT)g(x.\045suffix;)f(ANY>)479 2764 y Fv(Because)21
-b Fq(\045suffix;)e Fv(is)i(referenced)d(outside)i(the)g(de\002nition)f
-(te)o(xt)h(of)g(another)f(entity)-5 b(,)19 b(the)h(parser)g(replaces)
-479 2872 y Fq(\045suffix;)g Fv(by)f Fn(space)p Fq(test)p
-Fn(space)p Fv(.)479 3021 y Fr(Ille)m(gal:)479 3160 y
-Fq(<!ENTITY)44 b(\045)g(e)h("\(a)f(|)h(b)g(|)f(c\)">)479
-3257 y(<!ELEMENT)g(x)g(\045e;*>)479 3407 y Fv(Because)21
-b(there)e(is)j(a)e(whitespace)g(between)f Fq(\))i Fv(and)e
-Fq(*)p Fv(,)i(which)e(is)i(ille)o(gal.)p Black 396 3556
-a Ft(\225)p Black 60 w Fv(An)f(e)o(xternal)f(parameter)g(entity)h(must)
-g(al)o(w)o(ays)h(consist)f(of)g(a)h(whole)e(number)g(of)h(complete)f
-(declarations.)p Black 396 3664 a Ft(\225)p Black 60
-w Fv(In)h(the)g(internal)g(subset)g(of)g(the)g(DTD,)g(a)h(reference)d
-(to)j(a)f(parameter)f(entity)h(\(internal)f(or)h(e)o(xternal\))e(is)k
-(only)479 3772 y(allo)n(wed)e(at)h(positions)e(where)h(a)g(ne)n(w)g
-(declaration)f(can)h(start.)396 3963 y(If)g(the)f(parsed)g(entity)g(is)
-h(going)e(to)i(be)f(used)g(in)h(the)f(document)e(instance,)i(it)h(is)h
-(called)e(a)h Fr(g)o(ener)o(al)e(entity)p Fv(.)h(Such)g(entities)396
-4071 y(can)h(be)g(used)g(as)h(abbre)n(viations)d(for)i(frequent)e
-(phrases,)i(or)g(to)g(include)f(e)o(xternal)g(\002les.)i(Internal)e
-(general)g(entities)i(are)396 4179 y(declared)e(as)i(follo)n(ws:)396
-4359 y Fo(<)p Fq(!ENTITY)44 b Fn(name)g Fq(")p Fn(value)p
-Fq(")p Fo(>)396 4550 y Fv(External)19 b(general)g(entities)i(are)f
-(declared)f(this)i(w)o(ay:)396 4730 y Fo(<)p Fq(!ENTITY)44
-b Fn(name)g Fq(SYSTEM)g(")p Fn(file)g(name)p Fq(")p Fo(>)p
-Black 3800 5278 a Fr(18)p Black eop
-%%Page: 19 19
-19 18 bop Black 3028 67 a Fr(Chapter)19 b(1.)h(What)h(is)g(XML?)p
-Black 396 579 a Fv(References)f(to)g(general)f(entities)i(are)f
-(written)g(as:)396 759 y Fq(&)p Fn(name)p Fq(;)396 950
-y Fv(The)g(main)g(dif)n(ference)e(between)h(parameter)g(and)h(general)f
-(entities)h(is)i(that)e(the)g(former)f(are)h(only)f(recognized)f(in)j
-(the)396 1058 y(DTD)g(and)e(that)i(the)f(latter)g(are)g(only)g
-(recognized)e(in)i(the)g(document)e(instance.)i(As)h(the)f(DTD)g(is)i
-(parsed)d(before)g(the)396 1166 y(document,)f(the)i(parameter)f
-(entities)i(are)f(e)o(xpanded)d(\002rst;)k(for)f(e)o(xample)f(it)i(is)g
-(possible)f(to)g(use)h(the)f(content)f(of)h(a)396 1274
-y(parameter)f(entity)h(as)h(the)f(name)g(of)f(a)i(general)e(entity:)h
-Fq(&#38;\045name;;)2557 1241 y Ff(1)2580 1274 y Fv(.)396
-1423 y(General)g(entities)g(must)h(respect)e(the)i(element)e(hierarchy)
--5 b(.)17 b(This)k(means)f(that)g(there)g(must)g(be)g(an)g(end)g(tag)g
-(for)g(e)n(v)o(ery)396 1531 y(start)h(tag)f(in)h(the)f(entity)g(v)n
-(alue,)f(and)h(that)g(end)f(tags)i(without)e(corresponding)e(start)k
-(tags)f(are)g(not)g(allo)n(wed.)396 1777 y Fj(Example)479
-1924 y Fi(If)f(the)f(author)i(of)f(a)f(document)j(changes)f(sometimes,)
-f(it)f(is)g(w)o(orthwhile)h(to)g(set)f(up)i(a)e(general)i(entity)e
-(containing)i(the)f(names)479 2021 y(of)g(the)g(authors.)h(If)e(the)h
-(author)h(changes,)g(you)f(need)h(only)g(to)e(change)j(the)e
-(de\002nition)g(of)g(the)g(entity)-5 b(,)18 b(and)i(do)f(not)h(need)f
-(to)479 2118 y(check)h(all)f(occurrences)h(of)f(authors')h(names:)479
-2289 y Fh(<!ENTITY)43 b(authors)g("Gerd)f(Stolpmann">)479
-2469 y Fi(In)19 b(the)g(document)i(te)o(xt,)d(you)i(can)f(no)n(w)h
-(refer)e(to)h(the)g(author)h(names)f(by)h(writing)e Fh(&authors;)p
-Fi(.)479 2607 y Fe(Ille)m(gal:)h Fi(The)g(follo)n(wing)g(tw)o(o)g
-(entities)g(are)g(ille)o(gal)f(because)i(the)f(elements)g(in)g(the)g
-(de\002nition)g(do)g(not)h(nest)f(properly:)479 2778
-y Fh(<!ENTITY)43 b(lengthy-tag)i("<section)e(textcolor='white')j
-(background='graphi)q(c'>)q(">)479 2865 y(<!ENTITY)d(nonsense)165
-b("<a></b>">)396 3139 y Fv(Earlier)20 b(in)g(this)h(introduction)d(we)i
-(e)o(xplained)e(that)j(there)e(are)i(substitutes)f(for)g(reserv)o(ed)e
-(characters:)i(&lt;,)g(&gt;,)396 3247 y(&amp;,)f(&apos;,)h(and)f
-(&quot;.)g(These)h(are)g(simply)g(prede\002ned)e(general)h(entities;)i
-(note)f(that)g(the)o(y)g(are)g(the)g(only)396 3355 y(prede\002ned)e
-(entities.)j(It)f(is)h(allo)n(wed)f(to)g(de\002ne)g(these)g(entities)h
-(again)e(as)i(long)e(as)i(the)f(meaning)f(is)i(unchanged.)-2
-3725 y Fp(1.2.6.)35 b(Notations)g(and)e(unpar)n(sed)i(entities)396
-3892 y Fv(Unparsed)19 b(entities)i(ha)n(v)o(e)e(a)i(foreign)d(format)i
-(and)f(can)h(thus)g(not)g(be)g(read)g(by)g(the)g(XML)g(parser)-5
-b(.)20 b(Unparsed)f(entities)396 4000 y(are)h(al)o(w)o(ays)h(e)o
-(xternal.)e(The)h(format)f(of)h(an)g(unparsed)e(entity)i(must)g(ha)n(v)
-o(e)g(been)f(declared,)g(such)h(a)h(format)e(is)i(called)f(a)396
-4108 y Fr(notation)p Fv(.)f(The)g(entity)h(can)g(then)g(be)g(declared)f
-(by)h(referring)e(to)i(this)h(notation.)e(As)i(unparsed)d(entities)j
-(do)f(not)396 4216 y(contain)f(XML)i(te)o(xt,)e(it)i(is)h(not)d
-(possible)h(to)h(include)e(them)h(directly)f(into)h(the)g(document;)e
-(you)i(can)g(only)f(declare)396 4324 y(attrib)n(utes)h(such)g(that)h
-(names)e(of)h(unparsed)f(entities)h(are)h(acceptable)e(v)n(alues.)396
-4474 y(As)i(you)f(can)g(see,)g(unparsed)f(entities)h(are)g(too)g
-(complicated)f(in)h(order)f(to)h(ha)n(v)o(e)g(an)o(y)f(purpose.)g(It)h
-(is)h(almost)f(al)o(w)o(ays)396 4581 y(better)g(to)g(simply)g(pass)h
-(the)f(name)g(of)g(the)g(data)g(\002le)h(as)g(normal)e(attrib)n(ute)g
-(v)n(alue,)h(and)f(let)i(the)f(application)f(recognize)396
-4689 y(and)h(process)g(the)g(foreign)e(format.)p Black
-3800 5278 a Fr(19)p Black eop
-%%Page: 20 20
-20 19 bop Black 3028 67 a Fr(Chapter)19 b(1.)h(What)h(is)g(XML?)p
-Black -2 597 a Fx(1.3.)39 b(A)g(complete)f(e)n(xample:)g(The)h
-Fd(readme)k Fx(DTD)396 777 y Fv(The)20 b(reason)g(for)f
-Fr(r)m(eadme)h Fv(w)o(as)h(that)f(I)g(often)g(wrote)g(tw)o(o)g(v)o
-(ersions)f(of)h(\002les)h(such)f(as)h(README)g(and)e(INST)-8
-b(ALL)396 885 y(which)20 b(e)o(xplain)f(aspects)h(of)g(a)h(distrib)n
-(uted)e(softw)o(are)h(archi)n(v)o(e;)f(one)g(v)o(ersion)g(w)o(as)i
-(ASCII-formatted,)d(the)i(other)g(w)o(as)396 993 y(written)g(in)h
-(HTML.)e(Maintaining)g(both)g(v)o(ersions)h(means)f(double)g(amount)g
-(of)h(w)o(ork,)f(and)h(changes)f(of)h(one)f(v)o(ersion)396
-1101 y(may)h(be)g(for)o(gotten)e(in)i(the)g(other)f(v)o(ersion.)g(T)-7
-b(o)20 b(impro)o(v)o(e)e(this)j(situation)e(I)i(in)m(v)o(ented)d(the)i
-Fr(r)m(eadme)g Fv(DTD)g(which)f(allo)n(ws)396 1209 y(me)h(to)h
-(maintain)e(only)h(one)f(source)h(written)g(as)g(XML)h(document,)d(and)
-h(to)i(generate)e(the)h(ASCII)g(and)g(the)g(HTML)396
-1317 y(v)o(ersion)f(from)g(it.)396 1466 y(In)h(this)h(section,)f(I)g(e)
-o(xplain)f(only)g(the)i(DTD.)f(The)f Fr(r)m(eadme)h Fv(DTD)h(is)g
-(contained)d(in)j(the)f(PXP)h(distrib)n(ution)e(together)396
-1574 y(with)i(the)f(tw)o(o)g(con)m(v)o(erters)e(to)j(produce)d(ASCII)i
-(and)g(HTML.)g(Another)e(section)i(of)g(this)h(manual)e(describes)h
-(the)396 1682 y(HTML)g(con)m(v)o(erter)-5 b(.)396 1831
-y(The)20 b(documents)f(ha)n(v)o(e)g(a)i(simple)f(structure:)f(There)h
-(are)g(up)g(to)g(three)g(le)n(v)o(els)g(of)g(nested)g(sections,)g
-(paragraphs,)d(item)396 1939 y(lists,)22 b(footnotes,)c(hyperlinks,)g
-(and)h(te)o(xt)h(emphasis.)g(The)g(outermost)f(element)g(has)i(usually)
-e(the)h(type)g Fq(readme)p Fv(,)g(it)h(is)396 2047 y(declared)e(by)396
-2228 y Fq(<!ELEMENT)44 b(readme)f(\(sect1+\)>)396 2325
-y(<!ATTLIST)h(readme)845 2422 y(title)g(CDATA)g(#REQUIRED>)396
-2613 y Fv(This)21 b(means)f(that)g(this)h(element)e(contains)h(one)f
-(or)h(more)f(sections)i(of)f(the)g(\002rst)h(le)n(v)o(el)f(\(element)f
-(type)h Fq(sect1)p Fv(\),)f(and)396 2721 y(that)i(the)f(element)f(has)i
-(a)f(required)f(attrib)n(ute)h Fq(title)f Fv(containing)g(character)g
-(data)h(\(CD)m(A)-9 b(T)h(A\).)19 b(Note)h(that)h Fq(readme)396
-2829 y Fv(elements)f(must)g(not)g(contain)f(te)o(xt)h(data.)396
-2978 y(The)g(three)g(le)n(v)o(els)g(of)g(sections)g(are)g(declared)f
-(as)i(follo)n(ws:)396 3158 y Fq(<!ELEMENT)44 b(sect1)g
-(\(title,\(sect2|p|ul\)+\)>)396 3352 y(<!ELEMENT)g(sect2)g
-(\(title,\(sect3|p|ul\)+\)>)396 3547 y(<!ELEMENT)g(sect3)g
-(\(title,\(p|ul\)+\)>)396 3738 y Fv(Ev)o(ery)19 b(section)h(has)g(a)h
-Fq(title)f Fv(element)g(as)g(\002rst)h(subelement.)e(After)h(the)g
-(title)h(an)f(arbitrary)f(b)n(ut)h(non-empty)396 3846
-y(sequence)f(of)h(inner)g(sections,)g(paragraphs)e(and)h(item)i(lists)g
-(follo)n(ws.)f(Note)g(that)g(the)g(inner)g(sections)g(must)g(belong)f
-(to)396 3954 y(the)h(ne)o(xt)g(higher)f(section)h(le)n(v)o(el;)g
-Fq(sect3)g Fv(elements)f(must)i(not)f(contain)f(inner)g(sections)h
-(because)g(there)g(is)h(no)e(ne)o(xt)396 4061 y(higher)g(le)n(v)o(el.)
-396 4211 y(Ob)o(viously)-5 b(,)18 b(all)j(three)f(declarations)e(allo)n
-(w)j(paragraphs)d(\()p Fq(p)p Fv(\))h(and)h(item)g(lists)i(\()p
-Fq(ul)p Fv(\).)e(The)f(de\002nition)g(can)h(be)396 4319
-y(simpli\002ed)g(at)h(this)g(point)e(by)h(using)f(a)i(parameter)e
-(entity:)396 4499 y Fq(<!ENTITY)44 b(\045)g(p.like)g("p|ul">)396
-4693 y(<!ELEMENT)g(sect1)g(\(title,\(sect2|\045p.like;\)+\)>)p
-Black 3800 5278 a Fr(20)p Black eop
-%%Page: 21 21
-21 20 bop Black 3028 67 a Fr(Chapter)19 b(1.)h(What)h(is)g(XML?)p
-Black 396 579 a Fq(<!ELEMENT)44 b(sect2)g
-(\(title,\(sect3|\045p.like;\)+\)>)396 773 y(<!ELEMENT)g(sect3)g
-(\(title,\(\045p.like;\)+\)>)396 964 y Fv(Here,)20 b(the)g(entity)g
-Fq(p.like)g Fv(is)h(nothing)e(b)n(ut)h(a)g(macro)g(abbre)n(viating)d
-(the)j(same)h(sequence)e(of)h(declarations;)f(if)h(ne)n(w)396
-1072 y(elements)f(on)h(the)f(same)h(le)n(v)o(el)f(as)h
-Fq(p)g Fv(and)f Fq(ul)h Fv(are)f(later)h(added,)e(it)i(is)h(suf)n
-(\002cient)e(only)f(to)i(change)e(the)i(entity)f(de\002nition.)396
-1180 y(Note)h(that)h(there)e(are)i(some)f(restrictions)f(on)h(the)g
-(usage)g(of)g(entities)h(in)f(this)h(conte)o(xt;)e(most)h(important,)e
-(entities)396 1288 y(containing)h(a)h(left)h(paranthesis)e(must)h(also)
-h(contain)e(the)h(corresponding)d(right)i(paranthesis.)396
-1437 y(Note)h(that)h(the)f(entity)g Fq(p.like)g Fv(is)h(a)f
-Fr(par)o(ameter)i Fv(entity)-5 b(,)19 b(i.e.)h(the)g(ENTITY)g
-(declaration)e(contains)i(a)g(percent)f(sign,)396 1545
-y(and)h(the)g(entity)g(is)h(referred)e(to)h(by)g Fq(\045p.like;)p
-Fv(.)f(This)h(kind)g(of)f(entity)h(must)h(be)f(used)g(to)g(abbre)n
-(viate)e(parts)j(of)f(the)396 1653 y(DTD;)g(the)g Fr(g)o(ener)o(al)f
-Fv(entities)h(declared)e(without)h(percent)g(sign)h(and)f(referred)f
-(to)i(as)g Fq(&name;)f Fv(are)h(not)f(allo)n(wed)g(in)h(this)396
-1761 y(conte)o(xt.)396 1911 y(The)g Fq(title)g Fv(element)g
-(speci\002es)g(the)h(title)f(of)g(the)h(section)f(in)g(which)g(it)g
-(occurs.)g(The)f(title)i(is)h(gi)n(v)o(en)c(as)j(character)396
-2019 y(data,)f(optionally)f(interspersed)f(with)j(line)f(breaks)g(\()p
-Fq(br)p Fv(\):)396 2199 y Fq(<!ELEMENT)44 b(title)g(\(#PCDATA|br\)*>)
-396 2390 y Fv(Compared)19 b(with)h(the)g Fq(title)g Fr(attrib)n(ute)g
-Fv(of)g(the)h Fq(readme)e Fv(element,)h(this)g(element)g(allo)n(ws)g
-(inner)g(markup)e(\(i.e.)i Fq(br)p Fv(\))396 2498 y(while)g(attrib)n
-(ute)g(v)n(alues)g(do)g(not:)g(It)g(is)h(an)g(error)e(if)h(an)g(attrib)
-n(ute)g(v)n(alue)g(contains)f(the)h(left)h(angle)e(brack)o(et)g
-Fm(<)i Fv(literally)396 2605 y(such)f(that)g(it)h(is)h(impossible)d(to)
-h(include)g(inner)f(elements.)396 2755 y(The)h(paragraph)e(element)h
-Fq(p)i Fv(has)f(a)h(structure)e(similar)i(to)f Fq(title)p
-Fv(,)g(b)n(ut)g(it)h(allo)n(ws)f(more)g(inner)f(elements:)396
-2935 y Fq(<!ENTITY)44 b(\045)g(text)h("br|code|em|footnote|a">)396
-3129 y(<!ELEMENT)f(p)g(\(#PCDATA|\045text;\)*>)396 3320
-y Fv(Line)20 b(breaks)g(do)f(not)h(ha)n(v)o(e)g(inner)f(structure,)g
-(so)i(the)o(y)e(are)h(declared)f(as)i(being)e(empty:)396
-3500 y Fq(<!ELEMENT)44 b(br)g(EMPTY>)396 3691 y Fv(This)21
-b(means)f(that)g(really)g(nothing)e(is)j(allo)n(wed)f(within)g
-Fq(br)p Fv(;)g(you)f(must)i(al)o(w)o(ays)f(write)h Fq(<br></br>)e
-Fv(or)h(abbre)n(viated)396 3799 y Fq(<br/>)p Fv(.)396
-3949 y(Code)g(samples)h(should)e(be)h(mark)o(ed)f(up)h(by)f(the)h
-Fq(code)h Fv(tag;)f(emphasized)f(te)o(xt)h(can)g(be)g(indicated)f(by)h
-Fq(em)p Fv(:)396 4129 y Fq(<!ELEMENT)44 b(code)g(\(#PCDATA\)>)396
-4323 y(<!ELEMENT)g(em)g(\(#PCDATA|\045text;\)*>)396 4514
-y Fv(That)20 b Fq(code)g Fv(elements)g(are)g(not)g(allo)n(wed)g(to)g
-(contain)f(further)g(markup)f(while)i Fq(em)h Fv(elements)f(do)g(is)h
-(a)f(design)g(decision)396 4622 y(by)g(the)g(author)f(of)h(the)g(DTD.)
-396 4772 y(Unordered)e(lists)k(simply)d(consists)i(of)f(one)g(or)g
-(more)f(list)i(items,)g(and)e(a)i(list)g(item)g(may)e(contain)g
-(paragraph-le)n(v)o(el)396 4879 y(material:)p Black 3800
-5278 a Fr(21)p Black eop
-%%Page: 22 22
-22 21 bop Black 3028 67 a Fr(Chapter)19 b(1.)h(What)h(is)g(XML?)p
-Black 396 579 a Fq(<!ELEMENT)44 b(ul)g(\(li+\)>)396 773
-y(<!ELEMENT)g(li)g(\(\045p.like;\)*>)396 964 y Fv(F)o(ootnotes)19
-b(are)h(described)f(by)h(the)g(te)o(xt)g(of)g(the)g(note;)g(this)h(te)o
-(xt)f(may)g(contain)f(te)o(xt-le)n(v)o(el)g(markup.)f(There)h(is)i(no)
-396 1072 y(mechanism)e(to)i(describe)e(the)h(numbering)e(scheme)h(of)h
-(footnotes,)f(or)h(to)g(specify)g(ho)n(w)f(footnote)g(references)f(are)
-396 1180 y(printed.)396 1360 y Fq(<!ELEMENT)44 b(footnote)f
-(\(#PCDATA|\045text;\)*>)396 1551 y Fv(Hyperlinks)19
-b(are)h(written)g(as)h(in)f(HTML.)g(The)g(anchor)f(tag)h(contains)f
-(the)h(te)o(xt)g(describing)f(where)h(the)g(link)g(points)g(to,)396
-1659 y(and)g(the)g Fq(href)g Fv(attrib)n(ute)g(is)h(the)f(pointer)f
-(\(as)i(URL\).)f(There)f(is)j(no)d(w)o(ay)i(to)f(describe)f(locations)h
-(of)g("hash)g(marks".)f(If)396 1767 y(the)h(link)g(refers)g(to)g
-(another)f Fr(r)m(eadme)h Fv(document,)e(the)i(attrib)n(ute)g
-Fq(readmeref)f Fv(should)g(be)h(used)g(instead)g(of)g
-Fq(href)p Fv(.)396 1875 y(The)g(reason)g(is)h(that)f(the)g(con)m(v)o
-(erted)e(document)g(has)i(usually)g(a)h(dif)n(ferent)d(system)i
-(identi\002er)g(\(\002le)h(name\),)d(and)i(the)396 1983
-y(link)g(to)h(a)f(con)m(v)o(erted)e(document)g(must)i(be)g(con)m(v)o
-(erted,)e(too.)396 2163 y Fq(<!ELEMENT)44 b(a)g(\(#PCDATA\)*>)396
-2260 y(<!ATTLIST)g(a)845 2357 y(href)268 b(CDATA)44 b(#IMPLIED)845
-2454 y(readmeref)f(CDATA)h(#IMPLIED)396 2552 y(>)396
-2742 y Fv(Note)20 b(that)h(although)d(it)j(is)g(only)e(sensible)i(to)f
-(specify)g(one)f(of)h(the)g(tw)o(o)h(attrib)n(utes,)f(the)g(DTD)g(has)h
-(no)e(means)h(to)396 2850 y(e)o(xpress)g(this)g(restriction.)396
-3000 y(So)h(f)o(ar)f(the)g(DTD.)g(Finally)-5 b(,)19 b(here)h(is)h(a)g
-(document)d(for)i(it:)396 3180 y Fq(<?xml)44 b(version="1.0")f
-(encoding="ISO-8859-1"?>)396 3277 y(<!DOCTYPE)h(readme)f(SYSTEM)h
-("readme.dtd">)396 3374 y(<readme)g(title="How)f(to)i(use)f(the)g
-(readme)g(converters">)396 3471 y(<sect1>)486 3569 y
-(<title>Usage</title>)486 3666 y(<p>)576 3763 y(The)g(<em>readme</em>)e
-(converter)i(is)g(invoked)g(on)g(the)h(command)e(line)h(by:)486
-3860 y(</p>)486 3957 y(<p>)576 4054 y(<code>readme)e([)j(-text)f(|)h
-(-html)f(])g(input.xml</code>)486 4151 y(</p>)486 4248
-y(<p>)576 4346 y(Here)g(a)g(list)h(of)f(options:)486
-4443 y(</p>)486 4540 y(<ul>)576 4637 y(<li>)665 4734
-y(<p><code>-)396 4831 y(text</code>:)f(specifies)g(that)i(ASCII)f
-(output)f(should)h(be)h(produced</p>)p Black 3800 5278
-a Fr(22)p Black eop
-%%Page: 23 23
-23 22 bop Black 3028 67 a Fr(Chapter)19 b(1.)h(What)h(is)g(XML?)p
-Black 576 579 a Fq(</li>)576 676 y(<li>)665 773 y(<p><code>-)396
-870 y(html</code>:)43 b(specifies)g(that)i(HTML)f(output)g(should)f(be)
-i(produced</p>)576 967 y(</li>)486 1065 y(</ul>)486 1162
-y(<p>)576 1259 y(The)f(input)g(file)g(must)g(be)h(given)f(on)g(the)h
-(command)e(line.)h(The)h(converted)e(output)h(is)576
-1356 y(printed)f(to)i(<em>stdout</em>.)486 1453 y(</p>)396
-1550 y(</sect1>)396 1647 y(<sect1>)486 1745 y(<title>Author</title>)486
-1842 y(<p>)576 1939 y(The)f(program)g(has)g(been)g(written)g(by)576
-2036 y(<a)g(href="mailto:Gerd.Stolpmann@darmstadt.ne)o(tsurf.)o(de">Ge)
-o(rd)39 b(Stolpmann</a>.)486 2133 y(</p>)396 2230 y(</sect1>)396
-2327 y(</readme>)-2 2746 y Fx(Notes)p Black 396 2926
-a Fv(1.)p Black 70 w(This)20 b(construct)g(is)h(only)e(allo)n(wed)h
-(within)g(the)g(de\002nition)f(of)h(another)e(entity;)i(otherwise)g(e)o
-(xtra)f(spaces)i(w)o(ould)529 3034 y(be)f(added)f(\(as)i(e)o(xplained)d
-(abo)o(v)o(e\).)g(Such)i(indirection)e(is)j(not)f(recommended.)529
-3172 y Fi(Complete)f(e)o(xample:)529 3343 y Fh(<!ENTITY)43
-b(\045)e(variant)i("a">)243 b(<!-)42 b(or)f("b")g(->)529
-3430 y(<!ENTITY)i(text-a)g("This)f(is)f(text)h(A.">)529
-3518 y(<!ENTITY)h(text-b)g("This)f(is)f(text)h(B.">)529
-3605 y(<!ENTITY)h(text)f("&#38;text-\045variant)q(;;")q(>)529
-3785 y Fi(Y)-8 b(ou)19 b(can)h(no)n(w)f(write)f Fh(&text;)j
-Fi(in)e(the)g(document)h(instance,)f(and)h(depending)h(on)e(the)g(v)n
-(alue)g(of)g Fh(variant)i Fi(either)e Fh(text-a)i Fi(or)529
-3882 y Fh(text-b)g Fi(is)d(inserted.)p Black 3800 5278
-a Fr(23)p Black eop
-%%Page: 24 24
-24 23 bop Black Black -2 621 a Fs(Chapter)48 b(2.)f(Using)i(PXP)-2
-1055 y Fx(2.1.)39 b(V)-9 b(alidation)396 1235 y Fv(The)20
-b(parser)g(can)g(be)g(used)g(to)g Fr(validate)f Fv(a)i(document.)d
-(This)i(means)g(that)g(all)h(the)f(constraints)g(that)g(must)g(hold)g
-(for)f(a)396 1343 y(v)n(alid)h(document)e(are)i(actually)g(check)o(ed.)
-f(V)-9 b(alidation)19 b(is)i(the)f(def)o(ault)f(mode)h(of)g(PXP,)g
-(i.e.)h(e)n(v)o(ery)d(document)h(is)396 1451 y(v)n(alidated)g(while)i
-(it)f(is)i(being)d(parsed.)396 1600 y(In)h(the)g Fq(examples)g
-Fv(directory)e(of)i(the)g(distrib)n(ution)f(you)h(\002nd)g(the)g
-Fq(pxpvalidate)f Fv(application.)f(It)j(is)g(in)m(v)n(ok)o(ed)d(in)j
-(the)396 1708 y(follo)n(wing)e(w)o(ay:)396 1888 y Fq(pxpvalidate)43
-b([)i(-wf)f(])h Fn(file)p Fq(...)396 2079 y Fv(The)20
-b(\002les)h(mentioned)e(on)g(the)i(command)d(line)i(are)g(v)n
-(alidated,)f(and)h(e)n(v)o(ery)e(w)o(arning)h(and)h(e)n(v)o(ery)f
-(error)g(messages)h(are)396 2187 y(printed)f(to)i(stderr)-5
-b(.)396 2337 y(The)20 b(-wf)g(switch)h(modi\002es)e(the)i(beha)n(viour)
-d(such)i(that)g(a)h(well-formedness)d(parser)h(is)i(simulated.)f(In)g
-(this)g(mode,)f(the)396 2445 y(ELEMENT)-6 b(,)19 b(A)-9
-b(TTLIST)j(,)19 b(and)g(NO)m(T)-8 b(A)f(TION)20 b(declarations)f(of)h
-(the)g(DTD)g(are)g(ignored,)e(and)i(only)f(the)i(ENTITY)396
-2553 y(declarations)e(will)i(tak)o(e)f(ef)n(fect.)g(This)g(mode)f(is)i
-(intended)e(for)h(documents)e(lacking)h(a)i(DTD.)f(Please)h(note)f
-(that)g(the)396 2661 y(parser)g(still)h(scans)g(the)f(DTD)g(fully)g
-(and)g(will)h(report)e(all)h(errors)g(in)g(the)g(DTD;)h(such)f(checks)f
-(are)h(not)g(required)f(by)g(a)396 2769 y(well-formedness)f(parser)-5
-b(.)396 2918 y(The)20 b Fq(pxpvalidate)f Fv(application)g(is)i(the)f
-(simplest)h(sensible)f(program)e(using)i(PXP,)g(you)g(may)f(consider)g
-(it)i(as)396 3026 y("hello)f(w)o(orld")f(program.)-2
-3445 y Fx(2.2.)39 b(Ho)n(w)g(to)g(par)n(se)f(a)i(document)d(fr)m(om)i
-(an)g(application)396 3624 y Fv(Let)21 b(me)f(\002rst)h(gi)n(v)o(e)e(a)
-i(rough)d(o)o(v)o(ervie)n(w)g(of)i(the)h(object)e(model)g(of)h(the)h
-(parser)-5 b(.)19 b(The)h(follo)n(wing)f(items)h(are)h(represented)396
-3732 y(by)f(objects:)p Black 396 4055 a Ft(\225)p Black
-60 w Fr(Documents:)f Fv(The)h(document)e(representation)g(is)j(more)e
-(or)h(less)h(the)f(anchor)f(for)g(the)h(application;)f(all)i(accesses)g
-(to)479 4163 y(the)f(parsed)g(entities)h(start)f(here.)g(It)g(is)h
-(described)e(by)h(the)g(class)h Fq(document)f Fv(contained)e(in)j(the)f
-(module)479 4271 y Fq(Pxp_document)p Fv(.)f(Y)-9 b(ou)19
-b(can)h(get)h(some)f(global)f(information,)e(such)j(as)h(the)f(XML)h
-(declaration)d(the)j(document)479 4379 y(be)o(gins)f(with,)g(the)g(DTD)
-g(of)g(the)g(document,)e(global)i(processing)e(instructions,)h(and)h
-(most)g(important,)f(the)479 4487 y(document)f(tree.)p
-Black 396 4595 a Ft(\225)p Black 60 w Fr(The)j(contents)e(of)h
-(documents:)f Fv(The)h(contents)f(ha)n(v)o(e)h(the)g(structure)f(of)h
-(a)h(tree:)f(Elements)g(contain)f(other)g(elements)479
-4703 y(and)h(te)o(xt)744 4670 y Ff(1)768 4703 y Fv(.)h(The)e(common)g
-(type)h(to)g(represent)f(both)g(kinds)h(of)g(content)f(is)i
-Fq(node)f Fv(which)g(is)h(a)g(class)g(type)e(that)479
-4811 y(uni\002es)h(the)h(properties)d(of)i(elements)g(and)g(character)f
-(data.)h(Ev)o(ery)e(node)i(has)g(a)h(list)g(of)f(children)f(\(which)g
-(is)i(empty)p Black 3800 5278 a Fr(24)p Black eop
-%%Page: 25 25
-25 24 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 479 579 a Fv(if)h(the)f(element)g(is)h(empty)e(or)h(the)g(node)f
-(represents)h(te)o(xt\);)f(nodes)h(may)g(ha)n(v)o(e)f(attrib)n(utes;)h
-(nodes)g(ha)n(v)o(e)f(al)o(w)o(ays)i(te)o(xt)479 687
-y(contents.)d(There)g(are)g(tw)o(o)h(implementations)e(of)h
-Fq(node)p Fv(,)h(the)f(class)i Fq(element_impl)d Fv(for)h(elements,)g
-(and)g(the)h(class)479 795 y Fq(data_impl)h Fv(for)f(te)o(xt)h(data.)g
-(Y)-9 b(ou)20 b(\002nd)f(these)i(classes)g(and)f(class)h(types)f(in)g
-(the)g(module)f Fq(Pxp_document)p Fv(,)g(too.)479 944
-y(Note)h(that)h(attrib)n(ute)f(lists)h(are)f(represented)f(by)g
-(non-class)h(v)n(alues.)p Black 396 1094 a Ft(\225)p
-Black 60 w Fr(The)h(node)e(e)n(xtension:)g Fv(F)o(or)h(adv)n(anced)e
-(usage,)i(e)n(v)o(ery)e(node)i(of)f(the)i(document)d(may)i(ha)n(v)o(e)f
-(an)h(associated)479 1202 y Fr(e)n(xtension)g Fv(which)g(is)h(simply)f
-(a)g(second)f(object.)h(This)g(object)g(must)g(ha)n(v)o(e)g(the)g
-(three)g(methods)f Fq(clone)p Fv(,)g Fq(node)p Fv(,)h(and)479
-1310 y Fq(set_node)f Fv(as)h(bare)f(minimum,)e(b)n(ut)j(you)e(are)i
-(free)e(to)i(add)f(methods)f(as)i(you)f(w)o(ant.)g(This)g(is)i(the)e
-(preferred)e(w)o(ay)j(to)479 1417 y(add)g(functionality)e(to)i(the)h
-(document)d(tree)1746 1384 y Ff(2)1770 1417 y Fv(.)j(The)e(class)j
-(type)d Fq(extension)h Fv(is)h(de\002ned)e(in)h Fq(Pxp_document)p
-Fv(,)f(too.)p Black 396 1525 a Ft(\225)p Black 60 w Fr(The)i(DTD:)f
-Fv(Sometimes)g(it)h(is)g(necessary)e(to)i(access)f(the)h(DTD)f(of)g(a)h
-(document;)d(the)i(a)n(v)o(erage)f(application)g(does)479
-1633 y(not)h(need)g(this)g(feature.)f(The)h(class)h Fq(dtd)g
-Fv(describes)e(DTDs,)i(and)e(mak)o(es)h(it)h(possible)f(to)h(get)f
-(representations)e(of)479 1741 y(element,)i(entity)-5
-b(,)19 b(and)h(notation)e(declarations)h(as)i(well)g(as)g(processing)e
-(instructions)g(contained)f(in)j(the)f(DTD.)479 1849
-y(This)g(class,)g(and)f Fq(dtd_element)p Fv(,)g Fq(dtd_notation)p
-Fv(,)e(and)i Fq(proc_instruction)f Fv(can)h(be)h(found)e(in)i(the)f
-(module)479 1957 y Fq(Pxp_dtd)p Fv(.)h(There)f(are)h(a)h(couple)e(of)h
-(classes)h(representing)d(dif)n(ferent)h(kinds)g(of)h(entities;)h
-(these)f(can)g(be)g(found)f(in)479 2065 y(the)h(module)f
-Fq(Pxp_entity)p Fv(.)396 2214 y(Additionally)-5 b(,)18
-b(the)i(follo)n(wing)f(modules)g(play)h(a)g(role:)p Black
-396 2447 a Ft(\225)p Black 60 w Fr(Pxp_yacc:)e Fv(Here)i(the)h(main)e
-(parsing)h(functions)e(such)i(as)h Fq(parse_document_entity)c
-Fv(are)k(located.)e(Some)479 2555 y(additional)g(types)h(and)g
-(functions)f(allo)n(w)h(the)g(parser)f(to)i(be)f(con\002gured)e(in)i(a)
-h(non-standard)c(w)o(ay)-5 b(.)p Black 396 2663 a Ft(\225)p
-Black 60 w Fr(Pxp_types:)19 b Fv(This)h(is)h(a)g(collection)e(of)h
-(basic)g(types)g(and)g(e)o(xceptions.)396 2812 y(There)g(are)g(some)g
-(further)e(modules)i(that)g(are)g(needed)f(internally)g(b)n(ut)h(are)g
-(not)g(part)g(of)g(the)g(API.)396 2962 y(Let)h(the)f(document)e(to)i
-(be)h(parsed)e(be)h(stored)g(in)g(a)h(\002le)g(called)f
-Fq(doc.xml)p Fv(.)f(The)h(parsing)f(process)h(is)h(started)f(by)396
-3070 y(calling)g(the)g(function)396 3250 y Fq(val)45
-b(parse_document_entity)c(:)k(config)e(->)i(source)f(->)g('ext)g(spec)h
-(->)f('ext)g(document)396 3441 y Fv(de\002ned)19 b(in)i(the)f(module)f
-Fq(Pxp_yacc)p Fv(.)g(The)h(\002rst)h(ar)o(gument)d(speci\002es)i(some)g
-(global)g(properties)e(of)i(the)g(parser;)g(it)h(is)396
-3549 y(recommended)c(to)j(start)g(with)g(the)g Fq(default_config)p
-Fv(.)e(The)h(second)g(ar)o(gument)e(determines)i(where)g(the)h
-(document)396 3657 y(to)h(be)f(parsed)f(comes)h(from;)f(this)i(may)f
-(be)g(a)g(\002le,)h(a)g(channel,)d(or)i(an)g(entity)g(ID.)g(T)-7
-b(o)21 b(parse)f Fq(doc.xml)p Fv(,)f(it)i(is)g(suf)n(\002cient)396
-3764 y(to)g(pass)f Fq(from_file)44 b("doc.xml")p Fv(.)396
-3914 y(The)20 b(third)g(ar)o(gument)e(passes)i(the)h(object)e
-(speci\002cation)h(to)g(use.)g(Roughly)f(speaking,)g(it)i(determines)e
-(which)g(classes)396 4022 y(implement)g(the)h(node)g(objects)f(of)h
-(which)g(element)g(types,)f(and)h(which)g(e)o(xtensions)f(are)h(to)g
-(be)g(used.)g(The)g Fq('ext)396 4130 y Fv(polymorphic)d(v)n(ariable)i
-(is)j(the)e(type)f(of)h(the)h(e)o(xtension.)d(F)o(or)i(the)g(moment,)f
-(let)i(us)f(simply)g(pass)h Fq(default_spec)d Fv(as)396
-4238 y(this)j(ar)o(gument,)d(and)h(ignore)g(it.)396 4387
-y(So)i(the)f(follo)n(wing)e(e)o(xpression)h(parses)h
-Fq(doc.xml)p Fv(:)396 4567 y Fq(open)44 b(Pxp_yacc)396
-4664 y(let)h(d)f(=)h(parse_document_entity)c(default_config)i
-(\(from_file)g("doc.xml"\))g(de-)396 4762 y(fault_spec)p
-Black 3800 5278 a Fr(25)p Black eop
-%%Page: 26 26
-26 25 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 396 579 a Fv(Note)g(that)h Fq(default_config)d
-Fv(implies)i(that)h(w)o(arnings)e(are)h(collected)g(b)n(ut)g(not)g
-(printed.)e(Errors)h(raise)i(one)f(of)g(the)396 687 y(e)o(xception)f
-(de\002ned)g(in)h Fq(Pxp_types)p Fv(;)f(to)i(get)f(readable)f(errors)g
-(and)h(w)o(arnings)f(catch)h(the)g(e)o(xceptions)f(as)i(follo)n(ws:)396
-867 y Fq(class)44 b(warner)g(=)486 964 y(object)576 1061
-y(method)f(warn)i(w)f(=)665 1158 y(print_endline)f(\("WARNING:)g(")i(^)
-f(w\))486 1256 y(end)396 1353 y(;;)396 1547 y(try)486
-1644 y(let)g(config)g(=)h({)f(default_config)f(with)h(warner)g(=)h(new)
-f(warner)g(})g(in)486 1741 y(let)g(d)h(=)g(parse_document_entity)c
-(config)j(\(from_file)f("doc.xml"\))g(default_spec)486
-1838 y(in)576 1935 y(...)396 2033 y(with)531 2130 y(e)h(->)620
-2227 y(print_endline)f(\(Pxp_types.string_of_exn)e(e\))396
-2418 y Fv(No)n(w)20 b Fq(d)h Fv(is)g(an)f(object)g(of)g(the)g
-Fq(document)f Fv(class.)i(If)f(you)g(w)o(ant)g(the)g(node)f(tree,)h
-(you)g(can)g(get)g(the)g(root)f(element)h(by)396 2598
-y Fq(let)45 b(root)f(=)g(d)h(#)g(root)396 2789 y Fv(and)20
-b(if)g(you)g(w)o(ould)f(rather)h(lik)o(e)g(to)g(access)h(the)f(DTD,)g
-(determine)f(it)i(by)396 2969 y Fq(let)45 b(dtd)f(=)h(d)f(#)h(dtd)396
-3160 y Fv(As)21 b(it)g(is)g(more)f(interesting,)f(let)h(us)h(in)m(v)o
-(estigate)e(the)h(node)f(tree)h(no)n(w)-5 b(.)19 b(Gi)n(v)o(en)g(the)i
-(root)e(element,)g(it)i(is)h(possible)d(to)396 3268 y(recursi)n(v)o
-(ely)f(tra)n(v)o(erse)h(the)h(whole)f(tree.)g(The)g(children)g(of)g(a)h
-(node)f Fq(n)h Fv(are)f(returned)f(by)h(the)h(method)e
-Fq(sub_nodes)p Fv(,)g(and)396 3376 y(the)i(type)g(of)g(a)h(node)e(is)i
-(returned)d(by)i Fq(node_type)p Fv(.)f(This)i(function)d(tra)n(v)o
-(erses)i(the)g(tree,)g(and)g(prints)g(the)g(type)f(of)h(each)396
-3484 y(node:)396 3664 y Fq(let)45 b(rec)f(print_structure)e(n)j(=)486
-3761 y(let)f(ntype)g(=)h(n)g(#)f(node_type)g(in)486 3858
-y(match)g(ntype)g(with)576 3955 y(T_element)f(name)h(->)665
-4053 y(print_endline)f(\("Element)g(of)i(type)f(")h(^)f(name\);)665
-4150 y(let)h(children)e(=)i(n)f(#)h(sub_nodes)e(in)665
-4247 y(List.iter)h(print_structure)e(children)486 4344
-y(|)j(T_data)e(->)665 4441 y(print_endline)g("Data")486
-4538 y(|)i(_)f(->)665 4635 y(\(*)h(Other)f(node)g(types)g(are)g(not)h
-(possible)e(unless)h(the)g(parser)g(is)h(configured)800
-4733 y(differently.)710 4830 y(*\))p Black 3798 5278
-a Fr(26)p Black eop
-%%Page: 27 27
-27 26 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 665 579 a Fq(assert)44 b(false)396 770 y Fv(Y)-9
-b(ou)20 b(can)g(call)g(this)h(function)e(by)396 950 y
-Fq(print_structure)43 b(root)396 1141 y Fv(The)20 b(type)g(returned)e
-(by)i Fq(node_type)f Fv(is)i(either)f Fq(T_element)43
-b(name)21 b Fv(or)e Fq(T_data)p Fv(.)h(The)g Fq(name)g
-Fv(of)g(the)g(element)g(type)396 1249 y(is)h(the)g(string)e(included)g
-(in)i(the)f(angle)f(brack)o(ets.)h(Note)g(that)g(only)f(elements)h(ha)n
-(v)o(e)g(children;)f(data)h(nodes)f(are)h(al)o(w)o(ays)396
-1357 y(lea)n(v)o(es)h(of)e(the)i(tree.)396 1506 y(There)f(are)g(some)g
-(more)f(methods)g(in)i(order)e(to)h(access)h(a)f(parsed)g(node)f(tree:)
-p Black 396 1739 a Ft(\225)p Black 60 w Fq(n)45 b(#)g(parent)p
-Fv(:)19 b(Returns)h(the)h(parent)e(node,)g(or)h(raises)h
-Fq(Not_found)e Fv(if)h(the)g(node)g(is)h(already)e(the)h(root)p
-Black 396 1847 a Ft(\225)p Black 60 w Fq(n)45 b(#)g(root)p
-Fv(:)20 b(Returns)g(the)g(root)g(of)f(the)i(node)e(tree.)p
-Black 396 1955 a Ft(\225)p Black 60 w Fq(n)45 b(#)g(attribute)e(a)p
-Fv(:)21 b(Returns)f(the)g(v)n(alue)f(of)h(the)g(attrib)n(ute)g(with)h
-(name)e Fq(a)p Fv(.)i(The)e(method)g(returns)h(a)g(v)n(alue)g(for)479
-2063 y(e)n(v)o(ery)f Fr(declar)m(ed)j Fv(attrib)n(ute,)d(independently)
-e(of)j(whether)f(the)i(attrib)n(ute)e(instance)h(is)h(de\002ned)e(or)h
-(not.)g(If)g(the)479 2170 y(attrib)n(ute)g(is)h(not)f(declared,)f
-Fq(Not_found)g Fv(will)i(be)f(raised.)g(\(In)f(well-formedness)f(mode,)
-h(e)n(v)o(ery)g(attrib)n(ute)h(is)479 2278 y(considered)f(as)i(being)e
-(implicitly)h(declared)e(with)j(type)f Fq(CDATA)p Fv(.\))479
-2428 y(The)g(follo)n(wing)f(return)g(v)n(alues)g(are)i(possible:)f
-Fq(Value)44 b(s)p Fv(,)20 b Fq(Valuelist)43 b(sl)21 b
-Fv(,)f(and)g Fq(Implied_value)p Fv(.)e(The)i(\002rst)479
-2536 y(tw)o(o)h(v)n(alue)e(types)h(indicate)g(that)g(the)g(attrib)n
-(ute)g(v)n(alue)g(is)h(a)n(v)n(ailable,)e(either)h(because)g(there)f
-(is)i(a)g(de\002nition)479 2644 y Fn(a)p Fq(=")p Fn(value)p
-Fq(")f Fv(in)g(the)g(XML)g(te)o(xt,)g(or)g(because)g(there)f(is)i(a)g
-(def)o(ault)e(v)n(alue)h(\(declared)f(in)h(the)g(DTD\).)g(Only)g(if)g
-(both)479 2752 y(the)g(instance)g(de\002nition)f(and)h(the)g(def)o
-(ault)g(declaration)e(are)i(missing,)g(the)h(latter)f(v)n(alue)f
-Fq(Implied_value)g Fv(will)479 2860 y(be)h(returned.)479
-3009 y(In)g(the)g(DTD,)h(e)n(v)o(ery)d(attrib)n(ute)i(is)h(typed.)e
-(There)h(are)g(single-v)n(alue)e(types)i(\(CD)m(A)-9
-b(T)h(A,)20 b(ID,)g(IDREF)-7 b(,)21 b(ENTITY)-11 b(,)479
-3117 y(NMT)o(OKEN,)19 b(enumerations\),)f(in)i(which)g(case)g(the)h
-(method)d(passes)j Fq(Value)44 b(s)21 b Fv(back,)e(where)h
-Fq(s)g Fv(is)h(the)479 3225 y(normalized)e(string)g(v)n(alue)h(of)g
-(the)g(attrib)n(ute.)g(The)f(other)h(types)g(\(IDREFS,)g(ENTITIES,)f
-(NMT)o(OKENS\))479 3333 y(represent)g(list)j(v)n(alues,)d(and)h(the)g
-(parser)g(splits)h(the)f(XML)g(literal)h(into)e(se)n(v)o(eral)h(tok)o
-(ens)g(and)f(returns)h(these)g(tok)o(ens)479 3441 y(as)h
-Fq(Valuelist)44 b(sl)p Fv(.)479 3590 y(Normalization)19
-b(means)h(that)g(entity)g(references)e(\(the)i Fq(&)p
-Fn(name)p Fq(;)g Fv(tok)o(ens\))f(and)h(character)f(references)479
-3698 y(\()p Fq(&#)p Fn(number)s Fq(;)p Fv(\))g(are)h(replaced)f(by)g
-(the)i(te)o(xt)f(the)o(y)f(represent,)g(and)h(that)g(white)g(space)g
-(characters)f(are)i(con)m(v)o(erted)479 3806 y(into)f(plain)g(spaces.)p
-Black 396 3955 a Ft(\225)p Black 60 w Fq(n)45 b(#)g(data)p
-Fv(:)20 b(Returns)g(the)g(character)f(data)h(contained)f(in)h(the)g
-(node.)f(F)o(or)h(data)g(nodes,)f(the)h(meaning)f(is)i(ob)o(vious)479
-4063 y(as)g(this)g(is)g(the)f(main)g(content)f(of)h(data)g(nodes.)f(F)o
-(or)h(element)g(nodes,)f(this)i(method)e(returns)g(the)h(concatenated)
-479 4171 y(contents)g(of)g(all)g(inner)g(data)g(nodes.)479
-4321 y(Note)g(that)h(entity)f(references)e(included)h(in)h(the)h(te)o
-(xt)f(are)g(resolv)o(ed)f(while)h(the)o(y)f(are)h(being)g(parsed;)f
-(for)h(e)o(xample)479 4429 y(the)g(te)o(xt)h("a)f(&lt;&gt;)g(b")g(will)
-h(be)f(returned)e(as)j("a)g(<>)f(b")g(by)g(this)h(method.)d(Spaces)j
-(of)f(data)g(nodes)f(are)h(al)o(w)o(ays)479 4537 y(preserv)o(ed.)e(Ne)n
-(wlines)j(are)f(preserv)o(ed,)e(b)n(ut)i(al)o(w)o(ays)g(con)m(v)o
-(erted)e(to)i(\\n)h(characters)e(e)n(v)o(en)g(if)i(ne)n(wlines)e(are)i
-(encoded)479 4644 y(as)g(\\r\\n)f(or)g(\\r)-5 b(.)21
-b(Normally)e(you)g(will)i(ne)n(v)o(er)e(see)i(tw)o(o)f(adjacent)f(data)
-i(nodes)e(because)h(the)g(parser)f(collapses)h(all)h(data)479
-4752 y(material)f(at)h(one)e(location)h(into)g(one)f(node.)g(\(Ho)n(we)
-n(v)o(er)m(,)f(if)i(you)g(create)g(your)f(o)n(wn)g(tree)h(or)g
-(transform)f(the)h(parsed)479 4860 y(tree,)g(it)h(is)g(possible)f(to)h
-(ha)n(v)o(e)e(adjacent)h(data)g(nodes.\))p Black 3797
-5278 a Fr(27)p Black eop
-%%Page: 28 28
-28 27 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 479 579 a Fv(Note)g(that)h(elements)f(that)g(do)g
-Fr(not)h Fv(allo)n(w)f(#PCD)m(A)-9 b(T)h(A)20 b(as)h(content)e(will)i
-(not)f(ha)n(v)o(e)g(data)g(nodes)f(as)i(children.)e(This)479
-687 y(means)h(that)g(spaces)h(and)f(ne)n(wlines,)f(the)h(only)g
-(character)f(material)g(allo)n(wed)h(for)g(such)f(elements,)h(are)g
-(silently)479 795 y(dropped.)396 986 y(F)o(or)g(e)o(xample,)e(if)i(the)
-f(task)h(is)h(to)f(print)f(all)h(contents)f(of)g(elements)h(with)f
-(type)h("v)n(aluable")e(whose)h(attrib)n(ute)g("priority")396
-1094 y(is)i("1",)f(this)h(function)d(can)i(help:)396
-1274 y Fq(let)45 b(rec)f(print_valuable_prio1)d(n)k(=)486
-1371 y(let)f(ntype)g(=)h(n)g(#)f(node_type)g(in)486 1468
-y(match)g(ntype)g(with)576 1565 y(T_element)f("valuable")g(when)h(n)h
-(#)g(attribute)e("priority")g(=)i(Value)f("1")g(->)665
-1662 y(print_endline)f("Valuable)g(node)h(with)h(priotity)e(1)i
-(found:";)665 1759 y(print_endline)e(\(n)h(#)h(data\))486
-1857 y(|)g(\(T_element)e(_)h(|)h(T_data\))f(->)665 1954
-y(let)h(children)e(=)i(n)f(#)h(sub_nodes)e(in)665 2051
-y(List.iter)h(print_valuable_prio1)d(children)486 2148
-y(|)k(_)f(->)665 2245 y(assert)g(false)396 2436 y Fv(Y)-9
-b(ou)20 b(can)g(call)g(this)h(function)e(by:)396 2616
-y Fq(print_valuable_prio1)42 b(root)396 2807 y Fv(If)20
-b(you)g(lik)o(e)g(a)h(DSSSL-lik)o(e)f(style,)g(you)g(can)g(mak)o(e)f
-(the)h(function)f Fq(process_children)f Fv(e)o(xplicit:)396
-2987 y Fq(let)45 b(rec)f(print_valuable_prio1)d(n)k(=)486
-3182 y(let)f(process_children)e(n)j(=)576 3279 y(let)f(children)f(=)i
-(n)g(#)f(sub_nodes)g(in)576 3376 y(List.iter)f(print_valuable_prio1)e
-(children)486 3473 y(in)486 3667 y(let)j(ntype)g(=)h(n)g(#)f(node_type)
-g(in)486 3764 y(match)g(ntype)g(with)576 3862 y(T_element)f("valuable")
-g(when)h(n)h(#)g(attribute)e("priority")g(=)i(Value)f("1")g(->)665
-3959 y(print_endline)f("Valuable)g(node)h(with)h(priority)e(1)i
-(found:";)665 4056 y(print_endline)e(\(n)h(#)h(data\))486
-4153 y(|)g(\(T_element)e(_)h(|)h(T_data\))f(->)665 4250
-y(process_children)e(n)486 4347 y(|)j(_)f(->)665 4444
-y(assert)g(false)396 4635 y Fv(So)21 b(f)o(ar)m(,)e(O'Caml)h(is)i(no)n
-(w)d(a)i(simple)f("style-sheet)g(language":)e(Y)-9 b(ou)20
-b(can)g(form)f(a)h(big)g("match")g(e)o(xpression)e(to)396
-4743 y(distinguish)h(between)h(all)h(signi\002cant)e(cases,)i(and)f
-(pro)o(vide)e(dif)n(ferent)g(reactions)i(on)g(dif)n(ferent)e
-(conditions.)h(But)h(this)396 4851 y(technique)f(has)h(limitations;)g
-(the)h("match")e(e)o(xpression)g(tends)h(to)g(get)g(lar)o(ger)f(and)h
-(lar)o(ger)m(,)e(and)i(it)g(is)i(dif)n(\002cult)d(to)i(store)p
-Black 3800 5278 a Fr(28)p Black eop
-%%Page: 29 29
-29 28 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 396 579 a Fv(intermediate)f(v)n(alues)h(as)h(there)e(is)j(only)d
-(one)h(big)f(recursion.)g(Alternati)n(v)o(ely)-5 b(,)18
-b(it)j(is)g(also)f(possible)g(to)h(represent)e(the)396
-687 y(v)n(arious)g(cases)i(as)g(classes,)g(and)f(to)g(use)h(dynamic)d
-(method)h(lookup)g(to)h(\002nd)g(the)g(appropiate)e(class.)j(The)f(ne)o
-(xt)f(section)396 795 y(e)o(xplains)g(this)i(technique)e(in)h(detail.)
--2 1213 y Fx(2.3.)39 b(Class-based)e(pr)m(ocessing)g(of)j(the)f(node)f
-(tree)396 1393 y Fv(By)21 b(def)o(ault,)e(the)h(parsed)g(node)f(tree)h
-(consists)h(of)f(objects)g(of)g(the)g(same)g(class;)h(this)g(is)g(a)g
-(good)e(design)g(as)i(long)e(as)i(you)396 1501 y(w)o(ant)g(only)e(to)h
-(access)h(selected)f(parts)g(of)g(the)h(document.)c(F)o(or)j(comple)o
-(x)f(transformations,)e(it)k(may)f(be)g(better)g(to)g(use)396
-1609 y(dif)n(ferent)f(classes)i(for)f(objects)g(describing)e(dif)n
-(ferent)h(element)g(types.)396 1758 y(F)o(or)h(e)o(xample,)f(if)h(the)g
-(DTD)h(declares)e(the)i(element)e(types)h Fq(a)p Fv(,)h
-Fq(b)p Fv(,)f(and)g Fq(c)p Fv(,)g(and)g(if)g(the)g(task)h(is)g(to)f
-(con)m(v)o(ert)e(an)j(arbitrary)396 1866 y(document)d(into)i(a)h
-(printable)e(format,)g(the)h(idea)g(is)h(to)f(de\002ne)g(for)g(e)n(v)o
-(ery)f(element)g(type)h(a)g(separate)g(class)h(that)g(has)f(a)396
-1974 y(method)f Fq(print)p Fv(.)h(The)g(classes)h(are)f
-Fq(eltype_a)p Fv(,)f Fq(eltype_b)p Fv(,)g(and)h Fq(eltype_c)p
-Fv(,)f(and)h(e)n(v)o(ery)f(class)i(implements)396 2082
-y Fq(print)f Fv(such)g(that)g(elements)g(of)g(the)g(type)g
-(corresponding)d(to)j(the)g(class)i(are)e(con)m(v)o(erted)d(to)k(the)f
-(output)f(format.)396 2232 y(The)h(parser)g(supports)f(such)h(a)g
-(design)g(directly)-5 b(.)19 b(As)i(it)g(is)g(impossible)e(to)i(deri)n
-(v)o(e)d(recursi)n(v)o(e)h(classes)i(in)g(O'Caml)3703
-2198 y Ff(3)3727 2232 y Fv(,)g(the)396 2340 y(specialized)f(element)f
-(classes)j(cannot)d(be)h(formed)f(by)g(simply)h(inheriting)f(from)g
-(the)h(b)n(uilt-in)g(classes)h(of)f(the)g(parser)396
-2447 y(and)g(adding)f(methods)g(for)g(customized)g(functionality)-5
-b(.)18 b(T)-7 b(o)20 b(get)g(around)f(this)h(limitation,)g(e)n(v)o(ery)
-f(node)g(of)h(the)396 2555 y(document)e(tree)j(is)g(represented)d(by)i
-Fr(two)h Fv(objects,)e(one)h(called)g("the)g(node")f(and)h(containing)e
-(the)i(recursi)n(v)o(e)396 2663 y(de\002nition)f(of)h(the)g(tree,)g
-(one)g(called)g("the)g(e)o(xtension".)e(Ev)o(ery)h(node)g(object)h(has)
-g(a)h(reference)e(to)h(the)g(e)o(xtension,)f(and)396
-2771 y(the)h(e)o(xtension)f(has)i(a)f(reference)f(to)h(the)g(node.)f
-(The)h(adv)n(antage)e(of)i(this)h(model)e(is)i(that)g(it)g(is)g(no)n(w)
-e(possible)h(to)396 2879 y(customize)g(the)g(e)o(xtension)f(without)g
-(af)n(fecting)g(the)h(typing)f(constraints)g(of)h(the)h(recursi)n(v)o
-(e)d(node)h(de\002nition.)396 3029 y(Ev)o(ery)g(e)o(xtension)g(must)h
-(ha)n(v)o(e)g(the)g(three)g(methods)f Fq(clone)p Fv(,)g
-Fq(node)p Fv(,)h(and)g Fq(set_node)p Fv(.)f(The)h(method)f
-Fq(clone)h Fv(creates)396 3137 y(a)h(deep)e(cop)o(y)h(of)g(the)g(e)o
-(xtension)f(object)g(and)h(returns)f(it;)i Fq(node)f
-Fv(returns)g(the)g(node)f(object)h(for)f(this)i(e)o(xtension)e(object;)
-396 3244 y(and)h Fq(set_node)f Fv(is)i(used)f(to)h(tell)g(the)f(e)o
-(xtension)f(object)g(which)h(node)f(is)i(associated)f(with)g(it,)h
-(this)g(method)e(is)396 3352 y(automatically)g(called)h(when)g(the)g
-(node)f(tree)h(is)h(initialized.)f(The)g(follo)n(wing)e(de\002nition)h
-(is)i(a)g(good)e(starting)h(point)396 3460 y(for)g(these)g(methods;)f
-(usually)h Fq(clone)g Fv(must)g(be)g(further)f(re\002ned)g(when)h
-(instance)g(v)n(ariables)f(are)h(added)f(to)h(the)h(class:)396
-3640 y Fq(class)44 b(custom_extension)e(=)486 3738 y(object)i(\(self\))
-576 3932 y(val)g(mutable)g(node)g(=)g(\(None)g(:)h(custom_extension)d
-(node)i(option\))576 4126 y(method)f(clone)h(=)h({<)g(>})576
-4223 y(method)e(node)i(=)665 4320 y(match)f(node)g(with)845
-4418 y(None)g(->)934 4515 y(assert)g(false)755 4612 y(|)h(Some)f(n)g
-(->)h(n)576 4709 y(method)e(set_node)h(n)h(=)665 4806
-y(node)f(<-)h(Some)f(n)p Black 3800 5278 a Fr(29)p Black
-eop
-%%Page: 30 30
-30 29 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 486 676 a Fq(end)396 867 y Fv(This)h(part)e(of)h(the)h(e)o
-(xtension)d(is)j(usually)f(the)g(same)h(for)e(all)i(classes,)g(so)g(it)
-g(is)g(a)f(good)f(idea)h(to)g(consider)396 975 y Fq(custom_extension)e
-Fv(as)j(the)f(super)n(-class)g(of)g(the)h(further)d(class)j
-(de\002nitions.)e(Continuining)f(the)j(e)o(xample)d(of)396
-1083 y(abo)o(v)o(e,)h(we)h(can)g(de\002ne)g(the)g(element)g(type)f
-(classes)j(as)e(follo)n(ws:)396 1263 y Fq(class)44 b(virtual)g
-(custom_extension)e(=)486 1360 y(object)i(\(self\))576
-1457 y(...)g(clone,)g(node,)g(set_node)f(defined)h(as)g(above)g(...)576
-1652 y(method)f(virtual)h(print)g(:)h(out_channel)e(->)h(unit)486
-1749 y(end)396 1943 y(class)g(eltype_a)g(=)486 2040 y(object)g
-(\(self\))576 2137 y(inherit)f(custom_extension)576 2234
-y(method)g(print)h(ch)h(=)g(...)486 2332 y(end)396 2526
-y(class)f(eltype_b)g(=)486 2623 y(object)g(\(self\))576
-2720 y(inherit)f(custom_extension)576 2817 y(method)g(print)h(ch)h(=)g
-(...)486 2914 y(end)396 3109 y(class)f(eltype_c)g(=)486
-3206 y(object)g(\(self\))576 3303 y(inherit)f(custom_extension)576
-3400 y(method)g(print)h(ch)h(=)g(...)486 3497 y(end)396
-3688 y Fv(The)20 b(method)f Fq(print)h Fv(can)g(no)n(w)f(be)i
-(implemented)d(for)h(e)n(v)o(ery)g(element)h(type)g(separately)-5
-b(.)18 b(Note)i(that)h(you)e(get)h(the)396 3796 y(associated)g(node)f
-(by)h(in)m(v)n(oking)396 3976 y Fq(self)44 b(#)h(node)396
-4167 y Fv(and)20 b(you)f(get)h(the)h(e)o(xtension)d(object)i(of)g(a)h
-(node)e Fq(n)h Fv(by)g(writing)396 4347 y Fq(n)45 b(#)g(extension)396
-4538 y Fv(It)21 b(is)g(guaranteed)d(that)396 4718 y Fq(self)44
-b(#)h(node)f(#)h(extension)e(==)i(self)p Black 3800 5278
-a Fr(30)p Black eop
-%%Page: 31 31
-31 30 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 396 579 a Fv(al)o(w)o(ays)h(holds.)396 728 y(Here)f(are)g(sample)
-g(de\002nitions)g(of)g(the)g Fq(print)g Fv(methods:)396
-909 y Fq(class)44 b(eltype_a)g(=)486 1006 y(object)g(\(self\))576
-1103 y(inherit)f(custom_extension)576 1200 y(method)g(print)h(ch)h(=)
-665 1297 y(\(*)g(Nodes)f(<a>...</a>)f(are)h(only)g(containers:)f(*\))
-665 1394 y(output_string)g(ch)h("\(";)665 1491 y(List.iter)755
-1588 y(\(fun)g(n)h(->)f(n)h(#)g(extension)e(#)i(print)f(ch\))755
-1686 y(\(self)g(#)h(node)f(#)g(sub_nodes\);)665 1783
-y(output_string)f(ch)h("\)";)486 1880 y(end)396 2074
-y(class)g(eltype_b)g(=)486 2171 y(object)g(\(self\))576
-2268 y(inherit)f(custom_extension)576 2366 y(method)g(print)h(ch)h(=)
-665 2463 y(\(*)g(Print)f(the)g(value)g(of)h(the)f(CDATA)g(attribute)f
-("print":)h(*\))665 2560 y(match)g(self)g(#)h(node)f(#)h(attribute)e
-("print")h(with)755 2657 y(Value)g(s)314 b(->)44 b(output_string)f(ch)h
-(s)665 2754 y(|)h(Implied_value)e(->)h(output_string)f(ch)h
-("<missing>")665 2851 y(|)h(Valuelist)e(l)135 b(->)44
-b(assert)g(false)1517 2948 y(\(*)h(not)f(possible)f(because)h(the)g
-(att)h(is)f(CDATA)g(*\))486 3045 y(end)396 3240 y(class)g(eltype_c)g(=)
-486 3337 y(object)g(\(self\))576 3434 y(inherit)f(custom_extension)576
-3531 y(method)g(print)h(ch)h(=)665 3628 y(\(*)g(Print)f(the)g(contents)
-g(of)g(this)g(element:)g(*\))665 3725 y(output_string)f(ch)h(\(self)g
-(#)h(node)f(#)h(data\))486 3823 y(end)396 4017 y(class)f
-(null_extension)f(=)486 4114 y(object)h(\(self\))576
-4211 y(inherit)f(custom_extension)576 4308 y(method)g(print)h(ch)h(=)g
-(assert)e(false)486 4405 y(end)396 4638 y Fv(The)20 b(remaining)f(task)
-h(is)h(to)g(con\002gure)d(the)i(parser)g(such)g(that)g(these)g(e)o
-(xtension)f(classes)i(are)f(actually)g(used.)g(Here)396
-4746 y(another)f(problem)f(arises:)j(It)g(is)g(not)f(possible)g(to)g
-(dynamically)e(select)j(the)f(class)h(of)f(an)g(object)g(to)g(be)h
-(created.)e(As)396 4854 y(w)o(orkaround,)e(PXP)k(allo)n(ws)g(the)f
-(user)g(to)g(specify)g Fr(e)n(xemplar)g(objects)g Fv(for)f(the)h(v)n
-(arious)g(element)f(types;)h(instead)g(of)p Black 3800
-5278 a Fr(31)p Black eop
-%%Page: 32 32
-32 31 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 396 579 a Fv(creating)f(the)i(nodes)e(of)h(the)g(tree)g(by)g
-(applying)f(the)h Fq(new)g Fv(operator)e(the)j(nodes)e(are)h(produced)e
-(by)i(duplicating)e(the)396 687 y(e)o(x)o(emplars.)h(As)h(object)g
-(duplication)f(preserv)o(es)g(the)h(class)h(of)f(the)g(object,)f(one)h
-(can)g(create)g(fresh)g(objects)g(of)g(e)n(v)o(ery)396
-795 y(class)h(for)f(which)g(pre)n(viously)e(an)i(e)o(x)o(emplar)e(has)j
-(been)e(re)o(gistered.)396 944 y(Ex)o(emplars)g(are)h(meant)g(as)h
-(objects)f(without)f(contents,)g(the)h(only)g(interesting)f(thing)g(is)
-j(that)e(e)o(x)o(emplars)e(are)396 1052 y(instances)i(of)g(a)h(certain)
-f(class.)g(The)g(creation)f(of)h(an)h(e)o(x)o(emplar)d(for)h(an)h
-(element)g(node)f(can)h(be)g(done)f(by:)396 1232 y Fq(let)45
-b(element_exemplar)d(=)i(new)h(element_impl)e(extension_exemplar)396
-1423 y Fv(And)20 b(a)h(data)f(node)f(e)o(x)o(emplar)f(is)j(created)f
-(by:)396 1603 y Fq(let)45 b(data_exemplar)d(=)j(new)f(data_impl)g
-(extension_exemplar)396 1794 y Fv(The)20 b(classes)h
-Fq(element_impl)e Fv(and)h Fq(data_impl)f Fv(are)h(de\002ned)f(in)i
-(the)f(module)f Fq(Pxp_document)p Fv(.)f(The)396 1902
-y(constructors)h(initialize)h(the)g(fresh)g(objects)g(as)h(empty)e
-(objects,)h(i.e.)g(without)g(children,)e(without)i(data)g(contents,)f
-(and)396 2010 y(so)i(on.)e(The)h Fq(extension_exemplar)e
-Fv(is)j(the)f(initial)h(e)o(xtension)e(object)g(the)h(e)o(x)o(emplars)f
-(are)h(associated)g(with.)396 2160 y(Once)g(the)g(e)o(x)o(emplars)f
-(are)h(created)f(and)h(stored)g(some)n(where)f(\(e.g.)g(in)h(a)h(hash)f
-(table\),)f(you)h(can)g(tak)o(e)g(an)g(e)o(x)o(emplar)396
-2268 y(and)g(create)g(a)g(concrete)f(instance)h(\(with)g(contents\))f
-(by)h(duplicating)e(it.)j(As)g(user)f(of)g(the)g(parser)g(you)f(are)h
-(normally)396 2376 y(not)g(concerned)e(with)i(this)h(as)g(this)g(is)g
-(part)f(of)g(the)g(internal)f(logic)h(of)g(the)g(parser)m(,)f(b)n(ut)h
-(as)h(background)c(kno)n(wledge)h(it)396 2483 y(is)j(w)o(orthwhile)e
-(to)i(mention)e(that)h(the)g(tw)o(o)h(methods)e Fq(create_element)f
-Fv(and)i Fq(create_data)f Fv(actually)g(perform)396 2591
-y(the)h(duplication)f(of)g(the)i(e)o(x)o(emplar)d(for)h(which)h(the)o
-(y)f(are)h(in)m(v)n(ok)o(ed,)e(additionally)g(apply)i(modi\002cations)e
-(to)j(the)f(clone,)396 2699 y(and)g(\002nally)g(return)f(the)h(ne)n(w)g
-(object.)f(Moreo)o(v)o(er)m(,)f(the)i(e)o(xtension)e(object)i(is)h
-(copied,)e(too,)h(and)f(the)i(ne)n(w)f(node)f(object)396
-2807 y(is)i(associated)f(with)g(the)g(fresh)g(e)o(xtension)e(object.)i
-(Note)g(that)g(this)g(is)h(the)f(reason)g(why)f(e)n(v)o(ery)g(e)o
-(xtension)f(object)i(must)396 2915 y(ha)n(v)o(e)g(a)g
-Fq(clone)g Fv(method.)396 3065 y(The)g(con\002guration)e(of)i(the)g
-(set)h(of)f(e)o(x)o(emplars)e(is)j(passed)f(to)h(the)f
-Fq(parse_document_entity)d Fv(function)i(as)i(third)396
-3173 y(ar)o(gument.)d(In)i(our)f(e)o(xample,)g(this)h(ar)o(gument)e
-(can)i(be)g(set)h(up)f(as)h(follo)n(ws:)396 3353 y Fq(let)45
-b(spec)f(=)486 3450 y(make_spec_from_alist)576 3547 y(~data_exemplar:)
-535 b(\(new)44 b(data_impl)g(\(new)g(null_extension\)\))576
-3644 y(~default_element_exemplar:)c(\(new)k(element_impl)f(\(new)h
-(null_extension\)\))576 3741 y(~element_alist:)710 3838
-y([)h("a",)89 b(new)44 b(element_impl)f(\(new)h(eltype_a\);)800
-3935 y("b",)89 b(new)44 b(element_impl)f(\(new)h(eltype_b\);)800
-4033 y("c",)89 b(new)44 b(element_impl)f(\(new)h(eltype_c\);)710
-4130 y(])576 4227 y(\(\))396 4418 y Fv(The)20 b Fq(~element_alist)f
-Fv(function)f(ar)o(gument)g(de\002nes)i(the)g(mapping)e(from)h(element)
-h(types)g(to)g(e)o(x)o(emplars)f(as)396 4526 y(associati)n(v)o(e)h
-(list.)h(The)f(ar)o(gument)e Fq(~data_exemplar)g Fv(speci\002es)j(the)f
-(e)o(x)o(emplar)e(for)i(data)g(nodes,)f(and)h(the)396
-4634 y Fq(~default_element_exemplar)d Fv(is)k(used)f(whene)n(v)o(er)e
-(the)i(parser)g(\002nds)g(an)g(element)g(type)f(for)h(which)g(the)396
-4742 y(associati)n(v)o(e)g(list)h(does)f(not)g(de\002ne)g(an)g(e)o(x)o
-(emplar)-5 b(.)p Black 3800 5278 a Fr(32)p Black eop
-%%Page: 33 33
-33 32 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 396 579 a Fv(The)g(con\002guration)e(is)j(no)n(w)e(complete.)g(Y)
--9 b(ou)20 b(can)g(still)h(use)g(the)f(same)g(parsing)f(functions,)g
-(only)g(the)h(initialization)g(is)396 687 y(a)h(bit)f(dif)n(ferent.)f
-(F)o(or)g(e)o(xample,)g(call)i(the)f(parser)f(by:)396
-867 y Fq(let)45 b(d)f(=)h(parse_document_entity)c(default_config)i
-(\(from_file)g("doc.xml"\))g(spec)396 1058 y Fv(Note)20
-b(that)h(the)f(resulting)f(document)f Fq(d)j Fv(has)f(a)h(usable)f
-(type;)g(especially)f(the)i Fq(print)f Fv(method)e(we)j(added)e(is)i
-(visible.)396 1166 y(So)g(you)e(can)h(print)g(your)e(document)h(by)396
-1346 y Fq(d)45 b(#)g(root)f(#)g(extension)g(#)g(print)g(stdout)396
-1578 y Fv(This)21 b(object-oriented)c(approach)h(looks)i(rather)f
-(complicated;)g(this)h(is)i(mostly)d(caused)h(by)g(w)o(orking)e(around)
-h(some)396 1686 y(problems)g(of)h(the)g(strict)h(typing)e(system)h(of)g
-(O'Caml.)g(Some)g(auxiliary)f(concepts)g(such)h(as)h(e)o(xtensions)e
-(were)396 1794 y(needed,)g(b)n(ut)h(the)g(practical)g(consequences)e
-(are)i(lo)n(w)-5 b(.)20 b(In)g(the)g(ne)o(xt)f(section,)h(one)g(of)g
-(the)g(e)o(xamples)f(of)h(the)396 1902 y(distrib)n(ution)f(is)i(e)o
-(xplained,)d(a)j(con)m(v)o(erter)d(from)h Fr(r)m(eadme)h
-Fv(documents)e(to)i(HTML.)-2 2321 y Fx(2.4.)39 b(Example:)f(An)h(HTML)f
-(bac)m(kend)g(f)m(or)h(the)g Fd(readme)44 b Fx(DTD)396
-2501 y Fv(The)20 b(con)m(v)o(erter)e(from)h Fr(r)m(eadme)h
-Fv(documents)e(to)i(HTML)g(documents)f(follo)n(ws)h(strictly)g(the)g
-(approach)e(to)j(de\002ne)e(one)396 2609 y(class)i(per)f(element)g
-(type.)f(The)h(HTML)g(code)g(is)h(similar)f(to)g(the)h
-Fr(r)m(eadme)e Fv(source,)g(because)h(of)g(this)h(most)f(elements)396
-2716 y(can)g(be)g(con)m(v)o(erted)e(in)i(the)g(follo)n(wing)f(w)o(ay:)h
-(Gi)n(v)o(en)g(the)g(input)f(element)396 2897 y Fq(<e>content</e>)396
-3088 y Fv(the)h(con)m(v)o(ersion)e(te)o(xt)i(is)h(the)f(concatenation)e
-(of)i(a)h(computed)d(pre\002x,)h(the)h(recursi)n(v)o(ely)f(con)m(v)o
-(erted)e(content,)i(and)h(a)396 3195 y(computed)e(suf)n(\002x.)396
-3345 y(Only)i(one)g(element)f(type)h(cannot)f(be)h(handled)f(by)h(this)
-g(scheme:)g Fq(footnote)p Fv(.)f(F)o(ootnotes)g(are)h(collected)g
-(while)g(the)o(y)396 3453 y(are)g(found)f(in)h(the)g(input)g(te)o(xt,)g
-(and)f(the)o(y)h(are)g(printed)f(after)h(the)g(main)g(te)o(xt)g(has)g
-(been)g(con)m(v)o(erted)d(and)j(printed.)-2 3781 y Fp(2.4.1.)35
-b(Header)396 4021 y Fq(open)44 b(Pxp_types)396 4118 y(open)g
-(Pxp_document)-2 4571 y Fp(2.4.2.)35 b(T)-7 b(ype)34
-b(dec)n(larations)396 4811 y Fq(class)44 b(type)g(footnote_printer)f(=)
-p Black 3800 5278 a Fr(33)p Black eop
-%%Page: 34 34
-34 33 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 486 579 a Fq(object)576 676 y(method)43 b(footnote_to_html)g(:)h
-(store_type)f(-)p Fo(>)i Fq(out_channel)e(-)p Fo(>)h
-Fq(unit)486 773 y(end)396 967 y(and)h(store_type)e(=)486
-1065 y(object)576 1162 y(method)g(alloc_footnote)g(:)i
-(footnote_printer)d(-)p Fo(>)i Fq(int)576 1259 y(method)f
-(print_footnotes)g(:)h(out_channel)f(-)p Fo(>)i Fq(unit)486
-1356 y(end)396 1453 y(;;)-2 1906 y Fp(2.4.3.)35 b(Class)g
-Fc(store)396 2073 y Fv(The)20 b Fq(store)g Fv(is)h(a)g(container)d(for)
-i(footnotes.)f(Y)-9 b(ou)19 b(can)h(add)g(a)g(footnote)f(by)h(in)m(v)n
-(oking)e Fq(alloc_footnote)p Fv(;)g(the)396 2181 y(ar)o(gument)g(is)j
-(an)f(object)g(of)g(the)g(class)h Fq(footnote_printer)p
-Fv(,)d(the)i(method)f(returns)g(the)i(number)d(of)i(the)g(footnote.)396
-2289 y(The)g(interesting)f(property)f(of)i(a)h(footnote)d(is)k(that)e
-(it)h(can)f(be)g(con)m(v)o(erted)d(to)k(HTML,)e(so)i(a)g
-Fq(footnote_printer)d Fv(is)396 2397 y(an)i(object)g(with)g(a)h(method)
-e Fq(footnote_to_html)p Fv(.)f(The)i(class)h Fq(footnote)e
-Fv(which)h(is)h(de\002ned)e(belo)n(w)h(has)g(a)396 2505
-y(compatible)f(method)g Fq(footnote_to_html)f Fv(such)i(that)g(objects)
-g(created)f(from)h(it)h(can)f(be)g(used)g(as)396 2613
-y Fq(footnote_printer)p Fv(s.)396 2763 y(The)g(other)f(method,)g
-Fq(print_footnotes)f Fv(prints)i(the)g(footnotes)f(as)i(de\002nition)e
-(list,)i(and)f(is)h(typically)e(in)m(v)n(ok)o(ed)396
-2870 y(after)h(the)g(main)g(material)g(of)g(the)g(page)g(has)g(already)
-f(been)h(printed.)e(Ev)o(ery)h(item)h(of)g(the)h(list)g(is)g(printed)e
-(by)396 2978 y Fq(footnote_to_html)p Fv(.)396 3200 y
-Fq(class)44 b(store)g(=)486 3297 y(object)g(\(self\))576
-3491 y(val)g(mutable)g(footnotes)f(=)i(\()f([])h(:)f(\(int)h(*)f
-(footnote_printer\))e(list)i(\))576 3589 y(val)g(mutable)g
-(next_footnote_number)d(=)k(1)576 3783 y(method)e(alloc_footnote)g(n)i
-(=)665 3880 y(let)g(number)e(=)i(next_footnote_number)d(in)665
-3977 y(next_footnote_number)g Fo(<)p Fq(-)i(number+1;)665
-4074 y(footnotes)g Fo(<)p Fq(-)g(footnotes)f(@)i([)g(number,)e(n)i(];)
-665 4171 y(number)576 4366 y(method)e(print_footnotes)g(ch)h(=)665
-4463 y(if)h(footnotes)e Fo(<>)h Fq([])h(then)f(begin)396
-4560 y(output_string)f(ch)h(")p Fo(<)p Fq(hr)g(align=left)g
-(noshade=noshade)e(width=\\"30\045\\")p Fo(>)p Fq(\\n";)396
-4657 y(output_string)h(ch)h(")p Fo(<)p Fq(dl)p Fo(>)p
-Fq(\\n";)396 4754 y(List.iter)486 4851 y(\(fun)g(\(_,n\))g(-)p
-Fo(>)p Black 3800 5278 a Fr(34)p Black eop
-%%Page: 35 35
-35 34 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 620 579 a Fq(n)45 b(#)g(footnote_to_html)d(\(self)i(:)h
-(#store_type)e(:)p Fo(>)h Fq(store_type\))f(ch\))486
-676 y(footnotes;)396 773 y(output_string)g(ch)h(")p Fo(<)p
-Fq(/dl)p Fo(>)p Fq(\\n";)665 870 y(end)486 1065 y(end)396
-1162 y(;;)-2 1614 y Fp(2.4.4.)35 b(Function)f Fc(escape_html)396
-1782 y Fv(This)21 b(function)d(con)m(v)o(erts)h(the)h(characters)f
-Fm(<)p Fv(,)h Fm(>)p Fv(,)g(&,)g(and)g(")h(to)f(their)g(HTML)g
-(representation.)e(F)o(or)h(e)o(xample,)396 1890 y Fq(escape_html)43
-b(")p Fo(<>)p Fq(")h(=)h("&lt;&gt;")p Fv(.)19 b(Other)g(characters)h
-(are)g(left)g(unchanged.)396 2070 y Fq(let)45 b(escape_html)e(s)h(=)486
-2167 y(Str.global_substitute)576 2264 y(\(Str.regexp)f(")p
-Fo(<)p Fq(\\\\|)p Fo(>)p Fq(\\\\|&\\\\|\\""\))576 2362
-y(\(fun)h(s)g(-)p Fo(>)665 2459 y Fq(match)g(Str.matched_string)e(s)j
-(with)755 2556 y(")p Fo(<)p Fq(")f(-)p Fo(>)h Fq("&lt;")665
-2653 y(|)g(")p Fo(>)p Fq(")f(-)p Fo(>)h Fq("&gt;")665
-2750 y(|)g("&")f(-)p Fo(>)h Fq("&amp;")665 2847 y(|)g("\\"")f(-)p
-Fo(>)g Fq("&quot;")665 2944 y(|)h(_)g(-)p Fo(>)f Fq(assert)g(false\))
-576 3042 y(s)396 3139 y(;;)-2 3591 y Fp(2.4.5.)35 b(Vir)r(tual)f(c)n
-(lass)h Fc(shared)396 3759 y Fv(This)21 b(virtual)e(class)i(is)g(the)g
-(abstract)f(superclass)g(of)f(the)i(e)o(xtension)d(classes)k(sho)n(wn)d
-(belo)n(w)-5 b(.)19 b(It)i(de\002nes)f(the)g(standard)396
-3867 y(methods)f Fq(clone)p Fv(,)h Fq(node)p Fv(,)g(and)g
-Fq(set_node)p Fv(,)f(and)g(declares)h(the)g(type)g(of)g(the)g(virtual)g
-(method)e Fq(to_html)p Fv(.)i(This)396 3975 y(method)f(recursi)n(v)o
-(ely)f(tra)n(v)o(erses)i(the)g(whole)g(element)g(tree,)g(and)f(prints)h
-(the)g(con)m(v)o(erted)e(HTML)i(code)f(to)i(the)f(output)396
-4083 y(channel)f(passed)h(as)h(second)f(ar)o(gument.)d(The)j(\002rst)h
-(ar)o(gument)d(is)j(the)f(reference)f(to)h(the)g(global)f
-Fq(store)h Fv(object)g(which)396 4191 y(collects)h(the)f(footnotes.)396
-4371 y Fq(class)44 b(virtual)g(shared)g(=)486 4468 y(object)g(\(self\))
-576 4662 y(\(*)g(--)h(default_ext)e(--)h(*\))576 4857
-y(val)g(mutable)g(node)g(=)g(\(None)g(:)h(shared)f(node)g(option\))p
-Black 3800 5278 a Fr(35)p Black eop
-%%Page: 36 36
-36 35 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 576 676 a Fq(method)43 b(clone)h(=)h({)p Fo(<)f(>)p
-Fq(})576 773 y(method)f(node)i(=)665 870 y(match)f(node)g(with)845
-967 y(None)g(-)p Fo(>)934 1065 y Fq(assert)g(false)755
-1162 y(|)h(Some)f(n)g(-)p Fo(>)h Fq(n)576 1259 y(method)e(set_node)h(n)
-h(=)665 1356 y(node)f Fo(<)p Fq(-)h(Some)f(n)576 1550
-y(\(*)g(--)h(virtual)e(--)i(*\))576 1745 y(method)e(virtual)h(to_html)g
-(:)g(store)g(-)p Fo(>)h Fq(out_channel)e(-)p Fo(>)h Fq(unit)486
-1939 y(end)396 2036 y(;;)-2 2489 y Fp(2.4.6.)35 b(Class)g
-Fc(only_data)396 2656 y Fv(This)21 b(class)g(de\002nes)f
-Fq(to_html)f Fv(such)h(that)h(the)f(character)f(data)h(of)g(the)g
-(current)f(node)g(is)i(con)m(v)o(erted)d(to)i(HTML.)g(Note)396
-2764 y(that)h Fq(self)f Fv(is)h(an)f(e)o(xtension)f(object,)g
-Fq(self)44 b(#)h(node)20 b Fv(is)h(the)f(node)f(object,)h(and)f
-Fq(self)45 b(#)f(node)g(#)h(data)20 b Fv(returns)396
-2872 y(the)g(character)f(data)h(of)g(the)h(node.)396
-3052 y Fq(class)44 b(only_data)g(=)486 3149 y(object)g(\(self\))576
-3247 y(inherit)f(shared)576 3441 y(method)g(to_html)h(store)g(ch)h(=)
-665 3538 y(output_string)e(ch)h(\(escape_html)f(\(self)h(#)h(node)f(#)h
-(data\)\))486 3635 y(end)396 3732 y(;;)-2 4185 y Fp(2.4.7.)35
-b(Class)g Fc(readme)396 4353 y Fv(This)21 b(class)g(con)m(v)o(erts)d
-(elements)i(of)g(type)g Fq(readme)g Fv(to)g(HTML.)g(Such)f(an)h
-(element)g(is)h(\(by)f(de\002nition\))e(al)o(w)o(ays)j(the)396
-4461 y(root)f(element)f(of)h(the)g(document.)e(First,)j(the)f(HTML)g
-(header)f(is)j(printed;)d(the)h Fq(title)g Fv(attrib)n(ute)f(of)h(the)h
-(element)396 4568 y(determines)e(the)i(title)f(of)g(the)h(HTML)f(page.)
-f(Some)h(aspects)g(of)g(the)g(HTML)g(page)g(can)g(be)g(con\002gured)e
-(by)h(setting)396 4676 y(certain)h(parameter)f(entities,)h(for)g(e)o
-(xample)e(the)i(background)d(color)m(,)i(the)h(te)o(xt)g(color)m(,)f
-(and)h(link)g(colors.)f(After)h(the)396 4784 y(header)m(,)f(the)h
-Fq(body)g Fv(tag,)g(and)g(the)g(headline)f(ha)n(v)o(e)g(been)h
-(printed,)f(the)h(contents)f(of)h(the)g(page)g(are)g(con)m(v)o(erted)e
-(by)p Black 3798 5278 a Fr(36)p Black eop
-%%Page: 37 37
-37 36 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 396 579 a Fv(in)m(v)n(oking)e Fq(to_html)i Fv(on)g(all)g
-(children)f(of)h(the)g(current)f(node)g(\(which)h(is)h(the)f(root)f
-(node\).)g(Then,)g(the)h(footnotes)f(are)396 687 y(appended)f(to)j
-(this)f(by)g(telling)g(the)g(global)f Fq(store)h Fv(object)g(to)g
-(print)g(the)g(footnotes.)f(Finally)-5 b(,)19 b(the)h(end)g(tags)g(of)g
-(the)396 795 y(HTML)g(pages)g(are)g(printed.)396 944
-y(This)h(class)g(is)g(an)f(e)o(xample)f(ho)n(w)g(to)i(access)g(the)f(v)
-n(alue)f(of)h(an)g(attrib)n(ute:)g(The)g(v)n(alue)g(is)h(determined)d
-(by)i(in)m(v)n(oking)396 1052 y Fq(self)44 b(#)h(node)f(#)h(attribute)e
-("title")p Fv(.)20 b(As)h(this)f(attrib)n(ute)g(has)g(been)g(declared)f
-(as)i(CD)m(A)-9 b(T)h(A)20 b(and)g(as)h(being)396 1160
-y(required,)d(the)j(v)n(alue)e(has)i(al)o(w)o(ays)f(the)g(form)g
-Fq(Value)44 b(s)20 b Fv(where)g Fq(s)g Fv(is)h(the)g(string)e(v)n(alue)
-h(of)g(the)g(attrib)n(ute.)396 1310 y(Y)-9 b(ou)20 b(can)g(also)g(see)h
-(ho)n(w)f(entity)g(contents)f(can)h(be)g(accessed.)g(A)h(parameter)e
-(entity)g(object)h(can)g(be)g(look)o(ed)f(up)h(by)396
-1417 y Fq(self)44 b(#)h(node)f(#)h(dtd)f(#)h(par_entity)e("name")p
-Fv(,)20 b(and)f(by)h(in)m(v)n(oking)e Fq(replacement_text)g
-Fv(the)i(v)n(alue)g(of)396 1525 y(the)g(entity)g(is)h(returned)e(after)
-h(inner)f(parameter)g(and)g(character)g(entities)i(ha)n(v)o(e)f(been)f
-(processed.)g(Note)h(that)g(you)396 1633 y(must)g(use)h
-Fq(gen_entity)e Fv(instead)h(of)g Fq(par_entity)f Fv(to)h(access)h
-(general)e(entities.)396 1855 y Fq(class)44 b(readme)g(=)486
-1952 y(object)g(\(self\))576 2049 y(inherit)f(shared)576
-2244 y(method)g(to_html)h(store)g(ch)h(=)665 2341 y(\(*)g(output)f
-(header)f(*\))665 2438 y(output_string)396 2535 y(ch)i(")p
-Fo(<)p Fq(!DOCTYPE)e(HTML)h(PUBLIC)g(\\"-//W3C//DTD)e(HTML)j(3.2)f
-(Final//EN\\")p Fo(>)p Fq(";)665 2632 y(output_string)396
-2729 y(ch)h(")p Fo(<)p Fq(!-)f(WARNING!)f(This)h(is)h(a)g(generated)e
-(file,)h(do)g(not)h(edit!)f(-)p Fo(>)p Fq(\\n";)665 2826
-y(let)h(title)f(=)396 2923 y(match)g(self)g(#)h(node)f(#)h(attribute)e
-("title")h(with)576 3021 y(Value)g(s)g(-)p Fo(>)h Fq(s)486
-3118 y(|)g(_)f(-)p Fo(>)h Fq(assert)e(false)665 3215
-y(in)665 3312 y(let)i(html_header,)d(_)j(=)396 3409 y(try)g(\(self)f(#)
-g(node)g(#)h(dtd)f(#)h(par_entity)e("readme:html:header"\))934
-3506 y(#)i(replacement_text)396 3603 y(with)f(WF_error)g(_)h(-)p
-Fo(>)f Fq("",)g(false)g(in)665 3701 y(let)h(html_trailer,)d(_)j(=)396
-3798 y(try)g(\(self)f(#)g(node)g(#)h(dtd)f(#)h(par_entity)e
-("readme:html:trailer"\))934 3895 y(#)i(replacement_text)396
-3992 y(with)f(WF_error)g(_)h(-)p Fo(>)f Fq("",)g(false)g(in)665
-4089 y(let)h(html_bgcolor,)d(_)j(=)396 4186 y(try)g(\(self)f(#)g(node)g
-(#)h(dtd)f(#)h(par_entity)e("readme:html:bgcolor"\))934
-4283 y(#)i(replacement_text)396 4380 y(with)f(WF_error)g(_)h(-)p
-Fo(>)f Fq("white",)f(false)h(in)665 4478 y(let)h(html_textcolor,)d(_)j
-(=)396 4575 y(try)g(\(self)f(#)g(node)g(#)h(dtd)f(#)h(par_entity)e
-("readme:html:textcolor"\))934 4672 y(#)i(replacement_text)396
-4769 y(with)f(WF_error)g(_)h(-)p Fo(>)f Fq("",)g(false)g(in)665
-4866 y(let)h(html_alinkcolor,)d(_)i(=)p Black 3797 5278
-a Fr(37)p Black eop
-%%Page: 38 38
-38 37 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 396 579 a Fq(try)45 b(\(self)f(#)g(node)g(#)h(dtd)f(#)h
-(par_entity)e("readme:html:alinkcolor"\))934 676 y(#)i
-(replacement_text)396 773 y(with)f(WF_error)g(_)h(-)p
-Fo(>)f Fq("",)g(false)g(in)665 870 y(let)h(html_vlinkcolor,)d(_)i(=)396
-967 y(try)h(\(self)f(#)g(node)g(#)h(dtd)f(#)h(par_entity)e
-("readme:html:vlinkcolor"\))934 1065 y(#)i(replacement_text)396
-1162 y(with)f(WF_error)g(_)h(-)p Fo(>)f Fq("",)g(false)g(in)665
-1259 y(let)h(html_linkcolor,)d(_)j(=)396 1356 y(try)g(\(self)f(#)g
-(node)g(#)h(dtd)f(#)h(par_entity)e("readme:html:linkcolor"\))934
-1453 y(#)i(replacement_text)396 1550 y(with)f(WF_error)g(_)h(-)p
-Fo(>)f Fq("",)g(false)g(in)665 1647 y(let)h(html_background,)d(_)i(=)
-396 1745 y(try)h(\(self)f(#)g(node)g(#)h(dtd)f(#)h(par_entity)e
-("readme:html:background"\))934 1842 y(#)i(replacement_text)396
-1939 y(with)f(WF_error)g(_)h(-)p Fo(>)f Fq("",)g(false)g(in)665
-2133 y(output_string)f(ch)h(")p Fo(<)p Fq(html)p Fo(><)p
-Fq(header)p Fo(><)p Fq(title)p Fo(>)p Fq(\\n";)665 2230
-y(output_string)f(ch)h(\(escape_html)f(title\);)665 2327
-y(output_string)g(ch)h(")p Fo(<)p Fq(/title)p Fo(><)p
-Fq(/header)p Fo(>)p Fq(\\n";)665 2424 y(output_string)f(ch)h(")p
-Fo(<)p Fq(body)g(";)665 2522 y(List.iter)396 2619 y(\(fun)g
-(\(name,value\))f(-)p Fo(>)531 2716 y Fq(if)h(value)g
-Fo(<>)h Fq("")f(then)620 2813 y(output_string)f(ch)i(\(name)f(^)g
-("=\\"")g(^)h(escape_html)e(value)h(^)h("\\")f("\)\))396
-2910 y([)h("bgcolor",)178 b(html_bgcolor;)486 3007 y("text",)313
-b(html_textcolor;)486 3104 y("link",)g(html_linkcolor;)486
-3202 y("alink",)268 b(html_alinkcolor;)486 3299 y("vlink",)g
-(html_vlinkcolor;)396 3396 y(];)665 3493 y(output_string)43
-b(ch)h(")p Fo(>)p Fq(\\n";)665 3590 y(output_string)f(ch)h
-(html_header;)665 3687 y(output_string)f(ch)h(")p Fo(<)p
-Fq(h1)p Fo(>)p Fq(";)665 3784 y(output_string)f(ch)h(\(escape_html)f
-(title\);)665 3882 y(output_string)g(ch)h(")p Fo(<)p
-Fq(/h1)p Fo(>)p Fq(\\n";)665 3979 y(\(*)h(process)e(main)i(content:)e
-(*\))665 4076 y(List.iter)396 4173 y(\(fun)h(n)h(-)p
-Fo(>)f Fq(n)h(#)g(extension)e(#)i(to_html)e(store)h(ch\))396
-4270 y(\(self)g(#)h(node)f(#)h(sub_nodes\);)665 4367
-y(\(*)g(now)f(process)g(footnotes)f(*\))665 4464 y(store)h(#)h
-(print_footnotes)d(ch;)665 4561 y(\(*)j(trailer)e(*\))665
-4659 y(output_string)g(ch)h(html_trailer;)665 4756 y(output_string)f
-(ch)h(")p Fo(<)p Fq(/html)p Fo(>)p Fq(\\n";)p Black 3800
-5278 a Fr(38)p Black eop
-%%Page: 39 39
-39 38 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 486 579 a Fq(end)396 676 y(;;)-2 1129 y Fp(2.4.8.)35
-b(Classes)h Fc(section)p Fp(,)31 b Fc(sect1)p Fp(,)g
-Fc(sect2)p Fp(,)g(and)j Fc(sect3)396 1296 y Fv(As)21
-b(the)f(con)m(v)o(ersion)e(process)i(is)h(v)o(ery)e(similar)m(,)h(the)g
-(con)m(v)o(ersion)d(classes)22 b(of)e(the)g(three)g(section)f(le)n(v)o
-(els)i(are)f(deri)n(v)o(ed)396 1404 y(from)f(the)i(more)e(general)g
-Fq(section)h Fv(class.)h(The)e(HTML)h(code)g(of)g(the)g(section)g(le)n
-(v)o(els)g(only)f(dif)n(fers)h(in)g(the)g(type)g(of)396
-1512 y(the)g(headline,)f(and)h(because)f(of)h(this)h(the)f(classes)i
-(describing)c(the)i(section)g(le)n(v)o(els)g(can)g(be)h(computed)d(by)i
-(replacing)396 1620 y(the)g(class)i(ar)o(gument)17 b
-Fq(the_tag)j Fv(of)g Fq(section)g Fv(by)f(the)i(HTML)e(name)h(of)g(the)
-g(headline)f(tag.)396 1770 y(Section)h(elements)g(are)g(con)m(v)o
-(erted)e(to)i(HTML)g(by)g(printing)e(a)j(headline)e(and)h(then)f(con)m
-(v)o(erting)f(the)i(contents)f(of)h(the)396 1878 y(element)g(recursi)n
-(v)o(ely)-5 b(.)18 b(More)h(precisely)-5 b(,)19 b(the)h(\002rst)h
-(sub-element)e(is)i(al)o(w)o(ays)f(a)h Fq(title)f Fv(element,)f(and)h
-(the)g(other)396 1985 y(elements)g(are)g(the)g(contents)g(of)g(the)g
-(section.)g(This)g(structure)f(is)j(declared)c(in)j(the)f(DTD,)g(and)g
-(it)h(is)g(guaranteed)d(that)396 2093 y(the)i(document)f(matches)g(the)
-i(DTD.)f(Because)g(of)g(this)h(the)f(title)h(node)e(can)h(be)g
-(separated)f(from)g(the)h(rest)h(without)f(an)o(y)396
-2201 y(checks.)396 2351 y(Both)g(the)h(title)g(node,)e(and)g(the)h
-(body)f(nodes)h(are)g(then)f(con)m(v)o(erted)f(to)i(HTML)g(by)g
-(calling)g Fq(to_html)f Fv(on)h(them.)396 2572 y Fq(class)44
-b(section)g(the_tag)g(=)486 2670 y(object)g(\(self\))576
-2767 y(inherit)f(shared)576 2961 y(val)h(tag)g(=)h(the_tag)576
-3155 y(method)e(to_html)h(store)g(ch)h(=)665 3252 y(let)g(sub_nodes)e
-(=)i(self)f(#)g(node)h(#)f(sub_nodes)g(in)665 3350 y(match)g(sub_nodes)
-g(with)486 3447 y(title_node)f(::)i(rest)f(-)p Fo(>)576
-3544 y Fq(output_string)e(ch)j(\(")p Fo(<)p Fq(")f(^)g(tag)h(^)f(")p
-Fo(>)p Fq(\\n"\);)576 3641 y(title_node)f(#)h(extension)g(#)g(to_html)g
-(store)g(ch;)576 3738 y(output_string)e(ch)j(\("\\n)p
-Fo(<)p Fq(/")e(^)i(tag)f(^)h(")p Fo(>)p Fq("\);)576 3835
-y(List.iter)665 3932 y(\(fun)f(n)h(-)p Fo(>)f Fq(n)h(#)g(extension)e(#)
-i(to_html)e(store)h(ch\))665 4029 y(rest)396 4127 y(|)h(_)g(-)p
-Fo(>)576 4224 y Fq(assert)e(false)486 4321 y(end)396
-4418 y(;;)396 4612 y(class)h(sect1)g(=)h(section)f("h1";;)396
-4709 y(class)g(sect2)g(=)h(section)f("h3";;)396 4807
-y(class)g(sect3)g(=)h(section)f("h4";;)p Black 3800 5278
-a Fr(39)p Black eop
-%%Page: 40 40
-40 39 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black -2 583 a Fp(2.4.9.)35 b(Classes)h Fc(map_tag)p
-Fp(,)31 b Fc(p)p Fp(,)i Fc(em)p Fp(,)f Fc(ul)p Fp(,)h
-Fc(li)396 751 y Fv(Se)n(v)o(eral)20 b(element)f(types)h(are)g(con)m(v)o
-(erted)e(to)i(HTML)g(by)g(simply)g(mapping)e(them)i(to)g(corresponding)
-d(HTML)396 859 y(element)j(types.)g(The)f(class)j Fq(map_tag)d
-Fv(implements)g(this,)i(and)f(the)g(class)h(ar)o(gument)d
-Fq(the_target_tag)396 967 y Fv(determines)h(the)i(tag)f(name)f(to)i
-(map)e(to.)h(The)g(output)f(consists)i(of)f(the)g(start)h(tag,)f(the)g
-(recursi)n(v)o(ely)e(con)m(v)o(erted)g(inner)396 1075
-y(elements,)i(and)g(the)g(end)f(tag.)396 1255 y Fq(class)44
-b(map_tag)g(the_target_tag)e(=)486 1352 y(object)i(\(self\))576
-1449 y(inherit)f(shared)576 1643 y(val)h(target_tag)f(=)i
-(the_target_tag)576 1838 y(method)e(to_html)h(store)g(ch)h(=)665
-1935 y(output_string)e(ch)h(\(")p Fo(<)p Fq(")g(^)h(target_tag)e(^)i(")
-p Fo(>)p Fq(\\n"\);)665 2032 y(List.iter)396 2129 y(\(fun)f(n)h(-)p
-Fo(>)f Fq(n)h(#)g(extension)e(#)i(to_html)e(store)h(ch\))396
-2226 y(\(self)g(#)h(node)f(#)h(sub_nodes\);)665 2323
-y(output_string)e(ch)h(\("\\n)p Fo(<)p Fq(/")g(^)h(target_tag)e(^)h(")p
-Fo(>)p Fq("\);)486 2420 y(end)396 2518 y(;;)396 2712
-y(class)g(p)h(=)g(map_tag)e("p";;)396 2809 y(class)h(em)h(=)f(map_tag)g
-("b";;)396 2906 y(class)g(ul)h(=)f(map_tag)g("ul";;)396
-3003 y(class)g(li)h(=)f(map_tag)g("li";;)-2 3456 y Fp(2.4.10.)36
-b(Class)f Fc(br)396 3624 y Fv(Element)20 b(of)g(type)f
-Fq(br)i Fv(are)f(mapped)f(to)h(the)g(same)g(HTML)g(type.)g(Note)g(that)
-g(HTML)g(forbids)f(the)h(end)g(tag)g(of)g Fq(br)p Fv(.)396
-3804 y Fq(class)44 b(br)h(=)486 3901 y(object)f(\(self\))576
-3998 y(inherit)f(shared)576 4192 y(method)g(to_html)h(store)g(ch)h(=)
-665 4289 y(output_string)e(ch)h(")p Fo(<)p Fq(br)p Fo(>)p
-Fq(\\n";)665 4387 y(List.iter)396 4484 y(\(fun)g(n)h(-)p
-Fo(>)f Fq(n)h(#)g(extension)e(#)i(to_html)e(store)h(ch\))396
-4581 y(\(self)g(#)h(node)f(#)h(sub_nodes\);)486 4678
-y(end)396 4775 y(;;)p Black 3800 5278 a Fr(40)p Black
-eop
-%%Page: 41 41
-41 40 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black -2 583 a Fp(2.4.11.)36 b(Class)f Fc(code)396 751
-y Fv(The)20 b Fq(code)g Fv(type)g(is)h(con)m(v)o(erted)d(to)i(a)h
-Fq(pre)f Fv(section)g(\(preformatted)d(te)o(xt\).)i(As)i(the)g(meaning)
-d(of)i(tabs)h(is)g(unspeci\002ed)e(in)396 859 y(HTML,)h(tabs)g(are)h(e)
-o(xpanded)c(to)k(spaces.)396 1039 y Fq(class)44 b(code)g(=)486
-1136 y(object)g(\(self\))576 1233 y(inherit)f(shared)576
-1427 y(method)g(to_html)h(store)g(ch)h(=)665 1525 y(let)g(data)f(=)g
-(self)h(#)f(node)g(#)h(data)f(in)665 1622 y(\(*)h(convert)e(tabs)i(*\))
-665 1719 y(let)g(l)f(=)h(String.length)e(data)h(in)665
-1816 y(let)h(rec)f(preprocess)f(i)i(column)f(=)396 1913
-y(\(*)h(this)f(is)g(very)h(ineffective)e(but)h(comprehensive:)e(*\))396
-2010 y(if)j(i)f Fo(<)h Fq(l)g(then)486 2107 y(match)f(data.[i])f(with)
-665 2205 y('\\t')h(-)p Fo(>)396 2302 y Fq(let)h(n)f(=)h(8)g(-)f
-(\(column)g(mod)g(8\))h(in)396 2399 y(String.make)e(n)i(')g(')f(^)h
-(preprocess)e(\(i+1\))h(\(column)g(+)g(n\))576 2496 y(|)g('\\n')g(-)p
-Fo(>)396 2593 y Fq("\\n")g(^)h(preprocess)e(\(i+1\))h(0)576
-2690 y(|)g(c)h(-)p Fo(>)396 2787 y Fq(String.make)e(1)i(c)g(^)f
-(preprocess)f(\(i+1\))h(\(column)g(+)h(1\))396 2884 y(else)486
-2982 y("")665 3079 y(in)665 3176 y(output_string)e(ch)h(")p
-Fo(<)p Fq(p)p Fo(><)p Fq(pre)p Fo(>)p Fq(";)665 3273
-y(output_string)f(ch)h(\(escape_html)f(\(preprocess)g(0)i(0\)\);)665
-3370 y(output_string)e(ch)h(")p Fo(<)p Fq(/pre)p Fo(><)p
-Fq(/p)p Fo(>)p Fq(";)486 3564 y(end)396 3662 y(;;)-2
-4114 y Fp(2.4.12.)36 b(Class)f Fc(a)396 4282 y Fv(Hyperlinks,)19
-b(e)o(xpressed)g(by)g(the)i Fq(a)f Fv(element)g(type,)f(are)h(con)m(v)o
-(erted)e(to)i(the)g(HTML)g Fq(a)h Fv(type.)e(If)i(the)f(tar)o(get)f(of)
-h(the)396 4390 y(hyperlink)e(is)j(gi)n(v)o(en)d(by)i
-Fq(href)p Fv(,)g(the)g(URL)g(of)g(this)g(attrib)n(ute)g(can)g(be)g
-(used)g(directly)-5 b(.)18 b(Alternati)n(v)o(ely)-5 b(,)18
-b(the)i(tar)o(get)f(can)h(be)396 4498 y(gi)n(v)o(en)f(by)h
-Fq(readmeref)f Fv(in)i(which)e(case)i(the)f(".html")g(suf)n(\002x)f
-(must)i(be)f(added)f(to)h(the)g(\002le)h(name.)396 4647
-y(Note)f(that)h(within)f Fq(a)g Fv(only)g(#PCD)m(A)-9
-b(T)h(A)20 b(is)h(allo)n(wed,)e(so)i(the)f(contents)f(can)h(be)g(con)m
-(v)o(erted)e(directly)h(by)h(applying)396 4755 y Fq(escape_html)f
-Fv(to)i(the)f(character)f(data)h(contents.)p Black 3800
-5278 a Fr(41)p Black eop
-%%Page: 42 42
-42 41 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 396 579 a Fq(class)44 b(a)h(=)486 676 y(object)f(\(self\))576
-773 y(inherit)f(shared)576 967 y(method)g(to_html)h(store)g(ch)h(=)665
-1065 y(output_string)e(ch)h(")p Fo(<)p Fq(a)h(";)665
-1162 y(let)g(href)f(=)396 1259 y(match)g(self)g(#)h(node)f(#)h
-(attribute)e("href")h(with)576 1356 y(Value)g(v)g(-)p
-Fo(>)h Fq(escape_html)e(v)486 1453 y(|)i(Valuelist)e(_)i(-)p
-Fo(>)f Fq(assert)g(false)486 1550 y(|)h(Implied_value)d(-)p
-Fo(>)665 1647 y Fq(begin)i(match)g(self)g(#)h(node)f(#)h(attribute)e
-("readmeref")g(with)486 1745 y(Value)h(v)h(-)p Fo(>)f
-Fq(escape_html)f(v)i(^)f(".html")396 1842 y(|)h(Valuelist)e(_)i(-)p
-Fo(>)f Fq(assert)g(false)396 1939 y(|)h(Implied_value)e(-)p
-Fo(>)576 2036 y Fq("")665 2133 y(end)665 2230 y(in)665
-2327 y(if)i(href)f Fo(<>)g Fq("")h(then)396 2424 y(output_string)e(ch)h
-(\("href=\\"")88 b(^)45 b(href)f(^)h("\\""\);)665 2522
-y(output_string)e(ch)h(")p Fo(>)p Fq(";)665 2619 y(output_string)f(ch)h
-(\(escape_html)f(\(self)h(#)h(node)f(#)h(data\)\);)665
-2716 y(output_string)e(ch)h(")p Fo(<)p Fq(/a)p Fo(>)p
-Fq(";)486 2910 y(end)396 3007 y(;;)-2 3460 y Fp(2.4.13.)36
-b(Class)f Fc(footnote)396 3628 y Fv(The)20 b Fq(footnote)g
-Fv(class)h(has)f(tw)o(o)h(methods:)e Fq(to_html)g Fv(to)i(con)m(v)o
-(ert)d(the)i(footnote)f(reference)f(to)i(HTML,)g(and)396
-3736 y Fq(footnote_to_html)e Fv(to)j(con)m(v)o(ert)d(the)i(footnote)f
-(te)o(xt)h(itself.)396 3885 y(The)g(footnote)f(reference)f(is)j(con)m
-(v)o(erted)d(to)i(a)h(local)f(hyperlink;)e(more)h(precisely)-5
-b(,)19 b(to)h(tw)o(o)h(anchor)d(tags)j(which)e(are)396
-3993 y(connected)g(with)h(each)g(other)-5 b(.)19 b(The)h(te)o(xt)g
-(anchor)f(points)h(to)g(the)g(footnote)f(anchor)m(,)f(and)h(the)i
-(footnote)d(anchor)h(points)396 4101 y(to)i(the)f(te)o(xt)g(anchor)-5
-b(.)396 4250 y(The)20 b(footnote)f(must)h(be)g(allocated)f(in)i(the)f
-Fq(store)g Fv(object.)f(By)i(allocating)e(the)h(footnote,)f(you)g(get)h
-(the)g(number)f(of)396 4358 y(the)h(footnote,)f(and)g(the)i(te)o(xt)f
-(of)f(the)i(footnote)d(is)j(stored)f(until)g(the)g(end)g(of)g(the)g
-(HTML)g(page)f(is)j(reached)c(when)i(the)396 4466 y(footnotes)f(can)h
-(be)g(printed.)f(The)h Fq(to_html)f Fv(method)g(stores)i(simply)e(the)i
-(object)e(itself,)i(such)f(that)g(the)396 4574 y Fq(footnote_to_html)e
-Fv(method)h(is)i(in)m(v)n(ok)o(ed)e(on)g(the)i(same)f(object)g(that)g
-(encountered)d(the)k(footnote.)p Black 3800 5278 a Fr(42)p
-Black eop
-%%Page: 43 43
-43 42 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black 396 579 a Fv(The)g Fq(to_html)g Fv(only)f(allocates)h(the)h
-(footnote,)d(and)h(prints)h(the)g(reference)f(anchor)m(,)f(b)n(ut)i(it)
-h(does)f(not)g(print)g(nor)396 687 y(con)m(v)o(ert)e(the)j(contents)e
-(of)h(the)g(note.)g(This)g(is)h(deferred)d(until)j(the)f(footnotes)e
-(actually)i(get)g(printed,)f(i.e.)h(the)g(recursi)n(v)o(e)396
-795 y(call)h(of)f Fq(to_html)f Fv(on)h(the)g(sub)g(nodes)g(is)h(done)e
-(by)h Fq(footnote_to_html)p Fv(.)396 944 y(Note)g(that)h(this)f
-(technique)f(does)h(not)g(w)o(ork)f(if)i(you)e(mak)o(e)h(another)f
-(footnote)f(within)i(a)h(footnote;)d(the)i(second)396
-1052 y(footnote)f(gets)h(allocated)g(b)n(ut)g(not)g(printed.)396
-1274 y Fq(class)44 b(footnote)g(=)486 1371 y(object)g(\(self\))576
-1468 y(inherit)f(shared)576 1662 y(val)h(mutable)g(footnote_number)e(=)
-j(0)576 1857 y(method)e(to_html)h(store)g(ch)h(=)665
-1954 y(let)g(number)e(=)396 2051 y(store)h(#)h(alloc_footnote)d(\(self)
-i(:)h(#shared)f(:)p Fo(>)g Fq(footnote_printer\))e(in)665
-2148 y(let)j(foot_anchor)e(=)396 2245 y("footnote")g(^)i(string_of_int)
-e(number)h(in)665 2342 y(let)h(text_anchor)e(=)396 2439
-y("textnote")g(^)i(string_of_int)e(number)h(in)665 2537
-y(footnote_number)f Fo(<)p Fq(-)h(number;)665 2634 y(output_string)f
-(ch)h(\()h(")p Fo(<)p Fq(a)f(name=\\"")g(^)g(text_anchor)f(^)i("\\")f
-(href=\\"#")g(^)441 2731 y(foot_anchor)f(^)i("\\")p Fo(>)p
-Fq([")e(^)i(string_of_int)e(number)h(^)441 2828 y("])p
-Fo(<)p Fq(/a)p Fo(>)p Fq(")g(\))576 3022 y(method)f(footnote_to_html)g
-(store)h(ch)g(=)665 3119 y(\(*)h(prerequisite:)d(we)j(are)f(in)h(a)f
-(definition)g(list)g Fo(<)p Fq(dl)p Fo(>)p Fq(...)p Fo(<)p
-Fq(/dl)p Fo(>)e Fq(*\))665 3217 y(let)j(foot_anchor)e(=)396
-3314 y("footnote")g(^)i(string_of_int)e(footnote_number)f(in)665
-3411 y(let)j(text_anchor)e(=)396 3508 y("textnote")g(^)i(string_of_int)
-e(footnote_number)f(in)665 3605 y(output_string)h(ch)h(\(")p
-Fo(<)p Fq(dt)p Fo(><)p Fq(a)g(name=\\"")f(^)i(foot_anchor)e(^)h("\\")h
-(href=\\"#")e(^)396 3702 y(text_anchor)g(^)i("\\")p Fo(>)p
-Fq([")f(^)g(string_of_int)f(footnote_number)f(^)396 3799
-y("])p Fo(<)p Fq(/a)p Fo(><)p Fq(/dt)p Fo(>)p Fq(\\n)p
-Fo(<)p Fq(dd)p Fo(>)p Fq("\);)665 3896 y(List.iter)396
-3994 y(\(fun)i(n)h(-)p Fo(>)f Fq(n)h(#)g(extension)e(#)i(to_html)e
-(store)h(ch\))396 4091 y(\(self)g(#)h(node)f(#)h(sub_nodes\);)665
-4188 y(output_string)e(ch)h(\("\\n)p Fo(<)p Fq(/dd)p
-Fo(>)p Fq("\))486 4382 y(end)396 4479 y(;;)p Black 3800
-5278 a Fr(43)p Black eop
-%%Page: 44 44
-44 43 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black -2 583 a Fp(2.4.14.)36 b(The)d(speci\002cation)j(of)e(the)f
-(document)i(model)396 751 y Fv(This)21 b(code)e(sets)i(up)f(the)g(hash)
-g(table)g(that)h(connects)e(element)h(types)g(with)g(the)g(e)o(x)o
-(emplars)f(of)h(the)g(e)o(xtension)f(classes)396 859
-y(that)i(con)m(v)o(ert)d(the)i(elements)g(to)g(HTML.)396
-1039 y Fq(open)44 b(Pxp_yacc)396 1233 y(let)h(tag_map)e(=)486
-1330 y(make_spec_from_alist)576 1427 y(~data_exemplar:\(new)e
-(data_impl)j(\(new)g(only_data\)\))576 1525 y
-(~default_element_exemplar:\(new)39 b(element_impl)k(\(new)h
-(no_markup\)\))576 1622 y(~element_alist:)665 1719 y([)h("readme",)e
-(\(new)h(element_impl)f(\(new)h(readme\)\);)396 1816
-y("sect1",)89 b(\(new)44 b(element_impl)f(\(new)h(sect1\)\);)396
-1913 y("sect2",)89 b(\(new)44 b(element_impl)f(\(new)h(sect2\)\);)396
-2010 y("sect3",)89 b(\(new)44 b(element_impl)f(\(new)h(sect3\)\);)396
-2107 y("title",)89 b(\(new)44 b(element_impl)f(\(new)h(no_markup\)\);)
-396 2205 y("p",)269 b(\(new)44 b(element_impl)f(\(new)h(p\)\);)396
-2302 y("br",)224 b(\(new)44 b(element_impl)f(\(new)h(br\)\);)396
-2399 y("code",)134 b(\(new)44 b(element_impl)f(\(new)h(code\)\);)396
-2496 y("em",)224 b(\(new)44 b(element_impl)f(\(new)h(em\)\);)396
-2593 y("ul",)224 b(\(new)44 b(element_impl)f(\(new)h(ul\)\);)396
-2690 y("li",)224 b(\(new)44 b(element_impl)f(\(new)h(li\)\);)396
-2787 y("footnote",)f(\(new)h(element_impl)f(\(new)h(footnote)g(:)h
-(#shared)e(:)p Fo(>)i Fq(shared\)\);)396 2884 y("a",)269
-b(\(new)44 b(element_impl)f(\(new)h(a\)\);)665 2982 y(])576
-3079 y(\(\))396 3176 y(;;)-2 3678 y Fx(Notes)p Black
-396 3857 a Fv(1.)p Black 70 w(Elements)20 b(may)g(also)g(contain)f
-(processing)g(instructions.)g(Unlik)o(e)h(other)f(document)g(models,)g
-(PXP)i(separates)529 3965 y(processing)e(instructions)g(from)g(the)i
-(rest)f(of)g(the)g(te)o(xt)g(and)g(pro)o(vides)e(a)j(second)e(interf)o
-(ace)h(to)g(access)h(them)529 4073 y(\(method)e Fq(pinstr)p
-Fv(\).)g(Ho)n(we)n(v)o(er)m(,)f(there)h(is)j(a)e(parser)g(option)f(\()p
-Fq(enable_pinstr_nodes)p Fv(\))e(which)i(changes)g(the)529
-4181 y(beha)n(viour)f(of)i(the)g(parser)g(such)g(that)g(e)o(xtra)g
-(nodes)f(for)h(processing)e(instructions)i(are)g(included)e(into)i(the)
-h(tree.)529 4320 y Fi(Furthermore,)e(the)g(tree)g(does)g(normally)h
-(not)f(contain)h(nodes)g(for)e(XML)h(comments;)h(the)o(y)f(are)g
-(ignored)h(by)f(def)o(ault.)g(Again,)529 4417 y(there)g(is)g(an)g
-(option)h(\()p Fh(enable_comment_nodes)p Fi(\))25 b(changing)c(this.)p
-Black 396 4566 a Fv(2.)p Black 70 w(Due)f(to)h(the)f(typing)f(system)h
-(it)h(is)g(more)e(or)h(less)i(impossible)d(to)i(deri)n(v)o(e)d(recursi)
-n(v)o(e)h(classes)i(in)g(O'Caml.)f(T)-7 b(o)20 b(get)529
-4674 y(around)e(this,)j(it)g(is)g(common)d(practice)i(to)g(put)g(the)g
-(modi\002able)f(or)h(e)o(xtensible)f(part)h(of)g(recursi)n(v)o(e)f
-(objects)h(into)529 4782 y(parallel)g(objects.)p Black
-3800 5278 a Fr(44)p Black eop
-%%Page: 45 45
-45 44 bop Black 3136 67 a Fr(Chapter)20 b(2.)g(Using)g(PXP)p
-Black Black 396 579 a Fv(3.)p Black 70 w(The)g(problem)e(is)k(that)e
-(the)g(subclass)h(is)g(usually)e(not)h(a)h(subtype)e(in)h(this)h(case)f
-(because)g(O'Caml)g(has)h(a)529 687 y(contra)n(v)n(ariant)d(subtyping)g
-(rule.)p Black 3800 5278 a Fr(45)p Black eop
-%%Page: 46 46
-46 45 bop Black Black -2 621 a Fs(Chapter)48 b(3.)f(The)h(objects)g
-(representing)g(the)-2 845 y(document)396 1093 y Fr(This)21
-b(description)e(might)h(be)g(out-of-date)o(.)e(See)i(the)g(module)f
-(interface)h(\002les)g(for)h(updated)d(information.)-2
-1470 y Fx(3.1.)39 b(The)g Fb(document)44 b Fx(c)m(lass)396
-1722 y Fq(class)g([)h('ext)f(])h(document)e(:)486 1819
-y(Pxp_types.collect_warnings)d(->)486 1916 y(object)576
-2013 y(method)j(init_xml_version)g(:)h(string)g(->)h(unit)576
-2111 y(method)e(init_root)h(:)g('ext)h(node)f(->)g(unit)576
-2305 y(method)f(xml_version)g(:)i(string)576 2402 y(method)e
-(xml_standalone)g(:)i(bool)576 2499 y(method)e(dtd)i(:)f(dtd)576
-2596 y(method)f(root)i(:)f('ext)g(node)576 2791 y(method)f(encoding)h
-(:)h(Pxp_types.rep_encoding)576 2985 y(method)e(add_pinstr)h(:)g
-(proc_instruction)e(->)j(unit)576 3082 y(method)e(pinstr)h(:)h(string)f
-(->)g(proc_instruction)e(list)576 3179 y(method)h(pinstr_names)g(:)i
-(string)f(list)576 3373 y(method)f(write)h(:)h(Pxp_types.output_stream)
-c(->)k(Pxp_types.encoding)c(->)k(unit)486 3568 y(end)396
-3665 y(;;)396 3856 y Fv(The)20 b(methods)f(be)o(ginning)f(with)i
-Fq(init_)g Fv(are)g(only)g(for)f(internal)h(use)g(of)g(the)g(parser)-5
-b(.)p Black 396 4088 a Ft(\225)p Black 60 w Fq(xml_version)p
-Fv(:)19 b(returns)h(the)g(v)o(ersion)f(string)h(at)g(the)g(be)o
-(ginning)e(of)i(the)g(document.)e(F)o(or)i(e)o(xample,)f("1.0")g(is)479
-4196 y(returned)g(if)h(the)g(document)f(be)o(gins)g(with)h
-Fo(<)p Fq(?xml)44 b(version="1.0"?)p Fo(>)p Fv(.)p Black
-396 4304 a Ft(\225)p Black 60 w Fq(xml_standalone)p Fv(:)19
-b(returns)g(the)h(boolean)f(v)n(alue)g(of)h Fq(standalone)f
-Fv(declaration)g(in)h(the)h(XML)f(declaration.)e(If)479
-4412 y(the)i Fq(standalone)g Fv(attrib)n(ute)f(is)i(missing,)f
-Fq(false)g Fv(is)h(returned.)p Black 396 4520 a Ft(\225)p
-Black 60 w Fq(dtd)p Fv(:)g(returns)e(a)i(reference)d(to)i(the)h(global)
-e(DTD)h(object.)p Black 396 4628 a Ft(\225)p Black 60
-w Fq(root)p Fv(:)g(returns)g(a)g(reference)f(to)h(the)g(root)g
-(element.)p Black 396 4736 a Ft(\225)p Black 60 w Fq(encoding)p
-Fv(:)g(returns)f(the)h(internal)g(encoding)e(of)i(the)g(document.)e
-(This)i(means)g(that)g(all)h(strings)f(of)g(which)g(the)479
-4844 y(document)e(consists)j(are)f(encoded)f(in)h(this)h(character)e
-(set.)p Black 3798 5278 a Fr(46)p Black eop
-%%Page: 47 47
-47 46 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black Black 396 579 a Ft(\225)p
-Black 60 w Fq(pinstr)p Fv(:)g(returns)f(the)i(processing)d
-(instructions)i(outside)f(the)h(DTD)h(and)e(outside)h(the)g(root)g
-(element.)f(The)479 687 y(ar)o(gument)f(passed)i(to)h(the)f(method)f
-(names)g(a)i Fr(tar)m(g)o(et)q Fv(,)g(and)e(the)h(method)f(returns)g
-(all)i(instructions)e(with)i(this)g(tar)o(get.)479 795
-y(The)f(tar)o(get)f(is)j(the)e(\002rst)h(w)o(ord)e(inside)h
-Fo(<)p Fq(?)h Fv(and)e Fq(?)p Fo(>)p Fv(.)p Black 396
-903 a Ft(\225)p Black 60 w Fq(pinstr_names)p Fv(:)g(returns)g(the)i
-(names)e(of)h(the)h(processing)d(instructions)p Black
-396 1011 a Ft(\225)p Black 60 w Fq(add_pinstr)p Fv(:)h(adds)h(another)f
-(processing)g(instruction.)f(This)j(method)e(is)i(used)f(by)f(the)h
-(parser)g(itself)h(to)f(enter)g(the)479 1119 y(instructions)f(returned)
-g(by)h Fq(pinstr)p Fv(,)f(b)n(ut)h(you)g(can)g(also)g(enter)g
-(additional)f(instructions.)p Black 396 1226 a Ft(\225)p
-Black 60 w Fq(write)p Fv(:)h(writes)h(the)f(document)e(to)j(the)f
-(passed)g(stream)g(as)h(XML)f(te)o(xt)g(using)g(the)g(passed)g(\(e)o
-(xternal\))e(encoding.)479 1334 y(The)i(generated)f(te)o(xt)h(is)h(al)o
-(w)o(ays)f(v)n(alid)g(XML)g(and)g(can)g(be)g(parsed)g(by)f(PXP;)i(ho)n
-(we)n(v)o(er)m(,)d(the)i(te)o(xt)g(is)h(badly)479 1442
-y(formatted)e(\(this)h(is)h(not)f(a)h(pretty)e(printer\).)-2
-1861 y Fx(3.2.)39 b(The)g(c)m(lass)g(type)g Fb(node)396
-2041 y Fv(From)20 b Fq(Pxp_document)p Fv(:)396 2221 y
-Fq(type)44 b(node_type)g(=)486 2318 y(T_data)396 2415
-y(|)h(T_element)e(of)i(string)396 2512 y(|)g(T_super_root)396
-2609 y(|)g(T_pinstr)e(of)i(string)396 2706 y(|)g(T_comment)396
-2804 y Fn(and)g(some)f(other,)g(reserved)f(types)396
-2901 y Fq(;;)396 3095 y(class)h(type)g([)h('ext)f(])h(node)f(=)486
-3192 y(object)g(\('self\))576 3289 y(constraint)f('ext)h(=)h('ext)f
-(node)g(#extension)576 3484 y(\(*)g Fn(General)g(observers)f
-Fq(*\))576 3678 y(method)g(extension)h(:)g('ext)576 3775
-y(method)f(dtd)i(:)f(dtd)576 3872 y(method)f(parent)h(:)h('ext)f(node)
-576 3969 y(method)f(root)i(:)f('ext)g(node)576 4066 y(method)f
-(sub_nodes)h(:)g('ext)h(node)f(list)576 4164 y(method)f(iter_nodes)h(:)
-g(\('ext)g(node)g(-)p Fo(>)h Fq(unit\))f(-)p Fo(>)g Fq(unit)576
-4261 y(method)f(iter_nodes_sibl)g(:)889 4358 y(\('ext)h(node)h(option)e
-(-)p Fo(>)i Fq('ext)f(node)g(-)p Fo(>)g Fq('ext)h(node)f(option)g(-)p
-Fo(>)g Fq(unit\))g(-)396 4455 y Fo(>)h Fq(unit)576 4552
-y(method)e(node_type)h(:)g(node_type)576 4649 y(method)f(encoding)h(:)h
-(Pxp_types.rep_encoding)576 4746 y(method)e(data)i(:)f(string)576
-4843 y(method)f(position)h(:)h(\(string)e(*)i(int)f(*)h(int\))p
-Black 3797 5278 a Fr(47)p Black eop
-%%Page: 48 48
-48 47 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 576 579 a Fq(method)43
-b(comment)h(:)h(string)f(option)576 676 y(method)f(pinstr)h(:)h(string)
-f(-)p Fo(>)g Fq(proc_instruction)e(list)576 773 y(method)h
-(pinstr_names)g(:)i(string)f(list)576 870 y(method)f(write)h(:)h
-(Pxp_types.output_stream)c(->)k(Pxp_types.encoding)c(->)k(unit)576
-1065 y(\(*)f Fn(Attribute)f(observers)h Fq(*\))576 1259
-y(method)f(attribute)h(:)g(string)g(-)p Fo(>)h Fq(Pxp_types.att_value)
-576 1356 y(method)e(required_string_attribute)e(:)k(string)f(-)p
-Fo(>)g Fq(string)576 1453 y(method)f(optional_string_attribute)e(:)k
-(string)f(-)p Fo(>)g Fq(string)g(option)576 1550 y(method)f
-(required_list_attribute)e(:)k(string)f(-)p Fo(>)g Fq(string)g(list)576
-1647 y(method)f(optional_list_attribute)e(:)k(string)f(-)p
-Fo(>)g Fq(string)g(list)576 1745 y(method)f(attribute_names)g(:)h
-(string)g(list)576 1842 y(method)f(attribute_type)g(:)i(string)e(-)p
-Fo(>)i Fq(Pxp_types.att_type)576 1939 y(method)e(attributes)h(:)g
-(\(string)g(*)h(Pxp_types.att_value\))c(list)576 2036
-y(method)i(id_attribute_name)f(:)j(string)576 2133 y(method)e
-(id_attribute_value)f(:)j(string)576 2230 y(method)e
-(idref_attribute_names)f(:)i(string)576 2424 y(\(*)g
-Fn(Modifying)f(methods)h Fq(*\))576 2619 y(method)f(add_node)h(:)h
-(?force:bool)e(-)p Fo(>)h Fq('ext)g(node)g(-)p Fo(>)h
-Fq(unit)576 2716 y(method)e(add_pinstr)h(:)g(proc_instruction)e(-)p
-Fo(>)j Fq(unit)576 2813 y(method)e(delete)h(:)h(unit)576
-2910 y(method)e(set_nodes)h(:)g('ext)h(node)f(list)g(-)p
-Fo(>)g Fq(unit)576 3007 y(method)f(quick_set_attributes)f(:)j(\(string)
-e(*)i(Pxp_types.att_value\))c(list)j(-)p Fo(>)h Fq(unit)576
-3104 y(method)e(set_comment)g(:)i(string)f(option)g(-)p
-Fo(>)g Fq(unit)576 3299 y(\(*)g Fn(Cloning)g(methods)f
-Fq(*\))576 3493 y(method)g(orphaned_clone)g(:)i('self)576
-3590 y(method)e(orphaned_flat_clone)f(:)j('self)576 3687
-y(method)e(create_element)g(:)1024 3784 y(?position:\(string)f(*)j(int)
-f(*)h(int\))f(-)p Fo(>)1024 3882 y Fq(dtd)g(-)p Fo(>)h
-Fq(node_type)e(-)p Fo(>)h Fq(\(string)g(*)h(string\))e(list)h(-)p
-Fo(>)1203 3979 y Fq('ext)g(node)576 4076 y(method)f(create_data)g(:)i
-(dtd)f(-)p Fo(>)h Fq(string)f(-)p Fo(>)g Fq('ext)g(node)576
-4173 y(method)f(keep_always_whitespace_mode)e(:)j(unit)576
-4367 y(\(*)g Fn(Validating)f(methods)h Fq(*\))576 4561
-y(method)f(local_validate)g(:)i(?use_dfa:bool)d(->)j(unit)f(->)g(unit)
-576 4756 y(\(*)g(...)g(Internal)g(methods)g(are)g(undocumented.)f(*\))p
-Black 3800 5278 a Fr(48)p Black eop
-%%Page: 49 49
-49 48 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 486 579 a Fq(end)396
-676 y(;;)396 867 y Fv(In)g(the)g(module)f Fq(Pxp_types)g
-Fv(you)h(can)g(\002nd)g(another)e(type)i(de\002nition)f(that)h(is)i
-(important)c(in)j(this)f(conte)o(xt:)396 1047 y Fq(type)44
-b(Pxp_types.att_value)e(=)576 1144 y(Value)223 b(of)44
-b(string)486 1241 y(|)h(Valuelist)e(of)h(string)g(list)486
-1339 y(|)h(Implied_value)396 1436 y(;;)-2 1847 y Fp(3.2.1.)35
-b(The)f(structure)f(of)g(document)i(trees)396 2015 y
-Fv(A)21 b(node)e(represents)g(either)h(an)g(element)g(or)g(a)g
-(character)f(data)h(section.)g(There)g(are)g(tw)o(o)g(classes)h
-(implementing)d(the)396 2122 y(tw)o(o)j(aspects)f(of)g(nodes:)g
-Fq(element_impl)e Fv(and)i Fq(data_impl)p Fv(.)f(The)h(latter)g(class)h
-(does)f(not)g(implement)f(all)i(methods)396 2230 y(because)f(some)g
-(methods)f(do)h(not)g(mak)o(e)f(sense)i(for)e(data)h(nodes.)396
-2380 y(\(Note:)g(PXP)h(also)g(supports)e(a)h(mode)g(which)f(forces)h
-(that)g(processing)f(instructions)g(and)h(comments)f(are)396
-2488 y(represented)g(as)i(nodes)e(of)h(the)g(document)e(tree.)i(Ho)n
-(we)n(v)o(er)m(,)e(these)j(nodes)e(are)h(instances)g(of)g
-Fq(element_impl)f Fv(with)396 2596 y(node)g(types)h Fq(T_pinstr)g
-Fv(and)f Fq(T_comment)p Fv(,)g(respecti)n(v)o(ely)-5
-b(.)18 b(This)j(mode)e(must)h(be)g(e)o(xplicitly)g(con\002gured;)d(the)
-k(basic)396 2704 y(representation)d(kno)n(ws)i(only)f(element)h(and)f
-(data)h(nodes.\))396 2853 y(The)g(follo)n(wing)f(\002gure)g(\()p
-Fr(A)h(tr)m(ee)h(with)g(element)f(nodes,)f(data)g(nodes,)h(and)f
-(attrib)n(utes)p Fv(\))h(sho)n(ws)g(an)g(e)o(xample)f(ho)n(w)h(a)396
-2961 y(tree)g(is)i(constructed)c(from)h(element)h(and)f(data)i(nodes.)e
-(The)h(circular)f(areas)h(represent)f(element)h(nodes)f(whereas)h(the)
-396 3069 y(o)o(v)n(als)f(denote)f(data)i(nodes.)e(Only)h(elements)g
-(may)g(ha)n(v)o(e)g(subnodes;)f(data)h(nodes)g(are)g(al)o(w)o(ays)h
-(lea)n(v)o(es)f(of)h(the)f(tree.)g(The)396 3177 y(subnodes)g(of)h(an)g
-(element)g(can)g(be)g(either)g(element)f(or)h(data)g(nodes;)g(in)g
-(both)f(cases)i(the)g(O'Caml)f(objects)g(storing)f(the)396
-3285 y(nodes)h(ha)n(v)o(e)f(the)i(class)g(type)e Fq(node)p
-Fv(.)396 3434 y(Attrib)n(utes)h(\(the)g(clouds)g(in)g(the)g(picture\))f
-(are)h(not)g(directly)g(inte)o(grated)e(into)i(the)g(tree;)h(there)e
-(is)i(al)o(w)o(ays)g(an)f(e)o(xtra)g(link)396 3542 y(to)h(the)f(attrib)
-n(ute)g(list.)h(This)f(is)h(also)g(true)f(for)f(processing)g
-(instructions)g(\(not)h(sho)n(wn)f(in)h(the)h(picture\).)d(This)j
-(means)396 3650 y(that)g(there)e(are)h(separated)g(access)g(methods)g
-(for)f(attrib)n(utes)h(and)g(processing)f(instructions.)p
-Black 3800 5278 a Fr(49)p Black eop
-%%Page: 50 50
-50 49 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 396 579 a Fu(Figur)o(e)g(3-1.)f(A)i
-(tr)o(ee)e(with)i(element)f(nodes,)h(data)e(nodes,)i(and)f(attrib)n
-(utes)396 2578 y
- currentpoint currentpoint translate 1 1 scale neg exch neg exch translate
- 396 2578 a @beginspecial 0 @llx 0 @lly
-329 @urx 218 @ury 3290 @rwi @setspecial
-%%BeginDocument: pic/node_term.ps
-%!PS-Adobe-2.0 EPSF-2.0
-%%Title: src/pic/node_term.fig
-%%Creator: fig2dev Version 3.2 Patchlevel 1
-%%CreationDate: Sun Aug 27 02:05:42 2000
-%%For: gerd@ice (Gerd Stolpmann)
-%%Orientation: Portrait
-%%BoundingBox: 0 0 329 218
-%%Pages: 0
-%%BeginSetup
-%%EndSetup
-%%Magnification: 0.8000
-%%EndComments
-/$F2psDict 200 dict def
-$F2psDict begin
-$F2psDict /mtrx matrix put
-/col-1 {0 setgray} bind def
-/col0 {0.000 0.000 0.000 srgb} bind def
-/col1 {0.000 0.000 1.000 srgb} bind def
-/col2 {0.000 1.000 0.000 srgb} bind def
-/col3 {0.000 1.000 1.000 srgb} bind def
-/col4 {1.000 0.000 0.000 srgb} bind def
-/col5 {1.000 0.000 1.000 srgb} bind def
-/col6 {1.000 1.000 0.000 srgb} bind def
-/col7 {1.000 1.000 1.000 srgb} bind def
-/col8 {0.000 0.000 0.560 srgb} bind def
-/col9 {0.000 0.000 0.690 srgb} bind def
-/col10 {0.000 0.000 0.820 srgb} bind def
-/col11 {0.530 0.810 1.000 srgb} bind def
-/col12 {0.000 0.560 0.000 srgb} bind def
-/col13 {0.000 0.690 0.000 srgb} bind def
-/col14 {0.000 0.820 0.000 srgb} bind def
-/col15 {0.000 0.560 0.560 srgb} bind def
-/col16 {0.000 0.690 0.690 srgb} bind def
-/col17 {0.000 0.820 0.820 srgb} bind def
-/col18 {0.560 0.000 0.000 srgb} bind def
-/col19 {0.690 0.000 0.000 srgb} bind def
-/col20 {0.820 0.000 0.000 srgb} bind def
-/col21 {0.560 0.000 0.560 srgb} bind def
-/col22 {0.690 0.000 0.690 srgb} bind def
-/col23 {0.820 0.000 0.820 srgb} bind def
-/col24 {0.500 0.190 0.000 srgb} bind def
-/col25 {0.630 0.250 0.000 srgb} bind def
-/col26 {0.750 0.380 0.000 srgb} bind def
-/col27 {1.000 0.500 0.500 srgb} bind def
-/col28 {1.000 0.630 0.630 srgb} bind def
-/col29 {1.000 0.750 0.750 srgb} bind def
-/col30 {1.000 0.880 0.880 srgb} bind def
-/col31 {1.000 0.840 0.000 srgb} bind def
-
-end
-save
--1.0 251.0 translate
-1 -1 scale
-
-/cp {closepath} bind def
-/ef {eofill} bind def
-/gr {grestore} bind def
-/gs {gsave} bind def
-/sa {save} bind def
-/rs {restore} bind def
-/l {lineto} bind def
-/m {moveto} bind def
-/rm {rmoveto} bind def
-/n {newpath} bind def
-/s {stroke} bind def
-/sh {show} bind def
-/slc {setlinecap} bind def
-/slj {setlinejoin} bind def
-/slw {setlinewidth} bind def
-/srgb {setrgbcolor} bind def
-/rot {rotate} bind def
-/sc {scale} bind def
-/sd {setdash} bind def
-/ff {findfont} bind def
-/sf {setfont} bind def
-/scf {scalefont} bind def
-/sw {stringwidth} bind def
-/tr {translate} bind def
-/tnt {dup dup currentrgbcolor
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
-  bind def
-/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
-  4 -2 roll mul srgb} bind def
-/reencdict 12 dict def /ReEncode { reencdict begin
-/newcodesandnames exch def /newfontname exch def /basefontname exch def
-/basefontdict basefontname findfont def /newfont basefontdict maxlength dict def
-basefontdict { exch dup /FID ne { dup /Encoding eq
-{ exch dup length array copy newfont 3 1 roll put }
-{ exch newfont 3 1 roll put } ifelse } { pop pop } ifelse } forall
-newfont /FontName newfontname put newcodesandnames aload pop
-128 1 255 { newfont /Encoding get exch /.notdef put } for
-newcodesandnames length 2 idiv { newfont /Encoding get 3 1 roll put } repeat
-newfontname newfont definefont pop end } def
-/isovec [
-8#200 /grave 8#201 /acute 8#202 /circumflex 8#203 /tilde
-8#204 /macron 8#205 /breve 8#206 /dotaccent 8#207 /dieresis
-8#210 /ring 8#211 /cedilla 8#212 /hungarumlaut 8#213 /ogonek 8#214 /caron
-8#220 /dotlessi 8#230 /oe 8#231 /OE
-8#240 /space 8#241 /exclamdown 8#242 /cent 8#243 /sterling
-8#244 /currency 8#245 /yen 8#246 /brokenbar 8#247 /section 8#250 /dieresis
-8#251 /copyright 8#252 /ordfeminine 8#253 /guillemotleft 8#254 /logicalnot
-8#255 /endash 8#256 /registered 8#257 /macron 8#260 /degree 8#261 /plusminus
-8#262 /twosuperior 8#263 /threesuperior 8#264 /acute 8#265 /mu 8#266 /paragraph
-8#267 /periodcentered 8#270 /cedilla 8#271 /onesuperior 8#272 /ordmasculine
-8#273 /guillemotright 8#274 /onequarter 8#275 /onehalf
-8#276 /threequarters 8#277 /questiondown 8#300 /Agrave 8#301 /Aacute
-8#302 /Acircumflex 8#303 /Atilde 8#304 /Adieresis 8#305 /Aring
-8#306 /AE 8#307 /Ccedilla 8#310 /Egrave 8#311 /Eacute
-8#312 /Ecircumflex 8#313 /Edieresis 8#314 /Igrave 8#315 /Iacute
-8#316 /Icircumflex 8#317 /Idieresis 8#320 /Eth 8#321 /Ntilde 8#322 /Ograve
-8#323 /Oacute 8#324 /Ocircumflex 8#325 /Otilde 8#326 /Odieresis 8#327 /multiply
-8#330 /Oslash 8#331 /Ugrave 8#332 /Uacute 8#333 /Ucircumflex
-8#334 /Udieresis 8#335 /Yacute 8#336 /Thorn 8#337 /germandbls 8#340 /agrave
-8#341 /aacute 8#342 /acircumflex 8#343 /atilde 8#344 /adieresis 8#345 /aring
-8#346 /ae 8#347 /ccedilla 8#350 /egrave 8#351 /eacute
-8#352 /ecircumflex 8#353 /edieresis 8#354 /igrave 8#355 /iacute
-8#356 /icircumflex 8#357 /idieresis 8#360 /eth 8#361 /ntilde 8#362 /ograve
-8#363 /oacute 8#364 /ocircumflex 8#365 /otilde 8#366 /odieresis 8#367 /divide
-8#370 /oslash 8#371 /ugrave 8#372 /uacute 8#373 /ucircumflex
-8#374 /udieresis 8#375 /yacute 8#376 /thorn 8#377 /ydieresis] def
-/Helvetica-Bold /Helvetica-Bold-iso isovec ReEncode
-/Helvetica /Helvetica-iso isovec ReEncode
-/Helvetica-Oblique /Helvetica-Oblique-iso isovec ReEncode
- /DrawEllipse {
-       /endangle exch def
-       /startangle exch def
-       /yrad exch def
-       /xrad exch def
-       /y exch def
-       /x exch def
-       /savematrix mtrx currentmatrix def
-       x y tr xrad yrad sc 0 0 1 startangle endangle arc
-       closepath
-       savematrix setmatrix
-       } def
-
-/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
-/$F2psEnd {$F2psEnteredState restore end} def
-%%EndProlog
-
-$F2psBegin
-10 setmiterlimit
-n -1000 5962 m -1000 -1000 l 7537 -1000 l 7537 5962 l cp clip
- 0.05039 0.05039 sc
-% Polyline
-7.500 slw
-n 1770 2700 m 1665 2700 1665 3045 105 arcto 4 {pop} repeat
-  1665 3150 2730 3150 105 arcto 4 {pop} repeat
-  2835 3150 2835 2805 105 arcto 4 {pop} repeat
-  2835 2700 1770 2700 105 arcto 4 {pop} repeat
- cp gs col7 0.75 shd ef gr gs col0 s gr 
-% Ellipse
-n 2250 1125 225 225 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 1575 2025 225 225 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 2925 2025 225 225 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 900 2925 242 242 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Polyline
-n 420 3825 m 315 3825 315 4170 105 arcto 4 {pop} repeat
-  315 4275 1380 4275 105 arcto 4 {pop} repeat
-  1485 4275 1485 3930 105 arcto 4 {pop} repeat
-  1485 3825 420 3825 105 arcto 4 {pop} repeat
- cp gs col7 0.75 shd ef gr gs col0 s gr 
-% Polyline
-n 2085 1275 m 1582 1807 l gs col0 s gr 
-% Polyline
-n 2407 1297 m 2940 1800 l gs col0 s gr 
-% Polyline
-n 1417 2190 m 900 2692 l gs col0 s gr 
-% Polyline
-n 1740 2190 m 2257 2700 l gs col0 s gr 
-% Polyline
-n 892 3180 m 892 3825 l gs col0 s gr 
-% Polyline
-n 45 675 m 6525 675 l 6525 4950 l 45 4950 l cp gs col0 s gr 
-% Polyline
-n 2250 3600 m 2263 3597 l 2277 3594 l 2293 3592 l 2309 3589 l 2326 3586 l
- 2344 3583 l 2362 3580 l 2381 3578 l 2399 3575 l 2418 3572 l
- 2436 3569 l 2454 3566 l 2471 3563 l 2488 3561 l 2504 3558 l
- 2520 3555 l 2537 3552 l 2555 3548 l 2571 3545 l 2588 3541 l
- 2604 3537 l 2621 3533 l 2637 3528 l 2653 3524 l 2669 3520 l
- 2684 3517 l 2700 3514 l 2715 3512 l 2730 3510 l 2745 3510 l
- 2762 3511 l 2777 3512 l 2793 3514 l 2807 3517 l 2821 3520 l
- 2835 3524 l 2849 3528 l 2863 3532 l 2877 3537 l 2893 3542 l
- 2908 3548 l 2925 3555 l 2938 3561 l 2951 3568 l 2965 3575 l
- 2978 3584 l 2992 3593 l 3007 3602 l 3021 3612 l 3035 3623 l
- 3050 3633 l 3064 3643 l 3079 3652 l 3093 3661 l 3108 3670 l
- 3122 3677 l 3136 3684 l 3150 3690 l 3166 3696 l 3182 3701 l
- 3198 3706 l 3214 3710 l 3230 3713 l 3246 3716 l 3263 3719 l
- 3279 3721 l 3295 3724 l 3311 3726 l 3327 3729 l 3343 3731 l
- 3359 3733 l 3375 3735 l 3391 3736 l 3407 3737 l 3423 3738 l
- 3439 3738 l 3455 3738 l 3471 3738 l 3488 3737 l 3504 3737 l
- 3520 3736 l 3536 3736 l 3552 3735 l 3568 3735 l 3584 3735 l
- 3600 3735 l 3616 3735 l 3632 3735 l 3648 3734 l 3663 3734 l
- 3678 3733 l 3693 3732 l 3708 3731 l 3723 3730 l 3739 3729 l
- 3755 3729 l 3771 3729 l 3788 3730 l 3806 3732 l 3825 3735 l
- 3840 3738 l 3856 3741 l 3874 3745 l 3892 3749 l 3911 3753 l
- 3931 3757 l 3951 3762 l 3972 3767 l 3993 3772 l 4014 3777 l
- 4034 3782 l 4054 3787 l 4072 3793 l 4089 3799 l 4105 3805 l
- 4119 3811 l 4130 3818 l 4140 3825 l 4150 3835 l 4157 3846 l
- 4161 3858 l 4163 3870 l 4164 3883 l 4163 3897 l 4161 3911 l
- 4159 3925 l 4156 3939 l 4154 3952 l 4151 3966 l 4148 3979 l
- 4144 3992 l 4140 4005 l 4135 4018 l 4128 4031 l 4121 4045 l
- 4112 4058 l 4104 4073 l 4095 4087 l 4085 4101 l 4075 4116 l
- 4065 4129 l 4055 4143 l 4043 4155 l 4032 4166 l 4019 4176 l
- 4005 4185 l 3992 4192 l 3978 4197 l 3963 4202 l 3947 4206 l
- 3930 4210 l 3913 4213 l 3896 4216 l 3878 4218 l 3861 4220 l
- 3843 4222 l 3825 4224 l 3807 4226 l 3789 4228 l 3771 4229 l
- 3753 4230 l 3735 4230 l 3717 4230 l 3698 4228 l 3678 4226 l
- 3659 4224 l 3639 4220 l 3619 4216 l 3598 4212 l 3578 4208 l
- 3557 4203 l 3536 4199 l 3516 4195 l 3496 4191 l 3477 4189 l
- 3457 4187 l 3438 4185 l 3420 4185 l 3402 4185 l 3384 4186 l
- 3367 4188 l 3350 4190 l 3333 4193 l 3317 4196 l 3301 4200 l
- 3285 4203 l 3269 4207 l 3253 4211 l 3237 4214 l 3220 4218 l
- 3203 4221 l 3186 4224 l 3168 4227 l 3150 4230 l 3132 4233 l
- 3113 4236 l 3094 4239 l 3074 4242 l 3055 4246 l 3035 4249 l
- 3015 4253 l 2995 4257 l 2974 4260 l 2954 4264 l 2934 4267 l
- 2914 4270 l 2894 4272 l 2874 4274 l 2855 4275 l 2835 4275 l
- 2815 4275 l 2795 4274 l 2775 4272 l 2755 4270 l 2734 4268 l
- 2713 4265 l 2692 4262 l 2671 4259 l 2650 4256 l 2630 4252 l
- 2609 4249 l 2590 4245 l 2571 4242 l 2553 4238 l 2536 4234 l
- 2520 4230 l 2503 4225 l 2487 4219 l 2473 4213 l 2460 4207 l
- 2448 4200 l 2437 4192 l 2426 4185 l 2415 4178 l 2404 4170 l
- 2393 4163 l 2380 4157 l 2368 4151 l 2354 4145 l 2340 4140 l
- 2325 4135 l 2310 4131 l 2294 4128 l 2277 4125 l 2260 4122 l
- 2243 4120 l 2225 4118 l 2208 4115 l 2191 4113 l 2174 4110 l
- 2158 4107 l 2143 4104 l 2128 4100 l 2115 4095 l 2101 4089 l
- 2087 4083 l 2074 4076 l 2061 4070 l 2049 4063 l 2037 4056 l
- 2025 4049 l 2014 4042 l 2004 4034 l 1995 4025 l 1987 4016 l
- 1980 4005 l 1975 3993 l 1972 3980 l 1971 3965 l 1970 3949 l
- 1971 3932 l 1972 3915 l 1973 3898 l 1974 3881 l 1976 3865 l
- 1977 3850 l 1978 3837 l 1980 3825 l 1983 3812 l 1986 3801 l
- 1990 3792 l 1994 3784 l 1998 3776 l 2003 3768 l 2008 3761 l
- 2013 3752 l 2019 3744 l 2025 3735 l 2032 3726 l 2040 3717 l
- 2048 3707 l 2057 3698 l 2066 3688 l 2075 3678 l 2084 3669 l
- 2094 3660 l 2104 3652 l 2115 3645 l 2127 3639 l 2138 3633 l
- 2150 3628 l 2162 3624 l 2174 3620 l 2186 3617 l 2200 3613 l
- 2214 3609 l 2231 3604 l cp gs col0 s gr 
-% Polyline
-n 3645 1080 m 3660 1077 l 3677 1074 l 3694 1071 l 3713 1068 l 3733 1065 l
- 3754 1063 l 3775 1060 l 3798 1058 l 3820 1056 l 3843 1053 l
- 3866 1051 l 3889 1049 l 3912 1047 l 3934 1045 l 3955 1043 l
- 3976 1041 l 3996 1039 l 4015 1038 l 4033 1036 l 4050 1035 l
- 4071 1034 l 4090 1033 l 4109 1032 l 4127 1032 l 4144 1031 l
- 4161 1031 l 4177 1031 l 4193 1031 l 4209 1031 l 4225 1031 l
- 4241 1031 l 4257 1032 l 4273 1032 l 4289 1033 l 4304 1034 l
- 4320 1035 l 4337 1037 l 4354 1039 l 4371 1041 l 4387 1044 l
- 4403 1047 l 4419 1050 l 4435 1053 l 4450 1057 l 4466 1060 l
- 4481 1063 l 4497 1067 l 4513 1071 l 4529 1075 l 4545 1080 l
- 4561 1085 l 4577 1091 l 4592 1097 l 4607 1103 l 4622 1110 l
- 4637 1118 l 4651 1125 l 4666 1132 l 4681 1140 l 4697 1147 l
- 4713 1153 l 4731 1159 l 4750 1165 l 4770 1170 l 4787 1174 l
- 4804 1177 l 4823 1180 l 4842 1182 l 4863 1184 l 4884 1186 l
- 4906 1188 l 4928 1189 l 4950 1190 l 4972 1192 l 4994 1193 l
- 5016 1195 l 5037 1197 l 5058 1200 l 5077 1203 l 5096 1206 l
- 5113 1210 l 5130 1215 l 5148 1221 l 5165 1228 l 5181 1235 l
- 5197 1242 l 5212 1250 l 5228 1259 l 5243 1267 l 5257 1276 l
- 5272 1285 l 5286 1294 l 5299 1303 l 5312 1312 l 5324 1322 l
- 5336 1331 l 5346 1340 l 5355 1350 l 5365 1363 l 5373 1378 l
- 5380 1392 l 5386 1408 l 5390 1424 l 5394 1440 l 5398 1456 l
- 5401 1472 l 5402 1488 l 5403 1502 l 5403 1517 l 5400 1530 l
- 5395 1543 l 5389 1555 l 5381 1568 l 5372 1580 l 5363 1592 l
- 5354 1604 l 5343 1616 l 5331 1627 l 5318 1638 l 5303 1648 l
- 5286 1657 l 5265 1665 l 5251 1669 l 5235 1673 l 5219 1677 l
- 5201 1680 l 5182 1683 l 5162 1685 l 5141 1688 l 5119 1690 l
- 5097 1692 l 5075 1694 l 5053 1696 l 5030 1697 l 5008 1699 l
- 4986 1701 l 4964 1703 l 4943 1704 l 4921 1706 l 4901 1707 l
- 4880 1709 l 4860 1710 l 4840 1711 l 4819 1712 l 4799 1713 l
- 4779 1713 l 4758 1713 l 4738 1714 l 4717 1714 l 4697 1714 l
- 4676 1714 l 4655 1714 l 4635 1714 l 4614 1714 l 4594 1714 l
- 4573 1714 l 4553 1713 l 4533 1713 l 4513 1713 l 4494 1712 l
- 4474 1711 l 4455 1710 l 4434 1709 l 4413 1707 l 4392 1705 l
- 4372 1703 l 4351 1701 l 4331 1698 l 4311 1695 l 4291 1692 l
- 4271 1690 l 4251 1687 l 4231 1684 l 4211 1681 l 4191 1678 l
- 4172 1675 l 4152 1673 l 4133 1670 l 4114 1668 l 4095 1665 l
- 4074 1662 l 4053 1659 l 4033 1657 l 4012 1654 l 3992 1651 l
- 3972 1648 l 3951 1645 l 3931 1643 l 3911 1640 l 3891 1637 l
- 3872 1634 l 3852 1631 l 3833 1628 l 3815 1626 l 3797 1623 l
- 3780 1620 l 3761 1617 l 3743 1614 l 3725 1611 l 3708 1608 l
- 3692 1605 l 3675 1602 l 3659 1600 l 3643 1597 l 3627 1594 l
- 3612 1591 l 3597 1587 l 3582 1584 l 3568 1580 l 3555 1575 l
- 3541 1569 l 3527 1563 l 3514 1556 l 3501 1550 l 3489 1543 l
- 3477 1536 l 3465 1529 l 3454 1522 l 3444 1514 l 3435 1505 l
- 3427 1496 l 3420 1485 l 3415 1473 l 3412 1460 l 3411 1445 l
- 3410 1430 l 3411 1414 l 3412 1397 l 3413 1380 l 3414 1364 l
- 3416 1348 l 3417 1333 l 3418 1318 l 3420 1305 l 3423 1290 l
- 3425 1275 l 3428 1261 l 3431 1247 l 3434 1233 l 3437 1220 l
- 3442 1207 l 3447 1194 l 3455 1182 l 3465 1170 l 3474 1162 l
- 3483 1155 l 3493 1148 l 3504 1141 l 3515 1134 l 3526 1127 l
- 3538 1121 l 3550 1114 l 3563 1108 l 3577 1102 l 3591 1096 l
- 3607 1090 l 3625 1085 l cp gs col0 s gr 
-% Polyline
-n 2475 1215 m 2477 1217 l 2482 1221 l 2491 1229 l 2503 1239 l 2517 1252 l
- 2534 1267 l 2552 1282 l 2570 1296 l 2588 1310 l 2605 1322 l
- 2621 1332 l 2638 1342 l 2655 1350 l 2669 1356 l 2684 1362 l
- 2700 1368 l 2717 1374 l 2734 1380 l 2752 1386 l 2770 1392 l
- 2789 1398 l 2808 1403 l 2827 1409 l 2846 1415 l 2865 1420 l
- 2884 1425 l 2902 1429 l 2920 1433 l 2937 1436 l 2954 1438 l
- 2970 1440 l 2988 1441 l 3006 1441 l 3024 1440 l 3041 1439 l
- 3059 1437 l 3076 1434 l 3094 1431 l 3111 1428 l 3129 1425 l
- 3146 1421 l 3162 1417 l 3179 1414 l 3195 1409 l 3211 1405 l
- 3226 1400 l 3240 1395 l 3256 1388 l 3271 1380 l 3287 1370 l
- 3304 1358 l 3322 1344 l 3340 1329 l 3359 1314 l 3376 1299 l
- 3391 1286 l 3404 1275 l 3412 1267 l 3418 1262 l 3420 1260 l gs col0 s gr 
-% Polyline
-n 1125 3060 m 1126 3063 l 1127 3068 l 1129 3078 l 1132 3093 l 1136 3112 l
- 1141 3135 l 1146 3162 l 1153 3190 l 1159 3219 l 1166 3248 l
- 1173 3275 l 1180 3301 l 1187 3324 l 1193 3345 l 1200 3364 l
- 1207 3381 l 1215 3397 l 1224 3414 l 1234 3429 l 1245 3444 l
- 1256 3459 l 1267 3473 l 1279 3486 l 1291 3499 l 1304 3512 l
- 1316 3525 l 1329 3537 l 1342 3550 l 1355 3562 l 1368 3574 l
- 1382 3585 l 1396 3596 l 1410 3607 l 1425 3617 l 1441 3626 l
- 1457 3635 l 1473 3644 l 1490 3653 l 1507 3661 l 1524 3669 l
- 1542 3677 l 1559 3685 l 1577 3692 l 1595 3700 l 1613 3706 l
- 1631 3713 l 1649 3718 l 1668 3723 l 1687 3727 l 1704 3730 l
- 1723 3732 l 1743 3733 l 1764 3734 l 1788 3734 l 1814 3733 l
- 1841 3732 l 1869 3731 l 1898 3729 l 1926 3727 l 1952 3725 l
- 1975 3724 l 1993 3722 l 2008 3721 l 2017 3721 l 2022 3720 l
- 2025 3720 l gs col0 s gr 
-/Helvetica-iso ff 180.00 scf sf
-3600 1260 m
-gs 1 -1 sc (attributes:) col0 sh gr
-/Helvetica-iso ff 180.00 scf sf
-3600 1485 m
-gs 1 -1 sc ("att" -> Value "apple") col0 sh gr
-/Helvetica-iso ff 180.00 scf sf
-2250 3780 m
-gs 1 -1 sc (attributes:) col0 sh gr
-/Helvetica-Oblique-iso ff 180.00 scf sf
-390 4725 m
-gs 1 -1 sc (<a att="apple"><b><a att="orange">An orange</a>Cherries</b><c/></a>) col0 sh gr
-/Helvetica-iso ff 180.00 scf sf
-2250 4005 m
-gs 1 -1 sc ("att" -> Value "orange") col0 sh gr
-/Helvetica-Bold-iso ff 180.00 scf sf
-1815 3015 m
-gs 1 -1 sc ("Cherries") col0 sh gr
-/Helvetica-Bold-iso ff 180.00 scf sf
-375 4125 m
-gs 1 -1 sc ("An orange") col0 sh gr
-/Helvetica-Bold-iso ff 180.00 scf sf
-750 2985 m
-gs 1 -1 sc (<a>) col0 sh gr
-/Helvetica-Bold-iso ff 180.00 scf sf
-1410 2085 m
-gs 1 -1 sc (<b>) col0 sh gr
-/Helvetica-Bold-iso ff 180.00 scf sf
-2790 2070 m
-gs 1 -1 sc (<c>) col0 sh gr
-/Helvetica-Bold-iso ff 180.00 scf sf
-2100 1200 m
-gs 1 -1 sc (<a>) col0 sh gr
-$F2psEnd
-rs
-
-%%EndDocument
- @endspecial 396 2578 a
- currentpoint currentpoint translate 1 1 div 1 1 div scale neg exch
-neg exch translate
- 396 2578 a 357 x Fv(Only)g(elements,)g(data)g
-(sections,)g(attrib)n(utes)g(and)g(processing)e(instructions)i(\(and)f
-(comments,)g(if)h(con\002gured\))e(can,)396 3043 y(directly)i(or)g
-(indirectly)-5 b(,)18 b(occur)h(in)h(the)h(document)d(tree.)i(It)g(is)h
-(impossible)f(to)g(add)g(entity)g(references)f(to)h(the)g(tree;)g(if)
-396 3151 y(the)g(parser)g(\002nds)g(such)g(a)h(reference,)d(not)i(the)g
-(reference)f(as)i(such)f(b)n(ut)g(the)g(referenced)e(te)o(xt)i(\(i.e.)g
-(the)g(tree)396 3259 y(representing)e(the)j(structured)d(te)o(xt\))i
-(is)h(included)e(in)h(the)g(tree.)396 3409 y(Note)g(that)h(the)f
-(parser)f(collapses)i(as)g(much)e(data)h(material)g(into)g(one)f(data)h
-(node)f(as)i(possible)f(such)g(that)g(there)g(are)396
-3517 y(normally)f(ne)n(v)o(er)g(tw)o(o)h(adjacent)f(data)i(nodes.)e
-(This)h(in)m(v)n(ariant)f(is)i(enforced)d(e)n(v)o(en)h(if)i(data)f
-(material)f(is)j(included)c(by)396 3625 y(entity)i(references)f(or)h
-(CD)m(A)-9 b(T)h(A)20 b(sections,)g(or)g(if)h(a)f(data)g(sequence)f(is)
-j(interrupted)c(by)h(comments.)g(So)i Fq(a)44 b(&amp;)g(b)396
-3732 y Fo(<)p Fq(-)h(comment)e(-)p Fo(>)i Fq(c)f Fo(<)p
-Fq(![CDATA[)g Fo(<>)g Fq(d]])p Fo(>)20 b Fv(is)h(represented)d(by)i
-(only)g(one)f(data)h(node,)f(for)h(instance.)396 3840
-y(Ho)n(we)n(v)o(er)m(,)e(you)i(can)g(create)g(document)e(trees)i
-(manually)f(which)h(break)f(this)i(in)m(v)n(ariant;)d(it)j(is)g(only)f
-(the)g(w)o(ay)g(the)396 3948 y(parser)g(forms)f(the)h(tree.)p
-Black 3800 5278 a Fr(50)p Black eop
-%%Page: 51 51
-51 50 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 396 579 a Fu(Figur)o(e)g(3-2.)f
-(Nodes)h(ar)o(e)g(doubly)g(link)o(ed)i(tr)o(ees)396 1537
-y
- currentpoint currentpoint translate 1 1 scale neg exch neg exch translate
- 396 1537 a @beginspecial 0 @llx 0 @lly 138 @urx 93
-@ury 1380 @rwi @setspecial
-%%BeginDocument: pic/node_general.ps
-%!PS-Adobe-2.0 EPSF-2.0
-%%Title: src/pic/node_general.fig
-%%Creator: fig2dev Version 3.2 Patchlevel 1
-%%CreationDate: Sun Aug 27 02:05:42 2000
-%%For: gerd@ice (Gerd Stolpmann)
-%%Orientation: Portrait
-%%BoundingBox: 0 0 138 93
-%%Pages: 0
-%%BeginSetup
-%%EndSetup
-%%Magnification: 0.8000
-%%EndComments
-/$F2psDict 200 dict def
-$F2psDict begin
-$F2psDict /mtrx matrix put
-/col-1 {0 setgray} bind def
-/col0 {0.000 0.000 0.000 srgb} bind def
-/col1 {0.000 0.000 1.000 srgb} bind def
-/col2 {0.000 1.000 0.000 srgb} bind def
-/col3 {0.000 1.000 1.000 srgb} bind def
-/col4 {1.000 0.000 0.000 srgb} bind def
-/col5 {1.000 0.000 1.000 srgb} bind def
-/col6 {1.000 1.000 0.000 srgb} bind def
-/col7 {1.000 1.000 1.000 srgb} bind def
-/col8 {0.000 0.000 0.560 srgb} bind def
-/col9 {0.000 0.000 0.690 srgb} bind def
-/col10 {0.000 0.000 0.820 srgb} bind def
-/col11 {0.530 0.810 1.000 srgb} bind def
-/col12 {0.000 0.560 0.000 srgb} bind def
-/col13 {0.000 0.690 0.000 srgb} bind def
-/col14 {0.000 0.820 0.000 srgb} bind def
-/col15 {0.000 0.560 0.560 srgb} bind def
-/col16 {0.000 0.690 0.690 srgb} bind def
-/col17 {0.000 0.820 0.820 srgb} bind def
-/col18 {0.560 0.000 0.000 srgb} bind def
-/col19 {0.690 0.000 0.000 srgb} bind def
-/col20 {0.820 0.000 0.000 srgb} bind def
-/col21 {0.560 0.000 0.560 srgb} bind def
-/col22 {0.690 0.000 0.690 srgb} bind def
-/col23 {0.820 0.000 0.820 srgb} bind def
-/col24 {0.500 0.190 0.000 srgb} bind def
-/col25 {0.630 0.250 0.000 srgb} bind def
-/col26 {0.750 0.380 0.000 srgb} bind def
-/col27 {1.000 0.500 0.500 srgb} bind def
-/col28 {1.000 0.630 0.630 srgb} bind def
-/col29 {1.000 0.750 0.750 srgb} bind def
-/col30 {1.000 0.880 0.880 srgb} bind def
-/col31 {1.000 0.840 0.000 srgb} bind def
-
-end
-save
--22.0 126.0 translate
-1 -1 scale
-
-/cp {closepath} bind def
-/ef {eofill} bind def
-/gr {grestore} bind def
-/gs {gsave} bind def
-/sa {save} bind def
-/rs {restore} bind def
-/l {lineto} bind def
-/m {moveto} bind def
-/rm {rmoveto} bind def
-/n {newpath} bind def
-/s {stroke} bind def
-/sh {show} bind def
-/slc {setlinecap} bind def
-/slj {setlinejoin} bind def
-/slw {setlinewidth} bind def
-/srgb {setrgbcolor} bind def
-/rot {rotate} bind def
-/sc {scale} bind def
-/sd {setdash} bind def
-/ff {findfont} bind def
-/sf {setfont} bind def
-/scf {scalefont} bind def
-/sw {stringwidth} bind def
-/tr {translate} bind def
-/tnt {dup dup currentrgbcolor
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
-  bind def
-/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
-  4 -2 roll mul srgb} bind def
- /DrawEllipse {
-       /endangle exch def
-       /startangle exch def
-       /yrad exch def
-       /xrad exch def
-       /y exch def
-       /x exch def
-       /savematrix mtrx currentmatrix def
-       x y tr xrad yrad sc 0 0 1 startangle endangle arc
-       closepath
-       savematrix setmatrix
-       } def
-
-/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
-/$F2psEnd {$F2psEnteredState restore end} def
-%%EndProlog
-
-$F2psBegin
-10 setmiterlimit
-n -1000 3487 m -1000 -1000 l 4162 -1000 l 4162 3487 l cp clip
- 0.05039 0.05039 sc
-7.500 slw
-% Ellipse
-n 2025 2025 229 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 1350 2025 225 225 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 2700 2025 225 225 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 2025 1125 225 225 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Polyline
-gs  clippath
-1743 1345 m 1845 1275 l 1788 1385 l 1877 1284 l 1832 1244 l cp
-clip
-n 1380 1800 m 1845 1275 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 1743 1345 m 1845 1275 l 1788 1385 l 1765 1365 l 1743 1345 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-1384 1745 m 1282 1815 l 1339 1705 l 1250 1807 l 1295 1846 l cp
-clip
-n 1815 1207 m 1282 1815 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 1384 1745 m 1282 1815 l 1339 1705 l 1361 1725 l 1384 1745 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-2025 1470 m 2055 1350 l 2085 1470 l 2085 1335 l 2025 1335 l cp
-clip
-n 2055 1792 m 2055 1350 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 2025 1470 m 2055 1350 l 2085 1470 l 2055 1470 l 2025 1470 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-2010 1687 m 1980 1807 l 1950 1687 l 1950 1822 l 2010 1822 l cp
-clip
-n 1980 1350 m 1980 1807 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 2010 1687 m 1980 1807 l 1950 1687 l 1980 1687 l 2010 1687 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-2511 1750 m 2550 1867 l 2461 1782 l 2533 1896 l 2583 1864 l cp
-clip
-n 2190 1297 m 2550 1867 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 2511 1750 m 2550 1867 l 2461 1782 l 2486 1766 l 2511 1750 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-2262 1353 m 2220 1237 l 2312 1320 l 2237 1208 l 2187 1241 l cp
-clip
-n 2602 1807 m 2220 1237 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 2262 1353 m 2220 1237 l 2312 1320 l 2287 1337 l 2262 1353 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-n 450 675 m 3150 675 l 3150 2475 l 450 2475 l cp gs col0 s gr 
-/Courier ff 150.00 scf sf
-2377 1342 m
-gs 1 -1 sc (parent) col0 sh gr
-/Courier ff 150.00 scf sf
-645 1628 m
-gs 1 -1 sc (sub_nodes) col0 sh gr
-$F2psEnd
-rs
-
-%%EndDocument
- @endspecial 396 1537 a
- currentpoint currentpoint translate 1 1 div 1 1 div scale neg exch
-neg exch translate
- 396 1537 a 357 x Fv(The)e(node)f(tree)h(has)h
-(links)f(in)g(both)g(directions:)f(Ev)o(ery)g(node)g(has)h(a)h(link)f
-(to)g(its)i(parent)d(\(if)h(an)o(y\),)f(and)g(it)i(has)g(links)f(to)396
-2002 y(the)g(subnodes)f(\(see)i(\002gure)e Fr(Nodes)h(ar)m(e)h(doubly)d
-(link)o(ed)i(tr)m(ees)p Fv(\).)h(Ob)o(viously)-5 b(,)18
-b(this)i(doubly-link)o(ed)d(structure)396 2110 y(simpli\002es)k(the)f
-(na)n(vigation)e(in)j(the)f(tree;)g(b)n(ut)g(has)h(also)f(some)g
-(consequences)f(for)g(the)h(possible)g(operations)f(on)h(trees.)396
-2259 y(Because)h(e)n(v)o(ery)d(node)i(must)g(ha)n(v)o(e)f(at)i(most)f
-Fr(one)g Fv(parent)f(node,)g(operations)g(are)h(ille)o(gal)g(if)g(the)o
-(y)f(violate)h(this)396 2367 y(condition.)e(The)i(follo)n(wing)f
-(\002gure)g(\()p Fr(A)h(node)g(can)f(only)h(be)g(added)f(if)i(it)g(is)g
-(a)f(r)l(oot)q Fv(\))g(sho)n(ws)h(on)e(the)i(left)f(side)h(that)f(node)
-396 2475 y Fq(y)h Fv(is)g(added)e(to)h Fq(x)h Fv(as)g(ne)n(w)f(subnode)
-e(which)i(is)h(allo)n(wed)f(because)f Fq(y)i Fv(does)f(not)g(ha)n(v)o
-(e)f(a)i(parent)e(yet.)h(The)g(right)f(side)i(of)396
-2583 y(the)f(picture)g(illustrates)g(what)h(w)o(ould)e(happen)g(if)h
-Fq(y)h Fv(had)e(a)i(parent)e(node;)g(this)i(is)g(ille)o(gal)f(because)f
-Fq(y)i Fv(w)o(ould)e(ha)n(v)o(e)h(tw)o(o)396 2691 y(parents)g(after)g
-(the)g(operation.)396 2923 y Fu(Figur)o(e)g(3-3.)f(A)i(node)f(can)g
-(only)g(be)h(added)g(if)f(it)h(is)g(a)f(r)o(oot)396 4165
-y
- currentpoint currentpoint translate 1 1 scale neg exch neg exch translate
- 396 4165 a @beginspecial 0 @llx 0 @lly 422 @urx 127
-@ury 4220 @rwi @setspecial
-%%BeginDocument: pic/node_add.ps
-%!PS-Adobe-2.0 EPSF-2.0
-%%Title: src/pic/node_add.fig
-%%Creator: fig2dev Version 3.2 Patchlevel 1
-%%CreationDate: Sun Aug 27 02:05:42 2000
-%%For: gerd@ice (Gerd Stolpmann)
-%%Orientation: Portrait
-%%BoundingBox: 0 0 422 127
-%%Pages: 0
-%%BeginSetup
-%%EndSetup
-%%Magnification: 0.8000
-%%EndComments
-/$F2psDict 200 dict def
-$F2psDict begin
-$F2psDict /mtrx matrix put
-/col-1 {0 setgray} bind def
-/col0 {0.000 0.000 0.000 srgb} bind def
-/col1 {0.000 0.000 1.000 srgb} bind def
-/col2 {0.000 1.000 0.000 srgb} bind def
-/col3 {0.000 1.000 1.000 srgb} bind def
-/col4 {1.000 0.000 0.000 srgb} bind def
-/col5 {1.000 0.000 1.000 srgb} bind def
-/col6 {1.000 1.000 0.000 srgb} bind def
-/col7 {1.000 1.000 1.000 srgb} bind def
-/col8 {0.000 0.000 0.560 srgb} bind def
-/col9 {0.000 0.000 0.690 srgb} bind def
-/col10 {0.000 0.000 0.820 srgb} bind def
-/col11 {0.530 0.810 1.000 srgb} bind def
-/col12 {0.000 0.560 0.000 srgb} bind def
-/col13 {0.000 0.690 0.000 srgb} bind def
-/col14 {0.000 0.820 0.000 srgb} bind def
-/col15 {0.000 0.560 0.560 srgb} bind def
-/col16 {0.000 0.690 0.690 srgb} bind def
-/col17 {0.000 0.820 0.820 srgb} bind def
-/col18 {0.560 0.000 0.000 srgb} bind def
-/col19 {0.690 0.000 0.000 srgb} bind def
-/col20 {0.820 0.000 0.000 srgb} bind def
-/col21 {0.560 0.000 0.560 srgb} bind def
-/col22 {0.690 0.000 0.690 srgb} bind def
-/col23 {0.820 0.000 0.820 srgb} bind def
-/col24 {0.500 0.190 0.000 srgb} bind def
-/col25 {0.630 0.250 0.000 srgb} bind def
-/col26 {0.750 0.380 0.000 srgb} bind def
-/col27 {1.000 0.500 0.500 srgb} bind def
-/col28 {1.000 0.630 0.630 srgb} bind def
-/col29 {1.000 0.750 0.750 srgb} bind def
-/col30 {1.000 0.880 0.880 srgb} bind def
-/col31 {1.000 0.840 0.000 srgb} bind def
-
-end
-save
--33.0 171.0 translate
-1 -1 scale
-
-/cp {closepath} bind def
-/ef {eofill} bind def
-/gr {grestore} bind def
-/gs {gsave} bind def
-/sa {save} bind def
-/rs {restore} bind def
-/l {lineto} bind def
-/m {moveto} bind def
-/rm {rmoveto} bind def
-/n {newpath} bind def
-/s {stroke} bind def
-/sh {show} bind def
-/slc {setlinecap} bind def
-/slj {setlinejoin} bind def
-/slw {setlinewidth} bind def
-/srgb {setrgbcolor} bind def
-/rot {rotate} bind def
-/sc {scale} bind def
-/sd {setdash} bind def
-/ff {findfont} bind def
-/sf {setfont} bind def
-/scf {scalefont} bind def
-/sw {stringwidth} bind def
-/tr {translate} bind def
-/tnt {dup dup currentrgbcolor
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
-  bind def
-/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
-  4 -2 roll mul srgb} bind def
- /DrawEllipse {
-       /endangle exch def
-       /startangle exch def
-       /yrad exch def
-       /xrad exch def
-       /y exch def
-       /x exch def
-       /savematrix mtrx currentmatrix def
-       x y tr xrad yrad sc 0 0 1 startangle endangle arc
-       closepath
-       savematrix setmatrix
-       } def
-
-/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
-/$F2psEnd {$F2psEnteredState restore end} def
-%%EndProlog
-
-$F2psBegin
-10 setmiterlimit
-n -1000 4387 m -1000 -1000 l 10012 -1000 l 10012 4387 l cp clip
- 0.05039 0.05039 sc
-7.500 slw
-% Ellipse
-n 6141 1350 242 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 6141 2250 242 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 5426 2250 242 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 6856 2250 242 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 7571 2925 242 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 8524 2925 242 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 8047 2250 242 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 1866 1350 242 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 1866 2250 242 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 1151 2250 242 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 2581 2250 242 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 3296 2925 242 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 4249 2925 242 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 3772 2250 242 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 8325 1350 242 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Polyline
-gs  clippath
-5507 1945 m 5402 2017 l 5460 1904 l 5369 2008 l 5415 2049 l cp
-clip
-n 5910 1440 m 5402 2017 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 5507 1945 m 5402 2017 l 5460 1904 l 5484 1924 l 5507 1945 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-6134 1902 m 6101 2025 l 6072 1901 l 6070 2039 l 6132 2041 l cp
-clip
-n 6109 1590 m 6101 2025 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 6134 1902 m 6101 2025 l 6072 1901 l 6103 1901 l 6134 1902 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-6649 1952 m 6697 2070 l 6599 1989 l 6681 2100 l 6731 2064 l cp
-clip
-n 6307 1537 m 6697 2070 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 6649 1952 m 6697 2070 l 6599 1989 l 6624 1970 l 6649 1952 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-7696 2606 m 7602 2692 l 7645 2572 l 7568 2687 l 7619 2722 l cp
-clip
-n 7832 2347 m 7602 2692 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 7696 2606 m 7602 2692 l 7645 2572 l 7671 2589 l 7696 2606 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-8306 2632 m 8349 2752 l 8255 2666 l 8332 2782 l 8383 2747 l cp
-clip
-n 8150 2452 m 8349 2752 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 8306 2632 m 8349 2752 l 8255 2666 l 8281 2649 l 8306 2632 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-5853 1564 m 5958 1492 l 5899 1605 l 5991 1501 l 5945 1460 l cp
-clip
-n 5490 2017 m 5958 1492 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 5853 1564 m 5958 1492 l 5899 1605 l 5876 1584 l 5853 1564 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-6140 1698 m 6173 1575 l 6201 1699 l 6204 1561 l 6142 1559 l cp
-clip
-n 6164 2010 m 6173 1575 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 6140 1698 m 6173 1575 l 6201 1699 l 6170 1699 l 6140 1698 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-6404 1588 m 6355 1470 l 6454 1551 l 6371 1440 l 6321 1476 l cp
-clip
-n 6768 2025 m 6355 1470 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 6404 1588 m 6355 1470 l 6454 1551 l 6429 1569 l 6404 1588 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-7784 2499 m 7880 2415 l 7835 2534 l 7914 2420 l 7863 2385 l cp
-clip
-n 7673 2715 m 7880 2415 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 7784 2499 m 7880 2415 l 7835 2534 l 7810 2517 l 7784 2499 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-8263 2535 m 8222 2415 l 8315 2502 l 8240 2386 l 8188 2419 l cp
-clip
-n 8412 2707 m 8222 2415 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 8263 2535 m 8222 2415 l 8315 2502 l 8289 2519 l 8263 2535 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-1232 1945 m 1127 2017 l 1185 1904 l 1094 2008 l 1140 2049 l cp
-clip
-n 1635 1440 m 1127 2017 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 1232 1945 m 1127 2017 l 1185 1904 l 1209 1924 l 1232 1945 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-1859 1902 m 1826 2025 l 1797 1901 l 1795 2039 l 1857 2041 l cp
-clip
-n 1834 1590 m 1826 2025 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 1859 1902 m 1826 2025 l 1797 1901 l 1828 1902 l 1859 1902 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-2374 1952 m 2422 2070 l 2324 1989 l 2406 2100 l 2456 2064 l cp
-clip
-n 2032 1537 m 2422 2070 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 2374 1952 m 2422 2070 l 2324 1989 l 2349 1970 l 2374 1952 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-3421 2606 m 3327 2692 l 3370 2572 l 3293 2687 l 3344 2722 l cp
-clip
-n 3557 2347 m 3327 2692 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 3421 2606 m 3327 2692 l 3370 2572 l 3396 2589 l 3421 2606 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-4031 2632 m 4074 2752 l 3980 2666 l 4057 2782 l 4108 2747 l cp
-clip
-n 3875 2452 m 4074 2752 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 4031 2632 m 4074 2752 l 3980 2666 l 4006 2649 l 4031 2632 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-1578 1564 m 1683 1492 l 1624 1605 l 1716 1501 l 1670 1460 l cp
-clip
-n 1215 2017 m 1683 1492 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 1578 1564 m 1683 1492 l 1624 1605 l 1601 1584 l 1578 1564 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-1865 1698 m 1898 1575 l 1926 1699 l 1929 1561 l 1867 1559 l cp
-clip
-n 1889 2010 m 1898 1575 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 1865 1698 m 1898 1575 l 1926 1699 l 1895 1698 l 1865 1698 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-2129 1588 m 2080 1470 l 2179 1551 l 2096 1440 l 2046 1476 l cp
-clip
-n 2493 2025 m 2080 1470 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 2129 1588 m 2080 1470 l 2179 1551 l 2154 1569 l 2129 1588 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-3509 2499 m 3605 2415 l 3560 2534 l 3639 2420 l 3588 2385 l cp
-clip
-n 3398 2715 m 3605 2415 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 3509 2499 m 3605 2415 l 3560 2534 l 3535 2517 l 3509 2499 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-3988 2535 m 3947 2415 l 4040 2502 l 3965 2386 l 3913 2419 l cp
-clip
-n 4137 2707 m 3947 2415 l gs col7 0.75 shd ef gr gs col0 s gr gr
-
-% arrowhead
-n 3988 2535 m 3947 2415 l 4040 2502 l 4014 2519 l 3988 2535 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
- [60] 0 sd
-n 6387 1372 m 8023 2017 l gs col7 0.75 shd ef gr gs col0 s gr  [] 0 sd
-% Polyline
-n 4950 900 m 9000 900 l 9000 3375 l 4950 3375 l cp gs col0 s gr 
-% Polyline
- [60] 0 sd
-n 2112 1372 m 3748 2017 l gs col7 0.75 shd ef gr gs col0 s gr  [] 0 sd
-% Polyline
-n 675 900 m 4725 900 l 4725 3375 l 675 3375 l cp gs col0 s gr 
-% Polyline
-gs  clippath
-8119 1904 m 8055 2010 l 8061 1886 l 8022 2016 l 8079 2033 l cp
-clip
-n 8197 1545 m 8055 2010 l gs col0 s gr gr
-
-% arrowhead
-n 8119 1904 m 8055 2010 l 8061 1886 l 8090 1895 l 8119 1904 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-8214 1695 m 8280 1590 l 8271 1713 l 8313 1585 l 8256 1566 l cp
-clip
-n 8137 2025 m 8280 1590 l gs col0 s gr gr
-
-% arrowhead
-n 8214 1695 m 8280 1590 l 8271 1713 l 8243 1704 l 8214 1695 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-30.000 slw
-gs  clippath
-7687 2205 m 7502 2333 l 7594 2129 l 7410 2351 l 7503 2428 l cp
-clip
-n 7875 1500 m 7620 1965 l 7845 1920 l 7485 2355 l gs col0 s gr gr
-
-% arrowhead
-15.000 slw
-n 7687 2205 m 7502 2333 l 7594 2129 l 7618 2195 l 7687 2205 l  cp gs 0.00 setgray ef gr  col0 s
-/Courier-Bold ff 195.00 scf sf
-6094 1379 m
-gs 1 -1 sc (x) col0 sh gr
-/Courier-Bold ff 195.00 scf sf
-7991 2265 m
-gs 1 -1 sc (y) col0 sh gr
-/Courier-Bold ff 195.00 scf sf
-1819 1379 m
-gs 1 -1 sc (x) col0 sh gr
-/Courier-Bold ff 195.00 scf sf
-3716 2265 m
-gs 1 -1 sc (y) col0 sh gr
-/Courier ff 180.00 scf sf
-6459 1335 m
-gs 1 -1 sc (x # add_node y) col0 sh gr
-/Courier ff 180.00 scf sf
-2214 1365 m
-gs 1 -1 sc (x # add_node y) col0 sh gr
-$F2psEnd
-rs
-
-%%EndDocument
- @endspecial 396 4165 a
- currentpoint currentpoint translate 1 1 div 1 1 div scale neg exch
-neg exch translate
- 396 4165 a 357 x Fv(The)g("delete")g(operation)
-e(simply)i(remo)o(v)o(es)f(the)h(links)g(between)f(tw)o(o)i(nodes.)e
-(In)h(the)g(picture)f(\()p Fr(A)i(deleted)e(node)396
-4629 y(becomes)h(the)g(r)l(oot)g(of)h(the)f(subtr)m(ee)p
-Fv(\))g(the)g(node)f Fq(x)i Fv(is)g(deleted)e(from)h(the)g(list)h(of)f
-(subnodes)f(of)h Fq(y)p Fv(.)g(After)g(that,)g Fq(x)396
-4737 y Fv(becomes)g(the)g(root)f(of)h(the)g(subtree)g(starting)g(at)g
-(this)h(node.)p Black 3800 5278 a Fr(51)p Black eop
-%%Page: 52 52
-52 51 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 396 579 a Fu(Figur)o(e)g(3-4.)f(A)i
-(deleted)f(node)g(becomes)h(the)f(r)o(oot)f(of)h(the)g(subtr)o(ee)396
-1912 y
- currentpoint currentpoint translate 1 1 scale neg exch neg exch translate
- 396 1912 a @beginspecial 0 @llx 0 @lly 388 @urx
-138 @ury 3880 @rwi @setspecial
-%%BeginDocument: pic/node_delete.ps
-%!PS-Adobe-2.0 EPSF-2.0
-%%Title: src/pic/node_delete.fig
-%%Creator: fig2dev Version 3.2 Patchlevel 1
-%%CreationDate: Sun Aug 27 02:05:42 2000
-%%For: gerd@ice (Gerd Stolpmann)
-%%Orientation: Portrait
-%%BoundingBox: 0 0 388 138
-%%Pages: 0
-%%BeginSetup
-%%EndSetup
-%%Magnification: 0.8000
-%%EndComments
-/$F2psDict 200 dict def
-$F2psDict begin
-$F2psDict /mtrx matrix put
-/col-1 {0 setgray} bind def
-/col0 {0.000 0.000 0.000 srgb} bind def
-/col1 {0.000 0.000 1.000 srgb} bind def
-/col2 {0.000 1.000 0.000 srgb} bind def
-/col3 {0.000 1.000 1.000 srgb} bind def
-/col4 {1.000 0.000 0.000 srgb} bind def
-/col5 {1.000 0.000 1.000 srgb} bind def
-/col6 {1.000 1.000 0.000 srgb} bind def
-/col7 {1.000 1.000 1.000 srgb} bind def
-/col8 {0.000 0.000 0.560 srgb} bind def
-/col9 {0.000 0.000 0.690 srgb} bind def
-/col10 {0.000 0.000 0.820 srgb} bind def
-/col11 {0.530 0.810 1.000 srgb} bind def
-/col12 {0.000 0.560 0.000 srgb} bind def
-/col13 {0.000 0.690 0.000 srgb} bind def
-/col14 {0.000 0.820 0.000 srgb} bind def
-/col15 {0.000 0.560 0.560 srgb} bind def
-/col16 {0.000 0.690 0.690 srgb} bind def
-/col17 {0.000 0.820 0.820 srgb} bind def
-/col18 {0.560 0.000 0.000 srgb} bind def
-/col19 {0.690 0.000 0.000 srgb} bind def
-/col20 {0.820 0.000 0.000 srgb} bind def
-/col21 {0.560 0.000 0.560 srgb} bind def
-/col22 {0.690 0.000 0.690 srgb} bind def
-/col23 {0.820 0.000 0.820 srgb} bind def
-/col24 {0.500 0.190 0.000 srgb} bind def
-/col25 {0.630 0.250 0.000 srgb} bind def
-/col26 {0.750 0.380 0.000 srgb} bind def
-/col27 {1.000 0.500 0.500 srgb} bind def
-/col28 {1.000 0.630 0.630 srgb} bind def
-/col29 {1.000 0.750 0.750 srgb} bind def
-/col30 {1.000 0.880 0.880 srgb} bind def
-/col31 {1.000 0.840 0.000 srgb} bind def
-
-end
-save
--78.0 205.0 translate
-1 -1 scale
-
-/cp {closepath} bind def
-/ef {eofill} bind def
-/gr {grestore} bind def
-/gs {gsave} bind def
-/sa {save} bind def
-/rs {restore} bind def
-/l {lineto} bind def
-/m {moveto} bind def
-/rm {rmoveto} bind def
-/n {newpath} bind def
-/s {stroke} bind def
-/sh {show} bind def
-/slc {setlinecap} bind def
-/slj {setlinejoin} bind def
-/slw {setlinewidth} bind def
-/srgb {setrgbcolor} bind def
-/rot {rotate} bind def
-/sc {scale} bind def
-/sd {setdash} bind def
-/ff {findfont} bind def
-/sf {setfont} bind def
-/scf {scalefont} bind def
-/sw {stringwidth} bind def
-/tr {translate} bind def
-/tnt {dup dup currentrgbcolor
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
-  bind def
-/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
-  4 -2 roll mul srgb} bind def
- /DrawEllipse {
-       /endangle exch def
-       /startangle exch def
-       /yrad exch def
-       /xrad exch def
-       /y exch def
-       /x exch def
-       /savematrix mtrx currentmatrix def
-       x y tr xrad yrad sc 0 0 1 startangle endangle arc
-       closepath
-       savematrix setmatrix
-       } def
-
-/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
-/$F2psEnd {$F2psEnteredState restore end} def
-%%EndProlog
-
-$F2psBegin
-10 setmiterlimit
-n -1000 5062 m -1000 -1000 l 10237 -1000 l 10237 5062 l cp clip
- 0.05039 0.05039 sc
-7.500 slw
-% Ellipse
-n 2700 2700 229 229 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Ellipse
-n 2250 3600 229 229 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Ellipse
-n 3150 3600 229 229 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Polyline
-gs  clippath
-2322 3272 m 2235 3360 l 2271 3242 l 2202 3358 l 2253 3388 l cp
-clip
-n 2535 2857 m 2235 3360 l gs col0 s gr gr
-
-% arrowhead
-n 2322 3272 m 2235 3360 l 2271 3242 l 2296 3257 l 2322 3272 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-2978 3298 m 3000 3420 l 2924 3323 l 2979 3446 l 3034 3421 l cp
-clip
-n 2782 2932 m 3000 3420 l gs col0 s gr gr
-
-% arrowhead
-n 2978 3298 m 3000 3420 l 2924 3323 l 2951 3310 l 2978 3298 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-2500 2998 m 2587 2910 l 2552 3029 l 2620 2912 l 2569 2882 l cp
-clip
-n 2317 3367 m 2587 2910 l gs col0 s gr gr
-
-% arrowhead
-n 2500 2998 m 2587 2910 l 2552 3029 l 2526 3013 l 2500 2998 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-2864 3009 m 2842 2887 l 2918 2984 l 2863 2861 l 2808 2886 l cp
-clip
-n 3060 3375 m 2842 2887 l gs col0 s gr gr
-
-% arrowhead
-n 2864 3009 m 2842 2887 l 2918 2984 l 2891 2997 l 2864 3009 l  cp gs col7 1.00 shd ef gr  col0 s
-% Ellipse
-n 2700 1800 229 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 2025 2700 229 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 3375 2700 229 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 6345 1800 229 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 5670 2700 229 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 7020 2700 229 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 8325 1800 229 229 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Ellipse
-n 7875 2700 229 229 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Ellipse
-n 8775 2700 229 229 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Polyline
-gs  clippath
-2707 2152 m 2737 2032 l 2767 2152 l 2767 2017 l 2707 2017 l cp
-clip
-n 2737 2460 m 2737 2032 l gs col0 s gr gr
-
-% arrowhead
-n 2707 2152 m 2737 2032 l 2767 2152 l 2737 2152 l 2707 2152 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-2692 2347 m 2662 2467 l 2632 2347 l 2632 2482 l 2692 2482 l cp
-clip
-n 2662 2032 m 2662 2467 l gs col0 s gr gr
-
-% arrowhead
-n 2692 2347 m 2662 2467 l 2632 2347 l 2662 2347 l 2692 2347 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-1 slj
-60.000 slw
-n 4050 2610 m 4725 2610 l gs col0 s gr 
-% Polyline
-n 4050 2745 m 4725 2745 l gs col0 s gr 
-% Polyline
-1 slc
-n 4500 2385 m 4950 2655 l 4500 2970 l gs col0 s gr 
-% Polyline
-0 slj
-0 slc
-7.500 slw
-gs  clippath
-2125 2394 m 2025 2467 l 2078 2355 l 1992 2459 l 2039 2498 l cp
-clip
-n 2490 1905 m 2025 2467 l gs col0 s gr gr
-
-% arrowhead
-n 2125 2394 m 2025 2467 l 2078 2355 l 2101 2375 l 2125 2394 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-3158 2426 m 3202 2542 l 3109 2461 l 3186 2571 l 3235 2537 l cp
-clip
-n 2827 2002 m 3202 2542 l gs col0 s gr gr
-
-% arrowhead
-n 3158 2426 m 3202 2542 l 3109 2461 l 3134 2443 l 3158 2426 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-2436 2039 m 2535 1965 l 2482 2077 l 2568 1972 l 2521 1934 l cp
-clip
-n 2115 2475 m 2535 1965 l gs col0 s gr gr
-
-% arrowhead
-n 2436 2039 m 2535 1965 l 2482 2077 l 2459 2058 l 2436 2039 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-2916 2073 m 2872 1957 l 2965 2038 l 2888 1928 l 2839 1962 l cp
-clip
-n 3255 2505 m 2872 1957 l gs col0 s gr gr
-
-% arrowhead
-n 2916 2073 m 2872 1957 l 2965 2038 l 2941 2055 l 2916 2073 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-5770 2394 m 5670 2467 l 5723 2355 l 5637 2459 l 5684 2498 l cp
-clip
-n 6135 1905 m 5670 2467 l gs col0 s gr gr
-
-% arrowhead
-n 5770 2394 m 5670 2467 l 5723 2355 l 5746 2375 l 5770 2394 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-6803 2426 m 6847 2542 l 6754 2461 l 6831 2571 l 6880 2537 l cp
-clip
-n 6472 2002 m 6847 2542 l gs col0 s gr gr
-
-% arrowhead
-n 6803 2426 m 6847 2542 l 6754 2461 l 6779 2443 l 6803 2426 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-6081 2039 m 6180 1965 l 6127 2077 l 6213 1972 l 6166 1934 l cp
-clip
-n 5760 2475 m 6180 1965 l gs col0 s gr gr
-
-% arrowhead
-n 6081 2039 m 6180 1965 l 6127 2077 l 6104 2058 l 6081 2039 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-6561 2073 m 6517 1957 l 6610 2038 l 6533 1928 l 6484 1962 l cp
-clip
-n 6900 2505 m 6517 1957 l gs col0 s gr gr
-
-% arrowhead
-n 6561 2073 m 6517 1957 l 6610 2038 l 6586 2055 l 6561 2073 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-7947 2372 m 7860 2460 l 7896 2342 l 7827 2458 l 7878 2488 l cp
-clip
-n 8160 1957 m 7860 2460 l gs col0 s gr gr
-
-% arrowhead
-n 7947 2372 m 7860 2460 l 7896 2342 l 7921 2357 l 7947 2372 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-8603 2398 m 8625 2520 l 8549 2423 l 8604 2546 l 8659 2521 l cp
-clip
-n 8407 2032 m 8625 2520 l gs col0 s gr gr
-
-% arrowhead
-n 8603 2398 m 8625 2520 l 8549 2423 l 8576 2410 l 8603 2398 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-8125 2098 m 8212 2010 l 8177 2129 l 8245 2012 l 8194 1982 l cp
-clip
-n 7942 2467 m 8212 2010 l gs col0 s gr gr
-
-% arrowhead
-n 8125 2098 m 8212 2010 l 8177 2129 l 8151 2113 l 8125 2098 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-8489 2109 m 8467 1987 l 8543 2084 l 8488 1961 l 8433 1986 l cp
-clip
-n 8685 2475 m 8467 1987 l gs col0 s gr gr
-
-% arrowhead
-n 8489 2109 m 8467 1987 l 8543 2084 l 8516 2097 l 8489 2109 l  cp gs col7 1.00 shd ef gr  col0 s
-/Courier ff 180.00 scf sf
-3960 2250 m
-gs 1 -1 sc (x # delete) col0 sh gr
-% Polyline
-1 slj
-1 slc
-45.000 slw
-n 2595 2362 m 2820 2137 l gs col0 s gr 
-% Polyline
-n 2595 2137 m 2820 2362 l gs col0 s gr 
-% Polyline
-0 slj
-0 slc
-7.500 slw
-n 1575 1350 m 9225 1350 l 9225 4050 l 1575 4050 l cp gs col0 s gr 
-/Courier-Bold ff 180.00 scf sf
-2640 2752 m
-gs 1 -1 sc (x) col0 sh gr
-/Courier-Bold ff 180.00 scf sf
-8280 1845 m
-gs 1 -1 sc (x) col0 sh gr
-/Courier-Bold ff 180.00 scf sf
-2655 1845 m
-gs 1 -1 sc (y) col0 sh gr
-/Courier-Bold ff 180.00 scf sf
-6300 1845 m
-gs 1 -1 sc (y) col0 sh gr
-$F2psEnd
-rs
-
-%%EndDocument
- @endspecial 396 1912 a
- currentpoint currentpoint translate 1 1 div 1 1 div scale neg exch
-neg exch translate
- 396 1912 a 357 x Fv(It)g(is)h(also)e(possible)h
-(to)f(mak)o(e)h(a)g(clone)e(of)i(a)g(subtree;)f(illustrated)g(in)h
-Fr(The)f(clone)g(of)h(a)f(subtr)m(ee)p Fv(.)h(In)f(this)h(case,)g(the)f
-(clone)396 2377 y(is)i(a)g(cop)o(y)e(of)h(the)g(original)f(subtree)h(e)
-o(xcept)f(that)h(it)h(is)h(no)d(longer)g(a)i(subnode.)d(Because)i
-(cloning)f(ne)n(v)o(er)g(k)o(eeps)h(the)396 2485 y(connection)e(to)j
-(the)f(parent,)f(the)h(clones)g(are)g(called)g Fr(orphaned)r
-Fv(.)396 2717 y Fu(Figur)o(e)g(3-5.)f(The)i(clone)f(of)g(a)g(subtr)o
-(ee)396 4050 y
- currentpoint currentpoint translate 1 1 scale neg exch neg exch translate
- 396 4050 a @beginspecial 0 @llx 0 @lly
-388 @urx 138 @ury 3880 @rwi @setspecial
-%%BeginDocument: pic/node_clone.ps
-%!PS-Adobe-2.0 EPSF-2.0
-%%Title: src/pic/node_clone.fig
-%%Creator: fig2dev Version 3.2 Patchlevel 1
-%%CreationDate: Sun Aug 27 02:05:42 2000
-%%For: gerd@ice (Gerd Stolpmann)
-%%Orientation: Portrait
-%%BoundingBox: 0 0 388 138
-%%Pages: 0
-%%BeginSetup
-%%EndSetup
-%%Magnification: 0.8000
-%%EndComments
-/$F2psDict 200 dict def
-$F2psDict begin
-$F2psDict /mtrx matrix put
-/col-1 {0 setgray} bind def
-/col0 {0.000 0.000 0.000 srgb} bind def
-/col1 {0.000 0.000 1.000 srgb} bind def
-/col2 {0.000 1.000 0.000 srgb} bind def
-/col3 {0.000 1.000 1.000 srgb} bind def
-/col4 {1.000 0.000 0.000 srgb} bind def
-/col5 {1.000 0.000 1.000 srgb} bind def
-/col6 {1.000 1.000 0.000 srgb} bind def
-/col7 {1.000 1.000 1.000 srgb} bind def
-/col8 {0.000 0.000 0.560 srgb} bind def
-/col9 {0.000 0.000 0.690 srgb} bind def
-/col10 {0.000 0.000 0.820 srgb} bind def
-/col11 {0.530 0.810 1.000 srgb} bind def
-/col12 {0.000 0.560 0.000 srgb} bind def
-/col13 {0.000 0.690 0.000 srgb} bind def
-/col14 {0.000 0.820 0.000 srgb} bind def
-/col15 {0.000 0.560 0.560 srgb} bind def
-/col16 {0.000 0.690 0.690 srgb} bind def
-/col17 {0.000 0.820 0.820 srgb} bind def
-/col18 {0.560 0.000 0.000 srgb} bind def
-/col19 {0.690 0.000 0.000 srgb} bind def
-/col20 {0.820 0.000 0.000 srgb} bind def
-/col21 {0.560 0.000 0.560 srgb} bind def
-/col22 {0.690 0.000 0.690 srgb} bind def
-/col23 {0.820 0.000 0.820 srgb} bind def
-/col24 {0.500 0.190 0.000 srgb} bind def
-/col25 {0.630 0.250 0.000 srgb} bind def
-/col26 {0.750 0.380 0.000 srgb} bind def
-/col27 {1.000 0.500 0.500 srgb} bind def
-/col28 {1.000 0.630 0.630 srgb} bind def
-/col29 {1.000 0.750 0.750 srgb} bind def
-/col30 {1.000 0.880 0.880 srgb} bind def
-/col31 {1.000 0.840 0.000 srgb} bind def
-
-end
-save
--78.0 205.0 translate
-1 -1 scale
-
-/cp {closepath} bind def
-/ef {eofill} bind def
-/gr {grestore} bind def
-/gs {gsave} bind def
-/sa {save} bind def
-/rs {restore} bind def
-/l {lineto} bind def
-/m {moveto} bind def
-/rm {rmoveto} bind def
-/n {newpath} bind def
-/s {stroke} bind def
-/sh {show} bind def
-/slc {setlinecap} bind def
-/slj {setlinejoin} bind def
-/slw {setlinewidth} bind def
-/srgb {setrgbcolor} bind def
-/rot {rotate} bind def
-/sc {scale} bind def
-/sd {setdash} bind def
-/ff {findfont} bind def
-/sf {setfont} bind def
-/scf {scalefont} bind def
-/sw {stringwidth} bind def
-/tr {translate} bind def
-/tnt {dup dup currentrgbcolor
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
-  bind def
-/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
-  4 -2 roll mul srgb} bind def
- /DrawEllipse {
-       /endangle exch def
-       /startangle exch def
-       /yrad exch def
-       /xrad exch def
-       /y exch def
-       /x exch def
-       /savematrix mtrx currentmatrix def
-       x y tr xrad yrad sc 0 0 1 startangle endangle arc
-       closepath
-       savematrix setmatrix
-       } def
-
-/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
-/$F2psEnd {$F2psEnteredState restore end} def
-%%EndProlog
-
-$F2psBegin
-10 setmiterlimit
-n -1000 5062 m -1000 -1000 l 10237 -1000 l 10237 5062 l cp clip
- 0.05039 0.05039 sc
-7.500 slw
-% Ellipse
-n 2700 1800 229 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 2025 2700 229 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 3375 2700 229 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 6345 1800 229 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 5670 2700 229 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 7020 2700 229 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 8325 1800 229 229 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Ellipse
-n 7875 2700 229 229 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Ellipse
-n 8775 2700 229 229 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Ellipse
-n 6345 2700 229 229 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Ellipse
-n 5895 3600 229 229 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Ellipse
-n 6795 3600 229 229 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Ellipse
-n 2700 2700 229 229 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Ellipse
-n 2250 3600 229 229 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Ellipse
-n 3150 3600 229 229 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Polyline
-1 slj
-60.000 slw
-n 4050 2610 m 4725 2610 l gs col0 s gr 
-% Polyline
-n 4050 2745 m 4725 2745 l gs col0 s gr 
-% Polyline
-1 slc
-n 4500 2385 m 4950 2655 l 4500 2970 l gs col0 s gr 
-% Polyline
-0 slj
-0 slc
-7.500 slw
-gs  clippath
-2125 2394 m 2025 2467 l 2078 2355 l 1992 2459 l 2039 2498 l cp
-clip
-n 2490 1905 m 2025 2467 l gs col0 s gr gr
-
-% arrowhead
-n 2125 2394 m 2025 2467 l 2078 2355 l 2101 2375 l 2125 2394 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-3158 2426 m 3202 2542 l 3109 2461 l 3186 2571 l 3235 2537 l cp
-clip
-n 2827 2002 m 3202 2542 l gs col0 s gr gr
-
-% arrowhead
-n 3158 2426 m 3202 2542 l 3109 2461 l 3134 2443 l 3158 2426 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-2436 2039 m 2535 1965 l 2482 2077 l 2568 1972 l 2521 1934 l cp
-clip
-n 2115 2475 m 2535 1965 l gs col0 s gr gr
-
-% arrowhead
-n 2436 2039 m 2535 1965 l 2482 2077 l 2459 2058 l 2436 2039 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-2916 2073 m 2872 1957 l 2965 2038 l 2888 1928 l 2839 1962 l cp
-clip
-n 3255 2505 m 2872 1957 l gs col0 s gr gr
-
-% arrowhead
-n 2916 2073 m 2872 1957 l 2965 2038 l 2941 2055 l 2916 2073 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-5770 2394 m 5670 2467 l 5723 2355 l 5637 2459 l 5684 2498 l cp
-clip
-n 6135 1905 m 5670 2467 l gs col0 s gr gr
-
-% arrowhead
-n 5770 2394 m 5670 2467 l 5723 2355 l 5746 2375 l 5770 2394 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-6803 2426 m 6847 2542 l 6754 2461 l 6831 2571 l 6880 2537 l cp
-clip
-n 6472 2002 m 6847 2542 l gs col0 s gr gr
-
-% arrowhead
-n 6803 2426 m 6847 2542 l 6754 2461 l 6779 2443 l 6803 2426 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-6081 2039 m 6180 1965 l 6127 2077 l 6213 1972 l 6166 1934 l cp
-clip
-n 5760 2475 m 6180 1965 l gs col0 s gr gr
-
-% arrowhead
-n 6081 2039 m 6180 1965 l 6127 2077 l 6104 2058 l 6081 2039 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-6561 2073 m 6517 1957 l 6610 2038 l 6533 1928 l 6484 1962 l cp
-clip
-n 6900 2505 m 6517 1957 l gs col0 s gr gr
-
-% arrowhead
-n 6561 2073 m 6517 1957 l 6610 2038 l 6586 2055 l 6561 2073 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-7947 2372 m 7860 2460 l 7896 2342 l 7827 2458 l 7878 2488 l cp
-clip
-n 8160 1957 m 7860 2460 l gs col0 s gr gr
-
-% arrowhead
-n 7947 2372 m 7860 2460 l 7896 2342 l 7921 2357 l 7947 2372 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-8603 2398 m 8625 2520 l 8549 2423 l 8604 2546 l 8659 2521 l cp
-clip
-n 8407 2032 m 8625 2520 l gs col0 s gr gr
-
-% arrowhead
-n 8603 2398 m 8625 2520 l 8549 2423 l 8576 2410 l 8603 2398 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-8125 2098 m 8212 2010 l 8177 2129 l 8245 2012 l 8194 1982 l cp
-clip
-n 7942 2467 m 8212 2010 l gs col0 s gr gr
-
-% arrowhead
-n 8125 2098 m 8212 2010 l 8177 2129 l 8151 2113 l 8125 2098 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-8489 2109 m 8467 1987 l 8543 2084 l 8488 1961 l 8433 1986 l cp
-clip
-n 8685 2475 m 8467 1987 l gs col0 s gr gr
-
-% arrowhead
-n 8489 2109 m 8467 1987 l 8543 2084 l 8516 2097 l 8489 2109 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-6352 2152 m 6382 2032 l 6412 2152 l 6412 2017 l 6352 2017 l cp
-clip
-n 6382 2460 m 6382 2032 l gs col0 s gr gr
-
-% arrowhead
-n 6352 2152 m 6382 2032 l 6412 2152 l 6382 2152 l 6352 2152 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-6337 2347 m 6307 2467 l 6277 2347 l 6277 2482 l 6337 2482 l cp
-clip
-n 6307 2032 m 6307 2467 l gs col0 s gr gr
-
-% arrowhead
-n 6337 2347 m 6307 2467 l 6277 2347 l 6307 2347 l 6337 2347 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-5967 3272 m 5880 3360 l 5916 3242 l 5847 3358 l 5898 3388 l cp
-clip
-n 6180 2857 m 5880 3360 l gs col0 s gr gr
-
-% arrowhead
-n 5967 3272 m 5880 3360 l 5916 3242 l 5941 3257 l 5967 3272 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-6623 3298 m 6645 3420 l 6569 3323 l 6624 3446 l 6679 3421 l cp
-clip
-n 6427 2932 m 6645 3420 l gs col0 s gr gr
-
-% arrowhead
-n 6623 3298 m 6645 3420 l 6569 3323 l 6596 3310 l 6623 3298 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-6145 2998 m 6232 2910 l 6197 3029 l 6265 2912 l 6214 2882 l cp
-clip
-n 5962 3367 m 6232 2910 l gs col0 s gr gr
-
-% arrowhead
-n 6145 2998 m 6232 2910 l 6197 3029 l 6171 3013 l 6145 2998 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-6509 3009 m 6487 2887 l 6563 2984 l 6508 2861 l 6453 2886 l cp
-clip
-n 6705 3375 m 6487 2887 l gs col0 s gr gr
-
-% arrowhead
-n 6509 3009 m 6487 2887 l 6563 2984 l 6536 2997 l 6509 3009 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-2707 2152 m 2737 2032 l 2767 2152 l 2767 2017 l 2707 2017 l cp
-clip
-n 2737 2460 m 2737 2032 l gs col0 s gr gr
-
-% arrowhead
-n 2707 2152 m 2737 2032 l 2767 2152 l 2737 2152 l 2707 2152 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-2692 2347 m 2662 2467 l 2632 2347 l 2632 2482 l 2692 2482 l cp
-clip
-n 2662 2032 m 2662 2467 l gs col0 s gr gr
-
-% arrowhead
-n 2692 2347 m 2662 2467 l 2632 2347 l 2662 2347 l 2692 2347 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-2322 3272 m 2235 3360 l 2271 3242 l 2202 3358 l 2253 3388 l cp
-clip
-n 2535 2857 m 2235 3360 l gs col0 s gr gr
-
-% arrowhead
-n 2322 3272 m 2235 3360 l 2271 3242 l 2296 3257 l 2322 3272 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-2978 3298 m 3000 3420 l 2924 3323 l 2979 3446 l 3034 3421 l cp
-clip
-n 2782 2932 m 3000 3420 l gs col0 s gr gr
-
-% arrowhead
-n 2978 3298 m 3000 3420 l 2924 3323 l 2951 3310 l 2978 3298 l  cp gs 0.00 setgray ef gr  col0 s
-% Polyline
-gs  clippath
-2500 2998 m 2587 2910 l 2552 3029 l 2620 2912 l 2569 2882 l cp
-clip
-n 2317 3367 m 2587 2910 l gs col0 s gr gr
-
-% arrowhead
-n 2500 2998 m 2587 2910 l 2552 3029 l 2526 3013 l 2500 2998 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-gs  clippath
-2864 3009 m 2842 2887 l 2918 2984 l 2863 2861 l 2808 2886 l cp
-clip
-n 3060 3375 m 2842 2887 l gs col0 s gr gr
-
-% arrowhead
-n 2864 3009 m 2842 2887 l 2918 2984 l 2891 2997 l 2864 3009 l  cp gs col7 1.00 shd ef gr  col0 s
-% Polyline
-n 1575 1350 m 9225 1350 l 9225 4050 l 1575 4050 l cp gs col0 s gr 
-/Courier-Bold ff 180.00 scf sf
-2655 1845 m
-gs 1 -1 sc (y) col0 sh gr
-/Courier-Bold ff 180.00 scf sf
-6300 1845 m
-gs 1 -1 sc (y) col0 sh gr
-/Courier-Bold ff 180.00 scf sf
-6285 2752 m
-gs 1 -1 sc (x) col0 sh gr
-/Courier-Bold ff 180.00 scf sf
-2640 2752 m
-gs 1 -1 sc (x) col0 sh gr
-/Courier ff 180.00 scf sf
-3690 2025 m
-gs 1 -1 sc (let x' =) col0 sh gr
-/Courier ff 180.00 scf sf
-3690 2205 m
-gs 1 -1 sc (x # orphaned_clone) col0 sh gr
-/Courier-Bold ff 180.00 scf sf
-8235 1845 m
-gs 1 -1 sc (x') col0 sh gr
-$F2psEnd
-rs
-
-%%EndDocument
- @endspecial 396 4050 a
- currentpoint currentpoint translate 1 1 div 1 1 div scale neg exch
-neg exch translate
- 396 4050 a -2 4627 a Fp(3.2.2.)35
-b(The)f(methods)g(of)f(the)h(c)n(lass)h(type)f Fc(node)p
-Black 3800 5278 a Fr(52)p Black eop
-%%Page: 53 53
-53 52 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 396 579 a Fu(General)g(obser)o(v)o
-(ers)g(.)p Black 396 866 a Ft(\225)p Black 60 w Fq(extension)p
-Fv(:)g(The)f(reference)g(to)h(the)h(e)o(xtension)d(object)i(which)g
-(belongs)f(to)h(this)h(node)e(\(see)h(...\).)p Black
-396 974 a Ft(\225)p Black 60 w Fq(dtd)p Fv(:)h(Returns)f(a)g(reference)
-f(to)h(the)g(global)g(DTD.)g(All)h(nodes)e(of)h(a)h(tree)f(must)g
-(share)g(the)g(same)h(DTD.)p Black 396 1082 a Ft(\225)p
-Black 60 w Fq(parent)p Fv(:)f(Get)h(the)f(f)o(ather)f(node.)g(Raises)j
-Fq(Not_found)d Fv(in)i(the)f(case)g(the)h(node)e(does)h(not)f(ha)n(v)o
-(e)h(a)h(parent,)e(i.e.)h(the)479 1190 y(node)f(is)j(the)e(root.)p
-Black 396 1298 a Ft(\225)p Black 60 w Fq(root)p Fv(:)g(Gets)h(the)g
-(reference)d(to)i(the)h(root)e(node)g(of)h(the)g(tree.)g(Ev)o(ery)f
-(node)g(is)i(contained)e(in)h(a)h(tree)f(with)h(a)f(root,)f(so)479
-1406 y(this)h(method)f(al)o(w)o(ays)h(succeeds.)e(Note)i(that)g(this)g
-(method)e Fr(sear)m(c)o(hes)h Fv(the)h(root,)e(which)h(costs)h(time)g
-(proportional)d(to)479 1514 y(the)j(length)g(of)g(the)g(path)g(to)g
-(the)g(root.)p Black 396 1622 a Ft(\225)p Black 60 w
-Fq(sub_nodes)p Fv(:)g(Returns)g(references)e(to)j(the)f(children.)f
-(The)g(returned)g(list)i(re\003ects)g(the)f(order)f(of)h(the)g
-(children.)e(F)o(or)479 1730 y(data)i(nodes,)g(this)g(method)f(returns)
-g(the)i(empty)e(list.)p Black 396 1838 a Ft(\225)p Black
-60 w Fq(iter_nodes)43 b(f)p Fv(:)21 b(Iterates)f(o)o(v)o(er)f(the)h
-(children,)f(and)g(calls)i Fq(f)g Fv(for)e(e)n(v)o(ery)g(child)h(in)g
-(turn.)p Black 396 1945 a Ft(\225)p Black 60 w Fq(iter_nodes_sibl)43
-b(f)p Fv(:)20 b(Iterates)g(o)o(v)o(er)f(the)h(children,)f(and)h(calls)g
-Fq(f)h Fv(for)f(e)n(v)o(ery)e(child)i(in)h(turn.)e Fq(f)h
-Fv(gets)h(as)479 2053 y(ar)o(guments)d(the)j(pre)n(vious)d(node,)h(the)
-h(current)f(node,)g(and)h(the)g(ne)o(xt)f(node.)p Black
-396 2161 a Ft(\225)p Black 60 w Fq(node_type)p Fv(:)h(Returns)g(either)
-f Fq(T_data)h Fv(which)g(means)g(that)g(the)g(node)f(is)i(a)g(data)f
-(node,)f(or)h Fq(T_element)43 b(n)479 2269 y Fv(which)20
-b(means)g(that)g(the)g(node)f(is)j(an)e(element)f(of)h(type)g
-Fq(n)p Fv(.)g(If)g(con\002gured,)e(possible)i(node)f(types)h(are)g
-(also)479 2377 y Fq(T_pinstr)44 b(t)20 b Fv(indicating)f(that)h(the)h
-(node)e(represents)g(a)i(processing)e(instruction)g(with)h(tar)o(get)f
-Fq(t)p Fv(,)i(and)479 2485 y Fq(T_comment)f Fv(in)g(which)g(case)g(the)
-g(node)g(is)h(a)f(comment.)p Black 396 2593 a Ft(\225)p
-Black 60 w Fq(encoding)p Fv(:)g(Returns)g(the)g(encoding)e(of)i(the)g
-(strings.)p Black 396 2701 a Ft(\225)p Black 60 w Fq(data)p
-Fv(:)g(Returns)g(the)h(character)e(data)h(of)g(this)g(node)f(and)h(all)
-h(children,)d(concatenated)h(as)i(one)e(string.)h(The)479
-2809 y(encoding)e(of)i(the)h(string)e(is)j(what)e(the)g(method)f
-Fq(encoding)g Fv(returns.)g(-)i(F)o(or)e(data)h(nodes,)g(this)g(method)
-f(simply)479 2917 y(returns)h(the)g(represented)e(characters.)h(F)o(or)
-h(elements,)g(the)g(meaning)f(of)g(the)i(method)d(has)j(been)e(e)o
-(xtended)g(such)479 3025 y(that)i(it)f(returns)g(something)e(useful,)i
-(i.e.)g(the)g(ef)n(fecti)n(v)o(ely)f(contained)f(characters,)h(without)
-h(markup.)e(\(F)o(or)479 3133 y Fq(T_pinstr)i Fv(and)f
-Fq(T_comment)h Fv(nodes,)f(the)h(method)f(returns)g(the)h(empty)g
-(string.\))p Black 396 3241 a Ft(\225)p Black 60 w Fq(position)p
-Fv(:)g(If)g(con\002gured,)d(this)k(method)e(returns)g(the)h(position)g
-(of)g(the)g(element)g(as)g(triple)g(\(entity)-5 b(,)19
-b(line,)479 3349 y(byteposition\).)f(F)o(or)i(data)g(nodes,)f(the)h
-(position)g(is)h(not)f(stored.)f(If)h(the)g(position)g(is)h(not)f(a)n
-(v)n(ailable)f(the)i(triple)f Fq("?",)479 3456 y(0,)45
-b(0)20 b Fv(is)h(returned.)p Black 396 3564 a Ft(\225)p
-Black 60 w Fq(comment)p Fv(:)f(Returns)g Fq(Some)44 b(text)20
-b Fv(for)f(comment)g(nodes,)g(and)g Fq(None)h Fv(for)g(other)f(nodes.)g
-(The)h Fq(text)f Fv(is)i(e)n(v)o(erything)479 3672 y(between)f(the)g
-(comment)f(delimiters)g Fo(<)p Fq(-)i Fv(and)e Fq(-)p
-Fo(>)p Fv(.)p Black 396 3780 a Ft(\225)p Black 60 w Fq(pinstr)44
-b(n)p Fv(:)21 b(Returns)f(all)h(processing)d(instructions)i(that)g(are)
-g(directly)f(contained)g(in)h(this)h(element)e(and)h(that)g(ha)n(v)o(e)
-479 3888 y(a)h Fr(tar)m(g)o(et)h Fv(speci\002cation)d(of)h
-Fq(n)p Fv(.)g(The)g(tar)o(get)f(is)j(the)e(\002rst)h(w)o(ord)e(after)h
-(the)g Fo(<)p Fq(?)p Fv(.)p Black 396 3996 a Ft(\225)p
-Black 60 w Fq(pinstr_names)p Fv(:)f(Returns)h(the)g(list)i(of)e(all)g
-(tar)o(gets)g(of)g(processing)f(instructions)g(directly)g(contained)g
-(in)h(this)479 4104 y(element.)p Black 396 4212 a Ft(\225)p
-Black 60 w Fq(write)44 b(s)h(enc)p Fv(:)20 b(Prints)h(the)f(node)f(and)
-h(all)h(subnodes)d(to)j(the)f(passed)g(output)f(stream)h(as)h(v)n(alid)
-f(XML)g(te)o(xt,)g(using)479 4320 y(the)g(passed)h(e)o(xternal)e
-(encoding.)396 4511 y Fu(Attrib)n(ute)h(obser)o(v)o(ers)h(.)p
-Black 396 4743 a Ft(\225)p Black 60 w Fq(attribute)44
-b(n)p Fv(:)20 b(Returns)g(the)h(v)n(alue)e(of)h(the)g(attrib)n(ute)g
-(with)g(name)g Fq(n)p Fv(.)g(This)h(method)d(returns)i(a)g(v)n(alue)g
-(for)f(e)n(v)o(ery)479 4851 y(declared)g(attrib)n(ute,)h(and)f(it)i
-(raises)g Fq(Not_found)e Fv(for)h(an)o(y)f(undeclared)f(attrib)n(ute.)i
-(Note)g(that)g(it)h(e)n(v)o(en)e(returns)h(a)p Black
-3800 5278 a Fr(53)p Black eop
-%%Page: 54 54
-54 53 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 479 579 a Fv(v)n(alue)g(if)g(the)g
-(attrib)n(ute)g(is)h(actually)f(missing)g(b)n(ut)g(is)h(declared)e(as)i
-Fq(#IMPLIED)f Fv(or)g(has)g(a)h(def)o(ault)e(v)n(alue.)g(-)i(Possible)
-479 687 y(v)n(alues)f(are:)p Black 479 919 a Fa(\225)p
-Black 62 w Fq(Implied_value)p Fv(:)f(The)h(attrib)n(ute)g(has)g(been)g
-(declared)e(with)j(the)f(k)o(e)o(yw)o(ord)e Fq(#IMPLIED)p
-Fv(,)i(and)f(the)h(attrib)n(ute)g(is)562 1027 y(missing)g(in)h(the)f
-(attrib)n(ute)g(list)h(of)f(this)h(element.)p Black 479
-1135 a Fa(\225)p Black 62 w Fq(Value)44 b(s)p Fv(:)21
-b(The)f(attrib)n(ute)g(has)g(been)g(declared)e(as)j(type)f
-Fq(CDATA)p Fv(,)g(as)h Fq(ID)p Fv(,)f(as)h Fq(IDREF)p
-Fv(,)e(as)i Fq(ENTITY)p Fv(,)f(or)g(as)562 1243 y Fq(NMTOKEN)p
-Fv(,)g(or)g(as)g(enumeration)e(or)i(notation,)f(and)g(one)h(of)g(the)g
-(tw)o(o)h(conditions)d(holds:)i(\(1\))g(The)g(attrib)n(ute)562
-1351 y(v)n(alue)g(is)h(present)e(in)i(the)f(attrib)n(ute)g(list)h(in)f
-(which)g(case)h(the)f(v)n(alue)f(is)j(returned)c(in)i(the)h(string)e
-Fq(s)p Fv(.)i(\(2\))e(The)562 1459 y(attrib)n(ute)h(has)h(been)e
-(omitted,)g(and)h(the)g(DTD)g(declared)f(the)i(attrib)n(ute)e(with)i(a)
-f(def)o(ault)g(v)n(alue.)f(The)h(def)o(ault)562 1567
-y(v)n(alue)f(is)i(returned)d(in)i Fq(s)p Fv(.)g(-)g(Summarized,)d
-Fq(Value)44 b(s)20 b Fv(is)h(returned)d(for)h(non-implied,)e(non-list)i
-(attrib)n(ute)g(v)n(alues.)p Black 479 1675 a Fa(\225)p
-Black 62 w Fq(Valuelist)44 b(l)p Fv(:)20 b(The)g(attrib)n(ute)g(has)g
-(been)g(declared)f(as)i(type)e Fq(IDREFS)p Fv(,)h(as)h
-Fq(ENTITIES)p Fv(,)e(or)h(as)h Fq(NMTOKENS)p Fv(,)562
-1783 y(and)f(one)g(of)f(the)i(tw)o(o)f(conditions)f(holds:)h(\(1\))f
-(The)h(attrib)n(ute)g(v)n(alue)f(is)i(present)f(in)g(the)h(attrib)n
-(ute)e(list)j(in)e(which)562 1891 y(case)h(the)f(space-separated)e(tok)
-o(ens)i(of)g(the)g(v)n(alue)g(are)g(returned)e(in)j(the)f(string)g
-(list)h Fq(l)p Fv(.)f(\(2\))g(The)g(attrib)n(ute)g(has)562
-1999 y(been)g(omitted,)f(and)h(the)g(DTD)g(declared)f(the)h(attrib)n
-(ute)g(with)h(a)f(def)o(ault)g(v)n(alue.)f(The)h(def)o(ault)f(v)n(alue)
-h(is)h(returned)562 2107 y(in)g Fq(l)p Fv(.)f(-)g(Summarized,)f
-Fq(Valuelist)43 b(l)20 b Fv(is)i(returned)c(for)i(all)g(list-type)g
-(attrib)n(ute)g(v)n(alues.)396 2256 y(Note)g(that)h(before)d(the)j
-(attrib)n(ute)f(v)n(alue)f(is)i(returned,)d(the)i(v)n(alue)g(is)h
-(normalized.)d(This)j(means)e(that)i(ne)n(wlines)e(are)479
-2364 y(con)m(v)o(erted)f(to)i(spaces,)g(and)g(that)g(references)f(to)h
-(character)f(entities)i(\(i.e.)f Fq(&#)p Fn(n)p Fq(;)p
-Fv(\))g(and)f(general)g(entities)i(\(i.e.)479 2472 y
-Fq(&)p Fn(name)p Fq(;)p Fv(\))f(are)g(e)o(xpanded;)e(if)i(necessary)-5
-b(,)19 b(e)o(xpansion)f(is)j(performed)d(recursi)n(v)o(ely)-5
-b(.)479 2621 y(In)20 b(well-formedness)e(mode,)h(there)h(is)h(no)f(DTD)
-g(which)g(could)f(declare)h(an)g(attrib)n(ute.)f(Because)i(of)f(this,)g
-(e)n(v)o(ery)479 2729 y(occuring)f(attrib)n(ute)g(is)i(considered)e(as)
-i(a)f(CD)m(A)-9 b(T)h(A)21 b(attrib)n(ute.)p Black 396
-2879 a Ft(\225)p Black 60 w Fq(required_string_attribute)41
-b(n)p Fv(:)21 b(returns)e(the)h(V)-9 b(alue)20 b(attrib)n(ute)g(called)
-g(n,)g(or)g(the)g(V)-9 b(aluelist)20 b(attrib)n(ute)g(as)h(a)479
-2987 y(string)f(where)g(the)g(list)h(elements)f(are)g(separated)f(by)h
-(spaces.)g(If)h(the)f(attrib)n(ute)g(v)n(alue)f(is)i(implied,)e(or)h
-(if)h(the)479 3094 y(attrib)n(ute)f(does)g(not)g(e)o(xists,)g(the)g
-(method)f(will)i(f)o(ail.)g(-)f(This)g(method)f(is)i(con)m(v)o(enient)d
-(if)i(you)g(e)o(xpect)f(a)h(non-implied)479 3202 y(and)g(non-list)f
-(attrib)n(ute)h(v)n(alue.)p Black 396 3310 a Ft(\225)p
-Black 60 w Fq(optional_string_attribute)41 b(n)p Fv(:)21
-b(returns)e(the)h(V)-9 b(alue)20 b(attrib)n(ute)g(called)g(n,)g(or)g
-(the)g(V)-9 b(aluelist)20 b(attrib)n(ute)g(as)h(a)479
-3418 y(string)f(where)g(the)g(list)h(elements)f(are)g(separated)f(by)h
-(spaces.)g(If)h(the)f(attrib)n(ute)g(v)n(alue)f(is)i(implied,)e(or)h
-(if)h(the)479 3526 y(attrib)n(ute)f(does)g(not)g(e)o(xists,)g(the)g
-(method)f(returns)h(None.)f(-)h(This)h(method)e(is)i(con)m(v)o(enient)c
-(if)k(you)e(e)o(xpect)g(a)i(non-list)479 3634 y(attrib)n(ute)f(v)n
-(alue)g(including)e(the)i(implied)g(v)n(alue.)p Black
-396 3742 a Ft(\225)p Black 60 w Fq(required_list_attribute)41
-b(n)p Fv(:)20 b(returns)f(the)g(V)-9 b(aluelist)20 b(attrib)n(ute)f
-(called)g(n,)g(or)g(the)h(V)-9 b(alue)19 b(attrib)n(ute)g(as)h(a)g
-(list)479 3850 y(with)h(a)f(single)g(element.)g(If)g(the)g(attrib)n
-(ute)g(v)n(alue)f(is)i(implied,)f(or)g(if)g(the)g(attrib)n(ute)g(does)g
-(not)g(e)o(xists,)g(the)g(method)479 3958 y(will)h(f)o(ail.)g(-)f(This)
-g(method)f(is)i(con)m(v)o(enient)d(if)i(you)g(e)o(xpect)f(a)h(list)i
-(attrib)n(ute)d(v)n(alue.)p Black 396 4066 a Ft(\225)p
-Black 60 w Fq(optional_list_attribute)41 b(n)p Fv(:)20
-b(returns)f(the)g(V)-9 b(aluelist)20 b(attrib)n(ute)f(called)g(n,)g(or)
-g(the)h(V)-9 b(alue)19 b(attrib)n(ute)g(as)h(a)g(list)479
-4174 y(with)h(a)f(single)g(element.)g(If)g(the)g(attrib)n(ute)g(v)n
-(alue)f(is)i(implied,)f(or)g(if)g(the)g(attrib)n(ute)g(does)g(not)g(e)o
-(xists,)g(an)g(empty)g(list)479 4282 y(will)h(be)f(returned.)e(-)j
-(This)f(method)f(is)i(con)m(v)o(enient)d(if)i(you)f(e)o(xpect)h(a)g
-(list)i(attrib)n(ute)d(v)n(alue)h(or)g(the)g(implied)f(v)n(alue.)p
-Black 396 4390 a Ft(\225)p Black 60 w Fq(attribute_names)p
-Fv(:)g(returns)g(the)h(list)h(of)f(all)h(attrib)n(ute)f(names)g(of)g
-(this)g(element.)g(As)h(this)f(is)i(a)e(v)n(alidating)479
-4498 y(parser)m(,)f(this)i(list)g(is)g(equal)f(to)g(the)h(list)g(of)f
-(declared)f(attrib)n(utes.)p Black 396 4605 a Ft(\225)p
-Black 60 w Fq(attribute_type)43 b(n)p Fv(:)20 b(returns)g(the)g(type)g
-(of)g(the)g(attrib)n(ute)g(called)g Fq(n)p Fv(.)g(See)h(the)f(module)f
-Fq(Pxp_types)g Fv(for)g(a)479 4713 y(description)g(of)h(the)g(encoding)
-e(of)i(the)g(types.)p Black 396 4821 a Ft(\225)p Black
-60 w Fq(attributes)p Fv(:)f(returns)h(the)g(list)h(of)f(pairs)g(of)g
-(names)g(and)g(v)n(alues)g(for)f(all)i(attrib)n(utes)f(of)g(this)h
-(element.)p Black 3800 5278 a Fr(54)p Black eop
-%%Page: 55 55
-55 54 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black Black 396 579 a Ft(\225)p
-Black 60 w Fq(id_attribute_name)p Fv(:)e(returns)h(the)i(name)e(of)h
-(the)g(attrib)n(ute)g(that)g(is)h(declared)e(with)h(type)g(ID.)g(There)
-f(is)i(at)g(most)479 687 y(one)f(such)g(attrib)n(ute.)f(The)h(method)f
-(raises)i Fq(Not_found)e Fv(if)i(there)e(is)i(no)f(declared)f(ID)i
-(attrib)n(ute)e(for)h(the)g(element)479 795 y(type.)p
-Black 396 903 a Ft(\225)p Black 60 w Fq(id_attribute_value)p
-Fv(:)e(returns)h(the)i(v)n(alue)e(of)h(the)g(attrib)n(ute)g(that)g(is)h
-(declared)e(with)i(type)e(ID.)i(There)e(is)i(at)479 1011
-y(most)g(one)e(such)h(attrib)n(ute.)g(The)g(method)e(raises)j
-Fq(Not_found)e Fv(if)i(there)f(is)h(no)e(declared)g(ID)i(attrib)n(ute)f
-(for)f(the)479 1119 y(element)h(type.)p Black 396 1226
-a Ft(\225)p Black 60 w Fq(idref_attribute_names)p Fv(:)d(returns)h(the)
-h(list)i(of)e(attrib)n(ute)f(names)h(that)h(are)f(declared)f(as)i
-(IDREF)f(or)g(IDREFS.)396 1417 y Fu(Modifying)h(methods)h(.)f
-Fv(The)g(follo)n(wing)f(methods)g(are)h(only)f(de\002ned)g(for)h
-(element)f(nodes)h(\(more)f(e)o(xactly:)g(the)396 1525
-y(methods)g(are)i(de\002ned)e(for)g(data)h(nodes,)f(too,)h(b)n(ut)g(f)o
-(ail)h(al)o(w)o(ays\).)p Black 396 1758 a Ft(\225)p Black
-60 w Fq(add_node)44 b(sn)p Fv(:)20 b(Adds)g(sub)g(node)g
-Fq(sn)g Fv(to)g(the)g(list)i(of)e(children.)e(This)j(operation)d(is)j
-(illustrated)f(in)g(the)g(picture)g Fr(A)479 1866 y(node)f(can)h(only)g
-(be)g(added)f(if)h(it)h(is)h(a)e(r)l(oot)q Fv(.)g(This)h(method)e(e)o
-(xpects)g(that)h Fq(sn)h Fv(is)g(a)g(root,)e(and)g(it)i(requires)f
-(that)g Fq(sn)g Fv(and)479 1974 y(the)g(current)f(object)h(share)g(the)
-g(same)h(DTD.)479 2123 y(Because)g Fq(add_node)e Fv(is)i(the)f(method)f
-(the)h(parser)g(itself)h(uses)g(to)f(add)g(ne)n(w)g(nodes)f(to)h(the)h
-(tree,)e(it)i(performs)e(by)479 2231 y(def)o(ault)h(some)g(simple)g(v)n
-(alidation)f(checks:)g(If)h(the)h(content)e(model)g(is)i(a)g(re)o
-(gular)e(e)o(xpression,)f(it)j(is)g(not)f(allo)n(wed)f(to)479
-2339 y(add)h(data)g(nodes)f(to)i(this)g(node)e(unless)h(the)g(ne)n(w)g
-(nodes)g(consist)g(only)f(of)h(whitespace.)g(In)g(this)g(case,)h(the)f
-(ne)n(w)g(data)479 2447 y(nodes)g(are)g(silently)g(dropped)e(\(you)h
-(can)h(change)f(this)h(by)g(in)m(v)n(oking)e Fq
-(keep_always_whitespace_mode)p Fv(\).)479 2596 y(If)i(the)h(document)d
-(is)j(\003agged)e(as)i(stand-alone,)d(these)j(data)f(nodes)f(only)g
-(containing)g(whitespace)g(are)h(e)n(v)o(en)479 2704
-y(forbidden)e(if)i(the)h(element)e(declaration)g(is)i(contained)d(in)j
-(an)f(e)o(xternal)f(entity)-5 b(.)19 b(This)h(case)h(is)g(detected)f
-(and)479 2812 y(rejected.)479 2962 y(If)g(the)h(content)e(model)g(is)i
-Fq(EMPTY)p Fv(,)f(it)h(is)g(not)f(allo)n(wed)f(to)i(add)e(an)o(y)h
-(data)g(node)f(unless)h(the)g(data)g(node)g(is)h(empty)-5
-b(.)18 b(In)479 3070 y(this)j(case,)f(the)h(ne)n(w)f(data)g(node)f(is)i
-(silently)f(dropped.)479 3219 y(These)g(checks)g(only)f(apply)h(if)g
-(there)g(is)h(a)f(DTD.)h(In)f(well-formedness)e(mode,)h(it)i(is)g
-(assumed)e(that)i(e)n(v)o(ery)d(element)479 3327 y(is)j(declared)e
-(with)i(content)e(model)g Fq(ANY)h Fv(which)g(prohibits)f(an)o(y)g(v)n
-(alidation)g(check.)g(Furthermore,)f(you)h(turn)h(these)479
-3435 y(checks)g(of)n(f)f(by)h(passing)g Fq(~force:true)f
-Fv(as)i(\002rst)g(ar)o(gument.)p Black 396 3584 a Ft(\225)p
-Black 60 w Fq(add_pinstr)43 b(pi)p Fv(:)21 b(Adds)f(the)g(processing)f
-(instruction)g Fq(pi)h Fv(to)h(the)f(list)h(of)f(processing)f
-(instructions.)p Black 396 3692 a Ft(\225)p Black 60
-w Fq(delete)p Fv(:)h(Deletes)h(this)g(node)e(from)g(the)h(tree.)g
-(After)g(this)h(operation,)d(this)i(node)g(is)h(no)f(longer)e(the)j
-(child)e(of)h(the)479 3800 y(former)f(f)o(ather)g(node;)f(and)i(the)g
-(node)e(loses)j(the)e(connection)f(to)i(the)g(f)o(ather)f(as)h(well.)h
-(This)e(operation)f(is)j(illustrated)479 3908 y(by)f(the)g(\002gure)g
-Fr(A)g(deleted)g(node)f(becomes)g(the)i(r)l(oot)f(of)g(the)h(subtr)m
-(ee)p Fv(.)p Black 396 4016 a Ft(\225)p Black 60 w Fq(set_nodes)44
-b(nl)p Fv(:)20 b(Sets)h(the)f(list)i(of)e(children)e(to)j
-Fq(nl)p Fv(.)f(It)g(is)i(required)c(that)i(e)n(v)o(ery)f(member)g(of)h
-Fq(nl)g Fv(is)h(a)g(root,)e(and)479 4124 y(that)i(all)f(members)f(and)h
-(the)g(current)f(object)h(share)g(the)g(same)g(DTD.)g(Unlik)o(e)g
-Fq(add_node)p Fv(,)g(no)f(v)n(alidation)g(checks)479
-4232 y(are)h(performed.)p Black 396 4340 a Ft(\225)p
-Black 60 w Fq(quick_set_attributes)42 b(atts)p Fv(:)20
-b(sets)h(the)f(attrib)n(utes)h(of)e(this)i(element)f(to)g
-Fq(atts)p Fv(.)g(It)g(is)i Fr(not)f Fv(check)o(ed)479
-4448 y(whether)e Fq(atts)i Fv(matches)e(the)i(DTD)f(or)g(not;)g(it)h
-(is)g(up)f(to)g(the)g(caller)g(of)g(this)h(method)e(to)h(ensure)g
-(this.)g(\(This)479 4556 y(method)f(may)h(be)g(useful)g(to)g(transform)
-e(the)j(attrib)n(ute)f(v)n(alues,)f(i.e.)h(apply)f(a)i(mapping)d(to)j
-(e)n(v)o(ery)e(attrib)n(ute.\))p Black 396 4664 a Ft(\225)p
-Black 60 w Fq(set_comment)43 b(text)p Fv(:)20 b(This)h(method)e(is)i
-(only)e(applicable)g(to)h Fq(T_comment)g Fv(nodes;)f(it)i(sets)g(the)g
-(comment)d(te)o(xt)479 4772 y(contained)h(by)h(such)g(nodes.)p
-Black 3800 5278 a Fr(55)p Black eop
-%%Page: 56 56
-56 55 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 396 579 a Fu(Cloning)g(methods)h(.)
-p Black 396 811 a Ft(\225)p Black 60 w Fq(orphaned_clone)p
-Fv(:)e(Returns)h(a)g(clone)g(of)g(the)g(node)f(and)h(the)g(complete)f
-(tree)h(belo)n(w)g(this)h(node)e(\(deep)g(clone\).)479
-919 y(The)h(clone)g(does)g(not)g(ha)n(v)o(e)f(a)i(parent)e(\(i.e.)h
-(the)g(reference)f(to)h(the)g(parent)f(node)g(is)j Fr(not)f
-Fv(cloned\).)d(While)j(cop)o(ying)479 1027 y(the)f(subtree,)g(strings)g
-(are)g(skipped;)f(it)i(is)g(lik)o(ely)f(that)h(the)f(original)f(tree)h
-(and)g(the)g(cop)o(y)f(tree)h(share)g(strings.)479 1135
-y(Extension)f(objects)h(are)g(cloned)f(by)h(in)m(v)n(oking)e(the)i
-Fq(clone)g Fv(method)f(on)h(the)g(original)f(objects;)h(ho)n(w)g(much)f
-(of)h(the)479 1243 y(e)o(xtension)f(objects)h(is)h(cloned)e(depends)g
-(on)h(the)g(implemention)e(of)i(this)h(method.)479 1393
-y(This)g(operation)d(is)j(illustrated)f(by)g(the)g(\002gure)f
-Fr(The)i(clone)e(of)i(a)f(subtr)m(ee)p Fv(.)p Black 396
-1542 a Ft(\225)p Black 60 w Fq(orphaned_flat_clone)p
-Fv(:)e(Returns)i(a)h(clone)e(of)h(the)g(node,)f(b)n(ut)h(sets)i(the)e
-(list)h(of)f(sub)g(nodes)g(to)g([],)g(i.e.)g(the)g(sub)479
-1650 y(nodes)g(are)g(not)g(cloned.)p Black 396 1758 a
-Ft(\225)p Black 81 w Fq(create_element)42 b(dtd)i(nt)h(al)p
-Fv(:)20 b(Returns)f(a)i(\003at)f(cop)o(y)f(of)g(this)i(node)d(\(which)h
-(must)h(be)f(an)h(element\))f(with)h(the)479 1866 y(follo)n(wing)f
-(modi\002cations:)g(The)h(DTD)g(is)h(set)g(to)f Fq(dtd)p
-Fv(;)h(the)f(node)f(type)h(is)h(set)g(to)f Fq(nt)p Fv(,)g(and)g(the)g
-(ne)n(w)g(attrib)n(ute)g(list)h(is)479 1974 y(set)g(to)f
-Fq(al)g Fv(\(gi)n(v)o(en)e(as)i(list)h(of)f(\(name,v)n(alue\))d
-(pairs\).)i(The)g(cop)o(y)g(does)h(not)f(ha)n(v)o(e)g(children)g(nor)g
-(a)h(parent.)f(It)h(does)f(not)479 2082 y(contain)g(processing)g
-(instructions.)g(See)i(the)f(e)o(xample)f(belo)n(w.)479
-2231 y(Note)h(that)h(you)e(can)h(specify)g(the)g(position)f(of)h(the)g
-(ne)n(w)g(node)f(by)h(the)g(optional)f(ar)o(gument)f
-Fq(~position)p Fv(.)p Black 396 2380 a Ft(\225)p Black
-81 w Fq(create_data)43 b(dtd)h(cdata)p Fv(:)20 b(Returns)g(a)h(\003at)g
-(cop)o(y)e(of)h(this)h(node)e(\(which)g(must)h(be)h(a)f(data)g(node\))f
-(with)h(the)479 2488 y(follo)n(wing)f(modi\002cations:)g(The)h(DTD)g
-(is)h(set)g(to)f Fq(dtd)p Fv(;)h(the)f(node)f(type)h(is)h(set)g(to)f
-Fq(T_data)p Fv(;)g(the)g(attrib)n(ute)g(list)h(is)479
-2596 y(empty)f(\(data)f(nodes)h(ne)n(v)o(er)f(ha)n(v)o(e)g(attrib)n
-(utes\);)h(the)g(list)h(of)f(children)f(and)h(PIs)h(is)g(empty)-5
-b(,)19 b(too)g(\(same)h(reason\).)f(The)479 2704 y(ne)n(w)h(node)f
-(does)h(not)g(ha)n(v)o(e)g(a)g(parent.)f(The)h(v)n(alue)g
-Fq(cdata)g Fv(is)h(the)f(ne)n(w)g(character)f(content)g(of)h(the)g
-(node.)f(See)i(the)479 2812 y(e)o(xample)e(belo)n(w.)p
-Black 396 2920 a Ft(\225)p Black 60 w Fq(keep_always_whitespace_mode)p
-Fv(:)e(Ev)o(en)i(data)h(nodes)f(which)h(are)g(normally)f(dropped)e
-(because)j(the)o(y)f(only)479 3028 y(contain)g(ignorable)f(whitespace,)
-h(can)h(added)e(to)i(this)h(node)d(once)h(this)i(mode)e(is)h(turned)f
-(on.)g(\(This)h(mode)f(is)h(useful)479 3136 y(to)h(produce)d(canonical)
-h(XML.\))396 3327 y Fu(V)-8 b(alidating)20 b(methods)h(.)f
-Fv(There)f(is)j(one)d(method)g(which)h(locally)f(v)n(alidates)h(the)g
-(node,)f(i.e.)i(checks)e(whether)g(the)396 3435 y(subnodes)g(match)h
-(the)g(content)f(model)g(of)h(this)h(node.)p Black 396
-3667 a Ft(\225)p Black 60 w Fq(local_validate)p Fv(:)e(Checks)h(that)g
-(this)h(node)e(conforms)f(to)j(the)f(DTD)g(by)g(comparing)e(the)i(type)
-g(of)g(the)479 3775 y(subnodes)e(with)i(the)g(content)e(model)h(for)g
-(this)h(node.)e(\(Applications)g(need)h(not)g(call)h(this)h(method)d
-(unless)h(the)o(y)g(add)479 3883 y(ne)n(w)h(nodes)g(themselv)o(es)f(to)
-i(the)f(tree.\))-2 4294 y Fp(3.2.3.)35 b(The)f(c)n(lass)h
-Fc(element_impl)396 4462 y Fv(This)21 b(class)g(is)g(an)f
-(implementation)e(of)i Fq(node)g Fv(which)g(realizes)g(element)g
-(nodes:)396 4642 y Fq(class)44 b([)h('ext)f(])h(element_impl)e(:)h
-('ext)g(->)h([)g('ext)f(])g(node)396 4875 y Fu(Constructor)-8
-b(.)19 b Fv(Y)-9 b(ou)20 b(can)g(create)f(a)i(ne)n(w)f(instance)g(by)p
-Black 3798 5278 a Fr(56)p Black eop
-%%Page: 57 57
-57 56 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 396 579 a Fq(new)45
-b(element_impl)d Fn(extension_object)396 770 y Fv(which)20
-b(creates)g(a)h(special)f(form)f(of)h(empty)f(element)h(which)g
-(already)f(contains)g(a)i(reference)d(to)j(the)396 878
-y Fl(extension_object)p Fv(,)d(b)n(ut)i(is)h(otherwise)f(empty)-5
-b(.)18 b(This)j(special)f(form)f(is)i(called)f(an)g Fr(e)n(xemplar)r
-Fv(.)g(The)g(purpose)f(of)396 986 y(e)o(x)o(emplars)g(is)i(that)f(the)o
-(y)g(serv)o(e)f(as)i(patterns)f(that)g(can)g(be)g(duplicated)f(and)g
-(\002lled)i(with)f(data.)g(The)g(method)396 1094 y Fq(create_element)f
-Fv(is)i(designed)e(to)h(perform)e(this)j(action.)396
-1243 y Fu(Example.)f Fv(First,)h(create)f(an)g(e)o(x)o(emplar)e(by)396
-1423 y Fq(let)45 b(exemplar_ext)d(=)j(...)f(in)396 1520
-y(let)h(exemplar)222 b(=)45 b(new)f(element_impl)f(exemplar_ext)g(in)
-396 1711 y Fv(The)20 b Fq(exemplar)g Fv(is)h(not)f(used)f(in)i(node)e
-(trees,)h(b)n(ut)g(only)g(as)h(a)f(pattern)g(when)f(the)h(element)g
-(nodes)f(are)i(created:)396 1891 y Fq(let)45 b(element)e(=)i(exemplar)e
-(#)i(create_element)e(dtd)h(\(T_element)f(name\))h(attlist)396
-2082 y Fv(The)20 b Fq(element)g Fv(is)h(a)f(cop)o(y)g(of)g
-Fq(exemplar)f Fv(\(e)n(v)o(en)g(the)h(e)o(xtension)f
-Fq(exemplar_ext)g Fv(has)h(been)g(copied\))e(which)396
-2190 y(ensures)h(that)h Fq(element)f Fv(and)g(its)i(e)o(xtension)d(are)
-i(objects)f(of)h(the)f(same)h(class)h(as)f(the)g(e)o(x)o(emplars;)e
-(note)h(that)h(you)e(need)396 2298 y(not)i(to)g(pass)h(a)g(class)g
-(name)f(or)f(other)h(meta)g(information.)d(The)j(cop)o(y)g(is)h
-(initially)f(connected)e(with)j(the)f Fq(dtd)p Fv(,)g(it)h(gets)f(a)396
-2406 y(node)f(type,)h(and)g(the)g(attrib)n(ute)g(list)h(is)g(\002lled.)
-f(The)g Fq(element)g Fv(is)h(no)n(w)e(fully)h(functional;)e(it)j(can)f
-(be)g(added)f(to)i(another)396 2514 y(element)f(as)h(child,)e(and)h(it)
-h(can)f(contain)f(references)g(to)h(subnodes.)-2 2884
-y Fp(3.2.4.)35 b(The)f(c)n(lass)h Fc(data_impl)396 3051
-y Fv(This)21 b(class)g(is)g(an)f(implementation)e(of)i
-Fq(node)g Fv(which)g(should)f(be)h(used)g(for)f(all)i(character)e(data)
-h(nodes:)396 3232 y Fq(class)44 b([)h('ext)f(])h(data_impl)e(:)i('ext)f
-(->)g([)h('ext)f(])h(node)396 3464 y Fu(Constructor)-8
-b(.)19 b Fv(Y)-9 b(ou)20 b(can)g(create)f(a)i(ne)n(w)f(instance)g(by)
-396 3644 y Fq(new)45 b(data_impl)e Fn(extension_object)396
-3835 y Fv(which)20 b(creates)g(an)g(empty)g(e)o(x)o(emplar)e(node)h
-(which)h(is)h(connected)d(to)i Fl(extension_object)p
-Fv(.)e(The)i(node)f(does)396 3943 y(not)h(contain)f(a)i(reference)d(to)
-j(an)o(y)e(DTD,)h(and)g(because)f(of)h(this)h(it)g(cannot)e(be)h(added)
-f(to)i(node)e(trees.)396 4093 y(T)-7 b(o)21 b(get)f(a)g(fully)g(w)o
-(orking)f(data)h(node,)f(apply)g(the)h(method)f Fq(create_data)g
-Fv(to)h(the)g(e)o(x)o(emplar)f(\(see)h(e)o(xample\).)396
-4242 y Fu(Example.)g Fv(First,)h(create)f(an)g(e)o(x)o(emplar)e(by)396
-4422 y Fq(let)45 b(exemplar_ext)d(=)j(...)f(in)396 4519
-y(let)h(exemplar)222 b(=)45 b(new)f(exemplar_ext)f(data_impl)h(in)396
-4710 y Fv(The)20 b Fq(exemplar)g Fv(is)h(not)f(used)f(in)i(node)e
-(trees,)h(b)n(ut)g(only)g(as)h(a)f(pattern)g(when)f(the)h(data)g(nodes)
-g(are)g(created:)p Black 3797 5278 a Fr(57)p Black eop
-%%Page: 58 58
-58 57 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 396 579 a Fq(let)45
-b(data_node)e(=)i(exemplar)e(#)i(create_data)e(dtd)h("The)g(characters)
-f(con-)396 676 y(tained)h(in)h(the)f(data)g(node")396
-867 y Fv(The)20 b Fq(data_node)f Fv(is)i(a)g(cop)o(y)e(of)h
-Fq(exemplar)p Fv(.)g(The)f(cop)o(y)h(is)h(initially)f(connected)e(with)
-j(the)f Fq(dtd)p Fv(,)g(and)f(it)i(is)h(\002lled)396
-975 y(with)f(character)e(material.)g(The)h Fq(data_node)f
-Fv(is)i(no)n(w)f(fully)g(functional;)e(it)j(can)f(be)g(added)f(to)h(an)
-h(element)e(as)i(child.)-2 1345 y Fp(3.2.5.)35 b(The)f(type)g
-Fc(spec)396 1512 y Fv(The)20 b(type)g Fq(spec)g Fv(de\002nes)g(a)g(w)o
-(ay)h(to)f(handle)f(the)h(details)h(of)f(creating)f(nodes)g(from)h(e)o
-(x)o(emplars.)396 1692 y Fq(type)44 b('ext)h(spec)396
-1790 y(constraint)e('ext)i(=)f('ext)g(node)h(#extension)396
-1984 y(val)g(make_spec_from_mapping)c(:)665 2081 y
-(?super_root_exemplar)h(:)i('ext)h(node)f(->)665 2178
-y(?comment_exemplar)e(:)j('ext)f(node)g(->)665 2275 y
-(?default_pinstr_exemplar)d(:)k('ext)f(node)g(->)665
-2372 y(?pinstr_mapping)f(:)h(\(string,)g('ext)g(node\))g(Hashtbl.t)f
-(->)665 2469 y(data_exemplar:)g('ext)h(node)g(->)665
-2567 y(default_element_exemplar:)d('ext)j(node)g(->)665
-2664 y(element_mapping:)e(\(string,)i('ext)g(node\))g(Hashtbl.t)f(->)
-665 2761 y(unit)h(->)755 2858 y('ext)g(spec)396 3052
-y(val)h(make_spec_from_alist)c(:)665 3149 y(?super_root_exemplar)h(:)i
-('ext)h(node)f(->)665 3247 y(?comment_exemplar)e(:)j('ext)f(node)g(->)
-665 3344 y(?default_pinstr_exemplar)d(:)k('ext)f(node)g(->)665
-3441 y(?pinstr_alist)f(:)i(\(string)e(*)i('ext)f(node\))g(list)g(->)665
-3538 y(data_exemplar:)f('ext)h(node)g(->)665 3635 y
-(default_element_exemplar:)d('ext)j(node)g(->)665 3732
-y(element_alist:)f(\(string)g(*)i('ext)f(node\))g(list)g(->)665
-3829 y(unit)g(->)755 3927 y('ext)g(spec)396 4117 y Fv(The)20
-b(tw)o(o)h(functions)d Fq(make_spec_from_mapping)f Fv(and)j
-Fq(make_spec_from_alist)d Fv(create)j Fq(spec)g Fv(v)n(alues.)396
-4225 y(Both)g(functions)f(are)h(functionally)e(equi)n(v)n(alent)h(and)g
-(the)i(only)e(dif)n(ference)f(is)j(that)g(the)f(\002rst)h(function)d
-(prefers)396 4333 y(hashtables)i(and)g(the)g(latter)g(associati)n(v)o
-(e)g(lists)h(to)g(describe)e(mappings)g(from)g(names)h(to)g(e)o(x)o
-(emplars.)396 4483 y(Y)-9 b(ou)20 b(can)g(specify)f(e)o(x)o(emplars)g
-(for)g(the)i(v)n(arious)e(kinds)g(of)h(nodes)g(that)g(need)g(to)g(be)g
-(generated)e(when)i(an)g(XML)396 4591 y(document)e(is)k(parsed:)p
-Black 3800 5278 a Fr(58)p Black eop
-%%Page: 59 59
-59 58 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black Black 396 579 a Ft(\225)p
-Black 60 w Fq(~super_root_exemplar)p Fv(:)e(This)i(e)o(x)o(emplar)e(is)
-j(used)f(to)h(create)f(the)g(super)f(root.)h(This)g(special)g(node)g
-(is)h(only)479 687 y(created)f(if)g(the)g(corresponding)d
-(con\002guration)h(option)h(has)h(been)g(selected;)g(it)h(is)g(the)f
-(parent)f(node)g(of)h(the)h(root)479 795 y(node)e(which)h(may)g(be)g
-(con)m(v)o(enient)d(if)k(e)n(v)o(ery)e(w)o(orking)f(node)i(must)g(ha)n
-(v)o(e)f(a)i(parent.)p Black 396 903 a Ft(\225)p Black
-60 w Fq(~comment_exemplar)p Fv(:)d(This)j(e)o(x)o(emplar)d(is)j(used)f
-(when)f(a)i(comment)e(node)g(must)h(be)g(created.)g(Note)g(that)g(such)
-479 1011 y(nodes)g(are)g(only)f(created)h(if)g(the)g(corresponding)d
-(con\002guration)h(option)h(is)i("on".)p Black 396 1119
-a Ft(\225)p Black 60 w Fq(~default_pinstr_exemplar)p
-Fv(:)c(If)j(a)h(node)e(for)g(a)i(processing)e(instruction)g(must)h(be)g
-(created,)f(and)h(the)479 1226 y(instruction)f(is)i(not)f(listed)h(in)f
-(the)g(table)h(passed)f(by)f Fq(~pinstr_mapping)g Fv(or)h
-Fq(~pinstr_alist)p Fv(,)e(this)j(e)o(x)o(emplar)479 1334
-y(is)g(used.)f(Again)f(the)i(con\002guration)c(option)i(must)h(be)g
-("on")g(in)g(order)f(to)i(create)e(such)h(nodes)g(at)h(all.)p
-Black 396 1442 a Ft(\225)p Black 60 w Fq(~pinstr_mapping)e
-Fv(or)g Fq(~pinstr_alist)p Fv(:)g(Map)h(the)g(tar)o(get)g(names)f(of)h
-(processing)f(instructions)g(to)479 1550 y(e)o(x)o(emplars.)g(These)h
-(mappings)e(are)i(only)g(used)g(when)f(nodes)h(for)f(processing)g
-(instructions)g(are)h(created.)p Black 396 1658 a Ft(\225)p
-Black 60 w Fq(~data_exemplar)p Fv(:)f(The)h(e)o(x)o(emplar)e(for)h
-(ordinary)f(data)i(nodes.)p Black 396 1766 a Ft(\225)p
-Black 60 w Fq(~default_element_exemplar)p Fv(:)d(This)j(e)o(x)o(emplar)
-e(is)k(used)e(if)g(an)g(element)g(node)f(must)h(be)g(created,)f(b)n(ut)
-i(the)479 1874 y(element)f(type)g(cannot)f(be)h(found)e(in)j(the)f
-(tables)g Fq(element_mapping)e Fv(or)i Fq(element_alist)p
-Fv(.)p Black 396 1982 a Ft(\225)p Black 60 w Fq(~element_mapping)e
-Fv(or)i Fq(~element_alist)p Fv(:)f(Map)h(the)g(element)f(types)h(to)h
-(e)o(x)o(emplars.)d(These)i(mappings)f(are)479 2090 y(used)h(to)h
-(create)e(element)h(nodes.)396 2239 y(In)g(most)g(cases,)h(you)e(only)h
-(w)o(ant)g(to)g(create)g Fq(spec)g Fv(v)n(alues)g(to)h(pass)f(them)g
-(to)g(the)h(parser)e(functions)g(found)f(in)396 2347
-y Fq(Pxp_yacc)p Fv(.)h(Ho)n(we)n(v)o(er)m(,)f(it)j(might)f(be)g(useful)
-g(to)g(apply)f Fq(spec)h Fv(v)n(alues)g(directly)-5 b(.)396
-2497 y(The)20 b(follo)n(wing)f(functions)f(create)i(v)n(arious)f(types)
-h(of)g(nodes)g(by)g(selecting)f(the)i(corresponding)16
-b(e)o(x)o(emplar)j(from)g(the)396 2605 y(passed)h Fq(spec)g
-Fv(v)n(alue,)g(and)f(by)h(calling)g Fq(create_element)e
-Fv(or)i Fq(create_data)f Fv(on)h(the)g(e)o(x)o(emplar)-5
-b(.)396 2785 y Fq(val)45 b(create_data_node)d(:)665 2882
-y('ext)i(spec)h(->)665 2979 y(dtd)g(->)665 3076 y(\(*)g(data)f
-(material:)f(*\))i(string)f(->)845 3173 y('ext)g(node)396
-3368 y(val)h(create_element_node)c(:)665 3465 y(?position:\(string)h(*)
-j(int)f(*)h(int\))f(->)665 3562 y('ext)g(spec)h(->)665
-3659 y(dtd)g(->)665 3756 y(\(*)g(element)e(type:)h(*\))h(string)f(->)
-665 3853 y(\(*)h(attributes:)e(*\))h(\(string)g(*)h(string\))e(list)h
-(->)845 3950 y('ext)g(node)396 4145 y(val)h(create_super_root_node)c(:)
-665 4242 y(?position:\(string)h(*)j(int)f(*)h(int\))f(->)665
-4339 y('ext)g(spec)h(->)710 4436 y(dtd)f(->)889 4533
-y('ext)h(node)396 4728 y(val)g(create_comment_node)c(:)665
-4825 y(?position:\(string)h(*)j(int)f(*)h(int\))f(->)p
-Black 3800 5278 a Fr(59)p Black eop
-%%Page: 60 60
-60 59 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 665 579 a Fq('ext)44
-b(spec)h(->)665 676 y(dtd)g(->)665 773 y(\(*)g(comment)e(text:)h(*\))h
-(string)f(->)845 870 y('ext)g(node)396 1065 y(val)h(create_pinstr_node)
-c(:)665 1162 y(?position:\(string)h(*)j(int)f(*)h(int\))f(->)665
-1259 y('ext)g(spec)h(->)665 1356 y(dtd)g(->)665 1453
-y(proc_instruction)d(->)845 1550 y('ext)i(node)-2 2003
-y Fp(3.2.6.)35 b(Examples)396 2171 y Fu(Building)22 b(tr)o(ees.)d
-Fv(Here)h(is)h(the)g(piece)e(of)h(code)g(that)g(creates)g(the)h(tree)f
-(of)g(the)g(\002gure)f Fr(A)i(tr)m(ee)g(with)f(element)g(nodes,)396
-2279 y(data)g(nodes,)f(and)g(attrib)n(utes)p Fv(.)h(The)g(e)o(xtension)
-f(object)h(and)f(the)h(DTD)h(are)f(be)o(yond)e(the)i(scope)g(of)g(this)
-g(e)o(xample.)396 2459 y Fq(let)45 b(exemplar_ext)d(=)j(...)f(\(*)h
-(some)f(extension)f(*\))i(in)396 2556 y(let)g(dtd)f(=)h(...)f(\(*)g
-(some)h(DTD)f(*\))g(in)396 2750 y(let)h(element_exemplar)d(=)i(new)h
-(element_impl)e(exemplar_ext)f(in)396 2847 y(let)j(data_exemplar)177
-b(=)44 b(new)h(data_impl)178 b(exemplar_ext)42 b(in)396
-3042 y(let)j(a1)f(=)h(element_exemplar)d(#)j(cre-)396
-3139 y(ate_element)e(dtd)i(\(T_element)e("a"\))h(["att",)g("apple"])396
-3236 y(and)h(b1)f(=)h(element_exemplar)d(#)j(create_element)d(dtd)i
-(\(T_element)g("b"\))g([])396 3333 y(and)h(c1)f(=)h(element_exemplar)d
-(#)j(create_element)d(dtd)i(\(T_element)g("c"\))g([])396
-3430 y(and)h(a2)f(=)h(element_exemplar)d(#)j(cre-)396
-3527 y(ate_element)e(dtd)i(\(T_element)e("a"\))h(["att",)g("orange"])
-396 3624 y(in)396 3819 y(let)h(cherries)e(=)i(data_exemplar)d(#)j
-(create_data)e(dtd)h("Cherries")g(in)396 3916 y(let)h(orange)133
-b(=)45 b(data_exemplar)d(#)j(create_data)e(dtd)h("An)h(orange")e(in)396
-4110 y(a1)i(#)f(add_node)g(b1;)396 4207 y(a1)h(#)f(add_node)g(c1;)396
-4304 y(b1)h(#)f(add_node)g(a2;)396 4401 y(b1)h(#)f(add_node)g
-(cherries;)396 4499 y(a2)h(#)f(add_node)g(orange;)396
-4689 y Fv(Alternati)n(v)o(ely)-5 b(,)18 b(the)i(last)h(block)f(of)g
-(statements)g(could)f(also)i(be)f(written)g(as:)396 4870
-y Fq(a1)45 b(#)f(set_nodes)g([b1;)g(c1];)p Black 3800
-5278 a Fr(60)p Black eop
-%%Page: 61 61
-61 60 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 396 579 a Fq(b1)45
-b(#)f(set_nodes)g([a2;)g(cherries];)396 676 y(a2)h(#)f(set_nodes)g
-([orange];)396 867 y Fv(The)20 b(root)g(of)g(the)g(tree)g(is)h
-Fq(a1)p Fv(,)f(i.e.)g(it)h(is)g(true)f(that)396 1047
-y Fq(x)45 b(#)g(root)f(==)g(a1)396 1238 y Fv(for)20 b(e)n(v)o(ery)f(x)h
-(from)f({)i Fq(a1)p Fv(,)f Fq(a2)p Fv(,)g Fq(b1)p Fv(,)g
-Fq(c1)p Fv(,)g Fq(cherries)p Fv(,)g Fq(orange)f Fv(}.)396
-1388 y(Furthermore,)f(the)i(follo)n(wing)f(properties)f(hold:)486
-1568 y Fq(a1)44 b(#)h(attribute)e("att")h(=)h(Value)f("apple")396
-1665 y(&)h(a2)f(#)h(attribute)e("att")h(=)h(Value)f("orange")396
-1859 y(&)h(cherries)e(#)i(data)f(=)h("Cherries")396 1956
-y(&)135 b(orange)43 b(#)i(data)f(=)h("An)f(orange")396
-2053 y(&)314 b(a1)44 b(#)h(data)f(=)h("CherriesAn)e(orange")396
-2248 y(&)314 b(a1)44 b(#)h(node_type)e(=)i(T_element)e("a")396
-2345 y(&)314 b(a2)44 b(#)h(node_type)e(=)i(T_element)e("a")396
-2442 y(&)314 b(b1)44 b(#)h(node_type)e(=)i(T_element)e("b")396
-2539 y(&)314 b(c1)44 b(#)h(node_type)e(=)i(T_element)e("c")396
-2636 y(&)i(cherries)e(#)i(node_type)e(=)i(T_data)396
-2733 y(&)135 b(orange)43 b(#)i(node_type)e(=)i(T_data)396
-2928 y(&)314 b(a1)44 b(#)h(sub_nodes)e(=)i([)g(b1;)f(c1)h(])396
-3025 y(&)314 b(a2)44 b(#)h(sub_nodes)e(=)i([)g(orange)f(])396
-3122 y(&)314 b(b1)44 b(#)h(sub_nodes)e(=)i([)g(a2;)f(cherries)g(])396
-3219 y(&)314 b(c1)44 b(#)h(sub_nodes)e(=)i([])396 3316
-y(&)g(cherries)e(#)i(sub_nodes)e(=)i([])396 3413 y(&)135
-b(orange)43 b(#)i(sub_nodes)e(=)i([])396 3608 y(&)314
-b(a2)44 b(#)h(parent)f(==)g(a1)396 3705 y(&)314 b(b1)44
-b(#)h(parent)f(==)g(b1)396 3802 y(&)314 b(c1)44 b(#)h(parent)f(==)g(a1)
-396 3899 y(&)h(cherries)e(#)i(parent)f(==)g(b1)396 3996
-y(&)135 b(orange)43 b(#)i(parent)f(==)g(a2)396 4229 y
-Fu(Sear)o(ching)19 b(nodes.)g Fv(The)g(follo)n(wing)e(function)h
-(searches)h(all)g(nodes)g(of)g(a)g(tree)h(for)e(which)h(a)g(certain)g
-(condition)e(holds:)396 4409 y Fq(let)45 b(rec)f(search)g(p)g(t)h(=)486
-4506 y(if)f(p)h(t)g(then)576 4603 y(t)f(::)h(search_list)e(p)h(\(t)h(#)
-g(sub_nodes\))486 4700 y(else)576 4797 y(search_list)e(p)h(\(t)h(#)f
-(sub_nodes\))p Black 3800 5278 a Fr(61)p Black eop
-%%Page: 62 62
-62 61 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 396 676 a Fq(and)45
-b(search_list)e(p)h(l)h(=)486 773 y(match)f(l)h(with)576
-870 y([])268 b(-)p Fo(>)45 b Fq([])486 967 y(|)g(t)f(::)h(l')f(-)p
-Fo(>)h Fq(\(search)e(p)i(t\))f(@)h(\(search_list)e(p)i(l'\))396
-1065 y(;;)396 1297 y Fv(F)o(or)20 b(e)o(xample,)f(if)h(you)f(w)o(ant)i
-(to)f(search)g(all)h(elements)f(of)f(a)i(certain)f(type)f
-Fq(et)p Fv(,)i(the)f(function)e Fq(search)i Fv(can)g(be)g(applied)396
-1405 y(as)h(follo)n(ws:)396 1585 y Fq(let)45 b(search_element_type)c
-(et)k(t)f(=)486 1682 y(search)g(\(fun)g(x)h(-)p Fo(>)f
-Fq(x)h(#)f(node_type)g(=)g(T_element)g(et\))g(t)396 1779
-y(;;)396 2012 y Fu(Getting)20 b(attrib)n(ute)f(v)o(alues.)h
-Fv(Suppose)f(we)i(ha)n(v)o(e)f(the)g(declaration:)396
-2192 y Fq(<!ATTLIST)44 b(e)g(a)h(CDATA)f(#REQUIRED)934
-2289 y(b)h(CDATA)f(#IMPLIED)934 2386 y(c)h(CDATA)f("12345">)396
-2577 y Fv(In)20 b(this)h(case,)f(e)n(v)o(ery)f(element)h
-Fq(e)g Fv(must)h(ha)n(v)o(e)e(an)h(attrib)n(ute)g Fq(a)p
-Fv(,)g(otherwise)g(the)g(parser)g(w)o(ould)f(indicate)h(an)g(error)-5
-b(.)19 b(If)h(the)396 2685 y(O'Caml)h(v)n(ariable)e Fq(n)h
-Fv(holds)g(the)g(node)f(of)h(the)g(tree)h(corresponding)16
-b(to)21 b(the)f(element,)f(you)g(can)h(get)h(the)f(v)n(alue)f(of)h(the)
-396 2793 y(attrib)n(ute)g Fq(a)h Fv(by)396 2973 y Fq(let)45
-b(value_of_a)e(=)h(n)h(#)g(required_string_attribute)40
-b("a")396 3164 y Fv(which)20 b(is)h(more)e(or)h(less)i(an)e(abbre)n
-(viation)d(for)396 3344 y Fq(let)45 b(value_of_a)e(=)486
-3442 y(match)h(n)h(#)f(attribute)g("a")g(with)576 3539
-y(Value)g(s)g(->)h(s)486 3636 y(|)g(_)313 b(->)45 b(assert)f(false)396
-3827 y Fv(-)21 b(as)g(the)f(attrib)n(ute)g(is)h(required,)d(the)i
-Fq(attribute)f Fv(method)g(al)o(w)o(ays)i(returns)e(a)i
-Fq(Value)p Fv(.)396 3976 y(In)f(contrast)g(to)g(this,)h(the)f(attrib)n
-(ute)g Fq(b)g Fv(can)g(be)g(omitted.)g(In)f(this)i(case,)g(the)f
-(method)396 4084 y Fq(required_string_attribute)d Fv(w)o(orks)j(only)f
-(if)h(the)h(attrib)n(ute)f(is)h(there,)e(and)h(the)g(method)f(will)i(f)
-o(ail)f(if)h(the)396 4192 y(attrib)n(ute)f(is)h(missing.)f(T)-7
-b(o)20 b(get)h(the)f(v)n(alue,)f(you)g(can)h(apply)g(the)g(method)f
-Fq(optional_string_attribute)p Fv(:)396 4372 y Fq(let)45
-b(value_of_b)e(=)h(n)h(#)g(optional_string_attribute)40
-b("b")396 4563 y Fv(No)n(w)-5 b(,)20 b Fq(value_of_b)f
-Fv(is)i(of)f(type)g Fq(string)43 b(option)p Fv(,)20 b(and)f
-Fq(None)i Fv(represents)e(the)h(omitted)g(attrib)n(ute.)f(Alternati)n
-(v)o(ely)-5 b(,)396 4671 y(you)20 b(could)f(also)h(use)h
-Fq(attribute)p Fv(:)396 4851 y Fq(let)45 b(value_of_b)e(=)p
-Black 3800 5278 a Fr(62)p Black eop
-%%Page: 63 63
-63 62 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 486 579 a Fq(match)44
-b(n)h(#)f(attribute)g("b")g(with)576 676 y(Value)g(s)313
-b(->)45 b(Some)f(s)486 773 y(|)h(Implied_value)d(->)j(None)486
-870 y(|)g(_)582 b(->)45 b(assert)f(false)396 1103 y Fv(The)20
-b(attrib)n(ute)g Fq(c)h Fv(beha)n(v)o(es)e(much)g(lik)o(e)h
-Fq(a)p Fv(,)h(because)e(it)i(has)g(al)o(w)o(ays)f(a)h(v)n(alue.)e(If)h
-(the)g(attrib)n(ute)g(is)h(omitted,)f(the)g(def)o(ault,)396
-1211 y(here)g("12345",)e(will)j(be)f(returned)e(instead.)i(Because)g
-(of)g(this,)h(you)e(can)h(again)f(use)396 1319 y Fq
-(required_string_attribute)e Fv(to)j(get)g(the)h(v)n(alue.)396
-1468 y(The)f(type)g Fq(CDATA)g Fv(is)h(the)f(most)g(general)f(string)h
-(type.)g(The)g(types)g Fq(NMTOKEN)p Fv(,)f Fq(ID)p Fv(,)h
-Fq(IDREF)p Fv(,)g Fq(ENTITY)p Fv(,)f(and)h(all)396 1576
-y(enumerators)e(and)i(notations)f(are)h(special)h(forms)e(of)h(string)g
-(types)g(that)g(restrict)g(the)h(possible)f(v)n(alues.)f(From)396
-1684 y(O'Caml,)h(the)o(y)g(beha)n(v)o(e)f(lik)o(e)h Fq(CDATA)p
-Fv(,)g(i.e.)g(you)f(can)h(use)h(the)f(methods)f Fq
-(required_string_attribute)e Fv(and)396 1792 y Fq
-(optional_string_attribute)p Fv(,)g(too.)396 1941 y(In)j(contrast)g(to)
-g(this,)h(the)f(types)g Fq(NMTOKENS)p Fv(,)f Fq(IDREFS)p
-Fv(,)g(and)h Fq(ENTITIES)g Fv(mean)f(lists)j(of)e(strings.)g(Suppose)f
-(we)h(ha)n(v)o(e)396 2049 y(the)g(declaration:)396 2229
-y Fq(<!ATTLIST)44 b(f)g(d)h(NMTOKENS)e(#REQUIRED)934
-2327 y(e)i(NMTOKENS)e(#IMPLIED>)396 2517 y Fv(The)20
-b(type)g Fq(NMTOKENS)f Fv(stands)i(for)e(lists)j(of)e(space-separated)e
-(tok)o(ens;)i(for)f(e)o(xample)g(the)h(v)n(alue)g Fq("1)44
-b(abc)h(23ef")396 2625 y Fv(means)20 b(the)g(list)i Fq(["1";)44
-b("abc";)f("23ef"])p Fv(.)20 b(\(Again,)e Fq(IDREFS)i
-Fv(and)g Fq(ENTITIES)f Fv(ha)n(v)o(e)h(more)f(restricted)h(v)n
-(alues.\))396 2733 y(T)-7 b(o)21 b(get)f(the)g(v)n(alue)g(of)f(attrib)n
-(ute)h Fq(d)p Fv(,)h(one)e(can)h(use)396 2913 y Fq(let)45
-b(value_of_d)e(=)h(n)h(#)g(required_list_attribute)c("d")396
-3104 y Fv(or)396 3285 y Fq(let)k(value_of_d)e(=)486 3382
-y(match)h(n)h(#)f(attribute)g("d")g(with)576 3479 y(Valuelist)f(l)i(->)
-f(l)486 3576 y(|)h(_)493 b(->)44 b(assert)g(false)396
-3767 y Fv(As)21 b Fq(d)g Fv(is)g(required,)d(the)i(attrib)n(ute)g
-(cannot)f(be)h(omitted,)g(and)f(the)h Fq(attribute)g
-Fv(method)e(returns)i(al)o(w)o(ays)g(a)396 3875 y Fq(Valuelist)p
-Fv(.)396 4024 y(F)o(or)g(optional)f(attrib)n(utes)h(lik)o(e)h
-Fq(e)p Fv(,)f(apply)396 4204 y Fq(let)45 b(value_of_e)e(=)h(n)h(#)g
-(optional_list_attribute)c("e")396 4395 y Fv(or)396 4576
-y Fq(let)k(value_of_e)e(=)486 4673 y(match)h(n)h(#)f(attribute)g("e")g
-(with)576 4770 y(Valuelist)f(l)134 b(->)45 b(l)486 4867
-y(|)g(Implied_value)d(->)j([])p Black 3800 5278 a Fr(63)p
-Black eop
-%%Page: 64 64
-64 63 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 486 579 a Fq(|)45
-b(_)582 b(->)45 b(assert)f(false)396 770 y Fv(Here,)20
-b(the)g(case)h(that)f(the)g(attrib)n(ute)g(is)h(missing)f(counts)g(lik)
-o(e)g(the)h(empty)e(list.)-2 1139 y Fp(3.2.7.)35 b(Iterator)n(s)396
-1307 y Fv(There)20 b(are)g(also)g(se)n(v)o(eral)g(iterators)g(in)g
-(Pxp_document;)d(please)j(see)h(the)f(mli)h(\002le)f(for)g(details.)g
-(Y)-9 b(ou)20 b(can)g(\002nd)396 1415 y(e)o(xamples)f(for)h(them)g(in)g
-(the)g("simple_transformation")d(directory)-5 b(.)396
-1595 y Fq(val)45 b(find)f(:)g(?deeply:bool)f(->)889 1692
-y(f:\('ext)h(node)g(->)h(bool\))f(->)g('ext)g(node)h(->)f('ext)g(node)
-396 1887 y(val)h(find_all)e(:)i(?deeply:bool)e(->)1069
-1984 y(f:\('ext)g(node)i(->)f(bool\))g(->)h('ext)f(node)g(->)g('ext)h
-(node)f(list)396 2178 y(val)h(find_element)d(:)j(?deeply:bool)e(->)1248
-2275 y(string)h(->)g('ext)h(node)f(->)g('ext)g(node)396
-2469 y(val)h(find_all_elements)d(:)i(?deeply:bool)f(->)1472
-2567 y(string)h(->)h('ext)f(node)g(->)g('ext)h(node)f(list)396
-2761 y(exception)g(Skip)396 2858 y(val)h(map_tree)e(:)90
-b(pre:\('exta)43 b(node)h(->)g('extb)g(node\))g(->)1069
-2955 y(?post:\('extb)f(node)h(->)g('extb)g(node\))g(->)1069
-3052 y('exta)g(node)g(->)1248 3149 y('extb)g(node)396
-3441 y(val)h(map_tree_sibl)d(:)755 3538 y(pre:)i(\('exta)g(node)g
-(option)g(->)g('exta)g(node)h(->)f('exta)g(node)g(option)g(->)1203
-3635 y('extb)g(node\))g(->)710 3732 y(?post:\('extb)f(node)h(option)g
-(->)g('extb)g(node)h(->)f('extb)g(node)g(option)g(->)1203
-3829 y('extb)g(node\))g(->)710 3927 y('exta)g(node)g(->)889
-4024 y('extb)g(node)396 4218 y(val)h(iter_tree)e(:)i(?pre:\('ext)e
-(node)h(->)g(unit\))g(->)1114 4315 y(?post:\('ext)f(node)h(->)g(unit\))
-g(->)1114 4412 y('ext)g(node)g(->)1293 4509 y(unit)396
-4704 y(val)h(iter_tree_sibl)d(:)710 4801 y(?pre:)i(\('ext)g(node)g
-(option)g(->)h('ext)f(node)g(->)g('ext)h(node)f(option)g(->)g(unit\))g
-(->)p Black 3800 5278 a Fr(64)p Black eop
-%%Page: 65 65
-65 64 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 710 579 a Fq(?post:\('ext)43
-b(node)h(option)g(->)h('ext)f(node)g(->)g('ext)h(node)f(option)g(->)g
-(unit\))g(->)710 676 y('ext)g(node)g(->)889 773 y(unit)-2
-1358 y Fx(3.3.)39 b(The)g(c)m(lass)g(type)g Fb(extension)396
-1610 y Fq(class)44 b(type)g([)h('node)f(])h(extension)e(=)486
-1707 y(object)h(\('self\))576 1804 y(method)f(clone)h(:)h('self)665
-1901 y(\(*)g("clone")e(should)h(return)g(an)h(exact)f(deep)g(copy)g(of)
-g(the)h(object.)e(*\))576 1998 y(method)g(node)i(:)f('node)665
-2095 y(\(*)h("node")f(returns)f(the)i(corresponding)d(node)i(of)h(this)
-f(extension.)f(This)h(method)710 2193 y(*)h(intended)e(to)i(return)f
-(exactly)f(what)h(previ-)396 2290 y(ously)g(has)h(been)f(set)g(by)h
-("set_node".)710 2387 y(*\))576 2484 y(method)e(set_node)h(:)h('node)f
-(->)g(unit)665 2581 y(\(*)h("set_node")e(is)h(invoked)g(once)g(the)h
-(extension)e(is)h(associated)g(to)g(a)h(new)710 2678
-y(*)g(node)f(object.)710 2775 y(*\))486 2873 y(end)396
-3063 y Fv(This)21 b(is)g(the)f(type)g(of)g(classes)h(used)f(for)f(node)
-h(e)o(xtensions.)e(F)o(or)i(e)n(v)o(ery)f(node)g(of)h(the)g(document)e
-(tree,)i(there)g(is)h(not)396 3171 y(only)f(the)g Fq(node)g
-Fv(object,)f(b)n(ut)h(also)g(an)g Fq(extension)f Fv(object.)h(The)f
-(latter)i(has)f(minimal)f(functionality;)f(it)j(has)f(only)g(the)396
-3279 y(necessary)g(methods)f(to)h(be)g(attached)g(to)g(the)g(node)f
-(object)h(containing)e(the)j(details)f(of)g(the)g(node)f(instance.)h
-(The)396 3387 y(e)o(xtension)f(object)h(is)h(called)f(e)o(xtension)f
-(because)g(its)i(purpose)e(is)i(e)o(xtensibility)-5 b(.)396
-3537 y(F)o(or)20 b(some)g(reasons,)g(it)h(is)g(impossible)e(to)i(deri)n
-(v)o(e)d(the)j Fq(node)f Fv(classes)h(\(i.e.)f Fq(element_impl)f
-Fv(and)g Fq(data_impl)p Fv(\))g(such)396 3645 y(that)i(the)f
-(subclasses)g(can)g(be)g(e)o(xtended)f(by)g(ne)n(w)h(ne)n(w)g(methods.)
-f(But)i(subclassing)f(nodes)f(is)i(a)g(great)f(feature,)396
-3753 y(because)g(it)h(allo)n(ws)f(the)g(user)g(to)h(pro)o(vide)d(dif)n
-(ferent)g(classes)k(for)d(dif)n(ferent)g(types)h(of)g(nodes.)f(The)h(e)
-o(xtension)f(objects)396 3860 y(are)h(a)h(w)o(orkaround)c(that)j(is)i
-(as)e(po)n(werful)f(as)i(direct)f(subclassing,)f(the)h(costs)h(are)f
-(some)g(notation)f(o)o(v)o(erhead.)p Black 3800 5278
-a Fr(65)p Black eop
-%%Page: 66 66
-66 65 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 396 579 a Fu(Figur)o(e)g(3-6.)f
-(The)i(structur)o(e)f(of)g(nodes)g(and)h(extensions)396
-1928 y
- currentpoint currentpoint translate 1 1 scale neg exch neg exch translate
- 396 1928 a @beginspecial 0 @llx 0 @lly 206 @urx
-140 @ury 2060 @rwi @setspecial
-%%BeginDocument: pic/extension_general.ps
-%!PS-Adobe-2.0 EPSF-2.0
-%%Title: src/pic/extension_general.fig
-%%Creator: fig2dev Version 3.2 Patchlevel 1
-%%CreationDate: Sun Aug 27 02:05:42 2000
-%%For: gerd@ice (Gerd Stolpmann)
-%%Orientation: Portrait
-%%BoundingBox: 0 0 206 140
-%%Pages: 0
-%%BeginSetup
-%%EndSetup
-%%Magnification: 0.8000
-%%EndComments
-/$F2psDict 200 dict def
-$F2psDict begin
-$F2psDict /mtrx matrix put
-/col-1 {0 setgray} bind def
-/col0 {0.000 0.000 0.000 srgb} bind def
-/col1 {0.000 0.000 1.000 srgb} bind def
-/col2 {0.000 1.000 0.000 srgb} bind def
-/col3 {0.000 1.000 1.000 srgb} bind def
-/col4 {1.000 0.000 0.000 srgb} bind def
-/col5 {1.000 0.000 1.000 srgb} bind def
-/col6 {1.000 1.000 0.000 srgb} bind def
-/col7 {1.000 1.000 1.000 srgb} bind def
-/col8 {0.000 0.000 0.560 srgb} bind def
-/col9 {0.000 0.000 0.690 srgb} bind def
-/col10 {0.000 0.000 0.820 srgb} bind def
-/col11 {0.530 0.810 1.000 srgb} bind def
-/col12 {0.000 0.560 0.000 srgb} bind def
-/col13 {0.000 0.690 0.000 srgb} bind def
-/col14 {0.000 0.820 0.000 srgb} bind def
-/col15 {0.000 0.560 0.560 srgb} bind def
-/col16 {0.000 0.690 0.690 srgb} bind def
-/col17 {0.000 0.820 0.820 srgb} bind def
-/col18 {0.560 0.000 0.000 srgb} bind def
-/col19 {0.690 0.000 0.000 srgb} bind def
-/col20 {0.820 0.000 0.000 srgb} bind def
-/col21 {0.560 0.000 0.560 srgb} bind def
-/col22 {0.690 0.000 0.690 srgb} bind def
-/col23 {0.820 0.000 0.820 srgb} bind def
-/col24 {0.500 0.190 0.000 srgb} bind def
-/col25 {0.630 0.250 0.000 srgb} bind def
-/col26 {0.750 0.380 0.000 srgb} bind def
-/col27 {1.000 0.500 0.500 srgb} bind def
-/col28 {1.000 0.630 0.630 srgb} bind def
-/col29 {1.000 0.750 0.750 srgb} bind def
-/col30 {1.000 0.880 0.880 srgb} bind def
-/col31 {1.000 0.840 0.000 srgb} bind def
-
-end
-save
--22.0 205.0 translate
-1 -1 scale
-
-/cp {closepath} bind def
-/ef {eofill} bind def
-/gr {grestore} bind def
-/gs {gsave} bind def
-/sa {save} bind def
-/rs {restore} bind def
-/l {lineto} bind def
-/m {moveto} bind def
-/rm {rmoveto} bind def
-/n {newpath} bind def
-/s {stroke} bind def
-/sh {show} bind def
-/slc {setlinecap} bind def
-/slj {setlinejoin} bind def
-/slw {setlinewidth} bind def
-/srgb {setrgbcolor} bind def
-/rot {rotate} bind def
-/sc {scale} bind def
-/sd {setdash} bind def
-/ff {findfont} bind def
-/sf {setfont} bind def
-/scf {scalefont} bind def
-/sw {stringwidth} bind def
-/tr {translate} bind def
-/tnt {dup dup currentrgbcolor
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add
-  4 -2 roll dup 1 exch sub 3 -1 roll mul add srgb}
-  bind def
-/shd {dup dup currentrgbcolor 4 -2 roll mul 4 -2 roll mul
-  4 -2 roll mul srgb} bind def
- /DrawEllipse {
-       /endangle exch def
-       /startangle exch def
-       /yrad exch def
-       /xrad exch def
-       /y exch def
-       /x exch def
-       /savematrix mtrx currentmatrix def
-       x y tr xrad yrad sc 0 0 1 startangle endangle arc
-       closepath
-       savematrix setmatrix
-       } def
-
-/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
-/$F2psEnd {$F2psEnteredState restore end} def
-%%EndProlog
-
-$F2psBegin
-10 setmiterlimit
-n -1000 5050 m -1000 -1000 l 5514 -1000 l 5514 5050 l cp clip
- 0.05039 0.05039 sc
-7.500 slw
-% Ellipse
-n 1575 2250 229 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 1575 3375 225 225 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 675 3375 229 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 2475 3375 229 229 0 360 DrawEllipse gs col7 0.75 shd ef gr gs col0 s gr
-
-% Ellipse
-n 3600 2475 180 180 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Ellipse
-n 2880 2475 180 180 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Ellipse
-n 4320 2475 186 186 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Ellipse
-n 3600 1485 186 186 0 360 DrawEllipse gs col7 0.50 shd ef gr gs col0 s gr
-
-% Polyline
-n 675 3150 m 1395 2385 l gs col0 s gr 
-% Polyline
-n 1575 2475 m 1575 3150 l gs col0 s gr 
-% Polyline
-n 1755 2385 m 2475 3150 l gs col0 s gr 
-% Polyline
- [60] 0 sd
-gs  clippath
-3288 1467 m 3412 1462 l 3305 1524 l 3435 1487 l 3418 1429 l cp
-clip
-n 1537 2010 m 3412 1462 l gs col0 s gr gr
- [] 0 sd
-% arrowhead
-n 3288 1467 m 3412 1462 l 3305 1524 l  col0 s
-% Polyline
- [60] 0 sd
-gs  clippath
-1796 2042 m 1672 2047 l 1779 1984 l 1649 2022 l 1666 2080 l cp
-clip
-n 3412 1537 m 1672 2047 l gs col0 s gr gr
- [] 0 sd
-% arrowhead
-n 1796 2042 m 1672 2047 l 1779 1984 l  col0 s
-% Polyline
- [60] 0 sd
-gs  clippath
-2584 2524 m 2707 2512 l 2604 2581 l 2731 2535 l 2711 2479 l cp
-933 3183 m 810 3195 l 913 3126 l 786 3172 l 806 3228 l cp
-clip
-n 810 3195 m 2707 2512 l gs col0 s gr gr
- [] 0 sd
-% arrowhead
-n 933 3183 m 810 3195 l 913 3126 l  col0 s
-% arrowhead
-n 2584 2524 m 2707 2512 l 2604 2581 l  col0 s
-% Polyline
- [60] 0 sd
-gs  clippath
-3319 2594 m 3442 2580 l 3340 2650 l 3467 2603 l 3446 2547 l cp
-1863 3203 m 1740 3217 l 1842 3147 l 1715 3194 l 1736 3250 l cp
-clip
-n 1740 3217 m 3442 2580 l gs col0 s gr gr
- [] 0 sd
-% arrowhead
-n 1863 3203 m 1740 3217 l 1842 3147 l  col0 s
-% arrowhead
-n 3319 2594 m 3442 2580 l 3340 2650 l  col0 s
-% Polyline
- [60] 0 sd
-gs  clippath
-4054 2626 m 4177 2610 l 4076 2682 l 4202 2632 l 4180 2577 l cp
-2763 3194 m 2640 3210 l 2741 3138 l 2615 3188 l 2637 3243 l cp
-clip
-n 2640 3210 m 4177 2610 l gs col0 s gr gr
- [] 0 sd
-% arrowhead
-n 2763 3194 m 2640 3210 l 2741 3138 l  col0 s
-% arrowhead
-n 4054 2626 m 4177 2610 l 4076 2682 l  col0 s
-/Courier-Bold ff 180.00 scf sf
-3555 1530 m
-gs 1 -1 sc (x) col0 sh gr
-/Courier-Bold ff 180.00 scf sf
-1530 2295 m
-gs 1 -1 sc (n) col0 sh gr
-/Courier ff 180.00 scf sf
-1658 1950 m
-gs 1 -1 sc  17.0 rot (n # extension) col0 sh gr
-/Courier ff 180.00 scf sf
-2475 1950 m
-gs 1 -1 sc  17.0 rot (x # node) col0 sh gr
-/Helvetica ff 180.00 scf sf
-1020 4050 m
-gs 1 -1 sc (The node tree) col0 sh gr
-/Helvetica ff 180.00 scf sf
-3225 3285 m
-gs 1 -1 sc (The extensions) col0 sh gr
-$F2psEnd
-rs
-
-%%EndDocument
- @endspecial 396 1928 a
- currentpoint currentpoint translate 1 1 div 1 1 div scale neg exch
-neg exch translate
- 396 1928 a 357 x Fv(The)f(picture)f(sho)n(ws)i
-(ho)n(w)e(the)i(nodes)e(and)h(e)o(xtensions)f(are)h(link)o(ed)f
-(together)-5 b(.)19 b(Ev)o(ery)g(node)g(has)i(a)f(reference)f(to)h(its)
-396 2393 y(e)o(xtension,)f(and)g(e)n(v)o(ery)g(e)o(xtension)g(has)h(a)h
-(reference)d(to)j(its)g(node.)e(The)h(methods)f Fq(extension)g
-Fv(and)h Fq(node)g Fv(follo)n(w)396 2501 y(these)h(references;)e(a)h
-(typical)g(phrase)f(is)396 2681 y Fq(self)44 b(#)h(node)f(#)h
-(attribute)e("xy")396 2872 y Fv(to)21 b(get)f(the)g(v)n(alue)g(of)f(an)
-i(attrib)n(ute)e(from)h(a)g(method)f(de\002ned)g(in)h(the)h(e)o
-(xtension)d(object;)i(or)396 3053 y Fq(self)44 b(#)h(node)f(#)h(iter)
-486 3150 y(\(fun)f(n)h(-)p Fo(>)f Fq(n)h(#)f(extension)g(#)g(my_method)
-g(...\))396 3341 y Fv(to)21 b(iterate)f(o)o(v)o(er)f(the)h(subnodes)f
-(and)g(to)i(call)f Fq(my_method)f Fv(of)h(the)h(corresponding)16
-b(e)o(xtension)j(objects.)396 3490 y(Note)h(that)h(e)o(xtension)d
-(objects)i(do)g(not)g(ha)n(v)o(e)g(references)e(to)j(subnodes)e(\(or)g
-("sube)o(xtensions"\))f(themselv)o(es;)h(in)i(order)396
-3598 y(to)g(get)f(one)f(of)h(the)h(children)d(of)i(an)g(e)o(xtension)f
-(you)g(must)i(\002rst)g(go)e(to)i(the)f(node)f(object,)h(then)f(get)h
-(the)h(child)e(node,)396 3706 y(and)h(\002nally)g(reach)f(the)i(e)o
-(xtension)d(that)j(is)g(logically)e(the)h(child)g(of)g(the)g(e)o
-(xtension)f(you)g(started)h(with.)-2 4034 y Fp(3.3.1.)35
-b(Ho)n(w)f(to)f(de\002ne)h(an)g(e)n(xtension)i(c)n(lass)396
-4202 y Fv(At)21 b(minimum,)e(you)g(must)h(de\002ne)g(the)g(methods)f
-Fq(clone)p Fv(,)h Fq(node)p Fv(,)g(and)f Fq(set_node)h
-Fv(such)f(that)i(your)e(class)i(is)396 4310 y(compatible)e(with)h(the)h
-(type)e Fq(extension)p Fv(.)g(The)h(method)f Fq(set_node)g
-Fv(is)i(called)f(during)f(the)h(initialization)g(of)g(the)396
-4418 y(node,)f(or)h(after)g(a)h(node)e(has)h(been)g(cloned;)f(the)h
-(node)f(object)h(in)m(v)n(ok)o(es)f Fq(set_node)g Fv(on)h(the)g(e)o
-(xtension)f(object)h(to)g(tell)396 4526 y(it)h(that)f(this)h(node)e(is)
-i(no)n(w)f(the)g(object)g(the)g(e)o(xtension)f(is)i(link)o(ed)f(to.)g
-(The)f(e)o(xtension)g(must)h(return)f(the)i(node)e(object)396
-4633 y(passed)h(as)h(ar)o(gument)d(of)i Fq(set_node)f
-Fv(when)h(the)g Fq(node)g Fv(method)f(is)i(called.)p
-Black 3798 5278 a Fr(66)p Black eop
-%%Page: 67 67
-67 66 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 396 579 a Fv(The)g
-Fq(clone)g Fv(method)f(must)h(return)f(a)i(cop)o(y)e(of)h(the)g(e)o
-(xtension)f(object;)h(at)g(least)h(the)f(object)g(itself)h(must)f(be)
-396 687 y(duplicated,)f(b)n(ut)h(if)g(required,)e(the)j(cop)o(y)e
-(should)g(deeply)g(duplicate)g(all)i(objects)f(and)g(v)n(alues)g(that)g
-(are)g(referred)e(by)396 795 y(the)i(e)o(xtension,)f(too.)h(Whether)f
-(this)i(is)g(required,)d(depends)h(on)h(the)g(application;)f
-Fq(clone)h Fv(is)h(in)m(v)n(ok)o(ed)d(by)i(the)g(node)396
-903 y(object)g(when)g(one)f(of)h(its)h(cloning)e(methods)g(is)i
-(called.)396 1052 y(A)g(good)e(starting)h(point)f(for)h(an)g(e)o
-(xtension)e(class:)396 1232 y Fq(class)44 b(custom_extension)e(=)486
-1329 y(object)i(\(self\))576 1524 y(val)g(mutable)g(node)g(=)g(\(None)g
-(:)h(custom_extension)d(node)i(option\))576 1718 y(method)f(clone)h(=)h
-({<)g(>})576 1912 y(method)e(node)i(=)665 2009 y(match)f(node)g(with)
-845 2107 y(None)g(->)934 2204 y(assert)g(false)755 2301
-y(|)h(Some)f(n)g(->)h(n)576 2495 y(method)e(set_node)h(n)h(=)665
-2592 y(node)f(<-)h(Some)f(n)486 2786 y(end)396 2977 y
-Fv(This)21 b(class)g(is)g(compatible)e(with)h Fq(extension)p
-Fv(.)f(The)h(purpose)e(of)i(de\002ning)f(such)h(a)h(class)g(is,)g(of)f
-(course,)f(adding)396 3085 y(further)g(methods;)g(and)h(you)f(can)h(do)
-g(it)h(without)e(restriction.)396 3235 y(Often,)h(you)f(w)o(ant)h(not)g
-(only)g(one)f(e)o(xtension)g(class.)i(In)f(this)h(case,)f(it)h(is)g
-(the)f(simplest)h(w)o(ay)f(that)g(all)h(your)e(classes)i(\(for)396
-3343 y(one)f(kind)f(of)h(document\))e(ha)n(v)o(e)i(the)g(same)g(type)g
-(\(with)g(respect)g(to)g(the)g(interf)o(ace;)g(i.e.)g(it)h(does)f(not)g
-(matter)g(if)g(your)396 3451 y(classes)i(dif)n(fer)d(in)h(the)g
-(de\002ned)f(pri)n(v)n(ate)h(methods)f(and)g(instance)h(v)n(ariables,)f
-(b)n(ut)h(public)g(methods)f(count\).)f(This)396 3559
-y(approach)g(a)n(v)n(oids)i(lots)h(of)f(coercions)f(and)h(problems)e
-(with)j(type)f(incompatibilities.)e(It)j(is)g(simple)f(to)g(implement:)
-396 3739 y Fq(class)44 b(custom_extension)e(=)486 3836
-y(object)i(\(self\))576 3933 y(val)g(mutable)g(node)g(=)g(\(None)g(:)h
-(custom_extension)d(node)i(option\))576 4127 y(method)f(clone)h(=)h
-(...)269 b(\(*)44 b(see)g(above)g(*\))576 4224 y(method)f(node)i(=)f
-(...)314 b(\(*)44 b(see)g(above)g(*\))576 4322 y(method)f(set_node)h(n)
-h(=)f(...)h(\(*)f(see)g(above)g(*\))576 4516 y(method)f(virtual)h
-(my_method1)f(:)i(...)576 4613 y(method)e(virtual)h(my_method2)f(:)i
-(...)576 4710 y(...)f(\(*)g(etc.)h(*\))486 4807 y(end)p
-Black 3797 5278 a Fr(67)p Black eop
-%%Page: 68 68
-68 67 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 396 676 a Fq(class)44
-b(custom_extension_kind_A)d(=)486 773 y(object)j(\(self\))576
-870 y(inherit)f(custom_extension)576 1065 y(method)g(my_method1)h(=)g
-(...)576 1162 y(method)f(my_method2)h(=)g(...)486 1259
-y(end)396 1453 y(class)g(custom_extension_kind_B)d(=)486
-1550 y(object)j(\(self\))576 1647 y(inherit)f(custom_extension)576
-1842 y(method)g(my_method1)h(=)g(...)576 1939 y(method)f(my_method2)h
-(=)g(...)486 2036 y(end)396 2227 y Fv(If)20 b(a)h(class)g(does)f(not)g
-(need)f(a)i(method)e(\(e.g.)g(because)h(it)h(does)e(not)h(mak)o(e)g
-(sense,)g(or)g(it)h(w)o(ould)f(violate)f(some)396 2335
-y(important)g(condition\),)f(it)j(is)g(possible)f(to)g(de\002ne)g(the)g
-(method)f(and)g(to)i(al)o(w)o(ays)f(raise)h(an)f(e)o(xception)e(when)i
-(the)396 2443 y(method)f(is)i(in)m(v)n(ok)o(ed)e(\(e.g.)g
-Fq(assert)44 b(false)p Fv(\).)396 2592 y(The)20 b(latter)g(is)i(a)e
-(strong)g(recommendation:)c(do)k(not)g(try)g(to)g(further)f(specialize)
-h(the)g(types)g(of)g(e)o(xtension)f(objects.)h(It)g(is)396
-2700 y(dif)n(\002cult,)g(sometimes)g(e)n(v)o(en)f(impossible,)g(and)h
-(almost)g(ne)n(v)o(er)f(w)o(orth-while.)-2 3070 y Fp(3.3.2.)35
-b(Ho)n(w)f(to)f(bind)h(e)n(xtension)h(c)n(lasses)h(to)d(element)i
-(types)396 3237 y Fv(Once)20 b(you)f(ha)n(v)o(e)h(de\002ned)f(your)g(e)
-o(xtension)g(classes,)i(you)e(can)h(bind)g(them)f(to)i(element)e
-(types.)h(The)g(simplest)h(case)f(is)396 3345 y(that)h(you)e(ha)n(v)o
-(e)g(only)h(one)f(class)j(and)d(that)i(this)f(class)h(is)h(to)e(be)g
-(al)o(w)o(ays)h(used.)e(The)h(parsing)f(functions)g(in)h(the)h(module)
-396 3453 y Fq(Pxp_yacc)f Fv(tak)o(e)g(a)h Fq(spec)f Fv(ar)o(gument)d
-(which)j(can)g(be)g(customized.)f(If)h(your)f(single)h(class)h(has)g
-(the)f(name)f Fq(c)p Fv(,)i(this)396 3561 y(ar)o(gument)d(should)h(be)
-396 3741 y Fq(let)45 b(spec)f(=)486 3839 y(make_spec_from_alist)576
-3936 y(~data_exemplar:)535 b(\(new)44 b(data_impl)g(c\))576
-4033 y(~default_element_exemplar:)c(\(new)k(element_impl)f(c\))576
-4130 y(~element_alist:)535 b([])576 4227 y(\(\))396 4418
-y Fv(This)21 b(means)f(that)g(data)g(nodes)f(will)i(be)f(created)g
-(from)f(the)h(e)o(x)o(emplar)e(passed)i(by)g(~data_e)o(x)o(emplar)d
-(and)j(that)g(all)396 4526 y(element)g(nodes)f(will)i(be)f(made)g(from)
-f(the)h(e)o(x)o(emplar)e(speci\002ed)i(by)g(~def)o(ault_element_e)o(x)o
-(emplar)-5 b(.)15 b(In)396 4634 y(~element_alist,)k(you)h(can)g(pass)g
-(that)h(dif)n(ferent)d(e)o(x)o(emplars)h(are)h(to)g(be)g(used)g(for)g
-(dif)n(ferent)e(element)i(types;)g(b)n(ut)g(this)396
-4742 y(is)h(an)g(optional)d(feature.)h(If)h(you)g(do)g(not)f(need)h
-(it,)h(pass)f(the)g(empty)g(list.)p Black 3800 5278 a
-Fr(68)p Black eop
-%%Page: 69 69
-69 68 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 396 579 a Fv(Remember)f(that)i(an)f
-(e)o(x)o(emplar)e(is)j(a)g(\(node,)d(e)o(xtension\))h(pair)g(that)i
-(serv)o(es)f(as)h(pattern)e(when)h(ne)n(w)g(nodes)f(\(and)g(the)396
-687 y(corresponding)e(e)o(xtension)i(objects\))g(are)h(added)f(to)i
-(the)f(document)e(tree.)i(In)g(this)h(case,)f(the)g(e)o(x)o(emplar)f
-(contains)g Fq(c)i Fv(as)396 795 y(e)o(xtension,)e(and)g(when)h(nodes)f
-(are)i(created,)e(the)h(e)o(x)o(emplar)e(is)j(cloned,)e(and)h(cloning)f
-(mak)o(es)h(also)g(a)h(cop)o(y)e(of)h Fq(c)h Fv(such)396
-903 y(that)g(all)f(nodes)g(of)g(the)g(document)e(tree)i(will)h(ha)n(v)o
-(e)f(a)g(cop)o(y)g(of)g Fq(c)g Fv(as)h(e)o(xtension.)396
-1052 y(The)f Fq(~element_alist)f Fv(ar)o(gument)e(can)j(bind)g
-(speci\002c)g(element)g(types)g(to)g(speci\002c)g(e)o(x)o(emplars;)f
-(as)i(e)o(x)o(emplars)396 1160 y(may)f(be)g(instances)g(of)g(dif)n
-(ferent)f(classes)i(it)g(is)g(ef)n(fecti)n(v)o(ely)d(possible)i(to)h
-(bind)e(element)h(types)g(to)g(classes.)h(F)o(or)396
-1268 y(e)o(xample,)e(if)h(the)g(element)g(type)g("p")g(is)h
-(implemented)d(by)i(class)h("c_p",)e(and)h("q")g(is)h(realized)f(by)f
-("c_q",)h(you)f(can)396 1376 y(pass)i(the)f(follo)n(wing)f(v)n(alue:)
-396 1556 y Fq(let)45 b(spec)f(=)486 1653 y(make_spec_from_alist)576
-1750 y(~data_exemplar:)535 b(\(new)44 b(data_impl)g(c\))576
-1847 y(~default_element_exemplar:)c(\(new)k(element_impl)f(c\))576
-1945 y(~element_alist:)665 2042 y([)i("p",)f(new)g(element_impl)f(c_p;)
-755 2139 y("q",)h(new)g(element_impl)f(c_q;)665 2236
-y(])576 2333 y(\(\))396 2524 y Fv(The)20 b(e)o(xtension)f(object)h
-Fq(c)g Fv(is)h(still)h(used)e(for)f(all)i(data)f(nodes)f(and)h(for)g
-(all)g(other)g(element)f(types.)-2 3026 y Fx(3.4.)39
-b(Details)f(of)i(the)f(mapping)e(fr)m(om)i(XML)g(te)n(xt)g(to)g(the)g
-(tree)-2 3212 y(representation)-2 3540 y Fp(3.4.1.)c(The)f
-(representation)h(of)e(c)o(haracter)n(-free)h(elements)396
-3708 y Fv(If)20 b(an)g(element)g(declaration)f(does)h(not)f(allo)n(w)i
-(the)f(element)f(to)i(contain)e(character)g(data,)h(the)g(follo)n(wing)
-e(rules)j(apply)-5 b(.)396 3858 y(If)20 b(the)h(element)e(must)h(be)g
-(empty)-5 b(,)19 b(i.e.)h(it)h(is)g(declared)e(with)i(the)f(k)o(e)o(yw)
-o(ord)e Fq(EMPTY)p Fv(,)i(the)g(element)g(instance)g(must)g(be)396
-3965 y(ef)n(fecti)n(v)o(ely)f(empty)g(\(it)h(must)h(not)f(e)n(v)o(en)f
-(contain)g(whitespace)h(characters\).)e(The)i(parser)g(guarantees)e
-(that)j(a)f(declared)396 4073 y Fq(EMPTY)g Fv(element)g(does)g(ne)n(v)o
-(er)f(contain)g(a)h(data)g(node,)f(e)n(v)o(en)g(if)i(the)f(data)g(node)
-f(represents)h(the)g(empty)f(string.)396 4223 y(If)h(the)h(element)e
-(declaration)g(only)g(permits)h(other)f(elements)h(to)h(occur)e(within)
-h(that)g(element)g(b)n(ut)g(not)g(character)396 4331
-y(data,)g(it)h(is)g(still)g(possible)f(to)h(insert)f(whitespace)g
-(characters)f(between)g(the)h(subelements.)f(The)h(parser)g(ignores)f
-(these)396 4439 y(characters,)g(too,)h(and)g(does)f(not)h(create)g
-(data)g(nodes)g(for)f(them.)396 4588 y Fu(Example.)h
-Fv(Consider)g(the)g(follo)n(wing)f(element)g(types:)396
-4768 y Fq(<!ELEMENT)44 b(x)g(\()h(#PCDATA)f(|)g(z)h(\)*)f(>)396
-4865 y(<!ELEMENT)g(y)g(\()h(z)g(\)*)f(>)p Black 3800
-5278 a Fr(69)p Black eop
-%%Page: 70 70
-70 69 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 396 579 a Fq(<!ELEMENT)44
-b(z)g(EMPTY>)396 770 y Fv(Only)20 b Fq(x)h Fv(may)e(contain)h
-(character)e(data,)i(the)h(k)o(e)o(yw)o(ord)d Fq(#PCDATA)h
-Fv(indicates)h(this.)h(The)f(other)f(types)h(are)396
-878 y(character)n(-free.)396 1027 y(The)g(XML)g(term)396
-1207 y Fq(<x><z/>)44 b(<z/></x>)396 1398 y Fv(will)21
-b(be)f(internally)f(represented)g(by)g(an)i(element)e(node)g(for)h
-Fq(x)g Fv(with)h(three)f(subnodes:)e(the)j(\002rst)g
-Fq(z)f Fv(element,)g(a)g(data)396 1506 y(node)f(containing)g(the)h
-(space)g(character)m(,)e(and)i(the)g(second)g Fq(z)g
-Fv(element.)g(In)f(contrast)h(to)g(this,)h(the)f(term)396
-1686 y Fq(<y><z/>)44 b(<z/></y>)396 1877 y Fv(is)21 b(represented)e(by)
-h(an)g(element)f(node)g(for)h Fq(y)h Fv(with)f(only)f
-Fr(two)i Fv(subnodes,)e(the)h(tw)o(o)g Fq(z)h Fv(elements.)e(There)h
-(is)h(no)f(data)396 1985 y(node)f(for)h(the)g(space)g(character)f
-(because)h(spaces)g(are)g(ignored)f(in)h(the)g(character)n(-free)e
-(element)i Fq(y)p Fv(.)-2 2355 y Fp(3.4.2.)35 b(The)f(representation)h
-(of)e(c)o(haracter)h(data)396 2523 y Fv(The)20 b(XML)g(speci\002cation)
-g(allo)n(ws)g(all)h(Unicode)e(characters)g(in)i(XML)f(te)o(xts.)g(This)
-g(parser)g(can)g(be)g(con\002gured)e(such)396 2631 y(that)j(UTF-8)e(is)
-i(used)f(to)h(represent)e(the)h(characters)f(internally;)g(ho)n(we)n(v)
-o(er)m(,)f(the)i(def)o(ault)g(character)e(encoding)h(is)396
-2738 y(ISO-8859-1.)e(\(Currently)-5 b(,)18 b(no)i(other)f(encodings)g
-(are)h(possible)g(for)f(the)i(internal)e(string)h(representation;)e
-(the)i(type)396 2846 y Fq(Pxp_types.rep_encoding)d Fv(enumerates)i(the)
-h(possible)g(encodings.)e(Principially)-5 b(,)19 b(the)h(parser)g
-(could)f(use)h(an)o(y)396 2954 y(encoding)e(that)j(is)g
-(ASCII-compatible,)d(b)n(ut)i(there)g(are)g(currently)e(only)i(le)o
-(xical)f(analyzers)h(for)f(UTF-8)h(and)396 3062 y(ISO-8859-1.)d(It)k
-(is)g(currently)d(impossible)i(to)g(use)h(UTF-16)e(or)h(UCS-4)g(as)h
-(internal)f(encodings)e(\(or)i(other)f(multibyte)396
-3170 y(encodings)g(which)g(are)h(not)g(ASCII-compatible\))e(unless)i
-(major)g(parts)g(of)g(the)g(parser)g(are)g(re)n(written)f(-)i(unlik)o
-(ely)-5 b(...\))396 3320 y(The)20 b(internal)g(encoding)e(may)h(be)h
-(dif)n(ferent)f(from)g(the)h(e)o(xternal)f(encoding)f(\(speci\002ed)i
-(in)g(the)g(XML)h(declaration)396 3428 y Fo(<)p Fq(?xml)44
-b(...)g(encoding="..."?)p Fo(>)p Fv(\);)18 b(in)j(this)f(case)h(the)f
-(strings)g(are)g(automatically)f(con)m(v)o(erted)f(to)i(the)g(internal)
-396 3535 y(encoding.)396 3685 y(If)g(the)h(internal)e(encoding)f(is)j
-(ISO-8859-1,)c(it)k(is)g(possible)f(that)g(there)g(are)g(characters)g
-(that)g(cannot)f(be)h(represented.)396 3793 y(In)g(this)h(case,)f(the)g
-(parser)g(ignores)f(such)h(characters)f(and)h(prints)g(a)h(w)o(arning)e
-(\(to)h(the)g Fq(collect_warning)e Fv(object)396 3901
-y(that)j(must)f(be)g(passed)g(when)g(the)g(parser)f(is)i(called\).)396
-4050 y(The)f(XML)g(speci\002cation)g(allo)n(ws)g(lines)h(to)f(be)g
-(separated)g(by)f(single)h(LF)h(characters,)e(by)h(CR)h(LF)g(character)
-396 4158 y(sequences,)e(or)h(by)g(single)g(CR)i(characters.)d
-(Internally)-5 b(,)18 b(these)i(separators)f(are)h(al)o(w)o(ays)h(con)m
-(v)o(erted)d(to)i(single)g(LF)396 4266 y(characters.)396
-4416 y(The)g(parser)g(guarantees)e(that)j(there)e(are)i(ne)n(v)o(er)d
-(tw)o(o)j(adjacent)e(data)h(nodes;)g(if)g(necessary)-5
-b(,)19 b(data)h(material)g(that)g(w)o(ould)396 4523 y(otherwise)g(be)g
-(represented)e(by)i(se)n(v)o(eral)g(nodes)f(is)i(collapsed)f(into)f
-(one)h(node.)f(Note)h(that)g(you)g(can)g(still)h(create)f(node)396
-4631 y(trees)h(with)f(adjacent)g(data)g(nodes;)f(ho)n(we)n(v)o(er)m(,)f
-(the)i(parser)g(does)f(not)h(return)f(such)h(trees.)p
-Black 3800 5278 a Fr(70)p Black eop
-%%Page: 71 71
-71 70 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black 396 579 a Fv(Note)g(that)h(CD)m(A)
--9 b(T)h(A)20 b(sections)g(are)g(not)g(represented)f(specially;)h(such)
-g(sections)g(are)g(added)f(to)h(the)h(current)d(data)396
-687 y(material)i(that)g(being)g(collected)f(for)h(the)g(ne)o(xt)f(data)
-h(node.)-2 1056 y Fp(3.4.3.)35 b(The)f(representation)h(of)e(entities)h
-(within)g(documents)396 1224 y Fr(Entities)21 b(ar)m(e)f(not)g(r)m(epr)
-m(esented)f(within)i(documents!)d Fv(If)i(the)h(parser)e(\002nds)h(an)h
-(entity)e(reference)g(in)h(the)g(document)396 1332 y(content,)f(the)h
-(reference)f(is)i(immediately)e(e)o(xpanded,)e(and)j(the)g(parser)g
-(reads)g(the)g(e)o(xpansion)e(te)o(xt)i(instead)g(of)g(the)396
-1440 y(reference.)-2 1810 y Fp(3.4.4.)35 b(The)f(representation)h(of)e
-(attrib)n(utes)396 1977 y Fv(As)21 b(attrib)n(ute)f(v)n(alues)g(are)g
-(composed)e(of)i(Unicode)f(characters,)g(too,)h(the)g(same)h(problems)d
-(with)j(the)f(character)396 2085 y(encoding)e(arise)j(as)g(for)e
-(character)g(material.)h(Attrib)n(ute)g(v)n(alues)g(are)g(con)m(v)o
-(erted)d(to)k(the)f(internal)f(encoding,)f(too;)i(and)396
-2193 y(if)h(there)e(are)i(characters)e(that)h(cannot)f(be)h
-(represented,)e(these)j(are)f(dropped,)e(and)h(a)i(w)o(arning)e(is)i
-(printed.)396 2343 y(Attrib)n(ute)f(v)n(alues)g(are)g(normalized)e
-(before)h(the)o(y)h(are)g(returned)e(by)i(methods)f(lik)o(e)h
-Fq(attribute)p Fv(.)f(First,)i(an)o(y)396 2451 y(remaining)e(entity)h
-(references)e(are)i(e)o(xpanded;)e(if)j(necessary)-5
-b(,)19 b(e)o(xpansion)f(is)j(performed)c(recursi)n(v)o(ely)-5
-b(.)18 b(Second,)396 2558 y(ne)n(wline)i(characters)f(\(an)o(y)g(of)h
-(LF)-7 b(,)21 b(CR)g(LF)-7 b(,)21 b(or)f(CR)h(characters\))e(are)h(con)
-m(v)o(erted)e(to)i(single)g(space)h(characters.)e(Note)396
-2666 y(that)i(especially)e(the)i(latter)f(action)g(is)h(prescribed)d
-(by)i(the)g(XML)g(standard)f(\(b)n(ut)41 b(is)21 b(not)f(con)m(v)o
-(erted)e(such)i(that)g(it)h(is)396 2774 y(still)h(possible)e(to)g
-(include)f(line)h(feeds)g(into)g(attrib)n(utes\).)-2
-3144 y Fp(3.4.5.)35 b(The)f(representation)h(of)e(pr)n(ocessing)h
-(instructions)396 3312 y Fv(Processing)20 b(instructions)f(are)h
-(parsed)g(to)g(some)g(e)o(xtent:)f(The)h(\002rst)h(w)o(ord)f(of)g(the)g
-(PI)g(is)i(called)e(the)g(tar)o(get,)f(and)g(it)i(is)396
-3420 y(stored)f(separated)f(from)g(the)i(rest)f(of)g(the)g(PI:)396
-3600 y Fq(<?target)44 b(rest?>)396 3791 y Fv(The)20 b(e)o(xact)g
-(location)f(where)h(a)g(PI)h(occurs)e(is)i(not)f(represented)f(\(by)g
-(def)o(ault\).)g(The)h(parser)f(puts)i(the)f(PI)g(into)g(the)396
-3899 y(object)g(that)g(represents)g(the)g(embracing)e(construct)h(\(an)
-h(element,)f(a)i(DTD,)f(or)g(the)g(whole)g(document\);)e(that)i(means)
-396 4007 y(you)g(can)g(\002nd)f(out)h(which)g(PIs)h(occur)e(in)h(a)h
-(certain)f(element,)f(in)h(the)h(DTD,)f(or)g(in)g(the)g(whole)g
-(document,)e(b)n(ut)i(you)396 4114 y(cannot)f(lookup)g(the)h(e)o(xact)g
-(position)f(within)h(the)g(construct.)396 4264 y(If)g(you)g(require)e
-(the)j(e)o(xact)e(location)h(of)g(PIs,)g(it)h(is)g(possible)f(to)g
-(create)g(e)o(xtra)g(nodes)f(for)h(them.)f(This)i(mode)e(is)396
-4372 y(controled)g(by)g(the)i(option)e Fq(enable_pinstr_nodes)p
-Fv(.)e(The)j(additional)f(nodes)g(ha)n(v)o(e)h(the)g(node)f(type)h
-Fq(T_pinstr)396 4480 y Fn(target)p Fv(,)g(and)f(are)i(created)e(from)g
-(special)h(e)o(x)o(emplars)f(contained)f(in)j(the)f Fq(spec)g
-Fv(\(see)g(pxp_document.mli\).)p Black 3800 5278 a Fr(71)p
-Black eop
-%%Page: 72 72
-72 71 bop Black 2225 67 a Fr(Chapter)20 b(3.)g(The)g(objects)g(r)m(epr)
-m(esenting)g(the)g(document)p Black -2 583 a Fp(3.4.6.)35
-b(The)f(representation)h(of)e(comments)396 751 y Fv(Normally)-5
-b(,)19 b(comments)g(are)h(not)g(represented;)e(the)o(y)i(are)g(dropped)
-e(by)h(def)o(ault.)h(Ho)n(we)n(v)o(er)m(,)e(if)i(you)f(require)g(them,)
-h(it)h(is)396 859 y(possible)f(to)h(create)e Fq(T_comment)h
-Fv(nodes)f(for)h(them.)f(This)i(mode)e(can)h(be)g(speci\002ed)g(by)g
-(the)g(option)396 967 y Fq(enable_comment_nodes)p Fv(.)d(Comment)j
-(nodes)f(are)h(created)g(from)f(special)h(e)o(x)o(emplars)f(contained)f
-(in)j(the)f Fq(spec)396 1075 y Fv(\(see)h(pxp_document.mli\).)15
-b(Y)-9 b(ou)19 b(can)h(access)h(the)f(contents)g(of)g(comments)f
-(through)f(the)i(method)f Fq(comment)p Fv(.)-2 1444 y
-Fp(3.4.7.)35 b(The)f(attrib)n(utes)f Fc(xml:lang)d Fp(and)k
-Fc(xml:space)396 1612 y Fv(These)20 b(attrib)n(utes)g(are)g(not)g
-(supported)f(specially;)h(the)o(y)f(are)h(handled)f(lik)o(e)h(an)o(y)g
-(other)f(attrib)n(ute.)-2 1982 y Fp(3.4.8.)35 b(And)f(what)f(about)h
-(namespaces?)396 2149 y Fv(Currently)-5 b(,)19 b(there)g(is)i(no)f
-(special)h(support)d(for)i(namespaces.)f(Ho)n(we)n(v)o(er)m(,)f(the)i
-(parser)g(allo)n(ws)g(it)h(that)f(the)h(colon)e(occurs)396
-2257 y(in)i(names)e(such)h(that)h(it)g(is)g(possible)f(to)g(implement)f
-(namespaces)g(on)h(top)g(of)g(the)g(current)f(API.)396
-2407 y(Some)h(future)f(release)h(of)g(PXP)h(will)g(support)e
-(namespaces)g(as)i(b)n(uilt-in)f(feature...)p Black 3800
-5278 a Fr(72)p Black eop
-%%Page: 73 73
-73 72 bop Black Black -2 621 a Fs(Chapter)48 b(4.)f(Con\002guring)j
-(and)e(calling)f(the)h(par)m(ser)-2 1055 y Fx(4.1.)39
-b(Over)q(vie)n(w)396 1235 y Fv(There)20 b(are)g(the)g(follo)n(wing)f
-(main)g(functions)g(in)m(v)n(oking)f(the)i(parser)g(\(in)g(Pxp_yacc\):)
-p Black 396 1558 a Ft(\225)p Black 60 w Fr(par)o(se_document_entity:)d
-Fv(Y)-9 b(ou)19 b(w)o(ant)i(to)f(parse)g(a)g(complete)g(and)f(closed)h
-(document)e(consisting)i(of)g(a)g(DTD)h(and)479 1666
-y(the)f(document)f(body;)g(the)h(body)f(is)i(v)n(alidated)e(against)g
-(the)h(DTD.)h(This)f(mode)f(is)i(interesting)f(if)g(you)f(ha)n(v)o(e)h
-(a)h(\002le)479 1835 y Fq(<!DOCTYPE)44 b(root)g(...)g([)h(...)f(])h(>)f
-(<root>)g(...)h(</root>)396 1984 y Fv(and)20 b(you)f(can)h(accept)g(an)
-o(y)f(DTD)i(that)f(is)h(included)e(in)h(the)g(\002le)h(\(e.g.)f
-(because)f(the)h(\002le)h(is)g(under)e(your)g(control\).)p
-Black 396 2092 a Ft(\225)p Black 60 w Fr(par)o(se_wfdocument_entity:)e
-Fv(Y)-9 b(ou)20 b(w)o(ant)g(to)g(parse)g(a)h(complete)e(and)h(closed)f
-(document)g(consisting)g(of)h(a)h(DTD)479 2200 y(and)f(the)g(document)e
-(body;)h(b)n(ut)h(the)h(body)d(is)k(not)d(v)n(alidated,)g(only)h(check)
-o(ed)e(for)i(well-formedness.)e(This)i(mode)f(is)479
-2308 y(preferred)f(if)j(v)n(alidation)d(costs)j(too)f(much)f(time)i(or)
-f(if)g(the)g(DTD)h(is)g(missing.)p Black 396 2416 a Ft(\225)p
-Black 60 w Fr(par)o(se_dtd_entity:)d Fv(Y)-9 b(ou)20
-b(w)o(ant)g(only)f(to)i(parse)e(an)i(entity)e(\(\002le\))i(containing)d
-(the)i(e)o(xternal)f(subset)h(of)g(a)h(DTD.)479 2524
-y(Sometimes)f(it)h(is)g(interesting)e(to)i(read)e(such)h(a)h(DTD,)f
-(for)g(e)o(xample)e(to)j(compare)d(it)j(with)g(the)f(DTD)g(included)f
-(in)h(a)479 2632 y(document,)e(or)i(to)g(apply)g(the)g(ne)o(xt)f(mode:)
-p Black 396 2740 a Ft(\225)p Black 60 w Fr(par)o(se_content_entity:)e
-Fv(Y)-9 b(ou)20 b(w)o(ant)g(only)g(to)g(parse)g(an)g(entity)g
-(\(\002le\))g(containing)e(a)j(fragment)d(of)i(a)h(document)479
-2848 y(body;)e(this)i(fragment)d(is)j(v)n(alidated)f(against)f(the)h
-(DTD)h(you)e(pass)i(to)f(the)g(function.)e(Especially)-5
-b(,)19 b(the)i(fragment)479 2956 y(must)g(not)e(ha)n(v)o(e)h(a)65
-b Fo(<)p Fq(!DOCTYPE)p Fo(>)19 b Fv(clause,)h(and)g(must)g(directly)g
-(be)o(gin)f(with)h(an)g(element.)f(The)h(element)g(is)479
-3064 y(v)n(alidated)f(against)h(the)g(DTD.)g(This)h(mode)e(is)i
-(interesting)e(if)i(you)e(w)o(ant)h(to)h(check)e(documents)f(against)i
-(a)h(\002x)o(ed,)479 3172 y(immutable)e(DTD.)p Black
-396 3280 a Ft(\225)p Black 60 w Fr(par)o(se_wfcontent_entity:)f
-Fv(This)i(function)f(also)h(parses)g(a)h(single)f(element)g(without)f
-(DTD,)h(b)n(ut)g(does)g(not)g(v)n(alidate)479 3388 y(it.)p
-Black 396 3495 a Ft(\225)p Black 60 w Fr(e)n(xtr)o(act_dtd_fr)l
-(om_document_entity:)15 b Fv(This)20 b(function)f(e)o(xtracts)g(the)i
-(DTD)f(from)f(a)i(closed)f(document)479 3603 y(consisting)g(of)g(a)g
-(DTD)h(and)e(a)i(document)d(body)-5 b(.)18 b(Both)j(the)f(internal)f
-(and)h(the)g(e)o(xternal)f(subsets)h(are)h(e)o(xtracted.)396
-3794 y(In)f(man)o(y)f(cases,)i Fq(parse_document_entity)c
-Fv(is)k(the)f(preferred)e(mode)i(to)g(parse)g(a)g(document)f(in)h(a)h
-(v)n(alidating)396 3902 y(w)o(ay)-5 b(,)20 b(and)g Fq
-(parse_wfdocument_entity)c Fv(is)22 b(the)e(mode)f(of)h(choice)f(to)i
-(parse)f(a)g(\002le)h(while)f(only)g(checking)e(for)396
-4010 y(well-formedness.)396 4160 y(There)i(are)g(a)g(number)f(of)h(v)n
-(ariations)f(of)h(these)g(modes.)f(One)h(important)f(application)g(of)h
-(a)g(parser)g(is)h(to)f(check)396 4268 y(documents)f(of)h(an)g
-(untrusted)f(source)g(against)h(a)g(\002x)o(ed)g(DTD.)g(One)g(solution)
-f(is)i(to)g(not)f(allo)n(w)g(the)g Fo(<)p Fq(!DOCTYPE)p
-Fo(>)396 4375 y Fv(clause)g(in)h(these)f(documents,)e(and)i(treat)g
-(the)h(document)d(lik)o(e)i(a)h(fragment)d(\(using)i(mode)f
-Fr(par)o(se_content_entity)p Fv(\).)396 4483 y(This)i(is)g(v)o(ery)e
-(simple,)h(b)n(ut)g(in\003e)o(xible;)f(users)i(of)e(such)h(a)h(system)f
-(cannot)f(e)n(v)o(en)h(de\002ne)f(additional)g(entities)i(to)396
-4591 y(abbre)n(viate)e(frequent)f(phrases)i(of)g(their)g(te)o(xt.)396
-4741 y(It)h(may)e(be)i(necessary)e(to)h(ha)n(v)o(e)g(a)h(more)e
-(intelligent)g(check)o(er)-5 b(.)20 b(F)o(or)g(e)o(xample,)e(it)j(is)g
-(also)g(possible)e(to)i(parse)f(the)396 4849 y(document)e(to)j(check)e
-(fully)-5 b(,)19 b(i.e.)h(with)h(DTD,)f(and)f(to)i(compare)d(this)j
-(DTD)f(with)h(the)f(prescribed)f(one.)g(In)h(order)f(to)p
-Black 3800 5278 a Fr(73)p Black eop
-%%Page: 74 74
-74 73 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 396 579 a Fv(fully)g(parse)g(the)g
-(document,)e(mode)h Fr(par)o(se_document_entity)e Fv(is)k(applied,)e
-(and)h(to)g(get)g(the)g(DTD)h(to)f(compare)f(with)396
-687 y(mode)g Fr(par)o(se_dtd_entity)f Fv(can)i(be)h(used.)396
-836 y(There)f(is)h(another)d(v)o(ery)i(important)e(con\002gurable)g
-(aspect)i(of)g(the)g(parser:)g(the)g(so-called)g(resolv)o(er)-5
-b(.)19 b(The)h(task)g(of)g(the)396 944 y(resolv)o(er)f(is)i(to)g
-(locate)f(the)g(contents)f(of)h(an)g(\(e)o(xternal\))f(entity)g(for)h
-(a)h(gi)n(v)o(en)e(entity)g(name,)h(and)f(to)i(mak)o(e)e(the)i
-(contents)396 1052 y(accessible)g(as)f(a)h(character)e(stream.)h
-(\(Furthermore,)d(it)k(also)f(normalizes)g(the)g(character)f(set;)i(b)n
-(ut)f(this)h(is)g(a)f(detail)h(we)396 1160 y(can)f(ignore)f(here.\))g
-(Consider)h(you)f(ha)n(v)o(e)h(a)g(\002le)h(called)f
-Fq("main.xml")f Fv(containing)396 1340 y Fq(<!ENTITY)44
-b(\045)g(sub)h(SYSTEM)f("sub/sub.xml">)396 1437 y(\045sub;)396
-1628 y Fv(and)20 b(a)h(\002le)f(stored)g(in)g(the)h(subdirectory)c
-Fq("sub")j Fv(with)h(name)e Fq("sub.xml")g Fv(containing)396
-1808 y Fq(<!ENTITY)44 b(\045)g(subsub)g(SYSTEM)g("subsub/subsub.xml">)
-396 1906 y(\045subsub;)396 2097 y Fv(and)20 b(a)g(\002le)h(stored)e(in)
-h(the)g(subdirectory)d Fq("subsub")j Fv(of)f Fq("sub")h
-Fv(with)g(name)f Fq("subsub.xml")g Fv(\(the)g(contents)h(of)f(this)396
-2204 y(\002le)i(do)f(not)g(matter\).)f(Here,)h(the)g(resolv)o(er)f
-(must)h(track)g(that)g(the)g(second)g(entity)g Fq(subsub)f
-Fv(is)i(located)f(in)g(the)h(directory)396 2312 y Fq("sub/subsub")p
-Fv(,)e(i.e.)h(the)g(dif)n(\002culty)f(is)i(to)g(interpret)e(the)h
-(system)g(\(\002le\))h(names)e(of)h(entities)h(relati)n(v)o(e)e(to)i
-(the)f(entities)396 2420 y(containing)f(them,)g(e)n(v)o(en)g(if)i(the)f
-(entities)h(are)f(deeply)f(nested.)396 2570 y(There)h(is)h(not)f(a)g
-(\002x)o(ed)g(resolv)o(er)f(already)g(doing)g(e)n(v)o(erything)e(right)
-j(-)g(resolving)f(entity)h(names)g(is)h(a)f(task)h(that)f(highly)396
-2678 y(depends)f(on)h(the)g(en)m(vironment.)d(The)j(XML)g
-(speci\002cation)f(only)h(demands)f(that)h Fq(SYSTEM)g
-Fv(entities)g(are)g(interpreted)396 2786 y(lik)o(e)h(URLs)g(\(which)e
-(is)i(not)f(v)o(ery)f(precise,)h(as)h(there)e(are)i(lots)f(of)g(URL)h
-(schemes)f(in)g(use\),)g(hoping)f(that)h(this)h(helps)396
-2894 y(o)o(v)o(ercoming)c(the)j(local)g(peculiarities)g(of)g(the)g(en)m
-(vironment;)d(the)k(idea)f(is)h(that)f(if)h(you)e(do)h(not)f(kno)n(w)h
-(your)396 3001 y(en)m(vironment)d(you)j(can)g(refer)f(to)h(other)g
-(entities)g(by)g(denoting)e(URLs)k(for)d(them.)h(I)g(think)g(that)g
-(this)h(interpretation)d(of)396 3109 y Fq(SYSTEM)i Fv(names)g(may)g(ha)
-n(v)o(e)f(some)h(applications)f(in)i(the)f(internet,)f(b)n(ut)h(it)h
-(is)g(not)f(the)g(\002rst)h(choice)f(in)g(general.)396
-3217 y(Because)h(of)f(this,)g(the)g(resolv)o(er)f(is)i(a)g(separate)f
-(module)e(of)i(the)h(parser)e(that)h(can)g(be)h(e)o(xchanged)c(by)j
-(another)f(one)g(if)396 3325 y(necessary;)h(more)f(precisely)-5
-b(,)19 b(the)h(parser)g(already)f(de\002nes)h(se)n(v)o(eral)f(resolv)o
-(ers.)396 3475 y(The)h(follo)n(wing)f(resolv)o(ers)g(do)h(already)f(e)o
-(xist:)p Black 396 3707 a Ft(\225)p Black 60 w Fv(Resolv)o(ers)h
-(reading)f(from)g(arbitrary)g(input)g(channels.)g(These)h(can)g(be)g
-(con\002gured)e(such)i(that)g(a)h(certain)f(ID)g(is)479
-3815 y(associated)g(with)h(the)f(channel;)f(in)h(this)h(case)g(inner)e
-(references)g(to)h(e)o(xternal)f(entities)i(can)f(be)g(resolv)o(ed.)e
-(There)i(is)479 3923 y(also)h(a)f(special)h(resolv)o(er)e(that)h
-(interprets)f(SYSTEM)i(IDs)f(as)h(URLs;)g(this)g(resolv)o(er)e(can)h
-(process)g(relati)n(v)o(e)479 4031 y(SYSTEM)h(names)e(and)h(determine)f
-(the)h(corresponding)d(absolute)i(URL.)p Black 396 4139
-a Ft(\225)p Black 60 w Fv(A)i(resolv)o(er)e(that)h(reads)g(al)o(w)o
-(ays)h(from)e(a)i(gi)n(v)o(en)d(O'Caml)j(string.)e(This)i(resolv)o(er)e
-(is)i(not)f(able)g(to)g(resolv)o(e)f(further)479 4247
-y(names)h(unless)g(the)h(string)f(is)h(not)f(associated)g(with)g(an)o
-(y)f(name,)h(i.e.)g(if)g(the)g(document)f(contained)f(in)j(the)f
-(string)479 4355 y(refers)g(to)g(an)g(e)o(xternal)f(entity)-5
-b(,)20 b(this)g(reference)f(cannot)g(be)h(follo)n(wed)f(in)h(this)h
-(case.)p Black 396 4463 a Ft(\225)p Black 60 w Fv(A)g(resolv)o(er)e
-(for)g(\002le)i(names.)f(The)g Fq(SYSTEM)g Fv(name)f(is)i(interpreted)e
-(as)i(\002le)f(URL)h(with)g(the)f(slash)h("/")f(as)h(separator)479
-4571 y(for)f(directories.)f(-)h(This)h(resolv)o(er)d(is)k(deri)n(v)o
-(ed)c(from)h(the)h(generic)f(URL)i(resolv)o(er)-5 b(.)396
-4720 y(The)20 b(interf)o(ace)f(a)i(resolv)o(er)e(must)h(ha)n(v)o(e)g
-(is)h(documented,)c(so)k(it)g(is)g(possible)f(to)g(write)g(your)f(o)n
-(wn)h(resolv)o(er)-5 b(.)19 b(F)o(or)396 4828 y(e)o(xample,)g(you)g
-(could)g(connect)g(the)h(parser)g(with)g(an)h(HTTP)f(client,)g(and)f
-(resolv)o(e)h(URLs)h(of)f(the)g(HTTP)g(namespace.)p Black
-3800 5278 a Fr(74)p Black eop
-%%Page: 75 75
-75 74 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 396 579 a Fv(The)g(resolv)o(er)f
-(classes)i(support)e(that)h(se)n(v)o(eral)g(independent)e(resolv)o(ers)
-h(are)h(combined)e(to)i(one)g(more)f(po)n(werful)396
-687 y(resolv)o(er;)g(thus)h(it)h(is)g(possible)f(to)h(combine)d(a)j
-(self-written)e(resolv)o(er)g(with)i(the)f(already)f(e)o(xisting)g
-(resolv)o(ers.)396 836 y(Note)h(that)h(the)f(e)o(xisting)f(resolv)o
-(ers)h(only)f(interpret)g Fq(SYSTEM)h Fv(names,)f(not)h
-Fq(PUBLIC)g Fv(names.)g(If)g(it)h(helps)f(you,)f(it)h(is)396
-944 y(possible)g(to)f(de\002ne)h(resolv)o(ers)e(for)h
-Fq(PUBLIC)h Fv(names,)f(too;)g(for)g(e)o(xample,)f(such)i(a)g(resolv)o
-(er)e(could)h(look)g(up)g(the)h(public)396 1052 y(name)g(in)g(a)h(hash)
-f(table,)g(and)f(map)h(it)h(to)f(a)h(system)f(name)g(which)g(is)h
-(passed)f(o)o(v)o(er)f(to)h(the)g(e)o(xisting)g(resolv)o(er)e(for)396
-1160 y(system)j(names.)e(It)i(is)g(relati)n(v)o(ely)e(simple)h(to)g
-(pro)o(vide)f(such)g(a)i(resolv)o(er)-5 b(.)-2 1579 y
-Fx(4.2.)39 b(Resolver)n(s)e(and)i(sour)m(ces)-2 1907
-y Fp(4.2.1.)c(Using)f(the)g(b)n(uilt-in)f(resolver)n(s)i(\(called)g
-(sour)n(ces\))396 2075 y Fv(The)20 b(type)g Fq(source)g
-Fv(enumerates)e(the)j(tw)o(o)f(possibilities)h(where)e(the)h(document)f
-(to)h(parse)g(comes)g(from.)396 2255 y Fq(type)44 b(source)g(=)576
-2352 y(Entity)f(of)i(\(\(dtd)f(-)p Fo(>)g Fq(Pxp_entity.entity\))e(*)j
-(Pxp_reader.resolver\))486 2449 y(|)g(ExtID)f(of)g(\(ext_id)g(*)g
-(Pxp_reader.resolver\))396 2640 y Fv(Y)-9 b(ou)20 b(normally)e(need)i
-(not)g(to)g(w)o(orry)f(about)h(this)g(type)g(as)h(there)f(are)g(con)m
-(v)o(enience)d(functions)i(that)h(create)g Fq(source)396
-2748 y Fv(v)n(alues:)p Black 396 3105 a Ft(\225)p Black
-60 w Fq(from_file)44 b(s)p Fv(:)20 b(The)g(document)e(is)j(read)f(from)
-f(\002le)i Fq(s)p Fv(;)g(you)e(may)h(specify)f(absolute)h(or)g(relati)n
-(v)o(e)f(path)h(names.)479 3213 y(The)g(\002le)h(name)f(must)g(be)g
-(encoded)e(as)j(UTF-8)f(string.)479 3362 y(There)g(is)h(an)f(optional)f
-(ar)o(gument)f Fq(~system_encoding)g Fv(specifying)g(the)j(character)d
-(encoding)h(which)g(is)i(used)479 3470 y(for)f(the)g(names)g(of)g(the)g
-(\002le)h(system.)f(F)o(or)g(e)o(xample,)e(if)j(this)g(encoding)d(is)j
-(ISO-8859-1)c(and)j Fq(s)g Fv(is)i(also)e(a)479 3578
-y(ISO-8859-1)e(string,)h(you)h(can)g(form)f(the)h(source:)479
-3717 y Fq(let)45 b(s_utf8)88 b(=)i(recode_string)42 b
-(~in_enc:`Enc_iso88591)g(~out_enc:`Enc_utf8)g(s)i(in)479
-3814 y(from_file)g(~system_encoding:`Enc_iso88591)39
-b(s_utf8)479 4005 y Fv(This)21 b Fq(source)e Fv(has)i(the)f(adv)n
-(antage)e(that)j(it)f(is)i(able)e(to)g(resolv)o(e)f(inner)h(e)o
-(xternal)f(entities;)h(i.e.)g(if)h(your)e(document)479
-4113 y(includes)g(data)g(from)g(another)f(\002le)i(\(using)f(the)g
-Fq(SYSTEM)g Fv(attrib)n(ute\),)g(this)g(mode)g(will)h(\002nd)f(that)h
-(\002le.)g(Ho)n(we)n(v)o(er)m(,)d(this)479 4221 y(mode)j(cannot)f
-(resolv)o(e)g Fq(PUBLIC)h Fv(identi\002ers)f(nor)h Fq(SYSTEM)g
-Fv(identi\002ers)f(other)h(than)g("\002le:".)p Black
-396 4370 a Ft(\225)p Black 60 w Fq(from_channel)43 b(ch)p
-Fv(:)21 b(The)e(document)g(is)i(read)e(from)h(the)g(channel)f
-Fq(ch)p Fv(.)h(In)g(general,)f(this)h(source)g(also)g(supports)479
-4478 y(\002le)h(URLs)g(found)e(in)h(the)g(document;)f(ho)n(we)n(v)o(er)
-m(,)e(by)j(def)o(ault)f(only)h(absolute)f(URLs)i(are)f(understood.)e
-(It)i(is)479 4586 y(possible)g(to)h(associate)f(an)g(ID)g(with)h(the)f
-(channel)f(such)h(that)g(the)g(resolv)o(er)f(kno)n(ws)h(ho)n(w)f(to)i
-(interpret)e(relati)n(v)o(e)479 4694 y(URLs:)479 4832
-y Fq(from_channel)43 b(~id:\(System)g("file:///dir/dir1/"\))f(ch)p
-Black 3800 5278 a Fr(75)p Black eop
-%%Page: 76 76
-76 75 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 396 579 a Fv(There)g(is)h(also)f
-(the)g(~system_encoding)e(ar)o(gument)f(specifying)i(ho)n(w)h(\002le)h
-(names)e(are)i(encoded.)d(-)i(The)g(e)o(xample)479 687
-y(from)f(abo)o(v)o(e)g(can)h(also)g(be)h(written)f(\(b)n(ut)f(it)i(is)g
-(no)f(longer)f(possible)h(to)g(interpret)f(relati)n(v)o(e)h(URLs)h
-(because)e(there)h(is)479 795 y(no)g(~id)g(ar)o(gument,)e(and)i
-(computing)d(this)k(ar)o(gument)d(is)j(relati)n(v)o(ely)e(complicated)g
-(because)g(it)i(must)f(be)h(a)f(v)n(alid)479 903 y(URL\):)479
-1041 y Fq(let)45 b(ch)f(=)h(open_in)e(s)i(in)479 1138
-y(let)g(src)f(=)h(from_channel)d(~system_encoding:`Enc_iso88591)e(ch)45
-b(in)479 1236 y(...;)479 1333 y(close_in)f(ch)p Black
-396 1482 a Ft(\225)p Black 60 w Fq(from_string)f(s)p
-Fv(:)21 b(The)f(string)g Fq(s)g Fv(is)h(the)g(document)d(to)i(parse.)g
-(This)g(mode)f(is)j(not)d(able)h(to)h(interpret)e(\002le)i(names)479
-1590 y(of)f Fq(SYSTEM)g Fv(clauses,)g(nor)g(it)h(can)f(look)f(up)h
-Fq(PUBLIC)f Fv(identi\002ers.)479 1740 y(Normally)-5
-b(,)19 b(the)h(encoding)e(of)i(the)g(string)g(is)h(detected)e(as)i
-(usual)f(by)g(analyzing)f(the)h(XML)g(declaration,)e(if)j(an)o(y)-5
-b(.)479 1847 y(Ho)n(we)n(v)o(er)m(,)18 b(it)j(is)g(also)g(possible)f
-(to)g(specify)g(the)g(encoding)e(directly:)479 1986 y
-Fq(let)45 b(src)f(=)h(from_string)e(~fixenc:`ISO-8859-2)e(s)p
-Black 396 2177 a Ft(\225)p Black 60 w Fq(ExtID)j(\(id,)g(r\))p
-Fv(:)21 b(The)f(document)e(to)i(parse)g(is)h(denoted)e(by)h(the)g
-(identi\002er)g Fq(id)g Fv(\(either)f(a)i Fq(SYSTEM)f
-Fv(or)g Fq(PUBLIC)479 2285 y Fv(clause\),)g(and)g(this)g(identi\002er)g
-(is)h(interpreted)d(by)i(the)g(resolv)o(er)f Fq(r)p Fv(.)i(Use)f(this)h
-(mode)e(if)i(you)e(ha)n(v)o(e)h(written)g(your)f(o)n(wn)479
-2393 y(resolv)o(er)-5 b(.)479 2542 y(Which)20 b(character)f(sets)j(are)
-e(possible)g(depends)e(on)i(the)g(passed)h(resolv)o(er)d
-Fq(r)p Fv(.)p Black 396 2692 a Ft(\225)p Black 60 w Fq(Entity)44
-b(\(get_entity,)f(r\))p Fv(:)20 b(The)g(document)e(to)j(parse)f(is)h
-(returned)d(by)i(the)g(function)f(in)m(v)n(ocation)479
-2800 y Fq(get_entity)43 b(dtd)p Fv(,)20 b(where)g Fq(dtd)g
-Fv(is)h(the)g(DTD)f(object)g(to)g(use)g(\(it)h(may)f(be)g(empty\).)f
-(Inner)f(e)o(xternal)h(references)479 2908 y(occuring)g(in)h(this)h
-(entity)e(are)i(resolv)o(ed)d(using)i(the)g(resolv)o(er)f
-Fq(r)p Fv(.)479 3057 y(Which)h(character)f(sets)j(are)e(possible)g
-(depends)e(on)i(the)g(passed)h(resolv)o(er)d Fq(r)p Fv(.)-2
-3510 y Fp(4.2.2.)35 b(The)f(resolver)g(API)396 3677 y
-Fv(A)21 b(resolv)o(er)e(is)i(an)f(object)g(that)g(can)g(be)g(opened)e
-(lik)o(e)j(a)f(\002le,)h(b)n(ut)f(you)f(do)h(not)g(pass)g(the)h(\002le)
-f(name)g(to)g(the)g(resolv)o(er)m(,)f(b)n(ut)396 3785
-y(the)h(XML)h(identi\002er)e(of)h(the)g(entity)g(to)h(read)e(from)g
-(\(either)h(a)g Fq(SYSTEM)g Fv(or)g Fq(PUBLIC)g Fv(clause\).)f(When)h
-(opened,)f(the)396 3893 y(resolv)o(er)g(must)h(return)f(the)i
-Fq(Lexing.lexbuf)d Fv(that)i(reads)g(the)h(characters.)e(The)g(resolv)o
-(er)g(can)h(be)h(closed,)e(and)h(it)396 4001 y(can)g(be)g(cloned.)f
-(Furthermore,)f(it)j(is)g(possible)f(to)g(tell)h(the)f(resolv)o(er)f
-(which)h(character)f(set)i(it)g(should)e(assume.)h(-)g(The)396
-4109 y(follo)n(wing)f(from)g(Pxp_reader:)396 4289 y Fq(exception)44
-b(Not_competent)396 4386 y(exception)g(Not_resolvable)e(of)j(exn)396
-4581 y(class)f(type)g(resolver)g(=)486 4678 y(object)576
-4775 y(method)f(init_rep_encoding)f(:)j(rep_encoding)e(->)h(unit)576
-4872 y(method)f(init_warner)g(:)i(collect_warnings)d(->)j(unit)p
-Black 3798 5278 a Fr(76)p Black eop
-%%Page: 77 77
-77 76 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 576 579 a Fq(method)43
-b(rep_encoding)g(:)i(rep_encoding)576 676 y(method)e(open_in)h(:)h
-(ext_id)f(->)g(Lexing.lexbuf)576 773 y(method)f(close_in)h(:)h(unit)576
-870 y(method)e(change_encoding)g(:)h(string)g(->)h(unit)576
-967 y(method)e(clone)h(:)h(resolver)576 1065 y(method)e(close_all)h(:)g
-(unit)486 1162 y(end)396 1353 y Fv(The)20 b(resolv)o(er)f(object)h
-(must)g(w)o(ork)f(as)i(follo)n(ws:)p Black 396 1627 a
-Ft(\225)p Black 60 w Fv(When)f(the)h(parser)e(is)i(called,)f(it)h
-(tells)g(the)f(resolv)o(er)f(the)h(w)o(arner)g(object)f(and)h(the)g
-(internal)g(encoding)e(by)i(in)m(v)n(oking)479 1735 y
-Fq(init_warner)f Fv(and)h Fq(init_rep_encoding)p Fv(.)d(The)j(resolv)o
-(er)f(should)g(store)i(these)f(v)n(alues.)f(The)h(method)479
-1843 y Fq(rep_encoding)f Fv(should)g(return)g(the)h(internal)g
-(encoding.)p Black 396 1950 a Ft(\225)p Black 60 w Fv(If)g(the)h
-(parser)e(w)o(ants)i(to)f(read)g(from)f(the)h(resolv)o(er)m(,)e(it)j
-(in)m(v)n(ok)o(es)f(the)g(method)f Fq(open_in)p Fv(.)g(Either)h(the)g
-(resolv)o(er)479 2058 y(succeeds,)g(in)g(which)g(case)g(the)h
-Fq(Lexing.lexbuf)d Fv(reading)h(from)g(the)h(\002le)h(or)f(stream)g
-(must)g(be)h(returned,)d(or)479 2166 y(opening)h(f)o(ails.)h(In)g(the)g
-(latter)h(case)f(the)h(method)d(implementation)g(should)h(raise)i(an)f
-(e)o(xception)e(\(see)j(belo)n(w\).)p Black 396 2274
-a Ft(\225)p Black 60 w Fv(If)f(the)h(parser)e(\002nishes)i(reading,)d
-(it)j(calls)g(the)f Fq(close_in)g Fv(method.)p Black
-396 2382 a Ft(\225)p Black 60 w Fv(If)g(the)h(parser)e(\002nds)h(a)h
-(reference)d(to)j(another)e(e)o(xternal)f(entity)i(in)h(the)f(input)f
-(stream,)h(it)h(calls)g Fq(clone)f Fv(to)g(get)h(a)479
-2490 y(second)f(resolv)o(er)f(which)g(must)h(be)h(initially)f(closed)g
-(\(not)f(yet)h(connected)f(with)h(an)g(input)f(stream\).)h(The)g
-(parser)479 2598 y(then)g(in)m(v)n(ok)o(es)f Fq(open_in)h
-Fv(and)f(the)i(other)e(methods)g(as)i(described.)p Black
-396 2706 a Ft(\225)p Black 60 w Fv(If)f(you)g(already)f(kno)n(w)g(the)h
-(character)f(set)i(of)f(the)g(input)g(stream,)f(you)h(should)f(recode)g
-(it)i(to)f(the)g(internal)479 2814 y(encoding,)e(and)i(de\002ne)f(the)i
-(method)d Fq(change_encoding)h Fv(as)i(an)f(empty)f(method.)p
-Black 396 2922 a Ft(\225)p Black 60 w Fv(If)h(you)g(w)o(ant)g(to)g
-(support)f(multiple)h(e)o(xternal)f(character)g(sets,)i(the)f(object)f
-(must)i(follo)n(w)e(a)i(much)e(more)479 3030 y(complicated)g(protocol.)
-f(Directly)i(after)g Fq(open_in)f Fv(has)i(been)e(called,)h(the)g
-(resolv)o(er)f(must)h(return)f(a)i(le)o(xical)f(b)n(uf)n(fer)479
-3138 y(that)h(only)e(reads)h(one)g(byte)f(at)i(a)g(time.)f(This)g(is)h
-(only)f(possible)f(if)i(you)e(create)h(the)g(le)o(xical)g(b)n(uf)n(fer)
-f(with)479 3246 y Fq(Lexing.from_function)p Fv(;)e(the)j(function)d
-(must)j(then)f(al)o(w)o(ays)h(return)e(1)i(if)f(the)h(EOF)g(is)g(not)f
-(yet)h(reached,)e(and)h(0)479 3354 y(if)i(EOF)f(is)h(reached.)e(If)h
-(the)g(parser)g(has)g(read)g(the)g(\002rst)h(line)f(of)g(the)h
-(document,)c(it)k(will)g(in)m(v)n(ok)o(e)479 3461 y Fq(change_encoding)
-e Fv(to)h(tell)h(the)f(resolv)o(er)f(which)h(character)e(set)j(to)g
-(assume.)f(From)f(this)i(moment,)e(the)h(object)479 3569
-y(can)g(return)f(more)h(than)f(one)h(byte)g(at)g(once.)g(The)g(ar)o
-(gument)d(of)j Fq(change_encoding)f Fv(is)i(either)e(the)i(parameter)d
-(of)479 3677 y(the)i("encoding")e(attrib)n(ute)i(of)g(the)g(XML)h
-(declaration,)d(or)i(the)g(empty)f(string)h(if)h(there)e(is)j(not)d(an)
-o(y)h(XML)479 3785 y(declaration)f(or)h(if)g(the)h(declaration)d(does)i
-(not)g(contain)f(an)h(encoding)e(attrib)n(ute.)479 3935
-y(At)j(the)f(be)o(ginning)e(the)i(resolv)o(er)f(must)h(only)g(return)f
-(one)g(character)g(e)n(v)o(ery)g(time)h(something)f(is)i(read)f(from)f
-(the)479 4043 y(le)o(xical)h(b)n(uf)n(fer)-5 b(.)19 b(The)h(reason)f
-(for)h(this)h(is)g(that)f(you)f(otherwise)h(w)o(ould)f(not)h(e)o
-(xactly)g(kno)n(w)f(at)h(which)g(position)f(in)479 4151
-y(the)h(input)g(stream)g(the)g(character)f(set)i(changes.)479
-4300 y(If)f(you)g(w)o(ant)g(automatic)f(recognition)f(of)i(the)g
-(character)f(set,)i(it)g(is)g(up)f(to)g(the)g(resolv)o(er)f(object)h
-(to)g(implement)f(this.)p Black 396 4449 a Ft(\225)p
-Black 60 w Fv(If)h(an)g(error)g(occurs,)f(the)h(parser)g(calls)g(the)h
-(method)d Fq(close_all)i Fv(for)f(the)h(top-le)n(v)o(el)f(resolv)o(er;)
-g(this)i(method)479 4557 y(should)e(close)i(itself)g(\(if)f(not)g
-(already)f(done\))f(and)i(all)h(clones.)396 4748 y Fu(Exceptions.)f
-Fv(It)h(is)g(possible)f(to)g(chain)g(resolv)o(ers)f(such)h(that)g(when)
-g(the)g(\002rst)h(resolv)o(er)e(is)i(not)f(able)g(to)g(open)f(the)396
-4856 y(entity)-5 b(,)20 b(the)g(other)f(resolv)o(ers)g(of)h(the)g
-(chain)g(are)g(tried)g(in)g(turn.)g(The)g(method)e Fq(open_in)i
-Fv(should)f(raise)i(the)f(e)o(xception)p Black 3797 5278
-a Fr(77)p Black eop
-%%Page: 78 78
-78 77 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 396 579 a Fq(Not_competent)f
-Fv(to)h(indicate)g(that)g(the)g(ne)o(xt)g(resolv)o(er)f(should)g(try)h
-(to)g(open)f(the)i(entity)-5 b(.)19 b(If)h(the)g(resolv)o(er)f(is)i
-(able)f(to)396 687 y(handle)f(the)i(ID,)f(b)n(ut)g(some)g(other)f
-(error)g(occurs,)g(the)i(e)o(xception)d Fq(Not_resolvable)g
-Fv(should)i(be)g(raised)g(to)g(force)396 795 y(that)h(the)f(chain)f
-(breaks.)396 944 y(Example:)g(Ho)n(w)h(to)h(de\002ne)e(a)i(resolv)o(er)
-e(that)h(is)h(equi)n(v)n(alent)e(to)h(from_string:)e(...)-2
-1314 y Fp(4.2.3.)35 b(Prede\002ned)f(resolver)h(components)396
-1482 y Fv(There)20 b(are)g(some)g(classes)h(in)f(Pxp_reader)e(that)j
-(de\002ne)e(common)g(resolv)o(er)f(beha)n(viour)-5 b(.)396
-1662 y Fq(class)44 b(resolve_read_this_channel)d(:)576
-1759 y(?id:ext_id)i(->)576 1856 y(?fixenc:encoding)f(->)576
-1953 y(?auto_close:bool)g(->)576 2050 y(in_channel)h(->)755
-2147 y(resolver)396 2338 y Fv(Reads)21 b(from)e(the)h(passed)g(channel)
-f(\(it)i(may)f(be)g(e)n(v)o(en)f(a)i(pipe\).)e(If)h(the)g
-Fq(~id)g Fv(ar)o(gument)e(is)j(passed)f(to)h(the)f(object,)f(the)396
-2446 y(created)h(resolv)o(er)f(accepts)h(only)f(this)i(ID.)f(Otherwise)
-g(all)h(IDs)f(are)g(accepted.)f(-)i(Once)f(the)g(resolv)o(er)f(has)h
-(been)396 2554 y(cloned,)f(it)h(does)g(not)f(accept)h(an)o(y)f(ID.)g
-(This)h(means)g(that)g(this)g(resolv)o(er)e(cannot)h(handle)g(inner)g
-(references)f(to)i(e)o(xternal)396 2662 y(entities.)h(Note)f(that)g
-(you)f(can)h(combine)f(this)i(resolv)o(er)e(with)h(another)f(resolv)o
-(er)g(that)h(can)g(handle)f(inner)g(references)396 2770
-y(\(such)h(as)h(resolv)o(e_as_\002le\);)d(see)j(class)g('combine')d
-(belo)n(w)-5 b(.)19 b(-)h(If)g(you)g(pass)g(the)h Fq(~fixenc)e
-Fv(ar)o(gument,)f(the)i(encoding)396 2878 y(of)g(the)g(channel)f(is)i
-(set)g(to)g(the)f(passed)g(v)n(alue,)f(re)o(gardless)g(of)h(an)o(y)f
-(auto-recognition)e(or)j(an)o(y)f(XML)h(declaration.)f(-)h(If)396
-2986 y Fq(~auto_close)43 b(=)i(true)20 b Fv(\(which)f(is)i(the)g(def)o
-(ault\),)e(the)h(channel)f(is)i(closed)f(after)g(use.)g(If)g
-Fq(~auto_close)43 b(=)396 3094 y(false)p Fv(,)20 b(the)g(channel)f(is)i
-(left)g(open.)396 3315 y Fq(class)44 b(resolve_read_any_channel)d(:)576
-3413 y(?auto_close:bool)h(->)576 3510 y(channel_of_id:\(ext_id)f(->)j
-(\(in_channel)f(*)i(encoding)f(option\)\))f(->)755 3607
-y(resolver)396 3798 y Fv(This)21 b(resolv)o(er)e(calls)h(the)h
-(function)d Fq(~channel_of_id)h Fv(to)h(open)f(a)i(ne)n(w)f(channel)f
-(for)g(the)h(passed)g Fq(ext_id)p Fv(.)g(This)396 3906
-y(function)f(must)h(either)g(return)f(the)h(channel)f(and)h(the)g
-(encoding,)e(or)i(it)g(must)h(f)o(ail)f(with)h(Not_competent.)c(The)396
-4014 y(function)i(must)h(return)f Fq(None)h Fv(as)h(encoding)d(if)j
-(the)f(def)o(ault)f(mechanism)g(to)h(recognize)f(the)h(encoding)e
-(should)h(be)396 4122 y(used.)g(It)i(must)e(return)g
-Fq(Some)44 b(e)20 b Fv(if)g(it)h(is)f(already)f(kno)n(wn)f(that)i(the)g
-(encoding)d(of)j(the)f(channel)g(is)i Fq(e)p Fv(.)e(If)h
-Fq(~auto_close)396 4230 y(=)45 b(true)19 b Fv(\(which)g(is)h(the)f(def)
-o(ault\),)f(the)i(channel)e(is)i(closed)f(after)g(use.)h(If)f
-Fq(~auto_close)43 b(=)h(false)p Fv(,)19 b(the)h(channel)e(is)396
-4337 y(left)j(open.)396 4559 y Fq(class)44 b(resolve_read_url_channel)d
-(:)576 4656 y(?base_url:Neturl.url)g(->)576 4753 y(?auto_close:bool)h
-(->)576 4851 y(url_of_id:\(ext_id)g(->)i(Neturl.url\))f(->)p
-Black 3800 5278 a Fr(78)p Black eop
-%%Page: 79 79
-79 78 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 576 579 a Fq
-(channel_of_url:\(Neturl.url)40 b(->)45 b(\(in_channel)e(*)h(encoding)g
-(option\)\))f(->)755 676 y(resolver)396 867 y Fv(When)20
-b(this)h(resolv)o(er)e(gets)h(an)h(ID)f(to)g(read)g(from,)f(it)i(calls)
-g(the)f(function)e Fq(~url_of_id)h Fv(to)i(get)f(the)g(corresponding)
-396 975 y(URL.)h(This)f(URL)h(may)f(be)g(a)g(relati)n(v)o(e)g(URL;)h
-(ho)n(we)n(v)o(er)m(,)c(a)k(URL)g(scheme)f(must)g(be)g(used)g(which)f
-(contains)h(a)h(path.)396 1083 y(The)f(resolv)o(er)f(con)m(v)o(erts)g
-(the)h(URL)h(to)f(an)g(absolute)f(URL)i(if)g(necessary)-5
-b(.)19 b(The)g(second)h(function,)396 1191 y Fq(~channel_of_url)p
-Fv(,)e(is)j(fed)f(with)h(the)f(absolute)f(URL)i(as)g(input.)e(This)h
-(function)f(opens)g(the)i(resource)e(to)h(read)396 1299
-y(from,)f(and)h(returns)f(the)h(channel)f(and)h(the)g(encoding)e(of)i
-(the)g(resource.)396 1448 y(Both)g(functions,)f Fq(~url_of_id)g
-Fv(and)h Fq(~channel_of_url)p Fv(,)e(can)i(raise)g(Not_competent)e(to)i
-(indicate)g(that)g(the)396 1556 y(object)g(is)h(not)f(able)g(to)g(read)
-g(from)f(the)h(speci\002ed)g(resource.)f(Ho)n(we)n(v)o(er)m(,)f(there)i
-(is)h(a)f(dif)n(ference:)f(A)h(Not_competent)396 1664
-y(from)f Fq(~url_of_id)g Fv(is)j(left)e(as)h(it)g(is,)g(b)n(ut)f(a)h
-(Not_competent)c(from)i Fq(~channel_of_url)g Fv(is)i(con)m(v)o(erted)c
-(to)396 1772 y(Not_resolv)n(able.)h(So)i(only)g Fq(~url_of_id)f
-Fv(decides)h(which)f(URLs)i(are)f(accepted)g(by)f(the)i(resolv)o(er)e
-(and)g(which)h(not.)396 1921 y(The)g(function)f Fq(~channel_of_url)f
-Fv(must)i(return)f Fq(None)h Fv(as)h(encoding)d(if)j(the)f(def)o(ault)f
-(mechanism)g(to)i(recognize)396 2029 y(the)f(encoding)f(should)g(be)h
-(used.)g(It)g(must)g(return)f Fq(Some)44 b(e)21 b Fv(if)g(it)f(is)i
-(already)d(kno)n(wn)f(that)j(the)f(encoding)e(of)i(the)396
-2137 y(channel)f(is)i Fq(e)p Fv(.)396 2287 y(If)f Fq(~auto_close)43
-b(=)i(true)20 b Fv(\(which)f(is)i(the)g(def)o(ault\),)e(the)h(channel)f
-(is)i(closed)f(after)g(use.)g(If)g Fq(~auto_close)43
-b(=)396 2395 y(false)p Fv(,)20 b(the)g(channel)f(is)i(left)g(open.)396
-2544 y(Objects)f(of)g(this)g(class)h(contain)e(a)h(base)g(URL)g(relati)
-n(v)o(e)f(to)h(which)g(relati)n(v)o(e)f(URLs)h(are)g(interpreted.)e
-(When)i(creating)e(a)396 2652 y(ne)n(w)i(object,)g(you)f(can)h(specify)
-f(the)i(base)f(URL)h(by)f(passing)f(it)i(as)g Fq(~base_url)e
-Fv(ar)o(gument.)f(When)i(an)g(e)o(xisting)396 2760 y(object)g(is)h
-(cloned,)e(the)h(base)g(URL)h(of)f(the)g(clone)g(is)h(the)f(URL)h(of)f
-(the)g(original)f(object.)h(-)g(Note)g(that)g(the)h(term)f("base)396
-2868 y(URL")h(has)f(a)h(strict)g(de\002nition)e(in)h(RFC)i(1808.)396
-3089 y Fq(class)44 b(resolve_read_this_string)d(:)576
-3187 y(?id:ext_id)i(->)576 3284 y(?fixenc:encoding)f(->)576
-3381 y(string)h(->)755 3478 y(resolver)396 3669 y Fv(Reads)21
-b(from)e(the)h(passed)g(string.)g(If)g(the)g Fq(~id)h
-Fv(ar)o(gument)c(is)k(passed)g(to)f(the)g(object,)g(the)g(created)f
-(resolv)o(er)g(accepts)396 3777 y(only)h(this)g(ID.)g(Otherwise)g(all)h
-(IDs)g(are)f(accepted.)f(-)h(Once)g(the)g(resolv)o(er)f(has)i(been)e
-(cloned,)g(it)i(does)f(not)g(accept)g(an)o(y)396 3885
-y(ID.)g(This)h(means)f(that)g(this)h(resolv)o(er)e(cannot)g(handle)g
-(inner)g(references)g(to)h(e)o(xternal)f(entities.)i(Note)f(that)g(you)
-f(can)396 3993 y(combine)g(this)i(resolv)o(er)e(with)h(another)f
-(resolv)o(er)g(that)h(can)g(handle)f(inner)g(references)g(\(such)h(as)h
-(resolv)o(e_as_\002le\);)396 4101 y(see)g(class)g('combine')d(belo)n(w)
--5 b(.)19 b(-)i(If)f(you)f(pass)i(the)f Fq(~fixenc)f
-Fv(ar)o(gument,)f(the)i(encoding)e(of)i(the)g(string)g(is)h(set)g(to)g
-(the)396 4209 y(passed)f(v)n(alue,)g(re)o(gardless)e(of)i(an)o(y)g
-(auto-recognition)c(or)k(an)o(y)f(XML)i(declaration.)396
-4430 y Fq(class)44 b(resolve_read_any_string)d(:)576
-4527 y(string_of_id:\(ext_id)g(->)k(\(string)e(*)i(encoding)e
-(option\)\))h(->)755 4625 y(resolver)p Black 3800 5278
-a Fr(79)p Black eop
-%%Page: 80 80
-80 79 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 396 579 a Fv(This)h(resolv)o(er)e
-(calls)h(the)h(function)d Fq(~string_of_id)h Fv(to)h(get)g(the)g
-(string)g(for)g(the)g(passed)g Fq(ext_id)p Fv(.)g(This)g(function)396
-687 y(must)g(either)g(return)f(the)i(string)e(and)h(the)g(encoding,)e
-(or)i(it)h(must)f(f)o(ail)h(with)f(Not_competent.)e(The)h(function)g
-(must)396 795 y(return)g Fq(None)h Fv(as)h(encoding)d(if)j(the)f(def)o
-(ault)g(mechanism)e(to)j(recognize)d(the)i(encoding)f(should)g(be)h
-(used.)g(It)g(must)396 903 y(return)f Fq(Some)44 b(e)21
-b Fv(if)g(it)f(is)i(already)d(kno)n(wn)f(that)j(the)f(encoding)e(of)i
-(the)g(string)g(is)h Fq(e)p Fv(.)396 1124 y Fq(class)44
-b(resolve_as_file)f(:)576 1222 y(?file_prefix:[)f(`Not_recognized)g(|)j
-(`Allowed)f(|)g(`Required)g(])g(->)576 1319 y(?host_prefix:[)e
-(`Not_recognized)g(|)j(`Allowed)f(|)g(`Required)g(])g(->)576
-1416 y(?system_encoding:encoding)c(->)576 1513 y(?url_of_id:\(ext_id)h
-(->)k(Neturl.url\))e(->)576 1610 y(?channel_of_url:)f(\(Neturl.url)h
-(->)h(\(in_channel)f(*)i(encoding)e(option\)\))h(->)576
-1707 y(unit)g(->)755 1804 y(resolver)396 1995 y Fv(Reads)21
-b(from)e(the)h(local)g(\002le)h(system.)f(Ev)o(ery)f(\002le)i(name)f
-(is)h(interpreted)d(as)j(\002le)g(name)f(of)f(the)i(local)f(\002le)h
-(system,)f(and)396 2103 y(the)g(referred)f(\002le)i(is)g(read.)396
-2253 y(The)f(full)g(form)f(of)h(a)h(\002le)g(URL)g(is:)g
-(\002le://host/path,)e(where)h('host')f(speci\002es)i(the)f(host)g
-(system)g(where)g(the)g(\002le)396 2361 y(identi\002ed)g('path')f
-(resides.)h(host)g(=)g("")h(or)f(host)g(=)h("localhost")e(are)h
-(accepted;)f(other)h(v)n(alues)f(will)i(raise)396 2468
-y(Not_competent.)d(The)i(standard)f(for)g(\002le)i(URLs)g(is)g
-(de\002ned)e(in)i(RFC)g(1738.)396 2618 y(Option)f Fq(~file_prefix)p
-Fv(:)e(Speci\002es)j(ho)n(w)f(the)g("\002le:")h(pre\002x)e(of)h(\002le)
-h(names)f(is)h(handled:)p Black 396 2850 a Ft(\225)p
-Black 60 w Fq(`Not_recognized:)p Fv(The)c(pre\002x)j(is)h(not)f
-(recognized.)p Black 396 2958 a Ft(\225)p Black 60 w
-Fq(`Allowed:)g Fv(The)f(pre\002x)h(is)h(allo)n(wed)e(b)n(ut)i(not)f
-(required)e(\(the)i(def)o(ault\).)p Black 396 3066 a
-Ft(\225)p Black 60 w Fq(`Required:)f Fv(The)h(pre\002x)g(is)h
-(required.)396 3257 y(Option)f Fq(~host_prefix:)e Fv(Speci\002es)j(ho)n
-(w)e(the)i("//host")f(phrase)f(of)h(\002le)h(names)f(is)h(handled:)p
-Black 396 3490 a Ft(\225)p Black 60 w Fq(`Not_recognized:)p
-Fv(The)c(pre\002x)j(is)h(not)f(recognized.)p Black 396
-3598 a Ft(\225)p Black 60 w Fq(`Allowed:)g Fv(The)f(pre\002x)h(is)h
-(allo)n(wed)e(b)n(ut)i(not)f(required)e(\(the)i(def)o(ault\).)p
-Black 396 3706 a Ft(\225)p Black 60 w Fq(`Required:)f
-Fv(The)h(pre\002x)g(is)h(required.)396 3896 y(Option)f
-Fq(~system_encoding:)e Fv(Speci\002es)i(the)g(encoding)e(of)i(\002le)h
-(names)f(of)g(the)g(local)g(\002le)h(system.)f(Def)o(ault:)396
-4004 y(UTF-8.)396 4154 y(Options)g Fq(~url_of_id)p Fv(,)f
-Fq(~channel_of_url)p Fv(:)f(Not)i(for)g(the)g(casual)g(user!)396
-4376 y Fq(class)44 b(combine)g(:)576 4473 y(?prefer:resolver)e(->)576
-4570 y(resolver)h(list)h(->)755 4667 y(resolver)p Black
-3800 5278 a Fr(80)p Black eop
-%%Page: 81 81
-81 80 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 396 579 a Fv(Combines)g(se)n(v)o
-(eral)f(resolv)o(er)g(objects.)h(If)g(a)h(concrete)e(entity)g(with)i
-(an)f Fq(ext_id)g Fv(is)h(to)f(be)g(opened,)f(the)h(combined)396
-687 y(resolv)o(er)f(tries)i(the)f(contained)f(resolv)o(ers)g(in)h(turn)
-g(until)g(a)g(resolv)o(er)f(accepts)h(opening)f(the)h(entity)g(\(i.e.)g
-(it)g(does)g(not)396 795 y(raise)h(Not_competent)c(on)j(open_in\).)396
-944 y(Clones:)h(If)f(the)g('clone')f(method)g(is)i(in)m(v)n(ok)o(ed)d
-(before)h('open_in',)e(all)k(contained)e(resolv)o(ers)g(are)h(cloned)f
-(separately)396 1052 y(and)h(again)f(combined.)f(If)i(the)g('clone')f
-(method)g(is)i(in)m(v)n(ok)o(ed)e(after)g('open_in')f(\(i.e.)i(while)g
-(the)g(resolv)o(er)f(is)i(open\),)396 1160 y(additionally)e(the)h
-(clone)f(of)h(the)h(acti)n(v)o(e)e(resolv)o(er)g(is)i(\003agged)f(as)g
-(being)g(preferred,)d(i.e.)k(it)f(is)i(tried)e(\002rst.)-2
-1662 y Fx(4.3.)39 b(The)g(DTD)g(c)m(lasses)396 1841 y
-Fr(Sorry)-5 b(,)21 b(not)f(yet)g(written.)h(P)-7 b(erhaps)20
-b(the)g(interface)g(de\002nition)e(of)j(Pxp_dtd)d(e)n(xpr)m(esses)j
-(the)f(same:)396 2063 y Fq(\(****************************************)o
-(******)o(******)o(******)o(******)o(*****)o(*\))396
-2160 y(\(*)3048 b(*\))396 2257 y(\(*)45 b(Pxp_dtd:)2643
-b(*\))396 2354 y(\(*)224 b(Object)44 b(model)g(of)g(document)g(type)g
-(declarations)939 b(*\))396 2452 y(\(*)3048 b(*\))396
-2549 y(\(****************************************)o(******)o(******)o
-(******)o(******)o(*****)o(*\))396 2743 y(\(*)45 b
-(======================================)o(======)o(======)o(======)o
-(======)o(=====)o(===)441 2840 y(*)g(OVERVIEW)441 2937
-y(*)441 3034 y(*)g(class)f(dtd)g(...............)e(represents)i(the)g
-(whole)g(DTD,)g(including)f(element)441 3132 y(*)1210
-b(declarations,)43 b(entity)h(declarations,)f(notation)441
-3229 y(*)1210 b(declarations,)43 b(and)h(processing)g(instructions)441
-3326 y(*)h(class)f(dtd_element)f(.......)g(represents)h(an)g(element)g
-(declaration)f(consisting)441 3423 y(*)1210 b(of)45 b(a)g(content)e
-(model)h(and)h(an)f(attribute)f(list)441 3520 y(*)1210
-b(declaration)441 3617 y(*)45 b(class)f(dtd_notation)f(......)g
-(represents)h(a)g(notation)g(declaration)441 3714 y(*)h(class)f
-(proc_instruction)e(..)i(represents)g(a)g(processing)f(instruction)441
-3811 y(*)i(======================================)o(======)o(======)o
-(======)o(======)o(=====)o(===)441 3909 y(*)441 4006
-y(*\))396 4297 y(class)f(dtd)h(:)486 4394 y(\(*)f(Creation:)531
-4491 y(*)134 b(new)44 b(dtd)531 4589 y(*)g(creates)g(a)h(new,)f(empty)g
-(DTD)g(object)g(without)g(any)g(declaration,)f(without)g(a)i(root)531
-4686 y(*)f(element,)g(without)g(an)g(ID.)531 4783 y(*\))p
-Black 3800 5278 a Fr(81)p Black eop
-%%Page: 82 82
-82 81 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 486 579 a Fq
-(Pxp_types.collect_warnings)40 b(-)p Fo(>)486 676 y Fq
-(Pxp_types.rep_encoding)h(-)p Fo(>)486 773 y Fq(object)576
-870 y(method)i(root)i(:)f(string)g(option)665 967 y(\(*)h(get)f(the)g
-(name)h(of)f(the)g(root)h(element)e(if)i(present)e(*\))576
-1162 y(method)g(set_root)h(:)h(string)e(-)p Fo(>)i Fq(unit)665
-1259 y(\(*)g(set)f(the)g(name)h(of)f(the)g(root)h(element.)e(This)h
-(method)g(can)g(be)h(invoked)710 1356 y(*)g(only)f(once)710
-1453 y(*\))576 1647 y(method)f(id)i(:)g(Pxp_types.dtd_id)d(option)665
-1745 y(\(*)j(get)f(the)g(identifier)g(for)g(this)g(DTD)g(*\))576
-1939 y(method)f(set_id)h(:)h(Pxp_types.dtd_id)d(-)p Fo(>)i
-Fq(unit)665 2036 y(\(*)h(set)f(the)g(identifier.)f(This)i(method)e(can)
-i(be)f(invoked)g(only)g(once)g(*\))576 2230 y(method)f(encoding)h(:)h
-(Pxp_types.rep_encoding)665 2327 y(\(*)g(returns)e(the)i(encoding)e
-(used)h(for)h(character)e(representation)g(*\))576 2619
-y(method)g(allow_arbitrary)g(:)h(unit)665 2716 y(\(*)h(After)f(this)g
-(method)g(has)g(been)g(invoked,)g(the)g(ob-)396 2813
-y(ject)g(changes)g(its)g(behaviour:)710 2910 y(*)h(-)f(elements)g(and)g
-(notations)g(that)g(have)g(not)g(been)g(added)g(may)h(be)f(used)g(in)h
-(an)710 3007 y(*)134 b(arbitrary)44 b(way;)g(the)g(methods)g("element")
-f(and)i("notation")e(indicate)g(this)710 3104 y(*)134
-b(by)45 b(raising)f(Undeclared)f(instead)g(of)i(Validation_error.)710
-3202 y(*\))576 3396 y(method)e(disallow_arbitrary)f(:)j(unit)576
-3590 y(method)e(arbitrary_allowed)f(:)j(bool)665 3687
-y(\(*)g(Returns)e(whether)h(arbitrary)f(contents)h(are)g(allowed)g(or)g
-(not.)h(*\))576 3882 y(method)e(standalone_declaration)f(:)i(bool)665
-3979 y(\(*)h(Whether)e(there)h(is)h(a)g('standalone')d(declaration)h
-(or)i(not.)f(Strictly)710 4076 y(*)h(speaking,)e(this)h(declaration)f
-(is)i(not)f(part)g(of)h(the)f(DTD,)g(but)h(it)f(is)710
-4173 y(*)h(included)e(here)h(because)g(of)h(practical)e(reasons.)710
-4270 y(*)i(If)f(not)h(set,)f(this)g(property)f(defaults)h(to)g
-('false'.)710 4367 y(*\))576 4561 y(method)f
-(set_standalone_declaration)e(:)k(bool)f(-)p Fo(>)g Fq(unit)665
-4659 y(\(*)h(Sets)f(the)g('standalone')f(declaration.)g(*\))p
-Black 3800 5278 a Fr(82)p Black eop
-%%Page: 83 83
-83 82 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 576 579 a Fq(method)43
-b(add_element)g(:)i(dtd_element)e(-)p Fo(>)h Fq(unit)665
-676 y(\(*)h(add)f(the)g(given)g(element)g(declaration)f(to)i(this)f
-(DTD.)g(Raises)g(Not_found)710 773 y(*)h(if)f(there)g(is)h(already)e
-(an)i(element)f(declaration)f(with)h(the)g(same)g(name.)710
-870 y(*\))576 1065 y(method)f(add_gen_entity)g(:)i(Pxp_entity.entity)d
-(-)p Fo(>)i Fq(bool)g(-)p Fo(>)g Fq(unit)665 1162 y(\(*)h
-(add_gen_entity)d(e)j(extdecl:)710 1259 y(*)g(add)f(the)g(entity)g('e')
-h(as)f(general)g(entity)g(to)g(this)g(DTD)h(\(general)e(entities)710
-1356 y(*)i(are)f(those)g(represented)f(by)i(&name;\).)e(If)i(there)f
-(is)g(already)g(a)g(declaration)710 1453 y(*)h(with)f(the)g(same)g
-(name,)g(the)h(second)f(definition)f(is)h(ignored;)g(as)g(excep-)396
-1550 y(tion)g(from)710 1647 y(*)h(this)f(rule,)g(entities)f(with)i
-(names)f("lt",)g("gt",)g("amp",)f("quot",)h(and)g("apos")710
-1745 y(*)h(may)f(only)g(be)h(redeclared)e(with)h(a)h(definition)e(that)
-h(is)h(equivalent)e(to)h(the)710 1842 y(*)h(standard)e(definition;)g
-(otherwise)h(a)g(Validation_error)e(is)j(raised.)710
-1939 y(*)710 2036 y(*)g('extdecl':)e('true')h(indicates)f(that)h(the)h
-(entity)e(declaration)g(occurs)h(in)710 2133 y(*)h(an)f(external)g
-(entity.)f(\(Used)h(for)h(the)f(standalone)f(check.\))710
-2230 y(*\))576 2424 y(method)g(add_par_entity)g(:)i(Pxp_entity.entity)d
-(-)p Fo(>)i Fq(unit)665 2522 y(\(*)h(add)f(the)g(given)g(entity)g(as)h
-(parameter)e(entity)h(to)g(this)h(DTD)f(\(parameter)710
-2619 y(*)h(entities)e(are)i(those)f(represented)f(by)h(\045name;\).)g
-(If)g(there)g(is)h(already)e(a)710 2716 y(*)i(declaration)e(with)h(the)
-g(same)g(name,)g(the)h(second)f(definition)f(is)h(ignored.)710
-2813 y(*\))576 3007 y(method)f(add_notation)g(:)i(dtd_notation)e(-)p
-Fo(>)h Fq(unit)665 3104 y(\(*)h(add)f(the)g(given)g(notation)g(to)g
-(this)h(DTD.)f(If)g(there)g(is)h(al-)396 3202 y(ready)f(a)h
-(declaration)710 3299 y(*)g(with)f(the)g(same)g(name,)g(a)h
-(Validation_error)d(is)j(raised.)710 3396 y(*\))576 3590
-y(method)e(add_pinstr)h(:)g(proc_instruction)e(-)p Fo(>)j
-Fq(unit)665 3687 y(\(*)g(add)f(the)g(given)g(processing)g(instruction)f
-(to)h(this)g(DTD.)g(*\))576 3882 y(method)f(element)h(:)h(string)f(-)p
-Fo(>)g Fq(dtd_element)665 3979 y(\(*)h(looks)f(up)g(the)h(element)e
-(declaration)g(with)h(the)h(given)f(name.)g(Raises)710
-4076 y(*)h(Validation_error)d(if)i(the)h(element)e(can-)396
-4173 y(not)i(be)f(found.)g(\(If)g("allow_arbitrary")710
-4270 y(*)h(has)f(been)g(invoked)g(before,)g(Unrestricted)e(is)j(raised)
-f(instead.\))710 4367 y(*\))576 4561 y(method)f(element_names)g(:)i
-(string)f(list)665 4659 y(\(*)h(returns)e(the)i(list)f(of)g(the)h
-(names)f(of)g(all)h(element)e(declarations.)g(*\))576
-4853 y(method)g(gen_entity)h(:)g(string)g(-)p Fo(>)g
-Fq(\(Pxp_entity.entity)e(*)j(bool\))p Black 3800 5278
-a Fr(83)p Black eop
-%%Page: 84 84
-84 83 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 665 579 a Fq(\(*)45
-b(let)f(e,)h(extdecl)e(=)i(obj)f(#)h(gen_entity)e(n:)710
-676 y(*)i(looks)f(up)g(the)h(general)e(entity)h('e')g(with)h(the)f
-(name)g('n'.)g(Raises)710 773 y(*)h(WF_error)e(if)i(the)f(entity)g
-(cannot)g(be)g(found.)710 870 y(*)h('extdecl':)e(indicates)g(whether)h
-(the)g(entity)g(declaration)f(occured)h(in)g(an)710 967
-y(*)h(external)e(entity.)710 1065 y(*\))576 1259 y(method)g
-(gen_entity_names)g(:)h(string)g(list)665 1356 y(\(*)h(returns)e(the)i
-(list)f(of)g(all)h(general)e(entity)h(names)g(*\))576
-1550 y(method)f(par_entity)h(:)g(string)g(-)p Fo(>)g
-Fq(Pxp_entity.entity)665 1647 y(\(*)h(looks)f(up)g(the)h(parameter)e
-(entity)h(with)g(the)g(given)g(name.)g(Raises)710 1745
-y(*)h(WF_error)e(if)i(the)f(entity)g(cannot)g(be)g(found.)710
-1842 y(*\))576 2036 y(method)f(par_entity_names)g(:)h(string)g(list)665
-2133 y(\(*)h(returns)e(the)i(list)f(of)g(all)h(parameter)e(entity)h
-(names)g(*\))576 2327 y(method)f(notation)h(:)h(string)e(-)p
-Fo(>)i Fq(dtd_notation)665 2424 y(\(*)g(looks)f(up)g(the)h(notation)e
-(declaration)g(with)h(the)h(given)f(name.)g(Raises)710
-2522 y(*)h(Validation_error)d(if)i(the)h(notation)e(can-)396
-2619 y(not)i(be)f(found.)g(\(If)g("allow_arbitrary")710
-2716 y(*)h(has)f(been)g(invoked)g(before,)g(Unrestricted)e(is)j(raised)
-f(instead.\))710 2813 y(*\))576 3007 y(method)f(notation_names)g(:)i
-(string)e(list)665 3104 y(\(*)i(Returns)e(the)i(list)f(of)g(the)h
-(names)f(of)g(all)h(added)f(notations)f(*\))576 3299
-y(method)g(pinstr)h(:)h(string)f(-)p Fo(>)g Fq(proc_instruction)e(list)
-665 3396 y(\(*)j(looks)f(up)g(all)h(processing)e(instructions)g(with)h
-(the)g(given)g(target.)710 3493 y(*)h(The)f("target")g(is)g(the)g
-(identifier)g(following)f(")p Fo(<)p Fq(?".)710 3590
-y(*)i(Note:)f(It)g(is)h(not)f(possible)g(to)g(find)g(out)h(the)f(exact)
-g(position)f(of)i(the)710 3687 y(*)g(processing)e(instruction.)710
-3784 y(*\))576 3979 y(method)g(pinstr_names)g(:)i(string)f(list)665
-4076 y(\(*)h(Returns)e(the)i(list)f(of)g(the)h(names)f(\(targets\))f
-(of)i(all)f(added)g(pinstrs)f(*\))576 4270 y(method)g(validate)h(:)h
-(unit)665 4367 y(\(*)g(ensures)e(that)i(the)f(DTD)g(is)h(valid.)f(This)
-g(method)g(is)g(optimized)f(such)h(that)710 4464 y(*)h(actual)f
-(validation)f(is)h(only)g(performed)g(if)g(DTD)h(has)f(changed.)710
-4561 y(*)h(If)f(the)h(DTD)f(is)g(invalid,)g(mostly)g(a)g
-(Validation_error)f(is)h(raised,)710 4659 y(*)h(but)f(other)g
-(exceptions)f(are)i(possible,)e(too.)710 4756 y(*\))p
-Black 3800 5278 a Fr(84)p Black eop
-%%Page: 85 85
-85 84 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 576 579 a Fq(method)43
-b(only_deterministic_models)e(:)k(unit)665 676 y(\(*)g(Succeeds)e(if)i
-(all)f(regexp)g(content)g(models)f(are)i(deterministic.)710
-773 y(*)g(Otherwise)e(Validation_error.)710 870 y(*\))576
-1065 y(method)g(write)h(:)h(Pxp_types.output_stream)c(-)p
-Fo(>)j Fq(Pxp_types.encoding)e(-)p Fo(>)j Fq(bool)f(-)396
-1162 y Fo(>)h Fq(unit)665 1259 y(\(*)g(write_compact_as_latin1)c(os)j
-(enc)h(doctype:)710 1356 y(*)g(Writes)f(the)g(DTD)g(as)h('enc'-encoded)
-d(string)i(to)h('os'.)f(If)g('doctype',)f(a)710 1453
-y(*)i(DTD)f(like)g Fo(<)p Fq(!DOCTYPE)f(root)i([)f(...)h(])p
-Fo(>)f Fq(is)g(written.)g(If)g('not)h(doctype',)710 1550
-y(*)g(only)f(the)g(declarations)f(are)h(written)g(\(the)g(material)g
-(within)g(the)710 1647 y(*)h(square)f(brackets\).)710
-1745 y(*\))576 1939 y(method)f(write_compact_as_latin1)e(:)k
-(Pxp_types.output_stream)c(-)p Fo(>)j Fq(bool)h(-)p Fo(>)f
-Fq(unit)665 2036 y(\(*)h(DEPRECATED)e(METHOD;)h(included)f(only)h(to)h
-(keep)f(compatibility)f(with)710 2133 y(*)i(older)f(versions)f(of)i
-(the)f(parser)710 2230 y(*\))576 2522 y
-(\(*---------------------------*\))576 2619 y(method)f(invalidate)h(:)g
-(unit)665 2716 y(\(*)h(INTERNAL)e(METHOD)h(*\))576 2813
-y(method)f(warner)h(:)h(Pxp_types.collect_warnings)665
-2910 y(\(*)g(INTERNAL)e(METHOD)h(*\))486 3007 y(end)396
-3396 y(\(*)h(--------------------------------------)o(------)o(---)39
-b(*\))396 3590 y(and)45 b(dtd_element)e(:)h(dtd)h(-)p
-Fo(>)f Fq(string)g(-)p Fo(>)486 3687 y Fq(\(*)g(Creation:)531
-3784 y(*)134 b(new)44 b(dtd_element)f(init_dtd)h(init_name:)531
-3882 y(*)g(creates)g(a)h(new)f(dtd_element)f(object)h(for)g(init_dtd)g
-(with)g(init_name.)531 3979 y(*)g(The)h(strings)e(are)i(represented)e
-(in)h(the)h(same)f(encoding)f(as)i(init_dtd.)531 4076
-y(*\))486 4173 y(object)576 4367 y(method)e(name)i(:)f(string)665
-4464 y(\(*)h(returns)e(the)i(name)f(of)g(the)h(declared)e(element)h
-(*\))576 4659 y(method)f(externally_declared)f(:)j(bool)665
-4756 y(\(*)g(returns)e(whether)h(the)g(element)g(declaration)f(occurs)h
-(in)g(an)h(external)710 4853 y(*)g(entity.)p Black 3800
-5278 a Fr(85)p Black eop
-%%Page: 86 86
-86 85 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 710 579 a Fq(*\))576
-773 y(method)43 b(content_model)g(:)i(Pxp_types.content_model_type)665
-870 y(\(*)g(get)f(the)g(content)g(model)g(of)h(this)f(element)f
-(declaration,)g(or)i(Unspecified)e(*\))576 1065 y(method)g(content_dfa)
-g(:)i(Pxp_dfa.dfa_definition)c(option)665 1162 y(\(*)k(return)f(the)g
-(DFA)g(of)h(the)f(content)g(model)g(if)g(there)g(is)h(a)f(DFA,)h(or)f
-(None.)710 1259 y(*)h(A)f(DFA)h(exists)f(only)g(for)g(regexp)g(style)g
-(content)g(models)f(which)h(are)710 1356 y(*)h(deterministic.)710
-1453 y(*\))576 1647 y(method)e(set_cm_and_extdecl)f(:)j
-(Pxp_types.content_model_type)40 b(-)p Fo(>)k Fq(bool)h(-)p
-Fo(>)f Fq(unit)665 1745 y(\(*)h(set_cm_and_extdecl)d(cm)i(extdecl:)710
-1842 y(*)h(set)f(the)g(content)g(model)g(to)h('cm'.)f(Once)g(the)g
-(content)g(model)g(is)g(not)710 1939 y(*)h(Unspecified,)e(it)h(cannot)g
-(be)g(set)h(to)f(a)h(different)e(value)h(again.)710 2036
-y(*)h(Furthermore,)e(it)h(is)h(set)f(whether)g(the)g(element)g(occurs)f
-(in)i(an)f(external)710 2133 y(*)h(entity)f(\('extdecl'\).)710
-2230 y(*\))576 2424 y(method)f(encoding)h(:)h(Pxp_types.rep_encoding)
-665 2522 y(\(*)g(Return)f(the)g(encoding)f(of)i(the)f(strings)g(*\))576
-2716 y(method)f(allow_arbitrary)g(:)h(unit)665 2813 y(\(*)h(After)f
-(this)g(method)g(has)g(been)g(invoked,)g(the)g(ob-)396
-2910 y(ject)g(changes)g(its)g(behaviour:)710 3007 y(*)h(-)f(attributes)
-g(that)g(have)g(not)g(been)g(added)g(may)h(be)f(used)g(in)h(an)710
-3104 y(*)134 b(arbitrary)44 b(way;)g(the)g(method)g("attribute")f
-(indicates)g(this)710 3202 y(*)134 b(by)45 b(raising)f(Undeclared)f
-(instead)g(of)i(Validation_error.)710 3299 y(*\))576
-3493 y(method)e(disallow_arbitrary)f(:)j(unit)576 3687
-y(method)e(arbitrary_allowed)f(:)j(bool)665 3784 y(\(*)g(Returns)e
-(whether)h(arbitrary)f(attributes)h(are)g(allowed)g(or)g(not.)g(*\))576
-3979 y(method)f(attribute)h(:)g(string)g(-)p Fo(>)1517
-4076 y Fq(Pxp_types.att_type)e(*)j(Pxp_types.att_default)665
-4173 y(\(*)g(get)f(the)g(type)h(and)f(default)g(value)g(of)g(a)h
-(declared)e(attribute,)g(or)i(raise)710 4270 y(*)g(Validation_error)d
-(if)i(the)h(attribute)e(does)h(not)h(exist.)710 4367
-y(*)g(If)f('arbitrary_allowed',)e(the)i(exception)f(Undeclared)h(is)g
-(raised)g(instead)710 4464 y(*)h(of)f(Validation_error.)710
-4561 y(*\))576 4756 y(method)f
-(attribute_violates_standalone_declaration)38 b(:)1069
-4853 y(string)44 b(-)p Fo(>)g Fq(string)g(option)g(-)p
-Fo(>)g Fq(bool)p Black 3798 5278 a Fr(86)p Black eop
-%%Page: 87 87
-87 86 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 665 579 a Fq(\(*)45
-b(attribute_violates_standalone_declarat)o(ion)39 b(name)44
-b(v:)710 676 y(*)h(Checks)f(whether)f(the)i(attribute)e('name')h
-(violates)f(the)i("standalone")710 773 y(*)g(declaration)e(if)h(it)h
-(has)f(value)g('v'.)710 870 y(*)h(The)f(method)g(returns)g(true)g(if:)
-710 967 y(*)h(-)f(The)h(attribute)e(declaration)g(occurs)h(in)g(an)h
-(external)e(entity,)710 1065 y(*)i(and)f(if)h(one)f(of)g(the)h(two)f
-(conditions)f(holds:)710 1162 y(*)i(-)f(v)h(=)g(None,)f(and)g(there)g
-(is)h(a)f(default)g(for)g(the)h(attribute)e(value)710
-1259 y(*)i(-)f(v)h(=)g(Some)f(s,)g(and)h(the)f(type)g(of)h(the)f
-(attribute)f(is)i(not)f(CDATA,)710 1356 y(*)134 b(and)45
-b(s)f(changes)g(if)h(normalized)e(according)g(to)i(the)f(rules)g(of)g
-(the)710 1453 y(*)134 b(attribute)44 b(type.)710 1550
-y(*)710 1647 y(*)h(The)f(method)g(raises)g(Validation_error)e(if)i(the)
-h(attribute)e(does)h(not)g(exist.)710 1745 y(*)h(If)f
-('arbitrary_allowed',)e(the)i(exception)f(Undeclared)h(is)g(raised)g
-(instead)710 1842 y(*)h(of)f(Validation_error.)710 1939
-y(*\))576 2133 y(method)f(attribute_names)g(:)h(string)g(list)665
-2230 y(\(*)h(get)f(the)g(list)h(of)f(all)g(declared)g(attributes)f(*\))
-576 2424 y(method)g(names_of_required_attributes)e(:)j(string)g(list)
-665 2522 y(\(*)h(get)f(the)g(list)h(of)f(all)g(attributes)g(that)g(are)
-g(specified)f(as)i(required)710 2619 y(*)g(attributes)710
-2716 y(*\))576 2910 y(method)e(id_attribute_name)f(:)j(string)f(option)
-665 3007 y(\(*)h(Returns)e(the)i(name)f(of)g(the)h(attribute)e(with)h
-(type)g(ID,)h(or)f(None.)g(*\))576 3202 y(method)f
-(idref_attribute_names)f(:)i(string)g(list)665 3299 y(\(*)h(Returns)e
-(the)i(names)f(of)g(the)h(attributes)e(with)h(type)g(IDREF)g(or)h
-(IDREFS.)e(*\))576 3493 y(method)g(add_attribute)g(:)i(string)f(-)p
-Fo(>)1607 3590 y Fq(Pxp_types.att_type)e(-)p Fo(>)531
-3687 y Fq(Pxp_types.att_default)f(-)p Fo(>)531 3784 y
-Fq(bool)j(-)p Fo(>)620 3882 y Fq(unit)665 3979 y(\(*)h(add_attribute)d
-(name)j(type)f(default)f(extdecl:)710 4076 y(*)i(add)f(an)h(attribute)e
-(declaration)g(for)h(an)h(attribute)e(with)h(the)h(given)e(name,)710
-4173 y(*)i(type,)f(and)g(default)g(value.)g(If)g(there)g(is)h(more)f
-(than)g(one)g(declaration)f(for)710 4270 y(*)i(an)f(attribute)g(name,)g
-(the)g(first)g(declara-)396 4367 y(tion)g(counts;)g(the)g(other)g
-(declarations)710 4464 y(*)h(are)f(ignored.)710 4561
-y(*)h('extdecl':)e(if)h(true,)g(the)h(attribute)e(declaration)g(occurs)
-h(in)g(an)h(external)710 4659 y(*)g(entity.)e(This)i(property)e(is)i
-(used)f(to)g(check)g(the)h("standalone")d(attribute.)710
-4756 y(*\))p Black 3797 5278 a Fr(87)p Black eop
-%%Page: 88 88
-88 87 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 576 579 a Fq(method)43
-b(validate)h(:)h(unit)665 676 y(\(*)g(checks)f(whether)f(this)h
-(element)g(declaration)f(\(i.e.)h(the)g(content)g(model)g(and)710
-773 y(*)h(all)f(attribute)f(declarations\))g(is)i(valid)f(for)g(the)g
-(associated)f(DTD.)710 870 y(*)i(Raises)f(mostly)f(Validation_error)g
-(if)h(the)g(validation)g(fails.)710 967 y(*\))576 1162
-y(method)f(write)h(:)h(Pxp_types.output_stream)c(-)p
-Fo(>)j Fq(Pxp_types.encoding)e(-)p Fo(>)j Fq(unit)665
-1259 y(\(*)g(write_compact_as_latin1)c(os)j(enc:)710
-1356 y(*)h(Writes)f(the)g Fo(<)p Fq(!ELEMENT)f(...)h
-Fo(>)h Fq(declaration)e(to)h('os')h(as)f('enc'-)396 1453
-y(encoded)g(string.)710 1550 y(*\))576 1745 y(method)f
-(write_compact_as_latin1)e(:)k(Pxp_types.output_stream)c(-)p
-Fo(>)j Fq(unit)665 1842 y(\(*)h(DEPRECATED)e(METHOD;)h(included)f(only)
-h(to)h(keep)f(compatibility)f(with)710 1939 y(*)i(older)f(versions)f
-(of)i(the)f(parser)710 2036 y(*\))486 2133 y(end)396
-2327 y(\(*)h(--------------------------------------)o(------)o(---)39
-b(*\))396 2522 y(and)45 b(dtd_notation)d(:)j(string)f(-)p
-Fo(>)g Fq(Pxp_types.ext_id)e(-)p Fo(>)j Fq(Pxp_types.rep_encoding)c(-)p
-Fo(>)486 2619 y Fq(\(*)j(Creation:)531 2716 y(*)179 b(new)44
-b(dtd_notation)f(a_name)h(an_external_ID)e(init_encoding)531
-2813 y(*)i(creates)g(a)h(new)f(dtd_notation)f(object)h(with)g(the)g
-(given)g(name)g(and)h(the)f(given)531 2910 y(*)g(external)g(ID.)531
-3007 y(*\))486 3104 y(object)576 3202 y(method)f(name)i(:)f(string)576
-3299 y(method)f(ext_id)h(:)h(Pxp_types.ext_id)576 3396
-y(method)e(encoding)h(:)h(Pxp_types.rep_encoding)576
-3590 y(method)e(write)h(:)h(Pxp_types.output_stream)c(-)p
-Fo(>)j Fq(Pxp_types.encoding)e(-)p Fo(>)j Fq(unit)665
-3687 y(\(*)g(write_compact_as_latin1)c(os)j(enc:)710
-3784 y(*)h(Writes)f(the)g Fo(<)p Fq(!NOTATION)f(...)h
-Fo(>)h Fq(declaration)e(to)h('os')g(as)h('enc'-encoded)710
-3882 y(*)g(string.)710 3979 y(*\))576 4173 y(method)e
-(write_compact_as_latin1)e(:)k(Pxp_types.output_stream)c(-)p
-Fo(>)j Fq(unit)665 4270 y(\(*)h(DEPRECATED)e(METHOD;)h(included)f(only)
-h(to)h(keep)f(compatibility)f(with)710 4367 y(*)i(older)f(versions)f
-(of)i(the)f(parser)710 4464 y(*\))486 4659 y(end)396
-4853 y(\(*)h(--------------------------------------)o(------)o(---)39
-b(*\))p Black 3800 5278 a Fr(88)p Black eop
-%%Page: 89 89
-89 88 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 396 676 a Fq(and)45
-b(proc_instruction)d(:)i(string)g(-)p Fo(>)h Fq(string)e(-)p
-Fo(>)i Fq(Pxp_types.rep_encoding)c(-)p Fo(>)486 773 y
-Fq(\(*)j(Creation:)531 870 y(*)134 b(new)44 b(proc_instruction)f
-(a_target)g(a_value)531 967 y(*)h(creates)g(a)h(new)f(proc_instruction)
-e(object)i(with)g(the)h(given)f(target)f(string)h(and)531
-1065 y(*)g(the)h(given)f(value)g(string.)531 1162 y(*)g(Note:)g(A)h
-(processing)e(instruction)g(is)i(written)e(as)i Fo(<)p
-Fq(?target)e(value?)p Fo(>)p Fq(.)531 1259 y(*\))486
-1356 y(object)576 1453 y(method)g(target)h(:)h(string)576
-1550 y(method)e(value)h(:)h(string)576 1647 y(method)e(encoding)h(:)h
-(Pxp_types.rep_encoding)576 1842 y(method)e(write)h(:)h
-(Pxp_types.output_stream)c(-)p Fo(>)j Fq(Pxp_types.encoding)e(-)p
-Fo(>)j Fq(unit)665 1939 y(\(*)g(write)f(os)g(enc:)710
-2036 y(*)h(Writes)f(the)g Fo(<)p Fq(?...?)p Fo(>)f Fq(PI)i(to)f('os')h
-(as)f('enc'-encoded)f(string.)710 2133 y(*\))576 2327
-y(method)g(write_compact_as_latin1)e(:)k(Pxp_types.output_stream)c(-)p
-Fo(>)j Fq(unit)665 2424 y(\(*)h(DEPRECATED)e(METHOD;)h(included)f(only)
-h(to)h(keep)f(compatibility)f(with)710 2522 y(*)i(older)f(versions)f
-(of)i(the)f(parser)710 2619 y(*\))576 2813 y(method)f(parse_pxp_option)
-g(:)h(\(string)g(*)h(string)e(*)i(\(string)f(*)g(string\))g(list\))665
-2910 y(\(*)h(Parses)f(a)g(PI)h(containing)e(a)i(PXP)f(option.)g(Such)g
-(PIs)g(are)g(formed)g(like:)710 3007 y(*)134 b Fo(<)p
-Fq(?target)44 b(option-name)f(option-att="value")f(option-att="value")f
-(...)k(?)p Fo(>)710 3104 y Fq(*)g(The)f(method)g(returns)g(a)g(triple)
-710 3202 y(*)134 b(\(target,)44 b(option-name,)f([option-att,)g(value;)
-g(...]\))710 3299 y(*)i(or)f(raises)g(Error.)710 3396
-y(*\))486 3590 y(end)396 3784 y(;;)-2 4286 y Fx(4.4.)39
-b(In)-6 b(v)l(oking)38 b(the)h(par)n(ser)396 4466 y Fv(Here)20
-b(a)h(description)e(of)h(Pxp_yacc.)-2 4794 y Fp(4.4.1.)35
-b(Defaults)p Black 3800 5278 a Fr(89)p Black eop
-%%Page: 90 90
-90 89 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 396 579 a Fv(The)g(follo)n(wing)f
-(def)o(aults)g(are)i(a)n(v)n(ailable:)396 759 y Fq(val)45
-b(default_config)d(:)j(config)396 856 y(val)g(default_extension)d(:)i
-(\('a)h(node)f(extension\))f(as)h('a)396 953 y(val)h(default_spec)d(:)j
-(\('a)f(node)h(extension)e(as)h('a\))h(spec)-2 1406 y
-Fp(4.4.2.)35 b(P)l(ar)n(sing)f(functions)396 1574 y Fv(In)20
-b(the)g(follo)n(wing,)f(the)h(term)g("closed)g(document")e(refers)h(to)
-i(an)f(XML)g(structure)f(lik)o(e)396 1754 y Fo(<)p Fq(!DOCTYPE)43
-b(...)i([)f Fn(declarations)f Fq(])i Fo(>)396 1851 y(<)p
-Fn(root)p Fo(>)396 1948 y Fq(...)396 2045 y Fo(<)p Fq(/)p
-Fn(root)p Fo(>)396 2236 y Fv(The)20 b(term)g("fragment")e(refers)i(to)g
-(an)g(XML)h(structure)e(lik)o(e)396 2416 y Fo(<)p Fn(root)p
-Fo(>)396 2513 y Fq(...)396 2611 y Fo(<)p Fq(/)p Fn(root)p
-Fo(>)396 2802 y Fv(i.e.)h(only)g(to)g(one)g(isolated)g(element)f
-(instance.)396 3023 y Fq(val)45 b(parse_dtd_entity)d(:)i(config)g(->)h
-(source)f(->)g(dtd)396 3214 y Fv(P)o(arses)21 b(the)f(declarations)f
-(which)h(are)g(contained)e(in)j(the)f(entity)-5 b(,)19
-b(and)h(returns)f(them)h(as)h Fq(dtd)f Fv(object.)396
-3436 y Fq(val)45 b(extract_dtd_from_document_entity)39
-b(:)45 b(config)f(->)g(source)g(->)g(dtd)396 3627 y Fv(Extracts)20
-b(the)g(DTD)h(from)e(a)h(closed)g(document.)e(Both)i(the)h(internal)e
-(and)h(the)g(e)o(xternal)f(subsets)h(are)h(e)o(xtracted)d(and)396
-3735 y(combined)g(to)i(one)f Fq(dtd)h Fv(object.)f(This)h(function)e
-(does)h(not)h(parse)f(the)h(whole)f(document,)f(b)n(ut)i(only)e(the)i
-(parts)g(that)g(are)396 3843 y(necessary)g(to)g(e)o(xtract)f(the)i
-(DTD.)396 4064 y Fq(val)45 b(parse_document_entity)c(:)576
-4161 y(?transform_dtd:\(dtd)g(->)k(dtd\))f(->)576 4259
-y(?id_index:\('ext)e(index\))i(->)576 4356 y(config)f(->)576
-4453 y(source)g(->)576 4550 y('ext)h(spec)g(->)755 4647
-y('ext)g(document)p Black 3800 5278 a Fr(90)p Black eop
-%%Page: 91 91
-91 90 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 396 579 a Fv(P)o(arses)h(a)g(closed)
-e(document)g(and)g(v)n(alidates)h(it)h(against)e(the)i(DTD)f(that)g(is)
-h(contained)e(in)h(the)h(document)d(\(internal)396 687
-y(and)i(e)o(xternal)f(subsets\).)h(The)g(option)f Fq(~transform_dtd)f
-Fv(can)i(be)g(used)g(to)g(transform)f(the)h(DTD)h(in)f(the)g(document,)
-396 795 y(and)g(to)g(use)h(the)f(transformed)e(DTD)i(for)g(v)n
-(alidation.)e(If)i Fq(~id_index)g Fv(is)h(speci\002ed,)e(an)h(inde)o(x)
-f(of)h(all)h(ID)f(attrib)n(utes)h(is)396 903 y(created.)396
-1124 y Fq(val)45 b(parse_wfdocument_entity)c(:)576 1222
-y(config)i(->)576 1319 y(source)g(->)576 1416 y('ext)h(spec)g(->)755
-1513 y('ext)g(document)396 1704 y Fv(P)o(arses)21 b(a)g(closed)e
-(document,)f(b)n(ut)j(checks)e(it)i(only)e(on)h(well-formedness.)396
-1926 y Fq(val)45 b(parse_content_entity)86 b(:)576 2023
-y(?id_index:\('ext)42 b(index\))i(->)576 2120 y(config)f(->)576
-2217 y(source)g(->)576 2314 y(dtd)h(->)576 2411 y('ext)g(spec)g(->)755
-2508 y('ext)g(node)396 2699 y Fv(P)o(arses)21 b(a)g(fragment,)d(and)h
-(v)n(alidates)h(the)g(element.)396 2921 y Fq(val)45 b
-(parse_wfcontent_entity)c(:)576 3018 y(config)i(->)576
-3115 y(source)g(->)576 3212 y('ext)h(spec)g(->)755 3310
-y('ext)g(node)396 3500 y Fv(P)o(arses)21 b(a)g(fragment,)d(b)n(ut)i
-(checks)g(it)g(only)g(on)g(well-formedness.)-2 3870 y
-Fp(4.4.3.)35 b(Con\002guration)f(options)396 4110 y Fq(type)44
-b(config)g(=)576 4207 y({)g(warner)g(:)h(collect_warnings;)665
-4304 y(errors_with_line_numbers)c(:)k(bool;)665 4401
-y(enable_pinstr_nodes)d(:)j(bool;)665 4499 y(enable_super_root_node)c
-(:)k(bool;)665 4596 y(enable_comment_nodes)d(:)i(bool;)665
-4693 y(encoding)g(:)g(rep_encoding;)665 4790 y
-(recognize_standalone_declaration)c(:)k(bool;)p Black
-3800 5278 a Fr(91)p Black eop
-%%Page: 92 92
-92 91 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 665 579 a Fq
-(store_element_positions)41 b(:)k(bool;)665 676 y(idref_pass)e(:)i
-(bool;)665 773 y(validate_by_dfa)e(:)h(bool;)665 870
-y(accept_only_deterministic_models)c(:)k(bool;)665 967
-y(...)576 1065 y(})p Black 396 1422 a Ft(\225)p Black
-60 w Fq(warner:)p Fv(The)19 b(parser)h(prints)f(w)o(arnings)h(by)f(in)m
-(v)n(oking)f(the)j(method)d Fq(warn)j Fv(for)e(this)i(w)o(arner)e
-(object.)h(\(Def)o(ault:)f(all)479 1530 y(w)o(arnings)h(are)g
-(dropped\))p Black 396 1637 a Ft(\225)p Black 60 w Fq
-(errors_with_line_numbers:)p Fv(If)c(true,)k(errors)f(contain)g(line)i
-(numbers;)d(if)j(f)o(alse,)f(errors)g(contain)f(only)g(byte)479
-1745 y(positions.)h(The)g(latter)g(mode)f(is)i(f)o(aster)-5
-b(.)21 b(\(Def)o(ault:)e(true\))p Black 396 1853 a Ft(\225)p
-Black 60 w Fq(enable_pinstr_nodes:)p Fv(If)e(true,)j(the)g(parser)f
-(creates)i(e)o(xtra)e(nodes)g(for)h(processing)f(instructions.)g(If)h
-(f)o(alse,)479 1961 y(processing)f(instructions)g(are)h(simply)g(added)
-f(to)i(the)f(element)f(or)h(document)f(surrounding)e(the)j
-(instructions.)479 2069 y(\(Def)o(ault:)g(f)o(alse\))p
-Black 396 2177 a Ft(\225)p Black 60 w Fq(enable_super_root_node:)p
-Fv(If)c(true,)k(the)g(parser)g(creates)g(an)g(e)o(xtra)g(node)f(which)g
-(is)j(the)e(parent)f(of)h(the)g(root)479 2285 y(of)g(the)g(document)f
-(tree.)h(This)g(node)f(is)i(called)f(super)g(root;)f(it)i(is)g(an)g
-(element)e(with)i(type)e Fq(T_super_root)p Fv(.)g(-)h(If)479
-2393 y(there)g(are)g(processing)f(instructions)g(outside)h(the)g(root)f
-(element)h(and)g(outside)f(the)i(DTD,)f(the)o(y)f(are)h(added)f(to)i
-(the)479 2501 y(super)f(root)f(instead)h(of)g(the)g(document.)e(-)j(If)
-f(f)o(alse,)g(the)g(super)g(root)g(node)f(is)i(not)f(created.)f(\(Def)o
-(ault:)h(f)o(alse\))p Black 396 2609 a Ft(\225)p Black
-60 w Fq(enable_comment_nodes:)p Fv(If)d(true,)i(the)i(parser)e(creates)
-h(nodes)g(for)f(comments)g(with)i(type)f Fq(T_comment)p
-Fv(;)f(if)479 2717 y(f)o(alse,)i(such)f(nodes)f(are)h(not)g(created.)f
-(\(Def)o(ault:)h(f)o(alse\))p Black 396 2825 a Ft(\225)p
-Black 60 w Fq(encoding:)p Fv(Speci\002es)f(the)i(internal)e(encoding)f
-(of)i(the)g(parser)-5 b(.)20 b(Most)g(strings)h(are)f(then)f
-(represented)g(according)479 2933 y(to)i(this)f(encoding;)f(ho)n(we)n
-(v)o(er)f(there)h(are)i(some)f(e)o(xceptions)e(\(especially)i
-Fq(ext_id)f Fv(v)n(alues)h(which)g(are)g(al)o(w)o(ays)479
-3041 y(UTF-8)g(encoded\).)e(\(Def)o(ault:)h(`Enc_iso88591\))p
-Black 396 3148 a Ft(\225)p Black 60 w Fq
-(recognize_standalone_declaration:)c Fv(If)21 b(true)e(and)h(if)h(the)f
-(parser)f(is)i(v)n(alidating,)e(the)479 3256 y Fq(standalone="yes")f
-Fv(declaration)h(forces)h(that)g(it)h(is)g(check)o(ed)e(whether)g(the)h
-(document)e(is)j(a)g(standalone)479 3364 y(document.)d(-)j(If)f(f)o
-(alse,)g(or)g(if)g(the)h(parser)e(is)i(in)g(well-formedness)d(mode,)h
-(such)h(declarations)f(are)h(ignored.)479 3472 y(\(Def)o(ault:)g
-(true\))p Black 396 3580 a Ft(\225)p Black 60 w Fq
-(store_element_positions:)d Fv(If)j(true,)g(for)f(e)n(v)o(ery)g
-(non-data)f(node)h(the)i(source)e(position)g(is)j(stored.)d(If)h(f)o
-(alse,)479 3688 y(the)g(position)g(information)e(is)j(lost.)f(If)g(a)n
-(v)n(ailable,)g(you)f(can)h(get)g(the)g(positions)g(of)g(nodes)f(by)h
-(in)m(v)n(oking)e(the)479 3796 y Fq(position)i Fv(method.)e(\(Def)o
-(ault:)i(true\))p Black 396 3904 a Ft(\225)p Black 60
-w Fq(idref_pass:)p Fv(If)e(true)i(and)g(if)g(there)g(is)h(an)f(ID)h
-(inde)o(x,)e(the)h(parser)f(checks)h(whether)f(e)n(v)o(ery)g(IDREF)i
-(or)e(IDREFS)479 4012 y(attrib)n(ute)h(refer)g(to)g(an)g(e)o(xisting)f
-(node;)h(this)g(requires)g(that)g(the)g(parser)g(tra)n(v)o(erses)g(the)
-g(whole)f(doument)g(tree.)h(If)479 4120 y(f)o(alse,)h(this)f(check)g
-(is)h(left)f(out.)g(\(Def)o(ault:)g(f)o(alse\))p Black
-396 4228 a Ft(\225)p Black 60 w Fq(validate_by_dfa:)p
-Fv(If)e(true)h(and)h(if)h(the)f(content)f(model)g(for)h(an)g(element)g
-(type)f(is)i(deterministic,)e(a)479 4336 y(deterministic)h(\002nite)g
-(automaton)e(is)j(used)f(to)h(v)n(alidate)e(whether)g(the)i(element)e
-(contents)h(match)f(the)i(content)479 4444 y(model)e(of)h(the)g(type.)g
-(If)g(f)o(alse,)g(or)g(if)g(a)g(DF)-6 b(A)21 b(is)g(not)f(a)n(v)n
-(ailable,)f(a)h(backtracking)e(algorithm)g(is)j(used)f(for)f(v)n
-(alidation.)479 4552 y(\(Def)o(ault:)h(true\))p Black
-396 4659 a Ft(\225)p Black 60 w Fq(accept_only_deterministic_models:)15
-b Fv(If)21 b(true,)e(only)h(deterministic)f(content)g(models)h(are)g
-(accepted;)f(if)479 4767 y(f)o(alse,)i(an)o(y)e(syntactically)h
-(correct)f(content)g(models)h(can)g(be)g(processed.)f(\(Def)o(ault:)g
-(true\))p Black 3800 5278 a Fr(92)p Black eop
-%%Page: 93 93
-93 92 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black -2 583 a Fp(4.4.4.)35
-b(Whic)o(h)f(con\002guration)g(should)g(I)f(use?)396
-751 y Fv(First,)21 b(I)f(recommend)e(to)i(v)n(ary)g(the)g(def)o(ault)f
-(con\002guration)f(instead)i(of)g(creating)f(a)i(ne)n(w)f
-(con\002guration)d(record.)i(F)o(or)396 859 y(instance,)h(to)g(set)h
-Fq(idref_pass)e Fv(to)i Fq(true)p Fv(,)e(change)g(the)i(def)o(ault)e
-(as)i(in:)396 1039 y Fq(let)45 b(config)e(=)i({)g(default_config)d
-(with)i(idref_pass)g(=)g(true)g(})396 1230 y Fv(The)20
-b(background)d(is)k(that)f(I)h(can)f(add)f(more)h(options)f(to)h(the)g
-(record)f(in)i(future)e(v)o(ersions)g(of)h(the)g(parser)f(without)396
-1338 y(breaking)g(your)f(programs.)396 1487 y Fu(Do)i(I)i(need)e(extra)
-f(nodes)i(f)n(or)f(pr)o(ocessing)g(instructions?)g Fv(By)g(def)o(ault,)
-g(such)g(nodes)f(are)h(not)g(created.)f(This)i(does)396
-1595 y(not)f(mean)g(that)g(the)g(processing)f(instructions)g(are)h
-(lost;)h(ho)n(we)n(v)o(er)m(,)d(you)h(cannot)g(\002nd)h(out)g(the)g(e)o
-(xact)g(location)f(where)396 1703 y(the)o(y)h(occur)-5
-b(.)19 b(F)o(or)h(e)o(xample,)e(the)j(follo)n(wing)d(XML)i(te)o(xt)396
-1883 y Fq(<x><?pi1?><y/><?pi2?></x>)396 2074 y Fv(will)h(normally)e
-(create)h(one)f(element)h(node)f(for)h Fq(x)g Fv(containing)e
-Fr(one)i Fv(subnode)f(for)g Fq(y)p Fv(.)h(The)g(processing)f
-(instructions)396 2182 y(are)h(attached)g(to)g Fq(x)h
-Fv(in)f(a)h(separate)e(hash)h(table;)h(you)e(can)h(access)h(them)e
-(using)h Fq(x)45 b(#)f(pinstr)g("pi1")20 b Fv(and)g Fq(x)44
-b(#)396 2290 y(pinstr)g("pi2")p Fv(,)20 b(respecti)n(v)o(ely)-5
-b(.)18 b(The)i(information)d(is)k(lost)g(where)f(the)g(instructions)f
-(occur)g(within)h Fq(x)p Fv(.)396 2439 y(If)g(the)h(option)d
-Fq(enable_pinstr_nodes)g Fv(is)j(turned)e(on,)h(the)g(parser)f(creates)
-i(e)o(xtra)e(nodes)g Fq(pi1)i Fv(and)e Fq(pi2)i Fv(such)f(that)396
-2547 y(the)g(subnodes)f(of)h Fq(x)h Fv(are)f(no)n(w:)396
-2728 y Fq(x)45 b(#)g(sub_nodes)e(=)i([)f(pi1;)g(y;)h(pi2)f(])396
-2919 y Fv(The)20 b(e)o(xtra)g(nodes)f(contain)g(the)h(processing)f
-(instructions)g(in)i(the)f(usual)g(w)o(ay)-5 b(,)20 b(i.e.)g(you)f(can)
-h(access)h(them)f(using)f Fq(pi1)396 3026 y(#)45 b(pinstr)f("pi1")20
-b Fv(and)f Fq(pi2)45 b(#)f(pinstr)g("pi2")p Fv(,)20 b(respecti)n(v)o
-(ely)-5 b(.)396 3176 y(Note)20 b(that)h(you)e(will)i(need)e(an)i(e)o(x)
-o(emplar)d(for)h(the)i(PI)f(nodes)g(\(see)g Fq(make_spec_from_alist)p
-Fv(\).)396 3325 y Fu(Do)g(I)i(need)e(a)h(super)g(r)o(oot)d(node?)i
-Fv(By)h(def)o(ault,)e(there)h(is)h(no)f(super)f(root)h(node.)f(The)h
-Fq(document)f Fv(object)h(refers)396 3433 y(directly)g(to)g(the)g(node)
-f(representing)f(the)j(root)e(element)h(of)g(the)g(document,)e(i.e.)396
-3613 y Fq(doc)45 b(#)f(root)g(=)h(r)396 3804 y Fv(if)21
-b Fq(r)f Fv(is)h(the)g(root)e(node.)g(This)h(is)i(sometimes)d(incon)m
-(v)o(enient:)f(\(1\))h(Some)h(algorithms)f(become)g(simpler)h(if)g(e)n
-(v)o(ery)f(node)396 3912 y(has)i(a)f(parent,)f(e)n(v)o(en)g(the)i(root)
-e(node.)g(\(2\))h(Some)g(standards)f(such)h(as)h(XP)o(ath)f(call)g(the)
-h("root)e(node")g(the)h(node)f(whose)396 4020 y(child)h(represents)f
-(the)i(root)e(of)h(the)g(document.)e(\(3\))i(The)g(super)f(root)h(node)
-f(can)h(serv)o(e)f(as)i(a)g(container)e(for)g(processing)396
-4128 y(instructions)g(outside)h(the)g(root)g(element.)f(Because)i(of)e
-(these)i(reasons,)e(it)i(is)g(possible)f(to)h(create)f(an)g(e)o(xtra)f
-(super)h(root)396 4236 y(node,)f(whose)h(child)g(is)h(the)f(root)g
-(node:)396 4416 y Fq(doc)45 b(#)f(root)g(=)h(sr)403 b(&&)396
-4513 y(sr)45 b(#)f(sub_nodes)g(=)g([)h(r)g(])396 4704
-y Fv(When)20 b(e)o(xtra)g(nodes)f(are)h(also)h(created)e(for)h
-(processing)f(instructions,)g(these)h(nodes)f(can)h(be)h(added)e(to)h
-(the)g(super)g(root)396 4812 y(node)f(if)h(the)o(y)e(occur)h(outside)g
-(the)g(root)g(element)g(\(reason)f(\(3\)\),)h(and)g(the)g(order)g
-(re\003ects)g(the)h(order)e(in)i(the)f(source)g(te)o(xt.)p
-Black 3800 5278 a Fr(93)p Black eop
-%%Page: 94 94
-94 93 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 396 579 a Fv(Note)g(that)h(you)e
-(will)i(need)e(an)i(e)o(x)o(emplar)d(for)h(the)i(super)e(root)h(node)f
-(\(see)h Fq(make_spec_from_alist)p Fv(\).)396 728 y Fu(What)g(is)h(the)
-g(effect)e(of)h(the)h(UTF-8)e(encoding?)h Fv(By)h(def)o(ault,)e(the)h
-(parser)g(represents)f(strings)h(\(with)g(fe)n(w)396
-836 y(e)o(xceptions\))e(as)j(ISO-8859-1)c(strings.)i(These)h(are)g
-(well-kno)n(wn,)d(and)j(there)f(are)h(tools)g(and)f(fonts)g(for)h(this)
-g(encoding.)396 986 y(Ho)n(we)n(v)o(er)m(,)e(internationalization)g
-(may)h(require)g(that)i(you)e(switch)h(o)o(v)o(er)f(to)i(UTF-8)e
-(encoding.)f(In)i(most)396 1094 y(en)m(vironments,)d(the)k(immediate)e
-(ef)n(fect)h(will)g(be)h(that)f(you)f(cannot)g(read)h(strings)g(with)g
-(character)f(codes)h(>=)h(160)e(an)o(y)396 1202 y(longer;)g(your)g
-(terminal)h(will)h(only)e(sho)n(w)h(funn)o(y)e(glyph)h(combinations.)f
-(It)i(is)h(strongly)e(recommended)e(to)k(install)396
-1310 y(Unicode)e(fonts)h(\(GNU)g(Unifont)f
-(\(http://czyborra.com/unifon)o(t/\),)c(Markus)k(K)o(uhn')-5
-b(s)19 b(fonts)396 1417 y(\(http://www)-5 b(.cl.cam.ac.uk/~mgk25)o(/do)
-m(wnlo)o(ad/u)o(cs-fo)o(nts.tar)g(.g)o(z\)\))14 b(and)20
-b(terminal)f(emulators)h(that)g(can)g(handle)396 1525
-y(UTF-8)g(byte)g(sequences)f(\(http://myweb)m(.clark.net/pub/d)o(ick)o
-(e)o(y)o(/xter)o(m/x)o(term.)o(html\))o(.)c(Furthermore,)i(a)k(Unicode)
-396 1633 y(editor)f(may)f(be)i(helpful)e(\(such)g(as)i(Y)-9
-b(udit)20 b(\(ftp://metalab)m(.unc.edu/pub)o(/Linu)o(x/ap)o(ps/ed)o
-(itors/X/\)\))o(.)15 b(There)k(are)h(also)396 1741 y(F)-6
-b(A)h(Q)21 b(\(http://www)-5 b(.cl.cam.ac.uk/~mgk25)o(/unico)o(de)o
-(.htm)o(l\))15 b(by)20 b(Markus)f(K)o(uhn.)396 1891 y(By)i(setting)f
-Fq(encoding)f Fv(to)i Fq(`Enc_utf8)e Fv(all)i(strings)f(originating)e
-(from)h(the)i(parsed)e(XML)h(document)e(are)396 1999
-y(represented)h(as)i(UTF-8)e(strings.)h(This)h(includes)e(not)h(only)f
-(character)g(data)h(and)g(attrib)n(ute)g(v)n(alues)g(b)n(ut)g(also)g
-(element)396 2107 y(names,)g(attrib)n(ute)g(names)g(and)f(so)i(on,)e
-(as)i(it)g(is)g(possible)f(to)h(use)f(an)o(y)f(Unicode)g(letter)i(to)f
-(form)f(such)h(names.)g(Strictly)396 2214 y(speaking,)f(PXP)i(is)g
-(only)e(XML-compliant)f(if)j(the)f(UTF-8)g(mode)f(is)i(used;)f
-(otherwise)g(it)h(will)g(ha)n(v)o(e)e(dif)n(\002culties)396
-2322 y(when)h(v)n(alidating)f(documents)f(containing)g
-(non-ISO-8859-1-names.)396 2472 y(This)j(mode)e(does)h(not)g(ha)n(v)o
-(e)f(an)o(y)h(impact)f(on)h(the)g(e)o(xternal)f(representation)f(of)i
-(documents.)f(The)g(character)g(set)396 2580 y(assumed)h(when)g
-(reading)e(a)j(document)d(is)j(set)g(in)g(the)f(XML)g(declaration,)e
-(and)i(character)f(set)i(when)e(writing)h(a)396 2688
-y(document)e(must)j(be)f(passed)g(to)g(the)g Fq(write)g
-Fv(method.)396 2837 y Fu(Ho)o(w)g(do)h(I)g(check)f(that)g(nodes)h
-(exist)f(which)h(ar)o(e)e(r)o(eferr)o(ed)g(by)i(IDREF)g(attrib)n(utes?)
-e Fv(First,)i(you)e(must)h(create)g(an)396 2945 y(inde)o(x)f(of)h(all)h
-(occurring)d(ID)i(attrib)n(utes:)396 3125 y Fq(let)45
-b(index)f(=)g(new)h(hash_index)396 3316 y Fv(This)21
-b(inde)o(x)e(must)h(be)g(passed)g(to)g(the)h(parsing)e(function:)396
-3496 y Fq(parse_document_entity)486 3593 y(~id_index:\(index)42
-b(:>)j(index\))486 3691 y(config)f(source)g(spec)396
-3882 y Fv(Ne)o(xt,)20 b(you)f(must)h(turn)g(on)g(the)g
-Fq(idref_pass)f Fv(mode:)396 4062 y Fq(let)45 b(config)e(=)i({)g
-(default_config)d(with)i(idref_pass)g(=)g(true)g(})396
-4253 y Fv(Note)20 b(that)h(no)n(w)e(the)i(whole)e(document)f(tree)j
-(will)g(be)f(tra)n(v)o(ersed,)f(and)g(e)n(v)o(ery)g(node)g(will)i(be)f
-(check)o(ed)f(for)h(IDREF)g(and)396 4361 y(IDREFS)h(attrib)n(utes.)f
-(If)g(the)g(tree)g(is)h(big,)f(this)h(may)f(tak)o(e)g(some)g(time.)396
-4510 y Fu(What)g(ar)o(e)g(deterministic)g(content)g(models?)g
-Fv(These)g(type)g(of)g(models)g(can)g(speed)f(up)h(the)g(v)n(alidation)
-f(checks;)396 4618 y(furthermore)f(the)o(y)h(ensure)g
-(SGML-compatibility)-5 b(.)18 b(In)i(particular)m(,)e(a)j(content)e
-(model)g(is)i(deterministic)e(if)i(the)f(parser)396 4726
-y(can)g(determine)f(the)h(actually)g(used)g(alternati)n(v)o(e)f(by)g
-(inspecting)g(only)h(the)g(current)f(tok)o(en.)g(F)o(or)h(e)o(xample,)e
-(this)396 4834 y(element)i(has)g(non-deterministic)e(contents:)p
-Black 3800 5278 a Fr(94)p Black eop
-%%Page: 95 95
-95 94 bop Black 2348 67 a Fr(Chapter)20 b(4.)g(Con\002guring)e(and)i
-(calling)f(the)h(par)o(ser)p Black 396 579 a Fq(<!ELEMENT)44
-b(x)g(\(\(u,v\))g(|)h(\(u,y+\))f(|)g(v\)>)396 770 y Fv(If)20
-b(the)h(\002rst)f(element)g(in)g Fq(x)h Fv(is)g Fq(u)p
-Fv(,)f(the)h(parser)e(does)h(not)g(kno)n(w)f(which)h(of)g(the)g
-(alternati)n(v)o(es)f Fq(\(u,v\))h Fv(or)g Fq(\(u,y+\))g
-Fv(will)396 878 y(w)o(ork;)g(the)g(parser)g(must)g(also)g(inspect)g
-(the)h(second)e(element)g(to)i(be)f(able)g(to)g(distinguish)g(between)f
-(the)h(alternati)n(v)o(es.)396 986 y(Because)h(such)f(look-ahead)d
-(\(or)j("guessing"\))e(is)k(required,)c(this)i(e)o(xample)f(is)i
-(non-deterministic.)396 1135 y(The)f(XML)g(standard)f(demands)g(that)i
-(content)e(models)g(must)i(be)f(deterministic.)f(So)h(it)h(is)g
-(recommended)c(to)k(turn)e(the)396 1243 y(option)g Fq
-(accept_only_deterministic_models)d Fv(on;)j(ho)n(we)n(v)o(er)m(,)f
-(PXP)j(can)f(also)h(process)e(non-deterministic)396 1351
-y(models)h(using)g(a)g(backtracking)e(algorithm.)396
-1500 y(Deterministic)i(models)g(ensure)f(that)h(v)n(alidation)f(can)h
-(be)g(performed)e(in)i(linear)g(time.)g(In)g(order)f(to)h(get)g(the)396
-1608 y(maximum)f(bene\002ts,)h(PXP)h(also)f(implements)f(a)i(special)f
-(v)n(alidator)f(that)h(pro\002ts)g(from)f(deterministic)h(models;)f
-(this)396 1716 y(is)i(the)g(deterministic)e(\002nite)h(automaton)f
-(\(DF)-6 b(A\).)19 b(This)i(v)n(alidator)d(is)k(enabled)d(per)g
-(element)h(type)g(if)g(the)g(element)396 1824 y(type)g(has)g(a)h
-(deterministic)e(model)h(and)f(if)i(the)f(option)f Fq(validate_by_dfa)f
-Fv(is)j(turned)e(on.)396 1974 y(In)h(general,)f(I)h(e)o(xpect)g(that)g
-(the)g(DF)-6 b(A)21 b(method)e(is)i(f)o(aster)f(than)g(the)g
-(backtracking)e(method;)g(especially)i(in)h(the)f(w)o(orst)396
-2082 y(case)h(the)f(DF)-6 b(A)21 b(tak)o(es)f(only)g(linear)f(time.)i
-(Ho)n(we)n(v)o(er)m(,)d(if)i(the)g(content)g(model)f(has)h(only)g(fe)n
-(w)g(alternati)n(v)o(es)f(and)h(the)396 2190 y(alternati)n(v)o(es)f(do)
-h(not)g(nest,)g(the)h(backtracking)c(algorithm)i(may)g(be)i(better)-5
-b(.)-2 2691 y Fx(4.5.)39 b(Updates)396 2871 y Fr(Some)20
-b(\(often)f(later)i(added\))d(featur)m(es)i(that)g(ar)m(e)h(otherwise)f
-(not)g(e)n(xplained)f(in)h(the)h(manual)d(b)n(ut)j(worth)f(to)g(be)396
-2979 y(mentioned.)p Black 396 3211 a Ft(\225)p Black
-60 w Fv(Methods)g(node_position,)d(node_path,)g(nth_node,)h(pre)n
-(vious_node,)e(ne)o(xt_node)h(for)j(nodes:)f(See)479
-3319 y(pxp_document.mli)p Black 396 3427 a Ft(\225)p
-Black 60 w Fv(Functions)h(to)g(determine)f(the)h(document)e(order)h(of)
-h(nodes:)f(compare,)g(create_ord_inde)o(x,)c(ord_number)m(,)479
-3535 y(ord_compare:)i(See)k(pxp_document.mli)p Black
-3800 5278 a Fr(95)p Black eop
-%%Page: 96 96
-96 95 bop Black Black Black Black eop
-%%Trailer
-end
-userdict /end-hook known{end-hook}if
-%%EOF

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/src/dtd.mli.ent b/helm/DEVEL/pxp/pxp/doc/manual/src/dtd.mli.ent
deleted file mode 100644 (file)
index f2e0eb8..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/src/dtd.mli.ent
+++ /dev/null
@@ -1,374 +0,0 @@
-<!ENTITY markup-dtd1.mli '
-
-(**********************************************************************)
-(*                                                                    *)
-(* Pxp_dtd:                                                           *)
-(*     Object model of document type declarations                     *)
-(*                                                                    *)
-(**********************************************************************)
-
-(* ======================================================================
- * OVERVIEW
- *
- * class dtd ............... represents the whole DTD, including element
- *                           declarations, entity declarations, notation
- *                           declarations, and processing instructions
- * class dtd_element ....... represents an element declaration consisting
- *                           of a content model and an attribute list
- *                           declaration
- * class dtd_notation ...... represents a notation declaration
- * class proc_instruction .. represents a processing instruction
- * ======================================================================
- *
- *)
-
-
-class dtd :
-  (* Creation:
-   *   new dtd
-   * creates a new, empty DTD object without any declaration, without a root
-   * element, without an ID.
-   *)
-  Pxp_types.collect_warnings -&gt; 
-  Pxp_types.rep_encoding -&gt;
-  object
-    method root : string option
-      (* get the name of the root element if present *)
-
-    method set_root : string -&gt; unit
-      (* set the name of the root element. This method can be invoked 
-       * only once
-       *)
-
-    method id : Pxp_types.dtd_id option
-      (* get the identifier for this DTD *)
-
-    method set_id : Pxp_types.dtd_id -&gt; unit
-      (* set the identifier. This method can be invoked only once *)
-
-    method encoding : Pxp_types.rep_encoding
-      (* returns the encoding used for character representation *)
-
-
-    method allow_arbitrary : unit
-      (* After this method has been invoked, the object changes its behaviour:
-       * - elements and notations that have not been added may be used in an
-       *   arbitrary way; the methods "element" and "notation" indicate this
-       *   by raising Undeclared instead of Validation_error.
-       *)
-
-    method disallow_arbitrary : unit
-
-    method arbitrary_allowed : bool
-      (* Returns whether arbitrary contents are allowed or not. *)
-
-    method standalone_declaration : bool
-      (* Whether there is a &apos;standalone&apos; declaration or not. Strictly 
-       * speaking, this declaration is not part of the DTD, but it is
-       * included here because of practical reasons. 
-       * If not set, this property defaults to &apos;false&apos;.
-       *)
-
-    method set_standalone_declaration : bool -&gt; unit
-      (* Sets the &apos;standalone&apos; declaration. *)
-
-
-    method add_element : dtd_element -&gt; unit
-      (* add the given element declaration to this DTD. Raises Not_found
-       * if there is already an element declaration with the same name.
-       *)
-
-    method add_gen_entity : Pxp_entity.entity -&gt; bool -&gt; unit
-      (* add_gen_entity e extdecl:
-       * add the entity &apos;e&apos; as general entity to this DTD (general entities
-       * are those represented by &amp;name;). If there is already a declaration
-       * with the same name, the second definition is ignored; as exception from
-       * this rule, entities with names "lt", "gt", "amp", "quot", and "apos"
-       * may only be redeclared with a definition that is equivalent to the
-       * standard definition; otherwise a Validation_error is raised.
-       *
-       * &apos;extdecl&apos;: &apos;true&apos; indicates that the entity declaration occurs in
-       * an external entity. (Used for the standalone check.)
-       *)
-
-    method add_par_entity : Pxp_entity.entity -&gt; unit
-      (* add the given entity as parameter entity to this DTD (parameter
-       * entities are those represented by &percent;name;). If there is already a 
-       * declaration with the same name, the second definition is ignored.
-       *)
-
-    method add_notation : dtd_notation -&gt; unit
-      (* add the given notation to this DTD. If there is already a declaration
-       * with the same name, a Validation_error is raised.
-       *)
-
-    method add_pinstr : proc_instruction -&gt; unit
-      (* add the given processing instruction to this DTD. *)
-
-    method element : string -&gt; dtd_element
-      (* looks up the element declaration with the given name. Raises 
-       * Validation_error if the element cannot be found. (If "allow_arbitrary"
-       * has been invoked before, Unrestricted is raised instead.)
-       *)
-
-    method element_names : string list
-      (* returns the list of the names of all element declarations. *)
-
-    method gen_entity : string -&gt; (Pxp_entity.entity * bool)
-      (* let e, extdecl = obj # gen_entity n:
-       * looks up the general entity &apos;e&apos; with the name &apos;n&apos;. Raises
-       * WF_error if the entity cannot be found.
-       * &apos;extdecl&apos;: indicates whether the entity declaration occured in an 
-       * external entity.
-       *)
-
-    method gen_entity_names : string list
-      (* returns the list of all general entity names *)
-
-    method par_entity : string -&gt; Pxp_entity.entity
-      (* looks up the parameter entity with the given name. Raises
-       * WF_error if the entity cannot be found.
-       *)
-
-    method par_entity_names : string list
-      (* returns the list of all parameter entity names *)
-
-    method notation : string -&gt; dtd_notation
-      (* looks up the notation declaration with the given name. Raises
-       * Validation_error if the notation cannot be found. (If "allow_arbitrary"
-       * has been invoked before, Unrestricted is raised instead.)
-       *)
-
-    method notation_names : string list
-      (* Returns the list of the names of all added notations *)
-
-    method pinstr : string -&gt; proc_instruction list
-      (* looks up all processing instructions with the given target.
-       * The "target" is the identifier following "&lt;?".
-       * Note: It is not possible to find out the exact position of the
-       * processing instruction.
-       *)
-
-    method pinstr_names : string list
-      (* Returns the list of the names (targets) of all added pinstrs *)
-
-    method validate : unit
-      (* ensures that the DTD is valid. This method is optimized such that
-       * actual validation is only performed if DTD has changed.
-       * If the DTD is invalid, mostly a Validation_error is raised,
-       * but other exceptions are possible, too.
-       *)
-
-    method only_deterministic_models : unit
-      (* Succeeds if all regexp content models are deterministic. 
-       * Otherwise Validation_error.
-       *)
-
-    method write : Pxp_types.output_stream -&gt; Pxp_types.encoding -&gt; bool -&gt; unit
-      (* write_compact_as_latin1 os enc doctype:
-       * Writes the DTD as &apos;enc&apos;-encoded string to &apos;os&apos;. If &apos;doctype&apos;, a 
-       * DTD like &lt;!DOCTYPE root [ ... ]&gt; is written. If &apos;not doctype&apos;,
-       * only the declarations are written (the material within the
-       * square brackets).
-       *)
-
-    method write_compact_as_latin1 : Pxp_types.output_stream -&gt; bool -&gt; unit
-      (* DEPRECATED METHOD; included only to keep compatibility with
-       * older versions of the parser
-       *)
-
-
-    (*----------------------------------------*)
-    method invalidate : unit
-      (* INTERNAL METHOD *)
-    method warner : Pxp_types.collect_warnings
-      (* INTERNAL METHOD *)
-  end
-
-'>
-<!ENTITY markup-dtd2.mli '
-
-(* ---------------------------------------------------------------------- *)
-
-and dtd_element : dtd -&gt; string -&gt; 
-  (* Creation:
-   *   new dtd_element init_dtd init_name:
-   * creates a new dtd_element object for init_dtd with init_name.
-   * The strings are represented in the same encoding as init_dtd.
-   *)
-  object
-
-    method name : string
-      (* returns the name of the declared element *)
-
-    method externally_declared : bool
-      (* returns whether the element declaration occurs in an external
-       * entity.
-       *)
-
-    method content_model : Pxp_types.content_model_type
-      (* get the content model of this element declaration, or Unspecified *)
-
-    method content_dfa : Pxp_dfa.dfa_definition option
-      (* return the DFA of the content model if there is a DFA, or None.
-       * A DFA exists only for regexp style content models which are
-       * deterministic.
-       *)
-
-    method set_cm_and_extdecl : Pxp_types.content_model_type -&gt; bool -&gt; unit
-      (* set_cm_and_extdecl cm extdecl:
-       * set the content model to &apos;cm&apos;. Once the content model is not 
-       * Unspecified, it cannot be set to a different value again.
-       * Furthermore, it is set whether the element occurs in an external
-       * entity (&apos;extdecl&apos;).
-       *)
-
-    method encoding : Pxp_types.rep_encoding
-      (* Return the encoding of the strings *)
-
-    method allow_arbitrary : unit
-      (* After this method has been invoked, the object changes its behaviour:
-       * - attributes that have not been added may be used in an
-       *   arbitrary way; the method "attribute" indicates this
-       *   by raising Undeclared instead of Validation_error.
-       *)
-
-    method disallow_arbitrary : unit
-
-    method arbitrary_allowed : bool
-      (* Returns whether arbitrary attributes are allowed or not. *)
-
-    method attribute : string -&gt; 
-                         Pxp_types.att_type * Pxp_types.att_default
-      (* get the type and default value of a declared attribute, or raise
-       * Validation_error if the attribute does not exist.
-       * If &apos;arbitrary_allowed&apos;, the exception Undeclared is raised instead
-       * of Validation_error.
-       *)
-
-    method attribute_violates_standalone_declaration : 
-               string -&gt; string option -&gt; bool
-      (* attribute_violates_standalone_declaration name v:
-       * Checks whether the attribute &apos;name&apos; violates the "standalone"
-       * declaration if it has value &apos;v&apos;.
-       * The method returns true if:
-       * - The attribute declaration occurs in an external entity, 
-       * and if one of the two conditions holds:
-       * - v = None, and there is a default for the attribute value
-       * - v = Some s, and the type of the attribute is not CDATA,
-       *   and s changes if normalized according to the rules of the
-       *   attribute type.
-       *
-       * The method raises Validation_error if the attribute does not exist.
-       * If &apos;arbitrary_allowed&apos;, the exception Undeclared is raised instead
-       * of Validation_error.
-       *)
-
-    method attribute_names : string list
-      (* get the list of all declared attributes *)
-
-    method names_of_required_attributes : string list
-      (* get the list of all attributes that are specified as required 
-       * attributes
-       *)
-
-    method id_attribute_name : string option
-      (* Returns the name of the attribute with type ID, or None. *)
-
-    method idref_attribute_names : string list
-      (* Returns the names of the attributes with type IDREF or IDREFS. *)
-
-    method add_attribute : string -&gt; 
-                           Pxp_types.att_type -&gt; 
-                          Pxp_types.att_default -&gt; 
-                          bool -&gt;
-                            unit
-      (* add_attribute name type default extdecl:
-       * add an attribute declaration for an attribute with the given name,
-       * type, and default value. If there is more than one declaration for
-       * an attribute name, the first declaration counts; the other declarations
-       * are ignored.
-       * &apos;extdecl&apos;: if true, the attribute declaration occurs in an external
-       * entity. This property is used to check the "standalone" attribute.
-       *)
-
-    method validate : unit
-      (* checks whether this element declaration (i.e. the content model and
-       * all attribute declarations) is valid for the associated DTD.
-       * Raises mostly Validation_error if the validation fails.
-       *)
-
-    method write : Pxp_types.output_stream -&gt; Pxp_types.encoding -&gt; unit
-      (* write_compact_as_latin1 os enc:
-       * Writes the &lt;!ELEMENT ... &gt; declaration to &apos;os&apos; as &apos;enc&apos;-encoded string.
-       *)
-
-    method write_compact_as_latin1 : Pxp_types.output_stream -&gt; unit
-      (* DEPRECATED METHOD; included only to keep compatibility with
-       * older versions of the parser
-       *)
-  end
-
-(* ---------------------------------------------------------------------- *)
-
-and dtd_notation : string -&gt; Pxp_types.ext_id -&gt; Pxp_types.rep_encoding -&gt;
-  (* Creation:
-   *    new dtd_notation a_name an_external_ID init_encoding
-   * creates a new dtd_notation object with the given name and the given
-   * external ID.
-   *)
-  object
-    method name : string
-    method ext_id : Pxp_types.ext_id
-    method encoding : Pxp_types.rep_encoding
-
-    method write : Pxp_types.output_stream -&gt; Pxp_types.encoding -&gt; unit
-      (* write_compact_as_latin1 os enc:
-       * Writes the &lt;!NOTATION ... &gt; declaration to &apos;os&apos; as &apos;enc&apos;-encoded 
-       * string.
-       *)
-
-    method write_compact_as_latin1 : Pxp_types.output_stream -&gt; unit
-      (* DEPRECATED METHOD; included only to keep compatibility with
-       * older versions of the parser
-       *)
-
-  end
-
-(* ---------------------------------------------------------------------- *)
-
-and proc_instruction : string -&gt; string -&gt; Pxp_types.rep_encoding -&gt;
-  (* Creation:
-   *   new proc_instruction a_target a_value
-   * creates a new proc_instruction object with the given target string and
-   * the given value string. 
-   * Note: A processing instruction is written as &lt;?target value?&gt;. 
-   *)
-  object
-    method target : string
-    method value : string
-    method encoding : Pxp_types.rep_encoding
-
-    method write : Pxp_types.output_stream -&gt; Pxp_types.encoding -&gt; unit
-      (* write os enc:
-       * Writes the &lt;?...?&gt; PI to &apos;os&apos; as &apos;enc&apos;-encoded string.
-       *)
-
-    method write_compact_as_latin1 : Pxp_types.output_stream -&gt; unit
-      (* DEPRECATED METHOD; included only to keep compatibility with
-       * older versions of the parser
-       *)
-
-    method parse_pxp_option : (string * string * (string * string) list)
-      (* Parses a PI containing a PXP option. Such PIs are formed like:
-       *   &lt;?target option-name option-att="value" option-att="value" ... ?&gt;
-       * The method returns a triple
-       *   (target, option-name, [option-att, value; ...])
-       * or raises Error.
-       *)
-
-  end
-
-;;
-
-'>

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/src/getcode.ml b/helm/DEVEL/pxp/pxp/doc/manual/src/getcode.ml
deleted file mode 100755 (executable)
index 4db6690..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/src/getcode.ml
+++ /dev/null
@@ -1,56 +0,0 @@
-#! /bin/sh
-# (*
-exec ocamlfattop "$0"
-*) directory ".";;
-
-open Str;;
-
-let name_re = regexp "(\\*\\$[ \t]*\\([a-zA-Z0-9.-]*\\)[ \t]*\\*)";;
-let subst_re = regexp "[<>&'%]";;
-
-let begin_entity name =
-  "<!ENTITY " ^  name ^ " '";;
-
-let end_entity () =
-  "'>\n"
-;;
-
-
-let text = ref "" in
-let within_entity = ref false in
-try
-  while true do
-    let line = read_line() in
-    if string_match name_re line 0 then begin
-      let name = matched_group 1 line in
-      if !within_entity then
-       text := !text ^ "\n" ^ end_entity();
-      within_entity := false;
-      if name <> "-" then begin
-       text := !text ^ begin_entity name;
-       within_entity := true
-      end
-    end
-    else
-      if !within_entity then begin
-       let line' =
-         global_substitute subst_re 
-           (fun s ->
-              let s' = matched_group 0 s in
-              match s' with
-                  "<" -> "&lt;"
-                | ">" -> "&gt;"
-                | "&" -> "&amp;"
-                | "'" -> "&apos;"
-                | "%" -> "&percent;"
-                | _ -> assert false)
-           line
-       in
-       text := !text ^ "\n" ^ line'
-      end
-  done;
-with End_of_file ->
-  if !within_entity then
-    text := !text ^ "\n" ^ end_entity();
-  print_string !text
-;;

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/src/markup.css b/helm/DEVEL/pxp/pxp/doc/manual/src/markup.css
deleted file mode 100644 (file)
index 67dfaec..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/src/markup.css
+++ /dev/null
@@ -1,4 +0,0 @@
-.acronym { 
-  font-weight: bold;
-  color: #c71585
-}

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/src/markup.dsl b/helm/DEVEL/pxp/pxp/doc/manual/src/markup.dsl
deleted file mode 100644 (file)
index cd9b1e2..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/src/markup.dsl
+++ /dev/null
@@ -1,74 +0,0 @@
-<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
-
-<!-- The default is the print stylesheet. Call 'jade' with option '-ihtml'
-     to select the HTML stylesheet.
-  -->
-
-<!ENTITY % html "IGNORE">
-<![%html;[
-<!ENTITY % print "IGNORE">
-<!ENTITY docbook.dsl SYSTEM "docbook.dsl" CDATA dsssl>
-]]>
-<!ENTITY % print "INCLUDE">
-<![%print;[
-<!ENTITY docbook.dsl SYSTEM "docbook.dsl" CDATA dsssl>
-]]>
-]>
-<style-sheet>
-<style-specification use="docbook">
-<style-specification-body> 
-
-;; HTML:
-
-<![%html;[
-
-(define %footnotes-at-end%
-  ;; Should footnotes appear at the end of HTML pages?
-  #t)
-
-(define %html-ext% 
-  ;; Default extension for HTML output files
-  ".html")
-
-(define %root-filename%
-  ;; Name for the root HTML document
-  "index")
-
-(define %css-decoration%
-  ;; Enable CSS decoration of elements
-  #t)
-
-(define %stylesheet%
-  ;; Name of the stylesheet to use
-  "markup.css")
-
-(define %graphic-default-extension%
-  ;; Default extension for graphic FILEREFs
-  "gif")
-
-]]>
-
-;; printing:
-
-<![%print;[
-
-(define bop-footnotes
-  ;; Make "bottom-of-page" footnotes?
-  #t)
-
-(define %graphic-default-extension%
-  ;; Default extension for graphic FILEREFs
-  "ps")
-
-]]>
-
-;; both:
-
-(define %section-autolabel%
-   ;; Are sections enumerated?
-   #t)
-
-</style-specification-body>
-</style-specification>
-<external-specification id="docbook" document="docbook.dsl">
-</style-sheet>

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/src/markup.sgml b/helm/DEVEL/pxp/pxp/doc/manual/src/markup.sgml
deleted file mode 100644 (file)
index 1cb2064..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/src/markup.sgml
+++ /dev/null
@@ -1,5109 +0,0 @@
-<!DOCTYPE book PUBLIC "-//Davenport//DTD DocBook V3.0//EN" [
-<!ENTITY markup "<acronym>PXP</acronym>">
-<!ENTITY pxp "<acronym>PXP</acronym>">
-<!ENTITY % readme.code.to-html SYSTEM "readme.ent">
-<!ENTITY apos "&#39;">
-<!ENTITY percent "&#37;">
-<!ENTITY % get.markup-yacc.mli SYSTEM "yacc.mli.ent">
-<!ENTITY % get.markup-dtd.mli SYSTEM "dtd.mli.ent">
-%readme.code.to-html;
-%get.markup-yacc.mli;
-%get.markup-dtd.mli;
-
-<!ENTITY fun "-&gt;">                       <!-- function type operator -->
-
-]>
-
-
-<book>
-
-  <title>The PXP user's guide</title>
-  <bookinfo>
-    <!-- <bookbiblio> -->
-    <authorgroup>
-      <author>
-       <firstname>Gerd</firstname>
-       <surname>Stolpmann</surname>
-       <authorblurb>
-         <para>
-        <address>
-          <email>gerd@gerd-stolpmann.de</email>
-        </address>
-      </para>
-       </authorblurb>
-      </author>
-    </authorgroup>
-    
-    <copyright>
-      <year>1999, 2000</year><holder>Gerd Stolpmann</holder>
-    </copyright>
-    <!-- </bookbiblio> -->
-
-    <abstract>
-      <para>
-&markup; is a validating parser for XML-1.0 which has been
-written entirely in Objective Caml.
-</para>
-      <formalpara>
-       <title>Download &markup;: </title>
-       <para>
-The free &markup; library can be downloaded at
-<ulink URL="http://www.ocaml-programming.de/packages/">
-http://www.ocaml-programming.de/packages/
-</ulink>. This user's guide is included.
-Newest releases of &markup; will be announced in
-<ulink URL="http://www.npc.de/ocaml/linkdb/">The OCaml Link
-Database</ulink>.
-</para>
-      </formalpara>
-    </abstract>
-
-    <legalnotice>
-      <title>License</title>
-      <para>
-This document, and the described software, "&markup;", are copyright by
-Gerd Stolpmann. 
-</para>
-
-<para>
-Permission is hereby granted, free of charge, to any person obtaining
-a copy of this document and the "&markup;" software (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:
-</para>
-      <para>
-The above copyright notice and this permission notice shall be included
-in all copies or substantial portions of the Software.
-</para>
-      <para>
-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 Gerd Stolpmann 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.
-</para>
-    </legalnotice>
-
-  </bookinfo>
-
-
-<!-- ********************************************************************** -->
-
-  <part>
-    <title>User's guide</title>
-    
-    <chapter>
-      <title>What is XML?</title>
-
-      <sect1>
-       <title>Introduction</title>
-
-       <para>XML (short for <emphasis>Extensible Markup Language</emphasis>)
-generalizes the idea that text documents are typically structured in sections,
-sub-sections, paragraphs, and so on. The format of the document is not fixed
-(as, for example, in HTML), but can be declared by a so-called DTD (document
-type definition). The DTD describes only the rules how the document can be
-structured, but not how the document can be processed. For example, if you want
-to publish a book that uses XML markup, you will need a processor that converts
-the XML file into a printable format such as Postscript. On the one hand, the
-structure of XML documents is configurable; on the other hand, there is no
-longer a canonical interpretation of the elements of the document; for example
-one XML DTD might want that paragraphes are delimited by
-<literal>para</literal> tags, and another DTD expects <literal>p</literal> tags
-for the same purpose. As a result, for every DTD a new processor is required.
-</para>
-
-       <para>
-Although XML can be used to express structured text documents it is not limited
-to this kind of application. For example, XML can also be used to exchange
-structured data over a network, or to simply store structured data in
-files. Note that XML documents cannot contain arbitrary binary data because
-some characters are forbidden; for some applications you need to encode binary
-data as text (e.g. the base 64 encoding).
-</para>
-
-
-       <sect2>
-         <title>The "hello world" example</title>
-       <para>
-The following example shows a very simple DTD, and a corresponding document
-instance. The document is structured such that it consists of sections, and
-that sections consist of paragraphs, and that paragraphs contain plain text:
-</para>
-
-       <programlisting>
-<![CDATA[<!ELEMENT document (section)+>
-<!ELEMENT section (paragraph)+>
-<!ELEMENT paragraph (#PCDATA)>
-]]>
-</programlisting>
-
-       <para>The following document is an instance of this DTD:</para>
-      
-       <programlisting>
-<![CDATA[<?xml version="1.0" encoding="ISO-8859-1"?>
-<!DOCTYPE document SYSTEM "simple.dtd">
-<document>
-  <section>
-    <paragraph>This is a paragraph of the first section.</paragraph>
-    <paragraph>This is another paragraph of the first section.</paragraph>
-  </section>
-  <section>
-    <paragraph>This is the only paragraph of the second section.</paragraph>
-  </section>
-</document>
-]]>
-</programlisting>
-
-       <para>As in HTML (and, of course, in grand-father SGML), the "pieces" of
-the document are delimited by element braces, i.e. such a piece begins with
-<literal>&lt;name-of-the-type-of-the-piece&gt;</literal> and ends with
-<literal>&lt;/name-of-the-type-of-the-piece&gt;</literal>, and the pieces are
-called <emphasis>elements</emphasis>. Unlike HTML and SGML, both start tags and
-end tags (i.e. the delimiters written in angle brackets) can never be left
-out. For example, HTML calls the paragraphs simply <literal>p</literal>, and
-because paragraphs never contain paragraphs, a sequence of several paragraphs
-can be written as:
-
-<programlisting><![CDATA[<p>First paragraph 
-<p>Second paragraph]]></programlisting>
-
-This is not possible in XML; continuing our example above we must always write
-
-<programlisting><![CDATA[<paragraph>First paragraph</paragraph>
-<paragraph>Second paragraph</paragraph>]]></programlisting>
-
-The rationale behind that is to (1) simplify the development of XML parsers
-(you need not convert the DTD into a deterministic finite automaton which is
-required to detect omitted tags), and to (2) make it possible to parse the
-document independent of whether the DTD is known or not.
-</para>
-
-<para>
-The first line of our sample document,
-
-<programlisting>
-<![CDATA[<?xml version="1.0" encoding="ISO-8859-1"?>]]>
-</programlisting>
-
-is the so-called <emphasis>XML declaration</emphasis>. It expresses that the
-document follows the conventions of XML version 1.0, and that the document is
-encoded using characters from the ISO-8859-1 character set (often known as
-"Latin 1", mostly used in Western Europe). Although the XML declaration is not
-mandatory, it is good style to include it; everybody sees at the first glance
-that the document uses XML markup and not the similar-looking HTML and SGML
-markup languages. If you omit the XML declaration, the parser will assume
-that the document is encoded as UTF-8 or UTF-16 (there is a rule that makes
-it possible to distinguish between UTF-8 and UTF-16 automatically); these
-are encodings of Unicode's universal character set. (Note that &pxp;, unlike its
-predecessor "Markup", fully supports Unicode.)
-</para>
-
-<para>
-The second line,
-
-<programlisting>
-<![CDATA[<!DOCTYPE document SYSTEM "simple.dtd">]]>
-</programlisting>
-
-names the DTD that is going to be used for the rest of the document. In
-general, it is possible that the DTD consists of two parts, the so-called
-external and the internal subset. "External" means that the DTD exists as a
-second file; "internal" means that the DTD is included in the same file. In
-this example, there is only an external subset, and the system identifier
-"simple.dtd" specifies where the DTD file can be found. System identifiers are
-interpreted as URLs; for instance this would be legal:
-
-<programlisting>
-<![CDATA[<!DOCTYPE document SYSTEM "http://host/location/simple.dtd">]]>
-</programlisting>
-
-Please note that &pxp; cannot interpret HTTP identifiers by default, but it is
-possible to change the interpretation of system identifiers.
-</para>
-
-       <para>
-The word immediately following <literal>DOCTYPE</literal> determines which of
-the declared element types (here "document", "section", and "paragraph") is
-used for the outermost element, the <emphasis>root element</emphasis>. In this
-example it is <literal>document</literal> because the outermost element is
-delimited by <literal>&lt;document&gt;</literal> and
-<literal>&lt;/document&gt;</literal>. 
-</para>
-
-       <para>
-The DTD consists of three declarations for element types:
-<literal>document</literal>, <literal>section</literal>, and
-<literal>paragraph</literal>. Such a declaration has two parts:
-
-<programlisting>
-&lt;!ELEMENT <replaceable>name</replaceable> <replaceable>content-model</replaceable>&gt;
-</programlisting>
-
-The content model is a regular expression which describes the possible inner
-structure of the element. Here, <literal>document</literal> contains one or
-more sections, and a <literal>section</literal> contains one or more
-paragraphs. Note that these two element types are not allowed to contain
-arbitrary text. Only the <literal>paragraph</literal> element type is declared
-such that parsed character data (indicated by the symbol
-<literal>#PCDATA</literal>) is permitted.
-</para>
-
-       <para>
-See below for a detailed discussion of content models. 
-</para>
-       </sect2>
-
-       <sect2>
-         <title>XML parsers and processors</title>
-         <para>
-XML documents are human-readable, but this is not the main purpose of this
-language. XML has been designed such that documents can be read by a program
-called an <emphasis>XML parser</emphasis>. The parser checks that the document
-is well-formatted, and it represents the document as objects of the programming
-language. There are two aspects when checking the document: First, the document
-must follow some basic syntactic rules, such as that tags are written in angle
-brackets, that for every start tag there must be a corresponding end tag and so
-on. A document respecting these rules is
-<emphasis>well-formed</emphasis>. Second, the document must match the DTD in
-which case the document is <emphasis>valid</emphasis>. Many parsers check only
-on well-formedness and ignore the DTD; &pxp; is designed such that it can
-even validate the document.
-</para>
-
-         <para>
-A parser does not make a sensible application, it only reads XML
-documents. The whole application working with XML-formatted data is called an
-<emphasis>XML processor</emphasis>. Often XML processors convert documents into
-another format, such as HTML or Postscript. Sometimes processors extract data
-of the documents and output the processed data again XML-formatted. The parser
-can help the application processing the document; for example it can provide
-means to access the document in a specific manner. &pxp; supports an
-object-oriented access layer specially.
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Discussion</title>
-         <para>
-As we have seen, there are two levels of description: On the one hand, XML can
-define rules about the format of a document (the DTD), on the other hand, XML
-expresses structured documents. There are a number of possible applications:
-</para>
-
-         <itemizedlist mark="bullet" spacing="compact">
-           <listitem>
-             <para>
-XML can be used to express structured texts. Unlike HTML, there is no canonical
-interpretation; one would have to write a backend for the DTD that translates
-the structured texts into a format that existing browsers, printers
-etc. understand. The advantage of a self-defined document format is that it is
-possible to design the format in a more problem-oriented way. For example, if
-the task is to extract reports from a database, one can use a DTD that reflects
-the structure of the report or the database. A possible approach would be to
-have an element type for every database table and for every column. Once the
-DTD has been designed, the report procedure can be splitted up in a part that
-selects the database rows and outputs them as an XML document according to the
-DTD, and in a part that translates the document into other formats. Of course,
-the latter part can be solved in a generic way, e.g. there may be configurable
-backends for all DTDs that follow the approach and have element types for
-tables and columns.
-</para>
-             
-             <para>
-XML plays the role of a configurable intermediate format. The database
-extraction function can be written without having to know the details of
-typesetting; the backends can be written without having to know the details of
-the database.
-</para>
-
-             <para>
-Of course, there are traditional solutions. One can define an ad hoc
-intermediate text file format. This disadvantage is that there are no names for
-the pieces of the format, and that such formats usually lack of documentation
-because of this. Another solution would be to have a binary representation,
-either as language-dependent or language-independent structure (example of the
-latter can be found in RPC implementations). The disadvantage is that it is
-harder to view such representations, one has to write pretty printers for this
-purpose. It is also more difficult to enter test data; XML is plain text that
-can be written using an arbitrary editor (Emacs has even a good XML mode,
-PSGML). All these alternatives suffer from a missing structure checker,
-i.e. the programs processing these formats usually do not check the input file
-or input object in detail; XML parsers check the syntax of the input (the
-so-called well-formedness check), and the advanced parsers like &markup; even
-verify that the structure matches the DTD (the so-called validation).
-</para>
-             
-           </listitem>
-
-           <listitem>
-             <para>
-XML can be used as configurable communication language. A fundamental problem
-of every communication is that sender and receiver must follow the same
-conventions about the language. For data exchange, the question is usually
-which data records and fields are available, how they are syntactically
-composed, and which values are possible for the various fields. Similar
-questions arise for text document exchange. XML does not answer these problems
-completely, but it reduces the number of ambiguities for such conventions: The
-outlines of the syntax are specified by the DTD (but not necessarily the
-details), and XML introduces canonical names for the components of documents
-such that it is simpler to describe the rest of the syntax and the semantics
-informally.
-</para>
-           </listitem>
-
-           <listitem>
-             <para>
-XML is a data storage format. Currently, every software product tends to use
-its own way to store data; commercial software often does not describe such
-formats, and it is a pain to integrate such software into a bigger project. 
-XML can help to improve this situation when several applications share the same
-syntax of data files. DTDs are then neutral instances that check the format of
-data files independent of applications. 
-</para>
-           </listitem>
-
-         </itemizedlist>
-       </sect2>
-      </sect1>
-
-
-      <!-- ================================================== -->
-
-
-      <sect1>
-       <title>Highlights of XML</title>
-
-       <para>
-This section explains many of the features of XML, but not all, and some
-features not in detail. For a complete description, see the <ulink
-url="http://www.w3.org/TR/1998/REC-xml-19980210.html">XML
-specification</ulink>.
-</para>
-
-       <sect2>
-         <title>The DTD and the instance</title>
-         <para>
-The DTD contains various declarations; in general you can only use a feature if
-you have previously declared it. The document instance file may contain the
-full DTD, but it is also possible to split the DTD into an internal and an
-external subset. A document must begin as follows if the full DTD is included:
-
-<programlisting>
-&lt;?xml version="1.0" encoding="<replaceable>Your encoding</replaceable>"?&gt;
-&lt;!DOCTYPE <replaceable>root</replaceable> [
-  <replaceable>Declarations</replaceable>
-]&gt;
-</programlisting>
-
-These declarations are called the <emphasis>internal subset</emphasis>. Note
-that the usage of entities and conditional sections is restricted within the
-internal subset.
-</para>
-         <para>
-If the declarations are located in a different file, you can refer to this file
-as follows:
-
-<programlisting>
-&lt;?xml version="1.0" encoding="<replaceable>Your encoding</replaceable>"?&gt;
-&lt;!DOCTYPE <replaceable>root</replaceable> SYSTEM "<replaceable>file name</replaceable>"&gt;
-</programlisting>
-
-The declarations in the file are called the <emphasis>external
-subset</emphasis>. The file name is called the <emphasis>system
-identifier</emphasis>. 
-It is also possible to refer to the file by a so-called
-<emphasis>public identifier</emphasis>, but most XML applications won't use
-this feature.
-</para>
-         <para>
-You can also specify both internal and external subsets. In this case, the
-declarations of both subsets are mixed, and if there are conflicts, the
-declaration of the internal subset overrides those of the external subset with
-the same name. This looks as follows:
-
-<programlisting>
-&lt;?xml version="1.0" encoding="<replaceable>Your encoding</replaceable>"?&gt;
-&lt;!DOCTYPE <replaceable>root</replaceable>  SYSTEM "<replaceable>file name</replaceable>" [
-  <replaceable>Declarations</replaceable>
-]&gt;
-</programlisting>
-</para>
-
-         <para>
-The XML declaration (the string beginning with <literal>&lt;?xml</literal> and
-ending at <literal>?&gt;</literal>) should specify the encoding of the
-file. Common values are UTF-8, and the ISO-8859 series of character sets. Note
-that every file parsed by the XML processor can begin with an XML declaration
-and that every file may have its own encoding.
-</para>
-
-         <para>
-The name of the root element must be mentioned directly after the
-<literal>DOCTYPE</literal> string. This means that a full document instance
-looks like
-
-<programlisting>
-&lt;?xml version="1.0" encoding="<replaceable>Your encoding</replaceable>"?&gt;
-&lt;!DOCTYPE <replaceable>root</replaceable>  SYSTEM "<replaceable>file name</replaceable>" [
-  <replaceable>Declarations</replaceable>
-]&gt;
-
-&lt;<replaceable>root</replaceable>&gt;
-  <replaceable>inner contents</replaceable>
-&lt;/<replaceable>root</replaceable>&gt;
-</programlisting>
-</para>
-       </sect2>
-
-        <!-- ======================================== -->
-
-       <sect2>
-         <title>Reserved characters</title>
-         <para>
-Some characters are generally reserved to indicate markup such that they cannot
-be used for character data. These characters are &lt;, &gt;, and
-&amp;. Furthermore, single and double quotes are sometimes reserved. If you
-want to include such a character as character, write it as follows:
-
-<itemizedlist mark="bullet" spacing="compact">
-             <listitem>
-               <para>
-<literal>&amp;lt;</literal> instead of &lt;
-</para>
-             </listitem>
-             <listitem>
-               <para>
-<literal>&amp;gt;</literal> instead of &gt;
-</para>
-             </listitem>
-             <listitem>
-               <para>
-<literal>&amp;amp;</literal> instead of &amp;
-</para>
-             </listitem>
-             <listitem>
-               <para>
-<literal>&amp;apos;</literal> instead of '
-</para>
-             </listitem>
-             <listitem>
-               <para>
-<literal>&amp;quot;</literal> instead of "
-</para>
-             </listitem>
-           </itemizedlist>
-
-All other characters are free in the document instance. It is possible to
-include a character by its position in the Unicode alphabet: 
-
-<programlisting>
-&amp;#<replaceable>n</replaceable>;
-</programlisting>
-
-where <replaceable>n</replaceable> is the decimal number of the
-character. Alternatively, you can specify the character by its hexadecimal
-number: 
-
-<programlisting>
-&amp;#x<replaceable>n</replaceable>;
-</programlisting>
-
-In the scope of declarations, the character % is no longer free. To include it
-as character, you must use the notations <literal>&amp;#37;</literal> or
-<literal>&amp;#x25;</literal>.
-</para>
-
-         <para>Note that besides &amp;lt;, &amp;gt;, &amp;amp;,
-&amp;apos;, and &amp;quot; there are no predefines character entities. This is
-different from HTML which defines a list of characters that can be referenced
-by name (e.g. &amp;auml; for ä); however, if you prefer named characters, you
-can declare such entities yourself (see below).</para>
-       </sect2>
-
-
-        <!-- ======================================== -->
-
-       <sect2>
-         <title>Elements and ELEMENT declarations</title>
-
-         <para>
-Elements structure the document instance in a hierarchical way. There is a
-top-level element, the <emphasis>root element</emphasis>, which contains a
-sequence of inner elements and character sections. The inner elements are
-structured in the same way. Every element has an <emphasis>element
-type</emphasis>. The beginning of the element is indicated by a <emphasis>start
-tag</emphasis>, written
-
-<programlisting>
-&lt;<replaceable>element-type</replaceable>&gt;
-</programlisting>
-
-and the element continues until the corresponding <emphasis>end tag</emphasis>
-is reached:
-
-<programlisting>
-&lt;/<replaceable>element-type</replaceable>&gt;
-</programlisting>
-
-In XML, it is not allowed to omit start or end tags, even if the DTD would
-permit this. Note that there are no special rules how to interpret spaces or
-newlines near start or end tags; all spaces and newlines count.
-</para>
-
-         <para>
-Every element type must be declared before it can be used. The declaration
-consists of two parts: the ELEMENT declaration describes the content model,
-i.e. which inner elements are allowed; the ATTLIST declaration describes the
-attributes of the element.
-</para>
-
-         <para>
-An element can simply allow everything as content. This is written:
-
-<programlisting>
-&lt!ELEMENT <replaceable>name</replaceable> ANY&gt;
-</programlisting>
-
-On the opposite, an element can be forced to be empty; declared by:
-
-<programlisting>
-&lt!ELEMENT <replaceable>name</replaceable> EMPTY&gt;
-</programlisting>
-
-Note that there is an abbreviated notation for empty element instances:
-<literal>&lt;<replaceable>name</replaceable>/&gt;</literal>. 
-</para>
-
-         <para>
-There are two more sophisticated forms of declarations: so-called
-<emphasis>mixed declarations</emphasis>, and <emphasis>regular
-expressions</emphasis>. An element with mixed content contains character data
-interspersed with inner elements, and the set of allowed inner elements can be
-specified. In contrast to this, a regular expression declaration does not allow
-character data, but the inner elements can be described by the more powerful
-means of regular expressions.
-</para>
-
-         <para>
-A declaration for mixed content looks as follows:
-
-<programlisting>
-&lt;!ELEMENT <replaceable>name</replaceable> (#PCDATA | <replaceable>element<subscript>1</subscript></replaceable> | ... | <replaceable>element<subscript>n</subscript></replaceable> )*&gt;
-</programlisting>
-
-or if you do not want to allow any inner element, simply
-
-<programlisting>
-&lt;!ELEMENT <replaceable>name</replaceable> (#PCDATA)&gt;
-</programlisting>
-</para>
-
-
-<blockquote>
-             <title>Example</title>
-             <para>
-If element type <literal>q</literal> is declared as
-
-<programlisting>
-<![CDATA[<!ELEMENT q (#PCDATA | r | s)*>]]>
-</programlisting>
-
-this is a legal instance:
-
-<programlisting>
-<![CDATA[<q>This is character data<r></r>with <s></s>inner elements</q>]]>
-</programlisting>
-
-But this is illegal because <literal>t</literal> has not been enumerated in the
-declaration:
-
-<programlisting>
-<![CDATA[<q>This is character data<r></r>with <t></t>inner elements</q>]]>
-</programlisting>
-</para>
-           </blockquote>
-         
-         <para>
-The other form uses a regular expression to describe the possible contents:
-
-<programlisting>
-&lt;!ELEMENT <replaceable>name</replaceable> <replaceable>regexp</replaceable>&gt;
-</programlisting>
-
-The following well-known regexp operators are allowed:
-
-<itemizedlist mark="bullet" spacing="compact">
-             <listitem>
-               <para>
-<literal><replaceable>element-name</replaceable></literal>
-</para>
-             </listitem>
-             
-             <listitem>
-               <para>
-<literal>(<replaceable>subexpr<subscript>1</subscript></replaceable> ,</literal> ... <literal>, <replaceable>subexpr<subscript>n</subscript></replaceable> )</literal>
-</para>
-             </listitem>
-             
-             <listitem>
-               <para>
-<literal>(<replaceable>subexpr<subscript>1</subscript></replaceable> |</literal> ... <literal>| <replaceable>subexpr<subscript>n</subscript></replaceable> )</literal>
-</para>
-             </listitem>
-             
-             <listitem>
-               <para>
-<literal><replaceable>subexpr</replaceable>*</literal>
-</para>
-             </listitem>
-             
-             <listitem>
-               <para>
-<literal><replaceable>subexpr</replaceable>+</literal>
-</para>
-             </listitem>
-             
-             <listitem>
-               <para>
-<literal><replaceable>subexpr</replaceable>?</literal>
-</para>
-             </listitem>
-           </itemizedlist>
-
-The <literal>,</literal> operator indicates a sequence of sub-models, the
-<literal>|</literal> operator describes alternative sub-models. The
-<literal>*</literal> indicates zero or more repetitions, and
-<literal>+</literal> one or more repetitions. Finally, <literal>?</literal> can
-be used for optional sub-models. As atoms the regexp can contain names of
-elements; note that it is not allowed to include <literal>#PCDATA</literal>.
-</para>
-
-         <para>
-The exact syntax of the regular expressions is rather strange. This can be
-explained best by a list of constraints:
-
-<itemizedlist mark="bullet" spacing="compact">
-             <listitem>
-               <para>
-The outermost expression must not be
-<literal><replaceable>element-name</replaceable></literal>. 
-</para>
-               <para><emphasis>Illegal:</emphasis> 
-<literal><![CDATA[<!ELEMENT x y>]]></literal>; this must be written as
-<literal><![CDATA[<!ELEMENT x (y)>]]></literal>.</para>
-             </listitem>
-             <listitem>
-               <para>
-For the unary operators <literal><replaceable>subexpr</replaceable>*</literal>,
-<literal><replaceable>subexpr</replaceable>+</literal>, and
-<literal><replaceable>subexpr</replaceable>?</literal>, the
-<literal><replaceable>subexpr</replaceable></literal> must not be again an
-unary operator.
-</para>
-               <para><emphasis>Illegal:</emphasis> 
-<literal><![CDATA[<!ELEMENT x y**>]]></literal>; this must be written as
-<literal><![CDATA[<!ELEMENT x (y*)*>]]></literal>.</para>
-      </listitem>
-             <listitem>
-               <para>
-Between <literal>)</literal> and one of the unary operatory
-<literal>*</literal>, <literal>+</literal>, or <literal>?</literal>, there must
-not be whitespace.</para>
-               <para><emphasis>Illegal:</emphasis> 
-<literal><![CDATA[<!ELEMENT x (y|z) *>]]></literal>; this must be written as
-<literal><![CDATA[<!ELEMENT x (y|z)*>]]></literal>.</para>
-             </listitem>
-             <listitem><para>There is the additional constraint that the
-right parenthsis must be contained in the same entity as the left parenthesis;
-see the section about parsed entities below.</para>
-             </listitem>
-           </itemizedlist>
-
-</para>
-
-<para>
-Note that there is another restriction on regular expressions which must be
-deterministic. This means that the parser must be able to see by looking at the
-next token which alternative is actually used, or whether the repetition
-stops. The reason for this is simply compatability with SGML (there is no
-intrinsic reason for this rule; XML can live without this restriction).
-</para>
-
-         <blockquote>
-           <title>Example</title>
-           <para>
-The elements are declared as follows:
-
-<programlisting>
-<![CDATA[<!ELEMENT q (r?, (s | t)+)>
-<!ELEMENT r (#PCDATA)>
-<!ELEMENT s EMPTY>
-<!ELEMENT t (q | r)>
-]]></programlisting>
-
-This is a legal instance:
-
-<programlisting>
-<![CDATA[<q><r>Some characters</r><s/></q>]]>
-</programlisting>
-
-(Note: <literal>&lt;s/&gt;</literal> is an abbreviation for
-<literal>&lt;s&gt;&lt;/s&gt;</literal>.)
-
-It would be illegal to leave <literal><![CDATA[<s/>]]></literal> out because at
-least one instance of <literal>s</literal> or <literal>t</literal> must be
-present. It would be illegal, too, if characters existed outside the
-<literal>r</literal> element; the only exception is white space. -- This is
-legal, too:
-
-<programlisting>
-<![CDATA[<q><s/><t><q><s/></q></t></q>]]>
-</programlisting>
-</para>
-         </blockquote>
-
-       </sect2>
-
-        <!-- ======================================== -->
-
-       <sect2>
-         <title>Attribute lists and ATTLIST declarations</title>
-         <para>
-Elements may have attributes. These are put into the start tag of an element as
-follows:
-
-<programlisting>
-&lt;<replaceable>element-name</replaceable> <replaceable>attribute<subscript>1</subscript></replaceable>="<replaceable>value<subscript>1</subscript></replaceable>" ... <replaceable>attribute<subscript>n</subscript></replaceable>="<replaceable>value<subscript>n</subscript></replaceable>"&gt;
-</programlisting>
-
-Instead of
-<literal>"<replaceable>value<subscript>k</subscript></replaceable>"</literal>
-it is also possible to use single quotes as in
-<literal>'<replaceable>value<subscript>k</subscript></replaceable>'</literal>.
-Note that you cannot use double quotes literally within the value of the
-attribute if double quotes are the delimiters; the same applies to single
-quotes. You can generally not use &lt; and &amp; as characters in attribute
-values. It is possible to include the paraphrases &amp;lt;, &amp;gt;,
-&amp;amp;, &amp;apos;, and &amp;quot; (and any other reference to a general
-entity as long as the entity is not defined by an external file) as well as
-&amp;#<replaceable>n</replaceable>;.
-</para>
-
-         <para>
-Before you can use an attribute you must declare it. An ATTLIST declaration
-looks as follows:
-
-<programlisting>
-&lt;!ATTLIST <replaceable>element-name</replaceable> 
-          <replaceable>attribute-name</replaceable> <replaceable>attribute-type</replaceable> <replaceable>attribute-default</replaceable>
-          ...
-          <replaceable>attribute-name</replaceable> <replaceable>attribute-type</replaceable> <replaceable>attribute-default</replaceable>
-&gt;
-</programlisting>
-
-There are a lot of types, but most important are:
-
-<itemizedlist mark="bullet" spacing="compact">
-             <listitem>
-               <para>
-<literal>CDATA</literal>: Every string is allowed as attribute value.
-</para>
-             </listitem>
-             <listitem>
-               <para>
-<literal>NMTOKEN</literal>: Every nametoken is allowed as attribute
-value. Nametokens consist (mainly) of letters, digits, ., :, -, _ in arbitrary
-order.
-</para>
-             </listitem>
-             <listitem>
-               <para>
-<literal>NMTOKENS</literal>: A space-separated list of nametokens is allowed as
-attribute value.
-</para>
-             </listitem>
-           </itemizedlist>
-
-The most interesting default declarations are:
-
-<itemizedlist mark="bullet" spacing="compact">
-             <listitem>
-               <para>
-<literal>#REQUIRED</literal>: The attribute must be specified.
-</para>
-             </listitem>
-             <listitem>
-               <para>
-<literal>#IMPLIED</literal>: The attribute can be specified but also can be
-left out. The application can find out whether the attribute was present or
-not. 
-</para>
-             </listitem>
-             <listitem>
-               <para>
-<literal>"<replaceable>value</replaceable>"</literal> or
-<literal>'<replaceable>value</replaceable>'</literal>: This particular value is
-used as default if the attribute is omitted in the element.
-</para>
-             </listitem>
-           </itemizedlist>
-</para>
-
-         <blockquote>
-           <title>Example</title>
-           <para>
-This is a valid attribute declaration for element type <literal>r</literal>:
-
-<programlisting>
-<![CDATA[<!ATTLIST r 
-          x CDATA    #REQUIRED
-          y NMTOKEN  #IMPLIED
-          z NMTOKENS "one two three">
-]]></programlisting>
-
-This means that <literal>x</literal> is a required attribute that cannot be
-left out, while <literal>y</literal> and <literal>z</literal> are optional. The
-XML parser indicates the application whether <literal>y</literal> is present or
-not, but if <literal>z</literal> is missing the default value
-"one two three" is returned automatically. 
-</para>
-
-           <para>
-This is a valid example of these attributes:
-
-<programlisting>
-<![CDATA[<r x="He said: &quot;I don't like quotes!&quot;" y='1'>]]>
-</programlisting>
-</para>
-         </blockquote>
-
-       </sect2>
-
-       <sect2>
-         <title>Parsed entities</title>
-         <para>
-Elements describe the logical structure of the document, while
-<emphasis>entities</emphasis> determine the physical structure. Entities are
-the pieces of text the parser operates on, mostly files and macros. Entities
-may be <emphasis>parsed</emphasis> in which case the parser reads the text and
-interprets it as XML markup, or <emphasis>unparsed</emphasis> which simply
-means that the data of the entity has a foreign format (e.g. a GIF icon).
-</para>
-
-         <para>If the parsed entity is going to be used as part of the DTD, it
-is called a <emphasis>parameter entity</emphasis>. You can declare a parameter
-entity with a fixed text as content by:
-
-<programlisting>
-&lt;!ENTITY % <replaceable>name</replaceable> "<replaceable>value</replaceable>"&gt;
-</programlisting>
-
-Within the DTD, you can <emphasis>refer to</emphasis> this entity, i.e. read
-the text of the entity, by:
-
-<programlisting>
-%<replaceable>name</replaceable>;
-</programlisting>
-
-Such entities behave like macros, i.e. when they are referred to, the
-macro text is inserted and read instead of the original text.
-
-<blockquote>
-             <title>Example</title>
-             <para>
-For example, you can declare two elements with the same content model by:
-
-<programlisting>
-<![CDATA[
-<!ENTITY % model "a | b | c">
-<!ELEMENT x (%model;)>
-<!ELEMENT y (%model;)>
-]]>
-</programlisting>
-
-</para>
-           </blockquote>
-
-If the contents of the entity are given as string constant, the entity is
-called an <emphasis>internal</emphasis> entity. It is also possible to name a
-file to be used as content (an <emphasis>external</emphasis> entity):
-
-<programlisting>
-&lt;!ENTITY % <replaceable>name</replaceable> SYSTEM "<replaceable>file name</replaceable>"&gt;
-</programlisting>
-
-There are some restrictions for parameter entities:
-
-<itemizedlist mark="bullet" spacing="compact">
-             <listitem>
-               <para>
-If the internal parameter entity contains the first token of a declaration
-(i.e. <literal>&lt;!</literal>), it must also contain the last token of the
-declaration, i.e. the <literal>&gt;</literal>. This means that the entity
-either contains a whole number of complete declarations, or some text from the
-middle of one declaration.
-</para>
-<para><emphasis>Illegal:</emphasis>
-<programlisting>
-<![CDATA[
-<!ENTITY % e "(a | b | c)>">
-<!ELEMENT x %e;
-]]></programlisting> Because <literal>&lt;!</literal> is contained in the main
-entity, and the corresponding <literal>&gt;</literal> is contained in the
-entity <literal>e</literal>.</para>
-             </listitem>
-             <listitem>
-               <para>
-If the internal parameter entity contains a left paranthesis, it must also
-contain the corresponding right paranthesis.
-</para>
-<para><emphasis>Illegal:</emphasis>
-<programlisting>
-<![CDATA[
-<!ENTITY % e "(a | b | c">
-<!ELEMENT x %e;)>
-]]></programlisting> Because <literal>(</literal> is contained in the entity 
-<literal>e</literal>, and the corresponding <literal>)</literal> is
-contained in the main entity.</para>
-             </listitem>
-             <listitem>
-               <para>
-When reading text from an entity, the parser automatically inserts one space
-character before the entity text and one space character after the entity
-text. However, this rule is not applied within the definition of another
-entity.</para>
-<para><emphasis>Legal:</emphasis>
-<programlisting>
-<![CDATA[ 
-<!ENTITY % suffix "gif"> 
-<!ENTITY iconfile 'icon.%suffix;'>
-]]></programlisting> Because <literal>%suffix;</literal> is referenced within
-the definition text for <literal>iconfile</literal>, no additional spaces are
-added.
-</para>
-<para><emphasis>Illegal:</emphasis>
-<programlisting>
-<![CDATA[
-<!ENTITY % suffix "test">
-<!ELEMENT x.%suffix; ANY>
-]]></programlisting>
-Because <literal>%suffix;</literal> is referenced outside the definition
-text of another entity, the parser replaces <literal>%suffix;</literal> by
-<literal><replaceable>space</replaceable>test<replaceable>space</replaceable></literal>. </para>
-<para><emphasis>Illegal:</emphasis>
-<programlisting>
-<![CDATA[
-<!ENTITY % e "(a | b | c)">
-<!ELEMENT x %e;*>
-]]></programlisting> Because there is a whitespace between <literal>)</literal>
-and <literal>*</literal>, which is illegal.</para>
-             </listitem>
-             <listitem>
-               <para>
-An external parameter entity must always consist of a whole number of complete
-declarations.
-</para>
-             </listitem>
-             <listitem>
-               <para>
-In the internal subset of the DTD, a reference to a parameter entity (internal
-or external) is only allowed at positions where a new declaration can start.
-</para>
-             </listitem>
-           </itemizedlist>
-</para>
-
-         <para>
-If the parsed entity is going to be used in the document instance, it is called
-a <emphasis>general entity</emphasis>. Such entities can be used as
-abbreviations for frequent phrases, or to include external files. Internal
-general entities are declared as follows:
-
-<programlisting>
-&lt;!ENTITY <replaceable>name</replaceable> "<replaceable>value</replaceable>"&gt;
-</programlisting>
-
-External general entities are declared this way:
-
-<programlisting>
-&lt;!ENTITY <replaceable>name</replaceable> SYSTEM "<replaceable>file name</replaceable>"&gt;
-</programlisting>
-
-References to general entities are written as:
-
-<programlisting>
-&<replaceable>name</replaceable>;
-</programlisting>
-
-The main difference between parameter and general entities is that the former
-are only recognized in the DTD and that the latter are only recognized in the
-document instance. As the DTD is parsed before the document, the parameter
-entities are expanded first; for example it is possible to use the content of a
-parameter entity as the name of a general entity:
-<literal>&amp;#38;%name;;</literal><footnote><para>This construct is only
-allowed within the definition of another entity; otherwise extra spaces would
-be added (as explained above). Such indirection is not recommended.
-</para>
-<para>Complete example:
-<programlisting>
-<![CDATA[
-<!ENTITY % variant "a">      <!-- or "b" -->
-<!ENTITY text-a "This is text A.">
-<!ENTITY text-b "This is text B.">
-<!ENTITY text "&#38;text-%variant;;">
-]]></programlisting>
-You can now write <literal>&amp;text;</literal> in the document instance, and
-depending on the value of <literal>variant</literal> either
-<literal>text-a</literal> or <literal>text-b</literal> is inserted.</para>
-</footnote>.
-</para>
-         <para>
-General entities must respect the element hierarchy. This means that there must
-be an end tag for every start tag in the entity value, and that end tags
-without corresponding start tags are not allowed.
-</para>
-
-         <blockquote>
-           <title>Example</title>
-           <para>
-If the author of a document changes sometimes, it is worthwhile to set up a
-general entity containing the names of the authors. If the author changes, you
-need only to change the definition of the entity, and do not need to check all
-occurrences of authors' names:
-
-<programlisting>
-<![CDATA[
-<!ENTITY authors "Gerd Stolpmann">
-]]>
-</programlisting>
-
-In the document text, you can now refer to the author names by writing
-<literal>&amp;authors;</literal>.
-</para>
-
-           <para>
-<emphasis>Illegal:</emphasis>
-The following two entities are illegal because the elements in the definition
-do not nest properly:
-
-<programlisting>
-<![CDATA[
-<!ENTITY lengthy-tag "<section textcolor='white' background='graphic'>">
-<!ENTITY nonsense    "<a></b>">
-]]></programlisting>
-</para>
-         </blockquote>
-
-         <para>
-Earlier in this introduction we explained that there are substitutes for
-reserved characters: &amp;lt;, &amp;gt;, &amp;amp;, &amp;apos;, and
-&amp;quot;. These are simply predefined general entities; note that they are
-the only predefined entities. It is allowed to define these entities again
-as long as the meaning is unchanged.
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Notations and unparsed entities</title>
-         <para>
-Unparsed entities have a foreign format and can thus not be read by the XML
-parser. Unparsed entities are always external. The format of an unparsed entity
-must have been declared, such a format is called a
-<emphasis>notation</emphasis>. The entity can then be declared by referring to
-this notation. As unparsed entities do not contain XML text, it is not possible
-to include them directly into the document; you can only declare attributes
-such that names of unparsed entities are acceptable values.
-</para>
-
-         <para>
-As you can see, unparsed entities are too complicated in order to have any
-purpose. It is almost always better to simply pass the name of the data file as
-normal attribute value, and let the application recognize and process the
-foreign format. 
-</para>
-       </sect2>
-
-      </sect1>
-
-
-      <!-- ================================================== -->
-
-
-      <sect1 id="sect.readme.dtd">
-       <title>A complete example: The <emphasis>readme</emphasis> DTD</title>
-       <para>
-The reason for <emphasis>readme</emphasis> was that I often wrote two versions
-of files such as README and INSTALL which explain aspects of a distributed
-software archive; one version was ASCII-formatted, the other was written in
-HTML. Maintaining both versions means double amount of work, and changes
-of one version may be forgotten in the other version. To improve this situation
-I invented the <emphasis>readme</emphasis> DTD which allows me to maintain only
-one source written as XML document, and to generate the ASCII and the HTML
-version from it.
-</para>
-
-       <para>
-In this section, I explain only the DTD. The <emphasis>readme</emphasis> DTD is
-contained in the &markup; distribution together with the two converters to
-produce ASCII and HTML. Another <link
-linkend="sect.readme.to-html">section</link> of this manual describes the HTML
-converter.
-</para>
-
-       <para>
-The documents have a simple structure: There are up to three levels of nested
-sections, paragraphs, item lists, footnotes, hyperlinks, and text emphasis. The
-outermost element has usually the type <literal>readme</literal>, it is
-declared by
-
-<programlisting>
-<![CDATA[<!ELEMENT readme (sect1+)>
-<!ATTLIST readme
-          title CDATA #REQUIRED>
-]]></programlisting>
-
-This means that this element contains one or more sections of the first level
-(element type <literal>sect1</literal>), and that the element has a required
-attribute <literal>title</literal> containing character data (CDATA). Note that
-<literal>readme</literal> elements must not contain text data.
-</para>
-
-       <para>
-The three levels of sections are declared as follows:
-
-<programlisting>
-<![CDATA[<!ELEMENT sect1 (title,(sect2|p|ul)+)>
-
-<!ELEMENT sect2 (title,(sect3|p|ul)+)>
-
-<!ELEMENT sect3 (title,(p|ul)+)>
-]]></programlisting>
-
-Every section has a <literal>title</literal> element as first subelement. After
-the title an arbitrary but non-empty sequence of inner sections, paragraphs and
-item lists follows. Note that the inner sections must belong to the next higher
-section level; <literal>sect3</literal> elements must not contain inner
-sections because there is no next higher level.
-</para>
-
-       <para>
-Obviously, all three declarations allow paragraphs (<literal>p</literal>) and
-item lists (<literal>ul</literal>). The definition can be simplified at this
-point by using a parameter entity:
-
-<programlisting>
-<![CDATA[<!ENTITY % p.like "p|ul">
-
-<!ELEMENT sect1 (title,(sect2|%p.like;)+)>
-
-<!ELEMENT sect2 (title,(sect3|%p.like;)+)>
-
-<!ELEMENT sect3 (title,(%p.like;)+)>
-]]></programlisting>
-
-Here, the entity <literal>p.like</literal> is nothing but a macro abbreviating
-the same sequence of declarations; if new elements on the same level as
-<literal>p</literal> and <literal>ul</literal> are later added, it is
-sufficient only to change the entity definition. Note that there are some
-restrictions on the usage of entities in this context; most important, entities
-containing a left paranthesis must also contain the corresponding right
-paranthesis. 
-</para>
-
-       <para>
-Note that the entity <literal>p.like</literal> is a
-<emphasis>parameter</emphasis> entity, i.e. the ENTITY declaration contains a
-percent sign, and the entity is referred to by
-<literal>%p.like;</literal>. This kind of entity must be used to abbreviate
-parts of the DTD; the <emphasis>general</emphasis> entities declared without
-percent sign and referred to as <literal>&amp;name;</literal> are not allowed
-in this context.
-</para>
-
-       <para>
-The <literal>title</literal> element specifies the title of the section in
-which it occurs. The title is given as character data, optionally interspersed
-with line breaks (<literal>br</literal>):
-
-<programlisting>
-<![CDATA[<!ELEMENT title (#PCDATA|br)*>
-]]></programlisting>
-
-Compared with the <literal>title</literal> <emphasis>attribute</emphasis> of
-the <literal>readme</literal> element, this element allows inner markup
-(i.e. <literal>br</literal>) while attribute values do not: It is an error if
-an attribute value contains the left angle bracket &lt; literally such that it
-is impossible to include inner elements. 
-</para>
-
-       <para>
-The paragraph element <literal>p</literal> has a structure similar to
-<literal>title</literal>, but it allows more inner elements:
-
-<programlisting>
-<![CDATA[<!ENTITY % text "br|code|em|footnote|a">
-
-<!ELEMENT p (#PCDATA|%text;)*>
-]]></programlisting>
-
-Line breaks do not have inner structure, so they are declared as being empty:
-
-<programlisting>
-<![CDATA[<!ELEMENT br EMPTY>
-]]></programlisting>
-
-This means that really nothing is allowed within <literal>br</literal>; you
-must always write <literal><![CDATA[<br></br>]]></literal> or abbreviated
-<literal><![CDATA[<br/>]]></literal>.
-</para>
-
-       <para>
-Code samples should be marked up by the <literal>code</literal> tag; emphasized
-text can be indicated by <literal>em</literal>:
-
-<programlisting>
-<![CDATA[<!ELEMENT code (#PCDATA)>
-
-<!ELEMENT em (#PCDATA|%text;)*>
-]]></programlisting>
-
-That <literal>code</literal> elements are not allowed to contain further markup
-while <literal>em</literal> elements do is a design decision by the author of
-the DTD.
-</para>
-
-       <para>
-Unordered lists simply consists of one or more list items, and a list item may
-contain paragraph-level material:
-
-<programlisting>
-<![CDATA[<!ELEMENT ul (li+)>
-
-<!ELEMENT li (%p.like;)*>
-]]></programlisting>
-
-Footnotes are described by the text of the note; this text may contain
-text-level markup. There is no mechanism to describe the numbering scheme of
-footnotes, or to specify how footnote references are printed.
-
-<programlisting>
-<![CDATA[<!ELEMENT footnote (#PCDATA|%text;)*>
-]]></programlisting>
-
-Hyperlinks are written as in HTML. The anchor tag contains the text describing
-where the link points to, and the <literal>href</literal> attribute is the
-pointer (as URL). There is no way to describe locations of "hash marks". If the
-link refers to another <emphasis>readme</emphasis> document, the attribute
-<literal>readmeref</literal> should be used instead of <literal>href</literal>.
-The reason is that the converted document has usually a different system
-identifier (file name), and the link to a converted document must be
-converted, too.
-
-<programlisting>
-<![CDATA[<!ELEMENT a (#PCDATA)*>
-<!ATTLIST a 
-          href      CDATA #IMPLIED
-          readmeref CDATA #IMPLIED
->
-]]></programlisting>
-
-Note that although it is only sensible to specify one of the two attributes,
-the DTD has no means to express this restriction.
-</para>
-
-<para>
-So far the DTD. Finally, here is a document for it:
-
-<programlisting>
-<![CDATA[
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<!DOCTYPE readme SYSTEM "readme.dtd">
-<readme title="How to use the readme converters">
-<sect1>
-  <title>Usage</title>
-  <p>
-    The <em>readme</em> converter is invoked on the command line by:
-  </p>
-  <p>
-    <code>readme [ -text | -html ] input.xml</code>
-  </p>
-  <p>
-    Here a list of options:
-  </p>
-  <ul>
-    <li>
-      <p><code>-text</code>: specifies that ASCII output should be produced</p>
-    </li>
-    <li>
-      <p><code>-html</code>: specifies that HTML output should be produced</p>
-    </li>
-  </ul>
-  <p>
-    The input file must be given on the command line. The converted output is
-    printed to <em>stdout</em>.
-  </p>
-</sect1>
-<sect1>
-  <title>Author</title>
-  <p>
-    The program has been written by
-    <a href="mailto:Gerd.Stolpmann@darmstadt.netsurf.de">Gerd Stolpmann</a>.
-  </p>
-</sect1>
-</readme>
-]]></programlisting>
-
-</para>
-
-
-      </sect1>
-    </chapter>
-
-<!-- ********************************************************************** -->
-
-    <chapter>
-      <title>Using &markup;</title>
-
-      <sect1>
-       <title>Validation</title>
-       <para>
-The parser can be used to <emphasis>validate</emphasis> a document. This means
-that all the constraints that must hold for a valid document are actually
-checked. Validation is the default mode of &markup;, i.e. every document is
-validated while it is being parsed.
-</para>
-
-       <para>
-In the <literal>examples</literal> directory of the distribution you find the
-<literal>pxpvalidate</literal> application. It is invoked in the following way:
-
-<programlisting>
-pxpvalidate [ -wf ] <replaceable>file</replaceable>...
-</programlisting>
-
-The files mentioned on the command line are validated, and every warning and
-every error messages are printed to stderr.
-</para>
-
-       <para>
-The -wf switch modifies the behaviour such that a well-formedness parser is
-simulated. In this mode, the ELEMENT, ATTLIST, and NOTATION declarations of the
-DTD are ignored, and only the ENTITY declarations will take effect. This mode
-is intended for documents lacking a DTD. Please note that the parser still
-scans the DTD fully and will report all errors in the DTD; such checks are not
-required by a well-formedness parser.
-</para>
-
-       <para>
-The <literal>pxpvalidate</literal> application is the simplest sensible program
-using &markup;, you may consider it as "hello world" program. 
-</para>
-      </sect1>
-
-
-      <!-- ================================================== -->
-
-
-      <sect1>
-       <title>How to parse a document from an application</title>
-       <para>
-Let me first give a rough overview of the object model of the parser. The
-following items are represented by objects:
-
-<itemizedlist mark="bullet" spacing="compact">
-           <listitem>
-             <para>
-<emphasis>Documents:</emphasis> The document representation is more or less the
-anchor for the application; all accesses to the parsed entities start here. It
-is described by the class <literal>document</literal> contained in the module
-<literal>Pxp_document</literal>. You can get some global information, such
-as the XML declaration the document begins with, the DTD of the document,
-global processing instructions, and most important, the document tree. 
-</para>
-           </listitem>
-
-           <listitem>
-             <para>
-<emphasis>The contents of documents:</emphasis> The contents have the structure
-of a tree: Elements contain other elements and text<footnote><para>Elements may
-also contain processing instructions. Unlike other document models, &markup;
-separates processing instructions from the rest of the text and provides a
-second interface to access them (method <literal>pinstr</literal>). However,
-there is a parser option (<literal>enable_pinstr_nodes</literal>) which changes
-the behaviour of the parser such that extra nodes for processing instructions
-are included into the tree.</para>
-<para>Furthermore, the tree does normally not contain nodes for XML comments;
-they are ignored by default. Again, there is an option
-(<literal>enable_comment_nodes</literal>) changing this.</para>
-</footnote>. 
-
-The common type to represent both kinds of content is <literal>node</literal>
-which is a class type that unifies the properties of elements and character
-data. Every node has a list of children (which is empty if the element is empty
-or the node represents text); nodes may have attributes; nodes have always text
-contents. There are two implementations of <literal>node</literal>, the class
-<literal>element_impl</literal> for elements, and the class
-<literal>data_impl</literal> for text data. You find these classes and class
-types in the module <literal>Pxp_document</literal>, too.
-</para>
-
-             <para>
-Note that attribute lists are represented by non-class values.
-</para>
-           </listitem>
-
-           <listitem>
-             <para>
-<emphasis>The node extension:</emphasis> For advanced usage, every node of the
-document may have an associated <emphasis>extension</emphasis> which is simply
-a second object. This object must have the three methods
-<literal>clone</literal>, <literal>node</literal>, and
-<literal>set_node</literal> as bare minimum, but you are free to add methods as
-you want. This is the preferred way to add functionality to the document
-tree<footnote><para>Due to the typing system it is more or less impossible to
-derive recursive classes in O'Caml. To get around this, it is common practice
-to put the modifiable or extensible part of recursive objects into parallel
-objects.</para> </footnote>. The class type <literal>extension</literal> is
-defined in <literal>Pxp_document</literal>, too.
-</para>
-           </listitem>
-
-           <listitem>
-             <para>
-<emphasis>The DTD:</emphasis> Sometimes it is necessary to access the DTD of a
-document; the average application does not need this feature. The class
-<literal>dtd</literal> describes DTDs, and makes it possible to get
-representations of element, entity, and notation declarations as well as
-processing instructions contained in the DTD. This class, and
-<literal>dtd_element</literal>, <literal>dtd_notation</literal>, and
-<literal>proc_instruction</literal> can be found in the module
-<literal>Pxp_dtd</literal>. There are a couple of classes representing
-different kinds of entities; these can be found in the module
-<literal>Pxp_entity</literal>. 
-</para>
-           </listitem>
-         </itemizedlist>
-
-Additionally, the following modules play a role:
-
-<itemizedlist mark="bullet" spacing="compact">
-           <listitem>
-             <para>
-<emphasis>Pxp_yacc:</emphasis> Here the main parsing functions such as
-<literal>parse_document_entity</literal> are located. Some additional types and
-functions allow the parser to be configured in a non-standard way.
-</para>
-           </listitem>
-
-           <listitem>
-             <para>
-<emphasis>Pxp_types:</emphasis> This is a collection of basic types and
-exceptions. 
-</para>
-           </listitem>
-         </itemizedlist>
-
-There are some further modules that are needed internally but are not part of
-the API.
-</para>
-
-       <para>
-Let the document to be parsed be stored in a file called
-<literal>doc.xml</literal>. The parsing process is started by calling the
-function
-
-<programlisting>
-val parse_document_entity : config -> source -> 'ext spec -> 'ext document
-</programlisting>
-
-defined in the module <literal>Pxp_yacc</literal>. The first argument
-specifies some global properties of the parser; it is recommended to start with
-the <literal>default_config</literal>. The second argument determines where the
-document to be parsed comes from; this may be a file, a channel, or an entity
-ID. To parse <literal>doc.xml</literal>, it is sufficient to pass
-<literal>from_file "doc.xml"</literal>. 
-</para>
-
-       <para>
-The third argument passes the object specification to use. Roughly
-speaking, it determines which classes implement the node objects of which
-element types, and which extensions are to be used. The <literal>'ext</literal>
-polymorphic variable is the type of the extension. For the moment, let us
-simply pass <literal>default_spec</literal> as this argument, and ignore it.
-</para>
-
-       <para>
-So the following expression parses <literal>doc.xml</literal>:
-
-<programlisting>
-open Pxp_yacc
-let d = parse_document_entity default_config (from_file "doc.xml") default_spec
-</programlisting>
-
-Note that <literal>default_config</literal> implies that warnings are collected
-but not printed. Errors raise one of the exception defined in
-<literal>Pxp_types</literal>; to get readable errors and warnings catch the
-exceptions as follows:
-
-<programlisting>
-<![CDATA[class warner =
-  object 
-    method warn w =
-      print_endline ("WARNING: " ^ w)
-  end
-;;
-
-try
-  let config = { default_config with warner = new warner } in
-  let d = parse_document_entity config (from_file "doc.xml") default_spec
-  in
-    ...
-with
-   e ->
-     print_endline (Pxp_types.string_of_exn e)
-]]></programlisting>
-
-Now <literal>d</literal> is an object of the <literal>document</literal>
-class. If you want the node tree, you can get the root element by
-
-<programlisting>
-let root = d # root
-</programlisting>
-
-and if you would rather like to access the DTD, determine it by
-
-<programlisting>
-let dtd = d # dtd
-</programlisting>
-
-As it is more interesting, let us investigate the node tree now. Given the root
-element, it is possible to recursively traverse the whole tree. The children of
-a node <literal>n</literal> are returned by the method
-<literal>sub_nodes</literal>, and the type of a node is returned by
-<literal>node_type</literal>. This function traverses the tree, and prints the
-type of each node:
-
-<programlisting>
-<![CDATA[let rec print_structure n =
-  let ntype = n # node_type in
-  match ntype with
-    T_element name ->
-      print_endline ("Element of type " ^ name);
-      let children = n # sub_nodes in
-      List.iter print_structure children
-  | T_data ->
-      print_endline "Data"
-  | _ ->
-      (* Other node types are not possible unless the parser is configured
-         differently.
-       *)
-      assert false
-]]></programlisting>
-
-You can call this function by
-
-<programlisting>
-print_structure root
-</programlisting>
-
-The type returned by <literal>node_type</literal> is either <literal>T_element
-name</literal> or <literal>T_data</literal>. The <literal>name</literal> of the
-element type is the string included in the angle brackets. Note that only
-elements have children; data nodes are always leaves of the tree.
-</para>
-
-       <para>
-There are some more methods in order to access a parsed node tree:
-
-<itemizedlist mark="bullet" spacing="compact">
-           <listitem>
-             <para>
-<literal>n # parent</literal>: Returns the parent node, or raises
-<literal>Not_found</literal> if the node is already the root
-</para>
-           </listitem>
-           <listitem>
-             <para>
-<literal>n # root</literal>: Returns the root of the node tree. 
-</para>
-           </listitem>
-           <listitem>
-             <para>
-<literal>n # attribute a</literal>: Returns the value of the attribute with
-name <literal>a</literal>. The method returns a value for every
-<emphasis>declared</emphasis> attribute, independently of whether the attribute
-instance is defined or not. If the attribute is not declared,
-<literal>Not_found</literal> will be raised. (In well-formedness mode, every
-attribute is considered as being implicitly declared with type
-<literal>CDATA</literal>.) 
-</para>
-
-<para>
-The following return values are possible: <literal>Value s</literal>, 
-<literal>Valuelist sl</literal> , and <literal>Implied_value</literal>. 
-The first two value types indicate that the attribute value is available,
-either because there is a definition
-<literal><replaceable>a</replaceable>="<replaceable>value</replaceable>"</literal>
-in the XML text, or because there is a default value (declared in the
-DTD). Only if both the instance definition and the default declaration are
-missing, the latter value <literal>Implied_value</literal> will be returned.
-</para>
-
-<para>
-In the DTD, every attribute is typed. There are single-value types (CDATA, ID,
-IDREF, ENTITY, NMTOKEN, enumerations), in which case the method passes
-<literal>Value s</literal> back, where <literal>s</literal> is the normalized
-string value of the attribute. The other types (IDREFS, ENTITIES, NMTOKENS)
-represent list values, and the parser splits the XML literal into several
-tokens and returns these tokens as <literal>Valuelist sl</literal>.
-</para>
-
-<para>
-Normalization means that entity references (the
-<literal>&amp;<replaceable>name</replaceable>;</literal> tokens) and
-character references
-(<literal>&amp;#<replaceable>number</replaceable>;</literal>) are replaced
-by the text they represent, and that white space characters are converted into
-plain spaces.
-</para>
-           </listitem>
-           <listitem>
-             <para>
-<literal>n # data</literal>: Returns the character data contained in the
-node. For data nodes, the meaning is obvious as this is the main content of
-data nodes. For element nodes, this method returns the concatenated contents of
-all inner data nodes.
-</para>
-             <para>
-Note that entity references included in the text are resolved while they are
-being parsed; for example the text <![CDATA["a &lt;&gt; b"]]> will be returned
-as <![CDATA["a <> b"]]> by this method. Spaces of data nodes are always
-preserved. Newlines are preserved, but always converted to \n characters even
-if newlines are encoded as \r\n or \r. Normally you will never see two adjacent
-data nodes because the parser collapses all data material at one location into
-one node. (However, if you create your own tree or transform the parsed tree,
-it is possible to have adjacent data nodes.)
-</para>
-             <para>
-Note that elements that do <emphasis>not</emphasis> allow #PCDATA as content
-will not have data nodes as children. This means that spaces and newlines, the
-only character material allowed for such elements, are silently dropped.
-</para>
-           </listitem>
-         </itemizedlist>
-
-For example, if the task is to print all contents of elements with type
-"valuable" whose attribute "priority" is "1", this function can help:
-
-<programlisting>
-<![CDATA[let rec print_valuable_prio1 n =
-  let ntype = n # node_type in
-  match ntype with
-    T_element "valuable" when n # attribute "priority" = Value "1" ->
-      print_endline "Valuable node with priotity 1 found:";
-      print_endline (n # data)
-  | (T_element _ | T_data) ->
-      let children = n # sub_nodes in
-      List.iter print_valuable_prio1 children
-  | _ ->
-      assert false
-]]></programlisting>
-
-You can call this function by:
-
-<programlisting>
-print_valuable_prio1 root
-</programlisting>
-
-If you like a DSSSL-like style, you can make the function
-<literal>process_children</literal> explicit:
-
-<programlisting>
-<![CDATA[let rec print_valuable_prio1 n =
-
-  let process_children n =
-    let children = n # sub_nodes in
-    List.iter print_valuable_prio1 children 
-  in
-
-  let ntype = n # node_type in
-  match ntype with
-    T_element "valuable" when n # attribute "priority" = Value "1" ->
-      print_endline "Valuable node with priority 1 found:";
-      print_endline (n # data)
-  | (T_element _ | T_data) ->
-      process_children n
-  | _ ->
-      assert false
-]]></programlisting>
-
-So far, O'Caml is now a simple "style-sheet language": You can form a big
-"match" expression to distinguish between all significant cases, and provide
-different reactions on different conditions. But this technique has
-limitations; the "match" expression tends to get larger and larger, and it is
-difficult to store intermediate values as there is only one big
-recursion. Alternatively, it is also possible to represent the various cases as
-classes, and to use dynamic method lookup to find the appropiate class. The
-next section explains this technique in detail.
-
-</para>
-      </sect1>
-
-
-      <!-- ================================================== -->
-
-
-      <sect1>
-       <title>Class-based processing of the node tree</title>
-       <para>
-By default, the parsed node tree consists of objects of the same class; this is
-a good design as long as you want only to access selected parts of the
-document. For complex transformations, it may be better to use different
-classes for objects describing different element types.
-</para>
-
-       <para>
-For example, if the DTD declares the element types <literal>a</literal>,
-<literal>b</literal>, and <literal>c</literal>, and if the task is to convert
-an arbitrary document into a printable format, the idea is to define for every
-element type a separate class that has a method <literal>print</literal>. The
-classes are <literal>eltype_a</literal>, <literal>eltype_b</literal>, and
-<literal>eltype_c</literal>, and every class implements
-<literal>print</literal> such that elements of the type corresponding to the
-class are converted to the output format.
-</para>
-
-       <para>
-The parser supports such a design directly. As it is impossible to derive
-recursive classes in O'Caml<footnote><para>The problem is that the subclass is
-usually not a subtype in this case because O'Caml has a contravariant subtyping
-rule. </para> </footnote>, the specialized element classes cannot be formed by
-simply inheriting from the built-in classes of the parser and adding methods
-for customized functionality. To get around this limitation, every node of the
-document tree is represented by <emphasis>two</emphasis> objects, one called
-"the node" and containing the recursive definition of the tree, one called "the
-extension". Every node object has a reference to the extension, and the
-extension has a reference to the node. The advantage of this model is that it
-is now possible to customize the extension without affecting the typing
-constraints of the recursive node definition.
-</para>
-
-       <para>
-Every extension must have the three methods <literal>clone</literal>,
-<literal>node</literal>, and <literal>set_node</literal>. The method
-<literal>clone</literal> creates a deep copy of the extension object and
-returns it; <literal>node</literal> returns the node object for this extension
-object; and <literal>set_node</literal> is used to tell the extension object
-which node is associated with it, this method is automatically called when the
-node tree is initialized. The following definition is a good starting point
-for these methods; usually <literal>clone</literal> must be further refined
-when instance variables are added to the class:
-
-<programlisting>
-<![CDATA[class custom_extension =
-  object (self)
-
-    val mutable node = (None : custom_extension node option)
-
-    method clone = {< >} 
-    method node =
-      match node with
-          None ->
-            assert false
-        | Some n -> n
-    method set_node n =
-      node <- Some n
-
-  end
-]]>
-</programlisting>
-
-This part of the extension is usually the same for all classes, so it is a good
-idea to consider <literal>custom_extension</literal> as the super-class of the
-further class definitions. Continuining the example of above, we can define the
-element type classes as follows:
-
-<programlisting>
-<![CDATA[class virtual custom_extension =
-  object (self)
-    ... clone, node, set_node defined as above ...
-
-    method virtual print : out_channel -> unit
-  end
-
-class eltype_a =
-  object (self)
-    inherit custom_extension
-    method print ch = ...
-  end
-
-class eltype_b =
-  object (self)
-    inherit custom_extension
-    method print ch = ...
-  end
-
-class eltype_c =
-  object (self)
-    inherit custom_extension
-    method print ch = ...
-  end
-]]></programlisting>
-
-The method <literal>print</literal> can now be implemented for every element
-type separately. Note that you get the associated node by invoking
-
-<programlisting>
-self # node
-</programlisting>
-
-and you get the extension object of a node <literal>n</literal> by writing 
-
-<programlisting>
-n # extension
-</programlisting>
-
-It is guaranteed that 
-
-<programlisting>
-self # node # extension == self
-</programlisting>
-
-always holds.
-</para>
-
-       <para>Here are sample definitions of the <literal>print</literal>
-methods:
-
-<programlisting><![CDATA[
-class eltype_a =
-  object (self)
-    inherit custom_extension
-    method print ch = 
-      (* Nodes <a>...</a> are only containers: *)
-      output_string ch "(";
-      List.iter
-        (fun n -> n # extension # print ch)
-        (self # node # sub_nodes);
-      output_string ch ")";
-  end
-
-class eltype_b =
-  object (self)
-    inherit custom_extension
-    method print ch =
-      (* Print the value of the CDATA attribute "print": *)
-      match self # node # attribute "print" with
-        Value s       -> output_string ch s
-      | Implied_value -> output_string ch "<missing>"
-      | Valuelist l   -> assert false   
-                         (* not possible because the att is CDATA *)
-  end
-
-class eltype_c =
-  object (self)
-    inherit custom_extension
-    method print ch = 
-      (* Print the contents of this element: *)
-      output_string ch (self # node # data)
-  end
-
-class null_extension =
-  object (self)
-    inherit custom_extension
-    method print ch = assert false
-  end
-]]></programlisting>
-</para>
-
-
-       <para>
-The remaining task is to configure the parser such that these extension classes
-are actually used. Here another problem arises: It is not possible to
-dynamically select the class of an object to be created. As workaround,
-&markup; allows the user to specify <emphasis>exemplar objects</emphasis> for
-the various element types; instead of creating the nodes of the tree by
-applying the <literal>new</literal> operator the nodes are produced by
-duplicating the exemplars. As object duplication preserves the class of the
-object, one can create fresh objects of every class for which previously an
-exemplar has been registered.
-</para>
-
-       <para>
-Exemplars are meant as objects without contents, the only interesting thing is
-that exemplars are instances of a certain class. The creation of an exemplar
-for an element node can be done by:
-
-<programlisting>
-let element_exemplar = new element_impl extension_exemplar
-</programlisting>
-
-And a data node exemplar is created by:
-
-<programlisting>
-let data_exemplar = new data_impl extension_exemplar
-</programlisting>
-
-The classes <literal>element_impl</literal> and <literal>data_impl</literal>
-are defined in the module <literal>Pxp_document</literal>. The constructors
-initialize the fresh objects as empty objects, i.e. without children, without
-data contents, and so on. The <literal>extension_exemplar</literal> is the
-initial extension object the exemplars are associated with. 
-</para>
-
-       <para>
-Once the exemplars are created and stored somewhere (e.g. in a hash table), you
-can take an exemplar and create a concrete instance (with contents) by
-duplicating it. As user of the parser you are normally not concerned with this
-as this is part of the internal logic of the parser, but as background knowledge
-it is worthwhile to mention that the two methods
-<literal>create_element</literal> and <literal>create_data</literal> actually
-perform the duplication of the exemplar for which they are invoked,
-additionally apply modifications to the clone, and finally return the new
-object. Moreover, the extension object is copied, too, and the new node object
-is associated with the fresh extension object. Note that this is the reason why
-every extension object must have a <literal>clone</literal> method.
-</para>
-
-       <para>
-The configuration of the set of exemplars is passed to the
-<literal>parse_document_entity</literal> function as third argument. In our
-example, this argument can be set up as follows:
-
-<programlisting>
-<![CDATA[let spec =
-  make_spec_from_alist
-    ~data_exemplar:            (new data_impl (new null_extension))
-    ~default_element_exemplar: (new element_impl (new null_extension))
-    ~element_alist:
-       [ "a",  new element_impl (new eltype_a);
-         "b",  new element_impl (new eltype_b);
-         "c",  new element_impl (new eltype_c);
-       ]
-    ()
-]]></programlisting>
-
-The <literal>~element_alist</literal> function argument defines the mapping
-from element types to exemplars as associative list. The argument
-<literal>~data_exemplar</literal> specifies the exemplar for data nodes, and
-the <literal>~default_element_exemplar</literal> is used whenever the parser
-finds an element type for which the associative list does not define an
-exemplar. 
-</para>
-
-       <para>
-The configuration is now complete. You can still use the same parsing
-functions, only the initialization is a bit different. For example, call the
-parser by:
-
-<programlisting>
-let d = parse_document_entity default_config (from_file "doc.xml") spec
-</programlisting>
-
-Note that the resulting document <literal>d</literal> has a usable type;
-especially the <literal>print</literal> method we added is visible. So you can
-print your document by
-
-<programlisting>
-d # root # extension # print stdout
-</programlisting>
-</para>
-
-       <para>
-This object-oriented approach looks rather complicated; this is mostly caused
-by working around some problems of the strict typing system of O'Caml. Some
-auxiliary concepts such as extensions were needed, but the practical
-consequences are low. In the next section, one of the examples of the
-distribution is explained, a converter from <emphasis>readme</emphasis>
-documents to HTML.
-</para>
-
-      </sect1>
-
-
-      <!-- ================================================== -->
-
-
-      <sect1 id="sect.readme.to-html">
-       <title>Example: An HTML backend for the <emphasis>readme</emphasis>
-DTD</title>
-
-       <para>The converter from <emphasis>readme</emphasis> documents to HTML
-documents follows strictly the approach to define one class per element
-type. The HTML code is similar to the <emphasis>readme</emphasis> source,
-because of this most elements can be converted in the following way: Given the
-input element 
-
-<programlisting>
-<![CDATA[<e>content</e>]]>
-</programlisting>
-
-the conversion text is the concatenation of a computed prefix, the recursively
-converted content, and a computed suffix. 
-</para>
-
-       <para>
-Only one element type cannot be handled by this scheme:
-<literal>footnote</literal>. Footnotes are collected while they are found in
-the input text, and they are printed after the main text has been converted and
-printed. 
-</para>
-
-       <sect2>
-         <title>Header</title>
-         <para>
-<programlisting>&readme.code.header;</programlisting>
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Type declarations</title>
-         <para>
-<programlisting>&readme.code.footnote-printer;</programlisting>
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Class <literal>store</literal></title>
-         <para>
-The <literal>store</literal> is a container for footnotes. You can add a
-footnote by invoking <literal>alloc_footnote</literal>; the argument is an
-object of the class <literal>footnote_printer</literal>, the method returns the
-number of the footnote. The interesting property of a footnote is that it can
-be converted to HTML, so a <literal>footnote_printer</literal> is an object
-with a method <literal>footnote_to_html</literal>. The class
-<literal>footnote</literal> which is defined below has a compatible method
-<literal>footnote_to_html</literal> such that objects created from it can be
-used as <literal>footnote_printer</literal>s.
-</para>
-         <para>
-The other method, <literal>print_footnotes</literal> prints the footnotes as
-definition list, and is typically invoked after the main material of the page
-has already been printed. Every item of the list is printed by
-<literal>footnote_to_html</literal>.
-</para>
-
-         <para>
-<programlisting>&readme.code.store;</programlisting>
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Function <literal>escape_html</literal></title>
-         <para>
-This function converts the characters &lt;, &gt;, &amp;, and " to their HTML
-representation. For example, 
-<literal>escape_html "&lt;&gt;" = "&amp;lt;&amp;gt;"</literal>. Other
-characters are left unchanged.
-
-<programlisting>&readme.code.escape-html;</programlisting>
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Virtual class <literal>shared</literal></title>
-         <para>
-This virtual class is the abstract superclass of the extension classes shown
-below. It defines the standard methods <literal>clone</literal>,
-<literal>node</literal>, and <literal>set_node</literal>, and declares the type
-of the virtual method <literal>to_html</literal>. This method recursively
-traverses the whole element tree, and prints the converted HTML code to the
-output channel passed as second argument. The first argument is the reference
-to the global <literal>store</literal> object which collects the footnotes.
-
-<programlisting>&readme.code.shared;</programlisting>
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Class <literal>only_data</literal></title>
-         <para>
-This class defines <literal>to_html</literal> such that the character data of
-the current node is converted to HTML. Note that <literal>self</literal> is an
-extension object, <literal>self # node</literal> is the node object, and
-<literal>self # node # data</literal> returns the character data of the node. 
-
-<programlisting>&readme.code.only-data;</programlisting>
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Class <literal>readme</literal></title>
-         <para>
-This class converts elements of type <literal>readme</literal> to HTML. Such an
-element is (by definition) always the root element of the document. First, the
-HTML header is printed; the <literal>title</literal> attribute of the element
-determines the title of the HTML page. Some aspects of the HTML page can be
-configured by setting certain parameter entities, for example the background
-color, the text color, and link colors. After the header, the
-<literal>body</literal> tag, and the headline have been printed, the contents
-of the page are converted by invoking <literal>to_html</literal> on all
-children of the current node (which is the root node). Then, the footnotes are
-appended to this by telling the global <literal>store</literal> object to print
-the footnotes. Finally, the end tags of the HTML pages are printed.
-</para>
-
-         <para>
-This class is an example how to access the value of an attribute: The value is
-determined by invoking <literal>self # node # attribute "title"</literal>. As
-this attribute has been declared as CDATA and as being required, the value has
-always the form <literal>Value s</literal> where <literal>s</literal> is the
-string value of the attribute. 
-</para>
-
-         <para>
-You can also see how entity contents can be accessed. A parameter entity object
-can be looked up by <literal>self # node # dtd # par_entity "name"</literal>,
-and by invoking <literal>replacement_text</literal> the value of the entity
-is returned after inner parameter and character entities have been
-processed. Note that you must use <literal>gen_entity</literal> instead of
-<literal>par_entity</literal> to access general entities.
-</para>
-
-         <para>
-<programlisting>&readme.code.readme;</programlisting>
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Classes <literal>section</literal>, <literal>sect1</literal>,
-<literal>sect2</literal>, and <literal>sect3</literal></title>
-         <para>
-As the conversion process is very similar, the conversion classes of the three
-section levels are derived from the more general <literal>section</literal>
-class. The HTML code of the section levels only differs in the type of the
-headline, and because of this the classes describing the section levels can be
-computed by replacing the class argument <literal>the_tag</literal> of
-<literal>section</literal> by the HTML name of the headline tag.
-</para>
-
-         <para>
-Section elements are converted to HTML by printing a headline and then
-converting the contents of the element recursively. More precisely, the first
-sub-element is always a <literal>title</literal> element, and the other
-elements are the contents of the section. This structure is declared in the
-DTD, and it is guaranteed that the document matches the DTD. Because of this
-the title node can be separated from the rest without any checks.
-</para>
-
-         <para>
-Both the title node, and the body nodes are then converted to HTML by calling
-<literal>to_html</literal> on them.
-</para>
-
-         <para>
-<programlisting>&readme.code.section;</programlisting>
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Classes <literal>map_tag</literal>, <literal>p</literal>,
-<literal>em</literal>, <literal>ul</literal>, <literal>li</literal></title>
-         <para>
-Several element types are converted to HTML by simply mapping them to
-corresponding HTML element types. The class <literal>map_tag</literal>
-implements this, and the class argument <literal>the_target_tag</literal>
-determines the tag name to map to. The output consists of the start tag, the
-recursively converted inner elements, and the end tag.
-
-<programlisting>&readme.code.map-tag;</programlisting>
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Class <literal>br</literal></title>
-         <para>
-Element of type <literal>br</literal> are mapped to the same HTML type. Note
-that HTML forbids the end tag of <literal>br</literal>.
-
-<programlisting>&readme.code.br;</programlisting>
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Class <literal>code</literal></title>
-         <para>
-The <literal>code</literal> type is converted to a <literal>pre</literal>
-section (preformatted text). As the meaning of tabs is unspecified in HTML,
-tabs are expanded to spaces.
-
-<programlisting>&readme.code.code;</programlisting>
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Class <literal>a</literal></title>
-         <para>
-Hyperlinks, expressed by the <literal>a</literal> element type, are converted
-to the HTML <literal>a</literal> type. If the target of the hyperlink is given
-by <literal>href</literal>, the URL of this attribute can be used
-directly. Alternatively, the target can be given by
-<literal>readmeref</literal> in which case the ".html" suffix must be added to
-the file name. 
-</para>
-
-         <para>
-Note that within <literal>a</literal> only #PCDATA is allowed, so the contents
-can be converted directly by applying <literal>escape_html</literal> to the
-character data contents.
-
-<programlisting>&readme.code.a;</programlisting>
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Class <literal>footnote</literal></title>
-         <para>
-The <literal>footnote</literal> class has two methods:
-<literal>to_html</literal> to convert the footnote reference to HTML, and
-<literal>footnote_to_html</literal> to convert the footnote text itself.
-</para>
-
-         <para>
-The footnote reference is converted to a local hyperlink; more precisely, to
-two anchor tags which are connected with each other. The text anchor points to
-the footnote anchor, and the footnote anchor points to the text anchor.
-</para>
-
-         <para>
-The footnote must be allocated in the <literal>store</literal> object. By
-allocating the footnote, you get the number of the footnote, and the text of
-the footnote is stored until the end of the HTML page is reached when the
-footnotes can be printed. The <literal>to_html</literal> method stores simply
-the object itself, such that the <literal>footnote_to_html</literal> method is
-invoked on the same object that encountered the footnote.
-</para>
-
-         <para>
-The <literal>to_html</literal> only allocates the footnote, and prints the
-reference anchor, but it does not print nor convert the contents of the
-note. This is deferred until the footnotes actually get printed, i.e. the
-recursive call of <literal>to_html</literal> on the sub nodes is done by
-<literal>footnote_to_html</literal>. 
-</para>
-
-         <para>
-Note that this technique does not work if you make another footnote within a
-footnote; the second footnote gets allocated but not printed.
-</para>
-
-         <para>
-<programlisting>&readme.code.footnote;</programlisting>
-</para>
-       </sect2>
-
-       <sect2>
-         <title>The specification of the document model</title>
-         <para>
-This code sets up the hash table that connects element types with the exemplars
-of the extension classes that convert the elements to HTML.
-
-<programlisting>&readme.code.tag-map;</programlisting>
-</para>
-       </sect2>
-
-<!-- <![RCDATA[&readme.code.to-html;]]> -->
-      </sect1>
-
-    </chapter>
-
-<!-- ********************************************************************** -->
-
-    <chapter>
-      <title>The objects representing the document</title>
-
-      <para>
-<emphasis>This description might be out-of-date. See the module interface files
-for updated information.</emphasis></para>
-
-      <sect1>
-       <title>The <literal>document</literal> class</title>
-       <para>
-<programlisting>
-<![CDATA[
-class [ 'ext ] document :
-  Pxp_types.collect_warnings -> 
-  object
-    method init_xml_version : string -> unit
-    method init_root : 'ext node -> unit
-
-    method xml_version : string
-    method xml_standalone : bool
-    method dtd : dtd
-    method root : 'ext node
-
-    method encoding : Pxp_types.rep_encoding
-
-    method add_pinstr : proc_instruction -> unit
-    method pinstr : string -> proc_instruction list
-    method pinstr_names : string list
-
-    method write : Pxp_types.output_stream -> Pxp_types.encoding -> unit
-
-  end
-;;
-]]>
-</programlisting>
-
-The methods beginning with <literal>init_</literal> are only for internal use
-of the parser.
-</para>
-
-       <itemizedlist mark="bullet" spacing="compact">
-         <listitem>
-           <para>
-<literal>xml_version</literal>: returns the version string at the beginning of
-the document. For example, "1.0" is returned if the document begins with
-<literal>&lt;?xml version="1.0"?&gt;</literal>.</para>
-         </listitem>
-         <listitem>
-           <para>
-<literal>xml_standalone</literal>: returns the boolean value of
-<literal>standalone</literal> declaration in the XML declaration. If the
-<literal>standalone</literal> attribute is missing, <literal>false</literal> is
-returned. </para>
-         </listitem>
-         <listitem>
-           <para>
-<literal>dtd</literal>: returns a reference to the global DTD object.</para>
-         </listitem>
-         <listitem>
-           <para>
-<literal>root</literal>: returns a reference to the root element.</para>
-         </listitem>
-         <listitem>
-           <para>
-<literal>encoding</literal>: returns the internal encoding of the
-document. This means that all strings of which the document consists are
-encoded in this character set.
-</para>
-         </listitem>
-         <listitem>
-           <para>
-<literal>pinstr</literal>: returns the processing instructions outside the DTD
-and outside the root element. The argument passed to the method names a
-<emphasis>target</emphasis>, and the method returns all instructions with this
-target. The target is the first word inside <literal>&lt;?</literal> and
-<literal>?&gt;</literal>.</para>
-         </listitem>
-         <listitem>
-           <para>
-<literal>pinstr_names</literal>: returns the names of the processing instructions</para>
-         </listitem>
-         <listitem>
-           <para>
-<literal>add_pinstr</literal>: adds another processing instruction. This method
-is used by the parser itself to enter the instructions returned by
-<literal>pinstr</literal>, but you can also enter additional instructions.
-</para>
-         </listitem>
-         <listitem>
-           <para>
-<literal>write</literal>: writes the document to the passed stream as XML
-text using the passed (external) encoding. The generated text is always valid
-XML and can be parsed by PXP; however, the text is badly formatted (this is not
-a pretty printer).</para>
-         </listitem>
-       </itemizedlist>
-      </sect1>
-
-<!-- ********************************************************************** -->
-
-      <sect1>
-       <title>The class type <literal>node</literal></title>
-       <para>
-
-From <literal>Pxp_document</literal>:
-
-<programlisting>
-type node_type =
-  T_data
-| T_element of string
-| T_super_root
-| T_pinstr of string
-| T_comment
-<replaceable>and some other, reserved types</replaceable>
-;;
-
-class type [ 'ext ] node =
-  object ('self)
-    constraint 'ext = 'ext node #extension
-
-    <anchor id="type-node-general.sig"
-   >(* <link linkend="type-node-general" endterm="type-node-general.title"
-       ></link> *)
-
-    method extension : 'ext
-    method dtd : dtd
-    method parent : 'ext node
-    method root : 'ext node
-    method sub_nodes : 'ext node list
-    method iter_nodes : ('ext node &fun; unit) &fun; unit
-    method iter_nodes_sibl : 
-           ('ext node option &fun; 'ext node &fun; 'ext node option &fun; unit) &fun; unit
-    method node_type : node_type
-    method encoding : Pxp_types.rep_encoding
-    method data : string
-    method position : (string * int * int)
-    method comment : string option
-    method pinstr : string &fun; proc_instruction list
-    method pinstr_names : string list
-    method write : Pxp_types.output_stream -> Pxp_types.encoding -> unit
-
-    <anchor id="type-node-atts.sig"
-   >(* <link linkend="type-node-atts" endterm="type-node-atts.title"
-       ></link> *)
-
-    method attribute : string &fun; Pxp_types.att_value
-    method required_string_attribute : string &fun; string
-    method optional_string_attribute : string &fun; string option
-    method required_list_attribute : string &fun; string list
-    method optional_list_attribute : string &fun; string list
-    method attribute_names : string list
-    method attribute_type : string &fun; Pxp_types.att_type
-    method attributes : (string * Pxp_types.att_value) list
-    method id_attribute_name : string
-    method id_attribute_value : string
-    method idref_attribute_names : string
-
-    <anchor id="type-node-mods.sig"
-   >(* <link linkend="type-node-mods" endterm="type-node-mods.title"
-       ></link> *)
-
-    method add_node : ?force:bool &fun; 'ext node &fun; unit
-    method add_pinstr : proc_instruction &fun; unit
-    method delete : unit
-    method set_nodes : 'ext node list &fun; unit
-    method quick_set_attributes : (string * Pxp_types.att_value) list &fun; unit
-    method set_comment : string option &fun; unit
-
-    <anchor id="type-node-cloning.sig"
-   >(* <link linkend="type-node-cloning" endterm="type-node-cloning.title"
-       ></link> *)
-
-    method orphaned_clone : 'self
-    method orphaned_flat_clone : 'self
-    method create_element : 
-              ?position:(string * int * int) &fun;
-              dtd &fun; node_type &fun; (string * string) list &fun;
-                  'ext node
-    method create_data : dtd &fun; string &fun; 'ext node
-    method keep_always_whitespace_mode : unit
-
-    <anchor id="type-node-weird.sig"
-   >(* <link linkend="type-node-weird" endterm="type-node-weird.title"
-       ></link> *)
-
-    method local_validate : ?use_dfa:bool -> unit -> unit
-
-    (* ... Internal methods are undocumented. *)
-
-  end
-;;
-</programlisting>
-
-In the module <literal>Pxp_types</literal> you can find another type
-definition that is important in this context:
-
-<programlisting>
-type Pxp_types.att_value =
-    Value     of string
-  | Valuelist of string list
-  | Implied_value
-;;
-</programlisting>
-</para>
-
-       <sect2>
-         <title>The structure of document trees</title>
-
-<para>
-A node represents either an element or a character data section. There are two
-classes implementing the two aspects of nodes: <literal>element_impl</literal>
-and <literal>data_impl</literal>. The latter class does not implement all
-methods because some methods do not make sense for data nodes.
-</para>
-
-<para>
-(Note: PXP also supports a mode which forces that processing instructions and
-comments are represented as nodes of the document tree. However, these nodes
-are instances of <literal>element_impl</literal> with node types
-<literal>T_pinstr</literal> and <literal>T_comment</literal>,
-respectively. This mode must be explicitly configured; the basic representation
-knows only element and data nodes.)
-</para>
-
-       <para>The following figure 
-(<link linkend="node-term" endterm="node-term"></link>) shows an example how
-a tree is constructed from element and data nodes. The circular areas 
-represent element nodes whereas the ovals denote data nodes. Only elements
-may have subnodes; data nodes are always leaves of the tree. The subnodes
-of an element can be either element or data nodes; in both cases the O'Caml
-objects storing the nodes have the class type <literal>node</literal>.</para>
-
-       <para>Attributes (the clouds in the picture) are not directly
-integrated into the tree; there is always an extra link to the attribute
-list. This is also true for processing instructions (not shown in the
-picture). This means that there are separated access methods for attributes and
-processing instructions.</para>
-
-<figure id="node-term" float="1">
-<title>A tree with element nodes, data nodes, and attributes</title>
-<graphic fileref="pic/node_term" format="GIF"></graphic>
-</figure>
-
-       <para>Only elements, data sections, attributes and processing
-instructions (and comments, if configured) can, directly or indirectly, occur
-in the document tree. It is impossible to add entity references to the tree; if
-the parser finds such a reference, not the reference as such but the referenced
-text (i.e. the tree representing the structured text) is included in the
-tree.</para>
-
-       <para>Note that the parser collapses as much data material into one
-data node as possible such that there are normally never two adjacent data
-nodes. This invariant is enforced even if data material is included by entity
-references or CDATA sections, or if a data sequence is interrupted by
-comments. So <literal>a &amp;amp; b &lt;-- comment --&gt; c &lt;![CDATA[
-&lt;&gt; d]]&gt;</literal> is represented by only one data node, for
-instance. However, you can create document trees manually which break this
-invariant; it is only the way the parser forms the tree.
-</para> 
-
-<figure id="node-general" float="1">
-<title>Nodes are doubly linked trees</title>
-<graphic fileref="pic/node_general" format="GIF"></graphic>
-</figure>
-
-       <para>
-The node tree has links in both directions: Every node has a link to its parent
-(if any), and it has links to the subnodes (see 
-figure <link linkend="node-general" endterm="node-general"></link>). Obviously,
-this doubly-linked structure simplifies the navigation in the tree; but has
-also some consequences for the possible operations on trees.</para>
-
-       <para>
-Because every node must have at most <emphasis>one</emphasis> parent node,
-operations are illegal if they violate this condition. The following figure
-(<link linkend="node-add" endterm="node-add"></link>) shows on the left side
-that node <literal>y</literal> is added to <literal>x</literal> as new subnode
-which is allowed because <literal>y</literal> does not have a parent yet. The
-right side of the picture illustrates what would happen if <literal>y</literal>
-had a parent node; this is illegal because <literal>y</literal> would have two
-parents after the operation.</para>
-
-<figure id="node-add" float="1">
-<title>A node can only be added if it is a root</title>
-<graphic fileref="pic/node_add" format="GIF">
-</graphic>
-</figure>
-
-       <para>
-The "delete" operation simply removes the links between two nodes. In the
-picture (<link linkend="node-delete" endterm="node-delete"></link>) the node
-<literal>x</literal> is deleted from the list of subnodes of
-<literal>y</literal>. After that, <literal>x</literal> becomes the root of the
-subtree starting at this node.</para>
-
-<figure id="node-delete" float="1">
-<title>A deleted node becomes the root of the subtree</title>
-<graphic fileref="pic/node_delete" format="GIF"></graphic>
-</figure>
-
-       <para>
-It is also possible to make a clone of a subtree; illustrated in 
-<link linkend="node-clone" endterm="node-clone"></link>. In this case, the
-clone is a copy of the original subtree except that it is no longer a
-subnode. Because cloning never keeps the connection to the parent, the clones
-are called <emphasis>orphaned</emphasis>.
-</para>
-
-<figure id="node-clone" float="1">
-<title>The clone of a subtree</title>
-<graphic fileref="pic/node_clone" format="GIF"></graphic>
-</figure>
-       </sect2>
-
-       <sect2>
-         <title>The methods of the class type <literal>node</literal></title>
-
-         <anchor id="type-node-general">
-         <formalpara>
-           <title id="type-node-general.title">
-              <link linkend="type-node-general.sig">General observers</link>
-            </title>
-
-           <para>
-             <itemizedlist mark="bullet" spacing="compact">
-               <listitem>
-                 <para>
-<literal>extension</literal>: The reference to the extension object which
-belongs to this node (see ...).</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>dtd</literal>: Returns a reference to the global DTD. All nodes
-of a tree must share the same DTD.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>parent</literal>: Get the father node. Raises
-<literal>Not_found</literal> in the case the node does not have a
-parent, i.e. the node is the root.</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>root</literal>: Gets the reference to the root node of the tree.
-Every node is contained in a tree with a root, so this method always 
-succeeds. Note that this method <emphasis>searches</emphasis> the root,
-which costs time proportional to the length of the path to the root.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>sub_nodes</literal>: Returns references to the children. The returned
-list reflects the order of the children. For data nodes, this method returns
-the empty list.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>iter_nodes f</literal>: Iterates over the children, and calls
-<literal>f</literal> for every child in turn. 
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>iter_nodes_sibl f</literal>: Iterates over the children, and calls
-<literal>f</literal> for every child in turn. <literal>f</literal> gets as
-arguments the previous node, the current node, and the next node.</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>node_type</literal>: Returns either <literal>T_data</literal> which
-means that the node is a data node, or <literal>T_element n</literal>
-which means that the node is an element of type <literal>n</literal>. 
-If configured, possible node types are also <literal>T_pinstr t</literal>
-indicating that the node represents a processing instruction with target
-<literal>t</literal>, and <literal>T_comment</literal> in which case the node
-is a comment.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>encoding</literal>: Returns the encoding of the strings.</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>data</literal>: Returns the character data of this node and all
-children, concatenated as one string. The encoding of the string is what
-the method <literal>encoding</literal> returns.
-- For data nodes, this method simply returns the represented characters.
-For elements, the meaning of the method has been extended such that it
-returns something useful, i.e. the effectively contained characters, without
-markup. (For <literal>T_pinstr</literal> and <literal>T_comment</literal>
-nodes, the method returns the empty string.)
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>position</literal>: If configured, this method returns the position of
-the element as triple (entity, line, byteposition). For data nodes, the
-position is not stored. If the position is not available the triple
-<literal>"?", 0, 0</literal> is returned.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>comment</literal>: Returns <literal>Some text</literal> for comment
-nodes, and <literal>None</literal> for other nodes. The <literal>text</literal>
-is everything between the comment delimiters <literal>&lt;--</literal> and
-<literal>--&gt;</literal>.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>pinstr n</literal>: Returns all processing instructions that are
-directly contained in this element and that have a <emphasis>target</emphasis>
-specification of <literal>n</literal>. The target is the first word after
-the <literal>&lt;?</literal>.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>pinstr_names</literal>: Returns the list of all targets of processing
-instructions directly contained in this element.</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>write s enc</literal>: Prints the node and all subnodes to the passed
-output stream as valid XML text, using the passed external encoding.
-</para>
-               </listitem>
-             </itemizedlist>
-            </para>
-         </formalpara>
-
-         <anchor id="type-node-atts">
-         <formalpara>
-           <title id="type-node-atts.title">
-              <link linkend="type-node-atts.sig">Attribute observers</link>
-            </title>
-           <para>
-             <itemizedlist mark="bullet" spacing="compact">
-               <listitem>
-                 <para>
-<literal>attribute n</literal>: Returns the value of the attribute with name
-<literal>n</literal>. This method returns a value for every declared 
-attribute, and it raises <literal>Not_found</literal> for any undeclared
-attribute. Note that it even returns a value if the attribute is actually
-missing but is declared as <literal>#IMPLIED</literal> or has a default
-value. - Possible values are:
-                  <itemizedlist mark="bullet" spacing="compact">
-                     <listitem>
-                       <para>
-<literal>Implied_value</literal>: The attribute has been declared with the
-keyword <literal>#IMPLIED</literal>, and the attribute is missing in the
-attribute list of this element.</para>
-                     </listitem>
-                     <listitem>
-                       <para>
-<literal>Value s</literal>: The attribute has been declared as type
-<literal>CDATA</literal>, as <literal>ID</literal>, as
-<literal>IDREF</literal>, as <literal>ENTITY</literal>, or as
-<literal>NMTOKEN</literal>, or as enumeration or notation, and one of the two
-conditions holds: (1) The attribute value is present in the attribute list in
-which case the value is returned in the string <literal>s</literal>. (2) The
-attribute has been omitted, and the DTD declared the attribute with a default
-value. The default value is returned in <literal>s</literal>. 
-- Summarized, <literal>Value s</literal> is returned for non-implied, non-list 
-attribute values.
-</para>
-                     </listitem>
-                     <listitem>
-                       <para>
-<literal>Valuelist l</literal>: The attribute has been declared as type
-<literal>IDREFS</literal>, as <literal>ENTITIES</literal>, or
-as <literal>NMTOKENS</literal>, and one of the two conditions holds: (1) The
-attribute value is present in the attribute list in which case the
-space-separated tokens of the value are returned in the string list
-<literal>l</literal>. (2) The attribute has been omitted, and the DTD declared
-the attribute with a default value. The default value is returned in
-<literal>l</literal>. 
-- Summarized, <literal>Valuelist l</literal> is returned for all list-type
-attribute values.
-</para>
-                     </listitem>
-                   </itemizedlist>
-
-Note that before the attribute value is returned, the value is normalized. This
-means that newlines are converted to spaces, and that references to character
-entities (i.e. <literal>&amp;#<replaceable>n</replaceable>;</literal>) and
-general entities
-(i.e. <literal>&amp;<replaceable>name</replaceable>;</literal>) are expanded;
-if necessary, expansion is performed recursively.
-</para>
-
-<para>
-In well-formedness mode, there is no DTD which could declare an
-attribute. Because of this, every occuring attribute is considered as a CDATA
-attribute.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>required_string_attribute n</literal>: returns the Value attribute
-called n, or the Valuelist attribute as a string where the list elements
-are separated by spaces. If the attribute value is implied, or if the
-attribute does not exists, the method will fail. - This method is convenient
-if you expect a non-implied and non-list attribute value.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>optional_string_attribute n</literal>: returns the Value attribute
-called n, or the Valuelist attribute as a string where the list elements
-are separated by spaces. If the attribute value is implied, or if the
-attribute does not exists, the method returns None. - This method is 
-convenient if you expect a non-list attribute value including the implied
-value.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>required_list_attribute n</literal>: returns the Valuelist attribute
-called n, or the Value attribute as a list with a single element.
-If the attribute value is implied, or if the
-attribute does not exists, the method will fail. - This method is 
-convenient if you expect a list attribute value.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>optional_list_attribute n</literal>: returns the Valuelist attribute
-called n, or the Value attribute as a list with a single element.
-If the attribute value is implied, or if the
-attribute does not exists, an empty list will be returned. - This method
-is convenient if you expect a list attribute value or the implied value.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>attribute_names</literal>: returns the list of all attribute names of
-this element. As this is a validating parser, this list is equal to the
-list of declared attributes.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>attribute_type n</literal>: returns the type of the attribute called
-<literal>n</literal>. See the module <literal>Pxp_types</literal> for a
-description of the encoding of the types.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>attributes</literal>: returns the list of pairs of names and values
-for all attributes of
-this element.</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>id_attribute_name</literal>: returns the name of the attribute that is
-declared with type ID. There is at most one such attribute. The method raises
-<literal>Not_found</literal> if there is no declared ID attribute for the
-element type.</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>id_attribute_value</literal>: returns the value of the attribute that
-is declared with type ID. There is at most one such attribute. The method raises
-<literal>Not_found</literal> if there is no declared ID attribute for the
-element type.</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>idref_attribute_names</literal>: returns the list of attribute names
-that are declared as IDREF or IDREFS.</para>
-               </listitem>
-             </itemizedlist>
-          </para>
-         </formalpara>
-         
-         <anchor id="type-node-mods">
-         <formalpara>
-           <title id="type-node-mods.title">
-              <link linkend="type-node-mods.sig">Modifying methods</link>
-            </title>
-           
-           <para>
-The following methods are only defined for element nodes (more exactly:
-the methods are defined for data nodes, too, but fail always).
-
-             <itemizedlist mark="bullet" spacing="compact">
-               <listitem>
-                 <para>
-<literal>add_node sn</literal>: Adds sub node <literal>sn</literal> to the list
-of children. This operation is illustrated in the picture 
-<link linkend="node-add" endterm="node-add"></link>. This method expects that
-<literal>sn</literal> is a root, and it requires that <literal>sn</literal> and
-the current object share the same DTD.
-</para>
-
-<para>Because <literal>add_node</literal> is the method the parser itself uses
-to add new nodes to the tree, it performs by default some simple validation
-checks: If the content model is a regular expression, it is not allowed to add
-data nodes to this node unless the new nodes consist only of whitespace. In
-this case, the new data nodes are silently dropped (you can change this by
-invoking <literal>keep_always_whitespace_mode</literal>).
-</para>
-
-<para>If the document is flagged as stand-alone, these data nodes only
-containing whitespace are even forbidden if the element declaration is
-contained in an external entity. This case is detected and rejected.</para>
-
-<para>If the content model is <literal>EMPTY</literal>, it is not allowed to
-add any data node unless the data node is empty. In this case, the new data
-node is silently dropped.
-</para>
-
-<para>These checks only apply if there is a DTD. In well-formedness mode, it is
-assumed that every element is declared with content model
-<literal>ANY</literal> which prohibits any validation check. Furthermore, you
-turn these checks off by passing <literal>~force:true</literal> as first
-argument.</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>add_pinstr pi</literal>: Adds the processing instruction
-<literal>pi</literal> to the list of processing instructions.
-</para>
-               </listitem>
-
-               <listitem>
-                 <para>
-<literal>delete</literal>: Deletes this node from the tree. After this
-operation, this node is no longer the child of the former father node; and the
-node loses the connection to the father as well. This operation is illustrated
-by the figure <link linkend="node-delete" endterm="node-delete"></link>.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>set_nodes nl</literal>: Sets the list of children to
-<literal>nl</literal>. It is required that every member of <literal>nl</literal>
-is a root, and that all members and the current object share the same DTD.
-Unlike <literal>add_node</literal>, no validation checks are performed.
-</para>
-             </listitem>
-             <listitem>
-                 <para>
-<literal>quick_set_attributes atts</literal>: sets the attributes of this
-element to <literal>atts</literal>. It is <emphasis>not</emphasis> checked
-whether <literal>atts</literal> matches the DTD or not; it is up to the
-caller of this method to ensure this. (This method may be useful to transform
-the attribute values, i.e. apply a mapping to every attribute.)
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>set_comment text</literal>: This method is only applicable to
-<literal>T_comment</literal> nodes; it sets the comment text contained by such
-nodes. </para>
-               </listitem>
-             </itemizedlist>
-</para>
-         </formalpara>
-         
-         <anchor id="type-node-cloning">
-         <formalpara>
-           <title id="type-node-cloning.title">
-              <link linkend="type-node-cloning.sig">Cloning methods</link>
-            </title>
-
-           <para>
-             <itemizedlist mark="bullet" spacing="compact">
-               <listitem>
-                 <para>
-<literal>orphaned_clone</literal>: Returns a clone of the node and the complete
-tree below this node (deep clone). The clone does not have a parent (i.e. the
-reference to the parent node is <emphasis>not</emphasis> cloned). While
-copying the subtree, strings are skipped; it is likely that the original tree
-and the copy tree share strings. Extension objects are cloned by invoking
-the <literal>clone</literal> method on the original objects; how much of
-the extension objects is cloned depends on the implemention of this method.
-</para>
-                 <para>This operation is illustrated by the figure 
-<link linkend="node-clone" endterm="node-clone"></link>.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>orphaned_flat_clone</literal>: Returns a clone of the node,
-but sets the list of sub nodes to [], i.e. the sub nodes are not cloned.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<anchor id="type-node-meth-create-element">
-<literal>create_element dtd nt al</literal>: Returns a flat copy of this node
-(which must be an element) with the following modifications: The DTD is set to
-<literal>dtd</literal>; the node type is set to <literal>nt</literal>, and the
-new attribute list is set to <literal>al</literal> (given as list of
-(name,value) pairs). The copy does not have children nor a parent. It does not
-contain processing instructions. See 
-<link linkend="type-node-ex-create-element">the example below</link>.
-</para>
-
-                 <para>Note that you can specify the position of the new node
-by the optional argument <literal>~position</literal>.</para>
-               </listitem>
-               <listitem>
-                 <para>
-<anchor id="type-node-meth-create-data">
-<literal>create_data dtd cdata</literal>: Returns a flat copy of this node
-(which must be a data node) with the following modifications: The DTD is set to
-<literal>dtd</literal>; the node type is set to <literal>T_data</literal>; the
-attribute list is empty (data nodes never have attributes); the list of
-children and PIs is empty, too (same reason). The new node does not have a
-parent. The value <literal>cdata</literal> is the new character content of the
-node. See 
-<link linkend="type-node-ex-create-data">the example below</link>.
-</para>
-               </listitem>
-               <listitem>
-                 <para>
-<literal>keep_always_whitespace_mode</literal>: Even data nodes which are
-normally dropped because they only contain ignorable whitespace, can added to
-this node once this mode is turned on. (This mode is useful to produce
-canonical XML.)
-</para>
-               </listitem>
-             </itemizedlist>
-</para>
-         </formalpara>
-         
-         <anchor id="type-node-weird">
-         <formalpara>
-           <title id="type-node-weird.title">
-              <link linkend="type-node-weird.sig">Validating methods</link>
-            </title>
-           <para>
-There is one method which locally validates the node, i.e. checks whether the
-subnodes match the content model of this node.
-
-             <itemizedlist mark="bullet" spacing="compact">
-               <listitem>
-                 <para>
-<literal>local_validate</literal>: Checks that this node conforms to the
-DTD by comparing the type of the subnodes with the content model for this
-node. (Applications need not call this method unless they add new nodes
-themselves to the tree.)
-</para>
-               </listitem>
-             </itemizedlist>
-</para>
-         </formalpara>
-       </sect2>
-
-       <sect2>
-         <title>The class <literal>element_impl</literal></title>
-         <para>
-This class is an implementation of <literal>node</literal> which
-realizes element nodes:
-
-<programlisting>
-<![CDATA[
-class [ 'ext ] element_impl : 'ext -> [ 'ext ] node
-]]>
-</programlisting>
-
-</para>
-         <formalpara>
-           <title>Constructor</title>
-           <para>
-You can create a new instance by
-
-<programlisting>
-new element_impl <replaceable>extension_object</replaceable>
-</programlisting>
-
-which creates a special form of empty element which already contains a
-reference to the <replaceable>extension_object</replaceable>, but is
-otherwise empty. This special form is called an
-<emphasis>exemplar</emphasis>. The purpose of exemplars is that they serve as
-patterns that can be duplicated and filled with data. The method
-<link linkend="type-node-meth-create-element">
-<literal>create_element</literal></link> is designed to perform this action.
-</para>
-         </formalpara>
-
-         <anchor id="type-node-ex-create-element">
-         <formalpara>
-           <title>Example</title>
-
-           <para>First, create an exemplar by
-
-<programlisting>
-let exemplar_ext = ... in
-let exemplar     = new element_impl exemplar_ext in
-</programlisting>
-
-The <literal>exemplar</literal> is not used in node trees, but only as
-a pattern when the element nodes are created:
-
-<programlisting>
-let element = exemplar # <link linkend="type-node-meth-create-element">create_element</link> dtd (T_element name) attlist 
-</programlisting>
-
-The <literal>element</literal> is a copy of <literal>exemplar</literal>
-(even the extension <literal>exemplar_ext</literal> has been copied)
-which ensures that <literal>element</literal> and its extension are objects
-of the same class as the exemplars; note that you need not to pass a 
-class name or other meta information. The copy is initially connected 
-with the <literal>dtd</literal>, it gets a node type, and the attribute list
-is filled. The <literal>element</literal> is now fully functional; it can
-be added to another element as child, and it can contain references to
-subnodes.
-</para>
-         </formalpara>
-
-       </sect2>
-
-       <sect2>
-         <title>The class <literal>data_impl</literal></title>
-         <para>
-This class is an implementation of <literal>node</literal> which
-should be used for all character data nodes:
-
-<programlisting>
-<![CDATA[
-class [ 'ext ] data_impl : 'ext -> [ 'ext ] node
-]]>
-</programlisting>
-
-</para>
-
-         <formalpara>
-           <title>Constructor</title>
-           <para>
-You can create a new instance by
-
-<programlisting>
-new data_impl <replaceable>extension_object</replaceable>
-</programlisting>
-
-which creates an empty exemplar node which is connected to
-<replaceable>extension_object</replaceable>. The node does not contain a
-reference to any DTD, and because of this it cannot be added to node trees.
-</para>
-         </formalpara>
-           
-         <para>To get a fully working data node, apply the method
-<link linkend="type-node-meth-create-data"><literal>create_data</literal>
-</link> to the exemplar (see example).
-</para>
-
-         <anchor id="type-node-ex-create-data">
-         <formalpara>
-           <title>Example</title>
-
-           <para>First, create an exemplar by
-
-<programlisting>
-let exemplar_ext = ... in
-let exemplar     = new exemplar_ext data_impl in
-</programlisting>
-
-The <literal>exemplar</literal> is not used in node trees, but only as
-a pattern when the data nodes are created:
-
-<programlisting>
-let data_node = exemplar # <link
-                                linkend="type-node-meth-create-data">create_data</link> dtd "The characters contained in the data node" 
-</programlisting>
-
-The <literal>data_node</literal> is a copy of <literal>exemplar</literal>.
-The copy is initially connected 
-with the <literal>dtd</literal>, and it is filled with character material.
-The <literal>data_node</literal> is now fully functional; it can
-be added to an element as child.
-</para>
-         </formalpara>
-       </sect2>
-
-       <sect2>
-         <title>The type <literal>spec</literal></title>
-         <para>
-The type <literal>spec</literal> defines a way to handle the details of
-creating nodes from exemplars.
-
-<programlisting><![CDATA[
-type 'ext spec
-constraint 'ext = 'ext node #extension
-
-val make_spec_from_mapping :
-      ?super_root_exemplar : 'ext node ->
-      ?comment_exemplar : 'ext node ->
-      ?default_pinstr_exemplar : 'ext node ->
-      ?pinstr_mapping : (string, 'ext node) Hashtbl.t ->
-      data_exemplar: 'ext node ->
-      default_element_exemplar: 'ext node ->
-      element_mapping: (string, 'ext node) Hashtbl.t -> 
-      unit -> 
-        'ext spec
-
-val make_spec_from_alist :
-      ?super_root_exemplar : 'ext node ->
-      ?comment_exemplar : 'ext node ->
-      ?default_pinstr_exemplar : 'ext node ->
-      ?pinstr_alist : (string * 'ext node) list ->
-      data_exemplar: 'ext node ->
-      default_element_exemplar: 'ext node ->
-      element_alist: (string * 'ext node) list -> 
-      unit -> 
-        'ext spec
-]]></programlisting>
-
-The two functions <literal>make_spec_from_mapping</literal> and
-<literal>make_spec_from_alist</literal> create <literal>spec</literal>
-values. Both functions are functionally equivalent and the only difference is
-that the first function prefers hashtables and the latter associative lists to
-describe mappings from names to exemplars.
-</para>
-
-<para>
-You can specify exemplars for the various kinds of nodes that need to be
-generated when an XML document is parsed:
-             
-<itemizedlist mark="bullet" spacing="compact">
-             <listitem>
-               <para><literal>~super_root_exemplar</literal>: This exemplar
-is used to create the super root. This special node is only created if the
-corresponding configuration option has been selected; it is the parent node of
-the root node which may be convenient if every working node must have a parent.</para>
-             </listitem>
-             <listitem>
-               <para><literal>~comment_exemplar</literal>: This exemplar is
-used when a comment node must be created. Note that such nodes are only created
-if the corresponding configuration option is "on".
-</para>
-             </listitem>
-             <listitem>
-               <para><literal>~default_pinstr_exemplar</literal>: If a node
-for a processing instruction must be created, and the instruction is not listed
-in the table passed by <literal>~pinstr_mapping</literal> or
-<literal>~pinstr_alist</literal>, this exemplar is used.
-Again the configuration option must be "on" in order to create such nodes at
-all. 
-</para>
-             </listitem>
-             <listitem>
-               <para><literal>~pinstr_mapping</literal> or
-<literal>~pinstr_alist</literal>: Map the target names of processing
-instructions to exemplars. These mappings are only used when nodes for
-processing instructions are created.</para>
-             </listitem>
-             <listitem>
-               <para><literal>~data_exemplar</literal>: The exemplar for
-ordinary data nodes.</para>
-             </listitem>
-             <listitem>
-               <para><literal>~default_element_exemplar</literal>: This
-exemplar is used if an element node must be created, but the element type
-cannot be found in the tables <literal>element_mapping</literal> or
-<literal>element_alist</literal>.</para>
-             </listitem>
-             <listitem>
-               <para><literal>~element_mapping</literal> or
-<literal>~element_alist</literal>: Map the element types to exemplars. These
-mappings are used to create element nodes.</para>
-             </listitem>
-           </itemizedlist>
-
-In most cases, you only want to create <literal>spec</literal> values to pass
-them to the parser functions found in <literal>Pxp_yacc</literal>. However, it
-might be useful to apply <literal>spec</literal> values directly.
-</para>
-
-<para>The following functions create various types of nodes by selecting the
-corresponding exemplar from the passed <literal>spec</literal> value, and by
-calling <literal>create_element</literal> or <literal>create_data</literal> on
-the exemplar.
-
-<programlisting><![CDATA[
-val create_data_node : 
-      'ext spec -> 
-      dtd -> 
-      (* data material: *) string -> 
-          'ext node
-
-val create_element_node : 
-      ?position:(string * int * int) ->
-      'ext spec -> 
-      dtd -> 
-      (* element type: *) string -> 
-      (* attributes: *) (string * string) list -> 
-          'ext node
-
-val create_super_root_node :
-      ?position:(string * int * int) ->
-      'ext spec -> 
-       dtd -> 
-           'ext node
-
-val create_comment_node :
-      ?position:(string * int * int) ->
-      'ext spec -> 
-      dtd -> 
-      (* comment text: *) string -> 
-          'ext node
-
-val create_pinstr_node :
-      ?position:(string * int * int) ->
-      'ext spec -> 
-      dtd -> 
-      proc_instruction -> 
-          'ext node
-]]></programlisting>
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Examples</title>
-
-         <formalpara>
-           <title>Building trees.</title>
-
-           <para>Here is the piece of code that creates the tree of
-the figure <link linkend="node-term" endterm="node-term"></link>. The extension
-object and the DTD are beyond the scope of this example.
-
-<programlisting>
-let exemplar_ext = ... (* some extension *) in
-let dtd = ... (* some DTD *) in
-
-let element_exemplar = new element_impl exemplar_ext in
-let data_exemplar    = new data_impl    exemplar_ext in
-
-let a1 = element_exemplar # create_element dtd (T_element "a") ["att", "apple"]
-and b1 = element_exemplar # create_element dtd (T_element "b") []
-and c1 = element_exemplar # create_element dtd (T_element "c") []
-and a2 = element_exemplar # create_element dtd (T_element "a") ["att", "orange"]
-in
-
-let cherries = data_exemplar # create_data dtd "Cherries" in
-let orange   = data_exemplar # create_data dtd "An orange" in
-
-a1 # add_node b1;
-a1 # add_node c1;
-b1 # add_node a2;
-b1 # add_node cherries;
-a2 # add_node orange;
-</programlisting>
-
-Alternatively, the last block of statements could also be written as:
-
-<programlisting>
-a1 # set_nodes [b1; c1];
-b1 # set_nodes [a2; cherries];
-a2 # set_nodes [orange];
-</programlisting>
-
-The root of the tree is <literal>a1</literal>, i.e. it is true that
-
-<programlisting>
-x # root == a1
-</programlisting>
-
-for every x from { <literal>a1</literal>, <literal>a2</literal>,
-<literal>b1</literal>, <literal>c1</literal>, <literal>cherries</literal>,
-<literal>orange</literal> }.
-</para>
-         </formalpara>
-         <para>
-Furthermore, the following properties hold:
-
-<programlisting>
-  a1 # attribute "att" = Value "apple"
-& a2 # attribute "att" = Value "orange"
-
-& cherries # data = "Cherries"
-&   orange # data = "An orange"
-&       a1 # data = "CherriesAn orange"
-
-&       a1 # node_type = T_element "a"
-&       a2 # node_type = T_element "a"
-&       b1 # node_type = T_element "b"
-&       c1 # node_type = T_element "c"
-& cherries # node_type = T_data
-&   orange # node_type = T_data
-
-&       a1 # sub_nodes = [ b1; c1 ]
-&       a2 # sub_nodes = [ orange ]
-&       b1 # sub_nodes = [ a2; cherries ]
-&       c1 # sub_nodes = []
-& cherries # sub_nodes = []
-&   orange # sub_nodes = []
-
-&       a2 # parent == a1
-&       b1 # parent == b1
-&       c1 # parent == a1
-& cherries # parent == b1
-&   orange # parent == a2
-</programlisting>
-</para>
-         <formalpara>
-           <title>Searching nodes.</title>
-
-           <para>The following function searches all nodes of a tree 
-for which a certain condition holds:
-
-<programlisting>
-let rec search p t =
-  if p t then
-    t :: search_list p (t # sub_nodes)
-  else
-    search_list p (t # sub_nodes)
-
-and search_list p l =
-  match l with
-    []      -&gt; []
-  | t :: l' -&gt; (search p t) @ (search_list p l')
-;;
-</programlisting>
-</para>
-         </formalpara>
-
-         <para>For example, if you want to search all elements of a certain
-type <literal>et</literal>, the function <literal>search</literal> can be
-applied as follows:
-
-<programlisting>
-let search_element_type et t =
-  search (fun x -&gt; x # node_type = T_element et) t
-;;
-</programlisting>
-</para>
-
-         <formalpara>
-           <title>Getting attribute values.</title>
-
-           <para>Suppose we have the declaration:
-
-<programlisting><![CDATA[
-<!ATTLIST e a CDATA #REQUIRED
-            b CDATA #IMPLIED
-            c CDATA "12345">]]>
-</programlisting>
-
-In this case, every element <literal>e</literal> must have an attribute 
-<literal>a</literal>, otherwise the parser would indicate an error. If
-the O'Caml variable <literal>n</literal> holds the node of the tree 
-corresponding to the element, you can get the value of the attribute
-<literal>a</literal> by
-
-<programlisting>
-let value_of_a = n # required_string_attribute "a"
-</programlisting>
-
-which is more or less an abbreviation for 
-
-<programlisting><![CDATA[
-let value_of_a = 
-  match n # attribute "a" with
-    Value s -> s
-  | _       -> assert false]]>
-</programlisting>
-
-- as the attribute is required, the <literal>attribute</literal> method always
-returns a <literal>Value</literal>.
-</para>
-         </formalpara>
-         
-         <para>In contrast to this, the attribute <literal>b</literal> can be
-omitted. In this case, the method <literal>required_string_attribute</literal>
-works only if the attribute is there, and the method will fail if the attribute
-is missing. To get the value, you can apply the method
-<literal>optional_string_attribute</literal>:
-
-<programlisting>
-let value_of_b = n # optional_string_attribute "b"
-</programlisting>
-
-Now, <literal>value_of_b</literal> is of type <literal>string option</literal>,
-and <literal>None</literal> represents the omitted attribute. Alternatively, 
-you could also use <literal>attribute</literal>:
-
-<programlisting><![CDATA[
-let value_of_b = 
-  match n # attribute "b" with
-    Value s       -> Some s
-  | Implied_value -> None
-  | _             -> assert false]]>
-</programlisting>
-</para>
-
-         <para>The attribute <literal>c</literal> behaves much like
-<literal>a</literal>, because it has always a value. If the attribute is
-omitted, the default, here "12345", will be returned instead. Because of this,
-you can again use <literal>required_string_attribute</literal> to get the
-value.
-</para>
-
-         <para>The type <literal>CDATA</literal> is the most general string
-type. The types <literal>NMTOKEN</literal>, <literal>ID</literal>,
-<literal>IDREF</literal>, <literal>ENTITY</literal>, and all enumerators and
-notations are special forms of string types that restrict the possible
-values. From O'Caml, they behave like <literal>CDATA</literal>, i.e. you can
-use the methods <literal>required_string_attribute</literal> and
-<literal>optional_string_attribute</literal>, too.
-</para>
-
-         <para>In contrast to this, the types <literal>NMTOKENS</literal>,
-<literal>IDREFS</literal>, and <literal>ENTITIES</literal> mean lists of
-strings. Suppose we have the declaration:
-
-<programlisting><![CDATA[
-<!ATTLIST f d NMTOKENS #REQUIRED
-            e NMTOKENS #IMPLIED>]]>
-</programlisting>
-
-The type <literal>NMTOKENS</literal> stands for lists of space-separated
-tokens; for example the value <literal>"1 abc 23ef"</literal> means the list
-<literal>["1"; "abc"; "23ef"]</literal>. (Again, <literal>IDREFS</literal>
-and <literal>ENTITIES</literal> have more restricted values.) To get the
-value of attribute <literal>d</literal>, one can use
-
-<programlisting>
-let value_of_d = n # required_list_attribute "d"
-</programlisting>
-
-or
-
-<programlisting><![CDATA[
-let value_of_d = 
-  match n # attribute "d" with
-    Valuelist l -> l
-  | _           -> assert false]]>
-</programlisting>
- 
-As <literal>d</literal> is required, the attribute cannot be omitted, and 
-the <literal>attribute</literal> method returns always a
-<literal>Valuelist</literal>. 
-</para>
-
-         <para>For optional attributes like <literal>e</literal>, apply
-
-<programlisting>
-let value_of_e = n # optional_list_attribute "e"
-</programlisting>
-
-or
-
-<programlisting><![CDATA[
-let value_of_e = 
-  match n # attribute "e" with
-    Valuelist l   -> l
-  | Implied_value -> []
-  | _             -> assert false]]>
-</programlisting>
-
-Here, the case that the attribute is missing counts like the empty list.
-</para>
-
-       </sect2>
-
-
-       <sect2>
-         <title>Iterators</title>
-
-         <para>There are also several iterators in Pxp_document; please see
-the mli file for details. You can find examples for them in the
-"simple_transformation" directory.
-
-<programlisting><![CDATA[
-val find : ?deeply:bool -> 
-           f:('ext node -> bool) -> 'ext node -> 'ext node
-
-val find_all : ?deeply:bool ->
-               f:('ext node -> bool) -> 'ext node -> 'ext node list
-
-val find_element : ?deeply:bool ->
-                   string -> 'ext node -> 'ext node
-
-val find_all_elements : ?deeply:bool ->
-                        string -> 'ext node -> 'ext node list
-
-exception Skip
-val map_tree :  pre:('exta node -> 'extb node) ->
-               ?post:('extb node -> 'extb node) ->
-               'exta node -> 
-                   'extb node
-
-
-val map_tree_sibl : 
-        pre: ('exta node option -> 'exta node -> 'exta node option -> 
-                  'extb node) ->
-       ?post:('extb node option -> 'extb node -> 'extb node option -> 
-                  'extb node) ->
-       'exta node -> 
-           'extb node
-
-val iter_tree : ?pre:('ext node -> unit) ->
-                ?post:('ext node -> unit) ->
-                'ext node -> 
-                    unit
-
-val iter_tree_sibl :
-       ?pre: ('ext node option -> 'ext node -> 'ext node option -> unit) ->
-       ?post:('ext node option -> 'ext node -> 'ext node option -> unit) ->
-       'ext node -> 
-           unit
-]]></programlisting>
-</para>
-       </sect2>
-
-      </sect1>
-
-<!-- ********************************************************************** -->
-
-      <sect1>
-       <title>The class type <literal>extension</literal></title>
-       <para>
-
-<programlisting>
-<![CDATA[
-class type [ 'node ] extension =
-  object ('self)
-    method clone : 'self
-      (* "clone" should return an exact deep copy of the object. *)
-    method node : 'node
-      (* "node" returns the corresponding node of this extension. This method
-       * intended to return exactly what previously has been set by "set_node".
-       *)
-    method set_node : 'node -> unit
-      (* "set_node" is invoked once the extension is associated to a new
-       * node object.
-       *)
-  end
-]]>
-</programlisting>
-
-This is the type of classes used for node extensions. For every node of the
-document tree, there is not only the <literal>node</literal> object, but also
-an <literal>extension</literal> object. The latter has minimal
-functionality; it has only the necessary methods to be attached to the node
-object containing the details of the node instance. The extension object is
-called extension because its purpose is extensibility.</para>
-
-       <para>For some reasons, it is impossible to derive the
-<literal>node</literal> classes (i.e. <literal>element_impl</literal> and
-<literal>data_impl</literal>) such that the subclasses can be extended by new
-new methods. But
-subclassing nodes is a great feature, because it allows the user to provide
-different classes for different types of nodes. The extension objects are a
-workaround that is as powerful as direct subclassing, the costs are
-some notation overhead.
-</para>
-
-<figure id="extension-general" float="1">
-<title>The structure of nodes and extensions</title>
-<graphic fileref="pic/extension_general" format="GIF">
-</graphic>
-</figure>
-
-       <para>The picture shows how the nodes and extensions are linked
-together. Every node has a reference to its extension, and every extension has
-a reference to its node. The methods <literal>extension</literal> and
-<literal>node</literal> follow these references; a typical phrase is 
-
-<programlisting>
-self # node # attribute "xy"
-</programlisting>
-
-to get the value of an attribute from a method defined in the extension object;
-or 
-
-<programlisting>
-self # node # iter
-  (fun n -&gt; n # extension # my_method ...)
-</programlisting>
-
-to iterate over the subnodes and to call <literal>my_method</literal> of the
-corresponding extension objects.
-</para>
-
-       <para>Note that extension objects do not have references to subnodes
-(or "subextensions") themselves; in order to get one of the children of an
-extension you must first go to the node object, then get the child node, and
-finally reach the extension that is logically the child of the extension you
-started with.</para>
-
-       <sect2>
-         <title>How to define an extension class</title>
-
-         <para>At minimum, you must define the methods
-<literal>clone</literal>, <literal>node</literal>, and
-<literal>set_node</literal> such that your class is compatible with the type
-<literal>extension</literal>. The method <literal>set_node</literal> is called
-during the initialization of the node, or after a node has been cloned; the
-node object invokes <literal>set_node</literal> on the extension object to tell
-it that this node is now the object the extension is linked to. The extension
-must return the node object passed as argument of <literal>set_node</literal>
-when the <literal>node</literal> method is called.</para>
-
-         <para>The <literal>clone</literal> method must return a copy of the
-extension object; at least the object itself must be duplicated, but if
-required, the copy should deeply duplicate all objects and values that are
-referred by the extension, too. Whether this is required, depends on the
-application; <literal>clone</literal> is invoked by the node object when one of
-its cloning methods is called.</para>
-
-         <para>A good starting point for an extension class:
-
-<programlisting>
-<![CDATA[class custom_extension =
-  object (self)
-
-    val mutable node = (None : custom_extension node option)
-
-    method clone = {< >} 
-
-    method node =
-      match node with
-          None ->
-            assert false
-        | Some n -> n
-
-    method set_node n =
-      node <- Some n
-
-  end
-]]>
-</programlisting>
-
-This class is compatible with <literal>extension</literal>. The purpose of
-defining such a class is, of course, adding further methods; and you can do it
-without restriction. 
-</para>
-
-         <para>Often, you want not only one extension class. In this case,
-it is the simplest way that all your classes (for one kind of document) have
-the same type (with respect to the interface; i.e. it does not matter if your
-classes differ in the defined private methods and instance variables, but
-public methods count). This approach avoids lots of coercions and problems with
-type incompatibilities. It is simple to implement:
-
-<programlisting>
-<![CDATA[class custom_extension =
-  object (self)
-    val mutable node = (None : custom_extension node option)
-
-    method clone = ...      (* see above *)
-    method node = ...       (* see above *)
-    method set_node n = ... (* see above *)
-
-    method virtual my_method1 : ...
-    method virtual my_method2 : ...
-    ... (* etc. *)
-  end
-
-class custom_extension_kind_A =
-  object (self)
-    inherit custom_extension
-
-    method my_method1 = ...
-    method my_method2 = ...
-  end
-
-class custom_extension_kind_B =
-  object (self)
-    inherit custom_extension
-
-    method my_method1 = ...
-    method my_method2 = ...
-  end
-]]>
-</programlisting>
-
-If a class does not need a method (e.g. because it does not make sense, or it
-would violate some important condition), it is possible to define the method
-and to always raise an exception when the method is invoked
-(e.g. <literal>assert false</literal>).
-</para>
-
-         <para>The latter is a strong recommendation: do not try to further
-specialize the types of extension objects. It is difficult, sometimes even
-impossible, and almost never worth-while.</para>
-       </sect2>
-
-       <sect2>
-         <title>How to bind extension classes to element types</title>
-
-         <para>Once you have defined your extension classes, you can bind them
-to element types. The simplest case is that you have only one class and that
-this class is to be always used. The parsing functions in the module
-<literal>Pxp_yacc</literal> take a <literal>spec</literal> argument which
-can be customized. If your single class has the name <literal>c</literal>,
-this argument should be 
-
-<programlisting>
-let spec =
-  make_spec_from_alist
-    ~data_exemplar:            (new data_impl c)
-    ~default_element_exemplar: (new element_impl c)
-    ~element_alist:            []
-    ()
-</programlisting>
-
-This means that data nodes will be created from the exemplar passed by
-~data_exemplar and that all element nodes will be made from the exemplar
-specified by ~default_element_exemplar. In ~element_alist, you can 
-pass that different exemplars are to be used for different element types; but
-this is an optional feature. If you do not need it, pass the empty list.
-</para>
-
-<para>
-Remember that an exemplar is a (node, extension) pair that serves as pattern
-when new nodes (and the corresponding extension objects) are added to the
-document tree. In this case, the exemplar contains <literal>c</literal> as
-extension, and when nodes are created, the exemplar is cloned, and cloning
-makes also a copy of <literal>c</literal> such that all nodes of the document
-tree will have a copy of <literal>c</literal> as extension.
-</para>
-
-         <para>The <literal>~element_alist</literal> argument can bind
-specific element types to specific exemplars; as exemplars may be instances of
-different classes it is effectively possible to bind element types to
-classes. For example, if the element type "p" is implemented by class "c_p",
-and "q" is realized by "c_q", you can pass the following value:
-
-<programlisting>
-let spec =
-  make_spec_from_alist
-    ~data_exemplar:            (new data_impl c)
-    ~default_element_exemplar: (new element_impl c)
-    ~element_alist:            
-      [ "p", new element_impl c_p;
-        "q", new element_impl c_q;
-      ]
-    ()
-</programlisting>
-
-The extension object <literal>c</literal> is still used for all data nodes and
-for all other element types.
-</para>
-
-       </sect2>
-
-      </sect1>
-
-<!-- ********************************************************************** -->
-
-      <sect1>
-       <title>Details of the mapping from XML text to the tree representation
-</title>
-
-       <sect2>
-         <title>The representation of character-free elements</title>
-
-         <para>If an element declaration does not allow the element to 
-contain character data, the following rules apply.</para>
-
-         <para>If the element must be empty, i.e. it is declared with the
-keyword <literal>EMPTY</literal>, the element instance must be effectively
-empty (it must not even contain whitespace characters). The parser guarantees
-that a declared <literal>EMPTY</literal> element does never contain a data
-node, even if the data node represents the empty string.</para>
-
-         <para>If the element declaration only permits other elements to occur
-within that element but not character data, it is still possible to insert
-whitespace characters between the subelements. The parser ignores these
-characters, too, and does not create data nodes for them.</para>
-
-         <formalpara>
-           <title>Example.</title>
-
-           <para>Consider the following element types:
-
-<programlisting><![CDATA[
-<!ELEMENT x ( #PCDATA | z )* >
-<!ELEMENT y ( z )* >
-<!ELEMENT z EMPTY>
-]]></programlisting>
-
-Only <literal>x</literal> may contain character data, the keyword
-<literal>#PCDATA</literal> indicates this. The other types are character-free. 
-</para>
-         </formalpara>
-
-         <para>The XML term
-
-<programlisting><![CDATA[
-<x><z/> <z/></x>
-]]></programlisting>
-
-will be internally represented by an element node for <literal>x</literal> 
-with three subnodes: the first <literal>z</literal> element, a data node
-containing the space character, and the second <literal>z</literal> element. 
-In contrast to this, the term
-
-<programlisting><![CDATA[
-<y><z/> <z/></y>
-]]></programlisting>
-
-is represented by an  element node for <literal>y</literal> with only
-<emphasis>two</emphasis> subnodes, the two <literal>z</literal> elements. There
-is no data node for the space character because spaces are ignored in the
-character-free element <literal>y</literal>.
-</para>
-
-       </sect2>
-
-       <sect2>
-         <title>The representation of character data</title>
-
-         <para>The XML specification allows all Unicode characters in XML
-texts. This parser can be configured such that UTF-8 is used to represent the
-characters internally; however, the default character encoding is
-ISO-8859-1. (Currently, no other encodings are possible for the internal string
-representation; the type <literal>Pxp_types.rep_encoding</literal> enumerates
-the possible encodings. Principially, the parser could use any encoding that is
-ASCII-compatible, but there are currently only lexical analyzers for UTF-8 and
-ISO-8859-1. It is currently impossible to use UTF-16 or UCS-4 as internal
-encodings (or other multibyte encodings which are not ASCII-compatible) unless
-major parts of the parser are rewritten - unlikely...)
-</para>
-
-<para>
-The internal encoding may be different from the external encoding (specified
-in the XML declaration <literal>&lt;?xml ... encoding="..."?&gt;</literal>); in
-this case the strings are automatically converted to the internal encoding.
-</para>
-
-<para>
-If the internal encoding is ISO-8859-1, it is possible that there are
-characters that cannot be represented. In this case, the parser ignores such
-characters and prints a warning (to the <literal>collect_warning</literal>
-object that must be passed when the parser is called).
-</para>
-
-         <para>The XML specification allows lines to be separated by single LF
-characters, by CR LF character sequences, or by single CR
-characters. Internally, these separators are always converted to single LF
-characters.</para>
-
-         <para>The parser guarantees that there are never two adjacent data
-nodes; if necessary, data material that would otherwise be represented by
-several nodes is collapsed into one node. Note that you can still create node
-trees with adjacent data nodes; however, the parser does not return such trees.
-</para>
-
-         <para>Note that CDATA sections are not represented specially; such
-sections are added to the current data material that being collected for the
-next data node.</para>
-       </sect2>
-
-
-       <sect2>
-         <title>The representation of entities within documents</title>
-
-         <para><emphasis>Entities are not represented within
-documents!</emphasis> If the parser finds an entity reference in the document
-content, the reference is immediately expanded, and the parser reads the
-expansion text instead of the reference.
-</para>
-       </sect2>
-
-       <sect2>
-         <title>The representation of attributes</title> <para>As attribute
-values are composed of Unicode characters, too, the same problems with the
-character encoding arise as for character material. Attribute values are
-converted to the internal encoding, too; and if there are characters that
-cannot be represented, these are dropped, and a warning is printed.</para>
-
-         <para>Attribute values are normalized before they are returned by
-methods like <literal>attribute</literal>. First, any remaining entity
-references are expanded; if necessary, expansion is performed recursively.
-Second, newline characters (any of LF, CR LF, or CR characters) are converted
-to single space characters. Note that especially the latter action is
-prescribed by the XML standard (but <literal>&#10;</literal> is not converted
-such that it is still possible to include line feeds into attributes).
-</para>
-       </sect2>
-
-       <sect2>
-         <title>The representation of processing instructions</title>
-<para>Processing instructions are parsed to some extent: The first word of the
-PI is called the target, and it is stored separated from the rest of the PI:
-
-<programlisting><![CDATA[
-<?target rest?>
-]]></programlisting>
-
-The exact location where a PI occurs is not represented (by default). The
-parser puts the PI into the object that represents the embracing construct (an
-element, a DTD, or the whole document); that means you can find out which PIs
-occur in a certain element, in the DTD, or in the whole document, but you
-cannot lookup the exact position within the construct.
-</para>
-
-         <para>If you require the exact location of PIs, it is possible to
-create extra nodes for them. This mode is controled by the option
-<literal>enable_pinstr_nodes</literal>. The additional nodes have the node type
-<literal>T_pinstr <replaceable>target</replaceable></literal>, and are created
-from special exemplars contained in the <literal>spec</literal> (see
-pxp_document.mli).</para>
-       </sect2>
-
-       <sect2>
-         <title>The representation of comments</title> 
-
-<para>Normally, comments are not represented; they are dropped by
-default. However, if you require them, it is possible to create
-<literal>T_comment</literal> nodes for them. This mode can be specified by the
-option <literal>enable_comment_nodes</literal>. Comment nodes are created from
-special exemplars contained in the <literal>spec</literal> (see
-pxp_document.mli). You can access the contents of comments through the 
-method <literal>comment</literal>.</para>
-       </sect2>
-
-       <sect2>
-         <title>The attributes <literal>xml:lang</literal> and
-<literal>xml:space</literal></title>
-
-         <para>These attributes are not supported specially; they are handled
-like any other attribute.</para>
-       </sect2>
-
-
-       <sect2>
-         <title>And what about namespaces?</title>
-         <para>Currently, there is no special support for namespaces.
-However, the parser allows it that the colon occurs in names such that it is
-possible to implement namespaces on top of the current API.</para>
-
-         <para>Some future release of PXP will support namespaces as built-in
-feature...</para>
-       </sect2>
-
-      </sect1>
-
-    </chapter>
-
-<!-- ********************************************************************** -->
-
-    <chapter>
-      <title>Configuring and calling the parser</title>
-
-<!--
-      <para>
-<emphasis>
-Sorry, this chapter has not yet been written. For an introduction into parser
-configuration, see the previous chapters. As a first approximation, the
-interface definition of Markup_yacc outlines what could go here.
-</emphasis>
-</para>
--->
-
-<!--
-      <para>
-<programlisting>&markup-yacc.mli;</programlisting>
-</para>
--->
-
-      <sect1>
-       <title>Overview</title>
-       <para>
-There are the following main functions invoking the parser (in Pxp_yacc):
-
-          <itemizedlist mark="bullet" spacing="compact">
-           <listitem>
-             <para><emphasis>parse_document_entity:</emphasis> You want to
-parse a complete and closed document consisting of a DTD and the document body;
-the body is validated against the DTD. This mode is interesting if you have a
-file
-
-<programlisting><![CDATA[
-<!DOCTYPE root ... [ ... ] > <root> ... </root>
-]]></programlisting>
-
-and you can accept any DTD that is included in the file (e.g. because the file
-is under your control).
-</para>
-           </listitem>
-           <listitem>
-             <para><emphasis>parse_wfdocument_entity:</emphasis> You want to
-parse a complete and closed document consisting of a DTD and the document body;
-but the body is not validated, only checked for well-formedness. This mode is
-preferred if validation costs too much time or if the DTD is missing.
-</para>
-           </listitem>
-           <listitem>
-             <para><emphasis>parse_dtd_entity:</emphasis> You want only to
-parse an entity (file) containing the external subset of a DTD. Sometimes it is
-interesting to read such a DTD, for example to compare it with the DTD included
-in a document, or to apply the next mode:
-</para>
-           </listitem>
-           <listitem>
-             <para><emphasis>parse_content_entity:</emphasis> You want only to
-parse an entity (file) containing a fragment of a document body; this fragment
-is validated against the DTD you pass to the function. Especially, the fragment
-must not have a <literal> &lt;!DOCTYPE&gt;</literal> clause, and must directly
-begin with an element.  The element is validated against the DTD.  This mode is
-interesting if you want to check documents against a fixed, immutable DTD.
-</para>
-           </listitem>
-           <listitem>
-             <para><emphasis>parse_wfcontent_entity:</emphasis> This function
-also parses a single element without DTD, but does not validate it.</para>
-           </listitem>
-           <listitem>
-             <para><emphasis>extract_dtd_from_document_entity:</emphasis> This
-function extracts the DTD from a closed document consisting of a DTD and a
-document body. Both the internal and the external subsets are extracted.</para>
-           </listitem>
-         </itemizedlist>
-</para>
-
-<para>
-In many cases, <literal>parse_document_entity</literal> is the preferred mode
-to parse a document in a validating way, and
-<literal>parse_wfdocument_entity</literal> is the mode of choice to parse a
-file while only checking for well-formedness.
-</para>
-
-<para>
-There are a number of variations of these modes. One important application of a
-parser is to check documents of an untrusted source against a fixed DTD. One
-solution is to not allow the <literal>&lt;!DOCTYPE&gt;</literal> clause in
-these documents, and treat the document like a fragment (using mode
-<emphasis>parse_content_entity</emphasis>). This is very simple, but
-inflexible; users of such a system cannot even define additional entities to
-abbreviate frequent phrases of their text.
-</para>
-
-<para>
-It may be necessary to have a more intelligent checker. For example, it is also
-possible to parse the document to check fully, i.e. with DTD, and to compare
-this DTD with the prescribed one. In order to fully parse the document, mode
-<emphasis>parse_document_entity</emphasis> is applied, and to get the DTD to
-compare with mode <emphasis>parse_dtd_entity</emphasis> can be used.
-</para>
-
-<para>
-There is another very important configurable aspect of the parser: the
-so-called resolver. The task of the resolver is to locate the contents of an
-(external) entity for a given entity name, and to make the contents accessible
-as a character stream. (Furthermore, it also normalizes the character set;
-but this is a detail we can ignore here.) Consider you have a file called
-<literal>"main.xml"</literal> containing 
-
-<programlisting><![CDATA[
-<!ENTITY % sub SYSTEM "sub/sub.xml">
-%sub;
-]]></programlisting>
-
-and a file stored in the subdirectory <literal>"sub"</literal> with name
-<literal>"sub.xml"</literal> containing
-
-<programlisting><![CDATA[
-<!ENTITY % subsub SYSTEM "subsub/subsub.xml">
-%subsub;
-]]></programlisting>
-
-and a file stored in the subdirectory <literal>"subsub"</literal> of
-<literal>"sub"</literal> with name <literal>"subsub.xml"</literal> (the
-contents of this file do not matter). Here, the resolver must track that
-the second entity <literal>subsub</literal> is located in the directory
-<literal>"sub/subsub"</literal>, i.e. the difficulty is to interpret the
-system (file) names of entities relative to the entities containing them,
-even if the entities are deeply nested.
-</para>
-
-<para>
-There is not a fixed resolver already doing everything right - resolving entity
-names is a task that highly depends on the environment. The XML specification
-only demands that <literal>SYSTEM</literal> entities are interpreted like URLs
-(which is not very precise, as there are lots of URL schemes in use), hoping
-that this helps overcoming the local peculiarities of the environment; the idea
-is that if you do not know your environment you can refer to other entities by
-denoting URLs for them. I think that this interpretation of
-<literal>SYSTEM</literal> names may have some applications in the internet, but
-it is not the first choice in general. Because of this, the resolver is a
-separate module of the parser that can be exchanged by another one if
-necessary; more precisely, the parser already defines several resolvers.
-</para>
-
-<para>
-The following resolvers do already exist:
-
-          <itemizedlist mark="bullet" spacing="compact">
-           <listitem>
-             <para>Resolvers reading from arbitrary input channels. These
-can be configured such that a certain ID is associated with the channel; in
-this case inner references to external entities can be resolved. There is also
-a special resolver that interprets SYSTEM IDs as URLs; this resolver can
-process relative SYSTEM names and determine the corresponding absolute URL.
-</para>
-           </listitem>
-           <listitem>
-             <para>A resolver that reads always from a given O'Caml
-string. This resolver is not able to resolve further names unless the string is
-not associated with any name, i.e. if the document contained in the string
-refers to an external entity, this reference cannot be followed in this
-case.</para>
-           </listitem>
-           <listitem>
-             <para>A resolver for file names. The <literal>SYSTEM</literal>
-name is interpreted as file URL with the slash "/" as separator for
-directories. - This resolver is derived from the generic URL resolver.</para>
-           </listitem>
-         </itemizedlist>
-
-The interface a resolver must have is documented, so it is possible to write
-your own resolver. For example, you could connect the parser with an HTTP
-client, and resolve URLs of the HTTP namespace. The resolver classes support
-that several independent resolvers are combined to one more powerful resolver;
-thus it is possible to combine a self-written resolver with the already
-existing resolvers.
-</para>
-
-<para>
-Note that the existing resolvers only interpret <literal>SYSTEM</literal>
-names, not <literal>PUBLIC</literal> names. If it helps you, it is possible to
-define resolvers for <literal>PUBLIC</literal> names, too; for example, such a
-resolver could look up the public name in a hash table, and map it to a system
-name which is passed over to the existing resolver for system names. It is
-relatively simple to provide such a resolver.
-</para>
-
-
-      </sect1>
-
-      <sect1>
-       <title>Resolvers and sources</title>
-       
-       <sect2>
-         <title>Using the built-in resolvers (called sources)</title>
-
-         <para>The type <literal>source</literal> enumerates the two
-possibilities where the document to parse comes from.
-
-<programlisting>
-type source =
-    Entity of ((dtd -&gt; Pxp_entity.entity) * Pxp_reader.resolver)
-  | ExtID of (ext_id * Pxp_reader.resolver)
-</programlisting>
-
-You normally need not to worry about this type as there are convenience
-functions that create <literal>source</literal> values:
-
-
-            <itemizedlist mark="bullet" spacing="compact">
-             <listitem>
-               <para><literal>from_file s</literal>: The document is read from
-file <literal>s</literal>; you may specify absolute or relative path names.
-The file name must be encoded as UTF-8 string.
-</para>
-
-<para>There is an optional argument <literal>~system_encoding</literal>
-specifying the character encoding which is used for the names of the file
-system. For example, if this encoding is ISO-8859-1 and <literal>s</literal> is
-also a ISO-8859-1 string, you can form the source:
-
-<programlisting><![CDATA[
-let s_utf8  =  recode_string ~in_enc:`Enc_iso88591 ~out_enc:`Enc_utf8 s in
-from_file ~system_encoding:`Enc_iso88591 s_utf8
-]]></programlisting>
-</para>
-
-<para>
-This <literal>source</literal> has the advantage that
-it is able to resolve inner external entities; i.e. if your document includes
-data from another file (using the <literal>SYSTEM</literal> attribute), this
-mode will find that file. However, this mode cannot resolve
-<literal>PUBLIC</literal> identifiers nor <literal>SYSTEM</literal> identifiers
-other than "file:".
-</para>
-             </listitem>
-             <listitem>
-               <para><literal>from_channel ch</literal>: The document is read
-from the channel <literal>ch</literal>. In general, this source also supports
-file URLs found in the document; however, by default only absolute URLs are
-understood. It is possible to associate an ID with the channel such that the
-resolver knows how to interpret relative URLs:
-
-<programlisting>
-from_channel ~id:(System "file:///dir/dir1/") ch
-</programlisting>
-
-There is also the ~system_encoding argument specifying how file names are
-encoded. - The example from above can also be written (but it is no
-longer possible to interpret relative URLs because there is no ~id argument,
-and computing this argument is relatively complicated because it must
-be a valid URL):
-
-<programlisting>
-let ch = open_in s in
-let src = from_channel ~system_encoding:`Enc_iso88591 ch in
-...;
-close_in ch
-</programlisting>
-</para>
-             </listitem>
-             <listitem>
-               <para><literal>from_string s</literal>: The string
-<literal>s</literal> is the document to parse. This mode is not able to
-interpret file names of <literal>SYSTEM</literal> clauses, nor it can look up
-<literal>PUBLIC</literal> identifiers. </para> 
-
-               <para>Normally, the encoding of the string is detected as usual
-by analyzing the XML declaration, if any. However, it is also possible to
-specify the encoding directly:
-
-<programlisting>
-let src = from_string ~fixenc:`ISO-8859-2 s
-</programlisting>
-</para>
-             </listitem>
-             <listitem>
-               <para><literal>ExtID (id, r)</literal>: The document to parse
-is denoted by the identifier <literal>id</literal> (either a
-<literal>SYSTEM</literal> or <literal>PUBLIC</literal> clause), and this
-identifier is interpreted by the resolver <literal>r</literal>. Use this mode
-if you have written your own resolver.</para>
-               <para>Which character sets are possible depends on the passed
-resolver <literal>r</literal>.</para>
-             </listitem>
-             <listitem>
-               <para><literal>Entity (get_entity, r)</literal>: The document
-to parse is returned by the function invocation <literal>get_entity
-dtd</literal>, where <literal>dtd</literal> is the DTD object to use (it may be
-empty). Inner external references occuring in this entity are resolved using
-the resolver <literal>r</literal>.</para>
-               <para>Which character sets are possible depends on the passed
-resolver <literal>r</literal>.</para>
-             </listitem>
-           </itemizedlist></para>
-       </sect2>
-
-
-       <sect2>
-         <title>The resolver API</title>
-
-         <para>A resolver is an object that can be opened like a file, but you
-do not pass the file name to the resolver, but the XML identifier of the entity
-to read from (either a <literal>SYSTEM</literal> or <literal>PUBLIC</literal>
-clause). When opened, the resolver must return the
-<literal>Lexing.lexbuf</literal> that reads the characters.  The resolver can
-be closed, and it can be cloned. Furthermore, it is possible to tell the
-resolver which character set it should assume. - The following from Pxp_reader:
-
-<programlisting><![CDATA[
-exception Not_competent
-exception Not_resolvable of exn
-
-class type resolver =
-  object
-    method init_rep_encoding : rep_encoding -> unit
-    method init_warner : collect_warnings -> unit
-    method rep_encoding : rep_encoding
-    method open_in : ext_id -> Lexing.lexbuf
-    method close_in : unit
-    method change_encoding : string -> unit
-    method clone : resolver
-    method close_all : unit
-  end
-]]></programlisting>
-
-The resolver object must work as follows:</para>
-
-<para>
-            <itemizedlist mark="bullet" spacing="compact">
-             <listitem>
-               <para>When the parser is called, it tells the resolver the
-warner object and the internal encoding by invoking
-<literal>init_warner</literal> and <literal>init_rep_encoding</literal>. The
-resolver should store these values. The method <literal>rep_encoding</literal>
-should return the internal encoding.
-</para>
-             </listitem>
-             <listitem>
-               <para>If the parser wants to read from the resolver, it invokes
-the method <literal>open_in</literal>. Either the resolver succeeds, in which
-case the <literal>Lexing.lexbuf</literal> reading from the file or stream must
-be returned, or opening fails. In the latter case the method implementation
-should raise an exception (see below).</para>
-             </listitem>
-             <listitem>
-               <para>If the parser finishes reading, it calls the
-<literal>close_in</literal> method.</para>
-             </listitem>
-             <listitem>
-               <para>If the parser finds a reference to another external
-entity in the input stream, it calls <literal>clone</literal> to get a second
-resolver which must be initially closed (not yet connected with an input
-stream).  The parser then invokes <literal>open_in</literal> and the other
-methods as described.</para>
-             </listitem>
-             <listitem>
-               <para>If you already know the character set of the input
-stream, you should recode it to the internal encoding, and define the method
-<literal>change_encoding</literal> as an empty method.</para>
-             </listitem>
-             <listitem>
-               <para>If you want to support multiple external character sets,
-the object must follow a much more complicated protocol. Directly after
-<literal>open_in</literal> has been called, the resolver must return a lexical
-buffer that only reads one byte at a time. This is only possible if you create
-the lexical buffer with <literal>Lexing.from_function</literal>; the function
-must then always return 1 if the EOF is not yet reached, and 0 if EOF is
-reached. If the parser has read the first line of the document, it will invoke
-<literal>change_encoding</literal> to tell the resolver which character set to
-assume. From this moment, the object can return more than one byte at once. The
-argument of <literal>change_encoding</literal> is either the parameter of the
-"encoding" attribute of the XML declaration, or the empty string if there is
-not any XML declaration or if the declaration does not contain an encoding
-attribute. </para>
-
-               <para>At the beginning the resolver must only return one
-character every time something is read from the lexical buffer. The reason for
-this is that you otherwise would not exactly know at which position in the
-input stream the character set changes.</para>
-
-               <para>If you want automatic recognition of the character set,
-it is up to the resolver object to implement this.</para>
-             </listitem>
-
-             <listitem><para>If an error occurs, the parser calls the method
-<literal>close_all</literal> for the top-level resolver; this method should
-close itself (if not already done) and all clones.</para>
-             </listitem>
-           </itemizedlist>
-</para>
-         <formalpara><title>Exceptions</title>
-           <para>
-It is possible to chain resolvers such that when the first resolver is not able
-to open the entity, the other resolvers of the chain are tried in turn. The
-method <literal>open_in</literal> should raise the exception
-<literal>Not_competent</literal> to indicate that the next resolver should try
-to open the entity. If the resolver is able to handle the ID, but some other
-error occurs, the exception <literal>Not_resolvable</literal> should be raised
-to force that the chain breaks.
-         </para>
-         </formalpara>
-
-       <para>Example: How to define a resolver that is equivalent to
-from_string: ...</para>
-
-       </sect2>
-       
-       <sect2>
-         <title>Predefined resolver components</title>
-         <para>
-There are some classes in Pxp_reader that define common resolver behaviour.
-
-<programlisting><![CDATA[
-class resolve_read_this_channel : 
-    ?id:ext_id -> 
-    ?fixenc:encoding -> 
-    ?auto_close:bool -> 
-    in_channel -> 
-        resolver
-]]></programlisting>
-
-Reads from the passed channel (it may be even a pipe). If the
-<literal>~id</literal> argument is passed to the object, the created resolver
-accepts only this ID. Otherwise all IDs are accepted.  - Once the resolver has
-been cloned, it does not accept any ID. This means that this resolver cannot
-handle inner references to external entities. Note that you can combine this
-resolver with another resolver that can handle inner references (such as
-resolve_as_file); see class 'combine' below.  - If you pass the
-<literal>~fixenc</literal> argument, the encoding of the channel is set to the
-passed value, regardless of any auto-recognition or any XML declaration. - If
-<literal>~auto_close = true</literal> (which is the default), the channel is
-closed after use. If <literal>~auto_close = false</literal>, the channel is
-left open.
- </para>
-
-         <para>
-<programlisting><![CDATA[
-class resolve_read_any_channel : 
-    ?auto_close:bool -> 
-    channel_of_id:(ext_id -> (in_channel * encoding option)) -> 
-        resolver
-]]></programlisting>
-
-This resolver calls the function <literal>~channel_of_id</literal> to open a
-new channel for the passed <literal>ext_id</literal>. This function must either
-return the channel and the encoding, or it must fail with Not_competent.  The
-function must return <literal>None</literal> as encoding if the default
-mechanism to recognize the encoding should be used. It must return
-<literal>Some e</literal> if it is already known that the encoding of the
-channel is <literal>e</literal>.  If <literal>~auto_close = true</literal>
-(which is the default), the channel is closed after use. If
-<literal>~auto_close = false</literal>, the channel is left open.
-</para>
-
-         <para>
-<programlisting><![CDATA[
-class resolve_read_url_channel :
-    ?base_url:Neturl.url ->
-    ?auto_close:bool -> 
-    url_of_id:(ext_id -> Neturl.url) -> 
-    channel_of_url:(Neturl.url -> (in_channel * encoding option)) -> 
-        resolver
-]]></programlisting>
-
-When this resolver gets an ID to read from, it calls the function
-<literal>~url_of_id</literal> to get the corresponding URL. This URL may be a
-relative URL; however, a URL scheme must be used which contains a path.  The
-resolver converts the URL to an absolute URL if necessary.  The second
-function, <literal>~channel_of_url</literal>, is fed with the absolute URL as
-input. This function opens the resource to read from, and returns the channel
-and the encoding of the resource.
-</para>
-<para>
-Both functions, <literal>~url_of_id</literal> and
-<literal>~channel_of_url</literal>, can raise Not_competent to indicate that
-the object is not able to read from the specified resource. However, there is a
-difference: A Not_competent from <literal>~url_of_id</literal> is left as it
-is, but a Not_competent from <literal>~channel_of_url</literal> is converted to
-Not_resolvable. So only <literal>~url_of_id</literal> decides which URLs are
-accepted by the resolver and which not.
-</para>
-<para>
-The function <literal>~channel_of_url</literal> must return
-<literal>None</literal> as encoding if the default mechanism to recognize the
-encoding should be used. It must return <literal>Some e</literal> if it is
-already known that the encoding of the channel is <literal>e</literal>.
-</para>
-<para>
-If <literal>~auto_close = true</literal> (which is the default), the channel is
-closed after use. If <literal>~auto_close = false</literal>, the channel is
-left open.
-</para>
-<para>
-Objects of this class contain a base URL relative to which relative URLs are
-interpreted. When creating a new object, you can specify the base URL by
-passing it as <literal>~base_url</literal> argument. When an existing object is
-cloned, the base URL of the clone is the URL of the original object. - Note
-that the term "base URL" has a strict definition in RFC 1808.
-</para>
-
-         <para>
-<programlisting><![CDATA[
-class resolve_read_this_string : 
-    ?id:ext_id -> 
-    ?fixenc:encoding -> 
-    string -> 
-        resolver
-]]></programlisting>
-
-Reads from the passed string. If the <literal>~id</literal> argument is passed
-to the object, the created resolver accepts only this ID. Otherwise all IDs are
-accepted. - Once the resolver has been cloned, it does not accept any ID. This
-means that this resolver cannot handle inner references to external
-entities. Note that you can combine this resolver with another resolver that
-can handle inner references (such as resolve_as_file); see class 'combine'
-below. - If you pass the <literal>~fixenc</literal> argument, the encoding of
-the string is set to the passed value, regardless of any auto-recognition or
-any XML declaration.
-</para>
-
-         <para>
-<programlisting><![CDATA[
-class resolve_read_any_string : 
-    string_of_id:(ext_id -> (string * encoding option)) -> 
-        resolver
-]]></programlisting>
-
-This resolver calls the function <literal>~string_of_id</literal> to get the
-string for the passed <literal>ext_id</literal>. This function must either
-return the string and the encoding, or it must fail with Not_competent.  The
-function must return <literal>None</literal> as encoding if the default
-mechanism to recognize the encoding should be used. It must return
-<literal>Some e</literal> if it is already known that the encoding of the
-string is <literal>e</literal>.
-</para>
-
-         <para>
-<programlisting><![CDATA[
-class resolve_as_file :
-    ?file_prefix:[ `Not_recognized | `Allowed | `Required ] ->
-    ?host_prefix:[ `Not_recognized | `Allowed | `Required ] ->
-    ?system_encoding:encoding ->
-    ?url_of_id:(ext_id -> Neturl.url) -> 
-    ?channel_of_url: (Neturl.url -> (in_channel * encoding option)) ->
-    unit -> 
-        resolver
-]]></programlisting>
-Reads from the local file system. Every file name is interpreted as
-file name of the local file system, and the referred file is read.
-</para>
-<para>
-The full form of a file URL is: file://host/path, where
-'host' specifies the host system where the file identified 'path'
-resides. host = "" or host = "localhost" are accepted; other values
-will raise Not_competent. The standard for file URLs is 
-defined in RFC 1738.
-</para>
-<para>
-Option <literal>~file_prefix</literal>: Specifies how the "file:" prefix of
-file names is handled:
-            <itemizedlist mark="bullet" spacing="compact">
-             <listitem>
-               <para><literal>`Not_recognized:</literal>The prefix is not
-recognized.</para>
-             </listitem>
-             <listitem>
-               <para><literal>`Allowed:</literal> The prefix is allowed but
-not required (the default).</para>
-             </listitem>
-             <listitem>
-               <para><literal>`Required:</literal> The prefix is
-required.</para>
-             </listitem>
-           </itemizedlist>
-</para>
-<para>
-Option <literal>~host_prefix:</literal> Specifies how the "//host" phrase of
-file names is handled:
-            <itemizedlist mark="bullet" spacing="compact">
-             <listitem>
-               <para><literal>`Not_recognized:</literal>The prefix is not
-recognized.</para>
-             </listitem>
-             <listitem>
-               <para><literal>`Allowed:</literal> The prefix is allowed but
-not required (the default).</para>
-             </listitem>
-             <listitem>
-               <para><literal>`Required:</literal> The prefix is
-required.</para>
-             </listitem>
-           </itemizedlist>
-</para>
-<para>
-Option <literal>~system_encoding:</literal> Specifies the encoding of file
-names of the local file system. Default: UTF-8.
-</para>
-<para>
-Options <literal>~url_of_id</literal>, <literal>~channel_of_url</literal>: Not
-for the casual user!
-</para>
-
-         <para>
-<programlisting><![CDATA[
-class combine : 
-    ?prefer:resolver -> 
-    resolver list -> 
-        resolver
-]]></programlisting>
-
-Combines several resolver objects. If a concrete entity with an
-<literal>ext_id</literal> is to be opened, the combined resolver tries the
-contained resolvers in turn until a resolver accepts opening the entity
-(i.e. it does not raise Not_competent on open_in).
-</para>
-<para>
-Clones: If the 'clone' method is invoked before 'open_in', all contained
-resolvers are cloned separately and again combined. If the 'clone' method is 
-invoked after 'open_in' (i.e. while the resolver is open), additionally the
-clone of the active resolver is flagged as being preferred, i.e. it is tried
-first. 
-</para>
-
-       </sect2>
-      </sect1>
-
-      <sect1>
-       <title>The DTD classes</title> <para><emphasis>Sorry, not yet
-written. Perhaps the interface definition of Pxp_dtd expresses the same:
-</emphasis></para>
-       <para>
-<programlisting>&markup-dtd1.mli;&markup-dtd2.mli;</programlisting>
-</para>
-      </sect1>
-
-      <sect1>
-       <title>Invoking the parser</title>
-
-       <para>Here a description of Pxp_yacc.</para>
-
-       <sect2>
-         <title>Defaults</title>
-         <para>The following defaults are available:
-
-<programlisting>
-val default_config : config
-val default_extension : ('a node extension) as 'a
-val default_spec : ('a node extension as 'a) spec
-</programlisting>
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Parsing functions</title>
-         <para>In the following, the term "closed document" refers to
-an XML structure like
-
-<programlisting>
-&lt;!DOCTYPE ... [ <replaceable>declarations</replaceable> ] &gt;
-&lt;<replaceable>root</replaceable>&gt;
-...
-&lt;/<replaceable>root</replaceable>&gt;
-</programlisting>
-
-The term "fragment" refers to an XML structure like
-
-<programlisting>
-&lt;<replaceable>root</replaceable>&gt;
-...
-&lt;/<replaceable>root</replaceable>&gt;
-</programlisting>
-
-i.e. only to one isolated element instance.
-</para>
-
-         <para>
-<programlisting><![CDATA[
-val parse_dtd_entity : config -> source -> dtd
-]]></programlisting>
-
-Parses the declarations which are contained in the entity, and returns them as
-<literal>dtd</literal> object.
-</para>
-
-         <para>
-<programlisting><![CDATA[
-val extract_dtd_from_document_entity : config -> source -> dtd
-]]></programlisting>
-
-Extracts the DTD from a closed document. Both the internal and the external
-subsets are extracted and combined to one <literal>dtd</literal> object. This
-function does not parse the whole document, but only the parts that are
-necessary to extract the DTD.
-</para>
-
-         <para>
-<programlisting><![CDATA[
-val parse_document_entity : 
-    ?transform_dtd:(dtd -> dtd) ->
-    ?id_index:('ext index) ->
-    config -> 
-    source -> 
-    'ext spec -> 
-        'ext document
-]]></programlisting>
-
-Parses a closed document and validates it against the DTD that is contained in
-the document (internal and external subsets). The option
-<literal>~transform_dtd</literal> can be used to transform the DTD in the
-document, and to use the transformed DTD for validation. If
-<literal>~id_index</literal> is specified, an index of all ID attributes is
-created.
-</para>
-
-         <para>
-<programlisting><![CDATA[
-val parse_wfdocument_entity : 
-    config -> 
-    source -> 
-    'ext spec -> 
-        'ext document
-]]></programlisting>
-
-Parses a closed document, but checks it only on well-formedness.
-</para>
-
-         <para>
-<programlisting><![CDATA[
-val parse_content_entity  : 
-    ?id_index:('ext index) ->
-    config ->  
-    source -> 
-    dtd -> 
-    'ext spec -> 
-        'ext node
-]]></programlisting>
-
-Parses a fragment, and validates the element.
-</para>
-
-         <para>
-<programlisting><![CDATA[
-val parse_wfcontent_entity : 
-    config -> 
-    source -> 
-    'ext spec -> 
-        'ext node
-]]></programlisting>
-
-Parses a fragment, but checks it only on well-formedness.
-</para>
-       </sect2>
-
-       <sect2>
-         <title>Configuration options</title>
-         <para>
-
-<programlisting><![CDATA[
-type config =
-    { warner : collect_warnings;
-      errors_with_line_numbers : bool;
-      enable_pinstr_nodes : bool;
-      enable_super_root_node : bool;
-      enable_comment_nodes : bool;
-      encoding : rep_encoding;
-      recognize_standalone_declaration : bool;
-      store_element_positions : bool;
-      idref_pass : bool;
-      validate_by_dfa : bool;
-      accept_only_deterministic_models : bool;
-      ...
-    }
-]]></programlisting>
-
-<itemizedlist mark="bullet" spacing="compact">
-             <listitem><para><literal>warner:</literal>The parser prints
-warnings by invoking the method <literal>warn</literal> for this warner
-object. (Default: all warnings are dropped)</para>
-             </listitem>
-             <listitem><para><literal>errors_with_line_numbers:</literal>If
-true, errors contain line numbers; if false, errors contain only byte
-positions. The latter mode is faster. (Default: true)</para>
-             </listitem>
-             <listitem><para><literal>enable_pinstr_nodes:</literal>If true,
-the parser creates extra nodes for processing instructions. If false,
-processing instructions are simply added to the element or document surrounding
-the instructions. (Default: false)</para>
-             </listitem>
-             <listitem><para><literal>enable_super_root_node:</literal>If
-true, the parser creates an extra node which is the parent of the root of the
-document tree. This node is called super root; it is an element with type
-<literal>T_super_root</literal>. - If there are processing instructions outside
-the root element and outside the DTD, they are added to the super root instead
-of the document. - If false, the super root node is not created. (Default:
-false)</para>
-             </listitem>
-             <listitem><para><literal>enable_comment_nodes:</literal>If true,
-the parser creates nodes for comments with type <literal>T_comment</literal>;
-if false, such nodes are not created. (Default: false)</para>
-             </listitem>
-             <listitem><para><literal>encoding:</literal>Specifies the
-internal encoding of the parser. Most strings are then represented according to
-this encoding; however there are some exceptions (especially
-<literal>ext_id</literal> values which are always UTF-8 encoded).
-(Default: `Enc_iso88591)</para>
-             </listitem>
-             <listitem><para><literal>
-recognize_standalone_declaration:</literal> If true and if the parser is
-validating, the <literal>standalone="yes"</literal> declaration forces that it
-is checked whether the document is a standalone document. - If false, or if the
-parser is in well-formedness mode, such declarations are ignored.
-(Default: true)
-</para>
-             </listitem>
-             <listitem><para><literal>store_element_positions:</literal> If
-true, for every non-data node the source position is stored. If false, the
-position information is lost. If available, you can get the positions of nodes
-by invoking the <literal>position</literal> method.
-(Default: true)</para>
-             </listitem>
-             <listitem><para><literal>idref_pass:</literal>If true and if
-there is an ID index, the parser checks whether every IDREF or IDREFS attribute
-refer to an existing node; this requires that the parser traverses the whole
-doument tree. If false, this check is left out. (Default: false)</para>
-             </listitem>
-             <listitem><para><literal>validate_by_dfa:</literal>If true and if
-the content model for an element type is deterministic, a deterministic finite
-automaton is used to validate whether the element contents match the content
-model of the type. If false, or if a DFA is not available, a backtracking
-algorithm is used for validation. (Default: true)
-</para>
-             </listitem>
-             <listitem><para><literal>
-accept_only_deterministic_models:</literal> If true, only deterministic content
-models are accepted; if false, any syntactically correct content models can be
-processed. (Default: true)</para>
-             </listitem>
-           </itemizedlist></para>
-       </sect2>
-
-       <sect2>
-         <title>Which configuration should I use?</title>
-         <para>First, I recommend to vary the default configuration instead of
-creating a new configuration record. For instance, to set
-<literal>idref_pass</literal> to <literal>true</literal>, change the default
-as in:
-<programlisting>
-let config = { default_config with idref_pass = true }
-</programlisting>
-The background is that I can add more options to the record in future versions
-of the parser without breaking your programs.</para>
-
-         <formalpara>
-           <title>Do I need extra nodes for processing instructions?</title>
-<para>By default, such nodes are not created. This does not mean that the
-processing instructions are lost; however, you cannot find out the exact
-location where they occur. For example, the following XML text
-
-<programlisting><![CDATA[
-<x><?pi1?><y/><?pi2?></x> 
-]]></programlisting> 
-
-will normally create one element node for <literal>x</literal> containing
-<emphasis>one</emphasis> subnode for <literal>y</literal>. The processing
-instructions are attached to <literal>x</literal> in a separate hash table; you
-can access them using <literal>x # pinstr "pi1"</literal> and <literal>x #
-pinstr "pi2"</literal>, respectively. The information is lost where the
-instructions occur within <literal>x</literal>.
-</para>
-         </formalpara>
-
-           <para>If the option <literal>enable_pinstr_nodes</literal> is
-turned on, the parser creates extra nodes <literal>pi1</literal> and
-<literal>pi2</literal> such that the subnodes of <literal>x</literal> are now: 
-
-<programlisting><![CDATA[
-x # sub_nodes = [ pi1; y; pi2 ]
-]]></programlisting>
-
-The extra nodes contain the processing instructions in the usual way, i.e. you
-can access them using <literal>pi1 # pinstr "pi1"</literal> and <literal>pi2 #
-pinstr "pi2"</literal>, respectively.
-</para>
-
-         <para>Note that you will need an exemplar for the PI nodes (see
-<literal>make_spec_from_alist</literal>).</para> 
-
-         <formalpara>
-           <title>Do I need a super root node?</title>
-           <para>By default, there is no super root node. The
-<literal>document</literal> object refers directly to the node representing the
-root element of the document, i.e.
-
-<programlisting><![CDATA[
-doc # root = r
-]]></programlisting>
-
-if <literal>r</literal> is the root node. This is sometimes inconvenient: (1)
-Some algorithms become simpler if every node has a parent, even the root
-node. (2) Some standards such as XPath call the "root node" the node whose
-child represents the root of the document. (3) The super root node can serve
-as a container for processing instructions outside the root element. Because of
-these reasons, it is possible to create an extra super root node, whose child
-is the root node:
-
-<programlisting><![CDATA[
-doc # root = sr         &&
-sr # sub_nodes = [ r ]
-]]></programlisting>
-
-When extra nodes are also created for processing instructions, these nodes can
-be added to the super root node if they occur outside the root element (reason
-(3)), and the order reflects the order in the source text.</para>
-         </formalpara>
-
-         <para>Note that you will need an exemplar for the super root node
-(see <literal>make_spec_from_alist</literal>).</para>
-
-         <formalpara>
-           <title>What is the effect of the UTF-8 encoding?</title>
-           <para>By default, the parser represents strings (with few
-exceptions) as ISO-8859-1 strings. These are well-known, and there are tools
-and fonts for this encoding.</para>
-         </formalpara>
-         <para>However, internationalization may require that you switch over
-to UTF-8 encoding. In most environments, the immediate effect will be that you
-cannot read strings with character codes >= 160 any longer; your terminal will
-only show funny glyph combinations. It is strongly recommended to install
-Unicode fonts (<ulink URL="http://czyborra.com/unifont/">GNU Unifont</ulink>, 
-<ulink URL="http://www.cl.cam.ac.uk/~mgk25/download/ucs-fonts.tar.gz">
-Markus Kuhn's fonts</ulink>) and <ulink
-URL="http://myweb.clark.net/pub/dickey/xterm/xterm.html">terminal emulators
-that can handle UTF-8 byte sequences</ulink>. Furthermore, a Unicode editor may
-be helpful (such as <ulink
-URL="ftp://metalab.unc.edu/pub/Linux/apps/editors/X/">Yudit</ulink>). There are
-also <ulink URL="http://www.cl.cam.ac.uk/~mgk25/unicode.html">FAQ</ulink> by
-Markus Kuhn.
-</para>
-         <para>By setting <literal>encoding</literal> to
-<literal>`Enc_utf8</literal> all strings originating from the parsed XML
-document are represented as UTF-8 strings. This includes not only character
-data and attribute values but also element names, attribute names and so on, as
-it is possible to use any Unicode letter to form such names.  Strictly
-speaking, PXP is only XML-compliant if the UTF-8 mode is used; otherwise it
-will have difficulties when validating documents containing
-non-ISO-8859-1-names.
-</para>
-
-         <para>This mode does not have any impact on the external
-representation of documents. The character set assumed when reading a document
-is set in the XML declaration, and character set when writing a document must
-be passed to the <literal>write</literal> method.
-</para>
-
-         <formalpara>
-           <title>How do I check that nodes exist which are referred by IDREF attributes?</title>
-           <para>First, you must create an index of all occurring ID
-attributes:
-
-<programlisting><![CDATA[
-let index = new hash_index
-]]></programlisting>
-
-This index must be passed to the parsing function:
-
-<programlisting><![CDATA[
-parse_document_entity
-  ~id_index:(index :> index)
-  config source spec
-]]></programlisting>
-
-Next, you must turn on the <literal>idref_pass</literal> mode:
-
-<programlisting><![CDATA[
-let config = { default_config with idref_pass = true }
-]]></programlisting>
-
-Note that now the whole document tree will be traversed, and every node will be
-checked for IDREF and IDREFS attributes. If the tree is big, this may take some
-time.
-</para>
-         </formalpara>
-
-         <formalpara>
-           <title>What are deterministic content models?</title>
-           <para>These type of models can speed up the validation checks;
-furthermore they ensure SGML-compatibility. In particular, a content model is
-deterministic if the parser can determine the actually used alternative by
-inspecting only the current token. For example, this element has
-non-deterministic contents:
-
-<programlisting><![CDATA[
-<!ELEMENT x ((u,v) | (u,y+) | v)>
-]]></programlisting>
-
-If the first element in <literal>x</literal> is <literal>u</literal>, the
-parser does not know which of the alternatives <literal>(u,v)</literal> or
-<literal>(u,y+)</literal> will work; the parser must also inspect the second
-element to be able to distinguish between the alternatives. Because such
-look-ahead (or "guessing") is required, this example is
-non-deterministic.</para>
-         </formalpara>
-
-         <para>The XML standard demands that content models must be
-deterministic. So it is recommended to turn the option
-<literal>accept_only_deterministic_models</literal> on; however, PXP can also
-process non-deterministic models using a backtracking algorithm.</para>
-
-         <para>Deterministic models ensure that validation can be performed in
-linear time. In order to get the maximum benefits, PXP also implements a
-special validator that profits from deterministic models; this is the
-deterministic finite automaton (DFA). This validator is enabled per element
-type if the element type has a deterministic model and if the option
-<literal>validate_by_dfa</literal> is turned on.</para>
-
-         <para>In general, I expect that the DFA method is faster than the
-backtracking method; especially in the worst case the DFA takes only linear
-time. However, if the content model has only few alternatives and the
-alternatives do not nest, the backtracking algorithm may be better.</para>
-
-       </sect2>
-
-
-      </sect1>
-
-
-      <sect1>
-       <title>Updates</title> 
-
-       <para><emphasis>Some (often later added) features that are otherwise
-not explained in the manual but worth to be mentioned.</emphasis></para>
-
-       <itemizedlist mark="bullet" spacing="compact">
-         <listitem><para>Methods node_position, node_path, nth_node,
-previous_node, next_node for nodes: See pxp_document.mli</para>
-         </listitem>
-         <listitem><para>Functions to determine the document order of nodes:
-compare, create_ord_index, ord_number, ord_compare: See pxp_document.mli</para>
-         </listitem>
-       </itemizedlist>
-      </sect1>
-
-    </chapter>
- 
-  </part>
-</book>
-

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/src/pic/extension_general.fig b/helm/DEVEL/pxp/pxp/doc/manual/src/pic/extension_general.fig
deleted file mode 100644 (file)
index 445095f..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/src/pic/extension_general.fig
+++ /dev/null
@@ -1,47 +0,0 @@
-#FIG 3.2
-Portrait
-Center
-Metric
-A4      
-100.00
-Single
--2
-1200 2
-1 3 0 1 0 7 100 0 15 0.000 1 0.0000 1575 2250 229 229 1575 2250 1800 2295
-1 3 0 1 0 7 100 0 15 0.000 1 0.0000 1575 3375 225 225 1575 3375 1800 3375
-1 3 0 1 0 7 100 0 15 0.000 1 0.0000 675 3375 229 229 675 3375 900 3420
-1 3 0 1 0 7 100 0 15 0.000 1 0.0000 2475 3375 229 229 2475 3375 2700 3420
-1 3 0 1 0 7 100 0 10 0.000 1 0.0000 3600 2475 180 180 3600 2475 3780 2475
-1 3 0 1 0 7 100 0 10 0.000 1 0.0000 2880 2475 180 180 2880 2475 3060 2475
-1 3 0 1 0 7 100 0 10 0.000 1 0.0000 4320 2475 186 186 4320 2475 4500 2520
-1 3 0 1 0 7 100 0 10 0.000 1 0.0000 3600 1485 186 186 3600 1485 3780 1530
-2 1 0 1 0 7 100 0 -1 0.000 0 0 -1 0 0 2
-        675 3150 1395 2385
-2 1 0 1 0 7 100 0 -1 0.000 0 0 -1 0 0 2
-        1575 2475 1575 3150
-2 1 0 1 0 7 100 0 -1 0.000 0 0 -1 0 0 2
-        1755 2385 2475 3150
-2 1 1 1 0 7 100 0 -1 4.000 0 0 -1 1 0 2
-       0 0 1.00 60.00 120.00
-        1537 2010 3412 1462
-2 1 1 1 0 7 100 0 -1 4.000 0 0 -1 1 0 2
-       0 0 1.00 60.00 120.00
-        3412 1537 1672 2047
-2 1 1 1 0 7 100 0 -1 4.000 0 0 -1 1 1 2
-       0 0 1.00 60.00 120.00
-       0 0 1.00 60.00 120.00
-        810 3195 2707 2512
-2 1 1 1 0 7 100 0 -1 4.000 0 0 -1 1 1 2
-       0 0 1.00 60.00 120.00
-       0 0 1.00 60.00 120.00
-        1740 3217 3442 2580
-2 1 1 1 0 7 100 0 -1 4.000 0 0 -1 1 1 2
-       0 0 1.00 60.00 120.00
-       0 0 1.00 60.00 120.00
-        2640 3210 4177 2610
-4 0 0 80 0 14 12 0.0000 4 75 105 3555 1530 x\001
-4 0 0 80 0 14 12 0.0000 4 75 105 1530 2295 n\001
-4 0 0 80 0 12 12 0.2967 4 135 1365 1658 1950 n # extension\001
-4 0 0 80 0 12 12 0.2967 4 135 840 2475 1950 x # node\001
-4 0 0 80 0 16 12 0.0000 4 135 1140 1020 4050 The node tree\001
-4 0 0 80 0 16 12 0.0000 4 135 1245 3225 3285 The extensions\001

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/src/pic/node_add.fig b/helm/DEVEL/pxp/pxp/doc/manual/src/pic/node_add.fig
deleted file mode 100644 (file)
index 0716834..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/src/pic/node_add.fig
+++ /dev/null
@@ -1,107 +0,0 @@
-#FIG 3.2
-Portrait
-Center
-Metric
-A4      
-100.00
-Single
--2
-1200 2
-1 1 0 1 0 7 100 0 15 0.000 1 0.0000 6141 1350 242 229 6141 1350 6379 1395
-1 1 0 1 0 7 100 0 15 0.000 1 0.0000 6141 2250 242 229 6141 2250 6379 2295
-1 1 0 1 0 7 100 0 15 0.000 1 0.0000 5426 2250 242 229 5426 2250 5665 2295
-1 1 0 1 0 7 100 0 15 0.000 1 0.0000 6856 2250 242 229 6856 2250 7094 2295
-1 1 0 1 0 7 100 0 15 0.000 1 0.0000 7571 2925 242 229 7571 2925 7809 2970
-1 1 0 1 0 7 100 0 15 0.000 1 0.0000 8524 2925 242 229 8524 2925 8762 2970
-1 1 0 1 0 7 100 0 15 0.000 1 0.0000 8047 2250 242 229 8047 2250 8285 2295
-1 1 0 1 0 7 100 0 15 0.000 1 0.0000 1866 1350 242 229 1866 1350 2104 1395
-1 1 0 1 0 7 100 0 15 0.000 1 0.0000 1866 2250 242 229 1866 2250 2104 2295
-1 1 0 1 0 7 100 0 15 0.000 1 0.0000 1151 2250 242 229 1151 2250 1390 2295
-1 1 0 1 0 7 100 0 15 0.000 1 0.0000 2581 2250 242 229 2581 2250 2819 2295
-1 1 0 1 0 7 100 0 15 0.000 1 0.0000 3296 2925 242 229 3296 2925 3534 2970
-1 1 0 1 0 7 100 0 15 0.000 1 0.0000 4249 2925 242 229 4249 2925 4487 2970
-1 1 0 1 0 7 100 0 15 0.000 1 0.0000 3772 2250 242 229 3772 2250 4010 2295
-1 1 0 1 0 7 100 0 15 0.000 1 0.0000 8325 1350 242 229 8325 1350 8563 1395
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 1 1.00 61.76 123.53
-        5910 1440 5402 2017
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 1 1.00 61.76 123.53
-        6109 1590 6101 2025
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 1 1.00 61.76 123.53
-        6307 1537 6697 2070
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 1 1.00 61.76 123.53
-        7832 2347 7602 2692
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 1 1.00 61.76 123.53
-        8150 2452 8349 2752
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 0 1.00 61.76 123.53
-        5490 2017 5958 1492
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 0 1.00 61.76 123.53
-        6164 2010 6173 1575
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 0 1.00 61.76 123.53
-        6768 2025 6355 1470
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 0 1.00 61.76 123.53
-        7673 2715 7880 2415
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 0 1.00 61.76 123.53
-        8412 2707 8222 2415
-2 1 1 1 0 7 95 0 15 4.000 0 0 -1 0 0 2
-        6387 1372 8023 2017
-2 2 0 1 0 7 95 0 -1 0.000 0 0 -1 0 0 5
-        4950 900 9000 900 9000 3375 4950 3375 4950 900
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 1 1.00 61.75 123.51
-        1635 1440 1127 2017
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 1 1.00 61.75 123.51
-        1834 1590 1826 2025
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 1 1.00 61.75 123.51
-        2032 1537 2422 2070
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 1 1.00 61.75 123.51
-        3557 2347 3327 2692
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 1 1.00 61.75 123.51
-        3875 2452 4074 2752
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 0 1.00 61.75 123.51
-        1215 2017 1683 1492
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 0 1.00 61.75 123.51
-        1889 2010 1898 1575
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 0 1.00 61.75 123.51
-        2493 2025 2080 1470
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 0 1.00 61.75 123.51
-        3398 2715 3605 2415
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 0 1.00 61.75 123.51
-        4137 2707 3947 2415
-2 1 1 1 0 7 95 0 15 4.000 0 0 -1 0 0 2
-        2112 1372 3748 2017
-2 2 0 1 0 7 95 0 -1 0.000 0 0 -1 0 0 5
-        675 900 4725 900 4725 3375 675 3375 675 900
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        8197 1545 8055 2010
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        8137 2025 8280 1590
-2 1 0 3 0 7 95 0 -1 0.000 0 0 -1 1 0 4
-       2 1 2.00 120.00 180.00
-        7875 1500 7620 1965 7845 1920 7485 2355
-4 0 0 95 0 14 13 0.0000 4 79 111 6094 1379 x\001
-4 0 0 95 0 14 13 0.0000 4 111 111 7991 2265 y\001
-4 0 0 95 0 14 13 0.0000 4 79 111 1819 1379 x\001
-4 0 0 95 0 14 13 0.0000 4 111 111 3716 2265 y\001
-4 0 0 95 0 12 12 0.0000 4 150 1470 6459 1335 x # add_node y\001
-4 0 0 95 0 12 12 0.0000 4 150 1470 2214 1365 x # add_node y\001

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/src/pic/node_clone.fig b/helm/DEVEL/pxp/pxp/doc/manual/src/pic/node_clone.fig
deleted file mode 100644 (file)
index ed1865f..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/src/pic/node_clone.fig
+++ /dev/null
@@ -1,111 +0,0 @@
-#FIG 3.2
-Portrait
-Center
-Metric
-A4      
-100.00
-Single
--2
-1200 2
-1 3 0 1 0 7 95 0 15 4.000 1 0.0000 2700 1800 229 229 2700 1800 2925 1845
-1 3 0 1 0 7 95 0 15 4.000 1 0.0000 2025 2700 229 229 2025 2700 2250 2745
-1 3 0 1 0 7 95 0 15 4.000 1 0.0000 3375 2700 229 229 3375 2700 3600 2745
-1 3 0 1 0 7 95 0 15 4.000 1 0.0000 6345 1800 229 229 6345 1800 6570 1845
-1 3 0 1 0 7 95 0 15 4.000 1 0.0000 5670 2700 229 229 5670 2700 5895 2745
-1 3 0 1 0 7 95 0 15 4.000 1 0.0000 7020 2700 229 229 7020 2700 7245 2745
-1 3 0 1 0 7 95 0 10 4.000 1 0.0000 8325 1800 229 229 8325 1800 8550 1845
-1 3 0 1 0 7 95 0 10 4.000 1 0.0000 7875 2700 229 229 7875 2700 8100 2745
-1 3 0 1 0 7 95 0 10 4.000 1 0.0000 8775 2700 229 229 8775 2700 9000 2745
-1 3 0 1 0 7 95 0 10 4.000 1 0.0000 6345 2700 229 229 6345 2700 6570 2745
-1 3 0 1 0 7 95 0 10 4.000 1 0.0000 5895 3600 229 229 5895 3600 6120 3645
-1 3 0 1 0 7 95 0 10 4.000 1 0.0000 6795 3600 229 229 6795 3600 7020 3645
-1 3 0 1 0 7 95 0 10 4.000 1 0.0000 2700 2700 229 229 2700 2700 2925 2745
-1 3 0 1 0 7 95 0 10 4.000 1 0.0000 2250 3600 229 229 2250 3600 2475 3645
-1 3 0 1 0 7 95 0 10 4.000 1 0.0000 3150 3600 229 229 3150 3600 3375 3645
-2 1 0 5 0 7 95 0 -1 12.000 1 0 -1 0 0 2
-        4050 2610 4725 2610
-2 1 0 5 0 7 95 0 -1 12.000 1 0 -1 0 0 2
-        4050 2745 4725 2745
-2 1 0 5 0 7 95 0 -1 12.000 1 1 -1 0 0 3
-        4500 2385 4950 2655 4500 2970
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        2490 1905 2025 2467
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        2827 2002 3202 2542
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        2115 2475 2535 1965
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        3255 2505 2872 1957
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        6135 1905 5670 2467
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        6472 2002 6847 2542
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        5760 2475 6180 1965
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        6900 2505 6517 1957
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        8160 1957 7860 2460
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        8407 2032 8625 2520
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        7942 2467 8212 2010
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        8685 2475 8467 1987
-2 2 0 1 0 7 80 0 -1 4.000 0 0 -1 0 0 5
-        1575 1350 9225 1350 9225 4050 1575 4050 1575 1350
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        6382 2460 6382 2032
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        6307 2032 6307 2467
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        6180 2857 5880 3360
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        6427 2932 6645 3420
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        5962 3367 6232 2910
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        6705 3375 6487 2887
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        2737 2460 2737 2032
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        2662 2032 2662 2467
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        2535 2857 2235 3360
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        2782 2932 3000 3420
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        2317 3367 2587 2910
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        3060 3375 2842 2887
-4 0 0 80 0 14 12 0.0000 4 105 105 2655 1845 y\001
-4 0 0 80 0 14 12 0.0000 4 105 105 6300 1845 y\001
-4 0 0 80 0 14 12 0.0000 4 75 105 6285 2752 x\001
-4 0 0 80 0 14 12 0.0000 4 75 105 2640 2752 x\001
-4 0 0 80 0 12 12 0.0000 4 105 840 3690 2025 let x' =\001
-4 0 0 80 0 12 12 0.0000 4 150 1890 3690 2205 x # orphaned_clone\001
-4 0 0 80 0 14 12 0.0000 4 105 210 8235 1845 x'\001

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/src/pic/node_delete.fig b/helm/DEVEL/pxp/pxp/doc/manual/src/pic/node_delete.fig
deleted file mode 100644 (file)
index a9fc87e..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/src/pic/node_delete.fig
+++ /dev/null
@@ -1,96 +0,0 @@
-#FIG 3.2
-Portrait
-Center
-Metric
-A4      
-100.00
-Single
--2
-1200 2
-6 2550 2092 2865 2407
-2 1 0 4 0 7 80 0 -1 0.000 1 1 -1 0 0 2
-        2595 2362 2820 2137
-2 1 0 4 0 7 80 0 -1 0.000 1 1 -1 0 0 2
-        2595 2137 2820 2362
--6
-6 1980 2430 3420 3870
-1 3 0 1 0 7 95 0 10 4.000 1 0.0000 2700 2700 229 229 2700 2700 2925 2745
-1 3 0 1 0 7 95 0 10 4.000 1 0.0000 2250 3600 229 229 2250 3600 2475 3645
-1 3 0 1 0 7 95 0 10 4.000 1 0.0000 3150 3600 229 229 3150 3600 3375 3645
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        2535 2857 2235 3360
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        2782 2932 3000 3420
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        2317 3367 2587 2910
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        3060 3375 2842 2887
--6
-1 3 0 1 0 7 95 0 15 4.000 1 0.0000 2700 1800 229 229 2700 1800 2925 1845
-1 3 0 1 0 7 95 0 15 4.000 1 0.0000 2025 2700 229 229 2025 2700 2250 2745
-1 3 0 1 0 7 95 0 15 4.000 1 0.0000 3375 2700 229 229 3375 2700 3600 2745
-1 3 0 1 0 7 95 0 15 4.000 1 0.0000 6345 1800 229 229 6345 1800 6570 1845
-1 3 0 1 0 7 95 0 15 4.000 1 0.0000 5670 2700 229 229 5670 2700 5895 2745
-1 3 0 1 0 7 95 0 15 4.000 1 0.0000 7020 2700 229 229 7020 2700 7245 2745
-1 3 0 1 0 7 95 0 10 4.000 1 0.0000 8325 1800 229 229 8325 1800 8550 1845
-1 3 0 1 0 7 95 0 10 4.000 1 0.0000 7875 2700 229 229 7875 2700 8100 2745
-1 3 0 1 0 7 95 0 10 4.000 1 0.0000 8775 2700 229 229 8775 2700 9000 2745
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        2737 2460 2737 2032
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        2662 2032 2662 2467
-2 1 0 5 0 7 95 0 -1 12.000 1 0 -1 0 0 2
-        4050 2610 4725 2610
-2 1 0 5 0 7 95 0 -1 12.000 1 0 -1 0 0 2
-        4050 2745 4725 2745
-2 1 0 5 0 7 95 0 -1 12.000 1 1 -1 0 0 3
-        4500 2385 4950 2655 4500 2970
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        2490 1905 2025 2467
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        2827 2002 3202 2542
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        2115 2475 2535 1965
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        3255 2505 2872 1957
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        6135 1905 5670 2467
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        6472 2002 6847 2542
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        5760 2475 6180 1965
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        6900 2505 6517 1957
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        8160 1957 7860 2460
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        8407 2032 8625 2520
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        7942 2467 8212 2010
-2 1 0 1 0 7 95 0 -1 4.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        8685 2475 8467 1987
-2 2 0 1 0 7 80 0 -1 4.000 0 0 -1 0 0 5
-        1575 1350 9225 1350 9225 4050 1575 4050 1575 1350
-4 0 0 80 0 14 12 0.0000 4 75 105 2640 2752 x\001
-4 0 0 95 0 12 12 0.0000 4 135 1050 3960 2250 x # delete\001
-4 0 0 80 0 14 12 0.0000 4 75 105 8280 1845 x\001
-4 0 0 80 0 14 12 0.0000 4 105 105 2655 1845 y\001
-4 0 0 80 0 14 12 0.0000 4 105 105 6300 1845 y\001

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/src/pic/node_general.fig b/helm/DEVEL/pxp/pxp/doc/manual/src/pic/node_general.fig
deleted file mode 100644 (file)
index 231e76d..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/src/pic/node_general.fig
+++ /dev/null
@@ -1,35 +0,0 @@
-#FIG 3.2
-Portrait
-Center
-Metric
-A4      
-100.00
-Single
--2
-1200 2
-1 3 0 1 0 7 100 0 15 0.000 1 0.0000 2025 2025 229 229 2025 2025 2250 2070
-1 3 0 1 0 7 100 0 15 0.000 1 0.0000 1350 2025 225 225 1350 2025 1575 2025
-1 3 0 1 0 7 100 0 15 0.000 1 0.0000 2700 2025 225 225 2700 2025 2925 2025
-1 3 0 1 0 7 100 0 15 0.000 1 0.0000 2025 1125 225 225 2025 1125 2250 1125
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        1380 1800 1845 1275
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        1815 1207 1282 1815
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        2055 1792 2055 1350
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        1980 1350 1980 1807
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 1 1.00 60.00 120.00
-        2190 1297 2550 1867
-2 1 0 1 0 7 100 0 15 0.000 0 0 -1 1 0 2
-       1 0 1.00 60.00 120.00
-        2602 1807 2220 1237
-2 2 0 1 0 7 100 0 -1 0.000 0 0 -1 0 0 5
-        450 675 3150 675 3150 2475 450 2475 450 675
-4 0 0 100 0 12 10 0.0000 4 120 540 2377 1342 parent\001
-4 0 0 100 0 12 10 0.0000 4 105 810 645 1628 sub_nodes\001

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/src/pic/node_term.fig b/helm/DEVEL/pxp/pxp/doc/manual/src/pic/node_term.fig
deleted file mode 100644 (file)
index 54965fe..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/src/pic/node_term.fig
+++ /dev/null
@@ -1,63 +0,0 @@
-#FIG 3.2
-Portrait
-Center
-Metric
-A4      
-100.00
-Single
--2
-1200 2
-6 1665 2700 2835 3150
-2 4 0 1 0 7 100 0 15 0.000 0 0 7 0 0 5
-        2835 3150 2835 2700 1665 2700 1665 3150 2835 3150
-4 0 0 80 0 18 12 0.0000 4 135 930 1815 3015 "Cherries"\001
--6
-1 3 0 1 0 7 100 0 15 0.000 1 0.0000 2250 1125 225 225 2250 1125 2475 1125
-1 3 0 1 0 7 100 0 15 0.000 1 0.0000 1575 2025 225 225 1575 2025 1800 2025
-1 3 0 1 0 7 100 0 15 0.000 1 0.0000 2925 2025 225 225 2925 2025 3150 2025
-1 3 0 1 0 7 100 0 15 0.000 1 0.0000 900 2925 242 242 900 2925 1125 3015
-2 4 0 1 0 7 100 0 15 0.000 0 0 7 0 0 5
-        1485 4275 1485 3825 315 3825 315 4275 1485 4275
-2 1 0 1 0 7 100 0 -1 0.000 0 0 -1 0 0 2
-        2085 1275 1582 1807
-2 1 0 1 0 7 100 0 -1 0.000 0 0 -1 0 0 2
-        2407 1297 2940 1800
-2 1 0 1 0 7 100 0 -1 0.000 0 0 -1 0 0 2
-        1417 2190 900 2692
-2 1 0 1 0 7 100 0 -1 0.000 0 0 -1 0 0 2
-        1740 2190 2257 2700
-2 1 0 1 0 7 100 0 -1 0.000 0 0 -1 0 0 2
-        892 3180 892 3825
-2 2 0 1 0 7 100 0 -1 0.000 0 0 -1 0 0 5
-        45 675 6525 675 6525 4950 45 4950 45 675
-3 3 0 1 0 7 100 0 -1 0.000 0 0 0 22
-        2115 3645 2250 3600 2520 3555 2745 3510 2925 3555 3150 3690
-        3375 3735 3600 3735 3825 3735 4140 3825 4140 4005 4005 4185
-        3735 4230 3420 4185 3150 4230 2835 4275 2520 4230 2340 4140
-        2115 4095 1980 4005 1980 3825 2025 3735
-        -1.000 -1.000 -1.000 -1.000 -1.000 -1.000 -1.000 -1.000
-        -1.000 -1.000 -1.000 -1.000 -1.000 -1.000 -1.000 -1.000
-        -1.000 -1.000 -1.000 -1.000 -1.000 -1.000
-3 3 0 1 0 7 100 0 -1 0.000 0 0 0 17
-        3465 1170 3645 1080 4050 1035 4320 1035 4545 1080 4770 1170
-        5130 1215 5355 1350 5400 1530 5265 1665 4860 1710 4455 1710
-        4095 1665 3780 1620 3555 1575 3420 1485 3420 1305
-        -1.000 -1.000 -1.000 -1.000 -1.000 -1.000 -1.000 -1.000
-        -1.000 -1.000 -1.000 -1.000 -1.000 -1.000 -1.000 -1.000
-        -1.000
-3 2 0 1 0 7 100 0 -1 0.000 0 0 0 5
-        2475 1215 2655 1350 2970 1440 3240 1395 3420 1260
-        0.000 -1.000 -1.000 -1.000 0.000
-3 2 0 1 0 7 100 0 -1 0.000 0 0 0 5
-        1125 3060 1215 3397 1410 3607 1687 3727 2025 3720
-        0.000 -1.000 -1.000 -1.000 0.000
-4 0 0 80 0 18 12 0.0000 4 180 1065 375 4125 "An orange"\001
-4 0 0 80 0 18 12 0.0000 4 90 315 750 2985 <a>\001
-4 0 0 80 0 18 12 0.0000 4 135 315 1410 2085 <b>\001
-4 0 0 80 0 18 12 0.0000 4 90 315 2790 2070 <c>\001
-4 0 0 80 0 18 12 0.0000 4 90 315 2100 1200 <a>\001
-4 0 0 100 0 16 12 0.0000 4 135 795 3600 1260 attributes:\001
-4 0 0 100 0 16 12 0.0000 4 180 1680 3600 1485 "att" -> Value "apple"\001
-4 0 0 100 0 16 12 0.0000 4 135 795 2250 3780 attributes:\001
-4 0 0 100 0 17 12 0.0000 4 180 5910 390 4725 <a att="apple"><b><a att="orange">An orange</a>Cherries</b><c/></a>\001
-4 0 0 100 0 16 12 0.0000 4 180 1800 2250 4005 "att" -> Value "orange"\001

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/src/readme.ent b/helm/DEVEL/pxp/pxp/doc/manual/src/readme.ent
deleted file mode 100644 (file)
index e9fdfc3..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/src/readme.ent
+++ /dev/null
@@ -1,364 +0,0 @@
-<!ENTITY readme.code.header '
-open Pxp_types
-open Pxp_document
-'>
-<!ENTITY readme.code.footnote-printer '
-class type footnote_printer =
-  object
-    method footnote_to_html : store_type -&gt; out_channel -&gt; unit
-  end
-
-and store_type =
-  object
-    method alloc_footnote : footnote_printer -&gt; int
-    method print_footnotes : out_channel -&gt; unit
-  end
-;;
-'>
-<!ENTITY readme.code.store '
-class store =
-  object (self)
-
-    val mutable footnotes = ( [] : (int * footnote_printer) list )
-    val mutable next_footnote_number = 1
-
-    method alloc_footnote n =
-      let number = next_footnote_number in
-      next_footnote_number &lt;- number+1;
-      footnotes &lt;- footnotes @ [ number, n ];
-      number
-
-    method print_footnotes ch =
-      if footnotes &lt;&gt; [] then begin
-       output_string ch "&lt;hr align=left noshade=noshade width=\"30&percent;\"&gt;\n";
-       output_string ch "&lt;dl&gt;\n";
-       List.iter
-         (fun (_,n) -&gt; 
-            n # footnote_to_html (self : #store_type :&gt; store_type) ch)
-         footnotes;
-       output_string ch "&lt;/dl&gt;\n";
-      end
-
-  end
-;;
-'>
-<!ENTITY readme.code.escape-html '
-let escape_html s =
-  Str.global_substitute
-    (Str.regexp "&lt;\\|&gt;\\|&amp;\\|\"")
-    (fun s -&gt;
-      match Str.matched_string s with
-        "&lt;" -&gt; "&amp;lt;"
-      | "&gt;" -&gt; "&amp;gt;"
-      | "&amp;" -&gt; "&amp;amp;"
-      | "\"" -&gt; "&amp;quot;"
-      | _ -&gt; assert false)
-    s
-;;
-'>
-<!ENTITY readme.code.shared '
-class virtual shared =
-  object (self)
-
-    (* --- default_ext --- *)
-
-    val mutable node = (None : shared node option)
-
-    method clone = {&lt; &gt;} 
-    method node =
-      match node with
-          None -&gt;
-            assert false
-        | Some n -&gt; n
-    method set_node n =
-      node &lt;- Some n
-
-    (* --- virtual --- *)
-
-    method virtual to_html : store -&gt; out_channel -&gt; unit
-
-  end
-;;
-'>
-<!ENTITY readme.code.only-data '
-class only_data =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      output_string ch (escape_html (self # node # data))
-  end
-;;
-'>
-<!ENTITY readme.code.no-markup '
-class no_markup =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      List.iter
-       (fun n -&gt; n # extension # to_html store ch)
-       (self # node # sub_nodes)
-  end
-;;
-'>
-<!ENTITY readme.code.readme '
-class readme =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      (* output header *)
-      output_string 
-       ch "&lt;!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\"&gt;";
-      output_string
-       ch "&lt;!-- WARNING! This is a generated file, do not edit! --&gt;\n";
-      let title = 
-       match self # node # attribute "title" with
-           Value s -&gt; s
-         | _ -&gt; assert false
-      in
-      let html_header, _ =
-       try (self # node # dtd # par_entity "readme:html:header") 
-            # replacement_text
-       with WF_error _ -&gt; "", false in
-      let html_trailer, _ =
-       try (self # node # dtd # par_entity "readme:html:trailer")
-            # replacement_text
-       with WF_error _ -&gt; "", false in
-      let html_bgcolor, _ =
-       try (self # node # dtd # par_entity "readme:html:bgcolor")
-            # replacement_text
-       with WF_error _ -&gt; "white", false in
-      let html_textcolor, _ =
-       try (self # node # dtd # par_entity "readme:html:textcolor")
-            # replacement_text
-       with WF_error _ -&gt; "", false in
-      let html_alinkcolor, _ =
-       try (self # node # dtd # par_entity "readme:html:alinkcolor")
-            # replacement_text
-       with WF_error _ -&gt; "", false in
-      let html_vlinkcolor, _ =
-       try (self # node # dtd # par_entity "readme:html:vlinkcolor")
-            # replacement_text
-       with WF_error _ -&gt; "", false in
-      let html_linkcolor, _ =
-       try (self # node # dtd # par_entity "readme:html:linkcolor")
-            # replacement_text
-       with WF_error _ -&gt; "", false in
-      let html_background, _ =
-       try (self # node # dtd # par_entity "readme:html:background")
-            # replacement_text
-       with WF_error _ -&gt; "", false in
-
-      output_string ch "&lt;html&gt;&lt;header&gt;&lt;title&gt;\n";
-      output_string ch (escape_html title);
-      output_string ch "&lt;/title&gt;&lt;/header&gt;\n";
-      output_string ch "&lt;body ";
-      List.iter
-       (fun (name,value) -&gt;
-          if value &lt;&gt; "" then 
-            output_string ch (name ^ "=\"" ^ escape_html value ^ "\" "))
-       [ "bgcolor",    html_bgcolor;
-         "text",       html_textcolor;
-         "link",       html_linkcolor;
-         "alink",      html_alinkcolor;
-         "vlink",      html_vlinkcolor;
-       ];
-      output_string ch "&gt;\n";
-      output_string ch html_header;
-      output_string ch "&lt;h1&gt;";
-      output_string ch (escape_html title);
-      output_string ch "&lt;/h1&gt;\n";
-      (* process main content: *)
-      List.iter
-       (fun n -&gt; n # extension # to_html store ch)
-       (self # node # sub_nodes);
-      (* now process footnotes *)
-      store # print_footnotes ch;
-      (* trailer *)
-      output_string ch html_trailer;
-      output_string ch "&lt;/html&gt;\n";
-
-  end
-;;
-'>
-<!ENTITY readme.code.section '
-class section the_tag =
-  object (self)
-    inherit shared
-
-    val tag = the_tag
-
-    method to_html store ch =
-      let sub_nodes = self # node # sub_nodes in
-      match sub_nodes with
-         title_node :: rest -&gt;
-           output_string ch ("&lt;" ^ tag ^ "&gt;\n");
-           title_node # extension # to_html store ch;
-           output_string ch ("\n&lt;/" ^ tag ^ "&gt;");
-           List.iter
-             (fun n -&gt; n # extension # to_html store ch)
-             rest
-       | _ -&gt;
-           assert false
-  end
-;;
-
-class sect1 = section "h1";;
-class sect2 = section "h3";;
-class sect3 = section "h4";;
-'>
-<!ENTITY readme.code.map-tag '
-class map_tag the_target_tag =
-  object (self)
-    inherit shared
-
-    val target_tag = the_target_tag
-
-    method to_html store ch =
-      output_string ch ("&lt;" ^ target_tag ^ "&gt;\n");
-      List.iter
-       (fun n -&gt; n # extension # to_html store ch)
-       (self # node # sub_nodes);
-      output_string ch ("\n&lt;/" ^ target_tag ^ "&gt;");
-  end
-;;
-
-class p = map_tag "p";;
-class em = map_tag "b";;
-class ul = map_tag "ul";;
-class li = map_tag "li";;
-'>
-<!ENTITY readme.code.br '
-class br =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      output_string ch "&lt;br&gt;\n";
-      List.iter
-       (fun n -&gt; n # extension # to_html store ch)
-       (self # node # sub_nodes);
-  end
-;;
-'>
-<!ENTITY readme.code.code '
-class code =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      let data = self # node # data in
-      (* convert tabs *)
-      let l = String.length data in
-      let rec preprocess i column =
-       (* this is very ineffective but comprehensive: *)
-       if i &lt; l then
-         match data.[i] with
-             &apos;\t&apos; -&gt;
-               let n = 8 - (column mod 8) in
-               String.make n &apos; &apos; ^ preprocess (i+1) (column + n)
-           | &apos;\n&apos; -&gt;
-               "\n" ^ preprocess (i+1) 0
-           | c -&gt;
-               String.make 1 c ^ preprocess (i+1) (column + 1)
-       else
-         ""
-      in
-      output_string ch "&lt;p&gt;&lt;pre&gt;";
-      output_string ch (escape_html (preprocess 0 0));
-      output_string ch "&lt;/pre&gt;&lt;/p&gt;";
-
-  end
-;;
-'>
-<!ENTITY readme.code.a '
-class a =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      output_string ch "&lt;a ";
-      let href =
-       match self # node # attribute "href" with
-           Value v -&gt; escape_html v
-         | Valuelist _ -&gt; assert false
-         | Implied_value -&gt;
-             begin match self # node # attribute "readmeref" with
-                 Value v -&gt; escape_html v ^ ".html"
-               | Valuelist _ -&gt; assert false
-               | Implied_value -&gt;
-                   ""
-             end
-      in
-      if href &lt;&gt; "" then
-       output_string ch ("href=\""  ^ href ^ "\"");
-      output_string ch "&gt;";
-      output_string ch (escape_html (self # node # data));
-      output_string ch "&lt;/a&gt;";
-       
-  end
-;;
-'>
-<!ENTITY readme.code.footnote '
-class footnote =
-  object (self)
-    inherit shared
-
-    val mutable footnote_number = 0
-
-    method to_html store ch =
-      let number = 
-       store # alloc_footnote (self : #shared :&gt; footnote_printer) in
-      let foot_anchor = 
-       "footnote" ^ string_of_int number in
-      let text_anchor =
-       "textnote" ^ string_of_int number in
-      footnote_number &lt;- number;
-      output_string ch ( "&lt;a name=\"" ^ text_anchor ^ "\" href=\"#" ^ 
-                        foot_anchor ^ "\"&gt;[" ^ string_of_int number ^ 
-                        "]&lt;/a&gt;" )
-
-    method footnote_to_html store ch =
-      (* prerequisite: we are in a definition list &lt;dl&gt;...&lt;/dl&gt; *)
-      let foot_anchor = 
-       "footnote" ^ string_of_int footnote_number in
-      let text_anchor =
-       "textnote" ^ string_of_int footnote_number in
-      output_string ch ("&lt;dt&gt;&lt;a name=\"" ^ foot_anchor ^ "\" href=\"#" ^ 
-                       text_anchor ^ "\"&gt;[" ^ string_of_int footnote_number ^ 
-                       "]&lt;/a&gt;&lt;/dt&gt;\n&lt;dd&gt;");
-      List.iter
-       (fun n -&gt; n # extension # to_html store ch)
-       (self # node # sub_nodes);
-      output_string ch ("\n&lt;/dd&gt;")
- 
-  end
-;;
-'>
-<!ENTITY readme.code.tag-map '
-open Pxp_yacc
-
-let tag_map =
-  make_spec_from_alist
-    ~data_exemplar:(new data_impl (new only_data))
-    ~default_element_exemplar:(new element_impl (new no_markup))
-    ~element_alist:
-      [ "readme", (new element_impl (new readme));
-       "sect1",  (new element_impl (new sect1));
-       "sect2",  (new element_impl (new sect2));
-       "sect3",  (new element_impl (new sect3));
-       "title",  (new element_impl (new no_markup));
-       "p",      (new element_impl (new p));
-       "br",     (new element_impl (new br));
-       "code",   (new element_impl (new code));
-       "em",     (new element_impl (new em));
-       "ul",     (new element_impl (new ul));
-       "li",     (new element_impl (new li));
-       "footnote", (new element_impl (new footnote : #shared :&gt; shared));
-       "a",      (new element_impl (new a));
-      ]
-    ()
-;;
-'>

diff --git a/helm/DEVEL/pxp/pxp/doc/manual/src/yacc.mli.ent b/helm/DEVEL/pxp/pxp/doc/manual/src/yacc.mli.ent
deleted file mode 100644 (file)
index 604918b..0000000
--- a/helm/DEVEL/pxp/pxp/doc/manual/src/yacc.mli.ent
+++ /dev/null
@@ -1,376 +0,0 @@
-<!ENTITY markup-yacc.mli '
-
-open Pxp_types
-open Pxp_dtd
-open Pxp_document
-
-exception ID_not_unique
-
-class type [ &apos;ext ] index =
-object 
-  (* The type of indexes over the ID attributes of the elements. This type
-   * is the minimum requirement needed by the parser to create such an index.
-   *)
-  constraint &apos;ext = &apos;ext node #extension
-  method add : string -&gt; &apos;ext node -&gt; unit
-    (* Add the passed node to the index. If there is already an ID with
-     * the passed string value, the exception ID_not_unique should be
-     * raised. (But the index is free also to accept several identical IDs.)
-     *)
-  method find : string -&gt; &apos;ext node
-    (* Finds the node with the passed ID value, or raises Not_found *)
-end
-;;
-
-
-class [ &apos;ext ] hash_index : 
-object 
-  (* This is a simple implementation of &apos;index&apos; using a hash table. *)
-  constraint &apos;ext = &apos;ext node #extension
-  method add : string -&gt; &apos;ext node -&gt; unit
-    (* See above. *)
-  method find : string -&gt; &apos;ext node
-    (* See above. *)
-  method index : (string, &apos;ext node) Hashtbl.t
-    (* Returns the hash table. *)
-end
-;;
-
-
-type config =
-    { warner : collect_warnings;
-         (* An object that collects warnings. *)
-
-      errors_with_line_numbers : bool;
-         (* Whether error messages contain line numbers or not. The parser
-         * is 10 to 20 per cent faster if line numbers are turned off;
-         * you get only byte positions in this case.
-         *)
-
-      enable_pinstr_nodes : bool;
-         (* true: turns a special mode for processing instructions on. Normally,
-         * you cannot determine the exact location of a PI; you only know
-         * in which element the PI occurs. This mode makes it possible
-         * to find the exact location out: Every PI is artificially wrapped
-         * by a special node with type T_pinstr. For example, if the XML text
-         * is &lt;a&gt;&lt;?x?&gt;&lt;?y?&gt;&lt;/a&gt;, the parser normally produces only an element
-         * object for "a", and puts the PIs "x" and "y" into it (without
-         * order). In this mode, the object "a" will contain two objects
-         * with type T_pinstr, and the first object will contain "x", and the
-         * second "y": the object tree looks like
-         * - Node with type = T_element "a"
-         *   - Node with type = T_pinstr "x"
-         *     + contains processing instruction "x"
-         *   - Node with type = T_pinstr "y"
-         *     + contains processing instruction "y"
-         *
-         * Notes:
-         * (1) In past versions of PXP this mode was called
-         *     processing_instructions_inline, and it produced nodes of
-         *     type T_element "-pi" instead of T_pinstr.
-         * (2) The T_pinstr nodes are created from the pinstr exemplars
-         *     in your spec
-         *)
-
-      enable_super_root_node : bool;
-         (* true: the topmost element of the XML tree is not the root element,
-         * but the so-called super root. The root element is a son of the
-         * super root. The super root is a node with type T_super_root.
-         * The following behaviour changes, too:
-         * - PIs occurring outside the root element and outside the DTD are
-         *   added to the super root instead of the document object
-         * - If enable_pinstr_nodes is also turned on, the PI wrappers
-         *   are added to the super root
-         *
-         * For example, the document
-         *   &lt;?x?&gt;&lt;a&gt;y&lt;/a&gt;&lt;?y?&gt;
-         * is normally represented by:
-         * - document object
-         *   + contains PIs x and y
-         *   - reference to root node with type = T_element "a"
-         *     - node with type = T_data: contains "y"
-         * With enabled super root node:
-         * - document object
-         *   - reference to super root node with type = T_super_root
-         *     + contains PIs x and y
-         *     - root node with type = T_element "a"
-         *       - node with type = T_data: contains "y"
-         * If also enable_pinstr_nodes:
-         * - document object
-         *   - reference to super root node with type = T_super_root
-         *     - node with type = T_pinstr "x"
-         *       + contains PI "x"
-         *     - root node with type = T_element "a"
-         *       - node with type = T_data: contains "y"
-         *     - node with type = T_pinstr "y"
-         *       + contains PI "y"
-         * Notes:
-         * (1) In previous versions of PXP this mode was called
-         *     virtual_root, and it produced an additional node of type
-         *     T_element "-vr" instead of T_super_root.
-         * (2) The T_super_root node is created from the super root exemplar
-         *     in your spec.
-         *)
-
-      enable_comment_nodes : bool;
-         (* When enabled, comments are represented as nodes with type =
-         * T_comment.
-         * To access the contents of comments, use the method "comment"
-         * for the comment nodes. 
-         * These nodes behave like elements; however, they are normally
-         * empty and do not have attributes. Note that it is possible to
-         * add children to comment nodes and to set attributes, but it is
-         * strongly recommended not to do so. There are no checks on
-         * such abnormal use, because they would cost too
-         * much time, even when no comment nodes are generated at all.
-         *
-         * Comment nodes should be disabled unless you must parse a 
-         * third-party XML text which uses comments as another data
-         * container.
-         *
-         * The nodes of type T_comment are created from the comment exemplars
-         * in your spec.
-         *)
-
-      encoding : rep_encoding;
-        (* Specifies the encoding used for the *internal* representation
-        * of any character data.
-        * Note that the default is still Enc_iso88591.
-        *)
-
-      recognize_standalone_declaration : bool;
-        (* Whether the "standalone" declaration is recognized or not.
-        * This option does not have an effect on well-formedness parsing:
-        * in this case such declarations are never recognized.
-        *
-        * Recognizing the "standalone" declaration means that the 
-        * value of the declaration is scanned and passed to the DTD,
-        * and that the "standalone-check" is performed. 
-        *
-        * Standalone-check: If a document is flagged standalone=&apos;yes&apos; 
-        * some additional constraints apply. The idea is that a parser
-        * without access to any external document subsets can still parse
-        * the document, and will still return the same values as the parser
-        * with such access. For example, if the DTD is external and if
-        * there are attributes with default values, it is checked that there
-        * is no element instance where these attributes are omitted - the
-        * parser would return the default value but this requires access to
-        * the external DTD subset.
-        *)
-
-      store_element_positions : bool;
-        (* Whether the file name, the line and the column of the
-        * beginning of elements are stored in the element nodes.
-        * This option may be useful to generate error messages.
-        * 
-        * Positions are only stored for:
-        * - Elements
-        * - Wrapped processing instructions (see enable_pinstr_nodes)
-        * For all other node types, no position is stored.
-        *
-        * You can access positions by the method "position" of nodes.
-        *)
-
-      idref_pass : bool;
-        (* Whether the parser does a second pass and checks that all
-        * IDREF and IDREFS attributes contain valid references.
-        * This option works only if an ID index is available. To create
-        * an ID index, pass an index object as id_index argument to the
-        * parsing functions (such as parse_document_entity; see below).
-        *
-        * "Second pass" does not mean that the XML text is again parsed;
-        * only the existing document tree is traversed, and the check
-        * on bad IDREF/IDREFS attributes is performed for every node.
-        *)
-
-      validate_by_dfa : bool;
-        (* If true, and if DFAs are available for validation, the DFAs will
-        * actually be used for validation.
-        * If false, or if no DFAs are available, the standard backtracking
-        * algorithm will be used.
-        * DFA = deterministic finite automaton.
-        *
-        * DFAs are only available if accept_only_deterministic_models is
-        * "true" (because in this case, it is relatively cheap to construct
-        * the DFAs). DFAs are a data structure which ensures that validation
-        * can always be performed in linear time.
-        *
-        * I strongly recommend using DFAs; however, there are examples
-        * for which validation by backtracking is faster.
-        *)
-
-      accept_only_deterministic_models : bool;
-        (* Whether only deterministic content models are accepted in DTDs. *)
-
-      (* The following options are not implemented, or only for internal
-       * use.
-       *)
-
-      debugging_mode : bool;
-    }
-
-
-type source =
-    Entity of ((dtd -&gt; Pxp_entity.entity) * Pxp_reader.resolver)
-  | ExtID of (ext_id * Pxp_reader.resolver)
-
-val from_channel : 
-      ?system_encoding:encoding -&gt; ?id:ext_id -&gt; ?fixenc:encoding -&gt; 
-      in_channel -&gt; source
-
-val from_string :
-      ?fixenc:encoding -&gt; string -&gt; source
-
-val from_file :
-      ?system_encoding:encoding -&gt; string -&gt; source
-
-(* Notes on sources (version 2):
- *
- * Sources specify where the XML text to parse comes from. Sources not only
- * represent character streams, but also external IDs (i.e. SYSTEM or PUBLIC
- * names), and they are interpreted as a specific encoding of characters.
- * A source should be associated with an external ID, because otherwise
- * it is not known how to handle relative names.
- *
- * There are two primary sources, Entity and ExtID, and several functions
- * for derived sources. First explanations for the functions:
- *
- * from_channel: The XML text is read from an in_channel. By default, the
- *   channel is not associated with an external ID, and it is impossible
- *   to resolve relative SYSTEM IDs found in the document.
- *   If the ?id argument is passed, it is assumed that the channel has this
- *   external ID. If relative SYSTEM IDs occur in the document, they can
- *   be interpreted; however, it is only possible to read from "file:"
- *   IDs.
- *   By default, the channel automatically detects the encoding. You can
- *   set a fixed encoding by passing the ?fixenc argument.
- *
- * from_string: The XML text is read from a string.
- *   It is impossible to read from any external entity whose reference is found
- *   in the string.
- *   By default, the encoding of the string is detected automatically. You can
- *   set a fixed encoding by passing the ?fixenc argument.
- *
- * from_file: The XML text is read from the file whose file name is
- *   passed to the function (as UTF-8 string).
- *   Relative system IDs can be interpreted by this function.
- *   The ?system_encoding argument specifies the character encoding used
- *   for file names (sic!). By default, UTF-8 is assumed.
- *
- * Examples:
- *
- * from_file "/tmp/file.xml": 
- *   reads from this file, which is assumed to have the ID 
- *   SYSTEM "file://localhost/tmp/file.xml".
- *
- * let ch = open_in "/tmp/file.xml" in
- * from_channel ~id:(System "file://localhost/tmp/file.xml") ch
- *   This does the same, but uses a channel.
- *
- * from_channel ~id:(System "http://host/file.xml")
- *              ch
- *   reads from the channel ch, and it is assumed that the ID is
- *   SYSTEM "http://host/file.xml". If there is any relative SYSTEM ID,
- *   it will be interpreted relative to this location; however, there is
- *   no way to read via HTTP.
- *   If there is any "file:" SYSTEM ID, it is possible to read the file.
- *
- * The primary sources:
- *
- * - ExtID(x,r): The identifier x (either the SYSTEM or the PUBLIC name) of the
- *   entity to read from is passed to the resolver, and the resolver finds
- *   the entity and opens it.
- *   The intention of this option is to allow customized
- *   resolvers to interpret external identifiers without any restriction.
- *   The Pxp_reader module contains several classes allowing the user to
- *   compose such a customized resolver from predefined components.
- *
- *   ExtID is the interface of choice for own extensions to resolvers.
- *
- * - Entity(m,r): You can implementy every behaviour by using a customized
- *   entity class. Once the DTD object d is known that will be used during
- *   parsing, the entity  e = m d  is determined and used together with the
- *   resolver r.
- *   This is only for hackers.
- *)
-
-
-
-val default_config : config
-  (* - Warnings are thrown away
-   * - Error messages will contain line numbers
-   * - Neither T_super_root nor T_pinstr nor T_comment nodes are generated
-   * - The internal encoding is ISO-8859-1
-   * - The standalone declaration is checked
-   * - Element positions are stored
-   * - The IDREF pass is left out
-   * - If available, DFAs are used for validation
-   * - Only deterministic content models are accepted
-   *) 
-
-val default_extension : (&apos;a node extension) as &apos;a
-  (* A "null" extension; an extension that does not extend the functionality *)
-
-val default_spec : (&apos;a node extension as &apos;a) spec
-  (* Specifies that you do not want to use extensions. *)
-
-val parse_dtd_entity : config -&gt; source -&gt; dtd
-  (* Parse an entity containing a DTD (external subset), and return this DTD. *)
-
-val extract_dtd_from_document_entity : config -&gt; source -&gt; dtd
-  (* Parses a closed document, i.e. a document beginning with &lt;!DOCTYPE...&gt;,
-   * and returns the DTD contained in the document.
-   * The parts of the document outside the DTD are actually not parsed,
-   * i.e. parsing stops when all declarations of the DTD have been read.
-   *)
-
-val parse_document_entity : 
-  ?transform_dtd:(dtd -&gt; dtd) -&gt;
-  ?id_index:(&apos;ext index) -&gt;
-  config -&gt; source -&gt; &apos;ext spec -&gt; &apos;ext document
-  (* Parse a closed document, i.e. a document beginning with &lt;!DOCTYPE...&gt;,
-   * and validate the contents of the document against the DTD contained
-   * and/or referenced in the document.
-   *
-   * If the optional argument ~transform_dtd is passed, the following 
-   * modification applies: After the DTD (both the internal and external
-   * subsets) has been parsed, the function ~transform_dtd is called,
-   * and the resulting DTD is actually used to validate the document.
-   *
-   * If the optional argument ~transform_dtd is missing, the parser
-   * behaves in the same way as if the identity were passed as ~transform_dtd.
-   *
-   * If the optional argument ~id_index is present, the parser adds
-   * any ID attribute to the passed index. An index is required to detect
-   * violations of the uniqueness of IDs.
-   *)
-
-val parse_wfdocument_entity : 
-  config -&gt; source -&gt; &apos;ext spec -&gt; &apos;ext document
-  (* Parse a closed document (see parse_document_entity), but do not
-   * validate it. Only checks on well-formedness are performed.
-   *)
-
-val parse_content_entity  : 
-  ?id_index:(&apos;ext index) -&gt;
-  config -&gt; source -&gt; dtd -&gt; &apos;ext spec -&gt; &apos;ext node
-  (* Parse a file representing a well-formed fragment of a document. The
-   * fragment must be a single element (i.e. something like &lt;a&gt;...&lt;/a&gt;;
-   * not a sequence like &lt;a&gt;...&lt;/a&gt;&lt;b&gt;...&lt;/b&gt;). The element is validated
-   * against the passed DTD, but it is not checked whether the element is
-   * the root element specified in the DTD.
-   *
-   * If the optional argument ~id_index is present, the parser adds
-   * any ID attribute to the passed index. An index is required to detect
-   * violations of the uniqueness of IDs.
-   *)
-
-val parse_wfcontent_entity : 
-  config -&gt; source -&gt; &apos;ext spec -&gt; &apos;ext node
-  (* Parse a file representing a well-formed fragment of a document
-   * (see parse_content_entity). The fragment is not validated, only
-   * checked for well-formedness.
-   *)
-  
-
-'>

diff --git a/helm/DEVEL/pxp/pxp/examples/Makefile b/helm/DEVEL/pxp/pxp/examples/Makefile
deleted file mode 100644 (file)
index 9343857..0000000
--- a/helm/DEVEL/pxp/pxp/examples/Makefile
+++ /dev/null
@@ -1,22 +0,0 @@
-.PHONY: all
-all:
-
-.PHONY: clean
-clean:
-
-.PHONY: CLEAN
-CLEAN: clean
-       $(MAKE) -C xmlforms CLEAN
-       $(MAKE) -C validate CLEAN
-       $(MAKE) -C readme CLEAN
-       $(MAKE) -C simple_transformation CLEAN
-
-.PHONY: distclean
-distclean: clean
-       rm -f *~
-       $(MAKE) -C xmlforms distclean
-       $(MAKE) -C validate distclean
-       $(MAKE) -C readme distclean
-       $(MAKE) -C simple_transformation distclean
-
-

diff --git a/helm/DEVEL/pxp/pxp/examples/readme/.cvsignore b/helm/DEVEL/pxp/pxp/examples/readme/.cvsignore
deleted file mode 100644 (file)
index 2395c19..0000000
--- a/helm/DEVEL/pxp/pxp/examples/readme/.cvsignore
+++ /dev/null
@@ -1,10 +0,0 @@
-*.cmi
-*.cmo
-*.cma
-*.cmx
-*.o
-*.a
-*.cmxa
-depend
-depend.pkg
-

diff --git a/helm/DEVEL/pxp/pxp/examples/readme/Makefile b/helm/DEVEL/pxp/pxp/examples/readme/Makefile
deleted file mode 100644 (file)
index df5f6ed..0000000
--- a/helm/DEVEL/pxp/pxp/examples/readme/Makefile
+++ /dev/null
@@ -1,34 +0,0 @@
-# make readme:         make bytecode executable
-# make readme.opt:     make native executable
-# make clean:          remove intermediate files
-# make CLEAN:           remove intermediate files (recursively)
-# make distclean:      remove any superflous files
-# make install
-#----------------------------------------------------------------------
-
-BIN = /usr/local/bin
-
-.PHONY: readme
-readme:
-       $(MAKE) -f Makefile.code readme
-
-.PHONY: readme.opt
-readme.opt:
-       $(MAKE) -f Makefile.code readme.opt
-
-
-.PHONY: clean
-clean:
-       rm -f *.cmi *.cmo *.cma *.cmx *.o *.a *.cmxa
-
-.PHONY: CLEAN
-CLEAN: clean
-
-.PHONY: distclean
-distclean: clean
-       rm -f *~ depend depend.pkg
-       rm -f readme readme.opt
-
-.PHONY: install
-install:
-       cp readme $(BIN)

diff --git a/helm/DEVEL/pxp/pxp/examples/readme/Makefile.code b/helm/DEVEL/pxp/pxp/examples/readme/Makefile.code
deleted file mode 100644 (file)
index 0514ddf..0000000
--- a/helm/DEVEL/pxp/pxp/examples/readme/Makefile.code
+++ /dev/null
@@ -1,57 +0,0 @@
-#----------------------------------------------------------------------
-# specific rules for this package:
-
-OBJECTS  = to_html.cmo to_text.cmo
-XOBJECTS = $(OBJECTS:.cmo=.cmx)
-ARCHIVE  = readme.cma
-XARCHIVE = readme.cmxa
-NAME     = readme
-REQUIRES = str pxp
-
-readme: $(ARCHIVE) main.cmo
-       ocamlfind ocamlc -o readme -custom -package "$(REQUIRES)" \
-               -linkpkg $(ARCHIVE) main.cmo 
-
-readme.opt: $(XARCHIVE) main.cmx
-       ocamlfind ocamlopt -o readme.opt -custom -package "$(REQUIRES)" \
-               -linkpkg $(XARCHIVE) main.cmx
-
-$(ARCHIVE): $(OBJECTS)
-       $(OCAMLC) -a -o $(ARCHIVE) $(OBJECTS)
-
-$(XARCHIVE): $(XOBJECTS)
-       $(OCAMLOPT) -a -o $(XARCHIVE) $(XOBJECTS)
-
-#----------------------------------------------------------------------
-# general rules:
-
-OPTIONS   =
-OCAMLC    = ocamlc -g $(OPTIONS) $(ROPTIONS)
-OCAMLOPT  = ocamlopt -p $(OPTIONS) $(ROPTIONS)
-OCAMLDEP  = ocamldep $(OPTIONS)
-OCAMLFIND = ocamlfind
-
-depend: *.ml *.mli 
-       $(OCAMLDEP) *.ml *.mli >depend
-
-depend.pkg: Makefile
-       $(OCAMLFIND) use -p ROPTIONS= $(REQUIRES) >depend.pkg
-
-.SUFFIXES: .cmo .cmi .cmx .ml .mli .mll .mly
-
-.ml.cmx:
-       $(OCAMLOPT) -c $<
-
-.ml.cmo:
-       $(OCAMLC) -c $<
-
-.mli.cmi:
-       $(OCAMLC) -c $<
-
-.mll.ml:
-       ocamllex $<
-
-*.mli:
-
-include depend
-include depend.pkg

diff --git a/helm/DEVEL/pxp/pxp/examples/readme/main.ml b/helm/DEVEL/pxp/pxp/examples/readme/main.ml
deleted file mode 100644 (file)
index 4e3837a..0000000
--- a/helm/DEVEL/pxp/pxp/examples/readme/main.ml
+++ /dev/null
@@ -1,108 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-open Pxp_types
-open Pxp_document
-open Pxp_yacc
-
-
-let rec print_error e =
-  prerr_endline(string_of_exn e)
-;;
-
-
-let run f a =
-  try f a with
-      e -> print_error e
-;;
-
-
-let convert_to_html filename =
-  (* read in style definition *)
-  let document =
-    parse_document_entity
-      { default_config with encoding = `Enc_iso88591 }
-      (from_file filename)
-      To_html.tag_map
-  in
-  let root = document # root in
-  let store = new To_html.store in
-  root # extension # to_html store stdout
-;;
-
-
-let convert_to_text filename =
-  (* read in style definition *)
-  let document =
-    parse_document_entity
-      default_config
-      (from_file filename)
-      To_text.tag_map
-  in
-  let root = document # root in
-  let store = new To_text.store in
-  let box = new To_text.box 79 79 in
-  root # extension # to_box store box;
-  box # output 0 0 stdout
-;;
-
-
-let main() =
-  let want_html = ref false in
-  let want_text = ref false in
-  let filename = ref None in
-  Arg.parse
-      [ "-html", Arg.Set want_html, 
-             "  convert file to html";
-       "-text", Arg.Set want_text,
-             "  convert file to text";
-      ]
-      (fun s -> 
-        match !filename with
-            None -> filename := Some s
-          | Some _ ->
-              raise (Arg.Bad "Multiple arguments not allowed."))
-      "usage: readme [ -text | -html ] input.xml >output";
-  let fn =
-    match !filename with
-       None -> 
-         prerr_endline "readme: no input";
-         exit 1
-      | Some s -> s
-  in
-  match !want_html, !want_text with
-      true, false ->
-       run convert_to_html fn
-    | false, true ->
-       run convert_to_text fn
-    | _ ->
-       prerr_endline ("readme: Please select exactly one output format")
-;;
-
-main();;
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:31  lpadovan
- * Initial revision
- *
- * Revision 1.5  2000/07/08 17:58:17  gerd
- *     Updated because of PXP API changes.
- *
- * Revision 1.4  2000/06/04 20:25:38  gerd
- *     Updates because of renamed PXP modules.
- *
- * Revision 1.3  2000/05/01 16:46:40  gerd
- *     Using the new error formatter.
- *
- * Revision 1.2  1999/08/23 16:54:19  gerd
- *     Minor changes.
- *
- * Revision 1.1  1999/08/22 22:29:32  gerd
- *     Initial revision.
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/examples/readme/readme.dtd b/helm/DEVEL/pxp/pxp/examples/readme/readme.dtd
deleted file mode 100644 (file)
index 8ff6a9f..0000000
--- a/helm/DEVEL/pxp/pxp/examples/readme/readme.dtd
+++ /dev/null
@@ -1,38 +0,0 @@
-<!-- $Id -->
-
-<!ENTITY % p.like "p|ul">
-<!ENTITY % text   "br|code|em|footnote|a">
-
-<!ELEMENT readme (sect1+)>
-<!ATTLIST readme
-          title CDATA #REQUIRED>
-
-<!ELEMENT sect1 (title,(sect2|%p.like;)+)>
-
-<!ELEMENT sect2 (title,(sect3|%p.like;)+)>
-
-<!ELEMENT sect3 (title,(%p.like;)+)>
-
-<!ELEMENT title (#PCDATA|br)*>
-
-<!ELEMENT p (#PCDATA|%text;)*>
-
-<!ELEMENT br EMPTY>
-
-<!ELEMENT code (#PCDATA)>
-
-<!ELEMENT em (#PCDATA|%text;)*>
-
-<!ELEMENT ul (li+)>
-
-<!ELEMENT li (%p.like;)*>
-
-<!ELEMENT footnote (#PCDATA|%text;)*>
-
-<!ELEMENT a (#PCDATA)*>
-<!ATTLIST a 
-          href      CDATA #IMPLIED
-          readmeref CDATA #IMPLIED
->
-
-

diff --git a/helm/DEVEL/pxp/pxp/examples/readme/to_html.ml b/helm/DEVEL/pxp/pxp/examples/readme/to_html.ml
deleted file mode 100644 (file)
index f717b22..0000000
--- a/helm/DEVEL/pxp/pxp/examples/readme/to_html.ml
+++ /dev/null
@@ -1,432 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-(*$ readme.code.header *)
-open Pxp_types
-open Pxp_document
-(*$-*)
-
-
-(*$ readme.code.footnote-printer *)
-class type footnote_printer =
-  object
-    method footnote_to_html : store_type -> out_channel -> unit
-  end
-
-and store_type =
-  object
-    method alloc_footnote : footnote_printer -> int
-    method print_footnotes : out_channel -> unit
-  end
-;;
-(*$-*)
-
-
-(*$ readme.code.store *)
-class store =
-  object (self)
-
-    val mutable footnotes = ( [] : (int * footnote_printer) list )
-    val mutable next_footnote_number = 1
-
-    method alloc_footnote n =
-      let number = next_footnote_number in
-      next_footnote_number <- number+1;
-      footnotes <- footnotes @ [ number, n ];
-      number
-
-    method print_footnotes ch =
-      if footnotes <> [] then begin
-       output_string ch "<hr align=left noshade=noshade width=\"30%\">\n";
-       output_string ch "<dl>\n";
-       List.iter
-         (fun (_,n) -> 
-            n # footnote_to_html (self : #store_type :> store_type) ch)
-         footnotes;
-       output_string ch "</dl>\n";
-      end
-
-  end
-;;
-(*$-*)
-
-
-
-(*$ readme.code.escape-html *)
-let escape_html s =
-  Str.global_substitute
-    (Str.regexp "<\\|>\\|&\\|\"")
-    (fun s ->
-      match Str.matched_string s with
-        "<" -> "&lt;"
-      | ">" -> "&gt;"
-      | "&" -> "&amp;"
-      | "\"" -> "&quot;"
-      | _ -> assert false)
-    s
-;;
-(*$-*)
-
-
-(*$ readme.code.shared *)
-class virtual shared =
-  object (self)
-
-    (* --- default_ext --- *)
-
-    val mutable node = (None : shared node option)
-
-    method clone = {< >} 
-    method node =
-      match node with
-          None ->
-            assert false
-        | Some n -> n
-    method set_node n =
-      node <- Some n
-
-    (* --- virtual --- *)
-
-    method virtual to_html : store -> out_channel -> unit
-
-  end
-;;
-(*$-*)
-
-
-(*$ readme.code.only-data *)
-class only_data =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      output_string ch (escape_html (self # node # data))
-  end
-;;
-(*$-*)
-
-
-(*$ readme.code.no-markup *)
-class no_markup =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      List.iter
-       (fun n -> n # extension # to_html store ch)
-       (self # node # sub_nodes)
-  end
-;;
-(*$-*)
-
-
-(*$ readme.code.readme *)
-class readme =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      (* output header *)
-      output_string 
-       ch "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\">";
-      output_string
-       ch "<!-- WARNING! This is a generated file, do not edit! -->\n";
-      let title = 
-       match self # node # attribute "title" with
-           Value s -> s
-         | _ -> assert false
-      in
-      let html_header, _ =
-       try (self # node # dtd # par_entity "readme:html:header") 
-            # replacement_text
-       with WF_error _ -> "", false in
-      let html_trailer, _ =
-       try (self # node # dtd # par_entity "readme:html:trailer")
-            # replacement_text
-       with WF_error _ -> "", false in
-      let html_bgcolor, _ =
-       try (self # node # dtd # par_entity "readme:html:bgcolor")
-            # replacement_text
-       with WF_error _ -> "white", false in
-      let html_textcolor, _ =
-       try (self # node # dtd # par_entity "readme:html:textcolor")
-            # replacement_text
-       with WF_error _ -> "", false in
-      let html_alinkcolor, _ =
-       try (self # node # dtd # par_entity "readme:html:alinkcolor")
-            # replacement_text
-       with WF_error _ -> "", false in
-      let html_vlinkcolor, _ =
-       try (self # node # dtd # par_entity "readme:html:vlinkcolor")
-            # replacement_text
-       with WF_error _ -> "", false in
-      let html_linkcolor, _ =
-       try (self # node # dtd # par_entity "readme:html:linkcolor")
-            # replacement_text
-       with WF_error _ -> "", false in
-      let html_background, _ =
-       try (self # node # dtd # par_entity "readme:html:background")
-            # replacement_text
-       with WF_error _ -> "", false in
-
-      output_string ch "<html><header><title>\n";
-      output_string ch (escape_html title);
-      output_string ch "</title></header>\n";
-      output_string ch "<body ";
-      List.iter
-       (fun (name,value) ->
-          if value <> "" then 
-            output_string ch (name ^ "=\"" ^ escape_html value ^ "\" "))
-       [ "bgcolor",    html_bgcolor;
-         "text",       html_textcolor;
-         "link",       html_linkcolor;
-         "alink",      html_alinkcolor;
-         "vlink",      html_vlinkcolor;
-       ];
-      output_string ch ">\n";
-      output_string ch html_header;
-      output_string ch "<h1>";
-      output_string ch (escape_html title);
-      output_string ch "</h1>\n";
-      (* process main content: *)
-      List.iter
-       (fun n -> n # extension # to_html store ch)
-       (self # node # sub_nodes);
-      (* now process footnotes *)
-      store # print_footnotes ch;
-      (* trailer *)
-      output_string ch html_trailer;
-      output_string ch "</html>\n";
-
-  end
-;;
-(*$-*)
-
-
-(*$ readme.code.section *)
-class section the_tag =
-  object (self)
-    inherit shared
-
-    val tag = the_tag
-
-    method to_html store ch =
-      let sub_nodes = self # node # sub_nodes in
-      match sub_nodes with
-         title_node :: rest ->
-           output_string ch ("<" ^ tag ^ ">\n");
-           title_node # extension # to_html store ch;
-           output_string ch ("\n</" ^ tag ^ ">");
-           List.iter
-             (fun n -> n # extension # to_html store ch)
-             rest
-       | _ ->
-           assert false
-  end
-;;
-
-class sect1 = section "h1";;
-class sect2 = section "h3";;
-class sect3 = section "h4";;
-(*$-*)
-
-
-(*$ readme.code.map-tag *)
-class map_tag the_target_tag =
-  object (self)
-    inherit shared
-
-    val target_tag = the_target_tag
-
-    method to_html store ch =
-      output_string ch ("<" ^ target_tag ^ ">\n");
-      List.iter
-       (fun n -> n # extension # to_html store ch)
-       (self # node # sub_nodes);
-      output_string ch ("\n</" ^ target_tag ^ ">");
-  end
-;;
-
-class p = map_tag "p";;
-class em = map_tag "b";;
-class ul = map_tag "ul";;
-class li = map_tag "li";;
-(*$-*)
-
-
-(*$ readme.code.br *)
-class br =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      output_string ch "<br>\n";
-      List.iter
-       (fun n -> n # extension # to_html store ch)
-       (self # node # sub_nodes);
-  end
-;;
-(*$-*)
-
-
-(*$ readme.code.code *)
-class code =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      let data = self # node # data in
-      (* convert tabs *)
-      let l = String.length data in
-      let rec preprocess i column =
-       (* this is very ineffective but comprehensive: *)
-       if i < l then
-         match data.[i] with
-             '\t' ->
-               let n = 8 - (column mod 8) in
-               String.make n ' ' ^ preprocess (i+1) (column + n)
-           | '\n' ->
-               "\n" ^ preprocess (i+1) 0
-           | c ->
-               String.make 1 c ^ preprocess (i+1) (column + 1)
-       else
-         ""
-      in
-      output_string ch "<p><pre>";
-      output_string ch (escape_html (preprocess 0 0));
-      output_string ch "</pre></p>";
-
-  end
-;;
-(*$-*)
-
-
-(*$ readme.code.a *)
-class a =
-  object (self)
-    inherit shared
-
-    method to_html store ch =
-      output_string ch "<a ";
-      let href =
-       match self # node # attribute "href" with
-           Value v -> escape_html v
-         | Valuelist _ -> assert false
-         | Implied_value ->
-             begin match self # node # attribute "readmeref" with
-                 Value v -> escape_html v ^ ".html"
-               | Valuelist _ -> assert false
-               | Implied_value ->
-                   ""
-             end
-      in
-      if href <> "" then
-       output_string ch ("href=\""  ^ href ^ "\"");
-      output_string ch ">";
-      output_string ch (escape_html (self # node # data));
-      output_string ch "</a>";
-       
-  end
-;;
-(*$-*)
-
-
-(*$ readme.code.footnote *)
-class footnote =
-  object (self)
-    inherit shared
-
-    val mutable footnote_number = 0
-
-    method to_html store ch =
-      let number = 
-       store # alloc_footnote (self : #shared :> footnote_printer) in
-      let foot_anchor = 
-       "footnote" ^ string_of_int number in
-      let text_anchor =
-       "textnote" ^ string_of_int number in
-      footnote_number <- number;
-      output_string ch ( "<a name=\"" ^ text_anchor ^ "\" href=\"#" ^ 
-                        foot_anchor ^ "\">[" ^ string_of_int number ^ 
-                        "]</a>" )
-
-    method footnote_to_html store ch =
-      (* prerequisite: we are in a definition list <dl>...</dl> *)
-      let foot_anchor = 
-       "footnote" ^ string_of_int footnote_number in
-      let text_anchor =
-       "textnote" ^ string_of_int footnote_number in
-      output_string ch ("<dt><a name=\"" ^ foot_anchor ^ "\" href=\"#" ^ 
-                       text_anchor ^ "\">[" ^ string_of_int footnote_number ^ 
-                       "]</a></dt>\n<dd>");
-      List.iter
-       (fun n -> n # extension # to_html store ch)
-       (self # node # sub_nodes);
-      output_string ch ("\n</dd>")
- 
-  end
-;;
-(*$-*)
-
-
-(**********************************************************************)
-
-(*$ readme.code.tag-map *)
-open Pxp_yacc
-
-let tag_map =
-  make_spec_from_alist
-    ~data_exemplar:(new data_impl (new only_data))
-    ~default_element_exemplar:(new element_impl (new no_markup))
-    ~element_alist:
-      [ "readme", (new element_impl (new readme));
-       "sect1",  (new element_impl (new sect1));
-       "sect2",  (new element_impl (new sect2));
-       "sect3",  (new element_impl (new sect3));
-       "title",  (new element_impl (new no_markup));
-       "p",      (new element_impl (new p));
-       "br",     (new element_impl (new br));
-       "code",   (new element_impl (new code));
-       "em",     (new element_impl (new em));
-       "ul",     (new element_impl (new ul));
-       "li",     (new element_impl (new li));
-       "footnote", (new element_impl (new footnote : #shared :> shared));
-       "a",      (new element_impl (new a));
-      ]
-    ()
-;;
-(*$-*)
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:31  lpadovan
- * Initial revision
- *
- * Revision 1.6  2000/08/22 14:34:25  gerd
- *     Using make_spec_from_alist instead of make_spec_from_mapping.
- *
- * Revision 1.5  2000/08/18 21:15:14  gerd
- *     Update because of PXP API change: par_entity raises WF_error
- * instead of Validation error if the entity is not defined.
- *     Further minor updates.
- *
- * Revision 1.4  2000/07/08 17:58:17  gerd
- *     Updated because of PXP API changes.
- *
- * Revision 1.3  2000/06/04 20:25:38  gerd
- *     Updates because of renamed PXP modules.
- *
- * Revision 1.2  1999/09/12 20:09:32  gerd
- *     Added section marks.
- *
- * Revision 1.1  1999/08/22 22:29:32  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/examples/readme/to_text.ml b/helm/DEVEL/pxp/pxp/examples/readme/to_text.ml
deleted file mode 100644 (file)
index fc45f45..0000000
--- a/helm/DEVEL/pxp/pxp/examples/readme/to_text.ml
+++ /dev/null
@@ -1,599 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-open Pxp_types
-open Pxp_document
-
-
-(**********************************************************************)
-(* The box class represents formatted text                            *)
-(**********************************************************************)
-
-class type formatted_text =
-  object
-    method output : int -> int -> out_channel -> unit
-       (* output initial_indent indent ch:
-        * 'initial_indent' is how far the first line should be indented;
-        * 'indent' how far the rest. 'ch' is the channel on which the lines
-        * are to be printed.
-        *)
-
-    method multiline : bool
-        (* whether the box occupies multiple lines *)
-
-    method width_of_last_line : int
-        (* returns the width of the last line *)
-  end
-;;
-
-
-type text =
-    Text of string
-  | Box of formatted_text
-;;
-
-
-let textwidth tl =
-  let rec compute tl r =
-    match tl with
-       [] -> r
-      | t :: tl' ->
-         begin match t with
-             Text s ->
-                compute tl' (r + String.length s)
-           | Box b ->
-               if b # multiline then
-                 compute tl' (b # width_of_last_line)
-               else
-                 compute tl' (r + b # width_of_last_line)
-         end
-  in
-  compute (List.rev tl) 0
-;;
-
-
-class box the_initial_width the_width =
-  object (self)
-
-    (* The 'initial_width' is the width that is available on the first
-     * line of output; the 'width' is the width that is available in the
-     * rest.
-     *)
-
-    val initial_width = the_initial_width
-    val width = the_width
-
-    (* state: *)
-
-    val mutable space_added = false
-    val mutable linefeed_added = false
-    val mutable is_first_line = true
-    val mutable lines = []
-        (* lines in reverse order (first line = last element) *)
-    val mutable current_line = []
-        (* not member of 'lines'; again reverse order *)
-    val mutable current_indent = 0
-
-    method add_space =
-      if not space_added then begin
-       space_added <- true;
-       linefeed_added <- true;
-       current_line <- Text " " :: current_line
-      end
-
-    method ignore_space =
-      space_added <- true;
-      linefeed_added <- true
-
-    method add_linefeed =
-      if not linefeed_added then begin
-       linefeed_added <- true;
-       if not space_added then
-         current_line <- Text " " :: current_line
-      end
-
-    method ignore_linefeed =
-      linefeed_added <- true
-
-    method add_newline =
-      lines <- current_line :: lines;
-      current_line <- [];
-      space_added <- true;
-      linefeed_added <- true;
-      is_first_line <- false;
-      current_indent <- 0;
-
-    method add_word s =
-      (* first try to add 's' to 'current_line' *)
-      let current_line' = Text s :: current_line in
-      let current_width =
-       if is_first_line then initial_width else width in
-      if textwidth current_line' + current_indent <= current_width then begin
-       (* ok, the line does not become too long *)
-       current_line <- current_line';
-       space_added <- false;
-       linefeed_added <- false
-      end
-      else begin
-       (* The line would be too long. *)
-       lines <- current_line :: lines;
-       current_line <- [Text s];
-       space_added <- false;
-       linefeed_added <- false;
-       is_first_line <- false;
-       current_indent <- 0;
-      end
-
-    method add_box b =
-      current_line <- Box b :: current_line;
-      space_added <- false;
-      linefeed_added <- false;
- 
-
-    method width_of_last_line =
-      textwidth current_line + current_indent
-
-
-    method available_width =
-      let current_width =
-       if is_first_line then initial_width else width in
-      current_width - textwidth current_line - current_indent
-  
-
-    method multiline =
-      lines <> [] or
-      (List.exists 
-        (function 
-             Text _ -> false
-           | Box b -> b # multiline) 
-        current_line)
-
-    method output initial_indent indent ch =
-      let eff_lines =
-       List.rev
-         (current_line :: lines) in
-      let rec out_lines cur_indent ll =
-       match ll with
-           [] ->  ()
-         | l :: ll' ->
-             output_string ch (String.make cur_indent ' ');
-             List.iter
-               (function
-                    Text s ->
-                      output_string ch s
-                  | Box b ->
-                      b # output 0 indent ch
-               )
-               (List.rev l);
-             if ll' <> [] then 
-               output_string ch "\n";
-             out_lines indent ll'
-      in
-      out_lines initial_indent eff_lines
-  end
-;;
-
-
-class listitem_box listmark indent totalwidth =
-  let initial_newline = String.length listmark >= indent in
-  object (self)
-    inherit box totalwidth (totalwidth - indent) as super
-
-    val extra_indent = indent
-
-    initializer
-    self # add_word listmark;
-    if initial_newline then
-      self # add_newline
-    else begin
-      current_line <- Text (String.make (indent - String.length listmark) ' ')
-                      :: current_line;
-      space_added <- true;
-      linefeed_added <- true;
-    end
-
-
-    method output initial_indent indent ch =
-      super # output initial_indent (indent + extra_indent) ch
-  end
-;;
-      
-
-(**********************************************************************)
-(* Footnotes etc.                                                     *)
-(**********************************************************************)
-
-
-class type footnote_printer =
-  object
-    method footnote_to_box : store_type -> box -> unit
-  end
-
-and store_type =
-  object
-    method alloc_footnote : footnote_printer -> int
-    method print_footnotes : box -> unit
-  end
-;;
-
-
-class store =
-  object (self)
-
-    val mutable footnotes = ( [] : (int * footnote_printer) list )
-    val mutable next_footnote_number = 1
-
-    method alloc_footnote n =
-      let number = next_footnote_number in
-      next_footnote_number <- number+1;
-      footnotes <- footnotes @ [ number, n ];
-      number
-
-    method print_footnotes (b : box) =
-      if footnotes <> [] then begin
-       b # add_newline;
-       b # add_newline;
-       let w = b # available_width in
-       b # add_word (String.make (w/3) '-');
-       b # add_newline;
-       b # add_newline;
-       List.iter
-         (fun (_,n) -> 
-            n # footnote_to_box (self : #store_type :> store_type) b)
-         footnotes;
-       b # add_newline;
-      end
-  end
-;;
-
-
-
-(**********************************************************************)
-(* The extension objects                                              *)
-(**********************************************************************)
-
-
-class virtual shared =
-  object (self)
-
-    (* --- default_ext --- *)
-
-    val mutable node = (None : shared node option)
-
-    method clone = {< >} 
-    method node =
-      match node with
-          None ->
-            assert false
-        | Some n -> n
-    method set_node n =
-      node <- Some n
-
-    (* --- virtual --- *)
-
-    method virtual to_box : store -> box -> unit
-      (* to_box store b:
-       * formats the element using box 'b' 
-       *)
-  end
-;;
-
-
-class only_data =
-  object (self)
-    inherit shared
-
-    val white_space_re = Str.regexp "[ \t]+\\|\n"
-
-    method to_box store b =
-      let s = self # node # data in
-      let splitted = Str.full_split white_space_re s in
-      List.iter
-       (function
-            Str.Delim "\n" ->
-              b # add_linefeed
-          | Str.Delim _ ->
-              b # add_space
-          | Str.Text s ->
-              b # add_word s)
-       splitted
-  end
-;;
-
-
-class no_markup =
-  object (self)
-    inherit shared
-
-    method to_box store b =
-      List.iter
-       (fun n -> n # extension # to_box store b)
-       (self # node # sub_nodes)
-  end
-;;
-
-
-class readme =
-  object (self)
-    inherit shared
-
-    method to_box store b =
-      let title = 
-       match self # node # attribute "title" with
-           Value s -> s
-         | _ -> assert false
-      in
-      let w = b # available_width in
-      let line = String.make (w-1) '*' in
-      b # add_word line;
-      b # add_newline;
-      b # add_word title;
-      b # add_newline;
-      b # add_word line;
-      b # add_newline;
-      b # add_newline;
-      (* process main content: *)
-      List.iter
-       (fun n -> n # extension # to_box store b)
-       (self # node # sub_nodes);
-      (* now process footnotes *)
-      store # print_footnotes b;
-      (* trailer *)
-      b # add_newline;
-  end
-;;
-
-
-class section the_tag =
-  object (self)
-    inherit shared
-
-    val tag = the_tag
-
-    method to_box store b =
-      let sub_nodes = self # node # sub_nodes in
-      match sub_nodes with
-         title_node :: rest ->
-           b # add_newline;
-           let w = b # available_width in
-           let line = String.make (w-1) tag in
-           b # add_word line;
-           b # add_newline;
-           b # add_word (title_node # data);
-           b # add_newline;
-           b # add_word line;
-           b # add_newline;
-           List.iter
-             (fun n -> 
-                n # extension # to_box store b)
-             rest;
-       | _ ->
-           assert false
-  end
-;;
-
-class sect1 = section '=';;
-class sect2 = section '-';;
-class sect3 = section ':';;
-
-
-class p =
-  object (self)
-    inherit shared
-  
-    method to_box store b =
-      let within_list = 
-       match self # node # parent # node_type with
-           T_element "li" -> true
-         | T_element _    -> false 
-         | _ -> assert false
-      in
-      if not within_list then
-       b # add_newline;
-      let w = b # available_width in
-      let b' = new box w w in
-      b' # ignore_space;
-      List.iter
-       (fun n -> n # extension # to_box store b')
-       (self # node # sub_nodes);
-      b # add_box (b' :> formatted_text);
-      b # add_newline;
-  end
-;;
-
-
-class li =
-  object (self)
-    inherit shared
-  
-    method to_box store b =
-      b # add_newline;
-      let w = b # available_width in
-      let b' = new listitem_box "-" 3 w in
-      b' # ignore_space;
-      List.iter
-       (fun n -> n # extension # to_box store b')
-       (self # node # sub_nodes);
-      b # add_box (b' :> formatted_text);
-  end
-;;
-
-
-class code =
-  object (self)
-    inherit shared
-  
-    method to_box store b =
-      b # add_newline;
-      let w = b # available_width in
-      let b' = new box w w in
-      b' # ignore_space;
-      let data = self # node # data in
-      (* convert tabs *)
-      let l = String.length data in
-      let rec add s i column =
-       (* this is very ineffective but comprehensive: *)
-       if i < l then
-         match data.[i] with
-             '\t' ->
-               let n = 8 - (column mod 8) in
-               add (s ^ String.make n ' ') (i+1) (column + n)
-           | '\n' ->
-               b' # add_word s;
-               b' # add_newline;
-               add "" (i+1) 0
-           | c ->
-               add (s ^ String.make 1 c) (i+1) (column + 1)
-       else
-         if s <> "" then begin
-           b' # add_word s;
-           b' # add_newline;
-         end
-      in
-      add "" 0 0;
-      b # add_box (b' :> formatted_text);
-      b # add_newline;
-  end
-;;
-
-
-class br =
-  object (self)
-    inherit shared
-
-    method to_box store b =
-      b # add_newline;
-  end
-;;
-
-
-class footnote =
-  object (self)
-    inherit shared
-
-    val mutable footnote_number = 0
-
-    method to_box store b =
-      let number = 
-       store # alloc_footnote (self : #shared :> footnote_printer) in
-      footnote_number <- number;
-      b # add_space;
-      b # add_word ("[" ^ string_of_int number ^ "]");
-
-    method footnote_to_box store b =
-      let w = b # available_width in
-      let n = "[" ^ string_of_int footnote_number ^ "]" in
-      let b' = new listitem_box n 6 w in
-      b' # ignore_space;
-      List.iter
-       (fun n -> n # extension # to_box store b')
-       (self # node # sub_nodes);
-      b # add_box (b' :> formatted_text);
-      b # add_newline;
-      b # add_newline;
- 
-  end
-;;
-
-
-class a =
-  object (self)
-    inherit shared
-
-    val mutable footnote_number = 0
-    val mutable a_href = ""
-
-    method to_box store b =
-      let href =
-       match self # node # attribute "href" with
-           Value v -> "see " ^ v
-         | Valuelist _ -> assert false
-         | Implied_value ->
-             begin match self # node # attribute "readmeref" with
-                 Value v -> "see file " ^ v 
-               | Valuelist _ -> assert false
-               | Implied_value ->
-                   ""
-             end
-      in
-      a_href <- href;
-      List.iter
-       (fun n -> n # extension # to_box store b)
-       (self # node # sub_nodes);
-      if href <> "" then begin
-       let number = 
-         store # alloc_footnote (self : #shared :> footnote_printer) in
-       footnote_number <- number;
-       b # add_space;
-       b # add_word ("[" ^ string_of_int number ^ "]");
-      end
-
-    method footnote_to_box store b =
-      if a_href <> "" then begin
-       let w = b # available_width in
-       let n = "[" ^ string_of_int footnote_number ^ "]" in
-       let b' = new listitem_box n 6 w in
-       b' # ignore_space;
-       b' # add_word a_href;
-       b # add_box (b' :> formatted_text);
-       b # add_newline;
-       b # add_newline;
-      end      
-  end
-;;
-
-(**********************************************************************)
-
-open Pxp_yacc
-
-let tag_map =
-  make_spec_from_alist
-    ~data_exemplar:(new data_impl (new only_data))
-    ~default_element_exemplar:(new element_impl (new no_markup))
-    ~element_alist:
-       [ "readme",   (new element_impl (new readme));
-        "sect1",    (new element_impl (new sect1));
-        "sect2",    (new element_impl (new sect2));
-        "sect3",    (new element_impl (new sect3));
-        "title",    (new element_impl (new no_markup));
-        "p",        (new element_impl (new p));
-        "br",       (new element_impl (new br));
-        "code",     (new element_impl (new code));
-        "em",       (new element_impl (new no_markup));
-        "ul",       (new element_impl (new no_markup));
-        "li",       (new element_impl (new li));
-        "footnote", (new element_impl (new footnote : #shared :> shared));
-        "a",        (new element_impl (new a : #shared :> shared));
-       ]
-    ()
-;;
-
-
-    
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:31  lpadovan
- * Initial revision
- *
- * Revision 1.5  2000/08/22 14:34:25  gerd
- *     Using make_spec_from_alist instead of make_spec_from_mapping.
- *
- * Revision 1.4  2000/08/18 21:15:25  gerd
- *     Minor updates because of PXP API changes.
- *
- * Revision 1.3  2000/07/08 17:58:17  gerd
- *     Updated because of PXP API changes.
- *
- * Revision 1.2  2000/06/04 20:25:38  gerd
- *     Updates because of renamed PXP modules.
- *
- * Revision 1.1  1999/08/22 22:29:32  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/examples/simple_transformation/Makefile b/helm/DEVEL/pxp/pxp/examples/simple_transformation/Makefile
deleted file mode 100644 (file)
index 27be18c..0000000
--- a/helm/DEVEL/pxp/pxp/examples/simple_transformation/Makefile
+++ /dev/null
@@ -1,21 +0,0 @@
-all: print sort delcol
-
-print: print.ml
-       ocamlfind ocamlc -o print -package pxp -linkpkg -custom \
-               -predicates pxp_without_utf8 print.ml
-
-sort: sort.ml
-       ocamlfind ocamlc -o sort -package pxp -linkpkg -custom \
-               -predicates pxp_without_utf8 sort.ml
-
-delcol: delcol.ml
-       ocamlfind ocamlc -o delcol -package pxp -linkpkg -custom \
-               -predicates pxp_without_utf8 delcol.ml
-
-clean:
-       rm -f *.cmo *.cma *.cmi *.cmxa *.a *.o
-
-distclean: clean
-       rm -f *~ print sort delcol
-
-CLEAN: clean

diff --git a/helm/DEVEL/pxp/pxp/examples/simple_transformation/README b/helm/DEVEL/pxp/pxp/examples/simple_transformation/README
deleted file mode 100644 (file)
index 5b92128..0000000
--- a/helm/DEVEL/pxp/pxp/examples/simple_transformation/README
+++ /dev/null
@@ -1,17 +0,0 @@
-Usage:
-       sort -by phone <sample.xml | print
-
-once sort and print are compiled.
-
-These examples illustrate iter_tree, map_tree and find_element.
-
-
-sort:  reads an XML file from stdin, sorts the records, and prints the
-       result as XML.
-delcol: reads an XML file from stdin, deletes a column from all records,
-       and prints the result as XML.
-print: reads an XML file from stdin, and pretty-prints the file
-
-The XML file must not contain a DTD. The programs assume the fixed DTD
-record.dtd.
-

diff --git a/helm/DEVEL/pxp/pxp/examples/simple_transformation/delcol.ml b/helm/DEVEL/pxp/pxp/examples/simple_transformation/delcol.ml
deleted file mode 100644 (file)
index 57c3327..0000000
--- a/helm/DEVEL/pxp/pxp/examples/simple_transformation/delcol.ml
+++ /dev/null
@@ -1,69 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(* Read a record-list, delete a column, and print it as XML *)
-open Pxp_types;;
-open Pxp_document;;
-open Pxp_yacc;;
-
-let delcol col tree =
-  map_tree
-    ~pre:
-      (fun n -> 
-        match n # node_type with
-            T_element name when name = col ->
-              raise Skip
-          | _ -> n # orphaned_flat_clone)
-    tree
-;;
-
-
-let main() =
-  let column = ref "" in
-  Arg.parse
-      [ "-col", Arg.String (fun s -> column := s),
-           " (last-name|first-name|phone)";
-      ]
-      (fun _ -> raise (Arg.Bad "Bad usage"))
-      "usage: sort [ options ]";
-  if !column = "" then (
-    prerr_endline "Column not specified!";
-    exit 1;
-  );
-  if not(List.mem !column ["last-name"; "first-name"; "phone"]) then (
-    prerr_endline ("Unknown column: " ^ !column);
-    exit 1
-  );
-  try
-    let dtd = parse_dtd_entity default_config (from_file "record.dtd") in
-    let tree = 
-      parse_content_entity default_config (from_channel stdin) dtd default_spec
-    in
-    print_endline "<?xml encoding='ISO-8859-1'?>";
-    (delcol !column tree) # write (Out_channel stdout) `Enc_iso88591
-  with
-      x ->
-       prerr_endline(string_of_exn x);
-       exit 1
-;;
-
-
-main();;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/08/24 09:42:52  gerd
- *     Updated a comment.
- *
- * Revision 1.1  2000/08/24 09:39:59  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/examples/simple_transformation/print.ml b/helm/DEVEL/pxp/pxp/examples/simple_transformation/print.ml
deleted file mode 100644 (file)
index 56f5fb6..0000000
--- a/helm/DEVEL/pxp/pxp/examples/simple_transformation/print.ml
+++ /dev/null
@@ -1,60 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(* Read a record-list structure and print it *)
-open Pxp_types;;
-open Pxp_document;;
-open Pxp_yacc;;
-
-let print tree =
-  iter_tree
-    ~pre:
-      (fun n ->
-        match n # node_type with
-            T_element "last-name" ->
-              print_endline ("Last name: " ^ n # data)
-          | T_element "first-name" ->
-              print_endline ("First name: " ^ n # data)
-          | T_element "phone" ->
-              print_endline ("Telephone number: " ^ n # data)
-          | _ ->
-              ())
-    ~post:
-      (fun n ->
-        match n # node_type with
-            T_element "record" -> 
-              print_newline()
-          | _ ->
-              ())
-    tree
-;;
-
-let main() =
-  try
-    let dtd = parse_dtd_entity default_config (from_file "record.dtd") in
-    let tree = 
-      parse_content_entity default_config (from_channel stdin) dtd default_spec in
-    print tree
-  with
-      x ->
-       prerr_endline(string_of_exn x);
-       exit 1
-;;
-
-
-main();;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/08/22 21:57:43  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/examples/simple_transformation/record.dtd b/helm/DEVEL/pxp/pxp/examples/simple_transformation/record.dtd
deleted file mode 100644 (file)
index b054ccd..0000000
--- a/helm/DEVEL/pxp/pxp/examples/simple_transformation/record.dtd
+++ /dev/null
@@ -1,5 +0,0 @@
-<!ELEMENT record-list (record*)>
-<!ELEMENT record (last-name?, first-name?, phone?)>
-<!ELEMENT last-name (#PCDATA)>
-<!ELEMENT first-name (#PCDATA)>
-<!ELEMENT phone (#PCDATA)>

diff --git a/helm/DEVEL/pxp/pxp/examples/simple_transformation/sample.xml b/helm/DEVEL/pxp/pxp/examples/simple_transformation/sample.xml
deleted file mode 100644 (file)
index 00d36b0..0000000
--- a/helm/DEVEL/pxp/pxp/examples/simple_transformation/sample.xml
+++ /dev/null
@@ -1,18 +0,0 @@
-<?xml encoding="ISO-8859-1"?>
-<record-list>
-  <record>
-    <last-name>Stolpmann</last-name>
-    <first-name>Gerd</first-name>
-    <phone>997705</phone>
-  </record>
-  <record>
-    <last-name>Smith</last-name>
-    <first-name>Jack</first-name>
-    <phone>12345</phone>
-  </record>
-  <record>
-    <last-name>Ützgür</last-name>
-    <first-name>xxx</first-name>
-    <phone>7654</phone>
-  </record>
-</record-list>

diff --git a/helm/DEVEL/pxp/pxp/examples/simple_transformation/sort.ml b/helm/DEVEL/pxp/pxp/examples/simple_transformation/sort.ml
deleted file mode 100644 (file)
index 297730f..0000000
--- a/helm/DEVEL/pxp/pxp/examples/simple_transformation/sort.ml
+++ /dev/null
@@ -1,83 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(* Read a record-list, sort it, and print it as XML *)
-open Pxp_types;;
-open Pxp_document;;
-open Pxp_yacc;;
-
-let sort by tree =
-  map_tree
-    ~pre:
-      (fun n -> n # orphaned_flat_clone)
-    ~post:
-      (fun n ->
-        match n # node_type with
-            T_element "record-list" ->
-              let l = n # sub_nodes in
-              let l' = List.sort
-                         (fun a b ->
-                            let a_string = 
-                              try (find_element by a) # data 
-                              with Not_found -> "" in
-                            let b_string = 
-                              try (find_element by b) # data 
-                              with Not_found -> "" in
-                            Pervasives.compare a_string b_string)
-                         l in
-              n # set_nodes l';
-              n
-          | _ ->
-              n)
-    tree
-;;
-
-
-let main() =
-  let criterion = ref "last-name" in
-  Arg.parse
-      [ "-by", Arg.String (fun s -> criterion := s),
-           " (last-name|first-name|phone)";
-      ]
-      (fun _ -> raise (Arg.Bad "Bad usage"))
-      "usage: sort [ options ]";
-  if not(List.mem !criterion ["last-name"; "first-name"; "phone"]) then (
-    prerr_endline ("Unknown criterion: " ^ !criterion);
-    exit 1
-  );
-  try
-    let dtd = parse_dtd_entity default_config (from_file "record.dtd") in
-    let tree = 
-      parse_content_entity default_config (from_channel stdin) dtd default_spec
-    in
-    print_endline "<?xml encoding='ISO-8859-1'?>";
-    (sort !criterion tree) # write (Out_channel stdout) `Enc_iso88591
-  with
-      x ->
-       prerr_endline(string_of_exn x);
-       exit 1
-;;
-
-
-main();;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.3  2000/08/30 16:05:44  gerd
- *     Minor update
- *
- * Revision 1.2  2000/08/24 09:40:11  gerd
- *     Allow that columns are missing.
- *
- * Revision 1.1  2000/08/22 21:57:44  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/examples/validate/.cvsignore b/helm/DEVEL/pxp/pxp/examples/validate/.cvsignore
deleted file mode 100644 (file)
index e125622..0000000
--- a/helm/DEVEL/pxp/pxp/examples/validate/.cvsignore
+++ /dev/null
@@ -1,13 +0,0 @@
-*.cmi
-*.cmo
-*.cma
-*.cmx
-*.o
-*.a
-*.cmxa
-*.new
-*.mlf
-*.ml0
-depend
-depend.pkg
-

diff --git a/helm/DEVEL/pxp/pxp/examples/validate/Makefile b/helm/DEVEL/pxp/pxp/examples/validate/Makefile
deleted file mode 100644 (file)
index 64b6918..0000000
--- a/helm/DEVEL/pxp/pxp/examples/validate/Makefile
+++ /dev/null
@@ -1,28 +0,0 @@
-# make validate:        make bytecode executable
-# make validate.opt:    make native executable
-# make clean:          remove intermediate files (in this directory)
-# make CLEAN:           remove intermediate files (recursively)
-# make distclean:      remove any superflous files (recursively)
-#----------------------------------------------------------------------
-
-pxpvalidate: validate.ml
-       ocamlfind ocamlc -o pxpvalidate -package "pxp" -linkpkg validate.ml
-
-pxpvalidate.opt: validate.ml
-       ocamlfind ocamlopt -o pxpvalidate.opt -package "pxp" -linkpkg validate.ml
-
-#----------------------------------------------------------------------
-.PHONY: all
-all:
-
-.PHONY: clean
-clean:
-       rm -f *.cmi *.cmo *.cma *.cmx *.o *.a *.cmxa 
-
-.PHONY: CLEAN
-CLEAN: clean
-
-.PHONY: distclean
-distclean: clean
-       rm -f *~
-       rm -f pxpvalidate pxpvalidate.opt

diff --git a/helm/DEVEL/pxp/pxp/examples/validate/validate.ml b/helm/DEVEL/pxp/pxp/examples/validate/validate.ml
deleted file mode 100644 (file)
index 3bb83d2..0000000
--- a/helm/DEVEL/pxp/pxp/examples/validate/validate.ml
+++ /dev/null
@@ -1,126 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-open Pxp_document;;
-open Pxp_yacc;;
-open Pxp_types;;
-
-let error_happened = ref false;;
-
-let print_error e =
-  print_endline (string_of_exn e)
-;;
-
-class warner =
-  object 
-    method warn w =
-      print_endline ("WARNING: " ^ w)
-  end
-;;
-
-let parse debug wf iso88591 filename =
-  try 
-    (* Parse the document: *)
-    let parse_fn =
-      if wf then parse_wfdocument_entity 
-      else 
-       let index = new hash_index in
-       parse_document_entity 
-         ?transform_dtd:None 
-         ~id_index:(index :> 'ext index)
-    in
-    let doc =
-      parse_fn
-         { default_config with 
-             debugging_mode = debug;
-             encoding = if iso88591 then `Enc_iso88591 else `Enc_utf8;
-             idref_pass = true;
-             warner = new warner
-          }
-         (from_file filename)
-         default_spec 
-    in
-    ()
-  with
-      e ->
-       (* Print error; remember that there was an error *)
-       error_happened := true;
-       print_error e
-;;
-
-
-let main() =
-  let debug = ref false in
-  let wf = ref false in
-  let iso88591 = ref false in
-  let files = ref [] in
-  Arg.parse
-      [ "-d",   Arg.Set debug, 
-           "             turn debugging mode on";
-       "-wf",  Arg.Set wf,    
-            "            check only on well-formedness";
-        "-iso-8859-1", Arg.Set iso88591, 
-                    "    use ISO-8859-1 as internal encoding instead of UTF-8";
-      ]
-      (fun x -> files := x :: !files)
-      "
-usage: pxpvalidate [options] file ...
-
-- checks the validity of XML documents. See below for list of options.
-
-<title>PXP - The XML parser for Objective Caml</title>
-
-List of options:";
-  files := List.rev !files;
-  List.iter (parse !debug !wf !iso88591) !files;
-;;
-
-
-main();
-if !error_happened then exit(1);;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:31  lpadovan
- * Initial revision
- *
- * Revision 1.10  2000/08/30 15:58:41  gerd
- *     Updated.
- *
- * Revision 1.9  2000/07/14 14:57:30  gerd
- *     Updated: warner
- *
- * Revision 1.8  2000/07/14 14:13:15  gerd
- *     Cosmetic changes.
- *
- * Revision 1.7  2000/07/14 14:11:06  gerd
- *     Updated because of changes of the PXP API.
- *
- * Revision 1.6  2000/07/08 21:53:00  gerd
- *     Updated because of PXP interface changes.
- *
- * Revision 1.5  2000/06/04 20:21:55  gerd
- *     Updated to new module names.
- *
- * Revision 1.4  2000/05/01 16:44:57  gerd
- *     Added check for ID uniqueness.
- *     Using new error formatter.
- *
- * Revision 1.3  1999/11/09 22:27:30  gerd
- *     The programs returns now an exit code of 1 if one of the
- * XML files produces an error.
- *
- * Revision 1.2  1999/09/01 23:09:56  gerd
- *     Added the option -wf that switches to well-formedness checking
- * instead of validation.
- *
- * Revision 1.1  1999/08/14 22:20:53  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/examples/xmlforms/.cvsignore b/helm/DEVEL/pxp/pxp/examples/xmlforms/.cvsignore
deleted file mode 100644 (file)
index e125622..0000000
--- a/helm/DEVEL/pxp/pxp/examples/xmlforms/.cvsignore
+++ /dev/null
@@ -1,13 +0,0 @@
-*.cmi
-*.cmo
-*.cma
-*.cmx
-*.o
-*.a
-*.cmxa
-*.new
-*.mlf
-*.ml0
-depend
-depend.pkg
-

diff --git a/helm/DEVEL/pxp/pxp/examples/xmlforms/Makefile b/helm/DEVEL/pxp/pxp/examples/xmlforms/Makefile
deleted file mode 100644 (file)
index 5a0ba32..0000000
--- a/helm/DEVEL/pxp/pxp/examples/xmlforms/Makefile
+++ /dev/null
@@ -1,33 +0,0 @@
-# make xmlforms:       make bytecode executable
-# make xmlforms.opt:   make native executable
-# make clean:          remove intermediate files
-# make CLEAN:           remove intermediate files (recursively)
-# make distclean:      remove any superflous files
-# make release:        cleanup, create archive, tag CVS module 
-#                      (for developers)
-#----------------------------------------------------------------------
-
-.PHONY: xmlforms
-xmlforms:
-       $(MAKE) -f Makefile.code xmlforms
-
-.PHONY: xmlforms.opt
-xmlforms.opt:
-       $(MAKE) -f Makefile.code xmlforms.opt
-
-
-.PHONY: clean
-clean:
-       rm -f *.cmi *.cmo *.cma *.cmx *.o *.a *.cmxa
-
-.PHONY: CLEAN
-CLEAN: clean
-       $(MAKE) -C styles CLEAN
-
-.PHONY: distclean
-distclean: clean
-       rm -f *~ depend depend.pkg
-       rm -f xmlforms xmlforms.opt
-       $(MAKE) -C styles distclean
-
-

diff --git a/helm/DEVEL/pxp/pxp/examples/xmlforms/Makefile.code b/helm/DEVEL/pxp/pxp/examples/xmlforms/Makefile.code
deleted file mode 100644 (file)
index f996740..0000000
--- a/helm/DEVEL/pxp/pxp/examples/xmlforms/Makefile.code
+++ /dev/null
@@ -1,57 +0,0 @@
-#----------------------------------------------------------------------
-# specific rules for this package:
-
-OBJECTS  = ds_context.cmo ds_style.cmo
-XOBJECTS = $(OBJECTS:.cmo=.cmx)
-ARCHIVE  = xmlforms.cma
-XARCHIVE = xmlforms.cmxa
-NAME     = xmlforms
-REQUIRES = camltk str pxp
-
-xmlforms: $(ARCHIVE) ds_app.cmo
-       ocamlfind ocamlc -g -o xmlforms -custom -package "$(REQUIRES)" \
-               -linkpkg $(ARCHIVE) ds_app.cmo 
-
-xmlform.opt: $(XARCHIVE) ds_app.cmx
-       ocamlfind ocamlopt -o xmlforms.opt -custom -package "$(REQUIRES)" \
-               -linkpkg $(XARCHIVE) ds_app.cmx
-
-$(ARCHIVE): $(OBJECTS)
-       $(OCAMLC) -a -o $(ARCHIVE) $(OBJECTS)
-
-$(XARCHIVE): $(XOBJECTS)
-       $(OCAMLOPT) -a -o $(XARCHIVE) $(XOBJECTS)
-
-#----------------------------------------------------------------------
-# general rules:
-
-OPTIONS   =
-OCAMLC    = ocamlc -g $(OPTIONS) $(ROPTIONS)
-OCAMLOPT  = ocamlopt -p $(OPTIONS) $(ROPTIONS)
-OCAMLDEP  = ocamldep $(OPTIONS)
-OCAMLFIND = ocamlfind
-
-depend: *.ml *.mli 
-       $(OCAMLDEP) *.ml *.mli >depend
-
-depend.pkg: Makefile
-       $(OCAMLFIND) use -p ROPTIONS= $(REQUIRES) >depend.pkg
-
-.SUFFIXES: .cmo .cmi .cmx .ml .mli .mll .mly
-
-.ml.cmx:
-       $(OCAMLOPT) -c $<
-
-.ml.cmo:
-       $(OCAMLC) -c $<
-
-.mli.cmi:
-       $(OCAMLC) -c $<
-
-.mll.ml:
-       ocamllex $<
-
-*.mli:
-
-include depend
-include depend.pkg

diff --git a/helm/DEVEL/pxp/pxp/examples/xmlforms/README b/helm/DEVEL/pxp/pxp/examples/xmlforms/README
deleted file mode 100644 (file)
index 806a409..0000000
--- a/helm/DEVEL/pxp/pxp/examples/xmlforms/README
+++ /dev/null
@@ -1,61 +0,0 @@
------------------------------------------------------------------------------
-xmlforms
------------------------------------------------------------------------------
-
-THE IDEA:
-
-This example uses XML for two purposes:
-
-- The "story" and layout of the application is specified in XML
-- The data records are stored in XML
-
-An "application" is a set of "masks" or sequences of masks, and every mask
-is thought as a visible page of the application, containing layout
-elements and functional elements. Layout is specified in TeX-style using
-hboxes, vboxes, hspaces, vspaces. Functional elements are "entries" (input
-box for a string with one line), "textboxes" (input boxes with several
-lines), and buttons.
-
-See styles/ds-style.dtd for the DTD of an application specification, and
-the other xml files in this directory for examples.
-
-The entries and textboxes are bound to "slots", i.e. string variables. If
-the application is started, the slots are read from a file, and if the
-user presses a special "save" button, the slots are stored into this file.
-The format of this data file is again XML; the simplistic DTD can be found
-in styles/ds-object.dtd.
-
-
-THE IMPLEMENTATION:
-
-There is currently a mapping of the specifications to ocamltk, done by a
-program called "xmlforms".
-
-
-HOW TO COMPILE:
-
-It is assumed that "findlib" is present on your system; see ABOUT-FINDLIB
-in the toplevel directory.
-The "markup" module must have been installed.
-
-- "make xmlforms" produces a bytecode executable "xmlforms"
-- "make xmlforms.opt" produces a native executable "xmlforms.opt"
-
-Note that you cannot start the executables directly:
-
-
-HOW TO START AN APPLICATION:
-
-As "xmlforms" is a generic executable, there is a simple mechanism to bind
-it to a specific instance of an application. For example, in the "styles"
-subdirectory there is the application specification "crazy-style.xml". To
-start it, make a symlink called "crazy" referring to the "xmlforms"
-binary, set the environment variable DATASHEETS to the directory where the
-DTDs and XML files can be found, and start "crazy":
-
-       ln -s ../xmlforms crazy
-       DATASHEETS=. crazy my-record.xml
-
-(If you do not set DATASHEETS, a default directory, normally
-"/opt/xmlforms/lib" is used.)
-

diff --git a/helm/DEVEL/pxp/pxp/examples/xmlforms/ds_app.ml b/helm/DEVEL/pxp/pxp/examples/xmlforms/ds_app.ml
deleted file mode 100644 (file)
index 55589ea..0000000
--- a/helm/DEVEL/pxp/pxp/examples/xmlforms/ds_app.ml
+++ /dev/null
@@ -1,107 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-open Tk
-open Pxp_types
-open Pxp_document
-open Pxp_yacc
-open Ds_context
-open Ds_style
-
-
-let installdir       =
-  try Sys.getenv "DATASHEETS" with
-      Not_found -> "/opt/xmlforms/lib"
-let style_sysid      = ref ""
-let object_dtd_sysid = Filename.concat installdir "ds-object.dtd"
-let object_dtd_root  = "record" 
-
-
-let rec print_error e =
-  print_endline (string_of_exn e)
-;;
-
-
-let run f arg1 arg2 =
-  try f arg1 arg2 with
-      e -> print_error e
-;;
-
-
-let edit filename cmd =
-  (* read in style definition *)
-  let index = new hash_index in
-  let style =
-    parse_document_entity
-      ~id_index:(index :> 'ext index)
-      default_config
-      (from_file !style_sysid)
-      tag_map
-  in
-  let root = style # root in
-  root # extension # prepare (index :> 'ext index);
-
-  let obj_dtd =
-    parse_dtd_entity
-      default_config
-      (from_file object_dtd_sysid)
-  in
-  obj_dtd # set_root object_dtd_root;
-
-  let topframe = openTk() in
-  let context = new context filename obj_dtd index root topframe in
-
-  Toplevel.configure topframe [ Width (Centimeters 20.0);
-                                Height (Centimeters 12.0);
-                              ];
-  Pack.propagate_set topframe false;
-  Wm.title_set topframe cmd;
-  context # goto (root # extension # start_node_name);
-  mainLoop()
-;;
-
-
-let main() =
-  let cmd = Filename.basename Sys.argv.(0) in
-  match Sys.argv with
-      [| _; filename |] ->
-       style_sysid := Filename.concat installdir (cmd ^ "-style.xml");
-       run edit filename cmd
-    | _ ->
-       prerr_endline ("usage: " ^ cmd ^ " filename");
-       exit(1)
-;;
-
-main();;
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.6  2000/07/16 19:36:03  gerd
- *     Updated.
- *
- * Revision 1.5  2000/07/08 22:03:11  gerd
- *     Updates because of PXP interface changes.
- *
- * Revision 1.4  2000/06/04 20:29:19  gerd
- *     Updates because of renamed PXP modules.
- *
- * Revision 1.3  2000/05/01 16:48:45  gerd
- *     Using the new error formatter.
- *
- * Revision 1.2  1999/12/17 21:34:29  gerd
- *     The name of the root element is set to "record" in the
- * object_dtd; otherwise the parser would not check that the root
- * element is the right element.
- *
- * Revision 1.1  1999/08/21 19:11:05  gerd
- *     Initial revision.
- *
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/examples/xmlforms/ds_context.ml b/helm/DEVEL/pxp/pxp/examples/xmlforms/ds_context.ml
deleted file mode 100644 (file)
index 453ca00..0000000
--- a/helm/DEVEL/pxp/pxp/examples/xmlforms/ds_context.ml
+++ /dev/null
@@ -1,238 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-open Pxp_types
-open Pxp_document
-open Pxp_yacc
-
-let empty_record = new element_impl (Pxp_yacc.default_extension);;
-let empty_dnode = new data_impl Pxp_yacc.default_extension;;
-
-class context the_filename the_obj_dtd the_index the_root the_topframe =
-  object (self)
-    val filename = the_filename
-    val obj_dtd = the_obj_dtd
-    val node_index = the_index
-    val mutable obj = empty_record # create_element
-                       the_obj_dtd (T_element "record") []
-    val root = the_root
-    val topframe = the_topframe
-    val mutable wdg = None
-
-    val mutable history = ( [| |] : string array )
-    val mutable index = 0
-
-    initializer
-      self # load_obj
-
-    method obj = obj
-
-    (* history *)
-
-    method private leave_node =
-      begin match wdg with
-         None -> ()
-       | Some w -> Tk.destroy w
-      end;
-      wdg <- None
-
-    method private enter_node =
-      let where = history.(index) in
-      let n =
-       try node_index # find where with
-           Not_found -> failwith ("Mask not found: " ^ where) in
-      let w = n # extension # create_widget topframe self in
-      Tk.pack [w] (n # extension # pack_opts @ [ Tk.Expand true] );
-      wdg <- Some w
-
-
-
-    method previous =
-      if index > 0 then
-       index <- index - 1
-      else
-       raise Not_found;
-      self # leave_node;
-      self # enter_node;
-
-
-    method next =
-      if index < Array.length history - 1 then
-       index <- index + 1
-      else
-       raise Not_found;
-      self # leave_node;
-      self # enter_node;
-
-
-    method goto where =
-      assert (index <= Array.length history);
-      self # leave_node;
-      let persisting_history =
-       if index < Array.length history then
-         Array.sub history 0 (index+1)
-       else
-         history
-      in
-      history <- Array.concat [ persisting_history; [| where |] ];
-      index <- Array.length history - 1;
-      self # enter_node;
-
-
-    method current =
-      if index < Array.length history then
-       history.(index)
-      else
-       raise Not_found
-
-
-    (* read, write the slots of object *)
-
-    method search_slot name =
-      let rec search n =
-       match n # node_type with
-           T_element "string" ->
-             if n # required_string_attribute "name" = name then
-               n
-             else raise Not_found
-         | T_element _ ->
-             search_list (n # sub_nodes)
-         | T_data ->
-             raise Not_found
-         | _ ->
-             assert false
-             
-       and search_list l =
-         match l with
-            x :: l' ->
-              (try search x with Not_found -> search_list l')
-          | [] ->
-              raise Not_found
-      in
-      search obj
-
-    method get_slot name =
-      let d = (self # search_slot name) # data in
-      d
-
-    method set_slot name value =
-      let dtd = obj # dtd in
-      begin try
-       let n = self # search_slot name in
-       n # delete
-      with
-         Not_found -> ()
-      end;
-      let e_string = empty_record # create_element dtd (T_element "string")
-               [ "name", name ] in
-      let dnode = empty_dnode # create_data dtd value in
-      e_string # add_node dnode;
-      e_string # local_validate();
-      obj # add_node e_string;
-      assert(self # get_slot name = value)
-
-    (* load, save object *)
-
-
-    method load_obj =
-      if Sys.file_exists filename then begin
-       obj <- parse_content_entity
-         default_config
-         (from_file filename)
-         obj_dtd
-         default_spec
-      end
-      else begin
-       print_string "New file!\n";
-       flush stdout
-      end
-
-
-    method save_obj =
-      let fd = open_out filename in
-      try
-
-       let re1 = Str.regexp "&" in
-       let re2 = Str.regexp "<" in
-       let re3 = Str.regexp "'" in
-       let re4 = Str.regexp ">" in
-       let protect s =
-         let s1 = Str.global_replace re1 "&amp;" s in
-         let s2 = Str.global_replace re2 "&lt;" s1 in
-         let s3 = Str.global_replace re3 "&apos;" s2 in
-         let s4 = Str.global_replace re2 "&gt;" s1 in
-         s3
-       in
-
-       let rec iterate (n : 'node extension node as 'node) =
-         match n # node_type with
-             T_data ->
-               output_string fd (protect (n # data))
-           | T_element name ->
-               output_string fd ("<" ^ name ^ "\n");
-               let anames = n # attribute_names in
-               List.iter
-                 (fun aname ->
-                    let aval = n # attribute aname in
-                    let v =
-                      match aval with
-                          Value s ->
-                            aname ^ "='" ^ protect s ^ "'\n"
-                        | Valuelist l ->
-                            aname ^ "='" ^ String.concat " " (List.map protect l) ^ "'\n"
-                        | Implied_value ->
-                            ""
-                    in
-                    output_string fd v)
-                 anames;
-               output_string fd ">";
-               List.iter iterate (n # sub_nodes);
-               output_string fd ("</" ^ name ^ "\n>");
-           | _ ->
-               assert false
-       in
-
-       output_string fd "<?xml version='1.0' encoding='ISO-8859-1'?>\n";
-       iterate obj;
-       close_out fd
-      with
-         e ->
-           close_out fd;
-           raise e
-
-  end
-;;
-
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:31  lpadovan
- * Initial revision
- *
- * Revision 1.7  2000/08/30 15:58:49  gerd
- *     Updated.
- *
- * Revision 1.6  2000/07/23 20:25:05  gerd
- *     Update because of API change: local_validate.
- *
- * Revision 1.5  2000/07/16 19:36:03  gerd
- *     Updated.
- *
- * Revision 1.4  2000/07/08 22:03:11  gerd
- *     Updates because of PXP interface changes.
- *
- * Revision 1.3  2000/06/04 20:29:19  gerd
- *     Updates because of renamed PXP modules.
- *
- * Revision 1.2  2000/05/30 00:09:08  gerd
- *     Minor fix.
- *
- * Revision 1.1  1999/08/21 19:11:05  gerd
- *     Initial revision.
- *
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/examples/xmlforms/ds_style.ml b/helm/DEVEL/pxp/pxp/examples/xmlforms/ds_style.ml
deleted file mode 100644 (file)
index 08d0daa..0000000
--- a/helm/DEVEL/pxp/pxp/examples/xmlforms/ds_style.ml
+++ /dev/null
@@ -1,778 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-open Pxp_types
-open Pxp_document
-open Ds_context
-
-
-let get_dimension s =
-  let re = Str.regexp "\\([0-9]*\\(.[0-9]+\\)?\\)[ \t\n]*\\(px\\|cm\\|in\\|mm\\|pt\\)" in
-  if Str.string_match re s 0 then begin
-    let number = Str.matched_group 1 s in
-    let dim = Str.matched_group 3 s in
-    match dim with
-       "px" -> Tk.Pixels (int_of_float (float_of_string number))
-      | "cm" -> Tk.Centimeters (float_of_string number)
-      | "in" -> Tk.Inches (float_of_string number)
-      | "mm" -> Tk.Millimeters (float_of_string number)
-      | "pt" -> Tk.PrinterPoint (float_of_string number)
-      | _ -> assert false
-  end
-  else
-    failwith ("Bad dimension: " ^ s)
-;;
-
-
-class virtual shared =
-  object(self)
-
-    (* --- default_ext --- *)
-
-    val mutable node = (None : shared node option)
-
-    method clone = {< >}
-    method node =
-      match node with
-          None ->
-            assert false
-        | Some n -> n
-    method set_node n =
-      node <- Some n
-
-    (* --- shared attributes: color & font settings --- *)
-
-    val mutable fgcolor = (None : string option)
-    val mutable bgcolor = (None : string option)
-    val mutable font = (None : string option)
-
-    method fgcolor =
-      (* Get the foreground color: If there is a local value, return it;
-       * otherwise ask parent node
-       *)
-      match fgcolor with
-         Some c -> c
-       | None   -> try self # node # parent # extension # fgcolor with
-                   Not_found -> failwith "#fgcolor"
-
-    method bgcolor =
-      (* Get the background color: If there is a local value, return it;
-       * otherwise ask parent node
-       *)
-      match bgcolor with
-         Some c -> c
-       | None   -> try self # node # parent # extension # bgcolor with
-                   Not_found -> failwith "#bgcolor"
-
-    method font =
-      (* Get the current font: If there is a local value, return it;
-       * otherwise ask parent node
-       *)
-      match font with
-         Some c -> c
-       | None   -> try self # node # parent # extension # font with
-                   Not_found -> failwith "#font"
-
-    method private init_color_and_font =
-      let get_color n =
-       try
-         match self # node # attribute n with
-             Value v -> Some v
-           | Implied_value -> None
-           | _ -> assert false
-       with Not_found -> None in
-      fgcolor <- get_color "fgcolor";
-      bgcolor <- get_color "bgcolor";
-      font    <- get_color "font";      (* sic! *)
-
-
-    method private bg_color_opt =
-      [ Tk.Background (Tk.NamedColor (self # bgcolor)) ]
-
-    method private fg_color_opt =
-      [ Tk.Foreground (Tk.NamedColor (self # fgcolor)) ]
-
-    method private font_opt =
-      [ Tk.Font (self # font) ]
-
-    (* --- virtual --- *)
-
-    method virtual prepare : shared Pxp_yacc.index -> unit
-    method virtual create_widget : Widget.widget -> context -> Widget.widget
-
-    method pack_opts = ( [] : Tk.options list )
-    method xstretchable = false
-    method ystretchable = false
-
-    method accept (c:context) = ()
-
-    method private get_mask =
-      (* find parent which is a mask *)
-      let rec search n =
-       match n # node_type with
-           T_element "mask" ->
-             n # extension
-         | T_element _ ->
-             search (n # parent)
-         | _ ->
-             assert false
-      in
-      search (self # node)
-
-
-    method private accept_mask (c:context) =
-      let rec iterate n =
-       n # extension # accept c;
-       List.iter iterate (n # sub_nodes)
-      in
-      iterate (self # get_mask # node)
-
-
-    method start_node_name =
-      (failwith "#start_node_name" : string)
-
-    (* --- debug --- *)
-
-    method private name =
-      let nt = self # node # node_type in
-      match nt with
-         T_element n -> n
-       | T_data      -> "#PCDATA"
-       | _           -> assert false
-
-  end
-;;
-
-
-class default =
-  object (self)
-    inherit shared
-
-    method prepare idx =
-      self # init_color_and_font
-
-    method create_widget w c =
-      failwith "default # create_widget"
-  end
-;;
-
-
-let dummy_node = new element_impl (new default);;
-
-class application =
-  object (self)
-    inherit shared
-
-    val mutable start_node = dummy_node
-
-    method prepare idx =
-      (* prepare this node *)
-      self # init_color_and_font;
-      if fgcolor = None then fgcolor <- Some "black";
-      if bgcolor = None then bgcolor <- Some "white";
-      if font = None then font <- Some "fixed";
-      let start =
-       match self # node # attribute "start" with
-           Value v -> v
-         | _       -> assert false in
-      start_node <- (try idx # find start with
-         Not_found -> failwith "Start node not found");
-      (* iterate over the subtree *)
-      let rec iterate n =
-       n # extension # prepare idx;
-       List.iter iterate (n # sub_nodes)
-      in
-      List.iter iterate (self # node # sub_nodes)
-
-
-    method start_node_name =
-      match self # node # attribute "start" with
-         Value v -> v
-       | _       -> assert false
-
-    method create_widget w c =
-      start_node # extension # create_widget w c
-
-    method pack_opts =
-      start_node # extension # pack_opts
-  end
-;;
-
-
-class sequence =
-  object (self)
-    inherit shared
-
-    method prepare idx =
-      self # init_color_and_font;
-
-    method create_widget w c =
-      let node = List.hd (self # node # sub_nodes) in
-      node # extension # create_widget w c
-
-    method pack_opts =
-      let node = List.hd (self # node # sub_nodes) in
-      node # extension # pack_opts
-  end
-;;
-
-
-class vbox =
-  object (self)
-    inherit shared
-
-    val mutable att_halign = "left"
-
-    method prepare idx =
-      self # init_color_and_font;
-      match self # node # attribute "halign" with
-         Value v -> att_halign <- v
-       | _ -> assert false
-
-    method create_widget w c =
-      let f = Frame.create w (self # bg_color_opt) in
-      let nodes = self # node # sub_nodes in
-      let options =
-       match att_halign with
-           "left"     -> [ Tk.Anchor Tk.W ]
-         | "right"    -> [ Tk.Anchor Tk.E ]
-         | "center"   -> [ Tk.Anchor Tk.Center ]
-         | _ -> assert false
-      in
-      List.iter
-       (fun n ->
-          let opts = n # extension # pack_opts in
-          let wdg = n # extension # create_widget f c in
-          Tk.pack [wdg] (options @ opts);
-       )
-       nodes;
-      f
-
-    method pack_opts =
-      match self # xstretchable, self # ystretchable with
-         true, false  -> [ Tk.Fill Tk.Fill_X; (* Tk.Expand true *) ]
-       | false, true  -> [ Tk.Fill Tk.Fill_Y;  (* Tk.Expand true *) ]
-       | true, true   -> [ Tk.Fill Tk.Fill_Both; (* Tk.Expand true *) ]
-       | false, false -> []
-
-    method xstretchable =
-      let nodes = self # node # sub_nodes in
-      List.exists (fun n -> n # extension # xstretchable) nodes
-
-    method ystretchable =
-      let nodes = self # node # sub_nodes in
-      List.exists (fun n -> n # extension # ystretchable) nodes
-
-  end
-
-;;
-
-
-class mask =
-  object (self)
-
-    inherit vbox
-
-    method prepare idx =
-      self # init_color_and_font;
-      att_halign <- "left"
-  end
-;;
-
-
-class hbox =
-  object (self)
-    inherit shared
-
-    val mutable att_width = None
-    val mutable att_halign = "left"
-    val mutable att_valign = "top"
-
-    method prepare idx =
-      self # init_color_and_font;
-      begin match self # node # attribute "halign" with
-         Value v -> att_halign <- v
-       | _ -> assert false
-      end;
-      begin match self # node # attribute "valign" with
-         Value v -> att_valign <- v
-       | _ -> assert false
-      end;
-      begin match self # node # attribute "width" with
-         Value v       -> att_width <- Some (get_dimension v)
-       | Implied_value -> att_width <- None
-       | _ -> assert false
-      end
-
-    method create_widget w c =
-      let f1 = Frame.create w (self # bg_color_opt) in
-      let f_extra =
-       match att_width with
-           None    -> []
-         | Some wd ->
-             [ Canvas.create f1
-                 ( [ Tk.Width wd; Tk.Height (Tk.Pixels 0);
-                     Tk.Relief Tk.Flat;
-                     Tk.HighlightThickness (Tk.Pixels 0);
-                   ] @
-                   self # bg_color_opt ) ]
-      in
-      let f2 = Frame.create f1 (self # bg_color_opt) in
-      let nodes = self # node # sub_nodes in
-
-      let outer_pack_opts =
-       match att_halign with
-           "left"     -> [ Tk.Anchor Tk.W ]
-         | "right"    -> [ Tk.Anchor Tk.E ]
-         | "center"   -> [ Tk.Anchor Tk.Center ]
-         | _ -> assert false
-      in
-      let inner_pack_opts =
-       match att_valign with
-           "top"      -> [ Tk.Anchor Tk.N ]
-         | "bottom"   -> [ Tk.Anchor Tk.S ]
-         | "center"   -> [ Tk.Anchor Tk.Center ]
-         | _ -> assert false
-      in
-      List.iter
-       (fun n ->
-          let opts = n # extension # pack_opts in
-          let wdg = n # extension # create_widget f2 c in
-          Tk.pack [wdg] (inner_pack_opts @ [ Tk.Side Tk.Side_Left ] @ opts);
-       )
-       nodes;
-      let extra_opts = self # pack_opts in
-      Tk.pack (f_extra @ [f2]) (outer_pack_opts @ extra_opts);
-      f1
-
-    method pack_opts =
-      match self # xstretchable, self # ystretchable with
-         true, false  -> [ Tk.Fill Tk.Fill_X;  (* Tk.Expand true *) ]
-       | false, true  -> [ Tk.Fill Tk.Fill_Y;  (* Tk.Expand true *) ]
-       | true, true   -> [ Tk.Fill Tk.Fill_Both;  (* Tk.Expand true *) ]
-       | false, false -> []
-
-    method xstretchable =
-      let nodes = self # node # sub_nodes in
-      List.exists (fun n -> n # extension # xstretchable) nodes
-
-    method ystretchable =
-      let nodes = self # node # sub_nodes in
-      List.exists (fun n -> n # extension # ystretchable) nodes
-
-  end
-;;
-
-class vspace =
-  object (self)
-    inherit shared
-
-    val mutable att_height = Tk.Pixels 0
-    val mutable att_fill  = false
-
-    method prepare idx =
-      self # init_color_and_font;
-      begin match self # node # attribute "height" with
-         Value v       -> att_height <- get_dimension v
-       | _ -> assert false
-      end;
-      begin match self # node # attribute "fill" with
-         Value "yes" -> att_fill <- true
-       | Value "no"  -> att_fill <- false
-       | _ -> assert false
-      end
-
-
-    method create_widget w c =
-      let f = Frame.create w ( self # bg_color_opt ) in
-      let strut =
-       Canvas.create f
-         ( [ Tk.Height att_height; Tk.Width (Tk.Pixels 0);
-             Tk.Relief Tk.Flat;
-             Tk.HighlightThickness (Tk.Pixels 0);
-           ] @
-           self # bg_color_opt ) in
-      if att_fill then
-       Tk.pack [strut] [Tk.Fill Tk.Fill_Y; Tk.Expand true]
-      else
-       Tk.pack [strut] [];
-      f
-
-    method pack_opts =
-      if att_fill then [ Tk.Fill Tk.Fill_Y; Tk.Expand true ] else []
-
-    method ystretchable = att_fill
-  end
-;;
-
-class hspace =
-  object (self)
-    inherit shared
-
-
-    val mutable att_width = Tk.Pixels 0
-    val mutable att_fill  = false
-
-    method prepare idx =
-      self # init_color_and_font;
-      begin match self # node # attribute "width" with
-         Value v       -> att_width <- get_dimension v
-       | _ -> assert false
-      end;
-      begin match self # node # attribute "fill" with
-         Value "yes" -> att_fill <- true
-       | Value "no"  -> att_fill <- false
-       | _ -> assert false
-      end
-
-
-    method create_widget w c =
-      let f = Frame.create w ( self # bg_color_opt ) in
-      let strut =
-       Canvas.create f
-         ( [ Tk.Width att_width; Tk.Height (Tk.Pixels 0);
-             Tk.Relief Tk.Flat;
-             Tk.HighlightThickness (Tk.Pixels 0);
-           ] @
-           self # bg_color_opt ) in
-      if att_fill then
-       Tk.pack [strut] [Tk.Fill Tk.Fill_X; Tk.Expand true]
-      else
-       Tk.pack [strut] [];
-      f
-
-    method pack_opts =
-      if att_fill then [ Tk.Fill Tk.Fill_X; Tk.Expand true ] else []
-
-    method xstretchable = att_fill
-  end
-;;
-
-class label =
-  object (self)
-    inherit shared
-
-    val mutable att_textwidth = (-1)
-    val mutable att_halign = "left"
-
-    method prepare idx =
-      self # init_color_and_font;
-      att_textwidth <- (match self # node # attribute "textwidth" with
-                           Value v ->
-                             let w = try int_of_string v
-                             with _ -> failwith ("Not an integer: " ^ v) in
-                             w
-                         | Implied_value ->
-                             (-1)
-                         | _ -> assert false);
-      att_halign <- (match self # node # attribute "halign" with
-                        Value v -> v
-                      | _ -> assert false);
-
-
-    method create_widget w c =
-      let opts_textwidth = if att_textwidth < 0 then [] else
-                                              [ Tk.TextWidth att_textwidth ] in
-      let opts_halign =
-       match att_halign with
-           "left"     -> [ Tk.Anchor Tk.W ]
-         | "right"    -> [ Tk.Anchor Tk.E ]
-         | "center"   -> [ Tk.Anchor Tk.Center ]
-         | _ -> assert false
-      in
-      let opts_content =
-       [ Tk.Text (self # node # data) ] in
-      let label = Label.create w (opts_textwidth @ opts_halign @
-                                 opts_content @ self # bg_color_opt @
-                                 self # fg_color_opt @ self # font_opt) in
-      label
-
-  end
-;;
-
-class entry =
-  object (self)
-    inherit shared
-
-    val mutable tv = lazy (Textvariable.create())
-    val mutable att_textwidth = (-1)
-    val mutable att_slot = ""
-
-    method prepare idx =
-      self # init_color_and_font;
-      tv <- lazy (Textvariable.create());
-      att_textwidth <- (match self # node # attribute "textwidth" with
-                           Value v ->
-                             let w = try int_of_string v
-                             with _ -> failwith ("Not an integer: " ^ v) in
-                             w
-                         | Implied_value ->
-                             (-1)
-                         | _ -> assert false);
-      att_slot <- (match self # node # attribute "slot" with
-         Value v -> v
-       | _ -> assert false);
-
-    method create_widget w c =
-      let opts_textwidth = if att_textwidth < 0 then [] else
-                                              [ Tk.TextWidth att_textwidth ] in
-      let e = Entry.create w ( [ Tk.TextVariable (Lazy.force tv) ] @
-                              self # fg_color_opt @
-                              self # bg_color_opt @
-                              self # font_opt @
-                              opts_textwidth
-                            ) in
-      let s =
-       try c # get_slot att_slot with
-           Not_found -> self # node # data in
-      Textvariable.set (Lazy.force tv) s;
-      e
-
-    method accept c =
-      c # set_slot att_slot (Textvariable.get (Lazy.force tv))
-
-  end
-;;
-
-class textbox =
-  object (self)
-    inherit shared
-
-    val mutable att_textwidth = (-1)
-    val mutable att_textheight = (-1)
-    val mutable att_slot = ""
-    val mutable last_widget = None
-
-    method prepare idx =
-      self # init_color_and_font;
-      att_textwidth <- (match self # node # attribute "textwidth" with
-                           Value v ->
-                             let w = try int_of_string v
-                             with _ -> failwith ("Not an integer: " ^ v) in
-                             w
-                         | Implied_value ->
-                             (-1)
-                         | _ -> assert false);
-      att_textheight <- (match self # node # attribute "textheight" with
-                           Value v ->
-                             let w = try int_of_string v
-                             with _ -> failwith ("Not an integer: " ^ v) in
-                             w
-                         | Implied_value ->
-                             (-1)
-                         | _ -> assert false);
-      att_slot <- (match self # node # attribute "slot" with
-                      Value v -> v
-                    | Implied_value -> ""
-                    | _ -> assert false);
-
-
-    method create_widget w c =
-      let opts_textwidth = if att_textwidth < 0 then [] else
-                                              [ Tk.TextWidth att_textwidth ] in
-      let opts_textheight = if att_textheight < 0 then [] else
-                                           [ Tk.TextHeight att_textheight ] in
-      let f = Frame.create w (self # bg_color_opt) in
-      let vscrbar = Scrollbar.create f [ Tk.Orient Tk.Vertical ] in
-      let e = Text.create f ( [ ] @
-                             self # fg_color_opt @
-                             self # bg_color_opt @
-                             self # font_opt @
-                             opts_textwidth @ opts_textheight
-                           ) in
-      last_widget <- Some e;
-      Scrollbar.configure vscrbar [ Tk.ScrollCommand
-                                     (fun s -> Text.yview e s);
-                                   Tk.Width (Tk.Pixels 9) ];
-      Text.configure e [ Tk.YScrollCommand
-                          (fun a b -> Scrollbar.set vscrbar a b) ];
-      let s =
-       if att_slot <> "" then
-         try c # get_slot att_slot with
-             Not_found -> self # node # data 
-       else 
-         self # node # data 
-      in
-      (* Text.insert appends always a newline to the last line; so strip 
-       * an existing newline first
-       *)
-      let s' = 
-       if s <> "" & s.[String.length s - 1] = '\n' then
-         String.sub s 0 (String.length s - 1)
-       else 
-         s in
-      Text.insert e (Tk.TextIndex(Tk.End,[])) s' [];
-      if att_slot = "" then
-       Text.configure e [ Tk.State Tk.Disabled ];
-      Tk.pack [e] [ Tk.Side Tk.Side_Left ];
-      Tk.pack [vscrbar] [ Tk.Side Tk.Side_Left; Tk.Fill Tk.Fill_Y ];
-      f
-
-    method accept c =
-      if att_slot <> "" then
-       match last_widget with
-           None -> ()
-         | Some w ->
-             let s =
-               Text.get
-                 w
-                 (Tk.TextIndex(Tk.LineChar(1,0),[]))
-                 (Tk.TextIndex(Tk.End,[])) in
-             c # set_slot att_slot s
-
-  end
-;;
-
-class button =
-  object (self)
-    inherit shared
-
-    val mutable att_label = ""
-    val mutable att_action = ""
-    val mutable att_goto = ""
-
-    method prepare idx =
-      self # init_color_and_font;
-      att_label <- (match self # node # attribute "label" with
-                       Value v -> v
-                     | _ -> assert false);
-      att_action <- (match self # node # attribute "action" with
-                        Value v -> v
-                      | _ -> assert false);
-      att_goto <- (match self # node # attribute "goto" with
-                      Value v -> v
-                    | Implied_value -> ""
-                    | _ -> assert false);
-      if att_action = "goto" then begin
-       try let _ = idx # find att_goto in () with
-           Not_found -> failwith ("Target `" ^ att_goto ^ "' not found")
-      end;
-      if att_action = "list-prev" or att_action = "list-next" then begin
-       let m = self # get_mask in
-       if m # node # parent # node_type <> T_element "sequence" then
-         failwith ("action " ^ att_action ^ " must not be used out of <sequence>");
-      end;
-
-
-    method create_widget w c =
-      let cmd () =
-       self # accept_mask c;
-       match att_action with
-           "goto" ->
-             c # goto att_goto
-         | "save" ->
-             c # save_obj
-         | "exit" ->
-             Protocol.closeTk()
-         | "save-exit" ->
-             c # save_obj;
-             Protocol.closeTk()
-         | "list-prev" ->
-             let m = self # get_mask # node in
-             let s = m # parent in
-             let rec search l =
-               match l with
-                   x :: y :: l' ->
-                     if y == m then
-                       match x # attribute "name" with
-                           Value s -> c # goto s
-                         | _ -> assert false
-                     else
-                       search (y :: l')
-                 | _ -> ()
-             in
-             search (s # sub_nodes)
-         | "list-next" ->
-             let m = self # get_mask # node in
-             let s = m # parent in
-             let rec search l =
-               match l with
-                   x :: y :: l' ->
-                     if x == m then
-                       match y # attribute "name" with
-                           Value s -> c # goto s
-                         | _ -> assert false
-                     else
-                       search (y :: l')
-                 | _ -> ()
-             in
-             search (s # sub_nodes)
-         | "hist-prev" ->
-             (try c # previous with Not_found -> ())
-         | "hist-next" ->
-             (try c # next with Not_found -> ())
-         | _ -> ()
-      in
-      let b = Button.create w ( [ Tk.Text att_label; Tk.Command cmd ] @
-                               self # fg_color_opt @
-                               self # bg_color_opt @
-                               self # font_opt ) in
-      b
-
-
-  end
-;;
-
-
-(**********************************************************************)
-
-open Pxp_yacc
-
-let tag_map =
-  make_spec_from_mapping
-    ~data_exemplar:(new data_impl (new default))
-    ~default_element_exemplar:(new element_impl (new default))
-    ~element_mapping:
-       (let m = Hashtbl.create 50 in
-       Hashtbl.add m "application"
-                     (new element_impl (new application));
-       Hashtbl.add m "sequence"
-                     (new element_impl (new sequence));
-       Hashtbl.add m "mask"
-                     (new element_impl (new mask));
-       Hashtbl.add m "vbox"
-                     (new element_impl (new vbox));
-       Hashtbl.add m "hbox"
-                     (new element_impl (new hbox));
-       Hashtbl.add m "vspace"
-                     (new element_impl (new vspace));
-       Hashtbl.add m "hspace"
-                     (new element_impl (new hspace));
-       Hashtbl.add m "label"
-                     (new element_impl (new label));
-       Hashtbl.add m "entry"
-                     (new element_impl (new entry));
-       Hashtbl.add m "textbox"
-                     (new element_impl (new textbox));
-       Hashtbl.add m "button"
-                     (new element_impl (new button));
-       m)
-    ()
-;;
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:31  lpadovan
- * Initial revision
- *
- * Revision 1.5  2000/08/30 15:58:49  gerd
- *     Updated.
- *
- * Revision 1.4  2000/07/16 19:36:03  gerd
- *     Updated.
- *
- * Revision 1.3  2000/07/08 22:03:11  gerd
- *     Updates because of PXP interface changes.
- *
- * Revision 1.2  2000/06/04 20:29:19  gerd
- *     Updates because of renamed PXP modules.
- *
- * Revision 1.1  1999/08/21 19:11:05  gerd
- *     Initial revision.
- *
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/Makefile b/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/Makefile
deleted file mode 100644 (file)
index c0068a5..0000000
--- a/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/Makefile
+++ /dev/null
@@ -1,16 +0,0 @@
-.PHONY: all
-all:
-
-.PHONY: clean
-clean:
-
-.PHONY: CLEAN
-CLEAN: clean
-
-.PHONY: distclean
-distclean: clean
-       rm -f *~
-
-.PHONY: symlinks
-symlinks:
-       for x in *-style.xml; do ln -s ../xmlforms $${x%-style.xml} || true; done

diff --git a/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/address-style.xml b/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/address-style.xml
deleted file mode 100644 (file)
index d3af5da..0000000
--- a/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/address-style.xml
+++ /dev/null
@@ -1,361 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<!-- $Id$ -->
-
-<!DOCTYPE application SYSTEM "ds-style.dtd" [
-<!ENTITY h1.font  '-*-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*'>
-<!ENTITY h2.font  '-*-helvetica-bold-r-*-*-14-*-*-*-*-*-*-*'>
-<!ENTITY h3.font  '-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*'>
-<!ENTITY dfl.font '-*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*'>
-<!ENTITY dfl.bold.font '-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*'>
-<!ENTITY in.font  '-*-lucidatypewriter-medium-r-*-*-12-*-*-*-*-*-*-*'>
-
-<!ENTITY bg.button 'lightblue'>
-<!ENTITY bg.hilfe  '#E0E0E0'>
-<!ENTITY fg.hilfe  'black'>
-
-<!ENTITY headline
-  '<vbox>
-     <label font="&h2.font;" fgcolor="darkgreen">More about person...</label>
-     <vspace height="2mm"/>
-     <hbox>
-        <hbox bgcolor="black">
-           <hspace width="18cm"/>
-           <vbox><vspace height="2px"/></vbox>
-        </hbox>
-        <hspace width="5mm"/>
-     </hbox>
-     <vspace height="3mm"/>
-   </vbox>'>
-
-<!ENTITY help.headline
-  '<vbox>
-     <label font="&h2.font;" fgcolor="darkgreen">Help</label>
-     <vspace height="2mm"/>
-     <hbox>
-        <hbox bgcolor="black">
-           <hspace width="18cm"/>
-           <vbox><vspace height="2px"/></vbox>
-        </hbox>
-        <hspace width="5mm"/>
-     </hbox>
-     <vspace height="3mm"/>
-   </vbox>'>
-
-<!ENTITY info.headline
-  '<vbox>
-     <label font="&h2.font;" fgcolor="darkgreen">About xmlforms</label>
-     <vspace height="2mm"/>
-     <hbox>
-        <hbox bgcolor="black">
-           <hspace width="18cm"/>
-           <vbox><vspace height="2px"/></vbox>
-        </hbox>
-        <hspace width="5mm"/>
-     </hbox>
-     <vspace height="3mm"/>
-   </vbox>'>
-
-<!ENTITY footline
-  '<vbox>
-     <hbox>
-        <hbox bgcolor="black">
-           <hspace width="18cm"/>
-           <vbox><vspace height="2px"/></vbox>
-        </hbox>
-        <hspace width="5mm"/>
-     </hbox>
-     <vspace height="2mm"/>
-     <hbox>
-       <button bgcolor="&bg.button;" label="Previous" action="list-prev"/>
-       <button bgcolor="&bg.button;" label="Next" action="list-next"/>
-       <hspace width="0pt" fill="yes"/>
-       <button bgcolor="&bg.button;" label="Home" goto="start-page"/>
-       <hspace width="5mm"/>
-      </hbox>
-   </vbox>'>
-
-<!ENTITY help.footline
-  '<vbox>
-     <hbox>
-        <hbox bgcolor="black">
-           <hspace width="18cm"/>
-           <vbox><vspace height="2px"/></vbox>
-        </hbox>
-        <hspace width="5mm"/>
-     </hbox>
-     <vspace height="2mm"/>
-     <hbox>
-       <button bgcolor="&bg.button;" label="Back" action="hist-prev"/>
-       <hspace width="0pt" fill="yes"/>
-      </hbox>
-   </vbox>'>
-
-<!ENTITY info.footline '&help.footline;'>
-
-]>
-
-<!-- ***************************************************************** -->
-<!-- ************************               ************************** -->
-<!-- ************************ Starting page ************************** -->
-<!-- ************************               ************************** -->
-<!-- ***************************************************************** -->
-
-<application start="start-page"
-             font="&dfl.font;"
->
-
-  <mask name="start-page">
-    <vspace height="5mm"/>
-    <hbox>
-      <hspace width="5mm"/>
-      <vbox>
-       <vbox font="&h1.font;">
-         <label>A sample xmlforms application:</label>
-         <label>Address editor</label>
-       </vbox>
-       <vspace height="1cm"/>
-       <vbox>
-         <hbox>
-           <hbox width="6cm" halign="right">
-             <label>Name:</label>
-           </hbox>
-           <entry font="&in.font;" textwidth="40" slot="person.name"/>
-         </hbox>
-         <hbox>
-           <hbox width="6cm" halign="right">
-             <label>Postal address:</label>
-           </hbox>
-           <textbox font="&in.font;" 
-                    textwidth="40" 
-                    textheight="5"
-                    slot="person.address"/>
-         </hbox>
-         <hbox>
-           <hbox width="6cm" halign="right">
-             <label>Email:</label>
-           </hbox>
-           <entry font="&in.font;" textwidth="40" slot="person.email"/>
-         </hbox>
-         <hbox>
-           <hbox width="6cm" halign="right">
-             <label>Telephone number:</label>
-           </hbox>
-           <entry font="&in.font;" textwidth="20" slot="person.phone-number"/>
-         </hbox>
-       </vbox>
-       <vspace height="1cm"/>
-       <hbox>
-         <hspace width="3cm"/>
-         <hbox width="8cm">
-           <vbox>
-             <button bgcolor="&bg.button;"
-                     label="More about this person..."
-                     goto="person-list"/>
-             <button bgcolor="&bg.button;"
-                     label="Save"
-                     action="save"/>
-           </vbox>
-          </hbox>
-          <hbox>
-            <vbox>
-              <button bgcolor="&bg.button;"
-                     label="Info..."
-                     goto="info"/>
-             <button bgcolor="&bg.button;"
-                     label="Exit (without saving)"
-                     action="exit"/>
-            </vbox>
-          </hbox>
-       </hbox>
-       <vspace height="0px" fill="yes"/>
-       <hbox>
-         <hspace width="0px" fill="yes"/>
-       </hbox>
-      </vbox>
-    </hbox>
-  </mask>
-
-  <!-- ***************************************************************** -->
-  <!-- **********************               **************************** -->
-  <!-- ********************** More about... **************************** -->
-  <!-- **********************               **************************** -->
-  <!-- ***************************************************************** -->
-
-  <sequence name="person-list">
-    <mask name="Department">
-      <!-- ************************** HEADER ************************** -->
-      <vspace height="5mm"/>
-      <hbox>
-       <hspace width="5mm"/>
-       <vbox>
-         &headline;
-         <!-- ************************** CONTENT ************************* -->
-         <label font="&h1.font;">Department</label>
-         <vspace height="3mm"/>
-         <label>The person is working in this department:</label>
-         <hbox>
-           <hspace width="1cm"/>
-           <entry font="&in.font;"
-                  textwidth="70"
-                  slot="person.department"/>
-         </hbox>
-         <vspace height="3mm"/>
-         <label>The project he/she is working for:</label>
-         <hbox>
-           <hspace width="1cm"/>
-           <textbox font="&in.font;"
-                    textwidth="70"
-                    textheight="5"
-                    slot="person.project"/>
-         </hbox>
-         <vspace height="3mm"/>
-         <button bgcolor="&bg.button;"
-                 label="Help"
-                 goto="help.department"/>
-         <!-- ************************************************************ -->
-       </vbox>
-      </hbox>
-      <!-- ************************** FOOTER ************************** -->
-      <vspace height="0px" fill="yes"/>
-      <hbox>
-       <hspace width="5mm"/>
-       &footline;
-      </hbox>
-    </mask>
-
-
-    <mask name="business-contacts">
-      <!-- ************************** HEADER ************************** -->
-      <vspace height="5mm"/>
-      <hbox>
-       <hspace width="5mm"/>
-       <vbox>
-         &headline;
-         <!-- ************************** CONTENT ************************* -->
-         <label font="&h1.font;">Business Contacts</label>
-         <vspace height="3mm"/>
-         <label>Notes about contacts:</label>
-         <hbox>
-           <hspace width="1cm"/>
-           <textbox font="&in.font;"
-                    textwidth="70"
-                    textheight="10"
-                    slot="person.contacts"/>
-         </hbox>
-         <vspace height="3mm"/>
-         <button bgcolor="&bg.button;"
-                 label="Help"
-                 goto="help.business-contacts"/>
-         <!-- ************************************************************ -->
-       </vbox>
-      </hbox>
-      <!-- ************************** FOOTER ************************** -->
-      <vspace height="0px" fill="yes"/>
-      <hbox>
-       <hspace width="5mm"/>
-       &footline;
-      </hbox>
-    </mask>
-
-  </sequence>
-
-  <!-- ***************************************************************** -->
-  <!-- *****************************       ***************************** -->
-  <!-- ***************************** Help  ***************************** -->
-  <!-- *****************************       ***************************** -->
-  <!-- ***************************************************************** -->
-
-  <mask name="help.department">
-    <!-- ************************** HEADER ************************** -->
-    <vspace height="5mm"/>
-    <hbox>
-      <hspace width="5mm"/>
-      <vbox>
-       &help.headline;
-       <!-- ************************** CONTENT ************************* -->
-       <label font="&h1.font;">Department</label>
-       <vspace height="3mm"/>
-        <textbox fgcolor="&fg.hilfe;"
-                bgcolor="&bg.hilfe;"
-                textheight="15"
-                textwidth="70"
->The help system should be designed to help you filling out your form, but
-writing help texts is so stupid...
-</textbox>
-       <!-- ************************************************************ -->
-      </vbox>
-    </hbox>
-    <!-- ************************** FOOTER ************************** -->
-    <vspace height="0px" fill="yes"/>
-    <hbox>
-      <hspace width="5mm"/>
-      &help.footline;
-    </hbox>
-  </mask>
-
-  <mask name="help.business-contacts">
-    <!-- ************************** HEADER ************************** -->
-    <vspace height="5mm"/>
-    <hbox>
-      <hspace width="5mm"/>
-      <vbox>
-       &help.headline;
-       <!-- ************************** CONTENT ************************* -->
-       <label font="&h1.font;">Business Contacts</label>
-       <vspace height="3mm"/>
-        <textbox fgcolor="&fg.hilfe;"
-                bgcolor="&bg.hilfe;"
-                textheight="15"
-                textwidth="70"
->It is often helpful to remember the last telephone and/or email contacts
-quickly.
-</textbox>
-       <!-- ************************************************************ -->
-      </vbox>
-    </hbox>
-    <!-- ************************** FOOTER ************************** -->
-    <vspace height="0px" fill="yes"/>
-    <hbox>
-      <hspace width="5mm"/>
-      &help.footline;
-    </hbox>
-  </mask>
-
-  <!-- ***************************************************************** -->
-  <!-- ***************************************************************** -->
-  <!-- ****************************** Info ***************************** -->
-  <!-- ***************************************************************** -->
-  <!-- ***************************************************************** -->
-
-  <mask name="info">
-    <!-- ************************** HEADER ************************** -->
-    <vspace height="5mm"/>
-    <hbox>
-      <hspace width="5mm"/>
-      <vbox>
-       &info.headline;
-       <!-- ************************** CONTENT ************************* -->
-       <vspace height="3mm"/>
-        <textbox fgcolor="&fg.hilfe;"
-                bgcolor="&bg.hilfe;"
-                textheight="15"
-                textwidth="70"
-><![CDATA[About "xmlforms":
-Version <unknown>,
-written by Gerd Stolpmann
-
-Contact: Gerd.Stolpmann@darmstadt.netsurf.de
-]]></textbox>
-       <!-- ************************************************************ -->
-      </vbox>
-    </hbox>
-    <!-- ************************** FOOTER ************************** -->
-    <vspace height="0px" fill="yes"/>
-    <hbox>
-      <hspace width="5mm"/>
-      &info.footline;
-    </hbox>
-  </mask>
-
-
-</application>

diff --git a/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/crazy-style.xml b/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/crazy-style.xml
deleted file mode 100644 (file)
index cce8df0..0000000
--- a/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/crazy-style.xml
+++ /dev/null
@@ -1,62 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<!DOCTYPE application SYSTEM "./ds-style.dtd" [
-  <!ENTITY vz '<button label="&lt;" action="list-prev"/>
-               <button label=">" action="list-next"/>
-               <button label="exit" goto="first"/>'>
-]
->
-
-<application start="first">
-<mask name="first" font="-*-lucidatypewriter-medium-r-*-*-12-*-*-*-*-*-*-*">
-<vbox halign="right">
-<label>one</label>
-<label bgcolor="green">Number two</label>
-<hbox width="4cm" halign="center" valign="bottom" bgcolor="red" fgcolor="blue">
-<vbox>
-<label>a1</label>
-<vspace height="1cm"/>
-<label>a2</label>
-</vbox>
-<label>b
-c</label>
-</hbox>
-</vbox>
-<textbox slot="q" textheight="5" textwidth="60">A Text</textbox>
-<button label="sequence" goto="seq"/>
-<label bgcolor="blue">A very long label, bigger than the box</label>
-<vspace height="2cm" fill="yes"/>
-<hbox><button label="left" bgcolor="yellow" goto="second"/><hspace width="0px" fill="yes"/>
-<entry slot="a" textwidth="10" fgcolor="red">right</entry>
-</hbox>
-</mask>
-
-<mask name="second">
-<button label="main" bgcolor="yellow" goto="first"/>
-<button label="previous" action="hist-prev"/>
-<button label="save" action="save"/>
-</mask>
-
-<sequence name="seq">
-<mask name="n1">
-<label>n1</label>
-&vz;
-</mask>
-<mask name="n2">
-<label>n2</label>
-&vz;
-</mask>
-<mask name="n3">
-<label>n3</label>
-&vz;
-</mask>
-<mask name="n4">
-<label>n4</label>
-&vz;
-</mask>
-<mask name="n5">
-<label>n5</label>
-&vz;
-</mask>
-</sequence>
-
-</application>

diff --git a/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/ds-object.dtd b/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/ds-object.dtd
deleted file mode 100644 (file)
index 750300c..0000000
--- a/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/ds-object.dtd
+++ /dev/null
@@ -1,8 +0,0 @@
-<?xml encoding="ISO-8859-1"?>
-<!-- $Id$ -->
-
-<!ELEMENT record (string)*>
-
-<!ELEMENT string (#PCDATA)>
-<!ATTLIST string
-          name ID #REQUIRED>

diff --git a/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/ds-style.dtd b/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/ds-style.dtd
deleted file mode 100644 (file)
index 2f8b7a2..0000000
--- a/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/ds-style.dtd
+++ /dev/null
@@ -1,183 +0,0 @@
-<?xml encoding="ISO-8859-1"?>
-<!-- $Id$ -->
-
-<!-- entities describing content models -->
-
-<!ENTITY % vertical.only    "vspace">
-<!ENTITY % horizontal.only  "hspace">
-<!ENTITY % mixed            "vbox|hbox|label|entry|textbox|button">
-
-
-<!-- entities describing attribute type -->
-
-<!ENTITY % att.valign       "(top|bottom|center)">
-<!ENTITY % att.halign       "(left|right|center)">
-
-
-<!ENTITY % default.atts     "bgcolor CDATA   #IMPLIED
-                             fgcolor CDATA   #IMPLIED
-                             font    CDATA   #IMPLIED">
-
-<!-- "bgcolor", "fgcolor", and "font" are attribute applicable to every
-     element. They set the background color, foreground color, resp. the
-     font of the element and all sub elements that do not specifiy another
-     value.
-     Colors: all X windows names are allowed, e.g. "black", "white",
-     "lavenderblush", or "#A0B1C2".
-     Font: again X windows font names
-  -->
-
-
-<!ELEMENT application (mask|sequence)+>
-<!ATTLIST application
-          start IDREF #REQUIRED
-          %default.atts;
->
-
-<!-- An "application" is the top-level element. The "start" attribute must 
-     contain the name of the mask or mask sequence to start with.
-  -->
-
-
-<!ELEMENT sequence (mask)+>
-<!ATTLIST sequence
-          name ID #REQUIRED
-          %default.atts;
->
-
-<!-- A "sequence" of masks. In a sequence, you can use the special button
-     actions "list-prev" and "list-next" that go to the previous mask resp.
-     the next mask of the sequence.
-  -->
-
-
-<!ELEMENT mask (%vertical.only;|%horizontal.only;|%mixed;)*>
-<!ATTLIST mask
-          name ID #REQUIRED
-          %default.atts;
->
-
-<!-- A "mask" contains layout and functional elements of a visible page. -->
-
-
-<!ELEMENT vbox (%vertical.only;|%mixed;)*>
-<!ATTLIST vbox
-          halign %att.halign; "left"
-          %default.atts;
->
-
-<!-- A "vbox" (vertical box) renders the inner material in vertical direction.
-     The "halign" attribute specifies whether the inner material should be
-     left-aligned, right-aligned, or centered.
-  -->
-
-<!ELEMENT hbox (%horizontal.only;|%mixed;)*>
-<!ATTLIST hbox
-          width CDATA         #IMPLIED
-          halign %att.halign; "left"
-          valign %att.valign; "top"
-          %default.atts;
->
-
-<!-- An "hbox" (horizontal box) renders the inner material in horizontal
-     direction. The "valign" attribute specifies whether the inner material 
-     should be top-aligned, bottom-aligned, or centered.
-     Normally, the width of an hbox is the sum of its members, but you can
-     also widen a box by specifying the "width" attribute. This is a number
-     with a dimension, e.g. "10.5 cm", "105 mm", "4.13 in". Other dimensions
-     are "pt" (points) and "px" (pixels).
-     If "width" is given, you may also set "halign" (see vbox for possible
-     values).
-  -->
-
-<!ELEMENT vspace EMPTY>
-<!ATTLIST vspace
-          height CDATA      #REQUIRED
-          fill  (yes|no)    "no"
-          %default.atts;
->
-
-<!-- "vspace" is a vertical space of given "height" (again a number with a 
-     dimension, see hbox). 
-     If "fill" is "yes", the space is extended as much as possible.
-  -->
-
-<!ELEMENT hspace EMPTY>
-<!ATTLIST hspace
-          width CDATA       #REQUIRED
-          fill  (yes|no)    "no"
-          %default.atts;
->
-
-<!-- "hspace" is a horizontal space of given "width" (again a number with a 
-     dimension, see hbox). 
-     If "fill" is "yes", the space is extended as much as possible.
-  -->
-
-<!ELEMENT label (#PCDATA)>
-<!ATTLIST label
-          textwidth CDATA    #IMPLIED
-          halign %att.halign; "left"
-          %default.atts;
->
-
-<!-- A "label" is a piece of constant text. The text is included as #PCDATA
-     in the element. 
-     You may set "textwidth" to a (dimensionless) number to specify a fixed
-     width. In this case, "halign" determines the horizontal alignment.
-  -->
-
-<!ELEMENT entry (#PCDATA)>
-<!ATTLIST entry
-          textwidth CDATA   #REQUIRED
-          slot      NMTOKEN #REQUIRED
-          %default.atts;
->
-
-<!-- An "entry" is an editable text line. "textwidth" specifies the width of
-     the visible line (but the contents can be longer). "slot" is the name of
-     a slot that is associated with the element.
-     If the element contains #PCDATA, this is used as default value if 
-     the slot has not yet been filled.
-  -->
-
-<!ELEMENT textbox (#PCDATA)>
-<!ATTLIST textbox
-          textwidth  CDATA   #REQUIRED
-          textheight CDATA   #REQUIRED
-          slot       NMTOKEN #IMPLIED
-          %default.atts;
->
-
-<!-- A "textbox" is a text box with dimensions "textwidth" and "textheight"
-     (both dimensionless number). 
-     "slot" is the name of a slot that is associated with the element.
-     If the element contains #PCDATA, this is used as default value if 
-     the slot has not yet been filled.
-     If you omit "slot", the #PCDATA is displayed read-only.
-  -->
-
-<!ELEMENT button EMPTY>
-<!ATTLIST button
-          label  CDATA        #REQUIRED
-          action (goto|save|exit|save-exit|list-prev|list-next|
-                  hist-prev|hist-next) "goto"
-          goto   IDREF        #IMPLIED
-          %default.atts;
->
-
-<!-- A "button" is specified as follows:
-     - "label" is what is written on the button
-     - "action" specifies what to if the button is pressed:
-       - "goto":  jump to another mask or mask sequence whose name is given
-                  in the attribute "goto"
-       - "save":  save the record
-       - "exit":  exit the application
-       - "save-exit": save, then exit
-       - "list-prev": jump to the previous mask in the sequence
-       - "list-next": jump to the next mask in the sequence
-       - "hist-prev": jump to the mask that has actually been the predecessor
-       - "hist-next": jump to the mask that has actually been the successor
-  -->
-
-

diff --git a/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/mini-style.xml b/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/mini-style.xml
deleted file mode 100644 (file)
index 844235c..0000000
--- a/helm/DEVEL/pxp/pxp/examples/xmlforms/styles/mini-style.xml
+++ /dev/null
@@ -1,9 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<!DOCTYPE application SYSTEM "./ds-style.dtd" [
-]>
-
-<application start="first">
-<mask name="first" font="-*-lucidatypewriter-medium-r-*-*-12-*-*-*-*-*-*-*">
-<label>This is a label</label>
-</mask>
-</application>

diff --git a/helm/DEVEL/pxp/pxp/lexers/Makefile b/helm/DEVEL/pxp/pxp/lexers/Makefile
deleted file mode 100644 (file)
index 63ade70..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/Makefile
+++ /dev/null
@@ -1,34 +0,0 @@
-all_iso88591: generate_iso88591
-       $(MAKE) -f Makefile.code all_iso88591
-
-opt_iso88591: generate_iso88591
-       $(MAKE) -f Makefile.code opt_iso88591
-
-all_utf8: generate_utf8
-       $(MAKE) -f Makefile.code all_utf8
-
-opt_utf8: generate_utf8
-       $(MAKE) -f Makefile.code opt_utf8
-
-
-
-generate_iso88591:
-       $(MAKE) -f Makefile.generate all_iso88591
-       rm -f objects_iso88591 objects_utf8
-       $(MAKE) -f Makefile.generate objects_iso88591
-       touch objects_utf8
-       $(MAKE) -f Makefile.generate depend
-
-generate_utf8:
-       $(MAKE) -f Makefile.generate all_utf8
-       rm -f objects_iso88591 objects_utf8
-       $(MAKE) -f Makefile.generate objects_utf8
-       touch objects_iso88591
-       $(MAKE) -f Makefile.generate depend
-
-
-
-clean:
-       touch depend objects
-       $(MAKE) -f Makefile.code clean
-       $(MAKE) -f Makefile.generate clean

diff --git a/helm/DEVEL/pxp/pxp/lexers/Makefile.code b/helm/DEVEL/pxp/pxp/lexers/Makefile.code
deleted file mode 100644 (file)
index 781f296..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/Makefile.code
+++ /dev/null
@@ -1,54 +0,0 @@
-
-LARCHIVE_iso88591  = pxp_lex_iso88591.cma
-LARCHIVE_utf8      = pxp_lex_utf8.cma
-XLARCHIVE_iso88591 = $(LARCHIVE_iso88591:.cma=.cmxa)
-XLARCHIVE_utf8     = $(LARCHIVE_utf8:.cma=.cmxa)
-
-# LOBJECTS_* and XLOBJECTS_* are included from "objects_*":
-include objects_iso88591
-include objects_utf8
-
-#----------------------------------------------------------------------
-
-all_iso88591: $(LARCHIVE_iso88591)
-opt_iso88591: $(XLARCHIVE_iso88591)
-all_utf8:     $(LARCHIVE_utf8)
-opt_utf8:     $(XLARCHIVE_utf8)
-
-$(LARCHIVE_iso88591): $(LOBJECTS_iso88591)
-       $(OCAMLC) -a -o $(LARCHIVE_iso88591) $(LOBJECTS_iso88591)
-
-$(XLARCHIVE_iso88591): $(XLOBJECTS_iso88591)
-       $(OCAMLOPT) -a -o $(XLARCHIVE_iso88591) $(XLOBJECTS_iso88591)
-
-$(LARCHIVE_utf8): $(LOBJECTS_utf8)
-       $(OCAMLC) -a -o $(LARCHIVE_utf8) $(LOBJECTS_utf8)
-
-$(XLARCHIVE_utf8): $(XLOBJECTS_utf8)
-       $(OCAMLOPT) -a -o $(XLARCHIVE_utf8) $(XLOBJECTS_utf8)
-
-#----------------------------------------------------------------------
-# general rules:
-
-OPTIONS   =
-OCAMLC    = ocamlfind ocamlc -g -I .. -package netstring $(OPTIONS)
-OCAMLOPT  = ocamlfind ocamlopt -p -I .. -package netstring $(OPTIONS) 
-
-.SUFFIXES: .cmo .cmi .cmx .ml .mli 
-
-.ml.cmx:
-       $(OCAMLOPT) -c $<
-
-.ml.cmo:
-       $(OCAMLC) -c $<
-
-.mli.cmi:
-       $(OCAMLC) -c $<
-
-
-*.mli:
-
-clean:
-       rm -f *.cmo *.cmx *.cma *.cmxa *.cmi *.o *.a
-
-include depend

diff --git a/helm/DEVEL/pxp/pxp/lexers/Makefile.generate b/helm/DEVEL/pxp/pxp/lexers/Makefile.generate
deleted file mode 100644 (file)
index 8ee39cb..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/Makefile.generate
+++ /dev/null
@@ -1,67 +0,0 @@
-LEXERSRC = pxp_lex_misc.src \
-          pxp_lex_document.src \
-          pxp_lex_content.src \
-          pxp_lex_within_tag.src \
-          pxp_lex_document_type.src \
-          pxp_lex_declaration.src \
-          pxp_lex_dtd_string.src \
-          pxp_lex_content_string.src \
-          pxp_lex_name_string.src 
-
-OTHERSRC = open_pxp_lex_aux_iso88591.src \
-          pxp_lex_aux.src \
-          pxp_lex_defs_iso88591.def
-
-LEXERMLL_iso88591 = $(LEXERSRC:.src=_iso88591.mll)
-LEXERMLL_utf8     = $(LEXERSRC:.src=_utf8.mll)
-
-LEXERML_iso88591  = $(LEXERSRC:.src=_iso88591.ml)
-LEXERML_utf8      = $(LEXERSRC:.src=_utf8.ml)
-
-LEXERCMO_iso88591 = pxp_lex_aux_iso88591.cmo $(LEXERSRC:.src=_iso88591.cmo)
-LEXERCMO_utf8     = pxp_lex_aux_utf8.cmo     $(LEXERSRC:.src=_utf8.cmo)
-
-LEXERCMX_iso88591 = $(LEXERCMO_iso88591:.cmo=.cmx)
-LEXERCMX_utf8     = $(LEXERCMO_utf8:.cmo=.cmx)
-
-.PHONY: all_iso88591
-all_iso88591: iso88591_done 
-
-.PHONY: all_utf8
-all_utf8: utf8_done
-
-iso88591_done: $(LEXERSRC) $(OTHERSRC)
-       ../tools/insert_variant -variant iso88591 $(LEXERSRC)
-       for file in $(LEXERMLL_iso88591); do ocamllex $$file; done
-       touch iso88591_done
-
-utf8_done: $(LEXERSRC) $(OTHERSRC) pxp_lex_defs_utf8.def
-       ../tools/insert_variant -variant utf8 $(LEXERSRC)
-       for file in $(LEXERMLL_utf8); do ocamllex $$file; done
-       touch utf8_done
-
-pxp_lex_defs_utf8.def: pxp_lex_defs_generic.def pxp_lex_defs_drv_utf8.def
-       ../tools/ucs2_to_utf8/ucs2_to_utf8 <pxp_lex_defs_generic.def \
-                                  >pxp_lex_defs_utf8.def || \
-               rm -f pxp_lex_defs_utf8.def
-       cat pxp_lex_defs_drv_utf8.def >>pxp_lex_defs_utf8.def
-
-objects_iso88591:
-       echo LOBJECTS_iso88591  = $(LEXERCMO_iso88591)  >objects_iso88591
-       echo XLOBJECTS_iso88591 = $(LEXERCMX_iso88591) >>objects_iso88591
-
-objects_utf8:
-       echo LOBJECTS_utf8  = $(LEXERCMO_utf8)  >objects_utf8
-       echo XLOBJECTS_utf8 = $(LEXERCMX_utf8) >>objects_utf8
-
-depend: *.ml *.mli 
-       ocamldep *.ml *.mli >depend
-
-.PHONY: clean
-clean:
-       rm -f $(LEXERMLL_iso88591) $(LEXERML_iso88591) iso88591_done \
-             $(LEXERMLL_utf8)     $(LEXERML_utf8)     utf8_done \
-             pxp_lex_defs_utf8.def \
-             objects_iso88591 objects_utf8 depend
-
-*.mli:

diff --git a/helm/DEVEL/pxp/pxp/lexers/objects b/helm/DEVEL/pxp/pxp/lexers/objects
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/DEVEL/pxp/pxp/lexers/open_pxp_lex_aux_iso88591.src b/helm/DEVEL/pxp/pxp/lexers/open_pxp_lex_aux_iso88591.src
deleted file mode 100644 (file)
index 2377aff..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/open_pxp_lex_aux_iso88591.src
+++ /dev/null
@@ -1,19 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-open Pxp_lex_aux_iso88591
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/open_pxp_lex_aux_utf8.src b/helm/DEVEL/pxp/pxp/lexers/open_pxp_lex_aux_utf8.src
deleted file mode 100644 (file)
index 7c1b12a..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/open_pxp_lex_aux_utf8.src
+++ /dev/null
@@ -1,19 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-open Pxp_lex_aux_utf8
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/open_pxp_lex_misc_iso88591.src b/helm/DEVEL/pxp/pxp/lexers/open_pxp_lex_misc_iso88591.src
deleted file mode 100644 (file)
index 104eb9b..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/open_pxp_lex_misc_iso88591.src
+++ /dev/null
@@ -1,19 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-open Pxp_lex_misc_iso88591
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/open_pxp_lex_misc_utf8.src b/helm/DEVEL/pxp/pxp/lexers/open_pxp_lex_misc_utf8.src
deleted file mode 100644 (file)
index fc545f2..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/open_pxp_lex_misc_utf8.src
+++ /dev/null
@@ -1,19 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-open Pxp_lex_misc_utf8
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_aux.src b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_aux.src
deleted file mode 100644 (file)
index 2ab21a3..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_aux.src
+++ /dev/null
@@ -1,82 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-  class dummy_entity = object end
-
-  let dummy_entity = ( new dummy_entity : entity_id )
-
-  (* The following tokens are pre-allocated to reduce the load on the
-   * GC.
-   *)
-
-  let tok_Doctype__Document_type = Doctype dummy_entity, Document_type
-  let tok_Ignore__Document       = Ignore, Document
-  let tok_Ignore__Within_tag     = Ignore, Within_tag
-  let tok_Ignore__Document_type  = Ignore, Document_type
-  let tok_Ignore__Declaration    = Ignore, Declaration
-  let tok_Ignore__Ignored        = Ignore, Ignored_section
-  let tok_Eof__Document          = Eof, Document
-  let tok_Eof__Content           = Eof, Content
-  let tok_Eof__Within_tag        = Eof, Within_tag
-  let tok_Eof__Document_type     = Eof, Document_type
-  let tok_Eof__Declaration       = Eof, Declaration
-  let tok_Eof__Ignored           = Eof, Ignored_section
-  let tok_LineEndCRLF__Content   = LineEnd "\r\n", Content
-  let tok_LineEndCR__Content     = LineEnd "\r", Content
-  let tok_LineEndLF__Content     = LineEnd "\n", Content
-  let tok_CharDataRBRACKET__Content = CharData "]", Content
-  let tok_Eq__Within_tag         = Eq, Within_tag
-  let tok_Rangle__Content        = Rangle, Content
-  let tok_Rangle_empty__Content  = Rangle_empty, Content
-  let tok_Dtd_begin__Declaration = Dtd_begin dummy_entity, Declaration
-  let tok_Doctype_rangle__Document = Doctype_rangle dummy_entity, Document
-  let tok_Percent__Declaration   = Percent, Declaration
-  let tok_Plus__Declaration      = Plus, Declaration
-  let tok_Star__Declaration      = Star, Declaration
-  let tok_Bar__Declaration       = Bar, Declaration
-  let tok_Comma__Declaration     = Comma, Declaration
-  let tok_Qmark__Declaration     = Qmark, Declaration
-  let tok_Lparen__Declaration    = Lparen dummy_entity, Declaration
-  let tok_RparenPlus__Declaration   = RparenPlus dummy_entity, Declaration
-  let tok_RparenStar__Declaration   = RparenStar dummy_entity, Declaration
-  let tok_RparenQmark__Declaration  = RparenQmark dummy_entity, Declaration
-  let tok_Rparen__Declaration    = Rparen dummy_entity, Declaration
-  let tok_Required__Declaration  = Required, Declaration
-  let tok_Implied__Declaration   = Implied, Declaration
-  let tok_Fixed__Declaration     = Fixed, Declaration
-  let tok_Pcdata__Declaration    = Pcdata, Declaration
-  let tok_Decl_element__Declaration  = Decl_element dummy_entity, Declaration
-  let tok_Decl_attlist__Declaration  = Decl_attlist dummy_entity, Declaration
-  let tok_Decl_entity__Declaration   = Decl_entity dummy_entity, Declaration
-  let tok_Decl_notation__Declaration = Decl_notation dummy_entity, Declaration
-  let tok_Conditional_begin__Declaration = Conditional_begin dummy_entity, 
-                                           Declaration 
-  let tok_Conditional_begin__Ignored     = Conditional_begin dummy_entity, 
-                                           Ignored_section
-  let tok_Conditional_end__Declaration   = Conditional_end dummy_entity, 
-                                           Declaration
-  let tok_Conditional_end__Ignored       = Conditional_end dummy_entity, 
-                                           Ignored_section
-  let tok_Conditional_body__Declaration  = Conditional_body dummy_entity, 
-                                           Declaration
-  let tok_Decl_rangle__Declaration   = Decl_rangle dummy_entity, Declaration
-  let tok_Dtd_end__Document_type     = Dtd_end dummy_entity, Document_type
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/08/18 20:19:59  gerd
- *     Comments return different comment tokens.
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_aux_iso88591.ml b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_aux_iso88591.ml
deleted file mode 100644 (file)
index 07f8c45..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_aux_iso88591.ml
+++ /dev/null
@@ -1,97 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(* NOTE: Currently, this module is *identical* to Pxp_lex_aux_utf8 *)
-
-  open Pxp_types
-  open Pxp_lexer_types
-
-  let get_name_end s k =
-    (* Get the index of the end+1 of the name beginning at position k *)
-    let l = String.length s in
-    let rec find j =
-      if j < l then
-       match s.[j] with
-         | ('\009'|'\010'|'\013'|'\032') -> j
-         |_                              -> find (j+1)
-      else
-       l
-    in
-    find k
-
-  let get_ws_end s k =
-    let l =  String.length s in
-    let rec find j =
-      if j < l then
-       match s.[j] with
-           (' '|'\t'|'\r'|'\n') -> find (j+1)
-         | _                    -> j
-      else
-       l
-    in
-    find k
-
-  let scan_pi pi xml_scanner =
-    let s = String.sub pi 2 (String.length pi - 4) in
-            (* the PI without the leading "<?" and the trailing "?>" *)
-    let xml_lexbuf = Lexing.from_string (s ^ " ") in
-      (* Add space because the lexer expects whitespace after every
-       * clause; by adding a space there is always whitespace at the 
-       * end of the string.
-       *)
-
-    (* The first word of a PI must be a name: Extract it. *)
-
-    let s_name, s_len =
-      match xml_scanner xml_lexbuf with
-         Pro_name n -> 
-           let ltok = String.length (Lexing.lexeme xml_lexbuf) in
-           if String.length n = ltok then
-              (* No whitespace after the name *)
-             raise (WF_error ("Bad processing instruction"));
-           n, ltok
-       | _ -> raise (WF_error ("Bad processing instruction"))
-    in
-
-    (* Note: s_len is the length of s_name + the whitespace following s_name *)
-
-    match s_name with
-       "xml" -> begin
-         (* It is a <?xml ...?> PI: Get the other tokens *)
-         let rec collect () =
-           let t = xml_scanner xml_lexbuf in
-           (* prerr_endline (string_of_int (Lexing.lexeme_end xml_lexbuf)); *)
-           if t = Pro_eof then
-             []
-           else
-             t :: collect()
-         in
-         PI_xml (collect())
-       end
-      | _ -> 
-         let len_param = String.length s - s_len in
-         (* It is possible that len_param = -1 *)
-         if len_param >= 1 then
-           PI(s_name, String.sub s s_len len_param)
-         else
-           PI(s_name, "")
-
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/05/29 23:53:12  gerd
- *     Updated because Markup_* modules have been renamed to Pxp_*.
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_aux_utf8.ml b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_aux_utf8.ml
deleted file mode 100644 (file)
index 0b2c577..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_aux_utf8.ml
+++ /dev/null
@@ -1,95 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(* NOTE: Currently, this module is *identical* to Pxp_lex_aux_iso88591 *)
-
-  open Pxp_types
-  open Pxp_lexer_types
-
-  let get_name_end s k =
-    (* Get the index of the end+1 of the name beginning at position k *)
-    let l = String.length s in
-    let rec find j =
-      if j < l then
-       match s.[j] with
-         | ('\009'|'\010'|'\013'|'\032') -> j
-         |_                              -> find (j+1)
-      else
-       l
-    in
-    find k
-
-  let get_ws_end s k =
-    let l =  String.length s in
-    let rec find j =
-      if j < l then
-       match s.[j] with
-           (' '|'\t'|'\r'|'\n') -> find (j+1)
-         | _                    -> j
-      else
-       l
-    in
-    find k
-
-  let scan_pi pi xml_scanner =
-    let s = String.sub pi 2 (String.length pi - 4) in
-            (* the PI without the leading "<?" and the trailing "?>" *)
-    let xml_lexbuf = Lexing.from_string (s ^ " ") in
-      (* Add space because the lexer expects whitespace after every
-       * clause; by adding a space there is always whitespace at the 
-       * end of the string.
-       *)
-
-    (* The first word of a PI must be a name: Extract it. *)
-
-    let s_name, s_len =
-      match xml_scanner xml_lexbuf with
-         Pro_name n -> 
-           let ltok = String.length (Lexing.lexeme xml_lexbuf) in
-           if String.length n = ltok then
-              (* No whitespace after the name *)
-             raise (WF_error ("Bad processing instruction"));
-           n, ltok
-       | _ -> raise (WF_error ("Bad processing instruction"))
-    in
-
-    (* Note: s_len is the length of s_name + the whitespace following s_name *)
-
-    match s_name with
-       "xml" -> begin
-         (* It is a <?xml ...?> PI: Get the other tokens *)
-         let rec collect () =
-           let t = xml_scanner xml_lexbuf in
-           (* prerr_endline (string_of_int (Lexing.lexeme_end xml_lexbuf)); *)
-           if t = Pro_eof then
-             []
-           else
-             t :: collect()
-         in
-         PI_xml (collect())
-       end
-      | _ -> 
-         let len_param = String.length s - s_len in
-         (* It is possible that len_param = -1 *)
-         if len_param >= 1 then
-           PI(s_name, String.sub s s_len len_param)
-         else
-           PI(s_name, "")
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/05/29 23:53:12  gerd
- *     Updated because Markup_* modules have been renamed to Pxp_*.
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_content.src b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_content.src
deleted file mode 100644 (file)
index 3df2025..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_content.src
+++ /dev/null
@@ -1,107 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-{
-  open Pxp_types
-  open Pxp_lexer_types
-
-#insert pxp_lex_aux.src
-
-#insert open_pxp_lex_aux_*.src
-#insert open_pxp_lex_misc_*.src
-
-}
-
-#insert pxp_lex_defs_*.def
-
-rule scan_content = parse
-    "<?" pi_string "?>"
-      { scan_pi (Lexing.lexeme lexbuf) scan_xml_pi, Content }
-  | "<?"
-      { raise (WF_error ("Illegal processing instruction")) }
-  | "<!--"
-      { Comment_begin, Content_comment }
-  | '<' '/'? name
-      (* One rule for Tag_beg and Tag_end saves transitions. *)
-      { let s = Lexing.lexeme lexbuf in
-       if s.[1] = '/' then
-         Tag_end (String.sub s 2 (String.length s - 2), dummy_entity), 
-         Within_tag 
-       else
-         Tag_beg (String.sub s 1 (String.length s - 1), dummy_entity), 
-         Within_tag 
-      }
-  | "<![CDATA[" cdata_string "]]>"
-      { let s = Lexing.lexeme lexbuf in
-       Cdata (String.sub s 9 (String.length s - 12)), Content }
-  | "<!"
-      { raise (WF_error "Declaration either malformed or not allowed in this context") 
-      }
-  | "<"
-      { raise (WF_error ("The left angle bracket '<' must be written as '&lt;'"))
-      }
-  | "&#" ascii_digit+ ";"
-      { let s = Lexing.lexeme lexbuf in
-       CRef (int_of_string (String.sub s 2 (String.length s - 3))), Content }
-  | "&#x" ascii_hexdigit+ ";"
-      { let s = Lexing.lexeme lexbuf in
-       CRef (int_of_string ("0x" ^ String.sub s 3 (String.length s - 4))), Content }
-  | "&" name ";"
-      { let s = Lexing.lexeme lexbuf in
-       ERef (String.sub s 1 (String.length s - 2)), Content }
-  | "&" 
-      { raise (WF_error ("The ampersand '&' must be written as '&amp;'"))
-      }
-
-  (* LineEnd: Depending on whether we are reading from a primary source
-   * (file) or from the replacement text of an internal entity, line endings
-   * must be normalized (converted to \n) or not.
-   * The entity classes do that. The yacc parser will never see LineEnd;
-   * this token is always converted to the appropriate CharData token.
-   *)
-
-  | '\013' '\010'
-      { tok_LineEndCRLF__Content }
-  | '\013'
-      { tok_LineEndCR__Content }
-  | '\010'
-      { tok_LineEndLF__Content }
-  | eof
-      { tok_Eof__Content }
-  | "]]>" 
-      { raise (WF_error ("The sequence ']]>' must be written as ']]&gt;'"))
-      }
-  | "]"
-      { tok_CharDataRBRACKET__Content }
-  | normal_character+
-      { let s = Lexing.lexeme lexbuf in
-       CharData s, Content 
-      }
-  | _
-      { raise Netconversion.Malformed_code }
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.4  2000/08/18 20:19:59  gerd
- *     Comments return different comment tokens.
- *
- * Revision 1.3  2000/08/14 22:18:34  gerd
- *     Bad_character_stream -> Netconversion.Malformed_code
- *
- * Revision 1.2  2000/05/29 23:53:12  gerd
- *     Updated because Markup_* modules have been renamed to Pxp_*.
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_content_string.src b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_content_string.src
deleted file mode 100644 (file)
index 1eb76a4..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_content_string.src
+++ /dev/null
@@ -1,71 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-{
-  open Pxp_types
-  open Pxp_lexer_types
-
-#insert open_pxp_lex_aux_*.src
-#insert pxp_lex_aux.src
-
-}
-
-#insert pxp_lex_defs_*.def
-
-(* This lexer is used to expand and normalize attribute values: *)
-
-rule scan_content_string = parse
-    '&' name ';'
-      { let s = Lexing.lexeme lexbuf in
-       ERef (String.sub s 1 (String.length s - 2)) }
-  | "&#" ascii_digit+ ";"
-      { let s = Lexing.lexeme lexbuf in
-       CRef (int_of_string (String.sub s 2 (String.length s - 3))) }
-  | "&#x" ascii_hexdigit+ ";"
-      { let s = Lexing.lexeme lexbuf in
-       CRef (int_of_string ("0x" ^ String.sub s 3 (String.length s - 4))) }
-  | '&'
-      { raise(WF_error("The character '&' must be written as '&'")) }
-  | printable_character_except_amp_lt+
-      { CharData (Lexing.lexeme lexbuf) }
-  | '\009'
-      { CRef 32 }
-  | '\013' '\010'
-      { CRef(-1)   (* A special case *)
-      }
-  | '\013'
-      { CRef 32 }
-  | '\010'
-      { CRef 32 }
-  | '<'
-      { 
-       (* Depending on the situation, '<' may be legal or not: *)
-       CharData "<" 
-      }
-  | eof
-      { Eof }
-  | _
-      { raise Netconversion.Malformed_code }
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.3  2000/08/14 22:18:34  gerd
- *     Bad_character_stream -> Netconversion.Malformed_code
- *
- * Revision 1.2  2000/05/29 23:53:12  gerd
- *     Updated because Markup_* modules have been renamed to Pxp_*.
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_declaration.src b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_declaration.src
deleted file mode 100644 (file)
index 4f53d97..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_declaration.src
+++ /dev/null
@@ -1,138 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-{
-  open Pxp_types
-  open Pxp_lexer_types
-
-#insert pxp_lex_aux.src
-
-#insert open_pxp_lex_aux_*.src
-#insert open_pxp_lex_misc_*.src
-
-}
-
-#insert pxp_lex_defs_*.def
-
-(* scan_declaration: after "[" in DTD until matching "]" *)
-
-rule scan_declaration = parse
-    ws+
-      { tok_Ignore__Declaration }
-  | '%' name ';'
-      { let s = Lexing.lexeme lexbuf in
-       (PERef (String.sub s 1 (String.length s - 2))), Declaration }
-  | '%'
-      { tok_Percent__Declaration }
-  | '&' 
-      { raise(WF_error("References to general entities not allowed in DTDs")) }
-  | name
-      { Name (Lexing.lexeme lexbuf), Declaration }
-  | nmtoken
-      { Nametoken (Lexing.lexeme lexbuf), Declaration }
-  | '+'
-      { tok_Plus__Declaration }
-  | '*'
-      { tok_Star__Declaration }
-  | '|'
-      { tok_Bar__Declaration }
-  | ','
-      { tok_Comma__Declaration }
-  | '?'
-      { tok_Qmark__Declaration }
-  | '('
-      { tok_Lparen__Declaration }
-  | ")+" 
-      { tok_RparenPlus__Declaration }
-  | ")*" 
-      { tok_RparenStar__Declaration }
-  | ")?"
-      { tok_RparenQmark__Declaration }
-  | ')'
-      { tok_Rparen__Declaration }
-  | "#REQUIRED"
-      { tok_Required__Declaration }
-  | "#IMPLIED"
-      { tok_Implied__Declaration }
-  | "#FIXED"
-      { tok_Fixed__Declaration }
-  | "#PCDATA"
-      { tok_Pcdata__Declaration }
-  | "<!ELEMENT"
-      { tok_Decl_element__Declaration }
-  | "<!ATTLIST"
-      { tok_Decl_attlist__Declaration }
-  | "<!ENTITY"
-      { tok_Decl_entity__Declaration }
-  | "<!NOTATION"
-      { tok_Decl_notation__Declaration }
-  | "<!--"
-      { Comment_begin, Decl_comment }
-  | "<!["
-      { tok_Conditional_begin__Declaration }
-  | "]]>"
-      { tok_Conditional_end__Declaration }
-  | "["
-      { tok_Conditional_body__Declaration }
-
-  (* TODO: PIs modified *) 
-
-  | "<?" pi_string "?>"
-      { scan_pi (Lexing.lexeme lexbuf) scan_xml_pi, Declaration }
-  | "<?"
-      { raise (WF_error ("Illegal processing instruction")) }
-  | '"' [^ '"']* '"'
-      { let s = Lexing.lexeme lexbuf in
-        (* Check that characters are well-formed: *)
-       ignore(scan_characters (Lexing.from_string s));
-       (Unparsed_string (String.sub s 1 (String.length s - 2))), Declaration }
-  | '"'
-      { raise (WF_error ("Cannot find the second quotation mark"))
-      }
-  | "'" [^ '\'']* "'"
-      { let s = Lexing.lexeme lexbuf in
-        (* Check that characters are well-formed: *)
-       ignore(scan_characters (Lexing.from_string s));
-       (Unparsed_string (String.sub s 1 (String.length s - 2))), Declaration }
-  | "'"
-      { raise (WF_error ("Cannot find the second quotation mark"))
-      }
-  | '>'
-      { tok_Decl_rangle__Declaration }
-  | ']'
-      { tok_Dtd_end__Document_type }
-  | eof
-      { tok_Eof__Declaration }
-  | "<!"
-      { raise (WF_error "Declaration either malformed or not allowed in this context") 
-      }
-  | character
-      { raise (WF_error("Illegal token or character")) }
-  | _
-      { raise Netconversion.Malformed_code }
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.4  2000/08/18 20:19:59  gerd
- *     Comments return different comment tokens.
- *
- * Revision 1.3  2000/08/14 22:18:34  gerd
- *     Bad_character_stream -> Netconversion.Malformed_code
- *
- * Revision 1.2  2000/05/29 23:53:12  gerd
- *     Updated because Markup_* modules have been renamed to Pxp_*.
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_defs_drv_utf8.def b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_defs_drv_utf8.def
deleted file mode 100644 (file)
index dc108ef..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_defs_drv_utf8.def
+++ /dev/null
@@ -1,160 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-let ws = [ ' ' '\t' '\r' '\n' ]
-
-let ascii_digit = ['0'-'9']
-
-let ascii_hexdigit = ['0'-'9' 'a'-'h' 'A'-'H']
-
-let namechar = letter | digit | '.' | ':' | '-' | '_' | combiningChar | extender
-
-let name = ( letter | '_' | ':' ) namechar*
-
-let nmtoken = namechar+
-
-(* Valid characters are:
- * #9, #10, #13, #32-#xD7FF, #xE000-#xFFFD, #x10000-#x10FFFF
- *
- * #xD7FF as UTF-8 sequence:
- * 1110xxxx 10xxxxxx 10xxxxxx
- * 1110...D 10...7.. 10.F...F  = ED 9F BF
- *
- * #xE000 as UTF-8 sequence:
- * 1110xxxx 10xxxxxx 10xxxxxx
- * 1110...E 10...0.. 10.0...0  = EE 80 80
- *
- * UTF-8 sequence CF BE BF as character:
- * 1110xxxx 10xxxxxx 10xxxxxx
- * 1110...F 10111110 10111111  = #FFBF
- *
- * #xFFFD as UTF-8 sequence:
- * 1110xxxx 10xxxxxx 10xxxxxx
- * 1110...F 10...F.. 10.F...D  = EF BF BD
- *
- * #x010000 as UTF-8 sequence:
- * 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx
- * 111100.. 10.1...0 10...0.. 10.0...0 = F0 90 80 80
- *
- * #x10FFFF as UTF-8 sequence:
- * 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx
- * 111101.. 10.0...F 10...F.. 10.F...F = F4 8F BF BF
- *)
-
-
-let non_ascii_character = 
-  ['\192'-'\223'] ['\128'-'\191']                     (* #x80-#x7FF *)
-| ['\224'-'\236'] ['\128'-'\191'] ['\128'-'\191']     (* #x800-#xCFFF *)
-| '\237'          ['\128'-'\159'] ['\128'-'\191']     (* #xD000-#xD7FF *)
-| '\238'          ['\128'-'\191'] ['\128'-'\191']     (* #xE000-#xEFFF *)
-| '\239'          ['\128'-'\190'] ['\128'-'\191']     (* #xF000-#xFFBF *)
-| '\239'          '\191'          ['\128'-'\189']     (* #xFFC0-#xFFFD *)
-| '\240'          ['\144'-'\191'] ['\128'-'\191'] ['\128'-'\191']     
-                                                      (* #x010000-#x03FFFF *)
-| ['\241'-'\243'] ['\128'-'\191'] ['\128'-'\191'] ['\128'-'\191'] 
-                                                      (* #x040000-#x0FFFFF *)
-| '\244'          ['\128'-'\143'] ['\128'-'\191'] ['\128'-'\191'] 
-                                                      (* #x100000-#10FFFFF *)
-
-let character =
-  [ '\009' '\010' '\013' '\032'-'\127' ]
-| non_ascii_character
-
-
-let character_except_question_mark =                    (* '?' = '\063' *)
-  [ '\009' '\010' '\013' '\032'-'\062' '\064'-'\127' ]
-| non_ascii_character
-
-
-let character_except_right_angle_bracket =              (* '>' = '\062' *)
-  [ '\009' '\010' '\013' '\032'-'\061' '\063'-'\127' ]
-| non_ascii_character
-
-
-let character_except_minus =                            (* '-' = '\045' *)
-  [ '\009' '\010' '\013' '\032'-'\044' '\046'-'\127' ]
-| non_ascii_character
-
-
-let character_except_quot =                             (* '"' = '\034' *)
-  [ '\009' '\010' '\013' '\032'-'\033' '\035'-'\255' ]
-| non_ascii_character
-
-
-let character_except_apos =                             (* '\'' = '\039' *)
-  [ '\009' '\010' '\013' '\032'-'\038' '\040'-'\255' ]
-| non_ascii_character
-
-
-let pi_string = character_except_question_mark* 
-                ( '?' character_except_right_angle_bracket 
-                      character_except_question_mark* )* 
-                '?'?
-
-
-let comment_string = character_except_minus* 
-                     ('-' character_except_minus+ )*
-
-
-let normal_character = 
-  (* Character except '&' = '\038', '<' = '\060', ']' = '\093', and CR LF *)
-  [ '\009' '\032'-'\037' '\039'-'\059' '\061'-'\092' '\094'-'\127' ]
-| non_ascii_character
-
-
-let character_except_rbracket =                               (* ']' = '\093' *)
-  [ '\009' '\010' '\013' '\032'-'\092' '\094'-'\127' ]
-| non_ascii_character
-
-
-let character_except_rbracket_rangle =          (* ']' = '\093', '>' = '\062' *)
-  [ '\009' '\010' '\013' '\032'-'\061' '\063'-'\092' '\094'-'\127' ]
-| non_ascii_character
-
-
-let cdata_string = 
-  character_except_rbracket*
-  ( "]" character_except_rbracket+ |
-    "]]" ']'* character_except_rbracket_rangle character_except_rbracket*
-  )*
-  ']'*
-
-
-let printable_character_except_amp_lt =
-  (* '&' = '\038', '<' = '\060' *)
-  [ '\032'-'\037' '\039'-'\059' '\061'-'\127']
-| non_ascii_character
-
-
-let printable_character_except_amp_percent =
-  (* '%' = '\037', '&' = '\038' *)
-  [ '\032'-'\036' '\039'-'\127']
-| non_ascii_character
-
-
-let character_except_special =
-  (* '<'=060, ']'=093, '"'=034, '\''=039 *)
-  [ '\009' '\010' '\013' '\032'-'\033' '\035'-'\038' '\040'-'\059' 
-                         '\061'-'\092' '\094'-'\127' ]
-| non_ascii_character
-
-  
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/08/26 19:58:08  gerd
- *     Bugfix in character_except_apos. The bug caused that attribute
- * values delimited by &apos; could not be scanned at all.
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_defs_generic.def b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_defs_generic.def
deleted file mode 100644 (file)
index aeece89..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_defs_generic.def
+++ /dev/null
@@ -1,122 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(*****************************************************************)
-(*          Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>        *)
-(*                           14/05/2000                          *)
-(*                                                               *)
-(* These are taken from the appendix B of the XML reccomendation *)
-(*                                                               *)
-(*****************************************************************)
-
-(* 85 *)
-let baseChar =
-   [#x0041-#x005A] | [#x0061-#x007A] | [#x00C0-#x00D6] | [#x00D8-#x00F6]
- | [#x00F8-#x00FF] | [#x0100-#x0131] | [#x0134-#x013E] | [#x0141-#x0148]
- | [#x014A-#x017E] | [#x0180-#x01C3] | [#x01CD-#x01F0] | [#x01F4-#x01F5]
- | [#x01FA-#x0217] | [#x0250-#x02A8] | [#x02BB-#x02C1] | #x0386
- | [#x0388-#x038A] | #x038C | [#x038E-#x03A1] | [#x03A3-#x03CE]
- | [#x03D0-#x03D6] | #x03DA | #x03DC | #x03DE | #x03E0 | [#x03E2-#x03F3]
- | [#x0401-#x040C] | [#x040E-#x044F] | [#x0451-#x045C] | [#x045E-#x0481]
- | [#x0490-#x04C4] | [#x04C7-#x04C8] | [#x04CB-#x04CC] | [#x04D0-#x04EB]
- | [#x04EE-#x04F5] | [#x04F8-#x04F9] | [#x0531-#x0556] | #x0559
- | [#x0561-#x0586] | [#x05D0-#x05EA] | [#x05F0-#x05F2] | [#x0621-#x063A]
- | [#x0641-#x064A] | [#x0671-#x06B7] | [#x06BA-#x06BE] | [#x06C0-#x06CE]
- | [#x06D0-#x06D3] | #x06D5 | [#x06E5-#x06E6] | [#x0905-#x0939] | #x093D
- | [#x0958-#x0961] | [#x0985-#x098C] | [#x098F-#x0990] | [#x0993-#x09A8]
- | [#x09AA-#x09B0] | #x09B2 | [#x09B6-#x09B9] | [#x09DC-#x09DD]
- | [#x09DF-#x09E1] | [#x09F0-#x09F1] | [#x0A05-#x0A0A] | [#x0A0F-#x0A10]
- | [#x0A13-#x0A28] | [#x0A2A-#x0A30] | [#x0A32-#x0A33] | [#x0A35-#x0A36]
- | [#x0A38-#x0A39] | [#x0A59-#x0A5C] | #x0A5E | [#x0A72-#x0A74]
- | [#x0A85-#x0A8B] | #x0A8D | [#x0A8F-#x0A91] | [#x0A93-#x0AA8]
- | [#x0AAA-#x0AB0] | [#x0AB2-#x0AB3] | [#x0AB5-#x0AB9] | #x0ABD | #x0AE0
- | [#x0B05-#x0B0C] | [#x0B0F-#x0B10] | [#x0B13-#x0B28] | [#x0B2A-#x0B30]
- | [#x0B32-#x0B33] | [#x0B36-#x0B39] | #x0B3D | [#x0B5C-#x0B5D]
- | [#x0B5F-#x0B61] | [#x0B85-#x0B8A] | [#x0B8E-#x0B90] | [#x0B92-#x0B95]
- | [#x0B99-#x0B9A] | #x0B9C | [#x0B9E-#x0B9F] | [#x0BA3-#x0BA4]
- | [#x0BA8-#x0BAA] | [#x0BAE-#x0BB5] | [#x0BB7-#x0BB9] | [#x0C05-#x0C0C]
- | [#x0C0E-#x0C10] | [#x0C12-#x0C28] | [#x0C2A-#x0C33] | [#x0C35-#x0C39]
- | [#x0C60-#x0C61] | [#x0C85-#x0C8C] | [#x0C8E-#x0C90] | [#x0C92-#x0CA8]
- | [#x0CAA-#x0CB3] | [#x0CB5-#x0CB9] | #x0CDE | [#x0CE0-#x0CE1]
- | [#x0D05-#x0D0C] | [#x0D0E-#x0D10] | [#x0D12-#x0D28] | [#x0D2A-#x0D39]
- | [#x0D60-#x0D61] | [#x0E01-#x0E2E] | #x0E30 | [#x0E32-#x0E33]
- | [#x0E40-#x0E45] | [#x0E81-#x0E82] | #x0E84 | [#x0E87-#x0E88] | #x0E8A
- | #x0E8D | [#x0E94-#x0E97] | [#x0E99-#x0E9F] | [#x0EA1-#x0EA3] | #x0EA5
- | #x0EA7 | [#x0EAA-#x0EAB] | [#x0EAD-#x0EAE] | #x0EB0 | [#x0EB2-#x0EB3]
- | #x0EBD | [#x0EC0-#x0EC4] | [#x0F40-#x0F47] | [#x0F49-#x0F69]
- | [#x10A0-#x10C5] | [#x10D0-#x10F6] | #x1100 | [#x1102-#x1103]
- | [#x1105-#x1107] | #x1109 | [#x110B-#x110C] | [#x110E-#x1112] | #x113C
- | #x113E | #x1140 | #x114C | #x114E | #x1150 | [#x1154-#x1155] | #x1159
- | [#x115F-#x1161] | #x1163 | #x1165 | #x1167 | #x1169 | [#x116D-#x116E]
- | [#x1172-#x1173] | #x1175 | #x119E | #x11A8 | #x11AB | [#x11AE-#x11AF]
- | [#x11B7-#x11B8] | #x11BA | [#x11BC-#x11C2] | #x11EB | #x11F0 | #x11F9
- | [#x1E00-#x1E9B] | [#x1EA0-#x1EF9] | [#x1F00-#x1F15] | [#x1F18-#x1F1D]
- | [#x1F20-#x1F45] | [#x1F48-#x1F4D] | [#x1F50-#x1F57] | #x1F59 | #x1F5B
- | #x1F5D | [#x1F5F-#x1F7D] | [#x1F80-#x1FB4] | [#x1FB6-#x1FBC] | #x1FBE
- | [#x1FC2-#x1FC4] | [#x1FC6-#x1FCC] | [#x1FD0-#x1FD3] | [#x1FD6-#x1FDB]
- | [#x1FE0-#x1FEC] | [#x1FF2-#x1FF4] | [#x1FF6-#x1FFC] | #x2126
- | [#x212A-#x212B] | #x212E | [#x2180-#x2182] | [#x3041-#x3094]
- | [#x30A1-#x30FA] | [#x3105-#x312C] | [#xAC00-#xD7A3] 
-;;
-
-(* 86 *)
-let ideographic = [#x4E00-#x9FA5] | #x3007 | [#x3021-#x3029] ;;
-
-(* 84 *)
-let letter = baseChar | ideographic ;;
-
-(* 87 *)
-let combiningChar =
-   [#x0300-#x0345] | [#x0360-#x0361] | [#x0483-#x0486] | [#x0591-#x05A1]
- | [#x05A3-#x05B9] | [#x05BB-#x05BD] | #x05BF | [#x05C1-#x05C2] | #x05C4
- | [#x064B-#x0652] | #x0670 | [#x06D6-#x06DC] | [#x06DD-#x06DF]
- | [#x06E0-#x06E4] | [#x06E7-#x06E8] | [#x06EA-#x06ED] | [#x0901-#x0903]
- | #x093C | [#x093E-#x094C] | #x094D | [#x0951-#x0954] | [#x0962-#x0963]
- | [#x0981-#x0983] | #x09BC | #x09BE | #x09BF | [#x09C0-#x09C4]
- | [#x09C7-#x09C8] | [#x09CB-#x09CD] | #x09D7 | [#x09E2-#x09E3] | #x0A02
- | #x0A3C | #x0A3E | #x0A3F | [#x0A40-#x0A42] | [#x0A47-#x0A48]
- | [#x0A4B-#x0A4D] | [#x0A70-#x0A71] | [#x0A81-#x0A83] | #x0ABC
- | [#x0ABE-#x0AC5] | [#x0AC7-#x0AC9] | [#x0ACB-#x0ACD] | [#x0B01-#x0B03]
- | #x0B3C | [#x0B3E-#x0B43] | [#x0B47-#x0B48] | [#x0B4B-#x0B4D]
- | [#x0B56-#x0B57] | [#x0B82-#x0B83] | [#x0BBE-#x0BC2] | [#x0BC6-#x0BC8]
- | [#x0BCA-#x0BCD] | #x0BD7 | [#x0C01-#x0C03] | [#x0C3E-#x0C44]
- | [#x0C46-#x0C48] | [#x0C4A-#x0C4D] | [#x0C55-#x0C56] | [#x0C82-#x0C83]
- | [#x0CBE-#x0CC4] | [#x0CC6-#x0CC8] | [#x0CCA-#x0CCD] | [#x0CD5-#x0CD6]
- | [#x0D02-#x0D03] | [#x0D3E-#x0D43] | [#x0D46-#x0D48] | [#x0D4A-#x0D4D]
- | #x0D57 | #x0E31 | [#x0E34-#x0E3A] | [#x0E47-#x0E4E] | #x0EB1
- | [#x0EB4-#x0EB9] | [#x0EBB-#x0EBC] | [#x0EC8-#x0ECD] | [#x0F18-#x0F19]
- | #x0F35 | #x0F37 | #x0F39 | #x0F3E | #x0F3F | [#x0F71-#x0F84]
- | [#x0F86-#x0F8B] | [#x0F90-#x0F95] | #x0F97 | [#x0F99-#x0FAD]
- | [#x0FB1-#x0FB7] | #x0FB9 | [#x20D0-#x20DC] | #x20E1 | [#x302A-#x302F]
- | #x3099 | #x309A
-;;
-
-(* 88 *)
-let digit =
-   [#x0030-#x0039] | [#x0660-#x0669] | [#x06F0-#x06F9] | [#x0966-#x096F]
- | [#x09E6-#x09EF] | [#x0A66-#x0A6F] | [#x0AE6-#x0AEF] | [#x0B66-#x0B6F]
- | [#x0BE7-#x0BEF] | [#x0C66-#x0C6F] | [#x0CE6-#x0CEF] | [#x0D66-#x0D6F]
- | [#x0E50-#x0E59] | [#x0ED0-#x0ED9] | [#x0F20-#x0F29]
-;;
-
-(* 89 *)
-let extender =
-   #x00B7 | #x02D0 | #x02D1 | #x0387 | #x0640 | #x0E46 | #x0EC6 | #x3005
- | [#x3031-#x3035] | [#x309D-#x309E] | [#x30FC-#x30FE]
-;;
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_defs_iso88591.def b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_defs_iso88591.def
deleted file mode 100644 (file)
index b57da24..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_defs_iso88591.def
+++ /dev/null
@@ -1,85 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-let ws = [ ' ' '\t' '\r' '\n' ]
-
-(* Note: ISO-8859-1 charset does not have 'combining characters' *)
-
-let letter = ['A'-'Z' 'a'-'z' '\192'-'\214' '\216'-'\246' '\248'-'\255']
-let extender = '\183'
-let digit = ['0'-'9']
-let ascii_digit = ['0'-'9']
-let ascii_hexdigit = ['0'-'9' 'A'-'F' 'a'-'f']
-let namechar = letter | digit | '.' | ':' | '-' | '_' | extender
-let name = ( letter | '_' | ':' ) namechar*
-let nmtoken = namechar+
-
-let character = ['\009' '\010' '\013' '\032'-'\255']
-
-let character_except_question_mark =                    (* '?' = '\063' *)
-  [ '\009' '\010' '\013' '\032'-'\062' '\064'-'\255' ]
-
-let character_except_right_angle_bracket =              (* '>' = '\062' *)
-  [ '\009' '\010' '\013' '\032'-'\061' '\063'-'\255' ]
-
-let character_except_minus =                            (* '-' = '\045' *)
-  [ '\009' '\010' '\013' '\032'-'\044' '\046'-'\255' ]
-
-let character_except_quot =                             (* '"' = '\034' *)
-  [ '\009' '\010' '\013' '\032'-'\033' '\035'-'\255' ]
-
-let character_except_apos =                             (* '\'' = '\039' *)
-  [ '\009' '\010' '\013' '\032'-'\038' '\040'-'\255' ]
-
-let pi_string = character_except_question_mark* 
-                ( '?' character_except_right_angle_bracket 
-                      character_except_question_mark* )* 
-                '?'?
-
-let comment_string = character_except_minus* 
-                     ('-' character_except_minus+ )*
-
-let normal_character = 
-  [^ '&' '<' ']' '\000'-'\008' '\010'-'\031']
-
-let character_except_rbracket =                               (* ']' = '\093' *)
-  [ '\009' '\010' '\013' '\032'-'\092' '\094'-'\255' ]
-
-let character_except_rbracket_rangle =          (* ']' = '\093', '>' = '\062' *)
-  [ '\009' '\010' '\013' '\032'-'\061' '\063'-'\092' '\094'-'\255' ]
-
-let cdata_string = 
-  character_except_rbracket*
-  ( "]" character_except_rbracket+ |
-    "]]" ']'* character_except_rbracket_rangle character_except_rbracket*
-  )*
-  ']'*
-(* cdata_string = char* - ( char* ']]>' char* ) *)
-
-let printable_character_except_amp_lt =
-  (* '&' = '\038', '<' = '\060' *)
-  [ '\032'-'\037' '\039'-'\059' '\061'-'\255']
-
-let printable_character_except_amp_percent =
-  (* '%' = '\037', '&' = '\038' *)
-  [ '\032'-'\036' '\039'-'\255']
-
-let character_except_special =
-  (* '<'=060, ']'=093, '"'=034, '\''=039 *)
-  [ '\009' '\010' '\013' '\032'-'\033' '\035'-'\038' '\040'-'\059' 
-                         '\061'-'\092' '\094'-'\255' ]
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_document.src b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_document.src
deleted file mode 100644 (file)
index 33310c1..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_document.src
+++ /dev/null
@@ -1,70 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-{
-  open Pxp_types
-  open Pxp_lexer_types
-
-#insert pxp_lex_aux.src
-
-#insert open_pxp_lex_aux_*.src
-#insert open_pxp_lex_misc_*.src
-
-}
-
-#insert pxp_lex_defs_*.def
-
-
-(* scan_document: Lexer for the outermost structures *)
-
-rule scan_document = parse
-    "<?" pi_string "?>"
-      { scan_pi (Lexing.lexeme lexbuf) scan_xml_pi, Document }
-  | "<?"
-      { raise (WF_error ("Illegal processing instruction")) }
-  | "<!DOCTYPE"
-      { tok_Doctype__Document_type }
-  | "<!--" 
-      { Comment_begin, Document_comment }
-  | "<!"
-      { raise (WF_error "Declaration either malformed or not allowed in this context") 
-      }
-  | "<" name
-      { let s = Lexing.lexeme lexbuf in
-       Tag_beg (String.sub s 1 (String.length s - 1), dummy_entity), Within_tag
-      }
-  | '<'
-      { raise (WF_error ("Illegal token")) }
-  | ws+
-      { tok_Ignore__Document }
-  | eof
-      { tok_Eof__Document }
-  | character
-      { raise (WF_error ("Content not allowed here")) }
-  | _
-      { raise Netconversion.Malformed_code }
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.4  2000/08/18 20:19:59  gerd
- *     Comments return different comment tokens.
- *
- * Revision 1.3  2000/08/14 22:18:34  gerd
- *     Bad_character_stream -> Netconversion.Malformed_code
- *
- * Revision 1.2  2000/05/29 23:53:12  gerd
- *     Updated because Markup_* modules have been renamed to Pxp_*.
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_document_type.src b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_document_type.src
deleted file mode 100644 (file)
index c775883..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_document_type.src
+++ /dev/null
@@ -1,72 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-{
-  open Pxp_types
-  open Pxp_lexer_types
-
-#insert open_pxp_lex_aux_*.src
-#insert pxp_lex_aux.src
-
-}
-
-#insert pxp_lex_defs_*.def
-
-
-(* scan_document_type: after "<!DOCTYPE" until matching ">" *)
-
-rule scan_document_type = parse
-    name
-      { let s = Lexing.lexeme lexbuf in
-       Name s, Document_type }
-  | ws+
-      { tok_Ignore__Document_type }
-  | '"' character_except_quot* '"'
-      { let s = Lexing.lexeme lexbuf in
-       (Unparsed_string (String.sub s 1 (String.length s - 2))), Document_type }
-  | '"'
-      { raise (WF_error ("Cannot find the second quotation mark"))
-      }
-  | "'" character_except_apos* "'"
-      { let s = Lexing.lexeme lexbuf in
-       (Unparsed_string (String.sub s 1 (String.length s - 2))), Document_type }
-  | "'"
-      { raise (WF_error ("Cannot find the second quotation mark"))
-      }
-  | '['
-      { tok_Dtd_begin__Declaration }
-  | '>'
-      { tok_Doctype_rangle__Document }
-  | eof
-      { tok_Eof__Document_type }
-  | '&' 
-      { raise (WF_error("References to general entities not allowed here")) }
-  | '%' 
-      { raise (WF_error("References to parameter entities not allowed here")) }
-  | character
-      { raise (WF_error("Content not allowed here")) }
-  | _
-      { raise Netconversion.Malformed_code }
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.3  2000/08/14 22:18:34  gerd
- *     Bad_character_stream -> Netconversion.Malformed_code
- *
- * Revision 1.2  2000/05/29 23:53:12  gerd
- *     Updated because Markup_* modules have been renamed to Pxp_*.
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_dtd_string.src b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_dtd_string.src
deleted file mode 100644 (file)
index 1fb11e6..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_dtd_string.src
+++ /dev/null
@@ -1,70 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-{
-  open Pxp_types
-  open Pxp_lexer_types
-
-#insert open_pxp_lex_aux_*.src
-#insert pxp_lex_aux.src
-
-}
-
-#insert pxp_lex_defs_*.def
-(* The following scanner is used to determine the replacement text of
- * internal entities:
- *)
-
-rule scan_dtd_string = parse
-    '%' name ';'
-      { let s = Lexing.lexeme lexbuf in
-       PERef (String.sub s 1 (String.length s - 2)) }
-  | '%'
-      { raise(WF_error("The character '%' must be written as '%'")) }
-  | '&' name ';'
-      { let s = Lexing.lexeme lexbuf in
-       ERef (String.sub s 1 (String.length s - 2)) }
-  | "&#" ascii_digit+ ";"
-      { let s = Lexing.lexeme lexbuf in
-       CRef (int_of_string (String.sub s 2 (String.length s - 3))) }
-  | "&#x" ascii_hexdigit+ ";"
-      { let s = Lexing.lexeme lexbuf in
-       CRef (int_of_string ("0x" ^ String.sub s 3 (String.length s - 4))) }
-  | '&'
-      { raise(WF_error("The character '&' must be written as '&'")) }
-  | '\013' '\010'
-      { CRef(-1) }
-  | '\013'
-      { CRef(-2) }
-  | '\010'
-      { CRef(-3) }
-  | '\009'
-      { CharData "\009" }
-  | printable_character_except_amp_percent+
-      { CharData (Lexing.lexeme lexbuf) }
-  | eof
-      { Eof }
-  | _
-      { raise Netconversion.Malformed_code }
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.3  2000/08/14 22:18:34  gerd
- *     Bad_character_stream -> Netconversion.Malformed_code
- *
- * Revision 1.2  2000/05/29 23:53:12  gerd
- *     Updated because Markup_* modules have been renamed to Pxp_*.
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_misc.src b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_misc.src
deleted file mode 100644 (file)
index 2a0d29f..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_misc.src
+++ /dev/null
@@ -1,146 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-{
-  open Pxp_types
-  open Pxp_lexer_types
-
-#insert open_pxp_lex_aux_*.src
-#insert pxp_lex_aux.src
-
-}
-
-#insert pxp_lex_defs_*.def
-
-(* The remaining, smaller lexers *)
-
-rule scan_characters = parse
-  character*
-    { () }
-| eof 
-    { () }
-| _
-    { raise Netconversion.Malformed_code }
-
-
-and scan_xml_pi = parse
-    name ws*
-      { let s = Lexing.lexeme lexbuf in
-       let j = get_name_end s 0 in
-       Pro_name (String.sub s 0 j)
-      }
-  | "=" ws*
-      { Pro_eq }
-  | "'" character_except_apos* "'" ws+
-      { let s = Lexing.lexeme lexbuf in
-       let j = String.index_from s 1 '\'' in
-       Pro_string (String.sub s 1 (j-1))
-      }
-  | "'"
-      { raise (WF_error ("Cannot find the second quotation mark"))
-      }
-  | '"' character_except_quot* '"' ws+
-      { let s = Lexing.lexeme lexbuf in
-       let j = String.index_from s 1 '"' in
-       Pro_string (String.sub s 1 (j-1))
-      }
-  | '"'
-      { raise (WF_error ("Cannot find the second quotation mark"))
-      }
-  | eof
-      { Pro_eof }
-  | character
-      { (* prerr_endline (Lexing.lexeme lexbuf); *)
-       raise (WF_error("Illegal token or character")) 
-      }
-  | _ 
-      { raise Netconversion.Malformed_code }
-
-and scan_only_xml_decl = parse
-    "<?xml" ws+ pi_string "?>"
-      { scan_pi (Lexing.lexeme lexbuf) scan_xml_pi }
-  | ""
-      { Eof }
-
-and scan_for_crlf = parse
-  | '\013' '\010'
-      { CharData "\n" }
-  | '\013'
-      { CharData "\n" }
-  | '\010'
-      { CharData "\n" }
-  | [^ '\010' '\013' ]+
-      { CharData (Lexing.lexeme lexbuf) }
-  | eof 
-      { Eof }
-
-and scan_content_comment = parse
-    "-->"
-      { Comment_end, Content }
-  | "--"
-      { raise (WF_error "Double hyphens are illegal inside comments") }
-  | "-"
-      { Comment_material "-", Content_comment }
-  | character_except_minus+
-      { Comment_material(Lexing.lexeme lexbuf), Content_comment }
-  | eof
-      { Eof, Content_comment }
-  | _
-      { raise Netconversion.Malformed_code }
-
-
-(* In declarations, comments are always thrown away. *)
-
-and scan_decl_comment = parse
-    "-->"
-      { Comment_end, Declaration }
-  | "--"
-      { raise (WF_error "Double hyphens are illegal inside comments") }
-  | "-"
-      { Comment_material "", Decl_comment }
-  | character_except_minus+
-      { Comment_material "", Decl_comment }
-  | eof
-      { Eof, Decl_comment }
-  | _
-      { raise Netconversion.Malformed_code }
-
-
-and scan_document_comment = parse
-    "-->"
-      { Comment_end, Document }
-  | "--"
-      { raise (WF_error "Double hyphens are illegal inside comments") }
-  | "-"
-      { Comment_material "-", Document_comment }
-  | character_except_minus+
-      { Comment_material(Lexing.lexeme lexbuf), Document_comment }
-  | eof
-      { Eof, Document_comment }
-  | _
-      { raise Netconversion.Malformed_code }
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.4  2000/08/18 20:19:59  gerd
- *     Comments return different comment tokens.
- *
- * Revision 1.3  2000/08/14 22:18:34  gerd
- *     Bad_character_stream -> Netconversion.Malformed_code
- *
- * Revision 1.2  2000/05/29 23:53:12  gerd
- *     Updated because Markup_* modules have been renamed to Pxp_*.
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_name_string.src b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_name_string.src
deleted file mode 100644 (file)
index 57a0d54..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_name_string.src
+++ /dev/null
@@ -1,77 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-{
-  open Pxp_types
-  open Pxp_lexer_types
-
-#insert open_pxp_lex_aux_*.src
-#insert pxp_lex_aux.src
-
-}
-
-#insert pxp_lex_defs_*.def
-
-rule scan_name_string = parse
-    name
-      { Name (Lexing.lexeme lexbuf) }
-  | ws+
-      { Ignore }
-  | nmtoken
-      { Nametoken (Lexing.lexeme lexbuf) }
-  | eof
-      { Eof }
-  | character
-      { CharData (Lexing.lexeme lexbuf) }
-  | _
-      { raise Netconversion.Malformed_code }
-
-
-and scan_ignored_section = parse
-  | "<!["
-      { tok_Conditional_begin__Ignored }
-  | "]]>"
-      { tok_Conditional_end__Ignored }
-  | "<!--" comment_string "-->"
-      { tok_Ignore__Ignored }
-  | '"' character_except_quot* '"'
-      { tok_Ignore__Ignored }
-  | "'" character_except_apos* "'"
-      { tok_Ignore__Ignored }
-  | eof
-      { tok_Eof__Ignored }
-  | character_except_special+
-      { tok_Ignore__Ignored }
-  | "<"
-      { tok_Ignore__Ignored }
-  | "]"
-      { tok_Ignore__Ignored }
-  | "'"
-      { tok_Ignore__Ignored }
-  | "\""
-      { tok_Ignore__Ignored }
-  | _
-      { raise Netconversion.Malformed_code }
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.3  2000/08/14 22:18:34  gerd
- *     Bad_character_stream -> Netconversion.Malformed_code
- *
- * Revision 1.2  2000/05/29 23:53:12  gerd
- *     Updated because Markup_* modules have been renamed to Pxp_*.
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_within_tag.src b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_within_tag.src
deleted file mode 100644 (file)
index 39697b0..0000000
--- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_within_tag.src
+++ /dev/null
@@ -1,69 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-{
-  open Pxp_types
-  open Pxp_lexer_types
-
-#insert open_pxp_lex_aux_*.src
-#insert pxp_lex_aux.src
-
-}
-
-#insert pxp_lex_defs_*.def
-
-
-rule scan_within_tag = parse
-    ws+
-      { tok_Ignore__Within_tag }
-  | name
-      { Name (Lexing.lexeme lexbuf ), Within_tag }
-  | '='
-      { tok_Eq__Within_tag }
-  | '"' character_except_quot* '"'
-      { let s = Lexing.lexeme lexbuf in
-       let v = String.sub s 1 (String.length s - 2) in
-       Attval v, Within_tag }
-  | '"'
-      { raise (WF_error ("Cannot find the second quotation mark"))
-      }
-  | "'" character_except_apos* "'"
-      { let s = Lexing.lexeme lexbuf in
-       let v = String.sub s 1 (String.length s - 2) in
-       Attval v, Within_tag }
-  | "'"
-      { raise (WF_error ("Cannot find the second quotation mark"))
-      }
-  | '>'
-      { tok_Rangle__Content }
-  | "/>"
-      { tok_Rangle_empty__Content }
-  | eof
-      { tok_Eof__Within_tag }
-  | character
-      { raise (WF_error ("Illegal inside tags")) }
-  | _
-      { raise Netconversion.Malformed_code }
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.3  2000/08/14 22:18:34  gerd
- *     Bad_character_stream -> Netconversion.Malformed_code
- *
- * Revision 1.2  2000/05/29 23:53:12  gerd
- *     Updated because Markup_* modules have been renamed to Pxp_*.
- *
- * Revision 1.1  2000/05/20 20:33:25  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/m2parsergen/Makefile b/helm/DEVEL/pxp/pxp/m2parsergen/Makefile
deleted file mode 100644 (file)
index 78f5359..0000000
--- a/helm/DEVEL/pxp/pxp/m2parsergen/Makefile
+++ /dev/null
@@ -1,62 +0,0 @@
-# make all:            make bytecode executable
-# make clean:          remove intermediate files (in this directory)
-# make CLEAN:           remove intermediate files (recursively)
-
-#----------------------------------------------------------------------
-
-SRC = ast.ml lexer.ml parser.ml generator.ml
-OBJ = $(SRC:.ml=.cmo)
-
-#----------------------------------------------------------------------
-
-
-.PHONY: all
-all: m2parsergen
-
-.PHONY: clean
-clean:
-       rm -f *.cmi *.cmo *.cma *.cmx *.o *.a *.cmxa lexer.ml parser.ml \
-             parser.mli
-
-.PHONY: CLEAN
-CLEAN: clean
-
-.PHONY: distclean
-distclean: clean
-       rm -f *~ depend depend.pkg m2parsergen a.out x.ml
-
-#----------------------------------------------------------------------
-# general rules:
-
-OPTIONS   =
-OCAMLC    = ocamlc -g $(OPTIONS) $(ROPTIONS)
-OCAMLOPT  = ocamlopt -p $(OPTIONS) $(ROPTIONS)
-OCAMLDEP  = ocamldep $(OPTIONS)
-OCAMLFIND = ocamlfind
-
-#----------------------------------------------------------------------
-
-depend: $(SRC) 
-       $(OCAMLDEP) $(SRC) >depend
-
-m2parsergen: $(OBJ)
-       $(OCAMLC) -o m2parsergen $(OBJ)
-
-.SUFFIXES: .cmo .cmi .cmx .ml .mli .mll .mly
-
-.ml.cmx:
-       $(OCAMLOPT) -c $<
-
-.ml.cmo:
-       $(OCAMLC) -c $<
-
-.mli.cmi:
-       $(OCAMLC) -c $<
-
-.mll.ml:
-       ocamllex $<
-
-.mly.ml:
-       ocamlyacc $<
-
-include depend

diff --git a/helm/DEVEL/pxp/pxp/m2parsergen/README b/helm/DEVEL/pxp/pxp/m2parsergen/README
deleted file mode 100644 (file)
index cccf7aa..0000000
--- a/helm/DEVEL/pxp/pxp/m2parsergen/README
+++ /dev/null
@@ -1,319 +0,0 @@
-----------------------------------------------------------------------
-m2parsergen
-----------------------------------------------------------------------
-
-This is a parser generator for top-down (or recursively descending) parsers.
-The input file must be structured as follows:
-
----------------------------------------- Begin of file
-
-<OCAML TEXT ("preamble")>
-
-%%
-
-<DECLARATIONS>
-
-%%
-
-<RULES>
-
-%%
-
-<OCAML TEXT ("postamble")>
-
----------------------------------------- End of file
-
-The two-character combination %% separates the various sections. The
-text before the first %% and after the last %% will be copied verbatim
-to the output file.
-
-Within the declarations and rules sections you must use /* ... */ as
-comment braces.
-
-There are two types of declarations:
-
-%token Name
-
-declares that Name is a token without associated value, and
-
-%token <> Name
-
-declares that Name is a token with associated value (i.e. Name x).
-
-In contrast to ocamlyacc, you need not to specify a type. This is a
-fundamental difference, because m2parsergen will not generate a type
-declaration for a "token" type; you must do this yourself.
-
-You need not to declare start symbols; every grammar rule may be used
-as start symbol.
-
-The rules look like:
-
-name_of_rule(arg1, arg2, ...):
-  label1:symbol1 label2:symbol2 ... {{ CODE }}
-| label1:symbol1 label2:symbol2 ... {{ CODE }}
-...
-| label1:symbol1 label2:symbol2 ... {{ CODE }}
-
-The rules may have arguments (note that you must write the
-parantheses, even if the rule does not have arguments). Here, arg1,
-arg2, ... are the formal names of the arguments; you may refer to them
-in OCaml code.
-
-Furthermore, the symbols may have labels (you can leave the labels
-out). You can refer to the value associated with a symbol by its
-label, i.e. there is an OCaml variable with the same name as the label
-prescribes, and this variable contains the value.
-
-The OCaml code must be embraced by {{ and }}, and these separators
-must not occur within the code.
-
-EXAMPLE:
-
-prefix_term():
-  Plus_symbol Left_paren v1:prefix_term() Comma v2:prefix_term() Right_paren
-    {{ v1 + v2 }}
-| Times_symbol Left_paren v1:prefix_term() Comma v2:prefix_term() Right_paren
-    {{ v1 * v2 }}
-| n:Number
-    {{ n }}
-
-As you can see in the example, you must pass values for the arguments
-if you call non-terminal symbols (here, the argument list is empty: ()).
-
-The generated parsers behave as follows:
-
-- A rule is applicable to a token sequence if the first token is
-  matched by the rule.
-
-  In the example: prefix_term is applicable if the first token of a
-  sequence is either Plus_symbol, Times_symbol, or Number.
-
-- One branch of the applicable rule is selected: it is the first
-  branch that matches the first token. THE OTHER TOKENS DO NOT HAVE
-  ANY EFFECT ON BRANCH SELECTION!
-
-  For instance, in the following rule the second branch is never
-  selected, because only the A is used to select the branch:
-
-  a():
-    A B {{ ... }}
-  | A C {{ ... }}
-
-- Once a branch is selected, it is checked whether the branch matches
-  the token sequence. If this check succeeds, the code section of the
-  branch is executed, and the resulting value is returned to the
-  caller.
-  If the check fails, the exception Parsing.Parse_error is raised.
-  Normally, this exception is not caught, and will force the parser
-  to stop.
-
-  The check in detail:
-
-  If the rule demands a terminal, there a must be exactly this
-  terminal at the corresponding location in the token sequence.
-
-  If the rule demands a non-terminal, it is checked whether the rule
-  for to this non-terminal is applicable. If so, the branch
-  is selected, and recursively checked. If the rule is not applicable,
-  the check fails immediately.
-
-- THERE IS NO BACKTRACKING! 
-
-  Note that the following works (but the construction is resolved at
-  generation time):
-
-  rule1() =
-     rule2() A B ... {{ ... }}
-
-  rule2() =
-     C {{ ... }}
-   | D {{ ... }}
-
-  In this case, the (only) branch of rule1 is selected if the next
-  token is C or D.
-
----
-
-
-
-*** Options and repetitions ***
-
-Symbols can be tagged as being optional, or to occur repeatedly:
-
-rule():
-  Name whitespace()* Question_mark?
-
-- "*": The symbol matches zero or more occurrences.
-
-- "?": The symbol matches zero or one occurrence.
-
-This is done as follows:
-
-- terminal*: The maximum number of consecutive tokens <terminal> are
-             matched.
-- non-terminal*: The maximum number of the subsequences matching
-                 <non-terminal> are matched. Before another
-                 subsequence is matched, it is checked whether the
-                 rule for <non-terminal> is applicable. If so, the
-                 rule is invoked and must succeed (otherwise Parsing.
-                Parse_error). If not, the loop is exited.
-
-- terminal?: If the next token is <terminal>, it is matched. If not,
-             no token is matched.
-
-- non-terminal?: It is checked whether the rule for <non-terminal>
-                 is applicable. If so, the rule is invoked, and
-                 matches a sequence of tokens. If not, no token is
-                matched.
-
-You may refer to repeated or optional symbols by labels. In this case,
-the label is associated with lists of values, or optional values, 
-respectively:
-
-rule():
-  A  lab:other()*  lab':unlikely()?
-    {{ let n = List.length lab in ... 
-       match lab' with
-         None -> ...
-       | Some v -> ... 
-    }}
-
-A different scheme is applied if the symbol is a token without
-associated value (%token Name, and NOT %token <> Name):
-
-rule():
-  A lab:B* lab':C?
-
-Here, "lab" becomes an integer variable counting the number of Bs, and
-"lab'" becomes a boolean variable denoting whether there is a C or not.
-
-
-*** Early let-binding ***
-
-You may put some OCaml code directly after the first symbol of a
-branch:
-
-rule():
-  A $ {{ let-binding }} C D ... {{ ... }}
-
-The code brace {{ let-binding }} must be preceded by a dollar
-sign. You can put "let ... = ... in" statements into this brace:
-
-rule1():
-  n:A $ {{ let twice = 2 * n in }} rule2(twice) {{ ... }}
-
-This code is executed once the branch is selected.
-
-
-*** Very early let-binding ***
-
-This is also possible:
-
-rule():
-  $ {{ CODE }}
-  A
-  ...
-
-The CODE is executed right when the branch is selected, and before any
-other happens. (Only for hacks!)
-
-
-
-*** Computed rules ***
-
-rule():
-  A $ {{ let followup = ... some function ... in }} [ followup ]() 
-    {{ ... }}
-
-Between [ and ], you can refer to the O'Caml name of *any* function.
-Here, the function "followup" is bound in the let-binding.
-
-
-*** Error handling ***
-
-If a branch is already selected, but the check fails whether the other
-symbols of the branch match, it is possible to catch the resulting
-exception and to find out at which position the failure has occurred.
-
-rule():
-  x:A y:B z:C {{ ... }} ? {{ ERROR-CODE }}
-
-After a question mark, it is allowed to append another code
-brace. This code is executed if the branch check fails (but not if the
-branch is not selected nor if no branches are selected). The string
-variable !yy_position contains the label of the symbol that caused the
-failure (or it contains the empty string if the symbol does not have a
-label). 
-
-Example:
-
-rule():
-  x:A y:B z:C {{ print_endline "SUCCESS" }} ? {{ print_endline !yy_position }}
-
-If the token sequence is A B C, "SUCCESS" will be printed. If the
-sequence is A C, the second symbol fails, and "y" will be printed. If
-the sequence is A B D, the third symbol fails, and "z" will be
-printed. If the sequence is B, the rule will be never selected because
-it is not applicable.
-
-
-
-*** Error recovery ***
-
-You may call the functions yy_current, yy_get_next, or one of the
-parse_* functions in the error brace to recover from the error
-(e.g. to move ahead until a certain token is reached). See below.
-
-
-
-*** How to call the parser ***
-
-The rules are rewritten into a OCaml let-binding:
-
-let rec parse_<rule1> ... = ...
-    and parse_<rule2> ... = ...
-    ...
-    and parse_<ruleN> ... = ...
-in
-
-i.e. there are lots of functions, and the name of the functions are
-"parse_" plus the name of the rules. You can call every function.
-
-The first two arguments of the functions have a special meaning; the
-other arguments are the arguments coming from the rule description:
-
-rule(a,b):
-  ...
-
-===>
-
-let rec parse_rule yy_current yy_get_next a b = ...
-
-The first argument, yy_current, is a function that returns the current
-token. The second arguments, yy_get_next, is a function that switches
-to the next token, and returns it.
-
-If the tokens are stored in a list, this may be a definition:
-
-let input = ref [ Token1; Token2; ... ] in
-let yy_current() = List.hd !input in
-let yy_get_next () =
-  input := List.tl !input;
-  List.hd !input
-
-When you call one of the parser functions, the current token must
-already be loaded, i.e. yy_current returns the first token to match by
-the function.
-
-After the functions has returned, the current token is the token
-following the sequence of tokens that have been matched by the
-function.
-
-The function returns the value computed by the OCaml code brace of the
-rule (or the value of the error brace).
-
-If the rule is not applicable, the exception Not_found is raised.
-
-If the rule is applicable, but it does not match, the exception
-Parsing.Parse_error is raised.

diff --git a/helm/DEVEL/pxp/pxp/m2parsergen/ast.ml b/helm/DEVEL/pxp/pxp/m2parsergen/ast.ml
deleted file mode 100644 (file)
index 219dd0c..0000000
--- a/helm/DEVEL/pxp/pxp/m2parsergen/ast.ml
+++ /dev/null
@@ -1,75 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-type declaration =
-    D_token of string                         (* D_token name *)
-  | D_typed_token of string                   (* D_typed_token name *)
-;;
-
-type symbol =
-    U_symbol of (string * string option)      (* U_symbol(token, label) *)
-  | L_symbol of (string * string list * string option)
-                                        (* L_symbol(token, args, label) *)
-  | L_indirect of (string * string list * string option)
-;;
-
-
-type modifier =
-    Exact
-  | Option
-  | Repetition
-;;
-
-
-type pattern =
-    { pat_symbol : symbol;
-      pat_modifier : modifier;
-    }
-
-
-type branch = 
-    { branch_selector : symbol;
-      branch_early_code : (string * int * int);
-      branch_binding_code : (string * int * int);
-      branch_pattern : pattern list;
-      branch_result_code : (string * int * int);
-      branch_error_code : (string * int * int) option;
-    }
-;;
-
-type rule =
-    { rule_name : string;
-      rule_arguments : string list;           (* List of names *)
-      rule_branches : branch list;
-    }
-;;
-
-type text =
-    { text_decls : declaration list;
-      text_rules : rule list;
-    }
-;;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.3  2000/05/09 00:03:22  gerd
- *     Added [ ml_name ] symbols, where ml_name is an arbitrary
- * OCaml identifier.
- *
- * Revision 1.2  2000/05/08 22:03:01  gerd
- *     It is now possible to have a $ {{ }} sequence right BEFORE
- * the first token. This code is executed just after the first token
- * has been recognized.
- *
- * Revision 1.1  2000/05/06 17:36:17  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/m2parsergen/generator.ml b/helm/DEVEL/pxp/pxp/m2parsergen/generator.ml
deleted file mode 100644 (file)
index 4301f22..0000000
--- a/helm/DEVEL/pxp/pxp/m2parsergen/generator.ml
+++ /dev/null
@@ -1,920 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-open Parser
-open Ast
-
-(* Overall scheme:
- *
- * The rules are translated to:
- *
- * let rec parse_<rule1> ... = ...
- *     and parse_<rule2> ... = ...
- *     and ...
- *     and parse_<ruleN> ... = ...
- * in
- *
- * Every rule has at least two arguments: 'current' and 'get_next'.
- * 'current()' is the token that should match the first symbol of the
- * rule. 'get_next()' returns the next token.
- *
- * The rules may have further user arguments; these are the next arguments
- * in turn.
- *
- * The rules return the user value. After they have returned to the caller 
- * the current token is the token that follows the sequence of tokens 
- * matching the rule.
- *
- * The rules will raise:
- *  - Not_found if the first token does not match
- *  - Parsing.Parse_error if the rest does not match.
- *
- * Rule scheme:
- *
- * rule(arg1,arg2,...):
- *   (l1:x1)
- *   {{ let-CODE }}
- *   (l2:y2(name1,...)) y3 ... 
- *   {{ CODE }}
- *   ? {{ ?-CODE }}
- * | x2 ...
- * | ...
- * | xN
- *
- * let parse_<rule> current get_next arg1 arg2 ... =
- *   match current() with
- *     S(x1) -> ...
- *   | S(x2) -> ...
- *   | ...
- *   | S(xN) -> ...
-*    | _ -> raise Not_found
- *
- * Here, S(xi) denotes the set of tokens matched by xi without all tokens
- * already matched by x1 to x(i-1). (If S(xi) = empty, a warning is printed,
- * and this branch of the rule is omitted.)
- *
- * S(xi) may be a set because xi may be a reference to another rule. In this
- * case, S(xi) bases on the set of tokens that match the first symbol of 
- * the other rule. (In general, S(xi) must be computed recursively.)
- *
- * If the "?" clause is present, every branch is embraced by the following:
- *
- * let position = ref "<Label of x1>" in
- * ( try ... 
- *   with Parsing.Parse_error -> ( <<?-CODE>> )
- * )
- * 
- * Next: The "..." is
- *
- * OPTIONAL: let <l1> = parse_<rule(x1)> in
- * <<let-CODE>>
- * M(y1)
- * M(y2)
- * ...
- * M(yN)
- * <<CODE>>
- *
- * If x1 is a rule invocation, it is now parsed, and the result is bound
- * to a variable.
- *
- * Note: After x1 has matched, the Caml variable <l1> must be either
- * bound to the result of the sub parsing, or to the value associated
- * with the token (if any). The latter is already done in the main
- * "match" statement, i.e. "match ... with S(x1) -> ..." is actually
- * "match ... with Token1 <l1> -> ...".
- *
- * Note: After calling parse_<rule(x1)> the exception Not_found is NEVER
- * converted to Parsing.Parse_error. It is simply not possible that this
- * happens.
-
- * For every remaining symbol yi of the rule, a matching statement M(yi)
- * is produced. These statements have the form:
- *
- * OPTIONAL: position := "<Label of yi>";
- * CASE: yi is a token without associated value
- *     let yy_i = get_next()  OR  current() in
- *     if yy_i <> Token(yi) then raise Parsing.Parse_error;
- * CASE: yi is a token with value
- *     let yy_i = get_next()  OR  current() in
- *     let <li> = match yy_i with Token x -> x | _ -> raise Parsing.Parse_error 
- *     in
- * CASE: yi is a rule invocation
- *     OPTIONAL: let _ = get_next() in
- *     let <li> = try parse_<rule(yi)> 
- *                with Not_found -> raise Parsing.Parse_error in
- *
- * yy_i is get_next() if y(i-1) was a token, and yy_i is current() if
- * y(i-1) was a rule invocation.
- *
- * Repetitions:
- *
- * If yi = (yi')*:
- *
- * CASE no label given:
- *
- * ( try 
- *     while true do 
- *       M(yi') with the modification that top-level mismatches raise
- *              Not_found instead of Parsing.Parse_error
- *     done
- *   with Not_found -> ()
- * )
- *
- * CASE a label <li> is given: The list of results must be bound to <li>!
- *
- * let yy_list = ref [] in
- * ( try 
- *     while true do
- *       let yy_first = M(yi') (with some modifications) in
- *       yy_list := yy_first :: !yy_list;
- *     done
- *   with Not_found -> ()
- * );
- * let <li> = List.rev !yy_list in
- *
- * Note that this scheme minimizes stack and heap allocations.
- *
- * Options:
- *
- * If yi = (yi')?:
- *
- * CASE no label given:
- *
- * ( try 
- *     M(yi') with the modification that top-level mismatches raise
- *            Not_found instead of Parsing.Parse_error
- *   with Not_found -> ()
- * )
- *
- * CASE a label <li> is given: The optional result must be bound to <li>!
- *
- * let <li> =
- *   try 
- *     Some( M(yi') (with some modifications) )
- *   with Not_found -> None
- * );
- *)
-
-
-let lookup_rule tree name =
-  try
-    List.find (fun r -> r.rule_name = name) tree.text_rules
-  with
-      Not_found ->
-       failwith ("Rule `" ^ name ^ "' not found")
-;;
-
-
-let is_typed tree name =
-  (* Find out whether the token 'name' is typed or not *)
-  let decl =
-    try
-      List.find (fun d -> match d with
-                    D_token n -> n = name
-                  | D_typed_token n -> n = name
-               )
-       tree.text_decls
-    with
-       Not_found -> 
-         failwith ("Token `" ^ name ^ "' not found")
-  in
-  match decl with
-      D_token _ -> false
-    | D_typed_token _ -> true
-;;
-
-
-let label_of_symbol tree sym =
-  match sym with
-      U_symbol (tok, lab) -> 
-       (* if is_typed tree tok then lab else None *)
-       lab
-    | L_symbol (_, _, lab) -> lab
-    | L_indirect (_, _, lab) -> lab
-;;
-
-
-let is_untyped_U_symbol tree sym =
-  match sym with
-      U_symbol (tok, _) -> 
-       not(is_typed tree tok)
-    | L_symbol (_, _, _) -> false
-    | L_indirect (_, _, _) -> false
-;;
-
-
-
-let rec set_of_list l =
-  (* Removes duplicate members of l *)
-  match l with
-      [] -> []
-    | x :: l' -> if List.mem x l' then set_of_list l' else x :: (set_of_list l')
-;;
-
-
-let selector_set_of_rule tree name =
-  (* Determines the set of tokens that match the first symbol of a rule *)
-  
-  let rec collect visited_rules name =
-    if List.mem name visited_rules then
-      []
-    else
-      let r = lookup_rule tree name in
-      List.flatten
-       (List.map
-          (fun branch ->
-             match branch.branch_selector with
-                 U_symbol (tok_name,_) ->
-                   [ tok_name ]
-               | L_symbol (rule_name, _, _) ->
-                   collect (name :: visited_rules) rule_name
-               | L_indirect (_, _, _) ->
-                   failwith("The first symbol in rule `" ^ name ^ 
-                            "' is an indirect call; this is not allowed")
-          )
-          r.rule_branches
-       )
-  in
-  set_of_list (collect [] name)
-;;
-
-
-let output_code_location b file_name (_, line, column) = 
-  Buffer.add_string b "\n";
-  Buffer.add_string b ("# " ^ string_of_int line ^ " \"" ^
-                      file_name ^ "\"\n");
-  Buffer.add_string b (String.make column ' ')
-;;
-
-
-let phantasy_line = ref 100000;;
-
-let output_code b file_name ((code, line, column) as triple) = 
-  if code <> "" then begin
-    output_code_location b file_name triple;
-    Buffer.add_string b code;
-    Buffer.add_string b ("\n# " ^ string_of_int !phantasy_line ^ " \"<Generated Code>\"\n");
-    phantasy_line := !phantasy_line + 10000;
-  end
-;;
-
-
-let process_branch b file_name tree branch =
-
-  let make_rule_invocation called_rule args lab allow_not_found =
-    (* Produces: let <label> = parse_<called_rule> ... args in 
-     * If not allow_not_found, the exception Not_found is caught and
-     * changed into Parsing.Parse_error.
-     *)
-    let r = lookup_rule tree called_rule in
-    if List.length r.rule_arguments <> List.length args then
-      failwith("Calling rule `" ^ called_rule ^ "' with the wrong number of arguments!");
-
-    Buffer.add_string b "let ";
-    begin match lab with
-       None   -> Buffer.add_string b "_"
-      | Some l -> Buffer.add_string b l
-    end;
-    Buffer.add_string b " = ";
-    if not allow_not_found then
-      Buffer.add_string b "try ";
-    Buffer.add_string b "parse_";
-    Buffer.add_string b called_rule;
-    Buffer.add_string b " yy_current yy_get_next";
-    List.iter
-      (fun a -> Buffer.add_string b " ";
-               Buffer.add_string b a;
-      )
-      args;
-    if not allow_not_found then
-      Buffer.add_string b " with Not_found -> raise Parsing.Parse_error";
-    Buffer.add_string b " in\n"
-  in
-
-  let make_indirect_rule_invocation ml_name args lab allow_not_found =
-    (* Produces: let <label> = ml_name ... args in 
-     * If not allow_not_found, the exception Not_found is caught and
-     * changed into Parsing.Parse_error.
-     *)
-    Buffer.add_string b "let ";
-    begin match lab with
-       None   -> Buffer.add_string b "_"
-      | Some l -> Buffer.add_string b l
-    end;
-    Buffer.add_string b " = ";
-    if not allow_not_found then
-      Buffer.add_string b "try ";
-    Buffer.add_string b ml_name;
-    Buffer.add_string b " yy_current yy_get_next";
-    List.iter
-      (fun a -> Buffer.add_string b " ";
-               Buffer.add_string b a;
-      )
-      args;
-    if not allow_not_found then
-      Buffer.add_string b " with Not_found -> raise Parsing.Parse_error";
-    Buffer.add_string b " in\n"
-  in
-
-  let process_symbol sym previous_was_token allow_not_found =
-    match sym with
-       U_symbol(tok, lab) ->
-         (* Distinguish between simple tokens and typed tokens *)
-         if is_typed tree tok then begin
-           (* Typed token *)
-           Buffer.add_string b "let ";
-           begin match lab with
-               None   -> Buffer.add_string b "_"
-             | Some l -> Buffer.add_string b l
-           end;
-           Buffer.add_string b " = match ";
-           if previous_was_token then
-             Buffer.add_string b "yy_get_next()"
-           else
-             Buffer.add_string b "yy_current()";
-           Buffer.add_string b " with ";
-           Buffer.add_string b tok;
-           Buffer.add_string b " x -> x | _ -> raise ";
-           if allow_not_found then
-             Buffer.add_string b "Not_found"
-           else
-             Buffer.add_string b "Parsing.Parse_error";
-           Buffer.add_string b " in\n";
-         end
-         else begin
-           (* Simple token *)
-           Buffer.add_string b "if (";
-           if previous_was_token then
-             Buffer.add_string b "yy_get_next()"
-           else
-             Buffer.add_string b "yy_current()";
-           Buffer.add_string b ") <> ";
-           Buffer.add_string b tok;
-           Buffer.add_string b " then raise ";
-           if allow_not_found then
-             Buffer.add_string b "Not_found;\n"
-           else
-             Buffer.add_string b "Parsing.Parse_error;\n"
-         end
-      | L_symbol(called_rule, args, lab) ->
-         if previous_was_token then
-           Buffer.add_string b "ignore(yy_get_next());\n";
-         make_rule_invocation called_rule args lab allow_not_found
-      | L_indirect(ml_name, args, lab) ->
-         if previous_was_token then
-           Buffer.add_string b "ignore(yy_get_next());\n";
-         make_indirect_rule_invocation ml_name args lab allow_not_found
-  in
-
-  let process_pattern (current_position, previous_was_token) pat =
-    (* Assign "position" if necessary. *)
-    let new_position =
-      if branch.branch_error_code <> None then begin
-       match pat.pat_symbol with
-           U_symbol(_,Some l)   -> l
-         | L_symbol(_,_,Some l) -> l
-         | L_indirect(_,_,Some l) -> l
-         | _ -> ""
-      end
-      else ""
-    in
-    if new_position <> current_position then begin
-      Buffer.add_string b "yy_position := \"";
-      Buffer.add_string b new_position;
-      Buffer.add_string b "\";\n";
-    end;
-
-    let this_is_token =
-      match pat.pat_symbol with
-         U_symbol(_,_)   -> pat.pat_modifier = Exact
-       | L_symbol(_,_,_) -> false
-       | L_indirect(_,_,_) -> false
-    in
-
-    (* First distinguish between Exact, Option, and Repetition: *)
-    begin match pat.pat_modifier with
-       Exact ->
-         process_symbol pat.pat_symbol previous_was_token false
-      | Option ->
-         begin match label_of_symbol tree pat.pat_symbol with
-             None ->
-               (* CASE: optional symbol without label *)
-               (* OPTIMIZATION: If the symbol is
-                * a token, the loop becomes very simple.
-                *)
-               if (match pat.pat_symbol with 
-                       U_symbol(t,_) -> not (is_typed tree t) | _ -> false) 
-               then begin
-                 let tok = match pat.pat_symbol with 
-                              U_symbol(t,_) -> t | _ -> assert false in
-                 (* Optimized case *)
-                 Buffer.add_string b "if ";
-                 if previous_was_token then
-                   Buffer.add_string b "yy_get_next()"
-                 else
-                   Buffer.add_string b "yy_current()";
-                 Buffer.add_string b " = ";
-                 Buffer.add_string b tok;
-                 Buffer.add_string b " then ignore(yy_get_next());\n";
-               end
-               else begin
-                 (* General, non-optimized case: *)
-                 Buffer.add_string b "( try (";
-                 process_symbol pat.pat_symbol previous_was_token true;
-                 Buffer.add_string b "ignore(yy_get_next());\n";
-                 Buffer.add_string b ") with Not_found -> ());\n";
-               end
-           | Some l ->
-               (* CASE: optional symbol with label *)
-               if is_untyped_U_symbol tree pat.pat_symbol then begin
-                 (* SUBCASE: The label becomes a boolean variable *)
-                 Buffer.add_string b "let ";
-                 Buffer.add_string b l;
-                 Buffer.add_string b " = try (";
-                 process_symbol pat.pat_symbol previous_was_token true;
-                 Buffer.add_string b ");\n";
-                 Buffer.add_string b "ignore(yy_get_next());\n";
-                 Buffer.add_string b "true with Not_found -> false in\n";
-               end
-               else begin
-                 (* SUBCASE: the symbol has a value *)
-                 Buffer.add_string b "let ";
-                 Buffer.add_string b l;
-                 Buffer.add_string b " = try let yy_tok = Some(";
-                 process_symbol pat.pat_symbol previous_was_token true;
-                 Buffer.add_string b l;
-                 Buffer.add_string b ") in\n";
-                 
-                 if (match pat.pat_symbol with
-                         U_symbol(_,_) -> true | _ -> false) then
-                   Buffer.add_string b "ignore(yy_get_next());\n";
-                 
-                 Buffer.add_string b "yy_tok with Not_found -> None in\n";
-               end
-         end
-      | Repetition ->
-         begin match label_of_symbol tree pat.pat_symbol with
-             None ->
-               (* CASE: repeated symbol without label *)
-               (* OPTIMIZATION: If the symbol is
-                * a token, the loop becomes very simple.
-                *)
-               if (match pat.pat_symbol with 
-                       U_symbol(t,_) -> not (is_typed tree t) | _ -> false) 
-               then begin
-                 let tok = match pat.pat_symbol with 
-                              U_symbol(t,_) -> t | _ -> assert false in
-                 if previous_was_token then begin
-                   (* Optimized case I *)
-                   Buffer.add_string b "while yy_get_next() = ";
-                   Buffer.add_string b tok;
-                   Buffer.add_string b " do () done;\n";
-                 end
-                 else begin
-                   (* Optimized case II *)
-                   Buffer.add_string b "if yy_current() = ";
-                   Buffer.add_string b tok;
-                   Buffer.add_string b " then (";
-                   Buffer.add_string b "while yy_get_next() = ";
-                   Buffer.add_string b tok;
-                   Buffer.add_string b " do () done);\n";
-                 end
-               end
-               else begin
-                 (* General, non-optimized case: *)
-                 if previous_was_token then
-                   Buffer.add_string b "ignore(yy_get_next());\n";
-                 Buffer.add_string b "( try while true do (";
-                 process_symbol pat.pat_symbol false true;
-
-                 if (match pat.pat_symbol with
-                        U_symbol(_,_) -> true | _ -> false) then
-                   Buffer.add_string b "ignore(yy_get_next());\n"
-                 else
-                   Buffer.add_string b "();\n";
-
-                 Buffer.add_string b ") done with Not_found -> ());\n";
-               end
-           | Some l ->
-               (* CASE: repeated symbol with label *)
-               if is_untyped_U_symbol tree pat.pat_symbol then begin
-                 (* SUBCASE: The label becomes an integer variable *)
-                 if previous_was_token then
-                   Buffer.add_string b "ignore(yy_get_next());\n";
-                 Buffer.add_string b "let yy_counter = ref 0 in\n";
-                 Buffer.add_string b "( try while true do \n";
-                 process_symbol pat.pat_symbol false true;
-                 Buffer.add_string b "incr yy_counter;\n";
-                 
-                 if (match pat.pat_symbol with
-                         U_symbol(_,_) -> true | _ -> false) then
-                   Buffer.add_string b "ignore(yy_get_next());\n";
-                 
-                 Buffer.add_string b "done with Not_found -> ());\n";
-                 Buffer.add_string b "let ";
-                 Buffer.add_string b l;
-                 Buffer.add_string b " = !yy_counter in\n";
-               end
-               else begin
-                 (* SUBCASE: the symbol has a value *)
-                 if previous_was_token then
-                   Buffer.add_string b "ignore(yy_get_next());\n";
-                 Buffer.add_string b "let yy_list = ref [] in\n";
-                 Buffer.add_string b "( try while true do \n";
-                 process_symbol pat.pat_symbol false true;
-                 Buffer.add_string b "yy_list := ";
-                 Buffer.add_string b l;
-                 Buffer.add_string b " :: !yy_list;\n";
-                 
-                 if (match pat.pat_symbol with
-                         U_symbol(_,_) -> true | _ -> false) then
-                   Buffer.add_string b "ignore(yy_get_next());\n";
-                 
-                 Buffer.add_string b "done with Not_found -> ());\n";
-                 Buffer.add_string b "let ";
-                 Buffer.add_string b l;
-                 Buffer.add_string b " = List.rev !yy_list in\n";
-               end
-         end
-    end;
-
-    (* Continue: *)
-    (new_position, this_is_token)
-  in
-
-
-  let process_inner_branch current_position =
-    (* If there is "early code", run this now: *)
-    output_code b file_name branch.branch_early_code;
-    Buffer.add_string b "\n";
-
-    (* If the first symbol is a rule invocation, call the corresponding
-     * parser function now.
-     *)
-    let previous_was_token =
-      begin match branch.branch_selector with
-         U_symbol(_,_) -> 
-           true
-       | L_symbol(called_rule, args, lab) ->
-           make_rule_invocation called_rule args lab true;
-           false
-       | L_indirect(_,_,_) -> 
-           failwith("The first symbol in some rule is an indirect call; this is not allowed")
-      end
-    in
-
-    (* Now output the "let-CODE". *)
-    output_code b file_name branch.branch_binding_code;
-    Buffer.add_string b "\n";
-
-    (* Process the other symbols in turn: *)
-    let (_, previous_was_token') =
-      (List.fold_left
-        process_pattern
-        (current_position, previous_was_token)
-        branch.branch_pattern
-      )
-    in
-
-    (* Special case: 
-     *
-     * If previous_was_token', we must invoke yy_get_next one more time.
-     * This is deferred until "CODE" is executed to give this code 
-     * the chance to make the next token available (in XML, the next token
-     * might come from a different entity, and "CODE" must switch to this
-     * entity).
-     *)
-
-    (* Now output "CODE": *)
-    Buffer.add_string b "let result = \n";
-    output_code b file_name branch.branch_result_code;
-    Buffer.add_string b "\nin\n";
-
-    if previous_was_token' then
-      Buffer.add_string b "ignore(yy_get_next());\nresult\n"
-    else
-      Buffer.add_string b "result\n"
-  in
-
-  (* If we have a ? clause, generate now the "try" statement *)
-  match branch.branch_error_code with
-      None ->
-       Buffer.add_string b "( ";
-       process_inner_branch "";
-       Buffer.add_string b " )";
-    | Some code ->
-
-       (* let position = ref "<label>" in *)
-
-       Buffer.add_string b "let yy_position = ref \"";
-       let current_position =
-         match branch.branch_selector with
-             U_symbol(_,_) -> ""
-           | L_symbol(_,_,None) -> ""
-           | L_symbol(_,_,Some l) -> l
-           | L_indirect(_,_,None) -> ""
-           | L_indirect(_,_,Some l) -> l
-       in
-       Buffer.add_string b current_position;
-       Buffer.add_string b "\" in\n";
-       
-       (* The "try" statement: *)
-
-       Buffer.add_string b "( try (\n";
-
-       process_inner_branch current_position;
-
-       Buffer.add_string b "\n) with Parsing.Parse_error -> (\n";
-       output_code b file_name code;
-       Buffer.add_string b "\n))\n"
-;;
-
-
-let process b file_name tree =
-  (* Iterate over the rules and output the parser functions: *)
-  let is_first = ref true in
-  List.iter
-    (fun r ->
-
-       (* Generate the function header: *)
-
-       if !is_first then
-        Buffer.add_string b "let rec "
-       else
-        Buffer.add_string b "and ";
-       is_first := false;
-       Buffer.add_string b "parse_";
-       Buffer.add_string b r.rule_name;
-       Buffer.add_string b " yy_current yy_get_next";
-       List.iter
-        (fun arg -> Buffer.add_string b " ";
-                    Buffer.add_string b arg)
-        r.rule_arguments;
-       Buffer.add_string b " =\n";
-
-       (* Generate the "match" statement: *)
-
-       Buffer.add_string b "match yy_current() with\n";
-       let s_done = ref [] in
-       (* s_done: The set of already matched tokens *)
-
-       List.iter
-        (fun branch ->
-           match branch.branch_selector with
-               U_symbol(tok, lab) ->
-                 (* A simple token *)
-                 if List.mem tok !s_done then begin
-                   prerr_endline("WARNING: In rule `" ^ r.rule_name ^ 
-                                 "': Match for token `" ^
-                                 tok ^ "' hidden by previous match");
-                 end
-                 else
-                   if is_typed tree tok then begin
-                     match lab with
-                         None ->
-                           Buffer.add_string b "| ";
-                           Buffer.add_string b tok;
-                           Buffer.add_string b " _ -> ";
-                           process_branch b file_name tree branch;
-                           Buffer.add_string b "\n";
-                           s_done := tok :: !s_done;
-                       | Some l ->
-                           Buffer.add_string b "| ";
-                           Buffer.add_string b tok;
-                           Buffer.add_string b " ";
-                           Buffer.add_string b l;
-                           Buffer.add_string b " -> ";
-                           process_branch b file_name tree branch;
-                           Buffer.add_string b "\n";
-                           s_done := tok :: !s_done;
-                 end
-                 else begin
-                   Buffer.add_string b "| ";
-                   Buffer.add_string b tok;
-                   Buffer.add_string b " -> ";
-                   process_branch b file_name tree branch;
-                   Buffer.add_string b "\n";
-                   s_done := tok :: !s_done;
-                 end
-             | L_symbol(called_rule, args, lab) ->
-                 (* An invocation of a rule *)
-                 let s_rule = selector_set_of_rule tree called_rule in
-                 let s_rule' =
-                   List.filter
-                     (fun tok ->
-                        if List.mem tok !s_done then begin
-                          prerr_endline("WARNING: In rule `" ^ r.rule_name ^ 
-                                        "': Match for token `" ^
-                                        tok ^ "' hidden by previous match");
-                          false
-                        end
-                        else true)
-                     s_rule in
-                 if s_rule' <> [] then begin
-                   Buffer.add_string b "| ( ";
-                   let is_first = ref true in
-                   List.iter
-                     (fun tok ->
-                        if not !is_first then
-                          Buffer.add_string b " | ";
-                        is_first := false;
-                        Buffer.add_string b tok;
-                        if is_typed tree tok then
-                          Buffer.add_string b " _";
-                     )
-                     s_rule';
-                   Buffer.add_string b ") -> ";
-                   process_branch b file_name tree branch;
-                   Buffer.add_string b "\n";
-                   s_done := s_rule' @ !s_done;
-                 end
-             | L_indirect(ml_name, args, lab) ->
-                 (* An invocation of an indirect rule *)
-                 failwith("The first symbol in rule `" ^ r.rule_name ^ 
-                          "' is an indirect call; this is not allowed")
-        )
-        r.rule_branches;
-
-       Buffer.add_string b "\n| _ -> raise Not_found\n";
-    )
-    tree.text_rules;
-
-  Buffer.add_string b " in\n"
-;;
-
-
-let count_lines s =
-  (* returns number of lines in s, number of columns of the last line *)
-  let l = String.length s in
-
-  let rec count n k no_cr no_lf =
-    let next_cr = 
-      if no_cr then
-        (-1)
-      else
-        try String.index_from s k '\013' with Not_found -> (-1) in
-    let next_lf = 
-      if no_lf then
-        (-1)
-      else
-        try String.index_from s k '\010' with Not_found -> (-1) in
-    if next_cr >= 0 & (next_lf < 0 or next_cr < next_lf) then begin
-      if next_cr+1 < l & s.[next_cr+1] = '\010' then
-        count (n+1) (next_cr+2) false (next_lf < 0)
-      else
-        count (n+1) (next_cr+1) false (next_lf < 0)
-    end
-    else if next_lf >= 0 then begin
-      count (n+1) (next_lf+1) (next_cr < 0) false
-    end
-    else
-      n, (l - k)
-
-  in
-  count 0 0 false false
-;;
-
-
-type scan_context =
-    { mutable old_line : int;
-      mutable old_column : int;
-      mutable line : int;
-      mutable column : int;
-    }
-;;
-
-
-let rec next_token context lexbuf =
-  let t = Lexer.scan_file lexbuf in
-  let line = context.line in
-  let column = context.column in
-  context.old_line <- line;
-  context.old_column <- column;
-  let n_lines, n_columns = count_lines (Lexing.lexeme lexbuf) in
-  if n_lines > 0 then begin
-    context.line <- line + n_lines;
-    context.column <- n_columns;
-  end 
-  else 
-    context.column <- column + n_columns;
-  match t with
-      Space -> next_token context lexbuf
-    | Code(s,_,_) -> Code(s,line,column + 2)
-    | Eof   -> failwith "Unexpected end of file"
-    | _     -> t
-;;
-
-
-let parse_and_generate ch =
-  let b = Buffer.create 20000 in
-
-  let rec find_sep context lexbuf =
-    let t = Lexer.scan_header lexbuf in
-    let line = context.line in
-    let column = context.column in
-    context.old_line <- line;
-    context.old_column <- column;
-    let n_lines, n_columns = count_lines (Lexing.lexeme lexbuf) in
-    if n_lines > 0 then begin
-      context.line <- line + n_lines;
-      context.column <- n_columns;
-    end 
-    else 
-      context.column <- column + n_columns;
-    match t with
-       Code(s,_,_) -> 
-         Buffer.add_string b s;
-          find_sep context lexbuf
-      | Eof    -> failwith "Unexpected end of file"
-      | Separator -> ()
-      | _         -> assert false
-  in
-
-  let rec find_rest context lexbuf =
-    let t = Lexer.scan_header lexbuf in
-    let line = context.line in
-    let column = context.column in
-    context.old_line <- line;
-    context.old_column <- column;
-    let n_lines, n_columns = count_lines (Lexing.lexeme lexbuf) in
-    if n_lines > 0 then begin
-      context.line <- line + n_lines;
-      context.column <- n_columns;
-    end 
-    else 
-      context.column <- column + n_columns;
-    match t with
-       Code(s,_,_) -> 
-         Buffer.add_string b s;
-          find_rest context lexbuf
-      | Eof    -> ()
-      | _      -> assert false
-  in
-
-  (* First read until '%%' *)
-  let lexbuf = Lexing.from_channel ch in
-  let context = { old_line = 0; old_column = 0; line = 1; column = 0 } in
-  let file_name = "stdin" in
-  try
-    output_code_location b file_name ("", 1, 0);
-    find_sep context lexbuf;
-    (* Parse the following text *)
-    let text = (Parser.text (next_token context) lexbuf : Ast.text) in
-    (* Process it: *)
-    process b file_name text;
-    (* Read rest *)
-    output_code_location b file_name ("", context.line, context.column);
-    find_rest context lexbuf;
-    (* Output everything: *)
-    print_string (Buffer.contents b)
-  with
-      any ->
-       Printf.eprintf 
-         "Error at line %d column %d: %s\n"
-         context.old_line
-         context.old_column
-         (Printexc.to_string any);
-       exit 1
-;;
-
-
-parse_and_generate stdin;;
-exit 0;;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.7  2000/08/17 00:33:02  gerd
- *     Bugfix: tok* and tok? work now if tok is an untyped token
- * without label.
- *
- * Revision 1.6  2000/05/14 20:59:24  gerd
- *     Added "phantasy line numbers" to help finding errorneous locations.
- *
- * Revision 1.5  2000/05/14 20:41:58  gerd
- *     x: Token?   means: if Token is detected x=true else x=false.
- *     x: Token*   means: x becomes the number of ocurrences of Token.
- *
- * Revision 1.4  2000/05/09 00:03:22  gerd
- *     Added [ ml_name ] symbols, where ml_name is an arbitrary
- * OCaml identifier.
- *
- * Revision 1.3  2000/05/08 22:03:01  gerd
- *     It is now possible to have a $ {{ }} sequence right BEFORE
- * the first token. This code is executed just after the first token
- * has been recognized.
- *
- * Revision 1.2  2000/05/06 21:51:08  gerd
- *     Numerous bugfixes.
- *
- * Revision 1.1  2000/05/06 17:36:17  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/m2parsergen/lexer.mll b/helm/DEVEL/pxp/pxp/m2parsergen/lexer.mll
deleted file mode 100644 (file)
index a016897..0000000
--- a/helm/DEVEL/pxp/pxp/m2parsergen/lexer.mll
+++ /dev/null
@@ -1,93 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-{
-  open Parser
-}
-
-rule scan_file = parse
-    "/*" [^ '*']* ('*'+ [^ '/' '*'] [^ '*']* )* '*'* "*/"
-      { Space }
-  | "%token"
-      { Token }
-  | "<" [' ' '\t' '\r' '\n']* ">"
-      { Type 
-      }
-  | [ 'a'-'z' ] [ 'a'-'z' 'A'-'Z' '0'-'9' '_' ]*
-      { let s = Lexing.lexeme lexbuf in
-       Lname s
-      }
-  | [ 'A'-'Z' ] [ 'a'-'z' 'A'-'Z' '0'-'9' '_' ]*
-      { let s = Lexing.lexeme lexbuf in
-       Uname s
-      }
-  | "%%"
-      { Separator }
-  | "("
-      { Lparen }
-  | ","
-      { Comma }
-  | ")"
-      { Rparen }
-  | "[" 
-      { Lbracket }
-  | "]" 
-      { Rbracket }
-  | ":"
-      { Colon }
-  | "{{" [^ '}']* ( '}' [^ '}']+ )* "}}"
-      { let s = Lexing.lexeme lexbuf in
-       Code (String.sub s 2 (String.length s - 4), 0, 0)
-      }
-  | "?"
-      { Error }
-  | "|"
-      { Alt }
-  | "+"
-      { Loop_plus }
-  | "*"
-      { Loop_star }
-  | [' ' '\t' '\r' '\n']+
-      { Space }
-  | "$"
-      { Dollar }
-  | eof
-      { Eof }
-
-and scan_header = parse
-    "%%"
-      { Separator }
-  | "%"
-      { Code("%", 0, 0) }
-  | [^ '%']*
-      { Code(Lexing.lexeme lexbuf, 0, 0) }
-  | eof
-      { Eof }
-
-and scan_rest = parse
-    _*
-      { Code(Lexing.lexeme lexbuf, 0, 0) }
-  | eof 
-      { Eof }
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.3  2000/05/09 00:03:22  gerd
- *     Added [ ml_name ] symbols, where ml_name is an arbitrary
- * OCaml identifier.
- *
- * Revision 1.2  2000/05/06 21:51:24  gerd
- *     New symbol Dollar.
- *
- * Revision 1.1  2000/05/06 17:36:17  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/m2parsergen/parser.mly b/helm/DEVEL/pxp/pxp/m2parsergen/parser.mly
deleted file mode 100644 (file)
index 7497c3a..0000000
--- a/helm/DEVEL/pxp/pxp/m2parsergen/parser.mly
+++ /dev/null
@@ -1,194 +0,0 @@
-/* $Id$
- * ----------------------------------------------------------------------
- *
- */
-
-%{
-  open Ast
-
-%}
-
-%token Space
-%token Token
-%token Type
-%token <string> Lname
-%token <string> Uname
-%token Separator
-%token Lparen
-%token Rparen
-%token Comma
-%token Colon
-%token <string * int * int> Code
-%token Error
-%token Alt
-%token Loop_plus
-%token Loop_star
-%token Dollar
-%token Lbracket
-%token Rbracket%token Eof
-
-%start text
-%type <Ast.text> text
-
-%%
-
-text:
-  declarations rules
-    { { text_decls = $1; text_rules = $2; } }
-
-declarations:
-  declaration declarations
-    { $1 :: $2 }
-| Separator
-    { [] }
-
-declaration:
-  Token Uname
-    { D_token $2 }
-| Token Type Uname
-    { D_typed_token $3 }
-
-rules:
-  rule rules
-    { $1 :: $2 }
-| Separator
-    { [] }
-
-rule:
-  Lname Lparen formal_arguments Colon branches
-    { { rule_name = $1;
-       rule_arguments = $3;
-       rule_branches = $5;
-      }
-    }
-
-formal_arguments:
-  Rparen
-    { [] }
-| Lname comma_formal_arguments
-    { $1 :: $2 }
-
-comma_formal_arguments:
-  Comma Lname comma_formal_arguments
-    { $2 :: $3 }
-| Rparen
-    { [] }
-
-branches:
-  branch alt_branches
-    { $1 :: $2 }
-
-alt_branches:
-  Alt branch alt_branches
-    { $2 :: $3 }
-|
-    { [] }
-
-branch:
-  simple_branch
-    { $1 }
-| Dollar Code simple_branch
-    { { $3 with branch_early_code = $2 } }
-
-simple_branch:
-  symbol Dollar Code patterns Code opt_error_handler
-    { { branch_selector = $1;
-        branch_early_code = ("",0,0);
-       branch_binding_code = $3;
-       branch_pattern = $4;
-       branch_result_code = $5;
-       branch_error_code = $6;
-      }
-    }
-| symbol patterns Code opt_error_handler
-    { { branch_selector = $1;
-        branch_early_code = ("",0,0);
-       branch_binding_code = ("", 0, 0);
-       branch_pattern = $2;
-       branch_result_code = $3;
-       branch_error_code = $4;
-      }
-    }
-
-patterns:
-  pattern patterns
-    { $1 :: $2 }
-| 
-    { [] }
-
-pattern:
-  symbol Loop_star
-    { { pat_symbol = $1;
-       pat_modifier = Repetition;
-      }
-    }
-| symbol Error
-    { { pat_symbol = $1;
-       pat_modifier = Option;
-      }
-    }
-| symbol
-    { { pat_symbol = $1;
-       pat_modifier = Exact;
-      }
-    }
-
-symbol:
-  Lname Colon Uname
-    { U_symbol($3, Some $1) }
-| Lname Colon Lname Lparen actual_arguments 
-    { L_symbol($3, $5, Some $1) }
-| Lname Colon Lbracket Lname Rbracket Lparen actual_arguments 
-    { L_indirect($4, $7, Some $1) }
-| Uname
-    { U_symbol($1, None) }
-| Lname Lparen actual_arguments 
-    { L_symbol($1, $3, None) }
-| Lbracket Lname Rbracket Lparen actual_arguments 
-    { L_indirect($2, $5, None) }
-
-
-actual_arguments:
-  Rparen
-    { [] }
-| Lname comma_actual_arguments
-    { $1 :: $2 }
-
-comma_actual_arguments:
-  Rparen
-    { [] }
-| Comma Lname comma_actual_arguments
-    { $2 :: $3 }
-
-opt_error_handler:
-  Error Code
-    { Some $2 }
-| 
-    { None }
-
-%%
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.4  2000/05/09 00:03:22  gerd
- *     Added [ ml_name ] symbols, where ml_name is an arbitrary
- * OCaml identifier.
- *
- * Revision 1.3  2000/05/08 22:03:01  gerd
- *     It is now possible to have a $ {{ }} sequence right BEFORE
- * the first token. This code is executed just after the first token
- * has been recognized.
- *
- * Revision 1.2  2000/05/06 21:51:46  gerd
- *     New Dollar tag.
- *
- * Revision 1.1  2000/05/06 17:36:17  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/m2parsergen/x.m2y b/helm/DEVEL/pxp/pxp/m2parsergen/x.m2y
deleted file mode 100644 (file)
index 3fa80b0..0000000
--- a/helm/DEVEL/pxp/pxp/m2parsergen/x.m2y
+++ /dev/null
@@ -1,45 +0,0 @@
-
-type token =
-  A | B | C of int | EOF
-;;
-
-%%
-
-%token A
-%token B
-%token <> C
-%token EOF
-
-%%
-
-r():
-  one:s()
-  {{ }}
-  b:B
-  two:B?
-  three:s()
-  {{ prerr_endline ("Result: " ^ string_of_int three) }}
-? {{ prerr_endline ("ERROR: " ^ !yy_position) }}
-
-s():
-  A 
-  {{ }}
-  {{ prerr_endline "A"; 0 }}
-| B 
-  {{ }}
-  {{ prerr_endline "B"; 0 }}
-| n:C
-  {{ }}
-  {{ prerr_endline ("C: " ^ string_of_int n); n }}
-%%
-
-let input = ref [ A; B; B; B; C 5; EOF ] in
-let current() = List.hd !input in
-let next_token () =
-  prerr_endline "get_next";
-  input := List.tl !input;
-  List.hd !input
-in
-parse_r current next_token
-;;
-

diff --git a/helm/DEVEL/pxp/pxp/pxp_aux.ml b/helm/DEVEL/pxp/pxp/pxp_aux.ml
deleted file mode 100644 (file)
index aa1212b..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_aux.ml
+++ /dev/null
@@ -1,651 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright by Gerd Stolpmann. See LICENSE for details.
- * Some auxiliary functions 
- *)
-
-(**********************************************************************)
-(* Lexing *)
-
-
-open Pxp_types
-open Pxp_lexer_types
-open Pxp_lexers
-open Netconversion
-
-let character enc warner k =
-  assert (k>=0);
-  if (k >= 0xd800 & k < 0xe000) or (k >= 0xfffe & k <= 0xffff) or k > 0x10ffff
-     or (k < 8) or (k = 11) or (k = 12) or (k >= 14 & k <= 31)
-  then
-    raise (WF_error("Code point " ^ string_of_int k ^ 
-                   " outside the accepted range of code points"));
-
-  try
-    makechar (enc : rep_encoding :> encoding) k
-  with
-      Not_found ->
-       warner # warn ("Code point cannot be represented in internal encoding: "
-                      ^ string_of_int k);
-       ""
-;;
-
-
-let check_name warner name =
-  (* produces a warning for names beginning with "xml". *)
-  if String.length name >= 3 then begin
-    match String.sub name 0 3 with
-       ("xml" | "xmL" | "xMl" | "xML" | "Xml" | "XmL" | "XMl" | "XML") ->
-         warner # warn ("Name is reserved for future extensions: " ^ name)
-      | _ ->
-         ()
-  end
-;;
-
-
-let tokens_of_content_string lexerset s =
-  (* tokenizes general entities and character entities *)
-  let lexbuf = Lexing.from_string s in
-  let rec next_token () =
-    match lexerset.scan_content_string lexbuf with
-       Eof -> []
-      | tok -> tok :: next_token()
-  in
-  next_token()
-;;
-
-
-let rec expand_attvalue_with_rec_check lexerset dtd s warner entities norm_crlf =
-  (* recursively expands general entities and character entities;
-   * checks "standalone" document declaration;
-   * normalizes whitespace
-   *)
-  let toklist = tokens_of_content_string lexerset s in
-  let rec expand tl =
-    match tl with
-       [] -> ""
-      | ERef n :: tl' ->
-         if List.mem n entities then
-           raise(WF_error("Recursive reference to general entity `" ^ n ^ "'"));
-         let en, extdecl = dtd # gen_entity n in
-         if dtd # standalone_declaration && extdecl then
-           raise(Validation_error("Reference to entity `" ^ n ^ 
-                                  "' violates standalone declaration"));
-         let rtext, rtext_contains_ext_refs = en # replacement_text in
-         if rtext_contains_ext_refs then
-           raise(Validation_error("Found reference to external entity in attribute value"));
-         expand_attvalue_with_rec_check 
-           lexerset dtd rtext warner (n :: entities) false    ^    expand tl'
-      | CRef(-1) :: tl' ->
-         if norm_crlf then
-           " " ^ expand tl'
-         else
-           "  " ^ expand tl'
-      | CRef n :: tl' ->
-         character lexerset.lex_encoding warner n ^ expand tl'
-      | CharData "<" :: tl' ->
-         raise 
-           (WF_error
-              ("Attribute value contains character '<' literally"))
-      | CharData x :: tl' ->
-         x ^ expand tl'
-      | _ -> assert false
-  in
-  expand toklist
-;;
-
-
-let expand_attvalue lexerset dtd s warner norm_crlf =
-  (* norm_crlf: whether the sequence CRLF is recognized as one character or
-   * not (i.e. two characters)
-   *)
-  expand_attvalue_with_rec_check lexerset dtd s warner [] norm_crlf
-;;
-
-
-let count_lines s =
-  (* returns number of lines in s, number of columns of the last line *)
-  let l = String.length s in
-
-  let rec count n k no_cr no_lf =
-    let next_cr = 
-      if no_cr then
-       (-1)
-      else
-       try String.index_from s k '\013' with Not_found -> (-1) in
-    let next_lf = 
-      if no_lf then
-       (-1)
-      else
-       try String.index_from s k '\010' with Not_found -> (-1) in
-    if next_cr >= 0 & (next_lf < 0 or next_cr < next_lf) then begin
-      if next_cr+1 < l & s.[next_cr+1] = '\010' then
-       count (n+1) (next_cr+2) false (next_lf < 0)
-      else
-       count (n+1) (next_cr+1) false (next_lf < 0)
-    end
-    else if next_lf >= 0 then begin
-      count (n+1) (next_lf+1) (next_cr < 0) false
-    end
-    else
-      n, (l - k)
-
-  in
-  count 0 0 false false
-;;
-
-
-let tokens_of_xml_pi lexers s =
-  let lexbuf = Lexing.from_string (s ^ " ") in
-  let rec collect () =
-    let t = lexers.scan_xml_pi lexbuf in
-    match t with
-       Pro_eof -> []
-      | _       -> t :: collect()
-  in
-  collect()
-;;
-
-
-let decode_xml_pi pl =
-  (* 'pl' must consist of name="value" or name='value' pairs which are returned
-   * as list of pairs.
-   * The "value" is returned as it is; no substitution of &entities; happens.
-   *)
-  let rec decode pl =
-    match pl with
-       Pro_name name :: Pro_eq :: Pro_string value :: pl' ->
-         (name, value) :: decode pl'
-      | [] ->
-         []
-      | _ ->
-         raise (WF_error("Bad XML processing instruction"))
-  in
-  decode pl
-;;
-
-
-let decode_doc_xml_pi pl =
-  match pl with
-      [ "version", v ]                                  -> (v, None, None)
-    | [ "version", v; "encoding", e ]                   -> (v, Some e, None)
-    | [ "version", v; "standalone", s ]                 -> (v, None, Some s)
-    | [ "version", v; "encoding", e; "standalone", s ]  -> (v, Some e, Some s)
-    | _ ->
-       raise(WF_error("Bad XML declaration"))
-;;
-
-
-let check_text_xml_pi pl =
-  match pl with
-    | [ "version", v; "encoding", e ] -> ()
-    | [ "encoding", e ]  -> ()
-    | _ ->
-       raise(WF_error("Bad XML declaration"))
-;;
-
-
-let check_version_num s =
-  let l = String.length s in
-  for i = 0 to l - 1 do
-    match s.[i] with
-       ('a'..'z'|'A'..'Z'|'0'..'9'|
-        '-'|'_'|'.'|':') -> ()
-      | _ ->
-         raise(WF_error("Bad XML version string"))
-  done
-;;
-
-
-let check_public_id s =
-  let l = String.length s in
-  for i = 0 to l - 1 do
-    match s.[i] with
-       (' '|'\013'|'\010'|'a'..'z'|'A'..'Z'|'0'..'9'|
-        '-'|'\''|'('|')'|'+'|','|'.'|'/'|':'|'='|'?'|
-        ';'|'!'|'*'|'#'|'@'|'$'|'_'|'%') -> ()
-      | _ ->
-         raise(WF_error("Illegal character in PUBLIC identifier"))
-  done
-;;
-
-
-(**********************************************************************)
-(* list functions *)
-
-
-let rec check_dups l =
-  match l with
-      [] -> false
-    | c :: l' -> 
-       if List.mem c l' then true else check_dups l'
-;;
-
-
-let rec count pred l =
-  match l with
-      [] -> 0
-    | x :: l' -> 
-       if pred x then  1 + (count pred l') else count pred l'
-;;
-
-
-(**********************************************************************)
-(* attributes *)
-
-let check_attribute_value_lexically lexerset x t v =
-  (* raises x if the attribute value v does not match the lexical rules
-   * for attribute type t:
-   * - t = A_id: v must be a <name>
-   * - t = A_idref: v must match <name>
-   * - t = A_idrefs: v must match <names>
-   * - t = A_entity: v must match <name>
-   * - t = A_entities: v must match <names>
-   * - t = A_nmtoken: v must match <nmtoken>
-   * - t = A_nmtokens: v must match <nmtokens>
-   * - t = A_notation _: v must match <name>
-   * - t = A_enum _: v must match <nmtoken>
-   * - t = A_cdata: not checked
-   *)
-  let lexbuf = Lexing.from_string v in
-  let rec get_name_list() =
-    match lexerset.scan_name_string lexbuf with
-       Eof    -> []
-      | Ignore -> get_name_list()
-      | tok    -> tok :: get_name_list()
-  in
-  let l = get_name_list() in
-  match t with
-      (A_id | A_idref | A_entity | A_notation _) ->
-       begin match l with
-           [ Name n ] -> ()
-         | _          -> raise (Lazy.force x)
-       end
-    | (A_idrefs | A_entities) ->
-       if List.exists (fun tok -> 
-                         match tok with
-                             Name _ -> false
-                           | _ -> true) l then
-         raise (Lazy.force x)
-    | (A_nmtoken | A_enum _) ->
-       begin match l with
-           [ Name n ]      -> ()
-         | [ Nametoken n ] -> ()
-         | _               -> raise (Lazy.force x)
-       end
-    | A_nmtokens ->
-       if List.exists (fun tok -> 
-                         match tok with
-                             Name _ -> false
-                           | Nametoken _ -> false
-                           | _ -> true
-                      ) l then
-         raise (Lazy.force x)
-    | _ -> ()
-;;
-
-
-let split_attribute_value lexerset v =
-  (* splits 'v' into a list of names or nmtokens. The white space separating
-   * the names/nmtokens in 'v' is suppressed and not returned.
-   *)
-  let lexbuf = Lexing.from_string v in
-  let rec get_name_list() =
-    match lexerset.scan_name_string lexbuf with
-       Eof         -> []
-      | Ignore      -> get_name_list()
-      | Name s      -> s :: get_name_list()
-      | Nametoken s -> s :: get_name_list()
-      | _           -> raise(Validation_error("Illegal attribute value"))
-  in
-  get_name_list()
-;;
-
-
-let normalize_line_separators lexerset s =
-  let lexbuf = Lexing.from_string s in
-  let rec get_string() =
-    match lexerset.scan_for_crlf lexbuf with
-       Eof        -> ""
-      | CharData s -> s ^ get_string()
-      | _          -> assert false
-  in
-  get_string()
-;;
-
-
-let value_of_attribute lexerset dtd n atype v =
-  (* The attribute with name 'n', type 'atype' and string value 'v' is
-   * decomposed, and the att_value is returned:
-   * - It is checked whether 'v' conforms to the lexical rules for attributes
-   *   of type 'atype'
-   * - If 'atype <> A_cdata', leading and trailing spaces are removed from 'v'.
-   * - If 'atype = A_notation d', it is checked if 'v' matches one of the
-   *   notation names contained in d.
-   * - If 'atype = A_enum d', it is checked whether 'v' matches one of the
-   *   tokens from d
-   * - If 'atype' refers to a "single-value" type, the value is retured as
-   *   Value u, where u is the normalized value. If 'atype' refers to a 
-   *   "list" type, the value if returned as Valuelist l, where l contains
-   *   the tokens.
-   *
-   * Note that this function does not implement all normalization rules.
-   * It is expected that the string passed as 'v' is already preprocessed;
-   * i.e. character and entity references are resolved, and the substitution
-   * of white space characters by space characters has already been performed.
-   * If these requirements are met, the value returned by this function
-   * will be perfectly normalized.
-   *
-   * Further checks:
-   * - ENTITY and ENTITIES values: It is checked whether there is an
-   *   unparsed general entity
-   * [ Other checks planned: ID, IDREF, IDREFS but not yet implemented ]
-   *)
-
-  let lexical_error() =
-    lazy (raise(Validation_error("Attribute `" ^ n ^ "' is lexically malformed"))) in
-
-  let remove_leading_and_trailing_spaces u =
-    (* Precondition: 'u' matches <name> or <nmtoken> *)
-    match split_attribute_value lexerset u with
-       [ u' ] -> u'
-      | _      -> assert false
-  in
-
-  let check_ndata_entity u =
-    let en, extdecl = dtd # gen_entity u in  (* or Validation_error *)
-    if not (en # is_ndata) then
-      raise(Validation_error("Reference to entity `" ^ u ^ 
-                            "': NDATA entity expected"));
-    if dtd # standalone_declaration && extdecl then
-      raise(Validation_error("Reference to entity `" ^ u ^ 
-                            "' violates standalone declaration"));
-  in
-
-  match atype with
-      A_cdata ->
-       Value v
-
-    | (A_id | A_idref | A_nmtoken) ->
-       check_attribute_value_lexically lexerset (lexical_error()) atype v;
-       Value (remove_leading_and_trailing_spaces v)
-    | A_entity ->
-       check_attribute_value_lexically lexerset (lexical_error()) atype v;
-       let v' = remove_leading_and_trailing_spaces v in
-       check_ndata_entity v';
-       Value v'
-
-    | (A_idrefs | A_nmtokens) ->
-       check_attribute_value_lexically lexerset (lexical_error()) atype v;
-       Valuelist (split_attribute_value lexerset v)
-
-    | A_entities ->
-       check_attribute_value_lexically lexerset (lexical_error()) atype v;
-       let l = split_attribute_value lexerset v in
-       List.iter check_ndata_entity l;
-       Valuelist l
-
-    | A_notation nl ->
-       check_attribute_value_lexically lexerset (lexical_error()) atype v;
-       let v' = remove_leading_and_trailing_spaces v in
-       if not (List.mem v' nl) then
-         raise(Validation_error
-                 ("Attribute `" ^ n ^ 
-                  "' does not match one of the declared notation names"));
-       Value v'
-
-    | A_enum enuml ->
-       check_attribute_value_lexically lexerset (lexical_error()) atype v;
-       let v' = remove_leading_and_trailing_spaces v in
-       if not (List.mem v' enuml) then
-         raise(Validation_error
-                 ("Attribute `" ^ n ^ 
-                  "' does not match one of the declared enumerator tokens"));
-       Value v'
-;;
-
-
-let normalization_changes_value lexerset atype v =
-  (* Returns true if:
-   * - 'atype' is a "single-value" type, and the normalization of the string
-   *   value 'v' of this type discards leading and/or trailing spaces
-   * - 'atype' is a "list" type, and the normalization of the string value
-   *   'v' of this type discards leading and/or trailing spaces, or spaces
-   *   separating the tokens of the list (i.e. the normal form is that
-   *   the tokens are separated by exactly one space character).
-   *
-   * Note: It is assumed that TABs, CRs, and LFs in 'v' are already converted
-   * to spaces.
-   *)
-
-  match atype with
-      A_cdata -> 
-       false
-
-    | (A_id | A_idref | A_entity | A_nmtoken | A_notation _ | A_enum _) ->
-       (* Return 'true' if the first or last character is a space.
-        * The following check works for both ISO-8859-1 and UTF-8.
-        *)
-       v <> "" && (v.[0] = ' ' || v.[String.length v - 1] = ' ')
-
-    | (A_idrefs | A_entities | A_nmtokens) ->
-       (* Split the list, and concatenate the tokens as required by
-        * the normal form. Return 'true' if this operation results in 
-        * a different string than 'v'.
-        * This check works for both ISO-8859-1 and UTF-8.
-        *)
-       let l = split_attribute_value lexerset v in
-       let v' = String.concat " " l in
-       v <> v'
-;;
-
-
-(**********************************************************************)
-
-let write_markup_string ~(from_enc:rep_encoding) ~to_enc os s =
-  (* Write the 'from_enc'-encoded string 's' as 'to_enc'-encoded string to
-   * 'os'. All characters are written as they are.
-   *)
-  let s' =
-    if to_enc = (from_enc :> encoding)
-    then s 
-    else recode_string 
-                ~in_enc:(from_enc :> encoding)
-                ~out_enc:to_enc
-                ~subst:(fun n -> 
-                          failwith 
-                            ("Pxp_aux.write_markup_string: Cannot represent " ^
-                             "code point " ^ string_of_int n))
-                s
-  in
-  write os s' 0 (String.length s')
-;;
-
-
-let write_data_string ~(from_enc:rep_encoding) ~to_enc os content =
-  (* Write the 'from_enc'-encoded string 's' as 'to_enc'-encoded string to
-   * 'os'. The characters '&', '<', '>', '"', '%' and every character that
-   * cannot be represented in 'to_enc' are paraphrased as entity reference
-   * "&...;".
-   *)
-  let convert_ascii s =
-    (* Convert the ASCII-encoded string 's'. Note that 'from_enc' is
-     * always ASCII-compatible
-     *)
-    if to_enc = (from_enc :> encoding) 
-    then s
-    else
-      recode_string
-        ~in_enc:(from_enc :> encoding)
-        ~out_enc:to_enc
-        ~subst:(fun n -> assert false)
-       s
-  in
-
-  let write_ascii s =
-    (* Write the ASCII-encoded string 's' *)
-    let s' = convert_ascii s in
-    write os s' 0 (String.length s')
-  in
-      
-  let write_part j l =
-    (* Writes the substring of 'content' beginning at pos 'j' with length 'l'
-     *)
-    if to_enc = (from_enc :> encoding) then
-      write os content j l
-    else begin
-      let s' = recode_string 
-                ~in_enc:(from_enc :> encoding)
-                ~out_enc:to_enc
-                ~subst:(fun n -> 
-                          convert_ascii ("&#" ^ string_of_int n ^ ";"))
-                (String.sub content j l)
-      in
-      write os s' 0 (String.length s')
-    end
-  in
-
-  let i = ref 0 in
-  for k = 0 to String.length content - 1 do
-    match content.[k] with
-       ('&' | '<' | '>' | '"' | '%') as c ->
-         if !i < k then
-           write_part !i (k - !i);
-         begin match c with
-             '&' -> write_ascii "&amp;"
-           | '<' -> write_ascii "&lt;"
-           | '>' -> write_ascii "&gt;"
-           | '"' -> write_ascii "&quot;"
-           | '%' -> write_ascii "&#37;"  (* reserved in DTDs *)
-           | _   -> assert false
-         end;
-         i := k+1
-      | _ -> ()
-  done;
-  if !i < String.length content then
-    write_part !i (String.length content - !i)
-;;
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.6  2000/08/14 22:24:55  gerd
- *     Moved the module Pxp_encoding to the netstring package under
- * the new name Netconversion.
- *
- * Revision 1.5  2000/07/25 00:30:01  gerd
- *     Added support for pxp:dtd PI options.
- *
- * Revision 1.4  2000/07/16 18:31:09  gerd
- *     The exception Illegal_character has been dropped.
- *
- * Revision 1.3  2000/07/16 16:33:57  gerd
- *     New function write_markup_string: Handles the encoding
- * of the string.
- *
- * Revision 1.2  2000/07/08 22:15:45  gerd
- *     [Merging 0.2.10:] write_data_string: The character '%' is special, too.
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- * Old logs from markup_aux.ml:
- *
- * Revision 1.12  2000/05/27 19:08:30  gerd
- *     Added functionality to check standalone declaration:
- *
- *     expand_attvalue: Checks whether included entities violate the
- * stand-alone declaration.
- *
- *     value_of_attribute: Checks whether ENTITY/ENTITIES values violate
- * this declaration. (Furthermore, it is checked whether the NDATA
- * entity exists - this has been forgotten in previous versions.)
- *
- *     value_of_attribute/check_attribute_value_lexically: improved.
- *
- *     New function normalization_changes_value: helps detecting
- * one case which violates the standalone declaration.
- *
- * Revision 1.11  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.10  2000/05/01 20:41:56  gerd
- *     New function write_data_string.
- *
- * Revision 1.9  2000/04/30 18:11:31  gerd
- *     New function normalize_line_separators.
- *     In function expand_attvalue: New argument norm_crlf. If the attvalue
- * is read directly from a file, the sequence CR LF must be converted to a
- * single space. If the attvalue is read from a replacement text, CR LF has
- * already converted to a single LF, and CR LF, if still occurring, must be
- * converted to two spaces. The caller can indicate the case by passing
- * true/false as norm_crlf.
- *
- * Revision 1.8  1999/09/01 22:51:07  gerd
- *     Added functions.
- *     'character' raises Illegal_character if characters are found that
- * do not match the production Char.
- *
- * Revision 1.7  1999/09/01 16:17:37  gerd
- *     Added function 'check_name'.
- *
- * Revision 1.6  1999/08/15 20:33:19  gerd
- *     Added: a function that checks public identifiers. Only certain
- * characters may occur in these identifiers.
- *     Control characters are rejected by the "character" function.
- *     Bugfix: recursive entity references are detected in attribute
- * expansion
- *
- * Revision 1.5  1999/08/15 02:18:02  gerd
- *     That '<' is not allowed in attribute values, is a violation
- * of well-formedness, not of the validity; so WF_error is raised.
- *
- * Revision 1.4  1999/08/15 00:20:37  gerd
- *     When expanding attribute values, references to parameter
- * entities are now resolved by the method "replacement_text" which
- * has an additional return value, and no longer by "attlist_replacement_text".
- * The new return value indicates whether references to external entities
- * have been resolved (directly or indirectly); this is allowed at some
- * locations but not in attribute values.
- *
- * Revision 1.3  1999/08/14 22:05:53  gerd
- *     Several functions have now a "warner" as argument which is
- * an object with a "warn" method. This is used to warn about characters
- * that cannot be represented in the Latin 1 alphabet.
- *
- * Revision 1.2  1999/08/10 21:35:06  gerd
- *     The XML/encoding declaration at the beginning of entities is
- * evaluated. In particular, entities have now a method "xml_declaration"
- * which returns the name/value pairs of such a declaration. The "encoding"
- * setting is interpreted by the entity itself; "version", and "standalone"
- * are interpreted by Markup_yacc.parse_document_entity. Other settings
- * are ignored (this does not conform to the standard; the standard prescribes
- * that "version" MUST be given in the declaration of document; "standalone"
- * and "encoding" CAN be declared; no other settings are allowed).
- *     TODO: The user should be warned if the standard is not exactly
- * fulfilled. -- The "standalone" property is not checked yet.
- *
- * Revision 1.1  1999/08/10 00:35:50  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_codewriter.ml b/helm/DEVEL/pxp/pxp/pxp_codewriter.ml
deleted file mode 100644 (file)
index a6ab0db..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_codewriter.ml
+++ /dev/null
@@ -1,518 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright by Gerd Stolpmann. See LICENSE for details.
- *)
-
-open Pxp_document
-open Pxp_yacc
-open Pxp_dtd
-open Pxp_types
-
-let write_expr_ext_id out extid =
-  match extid with
-      System s ->
-       output_string out ("(Pxp_types.System\"" ^ String.escaped s ^ "\")")
-    | Public(s,t) ->
-       output_string out ("(Pxp_types.Public(\"" ^ String.escaped s ^ 
-                          "\",\"" ^
-                          String.escaped t ^ "\"))")
-    | Anonymous ->
-       output_string out "Pxp_types.Anonymous"
-;;
-
-
-let rec write_expr_content_model out cm =
-  match cm with
-      Unspecified -> output_string out "Pxp_types.Unspecified"
-    | Empty       -> output_string out "Pxp_types.Empty"
-    | Any         -> output_string out "Pxp_types.Any"
-    | Mixed msl   -> output_string out "(Pxp_types.Mixed [";
-                    List.iter
-                      (fun ms ->
-                         write_expr_mixed_spec out ms;
-                         output_string out "; ";
-                      )
-                      msl;
-                    output_string out "])";
-    | Regexp re   -> output_string out "(Pxp_types.Regexp ";
-                    write_expr_regexp_spec out re;
-                    output_string out ")";
-
-and write_expr_mixed_spec out ms =
-  match ms with
-      MPCDATA  -> output_string out "Pxp_types.MPCDATA"
-    | MChild s -> output_string out ("(Pxp_types.MChild \"" ^
-                                    String.escaped s ^ "\")")
-
-and write_expr_regexp_spec out re =
-  match re with
-      Optional re'  -> output_string out "(Pxp_types.Optional ";
-                      write_expr_regexp_spec out re';
-                      output_string out ")";
-    | Repeated re'  -> output_string out "(Pxp_types.Repeated ";
-                      write_expr_regexp_spec out re';
-                      output_string out ")";
-    | Repeated1 re' -> output_string out "(Pxp_types.Repeated1 ";
-                      write_expr_regexp_spec out re';
-                      output_string out ")";
-    | Alt rel       -> output_string out "(Pxp_types.Alt [";
-                      List.iter
-                        (fun re' ->
-                           write_expr_regexp_spec out re';
-                           output_string out "; ";
-                        )
-                        rel;
-                      output_string out "])";
-    | Seq rel       -> output_string out "(Pxp_types.Seq [";
-                      List.iter
-                        (fun re' ->
-                           write_expr_regexp_spec out re';
-                           output_string out "; ";
-                        )
-                        rel;
-                      output_string out "])";
-    | Child s       -> output_string out ("(Pxp_types.Child \"" ^ 
-                                         String.escaped s ^ "\")")
-;;
-
-
-let write_expr_att_type out at =
-  match at with
-      A_cdata       -> output_string out "Pxp_types.A_cdata"
-    | A_id          -> output_string out "Pxp_types.A_id"
-    | A_idref       -> output_string out "Pxp_types.A_idref"
-    | A_idrefs      -> output_string out "Pxp_types.A_idrefs"
-    | A_entity      -> output_string out "Pxp_types.A_entity"
-    | A_entities    -> output_string out "Pxp_types.A_entities"
-    | A_nmtoken     -> output_string out "Pxp_types.A_nmtoken"
-    | A_nmtokens    -> output_string out "Pxp_types.A_nmtokens"
-    | A_notation sl -> output_string out "(Pxp_types.A_notation [";
-                      List.iter
-                        (fun s ->
-                           output_string out ("\"" ^ 
-                                              String.escaped s ^ "\"; "))
-                        sl;
-                      output_string out "])";
-    | A_enum sl     -> output_string out "(Pxp_types.A_enum [";
-                      List.iter
-                        (fun s ->
-                           output_string out ("\"" ^ 
-                                              String.escaped s ^ "\"; "))
-                        sl;
-                      output_string out "])";
-;;
-
-
-let write_expr_att_default out ad =
-  match ad with
-      D_required  -> output_string out "Pxp_types.D_required"
-    | D_implied   -> output_string out "Pxp_types.D_implied"
-    | D_default s -> output_string out ("(Pxp_types.D_default \"" ^
-                                       String.escaped s ^ "\")")
-    | D_fixed s   -> output_string out ("(Pxp_types.D_fixed \"" ^
-                                       String.escaped s ^ "\")")
-;;
-
-
-let write_expr_att_value out av =
-  match av with
-      Value s       -> output_string out ("(Pxp_types.Value \"" ^
-                                         String.escaped s ^ "\")")
-    | Valuelist sl  -> output_string out ("(Pxp_types.Valuelist [");
-                      List.iter
-                        (fun s ->
-                           output_string out ("\"" ^ String.escaped s ^ 
-                                              "\"; ")
-                        )
-                        sl;
-                      output_string out "])";
-    | Implied_value -> output_string out "Pxp_types.Implied_value"
-;;
-
-
-let ocaml_encoding enc =
-  match enc with
-      `Enc_utf8      -> "`Enc_utf8"
-    | `Enc_utf16     -> "`Enc_utf16"
-    | `Enc_utf16_le  -> "`Enc_utf16_le"
-    | `Enc_utf16_be  -> "`Enc_utf16_be"
-    | `Enc_iso88591  -> "`Enc_iso88591"
-;;
-
-
-let write_expr_new_pi out pi =
-  output_string out ("(new Pxp_dtd.proc_instruction \"" ^
-                    String.escaped(pi # target) ^ "\" \"" ^
-                    String.escaped(pi # value) ^ "\" " ^ 
-                    ocaml_encoding(pi # encoding) ^ ")")
-;;
-
-
-let write_expr_node_type out nt =
-  match nt with
-      T_data       -> output_string out "Pxp_document.T_data"
-    | T_element s  -> output_string out ("(Pxp_document.T_element \"" ^
-                                        String.escaped s ^ "\")")
-    | T_super_root -> output_string out "Pxp_document.T_super_root"
-    | T_pinstr s   -> output_string out ("(Pxp_document.T_pinstr \"" ^
-                                        String.escaped s ^ "\")")
-    | T_comment    -> output_string out "Pxp_document.T_comment"
-    | _            -> assert false
-;;
-
-
-let write_local_dtd out (dtd : dtd) =
-  (* Outputs "let mkdtd warner = ... in" to 'out' *)
-  output_string out "let mkdtd warner =\n";
-  output_string out ("let encoding = " ^ ocaml_encoding (dtd # encoding) ^ 
-                     " in\n");
-  output_string out "let dtdobj = new Pxp_dtd.dtd warner encoding in\n";
-  
-  (* Set the ID: *)
-  output_string out "dtdobj # set_id ";
-  begin match dtd # id with
-      None -> ()
-    | Some(External x) -> 
-       output_string out "(Pxp_types.External ";
-       write_expr_ext_id out x;
-       output_string out ");\n"
-    | Some(Derived x) ->  
-       output_string out "(Pxp_types.Derived ";
-       write_expr_ext_id out x;
-       output_string out ");\n"
-    | Some Internal ->   
-       output_string out "Pxp_types.Internal;\n";
-  end;
-
-  (* Set standalone declaration: *)
-  output_string out ("dtdobj # set_standalone_declaration " ^
-                     string_of_bool (dtd # standalone_declaration) ^ ";\n");
-
-  (* Add notations: *)
-  List.iter
-    (fun noname ->
-       let no = dtd # notation noname in
-       output_string out ("let no = new Pxp_dtd.dtd_notation \"" ^
-                         String.escaped noname ^ "\" ");
-       write_expr_ext_id out (no # ext_id);
-       output_string out " encoding in\n";
-       output_string out "dtdobj # add_notation no;\n";
-    )
-    (List.sort Pervasives.compare (dtd # notation_names));
-
-  (* Add unparsed entities: *)
-  List.iter
-    (fun enname ->
-       let en, _ = dtd # gen_entity enname in
-       if en # is_ndata then begin
-        let ext_id = en # ext_id in
-        let notation = en # notation in
-        let encoding = en # encoding in
-        output_string out ("let ndata = new Pxp_entity.ndata_entity \"" ^
-                           String.escaped enname ^ "\" ");
-        write_expr_ext_id out ext_id;
-        output_string out ("\"" ^ String.escaped notation ^ "\" " ^ 
-                           ocaml_encoding encoding ^ " in \n");
-        output_string out "dtdobj # add_gen_entity (ndata :> Pxp_entity.entity) false;\n";
-       end;
-    )
-    (List.sort Pervasives.compare (dtd # gen_entity_names));
-
-
-  (* Add elements: *)
-  List.iter
-    (fun elname ->
-       (* Create the element 'el': *)
-       let el = dtd # element elname in
-       output_string out ("let el = new Pxp_dtd.dtd_element dtdobj \"" ^
-                         String.escaped elname ^ "\" in\n");
-       output_string out "let cm = ";
-       write_expr_content_model out (el # content_model);
-       output_string out " in\n";
-       output_string out "el # set_cm_and_extdecl cm false;\n";
-       (* Add attributes: *)
-       List.iter
-        (fun attname ->
-           let atttype, attdefault = el # attribute attname in
-           output_string out ("el # add_attribute \"" ^ 
-                              String.escaped attname ^ "\" ");
-           write_expr_att_type out atttype;
-           output_string out " ";
-           write_expr_att_default out attdefault;
-           output_string out " false;\n";
-        )
-        (List.sort Pervasives.compare (el # attribute_names));
-
-       (* Allow arbitrary? *)
-       if el # arbitrary_allowed then
-         output_string out "el # allow_arbitrary;\n"
-       else
-         output_string out "el # disallow_arbitrary;\n";
-
-       (* Validate: *)
-       output_string out "el # validate;\n";
- 
-       (* Add the element 'el' to 'dtdobj': *)
-       output_string out "dtdobj # add_element el;\n";
-    )
-    (List.sort Pervasives.compare (dtd # element_names));
-
-  (* Add processing instructions: *)
-  List.iter
-    (fun target ->
-       let pilist = dtd # pinstr target in
-       List.iter
-        (fun pi ->
-           output_string out "let pi = ";
-           write_expr_new_pi out pi;
-           output_string out " in\n";
-           output_string out "dtdobj # add_pinstr pi;\n";
-        )
-        pilist;
-    )
-    (List.sort Pervasives.compare (dtd # pinstr_names));
-
-  (* Set the name of the root element: *)
-  begin match dtd # root with
-      None -> ()
-    | Some rootname ->
-       output_string out ("dtdobj # set_root \"" ^
-                          String.escaped rootname ^ "\";\n")
-  end;
-
-  (* Special options: *)
-  if dtd # arbitrary_allowed then
-    output_string out "dtdobj # allow_arbitrary;\n"
-  else
-    output_string out "dtdobj # disallow_arbitrary;\n";
-
-  (* Return dtdobj: *)
-  output_string out "dtdobj in\n"
-;;
-
-
-let rec write_local_subtree out n =
-  (* Outputs the term generating the subtree *)
-  
-  output_string out "let nt = ";
-  write_expr_node_type out (n # node_type);
-  output_string out " in\n";
-
-  begin match n # node_type with
-      T_data ->
-       output_string out ("let t = Pxp_document.create_data_node spec dtd \"" ^
-                          String.escaped (n # data) ^ "\" in\n")
-    | T_element elname ->
-       let loc, line, col = n # position in
-       output_string out
-         ("let pos = \"" ^ String.escaped loc ^ "\", " ^ 
-          string_of_int line ^ ", " ^ 
-          string_of_int col ^ " in\n");
-       output_string out 
-          ("let t = Pxp_document.create_element_node ~position:pos spec dtd \"" ^
-           String.escaped elname ^ "\" [ ");
-       List.iter
-         (fun (name,value) ->
-            begin match value with
-                Value s -> 
-                  output_string out ("\"" ^ String.escaped name ^ "\", ");
-                  output_string out ("\"" ^ String.escaped s ^ "\"; ")
-              | Valuelist sl ->
-                  output_string out ("\"" ^ String.escaped name ^ "\", ");
-                  output_string out ("\"" ^ 
-                                     String.escaped (String.concat " " sl) ^ 
-                                     "\"; ")
-              | Implied_value ->
-                  ()
-            end
-         )
-         (n # attributes);
-       output_string out " ] in\n";
-    | T_super_root ->
-       let loc, line, col = n # position in
-       output_string out
-         ("let pos = \"" ^ String.escaped loc ^ "\", " ^ 
-          string_of_int line ^ ", " ^ 
-          string_of_int col ^ " in\n");
-       output_string out 
-          ("let t = Pxp_document.create_super_root_node ~position:pos spec dtd in\n")
-    | T_pinstr piname ->
-       let loc, line, col = n # position in
-       output_string out
-         ("let pos = \"" ^ String.escaped loc ^ "\", " ^ 
-          string_of_int line ^ ", " ^ 
-          string_of_int col ^ " in\n");
-       output_string out "let pi = ";
-       write_expr_new_pi out (List.hd (n # pinstr piname));
-       output_string out " in\n";
-       output_string out 
-          ("let t = Pxp_document.create_pinstr_node ~position:pos spec dtd pi in\n")
-    | T_comment ->
-       let loc, line, col = n # position in
-       output_string out
-         ("let pos = \"" ^ String.escaped loc ^ "\", " ^ 
-          string_of_int line ^ ", " ^ 
-          string_of_int col ^ " in\n");
-       output_string out "let comment = ";
-       ( match n # comment with
-             None   -> assert false
-           | Some c -> output_string out ("\"" ^ String.escaped c ^ "\"")
-       );
-       output_string out " in\n";
-       output_string out 
-          ("let t = Pxp_document.create_comment_node ~position:pos spec dtd comment in\n")
-    | _ ->
-       assert false
-  end;
-
-  (* Add processing instructions: *)
-  begin match n # node_type with
-      T_pinstr _ ->
-       ()
-    | _ ->
-       List.iter
-         (fun target ->
-            let pilist = n # pinstr target in
-            List.iter
-              (fun pi ->
-                 output_string out "let pi = ";
-                 write_expr_new_pi out pi;
-                 output_string out " in\n";
-                 output_string out "add_pinstr t pi;\n";
-              )
-              pilist;
-         )
-         (List.sort Pervasives.compare (n # pinstr_names));
-  end;
-       
-  (* Add the sub nodes: *)
-  n # iter_nodes
-    (fun n' ->
-       output_string out "add_node t (\n";
-       write_local_subtree out n';
-       output_string out ");\n";
-    );
-
-  (* Validate: *)
-  output_string out "local_validate t;\n";
-
-  (* Return: *)
-  output_string out "t\n"
-;;
-
-
-let write_local_document out (d : 'ext document) =
-  (* Outputs "let mkdoc warner spec = ... in" *)
-  
-  output_string out "let mkdoc warner spec =\n";
-  output_string out "let doc = new Pxp_document.document warner in\n";
-  output_string out ("doc # init_xml_version \"" ^
-                    String.escaped (d # xml_version) ^ "\";\n");
-  write_local_dtd out (d # dtd);
-  output_string out "let dtd = mkdtd warner in\n";
-  output_string out "let root = ";
-  write_local_subtree out (d # root);
-  output_string out " in\n";
-  output_string out "doc # init_root root;\n";
-
-  (* Add processing instructions: *)
-  List.iter
-    (fun target ->
-       let pilist = d # pinstr target in
-       List.iter
-        (fun pi ->
-           output_string out "let pi = ";
-           write_expr_new_pi out pi;
-           output_string out " in\n";
-           output_string out "doc # add_pinstr pi;\n";
-        )
-        pilist;
-    )
-    (List.sort Pervasives.compare (d # pinstr_names));
-  
-  (* Return the result: *)
-  output_string out "doc in\n"
-;;
-
-
-let write_helpers out =
-  output_string out "let add_node t n = (t : 'ext Pxp_document.node) # add_node (n : 'ext Pxp_document.node) in\n";
-  output_string out "let add_pinstr t pi = (t : 'ext Pxp_document.node) # add_pinstr (pi : Pxp_dtd.proc_instruction) in\n";
-  output_string out "let local_validate t = (t : 'ext Pxp_document.node) # local_validate ()in\n"
-;;
-
-
-let write_document out d =
-  output_string out "let create_document warner spec =\n";
-  write_helpers out;
-  write_local_document out d;
-  output_string out "mkdoc warner spec;;\n"
-;;
-
-
-let write_dtd out dtd =
-  output_string out "let create_dtd warner =\n";
-  write_local_dtd out dtd;
-  output_string out "mkdtd warner;;\n"
-;;
-
-
-let write_subtree out t =
-  output_string out "let create_subtree dtd spec =\n";
-  write_helpers out;
-  write_local_subtree out t;
-  output_string out "mktree dtd spec;;\n"
-;;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.7  2000/08/30 15:48:07  gerd
- *     Minor update.
- *
- * Revision 1.6  2000/08/18 20:16:59  gerd
- *     Updates because of new node types T_comment, T_pinstr, T_super_root.
- *
- * Revision 1.5  2000/07/23 02:16:51  gerd
- *     Changed signature of local_validate.
- *
- * Revision 1.4  2000/07/09 17:59:35  gerd
- *     Updated: The position of element nodes is also written.
- *
- * Revision 1.3  2000/07/09 00:30:00  gerd
- *     Notations are written before they are used.
- *     Unparsed entities are included.
- *     Further changes.
- *
- * Revision 1.2  2000/07/08 22:59:14  gerd
- *     [Merging 0.2.10:] Improved: The resulting code can be compiled
- * faster, and the compiler is less hungry on memory.
- *     Updated because of PXP interface changes.
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- * Old logs from markup_codewriter.ml:
- *
- * Revision 1.1  2000/03/11 22:57:28  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_codewriter.mli b/helm/DEVEL/pxp/pxp/pxp_codewriter.mli
deleted file mode 100644 (file)
index e04bd8a..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_codewriter.mli
+++ /dev/null
@@ -1,94 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright by Gerd Stolpmann. See LICENSE for details.
- *)
-
-open Pxp_document
-open Pxp_yacc
-open Pxp_dtd
-
-val write_document : out_channel -> 'ext document -> unit
-    (* Writes O'Caml code to the out_channel that is a top-level function
-     * creating a fresh document which is equal to the passed document:
-     *
-     * "let create_document warner spec = ...;;"
-     *
-     * If you compile the code and call "create_document warner map"  the 
-     * function creates a document tree which is (almost) equal to the 
-     * passed document.
-     * 
-     * The following properties may not be equal:
-     * - Parsed entities
-     * - Whether a declaration occurs in an external entity or not
-     * 
-     * 'warner': a collect_warnings object
-     * 'spec': a Pxp_document.spec
-     *)
-
-  
-val write_dtd : out_channel -> dtd -> unit
-    (* Writes O'Caml code to the out_channel that is a top-level function
-     * creating a fresh DTD which is equal to the passed DTD:
-     *
-     * "let create_dtd warner = ...;;"
-     *
-     * If you compile the code and call "create_dtd warner"  the 
-     * function creates a DTD object which is (almost) equal to the 
-     * passed object.
-     * 
-     * The following properties may not be equal:
-     * - Parsed entities
-     * - Whether a declaration occurs in an external entity or not
-     * 
-     * 'warner': a collect_warnings object
-     *)
-
-val write_subtree : out_channel -> 'ext node -> unit
-    (* Writes O'Caml code to the out_channel that is a top-level function
-     * creating a fresh node tree which is equal to the passed tree:
-     *
-     * "let create_subtree dtd map = ...;;"
-     *
-     * If you compile the code and call "create_subtree dtd map"  the 
-     * function creates a DTD object which is equal to the passed object.
-     * 
-     * 'dtd': a DTD object
-     * 'map': a domspec
-     *)
-
-
-  
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/07/09 00:30:14  gerd
- *     Updated.
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- * Old logs from markup_codewriter.mli:
- *
- * Revision 1.1  2000/03/11 22:57:28  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_dfa.ml b/helm/DEVEL/pxp/pxp/pxp_dfa.ml
deleted file mode 100644 (file)
index b7baeb4..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_dfa.ml
+++ /dev/null
@@ -1,271 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-module StringOrd = struct
-  type t = string
-  let compare = (compare : string -> string -> int)
-end;;
-
-module StringMap = Map.Make(StringOrd);;
-  (* 'a StringMap.t: the type of maps (dictionaries) from string to 'a *)
-
-module Graph = struct
-  type vertex =
-      { mutable edges_out : (string * vertex) list;
-       mutable edges_out_map : vertex StringMap.t;
-       mutable edges_in : (vertex * string) list;
-       mutable graph : graph;
-       mutable id : int;
-      }
-  and graph =
-      { mutable vertexes : vertex list;
-       mutable mid : int;   (* maximum id + 1 *)
-      }
-
-  exception Edge_not_unique
-
-  let create () =
-    { vertexes = [];
-      mid = 0;
-    }
-
-  let new_vertex g =
-    let v =
-      { edges_out = [];
-       edges_out_map = StringMap.empty;
-       edges_in = [];
-       graph = g;
-       id = g.mid;
-      } in
-    g.vertexes <- v :: g.vertexes;
-    g.mid <- g.mid + 1;
-    v
-
-  let new_edge v_from e v_to =
-    if v_from.graph != v_to.graph then
-      invalid_arg "Pxp_dfa.Graph.new_edge";
-    try 
-      let v = StringMap.find e v_from.edges_out_map in
-      if v != v_to then
-       raise Edge_not_unique;
-    with
-       Not_found ->
-         v_from.edges_out     <- (e, v_to) :: v_from.edges_out;
-         v_from.edges_out_map <- StringMap.add e v_to v_from.edges_out_map;
-         v_to.edges_in        <- (v_from, e) :: v_to.edges_in;
-         ()
-
-  let graph_of_vertex v = v.graph
-
-  let union g1 g2 =
-    List.iter
-      (fun v ->
-        v.graph <- g1;
-        v.id <- v.id + g1.mid;
-      )
-      g2.vertexes;
-    g1.vertexes <- g2.vertexes @ g1.vertexes;
-    g1.mid <- g1.mid + g2.mid;
-    g2.vertexes <- [];
-    g2.mid <- 0
-
-  let outgoing_edges v =
-    v.edges_out
-
-  let ingoing_edges v =
-    v.edges_in
-
-  let follow_edge v e =
-    StringMap.find e v.edges_out_map  (* or raise Not_found *)
-end
-;;
-
-
-module VertexOrd = struct
-  type t = Graph.vertex
-  let compare v1 v2 =
-    if v1.Graph.graph != v2.Graph.graph then
-      invalid_arg "Pxp_dfa.VertexOrd.compare";
-    compare v1.Graph.id v2.Graph.id
-end
-;;
-
-module VertexSet = Set.Make(VertexOrd);;
-
-
-type dfa_definition =
-    { dfa_graph : Graph.graph;
-      dfa_start : Graph.vertex;
-      dfa_stops : VertexSet.t;
-      dfa_null  : bool;
-    }
-;;
-
-(**********************************************************************)
-
-(* Now that we have all the auxiliary data types, it is time for the
- * algorithm that transforms regexps to DFAs.
- *)
-
-open Pxp_types
-
-let dfa_of_regexp_content_model re =
-  let rec get_dfa re =
-    match re with
-       Child e ->
-         let g = Graph.create() in
-         let v1 = Graph.new_vertex g in
-         let v2 = Graph.new_vertex g in
-         Graph.new_edge v1 e v2;
-         { dfa_graph = g;
-           dfa_start = v1;
-           dfa_stops = VertexSet.singleton v2;
-           dfa_null = false;
-         }
-         
-      | Seq [] ->
-         invalid_arg "Pxp_dfa.dfa_of_regexp_content_model"
-      | Seq [re'] ->
-         get_dfa re'
-      | Seq (re1 :: seq2) ->
-         let dfa1 = get_dfa re1 in
-         let dfa2 = get_dfa (Seq seq2) in
-         (* Merge the two graphs. The result is in dfa1.dfa_graph: *)
-         Graph.union dfa1.dfa_graph dfa2.dfa_graph;
-         (* Concatenation I: Add additional edges to the graph such
-          * that if w1 matches dfa1, and w2 matches dfa2, and w2 is not
-          * empty, w1w2 will match the merged DFAs.
-          *)
-         List.iter
-           (fun (e,v') ->
-              VertexSet.iter
-                (fun v ->
-                   Graph.new_edge v e v')
-                dfa1.dfa_stops
-           )
-           (Graph.outgoing_edges dfa2.dfa_start);
-         (* Concatenation II: If the emtpy string matches dfa2, the stop
-          * nodes of dfa1 remain stop nodes.
-          *)
-         let stops =
-           if dfa2.dfa_null then
-             VertexSet.union dfa1.dfa_stops dfa2.dfa_stops
-           else
-             dfa2.dfa_stops
-         in
-         (* The resulting DFA: *)
-         { dfa_graph = dfa1.dfa_graph;
-           dfa_start = dfa1.dfa_start;
-           dfa_stops = stops;
-           dfa_null  = dfa1.dfa_null && dfa2.dfa_null;
-         }
-
-      | Alt [] ->
-         invalid_arg "Pxp_dfa.dfa_of_regexp_content_model"
-      | Alt [re'] ->
-         get_dfa re'
-      | Alt alt ->
-         let dfa_alt = List.map get_dfa alt in
-         (* Merge the graphs. The result is in g: *)
-         let g = (List.hd dfa_alt).dfa_graph in
-         List.iter
-           (fun dfa ->
-              Graph.union g dfa.dfa_graph
-           )
-           (List.tl dfa_alt);
-         (* Get the new start node: *)
-         let start = Graph.new_vertex g in
-         (* Add the new edges starting at 'start': *)
-         List.iter
-           (fun dfa ->
-              List.iter
-                (fun (e, v) ->
-                   Graph.new_edge start e v)
-                (Graph.outgoing_edges dfa.dfa_start)
-           )
-           dfa_alt;
-         (* If one of the old start nodes was a stop node, the new start
-          * node will be a stop node, too.
-          *)
-         let null = List.exists (fun dfa -> dfa.dfa_null) dfa_alt in
-         let stops =
-           List.fold_left
-             (fun s dfa -> VertexSet.union s dfa.dfa_stops)
-             VertexSet.empty
-             dfa_alt in
-         let stops' =
-           if null then
-             VertexSet.union stops (VertexSet.singleton start)
-           else
-             stops in
-         (* The resulting DFA: *)
-         { dfa_graph = g;
-           dfa_start = start;
-           dfa_stops = stops';
-           dfa_null  = null;
-         }
-
-      | Optional re' ->
-         let dfa' = get_dfa re' in
-         if dfa'.dfa_null then
-           (* simple case *)
-           dfa'
-         else begin
-           (* Optimization possible: case ingoing_edges dfa_start = [] *)
-           let start = Graph.new_vertex dfa'.dfa_graph in
-           List.iter
-             (fun (e, v) ->
-                Graph.new_edge start e v)
-             (Graph.outgoing_edges dfa'.dfa_start);
-           
-           (* The resulting DFA: *)
-           { dfa_graph = dfa'.dfa_graph;
-             dfa_start = start;
-             dfa_stops = VertexSet.union dfa'.dfa_stops 
-                                         (VertexSet.singleton start);
-             dfa_null  = true;
-           }
-         end
-
-      | Repeated1 re' ->
-         let dfa' = get_dfa re' in
-         List.iter
-           (fun (e, v') ->
-              VertexSet.iter
-                (fun v ->
-                   Graph.new_edge v e v')
-                dfa'.dfa_stops
-           )
-           (Graph.outgoing_edges dfa'.dfa_start);
-
-           (* The resulting DFA: *)
-           { dfa_graph = dfa'.dfa_graph;
-             dfa_start = dfa'.dfa_start;
-             dfa_stops = dfa'.dfa_stops;
-             dfa_null  = dfa'.dfa_null;
-           }
-
-      | Repeated re' ->
-         get_dfa (Optional (Repeated1 re'))
-
-  in
-  try
-    get_dfa re
-  with
-      Graph.Edge_not_unique -> raise Not_found
-;;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/07/23 02:16:08  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_dfa.mli b/helm/DEVEL/pxp/pxp/pxp_dfa.mli
deleted file mode 100644 (file)
index 515eace..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_dfa.mli
+++ /dev/null
@@ -1,77 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-module Graph : sig
-  type graph
-  type vertex
-
-  (* A directed graph whose edges are marked with strings (= element types)
-   * and with the constraint that for a given vertex and a given element
-   * type the edge must be unique.
-   *)
-
-  exception Edge_not_unique
-
-  val create : unit -> graph
-      (* Creates an empty graph *)
-
-  val new_vertex : graph -> vertex
-      (* Adds a new vertex to the graph, and returns the vertex *)
-
-  val new_edge : vertex -> string -> vertex -> unit
-      (* new_edge v_from etype v_to:
-       * Adds a new edge from vertex v_from to vertex v_to, marked with
-       * etype.
-       * Raises Edge_not_unique if there is already an edge etype starting
-       * at v_from to a different vertex than v_to.
-       *)
-
-  val graph_of_vertex : vertex -> graph
-      (* Returns the graph the passed vertex is contained in. *)
-
-  val union : graph -> graph -> unit
-      (* union g1 g2:
-       * Moves the vertexes and edged found in g2 to g1.
-       * After that, g2 is empty again.
-       *)
-
-  val outgoing_edges : vertex -> (string * vertex) list
-      (* Returns the list of outgoing edges starting in the passed vertex *)
-
-  val follow_edge : vertex -> string -> vertex
-      (* Follows the edge starting in the passed vertex which is marked
-       * with the passed element type.
-       * Raises Not_found if there is no such edge.
-       *)
-
-  val ingoing_edges : vertex -> (vertex * string) list
-      (* Returns the list of ingoing edges ending in the passed vertex *)
-end
-
-module VertexSet : Set.S with type elt = Graph.vertex
-
-
-type dfa_definition =
-    { dfa_graph : Graph.graph;
-      dfa_start : Graph.vertex;   (* Where the automaton starts *)
-      dfa_stops : VertexSet.t;    (* Where the automaton may stop *)
-      dfa_null  : bool;           (* Whether dfa_start member of dfa_stops *)
-    }
-
-val dfa_of_regexp_content_model : Pxp_types.regexp_spec -> dfa_definition
-  (* Computes the DFA or raises Not_found if it does not exist *)
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/07/23 02:16:08  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_document.ml b/helm/DEVEL/pxp/pxp/pxp_document.ml
deleted file mode 100644 (file)
index 1f1d4cf..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_document.ml
+++ /dev/null
@@ -1,1985 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright by Gerd Stolpmann. See LICENSE for details.
- *)
-
-open Pxp_types
-open Pxp_lexer_types
-open Pxp_dtd
-open Pxp_aux
-open Pxp_dfa
-
-
-exception Skip
-
-type node_type =
-    T_element of string
-  | T_data
-  | T_super_root
-  | T_pinstr of string
-  | T_comment
-  | T_none
-  | T_attribute of string
-  | T_namespace of string
-;;
-
-
-class type ['node] extension =
-  object ('self)
-    method clone : 'self
-    method node : 'node
-    method set_node : 'node -> unit
-  end
-;;
-
-
-class type [ 'ext ] node =
-  object ('self)
-    constraint 'ext = 'ext node #extension
-    method extension : 'ext
-    method delete : unit
-    method parent : 'ext node
-    method root : 'ext node
-    method orphaned_clone : 'self
-    method orphaned_flat_clone : 'self
-    method add_node : ?force:bool -> 'ext node -> unit
-    method add_pinstr : proc_instruction -> unit
-    method pinstr : string -> proc_instruction list
-    method pinstr_names : string list
-    method node_position : int
-    method node_path : int list
-    method sub_nodes : 'ext node list
-    method iter_nodes : ('ext node -> unit) -> unit
-    method iter_nodes_sibl :
-      ('ext node option -> 'ext node -> 'ext node option -> unit) -> unit
-    method nth_node : int -> 'ext node
-    method previous_node : 'ext node
-    method next_node : 'ext node
-    method set_nodes : 'ext node list -> unit
-    method data : string
-    method node_type : node_type
-    method position : (string * int * int)
-    method attribute : string -> att_value
-    method attribute_names : string list
-    method attribute_type : string -> att_type
-    method attributes : (string * Pxp_types.att_value) list
-    method required_string_attribute : string -> string
-    method required_list_attribute : string -> string list
-    method optional_string_attribute : string -> string option
-    method optional_list_attribute : string -> string list
-    method id_attribute_name : string
-    method id_attribute_value : string
-    method idref_attribute_names : string list
-    method quick_set_attributes : (string * Pxp_types.att_value) list -> unit
-    method attributes_as_nodes : 'ext node list
-    method set_comment : string option -> unit
-    method comment : string option
-    method dtd : dtd
-    method encoding : rep_encoding
-    method create_element :
-                   ?position:(string * int * int) ->
-                   dtd -> node_type -> (string * string) list -> 'ext node
-    method create_data : dtd -> string -> 'ext node
-    method local_validate : ?use_dfa:bool -> unit -> unit
-    method keep_always_whitespace_mode : unit
-    method write : output_stream -> encoding -> unit
-    method write_compact_as_latin1 : output_stream -> unit
-    method internal_adopt : 'ext node option -> int -> unit
-    method internal_set_pos : int -> unit
-    method internal_delete : 'ext node -> unit
-    method internal_init : (string * int * int) ->
-                           dtd -> string -> (string * string) list -> unit
-    method internal_init_other : (string * int * int) ->
-                                 dtd -> node_type -> unit
-  end
-;;
-
-type 'ext spec_table =
-    { mapping : (string, 'ext node) Hashtbl.t;
-      data_node : 'ext node;
-      default_element : 'ext node;
-      super_root_node : 'ext node option;
-      pinstr_mapping : (string, 'ext node) Hashtbl.t;
-      default_pinstr_node : 'ext node option;
-      comment_node : 'ext node option;
-    }
-;;
-
-type 'ext spec =
-  Spec_table of 'ext spec_table
-;;
-
-
-let make_spec_from_mapping
-      ?super_root_exemplar 
-      ?comment_exemplar
-      ?default_pinstr_exemplar 
-      ?pinstr_mapping
-      ~data_exemplar ~default_element_exemplar ~element_mapping () =
-  Spec_table
-    { mapping = element_mapping;
-      data_node = data_exemplar;
-      default_element = default_element_exemplar;
-      super_root_node = super_root_exemplar;
-      comment_node = comment_exemplar;
-      default_pinstr_node = default_pinstr_exemplar;
-      pinstr_mapping =
-       (match pinstr_mapping with
-            None -> Hashtbl.create 1
-          | Some m -> m
-       )
-    }
-;;
-
-
-let make_spec_from_alist
-      ?super_root_exemplar 
-      ?comment_exemplar
-      ?default_pinstr_exemplar 
-      ?(pinstr_alist = [])
-      ~data_exemplar ~default_element_exemplar ~element_alist () =
-  let m = List.length  pinstr_alist in
-  let pinstr_mapping = Hashtbl.create m in
-  List.iter
-    (fun (name,ex) -> Hashtbl.add pinstr_mapping name ex)
-    pinstr_alist;
-  let n = List.length  element_alist in
-  let element_mapping = Hashtbl.create m in
-  List.iter
-    (fun (name,ex) -> Hashtbl.add element_mapping name ex)
-    element_alist;
-  make_spec_from_mapping
-    ?super_root_exemplar:      super_root_exemplar
-    ?comment_exemplar:         comment_exemplar
-    ?default_pinstr_exemplar:  default_pinstr_exemplar
-    ~pinstr_mapping:           pinstr_mapping
-    ~data_exemplar:            data_exemplar
-    ~default_element_exemplar: default_element_exemplar
-    ~element_mapping:          element_mapping
-    ()
-;;
-
-(**********************************************************************)
-
-exception Found;;
-
-let validate_content ?(use_dfa=None) model (el : 'a node) =
-  (* checks that the nodes of 'el' matches the DTD. Returns 'true'
-   * on success and 'false' on failure.
-   *)
-
-  let rec is_empty cl =
-    (* Whether the node list counts as empty or not. *)
-    match cl with
-       [] -> true
-      | n :: cl' ->
-         ( match n # node_type with
-             | T_element _     -> false
-             | _               -> is_empty cl'    (* ignore other nodes *)
-         )
-  in
-
-  let rec run_regexp cl ml =
-    (* Validates regexp content models ml against instances cl. This
-     * function works for deterministic and non-determninistic models.
-     * The implementation uses backtracking and may sometimes be slow.
-     *
-     * cl:   the list of children that will have to be matched
-     * ml:   the list of regexps that will have to match (to be read as
-     *       sequence)
-     * returns () meaning that no match has been found, or raises Found.
-     *)
-    match ml with
-       [] ->
-         if cl = [] then raise Found;      (* Frequent case *)
-         if is_empty cl then raise Found;  (* General condition *)
-      | Seq seq :: ml' ->
-         assert (seq <> []);     (* necessary to ensure termination *)
-         run_regexp cl (seq @ ml')
-      | Alt alts :: ml' ->
-         let rec find alts =
-           match alts with
-               [] -> ()
-             | alt :: alts' ->
-                 run_regexp cl (alt :: ml');
-                 find alts'
-         in
-         assert (alts <> []);      (* Alt [] matches nothing *)
-         find alts
-      | Repeated re :: ml' ->
-         let rec norm re =     (* to avoid infinite loops *)
-           match re with
-               Repeated subre  -> norm subre    (* necessary *)
-             | Optional subre  -> norm subre    (* necessary *)
-             | Repeated1 subre -> norm subre    (* an optimization *)
-             | _               -> re
-         in
-         let re' = norm re in
-         run_regexp cl (re' :: Repeated re' :: ml');
-         run_regexp cl ml'
-      | Repeated1 re :: ml' ->
-         run_regexp cl (re :: Repeated re :: ml')
-      | Optional re :: ml' ->
-         run_regexp cl (re :: ml');
-         run_regexp cl ml';
-      | Child chld :: ml' ->
-         match cl with
-             [] ->
-               ()
-           | sub_el :: cl' ->
-               begin match sub_el # node_type with
-                   T_data ->                       (* Ignore data *)
-                     run_regexp cl' ml
-                     (* Note: It can happen that we find a data node here
-                      * if the 'keep_always_whitespace' mode is turned on.
-                      *)
-                 | T_element nt ->
-                     if nt = chld then run_regexp cl' ml'
-                 | _ ->                            (* Ignore this element *)
-                     run_regexp cl' ml
-               end
-  in
-
-  let run_dfa cl dfa =
-    (* Validates regexp content models ml against instances cl. This
-     * function works ONLY for deterministic models.
-     * The implementation executes the automaton.
-     *)
-    let current_vertex = ref dfa.dfa_start in
-    let rec next_step cl =
-      match cl with
-         el :: cl' ->
-           begin match el # node_type with
-               T_data ->                       (* Ignore data *)
-                 next_step cl'
-                   (* Note: It can happen that we find a data node here
-                    * if the 'keep_always_whitespace' mode is turned on.
-                    *)
-             | T_element nt ->
-                 begin try
-                   current_vertex := Graph.follow_edge !current_vertex nt;
-                   next_step cl'
-                 with
-                     Not_found -> false
-                 end
-             | _ ->                         (* Ignore this node *)
-                 next_step cl'
-           end
-       | [] ->
-           VertexSet.mem !current_vertex dfa.dfa_stops
-    in
-    next_step cl
-  in   
-
-  match model with
-      Unspecified -> true
-    | Any -> true
-    | Empty ->
-       let cl = el # sub_nodes in
-       is_empty cl 
-    | Mixed (MPCDATA :: mix) ->
-       let mix' = List.map (function
-                                MPCDATA -> assert false
-                              | MChild x -> x)
-                           mix in
-       begin try
-         el # iter_nodes
-           (fun sub_el ->
-              let nt = sub_el # node_type in
-              match nt with
-              | T_element name ->
-                  if not (List.mem name mix') then raise Not_found;
-              | _ -> ()
-           );
-         true
-       with
-           Not_found ->
-             false
-       end
-    | Regexp re ->
-       let cl = el # sub_nodes in
-       begin match use_dfa with
-           None ->
-             (* General backtracking implementation: *)
-             begin try
-               run_regexp cl [re];
-               false
-             with
-                 Found -> true
-             end
-         | Some dfa ->
-             run_dfa cl dfa
-       end
-
-    | _ -> assert false
-;;
-
-(**********************************************************************)
-
-
-class virtual ['ext] node_impl an_ext =
-  object (self)
-    constraint 'ext = 'ext node #extension
-
-    val mutable parent = (None : 'ext node option)
-    val mutable node_position = -1
-    val mutable dtd = (None : dtd option)
-    val mutable extension = an_ext
-
-    initializer
-      extension # set_node (self : 'ext #node  :> 'ext node)
-
-
-    method extension = (extension : 'ext)
-
-    method delete =
-      match parent with
-         None -> ()
-       | Some p -> p # internal_delete (self : 'ext #node :> 'ext node)
-
-    method parent =
-      match parent with
-         None -> raise Not_found
-       | Some p -> p
-
-    method root =
-      match parent with
-         None -> (self : 'ext #node :> 'ext node)
-       | Some p -> p # root
-
-    method node_position = 
-      if node_position >= 0 then node_position else
-       raise Not_found
-
-    method node_path =
-      let rec collect n path =
-       try
-         let p = n # node_position in
-         collect (n # parent) (p :: path)
-       with
-           Not_found -> 
-             (* n is the root *)
-             path
-      in
-      collect (self : 'ext #node :> 'ext node) []
-
-    method previous_node =
-      self # parent # nth_node (self # node_position - 1)
-
-    method next_node =
-      self # parent # nth_node (self # node_position + 1)
-
-    method orphaned_clone =
-      let x = extension # clone in
-      let n =
-       {< parent = None;
-          node_position = -1;
-          extension = x;
-       >} in
-      x # set_node (n : 'ext #node  :> 'ext node);
-      n
-
-    method orphaned_flat_clone =
-      let x = extension # clone in
-      let n =
-       {< parent = None;
-          node_position = -1;
-          extension = x;
-       >} in
-      x # set_node (n : 'ext #node  :> 'ext node);
-      n
-
-    method dtd =
-      match dtd with
-         None -> failwith "Pxp_document.node_impl#dtd: No DTD available"
-       | Some d -> d
-
-    method encoding =
-      match dtd with
-         None -> failwith "Pxp_document.node_impl#encoding: No DTD available"
-       | Some d -> d # encoding
-
-    method internal_adopt (new_parent : 'ext node option) pos =
-      begin match parent with
-         None -> ()
-       | Some p ->
-           if new_parent <> None then
-             failwith "Pxp_document.node_impl#internal_adopt: Tried to add a bound element"
-      end;
-      parent <- new_parent;
-      node_position <- pos
-
-    method internal_set_pos pos =
-      node_position <- pos
-
-    method virtual add_node : ?force:bool -> 'ext node -> unit
-    method virtual add_pinstr : proc_instruction -> unit
-    method virtual sub_nodes : 'ext node list
-    method virtual pinstr : string -> proc_instruction list
-    method virtual pinstr_names : string list
-    method virtual iter_nodes : ('ext node -> unit) -> unit
-    method virtual iter_nodes_sibl : ('ext node option -> 'ext node -> 'ext node option -> unit) -> unit
-    method virtual nth_node : int -> 'ext node
-    method virtual set_nodes : 'ext node list -> unit
-    method virtual data : string
-    method virtual node_type : node_type
-    method virtual position : (string * int * int)
-    method virtual attribute : string -> att_value
-    method virtual attribute_names : string list
-    method virtual attribute_type : string -> att_type
-    method virtual attributes : (string * Pxp_types.att_value) list
-    method virtual required_string_attribute : string -> string
-    method virtual required_list_attribute : string -> string list
-    method virtual optional_string_attribute : string -> string option
-    method virtual optional_list_attribute : string -> string list
-    method virtual quick_set_attributes : (string * Pxp_types.att_value) list -> unit
-    method virtual attributes_as_nodes : 'ext node list
-    method virtual set_comment : string option -> unit
-    method virtual comment : string option
-    method virtual create_element : 
-                   ?position:(string * int * int) ->
-                   dtd -> node_type -> (string * string) list -> 'ext node
-    method virtual create_data : dtd -> string -> 'ext node
-    method virtual keep_always_whitespace_mode : unit
-    method virtual write : output_stream -> encoding -> unit
-    method virtual write_compact_as_latin1 : output_stream -> unit
-    method virtual local_validate : ?use_dfa:bool -> unit -> unit
-    method virtual internal_delete : 'ext node -> unit
-    method virtual internal_init : (string * int * int) ->
-                                dtd -> string -> (string * string) list -> unit
-    method virtual internal_init_other : (string * int * int) ->
-                                         dtd -> node_type -> unit
-  end
-;;
-
-
-(**********************************************************************)
-
-let no_position = ("?", 0, 0) ;;
-
-
-class ['ext] data_impl an_ext : ['ext] node =
-  object (self)
-    inherit ['ext] node_impl an_ext
-    val mutable content = ("" : string)
-
-    method position = no_position
-
-    method add_node ?(force=false) _ =
-      failwith "method 'add_node' not applicable to data node"
-    method add_pinstr _ =
-      failwith "method 'add_pinstr' not applicable to data node"
-    method pinstr _ = []
-    method pinstr_names = []
-    method sub_nodes = []
-    method iter_nodes _ = ()
-    method iter_nodes_sibl _ = ()
-    method nth_node _ = raise Not_found
-    method set_nodes _ =
-      failwith "method 'set_nodes' not applicable to data node"
-    method data = content
-    method node_type = T_data
-    method attribute _ = raise Not_found
-    method attribute_names = []
-    method attribute_type _ = raise Not_found
-    method attributes = []
-    method required_string_attribute _ =
-      failwith "Markup.document, method required_string_attribute: not found"
-    method required_list_attribute _ =
-      failwith "Markup.document, method required_list_attribute: not found"
-    method optional_string_attribute _ = None
-    method optional_list_attribute _ = []
-    method id_attribute_name = raise Not_found
-    method id_attribute_value = raise Not_found
-    method idref_attribute_names = []
-    method quick_set_attributes _ =
-      failwith "method 'quick_set_attributes' not applicable to data node"
-    method attributes_as_nodes = []
-    method comment = None
-    method set_comment c =
-      match c with
-         None -> ()
-       | Some _ -> failwith "method 'set_comment' not applicable to data node"
-    method create_element ?position _ _ _ =
-      failwith "method 'create_element' not applicable to data node"
-    method create_data new_dtd new_str =
-      let x = extension # clone in
-      let n =
-      ( {< parent = None;
-          extension = x;
-          dtd = Some new_dtd;
-          content = new_str;
-       >}
-       : 'ext #node :> 'ext node) in
-      x # set_node n;
-      n
-    method local_validate ?use_dfa () = ()
-    method keep_always_whitespace_mode = ()
-
-
-    method write os enc =
-      let encoding = self # encoding in
-      write_data_string ~from_enc:encoding ~to_enc:enc os content
-
-
-    method write_compact_as_latin1 os =
-      self # write os `Enc_iso88591
-       
-    method internal_delete _ =
-      assert false
-    method internal_init _ _ _ _ =
-      assert false
-    method internal_init_other _ _ _ =
-      assert false
-  end
-;;
-
-
-(**********************************************************************)
-
-class ['ext] attribute_impl ~element ~name value dtd =
-  (object (self)
-     val mutable parent = (None : 'ext node option)
-     val mutable dtd = dtd
-     val mutable element_name = element
-     val mutable att_name = name
-     val mutable att_value = value
-                              
-     method parent = 
-       match parent with
-          None -> raise Not_found
-        | Some p -> p
-            
-     method root =
-       match parent with
-          None -> (self : 'ext #node :> 'ext node)
-        | Some p -> p # root
-            
-     method internal_adopt new_parent _ =
-       parent <- new_parent
-
-     method orphaned_clone =
-       {< parent = None >}
-       
-     method orphaned_flat_clone =
-       {< parent = None >}
-       
-     method dtd = dtd
-                   
-     method encoding = dtd # encoding
-                        
-     method node_type = T_attribute att_name
-                         
-     method attribute n =
-       if n = att_name then att_value else raise Not_found
-        
-     method attribute_names = [ att_name ]
-                               
-     method attribute_type n =
-       let eltype = dtd # element element_name in
-       ( try
-          let atype, adefault = eltype # attribute n in
-          atype
-        with
-            Undeclared ->
-              A_cdata
-       )
-                      
-     method attributes = [ att_name, att_value ]
-                          
-     method required_string_attribute n =
-       if n = att_name then
-        match att_value with
-            Value s -> s
-          | Valuelist l -> String.concat " " l
-          | Implied_value -> raise Not_found
-       else
-        failwith "Pxp_document.attribute_impl#required_string_attribute: not found"
-
-        
-     method required_list_attribute n =
-       if n = att_name then
-        match att_value with
-            Value s -> [ s ]
-          | Valuelist l -> l
-          | Implied_value -> raise Not_found
-       else
-        failwith "Pxp_document.attribute_impl#required_list_attribute: not found"
-        
-     method optional_string_attribute n =
-       if n = att_name then
-        match att_value with
-            Value s -> Some s
-          | Valuelist l -> Some(String.concat " " l)
-          | Implied_value -> None
-       else
-        None
-        
-     method optional_list_attribute n =
-       if n = att_name then
-        match att_value with
-            Value s -> [ s ]
-          | Valuelist l -> l
-          | Implied_value -> []
-       else
-        []
-        
-    (* Senseless methods: *)
-        
-     method sub_nodes = []
-     method pinstr _ = []
-     method pinstr_names = []
-     method iter_nodes _ = ()
-     method iter_nodes_sibl _ = ()
-     method nth_node _ = raise Not_found
-     method data = ""
-     method position = ("?",0,0)
-     method comment = None
-     method local_validate ?use_dfa () = ()
-                                          
-    (* Non-applicable methods: *)
-                                          
-     method extension =
-       failwith "Pxp_document.attribute_impl#extension: not applicable"
-     method delete =
-       failwith "Pxp_document.attribute_impl#delete: not applicable"
-     method node_position =
-       failwith "Pxp_document.attribute_impl#node_position: not applicable"
-     method node_path =
-       failwith "Pxp_document.attribute_impl#node_path: not applicable"
-     method previous_node = 
-       failwith "Pxp_document.attribute_impl#previous_node: not applicable"
-     method next_node = 
-       failwith "Pxp_document.attribute_impl#next_node: not applicable"
-     method internal_set_pos _ =
-       failwith "Pxp_document.attribute_impl#internal_set_pos: not applicable"
-     method internal_delete _ =
-       failwith "Pxp_document.attribute_impl#internal_delete: not applicable"
-     method internal_init _ _ _ _ =
-       failwith "Pxp_document.attribute_impl#internal_init: not applicable"
-     method internal_init_other _ _ _ =
-       failwith "Pxp_document.attribute_impl#internal_init_other: not applicable"
-     method add_node ?force _ =
-       failwith "Pxp_document.attribute_impl#add_node: not applicable"
-     method add_pinstr _ =
-       failwith "Pxp_document.attribute_impl#add_pinstr: not applicable"
-     method set_nodes _ =
-       failwith "Pxp_document.attribute_impl#set_nodes: not applicable"
-     method quick_set_attributes _ =
-       failwith "Pxp_document.attribute_impl#quick_set_attributes: not applicable"
-     method attributes_as_nodes =
-       failwith "Pxp_document.attribute_impl#dattributes_as_nodes: not applicable"
-     method set_comment c =
-       if c <> None then
-        failwith "Pxp_document.attribute_impl#set_comment: not applicable"
-     method create_element ?position _ _ _ =
-       failwith "Pxp_document.attribute_impl#create_element: not applicable"
-     method create_data _ _ =
-       failwith "Pxp_document.attribute_impl#create_data: not applicable"
-     method keep_always_whitespace_mode =
-       failwith "Pxp_document.attribute_impl#keep_always_whitespace_mode: not applicable"
-     method write _ _ =
-       failwith "Pxp_document.attribute_impl#write: not applicable"
-     method write_compact_as_latin1 _ =
-       failwith "Pxp_document.attribute_impl#write_compact_as_latin1: not applicable"
-     method id_attribute_name =
-       failwith "Pxp_document.attribute_impl#id_attribute_name: not applicable"
-     method id_attribute_value =
-       failwith "Pxp_document.attribute_impl#id_attribute_value: not applicable"
-     method idref_attribute_names =
-       failwith "Pxp_document.attribute_impl#idref_attribute_names: not applicable"
-   end
-     : ['ext] node)
-;;
-
-(**********************************************************************)
-
-class ['ext] element_impl an_ext : ['ext] node =
-    object (self:'self)
-      inherit ['ext] node_impl an_ext as super
-
-      val mutable content_model = Any
-      val mutable content_dfa = lazy None
-      val mutable ext_decl = false
-      val mutable ntype = T_none
-      val mutable id_att_name = None
-      val mutable idref_att_names = []
-      val mutable rev_nodes = ([] : 'c list)
-      val mutable nodes = (None : 'c list option)
-      val mutable array = (None : 'c array option)
-      val mutable size = 0
-      val mutable attributes = []
-      val mutable att_nodes = []
-      val mutable comment = None
-      val pinstr = lazy (Hashtbl.create 10 : (string,proc_instruction) Hashtbl.t)
-      val mutable keep_always_whitespace = false
-
-      val mutable position = no_position
-
-      method comment = comment
-
-      method set_comment c =
-       if ntype = T_comment then
-         comment <- c
-       else
-         failwith "set_comment: not applicable to node types other than T_comment"
-
-      method attributes = attributes
-
-      method position = position
-
-      method private error_name =
-       match ntype with
-           T_element n -> "Element `" ^ n ^ "'"
-         | T_super_root -> "Super root"
-         | T_pinstr n -> "Wrapper element for processing instruction `" ^ n ^ 
-             "'"
-         | T_comment -> "Wrapper element for comment"
-         | T_none -> "NO element"
-         | T_attribute _ -> assert false
-         | T_namespace _ -> assert false
-         | T_data -> assert false
-
-      method add_node ?(force = false) n =
-       let only_whitespace s =
-         (* Checks that the string "s" contains only whitespace. On failure,
-          * Validation_error is raised.
-          *)
-         let l = String.length s in
-         if l < 100 then begin
-           for i=0 to l - 1 do  (* for loop is faster for small 'l' *)
-             match s.[i] with
-                 ('\009'|'\010'|'\013'|'\032') -> ()
-               | _ ->
-                   raise(Validation_error(self # error_name ^ 
-                                          " must not have character contents"));
-           done
-         end
-         else begin
-           let lexbuf = Lexing.from_string s in
-           let lexerset = Pxp_lexers.get_lexer_set (self # dtd # encoding) in
-           let t = lexerset.scan_name_string lexbuf in
-           if t <> Ignore or
-             (lexerset.scan_name_string lexbuf <> Eof)
-           then
-             raise(Validation_error(self # error_name ^
-                                    " must not have character contents"));
-           ()
-         end
-       in
-       (* general DTD check: *)
-       begin match dtd with
-           None -> ()
-         | Some d -> if n # dtd != d then
-             failwith "Pxp_document.element_impl # add_node: the sub node has a different DTD";
-       end;
-       (* specific checks: *)
-       try
-         begin match n # node_type with
-             T_data ->
-               begin match content_model with
-                   Any         -> ()
-                 | Unspecified -> ()
-                 | Empty       -> 
-                     if not force then begin
-                       if n # data <> "" then
-                         raise(Validation_error(self # error_name ^ 
-                                                " must be empty"));
-                       raise Skip
-                     end
-                 | Mixed _     -> ()
-                 | Regexp _    -> 
-                     if not force then begin
-                       only_whitespace (n # data);
-                       (* TODO: following check faster *)
-                       if n # dtd # standalone_declaration &&
-                         n # data <> ""
-                       then begin
-                         (* The standalone declaration is violated if the
-                          * element declaration is contained in an external
-                          * entity.
-                          *)
-                         if ext_decl then
-                           raise
-                             (Validation_error
-                                (self # error_name ^ 
-                                 " violates standalone declaration"  ^
-                                 " because extra white space separates" ^ 
-                                 " the sub elements"));
-                       end;
-                       if not keep_always_whitespace then raise Skip
-                     end
-               end
-           | _ ->
-               ()
-         end;
-         (* all OK, so add this node: *)
-         n # internal_adopt (Some (self : 'ext #node :> 'ext node)) size;
-         rev_nodes <- n :: rev_nodes;
-         nodes <- None;
-         array <- None;
-         size <- size + 1
-       with Skip ->
-         ()
-
-      method add_pinstr pi =
-       begin match dtd with
-           None -> ()
-         | Some d -> 
-             if pi # encoding <> d # encoding then
-               failwith "Pxp_document.element_impl # add_pinstr: Inconsistent encodings";
-       end;
-       let name = pi # target in
-       Hashtbl.add (Lazy.force pinstr) name pi
-
-      method pinstr name =
-       Hashtbl.find_all (Lazy.force pinstr) name
-
-      method pinstr_names =
-       let l = ref [] in
-       Hashtbl.iter
-         (fun n _ -> l := n :: !l)
-         (Lazy.force pinstr);
-       !l
-
-      method sub_nodes =
-       match nodes with
-           None ->
-             let cl = List.rev rev_nodes in
-             nodes <- Some cl;
-             cl
-         | Some cl ->
-             cl
-
-      method iter_nodes f =
-       let cl = self # sub_nodes in
-       List.iter f cl
-
-      method iter_nodes_sibl f =
-       let cl = self # sub_nodes in
-       let rec next last_node l =
-         match l with
-             [] -> ()
-           | [x] ->
-               f last_node x None
-           | x :: y :: l' ->
-               f last_node x (Some y);
-               next (Some x) l'
-       in
-       next None cl
-
-      method nth_node p =
-       if p < 0 or p >= size then raise Not_found;
-       if array = None then
-         array <- Some (Array.of_list (self # sub_nodes));
-       match array with
-           None -> assert false
-         | Some a ->
-             a.(p)
-
-      method set_nodes nl =
-       let old_size = size in
-       List.iter
-         (fun n -> n # internal_adopt None (-1))
-         rev_nodes;
-       begin try
-         size <- 0;
-         List.iter
-           (fun n -> n # internal_adopt 
-                           (Some (self : 'ext #node :> 'ext node))
-                           size;
-                     size <- size + 1)
-           nl
-       with
-           e ->
-             (* revert action as much as possible *)
-             List.iter
-               (fun n -> n # internal_adopt None (-1))
-               rev_nodes;
-             size <- old_size;
-             let pos = ref (size-1) in
-             List.iter
-               (fun n -> n # internal_adopt 
-                               (Some (self : 'ext #node :> 'ext node))
-                               !pos;
-                         decr pos
-               )
-               rev_nodes;
-             (* [TODO] Note: there may be bad members in nl *)
-             raise e
-       end;
-       rev_nodes <- List.rev nl;
-       array <- None;
-       nodes <- None
-
-
-      method orphaned_clone : 'self =
-       let sub_clones =
-         List.map
-           (fun m ->
-              m # orphaned_clone)
-           rev_nodes 
-       in
-
-       let x = extension # clone in
-       let n =
-         {< parent = None;
-            node_position = -1;
-            extension = x;
-            rev_nodes = sub_clones;
-            nodes = None;
-            array = None;
-         >} in 
-
-       let pos = ref (size - 1) in
-       List.iter
-         (fun m -> m # internal_adopt 
-                     (Some (n : 'ext #node :> 'ext node)) 
-                     !pos;
-                   decr pos
-         )
-         sub_clones;
-
-       x # set_node (n : 'ext #node  :> 'ext node);
-       n
-
-      method orphaned_flat_clone : 'self =
-       let x = extension # clone in
-       let n =
-         {< parent = None;
-            node_position = -1;
-            extension = x;
-            rev_nodes = [];
-            nodes = None;
-            size = 0;
-            array = None;
-         >} in 
-
-       x # set_node (n : 'ext #node  :> 'ext node);
-       n
-
-
-      method internal_delete n =
-       rev_nodes <- List.filter (fun n' -> n' != n) rev_nodes;
-       size <- size - 1;
-       let p = ref (size-1) in
-       List.iter
-         (fun n' -> n' # internal_set_pos !p; decr p)
-         rev_nodes;
-       nodes <- None;
-       n # internal_adopt None (-1);
-       
-
-      method data =
-       let cl = self # sub_nodes in
-       String.concat "" (List.map (fun n -> n # data) cl)
-
-      method node_type = ntype
-
-
-      method attribute n =
-       List.assoc n attributes
-
-      method attribute_names =
-       List.map fst attributes
-
-      method attribute_type n =
-       match ntype with
-           T_element name ->
-             let d =
-               match dtd with
-                   None -> assert false 
-                 | Some d -> d in
-             let eltype = d # element name in
-             ( try
-                 let atype, adefault = eltype # attribute n in
-                 atype
-               with
-                   Undeclared ->
-                     A_cdata
-             )
-         | _ ->
-             failwith "attribute_type: not available for non-element nodes"
-
-
-      method required_string_attribute n =
-       try
-         match List.assoc n attributes with
-             Value s -> s
-           | Valuelist l -> String.concat " " l
-           | Implied_value -> raise Not_found
-       with
-           Not_found ->
-             failwith "Pxp_document, method required_string_attribute: not found"
-
-      method optional_string_attribute n =
-       try
-         match List.assoc n attributes with
-             Value s -> Some s
-           | Valuelist l -> Some (String.concat " " l)
-           | Implied_value -> None
-       with
-           Not_found ->
-             None
-
-      method required_list_attribute n =
-       try
-         match List.assoc n attributes with
-             Value s -> [ s ]
-           | Valuelist l -> l
-           | Implied_value -> raise Not_found
-       with
-           Not_found ->
-             failwith "Markup.document, method required_list_attribute: not found"
-
-      method optional_list_attribute n =
-       try
-         match List.assoc n attributes with
-             Value s -> [ s ]
-           | Valuelist l -> l
-           | Implied_value -> []
-       with
-           Not_found ->
-             []
-
-      method id_attribute_name =
-       match id_att_name with
-           None -> raise Not_found
-         | Some name -> name
-
-      method id_attribute_value =
-       match id_att_name with
-           None -> raise Not_found
-         | Some name ->
-             begin match List.assoc name attributes (* may raise Not_found *)
-             with
-                 Value s -> s
-               | _ -> raise Not_found
-             end
-
-
-      method idref_attribute_names = idref_att_names
-
-
-      method quick_set_attributes atts =
-       match ntype with
-           T_element _ ->
-             attributes <- atts;
-             att_nodes <- []
-         | _ ->
-             failwith "quick_set_attributes: not applicable for non-element node"
-
-
-      method attributes_as_nodes =
-       match att_nodes with
-           [] when attributes = [] ->
-             []
-         | [] ->
-             let dtd = self # dtd in
-             let element_name =
-               match ntype with
-                   T_element n -> n
-                 | _ ->
-                     assert false in
-             let l =
-               List.map
-                 (fun (n,v) ->
-                    new attribute_impl 
-                      ~element:element_name
-                      ~name:n
-                      v
-                      dtd)
-                 attributes in
-             att_nodes <- l;
-             l
-         | _ ->
-             att_nodes
-
-
-      method create_element 
-                       ?(position = no_position) new_dtd new_type new_attlist =
-       let x = extension # clone in
-       let obj = ( {< parent = None;
-                      extension = x;
-                      pinstr = lazy (Hashtbl.create 10)
-                   >}
-                   : 'ext #node :> 'ext node
-                 ) in
-       x # set_node obj;
-       match new_type with
-           T_data ->
-             failwith "create_element: Cannot create T_data node"
-         | T_element name ->
-             obj # internal_init position new_dtd name new_attlist;
-             obj
-         | (T_comment | T_pinstr _ | T_super_root | T_none) ->
-             obj # internal_init_other position new_dtd new_type;
-             obj
-         | _ ->
-             failwith "create_element: Cannot create such node"
-
-
-      method internal_init_other new_pos new_dtd new_ntype =
-       (* resets the contents of the object *)
-       parent <- None;
-       rev_nodes <- [];
-       nodes <- None;
-       ntype <- new_ntype;
-       position <- new_pos;
-       content_model <- Any;
-       content_dfa <- lazy None;
-       attributes <- [];
-       att_nodes <- [];
-       dtd <- Some new_dtd;
-       ext_decl <- false;
-       id_att_name <- None;
-       idref_att_names <- [];
-       comment <- None;
-
-
-      method internal_init new_pos new_dtd new_name new_attlist =
-       (* ONLY FOR T_Element NODES!!! *)
-       (* resets the contents of the object *)
-       parent <- None;
-       rev_nodes <- [];
-       nodes <- None;
-       ntype <- T_element new_name;
-       position <- new_pos;
-       comment <- None;
-       att_nodes <- [];
-
-       let lexerset = Pxp_lexers.get_lexer_set (new_dtd # encoding) in
-       let sadecl = new_dtd # standalone_declaration in
-
-       (* First validate the element name and the attributes: *)
-       (* Well-Formedness Constraint: Unique Att Spec *)
-       let rec check_uniqueness al =
-         match al with
-             [] -> ()
-           | (n, av) :: al' ->
-               if List.mem_assoc n al' then
-                 raise (WF_error("Attribute `" ^ n ^ "' occurs twice in element `" ^ new_name ^ "'"));
-               check_uniqueness al'
-       in
-       check_uniqueness new_attlist;
-       (* Validity Constraint: Element Valid [element has been declared] *)
-       try
-         let eltype = new_dtd # element new_name in
-         content_model <- eltype # content_model;
-         content_dfa   <- lazy(eltype # content_dfa);
-         ext_decl <- eltype # externally_declared;
-         id_att_name <- eltype # id_attribute_name;
-         idref_att_names <- eltype # idref_attribute_names;
-         (* Validity Constraint: Attribute Value Type *)
-         (* Validity Constraint: Fixed Attribute Default *)
-         (* Validity Constraint: Standalone Document Declaration (partly) *)
-         let undeclared_attlist = ref [] in
-         let new_attlist' =
-           List.map
-             (fun (n,v) ->
-                try
-                  (* Get type, default, and the normalized attribute
-                   * value 'av':
-                   *)
-                  let atype, adefault = eltype # attribute n in
-                  let av = value_of_attribute lexerset new_dtd n atype v in
-                  (* If necessary, check whether normalization violates
-                   * the standalone declaration.
-                   *)
-                  if sadecl &&
-                      eltype # 
-                       attribute_violates_standalone_declaration n (Some v)
-                  then
-                    raise
-                      (Validation_error
-                         ("Attribute `" ^ n ^ "' of element type `" ^
-                          new_name ^ "' violates standalone declaration"));
-                  (* If the default is "fixed", check that. *)
-                  begin match adefault with
-                      (D_required | D_implied) -> ()
-                    | D_default _ -> ()
-                    | D_fixed u ->
-                        let uv = value_of_attribute 
-                                         lexerset new_dtd "[default]" atype u in
-                        if av <> uv then
-                          raise
-                            (Validation_error
-                               ("Attribute `" ^ n ^ 
-                                "' is fixed, but has here a different value"));
-                  end;
-                  n,av
-                with
-                    Undeclared ->
-                      (* raised by method "# attribute" *)
-                       undeclared_attlist :=
-                         (n, value_of_attribute lexerset new_dtd n A_cdata v) ::
-                         !undeclared_attlist;
-                       n, Implied_value        (* does not matter *)
-             )
-             new_attlist in
-         (* Validity Constraint: Required Attribute *)
-         (* Validity Constraint: Standalone Document Declaration (partly) *)
-         (* Add attributes with default values *)
-         let new_attlist'' =
-           List.map
-             (fun n ->
-                try
-                  n, List.assoc n new_attlist'
-                with
-                    Not_found ->
-                      (* Check standalone declaration: *)
-                      if sadecl &&
-                           eltype # 
-                           attribute_violates_standalone_declaration
-                           n None then
-                        raise
-                          (Validation_error
-                             ("Attribute `" ^ n ^ "' of element type `" ^
-                              new_name ^ "' violates standalone declaration"));
-                      (* add default value or Implied *)
-                      let atype, adefault = eltype # attribute n in
-                      match adefault with
-                          D_required ->
-                            raise(Validation_error("Required attribute `" ^ n ^ "' is missing"))
-                        | D_implied ->
-                            n, Implied_value
-                        | D_default v ->
-                            n, value_of_attribute lexerset new_dtd n atype v
-                        | D_fixed v ->
-                            n, value_of_attribute lexerset new_dtd n atype v
-             )
-             (eltype # attribute_names)
-         in
-         dtd <- Some new_dtd;
-         attributes <- new_attlist'' @ !undeclared_attlist;
-       with
-           Undeclared ->
-             (* The DTD allows arbitrary attributes/contents for this
-              * element
-              *)
-             dtd <- Some new_dtd;
-             attributes <- List.map (fun (n,v) -> n, Value v) new_attlist;
-             content_model <- Any;
-             content_dfa <- lazy None;
-
-      method local_validate ?(use_dfa=false) () =
-       (* validates that the content of this element matches the model *)
-       let dfa = if use_dfa then Lazy.force content_dfa else None in
-       if not (validate_content 
-                 ~use_dfa:dfa
-                 content_model 
-                 (self : 'ext #node :> 'ext node)) then
-         raise(Validation_error(self # error_name ^ 
-                                " does not match its content model"))
-
-
-      method create_data _ _ =
-       failwith "method 'create_data' not applicable to element node"
-
-      method keep_always_whitespace_mode =
-       keep_always_whitespace <- true
-
-      method write os enc =
-       let encoding = self # encoding in
-       let wms = 
-         write_markup_string ~from_enc:encoding ~to_enc:enc os in
-
-       begin match ntype with
-           T_element name ->
-             wms ("<" ^ name);
-             List.iter
-               (fun (aname, avalue) ->
-                  match avalue with
-                      Implied_value -> ()
-                    | Value v ->
-                        wms ("\n" ^ aname ^ "=\"");
-                        write_data_string ~from_enc:encoding ~to_enc:enc os v;
-                        wms "\"";
-                    | Valuelist l ->
-                        let v = String.concat " " l in
-                        wms ("\n" ^ aname ^ "=\"");
-                        write_data_string ~from_enc:encoding ~to_enc:enc os v;
-                        wms "\"";
-               )
-               attributes;
-             wms "\n>";
-         | _ ->
-             ()
-       end;
-
-       Hashtbl.iter
-         (fun n pi ->
-            pi # write os enc
-         )
-         (Lazy.force pinstr);
-       List.iter 
-         (fun n -> n # write os enc)
-         (self # sub_nodes);
-
-       begin match ntype with
-           T_element name ->
-             wms ("</" ^ name ^ "\n>");
-         | _ ->
-             ()
-       end
-
-       (* TODO: How to write comments? The comment string may contain
-        * illegal characters or "--".
-        *)
-
-
-      method write_compact_as_latin1 os =
-       self # write os `Enc_iso88591
-
-    end
-;;
-
-
-let spec_table_find_exemplar tab eltype =
-  try
-    Hashtbl.find tab.mapping eltype
-  with
-      Not_found -> tab.default_element
-;;
-
-
-let create_data_node spec dtd str =
-  match spec with
-      Spec_table tab ->
-       let exemplar = tab.data_node in
-       exemplar # create_data dtd str
-;;
-
-
-let create_element_node ?position spec dtd eltype atts =
-   match spec with
-      Spec_table tab ->
-       let exemplar = spec_table_find_exemplar tab eltype in
-       exemplar # create_element ?position:position dtd (T_element eltype) atts
-;;
-
-
-let create_super_root_node ?position spec dtd =
-    match spec with
-      Spec_table tab ->
-       ( match tab.super_root_node with
-             None -> 
-               failwith "Pxp_document.create_super_root_node: No exemplar"
-           | Some x -> 
-               x # create_element ?position:position dtd T_super_root []
-       )
-;;
-
-let create_no_node ?position spec dtd =
-    match spec with
-      Spec_table tab ->
-       let x = tab.default_element in
-       x # create_element ?position:position dtd T_none []
-;;
-
-
-let create_comment_node ?position spec dtd text =
-  match spec with
-      Spec_table tab ->
-       ( match tab.comment_node with
-             None ->
-               failwith "Pxp_document.create_comment_node: No exemplar"
-           | Some x ->
-               let e = x # create_element ?position:position dtd T_comment [] 
-               in
-               e # set_comment (Some text);
-               e
-       )
-;;
-       
-    
-let create_pinstr_node ?position spec dtd pi =
-  let target = pi # target in
-  let exemplar =
-    match spec with
-       Spec_table tab ->
-         ( try 
-             Hashtbl.find tab.pinstr_mapping target
-           with
-               Not_found ->
-                 ( match tab.default_pinstr_node with
-                       None -> 
-                         failwith 
-                           "Pxp_document.create_pinstr_node: No exemplar"
-                     | Some x -> x
-                 )
-         )
-  in
-  let el = 
-    exemplar # create_element ?position:position dtd (T_pinstr target) [] in
-  el # add_pinstr pi;
-  el
-;;
-
-
-let find ?(deeply=false) f base =
-  let rec search_flat children =
-    match children with
-       [] -> raise Not_found
-      | n :: children' ->
-         if f n then n else search_flat children'
-  in
-  let rec search_deep children =
-    match children with
-       [] -> raise Not_found
-      | n :: children' ->
-         if f n then
-           n 
-         else
-           try search_deep (n # sub_nodes)
-           with Not_found -> search_deep children'
-  in
-  (if deeply then search_deep else search_flat)
-  (base # sub_nodes)
-;;
-
-
-let find_all ?(deeply=false) f base =
-  let rec search_flat children =
-    match children with
-       [] -> []
-      | n :: children' ->
-         if f n then n :: search_flat children' else search_flat children'
-  in
-  let rec search_deep children =
-    match children with
-       [] -> []
-      | n :: children' ->
-         let rest =
-           search_deep (n # sub_nodes) @ search_deep children' in
-         if f n then
-           n :: rest
-         else
-           rest
-  in
-  (if deeply then search_deep else search_flat)
-  (base # sub_nodes)
-;;
-
-
-let find_element ?deeply eltype base =
-  find 
-    ?deeply:deeply 
-    (fun n -> 
-       match n # node_type with
-          T_element name -> name = eltype
-        | _              -> false)
-    base
-;;
-
-
-let find_all_elements ?deeply eltype base =
-  find_all
-    ?deeply:deeply 
-    (fun n -> 
-       match n # node_type with
-          T_element name -> name = eltype
-        | _              -> false)
-    base
-;;
-
-
-exception Skip;;
-
-let map_tree ~pre ?(post=(fun x -> x)) base =
-  let rec map_rec n =
-    (try
-      let n' = pre n in
-      if n' # node_type <> T_data then begin
-       let children = n # sub_nodes in
-       let children' = map_children children in
-       n' # set_nodes children';
-      end;
-      post n'
-    with
-       Skip -> raise Not_found
-    )
-  and map_children l =
-    match l with
-       [] -> []
-      | child :: l' ->
-         (try 
-            let child' = map_rec child in
-            child' :: map_children l'
-          with
-              Not_found ->
-                map_children l'
-         )
-  in
-  map_rec base
-;;
-
-
-let map_tree_sibl ~pre ?(post=(fun _ x _ -> x)) base =
-  let rec map_rec l n r =
-    (try
-      let n' = pre l n r in
-      if n' # node_type <> T_data then begin
-       let children = n # sub_nodes in
-       let children' = map_children None children in
-       let children'' = postprocess_children None children' in
-       n' # set_nodes children'';
-      end;
-      n'
-    with
-       Skip -> raise Not_found
-    )
-  and map_children predecessor l =
-    (match l with
-        [] -> []
-       | child :: l' ->
-          let successor =
-            match l' with
-                []    -> None
-             | x :: _ -> Some x in
-          (try 
-             let child' = map_rec predecessor child successor in
-             child' :: map_children (Some child) l'
-           with
-               Not_found ->
-                 map_children (Some child) l'
-          )
-    )
-  and postprocess_children predecessor l =
-    (match l with
-        [] -> []
-       | child :: l' ->
-          let successor =
-            match l' with
-                []     -> None
-              | x :: _ -> Some x in
-          (try 
-             let child' = post predecessor child successor in
-             child' :: postprocess_children (Some child) l'
-           with
-               Skip ->
-                 postprocess_children (Some child) l'
-          )
-    )
-  in
-  let base' = map_rec None base None in
-  try post None base' None with Skip -> raise Not_found
-;;
-
-
-let iter_tree ?(pre=(fun x -> ())) ?(post=(fun x -> ())) base =
-  let rec iter_rec n =
-    (try
-      pre n;
-      let children = n # sub_nodes in
-      iter_children children;
-      post n
-    with
-       Skip -> raise Not_found
-    )
-  and iter_children l =
-    match l with
-       [] -> []
-      | child :: l' ->
-         (try 
-            iter_rec child;
-            iter_children l'
-          with
-              Not_found ->
-                iter_children l'
-         )
-  in
-  iter_rec base
-;;
-
-
-let iter_tree_sibl ?(pre=(fun _ _ _ -> ())) ?(post=(fun _ _ _ -> ())) base =
-  let rec iter_rec l n r =
-    (try
-      pre l n r;
-      let children = n # sub_nodes in
-      iter_children None children;
-      post l n r
-    with
-       Skip -> raise Not_found
-    )
-  and iter_children predecessor l =
-    (match l with
-        [] -> []
-       | child :: l' ->
-          let successor =
-            match l' with
-                []    -> None
-             | x :: _ -> Some x in
-          (try 
-             iter_rec predecessor child successor;
-             iter_children (Some child) l'
-           with
-               Not_found ->
-                 iter_children (Some child) l'
-          )
-    )
-  in
-  iter_rec None base None
-;;
-
-
-let compare a b =
-  let rec cmp p1 p2 =
-    match p1, p2 with
-       [], []         -> 0
-      | [], _          -> -1
-      | _, []          -> 1
-      | x::p1', y::p2' -> if x = y then cmp p1' p2' else x - y
-  in
-
-  let a_path = a # node_path in
-  let b_path = b # node_path in
-
-  cmp a_path b_path
-;;
-
-
-type 'ext ord_index = ('ext node, int) Hashtbl.t;;
-
-let create_ord_index base =
-  let n = ref 0 in
-  iter_tree ~pre:(fun _ -> incr n) base;
-  let idx = Hashtbl.create !n in
-  let k = ref 0 in
-  iter_tree ~pre:(fun node -> Hashtbl.add idx node !k; incr k) base;
-  idx
-;;
-
-
-let ord_number idx node =
-  Hashtbl.find idx node
-;;
-
-let ord_compare idx a b =
-  let ord_a = Hashtbl.find idx a in
-  let ord_b = Hashtbl.find idx b in
-  ord_a - ord_b
-;;
-
-class ['ext] document the_warner =
-  object (self)
-    val mutable xml_version = "1.0"
-    val mutable dtd = (None : dtd option)
-    val mutable root = (None : 'ext node option)
-
-    val pinstr = lazy (Hashtbl.create 10 : (string,proc_instruction) Hashtbl.t)
-    val warner = (the_warner : collect_warnings)
-
-    method init_xml_version s = 
-      if s <> "1.0" then
-       warner # warn ("XML version '" ^ s ^ "' not supported");
-      xml_version <- s
-
-    method init_root r = 
-      let dtd_r = r # dtd in
-      match r # node_type with
-
-       (**************** CASE: We have a super root element ***************)
-
-       | T_super_root ->
-           if not (dtd_r # arbitrary_allowed) then begin
-             match dtd_r # root with
-                 Some declared_root_element_name ->
-                   let real_root_element =
-                     try
-                       List.find
-                         (fun r' -> 
-                            match r' # node_type with
-                              | T_element _     -> true
-                              | _               -> false)
-                         (r # sub_nodes)
-                     with
-                         Not_found ->
-                           failwith "Pxp_document.document#init_root: Super root does not contain root element"
-                             (* TODO: Check also that there is at most one
-                              * element in the super root node
-                              *)
-
-                   in
-                   let real_root_element_name =
-                     match real_root_element # node_type with 
-                         T_element name -> name
-                       | _              -> assert false
-                   in
-                   if real_root_element_name <> declared_root_element_name then
-                     raise
-                       (Validation_error ("The root element is `" ^ 
-                                          real_root_element_name ^ 
-                                          "' but is declared as `" ^
-                                          declared_root_element_name))
-               | None -> ()
-           end;
-           (* All is okay, so store dtd and root node: *)
-           dtd <- Some dtd_r;
-           root <- Some r
-
-       (**************** CASE: No super root element **********************)
-
-       | T_element root_element_name ->
-           if not (dtd_r # arbitrary_allowed) then begin
-             match dtd_r # root with
-                 Some declared_root_element_name ->
-                   if root_element_name <> declared_root_element_name then
-                     raise
-                       (Validation_error ("The root element is `" ^ 
-                                          root_element_name ^ 
-                                          "' but is declared as `" ^
-                                          declared_root_element_name))
-               | None ->
-                   (* This may happen if you initialize your DTD yourself.
-                    * The value 'None' means that the method 'set_root' was
-                    * never called for the DTD; we interpret it here as:
-                    * The root element does not matter.
-                    *)
-                   ()
-           end;
-           (* All is okay, so store dtd and root node: *)
-           dtd <- Some dtd_r;
-           root <- Some r
-
-       | _ ->
-           failwith "Pxp_document.document#init_root: the root node must be an element or super-root"
-
-    method xml_version = xml_version
-
-    method xml_standalone = 
-      match dtd with
-         None -> false
-       | Some d -> d # standalone_declaration
-
-    method dtd =
-      match dtd with
-         None -> failwith "Pxp_document.document#dtd: Document has no DTD"
-       | Some d -> d
-
-    method encoding =
-      match dtd with
-         None -> failwith "Pxp_document.document#encoding: Document has no DTD"
-       | Some d -> d # encoding
-
-    method root =
-      match root with
-         None -> failwith "Pxp_document.document#root: Document has no root element"
-       | Some r -> r
-
-    method add_pinstr pi =
-      begin match dtd with
-         None -> ()
-       | Some d -> 
-           if pi # encoding <> d # encoding then
-             failwith "Pxp_document.document # add_pinstr: Inconsistent encodings";
-      end;
-      let name = pi # target in
-      Hashtbl.add (Lazy.force pinstr) name pi
-
-    method pinstr name =
-      Hashtbl.find_all (Lazy.force pinstr) name
-
-    method pinstr_names =
-      let l = ref [] in
-      Hashtbl.iter
-       (fun n _ -> l := n :: !l)
-       (Lazy.force pinstr);
-      !l
-
-    method write os enc =
-      let encoding = self # encoding in
-      let wms = 
-       write_markup_string ~from_enc:encoding ~to_enc:enc os in
-
-      let r = self # root in
-      wms ("<?xml version='1.0' encoding='" ^ 
-          Netconversion.string_of_encoding enc ^ 
-          "'?>\n");
-      ( match self # dtd # root with
-           None ->
-             self # dtd # write os enc false
-         | Some _ ->
-             self # dtd # write os enc true
-      );
-      Hashtbl.iter
-       (fun n pi ->
-          pi # write os enc
-       )
-       (Lazy.force pinstr);
-      r # write os enc;
-      wms "\n";
-           
-    method write_compact_as_latin1 os =
-      self # write os `Enc_iso88591
-
-  end
-;;
-
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.14  2000/08/30 15:47:52  gerd
- *     Implementation of pxp_document.mli rev 1.10.
- *
- * Revision 1.13  2000/08/26 23:29:10  gerd
- *     Implementations for the changed in rev 1.9 of pxp_document.mli.
- *
- * Revision 1.12  2000/08/18 20:14:00  gerd
- *     New node_types: T_super_root, T_pinstr, T_comment, (T_attribute),
- * (T_none), (T_namespace).
- *
- * Revision 1.11  2000/08/14 22:24:55  gerd
- *     Moved the module Pxp_encoding to the netstring package under
- * the new name Netconversion.
- *
- * Revision 1.10  2000/07/23 02:16:34  gerd
- *     Support for DFAs.
- *
- * Revision 1.9  2000/07/16 19:37:09  gerd
- *     Simplification.
- *
- * Revision 1.8  2000/07/16 17:50:01  gerd
- *     Fixes in 'write'
- *
- * Revision 1.7  2000/07/16 16:34:41  gerd
- *     New method 'write', the successor of 'write_compact_as_latin1'.
- *
- * Revision 1.6  2000/07/14 13:56:11  gerd
- *     Added methods id_attribute_name, id_attribute_value,
- * idref_attribute_names.
- *
- * Revision 1.5  2000/07/09 17:51:14  gerd
- *     Element nodes can store positions.
- *
- * Revision 1.4  2000/07/08 23:04:06  gerd
- *     [Merging 0.2.10:] Bugfix: allow_undeclared_attribute
- *
- * Revision 1.3  2000/07/04 22:10:06  gerd
- *     Implemented rev 1.3 of pxp_document.mli in a straight-
- * forward fashion.
- *
- * Revision 1.2  2000/06/14 22:19:06  gerd
- *     Added checks such that it is impossible to mix encodings.
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- * Old logs from markup_document.ml:
- *
- * Revision 1.19  2000/05/27 19:14:42  gerd
- *     value_of_attribute: this function has been moved to
- * markup_aux.ml.
- *
- *     Added the following checks whether there is a violation
- * against the standalone declaration:
- *     - Externally declared elements with regexp content model
- *       must not contain extra white space
- *     - The effect of normalization of externally declared attributes
- *       must not depend on the type of the attributes
- *     - Declared default values of externally declared attributes
- *       must not have an effect on the value of the attributes.
- *
- *     Removed the method init_xml_standalone. It is now stored in
- * the DTD whether there is a standalone declaration.
- *
- * Revision 1.18  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.17  2000/05/06 23:12:20  gerd
- *     Allow undeclared attributes.
- *
- * Revision 1.16  2000/05/01 20:42:28  gerd
- *     New method write_compact_as_latin1.
- *
- * Revision 1.15  2000/04/30 18:15:22  gerd
- *     In function validate_content: Special handling of the pseudo
- * nodes "-pi" and "-vr".
- *     Method init_root, class document: Recognizes whether the
- * root is virtual or real. The check on the root element name is different
- * in each case.
- *     New method keep_always_whitespace_mode: Turns a special mode
- * on in which ignorable whitespace is included into the document.
- *
- * Revision 1.14  2000/03/11 22:58:15  gerd
- *     Updated to support Markup_codewriter.
- *
- * Revision 1.13  2000/01/27 21:51:56  gerd
- *     Added method 'attributes'.
- *
- * Revision 1.12  2000/01/27 21:19:34  gerd
- *     Added methods.
- *     Bugfix: 'orphaned_clone' performs now really a clone.
- *
- * Revision 1.11  2000/01/20 21:57:58  gerd
- *     Bugfix: method set_nodes does no longer add the new subnodes
- * in the reverse order.
- *
- * Revision 1.10  1999/12/17 21:35:37  gerd
- *     Bugfix: If the name of the root element is not specified in
- * the DTD, the document does not check whether the root element is a
- * specific element.
- *
- * Revision 1.9  1999/11/09 22:22:01  gerd
- *     The "document" classes now checks that the root element is the
- * same as the declared root element. Thanks to Claudio Sacerdoti Coen
- * for his bug report.
- *
- * Revision 1.8  1999/09/01 22:51:40  gerd
- *     Added methods to store processing instructions.
- *
- * Revision 1.7  1999/09/01 16:19:18  gerd
- *     Added some warnings.
- *     If an element type has the content model EMPTY, it is now strictly
- * checked that the element instance is really empty. Especially, white space
- * is NOT allowed in such instances.
- *
- * Revision 1.6  1999/08/19 21:58:59  gerd
- *     Added method "reset_finder". This is not very convincing, but
- * currently the simplest way to update the ID hash table.
- *
- * Revision 1.5  1999/08/19 01:08:15  gerd
- *     Added method "find" that searches node by ID in the whole
- * tree.
- *     Bugfix: After the extension has been cloned, the "set_node" method
- * is invoked telling the clone to which node it is associated.
- *
- * Revision 1.4  1999/08/15 13:52:52  gerd
- *     Bugfix: WF_error "Attribute x occurs twice in element [unnamed]"
- * no longer possible; instead of "[unnamed]" the actual name is printed.
- *     Improved some of the error messages.
- *
- * Revision 1.3  1999/08/15 02:19:01  gerd
- *     If the DTD allows arbitrary elements, unknown elements are not
- * rejected.
- *
- * Revision 1.2  1999/08/11 14:54:23  gerd
- *     Optimizations: The hashtable for the 'pinstr' variable is only
- * created on demand. -- The 'only_whitespace' function uses a simple "for"
- * loop is the string is small and a lexer if the string is big.
- *
- * Revision 1.1  1999/08/10 00:35:50  gerd
- *     Initial revision.
- *
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_document.mli b/helm/DEVEL/pxp/pxp/pxp_document.mli
deleted file mode 100644 (file)
index 67c6e4d..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_document.mli
+++ /dev/null
@@ -1,838 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright by Gerd Stolpmann. See LICENSE for details.
- *)
-
-(**********************************************************************)
-(*                                                                    *)
-(* Pxp_document:                                                      *)
-(*     Object model of the document/element instances                 *)
-(*                                                                    *)
-(**********************************************************************)
-
-
-(* ======================================================================
- * OVERVIEW
- *
- * class type node ............. The common class type of the nodes of
- *                               the element tree. Nodes are either
- *                               elements (inner nodes) or data nodes
- *                               (leaves)
- * class type extension ........ The minimal properties of the so-called
- *                               extensions of the nodes: Nodes can be
- *                               customized by applying a class parameter
- *                               that adds methods/values to nodes.
- * class data_impl : node ...... Implements data nodes.
- * class element_impl : node ... Implements element nodes
- * class document .............. A document is an element with some additional
- *                               properties
- *
- * ======================================================================
- *
- * THE STRUCTURE OF NODE TREES:
- *
- * Every node except the root node has a parent node. The parent node is
- * always an element, because data nodes never contain other nodes.
- * In the other direction, element nodes may have children; both elements
- * and data nodes are possible as children.
- * Every node knows its parent (if any) and all its children (if any);
- * the linkage is maintained in both directions. A node without a parent
- * is called a root.
- * It is not possible that a node is the child of two nodes (two different nodes
- * or a multiple child of the same node).
- * You can break the connection between a node and its parent; the method
- * "delete" performs this operations and deletes the node from the parent's
- * list of children. The node is now a root, for itself and for all
- * subordinate nodes. In this context, the node is also called an orphan,
- * because it has lost its parent (this is a bit misleading because the
- * parent is not always the creator of a node).
- * In order to simplify complex operations, you can also set the list of
- * children of an element. Nodes that have been children before are unchanged;
- * new nodes are added (and the linkage is set up), nodes no more occurring
- * in the list are handled if they have been deleted.
- * If you try to add a node that is not a root (either by an "add" or by a
- * "set" operation) the operation fails.
- *
- * CREATION OF NODES
- *
- * The class interface supports creation of nodes by cloning a so-called
- * exemplar. The idea is that it is sometimes useful to implement different
- * element types by different classes, and to implement this by looking up
- * exemplars.
- * Imagine you have three element types A, B, and C, and three classes
- * a, b, and c implementing the node interface (for example, by providing
- * different extensions, see below). The XML parser can be configured to
- * have a lookup table
- *   { A --> a0,  B --> b0, C --> c0 }
- * where a0, b0, c0 are exemplars of the classes a, b, and c, i.e. empty
- * objects belonging to these classes. If the parser finds an instance of
- * A, it looks up the exemplar a0 of A and clones it (actually, the method
- * "create_element" performs this for elements, and "create_data" for data
- * nodes). Clones belong to the same class as the original nodes, so the
- * instances of the elements have the same classes as the configured
- * exemplars.
- * Note: This technique assumes that the interface of all exemplars is the
- * same!
- *
- * THE EXTENSION
- *
- * The class type node and all its implementations have a class parameter
- * 'ext which must at least fulfil the properties of the class type "extension".
- * The idea is that you can add properties, for example:
- *
- * class my_extension =
- *   object
- *     (* minimal properties required by class type "extension": *)
- *     method clone = ...
- *     method node = ...
- *     method set_node n = ...
- *     (* here my own methods: *)
- *     method do_this_and_that ...
- *   end
- *
- * class my_element_impl = [ my_extension ] element_impl
- * class my_data_impl    = [ my_extension ] data_impl
- *
- * The whole XML parser is parameterized with 'ext, so your extension is
- * visible everywhere (this is the reason why extensibility is solved by
- * parametric polymorphism and not by inclusive polymorphism (subtyping)).
- *
- *
- * SOME COMPLICATED TYPE EXPRESSIONS
- *
- * Sometimes the following type expressions turn out to be necessary:
- *
- * 'a node extension as 'a
- *      This is the type of an extension that belongs to a node that
- *      has an extension that is the same as we started with.
- *
- * 'a extension node as 'a
- *      This is the type of a node that has an extension that belongs to a
- *      node of the type we started with.
- *
- *
- * DOCUMENTS
- * ...
- *
- * ======================================================================
- *
- * SIMPLE USAGE: ...
- *)
-
-
-open Pxp_dtd
-
-
-type node_type =
-  (* The basic and most important node types:
-   * - T_element element_type   is the type of element nodes
-   * - T_data                   is the type of text data nodes
-   * By design of the parser, neither CDATA sections nor entity references
-   * are represented in the node tree; so there are no types for them.
-   *)
-    T_element of string
-  | T_data
-
-  (* The following types are extensions to my original design. They have mainly
-   * been added to simplify the implementation of standards (such as
-   * XPath) that require that nodes of these types are included into the
-   * main document tree.
-   * There are options (see Pxp_yacc) forcing the parser to insert such
-   * nodes; in this case, the nodes are actually element nodes serving
-   * as wrappers for the additional data structures. The options are:
-   * enable_super_root_node, enable_pinstr_nodes, enable_comment_nodes.
-   * By default, such nodes are not created.
-   *)
-  | T_super_root
-  | T_pinstr of string                  (* The string is the target of the PI *)
-  | T_comment
-
-  (* The following types are fully virtual. This means that it is impossible
-   * to make the parser insert such nodes. However, these types might be
-   * practical when defining views on the tree.
-   * Note that the list of virtual node types will be extended if necessary.
-   *)
-  | T_none
-  | T_attribute of string          (* The string is the name of the attribute *)
-  | T_namespace of string               (* The string is the namespace prefix *)
-;;
-
-
-class type [ 'node ] extension =
-  object ('self)
-    method clone : 'self
-      (* "clone" should return an exact deep copy of the object. *)
-    method node : 'node
-      (* "node" returns the corresponding node of this extension. This method
-       * intended to return exactly what previously has been set by "set_node".
-       *)
-    method set_node : 'node -> unit
-      (* "set_node" is invoked once the extension is associated to a new
-       * node object.
-       *)
-  end
-;;
-
-
-class type [ 'ext ] node =
-  object ('self)
-    constraint 'ext = 'ext node #extension
-
-    method extension : 'ext
-      (* Return the extension of this node: *)
-
-    method delete : unit
-      (* Delete this node from the parent's list of sub nodes. This node gets
-       * orphaned.
-       * 'delete' does nothing if this node does not have a parent.
-       *)
-
-    method parent : 'ext node
-      (* Get the parent, or raise Not_found if this node is an orphan. *)
-
-    method root : 'ext node
-      (* Get the direct or indirect parent that does not have a parent itself,
-       * i.e. the root of the tree.
-       *)
-
-    method orphaned_clone : 'self
-      (* return an exact clone of this element and all sub nodes (deep copy)
-       * except string values which are shared by this node and the clone.
-       * The other exception is that the clone has no parent (i.e. it is now
-       * a root).
-       *)
-
-    method orphaned_flat_clone : 'self
-      (* return a clone of this element where all subnodes are omitted.
-       * The type of the node, and the attributes are the same as in the
-       * original node.
-       * The clone has no parent.
-       *)
-
-    method add_node : ?force:bool -> 'ext node -> unit
-      (* Append new sub nodes -- mainly used by the parser itself, but
-       * of course open for everybody. If an element is added, it must be
-       * an orphan (i.e. does not have a parent node); and after addition
-       * *this* node is the new parent.
-       * The method performs some basic validation checks if the current node
-       * has a regular expression as content model, or is EMPTY. You can
-       * turn these checks off by passing ~force:true to the method.
-       *)
-
-    method add_pinstr : proc_instruction -> unit
-      (* Add a processing instruction to the set of processing instructions of
-       * this node. Usually only elements contain processing instructions.
-       *)
-
-    method pinstr : string -> proc_instruction list
-      (* Get all processing instructions with the passed name *)
-
-    method pinstr_names : string list
-      (* Get a list of all names of processing instructions *)
-
-    method node_position : int
-      (* Returns the position of this node among all children of the parent
-       * node. Positions are counted from 0.
-       * Raises Not_found if the node is the root node.
-       *)
-
-    method node_path : int list
-      (* Returns the list of node positions of the ancestors of this node,
-       * including this node. The first list element is the node position
-       * of this child of the root, and the last list element is the 
-       * node position of this node.
-       * Returns [] if the node is the root node.
-       *)
-
-    method sub_nodes : 'ext node list
-      (* Get the list of sub nodes *)
-
-    method iter_nodes : ('ext node -> unit) -> unit
-      (* iterate over the sub nodes *)
-
-    method iter_nodes_sibl :
-      ('ext node option -> 'ext node -> 'ext node option -> unit) -> unit
-      (* Here every iteration step can also access to the previous and to the
-       * following node if present.
-       *)
-
-    method nth_node : int -> 'ext node
-      (* Returns the n-th sub node of this node, n >= 0. Raises Not_found
-       * if the index is out of the valid range.
-       * Note that the first invocation of this method requires additional
-       * overhead.
-       *)
-
-    method previous_node : 'ext node
-    method next_node : 'ext node
-      (* Return the previous and next nodes, respectively. These methods are
-       * equivalent to 
-       * - parent # nth_node (self # node_position - 1) and
-       * - parent # nth_node (self # node_position + 1), respectively.
-       *)
-
-    method set_nodes : 'ext node list -> unit
-      (* Set the list of sub nodes. Elements that are no longer sub nodes gets
-       * orphaned, and all new elements that previously were not sub nodes
-       * must have been orphaned.
-       *)
-
-    method data : string
-      (* Get the data string of this node. For data nodes, this string is just
-       * the content. For elements, this string is the concatenation of all
-       * subordinate data nodes.
-       *)
-
-    method node_type : node_type
-      (* Get the name of the element type. *)
-
-    method position : (string * int * int)
-      (* Return the name of the entity, the line number, and the column
-       * position (byte offset) of the beginning of the element.
-       * Only available if the element has been created with position
-       * information.
-       * Returns "?",0,0 if not available. (Note: Line number 0 is not
-       * possible otherwise.)
-       *)
-
-    method attribute : string -> Pxp_types.att_value
-    method attribute_names : string list
-    method attribute_type : string -> Pxp_types.att_type
-    method attributes : (string * Pxp_types.att_value) list
-      (* Get a specific attribute; get the names of all attributes; get the
-       * type of a specific attribute; get names and values of all attributes.
-       * Only elements have attributes.
-       * Note: If the DTD allows arbitrary for this element, "attribute_type"
-       * raises Undeclared.
-       *)
-
-    method required_string_attribute : string -> string
-    method required_list_attribute : string -> string list
-      (* Return the attribute or fail if the attribute is not present:
-       * The first version passes the value always as string back;
-       * the second version always as list.
-       *)
-
-    method optional_string_attribute : string -> string option
-    method optional_list_attribute : string -> string list
-      (* Return some attribute value or return None if the attribute is not
-       *  present:
-       * The first version passes the value always as string back;
-       * the second version always as list.
-       *)
-
-    method id_attribute_name : string
-    method id_attribute_value : string
-      (* Return the name and value of the ID attribute. The methods may
-       * raise Not_found if there is no ID attribute in the DTD, or no
-       * ID attribute in the element, respectively.
-       *)
-
-    method idref_attribute_names : string list
-      (* Returns the list of attribute names of IDREF or IDREFS type. *)
-
-    method quick_set_attributes : (string * Pxp_types.att_value) list -> unit
-      (* Sets the attributes but does not check whether they match the DTD.
-       *)
-
-    method attributes_as_nodes : 'ext node list
-      (* Experimental feature: Return the attributes as node list. Every node
-       * has type T_attribute n, and contains only the single attribute n.
-       * This node list is computed on demand, so the first invocation of this
-       * method will create the list, and following invocations will only
-       * return the existing list.
-       *)
-
-    method set_comment : string option -> unit
-      (* Sets the comment string; only applicable for T_comment nodes *)
-
-    method comment : string option
-      (* Get the comment string.
-       * Returns always None for nodes with a type other than T_comment.
-       *)
-
-    method dtd : dtd
-      (* Get the DTD. Fails if no DTD is specified (which is impossible if
-       * 'create_element' or 'create_data' have been used to create this
-       * object)
-       *)
-
-    method encoding : Pxp_types.rep_encoding
-      (* Get the encoding which is always the same as the encoding of the
-       * DTD. See also method 'dtd' (Note: This method fails, too, if
-       * no DTD is present.)
-       *)
-
-    method create_element : 
-             ?position:(string * int * int) ->
-             dtd -> node_type -> (string * string) list -> 'ext node
-      (* create an "empty copy" of this element:
-       * - new DTD
-       * - new node type (which must not be T_data)
-       * - new attribute list
-       * - empty list of nodes
-       *)
-
-    method create_data : dtd -> string -> 'ext node
-      (* create an "empty copy" of this data node: *)
-
-    method local_validate : 
-             ?use_dfa:bool ->
-             unit -> unit
-      (* Check that this element conforms to the DTD. 
-       * Option ~use_dfa: If true, the deterministic finite automaton of
-       *   regexp content models is used for validation, if available.
-       *   Defaults to false.
-       *)
-
-    method keep_always_whitespace_mode : unit
-      (* Normally, add_node does not accept data nodes when the DTD does not
-       * allow data nodes or only whitespace ("ignorable whitespace").
-       * Once you have invoked this method, ignorable whitespace is forced
-       * to be included into the document.
-       *)
-
-    method write : Pxp_types.output_stream -> Pxp_types.encoding -> unit
-      (* Write the contents of this node and the subtrees to the passed
-       * output stream; the passed encoding is used. The format
-       * is compact (the opposite of "pretty printing").
-       *)
-
-    method write_compact_as_latin1 : Pxp_types.output_stream -> unit
-      (* DEPRECATED METHOD; included only to keep compatibility with
-       * older versions of the parser
-       *)
-
-
-    (* ---------------------------------------- *)
-    (* The methods 'find' and 'reset_finder' are no longer supported.
-     * The functionality is provided by the configurable index object
-     * (see Pxp_yacc).
-     *)
-
-
-    (* ---------------------------------------- *)
-    (* internal methods: *)
-    method internal_adopt : 'ext node option -> int -> unit
-    method internal_set_pos : int -> unit
-    method internal_delete : 'ext node -> unit
-    method internal_init : (string * int * int) ->
-                           dtd -> string -> (string * string) list -> unit
-    method internal_init_other : (string * int * int) ->
-                                 dtd -> node_type -> unit
-  end
-;;
-
-
-class [ 'ext ] data_impl : 'ext -> [ 'ext ] node
-    (* Creation:
-     *   new data_impl an_extension
-     * creates a new data node with the given extension and the empty string
-     * as content.
-     *)
-;;
-
-
-class [ 'ext ] element_impl : 'ext -> [ 'ext ] node
-    (* Creation:
-     *   new element_impl an_extension
-     * creates a new empty element node with the given extension.
-     *)
-;;
-
-
-(* Attribute and namespace nodes are experimental: *)
-
-class [ 'ext ] attribute_impl : 
-  element:string -> name:string -> Pxp_types.att_value -> dtd -> [ 'ext ] node
-
-    (* Creation:
-     *   new attribute_impl element_name attribute_name attribute_value dtd
-     * Note that attribute nodes do intentionally not have extensions.
-     *)
-
-(* Once namespaces get implemented:
-class [ 'ext ] namespace_impl : 
-  prefix:string -> name:string -> dtd -> [ 'ext ] node
-*)
-
-(********************************** spec *********************************)
-
-type 'ext spec
-constraint 'ext = 'ext node #extension
-    (* Contains the exemplars used for the creation of new nodes
-     *)
-
-
-val make_spec_from_mapping :
-      ?super_root_exemplar : 'ext node ->
-      ?comment_exemplar : 'ext node ->
-      ?default_pinstr_exemplar : 'ext node ->
-      ?pinstr_mapping : (string, 'ext node) Hashtbl.t ->
-      data_exemplar: 'ext node ->
-      default_element_exemplar: 'ext node ->
-      element_mapping: (string, 'ext node) Hashtbl.t -> 
-      unit -> 
-        'ext spec
-    (* Specifies:
-     * - For new data nodes, the ~data_exemplar must be used
-     * - For new element nodes: If the element type is mentioned in the
-     *   ~element_mapping hash table, the exemplar found in this table is
-     *   used. Otherwise, the ~default_element_exemplar is used.
-     * Optionally:
-     * - You may also specify exemplars for super root nodes, for comments
-     *   and for processing instructions
-     *)
-
-val make_spec_from_alist :
-      ?super_root_exemplar : 'ext node ->
-      ?comment_exemplar : 'ext node ->
-      ?default_pinstr_exemplar : 'ext node ->
-      ?pinstr_alist : (string * 'ext node) list ->
-      data_exemplar: 'ext node ->
-      default_element_exemplar: 'ext node ->
-      element_alist: (string * 'ext node) list -> 
-      unit -> 
-        'ext spec
-    (* This is a convenience function: You can pass the mappings from 
-     * elements and PIs to exemplar by associative lists.
-     *)
-
-val create_data_node : 
-      'ext spec -> dtd -> string -> 'ext node
-val create_element_node : 
-      ?position:(string * int * int) ->
-      'ext spec -> dtd -> string -> (string * string) list -> 'ext node
-val create_super_root_node :
-      ?position:(string * int * int) ->
-      'ext spec -> dtd -> 'ext node
-val create_comment_node :
-      ?position:(string * int * int) ->
-      'ext spec -> dtd -> string -> 'ext node
-val create_pinstr_node :
-      ?position:(string * int * int) ->
-      'ext spec -> dtd -> proc_instruction -> 'ext node
-  (* These functions use the exemplars contained in a spec and create fresh
-   * node objects from them.
-   *)
-
-val create_no_node : 
-       ?position:(string * int * int) -> 'ext spec -> dtd -> 'ext node
-  (* Creates a T_none node with limited functionality *)
-
-(*********************** Ordering of nodes ******************************)
-
-val compare : 'ext node -> 'ext node -> int
-  (* Returns -1 if the first node is before the second node, or +1 if the
-   * first node is after the second node, or 0 if both nodes are identical.
-   * If the nodes are unrelated (do not have a common ancestor), the result
-   * is undefined.
-   * This test is rather slow.
-   *)
-
-type 'ext ord_index
-constraint 'ext = 'ext node #extension
-  (* The type of ordinal indexes *)
-
-val create_ord_index : 'ext node -> 'ext ord_index
-  (* Creates an ordinal index for the subtree starting at the passed node.
-   * This index assigns to every node an ordinal number (beginning with 0) such
-   * that nodes are numbered upon the order of the first character in the XML
-   * representation (document order).
-   * Note that the index is not automatically updated when the tree is
-   * modified.
-   *)
-
-val ord_number : 'ext ord_index -> 'ext node -> int
-  (* Returns the ordinal number of the node, or raises Not_found *)
-
-val ord_compare : 'ext ord_index -> 'ext node -> 'ext node -> int
-  (* Compares two nodes like 'compare':
-   * Returns -1 if the first node is before the second node, or +1 if the
-   * first node is after the second node, or 0 if both nodes are identical.
-   * If one of the nodes does not occur in the ordinal index, Not_found
-   * is raised.
-   * This test is much faster than 'compare'.
-   *)
-
-
-(***************************** Iterators ********************************)
-
-val find : ?deeply:bool -> 
-           f:('ext node -> bool) -> 'ext node -> 'ext node
-  (* Searches the first node for which the predicate f is true, and returns
-   * it. Raises Not_found if there is no such node.
-   * By default, ~deeply=false. In this case, only the children of the
-   * passed node are searched.
-   * If passing ~deeply=true, the children are searched recursively
-   * (depth-first search).
-   *)
-
-val find_all : ?deeply:bool ->
-               f:('ext node -> bool) -> 'ext node -> 'ext node list
-  (* Searches all nodes for which the predicate f is true, and returns them.
-   * By default, ~deeply=false. In this case, only the children of the
-   * passed node are searched.
-   * If passing ~deeply=true, the children are searched recursively
-   * (depth-first search).
-   *)
-
-val find_element : ?deeply:bool ->
-                   string -> 'ext node -> 'ext node
-  (* Searches the first element with the passed element type.
-   * By default, ~deeply=false. In this case, only the children of the
-   * passed node are searched.
-   * If passing ~deeply=true, the children are searched recursively
-   * (depth-first search).
-   *)
-
-val find_all_elements : ?deeply:bool ->
-                        string -> 'ext node -> 'ext node list
-  (* Searches all elements with the passed element type.
-   * By default, ~deeply=false. In this case, only the children of the
-   * passed node are searched.
-   * If passing ~deeply=true, the children are searched recursively
-   * (depth-first search).
-   *)
-
-exception Skip
-val map_tree :  pre:('exta node -> 'extb node) ->
-               ?post:('extb node -> 'extb node) ->
-               'exta node -> 
-                   'extb node
-  (* Traverses the passed node and all children recursively. After entering
-   * a node, the function ~pre is called. The result of this function must
-   * be a new node; it must not have children nor a parent (you can simply
-   * pass (fun n -> n # orphaned_flat_clone) as ~pre).
-   * After that, the children are processed in the same way (from left to
-   * right); the results of the transformation will be added to the
-   * new node as new children.
-   * Now, the ~post function is invoked with this node as argument, and
-   * the result is the result of the function (~post should return a root
-   * node, too; if not specified, the identity is the ~post function).
-   * Both ~pre and ~post may raise Skip, which causes that the node is
-   * left out. If the top node is skipped, the exception Not_found is
-   * raised.
-   *)
-
-val map_tree_sibl : 
-        pre: ('exta node option -> 'exta node -> 'exta node option -> 
-                  'extb node) ->
-       ?post:('extb node option -> 'extb node -> 'extb node option -> 
-                  'extb node) ->
-       'exta node -> 
-           'extb node
-   (* Works like map_tree, but the function ~pre and ~post have additional
-    * arguments:
-    * - ~pre l n r: The node n is the node to map, and l is the previous
-    *   node, and r is the next node (both None if not present). l and r
-    *   are both nodes before the transformation.
-    * - ~post l n r: The node n is the node which is the result of ~pre
-    *   plus adding children. l and r are again the previous and the next
-    *   node, respectively, but after being transformed.
-    *)
-
-val iter_tree : ?pre:('ext node -> unit) ->
-                ?post:('ext node -> unit) ->
-                'ext node -> 
-                    unit
-   (* Iterates only instead of mapping the nodes. *)
-
-val iter_tree_sibl :
-       ?pre: ('ext node option -> 'ext node -> 'ext node option -> unit) ->
-       ?post:('ext node option -> 'ext node -> 'ext node option -> unit) ->
-       'ext node -> 
-           unit
-   (* Iterates only instead of mapping the nodes. *)
-
-
-(******************************* document ********************************)
-
-
-class [ 'ext ] document :
-  Pxp_types.collect_warnings -> 
-  object
-    (* Documents: These are containers for root elements and for DTDs.
-     * 
-     * Important invariant: A document is either empty (no root element,
-     * no DTD), or it has both a root element and a DTD.
-     *
-     * A fresh document created by 'new' is empty.
-     *)
-
-    method init_xml_version : string -> unit
-       (* Set the XML version string of the XML declaration. *)
-
-    method init_root : 'ext node -> unit
-       (* Set the root element. It is expected that the root element has
-        * a DTD.
-        * Note that 'init_root' checks whether the passed root element
-        * has the type expected by the DTD. The check takes into account
-        * that the root element might be a virtual root node.
-        *)
-
-    method xml_version : string
-      (* Returns the XML version from the XML declaration. Returns "1.0"
-       * if the declaration is missing.
-       *)
-
-    method xml_standalone : bool
-      (* Returns whether this document is declared as being standalone.
-       * This method returns the same value as 'standalone_declaration'
-       * of the DTD (if there is a DTD).
-       * Returns 'false' if there is no DTD.
-       *)
-
-    method dtd : dtd
-      (* Returns the DTD of the root element. 
-       * Fails if there is no root element.
-       *)
-
-    method encoding : Pxp_types.rep_encoding
-      (* Returns the string encoding of the document = the encoding of
-       * the root element = the encoding of the element tree = the
-       * encoding of the DTD.
-       * Fails if there is no root element.
-       *)
-
-    method root : 'ext node
-      (* Returns the root element, or fails if there is not any. *)
-
-    method add_pinstr : proc_instruction -> unit
-      (* Adds a processing instruction to the document container.
-       * The parser does this for PIs occurring outside the DTD and outside
-       * the root element.
-       *)
-
-    method pinstr : string -> proc_instruction list
-      (* Return all PIs for a passed target string. *)
-
-    method pinstr_names : string list
-      (* Return all target strings of all PIs. *)
-
-    method write : Pxp_types.output_stream -> Pxp_types.encoding -> unit
-      (* Write the document to the passed
-       * output stream; the passed encoding used. The format
-       * is compact (the opposite of "pretty printing").
-       * If a DTD is present, the DTD is included into the internal subset.
-       *)
-
-    method write_compact_as_latin1 : Pxp_types.output_stream -> unit
-      (* DEPRECATED METHOD; included only to keep compatibility with
-       * older versions of the parser
-       *)
-
-  end
-;;
-
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.10  2000/08/30 15:47:37  gerd
- *     New method node_path.
- *     New function compare.
- *     New type ord_index with functions.
- *
- * Revision 1.9  2000/08/26 23:27:53  gerd
- *     New function: make_spec_from_alist.
- *     New iterators: find, find_all, find_element, find_all_elements,
- * map_tree, map_tree_sibl, iter_tree, iter_tree_sibl.
- *     New node methods: node_position, nth_node, previous_node,
- * next_node.
- *     Attribute and namespace types have now a string argument:
- * the name/prefix. I hope this simplifies the handling of view nodes.
- *     First implementation of view nodes: attribute_impl. The
- * method attributes_as_nodes returns the attributes wrapped into
- * T_attribute nodes which reside outside the document tree.
- *
- * Revision 1.8  2000/08/18 20:14:00  gerd
- *     New node_types: T_super_root, T_pinstr, T_comment, (T_attribute),
- * (T_none), (T_namespace).
- *
- * Revision 1.7  2000/07/23 02:16:34  gerd
- *     Support for DFAs.
- *
- * Revision 1.6  2000/07/16 16:34:41  gerd
- *     New method 'write', the successor of 'write_compact_as_latin1'.
- *
- * Revision 1.5  2000/07/14 13:56:11  gerd
- *     Added methods id_attribute_name, id_attribute_value,
- * idref_attribute_names.
- *
- * Revision 1.4  2000/07/09 17:51:14  gerd
- *     Element nodes can store positions.
- *
- * Revision 1.3  2000/07/04 22:05:10  gerd
- *     New functions make_spec_from_mapping, create_data_node,
- * create_element_node.
- *
- * Revision 1.2  2000/06/14 22:19:06  gerd
- *     Added checks such that it is impossible to mix encodings.
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- * Old logs from markup_document.mli:
- *
- * Revision 1.13  2000/05/27 19:15:08  gerd
- *     Removed the method init_xml_standalone.
- *
- * Revision 1.12  2000/05/01 20:42:34  gerd
- *         New method write_compact_as_latin1.
- *
- * Revision 1.11  2000/04/30 18:15:57  gerd
- *     Beautifications.
- *     New method keep_always_whitespace_mode.
- *
- * Revision 1.10  2000/03/11 22:58:15  gerd
- *     Updated to support Markup_codewriter.
- *
- * Revision 1.9  2000/01/27 21:51:56  gerd
- *     Added method 'attributes'.
- *
- * Revision 1.8  2000/01/27 21:19:07  gerd
- *     Added further methods.
- *
- * Revision 1.7  1999/11/09 22:20:14  gerd
- *     Removed method init_dtd from class "document". The DTD is
- * implicitly passed to the document by the root element.
- *
- * Revision 1.6  1999/09/01 22:51:40  gerd
- *     Added methods to store processing instructions.
- *
- * Revision 1.5  1999/09/01 16:19:57  gerd
- *     The "document" class has now a "warner" as class argument.
- *
- * Revision 1.4  1999/08/19 21:59:13  gerd
- *     Added method "reset_finder".
- *
- * Revision 1.3  1999/08/19 01:08:29  gerd
- *     Added method "find".
- *
- * Revision 1.2  1999/08/15 02:19:41  gerd
- *     Some new explanations: That unknown elements are not rejected
- * if the DTD allows them.
- *
- * Revision 1.1  1999/08/10 00:35:51  gerd
- *     Initial revision.
- *
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_dtd.ml b/helm/DEVEL/pxp/pxp/pxp_dtd.ml
deleted file mode 100644 (file)
index ee62c4f..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_dtd.ml
+++ /dev/null
@@ -1,1090 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright by Gerd Stolpmann. See LICENSE for details.
- *)
-
-open Pxp_types
-open Pxp_lexer_types
-open Pxp_lexers
-open Pxp_entity
-open Pxp_aux
-open Pxp_dfa
-
-(**********************************************************************)
-
-class dtd  the_warner init_encoding =
-  object (self)
-    val mutable root = (None : string option)
-    val mutable id =   (None : dtd_id option)
-
-    val warner       = (the_warner : collect_warnings)
-    val encoding     = init_encoding
-    val lexerset     = Pxp_lexers.get_lexer_set init_encoding
-
-    val elements     = (Hashtbl.create 100 : (string,dtd_element) Hashtbl.t)
-    val gen_entities = (Hashtbl.create 100 : (string,entity * bool) Hashtbl.t)
-    val par_entities = (Hashtbl.create 100 : (string,entity) Hashtbl.t)
-    val notations    = (Hashtbl.create 100 : (string,dtd_notation) Hashtbl.t)
-    val pinstr       = (Hashtbl.create 100 : (string,proc_instruction) Hashtbl.t)
-    val mutable element_names = []
-    val mutable gen_entity_names = []
-    val mutable par_entity_names = []
-    val mutable notation_names = []
-    val mutable pinstr_names = []
-
-    val mutable allow_arbitrary = false
-    val mutable standalone_declaration = false
-
-    val mutable validated = false
-
-    initializer
-    let w = new drop_warnings in
-    self # add_gen_entity 
-      (new internal_entity self "lt"   w "<" false false false encoding)
-      false;
-    self # add_gen_entity 
-      (new internal_entity self "gt"   w ">"     false false false encoding)
-      false;
-    self # add_gen_entity 
-      (new internal_entity self "amp"  w "&" false false false encoding)
-      false;
-    self # add_gen_entity 
-      (new internal_entity self "apos" w "'"     false false false encoding)
-      false;
-    self # add_gen_entity 
-      (new internal_entity self "quot" w """     false false false encoding)
-      false;
-
-
-    method encoding = encoding
-
-    method warner = warner
-
-    method set_root r =
-      if root = None then
-       root <- Some r
-      else
-       assert false
-
-
-    method set_id j =
-      if id = None then
-       id <- Some j
-      else
-       assert false
-
-
-    method standalone_declaration = standalone_declaration
-
-    method set_standalone_declaration b =
-      standalone_declaration <- b
-
-    method allow_arbitrary =
-      allow_arbitrary <- true
-
-    method disallow_arbitrary =
-      allow_arbitrary <- false
-
-    method arbitrary_allowed = allow_arbitrary
-
-    method root = root
-    method id = id
-
-
-    method add_element el =
-      (* raises Not_found if 'el' has already been added *)
-      (* Note: 'el' is encoded in the same way as 'self'! *)
-      let name = el # name in
-      check_name warner name;
-      if Hashtbl.mem elements name then
-       raise Not_found;
-      Hashtbl.add elements name el;
-      element_names <- name :: element_names;
-      validated <- false
-
-
-    method add_gen_entity en extdecl =
-      (* The following is commented out; perhaps there should be an option
-       * to reactivate it on demand
-       *)
-      (* raises Validation_error if the predefines entities 'lt', 'gt', 'amp',
-       * 'quot', and 'apos' are redeclared with an improper value.
-       *)
-      if en # encoding <> encoding then
-       failwith "Pxp_dtd.dtd # add_gen_entity: Inconsistent encodings";
-      let name = en # name in
-      check_name warner name;
-      if Hashtbl.mem gen_entities name then begin
-       if List.mem name [ "lt"; "gt"; "amp"; "quot"; "apos" ] then begin
-         (* These are allowed to be declared several times *)
-         let (rt,_) = en # replacement_text in
-         let toks = tokens_of_content_string lexerset rt in
-         try
-           begin match toks with
-             [CRef 60]       -> if name <> "lt"   then raise Not_found
-           | [CharData ">"]  -> if name <> "gt"   then raise Not_found
-           | [CRef 62]       -> if name <> "gt"   then raise Not_found
-           | [CRef 38]       -> if name <> "amp"  then raise Not_found
-           | [CharData "'"]  -> if name <> "apos" then raise Not_found
-           | [CRef 39]       -> if name <> "apos" then raise Not_found
-           | [CharData "\""] -> if name <> "quot" then raise Not_found
-           | [CRef 34]       -> if name <> "quot" then raise Not_found
-           | _               -> raise Not_found
-           end
-         with
-             Not_found ->
-               raise (Validation_error("Predefined entity `" ^ name ^
-                                       "' redeclared"))
-       end
-       else
-         warner # warn ("Entity `" ^ name ^ "' declared twice")
-      end
-      else begin
-       Hashtbl.add gen_entities name (en, extdecl);
-       gen_entity_names <- name :: gen_entity_names
-      end
-
-
-    method add_par_entity en =
-      if en # encoding <> encoding then
-       failwith "Pxp_dtd.dtd # add_par_entity: Inconsistent encodings";
-      let name = en # name in
-      check_name warner name;
-      if not (Hashtbl.mem par_entities name) then begin
-       Hashtbl.add par_entities name en;
-       par_entity_names <- name :: par_entity_names
-      end
-      else
-       warner # warn ("Entity `" ^ name ^ "' declared twice")
-
-
-    method add_notation no =
-      (* raises Validation_error if 'no' already added *)
-      if no # encoding <> encoding then
-       failwith "Pxp_dtd.dtd # add_notation: Inconsistent encodings";
-      let name = no # name in
-      check_name warner name;
-      if Hashtbl.mem notations name then
-       raise (Validation_error("Notation `" ^ name ^ "' declared twice"));
-      Hashtbl.add notations name no;
-      notation_names <- name :: notation_names
-
-
-    method add_pinstr pi =
-      if pi # encoding <> encoding then
-       failwith "Pxp_dtd.dtd # add_pinstr: Inconsistent encodings";
-      let name = pi # target in
-      check_name warner name;
-
-      if String.length name >= 4 && String.sub name 0 4 = "pxp:" then begin
-       match name with
-           "pxp:dtd" -> 
-             let _, optname, atts = pi # parse_pxp_option in
-             begin match optname with
-                 "optional-element-and-notation-declarations" ->
-                   self # allow_arbitrary
-               | "optional-attribute-declarations" ->
-                   let lexers = Pxp_lexers.get_lexer_set encoding in
-                   let el_string = 
-                     try List.assoc "elements" atts
-                     with Not_found ->
-                       raise(Error("Missing `elements' attribute for pxp:dtd"))
-                   in
-                   let el = split_attribute_value lexers el_string in
-                   List.iter
-                     (fun e_name ->
-                        let e =
-                          try Hashtbl.find elements e_name
-                          with
-                              Not_found ->
-                                raise(Error("Reference to unknown element `" ^
-                                            e_name ^ "'"))
-                        in
-                        e # allow_arbitrary
-                     )
-                     el
-               | _ ->
-                   raise(Error("Unknown PXP option `" ^ 
-                               optname ^ "'"))
-             end
-         | _ ->
-             raise(Error("The processing instruction target `" ^ 
-                         name ^ "' is not defined by this PXP version"))
-      end
-      else begin
-       (*----------------------------------------------------------------------
-        * SUPPORT FOR DEPRECATED PI OPTIONS:
-        * - <?xml:allow_undeclared_elements_and_notations?>
-        *   is now <?pxp:dtd optional-element-and-notation-declarations?>
-        * - <?xml:allow_undeclared_attributes <elementname>?>
-        *   is now <?pxp:dtd optional-attribute-declarations 
-        *            elements='<elementname> ...'?>
-        * Please update your DTDs! Alternatively, you may uncommment the
-        * following piece of code.
-        *)
-(*         if name = "xml:allow_undeclared_elements_and_notations" then *)
-(*           self # allow_arbitrary; *)
-(*         if name = "xml:allow_undeclared_attributes" then begin *)
-(*           let v = pi # value in *)
-(*           let e =  *)
-(*             try *)
-(*               Hashtbl.find elements v *)
-(*             with *)
-(*                 Not_found -> *)
-(*                   raise(Validation_error("Reference to undeclared element `"*)
-(*                   ^ v ^ "'")) *)
-(*           in *)
-(*           e # allow_arbitrary; *)
-(*         end; *)
-       (*----------------------------------------------------------------------
-        *)
-       ()
-      end;
-      Hashtbl.add pinstr name pi;
-      pinstr_names <- name :: pinstr_names;
-
-
-    method element name =
-      (* returns the element 'name' or raises Validation_error if not found *)
-      try
-       Hashtbl.find elements name
-      with
-         Not_found ->
-           if allow_arbitrary then
-             raise Undeclared
-           else
-             raise(Validation_error("Reference to undeclared element `" ^ name ^ "'"))
-
-    method element_names =
-      (* returns the list of all names of element declarations *)
-      element_names
-
-
-    method gen_entity name =
-      (* returns the entity 'name' or raises WF_error if not found *)
-      try
-       Hashtbl.find gen_entities name
-      with
-         Not_found ->
-           raise(WF_error("Reference to undeclared general entity `" ^ name ^ "'"))
-
-
-    method gen_entity_names = gen_entity_names
-
-
-    method par_entity name =
-      (* returns the entity 'name' or raises WF_error if not found *)
-      try
-       Hashtbl.find par_entities name
-      with
-         Not_found ->
-           raise(WF_error("Reference to undeclared parameter entity `" ^ name ^ "'"))
-
-
-    method par_entity_names = par_entity_names
-
-
-    method notation name =
-      (* returns the notation 'name' or raises Validation_error if not found *)
-      try
-       Hashtbl.find notations name
-      with
-         Not_found ->
-           if allow_arbitrary then
-             raise Undeclared
-           else
-             raise(Validation_error("Reference to undeclared notation `" ^ name ^ "'"))
-
-
-    method notation_names = notation_names
-
-
-    method pinstr name =
-      (* returns the list of all processing instructions contained in the DTD
-       * with target 'name'
-       *)
-      Hashtbl.find_all pinstr name
-
-
-    method pinstr_names = pinstr_names
-
-    method write os enc doctype = 
-      let wms = 
-       write_markup_string ~from_enc:encoding ~to_enc:enc os in
-
-      let write_sysid s =
-       if String.contains s '"' then
-         wms ("'" ^ s ^ "'")
-       else
-         wms ("\"" ^ s ^ "\"");
-      in
-
-      if doctype then begin
-       wms "<!DOCTYPE ";
-       ( match root with
-           None -> failwith "#write: DTD without root";
-         | Some r -> wms r
-       );
-       wms " [\n";
-      end;
-
-      (* Notations: *)
-      List.iter
-       (fun name ->
-          let notation = 
-            try Hashtbl.find notations name with Not_found -> assert false in
-          notation # write os enc)
-       (List.sort compare notation_names);
-
-      (* Unparsed entities: *)
-      List.iter
-       (fun name ->
-          let ent,_ = 
-            try Hashtbl.find gen_entities name with Not_found -> assert false 
-          in
-          if ent # is_ndata then begin
-            let xid = ent # ext_id in
-            let notation = ent # notation in
-            wms ("<!ENTITY " ^ name ^ " " );
-            ( match xid with
-                  System s ->
-                    wms "SYSTEM ";
-                    write_sysid s;
-                | Public (p,s) ->
-                    wms "PUBLIC ";
-                    write_sysid p;
-                    if (s <> "") then begin
-                      wms " ";
-                      write_sysid s;
-                    end;
-                | Anonymous ->
-                    failwith "#write: External ID Anonymous cannot be represented"
-            );
-            wms (" NDATA " ^ notation ^ ">\n");
-          end
-       )
-       (List.sort compare gen_entity_names);
-
-      (* Elements: *)
-      List.iter
-       (fun name ->
-          let element = 
-            try Hashtbl.find elements name with Not_found -> assert false in
-          element # write os enc)
-       (List.sort compare element_names);
-
-      (* Processing instructions: *)
-      List.iter
-       (fun name ->
-          let pi = 
-            try Hashtbl.find pinstr name with Not_found -> assert false in
-          pi # write os enc)
-       (List.sort compare pinstr_names);
-
-      if doctype then 
-       wms "]>\n";
-
-    method write_compact_as_latin1 os doctype = 
-      self # write os `Enc_iso88591 doctype
-
-
-
-    (************************************************************)
-    (*                    VALIDATION                            *)
-    (************************************************************)
-
-    method only_deterministic_models =
-      Hashtbl.iter
-       (fun n el ->
-          let cm = el # content_model in
-          match cm with
-              Regexp _ ->
-                if el # content_dfa = None then
-                  raise(Validation_error("The content model of element `" ^
-                                         n ^ "' is not deterministic"))
-            | _ ->
-                ()
-       )
-       elements;
-      
-
-    method validate =
-      if validated or allow_arbitrary then
-       ()
-      else begin
-       (* Validity constraint: Notations in NDATA entity declarations must
-        * be declared
-        *)
-       List.iter
-         (fun name ->
-            let ent,_ = 
-              try Hashtbl.find gen_entities name with Not_found -> assert false 
-            in
-            if ent # is_ndata then begin
-              let xid = ent # ext_id in
-              let notation = ent # notation in
-              try
-                ignore(self # notation notation)
-                  (* Raises Validation_error if the constraint is violated *)
-              with
-                  Undeclared -> ()
-            end
-         )
-         gen_entity_names;
-
-       (* Validate the elements: *)
-       Hashtbl.iter
-         (fun n el ->
-            el # validate)
-         elements;
-
-       (* Check the root element: *)
-       (* TODO: Check if this piece of code is executed at all! *)
-       begin match root with
-           None -> ()
-         | Some r ->
-             begin try
-               let _ = Hashtbl.find elements r in ()
-             with
-                 Not_found ->
-                   raise(Validation_error("The root element is not declared"))
-             end
-       end;
-       validated <- true;
-      end
-
-    method invalidate =
-      validated <- false
-
-    (************************************************************)
-
-  end
-
-
-(**********************************************************************)
-
-and dtd_element the_dtd the_name =
-  object (self)
-    val dtd = (the_dtd : dtd)
-    val name = the_name
-    val lexerset = Pxp_lexers.get_lexer_set (the_dtd # encoding)
-    val mutable content_model = Unspecified
-    val mutable content_model_validated = false
-    val mutable content_dfa = lazy None
-
-    val mutable externally_declared = false
-
-    val mutable attributes = 
-           ([] : (string * ((att_type * att_default) * bool)) list)
-    val mutable attributes_validated = false
-
-    val mutable id_att_name = None
-    val mutable idref_att_names = []
-
-    val mutable allow_arbitrary = false
-
-    method name = name
-
-    method set_cm_and_extdecl m extdecl =
-      if content_model = Unspecified then begin
-       content_model <- m;
-       content_model_validated <- false;
-       content_dfa <- lazy (self # compute_content_dfa);
-       externally_declared <- extdecl;
-       dtd # invalidate
-      end
-      else
-       raise(Validation_error("Element `" ^ name ^ "' has already a content model"))
-
-    method content_model = content_model
-
-    method content_dfa = Lazy.force content_dfa
-      
-    method private compute_content_dfa =
-      match content_model with
-         Regexp re ->
-           ( try Some (dfa_of_regexp_content_model re)
-             with Not_found -> None
-           )
-       | _ ->
-           None
-
-    method externally_declared = externally_declared
-
-    method encoding = dtd # encoding
-
-    method allow_arbitrary =
-      allow_arbitrary <- true
-
-    method disallow_arbitrary =
-      allow_arbitrary <- false
-
-    method arbitrary_allowed = allow_arbitrary
-
-    method add_attribute aname t d extdecl =
-      if aname <> "xml:lang" & aname <> "xml:space" then
-       check_name (dtd#warner) aname;
-      if List.mem_assoc aname attributes then
-       dtd # warner # warn ("More than one declaration for attribute `" ^
-                            aname ^ "' of element type `" ^ name ^ "'")
-      else begin
-       begin match aname with
-           "xml:space" ->
-             begin match t with
-                 A_enum l ->
-                   let l' = Sort.list ( <= ) l in
-                   if l' <> [ "default"; "preserve" ] then
-                     raise(Validation_error("Declaration of attribute `xml:space' does not conform to XML specification"))
-               | _ ->
-                   raise(Validation_error("Declaration of attribute `xml:space' does not conform to XML specification"))
-             end
-         | _ -> ()
-       end; 
-       begin match t with
-           A_id ->
-             id_att_name <- Some aname;
-         | (A_idref | A_idrefs) ->
-             idref_att_names <- aname :: idref_att_names
-         | _ ->
-             ()
-       end;
-       attributes <- (aname, ((t,d),extdecl)) :: attributes;
-       attributes_validated <- false;
-       dtd # invalidate;
-      end
-
-    method attribute attname =
-      try
-       fst (List.assoc attname attributes)
-      with
-         Not_found ->
-           if allow_arbitrary then
-             raise Undeclared
-           else
-             raise(Validation_error("Attribute `" ^ attname ^ "' of element `"
-                                    ^ name ^ "' not declared"))
-
-    method attribute_violates_standalone_declaration attname v =
-      try
-       let (atype, adefault), extdecl = List.assoc attname attributes in
-       extdecl &&
-       ( match v with
-             None -> 
-               adefault <> D_required && adefault <> D_implied
-               (* i.e. adefault matches D_default or D_fixed *)
-           | Some s ->
-               atype <> A_cdata &&
-               normalization_changes_value lexerset atype s
-       )
-      with
-         Not_found ->
-           if allow_arbitrary then
-             raise Undeclared
-           else
-             raise(Validation_error("Attribute `" ^ attname ^ "' of element `"
-                                    ^ name ^ "' not declared"))
-
-
-    method attribute_names =
-      List.map fst attributes
-
-    method names_of_required_attributes =
-      List.flatten
-       (List.map
-          (fun (n,((t,d),_)) ->
-             if d = D_required then
-               [n]
-             else
-               [])
-          attributes)
-
-    method id_attribute_name = id_att_name
-
-    method idref_attribute_names = idref_att_names
-
-
-    method write os enc = 
-      let encoding = self # encoding in
-      let wms = 
-       write_markup_string ~from_enc:encoding ~to_enc:enc os in
-
-      let rec write_contentspec cs =
-       match cs with
-           Unspecified ->
-             failwith "#write: Unspecified content model found"
-         | Empty ->
-             wms "EMPTY"
-         | Any ->
-             wms "ANY"
-         | Mixed ml ->
-             wms "(";
-             write_mixedspec_list ml;
-             wms ")*";
-         | Regexp re ->
-             write_children re false
-
-      and write_mixedspec_list ml =
-       match ml with
-           MPCDATA :: ml' ->
-             wms "#PCDATA";
-             if ml' <> [] then wms "|";
-             write_mixedspec_list ml';
-         | MChild s :: ml' ->
-             wms s;
-             if ml' <> [] then wms "|";
-             write_mixedspec_list ml';
-         | [] ->
-             ()
-
-      and write_children re cp =
-       match re with
-           Optional re' ->
-             let p = needs_parens re' in
-             if p then wms "(";
-             write_children re' cp;
-             if p then wms ")";
-             wms "?";
-         | Repeated re' ->
-             let p = needs_parens re' in
-             if p then wms "(";
-             write_children re' cp;
-             if p then wms ")";
-             wms "*";
-         | Repeated1 re' ->
-             let p = needs_parens re' in
-             if p then wms "(";
-             write_children re' cp;
-             if p then wms ")";
-             wms "+";
-         | Alt re' ->
-             wms "(";
-             ( match re' with
-                   re1' :: rer' ->
-                     write_children re1' true;
-                     List.iter
-                       (fun ren' ->
-                          wms "|";
-                          write_children ren' true;
-                       )
-                       rer';
-                 | [] ->
-                     failwith "#write: Illegal content model"
-             );
-             wms ")";
-         | Seq re' ->
-             wms "(";
-             ( match re' with
-                   re1' :: rer' ->
-                     write_children re1' true;
-                     List.iter
-                       (fun ren' ->
-                          wms ",";
-                          write_children ren' true;
-                       )
-                       rer';
-                 | [] ->
-                     failwith "#write: Illegal content model"
-             );
-             wms ")";
-         | Child ch ->
-             if not cp then wms "(";
-             wms ch;
-             if not cp then wms ")";
-
-      and needs_parens re =
-       match re with
-           (Optional _ | Repeated _ | Repeated1 _ ) -> true
-         | _ -> false
-      in
-
-      wms ("<!ELEMENT " ^ name ^ " ");
-      write_contentspec content_model;
-      wms ">\n";
-
-      wms ("<!ATTLIST " ^ name);
-      List.iter
-       (fun (n,((t,d),_)) ->
-          wms ("\n  " ^ n);
-          ( match t with
-                A_cdata       -> wms " CDATA";
-              | A_id          -> wms " ID";
-              | A_idref       -> wms " IDREF";
-              | A_idrefs      -> wms " IDREFS";
-              | A_entity      -> wms " ENTITY";
-              | A_entities    -> wms " ENTITIES";
-              | A_nmtoken     -> wms " NMTOKEN";
-              | A_nmtokens    -> wms " NMTOKENS";
-              | A_notation nl -> 
-                  wms " NOTATION (";
-                  ( match nl with
-                        nl1:: nl' ->
-                          wms nl1;
-                          List.iter
-                            (fun n ->
-                               wms ("|" ^ n);
-                            )
-                            nl'
-                      | [] ->
-                          failwith "#write: Illegal content model";
-                  );
-                  wms ")";
-              | A_enum el     ->
-                  wms " (";
-                  ( match el with
-                        el1:: el' ->
-                          wms el1;
-                          List.iter
-                            (fun e ->
-                               wms ("|" ^ e);
-                            )
-                            el'
-                      | [] ->
-                          failwith "#write: Illegal content model";
-                  );
-                  wms ")";
-          );
-          ( match d with
-                D_required -> wms " #REQUIRED"
-              | D_implied  -> wms " #IMPLIED"
-              | D_default s ->
-                  wms " \"";
-                  write_data_string ~from_enc:encoding ~to_enc:enc os s;
-                  wms "\"";
-              | D_fixed s ->
-                  wms " FIXED \"";
-                  write_data_string ~from_enc:encoding ~to_enc:enc os s;
-                  wms "\"";
-          );
-       )
-       attributes;
-
-      wms ">\n";
-
-    method write_compact_as_latin1 os = 
-      self # write os `Enc_iso88591
-
-    (************************************************************)
-    (*                    VALIDATION                            *)
-    (************************************************************)
-
-    method validate =
-      self # validate_attributes();
-      self # validate_content_model()
-
-    method private validate_attributes() =
-      if attributes_validated then
-       ()
-      else begin
-       (* Validity Constraint: One ID per Element Type *)
-       let n = count (fun (n,((t,d),_)) -> t = A_id) attributes in
-       if n > 1 then
-         raise(Validation_error("More than one ID attribute for element `" ^ name ^ "'"));
-       (* Validity Constraint: ID Attribute Default *)
-       if List.exists
-            (fun (n,((t,d),_)) ->
-               t = A_id & (d <> D_required & d <> D_implied))
-            attributes
-       then
-         raise(Validation_error("ID attribute must be #IMPLIED or #REQUIRED; element `" ^ name ^ "'"));
-       (* Validity Constraint: One Notation per Element Type *)
-       let n = count (fun (n,((t,d),_)) ->
-                        match t with A_notation _ -> true | _ -> false)
-                     attributes in
-       if n > 1 then
-         raise(Validation_error("More than one NOTATION attribute for element `" ^ name ^ "'"));
-       (* Validity Constraint: Notation Attributes [second part] *)
-       List.iter
-         (fun (n,((t,d),_)) ->
-            match t with
-                A_notation l ->
-                  List.iter
-                    (fun nname ->
-                       let _ = dtd # notation nname in ())
-                    l
-              | _ -> ())
-         attributes;
-       (* Validity Constraint: Attribute Default Legal *)
-       List.iter
-         (fun (n,((t,d),_)) ->
-
-            let check v =
-              let lexical_error() =
-                lazy (raise(Validation_error("Default value for attribute `" ^ n ^ "' is lexically malformed"))) in
-              check_attribute_value_lexically lexerset (lexical_error()) t v;
-              begin match t with
-                  (A_entity|A_entities) ->
-                    List.iter
-                      (fun nd ->
-                         let en, extdecl = dtd # gen_entity nd in
-                         if not (en # is_ndata) then
-                           raise(Validation_error("Attribute default value must be the name of an NDATA entity; attribute `" ^ n ^ "' in declaration for element `" ^ name ^ "'"));
-(*                       if dtd # standalone_declaration && extdecl then
-                           raise(Validation_error("Attribute default value violates the standalone declaration; attribute `" ^ n ^ "' in declaration for element `" ^ name ^ "'")); 
--- This is checked anyway when the attribute value is normalized
-*)
-                      )
-                      (split_attribute_value lexerset v)
-                | A_notation nl ->
-                    if not (List.mem v nl) then
-                      raise(Validation_error("Illegal default value for attribute `" ^ n ^ "' in declaration for element `" ^ name ^ "'"));
-                | A_enum nl ->
-                    if not (List.mem v nl) then
-                      raise(Validation_error("Illegal default value for attribute `" ^ n ^ "' in declaration for element `" ^ name ^ "'"));
-                | _          -> ()
-              end
-            in
-
-            match d with
-                D_required -> ()
-              | D_implied -> ()
-              | D_default v -> check v
-              | D_fixed v   -> check v
-         )
-         attributes;
-
-       (* Ok: This element declaration is valid *)
-       attributes_validated <- true;
-
-      end
-
-    method private validate_content_model () =
-      (* checks:
-       * - Validity Constraint: No Duplicate Types
-       * It is not an error if there is a child in the declaration for which
-       * no element declaration is provided.
-       *)
-      match content_model with
-         Unspecified ->
-           dtd # warner # warn ("Element type `" ^ name ^ "' mentioned but not declared");
-           ()
-       | Empty -> ()
-       | Any -> ()
-       | Mixed (pcdata :: l) ->
-           (* MPCDATA is always the first element by construction *)
-           assert (pcdata = MPCDATA);
-           if check_dups l then
-             raise (Validation_error("Double children in declaration for element `" ^ name ^ "'"))
-       | Regexp _ -> ()
-       | _ -> assert false
-
-
-
-    (************************************************************)
-
-  end
-
-and dtd_notation the_name the_xid init_encoding =
-object (self)
-    val name = the_name
-    val xid = (the_xid : ext_id)
-    val encoding = (init_encoding : Pxp_types.rep_encoding)
-    method name = name
-    method ext_id = xid
-    method encoding = encoding
-
-    method write os enc = 
-      let wms = 
-       write_markup_string ~from_enc:encoding ~to_enc:enc os in
-
-      let write_sysid s =
-       if String.contains s '"' then
-         wms ("'" ^ s ^ "'")
-       else
-         wms ("\"" ^ s ^ "\"");
-      in
-
-      wms ("<!NOTATION " ^ name ^ " ");
-      ( match xid with
-           System s ->
-             wms "SYSTEM ";
-             write_sysid s;
-         | Public (p,s) ->
-             wms "PUBLIC ";
-             write_sysid p;
-             if (s <> "") then begin
-               wms " ";
-               write_sysid s;
-             end;
-         | Anonymous ->
-             failwith "#write: External ID Anonymous cannot be represented"
-      );
-      wms ">\n";
-
-    method write_compact_as_latin1 os = 
-      self # write os `Enc_iso88591 
-
-  end
-
-and proc_instruction the_target the_value init_encoding =
-object (self)
-    val target = the_target
-    val value = (the_value : string)
-    val encoding = (init_encoding : Pxp_types.rep_encoding)
-
-    initializer
-      match target with
-         ("xml"|"xmL"|"xMl"|"xML"|"Xml"|"XmL"|"XMl"|"XML") ->
-           (* This is an error, not a warning, because I do not have a
-            * "warner" object by hand.
-            *)
-           raise(WF_error("Reserved processing instruction"))
-       | _ -> ()
-
-    method target = target
-    method value = value
-    method encoding = encoding
-
-    method write os enc = 
-      let wms = 
-       write_markup_string ~from_enc:encoding ~to_enc:enc os in
-
-      wms "<?";
-      wms target;
-      wms " ";
-      wms value;
-      wms "?>";
-
-    method write_compact_as_latin1 os = 
-      self # write os `Enc_iso88591
-
-    method parse_pxp_option =
-      let lexers = get_lexer_set encoding in
-      try
-       let toks = tokens_of_xml_pi lexers value in   (* may raise WF_error *)
-       begin match toks with
-           (Pro_name option_name) :: toks' ->
-             let atts = decode_xml_pi toks' in       (* may raise WF_error *)
-             (target, option_name, atts)
-         | _ ->
-             raise(Error("Bad PXP processing instruction"))
-       end
-      with
-         WF_error _ ->
-           raise(Error("Bad PXP processing instruction"))
-
-  end
-;;
-
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.10  2000/08/18 21:18:45  gerd
- *     Updated wrong comments for methods par_entity and gen_entity.
- * These can raise WF_error and not Validation_error, and this is the
- * correct behaviour.
- *
- * Revision 1.9  2000/07/25 00:30:01  gerd
- *     Added support for pxp:dtd PI options.
- *
- * Revision 1.8  2000/07/23 02:16:34  gerd
- *     Support for DFAs.
- *
- * Revision 1.7  2000/07/16 17:50:01  gerd
- *     Fixes in 'write'
- *
- * Revision 1.6  2000/07/16 16:34:41  gerd
- *     New method 'write', the successor of 'write_compact_as_latin1'.
- *
- * Revision 1.5  2000/07/14 13:56:48  gerd
- *     Added methods id_attribute_name and idref_attribute_names.
- *
- * Revision 1.4  2000/07/09 00:13:37  gerd
- *     Added methods gen_entity_names, par_entity_names.
- *
- * Revision 1.3  2000/07/04 22:10:55  gerd
- *     Update: collect_warnings -> drop_warnings.
- *     Update: Case ext_id = Anonymous.
- *
- * Revision 1.2  2000/06/14 22:19:06  gerd
- *     Added checks such that it is impossible to mix encodings.
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- *
- * Revision 1.18  2000/05/28 17:24:55  gerd
- *     Bugfixes.
- *
- * Revision 1.17  2000/05/27 19:21:25  gerd
- *     Implemented the changes of rev. 1.10 of markup_dtd.mli.
- *
- * Revision 1.16  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.15  2000/05/14 21:50:07  gerd
- *     Updated: change in internal_entity.
- *
- * Revision 1.14  2000/05/06 23:08:46  gerd
- *     It is possible to allow undeclared attributes.
- *
- * Revision 1.13  2000/05/01 20:42:46  gerd
- *         New method write_compact_as_latin1.
- *
- * Revision 1.12  2000/05/01 15:16:57  gerd
- *     The errors "undeclared parameter/general entities" are
- * well-formedness errors, not validation errors.
- *
- * Revision 1.11  2000/03/11 22:58:15  gerd
- *     Updated to support Markup_codewriter.
- *
- * Revision 1.10  2000/01/20 20:53:47  gerd
- *     Changed such that it runs with Markup_entity's new interface.
- *
- * Revision 1.9  1999/11/09 22:15:41  gerd
- *     Added method "arbitrary_allowed".
- *
- * Revision 1.8  1999/09/01 22:52:22  gerd
- *     If 'allow_arbitrary' is in effect, no validation happens anymore.
- *
- * Revision 1.7  1999/09/01 16:21:24  gerd
- *     Added several warnings.
- *     The attribute type of "xml:space" is now strictly checked.
- *
- * Revision 1.6  1999/08/15 20:34:21  gerd
- *     Improved error messages.
- *     Bugfix: It is no longer allowed to create processing instructions
- * with target "xml".
- *
- * Revision 1.5  1999/08/15 02:20:16  gerd
- *     New feature: a DTD can allow arbitrary elements.
- *
- * Revision 1.4  1999/08/15 00:21:39  gerd
- *     Comments have been updated.
- *
- * Revision 1.3  1999/08/14 22:12:52  gerd
- *         Several functions have now a "warner" as argument which is
- * an object with a "warn" method. This is used to warn about characters
- * that cannot be represented in the Latin 1 alphabet.
- *     Bugfix: if two general entities with the same name are definied,
- * the first counts, not the second.
- *
- * Revision 1.2  1999/08/11 14:56:35  gerd
- *     Declaration of the predfined entities {lt,gt,amp,quot,apos}
- * is no longer forbidden; but the original definition cannot be overriddden.
- *     TODO: If these entities are redeclared with problematic values,
- * the user should be warned.
- *
- * Revision 1.1  1999/08/10 00:35:51  gerd
- *     Initial revision.
- *
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_dtd.mli b/helm/DEVEL/pxp/pxp/pxp_dtd.mli
deleted file mode 100644 (file)
index 1c347fb..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_dtd.mli
+++ /dev/null
@@ -1,476 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright by Gerd Stolpmann. See LICENSE for details.
- *)
-
-(*$ markup-dtd1.mli *)
-
-(**********************************************************************)
-(*                                                                    *)
-(* Pxp_dtd:                                                           *)
-(*     Object model of document type declarations                     *)
-(*                                                                    *)
-(**********************************************************************)
-
-(* ======================================================================
- * OVERVIEW
- *
- * class dtd ............... represents the whole DTD, including element
- *                           declarations, entity declarations, notation
- *                           declarations, and processing instructions
- * class dtd_element ....... represents an element declaration consisting
- *                           of a content model and an attribute list
- *                           declaration
- * class dtd_notation ...... represents a notation declaration
- * class proc_instruction .. represents a processing instruction
- * ======================================================================
- *
- *)
-
-
-class dtd :
-  (* Creation:
-   *   new dtd
-   * creates a new, empty DTD object without any declaration, without a root
-   * element, without an ID.
-   *)
-  Pxp_types.collect_warnings -> 
-  Pxp_types.rep_encoding ->
-  object
-    method root : string option
-      (* get the name of the root element if present *)
-
-    method set_root : string -> unit
-      (* set the name of the root element. This method can be invoked 
-       * only once
-       *)
-
-    method id : Pxp_types.dtd_id option
-      (* get the identifier for this DTD *)
-
-    method set_id : Pxp_types.dtd_id -> unit
-      (* set the identifier. This method can be invoked only once *)
-
-    method encoding : Pxp_types.rep_encoding
-      (* returns the encoding used for character representation *)
-
-
-    method allow_arbitrary : unit
-      (* After this method has been invoked, the object changes its behaviour:
-       * - elements and notations that have not been added may be used in an
-       *   arbitrary way; the methods "element" and "notation" indicate this
-       *   by raising Undeclared instead of Validation_error.
-       *)
-
-    method disallow_arbitrary : unit
-
-    method arbitrary_allowed : bool
-      (* Returns whether arbitrary contents are allowed or not. *)
-
-    method standalone_declaration : bool
-      (* Whether there is a 'standalone' declaration or not. Strictly 
-       * speaking, this declaration is not part of the DTD, but it is
-       * included here because of practical reasons. 
-       * If not set, this property defaults to 'false'.
-       *)
-
-    method set_standalone_declaration : bool -> unit
-      (* Sets the 'standalone' declaration. *)
-
-
-    method add_element : dtd_element -> unit
-      (* add the given element declaration to this DTD. Raises Not_found
-       * if there is already an element declaration with the same name.
-       *)
-
-    method add_gen_entity : Pxp_entity.entity -> bool -> unit
-      (* add_gen_entity e extdecl:
-       * add the entity 'e' as general entity to this DTD (general entities
-       * are those represented by &name;). If there is already a declaration
-       * with the same name, the second definition is ignored; as exception from
-       * this rule, entities with names "lt", "gt", "amp", "quot", and "apos"
-       * may only be redeclared with a definition that is equivalent to the
-       * standard definition; otherwise a Validation_error is raised.
-       *
-       * 'extdecl': 'true' indicates that the entity declaration occurs in
-       * an external entity. (Used for the standalone check.)
-       *)
-
-    method add_par_entity : Pxp_entity.entity -> unit
-      (* add the given entity as parameter entity to this DTD (parameter
-       * entities are those represented by %name;). If there is already a 
-       * declaration with the same name, the second definition is ignored.
-       *)
-
-    method add_notation : dtd_notation -> unit
-      (* add the given notation to this DTD. If there is already a declaration
-       * with the same name, a Validation_error is raised.
-       *)
-
-    method add_pinstr : proc_instruction -> unit
-      (* add the given processing instruction to this DTD. *)
-
-    method element : string -> dtd_element
-      (* looks up the element declaration with the given name. Raises 
-       * Validation_error if the element cannot be found. (If "allow_arbitrary"
-       * has been invoked before, Unrestricted is raised instead.)
-       *)
-
-    method element_names : string list
-      (* returns the list of the names of all element declarations. *)
-
-    method gen_entity : string -> (Pxp_entity.entity * bool)
-      (* let e, extdecl = obj # gen_entity n:
-       * looks up the general entity 'e' with the name 'n'. Raises
-       * WF_error if the entity cannot be found.
-       * 'extdecl': indicates whether the entity declaration occured in an 
-       * external entity.
-       *)
-
-    method gen_entity_names : string list
-      (* returns the list of all general entity names *)
-
-    method par_entity : string -> Pxp_entity.entity
-      (* looks up the parameter entity with the given name. Raises
-       * WF_error if the entity cannot be found.
-       *)
-
-    method par_entity_names : string list
-      (* returns the list of all parameter entity names *)
-
-    method notation : string -> dtd_notation
-      (* looks up the notation declaration with the given name. Raises
-       * Validation_error if the notation cannot be found. (If "allow_arbitrary"
-       * has been invoked before, Unrestricted is raised instead.)
-       *)
-
-    method notation_names : string list
-      (* Returns the list of the names of all added notations *)
-
-    method pinstr : string -> proc_instruction list
-      (* looks up all processing instructions with the given target.
-       * The "target" is the identifier following "<?".
-       * Note: It is not possible to find out the exact position of the
-       * processing instruction.
-       *)
-
-    method pinstr_names : string list
-      (* Returns the list of the names (targets) of all added pinstrs *)
-
-    method validate : unit
-      (* ensures that the DTD is valid. This method is optimized such that
-       * actual validation is only performed if DTD has changed.
-       * If the DTD is invalid, mostly a Validation_error is raised,
-       * but other exceptions are possible, too.
-       *)
-
-    method only_deterministic_models : unit
-      (* Succeeds if all regexp content models are deterministic. 
-       * Otherwise Validation_error.
-       *)
-
-    method write : Pxp_types.output_stream -> Pxp_types.encoding -> bool -> unit
-      (* write_compact_as_latin1 os enc doctype:
-       * Writes the DTD as 'enc'-encoded string to 'os'. If 'doctype', a 
-       * DTD like <!DOCTYPE root [ ... ]> is written. If 'not doctype',
-       * only the declarations are written (the material within the
-       * square brackets).
-       *)
-
-    method write_compact_as_latin1 : Pxp_types.output_stream -> bool -> unit
-      (* DEPRECATED METHOD; included only to keep compatibility with
-       * older versions of the parser
-       *)
-
-
-    (*----------------------------------------*)
-    method invalidate : unit
-      (* INTERNAL METHOD *)
-    method warner : Pxp_types.collect_warnings
-      (* INTERNAL METHOD *)
-  end
-
-(*$-*)
-
-(*$ markup-dtd2.mli *)
-
-(* ---------------------------------------------------------------------- *)
-
-and dtd_element : dtd -> string -> 
-  (* Creation:
-   *   new dtd_element init_dtd init_name:
-   * creates a new dtd_element object for init_dtd with init_name.
-   * The strings are represented in the same encoding as init_dtd.
-   *)
-  object
-
-    method name : string
-      (* returns the name of the declared element *)
-
-    method externally_declared : bool
-      (* returns whether the element declaration occurs in an external
-       * entity.
-       *)
-
-    method content_model : Pxp_types.content_model_type
-      (* get the content model of this element declaration, or Unspecified *)
-
-    method content_dfa : Pxp_dfa.dfa_definition option
-      (* return the DFA of the content model if there is a DFA, or None.
-       * A DFA exists only for regexp style content models which are
-       * deterministic.
-       *)
-
-    method set_cm_and_extdecl : Pxp_types.content_model_type -> bool -> unit
-      (* set_cm_and_extdecl cm extdecl:
-       * set the content model to 'cm'. Once the content model is not 
-       * Unspecified, it cannot be set to a different value again.
-       * Furthermore, it is set whether the element occurs in an external
-       * entity ('extdecl').
-       *)
-
-    method encoding : Pxp_types.rep_encoding
-      (* Return the encoding of the strings *)
-
-    method allow_arbitrary : unit
-      (* After this method has been invoked, the object changes its behaviour:
-       * - attributes that have not been added may be used in an
-       *   arbitrary way; the method "attribute" indicates this
-       *   by raising Undeclared instead of Validation_error.
-       *)
-
-    method disallow_arbitrary : unit
-
-    method arbitrary_allowed : bool
-      (* Returns whether arbitrary attributes are allowed or not. *)
-
-    method attribute : string -> 
-                         Pxp_types.att_type * Pxp_types.att_default
-      (* get the type and default value of a declared attribute, or raise
-       * Validation_error if the attribute does not exist.
-       * If 'arbitrary_allowed', the exception Undeclared is raised instead
-       * of Validation_error.
-       *)
-
-    method attribute_violates_standalone_declaration : 
-               string -> string option -> bool
-      (* attribute_violates_standalone_declaration name v:
-       * Checks whether the attribute 'name' violates the "standalone"
-       * declaration if it has value 'v'.
-       * The method returns true if:
-       * - The attribute declaration occurs in an external entity, 
-       * and if one of the two conditions holds:
-       * - v = None, and there is a default for the attribute value
-       * - v = Some s, and the type of the attribute is not CDATA,
-       *   and s changes if normalized according to the rules of the
-       *   attribute type.
-       *
-       * The method raises Validation_error if the attribute does not exist.
-       * If 'arbitrary_allowed', the exception Undeclared is raised instead
-       * of Validation_error.
-       *)
-
-    method attribute_names : string list
-      (* get the list of all declared attributes *)
-
-    method names_of_required_attributes : string list
-      (* get the list of all attributes that are specified as required 
-       * attributes
-       *)
-
-    method id_attribute_name : string option
-      (* Returns the name of the attribute with type ID, or None. *)
-
-    method idref_attribute_names : string list
-      (* Returns the names of the attributes with type IDREF or IDREFS. *)
-
-    method add_attribute : string -> 
-                           Pxp_types.att_type -> 
-                          Pxp_types.att_default -> 
-                          bool ->
-                            unit
-      (* add_attribute name type default extdecl:
-       * add an attribute declaration for an attribute with the given name,
-       * type, and default value. If there is more than one declaration for
-       * an attribute name, the first declaration counts; the other declarations
-       * are ignored.
-       * 'extdecl': if true, the attribute declaration occurs in an external
-       * entity. This property is used to check the "standalone" attribute.
-       *)
-
-    method validate : unit
-      (* checks whether this element declaration (i.e. the content model and
-       * all attribute declarations) is valid for the associated DTD.
-       * Raises mostly Validation_error if the validation fails.
-       *)
-
-    method write : Pxp_types.output_stream -> Pxp_types.encoding -> unit
-      (* write_compact_as_latin1 os enc:
-       * Writes the <!ELEMENT ... > declaration to 'os' as 'enc'-encoded string.
-       *)
-
-    method write_compact_as_latin1 : Pxp_types.output_stream -> unit
-      (* DEPRECATED METHOD; included only to keep compatibility with
-       * older versions of the parser
-       *)
-  end
-
-(* ---------------------------------------------------------------------- *)
-
-and dtd_notation : string -> Pxp_types.ext_id -> Pxp_types.rep_encoding ->
-  (* Creation:
-   *    new dtd_notation a_name an_external_ID init_encoding
-   * creates a new dtd_notation object with the given name and the given
-   * external ID.
-   *)
-  object
-    method name : string
-    method ext_id : Pxp_types.ext_id
-    method encoding : Pxp_types.rep_encoding
-
-    method write : Pxp_types.output_stream -> Pxp_types.encoding -> unit
-      (* write_compact_as_latin1 os enc:
-       * Writes the <!NOTATION ... > declaration to 'os' as 'enc'-encoded 
-       * string.
-       *)
-
-    method write_compact_as_latin1 : Pxp_types.output_stream -> unit
-      (* DEPRECATED METHOD; included only to keep compatibility with
-       * older versions of the parser
-       *)
-
-  end
-
-(* ---------------------------------------------------------------------- *)
-
-and proc_instruction : string -> string -> Pxp_types.rep_encoding ->
-  (* Creation:
-   *   new proc_instruction a_target a_value
-   * creates a new proc_instruction object with the given target string and
-   * the given value string. 
-   * Note: A processing instruction is written as <?target value?>. 
-   *)
-  object
-    method target : string
-    method value : string
-    method encoding : Pxp_types.rep_encoding
-
-    method write : Pxp_types.output_stream -> Pxp_types.encoding -> unit
-      (* write os enc:
-       * Writes the <?...?> PI to 'os' as 'enc'-encoded string.
-       *)
-
-    method write_compact_as_latin1 : Pxp_types.output_stream -> unit
-      (* DEPRECATED METHOD; included only to keep compatibility with
-       * older versions of the parser
-       *)
-
-    method parse_pxp_option : (string * string * (string * string) list)
-      (* Parses a PI containing a PXP option. Such PIs are formed like:
-       *   <?target option-name option-att="value" option-att="value" ... ?>
-       * The method returns a triple
-       *   (target, option-name, [option-att, value; ...])
-       * or raises Error.
-       *)
-
-  end
-
-;;
-
-(*$-*)
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.8  2000/08/18 21:18:45  gerd
- *     Updated wrong comments for methods par_entity and gen_entity.
- * These can raise WF_error and not Validation_error, and this is the
- * correct behaviour.
- *
- * Revision 1.7  2000/07/25 00:30:01  gerd
- *     Added support for pxp:dtd PI options.
- *
- * Revision 1.6  2000/07/23 02:16:33  gerd
- *     Support for DFAs.
- *
- * Revision 1.5  2000/07/16 16:34:41  gerd
- *     New method 'write', the successor of 'write_compact_as_latin1'.
- *
- * Revision 1.4  2000/07/14 13:56:49  gerd
- *     Added methods id_attribute_name and idref_attribute_names.
- *
- * Revision 1.3  2000/07/09 00:13:37  gerd
- *     Added methods gen_entity_names, par_entity_names.
- *
- * Revision 1.2  2000/06/14 22:19:06  gerd
- *     Added checks such that it is impossible to mix encodings.
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- * Old logs from markup_dtd.ml:
- *
- * Revision 1.11  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.10  2000/05/27 19:20:38  gerd
- *     Changed the interfaces for the standalone check: New
- * methods: standalone_declaration, set_standalone_declaration,
- * externally_declared, attribute_violates_standalone_declaration.
- *     The method set_content_model has been renamed to
- * set_cm_and_extdecl; it now initializes also whether the element
- * has been declared in an external entity.
- *     Methods add_gen_entity and gen_entity pass an additional
- * boolean argument containing whether the declaration of the
- * general entity happened in an external entity.
- *     Method add_attribute expects this argument, too, which
- * states whether the declaration of the attribute happened in an
- * external entity.
- *
- * Revision 1.9  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.8  2000/05/06 23:10:26  gerd
- *     allow_arbitrary for elements, too.
- *
- * Revision 1.7  2000/05/01 20:42:52  gerd
- *         New method write_compact_as_latin1.
- *
- * Revision 1.6  2000/03/11 22:58:15  gerd
- *     Updated to support Markup_codewriter.
- *
- * Revision 1.5  2000/02/22 02:32:02  gerd
- *     Updated.
- *
- * Revision 1.4  1999/11/09 22:15:41  gerd
- *     Added method "arbitrary_allowed".
- *
- * Revision 1.3  1999/09/01 16:21:56  gerd
- *     "dtd" classes have now an argument that passes a "warner".
- *
- * Revision 1.2  1999/08/15 02:20:23  gerd
- *         New feature: a DTD can allow arbitrary elements.
- *
- * Revision 1.1  1999/08/10 00:35:51  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_entity.ml b/helm/DEVEL/pxp/pxp/pxp_entity.ml
deleted file mode 100644 (file)
index 94b21ae..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_entity.ml
+++ /dev/null
@@ -1,1292 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright by Gerd Stolpmann. See LICENSE for details.
- *)
-
-
-(* TODO:
- * - Wie verhindert man, dass ein internal entity eine XML-Dekl. im 
- *   replacement text akzeptiert?
- *)
-
-
-open Pxp_types
-open Pxp_lexer_types
-open Pxp_aux
-open Pxp_reader
-
-(* Hierarchy of parsing layers:
- *
- * - Parser: Pxp_yacc
- *   + gets input stream from the main entity object
- *   + checks most of the grammar
- *   + creates the DTD object as side-effect
- *   + creates the element tree as side-effect
- *   + creates further entity objects that are entered into the DTD
- * - Entity layer: Pxp_entity
- *   + gets input stream from the lexers, or another entity object
- *   + handles entity references: if a reference is encountered the
- *     input stream is redirected such that the tokens come from the
- *     referenced entity object
- *   + handles conditional sections
- * - Lexer layer: Pxp_lexers
- *   + gets input from lexbuffers created by resolvers
- *   + different lexers for different lexical contexts
- *   + a lexer returns pairs (token,lexid), where token is the scanned
- *     token, and lexid is the name of the lexer that must be used for
- *     the next token
- * - Resolver layer: Pxp_entity
- *   + a resolver creates the lexbuf from some character source
- *   + a resolver recodes the input and handles the encoding scheme
- *)
-
-(**********************************************************************)
-
-(* Variables of type 'state' are used to insert Begin_entity and End_entity
- * tokens into the stream.
- * - At_beginning: Nothing has been read so far
- * - First_token tok: A Begin_entity has been inserted; and the next token
- *   is 'tok' which is not Eof. (Begin_entity/End_entity must not be inserted
- *   if the entity is empty.)
- * - In_stream: After the first token has been read, but befor Eof.
- * - At_end: Eof has been read, and End_entity has been returned.
- *)
-
-type state =
-    At_beginning
-  | Inserted_begin_entity
-  | At_end
-;;
-
-
-(**********************************************************************)
-
-class virtual entity the_dtd the_name the_warner 
-              init_errors_with_line_numbers init_encoding =
-  object (self)
-    (* This class prescribes the type of all entity objects. Furthermore,
-     * the default 'next_token' mechanism is implemented.
-     *)
-
-    (* 'init_errors_with_line_numbers': whether error messages contain line
-     * numbers or not.
-     * Calculating line numbers is expensive.
-     *)
-
-    val mutable dtd = the_dtd
-    val mutable name = the_name
-    val mutable warner = the_warner
-
-    val encoding = (init_encoding : rep_encoding)
-    val lexerset = Pxp_lexers.get_lexer_set init_encoding
-
-    method encoding = encoding
-    (* method lexerset = lexerset *)
-
-    val mutable manager = None
-      (* The current entity_manager, see below *)
-
-    method private manager = 
-      ( match manager with
-           None -> assert false
-         | Some m -> m
-      : < current_entity : entity; 
-         pop_entity : unit;
-         push_entity : entity -> unit >
-      )
-
-    method set_manager m = manager <- Some m
-
-
-    val mutable lexbuf = Lexing.from_string ""
-      (* The lexical buffer currently used as character source. *)
-
-    val mutable prolog = None
-      (* Stores the initial <?xml ...?> token as PI_xml *)
-
-    val mutable prolog_pairs = []
-      (* If prolog <> None, these are the (name,value) pairs of the
-       * processing instruction.
-       *)
-
-
-    val mutable lex_id = Document
-      (* The name of the lexer that should be used for the next token *)
-
-    method set_lex_id id = lex_id <- lex_id
-
-
-
-    val mutable force_parameter_entity_parsing = false
-      (* 'true' forces that inner entities will always be embraced by
-       *        Begin_entity and End_entity.
-       * 'false': the inner entity itself decides this
-       *)
-
-    val mutable check_text_declaration = true
-      (* 'true': It is checked that the <?xml..?> declaration matches the
-       *         production TextDecl.
-       *)
-
-    val mutable normalize_newline = true
-      (* Whether this entity converts CRLF or CR to LF, or not *)
-
-
-    val mutable line = 1     (* current line *)
-    val mutable column = 0   (* current column *)
-    val mutable pos = 0      (* current absolute character position *)
-    val errors_with_line_numbers = init_errors_with_line_numbers
-
-    val mutable p_line = 1
-    val mutable p_column = 1
-
-    method line = p_line
-    method column = p_column
-
-
-    val mutable counts_as_external = false
-
-    method counts_as_external = counts_as_external
-        (* Whether the entity counts as external (for the standalone check). *)
-
-    method set_counts_as_external =
-      counts_as_external <- true
-
-
-    val mutable last_token = Bof
-      (* XXX
-       * These two variables are used to check that between certain pairs of
-       * tokens whitespaces exist. 'last_token' is simply the last token,
-       * but not Ignore, and not PERef (which both represent whitespace).
-       * 'space_seen' records whether Ignore or PERef was seen between this
-       * token and 'last_token'.
-       *)
-
-    val mutable deferred_token = None
-      (* If you set this to Some tl, the next invocations of 
-       * next_token_from_entity will return the tokens in tl.
-       * This makes it possible to insert tokens into the stream.
-       *)
-
-    val mutable debug = false
-
-    method is_ndata = false
-      (* Returns if this entity is an NDATA (unparsed) entity *)
-
-    method name = name
-
-    method virtual open_entity : bool -> lexers -> unit
-       (* open_entity force_parsing lexid:
-        * opens the entity, and the first token is scanned by the lexer
-        * 'lexid'. 'force_parsing' forces that Begin_entity and End_entity
-        * tokens embrace the inner tokens of the entity; otherwise this
-        * depends on the entity.
-        * By opening an entity, reading tokens from it, and finally closing
-        * the entity, the inclusion methods "Included",
-        * "Included if validating", and "Included as PE" can be carried out.
-        * Which method is chosen depends on the 'lexid', i.e. the lexical
-        * context: 'lexid = Content' performs "Included (if validating)" (we
-        * are always validating); 'lexid = Declaration' performs
-        * "Included as PE". The difference is which tokens are recognized,
-        * and how spaces are handled.
-        * 'force_parsing' causes that a Begin_entity token is inserted before
-        * and an End_entity token is inserted after the entity. The yacc
-        * rules allow the Begin_entity ... End_entity brace only at certain
-        * positions; this is used to restrict the possible positions where
-        * entities may be included, and to guarantee that the entity matches
-        * a certain production of the grammar ("parsed entities").
-        * 'open_entity' is currently invoked with 'force_parsing = true'
-        * for toplevel nodes, for inclusion of internal general entities,
-        * and for inclusion of parameter entities into document entities.
-        * 'force_parsing = false' is used for all other cases: External
-        * entities add the Begin_entity/End_entity tokens anyway; internal
-        * entities do not. Especially internal parameter entities referenced
-        * from non-document entities do not add these tokens.
-        *)
-
-    method virtual close_entity : lexers
-       (* close_entity:
-        * closes the entity and returns the name of the lexer that must
-        * be used to scan the next token.
-        *)
-
-    method virtual replacement_text : (string * bool)
-       (* replacement_text:
-        * returns the replacement text of the entity, and as second value,
-        * whether the replacement text was constructed by referencing
-        * external entities (directly or indirectly).
-        * This method implements the inclusion method "Included in Literal".
-        *)
-
-
-    method lexbuf = lexbuf
-
-
-    method xml_declaration =
-      (* return the (name,value) pairs of the initial <?xml name=value ...?>
-       * processing instruction.
-       *)
-      match prolog with
-         None ->
-           None
-       | Some p ->
-           Some prolog_pairs
-
-
-    method set_debugging_mode m =
-      debug <- m
-
-    method private virtual set_encoding : string -> unit
-
-
-    method full_name =
-      name
-
-
-    method next_token =
-      (* read next token from this entity *)
-
-      match deferred_token with
-         Some toklist ->
-           ( match toklist with
-                 [] -> 
-                   deferred_token <- None;
-                   self # next_token
-               | tok :: toklist' ->
-                   deferred_token <- Some toklist';
-                   if debug then
-                     prerr_endline ("- Entity " ^ name ^ ": " ^ string_of_tok tok ^ " (deferred)");
-                   tok
-           )
-       | None -> begin
-            let this_line = line
-            and this_column = column in
-           let this_pos = pos in
-           p_line <- this_line;
-           p_column <- this_column;
-           (* Read the next token from the appropriate lexer lex_id, and get the
-            * name lex_id' of the next lexer to be used.
-            *)
-           let tok, lex_id' =
-             match lex_id with
-                 Document         -> lexerset.scan_document lexbuf
-               | Document_type    -> lexerset.scan_document_type lexbuf
-               | Content          -> lexerset.scan_content lexbuf
-               | Within_tag       -> lexerset.scan_within_tag lexbuf
-               | Declaration      -> lexerset.scan_declaration lexbuf
-               | Content_comment  -> lexerset.scan_content_comment lexbuf
-               | Decl_comment     -> lexerset.scan_decl_comment lexbuf
-               | Document_comment -> lexerset.scan_document_comment lexbuf
-               | Ignored_section  -> assert false
-                     (* Ignored_section: only used by method next_ignored_token *)
-           in
-           if debug then
-             prerr_endline ("- Entity " ^ name ^ ": " ^ string_of_tok tok);
-           (* Find out the number of lines and characters of the last line: *)
-           let n_lines, n_columns =
-             if errors_with_line_numbers then
-               count_lines (Lexing.lexeme lexbuf)
-             else
-               0, (Lexing.lexeme_end lexbuf - Lexing.lexeme_start lexbuf)
-           in
-           line <- this_line + n_lines;
-           column <- if n_lines = 0 then this_column + n_columns else n_columns;
-           pos <- Lexing.lexeme_end lexbuf;
-           lex_id <- lex_id';
-           (* Throw Ignore and Comment away; Interpret entity references: *)
-           (* NOTE: Of course, references to general entities are not allowed
-            * everywhere; parameter references, too. This is already done by the
-            * lexers, i.e. &name; and %name; are recognized only where they
-            * are allowed.
-            *)
-
-           (* TODO: last_token is only used to detect Bof. Can be simplified *)
-
-           let at_bof = (last_token = Bof) in
-           last_token <- tok;
-
-           let tok' =
-             match tok with
-
-          (* Entity references: *)
-
-               | ERef n    -> 
-                    let en, extdecl = dtd # gen_entity n in
-                   if dtd # standalone_declaration && extdecl then
-                     raise
-                       (Validation_error
-                          ("Reference to entity `" ^ n ^ 
-                           "' violates standalone declaration"));
-                   en # set_debugging_mode debug;
-                   en # open_entity true lex_id;
-                   self # manager # push_entity en;
-                   en # next_token;
-               | PERef n   -> 
-                   let en = dtd # par_entity n in
-                   en # set_debugging_mode debug;
-                   en # open_entity force_parameter_entity_parsing lex_id;
-                   self # manager # push_entity en;
-                   en # next_token;
-
-          (* Convert LineEnd to CharData *)
-               | LineEnd s -> 
-                   if normalize_newline then 
-                     CharData "\n"
-                   else
-                     CharData s
-
-          (* Also normalize CDATA sections *)
-               | Cdata value as cd ->
-                   if normalize_newline then 
-                     Cdata(normalize_line_separators lexerset value)
-                   else
-                     cd
-
-          (* If there are CRLF sequences in a PI value, normalize them, too *)
-               | PI(name,value) as pi ->
-                   if normalize_newline then
-                     PI(name, normalize_line_separators lexerset value)
-                   else
-                     pi
-         
-          (* Attribute values: If they are already normalized, they are turned
-          * into Attval_nl_normalized. This is detected by other code.
-          *)
-               | Attval value as av ->
-                   if normalize_newline then
-                     av
-                   else
-                     Attval_nl_normalized value
-
-          (* Another CRLF normalization case: Unparsed_string *)
-               | Unparsed_string value as ustr ->
-                   if normalize_newline then
-                     Unparsed_string(normalize_line_separators lexerset value)
-                   else
-                     ustr
-                     
-          (* These tokens require that the entity_id parameter is set: *)
-               | Doctype _      -> Doctype       (self :> entity_id)
-               | Doctype_rangle _ ->Doctype_rangle(self :> entity_id)
-               | Dtd_begin _    -> Dtd_begin     (self :> entity_id)
-               | Dtd_end _      -> Dtd_end       (self :> entity_id)
-               | Decl_element _ -> Decl_element  (self :> entity_id)
-               | Decl_attlist _ -> Decl_attlist  (self :> entity_id)
-               | Decl_entity _  -> Decl_entity   (self :> entity_id)
-               | Decl_notation _ ->Decl_notation (self :> entity_id)
-               | Decl_rangle _  -> Decl_rangle   (self :> entity_id)
-               | Lparen _       -> Lparen        (self :> entity_id)
-               | Rparen _       -> Rparen        (self :> entity_id)
-               | RparenPlus _   -> RparenPlus    (self :> entity_id)
-               | RparenStar _   -> RparenStar    (self :> entity_id)
-               | RparenQmark _  -> RparenQmark   (self :> entity_id)
-               | Conditional_begin _ -> Conditional_begin (self :> entity_id)
-               | Conditional_body _  -> Conditional_body  (self :> entity_id)
-               | Conditional_end _   -> Conditional_end   (self :> entity_id)
-               | Tag_beg (n,_)  -> Tag_beg (n, (self :> entity_id))
-               | Tag_end (n,_)  -> Tag_end (n, (self :> entity_id))
-
-          (* End of file: *)
-
-               | Eof       -> 
-                   if debug then begin
-                     prerr_endline ("- Entity " ^ name ^ " # handle_eof");
-                     let tok = self # handle_eof in
-                     prerr_endline ("- Entity " ^ name ^ " # handle_eof: returns " ^ string_of_tok tok);
-                     tok
-                   end
-                   else
-                     self # handle_eof;
-                   
-          (* The default case. *)
-
-               | _         -> 
-                    tok
-
-           in
-           if at_bof & tok <> Eof
-           then begin
-             if debug then
-               prerr_endline ("- Entity " ^ name ^ " # handle_bof");
-             self # handle_bof tok'
-           end
-           else
-             tok'
-         end
-
-
-    (* 'handle_bof' and 'handle_eof' can be used as hooks. Behaviour:
-     *
-     * - Normally, the first token t is read in, and 'handle_bof t' is
-     *   called. The return value of this method is what is returned to
-     *   the user.
-     * - If the EOF has been reached, 'handle_eof' is called. 
-     * - BUT: If the first token is already EOF, 'handle_eof' is called
-     *   ONLY, and 'handle_bof' is NOT called.
-     *
-     * The default implementations:
-     * - handle_bof: does nothing
-     * - handle_eof: Pops the previous entity from the stack, switches back
-     *   to this entity, and returns the next token of this entity.
-     *)
-
-
-    method private handle_bof tok =
-      tok
-
-
-    method private handle_eof =
-      let mng = self # manager in
-      begin try
-       mng # pop_entity;
-       let next_lex_id = self # close_entity in
-       let en = mng # current_entity in
-       en # set_lex_id next_lex_id;
-       en # next_token
-      with
-         Stack.Empty ->
-           (* The outermost entity is at EOF *)
-           Eof
-      end
-
-
-    method next_ignored_token =
-        (* used after <![ IGNORE *)
-
-      (* TODO: Do we need a test on deferred tokens here? *)
-
-        let this_line = line
-        and this_column = column in
-       let this_pos = pos in
-       let tok, lex_id' = lexerset.scan_ignored_section lexbuf in
-       if debug then
-         prerr_endline ("- Entity " ^ name ^ ": " ^ string_of_tok tok ^ " (Ignored)");
-       let n_lines, n_columns = count_lines (Lexing.lexeme lexbuf) in
-       line <- this_line + n_lines;
-       column <- if n_lines = 0 then this_column + n_columns else n_columns;
-       pos <- Lexing.lexeme_end lexbuf;
-       match tok with
-         | Conditional_begin _ -> Conditional_begin (self :> entity_id)
-         | Conditional_end _   -> Conditional_end   (self :> entity_id)
-         | _                   -> tok
-
-
-    method process_xmldecl pl =
-      (* The parser calls this method just after the XML declaration
-       * <?xml ...?> has been detected.
-       * 'pl': This is the argument of the PI_xml token.
-       *)
-      if debug then
-       prerr_endline ("- Entity " ^ name ^ " # process_xmldecl");
-      prolog <- Some pl;
-      prolog_pairs <- decode_xml_pi pl;
-      if check_text_declaration then
-       check_text_xml_pi prolog_pairs;
-      begin
-       try
-         let e = List.assoc "encoding" prolog_pairs in
-         self # set_encoding e
-       with
-           Not_found ->
-             self # set_encoding ""
-      end;
-
-
-    method process_missing_xmldecl =
-      (* The parser calls this method if the XML declaration is missing *)
-      if debug then
-       prerr_endline ("- Entity " ^ name ^ " # process_missing_xmldecl");
-      self # set_encoding ""
-
-
-    (* Methods for NDATA entities only: *)
-    method ext_id = (assert false : ext_id)
-    method notation = (assert false : string)
-
-  end
-;;
-
-
-class ndata_entity the_name the_ext_id the_notation init_encoding =
-  object (self)
-    (* An NDATA entity is very restricted; more or less you can only find out
-     * its external ID and its notation.
-     *)
-
-    val mutable name = the_name
-    val mutable ext_id = the_ext_id
-    val mutable notation = the_notation
-    val encoding = (init_encoding : rep_encoding)
-
-    method name = (name : string)
-    method ext_id = (ext_id : ext_id)
-    method notation = (notation : string)
-
-    method is_ndata = true
-
-    method encoding = encoding
-
-
-    val mutable counts_as_external = false
-
-    method counts_as_external = counts_as_external
-        (* Whether the entity counts as external (for the standalone check). *)
-
-    method set_counts_as_external =
-      counts_as_external <- true
-
-
-    method set_manager (m : < current_entity : entity; 
-                             pop_entity : unit;
-                             push_entity : entity -> unit >) = 
-      ( raise (Validation_error ("Invalid reference to NDATA entity " ^ name))
-         : unit )
-
-    method set_lex_id (id : lexers) =
-      ( raise (Validation_error ("Invalid reference to NDATA entity " ^ name))
-         : unit )
-
-    method line =
-      ( raise (Validation_error ("Invalid reference to NDATA entity " ^ name))
-         : int )
-
-    method column =
-      ( raise (Validation_error ("Invalid reference to NDATA entity " ^ name))
-         : int )
-
-    method full_name =
-      ( raise (Validation_error ("Invalid reference to NDATA entity " ^ name))
-         : string )
-
-    method private set_encoding (_:string) =
-      assert false
-
-    method xml_declaration = (None : (string*string) list option)
-
-    method set_debugging_mode (_:bool) = ()
-
-    method open_entity (_:bool) (_:lexers) =
-      ( raise (Validation_error ("Invalid reference to NDATA entity " ^ name))
-         : unit )
-
-    method close_entity =
-      ( raise (Validation_error ("Invalid reference to NDATA entity " ^ name))
-         : lexers )
-
-    method replacement_text =
-      ( raise (Validation_error ("Invalid reference to NDATA entity " ^ name))
-         : (string * bool) )
-
-    method lexbuf =
-      ( raise (Validation_error ("Invalid reference to NDATA entity " ^ name))
-         : Lexing.lexbuf )
-
-    method next_token =
-      ( raise (Validation_error ("Invalid reference to NDATA entity " ^ name))
-         : token )
-
-    method next_ignored_token =
-      ( raise (Validation_error ("Invalid reference to NDATA entity " ^ name))
-         : token )
-
-    method process_xmldecl (pl:prolog_token list) =
-      ( raise (Validation_error ("Invalid reference to NDATA entity " ^ name))
-         : unit )
-
-    method process_missing_xmldecl =
-      ( raise (Validation_error ("Invalid reference to NDATA entity " ^ name))
-         : unit )
-
-  end
-;;
-
-
-class external_entity the_resolver the_dtd the_name the_warner the_ext_id
-                      the_p_special_empty_entities
-                     init_errors_with_line_numbers
-                     init_encoding
-  =
-  object (self)
-    inherit entity
-              the_dtd the_name the_warner init_errors_with_line_numbers
-             init_encoding
-            as super
-
-    (* An external entity gets the lexbuf that is used as character source
-     * from a resolver.
-     * Furthermore, before the first token an Begin_entity is inserted, and
-     * before Eof an End_entity token is inserted into the stream. This done
-     * always regardless of the argument 'force_parsing' of the method
-     * 'open_entity'.
-     *
-     * 'the_p_internal_subset': see class internal_entity
-     * 'the_p_special_empty_entities': if true, a Begin_entity/End_entity
-     * brace is left out if the entity is otherwise empty.
-     *)
-
-    val resolver = (the_resolver : resolver)
-    val ext_id = (the_ext_id : ext_id)
-
-    val p_special_empty_entities = (the_p_special_empty_entities : bool)
-
-    val mutable resolver_is_open = false
-      (* Track if the resolver is open. This is also used to find recursive
-       * references of entities.
-       *)
-
-    val mutable state = At_beginning
-
-    initializer
-      counts_as_external <- true;
-
-
-    method private set_encoding e =
-      assert resolver_is_open;
-      resolver # change_encoding e
-
-
-    method full_name =
-      name ^
-      match ext_id with
-         System s    -> " = SYSTEM \"" ^ s ^ "\""
-       | Public(p,s) -> " = PUBLIC \"" ^ p ^ "\" \"" ^ s ^ "\""
-       | Anonymous   -> " = ANONYMOUS"
-
-
-    method open_entity force_parsing init_lex_id =
-      (* Note that external entities are always parsed, i.e. Begin_entity
-       * and End_entity tokens embrace the inner tokens to force that
-       * the entity is only called where the syntax allows it.
-       *)
-      if resolver_is_open then
-       raise(Validation_error("Recursive reference to entity `" ^ name ^ "'"));
-      let lex = 
-       try
-         resolver # open_in ext_id 
-       with
-           Pxp_reader.Not_competent ->
-             raise(Error ("No input method available for this external entity: " ^ 
-                       self # full_name))
-         | Pxp_reader.Not_resolvable Not_found ->
-             raise(Error ("Unable to open the external entity: " ^ 
-                          self # full_name))
-         | Pxp_reader.Not_resolvable e ->
-             raise(Error ("Unable to open the external entity: " ^ 
-                          self # full_name ^ "; reason: " ^ 
-                          string_of_exn e))
-      in
-      resolver_is_open <- true;
-      lexbuf  <- lex;
-      prolog  <- None;
-      lex_id  <- init_lex_id;
-      state <- At_beginning;
-      line <- 1;
-      column <- 0;
-      pos <- 0;
-      last_token <- Bof;
-      normalize_newline <- true;
-
-
-    method private handle_bof tok =
-      (* This hook is only called if the stream is not empty. *)
-      deferred_token <- Some [ tok ];
-      state <- Inserted_begin_entity;
-      Begin_entity
-
-
-    method private handle_eof =
-      (* This hook is called if the end of  the stream is reached *)
-      match state with
-         At_beginning ->
-           (* This is only possible if the stream is empty. *)
-           if p_special_empty_entities then begin
-             (* Continue immediately with the next token *)
-             state <- At_end;
-             super # handle_eof
-           end
-           else begin
-             (* Insert Begin_entity / End_entity *)
-             deferred_token <- Some [ End_entity ];
-             state <- At_end;
-             Begin_entity;
-             (* After these two token have been processed, the lexer
-              * is called again, and it will return another Eof.
-              *)
-           end
-       | Inserted_begin_entity ->
-           (* Insert End_entity, too. *)
-           state <- At_end;
-           End_entity;
-       | At_end ->
-           (* Continue with the next token: *)
-           super # handle_eof
-
-
-    method close_entity =
-      if not resolver_is_open then
-       failwith ("External entity " ^ name ^ " not open");
-      resolver # close_in;
-      resolver_is_open <- false;
-      lex_id
-
-
-    method replacement_text =
-      (* Return the replacement text of the entity. The method used for this
-       * is more or less the same as for internal entities; i.e. character
-       * and parameter entities are resolved immediately. In addition to that,
-       * external entities may begin with an "xml" processing instruction
-       * which is considered not to be part of the replacement text.
-       *)
-      if resolver_is_open then
-       raise(Validation_error("Recursive reference to entity `" ^ name ^ "'"));
-      let lex = resolver # open_in ext_id in
-      resolver_is_open <- true;
-      lexbuf  <- lex;
-      prolog  <- None;
-      (* arbitrary:    lex_id  <- init_lex_id; *)
-      state <- At_beginning;
-      line <- 1;
-      column <- 0;
-      pos <- 0;
-      last_token <- Bof;
-      (* First check if the first token of 'lex' is <?xml...?> *)
-      begin match lexerset.scan_only_xml_decl lex with
-         PI_xml pl ->
-           self # process_xmldecl pl
-       | Eof ->
-           (* This only means that the first token was not <?xml...?>;
-            * the "Eof" token represents the empty string.
-            *)
-           self # process_missing_xmldecl
-       | _ ->
-           (* Must not happen. *)
-           assert false
-      end;
-      (* Then create the replacement text. *)
-      let rec scan_and_expand () =
-       match lexerset.scan_dtd_string lexbuf with
-           ERef n -> "&" ^ n ^ ";" ^ scan_and_expand()
-         | CRef(-1) -> "\n" ^ scan_and_expand()
-         | CRef(-2) -> "\n" ^ scan_and_expand()
-         | CRef(-3) -> "\n" ^ scan_and_expand()
-         | CRef k -> character encoding warner k ^ scan_and_expand()
-         | CharData x -> x ^ scan_and_expand()
-         | PERef n ->
-             let en = dtd # par_entity n in
-             let (x,_) = en # replacement_text in
-             x ^ scan_and_expand()
-         | Eof ->
-             ""
-         | _ ->
-             assert false
-      in
-      let rtext = scan_and_expand() in
-      resolver # close_in;
-      resolver_is_open <- false;
-      rtext, true
-       (* TODO:
-        * - The replaced text is not parsed [VALIDATION WEAKNESS]
-        *)
-  end
-;;
-
-
-class document_entity  the_resolver the_dtd the_name the_warner the_ext_id
-                       init_errors_with_line_numbers
-                      init_encoding
-  =
-  object (self)
-    inherit external_entity  the_resolver the_dtd the_name the_warner
-                             the_ext_id false init_errors_with_line_numbers
-                            init_encoding
-
-    (* A document entity is an external entity that does not allow
-     * conditional sections, and that forces that internal parameter entities
-     * are properly nested.
-     *)
-
-    initializer
-    force_parameter_entity_parsing <- true;
-    check_text_declaration <- false;
-
-    method counts_as_external = false
-      (* Document entities count never as external! *)
-  end
-;;
-
-
-class internal_entity the_dtd the_name the_warner the_literal_value
-                      the_p_internal_subset init_errors_with_line_numbers
-                      init_is_parameter_entity
-                     init_encoding
-  =
-  (* An internal entity uses a "literal entity value" as character source.
-   * This value is first expanded and preprocessed, i.e. character and
-   * parameter references are expanded.
-   *
-   * 'the_p_internal_subset': indicates that the entity is declared in the
-   * internal subset. Such entity declarations are not allowed to contain
-   * references to parameter entities.
-   * 'init_is_parameter_entity': whether this is a parameter entity or not
-   *)
-
-  object (self)
-    inherit entity
-              the_dtd the_name the_warner init_errors_with_line_numbers
-             init_encoding
-           as super
-
-    val p_internal_subset = the_p_internal_subset
-
-    val mutable replacement_text = ""
-    val mutable contains_external_references = false
-    val mutable p_parsed_actually = false
-    val mutable is_open = false
-    val mutable state = At_beginning
-    val mutable is_parameter_entity = init_is_parameter_entity
-
-
-    initializer
-    let lexbuf = Lexing.from_string the_literal_value in
-    let rec scan_and_expand () =
-      match lexerset.scan_dtd_string lexbuf with
-         ERef n -> "&" ^ n ^ ";" ^ scan_and_expand()
-       | CRef(-1) -> "\r\n" ^ scan_and_expand()
-       | CRef(-2) -> "\r" ^ scan_and_expand()
-       | CRef(-3) -> "\n" ^ scan_and_expand()
-       | CRef k -> character encoding warner k ^ scan_and_expand()
-       | CharData x -> x ^ scan_and_expand()
-       | PERef n ->
-           if p_internal_subset then
-             raise(WF_error("Restriction of the internal subset: parameter entity not allowed here"));
-           let en = dtd # par_entity n in
-           let (x, extref) = en # replacement_text in
-           contains_external_references <-
-             contains_external_references or extref;
-           x ^ scan_and_expand()
-       | Eof ->
-           ""
-       | _ ->
-           assert false
-    in
-    is_open <- true;
-    replacement_text <- scan_and_expand();
-    is_open <- false;
-    normalize_newline <- false;
-    counts_as_external <- false;
-
-
-    method process_xmldecl (pl:prolog_token list) =
-      raise(Validation_error("The encoding cannot be changed in internal entities"))
-
-
-    method process_missing_xmldecl =
-      ()
-
-
-    method private set_encoding e =
-      (* Ignored if e = "" *)
-      assert(e = "");
-
-
-    method open_entity force_parsing init_lex_id =
-      if is_open then
-       raise(Validation_error("Recursive reference to entity `" ^ name ^ "'"));
-
-      p_parsed_actually <- force_parsing;
-      lexbuf  <- Lexing.from_string 
-                  (if is_parameter_entity then
-                     (" " ^ replacement_text ^ " ")
-                   else
-                     replacement_text);
-      prolog  <- None;
-      lex_id  <- init_lex_id;
-      state <- At_beginning;
-      is_open <- true;
-      line <- 1;
-      column <- 0;
-      pos <- 0;
-      last_token <- Eof;
-
-
-    method private handle_bof tok =
-      (* This hook is only called if the stream is not empty. *)
-      if p_parsed_actually then begin
-       deferred_token <- Some [ tok ];
-       state <- Inserted_begin_entity;
-       Begin_entity
-      end
-      else begin
-       state <- At_end;
-       tok
-      end
-
-
-    method private handle_eof =
-      (* This hook is called if the end of  the stream is reached *)
-      match state with
-         At_beginning ->
-           (* This is only possible if the stream is empty. *)
-           if p_parsed_actually then begin
-             (* Insert Begin_entity / End_entity *)
-             deferred_token <- Some [ End_entity ];
-             state <- At_end;
-             Begin_entity;
-             (* After these two token have been processed, the lexer
-              * is called again, and it will return another Eof.
-              *)
-           end
-           else begin
-             (* Continue immediately with the next token *)
-             state <- At_end;
-             super # handle_eof
-           end
-       | Inserted_begin_entity ->
-           (* Insert End_entity, too. *)
-           state <- At_end;
-           End_entity;
-       | At_end ->
-           (* Continue with the next token: *)
-           super # handle_eof
-
-
-    method close_entity =
-      if not is_open then
-       failwith ("Internal entity " ^ name ^ " not open");
-      is_open <- false;
-      lex_id
-
-
-    method replacement_text =
-      if is_open then
-       raise(Validation_error("Recursive reference to entity `" ^ name ^ "'"));
-      replacement_text, contains_external_references
-  end
-;;
-
-(**********************************************************************)
-
-(* An 'entity_manager' is a stack of entities, where the topmost entity
- * is the currently active entity, the second entity is the entity that
- * referred to the active entity, and so on.
- *
- * The entity_manager can communicate with the currently active entity.
- *
- * The entity_manager provides an interface for the parser; the functions
- * returning the current token and the next token are exported.
- *)
-
-class entity_manager (init_entity : entity) =
-  object (self)
-    val mutable entity_stack = Stack.create()
-    val mutable current_entity = init_entity
-    val mutable current_entity's_full_name = lazy (init_entity # full_name)
-                                  
-    val mutable yy_get_next_ref = ref (fun () -> assert false)
-
-    initializer
-      init_entity # set_manager (self :> 
-                                < current_entity : entity; 
-                                  pop_entity : unit;
-                                  push_entity : entity -> unit >
-                               );
-      yy_get_next_ref := (fun () -> init_entity # next_token)
-
-    method push_entity e =
-      e # set_manager (self :> 
-                      < current_entity : entity; 
-                        pop_entity : unit;
-                        push_entity : entity -> unit >
-                     );
-      Stack.push (current_entity, current_entity's_full_name) entity_stack;
-      current_entity <- e;
-      current_entity's_full_name <- lazy (e # full_name);
-      yy_get_next_ref := (fun () -> e # next_token);
-
-    method pop_entity =
-      (* May raise Stack.Empty *)
-      let e, e_name = Stack.pop entity_stack in
-      current_entity <- e;
-      current_entity's_full_name <- e_name;
-      yy_get_next_ref := (fun () -> e # next_token);
-
-
-
-    method position_string =
-      (* Gets a string describing the position of the last token;
-       * includes an entity backtrace
-       *)
-      let b = Buffer.create 200 in
-      Buffer.add_string b
-       ("In entity " ^ current_entity # full_name
-        ^ ", at line " ^ string_of_int (current_entity # line)
-        ^ ", position " ^ string_of_int (current_entity # column)
-        ^ ":\n");
-      Stack.iter
-       (fun (e, e_name) ->
-          Buffer.add_string b 
-            ("Called from entity " ^ Lazy.force e_name
-             ^ ", line " ^ string_of_int (e # line)
-             ^  ", position " ^ string_of_int (e # column)
-             ^ ":\n");
-       )
-       entity_stack;
-      Buffer.contents b
-
-
-    method position =
-      (* Returns the triple (full_name, line, column) of the last token *)
-      Lazy.force current_entity's_full_name, 
-      current_entity # line,
-      current_entity # column
-
-
-    method current_entity_counts_as_external =
-      (* Whether the current entity counts as external to the main
-       * document for the purpose of stand-alone checks.
-       *)
-      (* TODO: improve performance *)
-      let is_external = ref false in
-      let check (e, _) =
-       if e # counts_as_external then begin
-         is_external := true;
-       end;
-      in
-      check (current_entity,());
-      Stack.iter check entity_stack;
-      !is_external
-
-
-    method current_entity  = current_entity
-
-    method yy_get_next_ref = yy_get_next_ref
-
-  end
-;;
-
-      
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.6  2000/07/14 13:55:00  gerd
- *     Cosmetic changes.
- *
- * Revision 1.5  2000/07/09 17:51:50  gerd
- *     Entities return now the beginning of a token as its
- * position.
- *     New method 'position' for entity_manager.
- *
- * Revision 1.4  2000/07/09 01:05:04  gerd
- *     Exported methods 'ext_id' and 'notation' anyway.
- *
- * Revision 1.3  2000/07/08 16:28:05  gerd
- *     Updated: Exception 'Not_resolvable' is taken into account.
- *
- * Revision 1.2  2000/07/04 22:12:47  gerd
- *     Update: Case ext_id = Anonymous.
- *     Update: Handling of the exception Not_competent when reading
- * from a resolver.
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- * Old logs from markup_entity.ml:
- *
- * Revision 1.27  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.26  2000/05/28 17:24:55  gerd
- *     Bugfixes.
- *
- * Revision 1.25  2000/05/27 19:23:32  gerd
- *     The entities store whether they count as external with
- * respect to the standalone check: New methods counts_as_external
- * and set_counts_as_external.
- *     The entity manager can find out whether the current
- * entity counts as external: method current_entity_counts_as_external.
- *
- * Revision 1.24  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.23  2000/05/14 21:51:24  gerd
- *     Change: Whitespace is handled by the grammar, and no longer
- * by the entity.
- *
- * Revision 1.22  2000/05/14 17:50:54  gerd
- *     Updates because of changes in the token type.
- *
- * Revision 1.21  2000/05/09 00:02:44  gerd
- *     Conditional sections are now recognized by the parser.
- * There seem some open questions; see the TODO comments!
- *
- * Revision 1.20  2000/05/08 21:58:22  gerd
- *     Introduced entity_manager as communication object between
- * the parser and the currently active entity.
- *     New hooks handle_bof and handle_eof.
- *     Removed "delegated entities". The entity manager contains
- * the stack of open entities.
- *     Changed the way Begin_entity and End_entity are inserted.
- * This is now done by handle_bof and handle_eof.
- *     The XML declaration is no longer detected by the entity.
- * This is now done by the parser.
- *
- * Revision 1.19  2000/05/01 15:18:44  gerd
- *     Improved CRLF handling in the replacement text of entities.
- *     Changed one error message.
- *
- * Revision 1.18  2000/04/30 18:18:39  gerd
- *     Bugfixes: The conversion of CR and CRLF to LF is now hopefully
- * done right. The new variable "normalize_newline" indicates whether
- * normalization must happen for that type of entity. The normalization
- * if actually carried out separately for every token that needs it.
- *
- * Revision 1.17  2000/03/13 23:42:38  gerd
- *     Removed the resolver classes, and put them into their
- * own module (Markup_reader).
- *
- * Revision 1.16  2000/02/22 01:06:58  gerd
- *     Bugfix: Resolvers are properly re-initialized. This bug caused
- * that entities could not be referenced twice in the same document.
- *
- * Revision 1.15  2000/01/20 20:54:11  gerd
- *     New config.errors_with_line_numbers.
- *
- * Revision 1.14  2000/01/08 18:59:03  gerd
- *     Corrected the string resolver.
- *
- * Revision 1.13  1999/09/01 22:58:23  gerd
- *     Method warn_not_latin1 raises Illegal_character if the character
- * does not match the Char production.
- *     External entities that are not document entities check if the
- * <?xml...?> declaration at the beginning matches the TextDecl production.
- *     Method xml_declaration has type ... list option, not ... list.
- *     Tag_beg and Tag_end now carry an entity_id with them.
- *     The code to check empty entities has changed. That the Begin_entity/
- * End_entity pair is not to be added must be explicitly turned on. See the
- * description of empty entity handling in design.txt.
- *     In internal subsets entity declarations are not allowed to refer
- * to parameter entities. The internal_entity class can do this now.
- *     The p_parsed parameter of internal_entity has gone. It was simply
- * superflous.
- *
- * Revision 1.12  1999/09/01 16:24:13  gerd
- *     The method replacement_text returns the text as described for
- * "included in literal". The former behaviour has been dropped to include
- * a leading and a trailing space character for parameter entities.
- *     Bugfix: When general entities are included, they are always parsed.
- *
- * Revision 1.11  1999/08/31 19:13:31  gerd
- *     Added checks on proper PE nesting. The idea is that tokens such
- * as Decl_element and Decl_rangle carry an entity ID with them. This ID
- * is simply an object of type < >, i.e. you can only test on identity.
- * The lexer always produces tokens with a dummy ID because it does not
- * know which entity is the current one. The entity layer replaces the dummy
- * ID with the actual ID. The parser checks that the IDs of pairs such as
- * Decl_element and Decl_rangle are the same; otherwise a Validation_error
- * is produced.
- *
- * Revision 1.10  1999/08/19 01:06:41  gerd
- *     Improved error messages: external entities print their
- * ext id, too
- *
- * Revision 1.9  1999/08/15 20:35:48  gerd
- *     Improved error messages.
- *     Before the tokens Plus, Star, Qmark space is not allowed any longer.
- *     Detection of recursive entity references is a bit cleaner.
- *
- * Revision 1.8  1999/08/15 15:33:44  gerd
- *     Revised whitespace checking: At certain positions there must be
- * white space. These checks cannot be part of the lexer, as %entity; counts
- * as white space. They cannot be part of the yacc parser because one look-ahead
- * token would not suffice if we did that. So these checks must be done by the
- * entity layer. Luckily, the rules are simple: There are simply a number of
- * token pairs between which white space must occur independently of where
- * these token have been found. Two variables, "space_seen", and "last_token"
- * have been added in order to check these rules.
- *
- * Revision 1.7  1999/08/15 00:41:06  gerd
- *     The [ token of conditional sections is now allowed to occur
- * in a different entity.
- *
- * Revision 1.6  1999/08/15 00:29:02  gerd
- *     The method "attlist_replacement_text" has gone. There is now a
- * more general "replacement_text" method that computes the replacement
- * text for both internal and external entities. Additionally, this method
- * returns whether references to external entities have been resolved;
- * this is checked in the cases where formerly "attlist_replacement_text"
- * was used as it is not allowed everywhere.
- *     Entities have a new slot "need_spaces" that indicates that the
- * next token must be white space or a parameter reference. The problem
- * was that "<!ATTLIST%e;" is legal because when including parameter
- * entities white space is added implicitly. Formerly, the white space
- * was expected by the underlying lexer; now the lexer does not check
- * anymore that "<!ATTLIST" is followed by white space because the lexer
- * cannot handle parameter references. Because of this, the check on
- * white space must be done by the entity.
- *
- * Revision 1.5  1999/08/14 22:57:19  gerd
- *     It is allowed that external entities are empty because the
- * empty string is well-parsed for both declarations and contents. Empty
- * entities can be referenced anywhere because the references are replaced
- * by nothing. Because of this, the Begin_entity...End_entity brace is only
- * inserted if the entity is non-empty. (Otherwise references to empty
- * entities would not be allowed anywhere.)
- *     As a consequence, the grammar has been changed such that a
- * single Eof is equivalent to Begin_entity,End_entity without content.
- *
- * Revision 1.4  1999/08/14 22:11:19  gerd
- *         Several objects have now a "warner" as argument which is
- * an object with a "warn" method. This is used to warn about characters
- * that cannot be represented in the Latin 1 alphabet.
- *     Previously, the resolvers had features in order to warn about
- * such characters; this has been removed.
- *     UTF-8 streams can be read even if they contain characters
- * that cannot be represented by 16 bits.
- *     The buffering used in the resolvers is now solved in a
- * cleaner way; the number of characters that are expected to be read
- * from a source can be limited. This removes a bug with UTF-16 streams
- * that previously lead to wrong exceptions; and the buffering is more
- * efficient, too.
- *
- * Revision 1.3  1999/08/11 14:58:53  gerd
- *     Some more names for encodings are allowed, such as "utf8" instead
- * of the standard name "UTF-8".
- *     'resolve_as_file' interprets relative file names as relative to
- * the "parent" resolver.
- *
- * Revision 1.2  1999/08/10 21:35:07  gerd
- *     The XML/encoding declaration at the beginning of entities is
- * evaluated. In particular, entities have now a method "xml_declaration"
- * which returns the name/value pairs of such a declaration. The "encoding"
- * setting is interpreted by the entity itself; "version", and "standalone"
- * are interpreted by Markup_yacc.parse_document_entity. Other settings
- * are ignored (this does not conform to the standard; the standard prescribes
- * that "version" MUST be given in the declaration of document; "standalone"
- * and "encoding" CAN be declared; no other settings are allowed).
- *     TODO: The user should be warned if the standard is not exactly
- * fulfilled. -- The "standalone" property is not checked yet.
- *
- * Revision 1.1  1999/08/10 00:35:51  gerd
- *     Initial revision.
- *
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_lexer_types.ml b/helm/DEVEL/pxp/pxp/pxp_lexer_types.ml
deleted file mode 100644 (file)
index 988e9d0..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_lexer_types.ml
+++ /dev/null
@@ -1,248 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright by Gerd Stolpmann. See LICENSE for details.
- *)
-
-type lexers =
-    Document
-  | Document_type
-  | Content
-  | Within_tag
-  | Declaration
-  | Content_comment
-  | Decl_comment
-  | Document_comment
-  | Ignored_section
-
-
-type prolog_token =
-    Pro_name of string
-  | Pro_eq                  (* "=" *)
-  | Pro_string of string    (* "..." or '...' *)
-  | Pro_eof
-
-
-type entity_id = < >
-  (* The class without properties; but you can still compare if two objects
-   * are the same.
-   *)
-
-type token = 
-  | Begin_entity             (* Beginning of entity *)
-  | End_entity               (* End of entity *)
-  | Comment_begin            (* <!-- *)
-  | Comment_material of string (* within a comment *)
-  | Comment_end              (* --> *)
-  | Ignore                   (* ignored whitespace *)
-  | Eq                       (* = *)
-  | Rangle                   (* > as tag delimiter *)
-  | Rangle_empty             (* /> as tag delimiter *)
-  | Percent                  (* % followed by space in declaration *)
-  | Plus                     (* + in declaration *)
-  | Star                     (* * in declaration *)
-  | Bar                      (* | in declaration *)
-  | Comma                    (* , in declaration *)
-  | Qmark                    (* ? in declaration *)
-  | Pcdata                   (* #PCDATA in declaration *)
-  | Required                 (* #REQUIRED in declaration *)
-  | Implied                  (* #IMPLIED in declaration *)
-  | Fixed                    (* #FIXED in declaration *)
-  | Bof                      (* A marker for 'beginning of file' *)
-  | Eof                      (* End of file *)
-  | Conditional_begin of entity_id  (* <![ in declaration *)
-  | Conditional_body  of entity_id  (* [ in declaration *)
-  | Conditional_end   of entity_id  (* ]]> in declaration *)
-  | Doctype        of entity_id  (* <!DOCTYPE *)
-  | Doctype_rangle of entity_id  (* > as DOCTYPE delimiter *)
-  | Dtd_begin      of entity_id  (* '[' after DOCTYPE *)
-  | Dtd_end        of entity_id  (* ']' *)
-  | Decl_element   of entity_id  (* <!ELEMENT *)
-  | Decl_attlist   of entity_id  (* <!ATTLIST *)
-  | Decl_entity    of entity_id  (* <!ENTITY *)
-  | Decl_notation  of entity_id  (* <!NOTATION *)
-  | Decl_rangle    of entity_id  (* > *)
-  | Lparen         of entity_id  (* ( in declaration *)
-  | Rparen         of entity_id  (* ) in declaration *)
-  | RparenPlus     of entity_id  (* )+ in declaration *)
-  | RparenStar     of entity_id  (* )* in declaration *)
-  | RparenQmark    of entity_id  (* )? in declaration *)
-      
-  | Tag_beg of (string*entity_id)     (* <name *)
-  | Tag_end of (string*entity_id)     (* </name *)
-
-  | PI        of (string*string)      (* <?name ... ?> *)
-  | PI_xml    of (prolog_token list)  (* <?xml ...?> *)
-  | Cdata     of string               (* <![CDATA[...]]> *)
-  | CRef      of int                  (* &#digits; *)
-  | ERef      of string               (* &name; *)
-  | PERef     of string               (* %name; *)
-  | CharData  of string             (* any characters not otherwise matching *)
-  | LineEnd   of string
-  | Name      of string               (* name *)
-  | Nametoken of string               (* nmtoken but not name *)
-  | Attval    of string           (* attribute value; may contain entity refs *)
-  | Attval_nl_normalized of string
-  | Unparsed_string      of string    (* "data" or 'data' *)
-      
-
-(**********************************************************************)
-(* debugging *)
-
-let string_of_tok tok =
-  match tok with
-    Begin_entity -> "Begin_entity"
-  | End_entity -> "End_entity"
-  | Doctype _ -> "Doctype"
-  | Doctype_rangle _ -> "Doctype_rangle"
-  | Comment_begin -> "Comment_begin"
-  | Comment_end -> "Comment_end"
-  | Comment_material _ -> "Comment_material"
-  | Rangle -> "Rangle"
-  | Rangle_empty -> "Rangle_empty"
-  | Ignore -> "Ignore"
-  | Eq -> "Eq"
-  | Dtd_begin _ -> "Dtd_begin"
-  | Dtd_end _ -> "Dtd_end"
-  | Conditional_begin _ -> "Conditional_begin"
-  | Conditional_body _ -> "Conditional_body"
-  | Conditional_end _ -> "Conditional_end"
-  | Percent -> "Percent"
-  | Lparen _ -> "Lparen"
-  | Rparen _ -> "Rparen"
-  | Plus -> "Plus"
-  | Star -> "Star"
-  | Bar -> "Bar"
-  | Comma -> "Comma"
-  | Qmark -> "Qmark"
-  | Pcdata -> "Pcdata"
-  | Required -> "Required"
-  | Implied -> "Implied"
-  | Fixed -> "Fixed"
-  | Decl_element _ -> "Decl_element"
-  | Decl_attlist _ -> "Decl_attlist"
-  | Decl_entity _ -> "Decl_entity"
-  | Decl_notation _ -> "Decl_notation"
-  | Decl_rangle _ -> "Decl_rangle"
-  | RparenPlus _ -> "RparenPlus"
-  | RparenStar _ -> "RparenStar"
-  | RparenQmark _ -> "RparenQmark"
-  | Bof -> "Bof"
-  | Eof -> "Eof"
-  | PI _ -> "PI"
-  | PI_xml _ -> "PI_xml"
-  | Tag_beg _ -> "Tag_beg"
-  | Tag_end _ -> "Tag_end"
-  | Cdata _ -> "Cdata"
-  | CRef _ -> "CRef"
-  | ERef _ -> "ERef"
-  | PERef _ -> "PERef"
-  | CharData _ -> "CharData"
-  | Name _ -> "Name" 
-  | Nametoken _ -> "Nametoken" 
-  | Attval _ -> "Attval" 
-  | Attval_nl_normalized _ -> "Attval_nl_normalized"
-  | Unparsed_string _ -> "Unparsed_string" 
-  | LineEnd _ -> "LineEnd"
-
-
-type lexer_set =
-    { lex_encoding         : Pxp_types.rep_encoding;
-      scan_document        : Lexing.lexbuf -> (token * lexers);
-      scan_content         : Lexing.lexbuf -> (token * lexers);
-      scan_within_tag      : Lexing.lexbuf -> (token * lexers);
-      scan_document_type   : Lexing.lexbuf -> (token * lexers);
-      scan_declaration     : Lexing.lexbuf -> (token * lexers);
-      scan_content_comment : Lexing.lexbuf -> (token * lexers);
-      scan_decl_comment    : Lexing.lexbuf -> (token * lexers);
-      scan_document_comment: Lexing.lexbuf -> (token * lexers);
-      scan_ignored_section : Lexing.lexbuf -> (token * lexers);
-      scan_xml_pi          : Lexing.lexbuf -> prolog_token;
-      scan_dtd_string      : Lexing.lexbuf -> token;
-      scan_content_string  : Lexing.lexbuf -> token;
-      scan_name_string     : Lexing.lexbuf -> token;
-      scan_only_xml_decl   : Lexing.lexbuf -> token;
-      scan_for_crlf        : Lexing.lexbuf -> token;
-    }
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/08/18 20:14:31  gerd
- *     Comment -> Comment_begin, Comment_material, Comment_end.
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- * Old logs from markup_lexer_types.ml:
- *
- * Revision 1.6  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.5  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.4  2000/05/14 17:45:36  gerd
- *     Bugfix.
- *
- * Revision 1.3  2000/05/14 17:35:12  gerd
- *     Conditional_begin, _end, and _body have an entity_id.
- *
- * Revision 1.2  2000/05/08 21:59:06  gerd
- *     New token Bof (beginning of file).
- *
- * Revision 1.1  2000/05/06 23:21:49  gerd
- *     Initial revision.
- *
- *
- * ======================================================================
- *
- * DERIVED FROM REVISION 1.4 of markup_lexer_types_shadow.ml
- *
- * Revision 1.4  2000/04/30 18:19:04  gerd
- *     Added new tokens.
- *
- * Revision 1.3  1999/08/31 19:13:31  gerd
- *     Added checks on proper PE nesting. The idea is that tokens such
- * as Decl_element and Decl_rangle carry an entity ID with them. This ID
- * is simply an object of type < >, i.e. you can only test on identity.
- * The lexer always produces tokens with a dummy ID because it does not
- * know which entity is the current one. The entity layer replaces the dummy
- * ID with the actual ID. The parser checks that the IDs of pairs such as
- * Decl_element and Decl_rangle are the same; otherwise a Validation_error
- * is produced.
- *
- * Revision 1.2  1999/08/10 21:35:08  gerd
- *     The XML/encoding declaration at the beginning of entities is
- * evaluated. In particular, entities have now a method "xml_declaration"
- * which returns the name/value pairs of such a declaration. The "encoding"
- * setting is interpreted by the entity itself; "version", and "standalone"
- * are interpreted by Markup_yacc.parse_document_entity. Other settings
- * are ignored (this does not conform to the standard; the standard prescribes
- * that "version" MUST be given in the declaration of document; "standalone"
- * and "encoding" CAN be declared; no other settings are allowed).
- *     TODO: The user should be warned if the standard is not exactly
- * fulfilled. -- The "standalone" property is not checked yet.
- *
- * Revision 1.1  1999/08/10 00:35:51  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_lexer_types.mli b/helm/DEVEL/pxp/pxp/pxp_lexer_types.mli
deleted file mode 100644 (file)
index 9e7c2d8..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_lexer_types.mli
+++ /dev/null
@@ -1,188 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright by Gerd Stolpmann. See LICENSE for details.
- *)
-
-type lexers =
-    Document
-  | Document_type
-  | Content
-  | Within_tag
-  | Declaration
-  | Content_comment
-  | Decl_comment
-  | Document_comment
-  | Ignored_section
-
-
-type prolog_token =
-    Pro_name of string
-  | Pro_eq                  (* "=" *)
-  | Pro_string of string    (* "..." or '...' *)
-  | Pro_eof
-
-type entity_id = < >
-  (* The class without properties; but you can still compare if two objects
-   * are the same.
-   *)
-
-type token = 
-  | Begin_entity             (* Beginning of entity *)
-  | End_entity               (* End of entity *)
-  | Comment_begin            (* <!-- *)
-  | Comment_material of string (* within a comment *)
-  | Comment_end              (* --> *)
-  | Ignore                   (* ignored whitespace *)
-  | Eq                       (* = *)
-  | Rangle                   (* > as tag delimiter *)
-  | Rangle_empty             (* /> as tag delimiter *)
-  | Percent                  (* % followed by space in declaration *)
-  | Plus                     (* + in declaration *)
-  | Star                     (* * in declaration *)
-  | Bar                      (* | in declaration *)
-  | Comma                    (* , in declaration *)
-  | Qmark                    (* ? in declaration *)
-  | Pcdata                   (* #PCDATA in declaration *)
-  | Required                 (* #REQUIRED in declaration *)
-  | Implied                  (* #IMPLIED in declaration *)
-  | Fixed                    (* #FIXED in declaration *)
-  | Bof                      (* A marker for 'beginning of file' *)
-  | Eof                      (* End of file *)
-  | Conditional_begin of entity_id  (* <![ in declaration *)
-  | Conditional_body  of entity_id  (* [ in declaration *)
-  | Conditional_end   of entity_id  (* ]]> in declaration *)
-  | Doctype        of entity_id  (* <!DOCTYPE *)
-  | Doctype_rangle of entity_id  (* > as DOCTYPE delimiter *)
-  | Dtd_begin      of entity_id  (* '[' after DOCTYPE *)
-  | Dtd_end        of entity_id  (* ']' *)
-  | Decl_element   of entity_id  (* <!ELEMENT *)
-  | Decl_attlist   of entity_id  (* <!ATTLIST *)
-  | Decl_entity    of entity_id  (* <!ENTITY *)
-  | Decl_notation  of entity_id  (* <!NOTATION *)
-  | Decl_rangle    of entity_id  (* > *)
-  | Lparen         of entity_id  (* ( in declaration *)
-  | Rparen         of entity_id  (* ) in declaration *)
-  | RparenPlus     of entity_id  (* )+ in declaration *)
-  | RparenStar     of entity_id  (* )* in declaration *)
-  | RparenQmark    of entity_id  (* )? in declaration *)
-      
-  | Tag_beg of (string*entity_id)     (* <name *)
-  | Tag_end of (string*entity_id)     (* </name *)
-
-  | PI        of (string*string)      (* <?name ... ?> *)
-  | PI_xml    of (prolog_token list)  (* <?xml ...?> *)
-  | Cdata     of string               (* <![CDATA[...]]> *)
-  | CRef      of int                  (* &#digits; *)
-  | ERef      of string               (* &name; *)
-  | PERef     of string               (* %name; *)
-  | CharData  of string             (* any characters not otherwise matching *)
-  | LineEnd   of string
-  | Name      of string               (* name *)
-  | Nametoken of string               (* nmtoken but not name *)
-  | Attval    of string           (* attribute value; may contain entity refs *)
-  | Attval_nl_normalized of string
-  | Unparsed_string      of string    (* "data" or 'data' *)
-      
-
-val string_of_tok : token -> string
-
-
-type lexer_set =
-    { lex_encoding         : Pxp_types.rep_encoding;
-      scan_document        : Lexing.lexbuf -> (token * lexers);
-      scan_content         : Lexing.lexbuf -> (token * lexers);
-      scan_within_tag      : Lexing.lexbuf -> (token * lexers);
-      scan_document_type   : Lexing.lexbuf -> (token * lexers);
-      scan_declaration     : Lexing.lexbuf -> (token * lexers);
-      scan_content_comment : Lexing.lexbuf -> (token * lexers);
-      scan_decl_comment    : Lexing.lexbuf -> (token * lexers);
-      scan_document_comment: Lexing.lexbuf -> (token * lexers);
-      scan_ignored_section : Lexing.lexbuf -> (token * lexers);
-      scan_xml_pi          : Lexing.lexbuf -> prolog_token;
-      scan_dtd_string      : Lexing.lexbuf -> token;
-      scan_content_string  : Lexing.lexbuf -> token;
-      scan_name_string     : Lexing.lexbuf -> token;
-      scan_only_xml_decl   : Lexing.lexbuf -> token;
-      scan_for_crlf        : Lexing.lexbuf -> token;
-    }
-
-(* lexer_set: Every internal encoding has its own set of lexer functions *)
-
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/08/18 20:14:31  gerd
- *     Comment -> Comment_begin, Comment_material, Comment_end.
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- * Old logs from markup_lexer_types.mli:
- *
- * Revision 1.5  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.4  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.3  2000/05/14 17:35:12  gerd
- *     Conditional_begin, _end, and _body have an entity_id.
- *
- * Revision 1.2  2000/05/08 21:59:17  gerd
- *         New token Bof (beginning of file).
- *
- * Revision 1.1  2000/05/06 23:21:49  gerd
- *     Initial revision.
- *
- *
- * ======================================================================
- *
- * DERIVED FROM REVISION 1.3 of markup_lexer_types_shadow.mli
- *
- * Revision 1.3  1999/08/31 19:13:31  gerd
- *     Added checks on proper PE nesting. The idea is that tokens such
- * as Decl_element and Decl_rangle carry an entity ID with them. This ID
- * is simply an object of type < >, i.e. you can only test on identity.
- * The lexer always produces tokens with a dummy ID because it does not
- * know which entity is the current one. The entity layer replaces the dummy
- * ID with the actual ID. The parser checks that the IDs of pairs such as
- * Decl_element and Decl_rangle are the same; otherwise a Validation_error
- * is produced.
- *
- * Revision 1.2  1999/08/10 21:35:09  gerd
- *     The XML/encoding declaration at the beginning of entities is
- * evaluated. In particular, entities have now a method "xml_declaration"
- * which returns the name/value pairs of such a declaration. The "encoding"
- * setting is interpreted by the entity itself; "version", and "standalone"
- * are interpreted by Markup_yacc.parse_document_entity. Other settings
- * are ignored (this does not conform to the standard; the standard prescribes
- * that "version" MUST be given in the declaration of document; "standalone"
- * and "encoding" CAN be declared; no other settings are allowed).
- *     TODO: The user should be warned if the standard is not exactly
- * fulfilled. -- The "standalone" property is not checked yet.
- *
- * Revision 1.1  1999/08/10 00:35:51  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_lexers.ml b/helm/DEVEL/pxp/pxp/pxp_lexers.ml
deleted file mode 100644 (file)
index ce6e7b3..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_lexers.ml
+++ /dev/null
@@ -1,90 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright 1999 by Gerd Stolpmann. See LICENSE for details.
- *)
-
-
-open Pxp_types
-open Pxp_lexer_types
-
-let lexer_set_iso88591 = 
-  { lex_encoding         = `Enc_iso88591;
-    scan_document        = Pxp_lex_document_iso88591.scan_document;
-    scan_content         = Pxp_lex_content_iso88591.scan_content;
-    scan_within_tag      = Pxp_lex_within_tag_iso88591.scan_within_tag;
-    scan_document_type   = Pxp_lex_document_type_iso88591.
-                            scan_document_type;
-    scan_declaration     = Pxp_lex_declaration_iso88591.scan_declaration;
-    scan_content_comment  = Pxp_lex_misc_iso88591.scan_content_comment;
-    scan_decl_comment     = Pxp_lex_misc_iso88591.scan_decl_comment;
-    scan_document_comment = Pxp_lex_misc_iso88591.scan_document_comment;
-    scan_ignored_section = Pxp_lex_name_string_iso88591.
-                             scan_ignored_section;
-    scan_xml_pi          = Pxp_lex_misc_iso88591.scan_xml_pi;
-    scan_dtd_string      = Pxp_lex_dtd_string_iso88591.scan_dtd_string;
-    scan_content_string  = Pxp_lex_content_string_iso88591.
-                            scan_content_string;
-    scan_name_string     = Pxp_lex_name_string_iso88591.scan_name_string;
-    scan_only_xml_decl   = Pxp_lex_misc_iso88591.scan_only_xml_decl;
-    scan_for_crlf        = Pxp_lex_misc_iso88591.scan_for_crlf;
-  }
-;;
-
-
-let lexer_set_utf8 = ref None
-;;
-
-
-let init_utf8 ls =
-  lexer_set_utf8 := Some ls
-;;
-
-
-let get_lexer_set enc =
-  match enc with
-      `Enc_iso88591 -> lexer_set_iso88591
-    | `Enc_utf8 ->
-       ( match !lexer_set_utf8 with
-             None ->
-               failwith ("Pxp_lexers: UTF-8 lexers not initialized")
-           | Some ls ->
-               ls
-       )
-    | _ ->
-       failwith ("Pxp_lexers: This type of internal encoding is not supported")
-;;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.4  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * Revision 1.3  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.2  2000/05/23 00:09:44  gerd
- *     The UTF-8 lexer set is no longer initialized here. It is done
- * in the new module Pxp_utf8. Reason: You can link without UTF-8 support.
- *
- * Revision 1.1  2000/05/20 20:30:50  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_lexers.mli b/helm/DEVEL/pxp/pxp/pxp_lexers.mli
deleted file mode 100644 (file)
index d8eabf6..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_lexers.mli
+++ /dev/null
@@ -1,51 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright 1999 by Gerd Stolpmann. See LICENSE for details.
- *)
-
-
-open Pxp_types
-open Pxp_lexer_types
-
-val get_lexer_set : rep_encoding -> lexer_set
-  (* Return the set of lexer functions that is able to handle the passed
-   * encoding.
-   *)
-
-val init_utf8 : lexer_set -> unit
-  (* Internally used. *)
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.4  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * Revision 1.3  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.2  2000/05/23 00:09:44  gerd
- *     The UTF-8 lexer set is no longer initialized here. It is done
- * in the new module Pxp_utf8. Reason: You can link without UTF-8 support.
- *
- * Revision 1.1  2000/05/20 20:30:50  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_reader.ml b/helm/DEVEL/pxp/pxp/pxp_reader.ml
deleted file mode 100644 (file)
index 83add26..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_reader.ml
+++ /dev/null
@@ -1,730 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright by Gerd Stolpmann. See LICENSE for details.
- *)
-
-open Pxp_types;;
-exception Not_competent;;
-exception Not_resolvable of exn;;
-
-class type resolver =
-  object
-    method init_rep_encoding : rep_encoding -> unit
-    method init_warner : collect_warnings -> unit
-    method rep_encoding : rep_encoding
-    method open_in : ext_id -> Lexing.lexbuf
-    method close_in : unit
-    method close_all : unit
-    method change_encoding : string -> unit
-    method clone : resolver
-  end
-;;
-
-
-class virtual resolve_general 
- =
-  object (self)
-    val mutable internal_encoding = `Enc_utf8
-
-    val mutable encoding = `Enc_utf8
-    val mutable encoding_requested = false
-
-    val mutable warner = new drop_warnings
-
-    val mutable enc_initialized = false
-    val mutable wrn_initialized = false
-
-    val mutable clones = []
-
-    method init_rep_encoding e =
-      internal_encoding <- e;
-      enc_initialized <- true;
-
-    method init_warner w =
-      warner <- w;
-      wrn_initialized <- true;
-
-    method rep_encoding = (internal_encoding :> rep_encoding)
-
-(*
-    method clone =
-      ( {< encoding = `Enc_utf8;
-          encoding_requested = false;
-       >}
-       : # resolver :> resolver )
-*)
-
-    method private warn (k:int) =
-      (* Called if a character not representable has been found.
-       * k is the character code.
-       *)
-       if k < 0xd800 or (k >= 0xe000 & k <= 0xfffd) or
-          (k >= 0x10000 & k <= 0x10ffff) then begin
-            warner # warn ("Code point cannot be represented: " ^ string_of_int k);
-          end
-       else
-         raise (WF_error("Code point " ^ string_of_int k ^ 
-                   " outside the accepted range of code points"))
-
-
-    method private autodetect s =
-      (* s must be at least 4 bytes long. The slot 'encoding' is
-       * set to:
-       * "UTF-16-BE": UTF-16/UCS-2 encoding big endian
-       * "UTF-16-LE": UTF-16/UCS-2 encoding little endian
-       * "UTF-8":     UTF-8 encoding
-       *)
-      if String.length s < 4 then
-       encoding <- `Enc_utf8
-      else if String.sub s 0 2 = "\254\255" then
-       encoding <- `Enc_utf16
-         (* Note: Netconversion.recode will detect the big endianess, too *)
-      else if String.sub s 0 2 = "\255\254" then
-       encoding <- `Enc_utf16
-         (* Note: Netconversion.recode will detect the little endianess, too *)
-      else
-       encoding <- `Enc_utf8
-
-
-    method private virtual next_string : string -> int -> int -> int
-    method private virtual init_in : ext_id -> unit
-    method virtual close_in : unit
-
-    method close_all =
-      List.iter (fun r -> r # close_in) clones
-
-    method open_in xid =
-      assert(enc_initialized && wrn_initialized);
-
-      encoding <- `Enc_utf8;
-      encoding_requested <- false;
-      self # init_in xid;         (* may raise Not_competent *)
-      (* init_in: may already set 'encoding' *)
-
-      let buffer_max = 512 in
-      let buffer = String.make buffer_max ' ' in
-      let buffer_len = ref 0 in
-      let buffer_end = ref false in
-      let fillup () =
-       if not !buffer_end & !buffer_len < buffer_max then begin
-         let l =
-           self # next_string buffer !buffer_len (buffer_max - !buffer_len) in
-         if l = 0 then
-           buffer_end := true
-         else begin
-           buffer_len := !buffer_len + l
-         end
-       end
-      in
-      let consume n =
-       let l = !buffer_len - n in
-       String.blit buffer n buffer 0 l;
-       buffer_len := l
-      in
-
-      fillup();
-      if not encoding_requested then self # autodetect buffer;
-
-      Lexing.from_function
-       (fun s n ->
-          (* TODO: if encoding = internal_encoding, it is possible to
-           * avoid copying buffer to s because s can be directly used
-           * as buffer.
-           *)
-
-          fillup();
-          if !buffer_len = 0 then
-            0
-          else begin
-            let m_in  = !buffer_len in
-            let m_max = if encoding_requested then n else 1 in
-            let n_in, n_out, encoding' =
-              if encoding = (internal_encoding : rep_encoding :> encoding) &&
-                 encoding_requested
-              then begin
-                (* Special case encoding = internal_encoding *)
-                String.blit buffer 0 s 0 m_in;
-                m_in, m_in, encoding
-              end
-              else
-                Netconversion.recode
-                  ~in_enc:encoding
-                  ~in_buf:buffer
-                  ~in_pos:0
-                  ~in_len:m_in
-                  ~out_enc:(internal_encoding : rep_encoding :> encoding)
-                  ~out_buf:s
-                  ~out_pos:0
-                  ~out_len:n
-                  ~max_chars:m_max
-                  ~subst:(fun k -> self # warn k; "")
-            in
-            if n_in = 0 then
-              (* An incomplete character at the end of the stream: *)
-              raise Netconversion.Malformed_code;
-              (* failwith "Badly encoded character"; *)
-            encoding <- encoding';
-            consume n_in;
-            assert(n_out <> 0);
-            n_out
-          end)
-
-    method change_encoding enc =
-      if not encoding_requested then begin
-       if enc <> "" then begin
-         match Netconversion.encoding_of_string enc with
-             `Enc_utf16 ->
-               (match encoding with
-                    (`Enc_utf16_le | `Enc_utf16_be) -> ()
-                  | `Enc_utf16 -> assert false
-                  | _ ->
-                      raise(WF_error "Encoding of data stream and encoding declaration mismatch")
-               )
-           | e ->
-               encoding <- e
-       end;
-       (* else: the autodetected encoding counts *)
-       encoding_requested <- true;
-      end;
-  end
-;;
-
-
-class resolve_read_any_channel ?(auto_close=true) ~channel_of_id =
-  object (self)
-    inherit resolve_general as super
-
-    val f_open = channel_of_id
-    val mutable current_channel = None
-    val auto_close = auto_close
-
-    method private init_in (id:ext_id) =
-      if current_channel <> None then
-       failwith "Pxp_reader.resolve_read_any_channel # init_in";
-      let ch, enc_opt = f_open id in       (* may raise Not_competent *)
-      begin match enc_opt with
-         None     -> ()
-       | Some enc -> encoding <- enc; encoding_requested <- true
-      end;
-      current_channel <- Some ch;
-
-    method private next_string s ofs len =
-      match current_channel with
-         None -> failwith "Pxp_reader.resolve_read_any_channel # next_string"
-       | Some ch ->
-           input ch s ofs len
-
-    method close_in =
-      match current_channel with
-         None -> ()
-       | Some ch ->
-           if auto_close then close_in ch;
-           current_channel <- None
-
-    method clone =
-      let c = new resolve_read_any_channel 
-               ?auto_close:(Some auto_close) f_open in
-      c # init_rep_encoding internal_encoding;
-      c # init_warner warner;
-      clones <- c :: clones;
-      (c :> resolver)
-
-  end
-;;
-
-
-class resolve_read_this_channel1 is_stale ?id ?fixenc ?auto_close ch =
-
-  let getchannel = ref (fun xid -> assert false) in
-
-  object (self)
-    inherit resolve_read_any_channel 
-              ?auto_close:auto_close 
-             (fun xid -> !getchannel xid)
-             as super
-
-    val mutable is_stale = is_stale
-      (* The channel can only be read once. To avoid that the channel
-       * is opened several times, the flag 'is_stale' is set after the
-       * first time.
-       *)
-
-    val fixid = id
-    val fixenc = fixenc
-    val fixch = ch
-
-    initializer
-      getchannel := self # getchannel
-
-    method private getchannel xid =
-      begin match fixid with
-         None -> ()
-       | Some bound_xid -> 
-           if xid <> bound_xid then raise Not_competent
-      end;
-      ch, fixenc
-
-    method private init_in (id:ext_id) =
-      if is_stale then
-       raise Not_competent
-      else begin
-       super # init_in id;
-       is_stale <- true
-      end
-
-    method close_in =
-      current_channel <- None
-
-    method clone =
-      let c = new resolve_read_this_channel1 
-               is_stale 
-               ?id:fixid ?fixenc:fixenc ?auto_close:(Some auto_close) fixch
-      in
-      c # init_rep_encoding internal_encoding;
-      c # init_warner warner;
-      clones <- c :: clones;
-      (c :> resolver)
-
-  end
-;;
-
-
-class resolve_read_this_channel =
-  resolve_read_this_channel1 false
-;;
-
-
-class resolve_read_any_string ~string_of_id =
-  object (self)
-    inherit resolve_general as super
-
-    val f_open = string_of_id
-    val mutable current_string = None
-    val mutable current_pos    = 0
-
-    method private init_in (id:ext_id) =
-      if current_string <> None then
-       failwith "Pxp_reader.resolve_read_any_string # init_in";
-      let s, enc_opt = f_open id in       (* may raise Not_competent *)
-      begin match enc_opt with
-         None     -> ()
-       | Some enc -> encoding <- enc; encoding_requested <- true
-      end;
-      current_string <- Some s;
-      current_pos    <- 0;
-
-    method private next_string s ofs len =
-      match current_string with
-         None -> failwith "Pxp_reader.resolve_read_any_string # next_string"
-       | Some str ->
-           let l = min len (String.length str - current_pos) in
-           String.blit str current_pos s ofs l;
-           current_pos <- current_pos + l;
-           l
-
-    method close_in =
-      match current_string with
-         None -> ()
-       | Some _ ->
-           current_string <- None
-
-    method clone =
-      let c = new resolve_read_any_string f_open in
-      c # init_rep_encoding internal_encoding;
-      c # init_warner warner;
-      clones <- c :: clones;
-      (c :> resolver)
-  end
-;;
-
-
-class resolve_read_this_string1 is_stale ?id ?fixenc str =
-
-  let getstring = ref (fun xid -> assert false) in
-
-  object (self)
-    inherit resolve_read_any_string (fun xid -> !getstring xid) as super
-
-    val is_stale = is_stale
-      (* For some reasons, it is not allowed to open a clone of the resolver 
-       * a second time when the original resolver is already open.
-       *)
-
-    val fixid = id
-    val fixenc = fixenc
-    val fixstr = str
-
-    initializer
-      getstring := self # getstring
-
-    method private getstring xid =
-      begin match fixid with
-         None -> ()
-       | Some bound_xid -> 
-           if xid <> bound_xid then raise Not_competent
-      end;
-      fixstr, fixenc
-
-
-    method private init_in (id:ext_id) =
-      if is_stale then
-       raise Not_competent
-      else
-       super # init_in id
-
-    method clone =
-      let c = new resolve_read_this_string1 
-               (is_stale or current_string <> None) 
-               ?id:fixid ?fixenc:fixenc fixstr
-      in
-      c # init_rep_encoding internal_encoding;
-      c # init_warner warner;
-      clones <- c :: clones;
-      (c :> resolver)
-  end
-;;
-
-
-class resolve_read_this_string =
-  resolve_read_this_string1 false
-;;
-
-
-class resolve_read_url_channel 
-  ?(base_url = Neturl.null_url)
-  ?auto_close
-  ~url_of_id
-  ~channel_of_url 
-
-  : resolver
-  =
-
-  let getchannel = ref (fun xid -> assert false) in
-
-  object (self)
-    inherit resolve_read_any_channel 
-              ?auto_close:auto_close 
-             (fun xid -> !getchannel xid) 
-             as super
-
-    val base_url = base_url
-    val mutable own_url = Neturl.null_url
-
-    val url_of_id = url_of_id
-    val channel_of_url = channel_of_url
-
-
-    initializer
-      getchannel := self # getchannel
-
-    method private getchannel xid =
-      let rel_url = url_of_id xid in    (* may raise Not_competent *)
-
-      try
-       (* Now compute the absolute URL: *)
-       let abs_url = Neturl.apply_relative_url base_url rel_url in
-                      (* may raise Malformed_URL *)
-
-       (* Simple check whether 'abs_url' is really absolute: *)
-       if not(Neturl.url_provides ~scheme:true abs_url) 
-       then raise Not_competent;
-
-       own_url <- abs_url;
-        (* FIXME: Copy 'abs_url' ? *)
-
-       (* Get and return the channel: *)
-       channel_of_url abs_url            (* may raise Not_competent *)
-      with
-         Neturl.Malformed_URL -> raise (Not_resolvable Neturl.Malformed_URL)
-       | Not_competent        -> raise (Not_resolvable Not_found)
-
-    method clone =
-      let c = 
-       new resolve_read_url_channel 
-         ?base_url:(Some own_url) 
-         ?auto_close:(Some auto_close)
-         ~url_of_id:url_of_id 
-         ~channel_of_url:channel_of_url
-      in
-      c # init_rep_encoding internal_encoding;
-      c # init_warner warner;
-      clones <- c :: clones;
-      (c :> resolve_read_url_channel)
-  end
-;;
-
-
-type spec = [ `Not_recognized | `Allowed | `Required ]
-
-class resolve_as_file
-  ?(file_prefix = (`Allowed :> spec))
-  ?(host_prefix = (`Allowed :> spec))
-  ?(system_encoding = `Enc_utf8) 
-  ?url_of_id:passed_url_of_id
-  ?channel_of_url:passed_channel_of_url
-  ()
-  =
-
-  let url_syntax =
-    let enable_if =
-      function
-         `Not_recognized  -> Neturl.Url_part_not_recognized
-       | `Allowed         -> Neturl.Url_part_allowed
-       | `Required        -> Neturl.Url_part_required
-    in
-    { Neturl.null_url_syntax with
-       Neturl.url_enable_scheme = enable_if file_prefix;
-       Neturl.url_enable_host   = enable_if host_prefix;
-       Neturl.url_enable_path   = Neturl.Url_part_required;
-       Neturl.url_accepts_8bits = true;
-    } 
-  in
-
-  let base_url_syntax = 
-    { Neturl.null_url_syntax with
-       Neturl.url_enable_scheme = Neturl.Url_part_required;
-       Neturl.url_enable_host   = Neturl.Url_part_allowed;
-       Neturl.url_enable_path   = Neturl.Url_part_required;
-       Neturl.url_accepts_8bits = true;
-    } 
-  in
-
-  let default_base_url =
-    Neturl.make_url
-      ~scheme: "file"
-      ~host:   ""
-      ~path:   (Neturl.split_path (Sys.getcwd() ^ "/"))
-      base_url_syntax
-  in
-
-  let file_url_of_id xid =
-    let file_url_of_sysname sysname =
-      (* By convention, we can assume that sysname is a URL conforming
-       * to RFC 1738 with the exception that it may contain non-ASCII
-       * UTF-8 characters. 
-       *)
-      try
-       Neturl.url_of_string url_syntax sysname 
-          (* may raise Malformed_URL *)
-      with
-         Neturl.Malformed_URL -> raise Not_competent
-    in
-    let url =
-      match xid with
-         Anonymous          -> raise Not_competent
-       | Public (_,sysname) -> if sysname <> "" then file_url_of_sysname sysname
-                                                 else raise Not_competent
-       | System sysname     -> file_url_of_sysname sysname
-    in
-    let scheme =
-      try Neturl.url_scheme url with Not_found -> "file" in
-    let host =
-      try Neturl.url_host url with Not_found -> "" in
-    
-    if scheme <> "file" then raise Not_competent;
-    if host <> "" && host <> "localhost" then raise Not_competent;
-    
-    url
-  in
-
-  let channel_of_file_url url =
-    try
-      let path_utf8 =
-       try Neturl.join_path (Neturl.url_path ~encoded:false url)
-       with Not_found -> raise Not_competent
-      in
-      
-      let path = 
-       Netconversion.recode_string
-         ~in_enc:  `Enc_utf8
-         ~out_enc: system_encoding
-         path_utf8 in
-        (* May raise Bad_character_stream *)
-      
-      open_in_bin path, None
-       (* May raise Sys_error *)
-
-    with
-      | Netconversion.Malformed_code -> assert false
-           (* should not happen *)
-
-  in
-
-  let url_of_id id =
-    match passed_url_of_id with
-       None -> 
-         file_url_of_id id
-      | Some f -> 
-         begin 
-           try f id
-           with 
-               Not_competent -> file_url_of_id id
-         end
-  in
-
-  let channel_of_url url =
-    match passed_channel_of_url with
-       None -> 
-         channel_of_file_url url
-      | Some f -> 
-         begin 
-           try f url
-           with 
-               Not_competent -> channel_of_file_url url
-         end
-  in
-  
-  resolve_read_url_channel 
-    ~base_url:       default_base_url
-    ~auto_close:     true
-    ~url_of_id:      url_of_id
-    ~channel_of_url: channel_of_url
-;;
-
-
-class combine ?prefer rl =
-  object (self)
-    val prefered_resolver = prefer
-    val resolvers = (rl : resolver list)
-    val mutable internal_encoding = `Enc_utf8
-    val mutable warner = new drop_warnings
-    val mutable active_resolver = None
-    val mutable clones = []
-
-    method init_rep_encoding enc =
-      List.iter
-       (fun r -> r # init_rep_encoding enc)
-       rl;
-      internal_encoding <- enc
-
-    method init_warner w =
-      List.iter
-       (fun r -> r # init_warner w)
-       rl;
-      warner <- w;
-
-    method rep_encoding = internal_encoding
-      (* CAUTION: This may not be the truth! *)
-
-    method open_in xid =
-      let rec find_competent_resolver rl =
-       match rl with
-           r :: rl' ->
-             begin try 
-               r, (r # open_in xid)
-             with
-                 Not_competent -> find_competent_resolver rl'
-             end;
-         | [] ->
-             raise Not_competent
-      in
-
-      if active_resolver <> None then failwith "Pxp_reader.combine # open_in";
-      let r, lb = 
-       match prefered_resolver with
-           None ->   find_competent_resolver resolvers 
-         | Some r -> find_competent_resolver (r :: resolvers)
-      in
-      active_resolver <- Some r;
-      lb
-
-    method close_in =
-      match active_resolver with
-         None   -> ()
-       | Some r -> r # close_in;
-                   active_resolver <- None
-
-    method close_all =
-      List.iter (fun r -> r # close_in) clones
-
-    method change_encoding (enc:string) =
-      match active_resolver with
-         None   -> failwith "Pxp_reader.combine # change_encoding"
-       | Some r -> r # change_encoding enc
-
-    method clone =
-      let c =
-       match active_resolver with
-           None   -> 
-             new combine ?prefer:None (List.map (fun q -> q # clone) resolvers)
-         | Some r -> 
-             let r' = r # clone in
-             new combine 
-               ?prefer:(Some r')
-               (List.map 
-                  (fun q -> if q == r then r' else q # clone) 
-                  resolvers)
-      in
-      c # init_rep_encoding internal_encoding;
-      c # init_warner warner;
-      clones <- c :: clones;
-      c
-  end
-
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.9  2000/08/14 22:24:55  gerd
- *     Moved the module Pxp_encoding to the netstring package under
- * the new name Netconversion.
- *
- * Revision 1.8  2000/07/16 18:31:09  gerd
- *     The exception Illegal_character has been dropped.
- *
- * Revision 1.7  2000/07/09 15:32:01  gerd
- *     Fix in resolve_this_channel, resolve_this_string
- *
- * Revision 1.6  2000/07/09 01:05:33  gerd
- *     New methode 'close_all' that closes the clones, too.
- *
- * Revision 1.5  2000/07/08 16:24:56  gerd
- *     Introduced the exception 'Not_resolvable' to indicate that
- * 'combine' should not try the next resolver of the list.
- *
- * Revision 1.4  2000/07/06 23:04:46  gerd
- *     Quick fix for 'combine': The active resolver is "prefered",
- * but the other resolvers are also used.
- *
- * Revision 1.3  2000/07/06 21:43:45  gerd
- *     Fix: Public(_,name) is now treated as System(name) if
- * name is non-empty.
- *
- * Revision 1.2  2000/07/04 22:13:30  gerd
- *     Implemented the new API rev. 1.2 of pxp_reader.mli.
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- * Old logs from markup_reader.ml:
- *
- * Revision 1.3  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.2  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.1  2000/03/13 23:41:44  gerd
- *     Initial revision; this code was formerly part of Markup_entity.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_reader.mli b/helm/DEVEL/pxp/pxp/pxp_reader.mli
deleted file mode 100644 (file)
index 27a3680..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_reader.mli
+++ /dev/null
@@ -1,388 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright by Gerd Stolpmann. See LICENSE for details.
- *)
-
-open Pxp_types;;
-
-exception Not_competent;;
-  (* Raised by the 'open_in' method if the object does not know how to 
-   * handle the passed external ID.
-   *)
-
-exception Not_resolvable of exn;;
-  (* Indicates that one resolver was competent, but there was an error
-   * while resolving the external ID. The passed exception explains the
-   * reason.
-   * Not_resolvable(Not_found) serves as indicator for an unknown reason.
-   *)
-
-
-(* The class type 'resolver' is the official type of all "resolvers". 
- * Resolvers take file names (or better, external identifiers) and 
- * return lexbufs, scanning the file for tokens. Resolvers may be
- * cloned, and clones can interpret relative file names relative to
- * their creator.
- *
- * Example of the latter:
- *
- * Resolver r reads from file:/dir/f1.xml
- *
- * <tag>some XML text
- * &e;                       -----> Entity e is bound to "subdir/f2.xml"
- * </tag>                           Step (1): let r' = "clone of r"
- *                                  Step (2): open file "subdir/f2.xml"
- *
- * r' must still know the directory of the file r is reading, otherwise
- * it would not be able to resolve "subdir/f2.xml" = "file:/dir/subdir/f2.xml".
- *
- * Actually, this example can be coded as:
- *
- * let r = new resolve_as_file in
- * let lbuf = r # open_in "file:/dir/f1.xml" in
- * ... read from lbuf ...
- * let r' = r # clone in
- * let lbuf' = r' # open_in "subdir/f2.xml" in
- * ... read from lbuf' ...
- * r' # close_in;
- * ... read from lbuf ...
- * r # close_in;
- *)
-
-class type resolver =
-  object
-    (* A resolver can open an input source, and returns this source as
-     * Lexing.lexbuf.
-     *
-     * After creating a resolver, one must invoke the two methods
-     * init_rep_encoding and init_warner to set the internal encoding of 
-     * strings and the warner object, respectively. This is normally
-     * done by the parsing functions in Pxp_yacc.
-     * It is not necessary to invoke these two methods for a fresh
-     * clone.
-     *
-     * It is possible that the character encoding of the source and the
-     * internal encoding of the parser are different. To cope with this,
-     * one of the tasks of the resolver is to recode the characters of
-     * the input source into the internal character encoding.
-     *
-     * Note that there are several ways of determining the encoding of the
-     * input: (1) It is possible that the transport protocol (e.g. HTTP)
-     * transmits the encoding, and (2) it is possible to inspect the beginning
-     * of the file, and to analyze:
-     * (2.1) The first two bytes indicate whether UTF-16 is used
-     * (2.2) Otherwise, one can assume that an ASCII-compatible character
-     *       set is used. It is now possible to read the XML declaration
-     *       <?xml ... encoding="xyz" ...?>. The encoding found here is
-     *       to be used.
-     * (2.3) If the XML declaration is missing, the encoding is UTF-8.
-     * The resolver needs only to distinguish between cases (1), (2.1),
-     * and the rest.
-     * The details of analyzing whether (2.2) or (2.3) applies are programmed 
-     * elsewhere, and the resolver will be told the result (see below).
-     *
-     * A resolver is like a file: it must be opened before one can work
-     * with it, and it should be closed after all operations on it have been
-     * done. The method 'open_in' is called with the external ID as argument
-     * and it must return the lexbuf reading from the external resource.
-     * The method 'close_in' does not require an argument.
-     *
-     * It is allowed to re-open a resolver after it has been closed. It is
-     * forbidden to open a resolver again while it is open.
-     * It is allowed to close a resolver several times: If 'close_in' is
-     * invoked while the resolver is already closed, nothing happens.
-     *
-     * The method 'open_in' may raise Not_competent to indicate that this
-     * resolver is not able to open this type of IDs.
-     *
-     * The method 'change_encoding' is called from the parser after the
-     * analysis of case (2) has been done; the argument is either the
-     * string name of the encoding, or the empty string to indicate
-     * that no XML declaration was found. It is guaranteed that 
-     * 'change_encoding' is invoked after only a few tokens of the 
-     * file. The resolver should react as follows:
-     * - If case (1) applies:   Ignore the encoding passed to 'change_encoding'.
-     * - If case (2.1) applies: The encoding passed to 'change_encoding' must
-     *                          be compatible with UTF-16. This should be
-     *                          checked, and violations should be reported.
-     * - Else:                  If the passed encoding is "", assume UTF-8.
-     *                          Otherwise, assume the passed encoding.
-     *
-     * The following rule helps synchronizing the lexbuf with the encoding:
-     * If the resolver has been opened, but 'change_encoding' has not yet
-     * been invoked, the lexbuf contains at most one character (which may
-     * be represented by multiple bytes); i.e. the lexbuf is created by
-     * Lexing.from_function, and the function puts only one character into
-     * the buffer at once.
-     * After 'change_encoding' has been invoked, there is no longer a limit
-     * on the lexbuf size.
-     *
-     * The reason for this rule is that you know exactly the character where
-     * the encoding changes to the encoding passed by 'change_encoding'.
-     *
-     * The method 'clone' may be invoked for open or closed resolvers.
-     * Basically, 'clone' returns a new resolver which is always closed.
-     * If the original resolver is closed, the clone is simply a clone.
-     * If the original resolver is open at the moment of cloning:
-     * If the clone is later opened for a relative system ID (i.e. relative
-     * URL), the clone must interpret this ID relative to the ID of the
-     * original resolver.
-     *)
-    method init_rep_encoding : rep_encoding -> unit
-    method init_warner : collect_warnings -> unit
-
-    method rep_encoding : rep_encoding
-
-    method open_in : ext_id -> Lexing.lexbuf
-      (* May raise Not_competent if the object does not know how to handle
-       * this ext_id.
-       *)
-    method close_in : unit
-    method change_encoding : string -> unit
-
-
-    (* Every resolver can be cloned. The clone does not inherit the connection
-     * with the external object, i.e. it is initially closed.
-     *)
-    method clone : resolver
-
-    method close_all : unit
-      (* Closes this resolver and every clone *)
-
-  end
-;;
-
-(* Note: resolve_general is no longer exported. In most cases, the classes
- * resolve_read_any_channel or resolve_read_any_string are applicable, too,
- * and much easier to configure.
- *)
-
-
-(* The next classes are resolvers for concrete input sources. *)
-
-class resolve_read_this_channel : 
-  ?id:ext_id -> ?fixenc:encoding -> ?auto_close:bool -> 
-  in_channel -> resolver;;
-
-  (* Reads from the passed channel (it may be even a pipe). If the ~id
-   * argument is passed to the object, the created resolver accepts only
-   * this ID. Otherwise all IDs are accepted.
-   * Once the resolver has been cloned, it does not accept any ID. This
-   * means that this resolver cannot handle inner references to external
-   * entities. Note that you can combine this resolver with another resolver
-   * that can handle inner references (such as resolve_as_file); see
-   * class 'combine' below.
-   * If you pass the ~fixenc argument, the encoding of the channel is
-   * set to the passed value, regardless of any auto-recognition or
-   * any XML declaration.
-   * If ?auto_close = true (which is the default), the channel is
-   * closed after use. If ?auto_close = false, the channel is left open.
-   *)
-
-
-class resolve_read_any_channel : 
-  ?auto_close:bool -> 
-  channel_of_id:(ext_id -> (in_channel * encoding option)) -> 
-  resolver;;
-
-  (* resolve_read_any_channel f_open:
-   * This resolver calls the function f_open to open a new channel for
-   * the passed ext_id. This function must either return the channel and
-   * the encoding, or it must fail with Not_competent.
-   * The function must return None as encoding if the default mechanism to
-   * recognize the encoding should be used. It must return Some e if it is
-   * already known that the encoding of the channel is e.
-   * If ?auto_close = true (which is the default), the channel is
-   * closed after use. If ?auto_close = false, the channel is left open.
-   *)
-
-
-class resolve_read_url_channel :
-  ?base_url:Neturl.url ->
-  ?auto_close:bool -> 
-  url_of_id:(ext_id -> Neturl.url) -> 
-  channel_of_url:(Neturl.url -> (in_channel * encoding option)) -> 
-    resolver;;
-
-  (* resolve_read_url_channel url_of_id channel_of_url:
-   *
-   * When this resolver gets an ID to read from, it calls the function
-   * ~url_of_id to get the corresponding URL. This URL may be a relative
-   * URL; however, a URL scheme must be used which contains a path.
-   * The resolver converts the URL to an absolute URL if necessary.
-   * The second function, ~channel_of_url, is fed with the absolute URL
-   * as input. This function opens the resource to read from, and returns
-   * the channel and the encoding of the resource.
-   *
-   * Both functions, ~url_of_id and ~channel_of_url, can raise
-   * Not_competent to indicate that the object is not able to read from
-   * the specified resource. However, there is a difference: A Not_competent
-   * from ~url_of_id is left as it is, but a Not_competent from ~channel_of_url
-   * is converted to Not_resolvable. So only ~url_of_id decides which URLs
-   * are accepted by the resolver and which not.
-   *
-   * The function ~channel_of_url must return None as encoding if the default 
-   * mechanism to recognize the encoding should be used. It must return
-   * Some e if it is already known that the encoding of the channel is e.
-   *
-   * If ?auto_close = true (which is the default), the channel is
-   * closed after use. If ?auto_close = false, the channel is left open.
-   * 
-   * Objects of this class contain a base URL relative to which relative
-   * URLs are interpreted. When creating a new object, you can specify
-   * the base URL by passing it as ~base_url argument. When an existing
-   * object is cloned, the base URL of the clone is the URL of the original
-   * object.
-   *
-   * Note that the term "base URL" has a strict definition in RFC 1808.
-   *)
-
-
-class resolve_read_this_string : 
-  ?id:ext_id -> ?fixenc:encoding -> string -> resolver;;
-
-  (* Reads from the passed string. If the ~id
-   * argument is passed to the object, the created resolver accepts only
-   * this ID. Otherwise all IDs are accepted.
-   * Once the resolver has been cloned, it does not accept any ID. This
-   * means that this resolver cannot handle inner references to external
-   * entities. Note that you can combine this resolver with another resolver
-   * that can handle inner references (such as resolve_as_file); see
-   * class 'combine' below.
-   * If you pass the ~fixenc argument, the encoding of the string is
-   * set to the passed value, regardless of any auto-recognition or
-   * any XML declaration.
-   *)
-
-
-class resolve_read_any_string : 
-  string_of_id:(ext_id -> (string * encoding option)) -> resolver;;
-
-  (* resolver_read_any_string f_open:
-   * This resolver calls the function f_open to get the string for
-   * the passed ext_id. This function must either return the string and
-   * the encoding, or it must fail with Not_competent.
-   * The function must return None as encoding if the default mechanism to
-   * recognize the encoding should be used. It must return Some e if it is
-   * already known that the encoding of the string is e.
-   *)
-
-
-class resolve_as_file :
-  ?file_prefix:[ `Not_recognized | `Allowed | `Required ] ->
-  ?host_prefix:[ `Not_recognized | `Allowed | `Required ] ->
-  ?system_encoding:encoding ->
-  ?url_of_id:(ext_id -> Neturl.url) -> 
-  ?channel_of_url: (Neturl.url -> (in_channel * encoding option)) ->
-  unit -> 
-  resolver;;
-
-  (* Reads from the local file system. Every file name is interpreted as
-   * file name of the local file system, and the referred file is read.
-   *
-   * The full form of a file URL is: file://host/path, where
-   * 'host' specifies the host system where the file identified 'path'
-   * resides. host = "" or host = "localhost" are accepted; other values
-   * will raise Not_competent. The standard for file URLs is 
-   * defined in RFC 1738.
-   *
-   * Option ~file_prefix: Specifies how the "file:" prefix of file names
-   * is handled:
-   * `Not_recognized:  The prefix is not recognized.
-   * `Allowed:         The prefix is allowed but not required (the default).
-   * `Required:        The prefix is required.
-   *
-   * Option ~host_prefix: Specifies how the "//host" phrase of file names
-   * is handled:
-   * `Not_recognized:  The phrase is not recognized.
-   * `Allowed:         The phrase is allowed but not required (the default).
-   * `Required:        The phrase is required.
-   *
-   * Option ~system_encoding: Specifies the encoding of file names of
-   * the local file system. Default: UTF-8.
-   *
-   * Options ~url_of_id, ~channel_of_url: Not for the end user!
-   *)
-
-
-class combine : ?prefer:resolver -> resolver list -> resolver;;
-  
-  (* Combines several resolver objects. If a concrete entity with an
-   * ext_id is to be opened, the combined resolver tries the contained
-   * resolvers in turn until a resolver accepts opening the entity
-   * (i.e. it does not raise Not_competent on open_in).
-   *
-   * Clones: If the 'clone' method is invoked before 'open_in', all contained
-   * resolvers are cloned and again combined. If the 'clone' method is 
-   * invoked after 'open_in' (i.e. while the resolver is open), only the
-   * active resolver is cloned.
-   *) 
-
-(* EXAMPLES OF RESOLVERS:
- *
- * let r1 = new resolve_as_file
- *   - r1 can open all local files
- *
- * let r2 = new resolve_read_this_channel 
- *            ~id:"file:/dir/f.xml" 
- *            (open_in "/dir/f.xml")
- *   - r2 can only read /dir/f.xml of the local file system. If this file
- *     contains references to other files, r2 will fail
- *
- * let r3 = new combine [ r2; r1 ]
- *   - r3 reads /dir/f.xml of the local file system by calling r2, and all
- *     other files by calling r1
- *)
-
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.5  2000/07/09 01:05:33  gerd
- *     New methode 'close_all' that closes the clones, too.
- *
- * Revision 1.4  2000/07/08 16:24:56  gerd
- *     Introduced the exception 'Not_resolvable' to indicate that
- * 'combine' should not try the next resolver of the list.
- *
- * Revision 1.3  2000/07/06 23:04:46  gerd
- *     Quick fix for 'combine': The active resolver is "prefered",
- * but the other resolvers are also used.
- *
- * Revision 1.2  2000/07/04 22:06:49  gerd
- *     MAJOR CHANGE: Complete redesign of the reader classes.
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- * Old logs from markup_reader.mli:
- *
- * Revision 1.3  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.2  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.1  2000/03/13 23:41:54  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_types.ml b/helm/DEVEL/pxp/pxp/pxp_types.ml
deleted file mode 100644 (file)
index e8a8eac..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_types.ml
+++ /dev/null
@@ -1,212 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright 1999 by Gerd Stolpmann. See LICENSE for details.
- *)
-
-type ext_id =
-    System of string
-  | Public of (string * string)
-  | Anonymous
-
-
-type dtd_id =
-    External of ext_id
-  | Derived of ext_id
-  | Internal
-;;
-
-type content_model_type =
-    Unspecified
-  | Empty
-  | Any
-  | Mixed of mixed_spec list
-  | Regexp of regexp_spec
-
-and mixed_spec =
-    MPCDATA
-  | MChild of string
-
-and regexp_spec =
-    Optional of regexp_spec
-  | Repeated of regexp_spec
-  | Repeated1 of regexp_spec
-  | Alt of regexp_spec list
-  | Seq of regexp_spec list
-  | Child of string
-;;
-
-
-type att_type =
-    A_cdata
-  | A_id
-  | A_idref
-  | A_idrefs
-  | A_entity
-  | A_entities
-  | A_nmtoken
-  | A_nmtokens
-  | A_notation of string list
-  | A_enum of string list
-;;
-
-
-type att_default =
-    D_required
-  | D_implied
-  | D_default of string  (* The default value is already expanded *)
-  | D_fixed of string    (* The default value is already expanded *)
-;;
-
-
-type att_value =
-    Value of string
-  | Valuelist of string list
-  | Implied_value
-;;
-
-
-class type collect_warnings =
-  object 
-    method warn : string -> unit
-  end
-;;
-
-
-class drop_warnings =
-  object 
-    method warn (w:string) = ()
-  end
-;;
-
-
-type encoding = Netconversion.encoding;;
-
-type rep_encoding =
-  (* The subset of 'encoding' that may be used for internal representation
-   * of strings.
-   *)
-  [  `Enc_utf8       (* UTF-8 *)
-  |  `Enc_iso88591   (* ISO-8859-1 *)
-  ]
-;;
-
-
-exception Validation_error of string
-
-exception WF_error of string
-
-exception Error of string
-
-exception Character_not_supported
-
-exception At of (string * exn)
-
-exception Undeclared
-
-
-let rec string_of_exn x0 =
-  match x0 with
-      At (s, x) ->
-        s ^ string_of_exn x
-    | Validation_error s ->
-        "ERROR (Validity constraint): "  ^ s
-    | WF_error s ->
-        "ERROR (Well-formedness constraint): " ^ s
-    | Error s ->
-       "ERROR: " ^ s
-    | Character_not_supported ->
-        "RESTRICTION: Character not supported"
-    | Netconversion.Malformed_code ->
-        "ERROR: Bad character stream"
-    | Undeclared ->
-        "INFORMATION: Undeclared"
-    | Parsing.Parse_error ->
-       "SYNTAX ERROR"
-    | _ ->
-        "Other exception: " ^ Printexc.to_string x0
-;;
-
-
-type output_stream =
-    Out_buffer of Buffer.t
-  | Out_channel of out_channel
-  | Out_function of (string -> int -> int -> unit)
-;;
-
-
-let write os str pos len =
-  match os with
-      Out_buffer b -> Buffer.add_substring b str pos len
-    | Out_channel ch -> output ch str pos len
-    | Out_function f -> f str pos len
-;;
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.7  2000/08/14 22:24:55  gerd
- *     Moved the module Pxp_encoding to the netstring package under
- * the new name Netconversion.
- *
- * Revision 1.6  2000/07/27 00:41:15  gerd
- *     new 8 bit codes
- *
- * Revision 1.5  2000/07/16 18:31:09  gerd
- *     The exception Illegal_character has been dropped.
- *
- * Revision 1.4  2000/07/14 21:25:27  gerd
- *     Simplified the type 'collect_warnings'.
- *
- * Revision 1.3  2000/07/08 16:23:50  gerd
- *     Added the exception 'Error'.
- *
- * Revision 1.2  2000/07/04 22:14:05  gerd
- *     Implemented the changes of rev. 1.2 of pxp_types.mli.
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- * Old logs from markup_types.ml:
- *
- * Revision 1.7  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.6  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.5  2000/05/01 20:43:19  gerd
- *     New type output_stream; new function 'write'.
- *
- * Revision 1.4  1999/09/01 16:25:35  gerd
- *     Dropped Illegal_token and Content_not_allowed_here. WF_error can
- * be used instead.
- *
- * Revision 1.3  1999/08/15 02:22:33  gerd
- *     Added exception Undeclared.
- *
- * Revision 1.2  1999/08/14 22:14:58  gerd
- *     New class "collect_warnings".
- *
- * Revision 1.1  1999/08/10 00:35:52  gerd
- *     Initial revision.
- *
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_types.mli b/helm/DEVEL/pxp/pxp/pxp_types.mli
deleted file mode 100644 (file)
index e8b4711..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_types.mli
+++ /dev/null
@@ -1,224 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright 1999 by Gerd Stolpmann. See LICENSE for details.
- *)
-
-
-type ext_id =
-    System of string
-  | Public of (string * string)
-  | Anonymous
-
-  (* external identifiers are either "system identifiers" (filenames or URLs),
-   * or "public identifiers" Public(id,sysid) where "id" is the representation
-   * of the public ID, and "sysid" a fallback system ID, or the empty string.
-   *
-   * New in PXP: Sometimes the external ID is not known. This case can be
-   * referred to as Anonymous ID.
-   *
-   * Encoding: The identifiers are _always_ encoded as UTF8 strings,
-   * regardless of whether another encoding is configured for the parser.
-   * TODO: umsetzen
-   *)
-
-
-type dtd_id =
-    External of ext_id       (* DTD is completely external *)
-  | Derived of ext_id        (* DTD is derived from an external DTD *)
-  | Internal                 (* DTD is completely internal *)
-;;
-
-type content_model_type =
-    Unspecified              (* A specification of the model has not yet been
-                             * found
-                             *)
-  | Empty                    (* Nothing is allowed as content *)
-  | Any                      (* Everything is allowed as content *)
-  | Mixed of mixed_spec list (* The contents consist of elements and PCDATA 
-                             * in arbitrary order. What is allowed in
-                             * particular is given as mixed_spec.
-                             *)
-  | Regexp of regexp_spec    (* The contents are elements following this regular
-                             * expression
-                             *)
-
-and mixed_spec =
-    MPCDATA                  (* PCDATA children are allowed *)
-  | MChild of string         (* This kind of Element is allowed *)
-
-and regexp_spec =
-    Optional of regexp_spec  (* subexpression? *)
-  | Repeated of regexp_spec  (* subexpression* *)
-  | Repeated1 of regexp_spec (* subexpression+ *)
-  | Alt of regexp_spec list  (* subexpr1 | subexpr2 | ... | subexprN *)
-  | Seq of regexp_spec list  (* subexpr1 , subexpr2 , ... , subexprN *)
-  | Child of string          (* This kind of Element is allowed here *)
-;;
-
-
-type att_type =
-    A_cdata                    (* CDATA *)
-  | A_id                       (* ID *)
-  | A_idref                    (* IDREF *)
-  | A_idrefs                   (* IDREFS *)
-  | A_entity                   (* ENTITY *)
-  | A_entities                 (* ENTiTIES *)
-  | A_nmtoken                  (* NMTOKEN *)
-  | A_nmtokens                 (* NMTOKENS *)
-  | A_notation of string list  (* NOTATION (name1 | name2 | ... | nameN) *)
-  | A_enum of string list      (* (name1 | name2 | ... | nameN) *)
-;;
-
-
-type att_default =
-    D_required           (* #REQUIRED *)
-  | D_implied            (* #IMPLIED *)
-  | D_default of string  (* <value> -- The value is already expanded *)
-  | D_fixed of string    (* FIXED <value> -- The value is already expanded *)
-;;
-
-
-type att_value =
-    Value of string           (* a single value *)
-  | Valuelist of string list  (* a list of values *)
-  | Implied_value             (* a value left out *)
-;;
-
-
-class type collect_warnings =
-  object 
-    method warn : string -> unit
-  end
-;;
-
-
-class drop_warnings : collect_warnings;;
-
-
-type encoding = Netconversion.encoding;;
-  (* We accept all encodings for character sets which are defined in
-   * Netconversion (package netstring).
-   *)
-
-type rep_encoding =
-  (* The subset of 'encoding' that may be used for internal representation
-   * of strings.
-   * Note: The following encodings are ASCII-compatible! This is an important
-   * property used throghout the whole PXP code.
-   *)
-  [ `Enc_utf8       (* UTF-8 *)
-  | `Enc_iso88591   (* ISO-8859-1 *)
-  ]
-;;
-
-
-exception Validation_error of string
-  (* Violation of a validity constraint *)
-
-exception WF_error of string
-  (* Violation of a well-formedness constraint *)
-
-exception Error of string
-  (* Other error *)
-
-exception Character_not_supported
-
-exception At of (string * exn)
-  (* The string is a description where the exn happened. The exn value can
-   * again be At(_,_) (for example, when an entity within an entity causes
-   * the error).
-   *)
-
-exception Undeclared
-  (* Indicates that declaration is available and because of this every kind
-   * of usage is allowed.
-   *)
-
-val string_of_exn : exn -> string
-  (* Converts a Markup exception into a readable string *)
-
-
-type output_stream =
-    Out_buffer of Buffer.t
-  | Out_channel of out_channel
-  | Out_function of (string -> int -> int -> unit)
-
-val write : output_stream -> string -> int -> int -> unit
-  (* write os s pos len: Writes the string to the buffer/channel/stream *)
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.8  2000/08/14 22:24:55  gerd
- *     Moved the module Pxp_encoding to the netstring package under
- * the new name Netconversion.
- *
- * Revision 1.7  2000/07/27 00:41:15  gerd
- *     new 8 bit codes
- *
- * Revision 1.6  2000/07/16 18:31:09  gerd
- *     The exception Illegal_character has been dropped.
- *
- * Revision 1.5  2000/07/16 16:34:21  gerd
- *     Updated comments.
- *
- * Revision 1.4  2000/07/14 21:25:27  gerd
- *     Simplified the type 'collect_warnings'.
- *
- * Revision 1.3  2000/07/08 16:23:50  gerd
- *     Added the exception 'Error'.
- *
- * Revision 1.2  2000/07/04 22:08:26  gerd
- *     type ext_id: New variant Anonymous. - The System and Public
- * variants are now encoded as UTF-8.
- *     collect_warnings is now a class type only. New class
- * drop_warnings.
- *     New functions  encoding_of_string and string_of_encoding.
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- * Old logs from Markup_types.mli:
- *
- * Revision 1.7  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.6  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.5  2000/05/01 20:43:25  gerd
- *         New type output_stream; new function 'write'.
- *
- * Revision 1.4  1999/09/01 16:25:35  gerd
- *     Dropped Illegal_token and Content_not_allowed_here. WF_error can
- * be used instead.
- *
- * Revision 1.3  1999/08/15 02:22:40  gerd
- *         Added exception Undeclared.
- *
- * Revision 1.2  1999/08/14 22:15:17  gerd
- *         New class "collect_warnings".
- *
- * Revision 1.1  1999/08/10 00:35:52  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_utf8.ml b/helm/DEVEL/pxp/pxp/pxp_utf8.ml
deleted file mode 100644 (file)
index f0a9462..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_utf8.ml
+++ /dev/null
@@ -1,48 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-open Pxp_types;;
-open Pxp_lexer_types;;
-
-Pxp_lexers.init_utf8 
-  { lex_encoding         = `Enc_utf8;
-    scan_document        = Pxp_lex_document_utf8.scan_document;
-    scan_content         = Pxp_lex_content_utf8.scan_content;
-    scan_within_tag      = Pxp_lex_within_tag_utf8.scan_within_tag;
-    scan_document_type   = Pxp_lex_document_type_utf8.
-                            scan_document_type;
-    scan_declaration     = Pxp_lex_declaration_utf8.scan_declaration;
-    scan_content_comment  = Pxp_lex_misc_utf8.scan_content_comment;
-    scan_decl_comment     = Pxp_lex_misc_utf8.scan_decl_comment;
-    scan_document_comment = Pxp_lex_misc_utf8.scan_document_comment;
-    scan_ignored_section = Pxp_lex_name_string_utf8.scan_ignored_section;
-    scan_xml_pi          = Pxp_lex_misc_utf8.scan_xml_pi;
-    scan_dtd_string      = Pxp_lex_dtd_string_utf8.scan_dtd_string;
-    scan_content_string  = Pxp_lex_content_string_utf8.
-                            scan_content_string;
-    scan_name_string     = Pxp_lex_name_string_utf8.scan_name_string;
-    scan_only_xml_decl   = Pxp_lex_misc_utf8.scan_only_xml_decl;
-    scan_for_crlf        = Pxp_lex_misc_utf8.scan_for_crlf;
-  }
-;;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.3  2000/06/04 20:31:44  gerd
- *     Updated.
- *
- * Revision 1.2  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.1  2000/05/23 00:08:48  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_utf8.mli b/helm/DEVEL/pxp/pxp/pxp_utf8.mli
deleted file mode 100644 (file)
index 42cb033..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_utf8.mli
+++ /dev/null
@@ -1,22 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-(* This is a module without interface. Its initialization part sets up
- * the UTF-8 lexers.
- * Link with this module if you want to use the UTF-8 lexers!
- *)
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.1  2000/05/23 00:08:48  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_yacc.m2y b/helm/DEVEL/pxp/pxp/pxp_yacc.m2y
deleted file mode 100644 (file)
index 91de7cd..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_yacc.m2y
+++ /dev/null
@@ -1,2528 +0,0 @@
-(* $Id$ -*- tuareg -*-
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright by Gerd Stolpmann. See LICENSE for details.
- *)
-
-open Parsing
-open Pxp_types
-open Pxp_lexer_types
-open Pxp_dtd
-open Pxp_entity
-open Pxp_document
-open Pxp_aux
-
-(* Some types from the interface definition: *)
-
-exception ID_not_unique
-
-class type [ 'ext ] index =
-object 
-  constraint 'ext = 'ext node #extension
-  method add : string -> 'ext node -> unit
-  method find : string -> 'ext node
-end
-
-
-type config =
-    { warner : collect_warnings;
-      errors_with_line_numbers : bool;
-      enable_pinstr_nodes : bool;
-      enable_super_root_node : bool;
-      enable_comment_nodes : bool;
-      encoding : rep_encoding;
-      recognize_standalone_declaration : bool;
-      store_element_positions : bool;
-      idref_pass : bool;
-      validate_by_dfa : bool;
-      accept_only_deterministic_models : bool;
-      debugging_mode : bool;
-    }
-
-type source =
-    Entity of ((dtd -> Pxp_entity.entity) * Pxp_reader.resolver)
-  | ExtID of (ext_id * Pxp_reader.resolver)
-
-
-type start_symbol =
-    Ext_document
-  | Ext_declarations
-  | Ext_element
-
-
-type context =
-    { mutable current : unit -> token;  (* get the current token *)
-      mutable get_next : unit -> token; (* go on to the next token; return it *)
-      mutable current_token : token;    (* This is the current token *)
-      mutable manager : entity_manager; (* The entity manager *)
-    }
-
-
-let make_context entity_manager =
-  let c =
-    { current = (fun _ -> assert false);
-      get_next = (fun _ -> assert false);
-      current_token = Eof;
-      manager = entity_manager;
-    }
-  in
-  (* Note that the function which is stored in get_next_ref can be changed
-   * as a side-effect when an entity is opened or closed. The function in
-   * c.get_next must be programmed such that always the current "get_next"
-   * function is executed.
-   *)
-  let get_next_ref = entity_manager # yy_get_next_ref in
-  c.current  <- (fun () -> c.current_token);
-  c.get_next <- (fun () -> let tok = !get_next_ref() in
-                          c.current_token <- tok;
-                          tok);
-  ignore(c.get_next());
-  c
-;;
-
-
-let from_channel ?system_encoding ?id:init_id ?fixenc ch =
-
-  (* Reading from a channel works by modifying the algorithm of
-   * resolve_as_file.
-   *)
-
-  let url_syntax =      (* A syntax suitable for "file" URLs *)
-    { Neturl.null_url_syntax with
-       Neturl.url_enable_scheme = Neturl.Url_part_allowed;
-       Neturl.url_enable_host   = Neturl.Url_part_allowed;
-       Neturl.url_enable_path   = Neturl.Url_part_required;
-       Neturl.url_accepts_8bits = true;
-    } 
-  in
-
-  let an_url =
-    Neturl.make_url
-      ~scheme: "file"
-      ~host:   ""
-      ~path:   [ "" ]
-      url_syntax
-  in
-
-  let init_channel_done = ref false in
-    (* Whether the first access to this source has already happened. *)
-
-  (* The task of url_of_id is:
-   * - When it is called the first time, and no init_id is present,
-   *   the URL file:/// is passed back (an_url). This forces that
-   *   absolute path names /path/dir/... will be interpreted as 
-   *   file path names. (But relative path names will not work.)
-   * - If an init_id has been passed, we can assume that the opened URL
-   *   is exactly this init_id. By raising Not_competent it is indicated
-   *   that the standard method is to be used for the interpretation of
-   *   the URL.
-   * - Otherwise, the channel is already being read, and thus cannot again
-   *   opened. (This case is handled in channel_of_url.)
-   *)
-
-  let url_of_id xid =
-    if !init_channel_done then begin
-      (* Use the normal way of determining the URL of the ID: *)
-      raise Pxp_reader.Not_competent
-    end
-    else begin
-      match init_id with
-         None -> 
-           an_url
-             (* If the channel is not associated with any URL: Simply pass 
-              * the URL file:/// back. 
-              *)
-       | Some the_init_id ->
-           assert (the_init_id = xid);
-           raise Pxp_reader.Not_competent
-             (* If the channel is associated with a URL, the corresponding
-              * ID must be passed when the first invocation happens.
-              *)
-    end
-  in
-
-  (* The task of channel_of_url:
-   * - If it is called the first time ("else"), the channel is returned
-   * - Otherwise, the channel is already being read, and thus cannot again
-   *   opened. By raising Not_competent it is signaled that the 
-   *   resolve_as_file object must not continue to open the URL.
-   *)
-
-  let channel_of_url url =
-    if !init_channel_done then
-      raise Pxp_reader.Not_competent
-    else begin
-      init_channel_done := true;
-      ch, fixenc
-    end
-  in
-
-  let r =
-    new Pxp_reader.resolve_as_file 
-      ?system_encoding:system_encoding
-      ~url_of_id:url_of_id
-      ~channel_of_url:channel_of_url
-      ()
-  in
-
-  let init_xid =
-    match init_id with
-       None   -> Anonymous
-      | Some id -> 
-         (* Note: 'id' may be illegal (malformed); in this case, the first
-          * invocation of url_of_id will raise Not_competent, and the 'open_in'
-          * method will fail.
-          *)
-         id
-  in
-
-  ExtID(init_xid, r)
-;;
-
-
-let from_file ?system_encoding utf8_filename =
-  
-  let r =
-    new Pxp_reader.resolve_as_file 
-      ?system_encoding:system_encoding
-      ()
-  in
-
-  let utf8_abs_filename =
-    if utf8_filename <> "" && utf8_filename.[0] = '/' then
-      utf8_filename
-    else
-      Sys.getcwd() ^ "/" ^ utf8_filename
-  in
-
-  let syntax = { Neturl.ip_url_syntax with Neturl.url_accepts_8bits = true } in
-  let url = Neturl.make_url 
-             ~scheme:"file" 
-             ~host:"localhost" 
-             ~path:(Neturl.split_path utf8_abs_filename) 
-             syntax
-  in
-
-  let xid = System (Neturl.string_of_url url) in
-    
-
-  ExtID(xid, r)
-;;
-
-
-let from_string ?fixenc s =
-  let r =
-    new Pxp_reader.resolve_read_this_string ?fixenc:fixenc s in
-  ExtID(Anonymous, r)
-;;
-
-
-(**********************************************************************)
-
-class ['ext] parser_object
-  init_doc init_dtd init_extend_dtd init_config init_resolver init_spec 
-  init_process_xmldecl transform_dtd id_index
-  =
-  object (self)
-
-      (* Note that the 'ext parameter has been the motivation to make the
-       * parser a class.
-       *)
-
-    val mutable dtd = init_dtd
-       (* The DTD being parsed; or the DTD currently assumed *)
-
-    val extend_dtd = init_extend_dtd
-       (* Whether the DTD should be extended by ELEMENT, ATTLIST, and
-        * NOTATION declarations or not. (True for validating mode,
-        * false for well-formedness mode.)
-        *)
-
-    val transform_dtd = transform_dtd
-        (* A function transforming the DTD *)
-
-    val id_index = (id_index : 'ext index option)
-        (* The ID index or None *)
-
-    val process_xmldecl = init_process_xmldecl
-        (* Whether the XML declaration is parsed and the found XML version
-        * and standalone declaration are passed to 'doc'.
-        *)
-
-    val lexerset = Pxp_lexers.get_lexer_set (init_config.encoding)
-
-    val doc = init_doc
-        (* The current document *)
-
-    method doc = (doc : 'ext document)
-
-    val resolver = init_resolver
-        (* The resolver for external IDs *)
-
-    val config = init_config
-        (* The current configuration *)
-
-    val elstack = (Stack.create() : ('ext node * entity_id) Stack.t)
-       (* The element stack containing all open elements, i.e. elements that
-       * have begun by a start tag but that have not been finished (end tag).
-       * If the parser sees a start tag, it creates the element and pushes it
-       * on top of this stack. If the parser recognizes an end tag, it pulls
-       * one element from the stack and checks if it has the same name as
-       * given with the end tag.
-       *
-       * At initialization time, a special element is pushed on the stack,
-       * the so-called super root. It is always the bottommost
-       * element of the stack, and serves as a guard.
-       * [See "initializer" below.]
-       *)
-                   
-    method current =
-        (* Get the top element of the element stack *)
-        try
-          fst(Stack.top elstack)
-       with
-           Stack.Empty -> assert false
-               (* Not possible, because the super root is always the element 
-                * at the bottom of the stack.
-                *)
-
-    val mutable n_tags_open = 0
-       (* Number of begin tags that have been parsed and whose corresponding
-        * end tags have not yet been parsed
-        *)
-
-    val mutable p_internal_subset = false
-        (* true while parsing the internal subset - there are some additional
-        * constraints for internal subsets, and because of this it must
-        * be known whether the current declaration is contained in the
-        * internal or external subset of the DTD.
-        *)
-
-    val mutable root = None
-        (* Contains the root element (topmost element) while it is being parsed
-        * and after it has been parsed.
-        * This variable is None before the root element is seen.
-        *)
-
-    method root = root
-
-    val spec = init_spec
-        (* A hashtable that contains exemplar objects for the various element
-        * types. If an element is parsed, the exemplar is looked up and
-        * "cloned" (by the "create" method)
-        *)
-
-    val mutable current_data = []
-       (* Collects character data. *)
-
-    method collect_data s =
-        (* Collects the character material 's' *)
-        current_data <- s :: current_data
-
-    method save_data =
-      (* Puts the material collected in 'current_data' into a new
-       * node, and appends this node as new sub node to 'current'
-       *)
-      match current_data with
-         [] ->
-           ()
-       | [ str ] ->
-           if str <> "" then
-             self # current # add_node (create_data_node spec dtd str);
-           current_data <- []
-       | _ ->
-           let count = List.fold_left 
-                         (fun acc s -> acc + String.length s) 
-                         0
-                         current_data in
-           let str = String.create count in
-           let pos = ref count in
-           List.iter
-             (fun s ->
-                let l = String.length s in
-                pos := !pos - l;
-                String.blit
-                ~src:s
-                ~src_pos:0
-                ~dst:str
-                ~dst_pos:(!pos)
-                ~len:l
-             )
-             current_data;
-           assert(!pos = 0);
-           if str <> "" then
-             self # current # add_node (create_data_node spec dtd str);
-           current_data <- []
-             
-
-    method only_whitespace data =
-       (* Checks that the string "data" contains only whitespace. On failure,
-        * Validation_error is raised.
-        *)
-      let lexbuf = Lexing.from_string data in
-      let t1 = lexerset.scan_name_string lexbuf in
-      if t1 <> Ignore then
-       raise(WF_error("Data not allowed here"));
-      let t2 = lexerset.scan_name_string lexbuf in
-      if t2 <> Eof then
-       raise(WF_error("Data not allowed here"));
-      ()
-
-    initializer
-      (* CHECKS: *)
-      if config.encoding <> dtd # encoding then
-       failwith("Encoding mismatch");
-
-      (* --- Initialize 'elstack': Push the super-root on the stack. *)
-      let super_root = 
-       if config.enable_super_root_node then
-         create_super_root_node spec dtd 
-       else
-         (* because spec may not contain an exemplar for the super root: *)
-         create_no_node spec dtd
-      in
-      (* Move the super root or the emulation to the stack: *)
-      Stack.push (super_root, (self :> entity_id)) elstack;
-
-
-
-      (********* Here the method "parse" begins. The grammar below is
-       *         transformed to a local function of this method
-       *)
-
-      method parse context start_symbol =
-
-       let parse_ignored_section yy_current yy_get_next =
-         (* A special parser which should be used after <![IGNORE[.
-          * It parses until the corresponding ]]> is found.
-          *)
-
-          while yy_current() = Ignore do
-           ignore(yy_get_next());
-         done;
-
-         ( match yy_current() with
-             Conditional_body _ -> ()
-           | _                  -> raise Parsing.Parse_error;
-         );
-
-         let en = context.manager # current_entity in
-         let llev = ref 1 in
-         while !llev >= 1 do
-           let igntok = en # next_ignored_token in
-           (* next_ignored_token: uses a special lexer that only
-            * recognizes Conditional_begin and Conditional_end;
-            * other character combinations are ignored.
-            *)
-           (* NOTE: next_ignored_token works much like yy_get_next,
-            * but it does not set the current token!
-            *)
-           match igntok with
-               Conditional_begin _ ->
-                 llev := !llev + 1
-             | Conditional_end _ ->
-                 llev := !llev - 1;
-                 (* Because the loop may be exited now: *)
-                 context.current_token <- igntok;
-             | (End_entity | Eof) ->
-                 raise Parsing.Parse_error
-             | _ ->
-                 ()
-         done;
-         
-       in
-
-
-       let check_and_parse_xmldecl xmldecl =
-         if process_xmldecl then begin
-           let v, _, s = decode_doc_xml_pi (decode_xml_pi xmldecl) in
-           check_version_num v;
-           doc # init_xml_version v;
-           let v = match s with
-               None -> false
-             | Some "yes" -> true
-             | Some "no" -> false
-             | _ -> raise (WF_error("Illegal 'standalone' declaration"))
-           in
-           if config.recognize_standalone_declaration then 
-             dtd # set_standalone_declaration v
-         end
-       in
-
-       let recode_utf8 s =
-         (* Recode 's' to UTF-8 *)
-         if config.encoding = `Enc_utf8 then
-           s   (* No recoding necessary *)
-         else
-           Netconversion.recode_string 
-             ~in_enc:(config.encoding :> encoding) ~out_enc:`Enc_utf8 s
-       in
-
-       
-%%
-
-/* The following grammar looks similar to ocamlyacc grammars, but 
- * ocamlyacc is actually not used to transform the grammar into a parser. 
- * Instead, the parser generator m2parsergen is applied.
- *
- * The format of the grammar is different (see m2parsergen/README), 
- * but I hope that you can understand most features immediately. 
- *
- * The type of the parser is different: m2parsergen creates a top-down
- * parser while ocamlyacc generates a LALR-1 parser.
- *
- * The way the generated code is called is different: ocamlyacc produces
- * lots of top-level definitions whereas m2parsergen generates only 
- * a local let-in-phrase. This is explained in the already mentioned
- * README file.
- */ 
-
-/* See Pxp_types.ml for comments to the various tokens */
-
-%token Begin_entity
-%token End_entity
-%token Comment_begin
-%token Comment_end
-%token Ignore
-%token Eq
-%token Rangle
-%token Rangle_empty
-%token <> Conditional_begin
-%token <> Conditional_body
-%token <> Conditional_end
-%token Percent
-%token Plus
-%token Star
-%token Bar
-%token Comma
-%token Qmark
-%token Pcdata
-%token Required
-%token Implied
-%token Fixed
-%token Eof
-
-%token <> Comment_material
-%token <> Doctype
-%token <> Doctype_rangle
-%token <> Dtd_begin
-%token <> Dtd_end
-%token <> Decl_element
-%token <> Decl_attlist
-%token <> Decl_entity
-%token <> Decl_notation
-%token <> Decl_rangle
-%token <> Lparen
-%token <> Rparen
-%token <> RparenPlus
-%token <> RparenStar
-%token <> RparenQmark
-
-%token <> Tag_beg
-%token <> Tag_end
-
-%token <> PI
-%token <> PI_xml
-%token <> Cdata
-%token <> CRef
-%token <> ERef
-%token <> PERef
-%token <> CharData
-%token <> LineEnd
-%token <> Name
-%token <> Nametoken
-%token <> Attval
-%token <> Attval_nl_normalized
-%token <> Unparsed_string
-
-/* START SYMBOLS:
- *
- * "ext_document":       parses a complete XML document (i.e. containing a
- *                       <!DOCTYPE..> and an element)
- * "ext_declarations":   parses an "external DTD subset", i.e. a sequence
- *                       of declarations
- * "ext_element":        parses a single element (no <!DOCTYPE...> allowed);
- *                       the element needs not to be the root element of the
- *                       DTD
- *
- * The functions corresponding to these symbols return always () because
- * they only have side-effects.
- */
-
-/* SOME GENERAL COMMENTS:
- *
- * The parser does not get its tokens from the lexers directly. Instead of
- * this, there is an entity object between the parser and the lexers. This
- * object already handles:
- *
- * - References to general and parameter entities. The token stream is
- *   modified such that tokens automatically come from the referenced entities.
- *   External parameter entities and all general entities are embraced by
- *   the two special tokens Begin_entity and End_entity. The parser must
- *   check that these braces are correctly nested.
- */
-
-%%
-
-
-ext_document():
-  Begin_entity 
-  doc_xmldecl_then_misc_then_prolog_then_rest() End_entity
-    {{
-      if n_tags_open <> 0 then
-       raise(WF_error("Missing end tag"))
-    }}
-
-
-/* In the following rule, we must find out whether there is an XML declaration
- * or not, and directly after that either "process_xmldecl" or 
- * "process_missing_xmldecl" of the current entity must be called.
- * AND IT MUST BE DIRECTLY! Because of this, the invocation is carried out
- * in the "$" clause immediately following the first token.
- *
- * TODO: This is not enough. The first token may be a tag, and the tag
- * may already contain non-ASCII characters. (But in this case, the resolvers
- * assume UTF8, and they are right...)
- */
-
-doc_xmldecl_then_misc_then_prolog_then_rest():
-  pl:PI_xml 
-  $ {{ context.manager # current_entity # process_xmldecl pl; 
-       check_and_parse_xmldecl pl;
-    }}
-  misc()* doc_prolog_then_rest()
-    {{ () }}
-
-| $ {{ context.manager # current_entity # process_missing_xmldecl; }}
-  misc() misc()* doc_prolog_then_rest()
-    {{ () }}
-
-| $ {{ context.manager # current_entity # process_missing_xmldecl; }}
-  doctypedecl() misc()* contents_start()
-    {{ () }}
-
-| $ {{ context.manager # current_entity # process_missing_xmldecl; }}
-  contents_start()
-    {{ () }}
-
-
-doc_prolog_then_rest():
-  doctypedecl() misc()* contents_start()
-    {{ () }}
-| contents_start() 
-    {{ () }}
- 
-
-ext_element():
-  Begin_entity el_xmldecl_then_misc_then_rest() End_entity
-    {{
-      if n_tags_open <> 0 then
-       raise(WF_error("Missing end tag"))
-    }}
-
-
-/* See comment for doc_mldecl_then_misc_then_prolog_then_rest. */
-
-el_xmldecl_then_misc_then_rest():
-  pl:PI_xml
-  $ {{ context.manager # current_entity # process_xmldecl pl; }}
-  misc()* contents_start() 
-    {{ () }}
-
-| $ {{ context.manager # current_entity # process_missing_xmldecl; }}
-  misc() misc()* contents_start() 
-    {{ () }}
-
-| $ {{ context.manager # current_entity # process_missing_xmldecl; }}
-  contents_start()
-    {{ () }}
-
-
-ext_declarations():
-  /* Parses a sequence of declarations given by an entity. As side-effect,
-   * the parsed declarations are put into the dtd object.
-   */
-  Begin_entity decl_xmldecl_then_rest() 
-   {{ () }}
-| Eof
-   {{ () }}
-
-
-decl_xmldecl_then_rest():
-  /* Note: This rule is also called from declaration()! */
-  pl:PI_xml
-  $ {{ context.manager # current_entity # process_xmldecl pl; 
-    }}
-  declaration()* End_entity
-   {{ () }}
-
-| $ {{ context.manager # current_entity # process_missing_xmldecl; }}
-  declaration() declaration()* End_entity
-   {{ () }}
-
-| $ {{ context.manager # current_entity # process_missing_xmldecl; }}
-  End_entity
-   {{ () }}
-
-
-misc():
-  pi()
-    {{ () }}
-| data: CharData
-    /* In this context, the lexers sometimes do not recognize white space; 
-     * instead CharData tokens containing white space are delivered.
-     */
-    {{ self # only_whitespace data }}
-| Ignore
-    {{ () }}
-| comment()
-    {{ () }}
-
-
-/********************* DOCUMENT TYPE DECLARATION *************************/
-
-doctypedecl():
-  /* parses from <!DOCTYPE to >. As side-effect, first the declarations of
-   * the internal DTD (if any) are put into !!on_dtd, then the declarations
-   * of the external DTD (if any) are put into this DTD object.
-   */
-  doctype_entid:  Doctype 
-             ws:  Ignore Ignore*
-                  doctypedecl_material (doctype_entid)
-    {{ () }}
-  ? {{ match !yy_position with
-          "ws" -> raise(WF_error("Whitespace is missing after `DOCTYPE'"))
-        | _    -> raise(WF_error("Bad DOCTYPE declaration"))
-     }}
-
-
-/* TRICK: 
- *   ws: Ignore? Ignore* 
- * is meant seriously. The effect is that ws becomes a boolean variable
- * which is true if there is an Ignore token and false otherwise.
- * This construct is faster than just 
- *   ws: Ignore*
- * in which case ws becomes an integer variable containing the number of
- * Ignore tokens. Counting the number of tokens is slower than only checking
- * the existence.
- *
- * We need the information whether there is an Ignore token (representing
- * white space), because white space is only obligatory if also an identifier
- * for the external subset is parsed; this conditional syntax constraint is 
- * simply programmed in the body of the grammar rule.
- */
-
-doctypedecl_material(doctype_entid):
-  root_name:             Name
-  ws:                    Ignore? Ignore*
-  external_subset:       external_id()? 
-                         Ignore*
-  internal_subset:       internal_dtd()? 
-                         Ignore*
-  doctype_rangle_entid:  Doctype_rangle
-    {{ 
-      if doctype_entid != doctype_rangle_entid then
-       raise (Validation_error("Entities not properly nested with DOCTYPE declaration"));
-      dtd # set_root root_name;
-      begin match external_subset, internal_subset with
-         None, None      -> ()         (* no DTD means no ID *)
-       | None, Some _    -> dtd # set_id Internal
-       | Some id, None   -> dtd # set_id (External id)
-       | Some id, Some _ -> dtd # set_id (Derived id)
-      end;
-      (* Get now the external doctype declaration. Note that the internal
-       * subset has precedence and must be read first.
-       *)
-      begin match external_subset with
-         None -> ()
-       | Some id ->
-           if not ws then
-             raise(WF_error("Whitespace is missing after `DOCTYPE " ^ 
-                            root_name ^ "'"));
-           let r' = resolver # clone in
-           let pobj =
-             new parser_object
-               (new document config.warner)
-               dtd
-               extend_dtd
-               config
-               r'
-               spec
-               process_xmldecl
-               (fun x -> x)
-               None
-           in
-           let en = new external_entity r' dtd "[dtd]"
-                        config.warner id false config.errors_with_line_numbers
-                        config.encoding
-           in
-           en # set_debugging_mode (config.debugging_mode);
-           let mgr = new entity_manager en in
-           en # open_entity true Declaration;
-           try
-             let context = make_context mgr in
-             pobj # parse context Ext_declarations;
-             ignore(en # close_entity);
-           with
-               error ->
-                 ignore(en # close_entity);
-                 r' # close_all;
-                 let pos = mgr # position_string in
-                 raise (At(pos, error))
-      end;
-      dtd # validate
-    }}
-  ? {{
-       match !yy_position with
-          "doctype_rangle_entid" -> raise(WF_error("`>' expected"))
-        | _                      -> raise(WF_error("Bad DOCTYPE declaration"))
-    }}
-
-/* Note that there are no keywords for SYSTEM or PUBLIC, as these would
- * be difficult to recognize in the lexical contexts. Because of this, 
- * SYSTEM/PUBLIC is parsed as name, and the rule for everything after
- * SYSTEM/PUBLIC is computed dynamically.
- */
-
-external_id():
-  tok:Name 
-  $ {{ 
-       let followup = 
-        match tok with
-            "SYSTEM" -> parse_system_id
-                           (* Apply the rule system_id (below) to parse the
-                           * rest of the ID 
-                           *)
-          | "PUBLIC" -> parse_public_id
-                           (* Apply the rule public_id (below) to parse the
-                           * rest of the ID 
-                           *)
-          | _        -> raise(WF_error("SYSTEM or PUBLIC expected"))
-       in
-     }}
-  ws:Ignore Ignore*
-  r:[followup]()
-    {{ r }}
-  ? {{ match !yy_position with
-          "ws" -> raise(WF_error("Whitespace is missing after " ^ tok))
-        | _    -> raise(WF_error("Bad SYSTEM or PUBLIC identifier"))
-    }}
-
-
-system_id():
-  str:Unparsed_string 
-    {{ System (recode_utf8 str) }}
-
-
-public_id():
-  str1: Unparsed_string 
-    ws: Ignore Ignore*
-  str2: Unparsed_string
-    {{ check_public_id str1;
-       Public(recode_utf8 str1, recode_utf8 str2)
-    }}
-  ? {{ match !yy_position with
-          "ws" -> raise(WF_error("Whitespace is missing between the literals of the PUBLIC identifier"))
-        | _    -> raise(WF_error("Bad PUBLIC identifier"))
-    }}
-
-
-/* The internal subset: "[" declaration* "]". While parsing the declarations
- * the object variable p_internal_subset must be true; however, if there
- * are entity references, this variable must be reset to false during
- * the entity. (See the rule for "declaration" below.)
- */
-
-internal_dtd():
-  dtd_begin_entid:    internal_dtd_begin() 
-                      declaration()* 
-  dtd_end_entid:      internal_dtd_end()
-    {{ 
-      if dtd_begin_entid != dtd_end_entid then
-       raise(Validation_error("Entities not properly nested with internal DTD subset"))
-    }}
-  ? {{ match !yy_position with
-          "dtd_end_entid" -> raise(WF_error("`]' expected"))
-        | _               -> raise(WF_error("Bad internal DTD subset"))
-    }}
-
-
-internal_dtd_begin():
-  Dtd_begin
-    {{ assert (not p_internal_subset);
-       p_internal_subset <- true }}
-
-
-internal_dtd_end():
-  Dtd_end
-    {{ assert p_internal_subset;
-       p_internal_subset <- false }}
-
-
-declaration():
-  /* Parses a single declaration (or processing instruction). As side-effect
-   * the parsed declaration is stored into the dtd object.
-   */
-  elementdecl()
-    {{ () }}
-| attlistdecl()
-    {{ () }}
-| entid:Decl_entity ws:Ignore Ignore* e:entitydecl(entid)
-    {{ () }}
-  ? {{ match !yy_position with
-          "ws" -> raise(WF_error("Whitespace is missing after ENTITY")) 
-        | "e"  -> raise(WF_error("Name or `%' expected"))
-        | _    -> raise(WF_error("Bad entity declaration"))
-    }}
-| notationdecl()
-    {{ () }}
-| pi: PI
-    {{ let target, value = pi in
-       let pi = new proc_instruction target value config.encoding in
-       dtd # add_pinstr pi
-    }}
-| Ignore
-    {{ () }}
-| Comment_begin Comment_material* ce:Comment_end
-    {{ () }}
-  ? {{ match !yy_position with
-          "ce" -> raise(WF_error("`-->' expected"))
-        | _    -> raise(WF_error("Bad comment"))
-    }}
-| Begin_entity
-  $ {{ (* Set 'p_internal_subset' to 'false' until the matching 'end_entity'
-       * rule is parsed. This allows unrestricted usage of parameter entities
-       * within declarations of internal entities.
-       *)
-       let old_p_internal_subset = p_internal_subset in
-       p_internal_subset <- false;
-    }}
-  decl_xmldecl_then_rest()
-    {{ (* Restore the old value of 'p_internal_subset'. *)
-       p_internal_subset <- old_p_internal_subset;
-       ()
-    }}
-| begin_entid:Conditional_begin
-  $ {{ (* Check whether conditional sections are allowed at this position. *)
-       if p_internal_subset then 
-        raise(WF_error("Restriction of the internal subset: Conditional sections not allowed"));
-     }}
-  Ignore*
-  cond:conditional_section()  end_entid:Conditional_end
-    {{ (* Check whether Conditional_begin and Conditional_end are in the same
-       * entity. (This restriction is explained in the file SPECS.)
-       *)
-       if begin_entid != end_entid then
-        raise(Validation_error("The first and the last token of conditional sections must be in the same entity (additional restriction of this parser)"));
-    }}
-  ? {{ match !yy_position with
-          "end_entid" -> raise(WF_error("`>]>' expected"))
-        | "cond"      -> raise(WF_error("INCLUDE or IGNORE expected"))
-        | _           -> raise(WF_error("Bad conditional section"))
-    }}
-
-/* The tokens INCLUDE/IGNORE are scanned as names, and the selection of the
- * right parsing rule is dynamic.
- * Note that parse_ignored_section is not defined by a grammar rule but
- * by a conventional let-binding above.
- */
-
-conditional_section():
-  include_or_ignore:Name
-  $ {{ let parsing_function =
-        match include_or_ignore with
-            "INCLUDE"  -> parse_included_section
-                           (* invoke rule "included_section" below *)
-          | "IGNORE"   -> parse_ignored_section
-                           (* invoke function "parse_ignored_section" *)
-          | _          -> raise(WF_error("INCLUDE or IGNORE expected"))
-       in
-    }}
-  [ parsing_function ] ()  
-    {{ () }}
-  ? {{ raise(WF_error("Bad conditional section")) }}
-
-included_section():
-  Conditional_body declaration()*  
-    {{ () }}
-| Ignore Ignore* Conditional_body declaration()*  
-    {{ () }}
-
-
-/*************************** ELEMENT DECLARATIONS ********************/
-
-elementdecl():
-  /* parses <!ELEMENT ... >. Puts the parsed element type as side-effect into
-   * dtd.
-   */
-  decl_element_entid:      Decl_element 
-  $ {{ let extdecl = context.manager # current_entity_counts_as_external in
-     }}
-  ws1:                     Ignore Ignore*
-  name:                    Name 
-  ws2:                     Ignore Ignore*
-  content_model:           contentspec() 
-                           Ignore*
-  decl_rangle_entid:       Decl_rangle
-    {{
-      if decl_element_entid != decl_rangle_entid then
-       raise (Validation_error "Entities not properly nested with ELEMENT declaration");
-      if extend_dtd then begin
-       let el = new dtd_element dtd name in
-       (* It is allowed that an <!ATTLIST...>  precedes the corresponding
-        * <!ELEMENT...>. Because of this it is possible that there is already
-        * an element called 'name' in the DTD, and we only must set the content
-        * model of this element.
-        *)
-       try
-         dtd # add_element el;
-         el # set_cm_and_extdecl content_model extdecl;
-       with
-           Not_found ->  (* means: there is already an element 'name' *)
-             let el' = dtd # element name in
-             el' # set_cm_and_extdecl content_model extdecl;
-              (* raises Validation_error if el' already has a content model *)
-      end
-    }}
-  ? {{ match !yy_position with
-          ("ws1"|"ws2")   -> raise(WF_error("Whitespace is missing"))
-        | "name"          -> raise(WF_error("The name of the element is expected here"))
-        | "content_model" -> raise(WF_error("Content model expression expected"))
-        | "decl_rangle_entid" -> raise(WF_error("`>' expected"))
-        | _                   -> raise(WF_error("Bad element type declaration"))
-    }}
-
-contentspec():
-  /* parses a content model and returns it (type content_model_type) */
-  name: Name   /* EMPTY or ANY */
-    {{ match name with
-         "EMPTY" -> Empty
-       | "ANY"   -> Any
-       | _       -> raise(WF_error("EMPTY, ANY, or a subexpression expected"))
-    }}
-| entid:Lparen  Ignore*  term:mixed_or_regexp(entid)
-    {{ term }}
-  ? {{ raise(WF_error("Bad content model expression")) }}
-
-
-/* Many of the following rules have an lparen_entid argument. This is the
- * internal ID of the entity containing the corresponding left parenthesis;
- * by comparing it with the ID of the entity of the right parenthesis the
- * contraint is implemented that both parentheses must be in the same entity.
- */
-
-mixed_or_regexp(lparen_entid):
-  re: choice_or_seq(lparen_entid)
-    {{ Regexp re }}
-| m: mixed(lparen_entid)
-    {{ m }}
-
-
-multiplier():
-  /* returns one of the multiplier symbols (?,*,+) */
-  Plus
-    {{ Plus }}
-| Star
-    {{ Star }}
-| Qmark
-    {{ Qmark }}
-
-
-mixed (lparen_entid) :
-                   Pcdata 
-                   Ignore*
-  material:        mixed_alternatives_top()
-    {{ 
-      let rest, rparen_entid = material in
-      if lparen_entid != rparen_entid then
-       raise (Validation_error "Entities not properly nested with parentheses");
-      Mixed (MPCDATA :: rest)
-    }}
-  ? {{ raise(WF_error("Bad content model expression")) }}
-
-
-mixed_alternatives_top():
-  entid: Rparen
-    {{ [], entid }}
-| entid: RparenStar
-    {{ [], entid }}
-| Bar Ignore* name:Name Ignore* names:mixed_alternative()* entid:RparenStar
-    {{ 
-       (MChild name :: names), entid
-    }}
-  ? {{ match !yy_position with
-          "name"  -> raise(WF_error("Name expected"))
-        | "entid" -> raise(WF_error("`)*' expected"))
-        | _       -> raise(WF_error("Bad content model expression"))
-    }}
-
-
-mixed_alternative() :
-  Bar Ignore* name:Name Ignore*
-    {{ MChild name }}
-  ? {{ match !yy_position with
-          "name" -> raise(WF_error("Name expected"))
-        | _      -> raise(WF_error("Bad content model expression"))
-    }}
-
-
-
-choice_or_seq (lparen_entid):
-  /* parses either a regular expression, or a mixed expression. Returns
-   * Mixed spec or Regexp spec (content_model_type).
-   * Which kind of expression (regexp or mixed) is being read is recognized
-   * after the first subexpression has been parsed; the other subexpressions
-   * must be of the same kind.
-   */
-  re:     cp() 
-          Ignore*
-  factor: choice_or_seq_factor()
-    {{
-      let (finalmark,subexpr), rparen_entid = factor in
-      if lparen_entid != rparen_entid then
-       raise (Validation_error "Entities not properly nested with parentheses");
-      (* Check that the other subexpressions are "regexp", too, and
-       * merge them with the first.
-       *)
-      let re' =
-       match subexpr with
-           Alt []  ->  re
-         | Alt alt -> Alt (re :: alt)
-         | Seq seq -> Seq (re :: seq)
-         | _       -> assert false
-      in
-      (* Interpret the finalmark. *)
-      match finalmark with
-         Ignore -> re'
-       | Plus   -> Repeated1 re'
-       | Star   -> Repeated re'
-       | Qmark  -> Optional re'
-       | _      -> assert false
-    }}
-  ? {{ raise(WF_error("Bad content model expression")) }}
-
-choice_or_seq_factor():
-  /* Parses "|<subexpr>|...)" or ",<subexpr>,...)", both forms optionally
-   * followed by ?, *, or +.
-   * Returns ((finalmark, expr), rparen_entid), where
-   * - finalmark is the character after the right parenthesis or Ignore
-   * - expr is either
-   *   Alt []              meaning that only ")" has been found
-   *   Alt non_empty_list  meaning that the subexpressions are separated by '|'
-   *   Seq non_empty_list  meaning that the subexpressions are separated by ','
-   */
-  entid:Rparen
-    {{ (Ignore, Alt []), entid }}
-| entid:RparenPlus
-    {{ (Plus, Alt []), entid }}
-| entid:RparenStar
-    {{ (Star, Alt []), entid }}
-| entid:RparenQmark
-    {{ (Qmark, Alt []), entid }}
-| Bar Ignore* re:cp() Ignore* factor:choice_or_seq_factor()
-    {{ 
-      let (finalmark, subexpr), rparen_entid = factor in
-      begin match subexpr with
-         Alt []  -> (finalmark, (Alt [re])), rparen_entid
-       | Alt alt -> (finalmark, (Alt (re :: alt))), rparen_entid
-       | _       -> raise(WF_error("It is not allowed to mix alternatives and sequences"))
-      end
-    }}
-  ? {{ raise(WF_error("Bad content model expression")) }}
-| Comma Ignore* re:cp() Ignore* factor:choice_or_seq_factor()
-    {{
-      let (finalmark, subexpr), rparen_entid = factor in
-      begin match subexpr with
-         Alt []  -> (finalmark, (Seq [re])), rparen_entid
-       | Seq seq -> (finalmark, (Seq (re :: seq))), rparen_entid
-       | _       -> raise(WF_error("It is not allowed to mix alternatives and sequences"))
-      end
-    }}
-  ? {{ raise(WF_error("Bad content model expression")) }}
-
-cp():
-  /* parse either a name, or a parenthesized subexpression "(...)"  */
-  name:Name  m:multiplier()?
-    {{ match m with
-         None       -> Child name
-       | Some Plus  -> Repeated1 (Child name)
-       | Some Star  -> Repeated  (Child name)
-       | Some Qmark -> Optional  (Child name)
-       | _          -> assert false
-    }}
-  ? {{ raise(WF_error("Bad content model expression")) }}
-| entid:Lparen Ignore* m:choice_or_seq(entid)
-    {{ m }}
-  ? {{ raise(WF_error("Bad content model expression")) }}
-
-
-/********************* ATTRIBUTE LIST DECLARATION ***********************/
-
-attlistdecl():
-  /* parses <!ATTLIST ... >. Enters the attribute list in dtd as side-
-   * effect.
-   */
-  decl_attlist_entid: Decl_attlist 
-  $ {{ let extdecl = context.manager # current_entity_counts_as_external in
-    }}
-  ws1:                Ignore Ignore*
-  el_name:            Name 
-  ws:                 Ignore? Ignore*
-  factor:             attdef_factor()
-    {{ 
-      let at_list, decl_rangle_entid = factor in
-
-      if decl_attlist_entid != decl_rangle_entid then
-       raise (Validation_error "Entities not properly nested with ATTLIST declaration");
-
-      if not ws && at_list <> [] then begin
-       match at_list with
-           (name,_,_) :: _ ->
-             (* This is normally impossible, because the lexer demands 
-              * some other token between two names.
-              *)
-             raise(WF_error("Whitespace is missing before `" ^ name ^ "'"));
-         | _ -> assert false
-      end;
-
-      if extend_dtd then begin
-       let new_el = new dtd_element dtd el_name in
-       (* Note that it is allowed that <!ATTLIST...> precedes the corresponding
-        * <!ELEMENT...> declaration. In this case we add the element declaration
-        * already to the DTD but leave the content model unspecified.
-        *)
-       let el =
-         try
-           dtd # add_element new_el;
-           new_el
-         with
-             Not_found ->  (* already added *)
-               let old_el = dtd # element el_name in
-               if old_el # attribute_names <>  [] then
-                 config.warner # warn ("More than one ATTLIST declaration for element type `" ^
-                                       el_name ^ "'");
-               old_el
-       in
-       List.iter
-         (fun (a_name, a_type, a_default) ->
-            el # add_attribute a_name a_type a_default extdecl)
-         at_list
-      end
-    }}
-  ? {{ match !yy_position with
-          "ws1"     -> raise(WF_error("Whitespace is missing after ATTLIST"))
-        | "el_name" -> raise(WF_error("The name of the element is expected here"))
-        | "factor"  -> raise(WF_error("Another attribute name or `>' expected"))
-        | _         -> raise(WF_error("Bad attribute declaration"))
-    }}
-
-
-attdef_factor():
-  /* parses a list of triples <name> <type> <default value> and returns the
-   * list as (string * att_type * att_default) list.
-   */
-  attdef:attdef()   ws:Ignore?   Ignore*   factor:attdef_factor()
-    {{ 
-      let attdef_rest, decl_rangle_entid = factor in
-      if not ws && attdef_rest <> [] then begin
-       match attdef_rest with
-           (name,_,_) :: _ ->
-             raise(WF_error("Missing whitespace before `" ^ name ^ "'"));
-         | _ -> assert false
-      end;
-      (attdef :: attdef_rest), decl_rangle_entid }}
-  ? {{ match !yy_position with
-        | "factor"  -> raise(WF_error("Another attribute name or `>' expected"))
-        | _         -> raise(WF_error("Bad attribute declaration"))
-    }}
-| entid:Decl_rangle
-    {{ [], entid }}
-
-
-attdef():
-  /* Parses a single triple */
-  name:     Name 
-  ws1:      Ignore Ignore*
-  tp:       atttype() 
-  ws2:      Ignore Ignore*
-  default:  defaultdecl()
-    {{ (name,tp,default) }}
-  ? {{ match !yy_position with
-          ("ws1"|"ws2") -> raise(WF_error("Whitespace is missing"))
-        | "tp"          -> raise(WF_error("Type of attribute or `(' expected"))
-        | "default"     -> raise(WF_error("#REQUIRED, #IMPLIED, #FIXED or a string literal expected"))
-        | _             -> raise(WF_error("Bad attribute declaration"))
-    }}
-
-atttype():
-  /* Parses an attribute type and returns it as att_type. */
-  name:      Name 
-  $ {{ let followup = 
-        if name = "NOTATION" then 
-          parse_notation
-        else
-          parse_never
-       in
-     }}
-  nota:      [followup]()?
-    {{ 
-       match name with
-         "CDATA"    -> A_cdata
-       | "ID"       -> A_id
-       | "IDREF"    -> A_idref
-       | "IDREFS"   -> A_idrefs
-       | "ENTITY"   -> A_entity
-       | "ENTITIES" -> A_entities
-       | "NMTOKEN"  -> A_nmtoken
-       | "NMTOKENS" -> A_nmtokens
-       | "NOTATION" ->
-           (match nota with
-                None   -> raise(WF_error("Error in NOTATION type (perhaps missing whitespace after NOTATION?)"))
-              | Some n -> n
-            )
-       | _          -> raise(WF_error("One of CDATA, ID, IDREF, IDREFS, ENTITY, ENTITIES, NMTOKEN, NMTOKENS, NOTATION, or a subexpression expected"))
-    }}
-  ? {{ raise(WF_error("Bad attribute declaration (perhaps missing whitespace after NOTATION)")) }}
-
-|         Lparen 
-          Ignore* 
-  name:   name_or_nametoken() 
-          Ignore* 
-  names:  nmtoken_factor()* 
-  rp:     Rparen
-    /* Enumeration */
-    {{ A_enum(name :: names) }}
-  ? {{ match !yy_position with
-          "name"  -> raise(WF_error("Name expected"))
-        | "names" -> raise(WF_error("`|' and more names expected, or `)'"))
-        | "rp"    -> raise(WF_error("`|' and more names expected, or `)'"))
-        | _       -> raise(WF_error("Bad enumeration type"))
-    }}
-
-
-never():
-  /* The always failing rule */
-  $ {{ raise Not_found; }}
-  Doctype   /* questionable */
-    {{ A_cdata    (* Does not matter *)
-    }}
-
-
-notation():
-         Ignore Ignore*
-  lp:    Lparen 
-         Ignore*
-  name:  Name 
-         Ignore* 
-  names: notation_factor()* 
-  rp:    Rparen
-    {{ A_notation(name :: names) }}
-  ? {{ match !yy_position with
-          "lp"    -> raise(WF_error("`(' expected"))
-        | "name"  -> raise(WF_error("Name expected"))
-        | "names" -> raise(WF_error("`|' and more names expected, or `)'"))
-        | "rp"    -> raise(WF_error("`|' and more names expected, or `)'"))
-        | _       -> raise(WF_error("Bad NOTATION type"))
-    }}
-
-
-notation_factor():
-  /* Parse "|<name>" and return the name */
-  Bar Ignore* name:Name Ignore*
-    {{ name }}
-  ? {{ match !yy_position with
-          "name" -> raise(WF_error("Name expected"))
-        | _      -> raise(WF_error("Bad NOTATION type"))
-    }}
-
-nmtoken_factor():
-  /* Parse "|<nmtoken>" and return the nmtoken */
-  Bar Ignore* n:name_or_nametoken() Ignore*
-    {{ n }}
-  ? {{ match !yy_position with
-          "n" -> raise(WF_error("Nametoken expected"))
-        | _   -> raise(WF_error("Bad enumeration type"))
-    }}
-
-
-name_or_nametoken():
-  n:Name      {{ n }}
-| n:Nametoken {{ n }}
-
-
-/* The default values must be expanded and normalized. This has been implemented
- * by the function expand_attvalue.
- */
-
-
-defaultdecl():
-  /* Parse the default value for an attribute and return it as att_default */
-  Required
-    {{ D_required }}
-| Implied
-    {{ D_implied }}
-| Fixed ws:Ignore Ignore* str:Unparsed_string
-    {{ D_fixed (expand_attvalue lexerset dtd str config.warner false) }}
-  ? {{ match !yy_position with
-          "ws"  -> raise(WF_error("Whitespace is missing after #FIXED"))
-        | "str" -> raise(WF_error("String literal expected"))
-        | _     -> raise(WF_error("Bad #FIXED default value"))
-    }}
-| str:Unparsed_string
-    {{ D_default (expand_attvalue lexerset dtd str config.warner false) }}
-
-
-/**************************** ENTITY DECLARATION ***********************/
-
-entitydecl(decl_entity_entid):
-  /* parses everything _after_ <!ENTITY until the matching >. The parsed 
-   * entity declaration is entered into the dtd object as side-effect.
-   */
-  name:               Name 
-  $ {{ let extdecl = context.manager # current_entity_counts_as_external in
-    }}
-  ws:                 Ignore Ignore* 
-  material:           entitydef() 
-                      Ignore*
-  decl_rangle_entid:  Decl_rangle     
-    /* A general entity */
-    {{
-       if decl_entity_entid != decl_rangle_entid then
-        raise (Validation_error "Entities not properly nested with ENTITY declaration");
-      let en =
-       (* Distinguish between
-         * - internal entities
-         * - external entities
-         * - NDATA (unparsed) entities
-         *)
-       match material with
-           (Some s, None,     None)   ->
-             new internal_entity dtd name config.warner s p_internal_subset
-                 config.errors_with_line_numbers false config.encoding
-         | (None,   Some xid, None)   ->
-             new external_entity (resolver # clone) dtd name config.warner
-                                  xid false config.errors_with_line_numbers
-                                 config.encoding
-
-         | (None,   Some xid, Some n) ->
-             (new ndata_entity name xid n config.encoding :> entity)
-         | _ -> assert false
-      in
-      dtd # add_gen_entity en extdecl
-    }}
-  ? {{ match !yy_position with
-          "ws"                -> raise(WF_error("Whitespace is missing"))
-        | "material"          -> raise(WF_error("String literal or identifier expected"))
-        | "decl_rangle_entid" -> raise(WF_error("`>' expected"))
-        | _                   -> raise(WF_error("Bad entity declaration"))
-    }}
-
-|                     Percent 
-  $ {{ let extdecl = context.manager # current_entity_counts_as_external in
-    }}
-  ws1:                Ignore Ignore* 
-  name:               Name 
-  ws2:                Ignore Ignore* 
-  material:           pedef() 
-                      Ignore* 
-  decl_rangle_entid:  Decl_rangle
-    /* A parameter entity */
-    {{ 
-      if decl_entity_entid != decl_rangle_entid then
-        raise (Validation_error "Entities not properly nested with ENTITY declaration");
-      let en =
-       (* Distinguish between internal and external entities *)
-       match material with
-           (Some s, None)   ->
-             new internal_entity dtd name config.warner s p_internal_subset
-                 config.errors_with_line_numbers true config.encoding
-         | (None,   Some xid)   ->
-             new external_entity (resolver # clone) dtd name config.warner
-                                  xid true config.errors_with_line_numbers
-                                 config.encoding
-         | _ -> assert false
-      in
-
-      (* The following two lines force that even internal entities count
-       * as external (for the standalone check) if the declaration of 
-       * the internal entity occurs in an external entity.
-       *)
-      if extdecl then
-       en # set_counts_as_external;
-
-      dtd # add_par_entity en;
-    }}
-  ? {{ match !yy_position with
-          ("ws1"|"ws2")       -> raise(WF_error("Whitespace is missing"))
-        | "material"          -> raise(WF_error("String literal or identifier expected"))
-        | "decl_rangle_entid" -> raise(WF_error("`>' expected"))
-        | _                   -> raise(WF_error("Bad entity declaration"))
-    }}
-
-
-entitydef():
-  /* parses the definition value of a general entity. Returns either:
-   * - (Some s, None,   None)    meaning the definition of an internal entity
-   *                               with (literal) value s has been found
-   * - (None,   Some x, None)    meaning that an external parsed entity with
-   *                               external ID x has been found
-   * - (None,   Some x, Some n)  meaning that an unparsed entity with
-   *                               external ID x and notations n has been found
-   */
-  str:Unparsed_string
-    {{ Some str, None, None }}
-| id:external_id()   ws:Ignore?  Ignore*  decl:ndatadecl()?
-    {{  if not ws  && decl <> None then
-         raise(WF_error("Whitespace missing before `NDATA'"));
-       None, Some id, decl 
-    }}
-
-
-pedef():
-  /* parses the definition value of a parameter entity. Returns either:
-   * - (Some s, None)     meaning that the definition of an internal entity
-   *                        with (literal) value s has been found
-   * - (None,   Some x)   meaning that an external ID x has been found
-   */
-  str:Unparsed_string
-    {{ Some str, None }}
-| id:external_id()
-    {{ None, Some id }}
-
-
-ndatadecl():
-  /* Parses either NDATA "string" or the empty string; returns Some "string"
-   * in the former, None in the latter case.
-   */
-  ndata:Name ws:Ignore Ignore* name:Name
-    {{ if ndata = "NDATA" then
-       name
-      else
-       raise(WF_error("NDATA expected"))
-    }}
-  ? {{ match !yy_position with
-          "ws"   -> raise(WF_error("Whitespace is missing after NDATA"))
-        | "name" -> raise(WF_error("Name expected"))
-        | _      -> raise(WF_error("Bad NDATA declaration"))
-    }}
-
-/**************************** NOTATION DECLARATION *******************/
-
-notationdecl():
-  /* parses <!NOTATION ... > and enters the notation declaration into the
-   * dtd object as side-effect
-   */
-  decl_notation_entid: Decl_notation 
-  ws1:                 Ignore Ignore*
-  name:                Name 
-  ws2:                 Ignore Ignore*
-  sys_or_public:       Name /* SYSTEM or PUBLIC */ 
-  ws3:                 Ignore Ignore*
-  str1:                Unparsed_string 
-  ws:                  Ignore? Ignore*
-  str2:                Unparsed_string? 
-                       Ignore*
-  decl_rangle_entid:   Decl_rangle
-    {{ 
-      if decl_notation_entid != decl_rangle_entid then
-       raise (Validation_error "Entities not properly nested with NOTATION declaration");
-      let xid =
-       (* Note that it is allowed that PUBLIC is only followed by one
-        * string literal
-        *)
-       match sys_or_public with
-           "SYSTEM" ->
-             if str2 <> None then raise(WF_error("SYSTEM must be followed only by one argument"));
-             System (recode_utf8 str1)
-         | "PUBLIC" ->
-             begin match str2 with
-                 None ->
-                   check_public_id str1;
-                   Public(recode_utf8 str1,"")
-               | Some p ->
-                   if not ws then
-                     raise(WF_error("Missing whitespace between the string literals of the `PUBLIC' id"));
-                   check_public_id str1;
-                   Public(recode_utf8 str1, recode_utf8 p)
-             end
-         | _ -> raise(WF_error("PUBLIC or SYSTEM expected"))
-      in
-      if extend_dtd then begin
-       let no = new dtd_notation name xid config.encoding in
-       dtd # add_notation no
-      end
-    }}
-  ? {{ match !yy_position with
-          ("ws1"|"ws2"|"ws3") -> raise(WF_error("Whitespace is missing"))
-        | "name"              -> raise(WF_error("Name expected"))
-        | "sys_or_public"     -> raise(WF_error("SYSTEM or PUBLIC expected"))
-        | ("str1"|"str2")     -> raise(WF_error("String literal expected"))
-        | "decl_rangle_entid" -> raise(WF_error("`>' expected"))
-        | _                   -> raise(WF_error("Bad NOTATION declaration"))
-    }}
-
-/****************************** ELEMENTS **************************/
-
-/* In the following rules, the number of error rules is reduced to
- * improve the performance of the parser.
- */
-
-
-contents_start():
-  /* parses <element>...</element> misc*, i.e. exactly one element followed
-   * optionally by white space or processing instructions.
-   * The element is entered into the global variables as follows:
-   * - If elstack is non-empty, the parsed element is added as new child to
-   *   the top element of the stack.
-   * - If elstack is empty, the root_examplar object is modified rather than
-   *   that a new element is created. If additionally the variable root is
-   *   None, it is assigned Some root_examplar.
-   * Note that the modification of the root_exemplar is done by the method
-   * internal_init.
-   * The reason why the root element is modified rather than newly created
-   * is a typing requirement. It must be possible that the class of the root
-   * is derived from the original class element_impl, i.e. the user must be
-   * able to add additional methods. If we created a new root object, we
-   * would have to denote to which class the new object belongs; the root
-   * would always be an 'element_impl' object (and not a derived object).
-   * If we instead cloned an  exemplar object and modified it by the
-   * "create" method, the root object would belong to the same class as the
-   * exemplar (good), but the type of the parsing function would always
-   * state that an 'element_impl' was created (because we can pass the new
-   * object only back via a global variable). The only solution is to
-   * modify the object that has been passed to the parsing function directly.
-   */
-  $ {{ dtd <- transform_dtd dtd; }}
-  start_tag() content()*
-    {{ () }}
-
-
-content():
-  /* parses: start tags, end tags, content, or processing
-   * instructions. That the tags are properly nested is dynamically checked.
-   * As result, recognized elements are added to their parent elements,
-   * content is added to the element containing it, and processing instructions
-   * are entered into the element embracing them. (All as side-effects.)
-   */
-  start_tag()
-    {{ () }}
-| end_tag()
-    {{ () }}
-| char_data()
-    {{ () }}
-| cref()
-    {{ () }}
-| pi()
-    {{ () }}
-| entity_ref()
-    {{ () }}
-| comment()
-    {{ () }}
-
-
-entity_ref():
-   Begin_entity eref_xmldecl_then_rest()
-    {{ if n_tags_open = 0 then
-       raise(WF_error("Entity reference not allowed here"))
-    }}
-
-
-/* See comment for doc_mldecl_then_misc_then_prolog_then_rest. */
-
-eref_xmldecl_then_rest():
-  pl:PI_xml
-  $ {{ context.manager # current_entity # process_xmldecl pl; 
-    }}
-  content()* End_entity
-    {{ () }}
-
-| $ {{ context.manager # current_entity # process_missing_xmldecl; }}
-  content() content()* End_entity
-    {{ () }}
-
-| $ {{ context.manager # current_entity # process_missing_xmldecl; }}
-  End_entity
-    {{ () }}
-
-
-start_tag():
-  /* parses <element attribute-values> or <element attribute-values/>.
-   *
-   * EFFECT: If elstack is non-empty, the element is added to the
-   * top element of the stack as new child, and the element
-   * is pushed on the stack. If elstack is empty, the root_exemplar is
-   * modified and gets the parsed name and attribute list. The root_exemplar
-   * is pushed on the stack. If additionally the variable root is empty, too,
-   * this variable is initialized.
-   * If the <element ... /> form has been parsed, no element is pushed
-   * on the stack.
-   */
-  tag:        Tag_beg
-    $ {{ let position =
-          if config.store_element_positions then
-            Some(context.manager # position)
-          else
-            None
-        in
-       }}
-  ws:         Ignore? Ignore*
-  attlist:    attribute()* 
-  emptiness:  start_tag_rangle()
-  /* Note: it is guaranteed that there is whitespace between Tag_beg and
-   * the name of the first attribute, because there must be some separator.
-   * So we need not to check ws!
-   */
-    {{ 
-      let rec check_attlist al =
-       match al with
-           (nv1, num1) :: al' ->
-             if not num1 && al' <> [] then begin
-               match al with
-                   ((n1,_),_) :: ((n2,_),_) :: _ ->
-                     raise(WF_error("Whitespace is missing between attributes `" ^
-                                    n1 ^ "' and `" ^ n2 ^ "'"))
-                 | _ -> assert false
-             end;
-             check_attlist al'
-         | [] -> ()
-      in
-      check_attlist attlist;
-               
-      let name, tag_beg_entid = tag in
-      let attlist' = List.map (fun (nv,_) -> nv) attlist in
-      let d =
-       create_element_node ?position:position spec dtd name attlist' in
-
-      begin match id_index with
-         None -> ()
-       | Some idx ->
-           (* Put the ID attribute into the index, if present *)
-           begin try 
-             let v = d # id_attribute_value in  (* may raise Not_found *)
-             idx # add v d                      (* may raise ID_not_unique *)
-           with
-               Not_found ->
-                 (* No ID attribute *)
-                 ()
-             | ID_not_unique ->
-                 (* There is already an ID with the same value *)
-                 raise(Validation_error("ID not unique"))
-           end
-      end;
-
-      if n_tags_open = 0 then begin
-       if root = None then begin
-         (* We have found the begin tag of the root element. *)
-         if config.enable_super_root_node then begin
-           (* The user wants the super root instead of the real root.
-            * The real root element becomes the child of the VR.
-            *)
-           (* Assertion: self # current is the super root *)
-           assert (self # current # node_type = T_super_root);
-           root <- Some (self # current);
-           self # current # add_node d;
-           doc # init_root (self # current);
-         end
-         else begin
-           (* Normal behaviour: The user wants to get the real root. *)
-           root <- Some d;
-           doc # init_root d;
-         end;
-       end
-       else
-         (* We have found a second topmost element. This is illegal. *)
-         raise(WF_error("Document must consist of only one toplevel element"))
-      end
-      else begin
-       (* We have found some inner begin tag. *)
-       self # save_data;        (* Save outstanding data material first *)
-       self # current # add_node d
-      end;
-
-      if emptiness then
-       (* An empty tag like <a/>. *)
-       d # local_validate ~use_dfa:config.validate_by_dfa ()
-      else begin
-       (* A non-empty tag. *)
-       Stack.push (d, tag_beg_entid) elstack;
-       n_tags_open <- n_tags_open + 1;
-      end;
-    }}
-  ? {{ match !yy_position with
-          "attlist"   -> raise(WF_error("Bad attribute list"))
-        | "emptiness" -> raise(WF_error("`>' or `/>' expected"))
-        | _           -> raise(WF_error("Bad start tag"))
-    }}
-
-
-attribute():
-  /* Parses name="value"  */
-  n:Name Ignore* Eq Ignore* v:attval() ws:Ignore? Ignore*
-    {{ (n,v), ws }}
-
-
-attval():
-  v:Attval
-    {{ expand_attvalue lexerset dtd v config.warner true }}
-| v:Attval_nl_normalized
-    {{ expand_attvalue lexerset dtd v config.warner false }}
-
-
-start_tag_rangle():
-  Rangle       {{ false }}
-| Rangle_empty {{ true }}
-
-
-end_tag():
-  /* parses </element>.
-   * Pops the top element from the elstack and checks if it is the same
-   * element.
-   */
-  tag:Tag_end  Ignore*  Rangle
-    {{ let name, tag_end_entid = tag in
-       if n_tags_open = 0 then
-        raise(WF_error("End-tag without start-tag"));
-
-       self # save_data;        (* Save outstanding data material first *)
-
-       let x, tag_beg_entid = Stack.pop elstack in
-       let x_name =
-        match x # node_type with
-          | T_element n -> n
-          | _ -> assert false
-       in
-       if name <> x_name then
-        raise(WF_error("End-tag does not match start-tag"));
-       if tag_beg_entid != tag_end_entid then
-        raise(WF_error("End-tag not in the same entity as the start-tag"));
-       x # local_validate ~use_dfa:config.validate_by_dfa ();
-       
-       n_tags_open <- n_tags_open - 1;
-       
-       assert (n_tags_open >= 0);
-
-    }}
-
-char_data():
-  /* Parses any literal characters not otherwise matching, and adds the
-   * characters to the top element of elstack.
-   * If elstack is empty, it is assumed that there is no surrounding
-   * element, and any non-white space character is forbidden.
-   */
-  data:CharData
-    {{ 
-      if n_tags_open = 0 then
-       (* only white space is allowed *)
-       self # only_whitespace data
-      else
-       self # collect_data data
-          (* We collect the chardata material until the next end tag is
-          * reached. Then the collected material will concatenated and
-          * stored as a single T_data node (see end_tag rule above)
-          * using save_data.
-          *)
-    }}
-| data:Cdata
-    {{ 
-      if n_tags_open = 0 then
-       raise (WF_error("CDATA section not allowed here"));
-      self # collect_data data
-          (* Also collect CDATA material *)
-    }}
-
-cref():
-  /* Parses &#...; and adds the character to the top element of elstack. */
-  code:CRef
-    {{ 
-       if n_tags_open = 0 then
-        (* No surrounding element: character references are not allowed *)
-        raise(WF_error("Character reference not allowed here"));
-       self # collect_data (character config.encoding config.warner code)
-          (* Also collect character references *)
-    }}
-
-pi():
-  /* Parses <?...?> (but not <?xml white-space ... ?>).
-   * If there is a top element in elstack, the processing instruction is added
-   * to this element.
-   */
-  pi: PI
-    {{ 
-      let position =
-       if config.store_element_positions then
-         Some(context.manager # position)
-       else
-         None
-      in
-      let target,value = pi in
-
-      if n_tags_open = 0 & not config.enable_super_root_node
-      then
-       doc # add_pinstr (new proc_instruction target value config.encoding)
-      else begin
-       (* Special case: if processing instructions are processed inline,
-        * they are wrapped into T_pinstr nodes.
-        *)
-       if config.enable_pinstr_nodes then begin
-         self # save_data;        (* Save outstanding data material first *)
-         let pinstr = new proc_instruction target value config.encoding in
-         let wrapper = create_pinstr_node 
-                         ?position:position spec dtd pinstr in
-         wrapper # local_validate();                (* succeeds always   *)
-         self # current # add_node wrapper;
-       end
-       else
-         (* Normal behaviour: Add the PI to the parent element. *)
-         self # current # add_pinstr 
-                            (new proc_instruction target value config.encoding)
-      end
-    }}
-
-
-comment():
-  /* Parses <!-- ... -->
-   */
-  Comment_begin
-  $ {{ 
-      let position =
-       if config.enable_comment_nodes && config.store_element_positions then
-         Some(context.manager # position)
-       else
-         None
-      in
-    }}
-  mat: Comment_material*
-  ce: Comment_end
-    {{
-      if config.enable_comment_nodes then begin
-       self # save_data;        (* Save outstanding data material first *)
-       let comment_text = String.concat "" mat in
-       let wrapper = create_comment_node 
-                       ?position:position spec dtd comment_text in
-       wrapper # local_validate();                (* succeeds always   *)
-       self # current # add_node wrapper;
-      end
-    }}
-  ? {{ match !yy_position with
-        | "ce"  -> raise(WF_error("`-->' expected"))
-        | _     -> raise(WF_error("Bad comment"))
-    }}
-
-
-%%
-   (* The method "parse" continues here... *)
-
-   try
-     match start_symbol with
-        Ext_document ->
-          parse_ext_document context.current context.get_next 
-       | Ext_declarations ->
-          parse_ext_declarations context.current context.get_next 
-       | Ext_element ->
-          parse_ext_element context.current context.get_next
-   with
-       Not_found ->
-        raise Parsing.Parse_error
-
-  (*********** The method "parse" ends here *************)
-
-
-(**********************************************************************)
-
-(* Here ends the class definition: *)
-end
-;;
-
-(**********************************************************************)
-
-open Pxp_reader;;
-
-
-class default_ext =
-  object(self)
-    val mutable node = (None : ('a extension node as 'a) option)
-    method clone = {< >}
-    method node =
-      match node with
-         None ->
-           assert false
-       | Some n -> n
-    method set_node n =
-      node <- Some n
-  end
-;;
-
-
-let default_extension = new default_ext;;
-
-let default_spec =
-  make_spec_from_mapping
-    ~super_root_exemplar:      (new element_impl default_extension)
-    ~comment_exemplar:         (new element_impl default_extension)
-    ~default_pinstr_exemplar:  (new element_impl default_extension)
-    ~data_exemplar:            (new data_impl default_extension)
-    ~default_element_exemplar: (new element_impl default_extension)
-    ~element_mapping:          (Hashtbl.create 1)
-    ()
-;;
-
-
-let idref_pass id_index root =
-  let error t att value =
-    let name =
-      match t # node_type with
-         T_element name -> name
-       | _ -> assert false
-    in
-    let text =
-      "Attribute `" ^ att ^ "' of element `" ^ name ^ 
-      "' refers to unknown ID `" ^ value ^ "'" in
-    let pos_ent, pos_line, pos_col = t # position in
-    if pos_line = 0 then
-      raise(Validation_error text)
-    else
-      raise(At("In entity " ^ pos_ent ^ " at line " ^
-              string_of_int pos_line ^ ", position " ^ string_of_int pos_col ^
-              ":\n",
-              Validation_error text))
-  in
-    
-  let rec check_tree t =
-    let idref_atts = t # idref_attribute_names in
-    List.iter
-      (fun att ->
-        match t # attribute att with
-            Value s ->
-              begin try ignore(id_index # find s) with
-                  Not_found ->
-                    error t att s
-              end
-          | Valuelist l ->
-              List.iter
-                (fun s ->
-                   try ignore(id_index # find s) with
-                       Not_found ->
-                         error t att s
-                )
-                l
-          | Implied_value -> ()
-      )
-      idref_atts;
-    List.iter check_tree (t # sub_nodes)
-  in
-  check_tree root
-;;
-
-
-exception Return_DTD of dtd;;
-  (* Used by extract_dtd_from_document_entity to jump out of the parser *)
-
-
-let call_parser ~configuration:cfg 
-                ~source:src 
-               ~dtd 
-               ~extensible_dtd 
-               ~document:doc 
-               ~specification:spec 
-               ~process_xmldecl 
-               ~transform_dtd
-                ~(id_index : 'ext #index option)
-               ~use_document_entity
-                ~entry 
-               ~init_lexer =
-  let e = cfg.errors_with_line_numbers in
-  let w = cfg.warner in
-  let r, en =
-    match src with
-       Entity(m,r')  -> r', m dtd
-      | ExtID(xid,r') -> r', 
-                        if use_document_entity then
-                           new document_entity 
-                            r' dtd "[toplevel]" w xid e
-                             cfg.encoding
-                        else
-                           new external_entity 
-                            r' dtd "[toplevel]" w xid false e
-                             cfg.encoding
-  in
-  r # init_rep_encoding cfg.encoding;
-  r # init_warner w;
-  en # set_debugging_mode (cfg.debugging_mode);
-  let pobj =
-    new parser_object
-      doc
-      dtd
-      extensible_dtd
-      cfg
-      r
-      spec
-      process_xmldecl
-      transform_dtd
-      (id_index :> 'ext index option)
-  in
-  let mgr = new entity_manager en in
-  en # open_entity true init_lexer;
-  begin try
-    let context = make_context mgr in
-    pobj # parse context entry;
-    ignore(en # close_entity);
-  with
-      Return_DTD d ->
-       ignore(en # close_entity);
-       raise(Return_DTD d)
-    | error ->
-       ignore(en # close_entity);
-       r # close_all;
-       let pos = mgr # position_string in
-       raise (At(pos, error))
-  end;
-  if cfg.idref_pass then begin
-    match id_index with
-       None -> ()
-      | Some idx ->
-         ( match pobj # root with
-               None -> ()
-             | Some root ->
-                 idref_pass idx root;
-         )
-  end;
-  pobj
-
-
-let parse_dtd_entity cfg src =
-  (* Parse a DTD given as separate entity. *)
-  let dtd = new dtd cfg.warner cfg.encoding in
-  let doc = new document cfg.warner in
-  let pobj =
-    call_parser 
-      ~configuration:cfg 
-      ~source:src 
-      ~dtd:dtd 
-      ~extensible_dtd:true         (* Extend the DTD by parsed declarations *)
-      ~document:doc 
-      ~specification:default_spec 
-      ~process_xmldecl:false       (* The XML declaration is ignored 
-                                   * (except 'encoding') 
-                                   *)
-      ~transform_dtd:(fun x -> x)  (* Do not transform the DTD *)
-      ~id_index: None
-      ~use_document_entity:false
-      ~entry:Ext_declarations      (* Entry point of the grammar *)
-      ~init_lexer:Declaration      (* The initially used lexer *)
-  in
-  dtd # validate;
-  if cfg.accept_only_deterministic_models then dtd # only_deterministic_models;
-  dtd
-;;
-
-
-let parse_content_entity ?id_index cfg src dtd spec =
-  (* Parse an element given as separate entity *)
-  dtd # validate;            (* ensure that the DTD is valid *)
-  if cfg.accept_only_deterministic_models then dtd # only_deterministic_models;
-  let doc = new document cfg.warner in
-  let pobj =
-    call_parser
-      ~configuration:cfg 
-      ~source:src 
-      ~dtd:dtd 
-      ~extensible_dtd:true         (* Extend the DTD by parsed declarations *)
-      ~document:doc 
-      ~specification:spec 
-      ~process_xmldecl:false       (* The XML declaration is ignored 
-                                   * (except 'encoding') 
-                                   *)
-      ~transform_dtd:(fun x -> x)  (* Do not transform the DTD *)
-      ~id_index:(id_index :> 'ext index option)
-      ~use_document_entity:false
-      ~entry:Ext_element           (* Entry point of the grammar *)
-      ~init_lexer:Content          (* The initially used lexer *)
-  in
-  match pobj # root with
-      Some r -> r
-    | None -> raise(WF_error("No root element"))
-;;
-
-
-let parse_wfcontent_entity cfg src spec =
-  let dtd = new dtd cfg.warner cfg.encoding in
-  dtd # allow_arbitrary;
-  let doc = new document cfg.warner in
-  let pobj =
-    call_parser
-      ~configuration:cfg 
-      ~source:src 
-      ~dtd:dtd 
-      ~extensible_dtd:false        (* Do not extend the DTD *)
-      ~document:doc 
-      ~specification:spec 
-      ~process_xmldecl:false       (* The XML declaration is ignored 
-                                   * (except 'encoding') 
-                                   *)
-      ~transform_dtd:(fun x -> x)  (* Do not transform the DTD *)
-      ~id_index:None
-      ~use_document_entity:false
-      ~entry:Ext_element           (* Entry point of the grammar *)
-      ~init_lexer:Content          (* The initially used lexer *)
-  in
-  match pobj # root with
-      Some r -> r
-    | None -> raise(WF_error("No root element"))
-;;
-
-
-let iparse_document_entity ?(transform_dtd = (fun x -> x)) 
-                           ?id_index
-                           cfg0 src spec p_wf =
-  (* Parse an element given as separate entity *)
-  (* p_wf: 'true' if in well-formedness mode, 'false' if in validating mode *)
-  let cfg = { cfg0 with
-               recognize_standalone_declaration = 
-                   cfg0.recognize_standalone_declaration && (not p_wf) 
-            } in
-  let dtd = new dtd cfg.warner cfg.encoding in
-  if p_wf then
-    dtd # allow_arbitrary;
-  let doc = new document cfg.warner in
-  let pobj =
-    call_parser 
-      ~configuration:cfg 
-      ~source:src 
-      ~dtd:dtd 
-      ~extensible_dtd:(not p_wf)   (* Extend the DTD by parsed declarations
-                                   * only if in validating mode
-                                   *)
-      ~document:doc 
-      ~specification:spec 
-      ~process_xmldecl:true        (* The XML declaration is processed *)
-                                   (* TODO: change to 'not p_wf' ? *)
-      ~transform_dtd:(fun dtd -> 
-                       let dtd' = transform_dtd dtd in
-                       if cfg.accept_only_deterministic_models then 
-                         dtd' # only_deterministic_models;
-                       dtd')
-
-      ~id_index:(id_index :> 'ext index option)
-      ~use_document_entity:true
-      ~entry:Ext_document          (* Entry point of the grammar *)
-      ~init_lexer:Document         (* The initially used lexer *)
-  in
-  pobj # doc
-;;
-
-
-let parse_document_entity ?(transform_dtd = (fun x -> x)) 
-                          ?id_index
-                          cfg src spec =
-  iparse_document_entity 
-    ~transform_dtd:transform_dtd 
-    ?id_index:(id_index : 'ext #index option :> 'ext index option)
-    cfg src spec false;;
-
-let parse_wfdocument_entity cfg src spec =
-  iparse_document_entity cfg src spec true;;
-
-let extract_dtd_from_document_entity cfg src =
-  let transform_dtd dtd = raise (Return_DTD dtd) in
-  try
-    let doc = parse_document_entity 
-               ~transform_dtd:transform_dtd
-               cfg
-               src
-               default_spec in
-    (* Should not happen: *)
-    doc # dtd
-  with
-      Return_DTD dtd ->
-       (* The normal case: *)
-       dtd
-;;
-
-
-let default_config =
-  let w = new drop_warnings in
-  { warner = w;
-    errors_with_line_numbers = true;
-    enable_pinstr_nodes = false;
-    enable_super_root_node = false;
-    enable_comment_nodes = false;
-    encoding = `Enc_iso88591;
-    recognize_standalone_declaration = true;
-    store_element_positions = true;
-    idref_pass = false;
-    validate_by_dfa = true;
-    accept_only_deterministic_models = true;
-    debugging_mode = false;
-  }
-
-
-class  [ 'ext ] hash_index =
-object 
-  constraint 'ext = 'ext node #extension
-  val ht = (Hashtbl.create 100 : (string, 'ext node) Hashtbl.t)
-  method add s n =
-    try
-      ignore(Hashtbl.find ht s);
-      raise ID_not_unique
-    with
-       Not_found ->
-         Hashtbl.add ht s n
-
-  method find s = Hashtbl.find ht s
-  method index = ht
-end
-
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.14  2000/08/26 23:23:14  gerd
- *     Bug: from_file must not interpret the file name as URL path.
- *     Bug: When PI and comment nodes are generated, the collected data
- * material must be saved first.
- *
- * Revision 1.13  2000/08/19 21:30:03  gerd
- *     Improved the error messages of the parser
- *
- * Revision 1.12  2000/08/18 20:16:25  gerd
- *     Implemented that Super root nodes, pinstr nodes and comment
- * nodes are included into the document tree.
- *
- * Revision 1.11  2000/08/14 22:24:55  gerd
- *     Moved the module Pxp_encoding to the netstring package under
- * the new name Netconversion.
- *
- * Revision 1.10  2000/07/23 02:16:33  gerd
- *     Support for DFAs.
- *
- * Revision 1.9  2000/07/14 13:57:29  gerd
- *     Added the id_index feature.
- *
- * Revision 1.8  2000/07/09 17:52:45  gerd
- *     New implementation for current_data.
- *     The position of elements is stored on demand.
- *
- * Revision 1.7  2000/07/09 01:00:35  gerd
- *     Improvement: It is now guaranteed that only one data node
- * is added for consecutive character material.
- *
- * Revision 1.6  2000/07/08 16:27:29  gerd
- *     Cleaned up the functions calling the parser.
- *     New parser argument: transform_dtd.
- *     Implementations for 'extract_dtd_from_document_entity' and
- * 'parse_wfcontent_entity'.
- *
- * Revision 1.5  2000/07/06 23:05:18  gerd
- *     Initializations of resolvers were missing.
- *
- * Revision 1.4  2000/07/06 22:11:01  gerd
- *     Fix: The creation of the non-virtual root element is protected
- * in the same way as the virtual root element.
- *
- * Revision 1.3  2000/07/04 22:15:18  gerd
- *     Change: Using the new resolver capabilities.
- *     Still incomplete: the new extraction and parsing functions.
- *
- * Revision 1.2  2000/06/14 22:19:06  gerd
- *     Added checks such that it is impossible to mix encodings.
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- * Old logs from markup_yacc.m2y:
- *
- * Revision 1.9  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.8  2000/05/27 19:26:19  gerd
- *     Change: The XML declaration is interpreted right after
- * it has been parsed (no longer after the document): new function
- * check_and_parse_xmldecl.
- *     When elements, attributes, and entities are declared
- * it is stored whether the declaration happens in an external
- * entity (for the standalone check).
- *     The option recognize_standalone_declaration is interpreted.
- *
- * Revision 1.7  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.6  2000/05/14 21:51:24  gerd
- *     Change: Whitespace is handled by the grammar, and no longer
- * by the entity.
- *
- * Revision 1.5  2000/05/14 17:50:54  gerd
- *     Updates because of changes in the token type.
- *
- * Revision 1.4  2000/05/11 22:09:17  gerd
- *     Fixed the remaining problems with conditional sections.
- * This seems to be also a weakness of the XML spec!
- *
- * Revision 1.3  2000/05/09 00:02:44  gerd
- *     Conditional sections are now recognized by the parser.
- * There seem some open questions; see the TODO comments!
- *
- * Revision 1.2  2000/05/08 22:01:44  gerd
- *     Introduced entity managers (see markup_entity.ml).
- *     The XML declaration is now recognized by the parser. If such
- * a declaration is found, the method process_xmldecl of the currently
- * active entity is called. If the first token is not an XML declaration,
- * the method process_missing_xmldecl is called instead.
- *     Some minor changes.
- *
- * Revision 1.1  2000/05/06 23:21:49  gerd
- *     Initial revision.
- *
- *     
- * ======================================================================
- *
- * COPIED FROM REVISION 1.19 OF markup_yacc.mly
- *
- * Revision 1.19  2000/05/01 15:20:08  gerd
- *     "End tag matches start tag" is checked before "End tag in the
- * same entity as start tag".
- *
- * Revision 1.18  2000/04/30 18:23:08  gerd
- *     Bigger change: Introduced the concept of virtual roots. First,
- * this reduces the number of checks. Second, it makes it possible to
- * return the virtual root to the caller instead of the real root (new
- * config options 'virtual_root' and 'processing_instructions_inline').
- *     Minor changes because of better CR/CRLF handling.
- *
- * Revision 1.17  2000/03/13 23:47:46  gerd
- *     Updated because of interface changes. (See markup_yacc_shadow.mli
- * rev. 1.8)
- *
- * Revision 1.16  2000/01/20 20:54:43  gerd
- *     New config.errors_with_line_numbers.
- *
- * Revision 1.15  1999/12/17 22:27:58  gerd
- *     Bugfix: The value of 'p_internal_subset' (an instance
- * variable of the parser object) is to true when the internal subset
- * begins, and is set to false when this subset ends. The error was
- * that references to external entities within this subset did not
- * set 'p_internal_subset' to false; this is now corrected by introducing
- * the 'p_internal_subset_stack'.
- *     This is a typical example of how the code gets more and
- * more complicated and that it is very difficult to really understand
- * what is going on.
- *
- * Revision 1.14  1999/11/09 22:23:37  gerd
- *     Removed the invocation of "init_dtd" of the root document.
- * This method is no longer available. The DTD is also passed to the
- * document object by the root element, so nothing essential changes.
- *
- * Revision 1.13  1999/10/25 23:37:09  gerd
- *     Bugfix: The warning "More than one ATTLIST declaration for element
- * type ..." is only generated if an ATTLIST is found while there are already
- * attributes for the element.
- *
- * Revision 1.12  1999/09/01 23:08:38  gerd
- *     New frontend function: parse_wf_document. This simply uses
- * a DTD that allows anything, and by the new parameter "extend_dtd" it is
- * avoided that element, attlist, and notation declarations are added to this
- * DTD. The idea is that this function simulates a well-formedness parser.
- *     Tag_beg, Tag_end carry the entity_id. The "elstack" stores the
- * entity_id of the stacked tag. This was necessary because otherwise there
- * are some examples to produces incorrectly nested elements.
- *     p_internal_subset is a variable that stores whether the internal
- * subset is being parsed. This is important beacause entity declarations in
- * internal subsets are not allowed to contain parameter references.
- *     It is checked if the "elstack" is empty after all has been parsed.
- *     Processing instructions outside DTDs and outside elements are now
- * added to the document.
- *     The rules of mixed and regexp style content models have been
- * separated. The code is now much simpler.
- *     Entity references outside elements are detected and rejected.
- *
- * Revision 1.11  1999/09/01 16:26:08  gerd
- *     Improved the quality of error messages.
- *
- * Revision 1.10  1999/08/31 19:13:31  gerd
- *     Added checks on proper PE nesting. The idea is that tokens such
- * as Decl_element and Decl_rangle carry an entity ID with them. This ID
- * is simply an object of type < >, i.e. you can only test on identity.
- * The lexer always produces tokens with a dummy ID because it does not
- * know which entity is the current one. The entity layer replaces the dummy
- * ID with the actual ID. The parser checks that the IDs of pairs such as
- * Decl_element and Decl_rangle are the same; otherwise a Validation_error
- * is produced.
- *
- * Revision 1.9  1999/08/15 20:42:01  gerd
- *     Corrected a misleading message.
- *
- * Revision 1.8  1999/08/15 20:37:34  gerd
- *     Improved error messages.
- *     Bugfix: While parsing document entities, the subclass document_entity is
- * now used instead of external_entity. The rules in document entities are a bit
- * stronger.
- *
- * Revision 1.7  1999/08/15 14:03:59  gerd
- *     Empty documents are not allowed.
- *     "CDATA section not allowed here" is a WF_error, not a Validation_
- * error.
- *
- * Revision 1.6  1999/08/15 02:24:19  gerd
- *     Removed some grammar rules that were used for testing.
- *     Documents without DTD can now have arbitrary elements (formerly
- * they were not allowed to have any element).
- *
- * Revision 1.5  1999/08/14 22:57:20  gerd
- *     It is allowed that external entities are empty because the
- * empty string is well-parsed for both declarations and contents. Empty
- * entities can be referenced anywhere because the references are replaced
- * by nothing. Because of this, the Begin_entity...End_entity brace is only
- * inserted if the entity is non-empty. (Otherwise references to empty
- * entities would not be allowed anywhere.)
- *     As a consequence, the grammar has been changed such that a
- * single Eof is equivalent to Begin_entity,End_entity without content.
- *
- * Revision 1.4  1999/08/14 22:20:01  gerd
- *         The "config" slot has now a component "warner" which is
- * an object with a "warn" method. This is used to warn about characters
- * that cannot be represented in the Latin 1 alphabet.
- *         Furthermore, there is a new component "debugging_mode".
- *         Some Parse_error exceptions have been changed into Validation_error.
- *         The interfaces of functions/classes imported from other modules
- * have changed; the invocations have been adapted.
- *         Contents may contain CDATA sections that have been forgotten.
- *
- * Revision 1.3  1999/08/11 15:00:41  gerd
- *     The Begin_entity ... End_entity brace is also possible in
- * 'contents'.
- *     The configuration passed to the parsing object contains always
- * the resolver that is actually used.
- *
- * Revision 1.2  1999/08/10 21:35:12  gerd
- *     The XML/encoding declaration at the beginning of entities is
- * evaluated. In particular, entities have now a method "xml_declaration"
- * which returns the name/value pairs of such a declaration. The "encoding"
- * setting is interpreted by the entity itself; "version", and "standalone"
- * are interpreted by Markup_yacc.parse_document_entity. Other settings
- * are ignored (this does not conform to the standard; the standard prescribes
- * that "version" MUST be given in the declaration of document; "standalone"
- * and "encoding" CAN be declared; no other settings are allowed).
- *     TODO: The user should be warned if the standard is not exactly
- * fulfilled. -- The "standalone" property is not checked yet.
- *
- * Revision 1.1  1999/08/10 00:35:52  gerd
- *     Initial revision.
- *
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/pxp_yacc.mli b/helm/DEVEL/pxp/pxp/pxp_yacc.mli
deleted file mode 100644 (file)
index cb987a8..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_yacc.mli
+++ /dev/null
@@ -1,488 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright by Gerd Stolpmann. See LICENSE for details.
- *)
-
-
-(*$ markup-yacc.mli *)
-
-open Pxp_types
-open Pxp_dtd
-open Pxp_document
-
-exception ID_not_unique
-
-class type [ 'ext ] index =
-object 
-  (* The type of indexes over the ID attributes of the elements. This type
-   * is the minimum requirement needed by the parser to create such an index.
-   *)
-  constraint 'ext = 'ext node #extension
-  method add : string -> 'ext node -> unit
-    (* Add the passed node to the index. If there is already an ID with
-     * the passed string value, the exception ID_not_unique should be
-     * raised. (But the index is free also to accept several identical IDs.)
-     *)
-  method find : string -> 'ext node
-    (* Finds the node with the passed ID value, or raises Not_found *)
-end
-;;
-
-
-class [ 'ext ] hash_index : 
-object 
-  (* This is a simple implementation of 'index' using a hash table. *)
-  constraint 'ext = 'ext node #extension
-  method add : string -> 'ext node -> unit
-    (* See above. *)
-  method find : string -> 'ext node
-    (* See above. *)
-  method index : (string, 'ext node) Hashtbl.t
-    (* Returns the hash table. *)
-end
-;;
-
-
-type config =
-    { warner : collect_warnings;
-         (* An object that collects warnings. *)
-
-      errors_with_line_numbers : bool;
-         (* Whether error messages contain line numbers or not. The parser
-         * is 10 to 20 per cent faster if line numbers are turned off;
-         * you get only byte positions in this case.
-         *)
-
-      enable_pinstr_nodes : bool;
-         (* true: turns a special mode for processing instructions on. Normally,
-         * you cannot determine the exact location of a PI; you only know
-         * in which element the PI occurs. This mode makes it possible
-         * to find the exact location out: Every PI is artificially wrapped
-         * by a special node with type T_pinstr. For example, if the XML text
-         * is <a><?x?><?y?></a>, the parser normally produces only an element
-         * object for "a", and puts the PIs "x" and "y" into it (without
-         * order). In this mode, the object "a" will contain two objects
-         * with type T_pinstr, and the first object will contain "x", and the
-         * second "y": the object tree looks like
-         * - Node with type = T_element "a"
-         *   - Node with type = T_pinstr "x"
-         *     + contains processing instruction "x"
-         *   - Node with type = T_pinstr "y"
-         *     + contains processing instruction "y"
-         *
-         * Notes:
-         * (1) In past versions of PXP this mode was called
-         *     processing_instructions_inline, and it produced nodes of
-         *     type T_element "-pi" instead of T_pinstr.
-         * (2) The T_pinstr nodes are created from the pinstr exemplars
-         *     in your spec
-         *)
-
-      enable_super_root_node : bool;
-         (* true: the topmost element of the XML tree is not the root element,
-         * but the so-called super root. The root element is a son of the
-         * super root. The super root is a node with type T_super_root.
-         * The following behaviour changes, too:
-         * - PIs occurring outside the root element and outside the DTD are
-         *   added to the super root instead of the document object
-         * - If enable_pinstr_nodes is also turned on, the PI wrappers
-         *   are added to the super root
-         *
-         * For example, the document
-         *   <?x?><a>y</a><?y?>
-         * is normally represented by:
-         * - document object
-         *   + contains PIs x and y
-         *   - reference to root node with type = T_element "a"
-         *     - node with type = T_data: contains "y"
-         * With enabled super root node:
-         * - document object
-         *   - reference to super root node with type = T_super_root
-         *     + contains PIs x and y
-         *     - root node with type = T_element "a"
-         *       - node with type = T_data: contains "y"
-         * If also enable_pinstr_nodes:
-         * - document object
-         *   - reference to super root node with type = T_super_root
-         *     - node with type = T_pinstr "x"
-         *       + contains PI "x"
-         *     - root node with type = T_element "a"
-         *       - node with type = T_data: contains "y"
-         *     - node with type = T_pinstr "y"
-         *       + contains PI "y"
-         * Notes:
-         * (1) In previous versions of PXP this mode was called
-         *     virtual_root, and it produced an additional node of type
-         *     T_element "-vr" instead of T_super_root.
-         * (2) The T_super_root node is created from the super root exemplar
-         *     in your spec.
-         *)
-
-      enable_comment_nodes : bool;
-         (* When enabled, comments are represented as nodes with type =
-         * T_comment.
-         * To access the contents of comments, use the method "comment"
-         * for the comment nodes. 
-         * These nodes behave like elements; however, they are normally
-         * empty and do not have attributes. Note that it is possible to
-         * add children to comment nodes and to set attributes, but it is
-         * strongly recommended not to do so. There are no checks on
-         * such abnormal use, because they would cost too
-         * much time, even when no comment nodes are generated at all.
-         *
-         * Comment nodes should be disabled unless you must parse a 
-         * third-party XML text which uses comments as another data
-         * container.
-         *
-         * The nodes of type T_comment are created from the comment exemplars
-         * in your spec.
-         *)
-
-      encoding : rep_encoding;
-        (* Specifies the encoding used for the *internal* representation
-        * of any character data.
-        * Note that the default is still Enc_iso88591.
-        *)
-
-      recognize_standalone_declaration : bool;
-        (* Whether the "standalone" declaration is recognized or not.
-        * This option does not have an effect on well-formedness parsing:
-        * in this case such declarations are never recognized.
-        *
-        * Recognizing the "standalone" declaration means that the 
-        * value of the declaration is scanned and passed to the DTD,
-        * and that the "standalone-check" is performed. 
-        *
-        * Standalone-check: If a document is flagged standalone='yes' 
-        * some additional constraints apply. The idea is that a parser
-        * without access to any external document subsets can still parse
-        * the document, and will still return the same values as the parser
-        * with such access. For example, if the DTD is external and if
-        * there are attributes with default values, it is checked that there
-        * is no element instance where these attributes are omitted - the
-        * parser would return the default value but this requires access to
-        * the external DTD subset.
-        *)
-
-      store_element_positions : bool;
-        (* Whether the file name, the line and the column of the
-        * beginning of elements are stored in the element nodes.
-        * This option may be useful to generate error messages.
-        * 
-        * Positions are only stored for:
-        * - Elements
-        * - Wrapped processing instructions (see enable_pinstr_nodes)
-        * For all other node types, no position is stored.
-        *
-        * You can access positions by the method "position" of nodes.
-        *)
-
-      idref_pass : bool;
-        (* Whether the parser does a second pass and checks that all
-        * IDREF and IDREFS attributes contain valid references.
-        * This option works only if an ID index is available. To create
-        * an ID index, pass an index object as id_index argument to the
-        * parsing functions (such as parse_document_entity; see below).
-        *
-        * "Second pass" does not mean that the XML text is again parsed;
-        * only the existing document tree is traversed, and the check
-        * on bad IDREF/IDREFS attributes is performed for every node.
-        *)
-
-      validate_by_dfa : bool;
-        (* If true, and if DFAs are available for validation, the DFAs will
-        * actually be used for validation.
-        * If false, or if no DFAs are available, the standard backtracking
-        * algorithm will be used.
-        * DFA = deterministic finite automaton.
-        *
-        * DFAs are only available if accept_only_deterministic_models is
-        * "true" (because in this case, it is relatively cheap to construct
-        * the DFAs). DFAs are a data structure which ensures that validation
-        * can always be performed in linear time.
-        *
-        * I strongly recommend using DFAs; however, there are examples
-        * for which validation by backtracking is faster.
-        *)
-
-      accept_only_deterministic_models : bool;
-        (* Whether only deterministic content models are accepted in DTDs. *)
-
-      (* The following options are not implemented, or only for internal
-       * use.
-       *)
-
-      debugging_mode : bool;
-    }
-
-
-type source =
-    Entity of ((dtd -> Pxp_entity.entity) * Pxp_reader.resolver)
-  | ExtID of (ext_id * Pxp_reader.resolver)
-
-val from_channel : 
-      ?system_encoding:encoding -> ?id:ext_id -> ?fixenc:encoding -> 
-      in_channel -> source
-
-val from_string :
-      ?fixenc:encoding -> string -> source
-
-val from_file :
-      ?system_encoding:encoding -> string -> source
-
-(* Notes on sources (version 2):
- *
- * Sources specify where the XML text to parse comes from. Sources not only
- * represent character streams, but also external IDs (i.e. SYSTEM or PUBLIC
- * names), and they are interpreted as a specific encoding of characters.
- * A source should be associated with an external ID, because otherwise
- * it is not known how to handle relative names.
- *
- * There are two primary sources, Entity and ExtID, and several functions
- * for derived sources. First explanations for the functions:
- *
- * from_channel: The XML text is read from an in_channel. By default, the
- *   channel is not associated with an external ID, and it is impossible
- *   to resolve relative SYSTEM IDs found in the document.
- *   If the ?id argument is passed, it is assumed that the channel has this
- *   external ID. If relative SYSTEM IDs occur in the document, they can
- *   be interpreted; however, it is only possible to read from "file:"
- *   IDs.
- *   By default, the channel automatically detects the encoding. You can
- *   set a fixed encoding by passing the ?fixenc argument.
- *
- * from_string: The XML text is read from a string.
- *   It is impossible to read from any external entity whose reference is found
- *   in the string.
- *   By default, the encoding of the string is detected automatically. You can
- *   set a fixed encoding by passing the ?fixenc argument.
- *
- * from_file: The XML text is read from the file whose file name is
- *   passed to the function (as UTF-8 string).
- *   Relative system IDs can be interpreted by this function.
- *   The ?system_encoding argument specifies the character encoding used
- *   for file names (sic!). By default, UTF-8 is assumed.
- *
- * Examples:
- *
- * from_file "/tmp/file.xml": 
- *   reads from this file, which is assumed to have the ID 
- *   SYSTEM "file://localhost/tmp/file.xml".
- *
- * let ch = open_in "/tmp/file.xml" in
- * from_channel ~id:(System "file://localhost/tmp/file.xml") ch
- *   This does the same, but uses a channel.
- *
- * from_channel ~id:(System "http://host/file.xml")
- *              ch
- *   reads from the channel ch, and it is assumed that the ID is
- *   SYSTEM "http://host/file.xml". If there is any relative SYSTEM ID,
- *   it will be interpreted relative to this location; however, there is
- *   no way to read via HTTP.
- *   If there is any "file:" SYSTEM ID, it is possible to read the file.
- *
- * The primary sources:
- *
- * - ExtID(x,r): The identifier x (either the SYSTEM or the PUBLIC name) of the
- *   entity to read from is passed to the resolver, and the resolver finds
- *   the entity and opens it.
- *   The intention of this option is to allow customized
- *   resolvers to interpret external identifiers without any restriction.
- *   The Pxp_reader module contains several classes allowing the user to
- *   compose such a customized resolver from predefined components.
- *
- *   ExtID is the interface of choice for own extensions to resolvers.
- *
- * - Entity(m,r): You can implementy every behaviour by using a customized
- *   entity class. Once the DTD object d is known that will be used during
- *   parsing, the entity  e = m d  is determined and used together with the
- *   resolver r.
- *   This is only for hackers.
- *)
-
-
-
-val default_config : config
-  (* - Warnings are thrown away
-   * - Error messages will contain line numbers
-   * - Neither T_super_root nor T_pinstr nor T_comment nodes are generated
-   * - The internal encoding is ISO-8859-1
-   * - The standalone declaration is checked
-   * - Element positions are stored
-   * - The IDREF pass is left out
-   * - If available, DFAs are used for validation
-   * - Only deterministic content models are accepted
-   *) 
-
-val default_extension : ('a node extension) as 'a
-  (* A "null" extension; an extension that does not extend the functionality *)
-
-val default_spec : ('a node extension as 'a) spec
-  (* Specifies that you do not want to use extensions. *)
-
-val parse_dtd_entity : config -> source -> dtd
-  (* Parse an entity containing a DTD (external subset), and return this DTD. *)
-
-val extract_dtd_from_document_entity : config -> source -> dtd
-  (* Parses a closed document, i.e. a document beginning with <!DOCTYPE...>,
-   * and returns the DTD contained in the document.
-   * The parts of the document outside the DTD are actually not parsed,
-   * i.e. parsing stops when all declarations of the DTD have been read.
-   *)
-
-val parse_document_entity : 
-  ?transform_dtd:(dtd -> dtd) ->
-  ?id_index:('ext index) ->
-  config -> source -> 'ext spec -> 'ext document
-  (* Parse a closed document, i.e. a document beginning with <!DOCTYPE...>,
-   * and validate the contents of the document against the DTD contained
-   * and/or referenced in the document.
-   *
-   * If the optional argument ~transform_dtd is passed, the following 
-   * modification applies: After the DTD (both the internal and external
-   * subsets) has been parsed, the function ~transform_dtd is called,
-   * and the resulting DTD is actually used to validate the document.
-   *
-   * If the optional argument ~transform_dtd is missing, the parser
-   * behaves in the same way as if the identity were passed as ~transform_dtd.
-   *
-   * If the optional argument ~id_index is present, the parser adds
-   * any ID attribute to the passed index. An index is required to detect
-   * violations of the uniqueness of IDs.
-   *)
-
-val parse_wfdocument_entity : 
-  config -> source -> 'ext spec -> 'ext document
-  (* Parse a closed document (see parse_document_entity), but do not
-   * validate it. Only checks on well-formedness are performed.
-   *)
-
-val parse_content_entity  : 
-  ?id_index:('ext index) ->
-  config -> source -> dtd -> 'ext spec -> 'ext node
-  (* Parse a file representing a well-formed fragment of a document. The
-   * fragment must be a single element (i.e. something like <a>...</a>;
-   * not a sequence like <a>...</a><b>...</b>). The element is validated
-   * against the passed DTD, but it is not checked whether the element is
-   * the root element specified in the DTD.
-   *
-   * If the optional argument ~id_index is present, the parser adds
-   * any ID attribute to the passed index. An index is required to detect
-   * violations of the uniqueness of IDs.
-   *)
-
-val parse_wfcontent_entity : 
-  config -> source -> 'ext spec -> 'ext node
-  (* Parse a file representing a well-formed fragment of a document
-   * (see parse_content_entity). The fragment is not validated, only
-   * checked for well-formedness.
-   *)
-  
-
-(*$-*)
-
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2000/11/17 09:57:30  lpadovan
- * Initial revision
- *
- * Revision 1.7  2000/08/18 20:15:43  gerd
- *     Config options:
- * - enable_super_root_nodes: new name for virtual_root
- * - enable_pinstr_nodes: new name for processing_instructions_inline
- * - enable_comment_nodes: new option
- *     Updated comments for various options.
- *
- * Revision 1.6  2000/07/23 02:16:33  gerd
- *     Support for DFAs.
- *
- * Revision 1.5  2000/07/14 13:57:29  gerd
- *     Added the id_index feature.
- *
- * Revision 1.4  2000/07/09 17:52:54  gerd
- *     New option store_element_positions.
- *
- * Revision 1.3  2000/07/08 16:26:21  gerd
- *     Added the signatures of the functions
- * 'extract_dtd_from_document_entity' and 'parse_wfcontent_entity'.
- * Updated the signature of 'parse_document_entity': New optional
- * argument 'transform_dtd'.
- *     Updated the comments.
- *
- * Revision 1.2  2000/07/04 22:09:03  gerd
- *     MAJOR CHANGE: Redesign of the interface (not yet complete).
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- * Old logs from markup_yacc.mli:
- *
- * Revision 1.4  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.3  2000/05/27 19:24:01  gerd
- *     New option: recognize_standalone_declaration.
- *
- * Revision 1.2  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.1  2000/05/06 23:21:49  gerd
- *     Initial revision.
- *
- * Revision 1.9  2000/04/30 18:23:38  gerd
- *     New config options 'processing_instructions_inline' and
- * 'virtual_root'.
- *
- * Revision 1.8  2000/03/13 23:46:46  gerd
- *     Change: The 'resolver' component of the 'config' type has
- * disappeared. Instead, there is a new resolver component in the Entity
- * and ExtID values of 'source'. I hope that this makes clearer that the
- * resolver has only an effect if used together with Entity and ExtID
- * sources.
- *     Change: The Entity value can now return the entity dependent
- * on the DTD that is going to be used.
- *
- * Revision 1.7  2000/02/22 02:32:02  gerd
- *     Updated.
- *
- * Revision 1.6  2000/02/22 01:52:45  gerd
- *     Added documentation.
- *
- * Revision 1.5  2000/01/20 20:54:43  gerd
- *     New config.errors_with_line_numbers.
- *
- * Revision 1.4  1999/09/01 23:09:10  gerd
- *     New function parse_wf_entity that simulates a well-formedness
- * parser.
- *
- * Revision 1.3  1999/09/01 16:26:36  gerd
- *     Added an empty line. This is *really* a big change.
- *
- * Revision 1.2  1999/08/14 22:20:27  gerd
- *         The "config" slot has now a component "warner"which is
- * an object with a "warn" method. This is used to warn about characters
- * that cannot be represented in the Latin 1 alphabet.
- *         Furthermore, there is a new component "debugging_mode".
- *
- * Revision 1.1  1999/08/10 00:35:52  gerd
- *     Initial revision.
- *
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/rtests/MISSING_TESTS b/helm/DEVEL/pxp/pxp/rtests/MISSING_TESTS
deleted file mode 100644 (file)
index 386830b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/MISSING_TESTS
+++ /dev/null
@@ -1,6 +0,0 @@
-- Conditional sections:
-
-  Conditional_begin and Conditional_end must be in the same entity.
-
-- NDATA: check whether ENTITY attributes refer only to declared
-  NDATA entities

diff --git a/helm/DEVEL/pxp/pxp/rtests/Makefile b/helm/DEVEL/pxp/pxp/rtests/Makefile
deleted file mode 100644 (file)
index 653aaf2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/Makefile
+++ /dev/null
@@ -1,32 +0,0 @@
-.PHONY: all
-all:
-       $(MAKE) -C reader
-       $(MAKE) -C write
-       $(MAKE) -C codewriter
-       $(MAKE) -C canonxml
-       $(MAKE) -C negative
-
-.PHONY: clean
-clean:
-       rm -f *.cmi *.cmo *.cma *.cmx *.cmxa
-
-.PHONY: CLEAN
-CLEAN: clean
-       $(MAKE) -C reader clean
-       $(MAKE) -C write clean
-       $(MAKE) -C codewriter clean
-       $(MAKE) -C canonxml clean
-       $(MAKE) -C negative clean
-
-.PHONY: distclean
-distclean: clean
-       rm -f *~
-       rm -f dumpfiles
-       $(MAKE) -C reader distclean
-       $(MAKE) -C write distclean
-       $(MAKE) -C codewriter distclean
-       $(MAKE) -C canonxml distclean
-       $(MAKE) -C negative distclean
-
-dumpfiles: dumpfiles.ml
-       ocamlc -o dumpfiles dumpfiles.ml

diff --git a/helm/DEVEL/pxp/pxp/rtests/README b/helm/DEVEL/pxp/pxp/rtests/README
deleted file mode 100644 (file)
index 5c56b7a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/README
+++ /dev/null
@@ -1,16 +0,0 @@
-----------------------------------------------------------------------
-(Anti) Regression tests
-----------------------------------------------------------------------
-
-- To build the tests, "markup" must already be compiled in ..
-  Do "make" to start the compilation.
-
-- To run the tests:
-  ./run
-
-- Program dumpfiles: Do "make dumpfiles" to create it.
-  It takes XML file names on the command line, and writes a Latex
-  document on stdout. The document shows the contents of all files.
-  EXAMPLE:
-  $ ./dumpfiles canonxml/data_jclark_valid/ext-sa/*.* >x.tex
-  $ latex x

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/Makefile b/helm/DEVEL/pxp/pxp/rtests/canonxml/Makefile
deleted file mode 100644 (file)
index afbefb3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/Makefile
+++ /dev/null
@@ -1,27 +0,0 @@
-# make validate:        make bytecode executable
-# make validate.opt:    make native executable
-# make clean:          remove intermediate files (in this directory)
-# make CLEAN:           remove intermediate files (recursively)
-# make distclean:      remove any superflous files (recursively)
-#----------------------------------------------------------------------
-
-OCAMLPATH=../..
-
-test_canonxml: test_canonxml.ml
-       ocamlfind ocamlc -g -custom -o test_canonxml -package .,str -linkpkg test_canonxml.ml
-
-#----------------------------------------------------------------------
-.PHONY: all
-all:
-
-.PHONY: clean
-clean:
-       rm -f *.cmi *.cmo *.cma *.cmx *.o *.a *.cmxa out.xml
-
-.PHONY: CLEAN
-CLEAN: clean
-
-.PHONY: distclean
-distclean: clean
-       rm -f *~
-       rm -f test_canonxml

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/README b/helm/DEVEL/pxp/pxp/rtests/canonxml/README
deleted file mode 100644 (file)
index c4c3303..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/README
+++ /dev/null
@@ -1,20 +0,0 @@
-----------------------------------------------------------------------
-Regression test "canonxml":
-----------------------------------------------------------------------
-
-- An XML file is parsed, and the contents are printed in a canonical
-  format.
-
-- The output is compared with a reference file. The test is only
-  passed if the output and the reference are equal.
-
-- Test data "data_jclark_valid":
-  Contains the samples by James Clark that are valid. The subdirectories:
-  - sa:           standalone documents
-  - not-sa:       non-standalone document (with external DTD)
-  - ext-sa:       non-standalone document (with other external entity)
-
-  Tests that are not passed have been moved into the *-problems directories.
-  The reason is typically that characters have been used not in the 
-  Latin 1 character set.
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/001.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/001.ent
deleted file mode 100644 (file)
index 0b7088e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/001.ent
+++ /dev/null
@@ -1 +0,0 @@
-Data

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/001.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/001.xml
deleted file mode 100644 (file)
index e4cc432..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/001.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e SYSTEM "001.ent">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/002.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/002.ent
deleted file mode 100644 (file)
index 45f6d8e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/002.ent
+++ /dev/null
@@ -1 +0,0 @@
-Data
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/002.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/002.xml
deleted file mode 100644 (file)
index 2ee5988..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/002.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e SYSTEM "002.ent">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/003.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/003.ent
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/003.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/003.xml
deleted file mode 100644 (file)
index 407a4a1..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/003.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e SYSTEM "003.ent">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/004.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/004.ent
deleted file mode 100644 (file)
index 0b7088e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/004.ent
+++ /dev/null
@@ -1 +0,0 @@
-Data

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/004.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/004.xml
deleted file mode 100644 (file)
index c3cdbd0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/004.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e SYSTEM "004.ent">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/005.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/005.ent
deleted file mode 100644 (file)
index c6e97f8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/005.ent
+++ /dev/null
@@ -1 +0,0 @@
-<e/><e/><e/>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/005.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/005.xml
deleted file mode 100644 (file)
index 66b8a91..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/005.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (e*)>
-<!ELEMENT e EMPTY>
-<!ENTITY e SYSTEM "005.ent">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/006.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/006.ent
deleted file mode 100644 (file)
index 2846b57..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/006.ent
+++ /dev/null
@@ -1,4 +0,0 @@
-Data
-<e/>
-More data
-<e/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/006.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/006.xml
deleted file mode 100644 (file)
index b8f42b4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/006.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA|e)*>
-<!ELEMENT e EMPTY>
-<!ENTITY e SYSTEM "006.ent">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/007.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/007.ent
deleted file mode 100644 (file)
index ab1d696..0000000
Binary files a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/007.ent and /dev/null differ

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/007.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/007.xml
deleted file mode 100644 (file)
index 50416ed..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/007.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e SYSTEM "007.ent">
-]>
-<doc>X&e;Z</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/008.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/008.ent
deleted file mode 100644 (file)
index c6ca61f..0000000
Binary files a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/008.ent and /dev/null differ

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/008.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/008.xml
deleted file mode 100644 (file)
index 565f947..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/008.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e SYSTEM "008.ent">
-]>
-<doc>X&e;Z</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/009.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/009.ent
deleted file mode 100644 (file)
index 8b13789..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/009.ent
+++ /dev/null
@@ -1 +0,0 @@
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/009.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/009.xml
deleted file mode 100644 (file)
index 8119aa0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/009.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e SYSTEM "009.ent">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/010.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/010.ent
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/010.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/010.xml
deleted file mode 100644 (file)
index 5c19ba2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/010.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e SYSTEM "010.ent">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/011.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/011.ent
deleted file mode 100644 (file)
index cf7711b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/011.ent
+++ /dev/null
@@ -1 +0,0 @@
-xyzzy

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/011.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/011.xml
deleted file mode 100644 (file)
index c43795c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/011.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e PUBLIC "a not very interesting file" "011.ent">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/012.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/012.ent
deleted file mode 100644 (file)
index 8eb1fb9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/012.ent
+++ /dev/null
@@ -1 +0,0 @@
-&e4;
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/012.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/012.xml
deleted file mode 100644 (file)
index 42d538f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/012.xml
+++ /dev/null
@@ -1,9 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e1 "&e2;">
-<!ENTITY e2 "&e3;">
-<!ENTITY e3 SYSTEM "012.ent">
-<!ENTITY e4 "&e5;">
-<!ENTITY e5 "(e5)">
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&e1;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/013.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/013.ent
deleted file mode 100644 (file)
index 7f25c50..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/013.ent
+++ /dev/null
@@ -1 +0,0 @@
-<e/>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/013.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/013.xml
deleted file mode 100644 (file)
index e7f221f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/013.xml
+++ /dev/null
@@ -1,10 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (e)>
-<!ELEMENT e (#PCDATA)>
-<!ATTLIST e
-  a1 CDATA "a1 default"
-  a2 NMTOKENS "a2 default"
->
-<!ENTITY x SYSTEM "013.ent">
-]>
-<doc>&x;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/014.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/014.ent
deleted file mode 100644 (file)
index 470fd6f..0000000
Binary files a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/014.ent and /dev/null differ

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/014.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/014.xml
deleted file mode 100644 (file)
index 6b068d7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/014.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e SYSTEM "014.ent">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/001.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/001.xml
deleted file mode 100644 (file)
index 0a7acf8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/001.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>Data&#10;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/002.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/002.xml
deleted file mode 100644 (file)
index d4a445e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/002.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>Data</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/003.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/003.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/003.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/004.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/004.xml
deleted file mode 100644 (file)
index 0a7acf8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/004.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>Data&#10;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/005.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/005.xml
deleted file mode 100644 (file)
index 6e293aa..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/005.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><e></e><e></e><e></e></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/006.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/006.xml
deleted file mode 100644 (file)
index 04b6fc8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/006.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>Data&#10;<e></e>&#10;More data&#10;<e></e>&#10;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/007.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/007.xml
deleted file mode 100644 (file)
index ab2a74c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/007.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>XYZ</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/008.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/008.xml
deleted file mode 100644 (file)
index ab2a74c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/008.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>XYZ</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/009.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/009.xml
deleted file mode 100644 (file)
index a79dff6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/009.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&#10;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/010.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/010.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/010.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/011.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/011.xml
deleted file mode 100644 (file)
index bf275ad..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/011.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>xyzzy&#10;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/012.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/012.xml
deleted file mode 100644 (file)
index 81a251c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/012.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>(e5)</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/013.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/013.xml
deleted file mode 100644 (file)
index 524d94e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/013.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><e a1="a1 default" a2="a2 default"></e></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/014.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/014.xml
deleted file mode 100644 (file)
index 71c6dc3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/ext-sa/out/014.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>data</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/001.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/001.ent
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/001.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/001.xml
deleted file mode 100644 (file)
index 8419329..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/001.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc SYSTEM "001.ent" [
-<!ELEMENT doc EMPTY>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/002.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/002.ent
deleted file mode 100644 (file)
index 8b13789..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/002.ent
+++ /dev/null
@@ -1 +0,0 @@
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/002.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/002.xml
deleted file mode 100644 (file)
index f497ac8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/002.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc SYSTEM "002.ent" [
-<!ELEMENT doc EMPTY>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/003-1.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/003-1.ent
deleted file mode 100644 (file)
index f7af6e8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/003-1.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ELEMENT doc EMPTY>
-<!ENTITY % e SYSTEM "003-2.ent">
-<!ATTLIST doc a1 CDATA %e; "v1">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/003-2.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/003-2.ent
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/003.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/003.xml
deleted file mode 100644 (file)
index 465dafe..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/003.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "003-1.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/004-1.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/004-1.ent
deleted file mode 100644 (file)
index a988ade..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/004-1.ent
+++ /dev/null
@@ -1,4 +0,0 @@
-<!ELEMENT doc EMPTY>
-<!ENTITY % e1 SYSTEM "004-2.ent">
-<!ENTITY % e2 "%e1;">
-%e1;

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/004-2.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/004-2.ent
deleted file mode 100644 (file)
index f2ed894..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/004-2.ent
+++ /dev/null
@@ -1 +0,0 @@
-<!ATTLIST doc a1 CDATA "value">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/004.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/004.xml
deleted file mode 100644 (file)
index 95c9a92..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/004.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "004-1.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/005-1.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/005-1.ent
deleted file mode 100644 (file)
index 6e224b5..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/005-1.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ELEMENT doc EMPTY>
-<!ENTITY % e SYSTEM "005-2.ent">
-%e;

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/005-2.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/005-2.ent
deleted file mode 100644 (file)
index 8611eaf..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/005-2.ent
+++ /dev/null
@@ -1 +0,0 @@
-<!ATTLIST doc a1 CDATA "v1">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/005.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/005.xml
deleted file mode 100644 (file)
index 9b87d9e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/005.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "005-1.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/006.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/006.ent
deleted file mode 100644 (file)
index c9f9cfe..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/006.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ELEMENT doc EMPTY>
-<!ATTLIST doc a1 CDATA "w1" a2 CDATA "w2">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/006.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/006.xml
deleted file mode 100644 (file)
index 3b9f3d3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/006.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc SYSTEM "006.ent" [
-<!ATTLIST doc a1 CDATA "v1">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/007.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/007.ent
deleted file mode 100644 (file)
index a26a45e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/007.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA "v1">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/007.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/007.xml
deleted file mode 100644 (file)
index 1c5bc80..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/007.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "007.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/008.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/008.ent
deleted file mode 100644 (file)
index a26a45e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/008.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA "v1">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/008.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/008.xml
deleted file mode 100644 (file)
index 0138562..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/008.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc PUBLIC "whatever" "008.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/009.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/009.ent
deleted file mode 100644 (file)
index a26a45e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/009.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA "v1">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/009.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/009.xml
deleted file mode 100644 (file)
index a000855..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/009.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc PUBLIC "whatever" "009.ent" [
-<!ATTLIST doc a2 CDATA "v2">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/010.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/010.ent
deleted file mode 100644 (file)
index e4c75bb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/010.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA "v2">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/010.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/010.xml
deleted file mode 100644 (file)
index 0cbf093..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/010.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc SYSTEM "010.ent" [
-<!ATTLIST doc a1 CDATA "v1">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/011.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/011.ent
deleted file mode 100644 (file)
index a26a45e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/011.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA "v1">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/011.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/011.xml
deleted file mode 100644 (file)
index a105cc5..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/011.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY % e SYSTEM "011.ent">
-%e;
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/012.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/012.ent
deleted file mode 100644 (file)
index 2714b33..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/012.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA "v1">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/012.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/012.xml
deleted file mode 100644 (file)
index 832359c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/012.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY % e SYSTEM "012.ent">
-%e;
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/013.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/013.ent
deleted file mode 100644 (file)
index 0fce054..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/013.ent
+++ /dev/null
@@ -1,4 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<![ INCLUDE [
-<!ATTLIST doc a1 CDATA "v1">
-]]>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/013.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/013.xml
deleted file mode 100644 (file)
index 0430cc9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/013.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "013.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/014.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/014.ent
deleted file mode 100644 (file)
index 827e12e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/014.ent
+++ /dev/null
@@ -1,4 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<![ %e; [
-<!ATTLIST doc a1 CDATA "v1">
-]]>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/014.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/014.xml
deleted file mode 100644 (file)
index 8ce35a3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/014.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc SYSTEM "014.ent" [
-<!ENTITY % e "INCLUDE">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/015.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/015.ent
deleted file mode 100644 (file)
index 9089b1c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/015.ent
+++ /dev/null
@@ -1,5 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<![ %e; [
-<!ATTLIST doc a1 CDATA "v1">
-]]>
-<!ATTLIST doc a2 CDATA "v2">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/015.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/015.xml
deleted file mode 100644 (file)
index 2e0103e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/015.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc SYSTEM "015.ent" [
-<!ENTITY % e "IGNORE">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/016.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/016.ent
deleted file mode 100644 (file)
index 7a11d00..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/016.ent
+++ /dev/null
@@ -1,4 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<![%e;[
-<!ATTLIST doc a1 CDATA "v1">
-]]>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/016.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/016.xml
deleted file mode 100644 (file)
index 4340c9e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/016.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc SYSTEM "016.ent" [
-<!ENTITY % e "INCLUDE">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/017.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/017.ent
deleted file mode 100644 (file)
index 6718e5c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/017.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY % e "<!ATTLIST doc a1 CDATA 'v1'>">
-%e;

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/017.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/017.xml
deleted file mode 100644 (file)
index e2d218a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/017.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "017.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/018.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/018.ent
deleted file mode 100644 (file)
index ecaa135..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/018.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY % e "'v1'">
-<!ATTLIST doc a1 CDATA %e;>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/018.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/018.xml
deleted file mode 100644 (file)
index e27f48b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/018.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "018.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/019.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/019.ent
deleted file mode 100644 (file)
index 7d56007..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/019.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY % e "'v1'">
-<!ATTLIST doc a1 CDATA%e;>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/019.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/019.xml
deleted file mode 100644 (file)
index f9e9301..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/019.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "019.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/020.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/020.ent
deleted file mode 100644 (file)
index c681b50..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/020.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ENTITY % e "doc">
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST%e;a1 CDATA "v1">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/020.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/020.xml
deleted file mode 100644 (file)
index e009e38..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/020.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "020.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/021.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/021.ent
deleted file mode 100644 (file)
index 22d7134..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/021.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ENTITY % e "doc a1 CDATA">
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST %e; "v1">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/021.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/021.xml
deleted file mode 100644 (file)
index 77789b6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/021.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "021.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/022.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/022.ent
deleted file mode 100644 (file)
index 13bab79..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/022.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ENTITY % e "INCLUDE[">
-<!ELEMENT doc (#PCDATA)>
-<![ %e; <!ATTLIST doc a1 CDATA "v1"> ]]>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/022.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/022.xml
deleted file mode 100644 (file)
index 62bad5d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/022.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "022.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/023.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/023.ent
deleted file mode 100644 (file)
index 4498d84..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/023.ent
+++ /dev/null
@@ -1,5 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY % e1 "do">
-<!ENTITY % e2 "c">
-<!ENTITY % e3 "%e1;%e2;">
-<!ATTLIST %e3; a1 CDATA "v1">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/023.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/023.xml
deleted file mode 100644 (file)
index 2a8d4d9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/023.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "023.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/024.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/024.ent
deleted file mode 100644 (file)
index 02c1878..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/024.ent
+++ /dev/null
@@ -1,4 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY % e1 "'v1'">
-<!ENTITY % e2 'a1 CDATA %e1;'>
-<!ATTLIST doc %e2;>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/024.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/024.xml
deleted file mode 100644 (file)
index 2121cae..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/024.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "024.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/025.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/025.ent
deleted file mode 100644 (file)
index d0ee124..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/025.ent
+++ /dev/null
@@ -1,5 +0,0 @@
-<!ELEMENT doc EMPTY>
-<!ENTITY % e "x">
-<!ENTITY % e "y">
-<!ENTITY % v "'%e;'">
-<!ATTLIST doc a1 CDATA %v;>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/025.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/025.xml
deleted file mode 100644 (file)
index 8d5bf3e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/025.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "025.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/026.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/026.ent
deleted file mode 100644 (file)
index 1e35698..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/026.ent
+++ /dev/null
@@ -1 +0,0 @@
-<!ATTLIST doc a1 CDATA "w1">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/026.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/026.xml
deleted file mode 100644 (file)
index 2b320cc..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/026.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc ANY>
-<!ENTITY % e SYSTEM "026.ent">
-%e;
-<!ATTLIST doc a1 CDATA "x1" a2 CDATA "x2">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/027.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/027.ent
deleted file mode 100644 (file)
index 36a5466..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/027.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ENTITY % e "">
-<!ELEMENT doc (#PCDATA %e;)>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/027.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/027.xml
deleted file mode 100644 (file)
index cab657f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/027.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "027.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/028.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/028.ent
deleted file mode 100644 (file)
index 0b84263..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/028.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<![INCLUDE[<!ATTLIST doc a1 CDATA "v1">]]>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/028.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/028.xml
deleted file mode 100644 (file)
index 70a6cf2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/028.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "028.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/029.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/029.ent
deleted file mode 100644 (file)
index 6ba25e7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/029.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<![IGNORE[<!ATTLIST doc a1 CDATA "v1">]]>
-<!ATTLIST doc a1 CDATA "v2">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/029.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/029.xml
deleted file mode 100644 (file)
index 4e69c41..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/029.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "029.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/030.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/030.ent
deleted file mode 100644 (file)
index f623441..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/030.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<![IGNORE[]]>
-<![INCLUDE[]]>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/030.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/030.xml
deleted file mode 100644 (file)
index 376e84c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/030.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "030.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/031-1.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/031-1.ent
deleted file mode 100644 (file)
index 8fd57b7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/031-1.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY % e SYSTEM "031-2.ent">
-<!ENTITY e "<![CDATA[%e;]]>">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/031-2.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/031-2.ent
deleted file mode 100644 (file)
index 8611eaf..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/031-2.ent
+++ /dev/null
@@ -1 +0,0 @@
-<!ATTLIST doc a1 CDATA "v1">

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/031.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/031.xml
deleted file mode 100644 (file)
index 5a94354..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/031.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "031-1.ent">
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/001.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/001.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/001.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/002.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/002.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/002.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/003.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/003.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/003.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/004.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/004.xml
deleted file mode 100644 (file)
index bdc39e2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/004.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="value"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/005.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/005.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/005.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/006.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/006.xml
deleted file mode 100644 (file)
index d07627d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/006.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1" a2="w2"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/007.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/007.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/007.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/008.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/008.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/008.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/009.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/009.xml
deleted file mode 100644 (file)
index 7293fb6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/009.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1" a2="v2"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/010.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/010.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/010.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/011.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/011.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/011.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/012.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/012.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/012.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/013.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/013.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/013.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/014.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/014.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/014.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/015.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/015.xml
deleted file mode 100644 (file)
index 131a32f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/015.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a2="v2"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/016.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/016.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/016.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/017.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/017.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/017.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/018.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/018.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/018.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/019.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/019.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/019.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/020.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/020.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/020.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/021.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/021.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/021.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/022.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/022.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/022.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/023.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/023.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/023.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/024.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/024.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/024.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/025.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/025.xml
deleted file mode 100644 (file)
index eb3f967..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/025.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="x"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/026.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/026.xml
deleted file mode 100644 (file)
index 71c0202..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/026.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="w1" a2="x2"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/027.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/027.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/027.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/028.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/028.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/028.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/029.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/029.xml
deleted file mode 100644 (file)
index 7ac8b2b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/029.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v2"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/030.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/030.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/030.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/031.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/031.xml
deleted file mode 100644 (file)
index 03a6c3f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/not-sa/out/031.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&lt;!ATTLIST doc a1 CDATA &quot;v1&quot;&gt;&#10;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/001.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/001.xml
deleted file mode 100644 (file)
index d1e11b7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/001.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/002.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/002.xml
deleted file mode 100644 (file)
index 671db91..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/002.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc ></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/003.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/003.xml
deleted file mode 100644 (file)
index 8130204..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/003.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc >

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/004.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/004.xml
deleted file mode 100644 (file)
index c805282..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/004.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA #IMPLIED>
-]>
-<doc a1="v1"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/005.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/005.xml
deleted file mode 100644 (file)
index 9b203e7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/005.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA #IMPLIED>
-]>
-<doc a1 = "v1"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/006.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/006.xml
deleted file mode 100644 (file)
index 13c9477..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/006.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA #IMPLIED>
-]>
-<doc a1='v1'></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/007.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/007.xml
deleted file mode 100644 (file)
index 1bb7d38..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/007.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&#32;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/008.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/008.xml
deleted file mode 100644 (file)
index e4b9ab7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/008.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&amp;&lt;&gt;&quot;&apos;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/009.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/009.xml
deleted file mode 100644 (file)
index 1fbdc30..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/009.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&#x20;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/010.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/010.xml
deleted file mode 100644 (file)
index a964d28..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/010.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA #IMPLIED>
-]>
-<doc a1="v1" ></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/011.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/011.xml
deleted file mode 100644 (file)
index 8f99e5f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/011.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA #IMPLIED a2 CDATA #IMPLIED>
-]>
-<doc a1="v1" a2="v2"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/012.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/012.xml
deleted file mode 100644 (file)
index 7c07c88..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/012.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc : CDATA #IMPLIED>
-]>
-<doc :="v1"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/013.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/013.xml
deleted file mode 100644 (file)
index 1cf6401..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/013.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc _.-0123456789 CDATA #IMPLIED>
-]>
-<doc _.-0123456789="v1"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/014.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/014.xml
deleted file mode 100644 (file)
index 244ec80..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/014.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc abcdefghijklmnopqrstuvwxyz CDATA #IMPLIED>
-]>
-<doc abcdefghijklmnopqrstuvwxyz="v1"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/015.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/015.xml
deleted file mode 100644 (file)
index 011275b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/015.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc ABCDEFGHIJKLMNOPQRSTUVWXYZ CDATA #IMPLIED>
-]>
-<doc ABCDEFGHIJKLMNOPQRSTUVWXYZ="v1"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/016.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/016.xml
deleted file mode 100644 (file)
index d863f85..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/016.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc><?pi?></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/017.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/017.xml
deleted file mode 100644 (file)
index 3ace15b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/017.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc><?pi some data ? > <??></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/018.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/018.xml
deleted file mode 100644 (file)
index 5b3bf06..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/018.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc><![CDATA[<foo>]]></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/019.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/019.xml
deleted file mode 100644 (file)
index 1e935d4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/019.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc><![CDATA[<&]]></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/020.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/020.xml
deleted file mode 100644 (file)
index e8525e6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/020.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc><![CDATA[<&]>]]]></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/021.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/021.xml
deleted file mode 100644 (file)
index 6923ee2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/021.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc><!-- a comment --></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/022.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/022.xml
deleted file mode 100644 (file)
index a510a7f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/022.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc><!-- a comment ->--></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/023.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/023.xml
deleted file mode 100644 (file)
index 835e909..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/023.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e "">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/024.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/024.xml
deleted file mode 100644 (file)
index 9ba2f0e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/024.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (foo)>
-<!ELEMENT foo (#PCDATA)>
-<!ENTITY e "&#60;foo></foo>">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/025.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/025.xml
deleted file mode 100644 (file)
index 6c78b2e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/025.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (foo*)>
-<!ELEMENT foo (#PCDATA)>
-]>
-<doc><foo/><foo></foo></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/026.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/026.xml
deleted file mode 100644 (file)
index 4d71396..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/026.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (foo*)>
-<!ELEMENT foo EMPTY>
-]>
-<doc><foo/><foo></foo></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/027.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/027.xml
deleted file mode 100644 (file)
index dcd3a9a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/027.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (foo*)>
-<!ELEMENT foo ANY>
-]>
-<doc><foo/><foo></foo></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/028.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/028.xml
deleted file mode 100644 (file)
index 24e4ec0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/028.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/029.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/029.xml
deleted file mode 100644 (file)
index 70e9ffb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/029.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<?xml version='1.0'?>
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/030.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/030.xml
deleted file mode 100644 (file)
index a171155..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/030.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<?xml version = "1.0"?>
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/031.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/031.xml
deleted file mode 100644 (file)
index d97d137..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/031.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<?xml version='1.0' encoding="UTF-8"?>
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/032.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/032.xml
deleted file mode 100644 (file)
index 57ceada..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/032.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<?xml version='1.0' standalone='yes'?>
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/033.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/033.xml
deleted file mode 100644 (file)
index e3ce40e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/033.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<?xml version='1.0' encoding="UTF-8" standalone='yes'?>
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/034.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/034.xml
deleted file mode 100644 (file)
index 832e9d9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/034.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/035.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/035.xml
deleted file mode 100644 (file)
index a3500fd..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/035.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc />

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/036.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/036.xml
deleted file mode 100644 (file)
index ceacd4d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/036.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>
-<?pi data?>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/037.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/037.xml
deleted file mode 100644 (file)
index e3add8e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/037.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>
-<!-- comment -->
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/038.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/038.xml
deleted file mode 100644 (file)
index 087662d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/038.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!-- comment -->
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/039.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/039.xml
deleted file mode 100644 (file)
index 84c5b93..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/039.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<?pi data?>
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/040.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/040.xml
deleted file mode 100644 (file)
index 4482f2c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/040.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA #IMPLIED>
-]>
-<doc a1="&quot;&lt;&amp;&gt;&apos;"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/041.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/041.xml
deleted file mode 100644 (file)
index 80bb2da..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/041.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA #IMPLIED>
-]>
-<doc a1="&#65;"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/042.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/042.xml
deleted file mode 100644 (file)
index 5cb4bbe..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/042.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&#00000000000000000000000000000000065;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/043.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/043.xml
deleted file mode 100644 (file)
index 4774e5a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/043.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ATTLIST doc a1 CDATA #IMPLIED>
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc a1="foo
-bar"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/044.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/044.xml
deleted file mode 100644 (file)
index 8321a14..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/044.xml
+++ /dev/null
@@ -1,10 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (e*)>
-<!ELEMENT e EMPTY>
-<!ATTLIST e a1 CDATA "v1" a2 CDATA "v2" a3 CDATA #IMPLIED>
-]>
-<doc>
-<e a3="v3"/>
-<e a1="w1"/>
-<e a2="w2" a3="v3"/>
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/045.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/045.xml
deleted file mode 100644 (file)
index 2d70b32..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/045.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA "v1">
-<!ATTLIST doc a1 CDATA "z1">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/046.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/046.xml
deleted file mode 100644 (file)
index 79e039b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/046.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA "v1">
-<!ATTLIST doc a2 CDATA "v2">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/047.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/047.xml
deleted file mode 100644 (file)
index 6dd4ddf..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/047.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>X
-Y</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/048.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/048.xml
deleted file mode 100644 (file)
index e0c6caf..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/048.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>]</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/049.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/049.xml
deleted file mode 100644 (file)
index 8cec20d..0000000
Binary files a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/049.xml and /dev/null differ

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/050.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/050.xml
deleted file mode 100644 (file)
index 00e7a78..0000000
Binary files a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/050.xml and /dev/null differ

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/051.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/051.xml
deleted file mode 100644 (file)
index 1202e50..0000000
Binary files a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/051.xml and /dev/null differ

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/052.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/052.xml
deleted file mode 100644 (file)
index 69c9902..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/052.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>��</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/053.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/053.xml
deleted file mode 100644 (file)
index d8718a4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/053.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "<e/>">
-<!ELEMENT doc (e)>
-<!ELEMENT e EMPTY>
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/054.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/054.xml
deleted file mode 100644 (file)
index 638693b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/054.xml
+++ /dev/null
@@ -1,10 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-
-
-<doc
-></doc
->
-
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/055.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/055.xml
deleted file mode 100644 (file)
index a1a2a7a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/055.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<?pi  data?>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/056.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/056.xml
deleted file mode 100644 (file)
index 1aa0813..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/056.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&#x0000000000000000000000000000000000000041;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/057.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/057.xml
deleted file mode 100644 (file)
index 796ec2d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/057.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (a*)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/058.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/058.xml
deleted file mode 100644 (file)
index f0830bf..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/058.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ATTLIST doc a1 NMTOKENS #IMPLIED>
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc a1=" 1    2       "></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/059.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/059.xml
deleted file mode 100644 (file)
index 07604ef..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/059.xml
+++ /dev/null
@@ -1,10 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (e*)>
-<!ELEMENT e EMPTY>
-<!ATTLIST e a1 CDATA #IMPLIED a2 CDATA #IMPLIED a3 CDATA #IMPLIED>
-]>
-<doc>
-<e a1="v1" a2="v2" a3="v3"/>
-<e a1="w1" a2="v2"/>
-<e a1="v1" a2="w2" a3="v3"/>
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/060.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/060.xml
deleted file mode 100644 (file)
index fc20976..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/060.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>X&#10;Y</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/061.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/061.xml
deleted file mode 100644 (file)
index 65f6d4d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/061.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&#163;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/062.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/062.xml
deleted file mode 100644 (file)
index 5f4aab7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/062.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&#xe40;&#xe08;&#xe21;ส์</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/063.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/063.xml
deleted file mode 100644 (file)
index a6dcdc6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/063.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE เจมส์ [
-<!ELEMENT เจมส์ (#PCDATA)>
-]>
-<เจมส์></เจมส์>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/064.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/064.xml
deleted file mode 100644 (file)
index c59acf8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/064.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&#x10000;&#x10FFFD;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/065.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/065.xml
deleted file mode 100644 (file)
index 1156e6d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/065.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "&#60;">
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/066.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/066.xml
deleted file mode 100644 (file)
index f332ffc..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/066.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA #IMPLIED>
-<!-- 34 is double quote -->
-<!ENTITY e1 "&#34;">
-]>
-<doc a1="&e1;"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/067.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/067.xml
deleted file mode 100644 (file)
index 470ee63..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/067.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&#13;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/068.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/068.xml
deleted file mode 100644 (file)
index e1f87a9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/068.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e "&#13;">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/069.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/069.xml
deleted file mode 100644 (file)
index 8f4c458..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/069.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!NOTATION n PUBLIC "whatever">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/070.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/070.xml
deleted file mode 100644 (file)
index 61a6d28..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/070.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY % e "<!ELEMENT doc (#PCDATA)>">
-%e;
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/071.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/071.xml
deleted file mode 100644 (file)
index b07de8c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/071.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a ID #IMPLIED>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/072.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/072.xml
deleted file mode 100644 (file)
index 68d5170..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/072.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a IDREF #IMPLIED>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/073.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/073.xml
deleted file mode 100644 (file)
index 8466a10..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/073.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a IDREFS #IMPLIED>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/074.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/074.xml
deleted file mode 100644 (file)
index d88455f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/074.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a ENTITY #IMPLIED>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/075.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/075.xml
deleted file mode 100644 (file)
index fd73101..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/075.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a ENTITIES #IMPLIED>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/076.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/076.xml
deleted file mode 100644 (file)
index 7f3d037..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/076.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a NOTATION (n1|n2) #IMPLIED>
-<!NOTATION n1 SYSTEM "http://www.w3.org/">
-<!NOTATION n2 SYSTEM "http://www.w3.org/">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/077.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/077.xml
deleted file mode 100644 (file)
index fb7b9fa..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/077.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a (1|2) #IMPLIED>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/078.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/078.xml
deleted file mode 100644 (file)
index 6f8ce37..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/078.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA #REQUIRED>
-]>
-<doc a="v"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/079.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/079.xml
deleted file mode 100644 (file)
index b647d0d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/079.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA #FIXED "v">
-]>
-<doc a="v"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/080.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/080.xml
deleted file mode 100644 (file)
index e644746..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/080.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA #FIXED "v">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/081.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/081.xml
deleted file mode 100644 (file)
index e17bb75..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/081.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (a, b, c)>
-<!ELEMENT a (a?)>
-<!ELEMENT b (b*)>
-<!ELEMENT c (a | b)+>
-]>
-<doc><a/><b/><c><a/></c></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/082.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/082.xml
deleted file mode 100644 (file)
index 055e0c2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/082.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY % e SYSTEM "e.dtd">
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/083.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/083.xml
deleted file mode 100644 (file)
index 1451165..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/083.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY % e PUBLIC 'whatever' "e.dtd">
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/084.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/084.xml
deleted file mode 100644 (file)
index c36bba2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/084.xml
+++ /dev/null
@@ -1 +0,0 @@
-<!DOCTYPE doc [<!ELEMENT doc (#PCDATA)>]><doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/085.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/085.xml
deleted file mode 100644 (file)
index d173b8b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/085.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY % e "<foo>">
-<!ENTITY e "">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/086.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/086.xml
deleted file mode 100644 (file)
index 1f82c22..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/086.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e "">
-<!ENTITY e "<foo>">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/087.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/087.xml
deleted file mode 100644 (file)
index d3c7e39..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/087.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "<foo/&#62;">
-<!ELEMENT doc (foo)>
-<!ELEMENT foo EMPTY>
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/088.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/088.xml
deleted file mode 100644 (file)
index 7bd0e81..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/088.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e "&lt;foo>">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/089.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/089.xml
deleted file mode 100644 (file)
index e144c75..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/089.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "&#x10000;&#x10FFFD;&#x10FFFF;">
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/090.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/090.xml
deleted file mode 100644 (file)
index f349eef..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/090.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<!DOCTYPE doc [
-<!ATTLIST e a NOTATION (n) #IMPLIED>
-<!ELEMENT doc (e)*>
-<!ELEMENT e (#PCDATA)>
-<!NOTATION n PUBLIC "whatever">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/091.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/091.xml
deleted file mode 100644 (file)
index a779ce8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/091.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<!DOCTYPE doc [
-<!NOTATION n SYSTEM "http://www.w3.org/">
-<!ENTITY e SYSTEM "http://www.w3.org/" NDATA n>
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a ENTITY "e">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/092.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/092.xml
deleted file mode 100644 (file)
index 4e8eb6c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/092.xml
+++ /dev/null
@@ -1,10 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (a)*>
-<!ELEMENT a EMPTY>
-]>
-<doc>
-<a/>
-    <a/>       <a/>
-
-
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/093.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/093.xml
deleted file mode 100644 (file)
index 300578e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/093.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>
-
-
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/094.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/094.xml
deleted file mode 100644 (file)
index 09045d9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/094.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY % e "foo">
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 CDATA "%e;">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/095.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/095.xml
deleted file mode 100644 (file)
index f6e1287..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/095.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ATTLIST doc a1 CDATA #IMPLIED>
-<!ATTLIST doc a1 NMTOKENS #IMPLIED>
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc a1="1  2"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/096.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/096.xml
deleted file mode 100644 (file)
index 5fd635d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/096.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ATTLIST doc a1 NMTOKENS " 1          2       ">
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/097.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/097.ent
deleted file mode 100644 (file)
index 8bb4305..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/097.ent
+++ /dev/null
@@ -1 +0,0 @@
-<!ATTLIST doc a2 CDATA #IMPLIED>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/097.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/097.xml
deleted file mode 100644 (file)
index 74b636f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/097.xml
+++ /dev/null
@@ -1,8 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY % e SYSTEM "097.ent">
-<!ATTLIST doc a1 CDATA "v1">
-%e;
-<!ATTLIST doc a2 CDATA "v2">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/098.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/098.xml
deleted file mode 100644 (file)
index 881de4e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/098.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc><?pi x
-y?></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/099.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/099.xml
deleted file mode 100644 (file)
index 64db61f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/099.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/100.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/100.xml
deleted file mode 100644 (file)
index 033855e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/100.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e PUBLIC ";!*#@$_%" "100.xml">
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/101.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/101.xml
deleted file mode 100644 (file)
index efd9efe..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/101.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e "&#34;">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/102.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/102.xml
deleted file mode 100644 (file)
index e034d04..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/102.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA #IMPLIED>
-]>
-<doc a="&#34;"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/103.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/103.xml
deleted file mode 100644 (file)
index 6b21a13..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/103.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&#60;doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/104.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/104.xml
deleted file mode 100644 (file)
index 6469bc6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/104.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA #IMPLIED>
-]>
-<doc a="x      y"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/105.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/105.xml
deleted file mode 100644 (file)
index 3acc97c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/105.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA #IMPLIED>
-]>
-<doc a="x&#9;y"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/106.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/106.xml
deleted file mode 100644 (file)
index 4f3e8c8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/106.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA #IMPLIED>
-]>
-<doc a="x&#10;y"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/107.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/107.xml
deleted file mode 100644 (file)
index 2a58153..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/107.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA #IMPLIED>
-]>
-<doc a="x&#13;y"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/108.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/108.xml
deleted file mode 100644 (file)
index 938f287..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/108.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e "
-">
-<!ATTLIST doc a CDATA #IMPLIED>
-]>
-<doc a="x&e;y"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/109.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/109.xml
deleted file mode 100644 (file)
index dcf2686..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/109.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA #IMPLIED>
-]>
-<doc a=""></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/110.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/110.xml
deleted file mode 100644 (file)
index c6a3a87..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/110.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e "&#13;&#10;">
-<!ATTLIST doc a CDATA #IMPLIED>
-]>
-<doc a="x&e;y"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/111.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/111.xml
deleted file mode 100644 (file)
index b4cdca6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/111.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a NMTOKENS #IMPLIED>
-]>
-<doc a="&#32;x&#32;&#32;y&#32;"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/112.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/112.xml
deleted file mode 100644 (file)
index 7924e67..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/112.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (a | b)>
-<!ELEMENT a (#PCDATA)>
-]>
-<doc><a></a></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/113.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/113.xml
deleted file mode 100644 (file)
index 51d2e6d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/113.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST e a CDATA #IMPLIED>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/114.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/114.xml
deleted file mode 100644 (file)
index f706b1d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/114.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e "<![CDATA[&foo;]]>">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/115.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/115.xml
deleted file mode 100644 (file)
index cacac33..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/115.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e1 "&e2;">
-<!ENTITY e2 "v">
-]>
-<doc>&e1;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/116.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/116.xml
deleted file mode 100644 (file)
index 7a174cf..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/116.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc><![CDATA[
-]]></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/117.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/117.xml
deleted file mode 100644 (file)
index 23c8406..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/117.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY rsqb "]">
-]>
-<doc>&rsqb;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/118.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/118.xml
deleted file mode 100644 (file)
index 068db63..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/118.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY rsqb "]]">
-]>
-<doc>&rsqb;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/119.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/119.xml
deleted file mode 100644 (file)
index dafff48..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/119.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc ANY>
-]>
-<doc><!-- -á --></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/001.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/001.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/001.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/002.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/002.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/002.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/003.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/003.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/003.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/004.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/004.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/004.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/005.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/005.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/005.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/006.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/006.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/006.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/007.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/007.xml
deleted file mode 100644 (file)
index 97cf3e3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/007.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc> </doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/008.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/008.xml
deleted file mode 100644 (file)
index 3ea232c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/008.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&amp;&lt;&gt;&quot;'</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/009.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/009.xml
deleted file mode 100644 (file)
index 97cf3e3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/009.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc> </doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/010.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/010.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/010.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/011.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/011.xml
deleted file mode 100644 (file)
index 7293fb6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/011.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1" a2="v2"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/012.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/012.xml
deleted file mode 100644 (file)
index 5a0c983..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/012.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc :="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/013.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/013.xml
deleted file mode 100644 (file)
index c9c7ec5..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/013.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc _.-0123456789="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/014.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/014.xml
deleted file mode 100644 (file)
index ac6b28f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/014.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc abcdefghijklmnopqrstuvwxyz="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/015.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/015.xml
deleted file mode 100644 (file)
index 8e216eb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/015.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc ABCDEFGHIJKLMNOPQRSTUVWXYZ="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/016.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/016.xml
deleted file mode 100644 (file)
index 4fc7692..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/016.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><?pi ?></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/017.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/017.xml
deleted file mode 100644 (file)
index 3b9a2f8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/017.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><?pi some data ? > <??></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/018.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/018.xml
deleted file mode 100644 (file)
index a547101..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/018.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&lt;foo&gt;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/019.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/019.xml
deleted file mode 100644 (file)
index 05d4e2f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/019.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&lt;&amp;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/020.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/020.xml
deleted file mode 100644 (file)
index 95ae08a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/020.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&lt;&amp;]&gt;]</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/021.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/021.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/021.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/022.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/022.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/022.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/023.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/023.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/023.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/024.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/024.xml
deleted file mode 100644 (file)
index a9aa207..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/024.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><foo></foo></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/025.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/025.xml
deleted file mode 100644 (file)
index de0f566..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/025.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><foo></foo><foo></foo></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/026.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/026.xml
deleted file mode 100644 (file)
index de0f566..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/026.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><foo></foo><foo></foo></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/027.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/027.xml
deleted file mode 100644 (file)
index de0f566..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/027.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><foo></foo><foo></foo></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/028.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/028.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/028.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/029.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/029.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/029.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/030.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/030.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/030.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/031.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/031.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/031.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/032.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/032.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/032.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/033.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/033.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/033.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/034.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/034.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/034.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/035.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/035.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/035.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/036.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/036.xml
deleted file mode 100644 (file)
index 2bcfb06..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/036.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc><?pi data?>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/037.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/037.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/037.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/038.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/038.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/038.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/039.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/039.xml
deleted file mode 100644 (file)
index 82d117d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/039.xml
+++ /dev/null
@@ -1 +0,0 @@
-<?pi data?><doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/040.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/040.xml
deleted file mode 100644 (file)
index d79cfe1..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/040.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="&quot;&lt;&amp;&gt;'"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/041.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/041.xml
deleted file mode 100644 (file)
index 6f2cd58..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/041.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="A"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/042.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/042.xml
deleted file mode 100644 (file)
index f683039..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/042.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>A</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/043.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/043.xml
deleted file mode 100644 (file)
index e162b76..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/043.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="foo bar"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/044.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/044.xml
deleted file mode 100644 (file)
index 78028b7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/044.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&#10;<e a1="v1" a2="v2" a3="v3"></e>&#10;<e a1="w1" a2="v2"></e>&#10;<e a1="v1" a2="w2" a3="v3"></e>&#10;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/045.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/045.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/045.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/046.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/046.xml
deleted file mode 100644 (file)
index 7293fb6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/046.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1" a2="v2"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/047.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/047.xml
deleted file mode 100644 (file)
index b327ebd..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/047.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>X&#10;Y</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/048.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/048.xml
deleted file mode 100644 (file)
index ced7d02..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/048.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>]</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/049.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/049.xml
deleted file mode 100644 (file)
index 7cc53f9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/049.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>£</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/050.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/050.xml
deleted file mode 100644 (file)
index 33703c7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/050.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>เจมส์</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/051.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/051.xml
deleted file mode 100644 (file)
index cfeb5a5..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/051.xml
+++ /dev/null
@@ -1 +0,0 @@
-<เจมส์></เจมส์>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/052.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/052.xml
deleted file mode 100644 (file)
index f5a0484..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/052.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>��</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/053.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/053.xml
deleted file mode 100644 (file)
index c408384..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/053.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><e></e></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/054.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/054.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/054.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/055.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/055.xml
deleted file mode 100644 (file)
index 82d117d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/055.xml
+++ /dev/null
@@ -1 +0,0 @@
-<?pi data?><doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/056.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/056.xml
deleted file mode 100644 (file)
index f683039..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/056.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>A</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/057.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/057.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/057.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/058.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/058.xml
deleted file mode 100644 (file)
index f898cc8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/058.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="1 2"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/059.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/059.xml
deleted file mode 100644 (file)
index 78028b7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/059.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&#10;<e a1="v1" a2="v2" a3="v3"></e>&#10;<e a1="w1" a2="v2"></e>&#10;<e a1="v1" a2="w2" a3="v3"></e>&#10;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/060.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/060.xml
deleted file mode 100644 (file)
index b327ebd..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/060.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>X&#10;Y</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/061.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/061.xml
deleted file mode 100644 (file)
index 7cc53f9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/061.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>£</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/062.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/062.xml
deleted file mode 100644 (file)
index 33703c7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/062.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>เจมส์</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/063.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/063.xml
deleted file mode 100644 (file)
index cfeb5a5..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/063.xml
+++ /dev/null
@@ -1 +0,0 @@
-<เจมส์></เจมส์>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/064.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/064.xml
deleted file mode 100644 (file)
index f5a0484..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/064.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>��</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/065.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/065.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/065.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/066.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/066.xml
deleted file mode 100644 (file)
index 7597d31..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/066.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="&quot;"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/067.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/067.xml
deleted file mode 100644 (file)
index 4bbdad4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/067.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&#13;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/068.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/068.xml
deleted file mode 100644 (file)
index 4bbdad4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/068.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&#13;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/069.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/069.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/069.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/070.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/070.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/070.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/071.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/071.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/071.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/072.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/072.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/072.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/073.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/073.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/073.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/074.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/074.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/074.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/075.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/075.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/075.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/076.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/076.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/076.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/077.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/077.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/077.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/078.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/078.xml
deleted file mode 100644 (file)
index fcab0cd..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/078.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a="v"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/079.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/079.xml
deleted file mode 100644 (file)
index fcab0cd..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/079.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a="v"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/080.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/080.xml
deleted file mode 100644 (file)
index fcab0cd..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/080.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a="v"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/081.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/081.xml
deleted file mode 100644 (file)
index e356e7e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/081.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><a></a><b></b><c><a></a></c></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/082.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/082.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/082.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/083.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/083.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/083.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/084.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/084.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/084.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/085.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/085.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/085.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/086.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/086.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/086.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/087.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/087.xml
deleted file mode 100644 (file)
index a9aa207..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/087.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><foo></foo></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/088.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/088.xml
deleted file mode 100644 (file)
index a547101..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/088.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&lt;foo&gt;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/089.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/089.xml
deleted file mode 100644 (file)
index e01d86e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/089.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>���</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/090.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/090.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/090.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/091.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/091.xml
deleted file mode 100644 (file)
index dd3bbed..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/091.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a="e"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/092.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/092.xml
deleted file mode 100644 (file)
index 87269f7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/092.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&#10;<a></a>&#10;    <a></a>&#9;<a></a>&#10;&#10;&#10;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/093.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/093.xml
deleted file mode 100644 (file)
index 631bfde..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/093.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&#10;&#10;&#10;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/094.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/094.xml
deleted file mode 100644 (file)
index 636ab47..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/094.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="%e;"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/095.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/095.xml
deleted file mode 100644 (file)
index a20706e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/095.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="1  2"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/096.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/096.xml
deleted file mode 100644 (file)
index f898cc8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/096.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="1 2"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/097.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/097.xml
deleted file mode 100644 (file)
index e05cfe6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/097.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/098.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/098.xml
deleted file mode 100644 (file)
index f6408de..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/098.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<doc><?pi x
-y?></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/099.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/099.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/099.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/100.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/100.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/100.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/101.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/101.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/101.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/102.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/102.xml
deleted file mode 100644 (file)
index 6e66b8d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/102.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a="&quot;"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/103.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/103.xml
deleted file mode 100644 (file)
index 96495d4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/103.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&lt;doc&gt;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/104.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/104.xml
deleted file mode 100644 (file)
index cc3def3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/104.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a="x y"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/105.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/105.xml
deleted file mode 100644 (file)
index 5aed3d6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/105.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a="x&#9;y"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/106.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/106.xml
deleted file mode 100644 (file)
index 1197d2f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/106.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a="x&#10;y"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/107.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/107.xml
deleted file mode 100644 (file)
index 288f23c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/107.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a="x&#13;y"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/108.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/108.xml
deleted file mode 100644 (file)
index cc3def3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/108.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a="x y"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/109.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/109.xml
deleted file mode 100644 (file)
index c43bdf9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/109.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a=""></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/110.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/110.xml
deleted file mode 100644 (file)
index a92237b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/110.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a="x  y"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/111.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/111.xml
deleted file mode 100644 (file)
index cc3def3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/111.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a="x y"></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/112.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/112.xml
deleted file mode 100644 (file)
index c82f47b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/112.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><a></a></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/113.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/113.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/113.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/114.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/114.xml
deleted file mode 100644 (file)
index 8e0722a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/114.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&amp;foo;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/115.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/115.xml
deleted file mode 100644 (file)
index 682b814..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/115.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>v</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/116.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/116.xml
deleted file mode 100644 (file)
index a79dff6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/116.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&#10;</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/117.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/117.xml
deleted file mode 100644 (file)
index ced7d02..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/117.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>]</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/118.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/118.xml
deleted file mode 100644 (file)
index 31e37a9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/118.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>]]</doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/119.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/119.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_jclark_valid/sa/out/119.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/001.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/001.xml
deleted file mode 100644 (file)
index b13acd2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/001.xml
+++ /dev/null
@@ -1,61 +0,0 @@
-<?xml version="1.0"?>
-
-<!DOCTYPE any [
-
-<!ENTITY x PUBLIC "x" "" NDATA p>
-<!ENTITY y PUBLIC "x" "" NDATA p>
-<!ENTITY z PUBLIC "x" "" NDATA p>
-
-<!NOTATION p PUBLIC "image/gif">
-<!NOTATION q PUBLIC "image/jpeg">
-<!NOTATION r PUBLIC "image/png">
-
-<!ELEMENT el EMPTY>
-<!ATTLIST el        
-          cdata     CDATA     #IMPLIED
-          id        ID        #IMPLIED
-          idref     IDREF     #IMPLIED
-          idrefs    IDREFS    #IMPLIED
-          entity    ENTITY    #IMPLIED
-          entities  ENTITIES  #IMPLIED
-          nmtoken   NMTOKEN   #IMPLIED
-          nmtokens  NMTOKENS  #IMPLIED
-          enum      (a|b|c)   #IMPLIED
-          notation  NOTATION (p|q|r)  #IMPLIED
->
-
-<!ELEMENT any ANY>
-]>
-
-<any>
-  <el cdata="a b c"/>
-  <el cdata=" a b c "/>
-  <el cdata="  a  b  c  "/>
-  <el id="A"/>
-  <el id=" B "/>
-  <el id="  C  "/>
-  <el idref="C"/>
-  <el idref=" A "/>
-  <el idref="  B  "/>
-  <el idrefs="A B C"/>
-  <el idrefs=" A B C "/>
-  <el idrefs="  A  B  C  "/>
-  <el entity="x"/>
-  <el entity=" x "/>
-  <el entity="  x  "/>
-  <el entities="x y z"/>
-  <el entities=" x y z "/>
-  <el entities="  x  y  z  "/>
-  <el nmtoken="a"/>
-  <el nmtoken=" a "/>
-  <el nmtoken="  a  "/>
-  <el nmtokens="a b c"/>
-  <el nmtokens=" a b c "/>
-  <el nmtokens="  a  b  c  "/>
-  <el enum="a"/>
-  <el enum=" a "/>
-  <el enum="  a  "/>
-  <el notation="p"/>
-  <el notation=" p "/>
-  <el notation="  p  "/>
-</any>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/002.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/002.xml
deleted file mode 100644 (file)
index 759207a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/002.xml
+++ /dev/null
@@ -1,39 +0,0 @@
-<?xml version="1.0"?>
-
-<!DOCTYPE any [
-
-<!ELEMENT el EMPTY>
-<!ATTLIST el        
-          cdata     CDATA     #IMPLIED
-          nmtoken   NMTOKEN   #IMPLIED
-          nmtokens  NMTOKENS  #IMPLIED
->
-<!ELEMENT any ANY>
-]>
-
-<any>
-  <el cdata="a
-b
-c      d
-e "/>
-  <el nmtoken=" a  "/>
-  <el nmtoken="
-a
-"/>
-  <el nmtoken="
-a
-"/>
-  <el nmtoken="        a       "/>
-  <el nmtokens=" a b c "/>
-  <el nmtokens="
-a
-b
-c
-"/>
-  <el nmtokens="
-a
-b
-c
-"/>
-  <el nmtokens="       a       b       c       "/>
-</any>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/003.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/003.xml
deleted file mode 100644 (file)
index 1335a77..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/003.xml
+++ /dev/null
@@ -1,40 +0,0 @@
-<?xml version="1.0"?>
-
-<!DOCTYPE any [
-
-<!ELEMENT el EMPTY>
-<!ATTLIST el        
-          cdata     CDATA     #IMPLIED
-          nmtoken   NMTOKEN   #IMPLIED
-          nmtokens  NMTOKENS  #IMPLIED
->
-<!ELEMENT any ANY>
-
-<!ENTITY elinstance
-  '<el cdata="a
-b
-c      d
-e "/>
-  <el nmtoken=" a  "/>
-  <el nmtoken="
-a
-"/>
-  <el nmtoken="
-a
-"/>
-  <el nmtoken="        a       "/>
-  <el nmtokens=" a b c "/>
-  <el nmtokens="
-a
-b
-c
-"/>
-  <el nmtokens="
-a
-b
-c
-"/>
-  <el nmtokens="       a       b       c       "/>'>
-]>
-
-<any>&elinstance;</any>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/004.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/004.xml
deleted file mode 100644 (file)
index 7cad5de..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/004.xml
+++ /dev/null
@@ -1,17 +0,0 @@
-<?xml version="1.0"?>
-
-<!DOCTYPE any [
-
-<!ELEMENT el EMPTY>
-<!ATTLIST el        
-          cdata     CDATA     #IMPLIED
->
-<!ELEMENT any ANY>
-
-<!ENTITY elinstance
-  '<el cdata="a&#13;
-b"/>'>
-]>
-
-<any>&elinstance;</any>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/005.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/005.xml
deleted file mode 100644 (file)
index 7f05469..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/005.xml
+++ /dev/null
@@ -1,24 +0,0 @@
-<?xml version="1.0"?>
-
-<!DOCTYPE any [
-
-<!ELEMENT el EMPTY>
-<!ATTLIST el        
-          cdata     CDATA     #IMPLIED
-          nmtoken   NMTOKEN   #IMPLIED
-          nmtokens  NMTOKENS  #IMPLIED
->
-<!ELEMENT any ANY>
-]>
-
-<any>
-  <el cdata="a&#10;b&#13;c&#9;d&#13;&#10;e&#32;"/>
-  <el nmtoken="&#32;a&#32;"/>
-  <el nmtoken="&#10;a&#10;"/>
-  <el nmtoken="&#13;a&#13;"/>
-  <el nmtoken="&#9;a&#9;"/>
-  <el nmtokens="&#32;a&#32;b&#32;c&#32;"/>
-  <el nmtokens="&#10;a&#10;b&#10;c&#10;"/>
-  <el nmtokens="&#13;a&#13;b&#13;c&#13;"/>
-  <el nmtokens="&#9;a&#9;b&#9;c&#9;"/>
-</any>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/006.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/006.xml
deleted file mode 100644 (file)
index 8f1287c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/006.xml
+++ /dev/null
@@ -1,22 +0,0 @@
-<?xml version="1.0"?>
-
-<!DOCTYPE any [
-
-<!ELEMENT el EMPTY>
-<!ATTLIST el        
-          nmtoken   NMTOKEN   #FIXED "a"
-          nmtokens  NMTOKENS  #FIXED "a b c"
->
-<!ELEMENT any ANY>
-]>
-
-<any>
-  <el nmtoken="
-a
-"/>
-  <el nmtokens="
-a
-b
-c
-"/>
-</any>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/007.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/007.xml
deleted file mode 100644 (file)
index 9cecac2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/007.xml
+++ /dev/null
@@ -1,26 +0,0 @@
-<?xml version="1.0"?>
-
-<!DOCTYPE any [
-
-<!ELEMENT el EMPTY>
-<!ATTLIST el        
-          nmtoken   NMTOKEN   #FIXED "
-a
-"
-          nmtokens  NMTOKENS  #FIXED "a
-b
-c"
->
-<!ELEMENT any ANY>
-]>
-
-<any>
-  <el nmtoken="
-a
-"/>
-  <el nmtokens="
-a
-b
-c
-"/>
-</any>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/INDEX b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/INDEX
deleted file mode 100644 (file)
index e8fccb0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/INDEX
+++ /dev/null
@@ -1,12 +0,0 @@
-001.xml                tests whether additional white space in attribute value
-               is removed during normalization for every att type but
-               not for CDATA
-002.xml                tests whether TABs, CRs, LFs, and CRLFs are converted
-               to spaces (only for CDATA, NMTOKEN, NMTOKENS)
-003.xml                similar to 002.xml, but the attribute values occur
-               in internal entities
-004.xml                tests whether CRLF normalization happens only once
-005.xml                tests whether spaces, TABs, LFs, CRs, and CRLFs are correctly
-               processed if they are written as character references
-006.xml                tests whether normalization is done before #FIXED comparison
-007.xml                tests whether normalization is done before #FIXED comparison

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/001.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/001.xml
deleted file mode 100644 (file)
index 818ca6e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/001.xml
+++ /dev/null
@@ -1 +0,0 @@
-<any>&#10;  <el cdata="a b c"></el>&#10;  <el cdata=" a b c "></el>&#10;  <el cdata="  a  b  c  "></el>&#10;  <el id="A"></el>&#10;  <el id="B"></el>&#10;  <el id="C"></el>&#10;  <el idref="C"></el>&#10;  <el idref="A"></el>&#10;  <el idref="B"></el>&#10;  <el idrefs="A B C"></el>&#10;  <el idrefs="A B C"></el>&#10;  <el idrefs="A B C"></el>&#10;  <el entity="x"></el>&#10;  <el entity="x"></el>&#10;  <el entity="x"></el>&#10;  <el entities="x y z"></el>&#10;  <el entities="x y z"></el>&#10;  <el entities="x y z"></el>&#10;  <el nmtoken="a"></el>&#10;  <el nmtoken="a"></el>&#10;  <el nmtoken="a"></el>&#10;  <el nmtokens="a b c"></el>&#10;  <el nmtokens="a b c"></el>&#10;  <el nmtokens="a b c"></el>&#10;  <el enum="a"></el>&#10;  <el enum="a"></el>&#10;  <el enum="a"></el>&#10;  <el notation="p"></el>&#10;  <el notation="p"></el>&#10;  <el notation="p"></el>&#10;</any>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/002.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/002.xml
deleted file mode 100644 (file)
index 5167ac3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/002.xml
+++ /dev/null
@@ -1 +0,0 @@
-<any>&#10;  <el cdata="a b c d e "></el>&#10;  <el nmtoken="a"></el>&#10;  <el nmtoken="a"></el>&#10;  <el nmtoken="a"></el>&#10;  <el nmtoken="a"></el>&#10;  <el nmtokens="a b c"></el>&#10;  <el nmtokens="a b c"></el>&#10;  <el nmtokens="a b c"></el>&#10;  <el nmtokens="a b c"></el>&#10;</any>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/003.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/003.xml
deleted file mode 100644 (file)
index 782bcfb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/003.xml
+++ /dev/null
@@ -1 +0,0 @@
-<any><el cdata="a b c d e "></el>&#10;  <el nmtoken="a"></el>&#10;  <el nmtoken="a"></el>&#10;  <el nmtoken="a"></el>&#10;  <el nmtoken="a"></el>&#10;  <el nmtokens="a b c"></el>&#10;  <el nmtokens="a b c"></el>&#10;  <el nmtokens="a b c"></el>&#10;  <el nmtokens="a b c"></el></any>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/004.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/004.xml
deleted file mode 100644 (file)
index 1b1c171..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/004.xml
+++ /dev/null
@@ -1 +0,0 @@
-<any><el cdata="a  b"></el></any>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/005.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/005.xml
deleted file mode 100644 (file)
index 1f722da..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/005.xml
+++ /dev/null
@@ -1 +0,0 @@
-<any>&#10;  <el cdata="a&#10;b&#13;c&#9;d&#13;&#10;e "></el>&#10;  <el nmtoken="a"></el>&#10;  <el nmtoken="a"></el>&#10;  <el nmtoken="a"></el>&#10;  <el nmtoken="a"></el>&#10;  <el nmtokens="a b c"></el>&#10;  <el nmtokens="a b c"></el>&#10;  <el nmtokens="a b c"></el>&#10;  <el nmtokens="a b c"></el>&#10;</any>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/006.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/006.xml
deleted file mode 100644 (file)
index 3aefc89..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/006.xml
+++ /dev/null
@@ -1 +0,0 @@
-<any>&#10;  <el nmtoken="a" nmtokens="a b c"></el>&#10;  <el nmtoken="a" nmtokens="a b c"></el>&#10;</any>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/007.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/007.xml
deleted file mode 100644 (file)
index 3aefc89..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/att_normalization/out/007.xml
+++ /dev/null
@@ -1 +0,0 @@
-<any>&#10;  <el nmtoken="a" nmtokens="a b c"></el>&#10;  <el nmtoken="a" nmtokens="a b c"></el>&#10;</any>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/001.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/001.xml
deleted file mode 100644 (file)
index 4523f1b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/001.xml
+++ /dev/null
@@ -1,10 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE schema [
-<!ELEMENT schema ANY>
-<!ELEMENT element ANY>
-<!ATTLIST element minOccurs CDATA #IMPLIED>
-]>
-<schema>
-       <element minOccurs='0'/>
-       <element minOccurs='0'/>
-</schema>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/002+.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/002+.xml
deleted file mode 100644 (file)
index 81a22e2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/002+.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE x [
-<!ELEMENT x ANY>
-]>
-<x/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/003.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/003.xml
deleted file mode 100644 (file)
index 45cd7eb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/003.xml
+++ /dev/null
@@ -1,13 +0,0 @@
-<!DOCTYPE a [
-<!ELEMENT a ANY>
-<?pi 0?>
-]>
-<?pi 1?>
-<a>
-  <?pi 2?>
-  <a>
-    <?pi 3?>
-  </a>
-  <?pi 4?>
-</a>
-<?pi 5?>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/INDEX b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/INDEX
deleted file mode 100644 (file)
index 56368c5..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/INDEX
+++ /dev/null
@@ -1,12 +0,0 @@
-This directory contains real regression tests, i.e. it is tested whether
-reported bugs have been fixed.
-
-001.xml                2000-08-26: Haruo's single quote bug. Attvalues delimited
-               by single quotes did not work for the UTF-8 lexer.
-002+.xml       2000-08-26: Haruo's file-names-are-not-URLs bug. from_file
-               interpreted the file name as URL-encoded string. "002+.xml"
-               because the "+" must not be decoded as space.
-003.xml                2000-08-26: Alain's bug that data nodes must not be merged
-               where PI nodes are created. In the "comments" directory
-               there is another test for the case that comments delimit
-               data material

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/out/001.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/out/001.xml
deleted file mode 100644 (file)
index e9d83b3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/out/001.xml
+++ /dev/null
@@ -1 +0,0 @@
-<schema>&#10;&#9;<element minOccurs="0"></element>&#10;&#9;<element minOccurs="0"></element>&#10;</schema>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/out/002+.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/out/002+.xml
deleted file mode 100644 (file)
index 794447b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/out/002+.xml
+++ /dev/null
@@ -1 +0,0 @@
-<x></x>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/out/003.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/out/003.xml
deleted file mode 100644 (file)
index 22bd710..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/bugfixes/out/003.xml
+++ /dev/null
@@ -1 +0,0 @@
-<?pi 1?><a>&#10;  <?pi 2?>&#10;  <a>&#10;    <?pi 3?>&#10;  </a>&#10;  <?pi 4?>&#10;</a><?pi 5?>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/comments/001.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/comments/001.xml
deleted file mode 100644 (file)
index fcb4a00..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/comments/001.xml
+++ /dev/null
@@ -1,13 +0,0 @@
-<!DOCTYPE a [
-<!ELEMENT a ANY>
-<!-- Comment 0 -->
-]>
-<!-- Comment 1 -->
-<a>
-  <!-- Comment -2 -->
-  <a>
-    <!-- Comment 3 -->
-  </a>
-  <!-- Comment 4 -->
-</a>
-<!-- Comment 5 -->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/comments/INDEX b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/comments/INDEX
deleted file mode 100644 (file)
index 0df471f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/comments/INDEX
+++ /dev/null
@@ -1 +0,0 @@
-001            Checks whether enable_comment_nodes works

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/comments/out/001.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/comments/out/001.xml
deleted file mode 100644 (file)
index f03911d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/comments/out/001.xml
+++ /dev/null
@@ -1 +0,0 @@
-<!-- Comment 1 --><a>&#10;  <!-- Comment -2 -->&#10;  <a>&#10;    <!-- Comment 3 -->&#10;  </a>&#10;  <!-- Comment 4 -->&#10;</a><!-- Comment 5 -->
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/001.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/001.ent
deleted file mode 100644 (file)
index fde4af2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/001.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ELEMENT doc EMPTY>
-<![IGNORE[<!ATTLIST doc att CDATA #REQUIRED>]]>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/001.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/001.xml
deleted file mode 100644 (file)
index 02ef0bb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/001.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "001.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/002.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/002.ent
deleted file mode 100644 (file)
index 19c0206..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/002.ent
+++ /dev/null
@@ -1,4 +0,0 @@
-<!ELEMENT doc EMPTY>
-<!-- Only a precondition check for test 003: the first ATTLIST counts -->
-<!ATTLIST doc att CDATA #IMPLIED>
-<!ATTLIST doc att CDATA #REQUIRED>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/002.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/002.xml
deleted file mode 100644 (file)
index 0c5372c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/002.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "002.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/003.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/003.ent
deleted file mode 100644 (file)
index 90bda5f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/003.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ELEMENT doc EMPTY>
-<![INCLUDE[<!ATTLIST doc att CDATA #IMPLIED>]]>
-<!ATTLIST doc att CDATA #REQUIRED>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/003.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/003.xml
deleted file mode 100644 (file)
index c4b33e4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/003.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "003.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/004.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/004.ent
deleted file mode 100644 (file)
index 8ab5697..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/004.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ELEMENT doc EMPTY>
-<!ENTITY % e "IGNORE">
-<![%e;[<!ATTLIST doc att CDATA #REQUIRED>]]>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/004.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/004.xml
deleted file mode 100644 (file)
index 740d173..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/004.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "004.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/005.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/005.ent
deleted file mode 100644 (file)
index bd26a54..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/005.ent
+++ /dev/null
@@ -1,4 +0,0 @@
-<!ELEMENT doc EMPTY>
-<!ENTITY % e "INCLUDE">
-<![%e;[<!ATTLIST doc att CDATA #IMPLIED>]]>
-<!ATTLIST doc att CDATA #REQUIRED>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/005.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/005.xml
deleted file mode 100644 (file)
index aa3a8f9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/005.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "005.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/006.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/006.ent
deleted file mode 100644 (file)
index 7ff3cdd..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/006.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ELEMENT doc EMPTY>
-<![IGNORE[This is illegal here]]>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/006.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/006.xml
deleted file mode 100644 (file)
index bd2ee32..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/006.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "006.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/007.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/007.ent
deleted file mode 100644 (file)
index 180c6b0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/007.ent
+++ /dev/null
@@ -1,4 +0,0 @@
-<!ELEMENT doc EMPTY>
-<!ENTITY % e "]]>">
-<![IGNORE[%e;]]>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/007.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/007.xml
deleted file mode 100644 (file)
index 1c5bc80..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/007.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "007.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/008.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/008.ent
deleted file mode 100644 (file)
index e36d707..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/008.ent
+++ /dev/null
@@ -1,4 +0,0 @@
-<!ELEMENT doc EMPTY>
-<![IGNORE[<!ENTITY e "]]>">]]>
-<![IGNORE[<!ENTITY e ']]>'>]]>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/008.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/008.xml
deleted file mode 100644 (file)
index c140c0a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/008.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "008.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/009.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/009.ent
deleted file mode 100644 (file)
index 617d3d9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/009.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ELEMENT doc EMPTY>
-<![IGNORE[<!-- ]]> -->]]>
-<![IGNORE[x <!-- ]]> -->]]>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/009.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/009.xml
deleted file mode 100644 (file)
index c75bbb6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/009.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "009.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/010.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/010.ent
deleted file mode 100644 (file)
index 9a72698..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/010.ent
+++ /dev/null
@@ -1,5 +0,0 @@
-<!ELEMENT doc EMPTY>
-<![IGNORE[x <![IGNORE[xxx]]>]]>
-<![IGNORE[<![IGNORE[xxx]]>]]>
-<![IGNORE[x <![INCLUDE[xxx]]>]]>
-<![IGNORE[<![INCLUDE[xxx]]>]]>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/010.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/010.xml
deleted file mode 100644 (file)
index 93b5cf6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/010.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "010.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/011.ent b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/011.ent
deleted file mode 100644 (file)
index e24aad1..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/011.ent
+++ /dev/null
@@ -1,6 +0,0 @@
-<!ELEMENT doc EMPTY>
-<![INCLUDE[ <![INCLUDE[ <!ATTLIST doc att CDATA #IMPLIED> ]]> 
-            <![IGNORE[ xxx ]]> 
-]]>
-<!ATTLIST doc att CDATA #REQUIRED>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/011.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/011.xml
deleted file mode 100644 (file)
index 587ab5d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/011.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "011.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/INDEX b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/INDEX
deleted file mode 100644 (file)
index 0360292..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/INDEX
+++ /dev/null
@@ -1,20 +0,0 @@
-001    IGNORE works: <![IGNORE[ ... ]]>
-002    [precondition for 003] The first ATTLIST declaration for the same
-       attribute counts
-003    INCLUDE works: <![INCLUDE[ ... ]]>
-004    IGNORE works: <![%e;[ ... ]]> with e="IGNORE"
-005    INCLUDE works: <![%e;[ ... ]]> with e="INCLUDE"
-006    IGNORE works: <![IGNORE[ ... ]]> ignoring a section that would
-       be illegal
-007    Within ignored sections references to parameter references are
-       not resolved.
-       NOTE: You cannot derive this directly from the XML spec. because a 
-       precise definition what "ignoring" means is missing. This property
-       is an interpretation of the statement about reliable parsing in
-       section 3.4.
-008    Ignored sections may contain string literals containing "]]>".
-       NOTE: same problem with XML spec as 007
-009    Ignored sections may contain comments containing "]]>".
-       NOTE: same problem with XML spec as 007
-010    Nested conditional sections with outermost IGNORE
-011    Nested conditional sections with outermost INCLUDE

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/001.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/001.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/001.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/002.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/002.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/002.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/003.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/003.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/003.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/004.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/004.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/004.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/005.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/005.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/005.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/006.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/006.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/006.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/007.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/007.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/007.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/008.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/008.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/008.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/009.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/009.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/009.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/010.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/010.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/010.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/011.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/011.xml
deleted file mode 100644 (file)
index 7e8f183..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/conditional/out/011.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/001.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/001.xml
deleted file mode 100644 (file)
index 0915363..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/001.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE a [
-  <!ELEMENT a ANY>
-  <?pxp:dtd optional-element-and-notation-declarations?>
-]>
-<a><b/></a>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/002.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/002.xml
deleted file mode 100644 (file)
index e993d3a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/002.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE a [
-  <!ELEMENT a ANY>
-  <?pxp:dtd optional-element-and-notation-declarations?>
-]>
-<a><b att1="1" att2=" 1 2 3 "/></a>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/003.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/003.xml
deleted file mode 100644 (file)
index c0bfad4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/003.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE a [
-  <!ELEMENT a (b)>
-  <?pxp:dtd optional-element-and-notation-declarations?>
-]>
-<a><b/></a>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/004.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/004.xml
deleted file mode 100644 (file)
index 889604d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/004.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE a [
-  <?pxp:dtd optional-element-and-notation-declarations?>
-]>
-<a><b/></a>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/005.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/005.xml
deleted file mode 100644 (file)
index 609962b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/005.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE a [
-  <!ELEMENT a ANY>
-  <!ENTITY x SYSTEM "sample" NDATA m>
-  <?pxp:dtd optional-element-and-notation-declarations?>
-]>
-<a/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/006.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/006.xml
deleted file mode 100644 (file)
index 265d272..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/006.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<!DOCTYPE a [
-  <!ELEMENT a ANY>
-  <!ATTLIST a g ENTITY #IMPLIED>
-  <!ENTITY x SYSTEM "sample" NDATA m>
-  <?pxp:dtd optional-element-and-notation-declarations?>
-]>
-<a g="x"/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/007.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/007.xml
deleted file mode 100644 (file)
index 56fce53..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/007.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE a [
-  <!ELEMENT a ANY>
-  <?pxp:dtd optional-attribute-declarations elements="a"?>
-]>
-<a x="y"/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/INDEX b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/INDEX
deleted file mode 100644 (file)
index 21b68b9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/INDEX
+++ /dev/null
@@ -1,14 +0,0 @@
-<?pxp:dtd optional-element-and-notation-declarations?>
-
-001.xml                Whether it works for undeclared elements
-002.xml                Whether it works for undeclared elements with attributes
-003.xml                Whether it works for undeclared elements in declarations
-004.xml                Whether it works for undeclared root elements
-005.xml                Whether it works for undeclared notations
-006.xml                Whether it works for undeclared notations which are actually
-               referred to
-
-<?pxp:dtd optional-attribute-declarations?>
-
-007.xml                Whether it works
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/001.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/001.xml
deleted file mode 100644 (file)
index 61040a8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/001.xml
+++ /dev/null
@@ -1 +0,0 @@
-<a><b></b></a>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/002.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/002.xml
deleted file mode 100644 (file)
index d894fe8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/002.xml
+++ /dev/null
@@ -1 +0,0 @@
-<a><b att1="1" att2=" 1 2 3 "></b></a>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/003.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/003.xml
deleted file mode 100644 (file)
index 61040a8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/003.xml
+++ /dev/null
@@ -1 +0,0 @@
-<a><b></b></a>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/004.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/004.xml
deleted file mode 100644 (file)
index 61040a8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/004.xml
+++ /dev/null
@@ -1 +0,0 @@
-<a><b></b></a>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/005.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/005.xml
deleted file mode 100644 (file)
index 7df325b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/005.xml
+++ /dev/null
@@ -1 +0,0 @@
-<a></a>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/006.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/006.xml
deleted file mode 100644 (file)
index f5d7bec..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/006.xml
+++ /dev/null
@@ -1 +0,0 @@
-<a g="x"></a>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/007.xml b/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/007.xml
deleted file mode 100644 (file)
index 8685a8a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/data_valid/optional_decls/out/007.xml
+++ /dev/null
@@ -1 +0,0 @@
-<a x="y"></a>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/run_canonxml b/helm/DEVEL/pxp/pxp/rtests/canonxml/run_canonxml
deleted file mode 100755 (executable)
index 2c40807..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/run_canonxml
+++ /dev/null
@@ -1,31 +0,0 @@
-#! /bin/bash
-
-check_dir () {
-    dir="$1"
-    shift
-    xmlfiles=`cd $dir && echo *.xml`
-    for file in $xmlfiles; do
-        echo -n "File $dir/$file: "
-       ./test_canonxml "$@" "$dir/$file" >out.xml
-       if cmp out.xml "$dir/out/$file"; then
-           echo "OK"
-       else
-           echo "NOT OK"
-           read
-       fi
-    done
-}
-
-check_dir "data_valid/conditional"
-check_dir "data_valid/att_normalization"
-check_dir "data_valid/optional_decls"
-check_dir "data_valid/comments" -comments
-check_dir "data_valid/bugfixes"
-
-#check_dir "data_jclark_valid/sa-problems"
-#check_dir "data_jclark_valid/ext-sa-problems"
-check_dir "data_jclark_valid/sa"
-check_dir "data_jclark_valid/not-sa"
-check_dir "data_jclark_valid/ext-sa"
-
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/canonxml/test_canonxml.ml b/helm/DEVEL/pxp/pxp/rtests/canonxml/test_canonxml.ml
deleted file mode 100644 (file)
index ef83a28..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/canonxml/test_canonxml.ml
+++ /dev/null
@@ -1,239 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-open Pxp_document;;
-open Pxp_yacc;;
-open Pxp_types;;
-
-let error_happened = ref false;;
-
-let rec prerr_error e =
-  prerr_endline (string_of_exn e)
-;;
-
-class warner =
-  object 
-    method warn w =
-      prerr_endline ("WARNING: " ^ w)
-  end
-;;
-
-let outbuf = String.create 8192;;
-
-let output_utf8 config s =
-  match config.encoding  with
-      `Enc_utf8 ->
-       print_string s
-    | `Enc_iso88591 ->
-       for i = 0 to String.length s - 1 do
-         let c = Char.code(s.[i]) in
-         if c <= 127 then
-           print_char(Char.chr(c))
-         else begin
-           print_char(Char.chr(0xc0 lor (c lsr 6)));
-           print_char(Char.chr(0x80 lor (c land 0x3f)));
-         end
-       done
-    | _ -> assert false
-;;
-
-
-let re = Str.regexp "[&<>\"\009\010\013]";;
-
-let escaped s =
-  Str.global_substitute 
-    re
-    (fun _ ->
-       match Str.matched_string s with
-          "&"    -> "&amp;"
-        | "<"    -> "&lt;"
-        | ">"    -> "&gt;"
-        | "\""   -> "&quot;"
-        | "\009" -> "&#9;"
-        | "\010" -> "&#10;"
-        | "\013" -> "&#13;"
-        | _      -> assert false
-    )
-    s
-;;
-
-
-let rec output_xml config n =
-  match n # node_type with
-      T_super_root ->
-       n # iter_nodes (output_xml config)
-    | T_pinstr pi_name ->
-       let [ pi ] = n # pinstr pi_name in
-       output_utf8 config "<?";
-       output_utf8 config (pi # target);
-       output_utf8 config " ";
-       output_utf8 config (pi # value);
-       output_utf8 config "?>";
-    | T_element name ->
-       output_utf8 config "<";
-       output_utf8 config name;
-       let sorted_attnames = 
-         Sort.list ( <= ) (n # attribute_names) in
-       List.iter
-         (fun attname ->
-            match n # attribute attname with
-                Value v ->
-                  output_utf8 config " ";
-                  output_utf8 config attname;
-                  output_utf8 config "=\"";
-                  output_utf8 config (escaped v);
-                  output_utf8 config "\"";
-              | Valuelist vl ->
-                  let v = String.concat " " vl in
-                  output_utf8 config " ";
-                  output_utf8 config attname;
-                  output_utf8 config "=\"";
-                  output_utf8 config (escaped v);
-                  output_utf8 config "\"";
-              | Implied_value -> 
-                  ()
-         )
-         sorted_attnames;
-       output_utf8 config ">";
-       n # iter_nodes (output_xml config);
-       output_utf8 config "</";
-       output_utf8 config name;
-       output_utf8 config ">";
-    | T_data ->
-       let v = n # data in
-       output_utf8 config (escaped v)
-    | T_comment ->
-       let v =
-         match n # comment with
-             None -> assert false
-           | Some x -> x
-       in
-       output_utf8 config ("<!--" ^ v ^ "-->")
-    | _ -> 
-       assert false
-;;
-
-
-let parse debug wf iso88591 comments filename =
-  let spec =
-    let e = new element_impl default_extension in
-    e # keep_always_whitespace_mode;
-    make_spec_from_mapping
-      ~super_root_exemplar:      e
-      ~default_pinstr_exemplar:  e
-      ~comment_exemplar:         e
-      ~data_exemplar:            (new data_impl default_extension)
-      ~default_element_exemplar: e
-      ~element_mapping:          (Hashtbl.create 1)
-      ()
-  in
-  let config =
-      { default_config with 
-         warner = new warner;
-         debugging_mode = debug;
-         enable_pinstr_nodes = true;
-         enable_super_root_node = true;
-         enable_comment_nodes = comments;
-         encoding = if iso88591 then `Enc_iso88591 else `Enc_utf8;
-         idref_pass = true;
-      }
-  in
-  try 
-    let parse_fn =
-      if wf then parse_wfdocument_entity 
-      else 
-       let index = new hash_index in
-       parse_document_entity 
-         ?transform_dtd:None 
-         ~id_index:(index :> 'ext index)
-    in
-    let tree =
-      parse_fn
-        config
-       (from_file filename)
-       spec 
-    in
-    output_xml config (tree # root)
-  with
-      e ->
-       error_happened := true;
-       prerr_error e
-;;
-
-
-let main() =
-  let debug = ref false in
-  let wf = ref false in
-  let iso88591 = ref false in
-  let comments = ref false in
-  let files = ref [] in
-  Arg.parse
-      [ "-d",   Arg.Set debug, 
-          "          turn debugging mode on";
-       "-wf",  Arg.Set wf,    
-            "         check only on well-formedness";
-       "-iso-8859-1", Arg.Set iso88591, 
-                    " use ISO-8859-1 as internal encoding instead of UTF-8";
-       "-comments", Arg.Set comments, 
-                 "   output comments, too";
-      ]
-      (fun x -> files := x :: !files)
-      "
-usage: test_canonxml [options] file ...
-
-List of options:";
-  files := List.rev !files;
-  List.iter (parse !debug !wf !iso88591 !comments) !files;
-;;
-
-
-main();
-if !error_happened then exit(1);;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:32  lpadovan
- * Initial revision
- *
- * Revision 1.8  2000/08/17 00:51:57  gerd
- *     Added -comments option to test enable_comment_nodes.
- *
- * Revision 1.7  2000/08/16 23:44:17  gerd
- *     Updates because of changes of the PXP API.
- *
- * Revision 1.6  2000/07/14 14:56:55  gerd
- *     Updated: warner.
- *
- * Revision 1.5  2000/07/14 14:17:58  gerd
- *     Updated because of iterface changes.
- *
- * Revision 1.4  2000/07/09 01:06:20  gerd
- *     Updated.
- *
- * Revision 1.3  2000/06/04 20:31:03  gerd
- *     Updates because of renamed PXP modules.
- *
- * Revision 1.2  2000/05/20 20:34:28  gerd
- *     Changed for UTF-8 support.
- *
- * Revision 1.1  2000/04/30 20:13:01  gerd
- *     Initial revision.
- *
- * Revision 1.3  1999/11/09 22:27:30  gerd
- *     The programs returns now an exit code of 1 if one of the
- * XML files produces an error.
- *
- * Revision 1.2  1999/09/01 23:09:56  gerd
- *     Added the option -wf that switches to well-formedness checking
- * instead of validation.
- *
- * Revision 1.1  1999/08/14 22:20:53  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/rtests/codewriter/Makefile b/helm/DEVEL/pxp/pxp/rtests/codewriter/Makefile
deleted file mode 100644 (file)
index bacc75c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/codewriter/Makefile
+++ /dev/null
@@ -1,28 +0,0 @@
-# make validate:        make bytecode executable
-# make validate.opt:    make native executable
-# make clean:          remove intermediate files (in this directory)
-# make CLEAN:           remove intermediate files (recursively)
-# make distclean:      remove any superflous files (recursively)
-#----------------------------------------------------------------------
-
-OCAMLPATH=../..
-
-compile: compile.ml
-       ocamlfind ocamlc -g -custom -o compile -package .,str -linkpkg compile.ml
-
-#----------------------------------------------------------------------
-.PHONY: all
-all:
-
-.PHONY: clean
-clean:
-       rm -f *.cmi *.cmo *.cma *.cmx *.o *.a *.cmxa sample sample.ml out1 out2
-
-.PHONY: CLEAN
-CLEAN: clean
-
-.PHONY: distclean
-distclean: clean
-       rm -f *~
-       rm -f compile
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/codewriter/compile.ml b/helm/DEVEL/pxp/pxp/rtests/codewriter/compile.ml
deleted file mode 100644 (file)
index 1bd6e22..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/codewriter/compile.ml
+++ /dev/null
@@ -1,131 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-open Pxp_document;;
-open Pxp_yacc;;
-open Pxp_types;;
-
-let error_happened = ref false;;
-
-let rec prerr_error e =
-  prerr_endline (string_of_exn e)
-;;
-
-
-class warner =
-  object 
-    method warn w =
-      prerr_endline ("WARNING: " ^ w)
-  end
-;;
-
-
-let compile in_filename out_filename print super_root pis comments =
-  let spec =
-    let e = new element_impl default_extension in
-    make_spec_from_mapping
-      ~super_root_exemplar:      e
-      ~default_pinstr_exemplar:  e
-      ~comment_exemplar:         e
-      ~data_exemplar:            (new data_impl default_extension)
-      ~default_element_exemplar: e
-      ~element_mapping:          (Hashtbl.create 1)
-      ()
-  in
-  let config =
-      { default_config with 
-         encoding = `Enc_utf8;
-         warner = new warner;
-         enable_super_root_node = super_root;
-         enable_pinstr_nodes = pis;
-         enable_comment_nodes = comments;
-      }
-  in
-  try 
-    let tree =
-      parse_document_entity
-        config
-       (from_file in_filename)
-       spec 
-    in
-    
-    let ch = open_out out_filename in
-    Pxp_codewriter.write_document ch tree;
-    output_string ch "(create_document (new Pxp_types.drop_warnings) Pxp_yacc.default_spec) # write (Pxp_types.Out_channel stdout) `Enc_utf8;;\n";
-    close_out ch;
-
-    if print then
-      tree # write (Out_channel stdout) `Enc_utf8;
-  with
-      e ->
-       error_happened := true;
-       prerr_error e
-;;
-
-
-let main() =
-  let in_file = ref "" in
-  let out_file = ref "" in
-  let print_file = ref false in
-  let super_root = ref false in
-  let pis = ref false in
-  let comments = ref false in
-  Arg.parse
-      [ "-in", (Arg.String (fun s -> in_file := s)),
-            " <file>      Set the XML file to read";
-       "-out", (Arg.String (fun s -> out_file := s)),
-            " <file>     Set the Ocaml file to write";
-       "-print", (Arg.Set print_file),
-              "          Print the XML file in standard form";
-       "-super-root", Arg.Set super_root,
-                   "     Generate a super root node";
-       "-pis", Arg.Set pis,
-            "            Generate wrapper nodes for processing instructions";
-       "-comments", Arg.Set comments,
-                 "       Generate nodes for comments";
-      ]
-      (fun x -> raise (Arg.Bad "Unexpected argument"))
-      "
-usage: compile [ options ]
-
-List of options:";
-  if !in_file = "" then begin
-    prerr_endline "No input file specified.";
-    exit 1
-  end;
-  if !out_file = "" then begin
-    prerr_endline "No output file specified.";
-    exit 1
-  end;
-  compile !in_file !out_file !print_file !super_root !pis !comments
-;;
-
-
-main();
-if !error_happened then exit(1);;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:35  lpadovan
- * Initial revision
- *
- * Revision 1.4  2000/08/17 01:20:15  gerd
- *     Update: Also tested whether super root nodes, pinstr nodes
- * and comment nodes work.
- *     Note: comment nodes are not fully tested yet.
- *
- * Revision 1.3  2000/08/16 23:44:19  gerd
- *     Updates because of changes of the PXP API.
- *
- * Revision 1.2  2000/07/16 17:54:15  gerd
- *     Updated because of PXP interface changes.
- *
- * Revision 1.1  2000/07/09 00:33:32  gerd
- *     Initial revision.
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/rtests/codewriter/run_codewriter b/helm/DEVEL/pxp/pxp/rtests/codewriter/run_codewriter
deleted file mode 100755 (executable)
index 08e0a42..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/codewriter/run_codewriter
+++ /dev/null
@@ -1,3 +0,0 @@
-#! /bin/sh
-
-./test_codewriter sample001.xml

diff --git a/helm/DEVEL/pxp/pxp/rtests/codewriter/sample001.xml b/helm/DEVEL/pxp/pxp/rtests/codewriter/sample001.xml
deleted file mode 100644 (file)
index 4516b71..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/codewriter/sample001.xml
+++ /dev/null
@@ -1,44 +0,0 @@
-<!DOCTYPE a [
-
-<!ELEMENT a (b | (c, d)* | (e, f)+ | g?)>
-<!ELEMENT b (#PCDATA | a)*>
-<!ELEMENT c EMPTY>
-<!ELEMENT d ANY>
-<!ELEMENT e EMPTY>
-<!ELEMENT f EMPTY>
-<!ELEMENT g EMPTY>
-
-<!ATTLIST a u CDATA #IMPLIED
-            v NMTOKEN "huhu"
-            w (q|p)   #REQUIRED
-            x NOTATION (n1|n2) "n1"
-            y ENTITY #IMPLIED>
-
-<!NOTATION n1 SYSTEM "/bin/n1-processor">
-<!NOTATION n2 SYSTEM "/bin/n2-processor">
-
-<!ENTITY u1 SYSTEM "file-u1" NDATA n1>
-<!ENTITY u2 SYSTEM "file-u2" NDATA n2>
-
-<!-- comment 1 -->
-<?pi1 args ...?>
-]>
-
-<!-- comment 2 -->
-<a u="1" w="q" x="n2">
-  <!-- comment 3 -->
-  <b>
-    <?pi2 args ...?>
-    This is text!
-    <a w="p" y="u1">
-      <c/>
-      <d/>
-    </a>
-  </b>
-  <!-- comment 4 -->
-</a>
-
-<!-- comment 5 -->
-<?pi3 args ...?>
-<!-- comment 6 -->
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/codewriter/test_codewriter b/helm/DEVEL/pxp/pxp/rtests/codewriter/test_codewriter
deleted file mode 100755 (executable)
index 769b6b9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/codewriter/test_codewriter
+++ /dev/null
@@ -1,18 +0,0 @@
-#! /bin/sh
-
-set -e
-
-sample="$1"
-echo "Testing $sample:"
-./compile -in "$sample" -out "sample.ml" -print -super-root -pis -comments >"out1"
-echo "- code written to sample.ml, formatted data to out1"
-OCAMLPATH=../.. ocamlfind ocamlc -package . -linkpkg -custom sample.ml -o sample
-echo "- sample.ml compiled to sample"
-./sample >out2
-echo "- re-read data written to out2"
-if cmp out1 out2; then
-    echo "- out1 and out2 are identical! OK"
-else
-    echo "- out1 and out2 differ! FAILURE!"
-    exit 1
-fi

diff --git a/helm/DEVEL/pxp/pxp/rtests/dumpfiles.ml b/helm/DEVEL/pxp/pxp/rtests/dumpfiles.ml
deleted file mode 100644 (file)
index d5f9e50..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/dumpfiles.ml
+++ /dev/null
@@ -1,56 +0,0 @@
-
-
-let dump_file name =
-  let ch = open_in_bin name in
-  let len = in_channel_length ch in
-  let sin = String.create len in
-  really_input ch sin 0 len;
-  close_in ch;
-
-  Printf.printf "\\noindent\\begin{minipage}{5.5cm}\n";
-  (* Printf.printf "\\rule{5.5cm}{1pt}\n"; *)
-  Printf.printf "\\footnotesize\\bf File %s:\\\\\n" name;
-  Printf.printf "\\tt{}";
-  
-  for i = 0 to len - 1 do
-    match sin.[i] with
-       ('\000'..'\008'|'\011'|'\012'|'\014'..'\031'|'\127'..'\255') as c ->
-         Printf.printf "{\\sl (%02x)}\\linebreak[2]" (Char.code c)
-      | '\009' ->
-         Printf.printf "{\\sl HT}\\linebreak[3]"
-      | '\010' ->
-         Printf.printf "{\\sl LF}\\\\\n"
-      | '\013' ->
-         Printf.printf "{\\sl CR}";
-         if not(i < len - 1 && sin.[i+1] = '\010') then
-           Printf.printf "\\\\\n";
-      | ' ' ->
-         Printf.printf "\\symbol{32}\\linebreak[3]"
-
-      | ('"'|'#'|'$'|'%'|'&'|'-'|'<'|'>'|'['|'\\'|']'|'^'|'_'|'`'|
-        '{'|'|'|'}'|'~') as c ->
-         Printf.printf "\\symbol{%d}\\linebreak[2]" (Char.code c)
-      | c ->
-         print_char c;
-         print_string "\\linebreak[0]"
-  done;
-
-  Printf.printf "\\mbox{}\\\\\n";
-  Printf.printf "\\rule{5.5cm}{1pt}\n";
-  Printf.printf "\\end{minipage}\n"
-;;
-
-
-print_endline "\\documentclass[a4paper]{article}";
-print_endline "\\usepackage{multicol}";
-print_endline "\\begin{document}";
-print_endline "\\begin{multicols}{2}";
-for i = 1 to Array.length(Sys.argv)-1 do
-  dump_file Sys.argv.(i)
-done;
-print_endline "\\end{multicols}";
-print_endline "\\end{document}"
-;;
-
-
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/Makefile b/helm/DEVEL/pxp/pxp/rtests/negative/Makefile
deleted file mode 100644 (file)
index 2e8842c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/Makefile
+++ /dev/null
@@ -1,28 +0,0 @@
-# make test_negative:   make bytecode executable
-# make clean:          remove intermediate files (in this directory)
-# make CLEAN:           remove intermediate files (recursively)
-# make distclean:      remove any superflous files (recursively)
-#----------------------------------------------------------------------
-
-OCAMLPATH=../..
-
-test_negative: test_negative.ml
-       ocamlfind ocamlc -custom -o test_negative -package .,str -linkpkg test_negative.ml
-
-#----------------------------------------------------------------------
-.PHONY: all
-all:
-
-.PHONY: clean
-clean:
-       rm -f *.cmi *.cmo *.cma *.cmx *.o *.a *.cmxa current.out
-
-.PHONY: CLEAN
-CLEAN: clean
-
-.PHONY: distclean
-distclean: clean
-       rm -f *~
-       rm -f test_negative 
-
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/README b/helm/DEVEL/pxp/pxp/rtests/negative/README
deleted file mode 100644 (file)
index cfdaf38..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/README
+++ /dev/null
@@ -1,25 +0,0 @@
-----------------------------------------------------------------------
-Regression test "negative":
-----------------------------------------------------------------------
-
-- An errorneous XML file is parsed, and the error message is printed.
-
-- The output is compared with a reference file. The test is only
-  passed if the output and the reference are equal.
-
-- Test data "data_jclark_notwf":
-  Contains the samples by James Clark that are not well-formed. 
-  The subdirectories:
-  - sa:           standalone documents
-  - not-sa:       non-standalone document (with external DTD)
-  - ext-sa:       non-standalone document (with other external entity)
-
-- Test data "data_jclark_invalid":
-  Contains the samples by James Clark that are invalid.
-
-- Tests that are not passed have been moved into the *-problems directories.
-  The reason is typically that characters have been used not in the 
-  Latin 1 character set.
-
-- Test data "data_notwf":
-  Contains own tests with samples that are not well-formed.

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/001.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/001.out
deleted file mode 100644 (file)
index 2d51ff6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/001.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/001.xml", at line 5, position 3:
-ERROR (Validity constraint): The root element is `b' but is declared as `a

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/001.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/001.xml
deleted file mode 100644 (file)
index 9a346e7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/001.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE a [
-<!ELEMENT a ANY>
-<!ELEMENT b ANY>
-]>
-<b>x</b>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/010.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/010.out
deleted file mode 100644 (file)
index 8a2f8d6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/010.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/010.xml", at line 7, position 14:
-ERROR (Validity constraint): Attribute `id' is lexically malformed

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/010.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/010.xml
deleted file mode 100644 (file)
index 16e0e23..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/010.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ELEMENT el EMPTY>
-<!ATTLIST el id ID #IMPLIED>
-]>
-
-<el id="100"/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/011.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/011.out
deleted file mode 100644 (file)
index a03a204..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/011.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/011.xml", at line 10, position 17:
-ERROR (Validity constraint): ID not unique

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/011.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/011.xml
deleted file mode 100644 (file)
index 6aa3091..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/011.xml
+++ /dev/null
@@ -1,11 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE any [
-<!ELEMENT any ANY>
-<!ELEMENT el EMPTY>
-<!ATTLIST el id ID #IMPLIED>
-]>
-
-<any>
-  <el id="x100"/>
-  <el id="x100"/>
-</any>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/012.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/012.out
deleted file mode 100644 (file)
index 1870963..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/012.out
+++ /dev/null
@@ -1,3 +0,0 @@
-WARNING: More than one ATTLIST declaration for element type `el'
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/012.xml", at line 6, position 1:
-ERROR (Validity constraint): More than one ID attribute for element `el'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/012.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/012.xml
deleted file mode 100644 (file)
index d5bd7fa..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/012.xml
+++ /dev/null
@@ -1,8 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ELEMENT el EMPTY>
-<!ATTLIST el id1 ID #IMPLIED>
-<!ATTLIST el id2 ID #IMPLIED>
-]>
-
-<el/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/013.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/013.out
deleted file mode 100644 (file)
index 98092c3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/013.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/013.xml", at line 5, position 1:
-ERROR (Validity constraint): ID attribute must be #IMPLIED or #REQUIRED; element `el'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/013.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/013.xml
deleted file mode 100644 (file)
index 7d321a4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/013.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ELEMENT el EMPTY>
-<!ATTLIST el id ID "a">
-]>
-
-<el/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/014.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/014.out
deleted file mode 100644 (file)
index ec1247b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/014.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/014.xml", at line 5, position 1:
-ERROR (Validity constraint): ID attribute must be #IMPLIED or #REQUIRED; element `el'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/014.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/014.xml
deleted file mode 100644 (file)
index a56220d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/014.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ELEMENT el EMPTY>
-<!ATTLIST el id ID #FIXED "a">
-]>
-
-<el/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/015.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/015.out
deleted file mode 100644 (file)
index 18dd9c9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/015.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/015.xml", at line 7, position 17:
-ERROR (Validity constraint): Attribute `idref' is lexically malformed

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/015.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/015.xml
deleted file mode 100644 (file)
index d707f89..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/015.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ELEMENT el EMPTY>
-<!ATTLIST el idref IDREF #IMPLIED>
-]>
-
-<el idref="100"/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/016.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/016.out
deleted file mode 100644 (file)
index 4192286..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/016.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/016.xml", at line 7, position 22:
-ERROR (Validity constraint): Attribute `idrefs' is lexically malformed

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/016.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/016.xml
deleted file mode 100644 (file)
index 7ea9455..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/016.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ELEMENT el EMPTY>
-<!ATTLIST el idrefs IDREFS #IMPLIED>
-]>
-
-<el idrefs="100 200"/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/017.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/017.out
deleted file mode 100644 (file)
index 97115e6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/017.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/017.xml" at line 12, position 2:
-ERROR (Validity constraint): Attribute `idref' of element `el' refers to unknown ID `a20'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/017.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/017.xml
deleted file mode 100644 (file)
index da6e582..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/017.xml
+++ /dev/null
@@ -1,13 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE any [
-<!ELEMENT any ANY>
-<!ELEMENT el EMPTY>
-<!ATTLIST el id ID #IMPLIED
-             idref IDREF #IMPLIED
->
-]>
-
-<any>
-  <el id="a10"/>
-  <el idref="a20"/>
-</any>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/018.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/018.out
deleted file mode 100644 (file)
index 8d761c9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/018.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/018.xml" at line 12, position 2:
-ERROR (Validity constraint): Attribute `idrefs' of element `el' refers to unknown ID `a20'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/018.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/018.xml
deleted file mode 100644 (file)
index c3f011b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/018.xml
+++ /dev/null
@@ -1,13 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE any [
-<!ELEMENT any ANY>
-<!ELEMENT el EMPTY>
-<!ATTLIST el id ID #IMPLIED
-             idrefs IDREFS #IMPLIED
->
-]>
-
-<any>
-  <el id="a10"/>
-  <el idrefs="a10 a20"/>
-</any>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/019.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/019.out
deleted file mode 100644 (file)
index 6617245..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/019.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/019.xml", at line 6, position 1:
-ERROR (Validity constraint): Reference to undeclared notation `x'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/019.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/019.xml
deleted file mode 100644 (file)
index e10ed94..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/019.xml
+++ /dev/null
@@ -1,8 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ENTITY ndata SYSTEM "" NDATA x>
-<!ELEMENT el EMPTY>
-<!ATTLIST el ent ENTITY #IMPLIED>
-]>
-
-<el ent="10"/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/020.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/020.out
deleted file mode 100644 (file)
index a95a6a7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/020.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/020.xml", at line 6, position 1:
-ERROR (Validity constraint): Reference to undeclared notation `x'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/020.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/020.xml
deleted file mode 100644 (file)
index 4f696dd..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/020.xml
+++ /dev/null
@@ -1,8 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ENTITY ndata SYSTEM "" NDATA x>
-<!ELEMENT el EMPTY>
-<!ATTLIST el ents ENTITIES #IMPLIED>
-]>
-
-<el ents="a 10"/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/021.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/021.out
deleted file mode 100644 (file)
index bb950c7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/021.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/021.xml", at line 6, position 1:
-ERROR (Validity constraint): Reference to undeclared notation `x'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/021.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/021.xml
deleted file mode 100644 (file)
index 64662ac..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/021.xml
+++ /dev/null
@@ -1,8 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ENTITY ndata SYSTEM "" NDATA x>
-<!ELEMENT el EMPTY>
-<!ATTLIST el ent ENTITY #IMPLIED>
-]>
-
-<el ent="x"/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/022.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/022.out
deleted file mode 100644 (file)
index 2b8e091..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/022.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/022.xml", at line 6, position 1:
-ERROR (Validity constraint): Reference to undeclared notation `x'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/022.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/022.xml
deleted file mode 100644 (file)
index 3e8fe89..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/022.xml
+++ /dev/null
@@ -1,8 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ENTITY ndata SYSTEM "" NDATA x>
-<!ELEMENT el EMPTY>
-<!ATTLIST el ents ENTITIES #IMPLIED>
-]>
-
-<el ents="ndata a"/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/023.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/023.out
deleted file mode 100644 (file)
index 4775ce1..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/023.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/023.xml", at line 6, position 13:
-ERROR (Validity constraint): Attribute `nm' is lexically malformed

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/023.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/023.xml
deleted file mode 100644 (file)
index acf09e1..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/023.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ELEMENT el EMPTY>
-<!ATTLIST el nm NMTOKEN #IMPLIED>
-]>
-<el nm="[]"/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/024.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/024.out
deleted file mode 100644 (file)
index ad436a1..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/024.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/024.xml", at line 6, position 17:
-ERROR (Validity constraint): Attribute `nms' is lexically malformed

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/024.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/024.xml
deleted file mode 100644 (file)
index cdeabbc..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/024.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ELEMENT el EMPTY>
-<!ATTLIST el nms NMTOKENS #IMPLIED>
-]>
-<el nms="10 []"/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/025.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/025.out
deleted file mode 100644 (file)
index f832e5d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/025.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/025.xml", at line 5, position 1:
-ERROR (Validity constraint): Default value for attribute `idref' is lexically malformed

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/025.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/025.xml
deleted file mode 100644 (file)
index 6b5531c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/025.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ELEMENT el EMPTY>
-<!ATTLIST el idref IDREF "100">
-]>
-
-<el/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/026.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/026.out
deleted file mode 100644 (file)
index 2e311ed..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/026.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/026.xml", at line 5, position 1:
-ERROR (Validity constraint): Default value for attribute `idrefs' is lexically malformed

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/026.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/026.xml
deleted file mode 100644 (file)
index 75757c4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/026.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ELEMENT el EMPTY>
-<!ATTLIST el idrefs IDREFS "100 200">
-]>
-
-<el/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/027.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/027.out
deleted file mode 100644 (file)
index f753d46..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/027.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/027.xml", at line 6, position 1:
-ERROR (Validity constraint): Reference to undeclared notation `x'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/027.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/027.xml
deleted file mode 100644 (file)
index 9c1fffb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/027.xml
+++ /dev/null
@@ -1,8 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ENTITY ndata SYSTEM "" NDATA x>
-<!ELEMENT el EMPTY>
-<!ATTLIST el ent ENTITY "10">
-]>
-
-<el/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/028.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/028.out
deleted file mode 100644 (file)
index b8c4c83..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/028.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/028.xml", at line 6, position 1:
-ERROR (Validity constraint): Reference to undeclared notation `x'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/028.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/028.xml
deleted file mode 100644 (file)
index 2165803..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/028.xml
+++ /dev/null
@@ -1,8 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ENTITY ndata SYSTEM "" NDATA x>
-<!ELEMENT el EMPTY>
-<!ATTLIST el ents ENTITIES "a 10">
-]>
-
-<el/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/029.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/029.out
deleted file mode 100644 (file)
index 3e71466..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/029.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/029.xml", at line 5, position 1:
-ERROR (Validity constraint): Default value for attribute `nm' is lexically malformed

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/029.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/029.xml
deleted file mode 100644 (file)
index a9cc68f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/029.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ELEMENT el EMPTY>
-<!ATTLIST el nm NMTOKEN "[]">
-]>
-<el/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/030.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/030.out
deleted file mode 100644 (file)
index 1c25ca8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/030.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/030.xml", at line 5, position 1:
-ERROR (Validity constraint): Default value for attribute `nms' is lexically malformed

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/030.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/030.xml
deleted file mode 100644 (file)
index da8a26c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/030.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ELEMENT el EMPTY>
-<!ATTLIST el nms NMTOKENS "10 []">
-]>
-<el/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/031.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/031.out
deleted file mode 100644 (file)
index 07ff0ff..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/031.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/031.xml", at line 6, position 1:
-ERROR (Validity constraint): Reference to undeclared notation `jpeg'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/031.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/031.xml
deleted file mode 100644 (file)
index 16d3b3b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/031.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!NOTATION gif PUBLIC "image/gif">
-<!ELEMENT el EMPTY>
-<!ATTLIST el n NOTATION (gif|jpeg) #IMPLIED>
-]>
-<el/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/032.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/032.out
deleted file mode 100644 (file)
index 5a5b4b6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/032.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/032.xml", at line 6, position 1:
-ERROR (Validity constraint): Illegal default value for attribute `n' in declaration for element `el'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/032.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/032.xml
deleted file mode 100644 (file)
index f4e2d4d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/032.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!NOTATION gif PUBLIC "image/gif">
-<!ELEMENT el EMPTY>
-<!ATTLIST el n NOTATION (gif) "jpeg">
-]>
-<el/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/033.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/033.out
deleted file mode 100644 (file)
index de96bda..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/033.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/033.xml", at line 7, position 14:
-ERROR (Validity constraint): Attribute `n' does not match one of the declared notation names

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/033.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/033.xml
deleted file mode 100644 (file)
index 0ca58da..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/033.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!NOTATION gif PUBLIC "image/gif">
-<!ELEMENT el EMPTY>
-<!ATTLIST el n NOTATION (gif) #IMPLIED>
-]>
-<el n="jpeg"/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/034.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/034.out
deleted file mode 100644 (file)
index e1cca97..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/034.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/034.xml", at line 8, position 1:
-ERROR (Validity constraint): More than one NOTATION attribute for element `el'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/034.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/034.xml
deleted file mode 100644 (file)
index 10ee38f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/034.xml
+++ /dev/null
@@ -1,9 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!NOTATION gif PUBLIC "image/gif">
-<!ELEMENT el EMPTY>
-<!ATTLIST el n NOTATION (gif) #IMPLIED
-             m NOTATION (gif) #IMPLIED
->
-]>
-<el/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/035.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/035.out
deleted file mode 100644 (file)
index 9c3ea45..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/035.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/035.xml", at line 5, position 1:
-ERROR (Validity constraint): Illegal default value for attribute `enum' in declaration for element `el'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/035.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/035.xml
deleted file mode 100644 (file)
index a42060c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/035.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ELEMENT el EMPTY>
-<!ATTLIST el enum (a|b|c) "d">
-]>
-
-<el/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/036.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/036.out
deleted file mode 100644 (file)
index 39e3f77..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/036.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/036.xml", at line 7, position 14:
-ERROR (Validity constraint): Attribute `enum' does not match one of the declared enumerator tokens

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/036.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/036.xml
deleted file mode 100644 (file)
index 12cf01d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/036.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ELEMENT el EMPTY>
-<!ATTLIST el enum (a|b|c) #IMPLIED>
-]>
-
-<el enum="d"/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/037.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/037.out
deleted file mode 100644 (file)
index afa614c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/037.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/037.xml", at line 7, position 5:
-ERROR (Validity constraint): Required attribute `x' is missing

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/037.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/037.xml
deleted file mode 100644 (file)
index 2619e60..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/037.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ELEMENT el EMPTY>
-<!ATTLIST el x CDATA #REQUIRED>
-]>
-
-<el/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/038.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/038.out
deleted file mode 100644 (file)
index 902d7cd..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/038.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/038.xml", at line 7, position 13:
-ERROR (Validity constraint): Attribute `x' is fixed, but has here a different value

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/038.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/038.xml
deleted file mode 100644 (file)
index 2ad30db..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/038.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<?xml version="1.0"?>
-<!DOCTYPE el [
-<!ELEMENT el EMPTY>
-<!ATTLIST el x CDATA #FIXED "abc">
-]>
-
-<el x="def"/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/060.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/060.ent
deleted file mode 100644 (file)
index 8c23f3e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/060.ent
+++ /dev/null
@@ -1 +0,0 @@
-<!ATTLIST el v3 CDATA "ghi">

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/060.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/060.out
deleted file mode 100644 (file)
index 29296ae..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/060.out
+++ /dev/null
@@ -1,4 +0,0 @@
-WARNING: More than one ATTLIST declaration for element type `el'
-WARNING: More than one ATTLIST declaration for element type `el'
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/060.xml", at line 17, position 12:
-ERROR (Validity constraint): Attribute `v3' of element type `el' violates standalone declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/060.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/060.xml
deleted file mode 100644 (file)
index 1cc0f2d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/060.xml
+++ /dev/null
@@ -1,19 +0,0 @@
-<?xml version="1.0" standalone="yes"?>
-
-<!DOCTYPE any [
-<!ELEMENT any ANY>
-<!ELEMENT el EMPTY>
-<!ATTLIST el v1 CDATA "abc">
-<!ENTITY % declare_v2 '<!ATTLIST el v2 CDATA "def">'>
-%declare_v2;
-<!ENTITY % declare_v3 SYSTEM "060.ent">
-%declare_v3;
-]>
-
-<any>
-  <any><el v1="ABC" v2="DEF" v3="GHI"/></any>
-  <any><el v2="DEF" v3="GHI"/></any>
-  <any><el v3="GHI"/></any>
-  <any><el/></any>
-</any>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/061.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/061.ent
deleted file mode 100644 (file)
index 03674e9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/061.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ENTITY % declare_v3 '<!ATTLIST el v3 CDATA "ghi">'>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/061.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/061.out
deleted file mode 100644 (file)
index 40d1d07..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/061.out
+++ /dev/null
@@ -1,4 +0,0 @@
-WARNING: More than one ATTLIST declaration for element type `el'
-WARNING: More than one ATTLIST declaration for element type `el'
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/061.xml", at line 18, position 12:
-ERROR (Validity constraint): Attribute `v3' of element type `el' violates standalone declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/061.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/061.xml
deleted file mode 100644 (file)
index 226df78..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/061.xml
+++ /dev/null
@@ -1,20 +0,0 @@
-<?xml version="1.0" standalone="yes"?>
-
-<!DOCTYPE any [
-<!ELEMENT any ANY>
-<!ELEMENT el EMPTY>
-<!ATTLIST el v1 CDATA "abc">
-<!ENTITY % declare_v2 '<!ATTLIST el v2 CDATA "def">'>
-%declare_v2;
-<!ENTITY % declare_declare_v3 SYSTEM "061.ent">
-%declare_declare_v3;
-%declare_v3;
-]>
-
-<any>
-  <any><el v1="ABC" v2="DEF" v3="GHI"/></any>
-  <any><el v2="DEF" v3="GHI"/></any>
-  <any><el v3="GHI"/></any>
-  <any><el/></any>
-</any>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/062.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/062.ent
deleted file mode 100644 (file)
index 8c23f3e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/062.ent
+++ /dev/null
@@ -1 +0,0 @@
-<!ATTLIST el v3 CDATA "ghi">

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/062.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/062.out
deleted file mode 100644 (file)
index b026613..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/062.out
+++ /dev/null
@@ -1,4 +0,0 @@
-WARNING: More than one ATTLIST declaration for element type `el'
-WARNING: More than one ATTLIST declaration for element type `el'
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/062.xml", at line 15, position 12:
-ERROR (Validity constraint): Attribute `v3' of element type `el' violates standalone declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/062.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/062.xml
deleted file mode 100644 (file)
index 458ac28..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/062.xml
+++ /dev/null
@@ -1,17 +0,0 @@
-<?xml version="1.0" standalone="yes"?>
-
-<!DOCTYPE any SYSTEM "062.ent" [
-<!ELEMENT any ANY>
-<!ELEMENT el EMPTY>
-<!ATTLIST el v1 CDATA "abc">
-<!ENTITY % declare_v2 '<!ATTLIST el v2 CDATA "def">'>
-%declare_v2;
-]>
-
-<any>
-  <any><el v1="ABC" v2="DEF" v3="GHI"/></any>
-  <any><el v2="DEF" v3="GHI"/></any>
-  <any><el v3="GHI"/></any>
-  <any><el/></any>
-</any>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/063.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/063.ent
deleted file mode 100644 (file)
index 2d72317..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/063.ent
+++ /dev/null
@@ -1 +0,0 @@
-<!ENTITY e3 "ghi">

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/063.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/063.out
deleted file mode 100644 (file)
index 275ca29..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/063.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/063.xml", at line 15, position 2:
-ERROR (Validity constraint): Reference to entity `e3' violates standalone declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/063.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/063.xml
deleted file mode 100644 (file)
index 18b7061..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/063.xml
+++ /dev/null
@@ -1,17 +0,0 @@
-<?xml version="1.0" standalone="yes"?>
-
-<!DOCTYPE any [
-<!ELEMENT any ANY>
-<!ENTITY e1 "abc">
-<!ENTITY % declare_e2 '<!ENTITY e2 "def">'>
-%declare_e2;
-<!ENTITY % declare_e3 SYSTEM "063.ent">
-%declare_e3;
-]>
-
-<any>
-  &e1;
-  &e2;
-  &e3;
-</any>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/064.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/064.ent
deleted file mode 100644 (file)
index 2d72317..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/064.ent
+++ /dev/null
@@ -1 +0,0 @@
-<!ENTITY e3 "ghi">

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/064.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/064.out
deleted file mode 100644 (file)
index d825206..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/064.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/064.xml", at line 17, position 10:
-ERROR (Validity constraint): Reference to entity `e3' violates standalone declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/064.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/064.xml
deleted file mode 100644 (file)
index 4fb66cd..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/064.xml
+++ /dev/null
@@ -1,19 +0,0 @@
-<?xml version="1.0" standalone="yes"?>
-
-<!DOCTYPE any [
-<!ELEMENT any ANY>
-<!ENTITY e1 "abc">
-<!ENTITY % declare_e2 '<!ENTITY e2 "def">'>
-%declare_e2;
-<!ENTITY % declare_e3 SYSTEM "064.ent">
-%declare_e3;
-<!ELEMENT el EMPTY>
-<!ATTLIST el att CDATA #IMPLIED>
-]>
-
-<any>
-  <el att="&e1;"/>
-  <el att="&e2;"/>
-  <el att="&e3;"/>
-</any>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/065.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/065.ent
deleted file mode 100644 (file)
index 2d72317..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/065.ent
+++ /dev/null
@@ -1 +0,0 @@
-<!ENTITY e3 "ghi">

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/065.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/065.out
deleted file mode 100644 (file)
index e2591c6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/065.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/065.xml", at line 13, position 24:
-ERROR (Validity constraint): Reference to entity `e3' violates standalone declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/065.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/065.xml
deleted file mode 100644 (file)
index 3a52645..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/065.xml
+++ /dev/null
@@ -1,23 +0,0 @@
-<?xml version="1.0" standalone="yes"?>
-
-<!DOCTYPE any [
-<!ELEMENT any ANY>
-<!ENTITY e1 "abc">
-<!ENTITY % declare_e2 '<!ENTITY e2 "def">'>
-%declare_e2;
-<!ENTITY % declare_e3 SYSTEM "065.ent">
-%declare_e3;
-<!ELEMENT el EMPTY>
-<!ATTLIST el att1 CDATA "&e1;"
-             att2 CDATA "&e2;"
-             att3 CDATA "&e3;"
->
-]>
-
-<any>
-  <el att1="1" att2="2" att3="3"/>
-  <el att2="2" att3="3"/>
-  <el att3="3"/>
-  <el/>
-</any>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/066.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/066.ent
deleted file mode 100644 (file)
index 136d73e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/066.ent
+++ /dev/null
@@ -1 +0,0 @@
-<!ENTITY e3 SYSTEM "ghi" NDATA n3>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/066.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/066.out
deleted file mode 100644 (file)
index d14209f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/066.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/066.xml", at line 13, position 1:
-ERROR (Validity constraint): Reference to undeclared notation `n3'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/066.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/066.xml
deleted file mode 100644 (file)
index a1cd7a6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/066.xml
+++ /dev/null
@@ -1,20 +0,0 @@
-<?xml version="1.0" standalone="yes"?>
-
-<!DOCTYPE any [
-<!ELEMENT any ANY>
-<!ENTITY e1 SYSTEM "abc" NDATA n1>
-<!ENTITY % declare_e2 '<!ENTITY e2 SYSTEM "def" NDATA n2>'>
-%declare_e2;
-<!ENTITY % declare_e3 SYSTEM "066.ent">
-%declare_e3;
-<!ELEMENT el EMPTY>
-<!ATTLIST el att ENTITY #IMPLIED
->
-]>
-
-<any>
-  <any><el att="e1"/></any>
-  <any><el att="e2"/></any>
-  <any><el att="e3"/></any>
-</any>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/067.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/067.ent
deleted file mode 100644 (file)
index 136d73e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/067.ent
+++ /dev/null
@@ -1 +0,0 @@
-<!ENTITY e3 SYSTEM "ghi" NDATA n3>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/067.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/067.out
deleted file mode 100644 (file)
index 117eda9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/067.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/067.xml", at line 15, position 1:
-ERROR (Validity constraint): Reference to undeclared notation `n3'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/067.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/067.xml
deleted file mode 100644 (file)
index bb4edd3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/067.xml
+++ /dev/null
@@ -1,23 +0,0 @@
-<?xml version="1.0" standalone="yes"?>
-
-<!DOCTYPE any [
-<!ELEMENT any ANY>
-<!ENTITY e1 SYSTEM "abc" NDATA n1>
-<!ENTITY % declare_e2 '<!ENTITY e2 SYSTEM "def" NDATA n2>'>
-%declare_e2;
-<!ENTITY % declare_e3 SYSTEM "067.ent">
-%declare_e3;
-<!ELEMENT el EMPTY>
-<!ATTLIST el att1 ENTITY "e1"
-             att2 ENTITY "e2"
-             att3 ENTITY "e3"
->
-]>
-
-<any>
-  <any><el att1="e1" att2="e1" att3="e1"/></any>
-  <any><el att2="e1" att3="e1"/></any>
-  <any><el att3="e1"/></any>
-  <any><el/></any>
-</any>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/068.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/068.ent
deleted file mode 100644 (file)
index 5a19ad8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/068.ent
+++ /dev/null
@@ -1 +0,0 @@
-<!ATTLIST el v3 NMTOKEN #IMPLIED>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/068.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/068.out
deleted file mode 100644 (file)
index 3942556..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/068.out
+++ /dev/null
@@ -1,4 +0,0 @@
-WARNING: More than one ATTLIST declaration for element type `el'
-WARNING: More than one ATTLIST declaration for element type `el'
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/068.xml", at line 19, position 23:
-ERROR (Validity constraint): Attribute `v3' of element type `el' violates standalone declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/068.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/068.xml
deleted file mode 100644 (file)
index 31c29f8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/068.xml
+++ /dev/null
@@ -1,21 +0,0 @@
-<?xml version="1.0" standalone="yes"?>
-
-<!DOCTYPE any [
-<!ELEMENT any ANY>
-<!ELEMENT el EMPTY>
-<!ATTLIST el v1 NMTOKEN #IMPLIED>
-<!ENTITY % declare_v2 '<!ATTLIST el v2 NMTOKEN #IMPLIED>'>
-%declare_v2;
-<!ENTITY % declare_v3 SYSTEM "068.ent">
-%declare_v3;
-]>
-
-<any>
-  <any><el v1="abc"/></any>
-  <any><el v2="abc"/></any>
-  <any><el v3="abc"/></any>
-  <any><el v1=" abc "/></any>
-  <any><el v2=" abc "/></any>
-  <any><el v3=" abc "/></any>
-</any>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/069.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/069.ent
deleted file mode 100644 (file)
index 4bad199..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/069.ent
+++ /dev/null
@@ -1 +0,0 @@
-<!ATTLIST el v3 NMTOKENS #IMPLIED>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/069.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/069.out
deleted file mode 100644 (file)
index ca71500..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/069.out
+++ /dev/null
@@ -1,4 +0,0 @@
-WARNING: More than one ATTLIST declaration for element type `el'
-WARNING: More than one ATTLIST declaration for element type `el'
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/069.xml", at line 19, position 27:
-ERROR (Validity constraint): Attribute `v3' of element type `el' violates standalone declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/069.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/069.xml
deleted file mode 100644 (file)
index a0f1b70..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/069.xml
+++ /dev/null
@@ -1,21 +0,0 @@
-<?xml version="1.0" standalone="yes"?>
-
-<!DOCTYPE any [
-<!ELEMENT any ANY>
-<!ELEMENT el EMPTY>
-<!ATTLIST el v1 NMTOKENS #IMPLIED>
-<!ENTITY % declare_v2 '<!ATTLIST el v2 NMTOKENS #IMPLIED>'>
-%declare_v2;
-<!ENTITY % declare_v3 SYSTEM "069.ent">
-%declare_v3;
-]>
-
-<any>
-  <any><el v1="abc def"/></any>
-  <any><el v2="abc def"/></any>
-  <any><el v3="abc def"/></any>
-  <any><el v1=" abc def "/></any>
-  <any><el v2=" abc def "/></any>
-  <any><el v3=" abc def "/></any>
-</any>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/070.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/070.ent
deleted file mode 100644 (file)
index 1792bb9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/070.ent
+++ /dev/null
@@ -1 +0,0 @@
-<!ELEMENT outer3 (inner)>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/070.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/070.out
deleted file mode 100644 (file)
index 4bbfb52..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/070.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/070.xml", at line 19, position 32:
-ERROR (Validity constraint): Element `outer3' violates standalone declaration because extra white space separates the sub elements

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/070.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/070.xml
deleted file mode 100644 (file)
index 85e400a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/070.xml
+++ /dev/null
@@ -1,21 +0,0 @@
-<?xml version="1.0" standalone="yes"?>
-
-<!DOCTYPE any [
-<!ELEMENT any ANY>
-<!ELEMENT inner EMPTY>
-<!ELEMENT outer1 (inner)>
-<!ENTITY % declare_outer2 '<!ELEMENT outer2 (inner)>'>
-%declare_outer2;
-<!ENTITY % declare_outer3 SYSTEM "070.ent">
-%declare_outer3;
-]>
-
-<any>
-  <any><outer1><inner/></outer1></any>
-  <any><outer2><inner/></outer2></any>
-  <any><outer3><inner/></outer3></any>
-  <any><outer1><inner/> </outer1></any>
-  <any><outer2><inner/> </outer2></any>
-  <any><outer3><inner/> </outer3></any>
-</any>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/080.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/080.out
deleted file mode 100644 (file)
index 174afa0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/080.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/080.xml", at line 4, position 0:
-ERROR (Validity constraint): The content model of element `b' is not deterministic

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/080.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/080.xml
deleted file mode 100644 (file)
index 8deeef4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/080.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE a [
-<!ELEMENT a ANY>
-<!ELEMENT b ((a,b)|a+)>]>
-<a/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/081.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/081.out
deleted file mode 100644 (file)
index 1f3cfaa..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/081.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_invalid/081.xml", at line 4, position 0:
-ERROR (Validity constraint): The content model of element `b' is not deterministic

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/081.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/081.xml
deleted file mode 100644 (file)
index 293eeae..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/081.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE a [
-<!ELEMENT a ANY>
-<!ELEMENT b ((b|a+),a)>]>
-<a/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/INDEX b/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/INDEX
deleted file mode 100644 (file)
index e2090fd..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_invalid/INDEX
+++ /dev/null
@@ -1,75 +0,0 @@
-----------------------------------------
-Root element
-----------------------------------------
-
-001.xml                Declared root element type matches actual root element type
-
-----------------------------------------
-Attributes
-----------------------------------------
-
-010.xml                ID attributes must match the Name production (not nmtoken)
-011.xml                ID attributes uniquely identify the element bearing them
-               *** TODO ***
-012.xml                No element type must have several ID attributes declared
-013.xml                No ID attribute must have a default
-014.xml                No ID attribute must have a default (FIXED)
-015.xml                Attributes of type IDREF must match the Name production
-016.xml                Attributes of type IDREFS must match the Names production
-017.xml                Attributes of type IDREF must match the value of an ID
-               attribute
-               *** TODO ***
-018.xml                Attributes of type IDREFS must match the values of ID
-               attributes
-               *** TODO ***
-019.xml                Attributes of type ENTITY must match the Name production
-020.xml                Attributes of type ENTITIES must match the Names production
-021.xml                Attributes of type ENTITY must match an unparsed entity
-022.xml                Attributes of type ENTITIES must match unparsed entities
-023.xml                Attributes of type NMTOKEN must match the nmtoken production
-024.xml                Attributes of type NMTOKENS must match the nmtokens production
-025.xml                like 015.xml, but the default value is tested
-026.xml                like 016.xml, but the default value is tested
-027.xml                like 019.xml, but the default value is tested
-028.xml                like 020.xml, but the default value is tested
-029.xml                like 023.xml, but the default value is tested
-030.xml                like 024.xml, but the default value is tested
-031.xml                all notation names in the declaration must have been declared
-032.xml                Values of NOTATION type must match one declared value
-033.xml                Values of NOTATION type must match one declared value
-034.xml                Only one NOTATION attribute per element
-035.xml                Values of enum type must match one of the declared values
-036.xml                Values of enum type must match one of the declared values
-037.xml                missing #REQUIRED attribute
-038.xml                #FIXED attributes must match the declared default
-
-----------------------------------------
-Standalone declaration
-----------------------------------------
-
-060.xml                Externally declared default values are rejected
-061.xml                variant of 060.xml (internal entity within external entity)
-062.xml                variant of 060.xml (external subset of DTD)
-063.xml                Externally declared parsed general entities are rejected
-               (entity ref occurs in main text)
-064.xml                Externally declared parsed general entities are rejected
-               (entity ref occurs in attribute value)
-065.xml                Externally declared parsed general entities are rejected
-               (entity ref occurs in attribute default)
-               *** THINK ABOUT THIS CASE AGAIN ***
-066.xml                Externally declared unparsed entities are rejected
-               (entity ref occurs in attribute value)
-067.xml        Externally declared unparsed entities are rejected
-               (entity ref occurs in attribute default)
-068.xml                Externally declared NMTOKEN attributes require normal form
-069.xml                Externally declared NMTOKENS attributes require normal form
-070.xml                Externally declared elements with regexp content model
-               do not like extra white space
-
-----------------------------------------
-Deterministics models
-----------------------------------------
-
-080.xml                One example
-081.xml                Another example
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/001.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/001.ent
deleted file mode 100644 (file)
index fea9c4e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/001.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ELEMENT doc EMPTY>
-<!ENTITY % e "<!--">
-%e; -->

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/001.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/001.out
deleted file mode 100644 (file)
index 074f8ea..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/001.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_invalid/001.xml", at line 1, position 30:
-In entity [dtd] = SYSTEM "001.ent", at line 3, position 3:
-ERROR (Well-formedness constraint): `-->' expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/001.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/001.xml
deleted file mode 100644 (file)
index 02ef0bb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/001.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "001.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/002.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/002.ent
deleted file mode 100644 (file)
index 35b4309..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/002.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ENTITY % e "(#PCDATA">
-<!ELEMENT doc %e;)>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/002.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/002.out
deleted file mode 100644 (file)
index 2883a32..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/002.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_invalid/002.xml", at line 1, position 30:
-In entity [dtd] = SYSTEM "002.ent", at line 2, position 18:
-ERROR (Validity constraint): Entities not properly nested with parentheses

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/002.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/002.xml
deleted file mode 100644 (file)
index 0c5372c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/002.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "002.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/003.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/003.ent
deleted file mode 100644 (file)
index 3610f12..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/003.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ENTITY % e "<!ELEMENT ">
-%e; doc (#PCDATA)>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/003.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/003.out
deleted file mode 100644 (file)
index 9125d01..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/003.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_invalid/003.xml", at line 1, position 30:
-In entity [dtd] = SYSTEM "003.ent", at line 2, position 17:
-ERROR (Validity constraint): Entities not properly nested with ELEMENT declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/003.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/003.xml
deleted file mode 100644 (file)
index c4b33e4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/003.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "003.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/004.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/004.ent
deleted file mode 100644 (file)
index 3127263..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/004.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!ENTITY % e1 "<!ELEMENT ">
-<!ENTITY % e2 ">">
-%e1; doc (#PCDATA) %e2;

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/004.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/004.out
deleted file mode 100644 (file)
index f7b93fc..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/004.out
+++ /dev/null
@@ -1,4 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_invalid/004.xml", at line 1, position 30:
-In entity e2, at line 1, position 1:
-Called from entity [dtd] = SYSTEM "004.ent", line 3, position 19:
-ERROR (Validity constraint): Entities not properly nested with ELEMENT declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/004.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/004.xml
deleted file mode 100644 (file)
index 740d173..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/004.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "004.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/005.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/005.ent
deleted file mode 100644 (file)
index 3326c04..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/005.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ENTITY % e ">">
-<!ELEMENT doc (#PCDATA) %e;

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/005.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/005.out
deleted file mode 100644 (file)
index d146659..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/005.out
+++ /dev/null
@@ -1,4 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_invalid/005.xml", at line 1, position 30:
-In entity e, at line 1, position 1:
-Called from entity [dtd] = SYSTEM "005.ent", line 2, position 24:
-ERROR (Validity constraint): Entities not properly nested with ELEMENT declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/005.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/005.xml
deleted file mode 100644 (file)
index aa3a8f9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/005.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "005.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/006.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/006.ent
deleted file mode 100644 (file)
index 4bd7314..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/006.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ENTITY % e "(#PCDATA)>">
-<!ELEMENT doc %e;

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/006.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/006.out
deleted file mode 100644 (file)
index fa7403c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/006.out
+++ /dev/null
@@ -1,4 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_invalid/006.xml", at line 1, position 30:
-In entity e, at line 1, position 10:
-Called from entity [dtd] = SYSTEM "006.ent", line 2, position 14:
-ERROR (Validity constraint): Entities not properly nested with ELEMENT declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/006.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/006.xml
deleted file mode 100644 (file)
index bd2ee32..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_invalid/006.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "006.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/001.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/001.ent
deleted file mode 100644 (file)
index 378a207..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/001.ent
+++ /dev/null
@@ -1 +0,0 @@
-&e;
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/001.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/001.out
deleted file mode 100644 (file)
index 57edec3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/001.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/ext-sa/001.xml", at line 3, position 1:
-ERROR (Validity constraint): The root element is not declared

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/001.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/001.xml
deleted file mode 100644 (file)
index 673dc58..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/001.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e SYSTEM "001.ent">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/002.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/002.ent
deleted file mode 100644 (file)
index c7bec63..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/002.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<?xml version="1.0" standalone="yes"?>
-data
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/002.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/002.out
deleted file mode 100644 (file)
index 65e741d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/002.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity e = SYSTEM "002.ent", at line 1, position 0:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/ext-sa/002.xml", line 5, position 5:
-ERROR (Well-formedness constraint): Bad XML declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/002.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/002.xml
deleted file mode 100644 (file)
index 2ee5988..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/002.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e SYSTEM "002.ent">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/003.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/003.ent
deleted file mode 100644 (file)
index a0d0d04..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/003.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<?xml version="1.0"?><?xml version="1.0"?>
-data

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/003.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/003.out
deleted file mode 100644 (file)
index 1d090c7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/003.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity e = SYSTEM "003.ent", at line 1, position 0:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/ext-sa/003.xml", line 5, position 5:
-ERROR (Well-formedness constraint): Bad XML declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/003.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/003.xml
deleted file mode 100644 (file)
index 407a4a1..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/ext-sa/003.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e SYSTEM "003.ent">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/001.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/001.ent
deleted file mode 100644 (file)
index b0292fc..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/001.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<![ INCLUDE [
-<!ELEMENT doc (#PCDATA)>
-]>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/001.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/001.out
deleted file mode 100644 (file)
index 577cce2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/001.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/not-sa/001.xml", at line 1, position 30:
-In entity [dtd] = SYSTEM "001.ent", at line 3, position 0:
-ERROR (Well-formedness constraint): `>]>' expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/001.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/001.xml
deleted file mode 100644 (file)
index 02ef0bb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/001.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "001.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/002.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/002.out
deleted file mode 100644 (file)
index 8cb6783..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/002.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity e, at line 1, position 1:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/not-sa/002.xml", line 4, position 0:
-ERROR (Well-formedness constraint): `]' expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/002.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/002.xml
deleted file mode 100644 (file)
index a0a538d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/002.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY % e "<?xml version='1.0' encoding='UTF-8'?>">
-%e;
-]>
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/003.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/003.ent
deleted file mode 100644 (file)
index 5b49337..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/003.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<![ IGNORE [

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/003.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/003.out
deleted file mode 100644 (file)
index 9c5bd24..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/003.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/not-sa/003.xml", at line 1, position 30:
-In entity [dtd] = SYSTEM "003.ent", at line 2, position 11:
-ERROR (Well-formedness constraint): Bad conditional section

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/003.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/003.xml
deleted file mode 100644 (file)
index c4b33e4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/003.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "003.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/004.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/004.ent
deleted file mode 100644 (file)
index fcce6e0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/004.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-<![ INCLUDE [

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/004.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/004.out
deleted file mode 100644 (file)
index 3c164bc..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/004.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/not-sa/004.xml", at line 1, position 30:
-In entity [dtd] = SYSTEM "004.ent", at line 3, position 0:
-ERROR (Well-formedness constraint): `>]>' expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/004.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/004.xml
deleted file mode 100644 (file)
index 740d173..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/004.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "004.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/005.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/005.ent
deleted file mode 100644 (file)
index aae8559..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/005.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ELEMENT doc (#PCDATA)>
-%e;

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/005.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/005.out
deleted file mode 100644 (file)
index da38b03..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/005.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/not-sa/005.xml", at line 1, position 30:
-In entity [dtd] = SYSTEM "005.ent", at line 2, position 0:
-ERROR (Well-formedness constraint): Reference to undeclared parameter entity `e'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/005.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/005.xml
deleted file mode 100644 (file)
index aa3a8f9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/005.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "005.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/006.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/006.ent
deleted file mode 100644 (file)
index b60f41c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/006.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<![INCLUDE
-<!ELEMENT doc (#PCDATA)>
-]]>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/006.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/006.out
deleted file mode 100644 (file)
index edc29ea..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/006.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/not-sa/006.xml", at line 1, position 30:
-In entity [dtd] = SYSTEM "006.ent", at line 2, position 0:
-ERROR (Well-formedness constraint): Bad conditional section

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/006.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/006.xml
deleted file mode 100644 (file)
index bd2ee32..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/006.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "006.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/007.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/007.ent
deleted file mode 100644 (file)
index 62a92ed..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/007.ent
+++ /dev/null
@@ -1,3 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/007.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/007.out
deleted file mode 100644 (file)
index e8b088d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/007.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/not-sa/007.xml", at line 1, position 30:
-In entity [dtd] = SYSTEM "007.ent", at line 1, position 0:
-ERROR (Well-formedness constraint): Declaration either malformed or not allowed in this context

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/007.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/007.xml
deleted file mode 100644 (file)
index 1c5bc80..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/007.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "007.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/008.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/008.ent
deleted file mode 100644 (file)
index 11172a9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/008.ent
+++ /dev/null
@@ -1,2 +0,0 @@
-<!ELEMENT doc ANY>
-<!ENTITY e "100%">

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/008.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/008.out
deleted file mode 100644 (file)
index 7370c42..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/008.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/not-sa/008.xml", at line 1, position 30:
-In entity [dtd] = SYSTEM "008.ent", at line 2, position 17:
-ERROR (Well-formedness constraint): The character '%' must be written as '%'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/008.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/008.xml
deleted file mode 100644 (file)
index c140c0a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/not-sa/008.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc SYSTEM "008.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa-problems/140.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa-problems/140.xml
deleted file mode 100644 (file)
index 062b213..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa-problems/140.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "<&#x309a;></&#x309a;>">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa-problems/141.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa-problems/141.xml
deleted file mode 100644 (file)
index 6d864a3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa-problems/141.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "<X&#xe5c;></X&#xe5c;>">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/001.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/001.out
deleted file mode 100644 (file)
index bff9b82..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/001.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/001.xml", at line 3, position 0:
-ERROR (Well-formedness constraint): Illegal inside tags

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/001.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/001.xml
deleted file mode 100644 (file)
index 253fea6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/001.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<doc>
-<doc
-?
-<a</a>
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/002.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/002.out
deleted file mode 100644 (file)
index c6d2a49..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/002.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/002.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): The left angle bracket '<' must be written as '&lt;'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/002.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/002.xml
deleted file mode 100644 (file)
index 6ca801a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/002.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<doc>
-<.doc></.doc>
-</doc>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/003.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/003.out
deleted file mode 100644 (file)
index 65fd8ef..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/003.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/003.xml", at line 1, position 5:
-ERROR (Well-formedness constraint): Illegal token or character

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/003.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/003.xml
deleted file mode 100644 (file)
index 07a534d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/003.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><? ?></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/004.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/004.out
deleted file mode 100644 (file)
index 18d0d66..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/004.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/004.xml", at line 1, position 5:
-ERROR (Well-formedness constraint): Illegal processing instruction

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/004.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/004.xml
deleted file mode 100644 (file)
index f89e662..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/004.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><?target some data></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/005.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/005.out
deleted file mode 100644 (file)
index f5ece68..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/005.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/005.xml", at line 1, position 5:
-ERROR (Well-formedness constraint): Illegal processing instruction

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/005.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/005.xml
deleted file mode 100644 (file)
index 16127dc..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/005.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><?target some data?</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/006.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/006.out
deleted file mode 100644 (file)
index 06dd728..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/006.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/006.xml", at line 1, position 20:
-ERROR (Well-formedness constraint): Double hyphens are illegal inside comments

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/006.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/006.xml
deleted file mode 100644 (file)
index 789d0b8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/006.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><!-- a comment -- another --></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/007.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/007.out
deleted file mode 100644 (file)
index dccf064..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/007.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/007.xml", at line 1, position 5:
-ERROR (Well-formedness constraint): The ampersand '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/007.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/007.xml
deleted file mode 100644 (file)
index 2b017e3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/007.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&amp no refc</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/008.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/008.out
deleted file mode 100644 (file)
index fc16241..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/008.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/008.xml", at line 1, position 5:
-ERROR (Well-formedness constraint): The ampersand '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/008.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/008.xml
deleted file mode 100644 (file)
index 3117de4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/008.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&.entity;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/009.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/009.out
deleted file mode 100644 (file)
index 74802e5..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/009.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/009.xml", at line 1, position 5:
-ERROR (Well-formedness constraint): The ampersand '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/009.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/009.xml
deleted file mode 100644 (file)
index 62f9239..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/009.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&#RE;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/010.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/010.out
deleted file mode 100644 (file)
index c7c12d0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/010.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/010.xml", at line 1, position 7:
-ERROR (Well-formedness constraint): The ampersand '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/010.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/010.xml
deleted file mode 100644 (file)
index 44a48f9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/010.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>A & B</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/011.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/011.out
deleted file mode 100644 (file)
index af9e50e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/011.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/011.xml", at line 1, position 7:
-ERROR (Well-formedness constraint): Bad attribute list

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/011.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/011.xml
deleted file mode 100644 (file)
index ae41758..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/011.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/012.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/012.out
deleted file mode 100644 (file)
index 5447f51..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/012.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/012.xml", at line 1, position 8:
-ERROR (Well-formedness constraint): Bad attribute list

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/012.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/012.xml
deleted file mode 100644 (file)
index d4ffd74..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/012.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1=v1></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/013.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/013.out
deleted file mode 100644 (file)
index 701c4aa..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/013.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/013.xml", at line 1, position 8:
-ERROR (Well-formedness constraint): Cannot find the second quotation mark

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/013.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/013.xml
deleted file mode 100644 (file)
index c436a25..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/013.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1'></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/014.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/014.out
deleted file mode 100644 (file)
index c38c1d4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/014.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/014.xml", at line 1, position 8:
-ERROR (Well-formedness constraint): Attribute value contains character '<' literally

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/014.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/014.xml
deleted file mode 100644 (file)
index 0482941..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/014.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="<foo>"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/015.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/015.out
deleted file mode 100644 (file)
index a7826ec..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/015.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/015.xml", at line 1, position 8:
-ERROR (Well-formedness constraint): Bad attribute list

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/015.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/015.xml
deleted file mode 100644 (file)
index 6f6f32f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/015.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1=></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/016.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/016.out
deleted file mode 100644 (file)
index c7e489f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/016.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/016.xml", at line 1, position 13:
-ERROR (Well-formedness constraint): `>' or `/>' expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/016.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/016.xml
deleted file mode 100644 (file)
index 6a69ddb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/016.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="v1" "v2"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/017.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/017.out
deleted file mode 100644 (file)
index 9ad92fb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/017.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/017.xml", at line 1, position 5:
-ERROR (Well-formedness constraint): Declaration either malformed or not allowed in this context

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/017.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/017.xml
deleted file mode 100644 (file)
index 9474c49..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/017.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><![CDATA[</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/018.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/018.out
deleted file mode 100644 (file)
index 9fd2963..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/018.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/018.xml", at line 1, position 5:
-ERROR (Well-formedness constraint): Declaration either malformed or not allowed in this context

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/018.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/018.xml
deleted file mode 100644 (file)
index cdbf8b3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/018.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><![CDATA [ stuff]]></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/019.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/019.out
deleted file mode 100644 (file)
index 5e1846c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/019.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/019.xml", at line 1, position 5:
-ERROR (Well-formedness constraint): The left angle bracket '<' must be written as '&lt;'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/019.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/019.xml
deleted file mode 100644 (file)
index 7205628..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/019.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/020.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/020.out
deleted file mode 100644 (file)
index 8e64d37..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/020.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/020.xml", at line 1, position 8:
-ERROR (Well-formedness constraint): The character '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/020.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/020.xml
deleted file mode 100644 (file)
index d672b1c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/020.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="A & B"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/021.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/021.out
deleted file mode 100644 (file)
index d6e979c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/021.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/021.xml", at line 1, position 8:
-ERROR (Well-formedness constraint): The character '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/021.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/021.xml
deleted file mode 100644 (file)
index c5d1e39..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/021.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="a&b"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/022.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/022.out
deleted file mode 100644 (file)
index f16b0e4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/022.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/022.xml", at line 1, position 8:
-ERROR (Well-formedness constraint): The character '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/022.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/022.xml
deleted file mode 100644 (file)
index c47a4d6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/022.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a1="&#123:"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/023.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/023.out
deleted file mode 100644 (file)
index dca9b94..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/023.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/023.xml", at line 1, position 5:
-ERROR (Well-formedness constraint): Illegal inside tags

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/023.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/023.xml
deleted file mode 100644 (file)
index 9d1ecd8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/023.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc 12="34"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/024.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/024.out
deleted file mode 100644 (file)
index a6cec01..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/024.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/024.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): The left angle bracket '<' must be written as '&lt;'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/024.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/024.xml
deleted file mode 100644 (file)
index 3e56727..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/024.xml
+++ /dev/null
@@ -1,3 +0,0 @@
-<doc>
-<123></123>
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/025.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/025.out
deleted file mode 100644 (file)
index 8992cdf..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/025.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/025.xml", at line 1, position 5:
-ERROR (Well-formedness constraint): The sequence ']]>' must be written as ']]>'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/025.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/025.xml
deleted file mode 100644 (file)
index 9ad4266..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/025.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>]]></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/026.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/026.out
deleted file mode 100644 (file)
index 6f3ff05..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/026.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/026.xml", at line 1, position 6:
-ERROR (Well-formedness constraint): The sequence ']]>' must be written as ']]>'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/026.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/026.xml
deleted file mode 100644 (file)
index 5543609..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/026.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>]]]></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/027.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/027.out
deleted file mode 100644 (file)
index 5274a84..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/027.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/027.xml", at line 4, position 0:
-ERROR (Well-formedness constraint): `-->' expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/027.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/027.xml
deleted file mode 100644 (file)
index 0ae9fa6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/027.xml
+++ /dev/null
@@ -1,3 +0,0 @@
-<doc>
-<!-- abc
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/028.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/028.out
deleted file mode 100644 (file)
index 2f4e3b3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/028.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/028.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): Illegal processing instruction

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/028.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/028.xml
deleted file mode 100644 (file)
index 278098e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/028.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<doc>
-<?a pi that is not closed
-</doc>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/029.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/029.out
deleted file mode 100644 (file)
index 8482668..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/029.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/029.xml", at line 1, position 9:
-ERROR (Well-formedness constraint): The sequence ']]>' must be written as ']]>'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/029.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/029.xml
deleted file mode 100644 (file)
index d5e881d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/029.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>abc]]]>def</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/030.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/030.out
deleted file mode 100644 (file)
index f4bdf54..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/030.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/030.xml", at line 1, position 18:
-ERROR: Bad character stream

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/030.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/030.xml
deleted file mode 100644 (file)
index cadbbcc..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/030.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>A form feed (\f) is not legal in data</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/031.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/031.out
deleted file mode 100644 (file)
index 7d6ed42..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/031.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/031.xml", at line 1, position 5:
-ERROR (Well-formedness constraint): Illegal processing instruction

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/031.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/031.xml
deleted file mode 100644 (file)
index 3a3d82a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/031.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><?pi a form feed (\f) is not allowed in a pi?></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/032.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/032.out
deleted file mode 100644 (file)
index ea5ebf7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/032.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/032.xml", at line 1, position 23:
-ERROR: Bad character stream

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/032.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/032.xml
deleted file mode 100644 (file)
index c9981ad..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/032.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><!-- a form feed (\f) is not allowed in a comment --></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/033.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/033.out
deleted file mode 100644 (file)
index 61b6001..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/033.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/033.xml", at line 1, position 8:
-ERROR: Bad character stream

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/033.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/033.xml
deleted file mode 100644 (file)
index ea1693c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/033.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>abc\edef</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/034.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/034.out
deleted file mode 100644 (file)
index 48ee600..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/034.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/034.xml", at line 1, position 4:
-ERROR: Bad character stream

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/034.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/034.xml
deleted file mode 100644 (file)
index 84841f4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/034.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc\f>A form-feed is not white space or a name character</doc\f>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/035.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/035.out
deleted file mode 100644 (file)
index 9798306..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/035.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/035.xml", at line 1, position 7:
-ERROR (Well-formedness constraint): The left angle bracket '<' must be written as '&lt;'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/035.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/035.xml
deleted file mode 100644 (file)
index 7032f9a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/035.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>1 < 2 but not in XML</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/036.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/036.out
deleted file mode 100644 (file)
index 63baee3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/036.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/036.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): Data not allowed here

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/036.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/036.xml
deleted file mode 100644 (file)
index b3259d0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/036.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<doc></doc>
-Illegal data

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/037.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/037.out
deleted file mode 100644 (file)
index bdeb907..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/037.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/037.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): Character reference not allowed here

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/037.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/037.xml
deleted file mode 100644 (file)
index 356448a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/037.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<doc></doc>
-&#32;

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/038.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/038.out
deleted file mode 100644 (file)
index 9c9acf3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/038.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/038.xml", at line 1, position 29:
-ERROR (Well-formedness constraint): Attribute `x' occurs twice in element `doc'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/038.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/038.xml
deleted file mode 100644 (file)
index 0590e53..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/038.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc x="foo" y="bar" x="baz"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/039.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/039.out
deleted file mode 100644 (file)
index 3227cb0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/039.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/039.xml", at line 1, position 12:
-ERROR (Well-formedness constraint): End-tag does not match start-tag

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/039.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/039.xml
deleted file mode 100644 (file)
index 971effa..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/039.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><a></aa></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/040.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/040.out
deleted file mode 100644 (file)
index e58e599..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/040.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/040.xml", at line 2, position 5:
-ERROR (Well-formedness constraint): Document must consist of only one toplevel element

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/040.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/040.xml
deleted file mode 100644 (file)
index 7591d8b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/040.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<doc></doc>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/041.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/041.out
deleted file mode 100644 (file)
index c90cfad..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/041.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/041.xml", at line 2, position 5:
-ERROR (Well-formedness constraint): Document must consist of only one toplevel element

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/041.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/041.xml
deleted file mode 100644 (file)
index 405efd3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/041.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<doc/>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/042.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/042.out
deleted file mode 100644 (file)
index ea78b5e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/042.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/042.xml", at line 1, position 11:
-SYNTAX ERROR

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/042.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/042.xml
deleted file mode 100644 (file)
index 1247cc8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/042.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc/></doc/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/043.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/043.out
deleted file mode 100644 (file)
index 24860aa..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/043.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/043.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): Data not allowed here

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/043.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/043.xml
deleted file mode 100644 (file)
index 5cc527c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/043.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<doc/>
-Illegal data

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/044.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/044.out
deleted file mode 100644 (file)
index 573b7c4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/044.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/044.xml", at line 1, position 12:
-ERROR (Well-formedness constraint): Document must consist of only one toplevel element

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/044.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/044.xml
deleted file mode 100644 (file)
index b71d062..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/044.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc/><doc/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/045.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/045.out
deleted file mode 100644 (file)
index 78a1ed3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/045.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/045.xml", at line 2, position 2:
-ERROR (Well-formedness constraint): Illegal inside tags

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/045.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/045.xml
deleted file mode 100644 (file)
index f7540e8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/045.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<doc>
-<a/
-</doc>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/046.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/046.out
deleted file mode 100644 (file)
index 790f167..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/046.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/046.xml", at line 2, position 2:
-ERROR (Well-formedness constraint): Illegal inside tags

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/046.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/046.xml
deleted file mode 100644 (file)
index d5d901e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/046.xml
+++ /dev/null
@@ -1,3 +0,0 @@
-<doc>
-<a/</a>
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/047.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/047.out
deleted file mode 100644 (file)
index 6b2fd78..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/047.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/047.xml", at line 2, position 3:
-ERROR (Well-formedness constraint): Illegal inside tags

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/047.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/047.xml
deleted file mode 100644 (file)
index 00ae523..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/047.xml
+++ /dev/null
@@ -1,3 +0,0 @@
-<doc>
-<a / >
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/048.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/048.out
deleted file mode 100644 (file)
index 4d54039..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/048.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/048.xml", at line 3, position 0:
-ERROR (Well-formedness constraint): CDATA section not allowed here

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/048.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/048.xml
deleted file mode 100644 (file)
index 9092ffa..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/048.xml
+++ /dev/null
@@ -1,3 +0,0 @@
-<doc>
-</doc>
-<![CDATA[]]>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/049.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/049.out
deleted file mode 100644 (file)
index 260dee4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/049.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/049.xml", at line 3, position 15:
-ERROR (Well-formedness constraint): End-tag does not match start-tag

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/049.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/049.xml
deleted file mode 100644 (file)
index e5a6b70..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/049.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<doc>
-<a><![CDATA[xyz]]]></a>
-<![CDATA[]]></a>
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/050.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/050.out
deleted file mode 100644 (file)
index b813938..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/050.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/050.xml", at line 1, position 0:
-SYNTAX ERROR

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/050.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/050.xml
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/051.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/051.out
deleted file mode 100644 (file)
index 15e4f65..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/051.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/051.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): Declaration either malformed or not allowed in this context

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/051.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/051.xml
deleted file mode 100644 (file)
index 19f13de..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/051.xml
+++ /dev/null
@@ -1,3 +0,0 @@
-<!-- a comment -->
-<![CDATA[]]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/052.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/052.out
deleted file mode 100644 (file)
index 331a4c3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/052.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/052.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): Content not allowed here

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/052.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/052.xml
deleted file mode 100644 (file)
index b3fe376..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/052.xml
+++ /dev/null
@@ -1,3 +0,0 @@
-<!-- a comment -->
-&#32;
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/053.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/053.out
deleted file mode 100644 (file)
index 88a0dda..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/053.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/053.xml", at line 1, position 10:
-ERROR (Well-formedness constraint): End-tag does not match start-tag

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/053.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/053.xml
deleted file mode 100644 (file)
index bf5c6d5..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/053.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc></DOC>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/054.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/054.out
deleted file mode 100644 (file)
index e20db32..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/054.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/054.xml", at line 2, position 36:
-ERROR (Well-formedness constraint): Whitespace is missing between the literals of the PUBLIC identifier

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/054.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/054.xml
deleted file mode 100644 (file)
index f4d24e2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/054.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY foo PUBLIC "some public id">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/055.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/055.out
deleted file mode 100644 (file)
index 9d9f52d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/055.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/055.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): Illegal token or character

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/055.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/055.xml
deleted file mode 100644 (file)
index ae922ee..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/055.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc [
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/056.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/056.out
deleted file mode 100644 (file)
index ba062b0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/056.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/056.xml", at line 1, position 14:
-ERROR (Well-formedness constraint): Content not allowed here

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/056.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/056.xml
deleted file mode 100644 (file)
index b4a32cb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/056.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc -- a comment -- []>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/057.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/057.out
deleted file mode 100644 (file)
index 66ab6fa..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/057.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/057.xml", at line 2, position 22:
-ERROR (Well-formedness constraint): `>' expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/057.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/057.xml
deleted file mode 100644 (file)
index af3b264..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/057.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "whatever" -- a comment -->
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/058.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/058.out
deleted file mode 100644 (file)
index 4a42cd2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/058.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/058.xml", at line 3, position 21:
-ERROR (Well-formedness constraint): `|' and more names expected, or `)'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/058.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/058.xml
deleted file mode 100644 (file)
index 6b525cf..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/058.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 (foo,bar) #IMPLIED>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/059.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/059.out
deleted file mode 100644 (file)
index a31204f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/059.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/059.xml", at line 3, position 25:
-ERROR (Well-formedness constraint): #REQUIRED, #IMPLIED, #FIXED or a string literal expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/059.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/059.xml
deleted file mode 100644 (file)
index 4a5c956..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/059.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 NMTOKEN v1>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/060.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/060.out
deleted file mode 100644 (file)
index 295f543..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/060.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/060.xml", at line 3, position 21:
-ERROR (Well-formedness constraint): One of CDATA, ID, IDREF, IDREFS, ENTITY, ENTITIES, NMTOKEN, NMTOKENS, NOTATION, or a subexpression expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/060.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/060.xml
deleted file mode 100644 (file)
index 3ddde34..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/060.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 NAME #IMPLIED>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/061.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/061.out
deleted file mode 100644 (file)
index 1545e27..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/061.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/061.xml", at line 2, position 28:
-ERROR (Well-formedness constraint): Whitespace is missing between the literals of the PUBLIC identifier

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/061.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/061.xml
deleted file mode 100644 (file)
index d58093d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/061.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e PUBLIC "whatever""e.ent">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/062.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/062.out
deleted file mode 100644 (file)
index 581d3bb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/062.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/062.xml", at line 2, position 12:
-ERROR (Well-formedness constraint): Whitespace is missing

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/062.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/062.xml
deleted file mode 100644 (file)
index 4f091e4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/062.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY foo"some text">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/063.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/063.out
deleted file mode 100644 (file)
index 128b191..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/063.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/063.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): Restriction of the internal subset: Conditional sections not allowed

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/063.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/063.xml
deleted file mode 100644 (file)
index f9bd03c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/063.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<![INCLUDE[ ]]>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/064.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/064.out
deleted file mode 100644 (file)
index ad7f21c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/064.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/064.xml", at line 3, position 20:
-ERROR (Well-formedness constraint): Whitespace is missing

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/064.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/064.xml
deleted file mode 100644 (file)
index f8d5894..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/064.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST e a1 CDATA"foo">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/065.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/065.out
deleted file mode 100644 (file)
index 4675f75..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/065.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/065.xml", at line 3, position 16:
-ERROR (Well-formedness constraint): Whitespace is missing

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/065.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/065.xml
deleted file mode 100644 (file)
index 29dc6e5..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/065.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1(foo|bar) #IMPLIED>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/066.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/066.out
deleted file mode 100644 (file)
index 0812fc4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/066.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/066.xml", at line 3, position 26:
-ERROR (Well-formedness constraint): Whitespace is missing

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/066.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/066.xml
deleted file mode 100644 (file)
index 04dbdb7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/066.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 (foo|bar)#IMPLIED>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/067.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/067.out
deleted file mode 100644 (file)
index 4ed7110..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/067.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/067.xml", at line 3, position 22:
-ERROR (Well-formedness constraint): Whitespace is missing

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/067.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/067.xml
deleted file mode 100644 (file)
index de12579..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/067.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 (foo)"foo">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/068.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/068.out
deleted file mode 100644 (file)
index 186ea42..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/068.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/068.xml", at line 3, position 25:
-ERROR (Well-formedness constraint): Error in NOTATION type (perhaps missing whitespace after NOTATION?)

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/068.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/068.xml
deleted file mode 100644 (file)
index 9f4a009..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/068.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a1 NOTATION(foo) #IMPLIED>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/069.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/069.out
deleted file mode 100644 (file)
index d508784..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/069.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/069.xml", at line 4, position 38:
-ERROR (Well-formedness constraint): Whitespace missing before `NDATA'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/069.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/069.xml
deleted file mode 100644 (file)
index a3ac7ea..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/069.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!NOTATION eps SYSTEM "eps.exe">
-<!-- missing space before NDATA -->
-<!ENTITY foo SYSTEM "foo.eps"NDATA eps>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/070.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/070.out
deleted file mode 100644 (file)
index d0813ed..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/070.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/070.xml", at line 1, position 40:
-ERROR (Well-formedness constraint): Double hyphens are illegal inside comments

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/070.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/070.xml
deleted file mode 100644 (file)
index a3ec12f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/070.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!-- a comment ending with three dashes --->
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/071.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/071.out
deleted file mode 100644 (file)
index 01100f9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/071.out
+++ /dev/null
@@ -1,5 +0,0 @@
-In entity e3, at line 1, position 0:
-Called from entity e2, line 1, position 0:
-Called from entity e1, line 1, position 0:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/071.xml", line 6, position 5:
-ERROR (Validity constraint): Recursive reference to entity `e1'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/071.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/071.xml
deleted file mode 100644 (file)
index 8fe3ef7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/071.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e1 "&e2;">
-<!ENTITY e2 "&e3;">
-<!ENTITY e3 "&e1;">
-]>
-<doc>&e1;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/072.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/072.out
deleted file mode 100644 (file)
index 5534c5c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/072.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/072.xml", at line 1, position 5:
-ERROR (Well-formedness constraint): Reference to undeclared general entity `foo'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/072.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/072.xml
deleted file mode 100644 (file)
index 65fd17c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/072.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&foo;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/073.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/073.out
deleted file mode 100644 (file)
index 855179a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/073.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/073.xml", at line 4, position 5:
-ERROR (Well-formedness constraint): Reference to undeclared general entity `f'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/073.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/073.xml
deleted file mode 100644 (file)
index cd61644..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/073.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "whatever">
-]>
-<doc>&f;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/074.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/074.out
deleted file mode 100644 (file)
index 5cf7301..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/074.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity e, at line 1, position 5:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/074.xml", line 5, position 5:
-ERROR (Well-formedness constraint): End-tag not in the same entity as the start-tag

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/074.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/074.xml
deleted file mode 100644 (file)
index dca3f11..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/074.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "</foo><foo>">
-]>
-<doc>
-<foo>&e;</foo>
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/075.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/075.out
deleted file mode 100644 (file)
index ed842c9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/075.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/075.xml", at line 6, position 7:
-ERROR (Well-formedness constraint): Recursive reference to general entity `e1'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/075.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/075.xml
deleted file mode 100644 (file)
index 9784de3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/075.xml
+++ /dev/null
@@ -1,7 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e1 "&e2;">
-<!ENTITY e2 "&e3;">
-<!ENTITY e3 "&e1;">
-]>
-<doc a="&e1;"></doc>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/076.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/076.out
deleted file mode 100644 (file)
index 63a0d38..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/076.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/076.xml", at line 1, position 7:
-ERROR (Well-formedness constraint): Reference to undeclared general entity `foo'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/076.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/076.xml
deleted file mode 100644 (file)
index 4064194..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/076.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a="&foo;"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/077.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/077.out
deleted file mode 100644 (file)
index 6c854b7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/077.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/077.xml", at line 4, position 7:
-ERROR (Well-formedness constraint): Reference to undeclared general entity `bar'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/077.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/077.xml
deleted file mode 100644 (file)
index 36f3391..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/077.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY foo "&bar;">
-]>
-<doc a="&foo;"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/078.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/078.out
deleted file mode 100644 (file)
index fffb553..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/078.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/078.xml", at line 3, position 22:
-ERROR (Well-formedness constraint): Reference to undeclared general entity `foo'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/078.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/078.xml
deleted file mode 100644 (file)
index e3af2f2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/078.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA "&foo;">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/079.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/079.out
deleted file mode 100644 (file)
index 5469d59..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/079.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/079.xml", at line 6, position 22:
-ERROR (Well-formedness constraint): Recursive reference to general entity `e1'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/079.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/079.xml
deleted file mode 100644 (file)
index c778a80..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/079.xml
+++ /dev/null
@@ -1,8 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e1 "&e2;">
-<!ENTITY e2 "&e3;">
-<!ENTITY e3 "&e1;">
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA "&e1;">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/080.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/080.out
deleted file mode 100644 (file)
index aadb4b7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/080.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/080.xml", at line 6, position 29:
-ERROR (Well-formedness constraint): Recursive reference to general entity `e1'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/080.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/080.xml
deleted file mode 100644 (file)
index 4949e99..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/080.xml
+++ /dev/null
@@ -1,8 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e1 "&e2;">
-<!ENTITY e2 "&e3;">
-<!ENTITY e3 "&e1;">
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA #FIXED "&e1;">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/081.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/081.out
deleted file mode 100644 (file)
index cdaf257..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/081.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/081.xml", at line 4, position 7:
-Other exception: Sys_error("/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/nul: No such file or directory")

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/081.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/081.xml
deleted file mode 100644 (file)
index 3be7e41..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/081.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e SYSTEM "nul">
-]>
-<doc a="&e;"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/082.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/082.out
deleted file mode 100644 (file)
index 72a6b3a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/082.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/082.xml", at line 4, position 22:
-Other exception: Sys_error("/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/nul: No such file or directory")

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/082.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/082.xml
deleted file mode 100644 (file)
index f99640f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/082.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e SYSTEM "nul">
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA "&e;">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/083.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/083.out
deleted file mode 100644 (file)
index 0744b43..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/083.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/083.xml", at line 4, position 5:
-ERROR (Validity constraint): Invalid reference to NDATA entity e

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/083.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/083.xml
deleted file mode 100644 (file)
index 8d6ff96..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/083.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e SYSTEM "nul" NDATA n>
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/084.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/084.out
deleted file mode 100644 (file)
index 3a09c34..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/084.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/084.xml", at line 4, position 22:
-ERROR (Validity constraint): Invalid reference to NDATA entity e

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/084.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/084.xml
deleted file mode 100644 (file)
index 5b10fb9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/084.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e SYSTEM "nul" NDATA n>
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA "&e;">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/085.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/085.out
deleted file mode 100644 (file)
index 87ff19d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/085.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/085.xml", at line 1, position 25:
-ERROR (Well-formedness constraint): Illegal character in PUBLIC identifier

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/085.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/085.xml
deleted file mode 100644 (file)
index 1d64364..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/085.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!DOCTYPE doc PUBLIC "[" "null.ent">
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/086.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/086.out
deleted file mode 100644 (file)
index 63bb4a1..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/086.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/086.xml", at line 2, position 24:
-ERROR (Well-formedness constraint): Illegal character in PUBLIC identifier

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/086.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/086.xml
deleted file mode 100644 (file)
index 454893a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/086.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY foo PUBLIC "[" "null.xml">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/087.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/087.out
deleted file mode 100644 (file)
index 4dc1495..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/087.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/087.xml", at line 2, position 36:
-ERROR (Well-formedness constraint): Illegal character in PUBLIC identifier

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/087.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/087.xml
deleted file mode 100644 (file)
index 01e8760..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/087.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!NOTATION foo PUBLIC "[" "null.ent">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/088.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/088.out
deleted file mode 100644 (file)
index 574049d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/088.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/088.xml", at line 6, position 7:
-ERROR (Well-formedness constraint): Cannot find the second quotation mark

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/088.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/088.xml
deleted file mode 100644 (file)
index a581de8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/088.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA #IMPLIED>
-<!ENTITY e '"'>
-]>
-<doc a="&e;></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/089.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/089.out
deleted file mode 100644 (file)
index 6640fe9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/089.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/089.xml", at line 2, position 32:
-ERROR (Well-formedness constraint): `>' expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/089.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/089.xml
deleted file mode 100644 (file)
index a788aab..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/089.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY % foo SYSTEM "foo.xml" NDATA bar>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/090.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/090.out
deleted file mode 100644 (file)
index 82d8758..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/090.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity e, at line 1, position 7:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/090.xml", line 4, position 5:
-ERROR (Well-formedness constraint): Attribute value contains character '<' literally

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/090.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/090.xml
deleted file mode 100644 (file)
index f82c238..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/090.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "<foo a='&#60;'></foo>">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/091.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/091.out
deleted file mode 100644 (file)
index 9b96ad6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/091.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/091.xml", at line 3, position 32:
-ERROR (Well-formedness constraint): `>' expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/091.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/091.xml
deleted file mode 100644 (file)
index 9601dcb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/091.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!NOTATION n SYSTEM "n">
-<!ENTITY % foo SYSTEM "foo.xml" NDATA n>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/092.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/092.out
deleted file mode 100644 (file)
index b32fb9a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/092.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity e, at line 1, position 7:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/092.xml", line 4, position 5:
-ERROR (Well-formedness constraint): The character '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/092.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/092.xml
deleted file mode 100644 (file)
index a867ecd..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/092.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "<foo a='&#38;'></foo>">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/093.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/093.out
deleted file mode 100644 (file)
index eda559a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/093.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/093.xml", at line 1, position 5:
-ERROR (Well-formedness constraint): The ampersand '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/093.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/093.xml
deleted file mode 100644 (file)
index a5f8638..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/093.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>&#X58;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/094.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/094.out
deleted file mode 100644 (file)
index 0422cf8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/094.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/094.xml", at line 1, position 0:
-ERROR (Well-formedness constraint): Bad XML declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/094.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/094.xml
deleted file mode 100644 (file)
index 483ed52..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/094.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<?xml VERSION="1.0"?>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/095.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/095.out
deleted file mode 100644 (file)
index 9f39293..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/095.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/095.xml", at line 1, position 0:
-ERROR (Well-formedness constraint): Bad XML declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/095.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/095.xml
deleted file mode 100644 (file)
index ba2cbe8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/095.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<?xml encoding="UTF-8" version="1.0"?>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/096.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/096.out
deleted file mode 100644 (file)
index 17a3a1b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/096.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/096.xml", at line 1, position 0:
-ERROR (Well-formedness constraint): Cannot find the second quotation mark

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/096.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/096.xml
deleted file mode 100644 (file)
index f41eaba..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/096.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<?xml version="1.0"encoding="UTF-8" ?>
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/097.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/097.out
deleted file mode 100644 (file)
index 3e512b4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/097.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/097.xml", at line 1, position 0:
-ERROR (Well-formedness constraint): Cannot find the second quotation mark

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/097.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/097.xml
deleted file mode 100644 (file)
index 3b95065..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/097.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<?xml version="1.0' encoding="UTF-8" ?>
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/098.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/098.out
deleted file mode 100644 (file)
index 0e7f223..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/098.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/098.xml", at line 1, position 0:
-ERROR (Well-formedness constraint): Bad XML declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/098.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/098.xml
deleted file mode 100644 (file)
index 9627acb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/098.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<?xml version="1.0" version="1.0"?>
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/099.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/099.out
deleted file mode 100644 (file)
index e7471f8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/099.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/099.xml", at line 1, position 0:
-ERROR (Well-formedness constraint): Bad XML declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/099.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/099.xml
deleted file mode 100644 (file)
index 02637f0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/099.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<?xml version="1.0" valid="no" ?>
-<doc></doc>
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/100.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/100.out
deleted file mode 100644 (file)
index c4ec738..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/100.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/100.xml", at line 1, position 0:
-ERROR (Well-formedness constraint): Illegal 'standalone' declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/100.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/100.xml
deleted file mode 100644 (file)
index 38beda8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/100.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<?xml version="1.0" standalone="YES" ?>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/101.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/101.out
deleted file mode 100644 (file)
index 8c31631..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/101.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/101.xml", at line 1, position 0:
-Other exception: Failure("Netconversion.encoding_of_string: unknown encoding")

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/101.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/101.xml
deleted file mode 100644 (file)
index 6191a80..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/101.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<?xml version="1.0" encoding=" UTF-8"?>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/102.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/102.out
deleted file mode 100644 (file)
index 895c6b8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/102.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/102.xml", at line 1, position 0:
-ERROR (Well-formedness constraint): Bad XML version string

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/102.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/102.xml
deleted file mode 100644 (file)
index a4cde40..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/102.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<?xml version="1.0 " ?>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/103.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/103.out
deleted file mode 100644 (file)
index 86dda33..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/103.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/103.xml", at line 4, position 13:
-ERROR (Well-formedness constraint): End-tag does not match start-tag

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/103.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/103.xml
deleted file mode 100644 (file)
index fc5d152..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/103.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "&#60;foo>">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/104.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/104.out
deleted file mode 100644 (file)
index b3c9bbb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/104.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/104.xml", at line 4, position 13:
-ERROR (Well-formedness constraint): End-tag not in the same entity as the start-tag

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/104.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/104.xml
deleted file mode 100644 (file)
index b35b90e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/104.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "<foo>">
-]>
-<doc>&e;</foo></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/105.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/105.out
deleted file mode 100644 (file)
index 146e980..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/105.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/105.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): Declaration either malformed or not allowed in this context

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/105.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/105.xml
deleted file mode 100644 (file)
index 5f60551..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/105.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<?pi stuff?>
-<![CDATA[]]>
-<doc>
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/106.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/106.out
deleted file mode 100644 (file)
index cec4501..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/106.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/106.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): Content not allowed here

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/106.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/106.xml
deleted file mode 100644 (file)
index 87c56d7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/106.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<?pi data?>
-&#32;<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/107.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/107.out
deleted file mode 100644 (file)
index 8f6919d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/107.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/107.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): Restriction of the internal subset: Conditional sections not allowed

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/107.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/107.xml
deleted file mode 100644 (file)
index 2a69906..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/107.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<![CDATA[]]>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/108.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/108.out
deleted file mode 100644 (file)
index bbca44b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/108.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/108.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): Declaration either malformed or not allowed in this context

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/108.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/108.xml
deleted file mode 100644 (file)
index 187b07f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/108.xml
+++ /dev/null
@@ -1,3 +0,0 @@
-<doc>
-<![CDATA [  ]]>
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/109.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/109.out
deleted file mode 100644 (file)
index bf1f79a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/109.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/109.xml", at line 4, position 0:
-ERROR (Well-formedness constraint): Content not allowed here

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/109.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/109.xml
deleted file mode 100644 (file)
index 33b1cf3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/109.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "<doc></doc>">
-]>
-&e;

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/110.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/110.out
deleted file mode 100644 (file)
index 4176538..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/110.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/110.xml", at line 5, position 3:
-ERROR (Well-formedness constraint): Entity reference not allowed here

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/110.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/110.xml
deleted file mode 100644 (file)
index 4d7bf99..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/110.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "">
-]>
-<doc></doc>
-&e;

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/111.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/111.out
deleted file mode 100644 (file)
index be02f88..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/111.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/111.xml", at line 4, position 5:
-ERROR (Well-formedness constraint): Illegal inside tags

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/111.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/111.xml
deleted file mode 100644 (file)
index 530c6cc..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/111.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "foo='bar'">
-]>
-<doc &e;></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/112.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/112.out
deleted file mode 100644 (file)
index 5361f56..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/112.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/112.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): Declaration either malformed or not allowed in this context

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/112.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/112.xml
deleted file mode 100644 (file)
index 13cfcc5..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/112.xml
+++ /dev/null
@@ -1,3 +0,0 @@
-<doc>
-<![cdata[data]]>
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/113.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/113.out
deleted file mode 100644 (file)
index 23c9284..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/113.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/113.xml", at line 2, position 18:
-ERROR (Well-formedness constraint): The character '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/113.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/113.xml
deleted file mode 100644 (file)
index 899102b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/113.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY % foo "&">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/114.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/114.out
deleted file mode 100644 (file)
index 06be1fd..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/114.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/114.xml", at line 2, position 16:
-ERROR (Well-formedness constraint): The character '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/114.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/114.xml
deleted file mode 100644 (file)
index 32d6d07..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/114.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY foo "&">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/115.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/115.out
deleted file mode 100644 (file)
index 54a9241..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/115.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/115.xml", at line 4, position 7:
-ERROR (Well-formedness constraint): The character '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/115.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/115.xml
deleted file mode 100644 (file)
index af014a0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/115.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "&#38;">
-]>
-<doc a="&e;"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/116.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/116.out
deleted file mode 100644 (file)
index bebbe2c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/116.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity e, at line 1, position 0:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/116.xml", line 4, position 5:
-ERROR (Well-formedness constraint): The ampersand '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/116.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/116.xml
deleted file mode 100644 (file)
index ce37ca0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/116.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "&#38;#9">
-]>
-<doc>&e;7;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/117.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/117.out
deleted file mode 100644 (file)
index 2b613d7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/117.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity e, at line 1, position 0:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/117.xml", line 4, position 5:
-ERROR (Well-formedness constraint): The ampersand '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/117.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/117.xml
deleted file mode 100644 (file)
index 5ba4eb0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/117.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "&#38;">
-]>
-<doc>&e;#97;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/118.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/118.out
deleted file mode 100644 (file)
index fda0ee4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/118.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/118.xml", at line 4, position 5:
-ERROR (Well-formedness constraint): The ampersand '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/118.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/118.xml
deleted file mode 100644 (file)
index 49b4b8c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/118.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "#">
-]>
-<doc>&&e;97;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/119.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/119.out
deleted file mode 100644 (file)
index 0c3a84a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/119.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity e, at line 1, position 0:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/119.xml", line 5, position 0:
-ERROR (Well-formedness constraint): The ampersand '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/119.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/119.xml
deleted file mode 100644 (file)
index 7ee56be..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/119.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "&#38;">
-]>
-<doc>
-&e;#38;
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/120.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/120.out
deleted file mode 100644 (file)
index 4b1ff9c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/120.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity e, at line 1, position 0:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/120.xml", line 5, position 0:
-ERROR (Well-formedness constraint): The ampersand '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/120.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/120.xml
deleted file mode 100644 (file)
index ae8f55a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/120.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "&#38;">
-]>
-<doc>
-&e;
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/121.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/121.out
deleted file mode 100644 (file)
index 1daf3a8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/121.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/121.xml", at line 2, position 9:
-ERROR (Well-formedness constraint): Illegal token or character

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/121.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/121.xml
deleted file mode 100644 (file)
index 63ecbe4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/121.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY #DEFAULT "default">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/122.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/122.out
deleted file mode 100644 (file)
index 8d65e69..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/122.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/122.xml", at line 2, position 27:
-ERROR (Well-formedness constraint): It is not allowed to mix alternatives and sequences

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/122.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/122.xml
deleted file mode 100644 (file)
index e8a7082..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/122.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (a, (b) | c)?>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/123.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/123.out
deleted file mode 100644 (file)
index 50f7364..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/123.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/123.xml", at line 2, position 22:
-ERROR (Well-formedness constraint): `>' expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/123.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/123.xml
deleted file mode 100644 (file)
index f2dc633..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/123.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc ((doc?)))>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/124.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/124.out
deleted file mode 100644 (file)
index 9d1931c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/124.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/124.xml", at line 2, position 19:
-ERROR (Well-formedness constraint): Bad content model expression

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/124.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/124.xml
deleted file mode 100644 (file)
index 1abde7b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/124.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (doc|#PCDATA)*>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/125.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/125.out
deleted file mode 100644 (file)
index adb0e6e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/125.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/125.xml", at line 2, position 16:
-ERROR (Well-formedness constraint): Bad content model expression

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/125.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/125.xml
deleted file mode 100644 (file)
index 15519d4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/125.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc ((#PCDATA))>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/126.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/126.out
deleted file mode 100644 (file)
index 8a93b34..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/126.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/126.xml", at line 2, position 22:
-ERROR (Well-formedness constraint): Bad content model expression

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/126.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/126.xml
deleted file mode 100644 (file)
index b6cdb0c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/126.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)+>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/127.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/127.out
deleted file mode 100644 (file)
index 9deb084..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/127.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/127.xml", at line 2, position 22:
-ERROR (Well-formedness constraint): Bad content model expression

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/127.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/127.xml
deleted file mode 100644 (file)
index 557df35..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/127.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)?>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/128.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/128.out
deleted file mode 100644 (file)
index 3fa460a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/128.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/128.xml", at line 2, position 14:
-ERROR (Well-formedness constraint): EMPTY, ANY, or a subexpression expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/128.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/128.xml
deleted file mode 100644 (file)
index e8f8543..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/128.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc CDATA>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/129.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/129.out
deleted file mode 100644 (file)
index 0762512..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/129.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/129.xml", at line 2, position 14:
-ERROR (Well-formedness constraint): Content model expression expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/129.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/129.xml
deleted file mode 100644 (file)
index 6471a8d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/129.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc - - (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/130.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/130.out
deleted file mode 100644 (file)
index 6cd8d45..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/130.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/130.xml", at line 2, position 21:
-ERROR (Well-formedness constraint): `>' expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/130.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/130.xml
deleted file mode 100644 (file)
index a4f0e86..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/130.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (doc?) +(foo)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/131.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/131.out
deleted file mode 100644 (file)
index 4bc40b0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/131.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/131.xml", at line 2, position 21:
-ERROR (Well-formedness constraint): `>' expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/131.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/131.xml
deleted file mode 100644 (file)
index 783537f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/131.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (doc?) -(foo)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/132.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/132.out
deleted file mode 100644 (file)
index cf96a2b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/132.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/132.xml", at line 2, position 41:
-ERROR (Well-formedness constraint): It is not allowed to mix alternatives and sequences

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/132.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/132.xml
deleted file mode 100644 (file)
index 00823ff..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/132.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (a, (b, c), (d, (e, f) | g))?>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/133.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/133.out
deleted file mode 100644 (file)
index 9910ede..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/133.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/133.xml", at line 2, position 17:
-ERROR (Well-formedness constraint): Bad content model expression

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/133.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/133.xml
deleted file mode 100644 (file)
index d7444eb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/133.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (a *)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/134.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/134.out
deleted file mode 100644 (file)
index ebb96aa..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/134.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/134.xml", at line 2, position 18:
-ERROR (Well-formedness constraint): `>' expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/134.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/134.xml
deleted file mode 100644 (file)
index 78b1a59..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/134.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (a) *>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/135.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/135.out
deleted file mode 100644 (file)
index 9a95cbd..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/135.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/135.xml", at line 2, position 17:
-ERROR (Well-formedness constraint): References to general entities not allowed in DTDs

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/135.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/135.xml
deleted file mode 100644 (file)
index 6e2421e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/135.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (a & b)?>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/136.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/136.out
deleted file mode 100644 (file)
index 3af635a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/136.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/136.xml", at line 2, position 14:
-ERROR (Well-formedness constraint): EMPTY, ANY, or a subexpression expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/136.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/136.xml
deleted file mode 100644 (file)
index a1a0b2e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/136.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc O O (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/137.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/137.out
deleted file mode 100644 (file)
index b5659d7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/137.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/137.xml", at line 2, position 13:
-ERROR (Well-formedness constraint): Whitespace is missing

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/137.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/137.xml
deleted file mode 100644 (file)
index de472bd..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/137.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc(#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/138.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/138.out
deleted file mode 100644 (file)
index 405657a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/138.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/138.xml", at line 2, position 19:
-ERROR (Well-formedness constraint): Bad content model expression

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/138.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/138.xml
deleted file mode 100644 (file)
index d81dd54..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/138.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (doc*?)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/139.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/139.out
deleted file mode 100644 (file)
index a376e2b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/139.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/139.xml", at line 2, position 15:
-ERROR (Well-formedness constraint): Bad content model expression

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/139.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/139.xml
deleted file mode 100644 (file)
index 2c6c92e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/139.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc ()>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/140.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/140.out
deleted file mode 100644 (file)
index abf07ef..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/140.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity e, at line 1, position 0:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/140.xml", line 4, position 5:
-ERROR (Well-formedness constraint): The left angle bracket '<' must be written as '&lt;'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/140.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/140.xml
deleted file mode 100644 (file)
index 062b213..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/140.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "<&#x309a;></&#x309a;>">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/141.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/141.out
deleted file mode 100644 (file)
index cbd6185..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/141.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity e, at line 1, position 2:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/141.xml", line 4, position 5:
-ERROR (Well-formedness constraint): Illegal inside tags

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/141.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/141.xml
deleted file mode 100644 (file)
index 6d864a3..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/141.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "<X&#xe5c;></X&#xe5c;>">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/142.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/142.out
deleted file mode 100644 (file)
index 88943b2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/142.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/142.xml", at line 4, position 5:
-ERROR (Well-formedness constraint): Code point 0 outside the accepted range of code points

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/142.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/142.xml
deleted file mode 100644 (file)
index 57517d2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/142.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&#0;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/143.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/143.out
deleted file mode 100644 (file)
index d1b511b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/143.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/143.xml", at line 4, position 5:
-ERROR (Well-formedness constraint): Code point 31 outside the accepted range of code points

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/143.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/143.xml
deleted file mode 100644 (file)
index 52c25d7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/143.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&#31;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/144.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/144.out
deleted file mode 100644 (file)
index d67fe5a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/144.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/144.xml", at line 4, position 5:
-ERROR (Well-formedness constraint): Code point 65535 outside the accepted range of code points

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/144.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/144.xml
deleted file mode 100644 (file)
index 0f98e23..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/144.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&#xFFFF;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/145.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/145.out
deleted file mode 100644 (file)
index 4c79e18..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/145.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/145.xml", at line 4, position 5:
-ERROR (Well-formedness constraint): Code point 55296 outside the accepted range of code points

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/145.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/145.xml
deleted file mode 100644 (file)
index 4909796..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/145.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&#xD800;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/146.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/146.out
deleted file mode 100644 (file)
index f90c91c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/146.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/146.xml", at line 4, position 5:
-ERROR (Well-formedness constraint): Code point 1114112 outside the accepted range of code points

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/146.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/146.xml
deleted file mode 100644 (file)
index 53e9875..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/146.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&#x110000;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/147.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/147.out
deleted file mode 100644 (file)
index 41035fe..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/147.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/147.xml", at line 2, position 0:
-SYNTAX ERROR

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/147.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/147.xml
deleted file mode 100644 (file)
index 93fa1ee..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/147.xml
+++ /dev/null
@@ -1,3 +0,0 @@
-
-<?xml version="1.0"?>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/148.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/148.out
deleted file mode 100644 (file)
index c42a3e9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/148.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/148.xml", at line 2, position 0:
-SYNTAX ERROR

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/148.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/148.xml
deleted file mode 100644 (file)
index a1623d5..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/148.xml
+++ /dev/null
@@ -1,3 +0,0 @@
-<!-- -->
-<?xml version="1.0"?>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/149.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/149.out
deleted file mode 100644 (file)
index 71e2832..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/149.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/149.xml", at line 3, position 0:
-ERROR (Well-formedness constraint): `]' expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/149.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/149.xml
deleted file mode 100644 (file)
index 0632eb7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/149.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<?xml version="1.0"?>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/150.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/150.out
deleted file mode 100644 (file)
index 160ef30..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/150.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/150.xml", at line 2, position 0:
-SYNTAX ERROR

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/150.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/150.xml
deleted file mode 100644 (file)
index e7c6e8c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/150.xml
+++ /dev/null
@@ -1,3 +0,0 @@
-<doc>
-<?xml version="1.0"?>
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/151.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/151.out
deleted file mode 100644 (file)
index 444e8d6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/151.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/151.xml", at line 3, position 0:
-SYNTAX ERROR

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/151.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/151.xml
deleted file mode 100644 (file)
index fd9616c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/151.xml
+++ /dev/null
@@ -1,3 +0,0 @@
-<doc>
-</doc>
-<?xml version="1.0"?>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/152.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/152.out
deleted file mode 100644 (file)
index 211ee8a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/152.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/152.xml", at line 1, position 0:
-ERROR (Well-formedness constraint): Bad XML declaration

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/152.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/152.xml
deleted file mode 100644 (file)
index 3245b2e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/152.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<?xml encoding="UTF-8"?>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/153.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/153.out
deleted file mode 100644 (file)
index 923e998..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/153.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity e, at line 1, position 0:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/153.xml", line 5, position 5:
-SYNTAX ERROR

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/153.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/153.xml
deleted file mode 100644 (file)
index 07bd8df..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/153.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e "<?xml encoding='UTF-8'?>">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/154.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/154.out
deleted file mode 100644 (file)
index c8d7702..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/154.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/154.xml", at line 1, position 0:
-ERROR (Well-formedness constraint): Reserved processing instruction

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/154.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/154.xml
deleted file mode 100644 (file)
index f58969c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/154.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<?XML version="1.0"?>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/155.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/155.out
deleted file mode 100644 (file)
index 36fc528..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/155.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/155.xml", at line 1, position 0:
-ERROR (Well-formedness constraint): Reserved processing instruction

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/155.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/155.xml
deleted file mode 100644 (file)
index 87eccf0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/155.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<?xmL version="1.0"?>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/156.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/156.out
deleted file mode 100644 (file)
index 88abf6a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/156.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/156.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): Reserved processing instruction

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/156.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/156.xml
deleted file mode 100644 (file)
index 98e2c4b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/156.xml
+++ /dev/null
@@ -1,3 +0,0 @@
-<doc>
-<?xMl version="1.0"?>
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/157.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/157.out
deleted file mode 100644 (file)
index 793da43..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/157.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/157.xml", at line 2, position 0:
-ERROR (Well-formedness constraint): Reserved processing instruction

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/157.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/157.xml
deleted file mode 100644 (file)
index 363821a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/157.xml
+++ /dev/null
@@ -1,3 +0,0 @@
-<doc>
-<?xmL?>
-</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/158.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/158.out
deleted file mode 100644 (file)
index 1bfd00d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/158.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/158.xml", at line 4, position 10:
-ERROR (Well-formedness constraint): Illegal token or character

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/158.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/158.xml
deleted file mode 100644 (file)
index ebbeb51..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/158.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!NOTATION gif PUBLIC "image/gif" "">
-<!ATTLIST #NOTATION gif a1 CDATA #IMPLIED>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/159.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/159.out
deleted file mode 100644 (file)
index 83264a9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/159.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/159.xml", at line 3, position 38:
-ERROR (Well-formedness constraint): The character '&' must be written as '&'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/159.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/159.xml
deleted file mode 100644 (file)
index 3a017ef..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/159.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY e "<![CDATA[Tim & Michael]]>">
-]>
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/160.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/160.out
deleted file mode 100644 (file)
index 1669390..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/160.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/160.xml", at line 4, position 18:
-ERROR (Well-formedness constraint): Restriction of the internal subset: parameter entity not allowed here

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/160.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/160.xml
deleted file mode 100644 (file)
index 7e33116..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/160.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY % e "">
-<!ENTITY foo "%e;">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/161.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/161.out
deleted file mode 100644 (file)
index 0d78a8d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/161.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity e, at line 1, position 9:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/161.xml", line 3, position 15:
-ERROR (Well-formedness constraint): Bad content model expression

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/161.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/161.xml
deleted file mode 100644 (file)
index e256995..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/161.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY % e "#PCDATA">
-<!ELEMENT doc (%e;)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/162.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/162.out
deleted file mode 100644 (file)
index f06c269..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/162.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/162.xml", at line 4, position 20:
-ERROR (Well-formedness constraint): Restriction of the internal subset: parameter entity not allowed here

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/162.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/162.xml
deleted file mode 100644 (file)
index d1336da..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/162.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY % e1 "">
-<!ENTITY % e2 "%e1;">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/163.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/163.out
deleted file mode 100644 (file)
index b7fb7b0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/163.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/163.xml", at line 5, position 0:
-ERROR (Well-formedness constraint): Content not allowed here

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/163.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/163.xml
deleted file mode 100644 (file)
index bb35a7b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/163.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY % e "">
-]>
-%e;
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/164.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/164.out
deleted file mode 100644 (file)
index 6151b95..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/164.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/164.xml", at line 4, position 2:
-ERROR (Well-formedness constraint): References to parameter entities not allowed here

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/164.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/164.xml
deleted file mode 100644 (file)
index 31da4ff..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/164.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY % e "">
-] %e; >
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/165.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/165.out
deleted file mode 100644 (file)
index 981b8a0..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/165.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/165.xml", at line 2, position 8:
-ERROR (Well-formedness constraint): Whitespace is missing after ENTITY

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/165.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/165.xml
deleted file mode 100644 (file)
index 9b5198e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/165.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY% e "">
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/166.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/166.out
deleted file mode 100644 (file)
index 7ade465..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/166.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/166.xml", at line 1, position 0:
-ERROR: Bad character stream

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/166.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/166.xml
deleted file mode 100644 (file)
index 60f66f8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/166.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>ï¿¿</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/167.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/167.out
deleted file mode 100644 (file)
index 56d06ae..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/167.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/167.xml", at line 1, position 0:
-ERROR: Bad character stream

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/167.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/167.xml
deleted file mode 100644 (file)
index fc536a1..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/167.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>￾</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/168.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/168.out
deleted file mode 100644 (file)
index 41163ea..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/168.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/168.xml", at line 1, position 0:
-ERROR: Bad character stream

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/168.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/168.xml
deleted file mode 100644 (file)
index ce8b4d7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/168.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>í €</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/169.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/169.out
deleted file mode 100644 (file)
index 623ad46..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/169.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/169.xml", at line 1, position 0:
-ERROR: Bad character stream

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/169.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/169.xml
deleted file mode 100644 (file)
index 6c1a0bf..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/169.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>í°€</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/170.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/170.out
deleted file mode 100644 (file)
index 29011da..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/170.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/170.xml", at line 1, position 0:
-ERROR: Bad character stream

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/170.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/170.xml
deleted file mode 100644 (file)
index 6d02d89..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/170.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc>÷€€€</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/171.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/171.out
deleted file mode 100644 (file)
index 7ccaffa..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/171.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/171.xml", at line 1, position 5:
-ERROR: Bad character stream

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/171.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/171.xml
deleted file mode 100644 (file)
index 7fa118b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/171.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<!-- ï¿¿ -->
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/172.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/172.out
deleted file mode 100644 (file)
index 8b7d0ab..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/172.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/172.xml", at line 1, position 0:
-ERROR: Bad character stream

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/172.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/172.xml
deleted file mode 100644 (file)
index 434f799..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/172.xml
+++ /dev/null
@@ -1,2 +0,0 @@
-<?pi ï¿¿?>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/173.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/173.out
deleted file mode 100644 (file)
index 25ef8fd..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/173.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/173.xml", at line 1, position 7:
-ERROR: Bad character stream

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/173.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/173.xml
deleted file mode 100644 (file)
index ab5a447..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/173.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc a="ï¿¿"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/174.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/174.out
deleted file mode 100644 (file)
index faec5b2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/174.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/174.xml", at line 1, position 5:
-ERROR (Well-formedness constraint): Declaration either malformed or not allowed in this context

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/174.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/174.xml
deleted file mode 100644 (file)
index b7f3db9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/174.xml
+++ /dev/null
@@ -1 +0,0 @@
-<doc><![CDATA[ï¿¿]]></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/175.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/175.out
deleted file mode 100644 (file)
index 0f0e72c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/175.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/175.xml", at line 3, position 18:
-ERROR: Bad character stream

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/175.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/175.xml
deleted file mode 100644 (file)
index 6d13a21..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/175.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ENTITY % e "ï¿¿">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/176.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/176.out
deleted file mode 100644 (file)
index b1940a1..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/176.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/176.xml", at line 5, position 0:
-ERROR (Well-formedness constraint): Missing end tag

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/176.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/176.xml
deleted file mode 100644 (file)
index 9c8e2e4..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/176.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/177.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/177.out
deleted file mode 100644 (file)
index 58d032c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/177.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/177.xml", at line 4, position 6:
-ERROR: Bad character stream

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/177.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/177.xml
deleted file mode 100644 (file)
index bde27a6..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/177.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>Aï¿¿</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/178.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/178.out
deleted file mode 100644 (file)
index 4f32440..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/178.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/178.xml", at line 5, position 7:
-ERROR (Well-formedness constraint): Cannot find the second quotation mark

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/178.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/178.xml
deleted file mode 100644 (file)
index ba36a31..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/178.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA #IMPLIED>
-]>
-<doc a="&#34;></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/179.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/179.out
deleted file mode 100644 (file)
index 3174804..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/179.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/179.xml", at line 2, position 11:
-ERROR (Well-formedness constraint): Cannot find the second quotation mark

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/179.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/179.xml
deleted file mode 100644 (file)
index e59d926..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/179.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "&#34;>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/180.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/180.out
deleted file mode 100644 (file)
index 15cabef..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/180.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/180.xml", at line 3, position 22:
-ERROR (Well-formedness constraint): Reference to undeclared general entity `e'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/180.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/180.xml
deleted file mode 100644 (file)
index d51b190..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/180.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA "&e;">
-<!ENTITY e "v">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/181.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/181.out
deleted file mode 100644 (file)
index b9c2569..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/181.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity e, at line 1, position 0:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/181.xml", line 5, position 5:
-ERROR (Well-formedness constraint): Declaration either malformed or not allowed in this context

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/181.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/181.xml
deleted file mode 100644 (file)
index c438f1b..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/181.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "&#60;![CDATA[">
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&e;]]></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/182.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/182.out
deleted file mode 100644 (file)
index e54bfb9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/182.out
+++ /dev/null
@@ -1,3 +0,0 @@
-In entity e, at line 1, position 4:
-Called from entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/182.xml", line 5, position 5:
-ERROR (Well-formedness constraint): `-->' expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/182.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/182.xml
deleted file mode 100644 (file)
index 106df72..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/182.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e "&#60;!--">
-<!ELEMENT doc (#PCDATA)>
-]>
-<doc>&e;--></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/183.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/183.out
deleted file mode 100644 (file)
index 5d8c43d..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/183.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/183.xml", at line 2, position 28:
-ERROR (Well-formedness constraint): `)*' expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/183.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/183.xml
deleted file mode 100644 (file)
index 85ddfc8..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/183.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA | foo*)* >
-<!ELEMENT foo EMPTY>
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/184.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/184.out
deleted file mode 100644 (file)
index 3b62191..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/184.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/184.xml", at line 2, position 25:
-ERROR (Well-formedness constraint): Name expected

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/184.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/184.xml
deleted file mode 100644 (file)
index f875392..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/184.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ELEMENT doc (#PCDATA | (foo))* >
-<!ELEMENT foo EMPTY>
-]>
-<doc></doc>
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/185.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/185.ent
deleted file mode 100644 (file)
index fdd8077..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/185.ent
+++ /dev/null
@@ -1 +0,0 @@
-<!ELEMENT doc (#PCDATA)>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/185.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/185.out
deleted file mode 100644 (file)
index 53d52c7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/185.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/185.xml", at line 3, position 5:
-ERROR (Well-formedness constraint): Reference to undeclared general entity `e'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/185.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/185.xml
deleted file mode 100644 (file)
index ea2f6d7..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/185.xml
+++ /dev/null
@@ -1,3 +0,0 @@
-<?xml version="1.0" standalone="yes"?>
-<!DOCTYPE doc SYSTEM "185.ent">
-<doc>&e;</doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/186.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/186.out
deleted file mode 100644 (file)
index 6fa931a..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/186.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_jclark_notwf/sa/186.xml", at line 5, position 15:
-ERROR (Well-formedness constraint): Whitespace is missing between attributes `b' and `d'

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/186.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/186.xml
deleted file mode 100644 (file)
index 0bbacca..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/186.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<!DOCTYPE a [
-<!ELEMENT a EMPTY>
-<!ATTLIST a b CDATA #IMPLIED d CDATA #IMPLIED>
-]>
-<a b="c"d="e"/>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/null.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_jclark_notwf/sa/null.ent
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_notwf/sa/001.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_notwf/sa/001.out
deleted file mode 100644 (file)
index 8b203de..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_notwf/sa/001.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_notwf/sa/001.xml", at line 4, position 7:
-ERROR (Validity constraint): Found reference to external entity in attribute value

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_notwf/sa/001.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_notwf/sa/001.xml
deleted file mode 100644 (file)
index 56b5100..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_notwf/sa/001.xml
+++ /dev/null
@@ -1,4 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e SYSTEM "null.ent">
-]>
-<doc a="&e;"></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_notwf/sa/002.out b/helm/DEVEL/pxp/pxp/rtests/negative/data_notwf/sa/002.out
deleted file mode 100644 (file)
index ea6c1f9..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_notwf/sa/002.out
+++ /dev/null
@@ -1,2 +0,0 @@
-In entity [toplevel] = SYSTEM "file://localhost/home/gerd/ocaml/smcvs/ocamlpkg/markup/rtests/negative/data_notwf/sa/002.xml", at line 4, position 22:
-ERROR (Validity constraint): Found reference to external entity in attribute value

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_notwf/sa/002.xml b/helm/DEVEL/pxp/pxp/rtests/negative/data_notwf/sa/002.xml
deleted file mode 100644 (file)
index f247879..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/data_notwf/sa/002.xml
+++ /dev/null
@@ -1,6 +0,0 @@
-<!DOCTYPE doc [
-<!ENTITY e SYSTEM "null.ent">
-<!ELEMENT doc (#PCDATA)>
-<!ATTLIST doc a CDATA "&e;">
-]>
-<doc></doc>

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/data_notwf/sa/null.ent b/helm/DEVEL/pxp/pxp/rtests/negative/data_notwf/sa/null.ent
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/run_negative b/helm/DEVEL/pxp/pxp/rtests/negative/run_negative
deleted file mode 100755 (executable)
index 3c58a4e..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/run_negative
+++ /dev/null
@@ -1,117 +0,0 @@
-#! /bin/bash
-
-# $Id$
-
-
-t=./test_negative
-
-init_test () {
-    # $1: Options for test_negative
-    # $2: Path to test record
-    options="$1"
-    input="$2"
-    output=`dirname $input`/`basename $input .xml`.out
-    if  [ -f "$output" ]; then
-       echo "Test $input already initialized; skipping"
-    else
-       $t $options "$input" >"$output"
-       echo Test $input initialized.
-    fi
-}
-
-
-check_test () {
-    # $1: Options for test_negative
-    # $2: Path to test record
-    options="$1"
-    input="$2"
-    output=`dirname $input`/`basename $input .xml`.out
-    $t $options "$input" >current.out
-    if [ -f "$output" ]; then
-       if cmp "$output" current.out; then
-           echo Test $input OK
-       else
-           echo Test $input FAILED!!!
-       fi
-    else
-       echo Test $input still uninitialized
-       echo - OUTPUT:
-       cat current.out
-    fi
-}
-
-
-for_directory () {
-    what="$1"
-    shift
-    options="$1"
-    shift
-    while [ $# -gt 0 ]; do
-       input="$1"
-       shift
-       if [ -f "$input" ]; then
-           $what "$options" "$input"
-       else
-           if [ -d "$input" ]; then
-               for ent in $input/*.xml; do
-                   for_directory $what "$options" $ent
-               done
-           else
-               echo "Not found: $input" >&2
-           fi
-       fi
-    done
-}
-
-
-usage () {
-    cat <<EOF >&2
-usage: $0 [ -init -wf ] file ... dir ...
-EOF
-    exit 1
-}
-
-
-action="check_test"
-options=""
-while true; do
-    case "x$1" in
-       x-init)
-           action="init_test"
-           shift
-           ;;
-       x-wf)
-           options="$options -wf"
-           shift
-           ;;
-       x-*)
-           usage
-           ;;
-       *)
-           break
-           ;;
-    esac
-done
-
-
-if [ $# -gt 0 ]; then
-    for_directory $action "$options" "$@"
-else
-    for_directory $action -wf \
-       data_jclark_notwf/ext-sa data_jclark_notwf/not-sa data_jclark_notwf/sa \
-       data_notwf/sa
-    for_directory $action "" \
-       data_jclark_invalid data_invalid
-fi
-
-# ======================================================================
-# $Log$
-# Revision 1.1  2000/11/17 09:57:33  lpadovan
-# Initial revision
-#
-# Revision 1.2  2000/05/01 16:23:39  gerd
-#      Added data_invalid.
-#
-# Revision 1.1  2000/05/01 15:58:50  gerd
-#      Initial revision.
-#

diff --git a/helm/DEVEL/pxp/pxp/rtests/negative/test_negative.ml b/helm/DEVEL/pxp/pxp/rtests/negative/test_negative.ml
deleted file mode 100644 (file)
index 13f049c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/negative/test_negative.ml
+++ /dev/null
@@ -1,105 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-open Pxp_document;;
-open Pxp_yacc;;
-open Pxp_types;;
-
-let error_happened = ref false;;
-
-let rec print_error e =
-  print_endline (string_of_exn e)
-;;
-
-class warner =
-  object 
-    method warn w =
-      print_endline ("WARNING: " ^ w)
-  end
-;;
-
-let parse debug wf iso88591 filename =
-  try 
-  let config =
-      { default_config with 
-         warner = new warner;
-          debugging_mode = debug;
-          encoding = if iso88591 then `Enc_iso88591 else `Enc_utf8;
-         idref_pass = true;
-      }
-  in
-    let parse_fn =
-      if wf then parse_wfdocument_entity 
-      else 
-       let index = new hash_index in
-       parse_document_entity 
-         ?transform_dtd:None 
-         ~id_index:(index :> 'ext index)
-    in
-    let tree =
-      parse_fn
-       config
-       (from_file filename)
-       default_spec
-    in
-    print_endline "Parsed without error";
-  with
-      e ->
-       error_happened := true;
-       print_error e
-;;
-
-
-let main() =
-  let debug = ref false in
-  let wf = ref false in
-  let iso88591 = ref false in
-  let files = ref [] in
-  Arg.parse
-      [ "-d",   Arg.Set debug, "turn debugging mode on";
-       "-wf",  Arg.Set wf,    "check only on well-formedness";
-        "-iso-8859-1", Arg.Set iso88591, "use ISO-8859-1 as internal encoding instead of UTF-8";
-      ]
-      (fun x -> files := x :: !files)
-      "
-usage: test_negative [options] file ...
-
-List of options:";
-  files := List.rev !files;
-  List.iter (parse !debug !wf !iso88591) !files;
-;;
-
-
-main();
-if !error_happened then exit(1);;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:33  lpadovan
- * Initial revision
- *
- * Revision 1.6  2000/07/14 14:57:12  gerd
- *     Updated: warner
- *
- * Revision 1.5  2000/07/14 14:20:11  gerd
- *     Updated because of PXP interface changes.
- *
- * Revision 1.4  2000/07/09 01:49:09  gerd
- *     Updated because of PXP interface changes.
- *
- * Revision 1.3  2000/06/04 20:31:21  gerd
- *     Updates because of renamed PXP modules.
- *
- * Revision 1.2  2000/05/28 17:23:22  gerd
- *     Updated.
- *
- * Revision 1.1  2000/05/01 15:58:50  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/rtests/reader/Makefile b/helm/DEVEL/pxp/pxp/rtests/reader/Makefile
deleted file mode 100644 (file)
index b1f204f..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/reader/Makefile
+++ /dev/null
@@ -1,31 +0,0 @@
-# make validate:        make bytecode executable
-# make validate.opt:    make native executable
-# make clean:          remove intermediate files (in this directory)
-# make CLEAN:           remove intermediate files (recursively)
-# make distclean:      remove any superflous files (recursively)
-#----------------------------------------------------------------------
-
-OCAMLPATH=../..
-
-test_reader: test_reader.ml
-       ocamllex minilex.mll
-       ocamlfind ocamlc -custom -o test_reader -package .,unix,threads \
-               -linkpkg -thread -noautolink \
-               -g minilex.ml test_reader.ml
-
-#----------------------------------------------------------------------
-.PHONY: all
-all:
-
-.PHONY: clean
-clean:
-       rm -f *.cmi *.cmo *.cma *.cmx *.o *.a *.cmxa minilex.ml
-
-.PHONY: CLEAN
-CLEAN: clean
-
-.PHONY: distclean
-distclean: clean
-       rm -f *~
-       rm -f test_reader
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/reader/minilex.mll b/helm/DEVEL/pxp/pxp/rtests/reader/minilex.mll
deleted file mode 100644 (file)
index 1c9fbec..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/reader/minilex.mll
+++ /dev/null
@@ -1,7 +0,0 @@
-{ }
-rule nextchar = parse 
-    _ 
-      { Some (Lexing.lexeme lexbuf).[0] }
-  | eof
-      { None }
-{ }

diff --git a/helm/DEVEL/pxp/pxp/rtests/reader/t100.dat b/helm/DEVEL/pxp/pxp/rtests/reader/t100.dat
deleted file mode 100644 (file)
index ad47100..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/reader/t100.dat
+++ /dev/null
@@ -1 +0,0 @@
-0123456789
\ No newline at end of file

diff --git a/helm/DEVEL/pxp/pxp/rtests/reader/test_reader.ml b/helm/DEVEL/pxp/pxp/rtests/reader/test_reader.ml
deleted file mode 100644 (file)
index f01edf5..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/reader/test_reader.ml
+++ /dev/null
@@ -1,455 +0,0 @@
-open Pxp_reader;;
-open Pxp_types;;
-open Minilex;;
-
-let make_channel s =
-  (* Returns a channel reading the bytes from the string s *)
-  let rd, wr = Unix.pipe() in
-  let ch_rd = Unix.in_channel_of_descr rd in
-  let ch_wr = Unix.out_channel_of_descr wr in
-  ignore
-    (Thread.create
-       (fun () ->
-          output_string ch_wr s;
-          close_out ch_wr;
-       )
-       ()
-    );
-  ch_rd
-;;
-
-(**********************************************************************)
-
-let t001 () =
-  (* Reads from a string (without recoding it), checks the lexbuf size *)
-  let s = "0123456789abc" in
-  let r = new resolve_read_this_string s in
-  r # init_rep_encoding `Enc_iso88591;
-  r # init_warner (new drop_warnings);
-  let lb = r # open_in Anonymous in
-  let c = nextchar lb in
-  assert (c = Some '0');
-  assert (lb.Lexing.lex_curr_pos = lb.Lexing.lex_buffer_len);
-  (* Note: the end of lb.lex_buffer is filled up, so lb.lex_curr_pos must
-   * now be at the end of the buffer indicating that the buffer is now
-   * empty.
-   *)
-  ignore(nextchar lb);
-  ignore(nextchar lb);
-  ignore(nextchar lb);
-  ignore(nextchar lb);
-  ignore(nextchar lb);
-  ignore(nextchar lb);
-  ignore(nextchar lb);
-  ignore(nextchar lb);
-  let c = nextchar lb in
-  assert (c = Some '9');
-  assert (lb.Lexing.lex_curr_pos = lb.Lexing.lex_buffer_len);
-  r # change_encoding "";
-  let c = nextchar lb in
-  assert (c = Some 'a');
-  assert (lb.Lexing.lex_curr_pos < lb.Lexing.lex_buffer_len);
-  ignore(nextchar lb);
-  let c = nextchar lb in
-  assert (c = Some 'c');
-  let c = nextchar lb in
-  assert (c = None);
-  r # close_in;
-  true
-;;
-
-
-let t002 () =
-  (* Like t001, but reads from a channel *)
-  let ch = make_channel "0123456789abc" in
-  let r = new resolve_read_this_channel ch in
-  r # init_rep_encoding `Enc_iso88591;
-  r # init_warner (new drop_warnings);
-  let lb = r # open_in Anonymous in
-  let c = nextchar lb in
-  assert (c = Some '0');
-  assert (lb.Lexing.lex_curr_pos = lb.Lexing.lex_buffer_len);
-  (* Note: the end of lb.lex_buffer is filled up, so lb.lex_curr_pos must
-   * now be at the end of the buffer indicating that the buffer is now
-   * empty.
-   *)
-  ignore(nextchar lb);
-  ignore(nextchar lb);
-  ignore(nextchar lb);
-  ignore(nextchar lb);
-  ignore(nextchar lb);
-  ignore(nextchar lb);
-  ignore(nextchar lb);
-  ignore(nextchar lb);
-  let c = nextchar lb in
-  assert (c = Some '9');
-  assert (lb.Lexing.lex_curr_pos = lb.Lexing.lex_buffer_len);
-  r # change_encoding "";
-  let c = nextchar lb in
-  assert (c = Some 'a');
-  assert (lb.Lexing.lex_curr_pos < lb.Lexing.lex_buffer_len);
-  ignore(nextchar lb);
-  let c = nextchar lb in
-  assert (c = Some 'c');
-  let c = nextchar lb in
-  assert (c = None);
-  r # close_in;
-  true
-;;
-
-
-let t003 () =
-  (* Tests non-automatic encoding conversion from ISO-8859-1 to UTF-8 *)
-  let s = "0«»°áà âãä�ÀÂÃÄéèêëíìîï�ÌÎ�óòôõøöÓÒÔÕØÖúùûüýÿ�ßç¡¿ñÑ" in
-  let r = new resolve_read_this_string ~fixenc:`Enc_iso88591 s in
-  r # init_rep_encoding `Enc_utf8;
-  r # init_warner (new drop_warnings);
-  let lb = r # open_in Anonymous in
-  let c = ref (nextchar lb) in
-  assert (!c = Some '0');
-  assert (lb.Lexing.lex_curr_pos < lb.Lexing.lex_buffer_len);
-  (* Note: because we initialize the resolver with ~fixenc, the resolver can
-   * fill the buffer with more than one byte from the beginning.
-   *)
-  let u = ref "" in
-  while !c <> None do
-    ( match !c with
-         Some x -> u := !u ^ String.make 1 x
-       | None -> ()
-    );
-    c := nextchar lb
-  done;
-  r # close_in;
-  !u = "0\194\171\194\187\194\176\195\161\195\160\195\162\195\163\195\164\195\129\195\128\195\130\195\131\195\132\195\169\195\168\195\170\195\171\195\173\195\172\195\174\195\175\195\141\195\140\195\142\195\143\195\179\195\178\195\180\195\181\195\184\195\182\195\147\195\146\195\148\195\149\195\152\195\150\195\186\195\185\195\187\195\188\195\189\195\191\195\157\195\159\195\167\194\161\194\191\195\177\195\145"
-;;
-
-
-let t004 () =
-  (* Tests non-automatic encoding conversion from UTF-8 to ISO-8859-1 *)
-  let s = "0\194\171\194\187\194\176\195\161\195\160\195\162\195\163\195\164\195\129\195\128\195\130\195\131\195\132\195\169\195\168\195\170\195\171\195\173\195\172\195\174\195\175\195\141\195\140\195\142\195\143\195\179\195\178\195\180\195\181\195\184\195\182\195\147\195\146\195\148\195\149\195\152\195\150\195\186\195\185\195\187\195\188\195\189\195\191\195\157\195\159\195\167\194\161\194\191\195\177\195\145" in
-  let r = new resolve_read_this_string ~fixenc:`Enc_utf8 s in
-  r # init_rep_encoding `Enc_iso88591;
-  r # init_warner (new drop_warnings);
-  let lb = r # open_in Anonymous in
-  let c = ref (nextchar lb) in
-  assert (!c = Some '0');
-  assert (lb.Lexing.lex_curr_pos < lb.Lexing.lex_buffer_len);
-  (* Note: because we initialize the resolver with ~fixenc, the resolver can
-   * fill the buffer with more than one byte from the beginning.
-   *)
-  let u = ref "" in
-  while !c <> None do
-    ( match !c with
-         Some x -> u := !u ^ String.make 1 x
-       | None -> ()
-    );
-    c := nextchar lb
-  done;
-  r # close_in;
-  !u = "0«»°áà âãä�ÀÂÃÄéèêëíìîï�ÌÎ�óòôõøöÓÒÔÕØÖúùûüýÿ�ßç¡¿ñÑ"
-;;
-
-
-let t005 () =
-  (* Tests automatic encoding conversion from UTF-8 to ISO-8859-1 *)
-  let s = "0\194\171\194\187\194\176\195\161\195\160\195\162\195\163\195\164\195\129\195\128\195\130\195\131\195\132\195\169\195\168\195\170\195\171\195\173\195\172\195\174\195\175\195\141\195\140\195\142\195\143\195\179\195\178\195\180\195\181\195\184\195\182\195\147\195\146\195\148\195\149\195\152\195\150\195\186\195\185\195\187\195\188\195\189\195\191\195\157\195\159\195\167\194\161\194\191\195\177\195\145" in
-  let r = new resolve_read_this_string s in
-  r # init_rep_encoding `Enc_iso88591;
-  r # init_warner (new drop_warnings);
-  let lb = r # open_in Anonymous in
-  let c = ref (nextchar lb) in
-  assert (!c = Some '0');
-  assert (lb.Lexing.lex_curr_pos = lb.Lexing.lex_buffer_len);
-  let u = ref "" in
-  while !c <> None do
-    ( match !c with
-         Some x -> u := !u ^ String.make 1 x
-       | None -> ()
-    );
-    c := nextchar lb
-  done;
-  r # close_in;
-  !u = "0«»°áà âãä�ÀÂÃÄéèêëíìîï�ÌÎ�óòôõøöÓÒÔÕØÖúùûüýÿ�ßç¡¿ñÑ"
-;;
-
-
-let t006 () =
-  (* Tests automatic encoding conversion from UTF-16-BE to UTF-8 
-   * This variant invokes change_encoding early.
-   *)
-  let s = "\254\255\0000\000«\000»\000°\000á\000à \000â\000ã\000ä\000�\000À\000Â\000Ã\000Ä\000é\000è\000ê\000ë\000í\000ì\000î\000ï\000�\000Ì\000Î\000�\000ó\000ò\000ô\000õ\000ø\000ö\000Ó\000Ò\000Ô\000Õ\000Ø\000Ö\000ú\000ù\000û\000ü\000ý\000ÿ\000�\000ß\000ç\000¡\000¿\000ñ\000Ñ" in
-  let r = new resolve_read_this_string s in
-  r # init_rep_encoding `Enc_utf8;
-  r # init_warner (new drop_warnings);
-  let lb = r # open_in Anonymous in
-  let c = ref (nextchar lb) in
-  assert (!c = Some '0');
-  assert (lb.Lexing.lex_curr_pos = lb.Lexing.lex_buffer_len);
-  r # change_encoding "";
-  let u = ref "" in
-  while !c <> None do
-    ( match !c with
-         Some x -> u := !u ^ String.make 1 x
-       | None -> ()
-    );
-    c := nextchar lb
-  done;
-  r # close_in;
-  !u = "0\194\171\194\187\194\176\195\161\195\160\195\162\195\163\195\164\195\129\195\128\195\130\195\131\195\132\195\169\195\168\195\170\195\171\195\173\195\172\195\174\195\175\195\141\195\140\195\142\195\143\195\179\195\178\195\180\195\181\195\184\195\182\195\147\195\146\195\148\195\149\195\152\195\150\195\186\195\185\195\187\195\188\195\189\195\191\195\157\195\159\195\167\194\161\194\191\195\177\195\145"
-;;
-
-
-let t007 () =
-  (* Tests automatic encoding conversion from UTF-16-BE to UTF-8 
-   * This variant does not invoke change_encoding
-   *)
-  let s = "\254\255\0000\000«\000»\000°\000á\000à \000â\000ã\000ä\000�\000À\000Â\000Ã\000Ä\000é\000è\000ê\000ë\000í\000ì\000î\000ï\000�\000Ì\000Î\000�\000ó\000ò\000ô\000õ\000ø\000ö\000Ó\000Ò\000Ô\000Õ\000Ø\000Ö\000ú\000ù\000û\000ü\000ý\000ÿ\000�\000ß\000ç\000¡\000¿\000ñ\000Ñ" in
-  let r = new resolve_read_this_string s in
-  r # init_rep_encoding `Enc_utf8;
-  r # init_warner (new drop_warnings);
-  let lb = r # open_in Anonymous in
-  let c = ref (nextchar lb) in
-  assert (!c = Some '0');
-  assert (lb.Lexing.lex_curr_pos = lb.Lexing.lex_buffer_len);
-  let u = ref "" in
-  while !c <> None do
-    ( match !c with
-         Some x -> u := !u ^ String.make 1 x
-       | None -> ()
-    );
-    c := nextchar lb
-  done;
-  r # close_in;
-  !u = "0\194\171\194\187\194\176\195\161\195\160\195\162\195\163\195\164\195\129\195\128\195\130\195\131\195\132\195\169\195\168\195\170\195\171\195\173\195\172\195\174\195\175\195\141\195\140\195\142\195\143\195\179\195\178\195\180\195\181\195\184\195\182\195\147\195\146\195\148\195\149\195\152\195\150\195\186\195\185\195\187\195\188\195\189\195\191\195\157\195\159\195\167\194\161\194\191\195\177\195\145"
-;;
-
-(**********************************************************************)
-
-let t100 () =
-  (* Reads from a file without recoding it *)
-  let r = new resolve_as_file () in
-  r # init_rep_encoding `Enc_utf8;
-  r # init_warner (new drop_warnings);
-  let cwd = Sys.getcwd() in
-  let lb = r # open_in (System ("file://localhost" ^ cwd ^ "/t100.dat")) in
-  let c = nextchar lb in
-  assert (c = Some '0');
-  assert (lb.Lexing.lex_curr_pos = lb.Lexing.lex_buffer_len);
-  (* Note: the end of lb.lex_buffer is filled up, so lb.lex_curr_pos must
-   * now be at the end of the buffer indicating that the buffer is now
-   * empty.
-   *)
-  for i = 1 to 8 do
-    ignore(nextchar lb);
-  done;
-  let c = nextchar lb in
-  assert (c = Some '9');
-  r # close_in;
-  true
-;;
-
-let t101 () =
-  (* Reads from a file without recoding it *)
-  let r = new resolve_as_file () in
-  r # init_rep_encoding `Enc_utf8;
-  r # init_warner (new drop_warnings);
-  let cwd = Sys.getcwd() in
-  let lb = r # open_in (System ("//localhost" ^ cwd ^ "/t100.dat")) in
-  let c = nextchar lb in
-  assert (c = Some '0');
-  assert (lb.Lexing.lex_curr_pos = lb.Lexing.lex_buffer_len);
-  (* Note: the end of lb.lex_buffer is filled up, so lb.lex_curr_pos must
-   * now be at the end of the buffer indicating that the buffer is now
-   * empty.
-   *)
-  for i = 1 to 8 do
-    ignore(nextchar lb);
-  done;
-  let c = nextchar lb in
-  assert (c = Some '9');
-  r # close_in;
-  true
-;;
-
-let t102 () =
-  (* Reads from a file without recoding it *)
-  let r = new resolve_as_file () in
-  r # init_rep_encoding `Enc_utf8;
-  r # init_warner (new drop_warnings);
-  let cwd = Sys.getcwd() in
-  let lb = r # open_in (System (cwd ^ "/t100.dat")) in
-  let c = nextchar lb in
-  assert (c = Some '0');
-  assert (lb.Lexing.lex_curr_pos = lb.Lexing.lex_buffer_len);
-  (* Note: the end of lb.lex_buffer is filled up, so lb.lex_curr_pos must
-   * now be at the end of the buffer indicating that the buffer is now
-   * empty.
-   *)
-  for i = 1 to 8 do
-    ignore(nextchar lb);
-  done;
-  let c = nextchar lb in
-  assert (c = Some '9');
-  r # close_in;
-  true
-;;
-
-let t103 () =
-  (* Reads from a file without recoding it *)
-  let r = new resolve_as_file () in
-  r # init_rep_encoding `Enc_utf8;
-  r # init_warner (new drop_warnings);
-  let lb = r # open_in (System "t100.dat") in
-  let c = nextchar lb in
-  assert (c = Some '0');
-  assert (lb.Lexing.lex_curr_pos = lb.Lexing.lex_buffer_len);
-  (* Note: the end of lb.lex_buffer is filled up, so lb.lex_curr_pos must
-   * now be at the end of the buffer indicating that the buffer is now
-   * empty.
-   *)
-  for i = 1 to 8 do
-    ignore(nextchar lb);
-  done;
-  let c = nextchar lb in
-  assert (c = Some '9');
-  r # close_in;
-  true
-;;
-
-(**********************************************************************)
-
-let t110 () =
-  (* Checks whether relative URLs are properly handled *)
-  let r = new resolve_as_file () in
-  r # init_rep_encoding `Enc_utf8;
-  r # init_warner (new drop_warnings);
-  let lb = r # open_in (System "t100.dat") in
-  let c = nextchar lb in
-  assert (c = Some '0');
-  assert (lb.Lexing.lex_curr_pos = lb.Lexing.lex_buffer_len);
-  (* Note: the end of lb.lex_buffer is filled up, so lb.lex_curr_pos must
-   * now be at the end of the buffer indicating that the buffer is now
-   * empty.
-   *)
-  for i = 1 to 8 do
-    ignore(nextchar lb);
-  done;
-  let r' = r # clone in
-  let lb' = r' # open_in (System "t100.dat") in
-  let c = nextchar lb' in
-  assert (c = Some '0');
-  for i = 1 to 8 do
-    ignore(nextchar lb');
-  done;
-  let c = nextchar lb' in
-  assert (c = Some '9');
-  r' # close_in;
-  let c = nextchar lb in
-  assert (c = Some '9');
-  r # close_in;
-  true
-;;
-
-(**********************************************************************)
-(* Tests whether the encoding handling of System IDs is okay *)
-
-let t200 () =
-  (* Check the technique for the following tests:
-   * [Checks also 'combine' to some extent.)
-   *)
-  let r1 = new resolve_read_this_string
-            ~id:(System "b.xml")
-            ~fixenc:`Enc_iso88591
-            "ae" in
-  let r2 = new resolve_read_this_string
-            ~id:(System "a.xml")
-            ~fixenc:`Enc_iso88591
-            "<!DOCTYPE a [ <!ELEMENT a ANY> <!ENTITY ae SYSTEM 'b.xml'> ]> <a>&ae;</a>" in
-  let r = new combine [ r1; r2 ] in
-  (* It should now be possible to resolve &ae; *)
-  let _ =
-    Pxp_yacc.parse_document_entity 
-      { Pxp_yacc.default_config with Pxp_yacc.encoding = `Enc_iso88591 }
-      (Pxp_yacc.ExtID(System "a.xml", r))
-      Pxp_yacc.default_spec
-  in
-  true
-;;
-
-
-let t201 () =
-  (* Check that System IDs are converted to UTF-8. rep_encoding = ISO-8859-1 *)
-  let r1 = new resolve_read_this_string
-            ~id:(System "\195\164.xml")      (* This is an UTF-8 "ä"! *)
-            ~fixenc:`Enc_iso88591
-            "ae" in
-  let r2 = new resolve_read_this_string
-            ~id:(System "a.xml")
-            ~fixenc:`Enc_iso88591
-            "<!DOCTYPE a [ <!ELEMENT a ANY> <!ENTITY ae SYSTEM 'ä.xml'> ]> <a>&ae;</a>" in
-  let r = new combine [ r1; r2 ] in
-  (* It should now be possible to resolve &ae; *)
-  let _ =
-    Pxp_yacc.parse_document_entity 
-      { Pxp_yacc.default_config with Pxp_yacc.encoding = `Enc_iso88591 }
-      (Pxp_yacc.ExtID(System "a.xml", r))
-      Pxp_yacc.default_spec
-  in
-  true
-;;
-
-
-let t202 () =
-  (* Check that System IDs are converted to UTF-8. rep_encoding = UTF-8 *)
-  let r1 = new resolve_read_this_string
-            ~id:(System "\195\164.xml")
-            ~fixenc:`Enc_iso88591
-            "ae" in
-  let r2 = new resolve_read_this_string
-            ~id:(System "a.xml")
-            ~fixenc:`Enc_iso88591
-            "<!DOCTYPE a [ <!ELEMENT a ANY> <!ENTITY ae SYSTEM 'ä.xml'> ]> <a>&ae;</a>" in
-  let r = new combine [ r1; r2 ] in
-  (* It should now be possible to resolve &ae; *)
-  let _ =
-    Pxp_yacc.parse_document_entity 
-      { Pxp_yacc.default_config with Pxp_yacc.encoding = `Enc_utf8 }
-      (Pxp_yacc.ExtID(System "a.xml", r))
-      Pxp_yacc.default_spec
-  in
-  true
-;;
-
-(**********************************************************************)
-
-let test f n =
-  try
-    print_string ("Reader test " ^ n);
-    flush stdout;
-    if f() then
-      print_endline " ok"
-    else
-      print_endline " FAILED!!!!";
-  with
-      error ->
-       print_endline (" FAILED: " ^ string_of_exn error)
-;;
-
-test t001 "001";;
-test t002 "002";;
-test t003 "003";;
-test t004 "004";;
-test t005 "005";;
-test t006 "006";;
-test t007 "007";;
-
-test t100 "100";;
-test t101 "101";;
-test t102 "102";;
-test t103 "103";;
-
-test t110 "110";;
-
-test t200 "200";;
-test t201 "201";;
-test t202 "202";;

diff --git a/helm/DEVEL/pxp/pxp/rtests/run b/helm/DEVEL/pxp/pxp/rtests/run
deleted file mode 100755 (executable)
index 11b573c..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/run
+++ /dev/null
@@ -1,9 +0,0 @@
-#! /bin/sh
-
-set -e
-
-(cd reader && ./test_reader)
-(cd canonxml && ./run_canonxml)
-(cd write && ./run_write)
-(cd codewriter && ./run_codewriter)
-(cd negative && ./run_negative)

diff --git a/helm/DEVEL/pxp/pxp/rtests/write/Makefile b/helm/DEVEL/pxp/pxp/rtests/write/Makefile
deleted file mode 100644 (file)
index 634b272..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/write/Makefile
+++ /dev/null
@@ -1,28 +0,0 @@
-# make validate:        make bytecode executable
-# make validate.opt:    make native executable
-# make clean:          remove intermediate files (in this directory)
-# make CLEAN:           remove intermediate files (recursively)
-# make distclean:      remove any superflous files (recursively)
-#----------------------------------------------------------------------
-
-OCAMLPATH=../..
-
-test_write: test_write.ml
-       ocamlfind ocamlc -g -custom -o test_write -package .,str -linkpkg test_write.ml
-
-#----------------------------------------------------------------------
-.PHONY: all
-all:
-
-.PHONY: clean
-clean:
-       rm -f *.cmi *.cmo *.cma *.cmx *.o *.a *.cmxa out1 out2 out3
-
-.PHONY: CLEAN
-CLEAN: clean
-
-.PHONY: distclean
-distclean: clean
-       rm -f *~
-       rm -f test_write
-

diff --git a/helm/DEVEL/pxp/pxp/rtests/write/run_write b/helm/DEVEL/pxp/pxp/rtests/write/run_write
deleted file mode 100755 (executable)
index 1c43acb..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/write/run_write
+++ /dev/null
@@ -1,17 +0,0 @@
-#! /bin/bash
-
-test_sample () {
-    file="$1"
-    echo -n "Testing $file... "
-    ./test_write -in "$file" >out1
-    ./test_write -in out1    >out2
-    ./test_write -in out2    >out3
-    if cmp out1 out3; then
-       echo "OK"
-    else
-       echo "FAILED"
-    fi
-}
-
-
-test_sample "sample001.xml"

diff --git a/helm/DEVEL/pxp/pxp/rtests/write/sample001.xml b/helm/DEVEL/pxp/pxp/rtests/write/sample001.xml
deleted file mode 100644 (file)
index 4973505..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/write/sample001.xml
+++ /dev/null
@@ -1,37 +0,0 @@
-<!DOCTYPE a [
-
-<!ELEMENT a (b | (c, d)* | (e, f)+ | g?)>
-<!ELEMENT b (#PCDATA | a)*>
-<!ELEMENT c EMPTY>
-<!ELEMENT d ANY>
-<!ELEMENT e EMPTY>
-<!ELEMENT f EMPTY>
-<!ELEMENT g EMPTY>
-
-<!ATTLIST a u CDATA #IMPLIED
-            v NMTOKEN "huhu"
-            w (q|p)   #REQUIRED
-            x NOTATION (n1|n2) "n1"
-            y ENTITY #IMPLIED>
-
-<!NOTATION n1 SYSTEM "/bin/n1-processor">
-<!NOTATION n2 SYSTEM "/bin/n2-processor">
-
-<!ENTITY u1 SYSTEM "file-u1" NDATA n1>
-<!ENTITY u2 SYSTEM "file-u2" NDATA n2>
-
-<?pi1 args ...?>
-]>
-
-<a u="1" w="q" x="n2">
-  <b>
-    <?pi2 args ...?>
-    This is text!
-    <a w="p" y="u1">
-      <c/>
-      <d/>
-    </a>
-  </b>
-</a>
-
-<?pi3 args ...?>

diff --git a/helm/DEVEL/pxp/pxp/rtests/write/test_write.ml b/helm/DEVEL/pxp/pxp/rtests/write/test_write.ml
deleted file mode 100644 (file)
index 48defd2..0000000
--- a/helm/DEVEL/pxp/pxp/rtests/write/test_write.ml
+++ /dev/null
@@ -1,94 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
-open Pxp_document;;
-open Pxp_yacc;;
-open Pxp_types;;
-
-let error_happened = ref false;;
-
-let rec prerr_error e =
-  prerr_endline (string_of_exn e)
-;;
-
-class warner =
-  object 
-    method warn w =
-      prerr_endline ("WARNING: " ^ w)
-  end
-;;
-
-let parse_and_write in_filename =
-  let spec =
-    let e = new element_impl default_extension in
-    make_spec_from_mapping
-      ~super_root_exemplar:      e
-      ~default_pinstr_exemplar:  e
-      ~data_exemplar:            (new data_impl default_extension)
-      ~default_element_exemplar: e
-      ~element_mapping:          (Hashtbl.create 1)
-      ()
-  in
-  let config =
-      { default_config with 
-         warner = new warner;
-         enable_pinstr_nodes = true;
-         enable_super_root_node = true;
-         encoding = `Enc_utf8;
-      }
-  in
-  try 
-    let tree =
-      parse_document_entity
-        config
-       (from_file in_filename)
-       spec 
-    in
-    
-    tree # write (Out_channel stdout) `Enc_utf8;
-  with
-      e ->
-       error_happened := true;
-       prerr_error e
-;;
-
-
-let main() =
-  let in_file = ref "" in
-  Arg.parse
-      [ "-in", (Arg.String (fun s -> in_file := s)),
-            " <file>      Set the XML file to read";
-      ]
-      (fun x -> raise (Arg.Bad "Unexpected argument"))
-      "
-usage: test_write [ options ]
-
-List of options:";
-  if !in_file = "" then begin
-    prerr_endline "No input file specified.";
-    exit 1
-  end;
-  parse_and_write !in_file 
-;;
-
-
-main();
-if !error_happened then exit(1);;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:35  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/08/16 23:44:21  gerd
- *     Updates because of changes of the PXP API.
- *
- * Revision 1.1  2000/07/16 17:50:39  gerd
- *     Initial revision.
- *
- *)

diff --git a/helm/DEVEL/pxp/pxp/tools/collect_files b/helm/DEVEL/pxp/pxp/tools/collect_files
deleted file mode 100755 (executable)
index d1770eb..0000000
--- a/helm/DEVEL/pxp/pxp/tools/collect_files
+++ /dev/null
@@ -1,25 +0,0 @@
-#! /bin/sh
-#
-# $Id$
-# ----------------------------------------------------------------------
-#
-# usage: collect_files file ...
-#
-# Prints the names of the files passed as arguments which actually
-# exist and are regular files.
-
-for x in "$@"; do
-    if [ -f "$x" ]; then
-       echo "$x"
-    fi
-done
-
-# ======================================================================
-#
-# $Log$
-# Revision 1.1  2000/11/17 09:57:35  lpadovan
-# Initial revision
-#
-# Revision 1.1  2000/07/27 21:07:26  gerd
-#      Initial revision.
-#

diff --git a/helm/DEVEL/pxp/pxp/tools/insert_variant b/helm/DEVEL/pxp/pxp/tools/insert_variant
deleted file mode 100755 (executable)
index cb592bb..0000000
--- a/helm/DEVEL/pxp/pxp/tools/insert_variant
+++ /dev/null
@@ -1,105 +0,0 @@
-#! /bin/sh
-# (*
-exec ocaml "$0" "$@"
-*) directory ".";;
-
-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-let get_arg variant insert_line =
-  (* returns the argument of an "#insert" line *)
-  let s = ref "" in
-  for i = 8 to String.length insert_line - 1 do
-    match insert_line.[i] with
-       ' ' -> ()
-      | '*' ->
-         (* replace '*' with 'variant' *)
-         s := !s ^ variant
-      | c ->
-         s := !s ^ String.make 1 c
-  done;
-  !s
-;;
-
-
-let edit_file variant name =
-  let basename = Filename.chop_suffix name ".src" in
-  let mllname = basename ^ "_" ^ variant ^ ".mll" in
-  let chin = open_in name in
-  let chout = open_out mllname in
-  output_string chout "(* File generated by insert_variant; DO NOT EDIT! *)\n";
-  begin try
-    while true do
-      let line = input_line chin in
-      (* We do not have Str here. *)
-      if String.length line >= 8 & String.sub line 0 8 = "#insert " then begin
-       let insname = get_arg variant line in
-       (* Copy the file 'insname' to chout *)
-       let chcopy = open_in insname in
-       let n = in_channel_length chcopy in
-       let s = String.create n in
-       really_input chcopy s 0 n;
-       close_in chcopy;
-       output_string chout s;
-      end
-      else begin
-       output_string chout line;
-       output_char chout '\n';
-      end
-    done
-  with
-      End_of_file -> ()
-  end;
-  close_in chin;
-  close_out chout
-;;
-
-
-let main() =
-  let variant = ref "" in
-  let files = ref [] in
-  Arg.current := 0;          (* Because of a OCaml-3.00 bug *)
-  Arg.parse
-      [ "-variant", Arg.String (fun s -> variant := s),
-               "<name>  Set the variant (character encoding)";
-      ]
-      (fun s -> files := !files @ [s])
-      "insert_variant [ options ] file.src ...
-
-Reads the files, replaces the #insert lines by the referred files, and 
-writes the file file_variant.mll. 
-
-The #insert lines include the specified file into the source. The
-asterisk (*) is replaced by the name of the variant.
-
-Options:
-";
-  
-  if !variant = "" then 
-    failwith "No variant specified!";
-
-  List.iter 
-    (fun name -> edit_file !variant name)
-    !files
-;;
-
-
-main();;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:35  lpadovan
- * Initial revision
- *
- * Revision 1.2  2000/05/20 21:14:33  gerd
- *     Workaround for an OCaml 3.00 bug.
- *
- * Revision 1.1  2000/05/20 20:30:15  gerd
- *     Initial revision.
- *
- * 
- *)

diff --git a/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/.cvsignore b/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/.cvsignore
deleted file mode 100644 (file)
index deb5b7f..0000000
--- a/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/.cvsignore
+++ /dev/null
@@ -1,4 +0,0 @@
-*.cmo
-*.cmx
-*.cmi
-

diff --git a/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/Makefile b/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/Makefile
deleted file mode 100644 (file)
index 504cfe5..0000000
--- a/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/Makefile
+++ /dev/null
@@ -1,50 +0,0 @@
-#(******************************************************)
-#(*    Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>   *)
-#(*                   14/05/2000                       *)
-#(******************************************************)
-
-OCAMLC = ocamlc 
-OCAMLOPT = ocamlopt 
-OCAMLDEP = ocamldep
-OCAMLLEX = ocamllex
-OCAMLYACC = ocamlyacc
-
-all: ucs2_to_utf8
-opt: ucs2_to_utf8.opt
-
-DEPOBJS = ucs2_to_utf8.ml lexer.ml parser.ml parser.mli types.ml
-
-UCS2_TO_UTF8OBJS = types.cmo lexer.cmo parser.cmo ucs2_to_utf8.cmo
-UCS2_TO_UTF8OPTOBJS = types.cmx lexer.cmx parser.cmx ucs2_to_utf8.cmx
-
-lexer.ml:
-       $(OCAMLLEX) lexer.mll
-
-parser.ml:
-       $(OCAMLYACC) parser.mly
-
-parser.mli:
-       $(OCAMLYACC) parser.mly
-
-depend: lexer.ml parser.ml parser.mli
-       $(OCAMLDEP) $(DEPOBJS) > depend
- 
-ucs2_to_utf8: $(UCS2_TO_UTF8OBJS)
-       $(OCAMLC) -o ucs2_to_utf8 $(UCS2_TO_UTF8OBJS)
-
-ucs2_to_utf8.opt: $(UCS2_TO_UTF8OPTOBJS)
-       $(OCAMLOPT) -o ucs2_to_utf8.opt $(UCS2_TO_UTF8OPTOBJS)
-
-.SUFFIXES: .ml .mli .cmo .cmi .cmx
-.ml.cmo:
-       $(OCAMLC) -c $<
-.mli.cmi:
-       $(OCAMLC) -c $<
-.ml.cmx:
-       $(OCAMLOPT) -c $<
-
-clean:
-       rm -f *.cm[iox] *.o lexer.ml parser.ml parser.mli \
-       ucs2_to_utf8 ucs2_to_utf8.opt
-
-include depend

diff --git a/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/README b/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/README
deleted file mode 100644 (file)
index d02ae8c..0000000
--- a/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/README
+++ /dev/null
@@ -1,15 +0,0 @@
-(******************************************************)
-(*    Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>   *)
-(*                   14/05/2000                       *)
-(******************************************************)
-
-How to compile: "make clean && make depend && make && make opt"
-
-Usage: "cat input.mll | ./ucs2_to_utf8 > output.mll"
- where in input.mll there are definitions of ucs2 regular expressions
- and in output.mll there are the same utf8 regular expressions in the
- format expected by ocamllex
-
- See input/input.mll for an example (the definitions are taken from the
- appendix B of the XML reccomendation) and input/example.mll for a
- smaller one.

diff --git a/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/lexer.mll b/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/lexer.mll
deleted file mode 100644 (file)
index dfbeb5a..0000000
--- a/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/lexer.mll
+++ /dev/null
@@ -1,43 +0,0 @@
-{
-(******************************************************)
-(*    Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>   *)
-(*                   14/05/2000                       *)
-(******************************************************)
-
-open Parser
-
-let comment_depth = ref 0;;
-
-let charint_of_lexeme l =
- String.set l 0 '0' ;
- int_of_string l
-;;
-}
-
-let digit = ['0'-'9']|['A'-'F']
-
-rule token =
- parse
-    [' ' '\t' '\n']                           { token lexbuf }
-  | "let"                                     { LET }
-  | (['a'-'z']|'_')(['a'-'z']|['A'-'Z']|'_'|['0'-'9']|'\'')*
-                                              { IDENT (Lexing.lexeme lexbuf) }
-  | '='                                       { EQ }
-  | ";;"                                      { END_OF_LET }
-  | "|"                                       { PIPE }
-  | '['                                       { LBRACKET }
-  | ']'                                       { RBRACKET }
-  | '-'                                       { RANGE }
-  | "(*"                                      { incr comment_depth ;
-                                                comment lexbuf
-                                              }
-  | "#x" digit digit digit digit              { CHAR (charint_of_lexeme (Lexing.lexeme lexbuf)) }
-  | eof                                       { EOF }
-
-and comment =
- parse
-    "(*" { incr comment_depth ; comment lexbuf }
-  | "*)" { decr comment_depth ;
-           if !comment_depth = 0 then token lexbuf else comment lexbuf
-         }
-  | _    { comment lexbuf }

diff --git a/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/parser.mly b/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/parser.mly
deleted file mode 100644 (file)
index 2fba775..0000000
--- a/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/parser.mly
+++ /dev/null
@@ -1,40 +0,0 @@
-/******************************************************/
-/*    Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>   */
-/*                   14/05/2000                       */
-/******************************************************/
-
-%token <int>CHAR
-%token <string>IDENT
-%token LET
-%token EQ
-%token END_OF_LET
-%token RBRACKET
-%token PIPE
-%token LBRACKET
-%token RANGE
-%token EOF
-%start main
-%type <Types.definition list> main
-
-%%
-
-main:
-   EOF              { [] }
- | declaration main { $1::$2 }
-;
-
-declaration:
-   LET IDENT EQ regexp END_OF_LET
-      { { Types.id = $2 ; Types.rel = $4 } }
-;
-
-regexp:
-   regexptoken PIPE regexp  { $1::$3 }
- | regexptoken              { [$1] }
-;
-
-regexptoken:
-   CHAR                               { Types.Char $1 }
- | LBRACKET CHAR RANGE CHAR RBRACKET  { Types.Interval ($2,$4) }
- | IDENT                              { Types.Identifier $1 }
-;

diff --git a/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/types.ml b/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/types.ml
deleted file mode 100644 (file)
index e2da7dc..0000000
--- a/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/types.ml
+++ /dev/null
@@ -1,13 +0,0 @@
-(******************************************************)
-(*    Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>   *)
-(*                   14/05/2000                       *)
-(******************************************************)
-
-type regexp =
-   Char of int
- | Interval of int * int      (* lower bound, upper bound *)
- | Identifier of string
- | Concat of regexp list list (* concatenation of disjunctions *)
-;;
-
-type definition = { id : string ; rel : regexp list } ;;

diff --git a/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/ucs2_to_utf8.ml b/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/ucs2_to_utf8.ml
deleted file mode 100644 (file)
index 1512d23..0000000
--- a/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/ucs2_to_utf8.ml
+++ /dev/null
@@ -1,215 +0,0 @@
-(******************************************************)
-(*    Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>   *)
-(*                   14/05/2000                       *)
-(******************************************************)
-
-(* Surrogate Pairs are not accepted in XML files (is it true???) *)
-exception SurrogatePairs;;
-
-(* Interval (n,m) where n >m m *)
-exception InvalidInterval of int * int;;
-
-(* Given an ucs2 character code, returns it in utf8 *)
-(* (as a concatenation of characters)               *)
-let char_ucs2_to_utf8 =
- function
-    n when n >= 0xD800 && n <= 0xDFFF -> raise SurrogatePairs
-  | n when n <= 0x007F -> Types.Char n
-  | n when n <= 0x07FF ->
-     Types.Concat
-      [[Types.Char (n lsr  6 land 0b00011111 lor 0b11000000)] ;
-       [Types.Char (n        land 0b00111111 lor 0b10000000)]]
-  | n ->
-     Types.Concat
-      [[Types.Char (n lsr 12 land 0b00001111 lor 0b11100000)] ;
-       [Types.Char (n lsr  6 land 0b00111111 lor 0b10000000)] ;
-       [Types.Char (n        land 0b00111111 lor 0b10000000)]]
-;;
-
-(*CSC: Two functions for debugging pourposes only
-
-let char_ucs2_to_utf8 =
- function
-    n when n >= 0xD800 && n <= 0xDFFF -> assert false
-  | n when n <= 0x007F -> [[n]]
-  | n when n <= 0x07FF ->
-     [[(n lsr  6 land 0b00011111 lor 0b11000000)] ;
-      [(n        land 0b00111111 lor 0b10000000)]]
-  | n ->
-     [[(n lsr 12 land 0b00001111 lor 0b11100000)] ;
-      [(n lsr  6 land 0b00111111 lor 0b10000000)] ;
-      [(n        land 0b00111111 lor 0b10000000)]]
-;;
-
-let rec bprint =
- function
-    0 -> ""
-  | n -> bprint (n / 2) ^ string_of_int (n mod 2)
-;;
-*)
-
-(* A few useful functions *)
-let rec mklist e =
- function
-    0 -> []
-  | n -> e::(mklist e (n - 1))
-;;
-
-let sup =
- let t = Types.Char 0b10111111 in
-  function
-     1 -> t
-   | n -> Types.Concat (mklist [t] n)
-;;
-
-let rec inf =
- let b = Types.Char 0b10000000 in
-  function
-     1 -> [[b]]
-   | n -> mklist [b] n
-;;
-
-let mysucc =
- function
-    [Types.Char n] -> n + 1
-  | _ -> assert false
-;;
-
-let mypred =
- function
-    [Types.Char n] -> n - 1
-  | _ -> assert false
-;;
-
-(* Given two utf8-encoded extremes of an interval character code      *)
-(* whose 'length' is the same, it returns the utf8 regular expression *)
-(* matching all the characters in the interval                        *)
-let rec same_length_ucs2_to_utf8 =
- let module T = Types in
-  function
-     (T.Char n, T.Char m) when n = m -> [T.Char n]
-   | (T.Char n, T.Char m) -> [T.Interval (n,m)]
-   | (T.Concat [hen ; [tln]], T.Concat [hem ; [tlm]]) when hen = hem ->
-      [T.Concat [hen ; same_length_ucs2_to_utf8 (tln,tlm)]]
-   | (T.Concat [hen ; [tln]], T.Concat ([hem ; [tlm]] as e2)) ->
-      (T.Concat [hen ; same_length_ucs2_to_utf8 (tln,sup 1)]) ::
-      (let shen = mysucc hen
-       and phem = mypred hem in
-       let succhen = [T.Char shen] in
-        if succhen = hem then
-         same_length_ucs2_to_utf8 (T.Concat (succhen::(inf 1)), T.Concat e2)
-        else
-         (T.Concat [[T.Interval (shen, phem)] ;
-          [T.Interval (0b10000000,0b10111111)]])::
-           same_length_ucs2_to_utf8 (T.Concat (hem::(inf 1)), T.Concat e2)
-      )
-    (*same_length_ucs2_to_utf8 (T.Concat ((mysucc hen)::(inf 1)), T.Concat e2)*)
-   | (T.Concat (hen::tln), T.Concat (hem::tlm)) when hen = hem ->
-      [T.Concat [hen ; same_length_ucs2_to_utf8 (T.Concat tln, T.Concat tlm)]]
-   | (T.Concat (hen::tln), T.Concat ((hem::tlm) as e2)) ->
-      let n = List.length tln in
-       (T.Concat
-        [hen ; same_length_ucs2_to_utf8 (T.Concat tln,sup n)]) ::
-         (let shen = mysucc hen
-          and phem = mypred hem in
-          let succhen = [T.Char shen] in
-           if succhen = hem then
-            same_length_ucs2_to_utf8 (T.Concat (succhen::(inf n)), T.Concat e2)
-           else
-            (T.Concat [[T.Interval (shen, phem)] ;
-             [T.Interval (0b10000000,0b10111111)] ;
-             [T.Interval (0b10000000,0b10111111)]]
-            )::
-             same_length_ucs2_to_utf8 (T.Concat (hem::(inf n)), T.Concat e2)
-       )
-     (*same_length_ucs2_to_utf8 (T.Concat ((mysucc hen)::(inf n)),T.Concat e2)*)
-   | _ -> assert false
-;;
-
-(* Given an interval of ucs2 characters, splits *)
-(* the list in subintervals whose extremes has  *)
-(* the same utf8 encoding length and, for each  *)
-(* extreme, calls same_length_ucs2_to_utf8      *)
-let rec seq_ucs2_to_utf8 =
- function
-    (n,_) when n >= 0xD800 && n <= 0xDFFF -> raise SurrogatePairs
-  | (_,n) when n >= 0xD800 && n <= 0xDFFF -> raise SurrogatePairs
-  | (n,m) when n > m -> raise (InvalidInterval (n,m))
-  | (n,m) when n = m -> [char_ucs2_to_utf8 n]
-  | (n,m) when n <= 0x07F && m > 0x07F ->
-      (seq_ucs2_to_utf8 (n,0x07F)) @ (seq_ucs2_to_utf8 (0x080,m))
-  | (n,m) when n <= 0x07FF && m > 0x07FF ->
-      (seq_ucs2_to_utf8 (n,0x07FF)) @ (seq_ucs2_to_utf8 (0x0800,m))
-  | (n,m) ->
-      let utf8n = char_ucs2_to_utf8 n
-      and utf8m = char_ucs2_to_utf8 m in
-       same_length_ucs2_to_utf8 (utf8n,utf8m)
-;;
-
-(* Given an ucs2 regual expression, returns  *)
-(* the corresponding utf8 regular expression *)
-let ucs2_to_utf8 { Types.id = id ; Types.rel = rel } =
- let rec aux re l2 =
-  match re with
-     Types.Char i -> char_ucs2_to_utf8 i :: l2
-   | Types.Interval (l,u) -> seq_ucs2_to_utf8 (l,u) @ l2
-   | Types.Identifier _ as i -> i :: l2
-   | Types.Concat rell ->
-      let foo rel = List.fold_right aux rel [] in
-       Types.Concat (List.map foo rell) :: l2
- in
-  { Types.id = id ; Types.rel = List.fold_right aux rel [] }
-;;
-
-(* The function actually used to produce the output *)
-let output = print_string ;;
-
-(* padded_string_of_int i returns the string representing the        *)
-(* integer i (i < 256) using exactly 3 digits (example: 13 -> "013") *)
-let padded_string_of_int i =
- if i < 10 then
-  "00" ^ string_of_int i
- else if i < 100 then
-  "0" ^ string_of_int i
- else
-  string_of_int i
-;;
-
-(* Two functions useful to print a definition *)
-let rec print_disjunction ?(first = true) =
- function
-    [] -> ()
-  | he::tl ->
-     if not first then output " | " ;
-     print_re he ;
-     print_disjunction ~first:false tl
-and print_re =
- function
-    Types.Char i -> output ("'\\" ^ padded_string_of_int i ^ "'")
-  | Types.Interval (l,u) ->
-     output ("['\\" ^ padded_string_of_int l ^ "'-'\\" ^
-      padded_string_of_int u ^ "']")
-  | Types.Identifier i -> output i
-  | Types.Concat rell ->
-     let foo rel =
-      if List.length rel > 1 then
-       (output "(" ; print_disjunction rel ; output ")")
-      else
-       print_disjunction rel
-     in
-      List.iter foo rell
-;;
-
-(* print_definition prints a definition in the format expected by ocamllex *)
-let print_definition { Types.id = id ; Types.rel = rel } =
- output ("let " ^ id ^ " =\n   ") ;
- print_disjunction rel ;
- output "\n\n"
-;;
-
-(* main *)
-let _ =
- let lexbuf = Lexing.from_channel stdin in
-  let ucs2_result = Parser.main Lexer.token lexbuf in
-   List.iter print_definition (List.map ucs2_to_utf8 ucs2_result)
-;;

diff --git a/helm/EXPORT/cshrc b/helm/EXPORT/cshrc
deleted file mode 100755 (executable)
index e5519d7..0000000
--- a/helm/EXPORT/cshrc
+++ /dev/null
@@ -1,4 +0,0 @@
-setenv PATH /home/projects/helm/EXPORT/INSTALLED_V7/usr/local/bin:$PATH
-
-# Per uris_of_filenames.pl
-setenv PATH /home/projects/helm/V7/interface:$PATH

diff --git a/helm/EXPORT/export_Bordeaux_EXCEPTIONS/Makefile b/helm/EXPORT/export_Bordeaux_EXCEPTIONS/Makefile
deleted file mode 100644 (file)
index 484f097..0000000
--- a/helm/EXPORT/export_Bordeaux_EXCEPTIONS/Makefile
+++ /dev/null
@@ -1,11 +0,0 @@
-all: objects theories
-
-objects:
-       coqc -R EXCEPTIONS Bordeaux.EXCEPTIONS EXCEPTIONS/*.v
-       echo "Load Verbose prova_Bordeaux_EXCEPTIONS." | coqtop.byte -R EXCEPTIONS Bordeaux.EXCEPTIONS
-
-theories:
-       ./exporttheories.sh
-
-clean:
-       rm -f *.vo EXCEPTIONS/*.vo

diff --git a/helm/EXPORT/export_Bordeaux_EXCEPTIONS/exporttheories.sh b/helm/EXPORT/export_Bordeaux_EXCEPTIONS/exporttheories.sh
deleted file mode 100755 (executable)
index 5328273..0000000
--- a/helm/EXPORT/export_Bordeaux_EXCEPTIONS/exporttheories.sh
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/bash
-
-echo "Exporting theory $1";
-
-for i in EXCEPTIONS/*.v
- do
-  basename=$(basename $i | sed s/\\.v//)
-  cat $i | ../mktheory.pl "Bordeaux/EXCEPTIONS/$basename" > \
-   examples/Bordeaux/EXCEPTIONS/$basename.theory.xml
- done

diff --git a/helm/EXPORT/export_Bordeaux_EXCEPTIONS/prova_Bordeaux_EXCEPTIONS.v b/helm/EXPORT/export_Bordeaux_EXCEPTIONS/prova_Bordeaux_EXCEPTIONS.v
deleted file mode 100644 (file)
index 07c14ef..0000000
--- a/helm/EXPORT/export_Bordeaux_EXCEPTIONS/prova_Bordeaux_EXCEPTIONS.v
+++ /dev/null
@@ -1,5 +0,0 @@
-Require Export Xml.
-
-Require leavemult.
-
-Print XML Module Disk "examples" leavemult.

diff --git a/helm/EXPORT/export_Marseille_CCS/Makefile b/helm/EXPORT/export_Marseille_CCS/Makefile
deleted file mode 100644 (file)
index 7c30db4..0000000
--- a/helm/EXPORT/export_Marseille_CCS/Makefile
+++ /dev/null
@@ -1,11 +0,0 @@
-all: objects theories
-
-objects:
-       coqc -R CCS Marseille.CCS CCS/*.v
-       echo "Load Verbose prova_Marseille_CCS." | coqtop.byte -R CCS Marseille.CCS
-
-theories:
-       ./exporttheories.sh
-
-clean:
-       rm -f *.vo CCS/*.vo

diff --git a/helm/EXPORT/export_Marseille_CCS/exporttheories.sh b/helm/EXPORT/export_Marseille_CCS/exporttheories.sh
deleted file mode 100755 (executable)
index 24fce6c..0000000
--- a/helm/EXPORT/export_Marseille_CCS/exporttheories.sh
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/bash
-
-echo "Exporting theory $1";
-
-for i in CCS/*.v
- do
-  basename=$(basename $i | sed s/\\.v//)
-  cat $i | ../mktheory.pl "Marseille/CCS/$basename" > \
-   examples/Marseille/CCS/$basename.theory.xml
- done

diff --git a/helm/EXPORT/export_Marseille_CCS/prova_Marseille_CCS.v b/helm/EXPORT/export_Marseille_CCS/prova_Marseille_CCS.v
deleted file mode 100644 (file)
index e440667..0000000
--- a/helm/EXPORT/export_Marseille_CCS/prova_Marseille_CCS.v
+++ /dev/null
@@ -1,5 +0,0 @@
-Require Export Xml.
-
-Require Trans_Sys.
-
-Print XML Module Disk "examples" Trans_Sys.

diff --git a/helm/EXPORT/export_Nijmegen_Rem/Makefile b/helm/EXPORT/export_Nijmegen_Rem/Makefile
deleted file mode 100644 (file)
index 3421cc0..0000000
--- a/helm/EXPORT/export_Nijmegen_Rem/Makefile
+++ /dev/null
@@ -1,11 +0,0 @@
-all: objects theories
-
-objects:
-       coqc -R Rem Nijmegen.Rem Rem/*.v
-       echo "Load Verbose prova_Nijmegen_Rem." | coqtop.byte -R Rem Nijmegen.Rem
-
-theories:
-       ./exporttheories.sh
-
-clean:
-       rm -f *.vo Rem/*.vo

diff --git a/helm/EXPORT/export_Nijmegen_Rem/exporttheories.sh b/helm/EXPORT/export_Nijmegen_Rem/exporttheories.sh
deleted file mode 100755 (executable)
index 8e64b90..0000000
--- a/helm/EXPORT/export_Nijmegen_Rem/exporttheories.sh
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/bash
-
-echo "Exporting theory $1";
-
-for i in Rem/*.v
- do
-  basename=$(basename $i | sed s/\\.v//)
-  cat $i | ../mktheory.pl "Nijmegen/Rem/$basename" > \
-   examples/Nijmegen/Rem/$basename.theory.xml
- done

diff --git a/helm/EXPORT/export_Nijmegen_Rem/prova_Nijmegen_Rem.v b/helm/EXPORT/export_Nijmegen_Rem/prova_Nijmegen_Rem.v
deleted file mode 100644 (file)
index 04244aa..0000000
--- a/helm/EXPORT/export_Nijmegen_Rem/prova_Nijmegen_Rem.v
+++ /dev/null
@@ -1,5 +0,0 @@
-Require Export Xml.
-
-Require Rem.
-
-Print XML Module Disk "examples" Rem.

diff --git a/helm/EXPORT/export_Paris_ZF/Makefile b/helm/EXPORT/export_Paris_ZF/Makefile
deleted file mode 100644 (file)
index ee2f95e..0000000
--- a/helm/EXPORT/export_Paris_ZF/Makefile
+++ /dev/null
@@ -1,25 +0,0 @@
-all: objects theories
-
-objects:
-       coqc -R ZF/src Paris.ZF ZF/src/nothing.v
-       coqc -R ZF/src Paris.ZF ZF/src/useful.v
-       coqc -R ZF/src Paris.ZF ZF/src/ZFbasis.v
-       coqc -R ZF/src Paris.ZF ZF/src/axs_extensionnalite.v
-       coqc -R ZF/src Paris.ZF ZF/src/axs_paire.v
-       coqc -R ZF/src Paris.ZF ZF/src/axs_reunion.v
-       coqc -R ZF/src Paris.ZF ZF/src/axs_parties.v
-       coqc -R ZF/src Paris.ZF ZF/src/axs_comprehension.v
-       coqc -R ZF/src Paris.ZF ZF/src/axs_remplacement.v
-       coqc -R ZF/src Paris.ZF ZF/src/couples.v
-       coqc -R ZF/src Paris.ZF ZF/src/applications.v
-       coqc -R ZF/src Paris.ZF ZF/src/axs_choice.v
-       coqc -R ZF/src Paris.ZF ZF/src/axs_fundation.v
-       coqc -R ZF/src Paris.ZF ZF/src/ZFrelations.v
-       coqc -R ZF/src Paris.ZF ZF/src/MSetBasis.v
-       echo "Load Verbose prova_Paris_ZF." | coqtop.byte -R ZF/src Paris.ZF
-
-theories:
-       ./exporttheories.sh
-
-clean:
-       rm -f *.vo ZF/src/*.vo

diff --git a/helm/EXPORT/export_Paris_ZF/exporttheories.sh b/helm/EXPORT/export_Paris_ZF/exporttheories.sh
deleted file mode 100755 (executable)
index 3a0db3d..0000000
--- a/helm/EXPORT/export_Paris_ZF/exporttheories.sh
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/bash
-
-echo "Exporting theory $1";
-
-for i in ZF/src/*.v
- do
-  basename=$(basename $i | sed s/\\.v//)
-  cat $i | ../mktheory.pl "Paris/ZF/$basename" > \
-   examples/Paris/ZF/$basename.theory.xml
- done

diff --git a/helm/EXPORT/export_Paris_ZF/prova_Paris_ZF.v b/helm/EXPORT/export_Paris_ZF/prova_Paris_ZF.v
deleted file mode 100644 (file)
index 03f5942..0000000
--- a/helm/EXPORT/export_Paris_ZF/prova_Paris_ZF.v
+++ /dev/null
@@ -1,33 +0,0 @@
-Require Export Xml.
-
-Require nothing.
-Require useful.
-Require ZFbasis.
-Require axs_extensionnalite.
-Require axs_paire .
-Require axs_reunion.
-Require axs_parties.
-Require axs_comprehension.
-Require axs_remplacement.
-Require couples.
-Require applications .
-Require axs_choice.
-Require axs_fundation.
-Require ZFrelations.
-Require MSetBasis .
-
-Print XML Module Disk "examples" nothing.
-Print XML Module Disk "examples" useful.
-Print XML Module Disk "examples" ZFbasis.
-Print XML Module Disk "examples" axs_extensionnalite.
-Print XML Module Disk "examples" axs_paire .
-Print XML Module Disk "examples" axs_reunion.
-Print XML Module Disk "examples" axs_parties.
-Print XML Module Disk "examples" axs_comprehension.
-Print XML Module Disk "examples" axs_remplacement.
-Print XML Module Disk "examples" couples.
-Print XML Module Disk "examples" applications .
-Print XML Module Disk "examples" axs_choice.
-Print XML Module Disk "examples" axs_fundation.
-Print XML Module Disk "examples" ZFrelations.
-Print XML Module Disk "examples" MSetBasis .

diff --git a/helm/EXPORT/export_Rocq_CHECKER/Makefile b/helm/EXPORT/export_Rocq_CHECKER/Makefile
deleted file mode 100644 (file)
index 76fe930..0000000
--- a/helm/EXPORT/export_Rocq_CHECKER/Makefile
+++ /dev/null
@@ -1,11 +0,0 @@
-all: objects theories
-
-objects:
-       coqc -R CHECKER Rocq.CHECKER CHECKER/Functions.v CHECKER/Checker.v
-       echo "Load Verbose prova_Rocq_CHECKER." | coqtop.byte -R CHECKER Rocq.CHECKER
-
-theories:
-       ./exporttheories.sh
-
-clean:
-       rm -f *.vo CHECKER/*.vo

diff --git a/helm/EXPORT/export_Rocq_CHECKER/exporttheories.sh b/helm/EXPORT/export_Rocq_CHECKER/exporttheories.sh
deleted file mode 100755 (executable)
index e015204..0000000
--- a/helm/EXPORT/export_Rocq_CHECKER/exporttheories.sh
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/bash
-
-echo "Exporting theory $1";
-
-for i in CHECKER/*.v
- do
-  basename=$(basename $i | sed s/\\.v//)
-  cat $i | ../mktheory.pl "Rocq/CHECKER/$basename" > \
-   examples/Rocq/CHECKER/$basename.theory.xml
- done

diff --git a/helm/EXPORT/export_Rocq_CHECKER/prova_Rocq_CHECKER.v b/helm/EXPORT/export_Rocq_CHECKER/prova_Rocq_CHECKER.v
deleted file mode 100644 (file)
index 1905884..0000000
--- a/helm/EXPORT/export_Rocq_CHECKER/prova_Rocq_CHECKER.v
+++ /dev/null
@@ -1,7 +0,0 @@
-Require Export Xml.
-
-Require Functions.
-Require Checker.
-
-Print XML Module Disk "examples" Functions.
-Print XML Module Disk "examples" Checker.

diff --git a/helm/EXPORT/export_Rocq_HIGMAN/Makefile b/helm/EXPORT/export_Rocq_HIGMAN/Makefile
deleted file mode 100644 (file)
index f5161ba..0000000
--- a/helm/EXPORT/export_Rocq_HIGMAN/Makefile
+++ /dev/null
@@ -1,11 +0,0 @@
-all: objects theories
-
-objects:
-       coqc -R HIGMAN Rocq.HIGMAN HIGMAN/*.v
-       echo "Load Verbose prova_Rocq_HIGMAN." | coqtop.byte -R HIGMAN Rocq.HIGMAN
-
-theories:
-       ./exporttheories.sh
-
-clean:
-       rm -f *.vo HIGMAN/*.vo

diff --git a/helm/EXPORT/export_Rocq_HIGMAN/exporttheories.sh b/helm/EXPORT/export_Rocq_HIGMAN/exporttheories.sh
deleted file mode 100755 (executable)
index d192816..0000000
--- a/helm/EXPORT/export_Rocq_HIGMAN/exporttheories.sh
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/bash
-
-echo "Exporting theory $1";
-
-for i in HIGMAN/*.v
- do
-  basename=$(basename $i | sed s/\\.v//)
-  cat $i | ../mktheory.pl "Rocq/HIGMAN/$basename" > \
-   examples/Rocq/HIGMAN/$basename.theory.xml
- done

diff --git a/helm/EXPORT/export_Rocq_HIGMAN/prova_Rocq_HIGMAN.v b/helm/EXPORT/export_Rocq_HIGMAN/prova_Rocq_HIGMAN.v
deleted file mode 100644 (file)
index 9abc11a..0000000
--- a/helm/EXPORT/export_Rocq_HIGMAN/prova_Rocq_HIGMAN.v
+++ /dev/null
@@ -1,5 +0,0 @@
-Require Export Xml.
-
-Require Higman.
-
-Print XML Module Disk "examples" Higman.

diff --git a/helm/EXPORT/export_Rocq_SHUFFLE/Makefile b/helm/EXPORT/export_Rocq_SHUFFLE/Makefile
deleted file mode 100644 (file)
index ba2ab57..0000000
--- a/helm/EXPORT/export_Rocq_SHUFFLE/Makefile
+++ /dev/null
@@ -1,16 +0,0 @@
-all: objects theories
-
-objects:
-       coqc -R SHUFFLE Rocq.SHUFFLE SHUFFLE/Words.v
-       coqc -R SHUFFLE Rocq.SHUFFLE SHUFFLE/Alternate.v
-       coqc -R SHUFFLE Rocq.SHUFFLE SHUFFLE/Opposite.v
-       coqc -R SHUFFLE Rocq.SHUFFLE SHUFFLE/Paired.v
-       coqc -R SHUFFLE Rocq.SHUFFLE SHUFFLE/Shuffle.v
-       coqc -R SHUFFLE Rocq.SHUFFLE SHUFFLE/Gilbreath.v
-       echo "Load Verbose prova_Rocq_SHUFFLE." | coqtop.byte -R SHUFFLE Rocq.SHUFFLE
-
-theories:
-       ./exporttheories.sh
-
-clean:
-       rm -f *.vo SHUFFLE/*.vo

diff --git a/helm/EXPORT/export_Rocq_SHUFFLE/exporttheories.sh b/helm/EXPORT/export_Rocq_SHUFFLE/exporttheories.sh
deleted file mode 100755 (executable)
index acd865a..0000000
--- a/helm/EXPORT/export_Rocq_SHUFFLE/exporttheories.sh
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/bash
-
-echo "Exporting theory $1";
-
-for i in SHUFFLE/*.v
- do
-  basename=$(basename $i | sed s/\\.v//)
-  cat $i | ../mktheory.pl "Rocq/SHUFFLE/$basename" > \
-   examples/Rocq/SHUFFLE/$basename.theory.xml
- done

diff --git a/helm/EXPORT/export_Rocq_SHUFFLE/prova_Rocq_SHUFFLE.v b/helm/EXPORT/export_Rocq_SHUFFLE/prova_Rocq_SHUFFLE.v
deleted file mode 100644 (file)
index 1b17a93..0000000
--- a/helm/EXPORT/export_Rocq_SHUFFLE/prova_Rocq_SHUFFLE.v
+++ /dev/null
@@ -1,16 +0,0 @@
-Require Export Xml.
-
-Require Alternate.
-Require Gilbreath.
-Require Opposite.
-Require Paired.
-Require Shuffle.
-Require Words.
-
-
-Print XML Module Disk "examples" Alternate.
-Print XML Module Disk "examples" Gilbreath.
-Print XML Module Disk "examples" Opposite.
-Print XML Module Disk "examples" Paired.
-Print XML Module Disk "examples" Shuffle.
-Print XML Module Disk "examples" Words.

diff --git a/helm/EXPORT/export_Utrecht_Ramsey/Makefile b/helm/EXPORT/export_Utrecht_Ramsey/Makefile
deleted file mode 100644 (file)
index 576b198..0000000
--- a/helm/EXPORT/export_Utrecht_Ramsey/Makefile
+++ /dev/null
@@ -1,11 +0,0 @@
-all: objects theories
-
-objects:
-       coqc -R Ramsey Utrecht.Ramsey Ramsey/*.v
-       echo "Load Verbose prova_Utrecht_Ramsey." | coqtop.byte -R Ramsey Utrecht.Ramsey
-
-theories:
-       ./exporttheories.sh
-
-clean:
-       rm -f *.vo Ramsey/*.vo

diff --git a/helm/EXPORT/export_Utrecht_Ramsey/exporttheories.sh b/helm/EXPORT/export_Utrecht_Ramsey/exporttheories.sh
deleted file mode 100755 (executable)
index b2dd5f8..0000000
--- a/helm/EXPORT/export_Utrecht_Ramsey/exporttheories.sh
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/bash
-
-echo "Exporting theory $1";
-
-for i in Ramsey/*.v
- do
-  basename=$(basename $i | sed s/\\.v//)
-  cat $i | ../mktheory.pl "Utrecht/Ramsey/$basename" > \
-   examples/Utrecht/Ramsey/$basename.theory.xml
- done

diff --git a/helm/EXPORT/export_Utrecht_Ramsey/prova_Utrecht_Ramsey.v b/helm/EXPORT/export_Utrecht_Ramsey/prova_Utrecht_Ramsey.v
deleted file mode 100644 (file)
index aa0500f..0000000
--- a/helm/EXPORT/export_Utrecht_Ramsey/prova_Utrecht_Ramsey.v
+++ /dev/null
@@ -1,5 +0,0 @@
-Require Export Xml.
-
-Require Ramsey.
-
-Print XML Module Disk "examples" Ramsey.

diff --git a/helm/EXPORT/exportcoq/Makefile b/helm/EXPORT/exportcoq/Makefile
deleted file mode 100644 (file)
index 5026ec5..0000000
--- a/helm/EXPORT/exportcoq/Makefile
+++ /dev/null
@@ -1,7 +0,0 @@
-all: objects theories
-
-objects:
-       echo "Load Verbose provacoq." | coqtop.byte
-
-theories:
-       ./exporttheories.sh

diff --git a/helm/EXPORT/exportcoq/export_contrib_theory.sh b/helm/EXPORT/exportcoq/export_contrib_theory.sh
deleted file mode 100755 (executable)
index afc1918..0000000
--- a/helm/EXPORT/exportcoq/export_contrib_theory.sh
+++ /dev/null
@@ -1,12 +0,0 @@
-#!/bin/bash
-
-echo "Exporting theory $1";
-
-for i in ../V7/contrib/$1/*.v
- do
-  basename=$(basename $i | sed s/\\.v//)
-  cat $i | ../mktheory.pl "Coq/$1/$basename" 0 > \
-   examples/Coq/$1/$basename.theory.xml
-#  cat $i | ../mktheory.pl "Coq/$1/$basename" 1 > \
-#   examples/Coq/$1/"$basename"_with_types.theory.xml
- done

diff --git a/helm/EXPORT/exportcoq/export_theory_theory.sh b/helm/EXPORT/exportcoq/export_theory_theory.sh
deleted file mode 100755 (executable)
index 1a23583..0000000
--- a/helm/EXPORT/exportcoq/export_theory_theory.sh
+++ /dev/null
@@ -1,12 +0,0 @@
-#!/bin/bash
-
-echo "Exporting theory $1";
-
-for i in ../V7/theories/$1/*.v
- do
-  basename=$(basename $i | sed s/\\.v//)
-  cat $i | ../mktheory.pl "Coq/$1/$basename" 0 > \
-   examples/Coq/$1/$basename.theory.xml
-#  cat $i | ../mktheory.pl "Coq/$1/$basename" 1 > \
-#   examples/Coq/$1/"$basename"_with_types.theory.xml
- done

diff --git a/helm/EXPORT/exportcoq/exporttheories.sh b/helm/EXPORT/exportcoq/exporttheories.sh
deleted file mode 100755 (executable)
index 5fdc473..0000000
--- a/helm/EXPORT/exportcoq/exporttheories.sh
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/bin/bash
-
-./export_theory_theory.sh Arith
-./export_theory_theory.sh Bool
-./export_theory_theory.sh Init
-./export_theory_theory.sh Lists
-./export_theory_theory.sh Logic
-./export_theory_theory.sh Reals
-./export_theory_theory.sh Relations
-./export_theory_theory.sh Sets
-#./export_theory_theory.sh SORTING
-#./export_theory_theory.sh TREES
-./export_theory_theory.sh Wellfounded
-./export_theory_theory.sh Zarith
-
-./export_contrib_theory.sh omega
-./export_contrib_theory.sh ring

diff --git a/helm/EXPORT/exportcoq/provacoq.v b/helm/EXPORT/exportcoq/provacoq.v
deleted file mode 100644 (file)
index 99b52eb..0000000
--- a/helm/EXPORT/exportcoq/provacoq.v
+++ /dev/null
@@ -1,14 +0,0 @@
-Load Verbose provacoqArith.
-Load Verbose provacoqBool.
-Load Verbose provacoqInit.
-Load Verbose provacoqLists.
-Load Verbose provacoqLogic.
-Load Verbose provacoqReals.
-Load Verbose provacoqRelations.
-Load Verbose provacoqSets.
-(*Load Verbose provacoqSorting.*)
-(*Load Verbose provacoqTrees.*)
-Load Verbose provacoqZArith.
-
-Load Verbose provacoqcontribRing.
-Load Verbose provacoqcontribOmega.

diff --git a/helm/EXPORT/exportcoq/provacoqArith.v b/helm/EXPORT/exportcoq/provacoqArith.v
deleted file mode 100644 (file)
index 1fdc4f9..0000000
--- a/helm/EXPORT/exportcoq/provacoqArith.v
+++ /dev/null
@@ -1,31 +0,0 @@
-Require Export Xml.
-
-Require Arith.
-Require Compare.
-Require Compare_dec.
-(*Require Div.*)
-Require Div2.
-Require EqNat.
-Require Euclid_def.
-Require Euclid_proof.
-Require Peano_dec.
-
-Print XML Module Disk "examples" Arith.
-Print XML Module Disk "examples" Between.
-Print XML Module Disk "examples" Compare.
-Print XML Module Disk "examples" Compare_dec.
-(*Print XML Module Disk "examples" Div.*)
-Print XML Module Disk "examples" Div2.
-Print XML Module Disk "examples" EqNat.
-Print XML Module Disk "examples" Euclid_def.
-Print XML Module Disk "examples" Euclid_proof.
-Print XML Module Disk "examples" Even.
-Print XML Module Disk "examples" Gt.
-Print XML Module Disk "examples" Le.
-Print XML Module Disk "examples" Lt.
-Print XML Module Disk "examples" Min.
-Print XML Module Disk "examples" Minus.
-Print XML Module Disk "examples" Mult.
-Print XML Module Disk "examples" Peano_dec.
-Print XML Module Disk "examples" Plus.
-Print XML Module Disk "examples" Wf_nat.

diff --git a/helm/EXPORT/exportcoq/provacoqBool.v b/helm/EXPORT/exportcoq/provacoqBool.v
deleted file mode 100644 (file)
index a898237..0000000
--- a/helm/EXPORT/exportcoq/provacoqBool.v
+++ /dev/null
@@ -1,13 +0,0 @@
-Require Export Xml.
-
-Require Bool.
-Require DecBool.
-Require IfProp.
-Require Sumbool.
-Require Zerob.
-
-Print XML Module Disk "examples" Bool.
-Print XML Module Disk "examples" DecBool.
-Print XML Module Disk "examples" IfProp.
-Print XML Module Disk "examples" Sumbool.
-Print XML Module Disk "examples" Zerob.

diff --git a/helm/EXPORT/exportcoq/provacoqInit.v b/helm/EXPORT/exportcoq/provacoqInit.v
deleted file mode 100644 (file)
index d40ea3e..0000000
--- a/helm/EXPORT/exportcoq/provacoqInit.v
+++ /dev/null
@@ -1,13 +0,0 @@
-Require Export Xml.
-
-Print XML Module Disk "examples" Datatypes.
-Print XML Module Disk "examples" DatatypesSyntax.
-Print XML Module Disk "examples" Logic.
-Print XML Module Disk "examples" LogicSyntax.
-Print XML Module Disk "examples" Specif.
-Print XML Module Disk "examples" SpecifSyntax.
-Print XML Module Disk "examples" Peano.
-Print XML Module Disk "examples" Wf.
-Print XML Module Disk "examples" Prelude.
-Print XML Module Disk "examples" Logic_Type.
-Print XML Module Disk "examples" Logic_TypeSyntax.

diff --git a/helm/EXPORT/exportcoq/provacoqLists.v b/helm/EXPORT/exportcoq/provacoqLists.v
deleted file mode 100644 (file)
index 91b74ef..0000000
--- a/helm/EXPORT/exportcoq/provacoqLists.v
+++ /dev/null
@@ -1,15 +0,0 @@
-Require Export Xml.
-
-Require List.
-Require ListSet.
-Require PolyList.
-(*Require PolyListSyntax.*)
-Require Streams.
-Require TheoryList.
-
-Print XML Module Disk "examples" List.
-Print XML Module Disk "examples" ListSet.
-Print XML Module Disk "examples" PolyList.
-(*Print XML Module Disk "examples" PolyListSyntax.*)
-Print XML Module Disk "examples" Streams.
-Print XML Module Disk "examples" TheoryList.

diff --git a/helm/EXPORT/exportcoq/provacoqLogic.v b/helm/EXPORT/exportcoq/provacoqLogic.v
deleted file mode 100644 (file)
index e2296a5..0000000
--- a/helm/EXPORT/exportcoq/provacoqLogic.v
+++ /dev/null
@@ -1,17 +0,0 @@
-Require Export Xml.
-
-Require Classical.
-Require Classical_Pred_Set.
-Require Classical_Pred_Type.
-Require Classical_Prop.
-Require Classical_Type.
-Require Eqdep.
-Require Eqdep_dec.
-
-Print XML Module Disk "examples" Classical.
-Print XML Module Disk "examples" Classical_Pred_Set.
-Print XML Module Disk "examples" Classical_Pred_Type.
-Print XML Module Disk "examples" Classical_Prop.
-Print XML Module Disk "examples" Classical_Type.
-Print XML Module Disk "examples" Eqdep.
-Print XML Module Disk "examples" Eqdep_dec.

diff --git a/helm/EXPORT/exportcoq/provacoqReals.v b/helm/EXPORT/exportcoq/provacoqReals.v
deleted file mode 100644 (file)
index 445f9f9..0000000
--- a/helm/EXPORT/exportcoq/provacoqReals.v
+++ /dev/null
@@ -1,23 +0,0 @@
-Require Export Xml.
-
-Require R_Ifp.
-Require Raxioms.
-Require Rdefinitions.
-Require Rbase.
-Require Rbasic_fun.
-Require Rderiv.
-Require Reals.
-Require Rfunctions.
-Require Rlimit.
-Require TypeSyntax.
-
-Print XML Module Disk "examples" R_Ifp.
-Print XML Module Disk "examples" Raxioms.
-Print XML Module Disk "examples" Rdefinitions.
-Print XML Module Disk "examples" Rbase.
-Print XML Module Disk "examples" Rbasic_fun.
-Print XML Module Disk "examples" Rderiv.
-Print XML Module Disk "examples" Reals.
-Print XML Module Disk "examples" Rfunctions.
-Print XML Module Disk "examples" Rlimit.
-Print XML Module Disk "examples" TypeSyntax.

diff --git a/helm/EXPORT/exportcoq/provacoqRelations.v b/helm/EXPORT/exportcoq/provacoqRelations.v
deleted file mode 100644 (file)
index c588b30..0000000
--- a/helm/EXPORT/exportcoq/provacoqRelations.v
+++ /dev/null
@@ -1,33 +0,0 @@
-Require Export Xml.
-
-Require Newman.
-Require Operators_Properties.
-Require Relation_Definitions.
-Require Relation_Operators.
-Require Relations.
-Require Rstar.
-(*Require Disjoint_Union.*)
-(*Require Inclusion.*)
-(*Require Inverse_Image.*)
-(*Require Lexicographic_Exponentiation.*)
-(*Require Lexicographic_Product.*)
-(*Require Transitive_Closure.*)
-(*Require Union.*)
-(*Require Well_Ordering.*)
-(*Require Wellfounded.*)
-
-Print XML Module Disk "examples" Newman.
-Print XML Module Disk "examples" Operators_Properties.
-Print XML Module Disk "examples" Relation_Definitions.
-Print XML Module Disk "examples" Relation_Operators.
-Print XML Module Disk "examples" Relations.
-Print XML Module Disk "examples" Rstar.
-(*Print XML Module Disk "examples/WELLFOUNDED" Disjoint_Union.*)
-(*Print XML Module Disk "examples/WELLFOUNDED" Inclusion.*)
-(*Print XML Module Disk "examples/WELLFOUNDED" Inverse_Image.*)
-(*Print XML Module Disk "examples/WELLFOUNDED" Lexicographic_Exponentiation.*)
-(*Print XML Module Disk "examples/WELLFOUNDED" Lexicographic_Product.*)
-(*Print XML Module Disk "examples/WELLFOUNDED" Transitive_Closure.*)
-(*Print XML Module Disk "examples/WELLFOUNDED" Union.*)
-(*Print XML Module Disk "examples/WELLFOUNDED" Well_Ordering.*)
-(*Print XML Module Disk "examples/WELLFOUNDED" Wellfounded.*)

diff --git a/helm/EXPORT/exportcoq/provacoqSets.v b/helm/EXPORT/exportcoq/provacoqSets.v
deleted file mode 100644 (file)
index 9502861..0000000
--- a/helm/EXPORT/exportcoq/provacoqSets.v
+++ /dev/null
@@ -1,48 +0,0 @@
-Require Export Xml.
-
-Require Classical_sets.
-Require Constructive_sets.
-Require Cpo.
-Require Ensembles.
-Require Finite_sets.
-Require Finite_sets_facts.
-Require Image.
-Require Infinite_sets.
-Require Integers.
-Require Multiset.
-Require Partial_Order.
-Require Permut.
-(*Require CSCPermut.*)
-Require Powerset.
-Require Powerset_Classical_facts.
-Require Powerset_facts.
-Require Relations_1.
-Require Relations_1_facts.
-Require Relations_2.
-Require Relations_2_facts.
-Require Relations_3.
-Require Relations_3_facts.
-Require Uniset.
-
-Print XML Module Disk "examples" Classical_sets.
-Print XML Module Disk "examples" Constructive_sets.
-Print XML Module Disk "examples" Cpo.
-Print XML Module Disk "examples" Ensembles.
-Print XML Module Disk "examples" Finite_sets.
-Print XML Module Disk "examples" Finite_sets_facts.
-Print XML Module Disk "examples" Image.
-Print XML Module Disk "examples" Infinite_sets.
-Print XML Module Disk "examples" Integers.
-Print XML Module Disk "examples" Multiset.
-Print XML Module Disk "examples" Partial_Order.
-Print XML Module Disk "examples" Permut.
-Print XML Module Disk "examples" Powerset.
-Print XML Module Disk "examples" Powerset_Classical_facts.
-Print XML Module Disk "examples" Powerset_facts.
-Print XML Module Disk "examples" Relations_1.
-Print XML Module Disk "examples" Relations_1_facts.
-Print XML Module Disk "examples" Relations_2.
-Print XML Module Disk "examples" Relations_2_facts.
-Print XML Module Disk "examples" Relations_3.
-Print XML Module Disk "examples" Relations_3_facts.
-Print XML Module Disk "examples" Uniset.

diff --git a/helm/EXPORT/exportcoq/provacoqSorting.v b/helm/EXPORT/exportcoq/provacoqSorting.v
deleted file mode 100644 (file)
index ff940fd..0000000
--- a/helm/EXPORT/exportcoq/provacoqSorting.v
+++ /dev/null
@@ -1,13 +0,0 @@
-(*
-Require Export Xml.
-
-Require Generic.
-Require Heap.
-Require Permutation.
-Require Sorting.
-
-Print XML Module Disk "examples" Generic.
-Print XML Module Disk "examples" Heap.
-Print XML Module Disk "examples" Permutation.
-Print XML Module Disk "examples" Sorting.
-*)

diff --git a/helm/EXPORT/exportcoq/provacoqTrees.v b/helm/EXPORT/exportcoq/provacoqTrees.v
deleted file mode 100644 (file)
index a90b041..0000000
--- a/helm/EXPORT/exportcoq/provacoqTrees.v
+++ /dev/null
@@ -1,7 +0,0 @@
-(*
-Require Export Xml.
-
-Require Btree.
-
-Print XML Module Disk "examples" Btree.
-*)

diff --git a/helm/EXPORT/exportcoq/provacoqZArith.v b/helm/EXPORT/exportcoq/provacoqZArith.v
deleted file mode 100644 (file)
index ff43bbd..0000000
--- a/helm/EXPORT/exportcoq/provacoqZArith.v
+++ /dev/null
@@ -1,19 +0,0 @@
-Require Export Xml.
-
-Require Wf_Z.
-Require ZArith.
-Require ZArith_dec.
-Require Zmisc.
-Require Zsyntax.
-Require auxiliary.
-Require fast_integer.
-Require zarith_aux.
-
-Print XML Module Disk "examples" Wf_Z.
-Print XML Module Disk "examples" ZArith.
-Print XML Module Disk "examples" ZArith_dec.
-Print XML Module Disk "examples" Zmisc.
-Print XML Module Disk "examples" Zsyntax.
-Print XML Module Disk "examples" auxiliary.
-Print XML Module Disk "examples" fast_integer.
-Print XML Module Disk "examples" zarith_aux.

diff --git a/helm/EXPORT/exportcoq/provacoqcontribOmega.v b/helm/EXPORT/exportcoq/provacoqcontribOmega.v
deleted file mode 100644 (file)
index 04d2994..0000000
--- a/helm/EXPORT/exportcoq/provacoqcontribOmega.v
+++ /dev/null
@@ -1,11 +0,0 @@
-Require Export Xml.
-
-Require Omega.
-Require Zlogarithm.
-Require OmegaSyntax.
-Require Zpower.
-
-Print XML Module Disk "examples" Omega.
-Print XML Module Disk "examples" Zlogarithm.
-Print XML Module Disk "examples" OmegaSyntax.
-Print XML Module Disk "examples" Zpower.

diff --git a/helm/EXPORT/exportcoq/provacoqcontribRing.v b/helm/EXPORT/exportcoq/provacoqcontribRing.v
deleted file mode 100644 (file)
index bfc2633..0000000
--- a/helm/EXPORT/exportcoq/provacoqcontribRing.v
+++ /dev/null
@@ -1,17 +0,0 @@
-Require Export Xml.
-
-Require ArithRing.
-Require Quote.
-Require Ring.
-Require Ring_abstract.
-Require Ring_normalize.
-Require Ring_theory.
-Require ZArithRing.
-
-Print XML Module Disk "examples" ArithRing.
-Print XML Module Disk "examples" Quote.
-Print XML Module Disk "examples" Ring.
-Print XML Module Disk "examples" Ring_abstract.
-Print XML Module Disk "examples" Ring_normalize.
-Print XML Module Disk "examples" Ring_theory.
-Print XML Module Disk "examples" ZArithRing.

diff --git a/helm/EXPORT/exportcsczfc/Makefile b/helm/EXPORT/exportcsczfc/Makefile
deleted file mode 100644 (file)
index 7016b28..0000000
--- a/helm/EXPORT/exportcsczfc/Makefile
+++ /dev/null
@@ -1,11 +0,0 @@
-all: objects theories
-
-objects:
-       coqc -R csc_zfc csc_zfc csc_zfc/*.v
-       echo "Load Verbose provacsczfc." | ~/V7/bin/coqtop.byte -R csc_zfc csc_zfc
-
-theories:
-       ./exporttheories.sh
-
-clean:
-       rm -f *.vo csc_zfc/*.vo

diff --git a/helm/EXPORT/exportcsczfc/csc_zfc/.cvsignore b/helm/EXPORT/exportcsczfc/csc_zfc/.cvsignore
deleted file mode 100644 (file)
index 4199568..0000000
--- a/helm/EXPORT/exportcsczfc/csc_zfc/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.vo

diff --git a/helm/EXPORT/exportcsczfc/csc_zfc/csc_eqdep.v b/helm/EXPORT/exportcsczfc/csc_zfc/csc_eqdep.v
deleted file mode 100644 (file)
index 8019c08..0000000
--- a/helm/EXPORT/exportcsczfc/csc_zfc/csc_eqdep.v
+++ /dev/null
@@ -1,9 +0,0 @@
-Section Dependent_equality.
-
-Variable U:Type.
-Variable P:U->Type.
-
-Inductive eq_depT [p:U;x:(P p)] : (q:U)(P q)->Prop :=
-   eq_depT_intro : (eq_depT p x p x).
-
-End Dependent_equality.

diff --git a/helm/EXPORT/exportcsczfc/csc_zfc/csc_zfc.v b/helm/EXPORT/exportcsczfc/csc_zfc/csc_zfc.v
deleted file mode 100644 (file)
index a109239..0000000
--- a/helm/EXPORT/exportcsczfc/csc_zfc/csc_zfc.v
+++ /dev/null
@@ -1,1566 +0,0 @@
-(******************************************************************************)
-(*                      Zermelo Set Theory + atomic sets                      *)
-(*                                                                            *)
-(*                           Claudio Sacerdoti Coen                           *)
-(*                                                                            *)
-(*    Based on                                                                *)
-(*                                                                            *)
-(*                            Zermolo Set Theory                              *)
-(*                                                                            *)
-(*                              Benjamin Werner                               *)
-(*                                                                            *)
-(******************************************************************************)
-
-(* This is an extension of Benjamin's encoding of usual Set Theory where I    *)
-(* assume the existence of exactly one atomic set for each object t of type T *)
-(* where T is a Type in Coq: if (t:T) and (T:Type) then ((atom T t):Ens)      *)
-(* The usual axioms of set theory are modified so that they work in the       *)
-(* usual way if applied to "normal" sets, and in a reasonable way when        *)
-(* applied to atomic sets (for example (Union (atom T t) E) is equal to E for *)
-(* each non-atomic set E)                                                     *)
-(* All this has been already studied by Fraenkel and Mostowski in the '40,    *)
-(* but with totally different goals (in order to proove some independence     *)
-(* results in set theory)                                                     *)
-
-(* This is the introduction to the original encoding of Benjamin:             *)
-(*    This is an encoding of usual Set Theory, simillar to Peter Aczel's work *)
-(*    in the early 80's. The main difference is that the propositions here    *)
-(*    live in the impredicative world of "Prop". Thus, priority is given to   *)
-(*    expressivity against constructivity.                                    *)
-(*                                                                            *)
-(*    Since the definition of Sets is the same for both approaches, I added   *)
-(*    most  of Aczel's encoding of CZF at the end of the file. Many           *)
-(*    definitions are common to both aproaches.                               *)
-
-(* In this work only the encoding of ZFC (and not that of CZF) has been       *)
-(* developed, but it should be straightforward to do.                         *)
-
-Require csc_eqdep.
-
-(******************************************************************************)
-(*                          Useful data types                                 *)
-(******************************************************************************)
-
-Inductive Set F := .
-
-Inductive Set Un := void : Un.
-
-(* Existential quantification *)
-Inductive EXType [P:Type; Q:P->Prop]: Prop :=
- EXTypei : (x:P)(Q x)->(EXType P Q).
-
-(* Sigma types -- i.e. computational existentials *)
-Inductive sig [A:Type;P:A->Prop] : Type :=
- exist : (x:A)(P x)->(sig A P).
-
-(* Existential on the Type level *)
-Inductive depprod [A:Type; P : A->Type] : Type :=
- dep_i : (x:A)(P x)->(depprod A P).
-
-(* Cartesian product in Type *)
-Inductive prod_t [A,B:Type] : Type :=
- pair_t : A->B->(prod_t A B).
-
-(******************************************************************************)
-(*                         Definition of Ens, EQ, IN                          *)
-(******************************************************************************)
-
-(* The type representing sets  (Ensemble = french for set) *)
-Inductive Ens : Type :=
-   sup : (A:Type)(A->Ens)->Ens
- | atom : (A:Type)A->Ens.
-
-(* Recursive Definition of the extentional equality on sets *)
-Definition EQ : Ens -> Ens -> Prop.
-Induction 1.
-Intros A f eq1.
-Induction 1.
-Intros B g eq2.
-Apply and.
-Exact (x:A)
-        (EXType ? [y:B](eq1 x (g y))).
-Exact (y:B)
-        (EXType ? [x:A](eq1 x (g y))).
-
-Intros A' a'.
-Exact False.
-
-Intros A a.
-Induction 1.
-Intros A' f eq1.
-Exact False.
-
-Intros.
-(*Exact (X == X0).*)
-Exact (eq_depT Type [A:Type]A A a A0 y).
-Save.
-
-Transparent EQ.
-
-(* Membership on sets *)
-Definition IN: Ens -> Ens -> Prop :=
-[E1,E2:Ens]
-  Cases E2 of
-    (sup A f) => (EXType ? [y:A](EQ E1 (f y)))
-  | (atom A a) => False
-  end.
-Transparent IN.
-
-
-(******************************************************************************)
-(*                                  INCLUSION                                 *)
-(******************************************************************************)
-
-Definition INC : Ens -> Ens -> Prop :=
- [E1,E2:Ens]
- Cases E1 E2 of
-   (sup A f)  (sup B g)  => (E:Ens)(IN E E1)->(IN E E2)
- | (sup A f)  (atom B b) => False
- | (atom A a) (sup B g)  => False      (* ??? or True?  *)
- | (atom A a) (atom B b) => (EQ E1 E2) (* ??? or False? *)
- end.
-
-(* EQ is an equivalence relation  *)
-
-Theorem EQ_refl : (E:Ens)(EQ E E).
-Induction E.
-Intros; Split; Simpl; Intro.
-Exists x; Exact (H x).
-Exists y; Exact (H y).
-Intros; Simpl; Constructor 1.
-Qed.
-
-Theorem EQ_tran : (E1,E2,E3:Ens)(EQ E1 E2)->(EQ E2 E3)->(EQ E1 E3).
-Induction E1; [Intros A1 f1 r1 | Intros A1 a1]  ;
-Induction E2; [Intros A2 f2 r2 | Intros A2 a2 | Intros A2 f2 r2 | Intros A2 a2];
-Induction E3; [Intros A3 f3 r3 | Auto | Contradiction | Auto |
- Auto | Contradiction | Auto | Intros A3 a3].
-Simpl; Intros e1 e2; Split; Elim e1; Intros I1 I2; Elim e2; Intros I3 I4;
- [ Intros a1; Elim (I1 a1) ; Intros a2 ; Elim (I3 a2) ; Intros a3 ; Exists a3 |
-   Intros a3; Elim (I4 a3) ; Intros a2 ; Elim (I2 a2) ; Intros a1 ; Exists a1 ];
- Apply r1 with (f2 a2); Assumption.
-
-Simpl ; Intros; Inversion H; Inversion H0; Assumption.
-Qed.
-
-Theorem EQ_sym : (E1,E2:Ens)(EQ E1 E2)->(EQ E2 E1).
-Induction E1 ; [ Intros A1 f1 r1 | Intros A1 a1 ];
-Induction E2 ; [Intros A2 f2 r2 | Contradiction | Contradiction |Intros A2 a2].
-
-Induction 1; Intros e1 e2; Split;
- [ Intros a2; Elim (e2 a2); Intros a1 H1; Exists a1 |
-   Intros a1; Elim (e1 a1); Intros a2 H2; Exists a2 ] ; Apply r1; Assumption.
-Destruct 1; Apply EQ_refl.
-Qed.
-
-Theorem EQ_INC : (E,E':Ens)(EQ E E')->(INC E E').
-Induction E ; [Intros A f r | Intros A a] ; Induction E' ;
- [Intros A' f' r' | Contradiction | Contradiction | Intros A' a'].
-Simpl; Destruct 1; Intros e1 e2.
-Intros C; Induction 1; Intros a ea; Elim (e1 a); Intros a' ea'; Exists a'.
-Apply EQ_tran with (f a); Assumption.
-Destruct 1; Hnf; Constructor 1.
-Qed.
-
-Hints Resolve EQ_sym EQ_refl EQ_INC : zfc.
-
-Theorem INC_EQ : (E,E':Ens)(INC E E')->(INC E' E)->(EQ E E').
-Induction E ; [Intros A f r | Intros A a] ; Induction E' ;
- [Intros A' f' r' | Auto | Auto | Auto].
-Unfold INC; Simpl; Intros I1 I2; Split.
-Intros a; Apply I1; Exists a; Apply EQ_refl.
-Intros a'; Cut (EXType A [x:A](EQ (f' a')(f x))).
-Induction 1; Intros a ea; Exists a; Apply EQ_sym; Exact ea.
-Apply I2; Exists a'; Apply EQ_refl.
-Qed.
-
-Hints Resolve INC_EQ : zfc.
-
-(* Membership is extentional (i.e. is stable w.r.t. EQ)   *)
-
-Theorem IN_sound_left :
-                (E,E',E'':Ens)
-                  (EQ E E')->(IN E E'')->(IN E' E'').
-Induction E''; [Intros A'' f'' r'' e | Intros A'' a'' e]; Simpl.
-Induction 1; Intros a'' p; Exists a''; Apply EQ_tran with E;
- [Apply EQ_sym; Assumption | Assumption].
-
-Intro; Assumption.
-Qed.
-
-Theorem IN_sound_right :
-                (E,E',E'':Ens)
-                   (EQ E' E'')->(IN E E')->(IN E E'').
-Induction E'; [Intros A' f' r' | Intros A' a']; Induction E'';
- [Intros A'' f'' r'' | Intros A'' a'' | Intros A'' f'' r'' | Intros A'' a''];
- Simpl.
-Induction 1; Intros e1 e2; Induction 1; Intros a' e'; Elim (e1 a');
- Intros a'' e''; Exists a''; Apply EQ_tran with (f' a'); Assumption.
-Intros; Assumption.
-Intros; Elim H.
-Intros; Assumption.
-Qed.
-
-(* Inclusion is reflexive, transitive, extentional *)
-
-Theorem INC_refl : (E:Ens)(INC E E).
-Induction E; Auto with zfc.
-Qed.
-
-Theorem INC_tran : (E,E',E'':Ens)(INC E E')->(INC E' E'')->(INC E E'').
-Induction E; Induction E'; Induction E''; Simpl;
- Auto Orelse Contradiction Orelse (Intros; Elim H0; Assumption).
-Qed.
-
-Theorem INC_sound_left :
-               (E,E',E'':Ens)
-                  (EQ E E')->(INC E E'')->(INC E' E'').
-Induction E; [Intros A f r | Intros A a]; Induction E';
- [Intros A' f' r' | Intros A' a' | Intros A' f' r' | Intros A' a'];
- Induction E''; [Intros A'' f'' r'' | Contradiction | Contradiction |
- Contradiction | Contradiction | Contradiction | Contradiction |
- Intros A'' a''].
-Unfold INC; Intros; Apply H0; Apply IN_sound_right with (sup A' f');
- Auto with zfc.
-Destruct 1; Auto.
-Qed.
-
-Theorem INC_sound_right :
-               (E,E',E'':Ens)
-                 (EQ E' E'')->(INC E E')->(INC E E'').
-Induction E; [Intros A f r | Intros A a]; Induction E';
- [Intros A' f' r' | Intros A' a' | Intros A' f' r' | Intros A' a'];
- Induction E''; [Intros A'' f'' r'' | Contradiction | Contradiction |
- Contradiction | Contradiction | Contradiction | Contradiction |
- Intros A'' a''].
-Unfold INC; Intros;  Apply IN_sound_right with (sup A' f');
- [Assumption | Apply H0; Assumption].
-Destruct 1; Auto.
-Qed.
-
-(******************************************************************************)
-(*                                THE EMPTY SET                               *)
-(******************************************************************************)
-
-(* The empty set  (vide = french for empty)   *)
-Definition Vide : Ens :=
- (sup F [f:F]<Ens>Cases f of end).
-
-Theorem Vide_est_vide : (E:Ens)(IN E Vide)->F.
-Unfold Vide; Simpl; Intros E H; Cut False.
-Induction 1.
-Elim H; Intros x; Elim x.
-Qed.
-
-(* CSC: This is different from Werner *)
-Theorem tout_vide_est_Vide :
- (A:Type)(f:A->Ens)((E':Ens)(IN E' (sup A f))->F)->(EQ (sup A f) Vide).
-Intros; Hnf; Split.
-Intro; Cut F.
-Destruct 1.
-Apply H with (f x); Unfold IN; Exists x; Apply EQ_refl.
-Destruct y.
-Qed.
-
-(******************************************************************************)
-(*                                    PAIRE                                   *)
-(******************************************************************************)
-
-Definition Paire : Ens -> Ens -> Ens :=
- [E1,E2:Ens] (sup bool [b:bool]Cases b of true => E1 | false => E2 end).
-
-(* The pair construction is extentional *)
-
-Theorem Paire_sound_left : (A,A',B:Ens)
-                        (EQ A A')->(EQ (Paire A B)(Paire A' B)).
-Unfold Paire .
-Simpl.
-(Intros; Split).
-Induction x.
-(Exists  true; Auto with zfc).
-
-(Exists  false; Auto with zfc).
-
-(Induction y; Simpl).
-(Exists  true; Auto with zfc).
-
-(Exists  false; Auto with zfc).
-Qed.
-
-Theorem Paire_sound_right : (A,B,B':Ens)
-                (EQ B B')->(EQ (Paire A B)(Paire A B')).
-Unfold Paire; Simpl; Intros; Split.
-Induction x.
-(Exists true; Auto with zfc).
-Exists false; Auto with zfc.
-Induction y.
-(Exists true; Auto with zfc).
-Exists false; Auto with zfc.
-Qed.
-
-Hints Resolve Paire_sound_right Paire_sound_left : zfc.
-
-Theorem IN_Paire_left : (E,E':Ens)(IN E (Paire E E')).
-Unfold Paire; Exists true; Apply EQ_refl.
-Qed.
-
-Theorem IN_Paire_right : (E,E':Ens)(IN E' (Paire E E')).
-Unfold Paire; Exists false; Apply EQ_refl.
-Qed.
-
-Theorem Paire_IN : (E,E',A:Ens)(IN A (Paire E E'))->(EQ A E)\/(EQ A E').
-Unfold Paire; Simpl.
-Induction 1; Intros b; Elim b; Auto with zfc.
-Save.
-
-Hints Resolve IN_Paire_left IN_Paire_right Vide_est_vide : zfc.
-
-(******************************************************************************)
-(*                                  SINGLETON                                 *)
-(******************************************************************************)
-
-(* CSC: This is different from Benjamin only because I like it more; *)
-(*      theorems are also simpler                                    *)
-(*      In Benjamin's encoding (Sing E) was defined as (Paire E E)   *)
-Definition Sing : Ens -> Ens :=
- [E:Ens] (sup Un [x:Un]Cases x of void => E end).
-
-Theorem IN_Sing : (E:Ens)(IN E (Sing E)).
-Simpl; Exists void; Apply EQ_refl.
-Qed.
-
-Theorem IN_Sing_EQ : (E,E':Ens)(IN E (Sing E'))->(EQ E E').
-Simpl; Intros; Elim H; Destruct x; Trivial.
-Qed.
-
-Hints Resolve IN_Sing IN_Sing_EQ : zfc.
-
-Theorem Sing_sound : (A,A':Ens)(EQ A A')->(EQ (Sing A)(Sing A')).
-Intros; Hnf; Split; [Destruct x | Destruct y]; Exists void; Assumption.
-Qed.
-
-Hints Resolve Sing_sound : zfc.
-
-Theorem EQ_Sing_EQ : (E1,E2:Ens)(EQ (Sing E1)(Sing E2))->(EQ E1 E2).
-Intros; Hnf in H; Elim H; Intros; Elim (H0 void); Destruct x; Trivial.
-Qed.
-
-Hints Resolve EQ_Sing_EQ : zfc.
-
-(******************************************************************************)
-(*                       COMPREHENSION (OR SEPARATION)                        *)
-(******************************************************************************)
-
-Definition Comp: Ens -> (Ens -> Prop) -> Ens.
-Induction 1.
-Intros A f fr P.
-Apply (sup {x:A|(P (f x))}).
-Induction 1; Intros x p; Exact (f x).
-Intros. Exact X.
-Qed.
-
-Transparent Comp.
-
-Theorem Comp_INC : (E:Ens)(P:Ens->Prop)(INC (Comp E P) E).
-Destruct E.
-Intros A f P; Simpl; Destruct E0; [Intros A' f' H | Intros A' a' H];
- Elim H; Destruct x; Intros x0 p eq; Exists x0; Exact eq.
-Auto with zfc.
-Qed.
-
-Theorem IN_Comp_P :
-           (E,A:Ens)
-               (P:Ens->Prop)((w1,w2:Ens)(P w1)->(EQ w1 w2)->(P w2))->
-                  (IN A (Comp E P))->(P A).
-Induction E.
-Simpl; Intros B f Hr A P H i; Elim i; Destruct x; Simpl; Intro b; Intros;
- Apply H with (f b); Auto with zfc.
-Contradiction.
-Qed.
-
-Theorem IN_P_Comp :
-     (E,A:Ens)
-        (P:Ens ->Prop)((w1,w2:Ens)(P w1)->(EQ w1 w2)->(P w2))->
-                (IN A E)->(P A)->(IN A (Comp E P)).
-Induction E.
-Simpl; Intros B f HR A P H i; Elim i; Simpl; Intros; Cut (P (f x)).
-Intros Pf.
-Exists (exist B [x:B](P (f x)) x Pf); Simpl; Auto with zfc.
-Apply H with A; Auto with zfc.
-Contradiction.
-Qed.
-
-(* Again, extentionality is not stated, but easy *)
-
-(******************************************************************************)
-(*                                    UNION                                   *)
-(******************************************************************************)
-
-(* Projections of a set: *)
-(*  1: its base type, F for atoms *)
-
-Definition pi1: Ens -> Type.
-Induction 1.
-Intros A f r.
-Exact A.
-Intros.
-Exact F.
-Save.
-
-Transparent pi1.
-
-(*  2: the function, [_:F]Vide for atoms *)
-
-Definition pi2 : (E:Ens)(pi1 E)->Ens.
-Induction E.
-Intros A f r.
-Exact f.
-Intros.
-Exact Vide.
-Save.
-
-Transparent pi2.
-
-Definition Union : (E:Ens)Ens.
-Induction 1.
-Intros A f r.
-Apply (sup (depprod A [x:A](pi1 (f x)))).
-Induction 1; Intros a b.
-Exact (pi2 (f a) b).
-Intros.
-Exact Vide.
-Save.
-
-Transparent Union.
-
-Theorem EQ_EXType : (E,E':Ens)
-        (EQ E E')
-         ->(a:(pi1 E))
-            (EXType (pi1 E') [b:(pi1 E')](EQ (pi2 E a) (pi2 E' b))).
-Induction E; [Intros A f r | Intros A a]; Induction E';
- [Intros A' f' r' | Intros A' a' | Intros A' f' r' | Intros A' a'].
-Simpl; Destruct 1; Intros e1 e2 a; Apply e1.
-Contradiction.
-Contradiction.
-Simpl; Destruct 2.
-Qed.
-
-Transparent EQ_EXType.
-
-Theorem IN_EXType: (E,E':Ens)(IN E' E)->
-                        (EXType (pi1 E) [a:(pi1 E)](EQ E' (pi2 E a))).
-Induction E.
-Simpl; Intros A f r; Induction 1; Intros; Exists x; Assumption.
-Destruct 1.
-Qed.
-
-Theorem IN_Union : (E,E',E'':Ens)
-                (IN E' E)->(IN E'' E')->(IN E'' (Union E)).
-Induction E.
-2: Destruct 1.
-Intros A f r.
-Intros; Simpl.
-Elim (IN_EXType (sup A f) E' H).
-Intros x e.
-Cut (EQ (pi2 (sup A f) x) E').
-2: Auto with zfc v62.
-Intros e1.
-Cut (IN E'' (pi2 (sup A f) x)).
-Intros i1.
-Elim (IN_EXType ? ? i1).
-Intros x0 e2.
-Simpl in x0.
-Exists  (dep_i A [x:A](pi1 (f x)) x x0).
-Simpl.
-Exact e2.
-Apply IN_sound_right with E'; Assumption.
-Qed.
-
-(* CSC: This is different from Benjamin *)
-Theorem IN_INC_Union :
-      (A:Type)(f:A->Ens)(E:Ens)(IN (sup A f) E)->(INC (sup A f) (Union E)).
-Induction E.
-Intros A f r H; Hnf; Hnf in H; Intros; Elim H; Intros x e.
-Cut (IN E0 (f0 x)).
-Intro in_E0_f0x; Apply IN_Union with (f0 x).
-Hnf; Split with x; Auto with zfc.
-
-Auto with zfc.
-Apply IN_sound_right with (sup A f); Trivial.
-
-(Simpl; Destruct 2; Destruct x).
-Qed.
-
-Theorem Union_IN : (E,E':Ens)(IN E' (Union E))->
-                                (EXType ? [E1:Ens](IN E1 E)/\(IN E' E1)).
-Induction E.
-2: (Simpl; Destruct 2; Destruct x).
-Unfold Union ; Simpl; Intros A f r.
-Induction 1.
-Induction x.
-(Intros a b; Simpl).
-Intros.
-Exists  (f a).
-Split.
-(Exists  a; Auto with zfc v62).
-
-(Apply IN_sound_left with (pi2 (f a) b); Auto with zfc v62).
-Simpl.
-(Generalize b ; Elim (f a); Simpl).
-Intros.
-(Exists  b0; Auto with zfc v62).
-
-Destruct 2.
-Qed.
-
-(* extentionality of union  *)
-
-Theorem Union_sound
-     : (E,E':Ens)(EQ E E')->(EQ (Union E) (Union E')).
-Unfold Union.
-Induction E ; [Intros A f r | Intros A a] ; Induction E' ;
- [Intros A' f' r' | Intros A' a' | Intros A' f' r' | Intros A' a'].
-
-Simpl; Induction 1; Intros e1 e2; Split.
-Intros x; Elim x; Intros a aa; Elim (e1 a); Intros a' ea.
-Elim (EQ_EXType (f a)(f' a') ea aa); Intros aa' eaa.
-Exists (dep_i A' [x:A'](pi1 (f' x)) a' aa'); Simpl; Auto with zfc v62.
-Intros c'; Elim c'; Intros a' aa'; Elim (e2 a'); Intros a ea.
-Cut (EQ (f' a')(f a)).
-2 : Auto with zfc v62.
-Intros ea'; Elim (EQ_EXType (f' a')(f a) ea' aa'); Intros aa eaa.
-Exists (dep_i A [x:A](pi1 (f x)) a aa); Auto with zfc v62.
-
-Contradiction.
-Contradiction.
-Destruct 1; Apply EQ_refl.
-Qed.
-
-(* The union construction is monotone w.r.t. inclusion   *)
-
-Theorem Union_mon : (E,E':Ens)(INC E E')->(INC (Union E)(Union E')).
-Induction E ; [Intros A f r | Intros A a] ; Induction E';
- [Intros A' f' r' | Contradiction | Contradiction | Intros A' a'].
-2: Auto with zfc.
-Intro; Cut (E:Ens)(IN E (sup A f))->(IN E (sup A' f')).
-2: Auto.
-Intro XXX; Cut ((E:Ens)(IN E (Union (sup A f)))->(IN E (Union (sup A' f'))))
-    ->(INC (Union (sup A f)) (Union (sup A' f'))).
-2: Auto.
-Intros X; Apply X; Intros E0 Y; (Elim (Union_IN (sup A f) E0); Auto with zfc).
-Destruct 1; Intros; Cut (IN x (sup A' f')).
-2: Auto.
-Intro; (Apply IN_Union with x; Auto).
-Qed.
-
-(******************************************************************************)
-(*                                 INTERSECTION                               *)
-(******************************************************************************)
-
-Definition Inter : (E:Ens)Ens :=
-[E:Ens]
- Cases E of
-   (sup A f) =>
-      (sup ?
-           [c:(depprod A
-              [a:A](depprod ? [b:(pi1 (f a))](x:A)(IN (pi2 (f a) b)(f x)))
-             )
-          ]
-           Cases c of
-             (dep_i a (dep_i b p)) => (pi2 (f a) b)
-          end
-      )
- | (atom A a) => Vide
- end.
-
-Theorem IN_Inter_all : (E,E':Ens)
-                        (IN E' (Inter E))->
-                                (E'':Ens)(IN E'' E)->(IN E' E'').
-Induction E; [Intros A f r | Contradiction]; Intros E'.
-Induction 1; Intros c; Elim c; Intros a ca; Elim ca; Intros aa paa.
-Intros e E'' e''.
-Elim e''; Intros a1 ea1.
-Apply IN_sound_right with (f a1); Auto with zfc v62.
-Apply IN_sound_left with (pi2 (f a) aa); Auto with zfc v62.
-Qed.
-
-Theorem all_IN_Inter : (E,E',E'':Ens)
-                         (IN E'' E)->
-                            ((E'':Ens)(IN E'' E)->(IN E' E''))->
-                                (IN E' (Inter E)).
-(Induction E; [Intros A f r | Contradiction]).
-Intros E' E'' i H.
-Elim (IN_EXType (sup A f) E'' i).
-(Intros a e; Simpl in a).
-Simpl in e.
-(Cut (IN E' E''); Auto with zfc v62).
-Intros i'.
-(Cut (IN E' (f a)); Auto with zfc v62).
-Intros i0.
-Elim (IN_EXType (f a) E' i0).
-Intros b e'.
-Simpl.
-Cut (x:A)(IN (pi2 (f a) b) (f x)).
-Intros.
-Exists  (dep_i A
-          [a:A]
-           (depprod (pi1 (f a))
-             [b:(pi1 (f a))](x:A)(IN (pi2 (f a) b) (f x)))
-          a
-          (dep_i (pi1 (f a))
-            [b:(pi1 (f a))](x:A)(IN (pi2 (f a) b) (f x)) b H0)).
-Simpl.
-Auto with zfc v62.
-Auto with zfc v62.
-Intros.
-Apply IN_sound_left with E'.
-Auto with zfc v62.
-Apply H.
-Auto with zfc v62.
-Simpl.
-(Exists  x; Auto with zfc v62).
-(Apply IN_sound_right with E''; Auto with zfc v62).
-Qed.
-
-(******************************************************************************)
-(*                                  POWERSET                                  *)
-(******************************************************************************)
-
-Definition Power : Ens -> Ens :=
-[E:Ens]
- Cases E of
-  (sup A f) =>
-   (sup ?
-        [P:A->Prop]
-           (sup ?
-                [c:(depprod A [a:A](P a))]
-                   Cases c of
-                     (dep_i a p) => (f a)
-                   end
-            )
-   )
- | (atom A a) => (Sing (atom A a)) (* ??? or Vide? *)
- end.
-
-Theorem IN_Power_INC : (E,E':Ens)(IN E' (Power E))->(INC E' E).
-Induction E.
-Intros A f r; Unfold INC ; Simpl.
-Intros E'; Induction 1; Intros P.
-Elim E'.
-Simpl.
-Intros A' f' r'.
-Induction 1; Intros HA HB.
-Intros E''; Induction 1; Intros a' e.
-Elim (HA a').
-Induction x; Intros a p.
-Intros; Exists  a.
-Apply EQ_tran with (f' a'); Auto with zfc v62.
-Contradiction.
-Auto with zfc.
-Qed.
-
-(* CSC: This is different from Benjamin *)
-Theorem INC_IN_Power : (E,E':Ens)(INC E' E)->(IN E' (Power E)).
-Induction E.
-2: Induction E'.
-2: Contradiction.
-2: (Destruct 1; Unfold Power; Auto with zfc).
-Intros A f r; Unfold INC; Simpl; Induction E'.
-2: Contradiction.
-Intros A' f' r' i.
-Exists  [a:A](IN (f a) (sup A' f')).
-Simpl.
-Split.
-Intros.
-Elim (i (f' x)).
-Intros a e.
-(Cut (EQ (f a) (f' x)); Auto with zfc v62).
-Intros e1.
-Exists  (dep_i A [a:A](EXType A' [y:A'](EQ (f a) (f' y))) a
-          (EXTypei A' [y:A'](EQ (f a) (f' y)) x e1)).
-Auto with zfc v62.
-Simpl.
-(Exists  x; Auto with zfc v62).
-Induction y; Induction 1; Intros.
-(Exists  x0; Auto with zfc v62).
-Qed.
-
-Theorem Power_mon : (E,E':Ens)(INC E E')->(INC (Power E)(Power E')).
-Induction E; [Intros A f r | Intros A a]; Induction E';
- [Intros A' f' r' | Contradiction | Contradiction | Destruct 1; Auto with zfc].
-Intro.
-Hnf in H.
-Cut ((E:Ens)(IN E (Power (sup A f)))->(IN E (Power (sup A' f'))))
-    ->(INC (Power (sup A f)) (Power (sup A' f'))).
-2: Auto.
-Intros.
-Apply H0.
-Intros.
-Cut (INC E0 (sup A f)).
-2: (Apply IN_Power_INC; Auto).
-Intro.
-Cut (INC E0 (sup A' f')).
-Intro.
-Apply INC_IN_Power.
-Assumption.
-
-Generalize H2.
-Elim E0.
-Unfold INC.
-Auto with zfc.
-
-Auto with zfc.
-Qed.
-
-Theorem Power_sound : (E,E':Ens)(EQ E E')->(EQ (Power E)(Power E')).
-Induction E; [Intros A f r | Intros A a]; Induction E';
- [Intros A' f' r' | Contradiction | Contradiction | Destruct 1; Auto with zfc].
-Intro.
-Apply INC_EQ.
-Cut ((E:Ens)(IN E (Power (sup A f)))->(IN E (Power (sup A' f'))))
-    ->(INC (Power (sup A f)) (Power (sup A' f'))).
-2: Auto.
-Intros; Apply H0; Clear H0; Intros; Cut (INC E0 (sup A f)).
-2: (Apply IN_Power_INC; Auto with zfc).
-Clear H0; Intro; Apply INC_IN_Power.
-(Apply INC_sound_right with (sup A f); Auto).
-
-(* Using simmetry *)
-Cut ((E:Ens)(IN E (Power (sup A' f')))->(IN E (Power (sup A f))))
-    ->(INC (Power (sup A' f')) (Power (sup A f))).      
-2: Auto. 
-Intros; Apply H0; Clear H0; Intros; Cut (INC E0 (sup A' f')).
-2: (Apply IN_Power_INC; Auto with zfc).
-Clear H0; Intro; Apply INC_IN_Power.
-(Apply INC_sound_right with (sup A' f'); Auto with zfc).
-Qed.
-
-(******************************************************************************)
-(*                              ORDERED COUPLES                               *)
-(******************************************************************************)
-
-(* small lemmas *)
-
-Theorem not_EQ_Sing_Vide : (E:Ens)(EQ (Sing E) Vide)->F.
-Intros E e; Cut False.
-Induction 1.
-Cut (IN E Vide).
-Simpl; Induction 1; Intros xx; Elim xx; Induction 1.
-Apply IN_sound_right with (Sing E); Auto with zfc v62.
-Qed.
-
-Theorem not_EQ_Vide_Sing : (E:Ens)(EQ Vide (Sing E))->F.
-Intros E e; Cut False.
-Induction 1.
-Cut (IN E Vide).
-Simpl; Induction 1; Intros xx; Elim xx; Induction 1.
-Apply IN_sound_right with (Sing E); Auto with zfc v62.
-Qed.
-
-(* This definition of the ordered pair is slightly different from *)
-(* the usual one, since we want it to work in an intuisionistic   *)
-(* setting. Works the same, neitherless. The soundness proofs are *)
-(* unpleasant.                                                    *)
-
-Definition Couple := [E,E': Ens](Paire (Sing E) (Paire Vide (Sing E'))).
-
-Theorem Couple_inj_left : (A,A',B,B':Ens)
-                (EQ (Couple A A')(Couple B B'))->(EQ A B).
-(Unfold Couple; Simpl); Induction 1; (Intros HA HB; Elim (HA true)).
-(Intros x; Elim x; Simpl; Induction 1; Intros H3 H4; Elim (H3 void);
- Simpl; Destruct x0).
-Trivial.
-
-Elim (H4 false); Destruct x1; Intros; Cut (EQ (Sing B') Vide).
-Simpl; Induction 1; Intros yy; Elim (yy void); Destruct x2.
-
-Apply EQ_tran with A.
-Auto with zfc.
-
-Assumption.
-
-Intros; Cut (EQ (Sing B') Vide).
-Simpl; Induction 1; Intros yy; Elim (yy void); Destruct x1.
-
-Apply EQ_tran with A.
-Auto with zfc.
-
-Elim (H4 true); Destruct x1; Trivial.
-Qed.
-
-Theorem Couple_inj_right :  (A,A',B,B':Ens)
-                (EQ (Couple A A')(Couple B B'))->(EQ A' B').
-Unfold Couple; Simpl.
-Induction 1; Intros H1 H2.
-Elim (H1 false).
-Intros bb1; Elim bb1.
-Intros HF.
-Change (EQ (Paire Vide (Sing A'))(Sing B)) in HF.
-Cut F.
-Induction 1.
-Apply (not_EQ_Vide_Sing A').
-Apply EQ_tran with B.
-Apply IN_Sing_EQ; Apply IN_sound_right with (Paire Vide (Sing A'));
- Auto with zfc v62.
-Apply EQ_sym; Apply IN_Sing_EQ;
-        Apply IN_sound_right with (Paire Vide (Sing A')); Auto with zfc v62.
-Change (EQ (Paire Vide (Sing A'))(Paire Vide (Sing B')))->(EQ A' B').
-Intros HP; Cut (EQ (Sing A') (Sing B')).
-Intros; Auto with zfc v62.
-Cut (IN (Sing A')(Paire Vide (Sing B'))).
-Intros HI; Elim (Paire_IN Vide (Sing B')(Sing A') HI).
-Intros; Cut F.
-Induction 1.
-Apply not_EQ_Sing_Vide with A'; Assumption.
-Trivial with zfc v62.
-Apply IN_sound_right with (Paire Vide (Sing A')); Auto with zfc v62.
-Qed.
-
-(******************************************************************************)
-(*                                   POWERSET                                 *)
-(******************************************************************************)
-
-(* Here we cheat. It is easier to define the cartesian product using    *)
-(* the type theoretical product, i.e. we here use non set-theoretical   *)
-(* constructions. We could however use the usual definitions.           *)
-
-Definition Prod : Ens -> Ens -> Ens :=
-[E,E':Ens]
- Cases E E' of
-   (sup A f) (sup A' f') =>
-     (sup ?
-          [c:(prod_t A A')]
-              Cases c of
-                (pair_t a a') => (Couple (f a) (f' a'))
-              end
-     )
- | _ _ => Vide
- end.
-
-Hints Resolve Paire_sound_left Paire_sound_right : zfc.
-
-Theorem Couple_sound_left :
-        (A,A',B:Ens)(EQ A A')->(EQ (Couple A B)(Couple A' B)).
- Unfold Couple;Intros; Auto with zfc v62.
-Save.
-
-Theorem Couple_sound_right:
-        (A,B,B':Ens)(EQ B B')->(EQ (Couple A B)(Couple A B')).
- Unfold Couple;Intros; Auto with zfc v62.
-Save.
-
-Theorem Couple_IN_Prod : (E1,E2,E1',E2':Ens)
-                (IN E1' E1)->(IN E2' E2)->
-                        (IN (Couple E1' E2')(Prod E1 E2)).
-Induction E1; [Intros A1 f1 r1 | Contradiction].
-Induction E2; [Intros A2 f2 r2 | Contradiction].
-Intros E1' E2' i1 i2.
-Elim (IN_EXType (sup A1 f1) E1').
-(Intros x e1; Simpl in x).
-Elim (IN_EXType (sup A2 f2) E2').
-(Intros x0 e2; Simpl in x).
-Apply IN_sound_left with (Couple (pi2 (sup A1 f1) x) (pi2 (sup A2 f2) x0)).
-Apply EQ_tran with (Couple (pi2 (sup A1 f1) x) E2').
-Apply Couple_sound_right.
-Auto with zfc v62.
-
-(Apply Couple_sound_left; Auto with zfc v62).
-
-Simpl.
-Exists  (pair_t ? ? x x0).
-Simpl.
-Split.
-
-Induction x1.
-Exists true; Auto with zfc.
-Exists false; Auto with zfc.
-
-Induction y.
-Exists true; Auto with zfc.
-Exists false; Auto with zfc.
-Assumption.
-Assumption.
-Qed.
-
-Theorem Couple_Prod_IN :  (E1,E2,E1',E2':Ens)
-                (IN (Couple E1' E2')(Prod E1 E2))->
-                        (IN E1' E1)/\(IN E2' E2).
-Induction E1; [Intros A1 f1 r1 | Destruct 1; Destruct x].
-Induction E2; [Intros A2 f2 r2 | Destruct 1; Destruct x].
-Intros E1' E2' i.
-Elim (IN_EXType (Prod (sup A1 f1) (sup A2 f2)) (Couple E1' E2') i).
-Destruct x; Intros a1 a2 e.
-Change (EQ (Couple E1' E2') (Couple (f1 a1) (f2 a2))) in e.
-Cut (EQ E1' (f1 a1)).
-Cut (EQ E2' (f2 a2)).
-Intros e1 e2.
-Split.
-Apply IN_sound_left with (f1 a1); Auto with zfc v62; Simpl; Exists a1;
- Auto with zfc v62.
-Apply IN_sound_left with (f2 a2); Auto with zfc v62; Simpl; Exists  a2;
- Auto with zfc v62.
-Apply Couple_inj_right with A:=E1' B:=(f1 a1); Auto with zfc v62.
-Apply Couple_inj_left with E2' (f2 a2); Auto with zfc v62.
-Qed.
-
-Theorem IN_Prod_EXType : (E,E',E'':Ens)(IN E'' (Prod E E'))->
-        (EXType ? [A:Ens](EXType ? [B:Ens](EQ (Couple A B) E''))).
-Induction E ; [Intros A  f  r  | Destruct 1; Destruct x].
-Induction E'; [Intros A' f' r' | Destruct 1; Destruct x].
-Intros; Elim (IN_EXType (Prod (sup A f) (sup A' f')) E'').
-Induction x.
-Intros; Exists  (f y); Exists  (f' y0); Auto with zfc v62.
-Auto with zfc v62.
-Qed.
-
-(******************************************************************************)
-(*                                  ORDINALS                                  *)
-(******************************************************************************)
-
-Definition Succ := [E:Ens](Union (Paire E (Sing E))).
-
-Inductive Ord : Ens -> Prop :=
-  Oo : (Ord Vide)
-| So : (E:Ens)(Ord E)->(Ord (Succ E))
-| Lo : (E:Ens)((e:Ens)(IN e E)->(Ord e))->(Ord (Union E))
-| Eo : (E,E':Ens)(Ord E)->(EQ E E')->(Ord E').
-
-Hints Resolve Oo So Lo : zfc.
-
-Definition Nat : nat ->Ens.
-Induction 1; Intros.
-Exact Vide.
-Exact (Succ X).
-Save.
-
-Transparent Nat.
-
-Theorem Nat_Ord : (n:nat)(Ord (Nat n)).
-Induction n; Simpl; Auto with zfc v62.
-Save.
-
-Definition Omega : Ens :=
-  (sup nat Nat).
-
-Theorem IN_Succ :  (E:Ens)(IN E (Succ E)).
-Intros E; Unfold Succ; Apply IN_Union with (Sing E); Auto with zfc v62.
-Qed.
-
-(* CSC: This is different from Werner *)
-Theorem INC_Succ : (A:Type)(f:A->Ens)(INC (sup A f) (Succ (sup A f))).
-Intros; Cut ((E:Ens)(IN E (sup A f))->(IN E (Succ (sup A f))))
-    ->(INC (sup A f) (Succ (sup A f))).
-Intros; Apply H; Unfold Succ; Intros.
-Apply IN_Union with (sup A f); Auto with zfc.
-
-Intros; Exact H.
-Qed.
-
-Hints Resolve IN_Succ INC_Succ : zfc.
-
-Theorem IN_Succ_or : (E,E':Ens)(IN E' (Succ E))->(EQ E E')\/(IN E' E).
-Intros E E' i.
-Unfold Succ  in i.
-Elim (Union_IN (Paire E (Sing E)) E' i).
-Intros E1; Induction 1; Intros i1 i2.
-Elim (Paire_IN E (Sing E) E1 i1).
-Intros; Right; Apply IN_sound_right with E1; Auto with zfc v62.
-Intros; Left; Cut (IN E' (Sing E)).
-Auto with zfc v62.
-Apply IN_sound_right with E1; Auto with zfc v62.
-Qed.
-
-Theorem E_not_IN_E : (E:Ens)(IN E E)->F.
-Induction E.
-Intros A f r i.
-Cut False.
-Induction 1.
-Elim (IN_EXType (sup A f) (sup A f) i); Intros a e.
-
-Simpl in a.
-Change (EQ (sup A f) (f a)) in e.
-Elim (r a).
-Apply IN_sound_right with (sup A f); Auto with zfc v62.
-Exists a; Auto with zfc v62.
-Intros; Cut False; Contradiction.
-Qed.
-
-Theorem Nat_IN_Omega : (n:nat)(IN (Nat n) Omega).
-Intros; Simpl; Exists n; Auto with zfc v62.
-Qed.
-Hints Resolve Nat_IN_Omega : zfc.
-
-Theorem IN_Omega_EXType : (E:Ens)(IN E Omega)->(EXType ? [n:nat](EQ (Nat n) E)).
-(Simpl; Induction 1).
-Intros n e.
-(Exists  n; Auto with zfc v62).
-Qed.
-
-Theorem IN_Nat_EXType : (n:nat)(E:Ens)(IN E (Nat n))->(EXType ? [p:nat](EQ E (Nat p))).
-Induction n.
-Simpl.
-Induction 1.
-Induction x.
-
-Intros.
-Change (IN E (Succ (Nat n0))) in H0.
-Elim (IN_Succ_or (Nat n0) E H0).
-(Intros; Exists  n0).
-Auto with zfc v62.
-
-Intros.
-(Elim (H E); Auto with zfc v62).
-Qed.
-
-Theorem Omega_EQ_Union : (EQ Omega (Union Omega)).
-Apply INC_EQ.
-Cut ((E:Ens)(IN E Omega)->(IN E (Union Omega)))
-    ->(INC Omega (Union Omega)).
-Intros; Apply H.
-Clear H.
-Intros.
-Elim (IN_Omega_EXType E H).
-Intros n e.
-Apply IN_Union with (Nat (S n)).
-Auto with zfc v62.
-
-Apply IN_sound_left with (Nat n).
-Auto with zfc v62.
-
-(Change (IN (Nat n) (Succ (Nat n))); Auto with zfc v62).
-
-Intros.
-Exact H.
-
-Cut ((E:Ens)(IN E (Union Omega))->(IN E Omega))
-    ->(INC (Union Omega) Omega).
-Intros; Apply H; Clear H.
-Intros.
-Elim (Union_IN Omega E H).
-Intros e h.
-Elim h.
-Intros i1 i2.
-Elim (IN_Omega_EXType e i1).
-Intros n e1.
-Cut (IN E (Nat n)).
-Intros.
-(Elim (IN_Nat_EXType n E H0); Intros).
-(Apply IN_sound_left with (Nat x); Auto with zfc v62).
-
-(Apply IN_sound_right with e; Auto with zfc v62).
-
-Intros.
-Exact H.
-Qed.
-
-Theorem Omega_Ord : (Ord Omega).
-Apply Eo with (Union Omega).
-Apply Lo.
-Intros.
-Elim (IN_Omega_EXType e H).
-Intros n ee.
-Apply Eo with (Nat n); Auto with zfc v62.
-Elim n.
-Auto with zfc v62.
-Auto with zfc v62.
-Intros.
-Change (Ord (Succ (Nat n0))); Auto with zfc v62.
-Apply EQ_sym; Auto with zfc v62.
-Apply Omega_EQ_Union.
-Qed.
-
-Definition Alpha : Ens->Ens.
-Induction 1.
-Intros A f r.
-Apply Union.
-Apply (sup A).
-Intros a.
-Exact (Power (r a)).
-Intros A a; Exact (atom A a). (* ??? or Vide? *)
-Save.
-
-Transparent Alpha.
-
-(******************************************************************************)
-(*                           AXIOM OF CHOICE                                  *)
-(******************************************************************************)
-
-(* A Type-theoretical axiom of choice gives us the collection axiom  *)
-
-Definition collection :=
- (P:Ens->Ens->Prop)
-  ((x,x',y:Ens)(EQ x x')->(P x y)->(P x' y))->
-   ((E:Ens)(EXType ? (P E)))->
-     (E:Ens)(EXType ? [A:Ens](x:Ens)(IN x E)->
-      (EXType ? [y:Ens](IN y A)/\(P x y))).
-
-
-Definition choice :=
- (A,B:Type)(P:A->B->Prop)
-   ((a:A)(EXType ? [b:B](P a b)))->
-       (EXType ? [f:A->B]((a:A)(P a (f a)))).
-
-Theorem Choice_Collection : choice -> collection.
-Intro; Unfold collection; Intros P comp G E;
- Cut (EXType ? [f:(Ens->Ens)](B:Ens)(P B (f B))).
-Induction 1; Intros f Pf; Elim E.
-Intros A g hr; Split with (sup A [a:A](f (g a))).
-Simpl; Intros X i; Elim i; Intros a ea; Split with (f (g a)).
-Split.
-Exists a; Auto with zfc.
-
-Apply comp with (g a); Auto with zfc.
-
-Auto with zfc.
-
-Intros; Split with Vide; Contradiction.
-
-Unfold choice in H; Apply H; Intros; Elim (G a); Intros b hb; Exists b;
- Assumption.
-Qed.
-
-(* If we also assume the excluded middle, we can derive         *)
-(* the usual replacement schemata.                              *)
-
-Definition functional :=
-        [P:Ens->Ens->Prop](x,y,y':Ens)
-                (P x y)->(P x y')->(EQ y y').
-Definition replacement :=
-   (P:Ens->Ens->Prop)
-        (functional P)->
-        ((x,y,y':Ens)(EQ y y')->(P x y)->(P x y'))->
-        ((x,x',y:Ens)(EQ x x')->(P x y)->(P x' y))->
-       (X:Ens)(EXType ? [Y:Ens](y:Ens)
-                            (((IN y Y)->(EXType ? [x:Ens](IN x X)/\(P x y)))
-                            /\((EXType ? [x:Ens](IN x X)/\(P x y))->(IN y Y)))).
-
-Theorem classical_Collection_Replacement :
- ((S:Prop)S\/(S->False))->
-        collection ->
-                replacement.
-Unfold replacement; Intros EM Collection P fp comp_r comp_l X.
-Cut (EXType ? [Y:Ens](y:Ens)((EXType ? [x:Ens](IN x X)/\(P x y))->(IN y Y))).
-Induction 1; Intros Y HY.
-Exists (Comp Y [y:Ens](EXType ? [x:Ens](IN x X)/\(P x y))).
-Intros y; Split.
-Intros HC.
-Apply (IN_Comp_P Y y [y0:Ens](EXType Ens [x:Ens](IN x X)/\(P x y0))); Auto with zfc v62.
-Intros w1 w2; Induction 1; Intros x; Induction 1; Intros Ix Px e.
-Exists x; Split; Auto with zfc v62.
-Apply comp_r with w1; Auto with zfc v62.
-Intros He.
-Apply IN_P_Comp.
-
-Intros w1 w2; Induction 1; Intros x; Induction 1; Intros Ix Px e.
-Exists x; Split; Auto with zfc v62.
-Apply comp_r with w1; Auto with zfc v62.
-Apply HY; Auto with zfc v62.
-Auto with zfc v62.
-
-Elim (Collection [x,y:Ens]((P x y)\/(((y':Ens)(P x y')->False)/\(EQ y Vide))))
-        with X.
-Intros Y HY.
-Elim (EM (EXType ? [x:Ens](IN x X)/\(P x Vide))).
-Intros Hvide; Elim Hvide; Intros xv Hxv; Exists Y.
-Intros y; Induction 1; Intros x; Induction 1; Intros Hx1 Hx2.
-Elim (HY x Hx1).
-Intros y'; Induction 1; Intros Hy'1 Hy'2.
-Elim Hy'2.
-Intros Hy'3; Apply IN_sound_left with y'; Auto with zfc v62.
-Apply fp with x; Auto with zfc v62.
-Induction 1; Intros Hy'3 Hy'4.
-Elim (Hy'3 y Hx2).
-Intros HP; Exists (Comp Y [y:Ens]((EQ y Vide)->False)).
-Intros y; Induction 1; Intros x; Induction 1; Intros Hx1 Hx2.
-Apply IN_P_Comp.
-Intros w1 w2 Hw1 Hw Hw2; Apply Hw1; Apply EQ_tran with w2; Auto with zfc v62.
-Elim (HY x).
-Intros y'; Induction 1; Intros Hy'1 Hy'2.
-Elim Hy'2; Intros Hy'3.
-Apply IN_sound_left with y'; Auto with zfc v62.
-Apply fp with x; Auto with zfc v62.
-Elim Hy'3; Intros Hy'4 Hy'5.
-Elim (Hy'4 y); Auto with zfc v62.
-Assumption.
-Intros e; Apply HP; Exists x; Split; Auto with zfc v62;
-        Apply comp_r with y; Auto with zfc v62; Apply fp; Auto with zfc v62.
-Intros x x' y e Hx; Elim Hx; Intros Hx1.
-Left; Apply comp_l with x; Auto with zfc v62.
-Right; Elim Hx1; Intros Hx2 Hx3; Split.
-2 : Assumption.
-Intros y' Hy'; Apply (Hx2 y'); Apply comp_l with x'; Auto with zfc v62.
-Intros x; Elim (EM (EXType ? [y:Ens](P x y))); Intros Hx.
-Elim Hx; Intros x0 Hx0; Exists x0; Left; Assumption.
-Exists Vide; Right; Split; Auto with zfc v62.
-Intros y Hy; Elim Hx; Exists y; Auto with zfc v62.
-Qed.
-
-(******************************************************************************)
-(*                  SMALL SETS AND THE BIG SET OF SMALL SETS                  *)
-(******************************************************************************)
-
-(* Some definitions replicated on another type level *)
-
-Inductive EXType' [P:Type; Q:P->Prop]: Prop :=
- EXTypei' : (x:P)(Q x)->(EXType' P Q).
-
-Inductive prod_t' [A,B:Type] : Type :=
- pair_t' : A->B->(prod_t' A B).
-
-Inductive depprod'' [A:Type; P : A->Type] : Type :=
- dep_i'' : (x:A)(P x)->(depprod'' A P).
-
-(* The small sets  *)
-Inductive Ens' : Type :=
-   sup' : (A:Type)(A->Ens')->Ens'
- | atom' : (A:Type)A->Ens'.
-
-(* Equality on small sets *)
-Definition EQ' : Ens' -> Ens' -> Prop.
-Induction 1.
-Intros A f eq1.
-Induction 1.
-Intros B g eq2.
-Apply and.
-Exact (x:A)
-        (EXType' ? [y:B](eq1 x (g y))).
-Exact (y:B)
-        (EXType' ? [x:A](eq1 x (g y))).
-
-Intros A' a'.
-Exact False.
-
-Intros A a.
-Induction 1.
-Intros A' f eq1.
-Exact False.
-
-Intros.
-(*Exact (X == X0).*)
-Exact (eq_depT Type [A:Type]A A a A0 y).
-Save.
-
-Transparent EQ'.
-
-(* small sets can be injected into big sets *)
-Definition inj : Ens'->Ens.
-Induction 1; [Intros A f fr ; Exact (sup A fr) | Intros A a ; Exact (atom A a)].
-Qed.
-
-Transparent inj.
-
-Theorem inj_sound : (E1,E2:Ens')(EQ' E1 E2)->(EQ (inj E1)(inj E2)).
-Induction E1; [Intros A1 f1 r1 | Intros A a] ; Induction E2;
- [Intros A2 f2 r2 | Contradiction | Contradiction | Intros A' a'].
-(Induction 1; Intros HR1 HR2; Split).
-(Intros a1; Elim (HR1 a1); Intros a2 Ha2; Exists  a2; Auto with zfc v62).
-(Intros a2; Elim (HR2 a2); Intros a1 Ha1; Exists  a1; Auto with zfc v62).
-
-Auto with zfc.
-Qed.
-
-Definition Sing' : Ens' -> Ens' :=
- [E:Ens'] (sup' Un [x:Un]Cases x of void => E end).
-
-Definition Power' : Ens' -> Ens' :=
-[E:Ens']
- Cases E of
-  (sup' A f) =>
-   (sup' ?
-        [P:A->Prop]
-           (sup' ?
-                [c:(depprod'' A [a:A](P a))]
-                   Cases c of
-                     (dep_i'' a p) => (f a)
-                   end
-            )
-   )
- | (atom' A a) => (Sing' (atom' A a)) (* ??? or Vide? *)
- end.
-
-Theorem Power_sound_inj : (E:Ens')(EQ (inj (Power' E))(Power (inj E))).
-Induction E; [Intros A f HR | Intros A a].
-Simpl; Split.
-Intros P; Exists P; Split.
-Intros c; Elim c; Intros a p.
-Exists (dep_i A [a0:A](P a0) a p); Simpl; Auto with zfc v62.
-Intros c; Elim c; Intros a p.
-Exists (dep_i'' A [a0:A](P a0) a p); Simpl; Auto with zfc v62.
-Intros P; Exists P; Split.
-Intros c; Elim c; Intros a p.
-Exists (dep_i A [a0:A](P a0) a p); Simpl; Auto with zfc v62.
-Intros c; Elim c; Intros a p.
-Exists (dep_i'' A [a0:A](P a0) a p); Simpl; Auto with zfc v62.
-
-Simpl; Split.
-Destruct x; Exists void; Auto with zfc.
-Destruct y; Exists void; Auto with zfc.
-Qed.
-
-(* The set of small sets *)
-Definition Big := (sup Ens' inj).
-
-Theorem Big_is_big : (E:Ens')(IN (inj E) Big).
-Intros E; Unfold Big; Simpl; Exists E; Auto with zfc.
-Qed.
-
-Theorem IN_Big_small : (E:Ens)(IN E Big)->(EXType' ? [E':Ens'](EQ E (inj E'))).
-Unfold Big; Simpl; Induction 1; Intros E' HE'; Exists E'; Assumption.
-Qed.
-
-Theorem IN_small_small : (E:Ens)(E':Ens')(IN E (inj E'))->
-                (EXType' ? [E1:Ens'](EQ E (inj E1))).
-Induction E'; [Intros A' f' HR' | Contradiction]; Simpl;
-        Induction 1; Intros a' e'; Exists  (f' a'); Assumption.
-Qed.
-
-Theorem Big_closed_for_power : (E:Ens)(IN E Big)->(IN (Power E) Big).
-Unfold Big; Simpl; Intros E; Induction 1; Intros E' HE'; Exists (Power' E').
-Apply EQ_tran with (Power (inj E')).
-Apply Power_sound; Assumption.
-Apply EQ_sym; Apply Power_sound_inj.
-Qed.
-
-(******************************************************************************)
-(*                            NO SET OF ALL SETS                              *)
-(******************************************************************************)
-
-(* Just for fun : a proof that there is no set of all sets, using *)
-(* Russell's paradox construction                                 *)
-(* There, of course, are other proofs (foundation, etc)           *)
-
-Theorem Russell : (E:Ens)((E':Ens)(IN E' E))->False.
-Intros U HU.
-Cut ([x:Ens](IN x x)->False (Comp U [x:Ens](IN x x)->False)).
-Intros HR.
-Apply HR.
-(Apply IN_P_Comp; Auto with zfc v62).
-(Intros w1 w2 HF e i; Apply HF; Apply IN_sound_left with w2; Auto with zfc v62;
- Apply IN_sound_right with w2; Auto with zfc v62).
-Intros H.
-Cut (IN (Comp U [x:Ens](IN x x)->False) (Comp U [x:Ens](IN x x)->False)).
-Change ([x:Ens](IN x x)->False (Comp U [x:Ens](IN x x)->False)).
-Cut (w1,w2:Ens)((IN w1 w1)->False)->(EQ w1 w2)->(IN w2 w2)->False.
-Intros ww.
-Exact (IN_Comp_P U (Comp U [x:Ens](IN x x)->False)
-        [x:Ens](IN x x)->False ww H).
-(Intros w1 w2 HF e i; Apply HF; Apply IN_sound_left with w2; Auto with zfc v62;
- Apply IN_sound_right with w2; Auto with zfc v62).
-Assumption.
-Qed.
-
-(******************************************************************************)
-(*                     SOME AXIOMS AND STRANGE THINGS ;-(                     *)
-(*                                                                            *)
-(*  The need for axioms is due to the usage of dependent equality, or to my   *)
-(*  ignorance about it ;-)                                                    *)
-(*                                                                            *)
-(******************************************************************************)
-
-Axiom a_de_pi2 :
- (T:Type)(n,m:T)(existT Type [A:Type]A T n)==(existT Type [A:Type]A T m)->n==m.
-
-(* The main consequence of the previous axiom *)
-Theorem a_pi2 : (T:Type)(n,m:T)(atom T n)==(atom T m)->n==m.
-Intros; Inversion H; Apply a_de_pi2; Assumption.
-Qed.
-
-(* This theorem is really strange: I can prove this in general, but I can't  *)
-(* prove any of it's instance: for example I can't prove                     *)
-(* ~(nat==bool)->~(atom nat O)==(atom bool true) due to an internal error of *)
-(* Coq                                                                       *)
-Theorem a_npi1 : (T1,T2:Type)(t1:T1)(t2:T2)~T1==T2->~(atom T1 t1)==(atom T2 t2).
-Unfold not; Intros; Apply H; Inversion H0; Reflexivity.
-Qed.
-
-(******************************************************************************)
-(*                  MAPPING A TYPE TO THE SET OF IT'S ELEMENTS                *)
-(******************************************************************************)
-
-(* (Ens_of_t T t) is thought as the coercion from an element (t:T) to a set *)
-Definition Ens_of_t : (T:Type)T->Ens :=
- [T:Type][t:T](atom T t).
-
-(* (Ens_of_T T) is thought as the set of the elements of type T ... *)
-Definition Ens_of_T : Type -> Ens :=
- [T:Type] (sup T [t:T](Ens_of_t T t)).
-
-(* ... and (Prop_on_Ens_of_Prop T P) is thought as the proposition on Ens *)
-(* that is true only for (atom T t) where (t:T) and (P t) is true.        *)
-Inductive Prop_on_Ens_of_Prop [T:Type; P:T->Prop] : Ens->Prop :=
-  cons : (t:T)(P t)->(Prop_on_Ens_of_Prop T P (atom T t)).
-
-Theorem Prop_on_Ens_of_Prop_atom_Prop :
-   (T:Type; P:(T->Prop); t:T)(Prop_on_Ens_of_Prop T P (atom T t))->(P t).
-Intros; Inversion H; Replace t with t0.
-Assumption.
-
-Apply a_de_pi2; Assumption.
-Qed.
-
-Theorem Prop_on_Ens_of_Prop_t :
-  (T:Type; P:(T->Prop); E:Ens)
-        (Prop_on_Ens_of_Prop T P E)
-        ->(EXType T [t:T]E==(atom T t)/\(P t)).
-Intros.
-Inversion H.
-Split with t.
-Auto.
-Qed.
-
-Lemma EQ_atom: (T:Type)(t:T)(E:Ens)(EQ (atom T t) E)->(atom T t)==E.
-Destruct E.
-Contradiction.
-
-Intros.
-Inversion H.
-Reflexivity.
-Qed.
-
-
-Theorem Prop_on_Ens_of_Prop_sound :
-   (E1,E2:Ens)(T:Type)(P:T->Prop)
-    (EQ E1 E2)
-    -> (Prop_on_Ens_of_Prop T P E1)
-    -> (Prop_on_Ens_of_Prop T P E2).
-Intros.
-Cut (EXType ? [t:T]E1==(atom T t)/\(P t)).
-Destruct 1; Destruct 1.
-Intros.
-Rewrite H3 in H.
-Cut (atom T x)==E2.
-Intros.
-Rewrite <- H5.
-Constructor 1.
-Assumption.
-
-Apply EQ_atom.
-Assumption.
-
-Apply Prop_on_Ens_of_Prop_t.
-Assumption.
-Qed.
-
-
-(******************************************************************************)
-(*                             EXAMPLES OF USAGE                              *)
-(******************************************************************************)
-
-(* We could define an implicit coercion from nat to Ens using Ens_of_t *)
-Coercion Ens_of_nat := [n:nat](Ens_of_t nat n).
-
-(* CNat is the set of the natural numbers of Coq ... *)
-Definition CNat : Ens :=
- (Ens_of_T nat).
-
-Mutual Inductive
- is_even : nat->Prop :=
-    is_even_O : (is_even O)
-  | is_even_S : (n:nat)(is_odd n)->(is_even (S n))
-with
- is_odd : nat->Prop :=
-    id_ood_S : (n:nat)(is_even n)->(is_odd (S n)).
-
-Lemma not_even_odd: (n:nat)(is_even n)->(is_odd n)->False.
-Induction n.
-Intros; Inversion H0.
-
-Intros; Apply H; [Inversion H1 | Inversion H0]; Assumption.
-Qed.
-
-Definition Cis_even : Ens -> Prop :=
-  (Prop_on_Ens_of_Prop nat is_even).
-
-Definition Cis_odd : Ens -> Prop :=
-  (Prop_on_Ens_of_Prop nat is_odd).
-
-(* ... and CEven and COdd are the sets of even/odd natural numbers of Coq *)
-
-Definition CEven := (Comp CNat Cis_even).
-
-Definition COdd  := (Comp CNat Cis_odd).
-
-(* And now an easy fact: the intersection of CEven with COdd is empty *)
-Fact COdd_Inter_CEven_EQ_Vide: (EQ (Inter (Paire CEven COdd)) Vide).
-Apply INC_EQ.    
-Cut (E:Ens)(IN E (Inter (Paire CEven COdd)))->(IN E Vide).
-Auto.
-
-Intros.
-Cut False.
-Contradiction.
-
-Cut (IN E CEven)/\(IN E COdd).
-Destruct 1.
-Intros.
-Unfold CEven in H1.
-Cut (Cis_even E).
-Unfold COdd in H2.
-Cut (Cis_odd E).
-Intros.
-Inversion H3.
-Inversion H4.
-Rewrite <- H6 in H8.
-Cut t0==t.
-Intro.
-Rewrite H9 in H7.
-Apply not_even_odd with t; Assumption.
-
-Apply a_pi2; Assumption.
-
-Apply IN_Comp_P with CNat.
-Intros.
-Unfold Cis_odd.
-Apply Prop_on_Ens_of_Prop_sound with w1; Assumption.
-
-Assumption.
-
-Apply IN_Comp_P with CNat.
-Intros.
-Unfold Cis_even.
-Apply Prop_on_Ens_of_Prop_sound with w1; Assumption.
-
-Assumption.
-
-Split.
-Apply IN_Inter_all with (Paire CEven COdd).
-Assumption.
-
-Auto with zfc.
-
-Apply IN_Inter_all with (Paire CEven COdd).
-Assumption.
-
-Auto with zfc.
-
-Simpl.
-Destruct 1.
-Destruct x.
-Qed.
-
-(* Another easy fact: O is not in COdd *)
-Fact O_not_IN_COdd : ~(IN O COdd).
-Unfold not; Intro.
-Cut (Cis_odd O).
-Intro.
-Inversion H0.
-Simpl in H1.
-Cut t==O.
-Intro.
-Rewrite H3 in H2.
-Inversion H2.
-
-Apply a_de_pi2.
-Assumption.
-
-Unfold COdd in H.
-Apply IN_Comp_P with CNat.
-Intros.
-Unfold Cis_odd.
-Apply Prop_on_Ens_of_Prop_sound with w1.
-Assumption.
-
-Exact H0.
-
-Assumption.
-Qed.

diff --git a/helm/EXPORT/exportcsczfc/exporttheories.sh b/helm/EXPORT/exportcsczfc/exporttheories.sh
deleted file mode 100755 (executable)
index 419e33d..0000000
--- a/helm/EXPORT/exportcsczfc/exporttheories.sh
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/bash
-
-echo "Exporting theory $1";
-
-for i in csc_eqdep.v csc_zfc.v
- do
-  basename=$(basename $i | sed s/\\.v//)
-  cat $i | ../mktheory.pl "csczfc/$basename" > \
-   examples/csczfc/$1/$basename.theory.xml
- done

diff --git a/helm/EXPORT/exportcsczfc/provacsczfc.v b/helm/EXPORT/exportcsczfc/provacsczfc.v
deleted file mode 100644 (file)
index 81737d5..0000000
--- a/helm/EXPORT/exportcsczfc/provacsczfc.v
+++ /dev/null
@@ -1,6 +0,0 @@
-Require Xml.
-Require csc_eqdep.
-Require csc_zfc.
-
-Print XML Dir Disk "examples/csczfc" csc_eqdep.
-Print XML Dir Disk "examples/csczfc" csc_zfc.

diff --git a/helm/EXPORT/exportprove/Makefile b/helm/EXPORT/exportprove/Makefile
deleted file mode 100644 (file)
index 4bd3a33..0000000
--- a/helm/EXPORT/exportprove/Makefile
+++ /dev/null
@@ -1,14 +0,0 @@
-all: objects theories
-
-objects:
-       coqc -R prove Bologna.prove prove/*.v
-       echo "Load Verbose provaStruct." | coqtop.byte -R prove Bologna.prove
-       echo "Load Verbose provaFeIota." | coqtop.byte -R prove Bologna.prove
-       echo "Load Verbose provaCofix." | coqtop.byte -R prove Bologna.prove
-       echo "Load Verbose prova." | coqtop.byte -R prove Bologna.prove
-
-theories:
-       ./exporttheories.sh
-
-clean:
-       rm -f *.vo prove/*.vo

diff --git a/helm/EXPORT/exportprove/exporttheories.sh b/helm/EXPORT/exportprove/exporttheories.sh
deleted file mode 100755 (executable)
index 0b609bf..0000000
--- a/helm/EXPORT/exportprove/exporttheories.sh
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/bash
-
-echo "Exporting theory $1";
-
-for i in prove/*.v
- do
-  basename=$(basename $i | sed s/\\.v//)
-  cat $i | ../mktheory.pl "prove/$basename" > \
-   examples/Bologna/prove/$1/$basename.theory.xml
- done

diff --git a/helm/EXPORT/exportprove/prova.v b/helm/EXPORT/exportprove/prova.v
deleted file mode 100644 (file)
index 0d98e57..0000000
--- a/helm/EXPORT/exportprove/prova.v
+++ /dev/null
@@ -1,34 +0,0 @@
-Require Export Xml.
-
-Section prova.
-
-Inductive
- tree : Set := node : forest -> tree
-with
- forest : Set := leaf : forest | cons : tree -> forest -> forest.
-
-Fixpoint tree_size [t:tree] : nat :=
- Cases t of (node f) => (S (forest_size f)) end
-with forest_size [f:forest] : nat :=
- Cases f of leaf => (S O) | (cons t f') => (plus (tree_size t) (forest_size f'))
- end.
-
-Theorem a_ab_b: (A,B:Prop)A->(A->B)->B.
-Auto.
-Qed.
-
-Axiom dummy_axiom: (n,m:nat)(le n m)\/(gt n m).
-
-End prova.
-
-Print XML Section Disk "examples/prove" prova.
-
-Theorem ab_ac_abc: (A,B,C:Prop)(A->B)->(A->C)->A->B/\C.
-Intros A B C AB AC A1.
-Split.
-
-Show XML File "examples/ab_ac_abc.xml" Proof.
-
-Auto.
-Auto.
-Qed.

diff --git a/helm/EXPORT/exportprove/provaCofix.v b/helm/EXPORT/exportprove/provaCofix.v
deleted file mode 100644 (file)
index d0f9729..0000000
--- a/helm/EXPORT/exportprove/provaCofix.v
+++ /dev/null
@@ -1,4 +0,0 @@
-Require Xml.
-Require provacofix.
-
-Print XML Module Disk "examples" provacofix.

diff --git a/helm/EXPORT/exportprove/provaFeIota.v b/helm/EXPORT/exportprove/provaFeIota.v
deleted file mode 100644 (file)
index bc5b2c0..0000000
--- a/helm/EXPORT/exportprove/provaFeIota.v
+++ /dev/null
@@ -1,6 +0,0 @@
-Require Xml.
-Require provaF.
-Require provaIota.
-
-Print XML Module Disk "examples" provaF.
-Print XML Module Disk "examples" provaIota.

diff --git a/helm/EXPORT/exportprove/provaStruct.v b/helm/EXPORT/exportprove/provaStruct.v
deleted file mode 100644 (file)
index 06c9529..0000000
--- a/helm/EXPORT/exportprove/provaStruct.v
+++ /dev/null
@@ -1,16 +0,0 @@
-Require Export Xml.
-
-Require provastruct.
-Print XML Module Disk "examples" provastruct.
-
-Require provastruct2.
-Print XML Module Disk "examples" provastruct2.
-
-Require provastruct3.
-Print XML Module Disk "examples" provastruct3.
-
-Require provastruct4.
-Print XML Module Disk "examples" provastruct4.
-
-Require provastruct5.
-Print XML Module Disk "examples" provastruct5.

diff --git a/helm/EXPORT/exportprove/prove/.cvsignore b/helm/EXPORT/exportprove/prove/.cvsignore
deleted file mode 100644 (file)
index 4199568..0000000
--- a/helm/EXPORT/exportprove/prove/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.vo

diff --git a/helm/EXPORT/exportprove/prove/provaF.v b/helm/EXPORT/exportprove/prove/provaF.v
deleted file mode 100644 (file)
index 072010f..0000000
--- a/helm/EXPORT/exportprove/prove/provaF.v
+++ /dev/null
@@ -1,33 +0,0 @@
-Definition int := (A:Prop)(A->A)->A->A.
-
-Definition O := [A:Prop][s:A->A][o:A]o.
-
-Definition S := [n:int][A:Prop][s:A->A][o:A](s (n A s o)).
-
-Definition Uno := [A:Prop][s:A->A][o:A](s o).
-
-Definition Due := [A:Prop][s:A->A][o:A](s (s o)).
-
-Definition Tre := [A:Prop][s:A->A][o:A](s (s (s o))).
-
-Definition id := [A:Prop][x:A]x.
-
-Definition id_Due := (id int Due).
-
-Definition difficult := ((S Due) (int -> int) (id (int -> int)) (id int)).
-
-Definition is_Zero := [n:int](n int [_:int]Uno O).
-
-Definition couple := [A:Prop][x:A][y:A][z:A->A->A](z x y).
-
-Definition Couple := [A:Prop](z:A->A->A)A.
-
-Definition fst := [A:Prop][x:A][y:A]x.
-
-Definition snd := [A:Prop][x:A][y:A]y.
-
-Definition next : (Couple int) -> (Couple int) := [x:(Couple int)](couple int (x (snd int)) (S (x (snd int)))).
-
-Definition pred := [n:int]((n (Couple int) next (couple int O O))(fst int)).
-
-Definition test := (((pred Tre) (int -> int))(id (int->int)) (id int)).

diff --git a/helm/EXPORT/exportprove/prove/provaIota.v b/helm/EXPORT/exportprove/prove/provaIota.v
deleted file mode 100644 (file)
index 74a510b..0000000
--- a/helm/EXPORT/exportprove/prove/provaIota.v
+++ /dev/null
@@ -1,53 +0,0 @@
-Inductive bool : Set := true : bool | false : bool.
-Inductive nat  : Set := O : nat | S : nat -> nat.
-
-Fixpoint plus [n:nat] : nat -> nat :=
-  [m:nat]
-  Cases n of
-     O     => m
-   | (S n) => (S (plus n m))
-  end.
-
-Fixpoint mult [n:nat] : nat -> nat :=
-  [m:nat]
-  Cases n of
-     O     => O
-   | (S n) => (plus m (mult n m))
-  end.
-
-Fixpoint fact [n:nat] : nat  :=
-  Cases n of
-     O     => (S O)
-   | (S n) => (mult (S n) (fact n))
-  end.
-
-Definition bnot :=
- [b:bool]
- Cases b of
-    true  => false
-  | false => true
- end.
-
-Fixpoint is_even [n:nat] : bool :=
-  Cases n of
-     O     => true
-   | (S n) => (bnot (bnot (is_odd n)))
-  end
-with is_odd [n:nat] : bool :=
-  Cases n of
-     O     => false
-   | (S n) => (bnot (bnot (is_even n)))
-  end
-.
-
-Fixpoint idn [n:nat] : nat :=
-  Cases n of
-     O     => O
-   | (S n) => (S (idn n))
-  end.
-
-Definition test1 := (is_even (S (S O))).
-Definition test2 := (is_even (S (S (S O)))).
-Definition test3 := (idn (idn (S O))).
-Definition test4 := (is_odd (fact (S (S (O))))).
-Definition test5 := (is_odd (fact (S (S (S (S (S (S O)))))))).

diff --git a/helm/EXPORT/exportprove/prove/provacofix.v b/helm/EXPORT/exportprove/prove/provacofix.v
deleted file mode 100644 (file)
index 199cade..0000000
--- a/helm/EXPORT/exportprove/prove/provacofix.v
+++ /dev/null
@@ -1,45 +0,0 @@
-(* Let's define an infinite tree whose nodes are made of natural value and an *)
-(* infinite forest of infinite trees whose nodes ...                          *)
-
-(* (obbrobrio_tree n) is used to build such a tree whose root value is n and *)
-(* root forest is made of the corecursively defined tress whose roots values *)
-(* are (n+1), (n+2), ...                                                     *)
-
-(* To finish, we provide also some destructors and a funny (?!?) theorem     *)
-
-CoInductive tree : Set :=
-   node : nat -> forest -> tree      
-with forest : Set :=
-   nil : forest
- | cons : tree -> forest -> forest.
-
-CoFixpoint obbrobrio_tree : nat -> tree :=
- [n:nat]
-  (node n (obbrobrio_forest (S n) nil))
-with obbrobrio_forest : nat -> forest -> forest :=
- [n:nat][f:forest]
-  (cons (obbrobrio_tree n) (obbrobrio_forest (S n) f)).
-
-Definition root_value : tree -> nat :=
- [t:tree]
- Cases t of
-    (node n _) => n
- end.
-
-Definition root_forest : tree -> forest :=
- [t:tree]
- Cases t of
-    (node _ f) => f
- end.
-
-Definition root_tree : forest -> tree :=
- [f:forest]
- Cases f of
-    nil => (obbrobrio_tree (S (S (S O))))
-  | (cons t _) => t
- end.
-
-Theorem easy : (root_value (root_tree (root_forest (obbrobrio_tree O))))=(S O).
-Proof.
- Trivial.
-Qed.

diff --git a/helm/EXPORT/exportprove/prove/provastruct.v b/helm/EXPORT/exportprove/prove/provastruct.v
deleted file mode 100644 (file)
index 503c7e0..0000000
--- a/helm/EXPORT/exportprove/prove/provastruct.v
+++ /dev/null
@@ -1,22 +0,0 @@
-Require Export Xml.
-
-Section a.
- Variable A:Prop.
- Section b1.
-  Variable B:Prop.
-  Axiom axiom: A -> (A -> B) ->B.
-  Theorem th1: A -> (A -> B) -> A/\B.
-   Intros A' H.
-   Split.
-   Assumption.
-   Apply axiom; Assumption.
-  Qed.
- End b1.
- Section b2.
-  Variable B:Set.
-  Axiom axiom': (A:Prop)A->A.
- End b2.
- Theorem th1': (A:Prop)A->A.
-  Auto.
- Qed.
-End a.

diff --git a/helm/EXPORT/exportprove/prove/provastruct2.v b/helm/EXPORT/exportprove/prove/provastruct2.v
deleted file mode 100644 (file)
index 0784e97..0000000
--- a/helm/EXPORT/exportprove/prove/provastruct2.v
+++ /dev/null
@@ -1,42 +0,0 @@
-Section init.
-Section a.
- Section a1.
-  Section a11.
-   Section a111.
-    Local uno := (S O).
-   End a111.
-   Section a112.
-   End a112.
-   Section a113.
-   End a113.
-  End a11.
-  Local uno := (S O).
- End a1.
- Section a2.
-  Section a21.
-   Local uno := (S O).
-  End a21.
-  Section a22.
-   Section a221.
-   End a221.
-  End a22.
-  Section a23.
-   Section a231.
-    Section a2311.
-     Local uno := (S O).
-    End a2311.
-    Section a2312.
-    End a2312.
-    Section a2313.
-    End a2313.
-   End a231.
-   Section a232.
-    Section a2321.
-    End a2321.
-   End a232.
-  End a23.
-  Local uno := (S O).
- End a2.
- Definition uno := (S O).
-End a.
-End init.

diff --git a/helm/EXPORT/exportprove/prove/provastruct3.v b/helm/EXPORT/exportprove/prove/provastruct3.v
deleted file mode 100644 (file)
index d189330..0000000
--- a/helm/EXPORT/exportprove/prove/provastruct3.v
+++ /dev/null
@@ -1,11 +0,0 @@
-Section a.
- Section a1.
-  Variable A : Prop.
-  Variable B : Prop.
-  Inductive t1 : Set := k1 : A -> t1.
- End a1.
- 
- Inductive t2 [B:Set] : Set := k2 : (t2 B).
-
- Variable A : Prop.
-End a.

diff --git a/helm/EXPORT/exportprove/prove/provastruct4.v b/helm/EXPORT/exportprove/prove/provastruct4.v
deleted file mode 100644 (file)
index 1307f46..0000000
--- a/helm/EXPORT/exportprove/prove/provastruct4.v
+++ /dev/null
@@ -1,8 +0,0 @@
-Section a.
- Variables N,M:nat.
- Section b.
-  Variable P:Prop.
-  Local SN := (S N).
-  Axiom A : N = M.
- End b.
-End a.

diff --git a/helm/EXPORT/exportprove/prove/provastruct5.v b/helm/EXPORT/exportprove/prove/provastruct5.v
deleted file mode 100644 (file)
index 952c9d2..0000000
--- a/helm/EXPORT/exportprove/prove/provastruct5.v
+++ /dev/null
@@ -1,11 +0,0 @@
-Section a.
- Variable A:Prop.
- Theorem easy:(B:Prop)B->B.
-  Exact ([H:Prop][B:Prop][b:B]b A).
- Qed.
- Section b.
-  Theorem easy':(B:Prop)B->B.
-   Exact easy.
-  Qed.
- End b.
-End a.

diff --git a/helm/EXPORT/mktheory.pl b/helm/EXPORT/mktheory.pl
deleted file mode 100755 (executable)
index 2be018e..0000000
--- a/helm/EXPORT/mktheory.pl
+++ /dev/null
@@ -1,151 +0,0 @@
-#!/usr/bin/perl
-
-# Assumptions:
-#  Comments on one line are stripped
-#  Comments on many lines:
-#   nothing after *) (end of command)
-#  Commands could be nested (but see previous assumption)
-#  Commands don't span on several lines
-#  If a line is commented, the comment must begin at the begin of line and end
-#   at the end of line
-#  In a line, before a command only spaces are allowed
-
-$curi = $ARGV[0];
-$with_types = ($ARGV[1] ? ".types" : "");
-$ident = " ";
-$cid = 1;
-$opencom = 0;
-$openscheme = 0;
-$openfix = 0;
-$opengoal = 0;
-
-print <<EOT;
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<!DOCTYPE Theory SYSTEM "http://localhost:8081/getdtd?uri=maththeory.dtd">
-
-<Theory uri="cic:/$curi">
-EOT
-
-while (<STDIN>) {
- chomp;
- if ($opencom > 0) {
-  $opencom-- if (/\*\)/ && !/\(\*.*\*\)/);
- } else {
-  if (/\(\*.*\*\)/) { # (* comment *)
-   s/\(\*.*\*\)//;
-  } elsif (/\(\*/) {
-   # (* comment
-   $opencom++;
-   $_ = "";
-  }
-
-  if (/Require /) {
-   s/ *Require *(.*)\..*/$1/;
-   print "$ident<!-- Require $_ -->\n";
-  } elsif (/Goal /) {
-   $opengoal = 1;
-  } elsif (/Section /) {
-   s/ *Section *(.*)\..*/$1/;
-   print "$ident<SECTION uri=\"$1\">\n";
-   $ident = $ident." ";
-  } elsif (/Chapter /) {
-   s/ *Chapter *(.*)\..*/$1/;
-   print "$ident<SECTION uri=\"$1\">\n";
-   $ident = $ident." ";
-  } elsif (/End /) {
-   chop($ident);
-   print "$ident</SECTION>\n";
-  } elsif (/Variable(s?) /) {
-   s/ *Variable(s?) *([^:]*):.*/$2/;
-   s/ //g;
-   @vl = split /,/;
-   foreach (@vl) {
-    print "$ident<VARIABLE uri=\"$_.var$with_types\"/>\n";
-   }
-  } elsif (/Hypothesis /) {
-   s/ *Hypothesis *([^ :]*)( |:).*/$1/;
-   @vl = split /,/;
-   foreach (@vl) {
-    print "$ident<VARIABLE uri=\"$_.var$with_types\"/>\n";
-   }
-  } elsif (/^ *Inductive /) {
-   if (/ *Inductive *[^ :]+ ([^ :]*) :=/) {
-    s/ *Inductive *[^ :]+ ([^ :]*) *:=.*/$1/;
-   } elsif (/ *Inductive *[^ :]*( |:)/) {
-    s/ *Inductive *([^ :\[]*)( |:|\[).*/$1/;
-   }
-   print "$ident<DEFINITION uri=\"$_.ind$with_types\"/>\n";
-  } elsif (/ *CoInductive /) {
-   if (/ *CoInductive *[^ :]+ ([^ :]*) *:=/) {
-    s/ *CoInductive *[^ :]+ ([^ :]*) *:=.*/$1/;
-   } elsif (/ *CoInductive *[^ :]*( |:)/) {
-    s/ *CoInductive *([^ :]*)( |:).*/$1/;
-   }
-   print "$ident<DEFINITION uri=\"$_.ind$with_types\"/>\n";
-  } elsif (/^ *Fixpoint /) {
-   s/ *Fixpoint *([^ \[]*)( |\[).*/$1/;
-   print "$ident<DEFINITION uri=\"$_.con$with_types\"/>\n";
-   $openfix = 1;
-  } elsif (/ *CoFixpoint /) {
-   s/ *CoFixpoint *([^ \[]*)( |\[).*/$1/;
-   print "$ident<DEFINITION uri=\"$_.con$with_types\"/>\n";
-   $openfix = 1;
-  } elsif (/^ *Definition /) {
-   s/ *Definition *([^ :]*)( |:)?.*/$1/;
-   print "$ident<DEFINITION uri=\"$_.con$with_types\"/>\n";
-  } elsif (/Local /) {
-   s/ *Local *([^ :]*)( |:)?.*/$1/;
-   print "$ident<DEFINITION uri=\"$_.con$with_types\"/>\n";
-  } elsif (/Lemma /) {
-   s/ *Lemma *([^ :]*)( |:)?.*/$1/;
-   print "$ident<THEOREM id=\"id$cid\" uri=\"$_.con$with_types\"/>\n";
-   $cid++;
-  } elsif (/Theorem /) {
-   s/ *Theorem *([^ :]+)( |:)?.*/$1/;
-   print "$ident<THEOREM id=\"id$cid\" uri=\"$_.con$with_types\"/>\n";
-   $cid++;
-  } elsif (/Remark /) {
-   s/ *Remark *([^ :]*)( |:)?.*/$1/;
-   print "$ident<THEOREM id=\"id$cid\" uri=\"$_.con$with_types\"/>\n";
-   $cid++;
-  } elsif (/Scheme /) {
-   s/ *Scheme *([^ :]*)( |:)?.*/$1/;
-   print "$ident<THEOREM id=\"id$cid\" uri=\"$_.con$with_types\"/>\n";
-   $cid++;
-   $openscheme = 1;
-  } elsif (/Save / && $opengoal) {
-   s/ *Save *([^ \.]*)( |\.).*/$1/;
-   print "$ident<THEOREM id=\"id$cid\" uri=\"$_.con$with_types\"/>\n";
-   $cid++;
-  } elsif (/with / && $openscheme) {
-   s/ *with *([^ :]*)( |:).*/$1/;
-   print "$ident<THEOREM id=\"id$cid\" uri=\"$_.con$with_types\"/>\n";
-   $cid++;
-  } elsif (/with / && $openfix) {
-   s/ *with *([^ :]*)( |:).*/$1/;
-   print "$ident<DEFINITION uri=\"$_.con$with_types\"/>\n";
-   $cid++;
-  } elsif (/Axiom /) {
-   s/ *Axiom *([^ :]*)( |:).*/$1/;
-   print "$ident<AXIOM id=\"id$cid\" uri=\"$_.con$with_types\"/>\n";
-   $cid++;
-  } elsif (/Parameter /) {
-   s/ *Parameter *([^ :]*)( |:).*/$1/;
-   print "$ident<AXIOM id=\"id$cid\" uri=\"$_.con$with_types\"/>\n";
-   $cid++;
-  } elsif (/Record /) {
-   s/ *Record *([^ :]*)( |:).*/$1/;
-   print "$ident<DEFINITION uri=\"$_.ind$with_types\"/>\n";
-   $cid++;
-  }
-
-  if ($openscheme && (/\./)) {
-   $openscheme = 0;
-  } elsif ($openfix && (/\./)) {
-   $openfix = 0;
-  }
-
- }
-}
-
-print "</Theory>\n";

diff --git a/helm/annotationHelper/.cvsignore b/helm/annotationHelper/.cvsignore
deleted file mode 100644 (file)
index b79ea36..0000000
--- a/helm/annotationHelper/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cm[iox] *.o cicAnnotationHelper cicAnnotationHelper.opt

diff --git a/helm/annotationHelper/.depend b/helm/annotationHelper/.depend
deleted file mode 100644 (file)
index 699b8de..0000000
--- a/helm/annotationHelper/.depend
+++ /dev/null
@@ -1,4 +0,0 @@
-cicAnnotationHinter.cmo: cicAnnotationHinter.cmi 
-cicAnnotationHinter.cmx: cicAnnotationHinter.cmi 
-cicAnnotationHelper.cmo: cicAnnotationHinter.cmi 
-cicAnnotationHelper.cmx: cicAnnotationHinter.cmx 

diff --git a/helm/annotationHelper/Makefile b/helm/annotationHelper/Makefile
deleted file mode 100644 (file)
index 272ac3e..0000000
--- a/helm/annotationHelper/Makefile
+++ /dev/null
@@ -1,47 +0,0 @@
-BIN_DIR = /usr/local/bin
-REQUIRES = lablgtkmathview helm-cic_annotations_cache
-PREDICATES =
-OCAMLOPTIONS = -package "$(REQUIRES)" -predicates "$(PREDICATES)"
-OCAMLC = ocamlfind ocamlc $(OCAMLOPTIONS)
-OCAMLOPT = ocamlfind ocamlopt $(OCAMLOPTIONS)
-OCAMLDEP = ocamldep
-
-LIBRARIES = $(shell ocamlfind query -recursive -predicates "byte $(PREDICATES)" -format "%d/%a" $(REQUIRES))
-LIBRARIES_OPT = $(shell ocamlfind query -recursive -predicates "native $(PREDICATES)" -format "%d/%a" $(REQUIRES))
-
-all: cicAnnotationHelper
-opt: cicAnnotationHelper.opt
-
-DEPOBJS = cicAnnotationHinter.mli cicAnnotationHinter.ml cicAnnotationHelper.ml
-
-CICANNOTATIONHELPEROBJS = cicAnnotationHinter.cmo cicAnnotationHelper.cmo
-
-depend:
-       $(OCAMLDEP) $(DEPOBJS) > .depend
-
-cicAnnotationHelper: $(CICANNOTATIONHELPEROBJS) $(LIBRARIES)
-       $(OCAMLC)  -linkpkg -o cicAnnotationHelper $(CICANNOTATIONHELPEROBJS)
-
-cicAnnotationHelper.opt: $(CICANNOTATIONHELPEROBJS:.cmo=.cmx) $(LIBRARIES_OPT)
-       $(OCAMLOPT) -linkpkg -o cicAnnotationHelper.opt $(CICANNOTATIONHELPEROBJS:.cmo=.cmx)
-
-.SUFFIXES: .ml .mli .cmo .cmi .cmx
-.ml.cmo: $(LIBRARIES)
-       $(OCAMLC) -c $<
-.mli.cmi: $(LIBRARIES)
-       $(OCAMLC) -c $<
-.ml.cmx: $(LIBRARIES_OPT)
-       $(OCAMLOPT) -c $<
-
-clean:
-       rm -f *.cm[iox] *.o cicAnnotationHelper cicAnnotationHelper.opt
-
-install:
-       cp cicAnnotationHelper cicAnnotationHelper.opt $(BIN_DIR)
-
-uninstall:
-       rm -f $(BIN_DIR)/cicAnnotationHelper $(BIN_DIR)/cicAnnotationHelper.opt
-
-.PHONY: install uninstall clean
-
-include .depend

diff --git a/helm/annotationHelper/cicAnnotationHelper.ml b/helm/annotationHelper/cicAnnotationHelper.ml
deleted file mode 100644 (file)
index 7b150ff..0000000
--- a/helm/annotationHelper/cicAnnotationHelper.ml
+++ /dev/null
@@ -1,577 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 03/04/2001                                 *)
-(*                                                                            *)
-(* This is a simple gtk interface to the Coq-like pretty printer cicPp for    *)
-(* cic terms exported in xml. It uses directly the modules cicPp and          *)
-(* cicCcache and indirectly all the other modules (cicParser, cicParser2,     *)
-(* cicParser3, getter).                                                       *)
-(* The syntax is  "gtkInterface[.opt] filename1 ... filenamen" where          *)
-(* filenamei is the path-name of an xml file describing a cic term.           *)
-(* The terms are loaded in cache and then pretty-printed one at a time and    *)
-(* only once, when the user wants to look at it: if the user wants to look at *)
-(* a term again, then the pretty-printed term is showed again, but not        *)
-(* recomputed                                                                 *)
-(*                                                                            *)
-(******************************************************************************)
-
-(* GLOBAL REFERENCES (USED BY CALLBACKS) *)
-
-let annotated_obj = ref None;;      (* reference to a triple option where    *)
-                                    (* the first component is the current    *)
-                                    (* annotated object, the second is the   *)
-                                    (* map from ids to annotated targets and *)
-                                    (* the third is the map from ids to      *)
-                                    (* annotations.                          *)
-let current_id = ref None;;         (* id of the element to annotate *)
-let radio_some_status = ref false;; (* is the radio_some button selected? *)
-let current_url = ref "";;
-
-(* GLOBAL CONSTANTS *)
-
-let helmns = Ominidom.o_mDOMString_of_string "http://www.cs.unibo.it/helm";;
-
-(* MISC FUNCTIONS *)
-
-let pathname_of_annuri uristring =
- Configuration.annotations_dir ^
-  Str.replace_first (Str.regexp "^cic:") "" uristring
-;;
-
-let make_dirs dirpath =
- ignore (Unix.system ("mkdir -p " ^ dirpath))
-;;
-
-module UrlManipulator =
- struct
-  exception No_param_dot_CICURI_or_param_dot_annotations_found_in of string;;
-  exception No_param_found_in of string * string;;
-  exception Bad_formed_url of string;;
-
-  let uri_from_url url =
-   let module N = Neturl in
-   let founduri = ref None in
-   let foundann = ref None in
-    let rec find_uri =
-     function
-        [] -> raise (No_param_dot_CICURI_or_param_dot_annotations_found_in url)
-      | he::tl ->
-         match Str.split (Str.regexp "=") he with
-            ["param.CICURI";uri] ->
-              if !founduri <> None then
-               raise (Bad_formed_url url)
-              else
-               begin
-                founduri := Some uri ;
-                if !foundann = None then
-                 find_uri tl
-               end
-          | ["param.annotations";ann] ->
-              if !foundann <> None then
-               raise (Bad_formed_url url)
-              else
-               begin
-                foundann :=
-                 Some
-                  (match ann with
-                      "yes" -> ".ann"
-                    | "no"  -> ""
-                    | _     -> raise (Bad_formed_url url)
-                  ) ;
-                if !founduri = None then
-                 find_uri tl
-               end
-          | _ -> find_uri tl
-    in
-     find_uri
-      (Str.split (Str.regexp "&")
-       (N.url_query ~encoded:true (N.url_of_string N.ip_url_syntax url))) ;
-     match !founduri,!foundann with
-        (Some uri),(Some ann) -> uri ^ ann
-      | _         , _         ->
-         raise (No_param_dot_CICURI_or_param_dot_annotations_found_in url)
-  ;;
-
-  let extractParam param url =
-   let module N = Neturl in
-    let rec find_param =
-     function
-        [] -> raise (No_param_found_in (param,url))
-      | he::tl ->
-         match Str.split (Str.regexp "=") he with
-            [name;value] when name = param -> value
-          | _ -> find_param tl
-    in
-     find_param
-      (Str.split (Str.regexp "&")
-       (N.url_query ~encoded:true (N.url_of_string N.ip_url_syntax url)))
-  ;;
-
-  let set_annotations_to_yes query url =
-   let found =ref false in
-   let rec aux =
-    function
-       [] ->
-        if !found then ""
-        else raise (No_param_found_in ("param.annotations",url))
-     | he::tl ->
-        match Str.split (Str.regexp "=") he with
-           ["param.annotations" as s ; ann] ->
-             found := true ;
-             let auxtl = aux tl in
-              s ^ "=yes" ^
-               (if auxtl = "" then "" else "&" ^ auxtl)
-         | [name ; value] ->
-            let auxtl = aux tl in
-             name ^ "=" ^ value ^
-              (if auxtl = "" then "" else "&" ^ auxtl)
-         | [name] ->
-            let auxtl = aux tl in
-             name ^ "=" ^
-              (if auxtl = "" then "" else "&" ^ auxtl)
-         | _ -> raise (Bad_formed_url url)
-   in
-    aux (Str.split (Str.regexp "&") query)
-  ;;
-
-  let annurl_of_url url =
-   let module N = Neturl in
-    let nurl = N.url_of_string N.ip_url_syntax url in
-     let query = N.url_query ~encoded:true nurl in
-     let newquery = set_annotations_to_yes query url in
-      N.string_of_url (N.modify_url ~encoded:true ~query:newquery nurl)
-  ;;
-end
-
-let get_current_uri () =
- UriManager.uri_of_string (UrlManipulator.uri_from_url !current_url)
-;;
-
-(* CALLBACKS *)
-
-let get_annotated_obj () =
- match !annotated_obj with
-    None   ->
-     let annobj =
-      let (annobj,ids_to_annotations) =
-       match CicCache.get_annobj (get_current_uri ()) with
-          (annobj,None) -> annobj, Hashtbl.create 503
-        | (annobj, Some ids_to_annotations) -> (annobj,ids_to_annotations)
-      in
-       let ids_to_targets = CicXPath.get_ids_to_targets annobj in
-        (annobj,ids_to_targets,ids_to_annotations)
-     in
-      annotated_obj := Some annobj ;
-      annobj
-  | Some annobj -> annobj
-;;
-
-let update_output rendering_window url =
- rendering_window#label#set_text (UrlManipulator.uri_from_url url) ;
- rendering_window#output#load url
-;;
-
-let choose_selection rendering_window (node : Ominidom.o_mDOMNode option) =
- let module O = Ominidom in
-  let rec aux node =
-   match node#get_attribute_ns (O.o_mDOMString_of_string "xref") helmns with
-     Some _ -> rendering_window#output#set_selection (Some node)
-   | None   -> aux (node#get_parent)
-  in
-   match node with
-     Some x -> aux x
-   | None   -> rendering_window#output#set_selection None
-;;
-
-let annotateb_pressed rendering_window annotation_window () =
- let module O = Ominidom in
- match rendering_window#output#get_selection with
-   Some node ->
-    begin
-     match (node#get_attribute_ns (O.o_mDOMString_of_string "xref") helmns) with
-        Some xpath ->
-         let annobj = get_annotated_obj () in
-         let (anno, ids_to_targets, ids_to_annotations) = annobj in
-         let annotation = (annotation_window#annotation : GEdit.text) in
-         let id = xpath#get_string in
-          current_id := Some id ;
-          let ann = CicXPath.get_annotation ids_to_annotations id in
-           CicAnnotationHinter.create_hints annotation_window ids_to_targets
-           (xpath#get_string) ;
-           annotation#delete_text 0 annotation#length ;
-           begin
-            match ann with
-                None      ->
-                 annotation#misc#set_sensitive false ;
-                 annotation_window#radio_none#set_active true ;
-                 radio_some_status := false
-              | Some ann' ->
-                 annotation#insert ann' ;
-                 annotation#misc#set_sensitive true ;
-                 annotation_window#radio_some#set_active true ;
-                 radio_some_status := true
-           end ;
-           GMain.Grab.add (annotation_window#window_to_annotate#coerce) ;
-           annotation_window#show () ;
-     | None -> rendering_window#label#set_text ("ERROR: No xref found!!!\n")
-    end
- | None -> rendering_window#label#set_text ("ERROR: No selection!!!\n")
-;;
-
-let change_annotation ids_to_annotations id ann =
- begin
-  try
-   Hashtbl.remove ids_to_annotations id
-  with
-   Not_found -> ()
- end ;
- match ann with
-    None -> ()
-  | Some ann' -> Hashtbl.add ids_to_annotations id ann'
-;;
-
-(* called when the annotation is confirmed *)
-let save_annotation annotation =
- let module S = Str in
- let module U = UriManager in
-  let (annobj,ids_to_annotations) =
-   match !annotated_obj with
-      None -> assert false
-    | Some (annobj,_,ids_to_annotations) -> annobj,ids_to_annotations
-  in
-   change_annotation ids_to_annotations
-    (match !current_id with
-        Some id -> id
-      | None -> assert false
-    )
-    (if !radio_some_status then
-      Some (annotation#get_chars 0 annotation#length)
-     else
-      None
-    ) ;
-   let uri = get_current_uri () in
-    let annxml =
-     CicAnnotation2Xml.pp_annotation annobj ids_to_annotations uri
-    in
-     make_dirs
-       (pathname_of_annuri (U.buri_of_uri uri)) ;
-     Xml.pp ~quiet:true annxml
-      (Some
-       (pathname_of_annuri (U.string_of_uri (U.annuri_of_uri uri)) ^
-        ".xml"
-       )
-      )
-;;
-
-(* STUFF TO BUILD THE GTK INTERFACE *)
-
-(* Stuff for the widget settings *)
-
-let export_to_postscript (output : GMathView.math_view) () =
- output#export_to_postscript ~filename:"output.ps" ();
-;;
-
-let activate_t1 output button_set_anti_aliasing button_set_kerning 
- button_set_transparency button_export_to_postscript button_t1 ()
-=
- let is_set = button_t1#active in
-  output#set_font_manager_type
-   (if is_set then `font_manager_t1 else `font_manager_gtk) ;
-  if is_set then
-   begin
-    button_set_anti_aliasing#misc#set_sensitive true ;
-    button_set_kerning#misc#set_sensitive true ;
-    button_set_transparency#misc#set_sensitive true ;
-    button_export_to_postscript#misc#set_sensitive true ;
-   end
-  else
-   begin
-    button_set_anti_aliasing#misc#set_sensitive false ;
-    button_set_kerning#misc#set_sensitive false ;
-    button_set_transparency#misc#set_sensitive false ;
-    button_export_to_postscript#misc#set_sensitive false ;
-   end
-;;
-
-let set_anti_aliasing output button_set_anti_aliasing () =
- output#set_anti_aliasing button_set_anti_aliasing#active
-;;
-
-let set_kerning output button_set_kerning () =
- output#set_kerning button_set_kerning#active
-;;
-
-let set_transparency output button_set_transparency () =
- output#set_transparency button_set_transparency#active
-;;
-
-let changefont output font_size_spinb () =
- output#set_font_size font_size_spinb#value_as_int
-;;
-
-let set_log_verbosity output log_verbosity_spinb () =
- output#set_log_verbosity log_verbosity_spinb#value_as_int
-;;
-
-class settings_window output sw button_export_to_postscript
- selection_changed_callback
-=
- let settings_window = GWindow.window ~title:"GtkMathView settings" () in
- let vbox =
-  GPack.vbox ~packing:settings_window#add () in
- let table =
-  GPack.table
-   ~rows:1 ~columns:3 ~homogeneous:false ~row_spacings:5 ~col_spacings:5
-   ~border_width:5 ~packing:vbox#add () in
- let button_t1 =
-  GButton.toggle_button ~label:"activate t1 fonts"
-   ~packing:(table#attach ~left:0 ~top:0) () in
- let button_set_anti_aliasing =
-  GButton.toggle_button ~label:"set_anti_aliasing"
-   ~packing:(table#attach ~left:0 ~top:1) () in
- let button_set_kerning =
-  GButton.toggle_button ~label:"set_kerning"
-   ~packing:(table#attach ~left:1 ~top:1) () in
- let button_set_transparency =
-  GButton.toggle_button ~label:"set_transparency"
-   ~packing:(table#attach ~left:2 ~top:1) () in
- let table =
-  GPack.table
-   ~rows:2 ~columns:2 ~homogeneous:false ~row_spacings:5 ~col_spacings:5
-   ~border_width:5 ~packing:vbox#add () in
- let font_size_label =
-  GMisc.label ~text:"font size:"
-   ~packing:(table#attach ~left:0 ~top:0 ~expand:`NONE) () in
- let font_size_spinb =
-  let sadj =
-   GData.adjustment ~value:14.0 ~lower:5.0 ~upper:50.0 ~step_incr:1.0 ()
-  in
-   GEdit.spin_button 
-    ~adjustment:sadj ~packing:(table#attach ~left:1 ~top:0 ~fill:`NONE) () in
- let log_verbosity_label =
-  GMisc.label ~text:"log verbosity:"
-   ~packing:(table#attach ~left:0 ~top:1) () in
- let log_verbosity_spinb =
-  let sadj =
-   GData.adjustment ~value:0.0 ~lower:0.0 ~upper:3.0 ~step_incr:1.0 ()
-  in
-   GEdit.spin_button 
-    ~adjustment:sadj ~packing:(table#attach ~left:1 ~top:1) () in
- let hbox =
-  GPack.hbox ~packing:(vbox#pack ~expand:false ~fill:false ~padding:5) () in
- let closeb =
-  GButton.button ~label:"Close"
-   ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
-object(self)
- method show = settings_window#show
- initializer
-  button_set_anti_aliasing#misc#set_sensitive false ;
-  button_set_kerning#misc#set_sensitive false ;
-  button_set_transparency#misc#set_sensitive false ;
-  (* Signals connection *)
-  ignore(button_t1#connect#clicked
-   (activate_t1 output button_set_anti_aliasing button_set_kerning
-    button_set_transparency button_export_to_postscript button_t1)) ;
-  ignore(font_size_spinb#connect#changed (changefont output font_size_spinb)) ;
-  ignore(button_set_anti_aliasing#connect#toggled
-   (set_anti_aliasing output button_set_anti_aliasing));
-  ignore(button_set_kerning#connect#toggled
-   (set_kerning output button_set_kerning)) ;
-  ignore(button_set_transparency#connect#toggled
-   (set_transparency output button_set_transparency)) ;
-  ignore(log_verbosity_spinb#connect#changed
-   (set_log_verbosity output log_verbosity_spinb)) ;
-  ignore(closeb#connect#clicked settings_window#misc#hide)
-end;;
-
-(* Main windows *)
-
-class annotation_window output label =
- let window_to_annotate =
-  GWindow.window ~title:"Annotating environment" ~border_width:2 () in
- let hbox1 =
-  GPack.hbox ~packing:window_to_annotate#add () in
- let vbox1 =
-  GPack.vbox ~packing:(hbox1#pack ~padding:5) () in
- let hbox2 =
-  GPack.hbox ~packing:(vbox1#pack ~expand:false ~fill:false ~padding:5) () in
- let radio_some = GButton.radio_button ~label:"Annotation below"
-  ~packing:(hbox2#pack ~expand:false ~fill:false ~padding:5) () in
- let radio_none = GButton.radio_button ~label:"No annotation"
-  ~group:radio_some#group
-  ~packing:(hbox2#pack ~expand:false ~fill:false ~padding:5)
-  ~active:true () in
- let annotation = GEdit.text ~editable:true ~width:400 ~height:180
-  ~packing:(vbox1#pack ~padding:5) () in
- let table =
-  GPack.table ~rows:3 ~columns:3 ~packing:(vbox1#pack ~padding:5) () in
- let annotation_hints =
-  Array.init 9
-   (function i ->
-     GButton.button ~label:("Hint " ^ string_of_int i)
-      ~packing:(table#attach ~left:(i mod 3) ~top:(i / 3)) ()
-   ) in
- let vbox2 =
-  GPack.vbox ~packing:(hbox1#pack ~expand:false ~fill:false ~padding:5) () in
- let confirmb =
-  GButton.button ~label:"O.K."
-   ~packing:(vbox2#pack ~expand:false ~fill:false ~padding:5) () in
- let abortb =
-  GButton.button ~label:"Abort"
-   ~packing:(vbox2#pack ~expand:false ~fill:false ~padding:5) () in
-object (self)
- method window_to_annotate = window_to_annotate
- method annotation = annotation
- method radio_some = radio_some
- method radio_none = radio_none
- method annotation_hints = annotation_hints
- method output = (output : GMathView.math_view)
- method show () = window_to_annotate#show ()
- initializer
-  (* signal handlers here *)
-  ignore (window_to_annotate#event#connect#delete
-   (fun _ ->
-     window_to_annotate#misc#hide () ;
-     GMain.Grab.remove (window_to_annotate#coerce) ; 
-     true
-   )) ;
-  ignore (confirmb#connect#clicked
-   (fun () ->
-     window_to_annotate#misc#hide () ;
-     save_annotation annotation ;
-     GMain.Grab.remove (window_to_annotate#coerce) ;
-     let new_current_uri = UriManager.annuri_of_uri (get_current_uri ()) in
-      Getter.register new_current_uri
-       (Configuration.annotations_url ^
-         Str.replace_first (Str.regexp "^cic:") ""
-          (UriManager.string_of_uri new_current_uri) ^ ".xml"
-       ) ;
-      let new_current_url = UrlManipulator.annurl_of_url !current_url in
-       current_url := new_current_url ;
-       label#set_text (UriManager.string_of_uri new_current_uri) ;
-       output#load new_current_url
-   )) ;
-  ignore (abortb#connect#clicked
-   (fun () ->
-     window_to_annotate#misc#hide () ;
-     GMain.Grab.remove (window_to_annotate#coerce)
-   ));
-  ignore (radio_some#connect#clicked
-   (fun () -> annotation#misc#set_sensitive true ; radio_some_status := true)) ;
-  ignore (radio_none #connect#clicked
-   (fun () ->
-     annotation#misc#set_sensitive false;
-     radio_some_status := false)
-   )
-end;;
-
-class rendering_window annotation_window output (label : GMisc.label) =
- let window =
-  GWindow.window ~title:"MathML viewer" ~border_width:2 () in
- let vbox =
-  GPack.vbox ~packing:window#add () in
- let _ = vbox#pack ~expand:false ~fill:false ~padding:5 label#coerce in
- let scrolled_window0 =
-  GBin.scrolled_window ~border_width:10
-   ~packing:(vbox#pack ~expand:true ~padding:5) () in
- let _ = scrolled_window0#add output#coerce in
- let hbox =
-  GPack.hbox ~packing:(vbox#pack ~expand:false ~fill:false ~padding:5) () in
- let annotateb =
-  GButton.button ~label:"Annotate"
-   ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
- let settingsb =
-  GButton.button ~label:"Settings"
-   ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
- let button_export_to_postscript =
-  GButton.button ~label:"export_to_postscript"
-  ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
- let closeb =
-  GButton.button ~label:"Close"
-   ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
-object(self)
- method label = label
- method output = (output : GMathView.math_view)
- method show () = window#show ()
- initializer
-  button_export_to_postscript#misc#set_sensitive false ;
-
-  (* signal handlers here *)
-  ignore(output#connect#selection_changed (choose_selection self)) ;
-  ignore(closeb#connect#clicked (fun _ -> GMain.Main.quit ())) ;
-  ignore(annotateb#connect#clicked (annotateb_pressed self annotation_window)) ;
-  let settings_window = new settings_window output scrolled_window0
-   button_export_to_postscript (choose_selection self) in
-  ignore(settingsb#connect#clicked settings_window#show) ;
-  ignore(button_export_to_postscript#connect#clicked (export_to_postscript output)) ;
-  ignore(window#event#connect#delete (fun _ -> GMain.Main.quit () ; true ))
-end;;
-
-(* MAIN *)
-
-let initialize_everything tmpfile url =
- let module U = Unix in
-  let output = GMathView.math_view ~width:400 ~height:380 ()
-   and label = GMisc.label ~text:"???" () in
-    let annotation_window = new annotation_window output label in
-    let rendering_window =
-     new rendering_window annotation_window output label
-    in
-     rendering_window#show () ;
-     rendering_window#label#set_text (UrlManipulator.uri_from_url url) ;
-     rendering_window#output#load tmpfile ;
-     GMain.Main.main ()
-;;
-
-let _ =
- let filename = ref "" in
- let usage_msg =
-   "\nusage: annotationHelper[.opt] file url\n\n List of options:"
- in
-  Arg.parse []
-   (fun x ->
-     if x = "" then raise (Arg.Bad "Empty filename or URL not allowed") ;
-     if !filename = "" then
-      filename := x
-     else if !current_url = "" then
-      current_url := x
-     else
-      begin
-       prerr_string "More than two arguments provided\n" ;
-       Arg.usage [] usage_msg ;
-       exit (-1)
-      end
-   ) usage_msg ;
-   Getter.getter_url :=
-    Netencoding.Url.decode
-     (UrlManipulator.extractParam "param.getterURL" !current_url) ;
-   initialize_everything !filename !current_url
-;;

diff --git a/helm/annotationHelper/cicAnnotationHinter.ml b/helm/annotationHelper/cicAnnotationHinter.ml
deleted file mode 100644 (file)
index a84b1a4..0000000
--- a/helm/annotationHelper/cicAnnotationHinter.ml
+++ /dev/null
@@ -1,381 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 14/06/2000                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
-let deactivate_hints_from annotation_window n =
- let annotation_hints = annotation_window#annotation_hints in
-  for i = n to Array.length annotation_hints - 1 do
-   annotation_hints.(i)#misc#hide ()
-  done
-;;
-
-(* CSC: orripilante *)
-(* the list of the signal ids *)
-let sig_ids = ref ([] : GtkSignal.id list);;
-
-let disconnect_hint annotation_window buttonno =
- match !sig_ids with
-    id::ids ->
-     annotation_window#annotation_hints.(buttonno)#misc#disconnect id ;
-     sig_ids := ids
-  | _ -> assert false
-;;
-
-(* link_hint annotation_window n label hint *)
-(* set the label of the nth hint button of annotation_window to label *)
-(* and the correspondent hint to hint                                 *)
-let link_hint annotation_window buttonno label hint =
- let button = annotation_window#annotation_hints.(buttonno) in
-  sig_ids :=
-   (button#connect#clicked
-    (fun () -> (annotation_window#annotation : GEdit.text)#insert hint)
-   ) :: !sig_ids ;
-  button#misc#show () ;
-  match button#children with
-     [labelw] -> (GMisc.label_cast labelw)#set_text label
-   | _ -> assert false
-;;
-
-exception TooManyHints;;
-
-let link_hints annotation_window a =
- if Array.length a > Array.length annotation_window#annotation_hints then
-  raise TooManyHints ;
- for i = List.length !sig_ids - 1 downto 0 do
-  disconnect_hint annotation_window i
- done ;
- Array.iteri
-  (fun i (label,hint) -> link_hint annotation_window i label hint) a ;
- deactivate_hints_from annotation_window (Array.length a)
-;;
-
-let list_mapi f =
- let rec aux n =
-  function
-     [] -> []
-   | he::tl -> (f n he)::(aux (n + 1) tl)
- in
-  aux 0
-;;
-
-let get_id annterm =
- let module C = Cic in
-  match annterm with
-     C.ARel (id,_,_)
-   | C.AVar (id,_)
-   | C.AMeta (id,_)
-   | C.ASort (id,_)
-   | C.AImplicit id
-   | C.ACast (id,_,_)
-   | C.AProd (id,_,_,_)
-   | C.ALambda (id,_,_,_)
-   | C.ALetIn (id,_,_,_)
-   | C.AAppl (id,_)
-   | C.AConst (id,_,_)
-   | C.AAbst (id,_)
-   | C.AMutInd (id,_,_,_)
-   | C.AMutConstruct (id,_,_,_,_)
-   | C.AMutCase (id,_,_,_,_,_,_)
-   | C.AFix (id,_,_)
-   | C.ACoFix (id,_,_) -> id
-;;
-
-let create_hint_from_term annotation_window annterm =
- let module C = Cic in
-  match annterm with
-     C.ARel (id,_,_) ->
-      link_hints annotation_window
-       [| "Binder", "<attribute name = 'binder' id = '" ^ id ^ "'/>" |]
-   | C.AVar (id,_) ->
-      link_hints annotation_window
-       [| "relURI???", "<attribute name = 'relUri' id = '" ^ id ^ "'/>" |]
-   | C.AMeta (id,_) ->
-      link_hints annotation_window
-       [| "Number", "<attribute name = 'no' id = '" ^ id ^ "'/>" |]
-   | C.ASort (id,_) ->
-      link_hints annotation_window
-       [| "Value", "<attribute name = 'value' id = '" ^ id ^ "'/>" |]
-   | C.AImplicit id ->
-      link_hints annotation_window [| |]
-   | C.ACast (id,bo,ty) ->
-      let boid = get_id bo
-      and tyid = get_id ty in
-       link_hints annotation_window
-        [| "Body", "<node id = '" ^ boid ^ "'/>" ;
-           "Type", "<node id = '" ^ tyid ^ "'/>"
-        |]
-   | C.AProd (id,_,ty,bo) ->
-      let boid = get_id bo
-      and tyid = get_id ty in
-       link_hints annotation_window
-        [| "Binder",
-            "<attribute child = '2' name = 'binder' id = '" ^ id ^ "'/>" ;
-           "Body", "<node id = '" ^ boid ^ "'/>" ;
-           "Type", "<node id = '" ^ tyid ^ "'/>"
-        |]
-   | C.ALambda (id,_,ty,bo) ->
-      let boid = get_id bo
-      and tyid = get_id ty in
-       link_hints annotation_window
-        [| "Binder",
-            "<attribute child = '2' name = 'binder' id = '" ^ id ^ "'/>" ;
-           "Body", "<node id = '" ^ boid ^ "'/>" ;
-           "Type", "<node id = '" ^ tyid ^ "'/>"
-        |]
-   | C.ALetIn (id,_,ty,bo) ->
-      let boid = get_id bo
-      and tyid = get_id ty in
-       link_hints annotation_window
-        [| "Binder",
-            "<attribute child = '2' name = 'binder' id = '" ^ id ^ "'/>" ;
-           "Term", "<node id = '" ^ boid ^ "'/>" ;
-           "Target", "<node id = '" ^ tyid ^ "'/>"
-        |]
-   | C.AAppl (id,args) ->
-      let argsid =
-       Array.mapi
-        (fun i te -> "Argument " ^ string_of_int i, "<node id ='" ^
-          get_id te ^ "'/>")
-        (Array.of_list args)
-      in
-       link_hints annotation_window argsid
-   | C.AConst (id,_,_) ->
-      link_hints annotation_window
-       [| "Uri???", "<attribute name = 'uri' id = '" ^ id ^ "'/>" |]
-   | C.AAbst (id,_) ->
-      link_hints annotation_window
-       [| "Uri???", "<attribute name = 'uri' id = '" ^ id ^ "'/>" |]
-   | C.AMutInd (id,_,_,_) ->
-      link_hints annotation_window
-       [| "Uri???", "<attribute name = 'uri' id = '" ^ id ^ "'/>" |]
-   | C.AMutConstruct (id,_,_,_,_) ->
-      link_hints annotation_window
-       [| "Uri???", "<attribute name = 'uri' id = '" ^ id ^ "'/>" |]
-   | C.AMutCase (id,_,_,_,outty,te,pl) ->
-      let outtyid = get_id outty
-      and teid = get_id te
-      and plid =
-       Array.mapi
-        (fun i te -> "Pattern " ^ string_of_int i, "<node id ='" ^
-          get_id te ^ "'/>")
-        (Array.of_list pl)
-      in
-       link_hints annotation_window
-        (Array.append
-         [| "Uri???", "<attribute name = 'uri' id = '" ^ id ^ "'/>" ;
-            "Case Type", "<node id = '" ^ outtyid ^ "'/>" ;
-            "Term", "<node id = '" ^ teid ^ "'/>" ;
-         |]
-         plid)
-   | C.AFix (id,_,funl) ->
-      let funtylid =
-       Array.mapi
-        (fun i (_,_,ty,_) ->
-          "Type " ^ string_of_int i, "<node id ='" ^
-          get_id ty ^ "'/>")
-        (Array.of_list funl)
-      and funbolid =
-       Array.mapi
-        (fun i (_,_,_,bo) ->
-          "Body " ^ string_of_int i, "<node id ='" ^
-          get_id bo ^ "'/>")
-        (Array.of_list funl)
-      and funnamel =
-       Array.mapi
-        (fun i (_,_,_,_) ->
-          "Name " ^ string_of_int i, "<attribute id ='" ^ id ^
-           "' name = 'name' child='" ^ string_of_int i ^ "'/>")
-        (Array.of_list funl)
-      and funrecindexl =
-       Array.mapi
-        (fun i (_,_,_,_) ->
-          "Recursive Index??? " ^ string_of_int i, "<attribute id = '" ^ id ^
-           "' name = 'recIndex' child='" ^ string_of_int i ^ "'/>")
-        (Array.of_list funl)
-      in
-       link_hints annotation_window
-        (Array.concat
-         [ funtylid ;
-           funbolid ;
-           funnamel ;
-           funrecindexl ;
-           [| "NoFun???", "<attribute name = 'noFun' id = '" ^ id ^ "'/>" |]
-         ]
-        )
-   | C.ACoFix (id,_,funl) ->
-      let funtylid =
-       Array.mapi
-        (fun i (_,ty,_) ->
-          "Type " ^ string_of_int i, "<node id ='" ^
-          get_id ty ^ "'/>")
-        (Array.of_list funl)
-      and funbolid =
-       Array.mapi
-        (fun i (_,_,bo) ->
-          "Body " ^ string_of_int i, "<node id ='" ^
-          get_id bo ^ "'/>")
-        (Array.of_list funl)
-      and funnamel =
-       Array.mapi
-        (fun i (_,_,_) ->
-          "Name " ^ string_of_int i, "<attribute id ='" ^ id ^
-           "' name = 'name' child='" ^ string_of_int i ^ "'/>")
-        (Array.of_list funl)
-      in
-       link_hints annotation_window
-        (Array.concat
-         [ funtylid ;
-           funbolid ;
-           funnamel ;
-           [| "NoFun???", "<attribute name = 'noFun' id = '" ^ id ^ "'/>" |]
-         ]
-        )
-;;
-
-(*CSC: da riscrivere completamente eliminando il paciugo degli array - liste *)
-let create_hint_from_obj annotation_window annobj =
- let module C = Cic in
-  match annobj with
-     C.ADefinition (id,_,bo,ty,_) ->
-      let boid = get_id bo
-      and tyid = get_id ty in
-       link_hints annotation_window
-        [| "Name", "<attribute name = 'name' id = '" ^ id ^ "'/>" ;
-           "Ingredients", "<attribute name = 'params' id = '" ^ id ^ "'/>" ;
-           "Body", "<node id = '" ^ boid ^ "'/>" ;
-           "Type", "<node id = '" ^ tyid ^ "'/>"
-        |]
-   | C.AAxiom (id,_,ty,_) ->
-      let tyid = get_id ty in
-       link_hints annotation_window
-        [| "Name", "<attribute name = 'name' id = '" ^ id ^ "'/>" ;
-           "Ingredients", "<attribute name = 'params' id = '" ^ id ^ "'/>" ;
-           "Type", "<node id = '" ^ tyid ^ "'/>"
-        |]
-   | C.AVariable (id,_,bo,ty) ->
-      let tyid = get_id ty in
-       link_hints annotation_window
-        (match bo with
-            None ->
-             [| "Name", "<attribute name = 'name' id = '" ^ id ^ "'/>" ;
-                "Type", "<node id = '" ^ tyid ^ "'/>"
-             |]
-          | Some bo ->
-             let boid = get_id bo in
-              [| "Name", "<attribute name = 'name' id = '" ^ id ^ "'/>" ;
-                 "Body", "<node id = '" ^ boid ^ "'/>" ;
-                 "Type", "<node id = '" ^ tyid ^ "'/>"
-              |]
-        )
-   | C.ACurrentProof (id,_,conjs,bo,ty) ->
-      let boid = get_id bo
-      and tyid = get_id ty
-      and conjsid = List.map (fun (_,te) -> get_id te) conjs in
-       link_hints annotation_window
-        (Array.append
-          [| "Name", "<attribute name = 'name' id = '" ^ id ^ "'/>" ;
-             "Ingredients", "<attribute name = 'params' id = '" ^ id ^ "'/>" ;
-             "Body", "<node id = '" ^ boid ^ "'/>" ;
-             "Type", "<node id = '" ^ tyid ^ "'/>"
-          |]
-          (Array.mapi
-            (fun i id ->
-              "Conjecture " ^ string_of_int i, "<node id = '" ^ id ^ "'/>"
-            ) (Array.of_list conjsid)
-          )
-        )
-   | C.AInductiveDefinition (id,itl,_,_) ->
-      let itlids =
-       List.map
-        (fun (_,_,arity,cons) ->
-          get_id arity,
-          List.map (fun (_,ty,_) -> get_id ty) cons
-        ) itl
-      in
-       link_hints annotation_window
-        (Array.concat
-          [
-           [| "Ingredients","<attribute name = 'params' id = '" ^ id ^ "'/>" |];
-           (Array.mapi
-             (fun i _ ->
-               "Type Name " ^ string_of_int i,
-               "<attribute name = 'name' child = '" ^ string_of_int i ^
-                "' id = '" ^ id ^ "'/>"
-             ) (Array.of_list itlids)
-           ) ;
-           (Array.mapi
-             (fun i (id,_) ->
-               "Type " ^ string_of_int i, "<node id = '" ^ id ^ "'/>"
-             ) (Array.of_list itlids)
-           ) ;
-           (Array.concat
-            (list_mapi
-             (fun i (_,consid) ->
-              (Array.mapi
-                (fun j _ ->
-                  "Constructor Name " ^ string_of_int i ^ " " ^ string_of_int j,
-                  "<attribute name = 'name' id = '" ^ id ^ 
-                   "' child = '" ^ string_of_int i ^ "' grandchild = '" ^
-                   string_of_int j ^ "'/>"
-                ) (Array.of_list consid)
-              ) ;
-             ) itlids
-            )
-           ) ;
-           (Array.concat
-            (list_mapi
-             (fun i (_,consid) ->
-              (Array.mapi
-                (fun j id ->
-                  "Constructor " ^ string_of_int i ^ " " ^ string_of_int j,
-                  "<node id = '" ^ id ^ "'/>"
-                ) (Array.of_list consid)
-              ) ;
-             ) itlids
-            )
-           )
-          ]
-        )
-;;
-
-exception IdUnknown of string;;
-
-let create_hints annotation_window ids_to_targets xpath =
- try
-  match Hashtbl.find ids_to_targets xpath with
-     Cic.Object annobj -> create_hint_from_obj annotation_window annobj
-   | Cic.Term annterm -> create_hint_from_term annotation_window annterm
- with
-  Not_found -> raise (IdUnknown xpath)
-;;

diff --git a/helm/annotationHelper/cicAnnotationHinter.mli b/helm/annotationHelper/cicAnnotationHinter.mli
deleted file mode 100644 (file)
index c21eefc..0000000
--- a/helm/annotationHelper/cicAnnotationHinter.mli
+++ /dev/null
@@ -1,46 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 29/11/2000                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
-val create_hints :
-  < annotation : GEdit.text;
-    annotation_hints : < children : < as_widget : 'a Gtk.obj; .. > list;
-                         connect : < clicked : (unit -> unit) -> GtkSignal.id;
-                                     .. >;
-                         misc : < disconnect : GtkSignal.id -> 'b;
-                                  hide : unit -> 'c; show : unit -> 'd; .. >;
-                         .. >
-                       array;
-    .. > ->
-  (Cic.id, Cic.anntarget) Hashtbl.t -> string -> unit

diff --git a/helm/cgi/mkcontrol.pl b/helm/cgi/mkcontrol.pl
deleted file mode 100755 (executable)
index e314aa7..0000000
--- a/helm/cgi/mkcontrol.pl
+++ /dev/null
@@ -1,109 +0,0 @@
-#!/usr/bin/perl
-
-# First of all, let's load HELM configuration
-use Env;
-my $HELM_LIB_DIR = $ENV{"HELM_LIB_DIR"};
-# this should be the only fixed constant
-my $DEFAULT_HELM_LIB_DIR = "/projects/helm/on-line/local/lib/helm";
-if (defined ($HELM_LIB_DIR)) {
-   $HELM_LIB_PATH = $HELM_LIB_DIR."/configuration.pl";
-} else {
-   $HELM_LIB_PATH = $DEFAULT_HELM_LIB_DIR."/configuration.pl";
-}
-
-# next require defines: $helm_dir, $html_link, $dtd_dir, $uris_dbm
-require $HELM_LIB_PATH;
-
-use CGI;
-
-$cgi = new CGI($ENV{"REQUEST_URL"});
-$mode = $cgi->param('mode');
-$cicuri = $cgi->param('cicuri');
-$theoryuri = $cgi->param('theoryuri');
-$topurl = $cgi->param('topurl');
-$processorURL = $cgi->param('processorURL');
-$getterURL = $cgi->param('getterURL');
-($mode1,$mode2,$mode3,$mode4,$mode5) = split(/,/, $mode);
-$natural = "checked" if ($mode4 eq "yes");
-$annotations = "checked" if ($mode5 eq "yes");
-if ($mode1 eq "raw") {
-   $format_raw = "selected";
-} else {
-   $format_processed = "selected";
-}
-
-print <<EOT;
-Content-type: text/html
-
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
-"http://www.w3.org/TR/REC-html40/loose.dtd">
-<html>
-<head>
-<title>Control panel</title>
-<script language="JavaScript" src="http://phd.cs.unibo.it/helm/javascript/utils.js">
-<script language="JavaScript" src="http://phd.cs.unibo.it/helm/javascript/utils.js">
-<script language="JavaScript" src="http://phd.cs.unibo.it/helm/javascript/control.js">
-</script>
-</head>
-<body bgcolor="#ffffff" text="#000000">
-<form>
-<table>
-  <tr>
-    <td>
-      <b>Format</b>:
-    </td>
-    <td>
-      <select name="output" onChange="updateOutput(this,document.forms[0].format)">
-        <option value="processed" $format_processed>Processed</option>
-        <option value="raw" $format_raw>Raw</option>
-      </select>
-    </td>
-    <td>
-      <select name="format" onChange="updateFormat(this)">
-EOT
-    if ($mode1 eq "raw") {
-       $tmp = "output_".$mode2;
-       $$tmp="selected";
-       print <<EOT;
-        <option value="cic" $output_cic>CIC</option>
-        <option value="zcic" $output_zcic>CIC GZipped</option>
-EOT
-    } else {
-       $tmp = "output_".$mode3;
-       $$tmp="selected";
-       print <<EOT;
-        <option value="html" $output_html>HTML</option>
-        <option value="mml_cont" $output_mml_cont>MathML Content</option>
-        <option value="mml_pres" $output_mml_pres>MathML Presentation</option>
-EOT
-    }
-print <<EOT;
-      </select>
-    </td>
-    <td>
-     <a target="_top" href="$topurl?mode=$mode&cicuri=$cicuri&theoryuri=$theoryuri&processorURL=$processorURL&getterURL=$getterURL">Reload</a><br>
-     (do it also before attempting to take a link to the current page)
-     <script>
-       top.processorURL = getParam('processorURL');
-       top.getterURL = getParam('getterURL');
-       top.topurl = getParam('topurl');
-       top.mode = getParam('mode');
-       top.cicuri = getParam('cicuri');
-       top.theoryuri = getParam('theoryuri');
-     </script>
-    </td>
-  </tr>
-  <tr>
-    <td colspan="3">
-      <input type="checkbox" $natural onClick="updateNatural(this)">&nbsp;Natural Language</input>
-      <input type="checkbox" $annotations onClick="updateAnnotations(this)">&nbsp;Annotations</input>
-    </td>
-    <td>
-     <a target="_top" href="../html/index.html?mode=$mode&cicuri=$cicuri&theoryuri=$theoryuri&processorURL=$processorURL&getterURL=$getterURL">Configuration panel</a>
-    </td>
-  </tr>
-</table>
-</form>
-</body>
-</html>
-EOT

diff --git a/helm/cgi/mkheader.pl b/helm/cgi/mkheader.pl
deleted file mode 100755 (executable)
index b3db1cf..0000000
--- a/helm/cgi/mkheader.pl
+++ /dev/null
@@ -1,44 +0,0 @@
-#!/usr/bin/perl
-
-# First of all, let's load HELM configuration
-use Env;
-my $HELM_LIB_DIR = $ENV{"HELM_LIB_DIR"};
-# this should be the only fixed constant
-my $DEFAULT_HELM_LIB_DIR = "/projects/helm/on-line/local/lib/helm";
-if (defined ($HELM_LIB_DIR)) {
-   $HELM_LIB_PATH = $HELM_LIB_DIR."/configuration.pl";
-} else {
-   $HELM_LIB_PATH = $DEFAULT_HELM_LIB_DIR."/configuration.pl";
-}
-
-# next require defines: $helm_dir, $html_link, $dtd_dir, $uris_dbm
-require $HELM_LIB_PATH;
-
-use CGI;
-
-$cgi = new CGI($ENV{"REQUEST_URL"});
-$uri = $cgi->param('uri');
-
-print <<EOT;
-Content-type: text/html
-
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
-"http://www.w3.org/TR/REC-html40/loose.dtd">
-<html>
-<head>
-<title>Control panel</title>
-<script language="JavaScript" src="http://phd.cs.unibo.it/helm/javascript/control.js">
-</script>
-</head>
-<body bgcolor="#ffffff" text="#000000">
-<table width="100%">
-<tr>
- <td width="50%">
-  <font size="+3" face="Helvetica,Arial,sans-serif"><b>Index of $uri</b></font>
-  <hr noshade align="left" width="80%">
- </td>
-</tr>
-</table>
-</body>
-</html>
-EOT

diff --git a/helm/cgi/mkindex.pl b/helm/cgi/mkindex.pl
deleted file mode 100755 (executable)
index 955d6d8..0000000
--- a/helm/cgi/mkindex.pl
+++ /dev/null
@@ -1,52 +0,0 @@
-#!/usr/bin/perl
-
-# First of all, let's load HELM configuration
-use Env;
-my $HELM_LIB_DIR = $ENV{"HELM_LIB_DIR"};
-# this should be the only fixed constant
-my $DEFAULT_HELM_LIB_DIR = "/projects/helm/on-line/local/lib/helm";
-if (defined ($HELM_LIB_DIR)) {
-   $HELM_LIB_PATH = $HELM_LIB_DIR."/configuration.pl";
-} else {
-   $HELM_LIB_PATH = $DEFAULT_HELM_LIB_DIR."/configuration.pl";
-}
-
-# next require defines: $helm_dir, $html_link, $dtd_dir, $uris_dbm
-require $HELM_LIB_PATH;
-
-#use URI::Escape;
-use CGI;
-
-$cgi = new CGI($ENV{"REQUEST_URL"});
-
-$mode      = $cgi->param('mode');
-$cicuri    = $cgi->param('cicuri');
-$theoryuri = $cgi->param('theoryuri');
-$processorURL = $cgi->param('processorURL');
-$getterURL = $cgi->param('getterURL');
-$topurl    = $cgi->url();
-
-print <<EOT;
-Content-type: text/html
-
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
-"http://www.w3.org/TR/REC-html40/loose.dtd">
-<html>
-<head>
- <title>Index of $cicuri and $theoryuri</title>
-</head>
-<frameset rows="18%,*" border="0" scrolling="no">
-  <frame src="mkcontrol.pl?topurl=$topurl&mode=$mode&cicuri=$cicuri&theoryuri=$theoryuri&processorURL=$processorURL&getterURL=$getterURL" name="control"/>
-  <frameset cols="50%,50%" border="0" scrolling="no">
-     <frameset rows="11%,*" border="0" scrolling="no">
-        <frame src="mkheader.pl?uri=$theoryuri" name="theoryheader"/>
-        <frame src="mkindextheory.pl?theoryuri=$theoryuri&getterURL=$getterURL" name="theoryresult"/>
-     </frameset>
-     <frameset rows="11%,*" border="0" scrolling="no">
-        <frame src="mkheader.pl?uri=$cicuri" name="cicheader"/>
-        <frame src="mkindexcic.pl?cicuri=$cicuri&getterURL=$getterURL" name="cicresult"/>
-     </frameset>
-  </frameset>
-</frameset>
-</html>
-EOT

diff --git a/helm/cgi/mkindexcic.pl b/helm/cgi/mkindexcic.pl
deleted file mode 100755 (executable)
index a31f5ec..0000000
--- a/helm/cgi/mkindexcic.pl
+++ /dev/null
@@ -1,113 +0,0 @@
-#!/usr/bin/perl
-
-# First of all, let's load HELM configuration
-use Env;
-my $HELM_LIB_DIR = $ENV{"HELM_LIB_DIR"};
-# this should be the only fixed constant
-my $DEFAULT_HELM_LIB_DIR = "/projects/helm/on-line/local/lib/helm";
-if (defined ($HELM_LIB_DIR)) {
-   $HELM_LIB_PATH = $HELM_LIB_DIR."/configuration.pl";
-} else {
-   $HELM_LIB_PATH = $DEFAULT_HELM_LIB_DIR."/configuration.pl";
-}
-
-# next require defines: $helm_dir, $html_link, $dtd_dir, $uris_dbm
-require $HELM_LIB_PATH;
-
-use URI::Escape;
-use LWP::UserAgent;
-use CGI;
-
-my $cgi = new CGI($ENV{"REQUEST_URL"});
-$uri = $cgi->param('cicuri');
-$getterURL = $cgi->param('getterURL');
-$uri =~ s/(.*)\/$/$1/; # Remove a final slash if present
-$uri .= "/"; # Put a final slash
-$myurl = $cgi->url();
-
-$cont = ""; # modified by side-effect by &callback
-my $ua = LWP::UserAgent->new;
-my $request = HTTP::Request->new(GET => $getterURL."ls?format=txt&baseuri=".$uri);
-my $response = $ua->request($request, \&callback);
- 
-@filenames = split(/\n/, $cont);
-
-my $uridotdot = $uri;
-$uridotdot =~ s/(.*)\/.+/$1/;
-if ($uri ne "cic:/") {
- # Let's print the link to the parent directory
- $output = <<EOT;
-<tr>
-<td><img border="0" src="/icons/back.gif" alt="[BACK]"></td>
-<td><a href="$myurl" onClick="top.cicuri='$uridotdot'; refreshReload(); refreshCICHeader(); this.search='?cicuri=$uridotdot&getterURL=$getterURL';" onMouseOver="window.status='$uridotdot'; return true">Parent Directory</a></td>
-</tr>
-EOT
-}
-
-foreach $i (@filenames) {
-   my ($type,$name,$flags) = split(/, /, $i);
-   my ($flagscic, $flagstypes) = split(/,/, $flags);
-   $flagscic =~ s/^<(.*)/$1/;
-   $flagstypes =~ s/(.*)>$/$1/;
-   if ($type eq "dir") {
-      $output .= <<EOT;
-<tr>
-<td><img border="0" src="/icons/folder.gif" alt="[DIR]"></td>
-<td><a href="$myurl" onClick="top.cicuri='$uri$name'; refreshReload(); refreshCICHeader(); this.search='?cicuri=$uri$name&getterURL=$getterURL';" onMouseOver="window.status='$uri$name'; return true">$name</a></td>
-</tr>
-</tr>
-EOT
-   } elsif ($type eq "object") {
-        if ($name =~ /\.(con|var|ind)$/) {
-           # cic file
-            $output .= <<EOT;
-<tr>
-<td><img border="0" src="/icons/generic.red.gif" alt="[DIR]"></td>
-<td><a href="" target="cic" onClick="this.href=makeURL('cic','$uri$name','$flagscic','$flagstypes')" onMouseOver="window.status='$uri$name'; return true">$name</a>
-</tr>
-EOT
-         } else {
-            $output .= <<EOT;
-<tr>
-<td><img border="0" src="/icons/unknown.gif" alt="[DIR]"></td>
-<td>$name</td>
-</tr>
-EOT
-        }
-   } else {
-      $output .= <<EOT;
-<tr>
-<td><img border="0" src="/icons/burst.gif" alt="[DIR]"></td>
-<td>$name</td>
-</tr>
-EOT
-   }
-}
-
-print <<EOT;
-Content-type: text/html
-
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
-"http://www.w3.org/TR/REC-html40/loose.dtd">
-<html>
-<head>
-<title>Index of $uri</title>
-<script language="JavaScript" src="http://phd.cs.unibo.it/helm/javascript/control.js">
-</script>
-</head>
-<body bgcolor="#ffffff" text="#000000">
-<table>
-$output
-</table>
-<hr noshade align="left" width="80%">
-</body>
-</html>
-EOT
-
-#================================
-
-sub callback
-{
- my ($data) = @_;
- $cont .= $data;
-}

diff --git a/helm/cgi/mkindextheory.pl b/helm/cgi/mkindextheory.pl
deleted file mode 100755 (executable)
index 424f688..0000000
--- a/helm/cgi/mkindextheory.pl
+++ /dev/null
@@ -1,112 +0,0 @@
-#!/usr/bin/perl
-
-# First of all, let's load HELM configuration
-use Env;
-my $HELM_LIB_DIR = $ENV{"HELM_LIB_DIR"};
-# this should be the only fixed constant
-my $DEFAULT_HELM_LIB_DIR = "/projects/helm/on-line/local/lib/helm";
-if (defined ($HELM_LIB_DIR)) {
-   $HELM_LIB_PATH = $HELM_LIB_DIR."/configuration.pl";
-} else {
-   $HELM_LIB_PATH = $DEFAULT_HELM_LIB_DIR."/configuration.pl";
-}
-
-# next require defines: $helm_dir, $html_link, $dtd_dir, $uris_dbm
-require $HELM_LIB_PATH;
-
-use URI::Escape;
-use LWP::UserAgent;
-use CGI;
-
-my $cgi = new CGI($ENV{"REQUEST_URL"});
-$uri = $cgi->param('theoryuri');
-$getterURL = $cgi->param('getterURL');
-$uri =~ s/(.*)\/$/$1/; # Remove a final slash if present
-$uri .= "/"; # Put a final slash
-$myurl = $cgi->url();
-
-$cont = ""; # modified by side-effect by &callback
-my $ua = LWP::UserAgent->new;
-my $request = HTTP::Request->new(GET => $getterURL."ls?format=txt&baseuri=".$uri);
-my $response = $ua->request($request, \&callback);
- 
-@filenames = split(/\n/, $cont);
-
-my $uridotdot = $uri;
-$uridotdot =~ s/(.*)\/.+/$1/;
-if ($uri ne "theory:/") {
- # Let's print the link to the parent directory
- $output = <<EOT;
-<tr>
-<td><img border="0" src="/icons/back.gif" alt="[BACK]"></td>
-<td><a href="$myurl" onClick="top.theoryuri='$uridotdot'; refreshReload(); refreshTheoryHeader(); this.search='?theoryuri=$uridotdot&getterURL=$getterURL';" onMouseOver="window.status='$uridotdot'; return true">Parent Directory</a></td>
-</tr>
-EOT
-}
-
-foreach $i (@filenames) {
-   my ($type,$name,$flags) = split(/, /, $i);
-   my ($flagscic, $flagstypes) = split(/,/, $flags);
-   $flagscic =~ s/^<(.*)/$1/;
-   $flagstypes =~ s/(.*)>$/$1/;
-   if ($type eq "dir") {
-      $output .= <<EOT;
-<tr>
-<td><img border="0" src="/icons/folder.gif" alt="[DIR]"></td>
-<td><a href="$myurl" onClick="top.theoryuri='$uri$name'; refreshReload(); refreshTheoryHeader(); this.search='?theoryuri=$uri$name&getterURL=$getterURL';" onMouseOver="window.status='$uri$name'; return true">$name</a></td>
-</tr>
-EOT
-   } elsif ($type eq "object") {
-        if ($name =~ /\.theory$/) {
-           # theory file
-           $output .= <<EOT;
-<tr>
-<td><img border="0" src="/icons/generic.red.gif" alt="[DIR]"></td>
-<td><a href="" target="theory" onClick="this.href=makeURL('theory','$uri$name','$flagscic','$flagstypes')" onMouseOver="window.status='$uri$name'; return true">$name</a>
-</tr>
-EOT
-         } else {
-            $output .= <<EOT;
-<tr>
-<td><img border="0" src="/icons/unknown.gif" alt="[DIR]"></td>
-<td>$name</td>
-</tr>
-EOT
-        }
-   } else {
-      $output .= <<EOT;
-<tr>
-<td><img border="0" src="/icons/burst.gif" alt="[DIR]"></td>
-<td>$name</td>
-</tr>
-EOT
-   }
-}
-
-print <<EOT;
-Content-type: text/html
-
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
-"http://www.w3.org/TR/REC-html40/loose.dtd">
-<html>
-<head>
-<title>Index of $uri</title>
-<script language="JavaScript" src="http://phd.cs.unibo.it/helm/javascript/control.js">
-</script>
-</head>
-<body bgcolor="#ffffff" text="#000000">
-<table>
-$output
-</table>
-<hr noshade align="left" width="80%">
-</body>
-</html>
-EOT
-
-#================================
-
-sub callback
-{
- my ($data) = @_;
- $cont .= $data;
-}

diff --git a/helm/configuration/.cvsignore b/helm/configuration/.cvsignore
deleted file mode 100644 (file)
index d8a7ecb..0000000
--- a/helm/configuration/.cvsignore
+++ /dev/null
@@ -1,3 +0,0 @@
-Makefile configure config.log config.cache config.status
-helm-config
-helm_configuration.spec

diff --git a/helm/configuration/AUTHORS b/helm/configuration/AUTHORS
deleted file mode 100644 (file)
index 0ceb16f..0000000
--- a/helm/configuration/AUTHORS
+++ /dev/null
@@ -1,4 +0,0 @@
-Andrea Asperti <asperti@cs.unibo.it>
-Luca Padovani <luca.padovani@cs.unibo.it>
-Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>
-Irene Schena <schena@cs.unibo.it>

diff --git a/helm/configuration/COPYING b/helm/configuration/COPYING
deleted file mode 100644 (file)
index d60c31a..0000000
--- a/helm/configuration/COPYING
+++ /dev/null
@@ -1,340 +0,0 @@
-                   GNU GENERAL PUBLIC LICENSE
-                      Version 2, June 1991
-
- Copyright (C) 1989, 1991 Free Software Foundation, Inc.
-     59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-                           Preamble
-
-  The licenses for most software are designed to take away your
-freedom to share and change it.  By contrast, the GNU General Public
-License is intended to guarantee your freedom to share and change free
-software--to make sure the software is free for all its users.  This
-General Public License applies to most of the Free Software
-Foundation's software and to any other program whose authors commit to
-using it.  (Some other Free Software Foundation software is covered by
-the GNU Library General Public License instead.)  You can apply it to
-your programs, too.
-
-  When we speak of free software, we are referring to freedom, not
-price.  Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-this service if you wish), that you receive source code or can get it
-if you want it, that you can change the software or use pieces of it
-in new free programs; and that you know you can do these things.
-
-  To protect your rights, we need to make restrictions that forbid
-anyone to deny you these rights or to ask you to surrender the rights.
-These restrictions translate to certain responsibilities for you if you
-distribute copies of the software, or if you modify it.
-
-  For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must give the recipients all the rights that
-you have.  You must make sure that they, too, receive or can get the
-source code.  And you must show them these terms so they know their
-rights.
-
-  We protect your rights with two steps: (1) copyright the software, and
-(2) offer you this license which gives you legal permission to copy,
-distribute and/or modify the software.
-
-  Also, for each author's protection and ours, we want to make certain
-that everyone understands that there is no warranty for this free
-software.  If the software is modified by someone else and passed on, we
-want its recipients to know that what they have is not the original, so
-that any problems introduced by others will not reflect on the original
-authors' reputations.
-
-  Finally, any free program is threatened constantly by software
-patents.  We wish to avoid the danger that redistributors of a free
-program will individually obtain patent licenses, in effect making the
-program proprietary.  To prevent this, we have made it clear that any
-patent must be licensed for everyone's free use or not licensed at all.
-
-  The precise terms and conditions for copying, distribution and
-modification follow.
-\f
-                   GNU GENERAL PUBLIC LICENSE
-   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
-  0. This License applies to any program or other work which contains
-a notice placed by the copyright holder saying it may be distributed
-under the terms of this General Public License.  The "Program", below,
-refers to any such program or work, and a "work based on the Program"
-means either the Program or any derivative work under copyright law:
-that is to say, a work containing the Program or a portion of it,
-either verbatim or with modifications and/or translated into another
-language.  (Hereinafter, translation is included without limitation in
-the term "modification".)  Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not
-covered by this License; they are outside its scope.  The act of
-running the Program is not restricted, and the output from the Program
-is covered only if its contents constitute a work based on the
-Program (independent of having been made by running the Program).
-Whether that is true depends on what the Program does.
-
-  1. You may copy and distribute verbatim copies of the Program's
-source code as you receive it, in any medium, provided that you
-conspicuously and appropriately publish on each copy an appropriate
-copyright notice and disclaimer of warranty; keep intact all the
-notices that refer to this License and to the absence of any warranty;
-and give any other recipients of the Program a copy of this License
-along with the Program.
-
-You may charge a fee for the physical act of transferring a copy, and
-you may at your option offer warranty protection in exchange for a fee.
-
-  2. You may modify your copy or copies of the Program or any portion
-of it, thus forming a work based on the Program, and copy and
-distribute such modifications or work under the terms of Section 1
-above, provided that you also meet all of these conditions:
-
-    a) You must cause the modified files to carry prominent notices
-    stating that you changed the files and the date of any change.
-
-    b) You must cause any work that you distribute or publish, that in
-    whole or in part contains or is derived from the Program or any
-    part thereof, to be licensed as a whole at no charge to all third
-    parties under the terms of this License.
-
-    c) If the modified program normally reads commands interactively
-    when run, you must cause it, when started running for such
-    interactive use in the most ordinary way, to print or display an
-    announcement including an appropriate copyright notice and a
-    notice that there is no warranty (or else, saying that you provide
-    a warranty) and that users may redistribute the program under
-    these conditions, and telling the user how to view a copy of this
-    License.  (Exception: if the Program itself is interactive but
-    does not normally print such an announcement, your work based on
-    the Program is not required to print an announcement.)
-\f
-These requirements apply to the modified work as a whole.  If
-identifiable sections of that work are not derived from the Program,
-and can be reasonably considered independent and separate works in
-themselves, then this License, and its terms, do not apply to those
-sections when you distribute them as separate works.  But when you
-distribute the same sections as part of a whole which is a work based
-on the Program, the distribution of the whole must be on the terms of
-this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest
-your rights to work written entirely by you; rather, the intent is to
-exercise the right to control the distribution of derivative or
-collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program
-with the Program (or with a work based on the Program) on a volume of
-a storage or distribution medium does not bring the other work under
-the scope of this License.
-
-  3. You may copy and distribute the Program (or a work based on it,
-under Section 2) in object code or executable form under the terms of
-Sections 1 and 2 above provided that you also do one of the following:
-
-    a) Accompany it with the complete corresponding machine-readable
-    source code, which must be distributed under the terms of Sections
-    1 and 2 above on a medium customarily used for software interchange; or,
-
-    b) Accompany it with a written offer, valid for at least three
-    years, to give any third party, for a charge no more than your
-    cost of physically performing source distribution, a complete
-    machine-readable copy of the corresponding source code, to be
-    distributed under the terms of Sections 1 and 2 above on a medium
-    customarily used for software interchange; or,
-
-    c) Accompany it with the information you received as to the offer
-    to distribute corresponding source code.  (This alternative is
-    allowed only for noncommercial distribution and only if you
-    received the program in object code or executable form with such
-    an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for
-making modifications to it.  For an executable work, complete source
-code means all the source code for all modules it contains, plus any
-associated interface definition files, plus the scripts used to
-control compilation and installation of the executable.  However, as a
-special exception, the source code distributed need not include
-anything that is normally distributed (in either source or binary
-form) with the major components (compiler, kernel, and so on) of the
-operating system on which the executable runs, unless that component
-itself accompanies the executable.
-
-If distribution of executable or object code is made by offering
-access to copy from a designated place, then offering equivalent
-access to copy the source code from the same place counts as
-distribution of the source code, even though third parties are not
-compelled to copy the source along with the object code.
-\f
-  4. You may not copy, modify, sublicense, or distribute the Program
-except as expressly provided under this License.  Any attempt
-otherwise to copy, modify, sublicense or distribute the Program is
-void, and will automatically terminate your rights under this License.
-However, parties who have received copies, or rights, from you under
-this License will not have their licenses terminated so long as such
-parties remain in full compliance.
-
-  5. You are not required to accept this License, since you have not
-signed it.  However, nothing else grants you permission to modify or
-distribute the Program or its derivative works.  These actions are
-prohibited by law if you do not accept this License.  Therefore, by
-modifying or distributing the Program (or any work based on the
-Program), you indicate your acceptance of this License to do so, and
-all its terms and conditions for copying, distributing or modifying
-the Program or works based on it.
-
-  6. Each time you redistribute the Program (or any work based on the
-Program), the recipient automatically receives a license from the
-original licensor to copy, distribute or modify the Program subject to
-these terms and conditions.  You may not impose any further
-restrictions on the recipients' exercise of the rights granted herein.
-You are not responsible for enforcing compliance by third parties to
-this License.
-
-  7. If, as a consequence of a court judgment or allegation of patent
-infringement or for any other reason (not limited to patent issues),
-conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License.  If you cannot
-distribute so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you
-may not distribute the Program at all.  For example, if a patent
-license would not permit royalty-free redistribution of the Program by
-all those who receive copies directly or indirectly through you, then
-the only way you could satisfy both it and this License would be to
-refrain entirely from distribution of the Program.
-
-If any portion of this section is held invalid or unenforceable under
-any particular circumstance, the balance of the section is intended to
-apply and the section as a whole is intended to apply in other
-circumstances.
-
-It is not the purpose of this section to induce you to infringe any
-patents or other property right claims or to contest validity of any
-such claims; this section has the sole purpose of protecting the
-integrity of the free software distribution system, which is
-implemented by public license practices.  Many people have made
-generous contributions to the wide range of software distributed
-through that system in reliance on consistent application of that
-system; it is up to the author/donor to decide if he or she is willing
-to distribute software through any other system and a licensee cannot
-impose that choice.
-
-This section is intended to make thoroughly clear what is believed to
-be a consequence of the rest of this License.
-\f
-  8. If the distribution and/or use of the Program is restricted in
-certain countries either by patents or by copyrighted interfaces, the
-original copyright holder who places the Program under this License
-may add an explicit geographical distribution limitation excluding
-those countries, so that distribution is permitted only in or among
-countries not thus excluded.  In such case, this License incorporates
-the limitation as if written in the body of this License.
-
-  9. The Free Software Foundation may publish revised and/or new versions
-of the General Public License from time to time.  Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
-Each version is given a distinguishing version number.  If the Program
-specifies a version number of this License which applies to it and "any
-later version", you have the option of following the terms and conditions
-either of that version or of any later version published by the Free
-Software Foundation.  If the Program does not specify a version number of
-this License, you may choose any version ever published by the Free Software
-Foundation.
-
-  10. If you wish to incorporate parts of the Program into other free
-programs whose distribution conditions are different, write to the author
-to ask for permission.  For software which is copyrighted by the Free
-Software Foundation, write to the Free Software Foundation; we sometimes
-make exceptions for this.  Our decision will be guided by the two goals
-of preserving the free status of all derivatives of our free software and
-of promoting the sharing and reuse of software generally.
-
-                           NO WARRANTY
-
-  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
-OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
-TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
-PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
-REPAIR OR CORRECTION.
-
-  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
-INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
-OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
-TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
-YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
-PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGES.
-
-                    END OF TERMS AND CONDITIONS
-\f
-           How to Apply These Terms to Your New Programs
-
-  If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
-  To do so, attach the following notices to the program.  It is safest
-to attach them to the start of each source file to most effectively
-convey the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
-    <one line to give the program's name and a brief idea of what it does.>
-    Copyright (C) <year>  <name of author>
-
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-
-
-Also add information on how to contact you by electronic and paper mail.
-
-If the program is interactive, make it output a short notice like this
-when it starts in an interactive mode:
-
-    Gnomovision version 69, Copyright (C) year  name of author
-    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
-    This is free software, and you are welcome to redistribute it
-    under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License.  Of course, the commands you use may
-be called something other than `show w' and `show c'; they could even be
-mouse-clicks or menu items--whatever suits your program.
-
-You should also get your employer (if you work as a programmer) or your
-school, if any, to sign a "copyright disclaimer" for the program, if
-necessary.  Here is a sample; alter the names:
-
-  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
-  `Gnomovision' (which makes passes at compilers) written by James Hacker.
-
-  <signature of Ty Coon>, 1 April 1989
-  Ty Coon, President of Vice
-
-This General Public License does not permit incorporating your program into
-proprietary programs.  If your program is a subroutine library, you may
-consider it more useful to permit linking proprietary applications with the
-library.  If this is what you want to do, use the GNU Library General
-Public License instead of this License.

diff --git a/helm/configuration/ChangeLog b/helm/configuration/ChangeLog
deleted file mode 100644 (file)
index 20c36b4..0000000
--- a/helm/configuration/ChangeLog
+++ /dev/null
@@ -1 +0,0 @@
-28/12/2000: First alpha release

diff --git a/helm/configuration/Makefile.in b/helm/configuration/Makefile.in
deleted file mode 100644 (file)
index 00c3893..0000000
--- a/helm/configuration/Makefile.in
+++ /dev/null
@@ -1,47 +0,0 @@
-
-HELM_BIN_DIR=@HELM_BIN_DIR@
-HELM_LIB_DIR=@HELM_LIB_DIR@
-HELM_ETC_DIR=@HELM_ETC_DIR@
-HELM_SHARE_DIR=@HELM_SHARE_DIR@
-HELM_VAR_DIR=@HELM_VAR_DIR@
-HELM_DTD_DIR=@HELM_DTD_DIR@
-HELM_STYLE_DIR=@HELM_STYLE_DIR@
-HELM_LIBRARY_DIR=@HELM_LIBRARY_DIR@
-
-all:
-
-install:
-       mkdir -p $(HELM_BIN_DIR)
-       cp helm-config $(HELM_BIN_DIR)
-       mkdir -p $(HELM_LIB_DIR)
-       mkdir -p $(HELM_ETC_DIR)
-       mkdir -p $(HELM_SHARE_DIR)
-       mkdir -p $(HELM_VAR_DIR)
-       chmod 777 $(HELM_VAR_DIR)
-       mkdir -p $(HELM_LIBRARY_DIR)
-       chmod 777 $(HELM_LIBRARY_DIR)
-       mkdir -p $(HELM_DTD_DIR)
-       mkdir -p $(HELM_STYLE_DIR)
-       cp lib/configuration.pl $(HELM_LIB_DIR)
-       cp etc/configuration.dtd etc/configuration.xml etc/helm-dictionary.xml \
-         etc/helm-font-configuration.xml etc/helm-math-engine-configuration.xml\
-         $(HELM_ETC_DIR)
-       cp library/servers.txt library/urls_of_uris.db $(HELM_VAR_DIR)
-       chmod 666 $(HELM_VAR_DIR)/servers.txt \
-         $(HELM_VAR_DIR)/urls_of_uris.db
-
-clean:
-
-distclean:
-       rm -f Makefile configure config.log config.cache config.status \
-        etc/configuration.xml etc/helm-math-engine-configuration.xml \
-        lib/configuration.pl helm-config helm_configuration.spec
-
-dist:  clean
-       rm -rf ../@PACKAGE@-@VERSION@
-       mkdir ../@PACKAGE@-@VERSION@
-       cp -r * ../@PACKAGE@-@VERSION@
-       (cd .. ; tar cvfz @PACKAGE@-@VERSION@.tar.gz @PACKAGE@-@VERSION@ ; rm -rf @PACKAGE@-@VERSION@)
-
-.PHONY: all install distclean
-

diff --git a/helm/configuration/NEWS b/helm/configuration/NEWS
deleted file mode 100644 (file)
index 20c36b4..0000000
--- a/helm/configuration/NEWS
+++ /dev/null
@@ -1 +0,0 @@
-28/12/2000: First alpha release

diff --git a/helm/configuration/README b/helm/configuration/README
deleted file mode 100644 (file)
index 9f6eb35..0000000
--- a/helm/configuration/README
+++ /dev/null
@@ -1,8 +0,0 @@
-NOTE: This is the first alpha release of project HELM.
-
-HELM (Hypertextual Electronic Library of Mathematics) is a project aimed
-at the creation of tools for the development and exploitation of a huge
-distributed library of formal mathematical knowledge. This package holds
-the configuration files shared by all this tools.
-
-For more information see http://www.cs.unibo.it/helm

diff --git a/helm/configuration/config.cache.pkg b/helm/configuration/config.cache.pkg
deleted file mode 100644 (file)
index 434e570..0000000
--- a/helm/configuration/config.cache.pkg
+++ /dev/null
@@ -1,15 +0,0 @@
-# This file is a shell script that caches the results of configure
-# tests run on this system so they can be shared between configure
-# scripts and configure runs.  It is not useful on other systems.
-# If it contains results you don't want to keep, you may remove or edit it.
-#
-# By default, configure uses ./config.cache as the cache file,
-# creating it if it does not exist already.  You can give configure
-# the --cache-file=FILE option to use a different cache file; that is
-# what configure does when it calls configure scripts in
-# subdirectories, so they share the cache.
-# Giving --cache-file=/dev/null disables caching, for debugging configure.
-# config.status only pays attention to the cache file if you give it the
-# --recheck option to rerun configure.
-#
-helm_cv_HELM_VAR_DIR=${helm_cv_HELM_VAR_DIR='/var/local/helm'}

diff --git a/helm/configuration/configure.in b/helm/configuration/configure.in
deleted file mode 100644 (file)
index 03c923e..0000000
--- a/helm/configuration/configure.in
+++ /dev/null
@@ -1,186 +0,0 @@
-AC_INIT(etc/configuration.xml.in)
-
-PACKAGE=helm_configuration
-
-HELM_MAJOR_VERSION=0
-HELM_MINOR_VERSION=0
-HELM_MICRO_VERSION=2
-HELM_VERSION=$HELM_MAJOR_VERSION.$HELM_MINOR_VERSION.$HELM_MICRO_VERSION
-VERSION=$HELM_VERSION
-
-DEFAULT_HELM_VAR_DIR=/var/local/helm
-DEFAULT_HELM_TMP_DIR=/tmp
-
-AC_ARG_ENABLE(
-       defaults,
-       [  --enable-defaults[=ARG] if yes then use defaults (don't ask user) [default=auto]],
-       USE_DEFAULTS=$enableval,
-       USE_DEFAULTS=auto
-)
-
-if test "x$prefix" != xNONE; then
-  RESOLVED_PREFIX=$prefix
-else
-  RESOLVED_PREFIX=$ac_default_prefix
-fi
-
-if test "x$exec_prefix" != xNONE; then
-  RESOLVED_EXEC_PREFIX=$exec_prefix
-else
-  RESOLVED_EXEC_PREFIX=$RESOLVED_PREFIX
-fi
-
-dnl General
-HELM_BIN_DIR=$RESOLVED_EXEC_PREFIX/bin
-HELM_LIB_DIR=$RESOLVED_EXEC_PREFIX/lib/helm
-HELM_ETC_DIR=$RESOLVED_PREFIX/etc/helm
-HELM_SHARE_DIR=$RESOLVED_PREFIX/share/helm
-
-dnl Checking for the variable directory
-if test $USE_DEFAULTS != yes; then
-       echo
-       echo "Now you have to choose a suitable directory for variable files."
-       echo "Normally, this directory would be something like /var/local/helm, you"
-       echo "have to be sure that the directory (and the subdirectories in it)"
-       echo "is world-writable."
-       echo
-       echo -n "[[$DEFAULT_HELM_VAR_DIR]] ? "
-       read HELM_VAR_DIR
-       echo
-       if test x$HELM_VAR_DIR = x; then
-               HELM_VAR_DIR="/var/local/helm"
-       fi
-else
-       HELM_VAR_DIR=$DEFAULT_HELM_VAR_DIR
-fi
-
-AC_MSG_CHECKING(for HELM variable dir)
-AC_MSG_RESULT($HELM_VAR_DIR)
-
-dnl Checking for the /tmp directory
-DEFAULTS=$USE_DEFAULTS
-if test $DEFAULTS = auto; then
-       if test -d $DEFAULT_HELM_TMP_DIR ; then
-               HELM_TMP_DIR=$DEFAULT_HELM_TMP_DIR
-       else
-               DEFAULTS=no
-       fi
-fi
-
-if test $DEFAULTS = no; then
-       echo
-       echo "Please, tell me the name of a directory which can be used to store"
-       echo "temporary files (normally it is something like /tmp)"
-       echo
-       echo -n "[[$DEFAULT_HELM_TMP_DIR]]"
-       read HELM_TMP_DIR
-       echo
-       if test x$HELM_TMP_DIR = x; then
-               HELM_TMP_DIR=$DEFAULT_HELM_TMP_DIR
-       fi
-else
-       HELM_TMP_DIR=$DEFAULT_HELM_TMP_DIR
-fi
-
-AC_MSG_CHECKING(for $HELM_TMP_DIR)
-if test ! -d $HELM_TMP_DIR; then
-       AC_MSG_RESULT(no)
-       AC_MSG_ERROR(please check your installation)
-fi
-AC_MSG_RESULT(ok)
-
-dnl Checks for GtkMathView
-AC_CHECK_PROG(HAVE_GTKMATHVIEW_CONFIG, gtkmathview-config, yes, no)
-if test $HAVE_GTKMATHVIEW_CONFIG = no; then
-   AC_MSG_ERROR(Could not find gtkmathview-config)
-fi
-GTKMATHVIEW_PREFIX=`gtkmathview-config --prefix`
-
-AC_CACHE_CHECK(
-  for dictionary.xml,
-  helm_cv_GTKMATHVIEW_DICTIONARY_PATH,
-  helm_cv_GTKMATHVIEW_DICTIONARY_PATH=$GTKMATHVIEW_PREFIX/share/gtkmathview/dictionary.xml
-  if test ! -f $helm_cv_GTKMATHVIEW_DICTIONARY_PATH; then
-    read helm_cv_GTKMATHVIEW_DICTIONARY_PATH
-  fi
-)
-GTKMATHVIEW_DICTIONARY_PATH=$helm_cv_GTKMATHVIEW_DICTIONARY_PATH
-
-AC_CACHE_CHECK(
-  for font-configuration.xml,
-  helm_cv_GTKMATHVIEW_FONT_CONFIGURATION_PATH,
-  helm_cv_GTKMATHVIEW_FONT_CONFIGURATION_PATH=$GTKMATHVIEW_PREFIX/share/gtkmathview/font-configuration.xml
-  if test ! -f $helm_cv_GTKMATHVIEW_FONT_CONFIGURATION_PATH; then
-    read helm_cv_GTKMATHVIEW_FONT_CONFIGURATION_PATH
-  fi
-)
-GTKMATHVIEW_FONT_CONFIGURATION_PATH=$helm_cv_GTKMATHVIEW_FONT_CONFIGURATION_PATH
-
-AC_CACHE_CHECK(
-  for t1lib configuration file,
-    helm_cv_GTKMATHVIEW_T1_CONFIG_FILE,
-    helm_cv_GTKMATHVIEW_T1_CONFIG_FILE=$GTKMATHVIEW_PREFIX/share/gtkmathview/t1.config
-    if test ! -f $helm_cv_GTKMATHVIEW_T1_CONFIG_FILE; then
-      read GTKMATHVIEW_T1_CONFIG_FILE
-    fi
-)
-GTKMATHVIEW_T1_CONFIG_FILE=$helm_cv_GTKMATHVIEW_T1_CONFIG_FILE
-
-HELM_DICTIONARY_PATH=$HELM_ETC_DIR/helm-dictionary.xml
-HELM_FONT_CONFIGURATION_PATH=$HELM_ETC_DIR/helm-font-configuration.xml
-
-dnl Only for HELM XML configuration
-HELM_LIBRARY_DIR=$HELM_VAR_DIR/library
-HELM_SERVERS_FILE=$HELM_VAR_DIR/servers.txt
-HELM_URIS_DBM=$HELM_VAR_DIR/urls_of_uris.db
-
-dnl CSC: FIXME: getters should download the DTDs
-HELM_DTD_DIR=$HELM_SHARE_DIR/dtd
-HELM_STYLE_DIR=$HELM_SHARE_DIR/style
-
-dnl HELM prefixes
-AC_SUBST(RESOLVED_PREFIX)
-AC_SUBST(RESOLVED_EXEC_PREFIX)
-
-dnl HELM version
-AC_SUBST(PACKAGE)
-AC_SUBST(VERSION)
-
-dnl HELM directories
-AC_SUBST(HELM_BIN_DIR)
-AC_SUBST(HELM_LIB_DIR)
-AC_SUBST(HELM_ETC_DIR)
-AC_SUBST(HELM_SHARE_DIR)
-AC_SUBST(HELM_VAR_DIR)
-AC_SUBST(HELM_TMP_DIR)
-
-dnl HELM download directory
-AC_SUBST(HELM_LIBRARY_DIR)
-
-dnl HELM servers
-AC_SUBST(HELM_SERVERS_FILE)
-
-dnl HELM URIS data-base
-AC_SUBST(HELM_URIS_DBM)
-
-dnl HELM DTDs
-AC_SUBST(HELM_DTD_DIR)
-
-dnl HELM stylesheets
-AC_SUBST(HELM_STYLE_DIR)
-
-dnl HELM customized GtkMathView configuration
-AC_SUBST(HELM_DICTIONARY_PATH)
-AC_SUBST(HELM_FONT_CONFIGURATION_PATH)
-AC_SUBST(GTKMATHVIEW_DICTIONARY_PATH)
-AC_SUBST(GTKMATHVIEW_FONT_CONFIGURATION_PATH)
-AC_SUBST(GTKMATHVIEW_T1_CONFIG_FILE)
-
-AC_OUTPUT(
-[ Makefile
-  helm-config
-  lib/configuration.pl
-  etc/helm-math-engine-configuration.xml
-  etc/configuration.xml
-  helm_configuration.spec
-], chmod +x helm-config)

diff --git a/helm/configuration/etc/.cvsignore b/helm/configuration/etc/.cvsignore
deleted file mode 100644 (file)
index c85a7bd..0000000
--- a/helm/configuration/etc/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-helm-math-engine-configuration.xml configuration.xml

diff --git a/helm/configuration/etc/configuration.dtd b/helm/configuration/etc/configuration.dtd
deleted file mode 100644 (file)
index 8fc5612..0000000
--- a/helm/configuration/etc/configuration.dtd
+++ /dev/null
@@ -1,60 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--*****************************************************************-->
-<!-- DTD FOR HELM CONFIGURATION FILE:                                -->
-<!--  First draft: June 6 2000, Claudio Sacerdoti Coen               -->
-<!--  Last Revision: June 6 2000, Claudio Sacerdoti Coen             -->
-<!--*****************************************************************-->
-
-<!ELEMENT configuration (helm_dir, dtd_dir, style_dir, servers_file, uris_dbm, dest,
-                        indexname, tmp_dir, helm_url_path,
-                         getheader_url, style_url, webeq_url, webeqp_url,
-                         use_webeqp_url, html_link, getter_url, processor_url)>
-
-<!ENTITY % expr '(#PCDATA | value-of)*'>
-
-<!ELEMENT value-of EMPTY>
-<!ATTLIST value-of
-       var NMTOKEN #REQUIRED >
-
-<!ELEMENT helm_dir       %expr;>
-<!ELEMENT dtd_dir        %expr;>
-<!ELEMENT style_dir      %expr;>
-<!ELEMENT servers_file   %expr;>
-<!ELEMENT uris_dbm       %expr;>
-<!ELEMENT dest           %expr;>
-<!ELEMENT indexname      %expr;>
-<!ELEMENT tmp_dir        %expr;>
-<!ELEMENT helm_url_path  %expr;>
-<!ELEMENT getheader_url  %expr;>
-<!ELEMENT style_url      %expr;>
-<!ELEMENT webeq_url      %expr;>
-<!ELEMENT webeqp_url     %expr;>
-<!ELEMENT use_webeqp_url %expr;>
-<!ELEMENT html_link      %expr;>
-<!ELEMENT getter_url     %expr;>
-<!ELEMENT processor_url  %expr;>

diff --git a/helm/configuration/etc/configuration.xml.in b/helm/configuration/etc/configuration.xml.in
deleted file mode 100644 (file)
index db03436..0000000
--- a/helm/configuration/etc/configuration.xml.in
+++ /dev/null
@@ -1,49 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<!DOCTYPE configuration SYSTEM "configuration.dtd">
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<configuration>
- <helm_dir>@HELM_LIBRARY_DIR@</helm_dir>
-
- <dtd_dir>@HELM_DTD_DIR@</dtd_dir>
- <style_dir>@HELM_STYLE_DIR@</style_dir>
-
- <servers_file>@HELM_SERVERS_FILE@</servers_file>
- <uris_dbm>@HELM_URIS_DBM@</uris_dbm>
- <dest><value-of var="helm_dir"/></dest>
- <indexname>index.txt</indexname>
- <tmp_dir>@HELM_TMP_DIR@</tmp_dir>
-
- <helm_url_path>/home/lpadovan/helm/PARSER/examples</helm_url_path>
- <getheader_url>http://localhost/really_very_local/helm/header/getheader.xml</getheader_url>
- <style_url>http://localhost/really_very_local/helm/style/</style_url>
- <webeq_url>http://localhost/cgi-bin/helm/webeq.pl</webeq_url>
- <webeqp_url>http://localhost/cgi-bin/helm/webeqp.pl</webeqp_url>
- <use_webeqp_url>http://localhost/cgi-bin/helm/use_webeqp.pl</use_webeqp_url>
- <html_link><value-of var="getheader_url"/>?baseurl=<value-of var="style_url"/>&amp;stylesheet1=rootcontent.xsl&amp;stylesheet2=content_to_html.xsl&amp;xmluri=</html_link>
- <getter_url>http://localhost:8081/</getter_url>
- <processor_url>http://localhost:8080/helm/servlet/uwobo/</processor_url>
-</configuration>

diff --git a/helm/configuration/etc/helm-dictionary.xml b/helm/configuration/etc/helm-dictionary.xml
deleted file mode 100644 (file)
index 6d1caf7..0000000
--- a/helm/configuration/etc/helm-dictionary.xml
+++ /dev/null
@@ -1,31 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<dictionary>
- <operator name="&Union;" form="infix" stretchy="false" lspace="mediummathspace" rspace="mediummathspace"/>
- <operator name="&Intersection;" form="infix" stretchy="false" lspace="mediummathspace" rspace="mediummathspace"/>
- <operator name="lim" form="prefix" movablelimits="false"/>
-</dictionary>

diff --git a/helm/configuration/etc/helm-font-configuration.xml b/helm/configuration/etc/helm-font-configuration.xml
deleted file mode 100644 (file)
index b5a9f7c..0000000
--- a/helm/configuration/etc/helm-font-configuration.xml
+++ /dev/null
@@ -1,36 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE font-configuration SYSTEM "font-configuration.dtd">
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<font-configuration>
-  <font type="x" mode="math" map="adobe-symbol-forall"
-       x-foundry="adobe" x-family="symbol" x-encoding="fontspecific"
-       />
-
-  <map id="adobe-symbol-forall">
-    <single code="0x2200" index="0x22"/>
-  </map>
-</font-configuration>

diff --git a/helm/configuration/etc/helm-math-engine-configuration.xml.in b/helm/configuration/etc/helm-math-engine-configuration.xml.in
deleted file mode 100644 (file)
index 9683977..0000000
--- a/helm/configuration/etc/helm-math-engine-configuration.xml.in
+++ /dev/null
@@ -1,38 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE math-engine-configuration SYSTEM "math-engine-configuration.dtd">
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<math-engine-configuration>
-  <dictionary-path>@HELM_DICTIONARY_PATH@</dictionary-path>
-  <dictionary-path>@GTKMATHVIEW_DICTIONARY_PATH@</dictionary-path>
-  <font-configuration-path>@HELM_FONT_CONFIGURATION_PATH@</font-configuration-path>
-  <font-configuration-path>@GTKMATHVIEW_FONT_CONFIGURATION_PATH@</font-configuration-path>
-  <t1-config-file>@GTKMATHVIEW_T1_CONFIG_FILE@</t1-config-file>
-  <font-size     size="14pt"/>
-  <color         foreground="black" background="white"/>
-  <link-color    foreground="#32648b" background="white"/>
-  <select-color  foreground="black" background="#87cefa"/>
-</math-engine-configuration>

diff --git a/helm/configuration/helm-config.in b/helm/configuration/helm-config.in
deleted file mode 100644 (file)
index 3b569de..0000000
--- a/helm/configuration/helm-config.in
+++ /dev/null
@@ -1,84 +0,0 @@
-
-usage()
-{
-       cat <<EOF
-Usage: helm-config [OPTIONS]
-Options:
-       [--version]
-       [--prefix]
-       [--exec-prefix]
-       [--bin-dir]
-       [--lib-dir]
-       [--etc-dir]
-       [--share-dir]
-       [--var-dir]
-       [--tmp-dir]
-       [--library-dir]
-       [--servers]
-       [--uris-dbm]
-       [--dtd-dir]
-       [--style-dir]
-EOF
-       exit $1
-}
-
-if test $# -eq 0; then
-       usage 1 1>&2
-fi
-
-while test $# -gt 0; do
-  case "$1" in
-  -*=*) optarg=`echo "$1" | sed 's/[-_a-zA-Z0-9]*=//'` ;;
-  *) optarg= ;;
-  esac
-
-  case $1 in
-    --version)
-      echo @VERSION@
-      ;;
-    --prefix)
-      echo @RESOLVED_PREFIX@
-      ;;
-    --exec-prefix)
-      echo @RESOLVED_EXEC_PREFIX@
-      ;;
-    --bin-dir)
-      echo @HELM_BIN_DIR@
-      ;;
-    --lib-dir)
-      echo @HELM_LIB_DIR@
-      ;;
-    --etc-dir)
-      echo @HELM_ETC_DIR@
-      ;;
-    --share-dir)
-      echo @HELM_SHARE_DIR@
-      ;;
-    --var-dir)
-      echo @HELM_VAR_DIR@
-      ;;
-    --tmp-dir)
-      echo @HELM_TMP_DIR@
-      ;;
-    --library-dir)
-      echo @HELM_LIBRARY_DIR@
-      ;;
-    --servers)
-      echo @HELM_SERVERS_FILE@
-      ;;
-    --uris-dbm)
-      echo @HELM_URIS_DBM@
-      ;;
-    --dtd-dir)
-      echo @HELM_DTD_DIR@
-      ;;
-    --style-dir)
-      echo @HELM_STYLE_DIR@
-      ;;
-    *)
-      usage 1 1>&2
-      ;;
-  esac
-  shift
-done
-

diff --git a/helm/configuration/helm_configuration.spec.in b/helm/configuration/helm_configuration.spec.in
deleted file mode 100644 (file)
index 56695c2..0000000
--- a/helm/configuration/helm_configuration.spec.in
+++ /dev/null
@@ -1,43 +0,0 @@
-Summary: The configuration files shared by all the tools of project HELM
-Name: @PACKAGE@
-Version: @VERSION@
-Release: 1
-Copyright: GPL
-URL: http://www.cs.unibo.it/helm
-Packager: Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>
-Group: Applications/Publishing
-Source: www.cs.unibo.it:/helm/@PACKAGE@-@VERSION@.tar.gz
-%description
-HELM (Hypertextual Electronic Library of Mathematics) is a project aimed
-at the creation of tools for the development and exploitation of a huge
-distributed library of formal mathematical knowledge. This package holds
-the configuration files shared by all this tools.
-For more information see http://www.cs.unibo.it/helm
-
-%prep
-%setup
-
-%build
-cp config.cache.pkg config.cache
-./configure --enable-defaults
-make
-
-%install
-make install
-
-%files
-%doc AUTHORS COPYING ChangeLog NEWS README
-
-/usr/local/bin/helm-config
-/usr/local/lib/helm/configuration.pl
-/usr/local/etc/helm/configuration.dtd
-/usr/local/etc/helm/helm-font-configuration.xml
-/usr/local/etc/helm/configuration.xml
-/usr/local/etc/helm/helm-math-engine-configuration.xml
-/usr/local/etc/helm/helm-dictionary.xml
-%attr(666,root,root) /var/local/helm/servers.txt
-%attr(666,root,root) /var/local/helm/urls_of_uris.db
-
-%dir /var/local/helm/library
-%dir /usr/local/share/helm/dtd
-%dir /usr/local/share/helm/style

diff --git a/helm/configuration/lib/.cvsignore b/helm/configuration/lib/.cvsignore
deleted file mode 100644 (file)
index ff6af68..0000000
--- a/helm/configuration/lib/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-configuration.pl

diff --git a/helm/configuration/lib/configuration.pl.in b/helm/configuration/lib/configuration.pl.in
deleted file mode 100644 (file)
index 6540b80..0000000
--- a/helm/configuration/lib/configuration.pl.in
+++ /dev/null
@@ -1,65 +0,0 @@
-# Copyright (C) 2000, HELM Team.
-# 
-# This file is part of HELM, an Hypertextual, Electronic
-# Library of Mathematics, developed at the Computer Science
-# Department, University of Bologna, Italy.
-# 
-# HELM is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License
-# as published by the Free Software Foundation; either version 2
-# of the License, or (at your option) any later version.
-# 
-# HELM is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# 
-# You should have received a copy of the GNU General Public License
-# along with HELM; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
-# 
-# For details, see the HELM World-Wide-Web page,
-# http://cs.unibo.it/helm/.
-
-use XML::Parser;
-
-use Env;
-my $HELM_CONFIGURATION_DIR = $ENV{"HELM_CONFIGURATION_DIR"};
-my $DEFAULT_HELM_CONFIGURATION_DIR = "@HELM_ETC_DIR@";
-# this should be the only fixed constant
-if (defined ($HELM_CONFIGURATION_DIR)) {
-   $configuration_file = $HELM_CONFIGURATION_DIR."/configuration.xml";
-} else {
-   $configuration_file = $DEFAULT_HELM_CONFIGURATION_DIR."/configuration.xml";
-}
-
-$parser = new XML::Parser(Handlers => {Start => \&handle_start,
-                                       End   => \&handle_end,
-                                       Char  => \&handle_char});
-
-
-$parser->parsefile($configuration_file, ErrorContext => 3);
-
-
-sub handle_start
-{
-   if ($_[1] eq "value-of") {
-      $$varname .= ${$_[3]};
-   } elsif ($_[1] ne "configuration") {
-      $varname = $_[1];
-   }
-}
-
-sub handle_end
-{
-   if ($_[1] ne "value-of" && $_[1] ne "configuration") {
-      # Next line for debugging only:
-      # print "OK: #$_[1]# := #$$varname#\n";
-      $varname = undef;
-   }
-}
-
-sub handle_char
-{
-   $$varname .= $_[1];
-}

diff --git a/helm/configuration/library/servers.txt b/helm/configuration/library/servers.txt
deleted file mode 100644 (file)
index 5a172e4..0000000
--- a/helm/configuration/library/servers.txt
+++ /dev/null
@@ -1 +0,0 @@
-http://www.cs.unibo.it/~sacerdot/examples

diff --git a/helm/configuration/library/urls_of_uris.db b/helm/configuration/library/urls_of_uris.db
deleted file mode 100644 (file)
index 9f01b7a..0000000
Binary files a/helm/configuration/library/urls_of_uris.db and /dev/null differ

diff --git a/helm/dtd/annotations.dtd b/helm/dtd/annotations.dtd
deleted file mode 100644 (file)
index 5185410..0000000
--- a/helm/dtd/annotations.dtd
+++ /dev/null
@@ -1,53 +0,0 @@
-<?xml encoding="ISO-8859-1"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--*****************************************************************-->
-<!-- DTD FOR ANNOTATED OBJECTS:                                      -->
-<!--  First draft: June 2000, Claudio Sacerdoti Coen                 -->
-<!--*****************************************************************-->
-
-<!ENTITY % annotation '(#PCDATA|node|attribute)*'>
-
-<!ELEMENT Annotations (Annotation)*>
-<!ATTLIST Annotations
-          of CDATA #REQUIRED>
-
-<!ELEMENT Annotation %annotation;>
-<!ATTLIST Annotation
-          of CDATA #REQUIRED>
-
-<!-- Annotations: -->
-
-<!ELEMENT attribute EMPTY>
-<!ATTLIST attribute
-          name       NMTOKEN #REQUIRED
-          id         NMTOKEN #REQUIRED
-          child      NMTOKEN #IMPLIED
-          grandchild NMTOKEN #IMPLIED>
-
-<!ELEMENT node EMPTY>
-<!ATTLIST node
-          id NMTOKEN #REQUIRED>

diff --git a/helm/dtd/cic.dtd b/helm/dtd/cic.dtd
deleted file mode 100644 (file)
index 0a90d9e..0000000
--- a/helm/dtd/cic.dtd
+++ /dev/null
@@ -1,221 +0,0 @@
-<?xml encoding="ISO-8859-1"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--*****************************************************************-->
-<!-- DTD FOR CIC OBJECTS:                                            -->
-<!--  First draft: September 1999, Claudio Sacerdoti Coen            -->
-<!--  Revised: February 3 2000, Claudio Sacerdoti Coen, Irene Schena -->
-<!--  Last Revision: April 4 2000, Claudio Sacerdoti Coen            -->
-<!--  Last Revision: June 19 2000, Claudio Sacerdoti Coen            -->
-<!--  Last Revision: June 20 2000, Claudio Sacerdoti Coen            -->
-<!--*****************************************************************-->
-
-<!-- CIC term declaration -->
-
-<!ENTITY % term '(LAMBDA|CAST|PROD|REL|SORT|APPLY|VAR|META|IMPLICIT|CONST|
-                  LETIN|MUTIND|MUTCONSTRUCT|MUTCASE|FIX|COFIX)'>
-
-<!-- CIC sorts -->
-
-<!ENTITY % sort '(Prop|Set|Type)'>
-
-
-<!-- CIC objects: -->
-
-<!ELEMENT Definition (body, type)>
-<!ATTLIST Definition
-          name       CDATA      #REQUIRED
-          params     CDATA      #REQUIRED
-          paramMode  (POSSIBLE) #IMPLIED
-          id         ID         #REQUIRED>
-
-<!ELEMENT Axiom (type)>
-<!ATTLIST Axiom
-          name   CDATA #REQUIRED
-          params CDATA #REQUIRED
-          id     ID    #REQUIRED>
-
-<!ELEMENT CurrentProof (Conjecture*,body,type)>
-<!ATTLIST CurrentProof
-          name CDATA #REQUIRED
-          id   ID    #REQUIRED>
-
-<!ELEMENT InductiveDefinition (InductiveType+)>
-<!ATTLIST InductiveDefinition
-          noParams NMTOKEN #REQUIRED
-          params   CDATA   #REQUIRED
-          id       ID      #REQUIRED>
-
-<!ELEMENT Variable (body?,type)>
-<!ATTLIST Variable
-          name CDATA #REQUIRED
-          id   ID    #REQUIRED>
-
-<!-- Elements used in CIC objects, which are not terms: -->
-
-<!ELEMENT InductiveType (arity,Constructor*)>
-<!ATTLIST InductiveType
-          name      CDATA        #REQUIRED
-          inductive (true|false) #REQUIRED>
-
-<!ELEMENT Conjecture %term;>
-<!ATTLIST Conjecture
-          no NMTOKEN #REQUIRED>
-
-<!ELEMENT Constructor %term;>
-<!ATTLIST Constructor
-          name CDATA #REQUIRED>
-
-<!-- CIC terms: -->
-
-<!ELEMENT LAMBDA (source,target)>
-<!ATTLIST LAMBDA
-          id   ID     #REQUIRED
-          sort %sort; #REQUIRED>
-
-<!ELEMENT LETIN (term,letintarget)>
-<!ATTLIST LETIN
-          id   ID     #REQUIRED
-          sort %sort; #REQUIRED>
-
-<!ELEMENT PROD (source,target)>
-<!ATTLIST PROD
-          id   ID     #REQUIRED
-          type %sort; #REQUIRED>
-
-<!ELEMENT CAST (term,type)>
-<!ATTLIST CAST
-          id   ID     #REQUIRED
-          sort %sort; #REQUIRED>
-
-<!ELEMENT REL EMPTY>
-<!ATTLIST REL
-          value  NMTOKEN #REQUIRED
-          binder CDATA   #REQUIRED
-          id     ID      #REQUIRED
-          sort   %sort;  #REQUIRED>
-
-<!ELEMENT SORT EMPTY>
-<!ATTLIST SORT
-          value CDATA #REQUIRED
-          id    ID    #REQUIRED>
-
-<!ELEMENT APPLY (%term;)+>
-<!ATTLIST APPLY
-          id   ID     #REQUIRED
-          sort %sort; #REQUIRED>
-
-<!ELEMENT VAR EMPTY>
-<!ATTLIST VAR
-          relUri CDATA  #REQUIRED
-          id     ID     #REQUIRED
-          sort   %sort; #REQUIRED>
-
-<!ELEMENT META EMPTY>
-<!ATTLIST META
-          no   NMTOKEN #REQUIRED
-          id   ID      #REQUIRED
-          sort %sort;  #REQUIRED>
-
-<!ELEMENT IMPLICIT EMPTY>
-<!ATTLIST IMPLICIT
-          id ID #REQUIRED>
-
-<!ELEMENT CONST EMPTY>
-<!ATTLIST CONST
-          uri  CDATA  #REQUIRED
-          id   ID     #REQUIRED
-          sort %sort; #REQUIRED>
-
-<!ELEMENT MUTIND EMPTY>
-<!ATTLIST MUTIND
-          uri    CDATA   #REQUIRED
-          noType NMTOKEN #REQUIRED
-          id     ID      #REQUIRED>
-
-<!ELEMENT MUTCONSTRUCT EMPTY>
-<!ATTLIST MUTCONSTRUCT
-          uri      CDATA   #REQUIRED
-          noType   NMTOKEN #REQUIRED
-          noConstr NMTOKEN #REQUIRED
-          id       ID      #REQUIRED
-          sort     %sort;  #REQUIRED>
-
-<!ELEMENT MUTCASE (patternsType,inductiveTerm,pattern*)>
-<!ATTLIST MUTCASE
-          uriType CDATA   #REQUIRED
-          noType  NMTOKEN #REQUIRED
-          id      ID      #REQUIRED
-          sort    %sort;  #REQUIRED>
-
-<!ELEMENT FIX (FixFunction+)>
-<!ATTLIST FIX
-          noFun NMTOKEN #REQUIRED
-          id    ID      #REQUIRED
-          sort  %sort;  #REQUIRED>
-
-<!ELEMENT COFIX (CofixFunction+)>
-<!ATTLIST COFIX
-          noFun NMTOKEN #REQUIRED
-          id    ID      #REQUIRED
-          sort  %sort;  #REQUIRED>
-
-<!-- Elements used in CIC terms: -->
-
-<!ELEMENT FixFunction (type,body)>
-<!ATTLIST FixFunction
-          name     CDATA   #REQUIRED
-          recIndex NMTOKEN #REQUIRED>
-
-<!ELEMENT CofixFunction (type,body)>
-<!ATTLIST CofixFunction
-          name     CDATA   #REQUIRED>
-
-<!-- Sintactic sugar for CIC terms and for CIC objects: -->
-
-<!ELEMENT source %term;>
-
-<!ELEMENT target %term;>
-<!ATTLIST target
-          binder CDATA #IMPLIED>
-
-<!ELEMENT letintarget %term;>
-<!ATTLIST letintarget
-          binder CDATA #REQUIRED>
-
-<!ELEMENT term %term;>
-
-<!ELEMENT type  %term;>
-
-<!ELEMENT arity %term;>
-
-<!ELEMENT patternsType  %term;>
-
-<!ELEMENT inductiveTerm  %term;>
-
-<!ELEMENT pattern  %term;>
-
-<!ELEMENT body  %term;>

diff --git a/helm/dtd/cicobject.dtd b/helm/dtd/cicobject.dtd
deleted file mode 100644 (file)
index 9514103..0000000
--- a/helm/dtd/cicobject.dtd
+++ /dev/null
@@ -1,121 +0,0 @@
-<?xml encoding="ISO-8859-1"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--*****************************************************************-->
-<!-- DTD FOR CIC OBJECTS AT LEVEL OF MATHML CONTENT:                 -->
-<!--  First draft: March 21, Claudio Sacerdoti Coen, Irene Schena    -->
-<!--*****************************************************************-->
-
-<!ENTITY % mathml SYSTEM "mathml2.dtd">
-
-%mathml;
-
-<!ENTITY % term '(annotation|%math.qname;)'>
-
-<!-- Terms: -->
-
-<!ELEMENT annotation (#PCDATA|annotation|%math.qname;)*>
-<!ATTLIST annotation
-          xmlns:m    CDATA #REQUIRED>
-
-<!-- CIC objects: -->
-
-<!ELEMENT Definition (Params,body,type)>
-<!ATTLIST Definition
-          name       CDATA      #REQUIRED
-          xmlns:m    CDATA      #REQUIRED>
-
-<!ELEMENT Axiom (Params,type)>
-<!ATTLIST Axiom
-          name   CDATA #REQUIRED
-          xmlns:m    CDATA      #REQUIRED>
-
-<!ELEMENT CurrentProof (Conjecture*,body,type)>
-<!ATTLIST CurrentProof
-          name CDATA #REQUIRED
-          xmlns:m    CDATA      #REQUIRED>
-
-<!ELEMENT InductiveDefinition (Params,Param*,InductiveType+)>
-<!ATTLIST InductiveDefinition
-          xmlns:m    CDATA      #REQUIRED>
-
-<!ELEMENT Variable (body?,type)>
-<!ATTLIST Variable
-          name CDATA #REQUIRED
-          xmlns:m    CDATA      #REQUIRED>
-
-<!-- Elements used in CIC objects, which are not terms: -->
-
-<!ELEMENT InductiveType (arity,Constructor*)>
-<!ATTLIST InductiveType
-          name      CDATA        #REQUIRED
-          inductive (true|false) #REQUIRED>
-
-<!ELEMENT Conjecture %term;>
-<!ATTLIST Conjecture
-          no NMTOKEN #REQUIRED>
-
-<!ELEMENT Constructor %term;>
-<!ATTLIST Constructor
-          name CDATA #REQUIRED>
-
-<!ELEMENT Param %term;>
-<!ATTLIST Param
-          name CDATA #REQUIRED>
-
-<!ELEMENT Params (#PCDATA)*>
-
-<!-- Sintactic sugar for CIC objects: -->
-
-<!ELEMENT type  %term;>
-
-<!ELEMENT arity %term;>
-
-<!ELEMENT body  %term;>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-

diff --git a/helm/dtd/cictypes.dtd b/helm/dtd/cictypes.dtd
deleted file mode 100644 (file)
index a5b01be..0000000
--- a/helm/dtd/cictypes.dtd
+++ /dev/null
@@ -1,42 +0,0 @@
-<?xml encoding="ISO-8859-1"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--*****************************************************************-->
-<!-- DTD FOR INNER TYPES:                                            -->
-<!--  First draft: November 11 2000, Claudio Sacerdoti Coen         -->
-<!--*****************************************************************-->
-
-<!ENTITY % cicdtd SYSTEM "cic.dtd">
-
-%cicdtd;
-
-<!ELEMENT InnerTypes (TYPE*)>
-<!ATTLIST InnerTypes
-          of  CDATA      #REQUIRED>
-
-<!ELEMENT TYPE (%term;)>
-<!ATTLIST TYPE
-          of  NMTOKEN #REQUIRED>

diff --git a/helm/dtd/isoamsa.ent b/helm/dtd/isoamsa.ent
deleted file mode 100644 (file)
index 5ecf4db..0000000
--- a/helm/dtd/isoamsa.ent
+++ /dev/null
@@ -1,173 +0,0 @@
-
-<!--
-     File isoamsa.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1991
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY angzarr          "&#x0237C;" ><!--angle with down zig-zag arrow -->
-<!ENTITY cirmid           "&#x02AEF;" ><!--circle, mid below -->
-<!ENTITY cudarrl          "&#x02938;" ><!--left, curved, down arrow -->
-<!ENTITY cudarrr          "&#x02935;" ><!--right, curved, down arrow -->
-<!ENTITY cularr           "&#x021B6;" ><!--/curvearrowleft A: left curved arrow -->
-<!ENTITY cularrp          "&#x0293D;" ><!--curved left arrow with plus -->
-<!ENTITY curarr           "&#x021B7;" ><!--/curvearrowright A: rt curved arrow -->
-<!ENTITY curarrm          "&#x0293C;" ><!--curved right arrow with minus -->
-<!ENTITY dArr             "&#x021D3;" ><!--/Downarrow A: down dbl arrow -->
-<!ENTITY Darr             "&#x021A1;" ><!--down two-headed arrow -->
-<!ENTITY ddarr            "&#x021CA;" ><!--/downdownarrows A: two down arrows -->
-<!ENTITY DDotrahd         "&#x02911;" ><!--right arrow with dotted stem -->
-<!ENTITY dfisht           "&#x0297F;" ><!--down fish tail -->
-<!ENTITY dHar             "&#x02965;" ><!--down harpoon-left, down harpoon-right -->
-<!ENTITY dharl            "&#x021C3;" ><!--/downharpoonleft A: dn harpoon-left -->
-<!ENTITY dharr            "&#x021C2;" ><!--/downharpoonright A: down harpoon-rt -->
-<!ENTITY duarr            "&#x021F5;" ><!--down arrow, up arrow -->
-<!ENTITY duhar            "&#x0296F;" ><!--down harp, up harp -->
-<!ENTITY dzigrarr         "&#x021DD;" ><!--right long zig-zag arrow -->
-<!ENTITY erarr            "&#x02971;" ><!--equal, right arrow below -->
-<!ENTITY harr             "&#x02194;" ><!--/leftrightarrow A: l&r arrow -->
-<!ENTITY hArr             "&#x021D4;" ><!--/Leftrightarrow A: l&r dbl arrow -->
-<!ENTITY harrcir          "&#x02948;" ><!--left and right arrow with a circle -->
-<!ENTITY harrw            "&#x021AD;" ><!--/leftrightsquigarrow A: l&r arr-wavy -->
-<!ENTITY hoarr            "&#x021FF;" ><!--horizontal open arrow -->
-<!ENTITY imof             "&#x022B7;" ><!--image of -->
-<!ENTITY lAarr            "&#x021DA;" ><!--/Lleftarrow A: left triple arrow -->
-<!ENTITY Larr             "&#x0219E;" ><!--/twoheadleftarrow A: -->
-<!ENTITY larrbfs          "&#x0291F;" ><!--left arrow-bar, filled square -->
-<!ENTITY larrfs           "&#x0291D;" ><!--left arrow, filled square -->
-<!ENTITY larrhk           "&#x021A9;" ><!--/hookleftarrow A: left arrow-hooked -->
-<!ENTITY larrlp           "&#x021AB;" ><!--/looparrowleft A: left arrow-looped -->
-<!ENTITY larrpl           "&#x02939;" ><!--left arrow, plus -->
-<!ENTITY larrsim          "&#x02973;" ><!--left arrow, similar -->
-<!ENTITY larrtl           "&#x021A2;" ><!--/leftarrowtail A: left arrow-tailed -->
-<!ENTITY latail           "&#x02919;" ><!--left arrow-tail -->
-<!ENTITY lAtail           "&#x0291B;" ><!--left double arrow-tail -->
-<!ENTITY lbarr            "&#x0290C;" ><!--left broken arrow -->
-<!ENTITY lBarr            "&#x0290E;" ><!--left doubly broken arrow -->
-<!ENTITY ldca             "&#x02936;" ><!--left down curved arrow -->
-<!ENTITY ldrdhar          "&#x02967;" ><!--left harpoon-down over right harpoon-down -->
-<!ENTITY ldrushar         "&#x0294B;" ><!--left-down-right-up harpoon -->
-<!ENTITY ldsh             "&#x021B2;" ><!--left down angled arrow -->
-<!ENTITY lfisht           "&#x0297C;" ><!--left fish tail -->
-<!ENTITY lHar             "&#x02962;" ><!--left harpoon-up over left harpoon-down -->
-<!ENTITY lhard            "&#x021BD;" ><!--/leftharpoondown A: l harpoon-down -->
-<!ENTITY lharu            "&#x021BC;" ><!--/leftharpoonup A: left harpoon-up -->
-<!ENTITY lharul           "&#x0296A;" ><!--left harpoon-up over long dash -->
-<!ENTITY llarr            "&#x021C7;" ><!--/leftleftarrows A: two left arrows -->
-<!ENTITY llhard           "&#x0296B;" ><!--left harpoon-down below long dash -->
-<!ENTITY loarr            "&#x021FD;" ><!--left open arrow -->
-<!ENTITY lrarr            "&#x021C6;" ><!--/leftrightarrows A: l arr over r arr -->
-<!ENTITY lrhar            "&#x021CB;" ><!--/leftrightharpoons A: l harp over r -->
-<!ENTITY lrhard           "&#x0296D;" ><!--right harpoon-down below long dash -->
-<!ENTITY lsh              "&#x021B0;" ><!--/Lsh A: -->
-<!ENTITY lurdshar         "&#x0294A;" ><!--left-up-right-down harpoon -->
-<!ENTITY luruhar          "&#x02966;" ><!--left harpoon-up over right harpoon-up -->
-<!ENTITY map              "&#x021A6;" ><!--/mapsto A: -->
-<!ENTITY Map              "&#x02905;" ><!--twoheaded mapsto -->
-<!ENTITY midcir           "&#x02AF0;" ><!--mid, circle below  -->
-<!ENTITY mumap            "&#x022B8;" ><!--/multimap A: -->
-<!ENTITY nearhk           "&#x02924;" ><!--NE arrow-hooked -->
-<!ENTITY nearr            "&#x02197;" ><!--/nearrow A: NE pointing arrow -->
-<!ENTITY neArr            "&#x021D7;" ><!--NE pointing dbl arrow -->
-<!ENTITY nesear           "&#x02928;" ><!--/toea A: NE & SE arrows -->
-<!ENTITY nharr            "&#x021AE;" ><!--/nleftrightarrow A: not l&r arrow -->
-<!ENTITY nhArr            "&#x021CE;" ><!--/nLeftrightarrow A: not l&r dbl arr -->
-<!ENTITY nlarr            "&#x0219A;" ><!--/nleftarrow A: not left arrow -->
-<!ENTITY nlArr            "&#x021CD;" ><!--/nLeftarrow A: not implied by -->
-<!ENTITY nrarr            "&#x0219B;" ><!--/nrightarrow A: not right arrow -->
-<!ENTITY nrArr            "&#x021CF;" ><!--/nRightarrow A: not implies -->
-<!ENTITY nrarrc           "&#x02933;&#x00338;" ><!--not right arrow-curved -->
-<!ENTITY nrarrw           "&#x0219D;&#x00338;" ><!--not right arrow-wavy -->
-<!ENTITY nvHarr           "&#x021CE;" ><!--not, vert, left and right double arrow  -->
-<!ENTITY nvlArr           "&#x021CD;" ><!--not, vert, left double arrow -->
-<!ENTITY nvrArr           "&#x021CF;" ><!--not, vert, right double arrow -->
-<!ENTITY nwarhk           "&#x02923;" ><!--NW arrow-hooked -->
-<!ENTITY nwarr            "&#x02196;" ><!--/nwarrow A: NW pointing arrow -->
-<!ENTITY nwArr            "&#x021D6;" ><!--NW pointing dbl arrow -->
-<!ENTITY nwnear           "&#x02927;" ><!--NW & NE arrows -->
-<!ENTITY olarr            "&#x021BA;" ><!--/circlearrowleft A: l arr in circle -->
-<!ENTITY orarr            "&#x021BB;" ><!--/circlearrowright A: r arr in circle -->
-<!ENTITY origof           "&#x022B6;" ><!--original of -->
-<!ENTITY rAarr            "&#x021DB;" ><!--/Rrightarrow A: right triple arrow -->
-<!ENTITY Rarr             "&#x021A0;" ><!--/twoheadrightarrow A: -->
-<!ENTITY rarrap           "&#x02975;" ><!--approximate, right arrow above -->
-<!ENTITY rarrbfs          "&#x02920;" ><!--right arrow-bar, filled square -->
-<!ENTITY rarrc            "&#x02933;" ><!--right arrow-curved -->
-<!ENTITY rarrfs           "&#x0291E;" ><!--right arrow, filled square -->
-<!ENTITY rarrhk           "&#x021AA;" ><!--/hookrightarrow A: rt arrow-hooked -->
-<!ENTITY rarrlp           "&#x021AC;" ><!--/looparrowright A: rt arrow-looped -->
-<!ENTITY rarrpl           "&#x02945;" ><!--right arrow, plus -->
-<!ENTITY rarrsim          "&#x02974;" ><!--right arrow, similar -->
-<!ENTITY rarrtl           "&#x021A3;" ><!--/rightarrowtail A: rt arrow-tailed -->
-<!ENTITY Rarrtl           "&#x02916;" ><!--right two-headed arrow with tail -->
-<!ENTITY rarrw            "&#x021DD;" ><!--/rightsquigarrow A: rt arrow-wavy -->
-<!ENTITY ratail           "&#x021A3;" ><!--right arrow-tail -->
-<!ENTITY rAtail           "&#x0291C;" ><!--right double arrow-tail -->
-<!ENTITY rbarr            "&#x0290D;" ><!--/bkarow A: right broken arrow -->
-<!ENTITY rBarr            "&#x0290F;" ><!--/dbkarow A: right doubly broken arrow -->
-<!ENTITY RBarr            "&#x02910;" ><!--/drbkarow A: twoheaded right broken arrow -->
-<!ENTITY rdca             "&#x02937;" ><!--right down curved arrow -->
-<!ENTITY rdldhar          "&#x02969;" ><!--right harpoon-down over left harpoon-down -->
-<!ENTITY rdsh             "&#x021B3;" ><!--right down angled arrow -->
-<!ENTITY rfisht           "&#x0297D;" ><!--right fish tail -->
-<!ENTITY rHar             "&#x02964;" ><!--right harpoon-up over right harpoon-down -->
-<!ENTITY rhard            "&#x021C1;" ><!--/rightharpoondown A: rt harpoon-down -->
-<!ENTITY rharu            "&#x021C0;" ><!--/rightharpoonup A: rt harpoon-up -->
-<!ENTITY rharul           "&#x0296C;" ><!--right harpoon-up over long dash -->
-<!ENTITY rlarr            "&#x021C4;" ><!--/rightleftarrows A: r arr over l arr -->
-<!ENTITY rlhar            "&#x021CC;" ><!--/rightleftharpoons A: r harp over l -->
-<!ENTITY roarr            "&#x021FE;" ><!--right open arrow -->
-<!ENTITY rrarr            "&#x021C9;" ><!--/rightrightarrows A: two rt arrows -->
-<!ENTITY rsh              "&#x021B1;" ><!--/Rsh A: -->
-<!ENTITY ruluhar          "&#x02968;" ><!--right harpoon-up over left harpoon-up -->
-<!ENTITY searhk           "&#x02925;" ><!--/hksearow A: SE arrow-hooken -->
-<!ENTITY searr            "&#x02198;" ><!--/searrow A: SE pointing arrow -->
-<!ENTITY seArr            "&#x021D8;" ><!--SE pointing dbl arrow -->
-<!ENTITY seswar           "&#x02929;" ><!--/tosa A: SE & SW arrows -->
-<!ENTITY simrarr          "&#x02972;" ><!--similar, right arrow below -->
-<!ENTITY slarr            "&#x02190;&#x02063;" ><!--short left arrow -->
-<!ENTITY srarr            "&#x02192;&#x02063;" ><!--short right arrow -->
-<!ENTITY swarhk           "&#x02926;" ><!--/hkswarow A: SW arrow-hooked -->
-<!ENTITY swarr            "&#x02199;" ><!--/swarrow A: SW pointing arrow -->
-<!ENTITY swArr            "&#x021D9;" ><!--SW pointing dbl arrow -->
-<!ENTITY swnwar           "&#x0292A;" ><!--SW & NW arrows -->
-<!ENTITY uArr             "&#x021D1;" ><!--/Uparrow A: up dbl arrow -->
-<!ENTITY Uarr             "&#x0219F;" ><!--up two-headed arrow -->
-<!ENTITY Uarrocir         "&#x02949;" ><!--up two-headed arrow above circle -->
-<!ENTITY udarr            "&#x021C5;" ><!--up arrow, down arrow -->
-<!ENTITY udhar            "&#x0296E;" ><!--up harp, down harp -->
-<!ENTITY ufisht           "&#x0297E;" ><!--up fish tail -->
-<!ENTITY uHar             "&#x02963;" ><!--up harpoon-left, up harpoon-right -->
-<!ENTITY uharl            "&#x021BF;" ><!--/upharpoonleft A: up harpoon-left -->
-<!ENTITY uharr            "&#x021BE;" ><!--/upharpoonright /restriction A: up harp-r -->
-<!ENTITY uuarr            "&#x021C8;" ><!--/upuparrows A: two up arrows -->
-<!ENTITY varr             "&#x02195;" ><!--/updownarrow A: up&down arrow -->
-<!ENTITY vArr             "&#x021D5;" ><!--/Updownarrow A: up&down dbl arrow -->
-<!ENTITY xharr            "&#x02194;" ><!--/longleftrightarrow A: long l&r arr -->
-<!ENTITY xhArr            "&#x021D4;" ><!--/Longleftrightarrow A: long l&r dbl arr -->
-<!ENTITY xlarr            "&#x02190;" ><!--/longleftarrow A: long left arrow -->
-<!ENTITY xlArr            "&#x021D0;" ><!--/Longleftarrow A: long l dbl arrow -->
-<!ENTITY xmap             "&#x021A6;" ><!--/longmapsto A: -->
-<!ENTITY xrarr            "&#x02192;" ><!--/longrightarrow A: long right arrow -->
-<!ENTITY xrArr            "&#x021D2;" ><!--/Longrightarrow A: long rt dbl arr -->
-<!ENTITY zigrarr          "&#x021DD;" ><!--right zig-zag arrow -->

diff --git a/helm/dtd/isoamsb.ent b/helm/dtd/isoamsb.ent
deleted file mode 100644 (file)
index 08e646c..0000000
--- a/helm/dtd/isoamsb.ent
+++ /dev/null
@@ -1,146 +0,0 @@
-
-<!--
-     File isoamsb.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1991
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY ac               "&#x0290F;" ><!--most positive -->
-<!ENTITY acE              "&#x029DB;" ><!--most positive, two lines below -->
-<!ENTITY amalg            "&#x02A3F;" ><!--/amalg B: amalgamation or coproduct -->
-<!ENTITY barvee           "&#x022BD;" ><!--bar, vee -->
-<!ENTITY barwed           "&#x022BC;" ><!--/barwedge B: logical and, bar above -->
-<!ENTITY Barwed           "&#x02306;" ><!--/doublebarwedge B: log and, dbl bar above -->
-<!ENTITY bsolb            "&#x029C5;" ><!--reverse solidus in square -->
-<!ENTITY Cap              "&#x022D2;" ><!--/Cap /doublecap B: dbl intersection -->
-<!ENTITY capand           "&#x02A44;" ><!--intersection, and -->
-<!ENTITY capbrcup         "&#x02A49;" ><!--intersection, bar, union -->
-<!ENTITY capcap           "&#x02A4B;" ><!--intersection, intersection, joined -->
-<!ENTITY capcup           "&#x02A47;" ><!--intersection above union -->
-<!ENTITY capdot           "&#x02A40;" ><!--intersection, with dot -->
-<!ENTITY caps             "&#x02229;&#x02063;" ><!--intersection, serifs -->
-<!ENTITY ccaps            "&#x02A4D;" ><!--closed intersection, serifs -->
-<!ENTITY ccups            "&#x02A4C;" ><!--closed union, serifs -->
-<!ENTITY ccupssm          "&#x02A50;" ><!--closed union, serifs, smash product -->
-<!ENTITY coprod           "&#x02210;" ><!--/coprod L: coproduct operator -->
-<!ENTITY Cup              "&#x022D3;" ><!--/Cup /doublecup B: dbl union -->
-<!ENTITY cupbrcap         "&#x02A48;" ><!--union, bar, intersection -->
-<!ENTITY cupcap           "&#x02A46;" ><!--union above intersection -->
-<!ENTITY cupcup           "&#x02A4A;" ><!--union, union, joined -->
-<!ENTITY cupdot           "&#x0228D;" ><!--union, with dot -->
-<!ENTITY cupor            "&#x02A45;" ><!--union, or -->
-<!ENTITY cups             "&#x0222A;&#x02063;" ><!--union, serifs -->
-<!ENTITY cuvee            "&#x022CE;" ><!--/curlyvee B: curly logical or -->
-<!ENTITY cuwed            "&#x022CF;" ><!--/curlywedge B: curly logical and -->
-<!ENTITY dagger           "&#x02020;" ><!--/dagger B: dagger relation -->
-<!ENTITY Dagger           "&#x02021;" ><!--/ddagger B: double dagger relation -->
-<!ENTITY diam             "&#x022C4;" ><!--/diamond B: open diamond -->
-<!ENTITY divonx           "&#x022C7;" ><!--/divideontimes B: division on times -->
-<!ENTITY eplus            "&#x02A71;" ><!--equal, plus -->
-<!ENTITY hercon           "&#x022B9;" ><!--hermitian conjugate matrix -->
-<!ENTITY intcal           "&#x022BA;" ><!--/intercal B: intercal -->
-<!ENTITY iprod            "&#x02A3C;" ><!--/intprod -->
-<!ENTITY loplus           "&#x02A2D;" ><!--plus sign in left half circle -->
-<!ENTITY lotimes          "&#x02A34;" ><!--multiply sign in left half circle  -->
-<!ENTITY lthree           "&#x022CB;" ><!--/leftthreetimes B: -->
-<!ENTITY ltimes           "&#x022C9;" ><!--/ltimes B: times sign, left closed -->
-<!ENTITY midast           "&#x0002A;" ><!--/ast B: asterisk -->
-<!ENTITY minusb           "&#x0229F;" ><!--/boxminus B: minus sign in box -->
-<!ENTITY minusd           "&#x02238;" ><!--/dotminus B: minus sign, dot above -->
-<!ENTITY minusdu          "&#x02A2A;" ><!--minus sign, dot below -->
-<!ENTITY ncap             "&#x02A43;" ><!--bar, intersection -->
-<!ENTITY ncup             "&#x02A42;" ><!--bar, union -->
-<!ENTITY oast             "&#x0229B;" ><!--/circledast B: asterisk in circle -->
-<!ENTITY ocir             "&#x0229A;" ><!--/circledcirc B: small circle in circle -->
-<!ENTITY odash            "&#x0229D;" ><!--/circleddash B: hyphen in circle -->
-<!ENTITY odiv             "&#x02A38;" ><!--divide in circle -->
-<!ENTITY odot             "&#x02299;" ><!--/odot B: middle dot in circle -->
-<!ENTITY odsold           "&#x029BC;" ><!--dot, solidus, dot in circle -->
-<!ENTITY ofcir            "&#x029BF;" ><!--filled circle in circle -->
-<!ENTITY ogt              "&#x029C1;" ><!--greater-than in circle -->
-<!ENTITY ohbar            "&#x029B5;" ><!--circle with horizontal bar -->
-<!ENTITY olcir            "&#x029BE;" ><!--large circle in circle -->
-<!ENTITY olt              "&#x029C0;" ><!--less-than in circle -->
-<!ENTITY omid             "&#x029B6;" ><!--vertical bar in circle -->
-<!ENTITY ominus           "&#x02296;" ><!--/ominus B: minus sign in circle -->
-<!ENTITY opar             "&#x029B7;" ><!--parallel in circle -->
-<!ENTITY operp            "&#x029B9;" ><!--perpendicular in circle -->
-<!ENTITY oplus            "&#x02295;" ><!--/oplus B: plus sign in circle -->
-<!ENTITY osol             "&#x02298;" ><!--/oslash B: solidus in circle -->
-<!ENTITY otimes           "&#x02297;" ><!--/otimes B: multiply sign in circle -->
-<!ENTITY Otimes           "&#x02A37;" ><!--multiply sign in double circle -->
-<!ENTITY otimesas         "&#x02A36;" ><!--multiply sign in circle, circumflex accent -->
-<!ENTITY ovbar            "&#x0233D;" ><!--circle with vertical bar -->
-<!ENTITY plusacir         "&#x02A23;" ><!--plus, circumflex accent above -->
-<!ENTITY plusb            "&#x0229E;" ><!--/boxplus B: plus sign in box -->
-<!ENTITY pluscir          "&#x02A22;" ><!--plus, small circle above -->
-<!ENTITY plusdo           "&#x02214;" ><!--/dotplus B: plus sign, dot above -->
-<!ENTITY plusdu           "&#x02A25;" ><!--plus sign, dot below -->
-<!ENTITY pluse            "&#x02A72;" ><!--plus, equals -->
-<!ENTITY plussim          "&#x02A26;" ><!--plus, similar below -->
-<!ENTITY plustwo          "&#x02A27;" ><!--plus, two; Nim-addition -->
-<!ENTITY prod             "&#x0220F;" ><!--/prod L: product operator -->
-<!ENTITY race             "&#x029DA;" ><!--reverse most positive, line below -->
-<!ENTITY roplus           "&#x02A2E;" ><!--plus sign in right half circle -->
-<!ENTITY rotimes          "&#x02A35;" ><!--multiply sign in right half circle -->
-<!ENTITY rthree           "&#x022CC;" ><!--/rightthreetimes B: -->
-<!ENTITY rtimes           "&#x022CA;" ><!--/rtimes B: times sign, right closed -->
-<!ENTITY sdot             "&#x022C5;" ><!--/cdot B: small middle dot -->
-<!ENTITY sdotb            "&#x022A1;" ><!--/dotsquare /boxdot B: small dot in box -->
-<!ENTITY setmn            "&#x02216;" ><!--/setminus B: reverse solidus -->
-<!ENTITY simplus          "&#x02A24;" ><!--plus, similar above -->
-<!ENTITY smashp           "&#x02A33;" ><!--smash product -->
-<!ENTITY solb             "&#x029C4;" ><!--solidus in square -->
-<!ENTITY sqcap            "&#x02293;" ><!--/sqcap B: square intersection -->
-<!ENTITY sqcaps           "&#x02293;&#x02063;" ><!--square intersection, serifs -->
-<!ENTITY sqcup            "&#x02294;" ><!--/sqcup B: square union -->
-<!ENTITY sqcups           "&#x02294;&#x02063;" ><!--square union, serifs -->
-<!ENTITY ssetmn           "&#x02216;" ><!--/smallsetminus B: sm reverse solidus -->
-<!ENTITY sstarf           "&#x022C6;" ><!--/star B: small star, filled -->
-<!ENTITY subdot           "&#x02ABD;" ><!--subset, with dot -->
-<!ENTITY sum              "&#x02211;" ><!--/sum L: summation operator -->
-<!ENTITY supdot           "&#x02ABE;" ><!--superset, with dot -->
-<!ENTITY timesb           "&#x022A0;" ><!--/boxtimes B: multiply sign in box -->
-<!ENTITY timesbar         "&#x02A31;" ><!--multiply sign, bar below -->
-<!ENTITY timesd           "&#x02A30;" ><!--times, dot -->
-<!ENTITY tridot           "&#x025EC;" ><!--dot in triangle -->
-<!ENTITY triminus         "&#x02A3A;" ><!--minus in triangle -->
-<!ENTITY triplus          "&#x02A39;" ><!--plus in triangle -->
-<!ENTITY trisb            "&#x029CD;" ><!--triangle, serifs at bottom -->
-<!ENTITY tritime          "&#x02A3B;" ><!--multiply in triangle -->
-<!ENTITY uplus            "&#x0228E;" ><!--/uplus B: plus sign in union -->
-<!ENTITY veebar           "&#x022BB;" ><!--/veebar B: logical or, bar below -->
-<!ENTITY wedbar           "&#x02A5F;" ><!--wedge, bar below -->
-<!ENTITY wreath           "&#x02240;" ><!--/wr B: wreath product -->
-<!ENTITY xcap             "&#x022C2;" ><!--/bigcap L: intersection operator -->
-<!ENTITY xcirc            "&#x025EF;" ><!--/bigcirc B: large circle -->
-<!ENTITY xcup             "&#x022C3;" ><!--/bigcup L: union operator -->
-<!ENTITY xdtri            "&#x025BD;" ><!--/bigtriangledown B: big dn tri, open -->
-<!ENTITY xodot            "&#x02299;" ><!--/bigodot L: circle dot operator -->
-<!ENTITY xoplus           "&#x02295;" ><!--/bigoplus L: circle plus operator -->
-<!ENTITY xotime           "&#x02297;" ><!--/bigotimes L: circle times operator -->
-<!ENTITY xsqcup           "&#x02294;" ><!--/bigsqcup L: square union operator -->
-<!ENTITY xuplus           "&#x0228E;" ><!--/biguplus L: -->
-<!ENTITY xutri            "&#x025B3;" ><!--/bigtriangleup B: big up tri, open -->
-<!ENTITY xvee             "&#x022C1;" ><!--/bigvee L: logical and operator -->
-<!ENTITY xwedge           "&#x022C0;" ><!--/bigwedge L: logical or operator -->

diff --git a/helm/dtd/isoamsc.ent b/helm/dtd/isoamsc.ent
deleted file mode 100644 (file)
index cce399c..0000000
--- a/helm/dtd/isoamsc.ent
+++ /dev/null
@@ -1,49 +0,0 @@
-
-<!--
-     File isoamsc.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1991
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY dlcorn           "&#x0231E;" ><!--/llcorner O: lower left corner -->
-<!ENTITY drcorn           "&#x0231F;" ><!--/lrcorner C: lower right corner -->
-<!ENTITY gtlPar           "&#x02995;" ><!--dbl left parenthesis, greater -->
-<!ENTITY langd            "&#x02991;" ><!--left angle, dot -->
-<!ENTITY lbrke            "&#x0298B;" ><!--left bracket, equal -->
-<!ENTITY lbrksld          "&#x0298F;" ><!--left bracket, solidus bottom corner -->
-<!ENTITY lbrkslu          "&#x0298D;" ><!--left bracket, solidus top corner -->
-<!ENTITY lceil            "&#x02308;" ><!--/lceil O: left ceiling -->
-<!ENTITY lfloor           "&#x0230A;" ><!--/lfloor O: left floor -->
-<!ENTITY lmoust           "&#x02998;" ><!--/lmoustache -->
-<!ENTITY lparlt           "&#x02993;" ><!--O: left parenthesis, lt -->
-<!ENTITY ltrPar           "&#x02996;" ><!--dbl right parenthesis, less -->
-<!ENTITY rangd            "&#x02992;" ><!--right angle, dot -->
-<!ENTITY rbrke            "&#x0298C;" ><!--right bracket, equal -->
-<!ENTITY rbrksld          "&#x0298E;" ><!--right bracket, solidus bottom corner -->
-<!ENTITY rbrkslu          "&#x02990;" ><!--right bracket, solidus top corner -->
-<!ENTITY rceil            "&#x02309;" ><!--/rceil C: right ceiling -->
-<!ENTITY rfloor           "&#x0230B;" ><!--/rfloor C: right floor -->
-<!ENTITY rmoust           "&#x02997;" ><!--/rmoustache -->
-<!ENTITY rpargt           "&#x02994;" ><!--C: right paren, gt -->
-<!ENTITY ulcorn           "&#x0231C;" ><!--/ulcorner O: upper left corner -->
-<!ENTITY urcorn           "&#x0231D;" ><!--/urcorner C: upper right corner -->

diff --git a/helm/dtd/isoamsn.ent b/helm/dtd/isoamsn.ent
deleted file mode 100644 (file)
index cddeba0..0000000
--- a/helm/dtd/isoamsn.ent
+++ /dev/null
@@ -1,117 +0,0 @@
-
-<!--
-     File isoamsn.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1991
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY gnap             "&#x02A8A;" ><!--/gnapprox N: greater, not approximate -->
-<!ENTITY gne              "&#x02269;" ><!--/gneq N: greater, not equals -->
-<!ENTITY gnE              "&#x02269;" ><!--/gneqq N: greater, not dbl equals -->
-<!ENTITY gnsim            "&#x022E7;" ><!--/gnsim N: greater, not similar -->
-<!ENTITY gvnE             "&#x02269;&#x00338;" ><!--/gvertneqq N: gt, vert, not dbl eq -->
-<!ENTITY lnap             "&#x02A89;" ><!--/lnapprox N: less, not approximate -->
-<!ENTITY lne              "&#x02268;" ><!--/lneq N: less, not equals -->
-<!ENTITY lnE              "&#x02268;" ><!--/lneqq N: less, not double equals -->
-<!ENTITY lnsim            "&#x022E6;" ><!--/lnsim N: less, not similar -->
-<!ENTITY lvnE             "&#x02268;&#x00338;" ><!--/lvertneqq N: less, vert, not dbl eq -->
-<!ENTITY nap              "&#x02249;" ><!--/napprox N: not approximate -->
-<!ENTITY napE             "&#x02A70;&#x00338;" ><!--not approximately equal or equal to -->
-<!ENTITY napid            "&#x0224B;&#x00338;" ><!--not approximately identical to -->
-<!ENTITY ncong            "&#x02247;" ><!--/ncong N: not congruent with -->
-<!ENTITY ncongdot         "&#x02A6D;&#x00338;" ><!--not congruent, dot -->
-<!ENTITY nequiv           "&#x02262;" ><!--/nequiv N: not identical with -->
-<!ENTITY nge              "&#x02271;&#x020E5;" ><!--/ngeq N: not greater-than-or-equal -->
-<!ENTITY ngE              "&#x02271;" ><!--/ngeqq N: not greater, dbl equals -->
-<!ENTITY nges             "&#x02271;" ><!--/ngeqslant N: not gt-or-eq, slanted -->
-<!ENTITY nGg              "&#x022D9;&#x00338;" ><!--not triple greater than -->
-<!ENTITY ngsim            "&#x02275;" ><!--not greater, similar -->
-<!ENTITY ngt              "&#x0226F;" ><!--/ngtr N: not greater-than -->
-<!ENTITY nGt              "&#x0226B;&#x00338;" ><!--not, vert, much greater than -->
-<!ENTITY nGtv             "&#x0226B;&#x00338;&#x02063;" ><!--not much greater than, variant -->
-<!ENTITY nle              "&#x02270;&#x020E5;" ><!--/nleq N: not less-than-or-equal -->
-<!ENTITY nlE              "&#x02270;" ><!--/nleqq N: not less, dbl equals -->
-<!ENTITY nles             "&#x02270;" ><!--/nleqslant N: not less-or-eq, slant -->
-<!ENTITY nLl              "&#x022D8;&#x00338;" ><!--not triple less than -->
-<!ENTITY nlsim            "&#x02274;" ><!--not less, similar -->
-<!ENTITY nlt              "&#x0226E;" ><!--/nless N: not less-than -->
-<!ENTITY nLt              "&#x0226A;&#x00338;" ><!--not, vert, much less than -->
-<!ENTITY nltri            "&#x022EA;" ><!--/ntriangleleft N: not left triangle -->
-<!ENTITY nltrie           "&#x022EC;" ><!--/ntrianglelefteq N: not l tri, eq -->
-<!ENTITY nLtv             "&#x0226A;&#x00338;&#x02063;" ><!--not much less than, variant -->
-<!ENTITY nmid             "&#x02224;" ><!--/nmid -->
-<!ENTITY npar             "&#x02226;" ><!--/nparallel N: not parallel -->
-<!ENTITY npr              "&#x02280;" ><!--/nprec N: not precedes -->
-<!ENTITY nprcue           "&#x022E0;" ><!--not curly precedes, eq -->
-<!ENTITY npre             "&#x02AAF;&#x00338;" ><!--/npreceq N: not precedes, equals -->
-<!ENTITY nrtri            "&#x022EB;" ><!--/ntriangleright N: not rt triangle -->
-<!ENTITY nrtrie           "&#x022ED;" ><!--/ntrianglerighteq N: not r tri, eq -->
-<!ENTITY nsc              "&#x02281;" ><!--/nsucc N: not succeeds -->
-<!ENTITY nsccue           "&#x022E1;" ><!--not succeeds, curly eq -->
-<!ENTITY nsce             "&#x02AB0;&#x00338;" ><!--/nsucceq N: not succeeds, equals -->
-<!ENTITY nsim             "&#x02241;" ><!--/nsim N: not similar -->
-<!ENTITY nsime            "&#x02244;" ><!--/nsimeq N: not similar, equals -->
-<!ENTITY nsmid            "&#x02224;&#x02063;" ><!--/nshortmid -->
-<!ENTITY nspar            "&#x02226;&#x02063;" ><!--/nshortparallel N: not short par -->
-<!ENTITY nsqsube          "&#x022E2;" ><!--not, square subset, equals -->
-<!ENTITY nsqsupe          "&#x022E3;" ><!--not, square superset, equals -->
-<!ENTITY nsub             "&#x02284;" ><!--not subset -->
-<!ENTITY nsube            "&#x02288;" ><!--/nsubseteq N: not subset, equals -->
-<!ENTITY nsubE            "&#x02288;" ><!--/nsubseteqq N: not subset, dbl eq -->
-<!ENTITY nsup             "&#x02285;" ><!--not superset -->
-<!ENTITY nsupe            "&#x02289;" ><!--/nsupseteq N: not superset, equals -->
-<!ENTITY nsupE            "&#x02289;" ><!--/nsupseteqq N: not superset, dbl eq -->
-<!ENTITY ntgl             "&#x02279;" ><!--not greater, less -->
-<!ENTITY ntlg             "&#x02278;" ><!--not less, greater -->
-<!ENTITY nvap             "&#x02249;&#x00338;" ><!--not, vert, approximate -->
-<!ENTITY nvdash           "&#x022AC;" ><!--/nvdash N: not vertical, dash -->
-<!ENTITY nvDash           "&#x022AD;" ><!--/nvDash N: not vertical, dbl dash -->
-<!ENTITY nVdash           "&#x022AE;" ><!--/nVdash N: not dbl vertical, dash -->
-<!ENTITY nVDash           "&#x022AF;" ><!--/nVDash N: not dbl vert, dbl dash -->
-<!ENTITY nvge             "&#x02271;" ><!--not, vert, greater-than-or-equal -->
-<!ENTITY nvgt             "&#x0226F;" ><!--not, vert, greater-than -->
-<!ENTITY nvle             "&#x02270;" ><!--not, vert, less-than-or-equal -->
-<!ENTITY nvlt             "&#x0226E;" ><!--not, vert, less-than -->
-<!ENTITY nvltrie          "&#x022EC;&#x00338;" ><!--not, vert, left triangle, equals -->
-<!ENTITY nvrtrie          "&#x022ED;&#x00338;" ><!--not, vert, right triangle, equals -->
-<!ENTITY nvsim            "&#x02241;&#x00338;" ><!--not, vert, similar -->
-<!ENTITY parsim           "&#x02AF3;" ><!--parallel, similar -->
-<!ENTITY prnap            "&#x022E8;" ><!--/precnapprox N: precedes, not approx -->
-<!ENTITY prnE             "&#x02AB5;" ><!--/precneqq N: precedes, not dbl eq -->
-<!ENTITY prnsim           "&#x022E8;" ><!--/precnsim N: precedes, not similar -->
-<!ENTITY rnmid            "&#x02AEE;" ><!--reverse /nmid -->
-<!ENTITY scnap            "&#x022E9;" ><!--/succnapprox N: succeeds, not approx -->
-<!ENTITY scnE             "&#x02AB6;" ><!--/succneqq N: succeeds, not dbl eq -->
-<!ENTITY scnsim           "&#x022E9;" ><!--/succnsim N: succeeds, not similar -->
-<!ENTITY simne            "&#x02246;" ><!--similar, not equals -->
-<!ENTITY solbar           "&#x0233F;" ><!--solidus, bar through -->
-<!ENTITY subne            "&#x0228A;" ><!--/subsetneq N: subset, not equals -->
-<!ENTITY subnE            "&#x0228A;" ><!--/subsetneqq N: subset, not dbl eq -->
-<!ENTITY supne            "&#x0228B;" ><!--/supsetneq N: superset, not equals -->
-<!ENTITY supnE            "&#x0228B;" ><!--/supsetneqq N: superset, not dbl eq -->
-<!ENTITY vnsub            "&#x02284;" ><!--/nsubset N: not subset, var -->
-<!ENTITY vnsup            "&#x02285;" ><!--/nsupset N: not superset, var -->
-<!ENTITY vsubne           "&#x0228A;&#x02063;" ><!--/varsubsetneq N: subset, not eq, var -->
-<!ENTITY vsubnE           "&#x0228A;&#x02063;" ><!--/varsubsetneqq N: subset not dbl eq, var -->
-<!ENTITY vsupne           "&#x0228B;&#x02063;" ><!--/varsupsetneq N: superset, not eq, var -->
-<!ENTITY vsupnE           "&#x0228B;&#x02063;" ><!--/varsupsetneqq N: super not dbl eq, var -->

diff --git a/helm/dtd/isoamso.ent b/helm/dtd/isoamso.ent
deleted file mode 100644 (file)
index 8ac4bdb..0000000
--- a/helm/dtd/isoamso.ent
+++ /dev/null
@@ -1,77 +0,0 @@
-
-<!--
-     File isoamso.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1991
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY ang              "&#x02220;" ><!--/angle - angle -->
-<!ENTITY ange             "&#x029A4;" ><!--angle, equal -->
-<!ENTITY angmsd           "&#x02221;" ><!--/measuredangle - angle-measured -->
-<!ENTITY angmsdaa         "&#x029A8;" ><!--angle-measured, arrow, up, right -->
-<!ENTITY angmsdab         "&#x029A9;" ><!--angle-measured, arrow, up, left -->
-<!ENTITY angmsdac         "&#x029AA;" ><!--angle-measured, arrow, down, right -->
-<!ENTITY angmsdad         "&#x029AB;" ><!--angle-measured, arrow, down, left -->
-<!ENTITY angmsdae         "&#x029AC;" ><!--angle-measured, arrow, right, up -->
-<!ENTITY angmsdaf         "&#x029AD;" ><!--angle-measured, arrow, left, up -->
-<!ENTITY angmsdag         "&#x029AE;" ><!--angle-measured, arrow, right, down -->
-<!ENTITY angmsdah         "&#x029AF;" ><!--angle-measured, arrow, left, down -->
-<!ENTITY angrtvb          "&#x0299D;&#x02063;" ><!--right angle-measured -->
-<!ENTITY angrtvbd         "&#x0299D;" ><!--right angle-measured, dot -->
-<!ENTITY bbrk             "&#x023B5;" ><!--bottom square bracket -->
-<!ENTITY bemptyv          "&#x029B0;" ><!--reversed circle, slash -->
-<!ENTITY beth             "&#x02136;" ><!--/beth - beth, Hebrew -->
-<!ENTITY boxbox           "&#x029C9;" ><!--two joined squares -->
-<!ENTITY bprime           "&#x02035;" ><!--/backprime - reverse prime -->
-<!ENTITY bsemi            "&#x0204F;" ><!--reverse semi-colon -->
-<!ENTITY cemptyv          "&#x029B2;" ><!--circle, slash, small circle above -->
-<!ENTITY cirE             "&#x029C3;" ><!--circle, two horizontal stroked to the right -->
-<!ENTITY cirscir          "&#x029C2;" ><!--circle, small circle to the right -->
-<!ENTITY comp             "&#x02201;" ><!--/complement - complement sign -->
-<!ENTITY daleth           "&#x02138;" ><!--/daleth - daleth, Hebrew -->
-<!ENTITY demptyv          "&#x029B1;" ><!--circle, slash, bar above -->
-<!ENTITY ell              "&#x02113;" ><!--/ell - cursive small l -->
-<!ENTITY empty            "&#x02205;&#x02063;" ><!--/emptyset - zero, slash -->
-<!ENTITY emptyv           "&#x02205;" ><!--/varnothing - circle, slash -->
-<!ENTITY gimel            "&#x02137;" ><!--/gimel - gimel, Hebrew -->
-<!ENTITY iiota            "&#x02129;" ><!--inverted iota -->
-<!ENTITY image            "&#x02111;" ><!--/Im - imaginary   -->
-<!ENTITY imath            "&#x00131;" ><!--/imath - small i, no dot -->
-<!ENTITY jmath            "&#x0006A;&#x02063;" ><!--/jmath - small j, no dot -->
-<!ENTITY laemptyv         "&#x029B4;" ><!--circle, slash, left arrow above -->
-<!ENTITY lltri            "&#x025FA;" ><!--lower left triangle -->
-<!ENTITY lrtri            "&#x022BF;" ><!--lower right triangle -->
-<!ENTITY mho              "&#x02127;" ><!--/mho - conductance -->
-<!ENTITY nang             "&#x02220;&#x00338;" ><!--not, vert, angle -->
-<!ENTITY nexist           "&#x02204;" ><!--/nexists - negated exists -->
-<!ENTITY oS               "&#x024C8;" ><!--/circledS - capital S in circle -->
-<!ENTITY plank            "&#x0210F;" ><!--/hbar - Planck's over 2pi -->
-<!ENTITY plankv           "&#x0210F;" ><!--/hslash - variant Planck's over 2pi -->
-<!ENTITY raemptyv         "&#x029B3;" ><!--circle, slash, right arrow above -->
-<!ENTITY range            "&#x029A5;" ><!--reverse angle, equal -->
-<!ENTITY real             "&#x0211C;" ><!--/Re - real -->
-<!ENTITY tbrk             "&#x023B4;" ><!--top square bracket -->
-<!ENTITY ultri            "&#x025F8;" ><!--upper left triangle -->
-<!ENTITY urtri            "&#x025F9;" ><!--upper right triangle -->
-<!ENTITY vzigzag          "&#x0299A;" ><!--vertical zig-zag line -->
-<!ENTITY weierp           "&#x02118;" ><!--/wp - Weierstrass p -->

diff --git a/helm/dtd/isoamsr.ent b/helm/dtd/isoamsr.ent
deleted file mode 100644 (file)
index 7fec582..0000000
--- a/helm/dtd/isoamsr.ent
+++ /dev/null
@@ -1,205 +0,0 @@
-
-<!--
-     File isoamsr.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1991
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY ape              "&#x0224A;" ><!--/approxeq R: approximate, equals -->
-<!ENTITY apE              "&#x0224A;" ><!--approximately equal or equal to -->
-<!ENTITY apid             "&#x0224B;" ><!--approximately identical to -->
-<!ENTITY asymp            "&#x0224D;" ><!--/asymp R: asymptotically equal to -->
-<!ENTITY Barv             "&#x02AE7;" ><!--vert, dbl bar (over) -->
-<!ENTITY bcong            "&#x0224C;" ><!--/backcong R: reverse congruent -->
-<!ENTITY bepsi            "&#x0213C;" ><!--/backepsilon R: such that -->
-<!ENTITY bowtie           "&#x022C8;" ><!--/bowtie R: -->
-<!ENTITY bsim             "&#x0223D;" ><!--/backsim R: reverse similar -->
-<!ENTITY bsime            "&#x022CD;" ><!--/backsimeq R: reverse similar, eq -->
-<!ENTITY bsolhsub         "&#x0005C;&#x02282;" ><!--reverse solidus, subset -->
-<!ENTITY bump             "&#x0224E;" ><!--/Bumpeq R: bumpy equals -->
-<!ENTITY bumpe            "&#x0224F;" ><!--/bumpeq R: bumpy equals, equals -->
-<!ENTITY bumpE            "&#x02AAE;" ><!--bump, equals -->
-<!ENTITY cire             "&#x02257;" ><!--/circeq R: circle, equals -->
-<!ENTITY Colon            "&#x02237;" ><!--/Colon, two colons -->
-<!ENTITY colone           "&#x02254;" ><!--/coloneq R: colon, equals -->
-<!ENTITY Colone           "&#x02A74;" ><!--double colon, equals -->
-<!ENTITY congdot          "&#x02A6D;" ><!--congruent, dot -->
-<!ENTITY csub             "&#x02ACF;" ><!--subset, closed -->
-<!ENTITY csube            "&#x02AD1;" ><!--subset, closed, equals -->
-<!ENTITY csup             "&#x02AD0;" ><!--superset, closed -->
-<!ENTITY csupe            "&#x02AD2;" ><!--superset, closed, equals -->
-<!ENTITY cuepr            "&#x022DE;" ><!--/curlyeqprec R: curly eq, precedes -->
-<!ENTITY cuesc            "&#x022DF;" ><!--/curlyeqsucc R: curly eq, succeeds -->
-<!ENTITY dashv            "&#x022A3;" ><!--/dashv R: dash, vertical -->
-<!ENTITY Dashv            "&#x02AE4;" ><!--dbl dash, vertical -->
-<!ENTITY easter           "&#x0225B;" ><!--equal, asterisk above -->
-<!ENTITY ecir             "&#x02256;" ><!--/eqcirc R: circle on equals sign -->
-<!ENTITY ecolon           "&#x02255;" ><!--/eqcolon R: equals, colon -->
-<!ENTITY eDDot            "&#x02A77;" ><!--/ddotseq R: equal with four dots -->
-<!ENTITY eDot             "&#x02251;" ><!--/doteqdot /Doteq R: eq, even dots -->
-<!ENTITY efDot            "&#x02252;" ><!--/fallingdotseq R: eq, falling dots -->
-<!ENTITY eg               "&#x02A9A;" ><!--equal-or-greater -->
-<!ENTITY egs              "&#x022DD;" ><!--/eqslantgtr R: equal-or-gtr, slanted -->
-<!ENTITY egsdot           "&#x02A98;" ><!--equal-or-greater, slanted, dot inside -->
-<!ENTITY el               "&#x02A99;" ><!--equal-or-less -->
-<!ENTITY els              "&#x022DC;" ><!--/eqslantless R: eq-or-less, slanted -->
-<!ENTITY elsdot           "&#x02A97;" ><!--equal-or-less, slanted, dot inside -->
-<!ENTITY equest           "&#x0225F;" ><!--/questeq R: equal with questionmark -->
-<!ENTITY equivDD          "&#x02A78;" ><!--equivalent, four dots above -->
-<!ENTITY erDot            "&#x02253;" ><!--/risingdotseq R: eq, rising dots -->
-<!ENTITY esdot            "&#x02250;" ><!--/doteq R: equals, single dot above -->
-<!ENTITY esim             "&#x02242;" ><!--/esim R: equals, similar -->
-<!ENTITY Esim             "&#x02A73;" ><!--equal, similar -->
-<!ENTITY fork             "&#x022D4;" ><!--/pitchfork R: pitchfork -->
-<!ENTITY forkv            "&#x02AD9;" ><!--fork, variant -->
-<!ENTITY frown            "&#x02322;" ><!--/frown R: down curve -->
-<!ENTITY gap              "&#x02273;" ><!--/gtrapprox R: greater, approximate -->
-<!ENTITY gE               "&#x02267;" ><!--/geqq R: greater, double equals -->
-<!ENTITY gel              "&#x022DB;" ><!--/gtreqless R: greater, equals, less -->
-<!ENTITY gEl              "&#x022DB;" ><!--/gtreqqless R: gt, dbl equals, less -->
-<!ENTITY ges              "&#x02A7E;" ><!--/geqslant R: gt-or-equal, slanted -->
-<!ENTITY gescc            "&#x02AA9;" ><!--greater than, closed by curve, equal, slanted -->
-<!ENTITY gesdot           "&#x02A80;" ><!--greater-than-or-equal, slanted, dot inside -->
-<!ENTITY gesdoto          "&#x02A82;" ><!--greater-than-or-equal, slanted, dot above -->
-<!ENTITY gesdotol         "&#x02A84;" ><!--greater-than-or-equal, slanted, dot above left -->
-<!ENTITY gesl             "&#x022DB;&#x02063;" ><!--greater, equal, slanted, less -->
-<!ENTITY gesles           "&#x02A94;" ><!--greater, equal, slanted, less, equal, slanted -->
-<!ENTITY Gg               "&#x022D9;" ><!--/ggg /Gg /gggtr R: triple gtr-than -->
-<!ENTITY gl               "&#x02277;" ><!--/gtrless R: greater, less -->
-<!ENTITY gla              "&#x02AA5;" ><!--greater, less, apart -->
-<!ENTITY glE              "&#x02A92;" ><!--greater, less, equal -->
-<!ENTITY glj              "&#x02AA4;" ><!--greater, less, overlapping -->
-<!ENTITY gsim             "&#x02273;" ><!--/gtrsim R: greater, similar -->
-<!ENTITY gsime            "&#x02A8E;" ><!--greater, similar, equal -->
-<!ENTITY gsiml            "&#x02A90;" ><!--greater, similar, less -->
-<!ENTITY Gt               "&#x0226B;" ><!--/gg R: dbl greater-than sign -->
-<!ENTITY gtcc             "&#x02AA7;" ><!--greater than, closed by curve -->
-<!ENTITY gtcir            "&#x02A7A;" ><!--greater than, circle inside -->
-<!ENTITY gtdot            "&#x022D7;" ><!--/gtrdot R: greater than, with dot -->
-<!ENTITY gtquest          "&#x02A7C;" ><!--greater than, questionmark above -->
-<!ENTITY gtrarr           "&#x02978;" ><!--greater than, right arrow -->
-<!ENTITY homtht           "&#x0223B;" ><!--homothetic -->
-<!ENTITY lap              "&#x02272;" ><!--/lessapprox R: less, approximate -->
-<!ENTITY lat              "&#x02AAB;" ><!--larger than -->
-<!ENTITY late             "&#x02AAD;" ><!--larger than or equal -->
-<!ENTITY lates            "&#x02AAD;&#x02063;" ><!--larger than or equal, slanted -->
-<!ENTITY lE               "&#x02266;" ><!--/leqq R: less, double equals -->
-<!ENTITY leg              "&#x022DA;" ><!--/lesseqgtr R: less, eq, greater -->
-<!ENTITY lEg              "&#x022DA;" ><!--/lesseqqgtr R: less, dbl eq, greater -->
-<!ENTITY les              "&#x02A7D;" ><!--/leqslant R: less-than-or-eq, slant -->
-<!ENTITY lescc            "&#x02AA8;" ><!--less than, closed by curve, equal, slanted -->
-<!ENTITY lesdot           "&#x02A7F;" ><!--less-than-or-equal, slanted, dot inside -->
-<!ENTITY lesdoto          "&#x02A81;" ><!--less-than-or-equal, slanted, dot above -->
-<!ENTITY lesdotor         "&#x02A83;" ><!--less-than-or-equal, slanted, dot above right -->
-<!ENTITY lesg             "&#x022DA;&#x02063;" ><!--less, equal, slanted, greater -->
-<!ENTITY lesges           "&#x02A93;" ><!--less, equal, slanted, greater, equal, slanted -->
-<!ENTITY lg               "&#x02276;" ><!--/lessgtr R: less, greater -->
-<!ENTITY lgE              "&#x02A91;" ><!--less, greater, equal -->
-<!ENTITY Ll               "&#x022D8;" ><!--/Ll /lll /llless R: triple less-than -->
-<!ENTITY lsim             "&#x02272;" ><!--/lesssim R: less, similar -->
-<!ENTITY lsime            "&#x02A8D;" ><!--less, similar, equal -->
-<!ENTITY lsimg            "&#x02A8F;" ><!--less, similar, greater -->
-<!ENTITY Lt               "&#x0226A;" ><!--/ll R: double less-than sign -->
-<!ENTITY ltcc             "&#x02AA6;" ><!--less than, closed by curve -->
-<!ENTITY ltcir            "&#x02A79;" ><!--less than, circle inside -->
-<!ENTITY ltdot            "&#x022D6;" ><!--/lessdot R: less than, with dot -->
-<!ENTITY ltlarr           "&#x02976;" ><!--less than, left arrow -->
-<!ENTITY ltquest          "&#x02A7B;" ><!--less than, questionmark above -->
-<!ENTITY ltrie            "&#x022B4;" ><!--/trianglelefteq R: left triangle, eq -->
-<!ENTITY mcomma           "&#x02A29;" ><!--minus, comma above -->
-<!ENTITY mDDot            "&#x0223A;" ><!--minus with four dots, geometric properties -->
-<!ENTITY mid              "&#x02223;" ><!--/mid R: -->
-<!ENTITY mlcp             "&#x02ADB;" ><!--/mlcp -->
-<!ENTITY models           "&#x022A7;" ><!--/models R: -->
-<!ENTITY mstpos           "&#x0223E;" ><!--most positive -->
-<!ENTITY pr               "&#x0227A;" ><!--/prec R: precedes -->
-<!ENTITY Pr               "&#x02ABB;" ><!--dbl precedes -->
-<!ENTITY prap             "&#x0227E;" ><!--/precapprox R: precedes, approximate -->
-<!ENTITY prcue            "&#x0227C;" ><!--/preccurlyeq R: precedes, curly eq -->
-<!ENTITY pre              "&#x02AAF;" ><!--/preceq R: precedes, equals -->
-<!ENTITY prE              "&#x02AAF;" ><!--precedes, dbl equals -->
-<!ENTITY prsim            "&#x0227E;" ><!--/precsim R: precedes, similar -->
-<!ENTITY prurel           "&#x022B0;" ><!--element precedes under relation -->
-<!ENTITY ratio            "&#x02236;" ><!--/ratio -->
-<!ENTITY rtrie            "&#x022B5;" ><!--/trianglerighteq R: right tri, eq -->
-<!ENTITY rtriltri         "&#x029CE;" ><!--right triangle above left triangle -->
-<!ENTITY sc               "&#x0227B;" ><!--/succ R: succeeds -->
-<!ENTITY Sc               "&#x02ABC;" ><!--dbl succeeds -->
-<!ENTITY scap             "&#x0227F;" ><!--/succapprox R: succeeds, approximate -->
-<!ENTITY sccue            "&#x0227D;" ><!--/succcurlyeq R: succeeds, curly eq -->
-<!ENTITY sce              "&#x0227D;" ><!--/succeq R: succeeds, equals -->
-<!ENTITY scE              "&#x0227E;" ><!--succeeds, dbl equals -->
-<!ENTITY scsim            "&#x0227F;" ><!--/succsim R: succeeds, similar -->
-<!ENTITY sdote            "&#x02A66;" ><!--equal, dot below -->
-<!ENTITY simg             "&#x02A9E;" ><!--similar, greater -->
-<!ENTITY simgE            "&#x02AA0;" ><!--similar, greater, equal -->
-<!ENTITY siml             "&#x02A9D;" ><!--similar, less -->
-<!ENTITY simlE            "&#x02A9F;" ><!--similar, less, equal -->
-<!ENTITY smid             "&#x02223;&#x02063;" ><!--/shortmid R: -->
-<!ENTITY smile            "&#x02323;" ><!--/smile R: up curve -->
-<!ENTITY smt              "&#x02AAA;" ><!--smaller than -->
-<!ENTITY smte             "&#x02AAC;" ><!--smaller than or equal -->
-<!ENTITY smtes            "&#x02AAC;&#x02063;" ><!--smaller than or equal, slanted -->
-<!ENTITY spar             "&#x02225;&#x02063;" ><!--/shortparallel R: short parallel -->
-<!ENTITY sqsub            "&#x0228F;" ><!--/sqsubset R: square subset -->
-<!ENTITY sqsube           "&#x02291;" ><!--/sqsubseteq R: square subset, equals -->
-<!ENTITY sqsup            "&#x02290;" ><!--/sqsupset R: square superset -->
-<!ENTITY sqsupe           "&#x02292;" ><!--/sqsupseteq R: square superset, eq -->
-<!ENTITY Sub              "&#x022D0;" ><!--/Subset R: double subset -->
-<!ENTITY subE             "&#x02286;" ><!--/subseteqq R: subset, dbl equals -->
-<!ENTITY subedot          "&#x02AC3;" ><!--subset, equals, dot -->
-<!ENTITY submult          "&#x02AC1;" ><!--subset, multiply -->
-<!ENTITY subplus          "&#x02ABF;" ><!--subset, plus -->
-<!ENTITY subrarr          "&#x02979;" ><!--subset, right arrow -->
-<!ENTITY subsim           "&#x02AC7;" ><!--subset, similar -->
-<!ENTITY subsub           "&#x02AD5;" ><!--subset above subset -->
-<!ENTITY subsup           "&#x02AD3;" ><!--subset above superset -->
-<!ENTITY Sup              "&#x022D1;" ><!--/Supset R: dbl superset -->
-<!ENTITY supdsub          "&#x02AD8;" ><!--superset, subset, dash joining them -->
-<!ENTITY supE             "&#x02287;" ><!--/supseteqq R: superset, dbl equals -->
-<!ENTITY supedot          "&#x02AC4;" ><!--superset, equals, dot -->
-<!ENTITY suphsol          "&#x02283;&#x0002F;" ><!--superset, solidus -->
-<!ENTITY suphsub          "&#x02AD7;" ><!--superset, subset -->
-<!ENTITY suplarr          "&#x0297B;" ><!--superset, left arrow -->
-<!ENTITY supmult          "&#x02AC2;" ><!--superset, multiply -->
-<!ENTITY supplus          "&#x02AC0;" ><!--superset, plus -->
-<!ENTITY supsim           "&#x02AC8;" ><!--superset, similar -->
-<!ENTITY supsub           "&#x02AD4;" ><!--superset above subset -->
-<!ENTITY supsup           "&#x02AD6;" ><!--superset above superset -->
-<!ENTITY thkap            "&#x02248;&#x02063;" ><!--/thickapprox R: thick approximate -->
-<!ENTITY thksim           "&#x0223C;" ><!--/thicksim R: thick similar -->
-<!ENTITY topfork          "&#x02ADA;" ><!--fork with top -->
-<!ENTITY trie             "&#x0225C;" ><!--/triangleq R: triangle, equals -->
-<!ENTITY twixt            "&#x0226C;" ><!--/between R: between -->
-<!ENTITY vBar             "&#x02AE8;" ><!--vert, dbl bar (under) -->
-<!ENTITY Vbar             "&#x02AEB;" ><!--dbl vert, bar (under) -->
-<!ENTITY vBarv            "&#x02AE9;" ><!--dbl bar, vert over and under -->
-<!ENTITY vdash            "&#x022A2;" ><!--/vdash R: vertical, dash -->
-<!ENTITY vDash            "&#x022A8;" ><!--/vDash R: vertical, dbl dash -->
-<!ENTITY Vdash            "&#x022A9;" ><!--/Vdash R: dbl vertical, dash -->
-<!ENTITY VDash            "&#x022AB;" ><!--dbl vert, dbl dash -->
-<!ENTITY Vdashl           "&#x02AE6;" ><!--vertical, dash (long) -->
-<!ENTITY vltri            "&#x022B2;" ><!--/vartriangleleft R: l tri, open, var -->
-<!ENTITY vprop            "&#x0221D;" ><!--/varpropto R: proportional, variant -->
-<!ENTITY vrtri            "&#x022B3;" ><!--/vartriangleright R: r tri, open, var -->
-<!ENTITY Vvdash           "&#x022AA;" ><!--/Vvdash R: triple vertical, dash -->

diff --git a/helm/dtd/isobox.ent b/helm/dtd/isobox.ent
deleted file mode 100644 (file)
index 630edc5..0000000
--- a/helm/dtd/isobox.ent
+++ /dev/null
@@ -1,67 +0,0 @@
-
-<!--
-     File isobox.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1986
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY boxdl            "&#x02510;" ><!--lower left quadrant -->
-<!ENTITY boxdL            "&#x02555;" ><!--lower left quadrant -->
-<!ENTITY boxDl            "&#x02556;" ><!--lower left quadrant -->
-<!ENTITY boxDL            "&#x02557;" ><!--lower left quadrant -->
-<!ENTITY boxdr            "&#x0250C;" ><!--lower right quadrant -->
-<!ENTITY boxdR            "&#x02552;" ><!--lower right quadrant -->
-<!ENTITY boxDr            "&#x02553;" ><!--lower right quadrant -->
-<!ENTITY boxDR            "&#x02554;" ><!--lower right quadrant -->
-<!ENTITY boxh             "&#x02500;" ><!--horizontal line  -->
-<!ENTITY boxH             "&#x02550;" ><!--horizontal line -->
-<!ENTITY boxhd            "&#x0252C;" ><!--lower left and right quadrants -->
-<!ENTITY boxhD            "&#x02565;" ><!--lower left and right quadrants -->
-<!ENTITY boxHd            "&#x02564;" ><!--lower left and right quadrants -->
-<!ENTITY boxHD            "&#x02566;" ><!--lower left and right quadrants -->
-<!ENTITY boxhu            "&#x02534;" ><!--upper left and right quadrants -->
-<!ENTITY boxhU            "&#x02568;" ><!--upper left and right quadrants -->
-<!ENTITY boxHu            "&#x02567;" ><!--upper left and right quadrants -->
-<!ENTITY boxHU            "&#x02569;" ><!--upper left and right quadrants -->
-<!ENTITY boxul            "&#x02518;" ><!--upper left quadrant -->
-<!ENTITY boxuL            "&#x0255B;" ><!--upper left quadrant -->
-<!ENTITY boxUl            "&#x0255C;" ><!--upper left quadrant -->
-<!ENTITY boxUL            "&#x0255D;" ><!--upper left quadrant -->
-<!ENTITY boxur            "&#x02514;" ><!--upper right quadrant -->
-<!ENTITY boxuR            "&#x02558;" ><!--upper right quadrant -->
-<!ENTITY boxUr            "&#x02559;" ><!--upper right quadrant -->
-<!ENTITY boxUR            "&#x0255A;" ><!--upper right quadrant -->
-<!ENTITY boxv             "&#x02502;" ><!--vertical line -->
-<!ENTITY boxV             "&#x02551;" ><!--vertical line -->
-<!ENTITY boxvh            "&#x0253C;" ><!--all four quadrants -->
-<!ENTITY boxvH            "&#x0256A;" ><!--all four quadrants -->
-<!ENTITY boxVh            "&#x0256B;" ><!--all four quadrants -->
-<!ENTITY boxVH            "&#x0256C;" ><!--all four quadrants -->
-<!ENTITY boxvl            "&#x02524;" ><!--upper and lower left quadrants -->
-<!ENTITY boxvL            "&#x02561;" ><!--upper and lower left quadrants -->
-<!ENTITY boxVl            "&#x02562;" ><!--upper and lower left quadrants -->
-<!ENTITY boxVL            "&#x02563;" ><!--upper and lower left quadrants -->
-<!ENTITY boxvr            "&#x0251C;" ><!--upper and lower right quadrants -->
-<!ENTITY boxvR            "&#x0255E;" ><!--upper and lower right quadrants -->
-<!ENTITY boxVr            "&#x0255F;" ><!--upper and lower right quadrants -->
-<!ENTITY boxVR            "&#x02560;" ><!--upper and lower right quadrants -->

diff --git a/helm/dtd/isocyr1.ent b/helm/dtd/isocyr1.ent
deleted file mode 100644 (file)
index 4bcc9e4..0000000
--- a/helm/dtd/isocyr1.ent
+++ /dev/null
@@ -1,94 +0,0 @@
-
-<!--
-     File isocyr1.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1986
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY acy              "&#x00430;" ><!--=small a, Cyrillic -->
-<!ENTITY Acy              "&#x00410;" ><!--=capital A, Cyrillic -->
-<!ENTITY bcy              "&#x00431;" ><!--=small be, Cyrillic -->
-<!ENTITY Bcy              "&#x00411;" ><!--=capital BE, Cyrillic -->
-<!ENTITY chcy             "&#x00447;" ><!--=small che, Cyrillic -->
-<!ENTITY CHcy             "&#x00427;" ><!--=capital CHE, Cyrillic -->
-<!ENTITY dcy              "&#x00434;" ><!--=small de, Cyrillic -->
-<!ENTITY Dcy              "&#x00414;" ><!--=capital DE, Cyrillic -->
-<!ENTITY ecy              "&#x0044D;" ><!--=small e, Cyrillic -->
-<!ENTITY Ecy              "&#x0042D;" ><!--=capital E, Cyrillic -->
-<!ENTITY fcy              "&#x00444;" ><!--=small ef, Cyrillic -->
-<!ENTITY Fcy              "&#x00424;" ><!--=capital EF, Cyrillic -->
-<!ENTITY gcy              "&#x00433;" ><!--=small ghe, Cyrillic -->
-<!ENTITY Gcy              "&#x00413;" ><!--=capital GHE, Cyrillic -->
-<!ENTITY hardcy           "&#x0044A;" ><!--=small hard sign, Cyrillic -->
-<!ENTITY HARDcy           "&#x0042A;" ><!--=capital HARD sign, Cyrillic -->
-<!ENTITY icy              "&#x00438;" ><!--=small i, Cyrillic -->
-<!ENTITY Icy              "&#x00418;" ><!--=capital I, Cyrillic -->
-<!ENTITY iecy             "&#x00435;" ><!--=small ie, Cyrillic -->
-<!ENTITY IEcy             "&#x00415;" ><!--=capital IE, Cyrillic -->
-<!ENTITY iocy             "&#x00451;" ><!--=small io, Russian -->
-<!ENTITY IOcy             "&#x00401;" ><!--=capital IO, Russian -->
-<!ENTITY jcy              "&#x00439;" ><!--=small short i, Cyrillic -->
-<!ENTITY Jcy              "&#x00419;" ><!--=capital short I, Cyrillic -->
-<!ENTITY kcy              "&#x0043A;" ><!--=small ka, Cyrillic -->
-<!ENTITY Kcy              "&#x0041A;" ><!--=capital KA, Cyrillic -->
-<!ENTITY khcy             "&#x00445;" ><!--=small ha, Cyrillic -->
-<!ENTITY KHcy             "&#x00425;" ><!--=capital HA, Cyrillic -->
-<!ENTITY lcy              "&#x0043B;" ><!--=small el, Cyrillic -->
-<!ENTITY Lcy              "&#x0041B;" ><!--=capital EL, Cyrillic -->
-<!ENTITY mcy              "&#x0043C;" ><!--=small em, Cyrillic -->
-<!ENTITY Mcy              "&#x0041C;" ><!--=capital EM, Cyrillic -->
-<!ENTITY ncy              "&#x0043D;" ><!--=small en, Cyrillic -->
-<!ENTITY Ncy              "&#x0041D;" ><!--=capital EN, Cyrillic -->
-<!ENTITY numero           "&#x02116;" ><!--=numero sign -->
-<!ENTITY ocy              "&#x0043E;" ><!--=small o, Cyrillic -->
-<!ENTITY Ocy              "&#x0041E;" ><!--=capital O, Cyrillic -->
-<!ENTITY pcy              "&#x0043F;" ><!--=small pe, Cyrillic -->
-<!ENTITY Pcy              "&#x0041F;" ><!--=capital PE, Cyrillic -->
-<!ENTITY rcy              "&#x00440;" ><!--=small er, Cyrillic -->
-<!ENTITY Rcy              "&#x00420;" ><!--=capital ER, Cyrillic -->
-<!ENTITY scy              "&#x00441;" ><!--=small es, Cyrillic -->
-<!ENTITY Scy              "&#x00421;" ><!--=capital ES, Cyrillic -->
-<!ENTITY shchcy           "&#x00449;" ><!--=small shcha, Cyrillic -->
-<!ENTITY SHCHcy           "&#x00429;" ><!--=capital SHCHA, Cyrillic -->
-<!ENTITY shcy             "&#x00448;" ><!--=small sha, Cyrillic -->
-<!ENTITY SHcy             "&#x00428;" ><!--=capital SHA, Cyrillic -->
-<!ENTITY softcy           "&#x0044C;" ><!--=small soft sign, Cyrillic -->
-<!ENTITY SOFTcy           "&#x0042C;" ><!--=capital SOFT sign, Cyrillic -->
-<!ENTITY tcy              "&#x00442;" ><!--=small te, Cyrillic -->
-<!ENTITY Tcy              "&#x00422;" ><!--=capital TE, Cyrillic -->
-<!ENTITY tscy             "&#x00446;" ><!--=small tse, Cyrillic -->
-<!ENTITY TScy             "&#x00426;" ><!--=capital TSE, Cyrillic -->
-<!ENTITY ucy              "&#x00443;" ><!--=small u, Cyrillic -->
-<!ENTITY Ucy              "&#x00423;" ><!--=capital U, Cyrillic -->
-<!ENTITY vcy              "&#x00432;" ><!--=small ve, Cyrillic -->
-<!ENTITY Vcy              "&#x00412;" ><!--=capital VE, Cyrillic -->
-<!ENTITY yacy             "&#x0044F;" ><!--=small ya, Cyrillic -->
-<!ENTITY YAcy             "&#x0042F;" ><!--=capital YA, Cyrillic -->
-<!ENTITY ycy              "&#x0044B;" ><!--=small yeru, Cyrillic -->
-<!ENTITY Ycy              "&#x0042B;" ><!--=capital YERU, Cyrillic -->
-<!ENTITY yucy             "&#x0044E;" ><!--=small yu, Cyrillic -->
-<!ENTITY YUcy             "&#x0042E;" ><!--=capital YU, Cyrillic -->
-<!ENTITY zcy              "&#x00437;" ><!--=small ze, Cyrillic -->
-<!ENTITY Zcy              "&#x00417;" ><!--=capital ZE, Cyrillic -->
-<!ENTITY zhcy             "&#x00436;" ><!--=small zhe, Cyrillic -->
-<!ENTITY ZHcy             "&#x00416;" ><!--=capital ZHE, Cyrillic -->

diff --git a/helm/dtd/isocyr2.ent b/helm/dtd/isocyr2.ent
deleted file mode 100644 (file)
index 67c477b..0000000
--- a/helm/dtd/isocyr2.ent
+++ /dev/null
@@ -1,53 +0,0 @@
-
-<!--
-     File isocyr2.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1986
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY djcy             "&#x00452;" ><!--=small dje, Serbian -->
-<!ENTITY DJcy             "&#x00402;" ><!--=capital DJE, Serbian -->
-<!ENTITY dscy             "&#x00455;" ><!--=small dse, Macedonian -->
-<!ENTITY DScy             "&#x00405;" ><!--=capital DSE, Macedonian -->
-<!ENTITY dzcy             "&#x0045F;" ><!--=small dze, Serbian -->
-<!ENTITY DZcy             "&#x0040F;" ><!--=capital dze, Serbian -->
-<!ENTITY gjcy             "&#x00453;" ><!--=small gje, Macedonian -->
-<!ENTITY GJcy             "&#x00403;" ><!--=capital GJE Macedonian -->
-<!ENTITY iukcy            "&#x00456;" ><!--=small i, Ukrainian -->
-<!ENTITY Iukcy            "&#x00406;" ><!--=capital I, Ukrainian -->
-<!ENTITY jsercy           "&#x00458;" ><!--=small je, Serbian -->
-<!ENTITY Jsercy           "&#x00408;" ><!--=capital JE, Serbian -->
-<!ENTITY jukcy            "&#x00454;" ><!--=small je, Ukrainian -->
-<!ENTITY Jukcy            "&#x00404;" ><!--=capital JE, Ukrainian -->
-<!ENTITY kjcy             "&#x0045C;" ><!--=small kje Macedonian -->
-<!ENTITY KJcy             "&#x0040C;" ><!--=capital KJE, Macedonian -->
-<!ENTITY ljcy             "&#x00459;" ><!--=small lje, Serbian -->
-<!ENTITY LJcy             "&#x00409;" ><!--=capital LJE, Serbian -->
-<!ENTITY njcy             "&#x0045A;" ><!--=small nje, Serbian -->
-<!ENTITY NJcy             "&#x0040A;" ><!--=capital NJE, Serbian -->
-<!ENTITY tshcy            "&#x0045B;" ><!--=small tshe, Serbian -->
-<!ENTITY TSHcy            "&#x0040B;" ><!--=capital TSHE, Serbian -->
-<!ENTITY ubrcy            "&#x0045E;" ><!--=small u, Byelorussian -->
-<!ENTITY Ubrcy            "&#x0040E;" ><!--=capital U, Byelorussian -->
-<!ENTITY yicy             "&#x00457;" ><!--=small yi, Ukrainian -->
-<!ENTITY YIcy             "&#x00407;" ><!--=capital YI, Ukrainian -->

diff --git a/helm/dtd/isodia.ent b/helm/dtd/isodia.ent
deleted file mode 100644 (file)
index ba64963..0000000
--- a/helm/dtd/isodia.ent
+++ /dev/null
@@ -1,41 +0,0 @@
-
-<!--
-     File isodia.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1986
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY acute            "&#x000B4;" ><!--=acute accent -->
-<!ENTITY breve            "&#x002D8;" ><!--=breve -->
-<!ENTITY caron            "&#x002C7;" ><!--=caron -->
-<!ENTITY cedil            "&#x000B8;" ><!--=cedilla -->
-<!ENTITY circ             "&#x0005E;" ><!--circumflex accent -->
-<!ENTITY dblac            "&#x002DD;" ><!--=double acute accent -->
-<!ENTITY die              "&#x000A8;" ><!--=dieresis -->
-<!ENTITY dot              "&#x002D9;" ><!--=dot above -->
-<!ENTITY grave            "&#x00060;" ><!--=grave accent -->
-<!ENTITY macr             "&#x000AF;" ><!--=macron -->
-<!ENTITY ogon             "&#x002DB;" ><!--=ogonek -->
-<!ENTITY ring             "&#x002DA;" ><!--=ring -->
-<!ENTITY tilde            "&#x002DC;" ><!--=tilde -->
-<!ENTITY uml              "&#x000A8;" ><!--=umlaut mark -->

diff --git a/helm/dtd/isogrk3.ent b/helm/dtd/isogrk3.ent
deleted file mode 100644 (file)
index fa03355..0000000
--- a/helm/dtd/isogrk3.ent
+++ /dev/null
@@ -1,70 +0,0 @@
-
-<!--
-     File isogrk3.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1991
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY alpha            "&#x003B1;" ><!--/alpha small alpha, Greek -->
-<!ENTITY beta             "&#x003B2;" ><!--/beta small beta, Greek -->
-<!ENTITY chi              "&#x003C7;" ><!--/chi small chi, Greek -->
-<!ENTITY delta            "&#x003B4;" ><!--/delta small delta, Greek -->
-<!ENTITY Delta            "&#x00394;" ><!--/Delta capital Delta, Greek -->
-<!ENTITY epsi             "&#x003B5;" ><!--/straightepsilon, small epsilon, Greek -->
-<!ENTITY epsiv            "&#x0025B;" ><!--/varepsilon -->
-<!ENTITY eta              "&#x003B7;" ><!--/eta small eta, Greek -->
-<!ENTITY gamma            "&#x003B3;" ><!--/gamma small gamma, Greek -->
-<!ENTITY Gamma            "&#x00393;" ><!--/Gamma capital Gamma, Greek -->
-<!ENTITY gammad           "&#x003DC;" ><!--/digamma -->
-<!ENTITY Gammad           "&#x003DC;" ><!--capital digamma -->
-<!ENTITY iota             "&#x003B9;" ><!--/iota small iota, Greek -->
-<!ENTITY kappa            "&#x003BA;" ><!--/kappa small kappa, Greek -->
-<!ENTITY kappav           "&#x003F0;" ><!--/varkappa -->
-<!ENTITY lambda           "&#x003BB;" ><!--/lambda small lambda, Greek -->
-<!ENTITY Lambda           "&#x0039B;" ><!--/Lambda capital Lambda, Greek -->
-<!ENTITY mu               "&#x003BC;" ><!--/mu small mu, Greek -->
-<!ENTITY nu               "&#x003BD;" ><!--/nu small nu, Greek -->
-<!ENTITY omega            "&#x003C9;" ><!--/omega small omega, Greek -->
-<!ENTITY Omega            "&#x003A9;" ><!--/Omega capital Omega, Greek -->
-<!ENTITY phi              "&#x003C6;" ><!--/straightphi - small phi, Greek -->
-<!ENTITY Phi              "&#x003A6;" ><!--/Phi capital Phi, Greek -->
-<!ENTITY phiv             "&#x003D5;" ><!--/varphi - curly or open phi -->
-<!ENTITY pi               "&#x003C0;" ><!--/pi small pi, Greek -->
-<!ENTITY Pi               "&#x003A0;" ><!--/Pi capital Pi, Greek -->
-<!ENTITY piv              "&#x003D6;" ><!--/varpi -->
-<!ENTITY psi              "&#x003C8;" ><!--/psi small psi, Greek -->
-<!ENTITY Psi              "&#x003A8;" ><!--/Psi capital Psi, Greek -->
-<!ENTITY rho              "&#x003C1;" ><!--/rho small rho, Greek -->
-<!ENTITY rhov             "&#x003F1;" ><!--/varrho -->
-<!ENTITY sigma            "&#x003C3;" ><!--/sigma small sigma, Greek -->
-<!ENTITY Sigma            "&#x003A3;" ><!--/Sigma capital Sigma, Greek -->
-<!ENTITY sigmav           "&#x003C2;" ><!--/varsigma -->
-<!ENTITY tau              "&#x003C4;" ><!--/tau small tau, Greek -->
-<!ENTITY theta            "&#x003B8;" ><!--/theta straight theta, small theta, Greek -->
-<!ENTITY Theta            "&#x00398;" ><!--/Theta capital Theta, Greek -->
-<!ENTITY thetav           "&#x003D1;" ><!--/vartheta - curly or open theta -->
-<!ENTITY upsi             "&#x003C5;" ><!--/upsilon small upsilon, Greek -->
-<!ENTITY Upsi             "&#x003D2;" ><!--/Upsilon capital Upsilon, Greek -->
-<!ENTITY xi               "&#x003BE;" ><!--/xi small xi, Greek -->
-<!ENTITY Xi               "&#x0039E;" ><!--/Xi capital Xi, Greek -->
-<!ENTITY zeta             "&#x003B6;" ><!--/zeta small zeta, Greek -->

diff --git a/helm/dtd/isolat1.ent b/helm/dtd/isolat1.ent
deleted file mode 100644 (file)
index 849d360..0000000
--- a/helm/dtd/isolat1.ent
+++ /dev/null
@@ -1,89 +0,0 @@
-
-<!--
-     File isolat1.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1986
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY aacute           "&#x000E1;" ><!--=small a, acute accent -->
-<!ENTITY Aacute           "&#x000C1;" ><!--=capital A, acute accent -->
-<!ENTITY acirc            "&#x000E2;" ><!--=small a, circumflex accent -->
-<!ENTITY Acirc            "&#x000C2;" ><!--=capital A, circumflex accent -->
-<!ENTITY aelig            "&#x000E6;" ><!--=small ae diphthong (ligature) -->
-<!ENTITY AElig            "&#x000C6;" ><!--=capital AE diphthong (ligature) -->
-<!ENTITY agrave           "&#x000E0;" ><!--=small a, grave accent -->
-<!ENTITY Agrave           "&#x000C0;" ><!--=capital A, grave accent -->
-<!ENTITY aring            "&#x000E5;" ><!--=small a, ring -->
-<!ENTITY Aring            "&#x000C5;" ><!--=capital A, ring -->
-<!ENTITY atilde           "&#x000E3;" ><!--=small a, tilde -->
-<!ENTITY Atilde           "&#x000C3;" ><!--=capital A, tilde -->
-<!ENTITY auml             "&#x000E4;" ><!--=small a, dieresis or umlaut mark -->
-<!ENTITY Auml             "&#x000C4;" ><!--=capital A, dieresis or umlaut mark -->
-<!ENTITY ccedil           "&#x000E7;" ><!--=small c, cedilla -->
-<!ENTITY Ccedil           "&#x000C7;" ><!--=capital C, cedilla -->
-<!ENTITY eacute           "&#x000E9;" ><!--=small e, acute accent -->
-<!ENTITY Eacute           "&#x000C9;" ><!--=capital E, acute accent -->
-<!ENTITY ecirc            "&#x000EA;" ><!--=small e, circumflex accent -->
-<!ENTITY Ecirc            "&#x000CA;" ><!--=capital E, circumflex accent -->
-<!ENTITY egrave           "&#x000E8;" ><!--=small e, grave accent -->
-<!ENTITY Egrave           "&#x000C8;" ><!--=capital E, grave accent -->
-<!ENTITY eth              "&#x000F0;" ><!--=small eth, Icelandic -->
-<!ENTITY ETH              "&#x000D0;" ><!--=capital Eth, Icelandic -->
-<!ENTITY euml             "&#x000EB;" ><!--=small e, dieresis or umlaut mark -->
-<!ENTITY Euml             "&#x000CB;" ><!--=capital E, dieresis or umlaut mark -->
-<!ENTITY iacute           "&#x000ED;" ><!--=small i, acute accent -->
-<!ENTITY Iacute           "&#x000CD;" ><!--=capital I, acute accent -->
-<!ENTITY icirc            "&#x000EE;" ><!--=small i, circumflex accent -->
-<!ENTITY Icirc            "&#x000CE;" ><!--=capital I, circumflex accent -->
-<!ENTITY igrave           "&#x000EC;" ><!--=small i, grave accent -->
-<!ENTITY Igrave           "&#x000CC;" ><!--=capital I, grave accent -->
-<!ENTITY iuml             "&#x000EF;" ><!--=small i, dieresis or umlaut mark -->
-<!ENTITY Iuml             "&#x000CF;" ><!--=capital I, dieresis or umlaut mark -->
-<!ENTITY ntilde           "&#x000F1;" ><!--=small n, tilde -->
-<!ENTITY Ntilde           "&#x000D1;" ><!--=capital N, tilde -->
-<!ENTITY oacute           "&#x000F3;" ><!--=small o, acute accent -->
-<!ENTITY Oacute           "&#x000D3;" ><!--=capital O, acute accent -->
-<!ENTITY ocirc            "&#x000F4;" ><!--=small o, circumflex accent -->
-<!ENTITY Ocirc            "&#x000D4;" ><!--=capital O, circumflex accent -->
-<!ENTITY ograve           "&#x000F2;" ><!--=small o, grave accent -->
-<!ENTITY Ograve           "&#x000D2;" ><!--=capital O, grave accent -->
-<!ENTITY oslash           "&#x000F8;" ><!--latin small letter o with stroke -->
-<!ENTITY Oslash           "&#x000D8;" ><!--=capital O, slash -->
-<!ENTITY otilde           "&#x000F5;" ><!--=small o, tilde -->
-<!ENTITY Otilde           "&#x000D5;" ><!--=capital O, tilde -->
-<!ENTITY ouml             "&#x000F6;" ><!--=small o, dieresis or umlaut mark -->
-<!ENTITY Ouml             "&#x000D6;" ><!--=capital O, dieresis or umlaut mark -->
-<!ENTITY szlig            "&#x000DF;" ><!--=small sharp s, German (sz ligature) -->
-<!ENTITY thorn            "&#x000FE;" ><!--=small thorn, Icelandic -->
-<!ENTITY THORN            "&#x000DE;" ><!--=capital THORN, Icelandic -->
-<!ENTITY uacute           "&#x000FA;" ><!--=small u, acute accent -->
-<!ENTITY Uacute           "&#x000DA;" ><!--=capital U, acute accent -->
-<!ENTITY ucirc            "&#x000FB;" ><!--=small u, circumflex accent -->
-<!ENTITY Ucirc            "&#x000DB;" ><!--=capital U, circumflex accent -->
-<!ENTITY ugrave           "&#x000F9;" ><!--=small u, grave accent -->
-<!ENTITY Ugrave           "&#x000D9;" ><!--=capital U, grave accent -->
-<!ENTITY uuml             "&#x000FC;" ><!--=small u, dieresis or umlaut mark -->
-<!ENTITY Uuml             "&#x000DC;" ><!--=capital U, dieresis or umlaut mark -->
-<!ENTITY yacute           "&#x000FD;" ><!--=small y, acute accent -->
-<!ENTITY Yacute           "&#x000DD;" ><!--=capital Y, acute accent -->
-<!ENTITY yuml             "&#x000FF;" ><!--=small y, dieresis or umlaut mark -->

diff --git a/helm/dtd/isolat2.ent b/helm/dtd/isolat2.ent
deleted file mode 100644 (file)
index 3049be7..0000000
--- a/helm/dtd/isolat2.ent
+++ /dev/null
@@ -1,148 +0,0 @@
-
-<!--
-     File isolat2.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1986
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY abreve           "&#x00103;" ><!--=small a, breve -->
-<!ENTITY Abreve           "&#x00102;" ><!--=capital A, breve -->
-<!ENTITY amacr            "&#x00101;" ><!--=small a, macron -->
-<!ENTITY Amacr            "&#x00100;" ><!--=capital A, macron -->
-<!ENTITY aogon            "&#x00105;" ><!--=small a, ogonek -->
-<!ENTITY Aogon            "&#x00104;" ><!--=capital A, ogonek -->
-<!ENTITY cacute           "&#x00107;" ><!--=small c, acute accent -->
-<!ENTITY Cacute           "&#x00106;" ><!--=capital C, acute accent -->
-<!ENTITY ccaron           "&#x0010D;" ><!--=small c, caron -->
-<!ENTITY Ccaron           "&#x0010C;" ><!--=capital C, caron -->
-<!ENTITY ccirc            "&#x00109;" ><!--=small c, circumflex accent -->
-<!ENTITY Ccirc            "&#x00108;" ><!--=capital C, circumflex accent -->
-<!ENTITY cdot             "&#x0010B;" ><!--=small c, dot above -->
-<!ENTITY Cdot             "&#x0010A;" ><!--=capital C, dot above -->
-<!ENTITY dcaron           "&#x0010F;" ><!--=small d, caron -->
-<!ENTITY Dcaron           "&#x0010E;" ><!--=capital D, caron -->
-<!ENTITY dstrok           "&#x00111;" ><!--=small d, stroke -->
-<!ENTITY Dstrok           "&#x00110;" ><!--=capital D, stroke -->
-<!ENTITY ecaron           "&#x0011B;" ><!--=small e, caron -->
-<!ENTITY Ecaron           "&#x0011A;" ><!--=capital E, caron -->
-<!ENTITY edot             "&#x00117;" ><!--=small e, dot above -->
-<!ENTITY Edot             "&#x00116;" ><!--=capital E, dot above -->
-<!ENTITY emacr            "&#x00113;" ><!--=small e, macron -->
-<!ENTITY Emacr            "&#x00112;" ><!--=capital E, macron -->
-<!ENTITY eng              "&#x0014B;" ><!--=small eng, Lapp -->
-<!ENTITY ENG              "&#x0014A;" ><!--=capital ENG, Lapp -->
-<!ENTITY eogon            "&#x00119;" ><!--=small e, ogonek -->
-<!ENTITY Eogon            "&#x00118;" ><!--=capital E, ogonek -->
-<!ENTITY gacute           "&#x001F5;" ><!--=small g, acute accent -->
-<!ENTITY gbreve           "&#x0011F;" ><!--=small g, breve -->
-<!ENTITY Gbreve           "&#x0011E;" ><!--=capital G, breve -->
-<!ENTITY Gcedil           "&#x00122;" ><!--=capital G, cedilla -->
-<!ENTITY gcirc            "&#x0011D;" ><!--=small g, circumflex accent -->
-<!ENTITY Gcirc            "&#x0011C;" ><!--=capital G, circumflex accent -->
-<!ENTITY gdot             "&#x00121;" ><!--=small g, dot above -->
-<!ENTITY Gdot             "&#x00120;" ><!--=capital G, dot above -->
-<!ENTITY hcirc            "&#x00125;" ><!--=small h, circumflex accent -->
-<!ENTITY Hcirc            "&#x00124;" ><!--=capital H, circumflex accent -->
-<!ENTITY hstrok           "&#x00127;" ><!--=small h, stroke -->
-<!ENTITY Hstrok           "&#x00126;" ><!--=capital H, stroke -->
-<!ENTITY Idot             "&#x00130;" ><!--=capital I, dot above -->
-<!ENTITY ijlig            "&#x00133;" ><!--=small ij ligature -->
-<!ENTITY IJlig            "&#x00132;" ><!--=capital IJ ligature -->
-<!ENTITY imacr            "&#x0012B;" ><!--=small i, macron -->
-<!ENTITY Imacr            "&#x0012A;" ><!--=capital I, macron -->
-<!ENTITY inodot           "&#x00131;" ><!--=small i without dot -->
-<!ENTITY iogon            "&#x0012F;" ><!--=small i, ogonek -->
-<!ENTITY Iogon            "&#x0012E;" ><!--=capital I, ogonek -->
-<!ENTITY itilde           "&#x00129;" ><!--=small i, tilde -->
-<!ENTITY Itilde           "&#x00128;" ><!--=capital I, tilde -->
-<!ENTITY jcirc            "&#x00135;" ><!--=small j, circumflex accent -->
-<!ENTITY Jcirc            "&#x00134;" ><!--=capital J, circumflex accent -->
-<!ENTITY kcedil           "&#x00137;" ><!--=small k, cedilla -->
-<!ENTITY Kcedil           "&#x00136;" ><!--=capital K, cedilla -->
-<!ENTITY kgreen           "&#x00138;" ><!--=small k, Greenlandic -->
-<!ENTITY lacute           "&#x0013A;" ><!--=small l, acute accent -->
-<!ENTITY Lacute           "&#x00139;" ><!--=capital L, acute accent -->
-<!ENTITY lcaron           "&#x0013E;" ><!--=small l, caron -->
-<!ENTITY Lcaron           "&#x0013D;" ><!--=capital L, caron -->
-<!ENTITY lcedil           "&#x0013C;" ><!--=small l, cedilla -->
-<!ENTITY Lcedil           "&#x0013B;" ><!--=capital L, cedilla -->
-<!ENTITY lmidot           "&#x00140;" ><!--=small l, middle dot -->
-<!ENTITY Lmidot           "&#x0013F;" ><!--=capital L, middle dot -->
-<!ENTITY lstrok           "&#x00142;" ><!--=small l, stroke -->
-<!ENTITY Lstrok           "&#x00141;" ><!--=capital L, stroke -->
-<!ENTITY nacute           "&#x00144;" ><!--=small n, acute accent -->
-<!ENTITY Nacute           "&#x00143;" ><!--=capital N, acute accent -->
-<!ENTITY napos            "&#x00149;" ><!--=small n, apostrophe -->
-<!ENTITY ncaron           "&#x00148;" ><!--=small n, caron -->
-<!ENTITY Ncaron           "&#x00147;" ><!--=capital N, caron -->
-<!ENTITY ncedil           "&#x00146;" ><!--=small n, cedilla -->
-<!ENTITY Ncedil           "&#x00145;" ><!--=capital N, cedilla -->
-<!ENTITY odblac           "&#x00151;" ><!--=small o, double acute accent -->
-<!ENTITY Odblac           "&#x00150;" ><!--=capital O, double acute accent -->
-<!ENTITY oelig            "&#x00153;" ><!--=small oe ligature -->
-<!ENTITY OElig            "&#x00152;" ><!--=capital OE ligature -->
-<!ENTITY omacr            "&#x0014D;" ><!--=small o, macron -->
-<!ENTITY Omacr            "&#x0014C;" ><!--=capital O, macron -->
-<!ENTITY racute           "&#x00155;" ><!--=small r, acute accent -->
-<!ENTITY Racute           "&#x00154;" ><!--=capital R, acute accent -->
-<!ENTITY rcaron           "&#x00159;" ><!--=small r, caron -->
-<!ENTITY Rcaron           "&#x00158;" ><!--=capital R, caron -->
-<!ENTITY rcedil           "&#x00157;" ><!--=small r, cedilla -->
-<!ENTITY Rcedil           "&#x00156;" ><!--=capital R, cedilla -->
-<!ENTITY sacute           "&#x0015B;" ><!--=small s, acute accent -->
-<!ENTITY Sacute           "&#x0015A;" ><!--=capital S, acute accent -->
-<!ENTITY scaron           "&#x00161;" ><!--=small s, caron -->
-<!ENTITY Scaron           "&#x00160;" ><!--=capital S, caron -->
-<!ENTITY scedil           "&#x0015F;" ><!--=small s, cedilla -->
-<!ENTITY Scedil           "&#x0015E;" ><!--=capital S, cedilla -->
-<!ENTITY scirc            "&#x0015D;" ><!--=small s, circumflex accent -->
-<!ENTITY Scirc            "&#x0015C;" ><!--=capital S, circumflex accent -->
-<!ENTITY tcaron           "&#x00165;" ><!--=small t, caron -->
-<!ENTITY Tcaron           "&#x00164;" ><!--=capital T, caron -->
-<!ENTITY tcedil           "&#x00163;" ><!--=small t, cedilla -->
-<!ENTITY Tcedil           "&#x00162;" ><!--=capital T, cedilla -->
-<!ENTITY tstrok           "&#x00167;" ><!--=small t, stroke -->
-<!ENTITY Tstrok           "&#x00166;" ><!--=capital T, stroke -->
-<!ENTITY ubreve           "&#x0016D;" ><!--=small u, breve -->
-<!ENTITY Ubreve           "&#x0016C;" ><!--=capital U, breve -->
-<!ENTITY udblac           "&#x00171;" ><!--=small u, double acute accent -->
-<!ENTITY Udblac           "&#x00170;" ><!--=capital U, double acute accent -->
-<!ENTITY umacr            "&#x0016B;" ><!--=small u, macron -->
-<!ENTITY Umacr            "&#x0016A;" ><!--=capital U, macron -->
-<!ENTITY uogon            "&#x00173;" ><!--=small u, ogonek -->
-<!ENTITY Uogon            "&#x00172;" ><!--=capital U, ogonek -->
-<!ENTITY uring            "&#x0016F;" ><!--=small u, ring -->
-<!ENTITY Uring            "&#x0016E;" ><!--=capital U, ring -->
-<!ENTITY utilde           "&#x00169;" ><!--=small u, tilde -->
-<!ENTITY Utilde           "&#x00168;" ><!--=capital U, tilde -->
-<!ENTITY wcirc            "&#x00175;" ><!--=small w, circumflex accent -->
-<!ENTITY Wcirc            "&#x00174;" ><!--=capital W, circumflex accent -->
-<!ENTITY ycirc            "&#x00177;" ><!--=small y, circumflex accent -->
-<!ENTITY Ycirc            "&#x00176;" ><!--=capital Y, circumflex accent -->
-<!ENTITY Yuml             "&#x00178;" ><!--=capital Y, dieresis or umlaut mark -->
-<!ENTITY zacute           "&#x0017A;" ><!--=small z, acute accent -->
-<!ENTITY Zacute           "&#x00179;" ><!--=capital Z, acute accent -->
-<!ENTITY zcaron           "&#x0017E;" ><!--=small z, caron -->
-<!ENTITY Zcaron           "&#x0017D;" ><!--=capital Z, caron -->
-<!ENTITY zdot             "&#x0017C;" ><!--=small z, dot above -->
-<!ENTITY Zdot             "&#x0017B;" ><!--=capital Z, dot above -->

diff --git a/helm/dtd/isomfrk.ent b/helm/dtd/isomfrk.ent
deleted file mode 100644 (file)
index d3d92aa..0000000
--- a/helm/dtd/isomfrk.ent
+++ /dev/null
@@ -1,79 +0,0 @@
-
-<!--
-     File isomfrk.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1991
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY afr "<%mchar.qname; name='afr'/>" ><!--(1D51E)/frak a, lower case a -->
-<!ENTITY Afr "<%mchar.qname; name='Afr'/>" ><!--(1D504)/frak A, upper case a -->
-<!ENTITY bfr "<%mchar.qname; name='bfr'/>" ><!--(1D51F)/frak b, lower case b -->
-<!ENTITY Bfr "<%mchar.qname; name='Bfr'/>" ><!--(1D505)/frak B, upper case b -->
-<!ENTITY cfr "<%mchar.qname; name='cfr'/>" ><!--(1D520)/frak c, lower case c -->
-<!ENTITY Cfr "<%mchar.qname; name='Cfr'/>" ><!--(1D506)/frak C, upper case c -->
-<!ENTITY dfr "<%mchar.qname; name='dfr'/>" ><!--(1D521)/frak d, lower case d -->
-<!ENTITY Dfr "<%mchar.qname; name='Dfr'/>" ><!--(1D507)/frak D, upper case d -->
-<!ENTITY efr "<%mchar.qname; name='efr'/>" ><!--(1D522)/frak e, lower case e -->
-<!ENTITY Efr "<%mchar.qname; name='Efr'/>" ><!--(1D508)/frak E, upper case e -->
-<!ENTITY ffr "<%mchar.qname; name='ffr'/>" ><!--(1D523)/frak f, lower case f -->
-<!ENTITY Ffr "<%mchar.qname; name='Ffr'/>" ><!--(1D509)/frak F, upper case f -->
-<!ENTITY gfr "<%mchar.qname; name='gfr'/>" ><!--(1D524)/frak g, lower case g -->
-<!ENTITY Gfr "<%mchar.qname; name='Gfr'/>" ><!--(1D50A)/frak G, upper case g -->
-<!ENTITY hfr "<%mchar.qname; name='hfr'/>" ><!--(1D525)/frak h, lower case h -->
-<!ENTITY Hfr "<%mchar.qname; name='Hfr'/>" ><!--(1D50B)/frak H, upper case h -->
-<!ENTITY ifr "<%mchar.qname; name='ifr'/>" ><!--(1D526)/frak i, lower case i -->
-<!ENTITY Ifr "<%mchar.qname; name='Ifr'/>" ><!--(1D50C)/frak I, upper case i -->
-<!ENTITY jfr "<%mchar.qname; name='jfr'/>" ><!--(1D527)/frak j, lower case j -->
-<!ENTITY Jfr "<%mchar.qname; name='Jfr'/>" ><!--(1D50D)/frak J, upper case j -->
-<!ENTITY kfr "<%mchar.qname; name='kfr'/>" ><!--(1D528)/frak k, lower case k -->
-<!ENTITY Kfr "<%mchar.qname; name='Kfr'/>" ><!--(1D50E)/frak K, upper case k -->
-<!ENTITY lfr "<%mchar.qname; name='lfr'/>" ><!--(1D529)/frak l, lower case l -->
-<!ENTITY Lfr "<%mchar.qname; name='Lfr'/>" ><!--(1D50F)/frak L, upper case l -->
-<!ENTITY mfr "<%mchar.qname; name='mfr'/>" ><!--(1D52A)/frak m, lower case m -->
-<!ENTITY Mfr "<%mchar.qname; name='Mfr'/>" ><!--(1D510)/frak M, upper case m -->
-<!ENTITY nfr "<%mchar.qname; name='nfr'/>" ><!--(1D52B)/frak n, lower case n -->
-<!ENTITY Nfr "<%mchar.qname; name='Nfr'/>" ><!--(1D511)/frak N, upper case n -->
-<!ENTITY ofr "<%mchar.qname; name='ofr'/>" ><!--(1D52C)/frak o, lower case o -->
-<!ENTITY Ofr "<%mchar.qname; name='Ofr'/>" ><!--(1D512)/frak O, upper case o -->
-<!ENTITY pfr "<%mchar.qname; name='pfr'/>" ><!--(1D52D)/frak p, lower case p -->
-<!ENTITY Pfr "<%mchar.qname; name='Pfr'/>" ><!--(1D513)/frak P, upper case p -->
-<!ENTITY qfr "<%mchar.qname; name='qfr'/>" ><!--(1D52E)/frak q, lower case q -->
-<!ENTITY Qfr "<%mchar.qname; name='Qfr'/>" ><!--(1D514)/frak Q, upper case q -->
-<!ENTITY rfr "<%mchar.qname; name='rfr'/>" ><!--(1D52F)/frak r, lower case r -->
-<!ENTITY Rfr "<%mchar.qname; name='Rfr'/>" ><!--(1D515)/frak R, upper case r -->
-<!ENTITY sfr "<%mchar.qname; name='sfr'/>" ><!--(1D530)/frak s, lower case s -->
-<!ENTITY Sfr "<%mchar.qname; name='Sfr'/>" ><!--(1D516)/frak S, upper case s -->
-<!ENTITY tfr "<%mchar.qname; name='tfr'/>" ><!--(1D531)/frak t, lower case t -->
-<!ENTITY Tfr "<%mchar.qname; name='Tfr'/>" ><!--(1D517)/frak T, upper case t -->
-<!ENTITY ufr "<%mchar.qname; name='ufr'/>" ><!--(1D532)/frak u, lower case u -->
-<!ENTITY Ufr "<%mchar.qname; name='Ufr'/>" ><!--(1D518)/frak U, upper case u -->
-<!ENTITY vfr "<%mchar.qname; name='vfr'/>" ><!--(1D533)/frak v, lower case v -->
-<!ENTITY Vfr "<%mchar.qname; name='Vfr'/>" ><!--(1D519)/frak V, upper case v -->
-<!ENTITY wfr "<%mchar.qname; name='wfr'/>" ><!--(1D534)/frak w, lower case w -->
-<!ENTITY Wfr "<%mchar.qname; name='Wfr'/>" ><!--(1D51A)/frak W, upper case w -->
-<!ENTITY xfr "<%mchar.qname; name='xfr'/>" ><!--(1D535)/frak x, lower case x -->
-<!ENTITY Xfr "<%mchar.qname; name='Xfr'/>" ><!--(1D51B)/frak X, upper case x -->
-<!ENTITY yfr "<%mchar.qname; name='yfr'/>" ><!--(1D536)/frak y, lower case y -->
-<!ENTITY Yfr "<%mchar.qname; name='Yfr'/>" ><!--(1D51C)/frak Y, upper case y -->
-<!ENTITY zfr "<%mchar.qname; name='zfr'/>" ><!--(1D537)/frak z, lower case z -->
-<!ENTITY Zfr "<%mchar.qname; name='Zfr'/>" ><!--(1D51D)/frak Z, upper case z  -->

diff --git a/helm/dtd/isomopf.ent b/helm/dtd/isomopf.ent
deleted file mode 100644 (file)
index 6b5e01f..0000000
--- a/helm/dtd/isomopf.ent
+++ /dev/null
@@ -1,53 +0,0 @@
-
-<!--
-     File isomopf.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1991
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY Aopf "<%mchar.qname; name='Aopf'/>" ><!--(1D538)/Bbb A, open face A -->
-<!ENTITY Bopf "<%mchar.qname; name='Bopf'/>" ><!--(1D539)/Bbb B, open face B -->
-<!ENTITY Copf "<%mchar.qname; name='Copf'/>" ><!--(1D53A)/Bbb C, open face C -->
-<!ENTITY Dopf "<%mchar.qname; name='Dopf'/>" ><!--(1D53B)/Bbb D, open face D -->
-<!ENTITY Eopf "<%mchar.qname; name='Eopf'/>" ><!--(1D53C)/Bbb E, open face E -->
-<!ENTITY Fopf "<%mchar.qname; name='Fopf'/>" ><!--(1D53D)/Bbb F, open face F -->
-<!ENTITY Gopf "<%mchar.qname; name='Gopf'/>" ><!--(1D53E)/Bbb G, open face G -->
-<!ENTITY Hopf "<%mchar.qname; name='Hopf'/>" ><!--(1D53F)/Bbb H, open face H -->
-<!ENTITY Iopf "<%mchar.qname; name='Iopf'/>" ><!--(1D540)/Bbb I, open face I -->
-<!ENTITY Jopf "<%mchar.qname; name='Jopf'/>" ><!--(1D541)/Bbb J, open face J -->
-<!ENTITY Kopf "<%mchar.qname; name='Kopf'/>" ><!--(1D542)/Bbb K, open face K  -->
-<!ENTITY Lopf "<%mchar.qname; name='Lopf'/>" ><!--(1D543)/Bbb L, open face L  -->
-<!ENTITY Mopf "<%mchar.qname; name='Mopf'/>" ><!--(1D544)/Bbb M, open face M  -->
-<!ENTITY Nopf "<%mchar.qname; name='Nopf'/>" ><!--(1D545)/Bbb N, open face N -->
-<!ENTITY Oopf "<%mchar.qname; name='Oopf'/>" ><!--(1D546)/Bbb O, open face O -->
-<!ENTITY Popf "<%mchar.qname; name='Popf'/>" ><!--(1D547)/Bbb P, open face P -->
-<!ENTITY Qopf "<%mchar.qname; name='Qopf'/>" ><!--(1D548)/Bbb Q, open face Q -->
-<!ENTITY Ropf "<%mchar.qname; name='Ropf'/>" ><!--(1D549)/Bbb R, open face R -->
-<!ENTITY Sopf "<%mchar.qname; name='Sopf'/>" ><!--(1D54A)/Bbb S, open face S -->
-<!ENTITY Topf "<%mchar.qname; name='Topf'/>" ><!--(1D54B)/Bbb T, open face T -->
-<!ENTITY Uopf "<%mchar.qname; name='Uopf'/>" ><!--(1D54C)/Bbb U, open face U -->
-<!ENTITY Vopf "<%mchar.qname; name='Vopf'/>" ><!--(1D54D)/Bbb V, open face V -->
-<!ENTITY Wopf "<%mchar.qname; name='Wopf'/>" ><!--(1D54E)/Bbb W, open face W -->
-<!ENTITY Xopf "<%mchar.qname; name='Xopf'/>" ><!--(1D54F)/Bbb X, open face X -->
-<!ENTITY Yopf "<%mchar.qname; name='Yopf'/>" ><!--(1D550)/Bbb Y, open face Y -->
-<!ENTITY Zopf "<%mchar.qname; name='Zopf'/>" ><!--(1D551)/Bbb Z, open face Z -->

diff --git a/helm/dtd/isomscr.ent b/helm/dtd/isomscr.ent
deleted file mode 100644 (file)
index 75d3bc5..0000000
--- a/helm/dtd/isomscr.ent
+++ /dev/null
@@ -1,79 +0,0 @@
-
-<!--
-     File isomscr.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1991
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY ascr "<%mchar.qname; name='ascr'/>" ><!--(1D4B6)/scr a, script letter a -->
-<!ENTITY Ascr "<%mchar.qname; name='Ascr'/>" ><!--(1D49C)/scr A, script letter A -->
-<!ENTITY bscr "<%mchar.qname; name='bscr'/>" ><!--(1D4B7)/scr b, script letter b -->
-<!ENTITY Bscr "<%mchar.qname; name='Bscr'/>" ><!--(1D49D)/scr B, script letter B -->
-<!ENTITY cscr "<%mchar.qname; name='cscr'/>" ><!--(1D4B8)/scr c, script letter c -->
-<!ENTITY Cscr "<%mchar.qname; name='Cscr'/>" ><!--(1D49E)/scr C, script letter C -->
-<!ENTITY dscr "<%mchar.qname; name='dscr'/>" ><!--(1D4B9)/scr d, script letter d -->
-<!ENTITY Dscr "<%mchar.qname; name='Dscr'/>" ><!--(1D49F)/scr D, script letter D -->
-<!ENTITY escr "<%mchar.qname; name='escr'/>" ><!--(1D4BA)/scr e, script letter e -->
-<!ENTITY Escr "<%mchar.qname; name='Escr'/>" ><!--(1D4A0)/scr E, script letter E -->
-<!ENTITY fscr "<%mchar.qname; name='fscr'/>" ><!--(1D4BB)/scr f, script letter f -->
-<!ENTITY Fscr "<%mchar.qname; name='Fscr'/>" ><!--(1D4A1)/scr F, script letter F -->
-<!ENTITY gscr "<%mchar.qname; name='gscr'/>" ><!--(1D4BC)/scr g, script letter g -->
-<!ENTITY Gscr "<%mchar.qname; name='Gscr'/>" ><!--(1D4A2)/scr G, script letter G -->
-<!ENTITY hscr "<%mchar.qname; name='hscr'/>" ><!--(1D4BD)/scr h, script letter h -->
-<!ENTITY Hscr "<%mchar.qname; name='Hscr'/>" ><!--(1D4A3)/scr H, script letter H -->
-<!ENTITY iscr "<%mchar.qname; name='iscr'/>" ><!--(1D4BE)/scr i, script letter i -->
-<!ENTITY Iscr "<%mchar.qname; name='Iscr'/>" ><!--(1D4A4)/scr I, script letter I -->
-<!ENTITY jscr "<%mchar.qname; name='jscr'/>" ><!--(1D4BF)/scr j, script letter j -->
-<!ENTITY Jscr "<%mchar.qname; name='Jscr'/>" ><!--(1D4A5)/scr J, script letter J -->
-<!ENTITY kscr "<%mchar.qname; name='kscr'/>" ><!--(1D4C0)/scr k, script letter k -->
-<!ENTITY Kscr "<%mchar.qname; name='Kscr'/>" ><!--(1D4A6)/scr K, script letter K -->
-<!ENTITY lscr "<%mchar.qname; name='lscr'/>" ><!--(1D4C1)/scr l, script letter l -->
-<!ENTITY Lscr "<%mchar.qname; name='Lscr'/>" ><!--(1D4A7)/scr L, script letter L -->
-<!ENTITY mscr "<%mchar.qname; name='mscr'/>" ><!--(1D4C2)/scr m, script letter m -->
-<!ENTITY Mscr "<%mchar.qname; name='Mscr'/>" ><!--(1D4A8)/scr M, script letter M -->
-<!ENTITY nscr "<%mchar.qname; name='nscr'/>" ><!--(1D4C3)/scr n, script letter n -->
-<!ENTITY Nscr "<%mchar.qname; name='Nscr'/>" ><!--(1D4A9)/scr N, script letter N -->
-<!ENTITY oscr "<%mchar.qname; name='oscr'/>" ><!--(1D4C4)/scr o, script letter o -->
-<!ENTITY Oscr "<%mchar.qname; name='Oscr'/>" ><!--(1D4AA)/scr O, script letter O -->
-<!ENTITY pscr "<%mchar.qname; name='pscr'/>" ><!--(1D4C5)/scr p, script letter p -->
-<!ENTITY Pscr "<%mchar.qname; name='Pscr'/>" ><!--(1D4AB)/scr P, script letter P -->
-<!ENTITY qscr "<%mchar.qname; name='qscr'/>" ><!--(1D4C6)/scr q, script letter q -->
-<!ENTITY Qscr "<%mchar.qname; name='Qscr'/>" ><!--(1D4AC)/scr Q, script letter Q -->
-<!ENTITY rscr "<%mchar.qname; name='rscr'/>" ><!--(1D4C7)/scr r, script letter r -->
-<!ENTITY Rscr "<%mchar.qname; name='Rscr'/>" ><!--(1D4AD)/scr R, script letter R -->
-<!ENTITY sscr "<%mchar.qname; name='sscr'/>" ><!--(1D4C8)/scr s, script letter s -->
-<!ENTITY Sscr "<%mchar.qname; name='Sscr'/>" ><!--(1D4AE)/scr S, script letter S -->
-<!ENTITY tscr "<%mchar.qname; name='tscr'/>" ><!--(1D4C9)/scr t, script letter t -->
-<!ENTITY Tscr "<%mchar.qname; name='Tscr'/>" ><!--(1D4AF)/scr T, script letter T -->
-<!ENTITY uscr "<%mchar.qname; name='uscr'/>" ><!--(1D4CA)/scr u, script letter u -->
-<!ENTITY Uscr "<%mchar.qname; name='Uscr'/>" ><!--(1D4B0)/scr U, script letter U -->
-<!ENTITY vscr "<%mchar.qname; name='vscr'/>" ><!--(1D4CB)/scr v, script letter v -->
-<!ENTITY Vscr "<%mchar.qname; name='Vscr'/>" ><!--(1D4B1)/scr V, script letter V -->
-<!ENTITY wscr "<%mchar.qname; name='wscr'/>" ><!--(1D4CC)/scr w, script letter w -->
-<!ENTITY Wscr "<%mchar.qname; name='Wscr'/>" ><!--(1D4B2)/scr W, script letter W -->
-<!ENTITY xscr "<%mchar.qname; name='xscr'/>" ><!--(1D4CD)/scr x, script letter x -->
-<!ENTITY Xscr "<%mchar.qname; name='Xscr'/>" ><!--(1D4B3)/scr X, script letter X -->
-<!ENTITY yscr "<%mchar.qname; name='yscr'/>" ><!--(1D4CE)/scr y, script letter y -->
-<!ENTITY Yscr "<%mchar.qname; name='Yscr'/>" ><!--(1D4B4)/scr Y, script letter Y -->
-<!ENTITY zscr "<%mchar.qname; name='zscr'/>" ><!--(1D4CF)/scr z, script letter z -->
-<!ENTITY Zscr "<%mchar.qname; name='Zscr'/>" ><!--(1D4B5)/scr Z, script letter Z -->

diff --git a/helm/dtd/isonum.ent b/helm/dtd/isonum.ent
deleted file mode 100644 (file)
index d6d3461..0000000
--- a/helm/dtd/isonum.ent
+++ /dev/null
@@ -1,106 +0,0 @@
-
-<!--
-     File isonum.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1986
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-<!--HELM: deleted the central &: 
-<!ENTITY amp              "&#x26;&#x00026;" >-->
-<!ENTITY amp              "&#x26;#x00026;" ><!--=ampersand -->
-<!ENTITY apos             "&#x00027;" ><!--=apostrophe -->
-<!ENTITY ast              "&#x0002A;" ><!--/ast B: =asterisk -->
-<!ENTITY brvbar           "&#x000A6;" ><!--=broken (vertical) bar -->
-<!ENTITY bsol             "&#x0005C;" ><!--/backslash =reverse solidus -->
-<!ENTITY cent             "&#x000A2;" ><!--=cent sign -->
-<!ENTITY colon            "&#x0003A;" ><!--/colon P: -->
-<!ENTITY comma            "&#x0002C;" ><!--P: =comma -->
-<!ENTITY commat           "&#x00040;" ><!--=commercial at -->
-<!ENTITY copy             "&#x000A9;" ><!--=copyright sign -->
-<!ENTITY curren           "&#x000A4;" ><!--=general currency sign -->
-<!ENTITY darr             "&#x02193;" ><!--/downarrow A: =downward arrow -->
-<!ENTITY deg              "&#x000B0;" ><!--=degree sign -->
-<!ENTITY divide           "&#x000F7;" ><!--/div B: =divide sign -->
-<!ENTITY dollar           "&#x00024;" ><!--=dollar sign -->
-<!ENTITY equals           "&#x0003D;" ><!--=equals sign R: -->
-<!ENTITY excl             "&#x00021;" ><!--=exclamation mark -->
-<!ENTITY frac12           "&#x000BD;" ><!--=fraction one-half -->
-<!ENTITY frac14           "&#x000BC;" ><!--=fraction one-quarter -->
-<!ENTITY frac18           "&#x0215B;" ><!--=fraction one-eighth -->
-<!ENTITY frac34           "&#x000BE;" ><!--=fraction three-quarters -->
-<!ENTITY frac38           "&#x0215C;" ><!--=fraction three-eighths -->
-<!ENTITY frac58           "&#x0215D;" ><!--=fraction five-eighths -->
-<!ENTITY frac78           "&#x0215E;" ><!--=fraction seven-eighths -->
-<!ENTITY gt               "&#x0003E;" ><!--=greater-than sign R: -->
-<!ENTITY half             "&#x000BD;" ><!--=fraction one-half -->
-<!ENTITY horbar           "&#x02015;" ><!--=horizontal bar -->
-<!ENTITY hyphen           "&#x02010;" ><!--=hyphen -->
-<!ENTITY iexcl            "&#x000A1;" ><!--=inverted exclamation mark -->
-<!ENTITY iquest           "&#x000BF;" ><!--=inverted question mark -->
-<!ENTITY laquo            "&#x000AB;" ><!--=angle quotation mark, left -->
-<!ENTITY larr             "&#x02190;" ><!--/leftarrow /gets A: =leftward arrow -->
-<!ENTITY lcub             "&#x0007B;" ><!--/lbrace O: =left curly bracket -->
-<!ENTITY ldquo            "&#x0201C;" ><!--=double quotation mark, left -->
-<!ENTITY lowbar           "&#x0005F;" ><!--=low line -->
-<!ENTITY lpar             "&#x00028;" ><!--O: =left parenthesis -->
-<!ENTITY lsqb             "&#x0005B;" ><!--/lbrack O: =left square bracket -->
-<!ENTITY lsquo            "&#x02018;" ><!--=single quotation mark, left -->
-<!--HELM: deleted the central &: 
-<!ENTITY lt               "&#x26;&#x0003C;" >-->
-<!ENTITY lt               "&#x26;#x0003C;" ><!--=less-than sign R: -->
-<!ENTITY micro            "&#x000B5;" ><!--=micro sign -->
-<!ENTITY middot           "&#x000B7;" ><!--/centerdot B: =middle dot -->
-<!ENTITY nbsp             "&#x000A0;" ><!--=no break (required) space -->
-<!ENTITY not              "&#x000AC;" ><!--/neg /lnot =not sign -->
-<!ENTITY num              "&#x00023;" ><!--=number sign -->
-<!ENTITY ohm              "&#x02126;" ><!--=ohm sign -->
-<!ENTITY ordf             "&#x000AA;" ><!--=ordinal indicator, feminine -->
-<!ENTITY ordm             "&#x000BA;" ><!--=ordinal indicator, masculine -->
-<!ENTITY para             "&#x000B6;" ><!--=pilcrow (paragraph sign) -->
-<!ENTITY percnt           "&#x00025;" ><!--=percent sign -->
-<!ENTITY period           "&#x0002E;" ><!--=full stop, period -->
-<!ENTITY plus             "&#x0002B;" ><!--=plus sign B: -->
-<!ENTITY plusmn           "&#x000B1;" ><!--/pm B: =plus-or-minus sign -->
-<!ENTITY pound            "&#x000A3;" ><!--=pound sign -->
-<!ENTITY quest            "&#x0003F;" ><!--=question mark -->
-<!ENTITY quot             "&#x00022;" ><!--=quotation mark -->
-<!ENTITY raquo            "&#x000BB;" ><!--=angle quotation mark, right -->
-<!ENTITY rarr             "&#x02192;" ><!--/rightarrow /to A: =rightward arrow -->
-<!ENTITY rcub             "&#x0007D;" ><!--/rbrace C: =right curly bracket -->
-<!ENTITY rdquo            "&#x0201D;" ><!--=double quotation mark, right -->
-<!ENTITY reg              "&#x000AE;" ><!--/circledR =registered sign -->
-<!ENTITY rpar             "&#x00029;" ><!--C: =right parenthesis -->
-<!ENTITY rsqb             "&#x0005D;" ><!--/rbrack C: =right square bracket -->
-<!ENTITY rsquo            "&#x02019;" ><!--=single quotation mark, right -->
-<!ENTITY sect             "&#x000A7;" ><!--=section sign -->
-<!ENTITY semi             "&#x0003B;" ><!--=semicolon P: -->
-<!ENTITY shy              "&#x000AD;" ><!--=soft hyphen -->
-<!ENTITY sol              "&#x0002F;" ><!--=solidus -->
-<!ENTITY sung             "&#x0266A;" ><!--=music note (sung text sign) -->
-<!ENTITY sup1             "&#x000B9;" ><!--=superscript one -->
-<!ENTITY sup2             "&#x000B2;" ><!--=superscript two -->
-<!ENTITY sup3             "&#x000B3;" ><!--=superscript three -->
-<!ENTITY times            "&#x000D7;" ><!--/times B: =multiply sign -->
-<!ENTITY trade            "&#x02122;" ><!--=trade mark sign -->
-<!ENTITY uarr             "&#x02191;" ><!--/uparrow A: =upward arrow -->
-<!ENTITY verbar           "&#x0007C;" ><!--/vert =vertical bar -->
-<!ENTITY yen              "&#x000A5;" ><!--/yen =yen sign -->

diff --git a/helm/dtd/isopub.ent b/helm/dtd/isopub.ent
deleted file mode 100644 (file)
index 5591fc3..0000000
--- a/helm/dtd/isopub.ent
+++ /dev/null
@@ -1,111 +0,0 @@
-
-<!--
-     File isopub.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1986
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY blank            "&#x02423;" ><!--=significant blank symbol -->
-<!ENTITY blk12            "&#x02592;" ><!--=50% shaded block -->
-<!ENTITY blk14            "&#x02591;" ><!--=25% shaded block -->
-<!ENTITY blk34            "&#x02593;" ><!--=75% shaded block -->
-<!ENTITY block            "&#x02588;" ><!--=full block -->
-<!ENTITY bull             "&#x02022;" ><!--/bullet B: =round bullet, filled -->
-<!ENTITY caret            "&#x02041;" ><!--=caret (insertion mark) -->
-<!ENTITY check            "&#x02713;" ><!--/checkmark =tick, check mark -->
-<!ENTITY cir              "&#x025CB;" ><!--/circ B: =circle, open -->
-<!ENTITY clubs            "&#x02663;" ><!--/clubsuit =club suit symbol  -->
-<!ENTITY copysr           "&#x02117;" ><!--=sound recording copyright sign -->
-<!ENTITY cross            "&#x02717;" ><!--=ballot cross -->
-<!ENTITY dagger           "&#x02020;" ><!--/dagger B: =dagger -->
-<!ENTITY Dagger           "&#x02021;" ><!--/ddagger B: =double dagger -->
-<!ENTITY dash             "&#x02010;" ><!--=hyphen (true graphic) -->
-<!ENTITY diams            "&#x02666;" ><!--/diamondsuit =diamond suit symbol  -->
-<!ENTITY dlcrop           "&#x0230D;" ><!--downward left crop mark  -->
-<!ENTITY drcrop           "&#x0230C;" ><!--downward right crop mark  -->
-<!ENTITY dtri             "&#x025BF;" ><!--/triangledown =down triangle, open -->
-<!ENTITY dtrif            "&#x025BE;" ><!--/blacktriangledown =dn tri, filled -->
-<!ENTITY emsp             "&#x02003;" ><!--=em space -->
-<!ENTITY emsp13           "&#x02004;" ><!--=1/3-em space -->
-<!ENTITY emsp14           "&#x02005;" ><!--=1/4-em space -->
-<!ENTITY ensp             "&#x02002;" ><!--=en space (1/2-em) -->
-<!ENTITY female           "&#x02640;" ><!--=female symbol -->
-<!ENTITY ffilig           "&#x0FB03;" ><!--small ffi ligature -->
-<!ENTITY fflig            "&#x0FB00;" ><!--small ff ligature -->
-<!ENTITY ffllig           "&#x0FB04;" ><!--small ffl ligature -->
-<!ENTITY filig            "&#x0FB01;" ><!--small fi ligature -->
-<!ENTITY flat             "&#x0266D;" ><!--/flat =musical flat -->
-<!ENTITY fllig            "&#x0FB02;" ><!--small fl ligature -->
-<!ENTITY frac13           "&#x02153;" ><!--=fraction one-third -->
-<!ENTITY frac15           "&#x02155;" ><!--=fraction one-fifth -->
-<!ENTITY frac16           "&#x02159;" ><!--=fraction one-sixth -->
-<!ENTITY frac23           "&#x02154;" ><!--=fraction two-thirds -->
-<!ENTITY frac25           "&#x02156;" ><!--=fraction two-fifths -->
-<!ENTITY frac35           "&#x02157;" ><!--=fraction three-fifths -->
-<!ENTITY frac45           "&#x02158;" ><!--=fraction four-fifths -->
-<!ENTITY frac56           "&#x0215A;" ><!--=fraction five-sixths -->
-<!ENTITY hairsp           "&#x0200A;" ><!--=hair space -->
-<!ENTITY hearts           "&#x02661;" ><!--/heartsuit =heart suit symbol  -->
-<!ENTITY hellip           "&#x02026;" ><!--=ellipsis (horizontal) -->
-<!ENTITY hybull           "&#x02043;" ><!--rectangle, filled (hyphen bullet) -->
-<!ENTITY incare           "&#x02105;" ><!--=in-care-of symbol -->
-<!ENTITY ldquor           "&#x0201E;" ><!--=rising dbl quote, left (low) -->
-<!ENTITY lhblk            "&#x02584;" ><!--=lower half block -->
-<!ENTITY loz              "&#x025CA;" ><!--/lozenge - lozenge or total mark -->
-<!ENTITY lozf             "&#x029EB;" ><!--/blacklozenge - lozenge, filled -->
-<!ENTITY lsquor           "&#x0201A;" ><!--=rising single quote, left (low) -->
-<!ENTITY ltri             "&#x025C3;" ><!--/triangleleft B: l triangle, open -->
-<!ENTITY ltrif            "&#x025C2;" ><!--/blacktriangleleft R: =l tri, filled -->
-<!ENTITY male             "&#x02642;" ><!--=male symbol -->
-<!ENTITY malt             "&#x02720;" ><!--/maltese =maltese cross -->
-<!ENTITY marker           "&#x025AE;" ><!--=histogram marker -->
-<!ENTITY mdash            "&#x02014;" ><!--=em dash  -->
-<!ENTITY mldr             "&#x02026;" ><!--em leader -->
-<!ENTITY natur            "&#x0266E;" ><!--/natural - music natural -->
-<!ENTITY ndash            "&#x02013;" ><!--=en dash -->
-<!ENTITY nldr             "&#x02025;" ><!--=double baseline dot (en leader) -->
-<!ENTITY numsp            "&#x02007;" ><!--=digit space (width of a number) -->
-<!ENTITY phone            "&#x0260E;" ><!--=telephone symbol  -->
-<!ENTITY puncsp           "&#x02008;" ><!--=punctuation space (width of comma) -->
-<!ENTITY rdquor           "&#x0201D;" ><!--rising dbl quote, right (high) -->
-<!ENTITY rect             "&#x025AD;" ><!--=rectangle, open -->
-<!ENTITY rsquor           "&#x02019;" ><!--rising single quote, right (high) -->
-<!ENTITY rtri             "&#x025B9;" ><!--/triangleright B: r triangle, open -->
-<!ENTITY rtrif            "&#x025B8;" ><!--/blacktriangleright R: =r tri, filled -->
-<!ENTITY rx               "&#x0211E;" ><!--pharmaceutical prescription (Rx) -->
-<!ENTITY sext             "&#x02736;" ><!--sextile (6-pointed star) -->
-<!ENTITY sharp            "&#x0266F;" ><!--/sharp =musical sharp -->
-<!ENTITY spades           "&#x02660;" ><!--/spadesuit =spades suit symbol  -->
-<!ENTITY squ              "&#x025A1;" ><!--=square, open -->
-<!ENTITY squf             "&#x025AA;" ><!--/blacksquare =sq bullet, filled -->
-<!ENTITY star             "&#x022C6;" ><!--=star, open -->
-<!ENTITY starf            "&#x02605;" ><!--/bigstar - star, filled  -->
-<!ENTITY target           "&#x02316;" ><!--register mark or target -->
-<!ENTITY telrec           "&#x02315;" ><!--=telephone recorder symbol -->
-<!ENTITY thinsp           "&#x02009;" ><!--=thin space (1/6-em) -->
-<!ENTITY uhblk            "&#x02580;" ><!--=upper half block -->
-<!ENTITY ulcrop           "&#x0230F;" ><!--upward left crop mark  -->
-<!ENTITY urcrop           "&#x0230E;" ><!--upward right crop mark  -->
-<!ENTITY utri             "&#x025B5;" ><!--/triangle =up triangle, open -->
-<!ENTITY utrif            "&#x025B4;" ><!--/blacktriangle =up tri, filled -->
-<!ENTITY vellip           "&#x022EE;" ><!--vertical ellipsis -->

diff --git a/helm/dtd/isotech.ent b/helm/dtd/isotech.ent
deleted file mode 100644 (file)
index 8b30af8..0000000
--- a/helm/dtd/isotech.ent
+++ /dev/null
@@ -1,183 +0,0 @@
-
-<!--
-     File isotech.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
-     Entity names in this file are derived from files carrying the
-     following notice:
-
-     (C) International Organization for Standardization 1991
-     Permission to copy in any form is granted for use with
-     conforming SGML systems and applications as defined in
-     ISO 8879, provided this notice is included in all copies.
-
--->
-
-<!ENTITY acd              "&#x0223F;" ><!--ac current -->
-<!ENTITY aleph            "&#x02135;" ><!--/aleph aleph, Hebrew -->
-<!ENTITY and              "&#x02227;" ><!--/wedge /land B: logical and -->
-<!ENTITY And              "&#x02A53;" ><!--dbl logical and -->
-<!ENTITY andand           "&#x02A55;" ><!--two logical and -->
-<!ENTITY andd             "&#x02A5C;" ><!--and, horizontal dash -->
-<!ENTITY andslope         "&#x02A58;" ><!--sloping large and -->
-<!ENTITY andv             "&#x02A5A;" ><!--and with middle stem -->
-<!ENTITY angrt            "&#x0221F;" ><!--right (90 degree) angle -->
-<!ENTITY angsph           "&#x02222;" ><!--/sphericalangle angle-spherical -->
-<!ENTITY angst            "&#x0212B;" ><!--Angstrom capital A, ring -->
-<!ENTITY ap               "&#x02248;" ><!--/approx R: approximate -->
-<!ENTITY apacir           "&#x02A6F;" ><!--approximate, circumflex accent -->
-<!ENTITY awconint         "&#x02233;" ><!--contour integral, anti-clockwise -->
-<!ENTITY awint            "&#x02A11;" ><!--anti clock-wise integration -->
-<!ENTITY becaus           "&#x02235;" ><!--/because R: because -->
-<!ENTITY bernou           "&#x0212C;" ><!--Bernoulli function (script capital B)  -->
-<!ENTITY bne              "&#x0003D;&#x020E5;" ><!--reverse not equal -->
-<!ENTITY bnequiv          "&#x02261;&#x020E5;" ><!--reverse not equivalent -->
-<!ENTITY bnot             "&#x02310;" ><!--reverse not -->
-<!ENTITY bNot             "&#x02AED;" ><!--reverse not with two horizontal strokes -->
-<!ENTITY bottom           "&#x022A5;" ><!--/bot bottom -->
-<!ENTITY cap              "&#x02229;" ><!--/cap B: intersection -->
-<!ENTITY Cconint          "&#x02230;" ><!--triple contour integral operator -->
-<!ENTITY cirfnint         "&#x02A10;" ><!--circulation function -->
-<!ENTITY compfn           "&#x02218;" ><!--/circ B: composite function (small circle) -->
-<!ENTITY cong             "&#x02245;" ><!--/cong R: congruent with -->
-<!ENTITY conint           "&#x0222E;" ><!--/oint L: contour integral operator -->
-<!ENTITY Conint           "&#x0222F;" ><!--double contour integral operator -->
-<!ENTITY ctdot            "&#x022EF;" ><!--/cdots, three dots, centered -->
-<!ENTITY cup              "&#x0222A;" ><!--/cup B: union or logical sum -->
-<!ENTITY cwconint         "&#x02232;" ><!--contour integral, clockwise -->
-<!ENTITY cwint            "&#x02231;" ><!--clockwise integral -->
-<!ENTITY cylcty           "&#x0232D;" ><!--cylindricity -->
-<!ENTITY disin            "&#x022F2;" ><!--set membership, long horizontal stroke -->
-<!ENTITY Dot              "&#x000A8;" ><!--dieresis or umlaut mark -->
-<!ENTITY DotDot           "&#x020DC;" ><!--four dots above -->
-<!ENTITY dsol             "&#x02052;" ><!--solidus, bar above -->
-<!ENTITY dtdot            "&#x022F1;" ><!--/ddots, three dots, descending -->
-<!ENTITY dwangle          "&#x029A6;" ><!--large downward pointing angle -->
-<!ENTITY epar             "&#x022D5;" ><!--parallel, equal; equal or parallel -->
-<!ENTITY eparsl           "&#x029E3;" ><!--parallel, slanted, equal; homothetically congruent to -->
-<!ENTITY equiv            "&#x02261;" ><!--/equiv R: identical with -->
-<!ENTITY eqvparsl         "&#x029E5;" ><!--equivalent, equal; congruent and parallel -->
-<!ENTITY exist            "&#x02203;" ><!--/exists at least one exists -->
-<!ENTITY fnof             "&#x00192;" ><!--function of (italic small f) -->
-<!ENTITY forall           "&#x02200;" ><!--/forall for all -->
-<!ENTITY fpartint         "&#x02A0D;" ><!--finite part integral -->
-<!ENTITY ge               "&#x02265;" ><!--/geq /ge R: greater-than-or-equal -->
-<!ENTITY hamilt           "&#x0210B;" ><!--Hamiltonian (script capital H)  -->
-<!ENTITY iff              "&#x021D4;" ><!--/iff if and only if  -->
-<!ENTITY iinfin           "&#x029DC;" ><!--infinity sign, incomplete -->
-<!ENTITY imped "<%mchar.qname; name='imped'/>" ><!--(1D543)impedance -->
-<!ENTITY infin            "&#x0221E;" ><!--/infty infinity -->
-<!ENTITY int              "&#x0222B;" ><!--/int L: integral operator -->
-<!ENTITY Int              "&#x0222C;" ><!--double integral operator -->
-<!ENTITY intlarhk         "&#x02A17;" ><!--integral, left arrow with hook -->
-<!ENTITY isin             "&#x02208;" ><!--/in R: set membership  -->
-<!ENTITY isindot          "&#x022F5;" ><!--set membership, dot above -->
-<!ENTITY isinE            "&#x022F9;" ><!--set membership, two horizontal strokes -->
-<!ENTITY isins            "&#x022F4;" ><!--set membership, vertical bar on horizontal stroke -->
-<!ENTITY isinsv           "&#x022F3;" ><!--large set membership, vertical bar on horizontal stroke -->
-<!ENTITY isinv            "&#x02208;" ><!--set membership, variant -->
-<!ENTITY lagran           "&#x02112;" ><!--Lagrangian (script capital L)  -->
-<!ENTITY lang             "&#x03008;" ><!--/langle O: left angle bracket -->
-<!ENTITY Lang             "&#x0300A;" ><!--left angle bracket, double -->
-<!ENTITY lArr             "&#x021D0;" ><!--/Leftarrow A: is implied by -->
-<!ENTITY lbbrk            "&#x03014;" ><!--left broken bracket -->
-<!ENTITY le               "&#x02264;" ><!--/leq /le R: less-than-or-equal -->
-<!ENTITY loang            "&#x03018;" ><!--left open angular bracket -->
-<!ENTITY lobrk            "&#x0301A;" ><!--left open bracket -->
-<!ENTITY lopar            "&#x02985;" ><!--left open parenthesis -->
-<!ENTITY lowast           "&#x02217;" ><!--low asterisk -->
-<!ENTITY minus            "&#x02212;" ><!--B: minus sign -->
-<!ENTITY mnplus           "&#x02213;" ><!--/mp B: minus-or-plus sign -->
-<!ENTITY nabla            "&#x02207;" ><!--/nabla del, Hamilton operator -->
-<!ENTITY ne               "&#x02260;" ><!--/ne /neq R: not equal -->
-<!ENTITY nedot            "&#x02260;&#x02063;" ><!--not equal, dot -->
-<!ENTITY nhpar            "&#x02AF2;" ><!--not, horizontal, parallel -->
-<!ENTITY ni               "&#x0220B;" ><!--/ni /owns R: contains -->
-<!ENTITY nis              "&#x022FC;" ><!--contains, vertical bar on horizontal stroke -->
-<!ENTITY nisd             "&#x022FA;" ><!--contains, long horizontal stroke -->
-<!ENTITY niv              "&#x0220B;" ><!--contains, variant -->
-<!ENTITY Not              "&#x02AEC;" ><!--not with two horizontal strokes -->
-<!ENTITY notin            "&#x02209;" ><!--/notin N: negated set membership -->
-<!ENTITY notindot         "&#x022F6;&#x02063;" ><!--negated set membership, dot above -->
-<!ENTITY notinva          "&#x02209;&#x00338;" ><!--negated set membership, variant -->
-<!ENTITY notinvb          "&#x022F7;" ><!--negated set membership, variant -->
-<!ENTITY notinvc          "&#x022F6;" ><!--negated set membership, variant -->
-<!ENTITY notni            "&#x0220C;" ><!--negated contains -->
-<!ENTITY notniva          "&#x0220C;" ><!--negated contains, variant -->
-<!ENTITY notnivb          "&#x022FE;" ><!--contains, variant -->
-<!ENTITY notnivc          "&#x022FD;" ><!--contains, variant -->
-<!ENTITY nparsl           "&#x02225;&#x02063;&#x020E5;" ><!--not parallel, slanted -->
-<!ENTITY npart            "&#x02202;&#x00338;" ><!--not partial differential -->
-<!ENTITY npolint          "&#x02A14;" ><!--line integration, not including the pole -->
-<!ENTITY nvinfin          "&#x029DE;" ><!--not, vert, infinity -->
-<!ENTITY olcross          "&#x029BB;" ><!--circle, cross -->
-<!ENTITY or               "&#x02228;" ><!--/vee /lor B: logical or -->
-<!ENTITY Or               "&#x02A54;" ><!--dbl logical or -->
-<!ENTITY ord              "&#x02A5D;" ><!--or, horizontal dash -->
-<!ENTITY order            "&#x02134;" ><!--order of (script small o)  -->
-<!ENTITY oror             "&#x02A56;" ><!--two logical or -->
-<!ENTITY orslope          "&#x02A57;" ><!--sloping large or -->
-<!ENTITY orv              "&#x02A5B;" ><!--or with middle stem -->
-<!ENTITY par              "&#x02225;" ><!--/parallel R: parallel -->
-<!ENTITY parsl            "&#x02225;&#x02063;" ><!--parallel, slanted -->
-<!ENTITY part             "&#x02202;" ><!--/partial partial differential -->
-<!ENTITY permil           "&#x02030;" ><!--per thousand -->
-<!ENTITY perp             "&#x022A5;" ><!--/perp R: perpendicular -->
-<!ENTITY pertenk          "&#x02031;" ><!--per 10 thousand -->
-<!ENTITY phmmat           "&#x02133;" ><!--physics M-matrix (script capital M)  -->
-<!ENTITY pointint         "&#x02A15;" ><!--integral around a point operator -->
-<!ENTITY prime            "&#x02032;" ><!--/prime prime or minute -->
-<!ENTITY Prime            "&#x02033;" ><!--double prime or second -->
-<!ENTITY profalar         "&#x0232E;" ><!--all-around profile -->
-<!ENTITY profline         "&#x02312;" ><!--profile of a line -->
-<!ENTITY profsurf         "&#x02313;" ><!--profile of a surface -->
-<!ENTITY prop             "&#x0221D;" ><!--/propto R: is proportional to -->
-<!ENTITY qint             "&#x02A0C;" ><!--/iiiint quadruple integral operator -->
-<!ENTITY qprime           "&#x02057;" ><!--quadruple prime -->
-<!ENTITY quatint          "&#x02A16;" ><!--quaternion integral operator -->
-<!ENTITY radic            "&#x0221A;" ><!--/surd radical -->
-<!ENTITY rang             "&#x03009;" ><!--/rangle C: right angle bracket -->
-<!ENTITY Rang             "&#x0300B;" ><!--right angle bracket, double -->
-<!ENTITY rArr             "&#x021D2;" ><!--/Rightarrow A: implies -->
-<!ENTITY rbbrk            "&#x03015;" ><!--right broken bracket -->
-<!ENTITY roang            "&#x03019;" ><!--right open angular bracket -->
-<!ENTITY robrk            "&#x0301B;" ><!--right open bracket -->
-<!ENTITY ropar            "&#x02986;" ><!--right open parenthesis -->
-<!ENTITY rppolint         "&#x02A12;" ><!--line integration, rectangular path around pole -->
-<!ENTITY scpolint         "&#x02A13;" ><!--line integration, semi-circular path around pole -->
-<!ENTITY sim              "&#x0223C;" ><!--/sim R: similar -->
-<!ENTITY simdot           "&#x02A6A;" ><!--similar, dot -->
-<!ENTITY sime             "&#x02243;" ><!--/simeq R: similar, equals -->
-<!ENTITY smeparsl         "&#x029E4;" ><!--similar, parallel, slanted, equal -->
-<!ENTITY square           "&#x025A1;" ><!--/square, square -->
-<!ENTITY squarf           "&#x025AA;" ><!--/blacksquare, square, filled  -->
-<!ENTITY sub              "&#x02282;" ><!--/subset R: subset or is implied by -->
-<!ENTITY sube             "&#x02286;" ><!--/subseteq R: subset, equals -->
-<!ENTITY sup              "&#x02283;" ><!--/supset R: superset or implies -->
-<!ENTITY supe             "&#x02287;" ><!--/supseteq R: superset, equals -->
-<!ENTITY tdot             "&#x020DB;" ><!--three dots above -->
-<!ENTITY there4           "&#x02234;" ><!--/therefore R: therefore -->
-<!ENTITY tint             "&#x0222D;" ><!--/iiint triple integral operator -->
-<!ENTITY top              "&#x022A4;" ><!--/top top -->
-<!ENTITY topbot           "&#x02336;" ><!--top and bottom -->
-<!ENTITY topcir           "&#x02AF1;" ><!--top, circle below -->
-<!ENTITY tprime           "&#x02034;" ><!--triple prime -->
-<!ENTITY utdot            "&#x022F0;" ><!--three dots, ascending -->
-<!ENTITY uwangle          "&#x029A7;" ><!--large upward pointing angle -->
-<!ENTITY vangrt           "&#x022BE;" ><!--right angle, variant -->
-<!ENTITY veeeq            "&#x0225A;" ><!--logical or, equals -->
-<!ENTITY Verbar           "&#x02016;" ><!--/Vert dbl vertical bar -->
-<!ENTITY wedgeq           "&#x02259;" ><!--/wedgeq R: corresponds to (wedge, equals) -->
-<!ENTITY xnis             "&#x022FB;" ><!--large contains, vertical bar on horizontal stroke -->

diff --git a/helm/dtd/ls.dtd b/helm/dtd/ls.dtd
deleted file mode 100644 (file)
index 93997e7..0000000
--- a/helm/dtd/ls.dtd
+++ /dev/null
@@ -1,13 +0,0 @@
-<!ELEMENT ls (section*|object*)>
-
-<!ELEMENT section (#PCDATA)>
-
-<!ELEMENT object (ann,types)>
-<!ATTLIST object name CDATA #REQUIRED>
-
-<!ELEMENT ann EMPTY>
-<!ATTLIST ann value (YES|NO) #REQUIRED>
-
-<!ELEMENT types EMPTY>
-<!ATTLIST types value (YES|NO|ANN) #REQUIRED>
-

diff --git a/helm/dtd/mathml2-qname-1.mod b/helm/dtd/mathml2-qname-1.mod
deleted file mode 100644 (file)
index 4dea63a..0000000
--- a/helm/dtd/mathml2-qname-1.mod
+++ /dev/null
@@ -1,268 +0,0 @@
-<!-- ....................................................................... -->
-<!-- MathML Qualified Names Module  ........................................ -->
-<!-- file: mathml2-qname-1.mod
-
-     This is the Mathematical Markup Language (MathML) 2.0, an XML 
-     application for describing mathematical notation and capturing 
-     both its structure and content.
-
-     Copyright 1998-2000 W3C (MIT, INRIA, Keio), All Rights Reserved.
-     Revision: $Id$ 
-
-     This DTD module is identified by the PUBLIC and SYSTEM identifiers:
-
-       PUBLIC "-//W3C//ENTITIES MathML 2.0 Qualified Names 1.0//EN"
-       SYSTEM "mathml2-qname-1.mod"
-
-     Revisions:
-     (none)
-     ....................................................................... -->
-
-<!-- MathML Qualified Names
-
-     This module is contained in two parts, labeled Section 'A' and 'B':
-
-       Section A declares parameter entities to support namespace-
-       qualified names, namespace declarations, and name prefixing 
-       for MathML.
-    
-       Section B declares parameter entities used to provide
-       namespace-qualified names for all MathML element types.
-
-     This module is derived from the XHTML Qualified Names Template module.
--->
-
-<!-- Section A: XHTML XML Namespace Framework :::::::::::::::::::: -->
-
-<!-- HELM: mathml namespace activated: 
-<!ENTITY % NS.prefixed     "IGNORE" >-->
-
-<!ENTITY % NS.prefixed     "INCLUDE" >
-<!ENTITY % MATHML.prefixed "%NS.prefixed;" >
-
-<!-- XLink ............... -->
-
-<!ENTITY % XLINK.xmlns "http://www.w3.org/1999/xlink" >
-<!ENTITY % XLINK.xmlns.attrib
-     "xmlns:xlink  CDATA           #FIXED '%XLINK.xmlns;'"
->
-
-<!-- MathML .............. -->
-
-<!ENTITY % MATHML.xmlns    "http://www.w3.org/1998/Math/MathML" >
-<!ENTITY % MATHML.prefix   "m" >
-<![%MATHML.prefixed;[
-<!ENTITY % MATHML.xmlns.extra.attrib  "" >
-]]>
-<!ENTITY % MATHML.xmlns.extra.attrib 
-     "%XLINK.xmlns.attrib;" >
-
-<![%MATHML.prefixed;[
-<!ENTITY % MATHML.pfx  "%MATHML.prefix;:" >
-<!ENTITY % MATHML.xmlns.attrib
-     "xmlns:%MATHML.prefix;  CDATA   #FIXED '%MATHML.xmlns;'
-      %MATHML.xmlns.extra.attrib;"
->
-]]>
-<!ENTITY % MATHML.pfx  "" >
-<!ENTITY % MATHML.xmlns.attrib
-     "xmlns        CDATA           #FIXED '%MATHML.xmlns;'
-      %MATHML.xmlns.extra.attrib;"
->
-
-<![%NS.prefixed;[
-<!ENTITY % XHTML.xmlns.extra.attrib 
-     "%MATHML.xmlns.attrib;" >
-]]>
-<!ENTITY % XHTML.xmlns.extra.attrib
-     "%XLINK.xmlns.attrib;"
->
-
-<!-- Section B: MathML Qualified Names ::::::::::::::::::::::::::::: -->
-
-<!-- 9. This section declares parameter entities used to provide
-        namespace-qualified names for all MathML element types.
--->
-
-<!ENTITY % mspace.qname         "%MATHML.pfx;mspace" >
-<!ENTITY % mprescripts.qname    "%MATHML.pfx;mprescripts" >
-<!ENTITY % none.qname           "%MATHML.pfx;none" >
-<!ENTITY % malignmark.qname     "%MATHML.pfx;malignmark" >
-<!ENTITY % maligngroup.qname    "%MATHML.pfx;maligngroup" >
-<!ENTITY % mchar.qname          "%MATHML.pfx;mchar" >
-<!ENTITY % mglyph.qname         "%MATHML.pfx;mglyph" >
-<!ENTITY % integers.qname       "%MATHML.pfx;integers" >
-<!ENTITY % reals.qname          "%MATHML.pfx;reals" >
-<!ENTITY % rationals.qname      "%MATHML.pfx;rationals" >
-<!ENTITY % naturalnumbers.qname "%MATHML.pfx;naturalnumbers" >
-<!ENTITY % complexes.qname      "%MATHML.pfx;complexes" >
-<!ENTITY % primes.qname         "%MATHML.pfx;primes" >
-<!ENTITY % exponentiale.qname   "%MATHML.pfx;exponentiale" >
-<!ENTITY % imaginaryi.qname     "%MATHML.pfx;imaginaryi" >
-<!ENTITY % notanumber.qname     "%MATHML.pfx;notanumber" >
-<!ENTITY % true.qname           "%MATHML.pfx;true" >
-<!ENTITY % false.qname          "%MATHML.pfx;false" >
-<!ENTITY % emptyset.qname       "%MATHML.pfx;emptyset" >
-<!ENTITY % pi.qname             "%MATHML.pfx;pi" >
-<!ENTITY % eulergamma.qname     "%MATHML.pfx;eulergamma" >
-<!ENTITY % infinity.qname       "%MATHML.pfx;infinity" >
-<!ENTITY % sep.qname            "%MATHML.pfx;sep" >
-<!ENTITY % inverse.qname        "%MATHML.pfx;inverse" >
-<!ENTITY % ident.qname          "%MATHML.pfx;ident" >
-<!ENTITY % compose.qname        "%MATHML.pfx;compose" >
-<!ENTITY % exp.qname            "%MATHML.pfx;exp" >
-<!ENTITY % abs.qname            "%MATHML.pfx;abs" >
-<!ENTITY % arg.qname            "%MATHML.pfx;arg" >
-<!ENTITY % real.qname           "%MATHML.pfx;real" >
-<!ENTITY % imaginary.qname      "%MATHML.pfx;imaginary" >
-<!ENTITY % conjugate.qname      "%MATHML.pfx;conjugate" >
-<!ENTITY % factorial.qname      "%MATHML.pfx;factorial" >
-<!ENTITY % minus.qname          "%MATHML.pfx;minus" >
-<!ENTITY % quotient.qname       "%MATHML.pfx;quotient" >
-<!ENTITY % divide.qname         "%MATHML.pfx;divide" >
-<!ENTITY % power.qname          "%MATHML.pfx;power" >
-<!ENTITY % rem.qname            "%MATHML.pfx;rem" >
-<!ENTITY % plus.qname           "%MATHML.pfx;plus" >
-<!ENTITY % max.qname            "%MATHML.pfx;max" >
-<!ENTITY % min.qname            "%MATHML.pfx;min" >
-<!ENTITY % times.qname          "%MATHML.pfx;times" >
-<!ENTITY % gcd.qname            "%MATHML.pfx;gcd" >
-<!ENTITY % lcm.qname            "%MATHML.pfx;lcm" >
-<!ENTITY % root.qname           "%MATHML.pfx;root" >
-<!ENTITY % exists.qname         "%MATHML.pfx;exists" >
-<!ENTITY % forall.qname         "%MATHML.pfx;forall" >
-<!ENTITY % and.qname            "%MATHML.pfx;and" >
-<!ENTITY % or.qname             "%MATHML.pfx;or" >
-<!ENTITY % xor.qname            "%MATHML.pfx;xor" >
-<!ENTITY % not.qname            "%MATHML.pfx;not" >
-<!ENTITY % implies.qname        "%MATHML.pfx;implies" >
-<!ENTITY % divergence.qname     "%MATHML.pfx;divergence" >
-<!ENTITY % grad.qname           "%MATHML.pfx;grad" >
-<!ENTITY % curl.qname           "%MATHML.pfx;curl" >
-<!ENTITY % laplacian.qname      "%MATHML.pfx;laplacian" >
-<!ENTITY % log.qname            "%MATHML.pfx;log" >
-<!ENTITY % int.qname            "%MATHML.pfx;int" >
-<!ENTITY % diff.qname           "%MATHML.pfx;diff" >
-<!ENTITY % partialdiff.qname    "%MATHML.pfx;partialdiff" >
-<!ENTITY % ln.qname             "%MATHML.pfx;ln" >
-<!ENTITY % card.qname           "%MATHML.pfx;card" >
-<!ENTITY % setdiff.qname        "%MATHML.pfx;setdiff" >
-<!ENTITY % union.qname          "%MATHML.pfx;union" >
-<!ENTITY % intersect.qname      "%MATHML.pfx;intersect" >
-<!ENTITY % sum.qname            "%MATHML.pfx;sum" >
-<!ENTITY % product.qname        "%MATHML.pfx;product" >
-<!ENTITY % limit.qname          "%MATHML.pfx;limit" >
-<!ENTITY % sin.qname            "%MATHML.pfx;sin" >
-<!ENTITY % cos.qname            "%MATHML.pfx;cos" >
-<!ENTITY % tan.qname            "%MATHML.pfx;tan" >
-<!ENTITY % sec.qname            "%MATHML.pfx;sec" >
-<!ENTITY % csc.qname            "%MATHML.pfx;csc" >
-<!ENTITY % cot.qname            "%MATHML.pfx;cot" >
-<!ENTITY % sinh.qname           "%MATHML.pfx;sinh" >
-<!ENTITY % cosh.qname           "%MATHML.pfx;cosh" >
-<!ENTITY % tanh.qname           "%MATHML.pfx;tanh" >
-<!ENTITY % sech.qname           "%MATHML.pfx;sech" >
-<!ENTITY % csch.qname           "%MATHML.pfx;csch" >
-<!ENTITY % coth.qname           "%MATHML.pfx;coth" >
-<!ENTITY % arcsin.qname         "%MATHML.pfx;arcsin" >
-<!ENTITY % arccos.qname         "%MATHML.pfx;arccos" >
-<!ENTITY % arctan.qname         "%MATHML.pfx;arctan" >
-<!ENTITY % arccosh.qname        "%MATHML.pfx;arccosh" >
-<!ENTITY % arccot.qname         "%MATHML.pfx;arccot" >
-<!ENTITY % arccoth.qname        "%MATHML.pfx;arccoth" >
-<!ENTITY % arccsc.qname         "%MATHML.pfx;arccsc" >
-<!ENTITY % arccsch.qname        "%MATHML.pfx;arccsch" >
-<!ENTITY % arcsec.qname         "%MATHML.pfx;arcsec" >
-<!ENTITY % arcsech.qname        "%MATHML.pfx;arcsech" >
-<!ENTITY % arcsinh.qname        "%MATHML.pfx;arcsinh" >
-<!ENTITY % arctanh.qname        "%MATHML.pfx;arctanh" >
-<!ENTITY % arccosh.qname        "%MATHML.pfx;arccosh" >
-<!ENTITY % mean.qname           "%MATHML.pfx;mean" >
-<!ENTITY % sdev.qname           "%MATHML.pfx;sdev" >
-<!ENTITY % variance.qname       "%MATHML.pfx;variance" >
-<!ENTITY % median.qname         "%MATHML.pfx;median" >
-<!ENTITY % mode.qname           "%MATHML.pfx;mode" >
-<!ENTITY % moment.qname         "%MATHML.pfx;moment" >
-<!ENTITY % determinant.qname    "%MATHML.pfx;determinant" >
-<!ENTITY % transpose.qname      "%MATHML.pfx;transpose" >
-<!ENTITY % vectorproduct.qname  "%MATHML.pfx;vectorproduct" >
-<!ENTITY % scalarproduct.qname  "%MATHML.pfx;scalarproduct" >
-<!ENTITY % outerproduct.qname   "%MATHML.pfx;outerproduct" >
-<!ENTITY % selector.qname       "%MATHML.pfx;selector" >
-<!ENTITY % neq.qname            "%MATHML.pfx;neq" >
-<!ENTITY % eq.qname             "%MATHML.pfx;eq" >
-<!ENTITY % equivalent.qname     "%MATHML.pfx;equivalent" >
-<!ENTITY % approx.qname         "%MATHML.pfx;approx" >
-<!ENTITY % gt.qname             "%MATHML.pfx;gt" >
-<!ENTITY % lt.qname             "%MATHML.pfx;lt" >
-<!ENTITY % geq.qname            "%MATHML.pfx;geq" >
-<!ENTITY % leq.qname            "%MATHML.pfx;leq" >
-<!ENTITY % in.qname             "%MATHML.pfx;in" >
-<!ENTITY % notin.qname          "%MATHML.pfx;notin" >
-<!ENTITY % notsubset.qname      "%MATHML.pfx;notsubset" >
-<!ENTITY % notprsubset.qname    "%MATHML.pfx;notprsubset" >
-<!ENTITY % subset.qname         "%MATHML.pfx;subset" >
-<!ENTITY % prsubset.qname       "%MATHML.pfx;prsubset" >
-<!ENTITY % tendsto.qname        "%MATHML.pfx;tendsto" >
-<!ENTITY % ci.qname             "%MATHML.pfx;ci" >
-<!ENTITY % csymbol.qname        "%MATHML.pfx;csymbol" >
-<!ENTITY % cn.qname             "%MATHML.pfx;cn" >
-<!ENTITY % apply.qname          "%MATHML.pfx;apply" >
-<!ENTITY % reln.qname           "%MATHML.pfx;reln" >
-<!ENTITY % lambda.qname         "%MATHML.pfx;lambda" >
-<!ENTITY % condition.qname      "%MATHML.pfx;condition" >
-<!ENTITY % declare.qname        "%MATHML.pfx;declare" >
-<!ENTITY % type.qname           "%MATHML.pfx;type" >
-<!ENTITY % semantics.qname      "%MATHML.pfx;semantics" >
-<!ENTITY % annotation.qname     "%MATHML.pfx;annotation" >
-<!ENTITY % annotation-xml.qname "%MATHML.pfx;annotation-xml" >
-<!ENTITY % interval.qname       "%MATHML.pfx;interval" >
-<!ENTITY % set.qname            "%MATHML.pfx;set" >
-<!ENTITY % list.qname           "%MATHML.pfx;list" >
-<!ENTITY % vector.qname         "%MATHML.pfx;vector" >
-<!ENTITY % matrix.qname         "%MATHML.pfx;matrix" >
-<!ENTITY % matrixrow.qname      "%MATHML.pfx;matrixrow" >
-<!ENTITY % fn.qname             "%MATHML.pfx;fn" >
-<!ENTITY % lowlimit.qname       "%MATHML.pfx;lowlimit" >
-<!ENTITY % uplimit.qname        "%MATHML.pfx;uplimit" >
-<!ENTITY % bvar.qname           "%MATHML.pfx;bvar" >
-<!ENTITY % degree.qname         "%MATHML.pfx;degree" >
-<!ENTITY % logbase.qname        "%MATHML.pfx;logbase" >
-<!ENTITY % mstyle.qname         "%MATHML.pfx;mstyle" >
-<!ENTITY % merror.qname         "%MATHML.pfx;merror" >
-<!ENTITY % mphantom.qname       "%MATHML.pfx;mphantom" >
-<!ENTITY % mrow.qname           "%MATHML.pfx;mrow" >
-<!ENTITY % mfrac.qname          "%MATHML.pfx;mfrac" >
-<!ENTITY % msqrt.qname          "%MATHML.pfx;msqrt" >
-<!ENTITY % menclose.qname       "%MATHML.pfx;menclose" >
-<!ENTITY % mroot.qname          "%MATHML.pfx;mroot" >
-<!ENTITY % msub.qname           "%MATHML.pfx;msub" >
-<!ENTITY % msup.qname           "%MATHML.pfx;msup" >
-<!ENTITY % msubsup.qname        "%MATHML.pfx;msubsup" >
-<!ENTITY % mmultiscripts.qname  "%MATHML.pfx;mmultiscripts" >
-<!ENTITY % munder.qname         "%MATHML.pfx;munder" >
-<!ENTITY % mover.qname          "%MATHML.pfx;mover" >
-<!ENTITY % munderover.qname     "%MATHML.pfx;munderover" >
-<!ENTITY % mtable.qname         "%MATHML.pfx;mtable" >
-<!ENTITY % mtr.qname            "%MATHML.pfx;mtr" >
-<!ENTITY % mlabeledtr.qname     "%MATHML.pfx;mlabeledtr" >
-<!ENTITY % mtd.qname            "%MATHML.pfx;mtd" >
-<!ENTITY % maction.qname        "%MATHML.pfx;maction" >
-<!ENTITY % mfenced.qname        "%MATHML.pfx;mfenced" >
-<!ENTITY % mpadded.qname        "%MATHML.pfx;mpadded" >
-<!ENTITY % mi.qname             "%MATHML.pfx;mi" >
-<!ENTITY % mn.qname             "%MATHML.pfx;mn" >
-<!ENTITY % mo.qname             "%MATHML.pfx;mo" >
-<!ENTITY % mtext.qname          "%MATHML.pfx;mtext" >
-<!ENTITY % ms.qname             "%MATHML.pfx;ms" >
-<!ENTITY % math.qname           "%MATHML.pfx;math" >
-
-
-<!-- ignores subsequent instantiation of this module when
-     used as external subset rather than module fragment.
-     NOTE: Do not modify this parameter entity, otherwise
-     a recursive parsing situation may result.
--->
-<!ENTITY % mathml-qname.module "IGNORE" >
-
-<!-- end of template-qname-1.mod -->

diff --git a/helm/dtd/mathml2.dtd b/helm/dtd/mathml2.dtd
deleted file mode 100644 (file)
index a9b7bf1..0000000
--- a/helm/dtd/mathml2.dtd
+++ /dev/null
@@ -1,1948 +0,0 @@
-<!-- MathML 2.0 DTD  ....................................................... -->
-<!-- file: mathml2.dtd
--->
-
-<!-- MathML 2.0 DTD
-
-     This is the Mathematical Markup Language (MathML) 2.0, an XML
-     application for describing mathematical notation and capturing
-     both its structure and content.
-
-     Copyright 1998-2000 World Wide Web Consortium
-        (Massachusetts Institute of Technology, Institut National de
-         Recherche en Informatique et en Automatique, Keio University).
-         All Rights Reserved.
-
-     Permission to use, copy, modify and distribute the XHTML 1.1 DTD and
-     its accompanying documentation for any purpose and without fee is
-     hereby granted in perpetuity, provided that the above copyright notice
-     and this paragraph appear in all copies.  The copyright holders make
-     no representation about the suitability of the DTD for any purpose.
-
-     It is provided "as is" without expressed or implied warranty.
-
-        Revision:   $Id$
-
-     This entity may be identified by the PUBLIC and SYSTEM identifiers:
-
-       PUBLIC "-//W3C//DTD MathML 2.0//EN"
-       SYSTEM "mathml2.dtd"
-
-     Revisions: editor and revision history at EOF
--->
-
-
-<!-- MathML Qualified Names module ............................... -->
-<!ENTITY % mathml-qname.module "INCLUDE" >
-<![%mathml-qname.module;[
-<!ENTITY % mathml-qname.mod
-     PUBLIC "-//W3C//ENTITIES MathML 2.0 Qualified Names 1.0//EN"
-            "mathml2-qname-1.mod" >
-%mathml-qname.mod;]]>
-
-<!-- if %NS.prefixed; is INCLUDE, include all NS attributes, 
-     otherwise just those associated with MathML
--->
-<![%NS.prefixed;[
-<!-- HELM: %NamespaceDecl.attrib; not declared !! ENTITY substituted
-<!ENTITY % MATHML.NamespaceDecl.attrib 
-     "%NamespaceDecl.attrib;"
->-->
-<!ENTITY % MATHML.NamespaceDecl.attrib 
-     "%MATHML.xmlns.attrib;"
->
-]]>
-<!ENTITY % MATHML.NamespaceDecl.attrib 
-     "%MATHML.xmlns.attrib;"
->
-
-<!-- Attributes shared by all elements  .......................... -->
-
-<!ENTITY % MATHML.Common.attrib
-     "%MATHML.NamespaceDecl.attrib;
-      xlink:href   CDATA                    #IMPLIED
-      class        CDATA                    #IMPLIED
-      style        CDATA                    #IMPLIED
-      id           ID                       #IMPLIED
-      xref         IDREF                    #IMPLIED
-      other        CDATA                    #IMPLIED"
->
-
-<!-- Presentation element set  ................................... -->
-
-<!-- Attribute definitions -->
-
-<!ENTITY % att-fontsize
-     "fontsize     CDATA                    #IMPLIED" >
-<!ENTITY % att-fontweight
-     "fontweight   ( normal | bold )        #IMPLIED" >
-<!ENTITY % att-fontstyle
-     "fontstyle    ( normal | italic )      #IMPLIED" >
-<!ENTITY % att-fontfamily
-     "fontfamily   CDATA                    #IMPLIED" >
-<!ENTITY % att-color
-     "color        CDATA                    #IMPLIED" >
-
-<!ENTITY % att-fontinfo
-     "%att-fontsize;
-      %att-fontweight;
-      %att-fontstyle;
-      %att-fontfamily;
-      %att-color;"
->
-
-<!ENTITY % att-form
-     "form         ( prefix | infix | postfix )  #IMPLIED" >
-<!ENTITY % att-fence
-     "fence        ( true | false )         #IMPLIED" >
-<!ENTITY % att-separator
-     "separator    ( true | false )         #IMPLIED" >
-<!ENTITY % att-lspace
-     "lspace       CDATA                    #IMPLIED" >
-<!ENTITY % att-rspace
-     "rspace       CDATA                    #IMPLIED" >
-<!ENTITY % att-stretchy
-     "stretchy     ( true | false )         #IMPLIED" >
-<!ENTITY % att-symmetric
-     "symmetric    ( true | false )         #IMPLIED" >
-<!ENTITY % att-maxsize
-     "maxsize      CDATA                    #IMPLIED" >
-<!ENTITY % att-minsize
-     "minsize      CDATA                    #IMPLIED" >
-<!ENTITY % att-largeop
-     "largeop      ( true | false)          #IMPLIED" >
-<!ENTITY % att-movablelimits
-     "movablelimits ( true | false )        #IMPLIED" >
-<!ENTITY % att-accent
-     "accent       ( true | false )         #IMPLIED" >
-
-<!ENTITY % att-opinfo
-     "%att-form;
-      %att-fence;
-      %att-separator;
-      %att-lspace;
-      %att-rspace;
-      %att-stretchy;
-      %att-symmetric;
-      %att-maxsize;
-      %att-minsize;
-      %att-largeop;
-      %att-movablelimits;
-      %att-accent;"
->
-<!ENTITY % att-width
-     "width        CDATA                    #IMPLIED" >
-<!ENTITY % att-height
-     "height       CDATA                    #IMPLIED" >
-<!ENTITY % att-depth
-     "depth        CDATA                    #IMPLIED" >
-<!ENTITY % att-linebreak
-     "linebreak    CDATA                    #IMPLIED" >
-<!ENTITY % att-sizeinfo
-     "%att-width;
-      %att-height;
-      %att-depth;"
->
-<!ENTITY % att-lquote               
-     "lquote       CDATA                    #IMPLIED" >
-<!ENTITY % att-rquote               
-     "rquote       CDATA                    #IMPLIED" >
-<!ENTITY % att-linethickness        
-     "linethickness CDATA                   #IMPLIED" >
-<!ENTITY % att-scriptlevel          
-     "scriptlevel  CDATA                    #IMPLIED" >
-<!ENTITY % att-displaystyle         
-     "displaystyle ( true | false )         #IMPLIED" >
-<!ENTITY % att-scriptsizemultiplier 
-     "scriptsizemultiplier CDATA            #IMPLIED" >
-<!ENTITY % att-scriptminsize        
-     "scriptminsize CDATA                   #IMPLIED" >
-<!ENTITY % att-background           
-     "background   CDATA                    #IMPLIED" >
-<!ENTITY % att-open                 
-     "open         CDATA                    #IMPLIED" >
-<!ENTITY % att-close                
-     "close        CDATA                    #IMPLIED" >
-<!ENTITY % att-separators          
-     "separators   CDATA                    #IMPLIED" >
-<!ENTITY % att-subscriptshift       
-     "subscriptshift CDATA                  #IMPLIED" >
-<!ENTITY % att-superscriptshift     
-     "superscriptshift CDATA                #IMPLIED" >
-<!ENTITY % att-accentunder          
-     "accentunder  ( true | false )         #IMPLIED" >
-<!ENTITY % att-align       
-     "align        CDATA                    #IMPLIED" >
-<!ENTITY % att-rowalign      
-     "rowalign     CDATA                    #IMPLIED" >
-<!ENTITY % att-columnalign     
-     "columnalign  CDATA                    #IMPLIED" >
-<!ENTITY % att-columnwidth   
-     "columnwidth  CDATA                    #IMPLIED" >
-<!ENTITY % att-groupalign      
-     "groupalign   CDATA                    #IMPLIED" >
-<!ENTITY % att-alignmentscope 
-     "alignmentscope CDATA                  #IMPLIED" >
-<!ENTITY % att-rowspacing           
-     "rowspacing   CDATA                    #IMPLIED" >
-<!ENTITY % att-columnspacing      
-     "columnspacing CDATA                   #IMPLIED" >
-<!ENTITY % att-rowlines            
-     "rowlines     CDATA                    #IMPLIED" >
-<!ENTITY % att-columnlines        
-     "columnlines  CDATA                    #IMPLIED" >
-<!ENTITY % att-frame            
-     "frame       ( none | solid | dashed ) #IMPLIED" >
-<!ENTITY % att-framespacing         
-     "framespacing CDATA                    #IMPLIED" >
-<!ENTITY % att-equalrows        
-     "equalrows    CDATA                    #IMPLIED" >
-<!ENTITY % att-equalcolumns         
-     "equalcolumns CDATA                    #IMPLIED" >
-
-<!ENTITY % att-tableinfo            
-     "%att-align;
-      %att-rowalign;
-      %att-columnalign;
-      %att-columnwidth;
-      %att-groupalign;
-      %att-alignmentscope;
-      %att-rowspacing;
-      %att-columnspacing;
-      %att-rowlines;
-      %att-columnlines;
-      %att-frame;
-      %att-framespacing;
-      %att-equalrows;
-      %att-equalcolumns;
-      %att-displaystyle;" 
->
-
-<!ENTITY % att-rowspan              
-     "rowspan      CDATA                    #IMPLIED" >
-<!ENTITY % att-columnspan           
-     "columnspan   CDATA                    #IMPLIED" >
-<!ENTITY % att-edge        
-     "edge         ( left | right )         #IMPLIED" >
-<!ENTITY % att-actiontype          
-     "actiontype   CDATA                    #IMPLIED" >
-<!ENTITY % att-selection       
-     "selection    CDATA                    #IMPLIED" >
-
-<!ENTITY % att-name                 
-     "name         CDATA                    #IMPLIED" >
-<!ENTITY % att-alt              
-     "alt          CDATA                    #IMPLIED" >
-<!ENTITY % att-index           
-     "index        CDATA                    #IMPLIED" >
-
-<!ENTITY % att-bevelled       
-     "bevelled      CDATA                    #IMPLIED" >
-
-<!-- Presentation schemata with content -->
-
-<!ENTITY % ptoken                   
-     "%mi.qname; | %mn.qname; | %mo.qname;
-      | %mtext.qname; | %ms.qname;" >
-
-<!ATTLIST %mi.qname;
-      %MATHML.Common.attrib;
-      %att-fontinfo;
->
-
-<!ATTLIST %mn.qname;      
-      %MATHML.Common.attrib; 
-      %att-fontinfo;
->
-
-<!ATTLIST %mo.qname;     
-      %MATHML.Common.attrib; 
-      %att-fontinfo;
-      %att-opinfo;
->
-
-<!ATTLIST %mtext.qname;  
-      %MATHML.Common.attrib;
-      %att-fontinfo;
->
-
-<!ATTLIST %ms.qname;     
-      %MATHML.Common.attrib;
-      %att-fontinfo;
-      %att-lquote;
-      %att-rquote;
->
-
-<!-- Empty presentation schemata -->
-
-<!ENTITY % petoken                  
-     "%mspace.qname;" >
-<!ELEMENT %mspace.qname;  EMPTY >
-
-<!ATTLIST %mspace.qname; 
-      %att-sizeinfo;
-      %att-linebreak;
-      %MATHML.Common.attrib;
->
-
-<!-- Presentation: general layout schemata -->
-
-<!ENTITY % pgenschema               
-     "%mrow.qname; | %mfrac.qname; | %msqrt.qname; | %mroot.qname; 
-      | %menclose.qname; | %mstyle.qname; | %merror.qname; 
-      | %mpadded.qname; | %mphantom.qname; | %mfenced.qname;" >
-
-<!ATTLIST %mrow.qname;        
-      %MATHML.Common.attrib;
->
-
-<!ATTLIST %mfrac.qname;     
-      %MATHML.Common.attrib;
-      %att-bevelled;
-      %att-linethickness;
->
-
-<!ATTLIST %msqrt.qname;     
-      %MATHML.Common.attrib;
->
-
-<!ATTLIST %menclose.qname;  
-      %MATHML.Common.attrib;
-      notation CDATA 'longdiv' >
-
-<!ATTLIST %mroot.qname;    
-      %MATHML.Common.attrib;
->
-
-<!ATTLIST %mstyle.qname;  
-      %MATHML.Common.attrib;
-      %att-fontinfo;
-      %att-opinfo;
-      %att-lquote;
-      %att-rquote;
-      %att-linethickness;
-      %att-scriptlevel;
-      %att-scriptsizemultiplier;
-      %att-scriptminsize;
-      %att-background;
-      %att-open;
-      %att-close;
-      %att-separators;
-      %att-subscriptshift;
-      %att-superscriptshift;
-      %att-accentunder;
-      %att-tableinfo;
-      %att-rowspan;
-      %att-columnspan;
-      %att-edge;
-      %att-actiontype;
-      %att-selection;
->
-
-<!ATTLIST %merror.qname;   
-      %MATHML.Common.attrib;
->
-
-<!ATTLIST %mpadded.qname;     
-      %MATHML.Common.attrib;
-      %att-sizeinfo;
-      %att-lspace;
->
-
-<!ATTLIST %mphantom.qname;      
-      %MATHML.Common.attrib;
->
-
-<!ATTLIST %mfenced.qname;     
-      %MATHML.Common.attrib;
-      %att-open;
-      %att-close;
-      %att-separators;
->
-
-<!-- Presentation layout schemata: scripts and limits -->
-
-<!ENTITY % pscrschema               
-     "%msub.qname; | %msup.qname; | %msubsup.qname; | %munder.qname; 
-      | %mover.qname; | %munderover.qname; | %mmultiscripts.qname;" >
-
-<!ATTLIST %msub.qname;      
-      %MATHML.Common.attrib;
-      %att-subscriptshift;
->
-
-<!ATTLIST %msup.qname;         
-      %MATHML.Common.attrib;
-      %att-superscriptshift;
->
-
-<!ATTLIST %msubsup.qname;    
-      %MATHML.Common.attrib;
-      %att-subscriptshift;
-      %att-superscriptshift;
->
-
-<!ATTLIST %munder.qname;   
-      %MATHML.Common.attrib;
-      %att-accentunder;
->
-
-<!ATTLIST %mover.qname;   
-      %MATHML.Common.attrib;
-      %att-accent;
->
-
-<!ATTLIST %munderover.qname;   
-      %MATHML.Common.attrib;
-      %att-accent;
-      %att-accentunder;
->
-
-<!ATTLIST %mmultiscripts.qname;   
-      %MATHML.Common.attrib;
-      %att-subscriptshift;
-      %att-superscriptshift;
->
-
-<!-- Presentation layout schemata: empty elements for scripts -->
-
-<!ENTITY % pscreschema              
-     "%mprescripts.qname; | %none.qname;" >
-
-<!ELEMENT %mprescripts.qname;  EMPTY >
-<!ATTLIST %mprescripts.qname;   
-      %MATHML.xmlns.attrib; >
-
-<!ELEMENT %none.qname;  EMPTY >
-<!ATTLIST %none.qname;    
-      %MATHML.xmlns.attrib; >
-
-<!-- Presentation layout schemata: tables -->
-
-<!ENTITY % ptabschema               
-     "%mtable.qname; | %mtr.qname; | %mlabeledtr.qname; | %mtd.qname;" >
-
-<!ATTLIST %mtable.qname;
-      %MATHML.Common.attrib;
-      %att-tableinfo;
->
-
-<!ATTLIST %mtr.qname;    
-      %MATHML.Common.attrib;
-      %att-rowalign;
-      %att-columnalign;
-      %att-groupalign;
->
-
-<!ATTLIST %mlabeledtr.qname;  
-      %MATHML.Common.attrib;
-      %att-rowalign;
-      %att-columnalign;
-      %att-groupalign;
->
-
-<!ATTLIST %mtd.qname;   
-      %MATHML.Common.attrib;
-      %att-rowalign;
-      %att-columnalign;
-      %att-groupalign;
-      %att-rowspan;
-      %att-columnspan;
->
-
-<!ENTITY % plschema                 
-     "%pgenschema; | %pscrschema; | %ptabschema;" >
-
-<!-- Empty presentation layout schemata -->
-
-<!ENTITY % peschema                 
-     "%maligngroup.qname; | %malignmark.qname;" >
-
-<!ELEMENT %malignmark.qname;  EMPTY >
-
-<!ATTLIST %malignmark.qname;  
-      %att-edge; >
-
-<!ELEMENT %maligngroup.qname;  EMPTY >
-<!ATTLIST %maligngroup.qname;  
-      %MATHML.Common.attrib;
-      %att-groupalign;
->
-
-<!ELEMENT %mchar.qname;  EMPTY >
-<!ATTLIST %mchar.qname;    
-      %att-name; >
-
-<!ELEMENT %mglyph.qname;  EMPTY >
-<!ATTLIST %mglyph.qname;    
-      %att-alt;
-      %att-fontfamily;
-      %att-index; >
-
-<!-- Presentation action schemata -->
-
-<!ENTITY % pactions                 
-     "%maction.qname;" >
-<!ATTLIST %maction.qname;    
-      %MATHML.Common.attrib;
-      %att-actiontype;
-      %att-selection;
->
-
-<!-- The following entity for substitution into
-     content constructs excludes elements that
-     are not valid as expressions.
--->
-
-<!ENTITY % PresInCont               
-     "%ptoken; | %petoken; |
-      %plschema; | %peschema; | %pactions;" >
-
-<!-- Presentation entity: all presentation constructs -->
-
-<!ENTITY % Presentation             
-     "%ptoken; | %petoken; | %pscreschema; |
-      %plschema; | %peschema; | %pactions;">
-
-<!-- Content element set  ........................................ -->
-
-<!-- Attribute definitions -->
-
-<!ENTITY % att-base                 
-     "base         CDATA                    '10'" >
-<!ENTITY % att-closure              
-     "closure      CDATA                    'closed'" >
-<!ENTITY % att-definition           
-     "definitionURL CDATA                   ''" >
-<!ENTITY % att-encoding             
-     "encoding     CDATA                    ''" >
-<!ENTITY % att-nargs             
-     "nargs        CDATA                    '1'" >
-<!ENTITY % att-occurrence           
-     "occurrence   CDATA                    'function-model'" >
-<!ENTITY % att-order   
-     "order        CDATA                    'numeric'" >
-<!ENTITY % att-scope                
-     "scope        CDATA                    'local'" >
-<!ENTITY % att-type                 
-     "type         CDATA                    #IMPLIED" >
-
-<!-- Content elements: leaf nodes -->
-
-<!ENTITY % ctoken               
-     "%csymbol.qname; | %ci.qname; | %cn.qname;" >
-
-<!ATTLIST %ci.qname;     
-      %MATHML.Common.attrib;
-      %att-type;
-      %att-definition;
-      %att-encoding;
->
-
-<!ATTLIST %csymbol.qname;   
-      %MATHML.Common.attrib;
-      %att-encoding;
-      %att-type;
-      %att-definition;
->
-
-<!ATTLIST %cn.qname;    
-      %MATHML.Common.attrib;
-      %att-type;
-      %att-base;
-      %att-definition;
-      %att-encoding;
->
-
-<!-- Content elements: specials -->
-
-<!ENTITY % cspecial                 
-     "%apply.qname; | %reln.qname; |
-      %lambda.qname;" >
-
-<!ATTLIST %apply.qname;   
-      %MATHML.Common.attrib;
->
-
-<!ATTLIST %reln.qname;   
-      %MATHML.Common.attrib;
->
-
-<!ATTLIST %lambda.qname;      
-      %MATHML.Common.attrib;
->
-
-<!-- Content elements: others -->
-<!-- HELM: added the content element type to cother-->
-<!ENTITY % cother                   
-     "%condition.qname; | %declare.qname; | %sep.qname; | %type.qname;" >
-
-<!ATTLIST %condition.qname;     
-      %MATHML.Common.attrib;
->
-
-<!ATTLIST %declare.qname;    
-      %MATHML.Common.attrib;
-      %att-type;
-      %att-scope;
-      %att-nargs;
-      %att-occurrence;
-      %att-definition;
-      %att-encoding;
->
-
-<!-- HELM: added attributes to the type element -->
-<!ATTLIST %type.qname;            %MATHML.Common.attrib; >
-
-<!ELEMENT %sep.qname;  EMPTY >
-<!ATTLIST %sep.qname;         
-      %MATHML.xmlns.attrib; >
-
-<!-- Content elements: semantic mapping -->
-
-<!ENTITY % csemantics               
-     "%semantics.qname; | %annotation.qname; |
-      %annotation-xml.qname;" >
-
-<!ATTLIST %semantics.qname;  
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ATTLIST %annotation.qname;  
-      %MATHML.Common.attrib;
-      %att-encoding;
->
-
-<!ATTLIST %annotation-xml.qname; 
-      %MATHML.Common.attrib;
-      %att-encoding;
->
-
-<!-- Content elements: constructors -->
-
-<!ENTITY % cconstructor             
-     "%interval.qname; | %list.qname; | %matrix.qname; 
-      | %matrixrow.qname; | %set.qname; | %vector.qname;" >
-
-<!ATTLIST %interval.qname;   
-      %MATHML.Common.attrib;
-      %att-closure;
->
-
-<!ATTLIST %set.qname;        
-      %MATHML.Common.attrib;
-      %att-type;
->
-
-<!ATTLIST %list.qname;          
-      %MATHML.Common.attrib;
-      %att-order;
->
-
-<!ATTLIST %vector.qname;    
-      %MATHML.Common.attrib;
->
-
-<!ATTLIST %matrix.qname;    
-      %MATHML.Common.attrib;
->
-
-<!ATTLIST %matrixrow.qname;     
-      %MATHML.Common.attrib;
->
-
-<!-- Content elements: symbols -->
-
-<!ENTITY % c0ary              
-    "%integers.qname; |
-     %reals.qname; |
-     %rationals.qname; |
-     %naturalnumbers.qname; |
-     %complexes.qname; |
-     %primes.qname; |
-     %exponentiale.qname; |
-     %imaginaryi.qname; |
-     %notanumber.qname; |
-     %true.qname; |
-     %false.qname; |
-     %emptyset.qname; |
-     %pi.qname; |
-     %eulergamma.qname; |
-     %infinity.qname;" >
-
-<!ELEMENT %integers.qname;  EMPTY >
-<!ATTLIST %integers.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %reals.qname;  EMPTY >
-<!ATTLIST %reals.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %rationals.qname;  EMPTY >
-<!ATTLIST %rationals.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %naturalnumbers.qname;  EMPTY >
-<!ATTLIST %naturalnumbers.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %complexes.qname;  EMPTY >
-<!ATTLIST %complexes.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %primes.qname;  EMPTY >
-<!ATTLIST %primes.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %exponentiale.qname;  EMPTY >
-<!ATTLIST %exponentiale.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %imaginaryi.qname;  EMPTY >
-<!ATTLIST %imaginaryi.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %notanumber.qname;  EMPTY >
-<!ATTLIST %notanumber.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %true.qname;  EMPTY >
-<!ATTLIST %true.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %false.qname;  EMPTY >
-<!ATTLIST %false.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %emptyset.qname;  EMPTY >
-<!ATTLIST %emptyset.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %pi.qname;  EMPTY >
-<!ATTLIST %pi.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %eulergamma.qname;  EMPTY >
-<!ATTLIST %eulergamma.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %infinity.qname;  EMPTY >
-<!ATTLIST %infinity.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!-- Content elements: operators -->
-
-<!ENTITY % cfuncop1ary              
-     "%inverse.qname; | %ident.qname;" >
-
-<!ELEMENT %inverse.qname;  EMPTY >
-<!ATTLIST %inverse.qname;    
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % cfuncopnary              
-     "%fn.qname; | %compose.qname;" >
-
-<!ATTLIST %fn.qname;     
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %ident.qname;  EMPTY >
-<!ATTLIST %ident.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %compose.qname;  EMPTY >
-<!ATTLIST %compose.qname;  
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % carithop1ary             
-     "%abs.qname; | %conjugate.qname; | %exp.qname; | %factorial.qname; |
-      %arg.qname; | %real.qname; | %imaginary.qname;" >
-
-<!ELEMENT %exp.qname;  EMPTY >
-<!ATTLIST %exp.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %abs.qname;  EMPTY >
-<!ATTLIST %abs.qname;        
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %arg.qname;  EMPTY >
-<!ATTLIST %arg.qname;     
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %real.qname;  EMPTY >
-<!ATTLIST %real.qname;    
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %imaginary.qname;  EMPTY >
-<!ATTLIST %imaginary.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %conjugate.qname;  EMPTY >
-<!ATTLIST %conjugate.qname;  
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %factorial.qname;  EMPTY >
-<!ATTLIST %factorial.qname;    
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % carithop1or2ary          
-     "%minus.qname;" >
-
-<!ELEMENT %minus.qname;  EMPTY >
-<!ATTLIST %minus.qname;     
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % carithop2ary             
-     "%quotient.qname; | %divide.qname; | %power.qname; | %rem.qname;" >
-
-<!ELEMENT %quotient.qname;  EMPTY >
-<!ATTLIST %quotient.qname;       
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %divide.qname;  EMPTY >
-<!ATTLIST %divide.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %power.qname;  EMPTY >
-<!ATTLIST %power.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %rem.qname;  EMPTY >
-<!ATTLIST %rem.qname;       
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % carithopnary             
-     "%plus.qname; | %times.qname; | %max.qname; 
-      | %min.qname; | %gcd.qname; | %lcm.qname;" >
-
-<!ELEMENT %plus.qname;  EMPTY >
-<!ATTLIST %plus.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %max.qname;  EMPTY >
-<!ATTLIST %max.qname;    
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %min.qname;  EMPTY >
-<!ATTLIST %min.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %times.qname;  EMPTY >
-<!ATTLIST %times.qname;      
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %gcd.qname;  EMPTY >
-<!ATTLIST %gcd.qname;    
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %lcm.qname;  EMPTY >
-<!ATTLIST %lcm.qname;    
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % carithoproot             
-     "%root.qname;" >
-
-<!ELEMENT %root.qname;  EMPTY >
-<!ATTLIST %root.qname;     
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % clogicopquant            
-     "%exists.qname; | %forall.qname;" >
-
-<!ELEMENT %exists.qname;  EMPTY >
-<!ATTLIST %exists.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %forall.qname;  EMPTY >
-<!ATTLIST %forall.qname;     
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % clogicopnary             
-     "%and.qname; | %or.qname; | %xor.qname;" >
-
-<!ELEMENT %and.qname;  EMPTY >
-<!ATTLIST %and.qname;    
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %or.qname;  EMPTY >
-<!ATTLIST %or.qname;    
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %xor.qname;  EMPTY >
-<!ATTLIST %xor.qname;    
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % clogicop1ary             
-     "%not.qname;" >
-
-<!ELEMENT %not.qname;  EMPTY >
-<!ATTLIST %not.qname;    
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % clogicop2ary             
-     "%implies.qname;" >
-
-<!ELEMENT %implies.qname;  EMPTY >
-<!ATTLIST %implies.qname;    
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % ccalcop                  
-     "%log.qname; | %int.qname; | %diff.qname; | %partialdiff.qname; |
-      %divergence.qname; | %grad.qname; | %curl.qname; | %laplacian.qname;" >
-
-<!ELEMENT %divergence.qname;  EMPTY >
-<!ATTLIST %divergence.qname;     
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %grad.qname;  EMPTY >
-<!ATTLIST %grad.qname;  
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %curl.qname;  EMPTY >
-<!ATTLIST %curl.qname;     
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %laplacian.qname;  EMPTY >
-<!ATTLIST %laplacian.qname;     
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %log.qname;  EMPTY >
-<!ATTLIST %log.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %int.qname;  EMPTY >
-<!ATTLIST %int.qname;    
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %diff.qname;  EMPTY >
-<!ATTLIST %diff.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %partialdiff.qname;  EMPTY >
-<!ATTLIST %partialdiff.qname;  
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % ccalcop1ary              
-     "%ln.qname;" >
-
-<!ELEMENT %ln.qname;  EMPTY >
-<!ATTLIST %ln.qname;   
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % csetop1ary               
-     "%card.qname;" >
-
-<!ELEMENT %card.qname;  EMPTY >
-<!ATTLIST %card.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % csetop2ary               
-     "%setdiff.qname;" >
-
-<!ELEMENT %setdiff.qname;  EMPTY >
-<!ATTLIST %setdiff.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % csetopnary               
-     "%union.qname; | %intersect.qname;" >
-
-<!ELEMENT %union.qname;  EMPTY >
-<!ATTLIST %union.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %intersect.qname;  EMPTY >
-<!ATTLIST %intersect.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % cseqop                   
-     "%sum.qname; | %product.qname; | %limit.qname;" >
-
-<!ELEMENT %sum.qname;  EMPTY >
-<!ATTLIST %sum.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %product.qname;  EMPTY >
-<!ATTLIST %product.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %limit.qname;  EMPTY >
-<!ATTLIST %limit.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % ctrigop                  
-     "%sin.qname; | %cos.qname; | %tan.qname; 
-      | %sec.qname; | %csc.qname; | %cot.qname; 
-      | %sinh.qname; | %cosh.qname; | %tanh.qname; 
-      | %sech.qname; | %csch.qname; | %coth.qname; 
-      | %arcsin.qname; | %arccos.qname; | %arctan.qname;
-      | %arccosh.qname; | %arccot.qname; | %arccoth.qname;
-      | %arccsc.qname; | %arccsch.qname; | %arcsec.qname;
-      | %arcsech.qname; | %arcsinh.qname; | %arctanh.qname;
-      " >
-
-<!ELEMENT %sin.qname;  EMPTY >
-<!ATTLIST %sin.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %cos.qname;  EMPTY >
-<!ATTLIST %cos.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %tan.qname;  EMPTY >
-<!ATTLIST %tan.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %sec.qname;  EMPTY >
-<!ATTLIST %sec.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %csc.qname;  EMPTY >
-<!ATTLIST %csc.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %cot.qname;  EMPTY >
-<!ATTLIST %cot.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %sinh.qname;  EMPTY >
-<!ATTLIST %sinh.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %cosh.qname;  EMPTY >
-<!ATTLIST %cosh.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %tanh.qname;  EMPTY >
-<!ATTLIST %tanh.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %sech.qname;  EMPTY >
-<!ATTLIST %sech.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %csch.qname;  EMPTY >
-<!ATTLIST %csch.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %coth.qname;  EMPTY >
-<!ATTLIST %coth.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %arcsin.qname;  EMPTY >
-<!ATTLIST %arcsin.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %arccos.qname;  EMPTY >
-<!ATTLIST %arccos.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %arctan.qname;  EMPTY >
-<!ATTLIST %arctan.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %arccosh.qname;  EMPTY >
-<!ATTLIST %arccosh.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-
-<!ELEMENT %arccot.qname;  EMPTY >
-<!ATTLIST %arccot.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %arccoth.qname;  EMPTY >
-<!ATTLIST %arccoth.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-
-<!ELEMENT %arccsc.qname;  EMPTY >
-<!ATTLIST %arccsc.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %arccsch.qname;  EMPTY >
-<!ATTLIST %arccsch.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %arcsec.qname;  EMPTY >
-<!ATTLIST %arcsec.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %arcsech.qname;  EMPTY >
-<!ATTLIST %arcsech.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %arcsinh.qname;  EMPTY >
-<!ATTLIST %arcsinh.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %arctanh.qname;  EMPTY >
-<!ATTLIST %arctanh.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-
-
-<!ENTITY % cstatopnary              
-     "%mean.qname; | %sdev.qname; |
-      %variance.qname; | %median.qname; |
-      %mode.qname;" >
-
-<!ELEMENT %mean.qname;  EMPTY >
-<!ATTLIST %mean.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %sdev.qname;  EMPTY >
-<!ATTLIST %sdev.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %variance.qname;  EMPTY >
-<!ATTLIST %variance.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %median.qname;  EMPTY >
-<!ATTLIST %median.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %mode.qname;  EMPTY >
-<!ATTLIST %mode.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % cstatopmoment            
-     "%moment.qname;" >
-
-<!ELEMENT %moment.qname;  EMPTY >
-<!ATTLIST %moment.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % clalgop1ary              
-     "%determinant.qname; |
-      %transpose.qname;" >
-
-<!ELEMENT %determinant.qname;  EMPTY >
-<!ATTLIST %determinant.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %transpose.qname;  EMPTY >
-<!ATTLIST %transpose.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % clalgop2ary              
-     "%vectorproduct.qname; 
-      | %scalarproduct.qname; 
-      | %outerproduct.qname;" >
-
-<!ELEMENT %vectorproduct.qname;  EMPTY >
-<!ATTLIST %vectorproduct.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %scalarproduct.qname;  EMPTY >
-<!ATTLIST %scalarproduct.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %outerproduct.qname;  EMPTY >
-<!ATTLIST %outerproduct.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % clalgopnary              
-     "%selector.qname;" >
-
-<!ELEMENT %selector.qname;  EMPTY >
-<!ATTLIST %selector.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!-- Content elements: relations -->
-
-<!ENTITY % cgenrel2ary             
-     "%neq.qname;" >
-
-<!ELEMENT %neq.qname;  EMPTY >
-<!ATTLIST %neq.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % cgenrelnary              
-     "%eq.qname; | %leq.qname; | %lt.qname; | %geq.qname; 
-      | %gt.qname;| %equivalent.qname; | %approx.qname;" >
-
-<!ELEMENT %eq.qname;  EMPTY >
-<!ATTLIST %eq.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %equivalent.qname;  EMPTY >
-<!ATTLIST %equivalent.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %approx.qname;  EMPTY >
-<!ATTLIST %approx.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %gt.qname;  EMPTY >
-<!ATTLIST %gt.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %lt.qname;  EMPTY >
-<!ATTLIST %lt.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %geq.qname;  EMPTY >
-<!ATTLIST %geq.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %leq.qname;  EMPTY >
-<!ATTLIST %leq.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % csetrel2ary              
-     "%in.qname; | %notin.qname; | %notsubset.qname; | %notprsubset.qname;" >
-
-<!ELEMENT %in.qname;  EMPTY >
-<!ATTLIST %in.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %notin.qname;  EMPTY >
-<!ATTLIST %notin.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %notsubset.qname;  EMPTY >
-<!ATTLIST %notsubset.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %notprsubset.qname;  EMPTY >
-<!ATTLIST %notprsubset.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % csetrelnary       
-     "%subset.qname; | %prsubset.qname;" >
-
-<!ELEMENT %subset.qname;  EMPTY >
-<!ATTLIST %subset.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ELEMENT %prsubset.qname;  EMPTY >
-<!ATTLIST %prsubset.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
->
-
-<!ENTITY % cseqrel2ary              
-     "%tendsto.qname;" >
-
-<!ELEMENT %tendsto.qname;  EMPTY >
-<!ATTLIST %tendsto.qname;
-      %MATHML.Common.attrib;
-      %att-definition;
-      %att-encoding;
-      %att-type;
->
-
-<!-- Content elements: quantifiers -->
-
-<!ENTITY % cquantifier            
-     "%lowlimit.qname; | %uplimit.qname; | %bvar.qname; 
-      | %degree.qname; | %logbase.qname;" >
-
-<!ATTLIST %lowlimit.qname;
-      %MATHML.Common.attrib;
->
-
-<!ATTLIST %uplimit.qname;
-      %MATHML.Common.attrib;
->
-
-<!ATTLIST %bvar.qname;
-      %MATHML.Common.attrib;
->
-
-<!ATTLIST %degree.qname;
-      %MATHML.Common.attrib;
->
-
-<!ATTLIST %logbase.qname;
-      %MATHML.Common.attrib;
->
-
-<!-- Operator groups -->
-
-<!ENTITY % cop1ary                  
-     "%cfuncop1ary; | %carithop1ary; | %clogicop1ary; |
-      %ccalcop1ary; | %ctrigop; | %clalgop1ary; |
-      %csetop1ary;" >
-
-<!ENTITY % cop2ary                  
-     "%carithop2ary; | %clogicop2ary;| %clalgop2ary; | %csetop2ary;" >
-
-<!ENTITY % copnary                  
-     "%cfuncopnary; | %carithopnary; | %clogicopnary; |
-      %csetopnary; | %cstatopnary; | %clalgopnary;" >
-
-<!ENTITY % copmisc                  
-     "%carithoproot; | %carithop1or2ary; | %ccalcop; |
-      %cseqop; | %cstatopmoment; | %clogicopquant;" >
-
-<!-- Relation groups -->
-
-<!ENTITY % crel2ary                 
-     "%cgenrel2ary; | %csetrel2ary; | %cseqrel2ary;" >
-
-<!ENTITY % crelnary                 
-     "%cgenrelnary; | %csetrelnary;" >
-
-<!-- Content constructs: all -->
-
-<!ENTITY % Content                  
-     "%ctoken; | %cspecial; | %cother; | %csemantics; | %c0ary;
-      | %cconstructor; | %cquantifier; | %cop1ary; | %cop2ary; 
-      | %copnary; |%copmisc; | %crel2ary; | %crelnary;" >
-
-<!-- Content constructs for substitution in presentation structures -->
-
-<!ENTITY % ContInPres               
-     "%ci.qname; |%csymbol.qname;| %cn.qname;|
-      %apply.qname; | %fn.qname; |
-      %lambda.qname; | %reln.qname; |
-      %interval.qname; | %list.qname; |
-      %matrix.qname; | %matrixrow.qname; |
-      %set.qname; | %vector.qname; |
-      %semantics.qname; |%declare.qname;" >
-
-<!-- ............................................................. -->
-<!-- Recursive definition for content of expressions. Include
-     presentation constructs at lowest level so presentation
-     layout schemata hold presentation or content elements.
-     Include content constructs at lowest level so content
-     elements hold PCDATA or presentation elements at leaf
-     level (for permitted substitutable elements in context)
--->
-
-<!ENTITY % ContentExpression        
-     "(%Content; | %PresInCont;)*" >
-<!ENTITY % PresExpression      
-     "(%Presentation; | %ContInPres;)*" >
-<!ENTITY % MathExpression           
-     "(%PresInCont; | %ContInPres;)*" >
-
-<!-- PCDATA or MathML character elements -->
-<!ENTITY % MathMLCharacters         
-     "#PCDATA | %mchar.qname; | %mglyph.qname; " >
-
-<!-- Content elements: tokens                       -->
-<!-- (may contain embedded presentation constructs) -->
-
-<!ELEMENT %ci.qname;                 (%MathMLCharacters; | %PresInCont;)* >
-<!ELEMENT %csymbol.qname;            (%MathMLCharacters; | %PresInCont;)* >
-<!ELEMENT %cn.qname;                 (%MathMLCharacters; | %sep.qname; | %PresInCont;)* >
-
-<!-- Content elements: special -->
-
-<!ELEMENT %apply.qname;              (%ContentExpression;) >
-<!ELEMENT %reln.qname;               (%ContentExpression;) >
-<!ELEMENT %lambda.qname;             (%ContentExpression;) >
-
-<!-- Content elements: other -->
-
-<!ELEMENT %condition.qname;          (%ContentExpression;) >
-<!ELEMENT %declare.qname;            (%ContentExpression;) >
-<!-- HELM: added the content element type --> 
-<!ELEMENT %type.qname;               (%ContentExpression;) >
-
-<!-- Content elements: semantics -->
-
-<!ELEMENT %semantics.qname;          (%ContentExpression;) >
-<!ENTITY % Annotation.content  "( #PCDATA )" >
-<!ELEMENT %annotation.qname;         %Annotation.content; >
-
-<!ENTITY % Annotation-xml.content "ANY" >
-<!ELEMENT %annotation-xml.qname;     %Annotation-xml.content; >
-
-<!-- Content elements: constructors -->
-
-<!ELEMENT %interval.qname;           (%ContentExpression;) >
-<!ELEMENT %set.qname;                (%ContentExpression;) >
-<!ELEMENT %list.qname;               (%ContentExpression;) >
-<!ELEMENT %vector.qname;             (%ContentExpression;) >
-<!ELEMENT %matrix.qname;             (%ContentExpression;) >
-<!ELEMENT %matrixrow.qname;          (%ContentExpression;) >
-
-<!-- Content elements: operator (user-defined) -->
-
-<!ELEMENT %fn.qname;                 (%ContentExpression;) >
-
-<!-- Content elements: quantifiers -->
-
-<!ELEMENT %lowlimit.qname;           (%ContentExpression;) >
-<!ELEMENT %uplimit.qname;            (%ContentExpression;) >
-<!ELEMENT %bvar.qname;               (%ContentExpression;) >
-<!ELEMENT %degree.qname;             (%ContentExpression;) >
-<!ELEMENT %logbase.qname;            (%ContentExpression;) >
-
-<!-- ............................................................. -->
-<!-- Presentation layout schemata contain tokens,
-     layout and content schemata.
--->
-
-<!ELEMENT %mstyle.qname;             (%PresExpression;) >
-<!ELEMENT %merror.qname;             (%PresExpression;) >
-<!ELEMENT %mphantom.qname;           (%PresExpression;) >
-<!ELEMENT %mrow.qname;               (%PresExpression;) >
-<!ELEMENT %mfrac.qname;              (%PresExpression;) >
-<!ELEMENT %msqrt.qname;              (%PresExpression;) >
-<!ELEMENT %menclose.qname;           (%PresExpression;) >
-<!ELEMENT %mroot.qname;              (%PresExpression;) >
-<!ELEMENT %msub.qname;               (%PresExpression;) >
-<!ELEMENT %msup.qname;               (%PresExpression;) >
-<!ELEMENT %msubsup.qname;            (%PresExpression;) >
-<!ELEMENT %mmultiscripts.qname;      (%PresExpression;) >
-<!ELEMENT %munder.qname;             (%PresExpression;) >
-<!ELEMENT %mover.qname;              (%PresExpression;) >
-<!ELEMENT %munderover.qname;         (%PresExpression;) >
-<!ELEMENT %mtable.qname;             (%PresExpression;) >
-<!ELEMENT %mtr.qname;                (%PresExpression;) >
-<!ELEMENT %mlabeledtr.qname;         (%PresExpression;) >
-<!ELEMENT %mtd.qname;                (%PresExpression;) >
-<!ELEMENT %maction.qname;            (%PresExpression;) >
-<!ELEMENT %mfenced.qname;            (%PresExpression;) >
-<!ELEMENT %mpadded.qname;            (%PresExpression;) >
-
-<!-- Presentation elements contain PCDATA or malignmark constructs. -->
-
-<!ELEMENT %mi.qname;                 (%MathMLCharacters; |
-      %malignmark.qname;)* >
-<!ELEMENT %mn.qname;                 (%MathMLCharacters; |
-      %malignmark.qname;)* >
-<!ELEMENT %mo.qname;                 (%MathMLCharacters; |
-      %malignmark.qname;)* >
-<!ELEMENT %mtext.qname;              (%MathMLCharacters; |
-      %malignmark.qname;)* >
-<!ELEMENT %ms.qname;                 (%MathMLCharacters; |
-      %malignmark.qname;)* >
-
-<!-- Browser interface definition  ............................... -->
-
-<!-- Attributes for top-level element "math" -->
-
-<!ENTITY % att-macros               
-     "macros       CDATA                    #IMPLIED" >
-<!ENTITY % att-mode                 
-     "mode         CDATA                    #IMPLIED" >
-<!ENTITY % att-display                
-     "display      CDATA                    #IMPLIED" >
-
-<!ENTITY % att-topinfo          
-     "%MATHML.Common.attrib;
-      %att-macros;
-      %att-mode;
-      %att-display;" >
-
-<!-- Attributes for browser interface element -->
-
-<!ENTITY % att-baseline             
-     "baseline     CDATA                    #IMPLIED" >
-<!ENTITY % att-overflow            
-     "overflow  ( scroll | elide | truncate | scale ) 'scroll'" >
-<!ENTITY % att-altimg               
-     "altimg       CDATA                    #IMPLIED" >
-<!ENTITY % att-alttext           
-     "alttext      CDATA                    #IMPLIED" >
-
-<!ENTITY % att-browif           
-     "%att-type;
-      %att-name;
-      %att-height;
-      %att-width;
-      %att-baseline;
-      %att-overflow;
-      %att-altimg;
-      %att-alttext;" >
-
-<!-- ............................................................. -->
-<!-- The top-level element "math" contains MathML encoded
-     mathematics. The "math" element has the browser info
-     attributes iff it is also the browser interface element.
--->
-
-<!ELEMENT %math.qname;               (%MathExpression;) >
-
-<!ATTLIST %math.qname;
-      %att-topinfo;
-      %att-browif; >
-
-<!-- MathML Character Entities .............................................. -->
-<!ENTITY % mathml-charent.module "INCLUDE" >
-<![%mathml-charent.module;[
-<!-- Entity sets from ISO Technical Report 9573-13 ..... -->
-
-<!ENTITY % ent-isoamsa
-      PUBLIC "-//W3C//ENTITIES Added Math Symbols: Arrow Relations for MathML 2.0//EN"
-             "isoamsa.ent" >
-%ent-isoamsa;
-
-<!ENTITY % ent-isoamsb
-      PUBLIC "-//W3C//ENTITIES Added Math Symbols: Binary Operators for MathML 2.0//EN"
-             "isoamsb.ent" >
-%ent-isoamsb;
-
-<!ENTITY % ent-isoamsc
-      PUBLIC "-//W3C//ENTITIES Added Math Symbols: Delimiters for MathML 2.0//EN"
-             "isoamsc.ent" >
-%ent-isoamsc;
-
-<!ENTITY % ent-isoamsn
-      PUBLIC "-//W3C//ENTITIES Added Math Symbols: Negated Relations for MathML 2.0//EN"
-             "isoamsn.ent" >
-%ent-isoamsn;
-
-<!ENTITY % ent-isoamso
-      PUBLIC "-//W3C//ENTITIES Added Math Symbols: Ordinary for MathML 2.0//EN"
-             "isoamso.ent" >
-%ent-isoamso;
-
-<!ENTITY % ent-isoamsr
-      PUBLIC "-//W3C//ENTITIES Added Math Symbols: Relations for MathML 2.0//EN"
-             "isoamsr.ent" >
-%ent-isoamsr;
-
-<!ENTITY % ent-isogrk3
-      PUBLIC "-//W3C//ENTITIES Greek Symbols for MathML 2.0//EN"
-             "isogrk3.ent" >
-%ent-isogrk3;
-
-<!ENTITY % ent-isomfrk
-      PUBLIC "-//W3C//ENTITIES Math Alphabets: Fraktur for MathML 2.0//EN"
-             "isomfrk.ent" >
-%ent-isomfrk;
-
-<!ENTITY % ent-isomopf
-      PUBLIC "-//W3C//ENTITIES Math Alphabets: Open Face for MathML 2.0//EN"
-             "isomopf.ent" >
-%ent-isomopf;
-
-<!ENTITY % ent-isomscr
-      PUBLIC "-//W3C//ENTITIES Math Alphabets: Script for MathML 2.0//EN"
-             "isomscr.ent" >
-%ent-isomscr;
-
-<!ENTITY % ent-isotech
-      PUBLIC "-//W3C//ENTITIES General Technical for MathML 2.0//EN"
-             "isotech.ent" >
-%ent-isotech;
-
-<!-- Entity sets from informative annex to ISO 8879:1986 (SGML) ....... -->
-
-<!ENTITY % ent-isobox
-      PUBLIC "-//W3C//ENTITIES Box and Line Drawing for MathML 2.0//EN"
-             "isobox.ent" >
-%ent-isobox;
-
-<!ENTITY % ent-isocyr1
-      PUBLIC "-//W3C//ENTITIES Russian Cyrillic for MathML 2.0//EN"
-             "isocyr1.ent" >
-%ent-isocyr1;
-
-<!ENTITY % ent-isocyr2
-      PUBLIC "-//W3C//ENTITIES Non-Russian Cyrillic for MathML 2.0//EN"
-             "isocyr2.ent" >
-%ent-isocyr2;
-
-<!ENTITY % ent-isodia
-      PUBLIC "-//W3C//ENTITIES Diacritical Marks for MathML 2.0//EN"
-             "isodia.ent" >
-%ent-isodia;
-
-<!ENTITY % ent-isolat1
-      PUBLIC "-//W3C//ENTITIES Added Latin 1 for MathML 2.0//EN"
-             "isolat1.ent" >
-%ent-isolat1;
-
-<!ENTITY % ent-isolat2
-      PUBLIC "-//W3C//ENTITIES Added Latin 2 for MathML 2.0//EN"
-             "isolat2.ent" >
-%ent-isolat2;
-
-<!ENTITY % ent-isonum
-      PUBLIC "-//W3C//ENTITIES Numeric and Special Graphic for MathML 2.0//EN"
-             "isonum.ent" >
-%ent-isonum;
-
-<!ENTITY % ent-isopub
-      PUBLIC "-//W3C//ENTITIES Publishing for MathML 2.0//EN"
-             "isopub.ent" >
-%ent-isopub;
-
-<!-- New characters defined by MathML ............................ -->
-
-<!ENTITY % ent-mmlextra
-      PUBLIC "-//W3C//ENTITIES Extra for MathML 2.0//EN"
-             "mmlextra.ent" >
-%ent-mmlextra;
-
-<!-- MathML aliases for characters defined above ................. -->
-
-<!ENTITY % ent-mmlalias
-      PUBLIC "-//W3C//ENTITIES Aiases for MathML 2.0//EN"
-             "mmlalias.ent" >
-%ent-mmlalias;
-
-<!-- end of MathML Character Entity section -->]]>
-
-<!-- Revision History:
-
-       Initial draft (syntax = XML) 1997-05-09
-          Stephen Buswell
-       Revised 1997-05-14
-          Robert Miner
-       Revised 1997-06-29 and 1997-07-02
-          Stephen Buswell
-       Revised 1997-12-15
-          Stephen Buswell
-       Revised 1998-02-08
-          Stephen Buswell
-       Revised 1998-04-04
-          Stephen Buswell
-       Entities and small revisions 1999-02-21
-          David Carlisle
-       Added attribute definitionURL to ci and cn 1999-10-11
-          Nico Poppelier
-       Additions for MathML 2  1999-12-16
-          David Carlisle
-       Namespace support 2000-01-14
-          David Carlisle
-       XHTML Compatibility 2000-02-23
-          Murray Altheim
-       New content elements 2000-03-26
-          David Carlisle
-
--->
-
-<!-- end of MathML 2.0 DTD  ................................................ -->
-<!-- ....................................................................... -->
-

diff --git a/helm/dtd/maththeory.dtd b/helm/dtd/maththeory.dtd
deleted file mode 100644 (file)
index c424b03..0000000
--- a/helm/dtd/maththeory.dtd
+++ /dev/null
@@ -1,75 +0,0 @@
-<?xml encoding="ISO-8859-1"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--*****************************************************************-->
-<!-- DTD FOR THEORY OBJECTS AT LEVEL OF CIC XML FILES:               -->
-<!-- First draft: May 10 2000, Claudio Sacerdoti Coen, Irene Schena  -->
-<!-- Revised: February 2001, Claudio Sacerdoti Coen                  -->
-<!-- Revised: May 01 2001, Claudio Sacerdoti Coen                    -->
-<!--*****************************************************************-->
-
-
-<!--*****************************************************************-->
-<!-- Note: the intended meaning for this markup is to be embedded    -->
-<!-- into other types of markup (e.g. XHTML or DocBook). Hence, the  -->
-<!-- DTD is only "indicative" and no root element is provided.       -->
-<!--*****************************************************************-->
-
-<!ENTITY % mathstructure
-  '(ht:AXIOM|ht:DEFINITION|ht:THEOREM|ht:VARIABLE|ht:SECTION|ht:MUTUAL)*'>
-
-<!ELEMENT ht:OBJECT EMPTY>
-<!ATTLIST ht:OBJECT
-          uri CDATA #REQUIRED
-          mode (typeonly|embed|linkonly) #REQUIRED>
-
-<!ELEMENT ht:AXIOM EMPTY>
-<!ATTLIST ht:AXIOM
-          uri CDATA #REQUIRED
-          as (Axiom|Declaration) #REQUIRED>
-
-<!ELEMENT ht:DEFINITION EMPTY>
-<!ATTLIST ht:DEFINITION
-          uri CDATA #REQUIRED
-          as (Definition|Inductive|CoInductive|Record) #REQUIRED>
-
-<!ELEMENT ht:THEOREM EMPTY>
-<!ATTLIST ht:THEOREM
-          uri CDATA #REQUIRED
-          as (Theorem|Lemma|Corollary|Fact|Remark) #REQUIRED>
-
-<!ELEMENT ht:VARIABLE EMPTY>
-<!ATTLIST ht:VARIABLE
-          uri CDATA #REQUIRED
-          as (Assumption|Hypothesis|LocalDefinition) #REQUIRED>
-
-<!ELEMENT ht:SECTION (%mathstructure;)>
-<!ATTLIST ht:SECTION
-          uri CDATA #REQUIRED>
-
-(*CSC: In the case of a set of mutual (Co)Inductive DEFINITIONS, *)
-(*CSC: all the entries inside ht:MUTUAL have the same URI ;-|    *)
-<!ELEMENT ht:MUTUAL (ht:DEFINITION,ht:DEFINITION+)>

diff --git a/helm/dtd/mmlalias.ent b/helm/dtd/mmlalias.ent
deleted file mode 100644 (file)
index f5901b3..0000000
--- a/helm/dtd/mmlalias.ent
+++ /dev/null
@@ -1,529 +0,0 @@
-
-<!--
-     File mmlalias.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
--->
-
-<!ENTITY angle            "&#x02220;" ><!--alias ISOAMSO ang -->
-<!ENTITY approx           "&#x02248;" ><!--alias ISOTECH ap -->
-<!ENTITY approxeq         "&#x0224A;" ><!--alias ISOAMSR ape -->
-<!ENTITY backcong         "&#x0224C;" ><!--alias ISOAMSR bcong -->
-<!ENTITY backepsilon      "&#x0213C;" ><!--alias ISOAMSR bepsi -->
-<!ENTITY backprime        "&#x02035;" ><!--alias ISOAMSO bprime -->
-<!ENTITY backsim          "&#x0223D;" ><!--alias ISOAMSR bsim -->
-<!ENTITY backsimeq        "&#x022CD;" ><!--alias ISOAMSR bsime -->
-<!ENTITY Backslash        "&#x02216;" ><!--alias ISOAMSB setmn -->
-<!ENTITY barwedge         "&#x022BC;" ><!--alias ISOAMSB barwed -->
-<!ENTITY because          "&#x02235;" ><!--alias ISOTECH becaus -->
-<!ENTITY Because          "&#x02235;" ><!--alias ISOTECH becaus -->
-<!ENTITY Bernoullis       "&#x0212C;" ><!--alias ISOTECH bernou -->
-<!ENTITY between          "&#x0226C;" ><!--alias ISOAMSR twixt -->
-<!ENTITY bigcap           "&#x022C2;" ><!--alias ISOAMSB xcap -->
-<!ENTITY bigcirc          "&#x025EF;" ><!--alias ISOAMSB xcirc -->
-<!ENTITY bigcup           "&#x022C3;" ><!--alias ISOAMSB xcup -->
-<!ENTITY bigodot          "&#x02299;" ><!--alias ISOAMSB xodot -->
-<!ENTITY bigoplus         "&#x02295;" ><!--alias ISOAMSB xoplus -->
-<!ENTITY bigotimes        "&#x02297;" ><!--alias ISOAMSB xotime -->
-<!ENTITY bigsqcup         "&#x02294;" ><!--alias ISOAMSB xsqcup -->
-<!ENTITY bigstar          "&#x02605;" ><!--ISOPUB    starf  -->
-<!ENTITY bigtriangledown  "&#x025BD;" ><!--alias ISOAMSB xdtri -->
-<!ENTITY bigtriangleup    "&#x025B3;" ><!--alias ISOAMSB xutri -->
-<!ENTITY biguplus         "&#x0228E;" ><!--alias ISOAMSB xuplus -->
-<!ENTITY bigvee           "&#x022C1;" ><!--alias ISOAMSB xvee -->
-<!ENTITY bigwedge         "&#x022C0;" ><!--alias ISOAMSB xwedge -->
-<!ENTITY bkarow           "&#x0290D;" ><!--alias ISOAMSA rbarr -->
-<!ENTITY blacklozenge     "&#x029EB;" ><!--alias ISOPUB lozf -->
-<!ENTITY blacksquare      "&#x025AA;" ><!--ISOTECH  squarf  -->
-<!ENTITY blacktriangle    "&#x025B4;" ><!--alias ISOPUB utrif -->
-<!ENTITY blacktriangledown "&#x025BE;" ><!--alias ISOPUB dtrif -->
-<!ENTITY blacktriangleleft "&#x025C2;" ><!--alias ISOPUB ltrif -->
-<!ENTITY blacktriangleright "&#x025B8;" ><!--alias ISOPUB rtrif -->
-<!ENTITY bot              "&#x022A5;" ><!--alias ISOTECH bottom -->
-<!ENTITY boxminus         "&#x0229F;" ><!--alias ISOAMSB minusb -->
-<!ENTITY boxplus          "&#x0229E;" ><!--alias ISOAMSB plusb -->
-<!ENTITY boxtimes         "&#x022A0;" ><!--alias ISOAMSB timesb -->
-<!ENTITY Breve            "&#x002D8;" ><!--alias ISODIA breve -->
-<!ENTITY bullet           "&#x02022;" ><!--alias ISOPUB bull -->
-<!ENTITY bumpeq           "&#x0224F;" ><!--alias ISOAMSR bumpe -->
-<!ENTITY Bumpeq           "&#x0224E;" ><!--alias ISOAMSR bump -->
-<!ENTITY Cedilla          "&#x000B8;" ><!--alias ISODIA cedil -->
-<!ENTITY centerdot        "&#x000B7;" ><!--alias ISONUM middot -->
-<!ENTITY CenterDot        "&#x000B7;" ><!--alias ISONUM middot -->
-<!ENTITY checkmark        "&#x02713;" ><!--alias ISOPUB check -->
-<!ENTITY circeq           "&#x02257;" ><!--alias ISOAMSR cire -->
-<!ENTITY circlearrowleft  "&#x021BA;" ><!--alias ISOAMSA olarr -->
-<!ENTITY circlearrowright "&#x021BB;" ><!--alias ISOAMSA orarr -->
-<!ENTITY circledast       "&#x0229B;" ><!--alias ISOAMSB oast -->
-<!ENTITY circledcirc      "&#x0229A;" ><!--alias ISOAMSB ocir -->
-<!ENTITY circleddash      "&#x0229D;" ><!--alias ISOAMSB odash -->
-<!ENTITY CircleDot        "&#x02299;" ><!--alias ISOAMSB odot -->
-<!ENTITY circledR         "&#x000AE;" ><!--alias ISONUM reg -->
-<!ENTITY circledS         "&#x024C8;" ><!--alias ISOAMSO oS -->
-<!ENTITY CircleMinus      "&#x02296;" ><!--alias ISOAMSB ominus -->
-<!ENTITY CirclePlus       "&#x02295;" ><!--alias ISOAMSB oplus -->
-<!ENTITY CircleTimes      "&#x02297;" ><!--alias ISOAMSB otimes -->
-<!ENTITY ClockwiseContourIntegral "&#x02232;" ><!--alias ISOTECH cwconint -->
-<!ENTITY CloseCurlyDoubleQuote "&#x0201D;" ><!--alias ISONUM rdquo -->
-<!ENTITY CloseCurlyQuote  "&#x02019;" ><!--alias ISONUM rsquo -->
-<!ENTITY clubsuit         "&#x02663;" ><!--ISOPUB    clubs  -->
-<!ENTITY coloneq          "&#x02254;" ><!--alias ISOAMSR colone -->
-<!ENTITY complement       "&#x02201;" ><!--alias ISOAMSO comp -->
-<!ENTITY Congruent        "&#x02261;" ><!--alias ISOTECH equiv -->
-<!ENTITY ContourIntegral  "&#x0222E;" ><!--alias ISOTECH conint -->
-<!ENTITY Coproduct        "&#x02210;" ><!--alias ISOAMSB coprod -->
-<!ENTITY CounterClockwiseContourIntegral "&#x02233;" ><!--alias ISOTECH awconint -->
-<!ENTITY CupCap           "&#x0224D;" ><!--alias ISOAMSR asymp -->
-<!ENTITY curlyeqprec      "&#x022DE;" ><!--alias ISOAMSR cuepr -->
-<!ENTITY curlyeqsucc      "&#x022DF;" ><!--alias ISOAMSR cuesc -->
-<!ENTITY curlyvee         "&#x022CE;" ><!--alias ISOAMSB cuvee -->
-<!ENTITY curlywedge       "&#x022CF;" ><!--alias ISOAMSB cuwed -->
-<!ENTITY curvearrowleft   "&#x021B6;" ><!--alias ISOAMSA cularr -->
-<!ENTITY curvearrowright  "&#x021B7;" ><!--alias ISOAMSA curarr -->
-<!ENTITY dbkarow          "&#x0290F;" ><!--alias ISOAMSA rBarr -->
-<!ENTITY ddagger          "&#x02021;" ><!--alias ISOPUB Dagger -->
-<!ENTITY ddotseq          "&#x02A77;" ><!--alias ISOAMSR eDDot -->
-<!ENTITY Del              "&#x02207;" ><!--alias ISOTECH nabla -->
-<!ENTITY DiacriticalAcute "&#x000B4;" ><!--alias ISODIA acute -->
-<!ENTITY DiacriticalDot   "&#x002D9;" ><!--alias ISODIA dot -->
-<!ENTITY DiacriticalDoubleAcute "&#x002DD;" ><!--alias ISODIA dblac -->
-<!ENTITY DiacriticalGrave "&#x00060;" ><!--alias ISODIA grave -->
-<!ENTITY DiacriticalTilde "&#x002DC;" ><!--alias ISODIA tilde -->
-<!ENTITY diamond          "&#x022C4;" ><!--alias ISOAMSB diam -->
-<!ENTITY Diamond          "&#x022C4;" ><!--alias ISOAMSB diam -->
-<!ENTITY diamondsuit      "&#x02666;" ><!--ISOPUB    diams  -->
-<!ENTITY digamma          "&#x003DC;" ><!--alias ISOGRK3 gammad -->
-<!ENTITY div              "&#x000F7;" ><!--alias ISONUM divide -->
-<!ENTITY divideontimes    "&#x022C7;" ><!--alias ISOAMSB divonx -->
-<!ENTITY doteq            "&#x02250;" ><!--alias ISOAMSR esdot -->
-<!ENTITY doteqdot         "&#x02251;" ><!--alias ISOAMSR eDot -->
-<!ENTITY DotEqual         "&#x02250;" ><!--alias ISOAMSR esdot -->
-<!ENTITY dotminus         "&#x02238;" ><!--alias ISOAMSB minusd -->
-<!ENTITY dotplus          "&#x02214;" ><!--alias ISOAMSB plusdo -->
-<!ENTITY dotsquare        "&#x022A1;" ><!--alias ISOAMSB sdotb -->
-<!ENTITY doublebarwedge   "&#x02306;" ><!--alias ISOAMSB Barwed -->
-<!ENTITY DoubleContourIntegral "&#x0222F;" ><!--alias ISOTECH Conint -->
-<!ENTITY DoubleDot        "&#x000A8;" ><!--alias ISODIA die -->
-<!ENTITY DoubleDownArrow  "&#x021D3;" ><!--alias ISOAMSA dArr -->
-<!ENTITY DoubleLeftArrow  "&#x021D0;" ><!--alias ISOTECH lArr -->
-<!ENTITY DoubleLeftRightArrow "&#x021D4;" ><!--alias ISOAMSA hArr -->
-<!ENTITY DoubleLeftTee    "&#x02AE4;" ><!--alias for  &Dashv;  -->
-<!ENTITY DoubleLongLeftArrow "&#x021D0;" ><!--alias ISOAMSA xlArr -->
-<!ENTITY DoubleLongLeftRightArrow "&#x021D4;" ><!--alias ISOAMSA xhArr -->
-<!ENTITY DoubleLongRightArrow "&#x021D2;" ><!--alias ISOAMSA xrArr -->
-<!ENTITY DoubleRightArrow "&#x021D2;" ><!--alias ISOTECH rArr -->
-<!ENTITY DoubleRightTee   "&#x022A8;" ><!--alias ISOAMSR vDash -->
-<!ENTITY DoubleUpArrow    "&#x021D1;" ><!--alias ISOAMSA uArr -->
-<!ENTITY DoubleUpDownArrow "&#x021D5;" ><!--alias ISOAMSA vArr -->
-<!ENTITY DoubleVerticalBar "&#x02225;" ><!--alias ISOTECH par -->
-<!ENTITY downarrow        "&#x02193;" ><!--alias ISONUM darr -->
-<!ENTITY Downarrow        "&#x021D3;" ><!--alias ISOAMSA dArr -->
-<!ENTITY DownArrow        "&#x02193;" ><!--alias ISONUM darr -->
-<!ENTITY DownArrowUpArrow "&#x021F5;" ><!--alias ISOAMSA duarr -->
-<!ENTITY downdownarrows   "&#x021CA;" ><!--alias ISOAMSA ddarr -->
-<!ENTITY downharpoonleft  "&#x021C3;" ><!--alias ISOAMSA dharl -->
-<!ENTITY downharpoonright "&#x021C2;" ><!--alias ISOAMSA dharr -->
-<!ENTITY DownLeftVector   "&#x021BD;" ><!--alias ISOAMSA lhard -->
-<!ENTITY DownRightVector  "&#x021C1;" ><!--alias ISOAMSA rhard -->
-<!ENTITY DownTee          "&#x022A4;" ><!--alias ISOTECH top -->
-<!ENTITY drbkarow         "&#x02910;" ><!--alias ISOAMSA RBarr -->
-<!ENTITY Element          "&#x02208;" ><!--alias ISOTECH isinv -->
-<!ENTITY emptyset         "&#x02205;&#x02063;" ><!--alias ISOAMSO empty -->
-<!ENTITY eqcirc           "&#x02256;" ><!--alias ISOAMSR ecir -->
-<!ENTITY eqcolon          "&#x02255;" ><!--alias ISOAMSR ecolon -->
-<!ENTITY eqsim            "&#x02242;" ><!--alias ISOAMSR esim -->
-<!ENTITY eqslantgtr       "&#x022DD;" ><!--alias ISOAMSR egs -->
-<!ENTITY eqslantless      "&#x022DC;" ><!--alias ISOAMSR els -->
-<!ENTITY EqualTilde       "&#x02242;" ><!--alias ISOAMSR esim -->
-<!ENTITY Equilibrium      "&#x021CC;" ><!--alias ISOAMSA rlhar -->
-<!ENTITY Exists           "&#x02203;" ><!--alias ISOTECH exist -->
-<!ENTITY fallingdotseq    "&#x02252;" ><!--alias ISOAMSR efDot -->
-<!ENTITY ForAll           "&#x02200;" ><!--alias ISOTECH forall -->
-<!ENTITY geq              "&#x02265;" ><!--alias ISOTECH ge -->
-<!ENTITY geqq             "&#x02267;" ><!--alias ISOAMSR gE -->
-<!ENTITY geqslant         "&#x02A7E;" ><!--alias ISOAMSR ges -->
-<!ENTITY gg               "&#x0226B;" ><!--alias ISOAMSR Gt -->
-<!ENTITY ggg              "&#x022D9;" ><!--alias ISOAMSR Gg -->
-<!ENTITY gnapprox         "&#x02A8A;" ><!--alias ISOAMSN gnap -->
-<!ENTITY gneq             "&#x02269;" ><!--alias ISOAMSN gne -->
-<!ENTITY gneqq            "&#x02269;" ><!--alias ISOAMSN gnE -->
-<!ENTITY GreaterEqual     "&#x02265;" ><!--alias ISOTECH ge -->
-<!ENTITY GreaterEqualLess "&#x022DB;" ><!--alias ISOAMSR gel -->
-<!ENTITY GreaterFullEqual "&#x02267;" ><!--alias ISOAMSR gE -->
-<!ENTITY GreaterLess      "&#x02277;" ><!--alias ISOAMSR gl -->
-<!ENTITY GreaterSlantEqual "&#x02A7E;" ><!--alias ISOAMSR ges -->
-<!ENTITY GreaterTilde     "&#x02273;" ><!--alias ISOAMSR gsim -->
-<!ENTITY gtrapprox        "&#x02273;" ><!--alias ISOAMSR gap -->
-<!ENTITY gtrdot           "&#x022D7;" ><!--alias ISOAMSR gtdot -->
-<!ENTITY gtreqless        "&#x022DB;" ><!--alias ISOAMSR gel -->
-<!ENTITY gtreqqless       "&#x022DB;" ><!--alias ISOAMSR gEl -->
-<!ENTITY gtrless          "&#x02277;" ><!--alias ISOAMSR gl -->
-<!ENTITY gtrsim           "&#x02273;" ><!--alias ISOAMSR gsim -->
-<!ENTITY gvertneqq        "&#x02269;&#x00338;" ><!--alias ISOAMSN gvnE -->
-<!ENTITY Hacek            "&#x002C7;" ><!--alias ISODIA caron -->
-<!ENTITY Hat              "&#x00302;" ><!--circumflex accent (circ in ISODIA) -->
-<!ENTITY hbar             "&#x0210F;" ><!--alias ISOAMSO plank -->
-<!ENTITY heartsuit        "&#x02661;" ><!--ISOPUB    hearts  -->
-<!ENTITY hksearow         "&#x02925;" ><!--alias ISOAMSA searhk -->
-<!ENTITY hkswarow         "&#x02926;" ><!--alias ISOAMSA swarhk -->
-<!ENTITY hookleftarrow    "&#x021A9;" ><!--alias ISOAMSA larrhk -->
-<!ENTITY hookrightarrow   "&#x021AA;" ><!--alias ISOAMSA rarrhk -->
-<!ENTITY hslash           "&#x0210F;" ><!--alias ISOAMSO plankv -->
-<!ENTITY HumpDownHump     "&#x0224E;" ><!--alias ISOAMSR bump -->
-<!ENTITY HumpEqual        "&#x0224F;" ><!--alias ISOAMSR bumpe -->
-<!ENTITY iiiint           "&#x02A0C;" ><!--alias ISOTECH qint -->
-<!ENTITY iiint            "&#x0222D;" ><!--alias ISOTECH tint -->
-<!ENTITY Im               "&#x02111;" ><!--alias ISOAMSO image -->
-<!ENTITY imagpart         "&#x02111;" ><!--alias ISOAMSO image -->
-<!ENTITY Implies          "&#x021D2;" ><!--alias ISOTECH rArr -->
-<!ENTITY in               "&#x02208;" ><!--ISOTECH   isin  -->
-<!ENTITY Integral         "&#x0222B;" ><!--alias ISOTECH int -->
-<!ENTITY intercal         "&#x022BA;" ><!--alias ISOAMSB intcal -->
-<!ENTITY Intersection     "&#x022C2;" ><!--alias ISOAMSB xcap -->
-<!ENTITY intprod          "&#x02A3C;" ><!--alias ISOAMSB iprod -->
-<!ENTITY langle           "&#x03008;" ><!--alias ISOTECH lang -->
-<!ENTITY lbrace           "&#x0007B;" ><!--alias ISONUM lcub -->
-<!ENTITY lbrack           "&#x0005B;" ><!--alias ISONUM lsqb -->
-<!ENTITY LeftAngleBracket "&#x03008;" ><!--alias ISOTECH lang -->
-<!ENTITY leftarrow        "&#x02190;" ><!--alias ISONUM larr -->
-<!ENTITY Leftarrow        "&#x021D0;" ><!--alias ISOTECH lArr -->
-<!ENTITY LeftArrow        "&#x02190;" ><!--alias ISONUM larr -->
-<!ENTITY LeftArrowRightArrow "&#x021C6;" ><!--alias ISOAMSA lrarr -->
-<!ENTITY leftarrowtail    "&#x021A2;" ><!--alias ISOAMSA larrtl -->
-<!ENTITY LeftCeiling      "&#x02308;" ><!--alias ISOAMSC lceil -->
-<!ENTITY LeftDoubleBracket "&#x0301A;" ><!--left double bracket delimiter -->
-<!ENTITY LeftDownVector   "&#x021C3;" ><!--alias ISOAMSA dharl -->
-<!ENTITY LeftFloor        "&#x0230A;" ><!--alias ISOAMSC lfloor -->
-<!ENTITY leftharpoondown  "&#x021BD;" ><!--alias ISOAMSA lhard -->
-<!ENTITY leftharpoonup    "&#x021BC;" ><!--alias ISOAMSA lharu -->
-<!ENTITY leftleftarrows   "&#x021C7;" ><!--alias ISOAMSA llarr -->
-<!ENTITY leftrightarrow   "&#x02194;" ><!--alias ISOAMSA harr -->
-<!ENTITY Leftrightarrow   "&#x021D4;" ><!--alias ISOAMSA hArr -->
-<!ENTITY LeftRightArrow   "&#x02194;" ><!--alias ISOAMSA harr -->
-<!ENTITY leftrightarrows  "&#x021C6;" ><!--alias ISOAMSA lrarr -->
-<!ENTITY leftrightharpoons "&#x021CB;" ><!--alias ISOAMSA lrhar -->
-<!ENTITY leftrightsquigarrow "&#x021AD;" ><!--alias ISOAMSA harrw -->
-<!ENTITY LeftTee          "&#x022A3;" ><!--alias ISOAMSR dashv -->
-<!ENTITY leftthreetimes   "&#x022CB;" ><!--alias ISOAMSB lthree -->
-<!ENTITY LeftTriangle     "&#x022B2;" ><!--alias ISOAMSR vltri -->
-<!ENTITY LeftTriangleEqual "&#x022B4;" ><!--alias ISOAMSR ltrie -->
-<!ENTITY LeftUpVector     "&#x021BF;" ><!--alias ISOAMSA uharl -->
-<!ENTITY LeftVector       "&#x021BC;" ><!--alias ISOAMSA lharu -->
-<!ENTITY leq              "&#x02264;" ><!--alias ISOTECH le -->
-<!ENTITY leqq             "&#x02266;" ><!--alias ISOAMSR lE -->
-<!ENTITY leqslant         "&#x02A7D;" ><!--alias ISOAMSR les -->
-<!ENTITY lessapprox       "&#x02272;" ><!--alias ISOAMSR lap -->
-<!ENTITY lessdot          "&#x022D6;" ><!--alias ISOAMSR ltdot -->
-<!ENTITY lesseqgtr        "&#x022DA;" ><!--alias ISOAMSR leg -->
-<!ENTITY lesseqqgtr       "&#x022DA;" ><!--alias ISOAMSR lEg -->
-<!ENTITY LessEqualGreater "&#x022DA;" ><!--alias ISOAMSR leg -->
-<!ENTITY LessFullEqual    "&#x02266;" ><!--alias ISOAMSR lE -->
-<!ENTITY LessGreater      "&#x02276;" ><!--alias ISOAMSR lg -->
-<!ENTITY lessgtr          "&#x02276;" ><!--alias ISOAMSR lg -->
-<!ENTITY lesssim          "&#x02272;" ><!--alias ISOAMSR lsim -->
-<!ENTITY LessSlantEqual   "&#x02A7D;" ><!--alias ISOAMSR les -->
-<!ENTITY LessTilde        "&#x02272;" ><!--alias ISOAMSR lsim -->
-<!ENTITY ll               "&#x0226A;" ><!--alias ISOAMSR Lt -->
-<!ENTITY llcorner         "&#x0231E;" ><!--alias ISOAMSC dlcorn -->
-<!ENTITY Lleftarrow       "&#x021DA;" ><!--alias ISOAMSA lAarr -->
-<!ENTITY lmoustache       "&#x02998;" ><!--alias ISOAMSC lmoust -->
-<!ENTITY lnapprox         "&#x02A89;" ><!--alias ISOAMSN lnap -->
-<!ENTITY lneq             "&#x02268;" ><!--alias ISOAMSN lne -->
-<!ENTITY lneqq            "&#x02268;" ><!--alias ISOAMSN lnE -->
-<!ENTITY longleftarrow    "&#x02190;" ><!--alias ISOAMSA xlarr -->
-<!ENTITY Longleftarrow    "&#x021D0;" ><!--alias ISOAMSA xlArr -->
-<!ENTITY LongLeftArrow    "&#x02190;" ><!--alias ISOAMSA xlarr -->
-<!ENTITY longleftrightarrow "&#x02194;" ><!--alias ISOAMSA xharr -->
-<!ENTITY Longleftrightarrow "&#x021D4;" ><!--alias ISOAMSA xhArr -->
-<!ENTITY LongLeftRightArrow "&#x02194;" ><!--alias ISOAMSA xharr -->
-<!ENTITY longmapsto       "&#x021A6;" ><!--alias ISOAMSA xmap -->
-<!ENTITY longrightarrow   "&#x02192;" ><!--alias ISOAMSA xrarr -->
-<!ENTITY Longrightarrow   "&#x021D2;" ><!--alias ISOAMSA xrArr -->
-<!ENTITY LongRightArrow   "&#x02192;" ><!--alias ISOAMSA xrarr -->
-<!ENTITY looparrowleft    "&#x021AB;" ><!--alias ISOAMSA larrlp -->
-<!ENTITY looparrowright   "&#x021AC;" ><!--alias ISOAMSA rarrlp -->
-<!ENTITY LowerLeftArrow   "&#x02199;" ><!--alias ISOAMSA swarr -->
-<!ENTITY LowerRightArrow  "&#x02198;" ><!--alias ISOAMSA searr -->
-<!ENTITY lozenge          "&#x025CA;" ><!--alias ISOPUB loz -->
-<!ENTITY lrcorner         "&#x0231F;" ><!--alias ISOAMSC drcorn -->
-<!ENTITY Lsh              "&#x021B0;" ><!--alias ISOAMSA lsh -->
-<!ENTITY lvertneqq        "&#x02268;&#x00338;" ><!--alias ISOAMSN lvnE -->
-<!ENTITY maltese          "&#x02720;" ><!--alias ISOPUB malt -->
-<!ENTITY mapsto           "&#x021A6;" ><!--alias ISOAMSA map -->
-<!ENTITY measuredangle    "&#x02221;" ><!--alias ISOAMSO angmsd -->
-<!ENTITY MinusPlus        "&#x02213;" ><!--alias ISOTECH mnplus -->
-<!ENTITY mp               "&#x02213;" ><!--alias ISOTECH mnplus -->
-<!ENTITY multimap         "&#x022B8;" ><!--alias ISOAMSA mumap -->
-<!ENTITY napprox          "&#x02249;" ><!--alias ISOAMSN nap -->
-<!ENTITY natural          "&#x0266E;" ><!--alias ISOPUB natur -->
-<!ENTITY nearrow          "&#x02197;" ><!--alias ISOAMSA nearr -->
-<!ENTITY NestedGreaterGreater "&#x0226B;" ><!--alias ISOAMSR Gt -->
-<!ENTITY NestedLessLess   "&#x0226A;" ><!--alias ISOAMSR Lt -->
-<!ENTITY nexists          "&#x02204;" ><!--alias ISOAMSO nexist -->
-<!ENTITY ngeq             "&#x02271;&#x020E5;" ><!--alias ISOAMSN nge -->
-<!ENTITY ngeqq            "&#x02271;" ><!--alias ISOAMSN ngE -->
-<!ENTITY ngeqslant        "&#x02271;" ><!--alias ISOAMSN nges -->
-<!ENTITY ngtr             "&#x0226F;" ><!--alias ISOAMSN ngt -->
-<!ENTITY nleftarrow       "&#x0219A;" ><!--alias ISOAMSA nlarr -->
-<!ENTITY nLeftarrow       "&#x021CD;" ><!--alias ISOAMSA nlArr -->
-<!ENTITY nleftrightarrow  "&#x021AE;" ><!--alias ISOAMSA nharr -->
-<!ENTITY nLeftrightarrow  "&#x021CE;" ><!--alias ISOAMSA nhArr -->
-<!ENTITY nleq             "&#x02270;&#x020E5;" ><!--alias ISOAMSN nle -->
-<!ENTITY nleqq            "&#x02270;" ><!--alias ISOAMSN nlE -->
-<!ENTITY nleqslant        "&#x02270;" ><!--alias ISOAMSN nles -->
-<!ENTITY nless            "&#x0226E;" ><!--alias ISOAMSN nlt -->
-<!ENTITY NotCongruent     "&#x02262;" ><!--alias ISOAMSN nequiv -->
-<!ENTITY NotDoubleVerticalBar "&#x02226;" ><!--alias ISOAMSN npar -->
-<!ENTITY NotElement       "&#x02209;" ><!--alias ISOTECH notin -->
-<!ENTITY NotEqual         "&#x02260;" ><!--alias ISOTECH ne -->
-<!ENTITY NotExists        "&#x02204;" ><!--alias ISOAMSO nexist -->
-<!ENTITY NotGreater       "&#x0226F;" ><!--alias ISOAMSN ngt -->
-<!ENTITY NotGreaterEqual  "&#x02271;&#x020E5;" ><!--alias ISOAMSN nge -->
-<!ENTITY NotGreaterFullEqual "&#x02270;" ><!--alias ISOAMSN nlE -->
-<!ENTITY NotGreaterGreater "&#x0226B;&#x00338;&#x02063;" ><!--alias ISOAMSN nGtv -->
-<!ENTITY NotGreaterLess   "&#x02279;" ><!--alias ISOAMSN ntvgl -->
-<!ENTITY NotGreaterSlantEqual "&#x02271;" ><!--alias ISOAMSN nges -->
-<!ENTITY NotGreaterTilde  "&#x02275;" ><!--alias ISOAMSN ngsim -->
-<!ENTITY NotLeftTriangle  "&#x022EA;" ><!--alias ISOAMSN nltri -->
-<!ENTITY NotLeftTriangleEqual "&#x022EC;" ><!--alias ISOAMSN nltrie -->
-<!ENTITY NotLess          "&#x0226E;" ><!--alias ISOAMSN nlt -->
-<!ENTITY NotLessEqual     "&#x02270;&#x020E5;" ><!--alias ISOAMSN nle -->
-<!ENTITY NotLessGreater   "&#x02278;" ><!--alias ISOAMSN ntvlg -->
-<!ENTITY NotLessLess      "&#x0226A;&#x00338;&#x02063;" ><!--alias ISOAMSN nLtv -->
-<!ENTITY NotLessSlantEqual "&#x02270;" ><!--alias ISOAMSN nles -->
-<!ENTITY NotLessTilde     "&#x02274;" ><!--alias ISOAMSN nlsim -->
-<!ENTITY NotPrecedes      "&#x02280;" ><!--alias ISOAMSN npr -->
-<!ENTITY NotPrecedesEqual "&#x02AAF;&#x00338;" ><!--alias ISOAMSN npre -->
-<!ENTITY NotPrecedesSlantEqual "&#x022E0;" ><!--alias ISOAMSN nprcue -->
-<!ENTITY NotReverseElement "&#x0220C;" ><!--alias ISOTECH notniva -->
-<!ENTITY NotRightTriangle "&#x022EB;" ><!--alias ISOAMSN nrtri -->
-<!ENTITY NotRightTriangleEqual "&#x022ED;" ><!--alias ISOAMSN nrtrie -->
-<!ENTITY NotSquareSubsetEqual "&#x022E2;" ><!--alias ISOAMSN nsqsube -->
-<!ENTITY NotSquareSupersetEqual "&#x022E3;" ><!--alias ISOAMSN nsqsupe -->
-<!ENTITY NotSubset        "&#x02284;" ><!--alias ISOAMSN vnsub -->
-<!ENTITY NotSubsetEqual   "&#x02288;" ><!--alias ISOAMSN nsube -->
-<!ENTITY NotSucceeds      "&#x02281;" ><!--alias ISOAMSN nsc -->
-<!ENTITY NotSucceedsEqual "&#x02AB0;&#x00338;" ><!--alias ISOAMSN nsce -->
-<!ENTITY NotSucceedsSlantEqual "&#x022E1;" ><!--alias ISOAMSN nsccue -->
-<!ENTITY NotSuperset      "&#x02285;" ><!--alias ISOAMSN vnsup -->
-<!ENTITY NotSupersetEqual "&#x02289;" ><!--alias ISOAMSN nsupe -->
-<!ENTITY NotTilde         "&#x02241;" ><!--alias ISOAMSN nsim -->
-<!ENTITY NotTildeEqual    "&#x02244;" ><!--alias ISOAMSN nsime -->
-<!ENTITY NotTildeFullEqual "&#x02247;" ><!--alias ISOAMSN ncong -->
-<!ENTITY NotTildeTilde    "&#x02249;" ><!--alias ISOAMSN nap -->
-<!ENTITY NotVerticalBar   "&#x02224;" ><!--alias ISOAMSN nmid -->
-<!ENTITY nparallel        "&#x02226;" ><!--alias ISOAMSN npar -->
-<!ENTITY nprec            "&#x02280;" ><!--alias ISOAMSN npr -->
-<!ENTITY npreceq          "&#x02AAF;&#x00338;" ><!--alias ISOAMSN npre -->
-<!ENTITY nrightarrow      "&#x0219B;" ><!--alias ISOAMSA nrarr -->
-<!ENTITY nRightarrow      "&#x021CF;" ><!--alias ISOAMSA nrArr -->
-<!ENTITY nshortmid        "&#x02224;&#x02063;" ><!--alias ISOAMSN nsmid -->
-<!ENTITY nshortparallel   "&#x02226;&#x02063;" ><!--alias ISOAMSN nspar -->
-<!ENTITY nsimeq           "&#x02244;" ><!--alias ISOAMSN nsime -->
-<!ENTITY nsubset          "&#x02284;" ><!--alias ISOAMSN vnsub -->
-<!ENTITY nsubseteq        "&#x02288;" ><!--alias ISOAMSN nsube -->
-<!ENTITY nsubseteqq       "&#x02288;" ><!--alias ISOAMSN nsubE -->
-<!ENTITY nsucc            "&#x02281;" ><!--alias ISOAMSN nsc -->
-<!ENTITY nsucceq          "&#x02AB0;&#x00338;" ><!--alias ISOAMSN nsce -->
-<!ENTITY nsupset          "&#x02285;" ><!--alias ISOAMSN vnsup -->
-<!ENTITY nsupseteq        "&#x02289;" ><!--alias ISOAMSN nsupe -->
-<!ENTITY nsupseteqq       "&#x02289;" ><!--alias ISOAMSN nsupE -->
-<!ENTITY ntriangleleft    "&#x022EA;" ><!--alias ISOAMSN nltri -->
-<!ENTITY ntrianglelefteq  "&#x022EC;" ><!--alias ISOAMSN nltrie -->
-<!ENTITY ntriangleright   "&#x022EB;" ><!--alias ISOAMSN nrtri -->
-<!ENTITY ntrianglerighteq "&#x022ED;" ><!--alias ISOAMSN nrtrie -->
-<!ENTITY nwarrow          "&#x02196;" ><!--alias ISOAMSA nwarr -->
-<!ENTITY oint             "&#x0222E;" ><!--alias ISOTECH conint -->
-<!ENTITY OpenCurlyDoubleQuote "&#x0201C;" ><!--alias ISONUM ldquo -->
-<!ENTITY OpenCurlyQuote   "&#x02018;" ><!--alias ISONUM lsquo -->
-<!ENTITY orderof          "&#x02134;" ><!--alias ISOTECH order -->
-<!ENTITY parallel         "&#x02225;" ><!--alias ISOTECH par -->
-<!ENTITY PartialD         "&#x02202;" ><!--alias ISOTECH part -->
-<!ENTITY pitchfork        "&#x022D4;" ><!--alias ISOAMSR fork -->
-<!ENTITY PlusMinus        "&#x000B1;" ><!--alias ISONUM plusmn -->
-<!ENTITY pm               "&#x000B1;" ><!--alias ISONUM plusmn -->
-<!ENTITY prec             "&#x0227A;" ><!--alias ISOAMSR pr -->
-<!ENTITY precapprox       "&#x0227E;" ><!--alias ISOAMSR prap -->
-<!ENTITY preccurlyeq      "&#x0227C;" ><!--alias ISOAMSR prcue -->
-<!ENTITY Precedes         "&#x0227A;" ><!--alias ISOAMSR pr -->
-<!ENTITY PrecedesEqual    "&#x02AAF;" ><!--alias ISOAMSR pre -->
-<!ENTITY PrecedesSlantEqual "&#x0227C;" ><!--alias ISOAMSR prcue -->
-<!ENTITY PrecedesTilde    "&#x0227E;" ><!--alias ISOAMSR prsim -->
-<!ENTITY preceq           "&#x02AAF;" ><!--alias ISOAMSR pre -->
-<!ENTITY precnapprox      "&#x022E8;" ><!--alias ISOAMSN prnap -->
-<!ENTITY precneqq         "&#x02AB5;" ><!--alias ISOAMSN prnE -->
-<!ENTITY precnsim         "&#x022E8;" ><!--alias ISOAMSN prnsim -->
-<!ENTITY precsim          "&#x0227E;" ><!--alias ISOAMSR prsim -->
-<!ENTITY Proportion       "&#x02237;" ><!--alias ISOAMSR Colon -->
-<!ENTITY Proportional     "&#x0221D;" ><!--alias ISOTECH prop -->
-<!ENTITY propto           "&#x0221D;" ><!--alias ISOTECH prop -->
-<!ENTITY questeq          "&#x0225F;" ><!--alias ISOAMSR equest -->
-<!ENTITY rangle           "&#x03009;" ><!--alias ISOTECH rang -->
-<!ENTITY rbrace           "&#x0007D;" ><!--alias ISONUM rcub -->
-<!ENTITY rbrack           "&#x0005D;" ><!--alias ISONUM rsqb -->
-<!ENTITY Re               "&#x0211C;" ><!--alias ISOAMSO real -->
-<!ENTITY realpart         "&#x0211C;" ><!--alias ISOAMSO real -->
-<!ENTITY ReverseElement   "&#x0220B;" ><!--alias ISOTECH niv -->
-<!ENTITY ReverseEquilibrium "&#x021CB;" ><!--alias ISOAMSA lrhar -->
-<!ENTITY ReverseUpEquilibrium "&#x0296F;" ><!--alias ISOAMSA duhar -->
-<!ENTITY RightAngleBracket "&#x03009;" ><!--alias ISOTECH rang -->
-<!ENTITY rightarrow       "&#x02192;" ><!--alias ISONUM rarr -->
-<!ENTITY Rightarrow       "&#x021D2;" ><!--alias ISOTECH rArr -->
-<!ENTITY RightArrow       "&#x02192;" ><!--alias ISONUM rarr -->
-<!ENTITY RightArrowLeftArrow "&#x021C4;" ><!--alias ISOAMSA rlarr -->
-<!ENTITY rightarrowtail   "&#x021A3;" ><!--alias ISOAMSA rarrtl -->
-<!ENTITY RightCeiling     "&#x02309;" ><!--alias ISOAMSC rceil -->
-<!ENTITY RightDoubleBracket "&#x0301B;" ><!--right double bracket delimiter -->
-<!ENTITY RightDownVector  "&#x021C2;" ><!--alias ISOAMSA dharr -->
-<!ENTITY RightFloor       "&#x0230B;" ><!--alias ISOAMSC rfloor -->
-<!ENTITY rightharpoondown "&#x021C1;" ><!--alias ISOAMSA rhard -->
-<!ENTITY rightharpoonup   "&#x021C0;" ><!--alias ISOAMSA rharu -->
-<!ENTITY rightleftarrows  "&#x021C4;" ><!--alias ISOAMSA rlarr -->
-<!ENTITY rightleftharpoons "&#x021CC;" ><!--alias ISOAMSA rlhar -->
-<!ENTITY rightrightarrows "&#x021C9;" ><!--alias ISOAMSA rrarr -->
-<!ENTITY rightsquigarrow  "&#x021DD;" ><!--alias ISOAMSA rarrw -->
-<!ENTITY RightTee         "&#x022A2;" ><!--alias ISOAMSR vdash -->
-<!ENTITY RightTeeArrow    "&#x021A6;" ><!--alias ISOAMSA map -->
-<!ENTITY rightthreetimes  "&#x022CC;" ><!--alias ISOAMSB rthree -->
-<!ENTITY RightTriangle    "&#x022B3;" ><!--alias ISOAMSR vrtri -->
-<!ENTITY RightTriangleEqual "&#x022B5;" ><!--alias ISOAMSR rtrie -->
-<!ENTITY RightUpVector    "&#x021BE;" ><!--alias ISOAMSA uharr -->
-<!ENTITY RightVector      "&#x021C0;" ><!--alias ISOAMSA rharu -->
-<!ENTITY risingdotseq     "&#x02253;" ><!--alias ISOAMSR erDot -->
-<!ENTITY rmoustache       "&#x02997;" ><!--alias ISOAMSC rmoust -->
-<!ENTITY Rrightarrow      "&#x021DB;" ><!--alias ISOAMSA rAarr -->
-<!ENTITY Rsh              "&#x021B1;" ><!--alias ISOAMSA rsh -->
-<!ENTITY searrow          "&#x02198;" ><!--alias ISOAMSA searr -->
-<!ENTITY setminus         "&#x02216;" ><!--alias ISOAMSB setmn -->
-<!ENTITY ShortLeftArrow   "&#x02190;&#x02063;" ><!--alias ISOAMSA slarr -->
-<!ENTITY shortmid         "&#x02223;&#x02063;" ><!--alias ISOAMSR smid -->
-<!ENTITY shortparallel    "&#x02225;&#x02063;" ><!--alias ISOAMSR spar -->
-<!ENTITY ShortRightArrow  "&#x02192;&#x02063;" ><!--alias ISOAMSA srarr -->
-<!ENTITY simeq            "&#x02243;" ><!--alias ISOTECH sime -->
-<!ENTITY SmallCircle      "&#x02218;" ><!--alias ISOTECH compfn -->
-<!ENTITY smallsetminus    "&#x02216;" ><!--alias ISOAMSB ssetmn -->
-<!ENTITY spadesuit        "&#x02660;" ><!--ISOPUB    spades  -->
-<!ENTITY Sqrt             "&#x0221A;" ><!--alias ISOTECH radic -->
-<!ENTITY sqsubset         "&#x0228F;" ><!--alias ISOAMSR sqsub -->
-<!ENTITY sqsubseteq       "&#x02291;" ><!--alias ISOAMSR sqsube -->
-<!ENTITY sqsupset         "&#x02290;" ><!--alias ISOAMSR sqsup -->
-<!ENTITY sqsupseteq       "&#x02292;" ><!--alias ISOAMSR sqsupe -->
-<!ENTITY Square           "&#x025A1;" ><!--alias for square -->
-<!ENTITY SquareIntersection "&#x02293;" ><!--alias ISOAMSB sqcap -->
-<!ENTITY SquareSubset     "&#x0228F;" ><!--alias ISOAMSR sqsub -->
-<!ENTITY SquareSubsetEqual "&#x02291;" ><!--alias ISOAMSR sqsube -->
-<!ENTITY SquareSuperset   "&#x02290;" ><!--alias ISOAMSR sqsup -->
-<!ENTITY SquareSupersetEqual "&#x02292;" ><!--alias ISOAMSR sqsupe -->
-<!ENTITY SquareUnion      "&#x02294;" ><!--alias ISOAMSB sqcup -->
-<!ENTITY Star             "&#x022C6;" ><!--alias ISOAMSB sstarf -->
-<!ENTITY straightepsilon  "&#x003B5;" ><!--alias ISOGRK3 epsi -->
-<!ENTITY straightphi      "&#x003C6;" ><!--alias ISOGRK3 phi -->
-<!ENTITY subset           "&#x02282;" ><!--alias ISOTECH sub -->
-<!ENTITY Subset           "&#x022D0;" ><!--alias ISOAMSR Sub -->
-<!ENTITY subseteq         "&#x02286;" ><!--alias ISOTECH sube -->
-<!ENTITY subseteqq        "&#x02286;" ><!--alias ISOAMSR subE -->
-<!ENTITY SubsetEqual      "&#x02286;" ><!--alias ISOTECH sube -->
-<!ENTITY subsetneq        "&#x0228A;" ><!--alias ISOAMSN subne -->
-<!ENTITY subsetneqq       "&#x0228A;" ><!--alias ISOAMSN subnE -->
-<!ENTITY succ             "&#x0227B;" ><!--alias ISOAMSR sc -->
-<!ENTITY succapprox       "&#x0227F;" ><!--alias ISOAMSR scap -->
-<!ENTITY succcurlyeq      "&#x0227D;" ><!--alias ISOAMSR sccue -->
-<!ENTITY Succeeds         "&#x0227B;" ><!--alias ISOAMSR sc -->
-<!ENTITY SucceedsEqual    "&#x0227D;" ><!--alias ISOAMSR sce -->
-<!ENTITY SucceedsSlantEqual "&#x0227D;" ><!--alias ISOAMSR sccue -->
-<!ENTITY SucceedsTilde    "&#x0227F;" ><!--alias ISOAMSR scsim -->
-<!ENTITY succeq           "&#x0227D;" ><!--alias ISOAMSR sce -->
-<!ENTITY succnapprox      "&#x022E9;" ><!--alias ISOAMSN scnap -->
-<!ENTITY succneqq         "&#x02AB6;" ><!--alias ISOAMSN scnE -->
-<!ENTITY succnsim         "&#x022E9;" ><!--alias ISOAMSN scnsim -->
-<!ENTITY succsim          "&#x0227F;" ><!--alias ISOAMSR scsim -->
-<!ENTITY SuchThat         "&#x0220B;" ><!--ISOTECH  ni -->
-<!ENTITY Sum              "&#x02211;" ><!--alias ISOAMSB sum -->
-<!ENTITY Superset         "&#x02283;" ><!--alias ISOTECH sup -->
-<!ENTITY SupersetEqual    "&#x02287;" ><!--alias ISOTECH supe -->
-<!ENTITY supset           "&#x02283;" ><!--alias ISOTECH sup -->
-<!ENTITY Supset           "&#x022D1;" ><!--alias ISOAMSR Sup -->
-<!ENTITY supseteq         "&#x02287;" ><!--alias ISOTECH supe -->
-<!ENTITY supseteqq        "&#x02287;" ><!--alias ISOAMSR supE -->
-<!ENTITY supsetneq        "&#x0228B;" ><!--alias ISOAMSN supne -->
-<!ENTITY supsetneqq       "&#x0228B;" ><!--alias ISOAMSN supnE -->
-<!ENTITY swarrow          "&#x02199;" ><!--alias ISOAMSA swarr -->
-<!ENTITY therefore        "&#x02234;" ><!--alias ISOTECH there4 -->
-<!ENTITY Therefore        "&#x02234;" ><!--alias ISOTECH there4 -->
-<!ENTITY thickapprox      "&#x02248;&#x02063;" ><!--ISOAMSR   thkap  -->
-<!ENTITY thicksim         "&#x0223C;" ><!--ISOAMSR   thksim -->
-<!ENTITY ThinSpace        "&#x02009;" ><!--space of width 3/18 em alias ISOPUB thinsp -->
-<!ENTITY Tilde            "&#x0223C;" ><!--alias ISOTECH sim -->
-<!ENTITY TildeEqual       "&#x02243;" ><!--alias ISOTECH sime -->
-<!ENTITY TildeFullEqual   "&#x02245;" ><!--alias ISOTECH cong -->
-<!ENTITY TildeTilde       "&#x02248;" ><!--alias ISOTECH ap -->
-<!ENTITY toea             "&#x02928;" ><!--alias ISOAMSA nesear -->
-<!ENTITY tosa             "&#x02929;" ><!--alias ISOAMSA seswar -->
-<!ENTITY triangle         "&#x025B5;" ><!--alias ISOPUB utri -->
-<!ENTITY triangledown     "&#x025BF;" ><!--alias ISOPUB dtri -->
-<!ENTITY triangleleft     "&#x025C3;" ><!--alias ISOPUB ltri -->
-<!ENTITY trianglelefteq   "&#x022B4;" ><!--alias ISOAMSR ltrie -->
-<!ENTITY triangleq        "&#x0225C;" ><!--alias ISOAMSR trie -->
-<!ENTITY triangleright    "&#x025B9;" ><!--alias ISOPUB rtri -->
-<!ENTITY trianglerighteq  "&#x022B5;" ><!--alias ISOAMSR rtrie -->
-<!ENTITY TripleDot        "&#x020DB;" ><!--alias ISOTECH tdot -->
-<!ENTITY twoheadleftarrow "&#x0219E;" ><!--alias ISOAMSA Larr -->
-<!ENTITY twoheadrightarrow "&#x021A0;" ><!--alias ISOAMSA Rarr -->
-<!ENTITY ulcorner         "&#x0231C;" ><!--alias ISOAMSC ulcorn -->
-<!ENTITY Union            "&#x022C3;" ><!--alias ISOAMSB xcup -->
-<!ENTITY UnionPlus        "&#x0228E;" ><!--alias ISOAMSB uplus -->
-<!ENTITY uparrow          "&#x02191;" ><!--alias ISONUM uarr -->
-<!ENTITY Uparrow          "&#x021D1;" ><!--alias ISOAMSA uArr -->
-<!ENTITY UpArrow          "&#x02191;" ><!--alias ISONUM uarr -->
-<!ENTITY UpArrowDownArrow "&#x021C5;" ><!--alias ISOAMSA udarr -->
-<!ENTITY updownarrow      "&#x02195;" ><!--alias ISOAMSA varr -->
-<!ENTITY Updownarrow      "&#x021D5;" ><!--alias ISOAMSA vArr -->
-<!ENTITY UpDownArrow      "&#x02195;" ><!--alias ISOAMSA varr -->
-<!ENTITY UpEquilibrium    "&#x0296E;" ><!--alias ISOAMSA udhar -->
-<!ENTITY upharpoonleft    "&#x021BF;" ><!--alias ISOAMSA uharl -->
-<!ENTITY upharpoonright   "&#x021BE;" ><!--alias ISOAMSA uharr -->
-<!ENTITY UpperLeftArrow   "&#x02196;" ><!--alias ISOAMSA nwarr -->
-<!ENTITY UpperRightArrow  "&#x02197;" ><!--alias ISOAMSA nearr -->
-<!ENTITY upsilon          "&#x003C5;" ><!--alias ISOGRK3 upsi -->
-<!ENTITY Upsilon          "&#x003D2;" ><!--alias ISOGRK3 Upsi -->
-<!ENTITY UpTee            "&#x022A5;" ><!--alias ISOTECH perp -->
-<!ENTITY upuparrows       "&#x021C8;" ><!--alias ISOAMSA uuarr -->
-<!ENTITY urcorner         "&#x0231D;" ><!--alias ISOAMSC urcorn -->
-<!ENTITY varepsilon       "&#x0025B;" ><!--alias ISOGRK3 epsiv -->
-<!ENTITY varkappa         "&#x003F0;" ><!--alias ISOGRK3 kappav -->
-<!ENTITY varnothing       "&#x02205;" ><!--alias ISOAMSO emptyv -->
-<!ENTITY varphi           "&#x003D5;" ><!--alias ISOGRK3 phiv -->
-<!ENTITY varpi            "&#x003D6;" ><!--alias ISOGRK3 piv -->
-<!ENTITY varpropto        "&#x0221D;" ><!--alias ISOAMSR vprop -->
-<!ENTITY varrho           "&#x003F1;" ><!--alias ISOGRK3 rhov -->
-<!ENTITY varsigma         "&#x003C2;" ><!--alias ISOGRK3 sigmav -->
-<!ENTITY varsubsetneq     "&#x0228A;&#x02063;" ><!--alias ISOAMSN vsubne -->
-<!ENTITY varsubsetneqq    "&#x0228A;&#x02063;" ><!--alias ISOAMSN vsubnE -->
-<!ENTITY varsupsetneq     "&#x0228B;&#x02063;" ><!--alias ISOAMSN vsupne -->
-<!ENTITY varsupsetneqq    "&#x0228B;&#x02063;" ><!--alias ISOAMSN vsupnE -->
-<!ENTITY vartheta         "&#x003D1;" ><!--alias ISOGRK3 thetav -->
-<!ENTITY vartriangleleft  "&#x022B2;" ><!--alias ISOAMSR vltri -->
-<!ENTITY vartriangleright "&#x022B3;" ><!--alias ISOAMSR vrtri -->
-<!ENTITY vee              "&#x02228;" ><!--alias ISOTECH or -->
-<!ENTITY Vee              "&#x022C1;" ><!--alias ISOAMSB xvee -->
-<!ENTITY vert             "&#x0007C;" ><!--alias ISONUM verbar -->
-<!ENTITY Vert             "&#x02016;" ><!--alias ISOTECH Verbar -->
-<!ENTITY VerticalBar      "&#x02223;" ><!--alias ISOAMSR mid -->
-<!ENTITY VerticalTilde    "&#x02240;" ><!--alias ISOAMSB wreath -->
-<!ENTITY VeryThinSpace    "&#x0200A;" ><!--space of width 1/18 em alias ISOPUB hairsp -->
-<!ENTITY wedge            "&#x02227;" ><!--alias ISOTECH and -->
-<!ENTITY Wedge            "&#x022C0;" ><!--alias ISOAMSB xwedge -->
-<!ENTITY wp               "&#x02118;" ><!--alias ISOAMSO weierp -->
-<!ENTITY wr               "&#x02240;" ><!--alias ISOAMSB wreath -->

diff --git a/helm/dtd/mmlextra.ent b/helm/dtd/mmlextra.ent
deleted file mode 100644 (file)
index e76de44..0000000
--- a/helm/dtd/mmlextra.ent
+++ /dev/null
@@ -1,134 +0,0 @@
-
-<!--
-     File mmlextra.ent produced by the XSL script mmldtd.xsl
-     from input data in unicode.xml.
-
-     Please report any errors to 
-     David Carlisle <davidc@nag.co.uk>.
-
-     The numeric character values assigned to each entity
-     (should) match either official Unicode assignments
-     or assignments provisionally allocated by the
-     Unicode Consortium based on the characters in the `STIX'
-     propsal for mathematics. Note that these assignments
-     have not been ratified by the corresponding ISO
-     committee and thus should be considered liable to
-     change.
-
--->
-
-<!ENTITY af               "&#x02061;" ><!--short form of &ApplyFunction; -->
-<!ENTITY ApplyFunction    "&#x02061;" ><!--character showing function application in presentation tagging -->
-<!ENTITY Assign           "&#x02254;" ><!--assignment operator -->
-<!ENTITY CapitalDifferentialD "&#x02145;" ><!--D for use in differentials, e.g., within integrals -->
-<!ENTITY Cayleys          "&#x0212D;" ><!--the non-associative ring of octonions or Cayley numbers -->
-<!ENTITY complexes        "&#x02102;" ><!--the field of complex numbers -->
-<!ENTITY Cross            "&#x02A2F;" ><!--cross or vector product -->
-<!ENTITY dd               "&#x02146;" ><!--short form of &DifferentialD; -->
-<!ENTITY DD               "&#x02145;" ><!--short form of CapitalDifferentialD -->
-<!ENTITY DifferentialD    "&#x02146;" ><!--d for use in differentials, e.g., within integrals -->
-<!ENTITY DownArrowBar     "&#x02913;" ><!--down arrow to bar -->
-<!ENTITY DownBreve        "&#x00311;" ><!--breve, inverted (non-spacing) -->
-<!ENTITY DownLeftRightVector "&#x02950;" ><!--left-down-right-down harpoon -->
-<!ENTITY DownLeftTeeVector "&#x0295E;" ><!--left-down harpoon from bar -->
-<!ENTITY DownLeftVectorBar "&#x02956;" ><!--left-down harpoon to bar -->
-<!ENTITY DownRightTeeVector "&#x0295F;" ><!--right-down harpoon from bar -->
-<!ENTITY DownRightVectorBar "&#x02957;" ><!--right-down harpoon to bar -->
-<!ENTITY DownTeeArrow     "&#x021A7;" ><!--alias for mapstodown -->
-<!ENTITY ee               "&#x02147;" ><!--short form of &ExponentialE; -->
-<!ENTITY EmptySmallSquare "&#x025FD;" ><!--empty small square -->
-<!ENTITY EmptyVerySmallSquare "&#x025FD;" ><!--empty small square -->
-<!ENTITY Equal            "&#x02A75;" ><!--two consecutive equal signs -->
-<!ENTITY expectation      "&#x02130;" ><!--expectation (operator) -->
-<!ENTITY exponentiale     "&#x0212F;" ><!--base of the Napierian logarithms -->
-<!ENTITY ExponentialE     "&#x02147;" ><!--e use for the exponential base of the natural logarithms -->
-<!ENTITY FilledSmallSquare "&#x025FE;" ><!--filled small square -->
-<!ENTITY FilledVerySmallSquare "&#x025FE;" ><!--filled very small square -->
-<!ENTITY Fouriertrf       "&#x02131;" ><!--Fourier transform -->
-<!ENTITY GreaterGreater   "&#x02AA2;" ><!--alias for GT -->
-<!ENTITY HilbertSpace     "&#x0210B;" ><!--Hilbert space -->
-<!ENTITY HorizontalLine   "&#x02500;" ><!--short horizontal line  -->
-<!ENTITY ic               "&#x0200B;" ><!--short form of  &InvisibleComma; -->
-<!ENTITY ii               "&#x02148;" ><!--short form of &ImaginaryI; -->
-<!ENTITY ImaginaryI       "&#x02148;" ><!--i for use as a square root of -1 -->
-<!ENTITY imagline         "&#x02110;" ><!--the geometric imaginary line -->
-<!ENTITY integers         "&#x02124;" ><!--the ring of integers -->
-<!ENTITY InvisibleComma   "&#x0200B;" ><!--used as a separator, e.g., in indices -->
-<!ENTITY InvisibleTimes   "&#x02062;" ><!--marks multiplication when it is understood without a mark -->
-<!ENTITY it               "&#x02062;" ><!--short form of &InvisibleTimes; -->
-<!ENTITY Laplacetrf       "&#x02112;" ><!--Laplace transform -->
-<!ENTITY larrb            "&#x021E4;" ><!--leftwards arrow to bar -->
-<!ENTITY LeftArrowBar     "&#x021E4;" ><!--alias for larrb -->
-<!ENTITY LeftDownTeeVector "&#x02961;" ><!--down-left harpoon from bar -->
-<!ENTITY LeftDownVectorBar "&#x02959;" ><!--down-left harpoon to bar -->
-<!ENTITY LeftRightVector  "&#x0294E;" ><!--left-up-right-up harpoon -->
-<!ENTITY LeftTeeArrow     "&#x021A4;" ><!--alias for mapstoleft -->
-<!ENTITY LeftTeeVector    "&#x0295A;" ><!--left-up harpoon from bar -->
-<!ENTITY LeftTriangleBar  "&#x029CF;" ><!--not left triangle, vertical bar -->
-<!ENTITY LeftUpDownVector "&#x02951;" ><!--up-left-down-left harpoon -->
-<!ENTITY LeftUpTeeVector  "&#x02960;" ><!--up-left harpoon from bar -->
-<!ENTITY LeftUpVectorBar  "&#x02958;" ><!--up-left harpoon to bar -->
-<!ENTITY LeftVectorBar    "&#x02952;" ><!--left-up harpoon to bar -->
-<!ENTITY LessLess         "&#x02AA1;" ><!--alias for Lt -->
-<!ENTITY mapstodown       "&#x021A7;" ><!--downwards arrow from bar -->
-<!ENTITY mapstoleft       "&#x021A4;" ><!--leftwards arrow from bar -->
-<!ENTITY mapstoup         "&#x021A5;" ><!--upwards arrow from bar -->
-<!ENTITY Mellintrf        "&#x02133;" ><!--Mellin transform -->
-<!ENTITY naturals         "&#x02115;" ><!--the semi-ring of natural numbers -->
-<!ENTITY nbump            "&#x0224E;&#x00338;" ><!--not bumpy equals -->
-<!ENTITY nbumpe           "&#x0224F;&#x00338;" ><!--not bumpy single equals -->
-<!ENTITY NegativeMediumSpace "&#x0205F;&#x02063;" ><!--space of width -4/18 em -->
-<!ENTITY NegativeThickSpace "&#x02005;&#x02063;" ><!--space of width -5/18 em -->
-<!ENTITY NegativeThinSpace "&#x02009;&#x02063;" ><!--space of width -3/18 em -->
-<!ENTITY NegativeVeryThinSpace "&#x0200A;&#x02063;" ><!--space of width -1/18 em -->
-<!ENTITY nesim            "&#x02242;&#x00338;" ><!--not equal or similar -->
-<!ENTITY NewLine          "&#x0000A;" ><!--force a line break; line feed -->
-<!ENTITY NoBreak          "&#x0FEFF;" ><!--never break line here -->
-<!ENTITY NotCupCap        "&#x0226D;" ><!--alias for &nasymp; -->
-<!ENTITY NotEqualTilde    "&#x02242;&#x00338;" ><!--alias for  &nesim; -->
-<!ENTITY NotHumpDownHump  "&#x0224E;&#x00338;" ><!--alias for &nbump; -->
-<!ENTITY NotHumpEqual     "&#x0224F;&#x00338;" ><!--alias for &nbumpe; -->
-<!ENTITY NotLeftTriangleBar "&#x029CF;&#x00338;" ><!--not left triangle, vertical bar -->
-<!ENTITY NotNestedGreaterGreater "&#x024A2;&#x00338;" ><!--not double greater-than sign -->
-<!ENTITY NotNestedLessLess "&#x024A1;&#x00338;" ><!--not double less-than sign -->
-<!ENTITY NotRightTriangleBar "&#x029D0;&#x00338;" ><!--not vertical bar, right triangle -->
-<!ENTITY NotSquareSubset  "&#x0228F;&#x00338;" ><!--square not subset -->
-<!ENTITY NotSquareSuperset "&#x02290;&#x00338;" ><!--negated set-like partial order operator -->
-<!ENTITY NotSucceedsTilde "&#x0227F;&#x00338;" ><!--not succeeds or similar -->
-<!ENTITY OverBar          "&#x000AF;" ><!--over bar -->
-<!ENTITY OverBrace        "&#x0FE37;" ><!--over brace  -->
-<!ENTITY OverBracket      "&#x023B4;" ><!--over bracket -->
-<!ENTITY OverParenthesis  "&#x0FE35;" ><!--over parenthesis -->
-<!ENTITY planckh          "&#x0210E;" ><!--the ring (skew field) of quaternions -->
-<!ENTITY Poincareplane    "&#x0210C;" ><!--the Poincare upper half-plane -->
-<!ENTITY primes           "&#x02119;" ><!--the prime natural numbers -->
-<!ENTITY Product          "&#x0220F;" ><!--alias for &prod -->
-<!ENTITY quaternions      "&#x0210D;" ><!--the ring (skew field) of quaternions -->
-<!ENTITY rarrb            "&#x021E5;" ><!--leftwards arrow to bar -->
-<!ENTITY rationals        "&#x0211A;" ><!--the field of rational numbers -->
-<!ENTITY realine          "&#x0211B;" ><!--the geometric real line -->
-<!ENTITY reals            "&#x0211D;" ><!--the field of real numbers -->
-<!ENTITY RightArrowBar    "&#x021E5;" ><!--alias for rarrb -->
-<!ENTITY RightDownTeeVector "&#x0295D;" ><!--down-right harpoon from bar -->
-<!ENTITY RightDownVectorBar "&#x02955;" ><!--down-right harpoon to bar -->
-<!ENTITY RightTeeVector   "&#x0295B;" ><!--right-up harpoon from bar -->
-<!ENTITY RightTriangleBar "&#x029D0;" ><!--vertical bar, right triangle -->
-<!ENTITY RightUpDownVector "&#x0294F;" ><!--up-right-down-right harpoon -->
-<!ENTITY RightUpTeeVector "&#x0295C;" ><!--up-right harpoon from bar -->
-<!ENTITY RightUpVectorBar "&#x02954;" ><!--up-right harpoon to bar -->
-<!ENTITY RightVectorBar   "&#x02953;" ><!--up-right harpoon to bar -->
-<!ENTITY RoundImplies     "&#x02970;" ><!--round implies -->
-<!ENTITY RuleDelayed      "&#x029F4;" ><!--rule-delayed (colon right arrow) -->
-<!ENTITY ShortDownArrow   "&#x02304;&#x02063;" ><!--short down arrow -->
-<!ENTITY ShortUpArrow     "&#x02303;&#x02063;" ><!--short up arrow  -->
-<!ENTITY Tab              "&#x00009;" ><!--tabulator stop; horizontal tabulation -->
-<!ENTITY ThickSpace       "&#x02005;" ><!--space of width 5/18 em -->
-<!ENTITY UnderBar         "&#x00332;" ><!--combining low line -->
-<!ENTITY UnderBrace       "&#x0FE38;" ><!--under brace  -->
-<!ENTITY UnderBracket     "&#x023B5;" ><!--under bracket -->
-<!ENTITY UpArrowBar       "&#x02912;" ><!--up arrow to bar -->
-<!ENTITY UpTeeArrow       "&#x021A5;" ><!--Alias mapstoup -->
-<!ENTITY VerticalLine     "&#x02758;" ><!--short vertical line  -->
-<!ENTITY VerticalSeparator "&#x02758;" ><!--vertical separating operator -->
-<!ENTITY zeetrf           "&#x02128;" ><!--zee transform -->
-<!ENTITY ZeroWidthSpace   "&#x0200B;" ><!--zero width space -->

diff --git a/helm/dtd/provastruct.theory.xml b/helm/dtd/provastruct.theory.xml
deleted file mode 100644 (file)
index 23c8f7c..0000000
--- a/helm/dtd/provastruct.theory.xml
+++ /dev/null
@@ -1,158 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!DOCTYPE SECTION SYSTEM "theoryobject.dtd">
-
-<SECTION>
- 
- <SECTION>
-  <Variable name="A" xmlns:m="http://www.w3.org/1998/Math/MathML"><type>
-    <m:math><m:apply><m:csymbol>cast</m:csymbol>
-      
-        <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
-      
-      
-        <m:apply><m:csymbol>Type</m:csymbol></m:apply>
-      
-    </m:apply></m:math>
-  </type></Variable>
-  <SECTION>
-   <Variable name="B" xmlns:m="http://www.w3.org/1998/Math/MathML"><type>
-    <m:math><m:apply><m:csymbol>cast</m:csymbol>
-      
-        <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
-      
-      
-        <m:apply><m:csymbol>Type</m:csymbol></m:apply>
-      
-    </m:apply></m:math>
-  </type></Variable>
-   <Axiom name="axiom" xmlns:m="http://www.w3.org/1998/Math/MathML"><Params>1: A 0: B</Params><type>
-    <m:math><m:apply><m:csymbol>cast</m:csymbol>
-      
-        <m:apply><m:csymbol>arrow</m:csymbol>
-            <m:ci>A</m:ci>
-          
-            <m:apply><m:csymbol>arrow</m:csymbol>
-                <m:apply><m:csymbol>arrow</m:csymbol>
-                    <m:ci>A</m:ci>
-                  
-                    <m:ci>B</m:ci>
-                  </m:apply>
-              
-                <m:ci>B</m:ci>
-              </m:apply>
-          </m:apply>
-      
-      
-        <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
-      
-    </m:apply></m:math>
-  </type></Axiom>
-   <Definition name="th1" xmlns:m="http://www.w3.org/1998/Math/MathML"><Params>1: A 0: B</Params><body>
-    <m:math><m:lambda><m:bvar><m:ci>A0</m:ci><m:type>
-        <m:ci>A</m:ci>
-      </m:type></m:bvar>
-        <m:lambda><m:bvar><m:ci>H</m:ci><m:type>
-            <m:apply><m:csymbol>arrow</m:csymbol>
-                <m:ci>A</m:ci>
-              
-                <m:ci>B</m:ci>
-              </m:apply>
-          </m:type></m:bvar>
-            <m:apply><m:csymbol>app</m:csymbol>
-              <m:ci definitionURL="cic:/coq/INIT/Logic/Conjunction/and.ind">conj</m:ci>
-              <m:ci>A</m:ci>
-              <m:ci>B</m:ci>
-              <m:ci>A0</m:ci>
-              <m:apply><m:csymbol>app</m:csymbol>
-                <m:ci definitionURL="cic:/prove/provastruct/a/b1/axiom.con">axiom</m:ci>
-                <m:ci>A0</m:ci>
-                <m:ci>H</m:ci>
-              </m:apply>
-            </m:apply>
-          </m:lambda>
-      </m:lambda></m:math>
-  </body><type>
-    <m:math><m:apply><m:csymbol>cast</m:csymbol>
-      
-        <m:apply><m:csymbol>arrow</m:csymbol>
-            <m:ci>A</m:ci>
-          
-            <m:apply><m:csymbol>arrow</m:csymbol>
-                <m:apply><m:csymbol>arrow</m:csymbol>
-                    <m:ci>A</m:ci>
-                  
-                    <m:ci>B</m:ci>
-                  </m:apply>
-              
-                <m:apply><m:and definitionURL="cic:/coq/INIT/Logic/Conjunction/and.ind"/><m:ci>A</m:ci><m:ci>B</m:ci></m:apply>
-              </m:apply>
-          </m:apply>
-      
-      
-        <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
-      
-    </m:apply></m:math>
-  </type></Definition>
-  </SECTION>
-  <SECTION>
-   <Variable name="B" xmlns:m="http://www.w3.org/1998/Math/MathML"><type>
-    <m:math><m:apply><m:csymbol>cast</m:csymbol>
-      
-        <m:apply><m:csymbol>Set</m:csymbol></m:apply>
-      
-      
-        <m:apply><m:csymbol>Type</m:csymbol></m:apply>
-      
-    </m:apply></m:math>
-  </type></Variable>
-   <Axiom name="axiom&apos;" xmlns:m="http://www.w3.org/1998/Math/MathML"><Params>1: A</Params><type>
-    <m:math><m:apply><m:csymbol>cast</m:csymbol>
-      
-        <m:apply><m:csymbol>prod</m:csymbol><m:bvar><m:ci>A</m:ci><m:type>
-            <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
-          </m:type></m:bvar>
-            <m:apply><m:csymbol>arrow</m:csymbol>
-                <m:ci>A</m:ci>
-              
-                <m:ci>A</m:ci>
-              </m:apply>
-          </m:apply>
-      
-      
-        <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
-      
-    </m:apply></m:math>
-  </type></Axiom>
-  </SECTION>
-  <Definition name="th1&apos;" xmlns:m="http://www.w3.org/1998/Math/MathML"><Params>0: A</Params><body>
-    <m:math><m:lambda><m:bvar><m:ci>A0</m:ci><m:type>
-        <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
-      </m:type></m:bvar>
-        <m:lambda><m:bvar><m:ci>H</m:ci><m:type>
-            <m:ci>A0</m:ci>
-          </m:type></m:bvar>
-            <m:ci>H</m:ci>
-          </m:lambda>
-      </m:lambda></m:math>
-  </body><type>
-    <m:math><m:apply><m:csymbol>cast</m:csymbol>
-      
-        <m:apply><m:csymbol>prod</m:csymbol><m:bvar><m:ci>A</m:ci><m:type>
-            <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
-          </m:type></m:bvar>
-            <m:apply><m:csymbol>arrow</m:csymbol>
-                <m:ci>A</m:ci>
-              
-                <m:ci>A</m:ci>
-              </m:apply>
-          </m:apply>
-      
-      
-        <m:apply><m:csymbol>Prop</m:csymbol></m:apply>
-      
-    </m:apply></m:math>
-  </type></Definition>
- </SECTION>
-</SECTION>
-
-<!-- This page was served in 4037 milliseconds by Cocoon 1.7.3 -->

diff --git a/helm/dtd/theoryobject.dtd b/helm/dtd/theoryobject.dtd
deleted file mode 100644 (file)
index c6a43d1..0000000
--- a/helm/dtd/theoryobject.dtd
+++ /dev/null
@@ -1,82 +0,0 @@
-<?xml encoding="ISO-8859-1"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--*****************************************************************-->
-<!-- DTD FOR THEORY OBJECTS AT LEVEL OF MATHML CONTENT:              -->
-<!-- First draft: May 9 2000, Irene Schena                           -->
-<!-- Second draft: March 15 2001, Irene Schena                       -->
-<!-- Third draft: May 3 2001, Irene Schena                           -->
-<!--*****************************************************************-->
-
-<!-- DA AGGIUNGERE: 
-CONJECTURE (teo da dim)
-EXERCISE
-EXAMPLE -->
-
-<!ENTITY % cicobj SYSTEM "cicobject.dtd">
-
-%cicobj;
-
-<!ENTITY % theorystructure
-  '(ht:AXIOM|ht:DEFINITION|ht:THEOREM|ht:VARIABLE|ht:SECTION|ht:MUTUAL)*'>
-
-<!ELEMENT ht:SECTION (%theorystructure;)>
-<!ATTLIST ht:SECTION
-          name CDATA #REQUIRED>
-
-<!ELEMENT ht:MUTUAL (ht:DEFINITION,ht:DEFINITION+)>
-
-<!-- Theory Items -->
-
-<!ELEMENT ht:AXIOM (Axiom)>
-<!ATTLIST ht:AXIOM
-          uri CDATA #REQUIRED
-          as (Axiom|Declaration) #REQUIRED>
-
-<!ELEMENT ht:DEFINITION (Definition|InductiveDefinition)>
-<!ATTLIST ht:DEFINITION
-          uri CDATA #REQUIRED
-          as (Definition|Inductive|CoInductive|Record) #REQUIRED>
-
-<!ELEMENT ht:THEOREM (type)>
-<!ATTLIST ht:THEOREM
-          uri CDATA #REQUIRED
-          as (Theorem|Lemma|Corollary|Fact|Remark) #REQUIRED>
-
-<!ELEMENT ht:VARIABLE (Variable)>
-<!ATTLIST ht:VARIABLE
-          uri CDATA #REQUIRED
-          as (Assumption|Hypothesis|LocalDefinition) #REQUIRED>
-
-
-
-
-
-
-
-
-
-

diff --git a/helm/fix_params/.cvsignore b/helm/fix_params/.cvsignore
deleted file mode 100644 (file)
index 7335d16..0000000
--- a/helm/fix_params/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cm[iox] *.o fix_params fix_params.opt

diff --git a/helm/fix_params/.depend b/helm/fix_params/.depend
deleted file mode 100644 (file)
index 152053f..0000000
--- a/helm/fix_params/.depend
+++ /dev/null
@@ -1,2 +0,0 @@
-fix_params.cmo: cicFindParameters.cmo 
-fix_params.cmx: cicFindParameters.cmx 

diff --git a/helm/fix_params/Makefile b/helm/fix_params/Makefile
deleted file mode 100644 (file)
index 29a6a96..0000000
--- a/helm/fix_params/Makefile
+++ /dev/null
@@ -1,41 +0,0 @@
-REQUIRES = helm-getter helm-cic_cache helm-xml
-PREDICATES =
-OCAMLOPTIONS = -package "$(REQUIRES)" -predicates "$(PREDICATES)"
-OCAMLDEP = ocamldep
-OCAMLFIND = ocamlfind
-OCAMLC = $(OCAMLFIND) ocamlc $(OCAMLOPTIONS)
-OCAMLOPT = $(OCAMLFIND) ocamlopt $(OCAMLOPTIONS)
-
-LIBRARIES = $(shell ocamlfind query -recursive -predicates "byte $(PREDICATES)" -format "%d/%a" $(REQUIRES))
-LIBRARIES_OPT = $(shell ocamlfind query -recursive -predicates "native $(PREDICATES)" -format "%d/%a" $(REQUIRES))
-
-all: fix_params
-opt: fix_params.opt
-
-DEPOBJS = cic2Xml.ml cicFindParameters.ml fix_params.ml
-
-FIXPARAMSOBJS = cic2Xml.cmo cicFindParameters.cmo fix_params.cmo
-
-depend:
-       $(OCAMLDEP) $(DEPOBJS) > .depend
-
-fix_params: $(FIXPARAMSOBJS) $(LIBRARIES)
-       $(OCAMLC) -linkpkg -o fix_params $(FIXPARAMSOBJS)
-
-fix_params.opt: $(FIXPARAMSOBJS:.cmo=.cmx) $(LIBRARIES_OPT)
-       $(OCAMLOPT) -linkpkg -o fix_params.opt $(FIXPARAMSOBJS:.cmo=.cmx)
-
-.SUFFIXES: .ml .mli .cmo .cmi .cmx
-.ml.cmo: $(LIBRARIES)
-       $(OCAMLC) -c $<
-.mli.cmi: $(LIBRARIES)
-       $(OCAMLC) -c $<
-.ml.cmx: $(LIBRARIES_OPT)
-       $(OCAMLOPT) -c $<
-
-clean:
-       rm -f *.cm[iox] *.o fix_params fix_params.opt
-
-.PHONY: clean
-
-include .depend

diff --git a/helm/fix_params/cic2Xml.ml b/helm/fix_params/cic2Xml.ml
deleted file mode 100644 (file)
index ea58eb3..0000000
--- a/helm/fix_params/cic2Xml.ml
+++ /dev/null
@@ -1,252 +0,0 @@
-
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(*CSC codice cut & paste da cicPp e xmlcommand *)
-
-exception ImpossiblePossible;;
-exception NotImplemented;;
-let dtdname = "http://localhost:8081/getdtd?url=cic.dtd";;
-
-(*CSC ottimizzazione: al posto di curi cdepth (vedi codice) *)
-let print_term curi =
- let rec aux =
-  let module C = Cic in
-  let module X = Xml in
-  let module U = UriManager in
-    function
-       C.ARel (id,n,b) ->
-        X.xml_empty "REL" ["value",(string_of_int n);"binder",b;"id",id]
-     | C.AVar (id,uri) ->
-        let vdepth = U.depth_of_uri uri
-        and cdepth = U.depth_of_uri curi in
-         X.xml_empty "VAR"
-          ["relUri",(string_of_int (cdepth - vdepth)) ^ "," ^
-            (U.name_of_uri uri) ;
-           "id",id]
-     | C.AMeta (id,n) ->
-        X.xml_empty "META" ["no",(string_of_int n) ; "id",id]
-     | C.ASort (id,s) ->
-        let string_of_sort =
-         function
-            C.Prop -> "Prop"
-          | C.Set  -> "Set"
-          | C.Type -> "Type"
-        in
-         X.xml_empty "SORT" ["value",(string_of_sort s) ; "id",id]
-     | C.AImplicit _ -> raise NotImplemented
-     | C.AProd (id,C.Anonimous,s,t) ->
-        X.xml_nempty "PROD" ["id",id]
-         [< X.xml_nempty "source" [] (aux s) ;
-            X.xml_nempty "target" [] (aux t)
-         >]
-     | C.AProd (xid,C.Name id,s,t) ->
-       X.xml_nempty "PROD" ["id",xid]
-        [< X.xml_nempty "source" [] (aux s) ;
-           X.xml_nempty "target" ["binder",id] (aux t)
-        >]
-     | C.ACast (id,v,t) ->
-        X.xml_nempty "CAST" ["id",id]
-         [< X.xml_nempty "term" [] (aux v) ;
-            X.xml_nempty "type" [] (aux t)
-         >]
-     | C.ALambda (id,C.Anonimous,s,t) ->
-        X.xml_nempty "LAMBDA" ["id",id]
-         [< X.xml_nempty "source" [] (aux s) ;
-            X.xml_nempty "target" [] (aux t)
-         >]
-     | C.ALambda (xid,C.Name id,s,t) ->
-       X.xml_nempty "LAMBDA" ["id",xid]
-        [< X.xml_nempty "source" [] (aux s) ;
-           X.xml_nempty "target" ["binder",id] (aux t)
-        >]
-     | C.ALetIn (xid,C.Anonimous,s,t) ->
-       assert false (*CSC: significa che e' sbagliato il tipo di LetIn!!!*)
-     | C.ALetIn (xid,C.Name id,s,t) ->
-       X.xml_nempty "LETIN" ["id",xid]
-        [< X.xml_nempty "term" [] (aux s) ;
-           X.xml_nempty "letintarget" ["binder",id] (aux t)
-        >]
-     | C.AAppl (id,li) ->
-        X.xml_nempty "APPLY" ["id",id]
-         [< (List.fold_right (fun x i -> [< (aux x) ; i >]) li [<>])
-         >]
-     | C.AConst (id,uri,_) ->
-        X.xml_empty "CONST" ["uri", (U.string_of_uri uri) ; "id",id]
-     | C.AAbst (id,uri) -> raise NotImplemented
-     | C.AMutInd (id,uri,_,i) ->
-        X.xml_empty "MUTIND"
-         ["uri", (U.string_of_uri uri) ;
-          "noType",(string_of_int i) ;
-          "id",id]
-     | C.AMutConstruct (id,uri,_,i,j) ->
-        X.xml_empty "MUTCONSTRUCT"
-         ["uri", (U.string_of_uri uri) ;
-          "noType",(string_of_int i) ; "noConstr",(string_of_int j) ;
-          "id",id]
-     | C.AMutCase (id,uri,_,typeno,ty,te,patterns) ->
-        X.xml_nempty "MUTCASE"
-         ["uriType",(U.string_of_uri uri) ;
-          "noType", (string_of_int typeno) ;
-          "id", id]
-         [< X.xml_nempty "patternsType" [] [< (aux ty) >] ;
-            X.xml_nempty "inductiveTerm" [] [< (aux te) >] ;
-            List.fold_right
-             (fun x i -> [< X.xml_nempty "pattern" [] [< aux x >] ; i>])
-             patterns [<>]
-         >]
-     | C.AFix (id, no, funs) ->
-       X.xml_nempty "FIX" ["noFun", (string_of_int no) ; "id",id]
-        [< List.fold_right
-            (fun (fi,ai,ti,bi) i ->
-              [< X.xml_nempty "FixFunction"
-                  ["name", fi; "recIndex", (string_of_int ai)]
-                  [< X.xml_nempty "type" [] [< aux ti >] ;
-                     X.xml_nempty "body" [] [< aux bi >]
-                  >] ;
-                 i
-              >]
-            ) funs [<>]
-        >]
-     | C.ACoFix (id,no,funs) ->
-       X.xml_nempty "COFIX" ["noFun", (string_of_int no) ; "id",id]
-        [< List.fold_right
-            (fun (fi,ti,bi) i ->
-              [< X.xml_nempty "CofixFunction" ["name", fi]
-                  [< X.xml_nempty "type" [] [< aux ti >] ;
-                     X.xml_nempty "body" [] [< aux bi >]
-                  >] ;
-                 i
-              >]
-            ) funs [<>]
-        >]
- in
-  aux
-;;
-
-let encode params =
- List.fold_right
-  (fun (n,l) i ->
-    match l with
-       [] -> i
-     | _ ->
-       string_of_int n ^ ": " ^ 
-       String.concat " " (List.map UriManager.name_of_uri l) ^
-       i
-  ) params ""
-;;
-
-let print_mutual_inductive_type curi (typename,inductive,arity,constructors) =
- let module C = Cic in
- let module X = Xml in
-  [< X.xml_nempty "InductiveType"
-      ["name",typename ;
-       "inductive",(string_of_bool inductive)
-      ]
-      [< X.xml_nempty "arity" [] (print_term curi arity) ;
-         (List.fold_right
-          (fun (name,ty,_) i ->
-            [< X.xml_nempty "Constructor" ["name",name]
-                (print_term curi ty) ;
-               i
-            >])
-          constructors
-          [<>]
-         )
-      >]
-  >]
-;;
-
-let pp obj curi =
- let module C = Cic in
- let module X = Xml in
-  match obj with
-     C.ADefinition (xid, id, te, ty, params) ->
-      [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
-         X.xml_cdata ("<!DOCTYPE Definition SYSTEM \"" ^ dtdname ^ "\">\n\n") ;
-         X.xml_nempty "Definition"
-          (["name", id ; "id",xid] @
-           match params with
-              C.Possible _ -> raise ImpossiblePossible
-              (*CSC params are kept in inverted order in the internal *)
-              (* representation (the order of application)            *)
-            | C.Actual fv' -> ["params",(encode (List.rev fv'))])
-          [< X.xml_nempty "body" [] (print_term curi te) ;
-             X.xml_nempty "type"  [] (print_term curi ty) >]
-      >]
-   | C.AAxiom (xid, id, ty, params) ->
-      [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
-         X.xml_cdata ("<!DOCTYPE Axiom SYSTEM \"" ^ dtdname ^ "\">\n\n") ;
-         X.xml_nempty "Axiom"
-          (*CSC params are kept in inverted order in the internal *)
-          (* representation (the order of application)            *)
-          ["name",id ; "params",(encode (List.rev params)) ; "id",xid]
-          [< X.xml_nempty "type" [] (print_term curi ty) >]
-      >]
-   | C.AVariable (xid, name, bo, ty) ->
-      [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
-         X.xml_cdata ("<!DOCTYPE Variable SYSTEM \"" ^ dtdname ^ "\">\n\n") ;
-         X.xml_nempty "Variable" ["name",name ; "id",xid]
-          [< (match bo with
-                 None -> [<>]
-               | Some bo -> X.xml_nempty "body" [] (print_term curi bo)
-             ) ;
-             X.xml_nempty "type" [] (print_term curi ty)
-          >]
-      >]
-   | C.ACurrentProof (xid, name, conjs, bo, ty) ->
-      [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
-         X.xml_cdata ("<!DOCTYPE CurrentProof SYSTEM \"" ^ dtdname ^ "\">\n\n");
-         X.xml_nempty "CurrentProof" ["name",name ; "id",xid]
-          [< List.fold_right
-              (fun (j,t) i ->
-                [< X.xml_nempty "Conjecture" ["no",(string_of_int j)]
-                    [< print_term curi t >] ; i >])
-              conjs [<>] ;
-             X.xml_nempty "body" [] [< print_term curi bo >] ;
-             X.xml_nempty "type" [] [< print_term curi ty >]
-          >]
-      >]
-   | C.AInductiveDefinition (xid, tys, params, paramsno) ->
-      let names =
-       List.map
-        (fun (typename,_,_,_) -> typename)
-        tys
-      in
-       [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
-          X.xml_cdata ("<!DOCTYPE InductiveDefinition SYSTEM \"" ^
-           dtdname ^ "\">\n\n") ;
-          X.xml_nempty "InductiveDefinition"
-           (*CSC params are kept in inverted order in the internal *)
-           (* representation (the order of application)            *)
-           ["noParams",string_of_int paramsno ;
-            "params",(encode (List.rev params)) ;
-            "id",xid]
-          [< List.fold_right
-              (fun x i -> [< print_mutual_inductive_type curi x ; i >])
-              tys [< >]
-           >]
-       >]
-;;

diff --git a/helm/fix_params/cicFindParameters.ml b/helm/fix_params/cicFindParameters.ml
deleted file mode 100644 (file)
index f746751..0000000
--- a/helm/fix_params/cicFindParameters.ml
+++ /dev/null
@@ -1,159 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception WrongUriToConstant;;
-exception WrongUriToInductiveDefinition;;
-exception CircularDependency of string;;
-
-module OrderedUris =
- struct
-  type t = UriManager.uri
-  let compare (s1 : t) (s2 : t) =
-   (* library function for = *)
-   compare s1 s2
-   (*if s1 = s2 then 0 else if s1 < s2 then (-1) else 1*)
- end
-;;
-
-let filename_of_uri uri =
- let uri' = UriManager.string_of_uri uri in
-  let fn = Str.replace_first (Str.regexp "cic:") Configuration.helm_dir uri' in
-   fn ^ ".xml"
-;;
-
-(* quite inefficient coding of a set of strings: the only operations  *)
-(* performed are mem O(log n), and union O(n * log n?)                *)
-(* Perhaps a better implementation would be an array of bits or a map *)
-(* from uri to booleans                                               *)
-module SetOfUris = Set.Make(OrderedUris);;
-
-let (@@) = SetOfUris.union;;
-
-let rec parameters_of te ty pparams=
- let module S = SetOfUris in
- let module C = Cic in
-   let rec aux =
-    function
-       C.Rel _ -> S.empty
-     | C.Var uri -> S.singleton uri
-     | C.Meta _ -> S.empty
-     | C.Sort _ -> S.empty
-     | C.Implicit -> S.empty
-     | C.Cast (te, ty) -> aux te @@ aux ty
-     | C.Prod (_, s, t) -> aux s @@ aux t
-     | C.Lambda (_, s, t) -> aux s @@ aux t
-     | C.LetIn (_, s, t) -> aux s @@ aux t
-     | C.Appl l -> List.fold_right (fun x i -> aux x @@ i) l S.empty
-     | C.Const (uri,_) ->
-        (* the parameters could be not exact but only possible *)
-        fix_params uri (Some (filename_of_uri uri)) ;
-        (* now the parameters are surely possible *)
-        (match CicCache.get_obj uri with
-            C.Definition (_, _, _, params) ->
-              List.fold_right
-               (fun (_,l) i ->
-                 List.fold_right
-                  (fun x i -> S.singleton x @@ i) l i
-               ) params S.empty
-          | C.Axiom (_, _, params) ->
-             List.fold_right
-              (fun (_,l) i ->
-                List.fold_right
-                 (fun x i -> S.singleton x @@ i) l i
-              ) params S.empty
-          | C.CurrentProof _ -> S.empty (*CSC wrong *)
-          | _ -> raise WrongUriToConstant
-        )
-     | C.Abst _ -> S.empty
-     | C.MutInd (uri,_,_) ->
-        (match CicCache.get_obj uri with
-            C.InductiveDefinition (_, params, _) ->
-             List.fold_right
-              (fun (_,l) i ->
-                List.fold_right
-                 (fun x i -> S.singleton x @@ i) l i
-              ) params S.empty
-          | _ -> raise WrongUriToInductiveDefinition
-        )
-     | C.MutConstruct (uri,_,_,_) ->
-        (match CicCache.get_obj uri with
-            C.InductiveDefinition (_, params, _) ->
-             List.fold_right
-              (fun (_,l) i ->
-                List.fold_right
-                 (fun x i -> S.singleton x @@ i) l i
-              ) params S.empty
-          | _ -> raise WrongUriToInductiveDefinition
-        )
-     | C.MutCase (uri,_,_,outtype,term,patterns) ->
-        (*CSC cosa basta? Ci vuole anche uri? *)
-        (match CicCache.get_obj uri with
-            C.InductiveDefinition (_, params, _) ->
-            List.fold_right
-             (fun (_,l) i ->
-               List.fold_right
-                (fun x i -> S.singleton x @@ i) l i
-             ) params S.empty
-          | _ -> raise WrongUriToInductiveDefinition
-        ) @@ aux outtype @@ aux term @@
-         List.fold_right (fun x i -> aux x @@ i) patterns S.empty
-     | C.Fix (_,fl) ->
-        List.fold_right
-         (fun (_,_,ty,bo) i  -> aux ty @@ aux bo @@ i)
-         fl S.empty
-     | C.CoFix (_,fl) ->
-        List.fold_right
-         (fun (_,ty,bo) i -> aux ty @@ aux bo @@ i)
-         fl S.empty
- in
-  let actual_params = aux te @@ aux ty in
-   (* sort_actual_params wants in input the ordered list of possible params *)
-   let rec sort_actual_params2 =
-    function
-       [] -> []
-     | he::tl when S.mem he actual_params -> he::(sort_actual_params2 tl)
-     | _::tl -> sort_actual_params2 tl
-   in
-    let rec sort_actual_params =
-     function
-        [] -> []
-      | (n,l)::tl -> (n, sort_actual_params2 l)::(sort_actual_params tl)
-    in
-     sort_actual_params pparams
-
-and fix_params uri filename =
- let module C = Cic in
-  let ann = CicCache.get_annobj uri in
-   match ann with
-      C.ADefinition (xid, id, te, ty, C.Possible pparams) ->
-       let te' = Deannotate.deannotate_term te in
-       let ty' = Deannotate.deannotate_term ty in
-        let real_params = parameters_of te' ty' pparams in
-         let fixed =
-          C.ADefinition (xid,id,te,ty,C.Actual real_params)
-         in
-          Xml.pp (Cic2Xml.pp fixed uri) filename ;
-    | _ -> ()
-;;

diff --git a/helm/fix_params/fix_params.ml b/helm/fix_params/fix_params.ml
deleted file mode 100644 (file)
index f1edf09..0000000
--- a/helm/fix_params/fix_params.ml
+++ /dev/null
@@ -1,74 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-let read_from_stdin = ref false;;
-
-let uri_of_filename fn =
- let uri =
-  Str.replace_first (Str.regexp (Str.quote Configuration.helm_dir)) "cic:" fn
- in
-  let uri' = Str.replace_first (Str.regexp "\.xml$") "" uri in
-   UriManager.uri_of_string uri'
-;;
-
-let main() =
-  Deannotate.expect_possible_parameters := true ;
-  let files = ref [] in
-  Arg.parse
-   ["-stdin", Arg.Set read_from_stdin, "Read from stdin"]
-   (fun x -> files := (x, uri_of_filename x) :: !files)
-      "
-usage: experiment file ...
-
-List of options:";
-  if !read_from_stdin then
-   begin
-    try
-     while true do
-      let l = Str.split (Str.regexp " ") (read_line ()) in
-       List.iter (fun x -> files := (x, uri_of_filename x) :: !files) l
-     done
-    with
-     End_of_file -> ()
-   end ;
-  files := List.rev !files;
-  Getter.update () ;
-  print_endline "ATTENTION: have you changed servers.txt so that you'll try \
-   to repair your own objs instead of others'?" ;
-  flush stdout ;
-  List.iter
-    (function (fn, uri) ->
-      print_string (UriManager.string_of_uri uri) ;
-      flush stdout ;
-      (try
-       CicFindParameters.fix_params uri (Some fn)
-      with
-        e -> print_newline () ; flush stdout ; raise e ) ;
-      print_endline " OK!" ;
-      flush stdout
-    ) !files
-;;
-
-main();;

diff --git a/helm/graphs/tools/Makefile b/helm/graphs/tools/Makefile
deleted file mode 100644 (file)
index 0635c4c..0000000
--- a/helm/graphs/tools/Makefile
+++ /dev/null
@@ -1,34 +0,0 @@
-PID=
-DOT=../gv1.7c/bin/dot
-SED=sed "s/font-family:Times;//g"
-
-#OBJS=prova.$(PID).svg prova.$(PID).ps prova.$(PID).gif prova.$(PID).ismap prova.$(PID).imap prova.$(PID).html
-OBJS=prova.$(PID).gif prova.$(PID).ismap prova.$(PID).html
-
-all: $(OBJS)
-
-prova.$(PID).dot: prova0.$(PID).dot
-       csplit --prefix=xx.$(PID) prova0.$(PID).dot 1 2 `expr \`wc -l prova0.$(PID).dot | sed 's/\([0123456789]\+\) prova0.$(PID).dot/\1/'\` + 1`
-       ./simplify_deps/simplify_deps.opt < xx.$(PID)02 > xx.$(PID)02n
-       cat xx.$(PID)01 xx.$(PID)02n xx.$(PID)03 > prova.$(PID).dot
-
-prova.$(PID).svg: prova.$(PID).dot
-       $(DOT) -Tsvg prova.$(PID).dot | $(SED) > prova.$(PID).svg
-
-prova.$(PID).ps: prova.$(PID).dot
-       $(DOT) -Tps prova.$(PID).dot > prova.$(PID).ps
-
-prova.$(PID).imap: prova.$(PID).dot
-       $(DOT) -Timap prova.$(PID).dot > prova.$(PID).imap
-
-prova.$(PID).gif: prova.$(PID).dot
-       $(DOT) -Tgif prova.$(PID).dot > prova.$(PID).gif
-
-prova.$(PID).ismap: prova.$(PID).dot
-       $(DOT) -Tismap prova.$(PID).dot > prova.$(PID).ismap
-
-prova.$(PID).html: prova.$(PID).ismap
-       cat xx.$(PID)00 prova.$(PID).ismap | ./mk_html.pl $(PID) > prova.$(PID).html
-
-clean:
-       rm -f $(OBJS) prova.$(PID).dot xx.$(PID)00 xx.$(PID)01 xx.$(PID)02 xx.$(PID)02n xx.$(PID)03 log.$(PID)

diff --git a/helm/graphs/tools/draw_graph.cgi b/helm/graphs/tools/draw_graph.cgi
deleted file mode 100755 (executable)
index d5d5b4a..0000000
--- a/helm/graphs/tools/draw_graph.cgi
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/usr/bin/perl
-
-use HTTP::Daemon;
-use HTTP::Status;
-use HTTP::Request;
-use LWP::UserAgent;
-use URI::Escape;
-use CGI;
-use FindBin;
-
-chdir $FindBin::Bin; # chdir to the directory of this perl script
-
-my $d = new HTTP::Daemon LocalPort => 8083;
-print "Please contact me at: <URL:", $d->url, ">\n";
-
-$SIG{CHLD} = "IGNORE"; # do not accumulate defunct processes
-
-while (my $c = $d->accept) {
- if (fork() == 0) {
-    while (my $r = $c->get_request) {
-        if ($r->method eq 'GET' && $r->url->path eq "/draw") {
-            my $http_query = $r->url->equery;
-            my $cgi = new CGI("$http_query");
-            my $url = $cgi->param('url');
-           $url = $url.'&param.PID='.$$;
-           print "URL: $url\n";
-
-            my $ua = LWP::UserAgent->new;
-            my $request = HTTP::Request->new(GET => "$url");
-            my $response = $ua->request($request, "prova0.$$.dot");
-
-           if (system("make PID=$$ > log.$$") == 0) {
-               $c->send_file_response("prova.$$.html");
-           } else {
-               $c->send_error(RC_INTERNAL_SERVER_ERROR);
-           }
-        } elsif ($r->method eq 'GET' && $r->url->path eq "/get_gif") {
-            my $http_query = $r->url->equery;
-            my $cgi = new CGI("$http_query");
-            my $pid = $cgi->param('pid');
-           print "Returning GIF: $pid\n";
-            $c->send_file_response("prova.$pid.gif");
-           system("make PID=$pid clean ; rm -f prova0.$pid.dot");
-        } elsif ($r->method eq 'GET' && $r->url->path eq "/help"){
-           print "Help requested!\n";
-          my $response = new HTTP::Response;
-           $response->content("Graph Drawer Version: ???");
-           $c->send_response($response);
-        } else {
-            $c->send_error(RC_FORBIDDEN)
-        }
-    }
-    $c->close;
-    undef($c);
-    exit;
- } # fork
-}

diff --git a/helm/graphs/tools/mk_html.pl b/helm/graphs/tools/mk_html.pl
deleted file mode 100755 (executable)
index 6ca4d0b..0000000
--- a/helm/graphs/tools/mk_html.pl
+++ /dev/null
@@ -1,49 +0,0 @@
-#!/usr/bin/perl
-
-use URI::Escape;
-
-print <<EOT;
-<?xml version="1.0"?>
-<html>
- <head>
-  <title>Graph</title>
- </head>
- <body bgcolor="white" onLoad="window.focus()">
-  <script>
-<![CDATA[
-   // NOTE: getParam will be defined during the application
-   // of the next stylesheet in the stylesheet chain
-   var draw_graphURL = unescape(getParam("param.draw_graphURL"));
-   document.write('<img border="false" src="' + draw_graphURL + 'get_gif?pid=$ARGV[0]" usemap="#graphe">');
-]]>
-  </script>
-  <map name="graphe">
-EOT
-
-my $count = 0;
-
-while (<STDIN>) {
- $count++;
- my (undef,$point1,$point2,$uri) = split;
- my ($point1x,$point1y) = split /,/,$point1;
- my ($point2x,$point2y) = split /,/,$point2;
- $point1y = substr($point1y,0,-1);
- $point2y = substr($point2y,0,-1);
- $point1x = substr($point1x,1);
- $point2x = substr($point2x,1);
-
- print <<EOT;
-   <area shape="rect" href="$uri" coords="$point1x,$point2y,$point2x,$point1y" />
-EOT
-}
-
-print <<EOT;
-   </map>
-  <script>
-<![CDATA[
-   document.write('</img>');
-]]>
-  </script>
- </body>
-</html>
-EOT

diff --git a/helm/graphs/tools/simplify_deps/.cvsignore b/helm/graphs/tools/simplify_deps/.cvsignore
deleted file mode 100644 (file)
index 51af834..0000000
--- a/helm/graphs/tools/simplify_deps/.cvsignore
+++ /dev/null
@@ -1,5 +0,0 @@
-simplify_deps.cmi
-simplify_deps.cmo
-simplify_deps.cmx
-simplify_deps
-simplify_deps.opt

diff --git a/helm/graphs/tools/simplify_deps/Makefile b/helm/graphs/tools/simplify_deps/Makefile
deleted file mode 100644 (file)
index c564819..0000000
--- a/helm/graphs/tools/simplify_deps/Makefile
+++ /dev/null
@@ -1,12 +0,0 @@
-OBJS = simplify_deps simplify_deps.opt
-
-all: $(OBJS)
-
-simplify_deps: simplify_deps.ml
-       ocamlc /usr/lib/ocaml/str.cma simplify_deps.ml -o simplify_deps
-
-simplify_deps.opt: simplify_deps.ml
-       ocamlopt /usr/lib/ocaml/str.cmxa simplify_deps.ml -o simplify_deps.opt
-
-clean:
-       rm -f $(OBJS) simplify_deps.cm[iox] simplify_deps.o

diff --git a/helm/graphs/tools/simplify_deps/simplify_deps.ml b/helm/graphs/tools/simplify_deps/simplify_deps.ml
deleted file mode 100644 (file)
index 0763d61..0000000
--- a/helm/graphs/tools/simplify_deps/simplify_deps.ml
+++ /dev/null
@@ -1,98 +0,0 @@
-type node =
- Node of string * node list ref (* label, children *)
-
-let debug = false;;
-
-(************************************************)
-(*      SIMPLIFICATION AND PRETTY-PRINTING      *)
-(************************************************)
-
-let reachable target source_arcs =
- let rec find s =
-  if s = target then true
-  else
-   let Node (_,arcs) = s in
-    List.fold_left (fun i n -> i or find n) false !arcs
- in
-  List.fold_left
-   (fun i n ->
-     i or
-      (if n = target then
-        (* this is the arc we would like to get rid of *)
-        false
-       else
-        find n
-      )
-   ) false source_arcs
-;;
-
-let consider_arc (source,target,rest) =
- let Node (source_name,source_arcs) = source in
- let Node (target_name,_) = target in
-  if not (reachable target !source_arcs) then
-   print_endline (source_name ^ " -> " ^ target_name ^ rest ^ ";")
-  else
-   if debug then
-    print_endline (source_name ^ " -> " ^ target_name ^ " [color=green];")
-;;
-
-let simplify_deps_and_output_them =
- List.iter consider_arc
-;;
-
-(************************************************)
-(*                   PARSING                    *)
-(************************************************)
-
-let nodes = ref [];;
-let arcs  = ref [];;  (* (source,target) *)
-
-let search_node s =
- List.find (function Node (s',_) -> s' = s) !nodes
-;;
-
-let parse () =
- try
-  while true do
-   let line = read_line () in
-    if Str.string_match (Str.regexp " \([^ ]*\) -> \([^ ;]*\)\(\( \[.*\]\)?\);") line 0 then
-     let source = Str.matched_group 1 line in
-     let target = Str.matched_group 2 line in
-     let rest   = Str.matched_group 3 line in
-      let tar =
-        try
-        search_node target
-        with
-         Not_found ->
-         let tar = Node (target,ref []) in
-          nodes := tar :: !nodes ;
-          tar
-      in
-       let sou =
-        try
-         let sou = search_node source in
-          let Node (_,ts) = sou in
-           ts := tar::!ts ;
-          sou
-        with
-         Not_found ->
-          let sou = Node (source,ref [tar]) in
-           nodes := sou :: !nodes ;
-          sou
-       in
-        arcs := (sou,tar,rest)::!arcs
-    else
-     print_endline line
-  done
- with
-  End_of_file -> ()
-;;
-
-(************************************************)
-(*                     MAIN                     *)
-(************************************************)
-
-let _ =
- parse () ;
- simplify_deps_and_output_them !arcs
-;;

diff --git a/helm/graphs/tools/uri_set_queue.cgi b/helm/graphs/tools/uri_set_queue.cgi
deleted file mode 100755 (executable)
index d84cdfd..0000000
--- a/helm/graphs/tools/uri_set_queue.cgi
+++ /dev/null
@@ -1,140 +0,0 @@
-#!/usr/bin/perl
-
-use HTTP::Daemon;
-use HTTP::Status;
-use HTTP::Response;
-use CGI;
-
-my $d = new HTTP::Daemon LocalPort => 8084;
-print "Please contact me at: <URL:", $d->url, ">\n";
-
-$SIG{CHLD} = "IGNORE"; # do not accumulate defunct processes
-
-my %uri_sets;
-my %uri_queues;
-my %overflowed;
-my %size;
-
-#NOT REENTRANT: CAN NOT FORK DUE TO THE GLOBAL VARIABLES %uri_sets & ...
-#HENCE, THE "PID" ARGUMENT OF EVERY REQUEST MUST IDENTIFY THE SET OF URI
-#IT WANTS TO WORK WITH. MOREOVER, EVERY CLIENT MUST WORK WITH A DIFFERENT SET
-#OF URI, I.E. EVERY PID MUST BE UNIQUE.
-
-#CSC: WHAT IF THE CLIENTS ARE ON DIFFERENT MACHINES AND HAVE THE SAME PID?
-
-while (my $c = $d->accept) {
-    while (my $r = $c->get_request) {
-        if ($r->method eq 'GET' and $r->url->path eq '/add_if_not_in') {
-            my $http_query = $r->url->equery;
-            my $cgi = new CGI("$http_query");
-            my $uri = $cgi->param('uri');
-            my $pid = $cgi->param('PID');
-           print "$pid: ";
-            print(@{$uri_queues{$pid}} + 0);
-            print "/";
-            my $tot = keys(%{$uri_sets{$pid}}) + 0;
-            $tot .= "*" if defined($overflowed{$pid});
-           print "$tot $uri: ";
-
-            my $res;
-           if (!(defined($uri_sets{$pid}->{$uri}))) {
-                if ($tot + 1 > $size{$pid}) {
-                   $res = "not_added_because_already_too_many";
-                   $overflowed{$pid} = 1;
-                } else {
-                  $uri_sets{$pid}->{$uri} = 1;
-                   push @{$uri_queues{$pid}},$uri;
-                  $res = "added";
-                }
-            } else {
-               $res = "already_in";
-            }
-           print $res."\n";
-
-           my $response = new HTTP::Response;
-            $response->content("<?xml version=\"1.0\"?>\n<$res/>\n");
-           $response->content_type('text/xml');
-            $c->send_response($response);
-        } elsif ($r->method eq 'GET' and $r->url->path eq '/is_overflowed') {
-            my $http_query = $r->url->equery;
-            my $cgi = new CGI("$http_query");
-            my $pid = $cgi->param('PID');
-           print "$pid: ";
-            print(@{$uri_queues{$pid}} + 0);
-            print "/";
-           print(keys(%{$uri_sets{$pid}}) + 0);
-            print "*" if defined($overflowed{$pid});
-            my $res = defined($overflowed{$pid}) ? "true" : "false";
-            print " is_overflowed: $res\n";
-           my $response = new HTTP::Response;
-            $response->content("<?xml version=\"1.0\"?>\n<$res/>\n");
-           $response->content_type('text/xml');
-            $c->send_response($response);
-        } elsif ($r->method eq 'GET' and $r->url->path eq '/set_uri_set_size') {
-            my $http_query = $r->url->equery;
-            my $cgi = new CGI("$http_query");
-            my $pid = $cgi->param('PID');
-            my $size = $cgi->param('size');
-           print "$pid: size := $size\n";
-            $size{$pid} = $size;
-           my $response = new HTTP::Response;
-            $response->content("<?xml version=\"1.0\"?>\n<done/>\n");
-           $response->content_type('text/xml');
-            $c->send_response($response);
-        } elsif ($r->method eq 'GET' and $r->url->path eq '/get_next') {
-            my $http_query = $r->url->equery;
-            my $cgi = new CGI("$http_query");
-            my $pid = $cgi->param('PID');
-           print "$pid: ";
-            print(@{$uri_queues{$pid}} + 0);
-            print "/";
-           print(keys(%{$uri_sets{$pid}}) + 0);
-            print "*" if defined($overflowed{$pid});
-            print " ";
-
-            my $elem = shift @{$uri_queues{$pid}};
-            my $mark = $overflowed{$pid};
-
-           my $response = new HTTP::Response;
-            my $xml_header = "<?xml version=\"1.0\"?>\n";
-            if (!defined($elem)) {
-              print "is now empty\n";
-               $response->content("$xml_header<empty/>\n");
-            } elsif ($mark == 1) {
-              print "$elem (marked) removed\n";
-               $response->content("$xml_header<marked_uri value=\"$elem\"/>\n");
-            } else {
-              print "$elem removed\n";
-               $response->content("$xml_header<uri value=\"$elem\"/>\n");
-            }
-           $response->content_type('text/xml');
-            $c->send_response($response);
-        } elsif ($r->method eq 'GET' and $r->url->path eq '/reset_to_empty') {
-           my $pid = $r->url->query;
-           $pid =~ s/[^=]*=//;
-            # Next loop for debugging purposes only
-            my $count = 1;
-            while (my $e = shift @{$uri_queues{$pid}}) {
-             print "#$count $e forced out of the set\n";
-             $count++;
-            }
-           print "************\nThe URI set $pid is now empty again\n";
-           delete($uri_sets{$pid});
-            delete($overflowed{$pid});
-            delete($size{$pid});
-           my $response = new HTTP::Response;
-            $response->content("<?xml version=\"1.0\"?>\n<done/>\n");
-           $response->content_type('text/xml');
-            $c->send_response($response);
-        } elsif ($r->method eq 'GET' && $r->url->path eq "/help"){
-           print "Help requested!\n";
-          my $response = new HTTP::Response;
-           $response->content("URI-Set (Queue) Version: ???");
-           $c->send_response($response);
-        } else {
-            $c->send_error(RC_FORBIDDEN)
-        }
-    }
-    $c->close;
-    undef($c);
-}

diff --git a/helm/header/getheader.xml b/helm/header/getheader.xml
deleted file mode 100644 (file)
index a0f903f..0000000
--- a/helm/header/getheader.xml
+++ /dev/null
@@ -1,21 +0,0 @@
-<?xml version="1.0"?>
-<?cocoon-process type="xsp"?>
-<?cocoon-process type="xslt"?>
-
-<?xml-stylesheet href="setheader.xsl" type="text/xsl"?>
-<xsp:page language="java" xmlns:xsp="http://www.apache.org/1999/XSP/Core">
-    <hroot>
-     <xsp:logic>
-      String baseURL = request.getParameter("baseurl");
-      String styleURL1 = request.getParameter("stylesheet1");
-      String styleURL2 = request.getParameter("stylesheet2");
-      String xmlURI = request.getParameter("xmluri");
-      String annURI = request.getParameter("annuri");
-     </xsp:logic>
-     <url><xsp:expr>baseURL</xsp:expr></url>
-     <style1><xsp:expr>styleURL1</xsp:expr></style1>
-     <style2><xsp:expr>styleURL2</xsp:expr></style2>
-     <xml><xsp:expr>xmlURI</xsp:expr></xml>
-     <ann><xsp:expr>annURI</xsp:expr></ann>
-    </hroot>
-</xsp:page>

diff --git a/helm/header/provaurl b/helm/header/provaurl
deleted file mode 100644 (file)
index 86344dc..0000000
--- a/helm/header/provaurl
+++ /dev/null
@@ -1 +0,0 @@
-http://phd.cs.unibo.it/helm/PARSER/examples/header/getheader.xml?baseurl=http://cartoonia.cs.unibo.it/helm/PARSER/examples/style/&stylesheet1=content.xsl&stylesheet2=mmlextension.xsl&xmlfile=file:///really_very_local/helm/PARSER/examples/prove/provaIota/bool_ind.con.xml

diff --git a/helm/header/provaurl1 b/helm/header/provaurl1
deleted file mode 100644 (file)
index d957698..0000000
--- a/helm/header/provaurl1
+++ /dev/null
@@ -1,2 +0,0 @@
-http://cartoonia.cs.unibo.it/helm/PARSER/examples/header/getheader.xml?baseurl=http://cartoonia.cs.unibo.it/helm/PARSER/examples/style/&stylesheet1=content.xsl&stylesheet2=content_to_html.xsl&xmlfile=/really_very_local/helm/PARSER/examples/prove/prova/forest_rec.con.xml:wq
-

diff --git a/helm/header/setheader.xsl b/helm/header/setheader.xsl
deleted file mode 100644 (file)
index dd6ecad..0000000
--- a/helm/header/setheader.xsl
+++ /dev/null
@@ -1,33 +0,0 @@
-<?xml version="1.0"?>
-
-<!--******************************************************************--> 
-<!-- XSLT version 0.1 of CIC files to CIC files with the header for   -->
-<!-- applying a stylesheet:                                           -->
-<!-- First draft: March 10 2000 Irene Schena                          -->
-<!--******************************************************************-->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-
-<xsl:variable name="absPath">http://localhost:8081/getciconly?uri=</xsl:variable>
-
-<!--SET THE HEADER AND OPEN THE XML FILE-->
-
-<xsl:template match="hroot">
-    <xsl:variable name="xmlURI"><xsl:value-of select="xml"/></xsl:variable>
-    <xsl:variable name="annURI"><xsl:value-of select="ann"/></xsl:variable>
-    <xsl:processing-instruction name="cocoon-format">type="text/xml"</xsl:processing-instruction>
-    <xsl:processing-instruction name="xml-stylesheet">href=&quot;<xsl:value-of select="concat(url,style1)"/>&quot; type="text/xsl"</xsl:processing-instruction>
-    <xsl:processing-instruction name="cocoon-process">type="xslt"</xsl:processing-instruction>
-<cicxml baseurl="{url}" stylesheet="{style2}" uri="{$xmlURI}">
-    <xsl:apply-templates select="document(concat(string($absPath),$xmlURI))" mode="copyxml"/>
-    <xsl:apply-templates select="document(concat(string($absPath),$annURI))" mode="copyxml"/>
-</cicxml>
-</xsl:template>
-
-<!-- COPY THE XML FILE -->
-
-<xsl:template match="/" mode="copyxml">
-    <xsl:copy-of select="*"/>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/helm_data/.cvsignore b/helm/helm_data/.cvsignore
deleted file mode 100644 (file)
index cbb473e..0000000
--- a/helm/helm_data/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-Makefile configure config.log config.cache config.status

diff --git a/helm/helm_data/AUTHORS b/helm/helm_data/AUTHORS
deleted file mode 100644 (file)
index 963977a..0000000
--- a/helm/helm_data/AUTHORS
+++ /dev/null
@@ -1,4 +0,0 @@
-Andrea Asperti <asperti@cs.unibo.it>
-Luca Padovani <lpadovan@cs.unibo.it>
-Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>
-Irene Schena <schena@cs.unibo.it>

diff --git a/helm/helm_data/COPYING b/helm/helm_data/COPYING
deleted file mode 100644 (file)
index d60c31a..0000000
--- a/helm/helm_data/COPYING
+++ /dev/null
@@ -1,340 +0,0 @@
-                   GNU GENERAL PUBLIC LICENSE
-                      Version 2, June 1991
-
- Copyright (C) 1989, 1991 Free Software Foundation, Inc.
-     59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-                           Preamble
-
-  The licenses for most software are designed to take away your
-freedom to share and change it.  By contrast, the GNU General Public
-License is intended to guarantee your freedom to share and change free
-software--to make sure the software is free for all its users.  This
-General Public License applies to most of the Free Software
-Foundation's software and to any other program whose authors commit to
-using it.  (Some other Free Software Foundation software is covered by
-the GNU Library General Public License instead.)  You can apply it to
-your programs, too.
-
-  When we speak of free software, we are referring to freedom, not
-price.  Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-this service if you wish), that you receive source code or can get it
-if you want it, that you can change the software or use pieces of it
-in new free programs; and that you know you can do these things.
-
-  To protect your rights, we need to make restrictions that forbid
-anyone to deny you these rights or to ask you to surrender the rights.
-These restrictions translate to certain responsibilities for you if you
-distribute copies of the software, or if you modify it.
-
-  For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must give the recipients all the rights that
-you have.  You must make sure that they, too, receive or can get the
-source code.  And you must show them these terms so they know their
-rights.
-
-  We protect your rights with two steps: (1) copyright the software, and
-(2) offer you this license which gives you legal permission to copy,
-distribute and/or modify the software.
-
-  Also, for each author's protection and ours, we want to make certain
-that everyone understands that there is no warranty for this free
-software.  If the software is modified by someone else and passed on, we
-want its recipients to know that what they have is not the original, so
-that any problems introduced by others will not reflect on the original
-authors' reputations.
-
-  Finally, any free program is threatened constantly by software
-patents.  We wish to avoid the danger that redistributors of a free
-program will individually obtain patent licenses, in effect making the
-program proprietary.  To prevent this, we have made it clear that any
-patent must be licensed for everyone's free use or not licensed at all.
-
-  The precise terms and conditions for copying, distribution and
-modification follow.
-\f
-                   GNU GENERAL PUBLIC LICENSE
-   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
-  0. This License applies to any program or other work which contains
-a notice placed by the copyright holder saying it may be distributed
-under the terms of this General Public License.  The "Program", below,
-refers to any such program or work, and a "work based on the Program"
-means either the Program or any derivative work under copyright law:
-that is to say, a work containing the Program or a portion of it,
-either verbatim or with modifications and/or translated into another
-language.  (Hereinafter, translation is included without limitation in
-the term "modification".)  Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not
-covered by this License; they are outside its scope.  The act of
-running the Program is not restricted, and the output from the Program
-is covered only if its contents constitute a work based on the
-Program (independent of having been made by running the Program).
-Whether that is true depends on what the Program does.
-
-  1. You may copy and distribute verbatim copies of the Program's
-source code as you receive it, in any medium, provided that you
-conspicuously and appropriately publish on each copy an appropriate
-copyright notice and disclaimer of warranty; keep intact all the
-notices that refer to this License and to the absence of any warranty;
-and give any other recipients of the Program a copy of this License
-along with the Program.
-
-You may charge a fee for the physical act of transferring a copy, and
-you may at your option offer warranty protection in exchange for a fee.
-
-  2. You may modify your copy or copies of the Program or any portion
-of it, thus forming a work based on the Program, and copy and
-distribute such modifications or work under the terms of Section 1
-above, provided that you also meet all of these conditions:
-
-    a) You must cause the modified files to carry prominent notices
-    stating that you changed the files and the date of any change.
-
-    b) You must cause any work that you distribute or publish, that in
-    whole or in part contains or is derived from the Program or any
-    part thereof, to be licensed as a whole at no charge to all third
-    parties under the terms of this License.
-
-    c) If the modified program normally reads commands interactively
-    when run, you must cause it, when started running for such
-    interactive use in the most ordinary way, to print or display an
-    announcement including an appropriate copyright notice and a
-    notice that there is no warranty (or else, saying that you provide
-    a warranty) and that users may redistribute the program under
-    these conditions, and telling the user how to view a copy of this
-    License.  (Exception: if the Program itself is interactive but
-    does not normally print such an announcement, your work based on
-    the Program is not required to print an announcement.)
-\f
-These requirements apply to the modified work as a whole.  If
-identifiable sections of that work are not derived from the Program,
-and can be reasonably considered independent and separate works in
-themselves, then this License, and its terms, do not apply to those
-sections when you distribute them as separate works.  But when you
-distribute the same sections as part of a whole which is a work based
-on the Program, the distribution of the whole must be on the terms of
-this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest
-your rights to work written entirely by you; rather, the intent is to
-exercise the right to control the distribution of derivative or
-collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program
-with the Program (or with a work based on the Program) on a volume of
-a storage or distribution medium does not bring the other work under
-the scope of this License.
-
-  3. You may copy and distribute the Program (or a work based on it,
-under Section 2) in object code or executable form under the terms of
-Sections 1 and 2 above provided that you also do one of the following:
-
-    a) Accompany it with the complete corresponding machine-readable
-    source code, which must be distributed under the terms of Sections
-    1 and 2 above on a medium customarily used for software interchange; or,
-
-    b) Accompany it with a written offer, valid for at least three
-    years, to give any third party, for a charge no more than your
-    cost of physically performing source distribution, a complete
-    machine-readable copy of the corresponding source code, to be
-    distributed under the terms of Sections 1 and 2 above on a medium
-    customarily used for software interchange; or,
-
-    c) Accompany it with the information you received as to the offer
-    to distribute corresponding source code.  (This alternative is
-    allowed only for noncommercial distribution and only if you
-    received the program in object code or executable form with such
-    an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for
-making modifications to it.  For an executable work, complete source
-code means all the source code for all modules it contains, plus any
-associated interface definition files, plus the scripts used to
-control compilation and installation of the executable.  However, as a
-special exception, the source code distributed need not include
-anything that is normally distributed (in either source or binary
-form) with the major components (compiler, kernel, and so on) of the
-operating system on which the executable runs, unless that component
-itself accompanies the executable.
-
-If distribution of executable or object code is made by offering
-access to copy from a designated place, then offering equivalent
-access to copy the source code from the same place counts as
-distribution of the source code, even though third parties are not
-compelled to copy the source along with the object code.
-\f
-  4. You may not copy, modify, sublicense, or distribute the Program
-except as expressly provided under this License.  Any attempt
-otherwise to copy, modify, sublicense or distribute the Program is
-void, and will automatically terminate your rights under this License.
-However, parties who have received copies, or rights, from you under
-this License will not have their licenses terminated so long as such
-parties remain in full compliance.
-
-  5. You are not required to accept this License, since you have not
-signed it.  However, nothing else grants you permission to modify or
-distribute the Program or its derivative works.  These actions are
-prohibited by law if you do not accept this License.  Therefore, by
-modifying or distributing the Program (or any work based on the
-Program), you indicate your acceptance of this License to do so, and
-all its terms and conditions for copying, distributing or modifying
-the Program or works based on it.
-
-  6. Each time you redistribute the Program (or any work based on the
-Program), the recipient automatically receives a license from the
-original licensor to copy, distribute or modify the Program subject to
-these terms and conditions.  You may not impose any further
-restrictions on the recipients' exercise of the rights granted herein.
-You are not responsible for enforcing compliance by third parties to
-this License.
-
-  7. If, as a consequence of a court judgment or allegation of patent
-infringement or for any other reason (not limited to patent issues),
-conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License.  If you cannot
-distribute so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you
-may not distribute the Program at all.  For example, if a patent
-license would not permit royalty-free redistribution of the Program by
-all those who receive copies directly or indirectly through you, then
-the only way you could satisfy both it and this License would be to
-refrain entirely from distribution of the Program.
-
-If any portion of this section is held invalid or unenforceable under
-any particular circumstance, the balance of the section is intended to
-apply and the section as a whole is intended to apply in other
-circumstances.
-
-It is not the purpose of this section to induce you to infringe any
-patents or other property right claims or to contest validity of any
-such claims; this section has the sole purpose of protecting the
-integrity of the free software distribution system, which is
-implemented by public license practices.  Many people have made
-generous contributions to the wide range of software distributed
-through that system in reliance on consistent application of that
-system; it is up to the author/donor to decide if he or she is willing
-to distribute software through any other system and a licensee cannot
-impose that choice.
-
-This section is intended to make thoroughly clear what is believed to
-be a consequence of the rest of this License.
-\f
-  8. If the distribution and/or use of the Program is restricted in
-certain countries either by patents or by copyrighted interfaces, the
-original copyright holder who places the Program under this License
-may add an explicit geographical distribution limitation excluding
-those countries, so that distribution is permitted only in or among
-countries not thus excluded.  In such case, this License incorporates
-the limitation as if written in the body of this License.
-
-  9. The Free Software Foundation may publish revised and/or new versions
-of the General Public License from time to time.  Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
-Each version is given a distinguishing version number.  If the Program
-specifies a version number of this License which applies to it and "any
-later version", you have the option of following the terms and conditions
-either of that version or of any later version published by the Free
-Software Foundation.  If the Program does not specify a version number of
-this License, you may choose any version ever published by the Free Software
-Foundation.
-
-  10. If you wish to incorporate parts of the Program into other free
-programs whose distribution conditions are different, write to the author
-to ask for permission.  For software which is copyrighted by the Free
-Software Foundation, write to the Free Software Foundation; we sometimes
-make exceptions for this.  Our decision will be guided by the two goals
-of preserving the free status of all derivatives of our free software and
-of promoting the sharing and reuse of software generally.
-
-                           NO WARRANTY
-
-  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
-OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
-TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
-PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
-REPAIR OR CORRECTION.
-
-  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
-INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
-OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
-TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
-YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
-PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGES.
-
-                    END OF TERMS AND CONDITIONS
-\f
-           How to Apply These Terms to Your New Programs
-
-  If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
-  To do so, attach the following notices to the program.  It is safest
-to attach them to the start of each source file to most effectively
-convey the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
-    <one line to give the program's name and a brief idea of what it does.>
-    Copyright (C) <year>  <name of author>
-
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-
-
-Also add information on how to contact you by electronic and paper mail.
-
-If the program is interactive, make it output a short notice like this
-when it starts in an interactive mode:
-
-    Gnomovision version 69, Copyright (C) year  name of author
-    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
-    This is free software, and you are welcome to redistribute it
-    under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License.  Of course, the commands you use may
-be called something other than `show w' and `show c'; they could even be
-mouse-clicks or menu items--whatever suits your program.
-
-You should also get your employer (if you work as a programmer) or your
-school, if any, to sign a "copyright disclaimer" for the program, if
-necessary.  Here is a sample; alter the names:
-
-  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
-  `Gnomovision' (which makes passes at compilers) written by James Hacker.
-
-  <signature of Ty Coon>, 1 April 1989
-  Ty Coon, President of Vice
-
-This General Public License does not permit incorporating your program into
-proprietary programs.  If your program is a subroutine library, you may
-consider it more useful to permit linking proprietary applications with the
-library.  If this is what you want to do, use the GNU Library General
-Public License instead of this License.

diff --git a/helm/helm_data/ChangeLog b/helm/helm_data/ChangeLog
deleted file mode 100644 (file)
index 20c36b4..0000000
--- a/helm/helm_data/ChangeLog
+++ /dev/null
@@ -1 +0,0 @@
-28/12/2000: First alpha release

diff --git a/helm/helm_data/LICENSE b/helm/helm_data/LICENSE
deleted file mode 100644 (file)
index 72f9426..0000000
--- a/helm/helm_data/LICENSE
+++ /dev/null
@@ -1,22 +0,0 @@
-Copyright (C) 2000, HELM Team.
-
-This file is part of HELM, an Hypertextual, Electronic
-Library of Mathematics, developed at the Computer Science
-Department, University of Bologna, Italy.
-
-HELM is free software; you can redistribute it and/or
-modify it under the terms of the GNU General Public License
-as published by the Free Software Foundation; either version 2
-of the License, or (at your option) any later version.
-
-HELM is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with HELM; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
-
-For details, see the HELM World-Wide-Web page,
-http://cs.unibo.it/helm/.

diff --git a/helm/helm_data/LICENSE.ml b/helm/helm_data/LICENSE.ml
deleted file mode 100644 (file)
index 2f1b31e..0000000
--- a/helm/helm_data/LICENSE.ml
+++ /dev/null
@@ -1,25 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-

diff --git a/helm/helm_data/LICENSE.script b/helm/helm_data/LICENSE.script
deleted file mode 100644 (file)
index bad5161..0000000
--- a/helm/helm_data/LICENSE.script
+++ /dev/null
@@ -1,22 +0,0 @@
-# Copyright (C) 2000, HELM Team.
-# 
-# This file is part of HELM, an Hypertextual, Electronic
-# Library of Mathematics, developed at the Computer Science
-# Department, University of Bologna, Italy.
-# 
-# HELM is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License
-# as published by the Free Software Foundation; either version 2
-# of the License, or (at your option) any later version.
-# 
-# HELM is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# 
-# You should have received a copy of the GNU General Public License
-# along with HELM; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
-# 
-# For details, see the HELM World-Wide-Web page,
-# http://cs.unibo.it/helm/.

diff --git a/helm/helm_data/LICENSE.xml b/helm/helm_data/LICENSE.xml
deleted file mode 100644 (file)
index 6077c52..0000000
--- a/helm/helm_data/LICENSE.xml
+++ /dev/null
@@ -1,24 +0,0 @@
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-

diff --git a/helm/helm_data/Makefile.in b/helm/helm_data/Makefile.in
deleted file mode 100644 (file)
index 498577f..0000000
--- a/helm/helm_data/Makefile.in
+++ /dev/null
@@ -1,23 +0,0 @@
-
-HELM_DTD_DIR=@HELM_DTD_DIR@
-HELM_STYLE_DIR=@HELM_STYLE_DIR@
-
-all:
-
-install:
-       cp dtd/* $(HELM_DTD_DIR)
-       cp style/*.xsl $(HELM_STYLE_DIR)
-
-clean:
-       
-distclean: clean
-       rm -f Makefile configure config.log config.cache config.status *.spec
-       rm -rf dtd style
-
-dist:  clean
-       rm -rf ../@PACKAGE@-@VERSION@
-       mkdir ../@PACKAGE@-@VERSION@
-       cp -r * ../@PACKAGE@-@VERSION@
-       (cd .. ; tar cvfz @PACKAGE@-@VERSION@.tar.gz @PACKAGE@-@VERSION@ ; rm -rf @PACKAGE@-@VERSION@)
-
-.PHONY: all install distclean

diff --git a/helm/helm_data/NEWS b/helm/helm_data/NEWS
deleted file mode 100644 (file)
index 20c36b4..0000000
--- a/helm/helm_data/NEWS
+++ /dev/null
@@ -1 +0,0 @@
-28/12/2000: First alpha release

diff --git a/helm/helm_data/README b/helm/helm_data/README
deleted file mode 100644 (file)
index cc0522b..0000000
--- a/helm/helm_data/README
+++ /dev/null
@@ -1,9 +0,0 @@
-NOTE: This is the first alpha release of project HELM.
-
-HELM (Hypertextual Electronic Library of Mathematics) is a project aimed
-at the creation of tools for the development and exploitation of a huge
-distributed library of formal mathematical knowledge. This package holds
-the base DTDs and XSLT stylesheets developed by the members of project
-HELM.
-
-For more information see http://www.cs.unibo.it/helm

diff --git a/helm/helm_data/config.cache.pkg b/helm/helm_data/config.cache.pkg
deleted file mode 100644 (file)
index 5d80ae9..0000000
--- a/helm/helm_data/config.cache.pkg
+++ /dev/null
@@ -1,4 +0,0 @@
-# This is the config.cache that holds the ``standard'' path for the
-# HELM library. It is supposed to be used when creating packages
-
-helm_cv_HELM_DTDS_DIR=${helm_cv_HELM_DTDS_DIR='$RESOLVED_PREFIX/share/helm/dtd'}

diff --git a/helm/helm_data/configure.in b/helm/helm_data/configure.in
deleted file mode 100644 (file)
index 6352589..0000000
--- a/helm/helm_data/configure.in
+++ /dev/null
@@ -1,61 +0,0 @@
-AC_INIT(dtd/cic.dtd)
-
-PACKAGE=helm_data
-MAJOR_VERSION=0
-MINOR_VERSION=0
-MICRO_VERSION=2
-VERSION=$MAJOR_VERSION.$MINOR_VERSION.$MICRO_VERSION
-
-DEFAULT_HELM_DTD_DIR=/usr/local/share/helm/dtd
-DEFAULT_HELM_STYLE_DIR=/usr/local/share/helm/style
-
-AC_ARG_ENABLE(
-       defaults,
-       [  --enable-defaults[=ARG] if yes then use defaults (don't ask user) [default=auto]],
-       USE_DEFAULTS=$enableval,
-       USE_DEFAULTS=auto
-)
-
-if test $USE_DEFAULTS = auto; then
-       AC_CHECK_PROG(HAVE_HELM_CONFIG, helm-config, yes, no)
-       if test $HAVE_HELM_CONFIG = yes; then
-               HELM_DTD_DIR=`helm-config --dtd-dir`
-               HELM_STYLE_DIR=`helm-config --style-dir`
-       else
-               USE_DEFAULTS=no
-       fi
-fi
-
-if test $USE_DEFAULTS = no; then
-       echo
-       echo "\`helm-config' is not installed (or I can't find it in your path)."
-       echo "Please, insert the directory where I can find the DTDs for HELM..."
-       echo
-       echo -n "[[$DEFAULT_HELM_DTD_DIR]] ? "
-       read HELM_DTD_DIR
-       if test "x$HELM_DTD_DIR" = "x"; then
-               HELM_DTD_DIR=$DEFAULT_HELM_DTD_DIR
-       fi
-       echo
-       echo "Please, insert the directory where I can find the stylesheets for HELM..."
-       echo
-       echo -n "[[$DEFAULT_HELM_STYLE_DIR]] ? "
-       read HELM_STYLE_DIR
-       if test "x$HELM_STYLE_DIR" = "x"; then
-               HELM_STYLE_DIR=$DEFAULT_HELM_STYLE_DIR
-       fi
-elif test $USE_DEFAULTS = yes; then
-       HELM_DTD_DIR=$DEFAULT_HELM_DTD_DIR
-       HELM_STYLE_DIR=$DEFAULT_HELM_STYLE_DIR
-fi
-
-AC_SUBST(PACKAGE)
-AC_SUBST(VERSION)
-AC_SUBST(HELM_DTD_DIR)
-AC_SUBST(HELM_STYLE_DIR)
-
-AC_OUTPUT([
-  Makefile
-  helm_data.spec
-])
-

diff --git a/helm/helm_data/helm_data.spec.in b/helm/helm_data/helm_data.spec.in
deleted file mode 100644 (file)
index 387a06f..0000000
--- a/helm/helm_data/helm_data.spec.in
+++ /dev/null
@@ -1,34 +0,0 @@
-Summary: The base DTDs and XSLT stylesheets of project HELM
-Name: @PACKAGE@
-Version: @VERSION@
-Release: 1
-Copyright: GPL
-URL: http://www.cs.unibo.it/helm
-Packager: Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>
-Requires: helm_configuration >= 0.0.2
-Group: Applications/Publishing
-Source: www.cs.unibo.it:/helm/@PACKAGE@-@VERSION@.tar.gz
-%description
-HELM (Hypertextual Electronic Library of Mathematics) is a project aimed
-at the creation of tools for the development and exploitation of a huge
-distributed library of formal mathematical knowledge. This package holds
-the base DTDs and XSLT stylesheets developed by the members of project
-HELM.
-For more information see http://www.cs.unibo.it/helm
-
-%prep
-%setup
-
-%build
-cp config.cache.pkg config.cache
-./configure --enable-defaults
-make
-
-%install
-make install
-
-%files
-%doc AUTHORS COPYING ChangeLog NEWS README
-
-/usr/local/share/helm/dtd
-/usr/local/share/helm/style

diff --git a/helm/helmpot/.cvsignore b/helm/helmpot/.cvsignore
deleted file mode 100644 (file)
index d6cea24..0000000
--- a/helm/helmpot/.cvsignore
+++ /dev/null
@@ -1,18 +0,0 @@
-.emacs.desktop
-config.h
-config.h.in
-config.cache
-config.log
-config.status
-configure
-configure.scan
-t1lib.log
-stamp-h
-stamp-h.in
-Makefile
-Makefile.in
-*.gz
-aclocal.m4
-*.spec
-.deps
-helmpot

diff --git a/helm/helmpot/AUTHORS b/helm/helmpot/AUTHORS
deleted file mode 100644 (file)
index fe59f14..0000000
--- a/helm/helmpot/AUTHORS
+++ /dev/null
@@ -1 +0,0 @@
-Luca Padovani <luca.padovani@cs.unibo.it>

diff --git a/helm/helmpot/ChangeLog b/helm/helmpot/ChangeLog
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/helmpot/LICENSE b/helm/helmpot/LICENSE
deleted file mode 100644 (file)
index eef8774..0000000
--- a/helm/helmpot/LICENSE
+++ /dev/null
@@ -1,23 +0,0 @@
-/*
- * Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- * 
- * This file is part of HelmPot, a minimal browser for HELM.
- * 
- * HelmPot is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HelmPot is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- * 
- * You should have received a copy of the GNU General Public License
- * along with HelmPot; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- * 
- * For details, see the HelmPot World-Wide-Web page,
- * http://cs.unibo.it/helm/helmview, or send a mail to
- * <luca.padovani@cs.unibo.it>
- */

diff --git a/helm/helmpot/Makefile.am b/helm/helmpot/Makefile.am
deleted file mode 100644 (file)
index 7d2fefe..0000000
--- a/helm/helmpot/Makefile.am
+++ /dev/null
@@ -1,23 +0,0 @@
-
-CLEANFILES = core t1lib.log helmpot.spec
-
-bin_PROGRAMS = helmpot
-
-noinst_HEADERS = guiGTK.h
-
-helmpot_SOURCES = \
-  main.c \
-  guiGTK.c
-
-backup:
-       tar cvfz ../@PACKAGE@-@VERSION@-`date|tr ' ' '_'|tr ':' '_'`.tar.gz .
-
-cleanbak:
-       -rm -f `find . -name "*~"`
-
-lc:
-       @( \
-       CFILES=`find . -name "*.c"`; \
-       HFILES=`find . -name "*.h"`; \
-       wc -l $$CFILES $$HFILES | tail -n 1 \
-       )

diff --git a/helm/helmpot/NEWS b/helm/helmpot/NEWS
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/helmpot/README b/helm/helmpot/README
deleted file mode 100644 (file)
index 2e7cb0d..0000000
--- a/helm/helmpot/README
+++ /dev/null
@@ -1,18 +0,0 @@
-
-HELMPoT
--------
-
-HELMPoT is a small plug-out for Netscape Navigator in order to
-browse the HELM library. After installing the binary somewhere
-in your hard disk, just configure a new helper application in
-Netscape associated to the text/xml MIME type. The command
-to be executed should something of the kind:
-
-       helmpot '%s'
-
-assuming that helmpot is visible in your path.
-
-Enjoy,
-
-       luca.padovani@cs.unibo.it
-

diff --git a/helm/helmpot/acconfig.h b/helm/helmpot/acconfig.h
deleted file mode 100644 (file)
index b65cd2c..0000000
--- a/helm/helmpot/acconfig.h
+++ /dev/null
@@ -1,47 +0,0 @@
-/*
- * Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- * 
- * This file is part of HelmPot, a minimal browser for HELM.
- * 
- * HelmPot is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HelmPot is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- * 
- * You should have received a copy of the GNU General Public License
- * along with HelmPot; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- * 
- * For details, see the HelmPot World-Wide-Web page,
- * http://cs.unibo.it/helm/helmview, or send a mail to
- * <luca.padovani@cs.unibo.it>
- */
-
-#ifndef __config_h__
-#define __config_h__
-
-#define PRIVATE static
-
-@TOP@
-
-/* If defined the widget will perform a huge amount
- * of validity checks while running
- */
-#undef ENABLE_CHECKS
-
-#ifdef ENABLE_CHECKS
-#define DEBUG
-#else
-#define NDEBUG
-#define G_DISABLE_ASSERT
-#define G_DISABLE_CHECKS
-#endif
-
-@BOTTOM@
-
-#endif /* __config_h__ */

diff --git a/helm/helmpot/configure.in b/helm/helmpot/configure.in
deleted file mode 100644 (file)
index b36ac29..0000000
--- a/helm/helmpot/configure.in
+++ /dev/null
@@ -1,92 +0,0 @@
-dnl Process this file with autoconf to produce a configure script.
-AC_INIT(main.c)
-
-HELMPOT_MAJOR_VERSION=0
-HELMPOT_MINOR_VERSION=0
-HELMPOT_MICRO_VERSION=4
-HELMPOT_VERSION=$HELMPOT_MAJOR_VERSION.$HELMPOT_MINOR_VERSION.$HELMPOT_MICRO_VERSION
-VERSION=$HELMPOT_VERSION
-
-AC_SUBST(HELMPOT_VERSION)
-
-AC_ARG_ENABLE(
-       checks,
-       [  --enable-checks[=ARG]   include debugging checks [default=yes]],
-       [
-               if test $enableval = yes; then
-                       AC_DEFINE(ENABLE_CHECKS)
-               fi
-       ],
-       AC_DEFINE(ENABLE_CHECKS)
-)
-
-dnl Automake configuration
-AM_CONFIG_HEADER(config.h)
-AM_INIT_AUTOMAKE(helmpot, $HELMPOT_VERSION)
-
-dnl Checks for programs.
-AC_LANG_C
-AC_PROG_CC
-AC_ISC_POSIX
-AC_CHECK_PROG(HAVE_COLORGCC, colorgcc, yes, no)
-
-dnl Checks for header files.
-AC_HEADER_STDC
-AC_CHECK_HEADERS(unistd.h)
-AC_FUNC_VFORK
-
-dnl Checks for typedefs, structures, and compiler characteristics.
-AC_C_CONST
-
-dnl Check for iconv with const pointer as second argument
-AC_LANG_C
-
-dnl Checks for libraries
-AC_CHECK_LIB(gtk, gtk_window_new,
-       [
-               CFLAGS="$CFLAGS `gtk-config --cflags`"
-               CXXFLAGS="$CXXFLAGS `gtk-config --cflags`"
-               LIBS="$LIBS `gtk-config --libs`"
-       ],
-       AC_MSG_ERROR(could not find GTK),
-       `gtk-config --libs`
-)
-
-AC_CHECK_LIB(minidom, mdom_node_get_type,
-       [
-               CFLAGS="$CFLAGS `minidom-config --cflags`"
-               CXXFLAGS="$CXXFLAGS `minidom-config --cflags`"
-               LIBS="$LIBS `minidom-config --libs`"
-       ],
-       AC_MSG_ERROR(could not find minidom),
-       `minidom-config --libs` `glib-config --libs`
-)
-
-vers=`minidom-config --version | awk -F. '{ printf "%d", ($1 * 1000 + $2) * 1000 + $3;}'`
-minvers=`echo 0.1.3 | awk -F. '{ printf "%d", ($1 * 1000 + $2) * 1000 + $3;}'`
-if test "$vers" -lt "$minvers"; then
-        AC_MSG_ERROR(you need at least minidom 0.1.3)
-fi
-
-AC_CHECK_LIB(gtkmathview, gtk_math_view_new,
-       [
-               CFLAGS="$CFLAGS `gtkmathview-config --cflags`"
-               CXXFLAGS="$CXXFLAGS `gtkmathview-config --cflags`"
-               LIBS="$LIBS `gtkmathview-config --libs`"
-       ],
-       AC_MSG_ERROR(cound not find gtkmathview),
-       `gtkmathview-config --libs`
-)
-
-if test $HAVE_COLORGCC = "yes"; then
-       CC=colorgcc
-       CXX=colorgcc
-fi
-
-CFLAGS="$CFLAGS -W -Wall"
-CXXFLAGS="$CXXFLAGS -W -Wall"
-
-AC_OUTPUT([
-Makefile
-helmpot.spec
-])

diff --git a/helm/helmpot/debian/changelog b/helm/helmpot/debian/changelog
deleted file mode 100644 (file)
index 26a5f1a..0000000
--- a/helm/helmpot/debian/changelog
+++ /dev/null
@@ -1,26 +0,0 @@
-helmpot (0.0.4-1) unstable; urgency=low
-
-  * New release.
-
- -- Stefano Zacchiroli <zack@debian.org>  Wed, 14 Nov 2001 14:48:17 +0100
-
-helmpot (0.0.3-1) unstable; urgency=low
-
-  * Bug fix related to selection
- -- Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>  Fri, 05 Oct 2001 19:40:06 +0200
-
-helmpot (0.0.2-1) unstable; urgency=low
-
-  * Small bug fix related to maction
-
- -- Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>  Mon, 27 Aug 2001 19:00:00 +0200
-
-helmpot (0.0.1-1) unstable; urgency=low
-
-  * Initial Release.
-
- -- Luca Padovani <luca.padovani@cs.unibo.it>  Thu, 12 Apr 2001 17:18:05 +0200
-
-Local variables:
-mode: debian-changelog
-End:

diff --git a/helm/helmpot/debian/control b/helm/helmpot/debian/control
deleted file mode 100644 (file)
index 46cf68d..0000000
--- a/helm/helmpot/debian/control
+++ /dev/null
@@ -1,14 +0,0 @@
-Source: helmpot
-Section: misc
-Priority: optional
-Maintainer: Stefano Zacchiroli <zack@debian.org>
-Build-Depends: debhelper (>> 2.0.0), libgtkmathview-dev
-Standards-Version: 3.5.2
-
-Package: helmpot
-Architecture: any
-Depends: ${shlibs:Depends}
-Description: A minimal browser for the HELM library.
- 'helmpot' is a minimal browser, in the form of a plug-out, for
- browsing the HELM library (MathML presentation).
-

diff --git a/helm/helmpot/debian/copyright b/helm/helmpot/debian/copyright
deleted file mode 100644 (file)
index e2472b0..0000000
--- a/helm/helmpot/debian/copyright
+++ /dev/null
@@ -1,30 +0,0 @@
-This package was debianized by Luca Padovani <luca.padovani@cs.unibo.it> on
-Thu, 12 Apr 2001 17:18:05 +0200.
-
-It was packed from source obtained via cvs, with this CVSROOT:
-  :pserver:anonymous@phd.cs.unibo.it:/home/lpadovan/PHELM/
-
-Author: Luca Padovani <luca.padovani@cs.unibo.it>
-
-Copyright:
- Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- 
- This file is part of HelmPot, a minimal browser for HELM.
- 
- HelmPot is free software; you can redistribute it and/or
- modify it under the terms of the GNU General Public License
- as published by the Free Software Foundation; either version 2
- of the License, or (at your option) any later version.
- 
- HelmPot is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- GNU General Public License for more details.
- 
- You should have received a copy of the GNU General Public License
- along with HelmPot; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- 
- For details, see the HelmPot World-Wide-Web page,
- http://cs.unibo.it/helm/helmpot, or send a mail to
- <luca.padovani@cs.unibo.it>

diff --git a/helm/helmpot/debian/docs b/helm/helmpot/debian/docs
deleted file mode 100644 (file)
index 6f12db5..0000000
--- a/helm/helmpot/debian/docs
+++ /dev/null
@@ -1,2 +0,0 @@
-AUTHORS
-README

diff --git a/helm/helmpot/debian/rules b/helm/helmpot/debian/rules
deleted file mode 100755 (executable)
index 75b3d8a..0000000
--- a/helm/helmpot/debian/rules
+++ /dev/null
@@ -1,75 +0,0 @@
-#!/usr/bin/make -f
-# Sample debian/rules that uses debhelper.
-# GNU copyright 1997 to 1999 by Joey Hess.
-
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
-
-# This is the debhelper compatability version to use.
-export DH_COMPAT=2
-
-build: build-stamp
-build-stamp:
-       dh_testdir
-
-       ./configure --prefix=/usr --mandir=\$${prefix}/share/man --infodir=\$${prefix}/share/info
-       # Add here commands to compile the package.
-       $(MAKE)
-
-       touch build-stamp
-
-clean:
-       dh_testdir
-       dh_testroot
-       rm -f build-stamp
-
-       # Add here commands to clean up after the build process.
-       -$(MAKE) distclean
-
-       dh_clean
-
-install: build
-       dh_testdir
-       dh_testroot
-       dh_clean -k
-       dh_installdirs
-
-       # Add here commands to install the package into debian/tmp.
-       $(MAKE) install prefix=$(CURDIR)/debian/helmpot/usr
-
-
-# Build architecture-independent files here.
-binary-indep: build install
-# We have nothing to do by default.
-
-# Build architecture-dependent files here.
-binary-arch: build install
-       dh_testdir
-       dh_testroot
-#      dh_installdebconf       
-       dh_installdocs
-#      dh_installexamples
-#      dh_installmenu
-#      dh_installemacsen
-#      dh_installpam
-#      dh_installinit
-#      dh_installcron
-#      dh_installmanpages
-       dh_installinfo
-       dh_undocumented
-       dh_installchangelogs ChangeLog
-       dh_link
-       dh_strip
-       dh_compress
-       dh_fixperms
-       # You may want to make some executables suid here.
-#      dh_makeshlibs
-       dh_installdeb
-#      dh_perl
-       dh_shlibdeps
-       dh_gencontrol
-       dh_md5sums
-       dh_builddeb
-
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary install

diff --git a/helm/helmpot/debian/substvars b/helm/helmpot/debian/substvars
deleted file mode 100644 (file)
index 629dff7..0000000
--- a/helm/helmpot/debian/substvars
+++ /dev/null
@@ -1 +0,0 @@
-shlibs:Depends=libc6 (>= 2.1.2), libglib1.2 (>= 1.2.0), libgtk1.2 (>= 1.2.0), libgtkmathview0, libminidom0, libxml2 (>= 2.4.0-1), libz1, t1lib1, xlib6g (>= 3.3.6-4)

diff --git a/helm/helmpot/guiGTK.c b/helm/helmpot/guiGTK.c
deleted file mode 100644 (file)
index ed2718a..0000000
--- a/helm/helmpot/guiGTK.c
+++ /dev/null
@@ -1,622 +0,0 @@
-/*
- * Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- * 
- * This file is part of HelmPot, a minimal browser for HELM.
- * 
- * HelmPot is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HelmPot is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- * 
- * You should have received a copy of the GNU General Public License
- * along with HelmPot; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- * 
- * For details, see the HelmPot World-Wide-Web page,
- * http://cs.unibo.it/helm/helmview, or send a mail to
- * <luca.padovani@cs.unibo.it>
- */
-
-#include <config.h>
-
-#include <glib.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <unistd.h>
-#if HAVE_UNISTD_H
-# include <sys/types.h>
-# include <sys/stat.h>
-# include <fcntl.h>
-# include <unistd.h>
-#endif
-#include <gtk/gtk.h>
-#include <gdk/gdkkeysyms.h>
-
-#include "gtkmathview.h"
-#include "guiGTK.h"
-
-#define XLINK_NS_URI "http://www.w3.org/1999/xlink"
-
-#define pot_width 16
-#define pot_height 16
-PRIVATE unsigned char pot_bits[] = {
-   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0xc0, 0x07,
-   0x00, 0x00, 0xe6, 0x2f, 0x34, 0x5f, 0xdc, 0x5f, 0xf8, 0x3f, 0xf8, 0x3f,
-   0xf0, 0x1f, 0xe0, 0x0f, 0x00, 0x00, 0x00, 0x00};
-
-#define pot_mask_width 16
-#define pot_mask_height 16
-static unsigned char pot_mask_bits[] = {
-   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x03, 0xe0, 0x0f, 0xe0, 0x0f,
-   0xff, 0x7f, 0xff, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xfe, 0xff, 0xfc, 0x7f,
-   0xfc, 0x7f, 0xf8, 0x3f, 0xf0, 0x1f, 0x00, 0x00};
-
-PRIVATE GtkWidget* window;
-PRIVATE GtkWidget* main_area;
-PRIVATE GtkWidget* scrolled_area;
-PRIVATE GtkWidget* status_bar;
-PRIVATE GtkMenuItem* kerning_item;
-PRIVATE GtkMenuItem* anti_aliasing_item;
-PRIVATE GtkMenuItem* font_size_item;
-PRIVATE gchar* file_name = NULL;
-
-PRIVATE GdkCursor* normal_cursor;
-PRIVATE GdkCursor* link_cursor;  
-PRIVATE GdkCursor* pot_cursor;
-
-PRIVATE gboolean loading = FALSE;
-PRIVATE guint statusbar_context;
-
-PRIVATE void create_widget_set(void);
-PRIVATE GtkWidget* get_main_menu(void);
-PRIVATE void options_font_size(GtkWidget*, guint);
-PRIVATE void options_font_manager(GtkWidget*, guint);
-PRIVATE void options_verbosity(GtkWidget*, guint);
-PRIVATE void options_kerning(GtkWidget*, gpointer);
-PRIVATE void options_anti_aliasing(GtkWidget*, gpointer);
-PRIVATE void help_about(GtkWidget*, gpointer);
-PRIVATE void save_as(GtkWidget*);
-PRIVATE void export_to_ps(GtkWidget*);
-
-PRIVATE GtkItemFactoryEntry menu_items[] = {
-  { "/_File",                          NULL,         NULL,          0, "<Branch>" },
-  { "/File/Save _As...",               NULL,         save_as,       0, NULL },
-  { "/File/_Export to PostScript...",  NULL,         export_to_ps,  0, NULL },
-  { "/File/sep1",                      NULL,         NULL,          0, "<Separator>" },
-  { "/File/_Quit",                     "<control>Q", gtk_main_quit, 0, NULL },
-
-  { "/_Options",                       NULL, NULL,                  0,  "<Branch>" },
-  { "/Options/Default _Font Size",     NULL, NULL,                  0,  "<Branch>" },
-  { "/Options/Default Font Size/8pt",  NULL, options_font_size,     8,  "<RadioItem>" },
-  { "/Options/Default Font Size/10pt", NULL, options_font_size,     10, "/Options/Default Font Size/8pt" },
-  { "/Options/Default Font Size/12pt", NULL, options_font_size,     12, "/Options/Default Font Size/8pt" },
-  { "/Options/Default Font Size/14pt", NULL, options_font_size,     14, "/Options/Default Font Size/8pt" },
-  { "/Options/Default Font Size/18pt", NULL, options_font_size,     18, "/Options/Default Font Size/8pt" },
-  { "/Options/Default Font Size/24pt", NULL, options_font_size,     24, "/Options/Default Font Size/8pt" },
-  { "/Options/Font Manager",           NULL, NULL,                  0,  "<Branch>" },
-  { "/Options/Font Manager/_GTK",      NULL, options_font_manager,  0,  "<RadioItem>" },
-  { "/Options/Font Manager/_Type 1",   NULL, options_font_manager,  1,  "/Options/Font Manager/GTK" },
-  { "/Options/Verbosity",              NULL, NULL,                  0,  "<Branch>" },
-  { "/Options/Verbosity/_Errors",      NULL, options_verbosity,     0,  "<RadioItem>" },
-  { "/Options/Verbosity/_Warnings",    NULL, options_verbosity,     1,  "/Options/Verbosity/Errors" },
-  { "/Options/Verbosity/_Info",        NULL, options_verbosity,     2,  "/Options/Verbosity/Errors" },
-  { "/Options/Verbosity/_Debug",       NULL, options_verbosity,     3,  "/Options/Verbosity/Errors" },
-  { "/Options/sep1",                   NULL, NULL,                  0,  "<Separator>" },
-  { "/Options/_Kerning",               NULL, options_kerning,       0,  "<ToggleItem>" },
-  { "/Options/_Anti Aliasing",         NULL, options_anti_aliasing, 0,  "<ToggleItem>" },
-
-  { "/_Help" ,        NULL,         NULL,          0, "<LastBranch>" },
-  { "/Help/About...", NULL,         help_about,    0, NULL }
-};
-
-PRIVATE void
-quick_message(const gchar* msg)
-{
-  GtkWidget* dialog;
-  GtkWidget* label;
-  GtkWidget* okay_button;
-     
-  /* Create the widgets */
-     
-  dialog = gtk_dialog_new();
-  label = gtk_label_new (msg);
-  okay_button = gtk_button_new_with_label("OK");
-
-  gtk_widget_set_usize(dialog, 300, 100);
-
-  /* Ensure that the dialog box is destroyed when the user clicks ok. */
-     
-  gtk_signal_connect_object (GTK_OBJECT (okay_button), "clicked",
-                            GTK_SIGNAL_FUNC (gtk_widget_destroy), GTK_OBJECT(dialog));
-  gtk_container_add (GTK_CONTAINER (GTK_DIALOG(dialog)->action_area),
-                    okay_button);
-  
-  /* Add the label, and show everything we've added to the dialog. */
-  
-  gtk_container_add (GTK_CONTAINER (GTK_DIALOG(dialog)->vbox), label);
-  gtk_widget_show_all (dialog);
-}
-
-PRIVATE void
-load_error_msg(const gchar* name)
-{
-  gchar* msg = g_strdup_printf("Could not load\n`%s'", name);
-  quick_message(msg);
-  g_free(msg);
-}
-
-PRIVATE void
-save_error_msg(const gchar* name)
-{
-  gchar* msg = g_strdup_printf("Could not save\n`%s'", name);
-  quick_message(msg);
-  g_free(msg);
-}
-
-void
-GUI_init(gint* argc, gchar*** argv, gchar* title, guint width, guint height, GtkFunction f, guint32 timeout)
-{
-  GdkPixmap* source;
-  GdkPixmap* mask;
-
-  GdkColor fg = { 0, 65535, 65535, 65535 };
-  GdkColor bg = { 0, 0, 0, 0 };
-
-  gtk_init(argc, argv);
-
-  window = gtk_window_new(GTK_WINDOW_TOPLEVEL);
-  gtk_window_set_title(GTK_WINDOW(window), title);
-  gtk_window_set_default_size(GTK_WINDOW(window), width, height);
-  gtk_signal_connect(GTK_OBJECT(window), "delete_event", (GtkSignalFunc) gtk_main_quit, NULL);
-  create_widget_set();
-
-  gtk_widget_show(window);
-
-  gtk_timeout_add(timeout, f, NULL);
-
-  normal_cursor = gdk_cursor_new(GDK_TOP_LEFT_ARROW);
-  link_cursor = gdk_cursor_new(GDK_HAND2);
-  
-  source = gdk_bitmap_create_from_data (NULL, pot_bits,
-                                       pot_width, pot_height);
-  mask = gdk_bitmap_create_from_data (NULL, pot_mask_bits,
-                                     pot_mask_width, pot_mask_height);
-  pot_cursor = gdk_cursor_new_from_pixmap (source, mask, &fg, &bg, 8, 8);
-  gdk_pixmap_unref (source);
-  gdk_pixmap_unref (mask);  
-}
-
-void
-GUI_uninit()
-{
-}
-
-int
-GUI_load_document(const gchar* name)
-{
-  GtkMathView* math_view;
-  GtkMathViewClass* klass;
-  gboolean res;
-
-  g_return_val_if_fail(name != NULL, -1);
-  g_return_val_if_fail(main_area != NULL, -1);
-  g_return_val_if_fail(GTK_IS_MATH_VIEW(main_area), -1);
-
-  math_view = GTK_MATH_VIEW(main_area);
-  g_return_val_if_fail(math_view != NULL, -1);
-
-  klass = (GtkMathViewClass*) gtk_type_class(gtk_math_view_get_type());
-  g_return_val_if_fail(klass != NULL, -1);
-
-  res = gtk_math_view_load(math_view, name);
-  gdk_window_set_cursor(main_area->window, normal_cursor);
-  loading = FALSE;
-
-  if (!res) {
-    load_error_msg(name);
-    return -1;
-  }
-
-  gtk_statusbar_pop(GTK_STATUSBAR(status_bar), statusbar_context);
-  if (strlen(name) > 40) name += strlen(name) - 40;
-  gtk_statusbar_push(GTK_STATUSBAR(status_bar), statusbar_context, name);
-
-  if (file_name != NULL) g_free(file_name);
-  file_name = g_strdup(name);
-
-  return 0;
-}
-
-void
-GUI_unload_document()
-{
-  GtkMathView* math_view;
-
-  g_return_if_fail(main_area != NULL);
-  g_return_if_fail(GTK_IS_MATH_VIEW(main_area));
-
-  math_view = GTK_MATH_VIEW(main_area);
-
-  gtk_math_view_unload(math_view);
-}
-
-void
-GUI_run()
-{
-  gtk_main();
-}
-
-PRIVATE void
-options_font_size(GtkWidget* widget, guint size)
-{
-  GtkMathView* math_view;
-
-  g_return_if_fail(main_area != NULL);
-  g_return_if_fail(GTK_IS_MATH_VIEW(main_area));
-
-  math_view = GTK_MATH_VIEW(main_area);
-
-  gtk_math_view_set_font_size(math_view, size);
-}
-
-PRIVATE void
-options_font_manager(GtkWidget* widget, guint id)
-{
-  GtkMathView* math_view;
-
-  g_return_if_fail(main_area != NULL);
-  g_return_if_fail(GTK_IS_MATH_VIEW(main_area));
-  
-  math_view = GTK_MATH_VIEW(main_area);
-
-  gtk_math_view_set_font_manager_type(math_view, id);
-}
-
-PRIVATE void
-options_anti_aliasing(GtkWidget* widget, gpointer data)
-{
-  gboolean aa = gtk_math_view_get_anti_aliasing(GTK_MATH_VIEW(main_area));
-  gtk_math_view_set_anti_aliasing(GTK_MATH_VIEW(main_area), !aa);
-}
-
-PRIVATE void
-options_kerning(GtkWidget* widget, gpointer data)
-{
-  gboolean k = gtk_math_view_get_kerning(GTK_MATH_VIEW(main_area));
-  gtk_math_view_set_kerning(GTK_MATH_VIEW(main_area), !k);
-}
-
-PRIVATE void
-options_verbosity(GtkWidget* widget, guint level)
-{
-  gtk_math_view_set_log_verbosity(GTK_MATH_VIEW(main_area), level);
-}
-
-PRIVATE void
-help_about(GtkWidget* widget, gpointer data)
-{
-  GtkWidget* dialog;
-  GtkWidget* label;
-  GtkWidget* ok;
-
-  dialog = gtk_dialog_new();
-  label = gtk_label_new("\n    HELM PoT    \n    Copyright (C) 2001 Luca Padovani    \n");
-  ok = gtk_button_new_with_label("Close");
-
-  gtk_signal_connect_object (GTK_OBJECT (ok), "clicked",
-                            GTK_SIGNAL_FUNC (gtk_widget_destroy), (gpointer) dialog);
-  gtk_container_add (GTK_CONTAINER (GTK_DIALOG(dialog)->action_area),
-                    ok);
-
-  gtk_container_add (GTK_CONTAINER (GTK_DIALOG(dialog)->vbox), label);
-
-  gtk_widget_show_all (dialog);
-}
-
-PRIVATE void
-export_filename(GtkFileSelection* selector, gpointer user_data)
-{
-  FILE* f;
-  GtkMathView* math_view;
-  gchar* selected_filename;
-  
-  selected_filename = gtk_file_selection_get_filename (GTK_FILE_SELECTION(user_data));
-
-  math_view = GTK_MATH_VIEW(main_area);
-
-  f = fopen(selected_filename, "wt");
-  if (f == NULL) {
-    save_error_msg(selected_filename);
-    /*g_free(selected_filename);*/
-    return;
-  }
-
-  gtk_math_view_export_to_postscript(math_view,
-                                    (21 * SCALED_POINTS_PER_CM) / SCALED_POINTS_PER_PX,
-                                    (29 * SCALED_POINTS_PER_CM) / SCALED_POINTS_PER_PX,
-                                    SCALED_POINTS_PER_IN / SCALED_POINTS_PER_PX,
-                                    SCALED_POINTS_PER_IN / SCALED_POINTS_PER_PX,
-                                    FALSE,
-                                    f);
-
-  fclose(f);
-  /*g_free(selected_filename);*/
-}
-
-PRIVATE void
-save_filename(GtkFileSelection* selector, gpointer user_data)
-{
-  FILE* source;
-  FILE* dest;
-  gchar* buffer;
-  gchar* selected_filename;
-
-  if (file_name == NULL) return;
-
-  source = fopen(file_name, "rt");
-  if (source == NULL) {
-    load_error_msg(file_name);
-    return;
-  }
-
-  selected_filename = gtk_file_selection_get_filename (GTK_FILE_SELECTION(user_data));
-  if (selected_filename == NULL) return;
-
-  dest = fopen(selected_filename, "wt");
-  if (dest == NULL) {
-    save_error_msg(selected_filename);
-    /*g_free(selected_filename);*/
-    return;
-  }
-
-  /*g_free(selected_filename);*/
-
-  buffer = g_new(gchar, 2048);
-  while (!feof(source)) {
-    size_t n = fread(buffer, sizeof(gchar), 2048, source);
-    fwrite(buffer, sizeof(gchar), n, dest);
-  }
-
-  g_free(buffer);
-  fclose(source);
-  fclose(dest);
-}
-
-PRIVATE void
-file_dialog(const gchar* title, GtkSignalFunc f)
-{
-  GtkWidget* fs;
-
-  g_return_if_fail(title != NULL);
-  g_return_if_fail(f != NULL);
-
-  fs = gtk_file_selection_new(title);
-
-  gtk_signal_connect (GTK_OBJECT (GTK_FILE_SELECTION(fs)->ok_button),
-                     "clicked", f, fs);
-                             
-  /* Ensure that the dialog box is destroyed when the user clicks a button. */
-     
-  gtk_signal_connect_object (GTK_OBJECT (GTK_FILE_SELECTION(fs)->ok_button),
-                            "clicked", GTK_SIGNAL_FUNC (gtk_widget_destroy),
-                            (gpointer) fs);
-
-  gtk_signal_connect_object (GTK_OBJECT (GTK_FILE_SELECTION(fs)->cancel_button),
-                            "clicked", GTK_SIGNAL_FUNC (gtk_widget_destroy),
-                            (gpointer) fs);
-     
-  /* Display that dialog */
-     
-  gtk_widget_show (fs);
-}
-
-PRIVATE void
-export_to_ps(GtkWidget* widget)
-{
-  file_dialog("Export to PostScript", export_filename);
-#if 0
-  static GList* items = NULL;
-
-  GtkWidget* dialog;
-  GtkWidget* tmp;
-
-  if (items == NULL) {
-    items = g_list_append(items, "A4");
-    items = g_list_append(items, "A5");
-  }
-
-  dialog = gtk_dialog_new();
-  tmp = gtk_label_new("Paper size");
-  gtk_container_add(GTK_CONTAINER(GTK_DIALOG(dialog)->vbox), tmp);
-  tmp = gtk_combo_new();
-  gtk_combo_set_popdown_strings(GTK_COMBO(tmp), items);
-  gtk_container_add(GTK_CONTAINER(GTK_DIALOG(dialog)->vbox), tmp);
-#if 0
-  tmp = gtk_check_button_new_with_label("Disable Colors");
-  gtk_container_add(GTK_CONTAINER(GTK_DIALOG(dialog)->vbox), tmp);
-#endif
-
-  tmp = gtk_button_new_with_label("OK");
-  gtk_signal_connect_object(GTK_OBJECT(tmp), "clicked", GTK_SIGNAL_FUNC(export_to_ps_get_file_name), dialog);
-  gtk_signal_connect_object(GTK_OBJECT(tmp), "clicked", GTK_SIGNAL_FUNC(gtk_widget_destroy), dialog);
-  gtk_container_add(GTK_CONTAINER(GTK_DIALOG(dialog)->action_area), tmp);
-  tmp = gtk_button_new_with_label("Cancel");
-  gtk_signal_connect_object(GTK_OBJECT(tmp), "clicked", GTK_SIGNAL_FUNC(gtk_widget_destroy), dialog);
-  gtk_container_add(GTK_CONTAINER(GTK_DIALOG(dialog)->action_area), tmp);
-
-  gtk_widget_show_all(dialog);
-#endif
-}
-
-PRIVATE void
-save_as(GtkWidget* widget)
-{
-  file_dialog("Save As...", save_filename);
-}
-
-PRIVATE void
-element_changed(GtkMathView* math_view, mDOMNodeRef node)
-{
-  g_return_if_fail(math_view != NULL);
-  g_return_if_fail(main_area != NULL);
-  g_return_if_fail(GTK_IS_MATH_VIEW(math_view));
-  /* fprintf(stderr, "node changed: %p %s\n", node, (node != NULL) ? mdom_node_get_name(node) : "-"); */
-
-  if (!loading) {
-    while (node != NULL && !mdom_node_has_attribute_ns(node, DOM_CONST_STRING("href"), XLINK_NS_URI))
-      node = mdom_node_get_parent(node);
-
-    if (node != NULL) {
-      gdk_window_set_cursor(main_area->window, link_cursor);
-    } else
-      gdk_window_set_cursor(main_area->window, normal_cursor);
-  }
-}
-
-PRIVATE void
-selection_changed(GtkMathView* math_view, mDOMNodeRef node)
-{
-  g_return_if_fail(math_view != NULL);
-  g_return_if_fail(GTK_IS_MATH_VIEW(math_view));
-
-  while (node != NULL && !mdom_node_has_attribute(node, DOM_CONST_STRING("xref")))
-    node = mdom_node_get_parent(node);
-
-  gtk_math_view_set_selection(math_view, node);
-}
-
-PRIVATE void
-jump(mDOMConstStringRef href)
-{
-  pid_t pid;
-  g_return_if_fail(href != NULL);
-
-  gdk_window_set_cursor(main_area->window, pot_cursor);  
-  loading = TRUE;
-  pid = fork();
-  if (pid == -1) exit(-1);
-  if (pid == 0) {
-    gchar* open_url = g_strdup_printf("openURL(%s,cic)", href);
-    gint fd;
-    
-    close(0);
-    close(1);
-    close(2);
-    
-    fd = open("/dev/null", O_RDWR);
-    dup(fd);
-    dup(fd);
-    
-    execlp("netscape", "netscape", "-noraise", "-remote", open_url, NULL);
-    perror("exec failed:");
-    exit(-1);
-  }
-}
-
-PRIVATE void
-clicked(GtkMathView* math_view, gpointer user_data)
-{
-  mDOMNodeRef p = gtk_math_view_get_element(math_view);
-  while (p != NULL && !mdom_node_has_attribute_ns(p, DOM_CONST_STRING("href"), XLINK_NS_URI))
-    p = mdom_node_get_parent(p);
-
-  if (p != NULL) {
-    mDOMStringRef href = mdom_node_get_attribute_ns(p, DOM_CONST_STRING("href"), XLINK_NS_URI);
-    g_assert(href != NULL);
-
-    jump(C_CONST_STRING(href));
-    mdom_string_free(href);
-  } else if (gtk_math_view_get_action(math_view) != NULL)
-    gtk_math_view_action_toggle(math_view);
-}
-
-PRIVATE void
-create_widget_set()
-{
-  GtkWidget* main_vbox;
-  GtkWidget* menu_bar;
-
-  main_vbox = gtk_vbox_new(FALSE, 1);
-  gtk_container_border_width(GTK_CONTAINER(main_vbox), 1);
-  gtk_container_add(GTK_CONTAINER(window), main_vbox);
-  gtk_widget_show(main_vbox);
-
-  menu_bar = get_main_menu();
-  gtk_box_pack_start(GTK_BOX(main_vbox), menu_bar, FALSE, TRUE, 0);
-  gtk_widget_show(menu_bar);
-
-  main_area = gtk_math_view_new(NULL, NULL);
-  gtk_widget_show(main_area);
-
-  gtk_signal_connect_object (GTK_OBJECT (main_area),
-                            "element_changed", GTK_SIGNAL_FUNC (element_changed),
-                            (gpointer) main_area);
-
-  gtk_signal_connect_object (GTK_OBJECT (main_area),
-                            "selection_changed", GTK_SIGNAL_FUNC (selection_changed),
-                            (gpointer) main_area);
-
-  gtk_signal_connect_object (GTK_OBJECT (main_area), 
-                            "clicked", GTK_SIGNAL_FUNC(clicked),
-                            (gpointer) main_area);
-                            
-  scrolled_area = gtk_scrolled_window_new(NULL, NULL);
-  gtk_scrolled_window_set_policy(GTK_SCROLLED_WINDOW(scrolled_area),
-                                GTK_POLICY_AUTOMATIC, GTK_POLICY_ALWAYS);
-  gtk_widget_show(scrolled_area);
-  gtk_container_add(GTK_CONTAINER(scrolled_area), main_area);
-  gtk_box_pack_start(GTK_BOX(main_vbox), scrolled_area, TRUE, TRUE, 0);
-
-  status_bar = gtk_statusbar_new();
-  gtk_widget_show(status_bar);
-  gtk_box_pack_start(GTK_BOX(main_vbox), status_bar, FALSE, TRUE, 0);
-  statusbar_context = gtk_statusbar_get_context_id(GTK_STATUSBAR(status_bar), "filename");
-
-  gtk_widget_show(main_vbox);
-
-  if (gtk_math_view_get_anti_aliasing(GTK_MATH_VIEW(main_area)))
-    gtk_menu_item_activate(anti_aliasing_item);
-
-  if (gtk_math_view_get_kerning(GTK_MATH_VIEW(main_area)))
-    gtk_menu_item_activate(kerning_item);
-
-  gtk_math_view_set_font_size(GTK_MATH_VIEW(main_area), DEFAULT_FONT_SIZE);
-  gtk_menu_item_activate(font_size_item);
-}
-
-GtkWidget*
-get_main_menu()
-{
-  GtkItemFactory* item_factory;
-  GtkAccelGroup* accel_group;
-  GtkWidget* menu_item;
-
-  gint nmenu_items = sizeof(menu_items) / sizeof(menu_items[0]);
-
-  accel_group = gtk_accel_group_new();
-
-  item_factory = gtk_item_factory_new(GTK_TYPE_MENU_BAR, "<main>", accel_group);
-
-  gtk_item_factory_create_items(item_factory, nmenu_items, menu_items, NULL);
-
-  gtk_window_add_accel_group(GTK_WINDOW(window), accel_group);
-
-  menu_item = gtk_item_factory_get_widget(item_factory, "/Options/Kerning");
-  kerning_item = GTK_MENU_ITEM(menu_item);
-
-  menu_item = gtk_item_factory_get_widget(item_factory, "/Options/Anti Aliasing");
-  anti_aliasing_item = GTK_MENU_ITEM(menu_item);
-
-  /* !!!BEWARE!!! the default font size must be kept aligned with the definition
-   * in defs.h
-   */
-  menu_item = gtk_item_factory_get_widget(item_factory, "/Options/Default Font Size/14pt");
-  font_size_item = GTK_MENU_ITEM(menu_item);
-
-  return gtk_item_factory_get_widget(item_factory, "<main>");
-}

diff --git a/helm/helmpot/guiGTK.h b/helm/helmpot/guiGTK.h
deleted file mode 100644 (file)
index 83f5f86..0000000
--- a/helm/helmpot/guiGTK.h
+++ /dev/null
@@ -1,50 +0,0 @@
-/*
- * Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- * 
- * This file is part of HelmPot, a minimal browser for HELM.
- * 
- * HelmPot is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HelmPot is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- * 
- * You should have received a copy of the GNU General Public License
- * along with HelmPot; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- * 
- * For details, see the HelmPot World-Wide-Web page,
- * http://cs.unibo.it/helm/helmview, or send a mail to
- * <luca.padovani@cs.unibo.it>
- */
-
-#ifndef __guiGTK_h__
-#define __guiGTK_h__
-
-#include <glib.h>
-#include <gtk/gtk.h>
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-  /* initGUI: some initialization stuff, creates the main window, sets it with a title */
-  void GUI_init(gint *, gchar ***, gchar *, guint, guint, GtkFunction, guint32);
-  void GUI_uninit(void);
-
-  int  GUI_load_document(const gchar*);
-  void GUI_unload_document(void);
-  void GUI_dump_entities(void);
-
-  /* main: this is the main event loop, to be called when the program is ready to run */
-  void GUI_run(void);
-
-#ifdef __cplusplus
-}
-#endif
-
-#endif /* __guiGTK_h__ */

diff --git a/helm/helmpot/helmpot.spec.in b/helm/helmpot/helmpot.spec.in
deleted file mode 100644 (file)
index 641f184..0000000
--- a/helm/helmpot/helmpot.spec.in
+++ /dev/null
@@ -1,24 +0,0 @@
-Summary: A minimal browser for the HELM library
-Name: @PACKAGE@
-Version: @VERSION@
-Release: 1
-Copyright: GPL
-Group: Development/Libraries
-Source: www.cs.unibo.it:/helm/helmpot/@PACKAGE@-@VERSION@.tar.gz
-%description
-HelmView is a minimal browser for the HELM library.
-
-%prep
-%setup
-
-%build
-./configure
-make
-
-%install
-make install
-
-%files
-%doc AUTHORS COPYING ChangeLog INSTALL LICENSE NEWS README TODO 
-
-/usr/local/bin/@PACKAGE@

diff --git a/helm/helmpot/main.c b/helm/helmpot/main.c
deleted file mode 100644 (file)
index f99e2fa..0000000
--- a/helm/helmpot/main.c
+++ /dev/null
@@ -1,121 +0,0 @@
-/*
- * Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- * 
- * This file is part of HelmPot, a minimal browser for HELM.
- * 
- * HelmPot is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HelmPot is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- * 
- * You should have received a copy of the GNU General Public License
- * along with HelmPot; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- * 
- * For details, see the HelmPot World-Wide-Web page,
- * http://cs.unibo.it/helm/helmview, or send a mail to
- * <luca.padovani@cs.unibo.it>
- */
-
-#include <config.h>
-
-#include <glib.h>
-#include <assert.h>
-#include <getopt.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <errno.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <sys/socket.h>
-#include <netinet/in.h>
-#include <arpa/inet.h>
-#include <fcntl.h>
-#include <unistd.h>
-
-#include "defs.h"
-#include "guiGTK.h"
-
-#define BUFFER_SIZE 2048
-
-PRIVATE gchar app_name[64];
-PRIVATE gint sockfd;
-PRIVATE struct sockaddr_in address;
-
-PRIVATE void
-error(const gchar* msg)
-{
-  g_assert(msg != NULL);
-  fprintf(stderr, "%s: fatal error: %s\n", app_name, msg);
-}
-
-#if 0
-PRIVATE void
-print_version()
-{
-  printf("%s - written by Luca Padovani (C) 2000.\n", app_name);
-#ifdef DEBUG
-  printf("Compiled %s %s\n", __DATE__, __TIME__);
-#endif
-  exit(0);
-}
-#endif
-
-PRIVATE gboolean
-timeout(gpointer user_data)
-{
-  static gchar file_name[BUFFER_SIZE];
-
-  if (recv(sockfd, file_name, BUFFER_SIZE, 0) < 0) {
-    if (errno != EAGAIN && errno != EWOULDBLOCK)
-      error("error receving message");
-  } else
-    GUI_load_document(file_name);
-
-  return TRUE;
-}
-
-int
-main(int argc, char *argv[])
-{
-  sprintf(app_name, "HELM Pot (Plug-OuT) v%s", VERSION);
-
-  if (argc != 2) {
-    fprintf(stderr, "%s\n\n", app_name);
-    fprintf(stderr, "Usage: helmpot URL\n");
-    exit(-1);
-  }
-
-  sockfd = socket(PF_INET, SOCK_DGRAM, 0);
-  if (sockfd < 0) error("could not create socket");
-
-  if (inet_aton("127.0.0.1", &address.sin_addr) < 0)
-    error("could not create address");
-  address.sin_port = 8778;
-  address.sin_family = PF_INET;
-
-  if (bind(sockfd, &address, sizeof(address)) < 0) {
-    if (sendto(sockfd, argv[1], strlen(argv[1]), 0, &address, sizeof(address)) < 0) 
-      error("could not send message");
-    sleep(1);
-    exit(0);
-  }
-
-  if (fcntl(sockfd, F_SETFL, O_NONBLOCK) < 0)
-    error("could not set the socket to non-block mode");
-
-  GUI_init(&argc, &argv, app_name, 500, 600, timeout, 500);
-
-  GUI_load_document(argv[1]);
-
-  GUI_run();
-  GUI_uninit();
-  GUI_unload_document();
-
-  return 0;
-}

diff --git a/helm/helmpot/pot_mask b/helm/helmpot/pot_mask
deleted file mode 100644 (file)
index 09f71a6..0000000
--- a/helm/helmpot/pot_mask
+++ /dev/null
@@ -1,6 +0,0 @@
-#define pot_mask_width 16
-#define pot_mask_height 16
-static unsigned char pot_mask_bits[] = {
-   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x03, 0xe0, 0x0f, 0xe0, 0x0f,
-   0xff, 0x7f, 0xff, 0xff, 0xff, 0xff, 0xfe, 0xff, 0xfe, 0xff, 0xfc, 0x7f,
-   0xfc, 0x7f, 0xf8, 0x3f, 0xf0, 0x1f, 0x00, 0x00};

diff --git a/helm/http_getter/.cvsignore b/helm/http_getter/.cvsignore
deleted file mode 100644 (file)
index a29a8a1..0000000
--- a/helm/http_getter/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-Makefile configure config.log config.cache config.status http_getter.pl helm_http_getter.spec

diff --git a/helm/http_getter/AUTHORS b/helm/http_getter/AUTHORS
deleted file mode 100644 (file)
index 72c65aa..0000000
--- a/helm/http_getter/AUTHORS
+++ /dev/null
@@ -1,2 +0,0 @@
-Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>
-Stefano Zacchiroli <zacchiro@cs.unibo.it>

diff --git a/helm/http_getter/COPYING b/helm/http_getter/COPYING
deleted file mode 100644 (file)
index d60c31a..0000000
--- a/helm/http_getter/COPYING
+++ /dev/null
@@ -1,340 +0,0 @@
-                   GNU GENERAL PUBLIC LICENSE
-                      Version 2, June 1991
-
- Copyright (C) 1989, 1991 Free Software Foundation, Inc.
-     59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-                           Preamble
-
-  The licenses for most software are designed to take away your
-freedom to share and change it.  By contrast, the GNU General Public
-License is intended to guarantee your freedom to share and change free
-software--to make sure the software is free for all its users.  This
-General Public License applies to most of the Free Software
-Foundation's software and to any other program whose authors commit to
-using it.  (Some other Free Software Foundation software is covered by
-the GNU Library General Public License instead.)  You can apply it to
-your programs, too.
-
-  When we speak of free software, we are referring to freedom, not
-price.  Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-this service if you wish), that you receive source code or can get it
-if you want it, that you can change the software or use pieces of it
-in new free programs; and that you know you can do these things.
-
-  To protect your rights, we need to make restrictions that forbid
-anyone to deny you these rights or to ask you to surrender the rights.
-These restrictions translate to certain responsibilities for you if you
-distribute copies of the software, or if you modify it.
-
-  For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must give the recipients all the rights that
-you have.  You must make sure that they, too, receive or can get the
-source code.  And you must show them these terms so they know their
-rights.
-
-  We protect your rights with two steps: (1) copyright the software, and
-(2) offer you this license which gives you legal permission to copy,
-distribute and/or modify the software.
-
-  Also, for each author's protection and ours, we want to make certain
-that everyone understands that there is no warranty for this free
-software.  If the software is modified by someone else and passed on, we
-want its recipients to know that what they have is not the original, so
-that any problems introduced by others will not reflect on the original
-authors' reputations.
-
-  Finally, any free program is threatened constantly by software
-patents.  We wish to avoid the danger that redistributors of a free
-program will individually obtain patent licenses, in effect making the
-program proprietary.  To prevent this, we have made it clear that any
-patent must be licensed for everyone's free use or not licensed at all.
-
-  The precise terms and conditions for copying, distribution and
-modification follow.
-\f
-                   GNU GENERAL PUBLIC LICENSE
-   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
-  0. This License applies to any program or other work which contains
-a notice placed by the copyright holder saying it may be distributed
-under the terms of this General Public License.  The "Program", below,
-refers to any such program or work, and a "work based on the Program"
-means either the Program or any derivative work under copyright law:
-that is to say, a work containing the Program or a portion of it,
-either verbatim or with modifications and/or translated into another
-language.  (Hereinafter, translation is included without limitation in
-the term "modification".)  Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not
-covered by this License; they are outside its scope.  The act of
-running the Program is not restricted, and the output from the Program
-is covered only if its contents constitute a work based on the
-Program (independent of having been made by running the Program).
-Whether that is true depends on what the Program does.
-
-  1. You may copy and distribute verbatim copies of the Program's
-source code as you receive it, in any medium, provided that you
-conspicuously and appropriately publish on each copy an appropriate
-copyright notice and disclaimer of warranty; keep intact all the
-notices that refer to this License and to the absence of any warranty;
-and give any other recipients of the Program a copy of this License
-along with the Program.
-
-You may charge a fee for the physical act of transferring a copy, and
-you may at your option offer warranty protection in exchange for a fee.
-
-  2. You may modify your copy or copies of the Program or any portion
-of it, thus forming a work based on the Program, and copy and
-distribute such modifications or work under the terms of Section 1
-above, provided that you also meet all of these conditions:
-
-    a) You must cause the modified files to carry prominent notices
-    stating that you changed the files and the date of any change.
-
-    b) You must cause any work that you distribute or publish, that in
-    whole or in part contains or is derived from the Program or any
-    part thereof, to be licensed as a whole at no charge to all third
-    parties under the terms of this License.
-
-    c) If the modified program normally reads commands interactively
-    when run, you must cause it, when started running for such
-    interactive use in the most ordinary way, to print or display an
-    announcement including an appropriate copyright notice and a
-    notice that there is no warranty (or else, saying that you provide
-    a warranty) and that users may redistribute the program under
-    these conditions, and telling the user how to view a copy of this
-    License.  (Exception: if the Program itself is interactive but
-    does not normally print such an announcement, your work based on
-    the Program is not required to print an announcement.)
-\f
-These requirements apply to the modified work as a whole.  If
-identifiable sections of that work are not derived from the Program,
-and can be reasonably considered independent and separate works in
-themselves, then this License, and its terms, do not apply to those
-sections when you distribute them as separate works.  But when you
-distribute the same sections as part of a whole which is a work based
-on the Program, the distribution of the whole must be on the terms of
-this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest
-your rights to work written entirely by you; rather, the intent is to
-exercise the right to control the distribution of derivative or
-collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program
-with the Program (or with a work based on the Program) on a volume of
-a storage or distribution medium does not bring the other work under
-the scope of this License.
-
-  3. You may copy and distribute the Program (or a work based on it,
-under Section 2) in object code or executable form under the terms of
-Sections 1 and 2 above provided that you also do one of the following:
-
-    a) Accompany it with the complete corresponding machine-readable
-    source code, which must be distributed under the terms of Sections
-    1 and 2 above on a medium customarily used for software interchange; or,
-
-    b) Accompany it with a written offer, valid for at least three
-    years, to give any third party, for a charge no more than your
-    cost of physically performing source distribution, a complete
-    machine-readable copy of the corresponding source code, to be
-    distributed under the terms of Sections 1 and 2 above on a medium
-    customarily used for software interchange; or,
-
-    c) Accompany it with the information you received as to the offer
-    to distribute corresponding source code.  (This alternative is
-    allowed only for noncommercial distribution and only if you
-    received the program in object code or executable form with such
-    an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for
-making modifications to it.  For an executable work, complete source
-code means all the source code for all modules it contains, plus any
-associated interface definition files, plus the scripts used to
-control compilation and installation of the executable.  However, as a
-special exception, the source code distributed need not include
-anything that is normally distributed (in either source or binary
-form) with the major components (compiler, kernel, and so on) of the
-operating system on which the executable runs, unless that component
-itself accompanies the executable.
-
-If distribution of executable or object code is made by offering
-access to copy from a designated place, then offering equivalent
-access to copy the source code from the same place counts as
-distribution of the source code, even though third parties are not
-compelled to copy the source along with the object code.
-\f
-  4. You may not copy, modify, sublicense, or distribute the Program
-except as expressly provided under this License.  Any attempt
-otherwise to copy, modify, sublicense or distribute the Program is
-void, and will automatically terminate your rights under this License.
-However, parties who have received copies, or rights, from you under
-this License will not have their licenses terminated so long as such
-parties remain in full compliance.
-
-  5. You are not required to accept this License, since you have not
-signed it.  However, nothing else grants you permission to modify or
-distribute the Program or its derivative works.  These actions are
-prohibited by law if you do not accept this License.  Therefore, by
-modifying or distributing the Program (or any work based on the
-Program), you indicate your acceptance of this License to do so, and
-all its terms and conditions for copying, distributing or modifying
-the Program or works based on it.
-
-  6. Each time you redistribute the Program (or any work based on the
-Program), the recipient automatically receives a license from the
-original licensor to copy, distribute or modify the Program subject to
-these terms and conditions.  You may not impose any further
-restrictions on the recipients' exercise of the rights granted herein.
-You are not responsible for enforcing compliance by third parties to
-this License.
-
-  7. If, as a consequence of a court judgment or allegation of patent
-infringement or for any other reason (not limited to patent issues),
-conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License.  If you cannot
-distribute so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you
-may not distribute the Program at all.  For example, if a patent
-license would not permit royalty-free redistribution of the Program by
-all those who receive copies directly or indirectly through you, then
-the only way you could satisfy both it and this License would be to
-refrain entirely from distribution of the Program.
-
-If any portion of this section is held invalid or unenforceable under
-any particular circumstance, the balance of the section is intended to
-apply and the section as a whole is intended to apply in other
-circumstances.
-
-It is not the purpose of this section to induce you to infringe any
-patents or other property right claims or to contest validity of any
-such claims; this section has the sole purpose of protecting the
-integrity of the free software distribution system, which is
-implemented by public license practices.  Many people have made
-generous contributions to the wide range of software distributed
-through that system in reliance on consistent application of that
-system; it is up to the author/donor to decide if he or she is willing
-to distribute software through any other system and a licensee cannot
-impose that choice.
-
-This section is intended to make thoroughly clear what is believed to
-be a consequence of the rest of this License.
-\f
-  8. If the distribution and/or use of the Program is restricted in
-certain countries either by patents or by copyrighted interfaces, the
-original copyright holder who places the Program under this License
-may add an explicit geographical distribution limitation excluding
-those countries, so that distribution is permitted only in or among
-countries not thus excluded.  In such case, this License incorporates
-the limitation as if written in the body of this License.
-
-  9. The Free Software Foundation may publish revised and/or new versions
-of the General Public License from time to time.  Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
-Each version is given a distinguishing version number.  If the Program
-specifies a version number of this License which applies to it and "any
-later version", you have the option of following the terms and conditions
-either of that version or of any later version published by the Free
-Software Foundation.  If the Program does not specify a version number of
-this License, you may choose any version ever published by the Free Software
-Foundation.
-
-  10. If you wish to incorporate parts of the Program into other free
-programs whose distribution conditions are different, write to the author
-to ask for permission.  For software which is copyrighted by the Free
-Software Foundation, write to the Free Software Foundation; we sometimes
-make exceptions for this.  Our decision will be guided by the two goals
-of preserving the free status of all derivatives of our free software and
-of promoting the sharing and reuse of software generally.
-
-                           NO WARRANTY
-
-  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
-OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
-TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
-PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
-REPAIR OR CORRECTION.
-
-  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
-INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
-OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
-TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
-YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
-PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGES.
-
-                    END OF TERMS AND CONDITIONS
-\f
-           How to Apply These Terms to Your New Programs
-
-  If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
-  To do so, attach the following notices to the program.  It is safest
-to attach them to the start of each source file to most effectively
-convey the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
-    <one line to give the program's name and a brief idea of what it does.>
-    Copyright (C) <year>  <name of author>
-
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-
-
-Also add information on how to contact you by electronic and paper mail.
-
-If the program is interactive, make it output a short notice like this
-when it starts in an interactive mode:
-
-    Gnomovision version 69, Copyright (C) year  name of author
-    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
-    This is free software, and you are welcome to redistribute it
-    under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License.  Of course, the commands you use may
-be called something other than `show w' and `show c'; they could even be
-mouse-clicks or menu items--whatever suits your program.
-
-You should also get your employer (if you work as a programmer) or your
-school, if any, to sign a "copyright disclaimer" for the program, if
-necessary.  Here is a sample; alter the names:
-
-  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
-  `Gnomovision' (which makes passes at compilers) written by James Hacker.
-
-  <signature of Ty Coon>, 1 April 1989
-  Ty Coon, President of Vice
-
-This General Public License does not permit incorporating your program into
-proprietary programs.  If your program is a subroutine library, you may
-consider it more useful to permit linking proprietary applications with the
-library.  If this is what you want to do, use the GNU Library General
-Public License instead of this License.

diff --git a/helm/http_getter/ChangeLog b/helm/http_getter/ChangeLog
deleted file mode 100644 (file)
index 20c36b4..0000000
--- a/helm/http_getter/ChangeLog
+++ /dev/null
@@ -1 +0,0 @@
-28/12/2000: First alpha release

diff --git a/helm/http_getter/Makefile.in b/helm/http_getter/Makefile.in
deleted file mode 100644 (file)
index f4e6b59..0000000
--- a/helm/http_getter/Makefile.in
+++ /dev/null
@@ -1,41 +0,0 @@
-INSTALL_DIR=@RESOLVED_EXEC_PREFIX@/bin
-CGI_DIR=@HELM_CGI_DIR@
-
-all:
-
-install: installgetter installcgi
-
-uninstall: uninstallcgi uninstallgetter
-
-installgetter:
-       cp http_getter.pl $(INSTALL_DIR)/
-
-installcgi:
-       for f in *.cgi; do \
-  if [ -f $$f ]; then \
-   cp -f $$f $(CGI_DIR)/; \
-  fi; \
- done
-
-uninstallgetter:
-       rm $(INSTALL_DIR)/http_getter.pl
-
-uninstallcgi:
-       for f in *.cgi; do \
-  rm -f $(CGI_DIR)/$$f; \
- done
-
-clean:
-
-distclean: clean
-       rm -f Makefile configure config.log config.cache config.status \
-         http_getter.pl *.spec
-
-dist:   clean
-       rm -rf ../@PACKAGE@-@VERSION@
-       mkdir ../@PACKAGE@-@VERSION@
-       cp -r * ../@PACKAGE@-@VERSION@
-       (cd .. ; tar cvfz @PACKAGE@-@VERSION@.tar.gz @PACKAGE@-@VERSION@ ; rm -rf @PACKAGE@-@VERSION@)
-
-.PHONY: all install distclean
-

diff --git a/helm/http_getter/NEWS b/helm/http_getter/NEWS
deleted file mode 100644 (file)
index 20c36b4..0000000
--- a/helm/http_getter/NEWS
+++ /dev/null
@@ -1 +0,0 @@
-28/12/2000: First alpha release

diff --git a/helm/http_getter/README b/helm/http_getter/README
deleted file mode 100644 (file)
index efed4c2..0000000
--- a/helm/http_getter/README
+++ /dev/null
@@ -1,9 +0,0 @@
-NOTE: This is the first alpha release of project HELM.
-
-HELM (Hypertextual Electronic Library of Mathematics) is a project aimed
-at the creation of tools for the development and exploitation of a huge
-distributed library of formal mathematical knowledge. This package holds
-the getter used to map logical names into phisical names and download
-the required files.
-
-For more information see http://www.cs.unibo.it/helm

diff --git a/helm/http_getter/configure.in b/helm/http_getter/configure.in
deleted file mode 100644 (file)
index 2412b10..0000000
--- a/helm/http_getter/configure.in
+++ /dev/null
@@ -1,100 +0,0 @@
-AC_INIT(http_getter.pl.in)
-
-PACKAGE=helm_http_getter
-MAJOR_VERSION=0
-MINOR_VERSION=1
-MICRO_VERSION=54
-VERSION=$MAJOR_VERSION.$MINOR_VERSION.$MICRO_VERSION
-
-DEFAULT_HELM_LIB_DIR=/usr/local/lib/helm
-
-AC_ARG_ENABLE(
-       defaults,
-       [  --enable-defaults[=ARG] if yes then use defaults (don't ask user) [default=auto]],
-       USE_DEFAULTS=$enableval,
-       USE_DEFAULTS=auto
-)
-
-if test "x$prefix" != xNONE; then
-  RESOLVED_PREFIX=$prefix
-else
-  RESOLVED_PREFIX=$ac_default_prefix
-fi
-
-if test "x$exec_prefix" != xNONE; then
-  RESOLVED_EXEC_PREFIX=$exec_prefix
-else
-  RESOLVED_EXEC_PREFIX=$RESOLVED_PREFIX
-fi
-
-HELM_CGI_DIR=$RESOLVED_PREFIX/bin
-
-if test $USE_DEFAULTS = auto; then
-       AC_CHECK_PROG(HAVE_HELM_CONFIG, helm-config, yes, no)
-       if test $HAVE_HELM_CONFIG = yes; then
-               HELM_LIB_DIR=`helm-config --lib-dir`
-       else
-               USE_DEFAULTS=no
-       fi
-fi
-
-if test $USE_DEFAULTS = no; then
-       echo
-       echo "\`helm-config' is not installed (or I can't find it in your path)."
-       echo "Please, insert the lib directory HELM..."
-       echo
-       echo -n "[[$DEFAULT_HELM_LIB_DIR]] ? "
-       read HELM_LIB_DIR
-       if test "x$HELM_LIB_DIR" = "x"; then
-               HELM_LIB_DIR=$DEFAULT_HELM_LIB_DIR
-       fi
-elif test $USE_DEFAULTS = yes; then
-       HELM_LIB_DIR=$DEFAULT_HELM_LIB_DIR
-fi
-
-AC_MSG_CHECKING(for $HELM_LIB_DIR/configuration.pl)
-if test -f $HELM_LIB_DIR/configuration.pl; then
-       AC_MSG_RESULT(ok)
-else
-       AC_MSG_RESULT(no)
-       AC_MSG_ERROR(please check your installation)
-fi
-
-AC_PATH_PROG(PERL_BINARY,perl,no)
-if test $PERL_BINARY = no ; then
-   AC_MSG_ERROR(Could not find perl)
-fi
-
-dnl Perl modules checks
-PERL_MODS="HTTP::Daemon HTTP::Status HTTP::Request LWP::UserAgent DB_File Compress::Zlib CGI"
-PERL_INC=`perl -e 'print(join(" ",@INC))'`
-for perl_mod in $PERL_MODS; do
-       AC_MSG_CHECKING("for perl module: $perl_mod")
-       perl_mod_file=`echo $perl_mod | sed -e 's/::/\//' -e 's/$/\.pm/'`
-       module_found="false"
-       for perl_lib_dir in $PERL_INC; do
-               if test -f "$perl_lib_dir/$perl_mod_file"; then
-                       module_found="true"
-                       AC_MSG_RESULT("found in $perl_lib_dir")
-                       break
-               fi
-       done
-       if test "$module_found" != "true"; then
-               AC_MSG_ERROR("not found")
-       fi
-done
-
-AC_SUBST(PACKAGE)
-AC_SUBST(VERSION)
-AC_SUBST(RESOLVED_PREFIX)
-AC_SUBST(RESOLVED_EXEC_PREFIX)
-AC_SUBST(HELM_LIB_DIR)
-AC_SUBST(PERL_BINARY)
-AC_SUBST(HELM_CGI_DIR)
-
-AC_OUTPUT([
-  Makefile
-  http_getter.pl
-  helm_http_getter.spec
-], chmod +x http_getter.pl)
-

diff --git a/helm/http_getter/helm-http-getter b/helm/http_getter/helm-http-getter
deleted file mode 100755 (executable)
index 2e84888..0000000
--- a/helm/http_getter/helm-http-getter
+++ /dev/null
@@ -1,53 +0,0 @@
-#!/bin/sh
-#
-# http-getter:       Starts the http-getter for project HELM
-#
-# Version:      /home/lpadovan/http_getter/http_getter.pl 0.1
-#
-# Author:       Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>
-#
-# chkconfig: - 16 84
-# description: this is an implementation of an HELM getter as a \
-#              light http daemon. It allows URIs to be mapped to URLs \
-#              and documents to be retrieved.
-# processname: http_getter.pl
-# config: /local/etc/helm/configuration.xml
-
-# Source function library.
-. /etc/rc.d/init.d/functions
-
-RETVAL=0
-
-# See how we were called.
-case "$1" in
-  start)
-       echo -n "Starting HELM http-getter: "
-       export HELM_LIB_DIR=/projects/helm/on-line/local/lib/helm
-       daemon /projects/helm/http_getter/http_getter.pl &
-       RETVAL=$?
-       echo
-       [ $RETVAL -eq 0 ] && touch /var/lock/subsys/http_getter.pl
-       ;;
-  stop)
-       echo -n "Stopping HELM http-getter: "
-       killproc http_getter.pl
-       RETVAL=$?
-       [ $RETVAL -eq 0 ] && rm -f /var/lock/subsys/http_getter.pl
-        echo
-       ;;
-  status)
-       status http_getter.pl
-       RETVAL=$?
-       ;;
-  restart)
-       $0 stop
-       $0 start
-       RETVAL=$?
-       ;;
-  *)
-       echo "Usage: $0 {start|stop|status|restart}"
-       exit 1
-esac
-
-exit $RETVAL
-

diff --git a/helm/http_getter/helm_http_getter.spec.in b/helm/http_getter/helm_http_getter.spec.in
deleted file mode 100644 (file)
index dda2b97..0000000
--- a/helm/http_getter/helm_http_getter.spec.in
+++ /dev/null
@@ -1,31 +0,0 @@
-Summary: The HELM http getter
-Name: @PACKAGE@
-Version: @VERSION@
-Release: 1
-Copyright: GPL
-URL: http://www.cs.unibo.it/helm
-Packager: Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>
-Requires: helm_configuration >= 0.0.2, helm_data >= 0.0.2, perl-libwww-perl, perl-URI, MIME-Base64, perl-HTML-Parser, perl-XML-Parser
-Group: Applications/Publishing
-Source: www.cs.unibo.it:/helm/@PACKAGE@-@VERSION@.tar.gz
-%description
-HELM (Hypertextual Electronic Library of Mathematics) is a project aimed
-at the creation of tools for the development and exploitation of a huge
-distributed library of formal mathematical knowledge. This package holds
-the getter used to map logical names into phisical names and download
-the required files.
-For more information see http://www.cs.unibo.it/helm
-
-%prep
-%setup
-
-%build
-./configure --enable-defaults
-make
-
-%install
-make install
-
-%files
-%doc AUTHORS COPYING ChangeLog NEWS README
-%attr(755,root,root) /usr/local/bin/http_getter.pl

diff --git a/helm/http_getter/http_getter.pl.in b/helm/http_getter/http_getter.pl.in
deleted file mode 100755 (executable)
index f3484d6..0000000
--- a/helm/http_getter/http_getter.pl.in
+++ /dev/null
@@ -1,887 +0,0 @@
-#!@PERL_BINARY@
-
-# Copyright (C) 2000, HELM Team.
-# 
-# This file is part of HELM, an Hypertextual, Electronic
-# Library of Mathematics, developed at the Computer Science
-# Department, University of Bologna, Italy.
-# 
-# HELM is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License
-# as published by the Free Software Foundation; either version 2
-# of the License, or (at your option) any later version.
-# 
-# HELM is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# 
-# You should have received a copy of the GNU General Public License
-# along with HELM; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
-# 
-# For details, see the HELM World-Wide-Web page,
-# http://cs.unibo.it/helm/.
-
-#use strict;
-
-my $VERSION = "@VERSION@";
-
-# various variables
-my ($HELM_LIB_PATH);
-my $cgi_dir = "@HELM_CGI_DIR@";
-my (%xml_map, %rdf_map, %xslt_map);
-
-# First of all, let's load HELM configuration
-use Env;
-my $HELM_LIB_DIR = $ENV{"HELM_LIB_DIR"};
-# this should be the only fixed constant
-my $DEFAULT_HELM_LIB_DIR = "@HELM_LIB_DIR@";
-if (defined ($HELM_LIB_DIR)) {
-   $HELM_LIB_PATH = $HELM_LIB_DIR."/configuration.pl";
-} else {
-   $HELM_LIB_PATH = $DEFAULT_HELM_LIB_DIR."/configuration.pl";
-}
-
-# next require defines: $helm_dir, $html_link, $dtd_dir, $uris_dbm, $indexname
-require $HELM_LIB_PATH;
-
-# TEMP: TODO put these vars in configuration file configuration.xml
-# <move_to_conf_file>
-my $cachemode = $ENV{'HTTP_GETTER_CACHE_MODE'} ||
-    'gzipped';
-if (($cachemode ne 'gzipped') and ($cachemode ne 'normal')) {
- die "Invalid HTTP_GETTER_CACHE_MODE environment variable, must be".
- "'normal' or 'gzipped'\n";
-}
-
-my $helm_rdf_dir = $ENV{'HTTP_GETTER_RDF_DIR'} ||
-  "/usr/local/helm/rdf_library";
-my $rdf_dbm = $ENV{'HTTP_GETTER_RDF_DBM'} ||
-  "/usr/local/helm/rdf_urls_of_uris.db";
-my $xslt_dbm = $ENV{'HTTP_GETTER_XSLT_DBM'} ||
-  "/usr/local/helm/xslt_urls_of_uris.db";
-my $rdf_indexname = $ENV{'HTTP_GETTER_RDF_INDEXNAME'} ||
-  "rdf_index.txt";
-my $xslt_indexname = $ENV{'HTTP_GETTER_XSLT_INDEXNAME'} ||
-  "xslt_index.txt";
-$servers_file = $ENV{'HTTP_GETTER_SERVERS_FILE'} || $servers_file;
-$uris_dbm = $ENV{'HTTP_GETTER_URIS_DBM'} || $uris_dbm;
-  
-# </move_to_conf_file>
-
-# Let's override the configuration file
-$style_dir = $ENV{"HELM_STYLE_DIR"} if (defined ($ENV{"HELM_STYLE_DIR"}));
-$dtd_dir = $ENV{"HELM_DTD_DIR"} if (defined ($ENV{"HELM_DTD_DIR"}));
-
-use HTTP::Daemon;
-use HTTP::Status;
-use HTTP::Request;
-use LWP::UserAgent;
-use DB_File;
-use Compress::Zlib;
-use CGI;
-use URI;
-use URI::Escape;
-
-#CSC: mancano i controlli sulle condizioni di errore di molte funzioni
-#CSC: ==> non e' robusto
-#CSC: altra roba da sistemare segnata con CSC
-
-my $d = new HTTP::Daemon LocalPort => 8081
- or die "Error: port 8081 not available.";
-my $myownurl = $d->url;
-
-# Let's patch the returned URL
-$myownurl =~ s/\/$//; # chop the final slash
-my $myownport = $myownurl;
-$myownport =~ s/http:\/\/(.*):(.*)/$2/;
-$myownurl  =~ s/http:\/\/(.*):(.*)/$1/;
-($myownurl) = gethostbyname($myownurl);
-$myownurl = "http://".$myownurl.":".$myownport;
-
-tie(%xml_map, 'DB_File', $uris_dbm, O_RDWR, 0664); # open dbs
-tie(%rdf_map, 'DB_File', $rdf_dbm, O_RDWR, 0664);
-tie(%xslt_map, 'DB_File', $xslt_dbm, O_RDWR, 0664);
-
-print "\n";
-print "HTTP Getter $VERSION\n"; # print hello information
-print "Please contact me at: <URL:", $myownurl."/", ">\n";
-print "\n";
-print "servers_file: $servers_file\n";
-print "helm_dir: $helm_dir\n";
-print "helm_rdf_dir: $helm_rdf_dir\n";
-print "style_dir: $style_dir\n";
-print "dtd_dir: $dtd_dir\n";
-print "urls_of_uris db: $uris_dbm\n";
-print "rdf db: $rdf_dbm\n";
-print "xslt db: $xslt_dbm\n";
-print "cache mode: $cachemode\n";
-print "indexname: $indexname\n";
-print "rdf_indexname: $rdf_indexname\n";
-print "xslt_indexname: $xslt_indexname\n";
-print "\n";
-
-$SIG{CHLD} = "IGNORE"; # do not accumulate defunct processes
-$SIG{USR1} = \&update; # sent by the child to make the parent update
-
-while (my $c = $d->accept) {
- if (fork() == 0) {
-    while (my $r = $c->get_request) {
-        #CSC: mancano i controlli di sicurezza
-        
-        my $http_method = $r->method;
-        my $http_path = $r->url->path;
-        my $http_query = uri_unescape($r->url->query);
-        my $cgi = new CGI("$http_query");
-        my $inputuri = $cgi->param('uri');
-        print "\nRequest: ".$r->url."\n\n";
-
-        print "\nUnescaped query: ".$http_query."\n";
-
-         # "getxml" works with rdf uris
-        if ($http_method eq 'GET' and $http_path eq "/getxml") {
-            # finds the uri, url and filename
-
-            my $answerformat = $cgi->param('format');
-            my $patch_dtd = $cgi->param('patch_dtd');
-            $answerformat = "" if (not defined($answerformat));
-            $patch_dtd = "yes" if (not defined($patch_dtd));
-            if (($answerformat ne "gz") and ($answerformat ne "normal")
-               and ($answerformat ne "")) {
-             die "Wrong output format: $answerformat, must be 'normal' ".
-                 "or 'gz'\n";
-            }
-            if (($patch_dtd ne "yes") and ($patch_dtd ne "no")
-               and ($patch_dtd ne "")) {
-             die "Wrong param, patch_dtd must be 'yes' or 'no'\n";
-            }
-
-            my $filename = $inputuri;
-            my $prefix;
-            if (not isRdfUri($inputuri)) { # standad cic: or theory: uri
-             $filename =~ s/^cic:(.*)/$1/;
-             $filename =~ s/^theory:(.*)/$1/;
-            } else { # rdf uri
-             # The "helm:rdf/<<...>>//cic:" prefix is kept, but quoted
-             # (so that a "helm:rdf/<<...>>//cic:" dir is created
-             $prefix = $filename;
-             $filename =~ s/^(.*)\/\/cic:(.*)/$2/;
-             $filename =~ s/^(.*)\/\/theory:(.*)/$2/;
-             $prefix =~ s/\Q$filename\E//;
-             $prefix =~ s/_/__/g;
-             $prefix =~ s/\//_/g;
-             $filename = $prefix.$filename;
-            }
-
-            my $url = resolve ($inputuri); # resolve uri in url
-            if (not defined($url)) { # uri not found in uri2url map
-             die "NOT FOUND: uri \"$inputuri\" can't be resolved\n";
-             $c->send_error(RC_NOT_FOUND)
-            } else { # uri found and mapped to url
-              my $extension; # file extension
-              if ($url =~ /\.xml$/) { # non gzipped file
-                $extension = ".xml";
-              } elsif ($url =~ /\.xml\.gz$/) { # gzipped file
-                $extension = ".xml.gz";
-              } else { # error: unknown extension
-               die "unexpected extension in url: $url, might be '.xml'".
-                "or '.xml.gz'";
-              }
-
-              if (not isRdfUri ($inputuri)) { # save in uri std cache dir
-               $filename = $helm_dir.$filename.$extension;
-              } else { # save in rdf metadata cache dir
-               $filename = $helm_rdf_dir."/".$filename.$extension;
-              }
-
-              print_request($inputuri,$url,$filename);
-
-              # Retrieves the file
-              my $ciccontent = download($patch_dtd,$url,$filename,$answerformat);
-
-              if ($answerformat eq "normal") { # answer the client in text/xml
-               answer($c,$ciccontent,"text/xml","");
-              } else { # answer the client in text/xml, gzip encoding
-               answer($c,$ciccontent,"text/xml","x-gzip");
-              }
-            }
-            
-                           # "/register" does not work with rdf uris
-        } elsif ($http_method eq 'GET' and $http_path eq "/register") {
-          my $inputurl = $cgi->param('url');
-          print "Register requested...\n";
-          $xml_map{$inputuri}=$inputurl;
-
-          # Now let's clean the cache
-          my $cicfilename = $inputuri;
-          $cicfilename =~ s/cic:(.*)/$1/;
-          $cicfilename =~ s/theory:(.*)/$1/;
-
-          print "Unlinking ".$helm_dir.$cicfilename.".xml[.gz]\n";
-          unlink ($helm_dir.$cicfilename.".xml");
-          unlink ($helm_dir.$cicfilename.".xml.gz");
-
-          kill(USR1,getppid()); # signal changes to parent
-          untie %xml_map;
-          print "done.\n";
-          html_nice_answer($c,"Register done");
-
-                                  # "/resolve" works with rdf uri
-        } elsif ($http_method eq 'GET' and $http_path eq "/resolve") {
-          #my $outputurl = $xml_map{$inputuri};
-          my $outputurl = resolve($inputuri);
-          $outputurl = "" if (not defined($outputurl));
-          $cont = "<?xml version=\"1.0\" ?>\n\n";
-          if ($outputurl eq "") {
-           $cont .= "<unresolved />\n";
-          } else {
-           $cont .= "<url value=\"$outputurl\" />\n";
-          }
-          answer($c,$cont,"text/xml","");
-
-        } elsif ($http_method eq 'GET' and $http_path eq "/getdtd") {
-
-            my $filename = $inputuri;
-            $filename = $dtd_dir."/".$filename;
-            print "DTD: $inputuri ==> ($filename)\n";
-            if (stat($filename)) {
-               print "Using local copy\n";
-               open(FD, $filename) or die "Cannot open $filename\n";
-               $cont = "";
-               while(<FD>) {
-                # Vary bad heuristic for substituion of absolute URLs
-                # for relative ones
-               s/ENTITY (.*) SYSTEM\s+"/ENTITY $1 SYSTEM "$myownurl\/getdtd?uri=/g;
-               $cont .= $_;
-              }
-               close(FD);
-               answer($c,$cont,"text/xml","");
-            } else {
-               die "Could not find DTD!";
-            }
-
-        } elsif ($http_method eq 'GET' and $http_path eq "/getxslt") {
-
-          $url = $xslt_map{$inputuri};
-          print "Downloading XSLT ...\n";
-          helm_wget($tmp_dir, $url);
-          print "XSLT downloaded!\n";
-          $inputuri =~ s/.*\///;
-          my $filename = $tmp_dir . "/" . $inputuri;
-          my $cont;
-          die "Could not find XSLT!\n" unless stat($filename);
-          open(FD, $filename) or die "Can't open xslt local copy: '$filename'\n";
-          while(<FD>) {
-            s/xsl:import\s+href="/xsl:import href="$myownurl\/getxslt?uri=/g;
-            s/xsl:include\s+href="/xsl:include href="$myownurl\/getxslt?uri=/g;
-            $cont .= $_;
-          }
-          close(FD);
-          answer($c, $cont, "text/xml", "");
-          unlink $filename or
-            print "Can't unlink XSLT temp file '$filename'";
-
-# <old_version>
-#             my $filename = $inputuri;
-#             $filename = $style_dir."/".$filename;
-#             print "XSLT: $inputuri ==> ($filename)\n";
-#             if (stat($filename)) {
-#                print "Using local copy\n";
-#                open(FD, $filename) or die "Cannot open $filename\n";
-#                $cont = "";
-#                while(<FD>) {
-#                 # Vary bad heuristic for substituion of absolute URLs
-#                 # for relative ones
-#                 s/xsl:import\s+href="/xsl:import href="$myownurl\/getxslt?uri=/g ;
-#                 s/xsl:include\s+href="/xsl:include href="$myownurl\/getxslt?uri=/g ;
-#                 $cont .= $_;
-#                }
-#                close(FD);
-#                answer($c,$cont,"text/xml","");
-#             } else {
-#                die "Could not find XSLT!";
-#             }
-# </old_version>
-
-                                    # "/update" works with rdf uri
-        } elsif ($http_method eq 'GET' and $http_path eq "/update") {
-            # rebuild urls_of_uris db and rdf uris db
-           print "Update requested...\n";
-           update_dbs();
-           kill(USR1,getppid()); # signal changes to parent
-           print " done\n";
-           html_nice_answer($c,"Update done");
-
-                                 # "/ls" does not work with rdf uris
-        } elsif ($http_method eq 'GET' and $http_path eq "/ls") {
-            # send back keys that begin with a given uri
-           my ($uritype,$uripattern,$uriprefix);
-           my $baseuri = $cgi->param('baseuri');
-           chop $baseuri if ($baseuri =~ /.*\/$/); # remove trailing "/"
-                         # output type, might be 'txt' or 'xml':
-           my $outype = $cgi->param('format');
-           $uripattern = $baseuri;
-           $uripattern =~ s/^.*:(.*)/$1/;
-           if ($baseuri =~ /^cic:/) {
-            $uritype = "cic";
-           } elsif ($baseuri =~ /^theory:/) {
-            $uritype = "theory";
-           } else {
-            $uritype = "invalid";
-           }
-           if ($uritype ne "invalid") { # uri is valid
-            if (($outype ne 'txt') and ($outype ne 'xml')) { # invalid out type
-             print "Invalid output type specified: $outype\n";
-             html_nice_answer($c,"Invalid output type, must be ".
-              "'txt' or 'xml'");
-            } else { # valid output
-             print "BASEURI $baseuri, FORMAT $outype\n";
-             $cont = finduris($uritype,$uripattern,$outype);
-             if ($outype eq 'txt') {
-              answer($c,$cont,"text/plain","");
-             } elsif ($outype eq 'xml') {
-              answer($c,$cont,"text/xml","");
-             } else {
-              die "Internal error, exiting!";
-             }
-            }
-           } else { # invalid uri
-            print "Invalid uri: $baseuri, may begin with 'cic:', ".
-             "'theory:' or '*:'\n";
-            html_nice_answer($c,"Invalid uri , must begin with ".
-             "'cic:' or 'theory:'");
-           }
-
-        } elsif ($http_method eq 'GET' and $http_path eq "/help") {
-          # help request
-           print "Help requested!\n";
-           html_nice_answer($c,"HTTP Getter Version: $VERSION");
-
-        } elsif ($http_method eq 'GET' and $http_path eq "/getempty") {
-          # return an empty, but valid, xml document
-          my $emptyxml = <<EOXML;
-<?xml version="1.0"?>
-<!DOCTYPE empty [
-  <!ELEMENT empty EMPTY>
-]>
-<empty />
-EOXML
-          answer($c, $emptyxml, "", "");
-
-        } elsif ($http_method eq 'GET' and $http_path =~ /\.cgi$/) {
-          # cgi handling
-           print "CGI requested!\n";
-           if ($http_path !~ /^\/[^\/]*\.cgi$/) {
-            html_nice_answer($c,"Invalid CGI name: $http_path, ".
-            "you can't request CGI that contain a slash in the name\n");
-           } elsif (stat "$cgi_dir"."$http_path") {
-            if (not -x "$cgi_dir/$http_path") {
-             html_nice_answer($c,"CGI $http_path found but not ".
-              "executable\n");
-            } else { # exec CGI and anser back its output
-             my %old_ENV = %ENV;
-             %ENV = ();
-             $ENV{'QUERY_STRING'} = $http_query;
-             my $cgi_output = `$cgi_dir/$http_path`;
-             answer($c,$cgi_output,"","");
-             %ENV = %old_ENV;
-            }
-           } else {
-            html_nice_answer($c,"CGI '$http_path' not found ".
-             "in CGI dir '$cgi_dir'");
-           }
-
-        } else { # unsupported request
-            print "\n";
-            print "INVALID REQUEST!!!!!\n";
-            print "(PATH: ",$http_path,", ";
-            print "QUERY: ",$http_query,")\n";
-            $c->send_error(RC_FORBIDDEN)
-        }
-
-        print "\nRequest solved: ".$r->url."\n\n";
-    }
-
-    $c->close;
-    undef($c);
-    print "\nCONNECTION CLOSED\n\n";
-    exit;
-  } # fork
-}
-
-#================================
-
-sub isRdfUri { # return true if the uri is an rdf uri, false otherwise
-# typycal rdf uri:
-# helm:rdf/cic:www.cs.unibo.it/helm/rdf/foo_schema//cic:\
-#  /Coq/Init/Logic/True_rec.con.types
-#
-# the format is "helm:rdf/<metadata_tree>:<metadata_scheme>//<xml_file_uri>"
-#
- my ($uri) = @_;
- if ($uri =~ /^helm:rdf(.*):(.*)\/\/(.*)/) {
-  return 1;
- } else {
-  return 0;
- }
-}
-
-sub resolve { # resolve an uri in a url, work both with standard cic: or theory:
-              # uris and rdf uris
- print "RESOLVE subroutine\n";
- my ($uri) = @_;
- print "GIVEN URI: \"$uri\"\n";
- if (isRdfUri ($uri)) { # rdf uri, resolve using rdf db
-  print "IS A RDF URI\n";
-  print "I WILL RETURN '$rdf_map{$uri}'\n";
-  return ($rdf_map{$uri});
- } else { # standard cic: or theory: uri, resolve using std uri db
-  print "IS NOT A RDF URI\n";
-  print "I WILL RETURN '$xml_map{$uri}'\n";
-  return ($xml_map{$uri});
- }
-}
-
-sub finduris { # find uris for cic and theory trees generation
- my ($uritype,$uripattern,$format) = @_;
- my $content = "";
- my ($uri,$localpart,$basepart,$dirname,$suffix,$flags,$key);
- my (@itemz,@already_pushed_dir);
- my (%objects,%dirs); # map uris to suffixes' flags
- my $debug=1; # for debug
-
- print "FINDURIS, uritype: $uritype, uripattern: $uripattern, ".
-  "format: $format\n\n" if defined($debug);
- 
- if (($uritype eq "cic") or ($uritype eq "theory")) {
-   # get info only of one type: cic or theory
-  foreach (keys(%xml_map)) { # select matching uris
-   $uri = $_;
-   if ($uri =~ /^$uritype:$uripattern(\/|$|\.)/) {
-    if ($uri =~ /^$uritype:$uripattern\//) { # directory match
-     $localpart = $uri;
-     $localpart =~ s/^$uritype:$uripattern\/(.*)/$1/;
-    } elsif ($uri =~ /^$uritype:$uripattern($|\.)/) { # file match
-     $localpart = $uri;
-     $localpart =~ s/^.*\/([^\/]*)/$1/;
-    } else {
-     die "Internal error, seems that requested match is none of ".
-      "directory match or file match";
-    }
-    print "LOCALPART: $localpart\n" if defined($debug);
-
-    if ($localpart =~ /^[^\/]*$/) { # no slash, an OBJECT
-     $basepart = $localpart;
-     $basepart =~ s/^([^.]*\.[^.]*)(\.types)?(\.ann)?/$1/;
-                                              # remove exts .types or
-                                              # .types.ann
-     $flags = $objects{$basepart}; # get old flags
-     if ($localpart =~ /\.ann$/) {
-      $flags = add_flag("ann","YES",$flags);
-     } else {
-      $flags = add_flag("ann","NO",$flags);
-     }
-     if ($localpart =~ /\.types$/) {
-      $flags = add_flag("types","YES",$flags);
-     } elsif ($localpart =~ /\.types\.ann$/) {
-      $flags = add_flag("types","ANN",$flags);
-     } else {
-      $flags = add_flag("types","NO",$flags);
-     }
-     $objects{$basepart} = $flags; # save new flags
-    } else { # exists at least one slash, a DIR
-     ($dirname) = split (/\//, $localpart);
-     $dirs{$dirname} = ""; # no flags requirement for dir
-    }
-   }
-  }
- } else {
-  die "getter internal error: unsupported uritype: \"$uritype\"";
- }
-                            # now generate OUTPUT:
-                            # output will be saved in $content
- if ($format eq "txt") { # TXT output
-  foreach $key (sort(keys %dirs)) {
-   $content .= "dir, " . $key . "\n";
-  }
-  foreach $key (sort(keys %objects)) {
-   $content .= "object, $key, " . $objects{$key} . "\n";
-  }
- } elsif ($format eq "xml") { # XML output
-  $content .= '<?xml version="1.0" encoding="ISO-8859-1"?>' . "\n";
-  $content .= "<!DOCTYPE ls SYSTEM ";
-  $content .= "\"$myownurl/getdtd?uri=ls.dtd\">" . "\n\n";
-  $content .= "<ls>\n";
-  foreach $key (sort(keys %dirs)) {
-   $content .= "\t<section>$key</section>\n";
-  }
-  foreach $key (sort(keys %objects)) {
-   $content .= "\t<object name=\"$key\">\n";
-   $flags = $objects{$key};
-   $flags =~ s/^<(.*)>$/$1/;
-   my ($annflag,$typesflag) = split /,/,$flags;
-   $content .= "\t\t<ann value=\"$annflag\" />\n";
-   $content .= "\t\t<types value=\"$typesflag\" />\n";
-   $content .= "\t</object>\n";
-  }
-  $content .= "</ls>\n";
- } else { # may not enter this branch
-  die "Getter internal error: invalid format received by finduris sub";
- }
- return $content;
-}
-
-sub add_flag {
-# manage string like: "<ann_flag,type_flag>"
-# "ann_flag" may be one of "ann_YES", "ann_NO"
-# "type_flag" may be one of "types_NO", "types_YES", "types_ANN"
-# when adding a flag the max between the current flag and the new flag
-# is taken, the orders are ann_NO < ann_YES and types_NO < types_YES <
-# types_ANN
- my ($flagtype,$newflag,$str) = @_;
- $str = "<,>" if ($str eq "");
- ($str =~ s/^<(.*,.*)>$/$1/) or die "Internal error: ".
-   "wrong string format for flag adding in $str";
- my ($annflag,$typeflag) = split /,/,$str;
- if ($flagtype eq "ann") { # ANN flag handling
-  if ($newflag eq "YES") {
-   $annflag = "YES";
-  } elsif ($newflag eq "NO") {
-   $annflag = "NO" unless ($annflag eq "YES");
-  } else {
-   die "Internal error: annflag must be \"YES\" or \"NO\"";
-  }
- } elsif ($flagtype eq "types") { # TYPES flag handling
-  if ($newflag eq "ANN") {
-   $typeflag = "ANN";
-  } elsif ($newflag eq "YES") {
-   $typeflag = "YES" unless ($typeflag eq "ANN");
-  } elsif ($newflag eq "NO") {
-   $typeflag = "NO"
-     unless (($typeflag eq "ANN") or ($typeflag eq "YES"));
-  } else {
-   die "Internal error: typeflag must be \"YES\", \"NO\" or \"ANN\"";
-  }
- } else {
-  die "Internal error: unsupported flagtype \"$flagtype\"";
- }
- $str = "<$annflag,$typeflag>";
-}
-
-#CSC: Too much powerful: creates even /home, /home/users/, ...
-#CSC: Does not raise errors if could not create dirs/files
-sub mkdirs
-{
- my ($pathname) = @_;
- my @dirs = split /\//,$pathname;
- my $tmp;
- foreach $dir (@dirs) {
-  $tmp = ((defined($tmp)) ?  $tmp."\/".$dir : "");
-  mkdir($tmp,0777);
- }
- rmdir($tmp);
-}
-
-sub print_request
-{
- my ($uri,$url,$filename) = @_;
- print "<download_request>\n";
- print "uri: $uri\n";
- print "url: $url\n";
- print "filename: $filename\n\n";
- print "</download_request>\n";
-}
-
-sub gunzip { # gunzip a file and return the deflated content
-       my ($filename) = @_;
-
-       my ($gz, $buffer, $cont);
-
-       print "deflating $filename ...\n";
-       $gz = gzopen($filename, "r")
-               or die "Cannot open gzip'ed file $filename: $gzerrno";
-       $cont = "";
-       while ( $gz->gzread($buffer) > 0 ) {
-               $cont .= $buffer;
-       }
-       die "Error while reading : $gzerrno\n" if $gzerrno != Z_STREAM_END ;
-       $gz->gzclose();
-
-       return $cont;
-}
-
-sub gzip {     # gzip the content argument and save it to filename argument
-       my ($cont, $filename) = @_;
- #my $debug=1; # debug only
-
- print "gzopening $filename ...\n" if (defined($debug));
-       my $gz = gzopen($filename, "w")
-               or die "Cannot gzopen for writing file $filename: $gzerrno";
- print "gzwriting ...\n" if (defined($debug));
-       $gz->gzwrite($cont) or die "error writing: $gzerrno, exiting!\n";
- print "gzclosing ...\n" if (defined($debug));
-       $gz->gzclose();
-}
-
-sub download {
- my ($patch_dtd,$url,$filename,$format) = @_;
- my ($gz, $buffer);
-
-# print "DOWNLOAD subs receives url: \"$url\"\n";
-# print "DOWNLOAD subs receives filename: \"$filename\"\n";
-
- my $resourcetype;     # retrieve mode: "normal" (.xml) or "gzipped" (.xml.gz)
- if ($filename =~ /\.xml$/) {  # set retrieve mode
-        $resourcetype = "normal";
- } elsif ($filename =~ /\.xml\.gz$/) {
-        $resourcetype = "gzipped";
- } else {
-        die "Unsupported download extension, might be '.gz' or '.xml'\n";
- }
- my $basefname = $filename;
- $basefname =~ s/\.gz$//;      # get base resource name removing trailing .gz
- $cont = ""; # modified by side-effect by the callback function
-
- my $localfname="";
- if (stat($basefname)) {
-       $localfname=$basefname;
- } elsif (stat($basefname.".gz")) {
-       $localfname=$basefname.".gz";
- }
- if ($localfname ne "") { # we already have local copy of requested file
-      # check both possible cache entry: gzipped or normal
-  print "Using local copy.\n";
-  if ($localfname =~ /\.xml\.gz$/) { # deflating cached file and return it
-   $cont = gunzip($localfname);
-  } elsif ($localfname =~ /\.xml$/) { # just return cached file
-   open(FD, $localfname) or die "Cannot open $localfname";
-   while(<FD>) { $cont .= $_; }
-   close(FD);
-  } else { # error
-   die "Internal error: unexpected file name $localfname,"
-   ."must end with '.gz' or '.xml.gz'\n";
-  }
- } else { # download file from net
-   print "Downloading file ...\n"; # download file
-   my $ua = LWP::UserAgent->new;
-   my $request = HTTP::Request->new(GET => "$url");
-   my $response = $ua->request($request, \&callback);
-   
-   # cache retrieved file to disk
-   # <ZACK/> TODO: inefficent, I haven't yet undestood how to deflate
-   #    in memory gzipped file, without call "gzopen"
-   print "Storing file ...\n";
-#   print "Making dirs ...\n";
-   mkdirs($filename);
-#   print "Opening tmp file for writing ...\n";
-   open(FD, ">".$filename.".tmp") or die "Cannot open $filename.tmp\n";
-#   print "Writing on tmp file ...\n";
-   print FD $cont;
-#   print "Closing tmp file ...\n";
-   close(FD);
-
-   # handle cache conversion normal->gzipped or gzipped->normal as user choice
-   print "cachemode:$cachemode, resourcetype:$resourcetype\n"
-    if (defined($debug));
-   if (($cachemode eq 'normal') and ($resourcetype eq 'normal')) {
-     # cache the file as is
-    rename "$filename.tmp", $filename; 
-   } elsif (($cachemode eq 'gzipped') and ($resourcetype eq 'gzipped')) {
-     # cache the file as is
-     # and update the $cont variabile with deflated content
-    rename "$filename.tmp", $filename; 
-    $cont = gunzip($filename);
-   } elsif (($cachemode eq 'normal') and ($resourcetype eq 'gzipped')) {
-     # deflate cache entry
-     # and update $cont
-    open(FD, "> $basefname") or die "cannot open $basefname\n";
-    $cont = gunzip($filename.".tmp");
-    print FD $cont;
-    close(FD);
-    unlink "$filename.tmp"; # delete old gzipped file
-   } elsif (($cachemode eq 'gzipped') and ($resourcetype eq 'normal')) {
-     # compress cache entry
-    print "gzipping ...\n" if (defined($debug));
-    gzip($cont, $basefname.".gz");
-    unlink "$filename.tmp"; # delete old uncompressed file
-   } else {
-    die "Internal error, unsopported cachemode, resourcetype couple\n";
-   }
-   # $cont now contained uncompressed data
- }
- if ($patch_dtd eq "yes") {
-    $cont =~ s/DOCTYPE (.*) SYSTEM\s+"http:\/\/www.cs.unibo.it\/helm\/dtd\//DOCTYPE $1 SYSTEM "$myownurl\/getdtd?uri=/g;
- }
- if ($format eq "gz") {
-  gzip($cont,"$basefname.tmp");
-  open (TMP, "< $basefname.tmp")
-   or die "Can't open tempfile: $filename.tmp, exiting!\n";
-  $cont = "";
-  while(<TMP>) {
-   $cont .= $_;
-  }
-  close TMP;
-  unlink ($basefname . ".tmp") or
-   die "cannot unlink temporary file: $basefname.tmp\n";
- }
-
- return $cont;
-}
-
-sub answer {
-# answer the client setting content, Content-Type and Content-Enconding
-# of the answer
- my ($c,$cont,$contype,$contenc) = @_;
- my $res = new HTTP::Response;
- $res->content($cont);
- $res->push_header("Content-Type" => $contype)
-   unless ($contype eq "");
- $res->push_header("Content-Encoding" => $contenc)
-   unless ($contenc eq "");
- $res->push_header("Cache-Control" => "no-cache");
- $res->push_header("Pragma" => "no-cache");
- $res->push_header("Expires" => "0");
- $c->send_response($res);
-}
-
-sub html_nice_answer {
-# answer the client whith a nice html document
- my ($c,$content) = @_;
- $content = "<html><body><h1>$content</h1></body></html>";
- answer($c,$content,"text/html","");
-}
-
-sub callback {
- my ($data) = @_;
- $cont .= $data;
-}
-
-sub helm_wget {
-# retrieve a file from an url and write it to a temp dir
-# used for retrieve resource index from servers
- $cont = "";
- my ($prefix, $URL) = @_;
- my $ua = LWP::UserAgent->new;
- my $request = HTTP::Request->new(GET => "$URL");
- my $response = $ua->request($request, \&callback);
- my ($filename) = reverse (split "/", $URL); # get filename part of the URL
- open (TEMP, "> $prefix/$filename")
-  || die "Cannot open temporary file: $prefix/$filename\n";
- print TEMP $cont;
- close TEMP;
-}
-
-sub update {
-# retie dbs
- untie %xml_map;
- tie(%xml_map, 'DB_File', $uris_dbm, O_RDWR, 0664);
- untie %rdf_map;
- tie(%rdf_map, 'DB_File', $rdf_dbm, O_RDWR, 0664);
- untie %xslt_map;
- tie(%xslt_map, 'DB_File', $xslt_dbm, O_RDWR, 0664);
-}
-
-sub update_dbs {
-# rebuild dbs fetching resource indexes from servers.
-# Rebuild urls_of_uris db (1), rdf db (2) and xslt db (3)
- my (
-  $server, $idxfile, $rdf_idxfile, $uri, $url, $comp, $line,
-  @servers,
-  %urls_of_uris, %rdf, %xslt # local proxy of dbs
- );
-
- untie %xml_map;
- untie %rdf_map;
- untie %xslt_map;
- foreach my $file ($uris_dbm, $rdf_dbm, $xslt_dbm) { # remove old db file
-  if (stat $file) { # remove if exists
-   unlink ($file) or die "can't unlink old db file: $file\n";
-  }
- }
- tie(%urls_of_uris, 'DB_File', $uris_dbm, O_RDWR|O_CREAT, 0664);
- tie(%rdf, 'DB_File', $rdf_dbm, O_RDWR|O_CREAT, 0664);
- tie(%xslt, 'DB_File', $xslt_dbm, O_RDWR|O_CREAT, 0664);
-
- open (SRVS, "< $servers_file") or
-  die "cannot open servers file: $servers_file\n";
- @servers = <SRVS>; # read all servers
- close (SRVS);
-
- while ($server = pop @servers) { # cicle on servers in _reverse_ order
-  print "processing server: $server ...\n";
-  chomp $server;
-  helm_wget($tmp_dir, $server."/".$indexname); # get index
-  helm_wget($tmp_dir, $server."/".$rdf_indexname); # get rdf index
-  helm_wget($tmp_dir, $server."/".$xslt_indexname); # get xslt index
-  $idxfile = $tmp_dir."/".$indexname;
-  $rdf_idxfile = $tmp_dir."/".$rdf_indexname;
-  $xslt_idxfile = $tmp_dir . "/" . $xslt_indexname;
-
-                  # (1) REBUILD URLS_OF_URIS DB
-  open (INDEX, "< $idxfile") or
-   die "cannot open temporary index file: $idxfile\n";
-  while (my $line = <INDEX>) {  # parse index and add entry to urls_of_uris db
-   chomp $line;
-   ($uri,$comp) = split /[ \t]+/, $line;
-             # build url:
-   if ($comp =~ /gz/) { 
-    $url = $uri . ".xml" . ".gz";
-   } else {
-    $url = $uri . ".xml";
-   }
-   $url =~ s/cic:/$server/;
-   $url =~ s/theory:/$server/;
-   $urls_of_uris{$uri} = $url;
-  }
-
-                  # (2) REBUILD RDF DB
-  open (RDF_INDEX, "< $rdf_idxfile") or
-   die "cannot open temporary RDF index file: $rdf_idxfile\n";
-  while (my $line = <RDF_INDEX>) {  # parse index and add entry to rdf db
-   chomp $line;
-   ($uri,$comp) = split /[ \t]+/, $line; # comp is "gz" or nothing
-             # build url:
-   if ($comp =~ /gz/) { 
-    $url = $uri . ".xml" . ".gz";
-   } else {
-    $url = $uri . ".xml";
-   }
-   $url =~ s/^helm:rdf(.*)\/\/cic:/$server/;
-   $url =~ s/^helm:rdf(.*)\/\/theory:/$server/;
-   $rdf{$uri} = $url;
-  }
-
-                  # (3) REBUILD XSLT DB
-  open (XSLT_INDEX, "< $xslt_idxfile") or
-    die "cannot open temporary XSLT index file: $xslt_idxfile\n";
-  while (my $line = <XSLT_INDEX>) { # parse index and add entry to xslt db
-    chomp $line;
-    my $stylesheet = $line;
-    my $url = $server . "/" . $stylesheet;
-    $xslt{$stylesheet} = $url;
-  }
-
-  close INDEX;  # close indexes
-  close RDF_INDEX;
-  close XSLT_INDEX;
-
-                  # remove temp files
-  foreach my $file ($idxfile, $rdf_idxfile, $xslt_idxfile) {
-    print "cannot unlink temporary file: $file\n" if (unlink $file) != 1;
-  }
-
- }
-
- untie(%urls_of_uris); # untie local proxies
- untie(%rdf);
- untie(%xslt);
- tie(%xml_map, 'DB_File', $uris_dbm, O_RDWR, 0664); # retie global ones
- tie(%rdf_map, 'DB_File', $rdf_dbm, O_RDWR, 0664);
- tie(%xslt_map, 'DB_File', $xslt_dbm, O_RDWR, 0664);
-
-} # update_dbs
-
-# vim modline: do not remove!
-# vim: set ft=perl:
-

diff --git a/helm/http_getter/tools/dump_db.pl b/helm/http_getter/tools/dump_db.pl
deleted file mode 100755 (executable)
index 95d3f4a..0000000
--- a/helm/http_getter/tools/dump_db.pl
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/perl -w
-
-# dump on stdout the data contained in a db file.
-# Print one line for each record in this format
-#  <key> = <value>
-#
-# Stefano "Zack" Zacchiroli <zack@cs.unibo.it>
-#
-
-use strict qw(O_RDONLY);
-use DB_File;
-
-my $dbfile = shift || die "which db file ?";
-my %map;
-tie(%map, 'DB_File', $dbfile, O_RDONLY, 0664);
-while(($key,$value) = each %map) {
-       print "$key = $value\n";
-}
-

diff --git a/helm/http_getter/tools/uri_escape.pl b/helm/http_getter/tools/uri_escape.pl
deleted file mode 100755 (executable)
index 0303e3f..0000000
--- a/helm/http_getter/tools/uri_escape.pl
+++ /dev/null
@@ -1,16 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-
-# escape a URI with uri escaping
-#
-# Stefano "Zack" Zacchiroli <zack@cs.unibo.it>
-#
-
-
-use URI::Escape;
-
-while(<>) {
- chomp;
- print uri_escape($_);
- print "\n";
-}

diff --git a/helm/http_getter/tools/uri_unescape.pl b/helm/http_getter/tools/uri_unescape.pl
deleted file mode 100755 (executable)
index 7f77d37..0000000
--- a/helm/http_getter/tools/uri_unescape.pl
+++ /dev/null
@@ -1,15 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-
-# unescape a URI escaped with uri escaping
-#
-# Stefano "Zack" Zacchiroli <zack@cs.unibo.it>
-#
-
-use URI::Escape;
-
-while(<>) {
- chomp;
- print uri_unescape($_);
- print "\n";
-}

diff --git a/helm/interface/.cvsignore b/helm/interface/.cvsignore
deleted file mode 100644 (file)
index 742f6eb..0000000
--- a/helm/interface/.cvsignore
+++ /dev/null
@@ -1,27 +0,0 @@
-*.cmo
-*.cmx
-*.cmi
-
-experiment
-experiment.opt
-fix_params
-fix_params.opt
-mmlinterface
-mmlinterface.opt
-reduction
-reduction.opt
-t1lib.log
-output.ps
-output2.ps
-
-Makefile
-configuration.ml
-helm_wget
-configure
-config.log
-config.cache
-config.status
-
-helm_gtk_interface.spec
-
-gmon.out

diff --git a/helm/interface/.depend b/helm/interface/.depend
deleted file mode 100644 (file)
index 6402ae5..0000000
--- a/helm/interface/.depend
+++ /dev/null
@@ -1,94 +0,0 @@
-experiment.cmo: cicCache.cmi cicPp.cmi configuration.cmo getter.cmi \
-    uriManager.cmi 
-experiment.cmx: cicCache.cmx cicPp.cmx configuration.cmx getter.cmx \
-    uriManager.cmx 
-cicCache.cmo: annotationParser.cmo cic.cmo cicParser.cmi cicSubstitution.cmi \
-    deannotate.cmo getter.cmi uriManager.cmi cicCache.cmi 
-cicCache.cmx: annotationParser.cmx cic.cmx cicParser.cmx cicSubstitution.cmx \
-    deannotate.cmx getter.cmx uriManager.cmx cicCache.cmi 
-cicCache.cmi: cic.cmo uriManager.cmi 
-cicPp.cmo: cic.cmo cicCache.cmi uriManager.cmi cicPp.cmi 
-cicPp.cmx: cic.cmx cicCache.cmx uriManager.cmx cicPp.cmi 
-cicPp.cmi: cic.cmo 
-cicParser.cmo: cicParser2.cmi cicParser3.cmi pxpUriResolver.cmo \
-    uriManager.cmi cicParser.cmi 
-cicParser.cmx: cicParser2.cmx cicParser3.cmx pxpUriResolver.cmx \
-    uriManager.cmx cicParser.cmi 
-cicParser.cmi: cic.cmo uriManager.cmi 
-cicParser2.cmo: cic.cmo cicParser3.cmi uriManager.cmi cicParser2.cmi 
-cicParser2.cmx: cic.cmx cicParser3.cmx uriManager.cmx cicParser2.cmi 
-cicParser2.cmi: cic.cmo cicParser3.cmi 
-cicParser3.cmo: cic.cmo uriManager.cmi cicParser3.cmi 
-cicParser3.cmx: cic.cmx uriManager.cmx cicParser3.cmi 
-cicParser3.cmi: cic.cmo uriManager.cmi 
-cic.cmo: uriManager.cmi 
-cic.cmx: uriManager.cmx 
-getter.cmo: configuration.cmo uriManager.cmi getter.cmi 
-getter.cmx: configuration.cmx uriManager.cmx getter.cmi 
-getter.cmi: uriManager.cmi 
-cicReduction.cmo: cic.cmo cicCache.cmi cicPp.cmi cicSubstitution.cmi \
-    uriManager.cmi cicReduction.cmi 
-cicReduction.cmx: cic.cmx cicCache.cmx cicPp.cmx cicSubstitution.cmx \
-    uriManager.cmx cicReduction.cmi 
-cicReduction.cmi: cic.cmo 
-cicTypeChecker.cmo: cic.cmo cicCache.cmi cicPp.cmi cicReduction.cmi \
-    cicSubstitution.cmi uriManager.cmi cicTypeChecker.cmi 
-cicTypeChecker.cmx: cic.cmx cicCache.cmx cicPp.cmx cicReduction.cmx \
-    cicSubstitution.cmx uriManager.cmx cicTypeChecker.cmi 
-cicTypeChecker.cmi: uriManager.cmi 
-reduction.cmo: cic.cmo cicCache.cmi cicPp.cmi cicReduction.cmi \
-    cicTypeChecker.cmi configuration.cmo getter.cmi uriManager.cmi 
-reduction.cmx: cic.cmx cicCache.cmx cicPp.cmx cicReduction.cmx \
-    cicTypeChecker.cmx configuration.cmx getter.cmx uriManager.cmx 
-theoryParser.cmo: pxpUriResolver.cmo theoryParser2.cmo 
-theoryParser.cmx: pxpUriResolver.cmx theoryParser2.cmx 
-theoryParser2.cmo: theory.cmo 
-theoryParser2.cmx: theory.cmx 
-theoryTypeChecker.cmo: cicCache.cmi cicTypeChecker.cmi theory.cmo \
-    theoryCache.cmo uriManager.cmi 
-theoryTypeChecker.cmx: cicCache.cmx cicTypeChecker.cmx theory.cmx \
-    theoryCache.cmx uriManager.cmx 
-cicCooking.cmo: cic.cmo cicCache.cmi uriManager.cmi cicCooking.cmi 
-cicCooking.cmx: cic.cmx cicCache.cmx uriManager.cmx cicCooking.cmi 
-cicCooking.cmi: cic.cmo uriManager.cmi 
-cicFindParameters.cmo: cic.cmo cic2Xml.cmo cicCache.cmi configuration.cmo \
-    uriManager.cmi xml.cmi 
-cicFindParameters.cmx: cic.cmx cic2Xml.cmx cicCache.cmx configuration.cmx \
-    uriManager.cmx xml.cmx 
-theoryCache.cmo: getter.cmi theoryParser.cmo 
-theoryCache.cmx: getter.cmx theoryParser.cmx 
-fix_params.cmo: cicFindParameters.cmo configuration.cmo deannotate.cmo \
-    getter.cmi uriManager.cmi 
-fix_params.cmx: cicFindParameters.cmx configuration.cmx deannotate.cmx \
-    getter.cmx uriManager.cmx 
-cic2Xml.cmo: cic.cmo uriManager.cmi xml.cmi 
-cic2Xml.cmx: cic.cmx uriManager.cmx xml.cmx 
-xml.cmo: xml.cmi 
-xml.cmx: xml.cmi 
-uriManager.cmo: uriManager.cmi 
-uriManager.cmx: uriManager.cmi 
-cicSubstitution.cmo: cic.cmo cicSubstitution.cmi 
-cicSubstitution.cmx: cic.cmx cicSubstitution.cmi 
-cicSubstitution.cmi: cic.cmo uriManager.cmi 
-mmlinterface.cmo: annotation2Xml.cmo cicAnnotationHinter.cmo cicCache.cmi \
-    cicTypeChecker.cmi cicXPath.cmo configuration.cmo getter.cmi \
-    theoryTypeChecker.cmo uriManager.cmi xml.cmi xsltProcessor.cmo 
-mmlinterface.cmx: annotation2Xml.cmx cicAnnotationHinter.cmx cicCache.cmx \
-    cicTypeChecker.cmx cicXPath.cmx configuration.cmx getter.cmx \
-    theoryTypeChecker.cmx uriManager.cmx xml.cmx xsltProcessor.cmx 
-xsltProcessor.cmo: configuration.cmo uriManager.cmi 
-xsltProcessor.cmx: configuration.cmx uriManager.cmx 
-deannotate.cmo: cic.cmo 
-deannotate.cmx: cic.cmx 
-cicXPath.cmo: cic.cmo 
-cicXPath.cmx: cic.cmx 
-pxpUriResolver.cmo: configuration.cmo 
-pxpUriResolver.cmx: configuration.cmx 
-annotationParser.cmo: annotationParser2.cmo pxpUriResolver.cmo 
-annotationParser.cmx: annotationParser2.cmx pxpUriResolver.cmx 
-annotationParser2.cmo: cic.cmo 
-annotationParser2.cmx: cic.cmx 
-annotation2Xml.cmo: cic.cmo uriManager.cmi xml.cmi 
-annotation2Xml.cmx: cic.cmx uriManager.cmx xml.cmx 
-cicAnnotationHinter.cmo: cic.cmo 
-cicAnnotationHinter.cmx: cic.cmx 

diff --git a/helm/interface/AUTHORS b/helm/interface/AUTHORS
deleted file mode 100644 (file)
index 153b3df..0000000
--- a/helm/interface/AUTHORS
+++ /dev/null
@@ -1,3 +0,0 @@
-Andrea Asperti <asperti@cs.unibo.it>
-Luca Padovani <lpadovan@cs.unibo.it>
-Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>

diff --git a/helm/interface/COPYING b/helm/interface/COPYING
deleted file mode 100644 (file)
index d60c31a..0000000
--- a/helm/interface/COPYING
+++ /dev/null
@@ -1,340 +0,0 @@
-                   GNU GENERAL PUBLIC LICENSE
-                      Version 2, June 1991
-
- Copyright (C) 1989, 1991 Free Software Foundation, Inc.
-     59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-                           Preamble
-
-  The licenses for most software are designed to take away your
-freedom to share and change it.  By contrast, the GNU General Public
-License is intended to guarantee your freedom to share and change free
-software--to make sure the software is free for all its users.  This
-General Public License applies to most of the Free Software
-Foundation's software and to any other program whose authors commit to
-using it.  (Some other Free Software Foundation software is covered by
-the GNU Library General Public License instead.)  You can apply it to
-your programs, too.
-
-  When we speak of free software, we are referring to freedom, not
-price.  Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-this service if you wish), that you receive source code or can get it
-if you want it, that you can change the software or use pieces of it
-in new free programs; and that you know you can do these things.
-
-  To protect your rights, we need to make restrictions that forbid
-anyone to deny you these rights or to ask you to surrender the rights.
-These restrictions translate to certain responsibilities for you if you
-distribute copies of the software, or if you modify it.
-
-  For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must give the recipients all the rights that
-you have.  You must make sure that they, too, receive or can get the
-source code.  And you must show them these terms so they know their
-rights.
-
-  We protect your rights with two steps: (1) copyright the software, and
-(2) offer you this license which gives you legal permission to copy,
-distribute and/or modify the software.
-
-  Also, for each author's protection and ours, we want to make certain
-that everyone understands that there is no warranty for this free
-software.  If the software is modified by someone else and passed on, we
-want its recipients to know that what they have is not the original, so
-that any problems introduced by others will not reflect on the original
-authors' reputations.
-
-  Finally, any free program is threatened constantly by software
-patents.  We wish to avoid the danger that redistributors of a free
-program will individually obtain patent licenses, in effect making the
-program proprietary.  To prevent this, we have made it clear that any
-patent must be licensed for everyone's free use or not licensed at all.
-
-  The precise terms and conditions for copying, distribution and
-modification follow.
-\f
-                   GNU GENERAL PUBLIC LICENSE
-   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
-  0. This License applies to any program or other work which contains
-a notice placed by the copyright holder saying it may be distributed
-under the terms of this General Public License.  The "Program", below,
-refers to any such program or work, and a "work based on the Program"
-means either the Program or any derivative work under copyright law:
-that is to say, a work containing the Program or a portion of it,
-either verbatim or with modifications and/or translated into another
-language.  (Hereinafter, translation is included without limitation in
-the term "modification".)  Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not
-covered by this License; they are outside its scope.  The act of
-running the Program is not restricted, and the output from the Program
-is covered only if its contents constitute a work based on the
-Program (independent of having been made by running the Program).
-Whether that is true depends on what the Program does.
-
-  1. You may copy and distribute verbatim copies of the Program's
-source code as you receive it, in any medium, provided that you
-conspicuously and appropriately publish on each copy an appropriate
-copyright notice and disclaimer of warranty; keep intact all the
-notices that refer to this License and to the absence of any warranty;
-and give any other recipients of the Program a copy of this License
-along with the Program.
-
-You may charge a fee for the physical act of transferring a copy, and
-you may at your option offer warranty protection in exchange for a fee.
-
-  2. You may modify your copy or copies of the Program or any portion
-of it, thus forming a work based on the Program, and copy and
-distribute such modifications or work under the terms of Section 1
-above, provided that you also meet all of these conditions:
-
-    a) You must cause the modified files to carry prominent notices
-    stating that you changed the files and the date of any change.
-
-    b) You must cause any work that you distribute or publish, that in
-    whole or in part contains or is derived from the Program or any
-    part thereof, to be licensed as a whole at no charge to all third
-    parties under the terms of this License.
-
-    c) If the modified program normally reads commands interactively
-    when run, you must cause it, when started running for such
-    interactive use in the most ordinary way, to print or display an
-    announcement including an appropriate copyright notice and a
-    notice that there is no warranty (or else, saying that you provide
-    a warranty) and that users may redistribute the program under
-    these conditions, and telling the user how to view a copy of this
-    License.  (Exception: if the Program itself is interactive but
-    does not normally print such an announcement, your work based on
-    the Program is not required to print an announcement.)
-\f
-These requirements apply to the modified work as a whole.  If
-identifiable sections of that work are not derived from the Program,
-and can be reasonably considered independent and separate works in
-themselves, then this License, and its terms, do not apply to those
-sections when you distribute them as separate works.  But when you
-distribute the same sections as part of a whole which is a work based
-on the Program, the distribution of the whole must be on the terms of
-this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest
-your rights to work written entirely by you; rather, the intent is to
-exercise the right to control the distribution of derivative or
-collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program
-with the Program (or with a work based on the Program) on a volume of
-a storage or distribution medium does not bring the other work under
-the scope of this License.
-
-  3. You may copy and distribute the Program (or a work based on it,
-under Section 2) in object code or executable form under the terms of
-Sections 1 and 2 above provided that you also do one of the following:
-
-    a) Accompany it with the complete corresponding machine-readable
-    source code, which must be distributed under the terms of Sections
-    1 and 2 above on a medium customarily used for software interchange; or,
-
-    b) Accompany it with a written offer, valid for at least three
-    years, to give any third party, for a charge no more than your
-    cost of physically performing source distribution, a complete
-    machine-readable copy of the corresponding source code, to be
-    distributed under the terms of Sections 1 and 2 above on a medium
-    customarily used for software interchange; or,
-
-    c) Accompany it with the information you received as to the offer
-    to distribute corresponding source code.  (This alternative is
-    allowed only for noncommercial distribution and only if you
-    received the program in object code or executable form with such
-    an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for
-making modifications to it.  For an executable work, complete source
-code means all the source code for all modules it contains, plus any
-associated interface definition files, plus the scripts used to
-control compilation and installation of the executable.  However, as a
-special exception, the source code distributed need not include
-anything that is normally distributed (in either source or binary
-form) with the major components (compiler, kernel, and so on) of the
-operating system on which the executable runs, unless that component
-itself accompanies the executable.
-
-If distribution of executable or object code is made by offering
-access to copy from a designated place, then offering equivalent
-access to copy the source code from the same place counts as
-distribution of the source code, even though third parties are not
-compelled to copy the source along with the object code.
-\f
-  4. You may not copy, modify, sublicense, or distribute the Program
-except as expressly provided under this License.  Any attempt
-otherwise to copy, modify, sublicense or distribute the Program is
-void, and will automatically terminate your rights under this License.
-However, parties who have received copies, or rights, from you under
-this License will not have their licenses terminated so long as such
-parties remain in full compliance.
-
-  5. You are not required to accept this License, since you have not
-signed it.  However, nothing else grants you permission to modify or
-distribute the Program or its derivative works.  These actions are
-prohibited by law if you do not accept this License.  Therefore, by
-modifying or distributing the Program (or any work based on the
-Program), you indicate your acceptance of this License to do so, and
-all its terms and conditions for copying, distributing or modifying
-the Program or works based on it.
-
-  6. Each time you redistribute the Program (or any work based on the
-Program), the recipient automatically receives a license from the
-original licensor to copy, distribute or modify the Program subject to
-these terms and conditions.  You may not impose any further
-restrictions on the recipients' exercise of the rights granted herein.
-You are not responsible for enforcing compliance by third parties to
-this License.
-
-  7. If, as a consequence of a court judgment or allegation of patent
-infringement or for any other reason (not limited to patent issues),
-conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License.  If you cannot
-distribute so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you
-may not distribute the Program at all.  For example, if a patent
-license would not permit royalty-free redistribution of the Program by
-all those who receive copies directly or indirectly through you, then
-the only way you could satisfy both it and this License would be to
-refrain entirely from distribution of the Program.
-
-If any portion of this section is held invalid or unenforceable under
-any particular circumstance, the balance of the section is intended to
-apply and the section as a whole is intended to apply in other
-circumstances.
-
-It is not the purpose of this section to induce you to infringe any
-patents or other property right claims or to contest validity of any
-such claims; this section has the sole purpose of protecting the
-integrity of the free software distribution system, which is
-implemented by public license practices.  Many people have made
-generous contributions to the wide range of software distributed
-through that system in reliance on consistent application of that
-system; it is up to the author/donor to decide if he or she is willing
-to distribute software through any other system and a licensee cannot
-impose that choice.
-
-This section is intended to make thoroughly clear what is believed to
-be a consequence of the rest of this License.
-\f
-  8. If the distribution and/or use of the Program is restricted in
-certain countries either by patents or by copyrighted interfaces, the
-original copyright holder who places the Program under this License
-may add an explicit geographical distribution limitation excluding
-those countries, so that distribution is permitted only in or among
-countries not thus excluded.  In such case, this License incorporates
-the limitation as if written in the body of this License.
-
-  9. The Free Software Foundation may publish revised and/or new versions
-of the General Public License from time to time.  Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
-Each version is given a distinguishing version number.  If the Program
-specifies a version number of this License which applies to it and "any
-later version", you have the option of following the terms and conditions
-either of that version or of any later version published by the Free
-Software Foundation.  If the Program does not specify a version number of
-this License, you may choose any version ever published by the Free Software
-Foundation.
-
-  10. If you wish to incorporate parts of the Program into other free
-programs whose distribution conditions are different, write to the author
-to ask for permission.  For software which is copyrighted by the Free
-Software Foundation, write to the Free Software Foundation; we sometimes
-make exceptions for this.  Our decision will be guided by the two goals
-of preserving the free status of all derivatives of our free software and
-of promoting the sharing and reuse of software generally.
-
-                           NO WARRANTY
-
-  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
-OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
-TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
-PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
-REPAIR OR CORRECTION.
-
-  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
-INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
-OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
-TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
-YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
-PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGES.
-
-                    END OF TERMS AND CONDITIONS
-\f
-           How to Apply These Terms to Your New Programs
-
-  If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
-  To do so, attach the following notices to the program.  It is safest
-to attach them to the start of each source file to most effectively
-convey the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
-    <one line to give the program's name and a brief idea of what it does.>
-    Copyright (C) <year>  <name of author>
-
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-
-
-Also add information on how to contact you by electronic and paper mail.
-
-If the program is interactive, make it output a short notice like this
-when it starts in an interactive mode:
-
-    Gnomovision version 69, Copyright (C) year  name of author
-    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
-    This is free software, and you are welcome to redistribute it
-    under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License.  Of course, the commands you use may
-be called something other than `show w' and `show c'; they could even be
-mouse-clicks or menu items--whatever suits your program.
-
-You should also get your employer (if you work as a programmer) or your
-school, if any, to sign a "copyright disclaimer" for the program, if
-necessary.  Here is a sample; alter the names:
-
-  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
-  `Gnomovision' (which makes passes at compilers) written by James Hacker.
-
-  <signature of Ty Coon>, 1 April 1989
-  Ty Coon, President of Vice
-
-This General Public License does not permit incorporating your program into
-proprietary programs.  If your program is a subroutine library, you may
-consider it more useful to permit linking proprietary applications with the
-library.  If this is what you want to do, use the GNU Library General
-Public License instead of this License.

diff --git a/helm/interface/ChangeLog b/helm/interface/ChangeLog
deleted file mode 100644 (file)
index 20c36b4..0000000
--- a/helm/interface/ChangeLog
+++ /dev/null
@@ -1 +0,0 @@
-28/12/2000: First alpha release

diff --git a/helm/interface/Makefile.in b/helm/interface/Makefile.in
deleted file mode 100644 (file)
index 1fe1570..0000000
--- a/helm/interface/Makefile.in
+++ /dev/null
@@ -1,204 +0,0 @@
-OCAML_ROOT = @OCAML_ROOT@
-BIN_DIR = @BIN_DIR@
-LABLGTK_DIR = @LABLGTK_LIB_DIR@
-LABLGTKMATHVIEW_DIR = @LABLGTKMATHVIEW_LIB_DIR@
-MINIDOM_DIR = @MLMINIDOM_LIB_DIR@
-
-PXP_DIR = $(OCAML_ROOT)/site-lib/pxp
-NETSTRING_DIR = $(OCAML_ROOT)/site-lib/netstring
-XSTR_DIR = $(OCAML_ROOT)/site-lib/xstr
-NETCLIENT_DIR = $(OCAML_ROOT)/site-lib/netclient
-
-#OCAMLC = ocamlc -I $(LABLGTK_DIR) -I $(LABLGTKMATHVIEW_DIR) -I $(PXP_DIR) -I $(NETSTRING_DIR) -I $(MINIDOM_DIR) -I mlmathview
-#OCAMLOPT = ocamlopt -I $(LABLGTK_DIR) -I $(LABLGTKMATHVIEW_DIR) -I mlgtk_devel -I $(PXP_DIR) -I $(NETSTRING_DIR) -I $(MINIDOM_DIR) -I mlmathview
-OCAMLC = ocamlc -I $(LABLGTK_DIR) -I $(LABLGTKMATHVIEW_DIR) -I $(PXP_DIR) -I $(NETSTRING_DIR) -I $(MINIDOM_DIR) -I $(XSTR_DIR) -I $(NETCLIENT_DIR)
-OCAMLOPT = ocamlopt -I $(LABLGTK_DIR) -I $(LABLGTKMATHVIEW_DIR) -I $(PXP_DIR) -I $(NETSTRING_DIR) -I $(MINIDOM_DIR) -I $(XSTR_DIR) -I $(NETCLIENT_DIR)
-OCAMLDEP = ocamldep
-
-all: experiment reduction fix_params mmlinterface
-opt: experiment.opt reduction.opt fix_params.opt mmlinterface.opt
-
-PXPLIBS = netstring.cma netmappings_iso.cmo netmappings_other.cmo \
-          pxp_types.cma \
-          pxp_lex_iso88591.cma pxp_lex_utf8.cma pxp_engine.cma \
-          pxp_utf8.cmo
-
-PXPLIBSOPT = netstring.cmxa netmappings_iso.cmx netmappings_other.cmx \
-             pxp_types.cmxa \
-             pxp_lex_iso88591.cmxa pxp_lex_utf8.cmxa pxp_engine.cmxa \
-             pxp_utf8.cmx
-
-XSTRLIBS = xstr.cma
-
-XSTRLIBSOPT = xstr.cmxa
-
-NETCLIENTLIBS = netclient.cma
-
-NETCLIENTLIBSOPT = netclient.cmxa
-
-DEPOBJS = experiment.ml cicCache.ml cicCache.mli cicPp.ml cicPp.mli \
-          cicParser.ml cicParser.mli cicParser2.ml cicParser2.mli \
-          cicParser3.ml cicParser3.mli cic.ml clientHTTP.ml getter.ml getter.mli \
-          gtkInterface.ml cicReduction.ml cicReduction.mli cicTypeChecker.ml \
-          cicTypeChecker.mli reduction.ml tgtkInterface.ml theory.ml \
-          theoryParser.ml theoryParser2.ml theoryPp.ml theoryTypeChecker.ml \
-          cicCooking.ml cicCooking.mli cicFindParameters.ml theoryCache.ml \
-          fix_params.ml cic2Xml.ml xml.ml uriManager.ml uriManager.mli \
-          cicSubstitution.ml cicSubstitution.mli \
-          mmlinterface.ml configuration.ml styleConfiguration.ml \
-          xsltProcessorHTTP.ml xsltProcessor.ml deannotate.ml cicXPath.ml pxpUriResolver.ml \
-          annotationParser.ml annotationParser2.ml annotation2Xml.ml \
-          cicAnnotationHinter.ml
-
-MMLINTERFACEOBJS = configuration.cmo uriManager.cmo clientHTTP.cmo getter.cmo cic.cmo \
-                   pxpUriResolver.cmo styleConfiguration.cmo \
-                   cicParser3.cmo cicParser2.cmo cicParser.cmo deannotate.cmo \
-                   cicSubstitution.cmo annotationParser2.cmo \
-                   annotationParser.cmo cicCache.cmo cicCooking.cmo cicPp.cmo \
-                   cicReduction.cmo cicTypeChecker.cmo \
-                   xml.cmo \
-                   xsltProcessorHTTP.cmo xsltProcessor.cmo cic2Xml.cmo annotation2Xml.cmo \
-                   cicXPath.cmo theory.cmo theoryParser2.cmo theoryParser.cmo \
-                   theoryCache.cmo theoryTypeChecker.cmo \
-                   cicAnnotationHinter.cmo mmlinterface.cmo
-
-MMLINTERFACEOPTOBJS = configuration.cmx uriManager.cmx clientHTTP.cmx getter.cmx cic.cmx \
-                      pxpUriResolver.cmx styleConfiguration.cmx \
-                      cicParser3.cmx cicParser2.cmx cicParser.cmx \
-                      deannotate.cmx cicSubstitution.cmx annotationParser2.cmx \
-                      annotationParser.cmx cicCache.cmx \
-                      cicCooking.cmx cicPp.cmx cicReduction.cmx \
-                      cicTypeChecker.cmx \
-                      xml.cmx xsltProcessorHTTP.cmx xsltProcessor.cmx \
-                      cic2Xml.cmx annotation2Xml.cmx cicXPath.cmx \
-                      theory.cmx theoryParser2.cmx theoryParser.cmx \
-                      theoryCache.cmx theoryTypeChecker.cmx \
-                      cicAnnotationHinter.cmx mmlinterface.cmx
-
-FIX_PARAMSOBJS = configuration.cmo uriManager.cmo clientHTTP.cmo getter.cmo cic.cmo \
-                 pxpUriResolver.cmo styleConfiguration.cmo \
-                 cicParser3.cmo cicParser2.cmo cicParser.cmo deannotate.cmo \
-                 cicSubstitution.cmo annotationParser2.cmo \
-                 annotationParser.cmo  cicCache.cmo cicPp.cmo xml.cmo \
-                 cic2Xml.cmo cicFindParameters.cmo fix_params.cmo
-
-FIX_PARAMSOPTOBJS = configuration.cmx uriManager.cmx clientHTTP.cmx getter.cmx cic.cmx \
-                    pxpUriResolver.cmx styleConfiguration.cmx \
-                    cicParser3.cmx cicParser2.cmx cicParser.cmx deannotate.cmx \
-                    cicSubstitution.cmx annotationParser2.cmx \
-                    annotationParser.cmx cicCache.cmx cicPp.cmx xml.cmx \
-                    cic2Xml.cmx cicFindParameters.cmx fix_params.cmx
-
-REDUCTIONOBJS = configuration.cmo uriManager.cmo clientHTTP.cmo getter.cmo cic.cmo \
-                pxpUriResolver.cmo styleConfiguration.cmo \
-                cicParser3.cmo cicParser2.cmo cicParser.cmo deannotate.cmo \
-                cicSubstitution.cmo annotationParser2.cmo annotationParser.cmo \
-                cicCache.cmo cicPp.cmo cicCooking.cmo \
-                cicReduction.cmo cicTypeChecker.cmo reduction.cmo
-
-REDUCTIONOPTOBJS = configuration.cmx uriManager.cmx clientHTTP.cmx getter.cmx cic.cmx \
-                   pxpUriResolver.cmx styleConfiguration.cmx \
-                   cicParser3.cmx cicParser2.cmx cicParser.cmx deannotate.cmx \
-                   cicSubstitution.cmx annotationParser2.cmx \
-                   annotationParser.cmx cicCache.cmx cicPp.cmx cicCooking.cmx \
-                   cicReduction.cmx cicTypeChecker.cmx reduction.cmx
-
-EXPERIMENTOBJS = configuration.cmo uriManager.cmo clientHTTP.cmo getter.cmo cic.cmo \
-                 pxpUriResolver.cmo styleConfiguration.cmo \
-                 cicParser3.cmo cicParser2.cmo cicParser.cmo deannotate.cmo \
-                 cicSubstitution.cmo annotationParser2.cmo \
-                 annotationParser.cmo cicCache.cmo cicPp.cmo experiment.cmo
-
-EXPERIMENTOPTOBJS = configuration.cmx uriManager.cmx clientHTTP.cmx getter.cmx cic.cmx \
-                    pxpUriResolver.cmx styleConfiguration.cmx \
-                    cicParser3.cmx cicParser2.cmx cicParser.cmx deannotate.cmx \
-                    cicSubstitution.cmx annotationParser2.cmx \
-                    annotationParser.cmx cicCache.cmx cicPp.cmx experiment.cmx
-
-depend:
-       $(OCAMLDEP) $(DEPOBJS) > .depend
-
-mmlinterface: $(MMLINTERFACEOBJS)
-       $(OCAMLC) -custom -o mmlinterface str.cma unix.cma $(PXPLIBS) $(XSTRLIBS) $(NETCLIENTLIBS) dbm.cma \
-                  lablgtk.cma gtkInit.cmo \
-                  $(MINIDOM_DIR)/minidom.cmo \
-                  $(MINIDOM_DIR)/ominidom.cmo \
-                  $(LABLGTKMATHVIEW_DIR)/lablgtkmathview.cma \
-                  $(MMLINTERFACEOBJS) \
-                  -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
-                  -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
-                  -lunix `gtkmathview-config --libs` \
-                  $(LABLGTKMATHVIEW_DIR)/ml_gtk_mathview.o \
-                  $(MINIDOM_DIR)/ml_minidom.o" \
-                  -cclib -lmldbm -cclib -lndbm
-
-mmlinterface.opt: $(MMLINTERFACEOPTOBJS)
-       $(OCAMLOPT) -o mmlinterface.opt str.cmxa unix.cmxa $(PXPLIBSOPT) $(XSTRLIBSOPT) $(NETCLIENTLIBSOPT) unix.cmxa \
-                    dbm.cmxa lablgtk.cmxa gtkInit.cmx \
-                    $(MINIDOM_DIR)/minidom.cmx \
-                    $(MINIDOM_DIR)/ominidom.cmx \
-                    $(LABLGTKMATHVIEW_DIR)/lablgtkmathview.cmxa \
-                    $(MMLINTERFACEOPTOBJS) \
-                    -cclib "-lstr -L/usr/lib -L/usr/X11R6/lib -lgtk -lgdk \
-                    -rdynamic -lgmodule -lglib -ldl -lXi -lXext -lX11 -lm \
-                    -lunix `gtkmathview-config --libs` \
-                    $(LABLGTKMATHVIEW_DIR)/ml_gtk_mathview.o \
-                    $(MINIDOM_DIR)/ml_minidom.o" \
-                    -cclib -lmldbm -cclib -lndbm
-
-fix_params: $(FIX_PARAMSOBJS)
-       $(OCAMLC) -custom -o fix_params str.cma unix.cma $(PXPLIBS) $(XSTRLIBS) $(NETCLIENTLIBS) dbm.cma \
-                  $(FIX_PARAMSOBJS) -cclib -lstr -cclib -lmldbm -cclib -lndbm
-
-fix_params.opt: $(FIX_PARAMSOPTOBJS)
-       $(OCAMLOPT) -o fix_params.opt str.cmxa unix.cmxa $(PXPLIBSOPT) $(XSTRLIBSOPT) $(NETCLIENTLIBSOPT) dbm.cmxa \
-                    $(FIX_PARAMSOPTOBJS) -cclib -lstr -cclib -lmldbm \
-                    -cclib -lndbm
-
-reduction: $(REDUCTIONOBJS)
-       $(OCAMLC) -custom -o reduction str.cma unix.cma $(PXPLIBS) $(XSTRLIBS) $(NETCLIENTLIBS) dbm.cma \
-                  $(REDUCTIONOBJS) -cclib -lstr -cclib -lmldbm -cclib -lndbm
-
-reduction.opt: $(REDUCTIONOPTOBJS)
-       $(OCAMLOPT) -o reduction.opt str.cmxa unix.cmxa $(PXPLIBSOPT) $(XSTRLIBSOPT) $(NETCLIENTLIBSOPT) dbm.cmxa \
-                    $(REDUCTIONOPTOBJS) -cclib -lstr -cclib -lmldbm \
-                    -cclib -lndbm
-
-experiment: $(EXPERIMENTOBJS)
-       $(OCAMLC) -custom -o experiment str.cma unix.cma $(PXPLIBS) $(XSTRLIBS) $(NETCLIENTLIBS) dbm.cma \
-                  $(EXPERIMENTOBJS) -cclib -lstr -cclib -lmldbm -cclib -lndbm
-
-experiment.opt: $(EXPERIMENTOPTOBJS)
-       $(OCAMLOPT) -o experiment.opt str.cmxa unix.cmxa $(PXPLIBSOPT) $(XSTRLIBSOPT) $(NETCLIENTLIBSOPT) dbm.cmxa \
-                    $(EXPERIMENTOPTOBJS) -cclib -lstr -cclib -lmldbm \
-                    -cclib -lndbm
-
-.SUFFIXES: .ml .mli .cmo .cmi .cmx
-.ml.cmo:
-       $(OCAMLC) -c $<
-.mli.cmi:
-       $(OCAMLC) -c $<
-.ml.cmx:
-       $(OCAMLOPT) -c $<
-
-clean:
-       rm -f *.cm[iox] *.o experiment experiment.opt reduction \
-           reduction.opt fix_params fix_params.opt mmlinterface \
-           mmlinterface.opt mmlinterface2 mmlinterface2.opt
-
-install:
-       cp mmlinterface mmlinterface.opt helm_wget $(BIN_DIR)
-
-distclean: clean
-       rm -f Makefile configuration.ml helm_wget configure config.log \
-         config.cache config.status
-
-dist:   clean
-       rm -rf ../@PACKAGE@-@VERSION@
-       mkdir ../@PACKAGE@-@VERSION@
-       cp -r * .depend ../@PACKAGE@-@VERSION@
-       (cd .. ; tar cvfz @PACKAGE@-@VERSION@.tar.gz @PACKAGE@-@VERSION@ ; rm -rf @PACKAGE@-@VERSION@)
-
-.PHONY: install distclean clean
-
-include .depend

diff --git a/helm/interface/NEWS b/helm/interface/NEWS
deleted file mode 100644 (file)
index 20c36b4..0000000
--- a/helm/interface/NEWS
+++ /dev/null
@@ -1 +0,0 @@
-28/12/2000: First alpha release

diff --git a/helm/interface/README b/helm/interface/README
deleted file mode 100644 (file)
index 63d2c2a..0000000
--- a/helm/interface/README
+++ /dev/null
@@ -1,8 +0,0 @@
-NOTE: This is the first alpha release of project HELM.
-
-HELM (Hypertextual Electronic Library of Mathematics) is a project aimed
-at the creation of tools for the development and exploitation of a huge
-distributed library of formal mathematical knowledge. This package holds
-a gtk interface to the library.
-
-For more information see http://www.cs.unibo.it/helm

diff --git a/helm/interface/TEMPI b/helm/interface/TEMPI
deleted file mode 100644 (file)
index dc2bc85..0000000
--- a/helm/interface/TEMPI
+++ /dev/null
@@ -1,214 +0,0 @@
-prima di UriManager.ml:
-
- [ABCI]* (terza passata, uguale alla seconda):
-
-   real        0m50.266s
-   user        0m44.160s
-   sys 0m0.700s
-
-dopo UriManager.ml, ma prima di passare da = a ==:
-
- [ABCI]* (terza passata, uguale alla seconda):
-
-   real        0m51.388s
-   user        0m45.430s
-   sys 0m0.530s
-
-dopo UriManager.ml e popo il passaggio (parziale?) da = a ==:
-
- [ABCI]* (terza passata, uguale alla seconda):
-
-   real        0m50.767s
-   user        0m44.750s
-   sys 0m0.510s
-
-dopo il passaggio alla cache che usa ancora =:
-
- [ABCI]* (terza passata, uguale alla seconda):
-
-   real        0m50.646s
-   user        0m44.680s
-   sys 0m0.530s
-
-dopo il passaggio alla cache con utilizzo di ==:
-
- [ABCI]* (terza passata, uguale alla seconda):
-
-   real        0m50.861s
-   user        0m45.030s
-   sys 0m0.500s
-
-con funzione di hashing costante ;-(
-
- [ABCI]* (terza passata, uguale alla seconda):
-
-   real        0m51.442s
-   user        0m45.440s
-   sys 0m0.530s
-
-con implementazione isomorfa all'albero delle uri:
-
- [ABCI]* (terza passata, uguale alla seconda):
-
-   real        0m54.081s
-   user        0m47.590s
-   sys 0m0.780s
-
-con implementazione con doppio RB-albero:
-
- [ABCI]* (terza passata, uguale alla seconda):
-
-   real        0m52.504s
-   user        0m46.120s
-   sys 0m0.720s
-
-con implementazione semplice, gestite anche le uri delle var:
-
- [ABCI]* (terza passata, uguale alla seconda):
-
-   real        0m51.850s
-   user        0m46.060s
-   sys 0m0.530s
-
-con implementazione con doppio RB-albero, gestite anche le uri delle var:
-
- [ABCI]* (terza passata, uguale alla seconda):
-
-   real        0m51.495s
-   user        0m45.660s
-   sys 0m0.540s
-
-=========================================================
-
-con implementazione con doppio RB-albero, gestite anche le uri delle var
-e spostata nell'uri-manager is_prefix:
-
- [ABCI]* (terza passata, uguale alla seconda):
-
-   real        0m50.465s
-   user        0m45.710s
-   sys 0m0.590s
-
-con implementazione semplice (e tutto il resto):
-
- [ABCI]* (terza passata, uguale alla seconda):
-
-   real        0m49.710s
-   user        0m43.850s
-   sys 0m0.500s
-
-con implementazione banale (e tutto il resto):
-
- [ABCI]* (terza passata, uguale alla seconda):
-
-   real        0m49.289s
-   user        0m44.840s
-   sys 0m0.570s
-
-con implementazione banale SOLO PARSING ;-)
-
- [ABCI]* (terza passata, uguale alla seconda):
-
-   real        0m48.395s
-   user        0m42.830s
-   sys 0m0.850s
-
-=========================================================
-
-con implementazione con doppio RB-albero, gestite anche le uri delle var
-e spostata nell'uri-manager is_prefix:
-
- REAL (prima passata, dopo un sync):
-
-   real        10m58.033s
-   user        10m37.690s
-   sys 0m2.570s
-
-con implementazione semplice (e tutto il resto):
-
- REAL (prima passata, dopo un sync):
-
-   real        10m31.035s
-   user        10m9.350s
-   sys 0m3.230s
-
-con implementazione banale (e tutto il resto):
-
- REAL (prima passata, dopo un sync):
-
-   real        11m4.026s
-   user        10m43.930s
-   sys 0m3.070s
-
-=================================================
-
-con implementazione banale, SOLO PARSING di tutto:
-
-   real        6m54.336s
-   user        6m13.850s
-   sys 0m6.580s
-
-con implementazione banale, anche typechecking di tutto:
-
-   real        20m17.739s
-   user        19m14.740s
-   sys 0m8.550s
-
-con implementazione semplice, anche typechecking di tutto:
-
-   real        19m36.079s
-   user        18m36.480s
-   sys 0m7.760s
-
-con implementazione con doppio RB-albero, anche typechecking di tutto:
-
-   real        17m30.423s
-   user        16m30.840s
-   sys 0m6.170s
-
-***************************************************************************
-                         APPLICATA EURISTICA
-***************************************************************************
-
-con implementazione con doppio RB-albero, anche typechecking di tutto
-(universita') ????????:
-
-real    5m37.805s
-user    5m1.640s
-sys     0m5.010s
-
-tutto (ma a casa):
-
-real   7m36.663s
-user   6m52.220s
-sys    0m5.860s
-
-
-solo REAL:
-
-real   2m52.860s
-user   2m41.050s
-sys    0m2.820s
-
-==========================================================================
-
-tutto (ma a casa) dopo eliminazione buri:
-
-real   7m52.773s
-user   6m52.110s
-sys    0m7.130s
-
-"solo parsing" di tutto dopo eliminazione buri:
-
-real   7m8.379s
-user   6m15.250s
-sys    0m6.700s
-
-===========================================================================
-
-TUTTO ALL'UNIVERSITA' CON EURISTICA MA SENZA UNIVERSI:
-
-real    5m47.920s
-user    5m14.600s
-sys     0m5.010s
-

diff --git a/helm/interface/WGET b/helm/interface/WGET
deleted file mode 100644 (file)
index f1cca6c..0000000
--- a/helm/interface/WGET
+++ /dev/null
@@ -1,3 +0,0 @@
--P directory di destinazione
--q no output (quiet mode)
--c continue retrieving (no uri.1, uri.2, ...)

diff --git a/helm/interface/annotation2Xml.ml b/helm/interface/annotation2Xml.ml
deleted file mode 100644 (file)
index b75f2bc..0000000
--- a/helm/interface/annotation2Xml.ml
+++ /dev/null
@@ -1,228 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(*CSC codice cut & paste da cicPp e xmlcommand *)
-
-exception ImpossiblePossible;;
-exception NotImplemented;;
-exception BinderNotSpecified;;
-
-let dtdname = "http://localhost:8081/getdtd?url=annotations.dtd";;
-
-(*CSC ottimizzazione: al posto di curi cdepth (vedi codice) *)
-let print_term =
- let rec aux =
-  let module C = Cic in
-  let module X = Xml in
-  let module U = UriManager in
-    function
-       C.ARel (id,ann,_,_) ->
-        (match !ann with
-            None -> [<>]
-          | Some ann -> (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
-        )
-     | C.AVar (id,ann,_) ->
-        (match !ann with
-            None -> [<>]
-          | Some ann -> (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
-        )
-     | C.AMeta (id,ann,_) ->
-        (match !ann with
-            None -> [<>]
-          | Some ann -> (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
-        )
-     | C.ASort (id,ann,_) ->
-        (match !ann with
-            None -> [<>]
-          | Some ann -> (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
-        )
-     | C.AImplicit _ -> raise NotImplemented
-     | C.AProd (id,ann,_,s,t) ->
-        [< (match !ann with
-               None -> [<>]
-             | Some ann ->
-                (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
-           ) ;
-           aux s ;
-           aux t
-        >]
-     | C.ACast (id,ann,v,t) ->
-        [< (match !ann with
-               None -> [<>]
-             | Some ann ->
-                (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
-           ) ;
-           aux v ;
-           aux t
-        >]
-     | C.ALambda (id,ann,_,s,t) ->
-        [< (match !ann with
-               None -> [<>]
-             | Some ann ->
-                (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
-           ) ;
-           aux s ;
-           aux t
-        >]
-     | C.ALetIn (id,ann,_,s,t) ->
-        [< (match !ann with
-               None -> [<>]
-             | Some ann ->
-                (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
-           ) ;
-           aux s ;
-           aux t
-        >]
-     | C.AAppl (id,ann,li) ->
-        [< (match !ann with
-               None -> [<>]
-             | Some ann ->
-                (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
-           ) ;
-           List.fold_right (fun x i -> [< (aux x) ; i >]) li [<>]
-        >]
-     | C.AConst (id,ann,_,_) ->
-        (match !ann with
-            None -> [<>]
-          | Some ann -> (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
-        )
-     | C.AAbst (id,ann,_) -> raise NotImplemented
-     | C.AMutInd (id,ann,_,_,_) ->
-        (match !ann with
-            None -> [<>]
-          | Some ann -> (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
-        )
-     | C.AMutConstruct (id,ann,_,_,_,_) ->
-        (match !ann with
-            None -> [<>]
-          | Some ann -> (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
-        )
-     | C.AMutCase (id,ann,_,_,_,ty,te,patterns) ->
-        [< (match !ann with
-               None -> [<>]
-             | Some ann ->
-                (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
-           ) ;
-           aux ty ;
-           aux te ;
-           List.fold_right
-            (fun x i -> [< aux x ; i>])
-            patterns [<>]
-        >]
-     | C.AFix (id, ann, _, funs) ->
-        [< (match !ann with
-               None -> [<>]
-             | Some ann ->
-                (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
-           ) ;
-           List.fold_right
-            (fun (_,_,ti,bi) i -> [< aux ti ; aux bi ; i >]) funs [<>]
-        >]
-     | C.ACoFix (id, ann,no,funs) ->
-        [< (match !ann with
-               None -> [<>]
-             | Some ann ->
-                (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
-           ) ;
-           List.fold_right
-            (fun (_,ti,bi) i -> [< aux ti ; aux bi ; i >]) funs [<>]
-        >]
- in
-  aux
-;;
-
-let print_mutual_inductive_type (_,_,arity,constructors) =
- [< print_term arity ;
-    List.fold_right
-     (fun (name,ty,_) i -> [< print_term ty ; i >]) constructors [<>]
- >]
-;;
-
-let target_uri_of_annotation_uri uri =
- Str.replace_first (Str.regexp "\.ann$") "" (UriManager.string_of_uri uri)
-;;
-
-let pp_annotation obj curi =
- let module C = Cic in
- let module X = Xml in
-  [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
-     X.xml_cdata ("<!DOCTYPE Annotations SYSTEM \"" ^ dtdname ^ "\">\n\n") ;
-     X.xml_nempty "Annotations" ["of", target_uri_of_annotation_uri curi]
-      begin
-       match obj with
-         C.ADefinition (xid, ann, _, te, ty, _) ->
-          [< (match !ann with
-                 None -> [<>]
-               | Some ann ->
-                  X.xml_nempty "Annotation" ["of", xid] (X.xml_cdata ann)
-             ) ;
-             print_term te ;
-             print_term ty
-          >]
-       | C.AAxiom (xid, ann, _, ty, _) ->
-          [< (match !ann with
-                 None -> [<>]
-               | Some ann ->
-                  X.xml_nempty "Annotation" ["of", xid] (X.xml_cdata ann)
-             ) ;
-             print_term ty
-          >]
-       | C.AVariable (xid, ann, _, bo, ty) ->
-          [< (match !ann with
-                 None -> [<>]
-               | Some ann ->
-                  X.xml_nempty "Annotation" ["of", xid] (X.xml_cdata ann)
-             ) ;
-             (match bo with
-                 None -> [<>]
-               | Some bo -> print_term bo
-             ) ;
-             print_term ty
-          >]
-       | C.ACurrentProof (xid, ann, _, conjs, bo, ty) ->
-          [< (match !ann with
-                 None -> [<>]
-               | Some ann ->
-                  X.xml_nempty "Annotation" ["of", xid] (X.xml_cdata ann)
-             ) ;
-             List.fold_right
-              (fun (_,t) i -> [< print_term t ; i >])
-              conjs [<>] ;
-             print_term bo ;
-             print_term ty
-          >]
-       | C.AInductiveDefinition (xid, ann, tys, params, paramsno) ->
-          [< (match !ann with
-                 None -> [<>]
-               | Some ann ->
-                  X.xml_nempty "Annotation" ["of", xid] (X.xml_cdata ann)
-             ) ;
-             List.fold_right
-              (fun x i -> [< print_mutual_inductive_type x ; i >])
-              tys [< >]
-          >]
-      end
-  >]
-;;

diff --git a/helm/interface/annotationParser.ml b/helm/interface/annotationParser.ml
deleted file mode 100644 (file)
index ffd76c9..0000000
--- a/helm/interface/annotationParser.ml
+++ /dev/null
@@ -1,55 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception Warnings;;
-
-class warner =
-  object 
-    method warn w =
-      print_endline ("WARNING: " ^ w) ;
-      (raise Warnings : unit)
-  end
-;;
-
-exception EmptyUri;;
-
-let annotate filename ids_to_targets =
- let module Y = Pxp_yacc in
-  try 
-    let d =
-     let config = {Y.default_config with Y.warner = new warner} in
-      Y.parse_document_entity config
-(*PXP       (Y.ExtID (Pxp_types.System filename,
-         new Pxp_reader.resolve_as_file ~url_of_id ()))
-*)     (PxpUriResolver.from_file filename)
-       Y.default_spec
-
-    in
-     AnnotationParser2.annotate ids_to_targets d#root
-  with
-   e ->
-     print_endline (Pxp_types.string_of_exn e) ;
-     raise e
-;;

diff --git a/helm/interface/annotationParser2.ml b/helm/interface/annotationParser2.ml
deleted file mode 100644 (file)
index 58edc4c..0000000
--- a/helm/interface/annotationParser2.ml
+++ /dev/null
@@ -1,129 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception IllFormedXml of int;;
-
-(* Utility functions that transform a Pxp attribute into something useful *)
-
-let string_of_attr a =
- let module T = Pxp_types in
-  match a with
-     T.Value s -> s
-   | _ -> raise (IllFormedXml 0)
-;;
-
-exception DontKnowWhatToDo;;
-
-let rec string_of_annotations n =
- let module D = Pxp_document in
- let module T = Pxp_types in
-  match n#node_type with
-     D.T_element s ->
-      "<" ^ s ^
-      List.fold_right
-       (fun att i ->
-         match n#attribute att with
-            T.Value s -> " " ^ att ^ "=\"" ^ s ^ "\"" ^ i
-          | T.Implied_value -> i
-          | T.Valuelist l -> " " ^ att ^ "=\"" ^ String.concat " " l ^ "\"" ^ i
-       ) (n#attribute_names) "" ^
-      (match n#sub_nodes with
-          [] -> "/>"
-        | l ->
-           ">" ^
-           String.concat "" (List.map string_of_annotations l) ^
-           "</" ^ s ^ ">"
-      )
-   | D.T_data -> n#data
-   | _ -> raise DontKnowWhatToDo
-;;
-
-let get_annotation n =
- String.concat "" (List.map string_of_annotations (n#sub_nodes))
-;;
-
-let annotate_object ann obj =
- let module C = Cic in
-  let rann =
-   match obj with
-      C.ADefinition (_, rann, _, _, _, _) -> rann
-    | C.AAxiom (_, rann, _, _, _) -> rann
-    | C.AVariable (_, rann, _, _, _) -> rann
-    | C.ACurrentProof (_, rann, _, _, _, _) -> rann
-    | C.AInductiveDefinition (_, rann, _, _, _) -> rann
-  in
-   rann := Some ann
-;;
-
-let annotate_term ann term =
- let module C = Cic in
-  let rann =
-   match term with
-      C.ARel (_, rann, _, _) -> rann
-    | C.AVar (_, rann, _) -> rann
-    | C.AMeta (_, rann, _) -> rann
-    | C.ASort (_, rann, _) -> rann
-    | C.AImplicit (_, rann) -> rann
-    | C.ACast (_, rann, _, _) -> rann
-    | C.AProd (_, rann, _, _, _) -> rann
-    | C.ALambda (_, rann, _, _, _) -> rann
-    | C.ALetIn (_, rann, _, _, _) -> rann
-    | C.AAppl (_, rann, _) -> rann
-    | C.AConst (_, rann, _, _) -> rann
-    | C.AAbst (_, rann, _) -> rann
-    | C.AMutInd (_, rann, _, _, _) -> rann
-    | C.AMutConstruct (_, rann, _, _, _, _) -> rann
-    | C.AMutCase (_, rann, _, _, _, _, _, _) -> rann
-    | C.AFix (_, rann, _, _) -> rann
-    | C.ACoFix (_, rann, _, _) -> rann
-  in
-   rann := Some ann
-;;
-
-let annotate ids_to_targets n =
- let module D = Pxp_document in
- let module C = Cic in
-  let annotate_elem n =
-   let ntype = n # node_type in
-   match ntype with
-     D.T_element "Annotation" ->
-       let of_uri = string_of_attr (n # attribute "of") in
-        begin
-         try
-          match Hashtbl.find ids_to_targets of_uri with
-             C.Object o -> annotate_object (get_annotation n) o
-           | C.Term t -> annotate_term (get_annotation n) t
-         with
-          Not_found -> assert false
-        end
-   | D.T_element _ | D.T_data ->
-      raise (IllFormedXml 1)
-   | _ -> raise DontKnowWhatToDo
-  in
-   match n # node_type with
-      D.T_element "Annotations" ->
-       List.iter annotate_elem (n # sub_nodes)
-    | _ -> raise (IllFormedXml 2)
-;;

diff --git a/helm/interface/cic.ml b/helm/interface/cic.ml
deleted file mode 100644 (file)
index 8c08b00..0000000
--- a/helm/interface/cic.ml
+++ /dev/null
@@ -1,162 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 14/06/2000                                 *)
-(*                                                                            *)
-(* This module defines the internal representation of the objects (variables, *)
-(* blocks of (co)inductive definitions and constants) and the terms of cic    *)
-(*                                                                            *)
-(******************************************************************************)
-
-(* STUFF TO MANAGE IDENTIFIERS *)
-type id = string  (* the abstract type of the (annotated) node identifiers *)
-type anntarget =
-   Object of annobj
- | Term of annterm
-
-(* INTERNAL REPRESENTATION OF CIC OBJECTS AND TERMS *)
-and sort =
-   Prop
- | Set
- | Type
-and name =
-   Name of string
- | Anonimous
-and term =
-   Rel of int                                       (* DeBrujin index *)
- | Var of UriManager.uri                            (* uri *)
- | Meta of int                                      (* numeric id *)
- | Sort of sort                                     (* sort *)
- | Implicit                                         (* *)
- | Cast of term * term                              (* value, type *)
- | Prod of name * term * term                       (* binder, source, target *)
- | Lambda of name * term * term                     (* binder, source, target *)
- | LetIn of name * term * term                      (* binder, term, target *)
- | Appl of term list                                (* arguments *)
- | Const of UriManager.uri * int                    (* uri, number of cookings*)
- | Abst of UriManager.uri                           (* uri *)
- | MutInd of UriManager.uri * int * int             (* uri, cookingsno, typeno*)
- | MutConstruct of UriManager.uri * int *           (* uri, cookingsno, *)
-    int * int                                       (*  typeno, consno  *)
- (*CSC: serve cookingsno?*)
- | MutCase of UriManager.uri * int *                (* ind. uri, cookingsno, *)
-    int *                                           (*  ind. typeno,         *)
-    term * term *                                   (*  outtype, ind. term   *)
-    term list                                       (*  patterns             *)
- | Fix of int * inductiveFun list                   (* funno, functions *)
- | CoFix of int * coInductiveFun list               (* funno, functions *)
-and obj =
-   Definition of string * term * term *           (* id, value, type,         *)
-    (int * UriManager.uri list) list              (*  parameters              *)
- | Axiom of string * term *
-    (int * UriManager.uri list) list              (* id, type, parameters     *)
- | Variable of string * term option * term        (* name, body, type         *)
- | CurrentProof of string * (int * term) list *   (* name, conjectures,       *)
-    term * term                                   (*  value, type             *)
- | InductiveDefinition of inductiveType list *    (* inductive types,         *)
-    (int * UriManager.uri list) list * int        (*  parameters, n ind. pars *)
-and inductiveType = 
- string * bool * term *                       (* typename, inductive, arity *)
-  constructor list                            (*  constructors              *)
-and constructor =
- string * term * bool list option ref         (* id, type, really recursive *)
-and inductiveFun =
- string * int * term * term                   (* name, ind. index, type, body *)
-and coInductiveFun =
- string * term * term                         (* name, type, body *)
-
-and annterm =
-   ARel of id * annotation option ref *
-    int * string option                             (* DeBrujin index, binder *)
- | AVar of id * annotation option ref *             
-    UriManager.uri                                  (* uri *)
- | AMeta of id * annotation option ref * int        (* numeric id *)
- | ASort of id * annotation option ref * sort       (* sort *)
- | AImplicit of id * annotation option ref          (* *)
- | ACast of id * annotation option ref *
-    annterm * annterm                               (* value, type *)
- | AProd of id * annotation option ref *
-    name * annterm * annterm                        (* binder, source, target *)
- | ALambda of id * annotation option ref *
-    name * annterm * annterm                        (* binder, source, target *)
- | ALetIn of id * annotation option ref *
-    name * annterm * annterm                        (* binder, term, target *)
- | AAppl of id * annotation option ref *
-    annterm list                                    (* arguments *)
- | AConst of id * annotation option ref *
-    UriManager.uri * int                            (* uri, number of cookings*)
- | AAbst of id * annotation option ref *
-    UriManager.uri                                  (* uri *)
- | AMutInd of id * annotation option ref *
-    UriManager.uri * int * int                      (* uri, cookingsno, typeno*)
- | AMutConstruct of id * annotation option ref *
-    UriManager.uri * int *                          (* uri, cookingsno, *)
-    int * int                                       (*  typeno, consno  *)
- (*CSC: serve cookingsno?*)
- | AMutCase of id * annotation option ref *
-    UriManager.uri * int *                          (* ind. uri, cookingsno  *)
-    int *                                           (*  ind. typeno,         *)
-    annterm * annterm *                             (*  outtype, ind. term   *)
-    annterm list                                    (*  patterns             *)
- | AFix of id * annotation option ref *
-    int * anninductiveFun list                      (* funno, functions *)
- | ACoFix of id * annotation option ref *
-    int * anncoInductiveFun list                    (* funno, functions *)
-and annobj =
-   ADefinition of id * annotation option ref *
-    string *                                        (* id,           *)
-    annterm * annterm *                             (*  value, type, *)
-    (int * UriManager.uri list) list exactness      (*  parameters   *)
- | AAxiom of id * annotation option ref *
-    string * annterm *                              (* id, type    *)
-    (int * UriManager.uri list) list                (*  parameters *)
- | AVariable of id * annotation option ref *
-    string * annterm option * annterm               (* name, body, type *)
- | ACurrentProof of id * annotation option ref *
-    string * (int * annterm) list *                 (*  name, conjectures, *)
-    annterm * annterm                               (*  value, type        *)
- | AInductiveDefinition of id *
-    annotation option ref * anninductiveType list * (* inductive types ,      *)
-    (int * UriManager.uri list) list * int          (*  parameters,n ind. pars*)
-and anninductiveType = 
- string * bool * annterm *                    (* typename, inductive, arity *)
-  annconstructor list                         (*  constructors              *)
-and annconstructor =
- string * annterm * bool list option ref      (* id, type, really recursive *)
-and anninductiveFun =
- string * int * annterm * annterm             (* name, ind. index, type, body *)
-and anncoInductiveFun =
- string * annterm * annterm                   (* name, type, body *)
-and annotation =
- string
-and 'a exactness =
-   Possible of 'a                            (* an approximation to something *)
- | Actual of 'a                              (* something *)
-;;

diff --git a/helm/interface/cic2Xml.ml b/helm/interface/cic2Xml.ml
deleted file mode 100644 (file)
index 58f35bb..0000000
--- a/helm/interface/cic2Xml.ml
+++ /dev/null
@@ -1,255 +0,0 @@
-
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(*CSC codice cut & paste da cicPp e xmlcommand *)
-
-exception ImpossiblePossible;;
-exception NotImplemented;;
-exception BinderNotSpecified;;
-
-let dtdname = "http://localhost:8081/getdtd?url=cic.dtd";;
-
-(*CSC ottimizzazione: al posto di curi cdepth (vedi codice) *)
-let print_term curi =
- let rec aux =
-  let module C = Cic in
-  let module X = Xml in
-  let module U = UriManager in
-    function
-       C.ARel (id,_,n,Some b) ->
-        X.xml_empty "REL" ["value",(string_of_int n);"binder",b;"id",id]
-     | C.ARel _ -> raise BinderNotSpecified
-     | C.AVar (id,_,uri) ->
-        let vdepth = U.depth_of_uri uri
-        and cdepth = U.depth_of_uri curi in
-         X.xml_empty "VAR"
-          ["relUri",(string_of_int (cdepth - vdepth)) ^ "," ^
-            (U.name_of_uri uri) ;
-           "id",id]
-     | C.AMeta (id,_,n) ->
-        X.xml_empty "META" ["no",(string_of_int n) ; "id",id]
-     | C.ASort (id,_,s) ->
-        let string_of_sort =
-         function
-            C.Prop -> "Prop"
-          | C.Set  -> "Set"
-          | C.Type -> "Type"
-        in
-         X.xml_empty "SORT" ["value",(string_of_sort s) ; "id",id]
-     | C.AImplicit _ -> raise NotImplemented
-     | C.AProd (id,_,C.Anonimous,s,t) ->
-        X.xml_nempty "PROD" ["id",id]
-         [< X.xml_nempty "source" [] (aux s) ;
-            X.xml_nempty "target" [] (aux t)
-         >]
-     | C.AProd (xid,_,C.Name id,s,t) ->
-       X.xml_nempty "PROD" ["id",xid]
-        [< X.xml_nempty "source" [] (aux s) ;
-           X.xml_nempty "target" ["binder",id] (aux t)
-        >]
-     | C.ACast (id,_,v,t) ->
-        X.xml_nempty "CAST" ["id",id]
-         [< X.xml_nempty "term" [] (aux v) ;
-            X.xml_nempty "type" [] (aux t)
-         >]
-     | C.ALambda (id,_,C.Anonimous,s,t) ->
-        X.xml_nempty "LAMBDA" ["id",id]
-         [< X.xml_nempty "source" [] (aux s) ;
-            X.xml_nempty "target" [] (aux t)
-         >]
-     | C.ALambda (xid,_,C.Name id,s,t) ->
-       X.xml_nempty "LAMBDA" ["id",xid]
-        [< X.xml_nempty "source" [] (aux s) ;
-           X.xml_nempty "target" ["binder",id] (aux t)
-        >]
-     | C.ALetIn (xid,_,C.Anonimous,s,t) ->
-       assert false (*CSC: significa che e' sbagliato il tipo di LetIn!!!*)
-     | C.ALetIn (xid,_,C.Name id,s,t) ->
-       X.xml_nempty "LETIN" ["id",xid]
-        [< X.xml_nempty "term" [] (aux s) ;
-           X.xml_nempty "letintarget" ["binder",id] (aux t)
-        >]
-     | C.AAppl (id,_,li) ->
-        X.xml_nempty "APPLY" ["id",id]
-         [< (List.fold_right (fun x i -> [< (aux x) ; i >]) li [<>])
-         >]
-     | C.AConst (id,_,uri,_) ->
-        X.xml_empty "CONST" ["uri", (U.string_of_uri uri) ; "id",id]
-     | C.AAbst (id,_,uri) -> raise NotImplemented
-     | C.AMutInd (id,_,uri,_,i) ->
-        X.xml_empty "MUTIND"
-         ["uri", (U.string_of_uri uri) ;
-          "noType",(string_of_int i) ;
-          "id",id]
-     | C.AMutConstruct (id,_,uri,_,i,j) ->
-        X.xml_empty "MUTCONSTRUCT"
-         ["uri", (U.string_of_uri uri) ;
-          "noType",(string_of_int i) ; "noConstr",(string_of_int j) ;
-          "id",id]
-     | C.AMutCase (id,_,uri,_,typeno,ty,te,patterns) ->
-        X.xml_nempty "MUTCASE"
-         ["uriType",(U.string_of_uri uri) ;
-          "noType", (string_of_int typeno) ;
-          "id", id]
-         [< X.xml_nempty "patternsType" [] [< (aux ty) >] ;
-            X.xml_nempty "inductiveTerm" [] [< (aux te) >] ;
-            List.fold_right
-             (fun x i -> [< X.xml_nempty "pattern" [] [< aux x >] ; i>])
-             patterns [<>]
-         >]
-     | C.AFix (id, _, no, funs) ->
-       X.xml_nempty "FIX" ["noFun", (string_of_int no) ; "id",id]
-        [< List.fold_right
-            (fun (fi,ai,ti,bi) i ->
-              [< X.xml_nempty "FixFunction"
-                  ["name", fi; "recIndex", (string_of_int ai)]
-                  [< X.xml_nempty "type" [] [< aux ti >] ;
-                     X.xml_nempty "body" [] [< aux bi >]
-                  >] ;
-                 i
-              >]
-            ) funs [<>]
-        >]
-     | C.ACoFix (id,_,no,funs) ->
-       X.xml_nempty "COFIX" ["noFun", (string_of_int no) ; "id",id]
-        [< List.fold_right
-            (fun (fi,ti,bi) i ->
-              [< X.xml_nempty "CofixFunction" ["name", fi]
-                  [< X.xml_nempty "type" [] [< aux ti >] ;
-                     X.xml_nempty "body" [] [< aux bi >]
-                  >] ;
-                 i
-              >]
-            ) funs [<>]
-        >]
- in
-  aux
-;;
-
-let encode params =
- List.fold_right
-  (fun (n,l) i ->
-    match l with
-       [] -> i
-     | _ ->
-       string_of_int n ^ ": " ^ 
-       String.concat " " (List.map UriManager.name_of_uri l) ^
-       i
-  ) params ""
-;;
-
-let print_mutual_inductive_type curi (typename,inductive,arity,constructors) =
- let module C = Cic in
- let module X = Xml in
-  [< X.xml_nempty "InductiveType"
-      ["name",typename ;
-       "inductive",(string_of_bool inductive)
-      ]
-      [< X.xml_nempty "arity" [] (print_term curi arity) ;
-         (List.fold_right
-          (fun (name,ty,_) i ->
-            [< X.xml_nempty "Constructor" ["name",name]
-                (print_term curi ty) ;
-               i
-            >])
-          constructors
-          [<>]
-         )
-      >]
-  >]
-;;
-
-let pp obj curi =
- let module C = Cic in
- let module X = Xml in
-  match obj with
-     C.ADefinition (xid, _, id, te, ty, params) ->
-      [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
-         X.xml_cdata ("<!DOCTYPE Definition SYSTEM \"" ^ dtdname ^ "\">\n\n") ;
-         X.xml_nempty "Definition"
-          (["name", id ; "id",xid] @
-           match params with
-              C.Possible _ -> raise ImpossiblePossible
-              (*CSC params are kept in inverted order in the internal *)
-              (* representation (the order of application)            *)
-            | C.Actual fv' -> ["params",(encode (List.rev fv'))])
-          [< X.xml_nempty "body" [] (print_term curi te) ;
-             X.xml_nempty "type"  [] (print_term curi ty) >]
-      >]
-   | C.AAxiom (xid, _, id, ty, params) ->
-      [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
-         X.xml_cdata ("<!DOCTYPE Axiom SYSTEM \"" ^ dtdname ^ "\">\n\n") ;
-         X.xml_nempty "Axiom"
-          (*CSC params are kept in inverted order in the internal *)
-          (* representation (the order of application)            *)
-          ["name",id ; "params",(encode (List.rev params)) ; "id",xid]
-          [< X.xml_nempty "type" [] (print_term curi ty) >]
-      >]
-   | C.AVariable (xid, _, name, bo, ty) ->
-      [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
-         X.xml_cdata ("<!DOCTYPE Variable SYSTEM \"" ^ dtdname ^ "\">\n\n") ;
-         X.xml_nempty "Variable" ["name",name ; "id",xid]
-          [< (match bo with
-                 None -> [<>]
-               | Some bo -> X.xml_nempty "body" [] (print_term curi bo)
-             ) ;
-             X.xml_nempty "type" [] (print_term curi ty)
-          >]
-      >]
-   | C.ACurrentProof (xid, _, name, conjs, bo, ty) ->
-      [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
-         X.xml_cdata ("<!DOCTYPE CurrentProof SYSTEM \"" ^ dtdname ^ "\">\n\n");
-         X.xml_nempty "CurrentProof" ["name",name ; "id",xid]
-          [< List.fold_right
-              (fun (j,t) i ->
-                [< X.xml_nempty "Conjecture" ["no",(string_of_int j)]
-                    [< print_term curi t >] ; i >])
-              conjs [<>] ;
-             X.xml_nempty "body" [] [< print_term curi bo >] ;
-             X.xml_nempty "type" [] [< print_term curi ty >]
-          >]
-      >]
-   | C.AInductiveDefinition (xid, _, tys, params, paramsno) ->
-      let names =
-       List.map
-        (fun (typename,_,_,_) -> typename)
-        tys
-      in
-       [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
-          X.xml_cdata ("<!DOCTYPE InductiveDefinition SYSTEM \"" ^
-           dtdname ^ "\">\n\n") ;
-          X.xml_nempty "InductiveDefinition"
-           (*CSC params are kept in inverted order in the internal *)
-           (* representation (the order of application)            *)
-           ["noParams",string_of_int paramsno ;
-            "params",(encode (List.rev params)) ;
-            "id",xid]
-          [< List.fold_right
-              (fun x i -> [< print_mutual_inductive_type curi x ; i >])
-              tys [< >]
-           >]
-       >]
-;;

diff --git a/helm/interface/cicAnnotationHinter.ml b/helm/interface/cicAnnotationHinter.ml
deleted file mode 100644 (file)
index 86bcb45..0000000
--- a/helm/interface/cicAnnotationHinter.ml
+++ /dev/null
@@ -1,381 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 14/06/2000                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
-let deactivate_hints_from annotation_window n =
- let annotation_hints = annotation_window#annotation_hints in
-  for i = n to Array.length annotation_hints - 1 do
-   annotation_hints.(i)#misc#hide ()
-  done
-;;
-
-(* CSC: orripilante *)
-(* the list of the signal ids *)
-let sig_ids = ref ([] : GtkSignal.id list);;
-
-let disconnect_hint annotation_window buttonno =
- match !sig_ids with
-    id::ids ->
-     annotation_window#annotation_hints.(buttonno)#misc#disconnect id ;
-     sig_ids := ids
-  | _ -> assert false
-;;
-
-(* link_hint annotation_window n label hint *)
-(* set the label of the nth hint button of annotation_window to label *)
-(* and the correspondent hint to hint                                 *)
-let link_hint annotation_window buttonno label hint =
- let button = annotation_window#annotation_hints.(buttonno) in
-  sig_ids :=
-   (button#connect#clicked
-    (fun () -> (annotation_window#annotation : GEdit.text)#insert hint)
-   ) :: !sig_ids ;
-  button#misc#show () ;
-  match button#children with
-     [labelw] -> (GMisc.label_cast labelw)#set_text label
-   | _ -> assert false
-;;
-
-exception TooManyHints;;
-
-let link_hints annotation_window a =
- if Array.length a > Array.length annotation_window#annotation_hints then
-  raise TooManyHints ;
- for i = List.length !sig_ids - 1 downto 0 do
-  disconnect_hint annotation_window i
- done ;
- Array.iteri
-  (fun i (label,hint) -> link_hint annotation_window i label hint) a ;
- deactivate_hints_from annotation_window (Array.length a)
-;;
-
-let list_mapi f =
- let rec aux n =
-  function
-     [] -> []
-   | he::tl -> (f n he)::(aux (n + 1) tl)
- in
-  aux 0
-;;
-
-let get_id annterm =
- let module C = Cic in
-  match annterm with
-     C.ARel (id,_,_,_)             -> id
-   | C.AVar (id,_,_)               -> id
-   | C.AMeta (id,_,_)              -> id
-   | C.ASort (id,_,_)              -> id
-   | C.AImplicit (id,_)            -> id
-   | C.ACast (id,_,_,_)            -> id
-   | C.AProd (id,_,_,_,_)          -> id
-   | C.ALambda (id,_,_,_,_)        -> id
-   | C.ALetIn (id,_,_,_,_)         -> id
-   | C.AAppl (id,_,_)              -> id
-   | C.AConst (id,_,_,_)           -> id
-   | C.AAbst (id,_,_)              -> id
-   | C.AMutInd (id,_,_,_,_)        -> id
-   | C.AMutConstruct (id,_,_,_,_,_)-> id
-   | C.AMutCase (id,_,_,_,_,_,_,_) -> id
-   | C.AFix (id,_,_,_)             -> id
-   | C.ACoFix (id,_,_,_)           -> id
-;;
-
-let create_hint_from_term annotation_window annterm =
- let module C = Cic in
-  match annterm with
-     C.ARel (id,_,_,_) ->
-      link_hints annotation_window
-       [| "Binder", "<attribute name = 'binder' id = '" ^ id ^ "'/>" |]
-   | C.AVar (id,_,_) ->
-      link_hints annotation_window
-       [| "relURI???", "<attribute name = 'relUri' id = '" ^ id ^ "'/>" |]
-   | C.AMeta (id,_,_) ->
-      link_hints annotation_window
-       [| "Number", "<attribute name = 'no' id = '" ^ id ^ "'/>" |]
-   | C.ASort (id,_,_) ->
-      link_hints annotation_window
-       [| "Value", "<attribute name = 'value' id = '" ^ id ^ "'/>" |]
-   | C.AImplicit (id,_) ->
-      link_hints annotation_window [| |]
-   | C.ACast (id,_,bo,ty) ->
-      let boid = get_id bo
-      and tyid = get_id ty in
-       link_hints annotation_window
-        [| "Body", "<node id = '" ^ boid ^ "'/>" ;
-           "Type", "<node id = '" ^ tyid ^ "'/>"
-        |]
-   | C.AProd (id,_,_,ty,bo) ->
-      let boid = get_id bo
-      and tyid = get_id ty in
-       link_hints annotation_window
-        [| "Binder",
-            "<attribute child = '2' name = 'binder' id = '" ^ id ^ "'/>" ;
-           "Body", "<node id = '" ^ boid ^ "'/>" ;
-           "Type", "<node id = '" ^ tyid ^ "'/>"
-        |]
-   | C.ALambda (id,_,_,ty,bo) ->
-      let boid = get_id bo
-      and tyid = get_id ty in
-       link_hints annotation_window
-        [| "Binder",
-            "<attribute child = '2' name = 'binder' id = '" ^ id ^ "'/>" ;
-           "Body", "<node id = '" ^ boid ^ "'/>" ;
-           "Type", "<node id = '" ^ tyid ^ "'/>"
-        |]
-   | C.ALetIn (id,_,_,ty,bo) ->
-      let boid = get_id bo
-      and tyid = get_id ty in
-       link_hints annotation_window
-        [| "Binder",
-            "<attribute child = '2' name = 'binder' id = '" ^ id ^ "'/>" ;
-           "Term", "<node id = '" ^ boid ^ "'/>" ;
-           "Target", "<node id = '" ^ tyid ^ "'/>"
-        |]
-   | C.AAppl (id,_,args) ->
-      let argsid =
-       Array.mapi
-        (fun i te -> "Argument " ^ string_of_int i, "<node id ='" ^
-          get_id te ^ "'/>")
-        (Array.of_list args)
-      in
-       link_hints annotation_window argsid
-   | C.AConst (id,_,_,_) ->
-      link_hints annotation_window
-       [| "Uri???", "<attribute name = 'uri' id = '" ^ id ^ "'/>" |]
-   | C.AAbst (id,_,_) ->
-      link_hints annotation_window
-       [| "Uri???", "<attribute name = 'uri' id = '" ^ id ^ "'/>" |]
-   | C.AMutInd (id,_,_,_,_) ->
-      link_hints annotation_window
-       [| "Uri???", "<attribute name = 'uri' id = '" ^ id ^ "'/>" |]
-   | C.AMutConstruct (id,_,_,_,_,_) ->
-      link_hints annotation_window
-       [| "Uri???", "<attribute name = 'uri' id = '" ^ id ^ "'/>" |]
-   | C.AMutCase (id,_,_,_,_,outty,te,pl) ->
-      let outtyid = get_id outty
-      and teid = get_id te
-      and plid =
-       Array.mapi
-        (fun i te -> "Pattern " ^ string_of_int i, "<node id ='" ^
-          get_id te ^ "'/>")
-        (Array.of_list pl)
-      in
-       link_hints annotation_window
-        (Array.append
-         [| "Uri???", "<attribute name = 'uri' id = '" ^ id ^ "'/>" ;
-            "Case Type", "<node id = '" ^ outtyid ^ "'/>" ;
-            "Term", "<node id = '" ^ teid ^ "'/>" ;
-         |]
-         plid)
-   | C.AFix (id,_,_,funl) ->
-      let funtylid =
-       Array.mapi
-        (fun i (_,_,ty,_) ->
-          "Type " ^ string_of_int i, "<node id ='" ^
-          get_id ty ^ "'/>")
-        (Array.of_list funl)
-      and funbolid =
-       Array.mapi
-        (fun i (_,_,_,bo) ->
-          "Body " ^ string_of_int i, "<node id ='" ^
-          get_id bo ^ "'/>")
-        (Array.of_list funl)
-      and funnamel =
-       Array.mapi
-        (fun i (_,_,_,_) ->
-          "Name " ^ string_of_int i, "<attribute id ='" ^ id ^
-           "' name = 'name' child='" ^ string_of_int i ^ "'/>")
-        (Array.of_list funl)
-      and funrecindexl =
-       Array.mapi
-        (fun i (_,_,_,_) ->
-          "Recursive Index??? " ^ string_of_int i, "<attribute id = '" ^ id ^
-           "' name = 'recIndex' child='" ^ string_of_int i ^ "'/>")
-        (Array.of_list funl)
-      in
-       link_hints annotation_window
-        (Array.concat
-         [ funtylid ;
-           funbolid ;
-           funnamel ;
-           funrecindexl ;
-           [| "NoFun???", "<attribute name = 'noFun' id = '" ^ id ^ "'/>" |]
-         ]
-        )
-   | C.ACoFix (id,_,_,funl) ->
-      let funtylid =
-       Array.mapi
-        (fun i (_,ty,_) ->
-          "Type " ^ string_of_int i, "<node id ='" ^
-          get_id ty ^ "'/>")
-        (Array.of_list funl)
-      and funbolid =
-       Array.mapi
-        (fun i (_,_,bo) ->
-          "Body " ^ string_of_int i, "<node id ='" ^
-          get_id bo ^ "'/>")
-        (Array.of_list funl)
-      and funnamel =
-       Array.mapi
-        (fun i (_,_,_) ->
-          "Name " ^ string_of_int i, "<attribute id ='" ^ id ^
-           "' name = 'name' child='" ^ string_of_int i ^ "'/>")
-        (Array.of_list funl)
-      in
-       link_hints annotation_window
-        (Array.concat
-         [ funtylid ;
-           funbolid ;
-           funnamel ;
-           [| "NoFun???", "<attribute name = 'noFun' id = '" ^ id ^ "'/>" |]
-         ]
-        )
-;;
-
-(*CSC: da riscrivere completamente eliminando il paciugo degli array - liste *)
-let create_hint_from_obj annotation_window annobj =
- let module C = Cic in
-  match annobj with
-     C.ADefinition (id,_,_,bo,ty,_) ->
-      let boid = get_id bo
-      and tyid = get_id ty in
-       link_hints annotation_window
-        [| "Name", "<attribute name = 'name' id = '" ^ id ^ "'/>" ;
-           "Ingredients", "<attribute name = 'params' id = '" ^ id ^ "'/>" ;
-           "Body", "<node id = '" ^ boid ^ "'/>" ;
-           "Type", "<node id = '" ^ tyid ^ "'/>"
-        |]
-   | C.AAxiom (id,_,_,ty,_) ->
-      let tyid = get_id ty in
-       link_hints annotation_window
-        [| "Name", "<attribute name = 'name' id = '" ^ id ^ "'/>" ;
-           "Ingredients", "<attribute name = 'params' id = '" ^ id ^ "'/>" ;
-           "Type", "<node id = '" ^ tyid ^ "'/>"
-        |]
-   | C.AVariable (id,_,_,bo,ty) ->
-      let tyid = get_id ty in
-       link_hints annotation_window
-        (match bo with
-            None ->
-             [| "Name", "<attribute name = 'name' id = '" ^ id ^ "'/>" ;
-                "Type", "<node id = '" ^ tyid ^ "'/>"
-             |]
-          | Some bo ->
-             let boid = get_id bo in
-              [| "Name", "<attribute name = 'name' id = '" ^ id ^ "'/>" ;
-                 "Body", "<node id = '" ^ boid ^ "'/>" ;
-                 "Type", "<node id = '" ^ tyid ^ "'/>"
-              |]
-        )
-   | C.ACurrentProof (id,_,_,conjs,bo,ty) ->
-      let boid = get_id bo
-      and tyid = get_id ty
-      and conjsid = List.map (fun (_,te) -> get_id te) conjs in
-       link_hints annotation_window
-        (Array.append
-          [| "Name", "<attribute name = 'name' id = '" ^ id ^ "'/>" ;
-             "Ingredients", "<attribute name = 'params' id = '" ^ id ^ "'/>" ;
-             "Body", "<node id = '" ^ boid ^ "'/>" ;
-             "Type", "<node id = '" ^ tyid ^ "'/>"
-          |]
-          (Array.mapi
-            (fun i id ->
-              "Conjecture " ^ string_of_int i, "<node id = '" ^ id ^ "'/>"
-            ) (Array.of_list conjsid)
-          )
-        )
-   | C.AInductiveDefinition (id,_,itl,_,_) ->
-      let itlids =
-       List.map
-        (fun (_,_,arity,cons) ->
-          get_id arity,
-          List.map (fun (_,ty,_) -> get_id ty) cons
-        ) itl
-      in
-       link_hints annotation_window
-        (Array.concat
-          [
-           [| "Ingredients","<attribute name = 'params' id = '" ^ id ^ "'/>" |];
-           (Array.mapi
-             (fun i _ ->
-               "Type Name " ^ string_of_int i,
-               "<attribute name = 'name' child = '" ^ string_of_int i ^
-                "' id = '" ^ id ^ "'/>"
-             ) (Array.of_list itlids)
-           ) ;
-           (Array.mapi
-             (fun i (id,_) ->
-               "Type " ^ string_of_int i, "<node id = '" ^ id ^ "'/>"
-             ) (Array.of_list itlids)
-           ) ;
-           (Array.concat
-            (list_mapi
-             (fun i (_,consid) ->
-              (Array.mapi
-                (fun j _ ->
-                  "Constructor Name " ^ string_of_int i ^ " " ^ string_of_int j,
-                  "<attribute name = 'name' id = '" ^ id ^ 
-                   "' child = '" ^ string_of_int i ^ "' grandchild = '" ^
-                   string_of_int j ^ "'/>"
-                ) (Array.of_list consid)
-              ) ;
-             ) itlids
-            )
-           ) ;
-           (Array.concat
-            (list_mapi
-             (fun i (_,consid) ->
-              (Array.mapi
-                (fun j id ->
-                  "Constructor " ^ string_of_int i ^ " " ^ string_of_int j,
-                  "<node id = '" ^ id ^ "'/>"
-                ) (Array.of_list consid)
-              ) ;
-             ) itlids
-            )
-           )
-          ]
-        )
-;;
-
-exception IdUnknown of string;;
-
-let create_hints annotation_window (annobj,ids_to_targets) xpath =
- try
-  match Hashtbl.find ids_to_targets xpath with
-     Cic.Object annobj -> create_hint_from_obj annotation_window annobj
-   | Cic.Term annterm -> create_hint_from_term annotation_window annterm
- with
-  Not_found -> raise (IdUnknown xpath)
-;;

diff --git a/helm/interface/cicCache.ml b/helm/interface/cicCache.ml
deleted file mode 100644 (file)
index 6ae536c..0000000
--- a/helm/interface/cicCache.ml
+++ /dev/null
@@ -1,212 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module implements a trival cache system (an hash-table) for cic       *)
-(* objects. Uses the getter (getter.ml) and the parser (cicParser.ml)         *)
-(*                                                                            *)
-(******************************************************************************)
-
-let raise e = print_endline "***" ; flush stdout ; print_endline (Printexc.to_string e) ; flush stdout ; raise e;;
-
-(*CSC: forse i due seguenti tipi sono da unificare? *)
-type cooked_obj =
-   Cooked of Cic.obj
- | Frozen of Cic.obj
- | Unchecked of Cic.obj
-type type_checked_obj =
-   CheckedObj of Cic.obj     (* cooked obj *)
- | UncheckedObj of Cic.obj   (* uncooked obj *)
-;;
-
-exception NoFunctionProvided;;
-
-(* CSC: da sostituire con un (...) option ref *)
-let cook_obj = ref (fun obj uri -> raise NoFunctionProvided);;
-
-exception CircularDependency of string;;
-exception CouldNotUnfreeze of string;;
-exception Impossible;;
-exception UncookedObj;;
-
-module HashedType =
- struct
-  type t = UriManager.uri * int    (* uri, livello di cottura *)
-  let equal (u1,n1) (u2,n2) = UriManager.eq u1 u2 && n1 = n2
-  let hash = Hashtbl.hash
- end
-;;
-
-(* Hashtable that uses == instead of = for testing equality *)
-module HashTable = Hashtbl.Make(HashedType);;
-
-let hashtable = HashTable.create 271;;
-
-(* n is the number of time that the object must be cooked *)
-let get_obj_and_type_checking_info uri n =
- try
-   HashTable.find hashtable (uri,n)
- with
-  Not_found -> 
-   try
-    match HashTable.find hashtable (uri,0) with
-        Cooked _
-      | Frozen _ -> raise Impossible
-      | Unchecked _ as t -> t
-   with
-    Not_found ->
-     let filename = Getter.get uri in
-      let (annobj,_) = CicParser.term_of_xml filename uri false in
-       let obj = Deannotate.deannotate_obj annobj in
-        let output = Unchecked obj in
-         HashTable.add hashtable (uri,0) output ;
-         output
-;;
-
-(* DANGEROUS!!!                                *)
-(* USEFUL ONLY DURING THE FIXING OF THE FILES  *)
-(* change_obj uri (Some newobj)                *)
-(*  maps uri to newobj in cache.               *)
-(* change_obj uri None                         *)
-(*  maps uri to a freeze dummy-object.         *)
-let change_obj uri newobj =
- let newobj =
-  match newobj with
-     Some newobj' -> Unchecked newobj'
-   | None         -> Frozen (Cic.Variable ("frozen-dummy", None, Cic.Implicit))
- in
-  HashTable.remove hashtable (uri,0) ;
-  HashTable.add hashtable (uri,0) newobj
-;;
-
-let is_annotation_uri uri =
- Str.string_match (Str.regexp ".*\.ann$") (UriManager.string_of_uri uri) 0
-;;
-
-(* returns both the annotated and deannotated uncooked forms (plus the *)
-(* map from ids to annotation targets)                                 *)
-let get_annobj_and_type_checking_info uri =
- let filename = Getter.get uri in
-  match CicParser.term_of_xml filename uri true with
-     (_, None) -> raise Impossible
-   | (annobj, Some ids_to_targets) ->
-    (* If uri is the uri of an annotation, let's use the annotation file *)
-    if is_annotation_uri uri  then
-     AnnotationParser.annotate (Getter.get_ann uri) ids_to_targets ;
-    try
-      (annobj, ids_to_targets, HashTable.find hashtable (uri,0))
-    with
-     Not_found -> 
-      let obj = Deannotate.deannotate_obj annobj in
-       let output = Unchecked obj in
-        HashTable.add hashtable (uri,0) output ;
-        (annobj, ids_to_targets, output)
-;;
-
-
-(* get_obj uri                                                               *)
-(* returns the cic object whose uri is uri. If the term is not just in cache, *)
-(* then it is parsed via CicParser.term_of_xml from the file whose name is    *)
-(* the result of Getter.get uri                                               *)
-let get_obj uri =
- match get_obj_and_type_checking_info uri 0 with
-    Unchecked obj -> obj
-  | Frozen    obj -> obj
-  | Cooked    obj -> obj
-;;
-
-(* get_annobj uri                                                             *)
-(* returns the cic object whose uri is uri either in annotated and            *)
-(* deannotated form. The term is put into the cache if it's not there yet.    *)
-let get_annobj uri =
- let (ann, ids_to_targets, deann) = get_annobj_and_type_checking_info uri in
-  let deannobj =
-   match deann with
-      Unchecked obj -> obj
-    | Frozen    _   -> raise (CircularDependency (UriManager.string_of_uri uri))
-    | Cooked    obj -> obj
-  in
-   (ann, ids_to_targets, deannobj)
-;;
-
-(*CSC Commento falso *)
-(* get_obj uri                                                               *)
-(* returns the cooked cic object whose uri is uri. The term must be present  *)
-(* and cooked in cache                                                       *)
-let rec get_cooked_obj uri cookingsno =
- match get_obj_and_type_checking_info uri cookingsno with
-    Unchecked _
-  | Frozen    _ -> raise UncookedObj
-  | Cooked obj -> obj
-;;
-
-(* is_type_checked uri                                              *)
-(* CSC: commento falso ed obsoleto *)
-(* returns true if the term has been type-checked                   *)
-(* otherwise it returns false and freeze the term for type-checking *)
-(* set_type_checking_info must be called to unfreeze the term       *)
-let is_type_checked uri cookingsno =
- match get_obj_and_type_checking_info uri cookingsno with
-    Cooked obj -> CheckedObj obj
-  | Unchecked obj ->
-     HashTable.remove hashtable (uri,0) ;
-     HashTable.add hashtable (uri,0) (Frozen obj) ;
-     UncheckedObj obj
-  | Frozen _ -> raise (CircularDependency (UriManager.string_of_uri uri))
-;;
-
-(* set_type_checking_info uri                               *)
-(* must be called once the type-checking of uri is finished *)
-(* The object whose uri is uri is unfreezed                 *)
-let set_type_checking_info uri =
- match HashTable.find hashtable (uri,0) with
-    Frozen obj ->
-     (* let's cook the object at every level *)
-     HashTable.remove hashtable (uri,0) ;
-     let obj' = CicSubstitution.undebrujin_inductive_def uri obj in
-      HashTable.add hashtable (uri,0) (Cooked obj') ;
-      let cooked_objs = !cook_obj obj' uri in
-       let last_cooked_level = ref 0 in
-       let last_cooked_obj = ref obj' in
-        List.iter
-         (fun (n,cobj) ->
-           for i = !last_cooked_level + 1 to n do
-            HashTable.add hashtable (uri,i) (Cooked !last_cooked_obj)
-           done ;
-           HashTable.add hashtable (uri,n + 1) (Cooked cobj) ;
-           last_cooked_level := n + 1 ;
-           last_cooked_obj := cobj
-         ) cooked_objs ;
-        for i = !last_cooked_level + 1 to UriManager.depth_of_uri uri + 1 do
-         HashTable.add hashtable (uri,i) (Cooked !last_cooked_obj)
-        done
-  | _ -> raise (CouldNotUnfreeze (UriManager.string_of_uri uri))
-;;

diff --git a/helm/interface/cicCache.mli b/helm/interface/cicCache.mli
deleted file mode 100644 (file)
index 3f5fd00..0000000
--- a/helm/interface/cicCache.mli
+++ /dev/null
@@ -1,81 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module implements a trival cache system (an hash-table) for cic       *)(* objects. Uses the getter (getter.ml) and the parser (cicParser.ml)         *)(*                                                                            *)
-(******************************************************************************)
-
-exception CircularDependency of string;;
-
-(* get_obj uri                                                                *)
-(* returns the cic object whose uri is uri. If the term is not just in cache, *)
-(* then it is parsed via CicParser.term_of_xml from the file whose name is    *)
-(* the result of Getter.get uri                                               *)
-val get_obj : UriManager.uri -> Cic.obj
-
-(* get_annobj uri                                                             *)
-(* returns the cic object whose uri is uri either in annotated and in         *)
-(* deannotated form. It returns also the map from ids to annotation targets.  *)
-(* The term is put in cache if it's not there yet.                            *)
-(* The functions raise CircularDependency if asked to retrieve a Frozen object*)
-val get_annobj :
- UriManager.uri -> Cic.annobj * (Cic.id, Cic.anntarget) Hashtbl.t * Cic.obj
-
-(* DANGEROUS!!!                                *)
-(* USEFUL ONLY DURING THE FIXING OF THE FILES  *)
-(* change_obj uri (Some newobj)                *)
-(*  maps uri to newobj in cache.               *)
-(* change_obj uri None                         *)
-(*  maps uri to a freeze dummy-object.         *)
-val change_obj : UriManager.uri -> Cic.obj option -> unit
-
-type type_checked_obj =
-   CheckedObj of Cic.obj    (* cooked obj *)
- | UncheckedObj of Cic.obj  (* uncooked obj *)
-
-(* is_type_checked uri cookingsno                                   *)
-(*CSC commento falso ed obsoleto *)
-(* returns (true,object) if the object has been type-checked        *)
-(* otherwise it returns (false,object) and freeze the object for    *)
-(* type-checking                                                    *)
-(* set_type_checking_info must be called to unfreeze the object     *)
-val is_type_checked : UriManager.uri -> int -> type_checked_obj
-
-(* set_type_checking_info uri                                         *)
-(* must be called once the type-checking of uri is finished           *)
-(* The object whose uri is uri is unfreezed and won't be type-checked *)
-(* again in the future (is_type_checked will return true)             *)
-val set_type_checking_info : UriManager.uri -> unit
-
-(* get_cooked_obj uri cookingsno *)
-val get_cooked_obj : UriManager.uri -> int -> Cic.obj
-
-val cook_obj : (Cic.obj -> UriManager.uri -> (int * Cic.obj) list) ref

diff --git a/helm/interface/cicCooking.ml b/helm/interface/cicCooking.ml
deleted file mode 100644 (file)
index fcd67bd..0000000
--- a/helm/interface/cicCooking.ml
+++ /dev/null
@@ -1,217 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception Impossible;;
-exception NotImplemented of int * string;;
-exception WrongUriToConstant;;
-exception WrongUriToVariable of string;;
-exception WrongUriToInductiveDefinition;;
-
-(* mem x lol is true if x is a member of one    *)
-(* of the lists of the list of (int * list) lol *)
-let mem x lol =
- List.fold_right (fun (_,l) i -> i || List.mem x l) lol false
-;;
-
-(* cook var term *)
-let cook curi cookingsno var =
- let rec aux k =
-  let module C = Cic in
-   function
-      C.Rel n as t ->
-       (match n with
-           n when n >= k -> C.Rel (n + 1)
-         | _ -> C.Rel n
-       )
-    | C.Var uri as t ->
-       if UriManager.eq uri var then
-        C.Rel k
-       else
-        t
-    | C.Meta _ as t -> t
-    | C.Sort _ as t -> t
-    | C.Implicit as t -> t
-    | C.Cast (te, ty) -> C.Cast (aux k te, aux k ty)
-    | C.Prod (n,s,t) -> C.Prod (n, aux k s, aux (k + 1) t)
-    | C.Lambda (n,s,t) -> C.Lambda (n, aux k s, aux (k + 1) t)
-    | C.LetIn (n,s,t) -> C.LetIn (n, aux k s, aux (k + 1) t)
-    | C.Appl (he::tl) ->
-       (* Get rid of C.Appl (C.Appl l1) l2 *)
-       let newtl = List.map (aux k) tl in
-        (match aux k he with
-            C.Appl (he'::tl') -> C.Appl (he'::(tl'@newtl))
-          | t -> C.Appl (t::newtl)
-        )
-    | C.Appl [] -> raise Impossible
-    | C.Const (uri,_) ->
-       if match CicCache.get_obj uri with
-           C.Definition (_,_,_,params) when mem var params -> true
-         | C.Definition _ -> false
-         | C.Axiom (_,_,params) when mem var params -> true
-         | C.Axiom _ -> false
-         | C.CurrentProof _ ->
-            raise (NotImplemented (2,(UriManager.string_of_uri uri)))
-         | _ -> raise WrongUriToConstant
-       then
-        C.Appl
-         ((C.Const (uri,UriManager.relative_depth curi uri cookingsno))::
-          [C.Rel k])
-       else
-        C.Const (uri,UriManager.relative_depth curi uri cookingsno)
-    | C.Abst _ as t -> t
-    | C.MutInd (uri,_,i) ->
-       if match CicCache.get_obj uri with
-           C.InductiveDefinition (_,params,_) when mem var params -> true
-         | C.InductiveDefinition _ -> false
-         | _ -> raise WrongUriToInductiveDefinition
-       then
-        C.Appl ((C.MutInd (uri,UriManager.relative_depth curi uri cookingsno,i))::[C.Rel k])
-       else
-        C.MutInd (uri,UriManager.relative_depth curi uri cookingsno,i)
-    | C.MutConstruct (uri,_,i,j) ->
-       if match CicCache.get_obj uri with
-           C.InductiveDefinition (_,params,_) when mem var params -> true
-         | C.InductiveDefinition _ -> false
-         | _ -> raise WrongUriToInductiveDefinition
-       then
-        C.Appl ((C.MutConstruct (uri,UriManager.relative_depth curi uri cookingsno,i,j))::[C.Rel k])
-       else
-        C.MutConstruct (uri,UriManager.relative_depth curi uri cookingsno,i,j)
-    | C.MutCase (uri,_,i,outt,term,pl) ->
-       let substitutedfl =
-        List.map (aux k) pl
-       in
-        C.MutCase (uri,UriManager.relative_depth curi uri cookingsno,i,
-         aux k outt,aux k term, substitutedfl)
-    | C.Fix (i,fl) ->
-       let len = List.length fl in
-       let substitutedfl =
-         List.map
-          (fun (name,i,ty,bo) -> (name,i,aux k ty, aux (k+len) bo))
-          fl
-       in
-        C.Fix (i, substitutedfl)
-    | C.CoFix (i,fl) ->
-       let len = List.length fl in
-       let substitutedfl =
-         List.map
-          (fun (name,ty,bo) -> (name,aux k ty, aux (k+len) bo))
-          fl
-       in
-        C.CoFix (i, substitutedfl)
- in
-  aux 1 
-;;
-
-let cook_gen add_binder curi cookingsno ty vars =
- let module C = Cic in
- let module U = UriManager in
-  let rec cookrec ty =
-   function
-     var::tl ->
-      let (varname, varbody, vartype) =
-       match CicCache.get_obj var with
-          C.Variable (varname, varbody, vartype) -> (varname, varbody, vartype)
-        | _ -> raise (WrongUriToVariable (U.string_of_uri var))
-      in
-       cookrec (add_binder (C.Name varname) varbody vartype
-        (cook curi cookingsno var ty)) tl
-   | _ -> ty
-  in
-   cookrec ty vars
-;;
-
-let cook_prod =
- cook_gen (fun n b s t ->
-  match b with
-     None   -> Cic.Prod (n,s,t)
-   | Some b -> Cic.LetIn (n,b,t)
- )
-and cook_lambda =
- cook_gen (fun n b s t ->
-  match b with
-     None   -> Cic.Lambda (n,s,t)
-   | Some b -> Cic.LetIn (n,b,t)
- )
-;;
-
-(*CSC: sbagliato da rifare e completare *)
-let cook_one_level obj curi cookingsno vars =
- let module C = Cic in
-  match obj with
-     C.Definition (id,te,ty,params) ->
-      let ty' = cook_prod curi cookingsno ty vars in
-      let te' = cook_lambda curi cookingsno te vars in
-       C.Definition (id,te',ty',params)
-   | C.Axiom (id,ty,parameters) ->
-      let ty' = cook_prod curi cookingsno ty vars in
-       C.Axiom (id,ty',parameters)
-   | C.Variable _ as obj -> obj
-   | C.CurrentProof (id,conjs,te,ty) ->
-      let ty' = cook_prod curi cookingsno ty vars in
-      let te' = cook_lambda curi cookingsno te vars in
-       C.CurrentProof (id,conjs,te',ty')
-   | C.InductiveDefinition (dl, params, n_ind_params) ->
-      let dl' =
-       List.map
-        (fun (name,inductive,arity,constructors) ->
-          let constructors' =
-          List.map
-           (fun (name,ty,r) ->
-             let r' = 
-              match !r with
-                 None -> raise Impossible
-               | Some r -> List.map (fun _ -> false) vars @ r
-             in
-             (name,cook_prod curi cookingsno ty vars,ref (Some r')) 
-           ) constructors
-          in
-           (name,inductive,cook_prod curi cookingsno arity vars,constructors')
-        ) dl
-      in
-       C.InductiveDefinition (dl', params, n_ind_params + List.length vars)
-;; 
-
-let cook_obj obj uri =
- let module C = Cic in
-  let params =
-   match obj with
-      C.Definition (_,_,_,params) -> params
-    | C.Axiom (_,_,params) -> params
-    | C.Variable _ -> []
-    | C.CurrentProof _ -> []
-    | C.InductiveDefinition (_,params,_) -> params
-  in
-   let rec cook_all_levels obj =
-    function
-       [] -> []
-     | (n,vars)::tl ->
-        let cooked_obj = cook_one_level obj uri (n + 1) (List.rev vars) in
-         (n,cooked_obj)::(cook_all_levels cooked_obj tl)
-   in
-    cook_all_levels obj (List.rev params)
-;;
-
-CicCache.cook_obj := cook_obj;;

diff --git a/helm/interface/cicCooking.mli b/helm/interface/cicCooking.mli
deleted file mode 100644 (file)
index 203bf6c..0000000
--- a/helm/interface/cicCooking.mli
+++ /dev/null
@@ -1,31 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception Impossible
-exception NotImplemented of int * string
-exception WrongUriToConstant
-exception WrongUriToVariable of string
-exception WrongUriToInductiveDefinition
-val cook_obj : Cic.obj -> UriManager.uri -> (int * Cic.obj) list

diff --git a/helm/interface/cicFindParameters.ml b/helm/interface/cicFindParameters.ml
deleted file mode 100644 (file)
index dbc1483..0000000
--- a/helm/interface/cicFindParameters.ml
+++ /dev/null
@@ -1,162 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception WrongUriToConstant;;
-exception WrongUriToInductiveDefinition;;
-exception CircularDependency of string;;
-
-module OrderedUris =
- struct
-  type t = UriManager.uri
-  let compare (s1 : t) (s2 : t) =
-   (* library function for = *)
-   compare s1 s2
-   (*if s1 = s2 then 0 else if s1 < s2 then (-1) else 1*)
- end
-;;
-
-let filename_of_uri uri =
- let uri' = UriManager.string_of_uri uri in
-  let fn = Str.replace_first (Str.regexp "cic:") Configuration.helm_dir uri' in
-   fn ^ ".xml"
-;;
-
-(* quite inefficient coding of a set of strings: the only operations  *)
-(* performed are mem O(log n), and union O(n * log n?)                *)
-(* Perhaps a better implementation would be an array of bits or a map *)
-(* from uri to booleans                                               *)
-module SetOfUris = Set.Make(OrderedUris);;
-
-let (@@) = SetOfUris.union;;
-
-let rec parameters_of te ty pparams=
- let module S = SetOfUris in
- let module C = Cic in
-   let rec aux =
-    function
-       C.Rel _ -> S.empty
-     | C.Var uri -> S.singleton uri
-     | C.Meta _ -> S.empty
-     | C.Sort _ -> S.empty
-     | C.Implicit -> S.empty
-     | C.Cast (te, ty) -> aux te @@ aux ty
-     | C.Prod (_, s, t) -> aux s @@ aux t
-     | C.Lambda (_, s, t) -> aux s @@ aux t
-     | C.Appl l -> List.fold_right (fun x i -> aux x @@ i) l S.empty
-     | C.Const (uri,_) ->
-        (* the parameters could be not exact but only possible *)
-        fix_params uri (Some (filename_of_uri uri)) ;
-        (* now the parameters are surely possible *)
-        (match CicCache.get_obj uri with
-            C.Definition (_, _, _, params) ->
-              List.fold_right
-               (fun (_,l) i ->
-                 List.fold_right
-                  (fun x i -> S.singleton x @@ i) l i
-               ) params S.empty
-          | C.Axiom (_, _, params) ->
-             List.fold_right
-              (fun (_,l) i ->
-                List.fold_right
-                 (fun x i -> S.singleton x @@ i) l i
-              ) params S.empty
-          | C.CurrentProof _ -> S.empty (*CSC wrong *)
-          | _ -> raise WrongUriToConstant
-        )
-     | C.Abst _ -> S.empty
-     | C.MutInd (uri,_,_) ->
-        (match CicCache.get_obj uri with
-            C.InductiveDefinition (_, params, _) ->
-             List.fold_right
-              (fun (_,l) i ->
-                List.fold_right
-                 (fun x i -> S.singleton x @@ i) l i
-              ) params S.empty
-          | _ -> raise WrongUriToInductiveDefinition
-        )
-     | C.MutConstruct (uri,_,_,_) ->
-        (match CicCache.get_obj uri with
-            C.InductiveDefinition (_, params, _) ->
-             List.fold_right
-              (fun (_,l) i ->
-                List.fold_right
-                 (fun x i -> S.singleton x @@ i) l i
-              ) params S.empty
-          | _ -> raise WrongUriToInductiveDefinition
-        )
-     | C.MutCase (uri,_,_,outtype,term,patterns) ->
-        (*CSC cosa basta? Ci vuole anche uri? *)
-        (match CicCache.get_obj uri with
-            C.InductiveDefinition (_, params, _) ->
-            List.fold_right
-             (fun (_,l) i ->
-               List.fold_right
-                (fun x i -> S.singleton x @@ i) l i
-             ) params S.empty
-          | _ -> raise WrongUriToInductiveDefinition
-        ) @@ aux outtype @@ aux term @@
-         List.fold_right (fun x i -> aux x @@ i) patterns S.empty
-     | C.Fix (_,fl) ->
-        List.fold_right
-         (fun (_,_,ty,bo) i  -> aux ty @@ aux bo @@ i)
-         fl S.empty
-     | C.CoFix (_,fl) ->
-        List.fold_right
-         (fun (_,ty,bo) i -> aux ty @@ aux bo @@ i)
-         fl S.empty
- in
-  let actual_params = aux te @@ aux ty in
-   (* sort_actual_params wants in input the ordered list of possible params *)
-   let rec sort_actual_params2 =
-    function
-       [] -> []
-     | he::tl when S.mem he actual_params -> he::(sort_actual_params2 tl)
-     | _::tl -> sort_actual_params2 tl
-   in
-    let rec sort_actual_params =
-     function
-        [] -> []
-      | (n,l)::tl -> (n, sort_actual_params2 l)::(sort_actual_params tl)
-    in
-     sort_actual_params pparams
-
-and fix_params uri filename =
- let module C = Cic in
-  let (ann, _, deann) = CicCache.get_annobj uri in
-   match ann, deann with
-      (C.ADefinition (xid, ann, id, te, ty, C.Possible pparams),
-       C.Definition (id', te', ty', _)) ->
-        (* let's freeze the object to avoid circular dependencies *)
-        CicCache.change_obj uri None ;
-        let real_params = parameters_of te' ty' pparams in
-         let fixed =
-          C.ADefinition (xid,ann,id,te,ty,C.Actual real_params)
-         in
-          Xml.pp (Cic2Xml.pp fixed uri) filename ;
-          (* unfreeze and fix the object *)
-          CicCache.change_obj uri
-           (Some (C.Definition (id', te', ty', real_params)))
-    | _ -> ()
-;;

diff --git a/helm/interface/cicParser.ml b/helm/interface/cicParser.ml
deleted file mode 100644 (file)
index bf75243..0000000
--- a/helm/interface/cicParser.ml
+++ /dev/null
@@ -1,95 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This is the main (top level) module of a parser for cic objects from xml   *)
-(* files to the internal representation. It uses the modules cicParser2       *)
-(* (objects level) and cicParser3 (terms level)                               *)
-(*                                                                            *)
-(******************************************************************************)
-
-exception Warnings;;
-
-class warner =
-  object 
-    method warn w =
-      print_endline ("WARNING: " ^ w) ;
-      (raise Warnings : unit)
-  end
-;;
-
-exception EmptyUri;;
-
-(* given an uri u it returns the list of tokens of the base uri of u *)
-(* e.g.: token_of_uri "cic:/a/b/c/d.xml" returns ["a" ; "b" ; "c"]   *)
-let tokens_of_uri uri =
- let uri' = UriManager.string_of_uri uri in
- let rec chop_list =
-  function
-     [] -> raise EmptyUri
-   | he::[fn] -> [he]
-   | he::tl -> he::(chop_list tl)
- in
-  let trimmed_uri = Str.replace_first (Str.regexp "cic:") "" uri' in
-   let list_of_tokens = Str.split (Str.regexp "/") trimmed_uri in
-    chop_list list_of_tokens
-;;
-
-(* given the filename of an xml file of a cic object it returns its internal *)
-(* representation. process_annotations is true if the annotations do really  *)
-(* matter                                                                    *)
-let term_of_xml filename uri process_annotations =
- let module Y = Pxp_yacc in
-  try 
-    let d =
-      (* sets the current base uri to resolve relative URIs *)
-      CicParser3.current_sp := tokens_of_uri uri ;
-      CicParser3.current_uri := uri ;
-      CicParser3.process_annotations := process_annotations ;
-      CicParser3.ids_to_targets :=
-       if process_annotations then Some (Hashtbl.create 500) else None ;
-      let config = {Y.default_config with Y.warner = new warner} in
-      Y.parse_document_entity config
-(*PXP       (Y.ExtID (Pxp_types.System filename,
-         new Pxp_reader.resolve_as_file ~url_of_id ()))
-*)     (PxpUriResolver.from_file filename)
-       CicParser3.domspec
-    in
-     let ids_to_targets = !CicParser3.ids_to_targets in
-      let res = (CicParser2.get_term d#root, ids_to_targets) in
-       CicParser3.ids_to_targets := None ; (* let's help the GC *)
-       res
-  with
-   e ->
-     print_endline ("Filename: " ^ filename ^ "\nException: ") ;
-     print_endline (Pxp_types.string_of_exn e) ;
-     raise e
-;;

diff --git a/helm/interface/cicParser.mli b/helm/interface/cicParser.mli
deleted file mode 100644 (file)
index 0078f6f..0000000
--- a/helm/interface/cicParser.mli
+++ /dev/null
@@ -1,44 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 22/03/2000                                 *)
-(*                                                                            *)
-(* This is the main (top level) module of a parser for cic objects from xml   *)
-(* files to the internal representation. It uses the modules cicParser2       *)
-(* (objects level) and cicParser3 (terms level)                               *)
-(*                                                                            *)
-(******************************************************************************)
-
-(* given the filename of an xml file of a cic object and it's uri, it returns *)
-(* its internal annotated representation. The boolean is set to true if the   *)
-(* annotations do really matter                                               *)
-val term_of_xml :
- string -> UriManager.uri -> bool ->
-  Cic.annobj * (Cic.id, Cic.anntarget) Hashtbl.t option

diff --git a/helm/interface/cicParser2.ml b/helm/interface/cicParser2.ml
deleted file mode 100644 (file)
index 562f79b..0000000
--- a/helm/interface/cicParser2.ml
+++ /dev/null
@@ -1,289 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@@cs.unibo.it>              *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module is the objects level of a parser for cic objects from xml      *)
-(* files to the internal representation. It uses the module cicParser3        *)
-(* cicParser3 (terms level) and it is used only through cicParser2 (top       *)
-(* level).                                                                    *)
-(*                                                                            *)
-(******************************************************************************)
-
-exception IllFormedXml of int;;
-exception NotImplemented;;
-
-(* Utility functions that transform a Pxp attribute into something useful *)
-
-(* mk_absolute_uris "n1: v1 ... vn n2 : u1 ... un ...."      *)
-(* returns [(n1,[absolute_uri_for_v1 ; ... ; absolute_uri_for_vn]) ; (n2,...) *)
-let mk_absolute_uris s =
- let l = (Str.split (Str.regexp ":") s) in
-  let absolute_of_relative n v =
-   let module P3 = CicParser3 in
-    let rec mkburi =
-     function
-        (0,_) -> "/"
-      | (n,he::tl) when n > 0 ->
-         "/" ^ he ^ mkburi (n - 1, tl)
-      | _ -> raise (IllFormedXml 12)
-    in
-     let m = List.length !P3.current_sp - (int_of_string n) in
-      let buri = mkburi (m, !P3.current_sp) in
-       UriManager.uri_of_string ("cic:" ^ buri ^ v ^ ".var")
-  in
-   let rec absolutize =
-    function
-       [] -> []
-     | [no ; vs] ->
-        let vars = (Str.split (Str.regexp " ") vs) in
-         [(int_of_string no, List.map (absolute_of_relative no) vars)]
-     | no::vs::tl -> 
-        let vars = (Str.split (Str.regexp " ") vs) in
-         let rec add_prefix =
-          function
-             [no2] -> ([], no2)
-           | he::tl ->
-              let (pvars, no2) = add_prefix tl in
-               ((absolute_of_relative no he)::pvars, no2)
-           | _ -> raise (IllFormedXml 11)
-         in
-          let (pvars, no2) = add_prefix vars in
-           (int_of_string no, pvars)::(absolutize (no2::tl))
-     | _ -> raise (IllFormedXml 10)
-   in
-    (* last parameter must be applied first *)
-    absolutize l
-;;
-
-let option_uri_list_of_attr a1 a2 =
- let module T = Pxp_types in
-  let parameters =
-   match a1 with
-      T.Value s -> mk_absolute_uris s
-    | _ -> raise (IllFormedXml 0)
-  in
-   match a2 with
-      T.Value "POSSIBLE" -> Cic.Possible parameters
-    | T.Implied_value -> Cic.Actual parameters
-    | _ -> raise (IllFormedXml 0)
-;;
-
-let uri_list_of_attr a =
- let module T = Pxp_types in
-  match a with
-     T.Value s -> mk_absolute_uris s
-   | _ -> raise (IllFormedXml 0)
-;;
-
-let string_of_attr a =
- let module T = Pxp_types in
-  match a with
-     T.Value s -> s
-   | _ -> raise (IllFormedXml 0)
-;;
-
-let int_of_attr a =
- int_of_string (string_of_attr a)
-;;
-
-let bool_of_attr a =
- bool_of_string (string_of_attr a)
-;;
-
-(* Other utility functions *)
-
-let get_content n =
- match n#sub_nodes with
-    [ t ] -> t
-  | _     -> raise (IllFormedXml 1)
-;;
-
-let register_id id node =
- if !CicParser3.process_annotations then
-  match !CicParser3.ids_to_targets with
-     None -> assert false
-   | Some ids_to_targets ->
-      Hashtbl.add ids_to_targets id (Cic.Object node)
-;;
-
-(* Functions that, given the list of sons of a node of the cic dom (objects   *)
-(* level), retrieve the internal representation associated to the node.       *)
-(* Everytime a cic term subtree is found, it is translated to the internal    *)
-(* representation using the method to_cic_term defined in cicParser3.         *)
-(* Each function raise IllFormedXml if something goes wrong, but this should  *)
-(* be impossible due to the presence of the dtd                               *)
-(* The functions should really be obvious looking at their name and the cic   *)
-(* dtd                                                                        *)
-
-(* called when a CurrentProof is found *)
-let get_conjs_value_type l =
- let rec rget (c, v, t) l =
-  let module D = Pxp_document in
-   match l with
-      [] -> (c, v, t)
-    | conj::tl when conj#node_type = D.T_element "Conjecture" ->
-       let no = int_of_attr (conj#attribute "no")
-       and typ = (get_content conj)#extension#to_cic_term in
-        rget ((no, typ)::c, v, t) tl
-    | value::tl when value#node_type = D.T_element "body" ->
-       let v' = (get_content value)#extension#to_cic_term in
-        (match v with
-            None -> rget (c, Some v', t) tl
-          | _    -> raise (IllFormedXml 2)
-        )
-    | typ::tl when typ#node_type = D.T_element "type" ->
-       let t' = (get_content typ)#extension#to_cic_term in
-        (match t with
-            None -> rget (c, v, Some t') tl
-          | _    -> raise (IllFormedXml 3)
-        )
-    | _ -> raise (IllFormedXml 4)
- in
-  match rget ([], None, None) l with
-     (c, Some v, Some t) -> (c, v, t)
-   | _ -> raise (IllFormedXml 5)
-;;
-
-(* used only by get_inductive_types; called one time for each inductive  *)
-(* definitions in a block of inductive definitions                       *)
-let get_names_arity_constructors l =
- let rec rget (a,c) l =
-  let module D = Pxp_document in
-   match l with
-      [] -> (a, c)
-    | arity::tl when arity#node_type = D.T_element "arity" ->
-       let a' = (get_content arity)#extension#to_cic_term in
-        rget (Some a',c) tl
-    | con::tl when con#node_type = D.T_element "Constructor" ->
-       let id = string_of_attr (con#attribute "name")
-       and ty = (get_content con)#extension#to_cic_term in
-         rget (a,(id,ty,ref None)::c) tl
-    | _ -> raise (IllFormedXml 9)
- in
-  match rget (None,[]) l with
-     (Some a, c) -> (a, List.rev c)
-   | _ -> raise (IllFormedXml 8)
-;;
-
-(* called when an InductiveDefinition is found *)
-let rec get_inductive_types =
- function
-    []     -> []
-  | he::tl ->
-     let tyname    = string_of_attr (he#attribute "name")
-     and inductive = bool_of_attr   (he#attribute "inductive")
-     and (arity,cons) =
-      get_names_arity_constructors (he#sub_nodes)
-     in
-      (tyname,inductive,arity,cons)::(get_inductive_types tl) (*CSC 0 a caso *)
-;;
-
-(* This is the main function and also the only one used directly from *)
-(* cicParser. Given the root of the dom tree, it returns the internal *)
-(* representation of the cic object described in the tree             *)
-(* It uses the previous functions and the to_cic_term method defined  *)
-(* in cicParser3 (used for subtrees that encode cic terms)            *)
-let rec get_term n =
- let module D = Pxp_document in
- let module C = Cic in
-  let ntype = n # node_type in
-  match ntype with
-    D.T_element "Definition" ->
-      let id = string_of_attr (n # attribute "name")
-      and params =
-       option_uri_list_of_attr (n#attribute "params") (n#attribute "paramMode")
-      and (value, typ) = 
-       let sons = n#sub_nodes in
-        match sons with
-          [v ; t] when
-            v#node_type = D.T_element "body" &&
-            t#node_type = D.T_element "type" ->
-             let v' = get_content v
-             and t' = get_content t in
-              (v'#extension#to_cic_term, t'#extension#to_cic_term)
-        | _ -> raise (IllFormedXml 6)
-      and xid = string_of_attr (n#attribute "id") in
-       let res = C.ADefinition (xid, ref None, id, value, typ, params) in
-        register_id xid res ;
-        res
-  | D.T_element "Axiom" ->
-      let id = string_of_attr (n # attribute "name")
-      and params = uri_list_of_attr (n # attribute "params")
-      and typ = 
-       (get_content (get_content n))#extension#to_cic_term
-      and xid = string_of_attr (n#attribute "id") in
-       let res = C.AAxiom (xid, ref None, id, typ, params) in
-        register_id xid res ;
-        res
-  | D.T_element "CurrentProof" ->
-     let name = string_of_attr (n#attribute "name")
-     and xid = string_of_attr (n#attribute "id") in
-     let sons = n#sub_nodes in
-      let (conjs, value, typ) = get_conjs_value_type sons in
-       let res = C.ACurrentProof (xid, ref None, name, conjs, value, typ) in
-        register_id xid res ;
-        res
-  | D.T_element "InductiveDefinition" ->
-     let sons = n#sub_nodes
-     and xid = string_of_attr (n#attribute "id") in
-      let inductiveTypes = get_inductive_types sons
-      and params = uri_list_of_attr (n#attribute "params")
-      and nparams = int_of_attr (n#attribute "noParams") in
-       let res =
-        C.AInductiveDefinition (xid, ref None, inductiveTypes, params, nparams)
-       in
-        register_id xid res ;
-        res
-  | D.T_element "Variable" ->
-     let name = string_of_attr (n#attribute "name")
-     and xid = string_of_attr (n#attribute "id")
-     and (body, typ) = 
-      let sons = n#sub_nodes in
-       match sons with
-          [b ; t] when
-            b#node_type = D.T_element "body" &&
-            t#node_type = D.T_element "type" ->
-             let b' = get_content b
-             and t' = get_content t in
-              (Some (b'#extension#to_cic_term), t'#extension#to_cic_term)
-        | [t] when t#node_type = D.T_element "type" ->
-             let t' = get_content t in
-              (None, t'#extension#to_cic_term)
-        | _ -> raise (IllFormedXml 6)
-     in
-      let res = C.AVariable (xid,ref None,name,body,typ) in
-       register_id xid res ;
-       res
-  | D.T_element _
-  | D.T_data
-  | _ ->
-     raise (IllFormedXml 7)
-;;

diff --git a/helm/interface/cicParser2.mli b/helm/interface/cicParser2.mli
deleted file mode 100644 (file)
index be0a000..0000000
--- a/helm/interface/cicParser2.mli
+++ /dev/null
@@ -1,57 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module is the objects level of a parser for cic objects from xml      *)
-(* files to the internal representation. It uses the module cicParser3        *)
-(* cicParser3 (terms level) and it is used only through cicParser2 (top       *)
-(* level).                                                                    *)
-(*                                                                            *)
-(******************************************************************************)
-
-exception IllFormedXml of int
-exception NotImplemented
-
-(* This is the main function and also the only one used directly from *)
-(* cicParser. Given the root of the dom tree, it returns the internal *)
-(* representation of the cic object described in the tree             *)
-(* It uses the previous functions and the to_cic_term method defined  *)
-(* in cicParser3 (used for subtrees that encode cic terms)            *)
-val get_term :
- < attribute : string -> Pxp_types.att_value;
-   node_type : Pxp_document.node_type;
-   sub_nodes : < attribute : string -> Pxp_types.att_value;
-                 node_type : Pxp_document.node_type;
-                 sub_nodes : CicParser3.cic_term Pxp_document.node list;
-                 .. >
-               list;
-   .. > ->
- Cic.annobj

diff --git a/helm/interface/cicParser3.ml b/helm/interface/cicParser3.ml
deleted file mode 100644 (file)
index 54b417f..0000000
--- a/helm/interface/cicParser3.ml
+++ /dev/null
@@ -1,564 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module is the terms level of a parser for cic objects from xml        *)
-(* files to the internal representation. It is used by the module cicParser2  *)
-(* (objects level). It defines an extension of the standard dom using the     *)
-(* object-oriented extension machinery of markup: an object with a method     *)
-(* to_cic_term that returns the internal representation of the subtree is     *)
-(* added to each node of the dom tree                                         *)
-(*                                                                            *)
-(******************************************************************************)
-
-exception IllFormedXml of int;;
-
-(* The hashtable from the current identifiers to the object or the terms *)
-let ids_to_targets = ref None;;
-
-(* The list of tokens of the current section path. *)
-(* Used to resolve relative URIs                   *)
-let current_sp = ref [];;
-
-(* The uri of the object been parsed *)
-let current_uri = ref (UriManager.uri_of_string "cic:/.xml");;
-
-(* True if annotation really matter *)
-let process_annotations = ref false;;
-
-(* Utility functions to map a markup attribute to something useful *)
-
-let cic_attr_of_xml_attr =
- function
-    Pxp_types.Value s       -> Cic.Name s
-  | Pxp_types.Implied_value -> Cic.Anonimous
-  | _             -> raise (IllFormedXml 1)
-
-let cic_sort_of_xml_attr =
- function
-    Pxp_types.Value "Prop" -> Cic.Prop
-  | Pxp_types.Value "Set"  -> Cic.Set
-  | Pxp_types.Value "Type" -> Cic.Type
-  | _            -> raise (IllFormedXml 2)
-
-let int_of_xml_attr =
- function
-    Pxp_types.Value n -> int_of_string n
-  | _       -> raise (IllFormedXml 3)
-
-let uri_of_xml_attr =
- function
-    Pxp_types.Value s -> UriManager.uri_of_string s
-  | _       -> raise (IllFormedXml 4)
-
-let string_of_xml_attr =
- function
-    Pxp_types.Value s -> s
-  | _       -> raise (IllFormedXml 5)
-
-let binder_of_xml_attr =
- function
-    Pxp_types.Value s -> if !process_annotations then Some s else None
-  | _       -> raise (IllFormedXml 17)
-;;
-
-let register_id id node =
- if !process_annotations then
-  match !ids_to_targets with
-     None -> assert false
-   | Some ids_to_targets ->
-      Hashtbl.add ids_to_targets id (Cic.Term node)
-;;
-
-(* the "interface" of the class linked to each node of the dom tree *)
-
-class virtual cic_term =
-  object (self)
-
-    (* fields and methods ever required by markup *)
-    val mutable node = (None : cic_term Pxp_document.node option)
-
-    method clone = {< >} 
-    method node =
-      match node with
-          None ->
-            assert false
-        | Some n -> n
-    method set_node n =
-      node <- Some n
-
-    (* a method that returns the internal representation of the tree (term) *)
-    (* rooted in this node                                                  *)
-    method virtual to_cic_term : Cic.annterm
-  end
-;;
-
-(* the class of the objects linked to nodes that are not roots of cic terms *)
-class eltype_not_of_cic =
-  object (self)
-
-     inherit cic_term
-
-     method to_cic_term = raise (IllFormedXml 6)
-  end
-;;
-
-(* the class of the objects linked to nodes whose content is a cic term *)
-(* (syntactic sugar xml entities) e.g. <type> ... </type>               *)
-class eltype_transparent =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      match n#sub_nodes with
-         [ t ]  -> t#extension#to_cic_term
-       | _  -> raise (IllFormedXml 7)
-  end
-;;
-
-(* A class for each cic node type *)
-
-class eltype_fix =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let nofun = int_of_xml_attr (n#attribute "noFun")
-      and id = string_of_xml_attr (n#attribute "id")
-      and functions =
-       let sons = n#sub_nodes in
-        List.map
-         (function
-             f when f#node_type = Pxp_document.T_element "FixFunction" ->
-              let name = string_of_xml_attr (f#attribute "name")
-              and recindex = int_of_xml_attr (f#attribute "recIndex")
-              and (ty, body) =
-               match f#sub_nodes with
-                  [t ; b] when
-                    t#node_type = Pxp_document.T_element "type" &&
-                    b#node_type = Pxp_document.T_element "body" ->
-                     (t#extension#to_cic_term, b#extension#to_cic_term)
-                | _ -> raise (IllFormedXml 14)
-              in
-               (name, recindex, ty, body)
-           | _ -> raise (IllFormedXml 13)
-         ) sons
-      in
-       let res = Cic.AFix (id, ref None, nofun, functions) in
-        register_id id res ;
-        res
-  end
-;;
-
-class eltype_cofix =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let nofun = int_of_xml_attr (n#attribute "noFun")
-      and id = string_of_xml_attr (n#attribute "id")
-      and functions =
-       let sons = n#sub_nodes in
-        List.map
-         (function
-             f when f#node_type = Pxp_document.T_element "CofixFunction" ->
-              let name = string_of_xml_attr (f#attribute "name")
-              and (ty, body) =
-               match f#sub_nodes with
-                  [t ; b] when
-                    t#node_type = Pxp_document.T_element "type" &&
-                    b#node_type = Pxp_document.T_element "body" ->
-                     (t#extension#to_cic_term, b#extension#to_cic_term)
-                | _ -> raise (IllFormedXml 16)
-              in
-               (name, ty, body)
-           | _ -> raise (IllFormedXml 15)
-         ) sons
-      in
-       let res = Cic.ACoFix (id, ref None, nofun, functions) in
-        register_id id res ;
-        res
-  end
-;;
-
-class eltype_implicit =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let id = string_of_xml_attr (n#attribute "id") in
-       let res = Cic.AImplicit (id, ref None) in
-        register_id id res ;
-        res
-  end
-;;
-
-class eltype_rel =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let value  = int_of_xml_attr (n#attribute "value")
-      and binder = binder_of_xml_attr (n#attribute "binder")
-      and id = string_of_xml_attr (n#attribute "id") in
-       let res = Cic.ARel (id,ref None,value,binder) in
-        register_id id res ;
-        res
-  end
-;;
-
-class eltype_meta =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let value = int_of_xml_attr (n#attribute "no")
-      and id = string_of_xml_attr (n#attribute "id") in
-       let res = Cic.AMeta (id,ref None,value) in
-        register_id id res ;
-        res
-  end
-;;
-
-class eltype_var =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let name = string_of_xml_attr (n#attribute "relUri")
-      and xid = string_of_xml_attr (n#attribute "id") in
-       match Str.split (Str.regexp ",") name with
-          [index; id] ->
-           let get_prefix n =
-            let rec aux =
-             function
-                (0,_) -> "/"
-              | (n,he::tl) when n > 0 -> "/" ^ he ^ aux (n - 1, tl)
-              | _ -> raise (IllFormedXml 19)
-            in   
-             aux (List.length !current_sp - n,!current_sp)
-           in
-            let res =
-             Cic.AVar
-              (xid,ref None, 
-               (UriManager.uri_of_string
-                ("cic:" ^ get_prefix (int_of_string index) ^ id ^ ".var"))
-              )
-            in
-             register_id id res ;
-             res
-        | _ -> raise (IllFormedXml 18)
-  end
-;;
-
-class eltype_apply =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let children = n#sub_nodes
-      and id = string_of_xml_attr (n#attribute "id") in
-       if List.length children < 2 then raise (IllFormedXml 8)
-       else
-        let res =
-         Cic.AAppl
-          (id,ref None,List.map (fun x -> x#extension#to_cic_term) children)
-        in
-         register_id id res ;
-         res
-  end
-;;
-
-class eltype_cast =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let sons = n#sub_nodes
-      and id = string_of_xml_attr (n#attribute "id") in
-       match sons with
-          [te ; ty] when
-            te#node_type = Pxp_document.T_element "term" &&
-            ty#node_type = Pxp_document.T_element "type" ->
-             let term = te#extension#to_cic_term
-             and typ  = ty#extension#to_cic_term in
-              let res = Cic.ACast (id,ref None,term,typ) in
-               register_id id res ;
-               res
-        | _  -> raise (IllFormedXml 9)
-  end
-;;
-
-class eltype_sort =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let sort = cic_sort_of_xml_attr (n#attribute "value")
-      and id = string_of_xml_attr (n#attribute "id") in
-       let res = Cic.ASort (id,ref None,sort) in
-        register_id id res ;
-        res
-  end
-;;
-
-class eltype_abst =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let value = uri_of_xml_attr (n#attribute "uri")
-      and id = string_of_xml_attr (n#attribute "id") in
-       let res = Cic.AAbst (id,ref None,value) in
-        register_id id res ;
-        res
-  end
-;;
-
-class eltype_const =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let module U = UriManager in
-      let n = self#node in
-       let value = uri_of_xml_attr (n#attribute "uri")
-       and id = string_of_xml_attr (n#attribute "id") in
-        let res =
-         Cic.AConst (id,ref None,value, U.relative_depth !current_uri value 0)
-        in
-         register_id id res ;
-         res
-  end
-;;
-
-class eltype_mutind =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let module U = UriManager in
-      let n = self#node in
-       let name = uri_of_xml_attr (n#attribute "uri")
-       and noType = int_of_xml_attr (n#attribute "noType")
-       and id = string_of_xml_attr (n#attribute "id") in
-        let res =
-         Cic.AMutInd
-          (id,ref None,name, U.relative_depth !current_uri name 0, noType)
-        in
-         register_id id res ;
-         res
-  end
-;;
-
-class eltype_mutconstruct =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let module U = UriManager in
-      let n = self#node in
-       let name = uri_of_xml_attr (n#attribute "uri")
-       and noType = int_of_xml_attr (n#attribute "noType")
-       and noConstr = int_of_xml_attr (n#attribute "noConstr")
-       and id = string_of_xml_attr (n#attribute "id") in
-        let res = 
-         Cic.AMutConstruct
-          (id, ref None, name, U.relative_depth !current_uri name 0,
-          noType, noConstr)
-        in
-         register_id id res ;
-         res
-  end
-;;
-
-class eltype_prod =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let sons = n#sub_nodes
-      and id = string_of_xml_attr (n#attribute "id") in
-       match sons with
-          [s ; t] when
-            s#node_type = Pxp_document.T_element "source" &&
-            t#node_type = Pxp_document.T_element "target" ->
-             let name = cic_attr_of_xml_attr (t#attribute "binder")
-             and source = s#extension#to_cic_term
-             and target = t#extension#to_cic_term in
-              let res = Cic.AProd (id,ref None,name,source,target) in
-               register_id id res ;
-               res
-        | _  -> raise (IllFormedXml 10)
-  end
-;;
-
-class eltype_mutcase =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let module U = UriManager in
-      let n = self#node in
-       let sons = n#sub_nodes
-       and id = string_of_xml_attr (n#attribute "id") in
-        match sons with
-           ty::te::patterns when
-             ty#node_type = Pxp_document.T_element "patternsType" &&
-             te#node_type = Pxp_document.T_element "inductiveTerm" ->
-              let ci = uri_of_xml_attr (n#attribute "uriType")
-              and typeno = int_of_xml_attr (n#attribute "noType")
-              and inductiveType = ty#extension#to_cic_term
-              and inductiveTerm = te#extension#to_cic_term
-              and lpattern= List.map (fun x -> x#extension#to_cic_term) patterns
-              in
-               let res =
-                Cic.AMutCase (id,ref None,ci,U.relative_depth !current_uri ci 0,
-                 typeno,inductiveType,inductiveTerm,lpattern)
-               in
-                register_id id res ;
-                res
-         | _  -> raise (IllFormedXml 11)
-  end
-;;
-
-class eltype_lambda =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let sons = n#sub_nodes
-      and id = string_of_xml_attr (n#attribute "id") in
-       match sons with
-          [s ; t] when
-            s#node_type = Pxp_document.T_element "source" &&
-            t#node_type = Pxp_document.T_element "target" ->
-             let name = cic_attr_of_xml_attr (t#attribute "binder")
-             and source = s#extension#to_cic_term
-             and target = t#extension#to_cic_term in
-              let res = Cic.ALambda (id,ref None,name,source,target) in
-               register_id id res ;
-               res
-        | _  -> raise (IllFormedXml 12)
-  end
-;;
-
-class eltype_letin =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let sons = n#sub_nodes
-      and id = string_of_xml_attr (n#attribute "id") in
-       match sons with
-          [s ; t] when
-            s#node_type = Pxp_document.T_element "term" &&
-            t#node_type = Pxp_document.T_element "letintarget" ->
-             let name = cic_attr_of_xml_attr (t#attribute "binder")
-             and source = s#extension#to_cic_term
-             and target = t#extension#to_cic_term in
-              let res = Cic.ALetIn (id,ref None,name,source,target) in
-               register_id id res ;
-               res
-        | _  -> raise (IllFormedXml 12)
-  end
-;;
-
-(* The definition of domspec, an hashtable that maps each node type to the *)
-(* object that must be linked to it. Used by markup.                       *)
-
-let domspec =
- let module D = Pxp_document in
-  D.make_spec_from_alist
-   ~data_exemplar: (new D.data_impl (new eltype_not_of_cic))
-   ~default_element_exemplar: (new D.element_impl (new eltype_not_of_cic))
-   ~element_alist:
-    [ "REL",           (new D.element_impl (new eltype_rel)) ;
-      "VAR",           (new D.element_impl (new eltype_var)) ;
-      "META",          (new D.element_impl (new eltype_meta)) ;
-      "SORT",          (new D.element_impl (new eltype_sort)) ;
-      "IMPLICIT",      (new D.element_impl (new eltype_implicit)) ;
-      "CAST",          (new D.element_impl (new eltype_cast)) ;
-      "PROD",          (new D.element_impl (new eltype_prod)) ;
-      "LAMBDA",        (new D.element_impl (new eltype_lambda)) ;
-      "LETIN",         (new D.element_impl (new eltype_letin)) ;
-      "APPLY",         (new D.element_impl (new eltype_apply)) ;
-      "CONST",         (new D.element_impl (new eltype_const)) ;
-      "ABST",          (new D.element_impl (new eltype_abst)) ;
-      "MUTIND",        (new D.element_impl (new eltype_mutind)) ;
-      "MUTCONSTRUCT",  (new D.element_impl (new eltype_mutconstruct)) ;
-      "MUTCASE",       (new D.element_impl (new eltype_mutcase)) ;
-      "FIX",           (new D.element_impl (new eltype_fix)) ;
-      "COFIX",         (new D.element_impl (new eltype_cofix)) ;
-      "arity",         (new D.element_impl (new eltype_transparent)) ;
-      "term",          (new D.element_impl (new eltype_transparent)) ;
-      "type",          (new D.element_impl (new eltype_transparent)) ;
-      "body",          (new D.element_impl (new eltype_transparent)) ;
-      "source",        (new D.element_impl (new eltype_transparent)) ;
-      "target",        (new D.element_impl (new eltype_transparent)) ;
-      "patternsType",  (new D.element_impl (new eltype_transparent)) ;
-      "inductiveTerm", (new D.element_impl (new eltype_transparent)) ;
-      "pattern",       (new D.element_impl (new eltype_transparent))
-    ]
-   ()
-;;

diff --git a/helm/interface/cicParser3.mli b/helm/interface/cicParser3.mli
deleted file mode 100644 (file)
index ada1b2e..0000000
--- a/helm/interface/cicParser3.mli
+++ /dev/null
@@ -1,67 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module is the terms level of a parser for cic objects from xml        *)
-(* files to the internal representation. It is used by the module cicParser2  *)
-(* (objects level). It defines an extension of the standard dom using the     *)
-(* object-oriented extension machinery of markup: an object with a method     *)
-(* to_cic_term that returns the internal representation of the subtree is     *)
-(* added to each node of the dom tree                                         *)
-(*                                                                            *)
-(******************************************************************************)
-
-exception IllFormedXml of int
-
-val ids_to_targets : (Cic.id, Cic.anntarget) Hashtbl.t option ref
-val current_sp : string list ref
-val current_uri : UriManager.uri ref
-val process_annotations : bool ref
-
-(* the "interface" of the class linked to each node of the dom tree *)
-class virtual cic_term :
-  object ('a)
-
-    (* fields and methods ever required by markup *)
-    val mutable node : cic_term Pxp_document.node option
-    method clone : 'a
-    method node : cic_term Pxp_document.node
-    method set_node : cic_term Pxp_document.node -> unit
-
-    (* a method that returns the internal representation of the tree (term) *)
-    (* rooted in this node                                                  *)
-    method virtual to_cic_term : Cic.annterm
-
-  end
-
-(* The definition of domspec, an hashtable that maps each node type to the *)
-(* object that must be linked to it. Used by markup.                       *)
-val domspec : cic_term Pxp_document.spec

diff --git a/helm/interface/cicPp.ml b/helm/interface/cicPp.ml
deleted file mode 100644 (file)
index 0270f99..0000000
--- a/helm/interface/cicPp.ml
+++ /dev/null
@@ -1,211 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module implements a very simple Coq-like pretty printer that, given   *)
-(* an object of cic (internal representation) returns a string describing the *)
-(* object in a syntax similar to that of coq                                  *)
-(*                                                                            *)
-(******************************************************************************)
-
-exception CicPpInternalError;;
-
-(* Utility functions *)
-
-let string_of_name =
- function
-    Cic.Name s     -> s
-  | Cic.Anonimous  -> "_"
-;;
-
-(* get_nth l n   returns the nth element of the list l if it exists or raise *)
-(* a CicPpInternalError if l has less than n elements or n < 1               *)
-let rec get_nth l n =
- match (n,l) with
-    (1, he::_) -> he
-  | (n, he::tail) when n > 1 -> get_nth tail (n-1)
-  | (_,_) -> raise CicPpInternalError
-;;
-
-(* pp t l                                                                  *)
-(* pretty-prints a term t of cic in an environment l where l is a list of  *)
-(* identifier names used to resolve DeBrujin indexes. The head of l is the *)
-(* name associated to the greatest DeBrujin index in t                     *)
-let rec pp t l =
- let module C = Cic in
-   match t with
-      C.Rel n ->
-       (match get_nth l n with
-           C.Name s -> s
-         | _        -> raise CicPpInternalError
-       )
-    | C.Var uri -> UriManager.name_of_uri uri
-    | C.Meta n -> "?" ^ (string_of_int n)
-    | C.Sort s ->
-       (match s with
-           C.Prop -> "Prop"
-         | C.Set  -> "Set"
-         | C.Type -> "Type"
-       )
-    | C.Implicit -> "?"
-    | C.Prod (b,s,t) ->
-       (match b with
-          C.Name n -> "(" ^ n ^ ":" ^ pp s l ^ ")" ^ pp t (b::l)
-        | C.Anonimous -> "(" ^ pp s l ^ "->" ^ pp t (b::l) ^ ")"
-       )
-    | C.Cast (v,t) -> pp v l
-    | C.Lambda (b,s,t) ->
-       "[" ^ string_of_name b ^ ":" ^ pp s l ^ "]" ^ pp t (b::l)
-    | C.LetIn (b,s,t) ->
-       "[" ^ string_of_name b ^ ":=" ^ pp s l ^ "]" ^ pp t (b::l)
-    | C.Appl li ->
-       "(" ^
-       (List.fold_right
-        (fun x i -> pp x l ^ (match i with "" -> "" | _ -> " ") ^ i)
-        li ""
-       ) ^ ")"
-    | C.Const (uri,_) -> UriManager.name_of_uri uri
-    | C.Abst uri -> UriManager.name_of_uri uri
-    | C.MutInd (uri,_,n) ->
-       (match CicCache.get_obj uri with
-           C.InductiveDefinition (dl,_,_) ->
-            let (name,_,_,_) = get_nth dl (n+1) in
-             name
-         | _ -> raise CicPpInternalError
-       )
-    | C.MutConstruct (uri,_,n1,n2) ->
-       (match CicCache.get_obj uri with
-           C.InductiveDefinition (dl,_,_) ->
-            let (_,_,_,cons) = get_nth dl (n1+1) in
-             let (id,_,_) = get_nth cons n2 in
-              id
-         | _ -> raise CicPpInternalError
-       )
-    | C.MutCase (uri,_,n1,ty,te,patterns) ->
-       let connames =
-        (match CicCache.get_obj uri with
-            C.InductiveDefinition (dl,_,_) ->
-             let (_,_,_,cons) = get_nth dl (n1+1) in
-              List.map (fun (id,_,_) -> id) cons
-          | _ -> raise CicPpInternalError
-        )
-       in
-        "\n<" ^ pp ty l ^ ">Cases " ^ pp te l ^ " of " ^
-          List.fold_right (fun (x,y) i -> "\n " ^ x ^ " => " ^ pp y l ^ i)
-           (List.combine connames patterns) "" ^
-          "\nend"
-    | C.Fix (no, funs) ->
-       let snames = List.map (fun (name,_,_,_) -> name) funs in
-        let names = List.rev (List.map (function name -> C.Name name) snames) in
-         "\nFix " ^ get_nth snames (no + 1) ^ " {" ^
-         List.fold_right
-          (fun (name,ind,ty,bo) i -> "\n" ^ name ^ " / " ^ string_of_int ind ^
-            " : " ^ pp ty l ^ " := \n" ^
-            pp bo (names@l) ^ i)
-          funs "" ^
-         "}\n"
-    | C.CoFix (no,funs) ->
-       let snames = List.map (fun (name,_,_) -> name) funs in
-        let names = List.rev (List.map (function name -> C.Name name) snames) in
-         "\nCoFix " ^ get_nth snames (no + 1) ^ " {" ^
-         List.fold_right
-          (fun (name,ty,bo) i -> "\n" ^ name ^ 
-            " : " ^ pp ty l ^ " := \n" ^
-            pp bo (names@l) ^ i)
-          funs "" ^
-         "}\n"
-;;
-
-(* ppinductiveType (typename, inductive, arity, cons) names                 *)
-(* pretty-prints a single inductive definition (typename, inductive, arity, *)
-(*  cons) where the cic terms in the inductive definition need to be        *)
-(*  evaluated in the environment names that is the list of typenames of the *)
-(*  mutual inductive definitions defined in the block of mutual inductive   *)
-(*  definitions to which this one belongs to                                *)
-let ppinductiveType (typename, inductive, arity, cons) names =
-  (if inductive then "\nInductive " else "\nCoInductive ") ^ typename ^ ": " ^
-  (*CSC: bug found: was pp arity names ^ " =\n   " ^*)
-  pp arity [] ^ " =\n   " ^
-  List.fold_right
-   (fun (id,ty,_) i -> id ^ " : " ^ pp ty names ^ 
-    (if i = "" then "\n" else "\n | ") ^ i)
-   cons ""
-;;
-
-(* ppobj obj  returns a string with describing the cic object obj in a syntax *)
-(* similar to the one used by Coq                                             *)
-let ppobj obj =
- let module C = Cic in
- let module U = UriManager in
-  match obj with
-    C.Definition (id, t1, t2, params) ->
-      "Definition of " ^ id ^
-      "(" ^
-      List.fold_right
-       (fun (_,x) i ->
-         List.fold_right
-          (fun x i ->
-            U.string_of_uri x ^ match i with "" -> "" | i' -> " " ^ i'
-          ) x "" ^ match i with "" -> "" | i' -> " " ^ i'
-       ) params "" ^ ")" ^
-      ":\n" ^ pp t1 [] ^ " : " ^ pp t2 []
-   | C.Axiom (id, ty, params) ->
-      "Axiom " ^ id ^ "(" ^
-      List.fold_right
-       (fun (_,x) i ->
-         List.fold_right
-          (fun x i ->
-            U.string_of_uri x ^ match i with "" -> "" | i' -> " " ^ i'
-          ) x "" ^ match i with "" -> "" | i' -> " " ^ i'
-       ) params "" ^
-      "):\n" ^ pp ty []
-   | C.Variable (name, bo, ty) ->
-      "Variable " ^ name ^ ":\n" ^ pp ty [] ^ "\n" ^
-      (match bo with None -> "" | Some bo -> ":= " ^ pp bo [])
-   | C.CurrentProof (name, conjectures, value, ty) ->
-      "Current Proof:\n" ^
-      List.fold_right
-       (fun (n, t) i -> "?" ^ (string_of_int n) ^ ": " ^ pp t [] ^ "\n" ^ i)
-       conjectures "" ^
-      "\n" ^ pp value [] ^ " : " ^ pp ty [] 
-   | C.InductiveDefinition (l, params, nparams) ->
-      "Parameters = " ^
-      List.fold_right
-       (fun (_,x) i ->
-         List.fold_right
-          (fun x i ->
-            U.string_of_uri x ^ match i with "" -> "" | i' -> " " ^ i'
-          ) x "" ^ match i with "" -> "" | i' -> " " ^ i'
-       ) params "" ^ "\n" ^
-      "NParams = " ^ string_of_int nparams ^ "\n" ^
-      let names = List.rev (List.map (fun (n,_,_,_) -> C.Name n) l) in
-       List.fold_right (fun x i -> ppinductiveType x names ^ i) l ""
-;;

diff --git a/helm/interface/cicPp.mli b/helm/interface/cicPp.mli
deleted file mode 100644 (file)
index 99757d1..0000000
--- a/helm/interface/cicPp.mli
+++ /dev/null
@@ -1,41 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module implements a very simple Coq-like pretty printer that, given   *)
-(* an object of cic (internal representation) returns a string describing the *)
-(* object in a syntax similar to that of coq                                  *)
-(*                                                                            *)
-(******************************************************************************)
-
-(* ppobj obj  returns a string with describing the cic object obj in a syntax *)
-(* similar to the one used by Coq                                             *)
-val ppobj : Cic.obj -> string

diff --git a/helm/interface/cicReduction.ml b/helm/interface/cicReduction.ml
deleted file mode 100644 (file)
index 65e2f71..0000000
--- a/helm/interface/cicReduction.ml
+++ /dev/null
@@ -1,278 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception CicReductionInternalError;;
-exception WrongUriToInductiveDefinition;;
-
-let fdebug = ref 1;;
-let debug t env s =
- let rec debug_aux t i =
-  let module C = Cic in
-  let module U = UriManager in
-   CicPp.ppobj (C.Variable ("DEBUG", None,
-    C.Prod (C.Name "-9", C.Const (U.uri_of_string "cic:/dummy-9",0),
-     C.Prod (C.Name "-8", C.Const (U.uri_of_string "cic:/dummy-8",0),
-      C.Prod (C.Name "-7", C.Const (U.uri_of_string "cic:/dummy-7",0),
-       C.Prod (C.Name "-6", C.Const (U.uri_of_string "cic:/dummy-6",0),
-        C.Prod (C.Name "-5", C.Const (U.uri_of_string "cic:/dummy-5",0),
-         C.Prod (C.Name "-4", C.Const (U.uri_of_string "cic:/dummy-4",0),
-          C.Prod (C.Name "-3", C.Const (U.uri_of_string "cic:/dummy-3",0),
-           C.Prod (C.Name "-2", C.Const (U.uri_of_string "cic:/dummy-2",0),
-            C.Prod (C.Name "-1", C.Const (U.uri_of_string "cic:/dummy-1",0),
-             t
-            )
-           )
-          )
-         )
-        )
-       )
-      )
-     )
-    )
-    )) ^ "\n" ^ i
- in
-  if !fdebug = 0 then
-   begin
-    print_endline (s ^ "\n" ^ List.fold_right debug_aux (t::env) "") ;
-    flush stdout
-   end
-;;
-
-exception Impossible of int;;
-exception ReferenceToDefinition;;
-exception ReferenceToAxiom;;
-exception ReferenceToVariable;;
-exception ReferenceToCurrentProof;;
-exception ReferenceToInductiveDefinition;;
-
-(* takes a well-typed term *)
-let whd =
- let rec whdaux l =
-  let module C = Cic in
-  let module S = CicSubstitution in
-   function
-      C.Rel _ as t -> if l = [] then t else C.Appl (t::l)
-    | C.Var _ as t -> if l = [] then t else C.Appl (t::l)
-    | C.Meta _ as t -> if l = [] then t else C.Appl (t::l)
-    | C.Sort _ as t -> t (* l should be empty *)
-    | C.Implicit as t -> t
-    | C.Cast (te,ty) -> whdaux l te  (*CSC E' GIUSTO BUTTARE IL CAST? *)
-    | C.Prod _ as t -> t (* l should be empty *)
-    | C.Lambda (name,s,t) as t' ->
-       (match l with
-           [] -> t'
-         | he::tl -> whdaux tl (S.subst he t)
-           (* when name is Anonimous the substitution should be superfluous *)
-       )
-    | C.Appl (he::tl) -> whdaux (tl@l) he
-    | C.Appl [] -> raise (Impossible 1)
-    | C.Const (uri,cookingsno) as t ->
-       (match CicCache.get_cooked_obj uri cookingsno with
-           C.Definition (_,body,_,_) -> whdaux l body
-         | C.Axiom _ -> if l = [] then t else C.Appl (t::l)
-         (*CSC: Prossima riga sbagliata: Var punta alle variabili, non Const *)
-         | C.Variable _ -> if l = [] then t else C.Appl (t::l)
-         | C.CurrentProof (_,_,body,_) -> whdaux l body
-         | C.InductiveDefinition _ -> raise ReferenceToInductiveDefinition
-       )
-    | C.Abst _ as t -> t (*CSC l should be empty ????? *)
-    | C.MutInd (uri,_,_) as t -> if l = [] then t else C.Appl (t::l)
-    | C.MutConstruct (uri,_,_,_) as t -> if l = [] then t else C.Appl (t::l)
-    | C.MutCase (mutind,cookingsno,i,_,term,pl) as t ->
-       let decofix =
-        function
-           C.CoFix (i,fl) as t ->
-            let (_,_,body) = List.nth fl i in
-             let body' =
-              let counter = ref (List.length fl) in
-               List.fold_right
-                (fun _ -> decr counter ; S.subst (C.CoFix (!counter,fl)))
-                fl
-                body
-             in
-              whdaux [] body'
-         | C.Appl (C.CoFix (i,fl) :: tl) ->
-            let (_,_,body) = List.nth fl i in
-             let body' =
-              let counter = ref (List.length fl) in
-               List.fold_right
-                (fun _ -> decr counter ; S.subst (C.CoFix (!counter,fl)))
-                fl
-                body
-             in
-              whdaux tl body'
-         | t -> t
-       in
-        (match decofix (whdaux [] term) with
-            C.MutConstruct (_,_,_,j) -> whdaux l (List.nth pl (j-1))
-          | C.Appl (C.MutConstruct (_,_,_,j) :: tl) ->
-             let (arity, r, num_ingredients) =
-              match CicCache.get_obj mutind with
-                 C.InductiveDefinition (tl,ingredients,r) ->
-                   let (_,_,arity,_) = List.nth tl i
-                   and num_ingredients =
-                    List.fold_right
-                     (fun (k,l) i ->
-                       if k < cookingsno then i + List.length l else i
-                     ) ingredients 0
-                   in
-                    (arity,r,num_ingredients)
-               | _ -> raise WrongUriToInductiveDefinition
-             in
-              let ts =
-               let num_to_eat = r + num_ingredients in
-                let rec eat_first =
-                 function
-                    (0,l) -> l
-                  | (n,he::tl) when n > 0 -> eat_first (n - 1, tl)
-                  | _ -> raise (Impossible 5)
-                in
-                 eat_first (num_to_eat,tl)
-              in
-               whdaux (ts@l) (List.nth pl (j-1))
-         | C.Abst _| C.Cast _ | C.Implicit ->
-            raise (Impossible 2) (* we don't trust our whd ;-) *)
-         | _ -> t
-       )
-    | C.Fix (i,fl) as t ->
-       let (_,recindex,_,body) = List.nth fl i in
-        let recparam =
-         try
-          Some (List.nth l recindex)
-         with
-          _ -> None
-        in
-         (match recparam with
-             Some recparam ->
-              (match whdaux [] recparam with
-                  C.MutConstruct _
-                | C.Appl ((C.MutConstruct _)::_) ->
-                   let body' =
-                    let counter = ref (List.length fl) in
-                     List.fold_right
-                      (fun _ -> decr counter ; S.subst (C.Fix (!counter,fl)))
-                      fl
-                      body
-                   in
-                    (* Possible optimization: substituting whd recparam in l *)
-                    whdaux l body'
-               | _ -> if l = [] then t else C.Appl (t::l)
-             )
-          | None -> if l = [] then t else C.Appl (t::l)
-         )
-    | C.CoFix (i,fl) as t ->
-       (*CSC vecchio codice
-       let (_,_,body) = List.nth fl i in
-        let body' =
-         let counter = ref (List.length fl) in
-          List.fold_right
-           (fun _ -> decr counter ; S.subst (C.CoFix (!counter,fl)))
-           fl
-           body
-        in
-         whdaux l body'
-       *)
-       if l = [] then t else C.Appl (t::l)
- in
-  whdaux []
-;;
-
-(* t1, t2 must be well-typed *)
-let are_convertible t1 t2 =
- let module U = UriManager in
- let rec aux t1 t2 =
-  debug t1 [t2] "PREWHD";
-  (* this trivial euristic cuts down the total time of about five times ;-) *)
-  (* this because most of the time t1 and t2 are "sintactically" the same   *)
-  if t1 = t2 then
-   true
-  else
-   begin
-    let module C = Cic in
-     let t1' = whd t1 
-     and t2' = whd t2 in
-     debug t1' [t2'] "POSTWHD";
-     (*if !fdebug = 0 then ignore(Unix.system "read" );*)
-      match (t1',t2') with
-         (C.Rel n1, C.Rel n2) -> n1 = n2
-       | (C.Var uri1, C.Var uri2) -> U.eq uri1 uri2
-       | (C.Meta n1, C.Meta n2) -> n1 = n2
-       | (C.Sort s1, C.Sort s2) -> true (*CSC da finire con gli universi *)
-       | (C.Prod (_,s1,t1), C.Prod(_,s2,t2)) ->
-          aux s1 s2 && aux t1 t2
-       | (C.Lambda (_,s1,t1), C.Lambda(_,s2,t2)) ->
-          aux s1 s2 && aux t1 t2
-       | (C.Appl l1, C.Appl l2) ->
-          (try
-            List.fold_right2 (fun  x y b -> aux x y && b) l1 l2 true 
-           with
-            Invalid_argument _ -> false
-          )
-       | (C.Const (uri1,_), C.Const (uri2,_)) ->
-           (*CSC: questo commento e' chiaro o delirante? Io lo sto scrivendo *)
-           (*CSC: mentre sono delirante, quindi ...                          *)
-           (* WARNING: it is really important that the two cookingsno are not *)
-           (* checked for equality. This allows not to cook an object with no *)
-           (* ingredients only to update the cookingsno. E.g: if a term t has *)
-           (* a reference to a term t1 which does not depend on any variable  *)
-           (* and t1 depends on a term t2 (that can't depend on any variable  *)
-           (* because of t1), then t1 cooked at every level could be the same *)
-           (* as t1 cooked at level 0. Doing so, t2 will be extended in t     *)
-           (* with cookingsno 0 and not 2. But this will not cause any trouble*)
-           (* if here we don't check that the two cookingsno are equal.       *)
-           U.eq uri1 uri2
-       | (C.MutInd (uri1,k1,i1), C.MutInd (uri2,k2,i2)) ->
-           (* WARNIG: see the previous warning *)
-           U.eq uri1 uri2 && i1 = i2
-       | (C.MutConstruct (uri1,_,i1,j1), C.MutConstruct (uri2,_,i2,j2)) ->
-           (* WARNIG: see the previous warning *)
-           U.eq uri1 uri2 && i1 = i2 && j1 = j2
-       | (C.MutCase (uri1,_,i1,outtype1,term1,pl1),
-          C.MutCase (uri2,_,i2,outtype2,term2,pl2)) -> 
-           (* WARNIG: see the previous warning *)
-           (* aux outtype1 outtype2 should be true if aux pl1 pl2 *)
-           U.eq uri1 uri2 && i1 = i2 && aux outtype1 outtype2 &&
-            aux term1 term2 &&
-            List.fold_right2 (fun x y b -> b && aux x y) pl1 pl2 true
-       | (C.Fix (i1,fl1), C.Fix (i2,fl2)) ->
-          i1 = i2 &&
-           List.fold_right2
-            (fun (_,recindex1,ty1,bo1) (_,recindex2,ty2,bo2) b ->
-              b && recindex1 = recindex2 && aux ty1 ty2 && aux bo1 bo2)
-            fl1 fl2 true
-       | (C.CoFix (i1,fl1), C.CoFix (i2,fl2)) ->
-          i1 = i2 &&
-           List.fold_right2
-            (fun (_,ty1,bo1) (_,ty2,bo2) b ->
-              b && aux ty1 ty2 && aux bo1 bo2)
-            fl1 fl2 true
-       | (C.Abst _, _) | (_, C.Abst _) | (C.Cast _, _) | (_, C.Cast _)
-       | (C.Implicit, _) | (_, C.Implicit) ->
-          raise (Impossible 3) (* we don't trust our whd ;-) *)
-       | (_,_) -> false
-   end
- in
-  aux t1 t2
-;;

diff --git a/helm/interface/cicReduction.mli b/helm/interface/cicReduction.mli
deleted file mode 100644 (file)
index d61bc72..0000000
--- a/helm/interface/cicReduction.mli
+++ /dev/null
@@ -1,34 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception WrongUriToInductiveDefinition
-exception ReferenceToDefinition
-exception ReferenceToAxiom
-exception ReferenceToVariable
-exception ReferenceToCurrentProof
-exception ReferenceToInductiveDefinition
-val fdebug : int ref
-val whd : Cic.term -> Cic.term
-val are_convertible : Cic.term -> Cic.term -> bool

diff --git a/helm/interface/cicSubstitution.ml b/helm/interface/cicSubstitution.ml
deleted file mode 100644 (file)
index 434e670..0000000
--- a/helm/interface/cicSubstitution.ml
+++ /dev/null
@@ -1,140 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-let lift n =
- let rec liftaux k =
-  let module C = Cic in
-   function
-      C.Rel m ->
-       if m < k then
-        C.Rel m
-       else
-        C.Rel (m + n)
-    | C.Var _  as t -> t
-    | C.Meta _ as t -> t
-    | C.Sort _ as t -> t
-    | C.Implicit as t -> t
-    | C.Cast (te,ty) -> C.Cast (liftaux k te, liftaux k ty)
-    | C.Prod (n,s,t) -> C.Prod (n, liftaux k s, liftaux (k+1) t)
-    | C.Lambda (n,s,t) -> C.Lambda (n, liftaux k s, liftaux (k+1) t)
-    | C.Appl l -> C.Appl (List.map (liftaux k) l)
-    | C.Const _ as t -> t
-    | C.Abst _  as t -> t
-    | C.MutInd _ as t -> t
-    | C.MutConstruct _ as t -> t
-    | C.MutCase (sp,cookingsno,i,outty,t,pl) ->
-       C.MutCase (sp, cookingsno, i, liftaux k outty, liftaux k t,
-        List.map (liftaux k) pl)
-    | C.Fix (i, fl) ->
-       let len = List.length fl in
-       let liftedfl =
-        List.map
-         (fun (name, i, ty, bo) -> (name, i, liftaux k ty, liftaux (k+len) bo))
-          fl
-       in
-        C.Fix (i, liftedfl)
-    | C.CoFix (i, fl) ->
-       let len = List.length fl in
-       let liftedfl =
-        List.map
-         (fun (name, ty, bo) -> (name, liftaux k ty, liftaux (k+len) bo))
-          fl
-       in
-        C.CoFix (i, liftedfl)
- in
-  liftaux 1
-;;
-
-let subst arg =
- let rec substaux k =
-  let module C = Cic in
-   function
-      C.Rel n as t ->
-       (match n with
-           n when n = k -> lift (k - 1) arg
-         | n when n < k -> t
-         | _            -> C.Rel (n - 1)
-       )
-    | C.Var _ as t  -> t
-    | C.Meta _ as t -> t
-    | C.Sort _ as t -> t
-    | C.Implicit as t -> t
-    | C.Cast (te,ty) -> C.Cast (substaux k te, substaux k ty) (*CSC ??? *)
-    | C.Prod (n,s,t) -> C.Prod (n, substaux k s, substaux (k + 1) t)
-    | C.Lambda (n,s,t) -> C.Lambda (n, substaux k s, substaux (k + 1) t)
-    | C.Appl l -> C.Appl (List.map (substaux k) l)
-    | C.Const _ as t -> t
-    | C.Abst _ as t -> t
-    | C.MutInd _ as t -> t
-    | C.MutConstruct _ as t -> t
-    | C.MutCase (sp,cookingsno,i,outt,t,pl) ->
-       C.MutCase (sp,cookingsno,i,substaux k outt, substaux k t,
-        List.map (substaux k) pl)
-    | C.Fix (i,fl) ->
-       let len = List.length fl in
-       let substitutedfl =
-        List.map
-         (fun (name,i,ty,bo) -> (name, i, substaux k ty, substaux (k+len) bo))
-          fl
-       in
-        C.Fix (i, substitutedfl)
-    | C.CoFix (i,fl) ->
-       let len = List.length fl in
-       let substitutedfl =
-        List.map
-         (fun (name,ty,bo) -> (name, substaux k ty, substaux (k+len) bo))
-          fl
-       in
-        C.CoFix (i, substitutedfl)
- in
-  substaux 1
-;;
-
-let undebrujin_inductive_def uri =
- function
-    Cic.InductiveDefinition (dl,params,n_ind_params) ->
-     let dl' =
-      List.map
-       (fun (name,inductive,arity,constructors) ->
-         let constructors' =
-          List.map
-           (fun (name,ty,r) ->
-             let ty' =
-              let counter = ref (List.length dl) in
-               List.fold_right
-                (fun _ ->
-                  decr counter ;
-                  subst (Cic.MutInd (uri,0,!counter))
-                ) dl ty
-             in
-              (name,ty',r)
-           ) constructors
-         in
-          (name,inductive,arity,constructors')
-       ) dl
-      in
-       Cic.InductiveDefinition (dl', params, n_ind_params)
-  | obj -> obj
-;;

diff --git a/helm/interface/cicSubstitution.mli b/helm/interface/cicSubstitution.mli
deleted file mode 100644 (file)
index 72e9a32..0000000
--- a/helm/interface/cicSubstitution.mli
+++ /dev/null
@@ -1,28 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-val lift : int -> Cic.term -> Cic.term
-val subst : Cic.term -> Cic.term -> Cic.term
-val undebrujin_inductive_def : UriManager.uri -> Cic.obj -> Cic.obj

diff --git a/helm/interface/cicTypeChecker.ml b/helm/interface/cicTypeChecker.ml
deleted file mode 100644 (file)
index ea1c28c..0000000
--- a/helm/interface/cicTypeChecker.ml
+++ /dev/null
@@ -1,1255 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception NotImplemented;;
-exception Impossible;;
-exception NotWellTyped of string;;
-exception WrongUriToConstant of string;;
-exception WrongUriToVariable of string;;
-exception WrongUriToMutualInductiveDefinitions of string;;
-exception ListTooShort;;
-exception NotPositiveOccurrences of string;;
-exception NotWellFormedTypeOfInductiveConstructor of string;;
-exception WrongRequiredArgument of string;;
-
-let fdebug = ref 0;;
-let debug t env =
- let rec debug_aux t i =
-  let module C = Cic in
-  let module U = UriManager in
-   CicPp.ppobj (C.Variable ("DEBUG", None,
-    C.Prod (C.Name "-15", C.Const (U.uri_of_string "cic:/dummy-15",0),
-    C.Prod (C.Name "-14", C.Const (U.uri_of_string "cic:/dummy-14",0),
-    C.Prod (C.Name "-13", C.Const (U.uri_of_string "cic:/dummy-13",0),
-    C.Prod (C.Name "-12", C.Const (U.uri_of_string "cic:/dummy-12",0),
-    C.Prod (C.Name "-11", C.Const (U.uri_of_string "cic:/dummy-11",0),
-    C.Prod (C.Name "-10", C.Const (U.uri_of_string "cic:/dummy-10",0),
-    C.Prod (C.Name "-9", C.Const (U.uri_of_string "cic:/dummy-9",0),
-    C.Prod (C.Name "-8", C.Const (U.uri_of_string "cic:/dummy-8",0),
-    C.Prod (C.Name "-7", C.Const (U.uri_of_string "cic:/dummy-7",0),
-    C.Prod (C.Name "-6", C.Const (U.uri_of_string "cic:/dummy-6",0),
-     C.Prod (C.Name "-5", C.Const (U.uri_of_string "cic:/dummy-5",0),
-      C.Prod (C.Name "-4", C.Const (U.uri_of_string "cic:/dummy-4",0),
-       C.Prod (C.Name "-3", C.Const (U.uri_of_string "cic:/dummy-3",0),
-        C.Prod (C.Name "-2", C.Const (U.uri_of_string "cic:/dummy-2",0),
-         C.Prod (C.Name "-1", C.Const (U.uri_of_string "cic:/dummy-1",0),
-          t
-         )
-        )
-       )
-      )
-     )
-    )
-    )
-    )
-    )))))))
-    )) ^ "\n" ^ i
- in
-  if !fdebug = 0 then
-   raise (NotWellTyped ("\n" ^ List.fold_right debug_aux (t::env) ""))
-   (*print_endline ("\n" ^ List.fold_right debug_aux (t::env) "") ; flush stdout*)
-;;
-
-let rec split l n =
- match (l,n) with
-    (l,0) -> ([], l)
-  | (he::tl, n) -> let (l1,l2) = split tl (n-1) in (he::l1,l2)
-  | (_,_) -> raise ListTooShort
-;;
-
-exception CicCacheError;;
-
-let rec cooked_type_of_constant uri cookingsno =
- let module C = Cic in
- let module R = CicReduction in
- let module U = UriManager in
-  let cobj =
-   match CicCache.is_type_checked uri cookingsno with
-      CicCache.CheckedObj cobj -> cobj
-    | CicCache.UncheckedObj uobj ->
-       (* let's typecheck the uncooked obj *)
-       (match uobj with
-           C.Definition (_,te,ty,_) ->
-             let _ = type_of ty in
-              if not (R.are_convertible (type_of te) ty) then
-               raise (NotWellTyped ("Constant " ^ (U.string_of_uri uri)))
-         | C.Axiom (_,ty,_) ->
-           (* only to check that ty is well-typed *)
-           let _ = type_of ty in ()
-         | C.CurrentProof (_,_,te,ty) ->
-             let _ = type_of ty in
-              if not (R.are_convertible (type_of te) ty) then
-               raise (NotWellTyped ("CurrentProof" ^ (U.string_of_uri uri)))
-         | _ -> raise (WrongUriToConstant (U.string_of_uri uri))
-       ) ;
-       CicCache.set_type_checking_info uri ;
-       match CicCache.is_type_checked uri cookingsno with
-          CicCache.CheckedObj cobj -> cobj
-        | CicCache.UncheckedObj _ -> raise CicCacheError
-  in
-   match cobj with
-      C.Definition (_,_,ty,_) -> ty
-    | C.Axiom (_,ty,_) -> ty
-    | C.CurrentProof (_,_,_,ty) -> ty
-    | _ -> raise (WrongUriToConstant (U.string_of_uri uri))
-
-and type_of_variable uri =
- let module C = Cic in
- let module R = CicReduction in
- let module U = UriManager in
-  (* 0 because a variable is never cooked => no partial cooking at one level *)
-  match CicCache.is_type_checked uri 0 with
-     CicCache.CheckedObj (C.Variable (_,_,ty)) -> ty
-   | CicCache.UncheckedObj (C.Variable (_,bo,ty)) ->
-      (* only to check that ty is well-typed *)
-      let _ = type_of ty in
-       (match bo with
-           None -> ()
-         | Some bo ->
-            if not (R.are_convertible (type_of bo) ty) then
-             raise (NotWellTyped ("Variable " ^ (U.string_of_uri uri)))
-       ) ;
-       CicCache.set_type_checking_info uri ;
-       ty
-   |  _ -> raise (WrongUriToVariable (UriManager.string_of_uri uri))
-
-and does_not_occur n nn te =
- let module C = Cic in
-   (*CSC: whd sembra essere superflua perche' un caso in cui l'occorrenza *)
-   (*CSC: venga mangiata durante la whd sembra presentare problemi di *)
-   (*CSC: universi                                                    *)
-   match CicReduction.whd te with
-      C.Rel m when m > n && m <= nn -> false
-    | C.Rel _
-    | C.Var _
-    | C.Meta _
-    | C.Sort _
-    | C.Implicit -> true
-    | C.Cast (te,ty) -> does_not_occur n nn te && does_not_occur n nn ty
-    | C.Prod (_,so,dest) ->
-       does_not_occur n nn so && does_not_occur (n + 1) (nn + 1) dest
-    | C.Lambda (_,so,dest) ->
-       does_not_occur n nn so && does_not_occur (n + 1) (nn + 1) dest
-    | C.LetIn (_,so,dest) ->
-       does_not_occur n nn so && does_not_occur (n + 1) (nn + 1) dest
-    | C.Appl l ->
-       List.fold_right (fun x i -> i && does_not_occur n nn x) l true
-    | C.Const _
-    | C.Abst _
-    | C.MutInd _
-    | C.MutConstruct _ -> true
-    | C.MutCase (_,_,_,out,te,pl) ->
-       does_not_occur n nn out && does_not_occur n nn te &&
-        List.fold_right (fun x i -> i && does_not_occur n nn x) pl true
-    | C.Fix (_,fl) ->
-       let len = List.length fl in
-        let n_plus_len = n + len in
-        let nn_plus_len = nn + len in
-         List.fold_right
-          (fun (_,_,ty,bo) i ->
-            i && does_not_occur n_plus_len nn_plus_len ty &&
-            does_not_occur n_plus_len nn_plus_len bo
-          ) fl true
-    | C.CoFix (_,fl) ->
-       let len = List.length fl in
-        let n_plus_len = n + len in
-        let nn_plus_len = nn + len in
-         List.fold_right
-          (fun (_,ty,bo) i ->
-            i && does_not_occur n_plus_len nn_plus_len ty &&
-            does_not_occur n_plus_len nn_plus_len bo
-          ) fl true
-
-(*CSC l'indice x dei tipi induttivi e' t.c. n < x <= nn *)
-(*CSC questa funzione e' simile alla are_all_occurrences_positive, ma fa *)
-(*CSC dei controlli leggermente diversi. Viene invocata solamente dalla  *)
-(*CSC strictly_positive                                                  *)
-(*CSC definizione (giusta???) tratta dalla mail di Hugo ;-)              *)
-and weakly_positive n nn uri te =
- let module C = Cic in
-  (*CSC mettere in cicSubstitution *)
-  let rec subst_inductive_type_with_dummy_rel =
-   function
-      C.MutInd (uri',_,0) when UriManager.eq uri' uri ->
-       C.Rel 0 (* dummy rel *)
-    | C.Appl ((C.MutInd (uri',_,0))::tl) when UriManager.eq uri' uri ->
-       C.Rel 0 (* dummy rel *)
-    | C.Cast (te,ty) -> subst_inductive_type_with_dummy_rel te
-    | C.Prod (name,so,ta) ->
-       C.Prod (name, subst_inductive_type_with_dummy_rel so,
-        subst_inductive_type_with_dummy_rel ta)
-    | C.Lambda (name,so,ta) ->
-       C.Lambda (name, subst_inductive_type_with_dummy_rel so,
-        subst_inductive_type_with_dummy_rel ta)
-    | C.Appl tl ->
-       C.Appl (List.map subst_inductive_type_with_dummy_rel tl)
-    | C.MutCase (uri,cookingsno,i,outtype,term,pl) ->
-       C.MutCase (uri,cookingsno,i,
-        subst_inductive_type_with_dummy_rel outtype,
-        subst_inductive_type_with_dummy_rel term,
-        List.map subst_inductive_type_with_dummy_rel pl)
-    | C.Fix (i,fl) ->
-       C.Fix (i,List.map (fun (name,i,ty,bo) -> (name,i,
-        subst_inductive_type_with_dummy_rel ty,
-        subst_inductive_type_with_dummy_rel bo)) fl)
-    | C.CoFix (i,fl) ->
-       C.CoFix (i,List.map (fun (name,ty,bo) -> (name,
-        subst_inductive_type_with_dummy_rel ty,
-        subst_inductive_type_with_dummy_rel bo)) fl)
-    | t -> t
-  in
-  match CicReduction.whd te with
-     C.Appl ((C.MutInd (uri',_,0))::tl) when UriManager.eq uri' uri -> true
-   | C.MutInd (uri',_,0) when UriManager.eq uri' uri -> true
-   | C.Prod (C.Anonimous,source,dest) ->
-      strictly_positive n nn (subst_inductive_type_with_dummy_rel source) &&
-       weakly_positive (n + 1) (nn + 1) uri dest
-   | C.Prod (name,source,dest) when does_not_occur 0 n dest ->
-      (* dummy abstraction, so we behave as in the anonimous case *)
-      strictly_positive n nn (subst_inductive_type_with_dummy_rel source) &&
-       weakly_positive (n + 1) (nn + 1) uri dest
-   | C.Prod (_,source,dest) ->
-      does_not_occur n nn (subst_inductive_type_with_dummy_rel source) &&
-       weakly_positive (n + 1) (nn + 1) uri dest
-   | _ -> raise (NotWellFormedTypeOfInductiveConstructor ("Guess where the error is ;-)"))
-
-(* instantiate_parameters ps (x1:T1)...(xn:Tn)C                             *)
-(* returns ((x_|ps|:T_|ps|)...(xn:Tn)C){ps_1 / x1 ; ... ; ps_|ps| / x_|ps|} *)
-and instantiate_parameters params c =
- let module C = Cic in
-  match (c,params) with
-     (c,[]) -> c
-   | (C.Prod (_,_,ta), he::tl) ->
-       instantiate_parameters tl
-        (CicSubstitution.subst he ta)
-   | (C.Cast (te,_), _) -> instantiate_parameters params te
-   | (t,l) -> raise Impossible
-
-and strictly_positive n nn te =
- let module C = Cic in
- let module U = UriManager in
-  match CicReduction.whd te with
-     C.Rel _ -> true
-   | C.Cast (te,ty) ->
-      (*CSC: bisogna controllare ty????*)
-      strictly_positive n nn te
-   | C.Prod (_,so,ta) ->
-      does_not_occur n nn so &&
-       strictly_positive (n+1) (nn+1) ta
-   | C.Appl ((C.Rel m)::tl) when m > n && m <= nn ->
-      List.fold_right (fun x i -> i && does_not_occur n nn x) tl true
-   | C.Appl ((C.MutInd (uri,_,i))::tl) -> 
-      let (ok,paramsno,cl) =
-       match CicCache.get_obj uri with
-           C.InductiveDefinition (tl,_,paramsno) ->
-            let (_,_,_,cl) = List.nth tl i in
-             (List.length tl = 1, paramsno, cl)
-         | _ -> raise(WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
-      in
-       let (params,arguments) = split tl paramsno in
-       let lifted_params = List.map (CicSubstitution.lift 1) params in
-       let cl' =
-        List.map (fun (_,te,_) -> instantiate_parameters lifted_params te) cl
-       in
-        ok &&
-         List.fold_right
-          (fun x i -> i && does_not_occur n nn x)
-          arguments true &&
-         (*CSC: MEGAPATCH3 (sara' quella giusta?)*)
-         List.fold_right
-          (fun x i ->
-            i &&
-             weakly_positive (n+1) (nn+1) uri x
-          ) cl' true
-   | C.MutInd (uri,_,i) ->
-      (match CicCache.get_obj uri with
-          C.InductiveDefinition (tl,_,_) ->
-           List.length tl = 1
-        | _ -> raise (WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
-      )
-   | t -> does_not_occur n nn t
-
-(*CSC l'indice x dei tipi induttivi e' t.c. n < x <= nn *)
-and are_all_occurrences_positive uri indparamsno i n nn te =
- let module C = Cic in
-  match CicReduction.whd te with
-     C.Appl ((C.Rel m)::tl) when m = i ->
-      (*CSC: riscrivere fermandosi a 0 *)
-      (* let's check if the inductive type is applied at least to *)
-      (* indparamsno parameters                                   *)
-      let last =
-       List.fold_left
-        (fun k x ->
-          if k = 0 then 0
-          else
-           match CicReduction.whd x with
-              C.Rel m when m = n - (indparamsno - k) -> k - 1
-            | _ -> raise (WrongRequiredArgument (UriManager.string_of_uri uri))
-        ) indparamsno tl
-      in
-       if last = 0 then
-        List.fold_right (fun x i -> i && does_not_occur n nn x) tl true
-       else
-        raise (WrongRequiredArgument (UriManager.string_of_uri uri))
-   | C.Rel m when m = i ->
-      if indparamsno = 0 then
-       true
-      else
-       raise (WrongRequiredArgument (UriManager.string_of_uri uri))
-   | C.Prod (C.Anonimous,source,dest) ->
-      strictly_positive n nn source &&
-       are_all_occurrences_positive uri indparamsno (i+1) (n + 1) (nn + 1) dest
-   | C.Prod (name,source,dest) when does_not_occur 0 n dest ->
-      (* dummy abstraction, so we behave as in the anonimous case *)
-      strictly_positive n nn source &&
-       are_all_occurrences_positive uri indparamsno (i+1) (n + 1) (nn + 1) dest
-   | C.Prod (_,source,dest) ->
-      does_not_occur n nn source &&
-       are_all_occurrences_positive uri indparamsno (i+1) (n + 1) (nn + 1) dest
-   | _ -> raise (NotWellFormedTypeOfInductiveConstructor (UriManager.string_of_uri uri))
-
-(*CSC: cambiare il nome, torna unit! *)
-and cooked_mutual_inductive_defs uri =
- let module U = UriManager in
-  function
-     Cic.InductiveDefinition (itl, _, indparamsno) ->
-      (* let's check if the arity of the inductive types are well *)
-      (* formed                                                   *)
-      List.iter (fun (_,_,x,_) -> let _ = type_of x in ()) itl ;
-
-      (* let's check if the types of the inductive constructors  *)
-      (* are well formed.                                        *)
-      (* In order not to use type_of_aux we put the types of the *)
-      (* mutual inductive types at the head of the types of the  *)
-      (* constructors using Prods                                *)
-      (*CSC: piccola??? inefficienza                             *)
-      let len = List.length itl in
-       let _ =
-        List.fold_right
-         (fun (_,_,_,cl) i ->
-           List.iter
-            (fun (name,te,r) -> 
-              let augmented_term =
-               List.fold_right
-                (fun (name,_,ty,_) i -> Cic.Prod (Cic.Name name, ty, i))
-                itl te
-              in
-               let _ = type_of augmented_term in
-                (* let's check also the positivity conditions *)
-                if not (are_all_occurrences_positive uri indparamsno i 0 len te)
-                then
-                 raise (NotPositiveOccurrences (U.string_of_uri uri))
-                else
-                 match !r with
-                    Some _ -> raise Impossible
-                  | None -> r := Some (recursive_args 0 len te)
-            ) cl ;
-           (i + 1)
-        ) itl 1
-       in
-        ()
-   | _ ->
-     raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
-
-and cooked_type_of_mutual_inductive_defs uri cookingsno i =
- let module C = Cic in
- let module R = CicReduction in
- let module U = UriManager in
-  let cobj =
-   match CicCache.is_type_checked uri cookingsno with
-      CicCache.CheckedObj cobj -> cobj
-    | CicCache.UncheckedObj uobj ->
-       cooked_mutual_inductive_defs uri uobj ;
-       CicCache.set_type_checking_info uri ;
-       (match CicCache.is_type_checked uri cookingsno with
-          CicCache.CheckedObj cobj -> cobj
-        | CicCache.UncheckedObj _ -> raise CicCacheError
-       )
-  in
-   match cobj with
-      C.InductiveDefinition (dl,_,_) ->
-       let (_,_,arity,_) = List.nth dl i in
-        arity
-    | _ -> raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
-
-and cooked_type_of_mutual_inductive_constr uri cookingsno i j =
- let module C = Cic in
- let module R = CicReduction in
- let module U = UriManager in
-  let cobj =
-   match CicCache.is_type_checked uri cookingsno with
-      CicCache.CheckedObj cobj -> cobj
-    | CicCache.UncheckedObj uobj ->
-       cooked_mutual_inductive_defs uri uobj ;
-       CicCache.set_type_checking_info uri ;
-       (match CicCache.is_type_checked uri cookingsno with
-          CicCache.CheckedObj cobj -> cobj
-        | CicCache.UncheckedObj _ -> raise CicCacheError
-       )
-  in
-   match cobj with
-      C.InductiveDefinition (dl,_,_) ->
-       let (_,_,_,cl) = List.nth dl i in
-        let (_,ty,_) = List.nth cl (j-1) in
-         ty
-    | _ -> raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
-
-and recursive_args n nn te =
- let module C = Cic in
-  match CicReduction.whd te with
-     C.Rel _ -> []
-   | C.Var _
-   | C.Meta _
-   | C.Sort _
-   | C.Implicit
-   | C.Cast _ (*CSC ??? *) -> raise Impossible (* due to type-checking *)
-   | C.Prod (_,so,de) ->
-      (not (does_not_occur n nn so))::(recursive_args (n+1) (nn + 1) de)
-   | C.Lambda _ -> raise Impossible (* due to type-checking *)
-   | C.LetIn _ -> raise NotImplemented
-   | C.Appl _ -> []
-   | C.Const _
-   | C.Abst _ -> raise Impossible
-   | C.MutInd _
-   | C.MutConstruct _
-   | C.MutCase _
-   | C.Fix _
-   | C.CoFix _ -> raise Impossible (* due to type-checking *)
-
-and get_new_safes p c rl safes n nn x =
- let module C = Cic in
- let module U = UriManager in
- let module R = CicReduction in
-  match (R.whd c, R.whd p, rl) with
-     (C.Prod (_,_,ta1), C.Lambda (_,_,ta2), b::tl) ->
-       (* we are sure that the two sources are convertible because we *)
-       (* have just checked this. So let's go along ...               *)
-       let safes' =
-        List.map (fun x -> x + 1) safes
-       in
-        let safes'' =
-         if b then 1::safes' else safes'
-        in
-         get_new_safes ta2 ta1 tl safes'' (n+1) (nn+1) (x+1)
-   | (C.MutInd _, e, []) -> (e,safes,n,nn,x)
-   | (C.Appl _, e, []) -> (e,safes,n,nn,x)
-   | (_,_,_) -> raise Impossible
-
-and eat_prods n te =
- let module C = Cic in
- let module R = CicReduction in
-  match (n, R.whd te) with
-     (0, _) -> te
-   | (n, C.Prod (_,_,ta)) when n > 0 -> eat_prods (n - 1) ta
-   | (_, _) -> raise Impossible
-
-and eat_lambdas n te =
- let module C = Cic in
- let module R = CicReduction in
-  match (n, R.whd te) with
-     (0, _) -> (te, 0)
-   | (n, C.Lambda (_,_,ta)) when n > 0 ->
-      let (te, k) = eat_lambdas (n - 1) ta in
-       (te, k + 1)
-   | (_, _) -> raise Impossible
-
-(*CSC: Tutto quello che segue e' l'intuzione di luca ;-) *)
-and check_is_really_smaller_arg n nn kl x safes te =
- (*CSC: forse la whd si puo' fare solo quando serve veramente. *)
- (*CSC: cfr guarded_by_destructors                             *)
- let module C = Cic in
- let module U = UriManager in
- match CicReduction.whd te with
-     C.Rel m when List.mem m safes -> true
-   | C.Rel _ -> false
-   | C.Var _
-   | C.Meta _
-   | C.Sort _
-   | C.Implicit 
-   | C.Cast _
-(*   | C.Cast (te,ty) ->
-      check_is_really_smaller_arg n nn kl x safes te &&
-       check_is_really_smaller_arg n nn kl x safes ty*)
-(*   | C.Prod (_,so,ta) ->
-      check_is_really_smaller_arg n nn kl x safes so &&
-       check_is_really_smaller_arg (n+1) (nn+1) kl (x+1)
-        (List.map (fun x -> x + 1) safes) ta*)
-   | C.Prod _ -> raise Impossible
-   | C.Lambda (_,so,ta) ->
-      check_is_really_smaller_arg n nn kl x safes so &&
-       check_is_really_smaller_arg (n+1) (nn+1) kl (x+1)
-        (List.map (fun x -> x + 1) safes) ta
-   | C.LetIn (_,so,ta) ->
-      check_is_really_smaller_arg n nn kl x safes so &&
-       check_is_really_smaller_arg (n+1) (nn+1) kl (x+1)
-        (List.map (fun x -> x + 1) safes) ta
-   | C.Appl (he::_) ->
-      (*CSC: sulla coda ci vogliono dei controlli? secondo noi no, ma *)
-      (*CSC: solo perche' non abbiamo trovato controesempi            *)
-      check_is_really_smaller_arg n nn kl x safes he
-   | C.Appl [] -> raise Impossible
-   | C.Const _
-   | C.Abst _
-   | C.MutInd _ -> raise Impossible
-   | C.MutConstruct _ -> false
-   | C.MutCase (uri,_,i,outtype,term,pl) ->
-      (match term with
-          C.Rel m when List.mem m safes || m = x ->
-           let (isinductive,paramsno,cl) =
-            match CicCache.get_obj uri with
-               C.InductiveDefinition (tl,_,paramsno) ->
-                let (_,isinductive,_,cl) = List.nth tl i in
-                 let cl' =
-                  List.map (fun (id,ty,r) -> (id, eat_prods paramsno ty, r)) cl
-                 in
-                  (isinductive,paramsno,cl')
-             | _ ->
-               raise (WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
-           in
-            if not isinductive then
-              List.fold_right
-               (fun p i -> i && check_is_really_smaller_arg n nn kl x safes p)
-               pl true
-            else
-              List.fold_right
-               (fun (p,(_,c,rl)) i ->
-                 let rl' =
-                  match !rl with
-                     Some rl' ->
-                      let (_,rl'') = split rl' paramsno in
-                       rl''
-                   | None -> raise Impossible
-                 in
-                  let (e,safes',n',nn',x') =
-                   get_new_safes p c rl' safes n nn x
-                  in
-                   i &&
-                   check_is_really_smaller_arg n' nn' kl x' safes' e
-               ) (List.combine pl cl) true
-        | C.Appl ((C.Rel m)::tl) when List.mem m safes || m = x ->
-           let (isinductive,paramsno,cl) =
-            match CicCache.get_obj uri with
-               C.InductiveDefinition (tl,_,paramsno) ->
-                let (_,isinductive,_,cl) = List.nth tl i in
-                 let cl' =
-                  List.map (fun (id,ty,r) -> (id, eat_prods paramsno ty, r)) cl
-                 in
-                  (isinductive,paramsno,cl')
-             | _ ->
-               raise (WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
-           in
-            if not isinductive then
-              List.fold_right
-               (fun p i -> i && check_is_really_smaller_arg n nn kl x safes p)
-               pl true
-            else
-              (*CSC: supponiamo come prima che nessun controllo sia necessario*)
-              (*CSC: sugli argomenti di una applicazione                      *)
-              List.fold_right
-               (fun (p,(_,c,rl)) i ->
-                 let rl' =
-                  match !rl with
-                     Some rl' ->
-                      let (_,rl'') = split rl' paramsno in
-                       rl''
-                   | None -> raise Impossible
-                 in
-                  let (e, safes',n',nn',x') =
-                   get_new_safes p c rl' safes n nn x
-                  in
-                   i &&
-                   check_is_really_smaller_arg n' nn' kl x' safes' e
-               ) (List.combine pl cl) true
-        | _ ->
-          List.fold_right
-           (fun p i -> i && check_is_really_smaller_arg n nn kl x safes p)
-           pl true
-      )
-   | C.Fix (_, fl) ->
-      let len = List.length fl in
-       let n_plus_len = n + len
-       and nn_plus_len = nn + len
-       and x_plus_len = x + len
-       and safes' = List.map (fun x -> x + len) safes in
-        List.fold_right
-         (fun (_,_,ty,bo) i ->
-           i &&
-            check_is_really_smaller_arg n_plus_len nn_plus_len kl x_plus_len
-             safes' bo
-         ) fl true
-   | C.CoFix (_, fl) ->
-      let len = List.length fl in
-       let n_plus_len = n + len
-       and nn_plus_len = nn + len
-       and x_plus_len = x + len
-       and safes' = List.map (fun x -> x + len) safes in
-        List.fold_right
-         (fun (_,ty,bo) i ->
-           i &&
-            check_is_really_smaller_arg n_plus_len nn_plus_len kl x_plus_len
-             safes' bo
-         ) fl true
-
-and guarded_by_destructors n nn kl x safes =
- let module C = Cic in
- let module U = UriManager in
-  function
-     C.Rel m when m > n && m <= nn -> false
-   | C.Rel _
-   | C.Var _
-   | C.Meta _
-   | C.Sort _
-   | C.Implicit -> true
-   | C.Cast (te,ty) ->
-      guarded_by_destructors n nn kl x safes te &&
-       guarded_by_destructors n nn kl x safes ty
-   | C.Prod (_,so,ta) ->
-      guarded_by_destructors n nn kl x safes so &&
-       guarded_by_destructors (n+1) (nn+1) kl (x+1)
-        (List.map (fun x -> x + 1) safes) ta
-   | C.Lambda (_,so,ta) ->
-      guarded_by_destructors n nn kl x safes so &&
-       guarded_by_destructors (n+1) (nn+1) kl (x+1)
-        (List.map (fun x -> x + 1) safes) ta
-   | C.LetIn (_,so,ta) ->
-      guarded_by_destructors n nn kl x safes so &&
-       guarded_by_destructors (n+1) (nn+1) kl (x+1)
-        (List.map (fun x -> x + 1) safes) ta
-   | C.Appl ((C.Rel m)::tl) when m > n && m <= nn ->
-      let k = List.nth kl (m - n - 1) in
-       if not (List.length tl > k) then false
-       else
-        List.fold_right
-         (fun param i ->
-           i && guarded_by_destructors n nn kl x safes param
-         ) tl true &&
-         check_is_really_smaller_arg n nn kl x safes (List.nth tl k)
-   | C.Appl tl ->
-      List.fold_right (fun t i -> i && guarded_by_destructors n nn kl x safes t)
-       tl true
-   | C.Const _
-   | C.Abst _
-   | C.MutInd _
-   | C.MutConstruct _ -> true
-   | C.MutCase (uri,_,i,outtype,term,pl) ->
-      (match term with
-          C.Rel m when List.mem m safes || m = x ->
-           let (isinductive,paramsno,cl) =
-            match CicCache.get_obj uri with
-               C.InductiveDefinition (tl,_,paramsno) ->
-                let (_,isinductive,_,cl) = List.nth tl i in
-                 let cl' =
-                  List.map (fun (id,ty,r) -> (id, eat_prods paramsno ty, r)) cl
-                 in
-                  (isinductive,paramsno,cl')
-             | _ ->
-               raise (WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
-           in
-            if not isinductive then
-             guarded_by_destructors n nn kl x safes outtype &&
-              guarded_by_destructors n nn kl x safes term &&
-              (*CSC: manca ??? il controllo sul tipo di term? *)
-              List.fold_right
-               (fun p i -> i && guarded_by_destructors n nn kl x safes p)
-               pl true
-            else
-             guarded_by_destructors n nn kl x safes outtype &&
-              (*CSC: manca ??? il controllo sul tipo di term? *)
-              List.fold_right
-               (fun (p,(_,c,rl)) i ->
-                 let rl' =
-                  match !rl with
-                     Some rl' ->
-                      let (_,rl'') = split rl' paramsno in
-                       rl''
-                   | None -> raise Impossible
-                 in
-                  let (e,safes',n',nn',x') =
-                   get_new_safes p c rl' safes n nn x
-                  in
-                   i &&
-                   guarded_by_destructors n' nn' kl x' safes' e
-               ) (List.combine pl cl) true
-        | C.Appl ((C.Rel m)::tl) when List.mem m safes || m = x ->
-           let (isinductive,paramsno,cl) =
-            match CicCache.get_obj uri with
-               C.InductiveDefinition (tl,_,paramsno) ->
-                let (_,isinductive,_,cl) = List.nth tl i in
-                 let cl' =
-                  List.map (fun (id,ty,r) -> (id, eat_prods paramsno ty, r)) cl
-                 in
-                  (isinductive,paramsno,cl')
-             | _ ->
-               raise (WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
-           in
-            if not isinductive then
-             guarded_by_destructors n nn kl x safes outtype &&
-              guarded_by_destructors n nn kl x safes term &&
-              (*CSC: manca ??? il controllo sul tipo di term? *)
-              List.fold_right
-               (fun p i -> i && guarded_by_destructors n nn kl x safes p)
-               pl true
-            else
-             guarded_by_destructors n nn kl x safes outtype &&
-              (*CSC: manca ??? il controllo sul tipo di term? *)
-              List.fold_right
-               (fun t i -> i && guarded_by_destructors n nn kl x safes t)
-               tl true &&
-              List.fold_right
-               (fun (p,(_,c,rl)) i ->
-                 let rl' =
-                  match !rl with
-                     Some rl' ->
-                      let (_,rl'') = split rl' paramsno in
-                       rl''
-                   | None -> raise Impossible
-                 in
-                  let (e, safes',n',nn',x') =
-                   get_new_safes p c rl' safes n nn x
-                  in
-                   i &&
-                   guarded_by_destructors n' nn' kl x' safes' e
-               ) (List.combine pl cl) true
-        | _ ->
-          guarded_by_destructors n nn kl x safes outtype &&
-           guarded_by_destructors n nn kl x safes term &&
-           (*CSC: manca ??? il controllo sul tipo di term? *)
-           List.fold_right
-            (fun p i -> i && guarded_by_destructors n nn kl x safes p)
-            pl true
-      )
-   | C.Fix (_, fl) ->
-      let len = List.length fl in
-       let n_plus_len = n + len
-       and nn_plus_len = nn + len
-       and x_plus_len = x + len
-       and safes' = List.map (fun x -> x + len) safes in
-        List.fold_right
-         (fun (_,_,ty,bo) i ->
-           i && guarded_by_destructors n_plus_len nn_plus_len kl x_plus_len
-            safes' ty &&
-            guarded_by_destructors n_plus_len nn_plus_len kl x_plus_len
-             safes' bo
-         ) fl true
-   | C.CoFix (_, fl) ->
-      let len = List.length fl in
-       let n_plus_len = n + len
-       and nn_plus_len = nn + len
-       and x_plus_len = x + len
-       and safes' = List.map (fun x -> x + len) safes in
-        List.fold_right
-         (fun (_,ty,bo) i ->
-           i && guarded_by_destructors n_plus_len nn_plus_len kl x_plus_len
-            safes' ty &&
-            guarded_by_destructors n_plus_len nn_plus_len kl x_plus_len safes'
-             bo
-         ) fl true
-
-(*CSC h = 0 significa non ancora protetto *)
-and guarded_by_constructors n nn h =
- let module C = Cic in
-  function
-     C.Rel m when m > n && m <= nn -> h = 1
-   | C.Rel _
-   | C.Var _ 
-   | C.Meta _
-   | C.Sort _
-   | C.Implicit -> true (*CSC: ma alcuni sono impossibili!!!! vedi Prod *)
-   | C.Cast (te,ty) ->
-      guarded_by_constructors n nn h te &&
-       guarded_by_constructors n nn h ty
-   | C.Prod (_,so,de) ->
-      raise Impossible (* the term has just been type-checked *)
-   | C.Lambda (_,so,de) ->
-      does_not_occur n nn so &&
-       guarded_by_constructors (n + 1) (nn + 1) h de
-   | C.LetIn (_,so,de) ->
-      does_not_occur n nn so &&
-       guarded_by_constructors (n + 1) (nn + 1) h de
-   | C.Appl ((C.Rel m)::tl) when m > n && m <= nn ->
-      h = 1 &&
-       List.fold_right (fun x i -> i && does_not_occur n nn x) tl true
-   | C.Appl ((C.MutConstruct (uri,cookingsno,i,j))::tl) ->
-      let (is_coinductive, rl) =
-       match CicCache.get_cooked_obj uri cookingsno with
-          C.InductiveDefinition (itl,_,_) ->
-           let (_,is_inductive,_,cl) = List.nth itl i in
-            let (_,cons,rrec_args) = List.nth cl (j - 1) in
-             (match !rrec_args with
-                 None -> raise Impossible
-               | Some rec_args -> (not is_inductive, rec_args)
-             )
-        | _ ->
-         raise (WrongUriToMutualInductiveDefinitions
-          (UriManager.string_of_uri uri))
-      in
-       is_coinductive &&
-       List.fold_right
-        (fun (x,r) i ->
-          i &&
-           if r then
-            guarded_by_constructors n nn 1 x
-           else
-            does_not_occur n nn x
-        ) (List.combine tl rl) true
-   | C.Appl l ->
-      List.fold_right (fun x i -> i && does_not_occur n nn x) l true
-   | C.Const _
-   | C.Abst _
-   | C.MutInd _ 
-   | C.MutConstruct _ -> true (*CSC: ma alcuni sono impossibili!!!! vedi Prod *)
-   | C.MutCase (_,_,_,out,te,pl) ->
-      let rec returns_a_coinductive =
-       function
-          (*CSC: per le regole di tipaggio, la chiamata ricorsiva verra' *)
-          (*CSC: effettata solo una volta, per mangiarsi l'astrazione    *)
-          (*CSC: non dummy                                               *)
-          C.Lambda (_,_,de) -> returns_a_coinductive de
-        | C.MutInd (uri,_,i) ->
-           (*CSC: definire una funzioncina per questo codice sempre replicato *)
-           (match CicCache.get_obj uri with
-               C.InductiveDefinition (itl,_,_) ->
-                let (_,is_inductive,_,_) = List.nth itl i in
-                 not is_inductive
-             | _ ->
-               raise (WrongUriToMutualInductiveDefinitions
-                (UriManager.string_of_uri uri))
-            )
-        (*CSC: bug nella prossima riga (manca la whd) *)
-        | C.Appl ((C.MutInd (uri,_,i))::_) ->
-           (match CicCache.get_obj uri with
-               C.InductiveDefinition (itl,_,_) ->
-                let (_,is_inductive,_,_) = List.nth itl i in
-                 not is_inductive
-             | _ ->
-               raise (WrongUriToMutualInductiveDefinitions
-                (UriManager.string_of_uri uri))
-            )
-        | _ -> false
-      in
-       does_not_occur n nn out &&
-        does_not_occur n nn te &&
-        if returns_a_coinductive out then
-         List.fold_right
-          (fun x i -> i && guarded_by_constructors n nn h x) pl true
-        else
-         List.fold_right (fun x i -> i && does_not_occur n nn x) pl true
-   | C.Fix (_,fl) ->
-      let len = List.length fl in
-       let n_plus_len = n + len
-       and nn_plus_len = nn + len in
-        List.fold_right
-         (fun (_,_,ty,bo) i ->
-           i && does_not_occur n_plus_len nn_plus_len ty &&
-            does_not_occur n_plus_len nn_plus_len bo
-         ) fl true
-   | C.CoFix (_,fl) ->
-      let len = List.length fl in
-       let n_plus_len = n + len
-       and nn_plus_len = nn + len in
-        List.fold_right
-         (fun (_,ty,bo) i ->
-           i && does_not_occur n_plus_len nn_plus_len ty &&
-            does_not_occur n_plus_len nn_plus_len bo
-         ) fl true
-
-and check_allowed_sort_elimination uri i need_dummy ind arity1 arity2 =
- let module C = Cic in
- let module U = UriManager in
-  match (CicReduction.whd arity1, CicReduction.whd arity2) with
-     (C.Prod (_,so1,de1), C.Prod (_,so2,de2))
-      when CicReduction.are_convertible so1 so2 ->
-       check_allowed_sort_elimination uri i need_dummy
-        (C.Appl [CicSubstitution.lift 1 ind ; C.Rel 1]) de1 de2
-   | (C.Sort C.Prop, C.Sort C.Prop) when need_dummy -> true
-   | (C.Sort C.Prop, C.Sort C.Set) when need_dummy ->
-       (match CicCache.get_obj uri with
-           C.InductiveDefinition (itl,_,_) ->
-            let (_,_,_,cl) = List.nth itl i in
-             (* is a singleton definition? *)
-             List.length cl = 1
-         | _ ->
-           raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
-       )
-   | (C.Sort C.Set, C.Sort C.Prop) when need_dummy -> true
-   | (C.Sort C.Set, C.Sort C.Set) when need_dummy -> true
-   | (C.Sort C.Set, C.Sort C.Type) when need_dummy ->
-       (match CicCache.get_obj uri with
-           C.InductiveDefinition (itl,_,_) ->
-            let (_,_,_,cl) = List.nth itl i in
-             (* is a small inductive type? *)
-             (*CSC: ottimizzare calcolando staticamente *)
-             let rec is_small =
-              function
-                 C.Prod (_,so,de) ->
-                  let s = type_of so in
-                   (s = C.Sort C.Prop || s = C.Sort C.Set) &&
-                   is_small de
-               | _ -> true (*CSC: we trust the type-checker *)
-             in
-              List.fold_right (fun (_,x,_) i -> i && is_small x) cl true
-         | _ ->
-           raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
-       )
-   | (C.Sort C.Type, C.Sort _) when need_dummy -> true
-   | (C.Sort C.Prop, C.Prod (_,so,ta)) when not need_dummy ->
-       let res = CicReduction.are_convertible so ind
-       in
-        res &&
-        (match CicReduction.whd ta with
-            C.Sort C.Prop -> true
-          | C.Sort C.Set ->
-             (match CicCache.get_obj uri with
-                 C.InductiveDefinition (itl,_,_) ->
-                  let (_,_,_,cl) = List.nth itl i in
-                   (* is a singleton definition? *)
-                   List.length cl = 1
-               | _ ->
-                 raise (WrongUriToMutualInductiveDefinitions
-                  (U.string_of_uri uri))
-             )
-          | _ -> false
-        )
-   | (C.Sort C.Set, C.Prod (_,so,ta)) when not need_dummy ->
-       let res = CicReduction.are_convertible so ind
-       in
-        res &&
-        (match CicReduction.whd ta with
-            C.Sort C.Prop
-          | C.Sort C.Set  -> true
-          | C.Sort C.Type ->
-             (match CicCache.get_obj uri with
-                 C.InductiveDefinition (itl,_,_) ->
-                  let (_,_,_,cl) = List.nth itl i in
-                   (* is a small inductive type? *)
-                   let rec is_small =
-                    function
-                       C.Prod (_,so,de) ->
-                        let s = type_of so in
-                         (s = C.Sort C.Prop || s = C.Sort C.Set) &&
-                         is_small de
-                     | _ -> true (*CSC: we trust the type-checker *)
-                   in
-                    List.fold_right (fun (_,x,_) i -> i && is_small x) cl true
-               | _ ->
-                 raise (WrongUriToMutualInductiveDefinitions
-                  (U.string_of_uri uri))
-             )
-          | _ -> raise Impossible
-        )
-   | (C.Sort C.Type, C.Prod (_,so,_)) when not need_dummy ->
-       CicReduction.are_convertible so ind
-   | (_,_) -> false
-  
-and type_of_branch argsno need_dummy outtype term constype =
- let module C = Cic in
- let module R = CicReduction in
-  match R.whd constype with
-     C.MutInd (_,_,_) ->
-      if need_dummy then
-       outtype
-      else
-       C.Appl [outtype ; term]
-   | C.Appl (C.MutInd (_,_,_)::tl) ->
-      let (_,arguments) = split tl argsno
-      in
-       if need_dummy && arguments = [] then
-        outtype
-       else
-        C.Appl (outtype::arguments@(if need_dummy then [] else [term]))
-   | C.Prod (name,so,de) ->
-      C.Prod (C.Name "pippo",so,type_of_branch argsno need_dummy 
-       (CicSubstitution.lift 1 outtype)
-       (C.Appl [CicSubstitution.lift 1 term ; C.Rel 1]) de)
-  | _ -> raise Impossible
-       
- 
-and type_of t =
- let rec type_of_aux env =
-  let module C = Cic in
-  let module R = CicReduction in
-  let module S = CicSubstitution in
-  let module U = UriManager in
-   function
-      C.Rel n -> S.lift n (List.nth env (n - 1))
-    | C.Var uri ->
-      incr fdebug ;
-      let ty = type_of_variable uri in
-       decr fdebug ;
-       ty
-    | C.Meta n -> raise NotImplemented
-    | C.Sort s -> C.Sort C.Type (*CSC manca la gestione degli universi!!! *)
-    | C.Implicit -> raise Impossible
-    | C.Cast (te,ty) ->
-       let _ = type_of ty in
-        if R.are_convertible (type_of_aux env te) ty then ty
-        else raise (NotWellTyped "Cast")
-    | C.Prod (_,s,t) ->
-       let sort1 = type_of_aux env s
-       and sort2 = type_of_aux (s::env) t in
-        sort_of_prod (sort1,sort2)
-   | C.Lambda (n,s,t) ->
-       let sort1 = type_of_aux env s
-       and type2 = type_of_aux (s::env) t in
-        let sort2 = type_of_aux (s::env) type2 in
-         (* only to check if the product is well-typed *)
-         let _ = sort_of_prod (sort1,sort2) in
-          C.Prod (n,s,type2)
-   | C.LetIn (n,s,t) ->
-       let type1 = type_of_aux env s in
-       let type2 = type_of_aux (type1::env) t in
-        type2
-   | C.Appl (he::tl) when List.length tl > 0 ->
-      let hetype = type_of_aux env he
-      and tlbody_and_type = List.map (fun x -> (x, type_of_aux env x)) tl in
-       (try
-        eat_prods hetype tlbody_and_type
-       with _ -> debug (C.Appl (he::tl)) env ; C.Implicit)
-   | C.Appl _ -> raise (NotWellTyped "Appl: no arguments")
-   | C.Const (uri,cookingsno) ->
-      incr fdebug ;
-      let cty = cooked_type_of_constant uri cookingsno in
-       decr fdebug ;
-       cty
-   | C.Abst _ -> raise Impossible
-   | C.MutInd (uri,cookingsno,i) ->
-      incr fdebug ;
-      let cty = cooked_type_of_mutual_inductive_defs uri cookingsno i in
-       decr fdebug ;
-       cty
-   | C.MutConstruct (uri,cookingsno,i,j) ->
-      let cty = cooked_type_of_mutual_inductive_constr uri cookingsno i j
-      in
-       cty
-   | C.MutCase (uri,cookingsno,i,outtype,term,pl) ->
-      let outsort = type_of_aux env outtype in
-      let (need_dummy, k) =
-       let rec guess_args t =
-        match decast t with
-           C.Sort _ -> (true, 0)
-         | C.Prod (_, s, t) ->
-            let (b, n) = guess_args t in
-             if n = 0 then
-              (* last prod before sort *)
-              match CicReduction.whd s with
-                 (*CSC vedi nota delirante su cookingsno in cicReduction.ml *)
-                 C.MutInd (uri',_,i') when U.eq uri' uri && i' = i -> (false, 1)
-               | C.Appl ((C.MutInd (uri',_,i')) :: _)
-                  when U.eq uri' uri && i' = i -> (false, 1)
-               | _ -> (true, 1)
-             else
-              (b, n + 1)
-         | _ -> raise (NotWellTyped "MutCase: outtype ill-formed")
-       in
-        (*CSC whd non serve dopo type_of_aux ? *)
-        let (b, k) = guess_args outsort in
-         if not b then (b, k - 1) else (b, k)
-      in
-      let (parameters, arguments) =
-        match R.whd (type_of_aux env term) with
-           (*CSC manca il caso dei CAST *)
-           C.MutInd (uri',_,i') ->
-            (*CSC vedi nota delirante sui cookingsno in cicReduction.ml*)
-            if U.eq uri uri' && i = i' then ([],[])
-            else raise (NotWellTyped ("MutCase: the term is of type " ^
-             (U.string_of_uri uri') ^ "," ^ string_of_int i' ^
-             " instead of type " ^ (U.string_of_uri uri') ^ "," ^
-             string_of_int i))
-         | C.Appl (C.MutInd (uri',_,i') :: tl) ->
-            if U.eq uri uri' && i = i' then split tl (List.length tl - k)
-            else raise (NotWellTyped ("MutCase: the term is of type " ^
-             (U.string_of_uri uri') ^ "," ^ string_of_int i' ^
-             " instead of type " ^ (U.string_of_uri uri) ^ "," ^
-             string_of_int i))
-         | _ -> raise (NotWellTyped "MutCase: the term is not an inductive one")
-      in
-       (* let's control if the sort elimination is allowed: [(I q1 ... qr)|B] *)
-       let sort_of_ind_type =
-        if parameters = [] then
-         C.MutInd (uri,cookingsno,i)
-        else
-         C.Appl ((C.MutInd (uri,cookingsno,i))::parameters)
-       in
-        if not (check_allowed_sort_elimination uri i need_dummy
-         sort_of_ind_type (type_of_aux env sort_of_ind_type) outsort)
-        then
-         raise (NotWellTyped "MutCase: not allowed sort elimination") ;
-
-        (* let's check if the type of branches are right *)
-        let (cl,parsno) =
-         match CicCache.get_cooked_obj uri cookingsno with
-            C.InductiveDefinition (tl,_,parsno) ->
-             let (_,_,_,cl) = List.nth tl i in (cl,parsno)
-          | _ ->
-            raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
-        in
-         let (_,branches_ok) =
-          List.fold_left
-           (fun (j,b) (p,(_,c,_)) ->
-             let cons =
-              if parameters = [] then
-               (C.MutConstruct (uri,cookingsno,i,j))
-              else
-               (C.Appl (C.MutConstruct (uri,cookingsno,i,j)::parameters))
-             in
-              (j + 1, b &&
-               R.are_convertible (type_of_aux env p)
-                (type_of_branch parsno need_dummy outtype cons
-                  (type_of_aux env cons))
-              )
-           ) (1,true) (List.combine pl cl)
-         in
-          if not branches_ok then
-           raise (NotWellTyped "MutCase: wrong type of a branch") ;
-
-          if not need_dummy then
-           C.Appl ((outtype::arguments)@[term])
-          else if arguments = [] then
-           outtype
-          else
-           C.Appl (outtype::arguments)
-   | C.Fix (i,fl) ->
-      let types_times_kl =
-       List.rev
-        (List.map (fun (_,k,ty,_) -> let _ = type_of_aux env ty in (ty,k)) fl)
-      in
-      let (types,kl) = List.split types_times_kl in
-       let len = List.length types in
-        List.iter
-         (fun (name,x,ty,bo) ->
-           if (R.are_convertible (type_of_aux (types @ env) bo)
-            (CicSubstitution.lift len ty))
-           then
-            begin
-             let (m, eaten) = eat_lambdas (x + 1) bo in
-              (*let's control the guarded by destructors conditions D{f,k,x,M}*)
-              if not (guarded_by_destructors eaten (len + eaten) kl 1 [] m) then
-               raise (NotWellTyped "Fix: not guarded by destructors")
-            end
-           else
-            raise (NotWellTyped "Fix: ill-typed bodies")
-         ) fl ;
-      
-        (*CSC: controlli mancanti solo su D{f,k,x,M} *)
-        let (_,_,ty,_) = List.nth fl i in
-        ty
-   | C.CoFix (i,fl) ->
-      let types =
-       List.rev (List.map (fun (_,ty,_) -> let _ = type_of_aux env ty in ty) fl)
-      in
-       let len = List.length types in
-        List.iter
-         (fun (_,ty,bo) ->
-           if (R.are_convertible (type_of_aux (types @ env) bo)
-            (CicSubstitution.lift len ty))
-           then
-            begin
-             (* let's control the guarded by constructors conditions C{f,M} *)
-             if not (guarded_by_constructors 0 len 0 bo) then
-              raise (NotWellTyped "CoFix: not guarded by constructors")
-            end
-           else
-            raise (NotWellTyped "CoFix: ill-typed bodies")
-         ) fl ;
-      
-        let (_,ty,_) = List.nth fl i in
-         ty
-
- and decast =
-  let module C = Cic in
-   function
-      C.Cast (t,_) -> t
-    | t -> t
-
- and sort_of_prod (t1, t2) =
-  let module C = Cic in
-   match (decast t1, decast t2) with
-      (C.Sort s1, C.Sort s2)
-        when (s2 = C.Prop or s2 = C.Set) -> (* different from Coq manual!!! *)
-         C.Sort s2
-    | (C.Sort s1, C.Sort s2) -> C.Sort C.Type (*CSC manca la gestione degli universi!!! *)
-    | (_,_) -> raise (NotWellTyped "Prod")
-
- and eat_prods hetype =
-  (*CSC: siamo sicuri che le are_convertible non lavorino con termini non *)
-  (*CSC: cucinati                                                         *)
-  function
-     [] -> hetype
-   | (hete, hety)::tl ->
-    (match (CicReduction.whd hetype) with
-        Cic.Prod (n,s,t) ->
-         if CicReduction.are_convertible s hety then
-          (CicReduction.fdebug := -1 ;
-          eat_prods (CicSubstitution.subst hete t) tl
-          )
-         else
-          (
-          CicReduction.fdebug := 0 ;
-          let _ = CicReduction.are_convertible s hety in
-          debug hete [hety ; s] ;
-          raise (NotWellTyped "Appl: wrong parameter-type")
-)
-      | _ -> raise (NotWellTyped "Appl: wrong Prod-type")
-    )
- in
-  type_of_aux [] t
-;;
-
-let typecheck uri =
- let module C = Cic in
- let module R = CicReduction in
- let module U = UriManager in
-  match CicCache.is_type_checked uri 0 with
-     CicCache.CheckedObj _ -> ()
-   | CicCache.UncheckedObj uobj ->
-      (* let's typecheck the uncooked object *)
-      (match uobj with
-          C.Definition (_,te,ty,_) ->
-           let _ = type_of ty in
-            if not (R.are_convertible (type_of te ) ty) then
-             raise (NotWellTyped ("Constant " ^ (U.string_of_uri uri)))
-        | C.Axiom (_,ty,_) ->
-          (* only to check that ty is well-typed *)
-          let _ = type_of ty in ()
-        | C.CurrentProof (_,_,te,ty) ->
-           (*CSC [] wrong *)
-           let _ = type_of ty in
-            debug (type_of te) [] ;
-            if not (R.are_convertible (type_of te) ty) then
-             raise (NotWellTyped ("CurrentProof" ^ (U.string_of_uri uri)))
-        | C.Variable (_,bo,ty) ->
-           (* only to check that ty is well-typed *)
-           let _ = type_of ty in
-            (match bo with
-                None -> ()
-              | Some bo ->
-                 if not (R.are_convertible (type_of bo) ty) then
-                  raise (NotWellTyped ("Variable" ^ (U.string_of_uri uri)))
-            )
-        | C.InductiveDefinition _ ->
-           cooked_mutual_inductive_defs uri uobj
-      ) ;
-      CicCache.set_type_checking_info uri
-;;

diff --git a/helm/interface/cicTypeChecker.mli b/helm/interface/cicTypeChecker.mli
deleted file mode 100644 (file)
index 72dd63c..0000000
--- a/helm/interface/cicTypeChecker.mli
+++ /dev/null
@@ -1,34 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception NotWellTyped of string
-exception WrongUriToConstant of string
-exception WrongUriToVariable of string
-exception WrongUriToMutualInductiveDefinitions of string
-exception ListTooShort
-exception NotPositiveOccurrences of string
-exception NotWellFormedTypeOfInductiveConstructor of string
-exception WrongRequiredArgument of string
-val typecheck : UriManager.uri -> unit

diff --git a/helm/interface/cicXPath.ml b/helm/interface/cicXPath.ml
deleted file mode 100644 (file)
index 776d229..0000000
--- a/helm/interface/cicXPath.ml
+++ /dev/null
@@ -1,77 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 14/06/2000                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
-let get_annotation_from_term annterm =
- let module C = Cic in
-  match annterm with
-     C.ARel (_,ann,_,_)             -> ann
-   | C.AVar (_,ann,_)               -> ann
-   | C.AMeta (_,ann,_)              -> ann
-   | C.ASort (_,ann,_)              -> ann
-   | C.AImplicit (_,ann)            -> ann
-   | C.ACast (_,ann,_,_)            -> ann
-   | C.AProd (_,ann,_,_,_)          -> ann
-   | C.ALambda (_,ann,_,_,_)        -> ann
-   | C.ALetIn (_,ann,_,_,_)         -> ann
-   | C.AAppl (_,ann,_)              -> ann
-   | C.AConst (_,ann,_,_)           -> ann
-   | C.AAbst (_,ann,_)              -> ann
-   | C.AMutInd (_,ann,_,_,_)        -> ann
-   | C.AMutConstruct (_,ann,_,_,_,_)-> ann
-   | C.AMutCase (_,ann,_,_,_,_,_,_) -> ann
-   | C.AFix (_,ann,_,_)             -> ann
-   | C.ACoFix (_,ann,_,_)           -> ann
-;;
-
-let get_annotation_from_obj annobj =
- let module C = Cic in
-  match annobj with
-     C.ADefinition (_,ann,_,_,_,_)        -> ann
-   | C.AAxiom (_,ann,_,_,_)               -> ann
-   | C.AVariable (_,ann,_,_,_)            -> ann
-   | C.ACurrentProof (_,ann,_,_,_,_)      -> ann
-   | C.AInductiveDefinition (_,ann,_,_,_) -> ann
-;;
-
-exception IdUnknown of string;;
-
-let get_annotation (annobj,ids_to_targets) xpath =
- try
-  match Hashtbl.find ids_to_targets xpath with
-     Cic.Object annobj -> get_annotation_from_obj annobj
-   | Cic.Term annterm -> get_annotation_from_term annterm
- with
-  Not_found -> raise (IdUnknown xpath)
-;;

diff --git a/helm/interface/clientHTTP.ml b/helm/interface/clientHTTP.ml
deleted file mode 100644 (file)
index 9086d82..0000000
--- a/helm/interface/clientHTTP.ml
+++ /dev/null
@@ -1,49 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-let send cmd =
- ignore (Http_client.Convenience.http_get cmd)
-
-let get uri =
- Http_client.Convenience.http_get uri
-
-let get_and_save uri dest_filename =
- let reply = get uri
- and out_channel = open_out dest_filename in
-  output_string out_channel reply ;
-  close_out out_channel
-
-let get_and_save_to_tmp uri =
- let flat_string s s' c =
-  let cs = String.copy s in
-   for i = 0 to (String.length s) - 1 do
-    if String.contains s' s.[i] then cs.[i] <- c
-   done ;
-   cs
- in
-  let tmp_file = Configuration.tmp_dir ^ "/" ^ (flat_string uri ".-=:;!?/&" '_') in
-  get_and_save uri tmp_file ;
-  tmp_file
-

diff --git a/helm/interface/config.cache.pkg b/helm/interface/config.cache.pkg
deleted file mode 100644 (file)
index fe72875..0000000
--- a/helm/interface/config.cache.pkg
+++ /dev/null
@@ -1,4 +0,0 @@
-# This is the config.cache that holds the ``standard'' path for the
-# HELM library. It is supposed to be used when creating packages
-
-helm_cv_HELM_DEFAULT_CONFIGURATION_DIR=${helm_cv_HELM_DEFAULT_CONFIGURATION_DIR='$RESOLVED_PREFIX/etc/helm'}

diff --git a/helm/interface/configuration.ml.in b/helm/interface/configuration.ml.in
deleted file mode 100644 (file)
index d20a3c0..0000000
--- a/helm/interface/configuration.ml.in
+++ /dev/null
@@ -1,117 +0,0 @@
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 28/12/2000                                 *)
-(*                                                                            *)
-(* This is the parser that reads the configuration file of helm               *)
-(*                                                                            *)
-(******************************************************************************)
-
-exception MalformedDir of string
-
-(* this should be the only hard coded constant *)
-let filename =
- let prefix =
-  try
-   Sys.getenv "HELM_CONFIGURATION_DIR"
-  with
-   Not_found -> "@HELM_CONFIGURATION_DIR@"
- in
-  if prefix.[(String.length prefix) - 1] = '/' then
-   raise (MalformedDir prefix) ;
-  prefix ^ "/configuration.xml";;
-
-exception Warnings;;
-
-class warner =
-  object 
-    method warn w =
-      print_endline ("WARNING: " ^ w) ;
-      (raise Warnings : unit)
-  end
-;;
-
-let xml_document () =
- let module Y = Pxp_yacc in
-  try 
-   let config = {Y.default_config with Y.warner = new warner} in
-    Y.parse_document_entity config (Y.from_file filename) Y.default_spec
-  with
-   e ->
-     print_endline (Pxp_types.string_of_exn e) ;
-     raise e
-;;
-
-exception Impossible;;
-
-let vars = Hashtbl.create 14;;
-
-(* resolve <value-of> tags and returns the string values of the variable tags *)
-let rec resolve =
- let module D = Pxp_document in
-  function
-     [] -> ""
-   | he::tl when he#node_type = D.T_element "value-of" ->
-      (match he#attribute "var" with
-          Pxp_types.Value var -> Hashtbl.find vars var
-        | _ -> raise Impossible
-      ) ^ resolve tl
-   | he::tl when he#node_type = D.T_data ->
-      he#data ^ resolve tl
-   | _ -> raise Impossible
-;;
-
-(* we trust the xml file to be valid because of the validating xml parser *)
-let _ =
- List.iter
-  (function
-      n ->
-       match n#node_type with
-          Pxp_document.T_element var ->
-           Hashtbl.add vars var (resolve (n#sub_nodes))
-        | _ -> raise Impossible
-  )
-  ((xml_document ())#root#sub_nodes)
-;;
-
-(* try to read a configuration variable, given its name into the
- * configuration.xml file and its name into the shell environment.
- * The shell variable, if present, has precedence over configuration.xml
- *)
-let read_configuration_var_env xml_name env_name =
- try
-  try
-   Sys.getenv env_name
-  with
-   Not_found -> Hashtbl.find vars xml_name
- with
-  Not_found ->
-   Printf.printf "Sorry, cannot find variable `%s', please check your configuration\n" xml_name ;
-   flush stdout ;
-   raise Not_found
-
-let read_configuration_var xml_name =
- try
-  Hashtbl.find vars xml_name
- with
-  Not_found ->
-   Printf.printf "Sorry, cannot find variable `%s', please check your configuration\n" xml_name ;
-   flush stdout ;
-   raise Not_found
-
-let helm_dir      = read_configuration_var     "helm_dir";;
-let dtd_dir       = read_configuration_var     "dtd_dir";;
-let style_dir     = read_configuration_var_env "style_dir" "HELM_STYLE_DIR";;
-let servers_file  = read_configuration_var     "servers_file";;
-let uris_dbm      = read_configuration_var     "uris_dbm";;
-let dest          = read_configuration_var     "dest";;
-let indexname     = read_configuration_var     "indexname";;
-let tmp_dir       = read_configuration_var     "tmp_dir"
-let helm_dir      = read_configuration_var     "helm_dir";;
-let getter_url    = read_configuration_var_env "getter_url" "HELM_GETTER_URL";;
-let processor_url = read_configuration_var_env "processor_url" "HELM_PROCESSOR_URL";;
-
-let _ = Hashtbl.clear vars;;
-

diff --git a/helm/interface/configure.in b/helm/interface/configure.in
deleted file mode 100644 (file)
index 4dc7a6f..0000000
--- a/helm/interface/configure.in
+++ /dev/null
@@ -1,206 +0,0 @@
-AC_INIT(configuration.ml.in)
-
-PACKAGE=helm_gtk_interface
-MAJOR_VERSION=0
-MINOR_VERSION=0
-MICRO_VERSION=2
-VERSION=$MAJOR_VERSION.$MINOR_VERSION.$MICRO_VERSION
-
-DEFAULT_HELM_CONFIGURATION_DIR=/usr/local/etc/helm
-
-AC_ARG_ENABLE(
-       defaults,
-       [  --enable-defaults[=ARG] if yes then use defaults (don't ask user) [default=auto]],
-       USE_DEFAULTS=$enableval,
-       USE_DEFAULTS=auto
-)
-
-if test "x$prefix" != xNONE; then
-  RESOLVED_PREFIX=$prefix
-else
-  RESOLVED_PREFIX=$ac_default_prefix
-fi
-
-if test "x$exec_prefix" != xNONE; then
-  RESOLVED_EXEC_PREFIX=$exec_prefix
-else
-  RESOLVED_EXEC_PREFIX=$RESOLVED_PREFIX
-fi
-
-dnl The following is the directory where the binary will be installed
-BIN_DIR=$RESOLVED_EXEC_PREFIX/bin
-
-AC_PATH_PROG(WGET_BINARY,wget,no)
-if test $WGET_BINARY = no; then
-       AC_MSG_WARN(wget is required to update the database)
-fi
-
-AC_PATH_PROG(PERL_BINARY,perl,no)
-if test $PERL_BINARY = no ; then
-   AC_MSG_ERROR(Could not find perl)
-fi
-
-dnl MISSING CHECKS:
-dnl ocaml-findlib, ocaml-netstring, ocaml-pxp, ocaml-netclient
-
-dnl Check for Ocaml
-AC_CHECK_PROG(HAVE_OCAMLC, ocamlc, yes, no)
-if test $HAVE_OCAMLC = "no"; then
-  AC_MSG_ERROR(could not find ocamlc in PATH, please make sure ocaml is installed)
-fi
-
-dnl Check for the Ocaml library dir
-AC_MSG_CHECKING(for the ocaml library dir)
-OCAML_ROOT=`ocamlc -v | grep "^Standard" | sed 's/^.*: *//'`
-AC_MSG_RESULT($OCAML_ROOT)
-
-DEFAULT_MLMINIDOM_LIB_DIR=$OCAML_ROOT/mlminidom
-DEFAULT_LABLGTK_LIB_DIR=$OCAML_ROOT/lablgtk
-DEFAULT_LABLGTKMATHVIEW_LIB_DIR=$OCAML_ROOT/lablgtkmathview
-
-dnl Check for mlminidom
-DEFAULTS=$USE_DEFAULTS
-if test $DEFAULTS = auto; then
-       if test -f $DEFAULT_MLMINIDOM_LIB_DIR/minidom.mli; then
-               MLMINIDOM_LIB_DIR=$DEFAULT_MLMINIDOM_LIB_DIR
-       else
-               DEFAULTS=no
-       fi
-fi
-
-if test $DEFAULTS = no; then
-       echo
-       echo "Where can I find the mlminidom library?"
-       echo
-       echo -n "[[$DEFAULT_MLMINIDOM_LIB_DIR]] ? "
-       echo
-       read MLMINIDOM_LIB_DIR
-       if test "x$MLMINIDOM_LIB_DIR" = x; then
-               MLMINIDOM_LIB_DIR=$DEFAULT_MLMINIDOM_LIB_DIR
-       fi
-elif test $DEFAULTS = yes; then
-       MLMINIDOM_LIB_DIR=$DEFAULT_MLMINIDOM_LIB_DIR
-fi
-
-AC_MSG_CHECKING(for $MLMINIDOM_LIB_DIR/minidom.mli)
-if test ! -f $MLMINIDOM_LIB_DIR/minidom.mli; then
-       AC_MSG_RESULT(no)
-       AC_MSG_ERROR(please check your installation)
-fi
-AC_MSG_RESULT(ok)
-
-dnl Check for lablgtk
-DEFAULTS=$USE_DEFAULTS
-if test $DEFAULTS = auto; then
-       if test -f $DEFAULT_LABLGTK_LIB_DIR/gtk.ml; then
-               LABLGTK_LIB_DIR=$DEFAULT_LABLGTK_LIB_DIR
-       else
-               DEFAULTS=no
-       fi
-fi
-
-if test $DEFAULTS = no; then
-       echo
-       echo "Where can I find the lablgtk library?"
-       echo
-       echo -n "[[$DEFAULT_LABLGTK_LIB_DIR]] ? "
-       read LABLGTK_LIB_DIR
-       echo
-       if test "x$LABLGTK_LIB_DIR" = x; then
-               LABLGTK_LIB_DIR=$DEFAULT_LABLGTK_LIB_DIR
-       fi
-elif test $DEFAULTS = yes; then
-       LABLGTK_LIB_DIR=$DEFAULT_LABLGTK_LIB_DIR
-fi
-
-AC_MSG_CHECKING(for $LABLGTK_LIB_DIR/gtk.ml)
-if test ! -f $LABLGTK_LIB_DIR/gtk.ml; then
-       AC_MSG_RESULT(no)
-       AC_MSG_ERROR(please check your installation)
-fi
-AC_MSG_RESULT(ok)
-
-dnl Check for lablgtkmathview
-DEFAULTS=$USE_DEFAULTS
-if test $DEFAULTS = auto; then
-       if test -f $DEFAULT_LABLGTKMATHVIEW_LIB_DIR/gMathView.ml; then
-               LABLGTKMATHVIEW_LIB_DIR=$DEFAULT_LABLGTKMATHVIEW_LIB_DIR
-       else
-               DEFAULTS=no
-       fi
-fi
-
-if test $DEFAULTS = no; then
-       echo
-       echo "Where can I find the lablgtkmathview library?"
-       echo
-       echo -n "[[$DEFAULT_LABLGTKMATHVIEW_LIB_DIR]] ? "
-       read LABLGTKMATHVIEW_LIB_DIR
-       echo
-       if test "x$LABLGTKMATHVIEW_LIB_DIR" = x; then
-               LABLGTKMATHVIEW_LIB_DIR=$DEFAULT_LABLGTKMATHVIEW_LIB_DIR
-       fi
-elif test $DEFAULTS = yes; then
-       LABLGTKMATHVIEW_LIB_DIR=$DEFAULT_LABLGTKMATHVIEW_LIB_DIR
-fi
-
-AC_MSG_CHECKING(for $LABLGTKMATHVIEW_LIB_DIR/gMathView.ml)
-if test ! -f $LABLGTKMATHVIEW_LIB_DIR/gMathView.ml; then
-       AC_MSG_RESULT(no)
-       AC_MSG_ERROR(please check your installation)
-fi
-AC_MSG_RESULT(ok)
-
-dnl Check for HELM
-DEFAULTS=$USE_DEFAULTS
-if test $DEFAULTS = auto; then
-       AC_CHECK_PROG(HAVE_HELM_CONFIG, helm-config, yes, no)
-       if test $HAVE_HELM_CONFIG = yes; then
-               HELM_CONFIGURATION_DIR=`helm-config --etc-dir`
-       else
-               DEFAULTS=no
-       fi
-fi
-
-if test $DEFAULTS = no; then
-       echo
-       echo "\`helm-config' is not installed (or I can't find it in your path)."
-       echo "Please, insert the directory where I can find the configuration"
-       echo "files for HELM (configuration.xml in particular)..."
-       echo
-       echo -n "[[$DEFAULT_HELM_CONFIGURATION_DIR]] ? "
-       read HELM_CONFIGURATION_DIR
-       echo
-       if test "x$HELM_CONFIGURATION_DIR" = "x"; then
-               HELM_CONFIGURATION_DIR=$DEFAULT_HELM_CONFIGURATION_DIR
-       fi
-elif test $DEFAULTS = yes; then
-       HELM_CONFIGURATION_DIR=$DEFAULT_HELM_CONFIGURATION_DIR
-fi
-
-AC_MSG_CHECKING(for configuration.xml)
-if test -f $HELM_CONFIGURATION_DIR/configuration.xml; then
-       AC_MSG_RESULT(ok)
-else
-       AC_MSG_RESULT(no)
-       AC_MSG_ERROR(please check your installation)
-fi
-
-AC_SUBST(PACKAGE)
-AC_SUBST(VERSION)
-AC_SUBST(OCAML_ROOT)
-AC_SUBST(MLMINIDOM_LIB_DIR)
-AC_SUBST(LABLGTK_LIB_DIR)
-AC_SUBST(LABLGTKMATHVIEW_LIB_DIR)
-AC_SUBST(BIN_DIR)
-AC_SUBST(HELM_CONFIGURATION_DIR)
-AC_SUBST(PERL_BINARY)
-
-AC_OUTPUT([
-  Makefile
-  configuration.ml
-  helm_wget
-  helm_gtk_interface.spec
-],
-  chmod +x helm_wget
-)

diff --git a/helm/interface/deannotate.ml b/helm/interface/deannotate.ml
deleted file mode 100644 (file)
index 00d4854..0000000
--- a/helm/interface/deannotate.ml
+++ /dev/null
@@ -1,98 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-let expect_possible_parameters = ref false;;
-
-exception NotExpectingPossibleParameters;;
-
-let rec deannotate_term =
- let module C = Cic in
-  function
-     C.ARel (_,_,n,_) -> C.Rel n
-   | C.AVar (_,_,uri) -> C.Var uri
-   | C.AMeta (_,_,n) -> C.Meta n
-   | C.ASort (_,_,s) -> C.Sort s
-   | C.AImplicit _ -> C.Implicit
-   | C.ACast (_,_,va,ty) -> C.Cast (deannotate_term va, deannotate_term ty)
-   | C.AProd (_,_,name,so,ta) ->
-      C.Prod (name, deannotate_term so, deannotate_term ta)
-   | C.ALambda (_,_,name,so,ta) ->
-      C.Lambda (name, deannotate_term so, deannotate_term ta)
-   | C.ALetIn (_,_,name,so,ta) ->
-      C.LetIn (name, deannotate_term so, deannotate_term ta)
-   | C.AAppl (_,_,l) -> C.Appl (List.map deannotate_term l)
-   | C.AConst (_,_,uri, cookingsno) -> C.Const (uri, cookingsno)
-   | C.AAbst (_,_,uri) -> C.Abst uri
-   | C.AMutInd (_,_,uri,cookingsno,i) -> C.MutInd (uri,cookingsno,i)
-   | C.AMutConstruct (_,_,uri,cookingsno,i,j) ->
-      C.MutConstruct (uri,cookingsno,i,j)
-   | C.AMutCase (_,_,uri,cookingsno,i,outtype,te,pl) ->
-      C.MutCase (uri,cookingsno,i,deannotate_term outtype,
-       deannotate_term te, List.map deannotate_term pl)
-   | C.AFix (_,_,funno,ifl) ->
-      C.Fix (funno, List.map deannotate_inductiveFun ifl)
-   | C.ACoFix (_,_,funno,ifl) ->
-      C.CoFix (funno, List.map deannotate_coinductiveFun ifl)
-
-and deannotate_inductiveFun (name,index,ty,bo) =
- (name, index, deannotate_term ty, deannotate_term bo)
-
-and deannotate_coinductiveFun (name,ty,bo) =
- (name, deannotate_term ty, deannotate_term bo)
-;;
-
-let deannotate_inductiveType (name, isinductive, arity, cons) =
- (name, isinductive, deannotate_term arity,
-  List.map (fun (id,ty,recs) -> (id,deannotate_term ty, recs)) cons)
-;;
-
-let deannotate_obj =
- let module C = Cic in
-  function
-     C.ADefinition (_, _, id, bo, ty, params) ->
-      (match params with
-          C.Possible params ->
-           if !expect_possible_parameters then
-            C.Definition (id, deannotate_term bo, deannotate_term ty, params)
-           else
-            raise NotExpectingPossibleParameters
-        | C.Actual params ->
-           C.Definition (id, deannotate_term bo, deannotate_term ty, params)
-      )
-   | C.AAxiom (_, _, id, ty, params) ->
-      C.Axiom (id, deannotate_term ty, params)
-   | C.AVariable (_, _, name, bo, ty) ->
-      C.Variable (name,
-       (match bo with None -> None | Some bo -> Some (deannotate_term bo)),
-       deannotate_term ty)
-   | C.ACurrentProof (_, _, name, conjs, bo, ty) ->
-      C.CurrentProof (
-       name, List.map (fun (id,con) -> (id,deannotate_term con)) conjs,
-       deannotate_term bo, deannotate_term ty
-      )
-   | C.AInductiveDefinition (_, _, tys, params, parno) ->
-      C.InductiveDefinition ( List.map deannotate_inductiveType tys,
-       params, parno)
-;;

diff --git a/helm/interface/experiment.ml b/helm/interface/experiment.ml
deleted file mode 100644 (file)
index 7d06b4d..0000000
--- a/helm/interface/experiment.ml
+++ /dev/null
@@ -1,109 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This is a textual interface to the Coq-like pretty printer cicPp for cic   *)
-(* terms exported in xml. It uses directly the modules cicPp and cache and    *)
-(* indirectly all the other modules (cicParser, cicParser2, cicParser3,       *)
-(* getter). The syntax is  "experiment[.opt] filename1 ... filenamen" where   *)
-(* filenamei is the path-name of an xml file describing a cic term. On stdout *)
-(* are pretty-printed all the n terms                                         *)
-(*                                                                            *)
-(******************************************************************************)
-
-let pretty_print    = ref true;;
-let read_from_stdin = ref false;;
-let uris_in_input   = ref false;;
-
-let parse uri =
- if !pretty_print then
-  begin
-   print_endline ("^^^" ^ uri ^ "^^^") ;
-   print_string (CicPp.ppobj (CicCache.get_obj (UriManager.uri_of_string uri)));
-   print_endline ("\n$$$" ^ uri ^ "$$$\n")
-  end
- else
-  begin
-   print_string uri ;
-   let _ = CicCache.get_obj  (UriManager.uri_of_string uri) in
-    print_endline " OK!" ;
-    flush stdout
-  end
-;;
-
-let uri_of_filename fn =
- if !uris_in_input then fn
- else
-  let uri =
-   Str.replace_first (Str.regexp (Str.quote Configuration.helm_dir)) "cic:" fn
-  in
-   let uri' = Str.replace_first (Str.regexp "\.xml$") "" uri in
-    uri'
-;;
-
-let read_filenames_from_stdin () =
- let files = ref [] in
-  try
-   while true do
-    let l = Str.split (Str.regexp " ") (read_line ()) in
-     List.iter (fun x -> files := (uri_of_filename x) :: !files) l
-   done
-  with
-   End_of_file ->
-    files := List.rev !files ;
-    List.iter parse !files
-;;
-
-(* filenames are read from command line and converted to uris via *)
-(* uri_of_filenames; then the cic terms are load in cache via     *)
-(* CicCache.get_obj  and then pretty printed via CicPp.ppobj      *)
-
-let main() =
-  let files = ref [] in
-  Arg.parse
-   ["-nopp", Arg.Clear pretty_print, "Do not pretty print, parse only" ;
-    "-stdin", Arg.Set read_from_stdin, "Read from stdin" ;
-    "-uris", Arg.Set uris_in_input, "Read uris, not filenames" ;
-    "-update", Arg.Unit Getter.update, "Update the getter view of the world"]
-   (fun x -> files := (uri_of_filename x) :: !files)
-   "
-usage: experiment file ...
-
-List of options:";
-  if !read_from_stdin then read_filenames_from_stdin ()
-  else
-   begin
-    files := List.rev !files;
-    List.iter parse !files
-   end
-;;
-
-main();;

diff --git a/helm/interface/fix_params.ml b/helm/interface/fix_params.ml
deleted file mode 100644 (file)
index f1edf09..0000000
--- a/helm/interface/fix_params.ml
+++ /dev/null
@@ -1,74 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-let read_from_stdin = ref false;;
-
-let uri_of_filename fn =
- let uri =
-  Str.replace_first (Str.regexp (Str.quote Configuration.helm_dir)) "cic:" fn
- in
-  let uri' = Str.replace_first (Str.regexp "\.xml$") "" uri in
-   UriManager.uri_of_string uri'
-;;
-
-let main() =
-  Deannotate.expect_possible_parameters := true ;
-  let files = ref [] in
-  Arg.parse
-   ["-stdin", Arg.Set read_from_stdin, "Read from stdin"]
-   (fun x -> files := (x, uri_of_filename x) :: !files)
-      "
-usage: experiment file ...
-
-List of options:";
-  if !read_from_stdin then
-   begin
-    try
-     while true do
-      let l = Str.split (Str.regexp " ") (read_line ()) in
-       List.iter (fun x -> files := (x, uri_of_filename x) :: !files) l
-     done
-    with
-     End_of_file -> ()
-   end ;
-  files := List.rev !files;
-  Getter.update () ;
-  print_endline "ATTENTION: have you changed servers.txt so that you'll try \
-   to repair your own objs instead of others'?" ;
-  flush stdout ;
-  List.iter
-    (function (fn, uri) ->
-      print_string (UriManager.string_of_uri uri) ;
-      flush stdout ;
-      (try
-       CicFindParameters.fix_params uri (Some fn)
-      with
-        e -> print_newline () ; flush stdout ; raise e ) ;
-      print_endline " OK!" ;
-      flush stdout
-    ) !files
-;;
-
-main();;

diff --git a/helm/interface/getter.ml b/helm/interface/getter.ml
deleted file mode 100644 (file)
index 5b973f2..0000000
--- a/helm/interface/getter.ml
+++ /dev/null
@@ -1,110 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(******************************************************************************)
-
-
-(*CSC: il getter _DEVE_ diventare un semplice "binding" a quello in Perl *)
-
-let update () =
-(* deliver update request to http_getter *)
- ClientHTTP.send (Configuration.getter_url ^ "update")
-;;
-
-(* url_of_uri : uri -> url *)
-let url_of_uri uri =
- let dbm = Dbm.opendbm Configuration.uris_dbm [Dbm.Dbm_rdonly] 0o660 in
-  let url = Dbm.find dbm (UriManager.string_of_uri uri) in
-   Dbm.close dbm ;
-   url
-;;
-
-let filedir_of_uri uri =
- let fn = UriManager.buri_of_uri uri in
-  let fn' = Str.replace_first (Str.regexp ".*:") Configuration.dest fn in
-   fn'
-;;
-
-let name_and_ext_of_uri uri =
- let str = UriManager.string_of_uri uri in
-  Str.replace_first (Str.regexp ".*/") "" str
-;;
-
-let raw_get = ClientHTTP.get_and_save
-
-(* get_file : uri -> filename *)
-let get_file uri =
- let dir = filedir_of_uri uri in
-  let fn = dir ^ "/" ^ name_and_ext_of_uri uri ^ ".xml" in
-   if not (Sys.file_exists fn) then
-    begin
-     let url = url_of_uri uri in
-      raw_get
-       (Configuration.getter_url ^ "getxml?uri=" ^
-        UriManager.string_of_uri uri ^ "&format=normal&patch_dtd=no"
-       ) fn
-    end ;
-   fn
-;;
-
-(* get : uri -> filename *)
-(* If uri is the URI of an annotation, the annotated object is processed *)
-let get uri =
- let module U = UriManager in
-  get_file
-   (U.uri_of_string
-    (Str.replace_first (Str.regexp "\.types$") ""
-     (Str.replace_first (Str.regexp "\.ann$") "" (U.string_of_uri uri))))
-;;
-
-(* get_ann : uri -> filename *)
-(* If uri is the URI of an annotation, the annotation file is processed *)
-let get_ann = get_file;;
-
-(* get_ann_file_name_and_uri : uri -> filename * annuri *)
-(* If given an URI, it returns the name of the corresponding *)
-(* annotation file and the annotation uri                    *)
-let get_ann_file_name_and_uri uri = 
- let module U = UriManager in
-  let uri = U.string_of_uri uri in
-   let annuri =
-    U.uri_of_string (
-     if Str.string_match (Str.regexp ".*\.ann$") uri 0 then
-      uri
-     else
-      uri ^ ".ann"
-    )
-   in
-    let dir = filedir_of_uri annuri in
-     let fn = dir ^ "/" ^ name_and_ext_of_uri annuri ^ ".xml" in
-      (fn, annuri)
-;;

diff --git a/helm/interface/getter.mli b/helm/interface/getter.mli
deleted file mode 100644 (file)
index 0c7401c..0000000
--- a/helm/interface/getter.mli
+++ /dev/null
@@ -1,53 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
-(* raw_get : uri -> dest_file -> () *)
-val raw_get : string -> string -> unit
-
-(* get : uri -> filename *)
-(* If uri is the URI of an annotation, the annotated object is processed *)
-val get : UriManager.uri -> string
-
-(* get_ann : uri -> filename *)
-(* If uri is the URI of an annotation, the annotation file is processed *)
-val get_ann : UriManager.uri -> string
-
-(* get_ann_file_name_and_uri : uri -> filename * annuri *)
-(* If given an URI, it returns the name of the corresponding *)
-(* annotation file and the annotation uri                    *)
-val get_ann_file_name_and_uri : UriManager.uri -> string * UriManager.uri
-
-(* synchronize with the servers *)
-val update : unit -> unit

diff --git a/helm/interface/helm_gtk_interface.spec.in b/helm/interface/helm_gtk_interface.spec.in
deleted file mode 100644 (file)
index 0e567ae..0000000
--- a/helm/interface/helm_gtk_interface.spec.in
+++ /dev/null
@@ -1,32 +0,0 @@
-Summary: The gtk interface for the library of project HELM
-Name: @PACKAGE@
-Version: @VERSION@
-Release: 1
-Copyright: GPL
-URL: http://www.cs.unibo.it/helm
-Packager: Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>
-Requires: helm_configuration >= 0.0.2, helm_data >= 0.0.2, helm_http_getter >= 0.0.2, helm_uwobo >= 0.0.2, ocaml >= 3.00, ocaml-findlib, ocaml-netstring, ocaml-pxp, lablgtk, lablgtkmathview >= 0.0.2
-Group: Applications/Publishing
-Source: www.cs.unibo.it:/helm/@PACKAGE@-@VERSION@.tar.gz
-%description
-HELM (Hypertextual Electronic Library of Mathematics) is a project aimed
-at the creation of tools for the development and exploitation of a huge
-distributed library of formal mathematical knowledge. This package holds
-a gtk interface to the library.
-For more information see http://www.cs.unibo.it/helm
-
-%prep
-%setup
-
-%build
-./configure --enable-defaults
-make
-make opt
-
-%install
-make install
-
-%files
-%doc AUTHORS COPYING ChangeLog NEWS README
-%attr(755,root,root) /usr/local/bin/mmlinterface
-%attr(755,root,root) /usr/local/bin/mmlinterface.opt

diff --git a/helm/interface/helm_wget.in b/helm/interface/helm_wget.in
deleted file mode 100755 (executable)
index 8aa0260..0000000
--- a/helm/interface/helm_wget.in
+++ /dev/null
@@ -1,19 +0,0 @@
-#!@PERL_BINARY@
-
-if ($#ARGV != 1) {
- print STDERR "Usage: helm_wget prefix URL\n";
- exit -1;
-}
-
-my ($prefix,$URL) = @ARGV;
-if ($URL =~ /^file:\//) {
- $URL =~ s/^file:\///;
- my $command = "mkdir -p $prefix ; cp $URL $prefix";
- print "$command\n";
- system($command) == 0
-  or die "\"$command\" error";
-} else {
- my $command = "wget -c -P $prefix $URL";
- system($command) == 0
-  or die "\"$command\" error";
-}

diff --git a/helm/interface/mmlinterface.ml b/helm/interface/mmlinterface.ml
deleted file mode 100755 (executable)
index 68c4134..0000000
--- a/helm/interface/mmlinterface.ml
+++ /dev/null
@@ -1,518 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 03/04/2001                                 *)
-(*                                                                            *)
-(* This is a simple gtk interface to the Coq-like pretty printer cicPp for    *)
-(* cic terms exported in xml. It uses directly the modules cicPp and          *)
-(* cicCcache and indirectly all the other modules (cicParser, cicParser2,     *)
-(* cicParser3, getter).                                                       *)
-(* The syntax is  "gtkInterface[.opt] filename1 ... filenamen" where          *)
-(* filenamei is the path-name of an xml file describing a cic term.           *)
-(* The terms are loaded in cache and then pretty-printed one at a time and    *)
-(* only once, when the user wants to look at it: if the user wants to look at *)
-(* a term again, then the pretty-printed term is showed again, but not        *)
-(* recomputed                                                                 *)
-(*                                                                            *)
-(******************************************************************************)
-
-(* GLOBAL REFERENCES (USED BY CALLBACKS) *)
-
-let annotated_obj = ref None;;      (* reference to a couple option where    *)
-                                    (* the first component is the current    *)
-                                    (* annotated object and the second is    *)
-                                    (* the map from ids to annotated targets *)
-let ann = ref (ref None);;          (* current annotation *)
-let radio_some_status = ref false;; (* is the radio_some button selected? *)
-let current_url = ref "";;
-
-(* MISC FUNCTIONS *)
-
-let pathname_of_annuri uristring =
- Configuration.annotations_dir ^
-  Str.replace_first (Str.regexp "^cic:") "" uristring
-;;
-
-let make_dirs dirpath =
- ignore (Unix.system ("mkdir -p " ^ dirpath))
-;;
-
-exception No_param_dot_CICURI_or_param_dot_annotations_found_in of string;;
-exception Bad_formed_url of string;;
-
-let uri_from_url url =
- let module N = Neturl in
- let founduri = ref None in
- let foundann = ref None in
-  let rec find_uri =
-   function
-      [] -> raise (No_param_dot_CICURI_or_param_dot_annotations_found_in url)
-    | he::tl ->
-       match Str.split (Str.regexp "=") he with
-          ["param.CICURI";uri] ->
-            if !founduri <> None then
-             raise (Bad_formed_url url)
-            else
-             begin
-              founduri := Some uri ;
-              if !foundann = None then
-               find_uri tl
-             end
-        | ["param.annotations";ann] ->
-            if !foundann <> None then
-             raise (Bad_formed_url url)
-            else
-             begin
-              foundann :=
-               Some
-                (match ann with
-                    "yes" -> ".ann"
-                  | "NO"  -> ""
-                  | _     -> raise (Bad_formed_url url)
-                ) ;
-              if !founduri = None then
-               find_uri tl
-             end
-        | _ -> find_uri tl
-  in
-   find_uri
-    (Str.split (Str.regexp "&")
-     (N.url_query ~encoded:true (N.url_of_string N.ip_url_syntax url))) ;
-   match !founduri,!foundann with
-      (Some uri),(Some ann) -> uri ^ ann
-    | _         , _         ->
-       raise (No_param_dot_CICURI_or_param_dot_annotations_found_in url)
-;;
-
-let get_current_uri () =
- UriManager.uri_of_string (uri_from_url !current_url)
-;;
-
-(* CALLBACKS *)
-
-let get_annotated_obj () =
- match !annotated_obj with
-    None   ->
-     let annobj =
-      (CicCache.get_annobj (get_current_uri ()))
-     in
-      annotated_obj := Some annobj ;
-      annobj
-  | Some annobj -> annobj
-;;
-
-let update_output rendering_window url =
- rendering_window#label#set_text (uri_from_url url) ;
- rendering_window#output#load url
-;;
-
-(* called when an hyperlink is clicked *)
-let jump rendering_window (node : Ominidom.o_mDOMNode) =
- let module O = Ominidom in
- let module U = Unix in
-  match (node#get_attribute (O.o_mDOMString_of_string "href")) with
-    Some str ->
-     let frameseturl = str#get_string in
-     let devnull = U.openfile "/dev/null" [U.O_RDWR] 0o600 in
-      ignore
-       (U.create_process "netscape-remote"
-         [|"netscape-remote" ; "-noraise" ; "-remote" ;
-           "openURL(" ^ frameseturl ^ ",cic)"
-         |] devnull devnull devnull)
-  | None -> assert false
-;;
-
-(* called by the remote control *)
-let remotejump rendering_window url =
- current_url := url ;
- update_output rendering_window url
-;;
-
-let choose_selection rendering_window (node : Ominidom.o_mDOMNode option) =
- let module O = Ominidom in
-  let rec aux node =
-   match node#get_attribute (O.o_mDOMString_of_string "xref") with
-     Some _ -> rendering_window#output#set_selection (Some node)
-   | None   -> aux (node#get_parent)
-  in
-   match node with
-     Some x -> aux x
-   | None   -> rendering_window#output#set_selection None
-;;
-
-let annotateb_pressed rendering_window annotation_window () =
- let module O = Ominidom in
- match rendering_window#output#get_selection with
-   Some node ->
-    begin
-     match (node#get_attribute (O.o_mDOMString_of_string "xref")) with
-        Some xpath ->
-         let annobj = get_annotated_obj ()
-         and annotation = (annotation_window#annotation : GEdit.text) in
-          ann := CicXPath.get_annotation annobj (xpath#get_string) ;
-          CicAnnotationHinter.create_hints annotation_window annobj
-          (xpath#get_string) ;
-          annotation#delete_text 0 annotation#length ;
-          begin
-           match !(!ann) with
-               None      ->
-                annotation#misc#set_sensitive false ;
-                annotation_window#radio_none#set_active true ;
-                radio_some_status := false
-             | Some ann' ->
-                annotation#insert ann' ;
-                annotation#misc#set_sensitive true ;
-                annotation_window#radio_some#set_active true ;
-                radio_some_status := true
-          end ;
-          GMain.Grab.add (annotation_window#window_to_annotate#coerce) ;
-          annotation_window#show () ;
-     | None -> rendering_window#label#set_text ("ERROR: No xref found!!!\n")
-    end
- | None -> rendering_window#label#set_text ("ERROR: No selection!!!\n")
-;;
-
-(* called when the annotation is confirmed *)
-let save_annotation annotation =
- let module S = Str in
- let module U = UriManager in
-  if !radio_some_status then
-   !ann := Some (annotation#get_chars 0 annotation#length)
-  else
-   !ann := None ;
-  match !annotated_obj with
-     None -> assert false
-   | Some (annobj,_) ->
-      let uri = get_current_uri () in
-       let annxml = Annotation2Xml.pp_annotation annobj uri in
-        make_dirs
-          (pathname_of_annuri (U.buri_of_uri uri)) ;
-        Xml.pp ~quiet:true annxml
-         (Some
-          (pathname_of_annuri (U.string_of_uri (U.annuri_of_uri uri)) ^
-           ".xml"
-          )
-         )
-;;
-
-(* STUFF TO BUILD THE GTK INTERFACE *)
-
-(* Stuff for the widget settings *)
-
-let export_to_postscript (output : GMathView.math_view) () =
- output#export_to_postscript ~filename:"output.ps" ();
-;;
-
-let activate_t1 output button_set_anti_aliasing button_set_kerning 
- button_export_to_postscript button_t1 ()
-=
- let is_set = button_t1#active in
-  output#set_font_manager_type
-   (if is_set then `font_manager_t1 else `font_manager_gtk) ;
-  if is_set then
-   begin
-    button_set_anti_aliasing#misc#set_sensitive true ;
-    button_set_kerning#misc#set_sensitive true ;
-    button_export_to_postscript#misc#set_sensitive true ;
-   end
-  else
-   begin
-    button_set_anti_aliasing#misc#set_sensitive false ;
-    button_set_kerning#misc#set_sensitive false ;
-    button_export_to_postscript#misc#set_sensitive false ;
-   end
-;;
-
-let set_anti_aliasing output button_set_anti_aliasing () =
- output#set_anti_aliasing button_set_anti_aliasing#active
-;;
-
-let set_kerning output button_set_kerning () =
- output#set_kerning button_set_kerning#active
-;;
-
-let changefont output font_size_spinb () =
- output#set_font_size font_size_spinb#value_as_int
-;;
-
-let set_log_verbosity output log_verbosity_spinb () =
- output#set_log_verbosity log_verbosity_spinb#value_as_int
-;;
-
-class settings_window output sw button_export_to_postscript jump_callback
- selection_changed_callback
-=
- let settings_window = GWindow.window ~title:"GtkMathView settings" () in
- let vbox =
-  GPack.vbox ~packing:settings_window#add () in
- let table =
-  GPack.table
-   ~rows:1 ~columns:3 ~homogeneous:false ~row_spacings:5 ~col_spacings:5
-   ~border_width:5 ~packing:vbox#add () in
- let button_t1 =
-  GButton.toggle_button ~label:"activate t1 fonts"
-   ~packing:(table#attach ~left:0 ~top:0) () in
- let button_set_anti_aliasing =
-  GButton.toggle_button ~label:"set_anti_aliasing"
-   ~packing:(table#attach ~left:1 ~top:0) () in
- let button_set_kerning =
-  GButton.toggle_button ~label:"set_kerning"
-   ~packing:(table#attach ~left:2 ~top:0) () in
- let table =
-  GPack.table
-   ~rows:2 ~columns:2 ~homogeneous:false ~row_spacings:5 ~col_spacings:5
-   ~border_width:5 ~packing:vbox#add () in
- let font_size_label =
-  GMisc.label ~text:"font size:"
-   ~packing:(table#attach ~left:0 ~top:0 ~expand:`NONE) () in
- let font_size_spinb =
-  let sadj =
-   GData.adjustment ~value:14.0 ~lower:5.0 ~upper:50.0 ~step_incr:1.0 ()
-  in
-   GEdit.spin_button 
-    ~adjustment:sadj ~packing:(table#attach ~left:1 ~top:0 ~fill:`NONE) () in
- let log_verbosity_label =
-  GMisc.label ~text:"log verbosity:"
-   ~packing:(table#attach ~left:0 ~top:1) () in
- let log_verbosity_spinb =
-  let sadj =
-   GData.adjustment ~value:0.0 ~lower:0.0 ~upper:3.0 ~step_incr:1.0 ()
-  in
-   GEdit.spin_button 
-    ~adjustment:sadj ~packing:(table#attach ~left:1 ~top:1) () in
- let hbox =
-  GPack.hbox ~packing:(vbox#pack ~expand:false ~fill:false ~padding:5) () in
- let closeb =
-  GButton.button ~label:"Close"
-   ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
-object(self)
- method show = settings_window#show
- initializer
-  button_set_anti_aliasing#misc#set_sensitive false ;
-  button_set_kerning#misc#set_sensitive false ;
-  (* Signals connection *)
-  ignore(button_t1#connect#clicked
-   (activate_t1 output button_set_anti_aliasing button_set_kerning
-    button_export_to_postscript button_t1)) ;
-  ignore(font_size_spinb#connect#changed (changefont output font_size_spinb)) ;
-  ignore(button_set_anti_aliasing#connect#toggled
-   (set_anti_aliasing output button_set_anti_aliasing));
-  ignore(button_set_kerning#connect#toggled
-   (set_kerning output button_set_kerning)) ;
-  ignore(log_verbosity_spinb#connect#changed
-   (set_log_verbosity output log_verbosity_spinb)) ;
-  ignore(closeb#connect#clicked settings_window#misc#hide)
-end;;
-
-(* Main windows *)
-
-class annotation_window output label =
- let window_to_annotate =
-  GWindow.window ~title:"Annotating environment" ~border_width:2 () in
- let hbox1 =
-  GPack.hbox ~packing:window_to_annotate#add () in
- let vbox1 =
-  GPack.vbox ~packing:(hbox1#pack ~padding:5) () in
- let hbox2 =
-  GPack.hbox ~packing:(vbox1#pack ~expand:false ~fill:false ~padding:5) () in
- let radio_some = GButton.radio_button ~label:"Annotation below"
-  ~packing:(hbox2#pack ~expand:false ~fill:false ~padding:5) () in
- let radio_none = GButton.radio_button ~label:"No annotation"
-  ~group:radio_some#group
-  ~packing:(hbox2#pack ~expand:false ~fill:false ~padding:5)
-  ~active:true () in
- let annotation = GEdit.text ~editable:true ~width:400 ~height:180
-  ~packing:(vbox1#pack ~padding:5) () in
- let table =
-  GPack.table ~rows:3 ~columns:3 ~packing:(vbox1#pack ~padding:5) () in
- let annotation_hints =
-  Array.init 9
-   (function i ->
-     GButton.button ~label:("Hint " ^ string_of_int i)
-      ~packing:(table#attach ~left:(i mod 3) ~top:(i / 3)) ()
-   ) in
- let vbox2 =
-  GPack.vbox ~packing:(hbox1#pack ~expand:false ~fill:false ~padding:5) () in
- let confirmb =
-  GButton.button ~label:"O.K."
-   ~packing:(vbox2#pack ~expand:false ~fill:false ~padding:5) () in
- let abortb =
-  GButton.button ~label:"Abort"
-   ~packing:(vbox2#pack ~expand:false ~fill:false ~padding:5) () in
-object (self)
- method window_to_annotate = window_to_annotate
- method annotation = annotation
- method radio_some = radio_some
- method radio_none = radio_none
- method annotation_hints = annotation_hints
- method output = (output : GMathView.math_view)
- method show () = window_to_annotate#show ()
- initializer
-  (* signal handlers here *)
-  ignore (window_to_annotate#event#connect#delete
-   (fun _ ->
-     window_to_annotate#misc#hide () ;
-     GMain.Grab.remove (window_to_annotate#coerce) ; 
-     true
-   )) ;
-  ignore (confirmb#connect#clicked
-   (fun () ->
-     window_to_annotate#misc#hide () ;
-     save_annotation annotation ;
-     GMain.Grab.remove (window_to_annotate#coerce) ;
-     let new_current_uri = UriManager.annuri_of_uri (get_current_uri ()) in
-      Getter.register new_current_uri
-       (Configuration.annotations_url ^
-         Str.replace_first (Str.regexp "^cic:") ""
-          (UriManager.string_of_uri new_current_uri) ^ ".xml"
-       ) ;
-(*CSC: corretto, up to XsltProcessor.url_of_uri
-      let new_current_url = XsltProcessor.url_of_uri new_current_uri in
-       current_url := new_current_url ;
-       label#set_text (UriManager.string_of_uri new_current_uri) ;
-       output#load new_current_url
-*) ()
-   )) ;
-  ignore (abortb#connect#clicked
-   (fun () ->
-     window_to_annotate#misc#hide () ;
-     GMain.Grab.remove (window_to_annotate#coerce)
-   ));
-  ignore (radio_some#connect#clicked
-   (fun () -> annotation#misc#set_sensitive true ; radio_some_status := true)) ;
-  ignore (radio_none #connect#clicked
-   (fun () ->
-     annotation#misc#set_sensitive false;
-     radio_some_status := false)
-   )
-end;;
-
-class rendering_window annotation_window output (label : GMisc.label) =
- let window =
-  GWindow.window ~title:"MathML viewer" ~border_width:2 () in
- let vbox =
-  GPack.vbox ~packing:window#add () in
- let _ = vbox#pack ~expand:false ~fill:false ~padding:5 label#coerce in
- let scrolled_window0 =
-  GBin.scrolled_window ~border_width:10
-   ~packing:(vbox#pack ~expand:true ~padding:5) () in
- let _ = scrolled_window0#add output#coerce in
- let hbox =
-  GPack.hbox ~packing:(vbox#pack ~expand:false ~fill:false ~padding:5) () in
- let annotateb =
-  GButton.button ~label:"Annotate"
-   ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
- let settingsb =
-  GButton.button ~label:"Settings"
-   ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
- let button_export_to_postscript =
-  GButton.button ~label:"export_to_postscript"
-  ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
- let closeb =
-  GButton.button ~label:"Close"
-   ~packing:(hbox#pack ~expand:false ~fill:false ~padding:5) () in
-object(self)
- method label = label
- method output = (output : GMathView.math_view)
- method show () = window#show ()
- initializer
-  button_export_to_postscript#misc#set_sensitive false ;
-
-  (* signal handlers here *)
-  ignore(output#connect#jump (jump self)) ;
-  ignore(output#connect#selection_changed (choose_selection self)) ;
-  ignore(closeb#connect#clicked (fun _ -> GMain.Main.quit ())) ;
-  ignore(annotateb#connect#clicked (annotateb_pressed self annotation_window)) ;
-  let settings_window = new settings_window output scrolled_window0
-   button_export_to_postscript (jump self) (choose_selection self) in
-  ignore(settingsb#connect#clicked settings_window#show) ;
-  ignore(button_export_to_postscript#connect#clicked (export_to_postscript output)) ;
-  ignore(window#event#connect#delete (fun _ -> GMain.Main.quit () ; true ))
-end;;
-
-(* MAIN *)
-
-let initialize_everything tmpfile url =
- let module U = Unix in
-  (* Let's be ready to be remotely controlled *) 
-  let socket = U.socket ~domain:U.PF_INET ~kind:U.SOCK_DGRAM ~protocol:0 in
-  let address = U.ADDR_INET (U.inet_addr_of_string "127.000.000.001", 8778) in
-  let buffersize = 2048 in (* are 2048 chars enough? *)
-  let buffer = String.create buffersize in
-   try
-    U.bind socket address ;
-    U.set_nonblock socket ;
-    let output = GMathView.math_view ~width:400 ~height:380 ()
-    and label = GMisc.label ~text:"???" () in
-     let annotation_window = new annotation_window output label in
-     let rendering_window =
-      new rendering_window annotation_window output label
-     in
-     let exec_remote_request () =
-      try
-       remotejump rendering_window
-        (String.sub buffer 0 (U.recv socket buffer 0 buffersize []))
-      with
-         U.Unix_error (U.EAGAIN,_,_)
-       | U.Unix_error (U.EWOULDBLOCK,_,_) -> ()
-     in
-      ignore (GMain.Timeout.add ~ms:500
-       ~callback:(fun () -> exec_remote_request () ; true)) ;
-      rendering_window#show () ;
-      rendering_window#label#set_text (uri_from_url url) ;
-      rendering_window#output#load tmpfile ;
-      GMain.Main.main ()
-   with
-    U.Unix_error (_,"bind",_) ->
-     (* Another copy is already under execution ==> I am a remote control *)
-     ignore (U.sendto socket url 0 (String.length url) [] address)
-;;
-
-let _ =
- let filename = ref "" in
- let usage_msg =
-   "\nusage: mmlinterface[.opt] file url\n\n List of options:"
- in
-  Arg.parse []
-   (fun x ->
-     if x = "" then raise (Arg.Bad "Empty filename or URL not allowed") ;
-     if !filename = "" then
-      filename := x
-     else if !current_url = "" then
-      current_url := x
-     else
-      begin
-       prerr_string "More than two arguments provided\n" ;
-       Arg.usage [] usage_msg ;
-       exit (-1)
-      end
-   ) usage_msg ;
-   initialize_everything !filename !current_url
-;;

diff --git a/helm/interface/pxpUriResolver.ml b/helm/interface/pxpUriResolver.ml
deleted file mode 100644 (file)
index 7ca78aa..0000000
--- a/helm/interface/pxpUriResolver.ml
+++ /dev/null
@@ -1,128 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 11/10/2000                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
-let resolve s =
- let starts_with s s' =
-  if String.length s < String.length s' then
-   false
-  else
-   (String.sub s 0 (String.length s')) = s'
- in
-  if starts_with s "http:" then
-   ClientHTTP.get_and_save_to_tmp s
-  else
-   s
-;;
-
-let url_syntax =
-    let enable_if =
-      function
-         `Not_recognized  -> Neturl.Url_part_not_recognized
-       | `Allowed         -> Neturl.Url_part_allowed
-       | `Required        -> Neturl.Url_part_required
-    in
-    { Neturl.null_url_syntax with
-       Neturl.url_enable_scheme = enable_if `Allowed;
-       Neturl.url_enable_host   = enable_if `Allowed;
-       Neturl.url_enable_path   = Neturl.Url_part_required;
-       Neturl.url_accepts_8bits = true;
-    } 
-;;
-
-let file_url_of_id xid =
-  let file_url_of_sysname sysname =
-    (* By convention, we can assume that sysname is a URL conforming
-     * to RFC 1738 with the exception that it may contain non-ASCII
-     * UTF-8 characters. 
-     *)
-    try
-     Neturl.url_of_string url_syntax sysname 
-        (* may raise Malformed_URL *)
-    with
-     Neturl.Malformed_URL -> raise Pxp_reader.Not_competent
-  in
-  let url =
-    match xid with
-       Pxp_types.Anonymous          -> raise Pxp_reader.Not_competent
-     | Pxp_types.Public (_,sysname) ->
-        let sysname = resolve sysname in
-         if sysname <> "" then file_url_of_sysname sysname
-                          else raise Pxp_reader.Not_competent
-     | Pxp_types.System sysname     ->
-        let sysname = resolve sysname in
-         file_url_of_sysname sysname
-  in
-  let scheme =
-    try Neturl.url_scheme url with Not_found -> "file" in
-  let host =
-    try Neturl.url_host url with Not_found -> "" in
-    
-  if scheme <> "file" then raise Pxp_reader.Not_competent;
-  if host <> "" && host <> "localhost" then raise Pxp_reader.Not_competent;
-    
-  url
-;;
-
-let from_file ?system_encoding utf8_filename =
-  
-  let r =
-    new Pxp_reader.resolve_as_file 
-      ?system_encoding:system_encoding
-      ~url_of_id:file_url_of_id
-      ()
-  in
-
-  let utf8_abs_filename =
-    if utf8_filename <> "" && utf8_filename.[0] = '/' then
-      utf8_filename
-    else
-      Sys.getcwd() ^ "/" ^ utf8_filename
-  in
-
-  let syntax = { Neturl.ip_url_syntax with Neturl.url_accepts_8bits = true } in
-  let url = Neturl.make_url 
-             ~scheme:"file" 
-             ~host:"localhost" 
-             ~path:(Neturl.split_path utf8_abs_filename) 
-             syntax
-  in
-
-  let xid = Pxp_types.System (Neturl.string_of_url url) in
-    
-
-  Pxp_yacc.ExtID(xid, r)
-;;
-
-

diff --git a/helm/interface/reduction.ml b/helm/interface/reduction.ml
deleted file mode 100644 (file)
index 558822b..0000000
--- a/helm/interface/reduction.ml
+++ /dev/null
@@ -1,95 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-let read_from_stdin = ref false;;
-let uris_in_input = ref false;;
-let reduction_only = ref false;;
-
-let parse uri =
- print_endline ("^^^" ^ uri ^ "^^^") ;
- print_string (CicPp.ppobj (CicCache.get_obj (UriManager.uri_of_string uri))) ;
- print_endline ("\n$$$" ^ uri ^ "$$$\n")
-;;
-
-let uri_of_filename fn =
- if !uris_in_input then fn
- else
-  let uri =
-   Str.replace_first (Str.regexp (Str.quote Configuration.helm_dir)) "cic:" fn
-  in
-   let uri' = Str.replace_first (Str.regexp "\.xml$") "" uri in
-    uri'
-;;
-
-(* filenames are read from command line and converted to uris via *)
-(* uri_of_filenames; then the cic terms are load in cache via     *)
-(* CicCache.get_obj and then pretty printed via CicPp.ppobj       *)
-
-exception NotADefinition;;
-
-let main () =
- let files = ref [] in
- Arg.parse
-  ["-stdin", Arg.Set read_from_stdin, "Read from stdin" ;
-   "-uris", Arg.Set uris_in_input, "Read uris, not filenames" ;
-   "-update", Arg.Unit Getter.update, "Update the getter view of the world" ;
-   "-reduction", Arg.Set reduction_only, "Do reduction instead of tyepchecking"]
-  (fun x -> files := (uri_of_filename x) :: !files)
-  "
-usage: experiment file ...
-
-List of options:";
- if !read_from_stdin then
-  begin
-   try
-    while true do
-     let l = Str.split (Str.regexp " ") (read_line ()) in
-      List.iter (fun x -> files := (uri_of_filename x) :: !files) l
-    done
-   with
-    End_of_file -> ()
-  end ;
- files := List.rev !files;
-  List.iter
-   (function x ->
-     print_string x ;
-     flush stdout ;
-     (try
-       if !reduction_only then
-        match CicCache.get_obj (UriManager.uri_of_string x) with
-           Cic.Definition (_,bo,_,_) ->
-            CicTypeChecker.typecheck (UriManager.uri_of_string x) ;
-            ignore (CicReduction.whd bo)
-         | _ -> raise NotADefinition
-       else
-        CicTypeChecker.typecheck (UriManager.uri_of_string x)
-     with
-       e -> print_newline () ; flush stdout ; raise e ) ;
-     print_endline " OK!" ;
-     flush stdout
-   ) !files
-;;
-
-main ();;

diff --git a/helm/interface/styleConfiguration.ml b/helm/interface/styleConfiguration.ml
deleted file mode 100644 (file)
index ff85de7..0000000
--- a/helm/interface/styleConfiguration.ml
+++ /dev/null
@@ -1,95 +0,0 @@
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 28/12/2000                                 *)
-(*                                                                            *)
-(* This is the parser that reads the configuration file of helm               *)
-(*                                                                            *)
-(******************************************************************************)
-
-let filename =
- try
-  Sys.getenv "HELM_STYLECONFIGURATION_PATH"
- with
-  Not_found ->
-   let xml = "style-configuration.xml" in
-   let tmp_xml = Configuration.tmp_dir ^ "/" ^ xml in
-   let request_xml = Configuration.getter_url ^ "getstyleconf?uri=" ^ xml in
-   ClientHTTP.get_and_save request_xml tmp_xml ;
-   tmp_xml 
-
-exception Warnings;;
-
-class warner =
-  object 
-    method warn w =
-      print_endline ("WARNING: " ^ w) ;
-      (raise Warnings : unit)
-  end
-;;
-
-let xml_document () =
- let module Y = Pxp_yacc in
-  try 
-   let config = {Y.default_config with Y.warner = new warner} in
-    Y.parse_document_entity config (PxpUriResolver.from_file filename) Y.default_spec
-  with
-   e ->
-     print_endline (Pxp_types.string_of_exn e) ;
-     raise e
-;;
-
-exception Impossible;;
-
-let styles = Hashtbl.create 13;;
-let applies = Hashtbl.create 13;;
-
-(* we trust the xml file to be valid because of the validating xml parser *)
-let _ =
- List.iter
-  (function
-      n ->
-       match n#node_type with
-          Pxp_document.T_element "style" ->
-           let key =
-           try
-            match n#attribute "key" with
-               Pxp_types.Value s -> s
-             | _ -> raise Impossible
-           with
-            Not_found -> n#data
-          in
-            Hashtbl.add styles key n#data
-        | Pxp_document.T_element "apply" ->
-           let keys = List.map
-            (function n ->
-              match n#node_type with
-                 Pxp_document.T_element "style-ref" ->
-                 begin
-                  match n#attribute "key" with
-                     Pxp_types.Value s -> s
-                   | _ -> raise Impossible
-                 end
-               | _ -> raise Impossible
-            )
-            n#sub_nodes
-           in
-           let apply_name =
-            match n#attribute "name" with
-               Pxp_types.Value s -> s
-             | _ -> raise Impossible
-           in Hashtbl.add applies apply_name keys
-        | _ -> raise Impossible
-  )
-  ((xml_document ())#root#sub_nodes)
-;;
-
-let style_of_key key =
- Hashtbl.find styles key
-
-let key_list_of_mode_name name =
- Hashtbl.find applies name
-;;
-

diff --git a/helm/interface/theory.ml b/helm/interface/theory.ml
deleted file mode 100644 (file)
index 10ef114..0000000
--- a/helm/interface/theory.ml
+++ /dev/null
@@ -1,34 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-type theory_elem =
-   Theorem of string                    (* uri *)
- | Definition of string                 (* uri *)
- | Axiom of string                      (* uri *)
- | Variable of string                   (* uri *)
- | Section of string * theory_elem list (* uri, subtheory *)
-and theory =
- string * theory_elem list              (* uri, subtheory *)
-;;

diff --git a/helm/interface/theoryCache.ml b/helm/interface/theoryCache.ml
deleted file mode 100644 (file)
index c7f6a3f..0000000
--- a/helm/interface/theoryCache.ml
+++ /dev/null
@@ -1,57 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-type check_status = Checked | Unchecked;;
-
-let hashtable = Hashtbl.create 17;;
-
-let get_term_and_type_checking_info uri =
- try
-  Hashtbl.find hashtable uri
- with
-  Not_found -> 
-   let filename = Getter.get uri in
-    let term = TheoryParser.theory_of_xml filename in
-     Hashtbl.add hashtable uri (term, Unchecked) ;
-     (term, Unchecked)
-;;
-
-
-let get_theory uri =
- fst (get_term_and_type_checking_info uri)
-;;
-
-let is_type_checked uri =
- match snd (get_term_and_type_checking_info uri) with
-    Checked   -> true
-  | Unchecked -> false
-;;
-
-let set_type_checking_info uri =
- match Hashtbl.find hashtable uri with
-  (term, _) ->
-   Hashtbl.remove hashtable uri ;
-   Hashtbl.add hashtable uri (term, Checked)
-;;

diff --git a/helm/interface/theoryParser.ml b/helm/interface/theoryParser.ml
deleted file mode 100644 (file)
index 5ce9fff..0000000
--- a/helm/interface/theoryParser.ml
+++ /dev/null
@@ -1,54 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception Warnings;;
-
-class warner =
-  object 
-    method warn w =
-      print_endline ("WARNING: " ^ w) ;
-      (raise Warnings : unit)
-  end
-;;
-
-exception EmptyUri;;
-
-let theory_of_xml filename =
- let module Y = Pxp_yacc in
-  try 
-    let d =
-     let config = {Y.default_config with Y.warner = new warner} in
-      Y.parse_document_entity config
-(*PXP       (Y.ExtID (Pxp_types.System filename,
-         new Pxp_reader.resolve_as_file ~url_of_id ()))
-*)     (PxpUriResolver.from_file filename)
-       Y.default_spec
-    in
-     TheoryParser2.get_theory d#root
-  with
-   e ->
-     print_endline (Pxp_types.string_of_exn e) ;
-     raise e
-;;

diff --git a/helm/interface/theoryParser2.ml b/helm/interface/theoryParser2.ml
deleted file mode 100644 (file)
index 4304ecc..0000000
--- a/helm/interface/theoryParser2.ml
+++ /dev/null
@@ -1,66 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception IllFormedXml of int;;
-
-(* Utility functions that transform a Pxp attribute into something useful *)
-
-let string_of_attr a =
- let module T = Pxp_types in
-  match a with
-     T.Value s -> s
-   | _ -> raise (IllFormedXml 0)
-
-let get_theory n =
- let module D = Pxp_document in
- let module T = Theory in
-  let rec get_theory_elem n =
-   let ntype = n # node_type in
-   match ntype with
-     D.T_element "THEOREM" ->
-       let uri = string_of_attr (n # attribute "uri") in
-        T.Theorem uri
-   | D.T_element "DEFINITION" ->
-       let uri = string_of_attr (n # attribute "uri") in
-        T.Definition uri
-   | D.T_element "AXIOM" ->
-      let uri = string_of_attr (n # attribute "uri") in
-       T.Axiom uri
-   | D.T_element "VARIABLE" ->
-      let uri = string_of_attr (n # attribute "uri") in
-       T.Variable uri
-   | D.T_element "SECTION" ->
-      let uri = string_of_attr (n # attribute "uri")
-      and subtheory = List.map get_theory_elem (n # sub_nodes) in
-       T.Section (uri, subtheory)
-   | D.T_element _ | D.T_data | _ ->
-      raise (IllFormedXml 1)
-  in
-   match n # node_type with
-      D.T_element "Theory" ->
-       let uri = string_of_attr (n # attribute "uri") in
-        (uri, List.map get_theory_elem (n # sub_nodes))
-    | _ -> raise (IllFormedXml 2)
-;;

diff --git a/helm/interface/theoryTypeChecker.ml b/helm/interface/theoryTypeChecker.ml
deleted file mode 100644 (file)
index 7ebbf19..0000000
--- a/helm/interface/theoryTypeChecker.ml
+++ /dev/null
@@ -1,54 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception NotWellTyped of string;;
-
-let typecheck uri =
-  let rec typecheck_term curi t =
-  let module T = Theory in
-  let module P = CicTypeChecker in
-  let module C = CicCache in
-  let module U = UriManager in
-  let obj_typecheck uri =
-   try
-    P.typecheck (U.uri_of_string uri)
-   with
-    P.NotWellTyped s ->
-     raise (NotWellTyped
-      ("Type Checking was NOT successfull due to an error during " ^
-       "type-checking of term " ^ uri ^ ":\n\n" ^ s))
-  in
-    match t with
-       T.Theorem uri -> obj_typecheck (curi ^ "/" ^ uri)
-     | T.Definition uri -> obj_typecheck (curi ^ "/" ^ uri)
-     | T.Axiom uri -> obj_typecheck (curi ^ "/" ^ uri)
-     | T.Variable uri -> obj_typecheck (curi ^ "/" ^ uri)
-     | T.Section (uri,l) -> typecheck_theory l (curi ^ "/" ^ uri)
- and typecheck_theory l curi =
-  List.iter (typecheck_term curi) l
- in
-  let (uri, l) = TheoryCache.get_theory uri in
-   typecheck_theory l uri
-;;

diff --git a/helm/interface/toglie_helm_xref.pl b/helm/interface/toglie_helm_xref.pl
deleted file mode 100755 (executable)
index 13c9739..0000000
--- a/helm/interface/toglie_helm_xref.pl
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/usr/bin/perl
-
-while(<STDIN>)
-{
-  s/helm:xref="[^"]*"//g;
-  s/helm:xref='[^']*'//g;
-  print;
-}

diff --git a/helm/interface/toglie_helm_xref.sh b/helm/interface/toglie_helm_xref.sh
deleted file mode 100755 (executable)
index b3cb4e0..0000000
--- a/helm/interface/toglie_helm_xref.sh
+++ /dev/null
@@ -1,5 +0,0 @@
-#!/bin/bash
-
-echo "****" $1
-cp $1 /tmp/pippo
-cat /tmp/pippo | ./toglie_helm_xref.pl > $1

diff --git a/helm/interface/uriManager.ml b/helm/interface/uriManager.ml
deleted file mode 100644 (file)
index 52c7f34..0000000
--- a/helm/interface/uriManager.ml
+++ /dev/null
@@ -1,111 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(* "cic:/a/b/c.con" => [| "cic:/a" ; "cic:/a/b" ; "cic:/a/b/c.con" ; "c" |] *)
-type uri = string array;;
-
-let eq uri1 uri2 =
- uri1 == uri2
-;;
-
-let string_of_uri uri = uri.(Array.length uri - 2);;
-let name_of_uri uri = uri.(Array.length uri - 1);;
-let buri_of_uri uri = uri.(Array.length uri - 3);;
-let depth_of_uri uri = Array.length uri - 2;;
-
-(*CSC: ora e' diventato poco efficiente, migliorare *)
-let relative_depth curi uri cookingsno =
- let rec length_of_current_prefix l1 l2 =
-  match (l1, l2) with
-     (he1::tl1, he2::tl2) when he1 == he2 ->
-       1 + length_of_current_prefix tl1 tl2
-   | (_,_) -> 0
- in
-  depth_of_uri uri -
-   length_of_current_prefix
-    (Array.to_list (Array.sub curi 0 (Array.length curi - (2 + cookingsno))))
-    (Array.to_list (Array.sub uri 0 (Array.length uri - 2)))
-  (*CSC: vecchio codice da eliminare
-  if eq curi uri then 0
-  else
-   depth_of_uri uri -
-    length_of_current_prefix (Array.to_list curi) (Array.to_list uri)
-  *)
-;;
-
-module OrderedStrings =
- struct
-  type t = string
-  let compare (s1 : t) (s2 : t) = compare s1 s2
- end
-;;
-
-module SetOfStrings = Map.Make(OrderedStrings);;
-
-(*CSC: commento obsoleto ed errato *)
-(* Invariant: the map is the identity function,      *)
-(*  i.e. (SetOfStrings.find str !set_of_uri) == str  *)
-let set_of_uri = ref SetOfStrings.empty;;
-let set_of_prefixes = ref SetOfStrings.empty;;
-
-(* similar to uri_of_string, but used for prefixes of uris *)
-let normalize prefix =
- try
-  SetOfStrings.find prefix !set_of_prefixes
- with
-  Not_found ->
-   set_of_prefixes := SetOfStrings.add prefix prefix !set_of_prefixes ;
-   prefix
-;;
-
-exception IllFormedUri of string;;
-
-let mk_prefixes str =
- let rec aux curi =
-  function
-     [he] ->
-      let prefix_uri = curi ^ "/" ^ he
-      and name = List.hd (Str.split (Str.regexp "\.") he) in
-       [ normalize prefix_uri ; name ]
-   | he::tl ->
-      let prefix_uri = curi ^ "/" ^ he in
-       (normalize prefix_uri)::(aux prefix_uri tl)
-   | _ -> raise (IllFormedUri str)
- in
-  let tokens = (Str.split (Str.regexp "/") str) in
-   (* ty = "cic:" *)
-   let (ty, sp) = (List.hd tokens, List.tl tokens) in
-    aux ty sp
-;;
-
-let uri_of_string str =
- try
-  SetOfStrings.find str !set_of_uri
- with
-  Not_found ->
-   let uri = Array.of_list (mk_prefixes str) in
-    set_of_uri := SetOfStrings.add str uri !set_of_uri ;
-    uri
-;;

diff --git a/helm/interface/uriManager.ml.implementazione_banale b/helm/interface/uriManager.ml.implementazione_banale
deleted file mode 100644 (file)
index cd0d71f..0000000
--- a/helm/interface/uriManager.ml.implementazione_banale
+++ /dev/null
@@ -1,18 +0,0 @@
-type uri = string;;
-
-let eq uri1 uri2 =
- uri1 = uri2
-;;
-
-let string_of_uri uri = uri;;
-let uri_of_string str = str;;
-
-let name_of_uri uri =
- let l = Str.split (Str.regexp "/") uri in
-  let name_suf = List.nth l (List.length l - 1) in
-   List.hd (Str.split (Str.regexp "\.") name_suf)
-;;
-
-let depth_of_uri uri =
- List.length (Str.split (Str.regexp "/") uri) - 2
-;;

diff --git a/helm/interface/uriManager.ml.implementazione_doppia b/helm/interface/uriManager.ml.implementazione_doppia
deleted file mode 100644 (file)
index d03d997..0000000
--- a/helm/interface/uriManager.ml.implementazione_doppia
+++ /dev/null
@@ -1,86 +0,0 @@
-(* "cic:/a/b/c.con" => [| "cic:/a" ; "cic:/a/b" ; "cic:/a/b/c.con" ; "c" |] *)
-type uri = string array;;
-
-let eq uri1 uri2 =
- uri1 == uri2
-;;
-
-let string_of_uri uri = uri.(Array.length uri - 2);;
-let name_of_uri uri = uri.(Array.length uri - 1);;
-let buri_of_uri uri = uri.(Array.length uri - 3);;
-let depth_of_uri uri = Array.length uri - 2;;
-
-(*CSC: ora e' diventato poco efficiente, migliorare *)
-let relative_depth curi uri cookingsno =
- let rec length_of_current_prefix l1 l2 =
-  match (l1, l2) with
-     (he1::tl1, he2::tl2) when he1 == he2 ->
-       1 + length_of_current_prefix tl1 tl2
-   | (_,_) -> 0
- in
-  depth_of_uri uri -
-   length_of_current_prefix
-    (Array.to_list (Array.sub curi 0 (Array.length curi - (2 + cookingsno))))
-    (Array.to_list (Array.sub uri 0 (Array.length uri - 2)))
-  (*CSC: vecchio codice da eliminare
-  if eq curi uri then 0
-  else
-   depth_of_uri uri -
-    length_of_current_prefix (Array.to_list curi) (Array.to_list uri)
-  *)
-;;
-
-module OrderedStrings =
- struct
-  type t = string
-  let compare (s1 : t) (s2 : t) = compare s1 s2
- end
-;;
-
-module SetOfStrings = Map.Make(OrderedStrings);;
-
-(*CSC: commento obsoleto ed errato *)
-(* Invariant: the map is the identity function,      *)
-(*  i.e. (SetOfStrings.find str !set_of_uri) == str  *)
-let set_of_uri = ref SetOfStrings.empty;;
-let set_of_prefixes = ref SetOfStrings.empty;;
-
-(* similar to uri_of_string, but used for prefixes of uris *)
-let normalize prefix =
- try
-  SetOfStrings.find prefix !set_of_prefixes
- with
-  Not_found ->
-   set_of_prefixes := SetOfStrings.add prefix prefix !set_of_prefixes ;
-   prefix
-;;
-
-exception IllFormedUri of string;;
-
-let mk_prefixes str =
- let rec aux curi =
-  function
-     [he] ->
-      let prefix_uri = curi ^ "/" ^ he
-      and name = List.hd (Str.split (Str.regexp "\.") he) in
-       [ normalize prefix_uri ; name ]
-   | he::tl ->
-      let prefix_uri = curi ^ "/" ^ he in
-       (normalize prefix_uri)::(aux prefix_uri tl)
-   | _ -> raise (IllFormedUri str)
- in
-  let tokens = (Str.split (Str.regexp "/") str) in
-   (* ty = "cic:" *)
-   let (ty, sp) = (List.hd tokens, List.tl tokens) in
-    aux ty sp
-;;
-
-let uri_of_string str =
- try
-  SetOfStrings.find str !set_of_uri
- with
-  Not_found ->
-   let uri = Array.of_list (mk_prefixes str) in
-    set_of_uri := SetOfStrings.add str uri !set_of_uri ;
-    uri
-;;

diff --git a/helm/interface/uriManager.ml.implementazione_semplice b/helm/interface/uriManager.ml.implementazione_semplice
deleted file mode 100644 (file)
index 8b8921b..0000000
--- a/helm/interface/uriManager.ml.implementazione_semplice
+++ /dev/null
@@ -1,39 +0,0 @@
-type uri = string;;
-
-let eq uri1 uri2 =
- uri1 == uri2
-;;
-
-let string_of_uri uri = uri;;
-
-let name_of_uri uri =
- let l = Str.split (Str.regexp "/") uri in
-  let name_suf = List.nth l (List.length l - 1) in
-   List.hd (Str.split (Str.regexp "\.") name_suf)
-;;
-
-let depth_of_uri uri =
- List.length (Str.split (Str.regexp "/") uri) - 2
-;;
-
-module OrderedStrings =
- struct
-  type t = string
-  let compare (s1 : t) (s2 : t) = compare s1 s2
- end
-;;
-
-module SetOfStrings = Map.Make(OrderedStrings);;
-
-(* Invariant: the map is the identity function,      *)
-(*  i.e. (SetOfStrings.find str !set_of_uri) == str  *)
-let set_of_uri = ref SetOfStrings.empty;;
-
-let uri_of_string str =
- try
-  SetOfStrings.find str !set_of_uri
- with
-  Not_found ->
-   set_of_uri := SetOfStrings.add str str !set_of_uri ;
-   str
-;;

diff --git a/helm/interface/uriManager.mli b/helm/interface/uriManager.mli
deleted file mode 100644 (file)
index 9bd6210..0000000
--- a/helm/interface/uriManager.mli
+++ /dev/null
@@ -1,40 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-type uri
-
-val eq : uri -> uri -> bool
-
-val uri_of_string : string -> uri
-
-val string_of_uri : uri -> string  (* complete uri *)
-val name_of_uri   : uri -> string  (* name only (without extension)*)
-val buri_of_uri   : uri -> string  (* base uri only *)
-val depth_of_uri  : uri -> int     (* length of the path *)
-
-(* relative_depth curi uri cookingsno                                        *)
-(* is the number of times to cook uri to use it when the current uri is curi *)
-(* cooked cookingsno times                                                   *)
-val relative_depth : uri -> uri -> int -> int

diff --git a/helm/interface/uris_of_filenames.pl b/helm/interface/uris_of_filenames.pl
deleted file mode 100755 (executable)
index 019730b..0000000
--- a/helm/interface/uris_of_filenames.pl
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/usr/bin/perl
-
-while(<STDIN>) {
-   chomp;
-   split / /;
-   for (@_) {
-      $GZSUFF = "";
-      if (/.gz$/)
-       { s/.gz$//; $GZSUFF = " gz" if ($ARGV[0] == "-gz"); }
-      if (/.*\.(con|var|ind)(\.types)?\.xml/)
-       { s/\./cic:/; }
-      elsif (/.*\.theory\.xml/)
-       { s/\./theory:/; }
-      s/\.xml//;
-      print $_.$GZSUFF."\n";
- }
-}

diff --git a/helm/interface/xml.ml b/helm/interface/xml.ml
deleted file mode 100644 (file)
index 5926b48..0000000
--- a/helm/interface/xml.ml
+++ /dev/null
@@ -1,97 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                     A tactic to print Coq objects in XML                   *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 18/10/2000                                 *)
-(*                                                                            *)
-(* This module defines a pretty-printer and the stream of commands to the pp  *)
-(*                                                                            *)
-(******************************************************************************)
-
-
-(* the type token for XML cdata, empty elements and not-empty elements *)
-(* Usage:                                                                *)
-(*  Str cdata                                                            *)
-(*  Empty (element_name, [attrname1, value1 ; ... ; attrnamen, valuen]   *)
-(*  NEmpty (element_name, [attrname1, value2 ; ... ; attrnamen, valuen], *)
-(*          content                                                      *)
-type token = Str of string
-           | Empty of string * (string * string) list
-          | NEmpty of string * (string * string) list * token Stream.t
-;;
-
-(* currified versions of the constructors make the code more readable *)
-let xml_empty name attrs = [< 'Empty(name,attrs) >]
-let xml_nempty name attrs content = [< 'NEmpty(name,attrs,content) >]
-let xml_cdata str = [< 'Str str >]
-
-(* Usage:                                                                   *)
-(*  pp tokens None     pretty prints the output on stdout                   *)
-(*  pp tokens (Some filename) pretty prints the output on the file filename *)
-let pp strm fn =
- let channel = ref stdout in
- let rec pp_r m =
-  parser
-    [< 'Str a ; s >] ->
-      print_spaces m ;
-      fprint_string (a ^ "\n") ;
-      pp_r m s
-  | [< 'Empty(n,l) ; s >] ->
-      print_spaces m ;
-      fprint_string ("<" ^ n) ;
-      List.iter (function (n,v) -> fprint_string (" " ^ n ^ "=\"" ^ v ^ "\"")) l;
-      fprint_string "/>\n" ;
-      pp_r m s
-  | [< 'NEmpty(n,l,c) ; s >] ->
-      print_spaces m ;
-      fprint_string ("<" ^ n) ;
-      List.iter (function (n,v) -> fprint_string (" " ^ n ^ "=\"" ^ v ^ "\"")) l;
-      fprint_string ">\n" ;
-      pp_r (m+1) c ;
-      print_spaces m ;
-      fprint_string ("</" ^ n ^ ">\n") ;
-      pp_r m s
-  | [< >] -> ()
- and print_spaces m =
-  for i = 1 to m do fprint_string "  " done
- and fprint_string str =
-  output_string !channel str
- in
-  match fn with
-     Some filename ->
-       channel := open_out filename ;
-       pp_r 0 strm ;
-       close_out !channel ;
-       print_string ("\nWriting on file \"" ^ filename ^ "\" was succesfull\n");
-       flush stdout
-   | None ->
-       pp_r 0 strm
-;;

diff --git a/helm/interface/xml.mli b/helm/interface/xml.mli
deleted file mode 100644 (file)
index 2e0c7c7..0000000
--- a/helm/interface/xml.mli
+++ /dev/null
@@ -1,60 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                     A tactic to print Coq objects in XML                   *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 18/10/2000                                 *)
-(*                                                                            *)
-(* This module defines a pretty-printer and the stream of commands to the pp  *)
-(*                                                                            *)
-(******************************************************************************)
-
-(* Tokens for XML cdata, empty elements and not-empty elements           *)
-(* Usage:                                                                *)
-(*  Str cdata                                                            *)
-(*  Empty (element_name, [attrname1, value1 ; ... ; attrnamen, valuen]   *)
-(*  NEmpty (element_name, [attrname1, value2 ; ... ; attrnamen, valuen], *)
-(*          content                                                      *)
-type token =
-  | Str of string
-  | Empty of string * (string * string) list
-  | NEmpty of string * (string * string) list * token Stream.t
-
-(* currified versions of the token constructors make the code more readable *)
-val xml_empty : string -> (string * string) list -> token Stream.t
-val xml_nempty :
-  string -> (string * string) list -> token Stream.t -> token Stream.t
-val xml_cdata : string -> token Stream.t
-
-(* The pretty printer for streams of token                                  *)
-(* Usage:                                                                   *)
-(*  pp tokens None     pretty prints the output on stdout                   *)
-(*  pp tokens (Some filename) pretty prints the output on the file filename *)
-val pp : token Stream.t -> string option -> unit

diff --git a/helm/interface/xsltProcessor.ml b/helm/interface/xsltProcessor.ml
deleted file mode 100644 (file)
index 95f1c70..0000000
--- a/helm/interface/xsltProcessor.ml
+++ /dev/null
@@ -1,79 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-let initialize () =
- Printf.printf "Initializing the UWOBO servlet, please wait" ; flush stdout ;
- Hashtbl.iter
-  (fun key uri ->
-    let string_to_send = (Configuration.processor_url ^ "add?xsluri=" ^ Configuration.getter_url ^ "getxslt?uri=" ^ uri ^ "&key=" ^ key)
-    in
-     print_char '.' ; flush stdout ;
-     ClientHTTP.send string_to_send
-  )
-  StyleConfiguration.styles ;
- Printf.printf " ok\n" ; flush stdout
-;;
-
-(* CSC: esempio per vedere se veniva calcolata bene. Rimuovere pure il commento
-http://phd.cs.unibo.it:8080/helm/servlet/uwobo/apply?xmluri=http%3A//phd.cs.unibo.it%3A8081/getxml%3Furi%3Dcic%3A/Coq/Init/Datatypes/nat_ind.con&keys=C1,C2,L&param.processorURL=http%3A//phd.cs.unibo.it%3A8080/helm/servlet/uwobo/&param.getterURL=http%3A//phd.cs.unibo.it%3A8081/&prop.doctype-public=&prop.encoding=&prop.media-type=text/xml&param.doctype-public=&param.encoding=&param.media-type=text/xml&param.keys=C1%2CC2%2CL&param.CICURI=cic:/Coq/Init/Datatypes/nat_ind.con&param.naturalLanguage=yes&param.annotations=NO
-
-
-&keys=C1,C2,L
-*)
-
-let process uri usecache mode naturalLanguage annotations =
- let uri = UriManager.string_of_uri uri in
- let url = Configuration.getter_url ^ "getxml?uri=" ^ uri in
- let keys =
-  match StyleConfiguration.key_list_of_mode_name mode with
-    first_key::key_list ->
-     first_key ^
-     (List.fold_right
-      (fun key cmd -> "," ^ key ^ cmd)
-       key_list
-       ""
-      ) 
-  | _ -> prerr_string "Warning: the list of keys for UWOBO is empty\n"; ""
- in
- let string_to_send =
-  Configuration.processor_url ^ "apply?xmluri=" ^ url ^
-  "&param.processorURL=" ^ Configuration.processor_url ^
-  "&param.getterURL=" ^ Configuration.getter_url ^
-  "&prop.doctype-public=&prop.encoding=&prop.media-type=text/xml" ^
-  "&keys=" ^ keys ^
-  "&param.keys=" ^ keys ^
-  "&param.CICURI=" ^ uri ^
-  "&param.naturalLanguage=" ^ naturalLanguage ^
-  "&param.annotations=" ^ annotations ^
-  "&param.doctype-public=&param.encoding=&param.media-type=text/xml"
- in
-  string_to_send
-;;
-
-(*CSC: ma questa funzione ha senso? Se si', in quale modulo?*)
-(*CSC: tutti i parametri passati alla process sono quasi a caso!!! *)
-let url_of_uri uri =
- process uri true "cic" "yes" "YES"
-;;

diff --git a/helm/metadata/create/.cvsignore b/helm/metadata/create/.cvsignore
deleted file mode 100644 (file)
index 1039a2b..0000000
--- a/helm/metadata/create/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-output rdf

diff --git a/helm/metadata/create2/Makefile b/helm/metadata/create2/Makefile
deleted file mode 100644 (file)
index b1ce8e1..0000000
--- a/helm/metadata/create2/Makefile
+++ /dev/null
@@ -1,27 +0,0 @@
-all:
-       @echo Available targets:
-       @echo "   forward, backward, compress, clean-forward, clean-backward"
-
-forward:
-       time for i in `cat pluto` ; do mk_forward/mk_forward.opt $$i ; done > log 2>&1
-       (cd forward ; ../mkindex.sh forward)
-
-backward:
-       time for i in `cat pluto` ; do touch/touch.opt $$i ; done
-       find forward -type f -exec ./invert.pl {} \;
-       find backward -type f -exec ./fix_rdf.pl {} \;
-       (cd backward ; ../mkindex.sh backward)
-
-compress:
-       find forward -name "*.xml" -exec gzip {} \;
-       find backward -name "*.xml" -exec gzip {} \;
-       (cd forward ; ../mkindex.sh forward)
-       (cd backward ; ../mkindex.sh backward)
-
-clean-forward:
-       rm -rf forward/*
-
-clean-backward:
-       rm -rf backward/*
-
-.PHONY: all forward backward compress clean-forward clean-backward

diff --git a/helm/metadata/create2/fix_rdf.pl b/helm/metadata/create2/fix_rdf.pl
deleted file mode 100755 (executable)
index 5d86c45..0000000
--- a/helm/metadata/create2/fix_rdf.pl
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/usr/bin/perl
-
-$filename = $uri = $ARGV[0];
-$outputfile = $filename.".xml";
-$uri =~ s/^backward/cic:/;
-$uri =~ s/(.*),([^,]*),([^,]*)/$1#xpointer(1\/$2\/$3)/;
-$uri =~ s/(.*),([^,]*)/$1#xpointer(1\/$2)/;
-
-print "Now processing file $filename\n";
-
-open(HEADER,">>$outputfile");
-print HEADER <<EOT;
-<?xml version="1.0" encoding="ISO-8859-1"?>
-
-<rdf:RDF xml:lang="en" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:h="http://www.cs.unibo.it/helm/schemas/schema-h.rdf#">
-  <h:Object rdf:about="$uri">
-EOT
-close(HEADER);
-
-system("cat $filename >> $outputfile");
-
-open(FOOTER,">>$outputfile");
-print FOOTER <<EOT;
-  </h:Object>
-</rdf:RDF>
-EOT
-close(FOOTER);
-
-unlink $filename;

diff --git a/helm/metadata/create2/invert.pl b/helm/metadata/create2/invert.pl
deleted file mode 100755 (executable)
index f4a490d..0000000
--- a/helm/metadata/create2/invert.pl
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/usr/bin/perl
-
-my $inputfile = $ARGV[0];
-
-print "Now splitting file $inputfile\n";
-open(IN, "<$inputfile") or die "Error opening file $inputfile";
-$dummy = <IN>;  # <?xml version="1.0" encoding="ISO-8859-1"?>
-$dummy = <IN>;  #
-$dummy = <IN>;  # <rdf:RDF .../>
-$where = <IN>;  # <h:Object rdf:about="...">
-chomp($where);
-$where =~ s/^[^"]*"([^"]*)">$/$1/;
-while(($line1 = <IN>) && not ($line1 =~ /<\/h:Object>/)) {
-  $line2 = <IN>;
-  $line3 = <IN>; # </refObj>
-  $uri = $line2;
-  chomp($uri);
-  $uri =~ s/^ *<h:Occurrence rdf:about="[^"]*" rdf:value="([^"]*)"\/>$/$1/;
-  $who = $uri;
-  $who =~ s/^cic:/backward/;
-  $who =~ s/#xpointer\(1\/([^\/]*)\/([^\/]*)\)/,$1,$2/;
-  $who =~ s/#xpointer\(1\/([^\/]*)\)/,$1/;
-  $line2 =~ s/\Q$uri\E/$where/;
-   
-  open(OUT, ">>$who") or die "Error opening file $who";
-  print OUT "    <h:backPointer>\n";
-  print OUT $line2;
-  print OUT "    </h:backPointer>\n";
-  close(OUT);
-}
-close(IN);

diff --git a/helm/metadata/create2/mk_forward/.cvsignore b/helm/metadata/create2/mk_forward/.cvsignore
deleted file mode 100644 (file)
index 9aee29b..0000000
--- a/helm/metadata/create2/mk_forward/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmi *.cmo *.cmx mk_forward mk_forward.opt

diff --git a/helm/metadata/create2/mk_forward/.depend b/helm/metadata/create2/mk_forward/.depend
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/metadata/create2/mk_forward/Makefile b/helm/metadata/create2/mk_forward/Makefile
deleted file mode 100644 (file)
index f24c47a..0000000
--- a/helm/metadata/create2/mk_forward/Makefile
+++ /dev/null
@@ -1,41 +0,0 @@
-REQUIRES = helm-xml helm-cic_proof_checking
-PREDICATES = miniReduction
-OCAMLOPTIONS = -package "$(REQUIRES)" -predicates "$(PREDICATES)"
-OCAMLDEP = ocamldep
-OCAMLFIND = ocamlfind
-OCAMLC = $(OCAMLFIND) ocamlc $(OCAMLOPTIONS)
-OCAMLOPT = $(OCAMLFIND) ocamlopt $(OCAMLOPTIONS)
-
-LIBRARIES = $(shell ocamlfind query -recursive -predicates "byte $(PREDICATES)" -format "%d/%a" $(REQUIRES))
-LIBRARIES_OPT = $(shell ocamlfind query -recursive -predicates "native $(PREDICATES)" -format "%d/%a" $(REQUIRES))
-
-all: mk_forward
-opt: mk_forward.opt
-
-DEPOBJS = mk_forward.ml
-
-MKFORWARDOBJS = mk_forward.cmo
-
-depend:
-       $(OCAMLDEP) $(DEPOBJS) > .depend
-
-mk_forward: $(MKFORWARDOBJS) $(LIBRARIES)
-       $(OCAMLC) -linkpkg -o mk_forward $(MKFORWARDOBJS)
-
-mk_forward.opt: $(MKFORWARDOBJS:.cmo=.cmx) $(LIBRARIES_OPT)
-       $(OCAMLOPT) -linkpkg -o mk_forward.opt $(MKFORWARDOBJS:.cmo=.cmx)
-
-.SUFFIXES: .ml .mli .cmo .cmi .cmx
-.ml.cmo: $(LIBRARIES)
-       $(OCAMLC) -c $<
-.mli.cmi: $(LIBRARIES)
-       $(OCAMLC) -c $<
-.ml.cmx: $(LIBRARIES_OPT)
-       $(OCAMLOPT) -c $<
-
-clean:
-       rm -f *.cm[iox] *.o mk_forward mk_forward.opt
-
-.PHONY: clean
-
-include .depend

diff --git a/helm/metadata/create2/mk_forward/mk_forward.ml b/helm/metadata/create2/mk_forward/mk_forward.ml
deleted file mode 100644 (file)
index 7880b07..0000000
--- a/helm/metadata/create2/mk_forward/mk_forward.ml
+++ /dev/null
@@ -1,387 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 03/04/2001                                 *)
-(*                                                                            *)
-(*                            Missing description                             *)
-(*                                                                            *)
-(******************************************************************************)
-
-let iteri foo =
- let counter = ref 0 in
-  List.iter (function e -> incr counter ; foo e !counter)
-;;
-
-let pathname_of_uri uristring =
- "forward" ^
-  Str.replace_first (Str.regexp "^cic:") "" uristring
-;;
-
-let make_dirs dirpath =
- ignore (Unix.system ("mkdir -p \"" ^ dirpath ^ "\""))
-;;
-
-module UriHash =
- struct
-  type classification =
-     Backbone
-   | Branch
-   | InConclusion
-   | InHypothesis
-   | InBody
-  ;;
-
-let soften_classification =
- function
-    Backbone -> InConclusion
-  | Branch -> InHypothesis
-  | InBody -> assert false
-  | k -> k
-;;
-
-  let hash = Hashtbl.create 117 ;;
-
-  let add_uri uri kind =
-   let old_kinds =
-    try
-     Hashtbl.find hash uri
-    with
-     Not_found -> []
-   in
-    let new_kinds = 
-     match kind,old_kinds with
-        InBody,[] -> [InBody]
-      | InBody,_  -> old_kinds
-      | k,_ when List.mem k old_kinds -> old_kinds
-      | k,_ -> k::old_kinds
-    in
-     Hashtbl.replace hash uri new_kinds
-  ;;
-
-  (* It also removes every element in the hash *)
-  let uris_fold foo init =
-   let xml_element_name_of_kind =
-    function
-       Backbone     -> "MainConclusion"
-     | Branch       -> "MainHypothesis"
-     | InConclusion -> "InConclusion"
-     | InHypothesis -> "InHypothesis"
-     | InBody       -> "InBody"
-   in
-    let res =
-     Hashtbl.fold
-      (fun uri kinds i ->
-        List.fold_left
-         (fun j kind ->
-           foo j uri (xml_element_name_of_kind kind)
-         ) i kinds
-      ) hash init
-    in
-     Hashtbl.clear hash ;
-     res
-  ;;
- end
-;;
-
-let output_content () =
- UriHash.uris_fold
-  (fun i uri kind ->
-    [< Xml.xml_nempty "h:refObj" []
-        (Xml.xml_empty "h:Occurrence"
-          ["rdf:about","http://www.cs.unibo.it/helm/schemas/schema-h.rdf#" ^ kind ;
-           "rdf:value",uri]
-        ) ;
-       i
-    >]
-  ) [<>]
-;;
-
-let output_file cic_string_uri rdf_string_uri =
- let module U = UriManager in
- let module X = Xml in
-  let content = output_content () in
-  let rdf_uri = U.uri_of_string rdf_string_uri in
-   make_dirs (pathname_of_uri (U.buri_of_uri rdf_uri)) ;
-   X.pp
-    [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
-       X.xml_nempty "rdf:RDF"
-        ["xml:lang","en" ;
-         "xmlns:rdf","http://www.w3.org/1999/02/22-rdf-syntax-ns#";
-         "xmlns:h","http://www.cs.unibo.it/helm/schemas/schema-h.rdf#"]
-
-        (try
-          Stream.empty content ; (* raise Stream.failure if not empty *)
-          X.xml_empty "h:Object" ["rdf:about",cic_string_uri]
-         with
-          Stream.Failure ->
-           X.xml_nempty "h:Object" ["rdf:about",cic_string_uri] content
-        )
-    >]
-    (Some (pathname_of_uri rdf_string_uri ^ ".xml"))
-;;
-
-let get_obj uri =
- let cicfilename = Getter.getxml uri in
-  let res = CicParser.obj_of_xml cicfilename uri in
-   Unix.unlink cicfilename ;
-   res
-;;
-
-let add_every_constructor uri typeno kind =
- let module C = Cic in
-  match (get_obj uri) with
-      (C.InductiveDefinition (itys,_,_)) ->
-        let string_uri = UriManager.string_of_uri uri in
-        let sn = string_of_int (typeno + 1) in
-        let (_,_,_,cons) = List.nth itys typeno in
-         iteri
-          (fun (_,cty,_) m ->
-            let sm = string_of_int m in
-             UriHash.add_uri
-              (string_uri ^ "#xpointer(1/" ^ sn ^ "/" ^ sm ^ ")")
-              kind
-          ) cons
-   | _ -> assert false
-;;
-
-let process_type term =
- let module U = UriManager in
- let module H = UriHash in
- let module C = Cic in
-  let rec process_type_aux kind =
-   function
-    | C.Var uri ->
-       H.add_uri (U.string_of_uri uri) kind
-    | C.Cast (te,_) ->
-       (* type ignored *)
-       process_type_aux kind te
-    | C.Prod (_,sou,ta) ->
-       let (source_kind,target_kind) =
-        match kind with
-           H.Backbone -> (H.Branch,H.Backbone)
-         | H.Branch -> (H.InHypothesis,H.InHypothesis)
-         | H.InBody -> assert false
-         | k -> (k,k)
-       in
-        process_type_aux source_kind sou ;
-        process_type_aux target_kind ta
-    | C.Lambda (_,sou,ta) ->
-        let kind' = H.soften_classification kind in
-         process_type_aux kind' sou ;
-         process_type_aux kind' ta
-    | C.LetIn (_,te,ta)->
-       let kind' = H.soften_classification kind in
-        process_type_aux kind' te ;
-        process_type_aux kind ta
-    | C.Appl (he::tl) ->
-       let kind' = H.soften_classification kind in
-        process_type_aux kind he ;
-        List.iter (process_type_aux kind') tl
-    | C.Appl _ -> assert false
-    | C.Const (uri,_) ->
-       UriHash.add_uri (U.string_of_uri uri) kind
-    | C.Abst _ -> assert false
-    | C.MutInd (uri,_,typeno) ->
-       H.add_uri
-        (U.string_of_uri uri ^ "#xpointer(1/" ^
-          string_of_int (typeno + 1) ^ ")")
-        kind
-    | C.MutConstruct (uri,_,typeno,consno) ->
-       H.add_uri
-        (U.string_of_uri uri ^ "#xpointer(1/" ^
-          string_of_int (typeno + 1) ^ "/" ^ string_of_int consno ^ ")")
-        kind
-    | C.MutCase (uri,_,typeno,_,term,patterns) ->
-       (* outtype ignored *)
-       let kind' = H.soften_classification kind in
-        add_every_constructor uri typeno kind' ;
-        process_type_aux kind' term ;
-        List.iter (process_type_aux kind') patterns
-    | C.Fix (_,funs) ->
-       let kind' = H.soften_classification kind in
-        List.iter
-         (function (_,_,bo,ty) ->
-           process_type_aux kind' bo ;
-           process_type_aux kind' ty ;
-         ) funs
-    | C.CoFix (_,funs) ->
-       let kind' = H.soften_classification kind in
-        List.iter
-         (function (_,bo,ty) ->
-           process_type_aux kind' bo ;
-           process_type_aux kind' ty ;
-         ) funs
-    | _ -> ()
-in
- process_type_aux H.Backbone (CicMiniReduction.letin_nf term)
-;;
-
-let process_body =
- let module U = UriManager in
- let module H = UriHash in
- let module C = Cic in
-  let rec process_body_aux =
-   function
-      C.Var uri ->
-       H.add_uri (U.string_of_uri uri) H.InBody
-    | C.Cast (te,ty) ->
-       process_body_aux te ;
-       process_body_aux ty
-    | C.Prod (_,sou,ta) ->
-       process_body_aux sou ;
-       process_body_aux ta
-    | C.Lambda (_,sou,ta) ->
-       process_body_aux sou ;
-       process_body_aux ta
-    | C.LetIn (_,te,ta)->
-       process_body_aux te ;
-       process_body_aux ta
-    | C.Appl l ->
-       List.iter process_body_aux l
-    | C.Const (uri,_) ->
-       UriHash.add_uri (U.string_of_uri uri) H.InBody
-    | C.Abst _ -> assert false
-    | C.MutInd (uri,_,typeno) ->
-       H.add_uri
-        (U.string_of_uri uri ^ "#xpointer(1/" ^
-          string_of_int (typeno + 1) ^ ")")
-        H.InBody
-    | C.MutConstruct (uri,_,typeno,consno) ->
-       H.add_uri
-        (U.string_of_uri uri ^ "#xpointer(1/" ^
-          string_of_int (typeno + 1) ^ "/" ^ string_of_int consno ^ ")")
-        H.InBody
-    | C.MutCase (uri,_,typeno,outtype,term,patterns) ->
-       add_every_constructor uri typeno H.InBody ;
-       process_body_aux outtype ;
-       process_body_aux term ;
-       List.iter process_body_aux patterns
-    | C.Fix (_,funs) ->
-       List.iter
-        (function (_,_,bo,ty) ->
-          process_body_aux bo ;
-          process_body_aux ty ;
-        ) funs
-    | C.CoFix (_,funs) ->
-       List.iter
-        (function (_,bo,ty) ->
-          process_body_aux bo ;
-          process_body_aux ty ;
-        ) funs
-    | _ -> ()
-in
- process_body_aux
-;;
-
-let process_obj string_uri =
- let module U = UriManager in
- let module C = Cic in
-  function
-     (C.Definition (_,bo,ty,_)) ->
-       process_type ty ;
-       process_body bo ;
-       output_file string_uri string_uri
-   | (C.Axiom (_,ty,_)) ->
-       process_type ty ;
-       output_file string_uri string_uri
-   | (C.Variable (_,bo,ty)) ->
-       process_type ty ;
-       begin
-        match bo with
-           (Some bo') -> process_body bo'
-         | _ -> ()
-       end ;
-       output_file string_uri string_uri
-   | (C.InductiveDefinition _) as id ->
-       begin
-        let id' =
-         CicSubstitution.undebrujin_inductive_def
-          (U.uri_of_string string_uri) id
-        in
-         match id' with
-            (C.InductiveDefinition (itys,_,_)) -> 
-              iteri
-               (fun (_,_,ty,cons) n ->
-                 let sn = string_of_int n in
-                  process_type ty ;
-                  output_file
-                   (string_uri ^ "#xpointer(1/" ^ sn ^ ")")
-                   (string_uri ^ "," ^ sn) ;
-                  iteri
-                   (fun (_,cty,_) m ->
-                     let sm = string_of_int m in
-                      process_type cty ;
-                      output_file
-                       (string_uri ^ "#xpointer(1/" ^ sn ^ "/" ^ sm ^ ")")
-                       (string_uri ^ "," ^ sn ^ "," ^ sm)
-                   ) cons
-               ) itys
-          | _ -> assert false
-       end
-   | (C.CurrentProof _) -> assert false
-;;
-
-let mk_forward string_uri =
- let module U = UriManager in
-  print_endline ("Now computing metadata of " ^ string_uri) ;
-  flush stdout ;
-  let uri = U.uri_of_string string_uri in
-  let obj = get_obj uri in
-   process_obj string_uri obj
-;;
-
-let _ =
- let usage_msg = "usage: mk_forward[.opt] URI" in
- let uri = ref "" in
-  Arg.parse []
-   (fun x ->
-     if x = "" then
-      begin
-       prerr_string "No URI provided.\n" ;
-       Arg.usage [] usage_msg ;
-       exit (-1)
-      end
-     else if !uri = "" then
-      uri := x
-     else
-      begin
-       prerr_string "More than two arguments provided.\n" ;
-       Arg.usage [] usage_msg ;
-       exit (-1)
-      end
-   ) usage_msg ;
-   if !uri = "" then
-    begin
-     prerr_string "No URI provided.\n" ;
-     Arg.usage [] usage_msg ;
-     exit (-1)
-    end ;
-   mk_forward !uri
-;;

diff --git a/helm/metadata/create2/mkindex.sh b/helm/metadata/create2/mkindex.sh
deleted file mode 100755 (executable)
index 3a814ba..0000000
--- a/helm/metadata/create2/mkindex.sh
+++ /dev/null
@@ -1,4 +0,0 @@
-#!/bin/bash
-
-echo `find . -name "*.xml"` | ../uris_of_filenames.pl $1 > rdf_index.txt
-echo `find . -name "*.xml.gz"` | ../uris_of_filenames.pl $1 -gz >> rdf_index.txt

diff --git a/helm/metadata/create2/touch/.cvsignore b/helm/metadata/create2/touch/.cvsignore
deleted file mode 100644 (file)
index 10bc8bd..0000000
--- a/helm/metadata/create2/touch/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmi *.cmo *.cmx touch touch.opt

diff --git a/helm/metadata/create2/touch/.depend b/helm/metadata/create2/touch/.depend
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/metadata/create2/touch/Makefile b/helm/metadata/create2/touch/Makefile
deleted file mode 100644 (file)
index 636a804..0000000
--- a/helm/metadata/create2/touch/Makefile
+++ /dev/null
@@ -1,41 +0,0 @@
-REQUIRES = helm-getter helm-cic str
-PREDICATES =
-OCAMLOPTIONS = -package "$(REQUIRES)" -predicates "$(PREDICATES)"
-OCAMLDEP = ocamldep
-OCAMLFIND = ocamlfind
-OCAMLC = $(OCAMLFIND) ocamlc $(OCAMLOPTIONS)
-OCAMLOPT = $(OCAMLFIND) ocamlopt $(OCAMLOPTIONS)
-
-LIBRARIES = $(shell ocamlfind query -recursive -predicates "byte $(PREDICATES)" -format "%d/%a" $(REQUIRES))
-LIBRARIES_OPT = $(shell ocamlfind query -recursive -predicates "native $(PREDICATES)" -format "%d/%a" $(REQUIRES))
-
-all: touch
-opt: touch.opt
-
-DEPOBJS = touch.ml
-
-TOUCHOBJS = touch.cmo
-
-depend:
-       $(OCAMLDEP) $(DEPOBJS) > .depend
-
-touch: $(TOUCHOBJS) $(LIBRARIES)
-       $(OCAMLC) -linkpkg -o touch $(TOUCHOBJS)
-
-touch.opt: $(TOUCHOBJS:.cmo=.cmx) $(LIBRARIES_OPT)
-       $(OCAMLOPT) -linkpkg -o touch.opt $(TOUCHOBJS:.cmo=.cmx)
-
-.SUFFIXES: .ml .mli .cmo .cmi .cmx
-.ml.cmo: $(LIBRARIES)
-       $(OCAMLC) -c $<
-.mli.cmi: $(LIBRARIES)
-       $(OCAMLC) -c $<
-.ml.cmx: $(LIBRARIES_OPT)
-       $(OCAMLOPT) -c $<
-
-clean:
-       rm -f *.cm[iox] *.o touch touch.opt
-
-.PHONY: clean
-
-include .depend

diff --git a/helm/metadata/create2/touch/touch.ml b/helm/metadata/create2/touch/touch.ml
deleted file mode 100644 (file)
index 8fea03e..0000000
--- a/helm/metadata/create2/touch/touch.ml
+++ /dev/null
@@ -1,132 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 03/04/2001                                 *)
-(*                                                                            *)
-(*                            Missing description                             *)
-(*                                                                            *)
-(******************************************************************************)
-
-let iteri foo =
- let counter = ref 0 in
-  List.iter (function e -> incr counter ; foo e !counter)
-;;
-
-let pathname_of_uri uristring =
- "backward" ^
-  Str.replace_first (Str.regexp "^cic:") "" uristring
-;;
-
-let make_dirs dirpath =
- ignore (Unix.system ("mkdir -p \"" ^ dirpath ^ "\""))
-;;
-
-let touch_file rdf_string_uri =
- let module U = UriManager in
-  let rdf_uri = U.uri_of_string rdf_string_uri in
-   make_dirs (pathname_of_uri (U.buri_of_uri rdf_uri)) ;
-   ignore (
-    Unix.system
-     ("touch \"" ^ (pathname_of_uri rdf_string_uri) ^ "\"")
-   )
-;;
-
-let get_obj uri =
- let cicfilename = Getter.getxml uri in
-  let res = CicParser.obj_of_xml cicfilename uri in
-   Unix.unlink cicfilename ;
-   res
-;;
-
-let touch_obj string_uri =
- let module U = UriManager in
- let module C = Cic in
-  function
-     Some (C.InductiveDefinition (itys,_,_)) ->
-      iteri
-       (fun (_,_,_,cons) n ->
-         let sn = string_of_int n in
-          touch_file
-           (string_uri ^ "," ^ sn) ;
-          iteri
-           (fun (_,_,_) m ->
-             let sm = string_of_int m in
-              touch_file
-               (string_uri ^ "," ^ sn ^ "," ^ sm)
-           ) cons
-       ) itys
-   | Some _ -> assert false
-   | None ->
-      touch_file string_uri
-;;
-
-let touch string_uri =
- let module S = String in
- let module U = UriManager in
-  print_endline ("Now touching metadata file for " ^ string_uri) ;
-  flush stdout ;
-  let uri = U.uri_of_string string_uri in
-  let obj =
-   if S.sub string_uri (S.length string_uri - 3) 3 = "ind" then
-    Some (get_obj uri)
-   else
-    None
-  in
-   touch_obj string_uri obj
-;;
-
-let _ =
- let usage_msg = "usage: touch[.opt] URI" in
- let uri = ref "" in
-  Arg.parse []
-   (fun x ->
-     if x = "" then
-      begin
-       prerr_string "No URI provided.\n" ;
-       Arg.usage [] usage_msg ;
-       exit (-1)
-      end
-     else if !uri = "" then
-      uri := x
-     else
-      begin
-       prerr_string "More than two arguments provided.\n" ;
-       Arg.usage [] usage_msg ;
-       exit (-1)
-      end
-   ) usage_msg ;
-   if !uri = "" then
-    begin
-     prerr_string "No URI provided.\n" ;
-     Arg.usage [] usage_msg ;
-     exit (-1)
-    end ;
-   touch !uri
-;;

diff --git a/helm/metadata/create2/uris_of_filenames.pl b/helm/metadata/create2/uris_of_filenames.pl
deleted file mode 100755 (executable)
index db835bf..0000000
--- a/helm/metadata/create2/uris_of_filenames.pl
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/usr/bin/perl
-
-while(<STDIN>) {
-   chomp;
-   split / /;
-   for (@_) {
-      $GZSUFF = "";
-      if (/.gz$/)
-       { s/.gz$//; $GZSUFF = " gz" if ($ARGV[1] == "-gz"); }
-      s/\./helm:rdf:www.cs.unibo.it\/helm\/rdf\/$ARGV[0]\/\/cic:/;
-      s/\.xml//;
-      print $_.$GZSUFF."\n";
- }
-}

diff --git a/helm/metadata/create4/METADATA/Makefile b/helm/metadata/create4/METADATA/Makefile
deleted file mode 100644 (file)
index 160f0bb..0000000
--- a/helm/metadata/create4/METADATA/Makefile
+++ /dev/null
@@ -1,17 +0,0 @@
-CC = gcc
-
-meta: lex.yy.o sthandler.o
-       gcc lex.yy.o sthandler.o -o meta
-
-lex.yy.c: meta_lex.l sthandler.h
-       flex meta_lex.l 
-
-sthandler.o: sthandler.c sthandler.h
-
-lex.yy.o: lex.yy.c sthandler.h
-       gcc -c lex.yy.c 
-
-clean:
-       -rm *.o 
-       -rm lex.yy.c
-       -rm meta

diff --git a/helm/metadata/create4/METADATA/meta_lex.l b/helm/metadata/create4/METADATA/meta_lex.l
deleted file mode 100644 (file)
index 7c3d0b4..0000000
--- a/helm/metadata/create4/METADATA/meta_lex.l
+++ /dev/null
@@ -1,263 +0,0 @@
- /******************************************************************/
- /*  Copyright (C) 2000, HELM Team                                 */ 
- /*                                                                */
- /* This file is part of HELM, an Hypertextual, Electronic         */
- /* Library of Mathematics, developed at the Computer Science      */
- /* Department, University of Bologna, Italy.                      */
- /*                                                                */
- /* HELM is free software; you can redistribute it and/or          */
- /* modify it under the terms of the GNU General Public License    */
- /* as published by the Free Software Foundation; either version   */
- /* 2 of the License, or (at your option) any later version.       */
- /*                                                                */
- /* HELM is distributed in the hope that it will be useful,        */
- /* but WITHOUT ANY WARRANTY; without even the implied warranty of */
- /* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the   */
- /* GNU General Public License for more details.                   */
- /*                                                                */
- /* You should have received a copy of the GNU General Public      */
- /* License along with HELM; if not, write to the Free Software    */
- /* Foundation, Inc., 59 Temple Place - Suite 330, Boston,         */
- /* MA  02111-1307, USA.                                           */
- /*                                                                */
- /* For details, see the HELM World-Wide-Web page,                 */
- /* http://cs.unibo.it/helm/.                                      */
- /******************************************************************/
-
- /***************************************************************/
- /*                       META_LEXAN                           */
- /*                 Automatic Metadata Extractor                */
- /*           First draft 11/12/2001, by Andrea Asperti         */
- /***************************************************************/
-
- /***************************************************************/
- /* 1. Inclusion of header files.                              */
- /***************************************************************/
-
-%{
-#include                <string.h>
-#include                <stdlib.h>
-#include                "sthandler.h"
-%}
-
- /***************************************************************/
- /* 2. Constants and Variables Definitions                      */
- /***************************************************************/
-
-%{
-#define                 NOWHERE   0
-#define                 CONST     1
-#define                 MUTIND    2
-#define                 MUTCONSTRUCT  3
-
-#define                 INBODY    0
-#define                 MAINHYP   1
-#define                 INHYP     2
-#define                 INCONCL   3
-#define                 MAINCONCL 4
-#define                 INTYPE    5
-#define                 NOTFOUND  6
-
-#define                 BEFORE    0
-#define                 HERE      1     
-#define                 AFTER     2
-
-
-int                    where = NOWHERE;
-int                     found = NOTFOUND;
-int                     position = INBODY;
-int                     first_child = BEFORE;
-int                     no_open_source =0;
-int                     tmp_n;
-char                    sep = '"';
-char                    *xpointer = "#xpointer(1/";
-char                    *uri;
-char                    *tmp;
-%}
-
- /***************************************************************/
- /* 3. Regular definitions.                                    */
- /***************************************************************/
-
-uri                     [^"]+
-digits                  [0-9]+                   
-
- /***************************************************************/
- /* 4. Rules.                                                  */
- /***************************************************************/
-
-
-
-%%
-
-"<type>"           { 
-                     position = INTYPE;
-                     first_child = BEFORE;
-                   }
-
-"<source"          {
-                    if ((position == INTYPE) ||
-                        (position == INHYP))
-                        { position = INHYP;
-                          no_open_source++;};
-                    /* printf("source %d\n", no_open_source); */
-                   }
-
-"</source>"        {
-                    if (position == INHYP)
-                     {
-                      no_open_source--;
-                      /* printf("source %d\n", no_open_source); */
-                      if (no_open_source == 0) 
-                       { position = INTYPE;
-                         first_child = BEFORE; };
-                     };
-                   }
-
-
-"<body>"           { 
-                     position = INBODY;
-                   }
-
-.|\n               {
-                   }
-
-"<APPLY"           {
-                    if (first_child == BEFORE)
-                          first_child = HERE;
-                    else if (first_child == HERE)
-                          first_child = AFTER; 
-                   } 
-
-"<LAMBDA"          |
-"<REL"             |
-"<MUTCASE"         |
-"<FIX"             |
-"<COFIX"           { 
-                    if ((first_child == BEFORE) || (first_child == HERE))
-                          first_child = AFTER;
-                   }
-
-"<CONST"           { 
-                     if (position == INTYPE) /* CONST on the spine */
-                        position = INCONCL;
-                     if (first_child == BEFORE)
-                          first_child = HERE;
-                     where = CONST;
-                   }
-
-"<MUTIND"          { 
-                     if (position == INTYPE) /* MUTIND on the spine */
-                        position = INCONCL;
-                     if (first_child == BEFORE)
-                          first_child = HERE;
-                     where = MUTIND;
-                   }
-
-"<MUTCONSTRUCT"    { 
-                     if (position == INTYPE) /* MUTCONSTRUCT on the spine */
-                        position = INCONCL;
-                     if (first_child == BEFORE)
-                          first_child = HERE;     
-                     where = MUTCONSTRUCT;
-                   }
-
-"uri=\""{uri}      {     
-                         uri=(char *)malloc((sizeof('a')*200)); 
-                         strcpy(uri,yytext);
-                         strsep(&uri,&sep);
-                         if (where == CONST)
-                             {
-                                search(uri,first_child,position); 
-                                where = NOWHERE;
-                                first_child = AFTER;
-                                free(uri); 
-                              };
-                   } 
-
-"noType=\""{digits} {
-                         if ((where == MUTIND) || (where == MUTCONSTRUCT))
-                          { strsep(&yytext,&sep);
-                            tmp=(char *)malloc((sizeof(sep)*(strlen(yytext)+1)));
-                            strcpy(tmp,yytext);
-                            tmp_n = atoi(tmp)+1;
-                            sprintf(tmp,"%d",tmp_n);
-                            strcat(uri,"#xpointer(1/"); 
-                            strcat(uri,tmp); 
-                          };
-                         if (where == MUTIND) 
-                             { 
-                               strcat(uri,")");
-                               search(uri,first_child,position); 
-                               free(uri);
-                               free(tmp);
-                               where = NOWHERE; 
-                               first_child = AFTER;};
-                   } 
-
-"noConstr=\""{digits} {
-                         if (where == MUTCONSTRUCT)
-                          { strsep(&yytext,&sep);
-                            tmp=(char *)malloc((sizeof(sep)*(strlen(yytext)+1)));
-                            strcpy(tmp,yytext);
-                            strcat(uri,"/");
-                            strcat(uri,tmp);
-                            strcat(uri,")");
-                            search(uri,first_child,position);
-                            free(uri);
-                            free(tmp);
-                            where = NOWHERE; 
-                            first_child = AFTER;};
-                   } 
-
-
-
-%%
-
- /***************************************************************/
- /* 6. Auxiliary functions.                                    */
- /***************************************************************/
-
-main(int argc, char *argv[])
-{                  
-                   init_symbol_table();
-                   yylex();
-                   printf("<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n\n");
-                   printf("<rdf:RDF xml:lang=\"en\" xmlns:rdf=\"http://www.w3.org/1999/02/22-rdf-syntax-ns#\" xmlns:h=\"http:/www.cs.unibo.it/helm/schemas/schema-h.rdf#\">\n");
-                   printf("<h:Object rdf:about=\"");
-                   printf("%s",argv[1]);
-                   printf("\">\n");
-                   print_all();
-                   printf("</h:Object>\n");
-                   printf("</rdf:RDF>\n");
-                   } 
-
-search(uri,first_child,position)
-char               *uri;
-int                first_child;
-int                position; 
-{                  
-                   if (first_child == HERE)
-                      {
-                       if (position == INHYP)
-                          found = search_bucket(uri,MAINHYP);
-                       else if (position == INCONCL)
-                          found = search_bucket(uri,MAINCONCL);
-                       /* if (found == NOTFOUND)
-                          printf( "pos = %d, uri = %s\n", MAINCONCL, uri); */
-                       }
-                    else found = search_bucket(uri,position);
-                    /* if (found == NOTFOUND)
-                          printf( "pos = %d, uri = %s\n", position, uri); */
-                    }
-
-int yywrap() {
-               return 1;
-             }
-
-
-
-
-
-
-

diff --git a/helm/metadata/create4/METADATA/sthandler.c b/helm/metadata/create4/METADATA/sthandler.c
deleted file mode 100644 (file)
index 6eb2b0e..0000000
--- a/helm/metadata/create4/METADATA/sthandler.c
+++ /dev/null
@@ -1,263 +0,0 @@
-/*********************************************************************/
-/*  Copyright (C) 2000, HELM Team                                    */ 
-/*                                                                   */
-/* This file is part of HELM, an Hypertextual, Electronic            */
-/* Library of Mathematics, developed at the Computer Science         */
-/* Department, University of Bologna, Italy.                         */
-/*                                                                   */
-/* HELM is free software; you can redistribute it and/or             */
-/* modify it under the terms of the GNU General Public License       */
-/* as published by the Free Software Foundation; either version 2    */
-/* of the License, or (at your option) any later version.            */
-/*                                                                   */
-/* HELM is distributed in the hope that it will be useful,           */
-/* but WITHOUT ANY WARRANTY; without even the implied warranty of    */
-/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     */
-/* GNU General Public License for more details.                      */
-/*                                                                   */
-/* You should have received a copy of the GNU General Public License */
-/* along with HELM; if not, write to the Free Software               */
-/* Foundation, Inc., 59 Temple Place - Suite 330, Boston,            */
-/* MA  02111-1307, USA.                                              */
-/*                                                                   */
-/* For details, see the HELM World-Wide-Web page,                    */
-/* http://cs.unibo.it/helm/.                                         */
- /*********************************************************************/
-
-/****************************************************************/
-/*                       STHANDLER.C                           */
-/****************************************************************/
-/* This module supplies routines for symbol table handling.    */
-/* - init_symbol_table(): it initializes the symbol table      */
-/*                       to void.                              */
-/* - search_bucket(): it searches the symbol table for the     */
-/*                   bucket containing a given identifier, and */
-/*                   inserts it if it is not present;          */
-/****************************************************************/
-/*           First draft 11/12/2001, by Andrea Asperti          */
-/****************************************************************/
-
-/****************************************************************/
-/* 1. Inclusion of header files.                               */
-/****************************************************************/
-
-#include               <stdio.h>
-#include               <malloc.h>
-
-/****************************************************************/
-/* 2. Declarations                                              */
-/****************************************************************/
-
-
-#define         DICTSIZE                        211
-#define         HASH1                           4
-#define         HASH2                           0xf0000000
-#define         HASH3                           24
-#define         EOS                             '\0'
-
-#define                 INBODY    0
-#define                 MAINHYP   1
-#define                 INHYP     2
-#define                 INCONCL   3
-#define                 MAINCONCL 4
-#define                 INTYPE    5
-#define                 NOTFOUND  6
-
-/****************************************************************/
-/* 3. Types.                                                   */
-/****************************************************************/
-
-struct st_bucket {
-               char                    *id;
-                                               /* identifier */
-               struct st_bucket        *next_st_bucket;
-                                               /* next bucket in the list */
-                struct st_bucket       *all_next;
-                                               /* all buckets in symbol
-                                                  table are linked together */
-                int                     pos[5];
-
-                  };                              
-
-struct st_bucket    *dictionary[DICTSIZE];
-                              /* pointers to bucket lists */
-
-/****************************************************************/
-/* 4. Definitions of functions to be exported.                 */
-/****************************************************************/
-
-struct st_bucket       *all;
-
- /* The following function initializes the symbol table to NULL */
-void init_symbol_table()
-{
-       struct st_bucket        *st;
-       int                     i;
-
-       /* initialize the dictionary */
-       for (i = 0; i < DICTSIZE; i++)
-               dictionary[i] = NULL;
-        all = NULL;
-}
-
- /* The following function searches the symbol table for an identifier */
- /* and inserts it if it is not present. 
- /* The bucket associated with the given identifier */
- /* becomes the first one in its list. */
-
-search_bucket(id, where)
-       char            *id;
-                                       /* identifier */
-        int             where;
-{
-       int             dict_index;
-                                       /* value returned by the */
-                                       /* hash function */
-       struct st_bucket
-                       *prev,
-                       *curr;
-
-        struct st_bucket *st;
-
-        /* apply the hash function */
-        dict_index = hash_pjw(id);
-        /* printf( "%d\n", dict_index); */
-        
-        /* scan the bucket list indicated by the hash function */
-        prev = curr = dictionary[dict_index];
-        while ((curr != NULL) && (strcmp(id, curr->id)))
-          {
-            prev = curr;
-            curr = curr->next_st_bucket;
-          }
-       if (curr == NULL)
-          /* the identifier is not in the list */
-          {
-            allocate_bucket(&st,id,where);
-           move_bucket(st,dict_index);
-            return NOTFOUND;
-          }
-       else
-         /* printf("uno=%s\n", id);
-            printf("st=%s\n", curr->id); */
-
-          /* the identifier is already in the list */
-          {
-            /* st = curr; */
-            curr->pos[where] = 1;
-            if (where >= 1) 
-             curr->pos[0] = 0; /* it will never be set again to 1 */
-            if (prev != curr)
-              /* the identifier is not in the first position */
-              {
-                prev->next_st_bucket = curr->next_st_bucket;
-                move_bucket(curr,
-                            dict_index);
-              };
-            return where;
-          }
-}
-
-print_all()
-{
-        int i;
-        struct st_bucket *curr;
-        curr = all;
-
-        while (curr != NULL)
-         {
-            for (i = 0; i < 5; ++i)
-             if (curr->pos[i] == 1)
-               print_one(curr->id,i);
-            curr = curr->all_next;
-          }
-}
-
-
-/****************************************************************/
-/* 5. Definitions of functions local to the module.            */
-/****************************************************************/
-
-print_one(uri,pos)
-     char    *uri;
-     int     pos;
-{
-    printf("<h:refObj>\n");
-    printf("<h:Occurrence rdf:about=\"http://www.cs.unibo.it/helm/schemas/schema-h.rdf#");
-    if (pos == INBODY)
-       printf("InBody");
-    else if (pos == MAINHYP)
-       printf("MainHypothesis");
-    else if (pos == INHYP)
-       printf("InHypothesis");
-    else if (pos == INCONCL)
-       printf("InConclusion");
-    else if (pos == MAINCONCL)
-       printf("MainConclusion");
-    printf("\" rdf:value=\"");
-    printf("%s", uri);
-    printf("\"/>\n");
-    printf("</h:refObj>\n");
-}
-
- /* The following function allocates a bucket for an identifier. */
-allocate_bucket(st, id, where)
-       struct st_bucket
-                        **st;
-                                       /* pointer to the bucket to be */
-                                       /* allocated */
-       char            *id;
-                                       /* identifier */
-        int             where;
-{
-        int i;
-
-       *st = (struct st_bucket *)malloc(sizeof(struct st_bucket));
-       (*st)->id = (char *)malloc(sizeof('a')*strlen(id));
-        strcpy((*st)->id,id);
-       (*st)->next_st_bucket = NULL;
-        (*st)->all_next = all;
-        all = *st;
-        for (i = 0; i < 5; ++i)
-         (*st)->pos[i] = 0;
-        (*st)->pos[where] = 1;
-}
-
- /* The following function moves a bucket to the head of the */
- /* list in which it lies. */
-move_bucket(st, dict_index)
-       struct st_bucket 
-                        *st;
-                                       /* pointer to the bucket to */
-                                       /* be moved */
-       int             dict_index;
-                                       /* index corresponding to */
-                                       /* the list in which the */
-                                       /* bucket lies */
-{
-       st->next_st_bucket = dictionary[dict_index];
-       dictionary[dict_index] = st;
-}
-
- /* The following function implements Weinberger's hash function. */
-int
-hash_pjw(id)
-       char            *id;
-                                       /* identifier to be hashed */
-{
-       unsigned        h,
-                       g;
-
-       for (h = 0; *id != EOS; id++)
-       {
-               h = (h << HASH1) + (*id);
-               if (g = h & HASH2)
-                       h = h ^ (g >> HASH3) ^ g;
-       }
-       return(h % DICTSIZE);
-}
-
-
-
-
-

diff --git a/helm/metadata/create4/METADATA/sthandler.h b/helm/metadata/create4/METADATA/sthandler.h
deleted file mode 100644 (file)
index d4e17d5..0000000
--- a/helm/metadata/create4/METADATA/sthandler.h
+++ /dev/null
@@ -1,8 +0,0 @@
-/****************************************************************/
-/*                          STHANDLER.H                        */
-/****************************************************************/
-
-            
-extern  void            init_symbol_table();
-extern  void            print_all();
-extern  int             search_bucket();

diff --git a/helm/metadata/create4/Makefile b/helm/metadata/create4/Makefile
deleted file mode 100644 (file)
index 30f0540..0000000
--- a/helm/metadata/create4/Makefile
+++ /dev/null
@@ -1,27 +0,0 @@
-all:
-       @echo Available targets:
-       @echo "   forward, backward, compress, clean-forward, clean-backward"
-
-forward:
-       time for i in `cat pluto` ; do (cd tmp ; wget -t 1 "http://phd.cs.unibo.it:8081/getxml?format=gz&uri=$$i") ; mkdir -p forward/`dirname $$i | sed "s/cic:\///"` ; zcat tmp/`basename $$i` | METADATA/meta `basename $$i` > forward/`echo $$i | sed "s/cic:\///"` ; rm tmp/`basename $$i` ; done > log 2>&1
-       (cd forward ; ../mkindex.sh forward)
-
-backward:
-       time for i in `cat pluto` ; do touch/touch.opt $$i ; done
-       find forward -type f -exec ./invert.pl {} \;
-       find backward -type f -exec ./fix_rdf.pl {} \;
-       (cd backward ; ../mkindex.sh backward)
-
-compress:
-       find forward -name "*.xml" -exec gzip {} \;
-       find backward -name "*.xml" -exec gzip {} \;
-       (cd forward ; ../mkindex.sh forward)
-       (cd backward ; ../mkindex.sh backward)
-
-clean-forward:
-       rm -rf forward/*
-
-clean-backward:
-       rm -rf backward/*
-
-.PHONY: all forward backward compress clean-forward clean-backward

diff --git a/helm/minidom/.cvsignore b/helm/minidom/.cvsignore
deleted file mode 100644 (file)
index 19aef19..0000000
--- a/helm/minidom/.cvsignore
+++ /dev/null
@@ -1,23 +0,0 @@
-*.lo
-*.la
-.libs
-.deps
-.emacs.desktop
-config.h
-config.h.in
-config.cache
-config.log
-config.status
-libtool
-stamp-h
-stamp-h.in
-Makefile
-Makefile.in
-*.gz
-configure
-aclocal.m4
-install-sh
-minidom-config
-minidom.spec
-missing
-mkinstalldirs

diff --git a/helm/minidom/AUTHORS b/helm/minidom/AUTHORS
deleted file mode 100644 (file)
index fe59f14..0000000
--- a/helm/minidom/AUTHORS
+++ /dev/null
@@ -1 +0,0 @@
-Luca Padovani <luca.padovani@cs.unibo.it>

diff --git a/helm/minidom/COPYING b/helm/minidom/COPYING
deleted file mode 100644 (file)
index d60c31a..0000000
--- a/helm/minidom/COPYING
+++ /dev/null
@@ -1,340 +0,0 @@
-                   GNU GENERAL PUBLIC LICENSE
-                      Version 2, June 1991
-
- Copyright (C) 1989, 1991 Free Software Foundation, Inc.
-     59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-                           Preamble
-
-  The licenses for most software are designed to take away your
-freedom to share and change it.  By contrast, the GNU General Public
-License is intended to guarantee your freedom to share and change free
-software--to make sure the software is free for all its users.  This
-General Public License applies to most of the Free Software
-Foundation's software and to any other program whose authors commit to
-using it.  (Some other Free Software Foundation software is covered by
-the GNU Library General Public License instead.)  You can apply it to
-your programs, too.
-
-  When we speak of free software, we are referring to freedom, not
-price.  Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-this service if you wish), that you receive source code or can get it
-if you want it, that you can change the software or use pieces of it
-in new free programs; and that you know you can do these things.
-
-  To protect your rights, we need to make restrictions that forbid
-anyone to deny you these rights or to ask you to surrender the rights.
-These restrictions translate to certain responsibilities for you if you
-distribute copies of the software, or if you modify it.
-
-  For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must give the recipients all the rights that
-you have.  You must make sure that they, too, receive or can get the
-source code.  And you must show them these terms so they know their
-rights.
-
-  We protect your rights with two steps: (1) copyright the software, and
-(2) offer you this license which gives you legal permission to copy,
-distribute and/or modify the software.
-
-  Also, for each author's protection and ours, we want to make certain
-that everyone understands that there is no warranty for this free
-software.  If the software is modified by someone else and passed on, we
-want its recipients to know that what they have is not the original, so
-that any problems introduced by others will not reflect on the original
-authors' reputations.
-
-  Finally, any free program is threatened constantly by software
-patents.  We wish to avoid the danger that redistributors of a free
-program will individually obtain patent licenses, in effect making the
-program proprietary.  To prevent this, we have made it clear that any
-patent must be licensed for everyone's free use or not licensed at all.
-
-  The precise terms and conditions for copying, distribution and
-modification follow.
-\f
-                   GNU GENERAL PUBLIC LICENSE
-   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
-  0. This License applies to any program or other work which contains
-a notice placed by the copyright holder saying it may be distributed
-under the terms of this General Public License.  The "Program", below,
-refers to any such program or work, and a "work based on the Program"
-means either the Program or any derivative work under copyright law:
-that is to say, a work containing the Program or a portion of it,
-either verbatim or with modifications and/or translated into another
-language.  (Hereinafter, translation is included without limitation in
-the term "modification".)  Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not
-covered by this License; they are outside its scope.  The act of
-running the Program is not restricted, and the output from the Program
-is covered only if its contents constitute a work based on the
-Program (independent of having been made by running the Program).
-Whether that is true depends on what the Program does.
-
-  1. You may copy and distribute verbatim copies of the Program's
-source code as you receive it, in any medium, provided that you
-conspicuously and appropriately publish on each copy an appropriate
-copyright notice and disclaimer of warranty; keep intact all the
-notices that refer to this License and to the absence of any warranty;
-and give any other recipients of the Program a copy of this License
-along with the Program.
-
-You may charge a fee for the physical act of transferring a copy, and
-you may at your option offer warranty protection in exchange for a fee.
-
-  2. You may modify your copy or copies of the Program or any portion
-of it, thus forming a work based on the Program, and copy and
-distribute such modifications or work under the terms of Section 1
-above, provided that you also meet all of these conditions:
-
-    a) You must cause the modified files to carry prominent notices
-    stating that you changed the files and the date of any change.
-
-    b) You must cause any work that you distribute or publish, that in
-    whole or in part contains or is derived from the Program or any
-    part thereof, to be licensed as a whole at no charge to all third
-    parties under the terms of this License.
-
-    c) If the modified program normally reads commands interactively
-    when run, you must cause it, when started running for such
-    interactive use in the most ordinary way, to print or display an
-    announcement including an appropriate copyright notice and a
-    notice that there is no warranty (or else, saying that you provide
-    a warranty) and that users may redistribute the program under
-    these conditions, and telling the user how to view a copy of this
-    License.  (Exception: if the Program itself is interactive but
-    does not normally print such an announcement, your work based on
-    the Program is not required to print an announcement.)
-\f
-These requirements apply to the modified work as a whole.  If
-identifiable sections of that work are not derived from the Program,
-and can be reasonably considered independent and separate works in
-themselves, then this License, and its terms, do not apply to those
-sections when you distribute them as separate works.  But when you
-distribute the same sections as part of a whole which is a work based
-on the Program, the distribution of the whole must be on the terms of
-this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest
-your rights to work written entirely by you; rather, the intent is to
-exercise the right to control the distribution of derivative or
-collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program
-with the Program (or with a work based on the Program) on a volume of
-a storage or distribution medium does not bring the other work under
-the scope of this License.
-
-  3. You may copy and distribute the Program (or a work based on it,
-under Section 2) in object code or executable form under the terms of
-Sections 1 and 2 above provided that you also do one of the following:
-
-    a) Accompany it with the complete corresponding machine-readable
-    source code, which must be distributed under the terms of Sections
-    1 and 2 above on a medium customarily used for software interchange; or,
-
-    b) Accompany it with a written offer, valid for at least three
-    years, to give any third party, for a charge no more than your
-    cost of physically performing source distribution, a complete
-    machine-readable copy of the corresponding source code, to be
-    distributed under the terms of Sections 1 and 2 above on a medium
-    customarily used for software interchange; or,
-
-    c) Accompany it with the information you received as to the offer
-    to distribute corresponding source code.  (This alternative is
-    allowed only for noncommercial distribution and only if you
-    received the program in object code or executable form with such
-    an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for
-making modifications to it.  For an executable work, complete source
-code means all the source code for all modules it contains, plus any
-associated interface definition files, plus the scripts used to
-control compilation and installation of the executable.  However, as a
-special exception, the source code distributed need not include
-anything that is normally distributed (in either source or binary
-form) with the major components (compiler, kernel, and so on) of the
-operating system on which the executable runs, unless that component
-itself accompanies the executable.
-
-If distribution of executable or object code is made by offering
-access to copy from a designated place, then offering equivalent
-access to copy the source code from the same place counts as
-distribution of the source code, even though third parties are not
-compelled to copy the source along with the object code.
-\f
-  4. You may not copy, modify, sublicense, or distribute the Program
-except as expressly provided under this License.  Any attempt
-otherwise to copy, modify, sublicense or distribute the Program is
-void, and will automatically terminate your rights under this License.
-However, parties who have received copies, or rights, from you under
-this License will not have their licenses terminated so long as such
-parties remain in full compliance.
-
-  5. You are not required to accept this License, since you have not
-signed it.  However, nothing else grants you permission to modify or
-distribute the Program or its derivative works.  These actions are
-prohibited by law if you do not accept this License.  Therefore, by
-modifying or distributing the Program (or any work based on the
-Program), you indicate your acceptance of this License to do so, and
-all its terms and conditions for copying, distributing or modifying
-the Program or works based on it.
-
-  6. Each time you redistribute the Program (or any work based on the
-Program), the recipient automatically receives a license from the
-original licensor to copy, distribute or modify the Program subject to
-these terms and conditions.  You may not impose any further
-restrictions on the recipients' exercise of the rights granted herein.
-You are not responsible for enforcing compliance by third parties to
-this License.
-
-  7. If, as a consequence of a court judgment or allegation of patent
-infringement or for any other reason (not limited to patent issues),
-conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License.  If you cannot
-distribute so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you
-may not distribute the Program at all.  For example, if a patent
-license would not permit royalty-free redistribution of the Program by
-all those who receive copies directly or indirectly through you, then
-the only way you could satisfy both it and this License would be to
-refrain entirely from distribution of the Program.
-
-If any portion of this section is held invalid or unenforceable under
-any particular circumstance, the balance of the section is intended to
-apply and the section as a whole is intended to apply in other
-circumstances.
-
-It is not the purpose of this section to induce you to infringe any
-patents or other property right claims or to contest validity of any
-such claims; this section has the sole purpose of protecting the
-integrity of the free software distribution system, which is
-implemented by public license practices.  Many people have made
-generous contributions to the wide range of software distributed
-through that system in reliance on consistent application of that
-system; it is up to the author/donor to decide if he or she is willing
-to distribute software through any other system and a licensee cannot
-impose that choice.
-
-This section is intended to make thoroughly clear what is believed to
-be a consequence of the rest of this License.
-\f
-  8. If the distribution and/or use of the Program is restricted in
-certain countries either by patents or by copyrighted interfaces, the
-original copyright holder who places the Program under this License
-may add an explicit geographical distribution limitation excluding
-those countries, so that distribution is permitted only in or among
-countries not thus excluded.  In such case, this License incorporates
-the limitation as if written in the body of this License.
-
-  9. The Free Software Foundation may publish revised and/or new versions
-of the General Public License from time to time.  Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
-Each version is given a distinguishing version number.  If the Program
-specifies a version number of this License which applies to it and "any
-later version", you have the option of following the terms and conditions
-either of that version or of any later version published by the Free
-Software Foundation.  If the Program does not specify a version number of
-this License, you may choose any version ever published by the Free Software
-Foundation.
-
-  10. If you wish to incorporate parts of the Program into other free
-programs whose distribution conditions are different, write to the author
-to ask for permission.  For software which is copyrighted by the Free
-Software Foundation, write to the Free Software Foundation; we sometimes
-make exceptions for this.  Our decision will be guided by the two goals
-of preserving the free status of all derivatives of our free software and
-of promoting the sharing and reuse of software generally.
-
-                           NO WARRANTY
-
-  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
-OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
-TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
-PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
-REPAIR OR CORRECTION.
-
-  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
-INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
-OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
-TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
-YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
-PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGES.
-
-                    END OF TERMS AND CONDITIONS
-\f
-           How to Apply These Terms to Your New Programs
-
-  If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
-  To do so, attach the following notices to the program.  It is safest
-to attach them to the start of each source file to most effectively
-convey the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
-    <one line to give the program's name and a brief idea of what it does.>
-    Copyright (C) <year>  <name of author>
-
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-
-
-Also add information on how to contact you by electronic and paper mail.
-
-If the program is interactive, make it output a short notice like this
-when it starts in an interactive mode:
-
-    Gnomovision version 69, Copyright (C) year  name of author
-    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
-    This is free software, and you are welcome to redistribute it
-    under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License.  Of course, the commands you use may
-be called something other than `show w' and `show c'; they could even be
-mouse-clicks or menu items--whatever suits your program.
-
-You should also get your employer (if you work as a programmer) or your
-school, if any, to sign a "copyright disclaimer" for the program, if
-necessary.  Here is a sample; alter the names:
-
-  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
-  `Gnomovision' (which makes passes at compilers) written by James Hacker.
-
-  <signature of Ty Coon>, 1 April 1989
-  Ty Coon, President of Vice
-
-This General Public License does not permit incorporating your program into
-proprietary programs.  If your program is a subroutine library, you may
-consider it more useful to permit linking proprietary applications with the
-library.  If this is what you want to do, use the GNU Library General
-Public License instead of this License.

diff --git a/helm/minidom/ChangeLog b/helm/minidom/ChangeLog
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/minidom/HEADER b/helm/minidom/HEADER
deleted file mode 100644 (file)
index acd4a4d..0000000
--- a/helm/minidom/HEADER
+++ /dev/null
@@ -1,24 +0,0 @@
-/*
- * Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- * 
- * This file is part of MambaCC, a compiler for the Mamba
- * Functional Language
- * 
- * MambaCC is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * MambaCC is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- * 
- * You should have received a copy of the GNU General Public License
- * along with MambaCC; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- * 
- * For details, see the MambaCC World-Wide-Web page,
- * http://cs.unibo.it/~lpadovan/mamba/, or send a mail to
- * <luca.padovani@cs.unibo.it>
- */

diff --git a/helm/minidom/INSTALL b/helm/minidom/INSTALL
deleted file mode 100644 (file)
index b42a17a..0000000
--- a/helm/minidom/INSTALL
+++ /dev/null
@@ -1,182 +0,0 @@
-Basic Installation
-==================
-
-   These are generic installation instructions.
-
-   The `configure' shell script attempts to guess correct values for
-various system-dependent variables used during compilation.  It uses
-those values to create a `Makefile' in each directory of the package.
-It may also create one or more `.h' files containing system-dependent
-definitions.  Finally, it creates a shell script `config.status' that
-you can run in the future to recreate the current configuration, a file
-`config.cache' that saves the results of its tests to speed up
-reconfiguring, and a file `config.log' containing compiler output
-(useful mainly for debugging `configure').
-
-   If you need to do unusual things to compile the package, please try
-to figure out how `configure' could check whether to do them, and mail
-diffs or instructions to the address given in the `README' so they can
-be considered for the next release.  If at some point `config.cache'
-contains results you don't want to keep, you may remove or edit it.
-
-   The file `configure.in' is used to create `configure' by a program
-called `autoconf'.  You only need `configure.in' if you want to change
-it or regenerate `configure' using a newer version of `autoconf'.
-
-The simplest way to compile this package is:
-
-  1. `cd' to the directory containing the package's source code and type
-     `./configure' to configure the package for your system.  If you're
-     using `csh' on an old version of System V, you might need to type
-     `sh ./configure' instead to prevent `csh' from trying to execute
-     `configure' itself.
-
-     Running `configure' takes awhile.  While running, it prints some
-     messages telling which features it is checking for.
-
-  2. Type `make' to compile the package.
-
-  3. Optionally, type `make check' to run any self-tests that come with
-     the package.
-
-  4. Type `make install' to install the programs and any data files and
-     documentation.
-
-  5. You can remove the program binaries and object files from the
-     source code directory by typing `make clean'.  To also remove the
-     files that `configure' created (so you can compile the package for
-     a different kind of computer), type `make distclean'.  There is
-     also a `make maintainer-clean' target, but that is intended mainly
-     for the package's developers.  If you use it, you may have to get
-     all sorts of other programs in order to regenerate files that came
-     with the distribution.
-
-Compilers and Options
-=====================
-
-   Some systems require unusual options for compilation or linking that
-the `configure' script does not know about.  You can give `configure'
-initial values for variables by setting them in the environment.  Using
-a Bourne-compatible shell, you can do that on the command line like
-this:
-     CC=c89 CFLAGS=-O2 LIBS=-lposix ./configure
-
-Or on systems that have the `env' program, you can do it like this:
-     env CPPFLAGS=-I/usr/local/include LDFLAGS=-s ./configure
-
-Compiling For Multiple Architectures
-====================================
-
-   You can compile the package for more than one kind of computer at the
-same time, by placing the object files for each architecture in their
-own directory.  To do this, you must use a version of `make' that
-supports the `VPATH' variable, such as GNU `make'.  `cd' to the
-directory where you want the object files and executables to go and run
-the `configure' script.  `configure' automatically checks for the
-source code in the directory that `configure' is in and in `..'.
-
-   If you have to use a `make' that does not supports the `VPATH'
-variable, you have to compile the package for one architecture at a time
-in the source code directory.  After you have installed the package for
-one architecture, use `make distclean' before reconfiguring for another
-architecture.
-
-Installation Names
-==================
-
-   By default, `make install' will install the package's files in
-`/usr/local/bin', `/usr/local/man', etc.  You can specify an
-installation prefix other than `/usr/local' by giving `configure' the
-option `--prefix=PATH'.
-
-   You can specify separate installation prefixes for
-architecture-specific files and architecture-independent files.  If you
-give `configure' the option `--exec-prefix=PATH', the package will use
-PATH as the prefix for installing programs and libraries.
-Documentation and other data files will still use the regular prefix.
-
-   In addition, if you use an unusual directory layout you can give
-options like `--bindir=PATH' to specify different values for particular
-kinds of files.  Run `configure --help' for a list of the directories
-you can set and what kinds of files go in them.
-
-   If the package supports it, you can cause programs to be installed
-with an extra prefix or suffix on their names by giving `configure' the
-option `--program-prefix=PREFIX' or `--program-suffix=SUFFIX'.
-
-Optional Features
-=================
-
-   Some packages pay attention to `--enable-FEATURE' options to
-`configure', where FEATURE indicates an optional part of the package.
-They may also pay attention to `--with-PACKAGE' options, where PACKAGE
-is something like `gnu-as' or `x' (for the X Window System).  The
-`README' should mention any `--enable-' and `--with-' options that the
-package recognizes.
-
-   For packages that use the X Window System, `configure' can usually
-find the X include and library files automatically, but if it doesn't,
-you can use the `configure' options `--x-includes=DIR' and
-`--x-libraries=DIR' to specify their locations.
-
-Specifying the System Type
-==========================
-
-   There may be some features `configure' can not figure out
-automatically, but needs to determine by the type of host the package
-will run on.  Usually `configure' can figure that out, but if it prints
-a message saying it can not guess the host type, give it the
-`--host=TYPE' option.  TYPE can either be a short name for the system
-type, such as `sun4', or a canonical name with three fields:
-     CPU-COMPANY-SYSTEM
-
-See the file `config.sub' for the possible values of each field.  If
-`config.sub' isn't included in this package, then this package doesn't
-need to know the host type.
-
-   If you are building compiler tools for cross-compiling, you can also
-use the `--target=TYPE' option to select the type of system they will
-produce code for and the `--build=TYPE' option to select the type of
-system on which you are compiling the package.
-
-Sharing Defaults
-================
-
-   If you want to set default values for `configure' scripts to share,
-you can create a site shell script called `config.site' that gives
-default values for variables like `CC', `cache_file', and `prefix'.
-`configure' looks for `PREFIX/share/config.site' if it exists, then
-`PREFIX/etc/config.site' if it exists.  Or, you can set the
-`CONFIG_SITE' environment variable to the location of the site script.
-A warning: not all `configure' scripts look for a site script.
-
-Operation Controls
-==================
-
-   `configure' recognizes the following options to control how it
-operates.
-
-`--cache-file=FILE'
-     Use and save the results of the tests in FILE instead of
-     `./config.cache'.  Set FILE to `/dev/null' to disable caching, for
-     debugging `configure'.
-
-`--help'
-     Print a summary of the options to `configure', and exit.
-
-`--quiet'
-`--silent'
-`-q'
-     Do not print messages saying which checks are being made.  To
-     suppress all normal output, redirect it to `/dev/null' (any error
-     messages will still be shown).
-
-`--srcdir=DIR'
-     Look for the package's source code in directory DIR.  Usually
-     `configure' can determine that directory automatically.
-
-`--version'
-     Print the version of Autoconf used to generate the `configure'
-     script, and exit.
-
-`configure' also accepts some other, not widely useful, options.

diff --git a/helm/minidom/Makefile.am b/helm/minidom/Makefile.am
deleted file mode 100644 (file)
index 2bc9d71..0000000
--- a/helm/minidom/Makefile.am
+++ /dev/null
@@ -1,42 +0,0 @@
-
-lib_LTLIBRARIES = libminidom.la
-bin_SCRIPTS = minidom-config
-
-libminidom_la_LDFLAGS = -version-info @MINIDOM_VERSION_INFO@
-
-EXTRA_DIST = minidom-config.in
-
-CLEANFILES = minidom-config
-
-libminidom_la_SOURCES = \
-  minidom.c
-
-pkginclude_HEADERS = \
-  minidom.h
-
-minidom-config: minidom-config.in
-       @echo "#!/bin/sh" >minidom-config
-       @echo >>minidom-config
-       @echo VERSION=\"$(VERSION)\" >>minidom-config
-       @echo XML_CONFIG=\"$(XML_CONFIG)\" >>minidom-config
-       @echo libdir=\"$(libdir)\" >>minidom-config
-       @echo pkglibdir=\"$(pkglibdir)\" >>minidom-config
-       @echo includedir=\"$(includedir)\" >>minidom-config
-       @echo pkgincludedir=\"$(pkgincludedir)\" >>minidom-config
-       @echo >>minidom-config
-       @cat $(srcdir)/minidom-config.in >>minidom-config
-       @chmod a+x minidom-config
-
-backup:
-       tar cvfz ../@PACKAGE@-@VERSION@-`date|tr ' ' '_'|tr ':' '_'`.tar.gz .
-
-cleanbak:
-       -rm -f `find . -name "*~"`
-
-lc:
-       @( \
-       CFILES=`find . -name "*.c"`; \
-       HFILES=`find . -name "*.h"`; \
-       ICCFILES=`find . -name "*.inc"`; \
-       wc -l $$CFILES $$HFILES $$INCFILES | tail -n 1 \
-       )

diff --git a/helm/minidom/NEWS b/helm/minidom/NEWS
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/minidom/README b/helm/minidom/README
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/minidom/TODO b/helm/minidom/TODO
deleted file mode 100644 (file)
index bebb4b6..0000000
--- a/helm/minidom/TODO
+++ /dev/null
@@ -1,2 +0,0 @@
-+ support for converting string to/from Unicode
-

diff --git a/helm/minidom/acconfig.h b/helm/minidom/acconfig.h
deleted file mode 100644 (file)
index ac44dc3..0000000
--- a/helm/minidom/acconfig.h
+++ /dev/null
@@ -1,36 +0,0 @@
-/*
- * Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- * 
- * This file is part of miniDOM, a minimal implementation of the
- * Document Object Model based on the libxml library.
- * 
- * miniDOM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * miniDOM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- * 
- * You should have received a copy of the GNU General Public License
- * along with miniDOM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- * 
- * For details, see the miniDOM World-Wide-Web page,
- * http://cs.unibo.it/~lpadovan/minidom/, or send a mail to
- * <luca.padovani@cs.unibo.it>
- */
-
-#ifndef config_h
-#define config_h
-
-@TOP@
-
-/* Define to compile with libxml 2.x (recommended) */
-#undef HAVE_LIBXML2
-
-@BOTTOM@
-
-#endif /* config_h */

diff --git a/helm/minidom/config.guess b/helm/minidom/config.guess
deleted file mode 100644 (file)
index 28fcc5e..0000000
--- a/helm/minidom/config.guess
+++ /dev/null
@@ -1,1308 +0,0 @@
-#! /bin/sh
-# Attempt to guess a canonical system name.
-#   Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-#   Free Software Foundation, Inc.
-
-timestamp='2001-11-08'
-
-# This file is free software; you can redistribute it and/or modify it
-# under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-# General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-#
-# As a special exception to the GNU General Public License, if you
-# distribute this file as part of a program that contains a
-# configuration script generated by Autoconf, you may include it under
-# the same distribution terms that you use for the rest of that program.
-
-# Originally written by Per Bothner <bothner@cygnus.com>.
-# Please send patches to <config-patches@gnu.org>.  Submit a context
-# diff and a properly formatted ChangeLog entry.
-#
-# This script attempts to guess a canonical system name similar to
-# config.sub.  If it succeeds, it prints the system name on stdout, and
-# exits with 0.  Otherwise, it exits with 1.
-#
-# The plan is that this can be called by configure scripts if you
-# don't specify an explicit build system type.
-
-me=`echo "$0" | sed -e 's,.*/,,'`
-
-usage="\
-Usage: $0 [OPTION]
-
-Output the configuration name of the system \`$me' is run on.
-
-Operation modes:
-  -h, --help         print this help, then exit
-  -t, --time-stamp   print date of last modification, then exit
-  -v, --version      print version number, then exit
-
-Report bugs and patches to <config-patches@gnu.org>."
-
-version="\
-GNU config.guess ($timestamp)
-
-Originally written by Per Bothner.
-Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-Free Software Foundation, Inc.
-
-This is free software; see the source for copying conditions.  There is NO
-warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
-
-help="
-Try \`$me --help' for more information."
-
-# Parse command line
-while test $# -gt 0 ; do
-  case $1 in
-    --time-stamp | --time* | -t )
-       echo "$timestamp" ; exit 0 ;;
-    --version | -v )
-       echo "$version" ; exit 0 ;;
-    --help | --h* | -h )
-       echo "$usage"; exit 0 ;;
-    -- )     # Stop option processing
-       shift; break ;;
-    - )        # Use stdin as input.
-       break ;;
-    -* )
-       echo "$me: invalid option $1$help" >&2
-       exit 1 ;;
-    * )
-       break ;;
-  esac
-done
-
-if test $# != 0; then
-  echo "$me: too many arguments$help" >&2
-  exit 1
-fi
-
-
-dummy=dummy-$$
-trap 'rm -f $dummy.c $dummy.o $dummy.rel $dummy; exit 1' 1 2 15
-
-# CC_FOR_BUILD -- compiler used by this script.
-# Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still
-# use `HOST_CC' if defined, but it is deprecated.
-
-set_cc_for_build='case $CC_FOR_BUILD,$HOST_CC,$CC in
- ,,)    echo "int dummy(){}" > $dummy.c ;
-       for c in cc gcc c89 ; do
-         ($c $dummy.c -c -o $dummy.o) >/dev/null 2>&1 ;
-         if test $? = 0 ; then
-            CC_FOR_BUILD="$c"; break ;
-         fi ;
-       done ;
-       rm -f $dummy.c $dummy.o $dummy.rel ;
-       if test x"$CC_FOR_BUILD" = x ; then
-         CC_FOR_BUILD=no_compiler_found ;
-       fi
-       ;;
- ,,*)   CC_FOR_BUILD=$CC ;;
- ,*,*)  CC_FOR_BUILD=$HOST_CC ;;
-esac'
-
-# This is needed to find uname on a Pyramid OSx when run in the BSD universe.
-# (ghazi@noc.rutgers.edu 1994-08-24)
-if (test -f /.attbin/uname) >/dev/null 2>&1 ; then
-       PATH=$PATH:/.attbin ; export PATH
-fi
-
-UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown
-UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown
-UNAME_SYSTEM=`(uname -s) 2>/dev/null`  || UNAME_SYSTEM=unknown
-UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown
-
-# Note: order is significant - the case branches are not exclusive.
-
-case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in
-    *:NetBSD:*:*)
-       # NetBSD (nbsd) targets should (where applicable) match one or
-       # more of the tupples: *-*-netbsdelf*, *-*-netbsdaout*,
-       # *-*-netbsdecoff* and *-*-netbsd*.  For targets that recently
-       # switched to ELF, *-*-netbsd* would select the old
-       # object file format.  This provides both forward
-       # compatibility and a consistent mechanism for selecting the
-       # object file format.
-       # Determine the machine/vendor (is the vendor relevant).
-       case "${UNAME_MACHINE}" in
-           amiga) machine=m68k-unknown ;;
-           arm32) machine=arm-unknown ;;
-           atari*) machine=m68k-atari ;;
-           sun3*) machine=m68k-sun ;;
-           mac68k) machine=m68k-apple ;;
-           macppc) machine=powerpc-apple ;;
-           hp3[0-9][05]) machine=m68k-hp ;;
-           ibmrt|romp-ibm) machine=romp-ibm ;;
-           sparc*) machine=`uname -p`-unknown ;;
-           *) machine=${UNAME_MACHINE}-unknown ;;
-       esac
-       # The Operating System including object format, if it has switched
-       # to ELF recently, or will in the future.
-       case "${UNAME_MACHINE}" in
-           i386|sparc|amiga|arm*|hp300|mvme68k|vax|atari|luna68k|mac68k|news68k|next68k|pc532|sun3*|x68k)
-               eval $set_cc_for_build
-               if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \
-                       | grep __ELF__ >/dev/null
-               then
-                   # Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout).
-                   # Return netbsd for either.  FIX?
-                   os=netbsd
-               else
-                   os=netbsdelf
-               fi
-               ;;
-           *)
-               os=netbsd
-               ;;
-       esac
-       # The OS release
-       release=`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'`
-       # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM:
-       # contains redundant information, the shorter form:
-       # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used.
-       echo "${machine}-${os}${release}"
-       exit 0 ;;
-    amiga:OpenBSD:*:*)
-       echo m68k-unknown-openbsd${UNAME_RELEASE}
-       exit 0 ;;
-    arc:OpenBSD:*:*)
-       echo mipsel-unknown-openbsd${UNAME_RELEASE}
-       exit 0 ;;
-    hp300:OpenBSD:*:*)
-       echo m68k-unknown-openbsd${UNAME_RELEASE}
-       exit 0 ;;
-    mac68k:OpenBSD:*:*)
-       echo m68k-unknown-openbsd${UNAME_RELEASE}
-       exit 0 ;;
-    macppc:OpenBSD:*:*)
-       echo powerpc-unknown-openbsd${UNAME_RELEASE}
-       exit 0 ;;
-    mvme68k:OpenBSD:*:*)
-       echo m68k-unknown-openbsd${UNAME_RELEASE}
-       exit 0 ;;
-    mvme88k:OpenBSD:*:*)
-       echo m88k-unknown-openbsd${UNAME_RELEASE}
-       exit 0 ;;
-    mvmeppc:OpenBSD:*:*)
-       echo powerpc-unknown-openbsd${UNAME_RELEASE}
-       exit 0 ;;
-    pmax:OpenBSD:*:*)
-       echo mipsel-unknown-openbsd${UNAME_RELEASE}
-       exit 0 ;;
-    sgi:OpenBSD:*:*)
-       echo mipseb-unknown-openbsd${UNAME_RELEASE}
-       exit 0 ;;
-    sun3:OpenBSD:*:*)
-       echo m68k-unknown-openbsd${UNAME_RELEASE}
-       exit 0 ;;
-    wgrisc:OpenBSD:*:*)
-       echo mipsel-unknown-openbsd${UNAME_RELEASE}
-       exit 0 ;;
-    *:OpenBSD:*:*)
-       echo ${UNAME_MACHINE}-unknown-openbsd${UNAME_RELEASE}
-       exit 0 ;;
-    alpha:OSF1:*:*)
-       if test $UNAME_RELEASE = "V4.0"; then
-               UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'`
-       fi
-       # A Vn.n version is a released version.
-       # A Tn.n version is a released field test version.
-       # A Xn.n version is an unreleased experimental baselevel.
-       # 1.2 uses "1.2" for uname -r.
-       cat <<EOF >$dummy.s
-       .data
-\$Lformat:
-       .byte 37,100,45,37,120,10,0     # "%d-%x\n"
-
-       .text
-       .globl main
-       .align 4
-       .ent main
-main:
-       .frame \$30,16,\$26,0
-       ldgp \$29,0(\$27)
-       .prologue 1
-       .long 0x47e03d80 # implver \$0
-       lda \$2,-1
-       .long 0x47e20c21 # amask \$2,\$1
-       lda \$16,\$Lformat
-       mov \$0,\$17
-       not \$1,\$18
-       jsr \$26,printf
-       ldgp \$29,0(\$26)
-       mov 0,\$16
-       jsr \$26,exit
-       .end main
-EOF
-       eval $set_cc_for_build
-       $CC_FOR_BUILD $dummy.s -o $dummy 2>/dev/null
-       if test "$?" = 0 ; then
-               case `./$dummy` in
-                       0-0)
-                               UNAME_MACHINE="alpha"
-                               ;;
-                       1-0)
-                               UNAME_MACHINE="alphaev5"
-                               ;;
-                       1-1)
-                               UNAME_MACHINE="alphaev56"
-                               ;;
-                       1-101)
-                               UNAME_MACHINE="alphapca56"
-                               ;;
-                       2-303)
-                               UNAME_MACHINE="alphaev6"
-                               ;;
-                       2-307)
-                               UNAME_MACHINE="alphaev67"
-                               ;;
-                       2-1307)
-                               UNAME_MACHINE="alphaev68"
-                               ;;
-               esac
-       fi
-       rm -f $dummy.s $dummy
-       echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[VTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'`
-       exit 0 ;;
-    Alpha\ *:Windows_NT*:*)
-       # How do we know it's Interix rather than the generic POSIX subsystem?
-       # Should we change UNAME_MACHINE based on the output of uname instead
-       # of the specific Alpha model?
-       echo alpha-pc-interix
-       exit 0 ;;
-    21064:Windows_NT:50:3)
-       echo alpha-dec-winnt3.5
-       exit 0 ;;
-    Amiga*:UNIX_System_V:4.0:*)
-       echo m68k-unknown-sysv4
-       exit 0;;
-    *:[Aa]miga[Oo][Ss]:*:*)
-       echo ${UNAME_MACHINE}-unknown-amigaos
-       exit 0 ;;
-    *:OS/390:*:*)
-       echo i370-ibm-openedition
-       exit 0 ;;
-    arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*)
-       echo arm-acorn-riscix${UNAME_RELEASE}
-       exit 0;;
-    SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*)
-       echo hppa1.1-hitachi-hiuxmpp
-       exit 0;;
-    Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*)
-       # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE.
-       if test "`(/bin/universe) 2>/dev/null`" = att ; then
-               echo pyramid-pyramid-sysv3
-       else
-               echo pyramid-pyramid-bsd
-       fi
-       exit 0 ;;
-    NILE*:*:*:dcosx)
-       echo pyramid-pyramid-svr4
-       exit 0 ;;
-    sun4H:SunOS:5.*:*)
-       echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
-       exit 0 ;;
-    sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*)
-       echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
-       exit 0 ;;
-    i86pc:SunOS:5.*:*)
-       echo i386-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
-       exit 0 ;;
-    sun4*:SunOS:6*:*)
-       # According to config.sub, this is the proper way to canonicalize
-       # SunOS6.  Hard to guess exactly what SunOS6 will be like, but
-       # it's likely to be more like Solaris than SunOS4.
-       echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
-       exit 0 ;;
-    sun4*:SunOS:*:*)
-       case "`/usr/bin/arch -k`" in
-           Series*|S4*)
-               UNAME_RELEASE=`uname -v`
-               ;;
-       esac
-       # Japanese Language versions have a version number like `4.1.3-JL'.
-       echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'`
-       exit 0 ;;
-    sun3*:SunOS:*:*)
-       echo m68k-sun-sunos${UNAME_RELEASE}
-       exit 0 ;;
-    sun*:*:4.2BSD:*)
-       UNAME_RELEASE=`(head -1 /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null`
-       test "x${UNAME_RELEASE}" = "x" && UNAME_RELEASE=3
-       case "`/bin/arch`" in
-           sun3)
-               echo m68k-sun-sunos${UNAME_RELEASE}
-               ;;
-           sun4)
-               echo sparc-sun-sunos${UNAME_RELEASE}
-               ;;
-       esac
-       exit 0 ;;
-    aushp:SunOS:*:*)
-       echo sparc-auspex-sunos${UNAME_RELEASE}
-       exit 0 ;;
-    # The situation for MiNT is a little confusing.  The machine name
-    # can be virtually everything (everything which is not
-    # "atarist" or "atariste" at least should have a processor
-    # > m68000).  The system name ranges from "MiNT" over "FreeMiNT"
-    # to the lowercase version "mint" (or "freemint").  Finally
-    # the system name "TOS" denotes a system which is actually not
-    # MiNT.  But MiNT is downward compatible to TOS, so this should
-    # be no problem.
-    atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*)
-        echo m68k-atari-mint${UNAME_RELEASE}
-       exit 0 ;;
-    atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*)
-       echo m68k-atari-mint${UNAME_RELEASE}
-        exit 0 ;;
-    *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*)
-        echo m68k-atari-mint${UNAME_RELEASE}
-       exit 0 ;;
-    milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*)
-        echo m68k-milan-mint${UNAME_RELEASE}
-        exit 0 ;;
-    hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*)
-        echo m68k-hades-mint${UNAME_RELEASE}
-        exit 0 ;;
-    *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*)
-        echo m68k-unknown-mint${UNAME_RELEASE}
-        exit 0 ;;
-    powerpc:machten:*:*)
-       echo powerpc-apple-machten${UNAME_RELEASE}
-       exit 0 ;;
-    RISC*:Mach:*:*)
-       echo mips-dec-mach_bsd4.3
-       exit 0 ;;
-    RISC*:ULTRIX:*:*)
-       echo mips-dec-ultrix${UNAME_RELEASE}
-       exit 0 ;;
-    VAX*:ULTRIX*:*:*)
-       echo vax-dec-ultrix${UNAME_RELEASE}
-       exit 0 ;;
-    2020:CLIX:*:* | 2430:CLIX:*:*)
-       echo clipper-intergraph-clix${UNAME_RELEASE}
-       exit 0 ;;
-    mips:*:*:UMIPS | mips:*:*:RISCos)
-       eval $set_cc_for_build
-       sed 's/^        //' << EOF >$dummy.c
-#ifdef __cplusplus
-#include <stdio.h>  /* for printf() prototype */
-       int main (int argc, char *argv[]) {
-#else
-       int main (argc, argv) int argc; char *argv[]; {
-#endif
-       #if defined (host_mips) && defined (MIPSEB)
-       #if defined (SYSTYPE_SYSV)
-         printf ("mips-mips-riscos%ssysv\n", argv[1]); exit (0);
-       #endif
-       #if defined (SYSTYPE_SVR4)
-         printf ("mips-mips-riscos%ssvr4\n", argv[1]); exit (0);
-       #endif
-       #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD)
-         printf ("mips-mips-riscos%sbsd\n", argv[1]); exit (0);
-       #endif
-       #endif
-         exit (-1);
-       }
-EOF
-       $CC_FOR_BUILD $dummy.c -o $dummy \
-         && ./$dummy `echo "${UNAME_RELEASE}" | sed -n 's/\([0-9]*\).*/\1/p'` \
-         && rm -f $dummy.c $dummy && exit 0
-       rm -f $dummy.c $dummy
-       echo mips-mips-riscos${UNAME_RELEASE}
-       exit 0 ;;
-    Motorola:PowerMAX_OS:*:*)
-       echo powerpc-motorola-powermax
-       exit 0 ;;
-    Night_Hawk:Power_UNIX:*:*)
-       echo powerpc-harris-powerunix
-       exit 0 ;;
-    m88k:CX/UX:7*:*)
-       echo m88k-harris-cxux7
-       exit 0 ;;
-    m88k:*:4*:R4*)
-       echo m88k-motorola-sysv4
-       exit 0 ;;
-    m88k:*:3*:R3*)
-       echo m88k-motorola-sysv3
-       exit 0 ;;
-    AViiON:dgux:*:*)
-        # DG/UX returns AViiON for all architectures
-        UNAME_PROCESSOR=`/usr/bin/uname -p`
-       if [ $UNAME_PROCESSOR = mc88100 ] || [ $UNAME_PROCESSOR = mc88110 ]
-       then
-           if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx ] || \
-              [ ${TARGET_BINARY_INTERFACE}x = x ]
-           then
-               echo m88k-dg-dgux${UNAME_RELEASE}
-           else
-               echo m88k-dg-dguxbcs${UNAME_RELEASE}
-           fi
-       else
-           echo i586-dg-dgux${UNAME_RELEASE}
-       fi
-       exit 0 ;;
-    M88*:DolphinOS:*:*)        # DolphinOS (SVR3)
-       echo m88k-dolphin-sysv3
-       exit 0 ;;
-    M88*:*:R3*:*)
-       # Delta 88k system running SVR3
-       echo m88k-motorola-sysv3
-       exit 0 ;;
-    XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3)
-       echo m88k-tektronix-sysv3
-       exit 0 ;;
-    Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD)
-       echo m68k-tektronix-bsd
-       exit 0 ;;
-    *:IRIX*:*:*)
-       echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'`
-       exit 0 ;;
-    ????????:AIX?:[12].1:2)   # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX.
-       echo romp-ibm-aix      # uname -m gives an 8 hex-code CPU id
-       exit 0 ;;              # Note that: echo "'`uname -s`'" gives 'AIX '
-    i*86:AIX:*:*)
-       echo i386-ibm-aix
-       exit 0 ;;
-    ia64:AIX:*:*)
-       if [ -x /usr/bin/oslevel ] ; then
-               IBM_REV=`/usr/bin/oslevel`
-       else
-               IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE}
-       fi
-       echo ${UNAME_MACHINE}-ibm-aix${IBM_REV}
-       exit 0 ;;
-    *:AIX:2:3)
-       if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then
-               eval $set_cc_for_build
-               sed 's/^                //' << EOF >$dummy.c
-               #include <sys/systemcfg.h>
-
-               main()
-                       {
-                       if (!__power_pc())
-                               exit(1);
-                       puts("powerpc-ibm-aix3.2.5");
-                       exit(0);
-                       }
-EOF
-               $CC_FOR_BUILD $dummy.c -o $dummy && ./$dummy && rm -f $dummy.c $dummy && exit 0
-               rm -f $dummy.c $dummy
-               echo rs6000-ibm-aix3.2.5
-       elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then
-               echo rs6000-ibm-aix3.2.4
-       else
-               echo rs6000-ibm-aix3.2
-       fi
-       exit 0 ;;
-    *:AIX:*:[45])
-       IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | head -1 | awk '{ print $1 }'`
-       if /usr/sbin/lsattr -El ${IBM_CPU_ID} | grep ' POWER' >/dev/null 2>&1; then
-               IBM_ARCH=rs6000
-       else
-               IBM_ARCH=powerpc
-       fi
-       if [ -x /usr/bin/oslevel ] ; then
-               IBM_REV=`/usr/bin/oslevel`
-       else
-               IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE}
-       fi
-       echo ${IBM_ARCH}-ibm-aix${IBM_REV}
-       exit 0 ;;
-    *:AIX:*:*)
-       echo rs6000-ibm-aix
-       exit 0 ;;
-    ibmrt:4.4BSD:*|romp-ibm:BSD:*)
-       echo romp-ibm-bsd4.4
-       exit 0 ;;
-    ibmrt:*BSD:*|romp-ibm:BSD:*)            # covers RT/PC BSD and
-       echo romp-ibm-bsd${UNAME_RELEASE}   # 4.3 with uname added to
-       exit 0 ;;                           # report: romp-ibm BSD 4.3
-    *:BOSX:*:*)
-       echo rs6000-bull-bosx
-       exit 0 ;;
-    DPX/2?00:B.O.S.:*:*)
-       echo m68k-bull-sysv3
-       exit 0 ;;
-    9000/[34]??:4.3bsd:1.*:*)
-       echo m68k-hp-bsd
-       exit 0 ;;
-    hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*)
-       echo m68k-hp-bsd4.4
-       exit 0 ;;
-    9000/[34678]??:HP-UX:*:*)
-       HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'`
-       case "${UNAME_MACHINE}" in
-           9000/31? )            HP_ARCH=m68000 ;;
-           9000/[34]?? )         HP_ARCH=m68k ;;
-           9000/[678][0-9][0-9])
-               if [ -x /usr/bin/getconf ]; then
-                   sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null`
-                    sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null`
-                    case "${sc_cpu_version}" in
-                      523) HP_ARCH="hppa1.0" ;; # CPU_PA_RISC1_0
-                      528) HP_ARCH="hppa1.1" ;; # CPU_PA_RISC1_1
-                      532)                      # CPU_PA_RISC2_0
-                        case "${sc_kernel_bits}" in
-                          32) HP_ARCH="hppa2.0n" ;;
-                          64) HP_ARCH="hppa2.0w" ;;
-                         '') HP_ARCH="hppa2.0" ;;   # HP-UX 10.20
-                        esac ;;
-                    esac
-               fi
-               if [ "${HP_ARCH}" = "" ]; then
-                   eval $set_cc_for_build
-                   sed 's/^              //' << EOF >$dummy.c
-
-              #define _HPUX_SOURCE
-              #include <stdlib.h>
-              #include <unistd.h>
-
-              int main ()
-              {
-              #if defined(_SC_KERNEL_BITS)
-                  long bits = sysconf(_SC_KERNEL_BITS);
-              #endif
-                  long cpu  = sysconf (_SC_CPU_VERSION);
-
-                  switch (cpu)
-               {
-               case CPU_PA_RISC1_0: puts ("hppa1.0"); break;
-               case CPU_PA_RISC1_1: puts ("hppa1.1"); break;
-               case CPU_PA_RISC2_0:
-              #if defined(_SC_KERNEL_BITS)
-                   switch (bits)
-                       {
-                       case 64: puts ("hppa2.0w"); break;
-                       case 32: puts ("hppa2.0n"); break;
-                       default: puts ("hppa2.0"); break;
-                       } break;
-              #else  /* !defined(_SC_KERNEL_BITS) */
-                   puts ("hppa2.0"); break;
-              #endif
-               default: puts ("hppa1.0"); break;
-               }
-                  exit (0);
-              }
-EOF
-                   (CCOPTS= $CC_FOR_BUILD $dummy.c -o $dummy 2>/dev/null) && HP_ARCH=`./$dummy`
-                   if test -z "$HP_ARCH"; then HP_ARCH=hppa; fi
-                   rm -f $dummy.c $dummy
-               fi ;;
-       esac
-       echo ${HP_ARCH}-hp-hpux${HPUX_REV}
-       exit 0 ;;
-    ia64:HP-UX:*:*)
-       HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'`
-       echo ia64-hp-hpux${HPUX_REV}
-       exit 0 ;;
-    3050*:HI-UX:*:*)
-       eval $set_cc_for_build
-       sed 's/^        //' << EOF >$dummy.c
-       #include <unistd.h>
-       int
-       main ()
-       {
-         long cpu = sysconf (_SC_CPU_VERSION);
-         /* The order matters, because CPU_IS_HP_MC68K erroneously returns
-            true for CPU_PA_RISC1_0.  CPU_IS_PA_RISC returns correct
-            results, however.  */
-         if (CPU_IS_PA_RISC (cpu))
-           {
-             switch (cpu)
-               {
-                 case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break;
-                 case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break;
-                 case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break;
-                 default: puts ("hppa-hitachi-hiuxwe2"); break;
-               }
-           }
-         else if (CPU_IS_HP_MC68K (cpu))
-           puts ("m68k-hitachi-hiuxwe2");
-         else puts ("unknown-hitachi-hiuxwe2");
-         exit (0);
-       }
-EOF
-       $CC_FOR_BUILD $dummy.c -o $dummy && ./$dummy && rm -f $dummy.c $dummy && exit 0
-       rm -f $dummy.c $dummy
-       echo unknown-hitachi-hiuxwe2
-       exit 0 ;;
-    9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* )
-       echo hppa1.1-hp-bsd
-       exit 0 ;;
-    9000/8??:4.3bsd:*:*)
-       echo hppa1.0-hp-bsd
-       exit 0 ;;
-    *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*)
-       echo hppa1.0-hp-mpeix
-       exit 0 ;;
-    hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* )
-       echo hppa1.1-hp-osf
-       exit 0 ;;
-    hp8??:OSF1:*:*)
-       echo hppa1.0-hp-osf
-       exit 0 ;;
-    i*86:OSF1:*:*)
-       if [ -x /usr/sbin/sysversion ] ; then
-           echo ${UNAME_MACHINE}-unknown-osf1mk
-       else
-           echo ${UNAME_MACHINE}-unknown-osf1
-       fi
-       exit 0 ;;
-    parisc*:Lites*:*:*)
-       echo hppa1.1-hp-lites
-       exit 0 ;;
-    C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*)
-       echo c1-convex-bsd
-        exit 0 ;;
-    C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*)
-       if getsysinfo -f scalar_acc
-       then echo c32-convex-bsd
-       else echo c2-convex-bsd
-       fi
-        exit 0 ;;
-    C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*)
-       echo c34-convex-bsd
-        exit 0 ;;
-    C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*)
-       echo c38-convex-bsd
-        exit 0 ;;
-    C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*)
-       echo c4-convex-bsd
-        exit 0 ;;
-    CRAY*X-MP:*:*:*)
-       echo xmp-cray-unicos
-        exit 0 ;;
-    CRAY*Y-MP:*:*:*)
-       echo ymp-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
-       exit 0 ;;
-    CRAY*[A-Z]90:*:*:*)
-       echo ${UNAME_MACHINE}-cray-unicos${UNAME_RELEASE} \
-       | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \
-             -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \
-             -e 's/\.[^.]*$/.X/'
-       exit 0 ;;
-    CRAY*TS:*:*:*)
-       echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
-       exit 0 ;;
-    CRAY*T3D:*:*:*)
-       echo alpha-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
-       exit 0 ;;
-    CRAY*T3E:*:*:*)
-       echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
-       exit 0 ;;
-    CRAY*SV1:*:*:*)
-       echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'
-       exit 0 ;;
-    CRAY-2:*:*:*)
-       echo cray2-cray-unicos
-        exit 0 ;;
-    F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*)
-       FUJITSU_PROC=`uname -m | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'`
-        FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'`
-        FUJITSU_REL=`echo ${UNAME_RELEASE} | sed -e 's/ /_/'`
-        echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}"
-        exit 0 ;;
-    i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*)
-       echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE}
-       exit 0 ;;
-    sparc*:BSD/OS:*:*)
-       echo sparc-unknown-bsdi${UNAME_RELEASE}
-       exit 0 ;;
-    *:BSD/OS:*:*)
-       echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE}
-       exit 0 ;;
-    *:FreeBSD:*:*)
-       echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`
-       exit 0 ;;
-    i*:CYGWIN*:*)
-       echo ${UNAME_MACHINE}-pc-cygwin
-       exit 0 ;;
-    i*:MINGW*:*)
-       echo ${UNAME_MACHINE}-pc-mingw32
-       exit 0 ;;
-    i*:PW*:*)
-       echo ${UNAME_MACHINE}-pc-pw32
-       exit 0 ;;
-    i*:Windows_NT*:* | Pentium*:Windows_NT*:*)
-       # How do we know it's Interix rather than the generic POSIX subsystem?
-       # It also conflicts with pre-2.0 versions of AT&T UWIN. Should we
-       # UNAME_MACHINE based on the output of uname instead of i386?
-       echo i386-pc-interix
-       exit 0 ;;
-    i*:UWIN*:*)
-       echo ${UNAME_MACHINE}-pc-uwin
-       exit 0 ;;
-    p*:CYGWIN*:*)
-       echo powerpcle-unknown-cygwin
-       exit 0 ;;
-    prep*:SunOS:5.*:*)
-       echo powerpcle-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`
-       exit 0 ;;
-    *:GNU:*:*)
-       echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'`
-       exit 0 ;;
-    i*86:Minix:*:*)
-       echo ${UNAME_MACHINE}-pc-minix
-       exit 0 ;;
-    arm*:Linux:*:*)
-       echo ${UNAME_MACHINE}-unknown-linux-gnu
-       exit 0 ;;
-    ia64:Linux:*:*)
-       echo ${UNAME_MACHINE}-unknown-linux
-       exit 0 ;;
-    m68*:Linux:*:*)
-       echo ${UNAME_MACHINE}-unknown-linux-gnu
-       exit 0 ;;
-    mips:Linux:*:*)
-       case `sed -n '/^byte/s/^.*: \(.*\) endian/\1/p' < /proc/cpuinfo` in
-         big)    echo mips-unknown-linux-gnu && exit 0 ;;
-         little) echo mipsel-unknown-linux-gnu && exit 0 ;;
-       esac
-       ;;
-    ppc:Linux:*:*)
-       echo powerpc-unknown-linux-gnu
-       exit 0 ;;
-    ppc64:Linux:*:*)
-       echo powerpc64-unknown-linux-gnu
-       exit 0 ;;
-    alpha:Linux:*:*)
-       case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` in
-         EV5)   UNAME_MACHINE=alphaev5 ;;
-         EV56)  UNAME_MACHINE=alphaev56 ;;
-         PCA56) UNAME_MACHINE=alphapca56 ;;
-         PCA57) UNAME_MACHINE=alphapca56 ;;
-         EV6)   UNAME_MACHINE=alphaev6 ;;
-         EV67)  UNAME_MACHINE=alphaev67 ;;
-         EV68*) UNAME_MACHINE=alphaev68 ;;
-        esac
-       objdump --private-headers /bin/sh | grep ld.so.1 >/dev/null
-       if test "$?" = 0 ; then LIBC="libc1" ; else LIBC="" ; fi
-       echo ${UNAME_MACHINE}-unknown-linux-gnu${LIBC}
-       exit 0 ;;
-    parisc:Linux:*:* | hppa:Linux:*:*)
-       # Look for CPU level
-       case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in
-         PA7*) echo hppa1.1-unknown-linux-gnu ;;
-         PA8*) echo hppa2.0-unknown-linux-gnu ;;
-         *)    echo hppa-unknown-linux-gnu ;;
-       esac
-       exit 0 ;;
-    parisc64:Linux:*:* | hppa64:Linux:*:*)
-       echo hppa64-unknown-linux-gnu
-       exit 0 ;;
-    s390:Linux:*:* | s390x:Linux:*:*)
-       echo ${UNAME_MACHINE}-ibm-linux
-       exit 0 ;;
-    sh*:Linux:*:*)
-       echo ${UNAME_MACHINE}-unknown-linux-gnu
-       exit 0 ;;
-    sparc:Linux:*:* | sparc64:Linux:*:*)
-       echo ${UNAME_MACHINE}-unknown-linux-gnu
-       exit 0 ;;
-    x86_64:Linux:*:*)
-       echo x86_64-unknown-linux-gnu
-       exit 0 ;;
-    i*86:Linux:*:*)
-       # The BFD linker knows what the default object file format is, so
-       # first see if it will tell us. cd to the root directory to prevent
-       # problems with other programs or directories called `ld' in the path.
-       ld_supported_targets=`cd /; ld --help 2>&1 \
-                        | sed -ne '/supported targets:/!d
-                                   s/[         ][      ]*/ /g
-                                   s/.*supported targets: *//
-                                   s/ .*//
-                                   p'`
-        case "$ld_supported_targets" in
-         elf32-i386)
-               TENTATIVE="${UNAME_MACHINE}-pc-linux-gnu"
-               ;;
-         a.out-i386-linux)
-               echo "${UNAME_MACHINE}-pc-linux-gnuaout"
-               exit 0 ;;               
-         coff-i386)
-               echo "${UNAME_MACHINE}-pc-linux-gnucoff"
-               exit 0 ;;
-         "")
-               # Either a pre-BFD a.out linker (linux-gnuoldld) or
-               # one that does not give us useful --help.
-               echo "${UNAME_MACHINE}-pc-linux-gnuoldld"
-               exit 0 ;;
-       esac
-       # Determine whether the default compiler is a.out or elf
-       eval $set_cc_for_build
-       cat >$dummy.c <<EOF
-#include <features.h>
-#ifdef __cplusplus
-#include <stdio.h>  /* for printf() prototype */
-       int main (int argc, char *argv[]) {
-#else
-       int main (argc, argv) int argc; char *argv[]; {
-#endif
-#ifdef __ELF__
-# ifdef __GLIBC__
-#  if __GLIBC__ >= 2
-    printf ("%s-pc-linux-gnu\n", argv[1]);
-#  else
-    printf ("%s-pc-linux-gnulibc1\n", argv[1]);
-#  endif
-# else
-   printf ("%s-pc-linux-gnulibc1\n", argv[1]);
-# endif
-#else
-  printf ("%s-pc-linux-gnuaout\n", argv[1]);
-#endif
-  return 0;
-}
-EOF
-       $CC_FOR_BUILD $dummy.c -o $dummy 2>/dev/null && ./$dummy "${UNAME_MACHINE}" && rm -f $dummy.c $dummy && exit 0
-       rm -f $dummy.c $dummy
-       test x"${TENTATIVE}" != x && echo "${TENTATIVE}" && exit 0
-       ;;
-    i*86:DYNIX/ptx:4*:*)
-       # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there.
-       # earlier versions are messed up and put the nodename in both
-       # sysname and nodename.
-       echo i386-sequent-sysv4
-       exit 0 ;;
-    i*86:UNIX_SV:4.2MP:2.*)
-        # Unixware is an offshoot of SVR4, but it has its own version
-        # number series starting with 2...
-        # I am not positive that other SVR4 systems won't match this,
-       # I just have to hope.  -- rms.
-        # Use sysv4.2uw... so that sysv4* matches it.
-       echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION}
-       exit 0 ;;
-    i*86:*:4.*:* | i*86:SYSTEM_V:4.*:*)
-       UNAME_REL=`echo ${UNAME_RELEASE} | sed 's/\/MP$//'`
-       if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then
-               echo ${UNAME_MACHINE}-univel-sysv${UNAME_REL}
-       else
-               echo ${UNAME_MACHINE}-pc-sysv${UNAME_REL}
-       fi
-       exit 0 ;;
-    i*86:*:5:[78]*)
-       case `/bin/uname -X | grep "^Machine"` in
-           *486*)           UNAME_MACHINE=i486 ;;
-           *Pentium)        UNAME_MACHINE=i586 ;;
-           *Pent*|*Celeron) UNAME_MACHINE=i686 ;;
-       esac
-       echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION}
-       exit 0 ;;
-    i*86:*:3.2:*)
-       if test -f /usr/options/cb.name; then
-               UNAME_REL=`sed -n 's/.*Version //p' </usr/options/cb.name`
-               echo ${UNAME_MACHINE}-pc-isc$UNAME_REL
-       elif /bin/uname -X 2>/dev/null >/dev/null ; then
-               UNAME_REL=`(/bin/uname -X|egrep Release|sed -e 's/.*= //')`
-               (/bin/uname -X|egrep i80486 >/dev/null) && UNAME_MACHINE=i486
-               (/bin/uname -X|egrep '^Machine.*Pentium' >/dev/null) \
-                       && UNAME_MACHINE=i586
-               (/bin/uname -X|egrep '^Machine.*Pent ?II' >/dev/null) \
-                       && UNAME_MACHINE=i686
-               (/bin/uname -X|egrep '^Machine.*Pentium Pro' >/dev/null) \
-                       && UNAME_MACHINE=i686
-               echo ${UNAME_MACHINE}-pc-sco$UNAME_REL
-       else
-               echo ${UNAME_MACHINE}-pc-sysv32
-       fi
-       exit 0 ;;
-    i*86:*DOS:*:*)
-       echo ${UNAME_MACHINE}-pc-msdosdjgpp
-       exit 0 ;;
-    pc:*:*:*)
-       # Left here for compatibility:
-        # uname -m prints for DJGPP always 'pc', but it prints nothing about
-        # the processor, so we play safe by assuming i386.
-       echo i386-pc-msdosdjgpp
-        exit 0 ;;
-    Intel:Mach:3*:*)
-       echo i386-pc-mach3
-       exit 0 ;;
-    paragon:*:*:*)
-       echo i860-intel-osf1
-       exit 0 ;;
-    i860:*:4.*:*) # i860-SVR4
-       if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then
-         echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4
-       else # Add other i860-SVR4 vendors below as they are discovered.
-         echo i860-unknown-sysv${UNAME_RELEASE}  # Unknown i860-SVR4
-       fi
-       exit 0 ;;
-    mini*:CTIX:SYS*5:*)
-       # "miniframe"
-       echo m68010-convergent-sysv
-       exit 0 ;;
-    M68*:*:R3V[567]*:*)
-       test -r /sysV68 && echo 'm68k-motorola-sysv' && exit 0 ;;
-    3[34]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0)
-       OS_REL=''
-       test -r /etc/.relid \
-       && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid`
-       /bin/uname -p 2>/dev/null | grep 86 >/dev/null \
-         && echo i486-ncr-sysv4.3${OS_REL} && exit 0
-       /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \
-         && echo i586-ncr-sysv4.3${OS_REL} && exit 0 ;;
-    3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*)
-        /bin/uname -p 2>/dev/null | grep 86 >/dev/null \
-          && echo i486-ncr-sysv4 && exit 0 ;;
-    m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*)
-       echo m68k-unknown-lynxos${UNAME_RELEASE}
-       exit 0 ;;
-    mc68030:UNIX_System_V:4.*:*)
-       echo m68k-atari-sysv4
-       exit 0 ;;
-    i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.0*:*)
-       echo i386-unknown-lynxos${UNAME_RELEASE}
-       exit 0 ;;
-    TSUNAMI:LynxOS:2.*:*)
-       echo sparc-unknown-lynxos${UNAME_RELEASE}
-       exit 0 ;;
-    rs6000:LynxOS:2.*:*)
-       echo rs6000-unknown-lynxos${UNAME_RELEASE}
-       exit 0 ;;
-    PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.0*:*)
-       echo powerpc-unknown-lynxos${UNAME_RELEASE}
-       exit 0 ;;
-    SM[BE]S:UNIX_SV:*:*)
-       echo mips-dde-sysv${UNAME_RELEASE}
-       exit 0 ;;
-    RM*:ReliantUNIX-*:*:*)
-       echo mips-sni-sysv4
-       exit 0 ;;
-    RM*:SINIX-*:*:*)
-       echo mips-sni-sysv4
-       exit 0 ;;
-    *:SINIX-*:*:*)
-       if uname -p 2>/dev/null >/dev/null ; then
-               UNAME_MACHINE=`(uname -p) 2>/dev/null`
-               echo ${UNAME_MACHINE}-sni-sysv4
-       else
-               echo ns32k-sni-sysv
-       fi
-       exit 0 ;;
-    PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort
-                      # says <Richard.M.Bartel@ccMail.Census.GOV>
-        echo i586-unisys-sysv4
-        exit 0 ;;
-    *:UNIX_System_V:4*:FTX*)
-       # From Gerald Hewes <hewes@openmarket.com>.
-       # How about differentiating between stratus architectures? -djm
-       echo hppa1.1-stratus-sysv4
-       exit 0 ;;
-    *:*:*:FTX*)
-       # From seanf@swdc.stratus.com.
-       echo i860-stratus-sysv4
-       exit 0 ;;
-    *:VOS:*:*)
-       # From Paul.Green@stratus.com.
-       echo hppa1.1-stratus-vos
-       exit 0 ;;
-    mc68*:A/UX:*:*)
-       echo m68k-apple-aux${UNAME_RELEASE}
-       exit 0 ;;
-    news*:NEWS-OS:6*:*)
-       echo mips-sony-newsos6
-       exit 0 ;;
-    R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*)
-       if [ -d /usr/nec ]; then
-               echo mips-nec-sysv${UNAME_RELEASE}
-       else
-               echo mips-unknown-sysv${UNAME_RELEASE}
-       fi
-        exit 0 ;;
-    BeBox:BeOS:*:*)    # BeOS running on hardware made by Be, PPC only.
-       echo powerpc-be-beos
-       exit 0 ;;
-    BeMac:BeOS:*:*)    # BeOS running on Mac or Mac clone, PPC only.
-       echo powerpc-apple-beos
-       exit 0 ;;
-    BePC:BeOS:*:*)     # BeOS running on Intel PC compatible.
-       echo i586-pc-beos
-       exit 0 ;;
-    SX-4:SUPER-UX:*:*)
-       echo sx4-nec-superux${UNAME_RELEASE}
-       exit 0 ;;
-    SX-5:SUPER-UX:*:*)
-       echo sx5-nec-superux${UNAME_RELEASE}
-       exit 0 ;;
-    Power*:Rhapsody:*:*)
-       echo powerpc-apple-rhapsody${UNAME_RELEASE}
-       exit 0 ;;
-    *:Rhapsody:*:*)
-       echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE}
-       exit 0 ;;
-    *:Darwin:*:*)
-       echo `uname -p`-apple-darwin${UNAME_RELEASE}
-       exit 0 ;;
-    *:procnto*:*:* | *:QNX:[0123456789]*:*)
-       if test "${UNAME_MACHINE}" = "x86pc"; then
-               UNAME_MACHINE=pc
-       fi
-       echo `uname -p`-${UNAME_MACHINE}-nto-qnx
-       exit 0 ;;
-    *:QNX:*:4*)
-       echo i386-pc-qnx
-       exit 0 ;;
-    NSR-[KW]:NONSTOP_KERNEL:*:*)
-       echo nsr-tandem-nsk${UNAME_RELEASE}
-       exit 0 ;;
-    *:NonStop-UX:*:*)
-       echo mips-compaq-nonstopux
-       exit 0 ;;
-    BS2000:POSIX*:*:*)
-       echo bs2000-siemens-sysv
-       exit 0 ;;
-    DS/*:UNIX_System_V:*:*)
-       echo ${UNAME_MACHINE}-${UNAME_SYSTEM}-${UNAME_RELEASE}
-       exit 0 ;;
-    *:Plan9:*:*)
-       # "uname -m" is not consistent, so use $cputype instead. 386
-       # is converted to i386 for consistency with other x86
-       # operating systems.
-       if test "$cputype" = "386"; then
-           UNAME_MACHINE=i386
-       else
-           UNAME_MACHINE="$cputype"
-       fi
-       echo ${UNAME_MACHINE}-unknown-plan9
-       exit 0 ;;
-    i*86:OS/2:*:*)
-       # If we were able to find `uname', then EMX Unix compatibility
-       # is probably installed.
-       echo ${UNAME_MACHINE}-pc-os2-emx
-       exit 0 ;;
-    *:TOPS-10:*:*)
-       echo pdp10-unknown-tops10
-       exit 0 ;;
-    *:TENEX:*:*)
-       echo pdp10-unknown-tenex
-       exit 0 ;;
-    KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*)
-       echo pdp10-dec-tops20
-       exit 0 ;;
-    XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*)
-       echo pdp10-xkl-tops20
-       exit 0 ;;
-    *:TOPS-20:*:*)
-       echo pdp10-unknown-tops20
-       exit 0 ;;
-    *:ITS:*:*)
-       echo pdp10-unknown-its
-       exit 0 ;;
-    i*86:XTS-300:*:STOP)
-       echo ${UNAME_MACHINE}-unknown-stop
-       exit 0 ;;
-    i*86:atheos:*:*)
-       echo ${UNAME_MACHINE}-unknown-atheos
-       exit 0 ;;
-esac
-
-#echo '(No uname command or uname output not recognized.)' 1>&2
-#echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2
-
-eval $set_cc_for_build
-cat >$dummy.c <<EOF
-#ifdef _SEQUENT_
-# include <sys/types.h>
-# include <sys/utsname.h>
-#endif
-main ()
-{
-#if defined (sony)
-#if defined (MIPSEB)
-  /* BFD wants "bsd" instead of "newsos".  Perhaps BFD should be changed,
-     I don't know....  */
-  printf ("mips-sony-bsd\n"); exit (0);
-#else
-#include <sys/param.h>
-  printf ("m68k-sony-newsos%s\n",
-#ifdef NEWSOS4
-          "4"
-#else
-         ""
-#endif
-         ); exit (0);
-#endif
-#endif
-
-#if defined (__arm) && defined (__acorn) && defined (__unix)
-  printf ("arm-acorn-riscix"); exit (0);
-#endif
-
-#if defined (hp300) && !defined (hpux)
-  printf ("m68k-hp-bsd\n"); exit (0);
-#endif
-
-#if defined (NeXT)
-#if !defined (__ARCHITECTURE__)
-#define __ARCHITECTURE__ "m68k"
-#endif
-  int version;
-  version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`;
-  if (version < 4)
-    printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version);
-  else
-    printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version);
-  exit (0);
-#endif
-
-#if defined (MULTIMAX) || defined (n16)
-#if defined (UMAXV)
-  printf ("ns32k-encore-sysv\n"); exit (0);
-#else
-#if defined (CMU)
-  printf ("ns32k-encore-mach\n"); exit (0);
-#else
-  printf ("ns32k-encore-bsd\n"); exit (0);
-#endif
-#endif
-#endif
-
-#if defined (__386BSD__)
-  printf ("i386-pc-bsd\n"); exit (0);
-#endif
-
-#if defined (sequent)
-#if defined (i386)
-  printf ("i386-sequent-dynix\n"); exit (0);
-#endif
-#if defined (ns32000)
-  printf ("ns32k-sequent-dynix\n"); exit (0);
-#endif
-#endif
-
-#if defined (_SEQUENT_)
-    struct utsname un;
-
-    uname(&un);
-
-    if (strncmp(un.version, "V2", 2) == 0) {
-       printf ("i386-sequent-ptx2\n"); exit (0);
-    }
-    if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */
-       printf ("i386-sequent-ptx1\n"); exit (0);
-    }
-    printf ("i386-sequent-ptx\n"); exit (0);
-
-#endif
-
-#if defined (vax)
-# if !defined (ultrix)
-#  include <sys/param.h>
-#  if defined (BSD)
-#   if BSD == 43
-      printf ("vax-dec-bsd4.3\n"); exit (0);
-#   else
-#    if BSD == 199006
-      printf ("vax-dec-bsd4.3reno\n"); exit (0);
-#    else
-      printf ("vax-dec-bsd\n"); exit (0);
-#    endif
-#   endif
-#  else
-    printf ("vax-dec-bsd\n"); exit (0);
-#  endif
-# else
-    printf ("vax-dec-ultrix\n"); exit (0);
-# endif
-#endif
-
-#if defined (alliant) && defined (i860)
-  printf ("i860-alliant-bsd\n"); exit (0);
-#endif
-
-  exit (1);
-}
-EOF
-
-$CC_FOR_BUILD $dummy.c -o $dummy 2>/dev/null && ./$dummy && rm -f $dummy.c $dummy && exit 0
-rm -f $dummy.c $dummy
-
-# Apollos put the system type in the environment.
-
-test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit 0; }
-
-# Convex versions that predate uname can use getsysinfo(1)
-
-if [ -x /usr/convex/getsysinfo ]
-then
-    case `getsysinfo -f cpu_type` in
-    c1*)
-       echo c1-convex-bsd
-       exit 0 ;;
-    c2*)
-       if getsysinfo -f scalar_acc
-       then echo c32-convex-bsd
-       else echo c2-convex-bsd
-       fi
-       exit 0 ;;
-    c34*)
-       echo c34-convex-bsd
-       exit 0 ;;
-    c38*)
-       echo c38-convex-bsd
-       exit 0 ;;
-    c4*)
-       echo c4-convex-bsd
-       exit 0 ;;
-    esac
-fi
-
-cat >&2 <<EOF
-$0: unable to guess system type
-
-This script, last modified $timestamp, has failed to recognize
-the operating system you are using. It is advised that you
-download the most up to date version of the config scripts from
-
-    ftp://ftp.gnu.org/pub/gnu/config/
-
-If the version you run ($0) is already up to date, please
-send the following data and any information you think might be
-pertinent to <config-patches@gnu.org> in order to provide the needed
-information to handle your system.
-
-config.guess timestamp = $timestamp
-
-uname -m = `(uname -m) 2>/dev/null || echo unknown`
-uname -r = `(uname -r) 2>/dev/null || echo unknown`
-uname -s = `(uname -s) 2>/dev/null || echo unknown`
-uname -v = `(uname -v) 2>/dev/null || echo unknown`
-
-/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null`
-/bin/uname -X     = `(/bin/uname -X) 2>/dev/null`
-
-hostinfo               = `(hostinfo) 2>/dev/null`
-/bin/universe          = `(/bin/universe) 2>/dev/null`
-/usr/bin/arch -k       = `(/usr/bin/arch -k) 2>/dev/null`
-/bin/arch              = `(/bin/arch) 2>/dev/null`
-/usr/bin/oslevel       = `(/usr/bin/oslevel) 2>/dev/null`
-/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null`
-
-UNAME_MACHINE = ${UNAME_MACHINE}
-UNAME_RELEASE = ${UNAME_RELEASE}
-UNAME_SYSTEM  = ${UNAME_SYSTEM}
-UNAME_VERSION = ${UNAME_VERSION}
-EOF
-
-exit 1
-
-# Local variables:
-# eval: (add-hook 'write-file-hooks 'time-stamp)
-# time-stamp-start: "timestamp='"
-# time-stamp-format: "%:y-%02m-%02d"
-# time-stamp-end: "'"
-# End:

diff --git a/helm/minidom/config.sub b/helm/minidom/config.sub
deleted file mode 100644 (file)
index 2479469..0000000
--- a/helm/minidom/config.sub
+++ /dev/null
@@ -1,1417 +0,0 @@
-#! /bin/sh
-# Configuration validation subroutine script.
-#   Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-#   Free Software Foundation, Inc.
-
-timestamp='2001-11-08'
-
-# This file is (in principle) common to ALL GNU software.
-# The presence of a machine in this file suggests that SOME GNU software
-# can handle that machine.  It does not imply ALL GNU software can.
-#
-# This file is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330,
-# Boston, MA 02111-1307, USA.
-
-# As a special exception to the GNU General Public License, if you
-# distribute this file as part of a program that contains a
-# configuration script generated by Autoconf, you may include it under
-# the same distribution terms that you use for the rest of that program.
-
-# Please send patches to <config-patches@gnu.org>.  Submit a context
-# diff and a properly formatted ChangeLog entry.
-#
-# Configuration subroutine to validate and canonicalize a configuration type.
-# Supply the specified configuration type as an argument.
-# If it is invalid, we print an error message on stderr and exit with code 1.
-# Otherwise, we print the canonical config type on stdout and succeed.
-
-# This file is supposed to be the same for all GNU packages
-# and recognize all the CPU types, system types and aliases
-# that are meaningful with *any* GNU software.
-# Each package is responsible for reporting which valid configurations
-# it does not support.  The user should be able to distinguish
-# a failure to support a valid configuration from a meaningless
-# configuration.
-
-# The goal of this file is to map all the various variations of a given
-# machine specification into a single specification in the form:
-#      CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM
-# or in some cases, the newer four-part form:
-#      CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM
-# It is wrong to echo any other type of specification.
-
-me=`echo "$0" | sed -e 's,.*/,,'`
-
-usage="\
-Usage: $0 [OPTION] CPU-MFR-OPSYS
-       $0 [OPTION] ALIAS
-
-Canonicalize a configuration name.
-
-Operation modes:
-  -h, --help         print this help, then exit
-  -t, --time-stamp   print date of last modification, then exit
-  -v, --version      print version number, then exit
-
-Report bugs and patches to <config-patches@gnu.org>."
-
-version="\
-GNU config.sub ($timestamp)
-
-Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-Free Software Foundation, Inc.
-
-This is free software; see the source for copying conditions.  There is NO
-warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
-
-help="
-Try \`$me --help' for more information."
-
-# Parse command line
-while test $# -gt 0 ; do
-  case $1 in
-    --time-stamp | --time* | -t )
-       echo "$timestamp" ; exit 0 ;;
-    --version | -v )
-       echo "$version" ; exit 0 ;;
-    --help | --h* | -h )
-       echo "$usage"; exit 0 ;;
-    -- )     # Stop option processing
-       shift; break ;;
-    - )        # Use stdin as input.
-       break ;;
-    -* )
-       echo "$me: invalid option $1$help"
-       exit 1 ;;
-
-    *local*)
-       # First pass through any local machine types.
-       echo $1
-       exit 0;;
-
-    * )
-       break ;;
-  esac
-done
-
-case $# in
- 0) echo "$me: missing argument$help" >&2
-    exit 1;;
- 1) ;;
- *) echo "$me: too many arguments$help" >&2
-    exit 1;;
-esac
-
-# Separate what the user gave into CPU-COMPANY and OS or KERNEL-OS (if any).
-# Here we must recognize all the valid KERNEL-OS combinations.
-maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'`
-case $maybe_os in
-  nto-qnx* | linux-gnu* | storm-chaos* | os2-emx* | windows32-*)
-    os=-$maybe_os
-    basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'`
-    ;;
-  *)
-    basic_machine=`echo $1 | sed 's/-[^-]*$//'`
-    if [ $basic_machine != $1 ]
-    then os=`echo $1 | sed 's/.*-/-/'`
-    else os=; fi
-    ;;
-esac
-
-### Let's recognize common machines as not being operating systems so
-### that things like config.sub decstation-3100 work.  We also
-### recognize some manufacturers as not being operating systems, so we
-### can provide default operating systems below.
-case $os in
-       -sun*os*)
-               # Prevent following clause from handling this invalid input.
-               ;;
-       -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \
-       -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \
-       -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \
-       -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\
-       -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \
-       -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp | \
-       -apple | -axis)
-               os=
-               basic_machine=$1
-               ;;
-       -sim | -cisco | -oki | -wec | -winbond)
-               os=
-               basic_machine=$1
-               ;;
-       -scout)
-               ;;
-       -wrs)
-               os=-vxworks
-               basic_machine=$1
-               ;;
-       -chorusos*)
-               os=-chorusos
-               basic_machine=$1
-               ;;
-       -chorusrdb)
-               os=-chorusrdb
-               basic_machine=$1
-               ;;
-       -hiux*)
-               os=-hiuxwe2
-               ;;
-       -sco5)
-               os=-sco3.2v5
-               basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
-               ;;
-       -sco4)
-               os=-sco3.2v4
-               basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
-               ;;
-       -sco3.2.[4-9]*)
-               os=`echo $os | sed -e 's/sco3.2./sco3.2v/'`
-               basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
-               ;;
-       -sco3.2v[4-9]*)
-               # Don't forget version if it is 3.2v4 or newer.
-               basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
-               ;;
-       -sco*)
-               os=-sco3.2v2
-               basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
-               ;;
-       -udk*)
-               basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
-               ;;
-       -isc)
-               os=-isc2.2
-               basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
-               ;;
-       -clix*)
-               basic_machine=clipper-intergraph
-               ;;
-       -isc*)
-               basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'`
-               ;;
-       -lynx*)
-               os=-lynxos
-               ;;
-       -ptx*)
-               basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'`
-               ;;
-       -windowsnt*)
-               os=`echo $os | sed -e 's/windowsnt/winnt/'`
-               ;;
-       -psos*)
-               os=-psos
-               ;;
-       -mint | -mint[0-9]*)
-               basic_machine=m68k-atari
-               os=-mint
-               ;;
-esac
-
-# Decode aliases for certain CPU-COMPANY combinations.
-case $basic_machine in
-       # Recognize the basic CPU types without company name.
-       # Some are omitted here because they have special meanings below.
-       1750a | 580 \
-       | a29k \
-       | alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \
-       | arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] | avr \
-       | c4x | clipper \
-       | d10v | d30v | dsp16xx \
-       | fr30 \
-       | h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \
-       | i370 | i860 | i960 | ia64 \
-       | m32r | m68000 | m68k | m88k | mcore \
-       | mips16 | mips64 | mips64el | mips64orion | mips64orionel \
-       | mips64vr4100 | mips64vr4100el | mips64vr4300 \
-       | mips64vr4300el | mips64vr5000 | mips64vr5000el \
-       | mipsbe | mipseb | mipsel | mipsle | mipstx39 | mipstx39el \
-       | mipsisa32 \
-       | mn10200 | mn10300 \
-       | ns16k | ns32k \
-       | openrisc \
-       | pdp10 | pdp11 | pj | pjl \
-       | powerpc | powerpc64 | powerpc64le | powerpcle | ppcbe \
-       | pyramid \
-       | sh | sh[34] | sh[34]eb | shbe | shle \
-       | sparc | sparc64 | sparclet | sparclite | sparcv9 | sparcv9b \
-       | strongarm \
-       | tahoe | thumb | tic80 | tron \
-       | v850 \
-       | we32k \
-       | x86 | xscale | xstormy16 \
-       | z8k)
-               basic_machine=$basic_machine-unknown
-               ;;
-       m6811 | m68hc11 | m6812 | m68hc12)
-               # Motorola 68HC11/12.
-               basic_machine=$basic_machine-unknown
-               os=-none
-               ;;
-       m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k)
-               ;;
-
-       # We use `pc' rather than `unknown'
-       # because (1) that's what they normally are, and
-       # (2) the word "unknown" tends to confuse beginning users.
-       i*86 | x86_64)
-         basic_machine=$basic_machine-pc
-         ;;
-       # Object if more than one company name word.
-       *-*-*)
-               echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2
-               exit 1
-               ;;
-       # Recognize the basic CPU types with company name.
-       580-* \
-       | a29k-* \
-       | alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \
-       | alphapca5[67]-* | arc-* \
-       | arm-*  | armbe-* | armle-* | armv*-* \
-       | avr-* \
-       | bs2000-* \
-       | c[123]* | c30-* | [cjt]90-* | c54x-* \
-       | clipper-* | cray2-* | cydra-* \
-       | d10v-* | d30v-* \
-       | elxsi-* \
-       | f30[01]-* | f700-* | fr30-* | fx80-* \
-       | h8300-* | h8500-* \
-       | hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \
-       | i*86-* | i860-* | i960-* | ia64-* \
-       | m32r-* \
-       | m68000-* | m680[01234]0-* | m68360-* | m683?2-* | m68k-* \
-       | m88110-* | m88k-* | mcore-* \
-       | mips-* | mips16-* | mips64-* | mips64el-* | mips64orion-* \
-       | mips64orionel-* | mips64vr4100-* | mips64vr4100el-* \
-       | mips64vr4300-* | mips64vr4300el-* | mipsbe-* | mipseb-* \
-       | mipsle-* | mipsel-* | mipstx39-* | mipstx39el-* \
-       | none-* | np1-* | ns16k-* | ns32k-* \
-       | orion-* \
-       | pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \
-       | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* | ppcbe-* \
-       | pyramid-* \
-       | romp-* | rs6000-* \
-       | sh-* | sh[34]-* | sh[34]eb-* | shbe-* | shle-* \
-       | sparc-* | sparc64-* | sparc86x-* | sparclite-* \
-       | sparcv9-* | sparcv9b-* | strongarm-* | sv1-* \
-       | t3e-* | tahoe-* | thumb-* | tic30-* | tic54x-* | tic80-* | tron-* \
-       | v850-* | vax-* \
-       | we32k-* \
-       | x86-* | x86_64-* | xmp-* | xps100-* | xscale-* | xstormy16-* \
-       | ymp-* \
-       | z8k-*)
-               ;;
-       # Recognize the various machine names and aliases which stand
-       # for a CPU type and a company and sometimes even an OS.
-       386bsd)
-               basic_machine=i386-unknown
-               os=-bsd
-               ;;
-       3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc)
-               basic_machine=m68000-att
-               ;;
-       3b*)
-               basic_machine=we32k-att
-               ;;
-       a29khif)
-               basic_machine=a29k-amd
-               os=-udi
-               ;;
-       adobe68k)
-               basic_machine=m68010-adobe
-               os=-scout
-               ;;
-       alliant | fx80)
-               basic_machine=fx80-alliant
-               ;;
-       altos | altos3068)
-               basic_machine=m68k-altos
-               ;;
-       am29k)
-               basic_machine=a29k-none
-               os=-bsd
-               ;;
-       amdahl)
-               basic_machine=580-amdahl
-               os=-sysv
-               ;;
-       amiga | amiga-*)
-               basic_machine=m68k-unknown
-               ;;
-       amigaos | amigados)
-               basic_machine=m68k-unknown
-               os=-amigaos
-               ;;
-       amigaunix | amix)
-               basic_machine=m68k-unknown
-               os=-sysv4
-               ;;
-       apollo68)
-               basic_machine=m68k-apollo
-               os=-sysv
-               ;;
-       apollo68bsd)
-               basic_machine=m68k-apollo
-               os=-bsd
-               ;;
-       aux)
-               basic_machine=m68k-apple
-               os=-aux
-               ;;
-       balance)
-               basic_machine=ns32k-sequent
-               os=-dynix
-               ;;
-       convex-c1)
-               basic_machine=c1-convex
-               os=-bsd
-               ;;
-       convex-c2)
-               basic_machine=c2-convex
-               os=-bsd
-               ;;
-       convex-c32)
-               basic_machine=c32-convex
-               os=-bsd
-               ;;
-       convex-c34)
-               basic_machine=c34-convex
-               os=-bsd
-               ;;
-       convex-c38)
-               basic_machine=c38-convex
-               os=-bsd
-               ;;
-       cray | ymp)
-               basic_machine=ymp-cray
-               os=-unicos
-               ;;
-       cray2)
-               basic_machine=cray2-cray
-               os=-unicos
-               ;;
-       [cjt]90)
-               basic_machine=${basic_machine}-cray
-               os=-unicos
-               ;;
-       crds | unos)
-               basic_machine=m68k-crds
-               ;;
-       cris | cris-* | etrax*)
-               basic_machine=cris-axis
-               ;;
-       da30 | da30-*)
-               basic_machine=m68k-da30
-               ;;
-       decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn)
-               basic_machine=mips-dec
-               ;;
-       delta | 3300 | motorola-3300 | motorola-delta \
-             | 3300-motorola | delta-motorola)
-               basic_machine=m68k-motorola
-               ;;
-       delta88)
-               basic_machine=m88k-motorola
-               os=-sysv3
-               ;;
-       dpx20 | dpx20-*)
-               basic_machine=rs6000-bull
-               os=-bosx
-               ;;
-       dpx2* | dpx2*-bull)
-               basic_machine=m68k-bull
-               os=-sysv3
-               ;;
-       ebmon29k)
-               basic_machine=a29k-amd
-               os=-ebmon
-               ;;
-       elxsi)
-               basic_machine=elxsi-elxsi
-               os=-bsd
-               ;;
-       encore | umax | mmax)
-               basic_machine=ns32k-encore
-               ;;
-       es1800 | OSE68k | ose68k | ose | OSE)
-               basic_machine=m68k-ericsson
-               os=-ose
-               ;;
-       fx2800)
-               basic_machine=i860-alliant
-               ;;
-       genix)
-               basic_machine=ns32k-ns
-               ;;
-       gmicro)
-               basic_machine=tron-gmicro
-               os=-sysv
-               ;;
-       go32)
-               basic_machine=i386-pc
-               os=-go32
-               ;;
-       h3050r* | hiux*)
-               basic_machine=hppa1.1-hitachi
-               os=-hiuxwe2
-               ;;
-       h8300hms)
-               basic_machine=h8300-hitachi
-               os=-hms
-               ;;
-       h8300xray)
-               basic_machine=h8300-hitachi
-               os=-xray
-               ;;
-       h8500hms)
-               basic_machine=h8500-hitachi
-               os=-hms
-               ;;
-       harris)
-               basic_machine=m88k-harris
-               os=-sysv3
-               ;;
-       hp300-*)
-               basic_machine=m68k-hp
-               ;;
-       hp300bsd)
-               basic_machine=m68k-hp
-               os=-bsd
-               ;;
-       hp300hpux)
-               basic_machine=m68k-hp
-               os=-hpux
-               ;;
-       hp3k9[0-9][0-9] | hp9[0-9][0-9])
-               basic_machine=hppa1.0-hp
-               ;;
-       hp9k2[0-9][0-9] | hp9k31[0-9])
-               basic_machine=m68000-hp
-               ;;
-       hp9k3[2-9][0-9])
-               basic_machine=m68k-hp
-               ;;
-       hp9k6[0-9][0-9] | hp6[0-9][0-9])
-               basic_machine=hppa1.0-hp
-               ;;
-       hp9k7[0-79][0-9] | hp7[0-79][0-9])
-               basic_machine=hppa1.1-hp
-               ;;
-       hp9k78[0-9] | hp78[0-9])
-               # FIXME: really hppa2.0-hp
-               basic_machine=hppa1.1-hp
-               ;;
-       hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893)
-               # FIXME: really hppa2.0-hp
-               basic_machine=hppa1.1-hp
-               ;;
-       hp9k8[0-9][13679] | hp8[0-9][13679])
-               basic_machine=hppa1.1-hp
-               ;;
-       hp9k8[0-9][0-9] | hp8[0-9][0-9])
-               basic_machine=hppa1.0-hp
-               ;;
-       hppa-next)
-               os=-nextstep3
-               ;;
-       hppaosf)
-               basic_machine=hppa1.1-hp
-               os=-osf
-               ;;
-       hppro)
-               basic_machine=hppa1.1-hp
-               os=-proelf
-               ;;
-       i370-ibm* | ibm*)
-               basic_machine=i370-ibm
-               ;;
-# I'm not sure what "Sysv32" means.  Should this be sysv3.2?
-       i*86v32)
-               basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
-               os=-sysv32
-               ;;
-       i*86v4*)
-               basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
-               os=-sysv4
-               ;;
-       i*86v)
-               basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
-               os=-sysv
-               ;;
-       i*86sol2)
-               basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'`
-               os=-solaris2
-               ;;
-       i386mach)
-               basic_machine=i386-mach
-               os=-mach
-               ;;
-       i386-vsta | vsta)
-               basic_machine=i386-unknown
-               os=-vsta
-               ;;
-       iris | iris4d)
-               basic_machine=mips-sgi
-               case $os in
-                   -irix*)
-                       ;;
-                   *)
-                       os=-irix4
-                       ;;
-               esac
-               ;;
-       isi68 | isi)
-               basic_machine=m68k-isi
-               os=-sysv
-               ;;
-       m88k-omron*)
-               basic_machine=m88k-omron
-               ;;
-       magnum | m3230)
-               basic_machine=mips-mips
-               os=-sysv
-               ;;
-       merlin)
-               basic_machine=ns32k-utek
-               os=-sysv
-               ;;
-       mingw32)
-               basic_machine=i386-pc
-               os=-mingw32
-               ;;
-       miniframe)
-               basic_machine=m68000-convergent
-               ;;
-       *mint | -mint[0-9]* | *MiNT | *MiNT[0-9]*)
-               basic_machine=m68k-atari
-               os=-mint
-               ;;
-       mipsel*-linux*)
-               basic_machine=mipsel-unknown
-               os=-linux-gnu
-               ;;
-       mips*-linux*)
-               basic_machine=mips-unknown
-               os=-linux-gnu
-               ;;
-       mips3*-*)
-               basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`
-               ;;
-       mips3*)
-               basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown
-               ;;
-       mmix*)
-               basic_machine=mmix-knuth
-               os=-mmixware
-               ;;
-       monitor)
-               basic_machine=m68k-rom68k
-               os=-coff
-               ;;
-       msdos)
-               basic_machine=i386-pc
-               os=-msdos
-               ;;
-       mvs)
-               basic_machine=i370-ibm
-               os=-mvs
-               ;;
-       ncr3000)
-               basic_machine=i486-ncr
-               os=-sysv4
-               ;;
-       netbsd386)
-               basic_machine=i386-unknown
-               os=-netbsd
-               ;;
-       netwinder)
-               basic_machine=armv4l-rebel
-               os=-linux
-               ;;
-       news | news700 | news800 | news900)
-               basic_machine=m68k-sony
-               os=-newsos
-               ;;
-       news1000)
-               basic_machine=m68030-sony
-               os=-newsos
-               ;;
-       news-3600 | risc-news)
-               basic_machine=mips-sony
-               os=-newsos
-               ;;
-       necv70)
-               basic_machine=v70-nec
-               os=-sysv
-               ;;
-       next | m*-next )
-               basic_machine=m68k-next
-               case $os in
-                   -nextstep* )
-                       ;;
-                   -ns2*)
-                     os=-nextstep2
-                       ;;
-                   *)
-                     os=-nextstep3
-                       ;;
-               esac
-               ;;
-       nh3000)
-               basic_machine=m68k-harris
-               os=-cxux
-               ;;
-       nh[45]000)
-               basic_machine=m88k-harris
-               os=-cxux
-               ;;
-       nindy960)
-               basic_machine=i960-intel
-               os=-nindy
-               ;;
-       mon960)
-               basic_machine=i960-intel
-               os=-mon960
-               ;;
-       nonstopux)
-               basic_machine=mips-compaq
-               os=-nonstopux
-               ;;
-       np1)
-               basic_machine=np1-gould
-               ;;
-       nsr-tandem)
-               basic_machine=nsr-tandem
-               ;;
-       op50n-* | op60c-*)
-               basic_machine=hppa1.1-oki
-               os=-proelf
-               ;;
-       OSE68000 | ose68000)
-               basic_machine=m68000-ericsson
-               os=-ose
-               ;;
-       os68k)
-               basic_machine=m68k-none
-               os=-os68k
-               ;;
-       pa-hitachi)
-               basic_machine=hppa1.1-hitachi
-               os=-hiuxwe2
-               ;;
-       paragon)
-               basic_machine=i860-intel
-               os=-osf
-               ;;
-       pbd)
-               basic_machine=sparc-tti
-               ;;
-       pbb)
-               basic_machine=m68k-tti
-               ;;
-        pc532 | pc532-*)
-               basic_machine=ns32k-pc532
-               ;;
-       pentium | p5 | k5 | k6 | nexgen | viac3)
-               basic_machine=i586-pc
-               ;;
-       pentiumpro | p6 | 6x86 | athlon)
-               basic_machine=i686-pc
-               ;;
-       pentiumii | pentium2)
-               basic_machine=i686-pc
-               ;;
-       pentium-* | p5-* | k5-* | k6-* | nexgen-* | viac3-*)
-               basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'`
-               ;;
-       pentiumpro-* | p6-* | 6x86-* | athlon-*)
-               basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'`
-               ;;
-       pentiumii-* | pentium2-*)
-               basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'`
-               ;;
-       pn)
-               basic_machine=pn-gould
-               ;;
-       power)  basic_machine=power-ibm
-               ;;
-       ppc)    basic_machine=powerpc-unknown
-               ;;
-       ppc-*)  basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'`
-               ;;
-       ppcle | powerpclittle | ppc-le | powerpc-little)
-               basic_machine=powerpcle-unknown
-               ;;
-       ppcle-* | powerpclittle-*)
-               basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'`
-               ;;
-       ppc64)  basic_machine=powerpc64-unknown
-               ;;
-       ppc64-*) basic_machine=powerpc64-`echo $basic_machine | sed 's/^[^-]*-//'`
-               ;;
-       ppc64le | powerpc64little | ppc64-le | powerpc64-little)
-               basic_machine=powerpc64le-unknown
-               ;;
-       ppc64le-* | powerpc64little-*)
-               basic_machine=powerpc64le-`echo $basic_machine | sed 's/^[^-]*-//'`
-               ;;
-       ps2)
-               basic_machine=i386-ibm
-               ;;
-       pw32)
-               basic_machine=i586-unknown
-               os=-pw32
-               ;;
-       rom68k)
-               basic_machine=m68k-rom68k
-               os=-coff
-               ;;
-       rm[46]00)
-               basic_machine=mips-siemens
-               ;;
-       rtpc | rtpc-*)
-               basic_machine=romp-ibm
-               ;;
-       s390 | s390-*)
-               basic_machine=s390-ibm
-               ;;
-       s390x | s390x-*)
-               basic_machine=s390x-ibm
-               ;;
-       sa29200)
-               basic_machine=a29k-amd
-               os=-udi
-               ;;
-       sequent)
-               basic_machine=i386-sequent
-               ;;
-       sh)
-               basic_machine=sh-hitachi
-               os=-hms
-               ;;
-       sparclite-wrs | simso-wrs)
-               basic_machine=sparclite-wrs
-               os=-vxworks
-               ;;
-       sps7)
-               basic_machine=m68k-bull
-               os=-sysv2
-               ;;
-       spur)
-               basic_machine=spur-unknown
-               ;;
-       st2000)
-               basic_machine=m68k-tandem
-               ;;
-       stratus)
-               basic_machine=i860-stratus
-               os=-sysv4
-               ;;
-       sun2)
-               basic_machine=m68000-sun
-               ;;
-       sun2os3)
-               basic_machine=m68000-sun
-               os=-sunos3
-               ;;
-       sun2os4)
-               basic_machine=m68000-sun
-               os=-sunos4
-               ;;
-       sun3os3)
-               basic_machine=m68k-sun
-               os=-sunos3
-               ;;
-       sun3os4)
-               basic_machine=m68k-sun
-               os=-sunos4
-               ;;
-       sun4os3)
-               basic_machine=sparc-sun
-               os=-sunos3
-               ;;
-       sun4os4)
-               basic_machine=sparc-sun
-               os=-sunos4
-               ;;
-       sun4sol2)
-               basic_machine=sparc-sun
-               os=-solaris2
-               ;;
-       sun3 | sun3-*)
-               basic_machine=m68k-sun
-               ;;
-       sun4)
-               basic_machine=sparc-sun
-               ;;
-       sun386 | sun386i | roadrunner)
-               basic_machine=i386-sun
-               ;;
-       sv1)
-               basic_machine=sv1-cray
-               os=-unicos
-               ;;
-       symmetry)
-               basic_machine=i386-sequent
-               os=-dynix
-               ;;
-       t3e)
-               basic_machine=t3e-cray
-               os=-unicos
-               ;;
-       tic54x | c54x*)
-               basic_machine=tic54x-unknown
-               os=-coff
-               ;;
-       tx39)
-               basic_machine=mipstx39-unknown
-               ;;
-       tx39el)
-               basic_machine=mipstx39el-unknown
-               ;;
-       tower | tower-32)
-               basic_machine=m68k-ncr
-               ;;
-       udi29k)
-               basic_machine=a29k-amd
-               os=-udi
-               ;;
-       ultra3)
-               basic_machine=a29k-nyu
-               os=-sym1
-               ;;
-       v810 | necv810)
-               basic_machine=v810-nec
-               os=-none
-               ;;
-       vaxv)
-               basic_machine=vax-dec
-               os=-sysv
-               ;;
-       vms)
-               basic_machine=vax-dec
-               os=-vms
-               ;;
-       vpp*|vx|vx-*)
-               basic_machine=f301-fujitsu
-               ;;
-       vxworks960)
-               basic_machine=i960-wrs
-               os=-vxworks
-               ;;
-       vxworks68)
-               basic_machine=m68k-wrs
-               os=-vxworks
-               ;;
-       vxworks29k)
-               basic_machine=a29k-wrs
-               os=-vxworks
-               ;;
-       w65*)
-               basic_machine=w65-wdc
-               os=-none
-               ;;
-       w89k-*)
-               basic_machine=hppa1.1-winbond
-               os=-proelf
-               ;;
-       windows32)
-               basic_machine=i386-pc
-               os=-windows32-msvcrt
-               ;;
-       xmp)
-               basic_machine=xmp-cray
-               os=-unicos
-               ;;
-        xps | xps100)
-               basic_machine=xps100-honeywell
-               ;;
-       z8k-*-coff)
-               basic_machine=z8k-unknown
-               os=-sim
-               ;;
-       none)
-               basic_machine=none-none
-               os=-none
-               ;;
-
-# Here we handle the default manufacturer of certain CPU types.  It is in
-# some cases the only manufacturer, in others, it is the most popular.
-       w89k)
-               basic_machine=hppa1.1-winbond
-               ;;
-       op50n)
-               basic_machine=hppa1.1-oki
-               ;;
-       op60c)
-               basic_machine=hppa1.1-oki
-               ;;
-       mips)
-               if [ x$os = x-linux-gnu ]; then
-                       basic_machine=mips-unknown
-               else
-                       basic_machine=mips-mips
-               fi
-               ;;
-       romp)
-               basic_machine=romp-ibm
-               ;;
-       rs6000)
-               basic_machine=rs6000-ibm
-               ;;
-       vax)
-               basic_machine=vax-dec
-               ;;
-       pdp10)
-               # there are many clones, so DEC is not a safe bet
-               basic_machine=pdp10-unknown
-               ;;
-       pdp11)
-               basic_machine=pdp11-dec
-               ;;
-       we32k)
-               basic_machine=we32k-att
-               ;;
-       sh3 | sh4 | sh3eb | sh4eb)
-               basic_machine=sh-unknown
-               ;;
-       sparc | sparcv9 | sparcv9b)
-               basic_machine=sparc-sun
-               ;;
-        cydra)
-               basic_machine=cydra-cydrome
-               ;;
-       orion)
-               basic_machine=orion-highlevel
-               ;;
-       orion105)
-               basic_machine=clipper-highlevel
-               ;;
-       mac | mpw | mac-mpw)
-               basic_machine=m68k-apple
-               ;;
-       pmac | pmac-mpw)
-               basic_machine=powerpc-apple
-               ;;
-       c4x*)
-               basic_machine=c4x-none
-               os=-coff
-               ;;
-       *-unknown)
-               # Make sure to match an already-canonicalized machine name.
-               ;;
-       *)
-               echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2
-               exit 1
-               ;;
-esac
-
-# Here we canonicalize certain aliases for manufacturers.
-case $basic_machine in
-       *-digital*)
-               basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'`
-               ;;
-       *-commodore*)
-               basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'`
-               ;;
-       *)
-               ;;
-esac
-
-# Decode manufacturer-specific aliases for certain operating systems.
-
-if [ x"$os" != x"" ]
-then
-case $os in
-        # First match some system type aliases
-        # that might get confused with valid system types.
-       # -solaris* is a basic system type, with this one exception.
-       -solaris1 | -solaris1.*)
-               os=`echo $os | sed -e 's|solaris1|sunos4|'`
-               ;;
-       -solaris)
-               os=-solaris2
-               ;;
-       -svr4*)
-               os=-sysv4
-               ;;
-       -unixware*)
-               os=-sysv4.2uw
-               ;;
-       -gnu/linux*)
-               os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'`
-               ;;
-       # First accept the basic system types.
-       # The portable systems comes first.
-       # Each alternative MUST END IN A *, to match a version number.
-       # -sysv* is not here because it comes later, after sysvr4.
-       -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \
-             | -*vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[34]*\
-             | -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \
-             | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \
-             | -aos* \
-             | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \
-             | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \
-             | -hiux* | -386bsd* | -netbsd* | -openbsd* | -freebsd* | -riscix* \
-             | -lynxos* | -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \
-             | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \
-             | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \
-             | -chorusos* | -chorusrdb* \
-             | -cygwin* | -pe* | -psos* | -moss* | -proelf* | -rtems* \
-             | -mingw32* | -linux-gnu* | -uxpv* | -beos* | -mpeix* | -udk* \
-             | -interix* | -uwin* | -rhapsody* | -darwin* | -opened* \
-             | -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \
-             | -storm-chaos* | -tops10* | -tenex* | -tops20* | -its* \
-             | -os2* | -vos* | -palmos* | -uclinux*)
-       # Remember, each alternative MUST END IN *, to match a version number.
-               ;;
-       -qnx*)
-               case $basic_machine in
-                   x86-* | i*86-*)
-                       ;;
-                   *)
-                       os=-nto$os
-                       ;;
-               esac
-               ;;
-       -nto*)
-               os=-nto-qnx
-               ;;
-       -sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \
-             | -windows* | -osx | -abug | -netware* | -os9* | -beos* \
-             | -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*)
-               ;;
-       -mac*)
-               os=`echo $os | sed -e 's|mac|macos|'`
-               ;;
-       -linux*)
-               os=`echo $os | sed -e 's|linux|linux-gnu|'`
-               ;;
-       -sunos5*)
-               os=`echo $os | sed -e 's|sunos5|solaris2|'`
-               ;;
-       -sunos6*)
-               os=`echo $os | sed -e 's|sunos6|solaris3|'`
-               ;;
-       -opened*)
-               os=-openedition
-               ;;
-       -wince*)
-               os=-wince
-               ;;
-       -osfrose*)
-               os=-osfrose
-               ;;
-       -osf*)
-               os=-osf
-               ;;
-       -utek*)
-               os=-bsd
-               ;;
-       -dynix*)
-               os=-bsd
-               ;;
-       -acis*)
-               os=-aos
-               ;;
-       -386bsd)
-               os=-bsd
-               ;;
-       -ctix* | -uts*)
-               os=-sysv
-               ;;
-       -ns2 )
-               os=-nextstep2
-               ;;
-       -nsk*)
-               os=-nsk
-               ;;
-       # Preserve the version number of sinix5.
-       -sinix5.*)
-               os=`echo $os | sed -e 's|sinix|sysv|'`
-               ;;
-       -sinix*)
-               os=-sysv4
-               ;;
-       -triton*)
-               os=-sysv3
-               ;;
-       -oss*)
-               os=-sysv3
-               ;;
-       -svr4)
-               os=-sysv4
-               ;;
-       -svr3)
-               os=-sysv3
-               ;;
-       -sysvr4)
-               os=-sysv4
-               ;;
-       # This must come after -sysvr4.
-       -sysv*)
-               ;;
-       -ose*)
-               os=-ose
-               ;;
-       -es1800*)
-               os=-ose
-               ;;
-       -xenix)
-               os=-xenix
-               ;;
-        -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*)
-               os=-mint
-               ;;
-       -none)
-               ;;
-       *)
-               # Get rid of the `-' at the beginning of $os.
-               os=`echo $os | sed 's/[^-]*-//'`
-               echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2
-               exit 1
-               ;;
-esac
-else
-
-# Here we handle the default operating systems that come with various machines.
-# The value should be what the vendor currently ships out the door with their
-# machine or put another way, the most popular os provided with the machine.
-
-# Note that if you're going to try to match "-MANUFACTURER" here (say,
-# "-sun"), then you have to tell the case statement up towards the top
-# that MANUFACTURER isn't an operating system.  Otherwise, code above
-# will signal an error saying that MANUFACTURER isn't an operating
-# system, and we'll never get to this point.
-
-case $basic_machine in
-       *-acorn)
-               os=-riscix1.2
-               ;;
-       arm*-rebel)
-               os=-linux
-               ;;
-       arm*-semi)
-               os=-aout
-               ;;
-       pdp10-*)
-               os=-tops20
-               ;;
-        pdp11-*)
-               os=-none
-               ;;
-       *-dec | vax-*)
-               os=-ultrix4.2
-               ;;
-       m68*-apollo)
-               os=-domain
-               ;;
-       i386-sun)
-               os=-sunos4.0.2
-               ;;
-       m68000-sun)
-               os=-sunos3
-               # This also exists in the configure program, but was not the
-               # default.
-               # os=-sunos4
-               ;;
-       m68*-cisco)
-               os=-aout
-               ;;
-       mips*-cisco)
-               os=-elf
-               ;;
-       mips*-*)
-               os=-elf
-               ;;
-       *-tti)  # must be before sparc entry or we get the wrong os.
-               os=-sysv3
-               ;;
-       sparc-* | *-sun)
-               os=-sunos4.1.1
-               ;;
-       *-be)
-               os=-beos
-               ;;
-       *-ibm)
-               os=-aix
-               ;;
-       *-wec)
-               os=-proelf
-               ;;
-       *-winbond)
-               os=-proelf
-               ;;
-       *-oki)
-               os=-proelf
-               ;;
-       *-hp)
-               os=-hpux
-               ;;
-       *-hitachi)
-               os=-hiux
-               ;;
-       i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent)
-               os=-sysv
-               ;;
-       *-cbm)
-               os=-amigaos
-               ;;
-       *-dg)
-               os=-dgux
-               ;;
-       *-dolphin)
-               os=-sysv3
-               ;;
-       m68k-ccur)
-               os=-rtu
-               ;;
-       m88k-omron*)
-               os=-luna
-               ;;
-       *-next )
-               os=-nextstep
-               ;;
-       *-sequent)
-               os=-ptx
-               ;;
-       *-crds)
-               os=-unos
-               ;;
-       *-ns)
-               os=-genix
-               ;;
-       i370-*)
-               os=-mvs
-               ;;
-       *-next)
-               os=-nextstep3
-               ;;
-        *-gould)
-               os=-sysv
-               ;;
-        *-highlevel)
-               os=-bsd
-               ;;
-       *-encore)
-               os=-bsd
-               ;;
-        *-sgi)
-               os=-irix
-               ;;
-        *-siemens)
-               os=-sysv4
-               ;;
-       *-masscomp)
-               os=-rtu
-               ;;
-       f30[01]-fujitsu | f700-fujitsu)
-               os=-uxpv
-               ;;
-       *-rom68k)
-               os=-coff
-               ;;
-       *-*bug)
-               os=-coff
-               ;;
-       *-apple)
-               os=-macos
-               ;;
-       *-atari*)
-               os=-mint
-               ;;
-       *)
-               os=-none
-               ;;
-esac
-fi
-
-# Here we handle the case where we know the os, and the CPU type, but not the
-# manufacturer.  We pick the logical manufacturer.
-vendor=unknown
-case $basic_machine in
-       *-unknown)
-               case $os in
-                       -riscix*)
-                               vendor=acorn
-                               ;;
-                       -sunos*)
-                               vendor=sun
-                               ;;
-                       -aix*)
-                               vendor=ibm
-                               ;;
-                       -beos*)
-                               vendor=be
-                               ;;
-                       -hpux*)
-                               vendor=hp
-                               ;;
-                       -mpeix*)
-                               vendor=hp
-                               ;;
-                       -hiux*)
-                               vendor=hitachi
-                               ;;
-                       -unos*)
-                               vendor=crds
-                               ;;
-                       -dgux*)
-                               vendor=dg
-                               ;;
-                       -luna*)
-                               vendor=omron
-                               ;;
-                       -genix*)
-                               vendor=ns
-                               ;;
-                       -mvs* | -opened*)
-                               vendor=ibm
-                               ;;
-                       -ptx*)
-                               vendor=sequent
-                               ;;
-                       -vxsim* | -vxworks*)
-                               vendor=wrs
-                               ;;
-                       -aux*)
-                               vendor=apple
-                               ;;
-                       -hms*)
-                               vendor=hitachi
-                               ;;
-                       -mpw* | -macos*)
-                               vendor=apple
-                               ;;
-                       -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*)
-                               vendor=atari
-                               ;;
-                       -vos*)
-                               vendor=stratus
-                               ;;
-               esac
-               basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"`
-               ;;
-esac
-
-echo $basic_machine$os
-exit 0
-
-# Local variables:
-# eval: (add-hook 'write-file-hooks 'time-stamp)
-# time-stamp-start: "timestamp='"
-# time-stamp-format: "%:y-%02m-%02d"
-# time-stamp-end: "'"
-# End:

diff --git a/helm/minidom/configure.in b/helm/minidom/configure.in
deleted file mode 100644 (file)
index 7dfa2b6..0000000
--- a/helm/minidom/configure.in
+++ /dev/null
@@ -1,80 +0,0 @@
-dnl Process this file with autoconf to produce a configure script.
-AC_INIT(minidom.c)
-
-MINIDOM_MAJOR_VERSION=0
-MINIDOM_MINOR_VERSION=1
-MINIDOM_MICRO_VERSION=3
-MINIDOM_VERSION=$MINIDOM_MAJOR_VERSION.$MINIDOM_MINOR_VERSION.$MINIDOM_MICRO_VERSION
-MINIDOM_VERSION_INFO=`expr $MINIDOM_MAJOR_VERSION + $MINIDOM_MINOR_VERSION`:$MINIDOM_MICRO_VERSION:$MINIDOM_MINOR_VERSION
-
-AC_SUBST(MINIDOM_VERSION)
-AC_SUBST(MINIDOM_VERSION_INFO)
-
-AC_ARG_WITH(
-       libxml2,
-       [  --with-libxml2[=ARG]    compile with libxml 2.x library [default=auto]],
-       libxml2=$withval,
-       libxml2="auto"
-)
-
-AM_INIT_AUTOMAKE(minidom, $MINIDOM_VERSION)
-AM_CONFIG_HEADER(config.h)
-AM_PROG_LIBTOOL
-
-dnl Checks for programs.
-AC_PROG_CC
-AC_LANG_C
-AC_PROG_RANLIB
-
-dnl Checks for libraries.
-AC_CHECK_LIB(glib, g_malloc,
-       [
-               CFLAGS="$CFLAGS `glib-config --cflags`"
-               CXXFLAGS="$CXXFLAGS `glib-config --cflags`"
-               LIBS="$LIBS `glib-config --libs`"
-       ],
-       AC_MSG_ERROR(cound not find glib),
-       `glib-config --libs`
-)
-
-AC_CHECK_PROG(XML_CONFIG, xml2-config, xml2-config)
-AC_CHECK_PROG(XML_CONFIG, xml-config, xml-config, no)
-AC_SUBST(XML_CONFIG)
-
-if test $XML_CONFIG = "no"; then
-       AC_MSG_ERROR(could not find configuration script for libxml)
-fi
-
-if test $XML_CONFIG = xml2-config -a libxml2 = "auto"; then
-       libxml2="yes"
-fi
-
-CFLAGS="$CFLAGS `$XML_CONFIG --cflags`"
-CXXFLAGS="$CXXFLAGS `$XML_CONFIG --cflags`"
-LIBS="$LIBS `$XML_CONFIG --libs`"
-
-dnl if the user gave no explicit libxml2 option, try to guess its value
-if test $libxml2 = "auto"; then
-       AC_MSG_CHECKING(for libxml version 2)
-       AC_TRY_COMPILE(
-               [#include <parser.h>],
-               [
-                       xmlEntity e;
-                       e.etype = e.etype;
-               ],
-               [
-                       AC_DEFINE(HAVE_LIBXML2)
-                       AC_MSG_RESULT(maybe)
-               ],
-               AC_MSG_RESULT(no)
-       )
-elif test $libxml2 = "yes"; then
-       AC_DEFINE(HAVE_LIBXML2)
-fi
-
-dnl Checks for header files.
-
-AC_OUTPUT([
- Makefile
- minidom.spec
-])

diff --git a/helm/minidom/debian/README.helm b/helm/minidom/debian/README.helm
deleted file mode 100644 (file)
index d899a74..0000000
--- a/helm/minidom/debian/README.helm
+++ /dev/null
@@ -1,7 +0,0 @@
-To obtain a *clean* debianized source tree from which invoke debuild,
-dpkg-buildpackage or so, run debian/debianize.helm from the root directory of
-this module.
-
-Next change to that dir and have fun with debian packaging!
-
--- Zack <zack@debian.org>

diff --git a/helm/minidom/debian/autopippe.helm b/helm/minidom/debian/autopippe.helm
deleted file mode 100644 (file)
index 9c5e5e7..0000000
--- a/helm/minidom/debian/autopippe.helm
+++ /dev/null
@@ -1,5 +0,0 @@
-aclocal
-autoheader
-automake -a
-automake -a
-autoconf

diff --git a/helm/minidom/debian/changelog b/helm/minidom/debian/changelog
deleted file mode 100644 (file)
index 55032b9..0000000
--- a/helm/minidom/debian/changelog
+++ /dev/null
@@ -1,40 +0,0 @@
-minidom (0.1.3-1) unstable; urgency=low
-
-  * New upstream release
-
- -- Stefano Zacchiroli <zack@debian.org>  Mon, 12 Nov 2001 17:26:18 +0100
-
-minidom (0.1.2-2) unstable; urgency=low
-
-  * upgraded config.sub and config.guess in order to support hppa and other
-    architectures (closes: Bug#103063, Bug#103351)
-
- -- Stefano Zacchiroli <zack@debian.org>  Wed,  4 Jul 2001 19:04:24 +0200
-
-minidom (0.1.2-1) unstable; urgency=low
-
-  * New upstream release
-
- -- Stefano Zacchiroli <zack@debian.org>  Tue, 22 May 2001 14:18:19 +0200
-
-minidom (0.1.0-3) unstable; urgency=low
-
-  * Changed section of libminidom0 and libminidom-dev
-
- -- Stefano Zacchiroli (Zack) <zack@debian.org>  Mon, 19 Feb 2001 21:25:26 +0100
-
-minidom (0.1.0-2) unstable; urgency=low
-
-  * Removed zero sized files and unnecessary extra license info
-
- -- Stefano Zacchiroli (Zack) <zack@debian.org>  Thu,  1 Feb 2001 18:37:12 +0100
-
-minidom (0.1.0-1) unstable; urgency=low
-
-  * Initial Release.
-
- -- Stefano Zacchiroli (Zack) <zack@debian.org>  Sun, 21 Jan 2001 18:24:26 +0100
-
-Local variables:
-mode: debian-changelog
-End:

diff --git a/helm/minidom/debian/control b/helm/minidom/debian/control
deleted file mode 100644 (file)
index 1914d0e..0000000
--- a/helm/minidom/debian/control
+++ /dev/null
@@ -1,23 +0,0 @@
-Source: minidom
-Section: devel
-Priority: optional
-Maintainer: Stefano Zacchiroli (Zack) <zack@debian.org>
-Build-Depends: debhelper (>> 2.0.0), libxml2-dev, libglib1.2-dev
-Standards-Version: 3.2.1
-
-Package: libminidom0
-Section: libs
-Architecture: any
-Depends: ${shlibs:Depends}
-Description: A minimal implementation of the Document Object Model
- Minidom is a minimal implementation of the Document Object Model.
- This package include the shared library.
-
-Package: libminidom-dev
-Section: devel
-Architecture: any
-Depends: libminidom0 (= ${Source-Version}), libc6-dev
-Description: A minimal implementation of the Document Object Model
- Minidom is a minimal implementation of the Document Object Model.
- This package includes the development and runtime support files.
-

diff --git a/helm/minidom/debian/copyright b/helm/minidom/debian/copyright
deleted file mode 100644 (file)
index 5acf272..0000000
--- a/helm/minidom/debian/copyright
+++ /dev/null
@@ -1,28 +0,0 @@
-This package was debianized by Stefano Zacchiroli <zacchiro@cs.unibo.it> on
-Sun, 21 Jan 2001 18:24:26 +0100.
-
-It was packed from source obtained via cvs, with this CVSROOT:
-       :pserver:anonymous@phd.cs.unibo.it:/home/lpadovan/PHELM/
-
-Upstream Author(s): Luca Padovani <luca.padovani@cs.unibo.it>
-
-Copyright:
- This program is free software; you can redistribute it and/or modify it
- under the terms of the GNU General Public License as published by the Free
- Software Foundation; either version 2 of the License, or (at your option)
- any later version.
- 
- This program is distributed in the hope that it will be useful, but WITHOUT
- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
- FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
- more details.
- 
- You should have received a copy of the GNU General Public License along
- with this program; if not, write to the Free Software Foundation, Inc., 
- 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
-
- On Debian GNU/Linux systems, the complete text of the GNU General
- Public License can be found in `/usr/share/common-licenses/GPL'.
- The GNU Public Licenses in /usr/share/common-licenses were taken from
- ftp.gnu.org and are copyrighted by the Free Software Foundation, Inc.
-

diff --git a/helm/minidom/debian/debianize.helm b/helm/minidom/debian/debianize.helm
deleted file mode 100755 (executable)
index 5bdbe17..0000000
--- a/helm/minidom/debian/debianize.helm
+++ /dev/null
@@ -1,97 +0,0 @@
-#!/bin/sh
-
-# HELM project convenience script
-#
-# call this as "debian/debianize.helm" to convert a checked out CVS
-# module to a debianize source tree ready to be called against debuild
-# or dpkg-buildpackage
-#
-# Stefano "Zack" Zacchiroli <zack@cs.unibo.it>
-# Sun Nov 25 16:50:10 CET 2001
-
-NAME="MINIDOM" # package name in configure.in's opinion
-CONFIGURE_IN="configure.in"   # configure.in
-
-# TAR="tar"
-# TARFLAGS="-cz"   # tar flags used when creating source package
-
-if [ -z $NAME ]; then
-   echo "Please edit me and configure the 'NAME' parameter."
-   exit 1
-fi
-
-   # parse version number from configure.in
-echo "Retrieving version number from $CONFIGURE_IN ..."
-VERSION=""
-for v in MAJOR MINOR MICRO; do
-   T=`grep "$NAME\_$v\_VERSION\=" $CONFIGURE_IN`
-   T=`echo $T | sed -e 's/.*=//'`
-   if [ -z $VERSION ]; then
-      VERSION=$T
-   else
-      VERSION="$VERSION.$T"
-   fi
-done
-echo "Version number is: $VERSION"
-
-   # create a new working dir named with the "name-version" schema
-echo "Creating debianized source tree ..."
-OLDDIR=`basename \`pwd\``
-NEWDIR="$OLDDIR-$VERSION"
-cd ..
-if [ -d $NEWDIR ]; then
-   echo "'../$NEWDIR' already exists, please remove it before continue"
-   exit 1
-fi
-cp -r $OLDDIR $NEWDIR
-cd $NEWDIR
-echo "Debianized source tree starts at `pwd`"
-
-   # autopippe: autoconf, automake, aclocal, ...
-echo "Executing auto-* tools ..."
-source debian/autopippe.helm
-echo "auto-* executed!"
-
-   # remove CVS related files, and other garbage
-echo "Removing garbage files ..."
-find . -regex '.*\.cvsignore' -exec rm -f {} \;
-find . -regex '.*CVS.*' -and -type d -exec rm -rf {} \;
-GARBAGES=`egrep -v '^#' debian/garbage.helm`
-for p in $GARBAGES; do
-   find . -name $p -exec rm -f {} \;
-done
-echo "Garbage removed!"
-
-   # fix remote symlinks
-echo "Dereferencing absolute symlinks ..."
-PWD=`pwd`
-for l in `find . -type l -maxdepth 1`; do # loop on symlink in this dir
-   SOURCE=$l
-   TARGET=`readlink $l`
-   if `echo $TARGET | egrep "^/" > /dev/null`; then
-      echo "$SOURCE -> $TARGET"
-      rm -f $SOURCE
-      cp $TARGET $SOURCE
-   fi # if symlink does not begin with "/" then it is relative
-done
-echo "Dereferencing done!"
-
-   # upgrade debian changelog
-echo "Upgrading debian changelog version to $VERSION ..."
-dch --newversion $VERSION
-echo "Debian changelog upgraded!"
-
-#    # build debian native source package
-# echo -n "Building debian (native) source package: "
-# DEBVERSION=`dpkg-parsechangelog -ldebian/changelog | egrep '^Version: ' | sed -e 's/Version: //'`
-# DEBNAME=`dpkg-parsechangelog -ldebian/changelog | egrep '^Source: ' | sed -e 's/Source: //'`
-# SOURCEPKGFILE="$DEBNAME""_""$DEBVERSION.tar.gz"
-# echo "../$SOURCEPKGFILE"
-# cd ..
-# $TAR $TARFLAGS -f $SOURCEPKGFILE $NEWDIR
-
-echo
-echo "Debianization is over."
-echo "Please change to ../$NEWDIR in order to build the debian package."
-
-

diff --git a/helm/minidom/debian/docs b/helm/minidom/debian/docs
deleted file mode 100644 (file)
index 7d96d4e..0000000
--- a/helm/minidom/debian/docs
+++ /dev/null
@@ -1,2 +0,0 @@
-AUTHORS
-TODO

diff --git a/helm/minidom/debian/garbage.helm b/helm/minidom/debian/garbage.helm
deleted file mode 100644 (file)
index 3542a1b..0000000
--- a/helm/minidom/debian/garbage.helm
+++ /dev/null
@@ -1,2 +0,0 @@
-# find patterns; files that match will be removed from debian package.
-*.helm

diff --git a/helm/minidom/debian/libminidom-dev.files b/helm/minidom/debian/libminidom-dev.files
deleted file mode 100644 (file)
index afb977f..0000000
--- a/helm/minidom/debian/libminidom-dev.files
+++ /dev/null
@@ -1,5 +0,0 @@
-usr/lib/*.so
-usr/lib/*.a
-usr/lib/*.la
-usr/include/
-usr/bin/

diff --git a/helm/minidom/debian/libminidom-dev.undocumented b/helm/minidom/debian/libminidom-dev.undocumented
deleted file mode 100644 (file)
index 8d08f8e..0000000
--- a/helm/minidom/debian/libminidom-dev.undocumented
+++ /dev/null
@@ -1 +0,0 @@
-minidom-config.1

diff --git a/helm/minidom/debian/libminidom0.files b/helm/minidom/debian/libminidom0.files
deleted file mode 100644 (file)
index 093956b..0000000
--- a/helm/minidom/debian/libminidom0.files
+++ /dev/null
@@ -1 +0,0 @@
-usr/lib/*.so.*

diff --git a/helm/minidom/debian/libminidom0.postinst b/helm/minidom/debian/libminidom0.postinst
deleted file mode 100644 (file)
index 1b6c8ba..0000000
--- a/helm/minidom/debian/libminidom0.postinst
+++ /dev/null
@@ -1,47 +0,0 @@
-#! /bin/sh
-# postinst script for libminidom0
-#
-# see: dh_installdeb(1)
-
-set -e
-
-# summary of how this script can be called:
-#        * <postinst> `configure' <most-recently-configured-version>
-#        * <old-postinst> `abort-upgrade' <new version>
-#        * <conflictor's-postinst> `abort-remove' `in-favour' <package>
-#          <new-version>
-#        * <deconfigured's-postinst> `abort-deconfigure' `in-favour'
-#          <failed-install-package> <version> `removing'
-#          <conflicting-package> <version>
-# for details, see /usr/share/doc/packaging-manual/
-#
-# quoting from the policy:
-#     Any necessary prompting should almost always be confined to the
-#     post-installation script, and should be protected with a conditional
-#     so that unnecessary prompting doesn't happen if a package's
-#     installation fails and the `postinst' is called with `abort-upgrade',
-#     `abort-remove' or `abort-deconfigure'.
-
-case "$1" in
-    configure)
-       ldconfig
-    ;;
-
-    abort-upgrade|abort-remove|abort-deconfigure)
-
-    ;;
-
-    *)
-        echo "postinst called with unknown argument \`$1'" >&2
-        exit 0
-    ;;
-esac
-
-# dh_installdeb will replace this with shell code automatically
-# generated by other debhelper scripts.
-
-#DEBHELPER#
-
-exit 0
-
-

diff --git a/helm/minidom/debian/rules b/helm/minidom/debian/rules
deleted file mode 100755 (executable)
index 8ff12e4..0000000
--- a/helm/minidom/debian/rules
+++ /dev/null
@@ -1,101 +0,0 @@
-#!/usr/bin/make -f
-# Sample debian/rules that uses debhelper.
-# GNU copyright 1997 to 1999 by Joey Hess.
-
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
-
-# This is the debhelper compatability version to use.
-export DH_COMPAT=2
-
-# shared library versions, option 1
-#version=0.1.0
-#major=0
-# option 2, assuming the library is created as src/.libs/libfoo.so.2.0.5 or so
-version=`ls src/.libs/lib*.so.* | \
-       awk '{if (match($$0,/[0-9]+\.[0-9]+\.[0-9]+$$/)) print substr($$0,RSTART)}'`
-major=`ls src/.libs/lib*.so.* | \
-       awk '{if (match($$0,/\.so\.[0-9]+$$/)) print substr($$0,RSTART+4)}'`
-
-configure: configure-stamp
-configure-stamp:
-       dh_testdir
-       # Add here commands to configure the package.
-       ./configure --prefix=/usr --mandir=\$${prefix}/share/man --infodir=\$${prefix}/share/info
-
-       touch configure-stamp
-
-build: configure-stamp build-stamp
-build-stamp:
-       dh_testdir
-
-       # Add here commands to compile the package.
-       $(MAKE)
-
-       touch build-stamp
-
-clean:
-       dh_testdir
-       dh_testroot
-       rm -f build-stamp configure-stamp
-
-       # Add here commands to clean up after the build process.
-       -$(MAKE) distclean
-
-       dh_clean
-
-install: build
-       dh_testdir
-       dh_testroot
-       dh_clean -k
-       dh_installdirs
-
-       # Add here commands to install the package into debian/minidom.
-       $(MAKE) install prefix=$(CURDIR)/debian/tmp/usr
-
-
-# Build architecture-independent files here.
-binary-indep: build install
-# We have nothing to do by default.
-
-# Build architecture-dependent files here.
-binary-arch: build install
-       dh_testdir
-       dh_testroot
-       #
-       # build libminidom${major} package by moving files from minidom-dev
-       #
-#      dh_movefiles -plibminidom$(major)             \
-#      usr/lib/libminidom.so.$(major)        \
-#      usr/lib/libminidom.so.$(version)
-#      dh_movefiles get file contents from debian/*.files
-       dh_movefiles
-
-#      dh_installdebconf       
-       dh_installdocs
-       dh_installexamples
-       dh_installmenu
-#      dh_installemacsen
-#      dh_installpam
-#      dh_installinit
-       dh_installcron
-       dh_installmanpages
-       dh_installinfo
-       dh_undocumented
-       dh_installchangelogs ChangeLog
-       dh_link
-       dh_strip
-       dh_compress
-       dh_fixperms
-       # You may want to make some executables suid here.
-#      dh_suidregister
-       dh_makeshlibs
-       dh_installdeb
-#      dh_perl
-       dh_shlibdeps
-       dh_gencontrol
-       dh_md5sums
-       dh_builddeb
-
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary install configure

diff --git a/helm/minidom/minidom-config.in b/helm/minidom/minidom-config.in
deleted file mode 100644 (file)
index 5ed3029..0000000
--- a/helm/minidom/minidom-config.in
+++ /dev/null
@@ -1,48 +0,0 @@
-
-usage()
-{
-       cat <<EOF
-Usage: minidom-config [OPTIONS]
-Options:
-       [--version]
-       [--libs]
-       [--cflags]
-EOF
-       exit $1
-}
-
-if test $# -eq 0; then
-       usage 1 1>&2
-fi
-
-while test $# -gt 0; do
-  case "$1" in
-  -*=*) optarg=`echo "$1" | sed 's/[-_a-zA-Z0-9]*=//'` ;;
-  *) optarg= ;;
-  esac
-
-  case $1 in
-    --version)
-      echo $VERSION
-      ;;
-    --cflags)
-      echo_cflags=yes
-      ;;
-    --libs)
-      echo_libs=yes
-      ;;
-    *)
-      usage 1 1>&2
-      ;;
-  esac
-  shift
-done
-
-if test "$echo_cflags" = "yes"; then
-    echo `$XML_CONFIG --cflags` -I$pkgincludedir
-fi
-
-if test "$echo_libs" = "yes"; then
-    echo `$XML_CONFIG --libs` -L$libdir -lminidom
-fi      
-

diff --git a/helm/minidom/minidom.c b/helm/minidom/minidom.c
deleted file mode 100644 (file)
index 54f56a2..0000000
--- a/helm/minidom/minidom.c
+++ /dev/null
@@ -1,393 +0,0 @@
-/*
- * Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- * 
- * This file is part of miniDOM, a minimal implementation of the
- * Document Object Model
- * 
- * miniDOM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * miniDOM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- * 
- * You should have received a copy of the GNU General Public License
- * along with miniDOM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- * 
- * For details, send a mail to <luca.padovani@cs.unibo.it>
- */
-
-#include <config.h>
-#include <glib.h>
-#include <parser.h>
-#include <parserInternals.h>
-
-#include "minidom.h"
-
-gboolean
-mdom_string_eq(mDOMConstStringRef s1, mDOMConstStringRef s2)
-{
-  g_return_val_if_fail(s1 != NULL, FALSE);
-  g_return_val_if_fail(s2 != NULL, FALSE);
-
-  return strcmp(C_CONST_STRING(s1), C_CONST_STRING(s2)) ? FALSE : TRUE;
-}
-
-mDOMStringRef
-mdom_string_dup(mDOMConstStringRef s)
-{
-  g_return_val_if_fail(s != NULL, NULL);
-  return xmlStrdup(s);
-}
-
-void
-mdom_string_free(mDOMStringRef s)
-{
-  g_free(s);
-}
-
-mDOMDocRef
-mdom_load(const char* file_name, gboolean subst, mDOMEntityResolver entity_resolver)
-{
-  xmlParserCtxtPtr ctxt;
-  mDOMDocRef doc;
-
-  g_return_val_if_fail(file_name != NULL, NULL);
-
-  xmlSubstituteEntitiesDefault(subst);
-  
-  ctxt = xmlCreateFileParserCtxt(file_name);
-  if (ctxt == NULL) return NULL;
-  g_assert(ctxt->sax != NULL);
-  ctxt->sax->getEntity = entity_resolver;
-  
-  xmlParseDocument(ctxt);
-  
-  doc = ctxt->myDoc;
-  xmlFreeParserCtxt(ctxt);
-
-  return doc;
-}
-
-void
-mdom_unload(mDOMDocRef doc)
-{
-  g_return_if_fail(doc != NULL);
-  xmlFreeDoc(doc);
-}
-
-mDOMDocRef
-mdom_doc_new(mDOMConstStringRef version)
-{
-  mDOMDocRef doc;
-  
-  g_return_val_if_fail(version != NULL, NULL);
-  doc = xmlNewDoc(version);
-  g_return_val_if_fail(doc != NULL, NULL);
-
-  doc->extSubset = xmlNewDtd(doc, DOM_CONST_STRING("Entities"), NULL, NULL);
-
-  return doc;
-}
-
-void
-mdom_doc_free(mDOMDocRef doc)
-{
-  g_return_if_fail(doc != NULL);
-  xmlFreeDoc(doc);
-}
-
-mDOMEntityRef
-mdom_doc_add_entity(mDOMDocRef doc, mDOMConstStringRef name, mDOMConstStringRef content)
-{
-  g_return_val_if_fail(doc != NULL, NULL);
-  g_return_val_if_fail(name != NULL, NULL);
-  g_return_val_if_fail(content != NULL, NULL);
-#ifdef HAVE_LIBXML2
-  return xmlAddDtdEntity(doc, name, XML_INTERNAL_GENERAL_ENTITY, NULL, NULL, content);
-#else
-  xmlAddDtdEntity(doc, name, XML_INTERNAL_GENERAL_ENTITY, NULL, NULL, content);
-  return NULL;
-#endif
-}
-
-mDOMEntityRef
-mdom_doc_get_entity(mDOMDocRef doc, mDOMConstStringRef name)
-{
-  g_return_val_if_fail(doc != NULL, NULL);
-  g_return_val_if_fail(name != NULL, NULL);
-  return xmlGetDtdEntity(doc, name);
-}
-
-mDOMEntityRef
-mdom_get_predefined_entity(mDOMConstStringRef name)
-{
-  g_return_val_if_fail(name != NULL, NULL);
-  return xmlGetPredefinedEntity(name);
-}
-
-mDOMConstStringRef
-mdom_entity_get_content(mDOMEntityRef entity)
-{
-  g_return_val_if_fail(entity != NULL, NULL);
-  return entity->content;
-}
-
-mDOMNodeRef
-mdom_doc_get_root_node(mDOMDocRef doc)
-{
-  g_return_val_if_fail(doc != NULL, NULL);
-  return xmlDocGetRootElement(doc);
-}
-
-void
-mdom_node_set_user_data(mDOMNodeRef node, gpointer user_data)
-{
-  g_return_if_fail(node != NULL);
-#ifndef XML_WITHOUT_CORBA
-  node->_private = user_data;
-#else
-  g_assert_not_reached();
-#endif
-}
-
-gpointer
-mdom_node_get_user_data(mDOMNodeRef node)
-{
-  g_return_val_if_fail(node != NULL, NULL);
-#ifndef XML_WITHOUT_CORBA
-  return node->_private;
-#else
-  g_assert_not_reached();
-#endif
-}
-
-gboolean
-mdom_node_is_text(mDOMNodeRef node)
-{
-  g_return_val_if_fail(node != NULL, FALSE);
-  return xmlNodeIsText(node) ? TRUE : FALSE;
-}
-
-gboolean
-mdom_node_is_element(mDOMNodeRef node)
-{
-  g_return_val_if_fail(node != NULL, FALSE);
-  return node->type == XML_ELEMENT_NODE;
-}
-
-gboolean
-mdom_node_is_blank(mDOMNodeRef node)
-{
-  g_return_val_if_fail(node != NULL, FALSE);
-#ifdef HAVE_LIBXML2
-  return xmlIsBlankNode(node) ? TRUE : FALSE;  
-#else
-  return FALSE;
-#endif
-}
-
-gboolean
-mdom_node_is_entity_ref(mDOMNodeRef node)
-{
-  g_return_val_if_fail(node != NULL, FALSE);
-  return node->type == XML_ENTITY_REF_NODE;
-}
-
-guint 
-mdom_node_get_type(mDOMNodeRef node)
-{
-  g_return_val_if_fail(node != NULL, 0);
-  return node->type;
-}
-
-mDOMConstStringRef
-mdom_node_get_name(mDOMNodeRef node)
-{
-  g_return_val_if_fail(node != NULL, NULL);
-  return node->name;
-}
-
-mDOMConstStringRef
-mdom_node_get_ns_uri(mDOMNodeRef node)
-{
-  g_return_val_if_fail(node != NULL, NULL);
-  if (node->ns == NULL) return NULL;
-  return node->ns->href;
-}
-
-mDOMStringRef
-mdom_node_get_attribute(mDOMNodeRef node, mDOMConstStringRef name)
-{
-  g_return_val_if_fail(node != NULL, NULL);
-  g_return_val_if_fail(name != NULL, NULL);
-  return xmlGetProp(node, name);
-}
-
-mDOMStringRef
-mdom_node_get_attribute_ns(mDOMNodeRef node, mDOMConstStringRef name, mDOMConstStringRef uri)
-{
-  g_return_val_if_fail(node != NULL, NULL);
-  g_return_val_if_fail(uri != NULL, NULL);
-  g_return_val_if_fail(name != NULL, NULL);
-  g_return_val_if_fail(mdom_node_is_element(node), NULL);
-  return xmlGetNsProp(node, name, uri);
-}
-
-gboolean
-mdom_node_has_attribute(mDOMNodeRef node, mDOMConstStringRef name)
-{
-#ifndef HAVE_LIBXML2
-  mDOMStringRef s = NULL;
-#endif /* HAVE_LIBXML2 */
-  g_return_val_if_fail(node != NULL, FALSE);
-  g_return_val_if_fail(name != NULL, FALSE);
-#ifdef HAVE_LIBXML2
-  return (xmlHasProp(node, name) != NULL) ? TRUE : FALSE;
-#else
-  s = xmlGetProp(node, name);
-  if (s != NULL) {
-    mdom_string_free(s);
-    return TRUE;
-  }
-  return FALSE;
-#endif /* HAVE_LIBXML2 */
-}
-
-gboolean
-mdom_node_has_attribute_ns(mDOMNodeRef node, mDOMConstStringRef name, mDOMConstStringRef uri)
-{
-  g_return_val_if_fail(node != NULL, FALSE);
-  g_return_val_if_fail(name != NULL, FALSE);
-  g_return_val_if_fail(uri != NULL, FALSE);
-#ifdef HAVE_LIBXML2
-  return (xmlHasNsProp(node, name, uri) != NULL) ? TRUE : FALSE;
-#else
-  return FALSE;
-#endif /* HAVE_LIBXML2 */
-}
-
-mDOMStringRef
-mdom_node_get_content(mDOMNodeRef node)
-{
-  g_return_val_if_fail(node != NULL, NULL);
-  return xmlNodeGetContent(node);
-}
-
-mDOMNodeRef
-mdom_node_get_parent(mDOMNodeRef node)
-{
-  g_return_val_if_fail(node != NULL, NULL);
-  return node->parent;
-}
-
-mDOMNodeRef
-mdom_node_get_prev_sibling(mDOMNodeRef node)
-{
-  g_return_val_if_fail(node != NULL, NULL);
-  return node->prev;
-}
-
-mDOMNodeRef
-mdom_node_get_next_sibling(mDOMNodeRef node)
-{
-  g_return_val_if_fail(node != NULL, NULL);
-  return node->next;
-}
-
-mDOMNodeRef
-mdom_node_get_first_child(mDOMNodeRef node)
-{
-  g_return_val_if_fail(node != NULL, NULL);
-#ifdef HAVE_LIBXML2
-  return node->children;
-#else
-  return node->childs;
-#endif
-}
-
-mDOMAttrRef
-mdom_node_get_first_attribute(mDOMNodeRef node)
-{
-  g_return_val_if_fail(node != NULL, NULL);
-  return node->properties;
-}
-
-gboolean
-mdom_node_is_first(mDOMNodeRef node)
-{
-  g_return_val_if_fail(node != NULL, FALSE);
-  return node->prev == NULL;
-}
-
-gboolean
-mdom_node_is_last(mDOMNodeRef node)
-{
-  g_return_val_if_fail(node != NULL, FALSE);
-  return node->next == NULL;
-}
-
-mDOMConstStringRef
-mdom_attr_get_name(mDOMAttrRef attr)
-{
-  g_return_val_if_fail(attr != NULL, NULL);
-  return attr->name;
-}
-
-mDOMConstStringRef
-mdom_attr_get_ns_uri(mDOMAttrRef attr)
-{
-  g_return_val_if_fail(attr != NULL, NULL);
-  if (attr->ns == NULL) return NULL;
-  return attr->ns->href;
-}
-
-mDOMStringRef
-mdom_attr_get_value(mDOMAttrRef attr)
-{
-#ifdef HAVE_LIBXML2
-  g_return_val_if_fail(attr != NULL, NULL);
-  return xmlNodeListGetString(attr->doc, attr->children, 1);
-#else
-  mDOMNodeRef child;
-  g_return_val_if_fail(attr != NULL, NULL);
-
-  child = attr->val;
-  if (child == NULL) return NULL;
-  else return xmlNodeListGetString(child->doc, attr->val, 1);
-#endif
-}
-
-mDOMAttrRef
-mdom_attr_get_prev_sibling(mDOMAttrRef attr)
-{
-#ifdef HAVE_LIBXML2
-  g_return_val_if_fail(attr != NULL, NULL);
-  return attr->prev;
-#else
-  /* in libxml 1.x there is no prev link in attributes */
-  return NULL;
-#endif
-}
-
-mDOMAttrRef
-mdom_attr_get_next_sibling(mDOMAttrRef attr)
-{
-  g_return_val_if_fail(attr != NULL, NULL);
-  return attr->next;
-}
-
-mDOMNodeRef
-mdom_attr_get_parent(mDOMAttrRef attr)
-{
-  g_return_val_if_fail(attr != NULL, NULL);
-#ifdef HAVE_LIBXML2
-  return attr->parent;
-#else
-  return attr->node;
-#endif
-}

diff --git a/helm/minidom/minidom.h b/helm/minidom/minidom.h
deleted file mode 100644 (file)
index 976d954..0000000
--- a/helm/minidom/minidom.h
+++ /dev/null
@@ -1,105 +0,0 @@
-/*
- * Copyright (C) 2000, Luca Padovani <luca.padovani@cs.unibo.it>.
- * 
- * This file is part of miniDOM, a minimal implementation of the
- * Document Object Model
- * 
- * miniDOM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * miniDOM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- * 
- * You should have received a copy of the GNU General Public License
- * along with miniDOM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
- * 
- * For details, send a mail to <luca.padovani@cs.unibo.it> 
- */
-
-#ifndef minidom_h
-#define minidom_h
-
-#include <glib.h>
-#include <parser.h>
-
-#ifdef __cplusplus
-extern "C" {
-#endif /* __cplusplus */
-
-  typedef xmlChar*     mDOMStringRef;
-  typedef const xmlChar* mDOMConstStringRef;
-  typedef xmlDocPtr    mDOMDocRef;
-  typedef xmlNodePtr   mDOMNodeRef;
-  typedef xmlAttrPtr   mDOMAttrRef;
-  typedef xmlEntityPtr mDOMEntityRef;
-  typedef xmlNsPtr     mDOMNsRef;
-
-  typedef xmlEntityPtr (*mDOMEntityResolver)(void*, mDOMConstStringRef);
-
-#define C_STRING(s)         ((char*) (s))
-#define C_CONST_STRING(s)   ((const char*) (s))
-#define DOM_STRING(s)       ((mDOMStringRef) (s))
-#define DOM_CONST_STRING(s) ((mDOMConstStringRef) (s))
-
-  mDOMDocRef    mdom_load(const char*, gboolean, mDOMEntityResolver);
-  void          mdom_unload(mDOMDocRef);
-
-  gboolean      mdom_string_eq(mDOMConstStringRef, mDOMConstStringRef);
-  void          mdom_string_free(mDOMStringRef);
-  mDOMStringRef mdom_string_dup(mDOMConstStringRef);
-
-  mDOMDocRef    mdom_doc_new(mDOMConstStringRef);
-  void          mdom_doc_free(mDOMDocRef);
-  mDOMNodeRef   mdom_doc_get_root_node(mDOMDocRef);
-  mDOMEntityRef mdom_doc_add_entity(mDOMDocRef, mDOMConstStringRef, mDOMConstStringRef);
-  mDOMEntityRef mdom_doc_get_entity(mDOMDocRef, mDOMConstStringRef);
-  mDOMEntityRef mdom_get_predefined_entity(mDOMConstStringRef);
-  mDOMConstStringRef mdom_entity_get_content(mDOMEntityRef);
-
-#if 0
-  mDOMNsRef     mdom_doc_search_ns(mDOMDocRef, mDOMNodeRef, mDOMConstStringRef);
-  mDOMNsRef     mdom_doc_search_ns_by_uri(mDOMDocRef, mDOMNodeRef, mDOMConstStringRef);
-  void          mdom_ns_free(mDOMNsRef);
-  mDOMNsRef     mdom_node_ns_new(mDOMNodeRef, mDOMConstStringRef, mDOMConstStringRef);
-#endif
-
-  void          mdom_node_set_user_data(mDOMNodeRef, gpointer);
-  gpointer      mdom_node_get_user_data(mDOMNodeRef);
-  gboolean      mdom_node_is_text(mDOMNodeRef);
-  gboolean      mdom_node_is_element(mDOMNodeRef);
-  gboolean      mdom_node_is_entity_ref(mDOMNodeRef);
-  gboolean      mdom_node_is_blank(mDOMNodeRef);
-  guint         mdom_node_get_type(mDOMNodeRef);
-  mDOMConstStringRef mdom_node_get_name(mDOMNodeRef);
-  mDOMConstStringRef mdom_node_get_ns_uri(mDOMNodeRef);
-  mDOMStringRef mdom_node_get_attribute(mDOMNodeRef, mDOMConstStringRef);
-  mDOMStringRef mdom_node_get_attribute_ns(mDOMNodeRef, mDOMConstStringRef, mDOMConstStringRef);
-  gboolean      mdom_node_has_attribute(mDOMNodeRef, mDOMConstStringRef);
-  gboolean      mdom_node_has_attribute_ns(mDOMNodeRef, mDOMConstStringRef, mDOMConstStringRef);
-  mDOMStringRef mdom_node_get_content(mDOMNodeRef);
-  mDOMNodeRef   mdom_node_get_parent(mDOMNodeRef);
-  mDOMNodeRef   mdom_node_get_prev_sibling(mDOMNodeRef);
-  mDOMNodeRef   mdom_node_get_next_sibling(mDOMNodeRef);
-  mDOMNodeRef   mdom_node_get_first_child(mDOMNodeRef);
-  mDOMAttrRef   mdom_node_get_first_attribute(mDOMNodeRef);
-  gboolean      mdom_node_is_first(mDOMNodeRef);
-  gboolean      mdom_node_is_last(mDOMNodeRef);
-  
-  mDOMConstStringRef mdom_attr_get_name(mDOMAttrRef);
-  mDOMConstStringRef mdom_attr_get_ns_uri(mDOMAttrRef);
-  mDOMStringRef mdom_attr_get_value(mDOMAttrRef);
-  mDOMAttrRef   mdom_attr_get_prev_sibling(mDOMAttrRef);
-  mDOMAttrRef   mdom_attr_get_next_sibling(mDOMAttrRef);
-  mDOMNodeRef   mdom_attr_get_parent(mDOMAttrRef);
-  
-#ifdef __cplusplus
-}
-#endif /* __cplusplus */
-
-#endif /* minidom_h */
-

diff --git a/helm/minidom/minidom.spec.in b/helm/minidom/minidom.spec.in
deleted file mode 100644 (file)
index 6c44be1..0000000
--- a/helm/minidom/minidom.spec.in
+++ /dev/null
@@ -1,31 +0,0 @@
-Summary: A minimal implementation of the DOM based on libxml2
-Name: minidom
-Version: @VERSION@
-Release: 1
-Copyright: GPL
-Group: Development/Libraries
-Source: www.cs.unibo.it:/~lpadovan/mml-widget/minidom-@VERSION@.tar.gz
-%description
-miniDOM is a minimal implementation of the Document Object
-Model.
-
-%prep
-%setup
-
-%build
-./configure
-make
-
-%install
-make install
-
-%files
-%doc AUTHORS BUGS COPYING ChangeLog HISTORY INSTALL LICENSE NEWS README TODO 
-
-/usr/local/bin/minidom-config
-/usr/local/lib/libminidom.so
-/usr/local/lib/libminidom.so.0
-/usr/local/lib/libminidom.so.@VERSION@
-/usr/local/lib/libminidom.a
-/usr/local/lib/libminidom.la
-/usr/local/include/minidom/

diff --git a/helm/minidom/stamp-h.in b/helm/minidom/stamp-h.in
deleted file mode 100644 (file)
index 9788f70..0000000
--- a/helm/minidom/stamp-h.in
+++ /dev/null
@@ -1 +0,0 @@
-timestamp

diff --git a/helm/ocaml/.cvsignore b/helm/ocaml/.cvsignore
deleted file mode 100644 (file)
index 2e6c28c..0000000
--- a/helm/ocaml/.cvsignore
+++ /dev/null
@@ -1,16 +0,0 @@
-META.helm-cic
-META.helm-getter
-META.helm-cic_annotations
-META.helm-pxp
-META.helm-cic_annotations_cache
-META.helm-urimanager
-META.helm-cic_cache
-META.helm-xml
-META.helm-cic_proof_checking
-META.helm-cic_textual_parser
-Makefile
-Makefile.common
-configure
-config.log
-config.cache
-config.status

diff --git a/helm/ocaml/META.helm-cic.src b/helm/ocaml/META.helm-cic.src
deleted file mode 100644 (file)
index ee898d8..0000000
--- a/helm/ocaml/META.helm-cic.src
+++ /dev/null
@@ -1,5 +0,0 @@
-requires="helm-urimanager helm-pxp"
-version="0.0.1"
-archive(byte)="cic.cma"
-archive(native)="cic.cmxa"
-linkopts=""

diff --git a/helm/ocaml/META.helm-cic_annotations.src b/helm/ocaml/META.helm-cic_annotations.src
deleted file mode 100644 (file)
index 829efba..0000000
--- a/helm/ocaml/META.helm-cic_annotations.src
+++ /dev/null
@@ -1,5 +0,0 @@
-requires="helm-cic helm-xml"
-version="0.0.1"
-archive(byte)="cic_annotations.cma"
-archive(native)="cic_annotations.cmxa"
-linkopts=""

diff --git a/helm/ocaml/META.helm-cic_annotations_cache.src b/helm/ocaml/META.helm-cic_annotations_cache.src
deleted file mode 100644 (file)
index 38f5d1d..0000000
--- a/helm/ocaml/META.helm-cic_annotations_cache.src
+++ /dev/null
@@ -1,5 +0,0 @@
-requires="helm-cic_annotations"
-version="0.0.1"
-archive(byte)="cic_annotations_cache.cma"
-archive(native)="cic_annotations_cache.cmxa"
-linkopts=""

diff --git a/helm/ocaml/META.helm-cic_cache.src b/helm/ocaml/META.helm-cic_cache.src
deleted file mode 100644 (file)
index 28ea57e..0000000
--- a/helm/ocaml/META.helm-cic_cache.src
+++ /dev/null
@@ -1,5 +0,0 @@
-requires="helm-cic"
-version="0.0.1"
-archive(byte)="cic_cache.cma"
-archive(native)="cic_cache.cmxa"
-linkopts=""

diff --git a/helm/ocaml/META.helm-cic_proof_checking.src b/helm/ocaml/META.helm-cic_proof_checking.src
deleted file mode 100644 (file)
index 08b099e..0000000
--- a/helm/ocaml/META.helm-cic_proof_checking.src
+++ /dev/null
@@ -1,7 +0,0 @@
-requires="helm-cic"
-version="0.0.1"
-archive(byte)="cic_proof_checking.cma"
-archive(native)="cic_proof_checking.cmxa"
-archive(byte,miniReduction)="cicSubstitution.cmo cicMiniReduction.cmo"
-archive(native,miniReduction)="cicSubstitution.cmx cicMiniReduction.cmx"
-linkopts=""

diff --git a/helm/ocaml/META.helm-cic_textual_parser.src b/helm/ocaml/META.helm-cic_textual_parser.src
deleted file mode 100644 (file)
index bc4f2fc..0000000
--- a/helm/ocaml/META.helm-cic_textual_parser.src
+++ /dev/null
@@ -1,5 +0,0 @@
-requires="helm-cic"
-version="0.0.1"
-archive(byte)="cic_textual_parser.cma"
-archive(native)="cic_textual_parser.cmxa"
-linkopts=""

diff --git a/helm/ocaml/META.helm-getter.src b/helm/ocaml/META.helm-getter.src
deleted file mode 100644 (file)
index 8ba941f..0000000
--- a/helm/ocaml/META.helm-getter.src
+++ /dev/null
@@ -1,5 +0,0 @@
-requires="helm-urimanager pxp netclient"
-version="0.0.1"
-archive(byte)="getter.cma"
-archive(native)="getter.cmxa"
-linkopts=""

diff --git a/helm/ocaml/META.helm-pxp.src b/helm/ocaml/META.helm-pxp.src
deleted file mode 100644 (file)
index 33210a7..0000000
--- a/helm/ocaml/META.helm-pxp.src
+++ /dev/null
@@ -1,5 +0,0 @@
-requires="helm-getter"
-version="0.0.1"
-archive(byte)="pxp.cma"
-archive(native)="pxp.cmxa"
-linkopts=""

diff --git a/helm/ocaml/META.helm-urimanager.src b/helm/ocaml/META.helm-urimanager.src
deleted file mode 100644 (file)
index ff18746..0000000
--- a/helm/ocaml/META.helm-urimanager.src
+++ /dev/null
@@ -1,5 +0,0 @@
-requires="str"
-version="0.0.1"
-archive(byte)="urimanager.cma"
-archive(native)="urimanager.cmxa"
-linkopts=""

diff --git a/helm/ocaml/META.helm-xml.src b/helm/ocaml/META.helm-xml.src
deleted file mode 100644 (file)
index 1cd68fe..0000000
--- a/helm/ocaml/META.helm-xml.src
+++ /dev/null
@@ -1,5 +0,0 @@
-requires=""
-version="0.0.1"
-archive(byte)="xml.cma"
-archive(native)="xml.cmxa"
-linkopts=""

diff --git a/helm/ocaml/Makefile.common.in b/helm/ocaml/Makefile.common.in
deleted file mode 100644 (file)
index 38c43c6..0000000
--- a/helm/ocaml/Makefile.common.in
+++ /dev/null
@@ -1,70 +0,0 @@
-# This Makefile must be included by another one defining:
-#  $PACKAGE
-#  $REQUIRES
-#  $PREDICATES
-#  $INTERFACE_FILES
-#  $IMPLEMENTATION_FILES
-#  $EXTRA_OBJECTS_TO_INSTALL
-#  $EXTRA_OBJECTS_TO_CLEAN
-# and put in a directory where there is a .depend file.
-
-OCAMLFIND_DEST_DIR = @OCAMLFIND_DEST_DIR@
-
-OCAMLOPTIONS = -package "$(REQUIRES)" -predicates "$(PREDICATES)"
-OCAMLC = ocamlfind ocamlc $(OCAMLOPTIONS)
-OCAMLOPT = ocamlfind ocamlopt $(OCAMLOPTIONS)
-OCAMLDEP = ocamldep
-OCAMLLEX = ocamllex
-OCAMLYACC = ocamlyacc
-
-LIBRARIES = $(shell ocamlfind query -recursive -predicates "byte $(PREDICATES)" -format "%d/%a" $(REQUIRES))
-LIBRARIES_OPT = $(shell ocamlfind query -recursive -predicates "native $(PREDICATES)" -format "%d/%a" $(REQUIRES))
-
-
-ARCHIVE = $(PACKAGE).cma
-ARCHIVE_OPT = $(PACKAGE).cmxa
-OBJECTS_TO_INSTALL = $(ARCHIVE) $(ARCHIVE_OPT) $(ARCHIVE_OPT:%.cmxa=%.a) \
-                     $(INTERFACE_FILES) $(INTERFACE_FILES:%.mli=%.cmi) \
-                     $(EXTRA_OBJECTS_TO_INSTALL)
-DEPEND_FILES = $(INTERFACE_FILES) $(IMPLEMENTATION_FILES)
-
-$(ARCHIVE): $(IMPLEMENTATION_FILES:%.ml=%.cmo) $(LIBRARIES)
-       $(OCAMLC) -a -o $@ $(IMPLEMENTATION_FILES:%.ml=%.cmo)
-
-$(ARCHIVE_OPT): $(IMPLEMENTATION_FILES:%.ml=%.cmx) $(LIBRARIES_OPT)
-       $(OCAMLOPT) -a -o $@ $(IMPLEMENTATION_FILES:%.ml=%.cmx)
-
-all: $(IMPLEMENTATION_FILES:%.ml=%.cmo) $(ARCHIVE)
-opt: $(IMPLEMENTATION_FILES:%.ml=%.cmx) $(ARCHIVE_OPT)
-
-depend: $(DEPEND_FILES)
-       $(OCAMLDEP) $(INTERFACE_FILES) $(IMPLEMENTATION_FILES) > .depend
-
-.SUFFIXES: .ml .mli .cmo .cmi .cmx .mll .mly
-.ml.cmo: $(LIBRARIES)
-       $(OCAMLC) -c $<
-.mli.cmi: $(LIBRARIES)
-       $(OCAMLC) -c $<
-.ml.cmx: $(LIBRARIES_OPT)
-       $(OCAMLOPT) -c $<
-.mly.ml:
-       $(OCAMLYACC) $<
-.mly.mli:
-       $(OCAMLYACC) $<
-.mll.ml:
-       $(OCAMLLEX) $<
-
-clean:
-       rm -f *.cm[ioax] *.cmxa *.o *.a $(EXTRA_OBJECTS_TO_CLEAN)
-
-install:
-       mkdir $(OCAMLFIND_DEST_DIR)/$(PACKAGE)
-       cp $(OBJECTS_TO_INSTALL) $(OCAMLFIND_DEST_DIR)/$(PACKAGE)
-
-uninstall:
-       cd $(OCAMLFIND_DEST_DIR)/$(PACKAGE) && rm -f $(OBJECTS_TO_INSTALL)
-       rmdir $(OCAMLFIND_DEST_DIR)/$(PACKAGE)
-
-.PHONY: all opt depend install uninstall clean
-
-include .depend

diff --git a/helm/ocaml/Makefile.in b/helm/ocaml/Makefile.in
deleted file mode 100644 (file)
index 4cf5bb5..0000000
--- a/helm/ocaml/Makefile.in
+++ /dev/null
@@ -1,39 +0,0 @@
-# Warning: the modules must be in compilation order
-MODULES = xml urimanager getter pxp cic cic_annotations cic_annotations_cache \
-          cic_cache cic_proof_checking cic_textual_parser
-
-OCAMLFIND_DEST_DIR = @OCAMLFIND_DEST_DIR@
-OCAMLFIND_META_DIR = @OCAMLFIND_META_DIR@
-
-METAS = $(MODULES:%=META.helm-%)
-CWD=`pwd`
-
-all: $(METAS) $(MODULES:%=%.all)
-opt: $(METAS) $(MODULES:%=%.opt)
-depend: $(MODULES:%=%.depend)
-install: $(MODULES:%=%.install)
-uninstall: $(MODULES:%=%.uninstall)
-clean: $(MODULES:%=%.clean)
-       rm -f $(METAS)
-
-dist-clean: clean
-       rm -f Makefile Makefile.common configure config.log config.cache config.status
-
-$(MODULES:%=%.all):
-       export OCAMLPATH=$(CWD):$$OCAMLPATH ; cd $(@:%.all=%) && make all
-$(MODULES:%=%.opt):
-       export OCAMLPATH=$(CWD):$$OCAMLPATH ; cd $(@:%.opt=%) && make opt
-$(MODULES:%=%.depend):
-       export OCAMLPATH=$(CWD):$$OCAMLPATH ; cd $(@:%.depend=%) && make depend
-$(MODULES:%=%.install):
-       cd $(@:%.install=%) && make install
-       export TARGET=$(OCAMLFIND_META_DIR)/$(@:%.install=META.helm-%) ; \
-       cp $(@:%.install=META.helm-%.src) $$TARGET && \
-       echo "directory=\"$(OCAMLFIND_DEST_DIR)/$(@:%.install=%)\"" >> $$TARGET
-$(MODULES:%=%.uninstall):
-       cd $(@:%.uninstall=%) && make uninstall
-       rm -f $(OCAMLFIND_META_DIR)/$(@:%.uninstall=META.helm-%)
-$(MODULES:%=%.clean):
-       cd $(@:%.clean=%) && make clean
-META.helm-%: META.helm-%.src
-       cp $< $@ && echo "directory=\"$(CWD)/$(@:META.helm-%=%)\"" >> $@

diff --git a/helm/ocaml/cic/.cvsignore b/helm/ocaml/cic/.cvsignore
deleted file mode 100644 (file)
index 6b3eba3..0000000
--- a/helm/ocaml/cic/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cm[iaox] *.cmxa

diff --git a/helm/ocaml/cic/.depend b/helm/ocaml/cic/.depend
deleted file mode 100644 (file)
index 591cea8..0000000
--- a/helm/ocaml/cic/.depend
+++ /dev/null
@@ -1,12 +0,0 @@
-deannotate.cmi: cic.cmo 
-cicParser3.cmi: cic.cmo 
-cicParser2.cmi: cic.cmo cicParser3.cmi 
-cicParser.cmi: cic.cmo 
-deannotate.cmo: cic.cmo deannotate.cmi 
-deannotate.cmx: cic.cmx deannotate.cmi 
-cicParser3.cmo: cic.cmo cicParser3.cmi 
-cicParser3.cmx: cic.cmx cicParser3.cmi 
-cicParser2.cmo: cic.cmo cicParser3.cmi cicParser2.cmi 
-cicParser2.cmx: cic.cmx cicParser3.cmx cicParser2.cmi 
-cicParser.cmo: cicParser2.cmi cicParser3.cmi deannotate.cmi cicParser.cmi 
-cicParser.cmx: cicParser2.cmx cicParser3.cmx deannotate.cmx cicParser.cmi 

diff --git a/helm/ocaml/cic/Makefile b/helm/ocaml/cic/Makefile
deleted file mode 100644 (file)
index c18667d..0000000
--- a/helm/ocaml/cic/Makefile
+++ /dev/null
@@ -1,10 +0,0 @@
-PACKAGE = cic
-REQUIRES = helm-urimanager helm-pxp
-PREDICATES =
-
-INTERFACE_FILES = deannotate.mli cicParser3.mli cicParser2.mli cicParser.mli
-IMPLEMENTATION_FILES = cic.ml $(INTERFACE_FILES:%.mli=%.ml)
-EXTRA_OBJECTS_TO_INSTALL = cic.ml cic.cmi
-EXTRA_OBJECTS_TO_CLEAN =
-
-include ../Makefile.common

diff --git a/helm/ocaml/cic/cic.ml b/helm/ocaml/cic/cic.ml
deleted file mode 100644 (file)
index 64b7f85..0000000
--- a/helm/ocaml/cic/cic.ml
+++ /dev/null
@@ -1,146 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 29/11/2000                                 *)
-(*                                                                            *)
-(* This module defines the internal representation of the objects (variables, *)
-(* blocks of (co)inductive definitions and constants) and the terms of cic    *)
-(*                                                                            *)
-(******************************************************************************)
-
-(* STUFF TO MANAGE IDENTIFIERS *)
-type id = string  (* the abstract type of the (annotated) node identifiers *)
-type anntarget =
-   Object of annobj
- | Term of annterm
-
-(* INTERNAL REPRESENTATION OF CIC OBJECTS AND TERMS *)
-and sort =
-   Prop
- | Set
- | Type
-and name =
-   Name of string
- | Anonimous
-and term =
-   Rel of int                                       (* DeBrujin index *)
- | Var of UriManager.uri                            (* uri *)
- | Meta of int                                      (* numeric id *)
- | Sort of sort                                     (* sort *)
- | Implicit                                         (* *)
- | Cast of term * term                              (* value, type *)
- | Prod of name * term * term                       (* binder, source, target *)
- | Lambda of name * term * term                     (* binder, source, target *)
- | LetIn of name * term * term                      (* binder, term, target *)
- | Appl of term list                                (* arguments *)
- | Const of UriManager.uri * int                    (* uri, number of cookings*)
- | Abst of UriManager.uri                           (* uri *)
- | MutInd of UriManager.uri * int * int             (* uri, cookingsno, typeno*)
- | MutConstruct of UriManager.uri * int *           (* uri, cookingsno, *)
-    int * int                                       (*  typeno, consno  *)
- (*CSC: serve cookingsno?*)
- | MutCase of UriManager.uri * int *                (* ind. uri, cookingsno, *)
-    int *                                           (*  ind. typeno,         *)
-    term * term *                                   (*  outtype, ind. term   *)
-    term list                                       (*  patterns             *)
- | Fix of int * inductiveFun list                   (* funno, functions *)
- | CoFix of int * coInductiveFun list               (* funno, functions *)
-and obj =
-   Definition of string * term * term *           (* id, value, type,         *)
-    (int * UriManager.uri list) list              (*  parameters              *)
- | Axiom of string * term *
-    (int * UriManager.uri list) list              (* id, type, parameters     *)
- | Variable of string * term option * term        (* name, body, type         *)
- | CurrentProof of string * (int * term) list *   (* name, conjectures,       *)
-    term * term                                   (*  value, type             *)
- | InductiveDefinition of inductiveType list *    (* inductive types,         *)
-    (int * UriManager.uri list) list * int        (*  parameters, n ind. pars *)
-and inductiveType = 
- string * bool * term *                       (* typename, inductive, arity *)
-  constructor list                            (*  constructors              *)
-and constructor =
- string * term * bool list option ref         (* id, type, really recursive *)
-and inductiveFun =
- string * int * term * term                   (* name, ind. index, type, body *)
-and coInductiveFun =
- string * term * term                         (* name, type, body *)
-
-and annterm =
-   ARel of id * int * string                        (* DeBrujin index, binder *)
- | AVar of id * UriManager.uri                      (* uri *)
- | AMeta of id * int                                (* numeric id *)
- | ASort of id * sort                               (* sort *)
- | AImplicit of id                                  (* *)
- | ACast of id * annterm * annterm                  (* value, type *)
- | AProd of id * name * annterm * annterm           (* binder, source, target *)
- | ALambda of id * name * annterm * annterm         (* binder, source, target *)
- | ALetIn of id * name * annterm * annterm          (* binder, term, target *)
- | AAppl of id * annterm list                       (* arguments *)
- | AConst of id * UriManager.uri * int              (* uri, number of cookings*)
- | AAbst of id * UriManager.uri                     (* uri *)
- | AMutInd of id * UriManager.uri * int * int       (* uri, cookingsno, typeno*)
- | AMutConstruct of id * UriManager.uri * int *     (* uri, cookingsno, *)
-    int * int                                       (*  typeno, consno  *)
- (*CSC: serve cookingsno?*)
- | AMutCase of id * UriManager.uri * int *          (* ind. uri, cookingsno  *)
-    int *                                           (*  ind. typeno,         *)
-    annterm * annterm *                             (*  outtype, ind. term   *)
-    annterm list                                    (*  patterns             *)
- | AFix of id * int * anninductiveFun list          (* funno, functions *)
- | ACoFix of id * int * anncoInductiveFun list      (* funno, functions *)
-and annobj =
-   ADefinition of id * string *                     (* id,           *)
-    annterm * annterm *                             (*  value, type, *)
-    (int * UriManager.uri list) list exactness      (*  parameters   *)
- | AAxiom of id * string * annterm *                (* id, type    *)
-    (int * UriManager.uri list) list                (*  parameters *)
- | AVariable of id *
-    string * annterm option * annterm               (* name, body, type *)
- | ACurrentProof of id *
-    string * (int * annterm) list *                 (*  name, conjectures, *)
-    annterm * annterm                               (*  value, type        *)
- | AInductiveDefinition of id *
-    anninductiveType list *                         (* inductive types ,      *)
-    (int * UriManager.uri list) list * int          (*  parameters,n ind. pars*)
-and anninductiveType = 
- string * bool * annterm *                    (* typename, inductive, arity *)
-  annconstructor list                         (*  constructors              *)
-and annconstructor =
- string * annterm * bool list option ref      (* id, type, really recursive *)
-and anninductiveFun =
- string * int * annterm * annterm             (* name, ind. index, type, body *)
-and anncoInductiveFun =
- string * annterm * annterm                   (* name, type, body *)
-and annotation =
- string
-and 'a exactness =
-   Possible of 'a                            (* an approximation to something *)
- | Actual of 'a                              (* something *)
-;;

diff --git a/helm/ocaml/cic/cicParser.ml b/helm/ocaml/cic/cicParser.ml
deleted file mode 100644 (file)
index f0d3e80..0000000
--- a/helm/ocaml/cic/cicParser.ml
+++ /dev/null
@@ -1,92 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This is the main (top level) module of a parser for cic objects from xml   *)
-(* files to the internal representation. It uses the modules cicParser2       *)
-(* (objects level) and cicParser3 (terms level)                               *)
-(*                                                                            *)
-(******************************************************************************)
-
-exception Warnings;;
-
-class warner =
-  object 
-    method warn w =
-      print_endline ("WARNING: " ^ w) ;
-      (raise Warnings : unit)
-  end
-;;
-
-exception EmptyUri;;
-
-(* given an uri u it returns the list of tokens of the base uri of u *)
-(* e.g.: token_of_uri "cic:/a/b/c/d.xml" returns ["a" ; "b" ; "c"]   *)
-let tokens_of_uri uri =
- let uri' = UriManager.string_of_uri uri in
- let rec chop_list =
-  function
-     [] -> raise EmptyUri
-   | he::[fn] -> [he]
-   | he::tl -> he::(chop_list tl)
- in
-  let trimmed_uri = Str.replace_first (Str.regexp "cic:") "" uri' in
-   let list_of_tokens = Str.split (Str.regexp "/") trimmed_uri in
-    chop_list list_of_tokens
-;;
-
-(* given the filename of an xml file of a cic object it returns its internal *)
-(* representation.                                                           *)
-let annobj_of_xml filename uri =
- let module Y = Pxp_yacc in
-  try 
-    let d =
-      (* sets the current base uri to resolve relative URIs *)
-      CicParser3.current_sp := tokens_of_uri uri ;
-      CicParser3.current_uri := uri ;
-      let config = {Y.default_config with Y.warner = new warner} in
-      Y.parse_document_entity config
-(*PXP       (Y.ExtID (Pxp_types.System filename,
-         new Pxp_reader.resolve_as_file ~url_of_id ()))
-*)     (PxpUriResolver.from_file filename)
-       CicParser3.domspec
-    in
-     CicParser2.get_term d#root
-  with
-   e ->
-     print_endline ("Filename: " ^ filename ^ "\nException: ") ;
-     print_endline (Pxp_types.string_of_exn e) ;
-     raise e
-;;
-
-let obj_of_xml filename uri =
- Deannotate.deannotate_obj (annobj_of_xml filename uri)
-;;

diff --git a/helm/ocaml/cic/cicParser.mli b/helm/ocaml/cic/cicParser.mli
deleted file mode 100644 (file)
index 1eb5a04..0000000
--- a/helm/ocaml/cic/cicParser.mli
+++ /dev/null
@@ -1,45 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 22/03/2000                                 *)
-(*                                                                            *)
-(* This is the main (top level) module of a parser for cic objects from xml   *)
-(* files to the internal representation. It uses the modules cicParser2       *)
-(* (objects level) and cicParser3 (terms level)                               *)
-(*                                                                            *)
-(******************************************************************************)
-
-(* given the filename of an xml file of a cic object and it's uri, it returns *)
-(* its internal annotated representation.                                     *)
-val annobj_of_xml : string -> UriManager.uri -> Cic.annobj
-
-(* given the filename of an xml file of a cic object and it's uri, it returns *)
-(* its internal logical representation.                                       *)
-val obj_of_xml : string -> UriManager.uri -> Cic.obj

diff --git a/helm/ocaml/cic/cicParser2.ml b/helm/ocaml/cic/cicParser2.ml
deleted file mode 100644 (file)
index 0dbf9f4..0000000
--- a/helm/ocaml/cic/cicParser2.ml
+++ /dev/null
@@ -1,269 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@@cs.unibo.it>              *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module is the objects level of a parser for cic objects from xml      *)
-(* files to the internal representation. It uses the module cicParser3        *)
-(* cicParser3 (terms level) and it is used only through cicParser2 (top       *)
-(* level).                                                                    *)
-(*                                                                            *)
-(******************************************************************************)
-
-exception IllFormedXml of int;;
-exception NotImplemented;;
-
-(* Utility functions that transform a Pxp attribute into something useful *)
-
-(* mk_absolute_uris "n1: v1 ... vn n2 : u1 ... un ...."      *)
-(* returns [(n1,[absolute_uri_for_v1 ; ... ; absolute_uri_for_vn]) ; (n2,...) *)
-let mk_absolute_uris s =
- let l = (Str.split (Str.regexp ":") s) in
-  let absolute_of_relative n v =
-   let module P3 = CicParser3 in
-    let rec mkburi =
-     function
-        (0,_) -> "/"
-      | (n,he::tl) when n > 0 ->
-         "/" ^ he ^ mkburi (n - 1, tl)
-      | _ -> raise (IllFormedXml 12)
-    in
-     let m = List.length !P3.current_sp - (int_of_string n) in
-      let buri = mkburi (m, !P3.current_sp) in
-       UriManager.uri_of_string ("cic:" ^ buri ^ v ^ ".var")
-  in
-   let rec absolutize =
-    function
-       [] -> []
-     | [no ; vs] ->
-        let vars = (Str.split (Str.regexp " ") vs) in
-         [(int_of_string no, List.map (absolute_of_relative no) vars)]
-     | no::vs::tl -> 
-        let vars = (Str.split (Str.regexp " ") vs) in
-         let rec add_prefix =
-          function
-             [no2] -> ([], no2)
-           | he::tl ->
-              let (pvars, no2) = add_prefix tl in
-               ((absolute_of_relative no he)::pvars, no2)
-           | _ -> raise (IllFormedXml 11)
-         in
-          let (pvars, no2) = add_prefix vars in
-           (int_of_string no, pvars)::(absolutize (no2::tl))
-     | _ -> raise (IllFormedXml 10)
-   in
-    (* last parameter must be applied first *)
-    absolutize l
-;;
-
-let option_uri_list_of_attr a1 a2 =
- let module T = Pxp_types in
-  let parameters =
-   match a1 with
-      T.Value s -> mk_absolute_uris s
-    | _ -> raise (IllFormedXml 0)
-  in
-   match a2 with
-      T.Value "POSSIBLE" -> Cic.Possible parameters
-    | T.Implied_value -> Cic.Actual parameters
-    | _ -> raise (IllFormedXml 0)
-;;
-
-let uri_list_of_attr a =
- let module T = Pxp_types in
-  match a with
-     T.Value s -> mk_absolute_uris s
-   | _ -> raise (IllFormedXml 0)
-;;
-
-let string_of_attr a =
- let module T = Pxp_types in
-  match a with
-     T.Value s -> s
-   | _ -> raise (IllFormedXml 0)
-;;
-
-let int_of_attr a =
- int_of_string (string_of_attr a)
-;;
-
-let bool_of_attr a =
- bool_of_string (string_of_attr a)
-;;
-
-(* Other utility functions *)
-
-let get_content n =
- match n#sub_nodes with
-    [ t ] -> t
-  | _     -> raise (IllFormedXml 1)
-;;
-
-(* Functions that, given the list of sons of a node of the cic dom (objects   *)
-(* level), retrieve the internal representation associated to the node.       *)
-(* Everytime a cic term subtree is found, it is translated to the internal    *)
-(* representation using the method to_cic_term defined in cicParser3.         *)
-(* Each function raise IllFormedXml if something goes wrong, but this should  *)
-(* be impossible due to the presence of the dtd                               *)
-(* The functions should really be obvious looking at their name and the cic   *)
-(* dtd                                                                        *)
-
-(* called when a CurrentProof is found *)
-let get_conjs_value_type l =
- let rec rget (c, v, t) l =
-  let module D = Pxp_document in
-   match l with
-      [] -> (c, v, t)
-    | conj::tl when conj#node_type = D.T_element "Conjecture" ->
-       let no = int_of_attr (conj#attribute "no")
-       and typ = (get_content conj)#extension#to_cic_term in
-        rget ((no, typ)::c, v, t) tl
-    | value::tl when value#node_type = D.T_element "body" ->
-       let v' = (get_content value)#extension#to_cic_term in
-        (match v with
-            None -> rget (c, Some v', t) tl
-          | _    -> raise (IllFormedXml 2)
-        )
-    | typ::tl when typ#node_type = D.T_element "type" ->
-       let t' = (get_content typ)#extension#to_cic_term in
-        (match t with
-            None -> rget (c, v, Some t') tl
-          | _    -> raise (IllFormedXml 3)
-        )
-    | _ -> raise (IllFormedXml 4)
- in
-  match rget ([], None, None) l with
-     (c, Some v, Some t) -> (c, v, t)
-   | _ -> raise (IllFormedXml 5)
-;;
-
-(* used only by get_inductive_types; called one time for each inductive  *)
-(* definitions in a block of inductive definitions                       *)
-let get_names_arity_constructors l =
- let rec rget (a,c) l =
-  let module D = Pxp_document in
-   match l with
-      [] -> (a, c)
-    | arity::tl when arity#node_type = D.T_element "arity" ->
-       let a' = (get_content arity)#extension#to_cic_term in
-        rget (Some a',c) tl
-    | con::tl when con#node_type = D.T_element "Constructor" ->
-       let id = string_of_attr (con#attribute "name")
-       and ty = (get_content con)#extension#to_cic_term in
-         rget (a,(id,ty,ref None)::c) tl
-    | _ -> raise (IllFormedXml 9)
- in
-  match rget (None,[]) l with
-     (Some a, c) -> (a, List.rev c)
-   | _ -> raise (IllFormedXml 8)
-;;
-
-(* called when an InductiveDefinition is found *)
-let rec get_inductive_types =
- function
-    []     -> []
-  | he::tl ->
-     let tyname    = string_of_attr (he#attribute "name")
-     and inductive = bool_of_attr   (he#attribute "inductive")
-     and (arity,cons) =
-      get_names_arity_constructors (he#sub_nodes)
-     in
-      (tyname,inductive,arity,cons)::(get_inductive_types tl) (*CSC 0 a caso *)
-;;
-
-(* This is the main function and also the only one used directly from *)
-(* cicParser. Given the root of the dom tree, it returns the internal *)
-(* representation of the cic object described in the tree             *)
-(* It uses the previous functions and the to_cic_term method defined  *)
-(* in cicParser3 (used for subtrees that encode cic terms)            *)
-let rec get_term n =
- let module D = Pxp_document in
- let module C = Cic in
-  let ntype = n # node_type in
-  match ntype with
-    D.T_element "Definition" ->
-      let id = string_of_attr (n # attribute "name")
-      and params =
-       option_uri_list_of_attr (n#attribute "params") (n#attribute "paramMode")
-      and (value, typ) = 
-       let sons = n#sub_nodes in
-        match sons with
-          [v ; t] when
-            v#node_type = D.T_element "body" &&
-            t#node_type = D.T_element "type" ->
-             let v' = get_content v
-             and t' = get_content t in
-              (v'#extension#to_cic_term, t'#extension#to_cic_term)
-        | _ -> raise (IllFormedXml 6)
-      and xid = string_of_attr (n#attribute "id") in
-       C.ADefinition (xid, id, value, typ, params)
-  | D.T_element "Axiom" ->
-      let id = string_of_attr (n # attribute "name")
-      and params = uri_list_of_attr (n # attribute "params")
-      and typ = 
-       (get_content (get_content n))#extension#to_cic_term
-      and xid = string_of_attr (n#attribute "id") in
-       C.AAxiom (xid, id, typ, params)
-  | D.T_element "CurrentProof" ->
-     let name = string_of_attr (n#attribute "name")
-     and xid = string_of_attr (n#attribute "id") in
-     let sons = n#sub_nodes in
-      let (conjs, value, typ) = get_conjs_value_type sons in
-       C.ACurrentProof (xid, name, conjs, value, typ)
-  | D.T_element "InductiveDefinition" ->
-     let sons = n#sub_nodes
-     and xid = string_of_attr (n#attribute "id") in
-      let inductiveTypes = get_inductive_types sons
-      and params = uri_list_of_attr (n#attribute "params")
-      and nparams = int_of_attr (n#attribute "noParams") in
-       C.AInductiveDefinition (xid, inductiveTypes, params, nparams)
-  | D.T_element "Variable" ->
-     let name = string_of_attr (n#attribute "name")
-     and xid = string_of_attr (n#attribute "id")
-     and (body, typ) = 
-      let sons = n#sub_nodes in
-       match sons with
-          [b ; t] when
-            b#node_type = D.T_element "body" &&
-            t#node_type = D.T_element "type" ->
-             let b' = get_content b
-             and t' = get_content t in
-              (Some (b'#extension#to_cic_term), t'#extension#to_cic_term)
-        | [t] when t#node_type = D.T_element "type" ->
-             let t' = get_content t in
-              (None, t'#extension#to_cic_term)
-        | _ -> raise (IllFormedXml 6)
-     in
-      C.AVariable (xid,name,body,typ)
-  | D.T_element _
-  | D.T_data
-  | _ ->
-     raise (IllFormedXml 7)
-;;

diff --git a/helm/ocaml/cic/cicParser2.mli b/helm/ocaml/cic/cicParser2.mli
deleted file mode 100644 (file)
index be0a000..0000000
--- a/helm/ocaml/cic/cicParser2.mli
+++ /dev/null
@@ -1,57 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module is the objects level of a parser for cic objects from xml      *)
-(* files to the internal representation. It uses the module cicParser3        *)
-(* cicParser3 (terms level) and it is used only through cicParser2 (top       *)
-(* level).                                                                    *)
-(*                                                                            *)
-(******************************************************************************)
-
-exception IllFormedXml of int
-exception NotImplemented
-
-(* This is the main function and also the only one used directly from *)
-(* cicParser. Given the root of the dom tree, it returns the internal *)
-(* representation of the cic object described in the tree             *)
-(* It uses the previous functions and the to_cic_term method defined  *)
-(* in cicParser3 (used for subtrees that encode cic terms)            *)
-val get_term :
- < attribute : string -> Pxp_types.att_value;
-   node_type : Pxp_document.node_type;
-   sub_nodes : < attribute : string -> Pxp_types.att_value;
-                 node_type : Pxp_document.node_type;
-                 sub_nodes : CicParser3.cic_term Pxp_document.node list;
-                 .. >
-               list;
-   .. > ->
- Cic.annobj

diff --git a/helm/ocaml/cic/cicParser3.ml b/helm/ocaml/cic/cicParser3.ml
deleted file mode 100644 (file)
index 82ca496..0000000
--- a/helm/ocaml/cic/cicParser3.ml
+++ /dev/null
@@ -1,505 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module is the terms level of a parser for cic objects from xml        *)
-(* files to the internal representation. It is used by the module cicParser2  *)
-(* (objects level). It defines an extension of the standard dom using the     *)
-(* object-oriented extension machinery of markup: an object with a method     *)
-(* to_cic_term that returns the internal representation of the subtree is     *)
-(* added to each node of the dom tree                                         *)
-(*                                                                            *)
-(******************************************************************************)
-
-exception IllFormedXml of int;;
-
-(* The list of tokens of the current section path. *)
-(* Used to resolve relative URIs                   *)
-let current_sp = ref [];;
-
-(* The uri of the object been parsed *)
-let current_uri = ref (UriManager.uri_of_string "cic:/.xml");;
-
-(* Utility functions to map a markup attribute to something useful *)
-
-let cic_attr_of_xml_attr =
- function
-    Pxp_types.Value s       -> Cic.Name s
-  | Pxp_types.Implied_value -> Cic.Anonimous
-  | _             -> raise (IllFormedXml 1)
-
-let cic_sort_of_xml_attr =
- function
-    Pxp_types.Value "Prop" -> Cic.Prop
-  | Pxp_types.Value "Set"  -> Cic.Set
-  | Pxp_types.Value "Type" -> Cic.Type
-  | _            -> raise (IllFormedXml 2)
-
-let int_of_xml_attr =
- function
-    Pxp_types.Value n -> int_of_string n
-  | _       -> raise (IllFormedXml 3)
-
-let uri_of_xml_attr =
- function
-    Pxp_types.Value s -> UriManager.uri_of_string s
-  | _       -> raise (IllFormedXml 4)
-
-let string_of_xml_attr =
- function
-    Pxp_types.Value s -> s
-  | _       -> raise (IllFormedXml 5)
-
-let binder_of_xml_attr =
- function
-    Pxp_types.Value s -> s
-  | _       -> raise (IllFormedXml 17)
-;;
-
-(* the "interface" of the class linked to each node of the dom tree *)
-
-class virtual cic_term =
-  object (self)
-
-    (* fields and methods ever required by markup *)
-    val mutable node = (None : cic_term Pxp_document.node option)
-
-    method clone = {< >} 
-    method node =
-      match node with
-          None ->
-            assert false
-        | Some n -> n
-    method set_node n =
-      node <- Some n
-
-    (* a method that returns the internal representation of the tree (term) *)
-    (* rooted in this node                                                  *)
-    method virtual to_cic_term : Cic.annterm
-  end
-;;
-
-(* the class of the objects linked to nodes that are not roots of cic terms *)
-class eltype_not_of_cic =
-  object (self)
-
-     inherit cic_term
-
-     method to_cic_term = raise (IllFormedXml 6)
-  end
-;;
-
-(* the class of the objects linked to nodes whose content is a cic term *)
-(* (syntactic sugar xml entities) e.g. <type> ... </type>               *)
-class eltype_transparent =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      match n#sub_nodes with
-         [ t ]  -> t#extension#to_cic_term
-       | _  -> raise (IllFormedXml 7)
-  end
-;;
-
-(* A class for each cic node type *)
-
-class eltype_fix =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let nofun = int_of_xml_attr (n#attribute "noFun")
-      and id = string_of_xml_attr (n#attribute "id")
-      and functions =
-       let sons = n#sub_nodes in
-        List.map
-         (function
-             f when f#node_type = Pxp_document.T_element "FixFunction" ->
-              let name = string_of_xml_attr (f#attribute "name")
-              and recindex = int_of_xml_attr (f#attribute "recIndex")
-              and (ty, body) =
-               match f#sub_nodes with
-                  [t ; b] when
-                    t#node_type = Pxp_document.T_element "type" &&
-                    b#node_type = Pxp_document.T_element "body" ->
-                     (t#extension#to_cic_term, b#extension#to_cic_term)
-                | _ -> raise (IllFormedXml 14)
-              in
-               (name, recindex, ty, body)
-           | _ -> raise (IllFormedXml 13)
-         ) sons
-      in
-       Cic.AFix (id, nofun, functions)
-  end
-;;
-
-class eltype_cofix =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let nofun = int_of_xml_attr (n#attribute "noFun")
-      and id = string_of_xml_attr (n#attribute "id")
-      and functions =
-       let sons = n#sub_nodes in
-        List.map
-         (function
-             f when f#node_type = Pxp_document.T_element "CofixFunction" ->
-              let name = string_of_xml_attr (f#attribute "name")
-              and (ty, body) =
-               match f#sub_nodes with
-                  [t ; b] when
-                    t#node_type = Pxp_document.T_element "type" &&
-                    b#node_type = Pxp_document.T_element "body" ->
-                     (t#extension#to_cic_term, b#extension#to_cic_term)
-                | _ -> raise (IllFormedXml 16)
-              in
-               (name, ty, body)
-           | _ -> raise (IllFormedXml 15)
-         ) sons
-      in
-       Cic.ACoFix (id, nofun, functions)
-  end
-;;
-
-class eltype_implicit =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let id = string_of_xml_attr (n#attribute "id") in
-       Cic.AImplicit id
-  end
-;;
-
-class eltype_rel =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let value  = int_of_xml_attr (n#attribute "value")
-      and binder = binder_of_xml_attr (n#attribute "binder")
-      and id = string_of_xml_attr (n#attribute "id") in
-       Cic.ARel (id,value,binder)
-  end
-;;
-
-class eltype_meta =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let value = int_of_xml_attr (n#attribute "no")
-      and id = string_of_xml_attr (n#attribute "id") in
-       Cic.AMeta (id,value)
-  end
-;;
-
-class eltype_var =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let name = string_of_xml_attr (n#attribute "relUri")
-      and xid = string_of_xml_attr (n#attribute "id") in
-       match Str.split (Str.regexp ",") name with
-          [index; id] ->
-           let get_prefix n =
-            let rec aux =
-             function
-                (0,_) -> "/"
-              | (n,he::tl) when n > 0 -> "/" ^ he ^ aux (n - 1, tl)
-              | _ -> raise (IllFormedXml 19)
-            in   
-             aux (List.length !current_sp - n,!current_sp)
-           in
-            Cic.AVar
-             (xid, 
-              (UriManager.uri_of_string
-               ("cic:" ^ get_prefix (int_of_string index) ^ id ^ ".var"))
-             )
-        | _ -> raise (IllFormedXml 18)
-  end
-;;
-
-class eltype_apply =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let children = n#sub_nodes
-      and id = string_of_xml_attr (n#attribute "id") in
-       if List.length children < 2 then raise (IllFormedXml 8)
-       else
-        Cic.AAppl
-         (id,List.map (fun x -> x#extension#to_cic_term) children)
-  end
-;;
-
-class eltype_cast =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let sons = n#sub_nodes
-      and id = string_of_xml_attr (n#attribute "id") in
-       match sons with
-          [te ; ty] when
-            te#node_type = Pxp_document.T_element "term" &&
-            ty#node_type = Pxp_document.T_element "type" ->
-             let term = te#extension#to_cic_term
-             and typ  = ty#extension#to_cic_term in
-              Cic.ACast (id,term,typ)
-        | _  -> raise (IllFormedXml 9)
-  end
-;;
-
-class eltype_sort =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let sort = cic_sort_of_xml_attr (n#attribute "value")
-      and id = string_of_xml_attr (n#attribute "id") in
-       Cic.ASort (id,sort)
-  end
-;;
-
-class eltype_abst =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let value = uri_of_xml_attr (n#attribute "uri")
-      and id = string_of_xml_attr (n#attribute "id") in
-       Cic.AAbst (id,value)
-  end
-;;
-
-class eltype_const =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let module U = UriManager in
-      let n = self#node in
-       let value = uri_of_xml_attr (n#attribute "uri")
-       and id = string_of_xml_attr (n#attribute "id") in
-        Cic.AConst (id,value, U.relative_depth !current_uri value 0)
-  end
-;;
-
-class eltype_mutind =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let module U = UriManager in
-      let n = self#node in
-       let name = uri_of_xml_attr (n#attribute "uri")
-       and noType = int_of_xml_attr (n#attribute "noType")
-       and id = string_of_xml_attr (n#attribute "id") in
-        Cic.AMutInd
-         (id,name, U.relative_depth !current_uri name 0, noType)
-  end
-;;
-
-class eltype_mutconstruct =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let module U = UriManager in
-      let n = self#node in
-       let name = uri_of_xml_attr (n#attribute "uri")
-       and noType = int_of_xml_attr (n#attribute "noType")
-       and noConstr = int_of_xml_attr (n#attribute "noConstr")
-       and id = string_of_xml_attr (n#attribute "id") in
-        Cic.AMutConstruct
-         (id, name, U.relative_depth !current_uri name 0,
-         noType, noConstr)
-  end
-;;
-
-class eltype_prod =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let sons = n#sub_nodes
-      and id = string_of_xml_attr (n#attribute "id") in
-       match sons with
-          [s ; t] when
-            s#node_type = Pxp_document.T_element "source" &&
-            t#node_type = Pxp_document.T_element "target" ->
-             let name = cic_attr_of_xml_attr (t#attribute "binder")
-             and source = s#extension#to_cic_term
-             and target = t#extension#to_cic_term in
-              Cic.AProd (id,name,source,target)
-        | _  -> raise (IllFormedXml 10)
-  end
-;;
-
-class eltype_mutcase =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let module U = UriManager in
-      let n = self#node in
-       let sons = n#sub_nodes
-       and id = string_of_xml_attr (n#attribute "id") in
-        match sons with
-           ty::te::patterns when
-             ty#node_type = Pxp_document.T_element "patternsType" &&
-             te#node_type = Pxp_document.T_element "inductiveTerm" ->
-              let ci = uri_of_xml_attr (n#attribute "uriType")
-              and typeno = int_of_xml_attr (n#attribute "noType")
-              and inductiveType = ty#extension#to_cic_term
-              and inductiveTerm = te#extension#to_cic_term
-              and lpattern= List.map (fun x -> x#extension#to_cic_term) patterns
-              in
-               Cic.AMutCase (id,ci,U.relative_depth !current_uri ci 0,
-                typeno,inductiveType,inductiveTerm,lpattern)
-         | _  -> raise (IllFormedXml 11)
-  end
-;;
-
-class eltype_lambda =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let sons = n#sub_nodes
-      and id = string_of_xml_attr (n#attribute "id") in
-       match sons with
-          [s ; t] when
-            s#node_type = Pxp_document.T_element "source" &&
-            t#node_type = Pxp_document.T_element "target" ->
-             let name = cic_attr_of_xml_attr (t#attribute "binder")
-             and source = s#extension#to_cic_term
-             and target = t#extension#to_cic_term in
-              Cic.ALambda (id,name,source,target)
-        | _  -> raise (IllFormedXml 12)
-  end
-;;
-
-class eltype_letin =
-  object (self)
-
-    inherit cic_term
-
-    method to_cic_term =
-     let n = self#node in
-      let sons = n#sub_nodes
-      and id = string_of_xml_attr (n#attribute "id") in
-       match sons with
-          [s ; t] when
-            s#node_type = Pxp_document.T_element "term" &&
-            t#node_type = Pxp_document.T_element "letintarget" ->
-             let name = cic_attr_of_xml_attr (t#attribute "binder")
-             and source = s#extension#to_cic_term
-             and target = t#extension#to_cic_term in
-              Cic.ALetIn (id,name,source,target)
-        | _  -> raise (IllFormedXml 12)
-  end
-;;
-
-(* The definition of domspec, an hashtable that maps each node type to the *)
-(* object that must be linked to it. Used by markup.                       *)
-
-let domspec =
- let module D = Pxp_document in
-  D.make_spec_from_alist
-   ~data_exemplar: (new D.data_impl (new eltype_not_of_cic))
-   ~default_element_exemplar: (new D.element_impl (new eltype_not_of_cic))
-   ~element_alist:
-    [ "REL",           (new D.element_impl (new eltype_rel)) ;
-      "VAR",           (new D.element_impl (new eltype_var)) ;
-      "META",          (new D.element_impl (new eltype_meta)) ;
-      "SORT",          (new D.element_impl (new eltype_sort)) ;
-      "IMPLICIT",      (new D.element_impl (new eltype_implicit)) ;
-      "CAST",          (new D.element_impl (new eltype_cast)) ;
-      "PROD",          (new D.element_impl (new eltype_prod)) ;
-      "LAMBDA",        (new D.element_impl (new eltype_lambda)) ;
-      "LETIN",         (new D.element_impl (new eltype_letin)) ;
-      "APPLY",         (new D.element_impl (new eltype_apply)) ;
-      "CONST",         (new D.element_impl (new eltype_const)) ;
-      "ABST",          (new D.element_impl (new eltype_abst)) ;
-      "MUTIND",        (new D.element_impl (new eltype_mutind)) ;
-      "MUTCONSTRUCT",  (new D.element_impl (new eltype_mutconstruct)) ;
-      "MUTCASE",       (new D.element_impl (new eltype_mutcase)) ;
-      "FIX",           (new D.element_impl (new eltype_fix)) ;
-      "COFIX",         (new D.element_impl (new eltype_cofix)) ;
-      "arity",         (new D.element_impl (new eltype_transparent)) ;
-      "term",          (new D.element_impl (new eltype_transparent)) ;
-      "type",          (new D.element_impl (new eltype_transparent)) ;
-      "body",          (new D.element_impl (new eltype_transparent)) ;
-      "source",        (new D.element_impl (new eltype_transparent)) ;
-      "target",        (new D.element_impl (new eltype_transparent)) ;
-      "letintarget",   (new D.element_impl (new eltype_transparent)) ;
-      "patternsType",  (new D.element_impl (new eltype_transparent)) ;
-      "inductiveTerm", (new D.element_impl (new eltype_transparent)) ;
-      "pattern",       (new D.element_impl (new eltype_transparent))
-    ]
-   ()
-;;

diff --git a/helm/ocaml/cic/cicParser3.mli b/helm/ocaml/cic/cicParser3.mli
deleted file mode 100644 (file)
index 990346e..0000000
--- a/helm/ocaml/cic/cicParser3.mli
+++ /dev/null
@@ -1,65 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module is the terms level of a parser for cic objects from xml        *)
-(* files to the internal representation. It is used by the module cicParser2  *)
-(* (objects level). It defines an extension of the standard dom using the     *)
-(* object-oriented extension machinery of markup: an object with a method     *)
-(* to_cic_term that returns the internal representation of the subtree is     *)
-(* added to each node of the dom tree                                         *)
-(*                                                                            *)
-(******************************************************************************)
-
-exception IllFormedXml of int
-
-val current_sp : string list ref
-val current_uri : UriManager.uri ref
-
-(* the "interface" of the class linked to each node of the dom tree *)
-class virtual cic_term :
-  object ('a)
-
-    (* fields and methods ever required by markup *)
-    val mutable node : cic_term Pxp_document.node option
-    method clone : 'a
-    method node : cic_term Pxp_document.node
-    method set_node : cic_term Pxp_document.node -> unit
-
-    (* a method that returns the internal representation of the tree (term) *)
-    (* rooted in this node                                                  *)
-    method virtual to_cic_term : Cic.annterm
-
-  end
-
-(* The definition of domspec, an hashtable that maps each node type to the *)
-(* object that must be linked to it. Used by markup.                       *)
-val domspec : cic_term Pxp_document.spec

diff --git a/helm/ocaml/cic/deannotate.ml b/helm/ocaml/cic/deannotate.ml
deleted file mode 100644 (file)
index 2445c37..0000000
--- a/helm/ocaml/cic/deannotate.ml
+++ /dev/null
@@ -1,98 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-let expect_possible_parameters = ref false;;
-
-exception NotExpectingPossibleParameters;;
-
-let rec deannotate_term =
- let module C = Cic in
-  function
-     C.ARel (_,n,_) -> C.Rel n
-   | C.AVar (_,uri) -> C.Var uri
-   | C.AMeta (_,n) -> C.Meta n
-   | C.ASort (_,s) -> C.Sort s
-   | C.AImplicit _ -> C.Implicit
-   | C.ACast (_,va,ty) -> C.Cast (deannotate_term va, deannotate_term ty)
-   | C.AProd (_,name,so,ta) ->
-      C.Prod (name, deannotate_term so, deannotate_term ta)
-   | C.ALambda (_,name,so,ta) ->
-      C.Lambda (name, deannotate_term so, deannotate_term ta)
-   | C.ALetIn (_,name,so,ta) ->
-      C.LetIn (name, deannotate_term so, deannotate_term ta)
-   | C.AAppl (_,l) -> C.Appl (List.map deannotate_term l)
-   | C.AConst (_,uri, cookingsno) -> C.Const (uri, cookingsno)
-   | C.AAbst (_,uri) -> C.Abst uri
-   | C.AMutInd (_,uri,cookingsno,i) -> C.MutInd (uri,cookingsno,i)
-   | C.AMutConstruct (_,uri,cookingsno,i,j) ->
-      C.MutConstruct (uri,cookingsno,i,j)
-   | C.AMutCase (_,uri,cookingsno,i,outtype,te,pl) ->
-      C.MutCase (uri,cookingsno,i,deannotate_term outtype,
-       deannotate_term te, List.map deannotate_term pl)
-   | C.AFix (_,funno,ifl) ->
-      C.Fix (funno, List.map deannotate_inductiveFun ifl)
-   | C.ACoFix (_,funno,ifl) ->
-      C.CoFix (funno, List.map deannotate_coinductiveFun ifl)
-
-and deannotate_inductiveFun (name,index,ty,bo) =
- (name, index, deannotate_term ty, deannotate_term bo)
-
-and deannotate_coinductiveFun (name,ty,bo) =
- (name, deannotate_term ty, deannotate_term bo)
-;;
-
-let deannotate_inductiveType (name, isinductive, arity, cons) =
- (name, isinductive, deannotate_term arity,
-  List.map (fun (id,ty,recs) -> (id,deannotate_term ty, recs)) cons)
-;;
-
-let deannotate_obj =
- let module C = Cic in
-  function
-     C.ADefinition (_, id, bo, ty, params) ->
-      (match params with
-          C.Possible params ->
-           if !expect_possible_parameters then
-            C.Definition (id, deannotate_term bo, deannotate_term ty, params)
-           else
-            raise NotExpectingPossibleParameters
-        | C.Actual params ->
-           C.Definition (id, deannotate_term bo, deannotate_term ty, params)
-      )
-   | C.AAxiom (_, id, ty, params) ->
-      C.Axiom (id, deannotate_term ty, params)
-   | C.AVariable (_, name, bo, ty) ->
-      C.Variable (name,
-       (match bo with None -> None | Some bo -> Some (deannotate_term bo)),
-       deannotate_term ty)
-   | C.ACurrentProof (_, name, conjs, bo, ty) ->
-      C.CurrentProof (
-       name, List.map (fun (id,con) -> (id,deannotate_term con)) conjs,
-       deannotate_term bo, deannotate_term ty
-      )
-   | C.AInductiveDefinition (_, tys, params, parno) ->
-      C.InductiveDefinition ( List.map deannotate_inductiveType tys,
-       params, parno)
-;;

diff --git a/helm/ocaml/cic/deannotate.mli b/helm/ocaml/cic/deannotate.mli
deleted file mode 100644 (file)
index d1bd72c..0000000
--- a/helm/ocaml/cic/deannotate.mli
+++ /dev/null
@@ -1,39 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 29/11/2000                                 *)
-(*                                                                            *)
-(******************************************************************************)
-
-(* Useful only for fix_params *)
-val expect_possible_parameters : bool ref
-
-val deannotate_term : Cic.annterm -> Cic.term
-val deannotate_obj : Cic.annobj -> Cic.obj

diff --git a/helm/ocaml/cic_annotations/.cvsignore b/helm/ocaml/cic_annotations/.cvsignore
deleted file mode 100644 (file)
index 6b3eba3..0000000
--- a/helm/ocaml/cic_annotations/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cm[iaox] *.cmxa

diff --git a/helm/ocaml/cic_annotations/.depend b/helm/ocaml/cic_annotations/.depend
deleted file mode 100644 (file)
index 2c30fa7..0000000
--- a/helm/ocaml/cic_annotations/.depend
+++ /dev/null
@@ -1,8 +0,0 @@
-cicXPath.cmo: cicXPath.cmi 
-cicXPath.cmx: cicXPath.cmi 
-cicAnnotation2Xml.cmo: cicXPath.cmi cicAnnotation2Xml.cmi 
-cicAnnotation2Xml.cmx: cicXPath.cmx cicAnnotation2Xml.cmi 
-cicAnnotationParser2.cmo: cicAnnotationParser2.cmi 
-cicAnnotationParser2.cmx: cicAnnotationParser2.cmi 
-cicAnnotationParser.cmo: cicAnnotationParser2.cmi cicAnnotationParser.cmi 
-cicAnnotationParser.cmx: cicAnnotationParser2.cmx cicAnnotationParser.cmi 

diff --git a/helm/ocaml/cic_annotations/Makefile b/helm/ocaml/cic_annotations/Makefile
deleted file mode 100644 (file)
index 2fbfe1b..0000000
--- a/helm/ocaml/cic_annotations/Makefile
+++ /dev/null
@@ -1,11 +0,0 @@
-PACKAGE = cic_annotations
-REQUIRES = helm-cic helm-xml
-PREDICATES =
-
-INTERFACE_FILES = cicXPath.mli cicAnnotation2Xml.mli cicAnnotationParser2.mli \
-                  cicAnnotationParser.mli
-IMPLEMENTATION_FILES = $(INTERFACE_FILES:%.mli=%.ml)
-EXTRA_OBJECTS_TO_INSTALL =
-EXTRA_OBJECTS_TO_CLEAN =
-
-include ../Makefile.common

diff --git a/helm/ocaml/cic_annotations/cicAnnotation2Xml.ml b/helm/ocaml/cic_annotations/cicAnnotation2Xml.ml
deleted file mode 100644 (file)
index 8d12434..0000000
--- a/helm/ocaml/cic_annotations/cicAnnotation2Xml.ml
+++ /dev/null
@@ -1,133 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(*CSC codice cut & paste da cicPp e xmlcommand *)
-
-exception NotImplemented;;
-
-let dtdname = "http://www.cs.unibo.it/helm/dtd/annotations.dtd";;
-
-let get_ann ids_to_annotations =
- CicXPath.get_annotation ids_to_annotations
-;;
-
-let print_ann i2a id =
- let module X = Xml in
-  let ann = get_ann i2a id in
-   match ann with
-      None -> [<>]
-    | Some ann -> (X.xml_nempty "Annotation" ["of", id] (X.xml_cdata ann))
-;;
-
-(*CSC ottimizzazione: al posto di curi cdepth (vedi codice) *)
-let print_term i2a =
- let rec aux =
-  let module C = Cic in
-  let module X = Xml in
-  let module U = UriManager in
-    function
-       C.ARel (id,_,_) -> print_ann i2a id
-     | C.AVar (id,_) -> print_ann i2a id
-     | C.AMeta (id,_) -> print_ann i2a id
-     | C.ASort (id,_) -> print_ann i2a id
-     | C.AImplicit _ -> raise NotImplemented
-     | C.AProd (id,_,s,t) -> [< print_ann i2a id ; aux s ; aux t >]
-     | C.ACast (id,v,t) -> [< print_ann i2a id ; aux v ; aux t >]
-     | C.ALambda (id,_,s,t) -> [< print_ann i2a id ; aux s ; aux t >]
-     | C.ALetIn (id,_,s,t) -> [< print_ann i2a id ; aux s ; aux t >]
-     | C.AAppl (id,li) ->
-        [< print_ann i2a id ;
-           List.fold_right (fun x i -> [< (aux x) ; i >]) li [<>]
-        >]
-     | C.AConst (id,_,_) -> print_ann i2a id
-     | C.AAbst (id,_) -> raise NotImplemented
-     | C.AMutInd (id,_,_,_) -> print_ann i2a id
-     | C.AMutConstruct (id,_,_,_,_) -> print_ann i2a id
-     | C.AMutCase (id,_,_,_,ty,te,patterns) ->
-        [< print_ann i2a id ;
-           aux ty ;
-           aux te ;
-           List.fold_right
-            (fun x i -> [< aux x ; i>])
-            patterns [<>]
-        >]
-     | C.AFix (id,_,funs) ->
-        [< print_ann i2a id ;
-           List.fold_right
-            (fun (_,_,ti,bi) i -> [< aux ti ; aux bi ; i >]) funs [<>]
-        >]
-     | C.ACoFix (id,no,funs) ->
-        [< print_ann i2a id ;
-           List.fold_right
-            (fun (_,ti,bi) i -> [< aux ti ; aux bi ; i >]) funs [<>]
-        >]
- in
-  aux
-;;
-
-let print_mutual_inductive_type i2a (_,_,arity,constructors) =
- [< print_term i2a arity ;
-    List.fold_right
-     (fun (name,ty,_) i -> [< print_term i2a ty ; i >]) constructors [<>]
- >]
-;;
-
-let pp_annotation obj i2a curi =
- let module C = Cic in
- let module X = Xml in
-  [< X.xml_cdata "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ;
-     X.xml_cdata ("<!DOCTYPE Annotations SYSTEM \"" ^ dtdname ^ "\">\n\n") ;
-     X.xml_nempty "Annotations"
-      ["of", UriManager.string_of_uri (UriManager.cicuri_of_uri curi)]
-      begin
-       match obj with
-         C.ADefinition (xid, _, te, ty, _) ->
-          [< print_ann i2a xid ; print_term i2a te ; print_term i2a ty >]
-       | C.AAxiom (xid, _, ty, _) -> [< print_ann i2a xid ; print_term i2a ty >]
-       | C.AVariable (xid, _, bo, ty) ->
-          [< print_ann i2a xid ;
-             (match bo with
-                 None -> [<>]
-               | Some bo -> print_term i2a bo
-             ) ;
-             print_term i2a ty
-          >]
-       | C.ACurrentProof (xid, _, conjs, bo, ty) ->
-          [< print_ann i2a xid ;
-             List.fold_right
-              (fun (_,t) i -> [< print_term i2a t ; i >])
-              conjs [<>] ;
-             print_term i2a bo ;
-             print_term i2a ty
-          >]
-       | C.AInductiveDefinition (xid, tys, params, paramsno) ->
-          [< print_ann i2a xid ;
-             List.fold_right
-              (fun x i -> [< print_mutual_inductive_type i2a x ; i >])
-              tys [< >]
-          >]
-      end
-  >]
-;;

diff --git a/helm/ocaml/cic_annotations/cicAnnotation2Xml.mli b/helm/ocaml/cic_annotations/cicAnnotation2Xml.mli
deleted file mode 100644 (file)
index 69faf6e..0000000
--- a/helm/ocaml/cic_annotations/cicAnnotation2Xml.mli
+++ /dev/null
@@ -1,38 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 29/11/2000                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
-val pp_annotation :
- Cic.annobj -> (Cic.id, string) Hashtbl.t -> UriManager.uri ->
-  Xml.token Stream.t

diff --git a/helm/ocaml/cic_annotations/cicAnnotationParser.ml b/helm/ocaml/cic_annotations/cicAnnotationParser.ml
deleted file mode 100644 (file)
index 7b4fdad..0000000
--- a/helm/ocaml/cic_annotations/cicAnnotationParser.ml
+++ /dev/null
@@ -1,55 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception Warnings;;
-
-class warner =
-  object 
-    method warn w =
-      print_endline ("WARNING: " ^ w) ;
-      (raise Warnings : unit)
-  end
-;;
-
-exception EmptyUri;;
-
-let get_annotations filename =
- let module Y = Pxp_yacc in
-  try 
-    let d =
-     let config = {Y.default_config with Y.warner = new warner} in
-      Y.parse_document_entity config
-(*PXP       (Y.ExtID (Pxp_types.System filename,
-         new Pxp_reader.resolve_as_file ~url_of_id ()))
-*)     (PxpUriResolver.from_file filename)
-       Y.default_spec
-
-    in
-     CicAnnotationParser2.get_annotations d#root
-  with
-   e ->
-     print_endline (Pxp_types.string_of_exn e) ;
-     raise e
-;;

diff --git a/helm/ocaml/cic_annotations/cicAnnotationParser.mli b/helm/ocaml/cic_annotations/cicAnnotationParser.mli
deleted file mode 100644 (file)
index 582013e..0000000
--- a/helm/ocaml/cic_annotations/cicAnnotationParser.mli
+++ /dev/null
@@ -1,36 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 29/11/2000                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
-val get_annotations : string -> (Cic.id, string) Hashtbl.t

diff --git a/helm/ocaml/cic_annotations/cicAnnotationParser2.ml b/helm/ocaml/cic_annotations/cicAnnotationParser2.ml
deleted file mode 100644 (file)
index 15d86f5..0000000
--- a/helm/ocaml/cic_annotations/cicAnnotationParser2.ml
+++ /dev/null
@@ -1,96 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception IllFormedXml of int;;
-
-(* Utility functions that transform a Pxp attribute into something useful *)
-
-let string_of_attr a =
- let module T = Pxp_types in
-  match a with
-     T.Value s -> s
-   | _ -> raise (IllFormedXml 0)
-;;
-
-exception DontKnowWhatToDo;;
-
-let rec string_of_annotations n =
- let module D = Pxp_document in
- let module T = Pxp_types in
-  match n#node_type with
-     D.T_element s ->
-      "<" ^ s ^
-      List.fold_right
-       (fun att i ->
-         match n#attribute att with
-            T.Value s -> " " ^ att ^ "=\"" ^ s ^ "\"" ^ i
-          | T.Implied_value -> i
-          | T.Valuelist l -> " " ^ att ^ "=\"" ^ String.concat " " l ^ "\"" ^ i
-       ) (n#attribute_names) "" ^
-      (match n#sub_nodes with
-          [] -> "/>"
-        | l ->
-           ">" ^
-           String.concat "" (List.map string_of_annotations l) ^
-           "</" ^ s ^ ">"
-      )
-   | D.T_data -> n#data
-   | _ -> raise DontKnowWhatToDo
-;;
-
-let get_annotation_from_node n =
- String.concat "" (List.map string_of_annotations (n#sub_nodes))
-;;
-
-exception MoreThanOneAnnotationFor of Cic.id;;
-
-let set_annotation ids_to_annotations id ann =
- try
-  ignore (Hashtbl.find ids_to_annotations id) ;
-  raise (MoreThanOneAnnotationFor id)
- with
-  Not_found -> Hashtbl.add ids_to_annotations id ann
-;;
-
-let get_annotations n =
- let module D = Pxp_document in
- let module C = Cic in
-  let ids_to_annotations = Hashtbl.create 503 in
-   let annotate_elem n =
-    let ntype = n # node_type in
-    match ntype with
-      D.T_element "Annotation" ->
-        let of_uri = string_of_attr (n # attribute "of") in
-         set_annotation ids_to_annotations of_uri (get_annotation_from_node n)
-    | D.T_element _ | D.T_data ->
-       raise (IllFormedXml 1)
-    | _ -> raise DontKnowWhatToDo
-   in
-    match n # node_type with
-       D.T_element "Annotations" ->
-        List.iter annotate_elem (n # sub_nodes) ;
-        ids_to_annotations
-     | _ -> raise (IllFormedXml 2)
-;;

diff --git a/helm/ocaml/cic_annotations/cicAnnotationParser2.mli b/helm/ocaml/cic_annotations/cicAnnotationParser2.mli
deleted file mode 100644 (file)
index f16bb6f..0000000
--- a/helm/ocaml/cic_annotations/cicAnnotationParser2.mli
+++ /dev/null
@@ -1,50 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 29/11/2000                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
-exception IllFormedXml of int
-val get_annotations :
-  < node_type : Pxp_document.node_type;
-    sub_nodes : < attribute : string -> Pxp_types.att_value;
-                  node_type : Pxp_document.node_type;
-                  sub_nodes : (< attribute : string -> Pxp_types.att_value;
-                                 attribute_names : string list;
-                                 data : string;
-                                 node_type : Pxp_document.node_type;
-                                 sub_nodes : 'a list; .. > as 'a)
-                              list;
-                  .. >
-                list;
-    .. > ->
-  (Cic.id, string) Hashtbl.t

diff --git a/helm/ocaml/cic_annotations/cicXPath.ml b/helm/ocaml/cic_annotations/cicXPath.ml
deleted file mode 100644 (file)
index 1eaf31f..0000000
--- a/helm/ocaml/cic_annotations/cicXPath.ml
+++ /dev/null
@@ -1,130 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 14/06/2000                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
-let get_annotation ids_to_annotations xpath =
- try
-  Some (Hashtbl.find ids_to_annotations xpath)
- with
-  Not_found -> None
-;;
-
-exception MoreThanOneTargetFor of Cic.id;;
-
-let get_ids_to_targets annobj =
- let module C = Cic in
-  let ids_to_targets = Hashtbl.create 503 in
-   let set_target id target =
-    try
-     ignore (Hashtbl.find ids_to_targets id) ;
-     raise (MoreThanOneTargetFor id)
-    with
-     Not_found -> Hashtbl.add ids_to_targets id target
-   in
-    let rec add_target_term t =
-     match t with
-        C.ARel (id,_,_)
-      | C.AVar (id,_)
-      | C.AMeta (id,_)
-      | C.ASort (id,_)
-      | C.AImplicit id ->
-         set_target id (C.Term t)
-      | C.ACast (id,va,ty) ->
-         set_target id (C.Term t) ;
-         add_target_term va ;
-         add_target_term ty
-      | C.AProd (id,_,so,ta)
-      | C.ALambda (id,_,so,ta)
-      | C.ALetIn (id,_,so,ta) ->
-         set_target id (C.Term t) ;
-         add_target_term so ;
-         add_target_term ta
-      | C.AAppl (id,l) ->
-         set_target id (C.Term t) ;
-         List.iter add_target_term l
-      | C.AConst (id,_,_)
-      | C.AAbst (id,_)
-      | C.AMutInd (id,_,_,_)
-      | C.AMutConstruct (id,_,_,_,_) ->
-         set_target id (C.Term t)
-      | C.AMutCase (id,_,_,_,ot,it,pl) ->
-         set_target id (C.Term t) ;
-         List.iter add_target_term (ot::it::pl)
-      | C.AFix (id,_,ifl) ->
-         set_target id (C.Term t) ;
-         List.iter
-          (function (_,_,ty,bo) ->
-            add_target_term ty ;
-            add_target_term bo
-          ) ifl
-      | C.ACoFix (id,_,cfl) ->
-         set_target id (C.Term t) ;
-         List.iter
-          (function (_,ty,bo) ->
-            add_target_term ty ;
-            add_target_term bo
-          ) cfl
-    in
-     let add_target_obj annobj =
-      match annobj with
-        C.ADefinition (id,_,bo,ty,_) ->
-         set_target id (C.Object annobj) ;
-         add_target_term bo ;
-         add_target_term ty
-      | C.AAxiom (id,_,ty,_) ->
-         set_target id (C.Object annobj) ;
-         add_target_term ty
-      | C.AVariable (id,_,None,ty) ->
-         set_target id (C.Object annobj) ;
-         add_target_term ty
-      | C.AVariable (id,_,Some bo,ty) ->
-         set_target id (C.Object annobj) ;
-         add_target_term bo ;
-         add_target_term ty
-      | C.ACurrentProof (id,_,cl,bo,ty) ->
-         set_target id (C.Object annobj) ;
-         List.iter (function (_,t) -> add_target_term t) cl ;
-         add_target_term bo ;
-         add_target_term ty
-      | C.AInductiveDefinition (id,itl,_,_) ->
-         set_target id (C.Object annobj) ;
-         List.iter
-          (function (_,_,arity,cl) ->
-            add_target_term arity ;
-            List.iter (function (_,ty,_) -> add_target_term ty) cl
-          ) itl
-     in
-      add_target_obj annobj ;
-      ids_to_targets
-;;

diff --git a/helm/ocaml/cic_annotations/cicXPath.mli b/helm/ocaml/cic_annotations/cicXPath.mli
deleted file mode 100644 (file)
index 23380e0..0000000
--- a/helm/ocaml/cic_annotations/cicXPath.mli
+++ /dev/null
@@ -1,39 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 29/11/2000                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
-val get_annotation :
- (Cic.id, string) Hashtbl.t -> Cic.id -> string option
-
-val get_ids_to_targets : Cic.annobj -> (Cic.id, Cic.anntarget) Hashtbl.t

diff --git a/helm/ocaml/cic_annotations_cache/.cvsignore b/helm/ocaml/cic_annotations_cache/.cvsignore
deleted file mode 100644 (file)
index 6b3eba3..0000000
--- a/helm/ocaml/cic_annotations_cache/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cm[iaox] *.cmxa

diff --git a/helm/ocaml/cic_annotations_cache/.depend b/helm/ocaml/cic_annotations_cache/.depend
deleted file mode 100644 (file)
index 06775e1..0000000
--- a/helm/ocaml/cic_annotations_cache/.depend
+++ /dev/null
@@ -1,2 +0,0 @@
-cicCache.cmo: cicCache.cmi 
-cicCache.cmx: cicCache.cmi 

diff --git a/helm/ocaml/cic_annotations_cache/Makefile b/helm/ocaml/cic_annotations_cache/Makefile
deleted file mode 100644 (file)
index 8b80b4f..0000000
--- a/helm/ocaml/cic_annotations_cache/Makefile
+++ /dev/null
@@ -1,10 +0,0 @@
-PACKAGE = cic_annotations_cache
-REQUIRES = helm-cic_annotations
-PREDICATES =
-
-INTERFACE_FILES = cicCache.mli
-IMPLEMENTATION_FILES = $(INTERFACE_FILES:%.mli=%.ml)
-EXTRA_OBJECTS_TO_INSTALL =
-EXTRA_OBJECTS_TO_CLEAN =
-
-include ../Makefile.common

diff --git a/helm/ocaml/cic_annotations_cache/cicCache.ml b/helm/ocaml/cic_annotations_cache/cicCache.ml
deleted file mode 100644 (file)
index 8bc4be6..0000000
--- a/helm/ocaml/cic_annotations_cache/cicCache.ml
+++ /dev/null
@@ -1,51 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module implements a trival cache system (an hash-table) for cic       *)
-(* objects. Uses the getter (getter.ml) and the parser (cicParser.ml)         *)
-(*                                                                            *)
-(******************************************************************************)
-
-let get_annobj uri =
- let module G = Getter in
- let module U = UriManager in
-  let cicfilename = G.getxml (U.cicuri_of_uri uri) in
-   let annobj = CicParser.annobj_of_xml cicfilename uri in
-    annobj,
-     if U.uri_is_annuri uri then
-      begin
-       let annfilename = G.getxml (U.annuri_of_uri uri) in
-        Some (CicAnnotationParser.get_annotations annfilename)
-      end
-     else
-      None
-;;

diff --git a/helm/ocaml/cic_annotations_cache/cicCache.mli b/helm/ocaml/cic_annotations_cache/cicCache.mli
deleted file mode 100644 (file)
index 160a162..0000000
--- a/helm/ocaml/cic_annotations_cache/cicCache.mli
+++ /dev/null
@@ -1,37 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module implements a trival cache system (an hash-table) for cic       *)(* objects. Uses the getter (getter.ml) and the parser (cicParser.ml)         *)(*                                                                            *)
-(******************************************************************************)
-
-val get_annobj :
- UriManager.uri -> Cic.annobj * (Cic.id, string) Hashtbl.t option

diff --git a/helm/ocaml/cic_cache/.cvsignore b/helm/ocaml/cic_cache/.cvsignore
deleted file mode 100644 (file)
index 6b3eba3..0000000
--- a/helm/ocaml/cic_cache/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cm[iaox] *.cmxa

diff --git a/helm/ocaml/cic_cache/.depend b/helm/ocaml/cic_cache/.depend
deleted file mode 100644 (file)
index 06775e1..0000000
--- a/helm/ocaml/cic_cache/.depend
+++ /dev/null
@@ -1,2 +0,0 @@
-cicCache.cmo: cicCache.cmi 
-cicCache.cmx: cicCache.cmi 

diff --git a/helm/ocaml/cic_cache/Makefile b/helm/ocaml/cic_cache/Makefile
deleted file mode 100644 (file)
index 672f904..0000000
--- a/helm/ocaml/cic_cache/Makefile
+++ /dev/null
@@ -1,10 +0,0 @@
-PACKAGE = cic_cache
-REQUIRES = helm-cic
-PREDICATES =
-
-INTERFACE_FILES = cicCache.mli
-IMPLEMENTATION_FILES = $(INTERFACE_FILES:%.mli=%.ml)
-EXTRA_OBJECTS_TO_INSTALL =
-EXTRA_OBJECTS_TO_CLEAN =
-
-include ../Makefile.common

diff --git a/helm/ocaml/cic_cache/cicCache.ml b/helm/ocaml/cic_cache/cicCache.ml
deleted file mode 100644 (file)
index adfeb05..0000000
--- a/helm/ocaml/cic_cache/cicCache.ml
+++ /dev/null
@@ -1,50 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module implements a trival cache system (an hash-table) for cic       *)
-(* objects. Uses the getter (getter.ml) and the parser (cicParser.ml)         *)
-(*                                                                            *)
-(******************************************************************************)
-
-let get_annobj uri =
- let module G = Getter in
- let module U = UriManager in
-  let cicfilename = G.getxml (U.cicuri_of_uri uri) in
-   CicParser.annobj_of_xml cicfilename uri
-;;
-
-let get_obj uri =
- let module G = Getter in
- let module U = UriManager in
-  let cicfilename = G.getxml (U.cicuri_of_uri uri) in
-   CicParser.obj_of_xml cicfilename uri
-;;

diff --git a/helm/ocaml/cic_cache/cicCache.mli b/helm/ocaml/cic_cache/cicCache.mli
deleted file mode 100644 (file)
index 58aa617..0000000
--- a/helm/ocaml/cic_cache/cicCache.mli
+++ /dev/null
@@ -1,37 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module implements a trival cache system (an hash-table) for cic       *)(* objects. Uses the getter (getter.ml) and the parser (cicParser.ml)         *)(*                                                                            *)
-(******************************************************************************)
-
-val get_obj : UriManager.uri -> Cic.obj
-val get_annobj : UriManager.uri -> Cic.annobj

diff --git a/helm/ocaml/cic_proof_checking/.cvsignore b/helm/ocaml/cic_proof_checking/.cvsignore
deleted file mode 100644 (file)
index 6b3eba3..0000000
--- a/helm/ocaml/cic_proof_checking/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cm[iaox] *.cmxa

diff --git a/helm/ocaml/cic_proof_checking/.depend b/helm/ocaml/cic_proof_checking/.depend
deleted file mode 100644 (file)
index 81126bb..0000000
--- a/helm/ocaml/cic_proof_checking/.depend
+++ /dev/null
@@ -1,18 +0,0 @@
-cicSubstitution.cmo: cicSubstitution.cmi 
-cicSubstitution.cmx: cicSubstitution.cmi 
-cicEnvironment.cmo: cicSubstitution.cmi cicEnvironment.cmi 
-cicEnvironment.cmx: cicSubstitution.cmx cicEnvironment.cmi 
-cicPp.cmo: cicEnvironment.cmi cicPp.cmi 
-cicPp.cmx: cicEnvironment.cmx cicPp.cmi 
-cicMiniReduction.cmo: cicSubstitution.cmi cicMiniReduction.cmi 
-cicMiniReduction.cmx: cicSubstitution.cmx cicMiniReduction.cmi 
-cicReduction.cmo: cicEnvironment.cmi cicPp.cmi cicSubstitution.cmi \
-    cicReduction.cmi 
-cicReduction.cmx: cicEnvironment.cmx cicPp.cmx cicSubstitution.cmx \
-    cicReduction.cmi 
-cicTypeChecker.cmo: cicEnvironment.cmi cicPp.cmi cicReduction.cmi \
-    cicSubstitution.cmi cicTypeChecker.cmi 
-cicTypeChecker.cmx: cicEnvironment.cmx cicPp.cmx cicReduction.cmx \
-    cicSubstitution.cmx cicTypeChecker.cmi 
-cicCooking.cmo: cicEnvironment.cmi cicCooking.cmi 
-cicCooking.cmx: cicEnvironment.cmx cicCooking.cmi 

diff --git a/helm/ocaml/cic_proof_checking/Makefile b/helm/ocaml/cic_proof_checking/Makefile
deleted file mode 100644 (file)
index ad31350..0000000
--- a/helm/ocaml/cic_proof_checking/Makefile
+++ /dev/null
@@ -1,16 +0,0 @@
-PACKAGE = cic_proof_checking
-REQUIRES = helm-cic
-PREDICATES =
-
-INTERFACE_FILES = cicSubstitution.mli cicEnvironment.mli cicPp.mli \
-                  cicMiniReduction.mli cicReduction.mli cicTypeChecker.mli \
-                  cicCooking.mli
-IMPLEMENTATION_FILES = $(INTERFACE_FILES:%.mli=%.ml)
-
-# Metadata tools only need zeta-reduction
-EXTRA_OBJECTS_TO_INSTALL = \
-            cicSubstitution.cmo cicSubstitution.cmx cicSubstitution.o \
-            cicMiniReduction.cmo cicMiniReduction.cmx cicMiniReduction.o
-
-
-include ../Makefile.common

diff --git a/helm/ocaml/cic_proof_checking/cicCooking.ml b/helm/ocaml/cic_proof_checking/cicCooking.ml
deleted file mode 100644 (file)
index c382bb3..0000000
--- a/helm/ocaml/cic_proof_checking/cicCooking.ml
+++ /dev/null
@@ -1,236 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception Impossible;;
-exception NotImplemented of int * string;;
-exception WrongUriToConstant;;
-exception WrongUriToVariable of string;;
-exception WrongUriToInductiveDefinition;;
-
-(* mem x lol is true if x is a member of one    *)
-(* of the lists of the list of (int * list) lol *)
-let mem x lol =
- List.fold_right (fun (_,l) i -> i || List.mem x l) lol false
-;;
-
-(* cook var term *)
-let cook curi cookingsno var is_letin =
- let rec aux k =
-  let module C = Cic in
-   function
-      C.Rel n as t ->
-       (match n with
-           n when n >= k -> C.Rel (n + 1)
-         | _ -> C.Rel n
-       )
-    | C.Var uri as t ->
-       if UriManager.eq uri var then
-        C.Rel k
-       else
-        t
-    | C.Meta _ as t -> t
-    | C.Sort _ as t -> t
-    | C.Implicit as t -> t
-    | C.Cast (te, ty) -> C.Cast (aux k te, aux k ty)
-    | C.Prod (n,s,t) -> C.Prod (n, aux k s, aux (k + 1) t)
-    | C.Lambda (n,s,t) -> C.Lambda (n, aux k s, aux (k + 1) t)
-    | C.LetIn (n,s,t) -> C.LetIn (n, aux k s, aux (k + 1) t)
-    | C.Appl (he::tl) ->
-       (* Get rid of C.Appl (C.Appl l1) l2 *)
-       let newtl = List.map (aux k) tl in
-        (match aux k he with
-            C.Appl (he'::tl') -> C.Appl (he'::(tl'@newtl))
-          | t -> C.Appl (t::newtl)
-        )
-    | C.Appl [] -> raise Impossible
-    | C.Const (uri,_) ->
-       if not is_letin && match CicEnvironment.get_obj uri with
-           C.Definition (_,_,_,params) when mem var params -> true
-         | C.Definition _ -> false
-         | C.Axiom (_,_,params) when mem var params -> true
-         | C.Axiom _ -> false
-         | C.CurrentProof _ ->
-            raise (NotImplemented (2,(UriManager.string_of_uri uri)))
-         | _ -> raise WrongUriToConstant
-       then
-        C.Appl
-         ((C.Const (uri,UriManager.relative_depth curi uri cookingsno))::
-          [C.Rel k])
-       else
-        C.Const (uri,UriManager.relative_depth curi uri cookingsno)
-    | C.Abst _ as t -> t
-    | C.MutInd (uri,_,i) ->
-       if not is_letin && match CicEnvironment.get_obj uri with
-           C.InductiveDefinition (_,params,_) when mem var params -> true
-         | C.InductiveDefinition _ -> false
-         | _ -> raise WrongUriToInductiveDefinition
-       then
-        C.Appl ((C.MutInd (uri,UriManager.relative_depth curi uri cookingsno,i))::[C.Rel k])
-       else
-        C.MutInd (uri,UriManager.relative_depth curi uri cookingsno,i)
-    | C.MutConstruct (uri,_,i,j) ->
-       if not is_letin && match CicEnvironment.get_obj uri with
-           C.InductiveDefinition (_,params,_) when mem var params -> true
-         | C.InductiveDefinition _ -> false
-         | _ -> raise WrongUriToInductiveDefinition
-       then
-        C.Appl ((C.MutConstruct (uri,UriManager.relative_depth curi uri cookingsno,i,j))::[C.Rel k])
-       else
-        C.MutConstruct (uri,UriManager.relative_depth curi uri cookingsno,i,j)
-    | C.MutCase (uri,_,i,outt,term,pl) ->
-       let substitutedfl =
-        List.map (aux k) pl
-       in
-        C.MutCase (uri,UriManager.relative_depth curi uri cookingsno,i,
-         aux k outt,aux k term, substitutedfl)
-    | C.Fix (i,fl) ->
-       let len = List.length fl in
-       let substitutedfl =
-         List.map
-          (fun (name,i,ty,bo) -> (name,i,aux k ty, aux (k+len) bo))
-          fl
-       in
-        C.Fix (i, substitutedfl)
-    | C.CoFix (i,fl) ->
-       let len = List.length fl in
-       let substitutedfl =
-         List.map
-          (fun (name,ty,bo) -> (name,aux k ty, aux (k+len) bo))
-          fl
-       in
-        C.CoFix (i, substitutedfl)
- in
-  aux 1 
-;;
-
-let cook_gen add_binder curi cookingsno ty vars =
- let module C = Cic in
- let module U = UriManager in
-  let rec cookrec ty =
-   function
-     var::tl ->
-      let (varname, varbody, vartype) =
-       match CicEnvironment.get_obj var with
-          C.Variable (varname, varbody, vartype) -> (varname, varbody, vartype)
-        | _ -> raise (WrongUriToVariable (U.string_of_uri var))
-      in
-       let cooked_once =
-        add_binder (C.Name varname) varbody vartype
-         (match varbody with
-             Some _ -> cook curi cookingsno var true ty
-           | None -> cook curi cookingsno var false ty
-         )
-       in
-        cookrec cooked_once tl
-   | _ -> ty
-  in
-   cookrec ty vars
-;;
-
-let cook_prod =
- cook_gen (fun n b s t ->
-  match b with
-     None   -> Cic.Prod (n,s,t)
-   | Some b -> Cic.LetIn (n,b,t)
- )
-and cook_lambda =
- cook_gen (fun n b s t ->
-  match b with
-     None   -> Cic.Lambda (n,s,t)
-   | Some b -> Cic.LetIn (n,b,t)
- )
-;;
-
-(*CSC: sbagliato da rifare e completare *)
-let cook_one_level obj curi cookingsno vars =
- let module C = Cic in
-  match obj with
-     C.Definition (id,te,ty,params) ->
-      let ty' = cook_prod curi cookingsno ty vars in
-      let te' = cook_lambda curi cookingsno te vars in
-       C.Definition (id,te',ty',params)
-   | C.Axiom (id,ty,parameters) ->
-      let ty' = cook_prod curi cookingsno ty vars in
-       C.Axiom (id,ty',parameters)
-   | C.Variable _ as obj -> obj
-   | C.CurrentProof (id,conjs,te,ty) ->
-      let ty' = cook_prod curi cookingsno ty vars in
-      let te' = cook_lambda curi cookingsno te vars in
-       C.CurrentProof (id,conjs,te',ty')
-   | C.InductiveDefinition (dl, params, n_ind_params) ->
-      let dl' =
-       List.map
-        (fun (name,inductive,arity,constructors) ->
-          let constructors' =
-          List.map
-           (fun (name,ty,r) ->
-             let r' = 
-              match !r with
-                 None -> raise Impossible
-               | Some r -> List.map (fun _ -> false) vars @ r
-             in
-             (name,cook_prod curi cookingsno ty vars,ref (Some r')) 
-           ) constructors
-          in
-           (name,inductive,cook_prod curi cookingsno arity vars,constructors')
-        ) dl
-      in
-       let number_of_variables_without_a_body =
-        let is_not_letin uri =
-         match CicEnvironment.get_obj uri with
-            C.Variable (_,None,_) -> true
-          | C.Variable (_,Some _,_) -> false
-          | _ -> raise (WrongUriToVariable (UriManager.string_of_uri uri))
-        in
-         List.fold_left
-          (fun i uri -> if is_not_letin uri then i + 1 else i) 0 vars
-       in
-        C.InductiveDefinition
-         (dl', params, n_ind_params + number_of_variables_without_a_body)
-;; 
-
-let cook_obj obj uri =
- let module C = Cic in
-  let params =
-   match obj with
-      C.Definition (_,_,_,params) -> params
-    | C.Axiom (_,_,params) -> params
-    | C.Variable _ -> []
-    | C.CurrentProof _ -> []
-    | C.InductiveDefinition (_,params,_) -> params
-  in
-   let rec cook_all_levels obj =
-    function
-       [] -> []
-     | (n,vars)::tl ->
-        let cooked_obj = cook_one_level obj uri (n + 1) (List.rev vars) in
-         (n,cooked_obj)::(cook_all_levels cooked_obj tl)
-   in
-    cook_all_levels obj (List.rev params)
-;;
-
-let init () =
-   CicEnvironment.set_cooking_function cook_obj
-;;

diff --git a/helm/ocaml/cic_proof_checking/cicCooking.mli b/helm/ocaml/cic_proof_checking/cicCooking.mli
deleted file mode 100644 (file)
index 960fb6f..0000000
--- a/helm/ocaml/cic_proof_checking/cicCooking.mli
+++ /dev/null
@@ -1,34 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception Impossible
-exception NotImplemented of int * string
-exception WrongUriToConstant
-exception WrongUriToVariable of string
-exception WrongUriToInductiveDefinition
-
-(* init register the cooking function defined in this module so that it *)
-(* will be used to retrieve the cooked objects from the environment     *)
-val init : unit -> unit

diff --git a/helm/ocaml/cic_proof_checking/cicEnvironment.ml b/helm/ocaml/cic_proof_checking/cicEnvironment.ml
deleted file mode 100644 (file)
index 5d4261c..0000000
--- a/helm/ocaml/cic_proof_checking/cicEnvironment.ml
+++ /dev/null
@@ -1,230 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module implements a trival cache system (an hash-table) for cic       *)
-(* objects. Uses the getter (getter.ml) and the parser (cicParser.ml)         *)
-(*                                                                            *)
-(******************************************************************************)
-
-type type_checked_obj =
-   CheckedObj of Cic.obj     (* cooked obj *)
- | UncheckedObj of Cic.obj   (* uncooked obj to proof-check *)
-;;
-
-exception NoFunctionProvided;;
-
-let cook_obj = ref (fun obj uri -> raise NoFunctionProvided);;
-
-let set_cooking_function foo =
- cook_obj := foo
-;;
-
-exception AlreadyCooked of string;;
-exception CircularDependency of string;;
-exception CouldNotFreeze of string;;
-exception CouldNotUnfreeze of string;;
-
-(* Cache that uses == instead of = for testing equality *)
-(* Invariant: an object is always in at most one of the *)
-(* following states: unchecked, frozen and cooked.      *)
-module Cache :
-  sig
-   val find_or_add_unchecked :
-    UriManager.uri -> get_object_to_add:(unit -> Cic.obj) -> Cic.obj
-   val unchecked_to_frozen : UriManager.uri -> unit
-   val frozen_to_cooked :
-    uri:UriManager.uri ->
-    cooking_procedure:
-     (object_to_cook:Cic.obj ->
-      add_cooked:(UriManager.uri * int-> Cic.obj -> unit)
-      -> unit
-     )
-    -> unit
-   val find_cooked : key:(UriManager.uri * int) -> Cic.obj
-  end 
-=
-  struct
-   module CacheOfCookedObjects :
-    sig
-     val mem  : UriManager.uri -> int -> bool
-     val find : UriManager.uri -> int -> Cic.obj
-     val add  : UriManager.uri -> int -> Cic.obj -> unit
-    end
-   =
-    struct
-     module HashedType =
-      struct
-       type t = UriManager.uri
-       let equal = UriManager.eq
-       let hash = Hashtbl.hash
-      end
-     ;;
-     module HT = Hashtbl.Make(HashedType);;
-     let hashtable = HT.create 1009;;
-     let mem uri cookingsno =
-      try
-       let cooked_list =
-        HT.find hashtable uri
-       in
-        List.mem_assq cookingsno !cooked_list
-      with
-       Not_found -> false
-     ;;
-     let find uri cookingsno =
-      List.assq cookingsno !(HT.find hashtable uri)
-     ;;
-     let add uri cookingsno obj =
-      let cooked_list =
-       try
-        HT.find hashtable uri
-       with
-        Not_found ->
-         let newl = ref [] in
-          HT.add hashtable uri newl ;
-          newl
-      in
-       cooked_list := (cookingsno,obj)::!cooked_list
-     ;;
-    end
-   ;;
-   let frozen_list = ref [];;
-   let unchecked_list = ref [];;
-
-   let find_or_add_unchecked uri ~get_object_to_add =
-    try
-     List.assq uri !unchecked_list
-    with
-     Not_found ->
-      if List.mem_assq uri !frozen_list then
-       raise (CircularDependency (UriManager.string_of_uri uri))
-      else
-       if CacheOfCookedObjects.mem uri 0 then
-        raise (AlreadyCooked (UriManager.string_of_uri uri))
-       else
-        (* OK, it is not already frozen nor cooked *)
-        let obj = get_object_to_add () in
-         unchecked_list := (uri,obj)::!unchecked_list ;
-         obj
-   ;;
-   let unchecked_to_frozen uri =
-    try
-     let obj = List.assq uri !unchecked_list in
-      unchecked_list := List.remove_assq uri !unchecked_list ;
-      frozen_list := (uri,obj)::!frozen_list
-    with
-     Not_found -> raise (CouldNotFreeze (UriManager.string_of_uri uri))
-   ;;
-   let frozen_to_cooked ~uri ~cooking_procedure =
-    try
-     let obj = List.assq uri !frozen_list in
-      frozen_list := List.remove_assq uri !frozen_list ;
-      cooking_procedure
-       ~object_to_cook:obj
-       ~add_cooked:(fun (uri,cookno) -> CacheOfCookedObjects.add uri cookno)
-    with
-     Not_found -> raise (CouldNotUnfreeze (UriManager.string_of_uri uri))
-   ;;
-   let find_cooked (uri,cookingsno)= CacheOfCookedObjects.find uri cookingsno;;
-  end
-;;
-
-(* get_cooked_obj uri                                                               *)
-(* returns the cooked cic object whose uri is uri. The term must be present  *)
-(* and cooked in cache                                                       *)
-let get_cooked_obj uri cookingsno =
- Cache.find_cooked (uri,cookingsno)
-;;
-
-let find_or_add_unchecked_to_cache uri =
- Cache.find_or_add_unchecked uri
-  ~get_object_to_add:
-   (function () ->
-     let filename = Getter.getxml uri in
-      let obj = CicParser.obj_of_xml filename uri in
-       obj
-   )
-;;
-
-(* get_obj uri                                                                *)
-(* returns the cic object whose uri is uri. If the term is not just in cache, *)
-(* then it is parsed via CicParser.term_of_xml from the file whose name is    *)
-(* the result of Getter.getxml uri                                            *)
-let get_obj uri =
- try
-  get_cooked_obj uri 0
- with
-  Not_found ->
-   find_or_add_unchecked_to_cache uri
-;; 
-
-(* is_type_checked uri                                                *)
-(* CSC: commento falso ed obsoleto *)
-(* returns a CheckedObj if the term has been type-checked             *)
-(* otherwise it freezes the term for type-checking and returns
- it *)
-(* set_type_checking_info must be called to unfreeze the term         *)
-let is_type_checked uri cookingsno =
- try
-  CheckedObj (Cache.find_cooked (uri,cookingsno))
- with
-  Not_found ->
-   let obj = find_or_add_unchecked_to_cache uri in
-    Cache.unchecked_to_frozen uri ;
-    UncheckedObj obj
-;;
-
-(* set_type_checking_info uri                               *)
-(* must be called once the type-checking of uri is finished *)
-(* The object whose uri is uri is unfreezed                 *)
-let set_type_checking_info uri =
- Cache.frozen_to_cooked uri
-  (fun ~object_to_cook:obj ~add_cooked ->
-    (* let's cook the object at every level *)
-    let obj' = CicSubstitution.undebrujin_inductive_def uri obj in
-     add_cooked (uri,0) obj' ;
-     let cooked_objs = !cook_obj obj' uri in
-      let last_cooked_level = ref 0 in
-      let last_cooked_obj = ref obj' in
-       List.iter
-        (fun (n,cobj) ->
-          for i = !last_cooked_level + 1 to n do
-           add_cooked (uri,i) !last_cooked_obj
-          done ;
-          add_cooked (uri,n + 1) cobj ;
-          last_cooked_level := n + 1 ;
-          last_cooked_obj := cobj
-        ) cooked_objs ;
-       for i = !last_cooked_level + 1 to UriManager.depth_of_uri uri + 1 do
-        add_cooked (uri,i) !last_cooked_obj
-       done
-  )
-;;

diff --git a/helm/ocaml/cic_proof_checking/cicEnvironment.mli b/helm/ocaml/cic_proof_checking/cicEnvironment.mli
deleted file mode 100644 (file)
index b781a5c..0000000
--- a/helm/ocaml/cic_proof_checking/cicEnvironment.mli
+++ /dev/null
@@ -1,67 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module implements a trival cache system (an hash-table) for cic       *)(* objects. Uses the getter (getter.ml) and the parser (cicParser.ml)         *)(*                                                                            *)
-(******************************************************************************)
-
-exception CircularDependency of string;;
-
-(* get_obj uri                                                                *)
-(* returns the cic object whose uri is uri. If the term is not just in cache, *)
-(* then it is parsed via CicParser.term_of_xml from the file whose name is    *)
-(* the result of Getter.get uri                                               *)
-val get_obj : UriManager.uri -> Cic.obj
-
-type type_checked_obj =
-   CheckedObj of Cic.obj    (* cooked obj *)
- | UncheckedObj of Cic.obj  (* uncooked obj *)
-
-(* is_type_checked uri cookingsno                                   *)
-(*CSC commento falso ed obsoleto *)
-(* returns (true,object) if the object has been type-checked        *)
-(* otherwise it returns (false,object) and freeze the object for    *)
-(* type-checking                                                    *)
-(* set_type_checking_info must be called to unfreeze the object     *)
-val is_type_checked : UriManager.uri -> int -> type_checked_obj
-
-(* set_type_checking_info uri                                         *)
-(* must be called once the type-checking of uri is finished           *)
-(* The object whose uri is uri is unfreezed and won't be type-checked *)
-(* again in the future (is_type_checked will return true)             *)
-val set_type_checking_info : UriManager.uri -> unit
-
-(* get_cooked_obj uri cookingsno *)
-val get_cooked_obj : UriManager.uri -> int -> Cic.obj
-
-(* set_cooking_function cooking_function *)
-val set_cooking_function :
- (Cic.obj -> UriManager.uri -> (int * Cic.obj) list) -> unit

diff --git a/helm/ocaml/cic_proof_checking/cicMiniReduction.ml b/helm/ocaml/cic_proof_checking/cicMiniReduction.ml
deleted file mode 100644 (file)
index cb5875f..0000000
--- a/helm/ocaml/cic_proof_checking/cicMiniReduction.ml
+++ /dev/null
@@ -1,60 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-let rec letin_nf =
- let module C = Cic in
-  function
-     C.Rel _ as t -> t
-   | C.Var _ as t  -> t
-   | C.Meta _ as t -> t
-   | C.Sort _ as t -> t
-   | C.Implicit as t -> t
-   | C.Cast (te,ty) -> C.Cast (letin_nf te, letin_nf ty)
-   | C.Prod (n,s,t) -> C.Prod (n, letin_nf s, letin_nf t)
-   | C.Lambda (n,s,t) -> C.Lambda (n, letin_nf s, letin_nf t)
-   | C.LetIn (n,s,t) -> CicSubstitution.subst (letin_nf s) t
-   | C.Appl l -> C.Appl (List.map letin_nf l)
-   | C.Const _ as t -> t
-   | C.Abst _ as t -> t
-   | C.MutInd _ as t -> t
-   | C.MutConstruct _ as t -> t
-   | C.MutCase (sp,cookingsno,i,outt,t,pl) ->
-      C.MutCase (sp,cookingsno,i,letin_nf outt, letin_nf t,
-       List.map letin_nf pl)
-   | C.Fix (i,fl) ->
-      let substitutedfl =
-       List.map
-        (fun (name,i,ty,bo) -> (name, i, letin_nf ty, letin_nf bo))
-         fl
-      in
-       C.Fix (i, substitutedfl)
-   | C.CoFix (i,fl) ->
-      let substitutedfl =
-       List.map
-        (fun (name,ty,bo) -> (name, letin_nf ty, letin_nf bo))
-         fl
-      in
-       C.CoFix (i, substitutedfl)
-;;

diff --git a/helm/ocaml/cic_proof_checking/cicMiniReduction.mli b/helm/ocaml/cic_proof_checking/cicMiniReduction.mli
deleted file mode 100644 (file)
index c923c6a..0000000
--- a/helm/ocaml/cic_proof_checking/cicMiniReduction.mli
+++ /dev/null
@@ -1,26 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-val letin_nf : Cic.term -> Cic.term

diff --git a/helm/ocaml/cic_proof_checking/cicPp.ml b/helm/ocaml/cic_proof_checking/cicPp.ml
deleted file mode 100644 (file)
index 745a203..0000000
--- a/helm/ocaml/cic_proof_checking/cicPp.ml
+++ /dev/null
@@ -1,221 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module implements a very simple Coq-like pretty printer that, given   *)
-(* an object of cic (internal representation) returns a string describing the *)
-(* object in a syntax similar to that of coq                                  *)
-(*                                                                            *)
-(******************************************************************************)
-
-exception CicPpInternalError;;
-exception NotEnoughElements;;
-
-(* Utility functions *)
-
-let string_of_name =
- function
-    Cic.Name s     -> s
-  | Cic.Anonimous  -> "_"
-;;
-
-(* get_nth l n   returns the nth element of the list l if it exists or *)
-(* raises NotEnoughElements if l has less than n elements             *)
-let rec get_nth l n =
- match (n,l) with
-    (1, he::_) -> he
-  | (n, he::tail) when n > 1 -> get_nth tail (n-1)
-  | (_,_) -> raise NotEnoughElements
-;;
-
-(* pp t l                                                                  *)
-(* pretty-prints a term t of cic in an environment l where l is a list of  *)
-(* identifier names used to resolve DeBrujin indexes. The head of l is the *)
-(* name associated to the greatest DeBrujin index in t                     *)
-let rec pp t l =
- let module C = Cic in
-   match t with
-      C.Rel n ->
-       begin
-        try
-         (match get_nth l n with
-             C.Name s -> s
-           | _        -> raise CicPpInternalError
-         )
-        with
-         NotEnoughElements -> string_of_int (List.length l - n)
-       end
-    | C.Var uri -> UriManager.name_of_uri uri
-    | C.Meta n -> "?" ^ (string_of_int n)
-    | C.Sort s ->
-       (match s with
-           C.Prop -> "Prop"
-         | C.Set  -> "Set"
-         | C.Type -> "Type"
-       )
-    | C.Implicit -> "?"
-    | C.Prod (b,s,t) ->
-       (match b with
-          C.Name n -> "(" ^ n ^ ":" ^ pp s l ^ ")" ^ pp t (b::l)
-        | C.Anonimous -> "(" ^ pp s l ^ "->" ^ pp t (b::l) ^ ")"
-       )
-    | C.Cast (v,t) -> pp v l
-    | C.Lambda (b,s,t) ->
-       "[" ^ string_of_name b ^ ":" ^ pp s l ^ "]" ^ pp t (b::l)
-    | C.LetIn (b,s,t) ->
-       "[" ^ string_of_name b ^ ":=" ^ pp s l ^ "]" ^ pp t (b::l)
-    | C.Appl li ->
-       "(" ^
-       (List.fold_right
-        (fun x i -> pp x l ^ (match i with "" -> "" | _ -> " ") ^ i)
-        li ""
-       ) ^ ")"
-    | C.Const (uri,_) -> UriManager.name_of_uri uri
-    | C.Abst uri -> UriManager.name_of_uri uri
-    | C.MutInd (uri,_,n) ->
-       (match CicEnvironment.get_obj uri with
-           C.InductiveDefinition (dl,_,_) ->
-            let (name,_,_,_) = get_nth dl (n+1) in
-             name
-         | _ -> raise CicPpInternalError
-       )
-    | C.MutConstruct (uri,_,n1,n2) ->
-       (match CicEnvironment.get_obj uri with
-           C.InductiveDefinition (dl,_,_) ->
-            let (_,_,_,cons) = get_nth dl (n1+1) in
-             let (id,_,_) = get_nth cons n2 in
-              id
-         | _ -> raise CicPpInternalError
-       )
-    | C.MutCase (uri,_,n1,ty,te,patterns) ->
-       let connames =
-        (match CicEnvironment.get_obj uri with
-            C.InductiveDefinition (dl,_,_) ->
-             let (_,_,_,cons) = get_nth dl (n1+1) in
-              List.map (fun (id,_,_) -> id) cons
-          | _ -> raise CicPpInternalError
-        )
-       in
-        "\n<" ^ pp ty l ^ ">Cases " ^ pp te l ^ " of " ^
-          List.fold_right (fun (x,y) i -> "\n " ^ x ^ " => " ^ pp y l ^ i)
-           (List.combine connames patterns) "" ^
-          "\nend"
-    | C.Fix (no, funs) ->
-       let snames = List.map (fun (name,_,_,_) -> name) funs in
-        let names = List.rev (List.map (function name -> C.Name name) snames) in
-         "\nFix " ^ get_nth snames (no + 1) ^ " {" ^
-         List.fold_right
-          (fun (name,ind,ty,bo) i -> "\n" ^ name ^ " / " ^ string_of_int ind ^
-            " : " ^ pp ty l ^ " := \n" ^
-            pp bo (names@l) ^ i)
-          funs "" ^
-         "}\n"
-    | C.CoFix (no,funs) ->
-       let snames = List.map (fun (name,_,_) -> name) funs in
-        let names = List.rev (List.map (function name -> C.Name name) snames) in
-         "\nCoFix " ^ get_nth snames (no + 1) ^ " {" ^
-         List.fold_right
-          (fun (name,ty,bo) i -> "\n" ^ name ^ 
-            " : " ^ pp ty l ^ " := \n" ^
-            pp bo (names@l) ^ i)
-          funs "" ^
-         "}\n"
-;;
-
-let ppterm t =
- pp t []
-;;
-
-(* ppinductiveType (typename, inductive, arity, cons) names                 *)
-(* pretty-prints a single inductive definition (typename, inductive, arity, *)
-(*  cons) where the cic terms in the inductive definition need to be        *)
-(*  evaluated in the environment names that is the list of typenames of the *)
-(*  mutual inductive definitions defined in the block of mutual inductive   *)
-(*  definitions to which this one belongs to                                *)
-let ppinductiveType (typename, inductive, arity, cons) names =
-  (if inductive then "\nInductive " else "\nCoInductive ") ^ typename ^ ": " ^
-  (*CSC: bug found: was pp arity names ^ " =\n   " ^*)
-  pp arity [] ^ " =\n   " ^
-  List.fold_right
-   (fun (id,ty,_) i -> id ^ " : " ^ pp ty names ^ 
-    (if i = "" then "\n" else "\n | ") ^ i)
-   cons ""
-;;
-
-(* ppobj obj  returns a string with describing the cic object obj in a syntax *)
-(* similar to the one used by Coq                                             *)
-let ppobj obj =
- let module C = Cic in
- let module U = UriManager in
-  match obj with
-    C.Definition (id, t1, t2, params) ->
-      "Definition of " ^ id ^
-      "(" ^
-      List.fold_right
-       (fun (_,x) i ->
-         List.fold_right
-          (fun x i ->
-            U.string_of_uri x ^ match i with "" -> "" | i' -> " " ^ i'
-          ) x "" ^ match i with "" -> "" | i' -> " " ^ i'
-       ) params "" ^ ")" ^
-      ":\n" ^ pp t1 [] ^ " : " ^ pp t2 []
-   | C.Axiom (id, ty, params) ->
-      "Axiom " ^ id ^ "(" ^
-      List.fold_right
-       (fun (_,x) i ->
-         List.fold_right
-          (fun x i ->
-            U.string_of_uri x ^ match i with "" -> "" | i' -> " " ^ i'
-          ) x "" ^ match i with "" -> "" | i' -> " " ^ i'
-       ) params "" ^
-      "):\n" ^ pp ty []
-   | C.Variable (name, bo, ty) ->
-      "Variable " ^ name ^ ":\n" ^ pp ty [] ^ "\n" ^
-      (match bo with None -> "" | Some bo -> ":= " ^ pp bo [])
-   | C.CurrentProof (name, conjectures, value, ty) ->
-      "Current Proof:\n" ^
-      List.fold_right
-       (fun (n, t) i -> "?" ^ (string_of_int n) ^ ": " ^ pp t [] ^ "\n" ^ i)
-       conjectures "" ^
-      "\n" ^ pp value [] ^ " : " ^ pp ty [] 
-   | C.InductiveDefinition (l, params, nparams) ->
-      "Parameters = " ^
-      List.fold_right
-       (fun (_,x) i ->
-         List.fold_right
-          (fun x i ->
-            U.string_of_uri x ^ match i with "" -> "" | i' -> " " ^ i'
-          ) x "" ^ match i with "" -> "" | i' -> " " ^ i'
-       ) params "" ^ "\n" ^
-      "NParams = " ^ string_of_int nparams ^ "\n" ^
-      let names = List.rev (List.map (fun (n,_,_,_) -> C.Name n) l) in
-       List.fold_right (fun x i -> ppinductiveType x names ^ i) l ""
-;;

diff --git a/helm/ocaml/cic_proof_checking/cicPp.mli b/helm/ocaml/cic_proof_checking/cicPp.mli
deleted file mode 100644 (file)
index 8d9071f..0000000
--- a/helm/ocaml/cic_proof_checking/cicPp.mli
+++ /dev/null
@@ -1,43 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(* This module implements a very simple Coq-like pretty printer that, given   *)
-(* an object of cic (internal representation) returns a string describing the *)
-(* object in a syntax similar to that of coq                                  *)
-(*                                                                            *)
-(******************************************************************************)
-
-(* ppobj obj  returns a string with describing the cic object obj in a syntax *)
-(* similar to the one used by Coq                                             *)
-val ppobj : Cic.obj -> string
-
-val ppterm : Cic.term -> string

diff --git a/helm/ocaml/cic_proof_checking/cicReduction.ml b/helm/ocaml/cic_proof_checking/cicReduction.ml
deleted file mode 100644 (file)
index ac1b50d..0000000
--- a/helm/ocaml/cic_proof_checking/cicReduction.ml
+++ /dev/null
@@ -1,265 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception CicReductionInternalError;;
-exception WrongUriToInductiveDefinition;;
-
-let fdebug = ref 1;;
-let debug t env s =
- let rec debug_aux t i =
-  let module C = Cic in
-  let module U = UriManager in
-   CicPp.ppobj (C.Variable ("DEBUG", None, t)) ^ "\n" ^ i
- in
-  if !fdebug = 0 then
-   begin
-    print_endline (s ^ "\n" ^ List.fold_right debug_aux (t::env) "") ;
-    flush stdout
-   end
-;;
-
-exception Impossible of int;;
-exception ReferenceToDefinition;;
-exception ReferenceToAxiom;;
-exception ReferenceToVariable;;
-exception ReferenceToCurrentProof;;
-exception ReferenceToInductiveDefinition;;
-
-(* takes a well-typed term *)
-let whd =
- let rec whdaux l =
-  let module C = Cic in
-  let module S = CicSubstitution in
-   function
-      C.Rel _ as t -> if l = [] then t else C.Appl (t::l)
-    | C.Var uri as t ->
-       (match CicEnvironment.get_cooked_obj uri 0 with
-           C.Definition _ -> raise ReferenceToDefinition
-         | C.Axiom _ -> raise ReferenceToAxiom
-         | C.CurrentProof _ -> raise ReferenceToCurrentProof
-         | C.InductiveDefinition _ -> raise ReferenceToInductiveDefinition
-         | C.Variable (_,None,_) -> if l = [] then t else C.Appl (t::l)
-         | C.Variable (_,Some body,_) -> whdaux l body
-       )
-    | C.Meta _ as t -> if l = [] then t else C.Appl (t::l)
-    | C.Sort _ as t -> t (* l should be empty *)
-    | C.Implicit as t -> t
-    | C.Cast (te,ty) -> whdaux l te  (*CSC E' GIUSTO BUTTARE IL CAST? *)
-    | C.Prod _ as t -> t (* l should be empty *)
-    | C.Lambda (name,s,t) as t' ->
-       (match l with
-           [] -> t'
-         | he::tl -> whdaux tl (S.subst he t)
-           (* when name is Anonimous the substitution should be superfluous *)
-       )
-    | C.LetIn (n,s,t) -> whdaux l (S.subst (whdaux [] s) t)
-    | C.Appl (he::tl) -> whdaux (tl@l) he
-    | C.Appl [] -> raise (Impossible 1)
-    | C.Const (uri,cookingsno) as t ->
-       (match CicEnvironment.get_cooked_obj uri cookingsno with
-           C.Definition (_,body,_,_) -> whdaux l body
-         | C.Axiom _ -> if l = [] then t else C.Appl (t::l)
-         | C.Variable _ -> raise ReferenceToVariable
-         | C.CurrentProof (_,_,body,_) -> whdaux l body
-         | C.InductiveDefinition _ -> raise ReferenceToInductiveDefinition
-       )
-    | C.Abst _ as t -> t (*CSC l should be empty ????? *)
-    | C.MutInd (uri,_,_) as t -> if l = [] then t else C.Appl (t::l)
-    | C.MutConstruct (uri,_,_,_) as t -> if l = [] then t else C.Appl (t::l)
-    | C.MutCase (mutind,cookingsno,i,_,term,pl) as t ->
-       let decofix =
-        function
-           C.CoFix (i,fl) as t ->
-            let (_,_,body) = List.nth fl i in
-             let body' =
-              let counter = ref (List.length fl) in
-               List.fold_right
-                (fun _ -> decr counter ; S.subst (C.CoFix (!counter,fl)))
-                fl
-                body
-             in
-              whdaux [] body'
-         | C.Appl (C.CoFix (i,fl) :: tl) ->
-            let (_,_,body) = List.nth fl i in
-             let body' =
-              let counter = ref (List.length fl) in
-               List.fold_right
-                (fun _ -> decr counter ; S.subst (C.CoFix (!counter,fl)))
-                fl
-                body
-             in
-              whdaux tl body'
-         | t -> t
-       in
-        (match decofix (whdaux [] term) with
-            C.MutConstruct (_,_,_,j) -> whdaux l (List.nth pl (j-1))
-          | C.Appl (C.MutConstruct (_,_,_,j) :: tl) ->
-             let (arity, r, num_ingredients) =
-              match CicEnvironment.get_obj mutind with
-                 C.InductiveDefinition (tl,ingredients,r) ->
-                   let (_,_,arity,_) = List.nth tl i
-                   and num_ingredients =
-                    List.fold_right
-                     (fun (k,l) i ->
-                       if k < cookingsno then i + List.length l else i
-                     ) ingredients 0
-                   in
-                    (arity,r,num_ingredients)
-               | _ -> raise WrongUriToInductiveDefinition
-             in
-              let ts =
-               let num_to_eat = r + num_ingredients in
-                let rec eat_first =
-                 function
-                    (0,l) -> l
-                  | (n,he::tl) when n > 0 -> eat_first (n - 1, tl)
-                  | _ -> raise (Impossible 5)
-                in
-                 eat_first (num_to_eat,tl)
-              in
-               whdaux (ts@l) (List.nth pl (j-1))
-         | C.Abst _| C.Cast _ | C.Implicit ->
-            raise (Impossible 2) (* we don't trust our whd ;-) *)
-         | _ -> t
-       )
-    | C.Fix (i,fl) as t ->
-       let (_,recindex,_,body) = List.nth fl i in
-        let recparam =
-         try
-          Some (List.nth l recindex)
-         with
-          _ -> None
-        in
-         (match recparam with
-             Some recparam ->
-              (match whdaux [] recparam with
-                  C.MutConstruct _
-                | C.Appl ((C.MutConstruct _)::_) ->
-                   let body' =
-                    let counter = ref (List.length fl) in
-                     List.fold_right
-                      (fun _ -> decr counter ; S.subst (C.Fix (!counter,fl)))
-                      fl
-                      body
-                   in
-                    (* Possible optimization: substituting whd recparam in l *)
-                    whdaux l body'
-               | _ -> if l = [] then t else C.Appl (t::l)
-             )
-          | None -> if l = [] then t else C.Appl (t::l)
-         )
-    | C.CoFix (i,fl) as t ->
-       (*CSC vecchio codice
-       let (_,_,body) = List.nth fl i in
-        let body' =
-         let counter = ref (List.length fl) in
-          List.fold_right
-           (fun _ -> decr counter ; S.subst (C.CoFix (!counter,fl)))
-           fl
-           body
-        in
-         whdaux l body'
-       *)
-       if l = [] then t else C.Appl (t::l)
- in
-  whdaux []
-;;
-
-(* t1, t2 must be well-typed *)
-let are_convertible t1 t2 =
- let module U = UriManager in
- let rec aux t1 t2 =
-  debug t1 [t2] "PREWHD";
-  (* this trivial euristic cuts down the total time of about five times ;-) *)
-  (* this because most of the time t1 and t2 are "sintactically" the same   *)
-  if t1 = t2 then
-   true
-  else
-   begin
-    let module C = Cic in
-     let t1' = whd t1 
-     and t2' = whd t2 in
-     debug t1' [t2'] "POSTWHD";
-      match (t1',t2') with
-         (C.Rel n1, C.Rel n2) -> n1 = n2
-       | (C.Var uri1, C.Var uri2) -> U.eq uri1 uri2
-       | (C.Meta n1, C.Meta n2) -> n1 = n2
-       | (C.Sort s1, C.Sort s2) -> true (*CSC da finire con gli universi *)
-       | (C.Prod (_,s1,t1), C.Prod(_,s2,t2)) ->
-          aux s1 s2 && aux t1 t2
-       | (C.Lambda (_,s1,t1), C.Lambda(_,s2,t2)) ->
-          aux s1 s2 && aux t1 t2
-       | (C.Appl l1, C.Appl l2) ->
-          (try
-            List.fold_right2 (fun  x y b -> aux x y && b) l1 l2 true 
-           with
-            Invalid_argument _ -> false
-          )
-       | (C.Const (uri1,_), C.Const (uri2,_)) ->
-           (*CSC: questo commento e' chiaro o delirante? Io lo sto scrivendo *)
-           (*CSC: mentre sono delirante, quindi ...                          *)
-           (* WARNING: it is really important that the two cookingsno are not *)
-           (* checked for equality. This allows not to cook an object with no *)
-           (* ingredients only to update the cookingsno. E.g: if a term t has *)
-           (* a reference to a term t1 which does not depend on any variable  *)
-           (* and t1 depends on a term t2 (that can't depend on any variable  *)
-           (* because of t1), then t1 cooked at every level could be the same *)
-           (* as t1 cooked at level 0. Doing so, t2 will be extended in t     *)
-           (* with cookingsno 0 and not 2. But this will not cause any trouble*)
-           (* if here we don't check that the two cookingsno are equal.       *)
-           U.eq uri1 uri2
-       | (C.MutInd (uri1,k1,i1), C.MutInd (uri2,k2,i2)) ->
-           (* WARNIG: see the previous warning *)
-           U.eq uri1 uri2 && i1 = i2
-       | (C.MutConstruct (uri1,_,i1,j1), C.MutConstruct (uri2,_,i2,j2)) ->
-           (* WARNIG: see the previous warning *)
-           U.eq uri1 uri2 && i1 = i2 && j1 = j2
-       | (C.MutCase (uri1,_,i1,outtype1,term1,pl1),
-          C.MutCase (uri2,_,i2,outtype2,term2,pl2)) -> 
-           (* WARNIG: see the previous warning *)
-           (* aux outtype1 outtype2 should be true if aux pl1 pl2 *)
-           U.eq uri1 uri2 && i1 = i2 && aux outtype1 outtype2 &&
-            aux term1 term2 &&
-            List.fold_right2 (fun x y b -> b && aux x y) pl1 pl2 true
-       | (C.Fix (i1,fl1), C.Fix (i2,fl2)) ->
-          i1 = i2 &&
-           List.fold_right2
-            (fun (_,recindex1,ty1,bo1) (_,recindex2,ty2,bo2) b ->
-              b && recindex1 = recindex2 && aux ty1 ty2 && aux bo1 bo2)
-            fl1 fl2 true
-       | (C.CoFix (i1,fl1), C.CoFix (i2,fl2)) ->
-          i1 = i2 &&
-           List.fold_right2
-            (fun (_,ty1,bo1) (_,ty2,bo2) b ->
-              b && aux ty1 ty2 && aux bo1 bo2)
-            fl1 fl2 true
-       | (C.Abst _, _) | (_, C.Abst _) | (C.Cast _, _) | (_, C.Cast _)
-       | (C.Implicit, _) | (_, C.Implicit) ->
-          raise (Impossible 3) (* we don't trust our whd ;-) *)
-       | (_,_) -> false
-   end
- in
-  aux t1 t2
-;;

diff --git a/helm/ocaml/cic_proof_checking/cicReduction.mli b/helm/ocaml/cic_proof_checking/cicReduction.mli
deleted file mode 100644 (file)
index d61bc72..0000000
--- a/helm/ocaml/cic_proof_checking/cicReduction.mli
+++ /dev/null
@@ -1,34 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception WrongUriToInductiveDefinition
-exception ReferenceToDefinition
-exception ReferenceToAxiom
-exception ReferenceToVariable
-exception ReferenceToCurrentProof
-exception ReferenceToInductiveDefinition
-val fdebug : int ref
-val whd : Cic.term -> Cic.term
-val are_convertible : Cic.term -> Cic.term -> bool

diff --git a/helm/ocaml/cic_proof_checking/cicSubstitution.ml b/helm/ocaml/cic_proof_checking/cicSubstitution.ml
deleted file mode 100644 (file)
index a4ca7b5..0000000
--- a/helm/ocaml/cic_proof_checking/cicSubstitution.ml
+++ /dev/null
@@ -1,145 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-let lift n =
- let rec liftaux k =
-  let module C = Cic in
-   function
-      C.Rel m ->
-       if m < k then
-        C.Rel m
-       else
-        C.Rel (m + n)
-    | C.Var _  as t -> t
-    | C.Meta _ as t -> t
-    | C.Sort _ as t -> t
-    | C.Implicit as t -> t
-    | C.Cast (te,ty) -> C.Cast (liftaux k te, liftaux k ty)
-    | C.Prod (n,s,t) -> C.Prod (n, liftaux k s, liftaux (k+1) t)
-    | C.Lambda (n,s,t) -> C.Lambda (n, liftaux k s, liftaux (k+1) t)
-    | C.LetIn (n,s,t) -> C.LetIn (n, liftaux k s, liftaux (k+1) t)
-    | C.Appl l -> C.Appl (List.map (liftaux k) l)
-    | C.Const _ as t -> t
-    | C.Abst _  as t -> t
-    | C.MutInd _ as t -> t
-    | C.MutConstruct _ as t -> t
-    | C.MutCase (sp,cookingsno,i,outty,t,pl) ->
-       C.MutCase (sp, cookingsno, i, liftaux k outty, liftaux k t,
-        List.map (liftaux k) pl)
-    | C.Fix (i, fl) ->
-       let len = List.length fl in
-       let liftedfl =
-        List.map
-         (fun (name, i, ty, bo) -> (name, i, liftaux k ty, liftaux (k+len) bo))
-          fl
-       in
-        C.Fix (i, liftedfl)
-    | C.CoFix (i, fl) ->
-       let len = List.length fl in
-       let liftedfl =
-        List.map
-         (fun (name, ty, bo) -> (name, liftaux k ty, liftaux (k+len) bo))
-          fl
-       in
-        C.CoFix (i, liftedfl)
- in
-  if n = 0 then
-   (function t -> t)
-  else
-   liftaux 1
-;;
-
-let subst arg =
- let rec substaux k =
-  let module C = Cic in
-   function
-      C.Rel n as t ->
-       (match n with
-           n when n = k -> lift (k - 1) arg
-         | n when n < k -> t
-         | _            -> C.Rel (n - 1)
-       )
-    | C.Var _ as t  -> t
-    | C.Meta _ as t -> t
-    | C.Sort _ as t -> t
-    | C.Implicit as t -> t
-    | C.Cast (te,ty) -> C.Cast (substaux k te, substaux k ty) (*CSC ??? *)
-    | C.Prod (n,s,t) -> C.Prod (n, substaux k s, substaux (k + 1) t)
-    | C.Lambda (n,s,t) -> C.Lambda (n, substaux k s, substaux (k + 1) t)
-    | C.LetIn (n,s,t) -> C.LetIn (n, substaux k s, substaux (k + 1) t)
-    | C.Appl l -> C.Appl (List.map (substaux k) l)
-    | C.Const _ as t -> t
-    | C.Abst _ as t -> t
-    | C.MutInd _ as t -> t
-    | C.MutConstruct _ as t -> t
-    | C.MutCase (sp,cookingsno,i,outt,t,pl) ->
-       C.MutCase (sp,cookingsno,i,substaux k outt, substaux k t,
-        List.map (substaux k) pl)
-    | C.Fix (i,fl) ->
-       let len = List.length fl in
-       let substitutedfl =
-        List.map
-         (fun (name,i,ty,bo) -> (name, i, substaux k ty, substaux (k+len) bo))
-          fl
-       in
-        C.Fix (i, substitutedfl)
-    | C.CoFix (i,fl) ->
-       let len = List.length fl in
-       let substitutedfl =
-        List.map
-         (fun (name,ty,bo) -> (name, substaux k ty, substaux (k+len) bo))
-          fl
-       in
-        C.CoFix (i, substitutedfl)
- in
-  substaux 1
-;;
-
-let undebrujin_inductive_def uri =
- function
-    Cic.InductiveDefinition (dl,params,n_ind_params) ->
-     let dl' =
-      List.map
-       (fun (name,inductive,arity,constructors) ->
-         let constructors' =
-          List.map
-           (fun (name,ty,r) ->
-             let ty' =
-              let counter = ref (List.length dl) in
-               List.fold_right
-                (fun _ ->
-                  decr counter ;
-                  subst (Cic.MutInd (uri,0,!counter))
-                ) dl ty
-             in
-              (name,ty',r)
-           ) constructors
-         in
-          (name,inductive,arity,constructors')
-       ) dl
-      in
-       Cic.InductiveDefinition (dl', params, n_ind_params)
-  | obj -> obj
-;;

diff --git a/helm/ocaml/cic_proof_checking/cicSubstitution.mli b/helm/ocaml/cic_proof_checking/cicSubstitution.mli
deleted file mode 100644 (file)
index 72e9a32..0000000
--- a/helm/ocaml/cic_proof_checking/cicSubstitution.mli
+++ /dev/null
@@ -1,28 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-val lift : int -> Cic.term -> Cic.term
-val subst : Cic.term -> Cic.term -> Cic.term
-val undebrujin_inductive_def : UriManager.uri -> Cic.obj -> Cic.obj

diff --git a/helm/ocaml/cic_proof_checking/cicTypeChecker.ml b/helm/ocaml/cic_proof_checking/cicTypeChecker.ml
deleted file mode 100644 (file)
index 63366b4..0000000
--- a/helm/ocaml/cic_proof_checking/cicTypeChecker.ml
+++ /dev/null
@@ -1,1372 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception NotImplemented;;
-exception Impossible of int;;
-exception NotWellTyped of string;;
-exception WrongUriToConstant of string;;
-exception WrongUriToVariable of string;;
-exception WrongUriToMutualInductiveDefinitions of string;;
-exception ListTooShort;;
-exception NotPositiveOccurrences of string;;
-exception NotWellFormedTypeOfInductiveConstructor of string;;
-exception WrongRequiredArgument of string;;
-
-let log =
- let module U = UriManager in
-  let indent = ref 0 in
-   function
-      `Start_type_checking uri ->
-        print_string (
-         (String.make !indent ' ') ^
-         "<div style=\"margin-left: " ^
-         string_of_float (float_of_int !indent *. 0.5) ^ "cm\">" ^
-         "Type-Checking of " ^ (U.string_of_uri uri) ^ " started</div>\n"
-        ) ;
-        flush stdout ;
-        incr indent
-    | `Type_checking_completed uri ->
-        decr indent ;
-        print_string (
-         (String.make !indent ' ') ^
-         "<div style=\"color: green ; margin-left: " ^
-         string_of_float (float_of_int !indent *. 0.5) ^ "cm\">" ^
-         "Type-Checking of " ^ (U.string_of_uri uri) ^ " completed.</div>\n"
-        ) ;
-        flush stdout
-;;
-
-let fdebug = ref 0;;
-let debug t env =
- let rec debug_aux t i =
-  let module C = Cic in
-  let module U = UriManager in
-   CicPp.ppobj (C.Variable ("DEBUG", None, t)) ^ "\n" ^ i
- in
-  if !fdebug = 0 then
-   raise (NotWellTyped ("\n" ^ List.fold_right debug_aux (t::env) ""))
-   (*print_endline ("\n" ^ List.fold_right debug_aux (t::env) "") ; flush stdout*)
-;;
-
-let rec split l n =
- match (l,n) with
-    (l,0) -> ([], l)
-  | (he::tl, n) -> let (l1,l2) = split tl (n-1) in (he::l1,l2)
-  | (_,_) -> raise ListTooShort
-;;
-
-exception CicEnvironmentError;;
-
-let rec cooked_type_of_constant uri cookingsno =
- let module C = Cic in
- let module R = CicReduction in
- let module U = UriManager in
-  let cobj =
-   match CicEnvironment.is_type_checked uri cookingsno with
-      CicEnvironment.CheckedObj cobj -> cobj
-    | CicEnvironment.UncheckedObj uobj ->
-       log (`Start_type_checking uri) ;
-       (* let's typecheck the uncooked obj *)
-       (match uobj with
-           C.Definition (_,te,ty,_) ->
-             let _ = type_of ty in
-              if not (R.are_convertible (type_of te) ty) then
-               raise (NotWellTyped ("Constant " ^ (U.string_of_uri uri)))
-         | C.Axiom (_,ty,_) ->
-           (* only to check that ty is well-typed *)
-           let _ = type_of ty in ()
-         | C.CurrentProof (_,_,te,ty) ->
-             let _ = type_of ty in
-              if not (R.are_convertible (type_of te) ty) then
-               raise (NotWellTyped ("CurrentProof" ^ (U.string_of_uri uri)))
-         | _ -> raise (WrongUriToConstant (U.string_of_uri uri))
-       ) ;
-       CicEnvironment.set_type_checking_info uri ;
-       log (`Type_checking_completed uri) ;
-       match CicEnvironment.is_type_checked uri cookingsno with
-          CicEnvironment.CheckedObj cobj -> cobj
-        | CicEnvironment.UncheckedObj _ -> raise CicEnvironmentError
-  in
-   match cobj with
-      C.Definition (_,_,ty,_) -> ty
-    | C.Axiom (_,ty,_) -> ty
-    | C.CurrentProof (_,_,_,ty) -> ty
-    | _ -> raise (WrongUriToConstant (U.string_of_uri uri))
-
-and type_of_variable uri =
- let module C = Cic in
- let module R = CicReduction in
- let module U = UriManager in
-  (* 0 because a variable is never cooked => no partial cooking at one level *)
-  match CicEnvironment.is_type_checked uri 0 with
-     CicEnvironment.CheckedObj (C.Variable (_,_,ty)) -> ty
-   | CicEnvironment.UncheckedObj (C.Variable (_,bo,ty)) ->
-       log (`Start_type_checking uri) ;
-      (* only to check that ty is well-typed *)
-      let _ = type_of ty in
-       (match bo with
-           None -> ()
-         | Some bo ->
-            if not (R.are_convertible (type_of bo) ty) then
-             raise (NotWellTyped ("Variable " ^ (U.string_of_uri uri)))
-       ) ;
-       CicEnvironment.set_type_checking_info uri ;
-       log (`Type_checking_completed uri) ;
-       ty
-   |  _ -> raise (WrongUriToVariable (UriManager.string_of_uri uri))
-
-and does_not_occur n nn te =
- let module C = Cic in
-   (*CSC: whd sembra essere superflua perche' un caso in cui l'occorrenza *)
-   (*CSC: venga mangiata durante la whd sembra presentare problemi di *)
-   (*CSC: universi                                                    *)
-   match CicReduction.whd te with
-      C.Rel m when m > n && m <= nn -> false
-    | C.Rel _
-    | C.Var _
-    | C.Meta _
-    | C.Sort _
-    | C.Implicit -> true
-    | C.Cast (te,ty) -> does_not_occur n nn te && does_not_occur n nn ty
-    | C.Prod (_,so,dest) ->
-       does_not_occur n nn so && does_not_occur (n + 1) (nn + 1) dest
-    | C.Lambda (_,so,dest) ->
-       does_not_occur n nn so && does_not_occur (n + 1) (nn + 1) dest
-    | C.LetIn (_,so,dest) ->
-       does_not_occur n nn so && does_not_occur (n + 1) (nn + 1) dest
-    | C.Appl l ->
-       List.fold_right (fun x i -> i && does_not_occur n nn x) l true
-    | C.Const _
-    | C.Abst _
-    | C.MutInd _
-    | C.MutConstruct _ -> true
-    | C.MutCase (_,_,_,out,te,pl) ->
-       does_not_occur n nn out && does_not_occur n nn te &&
-        List.fold_right (fun x i -> i && does_not_occur n nn x) pl true
-    | C.Fix (_,fl) ->
-       let len = List.length fl in
-        let n_plus_len = n + len in
-        let nn_plus_len = nn + len in
-         List.fold_right
-          (fun (_,_,ty,bo) i ->
-            i && does_not_occur n_plus_len nn_plus_len ty &&
-            does_not_occur n_plus_len nn_plus_len bo
-          ) fl true
-    | C.CoFix (_,fl) ->
-       let len = List.length fl in
-        let n_plus_len = n + len in
-        let nn_plus_len = nn + len in
-         List.fold_right
-          (fun (_,ty,bo) i ->
-            i && does_not_occur n_plus_len nn_plus_len ty &&
-            does_not_occur n_plus_len nn_plus_len bo
-          ) fl true
-
-(*CSC l'indice x dei tipi induttivi e' t.c. n < x <= nn *)
-(*CSC questa funzione e' simile alla are_all_occurrences_positive, ma fa *)
-(*CSC dei controlli leggermente diversi. Viene invocata solamente dalla  *)
-(*CSC strictly_positive                                                  *)
-(*CSC definizione (giusta???) tratta dalla mail di Hugo ;-)              *)
-and weakly_positive n nn uri te =
- let module C = Cic in
-  (*CSC mettere in cicSubstitution *)
-  let rec subst_inductive_type_with_dummy_rel =
-   function
-      C.MutInd (uri',_,0) when UriManager.eq uri' uri ->
-       C.Rel 0 (* dummy rel *)
-    | C.Appl ((C.MutInd (uri',_,0))::tl) when UriManager.eq uri' uri ->
-       C.Rel 0 (* dummy rel *)
-    | C.Cast (te,ty) -> subst_inductive_type_with_dummy_rel te
-    | C.Prod (name,so,ta) ->
-       C.Prod (name, subst_inductive_type_with_dummy_rel so,
-        subst_inductive_type_with_dummy_rel ta)
-    | C.Lambda (name,so,ta) ->
-       C.Lambda (name, subst_inductive_type_with_dummy_rel so,
-        subst_inductive_type_with_dummy_rel ta)
-    | C.Appl tl ->
-       C.Appl (List.map subst_inductive_type_with_dummy_rel tl)
-    | C.MutCase (uri,cookingsno,i,outtype,term,pl) ->
-       C.MutCase (uri,cookingsno,i,
-        subst_inductive_type_with_dummy_rel outtype,
-        subst_inductive_type_with_dummy_rel term,
-        List.map subst_inductive_type_with_dummy_rel pl)
-    | C.Fix (i,fl) ->
-       C.Fix (i,List.map (fun (name,i,ty,bo) -> (name,i,
-        subst_inductive_type_with_dummy_rel ty,
-        subst_inductive_type_with_dummy_rel bo)) fl)
-    | C.CoFix (i,fl) ->
-       C.CoFix (i,List.map (fun (name,ty,bo) -> (name,
-        subst_inductive_type_with_dummy_rel ty,
-        subst_inductive_type_with_dummy_rel bo)) fl)
-    | t -> t
-  in
-  match CicReduction.whd te with
-     C.Appl ((C.MutInd (uri',_,0))::tl) when UriManager.eq uri' uri -> true
-   | C.MutInd (uri',_,0) when UriManager.eq uri' uri -> true
-   | C.Prod (C.Anonimous,source,dest) ->
-      strictly_positive n nn (subst_inductive_type_with_dummy_rel source) &&
-       weakly_positive (n + 1) (nn + 1) uri dest
-   | C.Prod (name,source,dest) when does_not_occur 0 n dest ->
-      (* dummy abstraction, so we behave as in the anonimous case *)
-      strictly_positive n nn (subst_inductive_type_with_dummy_rel source) &&
-       weakly_positive (n + 1) (nn + 1) uri dest
-   | C.Prod (_,source,dest) ->
-      does_not_occur n nn (subst_inductive_type_with_dummy_rel source) &&
-       weakly_positive (n + 1) (nn + 1) uri dest
-   | _ -> raise (NotWellFormedTypeOfInductiveConstructor ("Guess where the error is ;-)"))
-
-(* instantiate_parameters ps (x1:T1)...(xn:Tn)C                             *)
-(* returns ((x_|ps|:T_|ps|)...(xn:Tn)C){ps_1 / x1 ; ... ; ps_|ps| / x_|ps|} *)
-and instantiate_parameters params c =
- let module C = Cic in
-  match (c,params) with
-     (c,[]) -> c
-   | (C.Prod (_,_,ta), he::tl) ->
-       instantiate_parameters tl
-        (CicSubstitution.subst he ta)
-   | (C.Cast (te,_), _) -> instantiate_parameters params te
-   | (t,l) -> raise (Impossible 1)
-
-and strictly_positive n nn te =
- let module C = Cic in
- let module U = UriManager in
-  match CicReduction.whd te with
-     C.Rel _ -> true
-   | C.Cast (te,ty) ->
-      (*CSC: bisogna controllare ty????*)
-      strictly_positive n nn te
-   | C.Prod (_,so,ta) ->
-      does_not_occur n nn so &&
-       strictly_positive (n+1) (nn+1) ta
-   | C.Appl ((C.Rel m)::tl) when m > n && m <= nn ->
-      List.fold_right (fun x i -> i && does_not_occur n nn x) tl true
-   | C.Appl ((C.MutInd (uri,_,i))::tl) -> 
-      let (ok,paramsno,cl) =
-       match CicEnvironment.get_obj uri with
-           C.InductiveDefinition (tl,_,paramsno) ->
-            let (_,_,_,cl) = List.nth tl i in
-             (List.length tl = 1, paramsno, cl)
-         | _ -> raise(WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
-      in
-       let (params,arguments) = split tl paramsno in
-       let lifted_params = List.map (CicSubstitution.lift 1) params in
-       let cl' =
-        List.map (fun (_,te,_) -> instantiate_parameters lifted_params te) cl
-       in
-        ok &&
-         List.fold_right
-          (fun x i -> i && does_not_occur n nn x)
-          arguments true &&
-         (*CSC: MEGAPATCH3 (sara' quella giusta?)*)
-         List.fold_right
-          (fun x i ->
-            i &&
-             weakly_positive (n+1) (nn+1) uri x
-          ) cl' true
-   | t -> does_not_occur n nn t
-
-(*CSC l'indice x dei tipi induttivi e' t.c. n < x <= nn *)
-and are_all_occurrences_positive uri indparamsno i n nn te =
- let module C = Cic in
-  match CicReduction.whd te with
-     C.Appl ((C.Rel m)::tl) when m = i ->
-      (*CSC: riscrivere fermandosi a 0 *)
-      (* let's check if the inductive type is applied at least to *)
-      (* indparamsno parameters                                   *)
-      let last =
-       List.fold_left
-        (fun k x ->
-          if k = 0 then 0
-          else
-           match CicReduction.whd x with
-              C.Rel m when m = n - (indparamsno - k) -> k - 1
-            | _ -> raise (WrongRequiredArgument (UriManager.string_of_uri uri))
-        ) indparamsno tl
-      in
-       if last = 0 then
-        List.fold_right (fun x i -> i && does_not_occur n nn x) tl true
-       else
-        raise (WrongRequiredArgument (UriManager.string_of_uri uri))
-   | C.Rel m when m = i ->
-      if indparamsno = 0 then
-       true
-      else
-       raise (WrongRequiredArgument (UriManager.string_of_uri uri))
-   | C.Prod (C.Anonimous,source,dest) ->
-      strictly_positive n nn source &&
-       are_all_occurrences_positive uri indparamsno (i+1) (n + 1) (nn + 1) dest
-   | C.Prod (name,source,dest) when does_not_occur 0 n dest ->
-      (* dummy abstraction, so we behave as in the anonimous case *)
-      strictly_positive n nn source &&
-       are_all_occurrences_positive uri indparamsno (i+1) (n + 1) (nn + 1) dest
-   | C.Prod (_,source,dest) ->
-      does_not_occur n nn source &&
-       are_all_occurrences_positive uri indparamsno (i+1) (n + 1) (nn + 1) dest
-   | _ -> raise (NotWellFormedTypeOfInductiveConstructor (UriManager.string_of_uri uri))
-
-(*CSC: cambiare il nome, torna unit! *)
-and cooked_mutual_inductive_defs uri =
- let module U = UriManager in
-  function
-     Cic.InductiveDefinition (itl, _, indparamsno) ->
-      (* let's check if the arity of the inductive types are well *)
-      (* formed                                                   *)
-      List.iter (fun (_,_,x,_) -> let _ = type_of x in ()) itl ;
-
-      (* let's check if the types of the inductive constructors  *)
-      (* are well formed.                                        *)
-      (* In order not to use type_of_aux we put the types of the *)
-      (* mutual inductive types at the head of the types of the  *)
-      (* constructors using Prods                                *)
-      (*CSC: piccola??? inefficienza                             *)
-      let len = List.length itl in
-       let _ =
-        List.fold_right
-         (fun (_,_,_,cl) i ->
-           List.iter
-            (fun (name,te,r) -> 
-              let augmented_term =
-               List.fold_right
-                (fun (name,_,ty,_) i -> Cic.Prod (Cic.Name name, ty, i))
-                itl te
-              in
-               let _ = type_of augmented_term in
-                (* let's check also the positivity conditions *)
-                if not (are_all_occurrences_positive uri indparamsno i 0 len te)
-                then
-                 raise (NotPositiveOccurrences (U.string_of_uri uri))
-                else
-                 match !r with
-                    Some _ -> raise (Impossible 2)
-                  | None -> r := Some (recursive_args 0 len te)
-            ) cl ;
-           (i + 1)
-        ) itl 1
-       in
-        ()
-   | _ ->
-     raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
-
-and cooked_type_of_mutual_inductive_defs uri cookingsno i =
- let module C = Cic in
- let module R = CicReduction in
- let module U = UriManager in
-  let cobj =
-   match CicEnvironment.is_type_checked uri cookingsno with
-      CicEnvironment.CheckedObj cobj -> cobj
-    | CicEnvironment.UncheckedObj uobj ->
-       log (`Start_type_checking uri) ;
-       cooked_mutual_inductive_defs uri uobj ;
-       CicEnvironment.set_type_checking_info uri ;
-       log (`Type_checking_completed uri) ;
-       (match CicEnvironment.is_type_checked uri cookingsno with
-          CicEnvironment.CheckedObj cobj -> cobj
-        | CicEnvironment.UncheckedObj _ -> raise CicEnvironmentError
-       )
-  in
-   match cobj with
-      C.InductiveDefinition (dl,_,_) ->
-       let (_,_,arity,_) = List.nth dl i in
-        arity
-    | _ -> raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
-
-and cooked_type_of_mutual_inductive_constr uri cookingsno i j =
- let module C = Cic in
- let module R = CicReduction in
- let module U = UriManager in
-  let cobj =
-   match CicEnvironment.is_type_checked uri cookingsno with
-      CicEnvironment.CheckedObj cobj -> cobj
-    | CicEnvironment.UncheckedObj uobj ->
-       log (`Start_type_checking uri) ;
-       cooked_mutual_inductive_defs uri uobj ;
-       CicEnvironment.set_type_checking_info uri ;
-       log (`Type_checking_completed uri) ;
-       (match CicEnvironment.is_type_checked uri cookingsno with
-          CicEnvironment.CheckedObj cobj -> cobj
-        | CicEnvironment.UncheckedObj _ -> raise CicEnvironmentError
-       )
-  in
-   match cobj with
-      C.InductiveDefinition (dl,_,_) ->
-       let (_,_,_,cl) = List.nth dl i in
-        let (_,ty,_) = List.nth cl (j-1) in
-         ty
-    | _ -> raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
-
-and recursive_args n nn te =
- let module C = Cic in
-  match CicReduction.whd te with
-     C.Rel _ -> []
-   | C.Var _
-   | C.Meta _
-   | C.Sort _
-   | C.Implicit
-   | C.Cast _ (*CSC ??? *) -> raise (Impossible 3) (* due to type-checking *)
-   | C.Prod (_,so,de) ->
-      (not (does_not_occur n nn so))::(recursive_args (n+1) (nn + 1) de)
-   | C.Lambda _
-   | C.LetIn _ -> raise (Impossible 4) (* due to type-checking *)
-   | C.Appl _ -> []
-   | C.Const _
-   | C.Abst _ -> raise (Impossible 5)
-   | C.MutInd _
-   | C.MutConstruct _
-   | C.MutCase _
-   | C.Fix _
-   | C.CoFix _ -> raise (Impossible 6) (* due to type-checking *)
-
-and get_new_safes p c rl safes n nn x =
- let module C = Cic in
- let module U = UriManager in
- let module R = CicReduction in
-  match (R.whd c, R.whd p, rl) with
-     (C.Prod (_,_,ta1), C.Lambda (_,_,ta2), b::tl) ->
-       (* we are sure that the two sources are convertible because we *)
-       (* have just checked this. So let's go along ...               *)
-       let safes' =
-        List.map (fun x -> x + 1) safes
-       in
-        let safes'' =
-         if b then 1::safes' else safes'
-        in
-         get_new_safes ta2 ta1 tl safes'' (n+1) (nn+1) (x+1)
-   | (C.Prod _, (C.MutConstruct _ as e), _)
-   | (C.Prod _, (C.Rel _ as e), _)
-   | (C.MutInd _, e, [])
-   | (C.Appl _, e, []) -> (e,safes,n,nn,x)
-   | (_,_,_) ->
-      (* CSC: If the next exception is raised, it just means that   *)
-      (* CSC: the proof-assistant allows to use very strange things *)
-      (* CSC: as a branch of a case whose type is a Prod. In        *)
-      (* CSC: particular, this means that a new (C.Prod, x,_) case  *)
-      (* CSC: must be considered in this match. (e.g. x = MutCase)  *)
-      raise (Impossible 7)
-
-and split_prods n te =
- let module C = Cic in
- let module R = CicReduction in
-  match (n, R.whd te) with
-     (0, _) -> [],te
-   | (n, C.Prod (_,so,ta)) when n > 0 ->
-      let (l1,l2) = split_prods (n - 1) ta in
-       (so::l1,l2)
-   | (_, _) -> raise (Impossible 8)
-
-and eat_lambdas n te =
- let module C = Cic in
- let module R = CicReduction in
-  match (n, R.whd te) with
-     (0, _) -> (te, 0)
-   | (n, C.Lambda (_,_,ta)) when n > 0 ->
-      let (te, k) = eat_lambdas (n - 1) ta in
-       (te, k + 1)
-   | (_, _) -> raise (Impossible 9)
-
-(*CSC: Tutto quello che segue e' l'intuzione di luca ;-) *)
-and check_is_really_smaller_arg n nn kl x safes te =
- (*CSC: forse la whd si puo' fare solo quando serve veramente. *)
- (*CSC: cfr guarded_by_destructors                             *)
- let module C = Cic in
- let module U = UriManager in
- match CicReduction.whd te with
-     C.Rel m when List.mem m safes -> true
-   | C.Rel _ -> false
-   | C.Var _
-   | C.Meta _
-   | C.Sort _
-   | C.Implicit 
-   | C.Cast _
-(*   | C.Cast (te,ty) ->
-      check_is_really_smaller_arg n nn kl x safes te &&
-       check_is_really_smaller_arg n nn kl x safes ty*)
-(*   | C.Prod (_,so,ta) ->
-      check_is_really_smaller_arg n nn kl x safes so &&
-       check_is_really_smaller_arg (n+1) (nn+1) kl (x+1)
-        (List.map (fun x -> x + 1) safes) ta*)
-   | C.Prod _ -> raise (Impossible 10)
-   | C.Lambda (_,so,ta) ->
-      check_is_really_smaller_arg n nn kl x safes so &&
-       check_is_really_smaller_arg (n+1) (nn+1) kl (x+1)
-        (List.map (fun x -> x + 1) safes) ta
-   | C.LetIn (_,so,ta) ->
-      check_is_really_smaller_arg n nn kl x safes so &&
-       check_is_really_smaller_arg (n+1) (nn+1) kl (x+1)
-        (List.map (fun x -> x + 1) safes) ta
-   | C.Appl (he::_) ->
-      (*CSC: sulla coda ci vogliono dei controlli? secondo noi no, ma *)
-      (*CSC: solo perche' non abbiamo trovato controesempi            *)
-      check_is_really_smaller_arg n nn kl x safes he
-   | C.Appl [] -> raise (Impossible 11)
-   | C.Const _
-   | C.Abst _
-   | C.MutInd _ -> raise (Impossible 12)
-   | C.MutConstruct _ -> false
-   | C.MutCase (uri,_,i,outtype,term,pl) ->
-      (match term with
-          C.Rel m when List.mem m safes || m = x ->
-           let (isinductive,paramsno,cl) =
-            match CicEnvironment.get_obj uri with
-               C.InductiveDefinition (tl,_,paramsno) ->
-                let (_,isinductive,_,cl) = List.nth tl i in
-                 let cl' =
-                  List.map (fun (id,ty,r) -> (id, snd (split_prods paramsno ty), r)) cl
-                 in
-                  (isinductive,paramsno,cl')
-             | _ ->
-               raise (WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
-           in
-            if not isinductive then
-              List.fold_right
-               (fun p i -> i && check_is_really_smaller_arg n nn kl x safes p)
-               pl true
-            else
-              List.fold_right
-               (fun (p,(_,c,rl)) i ->
-                 let rl' =
-                  match !rl with
-                     Some rl' ->
-                      let (_,rl'') = split rl' paramsno in
-                       rl''
-                   | None -> raise (Impossible 13)
-                 in
-                  let (e,safes',n',nn',x') =
-                   get_new_safes p c rl' safes n nn x
-                  in
-                   i &&
-                   check_is_really_smaller_arg n' nn' kl x' safes' e
-               ) (List.combine pl cl) true
-        | C.Appl ((C.Rel m)::tl) when List.mem m safes || m = x ->
-           let (isinductive,paramsno,cl) =
-            match CicEnvironment.get_obj uri with
-               C.InductiveDefinition (tl,_,paramsno) ->
-                let (_,isinductive,_,cl) = List.nth tl i in
-                 let cl' =
-                  List.map (fun (id,ty,r) -> (id, snd (split_prods paramsno ty), r)) cl
-                 in
-                  (isinductive,paramsno,cl')
-             | _ ->
-               raise (WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
-           in
-            if not isinductive then
-              List.fold_right
-               (fun p i -> i && check_is_really_smaller_arg n nn kl x safes p)
-               pl true
-            else
-              (*CSC: supponiamo come prima che nessun controllo sia necessario*)
-              (*CSC: sugli argomenti di una applicazione                      *)
-              List.fold_right
-               (fun (p,(_,c,rl)) i ->
-                 let rl' =
-                  match !rl with
-                     Some rl' ->
-                      let (_,rl'') = split rl' paramsno in
-                       rl''
-                   | None -> raise (Impossible 14)
-                 in
-                  let (e, safes',n',nn',x') =
-                   get_new_safes p c rl' safes n nn x
-                  in
-                   i &&
-                   check_is_really_smaller_arg n' nn' kl x' safes' e
-               ) (List.combine pl cl) true
-        | _ ->
-          List.fold_right
-           (fun p i -> i && check_is_really_smaller_arg n nn kl x safes p)
-           pl true
-      )
-   | C.Fix (_, fl) ->
-      let len = List.length fl in
-       let n_plus_len = n + len
-       and nn_plus_len = nn + len
-       and x_plus_len = x + len
-       and safes' = List.map (fun x -> x + len) safes in
-        List.fold_right
-         (fun (_,_,ty,bo) i ->
-           i &&
-            check_is_really_smaller_arg n_plus_len nn_plus_len kl x_plus_len
-             safes' bo
-         ) fl true
-   | C.CoFix (_, fl) ->
-      let len = List.length fl in
-       let n_plus_len = n + len
-       and nn_plus_len = nn + len
-       and x_plus_len = x + len
-       and safes' = List.map (fun x -> x + len) safes in
-        List.fold_right
-         (fun (_,ty,bo) i ->
-           i &&
-            check_is_really_smaller_arg n_plus_len nn_plus_len kl x_plus_len
-             safes' bo
-         ) fl true
-
-and guarded_by_destructors n nn kl x safes =
- let module C = Cic in
- let module U = UriManager in
-  function
-     C.Rel m when m > n && m <= nn -> false
-   | C.Rel _
-   | C.Var _
-   | C.Meta _
-   | C.Sort _
-   | C.Implicit -> true
-   | C.Cast (te,ty) ->
-      guarded_by_destructors n nn kl x safes te &&
-       guarded_by_destructors n nn kl x safes ty
-   | C.Prod (_,so,ta) ->
-      guarded_by_destructors n nn kl x safes so &&
-       guarded_by_destructors (n+1) (nn+1) kl (x+1)
-        (List.map (fun x -> x + 1) safes) ta
-   | C.Lambda (_,so,ta) ->
-      guarded_by_destructors n nn kl x safes so &&
-       guarded_by_destructors (n+1) (nn+1) kl (x+1)
-        (List.map (fun x -> x + 1) safes) ta
-   | C.LetIn (_,so,ta) ->
-      guarded_by_destructors n nn kl x safes so &&
-       guarded_by_destructors (n+1) (nn+1) kl (x+1)
-        (List.map (fun x -> x + 1) safes) ta
-   | C.Appl ((C.Rel m)::tl) when m > n && m <= nn ->
-      let k = List.nth kl (m - n - 1) in
-       if not (List.length tl > k) then false
-       else
-        List.fold_right
-         (fun param i ->
-           i && guarded_by_destructors n nn kl x safes param
-         ) tl true &&
-         check_is_really_smaller_arg n nn kl x safes (List.nth tl k)
-   | C.Appl tl ->
-      List.fold_right (fun t i -> i && guarded_by_destructors n nn kl x safes t)
-       tl true
-   | C.Const _
-   | C.Abst _
-   | C.MutInd _
-   | C.MutConstruct _ -> true
-   | C.MutCase (uri,_,i,outtype,term,pl) ->
-      (match term with
-          C.Rel m when List.mem m safes || m = x ->
-           let (isinductive,paramsno,cl) =
-            match CicEnvironment.get_obj uri with
-               C.InductiveDefinition (tl,_,paramsno) ->
-                let (_,isinductive,_,cl) = List.nth tl i in
-                 let cl' =
-                  List.map (fun (id,ty,r) -> (id, snd (split_prods paramsno ty), r)) cl
-                 in
-                  (isinductive,paramsno,cl')
-             | _ ->
-               raise (WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
-           in
-            if not isinductive then
-             guarded_by_destructors n nn kl x safes outtype &&
-              guarded_by_destructors n nn kl x safes term &&
-              (*CSC: manca ??? il controllo sul tipo di term? *)
-              List.fold_right
-               (fun p i -> i && guarded_by_destructors n nn kl x safes p)
-               pl true
-            else
-             guarded_by_destructors n nn kl x safes outtype &&
-              (*CSC: manca ??? il controllo sul tipo di term? *)
-              List.fold_right
-               (fun (p,(_,c,rl)) i ->
-                 let rl' =
-                  match !rl with
-                     Some rl' ->
-                      let (_,rl'') = split rl' paramsno in
-                       rl''
-                   | None -> raise (Impossible 15)
-                 in
-                  let (e,safes',n',nn',x') =
-                   get_new_safes p c rl' safes n nn x
-                  in
-                   i &&
-                   guarded_by_destructors n' nn' kl x' safes' e
-               ) (List.combine pl cl) true
-        | C.Appl ((C.Rel m)::tl) when List.mem m safes || m = x ->
-           let (isinductive,paramsno,cl) =
-            match CicEnvironment.get_obj uri with
-               C.InductiveDefinition (tl,_,paramsno) ->
-                let (_,isinductive,_,cl) = List.nth tl i in
-                 let cl' =
-                  List.map (fun (id,ty,r) -> (id, snd (split_prods paramsno ty), r)) cl
-                 in
-                  (isinductive,paramsno,cl')
-             | _ ->
-               raise (WrongUriToMutualInductiveDefinitions(U.string_of_uri uri))
-           in
-            if not isinductive then
-             guarded_by_destructors n nn kl x safes outtype &&
-              guarded_by_destructors n nn kl x safes term &&
-              (*CSC: manca ??? il controllo sul tipo di term? *)
-              List.fold_right
-               (fun p i -> i && guarded_by_destructors n nn kl x safes p)
-               pl true
-            else
-             guarded_by_destructors n nn kl x safes outtype &&
-              (*CSC: manca ??? il controllo sul tipo di term? *)
-              List.fold_right
-               (fun t i -> i && guarded_by_destructors n nn kl x safes t)
-               tl true &&
-              List.fold_right
-               (fun (p,(_,c,rl)) i ->
-                 let rl' =
-                  match !rl with
-                     Some rl' ->
-                      let (_,rl'') = split rl' paramsno in
-                       rl''
-                   | None -> raise (Impossible 16)
-                 in
-                  let (e, safes',n',nn',x') =
-                   get_new_safes p c rl' safes n nn x
-                  in
-                   i &&
-                   guarded_by_destructors n' nn' kl x' safes' e
-               ) (List.combine pl cl) true
-        | _ ->
-          guarded_by_destructors n nn kl x safes outtype &&
-           guarded_by_destructors n nn kl x safes term &&
-           (*CSC: manca ??? il controllo sul tipo di term? *)
-           List.fold_right
-            (fun p i -> i && guarded_by_destructors n nn kl x safes p)
-            pl true
-      )
-   | C.Fix (_, fl) ->
-      let len = List.length fl in
-       let n_plus_len = n + len
-       and nn_plus_len = nn + len
-       and x_plus_len = x + len
-       and safes' = List.map (fun x -> x + len) safes in
-        List.fold_right
-         (fun (_,_,ty,bo) i ->
-           i && guarded_by_destructors n_plus_len nn_plus_len kl x_plus_len
-            safes' ty &&
-            guarded_by_destructors n_plus_len nn_plus_len kl x_plus_len
-             safes' bo
-         ) fl true
-   | C.CoFix (_, fl) ->
-      let len = List.length fl in
-       let n_plus_len = n + len
-       and nn_plus_len = nn + len
-       and x_plus_len = x + len
-       and safes' = List.map (fun x -> x + len) safes in
-        List.fold_right
-         (fun (_,ty,bo) i ->
-           i && guarded_by_destructors n_plus_len nn_plus_len kl x_plus_len
-            safes' ty &&
-            guarded_by_destructors n_plus_len nn_plus_len kl x_plus_len safes'
-             bo
-         ) fl true
-
-(* the boolean h means already protected *)
-(* args is the list of arguments the type of the constructor that may be *)
-(* found in head position must be applied to.                            *)
-(*CSC: coInductiveTypeURI non cambia mai di ricorsione in ricorsione *)
-and guarded_by_constructors n nn h te args coInductiveTypeURI =
- let module C = Cic in
-  (*CSC: There is a lot of code replication between the cases X and    *)
-  (*CSC: (C.Appl X tl). Maybe it will be better to define a function   *)
-  (*CSC: that maps X into (C.Appl X []) when X is not already a C.Appl *)
-  match CicReduction.whd te with
-     C.Rel m when m > n && m <= nn -> h
-   | C.Rel _
-   | C.Var _  -> true
-   | C.Meta _
-   | C.Sort _
-   | C.Implicit
-   | C.Cast _
-   | C.Prod _
-   | C.LetIn _ ->
-      raise (Impossible 17) (* the term has just been type-checked *)
-   | C.Lambda (_,so,de) ->
-      does_not_occur n nn so &&
-       guarded_by_constructors (n + 1) (nn + 1) h de args coInductiveTypeURI
-   | C.Appl ((C.Rel m)::tl) when m > n && m <= nn ->
-      h &&
-       List.fold_right (fun x i -> i && does_not_occur n nn x) tl true
-   | C.Appl ((C.MutConstruct (uri,cookingsno,i,j))::tl) ->
-      let consty =
-       match CicEnvironment.get_cooked_obj uri cookingsno with
-          C.InductiveDefinition (itl,_,_) ->
-           let (_,_,_,cl) = List.nth itl i in
-            let (_,cons,_) = List.nth cl (j - 1) in cons
-        | _ ->
-         raise (WrongUriToMutualInductiveDefinitions
-          (UriManager.string_of_uri uri))
-      in
-       let rec analyse_branch ty te =
-        match CicReduction.whd ty with
-           C.Meta _ -> raise (Impossible 34)
-         | C.Rel _
-         | C.Var _
-         | C.Sort _ ->
-            does_not_occur n nn te
-         | C.Implicit
-         | C.Cast _ -> raise (Impossible 24) (* due to type-checking *)
-         | C.Prod (_,_,de) ->
-            analyse_branch de te
-         | C.Lambda _
-         | C.LetIn _ -> raise (Impossible 25) (* due to type-checking *)
-         | C.Appl ((C.MutInd (uri,_,_))::tl) as ty
-            when uri == coInductiveTypeURI -> 
-             guarded_by_constructors n nn true te [] coInductiveTypeURI
-         | C.Appl ((C.MutInd (uri,_,_))::tl) as ty -> 
-            guarded_by_constructors n nn true te tl coInductiveTypeURI
-         | C.Appl _ ->
-            does_not_occur n nn te
-         | C.Const _
-         | C.Abst _ -> raise (Impossible 26)
-         | C.MutInd (uri,_,_) when uri == coInductiveTypeURI ->
-            guarded_by_constructors n nn true te [] coInductiveTypeURI
-         | C.MutInd _ ->
-            does_not_occur n nn te
-         | C.MutConstruct _ -> raise (Impossible 27)
-         (*CSC: we do not consider backbones with a MutCase, Fix, Cofix *)
-         (*CSC: in head position.                                       *)
-         | C.MutCase _
-         | C.Fix _
-         | C.CoFix _ -> raise (Impossible 28) (* due to type-checking *)
-       in
-       let rec analyse_instantiated_type ty l =
-        match CicReduction.whd ty with
-           C.Rel _
-         | C.Var _
-         | C.Meta _
-         | C.Sort _
-         | C.Implicit
-         | C.Cast _ -> raise (Impossible 29) (* due to type-checking *)
-         | C.Prod (_,so,de) ->
-            begin
-             match l with
-                [] -> true
-              | he::tl ->
-                 analyse_branch so he &&
-                  analyse_instantiated_type de tl
-            end
-         | C.Lambda _
-         | C.LetIn _ -> raise (Impossible 30) (* due to type-checking *)
-         | C.Appl _ -> 
-            List.fold_left (fun i x -> i && does_not_occur n nn x) true l
-         | C.Const _
-         | C.Abst _ -> raise (Impossible 31)
-         | C.MutInd _ ->
-            List.fold_left (fun i x -> i && does_not_occur n nn x) true l
-         | C.MutConstruct _ -> raise (Impossible 32)
-         (*CSC: we do not consider backbones with a MutCase, Fix, Cofix *)
-         (*CSC: in head position.                                       *)
-         | C.MutCase _
-         | C.Fix _
-         | C.CoFix _ -> raise (Impossible 33) (* due to type-checking *)
-       in
-        let rec instantiate_type args consty =
-         function
-            [] -> true
-          | tlhe::tltl as l ->
-             let consty' = CicReduction.whd consty in
-              match args with 
-                 he::tl ->
-                  begin
-                   match consty' with
-                      C.Prod (_,_,de) ->
-                       let instantiated_de = CicSubstitution.subst he de in
-                        (*CSC: siamo sicuri che non sia troppo forte? *)
-                        does_not_occur n nn tlhe &
-                         instantiate_type tl instantiated_de tltl
-                    | _ ->
-                      (*CSC:We do not consider backbones with a MutCase, a    *)
-                      (*CSC:FixPoint, a CoFixPoint and so on in head position.*)
-                      raise (Impossible 23)
-                  end
-               | [] -> analyse_instantiated_type consty' l
-                  (* These are all the other cases *)
-       in
-        instantiate_type args consty tl
-   | C.Appl ((C.CoFix (_,fl))::tl) ->
-      List.fold_left (fun i x -> i && does_not_occur n nn x) true tl &&
-       let len = List.length fl in
-        let n_plus_len = n + len
-        and nn_plus_len = nn + len in
-         List.fold_right
-          (fun (_,ty,bo) i ->
-            i && does_not_occur n_plus_len nn_plus_len ty &&
-             guarded_by_constructors n_plus_len nn_plus_len h bo args
-              coInductiveTypeURI
-          ) fl true
-   | C.Appl ((C.MutCase (_,_,_,out,te,pl))::tl) ->
-       List.fold_left (fun i x -> i && does_not_occur n nn x) true tl &&
-        does_not_occur n nn out &&
-         does_not_occur n nn te &&
-          List.fold_right
-           (fun x i ->
-             i &&
-             guarded_by_constructors n nn h x args coInductiveTypeURI
-           ) pl true
-   | C.Appl l ->
-      List.fold_right (fun x i -> i && does_not_occur n nn x) l true
-   | C.Const _ -> true
-   | C.Abst _
-   | C.MutInd _ -> assert false
-   | C.MutConstruct _ -> true
-   | C.MutCase (_,_,_,out,te,pl) ->
-       does_not_occur n nn out &&
-        does_not_occur n nn te &&
-         List.fold_right
-          (fun x i ->
-            i &&
-             guarded_by_constructors n nn h x args coInductiveTypeURI
-          ) pl true
-   | C.Fix (_,fl) ->
-      let len = List.length fl in
-       let n_plus_len = n + len
-       and nn_plus_len = nn + len in
-        List.fold_right
-         (fun (_,_,ty,bo) i ->
-           i && does_not_occur n_plus_len nn_plus_len ty &&
-            does_not_occur n_plus_len nn_plus_len bo
-         ) fl true
-   | C.CoFix (_,fl) ->
-      let len = List.length fl in
-       let n_plus_len = n + len
-       and nn_plus_len = nn + len in
-        List.fold_right
-         (fun (_,ty,bo) i ->
-           i && does_not_occur n_plus_len nn_plus_len ty &&
-            guarded_by_constructors n_plus_len nn_plus_len h bo args
-             coInductiveTypeURI
-         ) fl true
-
-and check_allowed_sort_elimination uri i need_dummy ind arity1 arity2 =
- let module C = Cic in
- let module U = UriManager in
-  match (CicReduction.whd arity1, CicReduction.whd arity2) with
-     (C.Prod (_,so1,de1), C.Prod (_,so2,de2))
-      when CicReduction.are_convertible so1 so2 ->
-       check_allowed_sort_elimination uri i need_dummy
-        (C.Appl [CicSubstitution.lift 1 ind ; C.Rel 1]) de1 de2
-   | (C.Sort C.Prop, C.Sort C.Prop) when need_dummy -> true
-   | (C.Sort C.Prop, C.Sort C.Set) when need_dummy ->
-       (match CicEnvironment.get_obj uri with
-           C.InductiveDefinition (itl,_,_) ->
-            let (_,_,_,cl) = List.nth itl i in
-             (* is a singleton definition? *)
-             List.length cl = 1
-         | _ ->
-           raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
-       )
-   | (C.Sort C.Set, C.Sort C.Prop) when need_dummy -> true
-   | (C.Sort C.Set, C.Sort C.Set) when need_dummy -> true
-   | (C.Sort C.Set, C.Sort C.Type) when need_dummy ->
-       (match CicEnvironment.get_obj uri with
-           C.InductiveDefinition (itl,_,paramsno) ->
-            let (_,_,_,cl) = List.nth itl i in
-             List.fold_right (fun (_,x,_) i -> i && is_small paramsno x) cl true
-         | _ ->
-           raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
-       )
-   | (C.Sort C.Type, C.Sort _) when need_dummy -> true
-   | (C.Sort C.Prop, C.Prod (_,so,ta)) when not need_dummy ->
-       let res = CicReduction.are_convertible so ind
-       in
-        res &&
-        (match CicReduction.whd ta with
-            C.Sort C.Prop -> true
-          | C.Sort C.Set ->
-             (match CicEnvironment.get_obj uri with
-                 C.InductiveDefinition (itl,_,_) ->
-                  let (_,_,_,cl) = List.nth itl i in
-                   (* is a singleton definition? *)
-                   List.length cl = 1
-               | _ ->
-                 raise (WrongUriToMutualInductiveDefinitions
-                  (U.string_of_uri uri))
-             )
-          | _ -> false
-        )
-   | (C.Sort C.Set, C.Prod (_,so,ta)) when not need_dummy ->
-       let res = CicReduction.are_convertible so ind
-       in
-        res &&
-        (match CicReduction.whd ta with
-            C.Sort C.Prop
-          | C.Sort C.Set  -> true
-          | C.Sort C.Type ->
-             (match CicEnvironment.get_obj uri with
-                 C.InductiveDefinition (itl,_,paramsno) ->
-                  let (_,_,_,cl) = List.nth itl i in
-                   List.fold_right
-                    (fun (_,x,_) i -> i && is_small paramsno x) cl true
-               | _ ->
-                 raise (WrongUriToMutualInductiveDefinitions
-                  (U.string_of_uri uri))
-             )
-          | _ -> raise (Impossible 19)
-        )
-   | (C.Sort C.Type, C.Prod (_,so,_)) when not need_dummy ->
-       CicReduction.are_convertible so ind
-   | (_,_) -> false
-  
-and type_of_branch argsno need_dummy outtype term constype =
- let module C = Cic in
- let module R = CicReduction in
-  match R.whd constype with
-     C.MutInd (_,_,_) ->
-      if need_dummy then
-       outtype
-      else
-       C.Appl [outtype ; term]
-   | C.Appl (C.MutInd (_,_,_)::tl) ->
-      let (_,arguments) = split tl argsno
-      in
-       if need_dummy && arguments = [] then
-        outtype
-       else
-        C.Appl (outtype::arguments@(if need_dummy then [] else [term]))
-   | C.Prod (name,so,de) ->
-      C.Prod (C.Name "pippo",so,type_of_branch argsno need_dummy 
-       (CicSubstitution.lift 1 outtype)
-       (C.Appl [CicSubstitution.lift 1 term ; C.Rel 1]) de)
-  | _ -> raise (Impossible 20)
-       
- 
-(* type_of_aux' is just another name (with a different scope) for type_of_aux *)
-and type_of_aux' env t =
- let rec type_of_aux env =
-  let module C = Cic in
-  let module R = CicReduction in
-  let module S = CicSubstitution in
-  let module U = UriManager in
-   function
-      C.Rel n ->
-       let t =
-        try
-         List.nth env (n - 1)
-        with
-         _ -> raise (NotWellTyped "Not a close term")
-       in
-        S.lift n t
-    | C.Var uri ->
-      incr fdebug ;
-      let ty = type_of_variable uri in
-       decr fdebug ;
-       ty
-    | C.Meta n -> raise NotImplemented
-    | C.Sort s -> C.Sort C.Type (*CSC manca la gestione degli universi!!! *)
-    | C.Implicit -> raise (Impossible 21)
-    | C.Cast (te,ty) ->
-       let _ = type_of ty in
-        if R.are_convertible (type_of_aux env te) ty then ty
-        else raise (NotWellTyped "Cast")
-    | C.Prod (_,s,t) ->
-       let sort1 = type_of_aux env s
-       and sort2 = type_of_aux (s::env) t in
-        sort_of_prod (sort1,sort2)
-   | C.Lambda (n,s,t) ->
-       let sort1 = type_of_aux env s
-       and type2 = type_of_aux (s::env) t in
-        let sort2 = type_of_aux (s::env) type2 in
-         (* only to check if the product is well-typed *)
-         let _ = sort_of_prod (sort1,sort2) in
-          C.Prod (n,s,type2)
-   | C.LetIn (n,s,t) ->
-       let t' = CicSubstitution.subst s t in
-        type_of_aux env t'
-   | C.Appl (he::tl) when List.length tl > 0 ->
-      let hetype = type_of_aux env he
-      and tlbody_and_type = List.map (fun x -> (x, type_of_aux env x)) tl in
-       eat_prods hetype tlbody_and_type
-   | C.Appl _ -> raise (NotWellTyped "Appl: no arguments")
-   | C.Const (uri,cookingsno) ->
-      incr fdebug ;
-      let cty = cooked_type_of_constant uri cookingsno in
-       decr fdebug ;
-       cty
-   | C.Abst _ -> raise (Impossible 22)
-   | C.MutInd (uri,cookingsno,i) ->
-      incr fdebug ;
-      let cty = cooked_type_of_mutual_inductive_defs uri cookingsno i in
-       decr fdebug ;
-       cty
-   | C.MutConstruct (uri,cookingsno,i,j) ->
-      let cty = cooked_type_of_mutual_inductive_constr uri cookingsno i j
-      in
-       cty
-   | C.MutCase (uri,cookingsno,i,outtype,term,pl) ->
-      let outsort = type_of_aux env outtype in
-      let (need_dummy, k) =
-       let rec guess_args t =
-        match CicReduction.whd t with
-           C.Sort _ -> (true, 0)
-         | C.Prod (_, s, t) ->
-            let (b, n) = guess_args t in
-             if n = 0 then
-              (* last prod before sort *)
-              match CicReduction.whd s with
-                 (*CSC vedi nota delirante su cookingsno in cicReduction.ml *)
-                 C.MutInd (uri',_,i') when U.eq uri' uri && i' = i -> (false, 1)
-               | C.Appl ((C.MutInd (uri',_,i')) :: _)
-                  when U.eq uri' uri && i' = i -> (false, 1)
-               | _ -> (true, 1)
-             else
-              (b, n + 1)
-         | _ -> raise (NotWellTyped "MutCase: outtype ill-formed")
-       in
-        (*CSC whd non serve dopo type_of_aux ? *)
-        let (b, k) = guess_args outsort in
-         if not b then (b, k - 1) else (b, k)
-      in
-      let (parameters, arguments) =
-        match R.whd (type_of_aux env term) with
-           (*CSC manca il caso dei CAST *)
-           C.MutInd (uri',_,i') ->
-            (*CSC vedi nota delirante sui cookingsno in cicReduction.ml*)
-            if U.eq uri uri' && i = i' then ([],[])
-            else raise (NotWellTyped ("MutCase: the term is of type " ^
-             (U.string_of_uri uri') ^ "," ^ string_of_int i' ^
-             " instead of type " ^ (U.string_of_uri uri') ^ "," ^
-             string_of_int i))
-         | C.Appl (C.MutInd (uri',_,i') :: tl) ->
-            if U.eq uri uri' && i = i' then split tl (List.length tl - k)
-            else raise (NotWellTyped ("MutCase: the term is of type " ^
-             (U.string_of_uri uri') ^ "," ^ string_of_int i' ^
-             " instead of type " ^ (U.string_of_uri uri) ^ "," ^
-             string_of_int i))
-         | _ -> raise (NotWellTyped "MutCase: the term is not an inductive one")
-      in
-       (* let's control if the sort elimination is allowed: [(I q1 ... qr)|B] *)
-       let sort_of_ind_type =
-        if parameters = [] then
-         C.MutInd (uri,cookingsno,i)
-        else
-         C.Appl ((C.MutInd (uri,cookingsno,i))::parameters)
-       in
-        if not (check_allowed_sort_elimination uri i need_dummy
-         sort_of_ind_type (type_of_aux env sort_of_ind_type) outsort)
-        then
-         raise (NotWellTyped "MutCase: not allowed sort elimination") ;
-
-        (* let's check if the type of branches are right *)
-        let (cl,parsno) =
-         match CicEnvironment.get_cooked_obj uri cookingsno with
-            C.InductiveDefinition (tl,_,parsno) ->
-             let (_,_,_,cl) = List.nth tl i in (cl,parsno)
-          | _ ->
-            raise (WrongUriToMutualInductiveDefinitions (U.string_of_uri uri))
-        in
-         let (_,branches_ok) =
-          List.fold_left
-           (fun (j,b) (p,(_,c,_)) ->
-             let cons =
-              if parameters = [] then
-               (C.MutConstruct (uri,cookingsno,i,j))
-              else
-               (C.Appl (C.MutConstruct (uri,cookingsno,i,j)::parameters))
-             in
-              (j + 1, b &&
-               R.are_convertible (type_of_aux env p)
-                (type_of_branch parsno need_dummy outtype cons
-                  (type_of_aux env cons))
-              )
-           ) (1,true) (List.combine pl cl)
-         in
-          if not branches_ok then
-           raise (NotWellTyped "MutCase: wrong type of a branch") ;
-
-          if not need_dummy then
-           C.Appl ((outtype::arguments)@[term])
-          else if arguments = [] then
-           outtype
-          else
-           C.Appl (outtype::arguments)
-   | C.Fix (i,fl) ->
-      let types_times_kl =
-       List.rev
-        (List.map (fun (_,k,ty,_) -> let _ = type_of_aux env ty in (ty,k)) fl)
-      in
-      let (types,kl) = List.split types_times_kl in
-       let len = List.length types in
-        List.iter
-         (fun (name,x,ty,bo) ->
-           if (R.are_convertible (type_of_aux (types @ env) bo)
-            (CicSubstitution.lift len ty))
-           then
-            begin
-             let (m, eaten) = eat_lambdas (x + 1) bo in
-              (*let's control the guarded by destructors conditions D{f,k,x,M}*)
-              if not (guarded_by_destructors eaten (len + eaten) kl 1 [] m) then
-               raise (NotWellTyped "Fix: not guarded by destructors")
-            end
-           else
-            raise (NotWellTyped "Fix: ill-typed bodies")
-         ) fl ;
-      
-        (*CSC: controlli mancanti solo su D{f,k,x,M} *)
-        let (_,_,ty,_) = List.nth fl i in
-        ty
-   | C.CoFix (i,fl) ->
-      let types =
-       List.rev (List.map (fun (_,ty,_) -> let _ = type_of_aux env ty in ty) fl)
-      in
-       let len = List.length types in
-        List.iter
-         (fun (_,ty,bo) ->
-           if (R.are_convertible (type_of_aux (types @ env) bo)
-            (CicSubstitution.lift len ty))
-           then
-            begin
-             (* let's control that the returned type is coinductive *)
-             match returns_a_coinductive ty with
-                None ->
-                 raise(NotWellTyped "CoFix: does not return a coinductive type")
-              | Some uri ->
-                 (*let's control the guarded by constructors conditions C{f,M}*)
-                 if not (guarded_by_constructors 0 len false bo [] uri) then
-                  raise (NotWellTyped "CoFix: not guarded by constructors")
-            end
-           else
-            raise (NotWellTyped "CoFix: ill-typed bodies")
-         ) fl ;
-      
-        let (_,ty,_) = List.nth fl i in
-         ty
-
- and sort_of_prod (t1, t2) =
-  let module C = Cic in
-   let t1' = CicReduction.whd t1 in
-   let t2' = CicReduction.whd t2 in
-   match (t1', t2') with
-      (C.Sort s1, C.Sort s2)
-        when (s2 = C.Prop or s2 = C.Set) -> (* different from Coq manual!!! *)
-         C.Sort s2
-    | (C.Sort s1, C.Sort s2) -> C.Sort C.Type (*CSC manca la gestione degli universi!!! *)
-    | (_,_) ->
-      raise
-       (NotWellTyped
-        ("Prod: sort1= " ^ CicPp.ppterm t1' ^ " ; sort2= " ^ CicPp.ppterm t2'))
-
- and eat_prods hetype =
-  (*CSC: siamo sicuri che le are_convertible non lavorino con termini non *)
-  (*CSC: cucinati                                                         *)
-  function
-     [] -> hetype
-   | (hete, hety)::tl ->
-    (match (CicReduction.whd hetype) with
-        Cic.Prod (n,s,t) ->
-         if CicReduction.are_convertible s hety then
-          (CicReduction.fdebug := -1 ;
-           eat_prods (CicSubstitution.subst hete t) tl
-          )
-         else
-          begin
-           CicReduction.fdebug := 0 ;
-           ignore (CicReduction.are_convertible s hety) ;
-           fdebug := 0 ;
-           debug s [hety] ;
-           raise (NotWellTyped "Appl: wrong parameter-type")
-          end
-      | _ -> raise (NotWellTyped "Appl: wrong Prod-type")
-    )
-
- and returns_a_coinductive ty =
-  let module C = Cic in
-   match CicReduction.whd ty with
-      C.MutInd (uri,cookingsno,i) ->
-       (*CSC: definire una funzioncina per questo codice sempre replicato *)
-       (match CicEnvironment.get_cooked_obj uri cookingsno with
-           C.InductiveDefinition (itl,_,_) ->
-            let (_,is_inductive,_,cl) = List.nth itl i in
-             if is_inductive then None else (Some uri)
-         | _ ->
-           raise (WrongUriToMutualInductiveDefinitions
-            (UriManager.string_of_uri uri))
-        )
-    | C.Appl ((C.MutInd (uri,_,i))::_) ->
-       (match CicEnvironment.get_obj uri with
-           C.InductiveDefinition (itl,_,_) ->
-            let (_,is_inductive,_,_) = List.nth itl i in
-             if is_inductive then None else (Some uri)
-         | _ ->
-           raise (WrongUriToMutualInductiveDefinitions
-            (UriManager.string_of_uri uri))
-        )
-    | C.Prod (_,_,de) -> returns_a_coinductive de
-    | _ -> None
-
- in
-  type_of_aux env t
-
-(* is a small constructor? *)
-(*CSC: ottimizzare calcolando staticamente *)
-and is_small paramsno c =
- let rec is_small_aux env c =
-  let module C = Cic in
-   match CicReduction.whd c with
-      C.Prod (_,so,de) ->
-       let s = type_of_aux' env so in
-        (s = C.Sort C.Prop || s = C.Sort C.Set) &&
-        is_small_aux (so::env) de
-    | _ -> true (*CSC: we trust the type-checker *)
- in
-  let (sx,dx) = split_prods paramsno c in
-   is_small_aux (List.rev sx) dx
-
-and type_of t =
- type_of_aux' [] t
-;;
-
-let typecheck uri =
- let module C = Cic in
- let module R = CicReduction in
- let module U = UriManager in
-  match CicEnvironment.is_type_checked uri 0 with
-     CicEnvironment.CheckedObj _ -> ()
-   | CicEnvironment.UncheckedObj uobj ->
-      (* let's typecheck the uncooked object *)
-      log (`Start_type_checking uri) ;
-      (match uobj with
-          C.Definition (_,te,ty,_) ->
-           let _ = type_of ty in
-            if not (R.are_convertible (type_of te ) ty) then
-             raise (NotWellTyped ("Constant " ^ (U.string_of_uri uri)))
-        | C.Axiom (_,ty,_) ->
-          (* only to check that ty is well-typed *)
-          let _ = type_of ty in ()
-        | C.CurrentProof (_,_,te,ty) ->
-           (*CSC [] wrong *)
-           let _ = type_of ty in
-            debug (type_of te) [] ;
-            if not (R.are_convertible (type_of te) ty) then
-             raise (NotWellTyped ("CurrentProof" ^ (U.string_of_uri uri)))
-        | C.Variable (_,bo,ty) ->
-           (* only to check that ty is well-typed *)
-           let _ = type_of ty in
-            (match bo with
-                None -> ()
-              | Some bo ->
-                 if not (R.are_convertible (type_of bo) ty) then
-                  raise (NotWellTyped ("Variable" ^ (U.string_of_uri uri)))
-            )
-        | C.InductiveDefinition _ ->
-           cooked_mutual_inductive_defs uri uobj
-      ) ;
-      CicEnvironment.set_type_checking_info uri ;
-      log (`Type_checking_completed uri)
-;;

diff --git a/helm/ocaml/cic_proof_checking/cicTypeChecker.mli b/helm/ocaml/cic_proof_checking/cicTypeChecker.mli
deleted file mode 100644 (file)
index 72dd63c..0000000
--- a/helm/ocaml/cic_proof_checking/cicTypeChecker.mli
+++ /dev/null
@@ -1,34 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception NotWellTyped of string
-exception WrongUriToConstant of string
-exception WrongUriToVariable of string
-exception WrongUriToMutualInductiveDefinitions of string
-exception ListTooShort
-exception NotPositiveOccurrences of string
-exception NotWellFormedTypeOfInductiveConstructor of string
-exception WrongRequiredArgument of string
-val typecheck : UriManager.uri -> unit

diff --git a/helm/ocaml/cic_textual_parser/.cvsignore b/helm/ocaml/cic_textual_parser/.cvsignore
deleted file mode 100644 (file)
index b94a819..0000000
--- a/helm/ocaml/cic_textual_parser/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cm[iaox] *.cmxa cicTextualParser.ml cicTextualParser.mli cicTextualLexer.ml

diff --git a/helm/ocaml/cic_textual_parser/.depend b/helm/ocaml/cic_textual_parser/.depend
deleted file mode 100644 (file)
index 205e603..0000000
--- a/helm/ocaml/cic_textual_parser/.depend
+++ /dev/null
@@ -1,4 +0,0 @@
-cicTextualParser.cmo: cicTextualParser0.cmo cicTextualParser.cmi 
-cicTextualParser.cmx: cicTextualParser0.cmx cicTextualParser.cmi 
-cicTextualLexer.cmo: cicTextualParser.cmi 
-cicTextualLexer.cmx: cicTextualParser.cmx 

diff --git a/helm/ocaml/cic_textual_parser/Makefile b/helm/ocaml/cic_textual_parser/Makefile
deleted file mode 100644 (file)
index e797dc2..0000000
--- a/helm/ocaml/cic_textual_parser/Makefile
+++ /dev/null
@@ -1,14 +0,0 @@
-PACKAGE = cic_textual_parser
-REQUIRES = helm-cic
-PREDICATES =
-
-INTERFACE_FILES = cicTextualParser.mli
-IMPLEMENTATION_FILES = cicTextualParser0.ml $(INTERFACE_FILES:%.mli=%.ml) \
-                       cicTextualLexer.ml
-EXTRA_OBJECTS_TO_INSTALL = cicTextualParser0.ml cicTextualParser0.cmi \
-                           cicTextualLexer.mll cicTextualParser.mly
-
-EXTRA_OBJECTS_TO_CLEAN = cicTextualParser.ml cicTextualParser.mli \
-                         cicTextualLexer.ml
-
-include ../Makefile.common

diff --git a/helm/ocaml/cic_textual_parser/cicTextualLexer.mll b/helm/ocaml/cic_textual_parser/cicTextualLexer.mll
deleted file mode 100644 (file)
index d35a466..0000000
--- a/helm/ocaml/cic_textual_parser/cicTextualLexer.mll
+++ /dev/null
@@ -1,62 +0,0 @@
-{
- open CicTextualParser;;
- module L = Lexing;;
- module U = UriManager;;
-
- let indtyuri_of_uri uri =
-  let index_sharp =  String.index uri '#' in
-  let index_num = index_sharp + 3 in
-   (UriManager.uri_of_string (String.sub uri 0 index_sharp),
-    int_of_string (String.sub uri index_num (String.length uri - index_num)) - 1
-   )
- ;;
-
- let indconuri_of_uri uri =
-  let index_sharp =  String.index uri '#' in
-  let index_div = String.rindex uri '/' in
-  let index_con = index_div + 1 in
-   (UriManager.uri_of_string (String.sub uri 0 index_sharp),
-    int_of_string
-     (String.sub uri (index_sharp + 3) (index_div - index_sharp - 3)) - 1,
-    int_of_string
-     (String.sub uri index_con (String.length uri - index_con))
-   )
- ;;
-}
-let num = ['1'-'9']['0'-'9']* | '0'
-let ident = ['A'-'Z' 'a'-'z' '_' '-']*
-let baseuri = '/'(ident '/')* ident '.'
-let conuri = baseuri ("con" | "var")
-let indtyuri = baseuri "ind#1/" num
-let indconuri = baseuri "ind#1/" num "/" num
-let blanks = [' ' '\t' '\n']
-rule token =
- parse
-    blanks      { token lexbuf } (* skip blanks *)
-  | "alias"     { ALIAS }
-  | "Case"      { CASE }
-  | "Fix"       { FIX }
-  | "CoFix"     { COFIX }
-  | "Set"       { SET }
-  | "Prop"      { PROP }
-  | "Type"      { TYPE }
-  | ident       { ID (L.lexeme lexbuf) }
-  | conuri      { CONURI (U.uri_of_string ("cic:" ^ L.lexeme lexbuf)) }
-  | indtyuri    { INDTYURI (indtyuri_of_uri ("cic:" ^ L.lexeme lexbuf)) }
-  | indconuri   { INDCONURI (indconuri_of_uri("cic:" ^ L.lexeme lexbuf)) }
-  | num         { NUM (int_of_string (L.lexeme lexbuf)) }
-  | '?' num     { META (int_of_string (L.lexeme lexbuf)) }
-  | ":>"        { CAST }
-  | ":="        { LETIN }
-  | '?'         { IMPLICIT }
-  | '('         { LPAREN }
-  | ')'         { RPAREN }
-  | '{'         { LCURLY }
-  | '}'         { RCURLY }
-  | ';'         { SEMICOLON }
-  | '\\'        { LAMBDA }
-  | '!'         { PROD }
-  | ':'         { COLON }
-  | '.'         { DOT }
-  | eof         { EOF }
-{}

diff --git a/helm/ocaml/cic_textual_parser/cicTextualParser.mly b/helm/ocaml/cic_textual_parser/cicTextualParser.mly
deleted file mode 100644 (file)
index 42869a2..0000000
--- a/helm/ocaml/cic_textual_parser/cicTextualParser.mly
+++ /dev/null
@@ -1,185 +0,0 @@
-%{
- open Cic;;
- module U = UriManager;;
-
- exception InvalidSuffix of string;;
- exception InductiveTypeURIExpected;;
- 
- let uri_of_id_map = Hashtbl.create 53;;
-
- let binders = ref [];;
-
- let get_index_in_list e =
-  let rec aux i =
-   function
-      [] -> raise Not_found
-    | he::_ when he = e -> i
-    | _::tl -> aux (i+1) tl
-  in
-   aux 1
-;;
-%}
-%token <string> ID
-%token <int> META
-%token <int> NUM
-%token <UriManager.uri> CONURI
-%token <UriManager.uri * int> INDTYURI
-%token <UriManager.uri * int * int> INDCONURI
-%token ALIAS
-%token LPAREN RPAREN PROD LAMBDA COLON DOT SET PROP TYPE CAST IMPLICIT
-%token LETIN FIX COFIX SEMICOLON LCURLY RCURLY CASE EOF
-%start main
-%type <Cic.term option> main
-%%
-main:
-   expr  { Some $1 }
- | alias { None }
- | EOF   { raise CicTextualParser0.Eof }
-;
-expr:
-   CONURI
-   { let uri = UriManager.string_of_uri $1 in
-     let suff = (String.sub uri (String.length uri - 3) 3) in
-      match suff with
-         "con" -> Const ($1,0)
-       | "var" -> Var $1
-       | _ -> raise (InvalidSuffix suff)
-   }
- | INDTYURI { MutInd (fst $1, 0, snd $1) }
- | INDCONURI
-   { let (uri,tyno,consno) = $1 in MutConstruct (uri, 0, tyno, consno) }
- | ID
-   { try
-       Rel (get_index_in_list (Name $1) !binders)
-     with
-      Not_found ->
-       Hashtbl.find uri_of_id_map $1
-   }
- | CASE LPAREN expr COLON INDTYURI SEMICOLON expr RPAREN LCURLY branches RCURLY
-    { MutCase (fst $5, 0, snd $5, $7, $3, $10) }
- | CASE LPAREN expr COLON ID SEMICOLON expr RPAREN LCURLY branches RCURLY
-    { try
-       let _ = get_index_in_list (Name $5) !binders in
-        raise InductiveTypeURIExpected
-      with
-       Not_found ->
-        match Hashtbl.find uri_of_id_map $5 with
-           MutInd (uri,0,typeno) -> MutCase (uri, 0, typeno, $7, $3, $10)
-         | _ -> raise InductiveTypeURIExpected
-    }
- | fixheader LCURLY exprseplist RCURLY
-    { let fixfunsdecls = snd $1 in
-      let fixfunsbodies = $3 in
-       let idx =
-        let rec find idx =
-         function
-            [] -> raise Not_found
-          | (name,_,_)::_  when name = (fst $1) -> idx
-          | _::tl -> find (idx+1) tl
-        in
-         find 0 fixfunsdecls
-       in
-        let fixfuns =
-         List.map2 (fun (name,recindex,ty) bo -> (name,recindex,ty,bo))
-          fixfunsdecls fixfunsbodies
-        in
-         for i = 1 to List.length fixfuns do
-          binders := List.tl !binders
-         done ;
-         Fix (idx,fixfuns)
-    }
- | cofixheader LCURLY exprseplist RCURLY
-    { let cofixfunsdecls = (snd $1) in
-      let cofixfunsbodies = $3 in
-       let idx =
-        let rec find idx =
-         function
-            [] -> raise Not_found
-          | (name,_)::_  when name = (fst $1) -> idx
-          | _::tl -> find (idx+1) tl
-        in
-         find 0 cofixfunsdecls
-       in
-        let cofixfuns =
-         List.map2 (fun (name,ty) bo -> (name,ty,bo))
-          cofixfunsdecls cofixfunsbodies
-        in
-         for i = 1 to List.length cofixfuns do
-          binders := List.tl !binders
-         done ;
-         CoFix (idx,cofixfuns)
-    }
- | IMPLICIT { Implicit }
- | SET { Sort Set }
- | PROP { Sort Prop }
- | TYPE { Sort Type }
- | LPAREN expr CAST expr RPAREN { Cast ($2,$4) }
- | META { Meta $1 }
- | LPAREN expr expr exprlist RPAREN { Appl ([$2;$3]@$4) }
- | pihead expr 
-    { binders := List.tl !binders ; Prod (fst $1, snd $1,$2) }
- | lambdahead expr 
-    { binders := List.tl !binders ; Lambda (fst $1, snd $1,$2) }
- | letinhead expr 
-    { binders := List.tl !binders ; LetIn (fst $1, snd $1,$2) }
-;
-fixheader:
-   FIX ID LCURLY fixfunsdecl RCURLY
-    { let bs = List.rev_map (function (name,_,_) -> Name name) $4 in
-       binders := bs@(!binders) ;
-       $2,$4
-    }
-;
-fixfunsdecl:
-   ID LPAREN NUM RPAREN COLON expr
-    { [$1,$3,$6] }
- | ID LPAREN NUM RPAREN COLON expr SEMICOLON fixfunsdecl
-    { ($1,$3,$6)::$8 }
-;
-cofixheader:
-   COFIX ID LCURLY cofixfunsdecl RCURLY
-    { let bs = List.rev_map (function (name,_) -> Name name) $4 in
-       binders := bs@(!binders) ;
-       $2,$4
-    }
-;
-cofixfunsdecl:
-   ID COLON expr
-    { [$1,$3] }
- | ID COLON expr SEMICOLON cofixfunsdecl
-    { ($1,$3)::$5 }
-;
-pihead:
-  PROD ID COLON expr DOT
-   { binders := (Name $2)::!binders ; (Cic.Name $2, $4) }
-;
-lambdahead:
-  LAMBDA ID COLON expr DOT
-   { binders := (Name $2)::!binders ; (Cic.Name $2, $4) }
-;
-letinhead:
-  LAMBDA ID LETIN expr DOT
-   { binders := (Name $2)::!binders ; (Cic.Name $2, $4) }
-;
-branches:
-                            { [] }
- | expr SEMICOLON branches  { $1::$3 }
- | expr                     { [$1] }
-;
-exprlist:
-                  { [] }
- | expr exprlist  { $1::$2 }
-;
-exprseplist:
-   expr                        { [$1] }
- | expr SEMICOLON exprseplist  { $1::$3 }
-;
-alias:
-   ALIAS ID CONURI
-    { Hashtbl.add uri_of_id_map $2 (Cic.Const ($3,0)) }
- | ALIAS ID INDTYURI
-    { Hashtbl.add uri_of_id_map $2 (Cic.MutInd (fst $3, 0, snd $3)) }
- | ALIAS ID INDCONURI
-    { let uri,indno,consno = $3 in
-       Hashtbl.add uri_of_id_map $2 (Cic.MutConstruct (uri, 0, indno ,consno))
-    }

diff --git a/helm/ocaml/cic_textual_parser/cicTextualParser0.ml b/helm/ocaml/cic_textual_parser/cicTextualParser0.ml
deleted file mode 100644 (file)
index 7917cbd..0000000
--- a/helm/ocaml/cic_textual_parser/cicTextualParser0.ml
+++ /dev/null
@@ -1 +0,0 @@
-exception Eof;;

diff --git a/helm/ocaml/configure.in b/helm/ocaml/configure.in
deleted file mode 100644 (file)
index d586e33..0000000
--- a/helm/ocaml/configure.in
+++ /dev/null
@@ -1,27 +0,0 @@
-AC_INIT(Makefile.in)
-
-AC_CHECK_PROG(HAVE_OCAMLC, ocamlc, yes, no)
-if test $HAVE_OCAMLC = "no"; then
-  AC_MSG_ERROR(could not find ocamlc in PATH, please make sure ocaml is installed)
-fi
-
-AC_CHECK_PROG(HAVE_OCAMLFIND, ocamlfind, yes, no)
-if test $HAVE_OCAMLFIND = "no"; then
-  AC_MSG_ERROR(could not find ocamlfind in PATH, please make sure findlib is installed)
-fi
-
-AC_MSG_CHECKING("where to install the library")
-OCAMLFIND_DEST_DIR="/public/sacerdot/prova"
-AC_MSG_RESULT($OCAMLFIND_DEST_DIR)
-
-AC_MSG_CHECKING("where to install the META files")
-OCAMLFIND_META_DIR="/public/sacerdot/prova/META"
-AC_MSG_RESULT($OCAMLFIND_META_DIR)
-
-AC_SUBST(OCAMLFIND_DEST_DIR)
-AC_SUBST(OCAMLFIND_META_DIR)
-
-AC_OUTPUT([
-  Makefile
-  Makefile.common
-])

diff --git a/helm/ocaml/getter/.cvsignore b/helm/ocaml/getter/.cvsignore
deleted file mode 100644 (file)
index 6b3eba3..0000000
--- a/helm/ocaml/getter/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cm[iaox] *.cmxa

diff --git a/helm/ocaml/getter/.depend b/helm/ocaml/getter/.depend
deleted file mode 100644 (file)
index 2013e9b..0000000
--- a/helm/ocaml/getter/.depend
+++ /dev/null
@@ -1,6 +0,0 @@
-configuration.cmo: configuration.cmi 
-configuration.cmx: configuration.cmi 
-clientHTTP.cmo: configuration.cmi clientHTTP.cmi 
-clientHTTP.cmx: configuration.cmx clientHTTP.cmi 
-getter.cmo: clientHTTP.cmi configuration.cmi getter.cmi 
-getter.cmx: clientHTTP.cmx configuration.cmx getter.cmi 

diff --git a/helm/ocaml/getter/Makefile b/helm/ocaml/getter/Makefile
deleted file mode 100644 (file)
index 576b046..0000000
--- a/helm/ocaml/getter/Makefile
+++ /dev/null
@@ -1,10 +0,0 @@
-PACKAGE = getter
-REQUIRES = pxp netclient helm-urimanager
-PREDICATES =
-
-INTERFACE_FILES = configuration.mli clientHTTP.mli getter.mli
-IMPLEMENTATION_FILES = $(INTERFACE_FILES:%.mli=%.ml)
-EXTRA_OBJECTS_TO_INSTALL =
-EXTRA_OBJECTS_TO_CLEAN =
-
-include ../Makefile.common

diff --git a/helm/ocaml/getter/clientHTTP.ml b/helm/ocaml/getter/clientHTTP.ml
deleted file mode 100644 (file)
index 4d5488c..0000000
--- a/helm/ocaml/getter/clientHTTP.ml
+++ /dev/null
@@ -1,60 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception HttpClientError of exn * string;;
-
-let send cmd =
- try
-  ignore (Http_client.Convenience.http_get cmd)
- with
-  e -> raise (HttpClientError (e,cmd))
-;;
-
-let get uri =
- try
-  Http_client.Convenience.http_get uri
- with
-  e -> raise (HttpClientError (e,uri))
-;;
-
-let get_and_save uri dest_filename =
- let reply = get uri
- and out_channel = open_out dest_filename in
-  output_string out_channel reply ;
-  close_out out_channel
-;;
-
-let get_and_save_to_tmp uri =
- let flat_string s s' c =
-  let cs = String.copy s in
-   for i = 0 to (String.length s) - 1 do
-    if String.contains s' s.[i] then cs.[i] <- c
-   done ;
-   cs
- in
-  let tmp_file = Configuration.tmp_dir ^ "/" ^ (flat_string uri ".-=:;!?/&" '_') in
-  get_and_save uri tmp_file ;
-  tmp_file
-;;

diff --git a/helm/ocaml/getter/clientHTTP.mli b/helm/ocaml/getter/clientHTTP.mli
deleted file mode 100644 (file)
index 59587ed..0000000
--- a/helm/ocaml/getter/clientHTTP.mli
+++ /dev/null
@@ -1,30 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-exception HttpClientError of exn * string;;
-val send : string -> unit
-val get : string -> string
-val get_and_save : string -> string -> unit
-val get_and_save_to_tmp : string -> string

diff --git a/helm/ocaml/getter/configuration.ml b/helm/ocaml/getter/configuration.ml
deleted file mode 100644 (file)
index 2c7ead3..0000000
--- a/helm/ocaml/getter/configuration.ml
+++ /dev/null
@@ -1,118 +0,0 @@
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 28/12/2000                                 *)
-(*                                                                            *)
-(* This is the parser that reads the configuration file of helm               *)
-(*                                                                            *)
-(******************************************************************************)
-
-exception MalformedDir of string
-
-(* this should be the only hard coded constant *)
-let filename =
- let prefix =
-  try
-   Sys.getenv "HELM_CONFIGURATION_DIR"
-  with
-   Not_found -> "/projects/helm/V7/phd/local/etc/helm"
- in
-  if prefix.[(String.length prefix) - 1] = '/' then
-   raise (MalformedDir prefix) ;
-  prefix ^ "/configuration.xml";;
-
-exception Warnings;;
-
-class warner =
-  object 
-    method warn w =
-      print_endline ("WARNING: " ^ w) ;
-      (raise Warnings : unit)
-  end
-;;
-
-let xml_document () =
- let module Y = Pxp_yacc in
-  try 
-   let config = {Y.default_config with Y.warner = new warner} in
-    Y.parse_document_entity config (Y.from_file filename) Y.default_spec
-  with
-   e ->
-     print_endline (Pxp_types.string_of_exn e) ;
-     raise e
-;;
-
-exception Impossible;;
-
-let vars = Hashtbl.create 14;;
-
-(* resolve <value-of> tags and returns the string values of the variable tags *)
-let rec resolve =
- let module D = Pxp_document in
-  function
-     [] -> ""
-   | he::tl when he#node_type = D.T_element "value-of" ->
-      (match he#attribute "var" with
-          Pxp_types.Value var -> Hashtbl.find vars var
-        | _ -> raise Impossible
-      ) ^ resolve tl
-   | he::tl when he#node_type = D.T_data ->
-      he#data ^ resolve tl
-   | _ -> raise Impossible
-;;
-
-(* we trust the xml file to be valid because of the validating xml parser *)
-let _ =
- List.iter
-  (function
-      n ->
-       match n#node_type with
-          Pxp_document.T_element var ->
-           Hashtbl.add vars var (resolve (n#sub_nodes))
-        | _ -> raise Impossible
-  )
-  ((xml_document ())#root#sub_nodes)
-;;
-
-(* try to read a configuration variable, given its name into the
- * configuration.xml file and its name into the shell environment.
- * The shell variable, if present, has precedence over configuration.xml
- *)
-let read_configuration_var_env xml_name env_name =
- try
-  try
-   Sys.getenv env_name
-  with
-   Not_found -> Hashtbl.find vars xml_name
- with
-  Not_found ->
-   Printf.printf "Sorry, cannot find variable `%s', please check your configuration\n" xml_name ;
-   flush stdout ;
-   raise Not_found
-
-let read_configuration_var xml_name =
- try
-  Hashtbl.find vars xml_name
- with
-  Not_found ->
-   Printf.printf "Sorry, cannot find variable `%s', please check your configuration\n" xml_name ;
-   flush stdout ;
-   raise Not_found
-
-let helm_dir      = read_configuration_var     "helm_dir";;
-let dtd_dir       = read_configuration_var     "dtd_dir";;
-let style_dir     = read_configuration_var_env "style_dir" "HELM_STYLE_DIR";;
-let servers_file  = read_configuration_var     "servers_file";;
-let uris_dbm      = read_configuration_var     "uris_dbm";;
-let dest          = read_configuration_var     "dest";;
-let indexname     = read_configuration_var     "indexname";;
-let tmp_dir       = read_configuration_var     "tmp_dir"
-let helm_dir      = read_configuration_var     "helm_dir";;
-let getter_url    = read_configuration_var_env "getter_url" "HELM_GETTER_URL";;
-let processor_url = read_configuration_var_env "processor_url" "HELM_PROCESSOR_URL";;
-let annotations_dir = read_configuration_var_env "annotations_dir" "HELM_ANNOTATIONS_DIR"
-let annotations_url = read_configuration_var_env "annotations_url" "HELM_ANNOTATIONS_URL"
-
-let _ = Hashtbl.clear vars;;

diff --git a/helm/ocaml/getter/configuration.mli b/helm/ocaml/getter/configuration.mli
deleted file mode 100644 (file)
index 4d0bfbc..0000000
--- a/helm/ocaml/getter/configuration.mli
+++ /dev/null
@@ -1,48 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 29/11/2000                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
-val helm_dir : string
-val dtd_dir : string
-val style_dir : string
-val servers_file : string
-val uris_dbm : string
-val dest : string
-val indexname : string
-val tmp_dir : string
-val helm_dir : string
-val getter_url : string
-val processor_url : string
-val annotations_dir : string
-val annotations_url : string

diff --git a/helm/ocaml/getter/getter.ml b/helm/ocaml/getter/getter.ml
deleted file mode 100644 (file)
index 894bf3e..0000000
--- a/helm/ocaml/getter/getter.ml
+++ /dev/null
@@ -1,63 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(******************************************************************************)
-
-let getter_url = ref Configuration.getter_url;;
-
-let update () =
- (* deliver update request to http_getter *)
- ClientHTTP.send (!getter_url ^ "update")
-;;
-
-type format =
-   Normal
- | GZipped
-;;
-
-let getxml ?(format=Normal) ?(patchdtd=true) uri =
- (* deliver getxml request to http_getter *)
- ClientHTTP.get_and_save_to_tmp
-  (!getter_url ^ "getxml" ^
-    "?uri=" ^ UriManager.string_of_uri uri ^
-    "&format=" ^ (match format with Normal -> "normal" | GZipped -> "gzipped") ^
-    "&patch_dtd=" ^ (match patchdtd with true -> "yes" | false -> "no")
-  )
-;;
-
-let register uri url =
- (* deliver register request to http_getter *)
- ClientHTTP.send
-  (!getter_url ^ "register" ^
-    "?uri=" ^ (UriManager.string_of_uri uri) ^
-    "&url=" ^ url)
-;;

diff --git a/helm/ocaml/getter/getter.mli b/helm/ocaml/getter/getter.mli
deleted file mode 100644 (file)
index 6b1d2ca..0000000
--- a/helm/ocaml/getter/getter.mli
+++ /dev/null
@@ -1,53 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 24/01/2000                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
-(* THE URL OF THE HTTP GETTER *)
-val getter_url : string ref
-
-(* SIMPLE BINDINGS TO THE HTTP GETTER *)
-(* synchronize with the servers *)
-val update : unit -> unit
-
-type format =
-   Normal
- | GZipped
-;;
-
-(* get the xml file                              *)
-(* defaults: format = Normal and patchdtd = true *)
-val getxml : ?format:format -> ?patchdtd:bool -> UriManager.uri -> string
-
-(* adds an (URI -> URL) entry in the map from URIs to URLs *)
-val register : UriManager.uri -> string -> unit

diff --git a/helm/ocaml/pxp/.cvsignore b/helm/ocaml/pxp/.cvsignore
deleted file mode 100644 (file)
index 6b3eba3..0000000
--- a/helm/ocaml/pxp/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cm[iaox] *.cmxa

diff --git a/helm/ocaml/pxp/.depend b/helm/ocaml/pxp/.depend
deleted file mode 100644 (file)
index 529d934..0000000
--- a/helm/ocaml/pxp/.depend
+++ /dev/null
@@ -1,5 +0,0 @@
-pxpUriResolver.cmi: csc_pxp_reader.cmi 
-csc_pxp_reader.cmo: csc_pxp_reader.cmi 
-csc_pxp_reader.cmx: csc_pxp_reader.cmi 
-pxpUriResolver.cmo: csc_pxp_reader.cmi pxpUriResolver.cmi 
-pxpUriResolver.cmx: csc_pxp_reader.cmx pxpUriResolver.cmi 

diff --git a/helm/ocaml/pxp/Makefile b/helm/ocaml/pxp/Makefile
deleted file mode 100644 (file)
index b40081f..0000000
--- a/helm/ocaml/pxp/Makefile
+++ /dev/null
@@ -1,10 +0,0 @@
-PACKAGE = pxp
-REQUIRES = helm-getter
-PREDICATES =
-
-INTERFACE_FILES = csc_pxp_reader.mli pxpUriResolver.mli
-IMPLEMENTATION_FILES = $(INTERFACE_FILES:%.mli=%.ml)
-EXTRA_OBJECTS_TO_INSTALL =
-EXTRA_OBJECTS_TO_CLEAN =
-
-include ../Makefile.common

diff --git a/helm/ocaml/pxp/csc_pxp_reader.ml b/helm/ocaml/pxp/csc_pxp_reader.ml
deleted file mode 100644 (file)
index daabedc..0000000
--- a/helm/ocaml/pxp/csc_pxp_reader.ml
+++ /dev/null
@@ -1,1011 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright by Gerd Stolpmann. See LICENSE for details.
- *)
-
-open Pxp_types;;
-exception Not_competent;;
-exception Not_resolvable of exn;;
-
-class type resolver =
-  object
-    method init_rep_encoding : rep_encoding -> unit
-    method init_warner : collect_warnings -> unit
-    method rep_encoding : rep_encoding
-    method open_in : ext_id -> Lexing.lexbuf
-    method close_in : unit
-    method close_all : unit
-    method change_encoding : string -> unit
-    method clone : resolver
-  end
-;;
-
-
-class virtual resolve_general
- =
-  object (self)
-    val mutable internal_encoding = `Enc_utf8
-
-    val mutable encoding = `Enc_utf8
-    val mutable encoding_requested = false
-
-    val mutable warner = new drop_warnings
-
-    val mutable enc_initialized = false
-    val mutable wrn_initialized = false
-
-    val mutable clones = []
-
-    method init_rep_encoding e =
-      internal_encoding <- e;
-      enc_initialized <- true;
-
-    method init_warner w =
-      warner <- w;
-      wrn_initialized <- true;
-
-    method rep_encoding = (internal_encoding :> rep_encoding)
-
-(*
-    method clone =
-      ( {< encoding = `Enc_utf8;
-          encoding_requested = false;
-       >}
-       : # resolver :> resolver )
-*)
-
-    method private warn (k:int) =
-      (* Called if a character not representable has been found.
-       * k is the character code.
-       *)
-       if k < 0xd800 or (k >= 0xe000 & k <= 0xfffd) or
-          (k >= 0x10000 & k <= 0x10ffff) then begin
-            warner # warn ("Code point cannot be represented: " ^ string_of_int k);
-          end
-       else
-         raise (WF_error("Code point " ^ string_of_int k ^
-                   " outside the accepted range of code points"))
-
-
-    method private autodetect s =
-      (* s must be at least 4 bytes long. The slot 'encoding' is
-       * set to:
-       * "UTF-16-BE": UTF-16/UCS-2 encoding big endian
-       * "UTF-16-LE": UTF-16/UCS-2 encoding little endian
-       * "UTF-8":     UTF-8 encoding
-       *)
-      if String.length s < 4 then
-       encoding <- `Enc_utf8
-      else if String.sub s 0 2 = "\254\255" then
-       encoding <- `Enc_utf16
-         (* Note: Netconversion.recode will detect the big endianess, too *)
-      else if String.sub s 0 2 = "\255\254" then
-       encoding <- `Enc_utf16
-         (* Note: Netconversion.recode will detect the little endianess, too *)
-      else
-       encoding <- `Enc_utf8
-
-
-    method private virtual next_string : string -> int -> int -> int
-    method private virtual init_in : ext_id -> unit
-    method virtual close_in : unit
-
-    method close_all =
-      List.iter (fun r -> r # close_in) clones
-
-    method open_in xid =
-      assert(enc_initialized && wrn_initialized);
-
-      encoding <- `Enc_utf8;
-      encoding_requested <- false;
-      self # init_in xid;         (* may raise Not_competent *)
-      (* init_in: may already set 'encoding' *)
-
-      let buffer_max = 512 in
-      let buffer = String.make buffer_max ' ' in
-      let buffer_len = ref 0 in
-      let buffer_end = ref false in
-      let fillup () =
-       if not !buffer_end & !buffer_len < buffer_max then begin
-         let l =
-           self # next_string buffer !buffer_len (buffer_max - !buffer_len) in
-         if l = 0 then
-           buffer_end := true
-         else begin
-           buffer_len := !buffer_len + l
-         end
-       end
-      in
-      let consume n =
-       let l = !buffer_len - n in
-       String.blit buffer n buffer 0 l;
-       buffer_len := l
-      in
-
-      fillup();
-      if not encoding_requested then self # autodetect buffer;
-
-      Lexing.from_function
-       (fun s n ->
-          (* TODO: if encoding = internal_encoding, it is possible to
-           * avoid copying buffer to s because s can be directly used
-           * as buffer.
-           *)
-
-          fillup();
-          if !buffer_len = 0 then
-            0
-          else begin
-            let m_in  = !buffer_len in
-            let m_max = if encoding_requested then n else 1 in
-            let n_in, n_out, encoding' =
-              if encoding = (internal_encoding : rep_encoding :> encoding) &&
-                 encoding_requested
-              then begin
-                (* Special case encoding = internal_encoding *)
-                String.blit buffer 0 s 0 m_in;
-                m_in, m_in, encoding
-              end
-              else
-                Netconversion.recode
-                  ~in_enc:encoding
-                  ~in_buf:buffer
-                  ~in_pos:0
-                  ~in_len:m_in
-                  ~out_enc:(internal_encoding : rep_encoding :> encoding)
-                  ~out_buf:s
-                  ~out_pos:0
-                  ~out_len:n
-                  ~max_chars:m_max
-                  ~subst:(fun k -> self # warn k; "")
-            in
-            if n_in = 0 then
-              (* An incomplete character at the end of the stream: *)
-              raise Netconversion.Malformed_code;
-              (* failwith "Badly encoded character"; *)
-            encoding <- encoding';
-            consume n_in;
-            assert(n_out <> 0);
-            n_out
-          end)
-
-    method change_encoding enc =
-      if not encoding_requested then begin
-       if enc <> "" then begin
-         match Netconversion.encoding_of_string enc with
-             `Enc_utf16 ->
-               (match encoding with
-                    (`Enc_utf16_le | `Enc_utf16_be) -> ()
-                  | `Enc_utf16 -> assert false
-                  | _ ->
-                      raise(WF_error "Encoding of data stream and encoding declaration mismatch")
-               )
-           | e ->
-               encoding <- e
-       end;
-       (* else: the autodetected encoding counts *)
-       encoding_requested <- true;
-      end;
-  end
-;;
-
-
-class resolve_read_any_channel ?(close=close_in) ~channel_of_id () =
-  object (self)
-    inherit resolve_general as super
-
-    val f_open = channel_of_id
-    val mutable current_channel = None
-    val close = close
-
-    method private init_in (id:ext_id) =
-      if current_channel <> None then
-       failwith "Pxp_reader.resolve_read_any_channel # init_in";
-      let ch, enc_opt = f_open id in       (* may raise Not_competent *)
-      begin match enc_opt with
-         None     -> ()
-       | Some enc -> encoding <- enc; encoding_requested <- true
-      end;
-      current_channel <- Some ch;
-
-    method private next_string s ofs len =
-      match current_channel with
-         None -> failwith "Pxp_reader.resolve_read_any_channel # next_string"
-       | Some ch ->
-           input ch s ofs len
-
-    method close_in =
-      match current_channel with
-         None -> ()
-       | Some ch ->
-           close ch;
-           current_channel <- None
-
-    method clone =
-      let c = new resolve_read_any_channel
-               ?close:(Some close) f_open () in
-      c # init_rep_encoding internal_encoding;
-      c # init_warner warner;
-      clones <- c :: clones;
-      (c :> resolver)
-
-  end
-;;
-
-
-class resolve_read_this_channel1 is_stale ?id ?fixenc ?close ch =
-
-  let getchannel = ref (fun xid -> assert false) in
-
-  object (self)
-    inherit resolve_read_any_channel
-              ?close
-             (fun xid -> !getchannel xid)
-             ()
-             as super
-
-    val mutable is_stale = is_stale
-      (* The channel can only be read once. To avoid that the channel
-       * is opened several times, the flag 'is_stale' is set after the
-       * first time.
-       *)
-
-    val fixid = id
-    val fixenc = fixenc
-    val fixch = ch
-
-    initializer
-      getchannel := self # getchannel
-
-    method private getchannel xid =
-      begin match fixid with
-         None -> ()
-       | Some bound_xid ->
-           if xid <> bound_xid then raise Not_competent
-      end;
-      ch, fixenc
-
-    method private init_in (id:ext_id) =
-      if is_stale then
-       raise Not_competent
-      else begin
-       super # init_in id;
-       is_stale <- true
-      end
-
-    method close_in =
-      current_channel <- None
-
-    method clone =
-      let c = new resolve_read_this_channel1
-               is_stale
-               ?id:fixid ?fixenc:fixenc ?close:(Some close) fixch
-      in
-      c # init_rep_encoding internal_encoding;
-      c # init_warner warner;
-      clones <- c :: clones;
-      (c :> resolver)
-
-  end
-;;
-
-
-class resolve_read_this_channel =
-  resolve_read_this_channel1 false
-;;
-
-
-class resolve_read_any_string ~string_of_id () =
-  object (self)
-    inherit resolve_general as super
-
-    val f_open = string_of_id
-    val mutable current_string = None
-    val mutable current_pos    = 0
-
-    method private init_in (id:ext_id) =
-      if current_string <> None then
-       failwith "Pxp_reader.resolve_read_any_string # init_in";
-      let s, enc_opt = f_open id in       (* may raise Not_competent *)
-      begin match enc_opt with
-         None     -> ()
-       | Some enc -> encoding <- enc; encoding_requested <- true
-      end;
-      current_string <- Some s;
-      current_pos    <- 0;
-
-    method private next_string s ofs len =
-      match current_string with
-         None -> failwith "Pxp_reader.resolve_read_any_string # next_string"
-       | Some str ->
-           let l = min len (String.length str - current_pos) in
-           String.blit str current_pos s ofs l;
-           current_pos <- current_pos + l;
-           l
-
-    method close_in =
-      match current_string with
-         None -> ()
-       | Some _ ->
-           current_string <- None
-
-    method clone =
-      let c = new resolve_read_any_string f_open () in
-      c # init_rep_encoding internal_encoding;
-      c # init_warner warner;
-      clones <- c :: clones;
-      (c :> resolver)
-  end
-;;
-
-
-class resolve_read_this_string1 is_stale ?id ?fixenc str =
-
-  let getstring = ref (fun xid -> assert false) in
-
-  object (self)
-    inherit resolve_read_any_string (fun xid -> !getstring xid) () as super
-
-    val is_stale = is_stale
-      (* For some reasons, it is not allowed to open a clone of the resolver
-       * a second time when the original resolver is already open.
-       *)
-
-    val fixid = id
-    val fixenc = fixenc
-    val fixstr = str
-
-    initializer
-      getstring := self # getstring
-
-    method private getstring xid =
-      begin match fixid with
-         None -> ()
-       | Some bound_xid ->
-           if xid <> bound_xid then raise Not_competent
-      end;
-      fixstr, fixenc
-
-
-    method private init_in (id:ext_id) =
-      if is_stale then
-       raise Not_competent
-      else
-       super # init_in id
-
-    method clone =
-      let c = new resolve_read_this_string1
-               (is_stale or current_string <> None)
-               ?id:fixid ?fixenc:fixenc fixstr
-      in
-      c # init_rep_encoding internal_encoding;
-      c # init_warner warner;
-      clones <- c :: clones;
-      (c :> resolver)
-  end
-;;
-
-
-class resolve_read_this_string =
-  resolve_read_this_string1 false
-;;
-
-
-class resolve_read_url_channel
-  ?(base_url = Neturl.null_url)
-  ?close
-  ~url_of_id
-  ~channel_of_url
-  ()
-
-  : resolver
-  =
-
-  let getchannel = ref (fun xid -> assert false) in
-
-  object (self)
-    inherit resolve_read_any_channel
-              ?close
-             (fun xid -> !getchannel xid)
-             ()
-             as super
-
-    val base_url = base_url
-    val mutable own_url = Neturl.null_url
-
-    val url_of_id = url_of_id
-    val channel_of_url = channel_of_url
-
-
-    initializer
-      getchannel := self # getchannel
-
-    method private getchannel xid =
-      let rel_url = url_of_id xid in    (* may raise Not_competent *)
-
-      try
-       (* Now compute the absolute URL: *)
-       let abs_url = 
-         if Neturl.url_provides ~scheme:true rel_url then
-           rel_url
-         else
-           Neturl.apply_relative_url base_url rel_url in
-            (* may raise Malformed_URL *)
-
-       (* Simple check whether 'abs_url' is really absolute: *)
-       if not(Neturl.url_provides ~scheme:true abs_url)
-       then raise Not_competent;
-
-       own_url <- abs_url;
-        (* FIXME: Copy 'abs_url' ? *)
-
-       (* Get and return the channel: *)
-       channel_of_url xid abs_url            (* may raise Not_competent *)
-      with
-         Neturl.Malformed_URL -> raise (Not_resolvable Neturl.Malformed_URL)
-       | Not_competent        -> raise (Not_resolvable Not_found)
-
-    method clone =
-      let c =
-       new resolve_read_url_channel
-         ?base_url:(Some own_url)
-         ?close:(Some close)
-         ~url_of_id:url_of_id
-         ~channel_of_url:channel_of_url
-         ()
-      in
-      c # init_rep_encoding internal_encoding;
-      c # init_warner warner;
-      clones <- c :: clones;
-      (c :> resolve_read_url_channel)
-  end
-;;
-
-
-type spec = [ `Not_recognized | `Allowed | `Required ]
-
-class resolve_as_file
-  ?(file_prefix = (`Allowed :> spec))
-  ?(host_prefix = (`Allowed :> spec))
-  ?(system_encoding = `Enc_utf8)
-  ?(map_private_id = (fun _ -> raise Not_competent))
-  ?(open_private_id = (fun _ -> raise Not_competent))
-  ()
-  =
-
-  let url_syntax =
-    let enable_if =
-      function
-         `Not_recognized  -> Neturl.Url_part_not_recognized
-       | `Allowed         -> Neturl.Url_part_allowed
-       | `Required        -> Neturl.Url_part_required
-    in
-    { Neturl.null_url_syntax with
-       Neturl.url_enable_scheme = enable_if file_prefix;
-       Neturl.url_enable_host   = enable_if host_prefix;
-       Neturl.url_enable_path   = Neturl.Url_part_required;
-       Neturl.url_accepts_8bits = true;
-    }
-  in
-
-  let base_url_syntax =
-    { Neturl.null_url_syntax with
-       Neturl.url_enable_scheme = Neturl.Url_part_required;
-       Neturl.url_enable_host   = Neturl.Url_part_allowed;
-       Neturl.url_enable_path   = Neturl.Url_part_required;
-       Neturl.url_accepts_8bits = true;
-    }
-  in
-
-  let default_base_url =
-    Neturl.make_url
-      ~scheme: "file"
-      ~host:   ""
-      ~path:   (Neturl.split_path (Sys.getcwd() ^ "/"))
-      base_url_syntax
-  in
-
-  let file_url_of_id xid =
-    let file_url_of_sysname sysname =
-      (* By convention, we can assume that sysname is a URL conforming
-       * to RFC 1738 with the exception that it may contain non-ASCII
-       * UTF-8 characters.
-       *)
-      try
-       Neturl.url_of_string url_syntax sysname
-          (* may raise Malformed_URL *)
-      with
-         Neturl.Malformed_URL -> raise Not_competent
-    in
-    let url =
-      match xid with
-         Anonymous          -> raise Not_competent
-       | Public (_,sysname) -> if sysname <> "" then file_url_of_sysname sysname
-                                                 else raise Not_competent
-       | System sysname     -> file_url_of_sysname sysname
-       | Private pid        -> map_private_id pid
-    in
-    let scheme =
-      try Neturl.url_scheme url with Not_found -> "file" in
-    let host =
-      try Neturl.url_host url with Not_found -> "" in
-
-    if scheme <> "file" then raise Not_competent;
-    if host <> "" && host <> "localhost" then raise Not_competent;
-
-    url
-  in
-
-  let channel_of_file_url xid url =
-    match xid with
-       Private pid -> open_private_id pid
-      | _ ->
-         ( try
-             let path_utf8 =
-               try Neturl.join_path (Neturl.url_path ~encoded:false url)
-               with Not_found -> raise Not_competent
-             in
-             
-             let path =
-               Netconversion.recode_string
-                 ~in_enc:  `Enc_utf8
-                 ~out_enc: system_encoding
-                 path_utf8 in
-              (* May raise Malformed_code *)
-             
-             open_in_bin path, None
-               (* May raise Sys_error *)
-               
-           with
-             | Netconversion.Malformed_code -> assert false
-               (* should not happen *)
-             | Sys_error _ as e ->
-                 raise (Not_resolvable e)
-         )
-  in
-
-  resolve_read_url_channel
-    ~base_url:       default_base_url
-    ~url_of_id:      file_url_of_id
-    ~channel_of_url: channel_of_file_url
-    ()
-;;
-
-
-let make_file_url ?(system_encoding = `Enc_utf8) ?(enc = `Enc_utf8) filename =
-  let utf8_filename =
-    Netconversion.recode_string
-    ~in_enc: enc
-    ~out_enc: `Enc_utf8 
-      filename
-  in
-
-  let utf8_abs_filename =
-    if utf8_filename <> "" && utf8_filename.[0] = '/' then
-      utf8_filename
-    else
-      let cwd = Sys.getcwd() in
-      let cwd_utf8 =
-       Netconversion.recode_string
-       ~in_enc: system_encoding
-       ~out_enc: `Enc_utf8 in
-      cwd ^ "/" ^ utf8_filename
-  in
-  
-  let syntax = { Neturl.ip_url_syntax with Neturl.url_accepts_8bits = true } in
-  let url = Neturl.make_url
-           ~scheme:"file"
-           ~host:"localhost"
-           ~path:(Neturl.split_path utf8_abs_filename)
-             syntax
-  in
-  url
-;;
-
-
-class lookup_public_id (catalog : (string * resolver) list) =
-  let norm_catalog =
-    List.map (fun (id,s) -> Pxp_aux.normalize_public_id id, s) catalog in
-( object (self)
-    val cat = norm_catalog
-    val mutable internal_encoding = `Enc_utf8
-    val mutable warner = new drop_warnings
-    val mutable active_resolver = None
-
-    method init_rep_encoding enc =
-      internal_encoding <- enc
-
-    method init_warner w =
-      warner <- w;
-
-    method rep_encoding = internal_encoding
-      (* CAUTION: This may not be the truth! *)
-
-    method open_in xid =
-
-      if active_resolver <> None then failwith "Pxp_reader.lookup_* # open_in";
-
-      let r =
-       match xid with
-           Public(pubid,_) ->
-             begin
-               (* Search pubid in catalog: *)
-               try
-                 let norm_pubid = Pxp_aux.normalize_public_id pubid in
-                 List.assoc norm_pubid cat
-               with
-                   Not_found ->
-                     raise Not_competent
-             end
-         | _ ->
-             raise Not_competent
-      in
-
-      let r' = r # clone in
-      r' # init_rep_encoding internal_encoding;
-      r' # init_warner warner;
-      let lb = r' # open_in xid in   (* may raise Not_competent *)
-      active_resolver <- Some r';
-      lb
-
-    method close_in =
-      match active_resolver with
-         None   -> ()
-       | Some r -> r # close_in;
-                   active_resolver <- None
-
-    method close_all =
-      self # close_in
-
-    method change_encoding (enc:string) =
-      match active_resolver with
-         None   -> failwith "Pxp_reader.lookup_* # change_encoding"
-       | Some r -> r # change_encoding enc
-
-    method clone =
-      let c = new lookup_public_id cat in
-      c # init_rep_encoding internal_encoding;
-      c # init_warner warner;
-      c
-  end : resolver )
-;;
-
-
-let lookup_public_id_as_file ?(fixenc:encoding option) catalog =
-  let ch_of_id filename id =
-    let ch = open_in_bin filename in  (* may raise Sys_error *)
-    ch, fixenc
-  in
-  let catalog' =
-    List.map
-      (fun (id,s) ->
-        (id, new resolve_read_any_channel (ch_of_id s) ())
-      )
-      catalog
-  in
-  new lookup_public_id catalog'
-;;
-
-
-let lookup_public_id_as_string ?(fixenc:encoding option) catalog =
-   let catalog' =
-    List.map
-      (fun (id,s) ->
-        (id, new resolve_read_any_string (fun _ -> s, fixenc) ())
-      )
-      catalog
-  in
-  new lookup_public_id catalog'
-;;
-   
-
-class lookup_system_id (catalog : (string * resolver) list) =
-( object (self)
-    val cat = catalog
-    val mutable internal_encoding = `Enc_utf8
-    val mutable warner = new drop_warnings
-    val mutable active_resolver = None
-
-    method init_rep_encoding enc =
-      internal_encoding <- enc
-
-    method init_warner w =
-      warner <- w;
-
-    method rep_encoding = internal_encoding
-      (* CAUTION: This may not be the truth! *)
-
-
-    method open_in xid =
-
-      if active_resolver <> None then failwith "Pxp_reader.lookup_system_id # open_in";
-
-      let lookup sysid =
-       try
-         List.assoc sysid cat
-       with
-           Not_found ->
-             raise Not_competent
-      in
-
-      let r =
-       match xid with
-           System sysid    -> lookup sysid
-         | Public(_,sysid) -> lookup sysid
-         | _               -> raise Not_competent
-      in
-
-      let r' = r # clone in
-      r' # init_rep_encoding internal_encoding;
-      r' # init_warner warner;
-      let lb = r' # open_in xid in   (* may raise Not_competent *)
-      active_resolver <- Some r';
-      lb
-
-
-    method close_in =
-      match active_resolver with
-         None   -> ()
-       | Some r -> r # close_in;
-                   active_resolver <- None
-
-    method close_all =
-      self # close_in
-
-    method change_encoding (enc:string) =
-      match active_resolver with
-         None   -> failwith "Pxp_reader.lookup_system # change_encoding"
-       | Some r -> r # change_encoding enc
-
-    method clone =
-      let c = new lookup_system_id cat in
-      c # init_rep_encoding internal_encoding;
-      c # init_warner warner;
-      c
-  end : resolver)
-;;
-
-
-let lookup_system_id_as_file ?(fixenc:encoding option) catalog =
-  let ch_of_id filename id =
-    let ch = open_in_bin filename in  (* may raise Sys_error *)
-    ch, fixenc
-  in
-  let catalog' =
-    List.map
-      (fun (id,s) ->
-        (id, new resolve_read_any_channel (ch_of_id s) ())
-      )
-      catalog
-  in
-  new lookup_system_id catalog'
-;;
-
-
-let lookup_system_id_as_string ?(fixenc:encoding option) catalog =
-   let catalog' =
-    List.map
-      (fun (id,s) ->
-        (id, new resolve_read_any_string (fun _ -> s, fixenc) ())
-      )
-      catalog
-  in
-  new lookup_system_id catalog'
-;;
-   
-
-type combination_mode =
-    Public_before_system
-  | System_before_public
-;;
-
-
-class combine ?prefer ?(mode = Public_before_system) rl =
-  object (self)
-    val prefered_resolver = prefer
-    val mode = mode
-    val resolvers = (rl : resolver list)
-    val mutable internal_encoding = `Enc_utf8
-    val mutable warner = new drop_warnings
-    val mutable active_resolver = None
-    val mutable clones = []
-
-    method init_rep_encoding enc =
-      List.iter
-       (fun r -> r # init_rep_encoding enc)
-       rl;
-      internal_encoding <- enc
-
-    method init_warner w =
-      List.iter
-       (fun r -> r # init_warner w)
-       rl;
-      warner <- w;
-
-    method rep_encoding = internal_encoding
-      (* CAUTION: This may not be the truth! *)
-
-    method open_in xid =
-      let rec find_competent_resolver_for xid' rl =
-       match rl with
-           r :: rl' ->
-             begin try
-               r, (r # open_in xid')
-             with
-                 Not_competent -> find_competent_resolver_for xid' rl'
-             end;
-         | [] ->
-             raise Not_competent
-      in
-
-      let find_competent_resolver rl =
-       match xid with
-           Public(pubid,sysid) ->
-             ( match mode with
-                   Public_before_system ->
-                     ( try
-                         find_competent_resolver_for(Public(pubid,"")) rl
-                       with
-                           Not_competent ->
-                             find_competent_resolver_for(System sysid) rl
-                     )
-                 | System_before_public ->
-                     ( try
-                         find_competent_resolver_for(System sysid) rl
-                       with
-                           Not_competent ->
-                             find_competent_resolver_for(Public(pubid,"")) rl
-                     )
-             )
-         | other ->
-             find_competent_resolver_for other rl
-      in
-
-      if active_resolver <> None then failwith "Pxp_reader.combine # open_in";
-      let r, lb =
-       match prefered_resolver with
-           None ->   find_competent_resolver resolvers
-         | Some r -> find_competent_resolver (r :: resolvers)
-      in
-      active_resolver <- Some r;
-      lb
-
-    method close_in =
-      match active_resolver with
-         None   -> ()
-       | Some r -> r # close_in;
-                   active_resolver <- None
-
-    method close_all =
-      List.iter (fun r -> r # close_in) clones
-
-    method change_encoding (enc:string) =
-      match active_resolver with
-         None   -> failwith "Pxp_reader.combine # change_encoding"
-       | Some r -> r # change_encoding enc
-
-    method clone =
-      let c =
-       match active_resolver with
-           None   ->
-             new combine ?prefer:None ?mode:(Some mode) 
-                          (List.map (fun q -> q # clone) resolvers)
-         | Some r ->
-             let r' = r # clone in
-             new combine
-               ?prefer:(Some r')
-               ?mode:(Some mode)
-               (List.map
-                  (fun q -> if q == r then r' else q # clone)
-                  resolvers)
-      in
-      c # init_rep_encoding internal_encoding;
-      c # init_warner warner;
-      clones <- c :: clones;
-      c
-  end
-
-
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1  2001/11/26 18:28:28  sacerdot
- * HELM OCaml libraries with findlib support.
- *
- * Revision 1.1  2001/10/24 15:33:16  sacerdot
- * New procedure to create metadata committed and old procedure removed.
- * The new procedure is based on ocaml code and builds metadata for both
- * forward and backward pointers. The old one was based on a stylesheet.
- *
- * Revision 1.16  2001/07/01 09:46:40  gerd
- *     Fix: resolve_read_url_channel does not use the base_url if
- * the current URL is already absolute
- *
- * Revision 1.15  2001/07/01 08:35:23  gerd
- *     Instead of the ~auto_close argument, there is now a
- * ~close argument for several functions/classes. This allows some
- * additional action when the resolver is closed.
- *
- * Revision 1.14  2001/06/14 23:28:02  gerd
- *     Fix: class combine works now with private IDs.
- *
- * Revision 1.13  2001/04/22 14:16:48  gerd
- *     resolve_as_file: you can map private IDs to arbitrary channels.
- *     resolve_read_url_channel: changed type of the channel_of_url
- * argument (ext_id is also passed)
- *     More examples and documentation.
- *
- * Revision 1.12  2001/04/21 17:40:48  gerd
- *     Bugfix in 'combine'
- *
- * Revision 1.11  2001/04/03 20:22:44  gerd
- *     New resolvers for catalogs of PUBLIC and SYSTEM IDs.
- *     Improved "combine": PUBLIC and SYSTEM IDs are handled
- * separately.
- *     Rewritten from_file: Is now a simple application of the
- * Pxp_reader classes and functions. (The same has still to be done
- * for from_channel!)
- *
- * Revision 1.10  2001/02/01 20:38:49  gerd
- *     New support for PUBLIC identifiers.
- *
- * Revision 1.9  2000/08/14 22:24:55  gerd
- *     Moved the module Pxp_encoding to the netstring package under
- * the new name Netconversion.
- *
- * Revision 1.8  2000/07/16 18:31:09  gerd
- *     The exception Illegal_character has been dropped.
- *
- * Revision 1.7  2000/07/09 15:32:01  gerd
- *     Fix in resolve_this_channel, resolve_this_string
- *
- * Revision 1.6  2000/07/09 01:05:33  gerd
- *     New methode 'close_all' that closes the clones, too.
- *
- * Revision 1.5  2000/07/08 16:24:56  gerd
- *     Introduced the exception 'Not_resolvable' to indicate that
- * 'combine' should not try the next resolver of the list.
- *
- * Revision 1.4  2000/07/06 23:04:46  gerd
- *     Quick fix for 'combine': The active resolver is "prefered",
- * but the other resolvers are also used.
- *
- * Revision 1.3  2000/07/06 21:43:45  gerd
- *     Fix: Public(_,name) is now treated as System(name) if
- * name is non-empty.
- *
- * Revision 1.2  2000/07/04 22:13:30  gerd
- *     Implemented the new API rev. 1.2 of pxp_reader.mli.
- *
- * Revision 1.1  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * ======================================================================
- * Old logs from markup_reader.ml:
- *
- * Revision 1.3  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.2  2000/05/20 20:31:40  gerd
- *     Big change: Added support for various encodings of the
- * internal representation.
- *
- * Revision 1.1  2000/03/13 23:41:44  gerd
- *     Initial revision; this code was formerly part of Markup_entity.
- *
- *
- *)

diff --git a/helm/ocaml/pxp/csc_pxp_reader.mli b/helm/ocaml/pxp/csc_pxp_reader.mli
deleted file mode 100644 (file)
index 2d103b3..0000000
--- a/helm/ocaml/pxp/csc_pxp_reader.mli
+++ /dev/null
@@ -1,46 +0,0 @@
-exception Not_competent
-exception Not_resolvable of exn
-class type resolver =
-  object
-    method change_encoding : string -> unit
-    method clone : resolver
-    method close_all : unit
-    method close_in : unit
-    method init_rep_encoding : Pxp_types.rep_encoding -> unit
-    method init_warner : Pxp_types.collect_warnings -> unit
-    method open_in : Pxp_types.ext_id -> Lexing.lexbuf
-    method rep_encoding : Pxp_types.rep_encoding
-  end
-class resolve_read_url_channel :
-  ?base_url:Neturl.url ->
-  ?close:(in_channel -> unit) ->
-  url_of_id:(Pxp_types.ext_id -> Neturl.url) ->
-  channel_of_url:(Pxp_types.ext_id ->
-                  Neturl.url -> in_channel * Pxp_types.encoding option) ->
-  unit -> resolver
-type spec = [ `Not_recognized | `Allowed | `Required]
-val make_file_url :
-  ?system_encoding:Netconversion.encoding ->
-  ?enc:Netconversion.encoding -> string -> Neturl.url
-type combination_mode = Public_before_system | System_before_public
-class combine :
-  ?prefer:resolver ->
-  ?mode:combination_mode ->
-  resolver list ->
-  object
-    val mutable active_resolver : resolver option
-    val mutable clones : combine list
-    val mutable internal_encoding : Pxp_types.rep_encoding
-    val mode : combination_mode
-    val prefered_resolver : resolver option
-    val resolvers : resolver list
-    val mutable warner : Pxp_types.drop_warnings
-    method change_encoding : string -> unit
-    method clone : combine
-    method close_all : unit
-    method close_in : unit
-    method init_rep_encoding : Pxp_types.rep_encoding -> unit
-    method init_warner : Pxp_types.collect_warnings -> unit
-    method open_in : Pxp_types.ext_id -> Lexing.lexbuf
-    method rep_encoding : Pxp_types.rep_encoding
-  end

diff --git a/helm/ocaml/pxp/pxpUriResolver.ml b/helm/ocaml/pxp/pxpUriResolver.ml
deleted file mode 100644 (file)
index 1e2fec9..0000000
--- a/helm/ocaml/pxp/pxpUriResolver.ml
+++ /dev/null
@@ -1,266 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 11/10/2000                                 *)
-(*                                                                            *)
-(*                                                                            *)
-(******************************************************************************)
-
-let resolve s =
- let starts_with s s' =
-  if String.length s < String.length s' then
-   false
-  else
-   (String.sub s 0 (String.length s')) = s'
- in
-  if starts_with s "http:" then
-   ClientHTTP.get_and_save_to_tmp s
-  else
-   s
-;;
-
-(*PXP 1.0
-let url_syntax =
-    let enable_if =
-      function
-         `Not_recognized  -> Neturl.Url_part_not_recognized
-       | `Allowed         -> Neturl.Url_part_allowed
-       | `Required        -> Neturl.Url_part_required
-    in
-    { Neturl.null_url_syntax with
-       Neturl.url_enable_scheme = enable_if `Allowed;
-       Neturl.url_enable_host   = enable_if `Allowed;
-       Neturl.url_enable_path   = Neturl.Url_part_required;
-       Neturl.url_accepts_8bits = true;
-    } 
-;;
-
-exception Unexpected;; (* Added when porting the file to PXP 1.1 *)
-
-let file_url_of_id xid =
-  let file_url_of_sysname sysname =
-    (* By convention, we can assume that sysname is a URL conforming
-     * to RFC 1738 with the exception that it may contain non-ASCII
-     * UTF-8 characters. 
-     *)
-    try
-     Neturl.url_of_string url_syntax sysname 
-        (* may raise Malformed_URL *)
-    with
-     Neturl.Malformed_URL -> raise Pxp_reader.Not_competent
-  in
-  let url =
-    match xid with
-       Pxp_types.Anonymous          -> raise Pxp_reader.Not_competent
-     | Pxp_types.Public (_,sysname) ->
-        let sysname = resolve sysname in
-         if sysname <> "" then file_url_of_sysname sysname
-                          else raise Pxp_reader.Not_competent
-     | Pxp_types.System sysname     ->
-        let sysname = resolve sysname in
-         file_url_of_sysname sysname
-     | Pxp_types.Private pid -> raise Unexpected
-  in
-  let scheme =
-    try Neturl.url_scheme url with Not_found -> "file" in
-  let host =
-    try Neturl.url_host url with Not_found -> "" in
-    
-  if scheme <> "file" then raise Pxp_reader.Not_competent;
-  if host <> "" && host <> "localhost" then raise Pxp_reader.Not_competent;
-    
-  url
-;;
-
-let from_file ?system_encoding utf8_filename =
-  
-  let r =
-    new Pxp_reader.resolve_as_file 
-      ?system_encoding:system_encoding
-      ~url_of_id:file_url_of_id
-      ()
-  in
-
-  let utf8_abs_filename =
-    if utf8_filename <> "" && utf8_filename.[0] = '/' then
-      utf8_filename
-    else
-      Sys.getcwd() ^ "/" ^ utf8_filename
-  in
-
-  let syntax = { Neturl.ip_url_syntax with Neturl.url_accepts_8bits = true } in
-  let url = Neturl.make_url 
-             ~scheme:"file" 
-             ~host:"localhost" 
-             ~path:(Neturl.split_path utf8_abs_filename) 
-             syntax
-  in
-
-  let xid = Pxp_types.System (Neturl.string_of_url url) in
-    
-
-  Pxp_yacc.ExtID(xid, r)
-;;
-*)
-
-(*PXP 1.1*)
-(* csc_pxp_reader.ml is an exact copy of PXP pxp_reader.ml *)
-(* The only reason is to loosen the interface              *)
-
-class resolve_as_file
-  ?(file_prefix = (`Allowed :> Csc_pxp_reader.spec))
-  ?(host_prefix = (`Allowed :> Csc_pxp_reader.spec))
-  ?(system_encoding = `Enc_utf8)
-  ?(map_private_id = (fun _ -> raise Csc_pxp_reader.Not_competent))
-  ?(open_private_id = (fun _ -> raise Csc_pxp_reader.Not_competent))
-  ()
-  =
-
-  let url_syntax =
-    let enable_if =
-      function
-          `Not_recognized  -> Neturl.Url_part_not_recognized
-        | `Allowed         -> Neturl.Url_part_allowed
-        | `Required        -> Neturl.Url_part_required
-    in
-    { Neturl.null_url_syntax with
-        Neturl.url_enable_scheme = enable_if file_prefix;
-        Neturl.url_enable_host   = enable_if host_prefix;
-        Neturl.url_enable_path   = Neturl.Url_part_required;
-        Neturl.url_accepts_8bits = true;
-    }
-  in
-
-  let base_url_syntax =
-    { Neturl.null_url_syntax with
-        Neturl.url_enable_scheme = Neturl.Url_part_required;
-        Neturl.url_enable_host   = Neturl.Url_part_allowed;
-        Neturl.url_enable_path   = Neturl.Url_part_required;
-        Neturl.url_accepts_8bits = true;
-    }
-  in
-
-  let default_base_url =
-    Neturl.make_url
-      ~scheme: "file"
-      ~host:   ""
-      ~path:   (Neturl.split_path (Sys.getcwd() ^ "/"))
-      base_url_syntax
-  in
-
-  let file_url_of_id xid =
-   let module P = Csc_pxp_reader in
-   let module T = Pxp_types in
-    let file_url_of_sysname sysname =
-      (* By convention, we can assume that sysname is a URL conforming
-       * to RFC 1738 with the exception that it may contain non-ASCII
-       * UTF-8 characters.
-       *)
-      try
-        Neturl.url_of_string url_syntax sysname
-          (* may raise Malformed_URL *)
-      with
-          Neturl.Malformed_URL -> raise P.Not_competent
-    in
-    let url =
-      match xid with
-          T.Anonymous          -> raise P.Not_competent
-        | T.Public (_,sysname) -> let sysname = resolve sysname in
-                                  if sysname <> "" then file_url_of_sysname sysname
-                                                 else raise P.Not_competent
-        | T.System sysname     -> let sysname = resolve sysname in
-                                  file_url_of_sysname sysname
-        | T.Private pid        -> map_private_id pid
-    in
-    let scheme =
-      try Neturl.url_scheme url with Not_found -> "file" in
-    let host =
-      try Neturl.url_host url with Not_found -> "" in
-
-    if scheme <> "file" then raise P.Not_competent;
-    if host <> "" && host <> "localhost" then raise P.Not_competent;
-
-    url
-  in
-
-  let channel_of_file_url xid url =
-   let module P = Csc_pxp_reader in
-   let module T = Pxp_types in
-    match xid with
-        T.Private pid -> open_private_id pid
-      | _ ->
-          ( try
-              let path_utf8 =
-                try Neturl.join_path (Neturl.url_path ~encoded:false url)
-                with Not_found -> raise P.Not_competent
-              in
-
-              let path =
-                Netconversion.recode_string
-                  ~in_enc:  `Enc_utf8
-                  ~out_enc: system_encoding
-                  path_utf8 in
-              (* May raise Malformed_code *)
-
-              open_in_bin path, None
-                (* May raise Sys_error *)
-
-            with
-              | Netconversion.Malformed_code -> assert false
-                (* should not happen *)
-              | Sys_error _ as e ->
-                  raise (P.Not_resolvable e)
-          )
-  in
-
-  Csc_pxp_reader.resolve_read_url_channel
-    ~base_url:       default_base_url
-    ~url_of_id:      file_url_of_id
-    ~channel_of_url: channel_of_file_url
-    ()
-;;
-
-let from_file ?(alt = []) ?system_encoding ?enc utf8_filename =
-  let r =
-    new resolve_as_file
-    ?system_encoding:system_encoding
-      ()
-  in
-                  
-  let url = Csc_pxp_reader.make_file_url
-              ?system_encoding
-              ?enc
-              utf8_filename in
-    
-  let xid = Pxp_types.System (Neturl.string_of_url url) in
-
-  Pxp_yacc.ExtID(xid, new Csc_pxp_reader.combine (r :: alt))
-;;
-

diff --git a/helm/ocaml/pxp/pxpUriResolver.mli b/helm/ocaml/pxp/pxpUriResolver.mli
deleted file mode 100644 (file)
index d2a1210..0000000
--- a/helm/ocaml/pxp/pxpUriResolver.mli
+++ /dev/null
@@ -1,4 +0,0 @@
-val from_file :
-  ?alt:Csc_pxp_reader.resolver list ->
-  ?system_encoding:Netconversion.encoding ->
-  ?enc:Netconversion.encoding -> string -> Pxp_yacc.source

diff --git a/helm/ocaml/urimanager/.cvsignore b/helm/ocaml/urimanager/.cvsignore
deleted file mode 100644 (file)
index 6b3eba3..0000000
--- a/helm/ocaml/urimanager/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cm[iaox] *.cmxa

diff --git a/helm/ocaml/urimanager/.depend b/helm/ocaml/urimanager/.depend
deleted file mode 100644 (file)
index 4821484..0000000
--- a/helm/ocaml/urimanager/.depend
+++ /dev/null
@@ -1,2 +0,0 @@
-uriManager.cmo: uriManager.cmi 
-uriManager.cmx: uriManager.cmi 

diff --git a/helm/ocaml/urimanager/Makefile b/helm/ocaml/urimanager/Makefile
deleted file mode 100644 (file)
index 8d5691a..0000000
--- a/helm/ocaml/urimanager/Makefile
+++ /dev/null
@@ -1,10 +0,0 @@
-PACKAGE = urimanager
-REQUIRES = str
-PREDICATES =
-
-INTERFACE_FILES = uriManager.mli
-IMPLEMENTATION_FILES = $(INTERFACE_FILES:%.mli=%.ml)
-EXTRA_OBJECTS_TO_INSTALL =
-EXTRA_OBJECTS_TO_CLEAN =
-
-include ../Makefile.common

diff --git a/helm/ocaml/urimanager/uriManager.ml b/helm/ocaml/urimanager/uriManager.ml
deleted file mode 100644 (file)
index 0fa24cf..0000000
--- a/helm/ocaml/urimanager/uriManager.ml
+++ /dev/null
@@ -1,139 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(* "cic:/a/b/c.con" => [| "cic:/a" ; "cic:/a/b" ; "cic:/a/b/c.con" ; "c" |] *)
-type uri = string array;;
-
-let eq uri1 uri2 =
- uri1 == uri2
-;;
-
-let string_of_uri uri = uri.(Array.length uri - 2);;
-let name_of_uri uri = uri.(Array.length uri - 1);;
-let buri_of_uri uri = uri.(Array.length uri - 3);;
-let depth_of_uri uri = Array.length uri - 2;;
-
-(*CSC: ora e' diventato poco efficiente, migliorare *)
-let relative_depth curi uri cookingsno =
- let rec length_of_current_prefix l1 l2 =
-  match (l1, l2) with
-     (he1::tl1, he2::tl2) when he1 == he2 ->
-       1 + length_of_current_prefix tl1 tl2
-   | (_,_) -> 0
- in
-  depth_of_uri uri -
-   length_of_current_prefix
-    (Array.to_list (Array.sub curi 0 (Array.length curi - (2 + cookingsno))))
-    (Array.to_list (Array.sub uri 0 (Array.length uri - 2)))
-  (*CSC: vecchio codice da eliminare
-  if eq curi uri then 0
-  else
-   depth_of_uri uri -
-    length_of_current_prefix (Array.to_list curi) (Array.to_list uri)
-  *)
-;;
-
-module OrderedStrings =
- struct
-  type t = string
-  let compare (s1 : t) (s2 : t) = compare s1 s2
- end
-;;
-
-module SetOfStrings = Map.Make(OrderedStrings);;
-
-(*CSC: commento obsoleto ed errato *)
-(* Invariant: the map is the identity function,      *)
-(*  i.e. (SetOfStrings.find str !set_of_uri) == str  *)
-let set_of_uri = ref SetOfStrings.empty;;
-let set_of_prefixes = ref SetOfStrings.empty;;
-
-(* similar to uri_of_string, but used for prefixes of uris *)
-let normalize prefix =
- try
-  SetOfStrings.find prefix !set_of_prefixes
- with
-  Not_found ->
-   set_of_prefixes := SetOfStrings.add prefix prefix !set_of_prefixes ;
-   prefix
-;;
-
-exception IllFormedUri of string;;
-
-let mk_prefixes str =
- let rec aux curi =
-  function
-     [he] ->
-      let prefix_uri = curi ^ "/" ^ he
-      and name = List.hd (Str.split (Str.regexp "\.") he) in
-       [ normalize prefix_uri ; name ]
-   | he::tl ->
-      let prefix_uri = curi ^ "/" ^ he in
-       (normalize prefix_uri)::(aux prefix_uri tl)
-   | _ -> raise (IllFormedUri str)
- in
-  let tokens = (Str.split (Str.regexp "/") str) in
-   (* ty = "cic:" *)
-   let (ty, sp) = (List.hd tokens, List.tl tokens) in
-    aux ty sp
-;;
-
-let uri_of_string str =
- try
-  SetOfStrings.find str !set_of_uri
- with
-  Not_found ->
-   let uri = Array.of_list (mk_prefixes str) in
-    set_of_uri := SetOfStrings.add str uri !set_of_uri ;
-    uri
-;;
-
-let cicuri_of_uri uri =
- let completeuri = string_of_uri uri in
-  let newcompleteuri = 
-   (Str.replace_first (Str.regexp "\.types$") ""
-    (Str.replace_first (Str.regexp "\.ann$") "" completeuri))
-  in
-   if completeuri = newcompleteuri then
-    uri
-   else
-    let newuri = Array.copy uri in
-     newuri.(Array.length uri - 2) <- newcompleteuri ;
-     newuri
-;;
-
-let annuri_of_uri uri =
- let completeuri = string_of_uri uri in
-  if Str.string_match (Str.regexp ".*\.ann$") completeuri 0 then
-   uri
-  else
-   let newuri = Array.copy uri in
-    newuri.(Array.length uri - 2) <- completeuri ^ ".ann" ;
-    newuri
-;;
-
-let uri_is_annuri uri =
- Str.string_match (Str.regexp ".*\.ann$") (string_of_uri uri) 0
-;;

diff --git a/helm/ocaml/urimanager/uriManager.mli b/helm/ocaml/urimanager/uriManager.mli
deleted file mode 100644 (file)
index 2cdd27e..0000000
--- a/helm/ocaml/urimanager/uriManager.mli
+++ /dev/null
@@ -1,51 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-type uri
-
-val eq : uri -> uri -> bool
-
-val uri_of_string : string -> uri
-
-val string_of_uri : uri -> string  (* complete uri *)
-val name_of_uri   : uri -> string  (* name only (without extension)*)
-val buri_of_uri   : uri -> string  (* base uri only *)
-val depth_of_uri  : uri -> int     (* length of the path *)
-
-(* relative_depth curi uri cookingsno                                        *)
-(* is the number of times to cook uri to use it when the current uri is curi *)
-(* cooked cookingsno times                                                   *)
-val relative_depth : uri -> uri -> int -> int
-
-(* given an uri, returns the uri of the corresponding cic file, *)
-(* i.e. removes the [.types][.ann] suffix                       *)
-val cicuri_of_uri : uri -> uri
-
-(* given an uri, returns the uri of the corresponding annotation file, *)
-(* i.e. adds the .ann suffix if not already present                    *)
-val annuri_of_uri : uri -> uri
-
-(* given an uri, tells if it refers to an annotation *)
-val uri_is_annuri : uri -> bool

diff --git a/helm/ocaml/xml/.cvsignore b/helm/ocaml/xml/.cvsignore
deleted file mode 100644 (file)
index 6b3eba3..0000000
--- a/helm/ocaml/xml/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cm[iaox] *.cmxa

diff --git a/helm/ocaml/xml/.depend b/helm/ocaml/xml/.depend
deleted file mode 100644 (file)
index bc6941b..0000000
--- a/helm/ocaml/xml/.depend
+++ /dev/null
@@ -1,2 +0,0 @@
-xml.cmo: xml.cmi 
-xml.cmx: xml.cmi 

diff --git a/helm/ocaml/xml/Makefile b/helm/ocaml/xml/Makefile
deleted file mode 100644 (file)
index f6c43d2..0000000
--- a/helm/ocaml/xml/Makefile
+++ /dev/null
@@ -1,10 +0,0 @@
-PACKAGE = xml
-REQUIRES =
-PREDICATES =
-
-INTERFACE_FILES = xml.mli
-IMPLEMENTATION_FILES = $(INTERFACE_FILES:%.mli=%.ml)
-EXTRA_OBJECTS_TO_INSTALL =
-EXTRA_OBJECTS_TO_CLEAN =
-
-include ../Makefile.common

diff --git a/helm/ocaml/xml/xml.ml b/helm/ocaml/xml/xml.ml
deleted file mode 100644 (file)
index 302aef2..0000000
--- a/helm/ocaml/xml/xml.ml
+++ /dev/null
@@ -1,101 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                     A tactic to print Coq objects in XML                   *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 18/10/2000                                 *)
-(*                                                                            *)
-(* This module defines a pretty-printer and the stream of commands to the pp  *)
-(*                                                                            *)
-(******************************************************************************)
-
-
-(* the type token for XML cdata, empty elements and not-empty elements *)
-(* Usage:                                                                *)
-(*  Str cdata                                                            *)
-(*  Empty (element_name, [attrname1, value1 ; ... ; attrnamen, valuen]   *)
-(*  NEmpty (element_name, [attrname1, value2 ; ... ; attrnamen, valuen], *)
-(*          content                                                      *)
-type token = Str of string
-           | Empty of string * (string * string) list
-          | NEmpty of string * (string * string) list * token Stream.t
-;;
-
-(* currified versions of the constructors make the code more readable *)
-let xml_empty name attrs = [< 'Empty(name,attrs) >]
-let xml_nempty name attrs content = [< 'NEmpty(name,attrs,content) >]
-let xml_cdata str = [< 'Str str >]
-
-(* Usage:                                                                   *)
-(*  pp tokens None     pretty prints the output on stdout                   *)
-(*  pp tokens (Some filename) pretty prints the output on the file filename *)
-let pp ?(quiet=false) strm fn =
- let channel = ref stdout in
- let rec pp_r m =
-  parser
-    [< 'Str a ; s >] ->
-      print_spaces m ;
-      fprint_string (a ^ "\n") ;
-      pp_r m s
-  | [< 'Empty(n,l) ; s >] ->
-      print_spaces m ;
-      fprint_string ("<" ^ n) ;
-      List.iter (function (n,v) -> fprint_string (" " ^ n ^ "=\"" ^ v ^ "\"")) l;
-      fprint_string "/>\n" ;
-      pp_r m s
-  | [< 'NEmpty(n,l,c) ; s >] ->
-      print_spaces m ;
-      fprint_string ("<" ^ n) ;
-      List.iter (function (n,v) -> fprint_string (" " ^ n ^ "=\"" ^ v ^ "\"")) l;
-      fprint_string ">\n" ;
-      pp_r (m+1) c ;
-      print_spaces m ;
-      fprint_string ("</" ^ n ^ ">\n") ;
-      pp_r m s
-  | [< >] -> ()
- and print_spaces m =
-  for i = 1 to m do fprint_string "  " done
- and fprint_string str =
-  output_string !channel str
- in
-  match fn with
-     Some filename ->
-       channel := open_out filename ;
-       pp_r 0 strm ;
-       close_out !channel ;
-       if not quiet then
-        begin
-         print_string ("\nWriting on file \"" ^ filename ^
-          "\" was succesfull\n");
-         flush stdout
-        end
-   | None ->
-       pp_r 0 strm
-;;

diff --git a/helm/ocaml/xml/xml.mli b/helm/ocaml/xml/xml.mli
deleted file mode 100644 (file)
index a68110b..0000000
--- a/helm/ocaml/xml/xml.mli
+++ /dev/null
@@ -1,60 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-(******************************************************************************)
-(*                                                                            *)
-(*                               PROJECT HELM                                 *)
-(*                                                                            *)
-(*                     A tactic to print Coq objects in XML                   *)
-(*                                                                            *)
-(*                Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>               *)
-(*                                 18/10/2000                                 *)
-(*                                                                            *)
-(* This module defines a pretty-printer and the stream of commands to the pp  *)
-(*                                                                            *)
-(******************************************************************************)
-
-(* Tokens for XML cdata, empty elements and not-empty elements           *)
-(* Usage:                                                                *)
-(*  Str cdata                                                            *)
-(*  Empty (element_name, [attrname1, value1 ; ... ; attrnamen, valuen]   *)
-(*  NEmpty (element_name, [attrname1, value2 ; ... ; attrnamen, valuen], *)
-(*          content                                                      *)
-type token =
-  | Str of string
-  | Empty of string * (string * string) list
-  | NEmpty of string * (string * string) list * token Stream.t
-
-(* currified versions of the token constructors make the code more readable *)
-val xml_empty : string -> (string * string) list -> token Stream.t
-val xml_nempty :
-  string -> (string * string) list -> token Stream.t -> token Stream.t
-val xml_cdata : string -> token Stream.t
-
-(* The pretty printer for streams of token                                  *)
-(* Usage:                                                                   *)
-(*  pp tokens None     pretty prints the output on stdout                   *)
-(*  pp tokens (Some filename) pretty prints the output on the file filename *)
-val pp : ?quiet:bool -> token Stream.t -> string option -> unit

diff --git a/helm/on-line/html/cic/control.html b/helm/on-line/html/cic/control.html
deleted file mode 100644 (file)
index dba30d5..0000000
--- a/helm/on-line/html/cic/control.html
+++ /dev/null
@@ -1,80 +0,0 @@
-<html>
-
-<head>
-<title>???</title>
-
-<style type="text/css">
-#normal { background-color: #e6e6fa; font-family: sans-serif }
-td.head { font-weight: bold; background-color: #e6e6fa; color: brown }
-td.back { background-color: #e6e6fa; color: brown }
-#indent { margin-left: 1cm; margin-right: 1cm }
-#centered { text-align: center }
-</style>
-
-<script language="JavaScript" src="../../javascript/defaults.js"></script>
-<script language="JavaScript" src="../../javascript/utils.js"></script>
-<script language="JavaScript" src="../../javascript/control.js"></script>
-
-</head>
-
-<body id="normal">
- <h1>Object: 
-  &quot;<script>document.write(extractParam(unescape(getParam('url')),'param.CICURI'))</script>&quot;
- &nbsp;&nbsp;&nbsp;<font size="+1">[Annotations are
- <script>if ((extractParam(unescape(getParam('url')),'param.annotations')) == 'no') document.write('off'); else document.write('on')</script>
- ]</font>
- </h1>
- <table>
-  <tr>
-   <td>
-    <script>
-     var url = unescape(getParam('url'));
-     url = setParam(url,"keys",getCICMathMLKeys());
-     url = setParam(url,"prop.doctype-public","");
-     url = setParam(url,"prop.encoding","");
-     url = setParam(url,"prop.media-type","application/x-helm-annotation-helper");
-     url = url + "&param.explodeall=true";
-     document.write(
-      '<a target="result" href="' + url + '">Annotate it</a>'
-     )
-    </script>
-   </td>
-   <td>
-    (Before following the link, you must install the HELM Annotation Helper)
-   </td>
-  </tr>
-  <tr>
-   <td>
-    <script>
-     var url = unescape(getParam('url'));
-     var getterURL = extractParam(url,'param.getterURL');
-     var CICURI = extractParam(url,'param.CICURI');
-     url = setParam(url,"keys","MC%2CRT");
-     url = setParam(url,"xmluri", getterURL + "getxml%3Furi%3D" + CICURI);
-     url = setParam(url,"prop.media-type","text/html");
-     url = setParam(url,"prop.encoding","iso-8859-1");
-     document.write(
-      '<a target="metadata" href="' + url + '">View its metadata and dependencies</a>'
-     );
-    </script>
-   </td>
-   <td>NEW!!!</td>
-  </tr>
-  <tr>
-   <td>
-    <script>
-     var url = unescape(getParam('url'));
-     var CICURI = extractParam(url,'param.CICURI');
-     url = "http://phd.cs.unibo.it:8085/proofCheck?uri=" + CICURI;
-     document.write(
-      '<a target="proofChecker" href="' + url + '">Proof-check it</a>'
-     );
-    </script>
-   </td>
-   <td>
-    (Not ported to V7, yet. Experimental. Coming soon.)
-   </td>
-  </tr>
- </table>
-</body>
-</html>

diff --git a/helm/on-line/html/cic/index.html b/helm/on-line/html/cic/index.html
deleted file mode 100644 (file)
index c2a2ef5..0000000
--- a/helm/on-line/html/cic/index.html
+++ /dev/null
@@ -1,16 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
-"http://www.w3.org/TR/REC-html40/loose.dtd">
-<html>
-<head>
- <script language="JavaScript" src="../../javascript/defaults.js"></script>
- <script language="JavaScript" src="../../javascript/utils.js"></script>
- <title>???</script></title>
-</head>
-<script>
-  document.write('<frameset onLoad="window.focus()" rows="18%,*" border="0" scrolling="no">');
-  document.write('<frame src="control.html?url=' + getParam('url') +'"/>');
-  document.write('<frame src="' + unescape(getParam('url')) + '" + name="result"/>');
-  document.write('</frameset>');
-</script>
-
-</html>

diff --git a/helm/on-line/html/control.html b/helm/on-line/html/control.html
deleted file mode 100644 (file)
index 0884066..0000000
--- a/helm/on-line/html/control.html
+++ /dev/null
@@ -1,225 +0,0 @@
-<html>
-
-<head>
-<title>On-Line Library Configuration</title>
-
-<style type="text/css">
-#normal { background-color: white; font-family: sans-serif }
-td.head { font-weight: bold; background-color: #e6e6fa; color: brown }
-td.back { background-color: #e6e6fa; color: brown }
-#indent { margin-left: 1cm; margin-right: 1cm }
-#centered { text-align: center }
-</style>
-
-<script language="JavaScript" src="../javascript/defaults.js"></script>
-<script language="JavaScript" src="../javascript/prelude.js"></script>
-
-</head>
-
-<body id="normal" onLoad="refreshLinks()">
-<a name="top"/>
-<table border="0" width="100%" cellpadding="4">
-<tr><td class="head" align="center"><big><big>On-Line Library Configuration</big></big></td></tr>
-</table>
-
-<br />
-
-<div id="indent">
-The on-line interface will use a
-<a href="http://www.cs.unibo.it/helm/getter" target="_top">Getter</a> to locate and
-download documents and an
-<a href="http://www.cs.unibo.it/helm/uwobo" target="_top">UWOBO</a> to apply transformations
-to them.
-
-
-<br /><br />
-
-Here you can choose the Getter and the UWOBO to use, providing valid URLs
-to instances of them.
-
-<br /><br />
-
-To control the behaviour of them, use the apposite
-<a onClick="refreshLinks();" href="http://www.cs.unibo.it/helm/getter/panel/index.html" target="_top">Getter panel</a>
-and
-<a onClick="refreshLinks();" href="http://www.cs.unibo.it/helm/uwobo/panel/index.html" target="_top">UWOBO panel</a>.
-
-<br /><br />
-
-<table border="0">
-  <tr>
-    <th colspan="2" align="left">UWOBO URL</th>
-  </tr>
-  <tr>
-    <td>
-      <form name="uwoboURL">
-      <script>
-        document.write('<input type="text" value="' + getInitialProcessorURL() + '" size="50"/>');
-      </script>
-      </form>
-    </td>
-    <td>
-      <form>
-        <select onChange="selectUwoboURL(this)">
-         <option value="">---</option>
-         <option value="localhost">localhost</option>
-         <option value="marcello.cs.unibo.it">marcello</option>
-         <option value="phd.cs.unibo.it">phd</option>
-         <option value="eolo.cs.unibo.it">eolo</option>
-       </select>
-      </form>
-    </td>
-    <td>
-      <form>
-        <input type="button" value="Check" onClick="top.result.location = getUwoboURL() + 'help'"/>
-      </form>
-    </td>
-  </tr>
-</table>
-
-<br />
-
-<table border="0">
-  <tr>
-    <th colspan="2" align="left">Getter URL</th>
-  </tr>
-  <tr>
-    <td>
-      <form name="getterURL">
-        <script>
-         document.write('<input type="text" value="' + getInitialGetterURL() + '" size="50"/>');
-       </script>
-      </form>
-    </td>
-    <td>
-      <form>
-        <select onChange="selectGetterURL(this)">
-         <option value="">---</option>
-         <option value="localhost">localhost</option>
-         <option value="marcello.cs.unibo.it">marcello</option>
-         <option value="phd.cs.unibo.it">phd</option>
-         <option value="eolo.cs.unibo.it">eolo</option>
-       </select>
-      </form>
-    </td>
-    <td>
-      <form>
-        <input type="button" value="Check" onClick="top.result.location = getGetterURL() + 'help'"/>
-      </form>
-    </td>
-  </tr>
-</table>
-
-<br />
-
-<table border="0">
-  <tr>
-    <th colspan="2" align="left">Graph Drawer URL</th>
-  </tr>
-  <tr>
-    <td>
-      <form name="draw_graphURL">
-        <script>
-         document.write('<input type="text" value="' + getInitialDrawGraphURL() + '" size="50"/>');
-       </script>
-      </form>
-    </td>
-    <td>
-      <form>
-        <select onChange="selectDrawGraphURL(this)">
-         <option value="">---</option>
-         <option value="localhost">localhost</option>
-         <option value="marcello.cs.unibo.it">marcello</option>
-         <option value="phd.cs.unibo.it">phd</option>
-         <option value="eolo.cs.unibo.it">eolo</option>
-       </select>
-      </form>
-    </td>
-    <td>
-      <form>
-        <input type="button" value="Check" onClick="top.result.location = getDrawGraphURL() + 'help'"/>
-      </form>
-    </td>
-  </tr>
-</table>
-
-<br />
-
-<table border="0">
-  <tr>
-    <th colspan="2" align="left">URI-Set URL</th>
-  </tr>
-  <tr>
-    <td>
-      <form name="uri_set_queueURL">
-        <script>
-         document.write('<input type="text" value="' + getInitialURISetQueueURL() + '" size="50"/>');
-       </script>
-      </form>
-    </td>
-    <td>
-      <form>
-        <select onChange="selectURISetQueueURL(this)">
-         <option value="">---</option>
-         <option value="localhost">localhost</option>
-         <option value="marcello.cs.unibo.it">marcello</option>
-         <option value="phd.cs.unibo.it">phd</option>
-         <option value="eolo.cs.unibo.it">eolo</option>
-       </select>
-      </form>
-    </td>
-    <td>
-      <form>
-        <input type="button" value="Check" onClick="top.result.location = getURISetQueueURL() + 'help'"/>
-      </form>
-    </td>
-  </tr>
-</table>
-
-<br />
-
-<table border="0">
-  <tr>
-    <th colspan="2" align="left">Browser</th>
-  </tr>
-  <tr>
-   <td>
-    Only new browsers support UNICODE, that is needed to render
-    mathematical documents. Some old browsers, though, can render
-    the most common symbols through the &quot;symbol&quot; font.
-   </td>
-  </tr>
-  <tr>
-   <td>
-    To make us understand what kind of browser you have, please
-    select below the symbol for &quot;not belongs to&quot;. If both options
-    do not show that symbol, then you will be only able to use
-    the MathML mode with an external plug-out for MathML presentation.
-   </td>
-  </tr>
-  <tr>
-    <td>
-      <form name="UNICODEvsSYMBOL">
-      <b>Where do you see the &quot;not belongs to&quot; symbol?</b>
-      &nbsp;&nbsp;&nbsp;
-      <script>
-       document.write('<input type="radio" name="radioUNICODEvsSYMBOL" value="symbol" ' + getInitialUNICODEvsSYMBOLsymbol() + ' />');
-      </script>
-      <font face="symbol">&#207;</font>
-      &nbsp;&nbsp;&nbsp;
-      <script>
-       document.write('<input type="radio" name="radioUNICODEvsSYMBOL" value="unicode" ' + getInitialUNICODEvsSYMBOLunicode() + ' />');
-      </script>
-      &#8713;
-    </td>
-  </tr>
-</table>
-</div>
-
-
-<div id="centered">
-<h1><a onClick="refreshLinks();" href="" target="_top"><script>if (top.location.search == '') document.write('ENTER THE LIBRARY'); else document.write('RETURN TO THE LIBRARY');</script></a></h1>
-</div>
-</body>
-</html>
-

diff --git a/helm/on-line/html/index.html b/helm/on-line/html/index.html
deleted file mode 100644 (file)
index caeebcf..0000000
--- a/helm/on-line/html/index.html
+++ /dev/null
@@ -1,8 +0,0 @@
-<html>
-
-<frameset rows="75%,*">
-  <frame src="control.html" name="control"/>
-  <frame src="welcome.html" name="result"/>
-</frameset>
-
-</html>

diff --git a/helm/on-line/html/library/control.html b/helm/on-line/html/library/control.html
deleted file mode 100644 (file)
index 501e1d0..0000000
--- a/helm/on-line/html/library/control.html
+++ /dev/null
@@ -1,109 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!--
-<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "DTD/xhtml1-strict.dtd">
--->
-
-<html xmlns:subst="http://www.cs.unibo.it/helm/subst">
-<head>
-<title>Control panel</title>
-<!-- Note: <subst:script/> are substitued by the stylesheet with <script />  -->
-<!-- after changing @src in the concatenation of the interface URL with @src -->
-<subst:script language="JavaScript" src="/javascript/defaults.js" />
-<subst:script language="JavaScript" src="/javascript/utils.js" />
-<subst:script language="JavaScript" src="/javascript/control.js" />
-</head>
-<body bgcolor="#ffffff" text="#000000">
-<form>
-<table>
-  <tr>
-    <td>
-      <b>Format</b>:
-    </td>
-    <td>
-      <select name="output" onChange="updateOutput(this,document.forms[0].format)">
-      <script>
-       var mode = getParam2('mode');
-       var mode_list = mode.split(',');
-       outputOption(document, "processed", "Processed", mode_list[0]);
-       outputOption(document, "raw", "Raw", mode_list[0]);
-      </script>
-      </select>
-    </td>
-    <td>
-      <select name="format" onChange="updateFormat(this)">
-      <script>
-       var mode = getParam2('mode');
-       var mode_list = mode.split(',');
-       if (mode_list[0] == "raw") {
-         outputOption(document, "cic",   "CIC", mode_list[1]);
-         outputOption(document, "types", "TYPES", mode_list[1]);
-         outputOption(document, "ann",   "ANN", mode_list[1]);
-         outputOption(document, "fwd",   "RDF: Forward pointers", mode_list[1]);
-         outputOption(document, "bwd",   "RDF: Backward pointers", mode_list[1]);
-       } else {
-         outputOption(document, "html", "HTML", mode_list[2]);
-         outputOption(document, "mml_cont", "MathML Content", mode_list[2]);
-         outputOption(document, "mml_pres", "MathML Presentation", mode_list[2]);
-       }
-      </script>
-      </select>
-    </td>
-    <td>
-     <script>
-<![CDATA[
-       document.write('<a target="_top" href="' +
-         getParam2('topurl') + '/html/library/index.html' +
-        '" onClick="refreshReload()">Reload</a>');
-]]>
-     </script>
-     <br />
-     (do it also before attempting to take a link to the current page)
-     <script>
-<![CDATA[
-       top.processorURL = getParam2('processorURL');
-       top.getterURL = getParam2('getterURL');
-       top.draw_graphURL = getParam2('draw_graphURL');
-       top.uri_set_queueURL = getParam2('uri_set_queueURL');
-       top.UNICODEvsSYMBOL = getParam2('UNICODEvsSYMBOL');
-       top.topurl = getParam2('topurl');
-       top.mode = getParam2('mode');
-       top.cicuri = getParam2('cicuri');
-       top.theoryuri = getParam2('theoryuri');
-]]>
-     </script>
-    </td>
-  </tr>
-  <tr>
-    <td colspan="3">
-      <script>
-<![CDATA[
-       var mode = getParam2('mode');
-       var mode_list = mode.split(',');
-       if (mode_list[0] == "raw") {
-         outputCheckbox(document, "updateCompressed(this)",
-          "&nbsp;Compressed", mode_list[5] == "gz");
-         outputCheckbox(document, "updateDTDPatched(this)",
-          "&nbsp;Resolve DTD URL", mode_list[6] == "yes");
-        } else {
-         outputCheckbox(document, "updateNatural(this)",
-          "&nbsp;Natural Language", mode_list[3] == "yes");
-         outputCheckbox(document, "updateAnnotations(this)",
-          "&nbsp;Annotations", mode_list[4] == "yes");
-        }
-]]>
-      </script>
-    </td>
-    <td>
-     <script>
-<![CDATA[
-       document.write('<a target="_top" href=""' +
-        ' onClick="refreshReload()">Configuration Panel</a>');
-]]>
-     </script>
-     <br />
-    </td>
-  </tr>
-</table>
-</form>
-</body>
-</html>

diff --git a/helm/on-line/html/library/header.html b/helm/on-line/html/library/header.html
deleted file mode 100644 (file)
index a1dcbda..0000000
--- a/helm/on-line/html/library/header.html
+++ /dev/null
@@ -1,18 +0,0 @@
-<!--
-<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
--->
-<html xmlns:helm="http://www.cs.unibo.it/helm">
-<head>
-<title>Control panel</title>
-</head>
-<body bgcolor="#ffffff" text="#000000">
-<table width="100%">
-<tr>
- <td width="50%">
-  <font size="+3" face="Helvetica,Arial,sans-serif"><b>Index of <helm:getParam name="uri"/></b></font>
-  <hr noshade="yes" align="left" width="80%"/>
- </td>
-</tr>
-</table>
-</body>
-</html>

diff --git a/helm/on-line/html/library/index.html b/helm/on-line/html/library/index.html
deleted file mode 100644 (file)
index 16ca2a0..0000000
--- a/helm/on-line/html/library/index.html
+++ /dev/null
@@ -1,87 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!--
-<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "DTD/xhtml1-strict.dtd">
--->
-
-<html xmlns:subst="http://www.cs.unibo.it/helm/subst">
-<head>
-<!-- Note: <subst:script/> are substitued by the stylesheet with <script />  -->
-<!-- after changing @src in the concatenation of the interface URL with @src -->
-<subst:script language="JavaScript" src="/javascript/defaults.js" />
-<subst:script language="JavaScript" src="/javascript/utils.js" />
-<title>Index</title>
-</head>
-<script>
-  var topurl = "<subst:topurl/>";
-<![CDATA[
-  document.write('<frameset rows="18%,*" border="0" scrolling="no">');
-  var control_frame_URL=
-        topurl + '/html/library/control.html' +
-       '?topurl=' + topurl +
-       '&mode=' + getParam2('mode') +
-       '&cicuri=' + getParam2('cicuri') +
-       '&theoryuri=' + getParam2('theoryuri') +
-       '&processorURL=' + getParam2('processorURL') +
-       '&getterURL=' + getParam2('getterURL') +
-       '&draw_graphURL=' + getParam2('draw_graphURL') +
-       '&uri_set_queueURL=' + getParam2('uri_set_queueURL') +
-       '&UNICODEvsSYMBOL=' + getParam2('UNICODEvsSYMBOL');
-  var escaped_control_frame_URL = escape(control_frame_URL);
-  document.write('<frame src="' +
-        getParam2('processorURL') + 'apply' +
-       '?keys=RT' +
-        '&param.topurl=' + topurl +
-        '&xmluri=' + escaped_control_frame_URL + '" name="control"/>');
-  document.write('<frameset cols="50%,50%" border="0" scrolling="no">');
-  document.write('<frameset rows="11%,*" border="0" scrolling="no">');
-  document.write('<frame src="' +
-       getParam2('processorURL') + 'apply' +
-       '?keys=GP' +
-       //'&xmluri=' + location.protocol + "//" + location.host + chopSlash(location.pathname) + "/header.html" +
-       '&xmluri=' + topurl + '/html/library/header.html' +
-       '&param.uri=' + getParam2('theoryuri') + 
-       '" name="theoryheader"/>');
-  document.write('<frame src="' +
-       getParam2('processorURL') + 'apply' +
-       '?keys=L2H' +
-       '&xmluri=' + escape(getParam2('getterURL') + 'ls?format=xml&baseuri=' + getParam2('theoryuri')) +
-        '&param.keys=L2H' +
-       '&param.uri=' + getParam2('theoryuri') +
-       '&param.getterURL=' + getParam2('getterURL') +
-       '&param.draw_graphURL=' + getParam2('draw_graphURL') +
-       '&param.uri_set_queueURL='+getParam2('uri_set_queueURL') +
-       '&param.UNICODEvsSYMBOL=' + getParam2('UNICODEvsSYMBOL') +
-        '&param.target=theory' +
-       //'&param.interfaceURL=' + location.protocol + "//" + location.host + chopSlash(chopSlash(chopSlash(location.pathname))) + 
-       '&param.interfaceURL=' + topurl +
-       '" name="theoryresult"/>');
-  document.write('</frameset>');
-  document.write('<frameset rows="11%,*" border="0" scrolling="no">');
-  document.write('<frame src="' +
-       getParam2('processorURL') + 'apply' +
-       '?keys=GP' +
-       //'&xmluri=' + location.protocol + "//" + location.host + chopSlash(location.pathname) + "/header.html" +
-       '&xmluri=' + topurl + '/html/library/header.html' +
-       '&param.uri=' + getParam2('cicuri') + 
-       '" name="cicheader"/>');
-  document.write('<frame src="' +
-       getParam2('processorURL') + 'apply' +
-       '?keys=L2H' +
-       '&xmluri=' + escape(getParam2('getterURL') + 'ls?format=xml&baseuri=' + getParam2('cicuri')) +
-        '&param.keys=L2H' +
-       '&param.uri=' + getParam2('cicuri') +
-       '&param.getterURL=' + getParam2('getterURL') +
-       '&param.draw_graphURL=' + getParam2('draw_graphURL') +
-       '&param.uri_set_queueURL='+getParam2('uri_set_queueURL') +
-       '&param.UNICODEvsSYMBOL=' + getParam2('UNICODEvsSYMBOL') +
-        '&param.target=cic' +
-       //'&param.interfaceURL=' + location.protocol + "//" + location.host + chopSlash(chopSlash(chopSlash(location.pathname))) +
-       '&param.interfaceURL=' + topurl +
-       '" name="cicresult"/>');
-  document.write('</frameset>');
-  document.write('</frameset>');
-  document.write('</frameset>');
-]]>
-</script>
-
-</html>

diff --git a/helm/on-line/html/theory/control.html b/helm/on-line/html/theory/control.html
deleted file mode 100644 (file)
index d399941..0000000
--- a/helm/on-line/html/theory/control.html
+++ /dev/null
@@ -1,42 +0,0 @@
-<html>
-
-<head>
-<title>???</title>
-
-<style type="text/css">
-#normal { background-color: #e6e6fa; font-family: sans-serif }
-td.head { font-weight: bold; background-color: #e6e6fa; color: brown }
-td.back { background-color: #e6e6fa; color: brown }
-#indent { margin-left: 1cm; margin-right: 1cm }
-#centered { text-align: center }
-</style>
-
-<script language="JavaScript" src="../../javascript/defaults.js"></script>
-<script language="JavaScript" src="../../javascript/utils.js"></script>
-<script language="JavaScript" src="../../javascript/control.js"></script>
-
-</head>
-
-<body id="normal">
- <h1>Theory: 
-  &quot;<script>document.write(extractParam(unescape(getParam('url')),'param.CICURI'))</script>&quot;
- &nbsp;&nbsp;&nbsp;<font size="+1">[Annotations have no meaning for theories, yet]</font>
- </h1>
- <table>
-  <tr>
-   <td>
-    View its metadata
-   </td>
-   <td>(Not implemented, yet. Coming soon.)</td>
-  </tr>
-  <tr>
-   <td>
-    Proof-check it
-   </td>
-   <td>
-    (Not ported to V7, yet. Coming soon.)
-   </td>
-  </tr>
- </table>
-</body>
-</html>

diff --git a/helm/on-line/html/theory/index.html b/helm/on-line/html/theory/index.html
deleted file mode 100644 (file)
index c2a2ef5..0000000
--- a/helm/on-line/html/theory/index.html
+++ /dev/null
@@ -1,16 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
-"http://www.w3.org/TR/REC-html40/loose.dtd">
-<html>
-<head>
- <script language="JavaScript" src="../../javascript/defaults.js"></script>
- <script language="JavaScript" src="../../javascript/utils.js"></script>
- <title>???</script></title>
-</head>
-<script>
-  document.write('<frameset onLoad="window.focus()" rows="18%,*" border="0" scrolling="no">');
-  document.write('<frame src="control.html?url=' + getParam('url') +'"/>');
-  document.write('<frame src="' + unescape(getParam('url')) + '" + name="result"/>');
-  document.write('</frameset>');
-</script>
-
-</html>

diff --git a/helm/on-line/html/welcome.html b/helm/on-line/html/welcome.html
deleted file mode 100644 (file)
index f6fbed4..0000000
--- a/helm/on-line/html/welcome.html
+++ /dev/null
@@ -1,6 +0,0 @@
-<html>
-
-<body bgcolor="white">
-</body>
-
-</html>

diff --git a/helm/on-line/icons/back.gif b/helm/on-line/icons/back.gif
deleted file mode 100644 (file)
index a694ae1..0000000
Binary files a/helm/on-line/icons/back.gif and /dev/null differ

diff --git a/helm/on-line/icons/folder.gif b/helm/on-line/icons/folder.gif
deleted file mode 100644 (file)
index 4826460..0000000
Binary files a/helm/on-line/icons/folder.gif and /dev/null differ

diff --git a/helm/on-line/icons/generic.red.gif b/helm/on-line/icons/generic.red.gif
deleted file mode 100644 (file)
index 9474398..0000000
Binary files a/helm/on-line/icons/generic.red.gif and /dev/null differ

diff --git a/helm/on-line/icons/text.gif b/helm/on-line/icons/text.gif
deleted file mode 100644 (file)
index 4c62390..0000000
Binary files a/helm/on-line/icons/text.gif and /dev/null differ

diff --git a/helm/on-line/javascript/.cvsignore b/helm/on-line/javascript/.cvsignore
deleted file mode 100644 (file)
index e268d4a..0000000
--- a/helm/on-line/javascript/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.js_xml

diff --git a/helm/on-line/javascript/Makefile b/helm/on-line/javascript/Makefile
deleted file mode 100644 (file)
index 1a6baf6..0000000
--- a/helm/on-line/javascript/Makefile
+++ /dev/null
@@ -1,19 +0,0 @@
-
-TARGETS = control.js_xml defaults.js_xml utils.js_xml graphLinks.js_xml helmjsmenu.js_xml
-
-.SUFFIXES:
-.SUFFIXES: .js .js_xml
-
-.js.js_xml:
-       @echo "<?xml version='1.0'?>" >$@
-       @echo "<script>" >>$@
-       @echo "<![CDATA[" >>$@
-       @cat $< >>$@
-       @echo "]]>" >>$@
-       @echo "</script>" >>$@
-
-all: $(TARGETS)
-
-clean:
-       rm -rf $(TARGETS)
-

diff --git a/helm/on-line/javascript/control.js b/helm/on-line/javascript/control.js
deleted file mode 100644 (file)
index e6ad626..0000000
--- a/helm/on-line/javascript/control.js
+++ /dev/null
@@ -1,285 +0,0 @@
-function updateMode(i, s)
-{
-  var mode = top.mode;
-  var mode_list = mode.split(",");
-  var res = "";
-  var j;
-
-  for (j = 0; j < mode_list.length; j++) {
-    if (j == i) res += s;
-    else res += mode_list[j];
-    if (j < mode_list.length - 1) res += ",";
-  }
-  
-  top.mode = res;
-}
-
-function updateOutput(output,format)
-{
-  var theoryuri = top.theoryuri;
-  var cicuri = top.cicuri;
-  var mode = top.mode;
-  var topurl = top.topurl;
-  var processorURL = top.processorURL;
-  var getterURL = top.getterURL;
-  var draw_graphURL = top.draw_graphURL;
-  var uri_set_queueURL = top.uri_set_queueURL;
-  var mode_list = mode.split(",");
-  var new_mode = output.options[output.selectedIndex].value;
-  var dest = "?theoryuri=" + theoryuri + "&cicuri=" + cicuri + "&topurl=" + topurl + "&processorURL=" + processorURL + "&getterURL=" + getterURL + "&draw_graphURL=" + draw_graphURL + "&uri_set_queueURL=" + uri_set_queueURL + "&mode=";
-  
-  if (new_mode != mode_list[0]) {
-    updateMode(0, new_mode);
-    if (new_mode == "raw") updateMode(2, format.options[format.selectedIndex].value);
-    else updateMode(1, format.options[format.selectedIndex].value);
-
-    var href =
-     top.processorURL + 'apply' +
-     '?keys=RT' +
-     '&param.topurl=' + topurl +
-     '&xmluri=' +
-     escape(top.topurl + '/html/library/control.html' + dest + top.mode);
-    
-    location.href = href;
-  }
-}
-
-function updateFormat(format)
-{
-  var mode = top.mode;
-  var mode_list = mode.split(",");
-
-  if (mode_list[0] == "raw") {
-    updateMode(1, format.options[format.selectedIndex].value);
-  } else {
-    updateMode(2, format.options[format.selectedIndex].value);
-  }
-
-  refreshReload();
-}
-
-function updateNatural(checkbox)
-{
-  if (checkbox.checked) updateMode(3, "yes");
-  else updateMode(3, "no");
-  refreshReload();
-}
-
-function updateAnnotations(checkbox)
-{
-  if (checkbox.checked) updateMode(4, "yes");
-  else updateMode(4, "no");
-  refreshReload();
-}
-
-function updateCompressed(checkbox)
-{
-  if (checkbox.checked) updateMode(5, "gz");
-  else updateMode(5, "normal");
-  refreshReload();
-}
-
-function updateDTDPatched(checkbox)
-{
-  if (checkbox.checked) updateMode(6, "yes");
-  else updateMode(6, "no");
-  refreshReload();
-}
-
-function refreshReload()
-{
-   var search = 
-      "?mode=" + top.mode +
-      "&cicuri=" + top.cicuri +
-      "&theoryuri=" + top.theoryuri +
-      "&processorURL=" + top.processorURL +
-      "&getterURL=" + top.getterURL +
-      "&draw_graphURL=" + top.draw_graphURL +
-      "&uri_set_queueURL=" + top.uri_set_queueURL +
-      "&UNICODEvsSYMBOL=" + top.UNICODEvsSYMBOL;
-
-   var href =
-    top.processorURL + 'apply' +
-    '?keys=RT' +
-    '&param.topurl=' + top.topurl +
-    '&xmluri=' +
-    escape(top.topurl + '/html/library/index.html' + search);
-    
-   top.frames[0].document.links[0].href = href;
-   top.frames[0].document.links[1].href =
-    top.topurl + '/html/index.html' + search;
-
-   return true;
-}
-
-function refreshcicHeader(headerURL)
-{
-   top.cicheader.location.search = "?keys=GP&xmluri=" + headerURL + "&param.uri=" + top.cicuri;
-   return true;
-}
-
-function refreshtheoryHeader(headerURL)
-{
-   top.theoryheader.location.search = "?keys=GP&xmluri=" + headerURL + "&param.uri=" + top.theoryuri;
-   return true;
-}
-
-function getCICMathMLKeys()
-{
-  return escape("d_c,C1,G,C2,L");
-}
-
-function getTheoryKeys()
-{
-  return escape("T1,T2,L,E");
-}
-
-function getEmbedKeys()
-{
-  return escape("d_c,TC1,HC2,L");
-}
-
-function getCICHTMLKeys()
-{
-  return escape("d_c,C1,HC2,L");
-}
-
-function makeURL(type,uri,cicflags,typesflags)
-{
-  var mode = top.mode;
-  var processorURL = top.processorURL;
-  var getterURL = top.getterURL;
-  var draw_graphURL = top.draw_graphURL;
-  var uri_set_queueURL = top.uri_set_queueURL;
-  var UNICODEvsSYMBOL = top.UNICODEvsSYMBOL;
-  var mode_list = mode.split(",");
-  
-  var keys = "";
-  var url = "";
-
-  var interfaceURL = top.topurl + "/html/cic/index.html";
-  var thinterfaceURL = top.topurl + "/html/theory/index.html";
-
-  var output = mode_list[0];
-  var format;
-  if (output == "raw") format = mode_list[1];
-  else format = mode_list[2];
-  
-  if (output == "raw") {
-    var ext = "";
-    var rdfprefix = "";
-    if (format == "types") ext = ".types"
-    else if (format == "ann") ext = ".ann"
-    else if (format == "fwd") rdfprefix = "helm:rdf:www.cs.unibo.it/helm/rdf/forward//"
-    else if (format == "bwd") rdfprefix = "helm:rdf:www.cs.unibo.it/helm/rdf/backward//";
-    url = getterURL + "getxml?uri=" + rdfprefix + uri + ext + "&format=" +
-          mode_list[5] + "&patch_dtd=" + mode_list[6];
-  } else {
-    if (format == "html" && type == "cic") {
-      keys = getCICHTMLKeys() +
-       "&param.processorURL=" + escape(processorURL) +
-       "&param.getterURL=" + escape(getterURL) +
-       "&param.draw_graphURL=" + escape(draw_graphURL) +
-       "&param.uri_set_queueURL=" + escape(uri_set_queueURL) +
-       "&param.UNICODEvsSYMBOL=" + escape(UNICODEvsSYMBOL) +
-       "&prop.doctype-public="+escape("-//W3C//DTD XHTML 1.0 Transitional//EN")+
-       "&prop.encoding=iso-8859-1" +
-       "&prop.media-type=text/html" +
-       "&param.doctype-public="+escape("-//W3C//DTD XHTML 1.0 Transitional//EN")+
-       "&param.encoding=iso-8859-1" +
-       "&param.media-type=text/html" +
-       "&param.keys=" + getCICHTMLKeys() +
-       "&param.interfaceURL=" + escape(interfaceURL);
-    } else if (format == "html" && type == "theory") {
-      keys = getTheoryKeys()+
-       "&param.processorURL=" + escape(processorURL) +
-       "&param.getterURL=" + escape(getterURL) +
-       "&param.draw_graphURL=" + escape(draw_graphURL) +
-       "&param.uri_set_queueURL=" + escape(uri_set_queueURL) +
-       "&param.UNICODEvsSYMBOL=" + escape(UNICODEvsSYMBOL) +
-       "&param.keys=" + getCICHTMLKeys() +
-       "&param.thkeys=" + getTheoryKeys() +
-       "&param.embedkeys=" + getEmbedKeys() +
-       "&param.doctype-public="+escape("-//W3C//DTD XHTML 1.0 Transitional//EN")+
-       "&param.encoding=iso-8859-1" +
-       "&param.thencoding=iso-8859-1" +
-       "&param.media-type=text/html" +
-       "&param.thmedia-type=text/html" +
-       "&param.interfaceURL=" + escape(interfaceURL) +
-       "&param.thinterfaceURL=" + escape(thinterfaceURL);
-    } else if (format == "mml_cont" && type == "cic") {
-      keys = escape("d_c,C1")+
-       "&prop.doctype-public="+
-       "&prop.encoding=" +
-       "&prop.media-type=text/xml" +
-       "&param.doctype-public=" +
-       "&param.encoding=" +
-       "&param.media-type=text/xml";
-    } else if (format == "mml_cont" && type == "theory") {
-      keys = escape("T1,L,E")+
-       "&param.keys=" + escape("d_c,C1") +
-       "&param.thkeys=T1,L,E" +
-       "&param.embedkeys=" + escape("d_c,TC1") +
-
-       "&param.processorURL=" + escape(processorURL) +
-       "&param.getterURL=" + escape(getterURL) +
-       "&param.draw_graphURL=" + escape(draw_graphURL) +
-       "&param.uri_set_queueURL=" + escape(uri_set_queueURL) +
-       "&param.doctype-public=" +
-       "&param.encoding=" +
-       "&param.thencoding=iso-8859-1" +
-       "&param.media-type=text/xml" +
-       "&param.thmedia-type=text/html" +
-       "&param.interfaceURL=" + escape(interfaceURL) +
-       "&param.thinterfaceURL=" + escape(thinterfaceURL);
-    } else if (format == "mml_pres" && type == "cic") {
-      keys = getCICMathMLKeys()+
-       "&param.processorURL=" + escape(processorURL) +
-       "&param.getterURL=" + escape(getterURL) +
-       "&param.draw_graphURL=" + escape(draw_graphURL) +
-       "&param.uri_set_queueURL=" + escape(uri_set_queueURL) +
-       "&prop.doctype-public="+
-       "&prop.encoding=" +
-       "&prop.media-type=text/xml" +
-       "&param.doctype-public=" +
-       "&param.encoding=" +
-       "&param.media-type=text/xml" +
-       "&param.keys=" + getCICMathMLKeys() +
-       "&param.interfaceURL=" + escape(interfaceURL);
-    } else if (format == "mml_pres" && type == "theory") {
-      keys = getTheoryKeys()+
-       "&param.keys=" + getCICMathMLKeys() +
-       "&param.thkeys=" + getTheoryKeys() +
-       "&param.embedkeys=" + escape(d_c,TC1,G,C2,L) +
-       "&param.processorURL=" + escape(processorURL) +
-       "&param.getterURL=" + escape(getterURL) +
-       "&param.draw_graphURL=" + escape(draw_graphURL) +
-       "&param.uri_set_queueURL=" + escape(uri_set_queueURL) +
-       "&param.doctype-public=" +
-       "&param.encoding=" +
-       "&param.thencoding=iso-8859-1" +
-       "&param.media-type=text/xml" +
-       "&param.thmedia-type=text/html" +
-       "&param.interfaceURL=" + escape(interfaceURL) +
-       "&param.thinterfaceURL=" + escape(thinterfaceURL);
-    }
-
-    var naturalLanguage = typesflags.toLowerCase();
-    if (typesflags != "NO" || type == "theory") {
-       naturalLanguage = mode_list[3];
-    }
-    var annotations = cicflags.toLowerCase();
-    if (cicflags != "NO" || type == "theory") {
-       annotations = mode_list[4];
-    }
-    url = processorURL + "apply?xmluri=" + escape(getterURL + "getxml?uri=" + uri) + "&keys=" + keys + "&param.CICURI=" + uri + "&param.naturalLanguage=" + naturalLanguage + "&param.annotations=" + annotations + "&param.topurl=" + top.topurl;
-  }
-
-  if (output == "raw")
-   return url;
-  else if (type == "cic")
-   return interfaceURL + "?url=" + escape(url);
-  else if (type == "theory")
-   return thinterfaceURL + "?url=" + escape(url)
-}
-

diff --git a/helm/on-line/javascript/defaults.js b/helm/on-line/javascript/defaults.js
deleted file mode 100644 (file)
index 2174375..0000000
--- a/helm/on-line/javascript/defaults.js
+++ /dev/null
@@ -1,25 +0,0 @@
-
-function getDefaultParam(name)
-{
-  switch (name) {
-  case "processorURL":
-    return "http://phd.cs.unibo.it:8080/helm/servlet/uwobo/";
-  case "getterURL":
-    return "http://phd.cs.unibo.it:8081/"; 
-  case "draw_graphURL":
-    return "http://phd.cs.unibo.it:8083/"; 
-  case "uri_set_queueURL":
-    return "http://phd.cs.unibo.it:8084/"; 
-  case "UNICODEvsSYMBOL":
-    return "symbol";
-  case "cicuri":
-    return "cic:/";
-  case "theoryuri":
-    return "theory:/";
-  case "mode":
-    return "processed,cic,html,yes,no,normal,no";
-  }
-  
-  return "???";
-}
-

diff --git a/helm/on-line/javascript/graphLinks.js b/helm/on-line/javascript/graphLinks.js
deleted file mode 100644 (file)
index a01a6f6..0000000
--- a/helm/on-line/javascript/graphLinks.js
+++ /dev/null
@@ -1,78 +0,0 @@
-function mkBackwardRDFURI(uri)
-{
-   var prefix = "helm:rdf:www.cs.unibo.it/helm/rdf/backward//";
-   var re1 = /#xpointer\(1\/(\d+)\/(\d+)\)/;
-   var re2 = /#xpointer\(1\/(\d+)\)/;
-   // Just one of the following replace will do something
-   uri = uri.replace(re1,",$1,$2");
-   uri = uri.replace(re2,",$1");
-
-   return (prefix + uri);
-}
-
-function removeXPointer(uri)
-{
-   //var re = /#xpointer(\.*)/;
-   // CSC: Why the r.e.s below work and the one above does not?
-   var re1 = /#xpointer\(1\/(\d+)\/(\d+)\)/;
-   var re2 = /#xpointer\(1\/(\d+)\)/;
-   var res = uri.replace(re1,"");
-   res = res.replace(re2,"");
-
-   return res;
-}
-
-
-function mkGraphURL(uri,keys)
-{
-   var getterURL = unescape(getParam("param.getterURL"));
-   var draw_graphURL = unescape(getParam("param.draw_graphURL"));
-   var url= setParam(location.href,"keys",keys);
-   url = setParam(url,"xmluri", getterURL + 'getempty');
-   url = setParam(url,"param.CICURI",escape(uri));
-   var uri_set_size = document.uri_set_size.elements[0].value;
-   url = setParam(url,"param.uri_set_size",uri_set_size);
-
-   // The generated URL is sometimes too long for I.E.
-   // So it is now better to remove some unuseful pararams from the inner URL
-   url = dropParam(url,"param.processorURL");
-
-   url = draw_graphURL + 'draw?url=' + escape(url);
-   var url2 = setParam(location.href,"keys","MGL,RT");
-   url2 = setParam(url2,"xmluri",escape(url));
-   url2 = setParam(url2,"param.uri_set_size",uri_set_size);
-   return url2;
-}
-
-function mkDepURL(uri)
-{
-   return mkGraphURL(uri,"MDG");
-}
-
-
-function mkMetaURL(uri)
-{
-   return mkGraphURL(uri,"MMG");
-}
-
-function mkCICURL(uri)
-{
-   var rawuri = removeXPointer(uri);
-   var getterURL = getParam("param.getterURL");
-   var interfaceURL = unescape(getParam("param.interfaceURL"));
-   var url= setParam(location.href,"keys",getParam("param.keys"));
-   url = setParam(url,"xmluri", getterURL + 'getxml%3Furi%3D' + rawuri);
-   url = setParam(url,"param.CICURI",rawuri);
-   url = interfaceURL + "?url=" + escape(url);
-   return url;
-}
-
-function mkMetaTheoryURL(uri)
-{
-   var rdfuri = mkBackwardRDFURI(uri);
-   var getterURL = getParam("param.getterURL");
-   var url = setParam(location.href,"keys","meta_theory," + unescape(getTheoryKeys()));
-   url = setParam(url,"param.embedkeys", getEmbedKeys());
-   url = setParam(url,"xmluri", getterURL + "getxml%3Furi%3D" + rdfuri);
-   return url;
-}

diff --git a/helm/on-line/javascript/helmjsmenu.js b/helm/on-line/javascript/helmjsmenu.js
deleted file mode 100644 (file)
index 0d76543..0000000
--- a/helm/on-line/javascript/helmjsmenu.js
+++ /dev/null
@@ -1,58 +0,0 @@
-// Global variables.
-var HJMmenu;
-
-function initializeMenu() {
-   HJMmenu =
-      document.getElementById ?
-         // A DOM browser
-         document.getElementById("HJMmenu").style
-      :  // Probably Netscape Navigator 4.0
-         document.HJMmenu;
-   HJMmenu.visibility="hidden";
-}
-
-function showMenu() {
-   HJMmenu.visibility="visible";
-}
-
-function hideMenu() {
-   HJMmenu.visibility="hidden";
-}
-
-function moveMenu(x,y) {
- var y2 = y - 25;
- var x2 = x - 25;
- if (document.getElementById) {
-   // Not Netscape Navigator 4.0
-   HJMmenu.left = x2 + "px";
-   HJMmenu.top  = y2 + "px";
- } else {
-   // Probably Netscape Navigator 4.0
-   HJMmenu.left = x2;
-   HJMmenu.top  = y2;
- }
-}
-
-function getX(event) {
-   if(!event.pageX)
-      // Probably Internet Explorer
-      return event.clientX + document.body.scrollLeft;
-   else
-      // Probably Netscape Navigator
-      return event.pageX;
-}
-
-function getY(event) {
-   if(!event.pageY)
-      // Probably Internet Explorer
-      return event.clientY + document.body.scrollTop;
-   else
-      // Probably Netscape Navigator
-      return event.pageY;
-}
-
-if (!document.getElementById) {
-   // Probably Netscape Navigator
-   document.captureEvents(Event.MOUSEDOWN);
-   document.onmousedown = hideMenu;
-}

diff --git a/helm/on-line/javascript/prelude.js b/helm/on-line/javascript/prelude.js
deleted file mode 100644 (file)
index f319735..0000000
--- a/helm/on-line/javascript/prelude.js
+++ /dev/null
@@ -1,217 +0,0 @@
-
-function getInitialProcessorURL()
-{
-  var search = top.location.search;
-  search = search.slice(1);
-  var args = search.split("&");
-  var processorURL = "-1";
-  for (var i = 0 ; i < args.length ; i++) {
-     var couple = args[i].split("=");
-     if (couple[0] == "processorURL") processorURL = couple[1];
-  }
-  if (processorURL == "-1") processorURL = getDefaultParam("processorURL");
-  return processorURL;
-}
-
-function getInitialGetterURL()
-{
-  var search = top.location.search;
-  search = search.slice(1);
-  var args = search.split("&");
-  var getterURL = "-1";
-  for (var i = 0 ; i < args.length ; i++) {
-     var couple = args[i].split("=");
-     if (couple[0] == "getterURL") getterURL = couple[1];
-  }
-  if (getterURL == "-1") getterURL = getDefaultParam("getterURL");
-  return getterURL;
-}
-
-function getInitialDrawGraphURL()
-{
-  var search = top.location.search;
-  search = search.slice(1);
-  var args = search.split("&");
-  var draw_graphURL = "-1";
-  for (var i = 0 ; i < args.length ; i++) {
-     var couple = args[i].split("=");
-     if (couple[0] == "draw_graphURL") draw_graphURL = couple[1];
-  }
-  if (draw_graphURL == "-1") draw_graphURL = getDefaultParam("draw_graphURL");
-  return draw_graphURL;
-}
-
-function getInitialURISetQueueURL()
-{
-  var search = top.location.search;
-  search = search.slice(1);
-  var args = search.split("&");
-  var uri_set_queueURL = "-1";
-  for (var i = 0 ; i < args.length ; i++) {
-     var couple = args[i].split("=");
-     if (couple[0] == "uri_set_queueURL") uri_set_queueURL = couple[1];
-  }
-  if (uri_set_queueURL == "-1") uri_set_queueURL = getDefaultParam("uri_set_queueURL");
-  return uri_set_queueURL;
-}
-
-function getInitialUNICODEvsSYMBOL()
-{
-  var search = top.location.search;
-  search = search.slice(1);
-  var args = search.split("&");
-  var UNICODEvsSYMBOL = "-1";
-  for (var i = 0 ; i < args.length ; i++) {
-     var couple = args[i].split("=");
-     if (couple[0] == "UNICODEvsSYMBOL") UNICODEvsSYMBOL = couple[1];
-  }
-  if (UNICODEvsSYMBOL == "-1") UNICODEvsSYMBOL = getDefaultParam("UNICODEvsSYMBOL");
-  return UNICODEvsSYMBOL;
-}
-
-function getInitialUNICODEvsSYMBOLsymbol()
-{
-  if (getInitialUNICODEvsSYMBOL() == "symbol")
-   return "CHECKED";
-  else
-   return "";
-}
-
-function getInitialUNICODEvsSYMBOLunicode()
-{
-  if (getInitialUNICODEvsSYMBOL() == "unicode")
-   return "CHECKED";
-  else
-   return "";
-}
-
-function getUwoboURL()
-{
-  return document.uwoboURL.elements[0].value;
-}
-
-function getGetterURL()
-{
-  return document.getterURL.elements[0].value;
-}
-
-function getDrawGraphURL()
-{
-  return document.draw_graphURL.elements[0].value;
-}
-
-function getURISetQueueURL()
-{
-  return document.uri_set_queueURL.elements[0].value;
-}
-
-function getUNICODEvsSYMBOL()
-{
-  if (document.UNICODEvsSYMBOL.radioUNICODEvsSYMBOL[0].checked)
-   return document.UNICODEvsSYMBOL.radioUNICODEvsSYMBOL[0].value;
-  else
-   return document.UNICODEvsSYMBOL.radioUNICODEvsSYMBOL[1].value;
-}
-
-function chopSlash(url)
-{
-  return url.slice(0,url.lastIndexOf('/'));
-}
-
-function refreshLinks()
-{
-  var search = top.location.search;
-  search = search.slice(1);
-  var args = search.split("&");
-  var cicuri = "-1", theoryuri = "-1", mode = "-1";
-  for (var i = 0 ; i < args.length ; i++) {
-     var couple = args[i].split("=");
-     switch (couple[0]) {
-        case "cicuri"       : cicuri     =couple[1]; break;
-        case "theoryuri"    : theoryuri  =couple[1]; break;
-        case "mode"         : mode       =couple[1]; break;
-     }
-  }
-  if (cicuri == "-1") cicuri = getDefaultParam("cicuri");
-  if (theoryuri == "-1") theoryuri = getDefaultParam("theoryuri");
-  if (mode == "-1") mode = getDefaultParam("mode");
-
-  document.links[2].href =
-   document.links[2].protocol + '//' +
-   document.links[2].host +
-   document.links[2].pathname +
-   "?getterURL=" + getGetterURL();
-
-  document.links[3].href = 
-   document.links[3].protocol + '//' +
-   document.links[3].host +
-   document.links[3].pathname +
-   "?processorURL=" + getUwoboURL() +
-   "&getterURL=" + getGetterURL();
-
-  var topurl =
-   chopSlash(chopSlash(
-    document.location.protocol + '//' +
-    document.location.host +
-    document.location.pathname));
-  document.links[4].href =
-     getUwoboURL() + "apply" +
-      "?keys=RT" +
-      "&param.topurl=" + topurl +
-      "&xmluri=" +
-      escape(
-       topurl + "/html/library/index.html" +
-       "?cicuri=" + cicuri +
-       "&theoryuri=" + theoryuri +
-       "&mode=" + mode +
-       "&processorURL=" + getUwoboURL() +
-       "&getterURL=" + getGetterURL() +
-       "&draw_graphURL=" + getDrawGraphURL() +
-       "&uri_set_queueURL=" + getURISetQueueURL() +
-       "&UNICODEvsSYMBOL=" + getUNICODEvsSYMBOL()
-      );
-}
-
-function selectUwoboURL(ss)
-{
-  if (ss.selectedIndex == 0) {
-    document.uwoboURL.elements[0].value = "";
-  } else {
-    document.uwoboURL.elements[0].value = "http://" + ss.options[ss.selectedIndex].value + ":8080/helm/servlet/uwobo/";
-  }
-
-  refreshLinks();
-}
-
-function selectGetterURL(ss)
-{
-  if (ss.selectedIndex == 0) {
-    document.getterURL.elements[0].value = "";
-  } else {
-    document.getterURL.elements[0].value = "http://" + ss.options[ss.selectedIndex].value + ":8081/";
-  }
-
-  refreshLinks();
-}
-
-function selectDrawGraphURL(ss)
-{
-  if (ss.selectedIndex == 0) {
-    document.draw_graphURL.elements[0].value = "";
-  } else {
-    document.draw_graphURL.elements[0].value = "http://" + ss.options[ss.selectedIndex].value + ":8083/";
-  }
-
-  refreshLinks();
-}
-
-function selectURISetQueueURL(ss)
-{
-  if (ss.selectedIndex == 0) {
-    document.uri_set_queueURL.elements[0].value = "";
-  } else {
-    document.uri_set_queueURL.elements[0].value = "http://" + ss.options[ss.selectedIndex].value + ":8084/";
-  }
-
-  refreshLinks();
-}

diff --git a/helm/on-line/javascript/utils.js b/helm/on-line/javascript/utils.js
deleted file mode 100644 (file)
index bb018ad..0000000
--- a/helm/on-line/javascript/utils.js
+++ /dev/null
@@ -1,105 +0,0 @@
-function chopSlash(url)
-{
-  return url.slice(0,url.lastIndexOf('/'));
-}
-
-function dropParam(url,name)
-{
-  var urla = url.split("?");
-  var search = urla[1];
-  var args = search.split("&");
-  var newargs = new Array();
-  var j = 0;
-
-  for (var i = 0 ; i < args.length ; i++) {
-     var couple = args[i].split("=");
-     if (couple[0] != name) {
-        newargs[j] = args[i];
-        j++;
-     }
-  }
-
-  return (urla[0] + "?" + newargs.join("&"));
-}
-
-function setParam(url,name,value)
-{
-  var urla = url.split("?");
-  var search = urla[1];
-  var args = search.split("&");
-  var found = false;
-
-  for (var i = 0 ; i < args.length ; i++) {
-     var couple = args[i].split("=");
-     if (couple[0] == name) {
-        found = true;
-        args[i] = name + "=" + value;
-     }
-  }
-
-  return (urla[0] + "?" + args.join("&") + (found ? "" : ("&" + name + "=" + value)));
-}
-
-function extractParam(url,name)
-{
-  var search = url.split("?")[1];
-  search = search.split("#")[0];
-  var args = search.split("&");
-  var value = "???";
-
-  for (var i = 0 ; i < args.length ; i++) {
-     var couple = args[i].split("=");
-     if (couple[0] == name) value = couple[1];
-  }
-
-  if (value == "???") value = getDefaultParam(name);
-
-  return value;
-}
-
-function getParam0(search,name)
-{
-  var args = search.split("&");
-  var value = "???";
-
-  for (var i = 0 ; i < args.length ; i++) {
-     var couple = args[i].split("=");
-     if (couple[0] == name) value = couple[1];
-  }
-
-  if (value == "???") value = getDefaultParam(name);
-
-  return value;
-}
-
-function getParam(name)
-{
-  return getParam0(location.search.slice(1),name);
-}
-
-function getParam2(name)
-{
-  var url = unescape(getParam('xmluri'));
-  var tmp = url.split("?");
-
-  if (tmp.length > 1)
-     return getParam0(tmp[1],name);
-  else
-     return getDefaultParam(name);
-}
-
-
-function outputOption(doc, value, content, selected)
-{
-  doc.write("<option value=\"" + value + "\" ");
-  if (value == selected) doc.write("selected ");
-  doc.write(">" + content + "</option>");
-}
-
-function outputCheckbox(doc, onclick, content, checked)
-{
-  doc.write("<input type=\"checkbox\" onClick=\"" + onclick + "\" ");
-  if (checked) doc.write("checked");
-  doc.write(">" + content + "</input>");
-}
-

diff --git a/helm/on-line/xslt/getParam.xsl b/helm/on-line/xslt/getParam.xsl
deleted file mode 100644 (file)
index 0ec71a8..0000000
--- a/helm/on-line/xslt/getParam.xsl
+++ /dev/null
@@ -1,28 +0,0 @@
-<?xml version="1.0"?>
-
-
-<xsl:stylesheet version="1.0"
- xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
- xmlns:helm="http://www.cs.unibo.it/helm">
-
-<xsl:output 
-       method="xml"
-       encoding="iso-8859-1" 
-       media-type="text/html"
-       doctype-public="-//W3C//DTD XHTML 1.0 Transitional//EN"
-       doctype-system="http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" />
-
-<xsl:param name="uri" select="''"/>
-
-<xsl:template match="helm:getParam">
- <xsl:value-of select="$uri"/>
-</xsl:template>
-
-<xsl:template match = "/|*">
-  <xsl:copy>
-   <xsl:copy-of select="@*"/>
-   <xsl:apply-templates/>
-  </xsl:copy>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/on-line/xslt/ls2html.xsl b/helm/on-line/xslt/ls2html.xsl
deleted file mode 100644 (file)
index a99a98f..0000000
--- a/helm/on-line/xslt/ls2html.xsl
+++ /dev/null
@@ -1,145 +0,0 @@
-<?xml version="1.0"?>
-
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-
-<xsl:import href="utils.xsl"/>
-
-<xsl:output method="html" encoding="iso-8859-1"/>
-
-<!-- uri must end with '/' -->
-<xsl:param name="uri" select="''"/>
-<xsl:param name="keys" select="''"/>
-<xsl:param name="getterURL" select="''"/>
-<xsl:param name="interfaceURL" select="''"/>
-<xsl:param name="target" select="''"/>
-
-<xsl:template name="chop">
- <xsl:param name="uri" select="''"/>
- <xsl:param name="prefix" select="''"/>
- <xsl:variable name="newprefix" select="substring-before($uri,'/')"/>
- <xsl:choose>
-  <xsl:when test="$newprefix = ''"><xsl:value-of select="$prefix"/></xsl:when>
-  <xsl:otherwise>
-   <xsl:call-template name="chop">
-    <xsl:with-param name="uri" select="substring-after($uri,'/')"/>
-    <xsl:with-param name="prefix" select="concat($prefix,$newprefix,'/')"/>
-   </xsl:call-template>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<xsl:variable name="uridotdot">
- <xsl:call-template name="chop">
-  <xsl:with-param name="uri" select="substring($uri,1,string-length($uri)-1)"/>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:template name="makeDir">
- <xsl:param name="uri" select="''"/>
- <xsl:param name="basename" select="''"/>
- <xsl:param name="icon" select="''"/>
- <xsl:param name="alt" select="''"/>
- <tr>
-  <td>
-   <img border="0" src="{concat($interfaceURL,'/icons/',$icon)}" alt="[{$alt}]"/>
-  </td>
-  <td>
-    <xsl:variable name="quoteduri">
-     <xsl:call-template name="jsquote">
-      <xsl:with-param name="s" select="$uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <a
-      onClick=
-       "top.{$target}uri='{$quoteduri}';
-        refresh{$target}Header('{$interfaceURL}/html/library/header.html');
-        var search='?keys={$keys}' +
-         '&amp;xmluri=' + escape('{$getterURL}ls?format=xml'+'&amp;baseuri={$quoteduri}')+
-         '&amp;param.uri={$quoteduri}' +
-         '&amp;param.keys={$keys}' +
-         '&amp;param.getterURL={$getterURL}' +
-         '&amp;param.target={$target}' +
-         '&amp;param.interfaceURL={$interfaceURL}';
-        var pathname = this.pathname;
-        if (pathname.charAt(0) != '/')
-         pathname = '/' + pathname;
-        this.href=
-         this.protocol + '//' + this.host + pathname + search + this.hash;"
-      onMouseOver="window.status='{$quoteduri}'; return true"
-      href="apply"
-   ><xsl:value-of select="$basename"/></a>
-  </td>
- </tr>
-</xsl:template>
-
-<xsl:template match="/">
- <html>
-  <head>
-   <title>Index of <xsl:value-of select="$uri"/></title>
-   <xsl:copy-of select="document(concat($interfaceURL,'/javascript/control.js_xml'))" />
-   <xsl:copy-of select="document(concat($interfaceURL,'/javascript/utils.js_xml'))" />
-  </head>
-  <body bgcolor="#ffffff" text="#000000">
-   <table>
-    <xsl:if test="$uridotdot != ''">
-     <xsl:call-template name="makeDir">
-      <xsl:with-param name="uri" select="$uridotdot"/>
-      <xsl:with-param name="basename" select="'Parent Directory'"/>
-      <xsl:with-param name="icon" select="'back.gif'"/>
-      <xsl:with-param name="alt" select="'Parent Directory'"/>
-     </xsl:call-template>
-    </xsl:if>
-    <xsl:apply-templates select="*"/>
-   </table>
-   <hr noshade="yes" align="left" width="80%"/>
-  </body>
- </html>
-</xsl:template>
-
-<xsl:template match="section">
- <xsl:variable name="diruri">
-  <xsl:value-of select="."/>
- </xsl:variable>
- <xsl:call-template name="makeDir">
-  <xsl:with-param name="uri" select="concat($uri,$diruri,'/')"/>
-  <xsl:with-param name="basename" select="$diruri"/>
-  <xsl:with-param name="icon" select="'folder.gif'"/>
-  <xsl:with-param name="alt" select="$uri"/>
- </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="object">
- <xsl:variable name="name" select="@name"/>
- <xsl:variable name="ann" select="ann/@value"/>
- <xsl:variable name="types" select="types/@value"/>
- <xsl:variable name="icon">
-  <xsl:choose>
-   <xsl:when test="$ann = 'YES'">text.gif</xsl:when>
-   <xsl:otherwise>generic.red.gif</xsl:otherwise>
-  </xsl:choose>
- </xsl:variable>
- <tr>
-  <td>
-   <img border="0" src="{concat($interfaceURL,'/icons/',$icon)}" alt="[{@name}]"/>
-  </td>
-  <td>
-   <xsl:variable name="quoteduri">
-    <xsl:call-template name="jsquote">
-     <xsl:with-param name="s" select="$uri"/>
-    </xsl:call-template>
-   </xsl:variable>
-   <xsl:variable name="quotedname">
-    <xsl:call-template name="jsquote">
-     <xsl:with-param name="s" select="$name"/>
-    </xsl:call-template>
-   </xsl:variable>
-   <a href="" target="{$target}"
-      onClick="this.href=makeURL('{$target}','{concat($quoteduri,$quotedname)}','{$ann}','{$types}')"
-      onMouseOver="window.status='{concat($quoteduri,$quotedname)}'; return true"
-   ><xsl:value-of select="$name"/></a>
-  </td>
- </tr>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/on-line/xslt/makeGraphLinks.xsl b/helm/on-line/xslt/makeGraphLinks.xsl
deleted file mode 100644 (file)
index 49122be..0000000
--- a/helm/on-line/xslt/makeGraphLinks.xsl
+++ /dev/null
@@ -1,107 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<xsl:stylesheet version="1.0"
- xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
- xmlns:subst="http://www.cs.unibo.it/helm/subst">
-
-<xsl:import href="utils.xsl"/>
-
-<!--CSC: code cut & pasted also in metadataLib.xsl -->
-<xsl:param name="uri_set_size" select="''"/>
-<!--CSC: end of cut & paste also in metadataLib.xsl -->
-
-<xsl:output method="html" encoding="iso-8859-1"/>
-
-<xsl:template match="/|*">
-  <xsl:copy>
-   <xsl:copy-of select="@*"/>
-   <xsl:apply-templates/>
-  </xsl:copy>
-</xsl:template>
-
-<xsl:template match="head">
-  <xsl:copy>
-   <xsl:copy-of select="@*"/>
-   <subst:script language="JavaScript" src="/javascript/defaults.js"/>
-   <subst:script language="JavaScript" src="/javascript/utils.js"/>
-   <subst:script language="JavaScript" src="/javascript/control.js"/>
-   <subst:script language="JavaScript" src="/javascript/graphLinks.js"/>
-   <subst:script language="JavaScript" src="/javascript/helmjsmenu.js"/>
-   <script>
-    var lastX, lastY;
-    var selectedURI;
-   </script>
-   <xsl:apply-templates/>
-  </xsl:copy>
-</xsl:template>
-
-<xsl:template match="body">
-  <!--CSC: end of cut & paste also in metadataLib.xsl -->
-  <form name="uri_set_size">
-   Number of nodes to show when following an hyperlink:
-   <input type="text" onClick="return false" value="{$uri_set_size}" size="2"/> (30 suggested)
-  </form>
-  <!--CSC: end of cut & paste also in metadataLib.xsl -->
-  <xsl:copy>
-   <xsl:copy-of select="@*"/>
-   <xsl:attribute name="onClick">hideMenu();</xsl:attribute>
-   <xsl:apply-templates/>
-   <div style="position: absolute" id="HJMmenu">
-    <!-- The two nested tables are for NS 4.0 where every -->
-    <!-- layer has a default transparent background color -->
-    <table bgColor="green" id="pippo">
-     <tr><td>
-      <table bgColor="cyan" border="2">
-       <tr><td><a href="" onClick="this.href=mkDepURL(selectedURI);">Objects this one depends on.</a></td></tr>
-       <tr><td><a href="" onClick="this.href=mkCICURL(selectedURI);" target="cic">Render this object.</a></td></tr>
-       <tr><td><a href="" onClick="this.href=mkMetaTheoryURL(selectedURI);" target="theory">Objects depending directly on this one.</a></td></tr>
-       <tr><td><a href="" onClick="this.href=mkMetaURL(selectedURI);">Objects depending on this one.</a></td></tr>
-      </table>
-     </td></tr>
-    </table>
-   </div>
-   <script>initializeMenu()</script>
-  </xsl:copy>
-</xsl:template>
-
-<xsl:template match = "area">
- <xsl:variable name="quoteduri">
-  <xsl:call-template name="jsquote">
-   <xsl:with-param name="s" select="@href"/>
-  </xsl:call-template>
- </xsl:variable>
- <xsl:copy>
-  <xsl:copy-of select="@*"/> 
-  <xsl:if test="starts-with(@href,&quot;cic:&quot;)">
-   <xsl:attribute name="onMouseOver">lastX = getX(event); lastY = getY(event);selectedURI='<xsl:value-of select="$quoteduri"/>';</xsl:attribute>
-   <xsl:attribute name="href">javascript:moveMenu(lastX,lastY); showMenu();</xsl:attribute>
-  </xsl:if>
-  <xsl:apply-templates/>
- </xsl:copy>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/on-line/xslt/metadataControl.xsl b/helm/on-line/xslt/metadataControl.xsl
deleted file mode 100644 (file)
index 9960ab7..0000000
--- a/helm/on-line/xslt/metadataControl.xsl
+++ /dev/null
@@ -1,48 +0,0 @@
-<?xml version="1.0"?>
-
-<xsl:stylesheet version="1.0"
- xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
- xmlns:subst="http://www.cs.unibo.it/helm/subst">
-
-<xsl:output 
-       method="xml"
-       encoding="iso-8859-1" 
-       media-type="text/html"
-       doctype-public="-//W3C//DTD XHTML 1.0 Transitional//EN"
-       doctype-system="http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" />
-
-<xsl:include href="metadataLib.xsl"/>
-
-<xsl:template match="InductiveDefinition">
- <xsl:for-each select="InductiveType">
-  <xsl:variable name="CICURIInductiveType" select="concat($CICURI,'#xpointer(1/',position())"/>
-  <xsl:variable name="RDFURIInductiveType" select="concat($CICURI,',',position())"/>
-  <h3>Metadata related to <xsl:value-of select="@name"/>:</h3>
-  <xsl:call-template name="makelink">
-   <xsl:with-param name="name" select="@name"/>
-   <xsl:with-param name="CICURI" select="concat($CICURIInductiveType,')')"/>
-   <xsl:with-param name="RDFURI" select="$RDFURIInductiveType"/>
-  </xsl:call-template>
-  <xsl:for-each select="Constructor">
-   <xsl:variable name="CICURIConstructor" select="concat($CICURIInductiveType,'/',position(),')')"/>
-   <xsl:variable name="RDFURIConstructor" select="concat($RDFURIInductiveType,',',position())"/>
-   <h3>Metadata related to <xsl:value-of select="@name"/>:</h3>
-   <xsl:call-template name="makelink">
-    <xsl:with-param name="name" select="@name"/>
-    <xsl:with-param name="CICURI" select="$CICURIConstructor"/>
-    <xsl:with-param name="RDFURI" select="$RDFURIConstructor"/>
-   </xsl:call-template>
-  </xsl:for-each>
- </xsl:for-each>
-</xsl:template>
-
-<!-- Not an Inductive Type -->
-<xsl:template match="*">
-  <xsl:call-template name="makelink">
-   <xsl:with-param name="name" select="$CICURI"/>
-   <xsl:with-param name="CICURI" select="$CICURI"/>
-   <xsl:with-param name="RDFURI" select="$CICURI"/>
-  </xsl:call-template>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/on-line/xslt/metadataLib.xsl b/helm/on-line/xslt/metadataLib.xsl
deleted file mode 100644 (file)
index a8c8540..0000000
--- a/helm/on-line/xslt/metadataLib.xsl
+++ /dev/null
@@ -1,108 +0,0 @@
-<?xml version="1.0"?>
-
-<xsl:stylesheet version="1.0"
- xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
- xmlns:subst="http://www.cs.unibo.it/helm/subst">
-
-<xsl:import href="utils.xsl"/>
-<xsl:import href="show_dc.xsl"/>
-
-<xsl:param name="CICURI" select="''"/>
-<xsl:param name="getterURL" select="''"/>
-<xsl:param name="draw_graphURL" select="''"/>
-
-<!--CSC: code cut & pasted from makeGraphLinks -->
-<xsl:param name="uri_set_size" select="'30'"/>
-<!--CSC: end of cut & paste from makeGraphLinks -->
-
-<xsl:variable name="BaseRDFURL" select="concat($getterURL,'getxml?uri=helm:rdf:www.cs.unibo.it/helm/rdf/')"/>
-<xsl:variable name="BaseRDFURLForward" select="concat($BaseRDFURL,'forward//')"/>
-<xsl:variable name="BaseRDFURLBackward" select="concat($BaseRDFURL,'backward//')"/>
-<xsl:variable name="BaseRDFURLDC" select="concat($BaseRDFURL,'dc//')"/>
-
-<xsl:template match="/">
- <html>
-  <head>
-   <subst:script language="JavaScript" src="/javascript/defaults.js"/>
-   <subst:script language="JavaScript" src="/javascript/utils.js"/>
-   <subst:script language="JavaScript" src="/javascript/control.js"/>
-   <subst:script language="JavaScript" src="/javascript/graphLinks.js"/>
-
-   <title>Metadata of <xsl:value-of select="$CICURI"/></title>
-  </head>
-  <body onLoad="window.focus()" bgColor="white">
-   <script>
-     var CICURI = "<xsl:value-of select="$CICURI"/>";
-<![CDATA[
-     document.write('<h1>Metadata of <a target="cic" href="' + mkCICURL(CICURI) + '">' + CICURI + '</a></h1>');
-]]>
-   </script>
-   <xsl:apply-templates select="*"/>
-   <!--CSC: code almost cut & pasted from makeGraphLinks -->
-   <form name="uri_set_size">
-    Number of nodes to show when following an hyperlink to a graph:
-    <input type="text" onClick="return false" value="{$uri_set_size}" size="2"/> (30 suggested)
-   </form>
-   <!--CSC: end of cut & paste from makeGraphLinks -->
-  <xsl:call-template name="loop_show_dc">
-   <xsl:with-param name="CICURI" select="$CICURI"/>
-  </xsl:call-template>
-  </body>
- </html>
-</xsl:template>
-
-<xsl:template name="makelink">
- <xsl:param name="name" select="''"/>
- <xsl:param name="CICURI" select="''"/>
- <xsl:param name="RDFURI" select="''"/>
- <xsl:variable name="quotedCICURI">
-  <xsl:call-template name="jsquote">
-   <xsl:with-param name="s" select="$CICURI"/>
-   <xsl:with-param name="times" select="2"/>
-  </xsl:call-template>
- </xsl:variable>
- <xsl:choose>
-  <xsl:when test="document(concat($BaseRDFURLBackward,$RDFURI))/*/*/*">
-   <p>
-    <script>
-     var CICURI = "<xsl:value-of select="$CICURI"/>";
-<![CDATA[
-     document.write('<a target="theory" href="' + mkMetaTheoryURL(CICURI) + '">View the objects depending on it.</a>');
-]]>
-    </script>
-   </p>
-   <p>
-    <script>
-<![CDATA[
-     document.write('<a href="" onClick="window.open(mkMetaURL(\']]><xsl:value-of select="$quotedCICURI"/><![CDATA[\'),\'graph\');return false;">View the graph of all the objects depending on this one.</a>');
-]]>
-    </script>
-   </p>
-  </xsl:when>
-  <xsl:otherwise>
-   <p>
-    Object <xsl:value-of select="$name"/> is never referenced in other objects
-   </p>
-  </xsl:otherwise>
- </xsl:choose>
-
- <xsl:choose>
-  <xsl:when test="document(concat($BaseRDFURLForward,$RDFURI))/*/*/*">
-   <p>
-    <!-- CSC: Cut & Paster from above ==> create a single javascript function -->
-    <script>
-<![CDATA[
-     document.write('<a href="" onClick="window.open(mkDepURL(\']]><xsl:value-of select="$quotedCICURI"/><![CDATA[\'),\'graph\');return false;">View the graph of all the dependencies of this object.</a>');
-]]>
-    </script>
-   </p>
-  </xsl:when>
-  <xsl:otherwise>
-   <p>
-    Object <xsl:value-of select="$name"/> does not reference any other object
-   </p>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/on-line/xslt/resolve_topurl.xsl b/helm/on-line/xslt/resolve_topurl.xsl
deleted file mode 100644 (file)
index 6cfe0ed..0000000
--- a/helm/on-line/xslt/resolve_topurl.xsl
+++ /dev/null
@@ -1,28 +0,0 @@
-<?xml version="1.0"?>
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:subst="http://www.cs.unibo.it/helm/subst">
-
-<xsl:output
-           method="html" 
-           encoding="ISO-8859-1" 
-           media-type="text/html" />
-
-<xsl:param name="topurl" select="''"/>
-
-<xsl:template match="subst:script">
- <xsl:copy-of select="document(concat($topurl,@src,'_xml'))" />
-</xsl:template>
-
-<xsl:template match="subst:topurl">
- <xsl:value-of select="$topurl"/>
-</xsl:template>
-
-<xsl:template match="/|*">
- <xsl:copy>
-  <xsl:copy-of select="@*"/>
-  <xsl:apply-templates/>
- </xsl:copy>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/on-line/xslt/utils.xsl b/helm/on-line/xslt/utils.xsl
deleted file mode 100644 (file)
index 9213c24..0000000
--- a/helm/on-line/xslt/utils.xsl
+++ /dev/null
@@ -1,41 +0,0 @@
-<?xml version="1.0"?>
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-
-<!-- Next function to quote strings for JavaScript (i.e. ' ==> \' -->
-<xsl:template name="jsquote">
- <xsl:param name="s" select="''"/>
- <xsl:param name="news" select="''"/>
- <xsl:param name="times" select="1"/>
- <xsl:choose>
-  <xsl:when test="$s = ''"><xsl:value-of select="$news"/></xsl:when>
-  <xsl:otherwise>
-   <xsl:variable name="char" select="substring($s,1,1)"/>
-   <xsl:choose>
-    <xsl:when test='$char = "&apos;" and $times = 1'>
-     <xsl:call-template name="jsquote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select='concat($news,"\&apos;")'/>
-      <xsl:with-param name="times" select="$times"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test='$char = "&apos;" and $times = 2'>
-     <xsl:call-template name="jsquote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select='concat($news,"\\\&apos;")'/>
-      <xsl:with-param name="times" select="$times"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:call-template name="jsquote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,$char)"/>
-      <xsl:with-param name="times" select="$times"/>
-     </xsl:call-template>
-    </xsl:otherwise>
-   </xsl:choose>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/on-line/xslt/xslt_index.txt b/helm/on-line/xslt/xslt_index.txt
deleted file mode 100644 (file)
index 2f27d8e..0000000
--- a/helm/on-line/xslt/xslt_index.txt
+++ /dev/null
@@ -1,7 +0,0 @@
-getParam.xsl
-ls2html.xsl
-makeGraphLinks.xsl
-metadataControl.xsl
-metadataLib.xsl
-resolve_topurl.xsl
-utils.xsl

diff --git a/helm/pacchetti/Makefile b/helm/pacchetti/Makefile
deleted file mode 100644 (file)
index e47e23f..0000000
--- a/helm/pacchetti/Makefile
+++ /dev/null
@@ -1,76 +0,0 @@
-all: helm_configuration helm_data helm_http_getter helm_xsltd helm_gtk_interface
-clean:
-       rm -f helm_*.spec helm_*.tar.gz
-
-helm_configuration: prep_helm_configuration clean_helm_configuration
-
-prep_helm_configuration:
-       cvs export -D20100101 configuration
-       mv configuration/helm_configuration-0.0.1-1.spec .
-       (cd configuration ; autoconf)
-       mv configuration helm_configuration-0.0.1
-       tar -zcvf helm_configuration-0.0.1-1.tar.gz helm_configuration-0.0.1
-
-clean_helm_configuration:
-       rm -rf helm_configuration-0.0.1
-
-
-
-helm_data: prep_helm_data clean_helm_data
-
-prep_helm_data:
-       cvs export -D20100101 helm_data
-       mv helm_data/helm_data-0.0.1-1.spec .
-       (cd helm_data ; cvs export -D20100101 dtd ; cvs export -D20100101 style ; autoconf)
-       mv helm_data helm_data-0.0.1
-       tar -zcvf helm_data-0.0.1-1.tar.gz helm_data-0.0.1
-
-clean_helm_data:
-       rm -rf helm_data-0.0.1
-
-
-
-helm_http_getter: prep_helm_http_getter clean_helm_http_getter
-
-prep_helm_http_getter:
-       cvs export -D20100101 http_getter
-       mv http_getter/helm_http_getter-0.0.1-1.spec .
-       (cd http_getter ; autoconf)
-       mv http_getter helm_http_getter-0.0.1
-       tar -zcvf helm_http_getter-0.0.1-1.tar.gz helm_http_getter-0.0.1
-
-clean_helm_http_getter:
-       rm -rf helm_http_getter-0.0.1
-
-
-
-helm_xsltd: prep_helm_xsltd clean_helm_xsltd
-
-prep_helm_xsltd:
-       cvs export -D20100101 xsltd
-       mv xsltd/helm_xsltd-0.0.1-1.spec .
-       (cd xsltd ; autoconf)
-       mv xsltd helm_xsltd-0.0.1
-       tar -zcvf helm_xsltd-0.0.1-1.tar.gz helm_xsltd-0.0.1
-
-clean_helm_xsltd:
-       rm -rf helm_xsltd-0.0.1
-
-
-
-helm_gtk_interface: prep_helm_gtk_interface clean_helm_gtk_interface
-
-prep_helm_gtk_interface:
-       cvs export -D20100101 interface
-       mv interface/helm_gtk_interface-0.0.1-1.spec .
-       (cd interface ; autoconf)
-       mv interface helm_gtk_interface-0.0.1
-       tar -zcvf helm_gtk_interface-0.0.1-1.tar.gz helm_gtk_interface-0.0.1
-
-clean_helm_gtk_interface:
-       rm -rf helm_gtk_interface-0.0.1
-
-
-
-
-PHONY: all clean helm_configuration prep_helm_configuration clean_helm_configuration

diff --git a/helm/proofChecker/.cvsignore b/helm/proofChecker/.cvsignore
deleted file mode 100644 (file)
index aae07b8..0000000
--- a/helm/proofChecker/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cm[iox] *.o proofChecker proofChecker.opt

diff --git a/helm/proofChecker/.depend b/helm/proofChecker/.depend
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/proofChecker/Makefile b/helm/proofChecker/Makefile
deleted file mode 100644 (file)
index 107d569..0000000
--- a/helm/proofChecker/Makefile
+++ /dev/null
@@ -1,47 +0,0 @@
-BIN_DIR = /usr/local/bin
-REQUIRES = helm-cic_proof_checking
-PREDICATES =
-OCAMLOPTIONS = -package "$(REQUIRES)" -predicates "$(PREDICATES)"
-OCAMLC = ocamlfind ocamlc $(OCAMLOPTIONS) -g
-OCAMLOPT = ocamlfind ocamlopt $(OCAMLOPTIONS)
-OCAMLDEP = ocamldep
-
-LIBRARIES = $(shell ocamlfind query -recursive -predicates "byte $(PREDICATES)" -format "%d/%a" $(REQUIRES))
-LIBRARIES_OPT = $(shell ocamlfind query -recursive -predicates "native $(PREDICATES)" -format "%d/%a" $(REQUIRES))
-
-all: $(PROOFCHECKEROBJS) proofChecker
-opt: $(PROOFCHECKEROBJS:.cmo=.cmx) proofChecker.opt
-
-DEPOBJS = proofChecker.ml
-
-PROOFCHECKEROBJS = proofChecker.cmo
-
-depend:
-       $(OCAMLDEP) $(DEPOBJS) > .depend
-
-proofChecker: $(PROOFCHECKEROBJS) $(LIBRARIES)
-       $(OCAMLC)  -linkpkg -o proofChecker $(PROOFCHECKEROBJS)
-
-proofChecker.opt: $(PROOFCHECKEROBJS:.cmo=.cmx) $(LIBRARIES_OPT)
-       $(OCAMLOPT) -linkpkg -o proofChecker.opt $(PROOFCHECKEROBJS:.cmo=.cmx)
-
-.SUFFIXES: .ml .mli .cmo .cmi .cmx
-.ml.cmo: $(LIBRARIES)
-       $(OCAMLC) -c $<
-.mli.cmi: $(LIBRARIES)
-       $(OCAMLC) -c $<
-.ml.cmx: $(LIBRARIES_OPT)
-       $(OCAMLOPT) -c $<
-
-clean:
-       rm -f *.cm[iox] *.o proofChecker proofChecker.opt
-
-install:
-       cp proofChecker proofChecker.opt $(BIN_DIR)
-
-uninstall:
-       rm -f $(BIN_DIR)/proofChecker $(BIN_DIR)/proofChecker.opt
-
-.PHONY: install uninstall clean
-
-include .depend

diff --git a/helm/proofChecker/proofChecker.ml b/helm/proofChecker/proofChecker.ml
deleted file mode 100644 (file)
index d7cf692..0000000
--- a/helm/proofChecker/proofChecker.ml
+++ /dev/null
@@ -1,61 +0,0 @@
-(* Copyright (C) 2000, HELM Team.
- * 
- * This file is part of HELM, an Hypertextual, Electronic
- * Library of Mathematics, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * HELM is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- * 
- * HELM is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with HELM; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- * 
- * For details, see the HELM World-Wide-Web page,
- * http://cs.unibo.it/helm/.
- *)
-
-let main () =
- let usage_msg =
-  "
-usage: proofChecker[.opt]
-The proof-checker reads from the stdin one URI at a time and proof-checks it.
-
-List of options:"
- in
-  Arg.parse []
-   (fun _ -> 
-     begin
-      prerr_string "Error: no options expected.\n" ;
-      Arg.usage [] usage_msg ;
-      exit (-1)
-     end
-  ) usage_msg ;
-  try
-   while true do
-    begin
-     try
-      CicTypeChecker.typecheck (UriManager.uri_of_string (read_line ()))
-     with
-        End_of_file -> raise End_of_file
-      | e ->
-       print_newline() ;
-       flush stdout ;
-       raise e
-    end ;
-    print_endline "END"
-   done
-  with
-   End_of_file -> ()
-;;
-
-CicCooking.init() ;
-main ();;

diff --git a/helm/proofChecker/proofChecker.pl b/helm/proofChecker/proofChecker.pl
deleted file mode 100755 (executable)
index 9d6346a..0000000
--- a/helm/proofChecker/proofChecker.pl
+++ /dev/null
@@ -1,70 +0,0 @@
-#!/usr/bin/perl
-
-use HTTP::Daemon;
-use HTTP::Status;
-use HTTP::Response;
-use URI::Escape;
-use CGI;
-use FindBin;
-use IPC::Open3;
-
-chdir $FindBin::Bin; # chdir to the directory of this perl script
-
-my $d = new HTTP::Daemon LocalPort => 8085
- or die "Error: port 8085 not available.";
-print "Please contact me at: <URL:", $d->url, ">\n";
-
-my $IsProofCheckerLiving = 0;
-
-$SIG{CHLD} =
-   sub {
-      print stderr "\nERROR: The proof-checker died.\n";
-      $IsProofCheckerLiving=0;
-   };
-$| = 1;
-
-while(true) {
-   open3(*PC_IN, *PC_OUT, *PC_ERR, "./proofChecker.opt 2>&1");
-   $IsProofCheckerLiving=1;
-   print stderr "\nWARNING: A new proof-checker starts.\n";
-   PC_IN->autoflush(1);
-
-  while (my $c = $d->accept) {
-    my $r = $c->get_request;
-    my $http_query = uri_unescape($r->url->query);
-    my $cgi = new CGI("$http_query");
-    my $uri = $cgi->param('uri');
-
-    if ($r->method eq 'GET' && $r->url->path eq "/proofCheck"){
-       print "Request to proof-check \"$uri\"...";
-       print PC_IN "$uri\n";
-       print $c <<EOT;
-<html>
-<head>
- <title>Proof-Checking $uri</title>
-</head>
-<body bgcolor="white">
-<h1>Proof-Checking $uri:</h1> 
-EOT
-       while(chomp($_ = <PC_OUT>)) {
-         last if ($_ eq "END");
-         print $c $_;
-       }
-       print $c <<EOT;
-<h1>Done.</h1>
-</body>
-</html>
-EOT
-       print " done\n\n";
-    } else {
-        print "INVALID REQUEST \"$http_query\"!!!!!\n\n";
-        $c->send_error(RC_FORBIDDEN);
-    }
-    $c->close;
-    undef($c);
-    last unless $IsProofCheckerLiving;
-  }
-  close(PC_IN);
-  close(PC_OUT);
-  close(PC_ERR);
-}

diff --git a/helm/schemas/13-dcagent b/helm/schemas/13-dcagent
deleted file mode 100644 (file)
index de0e6b4..0000000
--- a/helm/schemas/13-dcagent
+++ /dev/null
@@ -1,169 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- HELM: OLD URL OF SCHEMAS: VRP gives errors --> 
-<!--<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
-        xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#"
-WRONG    xmlns:dc="http://dublincore.org/2000/03/13-dces#"
-WRONG    xmlns:eor="http://dublincore.org/2000/03/13-eor#"
-ADDED    http://dublincore.org/2000/03/13-dcagent>-->
-
-<!DOCTYPE rdf:RDF [
-        <!ENTITY rdfns 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'>
-        <!ENTITY rdfsns 'http://www.w3.org/2000/01/rdf-schema#'>
-        <!ENTITY dcns 'http://www.cs.unibo.it/~schena/dces#'>
-        <!ENTITY dcqns 'http://www.cs.unibo.it/~schena/dcq#'>
-        <!ENTITY eorns 'http://www.cs.unibo.it/~schena/eor#'>
-        <!ENTITY dcagentns 'http://www.cs.unibo.it/~schena/13-dcagent#'>
-        <!ENTITY dctypens 'http://www.cs.unibo.it/~schena/dctype#'>
-   ]>
-
-<rdf:RDF xmlns:rdf="&rdfns;"
-         xmlns:rdfs="&rdfsns;"
-         xmlns:dc="&dcns;"
-         xmlns:dcq="&dcqns;"
-         xmlns:eor="&eorns;"
-         xmlns:dct="&dctypens;">
-
-<!-- Description of Schema --> 
-
-<eor:Schema rdf:about="&dcagentns;">
-  <!-- dumb down rule... use rdf:value for a simple default name -->   
-  <rdf:value>The Dublin Core Agent Core Vocabulary</rdf:value> 
-  <dc:title>The Dublin Core Agent Core Vocabulary</dc:title>
-  <dc:creator>The Dublin Core Metadata Initiative</dc:creator>
-  <dc:description>The Dublin Core metadata vocabulary is a simple vocabulary
-      intended to facilitate the discovery and description of agents.</dc:description>
-  <dc:language>English</dc:language>
-  <dc:date>2000-03-13</dc:date>
-</eor:Schema>
-
-<!-- HELM: added # to every internal resource reference 
-           every eor:note is eor:comment                -->
-
-<!-- Begin: Agent Declaration -->
-
-<!-- addition DC Vocabulary range declarations -->
-<!-- HELM: Here we want to constraint an external property to a particular 
-range. VRP gives a Warning when (extending or modifying) constraining the 
-range of a property defined in another schema. -->
-<!-- (NOTE: rdf:about was rdf:ID)
-<rdf:Description rdf:about = "&dcns;contributor">
-  <rdfs:range rdf:resource = "Agent" />
-</rdf:Description>
-
-<rdf:Description rdf:about = "&dcns;creator">
-  <rdfs:range rdf:resource = "Agent" />
-</rdf:Description>
-
-<rdf:Description rdf:about = "&dcns;publisher">
-  <rdfs:range rdf:resource = "Agent" />
-</rdf:Description>-->
-
-
-<!-- Class declaration -->
-
-<rdfs:Class rdf:ID = "Agent">
-  <rdfs:label>Agent</rdfs:label>
-  <rdfs:comment>An agent</rdfs:comment>
-<!-- HELM: now Resource is DCMIType
-<rdfs:subClassOf rdf:resource = "http://dublincore.org/2000/03/13-dctype#Resource" />-->
-  <rdfs:subClassOf rdf:resource = "&dctypens;DCMIType" />
-  <rdfs:isDefinedBy rdf:resource = "&dcagentns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "Person">
-  <rdfs:label>Person</rdfs:label>
-  <rdfs:comment>An individual human.</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#Agent" />
-  <rdfs:isDefinedBy rdf:resource = "&dcagentns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "Organization">
-  <rdfs:label>Organization</rdfs:label>
-  <rdfs:comment>A group that that acts as an agent. Typical examples of organizations are associations, institutions, business firms, nonprofit enterprises, governments, government agencies, cultural groups, and religious bodies.</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#Agent" />
-  <rdfs:isDefinedBy rdf:resource = "&dcagentns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "Event">
-  <rdfs:label>Event</rdfs:label>
-  <rdfs:comment>A non-persistent and time-based activity that acts as an agent. Typical examples of events are conferences, conventions, meetings, exhibitions, expositions ,festivals, athletic contests, workshops, and expeditions.</rdfs:comment>
-   <eor:comment>Name change and relation defined due to overlap with Event declaration from dc:type work... not sure how best to handle this... </eor:comment>
-  <rdfs:subClassOf rdf:resource = "#Agent" />
-  <rdfs:isDefinedBy rdf:resource = "&dcagentns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "Object">
-  <rdfs:label>Object</rdfs:label>
-  <rdfs:comment>A device that acts as an agent. Typical examples of objects are mechanical instruments, electronic services, non-human entities, and appliances.</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#Agent" />
-  <rdfs:isDefinedBy rdf:resource = "&dcagentns;" />
-</rdfs:Class>
-
-<!-- Properties associated with Classes -->
-
-<rdf:Property rdf:ID = "agentName">
-  <rdfs:label>Agent Name</rdfs:label>
-  <rdfs:comment>The formal or common name of the Agent</rdfs:comment>
-  <eor:comment>Typically, this would be the name which is used to refer to the Agent. The Family Name First Encoding Value Qualifier may also be used to express the order of the components of the Name.  Vocabularies of Names may also be used as values for this qualifier. </eor:comment>
-  <rdfs:domain rdf:resource = "#Agent" />
-  <rdfs:range rdf:resource = "#NameScheme" />
-  <rdfs:isDefinedBy rdf:resource = "&dcagentns;" />
-</rdf:Property>
-
-<!-- Encoding Scheme declarations for Name -->
-
-<rdfs:Class rdf:ID = "NameScheme">
-  <rdfs:label>Name Encoding Schemes</rdfs:label>
-  <rdfs:comment>A set of name encoding schemes and/or formats.</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcagentns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "FNF">
-  <rdfs:label>DCMI Family Name First</rdfs:label>
-  <rdfs:comment>The DCMI encoding rule in which the family name of the Agent appears first, followed by a comma, then all other names.</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#NameScheme" />
-  <rdfs:seeAlso rdf:resource = "http://www.mailbase.ac.uk/lists/dc-agents/files/wd-agent-qual.html" />
-  <rdfs:isDefinedBy rdf:resource = "&dcagentns;" />
-</rdfs:Class>
-
-
-<!-- Agent Affiliation -->
-
-<rdf:Property rdf:ID = "agentAffiliation">
-  <rdfs:label>Agent Affiliation</rdfs:label>
-  <rdfs:comment>The organization with which the named Agent was associated when involved with the resource</rdfs:comment>
-  <rdfs:domain rdf:resource = "#Agent" /> 
- <rdfs:isDefinedBy rdf:resource = "&dcagentns;" />
-</rdf:Property>
-
-<!-- Agent Indetifier -->
-
-<rdf:Property rdf:ID = "agentID">
-  <rdfs:label>Agent Identifier</rdfs:label>
-  <rdfs:comment>An unambiguous reference to the named Agent within a given context.</rdfs:comment>
-  <eor:comment>Recommended best practice is to identify the named Agent
-by means of a string or number conforming to a formal identification
-system. The recommended Encoding Value Qualifier is the Uniform
-Resource Identifier.  In some cases, the Agent Identifier may provide
-or lead to more information about the named Agent.</eor:comment>
-  <eor:comment>This seems very wrong to me... again this seems like a syntactic mechansim for uniqly identifying some resource... this requirement is neccessary for all resource description and should be common (e.g. RDF)</eor:comment>
-  <rdfs:domain rdf:resource = "#Agent" />
-  <rdfs:range rdf:resource = "&dcqns;IdentifierScheme" />
-  <rdfs:isDefinedBy rdf:resource = "&dcagentns;" />
-</rdf:Property>
-
-<!-- Agent Type -->
-
-<rdf:Property rdf:ID = "agentType">
-  <rdfs:label>Agent Type</rdfs:label>
-  <rdfs:comment>The type of the entity for the named Agent.</rdfs:comment>
-  <eor:comment>The values are defined in the DC Agent Type vocabulary (referred to as DCAT1) which is maintained by the DCMI.  Other terms may be used but are not recommended.</eor:comment>
-  <rdfs:domain rdf:resource = "#Agent" />
-  <rdfs:isDefinedBy rdf:resource = "&dcagentns;" />
-</rdf:Property>
-
-
-<!-- End: Agent Declaration -->
-
-</rdf:RDF>

diff --git a/helm/schemas/21-euler b/helm/schemas/21-euler
deleted file mode 100644 (file)
index 22885d7..0000000
--- a/helm/schemas/21-euler
+++ /dev/null
@@ -1,281 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- HELM: OLD URL OF SCHEMAS: VRP gives errors --> 
-<!--<rdf:RDF xml:lang="en"
-         xmlns:rdf = "http://www.w3.org/1999/02/22-rdf-syntax-ns#"
-         xmlns:rdfs = "http://www.w3.org/2000/01/rdf-schema#"
-         xmlns:eor = "http://dublincore.org/2000/03/13-eor#"
-         xmlns:dc = "http://dublincore.org/2000/03/13-dces#"
-ADDED    xmlns:euler = "http://wip.dublincore.org/2000/11/21-euler#"
-ADDED    xmlns:dcag  = "http://dublincore.org/2000/03/13-dcagent#">-->
-
-<!DOCTYPE rdf:RDF [
-        <!ENTITY rdfns 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'>
-        <!ENTITY rdfsns 'http://www.w3.org/2000/01/rdf-schema#'>
-        <!ENTITY dcns 'http://www.cs.unibo.it/~schena/dces#'>
-        <!ENTITY eorns 'http://www.cs.unibo.it/~schena/eor#'>
-        <!ENTITY dcagentns 'http://www.cs.unibo.it/~schena/13-dcagent#'>
-        <!ENTITY eulerns 'http://www.cs.unibo.it/~schena/21-euler#'>
-   ]>
-
-<rdf:RDF xmlns:rdf="&rdfns;"
-         xmlns:rdfs="&rdfsns;"
-         xmlns:dc="&dcns;"
-         xmlns:eor="&eorns;"
-         xmlns:dcag="&dcagentns;">
-
-<!-- Description of Schema --> 
-
-<eor:Schema rdf:about="&eulerns;">
-  <rdf:value>The EULER namespace  v1.0</rdf:value> 
-  <dc:title>The EULER  namespace  v1.0</dc:title>
-  <dc:creator> Manjula Patel </dc:creator>
-  <dc:creator> Eric Miller </dc:creator>
-  <dc:publisher>The SCHEMAS Project</dc:publisher>
-  <dc:description>Semantic declarations for supporting EULER</dc:description>
-  <dc:language>English</dc:language>
-  <dc:date>2000-11-21</dc:date>
-</eor:Schema>
-
-<!-- HELM: added # to every internal resource reference -->
-
-<!-- Note: I (emiller@oclc.org ) would suggests *not* modeling
-personal & corporate more along the lines of
-http://dublincore.org/2000/03/13-agents in terms of the entity
-declarations and http://dublincore.org/2000/03/13-marcrel in terms of
-the extra relationships between information resources and agent
-resources... I'll try and model this both ways, but given the time
-contraints, I'm going to start with the simpler and more interoperable
-way... -->
-
-<!-- in this case, EULER simply declares an additional encoding scheme for "names" -->
-
-<rdfs:Class rdf:ID = "CityName">
-  <rdfs:label>City and Name Encoding</rdfs:label>
-  <rdfs:comment>The EULER encoding rule of the following format - City [(Country)]: Name</rdfs:comment>
-<!-- HELM: 1) wrong URI
-           2) NameScheme Class doesn't exist in dcq!
-<rdfs:subClassOf rdf:resource = "http://dublincore.org/2000/03/13-dcq#NameScheme" />-->
-  <rdfs:subClassOf rdf:resource = "&dcagentns;NameScheme" />
-<!-- HELM: wrong definition URI
-<rdfs:isDefinedBy rdf:resource = "http://dublincore.org/2000/03/13-dcagent" />-->
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdfs:Class>
-
-
-<rdf:Property rdf:ID="x-carrier">
-  <rdfs:label>Physical Carrier</rdfs:label>
-  <rdfs:comment>Physical carrier of information. The reason for 
-applying this EULER-invented sub-field is that the end-user should be able to 
-conclude if the resource described in the bibliographic record (displayed in the 
-hitlist) is available online or not. Example: book (= paper) -is the physical 
-description (compared to monograph which is an entity, irrespective of how it is 
-'delivered', in a printed version (paper) or in a file). The physical 
-[...] manifestation of the resource. Typically, Format may include the 
-media-type or dimensions of the resource. Format may be used to determine the 
-software, hardware or other equipment needed to display or operate the 
-resource. Examples of dimensions include size and duration.</rdfs:comment>
-  <rdfs:range rdf:resource = "#CarrierTypes" />
-<!-- HELM: 1) wrong URI
-           2) format doesn't exist in dcq!
-<rdfs:subPropertyOf rdf:resource = "http://dublincore.org/2000/03/13-dcq#format" /> -->
-  <rdfs:subPropertyOf rdf:resource = "&dcns;format" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdf:Property>
-
-<rdfs:Class rdf:ID = "CarrierTypes">
-  <rdfs:label>Carrier Types</rdfs:label>
-  <rdfs:comment>Types of EULER Carriers</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdfs:Class>
-    
-<rdfs:Class rdf:ID = "PrintedMaterial">
-  <rdfs:label>printed material</rdfs:label>
-  <rdfs:comment>printed material</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#CarrierTypes" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="HandWrittenMaterial">
-  <rdfs:label>hand-written material</rdfs:label>
-  <rdfs:comment>hand-written material</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#CarrierTypes" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;"/>
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="CDROM">
-  <rdfs:label>cdrom</rdfs:label>
-  <rdfs:comment>cdrom</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#CarrierTypes" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="DVD">
-  <rdfs:label>dvd</rdfs:label>
-  <rdfs:comment>dvd</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#CarrierTypes" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Slide">
-  <rdfs:label>(dia)slide</rdfs:label>
-  <rdfs:comment>(dia)slide</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#CarrierTypes" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Diskette">
-  <rdfs:label>diskette</rdfs:label>
-  <rdfs:comment>diskette</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#CarrierTypes" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;"/>
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Film">
-  <rdfs:label>film</rdfs:label>
-  <rdfs:comment>film</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#CarrierTypes" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Audio">
-  <rdfs:label>audio</rdfs:label>
-  <rdfs:comment>audio</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#CarrierTypes" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Microfiche">
-  <rdfs:label>microfiche</rdfs:label>
-  <rdfs:comment>microfiche</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#CarrierTypes" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Microfilm">
-  <rdfs:label>microfilm</rdfs:label>
-  <rdfs:comment>microfilm</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#CarrierTypes" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Video">
-  <rdfs:label>video</rdfs:label>
-  <rdfs:comment>video</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#CarrierTypes" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Object">
-  <rdfs:label>object</rdfs:label>
-  <rdfs:comment>object</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#CarrierTypes" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Internet">
-  <rdfs:label>internet</rdfs:label>
-  <rdfs:comment>internet</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#CarrierTypes" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="MediaCombination">
-  <rdfs:label>media combination</rdfs:label>
-  <rdfs:comment>media combination</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#CarrierTypes" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdfs:Class>
-
-
-<rdf:Property rdf:ID="x-metadata-created">
-  <rdfs:label>Metadata Creation Date</rdfs:label>
-  <rdfs:comment>Date of the creation of the original metadata record. 
-  YYYY=Year, MM=month, DD=day. Use "01" for unknown MM or DD. Useful for 
-  SDI services</rdfs:comment>
-<!-- HELM: 1) wrong URI
-           2) date doesn't exist in dcq!
-<rdfs:subPropertyOf rdf:resource = "http://dublincore.org/2000/03/13-dcq#date" />-->
-  <rdfs:subPropertyOf rdf:resource = "&dcns;date" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="identifier">
-  <rdfs:label>EULER identifier</rdfs:label>
-  <rdfs:comment>An unambiguous reference to the resource within a given 
-context: The purpose of this field is to identify the resource in other 
-ways than those provided by the other fields. This can be serial name, page-, 
-issue- or volume-numbers for journal articles or similar. (Can be used 
-differently in different databases, e.g. ISO 4-1984) </rdfs:comment>
-<!-- HELM: 1) wrong URI
-           2) identifier doesn't exist in dcq!
-<rdfs:subPropertyOf rdf:resource = "http://dublincore.org/2000/03/13-dcq#identifier" />-->
-  <rdfs:subPropertyOf rdf:resource = "&dcns;identifier" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="fullText">
-  <rdfs:label>Full Text</rdfs:label>
-  <rdfs:comment>The fulltext of web-pages and other resources available as a whole</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="eventLocation">
-  <rdfs:label>Event location</rdfs:label>
-  <rdfs:comment>Location of event for/at which the resource described in the record was 
-created</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="eventDate">
-  <rdfs:label>Event Date</rdfs:label>
-  <rdfs:comment>Date of event for/at which the resource described in the record was created</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="eventName">
-  <rdfs:label>Event Name</rdfs:label>
-  <rdfs:comment>Name of event where document was created</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="recordSource">
-  <rdfs:label>Record Source</rdfs:label>
-  <rdfs:comment>The source for the record i.e. describes which information 
- provider has delivered the record.
-  </rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="recordSourceIdentifier">
-  <rdfs:label>Record Source URL</rdfs:label>
-  <rdfs:comment>Identifier of source record for the description delivered in EULER. URL 
-        pointing back to the original record at information providers' site. </rdfs:comment>
-<!-- HELM: 1) wrong URI
-           2) source doesn't exist in dcq!
-<rdfs:subPropertyOf rdf:resource = "http://dublincore.org/2000/03/13-dcq#source" />-->
-  <rdfs:subPropertyOf rdf:resource = "&dcns;source" />
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="recordCreator">
-  <rdfs:label>Record Creator</rdfs:label>
-  <rdfs:comment>Creator of the record (describing the resource), e.g. a reviewer</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="delivery">
-  <rdfs:label>Address for delivery information</rdfs:label>
-  <rdfs:comment>Meant to give the URL to the library where the resource described in the 
-record can be acquired. (Pointer to online-order forms etc.)</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="deliveryDescription">
-  <rdfs:label>Additional retrieve/delivery information</rdfs:label>
-  <rdfs:comment>Additional information that a user and a local library need to 
-retrieve/deliver the resource described in the record. </rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&eulerns;" />
-</rdf:Property>
-
-</rdf:RDF>

diff --git a/helm/schemas/dces b/helm/schemas/dces
deleted file mode 100644 (file)
index 18bd29f..0000000
--- a/helm/schemas/dces
+++ /dev/null
@@ -1,210 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- 
-  RDF Schema declaration for the Dublin Core Element Set 1.1
-  2001/08/14
-  comments, etc. to webteam <dcmi-feedback@dublincore.org>
--->
-
-<!-- HELM: OLD URL OF SCHEMAS: VRP gives errors --> 
-<!--<!DOCTYPE rdf:RDF [
-        <!ENTITY rdfns 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'>
-        <!ENTITY rdfsns 'http://www.w3.org/2000/01/rdf-schema#'>
-        <!ENTITY dcns 'http://purl.org/dc/elements/1.1/'>
-        <!ENTITY eorns 'http://dublincore.org/2000/03/13/eor#'>
-   ]>-->
-
-<!DOCTYPE rdf:RDF [
-        <!ENTITY rdfns 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'>
-        <!ENTITY rdfsns 'http://www.w3.org/2000/01/rdf-schema#'>
-        <!ENTITY dcns 'http://www.cs.unibo.it/~schena/dces#'>
-        <!ENTITY eorns 'http://www.cs.unibo.it/~schena/eor#'>
-   ]>
-
-<rdf:RDF xmlns:rdf="&rdfns;"
-         xmlns:rdfs="&rdfsns;"
-         xmlns:dc="&dcns;"
-         xmlns:eor="&eorns;">
-
-
-<!-- Description of Schema --> 
-
-<eor:Schema rdf:about="&dcns;">
-  <rdf:value>The Dublin Core Element Set v1.1</rdf:value>
-  <dc:title>The Dublin Core Element Set v1.1</dc:title>
-  <dc:publisher>The Dublin Core Metadata Initiative</dc:publisher>
-  <dc:description>The Dublin Core metadata vocabulary is a simple vocabulary
-      intended to facilitate discovery of resources. </dc:description>
-  <dc:language>English</dc:language>
-  <dc:relation rdf:resource="http://dublincore.org/documents/dces/"/>
-  <dc:date>2000-07-02</dc:date>
-</eor:Schema>
-
-<!-- HELM: every declaration has the rdf:ID = "name" instead of 
-     rdf:about = "&dctypens;name"                               -->
-
-<!-- Begin: Title Declaration -->
-
-<rdf:Property rdf:ID = "title">
-  <rdfs:label>Title</rdfs:label>
-  <rdfs:comment>A name given to the resource.</rdfs:comment>
-  <eor:comment>Typically, a Title will be a name by which the resource
-  is formally known.</eor:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "contributor">
-  <rdfs:label>Contributor</rdfs:label>
-  <rdfs:comment>An entity responsible for making contributions to the
-  content of the resource.</rdfs:comment>
-  <eor:comment>Examples of a Contributor include a person, an
-  organisation, or a service.  Typically, the name of a Contributor
-  should be used to indicate the entity.</eor:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcns;" />
-</rdf:Property>
- 
-<rdf:Property rdf:ID = "creator">
-  <rdfs:label>Author/Creator</rdfs:label>
-  <rdfs:comment>An entity primarily responsible for making the content
-  of the resource.</rdfs:comment>
-  <eor:comment> Examples of a Creator include a person, an
-  organisation, or a service. Typically, the name of a Creator should
-  be used to indicate the entity.</eor:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "publisher">
-  <rdfs:label>Publisher</rdfs:label>
-  <rdfs:comment>An entity responsible for making the resource
-  available.</rdfs:comment>
-  <eor:comment> Examples of a Publisher include a person, an
-  organisation, or a service.  Typically, the name of a Publisher
-  should be used to indicate the entity.</eor:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "subject">
-  <rdfs:label>Subject</rdfs:label>
-  <rdfs:comment>The topic of the content of the resource.</rdfs:comment>
-  <eor:comment> Typically, a Subject will be expressed as keywords,
-  key phrases or classification codes that describe a topic of the
-  resource.  Recommended best practice is to select a value from a
-  controlled vocabulary or formal classification scheme.</eor:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "description">
-  <rdfs:label>Description</rdfs:label>
-  <rdfs:comment>An account of the content of the resource.</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "date">
-  <rdfs:label>Date</rdfs:label>
-  <rdfs:comment>A date associated with an event in the life cycle of
-  the resource.</rdfs:comment>
-  <eor:comment>Typically, Date will be associated with the creation or
-  availability of the resource.  Recommended best practice for
-  encoding the date value is defined in a profile of ISO 8601 [W3CDTF]
-  and follows the YYYY-MM-DD format.</eor:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "type">
-  <rdfs:label>Resource Type</rdfs:label>
-  <rdfs:comment>The nature or genre of the content of the
-  resource.</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "format">
-  <rdfs:label>Format</rdfs:label>
-  <rdfs:comment>The physical or digital manifestation of the
-  resource.</rdfs:comment>
-  <eor:comment> Typically, Format may include the media-type or
-  dimensions of the resource. Format may be used to determine the
-  software, hardware or other equipment needed to display or operate
-  the resource. Examples of dimensions include size and duration.
-  Recommended best practice is to select a value from a controlled
-  vocabulary (for example, the list of Internet Media Types [MIME]
-  defining computer media formats).</eor:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "identifier">
-  <rdfs:label>Resource Identifier</rdfs:label>
-  <rdfs:comment>An unambiguous reference to the resource within a
-  given context.</rdfs:comment>
-  <eor:comment>Recommended best practice is to identify the resource
-  by means of a string or number conforming to a formal identification
-  system.  Example formal identification systems include the Uniform
-  Resource Identifier (URI) (including the Uniform Resource Locator
-  (URL)), the Digital Object Identifier (DOI) and the International
-  Standard Book Number (ISBN).</eor:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "language">
-  <rdfs:label>Language</rdfs:label>
-  <rdfs:comment> A language of the intellectual content of the
-  resource.</rdfs:comment>
-  <eor:comment> Recommended best practice for the values of the
-  Language element is defined by RFC 1766 [RFC1766] which includes a
-  two-letter Language Code (taken from the ISO 639 standard [ISO639]),
-  followed optionally, by a two-letter Country Code (taken from the
-  ISO 3166 standard [ISO3166]).  For example, 'en' for English, 'fr'
-  for French, or 'en-uk' for English used in the United
-  Kingdom.</eor:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "relation">
-  <rdfs:label>Relation</rdfs:label>
-  <rdfs:comment> A reference to a related resource.</rdfs:comment>
-  <eor:comment> Recommended best practice is to reference the resource
-  by means of a string or number conforming to a formal identification
-  system.</eor:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "source">
-  <rdfs:label>Source</rdfs:label>
-  <rdfs:comment>A Reference to a resource from which the present
-  resource is derived.</rdfs:comment>
-  <eor:comment> The present resource may be derived from the Source
-  resource in whole or in part.  Recommended best practice is to
-  reference the resource by means of a string or number conforming to
-  a formal identification system.</eor:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "coverage">
-  <rdfs:label>Coverage</rdfs:label>
-  <rdfs:comment> The extent or scope of the content of the
-  resource.</rdfs:comment>
-  <eor:comment>Coverage will typically include spatial location (a
-  place name or geographic coordinates), temporal period (a period
-  label, date, or date range) or jurisdiction (such as a named
-  administrative entity).  Recommended best practice is to select a
-  value from a controlled vocabulary (for example, the Thesaurus of
-  Geographic Names [TGN]) and that, where appropriate, named places or
-  time periods be used in preference to numeric identifiers such as
-  sets of coordinates or date ranges.</eor:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "rights">
-  <rdfs:label>Rights</rdfs:label>
-  <rdfs:comment> Information about rights held in and over the
-  resource.</rdfs:comment>
-  <eor:comment> Typically, a Rights element will contain a rights
-  management statement for the resource, or reference a service
-  providing such information. Rights information often encompasses
-  Intellectual Property Rights (IPR), Copyright, and various Property
-  Rights.  If the Rights element is absent, no assumptions can be made
-  about the status of these and other rights with respect to the
-  resource.</eor:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcns;" />
-</rdf:Property>
-
-</rdf:RDF>

diff --git a/helm/schemas/dcq b/helm/schemas/dcq
deleted file mode 100644 (file)
index 819865b..0000000
--- a/helm/schemas/dcq
+++ /dev/null
@@ -1,660 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- 
-  RDF Schema declaration for the Qualified Dublin Core Element Set 
-  2001/08/14
-  comments, etc. to webteam <dcmi-feedback@dublincore.org>
--->
-
-<!-- HELM: OLD URL OF SCHEMAS: VRP gives errors --> 
-<!-- <!DOCTYPE rdf:RDF [
-        <!ENTITY rdfns 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'>
-        <!ENTITY rdfsns 'http://www.w3.org/2000/01/rdf-schema#'>
-        <!ENTITY dcns 'http://purl.org/dc/elements/1.1/'>
-        <!ENTITY dcqns 'http://purl.org/dc/terms/'>
-        <!ENTITY eorns 'http://dublincore.org/2000/03/13/eor#'>
-   ]>-->
-
-<!DOCTYPE rdf:RDF [
-        <!ENTITY rdfns 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'>
-        <!ENTITY rdfsns 'http://www.w3.org/2000/01/rdf-schema#'>
-        <!ENTITY dcns 'http://www.cs.unibo.it/~schena/dces#'>
-        <!ENTITY dcqns 'http://www.cs.unibo.it/~schena/dcq#'>
-        <!ENTITY eorns 'http://www.cs.unibo.it/~schena/eor#'>
-   ]>
-
-<rdf:RDF xmlns:rdf="&rdfns;"
-         xmlns:rdfs="&rdfsns;"
-         xmlns:dc="&dcns;"
-         xmlns:dcq="&dcqns;"
-         xmlns:eor="&eorns;">
-
-<!-- Description of Schema --> 
-
-<eor:Schema rdf:about="&dcqns;">
-  <rdf:value>The Dublin Core Element Set Qualifier Vocabulary</rdf:value>
-  <dc:title>The Dublin Core Element Set Qualifier Vocabulary</dc:title>
-  <dc:publisher>The Dublin Core Metadata Initiative</dc:publisher>
-  <dc:description>The Dublin Core Element Set Qualifier Vocabulary is
-  an richer vocabulary
-      intended to facilitate discovery of resources. </dc:description>
-  <dc:language>English</dc:language>
-  <dc:relation rdf:resource="http://dublincore.org/documents/dcmes-qualifiers/"/>
-  <dc:date>2000-07-11</dc:date>
-</eor:Schema>
-
-<!-- HELM: every declaration has the rdf:ID = "name" instead of 
-     rdf:about = "&dcqns;name"                               -->
-
-
-<!-- Begin: Title  -->
-
-<!-- Title refinement declarations  -->
-
-<rdf:Property rdf:ID = "alternative">
-  <rdfs:label>Alternative</rdfs:label>
-  <rdfs:comment>Any form of the title used as a substitute or
-  alternative to the formal title of the resource.</rdfs:comment>
-  <eor:comment>This qualifier can include Title abbreviations as well as translations.</eor:comment>
-  <rdfs:subPropertyOf rdf:resource = 
-  "&dcns;title" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<!-- End: Title Declaration -->
-
-
-<!-- Begin: Subject -->
-
-<!-- Subject refinement declarations -->
-
-<rdf:Property rdf:ID = "classification">
-  <rdfs:label>Classification</rdfs:label>
-  <rdfs:comment>Subject identified by notation (code) taken from a
-  controlled classification scheme.</rdfs:comment>
-  <eor:comment>The name of the controlled classification scheme from
-  which the classification is derived should always be identified as a
-  value qualifier Existing resource discovery implementations treat
-  classification notation (codes) differently to 'words' describing
-  `subject.  Typically notation is used to create a browsing structure
-  whereas words are not, notation is not displayed in retrieved lists
-  whereas 'subject words' are displayed. It is important for software
-  to precisely recognise notations as different from 'subject
-  words'. Looking for numeric strings cannot be relied on as notations
-  may be alphanumeric so it is useful to identify them by means of a
-  qualifier. It is unrealistic to expect software to identify
-  notations as such by means of the value qualifier for subject, as
-  there is a potentially huge list of value qualifiers which cover
-  subject headings, and thesauri as well as classification
-  notations. </eor:comment>
-  <rdfs:subPropertyOf rdf:resource =
-  "&dcns;subject" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<!-- Subject range declarations -->
-<!-- HELM: Here we want to constraint an external property to a particular 
-range. VRP gives a Warning when (extending or modifying) constraining the 
-range of a property defined in another schema. -->
-<!-- <rdf:Description rdf:about = "&dcns;subject">
-  <rdfs:range rdf:resource = "#SubjectScheme" />
-</rdf:Description>-->
-
-<!-- Encoding Scheme declarations -->
-
-<rdfs:Class rdf:ID = "SubjectScheme">
-  <rdfs:label>Subject Encoding Schemes</rdfs:label>
-  <rdfs:comment>A set of subject encoding schemes and/or formats</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "LCSH">
-  <rdfs:label>LCSH</rdfs:label>
-  <rdfs:comment>Library of Congress Subject Headings</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#SubjectScheme" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "LCC">
-  <rdfs:label>LCC</rdfs:label>
-  <rdfs:comment>Library of Congress Classification</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#SubjectScheme" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "DDC">
-  <rdfs:label>DDC</rdfs:label>
-  <rdfs:comment>Dewey Decimal Classification</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#SubjectScheme" />
-  <rdfs:seeAlso rdf:resource = "http://www.oclc.org/fp/" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "UDC">
-  <rdfs:label>UDC</rdfs:label>
-  <rdfs:comment>Universal Decimal Classification</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#SubjectScheme" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "MESH">
-  <rdfs:label>MeSH</rdfs:label>
-  <rdfs:comment>Medical Subject Headings</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#SubjectScheme" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<!-- End: Subject -->
-
-
-<!-- Begin: Description -->
-
-<!-- Description refinement declarations -->
-
-<rdf:Property rdf:ID = "abstract">
-  <rdfs:label>Abstract</rdfs:label>
-  <rdfs:comment>A summary of the content of the resource.</rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource =
-  "&dcns;description" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "note">
-  <rdfs:label>Note</rdfs:label>
-  <rdfs:comment>Any additional information about the content of the
-  resource.</rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource =
-  "&dcns;description" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "tableOfContents">
-  <rdfs:label>Table Of Contents</rdfs:label>
-  <rdfs:comment>A list of subunits of the content of the
-  resource.</rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource =
-  "&dcns;description" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "release">
-  <rdfs:label>Release</rdfs:label>
-  <rdfs:comment>An identification of the edition, release or version
-  of the resource.</rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource =
-  "&dcns;description" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<!-- End: Description -->
-
-
-<!-- Begin: Date -->
-
-<!-- Date refinement declaration -->
-
-<rdf:Property rdf:ID = "created">
-  <rdfs:label>Created</rdfs:label>
-  <rdfs:comment>Date of creation of the resource.</rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource =
-  "&dcns;date" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "issued">
-  <rdfs:label>Issued</rdfs:label>
-  <rdfs:comment>Date of formal issuance (e.g., publication) of the
-  resource.</rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource = "&dcns;date" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "modified">
-  <rdfs:label>Modified</rdfs:label>
-  <rdfs:comment>Date on which the resource was changed.</rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource =
-  "&dcns;date" />
-  <rdfs:isDefinedBy rdf:resource =
-  "&dcqns;" /> </rdf:Property>
-
-<rdf:Property rdf:ID = "valid">
-  <rdfs:label>Valid</rdfs:label>
-  <rdfs:comment>Date (often a range) of validity of a resource.</rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource =
-  "&dcns;date" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "available">
-  <rdfs:label>Available</rdfs:label>
-  <rdfs:comment>Date (often a range) that the resource will become or
-  did become available.</rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource =
-  "&dcns;date" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<!-- Date range declarations -->
-<!-- HELM: Here we want to constraint an external property to a particular 
-range. VRP gives a Warning when (extending or modifying) constraining the 
-range of a property defined in another schema. -->
-<!--<rdf:Description rdf:about = "&dcns;date">
-  <rdfs:range rdf:resource = "#DateScheme" />
-</rdf:Description>-->
-
-<!-- Encoding Schemes -->
-
-<rdfs:Class rdf:ID = "DateScheme">
-  <rdfs:label>Date Encoding Schemes</rdfs:label>
-  <rdfs:comment>A set of date encoding schemes and/or formats</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "W3CDTF">
-  <rdfs:label>W3C-DTF</rdfs:label>
-  <rdfs:comment>W3C Encoding rules for dates and times - a profile
-  based on ISO8601 </rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#DateScheme" />
-  <rdfs:seeAlso rdf:resource = "http://www.w3.org/TR/NOTE-datetime" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" /> 
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "Period">
-  <rdfs:label>DCMI Period</rdfs:label>
-  <rdfs:comment>A specification of the limits of a time
-  interval.</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#DateScheme" />
-  <rdfs:seeAlso rdf:resource =
-  "http://purl.org/dc/documents/rec-dcmiperiod-20000619.htm" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" /> 
-</rdfs:Class>
-
-<!-- End: Date -->
-
-
-<!-- Begin: format -->
-
-<!-- format refinement declarations -->
-
-<rdf:Property rdf:ID = "extent">
-  <rdfs:label>Extent</rdfs:label>
-  <rdfs:comment>The size or duration of the resource.</rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource = "&dcns;format" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "medium">
-  <rdfs:label>Medium</rdfs:label>
-  <rdfs:comment>The material or physical carrier of the
-  resource.</rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource = "&dcns;format" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<!-- format range declarations -->
-<!-- HELM: Here we want to constraint an external property to a particular 
-range. VRP gives a Warning when (extending or modifying) constraining the 
-range of a property defined in another schema. -->
-<!-- <rdf:Description rdf:about = "&dcns;format">
-  <rdfs:range rdf:resource = "#FormatScheme" />
-</rdf:Description> -->
-
-<!-- Encoding Scheme declarations -->
-
-<rdfs:Class rdf:ID = "FormatScheme">
-  <rdfs:label>Format Encoding Schemes</rdfs:label>
-  <rdfs:comment>A set of format encoding schemes.</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "IMT">
-  <rdfs:label>IMT</rdfs:label>
-  <rdfs:comment>The Internet media type of the resource.</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#FormatScheme" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-  <rdfs:seeAlso rdf:resource =
-  "http://www.isi.edu/in-notes/iana/assignments/media-types/media-types"
-  /> </rdfs:Class>
-
-<!-- End: format -->
-
-
-<!-- Begin: Identifier -->
-
-<!-- Identifier refinement declarations -->
-
-<!-- Identifier range declarations -->
-<!-- HELM: Here we want to constraint an external property to a particular 
-range. VRP gives a Warning when (extending or modifying) constraining the 
-range of a property defined in another schema. -->
-<!--<rdf:Description rdf:about = "&dcns;identifier">
-  <rdfs:range rdf:resource = "#IdentifierScheme" />
-</rdf:Description>-->
-
-<!-- Encoding Scheme declarations -->
-
-<rdfs:Class rdf:ID = "IdentifierScheme">
-  <rdfs:label>Identifier Encoding Schemes</rdfs:label>
-  <rdfs:comment>A set of Identified encoding schemes and/or
-  formats.</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID= "URI">
-  <rdfs:label>URI</rdfs:label>
-  <rdfs:comment>A URI Uniform Resource Identifier</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#IdentifierScheme" />
-  <rdfs:seeAlso rdf:resource = "http://www.ietf.org/rfc/rfc2396.txt" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<!-- End: Identifier -->
-
-
-<!-- Begin: Language -->
-
-<!-- Language refinement declarations -->
-
-<!-- Language range declarations -->
-<!-- HELM: Here we want to constraint an external property to a particular 
-range. VRP gives a Warning when (extending or modifying) constraining the 
-range of a property defined in another schema. -->
-<!--<rdf:Description rdf:about = "&dcns;language">
-  <rdfs:range rdf:resource = "#LanguageScheme" />
-</rdf:Description>-->
-
-<!-- Encoding Scheme declarations -->
-
-<rdfs:Class rdf:ID = "LanguageScheme">
-  <rdfs:label>Language Encoding Schemes</rdfs:label>
-  <rdfs:comment>A set of language encoding schemes and/or
-  formats.</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "RFC1766">
-  <rdfs:label>RFC1766</rdfs:label>
-  <rdfs:comment>Internet RFC 1766 'Tags for the identification of
-  Language' specifies a two letter code taken from ISO 639, followed
-  optionally by a two letter country code taken from ISO
-  3166.</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#LanguageScheme" />
-  <rdfs:seeAlso rdf:resource = "http://www.ietf.org/rfc/rfc1766.txt" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "ISO639-2">
-  <rdfs:label>ISO 639-2</rdfs:label>
-  <rdfs:comment>ISO 639-2: Codes for the representation of names of languages.</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#LanguageScheme" />
-  <rdfs:seeAlso rdf:resource =
-  "http://www.loc.gov/standards/iso639-2/langhome.html" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<!-- End: language -->
-
-
-<!-- Begin: Relation -->
-
-<!-- Relation refinement declarations -->
-
-<rdf:Property rdf:ID = "isPartOf">
-  <rdfs:label>Is Part Of</rdfs:label>
-  <rdfs:comment>The described resource is a physical or logical part 
-of the referenced resource.</rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource = "&dcns;relation" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "hasPart">
-  <rdfs:label>Has Part</rdfs:label>
-  <rdfs:comment>The described resource includes the referenced
-  resource either physically or logically. </rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource = "&dcns;relation" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "isVersionOf">
-  <rdfs:label>Is Version Of</rdfs:label>
-  <rdfs:comment>The described resource is a version, edition, or
-  adaptation of the referenced resource. Changes in version imply
-  substantive changes in content rather than differences in
-  format. </rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource = "&dcns;relation" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "hasVersion">
-  <rdfs:label>Has Version</rdfs:label>
-  <rdfs:comment>The described resource has a version, edition, or
-  adaptation, namely, the referenced resource. </rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource = "&dcns;relation" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "isFormatOf">
-  <rdfs:label>Is Format Of</rdfs:label>
-  <rdfs:comment>The described resource is the same intellectual
-  content of the referenced resource, but presented in another
-  format. </rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource = "&dcns;relation" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "hasFormat">
-  <rdfs:label>Has Format</rdfs:label>
-  <rdfs:comment>The described resource pre-existed the referenced
-  resource, which is essentially the same intellectual content
-  presented in another format. </rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource = "&dcns;relation" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "references">
-  <rdfs:label>References</rdfs:label>
-  <rdfs:comment>The described resource references, cites, or otherwise
-  points to the referenced resource.  </rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource = "&dcns;relation" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "isReferencedBy">
-  <rdfs:label>Is Referenced By</rdfs:label>
-  <rdfs:comment>The described resource is referenced, cited, or
-  otherwise pointed to by the referenced resource. </rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource = "&dcns;relation" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "requires">
-  <rdfs:label>Requires</rdfs:label>
-  <rdfs:comment>The described resource requires the referenced
-  resource to support its function, delivery, or coherence of
-  content. </rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource = "&dcns;relation" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "isRequiredBy">
-  <rdfs:label>Is Required By</rdfs:label>
-  <rdfs:comment>The described resource is required by the referenced
-  resource, either physically or logically.  </rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource = "&dcns;relation" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "replaces">
-  <rdfs:label>Replaces</rdfs:label>
-  <rdfs:comment>The described resource supplants, displaces, or
-  supersedes the referenced resource.  </rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource = "&dcns;relation" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "isReplacedBy">
-  <rdfs:label>Is Replaced By</rdfs:label>
-  <rdfs:comment>The described resource is supplanted, displaced, or
-  superceded by the referenced resource.</rdfs:comment>
-  <rdfs:subPropertyOf rdf:resource = "&dcns;relation" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID ="conformsTo">
-       <rdfs:label>ConformsTo</rdfs:label> 
-       <rdfs:comment>A reference to an established standard to which the resource conforms.</rdfs:comment>
-   <rdfs:subPropertyOf rdf:resource = "&dcns;relation" />
-   <rdfs:isDefinedBy rdf:resource = "&dcqns;" /> 
-</rdf:Property>
-
-<!-- Relation range declarations -->
-<!-- HELM: Here we want to constraint an external property to a particular 
-range. VRP gives a Warning when (extending or modifying) constraining the 
-range of a property defined in another schema. -->
-<!--<rdf:Description rdf:about = "&dcns;relation">
-  <rdfs:range rdf:resource = "#IdentifierScheme" />
-</rdf:Description>-->
-
-<!-- Encoding Scheme declarations -->
-
-<!-- End: Relation -->
-
-
-<!-- Begin: coverage -->
-
-<!-- Coverage refinement declarations -->
-
-<rdf:Property rdf:ID = "spatial">
-  <rdfs:label>Spatial</rdfs:label>
-  <rdfs:comment>Spatial characteristics of the intellectual content of
-  the resoure.</rdfs:comment>
-  <rdfs:range rdf:resource = "#SpatialScheme" />
-  <rdfs:subPropertyOf rdf:resource = "&dcns;coverage" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "temporal">
-  <rdfs:label>Temporal</rdfs:label>
-  <rdfs:comment>Temporal characteristics of the intellectual content
-  of the resource.</rdfs:comment>
-  <rdfs:range rdf:resource = "#DateScheme" />
-  <rdfs:subPropertyOf rdf:resource = "&dcns;coverage" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<!-- Coverage range declarations -->
-
-<!-- Encoding Schemes -->
-
-<rdfs:Class rdf:ID = "SpatialScheme">
-  <rdfs:label>Place Encoding Schemes</rdfs:label>
-  <rdfs:comment>A set of geographic place encoding schemes and/or
-  formats</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "Box">
-  <rdfs:label>DCMI Box</rdfs:label>
-  <rdfs:comment>The DCMI Box identifies a region of space using its
-  geographic limits.</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#SpatialScheme" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-  <rdfs:seeAlso rdf:resource =
-  "http://purl.org/dc/documents/rec-dcmibox-20000619.htm" />
-  </rdfs:Class>
-
-<rdfs:Class rdf:ID = "Point">
-  <rdfs:label>DCMI Point</rdfs:label>
-  <rdfs:comment>The DCMI Point identifies a point in space using its
-  geographic coordinates.</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#SpatialScheme" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-  <rdfs:seeAlso rdf:resource =
-  "http://purl.org/dc/documents/rec-dcmipoint-20000619.htm" />
-  </rdfs:Class>
-
-<rdfs:Class rdf:ID = "TGN">
-  <rdfs:label>TGN</rdfs:label>
-  <rdfs:comment>The Getty Thesaurus of Geographic Names</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#SpatialScheme" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-  <rdfs:seeAlso rdf:resource =
-  "http://www.gii.getty.edu/vocabulary/tgn.html" /> </rdfs:Class>
-
-<rdfs:Class rdf:ID = "DD">
-  <rdfs:label>Decimal Degrees</rdfs:label>
-  <rdfs:comment>A latitude and longitude expressed in decimal
-  degrees</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#SpatialScheme" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "DMS">
-  <rdfs:label>Degrees, minutes, seconds</rdfs:label>
-  <rdfs:comment>A latitude and longitude expressed in degrees,
-  minutes, seconds.</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#SpatialScheme" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "ISO3166">
-  <rdfs:label>ISO3166</rdfs:label>
-  <rdfs:comment>ISO3166 Codes for the representation of names of
-  countries</rdfs:comment>
-  <rdfs:subClassOf rdf:resource = "#SpatialScheme" />
-  <rdfs:seeAlso rdf:resource = "ftp://dkuug.dk/i18n/ISO_3166" />
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<!-- End: coverage -->
-
-
-<!-- Begin: audience -->
-
-<rdf:Property rdf:ID = "audience">
-       <rdfs:label>Audience</rdfs:label> 
-       <rdfs:comment>A class of entity for whom the resource is intended or useful.</rdfs:comment> 
-       <eor:comment>A class of entity may be determined by the creator or the publisher or by a third 
-       party.</eor:comment>
-   <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdf:Property>
-
-<!-- audience refinement declarations -->
-
-<rdf:Property rdf:ID ="mediator">
-       <rdfs:label>Mediator</rdfs:label> 
-       <rdfs:comment>A class of entity that mediates access to the resource and for whom the resource is 
-       intended or useful.</rdfs:comment> 
-       <eor:comment>The audience for a resource in the education/training domain are of two 
-       basic classes: (1) an ultimate beneficiary of the resource (usually a student or trainee), 
-       and (2) frequently, an entity that mediates access to the resource (usually a teacher or trainer). 
-       The mediator element refinement represents the second of these two classes.</eor:comment>
-   <rdfs:subPropertyOf rdf:resource = "#audience" />
-   <rdfs:isDefinedBy rdf:resource = "&dcqns;" /> 
-</rdf:Property>
-
-<!-- End: audience -->
-
-
-<!-- HELM: Added from version 2001/03/16 -->
-
-<!-- Begin: type -->
-
-<!-- type range declarations -->
-<!-- HELM: Here we want to constraint an external property to a particular 
-range. VRP gives a Warning when (extending or modifying) constraining the 
-range of a property defined in another schema. -->
-<!-- <rdf:Description rdf:about = "&dcns;type">
-  <rdfs:range rdf:resource = "#TypeScheme" />
-</rdf:Description> -->
-
-<rdfs:Class rdf:ID = "TypeScheme">
-  <rdfs:label>Resource Type Encoding Schemes</rdfs:label>
-  <rdfs:comment>A set of resource type encoding schemes and/or 
-formats</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&dcqns;" />
-</rdfs:Class>
-
-<!-- End: type -->
-
-</rdf:RDF>

diff --git a/helm/schemas/dctype b/helm/schemas/dctype
deleted file mode 100644 (file)
index a51cbe0..0000000
--- a/helm/schemas/dctype
+++ /dev/null
@@ -1,186 +0,0 @@
-<?xml version = "1.0"?>
-
-<!-- 
-  RDF Schema declaration for the Dublin Core Resource Type Vocabulary
- 2001/03/08
-  comments, etc. to webteam <dcmi-feedback@dublincore.org>
--->
-<!-- HELM: OLD URL OF SCHEMAS: VRP gives errors -->  
-<!--<!DOCTYPE rdf:RDF [
-        <!ENTITY rdfns 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'>
-        <!ENTITY rdfsns 'http://www.w3.org/2000/01/rdf-schema#'>
-        <!ENTITY dcns 'http://purl.org/dc/elements/1.1/'>
-        <!ENTITY dctypens 'http://purl.org/dc/dcmitype/'>
-        <!ENTITY eorns 'http://dublincore.org/2000/03/13/eor#'>
-   ]>-->
-
-<!DOCTYPE rdf:RDF [
-        <!ENTITY rdfns 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'>
-        <!ENTITY rdfsns 'http://www.w3.org/2000/01/rdf-schema#'>
-        <!ENTITY dcns 'http://www.cs.unibo.it/~schena/dces#'>
-        <!ENTITY eorns 'http://www.cs.unibo.it/~schena/eor#'>
-        <!ENTITY dctypens 'http://www.cs.unibo.it/~schena/dctype#'>
-        <!ENTITY dcqns 'http://www.cs.unibo.it/~schena/dcq#'>
-   ]>
-
-
-<rdf:RDF xmlns:rdf="&rdfns;"
-         xmlns:rdfs="&rdfsns;"
-         xmlns:dc="&dcns;"
-         xmlns:eor="&eorns;"
-         xmlns:dcq="&dcqns;">
-
-<!-- Description of Schema --> 
-
-<eor:Schema rdf:about="&dctypens;">
-  <rdf:value>The Dublin Core Type Vocabulary</rdf:value>
-  <dc:title>The Dublin Core Type Vocabulary</dc:title>
-  <dc:creator>The Dublin Core Metadata Initiative</dc:creator>
-  <dc:description>The Dublin Core metadata vocabulary is a simple set 
-      of resource types intended to facilitate discovery of 
-      resources. </dc:description>
-  <dc:language>English</dc:language>
-  <dc:date>2000-07-11</dc:date>
-</eor:Schema>
-
-<!-- HELM: every declaration has the rdf:ID = "name" instead of 
-     rdf:about = "&dctypens;name"                               -->
-
-
-<!-- Begin Type Declaration -->
-
-<!-- addition DC Vocabulary range declarations -->
-<!-- HELM: What's the relation with the dc:type property?
-Here we want to constraint an external property to a particular range.
-VRP gives a Warning when (extending or modifying) constraining the range 
-of a property defined in another schema; the correct way is to specialize it 
-with a subProperty.--> 
-<!-- OLD
-<rdf:Description rdf:about = "&dctypens;type">
-  <rdfs:range rdf:resource = "Resource" /> ERROR!
-</rdf:Description>
-Could be:
-<rdf:Description rdf:about = "&dcns;type">
-  <rdfs:range rdf:resource = "#Resource" />
-</rdf:Description>
--->
-<!-- Class declaration -->
-<!--<rdfs:Class rdf:ID = "Resource">
-  <rdfs:label>Resource</rdfs:label>
-  <rdfs:comment>A general class of describable resources.</rdfs:comment>
-  <rdfs:seeAlso rdf:resource = "http://www.loc.gov/marc/dc/typequalif-19991210.html" />
-  <rdfs:subClassOf rdf:resource = "&rdfsns;Resource" />
-  <rdfs:isDefinedBy rdf:resource = "&dctypens;" />
-</rdfs:Class>-->
-
-<!-- HELM: Class added from version 2001/03/19 -->
-<rdfs:Class rdf:ID = "DCMIType">
-  <rdfs:label>DCMI Type Vocabulary</rdfs:label>
-  <rdfs:comment>The DCMI Vocabulary provides a general, cross-domain
-list of approved terms that may be used as values for the Resource
-Type element to identify the genre of a resource.</rdfs:comment>
-  <rdfs:seeAlso rdf:resource = "http://dublincore.org/documents/dcmi-type-vocabulary/" />
-  <rdfs:subClassOf rdf:resource = "&dcqns;TypeScheme" />
-  <rdfs:isDefinedBy rdf:resource = "&dctypens;" />
-</rdfs:Class>
-
-<!-- HELM: From version 2001/03/19 substituted:
-     <rdfs:subClassOf rdf:resource = "#Resource" />
-      with <rdf:type rdf:resource = "#DCMIType" />   -->
-
-<rdfs:Class rdf:ID = "Collection">
-  <rdfs:label>Collection</rdfs:label>
-  <rdfs:comment>A collection is an aggregation of items. The term collection
-    means that the resource is described as a group; its parts may be 
-    separately described and navigated.</rdfs:comment>
-  <rdf:type rdf:resource = "#DCMIType" />
-  <rdfs:isDefinedBy rdf:resource = "&dctypens;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "Dataset">
-  <rdfs:label>Dataset</rdfs:label>
-  <rdfs:comment>A dataset is information encoded in a defined structure (for 
-example, lists, tables, and databases), intended to be useful for direct 
-machine processing. </rdfs:comment>
-  <rdf:type rdf:resource = "#DCMIType" />
-  <rdfs:isDefinedBy rdf:resource = "&dctypens;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "Event">
-  <rdfs:label>Event</rdfs:label>
-  <rdfs:comment>An event is a non-persistent, time-based
-occurrence. Metadata for an event provides descriptive information
-that is the basis for discovery of the purpose, location, duration,
-responsible agents, and links to related events and resources. The
-resource of type event may not be retrievable if the described
-instantiation has expired or is yet to occur.  Examples - exhibition,
-web-cast, conference, workshop, open-day, performance, battle, trial,
-wedding, tea-party, conflagration.  </rdfs:comment>
-  <rdf:type rdf:resource = "#DCMIType" />
-  <rdfs:isDefinedBy rdf:resource = "&dctypens;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "Image">
-  <rdfs:label>Image</rdfs:label>
-  <rdfs:comment>An image is a primarily symbolic visual representation
-other than text. For example - images and photographs of physical
-objects, paintings, prints, drawings, other images and graphics,
-animations and moving pictures, film, diagrams, maps, musical
-notation. Note that image may include both electronic and physical
-representations.</rdfs:comment>
-  <rdf:type rdf:resource = "#DCMIType" />
-  <rdfs:isDefinedBy rdf:resource = "&dctypens;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "InteractiveResource">
-  <rdfs:label>Interactive Resource</rdfs:label>
-  <rdfs:comment>An interactive resource is a resource which requires
-interaction from the user to be understood, executed, or
-experienced. For example - forms on web pages, applets, multimedia
-learning objects, chat services, virtual reality. </rdfs:comment>
-  <rdf:type rdf:resource = "#DCMIType" />
-  <rdfs:isDefinedBy rdf:resource = "&dctypens;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "Service">
-  <rdfs:label>Service</rdfs:label>
-  <rdfs:comment>A service is a system that provides one or more
-functions of value to the end-user. Examples include: a photocopying
-service, a banking service, an authentication service, interlibrary
-loans, a Z39.50 or Web server. </rdfs:comment>
-  <rdf:type rdf:resource = "#DCMIType" />
-  <rdfs:isDefinedBy rdf:resource = "&dctypens;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "Software">
-  <rdfs:label>Software</rdfs:label>
-  <rdfs:comment>a computer program in source or compiled form which
-may be available for installation non-transiently on another
-machine. For software which exists only to create an interactive
-environment, use interactive instead. </rdfs:comment>
-  <rdf:type rdf:resource = "#DCMIType" />
-  <rdfs:isDefinedBy rdf:resource = "&dctypens;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "Sound">
-  <rdfs:label>Sound</rdfs:label>
-  <rdfs:comment>A sound is a resource whose content is primarily intended to be 
-rendered as audio. For example - a music playback file format, an audio 
-compact disc, and recorded speech or sounds. </rdfs:comment>
-  <rdf:type rdf:resource = "#DCMIType" />
-  <rdfs:isDefinedBy rdf:resource = "&dctypens;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "Text">
-  <rdfs:label>Text</rdfs:label>
-  <rdfs:comment>A text is a resource whose content is primarily words
-for reading. For example - books, letters, dissertations, poems,
-newspapers, articles, archives of mailing lists.  Note that facsimiles
-or images of texts are still of the genre text. </rdfs:comment>
-  <rdf:type rdf:resource = "#DCMIType" />
-  <rdfs:isDefinedBy rdf:resource = "&dctypens;" />
-</rdfs:Class>
-
-<!-- End: Type -->
-
-</rdf:RDF>

diff --git a/helm/schemas/eor b/helm/schemas/eor
deleted file mode 100644 (file)
index 02299f4..0000000
--- a/helm/schemas/eor
+++ /dev/null
@@ -1,104 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- 
-  RDF Schema declaration for the EOR Toolkit Vocabulary
- 2001/03/28
-  comments, etc. to webteam <dcmi-feedback@dublincore.org>
--->
-
-<!-- HELM: OLD URL OF SCHEMAS: VRP gives errors -->  
-<!--<!DOCTYPE rdf:RDF [
-        <!ENTITY rdfns 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'>
-        <!ENTITY rdfsns 'http://www.w3.org/2000/01/rdf-schema#'>
-        <!ENTITY dcns 'http://purl.org/dc/elements/1.1/'>
-        <!ENTITY eorns 'http://dublincore.org/2000/03/13/eor#'>
-ADDED   <!ENTITY dctypens 'http://purl.org/dc/dcmitype/'>
-   ]>-->
-
-<!DOCTYPE rdf:RDF [
-        <!ENTITY rdfns 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'>
-        <!ENTITY rdfsns 'http://www.w3.org/2000/01/rdf-schema#'>
-        <!ENTITY dcns 'http://www.cs.unibo.it/~schena/dces#'>
-        <!ENTITY eorns 'http://www.cs.unibo.it/~schena/eor#'>
-        <!ENTITY dctypens 'http://www.cs.unibo.it/~schena/dctype#'>
-   ]>
-
-<rdf:RDF xmlns:rdf="&rdfns;"
-         xmlns:rdfs="&rdfsns;"
-         xmlns:dc="&dcns;"
-         xmlns:eor="&eorns;"
-         xmlns:dct="&dctypens;">
-
-<eor:Schema rdf:about="&eorns;">
-  <!-- dumb down rule... use rdf:value for a simple default name -->   
-  <rdf:value>The EOR Vocabulary v1.0</rdf:value> 
-  <dc:title>The EOR Vocabulary v1.0</dc:title>
-  <dc:creator>Eric Miller, emiller@oclc.org</dc:creator>
-  <dc:contributor>Tod Matola, matola@oclc.org</dc:contributor>
-  <dc:contributor>Harry Wagner, wagnerh@oclc.org</dc:contributor>
-  <dc:description>The EOR vocabulary is a simple vocabulary intended
-  to support the EOR Toolkit and provides an additional level of
-  conformance, validation and general description beyond the
-  base-level RDF specifications specifically defined for RDF-based,
-  Dublin Core metadata applications.</dc:description>
-  <dc:date>2000-03-13</dc:date>
-</eor:Schema>
-
-<!-- Data Type declaration -->
-
-<rdfs:Class rdf:ID = "DataType">
-  <rdfs:label>Data Type</rdfs:label>
-  <rdfs:comment>A data type.</rdfs:comment>
-  <rdfs:subClassOf rdf:resource ="http://www.w3.org/2000/01/rdf-schema#Literal" />
-  <rdfs:isDefinedBy rdf:resource = "&eorns;" />
-</rdfs:Class>
-
-<!-- Class declarations -->
-
-<rdfs:Class rdf:ID = "Schema">
-  <rdfs:label>RDF Schema</rdfs:label>
-  <rdfs:comment>A RDF schema</rdfs:comment>
-  <rdfs:subClassOf rdf:resource ="&dctypens;Text"/>
-  <rdfs:isDefinedBy rdf:resource = "&eorns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "Profile">
-  <rdfs:label>Profile</rdfs:label>
-  <rdfs:comment>An application profile</rdfs:comment>
-<!-- HELM: <rdfs:subClassOf rdf:resource = "Schema" /> ERROR -->
-  <rdfs:subClassOf rdf:resource = "#Schema" />
-  <rdfs:isDefinedBy rdf:resource = "&eorns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID = "WebPage">
-  <rdfs:label>Web Page</rdfs:label>
-  <rdfs:comment>A web page</rdfs:comment>
-  <rdfs:subClassOf rdf:resource ="&dctypens;Text"/>
-  <rdfs:isDefinedBy rdf:resource = "&eorns;" />
-</rdfs:Class>
-
-<!-- Additional Class relations -->
-
-<rdf:Property rdf:ID = "alias">
-  <rdfs:label>alias</rdfs:label>
-  <rdfs:comment>An alias.</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&eorns;" />
-</rdf:Property>
-
-
-<!-- Additional Property declarations -->
-
-<rdf:Property rdf:ID = "label">
-  <rdfs:label>label</rdfs:label>
-  <rdfs:comment>A application-specific label.</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&eorns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID = "comment">
-  <rdfs:label>Comment</rdfs:label>
-  <rdfs:comment>A comment or note providing additional
-  application-specific information.</rdfs:comment>
-  <rdfs:isDefinedBy rdf:resource = "&eorns;" />
-</rdf:Property>
-
-</rdf:RDF>

diff --git a/helm/schemas/schema-h.rdf b/helm/schemas/schema-h.rdf
deleted file mode 100644 (file)
index 395eb92..0000000
--- a/helm/schemas/schema-h.rdf
+++ /dev/null
@@ -1,257 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Rdf Schema definition for CIC XML files:
-xmlns:h="http://www.cs.unibo.it/~schena/schema-h.rdf#" -->
-
-<!DOCTYPE rdf:RDF [
-        <!ENTITY rdfns 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'>
-        <!ENTITY rdfsns 'http://www.w3.org/2000/01/rdf-schema#'>
-        <!ENTITY hthns 'http://www.cs.unibo.it/~schena/schema-hth.rdf#'>
-        <!ENTITY xschemans 'http://www.w3.org/1999/XMLSchema-datatypes#'>
-        <!ENTITY hns 'http://www.cs.unibo.it/~schena/schema-h.rdf#'>
-        <!ENTITY dcns 'http://www.cs.unibo.it/~schena/dces#'>
-   ]>
-
-<rdf:RDF xml:lang="en"
-       xmlns:rdf="&rdfns;"
-       xmlns:rdfs="&rdfsns;"
-       xmlns:hth="&hthns;"
-       xmlns:xs="&xschemans;"
-       xmlns:dc="&dcns;">
-
-<!-- RICORDA: metadati solo su oggetto (come teoria ma piu' specifici) (non 
-distinzione tipi di body) e non ridondanze se non riducono il numero di doc 
-da parsare  -->
-
-<!-- Description of Schema -->
-       
-<rdf:Description rdf:about="&hns;">
-  <rdf:value>The HELM Element Set v0.1</rdf:value>
-  <dc:title>The HELM Object Element Set v0.1</dc:title>
-  <dc:publisher>The HELM Project</dc:publisher>
-  <dc:description>The HELM metadata vocabulary is a simple vocabulary
-      intended to facilitate discovery of mathematical resources. 
-  </dc:description>
-  <dc:language>English</dc:language>
-  <dc:relation rdf:resource="http://ww.cs.unibo.it/helm/"/>
-  <dc:date>2001-12-12</dc:date>
-</rdf:Description>
-
-
-<!-- Classes -->
-
-<rdfs:Class rdf:ID="Object">
-     <rdfs:comment>Mathematical objects represented by a CIC XML 
-file</rdfs:comment>
-     <rdfs:subClassOf rdf:resource="&hthns;MathResource"/>
-     <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdfs:Class>
-
-<!-- Objects can inherit its dc properties -->
-<rdfs:Class rdf:ID="DirectoryOfObjects">
-     <rdfs:comment>Mathematical resources (directories) represented by sets 
-of CIC XML files, contained in the tree that has the dir as root </rdfs:comment>
-     <rdfs:subClassOf rdf:resource="&hthns;MathResource"/>
-     <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Statement">
-     <rdfs:comment>Types of objects</rdfs:comment>
-     <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Body">
-     <rdfs:comment>Terms of objects</rdfs:comment>
-     <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Occurrence">
-     <rdfs:comment>Occurrences of an object inside an object</rdfs:comment>
-     <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Position">
-     <rdfs:comment>Positions of occurrences of an object inside an object</rdfs:comment>
-     <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Postit">
-     <rdfs:comment>Additional information associated to fragments of the objects</rdfs:comment>
-     <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Const">
-     <rdfs:comment>Constants in the body of an object</rdfs:comment>
-     <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="StatementId">
-     <rdfs:comment>Identifiers in the statement</rdfs:comment>
-     <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="BodyId">
-     <rdfs:comment>Identifiers in the body</rdfs:comment>
-     <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="ImplArg">
-     <rdfs:comment>Implicit arguments</rdfs:comment>
-     <rdfs:isDefinedBy rdf:resource = "&hns;" /> 
-</rdfs:Class>
-
-<!-- Instances of the class h:Position -->
-
-<rdfs:Class rdf:ID="MainHypothesis">
-    <rdfs:comment>Occurrences of an object in head position of some hypothesis 
-     of an object statement</rdfs:comment>
-    <rdf:type rdf:resource="#Position"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="InHypothesis">
-    <rdfs:comment>Occurrences of an object in the hypotheses of an object 
-     statement</rdfs:comment>
-    <rdf:type rdf:resource="#Position"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="MainConclusion">
-    <rdfs:comment>Occurrences of an object in head position of the 
-     conclusion of an object statement</rdfs:comment>
-    <rdf:type rdf:resource="#Position"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="InConclusion">
-    <rdfs:comment>Occurrences of an object in the conclusion of an object
-     statement</rdfs:comment>  
-    <rdf:type rdf:resource="#Position"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="InBody">
-    <rdfs:comment>Occurrences of an object only in an object body (not in the 
-     statement)</rdfs:comment>
-    <rdf:type rdf:resource="#Position"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdfs:Class>
-
-<!-- Properties -->
-
-<rdf:Property rdf:ID="statement">
-    <rdfs:comment>Statement</rdfs:comment>
-    <rdfs:domain rdf:resource="#Object"/>
-    <rdfs:range rdf:resource="#Statement"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="body">
-    <rdfs:comment>Body</rdfs:comment>
-    <rdfs:domain rdf:resource="#Object"/>
-    <rdfs:range rdf:resource="#Body"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="statementId">
-    <rdfs:comment>Statement identifier</rdfs:comment>
-    <rdfs:domain rdf:resource="#Statement"/>
-    <rdfs:range rdf:resource="#StatementId"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="constrId">
-    <rdfs:comment>Constructor identifier of the statement conclusion</rdfs:comment>
-    <rdfs:domain rdf:resource="#StatementId"/>
-    <rdfs:range rdf:resource="&hthns;HelmID"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="listId">
-    <rdfs:comment>List of all ids in the domain</rdfs:comment>
-    <rdfs:domain rdf:resource="#StatementId"/>
-    <rdfs:domain rdf:resource="#BodyId"/>
-    <rdfs:range rdf:resource="&rdfns;Seq"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="bodyId">
-    <rdfs:comment>Body identifier</rdfs:comment>
-    <rdfs:domain rdf:resource="#Body"/>
-    <rdfs:range rdf:resource="#BodyId"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="refObj">
-    <rdfs:comment>Reference to an object</rdfs:comment>
-    <rdfs:domain rdf:resource="#Object"/>
-    <rdfs:range rdf:resource="#Occurrence"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="constrImplArg">
-    <rdfs:comment>Implicit arguments of constructors</rdfs:comment>
-    <rdfs:domain rdf:resource="#Statement"/>
-    <rdfs:range rdf:resource="#ImplArg"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="objImplArg">
-    <rdfs:comment>Implicit arguments of objects</rdfs:comment>
-    <rdfs:domain rdf:resource="#Object"/>
-    <rdfs:range rdf:resource="#ImplArg"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="listImplArg">
-    <rdfs:comment>List of implicit arguments</rdfs:comment>
-    <rdfs:domain rdf:resource="#ImplArg"/>
-    <rdfs:range rdf:resource="&rdfns;Seq"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="backPointer">
-    <rdfs:comment>Backwards pointer: who points the object</rdfs:comment>
-    <rdfs:domain rdf:resource="#Object"/>
-    <rdfs:range rdf:resource="#Occurrence"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="occurrence">
-    <rdfs:comment>URI of an object</rdfs:comment>
-    <rdfs:domain rdf:resource="#Occurrence"/>
-    <rdfs:range rdf:resource="&hthns;HelmURI"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="position">
-    <rdfs:comment>Position of an occurrence</rdfs:comment>
-    <rdfs:domain rdf:resource="#Occurrence"/>
-    <rdfs:range rdf:resource="#Position"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdf:Property>
-
-
-<rdf:Property rdf:ID="postit">
-    <rdfs:comment>Postit</rdfs:comment>
-    <rdfs:domain rdf:resource="#Object"/>
-    <rdfs:range rdf:resource="#Postit"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="content">
-    <rdfs:comment>Content of a Postit</rdfs:comment>
-    <rdfs:domain rdf:resource="#Postit"/>
-    <rdfs:range rdf:resource="&xschemans;string"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="refersTo">
-    <rdfs:comment>Identifies the object fragment (Xpointer) which Postit
-refers to</rdfs:comment>
-    <rdfs:domain rdf:resource="#Postit"/>
-    <rdfs:range rdf:resource="&hthns;HelmURI"/>
-    <rdfs:isDefinedBy rdf:resource = "&hns;" />
-</rdf:Property>
-
-</rdf:RDF>
\ No newline at end of file

diff --git a/helm/schemas/schema-hth.rdf b/helm/schemas/schema-hth.rdf
deleted file mode 100644 (file)
index 6c54ff9..0000000
--- a/helm/schemas/schema-hth.rdf
+++ /dev/null
@@ -1,280 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Rdf Schema definition for theory files:
-xmlns:hth="http://www.cs.unibo.it/~schena/schema-hth.rdf#" -->
-
-<!DOCTYPE rdf:RDF [
-        <!ENTITY rdfns 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'>
-        <!ENTITY rdfsns 'http://www.w3.org/2000/01/rdf-schema#'>
-        <!ENTITY dcns 'http://www.cs.unibo.it/~schena/dces#'>
-        <!ENTITY dcqns 'http://www.cs.unibo.it/~schena/dcq#'>
-        <!ENTITY xschemans 'http://www.w3.org/1999/XMLSchema-datatypes#'>
-        <!ENTITY hthns 'http://www.cs.unibo.it/~schena/schema-hth.rdf#'>
-   ]>
-
-<rdf:RDF xml:lang="en"
-       xmlns:rdf="&rdfns;"
-       xmlns:rdfs="&rdfsns;"
-       xmlns:dc="&dcns;"
-       xmlns:dcq="&dcqns;"
-       xmlns:xs="&xschemans;">
-
-<!-- RICORDA: specificare i contenuti dei dc elements: problemi con RSSDB -->
-<!-- RICORDA: aggiungi euler properties -->
-
-<!-- Description of Schema -->
-       
-<rdf:Description rdf:about="&hthns;">
-  <rdf:value>The HELM Element Set v0.1</rdf:value>
-  <dc:title>The HELM Theory Element Set v0.1</dc:title>
-  <dc:publisher>The HELM Project</dc:publisher>
-  <dc:description>The HELM metadata vocabulary is a simple vocabulary
-      intended to facilitate discovery of mathematical resources. 
-  </dc:description>
-  <dc:language>English</dc:language>
-  <dc:relation rdf:resource="http://ww.cs.unibo.it/helm/"/>
-  <dc:date>2001-12-12</dc:date>
-</rdf:Description>
-
-
-<!-- Classes -->
-
-<rdfs:Class rdf:ID="MathResource">
-     <rdfs:comment>Mathematical resources</rdfs:comment>
-     <rdfs:subClassOf rdf:resource="&rdfsns;Resource"/>
-     <rdfs:isDefinedBy rdf:resource = "&hthns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Theory">
-     <rdfs:comment>Mathematical resources represented by theories</rdfs:comment>
-     <rdfs:subClassOf rdf:resource="#MathResource"/>
-     <rdfs:isDefinedBy rdf:resource = "&hthns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="TheoryItem">
-     <rdfs:comment>Theory items represented by: axiom, fact, definition, theorem, lemma, corollary, variable, specified by a XPath expression</rdfs:comment>
-     <rdfs:isDefinedBy rdf:resource = "&hthns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="HelmFormat">
-     <rdfs:comment>HELM File formats of a mathematical resource (possible values of the Dublin Core property Format). Possible values of the rdf:about 
-attribute can be XML.cic, XML.hol, XML.mizar. Each Helm format describes 
-a logical framework. The class dcq:IMT contains values as text/xml, text/xhtml,
-text/mml, text/ps, text/tex, text/pdf.</rdfs:comment>
-     <rdfs:subClassOf rdf:resource="&dcqns;FormatScheme"/>
-     <rdfs:isDefinedBy rdf:resource = "&hthns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="HelmURI">
-     <rdfs:comment>HELM URIs of a mathematical resource</rdfs:comment>
-     <rdfs:subClassOf rdf:resource="&dcqns;URI"/> 
-     <rdfs:isDefinedBy rdf:resource = "&hthns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="HelmID">
-     <rdfs:comment>HELM identifiers</rdfs:comment>
-     <rdfs:isDefinedBy rdf:resource = "&hthns;" />
-</rdfs:Class>
-
-<rdfs:Class rdf:ID="Contact">
-     <rdfs:comment>Creator contact information</rdfs:comment>
-     <rdfs:isDefinedBy rdf:resource = "&hthns;" />
-</rdfs:Class>
-
-<!-- Added subProperties of the Property dc:relation -->
-
-<rdf:Property rdf:ID="isBasedOn">
-    <rdfs:comment>A relation between mathematical resources</rdfs:comment>
-    <rdfs:subPropertyOf rdf:resource="&dcns;relation"/>
-    <rdfs:domain rdf:resource="#MathResource"/>
-    <rdfs:range rdf:resource="#HelmURI"/>  
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="isBasisFor">
-    <rdfs:comment>A relation between mathematical resources</rdfs:comment>
-    <rdfs:subPropertyOf rdf:resource="&dcns;relation"/>
-    <rdfs:domain rdf:resource="#MathResource"/>
-    <rdfs:range rdf:resource="#HelmURI"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="isSourceFor">
-    <rdfs:comment>A relation between mathematical resources</rdfs:comment>
-    <rdfs:subPropertyOf rdf:resource="&dcns;relation"/>
-    <rdfs:domain rdf:resource="#MathResource"/>
-    <rdfs:range rdf:resource="#HelmURI"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="hasSource">
-    <rdfs:comment>A relation between mathematical resources</rdfs:comment>
-    <rdfs:subPropertyOf rdf:resource="&dcns;relation"/>
-    <rdfs:domain rdf:resource="#MathResource"/>
-    <rdfs:range rdf:resource="#HelmURI"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" />
-</rdf:Property>
-
-<!--  subProperties of Property hth:dependence -->
-
-<rdf:Property rdf:ID="uses"> 
-    <rdfs:comment>A dependence between theory items (for instance: between a theorem or anything else and a variable)</rdfs:comment>
-    <rdfs:subPropertyOf rdf:resource="#dependence"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="isUsedBy">
-    <rdfs:comment>A dependence between theory items (for instance: between a variable and
-a theorem or anything else)</rdfs:comment>
-    <rdfs:subPropertyOf rdf:resource="#dependence"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="hasConsequence">
-    <rdfs:comment>A dependence between theory items (for instance: between a theorem and
-a corollary)</rdfs:comment>   
-    <rdfs:subPropertyOf rdf:resource="#dependence"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="isConsequenceOf">
-    <rdfs:comment>A dependence between theory items (for instance: between a corollary
-and a theorem). Alternatively: IsResultOf</rdfs:comment>
-    <rdfs:subPropertyOf rdf:resource="#dependence"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="hasPremise">
-    <rdfs:comment>A dependence between theory items (for instance: between a theorem
-and a lemma)</rdfs:comment>
-    <rdfs:subPropertyOf rdf:resource="#dependence"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" />
-</rdf:Property>
-
-<rdf:Property rdf:ID="isPremiseOf">
-    <rdfs:comment>A dependence between theory items (for instance: between a lemma
-and a theorem)</rdfs:comment>
-    <rdfs:subPropertyOf rdf:resource="#dependence"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" /> 
-</rdf:Property>
-
-<!-- Possible values of rdf:value of the dct:Text instance of dct:DCMIType,
-can be: Abstract, Paper, Bibliography, HomePage, LectureNotes, Monograph,
-PatentSpec, Preprints, Proceedings, Review, Separatum, Serial, TechReport,
-Thesis, Enclosure, General.                                               -->
-<!-- There are dct:Image and dct:Software. Possible values of rdf:value
-of the dct:Software can be: Exec, Source.                                 -->
-<!-- Text.general describes a document not of the following types.        -->
-<!-- A helm theory has no type per se                                     -->
-
-<!-- Properties -->
-
-<rdf:Property rdf:ID="theoryItem">
-    <rdfs:comment>Theory item</rdfs:comment>
-    <rdfs:domain rdf:resource="#Theory"/>
-    <rdfs:range rdf:resource="#TheoryItem"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" /> 
-</rdf:Property>
-
-<rdf:Property rdf:ID="dependence">
-    <rdfs:comment>Dependence between theory items</rdfs:comment>
-    <rdfs:domain rdf:resource="#TheoryItem"/>
-    <rdfs:range rdf:resource="#HelmID"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" /> 
-</rdf:Property>
-
-<rdf:Property rdf:ID="itemType">
-    <rdfs:comment>Axiom, Fact, Definition, Theorem, Lemma, Corollary, 
-Variable. Redundant info: it is already captured by the corresponding xml data</rdfs:comment>
-    <rdfs:domain rdf:resource="#TheoryItem"/>
-    <rdfs:range rdf:resource="&xschemans;string"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" /> 
-</rdf:Property>
-
-<rdf:Property rdf:ID="label">
-    <rdfs:comment>Description of the kind of objects: data type, 
-algorithm, specification, theorem containing algorithm, verification (that the 
-implementation satisfies the specification), predicate/relation, proposition</rdfs:comment>
-    <rdfs:domain rdf:resource="#TheoryItem"/>
-    <rdfs:range rdf:resource="&xschemans;string"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" /> 
-</rdf:Property>
-
-<!-- ex. f:N->Z => N>->Z and n:Nat => n:Z -->
-<rdf:Property rdf:ID="isCoercion">
-    <rdfs:comment>A Definition item can be a coercion</rdfs:comment>
-    <rdfs:domain rdf:resource="#TheoryItem"/>
-    <rdfs:range rdf:resource="&xschemans;boolean"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" /> 
-</rdf:Property>
-
-<!-- The id info is no more contained in the theory xml doc, so there isn't
-redundant info between metadata and data -->
-<rdf:Property rdf:ID="ident">
-    <rdfs:comment>Identifier of a theory item</rdfs:comment>
-    <rdfs:domain rdf:resource="#TheoryItem"/>
-    <rdfs:range rdf:resource="#HelmID"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" /> 
-</rdf:Property>
-
-<!-- There are also dcq:created and dcq:modified dc:date subProperties -->
-<rdf:Property rdf:ID="firstVersion">
-    <rdfs:comment>Any additional information about the first version of the
-mathematical resource</rdfs:comment>
-    <rdfs:subPropertyOf rdf:resource="&dcns;description"/> 
-    <rdfs:domain rdf:resource="#MathResource"/>
-    <rdfs:range rdf:resource="&xschemans;string"/>
-</rdf:Property>
-
-<rdf:Property rdf:ID="modified">
-    <rdfs:comment>Any additional information about the modified version of the
-mathematical resource</rdfs:comment>
-    <rdfs:subPropertyOf rdf:resource="&dcns;description"/> 
-    <rdfs:domain rdf:resource="#MathResource"/>
-    <rdfs:range rdf:resource="&xschemans;string"/>
-</rdf:Property>
-
-<rdf:Property rdf:ID="institution">
-    <rdfs:comment>Affiliated institution of the creator of the mathematical 
-resource</rdfs:comment>
-    <rdfs:subPropertyOf rdf:resource="&dcns;creator"/>
-    <rdfs:domain rdf:resource="#MathResource"/>
-    <rdfs:range rdf:resource="&xschemans;string"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" /> 
-</rdf:Property>
-
-<rdf:Property rdf:ID="contact">
-    <rdfs:comment>Contact of the creator of the mathematical 
-resource</rdfs:comment>
-    <rdfs:subPropertyOf rdf:resource="&dcns;creator"/>
-    <rdfs:domain rdf:resource="#MathResource"/>
-    <rdfs:range rdf:resource="#Contact"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" /> 
-</rdf:Property>
-
-<rdf:Property rdf:ID="email">
-    <rdfs:comment>E-mail of the creator of the mathematical 
-resource</rdfs:comment>
-    <rdfs:domain rdf:resource="#Contact"/>
-    <rdfs:range rdf:resource="&xschemans;string"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" /> 
-</rdf:Property>
-
-<rdf:Property rdf:ID="address">
-    <rdfs:comment>Address of the creator of the mathematical 
-resource</rdfs:comment>
-    <rdfs:domain rdf:resource="#Contact"/>
-    <rdfs:range rdf:resource="&xschemans;string"/>
-    <rdfs:isDefinedBy rdf:resource = "&hthns;" /> 
-</rdf:Property>
-
-<!-- HELM: Here we want to constraint an external (dc) property to a 
-particular range and domain (hth:MathResource). VRP gives a Warning when 
-(extending or modifying) constraining the range of a property defined 
-in another schema; the correct way is to specialize it with a subProperty. -->
-<!-- <rdf:Description rdf:about = "&dcns;type">
-    <rdfs:domain rdf:resource="#MathResource"/>
-</rdf:Description> -->
-
-
-</rdf:RDF>

diff --git a/helm/style/algebra.xsl b/helm/style/algebra.xsl
deleted file mode 100644 (file)
index 81eed37..0000000
--- a/helm/style/algebra.xsl
+++ /dev/null
@@ -1,453 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--******************************************************************--> 
-<!-- Algebra                                                          -->
-<!-- First draft: October 2001                                        -->
-<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena, Guidi          -->
-<!--******************************************************************-->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm">
-
-
-<!-- ************************* ALGEBRA *********************************-->
-
-
-
-<!-- 0 and 1 -->
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/CSemiGroups/csg_unit.con']" mode="pure">
- <m:ci definitionURL="{CONST/@uri}" helm:xref="{@id}">0</m:ci>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/CRings/cr_one.con']" mode="pure">
- <m:ci definitionURL="{CONST/@uri}" helm:xref="{@id}">1</m:ci>
-</xsl:template>
-
-<!-- Unary Operations -->
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/CGroups/cg_inv.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="1"/>
-      <xsl:with-param name="hide" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'minus'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/CMetricFields/CMetric_Fields/cmf_abs.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="hide" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'abs'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<!-- inv (uri errata)
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/CRings/exponentiation/nexp.con']" mode="pure">
-   <xsl:variable name="mbody1">
-      <xsl:apply-templates select="*[2]" mode="noannot"/>
-      <xsl:variable name="mbody2">
-         <m:cn>1</m:cn>
-      </xsl:variable>
-      <xsl:call-template name="out-mml-op">
-         <xsl:with-param name="arity" select="1"/>
-         <xsl:with-param name="c-tag" select="CONST"/>
-         <xsl:with-param name="m-tag" select="'minus'"/>
-         <xsl:with-param name="mbody" select="$mbody2"/>
-      </xsl:call-template>
-   </xsl:variable>
-   <xsl:call-template name="out-mml-op">
-      <xsl:with-param name="arity" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'power'"/>
-      <xsl:with-param name="mbody" select="$mbody1"/>
-   </xsl:call-template>
-</xsl:template>
--->
-
-<!-- Binary Operations and Relations -->
-
-<!-- setoid equality -->
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/CSetoids/cs_eq.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="hide" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'eq'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<!-- apart -->
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/CSetoids/cs_ap.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="hide" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'neq'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/COrdFields/leEq.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="hide" select="1"/>
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'leq'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/COrdFields/cof_less.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="hide" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'lt'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<!--
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rdefinitions/Rge.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'geq'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rdefinitions/Rgt.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'gt'"/>
-   </xsl:call-template>
-</xsl:template>
--->
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/CRings/cr_plus.con' or
-CONST/@uri='cic:/Algebra/CSemiGroups/csg_op.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="hide" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'plus'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/CRings/cr_minus.con' or
- CONST/@uri='cic:/Algebra/CGroups/cg_minus.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="hide" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'minus'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/CRings/cr_mult.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="hide" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'times'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/CFields/cf_div.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="hide" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'divide'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/CRings/Ring_constructions/nzpro.con' and count(*)='4']" mode="pure">
-   <xsl:apply-templates select="*[3]" mode="pure"/>
-</xsl:template>
-
-<!-- 
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rbasic_fun/Rmin.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'min'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rbasic_fun/Rmax.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'max'"/>
-   </xsl:call-template>
-</xsl:template>
--->
-
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/CRings/exponentiation/nexp.con']" mode="pure">
-   <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="CONST/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="hide" select="$no_params"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'power'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/CRings/exponentiation/nexp_op.con' or CONST/@uri='cic:/Algebra/Expon/Zexp_def/zexp.con']" mode="pure">
-   <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="CONST/@uri"/>
-     </xsl:call-template>
-   </xsl:variable>
-   <xsl:variable name="mbody">
-    <xsl:apply-templates mode="noannot" select="*[3+$no_params]"/>
-    <xsl:apply-templates mode="noannot" select="*[2+$no_params]"/>
-   </xsl:variable>
-   <xsl:call-template name="out-mml-op">
-      <xsl:with-param name="hide" select="$no_params"/>
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'power'"/>
-      <xsl:with-param name="mbody" select="$mbody"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/COrdFields/absSmall.con']" mode="pure">
-   <xsl:variable name="mbody">
-      <m:apply helm:xref="{@id}">
-       <m:abs definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-       <xsl:apply-templates select="*[4]" mode="noannot"/>
-      </m:apply>
-      <xsl:apply-templates select="*[3]" mode="noannot"/>
-   </xsl:variable>
-   <xsl:call-template name="out-mml-op">
-      <xsl:with-param name="hide" select="1"/>
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'lt'"/>
-      <xsl:with-param name="mbody" select="$mbody"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST[
- attribute::uri='cic:/Algebra/COrdFields/OrdField_Cauchy/seqLimit.con']]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="CONST/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="count(child::*) = 3+$no_params">
-      <m:apply helm:xref="{@id}">
-       <m:eq definitionURL="{CONST/@uri}" helm:xref="{@id}" />
-       <xsl:choose>
-        <xsl:when test="name(*[2+$no_params]) = 'LAMBDA'">
-         <m:apply helm:xref="{CONST/@id}">
-          <m:limit definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-          <m:bvar>
-           <m:ci>
-            <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="LAMBDA/target/@binder"/></xsl:with-param></xsl:call-template>
-           </m:ci>
-          </m:bvar>
-          <m:lowlimit>
-           <m:infinity/>
-          </m:lowlimit>
-          <xsl:apply-templates select="*[2+$no_params]/target/*[1]" mode="noannot"/>
-         </m:apply>
-        </xsl:when>
-        <xsl:otherwise>
-         <m:apply helm:xref="{CONST/@id}">
-          <m:limit definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-          <m:bvar>
-           <m:ci>$x</m:ci>
-          </m:bvar>
-          <m:lowlimit>
-           <m:infinity/>
-          </m:lowlimit>
-          <m:apply>
-           <m:csymbol>app</m:csymbol>
-           <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/>
-           <m:ci>$x</m:ci>
-          </m:apply>
-         </m:apply>
-        </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST[
- attribute::uri='cic:/Algebra/CSums/Sums/sum0.con']]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="CONST/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="count(child::*) = 3+$no_params">
-       <xsl:choose>
-        <xsl:when test="name(*[3+$no_params]) = 'LAMBDA'">
-         <m:apply helm:xref="{CONST/@id}">
-          <m:sum definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-          <m:bvar>
-           <m:ci>
-            <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="LAMBDA/target/@binder"/></xsl:with-param></xsl:call-template>
-           </m:ci>
-          </m:bvar>
-          <m:condition>
-           <m:apply>
-            <m:lt/>
-            <m:ci>
-             <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="LAMBDA/target/@binder"/></xsl:with-param></xsl:call-template>
-            </m:ci>
-            <xsl:apply-templates mode="noannot" select="*[2+$no_params]"/>
-           </m:apply>
-          </m:condition>
-          <xsl:apply-templates select="*[3+$no_params]/target/*[1]" mode="noannot"/>
-         </m:apply>
-        </xsl:when>
-        <xsl:otherwise>
-         <m:apply helm:xref="{CONST/@id}">
-          <m:sum definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-          <m:bvar>
-           <m:ci>$x</m:ci>
-          </m:bvar>
-          <m:condition>
-           <m:apply>
-            <m:lt/>
-            <m:ci>$x</m:ci>
-            <xsl:apply-templates mode="noannot" select="*[2+$no_params]"/>
-           </m:apply>
-          </m:condition>
-          <m:apply>
-           <m:csymbol>app</m:csymbol>
-           <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
-           <m:ci>$x</m:ci>
-          </m:apply>
-         </m:apply>
-        </xsl:otherwise>
-       </xsl:choose>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- sum -->
-<xsl:template match="APPLY[CONST[
- attribute::uri='cic:/Algebra/CSums/Sums/sum.con']]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="CONST/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="count(child::*) = 4+$no_params">
-       <xsl:choose>
-        <xsl:when test="name(*[4+$no_params]) = 'LAMBDA'">
-         <m:apply helm:xref="{CONST/@id}">
-          <m:sum definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-          <m:bvar>
-           <m:ci>
-            <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="LAMBDA/target/@binder"/></xsl:with-param></xsl:call-template>
-           </m:ci>
-          </m:bvar>
-          <m:lowlimit>
-           <xsl:apply-templates mode="noannot" select="*[2+$no_params]"/>
-          </m:lowlimit>
-          <m:uplimit>
-           <xsl:apply-templates mode="noannot" select="*[3+$no_params]"/>
-          </m:uplimit>
-          <xsl:apply-templates select="*[4+$no_params]/target/*[1]" mode="noannot"/>
-         </m:apply>
-        </xsl:when>
-        <xsl:otherwise>
-         <m:apply helm:xref="{CONST/@id}">
-          <m:sum definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-          <m:bvar>
-           <m:ci>$x</m:ci>
-          </m:bvar>
-          <m:lowlimit>
-           <xsl:apply-templates mode="noannot" select="*[2+$no_params]"/>
-          </m:lowlimit>
-          <m:uplimit>
-           <xsl:apply-templates mode="noannot" select="*[3+$no_params]"/>
-          </m:uplimit>
-          <m:apply>
-           <m:csymbol>app</m:csymbol>
-           <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
-           <m:ci>$x</m:ci>
-          </m:apply>
-         </m:apply>
-        </xsl:otherwise>
-       </xsl:choose>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- polynomials -->
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Algebra/CPolynomials/CPoly_CRing_ctd/cpoly_apply_fun.con']" mode="pure">
-   <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="CONST/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="count(child::*) = 3+$no_params">
-      <m:apply>
-       <m:csymbol>app</m:csymbol>
-       <xsl:apply-templates mode="noannot" select="*[2+$no_params]"/>
-       <xsl:apply-templates mode="noannot" select="*[3+$no_params]"/>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-</xsl:stylesheet>
-
-

diff --git a/helm/style/annotatedcont.xsl b/helm/style/annotatedcont.xsl
deleted file mode 100644 (file)
index 97f259d..0000000
--- a/helm/style/annotatedcont.xsl
+++ /dev/null
@@ -1,122 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--***********************************************************************--> 
-<!-- XSLT version 0.1 of annotated MathML content to MathML presentation:  -->
-<!-- First draft: March 29 2000, Claudio Sacerdoti Coen, Irene Schena      -->
-<!--***********************************************************************--> 
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm">
-
-<xsl:import href="objcontent.xsl"/>
-
-<xsl:key name="id" use="@id" match="LAMBDA|LETIN|PROD|CAST|REL|SORT|APPLY|VAR|META|CONST|MUTIND|MUTCONSTRUCT|MUTCASE|FIX|COFIX|Definition|Axiom|CurrentProof|InductiveDefinition|Variable"/>
-
-<xsl:template match="Definition|Axiom|CurrentProof|InductiveDefinition|Variable">
-    <xsl:variable name="id" select="@id"/>
-    <xsl:choose>
-    <xsl:when test="$annotations='yes' and $CICAnnotations/Annotations/Annotation[@of=$id]">
-     <annotation helm:xref="{@id}">
-      <xsl:apply-templates select="$CICAnnotations/Annotations/Annotation[@of=$id]"/>
-     </annotation>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:apply-templates select="." mode="noannot"/>
-    </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<xsl:template match="LAMBDA|LETIN|PROD|CAST|REL|SORT|APPLY|VAR|META|CONST|MUTIND|MUTCONSTRUCT|MUTCASE|FIX|COFIX">
-    <xsl:variable name="id" select="@id"/>
-    <xsl:choose>
-    <xsl:when test="$annotations='yes' and $CICAnnotations/Annotations/Annotation[@of=$id]">
-     <annotation helm:xref="{@id}">
-      <xsl:apply-templates select="$CICAnnotations/Annotations/Annotation[@of=$id]"/>
-     </annotation>
-    </xsl:when>
-    <xsl:otherwise>
-     <m:math>
-      <xsl:apply-templates select="." mode="noannot"/>
-     </m:math>
-    </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- The next two templates must be invoked with the context node -->
-<!-- belonging to the original document DOM tree                  -->
-
-<xsl:template mode="changecontextdocumentnode" match="*">
- <xsl:param name="id" select="''"/>
- <xsl:apply-templates select="key('id',$id)"/>
-</xsl:template>
-
-<xsl:template mode="changecontextdocumentattribute" match="*">
- <xsl:param name="id" select="''"/>
- <xsl:param name="name" select="''"/>
- <xsl:param name="child" select="''"/>
- <xsl:param name="grandchild" select="''"/>
- <xsl:choose>
-  <xsl:when test="$child">
-   <xsl:choose>
-    <xsl:when test="$grandchild">
-     <xsl:value-of select="key('id',$id)/*[position() = $child]/*[position() = $grandchild]/attribute::*[name() = $name]"/>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:value-of select="key('id',$id)/*[position() = $child]/attribute::*[name() = $name]"/>
-    </xsl:otherwise>
-   </xsl:choose>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:value-of select="key('id',$id)/attribute::*[name() = $name]"/>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<!-- $cicroot holds the root of the original document DOM tree  -->
-<!-- The next two templates are trampolines to the previous two -->
-<!-- that are used to change the context node to a node in the  -->
-<!-- document DOM tree of $cicroot                              -->
-
-<xsl:variable name="cicroot" select="/"/>
-
-<xsl:template match="node">
- <xsl:apply-templates select="$cicroot/*[1]" mode="changecontextdocumentnode">
-  <xsl:with-param name="id" select="@id"/>
- </xsl:apply-templates>
-</xsl:template>
-
-<xsl:template match="attribute">
- <xsl:apply-templates select="$cicroot/*[1]" mode="changecontextdocumentattribute">
-  <xsl:with-param name="id" select="@id"/>
-  <xsl:with-param name="name" select="@name"/>
-  <xsl:with-param name="child" select="@child"/>
-  <xsl:with-param name="grandchild" select="@grandchild"/>
- </xsl:apply-templates>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/annotatedpres.xsl b/helm/style/annotatedpres.xsl
deleted file mode 100644 (file)
index 61d6211..0000000
--- a/helm/style/annotatedpres.xsl
+++ /dev/null
@@ -1,58 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--***********************************************************************--> 
-<!-- XSLT version 0.1 of annotated MathML content to MathML presentation:  -->
-<!-- First draft: March 29 2000, Claudio Sacerdoti Coen, Irene Schena      -->
-<!--***********************************************************************--> 
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm">
-
-<xsl:import href="mmlextension.xsl"/>
-
-<!-- ANNOTATION -->
-
-<xsl:template match="annotation">
-    <xsl:choose>
-    <xsl:when test=". = /">
-      <m:math><m:mrow helm:xref="{@helm:xref}"><xsl:apply-templates/></m:mrow></m:math>
-    </xsl:when>
-    <xsl:otherwise>
-     <m:mrow helm:xref="{@helm:xref}"><xsl:apply-templates/></m:mrow>
-    </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<xsl:template match="text()">
- <xsl:variable name="text" select="normalize-space(.)"/>
- <xsl:if test="$text != ''">
-  <m:mtext><xsl:value-of select="$text"/></m:mtext>
- </xsl:if>
-</xsl:template>
-
-</xsl:stylesheet> 

diff --git a/helm/style/arith.xsl b/helm/style/arith.xsl
deleted file mode 100644 (file)
index 0751b12..0000000
--- a/helm/style/arith.xsl
+++ /dev/null
@@ -1,322 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--******************************************************************--> 
-<!-- Arithmetics                                                      -->
-<!-- First draft: March 20 2001, Ferruccio Guidi                      -->
-<!-- Zarith: July 2001, Andrea Asperti                                -->
-<!--******************************************************************-->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm">
-
-<!-- ************************** ARITHMETICS ****************************** -->
-
-<!-- S and O -->
-<xsl:template match="APPLY[*[position()=1 and name()='MUTCONSTRUCT' and @uri='cic:/Coq/Init/Datatypes/nat.ind' and @noConstr='2'] and count(*)=2]" mode="pure">
-   <xsl:apply-templates select="*[2]" mode="succ">
-    <xsl:with-param name="n" select="1"/>
-    <xsl:with-param name="iden" select="@id"/>
-   </xsl:apply-templates>
-</xsl:template>
-
-<xsl:template match="*" mode="succ">
- <xsl:param name="n" select="0"/>
- <xsl:param name="iden" select="''"/>
- <xsl:choose>
-  <xsl:when test="name()='APPLY' and *[position()=1 and name()='MUTCONSTRUCT'
-and @uri='cic:/Coq/Init/Datatypes/nat.ind' and @noConstr='2']">
-   <xsl:apply-templates select="*[2]" mode="succ">
-    <xsl:with-param name="n" select="$n +1"/>
-    <xsl:with-param name="iden" select="$iden"/>
-   </xsl:apply-templates>
-  </xsl:when>
-  <xsl:when test="name()='MUTCONSTRUCT' and @uri='cic:/Coq/Init/Datatypes/nat.ind' and @noConstr='1'">
-   <m:ci helm:xref="{$iden}"><xsl:value-of select="$n"/></m:ci>
-  </xsl:when>
-  <xsl:otherwise>
-   <m:apply helm:xref="{$iden}">
-    <m:plus/>
-    <m:ci><xsl:value-of select="$n"/></m:ci>
-    <xsl:apply-templates select="." mode="pure"/>
-   </m:apply>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-
-<xsl:template match="APPLY[MUTIND/@uri='cic:/Coq/Init/Peano/le.ind']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="MUTIND"/>
-      <xsl:with-param name="m-tag" select="'leq'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Init/Peano/lt.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'lt'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Init/Peano/ge.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'geq'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Init/Peano/gt.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'gt'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Init/Peano/plus.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'plus'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Arith/Minus/minus.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'minus'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Init/Peano/mult.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'times'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Arith/Min/min.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'min'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<!-- **************************** Zarith ******************************** -->
-
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/ZArith/zarith_aux/Zle.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'leq'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/ZArith/zarith_aux/Zlt.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'lt'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/ZArith/zarith_aux/Zge.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'geq'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/ZArith/zarith_aux/Zgt.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'gt'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/ZArith/fast_integer/fast_integers/Zplus.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'plus'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/ZArith/zarith_aux/Zminus.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'minus'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/ZArith/fast_integer/fast_integers/Zopp.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'minus'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/ZArith/fast_integer/fast_integers/Zmult.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'times'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/ZArith/zarith_aux/Zmin.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'min'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/ZArith/zarith_aux/absolu.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'abs'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<!-- POS, NEG e ZERO -->
-
-<xsl:template match="APPLY[*[position()=1 and name()='MUTCONSTRUCT' and @uri='cic:/Coq/ZArith/fast_integer/fast_integers/Z.ind' and @noConstr='2'] and count(*)=2]" mode="pure">
-   <xsl:apply-templates select="*[2]" mode="Zpositive">
-    <xsl:with-param name="base" select="0"/>
-    <xsl:with-param name="exp" select="1"/>
-    <xsl:with-param name="iden" select="*[2]/@id"/>
-   </xsl:apply-templates>
-</xsl:template>
- 
-<xsl:template match="APPLY[*[position()=1 and name()='MUTCONSTRUCT' and @uri='cic:/Coq/ZArith/fast_integer/fast_integers/Z.ind' and @noConstr='3'] and count(*)=2]" mode="pure">
-   <m:apply helm:xref="{@id}">
-    <m:minus definitionURL="{*[1]/@uri}" helm:xref="{*[1]/@id}"/>
-    <xsl:apply-templates select="*[2]" mode="Zpositive">
-     <xsl:with-param name="base" select="0"/>
-     <xsl:with-param name="exp" select="1"/>
-     <xsl:with-param name="iden" select="*[2]/@id"/>
-    </xsl:apply-templates>
-   </m:apply>
-</xsl:template>
-
-<xsl:template match="MUTCONSTRUCT[@uri='cic:/Coq/ZArith/fast_integer/fast_integers/Z.ind' and @noConstr='1']" mode="pure">
-   <m:ci definitionURL="{@uri}" helm:xref="{@id}">0</m:ci>
-</xsl:template>
-
-<!-- prova di notazione per positive -->
-
-<xsl:template match="APPLY[*[position()=1 and name()='MUTCONSTRUCT' and @uri='cic:/Coq/ZArith/fast_integer/fast_integers/positive.ind']]" mode="pure">
-   <xsl:apply-templates select="." mode="Zpositive">
-    <xsl:with-param name="base" select="0"/>
-    <xsl:with-param name="exp" select="1"/>
-    <xsl:with-param name="iden" select="@id"/>
-   </xsl:apply-templates>
-</xsl:template>
-
-<xsl:template match="MUTCONSTRUCT[@uri='cic:/Coq/ZArith/fast_integer/fast_integers/positive.ind' and @noConstr='3']" mode="pure">
- <m:ci definitionURL="{@uri}" helm:xref="{@id}">1</m:ci>
-</xsl:template> 
-
-<xsl:template match="*" mode="Zpositive">
- <xsl:param name="base" select="0"/>
- <xsl:param name="exp" select="1"/>
- <xsl:param name="iden" select="''"/>
- <xsl:choose>
-  <xsl:when test="name()='APPLY' and *[position()=1 and name()='MUTCONSTRUCT'
-and @uri='cic:/Coq/ZArith/fast_integer/fast_integers/positive.ind' and @noConstr='1']">
-   <xsl:apply-templates select="*[2]" mode="Zpositive">
-    <xsl:with-param name="base" select="$base + $exp"/>
-    <xsl:with-param name="exp" select="2 * $exp"/>
-    <xsl:with-param name="iden" select="$iden"/>
-   </xsl:apply-templates>
-  </xsl:when>
-  <xsl:when test="name()='APPLY' and *[position()=1 and name()='MUTCONSTRUCT' 
-and @uri='cic:/Coq/ZArith/fast_integer/fast_integers/positive.ind' and @noConstr='2']">
-   <xsl:apply-templates select="*[2]" mode="Zpositive">
-    <xsl:with-param name="base" select="$base"/>
-    <xsl:with-param name="exp" select="2 * $exp"/>
-    <xsl:with-param name="iden" select="$iden"/>
-   </xsl:apply-templates>
-  </xsl:when>
-  <xsl:when test="name()='MUTCONSTRUCT' and @uri='cic:/Coq/ZArith/fast_integer/fast_integers/positive.ind' and @noConstr='3'">
-   <m:ci helm:xref="{$iden}"><xsl:value-of select="$base + $exp"/></m:ci>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:choose>
-    <xsl:when test="$base = 0">
-     <xsl:choose>
-      <xsl:when test="$exp = 1">
-       <xsl:apply-templates select="." mode="pure"/>
-      </xsl:when>
-      <xsl:otherwise>
-       <m:apply helm:xref="{$iden}">
-        <m:times/>
-        <m:ci><xsl:value-of select="$exp"/></m:ci>
-        <xsl:apply-templates select="." mode="pure"/>
-       </m:apply>
-      </xsl:otherwise>
-     </xsl:choose>
-    </xsl:when>
-    <xsl:otherwise>
-     <m:apply helm:xref="{$iden}">
-      <m:plus/>
-      <m:ci><xsl:value-of select="$base"/></m:ci>
-      <xsl:choose>
-       <xsl:when test="$exp = 1">
-        <xsl:apply-templates select="." mode="pure"/>
-       </xsl:when>
-       <xsl:otherwise>
-        <m:apply helm:xref="{$iden}">
-         <m:times/>
-         <m:ci><xsl:value-of select="$exp"/></m:ci>
-         <xsl:apply-templates select="." mode="pure"/>
-        </m:apply>
-       </xsl:otherwise>
-      </xsl:choose>
-     </m:apply>
-    </xsl:otherwise>
-   </xsl:choose>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-
-</xsl:stylesheet>

diff --git a/helm/style/basic.xsl b/helm/style/basic.xsl
deleted file mode 100644 (file)
index a9d82dd..0000000
--- a/helm/style/basic.xsl
+++ /dev/null
@@ -1,238 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--******************************************************************--> 
-<!-- Basic Logic                                                      -->
-<!-- First draft: April 3 2000                                        -->
-<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena, Guidi          -->
-<!--******************************************************************-->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm">
-
-
-<!-- ************************* LOGIC *********************************-->
-
-<!-- AND -->
-
-<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/Coq/Init/Logic/Conjunction/and.ind'] and (count(child::*) = 3)]" mode="pure">
-    <m:apply helm:xref="{@id}">
-    <m:and definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
-     <xsl:apply-templates select="*[2]" mode="noannot"/>
-     <xsl:apply-templates select="*[3]" mode="noannot"/>
-    </m:apply>
-</xsl:template>
-
-<!-- OR -->
-
-<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/Coq/Init/Logic/Disjunction/or.ind'] and (count(child::*) = 3)]" mode="pure">
-    <m:apply helm:xref="{@id}">
-    <m:or definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
-     <xsl:apply-templates select="*[2]" mode="noannot"/>
-     <xsl:apply-templates select="*[3]" mode="noannot"/>
-    </m:apply>
-</xsl:template>
-
-<!-- NOT -->
-
-<xsl:template match="APPLY[CONST[attribute::uri='cic:/Coq/Init/Logic/not.con'] and (count(child::*) = 2)]" mode="pure">
-    <m:apply helm:xref="{@id}">
-    <m:not definitionURL="{CONST/@uri}" helm:xref="{MUTIND/@id}"/>
-     <xsl:apply-templates select="*[2]" mode="noannot"/>
-    </m:apply>
-</xsl:template>
-
-<!-- IFF -->
-<!-- 
-<xsl:template match="APPLY[CONST[attribute::uri='cic:/Coq/Init/Logic/Equivalence/iff.ind'] and (count(child::*) = 3)]" mode="pure">
-    <m:apply helm:xref="{@id}">
-    <m:iff definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-     <xsl:apply-templates select="*[2]" mode="noannot"/>
-     <xsl:apply-templates select="*[3]" mode="noannot"/>
-    </m:apply>
-</xsl:template>
--->
-
-<!-- EXISTS -->
-
-<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/Coq/Init/Logic/First_order_quantifiers/ex.ind' or attribute::uri='cic:/Coq/Init/Logic_Type/exT.ind'] and (count(child::*) = 3)]" mode="pure">
-    <m:apply helm:xref="{@id}">
-     <m:exists definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
-     <xsl:choose>
-      <xsl:when test="name(*[3]) = 'LAMBDA'">
-       <m:bvar>
-        <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="*[3]/target/@binder"/></xsl:with-param></xsl:call-template></m:ci>
-       </m:bvar>
-       <m:condition>
-        <xsl:apply-templates select="*[2]" mode="pure"/>
-       </m:condition>
-       <xsl:apply-templates select="LAMBDA/target" mode="noannot"/>
-      </xsl:when>
-      <xsl:otherwise>
-       <m:bvar>
-        <m:ci>$x</m:ci>
-       </m:bvar>
-       <m:condition>
-        <xsl:apply-templates select="*[2]" mode="pure"/>
-       </m:condition>
-       <m:apply>
-        <m:csymbol>app</m:csymbol>
-        <xsl:apply-templates select="*[3]" mode="noannot"/>
-        <m:ci>$x</m:ci>
-       </m:apply>
-      </xsl:otherwise>
-     </xsl:choose>
-    </m:apply>
-</xsl:template>
-
-<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/Coq/Init/Logic/First_order_quantifiers/ex2.ind' or attribute::uri='cic:/Coq/Init/Logic_Type/exT2.ind'] and (count(child::*) = 4)]" mode="pure">
-    <m:apply helm:xref="{@id}">
-    <m:exists definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
-     <xsl:choose>
-      <xsl:when test="name(*[3]) = 'LAMBDA'">
-       <xsl:variable name="bvarname" select="*[3]/target/@binder"/>
-       <m:bvar>
-        <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="$bvarname"/></xsl:with-param></xsl:call-template></m:ci>
-       </m:bvar>
-       <m:condition>
-        <xsl:apply-templates select="LAMBDA[1]/target" mode="noannot"/>
-       </m:condition>
-       <xsl:choose>
-        <xsl:when test="(name(*[4]) = 'LAMBDA') and 
-           ($bvarname = *[4]/target/@binder)">
-         <xsl:apply-templates select="LAMBDA[2]/target" mode="noannot"/>
-        </xsl:when>
-        <xsl:otherwise>
-         <m:apply>
-          <m:csymbol>app</m:csymbol>
-          <xsl:apply-templates select="*[4]" mode="noannot"/>
-          <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="$bvarname"/></xsl:with-param></xsl:call-template></m:ci>
-         </m:apply>
-        </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <xsl:otherwise>
-       <xsl:choose>
-        <xsl:when test="name(*[4]) = 'LAMBDA'">
-         <xsl:variable name="bvarname" select="*[4]/target/@binder"/>
-         <m:bvar>
-          <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="$bvarname"/></xsl:with-param></xsl:call-template></m:ci>
-         </m:bvar>
-         <m:condition>
-          <m:apply>
-           <m:csymbol>app</m:csymbol>
-           <xsl:apply-templates select="*[3]" mode="noannot"/>
-           <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="$bvarname"/></xsl:with-param></xsl:call-template></m:ci>
-          </m:apply>
-         </m:condition>
-         <xsl:apply-templates select="*[4]/target" mode="noannot"/>
-        </xsl:when>
-        <xsl:otherwise>
-         <m:bvar>
-          <m:ci>x</m:ci>
-         </m:bvar>
-         <m:condition>
-          <m:apply>
-           <m:csymbol>app</m:csymbol>
-           <xsl:apply-templates select="*[3]" mode="noannot"/>
-           <m:ci>x</m:ci>
-          </m:apply>
-         </m:condition>
-         <m:apply>
-          <m:csymbol>app</m:csymbol>
-          <xsl:apply-templates select="*[4]" mode="noannot"/>
-          <m:ci>x</m:ci>
-         </m:apply>
-        </xsl:otherwise>
-       </xsl:choose>
-      </xsl:otherwise>
-     </xsl:choose>
-    </m:apply>
-</xsl:template>
-
-<!-- EQUALITY and TYPE EQUALITY -->
-
-<xsl:template match="APPLY[MUTIND/@uri='cic:/Coq/Init/Logic/Equality/eq.ind']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="hide" select="1"/>
-      <xsl:with-param name="c-tag" select="MUTIND"/>
-      <xsl:with-param name="m-tag" select="'eq'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[MUTIND/@uri='cic:/Coq/Init/Logic_Type/eqT.ind']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="hide" select="1"/>
-      <xsl:with-param name="c-tag" select="MUTIND"/>
-      <xsl:with-param name="m-tag" select="'eq'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<!-- NOT-EQ -->
-<!-- NOT and EQ have no parameters -->
-<xsl:template match="APPLY[CONST[attribute::uri='cic:/Coq/Init/Logic/not.con']
-and (count(child::*) = 2) and APPLY[MUTIND[attribute::uri='cic:/Coq/Init/Logic/Equality/eq.ind']]]" mode="pure">
-    <xsl:choose>
-     <xsl:when test="count(APPLY/child::*) = 4">
-      <m:apply helm:xref="{@id}">
-       <m:neq/>
-       <xsl:apply-templates select="*[2]/*[3]" mode="noannot"/>
-       <xsl:apply-templates select="*[2]/*[4]" mode="set"/>  
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- NOT-EQT -->
-<xsl:template match="APPLY[CONST[attribute::uri='cic:/Coq/Init/Logic/not.con']
-and (count(child::*) = 2) and APPLY[MUTIND[attribute::uri='cic:/Coq/Init/Logic_Type/eqT.ind']]]" mode="pure">
-    <xsl:choose>
-     <xsl:when test="count(APPLY/child::*) = 4">
-      <m:apply helm:xref="{@id}">
-       <m:neq/>
-       <xsl:apply-templates select="*[2]/*[3]" mode="noannot"/>
-       <xsl:apply-templates select="*[2]/*[4]" mode="set"/>  
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- ************************ DATATYPES ******************************* -->
-
-<!-- no datatypes in MathML content -->
-
-<!-- ************************** PEANO ********************************* -->
-
-<!-- see arith.xsl --> <!-- FG -->
-
-</xsl:stylesheet>

diff --git a/helm/style/content.xsl b/helm/style/content.xsl
deleted file mode 100644 (file)
index 95a1f66..0000000
--- a/helm/style/content.xsl
+++ /dev/null
@@ -1,280 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--******************************************************************--> 
-<!-- XSLT version 0.1 of CIC objects to MathML content:               -->
-<!-- First draft: February 14 2000, Andrea Asperti, Irene Schena      -->
-<!-- Revised: March 3 2000, Irene Schena                              -->
-<!-- Revised: March 10 2000, Irene Schena                             -->
-<!-- Revised: March 15 2000, Claudio Sacerdoti Coen, Irene Schena     -->
-<!--******************************************************************-->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm">
-
-<xsl:include href="params.xsl"/>
-<!-- adesso sono preprocessate -->
-<!-- <xsl:include href="coercions.xsl"/> -->
-
-<!--<xsl:output
-           method="xml" 
-           version="1.0" 
-           encoding="ISO-8859-1" 
-           omit-xml-declaration="no"
-           standalone="no" 
-           doctype-public="http://www.w3.org/TR/REC-MathML" 
-           indent="yes"
-           media-type="text/mathml" /> -->
-
-<!-- DA FARE: 
-1)risolvere nella fase di pre-processing le uri relative delle var, settando 
-l'attributo
-definitionURL dell'oggetto corrispondente (alcuni punteranno a nulla! -quelli 
-che non hanno il file di definizione corrispondente-); [le uri assolute hanno
-la forma cic:/.../ in definitionURL e questo schema di uri verra' risolto da
-Amaya o da chi di dovere in /really_very_local/helm/PARSER/example/.../]
--->
-
-
-<!-- CIC TERMS -->
-
-<xsl:template match="LAMBDA" mode="pure">
-    <m:lambda helm:xref="{@id}">
-     <m:bvar>
-      <m:ci>
-       <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="target/@binder"/></xsl:with-param></xsl:call-template>
-      </m:ci>
-      <m:type>
-       <xsl:apply-templates select="source/*[1]" mode="noannot"/>
-      </m:type>
-     </m:bvar>
-     <xsl:apply-templates select="target/*[1]" mode="noannot"/>
-    </m:lambda>
-</xsl:template>
-
-<xsl:template match="LETIN" mode="pure">
-    <m:apply helm:xref="{@id}">
-     <m:csymbol>let_in</m:csymbol>
-     <m:bvar>
-      <m:ci>
-       <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="letintarget/@binder"/></xsl:with-param></xsl:call-template>
-      </m:ci>
-     </m:bvar>
-     <xsl:apply-templates select="*[1]" mode="noannot"/>
-     <xsl:apply-templates select="letintarget/*[1]" mode="noannot"/>
-    </m:apply>
-</xsl:template>
-
-<xsl:template match="PROD" mode="pure">
-    <m:apply helm:xref="{@id}">
-     <xsl:choose>
-     <xsl:when test="string(target/@binder)= &quot;&quot;">
-      <m:csymbol>arrow</m:csymbol>
-      <xsl:apply-templates select="source/*[1]" mode="noannot"/>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:choose>
-       <xsl:when test="@type = 'Prop'">
-        <m:csymbol>forall</m:csymbol>
-       </xsl:when>
-       <xsl:otherwise>
-        <m:csymbol>prod</m:csymbol>
-       </xsl:otherwise>
-      </xsl:choose>
-       <m:bvar>
-        <m:ci>
-         <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="target/@binder"/></xsl:with-param></xsl:call-template>
-        </m:ci>
-        <m:type>
-         <xsl:apply-templates select="source/*[1]" mode="noannot"/>
-        </m:type>
-       </m:bvar>
-     </xsl:otherwise>
-     </xsl:choose>
-     <xsl:apply-templates select="target/*[1]" mode="noannot"/>
-    </m:apply>
-</xsl:template>
-
-<xsl:template match="CAST" mode="pure">
-    <m:apply helm:xref="{@id}">
-     <m:csymbol>cast</m:csymbol>
-     <xsl:apply-templates mode="noannot" select="*/*"/>
-    </m:apply>
-</xsl:template>
-
-<xsl:template match="REL" mode="pure">
-    <m:ci helm:xref="{@id}">
-     <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="@binder"/></xsl:with-param></xsl:call-template>
-    </m:ci>
-</xsl:template>
-
-<xsl:template match="SORT" mode="pure">
-    <m:apply helm:xref="{@id}">
-     <m:csymbol>
-      <xsl:value-of select="@value"/>
-     </m:csymbol>
-    </m:apply>
-</xsl:template>
-
-<xsl:template match="APPLY" mode="pure">
-      <m:apply helm:xref="{@id}">
-       <m:csymbol>app</m:csymbol>
-       <xsl:apply-templates mode="noannot" select="*"/>
-      </m:apply>
-</xsl:template>
-
-<!-- Gestione senza pre-processing -->
-<!-- 
-<xsl:template match="APPLY" mode="pure">
-     <xsl:apply-templates mode="coercion" select="."/>
-</xsl:template>
-
-<xsl:template match="APPLY" mode="no_coercion">
-      <m:apply helm:xref="{@id}">
-       <m:csymbol>app</m:csymbol>
-       <xsl:apply-templates mode="noannot" select="*"/>
-      </m:apply>
-</xsl:template>
--->
-
-<xsl:template match="VAR" mode="pure">
-    <m:ci helm:xref="{@id}">
-     <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="substring-after(@relUri,&quot;,&quot;)"/></xsl:with-param></xsl:call-template>
-    </m:ci>
-</xsl:template>
-
-<xsl:template match="META" mode="pure">
-    <m:ci helm:xref="{@id}">
-     <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="@no"/></xsl:with-param></xsl:call-template>
-    </m:ci>
-</xsl:template>
-
-<xsl:template match="CONST" mode="pure">
-   <m:ci definitionURL="{@uri}" helm:xref="{@id}">
-      <xsl:call-template name="insert_subscript">
-         <xsl:with-param name="node_value">
-            <xsl:call-template name="name_of_uri">
-               <xsl:with-param name="uri" select="@uri"/>
-            </xsl:call-template>
-         </xsl:with-param>
-      </xsl:call-template>
-   </m:ci>
-</xsl:template>
-
-<xsl:template match="MUTIND" mode="pure">
-    <m:ci definitionURL="{@uri}" helm:xref="{@id}">
-     <xsl:variable name="InductiveTypeUrl"><xsl:call-template name="URLofURI4getter"><xsl:with-param name="uri" select="@uri"/></xsl:call-template></xsl:variable>
-     <xsl:variable name="index"><xsl:value-of select="@noType"/></xsl:variable>
-     <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="document($InductiveTypeUrl)/InductiveDefinition/InductiveType[position()=number($index)+1]/@name"/></xsl:with-param></xsl:call-template>
-    </m:ci>
-</xsl:template>
-
-<xsl:template match="MUTCONSTRUCT" mode="pure">
-    <m:ci definitionURL="{@uri}" helm:xref="{@id}">
-     <xsl:variable name="InductiveTypeUrl"><xsl:call-template name="URLofURI4getter"><xsl:with-param name="uri" select="@uri"/></xsl:call-template></xsl:variable>
-     <xsl:variable name="Tindex"><xsl:value-of select="@noType"/></xsl:variable>
-     <xsl:variable name="Cindex"><xsl:value-of select="@noConstr"/></xsl:variable>
-     <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="document($InductiveTypeUrl)/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($Cindex)]/@name"/></xsl:with-param></xsl:call-template>
-    </m:ci>
-</xsl:template>
-
-<xsl:template match="MUTCASE" mode="pure">
-    <xsl:variable name="Tindex"><xsl:value-of select="@noType"/></xsl:variable>
-    <xsl:variable name="Turi"><xsl:value-of select="@uriType"/></xsl:variable>
-     <xsl:variable name="InductiveTypeUrl"><xsl:call-template name="URLofURI4getter"><xsl:with-param name="uri" select="$Turi"/></xsl:call-template></xsl:variable>
-    <xsl:variable name="InductiveTypeDoc" select="document($InductiveTypeUrl)"/>
-    <m:apply helm:xref="{@id}">
-     <m:csymbol>mutcase</m:csymbol>
-     <xsl:apply-templates select="patternsType/*[1]" mode="noannot"/>
-     <xsl:apply-templates select="inductiveTerm/*[1]" mode="noannot"/>
-     <xsl:variable name="nop"><xsl:value-of select="$InductiveTypeDoc/InductiveDefinition/@noParams"/></xsl:variable>
-<piecewise>
-     <xsl:for-each select="pattern">
-      <xsl:variable name="pos" select="position()"/>
-      <xsl:variable name="nopar"><xsl:apply-templates select="$InductiveTypeDoc/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($pos)]/*[1]" mode="counting"><xsl:with-param name="noparams" select="$nop"/></xsl:apply-templates></xsl:variable>
-<piece>
-      <xsl:apply-templates select="./*[1]" mode="abstparams"><xsl:with-param name="noparams" select="$nopar"/><xsl:with-param name="target" select="1"/><xsl:with-param name="binder">LAMBDA</xsl:with-param></xsl:apply-templates>
-
-      <xsl:choose>
-      <xsl:when test="$nopar = 0">
-       <m:ci>
-        <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="$InductiveTypeDoc/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($pos)]/@name"/></xsl:with-param></xsl:call-template>
-       </m:ci>
-      </xsl:when>
-      <xsl:otherwise>
-       <m:apply>
-        <m:csymbol>app</m:csymbol>
-        <m:ci>
-         <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="$InductiveTypeDoc/InductiveDefinition/InductiveType[position()=number($Tindex)+1]/Constructor[position()=number($pos)]/@name"/></xsl:with-param></xsl:call-template>
-        </m:ci>
-        <xsl:apply-templates select="./*[1]" mode="abstparams"><xsl:with-param name="noparams" select="$nopar"/><xsl:with-param name="binder">LAMBDA</xsl:with-param></xsl:apply-templates>
-        </m:apply>
-       </xsl:otherwise>
-       </xsl:choose>
-</piece>
-     </xsl:for-each>
-</piecewise> 
-    </m:apply>
-</xsl:template>
-
-<xsl:template match="FIX" mode="pure">
-    <m:apply helm:xref="{@id}">
-     <xsl:variable name="findex"><xsl:value-of select="@noFun"/></xsl:variable>
-     <m:csymbol>fix</m:csymbol>
-     <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="FixFunction[position()=number($findex)+1]/@name"/></xsl:with-param></xsl:call-template></m:ci>
-     <xsl:apply-templates mode="pure" select="*"/>
-    </m:apply>
-</xsl:template>
-
-<xsl:template match="COFIX" mode="pure">
-   <m:apply helm:xref="{@id}">
-     <xsl:variable name="findex"><xsl:value-of select="@noFun"/></xsl:variable>
-     <m:csymbol>cofix</m:csymbol>
-     <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="CofixFunction[position()=number($findex)+1]/@name"/></xsl:with-param></xsl:call-template></m:ci>
-     <xsl:apply-templates mode="pure" select="*"/>
-    </m:apply>
-</xsl:template>
-
-<!-- ELEMENTS OF CIC TERMS -->
-
-<xsl:template match="FixFunction" mode="pure">
-    <m:bvar>
-     <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="@name"/></xsl:with-param></xsl:call-template></m:ci>
-     <m:type><xsl:apply-templates select="type/*[1]" mode="noannot"/></m:type>
-    </m:bvar> 
-    <xsl:apply-templates select="body/*[1]" mode="noannot"/>
-</xsl:template>
-
-<xsl:template match="CofixFunction" mode="pure">
-    <m:bvar>
-     <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="@name"/></xsl:with-param></xsl:call-template></m:ci>
-     <m:type><xsl:apply-templates select="type/*[1]" mode="noannot"/></m:type>
-    </m:bvar> 
-    <xsl:apply-templates select="body/*[1]" mode="noannot"/>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/content_to_html.xsl b/helm/style/content_to_html.xsl
deleted file mode 100644 (file)
index 5ffa074..0000000
--- a/helm/style/content_to_html.xsl
+++ /dev/null
@@ -1,2226 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML">
-
-<!--***********************************************************************--> 
-<!-- From MathML content to HTML                                           -->
-<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena, Guidi               -->
-<!--***********************************************************************--> 
-
-<xsl:param name="CICURI" select="''"/>
-<xsl:param name="type" select="'standalone'"/>
-<xsl:param name="UNICODEvsSYMBOL" select="'symbol'"/>
-
-<xsl:include href="html_init.xsl"/>
-<xsl:include href="html_set.xsl"/>
-<xsl:include href="html_reals.xsl"/>
-
-<xsl:variable name="showcast" select="0"/>
-
-<!--***********************************************************************-->
-<!-- HTML Head and Body                                                    -->
-<!--***********************************************************************-->
-
-<!-- <xsl:output method="html" encoding="iso-8859-1"/> -->
-
-<!-- document needs method="xml" and searches locally for the dtd if        -->
-<!-- doctype-system is specified (the dtd must exist locally for parsing).  -->
-<!-- For having output html must be media-type="html" and for having the    -->
-<!-- correct <br /> you must specify at least the remote dtd by means of    -->
-<!-- doctype-public                                                         -->
-<xsl:output 
-       method="xml" 
-       encoding="iso-8859-1" 
-       media-type="text/html"
-       doctype-public="-//W3C//DTD XHTML 1.0 Transitional//EN" />
-
-<xsl:variable name="framewidth" select="55"/>
-
-<xsl:template name="mksymbol-1">
- <xsl:param name="symbol" select="''"/>
- <xsl:param name="color" select="''"/>
- <xsl:param name="size" select="''"/>
-  <xsl:choose>
-   <xsl:when test="$UNICODEvsSYMBOL = 'symbol'">
-    <xsl:variable name="fontsymbol">
-     <xsl:choose>
-      <xsl:when test="$symbol = 'forall'">
-       <xsl:value-of select="'&#x22;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'lambda'">
-       <xsl:value-of select="'l'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'prod'">
-       <xsl:value-of select="'&#x00d5;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'arrow'">
-       <xsl:value-of select="'&#x00ae;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'RightArrow'">
-       <xsl:value-of select="'&#222;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'subst'">
-       <xsl:value-of select="'&#x00ac;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'lift' or $symbol = 'lift_with_base'">
-       <xsl:value-of select="'&#x00ad;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'beta_red' or $symbol = 'beta_red1'">
-       <xsl:value-of select="'&#x00ae;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'beta'">
-       <xsl:value-of select="'&#x0062;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'par_beta_red' or $symbol = 'par_beta_red1'">
-       <xsl:value-of select="'&#x00de;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'isomorphic'">
-       <xsl:value-of select="'&#x0040;'"/>
-      </xsl:when>
-      <xsl:otherwise>
-       <xsl:text>???</xsl:text>
-      </xsl:otherwise>
-     </xsl:choose>
-    </xsl:variable>
-    <FONT FACE="symbol" SIZE="{$size}" color="{$color}">
-     <xsl:value-of select="$fontsymbol"/>
-    </FONT>
-   </xsl:when>
-   <xsl:otherwise>
-    <xsl:variable name="unicodesymbol">
-     <xsl:choose>
-      <xsl:when test="$symbol = 'forall'">
-       <xsl:value-of select="'&#8704;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'lambda'">
-       <xsl:value-of select="'&#955;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'prod'">
-       <xsl:value-of select="'&#928;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'arrow'">
-       <xsl:value-of select="'&#8594;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'RightArrow'">
-       <xsl:value-of select="'&#8658;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'subst'">
-       <xsl:value-of select="'&#8592;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'lift' or $symbol = 'lift_with_base'">
-       <xsl:value-of select="'&#8593;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'beta_red' or $symbol = 'beta_red1'">
-       <xsl:value-of select="'&#8594;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'beta'">
-       <xsl:value-of select="'&#946;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'par_beta_red' or $symbol = 'par_beta_red1'">
-       <xsl:value-of select="'&#8658;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'isomorphic'">
-       <xsl:value-of select="'&#8773;'"/>
-      </xsl:when>
-      <xsl:otherwise>
-       <xsl:text>???</xsl:text>
-      </xsl:otherwise>
-     </xsl:choose>
-    </xsl:variable>
-    <FONT color="{$color}">
-     <xsl:value-of select="$unicodesymbol"/>
-    </FONT>
-   </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match="/">
- <xsl:param name="current_indent" select="0"/>
- <xsl:choose>
-  <xsl:when test="$type = 'standalone'">
-   <html> 
-      <head>
-        <title> <xsl:value-of select="$CICURI"/> </title> <!-- FG -->
-         <style> A { text-decoration: none } </style>
-         <script>
-          <xsl:text disable-output-escaping="yes">
-           <![CDATA[
-            function Hide(which){
-             if (!document.getElementById)
-              return
-             which.style.display="none"
-            }
-
-            function Show(which){
-             if (!document.getElementById)
-              return
-             which.style.display=""
-            }
-
-            document.to_be_deleted = new Array();
-          ]]>
-          </xsl:text>
-         </script>
-      </head>
-      <body bgcolor="white">
-         <xsl:attribute name="onLoad">
-          if(document.getElementById)
-           for(var i=0;i&lt;document.to_be_deleted.length;i++)
-            Hide(document.getElementById(document.to_be_deleted[i]));
-         </xsl:attribute>
-         <xsl:apply-templates>
-            <xsl:with-param name="current_indent" select="0"/>
-         </xsl:apply-templates>
-      </body>
-   </html>
-  </xsl:when>
-  <xsl:otherwise>
-   <to_be_embedded>
-    <xsl:apply-templates>
-     <xsl:with-param name="current_indent" select="0"/>
-    </xsl:apply-templates>
-   </to_be_embedded>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<!--***********************************************************************-->
-<!-- Indentation                                                          -->
-<!--***********************************************************************-->
-
-<xsl:template name="make_indent">
- <xsl:param name="current_indent" select="0"/>
-  <xsl:if test="$current_indent > 0">
-   <xsl:text>&#x00a0;</xsl:text>
-   <xsl:call-template name="make_indent">
-    <xsl:with-param name="current_indent" select="$current_indent - 1"/> 
-   </xsl:call-template>
-  </xsl:if>
-</xsl:template>
-
-<!-- Syntactic Sugar -->
-<xsl:template match="m:type">
-<xsl:param name="current_indent" select="0"/> 
-<xsl:apply-templates>
- <xsl:with-param name="current_indent" 
-           select="$current_indent"/>
-</xsl:apply-templates>
-</xsl:template>
-
-<xsl:template match="m:condition">
-<xsl:param name="current_indent" select="0"/> 
-<xsl:apply-templates>
- <xsl:with-param name="current_indent" 
-           select="$current_indent"/>
-</xsl:apply-templates>
-</xsl:template>
-
-<xsl:template match="m:math">
-<xsl:param name="current_indent" select="0"/> 
-<xsl:apply-templates>
- <xsl:with-param name="current_indent" 
-           select="$current_indent"/>
-</xsl:apply-templates>
-</xsl:template>
-
-<!--*********************************************************************-->
-<!--                         INLINE MODE                                 -->
-<!--*********************************************************************-->
-
-<!-- href -->
-<xsl:template mode="inline" match="m:ci">
- <xsl:choose>
-  <xsl:when test="boolean(@definitionURL)">
-   <a href="{@definitionURL}">
-   <xsl:apply-templates/>
-   </a>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:value-of select="."/>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<!-- CSYMBOL -->
-
-<xsl:template match="m:apply[m:csymbol]" mode="inline">
-   <xsl:variable name="name">
-    <xsl:value-of select="m:csymbol"/>
-   </xsl:variable>
-   <xsl:variable name="uri"><xsl:value-of select="*[1]/@definitionURL"/></xsl:variable>
-   <xsl:choose>
-    <!-- FORALL -->
-    <xsl:when test="$name='forall'">
-     <xsl:call-template name="mksymbol-1">
-      <xsl:with-param name="symbol" select="$name"/>
-      <xsl:with-param name="color" select="'blue'"/>
-      <xsl:with-param name="size" select="'+2'"/>
-     </xsl:call-template>
-     <xsl:apply-templates select="m:bvar/m:ci"/>
-     <xsl:text>:</xsl:text>
-     <xsl:apply-templates mode="inline" select="m:bvar/m:type"/>
-     <xsl:text>.</xsl:text>
-     <xsl:apply-templates mode="inline" select="*[position()=3]"/>
-    </xsl:when>
-    <xsl:when test="$name='prod'">
-     <xsl:call-template name="mksymbol-1">
-      <xsl:with-param name="symbol" select="$name"/>
-      <xsl:with-param name="color" select="'blue'"/>
-      <xsl:with-param name="size" select="'+2'"/>
-     </xsl:call-template>
-     <xsl:apply-templates mode="inline" select="m:bvar/m:ci"/>
-     <xsl:text>:</xsl:text>
-     <xsl:apply-templates mode="inline" select="m:bvar/m:type"/>
-     <xsl:text>.</xsl:text>
-     <xsl:apply-templates mode="inline" select="*[position()=3]"/>
-    </xsl:when>
-    <!-- ARROW -->
-    <xsl:when test="$name='arrow'">
-     <xsl:text>(</xsl:text>
-     <xsl:apply-templates mode="inline" select="*[position()=2]"/>
-     <xsl:call-template name="mksymbol-1">
-      <xsl:with-param name="symbol" select="$name"/>
-      <xsl:with-param name="color" select="'blue'"/>
-      <xsl:with-param name="size" select="'+0'"/>
-     </xsl:call-template>
-     <xsl:apply-templates mode="inline" select="*[position()=3]"/>
-     <xsl:text>)</xsl:text>
-    </xsl:when>
-    <!-- APP -->
-    <xsl:when test="$name='app'">
-     <xsl:text>(</xsl:text>
-     <xsl:apply-templates mode="inline" select="*[position()=2]"/>
-     <xsl:for-each select="*[position()>2]">
-      <xsl:text>&#x00A0;</xsl:text>
-      <xsl:apply-templates mode="inline" select="."/>
-     </xsl:for-each>
-     <xsl:text>)</xsl:text>
-    </xsl:when>
-    <!-- CAST -->
-    <xsl:when test="$name='cast'">
-     <xsl:text>(</xsl:text>
-     <xsl:apply-templates mode="inline" select="*[position()=2]"/>
-     <xsl:text>:></xsl:text>
-     <xsl:apply-templates mode="inline" select="*[position()=3]"/>
-     <xsl:text>)</xsl:text>
-    </xsl:when>
-    <xsl:when test="$name='Prop'">
-     <FONT color="violet">Prop</FONT>
-    </xsl:when>
-    <xsl:when test="$name='Set'">
-     <FONT color="violet">Set</FONT>
-    </xsl:when>
-    <xsl:when test="$name='Type'">
-     <FONT color="violet">Type</FONT>
-    </xsl:when>
-    <!-- MUTCASE -->
-    <xsl:when test="$name='mutcase'">
-     <xsl:text>&lt;</xsl:text> 
-     <xsl:apply-templates mode="inline" select="*[position()=2]"/> 
-     <xsl:text>&gt; </xsl:text>
-     <FONT color="red">CASE </FONT>
-     <xsl:apply-templates mode="inline" select="*[position()=3]"/>
-     <FONT color="red"> OF </FONT>
-<xsl:for-each select="piecewise/piece">
-<!--<xsl:for-each select="*[position() mod 2 = 0 and position()>3]">-->
-      <xsl:choose>
-       <xsl:when test="not(position() = 1)">
-        <xsl:text> | </xsl:text> 
-       </xsl:when> 
-      </xsl:choose>
-<xsl:apply-templates mode="inline" select="./*[2]"/>
-      <xsl:call-template name="mksymbol-1">
-       <xsl:with-param name="symbol" select="'RightArrow'"/>
-       <xsl:with-param name="color" select="'green'"/>
-       <xsl:with-param name="size" select="'+0'"/>
-      </xsl:call-template>
-      <xsl:apply-templates mode="inline"
-           select="./*[1]"/>
-     </xsl:for-each>
-    </xsl:when>
-    <!-- FIX -->
-    <xsl:when test="$name='fix'">
-     <FONT color="red">FIX</FONT>
-     <xsl:value-of select="m:ci"/>
-     <xsl:text>{</xsl:text>
-     <xsl:for-each select="m:bvar"> 
-      <xsl:value-of select="m:ci"/>
-      <xsl:text>:</xsl:text>
-      <xsl:apply-templates mode="inline" select="m:type"/>
-      <xsl:text>:=</xsl:text>
-      <xsl:apply-templates mode="inline" 
-             select="following-sibling::*[position() = 1]"/>
-      <xsl:choose>
-       <xsl:when test="position()=last()">
-        <xsl:text>}</xsl:text>
-       </xsl:when>
-       <xsl:otherwise>
-        <xsl:text>;</xsl:text>
-       </xsl:otherwise>
-      </xsl:choose>
-     </xsl:for-each>
-    </xsl:when>
-    <!-- COFIX -->
-    <xsl:when test="$name='cofix'">
-     <xsl:text>COFIX</xsl:text>
-     <xsl:value-of select="m:ci"/>
-     <xsl:text>{</xsl:text>
-     <xsl:for-each select="m:bvar"> 
-      <xsl:value-of select="m:ci"/>
-      <xsl:text>:</xsl:text>
-      <xsl:apply-templates mode="inline" select="m:type"/>
-      <xsl:text>:=</xsl:text>
-      <xsl:apply-templates mode="inline" 
-          select="following-sibling::*[position() = 1]"/>
-      <xsl:choose>
-       <xsl:when test="position()=last()">
-        <xsl:text>}</xsl:text>
-       </xsl:when>
-       <xsl:otherwise>
-        <xsl:text>;</xsl:text>
-       </xsl:otherwise>
-      </xsl:choose>
-     </xsl:for-each>
-    </xsl:when>
-    <!-- proof -->
-    <xsl:when test="$name='proof' or $name='side_proof'">
-       <xsl:apply-templates mode="inline" select="*[position()=2]"/>
-       <FONT color="red">&#x00a0;proves&#x00a0;</FONT>
-       <xsl:apply-templates mode="inline" select="*[position()=3]"/>
-    </xsl:when>
-    <xsl:when test="$name='letin1'">
-     <xsl:text>letin1 (inline error)</xsl:text>
-    </xsl:when>
-    <!-- false_ind -->
-    <xsl:when test="$name='false_ind'">
-    <xsl:apply-templates mode="inline" select="*[3]"/>
-    <FONT color="red">Contradiction.</FONT>
-    </xsl:when>
-    <!-- and_ind -->
-    <xsl:when test="$name='and_ind'">
-     <FONT color="red">From&#x00a0;</FONT>
-     <xsl:apply-templates select="*[2]"/>
-     <FONT color="red">&#x00a0;we get</FONT>
-     (
-     <xsl:apply-templates select="*[3]"/>
-     )&#x00a0;
-     <xsl:apply-templates mode="inline" select="*[4]"/>
-     <FONT color="red">&#x00a0;and&#x00a0;</FONT>
-     (
-     <xsl:apply-templates select="*[5]"/>
-     )&#x00a0;
-     <xsl:apply-templates mode="inline" select="*[6]"/>
-     ;
-     <FONT color="red">&#x00a0;hence&#x00a0;</FONT>
-     <xsl:apply-templates mode="inline" select="*[7]"/>
-    </xsl:when>
-
-       <xsl:when test="$name='subst'">
-       <xsl:apply-templates select="*[3]" mode="inline"/>
-       <xsl:text>[</xsl:text>
-       <xsl:apply-templates select="*[4]" mode="inline"/>
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-        </a>
-       </xsl:when>
-       <xsl:otherwise>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-       </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-       <xsl:text>]</xsl:text>
-      </xsl:when>
-
-      <xsl:when test="$name='lift_with_base'">
-       <SUB>
-       <xsl:apply-templates select="*[3]" mode="inline"/>
-       </SUB>
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-         <a href="{$uri}">
-          <xsl:call-template name="mksymbol-1">
-           <xsl:with-param name="symbol" select="$name"/>
-           <xsl:with-param name="color" select="'green'"/>
-           <xsl:with-param name="size" select="'+0'"/>
-          </xsl:call-template>
-         </a>
-       </xsl:when>
-       <xsl:otherwise>
-          <xsl:call-template name="mksymbol-1">
-           <xsl:with-param name="symbol" select="$name"/>
-           <xsl:with-param name="color" select="'green'"/>
-           <xsl:with-param name="size" select="'+0'"/>
-          </xsl:call-template>
-       </xsl:otherwise>
-       </xsl:choose>
-       <SUP>
-       <xsl:apply-templates select="*[4]" mode="inline"/>
-       </SUP>
-       <xsl:text>(</xsl:text>
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-       <xsl:text>)</xsl:text>
-      </xsl:when>
-
-      <xsl:when test="$name='lift'">
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-        </a>
-       </xsl:when>
-       <xsl:otherwise>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-       </xsl:otherwise>
-       </xsl:choose>
-       <SUP>
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-       </SUP>
-       <xsl:text>(</xsl:text>
-       <xsl:apply-templates select="*[3]" mode="inline"/>
-       <xsl:text>)</xsl:text>
-      </xsl:when>
-
-      <!-- reduction --> 
-      <xsl:when test="$name='beta_red1'">
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <SUB>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="'beta'"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         </SUB>
-        </a>
-       </xsl:when>
-       <xsl:otherwise>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <SUB>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="'beta'"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         </SUB>
-       </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[3]" mode="inline"/>
-      </xsl:when>
-
-      <xsl:when test="$name='beta_red'">
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-       <xsl:choose>
-       <xsl:when test="$uri != ''"> 
-        <a href="{$uri}">
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <SUB>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="'beta'"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <xsl:text>*</xsl:text>
-         </SUB>
-        </a>
-       </xsl:when>
-       <xsl:otherwise>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <SUB>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="'beta'"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <xsl:text>*</xsl:text>
-         </SUB>
-       </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[3]" mode="inline"/>
-      </xsl:when>
-
-      <xsl:when test="$name='par_beta_red1'">
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <SUB>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="'beta'"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         </SUB>
-        </a>
-       </xsl:when>
-       <xsl:otherwise>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <SUB>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="'beta'"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         </SUB>
-       </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[3]" mode="inline"/>
-      </xsl:when>
-
-      <xsl:when test="$name='par_beta_red'">
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <SUB>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="'beta'"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <xsl:text>*</xsl:text>
-         </SUB>
-        </a>
-       </xsl:when>
-       <xsl:otherwise>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <SUB>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="'beta'"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <xsl:text>*</xsl:text>
-         </SUB>
-       </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[3]" mode="inline"/>
-      </xsl:when>
-
-      <!-- forgetful -->
-      <xsl:when test="$name='forgetful'">
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">|</a>
-       </xsl:when>
-       <xsl:otherwise>
-        |
-       </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-        <xsl:choose>
-        <xsl:when test="$uri != ''">
-         <a href="{$uri}">|</a>
-        </xsl:when>
-       <xsl:otherwise>
-        |
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
- 
-      <!-- boolean algebra of redexes -->
-
-      <!-- isomorphic -->
-      <xsl:when test="$name='isomorphic'">
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-        </a>
-       </xsl:when>
-       <xsl:otherwise>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-       </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[3]" mode="inline"/>
-      </xsl:when>
-
-      <!-- INTERP -->
-      <xsl:when test="$name='interp'">
-         <font color="green">[</font>
-            <xsl:apply-templates select="*[2]"/>
-         <font color="green">]</font>
-      </xsl:when>
-
-   </xsl:choose>
-</xsl:template>
-
-<xsl:template mode="inline" match="m:lambda">
-      <xsl:call-template name="mksymbol-1">
-       <xsl:with-param name="symbol" select="'lambda'"/>
-       <xsl:with-param name="color" select="'red'"/>
-       <xsl:with-param name="size" select="'+2'"/>
-      </xsl:call-template>
-      <xsl:apply-templates select="m:bvar/m:ci"/>
-      <xsl:text>:</xsl:text>
-      <xsl:apply-templates mode="inline" select="m:bvar/m:type"/>
-      <xsl:text>.</xsl:text>
-      <xsl:apply-templates mode="inline" select="*[position()=2]"/>
-</xsl:template>
-
-<!--*********************************************************************-->
-<!--                       COUNTING MODE                                 -->
-<!--*********************************************************************-->
-
-<xsl:template match="m:apply[m:csymbol]">
-  <xsl:param name="current_indent" select="0"/> 
-  <xsl:param name="width" select="$framewidth"/> 
-  <xsl:variable name="name">
-   <xsl:value-of select="m:csymbol"/>
-  </xsl:variable>
-  <xsl:variable name="charlength">
-   <xsl:apply-templates select="m:csymbol" mode="charcount"/>
-  </xsl:variable>
-     <!-- <xsl:value-of select="$current_indent"/> -->
-     <!-- <xsl:value-of select="$charlength"/> -->
-  <xsl:variable name="uri"><xsl:value-of select="*[1]/@definitionURL"/></xsl:variable>
-     <xsl:choose>
-     <!-- FORALL -->
-      <xsl:when test="$name='forall'">
-       <xsl:choose>
-       <xsl:when test="$charlength > $framewidth">
-         <!-- &#x03a0; -->
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'blue'"/>
-          <xsl:with-param name="size" select="'+2'"/>
-         </xsl:call-template>
-         <xsl:apply-templates select="m:bvar/m:ci"/>
-         <xsl:text>:</xsl:text>
-         <xsl:apply-templates select="m:bvar/m:type">
-          <xsl:with-param name="current_indent" 
-           select="$current_indent + 5 + 2*string-length(m:bvar/m:ci)"/>
-         </xsl:apply-templates>
-         <br/>
-         <xsl:call-template name="make_indent">
-          <xsl:with-param name="current_indent" select="$current_indent + 2"/> 
-         </xsl:call-template>
-         <xsl:text>.</xsl:text>
-         <xsl:apply-templates select="*[position()=3]">
-          <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-         </xsl:apply-templates>
-       </xsl:when>
-       <xsl:otherwise>
-        <xsl:apply-templates mode="inline" select="."/>
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <!-- PROD -->
-      <xsl:when test="$name='prod'">
-       <xsl:choose>
-       <xsl:when test="$charlength > $framewidth">
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'blue'"/>
-          <xsl:with-param name="size" select="'+2'"/>
-         </xsl:call-template>
-         <xsl:apply-templates select="m:bvar/m:ci"/>
-         <xsl:text>:</xsl:text>
-         <xsl:apply-templates select="m:bvar/m:type">
-          <xsl:with-param name="current_indent" 
-           select="$current_indent + 5 + 2*string-length(m:bvar/m:ci)"/>
-         </xsl:apply-templates><br/> 
-         <xsl:call-template name="make_indent">
-          <xsl:with-param name="current_indent" select="$current_indent + 2"/> 
-         </xsl:call-template>
-         <xsl:text>.</xsl:text>
-         <xsl:apply-templates select="*[position()=3]">
-          <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-         </xsl:apply-templates>
-       </xsl:when>
-       <xsl:otherwise>
-        <xsl:apply-templates mode="inline" select="."/>
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <!-- ARROW -->
-      <xsl:when test="$name='arrow'">
-       <xsl:choose>
-       <xsl:when test="$charlength > $framewidth">
-       <xsl:text>(</xsl:text>
-       <xsl:apply-templates select="*[position()=2]">
-        <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-       </xsl:apply-templates>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent + 2"/> 
-       </xsl:call-template>
-       <!-- -> -->
-       <xsl:call-template name="mksymbol-1">
-        <xsl:with-param name="symbol" select="$name"/>
-        <xsl:with-param name="color" select="'blue'"/>
-        <xsl:with-param name="size" select="'+0'"/>
-       </xsl:call-template>
-       <xsl:apply-templates select="*[position()=3]">
-        <xsl:with-param name="current_indent" select="$current_indent + 5"/>
-       </xsl:apply-templates>
-       <xsl:text>)</xsl:text>
-       </xsl:when>
-       <xsl:otherwise>
-        <xsl:apply-templates mode="inline" select="."/>
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <!-- APP -->
-      <xsl:when test="$name='app'">
-       <xsl:choose>
-       <xsl:when test="$charlength  > $framewidth">
-        <xsl:text>(</xsl:text>
-        <xsl:apply-templates select="*[position()=2]">
-         <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-        </xsl:apply-templates>
-         <xsl:for-each select="*[position()>2]">
-          <br/>
-           <xsl:call-template name="make_indent">
-            <xsl:with-param name="current_indent" select="$current_indent + 2"/>         
-           </xsl:call-template>
-            <xsl:apply-templates select=".">
-             <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-            </xsl:apply-templates>
-         </xsl:for-each>
-         <xsl:text>)</xsl:text>
-       </xsl:when>
-       <xsl:otherwise>
-        <xsl:apply-templates mode="inline" select="."/>
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <xsl:when test="$name='cast'">
-       <xsl:choose>
-        <xsl:when test="$showcast = 1">
-         <xsl:choose>
-          <xsl:when test="$charlength > $framewidth">
-           <xsl:text>(</xsl:text>
-           <xsl:apply-templates select="*[position()=2]">
-            <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-           </xsl:apply-templates><br/>
-           <xsl:call-template name="make_indent">
-            <xsl:with-param name="current_indent" select="$current_indent + 2"/>          </xsl:call-template>
-           <xsl:text>:></xsl:text>
-           <xsl:apply-templates select="*[position()=3]">
-            <xsl:with-param name="current_indent" select="$current_indent + 3"/>
-           </xsl:apply-templates>
-           <xsl:text>)</xsl:text>
-          </xsl:when>
-          <xsl:otherwise>
-           <xsl:apply-templates mode="inline" select="."/>
-          </xsl:otherwise>
-         </xsl:choose>
-        </xsl:when>
-        <xsl:otherwise>
-         <xsl:apply-templates select="*[position()=2]">
-          <xsl:with-param name="current_indent" select="$current_indent"/>
-         </xsl:apply-templates>
-        </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <xsl:when test="$name='Prop'">
-       <xsl:text>Prop</xsl:text>
-      </xsl:when>
-      <xsl:when test="$name='Set'">
-       <xsl:text>Set</xsl:text>
-      </xsl:when>
-      <xsl:when test="$name='Type'">
-       <xsl:text>Type</xsl:text>
-      </xsl:when>
-      <xsl:when test="$name='mutcase'">
-       <xsl:choose>
-       <xsl:when test="$charlength > $framewidth">
-         <xsl:text>&lt;</xsl:text>
-         <xsl:apply-templates select="*[position()=2]">
-          <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-         </xsl:apply-templates>
-         <xsl:text>&gt; </xsl:text>
-         <br/>
-         <xsl:call-template name="make_indent">
-          <xsl:with-param name="current_indent" select="$current_indent + 2"/>           </xsl:call-template>
-         <xsl:text>CASE </xsl:text>
-         <xsl:apply-templates select="*[position()=3]">
-          <xsl:with-param name="current_indent" select="$current_indent + 8"/>
-         </xsl:apply-templates>
-         <xsl:text> OF </xsl:text> 
-         <xsl:for-each select="piecewise/piece">
-    <!--   <xsl:for-each select="*[position() mod 2 = 0 and position()>3]">-->
-         <br/>
-         <xsl:call-template name="make_indent">
-          <xsl:with-param name="current_indent" select="$current_indent + 2"/> 
-         </xsl:call-template> 
-            <xsl:choose>
-            <xsl:when test="position() = 1">
-             <xsl:text>&#x00A0;&#x00A0;</xsl:text>
-            </xsl:when>
-            <xsl:otherwise>
-             <xsl:text>| </xsl:text>
-            </xsl:otherwise>
-            </xsl:choose>
-          <xsl:apply-templates select="./*[2]"/>
-            <xsl:call-template name="mksymbol-1">
-             <xsl:with-param name="symbol" select="'RightArrow'"/>
-             <xsl:with-param name="color" select="'green'"/>
-             <xsl:with-param name="size" select="'+0'"/>
-            </xsl:call-template>
-            <xsl:variable name="body_size">
-  <xsl:apply-templates 
-              select="./*[1]/*[1]" mode="charcount"/>
-            </xsl:variable>
-            <xsl:choose>
-             <xsl:when test="$body_size > $framewidth">
-              <br/>
-              <xsl:call-template name="make_indent">
-               <xsl:with-param name="current_indent" 
-                    select="$current_indent + 8"/>   
-              </xsl:call-template>
-<xsl:apply-templates 
-                   select="./*[1]">
-              <xsl:with-param name="current_indent" 
-                   select="$current_indent + 8"/>      
-             </xsl:apply-templates>
-            </xsl:when>
-            <xsl:otherwise>
-     <xsl:apply-templates select="./*[1]"
-                   mode="inline" />
-            </xsl:otherwise>
-           </xsl:choose>
-         </xsl:for-each>
-       </xsl:when>
-       <xsl:otherwise>
-        <xsl:apply-templates mode="inline" select="."/> 
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <!-- FIX -->
-      <xsl:when test="$name='fix'">
-       <xsl:choose>
-       <xsl:when test="$charlength  > $framewidth">
-            <xsl:text>FIX</xsl:text>
-            <xsl:value-of select="m:ci"/>
-            <xsl:text>{</xsl:text> 
-            <xsl:for-each select="m:bvar"> 
-              <br/>
-              <xsl:call-template name="make_indent">
-               <xsl:with-param name="current_indent" select="$current_indent + 2"/>  
-              </xsl:call-template>
-              <xsl:value-of select="m:ci"/>
-              <xsl:text>:</xsl:text>
-              <xsl:apply-templates select="m:type">
-               <xsl:with-param name="current_indent" 
-                    select="$current_indent + 5 + string-length(m:ci)"/>
-               </xsl:apply-templates>
-              <br/>
-              <xsl:call-template name="make_indent">
-               <xsl:with-param name="current_indent" select="$current_indent + 2"/>       
-              </xsl:call-template>
-              <xsl:text>:=</xsl:text> 
-              <xsl:apply-templates select="following-sibling::*[position() = 1]">
-               <xsl:with-param name="current_indent" select="$current_indent +2"/>
-              </xsl:apply-templates>
-            </xsl:for-each>
-             <br/>
-              <xsl:call-template name="make_indent">
-               <xsl:with-param name="current_indent" select="$current_indent + 2"/>       
-              </xsl:call-template> 
-           <xsl:text>}</xsl:text>
-       </xsl:when>
-       <xsl:otherwise>
-        <xsl:apply-templates mode="inline" select="."/>
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when> 
-      <!-- COFIX -->
-      <xsl:when test="$name='cofix'">
-       <xsl:choose>
-       <xsl:when test="($charlength + 10) > $framewidth">
-            <xsl:text>COFIX</xsl:text>
-            <xsl:value-of select="m:ci"/>
-            <xsl:text>{</xsl:text>
-            <br/>
-            <xsl:call-template name="make_indent">
-             <xsl:with-param name="current_indent" select="$current_indent + 2"/>       
-            </xsl:call-template>
-            <xsl:for-each select="m:bvar"> 
-                <xsl:value-of select="m:ci"/>
-                <xsl:text>:</xsl:text>
-                <xsl:apply-templates select="m:type">
-                 <xsl:with-param name="current_indent" 
-                    select="$current_indent + 5 + string-length(m:ci)"/>
-                </xsl:apply-templates>
-                <br/> 
-                <xsl:call-template name="make_indent">
-                 <xsl:with-param name="current_indent" select="$current_indent + 2"/>       
-                </xsl:call-template>
-                <xsl:text>:=</xsl:text>
-                <xsl:apply-templates select="following-sibling::*[position() = 1]">
-                 <xsl:with-param name="current_indent" select="$current_indent + 3"/>
-                </xsl:apply-templates>
- 
-            </xsl:for-each>
-            <br/>
-              <xsl:call-template name="make_indent">
-               <xsl:with-param name="current_indent" select="$current_indent + 2"/>       
-              </xsl:call-template>
-            <xsl:text>}</xsl:text>
-       </xsl:when>
-       <xsl:otherwise>
-        <xsl:apply-templates mode="inline" select="m:type"/>
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <xsl:when test="$name='let_in'">
-       <xsl:text>let&#x00a0;</xsl:text>
-       <xsl:apply-templates select="m:bvar/m:ci"/>
-       <xsl:text>&#x00a0;:=&#x00a0;</xsl:text>
-       <xsl:apply-templates select="*[3]">
-        <xsl:with-param name="current_indent" select="$current_indent+14"/>
-       </xsl:apply-templates>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       <xsl:text>in&#x00a0;</xsl:text>
-       <xsl:apply-templates select="*[4]">
-        <xsl:with-param name="current_indent" select="$current_indent+5"/>
-       </xsl:apply-templates>
-      </xsl:when>
-
-      <!-- ***************************************** -->
-      <!-- *********** PROOF ELEMENTS ************** -->
-      <!-- ***************************************** -->
-      <!-- PROOF -->
-      <xsl:when test="$name='proof'">
-       <xsl:variable name="nonce" select="generate-id()"/>
-       <xsl:variable name="freshid1" select="concat('a',$nonce)"/>
-       <xsl:variable name="freshid2" select="concat('b',$nonce)"/>
-       <xsl:variable name="freshid3" select="concat('c',$nonce)"/>
-       <span ID="{$freshid1}">
-        <xsl:apply-templates select="*[position()=2]">
-         <xsl:with-param name="current_indent" select="$current_indent"/>
-        </xsl:apply-templates>
-        &#x00a0;
-       </span>
-       <xsl:choose>
-        <xsl:when test="(preceding-sibling::*[1]/text()='letin1') or
-                        (preceding-sibling::*[1]/text()='rw_step') or
-                        (name(..)='m:lambda')">
-         <br/>
-         <xsl:call-template name="make_indent">
-          <xsl:with-param name="current_indent" select="$current_indent"/>
-         </xsl:call-template>
-         <FONT color="red">we proved&#x00a0;</FONT> 
-        </xsl:when>
-        <xsl:otherwise>
-         <script>
-          if(document.getElementById) {
-           document.write('\
-            <span ID="{$freshid2}">\
-             <a style="text-decoration:underline ; color:green" href="" onClick="Show(document.getElementById(\'{$freshid1}\')); Hide(document.getElementById(\'{$freshid2}\'));Show(document.getElementById(\'{$freshid3}\'));return (0==1);">Proof of</a>\
-            </span>\
-            <span ID="{$freshid3}">\
-             <br/>\
-             <xsl:call-template name="make_indent">
-              <xsl:with-param name="current_indent" select="$current_indent"/>
-             </xsl:call-template>\
-             <a style="text-decoration:underline ; color:red" href="" onClick="Hide(document.getElementById(\'{$freshid1}\')); Show(document.getElementById(\'{$freshid2}\'));Hide(document.getElementById(\'{$freshid3}\'));return (0==1);">we proved</a>\
-            </span>\
-           ');
-           document.to_be_deleted.push('<xsl:value-of select="$freshid1"/>');
-           document.to_be_deleted.push('<xsl:value-of select="$freshid3"/>');
-           document.write('&#x00a0;');
-          } else {
-           document.write('\
-            <br/>\
-            <xsl:call-template name="make_indent">
-             <xsl:with-param name="current_indent" select="$current_indent"/>
-            </xsl:call-template>\
-            <FONT color="red">we proved&#x00a0;</FONT>\
-           ');
-          }
-         </script>
-        </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[position()=3]">
-        <xsl:with-param name="current_indent" select="$current_indent + 16"/>
-       </xsl:apply-templates>
-      </xsl:when>
-      <!-- side_proof -->
-      <xsl:when test="$name='side_proof'">
-       <xsl:variable name="nonce" select="generate-id()"/>
-       <xsl:variable name="freshid1" select="concat('a',$nonce)"/>
-       <xsl:variable name="freshid2" select="concat('b',$nonce)"/>
-       <xsl:variable name="freshid3" select="concat('c',$nonce)"/>
-       <xsl:variable name="freshid4" select="concat('d',$nonce)"/>
-       <span ID="{$freshid1}">
-        <xsl:apply-templates select="*[position()=2]">
-         <xsl:with-param name="current_indent" select="$current_indent"/>
-        </xsl:apply-templates>
-        &#x00a0;
-       </span>
-         <script>
-          if(document.getElementById) {
-           document.write('\
-            <span ID="{$freshid2}">\
-             <a style="text-decoration:underline ; color:green" href="" onClick="Show(document.getElementById(\'{$freshid1}\')); Hide(document.getElementById(\'{$freshid2}\'));Show(document.getElementById(\'{$freshid3}\'));Show(document.getElementById(\'{$freshid4}\'));return (0==1);">Justification</a>\
-            </span>\
-            <span ID="{$freshid3}">\
-             <br/>\
-             <xsl:call-template name="make_indent">
-              <xsl:with-param name="current_indent" select="$current_indent"/>
-             </xsl:call-template>\
-             <a style="text-decoration:underline ; color:red" href="" onClick="Hide(document.getElementById(\'{$freshid1}\')); Show(document.getElementById(\'{$freshid2}\'));Hide(document.getElementById(\'{$freshid3}\'));Hide(document.getElementById(\'{$freshid4}\'));return (0==1);">we proved</a>\
-            </span>\
-           ');
-           document.to_be_deleted.push('<xsl:value-of select="$freshid1"/>');
-           document.to_be_deleted.push('<xsl:value-of select="$freshid3"/>');
-           document.to_be_deleted.push('<xsl:value-of select="$freshid4"/>');
-           document.write('&#x00a0;');
-          } else {
-           document.write('\
-            <br/>\
-            <xsl:call-template name="make_indent">
-             <xsl:with-param name="current_indent" select="$current_indent"/>
-            </xsl:call-template>\
-            <FONT color="red">we proved&#x00a0;</FONT>\
-           ');
-          }
-         </script>
-       <span ID="{$freshid4}">
-        <xsl:apply-templates select="*[position()=3]">
-         <xsl:with-param name="current_indent" select="$current_indent + 16"/>
-        </xsl:apply-templates>
-       </span>
-      </xsl:when> 
-      <!-- eq_chain -->
-      <xsl:when test="$name='eq_chain'">
-       <FONT color="red">We have the following equality chain:</FONT>
-       <xsl:for-each select="*[position() mod 2 = 0]">
-        <xsl:variable name="pos" select="position()"/>
-        <br/>
-        <xsl:call-template name="make_indent">
-         <xsl:with-param name="current_indent" select="$current_indent + 5"/>
-        </xsl:call-template>
-        <xsl:choose>
-         <xsl:when test="$pos=1">
-          <xsl:apply-templates select=".">
-           <xsl:with-param name="current_indent" select="$current_indent + 5"/>
-          </xsl:apply-templates>
-          <xsl:text>&#x00a0;=</xsl:text>
-         </xsl:when>
-         <xsl:otherwise>
-          <xsl:text>=&#x00a0;</xsl:text>
-          <xsl:apply-templates select=".">
-           <xsl:with-param name="current_indent" select="$current_indent + 5"/>
-          </xsl:apply-templates>
-         </xsl:otherwise>
-        </xsl:choose>
-        <xsl:if test="$pos != last()">
-         <br/>
-         <xsl:call-template name="make_indent">
-          <xsl:with-param name="current_indent" select="$current_indent + 15"/>
-         </xsl:call-template>
-         <xsl:apply-templates select="../*[position()=2*$pos +1]">
-          <xsl:with-param name="current_indent" select="$current_indent + 15"/>
-         </xsl:apply-templates>
-        </xsl:if>
-       </xsl:for-each>
-      </xsl:when>
-       <!-- diseq_chain -->
-      <xsl:when test="$name='diseq_chain'">
-       <FONT color="red">We have the following chain of disequalities:</FONT>
-       <xsl:for-each select="*[position() mod 3 = 2]">
-        <xsl:variable name="pos" select="position()"/>
-        <br/>
-        <xsl:call-template name="make_indent">
-         <xsl:with-param name="current_indent" select="$current_indent + 5"/>
-        </xsl:call-template>
-        <xsl:choose>
-         <xsl:when test="$pos=1">
-          <xsl:apply-templates select=".">
-           <xsl:with-param name="current_indent" select="$current_indent + 5"/>
-          </xsl:apply-templates>
-          <xsl:text>&#x00a0;</xsl:text>
-          <xsl:apply-templates mode="inline" select="../*[position()=3*$pos]"/>
-         </xsl:when>
-         <xsl:otherwise>
-          <xsl:apply-templates mode="inline" select="../*[position()=3*($pos - 1)]"/>
-          <xsl:text>&#x00a0;</xsl:text>
-          <xsl:apply-templates select=".">
-           <xsl:with-param name="current_indent" select="$current_indent + 5"/>
-          </xsl:apply-templates>
-         </xsl:otherwise>
-        </xsl:choose>
-        <xsl:if test="$pos != last()">
-         <br/>
-         <xsl:call-template name="make_indent">
-          <xsl:with-param name="current_indent" select="$current_indent + 15"/>
-         </xsl:call-template>
-         <xsl:apply-templates select="../*[position()=3*$pos +1]">
-          <xsl:with-param name="current_indent" select="$current_indent + 15"/>
-         </xsl:apply-templates>
-        </xsl:if>
-       </xsl:for-each>
-      </xsl:when>
-      <!-- letin1 -->
-      <xsl:when test="$name='letin1'">
-       <xsl:apply-templates select="*[position()=2]">
-        <xsl:with-param name="current_indent" select="$current_indent"/>
-       </xsl:apply-templates>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       <xsl:apply-templates select="*[position()=3]">
-        <xsl:with-param name="current_indent" select="$current_indent"/>
-       </xsl:apply-templates>
-      </xsl:when>
-      <!-- letin -->
-      <xsl:when test="$name='letin'">
-       <xsl:for-each select="*[position()>1 and last()>position()]">
-        <xsl:apply-templates select=".">
-         <xsl:with-param name="current_indent" select="$current_indent"/>
-        </xsl:apply-templates>
-        <br/>
-        <xsl:call-template name="make_indent">
-         <xsl:with-param name="current_indent" select="$current_indent"/> 
-        </xsl:call-template>
-       </xsl:for-each>
-       <xsl:apply-templates select="*[position()=last()]">
-        <xsl:with-param name="current_indent" select="$current_indent"/>
-       </xsl:apply-templates>
-      </xsl:when>
-      <!-- Let -->
-      <xsl:when test="$name='let'">
-       (
-       <xsl:apply-templates select="m:ci"/>
-       )
-       <xsl:apply-templates select="*[3]">
-        <xsl:with-param name="current_indent" select="$current_indent + 7"/>
-       </xsl:apply-templates>
-      </xsl:when>
-      <!-- rw_step -->
-      <xsl:when test="$name='rw_step'">
-       <xsl:choose>
-        <xsl:when test="name(*[2])='m:apply'">
-         <xsl:apply-templates select="*[2]">
-          <xsl:with-param name="current_indent" select="$current_indent"/>
-         </xsl:apply-templates>
-        </xsl:when>
-        <xsl:otherwise>
-         <FONT color="red">Consider&#x00a0;</FONT>
-         <xsl:apply-templates select="*[2]"/>
-        </xsl:otherwise>
-       </xsl:choose>
-       <xsl:variable name="charlength_first">
-        <xsl:apply-templates select="*[3]" mode="root_charcount"/>
-       </xsl:variable>
-       <xsl:variable name="charlength_second">
-        <xsl:apply-templates select="*[4]" mode="root_charcount"/>
-       </xsl:variable>
-       <xsl:variable name="charlength_side_proof">
-        <xsl:apply-templates select="*[5]" mode="root_charcount"/>
-       </xsl:variable>
-       <xsl:variable name="split1"
-         select="($charlength_first + $charlength_second) > $framewidth"/>
-       <xsl:variable name="split2"
-         select="($charlength_second + $charlength_side_proof) > $framewidth"/>
-     <!-- <xsl:value-of select="$current_indent"/> -->
-     <!-- <xsl:value-of select="string($charlength_second)"/>  -->
-     <!-- <xsl:value-of select="$charlength_side_proof"/>  -->
-     <!-- <xsl:value-of select="$split2"/>  -->
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       <FONT color="red">Rewrite&#x00a0;</FONT>
-       <xsl:apply-templates mode="inline" select="*[3]"/>
-       <xsl:text>&#x00a0;</xsl:text>
-       <xsl:if test="$split1">
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent + 2"/> 
-       </xsl:call-template>
-       </xsl:if>
-       <FONT color="red">with&#x00a0;</FONT>
-       <xsl:apply-templates mode="inline" select="*[4]"/>
-       <xsl:text>&#x00a0;</xsl:text>
-       <xsl:if test="$split2">
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent + 2"/> 
-       </xsl:call-template>
-       </xsl:if>
-       <FONT color="red">by&#x00a0;</FONT>
-       <xsl:apply-templates select="*[5]">
-        <xsl:with-param name="current_indent" select="$current_indent+7"/>
-       </xsl:apply-templates>
-      </xsl:when>
-      <!-- rewrite and apply -->
-      <xsl:when test="$name='rewrite_and_apply'">
-       <xsl:apply-templates select="*[2]">
-        <xsl:with-param name="current_indent" select="$current_indent"/>
-       </xsl:apply-templates>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       <FONT color="red">Then apply it to&#x00a0;</FONT>
-       <xsl:apply-templates select="*[position()>2]"/>
-      </xsl:when>
-      <!-- by_induction -->
-      <xsl:when test="$name='by_induction'">
-       <FONT color="red">We prove&#x00a0;</FONT>
-       <xsl:apply-templates select="../*[3]">
-        <xsl:with-param name="current_indent" select="$current_indent+18"/>
-       </xsl:apply-templates>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       <FONT color="red">by induction on&#x00a0;</FONT>
-       <xsl:apply-templates select="*[position()=last()]/*[position()=last()]">
-        <xsl:with-param name="current_indent" select="$current_indent+30"/>
-       </xsl:apply-templates>
-       <!-- 
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       <xsl:text>The induction property is</xsl:text>
-       <br/> 
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       <xsl:apply-templates select="*[3]">
-        <xsl:with-param name="current_indent" select="$current_indent"/>
-       </xsl:apply-templates>
-       -->
-       <xsl:apply-templates 
-            select="*[position()>3 and not(position()=last())]">
-        <xsl:with-param name="current_indent" select="$current_indent+4"/>
-       </xsl:apply-templates>
-       <!-- <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       <xsl:text>End induction</xsl:text> -->
-      </xsl:when>
-      <!-- inductive_case -->
-      <xsl:when test="$name='inductive_case'">
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       <FONT color="red">Case&#x00a0;</FONT>
-       <xsl:apply-templates select="*[2]">
-        <xsl:with-param name="current_indent" select="$current_indent +10"/>
-       </xsl:apply-templates>
-       <xsl:if test="*[3]/*[position()>1]">
-        <br/>
-        <xsl:call-template name="make_indent">
-         <xsl:with-param name="current_indent" select="$current_indent+4"/> 
-        </xsl:call-template>
-        <FONT color="red">By induction hypothesis, we have:</FONT>
-        <xsl:for-each select="*[3]/*[position()>1]">
-         <br/>
-         <xsl:call-template name="make_indent">
-          <xsl:with-param name="current_indent" select="$current_indent + 4"/> 
-         </xsl:call-template>
-         <xsl:text>(</xsl:text>
-         <xsl:apply-templates select="m:ci"/>
-         <xsl:text>)&#x00a0;</xsl:text>
-         <xsl:apply-templates select="m:type">
-          <xsl:with-param name="current_indent" select="$current_indent + 8"/>
-         </xsl:apply-templates>
-        </xsl:for-each>
-       </xsl:if>
-       <br/>
-        <xsl:call-template name="make_indent">
-         <xsl:with-param name="current_indent" select="$current_indent + 4"/> 
-        </xsl:call-template>
-       <xsl:apply-templates select="*[4]">
-        <xsl:with-param name="current_indent" select="$current_indent +4"/>
-       </xsl:apply-templates>
-       <!-- <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       <xsl:text>End Case</xsl:text> -->
-      </xsl:when>
-      <!-- case_lhs  -->
-      <xsl:when test="$name='case_lhs'">
-       <xsl:choose>
-        <xsl:when test="count(*)=2">
-         <xsl:apply-templates mode="inline" select="*[2]"/>
-        </xsl:when>
-        <xsl:otherwise>
-         <xsl:text>(</xsl:text>
-         <xsl:apply-templates mode="inline" select="*[2]"/>
-         <xsl:for-each select="m:bvar">
-          <xsl:text>&#x00a0;</xsl:text>
-          <xsl:apply-templates mode="inline" select="*[1]"/>
-          <xsl:text>:</xsl:text>
-          <xsl:apply-templates mode="inline" select="m:type/*[1]"/>
-         </xsl:for-each>
-         <xsl:text>)</xsl:text>
-        </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <!-- false_ind -->
-      <xsl:when test="$name='false_ind'">
-       <xsl:apply-templates select="*[3]">
-        <xsl:with-param name="current_indent" select="$current_indent"/>
-       </xsl:apply-templates> 
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template> 
-       <FONT color="red">Contradiction.</FONT>
-      </xsl:when>
-      <!-- and_ind -->
-      <xsl:when test="$name='and_ind'">
-       <xsl:choose>
-        <xsl:when test="name(*[2])='m:apply'">
-         <xsl:apply-templates select="*[2]">
-          <xsl:with-param name="current_indent" select="$current_indent"/>
-         </xsl:apply-templates>      
-        </xsl:when>
-        <xsl:otherwise>
-         <FONT color="red">Consider&#x00a0;</FONT>
-         <xsl:apply-templates select="*[2]"/>
-        </xsl:otherwise>
-       </xsl:choose>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       <FONT color="red">In particular, we have</FONT>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       (
-       <xsl:apply-templates select="*[3]"/>
-       )&#x00a0;
-       <xsl:apply-templates select="*[4]">
-        <xsl:with-param name="current_indent" select="$current_indent + 9"/> 
-       </xsl:apply-templates>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       (
-       <xsl:apply-templates select="*[5]"/>
-       )&#x00a0;
-       <xsl:apply-templates select="*[6]">
-        <xsl:with-param name="current_indent" select="$current_indent + 9"/> 
-       </xsl:apply-templates>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       <xsl:apply-templates select="*[7]">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:apply-templates>
-      </xsl:when>
-      <!-- full_or_ind -->
-      <xsl:when test="$name='full_or_ind'">
-       <xsl:choose>
-        <xsl:when test="name(*[2])='m:apply'">
-         <xsl:apply-templates select="*[2]">
-          <xsl:with-param name="current_indent" select="$current_indent"/> 
-         </xsl:apply-templates>
-        </xsl:when>
-        <xsl:otherwise>
-         <FONT color="red">Consider&#x00a0;</FONT>
-         <xsl:apply-templates select="*[2]"/>
-        </xsl:otherwise>
-       </xsl:choose>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       <FONT color="red">We proceed by cases to prove&#x00a0;</FONT>
-       <xsl:apply-templates select="*[3]"/>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent+4"/> 
-       </xsl:call-template>
-       <FONT color="red">Left: suppose&#x00a0;</FONT>
-       <xsl:text>(</xsl:text>
-       <xsl:value-of select="*[4]/m:bvar/m:ci"/>
-       <xsl:text>)&#x00a0;</xsl:text>
-       <xsl:apply-templates 
-            select="*[4]/m:bvar/m:type/*[1]"/>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent+15"/> 
-       </xsl:call-template>
-       <xsl:apply-templates 
-            select="*[4]/*[3]">
-        <xsl:with-param name="current_indent" select="$current_indent+15"/>
-       </xsl:apply-templates>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent+4"/> 
-       </xsl:call-template>
-       <FONT color="red">Right: suppose&#x00a0;</FONT>
-       <xsl:text>(</xsl:text>
-       <xsl:value-of select="*[5]/m:bvar/m:ci"/>
-       <xsl:text>)&#x00a0;</xsl:text>
-       <xsl:apply-templates 
-            select="*[5]/m:bvar/m:type/*[1]"/>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent+16"/> 
-       </xsl:call-template>
-       <xsl:apply-templates 
-            select="*[5]/*[3]">
-        <xsl:with-param name="current_indent" select="$current_indent+16"/>
-       </xsl:apply-templates>
-      </xsl:when>
-      <!-- or_ind -->
-      <xsl:when test="$name='or_ind'">
-       <xsl:choose>
-        <xsl:when test="name(*[2])='m:apply'">
-         <xsl:apply-templates select="*[2]">
-          <xsl:with-param name="current_indent" select="$current_indent"/> 
-         </xsl:apply-templates>
-        </xsl:when>
-        <xsl:otherwise>
-         <FONT color="red">Consider&#x00a0;</FONT>
-         <xsl:apply-templates select="*[2]"/>
-        </xsl:otherwise>
-       </xsl:choose>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       <FONT color="red">We prove&#x00a0;</FONT>
-       <xsl:apply-templates select="*[3]"/>
-       <FONT color="red">&#x00a0;by cases:</FONT>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       Left:&#x00a0;
-       <xsl:apply-templates select="*[4]">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:apply-templates>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       Right:&#x00a0;
-       <xsl:apply-templates select="*[5]">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:apply-templates>
-      </xsl:when>
-      <!-- Ex_ind -->
-      <xsl:when test="$name='ex_ind'">
-       <xsl:choose>
-        <xsl:when test="name(*[2])='m:apply'">
-         <xsl:apply-templates select="*[2]">
-          <xsl:with-param name="current_indent" select="$current_indent"/>
-         </xsl:apply-templates>
-        </xsl:when>
-        <xsl:otherwise>
-         <FONT color="red">Consider&#x00a0;</FONT>
-         <xsl:apply-templates select="*[2]">
-          <xsl:with-param name="current_indent" select="$current_indent"/>
-         </xsl:apply-templates>
-        </xsl:otherwise>
-       </xsl:choose>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       <FONT color="red">Let&#x00a0;</FONT>
-       <xsl:apply-templates mode="inline" select="*[3]"/>
-       :
-       <xsl:apply-templates mode="inline" select="*[4]"/>
-       <FONT color="red">&#x00a0;such that</FONT>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       (
-       <xsl:apply-templates mode="inline" select="*[5]"/>
-       )
-       <xsl:apply-templates select="*[6]">
-        <xsl:with-param name="current_indent" select="$current_indent +7"/>
-       </xsl:apply-templates>
-       <br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent"/> 
-       </xsl:call-template>
-       <xsl:apply-templates select="*[7]">
-        <xsl:with-param name="current_indent" select="$current_indent"/>
-       </xsl:apply-templates>
-      </xsl:when>
-      <!-- ***************************************** -->
-      <!-- *********** LAMBDA ELEMENTS ************** -->
-      <!-- ***************************************** -->
-      <xsl:when test="$name='subst'">
-       <xsl:apply-templates select="*[3]"/>
-       <xsl:text>[</xsl:text>
-       <xsl:apply-templates select="*[4]"/>
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'blue'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-        </a>
-       </xsl:when>
-       <xsl:otherwise>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'blue'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-       </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[2]"/>
-       <xsl:text>]</xsl:text>
-      </xsl:when>
-
-      <xsl:when test="$name='lift_with_base'">
-       <SUB>
-       <xsl:apply-templates select="*[3]" mode="inline"/>
-       </SUB>
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-        </a>
-       </xsl:when>
-       <xsl:otherwise>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-       </xsl:otherwise>
-       </xsl:choose>
-       <SUP>
-       <xsl:apply-templates select="*[4]" mode="inline"/>
-       </SUP>
-       <xsl:text>(</xsl:text>
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-       <xsl:text>)</xsl:text>
-      </xsl:when>
-
-      <xsl:when test="$name='lift'">
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-        </a>
-       </xsl:when>
-       <xsl:otherwise>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-       </xsl:otherwise>
-       </xsl:choose>
-       <SUP>
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-       </SUP>
-       <xsl:text>(</xsl:text>
-       <xsl:apply-templates select="*[3]" mode="inline"/>
-       <xsl:text>)</xsl:text>
-      </xsl:when>
-
-      <!-- reduction --> 
-      <xsl:when test="$name='beta_red1'">
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <SUB>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="'beta'"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         </SUB>
-        </a>
-       </xsl:when>
-       <xsl:otherwise>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <SUB>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="'beta'"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         </SUB>
-       </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[3]" mode="inline"/>
-      </xsl:when>
- 
-      <xsl:when test="$name='beta_red'">
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <SUB>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="'beta'"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <xsl:text>*</xsl:text>
-         </SUB>
-        </a>
-       </xsl:when>
-       <xsl:otherwise>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <SUB>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="'beta'"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <xsl:text>*</xsl:text>
-         </SUB>
-       </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[3]" mode="inline"/>
-      </xsl:when>
-
-      <xsl:when test="$name='par_beta_red1'">
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <SUB>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="'beta'"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         </SUB>
-        </a>
-       </xsl:when>
-       <xsl:otherwise>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <SUB>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="'beta'"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         </SUB>
-       </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[3]" mode="inline"/>
-      </xsl:when>
-
-      <xsl:when test="$name='par_beta_red'">
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <SUB>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="'beta'"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <xsl:text>*</xsl:text>
-         </SUB>
-        </a>
-       </xsl:when>
-       <xsl:otherwise>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <SUB>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="'beta'"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-         <xsl:text>*</xsl:text>
-         </SUB>
-       </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[3]" mode="inline"/>
-      </xsl:when>
-
-      <!-- forgetful -->
-      <xsl:when test="$name='forgetful'">
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">|</a>
-       </xsl:when>
-       <xsl:otherwise>
-        |
-       </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">|</a>
-       </xsl:when>
-       <xsl:otherwise>
-        |
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
- 
-      <!-- boolean algebra of redexes -->
-
-      <!-- isomorphic -->
-      <xsl:when test="$name='isomorphic'">
-       <xsl:apply-templates select="*[2]" mode="inline"/>
-       <xsl:choose>
-       <xsl:when test="$uri != ''">
-        <a href="{$uri}">
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-        </a>
-       </xsl:when>
-       <xsl:otherwise>
-         <xsl:call-template name="mksymbol-1">
-          <xsl:with-param name="symbol" select="$name"/>
-          <xsl:with-param name="color" select="'green'"/>
-          <xsl:with-param name="size" select="'+0'"/>
-         </xsl:call-template>
-       </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[3]" mode="inline"/>
-      </xsl:when>
-
-      <!-- INTERP -->
-      <xsl:when test="$name='interp'">
-         <font color="green">[</font>
-            <xsl:apply-templates select="*[2]"/>
-         <font color="green">]</font>
-      </xsl:when>
-
-     </xsl:choose>
-</xsl:template>
-
-<!-- LAMBDA -->
-
-<xsl:template match="m:lambda">
-<xsl:param name="current_indent" select="0"/>
-    <xsl:variable name="charlength">
-     <xsl:apply-templates select="*[position()=1]" mode="charcount"/>
-     <!-- <xsl:apply-templates select="." mode="charcount"/> -->
-    </xsl:variable>
-    <!-- <xsl:value-of select="$charlength"/> -->
-    <!-- <xsl:value-of select="$current_indent"/> -->
-     <xsl:choose>
-     <xsl:when test="$charlength > $framewidth">
-       <!-- &#x03bb; -->
-       <xsl:call-template name="mksymbol-1">
-        <xsl:with-param name="symbol" select="'lambda'"/>
-        <xsl:with-param name="color" select="'red'"/>
-        <xsl:with-param name="size" select="'+2'"/>
-       </xsl:call-template>
-       <xsl:apply-templates select="m:bvar/m:ci"/>
-       <xsl:text>:</xsl:text>
-       <xsl:apply-templates select="m:bvar/m:type">
-        <xsl:with-param name="current_indent" 
-           select="$current_indent + 4 + 2*string-length(m:bvar/m:ci)"/>
-       </xsl:apply-templates><br/>
-       <xsl:call-template name="make_indent">
-        <xsl:with-param name="current_indent" select="$current_indent + 2"/>       
-       </xsl:call-template>
-       <xsl:text>.</xsl:text>
-       <xsl:apply-templates select="*[position()=2]">
-        <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-       </xsl:apply-templates>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-templates mode="inline" select="."/>
-     </xsl:otherwise>
-     </xsl:choose>
-</xsl:template>
-
-<!-- href -->
-<xsl:template match="m:ci">
- <xsl:choose>
-  <xsl:when test="boolean(@definitionURL)">
-   <a href="{@definitionURL}">
-   <xsl:apply-templates/>
-   </a>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:value-of select="."/>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<!-- CHAR COUNTING -->
-
-<!-- enter this counting mode selecting the root -->
-<xsl:template match="*" mode="root_charcount">
-<xsl:param name="incurrent_length" select="0"/>
- <xsl:choose>
-  <xsl:when test="count(*)=0">
-   <xsl:value-of select="0"/>
-  </xsl:when>
-  <xsl:when test="name()='m:ci'">
-   <xsl:value-of select="string-length()"/>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:apply-templates select="*[1]" mode="charcount">
-    <xsl:with-param name="incurrent_length" select="$incurrent_length"/>
-   </xsl:apply-templates>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<!-- enter this mode selecting the first child --> 
-
-<xsl:template match="m:ci|m:csymbol" mode="charcount">
-<xsl:param name="incurrent_length" select="0"/> 
-    <xsl:choose>
-    <xsl:when test="$framewidth >= ($incurrent_length + string-length())">
-     <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length + string-length()"/></xsl:apply-templates></xsl:variable>
-     <xsl:choose>
-     <xsl:when test="string($siblength) = &quot;&quot;">
-      <xsl:value-of select="$incurrent_length + string-length()"/>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:value-of select="number($siblength)"/>
-     </xsl:otherwise>
-     </xsl:choose>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:value-of select="$incurrent_length + string-length()"/>
-    </xsl:otherwise>
-    </xsl:choose>
-</xsl:template> 
-
-<xsl:template match="*" mode="charcount">
- <xsl:param name="incurrent_length" select="0"/>
- <xsl:choose>
-  <xsl:when test="count(child::*) = 0">
-   <xsl:value-of select="$incurrent_length"/>
-  </xsl:when>
-  <xsl:otherwise>
-    <xsl:variable name="childlength"><xsl:apply-templates select="*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length"/></xsl:apply-templates></xsl:variable>
-    <xsl:choose>
-     <xsl:when test="$framewidth >= number($childlength)">
-      <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$childlength"/></xsl:apply-templates></xsl:variable>
-      <xsl:choose>
-       <xsl:when test="string($siblength) = &quot;&quot;">
-        <xsl:value-of select="number($childlength)"/>
-       </xsl:when>
-       <xsl:otherwise>
-        <xsl:value-of select="number($siblength)"/>
-       </xsl:otherwise>
-      </xsl:choose>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:value-of select="number($childlength)"/>
-     </xsl:otherwise>
-    </xsl:choose>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-
-<!--***********************************************************************-->
-<!-- OBJECTS                                                               -->
-<!--***********************************************************************-->
-
-<!-- DEFINITION -->
-
-<xsl:template match="Definition">
-<xsl:param name="current_indent" select="0"/>
-<p>
-DEFINITION <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != &quot;&quot;"><xsl:value-of select="Params"/></xsl:if>)<br/>
-TYPE =<br/>
-      <xsl:call-template name="make_indent">
-       <xsl:with-param name="current_indent" select="$current_indent + 7"/> 
-      </xsl:call-template>
-       <xsl:apply-templates select="type/*[1]">
-        <xsl:with-param name="current_indent" select="$current_indent + 7"/>
-       </xsl:apply-templates><br/>
-BODY =<br/>
-      <xsl:call-template name="make_indent">
-       <xsl:with-param name="current_indent" select="$current_indent + 7"/> 
-      </xsl:call-template>
-       <xsl:apply-templates select="body/*[1]">
-        <xsl:with-param name="current_indent" select="$current_indent + 7"/>
-       </xsl:apply-templates>
-</p>
-</xsl:template>
-
-<!-- AXIOM -->
-
-<xsl:template match="Axiom">
-<xsl:param name="current_indent" select="0"/>
-<p>
-AXIOM <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != &quot;&quot;"><xsl:value-of select="Params"/></xsl:if>)<br/>
-TYPE =<br/>
-      <xsl:call-template name="make_indent">
-       <xsl:with-param name="current_indent" select="$current_indent + 7"/> 
-      </xsl:call-template> 
-<xsl:apply-templates select="type/*[1]">
-          <xsl:with-param name="current_indent" select="$current_indent + 7"/>
-       </xsl:apply-templates>
-</p>
-</xsl:template>
-
-<!-- UNFINISHED PROOF -->
-
-<xsl:template match="CurrentProof">
-<xsl:param name="current_indent" select="0"/>
-<p>
-UNFINISHED PROOF <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != &quot;&quot;"><xsl:value-of select="Params"/></xsl:if>)<br/>
-THESIS:  <xsl:apply-templates select="type/*[1]">
-          <xsl:with-param name="current_indent" select="$current_indent + 8"/>
-         </xsl:apply-templates><br/>
-CONJECTURES: 
-      <xsl:for-each select="Conjecture">
-      <br/>
-      <xsl:call-template name="make_indent">
-       <xsl:with-param name="current_indent" select="$current_indent + 8"/> 
-      </xsl:call-template>
-      <xsl:value-of select="./@no"/> : 
-      <xsl:apply-templates select="./*[1]">
-       <xsl:with-param name="current_indent" select="$current_indent + 11"/>
-      </xsl:apply-templates>
-      </xsl:for-each> 
-      <br/>
-PROOF:
-      <xsl:apply-templates select="body/*[1]">
-        <xsl:with-param name="current_indent" select="$current_indent + 8"/>
-      </xsl:apply-templates>
-</p>
-</xsl:template>
-
-<!-- MUTUAL INDUCTIVE DEFINITION -->
-
-<xsl:template match="InductiveDefinition">
-<xsl:param name="current_indent" select="0"/>
-<p>
-     <xsl:for-each select="InductiveType">
-         <xsl:choose>
-         <xsl:when test="position() = 1">
-          <xsl:choose>
-          <xsl:when test="string(./@inductive) = &quot;true&quot;">
-          INDUCTIVE DEFINITION 
-          </xsl:when>
-          <xsl:otherwise>
-          COINDUCTIVE DEFINITION 
-          </xsl:otherwise>
-          </xsl:choose>  
-         </xsl:when>
-         <xsl:otherwise>
-          AND 
-         </xsl:otherwise>
-         </xsl:choose>
-         <xsl:value-of select="./@name"/>(<xsl:if test="string(../Params) != &quot;&quot;"><xsl:value-of select="../Params"/></xsl:if>)
-         [
-          <xsl:if test="string(../Param) != &quot;&quot;">         
-           <xsl:for-each select="../Param">
-            <xsl:value-of select="./@name"/>
-            :
-            <xsl:apply-templates select="*"/>
-           </xsl:for-each>
-          </xsl:if>
-         ] <br/>
-         OF ARITY 
-         <xsl:apply-templates select="./arity/*[1]">
-          <xsl:with-param name="current_indent" select="$current_indent + 9"/>
-         </xsl:apply-templates> <br/>
-         BUILT FROM:
-      <xsl:for-each select="./Constructor">
-      <br/>
-      <xsl:call-template name="make_indent">
-       <xsl:with-param name="current_indent" select="$current_indent + 3"/> 
-      </xsl:call-template>
-         <xsl:choose>
-         <xsl:when test="position() = 1">
-         <xsl:text>&#x00A0;&#x00A0;</xsl:text>
-         </xsl:when>
-         <xsl:otherwise>
-         <xsl:text>| </xsl:text>
-         </xsl:otherwise>
-         </xsl:choose>
-         <xsl:value-of select="./@name"/>
-         <xsl:text>: </xsl:text>
-         <xsl:apply-templates select="./*[1]">
-          <xsl:with-param name="current_indent" select="$current_indent + 2*string-length(./@name) + 5"/>
-         </xsl:apply-templates>
-      </xsl:for-each>
-     </xsl:for-each>
-</p>
-</xsl:template>
-
-<!-- VARIABLE -->
-
-<xsl:template match="Variable">
-<xsl:param name="current_indent" select="0"/>
-<p>
-VARIABLE <xsl:value-of select="@name"/><br/>
-TYPE = <xsl:apply-templates select="type/*[1]">
-          <xsl:with-param name="current_indent" select="$current_indent + 7"/>
-       </xsl:apply-templates>
-<xsl:if test="body">
-<br/>
-BODY = <xsl:apply-templates select="body/*[1]">
-          <xsl:with-param name="current_indent" select="$current_indent + 7"/>
-       </xsl:apply-templates>
-</xsl:if>
-</p>
-</xsl:template>
-
-<!--***********************************************************************-->
-<!-- SECTIONS                                                              -->
-<!--***********************************************************************-->
-
-<!-- SECTION -->
-
-<xsl:template match="SECTION">
-<xsl:param name="current_indent" select="0"/>
- <h1>BEGIN OF SECTION</h1>
-  <xsl:apply-templates/>
- <h1>END OF SECTION</h1>
-</xsl:template>
-
-</xsl:stylesheet> 

diff --git a/helm/style/contentlib.xsl b/helm/style/contentlib.xsl
deleted file mode 100644 (file)
index 00671bd..0000000
--- a/helm/style/contentlib.xsl
+++ /dev/null
@@ -1,116 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--******************************************************************--> 
-<!-- Library for MML Content                                          -->
-<!-- First draft: March 20 2001, Ferruccio Guidi                      -->
-<!--******************************************************************-->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm">
-
-<xsl:template name="out-mml-op">       <!-- outputs MML nodes for operators -->
-   <xsl:param name="hide" select="0"/> <!-- number of hidden parameters     -->
-   <xsl:param name="arity"/>           <!-- operator arity                  -->
-   <xsl:param name="c-tag"/>           <!-- CIC    tag                      -->
-   <xsl:param name="m-tag"/>           <!-- MathML tag                      -->
-   <xsl:param name="mbody"/>           <!-- other sons of m:apply           -->
-   <xsl:choose>
-      <xsl:when test="count(child::*) = $arity + $hide + 1">
-         <m:apply helm:xref="{@id}">
-            <xsl:element name="{concat('m:',$m-tag)}">
-               <xsl:attribute name="definitionURL">
-                  <xsl:value-of select="$c-tag/@uri"/> 
-               </xsl:attribute>
-               <xsl:attribute name="helm:xref">
-                  <xsl:value-of select="$c-tag/@id"/>
-               </xsl:attribute>
-            </xsl:element>
-            <xsl:copy-of select="$mbody"/>
-         </m:apply>
-      </xsl:when>
-      <xsl:otherwise>
-         <xsl:apply-imports/>
-      </xsl:otherwise>
-   </xsl:choose>
-</xsl:template>
-
-<!-- noannot -->
-
-<xsl:template name="mk-mml-op-noannot">    <!-- makes MML nodes for operators (noannot mode) --> 
-   <xsl:param name="hide" 
-              select="0"/>                          <!-- hidden params      -->
-   <xsl:param name="arity"
-              select="2"/>                          <!-- operator arity      -->
-   <xsl:param name="c-tag"/>                        <!-- CIC    tag          -->
-   <xsl:param name="m-tag"/>                        <!-- MathML tag          -->
-   <xsl:param name="rnset" 
-              select="*[position() > 1 + $hide]"/>  <!-- nodes for recursion -->
-   <xsl:variable name="mbody">
-      <xsl:apply-templates select="$rnset" mode="noannot"/>
-   </xsl:variable>
-   <xsl:call-template name="out-mml-op">
-      <xsl:with-param name="hide"  select="$hide"/>
-      <xsl:with-param name="arity" select="$arity"/>
-      <xsl:with-param name="c-tag" select="$c-tag"/>
-      <xsl:with-param name="m-tag" select="$m-tag"/>
-      <xsl:with-param name="mbody" select="$mbody"/>
-   </xsl:call-template>
-</xsl:template>
-
-<!-- interp -->
-
-<xsl:template name="start-interp"> <!-- interp mode starter -->
-   <xsl:param name="rtree"/>
-   <xsl:param name="atree"/>   
-   <m:apply helm:xref="{@id}">
-      <m:csymbol>interp</m:csymbol>
-      <xsl:apply-templates mode="interp" select="$rtree">
-         <xsl:with-param name="atree" select="$atree"/>
-      </xsl:apply-templates>
-   </m:apply>
-</xsl:template>
-
-<xsl:template name="mk-mml-op-interp"> <!-- make MML node for operators (interp mode) --> 
-   <xsl:param name="arity"/>           <!-- operator arity        -->
-   <xsl:param name="c-tag"/>           <!-- CIC    tag            -->
-   <xsl:param name="m-tag"/>           <!-- MathML tag            -->
-   <xsl:param name="atree"/>           <!-- abstract tree pointer -->
-   <xsl:variable name="mbody">
-      <xsl:apply-templates select="*[position() > 1]" mode="interp">
-         <xsl:with-param name="atree" select="$atree"/>
-      </xsl:apply-templates>
-   </xsl:variable>
-   <xsl:call-template name="out-mml-op">
-      <xsl:with-param name="arity" select="$arity"/>
-      <xsl:with-param name="c-tag" select="$c-tag"/>
-      <xsl:with-param name="m-tag" select="$m-tag"/>
-      <xsl:with-param name="mbody" select="$mbody"/>
-   </xsl:call-template>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/drop_coercions.xsl b/helm/style/drop_coercions.xsl
deleted file mode 100644 (file)
index b31160e..0000000
--- a/helm/style/drop_coercions.xsl
+++ /dev/null
@@ -1,184 +0,0 @@
-<?xml version="1.0"?>
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--******************************************************************--> 
-<!-- Coercions                                                        -->
-<!-- First draft: March 20 2001, Andrea Asperti                       -->
-<!--******************************************************************-->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-
-<!-- ************************** LAMBDA ****************************** -->
-
-<xsl:param name="CICURI" select="''"/>
-<xsl:param name="getterURL" select="''"/>
-<xsl:include href="getter.xsl"/>
-<xsl:include href="params.xsl"/>
-
-<!-- coercions -->
-
-<xsl:template match="APPLY[CONST[position()='1' and 
-         (@uri='cic:/Algebra/CSemiGroups/csg_crr.con' or 
-          @uri='cic:/Algebra/CMonoids/cm_crr.con' or
-          @uri='cic:/Algebra/CGroups/cg_crr.con' or
-          @uri='cic:/Algebra/CRings/cr_crr.con' or
-          @uri='cic:/Algebra/CFields/cf_crr.con' or
-          @uri='cic:/Algebra/COrdFields/cof_crr.con' or
-          @uri='cic:/Algebra/CReals/crl_crr.con')]]">
-  <xsl:apply-templates select="*[position()=last()]"/>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST[position()='1' and 
-   @uri='cic:/Algebra/CSetoids/CSetoid_functions/csf_fun.con']]">
-     <xsl:variable name="no_params">
-      <xsl:call-template name="get_no_params">
-       <xsl:with-param name="first_uri" select="$CICURI"/>
-       <xsl:with-param name="second_uri" select="CONST[1]/@uri"/>
-      </xsl:call-template>
-     </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 3">
-      <xsl:choose>
-       <xsl:when test="name(*[2+$no_params])='APPLY'">
-        <APPLY id="{@id}" sort="{@sort}">
-         <xsl:apply-templates select="*[2+$no_params]/*"/>
-         <xsl:apply-templates select="*[3+$no_params]"/>
-        </APPLY>
-       </xsl:when>
-       <xsl:otherwise>
-        <APPLY id="{@id}" sort="{@sort}">
-         <xsl:apply-templates select="*[2+$no_params]"/>
-         <xsl:apply-templates select="*[3+$no_params]"/> 
-        </APPLY>
-       </xsl:otherwise>
-      </xsl:choose>
-     </xsl:when>
-     <xsl:otherwise>
-      <APPLY id="{@id}" sort="{@sort}">
-       <xsl:apply-templates select="*"/>
-      </APPLY>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST[position()='1' and 
-   @uri='cic:/Algebra/CSetoids/CSetoid_functions/csbf_fun.con']]">
-     <xsl:variable name="no_params">
-      <xsl:call-template name="get_no_params">
-       <xsl:with-param name="first_uri" select="$CICURI"/>
-       <xsl:with-param name="second_uri" select="CONST[1]/@uri"/>
-      </xsl:call-template>
-     </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 4">
-      <xsl:choose>
-       <xsl:when test="name(*[2+$no_params])='APPLY'">
-        <APPLY id="{@id}" sort="{@sort}">
-         <xsl:apply-templates select="*[2+$no_params]/*"/>
-         <xsl:apply-templates select="*[3+$no_params]"/>
-         <xsl:apply-templates select="*[4+$no_params]"/>
-        </APPLY>
-       </xsl:when>
-       <xsl:otherwise>
-        <APPLY id="{@id}" sort="{@sort}">
-         <xsl:apply-templates select="*[2+$no_params]"/>
-         <xsl:apply-templates select="*[3+$no_params]"/>
-         <xsl:apply-templates select="*[4+$no_params]"/>
-        </APPLY>
-       </xsl:otherwise>
-      </xsl:choose>
-     </xsl:when>
-     <xsl:otherwise>
-      <APPLY id="{@id}" sort="{@sort}">
-       <xsl:apply-templates select="*"/>
-      </APPLY>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST[position()='1' and 
-   @uri='cic:/Algebra/CSetoids/CSetoid_relations_and_predicates/csr_rel.con']]">
-     <xsl:variable name="no_params">
-      <xsl:call-template name="get_no_params">
-       <xsl:with-param name="first_uri" select="$CICURI"/>
-       <xsl:with-param name="second_uri" select="CONST[1]/@uri"/>
-      </xsl:call-template>
-     </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 4">
-      <xsl:choose>
-       <xsl:when test="name(*[2+$no_params])='APPLY'">
-        <APPLY id="{@id}" sort="{@sort}">
-         <xsl:apply-templates select="*[2+$no_params]/*"/>
-         <xsl:apply-templates select="*[3+$no_params]"/>
-         <xsl:apply-templates select="*[4+$no_params]"/>
-        </APPLY>
-       </xsl:when>
-       <xsl:otherwise>
-        <APPLY id="{@id}" sort="{@sort}">
-         <xsl:apply-templates select="*[2+$no_params]"/>
-         <xsl:apply-templates select="*[3+$no_params]"/>
-         <xsl:apply-templates select="*[4+$no_params]"/>
-        </APPLY>
-       </xsl:otherwise>
-      </xsl:choose>
-     </xsl:when>
-     <xsl:otherwise>
-      <APPLY id="{@id}" sort="{@sort}">
-       <xsl:apply-templates select="*"/>
-      </APPLY>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST[position()='1' and 
-   @uri='cic:/Algebra/CRings/nat_injection/nring.con']]">
-     <xsl:variable name="no_params">
-      <xsl:call-template name="get_no_params">
-       <xsl:with-param name="first_uri" select="$CICURI"/>
-       <xsl:with-param name="second_uri" select="CONST[1]/@uri"/>
-      </xsl:call-template>
-     </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 2">
-      <xsl:apply-templates select="*[2+$no_params]"/>
-     </xsl:when>
-     <xsl:otherwise>
-      <APPLY id="{@id}" sort="{@sort}">
-       <xsl:apply-templates select="*"/>
-      </APPLY>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "/|*">
-  <xsl:copy>
-   <xsl:copy-of select="@*"/>
-   <xsl:apply-templates select="*"/>
-  </xsl:copy>
-</xsl:template>
-
-
-</xsl:stylesheet>

diff --git a/helm/style/expandobj.xsl b/helm/style/expandobj.xsl
deleted file mode 100644 (file)
index ee53cf2..0000000
--- a/helm/style/expandobj.xsl
+++ /dev/null
@@ -1,85 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--***********************************************************************--> 
-<!-- XSLT version 0.1 of theory sections to theory sections with objects   -->
-<!-- First draft: March 08 2001, Irene Schena                              -->
-<!--***********************************************************************--> 
-
-<xsl:stylesheet version="0.1" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:ht="http://www.cs.unibo.it/helm/namespaces/helm-theory">
-
-<!--******************************************************************-->
-<!-- Parameters containing the absolute path of the CIC file          -->
-<!--******************************************************************-->
-
-<xsl:import href="links_library.xsl"/>
-
-<xsl:output 
-       method="xml"
-       encoding="iso-8859-1" 
-       media-type="text/html"
-       doctype-public="-//W3C//DTD XHTML 1.0 Transitional//EN"
-       doctype-system="DTD/xhtml1-transitional.dtd" />
-
-<!-- THEORY CONTENT ELEMENTS -->
-<!-- document cannot return HTML, transforming it into XML!!! -->
-
-<xsl:template match="ht:THEOREM">
-<xsl:variable name="url"><xsl:call-template name="makeURL4embedding"><xsl:with-param name="type" select="'typeonly'"/><xsl:with-param name="uri" select="@uri"/></xsl:call-template></xsl:variable>
-   <xsl:copy>
-    <xsl:copy-of select="@*"/>
-    <xsl:copy-of select="document(string($url))"/>
-    <xsl:value-of select="$url"/>
-   </xsl:copy>
-</xsl:template>
-
-<xsl:template match="ht:AXIOM|ht:DEFINITION|ht:VARIABLE">
-<xsl:variable name="url"><xsl:call-template name="makeURL4embedding"><xsl:with-param name="type" select="'embed'"/><xsl:with-param name="uri" select="@uri"/></xsl:call-template></xsl:variable>
-   <xsl:copy>
-    <xsl:copy-of select="@*"/>
-    <xsl:copy-of select="document(string($url))"/>
-   </xsl:copy>
-</xsl:template>
-
-<!-- THEORY PRESENTATION ELEMENTS -->
-
-<xsl:template match="ENTITY">
-<xsl:variable name="url"><xsl:call-template name="makeURL4embedding"><xsl:with-param name="type" select="@type"/><xsl:with-param name="uri" select="@uri"/></xsl:call-template></xsl:variable>
-  <xsl:variable name="doc_to_embed" select="document(string($url))/to_be_embedded"/>
-  <xsl:copy-of select="$doc_to_embed/*|$doc_to_embed/text()"/>
-</xsl:template>
-
-<!-- CONTENT AND PRESENTATION THEORY AND SUBTHEORY -->
-
-<xsl:template match = "/|*">
-  <xsl:copy>
-   <xsl:copy-of select="@*"/>
-   <xsl:apply-templates/>
-  </xsl:copy>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/genmmlid.xsl b/helm/style/genmmlid.xsl
deleted file mode 100644 (file)
index c4981c5..0000000
--- a/helm/style/genmmlid.xsl
+++ /dev/null
@@ -1,55 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--***********************************************************************--> 
-<!-- XSLT version 0.1 of a generation of id for MathML content elements:   -->
-<!-- First draft: April 28 2001, Irene Schena                              -->
-<!--***********************************************************************--> 
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML">
-
-<xsl:output method="xml"/>
-
-<!-- Copy of the root or m:math or a node different from mml elements -->
-<!-- with all its attributes                                          -->
-<xsl:template match = "/|*|m:math">
-  <xsl:copy>
-   <xsl:copy-of select="@*"/>
-   <xsl:apply-templates/>
-  </xsl:copy>
-</xsl:template>
-
-<!-- Generates random id for all mml elements -->
-<xsl:template match = "m:*">
-  <xsl:copy>
-   <xsl:copy-of select="@*"/>
-   <xsl:attribute name="id"><xsl:value-of select="generate-id()"/></xsl:attribute>
-   <xsl:apply-templates/>
-  </xsl:copy>
-</xsl:template>
-
-</xsl:stylesheet> 

diff --git a/helm/style/getter.xsl b/helm/style/getter.xsl
deleted file mode 100644 (file)
index c2f36de..0000000
--- a/helm/style/getter.xsl
+++ /dev/null
@@ -1,34 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-
-<xsl:template name="URLofURI4getter">
- <xsl:param name="uri" select="''"/>
- <xsl:value-of select="$getterURL"/>getxml?uri=<xsl:value-of select="$uri"/>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/headercontent.xsl b/helm/style/headercontent.xsl
deleted file mode 100644 (file)
index f608830..0000000
--- a/helm/style/headercontent.xsl
+++ /dev/null
@@ -1,43 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--***********************************************************************--> 
-<!-- XSLT version 0.1 of the stylesheet to list the notational stylesheets -->
-<!-- First draft: May 26 2000, C.Sacerdoti Coen, I.Schena, F.Guidi         -->
-<!--***********************************************************************-->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-
-<xsl:include href="contentlib.xsl"/>   <!-- FG -->
-<xsl:include href="basic.xsl"/>
-<xsl:include href="arith.xsl"/>        <!-- FG -->
-<xsl:include href="set.xsl"/>
-<xsl:include href="reals.xsl"/>
-<xsl:include href="ring.xsl"/>        <!-- FG -->
-<xsl:include href="algebra.xsl"/> 
-<xsl:include href="lambda.xsl"/>
-
-</xsl:stylesheet>

diff --git a/helm/style/html_init.xsl b/helm/style/html_init.xsl
deleted file mode 100644 (file)
index 46fc61b..0000000
--- a/helm/style/html_init.xsl
+++ /dev/null
@@ -1,509 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML">
-
-<xsl:template name="mksymbol-init">
- <xsl:param name="symbol" select="''"/>
-  <xsl:choose>
-   <xsl:when test="$UNICODEvsSYMBOL = 'symbol'">
-    <xsl:variable name="fontsymbol">
-     <xsl:choose>
-      <xsl:when test="$symbol = 'and'">
-       <xsl:value-of select="'&#217;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'or'">
-       <xsl:value-of select="'&#218;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'eq'">
-       <xsl:value-of select="'&#61;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'neq'">
-       <xsl:value-of select="'&#185;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'leq'">
-       <xsl:value-of select="'&#163;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'lt'">
-       <xsl:value-of select="'&#60;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'geq'">
-       <xsl:value-of select="'&#179;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'gt'">
-       <xsl:value-of select="'&#62;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'plus'">
-       <xsl:value-of select="'&#43;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'times'">
-       <xsl:value-of select="'&#42;'"/>
-      </xsl:when> 
-      <xsl:when test="$symbol = 'divide'">
-       <xsl:value-of select="'&#47;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'minus'">
-       <xsl:value-of select="'&#45;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'not'">
-       <xsl:value-of select="'&#216;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'exists'">
-       <xsl:value-of select="'&#36;'"/>
-      </xsl:when>
-      <xsl:otherwise>
-       <xsl:text>???</xsl:text>
-      </xsl:otherwise>
-     </xsl:choose>
-    </xsl:variable>
-    <FONT FACE="symbol" color="'blue'">
-     <xsl:value-of select="$fontsymbol"/>
-    </FONT>
-   </xsl:when>
-   <xsl:otherwise>
-    <xsl:variable name="unicodesymbol">
-     <xsl:choose>
-      <xsl:when test="$symbol = 'and'">
-       <xsl:value-of select="'&#8743;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'or'">
-       <xsl:value-of select="'&#8744;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'eq'">
-       <xsl:value-of select="'&#61;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'neq'">
-       <xsl:value-of select="'&#8800;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'leq'">
-       <xsl:value-of select="'&#8804;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'lt'">
-       <xsl:value-of select="'&#60;&#32;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'geq'">
-       <xsl:value-of select="'&#8805;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'gt'">
-       <xsl:value-of select="'&#62;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'plus'">
-       <xsl:value-of select="'&#43;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'times'">
-       <xsl:value-of select="'&#8727;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'divide'">
-       <xsl:value-of select="'&#47;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'minus'">
-       <xsl:value-of select="'&#8722;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'not'">
-       <xsl:value-of select="'&#172;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'exists'">
-       <xsl:value-of select="'&#8707;'"/>
-      </xsl:when>
-      <xsl:otherwise>
-       <xsl:text>???</xsl:text>
-      </xsl:otherwise>
-     </xsl:choose>
-    </xsl:variable>
-    <FONT color="'blue'">
-     <xsl:value-of select="$unicodesymbol"/>
-    </FONT>
-   </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-
-<!--***********************************************************************--> 
-<!-- INIT style for HTML                                                   -->
-<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena                      -->
-<!--***********************************************************************--> 
-
-<!-- INLINE MODE : BASIC OPERATORS -->
-
-<xsl:template mode="inline" match="m:infinity">
- <xsl:choose>
-  <xsl:when test="$UNICODEvsSYMBOL = 'symbol'">
-   <FONT FACE="symbol" color="'blue'">
-    <xsl:value-of select="'&#165;'"/>
-   </FONT>
-  </xsl:when>
-  <xsl:otherwise>
-   <FONT color="'blue'">
-    <!-- VERIFICARE -->
-    <xsl:value-of select="'&#165;'"/>
-   </FONT>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<xsl:template mode="inline" match="m:eq|m:leq|m:lt|m:geq|m:gt">
-  <xsl:variable name="uri"><xsl:value-of select="*[1]/@definitionURL"/></xsl:variable>
-  <xsl:choose>
-  <xsl:when test="$uri != ''">
-   <a href="{$uri}">
-    <xsl:call-template name="mksymbol-init">
-     <xsl:with-param name="symbol" select="local-name(.)"/>
-    </xsl:call-template>
-   </a>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:call-template name="mksymbol-init">
-     <xsl:with-param name="symbol" select="local-name(.)"/>
-   </xsl:call-template>
-  </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
- <xsl:template mode="inline" match="m:apply[m:and|m:or|m:eq|m:neq|m:leq|m:lt
-       |m:geq|m:gt|m:plus|m:times|m:divide]">
-  <xsl:variable name="uri"><xsl:value-of select="*[1]/@definitionURL"/></xsl:variable>
-  <xsl:text>(</xsl:text>
-  <xsl:apply-templates mode="inline" select="*[2]"/>
-  <xsl:choose>
-  <xsl:when test="$uri != ''">
-   <a href="{$uri}">
-    <xsl:call-template name="mksymbol-init">
-     <xsl:with-param name="symbol" select="local-name(*[1])"/>
-    </xsl:call-template>
-   </a>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:call-template name="mksymbol-init">
-     <xsl:with-param name="symbol" select="local-name(*[1])"/>
-   </xsl:call-template>
-  </xsl:otherwise>
-  </xsl:choose>
-  <xsl:apply-templates mode="inline" select="*[3]"/>
-  <xsl:text>)</xsl:text>
- </xsl:template>
-
-<!-- INLINE MODE - MINUS (can be unary!) -->
-
-<xsl:template mode="inline" match="m:apply[m:minus]">
-  <xsl:variable name="uri"><xsl:value-of select="*[1]/@definitionURL"/></xsl:variable>
-  <xsl:choose>
-   <xsl:when test="count(child::*)=2">
-    <xsl:choose>
-    <xsl:when test="$uri != ''">
-     <a href="{$uri}">
-      <xsl:call-template name="mksymbol-init">
-       <xsl:with-param name="symbol" select="'minus'"/>
-      </xsl:call-template>
-     </a>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:call-template name="mksymbol-init">
-       <xsl:with-param name="symbol" select="'minus'"/>
-     </xsl:call-template>
-    </xsl:otherwise>
-    </xsl:choose>
-    <xsl:apply-templates mode="inline" select="*[2]"/>
-   </xsl:when>
-   <xsl:otherwise>
-    <xsl:text>(</xsl:text>
-    <xsl:apply-templates mode="inline" select="*[2]"/>
-    <xsl:choose>
-    <xsl:when test="$uri != ''">
-     <a href="{$uri}">
-      <xsl:call-template name="mksymbol-init">
-       <xsl:with-param name="symbol" select="'minus'"/>
-      </xsl:call-template>
-     </a>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:call-template name="mksymbol-init">
-       <xsl:with-param name="symbol" select="'minus'"/>
-     </xsl:call-template>
-    </xsl:otherwise>
-    </xsl:choose>
-    <xsl:apply-templates mode="inline" select="*[3]"/>
-    <xsl:text>)</xsl:text>
-   </xsl:otherwise>
-  </xsl:choose>
- </xsl:template>
-
-<!-- INLINE MODE NOT -->
-
-<xsl:template mode="inline" match="m:apply[m:not]">
-  <xsl:variable name="uri"><xsl:value-of select="m:not/@definitionURL"/></xsl:variable>
-  <xsl:choose>
-  <xsl:when test="$uri != ''">
-   <a href="{$uri}">
-    <xsl:call-template name="mksymbol-init">
-     <xsl:with-param name="symbol" select="'not'"/>
-    </xsl:call-template>
-   </a>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:call-template name="mksymbol-init">
-    <xsl:with-param name="symbol" select="'not'"/>
-   </xsl:call-template>
-  </xsl:otherwise>
-  </xsl:choose>
-  <xsl:apply-templates mode="inline" select="*[2]"/>
-</xsl:template>
-
-<!-- INLINE MODE EXISTS -->
-
- <xsl:template mode="inline" match="m:apply[m:exists]">
-  <xsl:variable name="uri"><xsl:value-of select="m:exists/@definitionURL"/></xsl:variable>
-  <xsl:choose>
-  <xsl:when test="$uri != ''">
-   <a href="{$uri}">
-    <xsl:call-template name="mksymbol-init">
-     <xsl:with-param name="symbol" select="'exists'"/>
-    </xsl:call-template>
-   </a>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:call-template name="mksymbol-init">
-    <xsl:with-param name="symbol" select="'exists'"/>
-   </xsl:call-template>
-  </xsl:otherwise>
-  </xsl:choose>
-  <xsl:apply-templates select="m:bvar/m:ci"/>
-  <xsl:text>:</xsl:text>
-  <xsl:apply-templates mode="inline" select="m:condition"/>
-  <xsl:text>.</xsl:text>
-  <xsl:apply-templates mode="inline" select="*[last()]"/>
- </xsl:template>
-
-<!-- COUNTING MODE -->
-
-<!-- BASIC OPERATORS -->
-
- <xsl:template match="m:apply[m:and|m:or|m:eq|m:neq|m:leq|m:lt
-       |m:geq|m:gt|m:plus|m:times|m:divide]">
-  <xsl:param name="current_indent" select="0"/> 
-  <xsl:param name="width" select="$framewidth"/>
-  <xsl:variable name="uri"><xsl:value-of select="*[1]/@definitionURL"/></xsl:variable>
-  <xsl:variable name="charlength">
-   <xsl:apply-templates select="*[1]" mode="charcount"/>
-  </xsl:variable>
-  <xsl:choose>
-    <xsl:when test="$charlength > $framewidth">
-     <xsl:text>(</xsl:text>
-     <xsl:apply-templates select="*[2]">
-      <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-     </xsl:apply-templates>
-     <BR/> 
-     <xsl:call-template name="make_indent">
-      <xsl:with-param name="current_indent" select="$current_indent + 2"/> 
-     </xsl:call-template>
-     <xsl:choose>
-     <xsl:when test="$uri != ''">
-      <a href="{$uri}">
-       <xsl:call-template name="mksymbol-init">
-        <xsl:with-param name="symbol" select="local-name(*[1])"/>
-       </xsl:call-template>
-      </a>
-     </xsl:when>
-     <xsl:otherwise>
-       <xsl:call-template name="mksymbol-init">
-        <xsl:with-param name="symbol" select="local-name(*[1])"/>
-       </xsl:call-template>
-     </xsl:otherwise>
-     </xsl:choose>
-     <xsl:apply-templates select="*[3]">
-      <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-     </xsl:apply-templates>
-     <xsl:text>)</xsl:text>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:apply-templates mode="inline" select="."/>
-    </xsl:otherwise>
-   </xsl:choose>
- </xsl:template>
-
-<!-- MINUS (can be unary!) -->
-
-<xsl:template match="m:apply[m:minus]">
-  <xsl:param name="current_indent" select="0"/> 
-  <xsl:param name="width" select="$framewidth"/>
-  <xsl:variable name="uri"><xsl:value-of select="*[1]/@definitionURL"/></xsl:variable>
-  <xsl:choose>
-   <xsl:when test="count(child::*)=2">
-    <xsl:choose>
-    <xsl:when test="$uri != ''">
-     <a href="{$uri}">
-      <xsl:call-template name="mksymbol-init">
-       <xsl:with-param name="symbol" select="'minus'"/>
-      </xsl:call-template>
-     </a>
-    </xsl:when>
-    <xsl:otherwise>
-      <xsl:call-template name="mksymbol-init">
-       <xsl:with-param name="symbol" select="'minus'"/>
-      </xsl:call-template>
-    </xsl:otherwise>
-    </xsl:choose>
-    <xsl:apply-templates select="*[2]">
-     <xsl:with-param name="current_indent" select="$current_indent + 1"/>
-    </xsl:apply-templates>
-   </xsl:when>
-   <xsl:otherwise>
-    <xsl:variable name="charlength">
-     <xsl:apply-templates select="*[1]" mode="charcount"/>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="$charlength > $framewidth">
-      <xsl:text>(</xsl:text>
-      <xsl:apply-templates select="*[2]">
-       <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-      </xsl:apply-templates>
-      <BR/> 
-      <xsl:call-template name="make_indent">
-       <xsl:with-param name="current_indent" select="$current_indent + 2"/> 
-      </xsl:call-template>
-      <xsl:choose>
-      <xsl:when test="$uri != ''">
-       <a href="{$uri}">
-        <xsl:call-template name="mksymbol-init">
-         <xsl:with-param name="symbol" select="'minus'"/>
-        </xsl:call-template>
-       </a>
-      </xsl:when>
-      <xsl:otherwise>
-        <xsl:call-template name="mksymbol-init">
-         <xsl:with-param name="symbol" select="'minus'"/>
-        </xsl:call-template>
-      </xsl:otherwise>
-      </xsl:choose>  
-      <xsl:apply-templates select="*[3]">
-       <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-      </xsl:apply-templates>
-      <xsl:text>)</xsl:text>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-templates mode="inline" select="."/>
-     </xsl:otherwise>
-    </xsl:choose>
-   </xsl:otherwise>
-  </xsl:choose>
- </xsl:template>
-
-<!-- NOT -->
-
-<xsl:template match="m:apply[m:not]">
-  <xsl:param name="current_indent" select="0"/> 
-  <xsl:param name="width" select="$framewidth"/>
-  <xsl:variable name="uri"><xsl:value-of select="m:not/@definitionURL"/></xsl:variable>
-   <xsl:choose>
-   <xsl:when test="$uri != ''">
-    <a href="{$uri}">
-     <xsl:call-template name="mksymbol-init">
-      <xsl:with-param name="symbol" select="'not'"/>
-     </xsl:call-template>
-    </a>
-   </xsl:when>
-   <xsl:otherwise>
-     <xsl:call-template name="mksymbol-init">
-      <xsl:with-param name="symbol" select="'not'"/>
-     </xsl:call-template>
-   </xsl:otherwise>
-   </xsl:choose>
-   <xsl:apply-templates select="*[2]"/>
- </xsl:template>
-
-<!-- EXISTS -->
-
- <xsl:template match="m:apply[m:exists]">
-  <xsl:param name="current_indent" select="0"/> 
-  <xsl:param name="width" select="$framewidth"/>
-  <xsl:variable name="uri"><xsl:value-of select="m:exists/@definitionURL"/></xsl:variable>
-  <xsl:variable name="charlength">
-   <xsl:apply-templates select="m:exists" mode="charcount"/>
-  </xsl:variable>
-  <xsl:choose>
-    <xsl:when test="$charlength > $framewidth">
-     <xsl:choose>
-     <xsl:when test="$uri != ''">
-      <a href="{$uri}">
-       <xsl:call-template name="mksymbol-init">
-        <xsl:with-param name="symbol" select="'exists'"/>
-       </xsl:call-template>
-      </a>
-     </xsl:when>
-     <xsl:otherwise>
-       <xsl:call-template name="mksymbol-init">
-        <xsl:with-param name="symbol" select="'exists'"/>
-       </xsl:call-template>
-     </xsl:otherwise>
-     </xsl:choose>
-     <xsl:apply-templates select="m:bvar/m:ci"/>
-     <xsl:text>:</xsl:text>
-     <xsl:apply-templates select="m:condition">
-      <xsl:with-param name="current_indent" select="$current_indent + 2 +
-                                string-length(bvar/ci)"/> 
-     </xsl:apply-templates>
-     <BR/> 
-      <xsl:call-template name="make_indent">
-       <xsl:with-param name="current_indent" select="$current_indent + 2"/> 
-      </xsl:call-template>
-     <xsl:text>.</xsl:text>
-      <xsl:apply-templates select="*[last()]">
-       <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-      </xsl:apply-templates>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:apply-templates mode="inline" select="."/>
-    </xsl:otherwise>
-   </xsl:choose>
- </xsl:template>
-
-
-
-
-<!-- COUNTING -->
-
-<xsl:template match="m:cn|m:and|m:or|m:not|m:exists|m:eq|m:neq
-   |m:lt|m:leq|m:gt|m:geq|m:plus|m:minus|m:times" mode="charcount">
-<xsl:param name="incurrent_length" select="0"/> 
-    <xsl:choose>
-    <xsl:when test="$framewidth >= ($incurrent_length + string-length())">
-     <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length + string-length()"/></xsl:apply-templates></xsl:variable>
-     <xsl:choose>
-     <xsl:when test="string($siblength) = &quot;&quot;">
-      <xsl:value-of select="$incurrent_length + string-length()"/>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:value-of select="number($siblength)"/>
-     </xsl:otherwise>
-     </xsl:choose>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:value-of select="$incurrent_length + string-length()"/>
-    </xsl:otherwise>
-    </xsl:choose>
-</xsl:template> 
-
-</xsl:stylesheet> 

diff --git a/helm/style/html_reals.xsl b/helm/style/html_reals.xsl
deleted file mode 100644 (file)
index a78f454..0000000
--- a/helm/style/html_reals.xsl
+++ /dev/null
@@ -1,469 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML">
-
-<!--***********************************************************************--> 
-<!-- INIT style for HTML                                                   -->
-<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena                      -->
-<!--***********************************************************************--> 
-
-<xsl:template name="mksymbol-reals">
- <xsl:param name="symbol" select="''"/>
-  <xsl:choose>
-   <xsl:when test="$UNICODEvsSYMBOL = 'symbol'">
-    <xsl:variable name="fontsymbol">
-     <xsl:choose>
-      <xsl:when test="$symbol = 'leadsto'">
-       <xsl:value-of select="'&#174;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'sum'">
-       <xsl:value-of select="'&#229;'"/>
-      </xsl:when>
-      <xsl:otherwise>
-       <xsl:text>???</xsl:text>
-      </xsl:otherwise>
-     </xsl:choose>
-    </xsl:variable>
-    <FONT FACE="symbol" color="'blue'">
-     <xsl:value-of select="$fontsymbol"/>
-    </FONT>
-   </xsl:when>
-   <xsl:otherwise>
-    <xsl:variable name="unicodesymbol">
-     <xsl:choose>
-      <xsl:when test="$symbol = 'leadsto'">
-       <xsl:value-of select="'&#8594;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'sum'">
-       <xsl:value-of select="'&#x02211;'"/>
-      </xsl:when>
-      <xsl:otherwise>
-       <xsl:text>???</xsl:text>
-      </xsl:otherwise>
-     </xsl:choose>
-    </xsl:variable>
-    <FONT color="'blue'">
-     <xsl:value-of select="$unicodesymbol"/>
-    </FONT>
-   </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<!-- **************************************************************** -->
-<!--                   INLINE MODE                                    -->
-<!-- **************************************************************** -->
-
-<!-- SUM -->
-
-<xsl:template mode="inline" match="m:apply[m:sum]">
-     <xsl:variable name="uri">
-      <xsl:value-of select="m:sum/@definitionURL"/>
-     </xsl:variable>
-     <xsl:choose>
-      <xsl:when test="$uri != ''">
-       <a href="{$uri}">
-       <!-- 
-       <FONT FACE="symbol" color="'blue'">
-        <xsl:value-of select="'&#229;'"/>
-       </FONT> -->
-       <xsl:call-template name="mksymbol-reals">
-        <xsl:with-param name="symbol" select="'sum'"/>
-      </xsl:call-template>
-       </a>
-      </xsl:when>
-      <xsl:otherwise>
-       <!-- 
-       <FONT FACE="symbol" color="'blue'">
-        <xsl:value-of select="'&#229;'"/>
-       </FONT> -->
-       <xsl:call-template name="mksymbol-reals">
-        <xsl:with-param name="symbol" select="'sum'"/>
-       </xsl:call-template>
-      </xsl:otherwise>
-     </xsl:choose>
-     <xsl:choose>
-      <xsl:when test="m:condition">
-       <SUB>
-        <xsl:apply-templates select="m:condition"/>
-       </SUB>
-      </xsl:when>
-      <xsl:otherwise>
-       <SUB>
-        <xsl:apply-templates select="m:lowlimit/*[1]"/>
-        <xsl:call-template name="mksymbol-init">
-         <xsl:with-param name="symbol" select="'leq'"/>
-        </xsl:call-template>
-        <xsl:apply-templates select="m:bvar/*[1]"/>
-        <xsl:call-template name="mksymbol-init">
-         <xsl:with-param name="symbol" select="'leq'"/>
-        </xsl:call-template>
-        <xsl:apply-templates select="m:uplimit/*[1]"/>
-       </SUB>
-      </xsl:otherwise>
-     </xsl:choose>
-     <xsl:apply-templates mode="inline" select="*[position()=last()]"/>
- </xsl:template>
-
-
-<!-- LIMIT -->
-
-
-<xsl:template mode="inline" match="m:apply[m:limit]">
-     <xsl:variable name="uri"><xsl:value-of select="m:limit/@definitionURL"/></xsl:variable>
-     <xsl:choose>
-     <xsl:when test="$uri != ''">
-      <a href="{$uri}">
-       <xsl:text>lim</xsl:text>
-      </a>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:text>lim</xsl:text>
-     </xsl:otherwise>
-     </xsl:choose>
-     <SUB>
-      <xsl:apply-templates select="m:bvar/m:ci"/>
-      <xsl:call-template name="mksymbol-reals">
-       <xsl:with-param name="symbol" select="'leadsto'"/>
-      </xsl:call-template>
-      <xsl:apply-templates mode="inline" select="m:lowlimit"/>
-     </SUB>
-     <xsl:apply-templates mode="inline" select="*[4]"/>
- </xsl:template>
-
-<!-- DIFFERENTIATION -->
-
-<xsl:template mode="inline" match="m:apply[m:diff]">
-     <xsl:variable name="uri"><xsl:value-of select="m:diff/@definitionURL"/></xsl:variable>
-     <xsl:choose>
-     <xsl:when test="$uri != ''">
-      <a href="{$uri}">
-       <SUP>d</SUP>
-       <xsl:text>/</xsl:text>
-       <SUB>
-        <xsl:text>d</xsl:text>
-        <xsl:value-of select="m:bvar/m:ci"/>
-       </SUB>
-      </a>
-     </xsl:when>
-     <xsl:otherwise>
-      <SUP>d</SUP>
-       <xsl:text>/</xsl:text>
-       <SUB>
-        <xsl:text>d</xsl:text>
-        <xsl:value-of select="m:bvar/m:ci"/>
-       </SUB>
-     </xsl:otherwise>
-     </xsl:choose>
-     <xsl:apply-templates mode="inline" select="*[3]"/>
- </xsl:template>
-
-<!-- ABSOLUTE VALUE -->
-<xsl:template mode="inline" match="m:apply[m:abs]">
-  <xsl:variable name="uri">
-   <xsl:value-of select="m:abs/@definitionURL"/>
-  </xsl:variable>
-  <xsl:text>|</xsl:text>
-  <xsl:apply-templates mode="inline" select="*[2]"/>
-  <xsl:text>|</xsl:text>
-</xsl:template>
-
-<!-- FACTORIAL -->
-
-<xsl:template mode="inline" match="m:apply[m:fact]">
-  <xsl:variable name="uri">
-   <xsl:value-of select="m:abs/@definitionURL"/>
-  </xsl:variable>
-  <xsl:apply-templates mode="inline" select="*[2]"/>
-  <xsl:text>!</xsl:text>
-</xsl:template>
-
-<!-- SQUARE ROOT -->
-
-<xsl:template match="m:apply[m:root]">
-  <xsl:variable name="uri">
-   <xsl:value-of select="m:abs/@definitionURL"/>
-  </xsl:variable>
-  <xsl:text>(sqr</xsl:text>
-  <xsl:apply-templates mode="inline" select="*[2]"/>
-  <xsl:text>)</xsl:text>
-</xsl:template>
-
-<!-- POWER -->
-
-<xsl:template mode="inline" match="m:apply[m:power]">
-  <xsl:variable name="uri">
-   <xsl:value-of select="m:power/@definitionURL"/>
-  </xsl:variable>
-  <xsl:apply-templates mode="inline" select="*[2]"/>
-  <SUP>
-  <xsl:apply-templates mode="inline" select="*[3]"/>
-  </SUP>
-</xsl:template>
-
-<!-- MIN and MAX (binari: estendere) -->
-
- <xsl:template mode="inline" match="m:apply[m:min|m:max]">
-  <xsl:variable name="uri"><xsl:value-of select="*[1]/@definitionURL"/></xsl:variable>
-  <xsl:variable name="symbol">
-   <xsl:choose>
-    <xsl:when test="m:min">
-     <xsl:value-of select="'min'"/>
-    </xsl:when>
-    <xsl:when test="m:max">
-     <xsl:value-of select="'max'"/>
-    </xsl:when>
-   </xsl:choose>
-  </xsl:variable>
-  <xsl:choose>
-  <xsl:when test="$uri != ''">
-   <a href="{$uri}">
-    <xsl:value-of select="$symbol"/>
-   </a>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:value-of select="$symbol"/>
-  </xsl:otherwise>
-  </xsl:choose>
-  <xsl:text>{</xsl:text>
-  <xsl:apply-templates mode="inline" select="*[2]"/>
-  <xsl:text>, </xsl:text>
-  <xsl:apply-templates mode="inline" select="*[3]"/>
-  <xsl:text>}</xsl:text>
-</xsl:template>
-
-<!-- **************************************************************** -->
-<!--                   COUNTING MODE                                    -->
-<!-- **************************************************************** -->
-
-<xsl:template match="m:apply[m:sum]">
- <xsl:apply-templates mode="inline" select="."/>
-</xsl:template>
-
-<xsl:template match="m:apply[m:limit]">
-  <xsl:param name="current_indent" select="0"/> 
-  <xsl:param name="width" select="$framewidth"/>
-  <xsl:variable name="uri"><xsl:value-of select="m:limit/@definitionURL"/></xsl:variable>
-  <xsl:variable name="charlength">
-   <xsl:apply-templates select="m:limit" mode="charcount"/>
-  </xsl:variable>
-  <xsl:choose>
-    <xsl:when test="$charlength > $framewidth">
-     <xsl:choose>
-     <xsl:when test="$uri != ''">
-      <a href="{$uri}">
-       <xsl:text>lim</xsl:text>
-      </a>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:text>lim</xsl:text>
-     </xsl:otherwise>
-     </xsl:choose>
-     <SUB>
-      <xsl:apply-templates select="m:bvar/m:ci"/>
-      <xsl:call-template name="mksymbol-reals">
-       <xsl:with-param name="symbol" select="'leadsto'"/>
-      </xsl:call-template>
-      <xsl:apply-templates select="m:lowlimit"/>
-     </SUB>
-     <BR/> 
-     <xsl:call-template name="make_indent">
-      <xsl:with-param name="current_indent" select="$current_indent + 5"/> 
-     </xsl:call-template>
-     <xsl:apply-templates select="*[4]">
-      <xsl:with-param name="current_indent" select="$current_indent + 5"/>
-     </xsl:apply-templates>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:apply-templates mode="inline" select="."/>
-    </xsl:otherwise>
-   </xsl:choose>
- </xsl:template>
-
-<!-- DIFFERENTIATION -->
-<xsl:template match="m:apply[m:diff]">
-  <xsl:param name="current_indent" select="0"/> 
-  <xsl:param name="width" select="$framewidth"/>
-  <xsl:variable name="uri"><xsl:value-of select="m:diff/@definitionURL"/></xsl:variable>
-     <xsl:choose>
-     <xsl:when test="$uri != ''">
-      <a href="{$uri}">
-       <SUP>d</SUP>
-       <xsl:text>/</xsl:text>
-       <SUB>
-        <xsl:text>d</xsl:text>
-        <xsl:value-of select="m:bvar/m:ci"/>
-       </SUB>
-      </a>
-     </xsl:when>
-     <xsl:otherwise>
-       <SUP>d</SUP>
-       <xsl:text>/</xsl:text>
-       <SUB>
-        <xsl:text>d</xsl:text>
-        <xsl:value-of select="m:bvar/m:ci"/>
-       </SUB>
-     </xsl:otherwise>
-     </xsl:choose>
-     <xsl:apply-templates select="*[3]">
-      <xsl:with-param name="current_indent" select="$current_indent + 5"/>
-     </xsl:apply-templates>
- </xsl:template>
-
-
-<!-- ABSOLUTE VALUE -->
-<xsl:template match="m:apply[m:abs]">
-  <xsl:param name="current_indent" select="0"/> 
-  <xsl:param name="width" select="$framewidth"/>
-  <xsl:variable name="uri">
-   <xsl:value-of select="m:abs/@definitionURL"/>
-  </xsl:variable>
-  <xsl:text>|</xsl:text>
-  <xsl:apply-templates select="*[2]">
-   <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-  </xsl:apply-templates>
-  <xsl:text>|</xsl:text>
- </xsl:template>
-
-<!-- FACTORIAL -->
-
-<xsl:template match="m:apply[m:fact]">
-  <xsl:param name="current_indent" select="0"/> 
-  <xsl:param name="width" select="$framewidth"/>
-  <xsl:variable name="uri">
-   <xsl:value-of select="m:abs/@definitionURL"/>
-  </xsl:variable>
-  <xsl:apply-templates select="*[2]">
-   <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-  </xsl:apply-templates>
-  <xsl:text>!</xsl:text>
- </xsl:template>
-
-<!-- SQUARE ROOT -->
-
-<xsl:template match="m:apply[m:root]">
-  <xsl:param name="current_indent" select="0"/> 
-  <xsl:param name="width" select="$framewidth"/>
-  <xsl:variable name="uri">
-   <xsl:value-of select="m:abs/@definitionURL"/>
-  </xsl:variable>
-  <xsl:text>(sqr</xsl:text>
-  <xsl:apply-templates select="*[2]">
-   <xsl:with-param name="current_indent" select="$current_indent + 5"/>
-  </xsl:apply-templates>
-  <xsl:text>)</xsl:text>
- </xsl:template>
-
-<!-- POWER -->
-
-<xsl:template match="m:apply[m:power]">
-  <xsl:param name="current_indent" select="0"/> 
-  <xsl:param name="width" select="$framewidth"/>
-  <xsl:variable name="uri">
-   <xsl:value-of select="m:power/@definitionURL"/>
-  </xsl:variable>
-  <xsl:apply-templates select="*[2]"/>
-  <SUP>
-  <xsl:apply-templates select="*[3]"/>
-  </SUP>
- </xsl:template>
-
-<!-- MIN and MAX (binari: estendere) -->
-
- <xsl:template match="m:apply[m:min|m:max]">
-  <xsl:param name="current_indent" select="0"/> 
-  <xsl:param name="width" select="$framewidth"/>
-  <xsl:variable name="uri"><xsl:value-of select="*[1]/@definitionURL"/></xsl:variable>
-  <xsl:variable name="charlength">
-   <xsl:apply-templates select="*[1]" mode="charcount"/>
-  </xsl:variable>
-  <xsl:variable name="symbol">
-   <xsl:choose>
-    <xsl:when test="m:min">
-     <xsl:value-of select="'min'"/>
-    </xsl:when>
-    <xsl:when test="m:max">
-     <xsl:value-of select="'max'"/>
-    </xsl:when>
-   </xsl:choose>
-  </xsl:variable>
-  <xsl:choose>
-    <xsl:when test="$charlength > $framewidth">
-     <xsl:choose>
-     <xsl:when test="$uri != ''">
-      <a href="{$uri}">
-       <xsl:value-of select="$symbol"/>
-      </a>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:value-of select="$symbol"/>
-     </xsl:otherwise>
-     </xsl:choose>
-     <xsl:text>{</xsl:text>
-     <xsl:apply-templates select="*[2]">
-      <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-     </xsl:apply-templates>
-     <xsl:text>,</xsl:text>
-     <BR/> 
-     <xsl:call-template name="make_indent">
-      <xsl:with-param name="current_indent" select="$current_indent + 5"/> 
-     </xsl:call-template>
-     <xsl:apply-templates select="*[3]">
-      <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-     </xsl:apply-templates>
-     <xsl:text>}</xsl:text>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:apply-templates mode="inline" select="."/>
-    </xsl:otherwise>
-   </xsl:choose>
- </xsl:template>
-
-<!-- COUNTING -->
-
-<xsl:template match="m:abs|m:fact|m:root|
-           m:sum|m:limit|m:diff|m:min|m:max" mode="charcount">
-<xsl:param name="incurrent_length" select="0"/> 
-    <xsl:choose>
-    <xsl:when test="$framewidth >= ($incurrent_length + string-length())">
-     <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length + string-length()"/></xsl:apply-templates></xsl:variable>
-     <xsl:choose>
-     <xsl:when test="string($siblength) = &quot;&quot;">
-      <xsl:value-of select="$incurrent_length + string-length()"/>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:value-of select="number($siblength)"/>
-     </xsl:otherwise>
-     </xsl:choose>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:value-of select="$incurrent_length + string-length()"/>
-    </xsl:otherwise>
-    </xsl:choose>
-</xsl:template> 
-
-</xsl:stylesheet> 

diff --git a/helm/style/html_set.xsl b/helm/style/html_set.xsl
deleted file mode 100644 (file)
index 4003d25..0000000
--- a/helm/style/html_set.xsl
+++ /dev/null
@@ -1,389 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML">
-
-<!--***********************************************************************--> 
-<!-- INIT style for HTML                                                   -->
-<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena                      -->
-<!--***********************************************************************--> 
-
-<xsl:template name="mksymbol">
- <xsl:param name="symbol" select="''"/>
-  <xsl:choose>
-   <xsl:when test="$UNICODEvsSYMBOL = 'symbol'">
-    <xsl:variable name="fontsymbol">
-     <xsl:choose>
-      <xsl:when test="$symbol = 'emptyset'">
-       <xsl:value-of select="'&#198;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'in'">
-       <xsl:value-of select="'&#206;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'notin'">
-       <xsl:value-of select="'&#207;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'intersect'">
-       <xsl:value-of select="'&#199;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'union'">
-       <xsl:value-of select="'&#200;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'subset'">
-       <xsl:value-of select="'&#205;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'prsubset'">
-       <xsl:value-of select="'&#204;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'setdiff'">
-       <xsl:value-of select="'/'"/>
-      </xsl:when>
-     </xsl:choose>
-    </xsl:variable>
-    <FONT FACE="symbol" mathcolor="blue">
-     <xsl:value-of select="$fontsymbol"/>
-    </FONT>
-   </xsl:when>
-   <xsl:otherwise>
-    <xsl:variable name="unicodesymbol">
-     <xsl:choose>
-      <xsl:when test="$symbol = 'emptyset'">
-       <xsl:value-of select="'&#8709;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'in'">
-       <xsl:value-of select="'&#8712;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'notin'">
-       <xsl:value-of select="'&#8713;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'intersect'">
-       <xsl:value-of select="'&#8745;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'union'">
-       <xsl:value-of select="'&#8746;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'subset'">
-       <xsl:value-of select="'&#8838;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'prsubset'">
-       <xsl:value-of select="'&#8834;'"/>
-      </xsl:when>
-      <xsl:when test="$symbol = 'setdiff'">
-       <xsl:value-of select="'&#47;'"/>
-      </xsl:when>
-     </xsl:choose>
-    </xsl:variable>
-    <xsl:value-of select="$unicodesymbol"/>
-   </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<!-- **************************************************************** -->
-<!--                   INLINE MODE                                    -->
-<!-- **************************************************************** -->
-
-<!-- SET -->
-
- <xsl:template mode="inline" match="m:set">
-  <xsl:variable name="uri" select="@definitionURL"/>
-  <xsl:choose>
-   <xsl:when test="count(child::*) = 0">
-    <xsl:call-template name="mksymbol">
-     <xsl:with-param name="symbol" select="'emptyset'"/>
-    </xsl:call-template>
-   </xsl:when>
-   <xsl:otherwise>
-    <xsl:choose>
-     <xsl:when test="name(*[1]) = 'm:bvar'">
-      <xsl:text>{</xsl:text>
-      <xsl:apply-templates mode="inline" select="m:bvar/m:ci"/>
-      <xsl:text>:</xsl:text>
-      <xsl:apply-templates mode="inline" select="m:bvar/m:type"/>
-      <xsl:text>|</xsl:text>
-      <xsl:apply-templates mode="inline" select="*[position()=2]"/>
-      <xsl:text>}</xsl:text>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:text>{</xsl:text>
-      <xsl:for-each select="*">
-       <xsl:apply-templates mode="inline" select="."/>
-       <xsl:choose>
-        <xsl:when test="position() = last()">
-         <xsl:text>}</xsl:text>
-        </xsl:when>
-        <xsl:otherwise>
-         <xsl:text>,</xsl:text>
-        </xsl:otherwise>
-       </xsl:choose>
-      </xsl:for-each>
-     </xsl:otherwise>
-    </xsl:choose>
-   </xsl:otherwise>
-  </xsl:choose>
- </xsl:template>
-
-
-<!-- CARD -->
-<xsl:template mode="inline" match="m:apply[m:card]">
-  <xsl:param name="current_indent" select="0"/> 
-  <xsl:param name="width" select="$framewidth"/>
-  <xsl:variable name="uri">
-   <xsl:value-of select="m:card/@definitionURL"/>
-  </xsl:variable>
-  <xsl:text>|</xsl:text>
-  <xsl:apply-templates mode="inline" select="*[2]"/>
-  <xsl:text>|</xsl:text>
- </xsl:template>
-
-<xsl:template mode="inline" match="m:apply[m:in|m:notin|m:intersect|m:union
-  |m:subset|m:prsubset|m:setdiff]">
-  <xsl:variable name="uri"><xsl:value-of select="*[1]/@definitionURL"/></xsl:variable>
-  <xsl:variable name="symbol">
-   <xsl:choose>
-    <xsl:when test="m:in">
-     <xsl:value-of select="'&#206;'"/>
-    </xsl:when>
-    <xsl:when test="m:notin">
-     <xsl:value-of select="'&#207;'"/>
-    </xsl:when>
-    <xsl:when test="m:intersect">
-     <xsl:value-of select="'&#199;'"/>
-    </xsl:when>
-    <xsl:when test="m:union">
-     <xsl:value-of select="'&#200;'"/>
-    </xsl:when>
-    <xsl:when test="m:subset">
-     <xsl:value-of select="'&#205;'"/>
-    </xsl:when>
-    <xsl:when test="m:prsubset">
-     <xsl:value-of select="'&#204;'"/>
-    </xsl:when>
-    <xsl:when test="m:setdiff">
-     <xsl:value-of select="'/'"/>
-    </xsl:when>
-   </xsl:choose>
-  </xsl:variable>
-  <xsl:text>(</xsl:text>
-  <xsl:apply-templates mode="inline" select="*[2]"/>
-  <xsl:choose>
-  <xsl:when test="$uri != ''">
-   <a href="{$uri}">
-    <xsl:call-template name="mksymbol">
-     <xsl:with-param name="symbol">
-      <xsl:value-of select="local-name(*[1])"/>
-     </xsl:with-param>
-    </xsl:call-template>
-   </a>
-  </xsl:when>
-  <xsl:otherwise>
-    <xsl:call-template name="mksymbol">
-     <xsl:with-param name="symbol">
-      <xsl:value-of select="local-name(*[1])"/>
-     </xsl:with-param>
-    </xsl:call-template>
-  </xsl:otherwise>
-  </xsl:choose>
-  <xsl:apply-templates mode="inline" select="*[3]"/>
-  <xsl:text>)</xsl:text>
- </xsl:template>
-
-<!-- *************************************************************** -->
-
-<xsl:template match="m:apply[m:in|m:notin|m:intersect|m:union
-  |m:subset|m:prsubset|m:setdiff]">
-  <xsl:param name="current_indent" select="0"/> 
-  <xsl:param name="width" select="$framewidth"/>
-  <xsl:variable name="uri"><xsl:value-of select="*[1]/@definitionURL"/></xsl:variable>
-  <xsl:variable name="charlength">
-   <xsl:apply-templates select="*[1]" mode="charcount"/>
-  </xsl:variable>
-  <xsl:variable name="symbol">
-   <xsl:choose>
-    <xsl:when test="m:in">
-     <xsl:value-of select="'&#206;'"/>
-    </xsl:when>
-    <xsl:when test="m:notin">
-     <xsl:value-of select="'&#207;'"/>
-    </xsl:when>
-    <xsl:when test="m:intersect">
-     <xsl:value-of select="'&#199;'"/>
-    </xsl:when>
-    <xsl:when test="m:union">
-     <xsl:value-of select="'&#200;'"/>
-    </xsl:when>
-    <xsl:when test="m:subset">
-     <xsl:value-of select="'&#205;'"/>
-    </xsl:when>
-    <xsl:when test="m:prsubset">
-     <xsl:value-of select="'&#204;'"/>
-    </xsl:when>
-    <xsl:when test="m:setdiff">
-     <xsl:value-of select="'/'"/>
-    </xsl:when>
-   </xsl:choose>
-  </xsl:variable>
-  <xsl:choose>
-    <xsl:when test="$charlength > $framewidth">
-     <xsl:text>(</xsl:text>
-     <xsl:apply-templates select="*[2]">
-      <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-     </xsl:apply-templates>
-     <BR/> 
-     <xsl:call-template name="make_indent">
-      <xsl:with-param name="current_indent" select="$current_indent + 2"/> 
-     </xsl:call-template>
-     <xsl:choose>
-     <xsl:when test="$uri != ''"> 
-      <a href="{$uri}">
-       <xsl:call-template name="mksymbol">
-        <xsl:with-param name="symbol">
-         <xsl:value-of select="local-name(*[1])"/>
-        </xsl:with-param>
-       </xsl:call-template>
-      </a>
-     </xsl:when>
-     <xsl:otherwise>
-       <xsl:call-template name="mksymbol">
-        <xsl:with-param name="symbol">
-         <xsl:value-of select="local-name(*[1])"/>
-        </xsl:with-param>
-       </xsl:call-template>
-     </xsl:otherwise>
-     </xsl:choose> 
-     <xsl:apply-templates select="*[3]">
-      <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-     </xsl:apply-templates>
-     <xsl:text>)</xsl:text>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:apply-templates mode="inline" select="."/>
-    </xsl:otherwise>
-   </xsl:choose>
- </xsl:template>
-
-
-<!-- SET -->
-
- <xsl:template match="m:set">
-  <xsl:param name="current_indent" select="0"/> 
-  <xsl:param name="width" select="$framewidth"/>
-  <xsl:variable name="uri" select="@definitionURL"/>
-  <xsl:choose>
-   <xsl:when test="count(child::*) = 0">
-    <xsl:call-template name="mksymbol">
-     <xsl:with-param name="symbol" select="'emptyset'"/>
-    </xsl:call-template>
-   </xsl:when>
-   <xsl:otherwise>
-    <xsl:variable name="charlength">
-     <xsl:apply-templates select="." mode="charcount"/>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="$charlength > $framewidth">
-      <xsl:choose>
-       <xsl:when test="name(*[1]) = 'm:bvar'">
-        <xsl:text>{</xsl:text>
-        <xsl:apply-templates select="m:bvar/m:ci"/>
-        <xsl:text>:</xsl:text>
-        <xsl:apply-templates select="m:bvar/m:type">
-         <xsl:with-param name="current_indent" 
-           select="$current_indent + 2 + string-length(m:bvar/m:ci)"/>
-        </xsl:apply-templates><BR/>
-        <xsl:call-template name="make_indent">
-         <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-        </xsl:call-template>
-        <xsl:text>|</xsl:text>
-        <xsl:apply-templates select="m:condition">
-         <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-        </xsl:apply-templates>
-        <xsl:text>}</xsl:text>
-       </xsl:when>
-       <xsl:otherwise>
-        <xsl:text>{</xsl:text>
-         <xsl:apply-templates select="*[position()=1]">
-          <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-         </xsl:apply-templates>
-         <xsl:for-each select="*[position()>1]">
-          <xsl:text>,</xsl:text>
-          <BR/>
-          <xsl:call-template name="make_indent">
-           <xsl:with-param name="current_indent" select="$current_indent + 2"/> 
-          </xsl:call-template>
-          <xsl:apply-templates select=".">
-           <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-          </xsl:apply-templates>
-         </xsl:for-each>
-        <xsl:text>}</xsl:text>
-       </xsl:otherwise>
-      </xsl:choose>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-templates mode="inline" select="."/>
-     </xsl:otherwise>
-    </xsl:choose>
-   </xsl:otherwise>
-  </xsl:choose>
- </xsl:template> 
-
-<!-- CARD -->
-<xsl:template match="m:apply[m:card]">
-  <xsl:param name="current_indent" select="0"/> 
-  <xsl:param name="width" select="$framewidth"/>
-  <xsl:variable name="uri">
-   <xsl:value-of select="m:card/@definitionURL"/>
-  </xsl:variable>
-  <xsl:text>|</xsl:text>
-  <xsl:apply-templates select="*[2]">
-   <xsl:with-param name="current_indent" select="$current_indent + 2"/>
-  </xsl:apply-templates>
-  <xsl:text>|</xsl:text>
- </xsl:template>
-
-<!-- COUNTING -->
-
-<xsl:template match="m:in|m:notin|m:intersect|m:union
-           |m:subset|m:prsubset|m:setdiff|m:card" mode="charcount">
-<xsl:param name="incurrent_length" select="0"/> 
-    <xsl:choose>
-    <xsl:when test="$framewidth >= ($incurrent_length + string-length())">
-     <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length + string-length()"/></xsl:apply-templates></xsl:variable>
-     <xsl:choose>
-     <xsl:when test="string($siblength) = &quot;&quot;">
-      <xsl:value-of select="$incurrent_length + string-length()"/>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:value-of select="number($siblength)"/>
-     </xsl:otherwise>
-     </xsl:choose>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:value-of select="$incurrent_length + string-length()"/>
-    </xsl:otherwise>
-    </xsl:choose>
-</xsl:template> 
-
-</xsl:stylesheet> 

diff --git a/helm/style/inductive.xsl b/helm/style/inductive.xsl
deleted file mode 100644 (file)
index 83569d7..0000000
--- a/helm/style/inductive.xsl
+++ /dev/null
@@ -1,407 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--******************************************************************--> 
-<!-- XSLT version 0.1 of CIC inductive objects to MathML content:     -->
-<!-- First draft: March 2001, Andrea asperti                          -->
-<!--******************************************************************-->
-
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm">
-
-
-<xsl:template mode="inductive" match="APPLY">
- <xsl:param name="inductive_def_uri" select="''"/>
- <xsl:param name="inductive_def" select="/.."/>
- <xsl:param name="inductive_def_index" select="1"/>
- <xsl:param name="inductive_def_name" select="''"/>
- <xsl:param name="section_params" select="0"/>
- <!-- expected_args_type contains the types of the arguments expected by
-      the induction principle -->
- <xsl:variable name="InductiveTypeUrl"><xsl:call-template name="URLofURI4getter"><xsl:with-param name="uri" select="*[1]/@uri"/></xsl:call-template></xsl:variable>
- <xsl:variable name="expected_args_types" 
-       select="document($InductiveTypeUrl)/Definition/type//PROD[not(ancestor::source)]/source/*[1]"/>
- <xsl:variable name="no_expected_args" select="count($expected_args_types)"/>
- <xsl:variable name="actual_arguments" select="*[position()>(1+$section_params)]"/>
- <!-- First check that the induction principle is applied to the
-      expected number of arguments -->
- <xsl:choose>
-  <xsl:when test="$no_expected_args = count($actual_arguments)">
-   <!-- Now check that each actual argument starts with the
-        expected number of lambda abstractions -->
-   <xsl:variable name="argsOK"> 
-    <xsl:call-template name="check_args">
-     <xsl:with-param name="arg_types" select="$expected_args_types"/>
-     <xsl:with-param name="actual_args" select="$actual_arguments"/>
-    </xsl:call-template>
-   </xsl:variable>
-   <xsl:choose>
-    <!-- il semplice test $argsOK non funziona -->
-    <xsl:when test="string($argsOK) = 'true'">
-     <!-- arguments are in the expected form: we create a
-          "by_induction" content element -->
-     <!-- no_params is the number of paramters in square brackets -->
-     <xsl:variable name="no_params" 
-      select="$inductive_def/@noParams"/>
-     <!-- the inductive property is the first argument following
-          the parameters  -->
-     <xsl:variable name="inductive_property" 
-               select="$actual_arguments[1 + $no_params]"/>
-     <xsl:variable name="tail_args" 
-      select="$actual_arguments[position()> (1 + $no_params)]"/>
-     <!-- inductive_type contains the right inductive type in the
-          mutual inductive definition -->
-     <xsl:variable name="inductive_type" 
-      select="$inductive_def/InductiveType[position()=$inductive_def_index]"/>
-     <xsl:variable name="no_constructors" 
-      select="count($inductive_type/Constructor)"/>
-     <!-- each case has a single argument -->
-     <xsl:variable name="args_for_cases" 
-      select="$tail_args[($no_constructors + 1) > position()]"/>
-     <!-- extra_args contains the remaining arguments; the LAST one
-          of them is the argument we are inductively arguing on -->
-     <xsl:variable name="extra_args" 
-      select="$tail_args[position()> $no_constructors]"/>
-     <m:apply>
-      <m:csymbol>by_induction</m:csymbol>
-      <!-- the first (i.e. second) argument of by_induction
-           is the uri of the inductive definition -->
-      <m:ci><xsl:value-of select="$inductive_def_uri"/></m:ci>
-      <!-- next, we have the inductive property, currently not
-           used for rendering (it could be omitted??) -->
-      <xsl:apply-templates mode="pure" select="$inductive_property"/>
-      <!-- each case has its own "inductive_case" element -->
-      <!-- the inductive case element is composed by:
-           * "case_lhs" element, containing the constructor name applied
-              to its arguments. The arguments are abstraction variables
-              (with types) got form the initial lambdas of the argument
-              for the case.
-           * "induction_hypothesis" element, containg the induction 
-              hypothesis. Again, these are abstraction variables
-              (with types) got form the initial lambdas of the argument
-              for the case.
-           * body of the case, without specific markup.
-       -->
-      <xsl:for-each select="$inductive_type/Constructor">
-       <xsl:variable name="pos" select="position()"/>
-       <xsl:variable name="current_arg" 
-                     select="$args_for_cases[position()=$pos]"/>
-       <m:apply>
-        <m:csymbol>inductive_case</m:csymbol>
-        <m:apply>
-         <m:csymbol>case_lhs</m:csymbol>
-         <m:ci definitionURL="{$inductive_def_uri}">
-          <xsl:value-of select="@name"/>
-         </m:ci>     
-         <xsl:call-template name="get_constructor_args">
-          <xsl:with-param name="no_params" 
-               select="$no_params"/>
-          <xsl:with-param name="constructor_arity" 
-               select="*[1]"/>
-          <xsl:with-param name="actual_arg" 
-               select="$current_arg"/>
-          <xsl:with-param name="inductive_def_name" 
-               select="$inductive_def_name"/>
-          </xsl:call-template>
-        </m:apply>
-        <m:apply>
-         <m:csymbol>induction_hypothesis</m:csymbol>
-         <xsl:call-template name="get_induction_hypothesis">
-          <xsl:with-param name="no_params" 
-               select="$no_params"/>
-          <xsl:with-param name="constructor_arity" 
-               select="*[1]"/>
-          <xsl:with-param name="actual_arg" 
-               select="$current_arg"/>
-          <xsl:with-param name="inductive_def_name" 
-               select="$inductive_def_name"/>
-         </xsl:call-template>
-        </m:apply>
-        <xsl:call-template name="get_body">
-         <xsl:with-param name="no_params" 
-               select="$no_params"/>
-         <xsl:with-param name="constructor_arity" 
-               select="*[1]"/>
-         <xsl:with-param name="actual_arg" select="$current_arg"/>
-         <xsl:with-param name="inductive_def_name" 
-               select="$inductive_def_name"/>
-        </xsl:call-template>
-       </m:apply>
-      </xsl:for-each>
-      <!-- the inductive argument is the last argument of extra-args -->
-      <m:apply>
-       <m:csymbol>extra_args</m:csymbol>
-       <xsl:apply-templates mode="pure" select="$extra_args"/>
-      </m:apply>
-     </m:apply>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:apply-templates mode="letin" select="."/>
-    </xsl:otherwise>
-   </xsl:choose>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:apply-templates mode="letin" select="."/>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<!-- check_args checks that the number of lambda abstractions
-     of each actual parameter is GREATER OR EQUAL to the number
-     or products of the corresponding formal parameter of the
-     induction principles. That is, that each argument is 
-     sufficiently eta-expanded.
-     If this is not the case, not good rendering looks possible.
-     Check_args returns a boolean. 
-   -->
-<xsl:template name="check_args">
- <xsl:param name="arg_types" select="/.."/>
- <xsl:param name="actual_args" select="/.."/>
- <xsl:param name="bool_var" select="true()"/>
- <xsl:choose>
-  <xsl:when test="count($arg_types) = 0">
-    <xsl:value-of select="$bool_var"/>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:variable name="no_expected_arg_of_arg">
-    <xsl:apply-templates mode="count_arity" select="$arg_types[1]">
-     <xsl:with-param name="what" select="'PROD'"/>
-    </xsl:apply-templates>
-   </xsl:variable>
-   <xsl:variable name="no_actual_abst_of_arg"> 
-    <xsl:apply-templates mode="count_arity" select="$actual_args[1]">
-     <xsl:with-param name="what" select="'LAMBDA'"/>
-    </xsl:apply-templates>
-   </xsl:variable>
-   <!-- REPLACE WITH EQUALITY ???? -->
-   <xsl:variable name="test_arg" 
-    select="$no_actual_abst_of_arg >= $no_expected_arg_of_arg"/> 
-   <xsl:call-template name="check_args">
-    <xsl:with-param name="arg_types" select="$arg_types[position()>1]"/>
-    <xsl:with-param name="actual_args" select="$actual_args[position()>1]"/>
-    <xsl:with-param name="bool_var" select="($bool_var and $test_arg)"/>
-   </xsl:call-template> 
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<!-- count_arity counts the number of head lambda (or prod) -->
-<xsl:template mode="count_arity" match="*">
- <xsl:param name="what" select="'LAMBDA'"/>
- <xsl:param name="num" select="0"/>
- <!-- MANCANO I CAST ??? -->
- <xsl:choose>
-  <xsl:when test="name(.) = $what">
-   <xsl:apply-templates mode="count_arity" select="target/*[1]">
-    <xsl:with-param name="what" select="$what"/>
-    <xsl:with-param name="num" select="$num+1"/>
-   </xsl:apply-templates>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:value-of select="$num"/>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<!-- The following three functions are essentially identical
-     in their recursive structure.
-     The problem is that of decomposing an actual argument for
-     a case in three parts: 
-     * constructor variables
-     * induction hypothesis
-     * body
-     To this aim we must proceed in parallel with the type of
-     the constructor: if the type contains a prod, then the 
-     the corresponding lambda of the argument provides the 
-     constructor variable. Moreover, if the source type of the
-     prod contains a reference to the inductive type, it is a
-     recursive argument and the NEXT lambda of the argument 
-     provides an induction hypothesis.
-     Unfortunately the three functions cannot be merged into a
-     single one without a conversion from document tree fragments
-     to node-sets. 
--->
-<xsl:template name="get_constructor_args">
- <xsl:param name="no_params" select="0"/>
- <xsl:param name="constructor_arity" select="/.."/>
- <xsl:param name="actual_arg" select="/.."/>
- <xsl:param name="inductive_def_name" select="''"/>
- <xsl:choose>
- <xsl:when test="$no_params = 0">
- <xsl:if test="name($constructor_arity)='PROD'">
-  <m:bvar>
-   <m:ci><xsl:value-of select="$actual_arg/target/@binder"/></m:ci>
-   <m:type>
-    <xsl:apply-templates mode="pure" select="$actual_arg/source/*[1]"/>
-   </m:type> 
-  </m:bvar>
-  <xsl:choose>
-   <xsl:when test="$constructor_arity/source//REL[@binder=$inductive_def_name]">
-    <xsl:call-template name="get_constructor_args">
-    <xsl:with-param name="constructor_arity" 
-        select="$constructor_arity/target/*[1]"/>
-    <xsl:with-param name="actual_arg" 
-        select="$actual_arg/target/LAMBDA/target/*[1]"/>
-    <xsl:with-param name="inductive_def_name" 
-               select="$inductive_def_name"/>
-    </xsl:call-template>
-   </xsl:when>
-   <xsl:otherwise>
-    <xsl:call-template name="get_constructor_args">
-    <xsl:with-param name="constructor_arity" 
-        select="$constructor_arity/target/*[1]"/>
-    <xsl:with-param name="actual_arg" 
-        select="$actual_arg/target/*[1]"/>
-    <xsl:with-param name="inductive_def_name" 
-               select="$inductive_def_name"/>
-    </xsl:call-template>
-   </xsl:otherwise>
-  </xsl:choose>
- </xsl:if>
- </xsl:when>
- <xsl:otherwise>
-  <xsl:call-template name="get_constructor_args">
-    <xsl:with-param name="no_params" select="$no_params - 1"/>
-    <xsl:with-param name="constructor_arity" 
-        select="$constructor_arity/target/*[1]"/>
-    <xsl:with-param name="actual_arg" 
-        select="$actual_arg"/>
-    <xsl:with-param name="inductive_def_name" 
-               select="$inductive_def_name"/>
-    </xsl:call-template>
- </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<xsl:template name="get_induction_hypothesis">
- <xsl:param name="no_params" select="0"/>
- <xsl:param name="constructor_arity" select="/.."/>
- <xsl:param name="actual_arg" select="/.."/>
- <xsl:param name="inductive_def_name" select="''"/>
- <xsl:choose>
- <xsl:when test="$no_params = 0">
- <xsl:if test="name($constructor_arity)='PROD'">
-  <xsl:choose>
-   <xsl:when test="$constructor_arity/source//REL[@binder=$inductive_def_name]">
-    <m:bvar>
-     <m:ci>
-      <xsl:value-of select="$actual_arg/target/LAMBDA/target/@binder"/>
-     </m:ci>
-     <m:type>
-      <xsl:apply-templates mode="pure" 
-           select="$actual_arg/target/LAMBDA/source"/>
-     </m:type>
-    </m:bvar>
-    <xsl:call-template name="get_induction_hypothesis">
-    <xsl:with-param name="constructor_arity" 
-        select="$constructor_arity/target/*[1]"/>
-    <xsl:with-param name="actual_arg" 
-        select="$actual_arg/target/LAMBDA/target/*[1]"/>
-    <xsl:with-param name="inductive_def_name" 
-               select="$inductive_def_name"/>
-    </xsl:call-template>
-   </xsl:when>
-   <xsl:otherwise>
-    <xsl:call-template name="get_induction_hypothesis">
-    <xsl:with-param name="constructor_arity" 
-        select="$constructor_arity/target/*[1]"/>
-    <xsl:with-param name="actual_arg" 
-        select="$actual_arg/target/*[1]"/>
-    <xsl:with-param name="inductive_def_name" 
-               select="$inductive_def_name"/>
-    </xsl:call-template>
-   </xsl:otherwise>
-  </xsl:choose>
- </xsl:if>
- </xsl:when>
- <xsl:otherwise>
-  <xsl:call-template name="get_induction_hypothesis">
-    <xsl:with-param name="no_params" select="$no_params - 1"/>
-    <xsl:with-param name="constructor_arity" 
-        select="$constructor_arity/target/*[1]"/>
-    <xsl:with-param name="actual_arg" 
-        select="$actual_arg"/>
-    <xsl:with-param name="inductive_def_name" 
-               select="$inductive_def_name"/>
-    </xsl:call-template>
- </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<xsl:template name="get_body">
- <xsl:param name="no_params" select="0"/>
- <xsl:param name="constructor_arity" select="/.."/>
- <xsl:param name="actual_arg" select="/.."/>
- <xsl:param name="inductive_def_name" select="''"/>
- <xsl:choose>
- <xsl:when test="$no_params = 0">
- <xsl:choose>
- <xsl:when test="name($constructor_arity)='PROD'">
-  <xsl:choose>
-   <xsl:when test="$constructor_arity/source//REL[@binder=$inductive_def_name]">
-    <xsl:call-template name="get_body">
-    <xsl:with-param name="constructor_arity" 
-        select="$constructor_arity/target/*[1]"/>
-    <xsl:with-param name="actual_arg" 
-        select="$actual_arg/target/LAMBDA/target/*[1]"/>
-    <xsl:with-param name="inductive_def_name" 
-               select="$inductive_def_name"/>
-    </xsl:call-template>
-   </xsl:when>
-   <xsl:otherwise>
-    <xsl:call-template name="get_body">
-    <xsl:with-param name="constructor_arity" 
-        select="$constructor_arity/target/*[1]"/>
-    <xsl:with-param name="actual_arg" 
-        select="$actual_arg/target/*[1]"/>
-    <xsl:with-param name="inductive_def_name" 
-               select="$inductive_def_name"/>
-    </xsl:call-template>
-   </xsl:otherwise>
-  </xsl:choose>
- </xsl:when>
- <xsl:otherwise>
-  <xsl:apply-templates mode="noannot" select="$actual_arg"/>
- </xsl:otherwise> 
- </xsl:choose>
- </xsl:when>
- <xsl:otherwise>
-  <xsl:call-template name="get_body">
-    <xsl:with-param name="no_params" select="$no_params - 1"/>
-    <xsl:with-param name="constructor_arity" 
-        select="$constructor_arity/target/*[1]"/>
-    <xsl:with-param name="actual_arg" 
-        select="$actual_arg"/>
-    <xsl:with-param name="inductive_def_name" 
-               select="$inductive_def_name"/>
-    </xsl:call-template>
- </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/lambda.xsl b/helm/style/lambda.xsl
deleted file mode 100644 (file)
index 28c876f..0000000
--- a/helm/style/lambda.xsl
+++ /dev/null
@@ -1,158 +0,0 @@
-<?xml version="1.0"?>
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--******************************************************************--> 
-<!-- Lambda Calculus                                                  -->
-<!-- First draft: March 20 2001, Andrea Asperti                       -->
-<!--******************************************************************-->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm">
-
-<!-- ************************** LAMBDA ****************************** -->
-
-<!-- subst -->
-<xsl:template match="APPLY[CONST[(attribute::uri='cic:/Rocq/LAMBDA/Terms/subst_rec.con' or attribute::uri='cic:/Rocq/LAMBDA/Substitution/subst_rec_r.con')] and count(child::*) = 4]" mode="pure">
-       <m:apply>
-         <m:csymbol definitionURL="{CONST/@uri}">subst</m:csymbol>
-         <xsl:apply-templates select="*[3]" mode="pure"/>
-         <xsl:apply-templates select="*[2]" mode="pure"/>
-         <xsl:apply-templates select="*[4]" mode="pure"/>
-        </m:apply>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST[(attribute::uri='cic:/Rocq/LAMBDA/Terms/subst.con' or attribute::uri='cic:/Rocq/LAMBDA/Substitution/subst_r.con')] and count(child::*) = 3]" mode="pure">
-       <m:apply>
-         <m:csymbol definitionURL="{CONST/@uri}">subst</m:csymbol>
-         <xsl:apply-templates select="*[2]" mode="pure"/>
-         <xsl:apply-templates select="*[3]" mode="pure"/>
-         <m:ci>0</m:ci>
-        </m:apply>
-</xsl:template>
-
-<!-- lift -->
-<xsl:template match="APPLY[CONST[(attribute::uri='cic:/Rocq/LAMBDA/Terms/lift_rec.con' or attribute::uri='cic:/Rocq/LAMBDA/Substitution/lift_rec_r.con')] and count(child::*) = 4]" mode="pure">
-       <m:apply>
-         <m:csymbol definitionURL="{CONST/@uri}">lift_with_base</m:csymbol>
-         <xsl:apply-templates select="*[2]" mode="pure"/>
-         <xsl:apply-templates select="*[3]" mode="pure"/>
-         <xsl:apply-templates select="*[4]" mode="pure"/>
-        </m:apply>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST[(attribute::uri='cic:/Rocq/LAMBDA/Terms/lift.con' or attribute::uri='cic:/Rocq/LAMBDA/Substitution/lift_r.con')] and count(child::*) = 3]" mode="pure">
-       <m:apply>
-         <m:csymbol definitionURL="{CONST/@uri}">lift</m:csymbol>
-         <xsl:apply-templates select="*[2]" mode="pure"/>
-         <xsl:apply-templates select="*[3]" mode="pure"/>
-        </m:apply>
-</xsl:template>
-
-<!-- reduction -->
-<xsl:template match="APPLY[MUTIND[(position()='1' and attribute::uri='cic:/Rocq/LAMBDA/Reduction/red1.ind')] and count(child::*) = 3]" mode="pure">
-       <m:apply>
-         <m:csymbol definitionURL="{MUTIND/@uri}">beta_red1</m:csymbol>
-         <xsl:apply-templates select="*[2]" mode="pure"/>
-         <xsl:apply-templates select="*[3]" mode="pure"/>
-        </m:apply>
-</xsl:template>
-
-<xsl:template match="APPLY[MUTIND[(position()='1' and attribute::uri='cic:/Rocq/LAMBDA/Reduction/red.ind')] and count(child::*) = 3]" mode="pure">
-       <m:apply>
-         <m:csymbol definitionURL="{MUTIND/@uri}">beta_red</m:csymbol>
-         <xsl:apply-templates select="*[2]" mode="pure"/>
-         <xsl:apply-templates select="*[3]" mode="pure"/>
-        </m:apply>
-</xsl:template>
-
-<xsl:template match="APPLY[MUTIND[(position()='1' and attribute::uri='cic:/Rocq/LAMBDA/Reduction/par_red1.ind')] and count(child::*) = 3]" mode="pure">
-       <m:apply>
-         <m:csymbol definitionURL="{MUTIND/@uri}">par_beta_red1</m:csymbol>
-         <xsl:apply-templates select="*[2]" mode="pure"/>
-         <xsl:apply-templates select="*[3]" mode="pure"/>
-        </m:apply>
-</xsl:template>
-
-<xsl:template match="APPLY[MUTIND[(position()='1' and attribute::uri='cic:/Rocq/LAMBDA/Reduction/par_red.ind')] and count(child::*) = 3]" mode="pure">
-       <m:apply>
-         <m:csymbol definitionURL="{MUTIND/@uri}">par_beta_red</m:csymbol>
-         <xsl:apply-templates select="*[2]" mode="pure"/>
-         <xsl:apply-templates select="*[3]" mode="pure"/>
-        </m:apply>
-</xsl:template>
-
-<!-- unmark -->
-
-<xsl:template match="APPLY[CONST[(position()='1' and attribute::uri='cic:/Rocq/LAMBDA/Marks/unmark.con')] and count(child::*) = 2]" mode="pure">
-       <m:apply>
-         <m:csymbol definitionURL="{CONST/@uri}">forgetful</m:csymbol>
-         <xsl:apply-templates select="*[2]" mode="pure"/>
-        </m:apply>
-</xsl:template>
-
-<!-- boolean algebra of redexes -->
-
-<xsl:template match="APPLY[MUTIND[(position()='1' and attribute::uri='cic:/Rocq/LAMBDA/Redexes/sub.ind')] and count(child::*) = 3]" mode="pure">
-       <m:apply>
-         <m:subset definitionURL="{MUTIND/@uri}"/>
-         <xsl:apply-templates select="*[2]" mode="pure"/>
-         <xsl:apply-templates select="*[3]" mode="pure"/>
-        </m:apply>
-</xsl:template>
-
-<xsl:template match="APPLY[MUTIND[(position()='1' and attribute::uri='cic:/Rocq/LAMBDA/Redexes/union.ind')] and count(child::*) = 4]" mode="pure">
-       <m:apply>
-         <m:eq definitionURL="{MUTIND/@uri}"/>
-         <m:apply>
-          <m:union definitionURL="{MUTIND/@uri}"/>
-          <xsl:apply-templates select="*[2]" mode="pure"/>
-          <xsl:apply-templates select="*[3]" mode="pure"/>
-         </m:apply>
-         <xsl:apply-templates select="*[4]" mode="pure"/>
-        </m:apply>
-</xsl:template>
-
-<xsl:template match="APPLY[MUTIND[(position()='1' and attribute::uri='cic:/Rocq/LAMBDA/Redexes/comp.ind')] and count(child::*) = 3]" mode="pure">
-       <m:apply>
-         <m:csymbol definitionURL="{MUTIND/@uri}">isomorphic</m:csymbol>
-         <xsl:apply-templates select="*[2]" mode="pure"/>
-         <xsl:apply-templates select="*[3]" mode="pure"/>
-        </m:apply>
-</xsl:template>
-
-<xsl:template match="APPLY[MUTIND[(position()='1' and attribute::uri='cic:/Rocq/LAMBDA/Residuals/residuals.ind')] and count(child::*) = 4]" mode="pure">
-       <m:apply>
-         <m:eq definitionURL="{MUTIND/@uri}"/>
-         <m:apply>
-          <m:setdiff definitionURL="{MUTIND/@uri}"/>
-          <xsl:apply-templates select="*[2]" mode="pure"/>
-          <xsl:apply-templates select="*[3]" mode="pure"/>
-         </m:apply>
-         <xsl:apply-templates select="*[4]" mode="pure"/>
-        </m:apply>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/link.xsl b/helm/style/link.xsl
deleted file mode 100644 (file)
index 48bb02b..0000000
--- a/helm/style/link.xsl
+++ /dev/null
@@ -1,118 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm"
-                              xmlns:xlink="http://www.w3.org/1999/xlink">
-
-<!--***********************************************************************--> 
-<!-- From MathML presentation or HTML to themselves with links             -->
-<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena                      -->
-<!-- First draft: March 16 2001, Irene Schena                              -->
-<!--***********************************************************************--> 
-
-<xsl:import href="links_library.xsl"/>
-
-<xsl:key name="id" use="@id" match="m:*"/>
-
-<xsl:template match = "m:semantics">
-   <xsl:apply-templates select="*[1]" mode="semantics"/>
-</xsl:template>
-
-<!-- Discharging content markup mantaining the linking info (helm:xref and 
-xlink:href) -->
-<xsl:template match = "*" mode="semantics">
-  <xsl:copy>
-   <xsl:copy-of select="@*"/>
-   <xsl:if test="@m:xref">
-    <xsl:variable name="cnode" select="key('id',@m:xref)"/>
-    <xsl:if test="$cnode/@definitionURL"> 
-     <xsl:attribute name="xlink:href">
-      <xsl:call-template name="makeURL"><xsl:with-param name="uri" select="$cnode/@definitionURL"/></xsl:call-template>
-     </xsl:attribute>
-    <!-- xlink:show='other' requires the exact modality to be -->
-    <!-- specified in non-xlink markup. The point is that the -->
-    <!-- element is already MathML ==> we can't add other     -->
-    <!-- markup without introducing another new namespace.    -->
-    <!-- So, for now no markup is used.                       -->
-     <xsl:attribute name="xlink:show">other</xsl:attribute>
-    </xsl:if>
-    <xsl:if test="$cnode/@helm:xref">
-     <xsl:attribute name="helm:xref">
-      <xsl:value-of select="$cnode/@helm:xref"/>
-     </xsl:attribute>
-    </xsl:if> 
-   </xsl:if>
-   <xsl:apply-templates mode="semantics"/>
-  </xsl:copy>
-</xsl:template>
-
-<!-- _top to refresh the whole frameset (avoids the matrioska effect ;-) -->
-<!-- a[@href] doesn't match with every anchor elements!!!                -->
-<xsl:template match="*[@href]">
-   <xsl:copy>
-    <xsl:copy-of select="@*"/> 
-    <xsl:choose>
-    <xsl:when test="starts-with(@href,&quot;cic:&quot;)">
-     <xsl:attribute name="href">
-      <xsl:call-template name="makeURL">
-       <xsl:with-param name="uri" select="@href"/>
-      </xsl:call-template>
-     </xsl:attribute>
-     <xsl:attribute name="target">cic</xsl:attribute>
-    </xsl:when>
-    <xsl:when test="starts-with(@href,&quot;theory:&quot;)">
-     <xsl:attribute name="href">
-      <xsl:call-template name="makeTheoryURL">
-       <xsl:with-param name="uri" select="@href"/>
-      </xsl:call-template>
-     </xsl:attribute>
-     <xsl:attribute name="target">theory</xsl:attribute>
-    </xsl:when>
-    <xsl:when test="starts-with(@href,&quot;#&quot;)">
-     <xsl:attribute name="href"><xsl:value-of  select="@href"/></xsl:attribute>
-     <xsl:if test="@target">
-      <xsl:attribute name="target"><xsl:value-of select="@target"/></xsl:attribute>
-     </xsl:if>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:attribute name="href"><xsl:value-of  select="@href"/></xsl:attribute>
-     <xsl:attribute name="target">_blank</xsl:attribute>
-    </xsl:otherwise>
-    </xsl:choose>
-    <xsl:apply-templates/>
-   </xsl:copy>
-</xsl:template>
-
-<xsl:template match = "/|*">
-  <xsl:copy>
-   <xsl:copy-of select="@*"/>
-   <xsl:apply-templates/>
-  </xsl:copy>
-</xsl:template>
-
-</xsl:stylesheet> 

diff --git a/helm/style/links_library.xsl b/helm/style/links_library.xsl
deleted file mode 100644 (file)
index e1ac47a..0000000
--- a/helm/style/links_library.xsl
+++ /dev/null
@@ -1,362 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML">
-
-<!--***********************************************************************--> 
-<!-- auxiliary functions                                                   -->
-<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena                      -->
-<!--***********************************************************************--> 
-
-<!--      * is used for objects                      -->
-<!--    th* is used for theories                     -->
-<!-- embed* is used for objects embedded in theories -->
-
-<xsl:param name="getterURL" select="'http://localhost:8081/'"/>
-<xsl:param name="processorURL" select="'http://localhost:8080/helm/servlet/uwobo/'"/>
-<xsl:param name="draw_graphURL" select="'http://localhost:8083/'"/>
-<xsl:param name="uri_set_queueURL" select="'http://localhost:8084/'"/>
-<!-- URL to the frameset (control + output) -->
-<xsl:param name="topurl" select="''"/>
-<xsl:param name="interfaceURL" select="''"/>
-<xsl:param name="thinterfaceURL" select="''"/>
-
-<xsl:param name="keys" select="'C1,HC2,L'"/>
-<xsl:param name="embedkeys" select="'TC1,HC2,L'"/>
-<xsl:param name="thkeys" select="'T1,T2,L,E'"/>
-
-<xsl:param name="naturalLanguage" select="'yes'"/>
-<xsl:param name="annotations" select="'no'"/>
-<xsl:param name="UNICODEvsSYMBOL" select="'symbol'"/>
-
-<xsl:param name="media-type" select="'text/html'"/>
-<xsl:param name="thmedia-type" select="'text/html'"/>
-<xsl:param name="doctype-public" select="'-//W3C//DTD XHTML 1.0 Transitional//EN'"/>
-<xsl:param name="encoding" select="'iso-8859-1'"/>
-<xsl:param name="thencoding" select="'iso-8859-1'"/>
-
-
-<xsl:template name="quote">
- <xsl:param name="s" select="''"/>
- <xsl:param name="news" select="''"/>
- <xsl:choose>
-  <xsl:when test="$s = ''"><xsl:value-of select="$news"/></xsl:when>
-  <xsl:otherwise>
-   <xsl:variable name="char" select="substring($s,1,1)"/>
-   <xsl:choose>
-    <xsl:when test="$char = ' '">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'%20')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = '&amp;'">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'%26')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = '?'">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'%3F')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = '='">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'%3D')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = '%'">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'%25')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = ','">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'%2C')"/>
-     </xsl:call-template>
-    </xsl:when>
-<!--CSC: This breaks all the rest ;-)
-    <xsl:when test="$char = ':'">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'%3A')"/>
-     </xsl:call-template>
-    </xsl:when>
--->
-    <xsl:otherwise>
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,$char)"/>
-     </xsl:call-template>
-    </xsl:otherwise>
-   </xsl:choose>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<xsl:variable name="absPath">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s"><xsl:value-of select="$getterURL"/>getxml?uri=</xsl:with-param>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:variable name="escaped-doctype-public">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s" select="$doctype-public"/>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:variable name="escaped-processorURL">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s" select="$processorURL"/>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:variable name="escaped-getterURL">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s" select="$getterURL"/>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:variable name="escaped-interfaceURL">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s" select="$interfaceURL"/>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:variable name="escaped-topurl">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s" select="$topurl"/>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:variable name="escaped-thinterfaceURL">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s" select="$thinterfaceURL"/>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:variable name="quotedthkeys">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s" select="$thkeys"/>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:variable name="quotedembedkeys">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s" select="$embedkeys"/>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:variable name="quotedkeys">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s" select="$keys"/>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:variable name="quotedquotedkeys">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s" select="$quotedkeys"/>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:variable name="quotedquotedthkeys">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s" select="$quotedthkeys"/>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:variable name="quotedquotedembedkeys">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s" select="$quotedembedkeys"/>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:variable name="header0"><xsl:value-of select="$interfaceURL"/>?url=</xsl:variable>
-<xsl:variable name="thheader0"><xsl:value-of select="$thinterfaceURL"/>?url=</xsl:variable>
-<xsl:variable name="header1"><xsl:value-of select="$escaped-processorURL"/>apply?keys=</xsl:variable>
-<xsl:variable name="bothheader2">&#x26;param.naturalLanguage=<xsl:value-of select="$naturalLanguage"/>&#x26;param.draw_graphURL=<xsl:value-of select="$draw_graphURL"/>&#x26;param.uri_set_queueURL=<xsl:value-of select="$uri_set_queueURL"/>&#x26;param.UNICODEvsSYMBOL=<xsl:value-of select="$UNICODEvsSYMBOL"/>&#x26;param.annotations=<xsl:value-of select="$annotations"/>&#x26;prop.doctype-public=<xsl:value-of select="$escaped-doctype-public"/>&#x26;param.doctype-public=<xsl:value-of select="$escaped-doctype-public"/>&#x26;param.encoding=<xsl:value-of select="$encoding"/>&#x26;param.media-type=<xsl:value-of select="$media-type"/>&#x26;param.keys=<xsl:value-of select="$quotedkeys"/>&#x26;param.getterURL=<xsl:value-of select="$escaped-getterURL"/>&#x26;param.processorURL=<xsl:value-of select="$escaped-processorURL"/>&#x26;param.interfaceURL=<xsl:value-of select="$escaped-interfaceURL"/>&#x26;param.topurl=<xsl:value-of select="$escaped-topurl"/>&#x26;xmluri=<xsl:value-of select="$absPath"/></xsl:variable>
-<xsl:variable name="header2">&#x26;prop.media-type=<xsl:value-of select="$media-type"/>&#x26;prop.encoding=<xsl:value-of select="$encoding"/></xsl:variable>
-<xsl:variable name="thheader2">&#x26;prop.media-type=<xsl:value-of select="$thmedia-type"/>&#x26;param.thmedia-type=<xsl:value-of select="$thmedia-type"/>&#x26;param.thkeys=<xsl:value-of select="$quotedthkeys"/>&#x26;param.embedkeys=<xsl:value-of select="$quotedembedkeys"/>&#x26;param.thinterfaceURL=<xsl:value-of select="$escaped-thinterfaceURL"/>&#x26;param.thencoding=<xsl:value-of select="$thencoding"/>&#x26;prop.encoding=<xsl:value-of select="$thencoding"/></xsl:variable>
-
-<xsl:variable name="quotedheader1">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s" select="$header1"/>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:variable name="quotedbothheader2">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s" select="$bothheader2"/>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:variable name="quotedheader2">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s" select="$header2"/>
- </xsl:call-template>
-</xsl:variable>
-
-<xsl:variable name="quotedthheader2">
- <xsl:call-template name="quote">
-  <xsl:with-param name="s" select="$thheader2"/>
- </xsl:call-template>
-</xsl:variable>
-
-<!-- makeURL() maps URIs into URLs               -->
-<!-- The target of the URL is the whole frameset -->
-
-<xsl:variable name="biquotedfixedheader">
- <xsl:value-of select="$header0"/>
- <xsl:value-of select="$quotedheader1"/>
- <xsl:value-of select="$quotedquotedkeys"/>
- <xsl:value-of select="$quotedheader2"/>
- <xsl:value-of select="$quotedbothheader2"/>
-</xsl:variable>
-
-<xsl:variable name="biquotedthfixedheader">
- <xsl:value-of select="$thheader0"/>
- <xsl:value-of select="$quotedheader1"/>
- <xsl:value-of select="$quotedquotedthkeys"/>
- <xsl:value-of select="$quotedthheader2"/>
- <xsl:value-of select="$quotedbothheader2"/>
-</xsl:variable>
-
-<!-- NOTE: embedkeys and thkeys are propagated, but we are sure that -->
-<!-- they won't never be used.                                       -->
-<!--CSC: fixare il punto sopra!!! -->
-<!-- type, instead, is not propagated                                -->
-<xsl:template name="makeURL">
-<xsl:param name="uri" select="''"/>
- <xsl:variable name="uri_after_sharp" select="substring-after($uri,'#')"/>
- <xsl:variable name="cleanuri">
-  <xsl:choose>
-   <xsl:when test="$uri_after_sharp">
-    <xsl:value-of select="substring-before($uri,'#')"/>
-   </xsl:when>
-   <xsl:otherwise>
-    <xsl:value-of select="$uri"/>
-   </xsl:otherwise>
-  </xsl:choose>
- </xsl:variable>
- <xsl:variable name="sharpsuffix">
-  <xsl:choose>
-   <xsl:when test="$uri_after_sharp">%23<xsl:value-of select="$uri_after_sharp"/></xsl:when>
-   <xsl:otherwise></xsl:otherwise>
-  </xsl:choose>
- </xsl:variable>
-     <xsl:value-of select="$biquotedfixedheader"/>
-     <xsl:value-of select="$cleanuri"/>%26param.CICURI%3D<xsl:value-of select="$cleanuri"/>
-     <xsl:value-of select="$sharpsuffix"/>
-</xsl:template>
-
-<xsl:template name="makeTheoryURL">
-<xsl:param name="uri" select="''"/>
- <xsl:variable name="uri_after_sharp" select="substring-after($uri,'#')"/>
- <xsl:variable name="cleanuri">
-  <xsl:choose>
-   <xsl:when test="$uri_after_sharp">
-    <xsl:value-of select="substring-before($uri,'#')"/>
-   </xsl:when>
-   <xsl:otherwise>
-    <xsl:value-of select="$uri"/>
-   </xsl:otherwise>
-  </xsl:choose>
- </xsl:variable>
- <xsl:variable name="sharpsuffix">
-  <xsl:choose>
-   <xsl:when test="$uri_after_sharp">%23<xsl:value-of select="$uri_after_sharp"/></xsl:when>
-   <xsl:otherwise></xsl:otherwise>
-  </xsl:choose>
- </xsl:variable>
-     <xsl:value-of select="$biquotedthfixedheader"/>
-     <xsl:value-of select="$cleanuri"/>%26param.CICURI%3D<xsl:value-of select="$cleanuri"/>
-     <xsl:value-of select="$sharpsuffix"/>
-</xsl:template>
-
-<!-- makeURL4embedding() maps URIs into URLs              -->
-<!-- The target of the URL is only the processed document -->
-
-<xsl:template name="makeURL4embedding">
-<xsl:param name="uri" select="''"/>
-<xsl:param name="type" select="'standalone'"/>
- <xsl:variable name="uri_after_sharp" select="substring-after($uri,'#')"/>
- <xsl:variable name="cleanuri">
-  <xsl:choose>
-   <xsl:when test="$uri_after_sharp">
-    <xsl:value-of select="substring-before($uri,'#')"/>
-   </xsl:when>
-   <xsl:otherwise>
-    <xsl:value-of select="$uri"/>
-   </xsl:otherwise>
-  </xsl:choose>
- </xsl:variable>
- <xsl:variable name="sharpsuffix">
-  <xsl:choose>
-   <xsl:when test="$uri_after_sharp">%23<xsl:value-of select="$uri_after_sharp"/></xsl:when>
-   <xsl:otherwise></xsl:otherwise>
-  </xsl:choose>
- </xsl:variable>
- <xsl:value-of select="$header1"/>
- <xsl:value-of select="$quotedembedkeys"/>
- <xsl:value-of select="$header2"/>
- <xsl:value-of select="$bothheader2"/>
- <xsl:value-of select="$cleanuri"/>&#x26;param.CICURI=<xsl:value-of select="$cleanuri"/>&#x26;param.type=<xsl:value-of select="$type"/><xsl:value-of select="$sharpsuffix"/>
-</xsl:template>
-
-<!-- makeURL4InnerTypes() maps URIs into URLs              -->
-<!-- The target of the URL is only the processed document -->
-
-<xsl:template name="makeURL4InnerTypes">
-<xsl:param name="uri" select="''"/>
- <xsl:variable name="uri_after_sharp" select="substring-after($uri,'#')"/>
- <xsl:variable name="cleanuri">
-  <xsl:choose>
-   <xsl:when test="$uri_after_sharp">
-    <xsl:value-of select="substring-before($uri,'#')"/>
-   </xsl:when>
-   <xsl:otherwise>
-    <xsl:value-of select="$uri"/>
-   </xsl:otherwise>
-  </xsl:choose>
- </xsl:variable>
- <xsl:variable name="sharpsuffix">
-  <xsl:choose>
-   <xsl:when test="$uri_after_sharp">%23<xsl:value-of select="$uri_after_sharp"/></xsl:when>
-   <xsl:otherwise></xsl:otherwise>
-  </xsl:choose>
- </xsl:variable>
- <xsl:value-of select="$header1"/>d_c&#x26;param.getterURL=<xsl:value-of select="$escaped-getterURL"/>&#x26;param.CICURI=<xsl:value-of select="$cleanuri"/>&#x26;xmluri=<xsl:value-of select="$absPath"/><xsl:value-of select="$cleanuri"/>
- <xsl:value-of select="$sharpsuffix"/>
-</xsl:template>
-
-</xsl:stylesheet> 

diff --git a/helm/style/mk_dep_graph.xsl b/helm/style/mk_dep_graph.xsl
deleted file mode 100644 (file)
index d06bc2f..0000000
--- a/helm/style/mk_dep_graph.xsl
+++ /dev/null
@@ -1,38 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<xsl:stylesheet version="0.1" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-
- <!-- Note: the param processorURL is not available. It has been -->
- <!-- removed to keep the final URL short enought to make I.E.   -->
- <!-- work with it.                                              -->
-
- <xsl:import href="mk_meta_and_dep_graph.xsl"/>
-
- <xsl:variable name="base_RDF_URI" select="'helm:rdf:www.cs.unibo.it/helm/rdf/forward//'"/>
- <xsl:variable name="link_direction" select="''"/>
-
-</xsl:stylesheet>

diff --git a/helm/style/mk_meta_and_dep_graph.xsl b/helm/style/mk_meta_and_dep_graph.xsl
deleted file mode 100644 (file)
index 4415ca9..0000000
--- a/helm/style/mk_meta_and_dep_graph.xsl
+++ /dev/null
@@ -1,271 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!-- CSC: Sostituire l'andata a capo con la entity numerica opportuna -->
-<!DOCTYPE html [
- <!ENTITY CSCbr "
-">
-]>
-
-<xsl:stylesheet version="0.1"
-  xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-  xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
-  xmlns:h="http:/www.cs.unibo.it/helm/schemas/schema-h.rdf#">
-
-<xsl:output method="text"/>
-
-<xsl:param name="CICURI" select="''"/>
-<xsl:param name="PID" select="''"/>
-<xsl:param name="getterURL" select="''"/>
-<xsl:param name="uri_set_queueURL" select="''"/>
-<xsl:param name="uri_set_size" select="30"/>
-<xsl:variable name="base_URL_of_URI" select="concat($getterURL,'getxml?uri=')"/>
-
-<!-- CSC: next functions because I don't remember the name of the    -->
-<!-- CSC: subst function of xslt and I don't have the specs with me -->
-
-<!-- The next function is used to quote URIs for dotty -->
-<xsl:template name="quote">
- <xsl:param name="s" select="''"/>
- <xsl:param name="news" select="''"/>
- <xsl:choose>
-  <xsl:when test="$s = ''"><xsl:value-of select="$news"/></xsl:when>
-  <xsl:otherwise>
-   <xsl:variable name="char" select="substring($s,1,1)"/>
-   <xsl:choose>
-    <xsl:when test="$char = '/'">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'X')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = ':'">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'Y')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = '.'">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'Z')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test='$char = "&apos;"'>
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'W')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = '-'">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'J')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = '#'">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'G')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = '('">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'O')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:when test="$char = ')'">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'C')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,$char)"/>
-     </xsl:call-template>
-    </xsl:otherwise>
-   </xsl:choose>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<!-- The next function is used to quote URIs to embed them in an URL -->
-<xsl:template name="quote_url">
- <xsl:param name="s" select="''"/>
- <xsl:param name="news" select="''"/>
- <xsl:choose>
-  <xsl:when test="$s = ''"><xsl:value-of select="$news"/></xsl:when>
-  <xsl:otherwise>
-   <xsl:variable name="char" select="substring($s,1,1)"/>
-   <xsl:choose>
-    <xsl:when test="$char = '#'">
-     <xsl:call-template name="quote_url">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,'%23')"/>
-     </xsl:call-template>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:call-template name="quote_url">
-      <xsl:with-param name="s" select="substring($s,2)"/>
-      <xsl:with-param name="news" select="concat($news,$char)"/>
-     </xsl:call-template>
-    </xsl:otherwise>
-   </xsl:choose>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<xsl:template name="RDFURI_of_CICURI">
- <xsl:param name="uri" select="''"/>
- <xsl:variable name="before" select="substring-before($uri,'#xpointer(1/')"/>
- <xsl:value-of select="$base_RDF_URI"/>
- <xsl:choose>
-  <xsl:when test="$before=''">
-   <xsl:value-of select="$uri"/>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:value-of select="concat($before,',')"/>
-   <xsl:variable name="after" select="substring-after($uri,'#xpointer(1/')"/>
-   <xsl:value-of select="translate(substring-before($after,')'),'/',',')"/>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<xsl:template match="/">
- <!--
- <xsl:text>strict digraph L0 { size = "83,83"; concentrate=true; node [style=filled, shape = box];&CSCbr;</xsl:text>
- -->
- <xsl:text>strict digraph L0 { size = "83,83"; node [style=filled, shape = box];&CSCbr;</xsl:text>
- <xsl:variable name="quoted_CICURI">
-  <xsl:call-template name="quote_url">
-   <xsl:with-param name="s" select="$CICURI"/>
-  </xsl:call-template>
- </xsl:variable>
- <!-- The nonce is used to force the document reload -->
- <xsl:variable name="dummy0" select="document(concat($uri_set_queueURL,'set_uri_set_size?uri=',$quoted_CICURI,'&amp;nonce=',generate-id(),'&amp;PID=',$PID,'&amp;size=',$uri_set_size))"/>
- <xsl:variable name="dummy1" select="document(concat($uri_set_queueURL,'add_if_not_in?uri=',$quoted_CICURI,'&amp;nonce=',generate-id(),'&amp;PID=',$PID))"/>
- <xsl:apply-templates mode="loop" select="document(concat($uri_set_queueURL,'get_next?uri=',$quoted_CICURI,'&amp;nonce=',generate-id(),'&amp;PID=',$PID))"/>
- <xsl:variable name="dummy2" select="document(concat($uri_set_queueURL,'reset_to_empty?PID=',$PID))"/>
- <xsl:text>}</xsl:text>
-</xsl:template>
-
-<xsl:template mode="loop" match="empty"/>
-
-<xsl:template mode="loop" match="uri|marked_uri">
- <xsl:variable name="rdfuri">
-  <xsl:call-template name="RDFURI_of_CICURI">
-   <xsl:with-param name="uri" select="@value"/>
-  </xsl:call-template>
- </xsl:variable>
- <xsl:variable name="document" select="document(concat($base_URL_of_URI,$rdfuri))"/>
- <xsl:choose>
-  <xsl:when test="$document/*">
-   <xsl:apply-templates mode="first_time" select="$document/*">
-    <xsl:with-param name="currentCICURI" select="@value"/>
-    <xsl:with-param name="quotedCurrentCICURI">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="@value"/>
-     </xsl:call-template>
-    </xsl:with-param>
-    <xsl:with-param name="do_not_visit" select="name(.)"/>
-   </xsl:apply-templates>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:apply-templates mode="first_time" select=".">
-    <xsl:with-param name="currentCICURI" select="@value"/>
-    <xsl:with-param name="quotedCurrentCICURI">
-     <xsl:call-template name="quote">
-      <xsl:with-param name="s" select="@value"/>
-     </xsl:call-template>
-    </xsl:with-param>
-    <xsl:with-param name="do_not_visit" select="'no_deps'"/>
-   </xsl:apply-templates>
-  </xsl:otherwise>
- </xsl:choose>
- <xsl:variable name="quoted_value">
-  <xsl:call-template name="quote_url">
-   <xsl:with-param name="s" select="@value"/>
-  </xsl:call-template>
- </xsl:variable>
- <!-- The couple (uri,nonce) is used to force the document reload -->
- <xsl:apply-templates mode="loop" select="document(concat($uri_set_queueURL,'get_next?uri=',$quoted_value,'&amp;nonce=',generate-id(),'&amp;PID=',$PID))"/>
-</xsl:template>
-
-
-<xsl:template mode="first_time" match="*">
- <xsl:param name="currentCICURI" select="''"/>
- <xsl:param name="quotedCurrentCICURI" select="''"/>
- <xsl:param name="do_not_visit" select="'uri'"/>
- <xsl:if test="$do_not_visit='uri'">
-  <xsl:apply-templates select=".">
-   <xsl:with-param name="currentCICURI" select="$currentCICURI"/>
-   <xsl:with-param name="quotedCurrentCICURI" select="$quotedCurrentCICURI"/>
-  </xsl:apply-templates>
- </xsl:if>
- <xsl:text> </xsl:text>
- <xsl:value-of select="$quotedCurrentCICURI"/>
-<!-- <xsl:text> [fontname="LucidaSansRegular",color=red,label="</xsl:text> -->
- <xsl:text> [label="</xsl:text>
- <xsl:value-of select="$currentCICURI"/>
- <xsl:text>",URL="</xsl:text>
- <xsl:value-of select="$currentCICURI"/>
- <xsl:text>"</xsl:text>
- <xsl:if test="name(document(concat($uri_set_queueURL,'is_overflowed?uri=',$quotedCurrentCICURI,'&amp;nonce=',generate-id(),'&amp;PID=',$PID))/*)='true'">
-  <xsl:text>,color=red</xsl:text>
- </xsl:if>
- <xsl:text>];&CSCbr;</xsl:text>
-</xsl:template>
-
-<xsl:template match="*">
- <xsl:param name="currentCICURI" select="''"/>
- <xsl:param name="quotedCurrentCICURI" select="''"/>
- <xsl:for-each select="*/*/*">
-  <xsl:variable name="quotedURI">
-   <xsl:call-template name="quote">
-    <xsl:with-param name="s" select="@rdf:value"/>
-   </xsl:call-template>
-  </xsl:variable>
-  <xsl:variable name="quoted_uri">
-   <xsl:call-template name="quote_url">
-    <xsl:with-param name="s" select="@rdf:value"/>
-   </xsl:call-template>
-  </xsl:variable>
-  <!-- The nonce, quotedCurrentCICURI are used to force the document reload -->
-  <xsl:if test="not(name(document(concat($uri_set_queueURL,'add_if_not_in?uri=',$quoted_uri,'&amp;nonce=',generate-id(),'&amp;PID=',$PID,'&amp;quotedCurrentCICURI=',$quotedCurrentCICURI))/*)='not_added_because_already_too_many')">
-   <xsl:text> </xsl:text>
-   <xsl:value-of select="$quotedCurrentCICURI"/>
-   <xsl:text> -&gt; </xsl:text>
-   <xsl:value-of select="$quotedURI"/>
-   <xsl:value-of select="$link_direction"/>
-   <xsl:text>;&CSCbr;</xsl:text>
-  </xsl:if>
- </xsl:for-each>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/mk_meta_graph.xsl b/helm/style/mk_meta_graph.xsl
deleted file mode 100644 (file)
index b4e7845..0000000
--- a/helm/style/mk_meta_graph.xsl
+++ /dev/null
@@ -1,38 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<xsl:stylesheet version="0.1" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-
- <!-- Note: the param processorURL is not available. It has been -->
- <!-- removed to keep the final URL short enought to make I.E.   -->
- <!-- work with it.                                              -->
-
- <xsl:import href="mk_meta_and_dep_graph.xsl"/>
-
- <xsl:variable name="base_RDF_URI" select="'helm:rdf:www.cs.unibo.it/helm/rdf/backward//'"/>
- <xsl:variable name="link_direction" select="' [dir=back]'"/>
-
-</xsl:stylesheet>

diff --git a/helm/style/mk_meta_theory.xsl b/helm/style/mk_meta_theory.xsl
deleted file mode 100644 (file)
index c1bb71d..0000000
--- a/helm/style/mk_meta_theory.xsl
+++ /dev/null
@@ -1,177 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<xsl:stylesheet version="0.1"
-   xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-   xmlns:ht="http://www.cs.unibo.it/helm/namespaces/helm-theory"
-   xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
-   xmlns:h="http:/www.cs.unibo.it/helm/schemas/schema-h.rdf#">
-
-<xsl:variable name="MainConclusion" select="'http://www.cs.unibo.it/helm/schemas/schema-h.rdf#MainConclusion'"/>
-<xsl:variable name="InConclusion" select="'http://www.cs.unibo.it/helm/schemas/schema-h.rdf#InConclusion'"/>
-<xsl:variable name="MainHypothesis" select="'http://www.cs.unibo.it/helm/schemas/schema-h.rdf#MainHypothesis'"/>
-<xsl:variable name="InHypothesis" select="'http://www.cs.unibo.it/helm/schemas/schema-h.rdf#InHypothesis'"/>
-<xsl:variable name="InBody" select="'http://www.cs.unibo.it/helm/schemas/schema-h.rdf#InBody'"/>
-
-<xsl:template match="/">
-               <html> 
-                <head>
-                 <title>Occurrences of <xsl:value-of select="*/*/@rdf:value"/></title>
-                 <style>
-                  a { text-decoration: none }
-                  a.underline {text-decoration: underline }
-                 </style>
-                </head>
-                <!-- CSC: method onLoad to be removed once the window -->
-                <!-- CSC: becomes a frame                              -->
-                <body bgcolor="white" onLoad="window.focus()">
-                <xsl:apply-templates/>
-                </body>
-               </html>
-</xsl:template>
-
-<xsl:template match="h:Object">
- <xsl:variable name="no_main"
-   select="count(*/h:Occurrence[@rdf:about=$MainConclusion])"/>
- <xsl:variable name="no_concl"
-   select="count(*/h:Occurrence[@rdf:about=$InConclusion])"/>
- <xsl:variable name="no_main_hyp"
-   select="count(*/h:Occurrence[@rdf:about=$MainHypothesis])"/>
- <xsl:variable name="no_in_hyp"
-   select="count(*/h:Occurrence[@rdf:about=$InHypothesis])"/>
- <xsl:variable name="no_body"
-   select="count(*/h:Occurrence[@rdf:about=$InBody])"/>
- <h1>Occurrences of <xsl:value-of select="@rdf:about"/></h1>
- 
- <ul>
-       <xsl:if test="$no_main != 0">
-       <li><a class="underline" href ="#main">Head position in conclusion 
-            (<xsl:value-of select="$no_main"/>)</a></li>
-       </xsl:if>
-       <xsl:if test="$no_concl != 0">
-       <li><a class="underline" href ="#concl">In conclusion 
-            (<xsl:value-of select="$no_concl"/>)</a></li>
-       </xsl:if>
-       <xsl:if test="$no_main_hyp != 0">
-       <li><a class="underline" href ="#main_hyp">Head position in some hypothesis
-            (<xsl:value-of select="$no_main_hyp"/>)</a></li>
-       </xsl:if>
-       <xsl:if test="$no_in_hyp != 0">
-       <li><a class="underline" href ="#hyp">In hypotheses
-            (<xsl:value-of select="$no_in_hyp"/>)</a></li>
-       </xsl:if>
-       <xsl:if test="$no_body != 0">
-       <li><a class="underline" href ="#body">In the body
-            (<xsl:value-of select="$no_body"/>)</a></li>
-       </xsl:if>
- </ul>
- <xsl:choose>
-  <xsl:when test="$no_main = 0"/>
-  <xsl:when test="15 > $no_main">
-   <h2><a name="main">Head position inside conclusion:</a></h2>
-   <xsl:for-each select="*/h:Occurrence[@rdf:about=$MainConclusion]">
-    <div style="margin: 0.25cm 0cm 0.25cm 0.75cm">
-     <ht:OBJECT uri="{@rdf:value}" mode="typeonly"/>
-    </div>
-   </xsl:for-each>
-  </xsl:when>
-  <xsl:when test="$no_main >= 15">
-   <h2><a name="main">Head position inside conclusion:</a></h2>
-   <xsl:for-each select="*/h:Occurrence[@rdf:about=$MainConclusion]">
-    <div style="margin: 0cm 0cm 0cm 0.75cm">
-     <ht:OBJECT uri="{@rdf:value}" mode="linkonly"/>
-    </div>
-   </xsl:for-each>
-  </xsl:when>
- </xsl:choose>
- <xsl:choose>
-  <xsl:when test="$no_concl = 0"/>
-  <xsl:when test="15 > $no_concl">
-   <h2><a name="concl">Inside conclusion:</a></h2>
-   <xsl:for-each select="*/h:Occurrence[@rdf:about=$InConclusion]">
-    <div style="margin: 0.25cm 0cm 0.25cm 0.75cm">
-     <ht:OBJECT uri="{@rdf:value}" mode="typeonly"/>
-    </div>
-   </xsl:for-each>
-  </xsl:when>
-  <xsl:when test="$no_concl >= 15">
-   <h2><a name="concl">Inside conclusion:</a></h2>
-   <xsl:for-each select="*/h:Occurrence[@rdf:about=$InConclusion]">
-    <div style="margin: 0cm 0cm 0cm 0.75cm">
-     <ht:OBJECT uri="{@rdf:value}" mode="linkonly"/>
-    </div>
-   </xsl:for-each>
-  </xsl:when>
- </xsl:choose>
- <xsl:choose>
-  <xsl:when test="$no_main_hyp = 0"/>
-  <xsl:when test="15 > $no_main_hyp">
-   <h2><a name="main_hyp">Head position inside an hypothesis:</a></h2>
-   <xsl:for-each select="*/h:Occurrence[@rdf:about=$MainHypothesis]">
-    <div style="margin: 0.25cm 0cm 0.25cm 0.75cm">
-     <ht:OBJECT uri="{@rdf:value}" mode="typeonly"/>
-    </div>
-   </xsl:for-each>
-  </xsl:when>
-  <xsl:when test="$no_main_hyp >= 15">
-   <h2><a name="main_hyp">Head position inside an hypothesis:</a></h2>
-   <xsl:for-each select="*/h:Occurrence[@rdf:about=$MainHypothesis]">
-    <div style="margin: 0cm 0cm 0cm 0.75cm">
-     <ht:OBJECT uri="{@rdf:value}" mode="linkonly"/>
-    </div>
-   </xsl:for-each>
-  </xsl:when> 
- </xsl:choose>
- <xsl:choose>
-  <xsl:when test="$no_in_hyp = 0"/>
-  <xsl:when test="15 > $no_in_hyp">
-   <h2><a name="hyp">Inside an hypothesis:</a></h2>
-   <xsl:for-each select="*/h:Occurrence[@rdf:about=$InHypothesis]">
-    <div style="margin: 0.25cm 0cm 0.25cm 0.75cm">
-     <ht:OBJECT uri="{@rdf:value}" mode="typeonly"/>
-    </div>
-   </xsl:for-each>
-  </xsl:when>
-  <xsl:when test="$no_in_hyp >= 15">
-   <h2><a name="hyp">Inside an hypothesis:</a></h2>
-   <xsl:for-each select="*/h:Occurrence[@rdf:about=$InHypothesis]">
-    <div style="margin: 0cm 0cm 0cm 0.75cm">
-     <ht:OBJECT uri="{@rdf:value}" mode="linkonly"/>
-    </div>
-   </xsl:for-each>
-  </xsl:when>
- </xsl:choose>
- <xsl:if test="$no_body > 0">
-  <h2><a name="body">Inside the body:</a></h2>
-  <xsl:for-each select="*/h:Occurrence[@rdf:about=$InBody]">
-   <div style="margin: 0cm 0cm 0cm 0.75cm">
-    <ht:OBJECT uri="{@rdf:value}" mode="linkonly"/>
-   </div>
-  </xsl:for-each>
- </xsl:if>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/mmlctop.xsl-0.14 b/helm/style/mmlctop.xsl-0.14
deleted file mode 100755 (executable)
index be41c5b..0000000
--- a/helm/style/mmlctop.xsl-0.14
+++ /dev/null
@@ -1,3103 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- ******************************************************
-    
-     XSL Transform of MathML content to MathML presentation
-                                                    
-     Version 0.14, Dec. 13, 2000       
-     Authors Igor Rodionov <igor@csd.uwo.ca>,
-             Stephen Watt  <watt@csd.uwo.ca>.
-    
-     (C) Copyright 2000  Symbolic Computation Laboratory,
-                         University of Western Ontario,
-                         London, Canada N6A 5B7.
-     ****************************************************** -->
-
-
-<!-- ====================================================== -->
-<!--  April,28 2001 - HELM group:                           -->
-<!--  Added the namespace prefix to all the output elements -->
-<!--  Added the namespace prefix to all the xref attributes -->
-<!--  Changed the mml prefix into m                         -->
-<!--  Added m:xref to every mo element                      -->
-<!--  Changed mchar into the corresponding entity           -->
-<!--  First draft: April 27 2001, Irene Schena              -->
-<!-- ====================================================== -->
-
-<!-- Mostly complies with the W3C MathML 2.0 Candidate Recommenation 
-     of November 13, 2000.  The main difference is the use of <mchar>
-     which was removed from MathML 2.0 in the last working draft.
-  -->
-
-<xsl:stylesheet id="mmlctop.xsl"
-                version="1.0"
-                xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                xmlns:m="http://www.w3.org/1998/Math/MathML">
-
-<!-- HELM: we don't have a default namespace.
-     Removed xmlns="http://www.w3.org/1998/Math/MathML" -->
-
-<!-- HELM: was
-<xsl:output method="xml" indent="yes"/>
--->
-<xsl:output method="xml"/>
-<!-- HELM -->
-
-<xsl:strip-space elements="apply semantics annotation-xml
-        csymbol fn cn ci interval matrix matrixrow vector
-        lambda bvar condition logbase degree set list
-        lowlimit uplimit"/>
-
-
-<!-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -->
-<!--         Parameters, variables and constants           -->
-<!-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -->
-
-<!-- ~~~~~~~~ Semantics related *constants*: ~~~~~~~~ -->
-
-<!-- Strip off semantics -->
-<xsl:variable name="SEM_STRIP" select="-1"/>
-
-<!-- Pass semantics "as is" -->
-<xsl:variable name="SEM_PASS" select="0"/>
-
-<!-- Add semantics at top level only -->
-<xsl:variable name="SEM_TOP" select="1"/>
-
-<!-- Add semantics at all levels -->
-<xsl:variable name="SEM_ALL" select="2"/>
-
-<!-- Semantics at top level only, with id refs -->
-<!-- NOTE: ids have to be already present in the
-           input for this feature to work. -->
-<xsl:variable name="SEM_XREF" select="3"/>
-
-<!-- No semantics at top level, with id refs -->
-<!-- NOTE: ids have to be already present in the
-           input for this feature to work. -->
-<xsl:variable name="SEM_XREF_EXT" select="4"/>
-
-
-<!-- ~~~~~~~~~~ Stylesheet *parameter*: SEM_SW ~~~~~~~~~~~~~~ -->
-<!-- Assumes one of the above values; SEM_PASS is the default -->
-<!-- The default can be overridden by specifying different    -->
-<!-- value on the command line when the stylesheet is invoked -->
-
-<!-- HELM: $SEM_SW was SEM_PASS (error!) -->
-<xsl:param name="SEM_SW" select="$SEM_XREF"/>
-
-<!-- ~~~~~~ Operator precedence definitions ~~~~~~ -->
-
-<xsl:variable name="NO_PREC" select="0"/>
-<xsl:variable name="UNION_PREC" select="1"/>
-<xsl:variable name="SETDIFF_PREC" select="1"/>
-<xsl:variable name="INTERSECT_PREC" select="3"/>
-<xsl:variable name="OR_PREC" select="5"/>
-<xsl:variable name="XOR_PREC" select="5"/>
-<xsl:variable name="AND_PREC" select="7"/>
-<xsl:variable name="PLUS_PREC" select="9"/>
-<xsl:variable name="MINUS_PREC" select="9"/>
-<xsl:variable name="MUL_PREC" select="11"/>
-<xsl:variable name="DIV_PREC" select="11"/>
-<xsl:variable name="NEG_PREC" select="13"/>
-<xsl:variable name="FUNCTION_PREC" select="99"/>
-
-<!-- ~~~~~ Miscellaneous constant definitions ~~~~~ -->
-
-<xsl:variable name="YES" select="1"/>
-<xsl:variable name="NO" select="0"/>
-<xsl:variable name="NO_PARAM" select="-1"/>
-<xsl:variable name="PAR_SAME" select="-3"/>
-<xsl:variable name="PAR_YES" select="-5"/>
-<xsl:variable name="PAR_NO" select="-7"/>
-
-
-<!-- +++++++++++++++++ INDEX OF TEMPLATES +++++++++++++++++++ -->
-
-<!-- All templates are subdivided into the following categories
-     (listed in the order of appearance in the stylesheet):
-
-THE TOPMOST ELEMENT: MATH
- math
-
-SEMANTICS HANDLING
- semantics
-
-BASIC CONTAINER ELEMENTS
- cn, ci, csymbol
-
-BASIC CONTENT ELEMENTS
- fn, interval, inverse, sep, condition, declare, lambda, compose, ident
-
-ARITHMETIC, ALGEBRA & LOGIC
- quotient, exp, factorial, max, min, minus, plus, power, rem, divide,
- times, root, gcd, and, or, xor, not, forall, exists, abs, conjugate,
- arg, real, imaginary
-
-RELATIONS
- neq, approx, tendsto, implies, in, notin, notsubset, notprsubset,
- subset, prsubset, eq, gt, lt, geq, leq, equivalent
-
-CALCULUS
- ln, log, diff, partialdiff, lowlimit, uplimit, bvar, degree,
- logbase, divergence, grad, curl, laplacian
-
-SET THEORY
- set, list, union, intersect, setdiff, card
-
-SEQUENCES AND SERIES
- sum, product, limit
-
-TRIGONOMETRY
- sin, cos, tan, sec, csc, cot, sinh, cosh, tanh, sech, csch, coth,
- arcsin, arccos, arctan
-
-STATISTICS
- mean, sdev, variance, median, mode, moment
-
-LINEAR ALGEBRA
- vector, matrix, matrixrow, determinant, transpose, selector,
- vectorproduct, scalarproduct, outerproduct
--->
-
-
-<!-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -->
-<!-- ~~~~~~~~~~~~~~~~~~~~~~~~~ TEMPLATES ~~~~~~~~~~~~~~~~~~~~~~~~~ -->
-<!-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -->
-
-
-<!-- ***************** THE TOPMOST ELEMENT: MATH ***************** -->
-
-<xsl:template match = "m:math">
-  <xsl:choose>
-    <xsl:when test="$SEM_SW=$SEM_TOP or $SEM_SW=$SEM_ALL and *[2] or
-                                                    $SEM_SW=$SEM_XREF">
-      <m:semantics>
-        <m:mrow>
-          <xsl:apply-templates mode = "semantics"/>
-        </m:mrow>
-        <m:annotation-xml encoding="MathML">
-          <xsl:copy-of select="*"/>
-        </m:annotation-xml>
-      </m:semantics>
-    </xsl:when>
-    <xsl:otherwise>
-      <m:mrow>
-        <xsl:apply-templates mode = "semantics"/>
-      </m:mrow>  
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-
-<!-- ***************** SEMANTICS HANDLING ***************** -->
-
-<!-- This template is called recursively.  At each level   -->
-<!-- in the source tree it decides whether to strip off,   -->
-<!-- pass or add semantics at that level (depending on the -->
-<!-- value of SEM_SW parameter).  Then the actual template -->
-<!-- is applied to the node.                               -->
-
-<xsl:template match = "m:*" mode = "semantics">
-  <xsl:param name="IN_PREC" select="$NO_PREC"/>
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:choose>
-    <xsl:when test="$SEM_SW=$SEM_STRIP and self::m:semantics">
-      <xsl:apply-templates select="m:annotation-xml[@encoding='MathML']">
-        <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
-        <xsl:with-param name="PARAM" select="$PARAM"/>
-        <xsl:with-param name="PAREN" select="$PAREN"/>
-        <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-      </xsl:apply-templates>
-    </xsl:when>
-    <xsl:when test="($SEM_SW=$SEM_PASS or $SEM_SW=$SEM_TOP) and self::m:semantics">
-      <m:semantics>
-        <xsl:apply-templates select="*[1]">
-          <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
-          <xsl:with-param name="PARAM" select="$PARAM"/>
-          <xsl:with-param name="PAREN" select="$PAREN"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-        <xsl:copy-of select="m:annotation-xml"/>
-      </m:semantics>
-    </xsl:when>
-    <xsl:when test="$SEM_SW=$SEM_ALL">
-      <m:semantics>
-        <xsl:choose>
-          <xsl:when test="self::m:semantics">
-            <xsl:apply-templates select="*[1]">
-              <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
-              <xsl:with-param name="PARAM" select="$PARAM"/>
-              <xsl:with-param name="PAREN" select="$PAREN"/>
-              <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-            </xsl:apply-templates>
-            <xsl:copy-of select="m:annotation-xml"/>
-          </xsl:when>
-          <xsl:otherwise>
-            <xsl:apply-templates select=".">
-              <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
-              <xsl:with-param name="PARAM" select="$PARAM"/>
-              <xsl:with-param name="PAREN" select="$PAREN"/>
-              <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-            </xsl:apply-templates>
-            <m:annotation-xml encoding="MathML">
-              <xsl:copy-of select="."/>
-            </m:annotation-xml>
-          </xsl:otherwise>
-        </xsl:choose>
-      </m:semantics>
-    </xsl:when>
-    <xsl:when test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:choose>
-<!-- HELM: syntax error: sematics -->
-        <xsl:when test="self::m:semantics">
-          <xsl:copy>
-            <xsl:copy-of select="@*"/>
-            <xsl:attribute name="m:xref">
-              <xsl:value-of select="@id"/>
-            </xsl:attribute>
-            <xsl:copy-of select="*[1]"/>
-            <xsl:copy-of select="m:annotation-xml"/>
-          </xsl:copy>
-        </xsl:when>
-        <xsl:otherwise>
-          <xsl:apply-templates select=".">
-            <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
-            <xsl:with-param name="PARAM" select="$PARAM"/>
-            <xsl:with-param name="PAREN" select="$PAREN"/>
-            <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-          </xsl:apply-templates>
-        </xsl:otherwise>
-      </xsl:choose>
-    </xsl:when>
-    <xsl:otherwise>
-      <xsl:choose>
-        <xsl:when test="self::m:semantics">
-          <xsl:copy-of select="."/>
-        </xsl:when>
-        <xsl:otherwise>
-          <xsl:apply-templates select=".">
-            <xsl:with-param name="IN_PREC" select="$IN_PREC"/>
-            <xsl:with-param name="PARAM" select="$PARAM"/>
-            <xsl:with-param name="PAREN" select="$PAREN"/>
-            <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-          </xsl:apply-templates>
-        </xsl:otherwise>
-      </xsl:choose>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:semantics">
-  <xsl:apply-templates select="." mode = "semantics"/>
-</xsl:template>
-
-
-<!-- ***************** BASIC CONTAINER ELEMENTS ***************** -->
-
-<!-- HELM: cn could not contain MAthML presentation -->
-<xsl:template match = "m:cn">
-  <xsl:param name="IN_PREC" select="$NO_PREC"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-<!-- HELM: added -->
-<!-- CSC
-<xsl:choose>
-  <xsl:when test="child::text()">
--->
-<!-- HELM -->
-  <xsl:choose>
-    <xsl:when test=". &lt; 0 and $IN_PREC &gt; $NO_PREC and $PAREN=$PAR_NO
-                                                   and $PAR_NO_IGNORE=$NO">
-      <m:mfenced separators="">
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="cn"/>
-      </m:mfenced>
-    </xsl:when>
-    <xsl:otherwise>
-      <xsl:choose>
-        <xsl:when test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:apply-templates select="." mode="cnid"/>
-        </xsl:when>
-        <xsl:otherwise>
-          <xsl:apply-templates select="." mode="cn"/>
-        </xsl:otherwise>
-      </xsl:choose>
-    </xsl:otherwise>
-  </xsl:choose>
-<!-- HELM: added -->
-<!--CSC
-  </xsl:when>
-  <xsl:otherwise>
-   <m:mrow>
-    <xsl:attribute name="m:xref">
-     <xsl:value-of select="@id"/>
-    </xsl:attribute>
-    <xsl:copy-of select="*"/>
-   </m:mrow> 
-  </xsl:otherwise>
- </xsl:choose>
--->
-<!-- HELM -->
-</xsl:template>
-
-<xsl:template match = "m:cn" mode="cn">
-  <xsl:choose>
-    <xsl:when test="@base and (not(@type) or @type='integer' or @type='real')">
-      <m:msub>
-        <m:mn> <xsl:apply-templates mode = "semantics"/> </m:mn>
-        <m:mn> <xsl:value-of select="@base"/> </m:mn>
-      </m:msub>
-    </xsl:when>
-    <xsl:when test="@type='complex' and not(@base) and child::m:sep[1]">
-      <m:mfenced separators="">
-        <m:mn> <xsl:apply-templates select="text()[1]" mode = "semantics"/> </m:mn>
-        <xsl:if test="text()[2] &lt; 0">
-          <m:mo>-</m:mo>
-          <m:mn> <xsl:value-of select="-text()[2]"/> </m:mn>
-        </xsl:if>
-        <xsl:if test="not(text()[2] &lt; 0)">
-          <m:mo>+</m:mo>
-          <m:mn> <xsl:value-of select="text()[2]"/> </m:mn>
-        </xsl:if>
-        <m:mo>&#x02062;</m:mo>
-        <m:mo>i</m:mo>
-      </m:mfenced>
-    </xsl:when>
-    <xsl:when test="@type='complex' and @base and child::m:sep[1]">
-      <m:msub>
-        <m:mfenced separators="">
-          <m:mn> <xsl:apply-templates select="text()[1]"/> </m:mn>
-          <xsl:if test="text()[2] &lt; 0">
-            <m:mo>-</m:mo>
-            <m:mn> <xsl:value-of select="-text()[2]"/> </m:mn>
-          </xsl:if>
-          <xsl:if test="not(text()[2] &lt; 0)">
-            <m:mo>+</m:mo>
-            <m:mn> <xsl:apply-templates select="text()[2]"/> </m:mn>
-          </xsl:if>
-          <m:mo>&#x02062;</m:mo>
-          <m:mo>i</m:mo>
-        </m:mfenced>
-        <m:mn> <xsl:value-of select="@base"/> </m:mn>
-      </m:msub>
-    </xsl:when>
-    <xsl:when test="@type='rational' and not(@base) and child::m:sep[1]">
-      <m:mfrac>
-        <m:mn> <xsl:apply-templates select="text()[1]"/> </m:mn>
-        <m:mn> <xsl:apply-templates select="text()[2]"/> </m:mn>
-      </m:mfrac>
-    </xsl:when>
-    <xsl:when test="@type='rational' and @base and child::m:sep[1]">
-      <m:msub>
-        <m:mfenced>
-          <m:mfrac>
-            <m:mn> <xsl:apply-templates select="text()[1]"/> </m:mn>
-            <m:mn> <xsl:apply-templates select="text()[2]"/> </m:mn>
-          </m:mfrac>
-        </m:mfenced>
-        <m:mn> <xsl:value-of select="@base"/> </m:mn>
-      </m:msub>
-    </xsl:when>
-    <xsl:when test="@type='polar' and not(@base) and child::m:sep[1]">
-      <m:mrow>
-        <m:mo>Polar</m:mo>
-        <m:mo>&#x02062;</m:mo>
-        <m:mfenced separators=",">
-          <m:mn> <xsl:apply-templates select="text()[1]"/> </m:mn>
-          <m:mn> <xsl:apply-templates select="text()[2]"/> </m:mn>
-        </m:mfenced>
-      </m:mrow>
-    </xsl:when>
-    <xsl:when test="@type='polar' and @base and child::m:sep[1]">
-      <m:msub>
-        <m:mrow>
-          <m:mo>Polar</m:mo>
-          <m:mo>&#x02062;</m:mo>
-          <m:mfenced separators=",">
-            <m:mn> <xsl:apply-templates select="text()[1]"/> </m:mn>
-            <m:mn> <xsl:apply-templates select="text()[2]"/> </m:mn>
-          </m:mfenced>
-        </m:mrow>
-        <m:mn> <xsl:value-of select="@base"/> </m:mn>
-      </m:msub>
-   </xsl:when>
-   <xsl:otherwise>
-<!--HELM: Was:
- <m:mn> <xsl:apply-templates mode = "semantics"/> </m:mn>
-HELM: Now is: -->
-    <xsl:choose>
-     <xsl:when test="child::text() and not(*[1])">
-      <m:mn> <xsl:apply-templates mode = "semantics"/> </m:mn>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:choose>
-       <xsl:when test="not(*[2])">
-        <xsl:copy-of select="*[1]"/>
-       </xsl:when>
-       <xsl:otherwise>
-        <m:mrow>
-         <xsl:copy-of select="*|text()"/>
-        </m:mrow>
-       </xsl:otherwise>
-      </xsl:choose>
-     </xsl:otherwise>
-    </xsl:choose>
-<!-- HELM -->
-   </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:cn" mode="cnid">
-  <xsl:choose>
-    <xsl:when test="@base and (not(@type) or @type='integer' or @type='real')">
-      <m:msub m:xref="{@id}">
-        <m:mn> <xsl:apply-templates mode = "semantics"/> </m:mn>
-        <m:mn> <xsl:value-of select="@base"/> </m:mn>
-      </m:msub>
-    </xsl:when>
-    <xsl:when test="@type='complex' and not(@base) and child::m:sep[1]">
-      <m:mfenced separators="" m:xref="{@id}">
-        <m:mn> <xsl:apply-templates select="text()[1]" mode = "semantics"/> </m:mn>
-        <xsl:if test="text()[2] &lt; 0">
-          <m:mo>-</m:mo>
-          <m:mn> <xsl:value-of select="-text()[2]"/> </m:mn>
-        </xsl:if>
-        <xsl:if test="not(text()[2] &lt; 0)">
-          <m:mo>+</m:mo>
-          <m:mn> <xsl:value-of select="text()[2]"/> </m:mn>
-        </xsl:if>
-        <m:mo>&#x02062;</m:mo>
-        <m:mo>i</m:mo>
-      </m:mfenced>
-    </xsl:when>
-    <xsl:when test="@type='complex' and @base and child::m:sep[1]">
-      <m:msub m:xref="{@id}">
-        <m:mfenced separators="">
-          <m:mn> <xsl:apply-templates select="text()[1]"/> </m:mn>
-          <xsl:if test="text()[2] &lt; 0">
-            <m:mo>-</m:mo>
-            <m:mn> <xsl:value-of select="-text()[2]"/> </m:mn>
-          </xsl:if>
-          <xsl:if test="not(text()[2] &lt; 0)">
-            <m:mo>+</m:mo>
-            <m:mn> <xsl:apply-templates select="text()[2]"/> </m:mn>
-          </xsl:if>
-          <m:mo>&#x02062;</m:mo>
-          <m:mo>i</m:mo>
-        </m:mfenced>
-        <m:mn> <xsl:value-of select="@base"/> </m:mn>
-      </m:msub>
-    </xsl:when>
-    <xsl:when test="@type='rational' and not(@base) and child::m:sep[1]">
-      <m:mfrac m:xref="{@id}">
-        <m:mn> <xsl:apply-templates select="text()[1]"/> </m:mn>
-        <m:mn> <xsl:apply-templates select="text()[2]"/> </m:mn>
-      </m:mfrac>
-    </xsl:when>
-    <xsl:when test="@type='rational' and @base and child::m:sep[1]">
-      <m:msub m:xref="{@id}">
-        <m:mfenced>
-          <m:mfrac>
-            <m:mn> <xsl:apply-templates select="text()[1]"/> </m:mn>
-            <m:mn> <xsl:apply-templates select="text()[2]"/> </m:mn>
-          </m:mfrac>
-        </m:mfenced>
-        <m:mn> <xsl:value-of select="@base"/> </m:mn>
-      </m:msub>
-    </xsl:when>
-    <xsl:when test="@type='polar' and not(@base) and child::m:sep[1]">
-      <m:mrow m:xref="{@id}">
-        <m:mo>Polar</m:mo>
-        <m:mo>&#x02062;</m:mo>
-        <m:mfenced separators=",">
-          <m:mn> <xsl:apply-templates select="text()[1]"/> </m:mn>
-          <m:mn> <xsl:apply-templates select="text()[2]"/> </m:mn>
-        </m:mfenced>
-      </m:mrow>
-    </xsl:when>
-    <xsl:when test="@type='polar' and @base and child::m:sep[1]">
-      <m:msub m:xref="{@id}">
-        <m:mrow>
-          <m:mo>Polar</m:mo>
-          <m:mo>&#x02062;</m:mo>
-          <m:mfenced separators=",">
-            <m:mn> <xsl:apply-templates select="text()[1]"/> </m:mn>
-            <m:mn> <xsl:apply-templates select="text()[2]"/> </m:mn>
-          </m:mfenced>
-        </m:mrow>
-        <m:mn> <xsl:value-of select="@base"/> </m:mn>
-      </m:msub>
-   </xsl:when>
-   <xsl:otherwise>
-    <xsl:choose>
-     <xsl:when test="child::text() and not(*[1])">
-      <m:mn m:xref="{@id}"> <xsl:apply-templates mode = "semantics"/> </m:mn>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:variable name="id" select="@id"/>
-      <xsl:choose>
-       <xsl:when test="not(*[2])">
-        <xsl:for-each select="*[1]">
-         <xsl:copy>
-          <xsl:attribute name="m:xref">
-           <xsl:value-of select="$id"/>
-          </xsl:attribute>
-          <xsl:copy-of select="@*|*"/>
-         </xsl:copy>
-        </xsl:for-each>
-       </xsl:when>
-       <xsl:otherwise>
-        <m:mrow m:xref="{$id}">
-         <xsl:copy-of select="*|text()"/>
-        </m:mrow>
-       </xsl:otherwise>
-      </xsl:choose>
-     </xsl:otherwise>
-    </xsl:choose>
-   </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<!-- HELM: ci could not contain MAthML presentation -->
-<xsl:template match = "m:ci">
-<!-- HELM -->
-  <xsl:choose>
-    <xsl:when test="@type='vector' or @type=matrix or @type=set">
-      <m:mi fontweight="bold">
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates mode = "semantics"/>
-      </m:mi>
-    </xsl:when>
-    <xsl:when test="child::text() and not(child::*[1])">
-      <m:mi>
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-<!-- HELM: added mode=semantics -->
-        <xsl:apply-templates mode = "semantics"/>
-      </m:mi>
-    </xsl:when>
-    <xsl:when test="child::text() and *[1] and not(*[1]=m:sep)">
-      <m:mrow>
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-<!-- HELM: added mode=semantics -->
-        <xsl:apply-templates mode = "semantics"/>
-      </m:mrow>
-    </xsl:when>
-    <xsl:otherwise>
-      <xsl:if test="*[2]">
-        <m:mrow>
-          <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-            <xsl:attribute name="m:xref">
-              <xsl:value-of select="@id"/>
-            </xsl:attribute>
-          </xsl:if>
-          <xsl:apply-templates select="*"/>
-        </m:mrow>
-      </xsl:if>
-      <xsl:if test="not(*[2])">
-<!--HELM: Was:
-        <xsl:apply-templates select="*[1]"/>
-HELM: Now is: -->
-        <xsl:variable name="id" select="@id"/>
-        <xsl:for-each select="*[1]">
-         <xsl:copy>
-          <xsl:attribute name="m:xref">
-           <xsl:value-of select="$id"/>
-          </xsl:attribute>
-         <xsl:copy-of select="@*|*"/>
-         </xsl:copy>
-        </xsl:for-each>
-<!-- HELM -->
-      </xsl:if>
-    </xsl:otherwise>
-  </xsl:choose>
-<!-- HELM -->
-</xsl:template>
-
-<xsl:template match = "m:ci/m:*[not(self::m:sep)]">
-  <xsl:copy-of select = "."/>
-</xsl:template>
-
-<!-- HELM: previous Version x.xx from Feb. 18, 2000 -->
-<xsl:template match = "m:csymbol">
-<!-- HELM: added -->
-   <m:mrow>
-    <xsl:attribute name="m:xref">
-     <xsl:value-of select="@id"/>
-    </xsl:attribute>
-<!-- HELM -->
-   <xsl:choose>
-    <xsl:when test="*[1]">
-     <xsl:copy-of select = "*"/>
-    </xsl:when>
-   <xsl:otherwise>
-    <m:mo>
-     <xsl:apply-templates mode = "semantics"/>
-    </m:mo>
-   </xsl:otherwise>
-  </xsl:choose>
- </m:mrow>
-</xsl:template>
-
-
-<!-- HELM: csymbol cannot contain ci or cn elements, but only text or 
-presentation elements. PCDATA should render as if it were wrapped in 
-an mo. Mixed content: mrow which contains mo + presentation elements -->
-<!--<xsl:template match = "m:csymbol/m:*">
-  <xsl:choose>
-    <xsl:when test="self::m:cn or self::m:ci">
-      <xsl:apply-templates mode = "semantics"/>
-    </xsl:when>
-    <xsl:otherwise>
-      <xsl:copy-of select = "."/>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:csymbol/text()">
-  <xsl:choose>
-    <xsl:when test=". &lt; 0 or . = 0 or . &gt; 0">
-      <mn> <xsl:copy-of select = "."/> </mn>
-    </xsl:when>
-    <xsl:otherwise>
-      <mi> <xsl:copy-of select = "."/> </mi>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>-->
-
-
-<!-- ***************** BASIC CONTENT ELEMENTS ***************** -->
-
-<xsl:template match = "m:apply[m:*[1][self::m:fn]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:apply-templates select = "m:fn[1]" mode = "semantics"/>
-    <m:mo> 
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:fn/@id"/>
-          </xsl:attribute>
-        </xsl:if>&#x02061;</m:mo>
-    <m:mfenced separators=",">
-      <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
-    </m:mfenced>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:fn">
-  <xsl:apply-templates select = "*[1]" mode = "semantics">
-    <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
-  </xsl:apply-templates>
-</xsl:template>
-
-<xsl:template match = "m:interval">
-  <m:mfenced separators=",">
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:if test="@closure='closed' or @closure='closed-open'">
-      <xsl:attribute name="open">[</xsl:attribute>
-    </xsl:if>
-    <xsl:if test="@closure='closed' or @closure='open-closed'">
-      <xsl:attribute name="close">]</xsl:attribute>
-    </xsl:if>
-    <xsl:apply-templates select="*" mode = "semantics"/>
-  </m:mfenced>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:*[1][self::m:apply[m:inverse[1]]]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:apply-templates select = "*[1]" mode = "semantics"/>
-    <m:mo>&#x02061;</m:mo>
-    <m:mfenced separators=",">
-      <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
-    </m:mfenced>
- </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[*[1][self::m:inverse]]">
-  <xsl:choose>
-    <xsl:when test="*[2]=m:exp or *[2]=m:ln or *[2]=m:sin or *[2]=m:cos or
-                    *[2]=m:tan or *[2]=m:sec or *[2]=m:csc or *[2]=m:cot or
-                    *[2]=m:sinh or *[2]=m:cosh or *[2]=m:tanh or *[2]=m:sech or
-                    *[2]=m:csch or *[2]=m:coth or *[2]=m:arcsin or
-                    *[2]=m:arccos or *[2]=m:arctan">
-      <m:mo>
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="*[2]" mode="inverse"/>
-      </m:mo>
-    </xsl:when>
-    <xsl:otherwise>
-      <m:msup>
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select = "*[2]"/>
-        <m:mfenced>
-          <m:mn>-1</m:mn>
-        </m:mfenced>
-      </m:msup>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "*" mode="inverse">
-  <xsl:choose>
-    <xsl:when test="self::m:exp">
-      <xsl:value-of select="'ln'"/>
-    </xsl:when>
-    <xsl:when test="self::m:ln">
-      <xsl:value-of select="'exp'"/>
-    </xsl:when>
-    <xsl:when test="self::m:sin">
-      <xsl:value-of select="'arcsin'"/>
-    </xsl:when>
-    <xsl:when test="self::m:cos">
-      <xsl:value-of select="'arccos'"/>
-    </xsl:when>
-    <xsl:when test="self::m:tan">
-      <xsl:value-of select="'arctan'"/>
-    </xsl:when>
-    <xsl:when test="self::m:sec">
-      <xsl:value-of select="'arcsec'"/>
-    </xsl:when>
-    <xsl:when test="self::m:csc">
-      <xsl:value-of select="'arccsc'"/>
-    </xsl:when>
-    <xsl:when test="self::m:cot">
-      <xsl:value-of select="'arccot'"/>
-    </xsl:when>
-    <xsl:when test="self::m:sinh">
-      <xsl:value-of select="'arcsinh'"/>
-    </xsl:when>
-    <xsl:when test="self::m:cosh">
-      <xsl:value-of select="'arccosh'"/>
-    </xsl:when>
-    <xsl:when test="self::m:tanh">
-      <xsl:value-of select="'arctanh'"/>
-    </xsl:when>
-    <xsl:when test="self::m:sech">
-      <xsl:value-of select="'arcsech'"/>
-    </xsl:when>
-    <xsl:when test="self::m:csch">
-      <xsl:value-of select="'arccsch'"/>
-    </xsl:when>
-    <xsl:when test="self::m:coth">
-      <xsl:value-of select="'arccoth'"/>
-    </xsl:when>
-    <xsl:when test="self::m:arcsin">
-      <xsl:value-of select="'sin'"/>
-    </xsl:when>
-    <xsl:when test="self::m:arccos">
-      <xsl:value-of select="'cos'"/>
-    </xsl:when>
-    <xsl:when test="self::m:arctan">
-      <xsl:value-of select="'tan'"/>
-    </xsl:when>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:sep"/>
-
-<xsl:template match = "m:condition">
-  <xsl:choose>
-    <xsl:when test="parent::m:apply[m:forall[1]]"/>
-    <xsl:otherwise>
-      <xsl:choose>
-        <xsl:when test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <m:mrow m:xref="{@id}">
-            <xsl:apply-templates select="*" mode = "semantics"/>
-          </m:mrow>
-        </xsl:when>
-        <xsl:otherwise>
-          <xsl:if test="not(*[2])">
-            <xsl:apply-templates select="*" mode = "semantics"/>
-          </xsl:if>
-          <xsl:if test="*[2]">
-            <m:mrow>
-              <xsl:apply-templates select="*" mode = "semantics"/>
-            </m:mrow>
-          </xsl:if>
-        </xsl:otherwise>
-      </xsl:choose>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:declare"/>
-
-<xsl:template match = "m:lambda">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:mo>&#x0039B;</m:mo>
-    <m:mo>&#x02061;</m:mo>
-    <m:mfenced separators=",">
-      <xsl:for-each select = "*">
-        <xsl:choose>
-          <xsl:when test="self::m:ci or self::m:cn">
-            <xsl:apply-templates select = "." mode="semantics"/>
-          </xsl:when>
-          <xsl:otherwise>
-            <m:mrow>
-              <xsl:apply-templates select = "." mode="semantics"/>
-            </m:mrow>
-          </xsl:otherwise>
-        </xsl:choose>
-      </xsl:for-each>
-    </m:mfenced>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[*[1][self::m:apply[m:compose[1]]]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:apply-templates select = "*[1]" mode = "semantics"/>
-    <m:mo>&#x02061;</m:mo>
-    <m:mfenced separators=",">
-      <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
-    </m:mfenced>
- </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[*[1][self::m:compose]]">
-  <m:mfenced separators="">
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:apply-templates select = "m:*[2][self::m:ci[@type='fn'] |
-                                       self::m:fn]" mode="semantics"/>
-    <xsl:for-each select = "m:*[position()>2][self::m:ci[@type='fn'] |
-                                                            self::m:fn]">
-      <m:mo>
- <!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="../m:compose/@id"/>
-          </xsl:attribute>
-        </xsl:if>&#x02218;</m:mo>
-      <xsl:apply-templates select = "." mode="semantics"/>
-    </xsl:for-each>
-  </m:mfenced>
-</xsl:template>
-
-<xsl:template match = "m:ident">
-  <xsl:choose>
-    <xsl:when test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <m:mo m:xref="{@id}">id</m:mo>
-    </xsl:when>
-    <xsl:otherwise>
-      <m:mo>id</m:mo>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-
-<!-- ***************** ARITHMETIC, ALGEBRA & LOGIC ***************** -->
-
-<xsl:template match = "m:apply[m:quotient[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:mo form="prefix" fence="true" stretchy="true" lspace="0em" rspace="0em">&#x0230A;</m:mo>
-    <m:mfrac>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:quotient/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-      <m:mrow>
-        <xsl:apply-templates select="*[2]" mode = "semantics">
-          <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
-        </xsl:apply-templates>
-      </m:mrow>
-      <m:mrow>
-        <xsl:apply-templates select="*[3]" mode = "semantics">
-          <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-        </xsl:apply-templates>
-      </m:mrow>
-    </m:mfrac>
-    <m:mo form="postfix" fence="true" stretchy="true" lspace="0em" rspace="0em">&#x0230A;</m:mo>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[*[1][self::m:exp]]">
-  <m:msup>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:mo>
-    <!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:exp/@id"/>
-          </xsl:attribute>
-        </xsl:if>e</m:mo>
-    <xsl:apply-templates select = "*[2]" mode = "semantics"/>
-  </m:msup>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:factorial[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:apply-templates select = "*[2]" mode = "semantics">
-      <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
-      <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-    </xsl:apply-templates>
-    <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:factorial/@id"/>
-          </xsl:attribute>
-        </xsl:if>!</m:mo>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:max[1] | m:min[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:if test="*[2]=m:bvar">
-      <m:munder>
-        <xsl:if test="*[1]=m:max">
-          <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:max/@id"/>
-          </xsl:attribute>
-        </xsl:if>max</m:mo>
-        </xsl:if>
-        <xsl:if test="*[1]=m:min">
-          <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:min/@id"/>
-          </xsl:attribute>
-        </xsl:if>min</m:mo>
-        </xsl:if>
-        <xsl:apply-templates select="*[2]" mode = "semantics"/>
-      </m:munder>
-      <xsl:if test="*[3]=m:condition">
-        <m:mfenced open="{{" close="}}" separators="">
-          <m:mfenced open="" close="" separators=",">
-            <xsl:for-each select = "*[position()>3]">
-              <xsl:apply-templates select = "." mode="semantics"/>
-            </xsl:for-each>
-          </m:mfenced>
-          <m:mo>|</m:mo>
-          <xsl:apply-templates select="*[3]" mode = "semantics"/>
-        </m:mfenced>
-      </xsl:if>
-      <xsl:if test="not(*[3]=m:condition)">
-        <m:mfenced open="{{" close="}}" separators=",">
-          <xsl:for-each select = "*[position()>2]">
-            <xsl:apply-templates select = "." mode="semantics"/>
-          </xsl:for-each>
-        </m:mfenced>
-      </xsl:if>
-    </xsl:if>
-    <xsl:if test="*[2]=m:condition">
-      <xsl:if test="*[1]=m:max">
-        <m:mo>max</m:mo>
-      </xsl:if>
-      <xsl:if test="*[1]=m:min">
-        <m:mo>min</m:mo>
-      </xsl:if>
-      <m:mfenced open="{{" close="}}" separators="">
-        <xsl:if test="*[3]">
-          <m:mfenced open="" close="" separators=",">
-            <xsl:for-each select = "*[position()>2]">
-              <xsl:apply-templates select = "." mode="semantics"/>
-            </xsl:for-each>
-          </m:mfenced>
-          <m:mo>|</m:mo>
-        </xsl:if>
-        <xsl:apply-templates select="*[2]" mode = "semantics"/>
-      </m:mfenced>
-    </xsl:if>
-    <xsl:if test="not(*[2]=m:condition) and not(*[2]=m:bvar)">
-      <xsl:if test="*[1]=m:max">
-        <m:mo>max</m:mo>
-      </xsl:if>
-      <xsl:if test="*[1]=m:min">
-        <m:mo>min</m:mo>
-      </xsl:if>
-      <m:mfenced open="{{" close="}}" separators=",">
-        <xsl:for-each select = "*[position()>1]">
-          <xsl:apply-templates select = "." mode="semantics"/>
-        </xsl:for-each>
-      </m:mfenced>
-    </xsl:if>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:minus[1]]">
-  <xsl:param name="IN_PREC" select="$NO_PREC"/>
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:choose>
-    <xsl:when test="$IN_PREC &gt; $MINUS_PREC or $IN_PREC=$MINUS_PREC and
-                                                        $PARAM=$PAR_SAME">
-      <m:mfenced separators="">
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="minus">
-          <xsl:with-param name="PARAM" select="$PARAM"/>
-          <xsl:with-param name="PAREN" select="$PAR_YES"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mfenced>
-    </xsl:when>
-    <xsl:when test="$IN_PREC &gt; $NO_PREC and $IN_PREC &lt; $FUNCTION_PREC
-                    and not($SEM_SW=$SEM_ALL) and not($SEM_SW=$SEM_XREF)
-                    and not($SEM_SW=$SEM_XREF_EXT)">
-      <xsl:apply-templates select="." mode="minus">
-        <xsl:with-param name="PARAM" select="$PARAM"/>
-        <xsl:with-param name="PAREN" select="$PAREN"/>
-        <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-      </xsl:apply-templates>
-    </xsl:when>
-    <xsl:otherwise>
-      <m:mrow>
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="minus">
-          <xsl:with-param name="PARAM" select="$PARAM"/>
-          <xsl:with-param name="PAREN" select="$PAREN"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mrow>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:minus[1]]" mode="minus">
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:if test="not(*[3])">
-    <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:minus/@id"/>
-          </xsl:attribute>
-        </xsl:if>-</m:mo>
-    <xsl:apply-templates select="*[2]" mode = "semantics">
-      <xsl:with-param name="IN_PREC" select="$NEG_PREC"/>
-      <xsl:with-param name="PAREN" select="$PAREN"/>
-      <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-    </xsl:apply-templates>
-  </xsl:if>
-  <xsl:if test="*[3]">
-    <xsl:apply-templates select="*[2]" mode = "semantics">
-      <xsl:with-param name="IN_PREC" select="$MINUS_PREC"/>
-      <xsl:with-param name="PARAM" select="$PARAM"/>
-      <xsl:with-param name="PAREN" select="$PAREN"/>
-      <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-    </xsl:apply-templates>
-    <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:minus/@id"/>
-          </xsl:attribute>
-        </xsl:if>-</m:mo>
-    <xsl:apply-templates select="*[3]" mode = "semantics">
-      <xsl:with-param name="IN_PREC" select="$MINUS_PREC"/>
-      <xsl:with-param name="PARAM" select="$PAR_SAME"/>
-      <xsl:with-param name="PAREN" select="$PAREN"/>
-      <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-    </xsl:apply-templates>
-  </xsl:if>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:plus[1]]">
-  <xsl:param name="IN_PREC" select="$NO_PREC"/>
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:choose>
-    <xsl:when test="$IN_PREC &gt; $PLUS_PREC or $IN_PREC=$PLUS_PREC and
-                                                      $PARAM=$PAR_SAME">
-      <m:mfenced separators="">
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="plus">
-          <xsl:with-param name="PARAM" select="$IN_PREC"/>
-          <xsl:with-param name="PAREN" select="$PAR_YES"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mfenced>
-    </xsl:when>
-    <xsl:when test="$IN_PREC &gt; $NO_PREC and $IN_PREC &lt; $FUNCTION_PREC
-                    and not($SEM_SW=$SEM_ALL) and not($SEM_SW=$SEM_XREF)
-                    and not($SEM_SW=$SEM_XREF_EXT)">
-      <xsl:apply-templates select="." mode="plus">
-        <xsl:with-param name="PARAM" select="$PARAM"/>
-        <xsl:with-param name="PAREN" select="$PAREN"/>
-        <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-      </xsl:apply-templates>
-    </xsl:when>
-    <xsl:otherwise>
-      <m:mrow>
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="plus">
-          <xsl:with-param name="PARAM" select="$IN_PREC"/>
-          <xsl:with-param name="PAREN" select="$PAREN"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mrow>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:plus[1]]" mode="plus">
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:if test="*[2]">
-    <xsl:apply-templates select="*[2]" mode = "semantics">
-      <xsl:with-param name="IN_PREC" select="$PLUS_PREC"/>
-      <xsl:with-param name="PARAM" select="$PARAM"/>
-      <xsl:with-param name="PAREN" select="$PAREN"/>
-      <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-    </xsl:apply-templates>
-    <xsl:for-each select = "*[position()>2]">
-      <xsl:choose>
-        <xsl:when test=". &lt; 0">
-          <m:mo>-</m:mo>
-          <m:mn> <xsl:value-of select="-."/> </m:mn>
-        </xsl:when>
-        <xsl:when test="self::m:apply[m:minus[1]] and not(*[3])">
-          <xsl:apply-templates select="." mode = "semantics">
-            <xsl:with-param name="IN_PREC" select="$PLUS_PREC"/>
-            <xsl:with-param name="PAREN" select="$PAREN"/>
-            <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-          </xsl:apply-templates>
-        </xsl:when>
-        <xsl:otherwise>
-          <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="../m:plus/@id"/>
-          </xsl:attribute>
-        </xsl:if>+</m:mo>
-          <xsl:apply-templates select="." mode = "semantics">
-            <xsl:with-param name="IN_PREC" select="$PLUS_PREC"/>
-            <xsl:with-param name="PAREN" select="$PAREN"/>
-            <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-          </xsl:apply-templates>
-        </xsl:otherwise>
-      </xsl:choose>
-    </xsl:for-each>
-  </xsl:if>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:power[1]]">
-  <xsl:choose>
-    <xsl:when test="*[2]=m:apply[m:ln[1] | m:log[1] | m:abs[1] |
-                         m:gcd[1] | m:sin[1] | m:cos[1] | m:tan[1] |
-                         m:sec[1] | m:csc[1] | m:cot[1] | m:sinh[1] |
-                         m:cosh[1] | m:tanh[1] | m:sech[1] | m:csch[1] |
-                         m:coth[1] | m:arcsin[1] | m:arccos[1] |
-                         m:arctan[1]]">
-      <xsl:apply-templates select="*[2]" mode = "semantics"/>
-    </xsl:when>
-    <xsl:otherwise>
-      <m:msup>
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select = "*[2]" mode = "semantics">
-          <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-        </xsl:apply-templates>
-        <xsl:apply-templates select = "*[3]" mode = "semantics"/>
-      </m:msup>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:rem[1] | m:divide[1]]">
-  <xsl:param name="IN_PREC" select="$NO_PREC"/>
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:choose>
-    <xsl:when test="$IN_PREC &gt; $DIV_PREC or $IN_PREC=$DIV_PREC and
-                                                    $PARAM=$PAR_SAME">
-      <m:mfenced separators="">
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="remdiv">
-          <xsl:with-param name="PARAM" select="$IN_PREC"/>
-          <xsl:with-param name="PAREN" select="$PAR_YES"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mfenced>
-    </xsl:when>
-    <xsl:when test="$IN_PREC &gt; $NO_PREC and $IN_PREC &lt; $FUNCTION_PREC
-                    and not($SEM_SW=$SEM_ALL) and not($SEM_SW=$SEM_XREF)
-                    and not($SEM_SW=$SEM_XREF_EXT)">
-      <xsl:apply-templates select="." mode="remdiv">
-        <xsl:with-param name="PARAM" select="$PARAM"/>
-        <xsl:with-param name="PAREN" select="$PAREN"/>
-        <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-      </xsl:apply-templates>
-    </xsl:when>
-    <xsl:otherwise>
-      <m:mrow>
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="remdiv">
-          <xsl:with-param name="PARAM" select="$IN_PREC"/>
-          <xsl:with-param name="PAREN" select="$PAREN"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mrow>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:rem[1] | m:divide[1]]" mode="remdiv">
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:apply-templates select = "*[2]" mode = "semantics">
-    <xsl:with-param name="IN_PREC" select="$DIV_PREC"/>
-      <xsl:with-param name="PARAM" select="$PARAM"/>
-      <xsl:with-param name="PAREN" select="$PAREN"/>
-      <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-  </xsl:apply-templates>
-  <m:mo>
-    <xsl:if test="m:rem">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:rem/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-      <xsl:value-of select="'%'"/>
-    </xsl:if>
-    <xsl:if test="m:divide">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:divide/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-      <xsl:value-of select="'/'"/>
-    </xsl:if>
-  </m:mo>
-  <xsl:apply-templates select = "*[3]" mode = "semantics">
-    <xsl:with-param name="IN_PREC" select="$DIV_PREC"/>
-    <xsl:with-param name="PARAM" select="$PAR_SAME"/>
-    <xsl:with-param name="PAREN" select="$PAREN"/>
-    <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-  </xsl:apply-templates>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:times[1]]">
-  <xsl:param name="IN_PREC" select="$NO_PREC"/>
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:choose>
-    <xsl:when test="$IN_PREC &gt; $MUL_PREC or $IN_PREC=$MUL_PREC and
-                                                    $PARAM=$PAR_SAME">
-      <m:mfenced separators="">
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="times">
-          <xsl:with-param name="PARAM" select="$IN_PREC"/>
-          <xsl:with-param name="PAREN" select="$PAR_YES"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mfenced>
-    </xsl:when>
-    <xsl:when test="$IN_PREC &gt; $NO_PREC and $IN_PREC &lt; $FUNCTION_PREC
-                    and not($SEM_SW=$SEM_ALL) and not($SEM_SW=$SEM_XREF)
-                    and not($SEM_SW=$SEM_XREF_EXT)">
-      <xsl:apply-templates select="." mode="times">
-        <xsl:with-param name="PARAM" select="$PARAM"/>
-        <xsl:with-param name="PAREN" select="$PAREN"/>
-        <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-      </xsl:apply-templates>
-    </xsl:when>
-    <xsl:otherwise>
-      <m:mrow>
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="times">
-          <xsl:with-param name="PARAM" select="$IN_PREC"/>
-          <xsl:with-param name="PAREN" select="$PAREN"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mrow>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:times[1]]" mode="times">
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:apply-templates select="*[2]" mode = "semantics">
-    <xsl:with-param name="IN_PREC" select="$MUL_PREC"/>
-    <xsl:with-param name="PARAM" select="$PARAM"/>
-    <xsl:with-param name="PAREN" select="$PAREN"/>
-    <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-  </xsl:apply-templates>
-  <xsl:if test="*[3]">
-    <xsl:for-each select = "*[position()>2]">
-<!-- HELM: to distinguish between * and the application -->
-<!--      <m:mo>&#x02062;</m:mo> -->
-      <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="../m:times/@id"/>
-          </xsl:attribute>
-        </xsl:if>*</m:mo>
-      <xsl:apply-templates select="." mode = "semantics">
-        <xsl:with-param name="IN_PREC" select="$MUL_PREC"/>
-        <xsl:with-param name="PAREN" select="$PAREN"/>
-        <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-      </xsl:apply-templates>
-    </xsl:for-each>
-  </xsl:if>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:root[1]]">
-  <m:msqrt>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:if test="*[2]=m:degree">
-      <xsl:apply-templates select="*[3]" mode = "semantics">
-        <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
-        <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-      </xsl:apply-templates>
-      <xsl:apply-templates select="*[2]" mode = "semantics"/>
-    </xsl:if>
-    <xsl:if test="not(*[2]=m:degree)">
-      <xsl:apply-templates select="*[2]" mode = "semantics">
-        <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
-        <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-      </xsl:apply-templates>
-      <m:mn>2</m:mn>
-    </xsl:if>
-  </m:msqrt>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:gcd[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:if test="not(parent::m:apply[m:power[1]])">
-      <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:gcd/@id"/>
-          </xsl:attribute>
-        </xsl:if>gcd</m:mo>
-    </xsl:if>
-    <xsl:if test="parent::m:apply[m:power[1]]">
-      <m:msup>
-        <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:gcd/@id"/>
-          </xsl:attribute>
-        </xsl:if>gcd</m:mo>
-        <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
-      </m:msup>
-    </xsl:if>
-    <m:mfenced separators=",">
-      <xsl:for-each select = "*[position()>1]">
-        <xsl:apply-templates select = "." mode="semantics"/>
-      </xsl:for-each>
-    </m:mfenced>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:and[1]]">
-  <xsl:param name="IN_PREC" select="$NO_PREC"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:choose>
-    <xsl:when test="$IN_PREC &gt; $AND_PREC">
-      <m:mfenced separators="">
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="and">
-          <xsl:with-param name="PARAM" select="$IN_PREC"/>
-          <xsl:with-param name="PAREN" select="$PAR_YES"/>
-        </xsl:apply-templates>
-      </m:mfenced>
-    </xsl:when>
-    <xsl:when test="$IN_PREC &gt; $NO_PREC and $IN_PREC &lt; $FUNCTION_PREC
-                    and not($SEM_SW=$SEM_ALL) and not($SEM_SW=$SEM_XREF)
-                    and not($SEM_SW=$SEM_XREF_EXT)">
-      <xsl:apply-templates select="." mode="and">
-        <xsl:with-param name="PARAM" select="$IN_PREC"/>
-        <xsl:with-param name="PAREN" select="$PAREN"/>
-        <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-      </xsl:apply-templates>
-    </xsl:when>
-    <xsl:otherwise>
-      <m:mrow>
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="and">
-          <xsl:with-param name="PARAM" select="$IN_PREC"/>
-          <xsl:with-param name="PAREN" select="$PAREN"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mrow>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:and[1]]" mode="and">
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:apply-templates select="*[2]" mode = "semantics">
-    <xsl:with-param name="IN_PREC" select="$AND_PREC"/>
-    <xsl:with-param name="PARAM" select="$PARAM"/>
-    <xsl:with-param name="PAREN" select="$PAREN"/>
-    <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-  </xsl:apply-templates>
-  <xsl:for-each select = "*[position()>2]">
-    <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="../m:and/@id"/>
-          </xsl:attribute>
-        </xsl:if>&#x02227;</m:mo>
-    <xsl:apply-templates select="." mode = "semantics">
-      <xsl:with-param name="IN_PREC" select="$AND_PREC"/>
-      <xsl:with-param name="PAREN" select="$PAREN"/>
-      <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-    </xsl:apply-templates>
-  </xsl:for-each>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:or[1]]">
-  <xsl:param name="IN_PREC" select="$NO_PREC"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:choose>
-    <xsl:when test="$IN_PREC &gt; $OR_PREC">
-      <m:mfenced separators="">
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="or">
-          <xsl:with-param name="PARAM" select="$IN_PREC"/>
-          <xsl:with-param name="PAREN" select="$PAR_YES"/>
-        </xsl:apply-templates>
-      </m:mfenced>
-    </xsl:when>
-    <xsl:when test="$IN_PREC &gt; $NO_PREC and $IN_PREC &lt; $FUNCTION_PREC
-                    and not($SEM_SW=$SEM_ALL) and not($SEM_SW=$SEM_XREF)
-                    and not($SEM_SW=$SEM_XREF_EXT)">
-      <xsl:apply-templates select="." mode="or">
-        <xsl:with-param name="PARAM" select="$IN_PREC"/>
-        <xsl:with-param name="PAREN" select="$PAREN"/>
-        <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-      </xsl:apply-templates>
-    </xsl:when>
-    <xsl:otherwise>
-      <m:mrow>
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="or">
-          <xsl:with-param name="PARAM" select="$IN_PREC"/>
-          <xsl:with-param name="PAREN" select="$PAREN"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mrow>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:or[1]]" mode="or">
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:apply-templates select="*[2]" mode = "semantics">
-    <xsl:with-param name="IN_PREC" select="$OR_PREC"/>
-    <xsl:with-param name="PARAM" select="$PARAM"/>
-    <xsl:with-param name="PAREN" select="$PAREN"/>
-    <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-  </xsl:apply-templates>
-  <xsl:for-each select = "*[position()>2]">
-    <m:mo> 
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="../m:or/@id"/>
-          </xsl:attribute>
-        </xsl:if>&#x02228;</m:mo>
-    <xsl:apply-templates select="." mode = "semantics">
-      <xsl:with-param name="IN_PREC" select="$OR_PREC"/>
-      <xsl:with-param name="PAREN" select="$PAREN"/>
-      <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-    </xsl:apply-templates>
-  </xsl:for-each>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:xor[1]]">
-  <xsl:param name="IN_PREC" select="$NO_PREC"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:choose>
-    <xsl:when test="$IN_PREC &gt; $XOR_PREC">
-      <m:mfenced separators="">
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="xor">
-          <xsl:with-param name="PARAM" select="$IN_PREC"/>
-          <xsl:with-param name="PAREN" select="$PAR_YES"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mfenced>
-    </xsl:when>
-    <xsl:when test="$IN_PREC &gt; $NO_PREC and $IN_PREC &lt; $FUNCTION_PREC
-                                                and not($SEM_SW=$SEM_ALL)">
-      <xsl:apply-templates select="." mode="xor">
-        <xsl:with-param name="PARAM" select="$IN_PREC"/>
-        <xsl:with-param name="PAREN" select="$PAREN"/>
-      </xsl:apply-templates>
-    </xsl:when>
-    <xsl:otherwise>
-      <m:mrow>
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="xor">
-          <xsl:with-param name="PARAM" select="$IN_PREC"/>
-          <xsl:with-param name="PAREN" select="$PAREN"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mrow>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:xor[1]]" mode="xor">
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:apply-templates select="*[2]" mode = "semantics">
-    <xsl:with-param name="IN_PREC" select="$XOR_PREC"/>
-    <xsl:with-param name="PARAM" select="$PARAM"/>
-    <xsl:with-param name="PAREN" select="$PAREN"/>
-    <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-  </xsl:apply-templates>
-  <xsl:for-each select = "*[position()>2]">
-    <m:mo>
- <!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="../m:xor/@id"/>
-          </xsl:attribute>
-        </xsl:if>&#x022BB;</m:mo>
-    <xsl:apply-templates select="." mode = "semantics">
-      <xsl:with-param name="IN_PREC" select="$XOR_PREC"/>
-      <xsl:with-param name="PAREN" select="$PAREN"/>
-      <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-    </xsl:apply-templates>
-  </xsl:for-each>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:not[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-<!-- HELM: was <m:mo>not</m:mo> -->
-    <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:not/@id"/>
-          </xsl:attribute>
-        </xsl:if>&#x000AC;</m:mo>
-    <xsl:apply-templates select = "*[2]" mode = "semantics">
-      <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
-    </xsl:apply-templates>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:forall[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:forall/@id"/>
-          </xsl:attribute>
-        </xsl:if>for all</m:mo>
-    <xsl:if test="count(m:bvar) &gt; 1">
-      <m:mfenced separators=",">
-        <xsl:for-each select = "m:bvar">
-          <xsl:apply-templates select = "." mode="semantics"/>
-        </xsl:for-each>
-      </m:mfenced>
-    </xsl:if>
-    <xsl:if test="count(m:bvar)=1">
-      <xsl:apply-templates select = "m:bvar" mode="semantics"/>
-    </xsl:if>
-    <xsl:if test="m:condition">
-      <m:mo>:</m:mo>
-      <xsl:apply-templates select = "m:condition/*" mode = "semantics"/>
-      <m:mo>,</m:mo>
-    </xsl:if>
-    <xsl:apply-templates select = "*[position()>1 and not(self::m:bvar) and
-                                not(self::m:condition)]" mode = "semantics"/>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:exists[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:mo> 
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:exists/@id"/>
-          </xsl:attribute>
-        </xsl:if>&#x02203;</m:mo>
-    <xsl:if test="count(m:bvar) &gt; 1">
-      <m:mfenced separators=",">
-        <xsl:for-each select = "m:bvar">
-          <xsl:apply-templates select = "." mode="semantics"/>
-        </xsl:for-each>
-      </m:mfenced>
-    </xsl:if>
-    <xsl:if test="count(m:bvar)=1">
-      <xsl:apply-templates select = "m:bvar" mode="semantics"/>
-    </xsl:if>
-    <xsl:if test="m:condition">
-      <m:mo>,</m:mo>
-      <xsl:apply-templates select = "m:condition/*" mode = "semantics"/>
-    </xsl:if>
-    <xsl:if test="*[position()>1 and not(self::m:bvar) and not(self::m:condition)]">
-      <m:mo>:</m:mo>
-      <xsl:apply-templates select = "*[position()>1 and not(self::m:bvar) and
-                                not(self::m:condition)]" mode = "semantics"/>
-    </xsl:if>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:abs[1]]">
-  <xsl:if test="not(parent::m:apply[m:power[1]])">
-    <m:mfenced open="|" close="|" separators="">
-      <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-        <xsl:attribute name="m:xref">
-          <xsl:value-of select="@id"/>
-        </xsl:attribute>
-      </xsl:if>
-      <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
-    </m:mfenced>
-  </xsl:if>
-  <xsl:if test="parent::m:apply[m:power[1]]">
-    <m:msup>
-      <m:mfenced open="|" close="|" separators="">
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
-      </m:mfenced>
-      <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
-    </m:msup>
-  </xsl:if>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:conjugate[1]]">
-  <m:mover>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:mrow>
-      <xsl:apply-templates select = "*[position()>1]" mode = "semantics"/>
-    </m:mrow>
-    <m:mo>
- <!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:conjugate/@id"/>
-          </xsl:attribute>
-        </xsl:if>&#x00332;</m:mo>
-  </m:mover>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:arg[1] | m:real[1] | m:imaginary[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:mo>
-      <xsl:if test="m:arg">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:arg/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:value-of select="'Arg'"/>
-      </xsl:if>
-      <xsl:if test="m:real">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:real/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:value-of select="'Re'"/>
-      </xsl:if>
-      <xsl:if test="m:imaginary">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:imaginary/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:value-of select="'Im'"/>
-      </xsl:if>
-    </m:mo>
-    <m:mfenced separators="">
-      <xsl:apply-templates select = "*[2]" mode = "semantics"/>
-    </m:mfenced>
-  </m:mrow>
-</xsl:template>
-
-
-<!-- ***************** RELATIONS ***************** -->
-
-<xsl:template match = "m:apply[m:neq | m:approx | m:tendsto | m:implies
-                     | m:in | m:notin | m:notsubset | m:notprsubset
-                     | m:subset | m:prsubset | m:eq | m:gt | m:lt
-                     | m:geq | m:leq | m:equivalent]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:if test="*[1]=m:neq or *[1]=m:approx or *[1]=m:tendsto or
-                  *[1]=m:implies or *[1]=m:in or *[1]=m:notin or
-                  *[1]=m:notsubset or *[1]=m:notprsubset">
-      <xsl:apply-templates select = "*[2]" mode = "semantics"/>
-      <m:mo>
-        <xsl:if test="*[1]=m:neq">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:neq/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x02260;
-        </xsl:if>
-        <xsl:if test="*[1]=m:approx">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:approx/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x0224A;
-        </xsl:if>
-        <xsl:if test="*[1]=m:tendsto">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:tendsto/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x02192;
-        </xsl:if>
-        <xsl:if test="*[1]=m:implies">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:implies/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x021D2;
-        </xsl:if>
-        <xsl:if test="*[1]=m:in">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:in/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x02208;
-        </xsl:if>
-        <xsl:if test="*[1]=m:notin">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:notin/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x02209;
-        </xsl:if>
-        <xsl:if test="*[1]=m:notsubset">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:notsubset/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x02284;
-        </xsl:if>
-        <xsl:if test="*[1]=m:notprsubset">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:notprsubset/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x02288;
-        </xsl:if>
-      </m:mo>
-      <xsl:apply-templates select = "*[3]" mode = "semantics"/>
-      <xsl:if test="*[1]=m:tendsto and m:tendsto[1][@type='below']">
-        <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:tendsto/@id"/>
-          </xsl:attribute>
-        </xsl:if>-</m:mo>
-      </xsl:if>
-      <xsl:if test="*[1]=m:tendsto and m:tendsto[1][@type='above']">
-        <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:tendsto/@id"/>
-          </xsl:attribute>
-        </xsl:if>+</m:mo>
-      </xsl:if>
-    </xsl:if>
-    <xsl:if test="*[1]=m:subset or *[1]=m:prsubset or *[1]=m:eq or *[1]=m:gt
-               or *[1]=m:lt or *[1]=m:geq or *[1]=m:leq or *[1]=m:equivalent">
-      <xsl:apply-templates select = "*[2]" mode="semantics"/>
-      <xsl:for-each select = "*[position()>2]">
-        <m:mo>
-          <xsl:if test="../*[self::m:subset][1]">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="../m:subset/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x02286;
-          </xsl:if>
-          <xsl:if test="../*[self::m:prsubset][1]">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="../m:prsubset/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x02282;
-          </xsl:if>
-          <xsl:if test="../*[self::m:eq][1]">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="../m:eq/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-            <xsl:value-of select="'='"/>
-          </xsl:if>
-          <xsl:if test="../*[self::m:gt][1]">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="../m:gt/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-            <xsl:value-of select="'&gt;'"/>
-          </xsl:if>
-          <xsl:if test="../*[self::m:lt][1]">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="../m:lt/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-            <xsl:value-of select="'&lt;'"/>
-          </xsl:if>
-          <xsl:if test="../*[self::m:geq][1]">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="../m:geq/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x02265;
-          </xsl:if>
-          <xsl:if test="../*[self::m:leq][1]">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="../m:leq/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x02264;
-          </xsl:if>
-          <xsl:if test="../*[self::m:equivalent][1]">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="../m:equivalent/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x02261;
-          </xsl:if>
-        </m:mo>
-        <xsl:apply-templates select = "." mode="semantics"/>
-      </xsl:for-each>
-    </xsl:if>
-  </m:mrow>
-</xsl:template>
-
-
-<!-- ***************** CALCULUS ***************** -->
-
-<xsl:template match = "m:apply[*[1][self::m:ln]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:choose>
-      <xsl:when test="parent::m:apply[m:power[1]]">
-        <m:msup>
-          <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:ln/@id"/>
-          </xsl:attribute>
-        </xsl:if>ln</m:mo>
-          <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
-        </m:msup>
-      </xsl:when>
-      <xsl:otherwise>
-        <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:ln/@id"/>
-          </xsl:attribute>
-        </xsl:if>ln</m:mo>
-      </xsl:otherwise>
-    </xsl:choose>
-    <m:mo>&#x02061;</m:mo>
-    <xsl:apply-templates select = "*[2]" mode = "semantics">
-      <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
-    </xsl:apply-templates>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:log[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:choose>
-      <xsl:when test="parent::m:apply[m:power[1]]">
-        <xsl:if test="not(*[2]=m:logbase)">
-          <m:msup>
-            <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:log/@id"/>
-          </xsl:attribute>
-        </xsl:if>log</m:mo>
-            <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
-          </m:msup>
-        </xsl:if>
-        <xsl:if test="*[2]=m:logbase">
-          <m:msubsup>
-            <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:log/@id"/>
-          </xsl:attribute>
-        </xsl:if>log</m:mo>
-            <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
-            <xsl:apply-templates select = "m:logbase" mode = "semantics"/>
-          </m:msubsup>
-        </xsl:if>
-      </xsl:when>
-      <xsl:otherwise>
-        <xsl:if test="not(*[2]=m:logbase)">
-          <m:mo>log</m:mo>
-        </xsl:if>
-        <xsl:if test="*[2]=m:logbase">
-          <m:msub>
-            <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:log/@id"/>
-          </xsl:attribute>
-        </xsl:if>log</m:mo>
-            <xsl:apply-templates select = "m:logbase" mode = "semantics"/>
-          </m:msub>
-        </xsl:if>
-      </xsl:otherwise>
-    </xsl:choose>
-    <m:mo>&#x02061;</m:mo>
-    <xsl:if test="*[2]=m:logbase">
-      <xsl:apply-templates select = "*[3]" mode = "semantics">
-        <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
-      </xsl:apply-templates>
-    </xsl:if>
-    <xsl:if test="not(*[2]=m:logbase)">
-      <xsl:apply-templates select = "*[2]" mode = "semantics">
-        <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
-      </xsl:apply-templates>
-    </xsl:if>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:diff[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:if test="*[2]=m:bvar and m:bvar[*[2]=m:degree]">
-      <m:mfrac>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:diff/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <m:msup>
-          <m:mo>d</m:mo>
-          <xsl:apply-templates select = "m:bvar/m:degree" mode = "semantics"/>
-        </m:msup>
-        <m:mrow>
-          <m:mo>d</m:mo>
-          <m:msup>
-            <xsl:apply-templates select = "m:bvar/*[1]" mode = "semantics"/>
-            <xsl:apply-templates select = "m:bvar/m:degree" mode = "semantics"/>
-          </m:msup>
-        </m:mrow>
-      </m:mfrac>
-    </xsl:if>
-    <xsl:if test="*[2]=m:bvar and not(m:bvar[*[2]=m:degree])">
-      <m:mfrac>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:diff/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <m:mo>d</m:mo>
-        <m:mrow>
-          <m:mo>d</m:mo>
-          <xsl:apply-templates select = "m:bvar/*[1]" mode = "semantics"/>
-        </m:mrow>
-      </m:mfrac>
-    </xsl:if>
-    <xsl:apply-templates select = "*[3]" mode = "semantics"/>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:partialdiff[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:for-each select = "m:bvar">
-      <xsl:if test="*[last()]=m:degree">
-        <m:mfrac>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:partialdiff/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-          <m:msup>
-             <m:mo>d</m:mo>
-             <xsl:apply-templates select = "m:degree" mode = "semantics"/>
-          </m:msup>
-          <m:mrow>
-            <m:mo>d</m:mo>
-            <m:msup>
-              <xsl:apply-templates select = "*[1]" mode = "semantics"/>
-              <xsl:apply-templates select = "m:degree" mode = "semantics"/>
-            </m:msup>
-          </m:mrow>
-        </m:mfrac>
-      </xsl:if>
-      <xsl:if test="not(*[last()]=m:degree)">
-        <m:mfrac>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:partialdiff/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-          <m:mo>d</m:mo>
-          <m:mrow>
-            <m:mo>d</m:mo>
-            <xsl:apply-templates select = "*[1]" mode = "semantics"/>
-          </m:mrow>
-        </m:mfrac>
-      </xsl:if>
-    </xsl:for-each>
-    <xsl:apply-templates select = "*[last()]" mode = "semantics"/>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:lowlimit | m:uplimit | m:bvar | m:degree |
-                                                               m:logbase">
-  <xsl:apply-templates select="*" mode = "semantics"/>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:divergence[1] | m:grad[1] | m:curl[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:mo>
-      <xsl:if test="*[1]=m:divergence">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:divergence/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:value-of select="'div'"/>
-      </xsl:if>
-      <xsl:if test="*[1]=m:grad">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:grad/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:value-of select="'grad'"/>
-      </xsl:if>
-      <xsl:if test="*[1]=m:curl">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:curl/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:value-of select="'curl'"/>
-      </xsl:if>
-    </m:mo>
-    <xsl:choose>
-      <xsl:when test="*[2]=m:ci">
-        <xsl:apply-templates select = "*[2]" mode = "semantics"/>
-      </xsl:when>
-      <xsl:otherwise>
-        <m:mfenced separators="">
-          <xsl:apply-templates select = "*[2]" mode = "semantics"/>
-        </m:mfenced>
-      </xsl:otherwise>
-    </xsl:choose>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:laplacian[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:msup>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:laplacian/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-      <m:mo>&#x00394;</m:mo>
-      <m:mn>2</m:mn>
-    </m:msup>
-    <xsl:apply-templates select = "*[2]" mode = "semantics"/>
-  </m:mrow>
-</xsl:template>
-
-
-<!-- ***************** SET THEORY ***************** -->
-
-<xsl:template match = "m:set | m:list">
-  <m:mfenced open="{{" close="}}" separators="">
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:if test="*[1]=m:bvar and *[2]=m:condition">
-      <xsl:apply-templates select="m:bvar" mode = "semantics"/>
-      <m:mo>|</m:mo>
-      <xsl:apply-templates select="m:condition" mode = "semantics"/>
-    </xsl:if>
-    <xsl:if test="*[1]=m:condition and not(child::m:bvar)">
-      <m:mfenced open="" close="" separators=",">
-        <xsl:for-each select = "*[not(self::m:condition) and not(self::m:bvar)]">
-          <xsl:apply-templates select = "." mode="semantics"/>
-        </xsl:for-each>
-      </m:mfenced>
-      <m:mo>|</m:mo>
-      <xsl:apply-templates select="m:condition" mode = "semantics"/>
-    </xsl:if>
-    <xsl:if test="not(child::m:bvar) and not(child::m:condition)">
-      <m:mfenced open="" close="" separators=",">
-        <xsl:for-each select = "*">
-          <xsl:apply-templates select = "." mode="semantics"/>
-        </xsl:for-each>
-      </m:mfenced>
-    </xsl:if>
-  </m:mfenced>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:union[1]]">
-  <xsl:param name="IN_PREC" select="$NO_PREC"/>
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:choose>
-    <xsl:when test="$IN_PREC &gt; $UNION_PREC or $IN_PREC=$UNION_PREC
-                    and $PARAM=$PAR_SAME">
-      <m:mfenced separators="">
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="union">
-          <xsl:with-param name="PARAM" select="$PARAM"/>
-          <xsl:with-param name="PAREN" select="$PAREN"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mfenced>
-    </xsl:when>
-    <xsl:when test="$IN_PREC &gt; $NO_PREC and $IN_PREC &lt; $FUNCTION_PREC
-                    and not($SEM_SW=$SEM_ALL) and not($SEM_SW=$SEM_XREF)
-                    and not($SEM_SW=$SEM_XREF_EXT)">
-      <xsl:apply-templates select="." mode="union">
-        <xsl:with-param name="PARAM" select="$PARAM"/>
-        <xsl:with-param name="PAREN" select="$PAREN"/>
-        <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-      </xsl:apply-templates>
-    </xsl:when>
-    <xsl:otherwise>
-      <m:mrow>
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="union">
-          <xsl:with-param name="PARAM" select="$PARAM"/>
-          <xsl:with-param name="PAREN" select="$PAREN"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mrow>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:union[1]]" mode="union">
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:apply-templates select = "*[2]" mode="semantics">
-    <xsl:with-param name="IN_PREC" select="$UNION_PREC"/>
-    <xsl:with-param name="PARAM" select="$PARAM"/>
-    <xsl:with-param name="PAREN" select="$PAREN"/>
-    <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-  </xsl:apply-templates>
-  <xsl:for-each select = "*[position()>2]">
-    <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="../m:union/@id"/>
-          </xsl:attribute>
-        </xsl:if>&#x022C3;</m:mo>
-    <xsl:apply-templates select = "." mode="semantics">
-      <xsl:with-param name="IN_PREC" select="$UNION_PREC"/>
-      <xsl:with-param name="PAREN" select="$PAREN"/>
-      <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-    </xsl:apply-templates>
-  </xsl:for-each>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:intersect[1]]">
-  <xsl:param name="IN_PREC" select="$NO_PREC"/>
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:choose>
-    <xsl:when test="$IN_PREC &gt; $INTERSECT_PREC">
-      <m:mfenced separators="">
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="intersect">
-          <xsl:with-param name="PARAM" select="$PARAM"/>
-          <xsl:with-param name="PAREN" select="$PAREN"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mfenced>
-    </xsl:when>
-    <xsl:when test="$IN_PREC &gt; $NO_PREC and $IN_PREC &lt; $FUNCTION_PREC
-                    and not($SEM_SW=$SEM_ALL) and not($SEM_SW=$SEM_XREF)
-                    and not($SEM_SW=$SEM_XREF_EXT)">
-      <xsl:apply-templates select="." mode="intersect">
-        <xsl:with-param name="PARAM" select="$PARAM"/>
-        <xsl:with-param name="PAREN" select="$PAREN"/>
-        <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-      </xsl:apply-templates>
-    </xsl:when>
-    <xsl:otherwise>
-      <m:mrow>
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="intersect">
-          <xsl:with-param name="PARAM" select="$PARAM"/>
-          <xsl:with-param name="PAREN" select="$PAREN"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mrow>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:intersect[1]]" mode="intersect">
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:apply-templates select = "*[2]" mode="semantics">
-    <xsl:with-param name="IN_PREC" select="$INTERSECT_PREC"/>
-    <xsl:with-param name="PARAM" select="$PARAM"/>
-    <xsl:with-param name="PAREN" select="$PAREN"/>
-    <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-  </xsl:apply-templates>
-  <xsl:for-each select = "*[position()>2]">
-    <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="../m:intersect/@id"/>
-          </xsl:attribute>
-        </xsl:if>&#x022C2;</m:mo>
-    <xsl:apply-templates select = "." mode="semantics">
-      <xsl:with-param name="IN_PREC" select="$INTERSECT_PREC"/>
-      <xsl:with-param name="PAREN" select="$PAREN"/>
-      <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-    </xsl:apply-templates>
-  </xsl:for-each>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:setdiff[1]]">
-  <xsl:param name="IN_PREC" select="$NO_PREC"/>
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:choose>
-    <xsl:when test="$IN_PREC &gt; $SETDIFF_PREC or $IN_PREC=$SETDIFF_PREC
-                    and $PARAM=$PAR_SAME">
-      <m:mfenced separators="">
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="setdiff">
-          <xsl:with-param name="PARAM" select="$PARAM"/>
-          <xsl:with-param name="PAREN" select="$PAREN"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mfenced>
-    </xsl:when>
-    <xsl:when test="$IN_PREC &gt; $NO_PREC and $IN_PREC &lt; $FUNCTION_PREC
-                    and not($SEM_SW=$SEM_ALL) and not($SEM_SW=$SEM_XREF)
-                    and not($SEM_SW=$SEM_XREF_EXT)">
-      <xsl:apply-templates select="." mode="setdiff">
-        <xsl:with-param name="PARAM" select="$PARAM"/>
-        <xsl:with-param name="PAREN" select="$PAREN"/>
-        <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-      </xsl:apply-templates>
-    </xsl:when>
-    <xsl:otherwise>
-      <m:mrow>
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="." mode="setdiff">
-          <xsl:with-param name="PARAM" select="$PARAM"/>
-          <xsl:with-param name="PAREN" select="$PAREN"/>
-          <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-        </xsl:apply-templates>
-      </m:mrow>
-    </xsl:otherwise>
-  </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:setdiff[1]]" mode="setdiff">
-  <xsl:param name="PARAM" select="$NO_PARAM"/>
-  <xsl:param name="PAREN" select="$PAR_NO"/>
-  <xsl:param name="PAR_NO_IGNORE" select="$YES"/>
-  <xsl:apply-templates select = "*[2]" mode = "semantics">
-    <xsl:with-param name="IN_PREC" select="$SETDIFF_PREC"/>
-    <xsl:with-param name="PARAM" select="$PARAM"/>
-    <xsl:with-param name="PAREN" select="$PAREN"/>
-    <xsl:with-param name="PAR_NO_IGNORE" select="$PAR_NO_IGNORE"/>
-  </xsl:apply-templates>
-  <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:setdiff/@id"/>
-          </xsl:attribute>
-        </xsl:if>\</m:mo>
-  <xsl:apply-templates select = "*[3]" mode = "semantics">
-    <xsl:with-param name="IN_PREC" select="$SETDIFF_PREC"/>
-    <xsl:with-param name="PARAM" select="$PAR_SAME"/>
-    <xsl:with-param name="PAREN" select="$PAREN"/>
-    <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-  </xsl:apply-templates>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:card[1]]">
-  <m:mfenced open="|" close="|" separators=",">
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:for-each select = "*[position()>1]">
-      <xsl:apply-templates select = "." mode="semantics"/>
-    </xsl:for-each>
-  </m:mfenced>
-</xsl:template>
-
-
-<!-- ***************** SEQUENCES AND SERIES ***************** -->
-
-<xsl:template match = "m:apply[m:sum[1] | m:product[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:choose>
-      <xsl:when test="*[2]=m:bvar and m:lowlimit and m:uplimit">
-        <m:munderover>
-          <m:mo>
-            <xsl:if test="*[1]=m:sum">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:sum/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x02211;
-            </xsl:if>
-            <xsl:if test="*[1]=m:product">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:product/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x0220F;
-            </xsl:if>
-          </m:mo>
-          <m:mrow>
-            <xsl:apply-templates select = "*[2]" mode = "semantics"/>
-            <m:mo>=</m:mo>
-            <xsl:apply-templates select = "m:lowlimit" mode = "semantics"/>
-          </m:mrow>
-          <xsl:apply-templates select = "m:uplimit" mode = "semantics"/>
-        </m:munderover>
-        <xsl:apply-templates select = "*[5]" mode = "semantics"/>
-      </xsl:when>
-      <xsl:when test="*[2]=m:bvar and *[3]=m:condition">
-        <m:munder>
-          <m:mo>
-            <xsl:if test="*[1]=m:sum">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:sum/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x02211;
-            </xsl:if>
-            <xsl:if test="*[1]=m:product">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:product/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x0220F;
-            </xsl:if>
-          </m:mo>
-          <xsl:apply-templates select = "*[3]" mode = "semantics"/>
-        </m:munder>
-        <xsl:apply-templates select = "*[4]" mode = "semantics"/>
-      </xsl:when>
-    </xsl:choose>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:limit[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:munder>
-      <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:lim/@id"/>
-          </xsl:attribute>
-        </xsl:if>lim</m:mo>
-      <m:mrow>
-        <xsl:if test="*[2]=m:bvar and *[3]=m:lowlimit">
-            <xsl:apply-templates select = "*[2]" mode = "semantics"/>
-            <m:mo>&#x02192;</m:mo>
-            <xsl:apply-templates select = "*[3]" mode = "semantics"/>
-        </xsl:if>
-        <xsl:if test="*[2]=m:bvar and *[3]=m:condition">
-          <xsl:apply-templates select = "*[3]" mode = "semantics"/>
-        </xsl:if>
-      </m:mrow>
-    </m:munder>
-    <xsl:apply-templates select = "*[4]" mode = "semantics"/>
-  </m:mrow>
-</xsl:template>
-
-
-<!-- ***************** TRIGONOMETRY ***************** -->
-
-<xsl:template match = "m:apply[*[1][self::m:sin | self::m:cos |
-                       self::m:tan | self::m:sec | self::m:csc |
-                       self::m:cot | self::m:sinh | self::m:cosh |
-                       self::m:tanh | self::m:sech | self::m:csch |
-                       self::m:coth | self::m:arcsin | self::m:arccos |
-                       self::m:arctan]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:if test="not(parent::m:apply[m:power[1]])">
-      <xsl:apply-templates select = "*[1]" mode = "trigonometry"/>
-    </xsl:if>
-    <xsl:if test="parent::m:apply[m:power[1]]">
-      <m:msup>
-        <xsl:apply-templates select = "*[1]" mode = "trigonometry"/>
-        <xsl:apply-templates select = "../*[3]" mode = "semantics"/>
-      </m:msup>
-    </xsl:if>
-    <m:mo>&#x02061;</m:mo>
-    <xsl:apply-templates select = "*[2]" mode = "semantics">
-      <xsl:with-param name="IN_PREC" select="$FUNCTION_PREC"/>
-      <xsl:with-param name="PAR_NO_IGNORE" select="$NO"/>
-    </xsl:apply-templates>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "*" mode="trigonometry">
-  <m:mo>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:choose>
-      <xsl:when test="self::m:sin">
-        <xsl:value-of select="'sin'"/>
-      </xsl:when>
-      <xsl:when test="self::m:cos">
-        <xsl:value-of select="'cos'"/>
-      </xsl:when>
-      <xsl:when test="self::m:tan">
-        <xsl:value-of select="'tan'"/>
-      </xsl:when>
-      <xsl:when test="self::m:sec">
-        <xsl:value-of select="'sec'"/>
-      </xsl:when>
-      <xsl:when test="self::m:csc">
-        <xsl:value-of select="'csc'"/>
-      </xsl:when>
-      <xsl:when test="self::m:cot">
-        <xsl:value-of select="'cot'"/>
-      </xsl:when>
-      <xsl:when test="self::m:sinh">
-        <xsl:value-of select="'sinh'"/>
-      </xsl:when>
-      <xsl:when test="self::m:cosh">
-        <xsl:value-of select="'cosh'"/>
-      </xsl:when>
-      <xsl:when test="self::m:tanh">
-        <xsl:value-of select="'tanh'"/>
-      </xsl:when>
-      <xsl:when test="self::m:sech">
-        <xsl:value-of select="'sech'"/>
-      </xsl:when>
-      <xsl:when test="self::m:csch">
-        <xsl:value-of select="'csch'"/>
-      </xsl:when>
-      <xsl:when test="self::m:coth">
-        <xsl:value-of select="'coth'"/>
-      </xsl:when>
-      <xsl:when test="self::m:arcsin">
-        <xsl:value-of select="'arcsin'"/>
-      </xsl:when>
-      <xsl:when test="self::m:arccos">
-        <xsl:value-of select="'arccos'"/>
-      </xsl:when>
-      <xsl:when test="self::m:arctan">
-        <xsl:value-of select="'arctan'"/>
-      </xsl:when>
-    </xsl:choose>
-  </m:mo>
-</xsl:template>
-
-
-<!-- ***************** STATISTICS ***************** -->
-
-<xsl:template match = "m:apply[m:mean[1]]">
-  <m:mfenced open="&lt;" close="&gt;" separators=",">
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:for-each select = "*[position()>1]">
-      <xsl:apply-templates select = "." mode="semantics"/>
-    </xsl:for-each>
-  </m:mfenced>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:sdev[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:sdev/@id"/>
-          </xsl:attribute>
-        </xsl:if>&#x003C3;</m:mo>
-    <m:mfenced separators=",">
-      <xsl:for-each select = "*[position()>1]">
-        <xsl:apply-templates select = "." mode="semantics"/>
-      </xsl:for-each>
-    </m:mfenced>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:variance[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:variance/@id"/>
-          </xsl:attribute>
-        </xsl:if>&#x003C3;</m:mo>
-    <m:msup>
-      <m:mfenced separators=",">
-        <xsl:for-each select = "*[position()>1]">
-          <xsl:apply-templates select = "." mode="semantics"/>
-        </xsl:for-each>
-      </m:mfenced>
-      <m:mn>2</m:mn>
-    </m:msup>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:median[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:median/@id"/>
-          </xsl:attribute>
-        </xsl:if>median</m:mo>
-    <m:mfenced separators=",">
-      <xsl:for-each select = "*[position()>1]">
-        <xsl:apply-templates select = "." mode="semantics"/>
-      </xsl:for-each>
-    </m:mfenced>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:mode[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:mode/@id"/>
-          </xsl:attribute>
-        </xsl:if>mode</m:mo>
-    <m:mfenced separators=",">
-      <xsl:for-each select = "*[position()>1]">
-        <xsl:apply-templates select = "." mode="semantics"/>
-      </xsl:for-each>
-    </m:mfenced>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:moment[1]]">
-  <m:mfenced open="&lt;" close="&gt;" separators="">
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:if test="*[2]=m:degree">
-      <m:msup>
-        <xsl:apply-templates select="*[3]" mode = "semantics"/>
-        <xsl:apply-templates select="*[2]" mode = "semantics"/>
-      </m:msup>
-    </xsl:if>
-    <xsl:if test="not(*[2]=m:degree)">
-      <xsl:for-each select = "*[position()>1]">
-        <xsl:apply-templates select = "." mode="semantics"/>
-      </xsl:for-each>
-    </xsl:if>
-  </m:mfenced>
-</xsl:template>
-
-
-<!-- ***************** LINEAR ALGEBRA ***************** -->
-
-<xsl:template match="m:vector">
-  <m:mfenced separators="">
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:mtable>
-      <xsl:for-each select="*">
-        <m:mtd>
-          <xsl:apply-templates select="." mode = "semantics"/>
-        </m:mtd>
-      </xsl:for-each>
-    </m:mtable>
-  </m:mfenced>
-</xsl:template>
-
-<xsl:template match = "m:matrix">
-  <m:mfenced separators="">
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:mtable>
-      <xsl:apply-templates select="*" mode = "semantics"/>
-    </m:mtable>
-  </m:mfenced>
-</xsl:template>
-
-<xsl:template match = "m:matrixrow">
-  <m:mtr>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:for-each select="*">
-      <m:mtd>
-        <xsl:apply-templates select="." mode = "semantics"/>
-      </m:mtd>
-    </xsl:for-each>
-  </m:mtr>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:determinant[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:determinant/@id"/>
-          </xsl:attribute>
-        </xsl:if>det</m:mo>
-    <xsl:apply-templates select = "*[2]" mode = "semantics"/>
-  </m:mrow>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:transpose[1]]">
-  <m:msup>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:apply-templates select = "*[2]" mode = "semantics"/>
-    <m:mo>
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:transpose/@id"/>
-          </xsl:attribute>
-        </xsl:if>T</m:mo>
-  </m:msup>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:selector[1]]">
-  <xsl:if test="*[2]=m:matrix and *[3]=m:cn">
-      <xsl:variable name="m" select = "*[3]"/>
-      <xsl:choose>
-        <xsl:when test="*[4]=m:cn">
-          <xsl:variable name="n" select = "*[4]"/>
-          <xsl:copy-of select = "m:matrix/*[position()=$m]/*[position()=$n]"/>
-        </xsl:when>
-        <xsl:otherwise>
-          <xsl:copy-of select = "m:matrix/*[position()=$m]"/>
-        </xsl:otherwise>
-      </xsl:choose>
-  </xsl:if>
-  <xsl:if test="(*[2]=m:vector or *[2]=m:list) and *[3]=m:cn">
-    <xsl:variable name="m" select = "*[3]"/>
-    <xsl:copy-of select = "*[2]/*[position()=$m]"/>
-  </xsl:if>
-</xsl:template>
-
-<xsl:template match = "m:apply[m:vectorproduct[1] |
-                                 m:scalarproduct[1] | m:outerproduct[1]]">
-  <m:mrow>
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-    <xsl:apply-templates select="*[2]" mode = "semantics"/>
-    <m:mo>
-      <xsl:if test="m:vectorproduct[1]">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="m:vectorproduct/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        &#x02A2F;
-      </xsl:if>
-      <xsl:if test="m:scalarproduct[1] | m:outerproduct[1]">
-<!-- HELM: added -->        
-        <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-          <xsl:attribute name="m:xref">
-            <xsl:value-of select="*[1]/@id"/>
-          </xsl:attribute>
-        </xsl:if>
-        <xsl:value-of select="'.'"/>
-      </xsl:if>
-    </m:mo>
-    <xsl:apply-templates select="*[3]" mode = "semantics"/>
-  </m:mrow>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/mmlextension.xsl b/helm/style/mmlextension.xsl
deleted file mode 100644 (file)
index 6dce30b..0000000
--- a/helm/style/mmlextension.xsl
+++ /dev/null
@@ -1,2131 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--***********************************************************************--> 
-<!-- Extension to the XSLT version 0.07 of MathML content to presentation: -->
-<!-- First draft: February 19 2000, Andrea Asperti, Irene Schena           -->
-<!-- Revised: March 3 2000, Irene Schena                                   -->
-<!-- Revised: March 15 2000, Claudio Sacerdoti Coen, Irene Schena          -->
-<!-- Revised: March 21 2000, Irene Schena                                  -->
-<!--***********************************************************************--> 
-
-<!-- NOTE: the namespace declaration has to be done in the stylesheets 
-which generates the toplevel element (see for instance xlink) -->
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm"
-                              xmlns:xlink="http://www.w3.org/1999/xlink">
-
-<!-- OLD: <xsl:import href="mml2mmlv1_0.xsl"/> -->
-<xsl:import href="mmlctop.xsl-0.14"/>
-
-<xsl:import href="mmltheoryextension.xsl"/>
-
-<xsl:param name="explodeall" select="false()"/>
-
-<!--***********************************************************************-->
-<!-- Parameter affecting line-breaking                                     -->
-<!--***********************************************************************-->
-
-<xsl:variable name="framewidth" select="35"/>
-
-<!--***********************************************************************-->
-<!-- Gli oggetti sono stampati come mtext all'interno di una marca toplevel-->
-<!-- math ma al di fuori di semantics. Ora vi sono tanti semantics quanti  -->
-<!-- sono i termini: la presentation per un termine e' generata come primo -->
-<!-- figlio di un semantics e l'originario content viene inserito nel      -->
-<!-- nel secondo figlio di semantics, annotation-xml                       -->
-<!--***********************************************************************-->
-
-<!--**********************-->
-<!--        OBJECTS       -->
-<!--**********************-->
-
-<xsl:param name="type" select="'standalone'"/>
-
-<xsl:template match="/">
- <xsl:choose>
-  <xsl:when test="$type = 'standalone'">
-   <xsl:apply-templates select="*"/>
-  </xsl:when>
-  <xsl:otherwise>
-   <to_be_embedded>
-    <xsl:apply-templates select="*"/>
-   </to_be_embedded>
-  </xsl:otherwise> 
- </xsl:choose>
-</xsl:template>
-
-<!-- DEFINITION -->
-
-<xsl:template match="Definition">
-    <m:math>
-     <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mtext>DEFINITION <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != &quot;&quot;"><xsl:value-of select="Params"/></xsl:if>) OF TYPE</m:mtext>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
-         <xsl:apply-templates select="type/*[1]"/>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mtext>AS</m:mtext>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
-         <xsl:apply-templates select="body/*[1]"/>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-     </m:mtable>
-    </m:math>
-</xsl:template>
-
-<!-- AXIOM -->
-
-<xsl:template match="Axiom">
-    <m:math>
-     <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mtext>AXIOM <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != &quot;&quot;"><xsl:value-of select="Params"/></xsl:if>) OF TYPE</m:mtext>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
-         <xsl:apply-templates select="type/*[1]"/>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-     </m:mtable>
-    </m:math>
-</xsl:template>
-
-<!-- UNFINISHED PROOF -->
-
-<xsl:template match="CurrentProof">
-    <m:math>
-     <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mtext>UNFINISHED PROOF <xsl:value-of select="@name"/>(<xsl:if test="string(./Params) != &quot;&quot;"><xsl:value-of select="Params"/></xsl:if>)</m:mtext>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mtext>THESIS:</m:mtext>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
-         <xsl:apply-templates select="type/*[1]"/>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mtext>CONJECTURES:</m:mtext>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <xsl:for-each select="Conjecture">
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
-         <m:mtext><xsl:value-of select="./@no"/>:</m:mtext>
-         <xsl:apply-templates select="./*[1]"/>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      </xsl:for-each>
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mtext>CORRESPONDING PROOF:</m:mtext>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
-         <xsl:apply-templates select="body/*[1]"/>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-     </m:mtable>
-    </m:math>
-</xsl:template>
-
-<!-- MUTUAL INDUCTIVE DEFINITION -->
-
-<xsl:template match="InductiveDefinition">
-    <m:math>
-     <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
-     <xsl:for-each select="InductiveType">
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <xsl:choose>
-         <xsl:when test="position() = 1">
-          <xsl:choose>
-          <xsl:when test="string(./@inductive) = &quot;true&quot;">
-           <m:mtext>INDUCTIVE DEFINITION</m:mtext>
-          </xsl:when>
-          <xsl:otherwise>
-           <m:mtext>COINDUCTIVE DEFINITION</m:mtext>
-          </xsl:otherwise>
-          </xsl:choose>  
-         </xsl:when>
-         <xsl:otherwise>
-          <m:mtext>AND</m:mtext>
-         </xsl:otherwise>
-         </xsl:choose>
-         <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-         <m:mtext><xsl:value-of select="./@name"/>(<xsl:if test="string(../Params) != &quot;&quot;"><xsl:value-of select="../Params"/></xsl:if>)</m:mtext>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <m:mtr>
-       <m:mtd>
-        <m:mrow> 
-         <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
-         <m:mtext>[</m:mtext>
-         <xsl:choose>
-         <xsl:when test="string(../Param) != &quot;&quot;">         
-          <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-           <xsl:for-each select="../Param">
-            <m:mtr>
-             <m:mtd>
-              <m:mrow>   
-               <m:mi><xsl:value-of select="./@name"/></m:mi>
-               <m:mo>:</m:mo>
-               <xsl:apply-templates select="*"/>
-              </m:mrow>
-             </m:mtd>
-            </m:mtr>
-           </xsl:for-each>
-            <m:mtr>
-             <m:mtd>
-              <m:mrow>
-               <m:mtext>]</m:mtext>
-              </m:mrow>
-             </m:mtd>
-            </m:mtr>
-          </m:mtable>
-         </xsl:when>
-         <xsl:otherwise>
-          <m:mtext>]</m:mtext>
-         </xsl:otherwise>
-         </xsl:choose>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mtext>OF ARITY</m:mtext>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
-         <xsl:apply-templates select="./arity/*[1]"/>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mtext>BUILT FROM</m:mtext>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <xsl:for-each select="./Constructor">
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <xsl:choose>
-         <xsl:when test="position() = 1">
-          <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
-         </xsl:when>
-         <xsl:otherwise>
-          <m:mtext>|</m:mtext>
-          <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-         </xsl:otherwise>
-         </xsl:choose>
-         <m:mtext><xsl:value-of select="./@name"/> OF</m:mtext>
-         <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-         <xsl:apply-templates select="./*[1]"/>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      </xsl:for-each>
-     </xsl:for-each>
-     </m:mtable>
-    </m:math>
-</xsl:template>
-
-<!-- VARIABLE -->
-
-<xsl:template match="Variable">
-    <m:math>
-     <m:mtable align="baseline 1" equalrows="false" columnalign="left" helm:xref="{@helm:xref}">
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mtext>VARIABLE <xsl:value-of select="@name"/> OF TYPE</m:mtext>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
-         <xsl:apply-templates select="type/*[1]"/>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <xsl:if test="name(*[1])='body'">
-       <m:mtr>
-        <m:mtd>
-         <m:mrow>
-          <m:mtext>AS</m:mtext>
-         </m:mrow>
-        </m:mtd>
-       </m:mtr>
-       <m:mtr>
-        <m:mtd>
-         <m:mrow>
-          <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
-          <xsl:apply-templates select="body/*[1]"/>
-         </m:mrow>
-        </m:mtd>
-       </m:mtr>
-      </xsl:if>
-     </m:mtable>
-    </m:math>
-</xsl:template>
-
-<!--**********************-->
-<!--        TERMS         -->
-<!--**********************-->
-
-<xsl:template match="m:bvar">
- <xsl:choose>
-  <xsl:when test="m:type">
-   <xsl:variable name="charlength">
-    <xsl:apply-templates select="m:ci" mode="charcount"/>
-   </xsl:variable>
-   <xsl:choose>
-    <xsl:when test="$charlength >= $framewidth">
-     <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <xsl:apply-templates select="m:ci"/>
-         <m:mo>:</m:mo>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-      <m:mtr>
-       <m:mtd>
-        <m:mrow>
-         <xsl:apply-templates select="m:type"/>
-        </m:mrow>
-       </m:mtd>
-      </m:mtr>
-     </m:mtable>
-    </xsl:when>
-    <xsl:otherwise>
-     <m:mrow>
-      <xsl:apply-templates select="m:ci"/>
-      <m:mo>:</m:mo>
-      <xsl:apply-templates select="m:type"/>
-     </m:mrow>
-    </xsl:otherwise>
-   </xsl:choose>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:apply-templates select="m:ci"/>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-
-<!-- CSYMBOL -->
-
-<xsl:template match="m:apply[m:csymbol]">
-<xsl:param name="nopar" select="0"/>
-    <xsl:variable name="name"><xsl:value-of select="m:csymbol"/></xsl:variable>
-    <xsl:variable name="charlength"><xsl:apply-templates select="m:csymbol" mode="charcount"/></xsl:variable>
-    <m:mrow>
-     <xsl:if test="@id">
-      <xsl:attribute name="m:xref"><xsl:value-of select="@id"/></xsl:attribute>
-     </xsl:if>
-     <xsl:variable name="id" select="m:csymbol/@id"/>
-     <xsl:choose>
-      <!-- FORALL -->
-      <xsl:when test="$name='forall'">
-       <xsl:choose>
-       <xsl:when test="$charlength >= $framewidth">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo mathcolor="Blue">&#8704;</m:mo>
-            <xsl:apply-templates select="m:bvar"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo>.</m:mo>
-            <xsl:apply-templates select="*[position()=3]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        </m:mtable>
-       </xsl:when>
-       <xsl:otherwise>
-        <m:mo mathcolor="Blue">&#8704;</m:mo>
-        <xsl:apply-templates select="m:bvar/m:ci"/>
-        <m:mo>:</m:mo>
-        <xsl:apply-templates select="m:bvar/m:type"/>
-        <m:mo>.</m:mo>
-        <xsl:apply-templates select="*[position()=3]"/>
-       </xsl:otherwise>
-       </xsl:choose> 
-      </xsl:when>
-      <!-- LET-IN -->
-      <xsl:when test="$name='let_in'">
-       <xsl:choose>
-       <xsl:when test="$charlength >= $framewidth">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo>LET</m:mo>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="m:bvar"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo>=</m:mo>
-            <xsl:apply-templates select="*[position()=3]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo>IN</m:mo>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="*[position()=4]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        </m:mtable>
-       </xsl:when>
-       <xsl:otherwise>
-        <m:mo>LET</m:mo>
-        <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-        <xsl:apply-templates select="m:bvar/m:ci"/>
-        <m:mo>=</m:mo>
-        <xsl:apply-templates select="*[position()=3]"/>
-        <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-        <m:mtext>IN</m:mtext>
-        <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-        <xsl:apply-templates select="*[position()=4]"/>
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when> 
-      <!-- PROD -->
-      <xsl:when test="$name='prod'">
-       <xsl:choose>
-       <xsl:when test="$charlength >= $framewidth">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo mathcolor="Blue">&#x03a0;</m:mo>
-            <xsl:apply-templates select="m:bvar"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo>.</m:mo>
-            <xsl:apply-templates select="*[position()=3]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        </m:mtable>
-       </xsl:when>
-       <xsl:otherwise>
-        <m:mo mathcolor="Blue">&#x03a0;</m:mo>
-        <xsl:apply-templates select="m:bvar/m:ci"/>
-        <m:mo>:</m:mo>
-        <xsl:apply-templates select="m:bvar/m:type"/>
-        <m:mo>.</m:mo>
-        <xsl:apply-templates select="*[position()=3]"/>
-       </xsl:otherwise>
-       </xsl:choose> 
-      </xsl:when>
-      <!-- ARROW -->
-      <xsl:when test="$name='arrow'">
-       <xsl:choose>
-       <xsl:when test="$charlength >= $framewidth">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:if test="$nopar=0">
-             <m:mo stretchy="false">(</m:mo>
-            </xsl:if>
-            <xsl:apply-templates select="*[position()=2]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo mathmathcolor="Blue">&#x2192;</m:mo>
-            <xsl:choose>
-            <xsl:when test="*[position()=3]/m:csymbol">
-             <xsl:variable name="nextp"><xsl:value-of select="*[position()=3]/m:csymbol"/></xsl:variable>
-             <xsl:choose>
-             <xsl:when test="$nextp='arrow'">
-              <xsl:apply-templates select="*[position()=3]"><xsl:with-param name="nopar" select="1"/></xsl:apply-templates>
-             </xsl:when>
-             <xsl:otherwise>
-              <xsl:apply-templates select="*[position()=3]"/>
-             </xsl:otherwise>
-             </xsl:choose>
-            </xsl:when>
-            <xsl:otherwise>
-             <xsl:apply-templates select="*[position()=3]"/>
-            </xsl:otherwise>
-            </xsl:choose>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <xsl:if test="$nopar=0">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo stretchy="false">)</m:mo>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         </xsl:if>
-        </m:mtable>
-       </xsl:when>
-       <xsl:otherwise>
-        <xsl:if test="$nopar=0">
-         <m:mo stretchy="false">(</m:mo>
-        </xsl:if>
-        <xsl:apply-templates select="*[position()=2]"/>
-        <m:mo mathcolor="Blue">&#x2192;</m:mo>
-        <xsl:choose>
-        <xsl:when test="*[position()=3]/m:csymbol">
-         <xsl:variable name="nextp"><xsl:value-of select="*[position()=3]/m:csymbol"/></xsl:variable>
-         <xsl:choose>
-         <xsl:when test="$nextp='arrow'">
-          <xsl:apply-templates select="*[position()=3]"><xsl:with-param name="nopar" select="1"/></xsl:apply-templates>
-         </xsl:when>
-         <xsl:otherwise>
-          <xsl:apply-templates select="*[position()=3]"/>
-         </xsl:otherwise>
-         </xsl:choose>
-        </xsl:when>
-        <xsl:otherwise>
-         <xsl:apply-templates select="*[position()=3]"/>
-        </xsl:otherwise>
-        </xsl:choose>
-        <xsl:if test="$nopar=0">
-         <m:mo stretchy="false">)</m:mo>
-        </xsl:if>
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <!-- APP -->
-      <xsl:when test="$name='app'">
-       <xsl:choose>
-       <xsl:when test="$charlength >= $framewidth">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo stretchy="false">(</m:mo>
-            <xsl:apply-templates select="*[position()=2]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <xsl:for-each select="*[position()>2]">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mphantom><m:mtext>(</m:mtext></m:mphantom>
-            <xsl:apply-templates select="."/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         </xsl:for-each>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo stretchy="false">)</m:mo>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        </m:mtable>
-       </xsl:when>
-       <xsl:otherwise>
-        <m:mo stretchy="false">(</m:mo>
-        <xsl:apply-templates select="*[position()=2]"/>
-        <xsl:for-each select="*[position()>2]">
-         <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-         <xsl:apply-templates select="."/>
-        </xsl:for-each>
-        <m:mo stretchy="false">)</m:mo>
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <!-- CAST -->
-      <xsl:when test="$name='cast'">
-       <xsl:choose>
-       <xsl:when test="$charlength >= $framewidth">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo stretchy="false">(</m:mo>
-            <xsl:apply-templates select="*[position()=2]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo mathcolor="Maroon">:></m:mo>
-            <xsl:apply-templates select="*[position()=3]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo stretchy="false">)</m:mo>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        </m:mtable>
-       </xsl:when>
-       <xsl:otherwise>
-        <m:mo stretchy="false">(</m:mo>
-        <xsl:apply-templates select="*[position()=2]"/>
-        <m:mo mathcolor="Maroon">:></m:mo>
-        <xsl:apply-templates select="*[position()=3]"/>
-        <m:mo stretchy="false">)</m:mo>
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <!-- PROP -->
-      <xsl:when test="$name='Prop'">
-       <m:mo>Prop</m:mo>
-      </xsl:when>
-      <!-- SET -->
-      <xsl:when test="$name='Set'">
-       <m:mo>Set</m:mo>
-      </xsl:when>
-      <!-- TYPE -->
-      <xsl:when test="$name='Type'">
-       <m:mo>Type</m:mo>
-      </xsl:when>
-      <!-- MUTCASE -->
-      <xsl:when test="$name='mutcase'">
-       <xsl:choose>
-       <xsl:when test="$charlength >= $framewidth">
-        <xsl:variable name="charlength"><xsl:apply-templates select="*[position()=2]" mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo>&lt;</m:mo>
-            <xsl:apply-templates select="*[position()=2]"/>
-            <xsl:if test="$framewidth > $charlength">
-             <m:mo>&gt;</m:mo>
-             <m:mo>CASES</m:mo>
-             <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-             <xsl:apply-templates select="*[position()=3]"/>
-            </xsl:if>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <xsl:if test="$charlength >= $framewidth">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo>&gt;</m:mo>
-            <m:mo>CASES</m:mo>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="*[position()=3]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         </xsl:if>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo>OF</m:mo>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <xsl:for-each select="piecewise/piece">
-         <xsl:variable name="charlength"><xsl:apply-templates select="./*[2]" mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:choose>
-            <xsl:when test="position() = 1">
-              <m:mphantom><m:mtext>|</m:mtext></m:mphantom>
-            </xsl:when>
-            <xsl:otherwise>
-             <m:mo stretchy="false">|</m:mo>
-            </xsl:otherwise>
-            </xsl:choose>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="./*[2]"/>
-            <xsl:if test="$framewidth > $charlength">
-             <m:mo mathcolor="Green">&#x21d2;</m:mo>
-             <xsl:apply-templates select="./*[1]"/>
-            </xsl:if>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <xsl:if test="$charlength >= $framewidth">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mphantom><m:mtext>|_</m:mtext></m:mphantom>  
-            <m:mo mathcolor="Green">&#x21d2;</m:mo>
-            <xsl:apply-templates select="./*[1]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         </xsl:if>
-        </xsl:for-each>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo>END</m:mo>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        </m:mtable>
-       </xsl:when>
-       <xsl:otherwise>
-        <m:mo>&lt;</m:mo><xsl:apply-templates select="*[position()=2]"/><m:mo>&gt;</m:mo>
-        <m:mo>CASES</m:mo>
-        <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-        <xsl:apply-templates select="*[position()=3]"/>
-        <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-        <m:mo>OF</m:mo>
-        <xsl:for-each select="piecewise/piece">
-         <xsl:choose>
-         <xsl:when test="position() != 1">
-          <m:mo stretchy="false">|</m:mo>
-         </xsl:when> 
-         </xsl:choose>
-         <xsl:apply-templates select="./*[2]"/>
-         <m:mo mathcolor="Green">&#x21d2;</m:mo>
-         <xsl:apply-templates select="./*[1]"/>
-        </xsl:for-each>
-        <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-        <m:mo>END</m:mo>
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <!-- FIX -->
-      <xsl:when test="$name='fix'">
-       <xsl:choose>
-       <xsl:when test="$charlength >= $framewidth">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo>FIX</m:mo>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <m:mi><xsl:value-of select="m:ci"/></m:mi>
-            <m:mo stretchy="false">{</m:mo>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
-            <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-            <xsl:for-each select="m:bvar"> 
-             <xsl:variable name="charlength"><xsl:apply-templates select="m:type" mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable>
-             <m:mtr>
-              <m:mtd>
-               <m:mrow>
-                <m:mi><xsl:value-of select="m:ci"/></m:mi>
-                <m:mo>:</m:mo>
-                <xsl:if test="$framewidth > $charlength">
-                 <xsl:apply-templates select="m:type"/>
-                </xsl:if>
-               </m:mrow>
-              </m:mtd>
-             </m:mtr> 
-             <xsl:if test="$charlength >= $framewidth">
-             <m:mtr>
-              <m:mtd>
-               <m:mrow>
-                <m:mphantom><m:mtext>:=</m:mtext></m:mphantom>
-                <xsl:apply-templates select="m:type"/>
-               </m:mrow>
-              </m:mtd>
-             </m:mtr>
-             </xsl:if>
-             <m:mtr>
-              <m:mtd>
-               <m:mrow>
-                <m:mo>:=</m:mo>
-                <xsl:apply-templates select="following-sibling::*[position()=1]"/>
-               </m:mrow>
-              </m:mtd>
-             </m:mtr> 
-            </xsl:for-each>
-            </m:mtable>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo stretchy="false">}</m:mo>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        </m:mtable>
-       </xsl:when>
-       <xsl:otherwise>
-        <m:mo>FIX</m:mo>
-        <m:mi><xsl:value-of select="m:ci"/></m:mi>
-        <m:mo stretchy="false">{</m:mo>
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-        <xsl:for-each select="m:bvar"> 
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mi><xsl:value-of select="m:ci"/></m:mi>
-            <m:mo>:</m:mo>
-            <xsl:apply-templates select="m:type"/>
-            <m:mo>:=</m:mo>
-            <xsl:apply-templates select="following-sibling::*[position() = 1]"/>
-            <xsl:if test="position()=last()">
-             <m:mo stretchy="false">}</m:mo>
-            </xsl:if>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         </xsl:for-each>
-        </m:mtable>
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <!-- COFIX -->
-      <xsl:when test="$name='cofix'">
-       <xsl:choose>
-       <xsl:when test="$charlength >= $framewidth">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo>COFIX</m:mo>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <m:mi><xsl:value-of select="m:ci"/></m:mi>
-            <m:mo stretchy="false">{</m:mo>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
-            <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-            <xsl:for-each select="m:bvar">
-             <xsl:variable name="charlength"><xsl:apply-templates select="m:type" mode="charcount"><xsl:with-param name="nosibling" select="1"/></xsl:apply-templates></xsl:variable> 
-             <m:mtr>
-              <m:mtd>
-               <m:mrow>
-                <m:mi><xsl:value-of select="m:ci"/></m:mi>
-                <m:mo>:</m:mo>
-                <xsl:if test="$framewidth > $charlength">
-                 <xsl:apply-templates select="m:type"/>
-                </xsl:if>
-               </m:mrow>
-              </m:mtd>
-             </m:mtr> 
-             <xsl:if test="$charlength >= $framewidth">
-             <m:mtr>
-              <m:mtd>
-               <m:mrow>
-                <m:mphantom><m:mtext>:=</m:mtext></m:mphantom>
-                <xsl:apply-templates select="m:type"/>
-               </m:mrow>
-              </m:mtd>
-             </m:mtr>
-             </xsl:if>
-             <m:mtr>
-              <m:mtd>
-               <m:mrow>
-                <m:mo>:=</m:mo>
-                <xsl:apply-templates select="following-sibling::*[position() = 1]"/>
-               </m:mrow>
-              </m:mtd>
-             </m:mtr>
-            </xsl:for-each>
-            </m:mtable>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo stretchy="false">}</m:mo>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        </m:mtable>
-       </xsl:when>
-       <xsl:otherwise>
-        <m:mo>COFIX</m:mo>
-        <m:mi><xsl:value-of select="m:ci"/></m:mi>
-        <m:mo stretchy="false">{</m:mo>
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">  
-        <xsl:for-each select="m:bvar"> 
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mi><xsl:value-of select="m:ci"/></m:mi>
-            <m:mo>:</m:mo>
-            <xsl:apply-templates select="m:type"/>
-            <m:mo>:=</m:mo>
-            <xsl:apply-templates select="following-sibling::*[position() = 1]"/>
-            <xsl:if test="position()=last()">
-             <m:mo stretchy="false">}</m:mo>
-            </xsl:if>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         </xsl:for-each>
-        </m:mtable>
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <!-- ***************************************** -->
-      <!-- *********** PROOF ELEMENTS ************** -->
-      <!-- ***************************************** -->
-      <!-- PROOF -->
-      <xsl:when test="$name='proof'">
-        <!-- CSC: $explodeall until the annotationHelper can handle mactions -->
-        <xsl:variable name="test" select="(not($explodeall)) and
-          (not(preceding-sibling::*[1]/text()='letin1')) and
-          (not(preceding-sibling::*[1]/text()='rw_step')) and
-          (not(name(..)='m:lambda'))"/>
-        <xsl:variable name="hidden_details">
-         <xsl:if test="$test">
-          <!-- Details hided (default) -->
-          <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-           <m:mtr>
-            <m:mtd>
-             <m:mrow>
-              <m:mtext mathcolor="Maroon">We&#x00a0;can&#x00a0;prove</m:mtext>
-              <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-              <xsl:apply-templates select="*[position()=3]"/>
-              <m:mrow>
-               <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-               <m:mtext mathcolor="Green">(explain)</m:mtext>
-              </m:mrow>
-             </m:mrow>
-            </m:mtd>
-           </m:mtr>
-          </m:mtable>
-         </xsl:if>
-        </xsl:variable>
-        <xsl:variable name="shown_details">
-         <!-- Show details -->
-         <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-          <m:mtr>
-           <m:mtd>
-            <m:mrow>
-             <xsl:apply-templates select="*[position()=2]"/>
-            </m:mrow>
-           </m:mtd>
-          </m:mtr>
-          <m:mtr>
-           <m:mtd>
-            <m:mrow>
-             <m:mtext mathcolor="Maroon">we&#x00a0;proved</m:mtext>
-             <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-             <xsl:apply-templates select="*[position()=3]"/>
-             <m:mrow>
-              <m:mphantom>
-               <m:mtext>_</m:mtext>
-              </m:mphantom>
-              <xsl:if test="$test">
-               <m:mtext mathcolor="Green">(hide&#x00a0;details)</m:mtext>
-              </xsl:if>
-             </m:mrow>
-            </m:mrow>
-           </m:mtd>
-          </m:mtr>
-         </m:mtable>
-        </xsl:variable>
-        <xsl:choose>
-         <xsl:when test="$test">
-          <m:maction actiontype="toggle">
-           <xsl:copy-of select="$hidden_details"/>
-           <xsl:copy-of select="$shown_details"/>
-          </m:maction>
-         </xsl:when>
-         <xsl:otherwise>
-          <xsl:copy-of select="$shown_details"/>
-         </xsl:otherwise>
-        </xsl:choose>
-      </xsl:when>
-      <!-- LETIN1 -->
-      <xsl:when test="$name='letin1'">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:apply-templates select="*[2]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:apply-templates select="*[3]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        </m:mtable>
-      </xsl:when>
-      <xsl:when test="$name='by_induction'">
-       <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-        <m:mtr>
-         <m:mtd>
-          <m:mrow>
-           <m:mtext mathcolor="red">We&#x00a0;prove</m:mtext>
-           <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-           <xsl:apply-templates select="../*[3]"/>
-          </m:mrow>
-         </m:mtd>
-        </m:mtr>
-        <m:mtr>
-         <m:mtd>
-          <m:mrow>
-           <m:mtext mathcolor="red">by&#x00a0;induction&#x00a0;on</m:mtext>
-           <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-           <xsl:apply-templates 
-            select="*[position()=last()]/*[position()=last()]"/>
-          </m:mrow>
-         </m:mtd>
-        </m:mtr>
-        <m:mtr>
-         <m:mtd>
-          <m:mrow>
-           <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-            <xsl:for-each select="*[position()>3 and not(position()=last())]">
-             <m:mtr>
-              <m:mtd>
-               <m:mrow>
-                <xsl:apply-templates select="."/>
-               </m:mrow>
-              </m:mtd>
-             </m:mtr>
-            </xsl:for-each>
-           </m:mtable>
-          </m:mrow>
-         </m:mtd>
-        </m:mtr>
-       </m:mtable>
-      </xsl:when>
-      <!-- inductive_case -->
-      <xsl:when test="$name='inductive_case'">
-       <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-        <m:mtr>
-         <m:mtd>
-          <m:mrow>
-           <m:mtext mathcolor="red">Case</m:mtext>
-           <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-           <xsl:apply-templates select="*[2]"/>
-          </m:mrow>
-         </m:mtd>
-        </m:mtr>
-        <m:mtr>
-         <m:mtd>
-          <m:mrow>
-           <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-           <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-            <xsl:if test="*[3]/*[position()>1]">
-             <m:mtr>
-              <m:mtd>
-               <m:mrow>
-                <m:mtext mathcolor="red">By&#x00a0;induction&#x00a0;hypothesis,&#x00a0;we&#x00a0;have:</m:mtext>
-               </m:mrow>
-              </m:mtd>
-             </m:mtr>
-             <m:mtr>
-              <m:mtd>
-               <m:mrow>
-                <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-                <xsl:for-each select="*[3]/*[position()>1]">
-                 <m:mo stretchy="false">(</m:mo>
-                 <xsl:apply-templates select="m:ci"/>
-                 <m:mo stretchy="false">) </m:mo>
-                 <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-                 <xsl:apply-templates select="m:type"/>
-                </xsl:for-each>
-               </m:mrow>
-              </m:mtd>
-             </m:mtr>
-            </xsl:if>
-            <m:mtr>
-             <m:mtd>
-              <m:mrow>
-               <xsl:apply-templates select="*[4]"/>
-              </m:mrow>
-             </m:mtd>
-            </m:mtr>
-           </m:mtable>
-          </m:mrow>
-         </m:mtd>
-        </m:mtr>
-       </m:mtable>
-      </xsl:when>
-      <!-- case_lhs  -->
-      <xsl:when test="$name='case_lhs'">
-       <m:mrow>
-        <xsl:choose>
-         <xsl:when test="count(*)=2">
-          <xsl:apply-templates select="*[2]"/>
-         </xsl:when>
-         <xsl:otherwise>
-          <m:mo stretchy="false">(</m:mo>
-          <xsl:apply-templates select="*[2]"/>
-          <xsl:for-each select="m:bvar">
-           <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-           <xsl:apply-templates select="*[1]"/>
-           <m:mtext>:</m:mtext>
-           <xsl:apply-templates select="m:type/*[1]"/>
-          </xsl:for-each>
-          <m:mo stretchy="false">)</m:mo>
-         </xsl:otherwise>
-        </xsl:choose>
-       </m:mrow>
-      </xsl:when>
-      <!-- false_ind  -->
-      <xsl:when test="$name='false_ind'">
-       <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-        <m:mtr>
-         <m:mtd>
-          <m:mrow>
-           <xsl:apply-templates select="*[3]"/>
-          </m:mrow>
-         </m:mtd>
-        </m:mtr>
-        <m:mtr>
-         <m:mtd>
-          <m:mrow>
-           <m:mtext mathcolor="Red">Contradiction.</m:mtext>
-          </m:mrow>
-         </m:mtd>
-        </m:mtr>
-       </m:mtable>
-      </xsl:when>
-      <!-- LET-IN -->
-      <xsl:when test="$name='letin'">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <!-- <xsl:for-each select="APPLY[m:csymbol and (string(m:csymbol)='let')]"> -->
-        <xsl:for-each select="*[(last() > position()) and (position()>1)]">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:apply-templates select="."/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         </xsl:for-each>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:apply-templates select="*[position()=last()]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        </m:mtable>
-      </xsl:when>
-      <!-- LET -->
-      <xsl:when test="$name='let'">
-       <m:mtext>(</m:mtext>
-       <xsl:apply-templates select="m:ci"/>
-       <m:mtext>) </m:mtext>
-       <xsl:apply-templates select="*[3]"/>
-      </xsl:when>
-      <!-- RW_STEP -->
-      <xsl:when test="$name='rw_step'">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:choose>
-             <xsl:when test="name(*[2])='m:apply'">
-              <xsl:apply-templates select="*[2]"/>
-             </xsl:when>
-             <xsl:otherwise>
-              <m:mtext>Consider</m:mtext>
-              <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-              <xsl:apply-templates select="*[2]"/>
-             </xsl:otherwise>
-            </xsl:choose>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mtext>Rewrite</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="*[3]"/>
-           <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-           <m:mtext>with</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="*[4]"/>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <m:mtext>by</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="*[5]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        </m:mtable>
-      </xsl:when>
-      <!-- not existing any more
-      <xsl:when test="$name='thread'">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:choose>
-             <xsl:when test="name(*[last()])='m:apply'">
-              <xsl:apply-templates select="*[last()]"/>
-             </xsl:when>
-             <xsl:otherwise>
-              <m:mtext>Consider</m:mtext>
-              <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-              <xsl:apply-templates select="*[last()]"/>
-             </xsl:otherwise>
-            </xsl:choose>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        <xsl:apply-templates mode="thread" select="*[(last()-2)]"/> 
-        </m:mtable>
-      </xsl:when>
-      --> 
-      <!-- REWRITE_AND_APPLY -->
-      <xsl:when test="$name='rewrite_and_apply'">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:apply-templates select="*[2]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mtext>Then&#x00a0;apply&#x00a0;it&#x00a0;to</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="*[position()>2]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-       </m:mtable>
-      </xsl:when>
-      <!-- AND_IND -->
-      <xsl:when test="$name='and_ind'">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:choose>
-             <xsl:when test="name(*[2])='m:apply'">
-              <xsl:apply-templates select="*[2]"/>
-             </xsl:when>
-             <xsl:otherwise>
-              <m:mtext>Consider</m:mtext>
-              <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-              <xsl:apply-templates select="*[2]"/>
-             </xsl:otherwise>
-            </xsl:choose>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mtext>In&#x00a0;particular,&#x00a0;we&#x00a0;have</m:mtext>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mtext>(</m:mtext>
-            <xsl:apply-templates select="*[3]"/>
-            <m:mtext>)</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="*[4]"/>
-            </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mtext>(</m:mtext>
-            <xsl:apply-templates select="*[5]"/>
-            <m:mtext>)</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="*[6]"/>
-            </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:apply-templates select="*[7]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        </m:mtable>
-      </xsl:when>
-      <!-- full_or_ind -->
-      <xsl:when test="$name='full_or_ind'">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:choose>
-             <xsl:when test="name(*[2])='m:apply'">
-              <xsl:apply-templates select="*[2]"/>
-             </xsl:when>
-             <xsl:otherwise>
-              <m:mtext>Consider</m:mtext>
-              <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-              <xsl:apply-templates select="*[2]"/>
-             </xsl:otherwise>
-            </xsl:choose>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mtext>We&#x00a0;proceed&#x00a0;by&#x00a0;cases&#x00a0;to&#x00a0;prove</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="*[3]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mtext>Left:&#x00a0;suppose</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <m:mo stretchy="false">(</m:mo>
-            <xsl:apply-templates select="*[4]/m:bvar/m:ci"/>
-            <m:mo stretchy="false">)</m:mo>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="*[4]/m:bvar/m:type/*[1]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="*[4]/*[3]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mtext>Right:&#x00a0;suppose</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <m:mo stretchy="false">(</m:mo>
-            <xsl:apply-templates select="*[5]/m:bvar/m:ci"/>
-            <m:mo stretchy="false">)</m:mo>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="*[5]/m:bvar/m:type/*[1]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:apply-templates select="*[5]/*[3]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        </m:mtable>
-      </xsl:when>
-      <!-- OR_IND -->
-      <xsl:when test="$name='or_ind'">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:choose>
-             <xsl:when test="name(*[2])='m:apply'">
-              <xsl:apply-templates select="*[2]"/>
-             </xsl:when>
-             <xsl:otherwise>
-              <m:mtext>Consider</m:mtext>
-              <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-              <xsl:apply-templates select="*[2]"/>
-             </xsl:otherwise>
-            </xsl:choose>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mtext>We&#x00a0;prove</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="*[3]"/>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <m:mtext>by&#x00a0;cases:</m:mtext>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mtext>Left</m:mtext>
-            <xsl:apply-templates select="*[4]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mtext>Right</m:mtext>
-            <xsl:apply-templates select="*[5]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        </m:mtable>
-      </xsl:when>
-      <!-- EX_IND -->
-      <xsl:when test="$name='ex_ind'">
-        <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:choose>
-             <xsl:when test="name(*[2])='m:apply'">
-              <xsl:apply-templates select="*[2]"/>
-             </xsl:when>
-             <xsl:otherwise>
-              <m:mtext>Consider</m:mtext>
-              <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-              <xsl:apply-templates select="*[2]"/>
-             </xsl:otherwise>
-            </xsl:choose>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mtext>Let</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="*[3]"/>
-            <m:mtext>:</m:mtext>
-            <xsl:apply-templates select="*[4]"/>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <m:mtext>such&#x00a0;that</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <m:mtext>(</m:mtext>
-             <xsl:apply-templates select="*[5]"/>
-            <m:mtext>)</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="*[6]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:apply-templates select="*[7]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        </m:mtable>
-      </xsl:when>
-      <!-- ***************************************** -->
-      <!-- *********** NOTATIONS ******************* -->
-      <!-- ***************************************** -->
-      <!-- subst -->
-      <xsl:when test="$name='subst'">
-        <xsl:apply-templates select="*[3]"/>
-<!-- no font for ApplyFunction: <m:mo>&#xe8a0;</m:mo> -->
-        <m:mo stretchy="false">[</m:mo>
-        <xsl:apply-templates select="*[4]"/>
-        <m:mo mathcolor="green">
-         <xsl:if test="$id != ''">
-          <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
-         </xsl:if>&#8592;</m:mo>
-        <xsl:apply-templates select="*[2]"/>
-        <m:mo stretchy="false">]</m:mo>
-      </xsl:when>
-      <!-- lift -->
-      <xsl:when test="$name='lift'">
-        <m:msup>
-         <m:mo mathcolor="green">
-          <xsl:if test="$id != ''">
-           <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
-          </xsl:if>&#8593;</m:mo>
-        <xsl:apply-templates select="*[2]"/>
-        </m:msup>
-       <m:mrow>
-        <m:mo stretchy="false">(</m:mo>
-         <xsl:apply-templates select="*[3]"/>
-        <m:mo stretchy="false">)</m:mo>
-        </m:mrow>
-      </xsl:when>
-      <!-- lift_with_base -->
-      <xsl:when test="$name='lift_with_base'">
-        <m:msubsup>
-         <m:mo mathcolor="green">
-          <xsl:if test="$id != ''">
-           <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
-          </xsl:if>&#8593;</m:mo>
-        <xsl:apply-templates select="*[3]"/>
-        <xsl:apply-templates select="*[4]"/>
-        </m:msubsup>
-       <m:mrow>
-        <m:mo stretchy="false">(</m:mo>
-         <xsl:apply-templates select="*[2]"/>
-        <m:mo stretchy="false">)</m:mo>
-        </m:mrow>      
-      </xsl:when>
-      <!-- beta_red1 -->
-      <xsl:when test="$name='beta_red1'">
-        <xsl:apply-templates select="*[2]"/>
-        <m:munder>
-         <m:mo mathcolor="green">
-          <xsl:if test="$id != ''">
-           <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
-          </xsl:if>&#8594;</m:mo>
-          <m:mi mathcolor="green">&#946;</m:mi>
-        </m:munder>
-        <xsl:apply-templates select="*[3]"/>
-      </xsl:when>
-      <!-- beta_red -->
-      <xsl:when test="$name='beta_red'">
-        <xsl:apply-templates select="*[2]"/>
-        <m:munderover>
-         <m:mo mathcolor="green">
-          <xsl:if test="$id != ''">
-           <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
-          </xsl:if>&#8594;</m:mo>
-          <m:mi mathcolor="green">&#946;</m:mi>
-          <m:mi mathcolor="green">*</m:mi>
-        </m:munderover>
-        <xsl:apply-templates select="*[3]"/>
-      </xsl:when>
-      <!-- par_beta_red1 -->
-      <xsl:when test="$name='par_beta_red1'">
-        <xsl:apply-templates select="*[2]"/>
-        <m:munder>
-         <m:mo mathcolor="green">
-          <xsl:if test="$id != ''">
-           <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
-          </xsl:if>&#8658;</m:mo>
-          <m:mi mathcolor="green">&#946;</m:mi>
-        </m:munder>
-        <xsl:apply-templates select="*[3]"/>
-      </xsl:when>
-      <!-- par_beta_red -->
-      <xsl:when test="$name='par_beta_red'">
-        <xsl:apply-templates select="*[2]"/>
-        <m:munderover>
-         <m:mo mathcolor="green">
-          <xsl:if test="$id != ''">
-           <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
-          </xsl:if>&#8658;</m:mo>
-          <m:mi mathcolor="green">&#946;</m:mi>
-          <m:mi mathcolor="green">*</m:mi>
-        </m:munderover>
-        <xsl:apply-templates select="*[3]"/>
-      </xsl:when>
-      <!-- forgetful -->
-      <xsl:when test="$name='forgetful'">
-       <m:mfenced open="|" close="|">
-        <xsl:if test="$id != ''">
-         <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="*[2]"/>
-       </m:mfenced>
-      </xsl:when>
-      <!-- isomorphic -->
-      <xsl:when test="$name='isomorphic'">
-        <xsl:apply-templates select="*[2]"/>
-        <m:mo mathcolor="green">
-         <xsl:if test="$id != ''">
-          <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
-         </xsl:if>&#8773;</m:mo>
-        <xsl:apply-templates select="*[3]"/>
-      </xsl:when>
-      <!-- interp -->
-      <xsl:when test="$name='forgetful'">
-       <m:mfenced open="[" close="]">
-        <xsl:if test="$id != ''">
-         <xsl:attribute name="m:xref"><xsl:value-of select="$id"/></xsl:attribute>
-        </xsl:if>
-        <xsl:apply-templates select="*[2]"/>
-       </m:mfenced>
-      </xsl:when> 
-
-      <!-- ERROR -->
-      <xsl:otherwise>
-       <m:mi>ERROR</m:mi>
-      </xsl:otherwise>
-     </xsl:choose>
-    </m:mrow>
-</xsl:template>
-
-<!-- Il modo Thread non esiste piu' 
-<xsl:template match="*" mode="thread">
- <xsl:variable name="name"><xsl:value-of select="following-sibling::*[position()=1]/m:csymbol"/></xsl:variable>
- <xsl:choose>
-  <xsl:when test="$name='rw_step'">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mtext>Rewrite</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="following-sibling::*[position()=1]/*[2]"/>
-           <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-           <m:mtext>with</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="following-sibling::*[position()=1]/*[3]"/>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <m:mtext>by</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="following-sibling::*[position()=1]/*[4]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mtext mathcolor="Maroon">we&#x00a0;get</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="."/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-   </xsl:when>
-   <xsl:otherwise>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <xsl:apply-templates select="following-sibling::*[position()=1]"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mtext mathcolor="Maroon">we&#x00a0;get</m:mtext>
-            <m:mphantom><m:mtext>_</m:mtext></m:mphantom>
-            <xsl:apply-templates select="."/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-    </xsl:otherwise>
-   </xsl:choose>
-         <xsl:apply-templates mode="thread" select="preceding-sibling::*[position()=2]"/>
-</xsl:template>
--->
-
-<!-- LAMBDA -->
-
-<xsl:template match="m:lambda">
-    <xsl:variable name="charlength"><xsl:apply-templates select="*[position()=1]" mode="charcount"/></xsl:variable>
-    <m:mrow>
-     <xsl:if test="@id">
-      <xsl:attribute name="m:xref">
-       <xsl:value-of select="@id"/>
-      </xsl:attribute>
-     </xsl:if>
-     <xsl:choose>
-     <xsl:when test="$charlength >= $framewidth">
-      <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-        <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mo mathcolor="Red">&#x03bb;</m:mo>
-            <xsl:apply-templates select="m:bvar"/>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-       <m:mtr>
-        <m:mtd>
-         <m:mrow>
-          <m:mo>.</m:mo>
-          <xsl:apply-templates select="*[position()=2]"/>
-         </m:mrow>
-        </m:mtd>
-       </m:mtr>
-      </m:mtable>
-     </xsl:when>
-     <xsl:otherwise>
-      <m:mo mathcolor="Red">&#x03bb;</m:mo>
-      <xsl:apply-templates select="m:bvar/m:ci"/>
-      <m:mo>:</m:mo>
-      <xsl:apply-templates select="m:bvar/m:type"/>
-      <m:mo>.</m:mo>
-      <xsl:apply-templates select="*[position()=2]"/>
-     </xsl:otherwise>
-     </xsl:choose>
-    </m:mrow>
-</xsl:template>
-
-<!-- *********************************** -->
-<!-- BASE SET OF MATHML CONTENT ELEMENTS -->
-<!-- *********************************** -->
-
-<!-- Logic -->
-
-<xsl:template match = "m:apply[m:eq[1]]">
- <xsl:variable name="charlength">
-  <xsl:apply-templates select="*[1]" mode="charcount"/>
- </xsl:variable>
- <xsl:choose>
-  <xsl:when test="$charlength >= $framewidth">
-   <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-    <xsl:if test="@id">
-     <xsl:attribute name="m:xref">
-      <xsl:value-of select="@id"/>
-     </xsl:attribute>
-    </xsl:if>    
-    <m:mtr>
-     <m:mtd>
-      <m:mrow>
-       <m:mo stretchy="false">(</m:mo>
-       <xsl:apply-templates select="*[position()=2]"/>
-      </m:mrow>
-     </m:mtd>
-    </m:mtr>
-    <xsl:for-each select = "*[position()>2]">
-     <m:mtr>
-      <m:mtd>
-       <m:mrow>
-        <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
-        <m:mo>
-         <xsl:if test="m:in/@id">
-          <xsl:attribute name="m:xref">
-           <xsl:value-of select="m:in/@id"/>
-          </xsl:attribute>
-         </xsl:if>=</m:mo>
-        <xsl:apply-templates select="."/>
-       </m:mrow>
-      </m:mtd>
-     </m:mtr>
-    </xsl:for-each>
-    <m:mtr>
-     <m:mtd>
-      <m:mrow>
-       <m:mo stretchy="false">)</m:mo>
-      </m:mrow>
-     </m:mtd>
-    </m:mtr>
-   </m:mtable>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:apply-imports/>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-
-<xsl:template match = "m:apply[m:and[1]|m:or[1]
-          |m:geq[1]|m:leq[1]|m:gt[1]|m:lt[1]
-          |m:in[1]|m:intesect[1]|m:union[1]|m:subset[1]
-          |m:prsubset|m:setdiff[1]]">
- <xsl:variable name="symbol">
-  <xsl:choose>
-   <xsl:when test="m:and[1]">
-    <xsl:value-of select="'&#8743;'"/>
-   </xsl:when>
-   <xsl:when test="m:or[1]">
-    <xsl:value-of select="'&#8744;'"/>
-   </xsl:when>
-   <xsl:when test="m:geq[1]">
-    <xsl:value-of select="'&#8805;'"/>
-   </xsl:when>
-   <xsl:when test="m:leq[1]">
-    <xsl:value-of select="'&#8804;'"/>
-   </xsl:when>
-   <xsl:when test="m:gt[1]">
-    <xsl:value-of select="'&#62;'"/>
-   </xsl:when>
-   <xsl:when test="m:lt[1]">
-    <xsl:value-of select="'&#60;&#32;'"/>
-   </xsl:when>
-   <xsl:when test="m:eq[1]">
-    <xsl:value-of select="'&#61;'"/>
-   </xsl:when>
-   <xsl:when test="m:in[1]">
-    <xsl:value-of select="'&#x02208;'"/>
-   </xsl:when>
-   <xsl:when test="m:subset[1]">
-    <xsl:value-of select="'&#x02286;'"/>
-   </xsl:when>
-   <xsl:when test="m:prsubset[1]">
-    <xsl:value-of select="'&#x02282;'"/>
-   </xsl:when>
-   <xsl:when test="m:intersect[1]">
-    <xsl:value-of select="'&#x022C2;'"/>
-   </xsl:when>
-   <xsl:when test="m:union[1]">
-    <xsl:value-of select="'&#x022C3;'"/>
-   </xsl:when>
-   <xsl:when test="m:setdiff[1]">
-    <xsl:value-of select="'&#x02216;'"/>
-   </xsl:when>
-  </xsl:choose>
- </xsl:variable>
- <xsl:variable name="charlength">
-  <xsl:apply-templates select="*[1]" mode="charcount"/>
- </xsl:variable>
- <xsl:choose>
-  <xsl:when test="$charlength >= $framewidth">
-   <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-    <xsl:if test="@id">
-     <xsl:attribute name="m:xref">
-      <xsl:value-of select="@id"/>
-     </xsl:attribute>
-    </xsl:if>    
-    <m:mtr>
-     <m:mtd>
-      <m:mrow>
-       <m:mo stretchy="false">(</m:mo>
-       <xsl:apply-templates select="*[position()=2]"/>
-      </m:mrow>
-     </m:mtd>
-    </m:mtr>
-    <xsl:for-each select = "*[position()>2]">
-     <m:mtr>
-      <m:mtd>
-       <m:mrow>
-        <m:mphantom><m:mtext>__</m:mtext></m:mphantom>
-        <m:mo>
-         <xsl:if test="*[1]/@id">
-          <xsl:attribute name="m:xref">
-           <xsl:value-of select="*[1]/@id"/>
-          </xsl:attribute>
-         </xsl:if><xsl:value-of select="$symbol"/></m:mo>
-        <xsl:apply-templates select="."/>
-       </m:mrow>
-      </m:mtd>
-     </m:mtr>
-    </xsl:for-each>
-    <m:mtr>
-     <m:mtd>
-      <m:mrow>
-       <m:mo stretchy="false">)</m:mo>
-      </m:mrow>
-     </m:mtd>
-    </m:mtr>
-   </m:mtable>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:apply-imports/>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<xsl:template match = "m:set">
- <xsl:choose>
-  <xsl:when test="count(child::*) = 0">
-   <m:mi>
-    <xsl:if test="@id">
-     <xsl:attribute name="m:xref">
-      <xsl:value-of select="@id"/>
-     </xsl:attribute>
-    </xsl:if>&#x02205;</m:mi>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:variable name="charlength">
-    <xsl:apply-templates select="*[1]" mode="charcount"/>
-   </xsl:variable>
-   <xsl:choose>
-    <xsl:when test="$charlength >= $framewidth">
-     <xsl:choose>
-      <xsl:when test="name(*[1]) = 'm:bvar'">
-       <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-        <m:mtr>
-         <m:mtd>
-          <m:mrow>
-           <m:mo stretchy="false">
-            <xsl:if test="@id">
-             <xsl:attribute name="m:xref">
-              <xsl:value-of select="@id"/>
-             </xsl:attribute>
-            </xsl:if>{</m:mo>
-           <xsl:apply-templates select="*[position()=1]"/>
-          </m:mrow>
-         </m:mtd>
-        </m:mtr>
-        <m:mtr>
-         <m:mtd>
-          <m:mrow>
-           <m:mphantom><m:mtext>{</m:mtext></m:mphantom>
-           <m:mo stretchy="false">|</m:mo>
-           <xsl:apply-templates select="m:condition/*[1]"/>
-          </m:mrow>
-         </m:mtd>
-        </m:mtr>
-        <m:mtr>
-         <m:mtd>
-          <m:mrow>
-           <m:mo stretchy="false">
-            <xsl:if test="@id">
-             <xsl:attribute name="m:xref">
-              <xsl:value-of select="@id"/>
-             </xsl:attribute>
-            </xsl:if>}</m:mo>
-          </m:mrow>
-         </m:mtd>
-        </m:mtr>
-       </m:mtable>
-      </xsl:when>
-      <xsl:otherwise>
-       <m:mtable align="baseline 1" equalrows="false" columnalign="left">
-        <m:mtr>
-         <m:mtd>
-          <m:mrow>
-           <m:mo stretchy="false">
-            <xsl:if test="@id">
-             <xsl:attribute name="m:xref">
-              <xsl:value-of select="@id"/>
-             </xsl:attribute>
-            </xsl:if>{</m:mo>
-           <xsl:apply-templates select="*[position()=1]"/>
-           <xsl:if test="position() != last()">
-            <mo>,</mo>
-           </xsl:if>
-          </m:mrow>
-         </m:mtd>
-        </m:mtr>
-        <xsl:for-each select = "*[position()>2]">
-         <m:mtr>
-          <m:mtd>
-           <m:mrow>
-            <m:mphantom><m:mtext>{</m:mtext></m:mphantom>
-            <xsl:apply-templates select="."/>
-            <xsl:if test="position() != last()">
-             <mo>,</mo>
-            </xsl:if>
-           </m:mrow>
-          </m:mtd>
-         </m:mtr>
-        </xsl:for-each>
-        <m:mtr>
-         <m:mtd>
-          <m:mrow>
-           <m:mo stretchy="false">
-            <xsl:if test="@id">
-             <xsl:attribute name="m:xref">
-              <xsl:value-of select="@id"/>
-             </xsl:attribute>
-            </xsl:if>}</m:mo>
-          </m:mrow>
-         </m:mtd>
-        </m:mtr>
-       </m:mtable>
-      </xsl:otherwise>
-     </xsl:choose>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:apply-imports/>
-    </xsl:otherwise>
-   </xsl:choose>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>      
-
-<xsl:template match = "m:apply[m:card[1]]">
-  <m:mfenced open="|" close="|" stretchy="false">
-    <xsl:if test="($SEM_SW=$SEM_XREF or $SEM_SW=$SEM_XREF_EXT) and @id">
-      <xsl:attribute name="m:xref">
-        <xsl:value-of select="@id"/>
-      </xsl:attribute>
-    </xsl:if>
-  <xsl:apply-templates select="*[2]"/>
-  </m:mfenced>
-</xsl:template>
-
-
-<!--**********************-->
-<!--       COUNTING       -->
-<!--**********************-->
-
-<xsl:template match="m:cn|m:and|m:or|m:not|m:exists|m:eq|m:lt|m:leq|m:gt|m:geq
- |m:in|m:notin|m:intersect|m:union|m:subset|m:prsubset|m:card|m:setdiff
- |m:plus|m:minus|m:times" mode="charcount">
-<xsl:param name="incurrent_length" select="0"/> 
-    <xsl:choose>
-    <xsl:when test="$framewidth > ($incurrent_length + 3 + string-length())">
-     <xsl:variable name="siblength">
-      <xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount">
-       <xsl:with-param name="incurrent_length" select="$incurrent_length + string-length()"/>
-      </xsl:apply-templates>
-     </xsl:variable>
-     <xsl:choose>
-     <xsl:when test="string($siblength) = &quot;&quot;">
-      <xsl:value-of select="$incurrent_length + 3 + string-length()"/>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:value-of select="number($siblength)"/>
-     </xsl:otherwise>
-     </xsl:choose>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:value-of select="$incurrent_length + 3 + string-length()"/>
-    </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<xsl:template match="m:ci|m:csymbol" mode="charcount">
-<xsl:param name="incurrent_length" select="0"/> 
-<xsl:param name="nosibling" select="0"/>
-    <xsl:choose>
-    <xsl:when test="$framewidth > ($incurrent_length + string-length()) and ($nosibling = 0)">
-     <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length + string-length()"/></xsl:apply-templates></xsl:variable>
-     <xsl:choose>
-     <xsl:when test="string($siblength) = &quot;&quot;">
-      <xsl:value-of select="$incurrent_length + string-length()"/>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:value-of select="number($siblength)"/>
-     </xsl:otherwise>
-     </xsl:choose>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:value-of select="$incurrent_length + string-length()"/>
-    </xsl:otherwise>
-    </xsl:choose>
-</xsl:template> 
-
-<xsl:template match="*" mode="charcount">
-<xsl:param name="incurrent_length" select="0"/>
-<xsl:param name="nosibling" select="0"/>
- <xsl:choose>
-  <xsl:when test="count(child::*) = 0">
-   <xsl:value-of select="$incurrent_length"/>
-  </xsl:when>
-  <xsl:otherwise>
-    <xsl:variable name="childlength"><xsl:apply-templates select="*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$incurrent_length"/><xsl:with-param name="nosibling" select="0"/></xsl:apply-templates></xsl:variable>
-    <xsl:choose>
-    <xsl:when test="$framewidth > number($childlength) and ($nosibling = 0)">
-     <xsl:variable name="siblength"><xsl:apply-templates select="following-sibling::*[position()=1]" mode="charcount"><xsl:with-param name="incurrent_length" select="$childlength"/></xsl:apply-templates></xsl:variable>
-     <xsl:choose>
-     <xsl:when test="string($siblength) = &quot;&quot;">
-      <xsl:value-of select="number($childlength)"/>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:value-of select="number($siblength)"/>
-     </xsl:otherwise>
-     </xsl:choose>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:value-of select="number($childlength)"/>
-    </xsl:otherwise>
-    </xsl:choose>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-</xsl:stylesheet> 

diff --git a/helm/style/mmltheoryextension.xsl b/helm/style/mmltheoryextension.xsl
deleted file mode 100644 (file)
index d173c79..0000000
--- a/helm/style/mmltheoryextension.xsl
+++ /dev/null
@@ -1,42 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--***********************************************************************--> 
-<!-- Extension to the XSLT version 0.07 of MathML content to presentation: -->
-<!-- First draft: March 22 2001, Irene Schena                              -->
-<!--***********************************************************************--> 
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm">
-
-<xsl:template match="type">
-    <m:math>
-     <xsl:apply-templates select="*[1]"/>
-    </m:math>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/objcontent.xsl b/helm/style/objcontent.xsl
deleted file mode 100644 (file)
index 9b98250..0000000
--- a/helm/style/objcontent.xsl
+++ /dev/null
@@ -1,160 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--******************************************************************--> 
-<!-- XSLT version 0.1 of CIC objects to objects and MathML content:   -->
-<!-- First draft: March 21 2000, Irene Schena                         -->
-<!--******************************************************************-->
-
-<!--******************************************************************-->
-<!-- MANCA: gestione annotation e linking                             -->
-<!--******************************************************************-->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm">
-
-<xsl:import href="content.xsl"/>
-
-<!-- ROOT -->
-
-<xsl:template match="cicxml">
-    <xsl:variable name="url"><xsl:value-of select="@baseurl"/></xsl:variable>
-    <xsl:variable name="stylesheet"><xsl:value-of select="@stylesheet"/></xsl:variable>
-    <!--
-    <xsl:processing-instruction name="cocoon-format">type="text/xml"</xsl:processing-instruction>
-    <xsl:processing-instruction name="xml-stylesheet">href="<xsl:value-of select='concat($url,$stylesheet)'/>" type="text/xsl"</xsl:processing-instruction>
-    <xsl:processing-instruction name="cocoon-process">type="xslt"</xsl:processing-instruction>
-    -->
-    <xsl:apply-templates select="*[1]"/>
-</xsl:template>
-
-<!-- CIC OBJECTS -->
-
-<xsl:template match="Definition" mode="noannot">
-    <Definition name="{@name}" helm:xref="{@id}">  
-     <xsl:if test="string(@params) != &quot;&quot;">
-      <Params>
-       <xsl:value-of select="@params"/>
-      </Params>
-     </xsl:if>
-<!--     <xsl:choose>
-      <xsl:when test="$showproof=0">
-       <body>
-        <m:mi>Here</m:mi>
-       </body>
-      </xsl:when>
-      <xsl:otherwise>
-       <body>
-        <xsl:apply-templates select="body"/>
-       </body>
-      </xsl:otherwise>
-     </xsl:choose> -->
-     <body>
-      <xsl:apply-templates select="body/*[1]"/>
-     </body>
-     <type>
-       <xsl:apply-templates select="type/*[1]"/>
-     </type>
-    </Definition> 
-</xsl:template>
-
-<xsl:template match="Axiom" mode="noannot"> 
-    <Axiom name="{@name}" helm:xref="{@id}">
-     <xsl:if test="string(@params) != &quot;&quot;">
-      <Params>
-       <xsl:value-of select="@params"/>
-      </Params>
-     </xsl:if>
-     <type>
-       <xsl:apply-templates select="type/*[1]"/>
-     </type>
-    </Axiom> 
-</xsl:template>
-
-<xsl:template match="CurrentProof" mode="noannot">
-    <CurrentProof name="{@name}" helm:xref="{@id}">
-     <xsl:for-each select="Conjecture">
-      <Conjecture no="./{@no}">
-        <xsl:apply-templates select="."/>
-      </Conjecture>
-     </xsl:for-each>
-     <body>
-       <xsl:apply-templates select="body/*[1]"/>
-     </body>
-     <type>
-       <xsl:apply-templates select="type/*[1]"/>
-     </type>
-    </CurrentProof> 
-</xsl:template>
-
-<xsl:template match="InductiveDefinition" mode="noannot">
-    <InductiveDefinition helm:xref="{@id}">
-     <xsl:if test="string(@params) != &quot;&quot;">
-      <Params>
-       <xsl:value-of select="@params"/>
-      </Params>
-     </xsl:if> 
-     <xsl:if test="string(@noParams) != 0"> 
-      <xsl:apply-templates select="InductiveType/arity/*[1]" mode="abstparams">
-       <xsl:with-param name="noparams" select="@noParams"/>
-      </xsl:apply-templates>
-     </xsl:if>
-     <xsl:for-each select="InductiveType">
-      <InductiveType name="{./@name}" inductive="{./@inductive}">
-       <arity>
-         <xsl:apply-templates select="./arity/*[1]" mode="abstparams">
-          <xsl:with-param name="noparams" select="../@noParams"/>
-          <xsl:with-param name="target" select="1"/>
-         </xsl:apply-templates>
-       </arity>
-       <xsl:for-each select="./Constructor">
-        <Constructor name="{./@name}">
-          <xsl:apply-templates select="./*[1]" mode="abstparams">
-           <xsl:with-param name="noparams" select="../../@noParams"/>
-           <xsl:with-param name="target" select="1"/>
-          </xsl:apply-templates>
-        </Constructor>
-       </xsl:for-each>
-      </InductiveType>
-     </xsl:for-each> 
-    </InductiveDefinition>       
-</xsl:template>
-
-<xsl:template match="Variable" mode="noannot"> 
-    <Variable name="{@name}" helm:xref="{@id}">
-     <xsl:if test="name(*[1])='body'">
-      <body>
-       <xsl:apply-templates select="body/*[1]"/>
-      </body>
-     </xsl:if>
-     <type>
-       <xsl:apply-templates select="type/*[1]"/>
-     </type>
-    </Variable> 
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/objtheorycontent.xsl b/helm/style/objtheorycontent.xsl
deleted file mode 100644 (file)
index 7d890d6..0000000
--- a/helm/style/objtheorycontent.xsl
+++ /dev/null
@@ -1,85 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--******************************************************************--> 
-<!-- XSLT version 0.1 of CIC objects to MathML content of types only: -->
-<!-- First draft: March 9 2001, Irene Schena                          -->
-<!--******************************************************************-->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm">
-
-<xsl:import href="objcontent.xsl"/>
-<xsl:include href="headercontent.xsl"/>
-<xsl:include href="getter.xsl"/>
-
-<xsl:param name="type" select="'standalone'"/>
-<xsl:param name="getterURL" select="'http://localhost:8081/'"/>
-<xsl:param name="CICURI" select="''"/>
-
-<!-- CIC DEFINITION -->
-
-<xsl:template match="Definition">
-    <xsl:choose>
-   <xsl:when test="$type='typeonly'">
-    <type>
-     <xsl:apply-templates select="type/*[1]"/>
-    </type>
-   </xsl:when>
-   <xsl:otherwise>
-    <Definition name="{@name}" helm:xref="{@id}">  
-     <xsl:if test="string(@params) != &quot;&quot;">
-      <Params>
-       <xsl:value-of select="@params"/>
-      </Params>
-     </xsl:if>
-     <body>
-       <xsl:apply-templates select="body/*[1]"/>
-     </body>
-     <type>
-       <xsl:apply-templates select="type/*[1]"/>
-     </type>
-    </Definition>
-   </xsl:otherwise>
-   </xsl:choose>
-</xsl:template>
-
-<xsl:template match="Axiom|CurrentProof|InductiveDefinition|Variable">
-    <xsl:apply-templates select="." mode="noannot"/>
-</xsl:template>
-
-<xsl:template match="LAMBDA|LETIN|PROD|CAST|REL|SORT|APPLY|VAR|META|CONST|MUTIND|MUTCONSTRUCT|MUTCASE|FIX|COFIX">
-    <m:math>
-     <xsl:apply-templates select="." mode="noannot"/>
-    </m:math>
-</xsl:template>
-
-<xsl:template match="LAMBDA|LETIN|PROD|CAST|REL|SORT|APPLY|VAR|META|CONST|MUTIND|MUTCONSTRUCT|MUTCASE|FIX|COFIX" mode="noannot">
-    <xsl:apply-templates select="." mode="pure"/>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/params.xsl b/helm/style/params.xsl
deleted file mode 100644 (file)
index b5b7f9b..0000000
--- a/helm/style/params.xsl
+++ /dev/null
@@ -1,375 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML">
-
-<!--***********************************************************************--> 
-<!-- auxiliary functions                                                   -->
-<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena                      -->
-<!--***********************************************************************--> 
-
-<!--***********************************************************************-->
-<!-- get the name from a URI                                               -->
-<!--***********************************************************************-->
-
-<!-- CSC: PROBLEMA: URI CHE NON CONTENGONO / ED INIZIANO CON cic: -->
-<xsl:template name="name_of_uri">
- <xsl:param name="uri" select="&quot;&quot;"/>
- <xsl:variable name="suffix" select="substring-after($uri, &quot;/&quot;)"/>
- <xsl:choose>
-  <xsl:when test="$suffix = &quot;&quot;">
-   <!-- CSC: PROBLEMA: .con PUO' APPARIRE ALL'INTERNO DELLE URI ===>
-     SCRIVERE UNA FUNZIONE RICORSIVA CHE RISOLVA -->
-   <xsl:value-of select="substring-before($uri,&quot;.con&quot;)"/>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:call-template name="name_of_uri">
-    <xsl:with-param name="uri" select="$suffix"/>
-   </xsl:call-template>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<!--***********************************************************************-->
-<!-- erase common prefix from two uris                                     -->
-<!--***********************************************************************-->
-
-<xsl:template name="common_prefix">
- <xsl:param name="first_uri" select="&quot;&quot;"/>
- <xsl:param name="second_uri" select="&quot;&quot;"/>
- <xsl:choose>
-  <xsl:when test="(substring-before($first_uri,&quot;/&quot;) = 
-                substring-before($second_uri,&quot;/&quot;) and 
-                substring-after($second_uri,&quot;/&quot;) != &quot;&quot;)">
-   <xsl:call-template name="common_prefix">
-    <xsl:with-param 
-        name="first_uri" select="substring-after($first_uri,&quot;/&quot;)"/>
-    <xsl:with-param 
-        name="second_uri" select="substring-after($second_uri,&quot;/&quot;)"/>    </xsl:call-template>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:call-template name="slash_counting">
-    <xsl:with-param name="uri" select="$second_uri"/>
-    <xsl:with-param name="counter" select="0"/>
-   </xsl:call-template>
-  </xsl:otherwise>   
- </xsl:choose>
-</xsl:template>
-
-<xsl:template name="slash_counting">
- <xsl:param name="uri" select="&quot;&quot;"/>
- <xsl:param name="counter" select="0"/>
- <xsl:choose>
-  <xsl:when test="(substring-after($uri,&quot;/&quot;) != &quot;&quot;)">
-   <xsl:call-template name="slash_counting">
-    <xsl:with-param 
-        name="uri" select="substring-after($uri,&quot;/&quot;)"/>
-    <xsl:with-param
-        name="counter" select="$counter +1"/> 
-   </xsl:call-template>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:value-of select="$counter"/>
-  </xsl:otherwise>
- </xsl:choose>   
-</xsl:template>
-
-<xsl:template name="blank_counting">
- <xsl:param name="string" select="&quot;&quot;"/>
- <xsl:param name="counter" select="0"/>
- <xsl:choose>
-  <xsl:when test="(substring-after($string,&quot; &quot;) != &quot;&quot;)">
-   <xsl:call-template name="blank_counting">
-    <xsl:with-param 
-        name="string" select="substring-after($string,&quot; &quot;)"/>
-    <xsl:with-param 
-        name="counter" select="$counter +1"/> 
-   </xsl:call-template>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:value-of select="$counter + 1"/>
-  </xsl:otherwise> 
- </xsl:choose>  
-</xsl:template>
-
-<xsl:template name="double_point_counting">
- <xsl:param name="string" select="&quot;&quot;"/>
- <xsl:param name="counter" select="0"/>
- <xsl:choose>
-  <xsl:when test="(substring-after($string,&quot;:&quot;) != &quot;&quot;)">
-   <xsl:call-template name="double_point_counting">
-    <xsl:with-param 
-        name="string" select="substring-after($string,&quot;:&quot;)"/>
-    <xsl:with-param 
-        name="counter" select="$counter +1"/> 
-   </xsl:call-template>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:value-of select="$counter"/>
-  </xsl:otherwise> 
- </xsl:choose>  
-</xsl:template>
-
-<xsl:template name="min">
- <xsl:param name="string" select="&quot;&quot;"/>
- <xsl:param name="counter" select="0"/>
- <xsl:choose>
-  <xsl:when test="contains($string,concat($counter,&quot;:&quot;))
-         or (0 > $counter)">
-  <xsl:value-of select="$counter"/>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:call-template name="min">
-    <xsl:with-param 
-        name="string" select="$string"/>
-    <xsl:with-param 
-        name="counter" select="$counter -1"/> 
-   </xsl:call-template>
-  </xsl:otherwise>
- </xsl:choose>  
-</xsl:template>
-
-<xsl:template name="get_no_params">
-    <xsl:param name="first_uri" select="&quot;&quot;"/>
-    <xsl:param name="second_uri" select="&quot;&quot;"/>
-     <xsl:variable name="offset">
-      <xsl:call-template name="common_prefix">
-       <xsl:with-param name="first_uri" select="$first_uri"/>
-       <xsl:with-param name="second_uri" select="$second_uri"/>
-      </xsl:call-template>
-     </xsl:variable>
-     <xsl:choose>
-      <xsl:when test="$offset > 0">
-       <xsl:variable name="params"> 
-        <xsl:variable name="second_url"><xsl:call-template name="URLofURI4getter"><xsl:with-param name="uri" select="$second_uri"/></xsl:call-template></xsl:variable>
-        <xsl:value-of 
-            select="document($second_url)/*/@params"/>
-       </xsl:variable>
-       <xsl:variable name="minimum">
-        <xsl:call-template name="min">
-         <xsl:with-param name="string" select="$params"/>
-         <xsl:with-param name="counter" select="$offset - 1"/>
-        </xsl:call-template>
-       </xsl:variable>
-       <xsl:choose>
-        <xsl:when test="0 > $minimum">
-         0
-        </xsl:when>
-        <xsl:otherwise>
-         <xsl:variable name="relevant_params">
-          <!-- the blank after : in the next line is essential -->
-          <xsl:value-of 
-            select="substring-after($params,concat($minimum,&quot;: &quot;))"/>
-         </xsl:variable>
-         <xsl:variable name="tokens">
-          <xsl:call-template name="blank_counting">
-           <xsl:with-param name="string" select="$relevant_params"/>
-           <xsl:with-param name="counter" select="0"/>
-          </xsl:call-template>
-         </xsl:variable>
-         <xsl:variable name="separators">
-          <xsl:call-template name="double_point_counting">
-           <xsl:with-param name="string" select="$relevant_params"/>
-           <xsl:with-param name="counter" select="0"/>
-          </xsl:call-template>
-         </xsl:variable>
-         <xsl:value-of select="$tokens - $separators"/>
-        </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <xsl:otherwise>
-      0
-      </xsl:otherwise>
-     </xsl:choose>
-</xsl:template>
-
-
-<!--***********************************************************************-->
-<!--  Insert a subscript if there is a number at the end of a ci element   -->
-<!--***********************************************************************-->
-
-<xsl:template name="insert_subscript">
-<xsl:param name="node_value" select="&quot;&quot;"/>
-<xsl:param name="current_pos" select="1"/>
-<xsl:param name="start_pos" select="0"/>
-    <xsl:choose>
-    <xsl:when test="$current_pos &lt;= string-length(string($node_value))">
-    <xsl:variable name="current_char"><xsl:value-of select="substring(string($node_value),$current_pos,1)"/></xsl:variable>
-     <xsl:choose>
-     <xsl:when test="(string($current_char) != &quot;0&quot;) and (string($current_char) != &quot;1&quot;) and (string($current_char) != &quot;2&quot;) and (string($current_char) != &quot;3&quot;) and (string($current_char) != &quot;4&quot;) and (string($current_char) != &quot;5&quot;) and (string($current_char) != &quot;6&quot;) and (string($current_char) !=  &quot;7&quot;) and (string($current_char) != &quot;8&quot;) and (string($current_char) != &quot;9&quot;)">
-      <xsl:choose> 
-      <xsl:when test="$start_pos != 0">
-       <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value" select="$node_value"/><xsl:with-param name="current_pos" select="$current_pos + 1"/><xsl:with-param name="start_pos" select="0"/></xsl:call-template>
-      </xsl:when> 
-      <xsl:otherwise>
-       <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value" select="$node_value"/><xsl:with-param name="current_pos" select="$current_pos + 1"/><xsl:with-param name="start_pos" select="$start_pos"/></xsl:call-template>
-      </xsl:otherwise>
-      </xsl:choose>
-     </xsl:when>
-     <xsl:otherwise>  
-      <xsl:choose>
-      <xsl:when test="$start_pos = 0">
-       <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value" select="$node_value"/><xsl:with-param name="current_pos" select="$current_pos + 1"/><xsl:with-param name="start_pos" select="$current_pos"/></xsl:call-template>
-      </xsl:when>
-      <xsl:otherwise>
-       <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value" select="$node_value"/><xsl:with-param name="current_pos" select="$current_pos + 1"/><xsl:with-param name="start_pos" select="$start_pos"/></xsl:call-template>
-      </xsl:otherwise>
-      </xsl:choose>      
-     </xsl:otherwise>
-     </xsl:choose>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:choose>
-     <xsl:when test="$start_pos != 0">
-      <m:msub>
-       <m:mi><xsl:value-of select="substring(string($node_value),1,$start_pos -1)"/></m:mi>
-       <m:mn><xsl:value-of select="substring(string($node_value),$start_pos)"/></m:mn>
-       </m:msub>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:value-of select="$node_value"/>
-     </xsl:otherwise>
-     </xsl:choose>
-    </xsl:otherwise>    
-    </xsl:choose>
-</xsl:template>
-
-
-<!--*******************************************-->
-<!--    ABSTRACTING PARAMETERS AND COUNTING    -->
-<!--*******************************************-->
-<!-- Si dimentica i CAST dei termini che astrae. Nel caso dell'astrazione -->
-<!-- dei lambda dei pattern del CASE, qualora i lambda non si trovino     -->
-<!-- nella forma weak-head, astrae solo i lambda che trova e restituisce  -->
-<!-- un corpo depurato da tutti i primi cast che precedono il termine     -->
-<!-- restituito.                                                          -->
-
-<xsl:template match="*" mode="abstparams">
-<xsl:param name="noparams" select="0"/>
-<xsl:param name="target" select="0"/>
-<xsl:param name="binder">PROD</xsl:param>
-    <xsl:choose>
-    <xsl:when test="($noparams != 0) and ((name(.)=string($binder)) or (name(.)=&quot;CAST&quot;))">
-     <xsl:choose>
-     <xsl:when test="name(.) = string($binder)">
-      <xsl:if test="$target = 0">
-       <xsl:choose>
-       <xsl:when test="string($binder) = &quot;LAMBDA&quot;">
-        <m:ci>
-         <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="target/@binder"/></xsl:with-param></xsl:call-template>
-        </m:ci>
-       </xsl:when>
-       <xsl:otherwise> 
-        <Param name="{target/@binder}">
-         <xsl:apply-templates select="source"/>
-        </Param>
-       </xsl:otherwise>
-       </xsl:choose>
-      </xsl:if>
-      <xsl:apply-templates select="target/*[1]" mode="abstparams">
-       <xsl:with-param name="noparams" select="$noparams - 1"/>
-       <xsl:with-param name="target" select="$target"/>
-       <xsl:with-param name="binder" select="$binder"/>
-      </xsl:apply-templates>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-templates select="term/*[1]" mode="abstparams">
-       <xsl:with-param name="noparams" select="$noparams"/>
-       <xsl:with-param name="target" select="$target"/>
-       <xsl:with-param name="binder" select="$binder"/>
-      </xsl:apply-templates>
-     </xsl:otherwise>
-     </xsl:choose>
-    </xsl:when>
-    <xsl:otherwise> 
-     <xsl:choose>
-     <xsl:when test="($target = 1) and ($noparams != 0)">
-      <m:apply>
-      <m:csymbol>app</m:csymbol>
-<!-- Mancava modalita': sono all'interno di un termine -->
-      <xsl:apply-templates select="." mode="pure"/>
-      <xsl:call-template name="printparam"><xsl:with-param name="noleft" select="$noparams"/></xsl:call-template>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:choose>
-      <xsl:when test="$noparams != 0">
-      <xsl:call-template name="printparam"><xsl:with-param name="noleft" select="$noparams"/></xsl:call-template>
-      </xsl:when>
-      <xsl:otherwise>
-       <xsl:if test="$target = 1">
-<!-- Mancava modalita': con target=1 posso provenire sia da un oggetto che da un termine -->
-        <xsl:choose>
-        <xsl:when test="string($binder) = &quot;LAMBDA&quot;">
-        <!-- CSC: era pure, ma deve essere noannot. Giusto, Irene? -->
-         <xsl:apply-templates select="." mode="noannot"/>
-        </xsl:when>
-        <xsl:otherwise>
-         <xsl:apply-templates select="."/>
-        </xsl:otherwise>
-        </xsl:choose>
-       </xsl:if>
-      </xsl:otherwise>
-      </xsl:choose>
-     </xsl:otherwise>
-     </xsl:choose>
-    </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<xsl:template name="printparam">
-<xsl:param name="noleft" select="0"/>
-<xsl:param name="number" select="1"/>
-    <xsl:if test="$noleft != 0">
-     <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value">$<xsl:value-of select="$number"/></xsl:with-param></xsl:call-template></m:ci>
-     <xsl:call-template name="printparam"><xsl:with-param name="noleft" select="$noleft - 1"/><xsl:with-param name="number" select="$number + 1"/></xsl:call-template>  
-    </xsl:if>
-</xsl:template>
-
-<xsl:template match="*" mode="counting">
-<xsl:param name="noparams" select="0"/>
-<xsl:param name="count" select="0"/>
- <xsl:choose>
- <xsl:when test="name(.) = &quot;PROD&quot;">
-  <xsl:apply-templates select="target/*[1]" mode="counting">
-   <xsl:with-param name="noparams" select="$noparams"/>
-   <xsl:with-param name="count" select="$count + 1"/>
-  </xsl:apply-templates>
- </xsl:when>
- <xsl:when test="name(.) = &quot;CAST&quot;">
-  <xsl:apply-templates select="term/*[1]" mode="counting">
-   <xsl:with-param name="noparams" select="$noparams"/>
-   <xsl:with-param name="count" select="$count"/> 
-  </xsl:apply-templates>
- </xsl:when>
- <xsl:otherwise>
-  <xsl:value-of select="$count - $noparams"/>
- </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-</xsl:stylesheet> 

diff --git a/helm/style/proofs.xsl b/helm/style/proofs.xsl
deleted file mode 100644 (file)
index 5a34d8a..0000000
--- a/helm/style/proofs.xsl
+++ /dev/null
@@ -1,922 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--******************************************************************--> 
-<!-- Basic Logic                                                      -->
-<!-- (completely) Revisited: february 2001, Andrea Asperti            -->
-<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena                 -->
-<!--******************************************************************-->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm">
-
-<!-- ************************* LOGIC *********************************-->
-
-<!-- Proof objects -->
-
-<!-- <xsl:key name="typeid" use="@of" match="TYPE"/> -->
-
-<!-- ALL this elements does not have inner type -->
-<xsl:template match="LETIN|PROD|REL|SORT|VAR|META|CONST|MUTIND|MUTCONSTRUCT" mode="noannot">
-<xsl:apply-templates select="." mode="pure"/>
-</xsl:template>
-
-<!-- ALL ELEMENTS WITH A TYPE ARE TRANSLATED AS A PROOF-ELEMENT -->
-
-<!-- LAMBDA has inner type only if it is not nested inside another lambda -->
-<xsl:template match="LAMBDA" mode="noannot">
- <xsl:variable name="id" select="@id"/>
- <xsl:choose>
-  <xsl:when test="$naturalLanguage='yes' and @sort='Prop' and name(../..) != 'LAMBDA'">
-   <m:apply helm:xref="{@id}">
-    <m:csymbol>proof</m:csymbol>
-    <xsl:apply-templates mode="proof_transform" select="."/>
-    <xsl:apply-templates mode="pure" select="$InnerTypes/InnerTypes/TYPE[@of=$id]/*"/>
-   </m:apply>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:apply-templates select="." mode="pure"/>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<!-- ALL these elements have inner type -->
-<xsl:template match="CAST|APPLY|MUTCASE|FIX|COFIX" mode="noannot">
- <xsl:variable name="id" select="@id"/>
- <xsl:choose>
-  <xsl:when test="$naturalLanguage='yes' and @sort='Prop'">
-   <m:apply helm:xref="{@id}">
-    <m:csymbol>proof</m:csymbol>
-    <xsl:apply-templates mode="proof_transform" select="."/>
-    <!-- <xsl:apply-templates mode="try_inductive" select="."/> -->
-    <xsl:apply-templates mode="pure" select="$InnerTypes/InnerTypes/TYPE[@of=$id]/*"/>
-   </m:apply>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:choose>
-    <xsl:when test="name()='APPLY'">
-     <!-- This is the case of an applicative expression wich is not
-          a proof but could contains proofs...
-          MODE LETIN OR MODE PURE ??? Big question -->
-     <xsl:apply-templates select="." mode="pure"/>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:apply-templates select="." mode="pure"/>
-    </xsl:otherwise>
-   </xsl:choose>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<!-- si presuppone che il tipo induttivo non sia mutuamente 
-     induttivo. Bisognerebbe andare a vedere l'utlimo parametro
-     del presunto "principio di induzione", tirare fuori il tipo induttivo
-     e vedere se il suo nome coincide con il prefisso di _ind. 
-     Ad esempio nat_double_ind e' definito dall'utente. L'ultimo
-     parametro di nat_double_ind e' di tipo nat, e nat e' diverso
-     da nat_double. Per ora, verifico solo l'esistenza di nat_double,
-     ma questo, benche' non porti ad errore, non copre tutti i
-     casi per quelli mutuamente induttivi -->
-
-<xsl:template mode="try_inductive" match="APPLY">
-   <xsl:variable name="id" select="@id"/>
-   <xsl:choose>
-    <xsl:when test="CONST[1]">
-     <xsl:variable name="uri" select="CONST[1]/@uri"/>
-     <xsl:choose>
-      <xsl:when test="contains($uri,'_ind.con')">
-       <xsl:variable name="ind_uri" 
-         select="concat(substring-before($uri,'_ind.con'),'.ind')"/>
-       <xsl:variable name="InductiveTypeUrl"><xsl:call-template name="URLofURI4getter"><xsl:with-param name="uri" select="$ind_uri"/></xsl:call-template></xsl:variable>
-       <xsl:variable name="inductive_def" 
-     select="document($InductiveTypeUrl)/InductiveDefinition"/>
-       <!-- check if the corresponding inductive definition actually
-            exists -->
-       <xsl:choose>
-        <xsl:when test="$inductive_def">
-         <xsl:variable name="ind_name">
-          <xsl:call-template name="get_name">
-           <xsl:with-param name="uri" select="$uri"/>
-          </xsl:call-template>
-         </xsl:variable>
-         <xsl:variable name="no_params">
-          <xsl:call-template name="get_no_params">
-           <xsl:with-param name="first_uri" select="$CICURI"/>
-           <xsl:with-param name="second_uri" select="$uri"/>
-          </xsl:call-template>
-         </xsl:variable>
-         <xsl:apply-templates mode="inductive" select=".">
-          <xsl:with-param name="inductive_def_uri" 
-           select="$ind_uri"/>
-          <xsl:with-param name="inductive_def" 
-           select="$inductive_def"/>
-          <xsl:with-param name="section_params" select="$no_params"/>
-          <xsl:with-param name="inductive_def_index" select="1"/>
-          <xsl:with-param name="inductive_def_name" select="$ind_name"/>
-         </xsl:apply-templates>
-        </xsl:when>
-        <xsl:otherwise>
-         <xsl:apply-templates mode="letin" select="."/>
-        </xsl:otherwise>
-       </xsl:choose>
-      </xsl:when>
-      <xsl:otherwise>
-       <xsl:apply-templates mode="letin" select="."/>
-      </xsl:otherwise>
-     </xsl:choose>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:apply-templates mode="letin" select="."/>
-    </xsl:otherwise>
-   </xsl:choose>
-</xsl:template>
-
-<xsl:template mode="eq_transitive" match="*">
- <!-- <m:ci>eccomi-1: <xsl:value-of select="name()"/></m:ci> -->
- <xsl:choose>
-  <xsl:when test="name()='APPLY'">
-   <!-- <m:ci>eccomi-2: <xsl:value-of select="CONST[1]/@uri"/></m:ci> -->
-   <xsl:variable name="id" select="@id"/>
-   <xsl:choose>
-    <!-- ricordarsi di trattare il parametro -->
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/CSetoids/CSetoid_basics/eq_transitive_unfolded.con'] and count(child::*) = 7">
-     <!-- <m:ci>eccomi-3</m:ci> -->
-     <xsl:apply-templates mode="eq_transitive" select="*[6]"/>
-     <xsl:apply-templates mode="noannot" select="*[4]"/>
-     <xsl:apply-templates mode="eq_transitive" select="*[7]"/>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:call-template name="generate_side_proof">
-      <xsl:with-param name="proof" select="."/>
-      <xsl:with-param name="show_statement" select="0"/>
-     </xsl:call-template> 
-    </xsl:otherwise>
-   </xsl:choose>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:call-template name="generate_side_proof">
-    <xsl:with-param name="proof" select="."/>
-    <xsl:with-param name="show_statement" select="0"/>
-   </xsl:call-template>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<xsl:template mode="diseq" match="*">
-  <xsl:param name="rel" select="'eq'"/>
-  <xsl:choose>
-  <xsl:when test="name()='APPLY'">
-      <xsl:variable name="id" select="@id"/>
-   <xsl:choose>
-    <!-- ricordarsi di trattare il parametro -->
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/COrdFields/Basic_Properties_of_leEq/leEq_transitive.con'] and count(child::*) = 7">
-       <xsl:apply-templates mode="diseq" select="*[6]">
-        <xsl:with-param name="rel" select="'leq'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[4]"/>
-       <xsl:apply-templates mode="diseq" select="*[7]">
-        <xsl:with-param name="rel" select="'leq'"/>
-       </xsl:apply-templates>
-    </xsl:when> 
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/COrdFields/Basic_Properties_of_leEq/leEq_wdl.con'] and count(child::*) = 7">
-       <m:eq/>
-       <!-- <m:ci><xsl:value-of select="'eq'"/></m:ci> -->
-       <xsl:call-template name="generate_side_proof">
-        <xsl:with-param name="proof" select="*[7]"/>
-        <xsl:with-param name="show_statement" select="0"/>
-       </xsl:call-template>
-       <xsl:apply-templates mode="noannot" select="*[3]"/>
-       <xsl:apply-templates mode="diseq" select="*[6]">
-        <xsl:with-param name="rel" select="'leq'"/>
-       </xsl:apply-templates>
-    </xsl:when> 
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/COrdFields/Basic_Properties_of_leEq/leEq_less_trans.con'] and count(child::*) = 7">
-       <xsl:apply-templates mode="diseq" select="*[6]">
-        <xsl:with-param name="rel" select="'leq'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[4]"/>
-       <xsl:apply-templates mode="diseq" select="*[7]">
-        <xsl:with-param name="rel" select="'lt'"/>
-       </xsl:apply-templates>
-    </xsl:when>
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/COrdFields/Basic_Properties_of_leEq/less_leEq_trans.con'] and count(child::*) = 7">
-       <xsl:apply-templates mode="diseq" select="*[6]">
-        <xsl:with-param name="rel" select="'lt'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[4]"/>
-       <xsl:apply-templates mode="diseq" select="*[7]">
-        <xsl:with-param name="rel" select="'leq'"/>
-       </xsl:apply-templates>
-    </xsl:when>  
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/COrdFields/Basic_Properties_of_leEq/leEq_wdr.con'] and count(child::*) = 7">
-       <xsl:apply-templates mode="diseq" select="*[6]">
-        <xsl:with-param name="rel" select="'leq'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[4]"/>
-       <xsl:apply-templates mode="diseq" select="*[7]">
-        <xsl:with-param name="rel" select="'eq'"/>
-       </xsl:apply-templates>
-    </xsl:when>  
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/COrdFields/COrdField_axioms/less_transitive_unfolded.con'] and count(child::*) = 7">
-      <xsl:apply-templates mode="diseq" select="*[6]">
-        <xsl:with-param name="rel" select="'lt'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[4]"/>
-       <xsl:apply-templates mode="diseq" select="*[7]">
-        <xsl:with-param name="rel" select="'lt'"/>
-       </xsl:apply-templates>
-     </xsl:when> 
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/COrdFields/COrdField_axioms/less_wdr.con'] and count(child::*) = 7">
-       <xsl:apply-templates mode="diseq" select="*[6]">
-        <xsl:with-param name="rel" select="'lt'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[4]"/>
-       <xsl:apply-templates mode="diseq" select="*[7]">
-        <xsl:with-param name="rel" select="'eq'"/>
-       </xsl:apply-templates>
-     </xsl:when>
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/COrdFields/COrdField_axioms/less_wdl.con'] and count(child::*) = 7">
-       <m:eq/>
-       <!-- <m:ci><xsl:value-of select="'eq'"/></m:ci> -->
-       <xsl:call-template name="generate_side_proof">
-        <xsl:with-param name="proof" select="*[7]"/>
-        <xsl:with-param name="show_statement" select="0"/>
-       </xsl:call-template>
-       <xsl:apply-templates mode="noannot" select="*[3]"/>
-       <xsl:apply-templates mode="diseq" select="*[6]">
-        <xsl:with-param name="rel" select="'lt'"/>
-       </xsl:apply-templates>
-    </xsl:when> 
-    <!-- 
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/CSetoids/CSetoid_basics/eq_transitive_unfolded.con'] and count(child::*) = 7">
-     <xsl:apply-templates mode="diseq" select="*[6]"/>
-     <m:eq/>
-     <xsl:apply-templates mode="noannot" select="*[4]"/>
-     <m:eq/>
-     <xsl:apply-templates mode="diseq" select="*[7]"/>
-    </xsl:when> 
-    -->
-    <xsl:otherwise>
-     <xsl:element name="{concat('m:',$rel)}"/>
-     <!-- <m:ci><xsl:value-of select="$rel"/></m:ci> -->  
-     <xsl:call-template name="generate_side_proof">
-      <xsl:with-param name="proof" select="."/>
-      <xsl:with-param name="show_statement" select="0"/>
-     </xsl:call-template> 
-    </xsl:otherwise>
-   </xsl:choose>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:element name="{concat('m:',$rel)}"/> 
-   <!-- <m:ci><xsl:value-of select="$rel"/></m:ci> --> 
-   <xsl:call-template name="generate_side_proof">
-    <xsl:with-param name="proof" select="."/>
-    <xsl:with-param name="show_statement" select="0"/>
-   </xsl:call-template>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<xsl:template mode="proof_transform" match="*">
- <xsl:choose>
-  <xsl:when test="name()='APPLY'">
-   <xsl:variable name="id" select="@id"/>
-   <xsl:choose>
-    <!-- Algebra equality (eq_transitive_unfolded) -->
-    <!-- It requires a special mode "eq_transitive"-->
-    <!-- togliere il parametro -->
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/CSetoids/CSetoid_basics/eq_transitive_unfolded.con'] and count(child::*) = 7">
-     <m:apply>
-       <m:csymbol>eq_chain</m:csymbol>
-       <xsl:apply-templates mode="noannot" select="*[3]"/>
-       <xsl:apply-templates mode="eq_transitive" select="*[6]"/>
-       <xsl:apply-templates mode="noannot" select="*[4]"/>
-       <xsl:apply-templates mode="eq_transitive" select="*[7]"/>
-       <xsl:apply-templates mode="noannot" select="*[5]"/>
-     </m:apply>
-    </xsl:when>
-    <!-- Algebra disequalities -->
-    <!-- It requires a special mode "diseq"-->
-    <!-- togliere il parametro -->
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/COrdFields/Basic_Properties_of_leEq/leEq_transitive.con'] and count(child::*) = 7">
-     <m:apply>
-       <m:csymbol>diseq_chain</m:csymbol>
-       <xsl:apply-templates mode="noannot" select="*[3]"/>
-       <xsl:apply-templates mode="diseq" select="*[6]">
-        <xsl:with-param name="rel" select="'leq'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[4]"/>
-       <xsl:apply-templates mode="diseq" select="*[7]">
-        <xsl:with-param name="rel" select="'leq'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[5]"/>
-     </m:apply>
-    </xsl:when> 
-     <xsl:when test="CONST[attribute::uri='cic:/Algebra/COrdFields/Basic_Properties_of_leEq/leEq_wdl.con'] and count(child::*) = 7">
-     <m:apply>
-       <m:csymbol>diseq_chain</m:csymbol>
-       <xsl:apply-templates mode="noannot" select="*[5]"/>
-       <m:eq/>
-       <!-- <m:ci><xsl:value-of select="'eq'"/></m:ci> -->
-       <xsl:call-template name="generate_side_proof">
-        <xsl:with-param name="proof" select="*[7]"/>
-        <xsl:with-param name="show_statement" select="0"/>
-       </xsl:call-template>
-       <xsl:apply-templates mode="noannot" select="*[3]"/>
-       <xsl:apply-templates mode="diseq" select="*[6]">
-        <xsl:with-param name="rel" select="'leq'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[4]"/>
-     </m:apply>
-    </xsl:when>
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/COrdFields/Basic_Properties_of_leEq/leEq_less_trans.con'] and count(child::*) = 7">
-     <m:apply>
-       <m:csymbol>diseq_chain</m:csymbol>
-       <xsl:apply-templates mode="noannot" select="*[3]"/>
-       <xsl:apply-templates mode="diseq" select="*[6]">
-        <xsl:with-param name="rel" select="'leq'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[4]"/>
-       <xsl:apply-templates mode="diseq" select="*[7]">
-        <xsl:with-param name="rel" select="'lt'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[5]"/>
-     </m:apply>
-    </xsl:when> 
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/COrdFields/Basic_Properties_of_leEq/less_leEq_trans.con'] and count(child::*) = 7">
-     <m:apply>
-       <m:csymbol>diseq_chain</m:csymbol>
-       <xsl:apply-templates mode="noannot" select="*[3]"/>
-       <xsl:apply-templates mode="diseq" select="*[6]">
-        <xsl:with-param name="rel" select="'lt'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[4]"/>
-       <xsl:apply-templates mode="diseq" select="*[7]">
-        <xsl:with-param name="rel" select="'leq'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[5]"/>
-     </m:apply>
-    </xsl:when>  
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/COrdFields/Basic_Properties_of_leEq/leEq_wdr.con'] and count(child::*) = 7">
-     <m:apply>
-       <m:csymbol>diseq_chain</m:csymbol>
-       <xsl:apply-templates mode="noannot" select="*[3]"/>
-       <xsl:apply-templates mode="diseq" select="*[6]">
-        <xsl:with-param name="rel" select="'leq'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[4]"/>
-       <xsl:apply-templates mode="diseq" select="*[7]">
-        <xsl:with-param name="rel" select="'eq'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[5]"/>
-     </m:apply>
-    </xsl:when>  
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/COrdFields/COrdField_axioms/less_transitive_unfolded.con'] and count(child::*) = 7">
-     <m:apply>
-       <m:csymbol>diseq_chain</m:csymbol>
-       <xsl:apply-templates mode="noannot" select="*[3]"/>
-       <xsl:apply-templates mode="diseq" select="*[6]">
-        <xsl:with-param name="rel" select="'lt'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[4]"/>
-       <xsl:apply-templates mode="diseq" select="*[7]">
-        <xsl:with-param name="rel" select="'lt'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[5]"/>
-     </m:apply>
-    </xsl:when>  
-    <!-- togliere il parametro -->
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/COrdFields/COrdField_axioms/less_wdr.con'] and count(child::*) = 7">
-     <m:apply>
-       <m:csymbol>diseq_chain</m:csymbol>
-       <xsl:apply-templates mode="noannot" select="*[3]"/>
-       <xsl:apply-templates mode="diseq" select="*[6]">
-        <xsl:with-param name="rel" select="'lt'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[4]"/>
-       <xsl:apply-templates mode="diseq" select="*[7]">
-        <xsl:with-param name="rel" select="'eq'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[5]"/>
-     </m:apply>
-    </xsl:when>
-    <!-- togliere il parametro -->
-    <xsl:when test="CONST[attribute::uri='cic:/Algebra/COrdFields/COrdField_axioms/less_wdl.con'] and count(child::*) = 7">
-     <m:apply>
-       <m:csymbol>diseq_chain</m:csymbol>
-       <xsl:apply-templates mode="noannot" select="*[5]"/>
-       <m:eq/>
-       <!-- <m:ci><xsl:value-of select="'eq'"/></m:ci> -->
-       <xsl:call-template name="generate_side_proof">
-        <xsl:with-param name="proof" select="*[7]"/>
-        <xsl:with-param name="show_statement" select="0"/>
-       </xsl:call-template>
-       <xsl:apply-templates mode="noannot" select="*[3]"/>
-       <xsl:apply-templates mode="diseq" select="*[6]">
-        <xsl:with-param name="rel" select="'lt'"/>
-       </xsl:apply-templates>
-       <xsl:apply-templates mode="noannot" select="*[4]"/>
-     </m:apply>
-    </xsl:when> 
-    <!-- EQUALITY -->
-    <xsl:when test="CONST[
- attribute::uri='cic:/Coq/Init/Logic/Equality/eq_ind.con' or
- attribute::uri='cic:/Coq/Init/Logic/Logic_lemmas/eq_ind_r.con' or
- attribute::uri='cic:/Coq/Init/Logic_Type/eqT_ind.con' or
- attribute::uri='cic:/Coq/Init/Logic_Type/eqT_ind_r.con' or
- attribute::uri='cic:/Coq/Zarith/auxiliary/eqT_ind_r.con'] and count(child::*) = 7">
-      <m:apply>
-       <m:csymbol>rw_step</m:csymbol>
-       <xsl:apply-templates mode="noannot" select="*[5]"/>
-       <xsl:apply-templates mode="pure" select="*[3]"/>
-       <xsl:apply-templates mode="pure" select="*[6]"/>
-       <xsl:call-template name="generate_side_proof">
-        <xsl:with-param name="proof" select="*[7]"/>
-       </xsl:call-template>
-       <!-- <xsl:apply-templates mode="proof_transform" select="*[7]"/> -->
-      </m:apply>
-    </xsl:when>
-    <!-- EQUALITY with extra-parameters -->
-    <xsl:when test="CONST[
- attribute::uri='cic:/Coq/Init/Logic/Equality/eq_ind.con' or
- attribute::uri='cic:/Coq/Init/Logic/Logic_lemmas/eq_ind_r.con' or
- attribute::uri='cic:/Coq/Init/Logic_Type/eqT_ind.con' or
- attribute::uri='cic:/Coq/Init/Logic_Type/eqT_ind_r.con' or
- attribute::uri='cic:/Coq/Zarith/auxiliary/eqT_ind_r.con'] and count(child::*) > 7">
-      <xsl:variable name="no_extraproofs" select="count(*[position()>7 and @sort='Prop' and (name(.)='LAMBDA' or name(.)='LETIN' or name(.)='APPLY' or name(.)='MUTCASE' or name(.)='FIX' or name(.)='COFIX')])"/>      
-      <xsl:choose>
-       <xsl:when test="$no_extraproofs=0"> 
-        <m:apply>
-         <m:csymbol>rewrite_and_apply</m:csymbol>
-         <m:apply>
-          <m:csymbol>rw_step</m:csymbol>
-          <xsl:apply-templates mode="noannot" select="*[5]"/>
-          <xsl:apply-templates mode="pure" select="*[3]"/>
-          <xsl:apply-templates mode="pure" select="*[6]"/>
-          <xsl:call-template name="generate_side_proof">
-           <xsl:with-param name="proof" select="*[7]"/>
-           </xsl:call-template>
-          <!-- <xsl:apply-templates mode="pure" select="*[7]"/> -->
-         </m:apply>
-         <xsl:apply-templates mode="noannot" select="*[position()>7]"/>
-        </m:apply>
-       </xsl:when>
-       <xsl:otherwise>
-        <xsl:choose>
-         <xsl:when test="*[5]/@sort='Prop'">
-          <m:apply helm:xref="{@id}">
-           <m:csymbol>letin</m:csymbol>
-           <m:apply>
-            <m:csymbol>let</m:csymbol>
-            <m:ci>
-             <xsl:call-template name="insert_subscript">
-              <xsl:with-param name="node_value" select="'h1'"/>
-             </xsl:call-template>
-            </m:ci>
-            <xsl:apply-templates mode="noannot" select="*[5]"/>
-           </m:apply>
-           <xsl:call-template name="gen_let">
-            <xsl:with-param name="init_pos" select="1"/>
-            <xsl:with-param name="from" select="7"/>
-           </xsl:call-template>
-           <m:apply>
-            <m:csymbol>rewrite_and_apply</m:csymbol>
-            <m:apply>
-             <m:csymbol>rw_step</m:csymbol>
-             <m:ci>
-              <xsl:call-template name="insert_subscript">
-               <xsl:with-param name="node_value" select="'h1'"/>
-              </xsl:call-template>
-             </m:ci>
-             <xsl:apply-templates mode="pure" select="*[3]"/>
-             <xsl:apply-templates mode="pure" select="*[6]"/>
-             <xsl:call-template name="generate_side_proof">
-              <xsl:with-param name="proof" select="*[7]"/>
-             </xsl:call-template>
-             <!-- <xsl:apply-templates mode="pure" select="*[7]"/> -->
-            </m:apply>
-            <xsl:apply-templates mode="flat" select="*[8]">
-             <xsl:with-param name="n">
-              <xsl:value-of select="2"/>
-             </xsl:with-param>
-            </xsl:apply-templates>
-           </m:apply>
-          </m:apply>
-         </xsl:when>
-         <xsl:otherwise>
-          <m:apply helm:xref="{@id}">
-           <m:csymbol>letin</m:csymbol>
-           <xsl:call-template name="gen_let">
-            <xsl:with-param name="init_pos" select="0"/>
-            <xsl:with-param name="form" select="7"/>
-           </xsl:call-template>
-           <m:apply>
-            <m:csymbol>rewrite_and_apply</m:csymbol>
-            <m:apply>
-             <m:csymbol>rw_step</m:csymbol>
-             <xsl:apply-templates mode="pure" select="*[5]"/>
-             <xsl:apply-templates mode="pure" select="*[3]"/>
-             <xsl:apply-templates mode="pure" select="*[6]"/>             
-             <xsl:call-template name="generate_side_proof">
-              <xsl:with-param name="proof" select="*[7]"/>
-             </xsl:call-template>
-             <!-- <xsl:apply-templates mode="pure" select="*[7]"/> -->
-            </m:apply>
-            <xsl:apply-templates mode="flat" select="*[8]">
-             <xsl:with-param name="n">
-              <xsl:value-of select="1"/>
-             </xsl:with-param>
-            </xsl:apply-templates>
-           </m:apply>
-          </m:apply>
-         </xsl:otherwise>
-        </xsl:choose>
-       </xsl:otherwise>
-      </xsl:choose>
-    </xsl:when>
-    <!-- False_ind -->
-    <xsl:when test="CONST[
-     attribute::uri='cic:/Coq/Init/Logic/False_ind.con'] and 
-     count(child::*) = 3">
-     <m:apply helm:xref="{@id}">
-       <m:csymbol>false_ind</m:csymbol>
-       <m:ci>cic:/Coq/Init/Logic/False_ind.con</m:ci>
-       <xsl:apply-templates mode="noannot" select="*[3]"/>
-     </m:apply>
-    </xsl:when>
-    <!-- gestire meglio il caso di and_ind quando la prova 
-         non e' della forma \x.\y.M -->
-    <xsl:when test="CONST[
- attribute::uri='cic:/Coq/Init/Logic/Conjunction/and_ind.con'] 
- and count(child::*) = 6 
- and name(*[5])='LAMBDA' 
- and name(*[5]/target/*[1])='LAMBDA'"> 
-      <m:apply helm:xref="{@id}">
-       <m:csymbol>and_ind</m:csymbol>
-       <xsl:apply-templates mode="noannot" select="*[6]"/>
-       <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="*[5]/target/@binder"/></xsl:with-param></xsl:call-template></m:ci>
-       <xsl:apply-templates mode="pure" select="*[5]/source/*"/>
-       <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="*[5]/target/LAMBDA/target/@binder"/></xsl:with-param></xsl:call-template></m:ci>
-       <xsl:apply-templates mode="pure" select="*[5]/target/LAMBDA/source/*"/>
-       <xsl:apply-templates mode="proof_transform" select="*[5]/target/LAMBDA/target/*"/> 
-      </m:apply>
-    </xsl:when>
-    <xsl:when test="CONST[
- attribute::uri='cic:/Coq/Init/Logic/Disjunction/or_ind.con'] 
- and count(child::*) = 7">
-      <xsl:choose>
-       <xsl:when test="name(*[5])='LAMBDA' 
-                 and name(*[6])='LAMBDA'">
-        <xsl:variable name="definition_url" 
-            select="'cic:/Coq/Init/Logic/Disjunction/or.ind'"/>
-        <m:apply helm:xref="{@id}">
-         <m:csymbol>full_or_ind</m:csymbol>
-         <xsl:apply-templates mode="noannot" select="*[7]"/>
-         <xsl:apply-templates mode="pure" 
-              select="$InnerTypes/InnerTypes/TYPE[@of=$id]/*"/>
-         <m:apply>
-          <m:csymbol>left_case</m:csymbol>
-          <m:bvar>
-           <m:ci>
-            <xsl:value-of select="*[5]/target/@binder"/>
-           </m:ci>
-           <m:type>
-            <xsl:apply-templates mode="pure" select="*[5]/source/*[1]"/>
-           </m:type>
-          </m:bvar>
-          <xsl:apply-templates mode="noannot" select="*[5]/target/*[1]"/>
-         </m:apply>
-         <m:apply>
-          <m:csymbol>right_case</m:csymbol>
-          <m:bvar>
-           <m:ci>
-            <xsl:apply-templates mode="pure" select="*[6]/target/@binder"/>
-           </m:ci>
-           <m:type>
-            <xsl:apply-templates mode="pure" select="*[6]/source/*[1]"/>
-           </m:type>
-          </m:bvar>
-          <xsl:apply-templates mode="noannot" select="*[6]/target/*[1]"/>
-         </m:apply>
-        </m:apply>
-       </xsl:when>
-       <xsl:otherwise>
-        <m:apply helm:xref="{@id}">
-         <m:csymbol>or_ind</m:csymbol>
-         <xsl:apply-templates mode="noannot" select="*[7]"/>
-         <xsl:apply-templates mode="pure" 
-              select="$InnerTypes/InnerTypes/TYPE[@of=$id]/*"/>
-         <xsl:apply-templates mode="pure" select="*[5]"/>
-         <xsl:apply-templates mode="pure" select="*[6]"/>
-        </m:apply>
-       </xsl:otherwise>
-      </xsl:choose>
-    </xsl:when>
-    <!-- ex_ind, exT_ind -->
-      <xsl:when test="(CONST[attribute::uri='cic:/Coq/Init/Logic_Type/exT_ind.con'] or
-      CONST[attribute::uri='cic:/Coq/Init/Logic/First_order_quantifiers/ex_ind.con'])  
- and count(child::*) = 6 
- and name(*[5])='LAMBDA' 
- and name(*[5]/target/*[1])='LAMBDA'"> 
-      <m:apply helm:xref="{@id}">
-       <m:csymbol>ex_ind</m:csymbol>
-       <xsl:apply-templates mode="noannot" select="*[6]"/>
-       <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="*[5]/target/@binder"/></xsl:with-param></xsl:call-template></m:ci>
-       <xsl:apply-templates mode="pure" select="*[5]/source/*"/>
-       <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="*[5]/target/LAMBDA/target/@binder"/></xsl:with-param></xsl:call-template></m:ci>
-       <xsl:apply-templates mode="pure" select="*[5]/target/LAMBDA/source/*"/>
-       <xsl:apply-templates mode="proof_transform" select="*[5]/target/LAMBDA/target/*"/>
-      </m:apply>
-    </xsl:when>
-    <xsl:when test="name(*[1])='CONST'">
-     <xsl:apply-templates mode="try_inductive" select="."/>
-    </xsl:when>
-    <!-- patch temporanea per la gestione di redex -->
-    <xsl:when test="name(*[1])='LAMBDA' and count(child::*)=2
-         and *[2]/@sort='Prop'">
-     <m:apply helm:xref="{@id}">
-      <m:csymbol>letin</m:csymbol>
-      <m:apply>
-       <m:csymbol>let</m:csymbol>
-       <m:ci>
-        <xsl:call-template name="insert_subscript">
-         <xsl:with-param name="node_value">
-          <xsl:value-of select="*[1]/target/@binder"/>
-         </xsl:with-param>
-        </xsl:call-template>
-       </m:ci>
-       <xsl:apply-templates mode="noannot" select="*[2]"/>
-      </m:apply>
-      <xsl:apply-templates mode="proof_transform" select="*[1]/target/*[1]"/>
-     </m:apply>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:apply-templates select="." mode="letin"/>
-    </xsl:otherwise>
-   </xsl:choose>
-  </xsl:when>
-  <xsl:when test="name()='LAMBDA'">
-   <xsl:choose>
-     <xsl:when test="(name(target/*[1])='APPLY'  and
-      name(target/*[1]/*[1])='CONST' and
-      (target/*[1]/*[1]/@uri='cic:/Coq/Init/Logic_Type/eqT_ind.con' or
-       target/*[1]/*[1]/@uri='cic:/Coq/Init/Logic_Type/eqT_ind_r.con' or
-       target/*[1]/*[1]/@uri='cic:/Coq/Zarith/auxiliary/eqT_ind_r.con')
-      and count(target/*[1]/*) = 8 
-      and name(target/*[1]/*[8])='REL'
-      and target/@binder = target/*[1]/*[8]/@binder )"> 
-      <m:apply>
-       <m:csymbol>rw_step</m:csymbol>
-       <xsl:apply-templates mode="noannot" select="target/*[1]/*[5]"/>
-       <xsl:apply-templates mode="pure" select="target/*[1]/*[3]"/>
-       <xsl:apply-templates mode="pure" select="target/*[1]/*[6]"/>
-       <xsl:call-template name="generate_side_proof">
-        <xsl:with-param name="proof" select="target/*[1]/*[7]"/>
-       </xsl:call-template>
-       <!-- <xsl:apply-templates mode="proof_transform" select="target/*[1]/*[7]"/> -->
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-templates mode="pure" select="."/>
-     </xsl:otherwise>
-    </xsl:choose>
-   </xsl:when>
-  <xsl:otherwise>
-   <xsl:apply-templates select="." mode="pure"/>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<xsl:template name="is_simple">
- <xsl:param name="proof" select="/.."/>
- <xsl:value-of select="(count($proof/*)=0) or ((name($proof)='APPLY') and (count($proof/*[@sort='Prop' and (name(.)='LAMBDA' or name(.)='LETIN' or name(.)='APPLY' or name(.)='MUTCASE' or name(.)='FIX' or name(.)='COFIX')]) = 0))"/>
-</xsl:template>
-
-<xsl:template name="generate_side_proof">
- <xsl:param name="proof" select="/.."/>
- <xsl:param name="show_statement" select="1"/>
-<!-- 
- <xsl:variable name="is_simple">
-  <xsl:call-template name="is_simple">
-   <xsl:with-param name="proof" select="$proof"/>
-  </xsl:call-template>
- </xsl:variable> -->
-<xsl:variable name="is_simple" select="(count($proof/*)=0) or ((name($proof)='APPLY') and (count($proof/*[@sort='Prop' and (name(.)='LAMBDA' or name(.)='LETIN' or name(.)='APPLY' or name(.)='MUTCASE' or name(.)='FIX' or name(.)='COFIX')]) = 0))"/>
- <xsl:choose>
-  <xsl:when test="$is_simple">
-   <xsl:choose>
-    <xsl:when test="name($proof)='APPLY'">
-     <xsl:apply-templates select="$proof" mode="letin"/>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:apply-templates select="$proof" mode="pure"/>
-    </xsl:otherwise>
-   </xsl:choose>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:variable name="id" select="@id"/>
-   <m:apply helm:xref="{@id}">
-    <xsl:choose>
-     <xsl:when test="$show_statement = 1">
-      <m:csymbol>proof</m:csymbol>
-     </xsl:when>
-     <xsl:otherwise>
-      <m:csymbol>side_proof</m:csymbol>
-     </xsl:otherwise>
-    </xsl:choose>
-    <xsl:apply-templates mode="proof_transform" select="$proof"/>
-    <xsl:apply-templates mode="pure" select="$InnerTypes/InnerTypes/TYPE[@of=$proof/@id]/*"/>
-   </m:apply>
-   <!-- <xsl:apply-templates select="$proof" mode="noannot"/> -->
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<xsl:variable name="no_subproofs" select="count(*[@sort='Prop' and (name(.)='LAMBDA' or name(.)='LETIN' or name(.)='APPLY' or name(.)='MUTCASE' or name(.)='FIX' or name(.)='COFIX')])"/>
-
-<xsl:template match="APPLY" mode="letin">
-   <xsl:variable name="no_subproofs" select="count(*[@sort='Prop' and (name(.)='LAMBDA' or name(.)='LETIN' or name(.)='APPLY' or name(.)='MUTCASE' or name(.)='FIX' or name(.)='COFIX')])"/>
-   <!-- <m:cn><xsl:value-of select="$no_subproofs"/></m:cn> -->
-   <xsl:choose>
-    <xsl:when test="$naturalLanguage='yes' and ($no_subproofs = 1)">
-     <m:apply helm:xref="{@id}">
-      <m:csymbol>letin1</m:csymbol>
-      <xsl:apply-templates mode="noannot" select="*[@sort='Prop' and (name(.)='LAMBDA' or name(.)='LETIN' or name(.)='APPLY' or name(.)='MUTCASE' or name(.)='FIX' or name(.)='COFIX')]"/>
-      <!-- now re-process the application -->
-      <m:apply helm:xref="{@id}">
-       <m:csymbol>app</m:csymbol>
-       <!-- mode previous looks for siblings: 
-            call with the first child -->
-       <xsl:apply-templates mode="previous" select="*[1]"/>
-      </m:apply>
-     </m:apply>
-    </xsl:when>
-    <xsl:when test="$naturalLanguage='yes' and ($no_subproofs > 1)">
-     <m:apply helm:xref="{@id}">
-      <m:csymbol>letin</m:csymbol>
-      <!-- first process all subproofs (let-in) -->
-      <xsl:call-template name="gen_let"/>
-      <!-- now re-process the application  -->
-      <m:apply helm:xref="{@id}">
-       <m:csymbol>app</m:csymbol>
-       <!-- mode flat looks for siblings: call with the first child -->
-       <xsl:apply-templates mode="flat" select="*[1]"/>
-      </m:apply>
-     </m:apply>
-    </xsl:when>
-    <xsl:otherwise>
-     <xsl:choose>
-     <xsl:when test="@sort='Prop'">
-      <m:apply>
-       <m:csymbol>app</m:csymbol>
-       <xsl:apply-templates mode="erase" select="*[1]"/>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-templates mode="pure" select="."/>
-     </xsl:otherwise>
-     </xsl:choose>
-    </xsl:otherwise>
-   </xsl:choose>
-</xsl:template>
-
-<xsl:template name="gen_let">
- <xsl:param name="init_pos" select="0"/>
- <xsl:param name="from" select="0"/>
-      <xsl:for-each select="*[position()>$from and @sort='Prop' and (name(.)='LAMBDA' or name(.)='LETIN' or name(.)='APPLY' or name(.)='MUTCASE' or name(.)='FIX' or name(.)='COFIX')]">
-       <m:apply>
-        <m:csymbol>let</m:csymbol>
-        <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="concat('h',position()+$init_pos)"/></xsl:with-param></xsl:call-template></m:ci>
-        <xsl:apply-templates mode="noannot" select="."/>
-       </m:apply>
-      </xsl:for-each>
-</xsl:template>
-
-<xsl:template match="*" mode="erase">
-  <xsl:choose>
-   <xsl:when test="@sort='Prop' or $naturalLanguage='no'">
-    <xsl:apply-templates mode="pure" select="."/>
-   </xsl:when>
-   <xsl:otherwise>
-    <m:ci>.</m:ci>
-   </xsl:otherwise>
-   </xsl:choose>
- <xsl:apply-templates mode="erase" select="following-sibling::*[1]"/>
-</xsl:template>
-
-<xsl:template match="*" mode="previous">
- <xsl:choose>
-  <xsl:when test="$naturalLanguage='yes' and @sort='Prop' and (name(.)='LAMBDA' or name(.)='LETIN' or name(.)='APPLY' or name(.)='MUTCASE' or name(.)='FIX' or name(.)='COFIX')">
-   <m:ci>previous</m:ci>
-  </xsl:when>
-  <xsl:otherwise>
-   <!-- forse bisognerebbe trattare solo l'elemento di testa -->
-   <xsl:choose>
-   <xsl:when test="@sort='Prop' or $naturalLanguage='no'">
-    <xsl:apply-templates mode="pure" select="."/>
-   </xsl:when>
-   <xsl:otherwise>
-    <m:ci>.</m:ci>
-   </xsl:otherwise>
-   </xsl:choose>
-   <!-- <xsl:apply-templates select="." mode="pure"/> -->
-  </xsl:otherwise>
- </xsl:choose>
- <xsl:apply-templates mode="previous" select="following-sibling::*[1]"/>
-</xsl:template>
-
-<xsl:template match="*" mode="flat">
- <xsl:param name="n" select="1"/>
- <xsl:variable name="id" select="@id"/>
- <xsl:choose>
-  <xsl:when test="$naturalLanguage='yes' and @sort='Prop' and (name(.)='LAMBDA' or name(.)='LETIN' or name(.)='APPLY' or name(.)='MUTCASE' or name(.)='FIX' or name(.)='COFIX')">
-   <m:ci>
-    <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="concat('h',$n)"/></xsl:with-param></xsl:call-template>
-   </m:ci>
-   <xsl:apply-templates mode="flat" select="following-sibling::*[1]">
-    <xsl:with-param name="n" select="$n+1"/>
-   </xsl:apply-templates>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:choose>
-    <xsl:when test="name()='REL' or @sort='Prop' or $naturalLanguage='no'">
-     <xsl:apply-templates mode="pure" select="."/>
-    </xsl:when>
-    <xsl:otherwise>
-     <m:ci>.</m:ci>
-    </xsl:otherwise>
-   </xsl:choose>
-   <!-- <xsl:apply-templates mode="pure" select="."/> -->
-   <xsl:apply-templates mode="flat" select="following-sibling::*[1]">
-    <xsl:with-param name="n" select="$n"/>
-   </xsl:apply-templates>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<!-- Auxiliary functions -->
-<!-- OMDOC: now we have name_of_uri generalized on the extension that -->
-<!-- can replace the next template                                    -->
-<xsl:template name="get_name">
- <xsl:param name="uri" select="''"/>
- <xsl:variable name="sub_after" select="substring-after($uri,'/')"/>
- <xsl:choose>
-  <xsl:when test="contains($sub_after,'/')">
-   <xsl:call-template name="get_name">
-    <xsl:with-param name="uri" select="$sub_after"/>
-   </xsl:call-template>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:value-of select="substring-before($sub_after,'_ind.con')"/>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<!-- <xsl:template match="APPLY[CONST[
- attribute::uri='cic:/Coq/Init/Logic/Conjunction/and_ind.con']]" mode="appflat">
-    <xsl:choose>
-     <xsl:when test="count(child::*) > 4">
-      <m:apply helm:xref="{@id}">
-       <m:csymbol>app</m:csymbol>
-       <xsl:apply-templates mode="pure" select="*[1]"/>
-       <m:ci>*</m:ci>
-       <m:ci>*</m:ci>
-       <m:ci>*</m:ci>
-       <xsl:apply-templates mode="flat" select="*[5]"/>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <m:apply helm:xref="{@id}">
-       <m:csymbol>app</m:csymbol>
-       <xsl:apply-templates mode="flat" select="*[1]"/>
-      </m:apply>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>  -->
-
-
-</xsl:stylesheet>

diff --git a/helm/style/reals.xsl b/helm/style/reals.xsl
deleted file mode 100644 (file)
index 09fd63a..0000000
--- a/helm/style/reals.xsl
+++ /dev/null
@@ -1,319 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--******************************************************************--> 
-<!-- Reals                                                            -->
-<!-- First draft: April 3 2000                                        -->
-<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena, Guidi          -->
-<!--******************************************************************-->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm">
-
-
-<!-- ************************* LOGIC *********************************-->
-
-<!-- REALS -->
-
-<!--
-<xsl:template match="CONST[attribute::uri='cic:/Coq/Reals/Rdefinitions/R.con']" mode="pure">
- <m:reals/>
-</xsl:template>
--->
-
-<!-- 0 e 1 -->
-
-<xsl:template match="CONST[attribute::uri='cic:/Coq/Reals/Rdefinitions/R0.con']" mode="pure">
- <m:cn definitionURL="{@uri}" helm:xref="{@id}">0</m:cn>
-</xsl:template>
-
-<xsl:template match="CONST[attribute::uri='cic:/Coq/Reals/Rdefinitions/R1.con']" mode="pure">
- <m:cn definitionURL="{@uri}" helm:xref="{@id}">1</m:cn>
-</xsl:template>
-
-<!-- Unary Operations and power -->
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rdefinitions/Ropp.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'minus'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rbasic_fun/Rabsolu.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'abs'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rfunctions/fact.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'factorial'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rbase/Rsqr.con']" mode="pure">
-   <xsl:variable name="mbody">
-      <xsl:apply-templates select="*[2]" mode="noannot"/>
-      <m:cn>2</m:cn>
-   </xsl:variable>
-   <xsl:call-template name="out-mml-op">
-      <xsl:with-param name="arity" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'power'"/>
-      <xsl:with-param name="mbody" select="$mbody"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rdefinitions/Rinv.con']" mode="pure">
-   <xsl:variable name="mbody1">
-      <xsl:apply-templates select="*[2]" mode="noannot"/>
-      <xsl:variable name="mbody2">
-         <m:cn>1</m:cn>
-      </xsl:variable>
-      <xsl:call-template name="out-mml-op">
-         <xsl:with-param name="arity" select="1"/>
-         <xsl:with-param name="c-tag" select="CONST"/>
-         <xsl:with-param name="m-tag" select="'minus'"/>
-         <xsl:with-param name="mbody" select="$mbody2"/>
-      </xsl:call-template>
-   </xsl:variable>
-   <xsl:call-template name="out-mml-op">
-      <xsl:with-param name="arity" select="1"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'power'"/>
-      <xsl:with-param name="mbody" select="$mbody1"/>
-   </xsl:call-template>
-</xsl:template>
-
-<!-- Binary Operations and Relations -->
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rdefinitions/Rle.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'leq'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rdefinitions/Rlt.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'lt'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rdefinitions/Rge.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'geq'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rdefinitions/Rgt.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'gt'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rdefinitions/Rplus.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'plus'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rdefinitions/Rminus.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'minus'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rdefinitions/Rmult.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'times'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rdefinitions/Rdiv.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'divide'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rbasic_fun/Rmin.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'min'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rbasic_fun/Rmax.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'max'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/Reals/Rfunctions/pow.con']" mode="pure">
-   <xsl:call-template name="mk-mml-op-noannot">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="CONST"/>
-      <xsl:with-param name="m-tag" select="'power'"/>
-   </xsl:call-template>
-</xsl:template>
-
-<!-- LIMIT -->
-
-<xsl:template match="APPLY[CONST[
- attribute::uri='cic:/Coq/Reals/Rlimit/limit1_in.con']]" mode="pure">
-    <xsl:choose>
-     <xsl:when test="count(child::*) = 5">
-      <m:apply>
-       <m:eq/>
-       <xsl:choose>
-        <xsl:when test="name(*[2]) = 'LAMBDA'">
-         <m:apply helm:xref="{@id}">
-          <m:limit>
-           <xsl:attribute name="definitionURL">
-            <xsl:value-of select="CONST/@uri"/> 
-           </xsl:attribute>
-           <xsl:attribute name="helm:xref">
-            <xsl:value-of select="CONST/@id"/>
-           </xsl:attribute>
-          </m:limit>
-          <m:bvar>
-           <m:ci>
-            <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="LAMBDA/target/@binder"/></xsl:with-param></xsl:call-template>
-           </m:ci>
-          </m:bvar>
-          <m:lowlimit>
-           <xsl:apply-templates select="*[5]" mode="noannot"/>
-          </m:lowlimit>
-          <xsl:apply-templates select="*[2]/target" mode="noannot"/>
-         </m:apply>
-        </xsl:when>
-        <xsl:otherwise>
-         <m:apply helm:xref="{@id}">
-          <m:limit>
-            <xsl:attribute name="definitionURL">
-             <xsl:value-of select="CONST/@uri"/> 
-            </xsl:attribute>
-            <xsl:attribute name="helm:xref">
-             <xsl:value-of select="CONST/@id"/>
-            </xsl:attribute>
-           </m:limit>
-          <m:bvar>
-           <m:ci>$x</m:ci>
-          </m:bvar>
-          <m:lowlimit>
-           <xsl:apply-templates select="*[5]" mode="noannot"/>
-          </m:lowlimit>
-          <m:apply>
-           <m:csymbol>app</m:csymbol>
-           <xsl:apply-templates select="*[2]" mode="noannot"/>
-           <m:ci>$x</m:ci>
-          </m:apply>
-         </m:apply>
-        </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[4]" mode="noannot"/>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- DIFFERENTIATION -->
-
-<xsl:template match="APPLY[CONST[
- attribute::uri='cic:/Coq/Reals/Rderiv/D_in.con']]" mode="pure">
-    <xsl:choose>
-     <xsl:when test="count(child::*) = 4">
-      <m:apply>
-       <m:eq/>
-       <xsl:choose>
-        <xsl:when test="name(*[2]) = 'LAMBDA'">
-         <m:apply helm:xref="{@id}">
-          <m:diff>
-           <xsl:attribute name="definitionURL">
-            <xsl:value-of select="CONST/@uri"/> 
-           </xsl:attribute>
-           <xsl:attribute name="helm:xref">
-            <xsl:value-of select="CONST/@id"/>
-           </xsl:attribute>
-          </m:diff>
-          <m:bvar>
-           <m:ci><xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="LAMBDA[1]/target/@binder"/></xsl:with-param></xsl:call-template></m:ci>
-          </m:bvar>
-          <xsl:apply-templates select="*[2]/target" mode="noannot"/>
-         </m:apply>
-        </xsl:when>
-        <xsl:otherwise>
-         <m:apply helm:xref="{@id}">
-          <m:diff/>
-          <m:bvar>
-           <m:ci>$x</m:ci>
-          </m:bvar>
-          <m:apply>
-           <m:csymbol>app</m:csymbol>
-           <xsl:apply-templates select="*[2]" mode="noannot"/>
-           <m:ci>$x</m:ci>
-          </m:apply>
-         </m:apply>
-        </xsl:otherwise>
-       </xsl:choose>
-       <xsl:apply-templates select="*[4]" mode="noannot"/>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/ricerca.xsl b/helm/style/ricerca.xsl
deleted file mode 100644 (file)
index e22a2a9..0000000
--- a/helm/style/ricerca.xsl
+++ /dev/null
@@ -1,104 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<xsl:stylesheet version="0.1" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:th="http://www.cs.unibo.it/helm/namespaces/helm-theory">
-
-<xsl:param name="getterURL" select="'http://localhost:8081/'"/>
-
-<xsl:output method="html"/>
-
-<!-- CSC: absPath is the old way to retrieve a file. The new one is using -->
-<!--  URLofURI4getter, defined in getter.xsl                              -->
-<xsl:variable name="absPath"><xsl:value-of select="$getterURL"/>getxml?uri=</xsl:variable>
-
-<xsl:template match="/">
-               <html> 
-                <head></head>
-                <body>
-                <xsl:apply-templates/>
-                </body>
-               </html>
-</xsl:template>
-
-
-
-
-<!-- AGGIUNGERE cic: alle uri nei file Theory -->
-
-
-<xsl:template match="th:VARIABLE|th:DEFINITION|th:THEOREM|th:AXIOM">
-<xsl:param name="current_uri" select="''"/>
-<xsl:variable name="abs_uri">
- <xsl:call-template name="build_uri">
-  <xsl:with-param name="first_uri" select="$current_uri"/>
-  <xsl:with-param name="second_uri" select="@uri"/>
- </xsl:call-template>
-</xsl:variable>
-<xsl:variable name="found" 
-  select="boolean(document(concat($absPath,$abs_uri))//MUTIND[string(@uri)='cic:/Coq/Init/Logic/Equality/eq.ind'])"/>
-<xsl:if test="$found">
-  <xsl:value-of select="$abs_uri"/><BR/>
-</xsl:if>
-</xsl:template>
-
-<xsl:template match="th:SECTION">
-<xsl:param name="current_uri" select="''"/>
-<h1><xsl:value-of select="$current_uri"/></h1>
- <xsl:apply-templates>
-  <xsl:with-param name="current_uri">
-   <xsl:call-template name="build_uri">
-    <xsl:with-param name="first_uri" select="$current_uri"/>
-    <xsl:with-param name="second_uri" select="@uri"/>
-   </xsl:call-template>
-  </xsl:with-param> 
- </xsl:apply-templates>
-</xsl:template>
-
-<xsl:template match="*">
-<xsl:param name="current_uri" select="''"/>
- <xsl:apply-templates>
-  <xsl:with-param name="current_uri" select="$current_uri"/>
- </xsl:apply-templates>
-</xsl:template>
-
-<xsl:template match="text()">
-</xsl:template>
-
-<xsl:template name="build_uri">
- <xsl:param name="first_uri" select="''"/>
- <xsl:param name="second_uri" select="''"/>
- <xsl:choose>
-  <xsl:when test="starts-with($second_uri,'cic:')">
-   <xsl:value-of select="$second_uri"/>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:value-of select="concat($first_uri,'/',$second_uri)"/>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/ring.xsl b/helm/style/ring.xsl
deleted file mode 100644 (file)
index d57723e..0000000
--- a/helm/style/ring.xsl
+++ /dev/null
@@ -1,132 +0,0 @@
-<?xml version="1.0"?>
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm">
-                             
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/ring/Ring_abstract/abstract_rings/apolynomial_normalize_ok.con']" mode="pure">
-   <xsl:choose>
-      <xsl:when test="count(child::*) > 1">
-         <m:apply helm:xref="{@id}">
-            <m:csymbol>app</m:csymbol>
-            <xsl:apply-templates mode="noannot" select="*[1]"/>
-            <m:ci>...</m:ci>
-         </m:apply>
-      </xsl:when>
-      <xsl:otherwise>
-         <xsl:apply-imports/>
-      </xsl:otherwise>
-   </xsl:choose>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/ring/Ring_abstract/abstract_rings/interp_ap.con']" mode="pure">
-   <xsl:choose>
-      <xsl:when test="count(child::*) = 9">
-         <xsl:call-template name="start-interp">
-           <xsl:with-param name="rtree" select="*[9]"/>
-            <xsl:with-param name="atree" select="*[8]"/>
-        </xsl:call-template>
-      </xsl:when>
-      <xsl:otherwise>
-         <xsl:apply-imports/>
-      </xsl:otherwise>
-   </xsl:choose>
-</xsl:template>
-
-<xsl:template match="APPLY[CONST/@uri='cic:/Coq/ring/Ring_abstract/abstract_rings/interp_sacs.con']" mode="pure">
-   <xsl:choose>
-      <xsl:when test="count(child::*) = 9 and *[APPLY and position()=9]
-                      [CONST/@uri='cic:/Coq/ring/Ring_abstract/abstract_rings/apolynomial_normalize.con']">
-         <m:apply helm:xref="{@id}">
-            <m:csymbol>app</m:csymbol>
-            <xsl:apply-templates mode="noannot" select="*[9]/*[1]"/>
-            <xsl:call-template name="start-interp">
-              <xsl:with-param name="rtree" select="*[9]/*[2]"/>
-               <xsl:with-param name="atree" select="*[8]"/>
-           </xsl:call-template>
-         </m:apply>
-      </xsl:when>
-      <xsl:otherwise>
-         <xsl:apply-imports/>
-      </xsl:otherwise>
-   </xsl:choose>
-</xsl:template>
-
-<!-- **************************  abstract polinomials rendering ************************ -->
-
-<xsl:template match="APPLY[MUTCONSTRUCT[@uri='cic:/Coq/ring/Ring_abstract/abstract_rings/apolynomial.ind' 
-                                    and @noConstr='1']]" mode="interp">
-   <xsl:param name="atree"/>
-   <xsl:apply-templates select="*[2]" mode="interp">
-      <xsl:with-param name="atree" select="$atree"/>
-   </xsl:apply-templates>
-</xsl:template>
-
-<xsl:template match="APPLY[MUTCONSTRUCT[@uri='cic:/Coq/ring/Ring_abstract/abstract_rings/apolynomial.ind' 
-                                    and @noConstr='2']]" mode="interp">
-   <xsl:param name="atree"/>
-   <xsl:apply-templates mode="noannot" select="."/>
-</xsl:template>
-
-<xsl:template match="APPLY[MUTCONSTRUCT[@uri='cic:/Coq/ring/Ring_abstract/abstract_rings/apolynomial.ind' 
-                                    and @noConstr='3']]" mode="interp">
-   <xsl:param name="atree"/>
-   <xsl:apply-templates mode="noannot" select="."/>
-</xsl:template>
-
-<xsl:template match="APPLY[MUTCONSTRUCT[@uri='cic:/Coq/ring/Ring_abstract/abstract_rings/apolynomial.ind' 
-                                    and @noConstr='4']]" mode="interp">
-   <xsl:param name="atree"/>
-   <xsl:call-template name="mk-mml-op-interp">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="MUTCONSTRUCT"/>
-      <xsl:with-param name="m-tag" select="'plus'"/>
-      <xsl:with-param name="atree" select="$atree"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[MUTCONSTRUCT[@uri='cic:/Coq/ring/Ring_abstract/abstract_rings/apolynomial.ind' 
-                                    and @noConstr='5']]" mode="interp">
-   <xsl:param name="atree"/>
-   <xsl:call-template name="mk-mml-op-interp">
-      <xsl:with-param name="arity" select="2"/>
-      <xsl:with-param name="c-tag" select="MUTCONSTRUCT"/>
-      <xsl:with-param name="m-tag" select="'times'"/>
-      <xsl:with-param name="atree" select="$atree"/>
-   </xsl:call-template>
-</xsl:template>
-
-<xsl:template match="APPLY[MUTCONSTRUCT[@uri='cic:/Coq/ring/Ring_abstract/abstract_rings/apolynomial.ind' 
-                                    and @noConstr='6']]" mode="interp">
-   <xsl:param name="atree"/>
-   <xsl:call-template name="mk-mml-op-interp">
-      <xsl:with-param name="arity" select="1"/>
-      <xsl:with-param name="c-tag" select="MUTCONSTRUCT"/>
-      <xsl:with-param name="m-tag" select="'minus'"/>
-      <xsl:with-param name="atree" select="$atree"/>
-   </xsl:call-template> 
-</xsl:template>
-
-<xsl:template match="APPLY[MUTCONSTRUCT[@uri='cic:/Coq/ring/Quote/variables_map/index.ind' 
-                                    and @noConstr='1']]" mode="interp">
-   <xsl:param name="atree"/>
-   <xsl:apply-templates select="*[2]" mode="interp">
-      <xsl:with-param name="atree" select="$atree/*[4]"/>
-   </xsl:apply-templates>
-</xsl:template>
-
-<xsl:template match="APPLY[MUTCONSTRUCT[@uri='cic:/Coq/ring/Quote/variables_map/index.ind' 
-                                    and @noConstr='2']]" mode="interp">
-   <xsl:param name="atree"/>
-   <xsl:apply-templates select="*[2]" mode="interp"> 
-      <xsl:with-param name="atree" select="$atree/*[5]"/>
-   </xsl:apply-templates>
-</xsl:template>
-
-<xsl:template match="MUTCONSTRUCT[@uri='cic:/Coq/ring/Quote/variables_map/index.ind' 
-                              and @noConstr='3']" mode="interp">
-   <xsl:param name="atree"/>
-   <xsl:apply-templates select="$atree/*[3]" mode="noannot"/>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/rootcontent.xsl b/helm/style/rootcontent.xsl
deleted file mode 100644 (file)
index 64acead..0000000
--- a/helm/style/rootcontent.xsl
+++ /dev/null
@@ -1,73 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--***********************************************************************--> 
-<!-- XSLT version 0.1 of the stylesheet to accomplish the right inclusion  -->
-<!-- of the content stylesheets:                                           -->
-<!-- First draft: May 26 2000, C.Sacerdoti Coen, I.Schena, F.Guidi         -->
-<!--***********************************************************************-->
-
-<!-- Schema of stylesheet precedences (from highest to lowest):          -->
-<!-- proofs.xsl-> reals.xsl-> set -> basic -> annotatedcont              -->
-<!-- because annotatedcont is imported and has lower precendence than    -->
-<!-- the templates of rootcontent (i.e. the templates of set and basic). -->
-<!-- annotatedcont -> objcontent -> content                              -->
-<!-- because annotatedcont generates an import precedence tree.          --> 
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-
-<!--******************************************************************-->
-<!-- Variable containing the absolute path of the CIC file            -->
-<!--******************************************************************-->
-
-<xsl:import href="annotatedcont.xsl"/>
-<xsl:import href="links_library.xsl"/>
-<xsl:import href="getter.xsl"/>
-
-<xsl:param name="getterURL" select="'http://localhost:8081/'"/>
-<xsl:param name="processorURL" select="'http://localhost:8080/helm/servlet/uwobo/'"/>
-<xsl:param name="naturalLanguage" select="'yes'"/>
-<xsl:param name="annotations" select="'no'"/>
-<xsl:param name="CICURI" select="''"/>
-
-<xsl:variable name="InnerTypesUri"><xsl:value-of select="concat($CICURI,'.types')"/></xsl:variable>
-<xsl:variable name="AnnotationsUri"><xsl:value-of select="concat($CICURI,'.ann')"/></xsl:variable>
-
-<xsl:variable name="InnerTypesUrl"><xsl:call-template name="makeURL4InnerTypes"><xsl:with-param name="uri" select="$InnerTypesUri"/></xsl:call-template></xsl:variable>
-<xsl:variable name="AnnotationsUrl"><xsl:call-template name="URLofURI4getter"><xsl:with-param name="uri" select="$AnnotationsUri"/></xsl:call-template></xsl:variable>
-
-<!-- WARNING: Using lazy evaluation: $CICURI.* may not exist, but -->
-<!-- document() is called only by need!!!                         -->
-<xsl:variable name="InnerTypes" select="document($InnerTypesUrl)"/> 
-<xsl:variable name="CICAnnotations" select="document($AnnotationsUrl)"/> 
-
-<xsl:include href="headercontent.xsl"/>
-<xsl:include href="proofs.xsl"/>
-<xsl:include href="inductive.xsl"/>
-
-<xsl:variable name="showproof" select="0"/>
-
-</xsl:stylesheet>

diff --git a/helm/style/roottheory.xsl b/helm/style/roottheory.xsl
deleted file mode 100644 (file)
index 023190b..0000000
--- a/helm/style/roottheory.xsl
+++ /dev/null
@@ -1,44 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--***********************************************************************--> 
-<!-- XSLT version 0.1 of the stylesheet to accomplish the right inclusion  -->
-<!-- of the theory content stylesheets:                                    -->
-<!-- First draft: May 26 2000, Claudio Sacerdoti Coen, Irene Schena        -->
-<!--              November 15 2000, Irene Schena                           -->
-<!--***********************************************************************-->
-
-<!-- Schema of stylesheet precedences (from highest to lowest):          -->
-<!-- theory_content -> rootcontent.xsl                                   -->
-<!-- because theory_content is included and has higher precendence than  -->
-<!-- the templates of rootcontent which are imported.                    -->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
-
-<xsl:import href="rootcontent.xsl"/>
-<xsl:include href="theory_content.xsl"/>
-
-</xsl:stylesheet>

diff --git a/helm/style/set.xsl b/helm/style/set.xsl
deleted file mode 100644 (file)
index f1f7b7e..0000000
--- a/helm/style/set.xsl
+++ /dev/null
@@ -1,538 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--******************************************************************--> 
-<!-- Basic Set Theory                                                 -->
-<!-- First draft: April 3 2000                                        -->
-<!-- HELM Group: Asperti, Padovani, Sacerdoti, Schena                 -->
-<!--******************************************************************-->
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:m="http://www.w3.org/1998/Math/MathML"
-                              xmlns:helm="http://www.cs.unibo.it/helm">
-
-
-<!-- ************************* LOGIC *********************************-->
-
-
-
-<xsl:template match="*" mode="set">
-    <xsl:choose>
-     <xsl:when test="name() = 'LAMBDA'">
-      <m:set>
-       <m:bvar>
-        <m:ci>
-         <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="target/@binder"/></xsl:with-param></xsl:call-template>
-        </m:ci>
-        <m:type>
-         <xsl:apply-templates select="source" mode="noannot"/>
-        </m:type>
-       </m:bvar>
-       <m:condition>
-        <xsl:apply-templates select="target" mode="noannot"/>
-       </m:condition>
-      </m:set>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-templates select="." mode="noannot"/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-
-<!-- IN -->
-
-<xsl:template match="APPLY[CONST[attribute::uri='cic:/Coq/Sets/Ensembles/Ensembles/In.con']]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="CONST/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 3">
-      <m:apply helm:xref="{@id}">
-       <m:in definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-       <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
-       <!-- <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/> -->
-       <xsl:apply-templates select="*[2+$no_params]" mode="set" /> 
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-
-<!-- NOT-IN -->
-<!-- NOT ha no parameters -->
-<xsl:template match="APPLY[CONST[attribute::uri='cic:/Coq/Init/Logic/not.con']
-and (count(child::*) = 2) and APPLY[CONST[attribute::uri='cic:/Coq/Sets/Ensembles/Ensembles/In.con']]]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="APPLY/CONST/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(APPLY/child::*) - number($no_params)) = 3">
-      <m:apply helm:xref="{@id}">
-       <m:notin/>
-       <xsl:apply-templates select="*[2]/*[3+$no_params]" mode="noannot"/>
-  <!-- <xsl:apply-templates select="*[2]/*[2+$no_params]" mode="noannot"/> -->
-       <xsl:apply-templates select="*[2]/*[2+$no_params]" mode="set"/>  
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- EMPTY SET -->
-
-<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/Coq/Sets/Ensembles/Ensembles/Empty_set.ind']]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="MUTIND/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 1">
-      <m:set definitionURL="{MUTIND/@uri}" helm:xref="{@id}">
-      </m:set>
-     </xsl:when>   
-     <xsl:when test="(count(child::*) - number($no_params)) = 2">
-      <m:apply helm:xref="{@id}">
-       <m:in definitionURL="cic:/Coq/Sets/Ensembles/Ensembles/In.con"/>
-       <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/>
-       <m:set definitionURL="{MUTIND/@uri}" helm:xref="{@id}">
-       </m:set>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- SINGLETON -->
-
-<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/Coq/Sets/Ensembles/Ensembles/Singleton.ind']]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="MUTIND/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 2">
-      <m:set definitionURL="{MUTIND/@uri}" helm:xref="{@id}">
-       <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/>
-      </m:set>
-     </xsl:when>   
-     <xsl:when test="(count(child::*) - number($no_params)) = 3">
-      <m:apply helm:xref="{@id}">
-       <m:in definitionURL="cic:/Coq/Sets/Ensembles/Ensembles/In.con"/>
-       <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
-       <m:set definitionURL="{MUTIND/@uri}">
-        <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/>
-       </m:set>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- COUPLE -->
-
-<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/Coq/Sets/Ensembles/Ensembles/Couple.ind']]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="MUTIND/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 3">
-      <m:set definitionURL="{MUTIND/@uri}" helm:xref="{@id}">
-       <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/>
-       <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
-      </m:set>
-     </xsl:when>   
-     <xsl:when test="(count(child::*) - number($no_params)) = 4">
-      <m:apply helm:xref="{@id}">
-       <m:in definitionURL="cic:/Coq/Sets/Ensembles/Ensembles/In.con"/>
-       <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
-       <m:set definitionURL="{MUTIND/@uri}">
-        <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/>
-        <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
-       </m:set>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- TRIPLE -->
-
-<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/Coq/Sets/Ensembles/Ensembles/Triple.ind'] and (count(child::*) = 5)]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="MUTIND/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 4">
-      <m:set definitionURL="{MUTIND/@uri}" helm:xref="{@id}">
-       <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/>
-       <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
-       <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
-      </m:set>
-     </xsl:when>   
-     <xsl:when test="(count(child::*) - number($no_params)) = 5">
-      <m:apply helm:xref="{@id}">
-       <m:in definitionURL="cic:/Coq/Sets/Ensembles/Ensembles/In.con"/>
-       <xsl:apply-templates select="*[5+$no_params]" mode="noannot"/>
-       <m:set definitionURL="{MUTIND/@uri}">
-        <xsl:apply-templates select="*[2+$no_params]" mode="noannot"/>
-        <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
-        <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
-       </m:set>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- INTERSECTION -->
-
-<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/Coq/Sets/Ensembles/Ensembles/Intersection.ind']]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="MUTIND/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 3">
-      <m:apply helm:xref="{@id}">
-       <m:intersect definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
-       <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
-       <xsl:apply-templates select="*[3+$no_params]" mode="set"/>
-      </m:apply>
-     </xsl:when>
-     <xsl:when test="(count(child::*) - number($no_params)) = 4">
-      <m:apply helm:xref="{@id}">
-       <m:in/>
-       <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
-       <m:apply>
-        <m:intersect definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
-        <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
-        <xsl:apply-templates select="*[3+$no_params]" mode="set"/>
-       </m:apply>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-
-<!-- UNION -->
-
-<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/Coq/Sets/Ensembles/Ensembles/Union.ind']]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="MUTIND/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 3">
-      <m:apply helm:xref="{@id}">
-       <m:union definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
-       <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
-       <xsl:apply-templates select="*[3+$no_params]" mode="set"/>
-      </m:apply>
-     </xsl:when>
-     <xsl:when test="(count(child::*) - number($no_params)) = 4">
-      <m:apply helm:xref="{@id}">
-       <m:in/>
-       <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
-       <m:apply>
-        <m:union definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
-        <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
-        <xsl:apply-templates select="*[3+$no_params]" mode="set"/>
-       </m:apply>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- INCLUDED -->
-
-<xsl:template match="APPLY[CONST[attribute::uri='cic:/Coq/Sets/Ensembles/Ensembles/Included.con']]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="CONST/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 3">
-      <m:apply helm:xref="{@id}">
-       <m:subset definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-       <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
-       <xsl:apply-templates select="*[3+$no_params]" mode="set"/>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- STRICTLY INCLUDED -->
-
-<xsl:template match="APPLY[CONST[attribute::uri='cic:/Coq/Sets/Ensembles/Ensembles/Strict_Included.con']]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="CONST/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 3">
-      <m:apply helm:xref="{@id}">
-       <m:prsubset definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-       <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
-       <xsl:apply-templates select="*[3+$no_params]" mode="set"/>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- SET-DIFF -->
-
-<xsl:template match="APPLY[CONST[attribute::uri='cic:/Coq/Sets/Ensembles/Ensembles/Setminus.con']]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="CONST/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 3">
-      <m:apply helm:xref="{@id}">
-       <m:setdiff definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-       <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
-       <xsl:apply-templates select="*[3+$no_params]" mode="set"/>
-      </m:apply>
-     </xsl:when>
-     <xsl:when test="(count(child::*) - number($no_params)) = 4">
-      <m:apply helm:xref="{@id}">
-       <m:in/>
-       <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
-       <m:apply>
-        <m:setdiff definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-        <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
-        <xsl:apply-templates select="*[3+$no_params]" mode="set"/>
-       </m:apply>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- ADD-ELEM -->
-
-<xsl:template match="APPLY[CONST[attribute::uri='cic:/Coq/Sets/Ensembles/Ensembles/Add.con']]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="CONST/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 3">
-      <m:apply helm:xref="{@id}">
-       <m:union definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-       <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
-       <m:set>
-        <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
-       </m:set>
-      </m:apply>
-     </xsl:when>
-     <xsl:when test="(count(child::*) - number($no_params)) = 4">
-      <m:apply helm:xref="{@id}">
-       <m:in/>
-       <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
-       <m:apply>
-        <m:union definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-        <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
-        <m:set>
-         <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
-        </m:set>
-       </m:apply>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- SUBTRACT-ELEM -->
-
-<xsl:template match="APPLY[CONST[attribute::uri='cic:/Coq/Sets/Ensembles/Ensembles/Subtract.con']]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="CONST/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 3">
-      <m:apply helm:xref="{@id}">
-       <m:setdiff definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-       <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
-       <m:set>
-        <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
-       </m:set>
-      </m:apply>
-     </xsl:when>
-     <xsl:when test="(count(child::*) - number($no_params)) = 4">
-      <m:apply helm:xref="{@id}">
-       <m:in/>
-       <xsl:apply-templates select="*[4+$no_params]" mode="noannot"/>
-       <m:apply>
-        <m:setdiff definitionURL="{CONST/@uri}" helm:xref="{CONST/@id}"/>
-        <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
-        <m:set>
-         <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
-        </m:set>
-       </m:apply>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- CARD -->
-
-<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/Coq/Sets/Finite_sets/Ensembles_finis/cardinal.ind']]" mode="pure">
-    <xsl:variable name="no_params">
-     <xsl:call-template name="get_no_params">
-      <xsl:with-param name="first_uri" select="$CICURI"/>
-      <xsl:with-param name="second_uri" select="MUTIND/@uri"/>
-     </xsl:call-template>
-    </xsl:variable>
-    <xsl:choose>
-     <xsl:when test="(count(child::*) - number($no_params)) = 3">
-      <m:apply helm:xref="{@id}">
-       <m:eq/>
-       <m:apply>
-        <m:card definitionURL="{MUTIND/@uri}" helm:xref="{MUTIND/@id}"/>
-        <xsl:apply-templates select="*[2+$no_params]" mode="set"/>
-       </m:apply>
-       <xsl:apply-templates select="*[3+$no_params]" mode="noannot"/>
-      </m:apply>
-     </xsl:when>
-     <xsl:otherwise>
-      <xsl:apply-imports/>
-     </xsl:otherwise>
-    </xsl:choose>
-</xsl:template>
-
-<!-- *******************  SIGMA TYPES  **************************** -->
-
-<xsl:template match="APPLY[MUTIND[attribute::uri='cic:/Coq/Init/Specif/Subsets/sig.ind']]" mode="pure">
- <xsl:choose>
-  <xsl:when test="count(child::*) = 3">
-   <xsl:choose>
-    <xsl:when test="name(*[3]) = 'LAMBDA'">
-     <m:set>
-       <m:bvar>
-        <m:ci>
-         <xsl:call-template name="insert_subscript"><xsl:with-param name="node_value"><xsl:value-of select="*[3]/target/@binder"/></xsl:with-param></xsl:call-template>
-        </m:ci>
-        <m:type>
-         <xsl:apply-templates select="*[3]/source/*[1]" mode="noannot"/>
-        </m:type>
-       </m:bvar>
-       <m:condition>
-        <xsl:apply-templates select="*[3]/target/*[1]" mode="noannot"/>
-       </m:condition>
-     </m:set>
-    </xsl:when>
-    <xsl:otherwise>
-     <m:set>
-       <m:bvar>
-        <m:ci>$x</m:ci>
-        <m:type>
-         <xsl:apply-templates select="*[2]" mode="noannot"/>
-        </m:type>
-       </m:bvar>
-       <m:condition>
-        <m:apply>
-         <m:csymbol>app</m:csymbol>
-         <xsl:apply-templates select="*[3]" mode="noannot"/>
-         <m:ci>$x</m:ci>
-        </m:apply>
-       </m:condition>
-     </m:set>
-    </xsl:otherwise>
-   </xsl:choose>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:apply-imports/>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-
-</xsl:stylesheet>

diff --git a/helm/style/show_dc.xsl b/helm/style/show_dc.xsl
deleted file mode 100644 (file)
index 56f7957..0000000
--- a/helm/style/show_dc.xsl
+++ /dev/null
@@ -1,249 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<xsl:stylesheet version="1.0"
-                xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
-                xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#"
-                xmlns:dc="http://purl.org/metadata/dublin_core#"
-                xmlns:dcq="http://purl.org/metadata/dublin_core_qualifiers#"
-                xmlns:h="http:/www.cs.unibo.it/helm/schemas/schema-h.rdf#"
-                xmlns:hth="http://www.cs.unibo.it/helm/schemas/schema-hth.rdf#">
-
-<xsl:output 
-       method="xml" 
-       encoding="iso-8859-1" 
-       media-type="text/html"
-       doctype-public="-//W3C//DTD XHTML 1.0 Transitional//EN"
-       doctype-system="DTD/xhtml1-transitional.dtd" />
-
-<xsl:template name="loop_show_dc">
- <xsl:param name="CICURI" select="''"/>
- <xsl:param name="first_time" select="true()"/>
- <xsl:variable name="document" select="document(concat($BaseRDFURLDC,$CICURI))"/>
- <xsl:choose>
-  <xsl:when test="$document/rdf:RDF/*/*">
-   <h1>Dublin Core Metadata for <xsl:value-of select="$CICURI"/>:</h1>
-   <xsl:apply-templates mode="show_dc" select="$document">
-    <xsl:with-param name="CICURI" select="$CICURI"/>
-   </xsl:apply-templates>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:if test="$first_time">
-    <h1>No Dublin Core Metadata available for <xsl:value-of select="$CICURI"/>.</h1>
-   </xsl:if>
-  </xsl:otherwise>
- </xsl:choose>
- <xsl:variable name="basename">
-  <xsl:call-template name="get_basename">
-   <xsl:with-param name="CICURI" select="$CICURI"/>
-  </xsl:call-template>
- </xsl:variable>
- <xsl:variable name="parentURI" select="substring-before($CICURI,concat('/',$basename))"/>
- <xsl:if test="not($parentURI = 'cic:')">
-  <xsl:call-template name="loop_show_dc">
-   <xsl:with-param name="CICURI" select="$parentURI"/>
-   <xsl:with-param name="first_time" select="false()"/>
-  </xsl:call-template>
- </xsl:if>
-</xsl:template>
-
-<xsl:template name="get_basename">
- <xsl:param name="CICURI"/>
- <xsl:variable name="suffix" select="substring-after($CICURI,'/')"/>
- <xsl:choose>
-  <xsl:when test="$suffix = ''">
-   <xsl:value-of select="$CICURI"/>
-  </xsl:when>
-  <xsl:otherwise>
-   <xsl:call-template name="get_basename">
-    <xsl:with-param name="CICURI" select="$suffix"/>
-   </xsl:call-template>
-  </xsl:otherwise>
- </xsl:choose>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="/">
- <table>
-  <xsl:apply-templates mode="show_dc" select="rdf:RDF/*/*"/>
- </table>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="dc:title">
- <tr>
-  <td>Title:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="dc:creator">
- <tr>
-  <td>Creator:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="dc:contributor">
- <tr>
-  <td>Contributor:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="dc:subject">
- <tr>
-  <td>Subject:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="dc:description">
- <tr>
-  <td>Description:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="dc:publisher">
- <tr>
-  <td>Publisher:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="dc:date">
- <tr>
-  <td>Date:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="dc:coverage">
- <tr>
-  <td>Coverage:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="dc:type">
- <tr>
-  <td>Type:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="hth:ResourceType">
- <xsl:value-of select="substring-after(@rdf:about,'#')"/>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="dc:format">
- <tr>
-  <td>Format:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="hth:ResourceFormat">
- <xsl:value-of select="substring-after(@rdf:about,'#')"/>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="dc:identifier">
- <tr>
-  <td>Identifier:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="dc:source">
- <tr>
-  <td>Source:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="dc:language">
- <tr>
-  <td>Language:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="dc:relation">
- <tr>
-  <td>Relation:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="dcq:RelationType">
- <xsl:value-of select="substring-after(@rdf:about,'#')"/>
- <xsl:text> </xsl:text>
- <xsl:value-of select="@rdf:value"/>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="dc:rights">
- <tr>
-  <td>Rights:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="hth:institution">
- <tr>
-  <td>Institution:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="hth:contact">
- <tr>
-  <td>Contact:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="hth:firstVersion">
- <tr>
-  <td>First Version:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="hth:modified">
- <tr>
-  <td>Modified:</td>
-  <td><xsl:apply-templates mode="show_dc"/></td>
- </tr>
-</xsl:template>
-
-<xsl:template mode="show_dc" match="*">
- <tr>
-  <td>ERROR!</td>
-  <td><xsl:value-of select="name(.)"/></td>
- </tr>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/theory_content.xsl b/helm/style/theory_content.xsl
deleted file mode 100644 (file)
index d6ccafb..0000000
--- a/helm/style/theory_content.xsl
+++ /dev/null
@@ -1,90 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--***********************************************************************--> 
-<!-- XSLT version 0.1 of theory objects to theory sections:                -->
-<!-- First draft: May 08 2000, Claudio Sacerdoti Coen, Irene Schena        -->
-<!--***********************************************************************--> 
-
-<xsl:stylesheet version="0.1" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:ht="http://www.cs.unibo.it/helm/namespaces/helm-theory">
-
-
-<!-- THEORY and SUBTHEORIES -->
-
-<xsl:template match="ht:SECTION">
-<xsl:param name="current_uri" select="''"/>
-<xsl:param name="delim" select="''"/>
-    <ht:SECTION name="{@uri}">
-     <xsl:apply-templates><xsl:with-param name="current_uri" select="concat($current_uri,$delim,string(@uri))"/><xsl:with-param name="delim" select="&quot;/&quot;"/></xsl:apply-templates>
-    </ht:SECTION>
-</xsl:template>
-
-<!-- MUTUAL -->
-
-<xsl:template match="ht:MUTUAL">
-<xsl:param name="current_uri" select="''"/>
-<xsl:param name="delim" select="''"/>
-   <ht:MUTUAL>
-    <xsl:apply-templates><xsl:with-param name="current_uri" select="$current_uri"/><xsl:with-param name="delim" select="$delim"/></xsl:apply-templates>
-   </ht:MUTUAL>
-</xsl:template>
-
-
-<!-- THEORY ELEMENTS -->
-
-<xsl:template match="ht:AXIOM|ht:DEFINITION|ht:THEOREM|ht:VARIABLE">
-<xsl:param name="current_uri" select="''"/>
-<xsl:param name="delim" select="''"/>
-<xsl:variable name="uri" select="concat(string($current_uri),$delim,string(@uri))"/>
-    <xsl:copy>
-     <xsl:copy-of select="@as"/>
-     <xsl:attribute name="uri"><xsl:value-of select="$uri"/></xsl:attribute>
-    </xsl:copy>
-</xsl:template>
-
-<xsl:template match="ht:OBJECT">
-<xsl:param name="current_uri" select="''"/>
-<xsl:param name="delim" select="''"/>
-<xsl:variable name="uri" select="concat(string($current_uri),$delim,string(@uri))"/>
-    <xsl:copy>
-     <xsl:copy-of select="@mode"/>
-     <xsl:attribute name="uri"><xsl:value-of select="$uri"/></xsl:attribute>
-    </xsl:copy>
-</xsl:template>
-
-<!-- Root and XHTML -->
-
-<xsl:template match = "/|*">
-<xsl:param name="current_uri" select="''"/>
-<xsl:param name="delim" select="''"/>
-  <xsl:copy>
-   <xsl:copy-of select="@*"/>
-   <xsl:apply-templates><xsl:with-param name="current_uri" select="$current_uri"/><xsl:with-param name="delim" select="$delim"/></xsl:apply-templates>
-  </xsl:copy>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/theory_pres.xsl b/helm/style/theory_pres.xsl
deleted file mode 100644 (file)
index 47b2622..0000000
--- a/helm/style/theory_pres.xsl
+++ /dev/null
@@ -1,127 +0,0 @@
-<?xml version="1.0"?>
-
-<!-- Copyright (C) 2000, HELM Team                                     -->
-<!--                                                                   -->
-<!-- This file is part of HELM, an Hypertextual, Electronic            -->
-<!-- Library of Mathematics, developed at the Computer Science         -->
-<!-- Department, University of Bologna, Italy.                         -->
-<!--                                                                   -->
-<!-- HELM is free software; you can redistribute it and/or             -->
-<!-- modify it under the terms of the GNU General Public License       -->
-<!-- as published by the Free Software Foundation; either version 2    -->
-<!-- of the License, or (at your option) any later version.            -->
-<!--                                                                   -->
-<!-- HELM is distributed in the hope that it will be useful,           -->
-<!-- but WITHOUT ANY WARRANTY; without even the implied warranty of    -->
-<!-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     -->
-<!-- GNU General Public License for more details.                      -->
-<!--                                                                   -->
-<!-- You should have received a copy of the GNU General Public License -->
-<!-- along with HELM; if not, write to the Free Software               -->
-<!-- Foundation, Inc., 59 Temple Place - Suite 330, Boston,            -->
-<!-- MA  02111-1307, USA.                                              -->
-<!--                                                                   -->
-<!-- For details, see the HELM World-Wide-Web page,                    -->
-<!-- http://cs.unibo.it/helm/.                                         -->
-
-<!--***********************************************************************--> 
-<!-- XSLT version 0.1 of theory sections to HTML:                          -->
-<!-- First draft: May 10 2000, Irene Schena                                -->
-<!--              November 15 2000, Irene Schena                           -->
-<!--***********************************************************************--> 
-
-<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
-                              xmlns:ht="http://www.cs.unibo.it/helm/namespaces/helm-theory">
-
-<!--<xsl:output method="html" encoding="iso-8859-1"/>-->
-<xsl:output 
-       method="xml" 
-       encoding="iso-8859-1" 
-       media-type="text/html"
-       doctype-public="-//W3C//DTD XHTML 1.0 Transitional//EN"
-       doctype-system="DTD/xhtml1-transitional.dtd" />
-
-<xsl:template match="ht:SECTION">
-     <xsl:apply-templates select="*"/>
-</xsl:template>
-
-<xsl:template match="ht:MUTUAL">
-     <h4>BEGIN MUTUAL DEFINITIONS</h4>
-     <xsl:apply-templates select="*"/>
-     <h4>END MUTUAL DEFINITIONS</h4>
-</xsl:template>
-
-<xsl:template match="ht:OBJECT">
- <xsl:variable name="delimiter">
-  <xsl:if test="@mode != 'linkonly'">
-   <xsl:text>:</xsl:text>
-  </xsl:if>
- </xsl:variable>
-    <table>
-     <tr>
-      <td colspan="2">
-       <b>Object<xsl:text>&#x00a0;</xsl:text><a href="{@uri}"><xsl:value-of select="@uri"/></a><xsl:value-of select="$delimiter"/></b>
-      </td>
-     </tr>
-     <xsl:if test="@mode != 'linkonly'">
-      <tr>
-       <td>&#x00a0;&#x00a0;&#x00a0;</td>
-       <td><ENTITY uri="{@uri}" type="{@mode}"/></td>
-      </tr>
-     </xsl:if>
-    </table>
-</xsl:template>
-
-<xsl:template match="ht:THEOREM">
-    <table>
-     <tr>
-      <td colspan="2">
-       <b><xsl:value-of select="@as"/><xsl:text>&#x00a0;</xsl:text><a href="{@uri}"><xsl:value-of select="@uri"/></a>:</b>
-      </td>
-     </tr>
-     <tr>
-      <td>&#x00a0;&#x00a0;&#x00a0;</td>
-      <td><ENTITY uri="{@uri}" type="typeonly"/></td>
-     </tr>
-    </table>
-</xsl:template>
-
-<xsl:template match="ht:AXIOM|ht:VARIABLE">
-    <table>
-     <tr>
-      <td colspan="2">
-       <b><xsl:value-of select="substring-after(string(name(.)), &quot;ht:&quot;)"/><xsl:text>&#x00a0;</xsl:text><a href="{@uri}"><xsl:value-of select="@uri"/></a>:</b>
-      </td>
-     </tr>
-     <tr>
-      <td>&#x00a0;&#x00a0;&#x00a0;</td>
-      <td><ENTITY uri="{@uri}" type="embed"/></td>
-     </tr>
-    </table>
-</xsl:template>
-
-<xsl:template match="ht:DEFINITION">
-<xsl:variable name="name"><xsl:choose><xsl:when test="@as='Inductive'">Inductive Definition</xsl:when><xsl:when test="@as='CoInductive'">CoInductive Definition</xsl:when><xsl:when test="@as='Record'">Record Definition</xsl:when><xsl:otherwise>Definition</xsl:otherwise></xsl:choose></xsl:variable>
-    <table>
-     <tr>
-      <td colspan="2">
-       <b><xsl:value-of select="string($name)"/><xsl:text>&#x00a0;</xsl:text><a href="{@uri}"><xsl:value-of select="@uri"/></a>:</b>
-      </td>
-     </tr>
-     <tr>
-      <td>&#x00a0;&#x00a0;&#x00a0;</td>
-      <td><ENTITY uri="{@uri}" type="embed"/></td>
-     </tr>
-    </table>
-</xsl:template>
-
-<!-- Root and XHTML -->
-
-<xsl:template match = "/|*">
-  <xsl:copy>
-   <xsl:copy-of select="@*"/>
-   <xsl:apply-templates/>
-  </xsl:copy>
-</xsl:template>
-
-</xsl:stylesheet>

diff --git a/helm/style/xslt_index.txt b/helm/style/xslt_index.txt
deleted file mode 100644 (file)
index 0ae6f66..0000000
--- a/helm/style/xslt_index.txt
+++ /dev/null
@@ -1,40 +0,0 @@
-algebra.xsl
-annotatedcont.xsl
-annotatedpres.xsl
-arith.xsl
-basic.xsl
-content.xsl
-content_to_html.xsl
-contentlib.xsl
-drop_coercions.xsl
-expandobj.xsl
-genmmlid.xsl
-getter.xsl
-headercontent.xsl
-html_init.xsl
-html_reals.xsl
-html_set.xsl
-inductive.xsl
-lambda.xsl
-link.xsl
-links_library.xsl
-mk_dep_graph.xsl
-mk_meta_and_dep_graph.xsl
-mk_meta_graph.xsl
-mk_meta_theory.xsl
-mmlctop.xsl-0.14
-mmlextension.xsl
-mmltheoryextension.xsl
-objcontent.xsl
-objtheorycontent.xsl
-params.xsl
-proofs.xsl
-reals.xsl
-ricerca.xsl
-ring.xsl
-rootcontent.xsl
-roottheory.xsl
-set.xsl
-show_dc.xsl
-theory_content.xsl
-theory_pres.xsl

diff --git a/helm/uwobo-panel/.cvsignore b/helm/uwobo-panel/.cvsignore
deleted file mode 100644 (file)
index 335ec95..0000000
--- a/helm/uwobo-panel/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.tar.gz

diff --git a/helm/uwobo-panel/Makefile b/helm/uwobo-panel/Makefile
deleted file mode 100644 (file)
index cb4fdd9..0000000
--- a/helm/uwobo-panel/Makefile
+++ /dev/null
@@ -1,11 +0,0 @@
-
-all:
-
-clean:
-       rm -f uwobo-panel.tar.gz
-
-cleanbak:
-       rm -rf *~
-
-dist: clean cleanbak
-       cd ..; tar cvfz uwobo-panel.tar.gz uwobo-panel ; mv uwobo-panel.tar.gz uwobo-panel

diff --git a/helm/uwobo-panel/control.html b/helm/uwobo-panel/control.html
deleted file mode 100644 (file)
index c60c44a..0000000
--- a/helm/uwobo-panel/control.html
+++ /dev/null
@@ -1,433 +0,0 @@
-<html>
-
-<head>
-<title>UWOBO Control Panel</title>
-
-<style type="text/css">
-#normal { background-color: white; font-family: sans-serif }
-td.head { font-weight: bold; background-color: #e6e6fa; color: brown }
-td.back { background-color: #e6e6fa; color: brown }
-#indent { margin-left: 1cm; margin-right: 1cm }
-</style>
-
-<script language="JavaScript" src="control.js">
-</script>
-
-</head>
-
-<body id="normal">
-<a name="top"/>
-<table border="0" width="100%" cellpadding="4">
-<tr><td class="head" align="center"><big><big>UWOBO Control Panel</big></big></td></tr>
-</table>
-
-<br />
-
-<div id="indent">
-This is a control panel for the UWOBO servlet. You can control a local or remote UWOBO servlet by filling
-the appropriate fields <a href="#params">below</a> and sending the desired commands. In most cases, results of commands, such as error
-messages or documents, will be opened in the frame at the bottom of this page. For those commands sending multiple
-requests to the UWOBO server, a new window will be opened for each request issued. Note that in order to use
-this page <i>you must have JavaScript enabled</i>.
-If you have troubles, please send an email to the author:
-<a href="mailto:luca.padovani@cs.unibo.it">luca.padovani@cs.unibo.it</a>
-
-<br /><br />
-
-The sections:
-<ul>
-  <li><a href="#params">Global Parameters</a></li>
-  <li><a href="#queries">Queries</a></li>
-  <li><a href="#stylesheets">Stylesheet Management</a></li>
-  <li><a href="#process">Processing</a></li>
-</ul>
-
-In case you want to customize the panel for your own needs, you can download the source archive
-(HTML + JavaScript):
-<ul>
-  <li>UWOBO Panel [<a href="uwobo-panel.tar.gz">.tar.gz</a>]</li>
-</ul>
-
-</div>
-
-<a name="params"/>
-<table border="0" width="100%" cellpadding="4" cellspacing="0">
-<tr>
-  <td class="head" align="left"><big>Global Parameters</big></td>
-  <td class="back" align="right"><a href="#top">top</a></td>
-</tr>
-</table>
-
-<br />
-
-<div id="indent">
-The following are global parameters used by all the other section to contact the UWOBO servlet and possibly a
-getter. The getter is not required for some operations and can be excluded by unchecking the proper buttons
-below.
-
-<br /><br />
-
-The following is the URL used to contact the UWOBO servlet. Note that the servlet is usually launched by
-<a href="http://jakarta.apache.org" target="top">TOMCAT</a>. <tt>localhost</tt> is relative to your machine. 
-
-<br /><br />
-
-<table border="0">
-  <tr>
-    <th colspan="2" align="left">UWOBO URL</th>
-  </tr>
-  <tr>
-    <td>
-      <form name="uwoboURL">
-        <script>
-          document.write('<input type="text" value="' + getInitialProcessorURL() + '" size="50"/>');
-       </script>
-      </form>
-    </td>
-    <td>
-      <form>
-        <select onChange="selectUwoboURL(this)">
-         <option value="">---</option>
-         <option value="localhost">localhost</option>
-         <option value="marcello.cs.unibo.it">marcello</option>
-         <option value="phd.cs.unibo.it">phd</option>
-         <option value="eolo.cs.unibo.it">eolo</option>
-       </select>
-      </form>
-    </td>
-    <td>
-      <form>
-        <input type="button" value="Check" onClick="top.result.location.replace(getUwoboURL() + 'help')"/>
-      </form>
-    </td>
-  </tr>
-</table>
-
-The following is the URL used to contact the getter. The getter is usually launched manually.
-In all cases except for the check button below, 
-<tt>localhost</tt> is relative to the host running UWOBO, because the getter URL is sent as
-a parameter along with UWOBO commands. In other words, <tt>localhost</tt> <i>is</i> the host
-running UWOBO and not your machine.
-
-<br /><br />
-
-<table border="0">
-  <tr>
-    <th colspan="2" align="left">Getter URL</th>
-  </tr>
-  <tr>
-    <td>
-      <form name="getterURL">
-        <script>
-         document.write('<input type="text" value="' + getInitialGetterURL() + '" size="50"/>');
-       </script>
-      </form>
-    </td>
-    <td>
-      <form>
-        <select onChange="selectGetterURL(this)">
-         <option value="">---</option>
-         <option value="localhost">localhost</option>
-         <option value="marcello.cs.unibo.it">marcello</option>
-         <option value="phd.cs.unibo.it">phd</option>
-         <option value="eolo.cs.unibo.it">eolo</option>
-       </select>
-      </form>
-    </td>
-    <td>
-      <form>
-        <input type="button" value="Check" onClick="top.result.location.replace(getGetterURL() + 'help')"/>
-      </form>
-    </td>
-  </tr>
-</table>
-</div>
-
-<a name="queries"/>
-<table border="0" width="100%" cellpadding="4" cellspacing="0">
-<tr>
-  <td class="head" align="left"><big>Queries</big></td>
-  <td class="back" align="right"><a href="#top">top</a></td>
-</tr>
-</table>
-
-<div id="indent">
-
-<br />
-
-The following are commands to do some simple queries about the UWOBO servlet.
-
-<br /><br />
-
-<table border="0">
-<tr>
-  <td>
-    Retrieve the version of the UWOBO servlet running at the UWOBO URL and list the syntax
-    of the accepted commands.
-    You can use this button to verify that a UWOBO servlet
-    is actually running there:
-  </td>
-</tr>
-<tr>
-  <td><form><input type="button" value="Help" onClick="top.result.location.replace(getUwoboURL() + 'help')"/></form></td>
-</tr>
-<tr>
-  <td>
-    Ask UWOBO for a list of the stylesheets currently compiled inside the servlet, along with their keys:
-  </td>
-</tr>
-<tr>
-  <td><form><input type="button" value="List Stylesheets" onClick="top.result.location.replace(getUwoboURL() + 'list')"/></form></td>
-</tr>
-</table>
-
-<br />
-
-</div>
-
-<a name="stylesheets"/>
-<table border="0" width="100%" cellpadding="4" cellspacing="0">
-<tr>
-  <td class="head" align="left"><big>Stylesheet Management</big></td>
-  <td class="back" align="right"><a href="#top">top</a></td>
-</tr>
-</table>
-
-<div id="indent">
-
-<br />
-
-In this section you can add, remove and reload stylesheet into the server. There are
-some frequently used stylesheets whose URIs and keys can be automatically filled in
-by selecting one of the options of the box below. Note that for such stylesheets
-the getter is used by default (you can deselect it, however):
-
-<br /><br 7>
-
-<table border="0">
-<tr>
-  <th align="left">Predefined Stylesheets</th>
-</tr>
-<tr>
-  <td>
-    <form name="predefinedStylesheets">
-      <select size="1" onChange="selectPredefinedStylesheet(this)">
-        <option value="">---</option>
-        <option value="C1,rootcontent.xsl,true">CIC ==&gt; MathML Content</option>
-        <option value="TC1,objtheorycontent.xsl,true">CIC ==&gt; MathML Content (Show only the thesis)</option>
-        <option value="C2,annotatedpres.xsl,true">MathML Content ==&gt; MathML Presentation</option>
-        <option value="T1,theory_content.xsl,true">Theory CIC ==&gt; MathML Content</option>
-        <option value="T2,theory_pres.xsl,true">Theory Content ==&gt; MathML Presentation</option>
-        <option value="E,expandobj.xsl,true">Expander</option>
-        <option value="G,genmmlid.xsl,true">MathML Content ==&gt; MathML Content + IDs</option>
-        <option value="HC2,content_to_html.xsl,true">MathML Content ==&gt; HTML</option>
-        <option value="L,link.xsl,true">Resolve links</option>
-        <option value="d_c,drop_coercions.xsl,true">Drop implicit coercions</option>
-        <option value="meta_theory,mk_meta_theory.xsl,true">Metadata (back-pointers) to theory</option>
-        <option value="L2H,ls2html.xsl,true">Getter LS ==&gt; HTML</option>
-        <option value="GP,getParam.xsl,true">Get Param</option>
-        <option value="RT,resolve_topurl.xsl,true">Logic-sheet to substitute the interface URL</option>
-        <option value="MC,metadataControl.xsl,true">Stylesheet to create links to metadata</option>
-        <option value="MGL,makeGraphLinks.xsl,true">Add hyperlink menus to graphs</option>
-        <option value="MMG,mk_meta_graph.xsl,true">Make graph of backward dependencies</option>
-        <option value="MDG,mk_dep_graph.xsl,true">Make graph of dependencies</option>
-      </select>
-    </form>
-  </td>
-  <td>
-    <form>
-      <input type="button" value="Load All Predefined" onClick="loadAllPredefined()"/>
-    </form>
-  </td>
-  <td>
-    <form>
-      <input type="button" value="Remove All Predefined" onClick="removeAllPredefined()"/>
-    </form>
-  </td>
-</tr>
-</table>
-
-Here you have to identify a stylesheet by means of a relative or absolute URI. Usually
-you will specify a relative URI when using the getter to retrieve the stylesheet.
-Moreover, you can specify a key associated to this stylesheet, so that it will be easier to
-refer to it in subsequent operations. If escaping is enabled, then the stylesheet URI will
-be escaped. This might be particularly useful if the stylesheet is loaded by the getter.
-
-<br /><br />
-
-<table border="0">
-<tr>
-  <th align="left">Stylesheet</th>
-  <th align="left">Key</th>
-  <th align="left">Use Getter</th>
-  <th align="left">Escape</th>
-</tr>
-<tr>
-  <td>
-    <form name="stylesheetURI">
-      <input type="text" size="50"/>
-    </form>
-  </td>
-  <td>
-    <form name="stylesheetKey">
-      <input type="text" size="10"/>
-    </form>
-  </td>
-  <td>
-    <form name="loadUseGetter">
-      <input type="checkbox" checked="true"/>
-    </form>
-  </td>
-  <td>
-    <form name="loadEscape">
-      <input type="checkbox" checked="true"/>
-    </form>
-  </td>
-  <td>
-    <form>
-      <input type="button" value="Load" onClick="loadStylesheet()"/>
-    </form>
-  </td>
-  <td>
-    <form>
-      <input type="button" value="Reload" onClick="reloadStylesheet()"/>
-    </form>
-  </td>
-  <td>
-    <form>
-      <input type="button" value="Remove" onClick="removeStylesheet()"/>
-    </form>
-  </td>
-</tr>
-</table>
-
-Use the buttons below to remove or reload <i>all</i> the stylesheets inside the servlet. Use these commands with
-care, and remember that the servlet can be shared among different users:
-
-<br /><br />
-
-<table border="0">
-<tr>
-  <td>
-    <form>
-      <input type="button" value="Remove All" onClick="removeAllStylesheets()"/>
-    </form>
-  </td>
-  <td>
-    <form>
-      <input type="button" value="Reload All" onClick="top.result.location.replace(getUwoboURL() + 'reload')"/>
-    </form>
-  </td>
-</tr>
-</table>
-</div>
-
-<a name="process"/>
-<table border="0" width="100%" cellpadding="4" cellspacing="0">
-<tr>
-  <td class="head" align="left"><big>Processing</big></td>
-  <td class="back" align="right"><a href="#top">top</a></td>
-</tr>
-</table>
-
-<div id="indent">
-
-<br />
-
-You can use the &quot;Apply&quot; command to perform a transformation. Specify the URI of the source
-document in the form below. The URI can be relative or absolute (in the former case you
-will probably want to enable the use of the getter).
-If escaping is enabled, then special characters are escaped. This might be particularly useful
-if the source is loaded by the getter.
-
-<br /><br />
-
-<table border="0">
-<tr>
-  <th align="left">Source Document</th>
-  <th align="left">Escape</th>
-</tr>
-<tr>
-  <td>
-    <form name="sourceDocument">
-      <input type="text" size="50"/>
-    </form>
-  </td>
-  <td>
-    <form name="escapeSource">
-      <input type="checkbox" checked="true"/>
-    </form>
-  </td>
-</tr>
-</table>
-
-You can specify a sequence of zero or more parameters separated by blanks. Each
-parameter is made of a name immediately followed by <tt>=</tt> and then a value.
-If &quot;Escape&quot; is checked, then parameters are escaped in the final
-URI.
-
-<br /><br />
-
-<table border="0">
-<tr>
-  <th align="left">Parameters (optional)</th>
-  <th align="left">Escape</th>
-</tr>
-<tr>
-  <td>
-    <form name="parameters">
-      <input type="text" size="50"/>
-    </form>
-  </td>
-  <td>
-    <form name="escapeParameters">
-      <input type="checkbox" checked="true"/>
-    </form>
-  </td>
-</tr>
-</table>
-
-In the key list specify a list of keys
-separated by blanks. This is the list of stylesheets to be applied in sequence to the
-source document.
-When ready, click on the button and have fun!
-
-<br /><br />
-
-<table border="0">
-<tr>
-  <th align="left">Key list</th>
-  <th align="left">Use Getter</th>
-</tr>
-<tr>
-  <td>
-    <form name="keyList">
-      <input type="text" size="50"/>
-    </form>
-  </td>
-  <td>
-    <form name="applyUseGetter">
-      <input type="checkbox" checked="true"/>
-    </form>
-  </td>
-  <td>
-    <form>
-      <input type="button" value="Apply" onClick="applyStylesheets()"/>
-    </form>
-  </td>
-</tr>
-</table>
-
-</div>
-
-<table border="0" width="100%" cellpadding="4" cellspacing="0">
-<tr>
-  <td class="back" align="left">Page maintained by: <a href="mailto:luca.padovani@cs.unibo.it">Luca Padovani</a></td>
-  <td class="back" align="right"><a href="#top">top</a></td>
-</tr>
-</table>
-
-</body>
-
-</html>
-

diff --git a/helm/uwobo-panel/control.js b/helm/uwobo-panel/control.js
deleted file mode 100644 (file)
index 0202f25..0000000
--- a/helm/uwobo-panel/control.js
+++ /dev/null
@@ -1,185 +0,0 @@
-
-function getParam(name, def)
-{
-  var search = top.location.search;
-  search = search.slice(1);
-  var args = search.split("&");
-  var value = "-1";
-  for (var i = 0 ; i < args.length ; i++) {
-    var couple = args[i].split("=");
-    if (couple[0] == name) value = couple[1];
-  }
-  if (value == "-1") value = def;
-  return value;
-}
-
-function getInitialProcessorURL()
-{
-  return getParam("processorURL", "http://phd.cs.unibo.it:8080/helm/servlet/uwobo/");
-}
-
-function getInitialGetterURL()
-{
-  return getParam("getterURL", "http://phd.cs.unibo.it:8081/");
-}
-
-function getUwoboURL()
-{
-  return document.uwoboURL.elements[0].value;
-}
-
-function getGetterURL()
-{
-  return document.getterURL.elements[0].value;
-}
-
-function selectUwoboURL(ss)
-{
-  if (ss.selectedIndex == 0) {
-    document.uwoboURL.elements[0].value = "";
-  } else {
-    document.uwoboURL.elements[0].value = "http://" + ss.options[ss.selectedIndex].value + ":8080/helm/servlet/uwobo/";
-  }
-}
-
-function selectGetterURL(ss)
-{
-  if (ss.selectedIndex == 0) {
-    document.getterURL.elements[0].value = "";
-  } else {
-    document.getterURL.elements[0].value = "http://" + ss.options[ss.selectedIndex].value + ":8081/";
-  }
-}
-
-function getPredefinedStylesheetKey(i)
-{
-  var v = document.predefinedStylesheets.elements[0].options[i].value;
-  var va = v.split(",");
-  return va[0];
-}
-
-function getPredefinedStylesheetURI(i)
-{
-  var v = document.predefinedStylesheets.elements[0].options[i].value;
-  var va = v.split(",");
-  return va[1];
-}
-
-function getPredefinedStylesheetUseGetter(i)
-{
-  var v = document.predefinedStylesheets.elements[0].options[i].value;
-  var va = v.split(",");
-  return va[2];
-}
-
-function selectPredefinedStylesheet(ss)
-{
-  if (ss.selectedIndex == 0) {
-    document.stylesheetURI.elements[0].value = "";
-    document.stylesheetKey.elements[0].value = "";
-  } else {
-    document.stylesheetURI.elements[0].value = getPredefinedStylesheetURI(ss.selectedIndex);
-    document.stylesheetKey.elements[0].value = getPredefinedStylesheetKey(ss.selectedIndex);
-  }
-
-  document.loadUseGetter.elements[0].checked = getPredefinedStylesheetUseGetter(ss.selectedIndex) == "true" ? true : false;
-  document.loadEscape.elements[0].checked = true;
-}
-
-function getStylesheetURL()
-{
-  var s;
-
-  if (document.loadUseGetter.elements[0].checked) {
-    s = getGetterURL() + "getxslt?uri=" + document.stylesheetURI.elements[0].value;
-  } else {
-    s = document.stylesheetURI.elements[0].value;
-  }
-
-  if (document.loadEscape.elements[0].checked) s = escape(s);
-  
-  return s;
-}
-
-function loadStylesheet()
-{
-  top.result.location.replace(getUwoboURL() + "add?bind=" + document.stylesheetKey.elements[0].value + "," + getStylesheetURL());
-}
-
-function removeStylesheet()
-{
-  top.result.location.replace(getUwoboURL() + "remove?keys=" + document.stylesheetKey.elements[0].value);
-}
-
-function removeAllStylesheets()
-{
-  top.result.location.replace(getUwoboURL() + "remove");
-}
-
-function reloadStylesheet()
-{
-  top.result.location.replace(getUwoboURL() + "reload?keys=" + document.stylesheetKey.elements[0].value);
-}
-
-function loadAllPredefined()
-{
-  with (document.predefinedStylesheets.elements[0]) {
-    var i;
-    var request = "dummy=0";
-
-    for (i = 1; i < length; i++)
-      request +=
-        "&bind=" + getPredefinedStylesheetKey(i) + "," +  escape((getPredefinedStylesheetUseGetter(i) == "true" ? (getGetterURL() + "getxslt?uri=") : "") + getPredefinedStylesheetURI(i));
-    top.result.location.replace(getUwoboURL() + "add?" + request);
-  }
-}
-
-function removeAllPredefined()
-{
-  with (document.predefinedStylesheets.elements[0]) {
-    var i;
-    var request = "";
-
-    for (i = 1; i < length; i++)
-      request += getPredefinedStylesheetKey(i) + ",";
-    top.result.location.replace(getUwoboURL() + "remove?keys=" + request);
-  }
-}
-
-function applyStylesheets()
-{
-  var i = 0;
-  var keyList = document.keyList.elements[0].value.split(" ");
-
-  var url = getUwoboURL() + "apply?xmluri=";
-  
-  var sourceURL = "";
-
-  if (document.applyUseGetter.elements[0].checked)
-    sourceURL += getGetterURL() + "getxml?uri=";
-    
-  sourceURL += document.sourceDocument.elements[0].value;
-
-  if (document.escapeSource.elements[0].checked)
-    url += escape(sourceURL);
-  else
-    url += sourceURL;
-
-  url += "&keys=";
-  for (i = 0; i < keyList.length; i++) {
-    url += keyList[i];
-    if (i < keyList.length - 1) url += ",";
-  }
-
-  var paramList = document.parameters.elements[0].value.split(" ");
-  for (i = 0; i < paramList.length; i++)
-    if (paramList[i].length > 0) {
-      if (document.escapeParameters.elements[0].checked) {
-        var p = paramList[i].split("=");
-        url += "&param." + p[0] + "=" + escape(p[1]);
-      } else
-        url += "&param." + paramList[i];
-    }
-  
-  top.result.location.replace(url);
-}

diff --git a/helm/uwobo-panel/index.html b/helm/uwobo-panel/index.html
deleted file mode 100644 (file)
index caeebcf..0000000
--- a/helm/uwobo-panel/index.html
+++ /dev/null
@@ -1,8 +0,0 @@
-<html>
-
-<frameset rows="75%,*">
-  <frame src="control.html" name="control"/>
-  <frame src="welcome.html" name="result"/>
-</frameset>
-
-</html>

diff --git a/helm/uwobo-panel/welcome.html b/helm/uwobo-panel/welcome.html
deleted file mode 100644 (file)
index f6fbed4..0000000
--- a/helm/uwobo-panel/welcome.html
+++ /dev/null
@@ -1,6 +0,0 @@
-<html>
-
-<body bgcolor="white">
-</body>
-
-</html>

diff --git a/helm/uwobo/.cvsignore b/helm/uwobo/.cvsignore
deleted file mode 100644 (file)
index 61dcd18..0000000
--- a/helm/uwobo/.cvsignore
+++ /dev/null
@@ -1,4 +0,0 @@
-build
-resources
-backup
-dist

diff --git a/helm/uwobo/.cvswrappers b/helm/uwobo/.cvswrappers
deleted file mode 100644 (file)
index 0140b55..0000000
--- a/helm/uwobo/.cvswrappers
+++ /dev/null
@@ -1 +0,0 @@
-*.jar  -k 'b' -m 'COPY'

diff --git a/helm/uwobo/ant/ant.jar b/helm/uwobo/ant/ant.jar
deleted file mode 100644 (file)
index 9a14d89..0000000
Binary files a/helm/uwobo/ant/ant.jar and /dev/null differ

diff --git a/helm/uwobo/ant/jaxp.jar b/helm/uwobo/ant/jaxp.jar
deleted file mode 100644 (file)
index 9cfa231..0000000
Binary files a/helm/uwobo/ant/jaxp.jar and /dev/null differ

diff --git a/helm/uwobo/ant/parser.jar b/helm/uwobo/ant/parser.jar
deleted file mode 100644 (file)
index eb85832..0000000
Binary files a/helm/uwobo/ant/parser.jar and /dev/null differ

diff --git a/helm/uwobo/antRun b/helm/uwobo/antRun
deleted file mode 100755 (executable)
index 5894f44..0000000
--- a/helm/uwobo/antRun
+++ /dev/null
@@ -1,8 +0,0 @@
-#! /bin/sh
-
-if [ "$JAVA_HOME" != "" ] ; then
-       $JAVA_HOME/bin/java -cp ant/ant.jar:ant/jaxp.jar:ant/parser.jar:$JAVA_HOME/lib/tools.jar -Dant.home=. $ANT_OPTS org.apache.tools.ant.Main $@
-else
-       echo "Warning: JAVA_HOME environment variable is not set."
-fi
-

diff --git a/helm/uwobo/antRun.bat b/helm/uwobo/antRun.bat
deleted file mode 100644 (file)
index e83ce36..0000000
--- a/helm/uwobo/antRun.bat
+++ /dev/null
@@ -1,17 +0,0 @@
-@echo off
-set ANT_CMD_LINE_ARGS=
-
-:setupArgs
-if %1a==a goto checkJavaHome
-set ANT_CMD_LINE_ARGS=%ANT_CMD_LINE_ARGS% %1
-shift
-goto setupArgs
-
-:checkJavaHome
-if not "%JAVA_HOME%" == "" goto runAnt
-echo Warning: JAVA_HOME environment variable is not set.
-
-:runAnt
-java -cp ant\ant.jar;ant\jaxp.jar;ant\parser.jar;%JAVA_HOME%\lib\tools.jar -Dant.home=.\ org.apache.tools.ant.Main %ANT_CMD_LINE_ARGS%
-
-set ANT_CMD_LINE_ARGS=

diff --git a/helm/uwobo/build.xml b/helm/uwobo/build.xml
deleted file mode 100644 (file)
index 634c623..0000000
--- a/helm/uwobo/build.xml
+++ /dev/null
@@ -1,182 +0,0 @@
-<?xml version="1.0"?>
-
-<project name="uwobo" default="build" basedir=".">
-
-       <property name="Name" value="Uwobo"/>
-       <property name="name" value="uwobo"/>
-       <property name="version" value="1.2.1"/>
-       <property name="serialization_dir" value=""/>
-
-       <property file=".${name}.properties" />
-       <property file="${user.home}/.${name}.properties" />
-
-       <property name="packages" value="it.unibo.cs.helm.uwobo.*" />
-
-       <property name="helm.home" value="." />
-       <property name="src.dir" value="src" />
-       <property name="docs.dir" value="docs" />
-       <property name="lib.dir" value="lib" />
-       <property name="build.dir" value="build" />
-       <property name="dist.dir" value="dist" />
-       <property name="deploy.dir" value="deploy/webapps/helm"/>
-       <property name="tomcat.dir" value="/projects/helm/shared/libraries/tomcat/"/>
- 
-       <property file=".${name}.properties" />
-       <property file="${user.home}/.${name}.properties" />
-
-       <path id="compile.classpath">
-               <fileset dir="${lib.dir}">
-                       <include name="*.jar"/>
-                       <include name="*.zip"/>
-                       <exclude name="${name}*.jar"/>
-               </fileset>
-               <pathelement location="${build.dir}"/>
-       </path>
-
-       <path id="runtime_server.classpath">
-               <fileset dir="${lib.dir}">
-                       <include name="*.jar"/>
-                       <include name="*.zip"/>
-                       <exclude name="${name}_client.jar"/>
-               </fileset>
-       </path>
-
-       <path id="runtime_client.classpath">
-               <fileset dir="${lib.dir}">
-                       <include name="*.jar"/>
-                       <include name="*.zip"/>
-                       <exclude name="${name}_server.jar"/>
-               </fileset>
-       </path>
-
-       <target name="prepare">
-               <mkdir dir="${build.dir}" />
-               <tstamp />
-       </target>
-
-       <target name="compile" depends="prepare">
-               <javac srcdir="${src.dir}" destdir="${build.dir}" debug="on" deprecation="off" >
-                       <include name="**/*.java" />
-                       <classpath refid="compile.classpath"/>
-               </javac>
-
-               <filter token="PACKAGE" value="${Name}" />
-               <filter token="VERSION" value="${version}" />
-               <filter token="DATE" value="${TODAY}" />
-               <filter token="TIME" value="${TSTAMP}" />
-                <filter token="SERIALIZATION_DIR" value="${serialization_dir}" />
-               <copy todir="${build.dir}" overwrite="true" filtering="on">
-                       <fileset dir="${src.dir}">
-                               <include name="**/properties.txt" />
-                       </fileset>
-               </copy>
-       </target>
-
-       <target name="build" depends="compile">
-               <war warfile="${lib.dir}/helm.war" webxml="web.xml">
-                       <lib dir="${lib.dir}">
-                               <exclude name="servlet.jar"/>
-                               <exclude name="${name}*.jar"/>
-                               <exclude name="*.war"/>
-                       </lib>
-                       <classes dir="${build.dir}"/>
-               </war>
-       </target>
-
-       <target name="install" depends="build">
-               <delete dir="${tomcat.dir}/webapps/helm" />
-               <copy todir="${tomcat.dir}/webapps" file="${lib.dir}/helm.war" />
-       </target>
-
-       <target name="compile_final" depends="clean, prepare">
-               <javac srcdir="${src.dir}" destdir="${build.dir}" debug="off" deprecation="on" optimize="on">
-                       <include name="**/*.java" />
-                       <classpath refid="compile.classpath"/>
-               </javac>
-
-               <filter token="PACKAGE" value="${Name}" />
-               <filter token="VERSION" value="${version}" />
-               <filter token="DATE" value="${TODAY}" />
-               <filter token="TIME" value="${TSTAMP}" />
-               <copy todir="${build.dir}" overwrite="true" filtering="on">
-                       <fileset dir="${src.dir}">
-                               <include name="**/properties.txt" />
-                       </fileset>
-               </copy>
-       </target>
-
-       <target name="build_final" depends="compile_final">
-               <war warfile="${lib.dir}/helm.war" webxml="web.xml">
-                       <lib dir="${lib.dir}">
-                               <exclude name="servlet.jar"/>
-                               <exclude name="${name}*.jar"/>
-                               <exclude name="*.war"/>
-                       </lib>
-                       <classes dir="${build.dir}"/>
-               </war>
-       </target>
-
-       <target name="dist" depends="build_final">
-               <mkdir dir="${dist.dir}" />
-               <mkdir dir="${dist.dir}/ant" />
-               <chmod file="${dist.dir}/ant" perm="ugo+x" type="dir"/>
-               <mkdir dir="${dist.dir}/lib" />
-               <chmod file="${dist.dir}/lib" perm="ugo+x" type="dir"/>
-               <mkdir dir="${dist.dir}/docs" />
-               <chmod file="${dist.dir}/docs" perm="ugo+x" type="dir"/>
-               <mkdir dir="${dist.dir}/resources" />
-               <chmod file="${dist.dir}/resources" perm="ugo+x" type="dir"/>
-               <mkdir dir="${dist.dir}/src" />
-               <chmod file="${dist.dir}/src" perm="ugo+x" type="dir"/>
-
-               <copy todir="${dist.dir}/ant" >
-                       <fileset dir="ant" />
-               </copy>
-               <copy todir="${dist.dir}/lib" >
-                       <fileset dir="${lib.dir}" />
-               </copy>
-               <copy todir="${dist.dir}/docs" >
-                       <fileset dir="${docs.dir}" />
-               </copy>
-                <!-- CSC: next line needed only if resources is empty -->
-               <mkdir dir="resources"/>
-               <copy todir="${dist.dir}/resources" >
-                       <fileset dir="resources" />
-               </copy>
-               <copy todir="${dist.dir}/src" >
-                       <fileset dir="${src.dir}" />
-               </copy>
-
-               <copy todir="${dist.dir}" file="antRun" />
-               <chmod file="${dist.dir}/antRun" perm="ugo+rx"/>
-               <copy todir="${dist.dir}" file="antRun.bat" />
-               <copy todir="${dist.dir}" file="build.xml" />
-               <copy todir="${dist.dir}" file="web.xml" />
-       </target>
-
-       <target name="dist-zip" depends="dist">
-               <mkdir dir="backup"/>
-               <zip zipfile="backup/${Name}-${version}.zip" basedir="${dist.dir}" includes="**" />
-       </target>
-
-       <target name="dist-unzip">
-               <unzip src="backup/${Name}.zip" dest="."/>
-       </target>
-
-       <target name="dist-tgz" depends="dist">
-               <mkdir dir="backup"/>
-               <move todir="${name}">
-                       <fileset dir="${dist.dir}"/>
-               </move>
-               <tar tarfile="backup/${Name}-${version}.tar" basedir="." includes="${name}/**"/>
-               <move todir="${dist.dir}">
-                       <fileset dir="${name}"/>
-               </move>
-               <gzip zipfile="backup/${Name}-${version}.tar.gz" src="backup/${Name}-${version}.tar"/>
-       </target>
-
-       <target name="clean">
-               <delete dir="${build.dir}" />    
-               <delete dir="${dist.dir}" />    
-       </target>
-</project>

diff --git a/helm/uwobo/docs/COPYING b/helm/uwobo/docs/COPYING
deleted file mode 100644 (file)
index d60c31a..0000000
--- a/helm/uwobo/docs/COPYING
+++ /dev/null
@@ -1,340 +0,0 @@
-                   GNU GENERAL PUBLIC LICENSE
-                      Version 2, June 1991
-
- Copyright (C) 1989, 1991 Free Software Foundation, Inc.
-     59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-                           Preamble
-
-  The licenses for most software are designed to take away your
-freedom to share and change it.  By contrast, the GNU General Public
-License is intended to guarantee your freedom to share and change free
-software--to make sure the software is free for all its users.  This
-General Public License applies to most of the Free Software
-Foundation's software and to any other program whose authors commit to
-using it.  (Some other Free Software Foundation software is covered by
-the GNU Library General Public License instead.)  You can apply it to
-your programs, too.
-
-  When we speak of free software, we are referring to freedom, not
-price.  Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-this service if you wish), that you receive source code or can get it
-if you want it, that you can change the software or use pieces of it
-in new free programs; and that you know you can do these things.
-
-  To protect your rights, we need to make restrictions that forbid
-anyone to deny you these rights or to ask you to surrender the rights.
-These restrictions translate to certain responsibilities for you if you
-distribute copies of the software, or if you modify it.
-
-  For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must give the recipients all the rights that
-you have.  You must make sure that they, too, receive or can get the
-source code.  And you must show them these terms so they know their
-rights.
-
-  We protect your rights with two steps: (1) copyright the software, and
-(2) offer you this license which gives you legal permission to copy,
-distribute and/or modify the software.
-
-  Also, for each author's protection and ours, we want to make certain
-that everyone understands that there is no warranty for this free
-software.  If the software is modified by someone else and passed on, we
-want its recipients to know that what they have is not the original, so
-that any problems introduced by others will not reflect on the original
-authors' reputations.
-
-  Finally, any free program is threatened constantly by software
-patents.  We wish to avoid the danger that redistributors of a free
-program will individually obtain patent licenses, in effect making the
-program proprietary.  To prevent this, we have made it clear that any
-patent must be licensed for everyone's free use or not licensed at all.
-
-  The precise terms and conditions for copying, distribution and
-modification follow.
-\f
-                   GNU GENERAL PUBLIC LICENSE
-   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
-  0. This License applies to any program or other work which contains
-a notice placed by the copyright holder saying it may be distributed
-under the terms of this General Public License.  The "Program", below,
-refers to any such program or work, and a "work based on the Program"
-means either the Program or any derivative work under copyright law:
-that is to say, a work containing the Program or a portion of it,
-either verbatim or with modifications and/or translated into another
-language.  (Hereinafter, translation is included without limitation in
-the term "modification".)  Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not
-covered by this License; they are outside its scope.  The act of
-running the Program is not restricted, and the output from the Program
-is covered only if its contents constitute a work based on the
-Program (independent of having been made by running the Program).
-Whether that is true depends on what the Program does.
-
-  1. You may copy and distribute verbatim copies of the Program's
-source code as you receive it, in any medium, provided that you
-conspicuously and appropriately publish on each copy an appropriate
-copyright notice and disclaimer of warranty; keep intact all the
-notices that refer to this License and to the absence of any warranty;
-and give any other recipients of the Program a copy of this License
-along with the Program.
-
-You may charge a fee for the physical act of transferring a copy, and
-you may at your option offer warranty protection in exchange for a fee.
-
-  2. You may modify your copy or copies of the Program or any portion
-of it, thus forming a work based on the Program, and copy and
-distribute such modifications or work under the terms of Section 1
-above, provided that you also meet all of these conditions:
-
-    a) You must cause the modified files to carry prominent notices
-    stating that you changed the files and the date of any change.
-
-    b) You must cause any work that you distribute or publish, that in
-    whole or in part contains or is derived from the Program or any
-    part thereof, to be licensed as a whole at no charge to all third
-    parties under the terms of this License.
-
-    c) If the modified program normally reads commands interactively
-    when run, you must cause it, when started running for such
-    interactive use in the most ordinary way, to print or display an
-    announcement including an appropriate copyright notice and a
-    notice that there is no warranty (or else, saying that you provide
-    a warranty) and that users may redistribute the program under
-    these conditions, and telling the user how to view a copy of this
-    License.  (Exception: if the Program itself is interactive but
-    does not normally print such an announcement, your work based on
-    the Program is not required to print an announcement.)
-\f
-These requirements apply to the modified work as a whole.  If
-identifiable sections of that work are not derived from the Program,
-and can be reasonably considered independent and separate works in
-themselves, then this License, and its terms, do not apply to those
-sections when you distribute them as separate works.  But when you
-distribute the same sections as part of a whole which is a work based
-on the Program, the distribution of the whole must be on the terms of
-this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest
-your rights to work written entirely by you; rather, the intent is to
-exercise the right to control the distribution of derivative or
-collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program
-with the Program (or with a work based on the Program) on a volume of
-a storage or distribution medium does not bring the other work under
-the scope of this License.
-
-  3. You may copy and distribute the Program (or a work based on it,
-under Section 2) in object code or executable form under the terms of
-Sections 1 and 2 above provided that you also do one of the following:
-
-    a) Accompany it with the complete corresponding machine-readable
-    source code, which must be distributed under the terms of Sections
-    1 and 2 above on a medium customarily used for software interchange; or,
-
-    b) Accompany it with a written offer, valid for at least three
-    years, to give any third party, for a charge no more than your
-    cost of physically performing source distribution, a complete
-    machine-readable copy of the corresponding source code, to be
-    distributed under the terms of Sections 1 and 2 above on a medium
-    customarily used for software interchange; or,
-
-    c) Accompany it with the information you received as to the offer
-    to distribute corresponding source code.  (This alternative is
-    allowed only for noncommercial distribution and only if you
-    received the program in object code or executable form with such
-    an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for
-making modifications to it.  For an executable work, complete source
-code means all the source code for all modules it contains, plus any
-associated interface definition files, plus the scripts used to
-control compilation and installation of the executable.  However, as a
-special exception, the source code distributed need not include
-anything that is normally distributed (in either source or binary
-form) with the major components (compiler, kernel, and so on) of the
-operating system on which the executable runs, unless that component
-itself accompanies the executable.
-
-If distribution of executable or object code is made by offering
-access to copy from a designated place, then offering equivalent
-access to copy the source code from the same place counts as
-distribution of the source code, even though third parties are not
-compelled to copy the source along with the object code.
-\f
-  4. You may not copy, modify, sublicense, or distribute the Program
-except as expressly provided under this License.  Any attempt
-otherwise to copy, modify, sublicense or distribute the Program is
-void, and will automatically terminate your rights under this License.
-However, parties who have received copies, or rights, from you under
-this License will not have their licenses terminated so long as such
-parties remain in full compliance.
-
-  5. You are not required to accept this License, since you have not
-signed it.  However, nothing else grants you permission to modify or
-distribute the Program or its derivative works.  These actions are
-prohibited by law if you do not accept this License.  Therefore, by
-modifying or distributing the Program (or any work based on the
-Program), you indicate your acceptance of this License to do so, and
-all its terms and conditions for copying, distributing or modifying
-the Program or works based on it.
-
-  6. Each time you redistribute the Program (or any work based on the
-Program), the recipient automatically receives a license from the
-original licensor to copy, distribute or modify the Program subject to
-these terms and conditions.  You may not impose any further
-restrictions on the recipients' exercise of the rights granted herein.
-You are not responsible for enforcing compliance by third parties to
-this License.
-
-  7. If, as a consequence of a court judgment or allegation of patent
-infringement or for any other reason (not limited to patent issues),
-conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License.  If you cannot
-distribute so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you
-may not distribute the Program at all.  For example, if a patent
-license would not permit royalty-free redistribution of the Program by
-all those who receive copies directly or indirectly through you, then
-the only way you could satisfy both it and this License would be to
-refrain entirely from distribution of the Program.
-
-If any portion of this section is held invalid or unenforceable under
-any particular circumstance, the balance of the section is intended to
-apply and the section as a whole is intended to apply in other
-circumstances.
-
-It is not the purpose of this section to induce you to infringe any
-patents or other property right claims or to contest validity of any
-such claims; this section has the sole purpose of protecting the
-integrity of the free software distribution system, which is
-implemented by public license practices.  Many people have made
-generous contributions to the wide range of software distributed
-through that system in reliance on consistent application of that
-system; it is up to the author/donor to decide if he or she is willing
-to distribute software through any other system and a licensee cannot
-impose that choice.
-
-This section is intended to make thoroughly clear what is believed to
-be a consequence of the rest of this License.
-\f
-  8. If the distribution and/or use of the Program is restricted in
-certain countries either by patents or by copyrighted interfaces, the
-original copyright holder who places the Program under this License
-may add an explicit geographical distribution limitation excluding
-those countries, so that distribution is permitted only in or among
-countries not thus excluded.  In such case, this License incorporates
-the limitation as if written in the body of this License.
-
-  9. The Free Software Foundation may publish revised and/or new versions
-of the General Public License from time to time.  Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
-Each version is given a distinguishing version number.  If the Program
-specifies a version number of this License which applies to it and "any
-later version", you have the option of following the terms and conditions
-either of that version or of any later version published by the Free
-Software Foundation.  If the Program does not specify a version number of
-this License, you may choose any version ever published by the Free Software
-Foundation.
-
-  10. If you wish to incorporate parts of the Program into other free
-programs whose distribution conditions are different, write to the author
-to ask for permission.  For software which is copyrighted by the Free
-Software Foundation, write to the Free Software Foundation; we sometimes
-make exceptions for this.  Our decision will be guided by the two goals
-of preserving the free status of all derivatives of our free software and
-of promoting the sharing and reuse of software generally.
-
-                           NO WARRANTY
-
-  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
-OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
-TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
-PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
-REPAIR OR CORRECTION.
-
-  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
-INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
-OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
-TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
-YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
-PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGES.
-
-                    END OF TERMS AND CONDITIONS
-\f
-           How to Apply These Terms to Your New Programs
-
-  If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
-  To do so, attach the following notices to the program.  It is safest
-to attach them to the start of each source file to most effectively
-convey the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
-    <one line to give the program's name and a brief idea of what it does.>
-    Copyright (C) <year>  <name of author>
-
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-
-
-Also add information on how to contact you by electronic and paper mail.
-
-If the program is interactive, make it output a short notice like this
-when it starts in an interactive mode:
-
-    Gnomovision version 69, Copyright (C) year  name of author
-    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
-    This is free software, and you are welcome to redistribute it
-    under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License.  Of course, the commands you use may
-be called something other than `show w' and `show c'; they could even be
-mouse-clicks or menu items--whatever suits your program.
-
-You should also get your employer (if you work as a programmer) or your
-school, if any, to sign a "copyright disclaimer" for the program, if
-necessary.  Here is a sample; alter the names:
-
-  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
-  `Gnomovision' (which makes passes at compilers) written by James Hacker.
-
-  <signature of Ty Coon>, 1 April 1989
-  Ty Coon, President of Vice
-
-This General Public License does not permit incorporating your program into
-proprietary programs.  If your program is a subroutine library, you may
-consider it more useful to permit linking proprietary applications with the
-library.  If this is what you want to do, use the GNU Library General
-Public License instead of this License.

diff --git a/helm/uwobo/lib/.cvsignore b/helm/uwobo/lib/.cvsignore
deleted file mode 100644 (file)
index a31a003..0000000
--- a/helm/uwobo/lib/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-helm.war

diff --git a/helm/uwobo/lib/servlet.jar b/helm/uwobo/lib/servlet.jar
deleted file mode 100644 (file)
index 1b70ec1..0000000
Binary files a/helm/uwobo/lib/servlet.jar and /dev/null differ

diff --git a/helm/uwobo/lib/xalan.jar b/helm/uwobo/lib/xalan.jar
deleted file mode 100644 (file)
index 8cc008d..0000000
Binary files a/helm/uwobo/lib/xalan.jar and /dev/null differ

diff --git a/helm/uwobo/lib/xerces.jar b/helm/uwobo/lib/xerces.jar
deleted file mode 100644 (file)
index 3c7d18a..0000000
Binary files a/helm/uwobo/lib/xerces.jar and /dev/null differ

diff --git a/helm/uwobo/src/it/unibo/cs/helm/uwobo/Key.java b/helm/uwobo/src/it/unibo/cs/helm/uwobo/Key.java
deleted file mode 100644 (file)
index 0a31132..0000000
--- a/helm/uwobo/src/it/unibo/cs/helm/uwobo/Key.java
+++ /dev/null
@@ -1,33 +0,0 @@
-/* Copyright (C) 2001, HELM Team
- *
- * This file is part of UWOBO, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * UWOBO is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- *
- * UWOBO is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with UWOBO; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- *
- * For details, see the UWOBO World-Wide-Web page,
- * http://cs.unibo.it/helm/uwobo
- */
-
-package it.unibo.cs.helm.uwobo;
-
-import java.util.*;
-
-public class Key {
-        public String  name;
-        public HashMap params;
-};
-

diff --git a/helm/uwobo/src/it/unibo/cs/helm/uwobo/Server.java b/helm/uwobo/src/it/unibo/cs/helm/uwobo/Server.java
deleted file mode 100644 (file)
index 293b2b9..0000000
--- a/helm/uwobo/src/it/unibo/cs/helm/uwobo/Server.java
+++ /dev/null
@@ -1,423 +0,0 @@
-/* Copyright (C) 2001, HELM Team
- *
- * This file is part of UWOBO, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * UWOBO is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- *
- * UWOBO is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with UWOBO; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- *
- * For details, see the UWOBO World-Wide-Web page,
- * http://cs.unibo.it/helm/uwobo
- */
-
-package it.unibo.cs.helm.uwobo;
-
-import java.io.*;
-import java.net.URL;
-import java.util.*;
-import javax.xml.transform.*;
-import javax.xml.transform.sax.*;
-import javax.xml.transform.stream.*;
-import org.apache.xalan.serialize.*;
-import org.apache.xalan.xslt.*;
-import org.apache.xalan.templates.*;
-import org.apache.xalan.transformer.*;
-import org.apache.xerces.parsers.*;
-import org.xml.sax.*;
-import org.xml.sax.ext.*;
-import org.xml.sax.helpers.*;
-
-/**
-// This file is part of UWOBO, a small and simple XSLT server.
-// 
-// UWOBO is free software; you can redistribute it and/or
-// modify it under the terms of the GNU General Public License
-// as published by the Free Software Foundation; either version 2
-// of the License, or (at your option) any later version.
-//
-// UWOBO is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// GNU General Public License for more details.
-//
-// You should have received a copy of the GNU General Public License
-// along with UWOBO; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
-// 
-// For details, send a mail to <luca.padovani@cs.unibo.it>
-* @author Luca Padovani, Riccardo Solmi
-*/
-
-public class Server {
-       private static class Style implements Serializable {
-               public String fileName;
-               public Templates stylesheet;
-       };
-
-       public static final String SERVERNAME = "uwobo-XSLT-server";
-       public static final String PACKAGE;
-       public static final String VERSION;
-       public static final String DATE;
-       public static final String TIME;
-       public static final String SERIALIZATION_DIR;
-
-       static {
-               Properties props = new Properties();
-               try {
-                       InputStream in = Server.class.getResourceAsStream("properties.txt");
-                       props.load(in);
-                       in.close();
-               } catch (IOException ioe) {
-                       System.err.println("Could not load the version information.");
-               }
-
-               PACKAGE = props.getProperty("PACKAGE");
-               VERSION = props.getProperty("VERSION");
-               DATE = props.getProperty("DATE");
-               TIME = props.getProperty("TIME");
-                SERIALIZATION_DIR = props.getProperty("SERIALIZATION_DIR");
-       }
-
-        Server() {
-           if(!SERIALIZATION_DIR.equals("")) {
-              log("Looking for serialized stylesheets");
-              File [] serialized = new File(SERIALIZATION_DIR).listFiles();
-              if (serialized == null) {
-                 log("Serialized stylesheets directory \"" + SERIALIZATION_DIR +
-                  "\" not found");
-              } else {
-                 for (int i = 0; i < serialized.length ; i++) {
-                    File filename = serialized[i];
-                    String key = filename.getName();
-                    log("Found serialized stylesheet " + key);
-                    log("Reloading serialized stylesheet \"" + filename + "\"... ");
-                    FileInputStream istream;
-                    try {
-                       istream = new FileInputStream(filename);
-                       ObjectInputStream p = new ObjectInputStream(istream);
-                       Style style = (Style)p.readObject();
-                       istream.close();
-                       hashMap.put(key, style);
-                    } catch (Exception e) {log(e.toString());};
-                 }
-                 log("Serialized stylesheets loaded!");
-              }
-           } else
-              log("Stylesheet serialization is off. Set the property SERIALIZATION_DIR to a non-empty value to turn it on.");
-          
-        }
-
-       private final HashMap hashMap = new HashMap();
-       private static int logCounter = 0;
-       
-       private final String compileStylesheet(Style style, String key) throws TransformerConfigurationException, SAXException, IOException {
-               StreamSource streamsource =
-                       new StreamSource(new URL(style.fileName).openStream());
-               streamsource.setSystemId(style.fileName);
-                Templates templates =
-                   ((SAXTransformerFactory)TransformerFactory.newInstance())
-                      .newTemplates(streamsource);
-                style.stylesheet = templates;
-                File serializationFile = new File(SERIALIZATION_DIR,key);
-                String res = "";
-                if(!SERIALIZATION_DIR.equals("")) {
-                   try {
-                      FileOutputStream ostream =
-                         new FileOutputStream(serializationFile);
-                      ObjectOutputStream p = new ObjectOutputStream(ostream);
-                      p.writeObject(style);
-                      p.flush();
-                      ostream.close();
-                      res =
-                       "Stylesheet serialized in \"" + serializationFile + "\"";
-                     log(res);
-                   } catch (FileNotFoundException e) {
-                      res = "Warning: Stylesheet not " +
-                         "serialized. Error opening " + "file \"" +
-                         serializationFile + "\"";
-                     log(res);
-                      res = htmlOfWarning(res);
-                   }
-                }
-                return res;
-       }
-
-       private String getContentType(Templates templates) {
-               final Properties oprops = templates.getOutputProperties();
-               final String encoding = oprops.getProperty(OutputKeys.ENCODING);  
-               final String media = oprops.getProperty(OutputKeys.MEDIA_TYPE);
-
-               if (media != null) {
-                       if (encoding != null)
-                               return media + "; charset=" + encoding;
-                       return media;
-               } else {
-                       final String method = oprops.getProperty(OutputKeys.METHOD);
-                       if (method.equals("html"))
-                               return "text/html";
-                       else if (method.equals("text"))
-                               return "text/plain";
-                       else 
-                               return "text/xml";
-               }
-       }
-
-       private final ContentHandler applyStylesheet(Templates stylesheet, HashMap params, ContentHandler saxOutput)
-       throws TransformerConfigurationException, SAXException
-       {
-               TransformerHandler th = ((SAXTransformerFactory)TransformerFactory.newInstance()).newTransformerHandler(stylesheet);
-
-               th.setResult(new SAXResult(saxOutput));
-
-               if (params != null) {
-                       final Transformer transformer = th.getTransformer();
-                       Iterator i = params.keySet().iterator();
-                       while (i.hasNext()) {
-                               final String name = (String) i.next();
-                               final String value = (String) params.get(name);
-                               transformer.setParameter(name, value);
-                       }
-               }
-
-               return th;
-       }
-
-       private final void parseFile(String datasheet, ContentHandler saxOutput) throws SAXException, IOException, Exception {
-               final XMLReader reader = XMLReaderFactory.createXMLReader("org.apache.xerces.parsers.SAXParser");
-               reader.setFeature("http://xml.org/sax/features/namespaces", true);
-               reader.setFeature("http://xml.org/sax/features/namespace-prefixes", true);
-               reader.setContentHandler(saxOutput);
-               if (saxOutput instanceof LexicalHandler)
-                       reader.setProperty("http://xml.org/sax/properties/lexical-handler", (LexicalHandler)saxOutput);
-               reader.parse(datasheet);
-       }
-
-       private final ContentHandler saveFile(OutputStream outputStream, Properties props) throws IOException {
-               final Serializer ser = SerializerFactory.getSerializer(props);
-               ser.setOutputStream(outputStream);
-               return ser.asContentHandler();
-       }
-
-       public static void log(String msg) {
-               System.err.println(SERVERNAME + "[" + logCounter++ + "]: " + msg);
-       }
-
-       public String add(String filename, String key) throws TransformerConfigurationException, SAXException, IOException {
-               log("processing stylesheet \"" + filename + "\" using key " + key + "... ");
-               if (hashMap.containsKey(key)) {
-                   Style style = (Style)hashMap.get(key);
-                   if (style.fileName.equals(filename)) {
-                      String msg =
-                         "Warning: Stylesheet already loaded. Request ignored.";
-                      log(msg);
-                      return htmlOfWarning(msg);
-                   } else {
-                      String res =
-                         "Error: There is already a stylesheet with keyword \""+
-                          key + "\" (aborted)";
-                      log(res);
-                      return htmlOfError(res);
-                   }
-               }
-
-               Style style = new Style();
-               style.fileName = filename;
-               String res = compileStylesheet(style,key);
-                log("done!");
-
-               hashMap.put(key, style);
-                return res;
-       }
-
-       public ArrayList removeAll() throws TransformerConfigurationException, SAXException, IOException {
-                ArrayList res = new ArrayList();
-                String log = "";
-               Iterator i = hashMap.keySet().iterator();
-               while (i.hasNext()) {
-                        String key = (String)i.next();
-                       Style style = (Style)hashMap.get(key);
-                        String msg =
-                         "removing \"" + key + " (" + style.fileName + ")";
-                        res.add(msg);
-                        log(msg);
-                        msg = partialRemove(key,false);
-                        if(!msg.equals(""))
-                           res.add(msg);
-                }
-                hashMap.clear();
-                return res;
-       }
-
-       private String partialRemove(String key, boolean removeFromHashTable) {
-                String res = "";
-               Style style = (Style)hashMap.get(key);
-               if (style != null) {
-                       log("removing \"" + key + " (" + style.fileName + ")");
-                       if (removeFromHashTable)
-                           hashMap.remove(key);
-                        if(!SERIALIZATION_DIR.equals("")) {
-                           File to_delete = new File(SERIALIZATION_DIR,key);
-                           if (!to_delete.delete()) {
-                              res = "Warning: Serialized stylesheet \"" +
-                                 to_delete + "\" to remove not found";
-                              log(res);
-                              res = htmlOfWarning(res);
-                           }
-                        }
-               } else {
-                       res = "Error: stylesheet \"" + key + "\" not loaded";
-                        log(res);
-                        res = htmlOfError(res);
-               }
-                return res;
-       }
-
-       public String remove(String key) {
-           return partialRemove(key,true);
-       }
-
-       public String getContentType(String key) {
-               Style style = (Style)hashMap.get(key);
-               if (style != null) {
-                       return getContentType(style.stylesheet);
-               } else {
-                       log("Error, stylesheet \"" + key + "\" not loaded");
-                       return null;
-               }
-       }
-
-       public List list() {
-               log("listing stylesheets...");
-               ArrayList l = new ArrayList();
-               Iterator i = hashMap.keySet().iterator();
-               while (i.hasNext()) {
-                       String key  = (String)i.next();
-                       Style style = (Style)hashMap.get(key);
-                       l.add("  " + key + " (" + style.fileName + "; " + getContentType(style.stylesheet) + ")");
-                       System.out.println("  " + key + " (" + style.fileName + ")");
-               }
-               log("done!");
-               return l;
-       }
-
-       private ContentHandler applyRec(final Key[] keys, int idx, final ContentHandler saxOutput)
-       throws TransformerConfigurationException, SAXException, IOException
-       {
-               if (idx < 0)
-                       return saxOutput;
-               else {
-                       final Style style = (Style) hashMap.get(keys[idx].name);
-                       if (style == null) {
-                               log("cannot apply unknwon stylesheet \"" + keys[idx].name + "\" (aborted)");
-                               return null;
-                       }
-                       return applyStylesheet(style.stylesheet, keys[idx].params, applyRec(keys, idx - 1, saxOutput));
-               }
-       }
-
-       public void apply(String inFile, OutputStream outputStream, Key[] keys, Properties userProperties)
-       throws IOException, TransformerConfigurationException, SAXException, Exception
-       {
-/*             File outFile = new File(outFilename);
-               if (outFile.exists())
-                       System.out.println("Using cached version\n");
-               else {
-*/                     
-                       final Key[] rkeys = new Key[keys.length];
-                       for (int i = 0; i < keys.length; i++)
-                               rkeys[i] = keys[keys.length - i - 1];
-
-                       Properties outputProperties; 
-                       Properties defaultProperties;
-                       String method;
-
-                       if (keys.length > 0) {
-                               Style style = (Style) hashMap.get(rkeys[0].name);
-                               if (style == null) {
-                                       log("Error, stylesheet \"" + rkeys[0].name + "\" not loaded");
-                                       return;
-                               }
-                               outputProperties = style.stylesheet.getOutputProperties();
-                               method = userProperties.getProperty("method");
-                               if (method == null) method = outputProperties.getProperty("method");
-                               if (method == null) method = "xml";
-                               defaultProperties = org.apache.xalan.templates.OutputProperties.getDefaultMethodProperties(method);
-                       } else {
-                               method = userProperties.getProperty("method");
-                               if (method == null) method = "xml";
-                               outputProperties = org.apache.xalan.templates.OutputProperties.getDefaultMethodProperties(method);
-                               defaultProperties = outputProperties;
-                       }
-
-                       for (Enumeration e = userProperties.propertyNames(); e.hasMoreElements(); ) {
-                               String prop = (String) e.nextElement();
-                               String value = userProperties.getProperty(prop);
-                               if (value.equals("")) {
-                                       String defaultValue = defaultProperties.getProperty(prop);
-                                       if (defaultValue != null)
-                                               outputProperties.setProperty(prop, defaultProperties.getProperty(prop));
-                                       else
-                                               outputProperties.remove(prop);
-                               } else {
-                                       outputProperties.setProperty(prop, value);
-                               }
-                       }
-                       
-                       parseFile(inFile, applyRec(rkeys, rkeys.length - 1, saveFile(outputStream, outputProperties)));
-//             }
-       }
-
-       public ArrayList reloadAll() throws TransformerConfigurationException, SAXException, IOException {
-                ArrayList res = new ArrayList();
-               Iterator i = hashMap.keySet().iterator();
-               while (i.hasNext()) {
-                        String key = (String)i.next();
-                       Style style = (Style)hashMap.get(key);
-                        String msg =
-                         "reloading \"" + key + " (" + style.fileName + ")";
-                        res.add(msg);
-                        log(msg);
-                        msg = reload(key);
-                        if(!msg.equals(""))
-                           res.add(msg);
-                }
-                return res;
-       }
-
-       public String reload(String key) throws TransformerConfigurationException, SAXException, IOException {
-                String res = "";
-               Style style = (Style)hashMap.get(key);
-               if (style != null) {
-                  log("reloading \"" + key + "\"... ");
-                   res= compileStylesheet(style,key);
-                   log("done!");
-               } else {
-                       res = "Error: stylesheet \"" + key + "\" not loaded";
-                        log(res);
-                        res = htmlOfError(res);
-               }
-                return res;
-       }
-
-        private String htmlOfWarning(String message)
-        {
-           return "<b style=\"color: maroon\">" + message+"</b>";
-        }
-
-        private String htmlOfError(String message)
-        {
-           return "<b style=\"color: red\">" + message+"</b>";
-        }
-}

diff --git a/helm/uwobo/src/it/unibo/cs/helm/uwobo/Servlet.java b/helm/uwobo/src/it/unibo/cs/helm/uwobo/Servlet.java
deleted file mode 100644 (file)
index d259c3f..0000000
--- a/helm/uwobo/src/it/unibo/cs/helm/uwobo/Servlet.java
+++ /dev/null
@@ -1,343 +0,0 @@
-/* Copyright (C) 2001, HELM Team
- *
- * This file is part of UWOBO, developed at the Computer Science
- * Department, University of Bologna, Italy.
- * 
- * UWOBO is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License
- * as published by the Free Software Foundation; either version 2
- * of the License, or (at your option) any later version.
- *
- * UWOBO is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with UWOBO; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- * MA  02111-1307, USA.
- *
- * For details, see the UWOBO World-Wide-Web page,
- * http://cs.unibo.it/helm/uwobo
- */
-
-package it.unibo.cs.helm.uwobo;
-
-import java.io.*;
-import java.util.*;
-import javax.servlet.*;
-import javax.servlet.http.*;
-import javax.xml.transform.*;
-import org.xml.sax.*;
-
-// WARNING: next comment is obsolete!!!!!
-/*
-*
-* usage:
-*   http://hostname/helm/servlet/uwobo/help
-*   http://hostname/helm/servlet/uwobo/add?bind=key,stylesheet[&bind=key,stylesheet]*
-*   http://hostname/helm/servlet/uwobo/remove[?keys=key_1,...,key_n]
-*   http://hostname/helm/servlet/uwobo/list
-*   http://hostname/helm/servlet/uwobo/reload[?keys=key_1,...,key_n]
-*   http://hostname/helm/servlet/uwobo/apply?xmluri=xmldata&keys=key_1,...,key_n[&param.name=value]*[&param.key.name=value]*[&prop.name=[value]]*
-*
-* example:
-*   http://aristotele/helm/servlet/uwobo/add?bind=foo1,file:///D:/Archivio/Progetti/helm/resources/xsl/foo1.xsl
-*   http://aristotele/helm/servlet/uwobo/add?bind=foo2,file:///D:/Archivio/Progetti/helm/resources/xsl/foo2.xsl
-*   http://aristotele/helm/servlet/uwobo/apply?xmluri=file:///D:/Archivio/Progetti/helm/resources/xsl/foo.xml&keys=foo1,foo2
-*
-* installation notes (Tomcat):
-*      replace parser.jar and jaxp.jar from /lib with xerces.jar and add xalan.jar
-*
-*      add in conf/server.xml
-*              <Context path="/helm" 
-*                      docBase="webapps/helm" 
-*                      crossContext="false"
-*                      debug="0" 
-*                      reloadable="true" > 
-*              </Context>
-*
-*      add in uriworkermap.properties
-*              /helm/*=ajp12
-*
-*
-* @author The HELM team
-*/
-public class Servlet extends HttpServlet {
-   
-   public static final String[] usage = {
-      "http://<i>hostname</i>/helm/servlet/uwobo/help",
-      "http://<i>hostname</i>/helm/servlet/uwobo/add?bind=<i>key</i>,<i>stylesheet</i>[&bind=<i>key</i>,<i>stylesheet</i>]*",
-      "http://<i>hostname</i>/helm/servlet/uwobo/remove[?keys=<i>key_1,...,key_n</i>]",
-      "http://<i>hostname</i>/helm/servlet/uwobo/list",
-      "http://<i>hostname</i>/helm/servlet/uwobo/reload[?keys=<i>key_1,...,key_n</i>]",
-      "http://<i>hostname</i>/helm/servlet/uwobo/apply?xmluri=<i>xmldata</i>&keys=<i>key_1,...,key_n</i>[&param.<i>name</i>=<i>value</i>]*[&param.<i>key</i>.<i>name</i>=<i>value</i>]*[&prop.<i>name</i>=[<i>value</i>]]*"
-   };
-   public static final String help;
-          
-   static {
-      StringBuffer sb = new StringBuffer();
-      sb.append("<ul>");
-      for (int i=0; i<usage.length; i++)
-         sb.append("<li>").append(usage[i]).append("</li>");
-      sb.append("</ul>");
-      help = sb.toString();
-   }
-
-   private Server server;
-
-   public void init(ServletConfig config)
-   throws ServletException
-   {
-      super.init(config);
-
-      System.out.println("UWOBO init");
-      server = new Server();
-   }
-
-   private static String[] split(final String s, final String delim)
-   {
-      String[] res = {null}; 
-      if (s == null) return res;
-      StringTokenizer st = new StringTokenizer(s, delim);
-      res = new String[st.countTokens()];
-      for (int i = 0; i < res.length; i++) res[i] = st.nextToken();
-      return res;
-   }
-       
-   private static String[] split2(final String s, final String delim)
-   {
-      String[] res = new String[2];
-      StringTokenizer st = new StringTokenizer(s);
-      res[0] = st.nextToken(delim); res[1] = st.nextToken("").substring(1);
-      return res;
-   }
-
-   private void html_open(HttpServletResponse resp, ServletOutputStream out)
-   throws IOException
-   {  
-      resp.setContentType("text/html");
-      out.println("<html><body bgcolor=\"#ffffff\"><h1>" + server.PACKAGE + " servlet</h1>");
-   }
-   
-   private void html_close(ServletOutputStream out)
-   throws IOException
-   {
-      out.println("<p>done</p></body></html>");
-      out.close();
-   }
-
-   private String msg_out(String message)
-   {
-      return message+"<br />";
-   }
-   
-   private String exc_out(String message, Exception e)
-   {
-      if (message == null)
-      {
-        message = e.getClass().getName();
-        message = message.substring(message.lastIndexOf('.')+1);
-      }
-      String local = e.getLocalizedMessage();
-      local = local.substring(local.lastIndexOf(':')+1);
-      return "<b style=\"color: red\">"+message+": "+local+"</b><br />";
-   }
-   
-   public void doGet(HttpServletRequest request, HttpServletResponse response)
-   throws ServletException, IOException
-   {
-      ServletOutputStream out = response.getOutputStream();
-      String log = "";
-      
-      response.setHeader("Cache-Control", "no-cache");
-      response.setHeader("Pragma", "no-cache");
-      response.setHeader("Expires", "0");
-      System.out.println("UWOBO "+request.getPathInfo());
-               
-      try { 
-        final String cmd = request.getPathInfo();
-        if (cmd == null) { 
-           sendError(response, out, "unknown command", help); return;
-        } 
-        if (cmd.equals("/add")) {
-           final String[] xslkey = request.getParameterValues("bind");
-           if (xslkey == null) {
-              sendError(response, out, "bad parameters", usage[1]); return;
-           } 
-           html_open(response, out);
-           for (int i = 0; i < xslkey.length; i++) {
-              final String data[] = split2(xslkey[i], ",");
-              out.println(msg_out("adding stylesheet "+data[0]+" ("+data[1]+")"));
-              try {
-                 log = server.add(data[1], data[0]);
-                  if(!log.equals(""))
-                     out.println(msg_out(log));
-               } catch (TransformerConfigurationException tce) {
-                  out.println(exc_out("Stylesheet Error", tce));
-               } catch (Exception e) {
-                 out.println(exc_out(null, e));
-              }
-           }
-           html_close(out); return;
-        }
-        if (cmd.equals("/apply")) {
-           final String infile = request.getParameter("xmluri");
-           final String keys = request.getParameter("keys");
-
-           if (infile == null || keys == null) {
-              sendError(response, out, "bad parameters", usage[6]); return;
-           } 
-
-           final String[] keyName = split(keys, ",");
-           final Key[] keySeq = new Key[keyName.length];
-           for (int i = 0; i < keySeq.length; i++) {
-               keySeq[i] = new Key();
-              keySeq[i].name = keyName[i];
-              keySeq[i].params = new HashMap();
-           }
-
-           final Properties props = new Properties();
-           final Enumeration e = request.getParameterNames();
-           while (e.hasMoreElements()) {
-              String param = (String) e.nextElement();
-              if (param.startsWith("param.")) {
-                 final String name = param.substring(6);
-                 final String value = request.getParameter(param);
-                 final String[] keyParam = split(name, ".");
-                 if (keyParam.length == 1) {
-                    // this is a global parameter
-                    Server.log("global parameter: " + keyParam[0] + " = " + value);
-                    for (int i = 0; i < keySeq.length; i++)
-                       // we add the global parameter only if there is no
-                       // local parameter with the same name
-                       if (!keySeq[i].params.containsKey(keyParam[0]))
-                          keySeq[i].params.put(keyParam[0], value);
-                 } else
-                 if (keyParam.length == 2) {
-                    // this is a local parameter
-                    Server.log("local parameter: " + keyParam[0] + "." + keyParam[1] + " = " + value);
-                    for (int i = 0; i < keySeq.length; i++) {
-                       if (keySeq[i].name.equals(keyParam[0]))
-                          keySeq[i].params.put(keyParam[1], value);
-                    }
-                 } else { 
-                    sendError(response, out, "bad parameters", usage[6]); return;
-                 }
-              } else
-              if (param.startsWith("prop.")) {
-                 final String name = param.substring(5);
-                 final String value = request.getParameter(param);
-                 Server.log("property: " + name + " = " + value);
-                 props.setProperty(name, value);
-              }
-           }
-                                       
-           String contentType = props.getProperty(OutputKeys.MEDIA_TYPE);
-           if (contentType == null && keySeq.length > 0) 
-              contentType = server.getContentType(keySeq[keySeq.length - 1].name);
-           else if (contentType == null)
-              contentType = "text/xml";
-           response.setContentType(contentType);
-           Server.log("content type: " + contentType);
-
-           try {
-              out = response.getOutputStream(); 
-              server.apply(infile, out, keySeq, props);
-              out.close();
-           } catch (TransformerConfigurationException tce) {
-               sendError(response, out, exc_out("stylesheet error", tce), "");
-            } catch (Exception ee) {
-              sendError(response, out, exc_out(null, ee), "");
-            }
-           return;
-        }
-        if (cmd.equals("/remove")) {
-           final String key = request.getParameter("keys");
-           final String [] data = split(key, ",");
-           html_open(response, out);
-           for (int i = 0; i < data.length; i++) { 
-              if (data[i] == null) {
-                 out.println(msg_out("removing all keys"));
-                  ArrayList res;
-                 res = server.removeAll();
-                  Iterator j = res.iterator();
-                  while (j.hasNext())
-                     out.println(msg_out((String)j.next()));
-              } else {
-                 out.println(msg_out("removing key "+data[i]));
-                 out.println(msg_out(server.remove(data[i])));
-              }
-           }
-           html_close(out); return;
-        }
-        if (cmd.equals("/list")) {
-           html_open(response, out);
-           out.println("<p>stylesheet list:</p><ul>");
-           
-           Iterator i = server.list().iterator();
-            while (i.hasNext())
-              out.println("<li>"+i.next()+"</li>");
-           out.println("</ul>"); html_close(out); return;
-        }
-        if (cmd.equals("/reload")) {
-           final String key = request.getParameter("keys");
-           final String [] data = split(key, ",");
-           html_open(response, out);
-           for (int i = 0; i < data.length; i++) {
-              try {
-                 if (data[i] == null) {
-                    out.println(msg_out("reloading all keys"));
-                     ArrayList res;
-                    res = server.reloadAll();
-                     Iterator j = res.iterator();
-                     while(j.hasNext())
-                        out.println(msg_out((String)j.next()));
-                 } else {
-                    out.println(msg_out("reloading key "+data[i]));
-                    out.println(msg_out(server.reload(data[i])));
-                 }
-              } catch (TransformerConfigurationException tce) {
-                  out.println(exc_out("Stylesheet Error", tce));
-               } catch (Exception e) {
-                 out.println(exc_out(null, e));
-               }
-           }
-           html_close(out); return;
-        }
-        if (cmd.equals("/help")) {
-           html_open(response, out);
-           out.println("<h2>Version "+server.VERSION+"</h1>");
-           out.println("<b>compiled "+server.DATE+" at "+server.TIME.substring(0,2)+":"+server.TIME.substring(2)+"</b>");
-            if(Server.SERIALIZATION_DIR.equals("")) {
-               out.println("<p><b>Stylesheet serialization is off.</b>");
-               out.println("(To turn it on, choose a non-empty value for the " +
-                  "SERIALIZATION_DIR property.)</p>");
-            } else
-               out.println("<p><b>Serialized stylesheed are stored in &quot;" +
-                  Server.SERIALIZATION_DIR + "&quot;.</b></p>");
-           out.println("<p>usage:</p>"+help+"</body></html>");
-           html_close(out); return;
-        }
-        sendError(response, out, "unknown command", help); return;
-      } catch (Exception e) {
-        sendError(response, out, exc_out(null, e),"");
-        return;
-      }
-   }
-
-   private void sendError(HttpServletResponse resp, ServletOutputStream out, 
-                         String msg, String usage)
-   throws IOException 
-   {
-      html_open(resp, out);
-      out.println("<p>"+msg+"</p>usage: "+usage);
-      html_close(out);
-   }
-       
-   public String getServletInfo()
-   {
-      return "The UWOBO servlet";
-   }
-}

diff --git a/helm/uwobo/src/it/unibo/cs/helm/uwobo/properties.txt b/helm/uwobo/src/it/unibo/cs/helm/uwobo/properties.txt
deleted file mode 100644 (file)
index debd517..0000000
--- a/helm/uwobo/src/it/unibo/cs/helm/uwobo/properties.txt
+++ /dev/null
@@ -1,5 +0,0 @@
-PACKAGE=@PACKAGE@
-VERSION=@VERSION@
-DATE=@DATE@
-TIME=@TIME@
-SERIALIZATION_DIR=@SERIALIZATION_DIR@

diff --git a/helm/uwobo/web.xml b/helm/uwobo/web.xml
deleted file mode 100644 (file)
index badb809..0000000
--- a/helm/uwobo/web.xml
+++ /dev/null
@@ -1,22 +0,0 @@
-<!DOCTYPE web-app 
-    PUBLIC "-//Sun Microsystems, Inc.//DTD Web Application 2.2//EN" 
-    "http://java.sun.com/j2ee/dtds/web-app_2_2.dtd">
-
-<web-app>
-
-    <display-name>Uwobo Application</display-name>
-    <description>
-       This is an xslt web application
-    </description>
-
-    <servlet>
-        <servlet-name>uwobo</servlet-name>
-        <servlet-class>it.unibo.cs.helm.uwobo.Servlet</servlet-class>
-    </servlet>
-
-    <servlet-mapping>
-        <servlet-name>uwobo</servlet-name>
-        <url-pattern>/helm/*</url-pattern>
-    </servlet-mapping>
-
-</web-app>

diff --git a/helm/xmltheory/Coq_v2theoryxml/.cvsignore b/helm/xmltheory/Coq_v2theoryxml/.cvsignore
deleted file mode 100644 (file)
index e4a3d54..0000000
--- a/helm/xmltheory/Coq_v2theoryxml/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-coq_v2theoryxml *.cmi *.cmo

diff --git a/helm/xmltheory/Coq_v2theoryxml/.depend b/helm/xmltheory/Coq_v2theoryxml/.depend
deleted file mode 100644 (file)
index e69de29..0000000

diff --git a/helm/xmltheory/Coq_v2theoryxml/Makefile b/helm/xmltheory/Coq_v2theoryxml/Makefile
deleted file mode 100644 (file)
index 1f9fae5..0000000
--- a/helm/xmltheory/Coq_v2theoryxml/Makefile
+++ /dev/null
@@ -1,17 +0,0 @@
-COQTOP=/home/projects/helm/EXPORT/V7
-OCAMLC=ocamlc -I $(COQTOP)/config -I $(COQTOP)/toplevel
-
-COQV2THEORYXMLOBJS= \
- $(COQTOP)/config/coq_config.cmo \
- $(COQTOP)/toplevel/usage.cmo \
- coq_v2theoryxml.cmo 
-
-coq_v2theoryxml: $(COQV2THEORYXMLOBJS)
-       $(OCAMLC) -o $@ unix.cma $(COQV2THEORYXMLOBJS)
-
-coq_v2theoryxml.cmo: coq_v2theoryxml.ml
-       $(OCAMLC) -c $<
-
-.PHONY: clean
-clean:
-       rm -f coq_v2theoryxml *.cmo *.cmi

diff --git a/helm/xmltheory/Coq_v2theoryxml/coq_v2theoryxml.ml b/helm/xmltheory/Coq_v2theoryxml/coq_v2theoryxml.ml
deleted file mode 100644 (file)
index b1e856e..0000000
--- a/helm/xmltheory/Coq_v2theoryxml/coq_v2theoryxml.ml
+++ /dev/null
@@ -1,176 +0,0 @@
-(* environment *)
-
-let environment = Unix.environment ()
-
-let bindir = ref Coq_config.bindir
-let binary = "coqtop.byte"
-let image = ref ""
-let xml_theory_library_root = ref (
- try
-  Sys.getenv "XML_THEORY_LIBRARY_ROOT"
- with Not_found -> ""
-)
-
-(* the $COQBIN environment variable has priority over the Coq_config value *)
-let _ = 
-  try 
-    let c = Sys.getenv "COQBIN" in
-    if c <> "" then bindir := c
-  with Not_found -> ()
-
-(* coq_v2theoryxml options *)
-
-let keep = ref false
-
-(* Verifies that a string do not contains others caracters than letters, 
-   digits, or `_` *)
-
-let check_module_name s = 
-  let err () = 
-    output_string stderr
-      "Modules names must only contain letters, digits, or underscores\n"; 
-    output_string stderr
-      "and must begin with a letter\n";
-    exit 1 
-  in
-  match String.get s 0 with 
-    | 'a' .. 'z' | 'A' .. 'Z' -> 
-       for i = 1 to (String.length s)-1 do
-         match String.get s i with 
-           | 'a' .. 'z' | 'A' .. 'Z' | '0' .. '9' | '_'  -> ()
-           | _ -> err ()
-       done
-    | _ -> err ()
-
- (* compilation of a file [file] with command [command] and args [args] *)
-
-let compile command args file =
-  let dirname = Filename.dirname file in
-  let basename = Filename.basename file in
-  let modulename =
-    if Filename.check_suffix basename ".vo" then
-      Filename.chop_suffix basename ".vo"
-    else
-      basename 
-  in
-  check_module_name modulename;
-  let tmpfile = Filename.temp_file "coq_v2theoryxml" ".v" in
-  let args' = 
-    command :: "-batch" :: "-silent" :: "-is" :: "barestate" :: args 
-    @ ["-load-vernac-source"; tmpfile] in
-  let devnull = 
-    if Sys.os_type = "Unix" then
-      Unix.openfile "/dev/null" [] 0o777 
-    else 
-      Unix.stdin
-  in 
-  let oc = open_out tmpfile in
-  Printf.fprintf oc "Require XmlTheory.\n" ;
-  Printf.fprintf oc "XmlTheory Begin %s \"%s\".\n" modulename
-   !xml_theory_library_root ;
-  Printf.fprintf oc "Load %s.\n" modulename;
-  Printf.fprintf oc "XmlTheory End.\n" ;
-  flush oc;
-  close_out oc;
-  try
-    let pid =
-      Unix.create_process_env command
-        (Array.of_list args') environment devnull Unix.stdout Unix.stderr in
-    let status = Unix.waitpid [] pid in
-    if not !keep then Sys.remove tmpfile ;
-    match status with
-      | _, Unix.WEXITED 0 -> ()
-      | _, Unix.WEXITED 127 -> 
-         Printf.printf "Cannot execute %s\n" command;
-         exit 1
-      | _, Unix.WEXITED c -> exit c
-      | _                 -> exit 1
-  with _ -> 
-    if not !keep then Sys.remove tmpfile; exit 1
-
-(* parsing of the command line
- *
- * special treatment for -bindir and -i.
- * other options are passed to coqtop *)
-
-let usage () =
-  Usage.print_usage
-   "Usage: coq_v2theoryxml <options> <Coq options> module...\n
-options are:
-  -xml-theory-library-root d   specify the path to the root of the XML library
-                               (overrides $XML_THEORY_LIBRARY_ROOT)
-  -image f                     specify an alternative executable for Coq
-  -t                           keep temporary files\n\n" ;
-  flush stderr ;
-  exit 1
-
-let parse_args () =
-  let rec parse (cfiles,args) = function
-    | [] -> 
-       List.rev cfiles, List.rev args
-    | "-xml-theory-library-root" :: v :: rem ->
-        xml_theory_library_root := v ; parse (cfiles,args) rem
-    | "-t" :: rem -> 
-       keep := true ; parse (cfiles,args) rem
-    | "-boot" :: rem ->
-       bindir:= Filename.concat Coq_config.coqtop "bin";
-       parse (cfiles, "-boot"::args) rem
-    | "-bindir" :: d :: rem ->
-       bindir := d ; parse (cfiles,args) rem
-    | "-bindir" :: []       ->
-       usage ()
-    | "-byte" :: rem ->
-       parse (cfiles,args) rem
-    | "-opt" :: rem ->
-        raise (Failure "To load ML modules, only -byte is allowed")
-    | "-image" :: f :: rem ->
-       image := f; parse (cfiles,args) rem
-    | "-image" :: [] ->
-       usage ()
-    | ("-?"|"-h"|"-H"|"-help"|"--help") :: _ -> usage ()
-    | ("-libdir"|"-outputstate"|"-I"|"-include"
-      |"-inputstate"|"-is"|"-load-vernac-source"|"-load-vernac-object"
-      |"-load-ml-source"|"-require"|"-load-ml-object"|"-user"
-      |"-init-file" as o) :: rem ->
-       begin
-         match rem with
-           | s :: rem' -> parse (cfiles,s::o::args) rem'
-           | []        -> usage ()
-       end
-    | "-R" as o :: s :: t :: rem -> parse (cfiles,t::s::o::args) rem
-    | ("-notactics"|"-debug"|"-db"|"-debugger"|"-nolib"|"-batch"|"-nois"
-      |"-q"|"-full"|"-profile"|"-just-parsing"|"-echo" |"-unsafe"|"-quiet"
-      |"-silent"|"-m" as o) :: rem ->
-       parse (cfiles,o::args) rem
-    | ("-v"|"--version") :: _ ->
-        Usage.version ()
-    | "-where" :: _ -> 
-       print_endline Coq_config.coqlib; exit 0
-    | f :: rem -> parse (f::cfiles,args) rem
-  in
-  parse ([],[]) (List.tl (Array.to_list Sys.argv))
-
-(* main: we parse the command line, define the command to compile files
- * and then call the compilation on each file *)
-
-let main () =
-  let cfiles, args = parse_args () in
-  if cfiles = [] then begin
-    prerr_endline "coq_v2theoryxml: too few arguments" ;
-    usage ()
-  end;
-  let coqtopname = 
-    if !image <> "" then !image else Filename.concat !bindir (binary ^ Coq_config.exec_extension)
-  in
-  if !xml_theory_library_root = "" then
-   begin
-    prerr_endline "coq_v2theoryxml: you must either set $XML_THEORY_LIBRARY_ROOT or use -xml-theory-library-root";
-    usage ()
-   end
-  else
-   List.iter (compile coqtopname args) cfiles ;
-   prerr_endline
-    ("\nWARNING: all the URIs in the generated XML files are broken." ^
-     "\n         See the README in the XML contrib to learn how to fix them.\n")
-    
-let _ = Printexc.print main (); exit 0

diff --git a/helm/xmltheory/FakeCoq_vo2xml/README b/helm/xmltheory/FakeCoq_vo2xml/README
deleted file mode 100644 (file)
index 4accfca..0000000
--- a/helm/xmltheory/FakeCoq_vo2xml/README
+++ /dev/null
@@ -1,3 +0,0 @@
-# This coq_vo2xml must be put in PATH before the real coq_vo2xml.
-# It's aim is to run coq_v2theoryxml instead of coq_vo2xml
-# Remember to set $XML_THEORY_LIBRARY_ROOT before starting this coq_vo2xml

diff --git a/helm/xmltheory/FakeCoq_vo2xml/coq_vo2xml b/helm/xmltheory/FakeCoq_vo2xml/coq_vo2xml
deleted file mode 100755 (executable)
index 34e44a0..0000000
--- a/helm/xmltheory/FakeCoq_vo2xml/coq_vo2xml
+++ /dev/null
@@ -1,4 +0,0 @@
-#!/bin/bash
-
-BASEDIR=/home/projects/helm/EXPORT/xmltheory
-$BASEDIR/Coq_v2theoryxml/coq_v2theoryxml -R $BASEDIR/XmlTheory Bologna.XmlTheory $@

diff --git a/helm/xmltheory/XmlTheory/.cvsignore b/helm/xmltheory/XmlTheory/.cvsignore
deleted file mode 100644 (file)
index 1921ec2..0000000
--- a/helm/xmltheory/XmlTheory/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.cmi *.cmo *.vo

diff --git a/helm/xmltheory/XmlTheory/.depend b/helm/xmltheory/XmlTheory/.depend
deleted file mode 100644 (file)
index 2b814a9..0000000
--- a/helm/xmltheory/XmlTheory/.depend
+++ /dev/null
@@ -1,8 +0,0 @@
-xmltheoryentries.cmo: xmltheoryentries.ml iXml.cmi
-xmltheoryentries.cmx: xmltheoryentries.ml iXml.cmx
-iXml.cmo: iXml.ml iXml.cmi
-iXml.cmx: iXml.ml iXml.cmi
-iXml.cmi: iXml.mli
-XmlTheory.vo: XmlTheory.v iXml.cmo xmltheoryentries.cmo
-XmlTheory.vi: XmlTheory.v iXml.cmo xmltheoryentries.cmo
-XmlTheory.html: XmlTheory.v iXml.cmo xmltheoryentries.cmo

diff --git a/helm/xmltheory/XmlTheory/COME_COMPILARE b/helm/xmltheory/XmlTheory/COME_COMPILARE
deleted file mode 100644 (file)
index f1389cc..0000000
--- a/helm/xmltheory/XmlTheory/COME_COMPILARE
+++ /dev/null
@@ -1,5 +0,0 @@
-# Settare
-
-OPT=-byte      # Nota: questo andrebbe fatto nel Make, ma un bug di coq_makefile
-               # lo impedisce
-COQTOP=...

diff --git a/helm/xmltheory/XmlTheory/Make b/helm/xmltheory/XmlTheory/Make
deleted file mode 100644 (file)
index a927b63..0000000
--- a/helm/xmltheory/XmlTheory/Make
+++ /dev/null
@@ -1,5 +0,0 @@
--R . Bologna.XmlTheory
--I $(COQTOP)/contrib/xml
-XmlTheory.v
-iXml.ml
-xmltheoryentries.ml

diff --git a/helm/xmltheory/XmlTheory/Makefile b/helm/xmltheory/XmlTheory/Makefile
deleted file mode 100644 (file)
index 1dc9d35..0000000
--- a/helm/xmltheory/XmlTheory/Makefile
+++ /dev/null
@@ -1,165 +0,0 @@
-##############################################################################
-##                 The Calculus of Inductive Constructions                  ##
-##                                                                          ##
-##                                Projet Coq                                ##
-##                                                                          ##
-##                     INRIA                        ENS-CNRS                ##
-##              Rocquencourt                        Lyon                    ##
-##                                                                          ##
-##                                  Coq V7                                  ##
-##                                                                          ##
-##                                                                          ##
-##############################################################################
-
-# WARNING
-#
-# This Makefile has been automagically generated by coq_makefile
-# Edit at your own risks !
-#
-# END OF WARNING
-
-#
-# This Makefile was generated by the command line :
-# coq_makefile -f Make -o Makefile 
-#
-
-##########################
-#                        #
-# Variables definitions. #
-#                        #
-##########################
-
-CAMLP4LIB=`camlp4 -where`
-MAKE=make "COQBIN=$(COQBIN)" "OPT=$(OPT)"
-COQSRC=-I $(COQTOP)/kernel -I $(COQTOP)/lib \
-  -I $(COQTOP)/library -I $(COQTOP)/parsing -I $(COQTOP)/pretyping \
-  -I $(COQTOP)/proofs -I $(COQTOP)/syntax -I $(COQTOP)/tactics \
-  -I $(COQTOP)/toplevel -I $(CAMLP4LIB)
-ZFLAGS=$(OCAMLLIBS) $(COQSRC)
-COQFLAGS=-q $(OPT) $(COQLIBS)
-COQC=$(COQBIN)coqc
-COQFULL=$(COQBIN)coqc $(FULLOPT) -q $(COQLIBS)
-GALLINA=gallina
-COQ2HTML=coq2html
-COQ2LATEX=coq2latex
-CAMLC=ocamlc -c
-CAMLOPTC=ocamlopt -c
-CAMLLINK=ocamlc
-CAMLOPTLINK=ocamlopt
-COQDEP=$(COQBIN)coqdep -c
-COQVO2XML=coq_vo2xml
-
-#########################
-#                       #
-# Libraries definition. #
-#                       #
-#########################
-
-OCAMLLIBS=-I .\
-  -I $(COQTOP)/contrib/xml
-COQLIBS=-I .\
-  -R . Bologna.XmlTheory\
-  -I $(COQTOP)/contrib/xml
-
-###################################
-#                                 #
-# Definition of the "all" target. #
-#                                 #
-###################################
-
-all: XmlTheory.vo\
-  iXml.cmo\
-  xmltheoryentries.cmo
-
-spec: XmlTheory.vi
-
-gallina: XmlTheory.g
-
-html: XmlTheory.html
-
-tex: XmlTheory.tex
-
-gallinatex: XmlTheory.g.tex
-
-gallinahtml: XmlTheory.g.html
-
-xml: .xml_time_stamp
-.xml_time_stamp: XmlTheory.vo
-       $(COQVO2XML) $(COQFLAGS) $(?:%.o=%)
-       touch .xml_time_stamp
-
-####################
-#                  #
-# Special targets. #
-#                  #
-####################
-
-.PHONY: all opt byte archclean clean install depend xml
-
-.SUFFIXES: .mli .ml .cmo .cmi .cmx .v .vo .vi .g .html .tex .g.tex .g.html
-
-.mli.cmi:
-       $(CAMLC) $(ZDEBUG) $(ZFLAGS) $<
-
-.ml.cmo:
-       $(CAMLC) $(ZDEBUG) $(ZFLAGS) $<
-
-.ml.cmx:
-       $(CAMLOPTC) $(ZDEBUG) $(ZFLAGS) $<
-
-.v.vo:
-       $(COQC) $(COQDEBUG) $(COQFLAGS) $*
-
-.v.vi:
-       $(COQC) -i $(COQDEBUG) $(COQFLAGS) $*
-
-.v.g:
-       $(GALLINA) $<
-
-.v.html:
-       $(COQ2HTML) $<
-
-.v.tex:
-       $(COQ2LATEX) $< -latex -o $@
-
-.v.g.html:
-       $(GALLINA) -stdout $< | $(COQ2HTML) -f > $@
-
-.v.g.tex:
-       $(GALLINA) -stdout $< | $(COQ2LATEX) - -latex -o $@
-
-byte:
-       $(MAKE) all "OPT="
-
-opt:
-       $(MAKE) all "OPT=-opt"
-
-include .depend
-
-depend:
-       rm .depend
-       $(COQDEP) -i $(COQLIBS) *.v *.ml *.mli >.depend
-       $(COQDEP) $(COQLIBS) -suffix .html *.v >>.depend
-
-install:
-       @if test -z $(TARGETDIR); then echo "You must set TARGETDIR (for instance with 'make TARGETDIR=foobla install')"; exit 1; fi
-       cp -f *.vo $(TARGETDIR)
-       cp -f *.cmo $(TARGETDIR)
-
-Makefile: Make
-       mv -f Makefile Makefile.bak
-       $(COQBIN)coq_makefile -f Make -o Makefile
-
-clean:
-       rm -f *.cmo *.cmi *.cmx *.o *.vo *.vi *~
-
-archclean:
-       rm -f *.cmx *.o
-
-# WARNING
-#
-# This Makefile has been automagically generated by coq_makefile
-# Edit at your own risks !
-#
-# END OF WARNING
-

diff --git a/helm/xmltheory/XmlTheory/README b/helm/xmltheory/XmlTheory/README
deleted file mode 100644 (file)
index ce4c86c..0000000
--- a/helm/xmltheory/XmlTheory/README
+++ /dev/null
@@ -1,78 +0,0 @@
-Here we show the procedure to follow to add the recognition of
-a new syntactical form.
-
-Form to recognize in the model:
-
-Lemma existsDec : (l:(list A)){(list_exists l)}+{~(list_exists l)}.
-
-1. cd V7 ; grep "Lemma" */*.ml4
-   the result should be one or a few files. In this case the
-   only file is parsing/g_vernac.ml4. In the case of many files,
-   only one is the good one.
-2. open the file and search for Lemma:
-   thm_tok:
-    [ [ "Theorem" -> <:ast< "THEOREM" >>
-      | IDENT "Lemma" -> <:ast< "LEMMA" >>
-      | IDENT "Fact" -> <:ast< "FACT" >>
-      | IDENT "Remark" -> <:ast< "REMARK" >>
-      | IDENT "Decl" -> <:ast< "DECL" >> ] ]
-
-   so a Lemma is mapped into an ast of phylum thm_tok.
-   Let's search for thm_tok. Many occurrences are found,
-   but the only one that matches the form to recognize is
-
-  gallina:
-    (* Definition, Goal *)
-    [ [ thm = thm_tok; id = identarg; ":"; c = constrarg ->
-          <:ast< (StartProof $thm $id $c) >>
-
-  So the ast created is tagged StartProof
-3. grep "StartProof" */*.ml   (usually toplevel/...)
-   Open the file and search for StartProof.
-   This is found:
-    let _ =
-  add "StartProof"
-    (function
-       | [VARG_STRING kind;VARG_IDENTIFIER s;VARG_CONSTR com] ->
-           ...
-4. edit xmltheoryentries.ml and copy the entry for another rule,
-   substituting StartProof as the parameter for set_hook and
-   using the above match (with V. added where appropriate) after function:
-
-let module V = Vernacinterp in
- set_hook "StartProof"
-  (function
-      [V.VARG_STRING kind;V.VARG_IDENTIFIER s;V.VARG_CONSTR com] ->
-       ???
-    | _ -> fail ()
-  )
-;;
-
-    Finally, write OCaml code to print to XML the availables interesting
-    infos. In our case the code becomes
-
-let module V = Vernacinterp in
- set_hook "StartProof"
-  (function
-      [V.VARG_STRING kind;V.VARG_IDENTIFIER s;V.VARG_CONSTR com] ->
-       IXml.output
-        (Xml.xml_empty
-          "THEOREM"
-          ["uri", Names.string_of_id s ^ ".con"; "as",kind]
-        )
-    | _ -> fail ()
-  )
-;;
-
-     IXml.output should always be present and the code inside
-     (that is simply XML written in OCaml form) should be changed.
-     The syntax is
-        Xml.xml_empty "name" ["att1","value1" ; ... ; "attn","valuen"]
-     to create an empty element name with attributes att1 ... attn.
-     To create a non-empty element, use
-        Xml.xml_nempty "name" ["att1","value1" ; ... ; "attn","valuen"]
-         stream
-     where stream is an OCaml stream of other XML elements, as:
-       * another Xml.xml_nempty 
-       * an Xml.xml_empty
-       * [< stream1 ; ... ; streamk >]

diff --git a/helm/xmltheory/XmlTheory/XmlTheory.v b/helm/xmltheory/XmlTheory/XmlTheory.v
deleted file mode 100644 (file)
index 54fdf82..0000000
--- a/helm/xmltheory/XmlTheory/XmlTheory.v
+++ /dev/null
@@ -1,15 +0,0 @@
-Declare ML Module "iXml" "xmltheoryentries".
-
-(*Vecchio, ma funzionante
-Grammar vernac vernac : ast :=
-  xml_theory_begin [ "XmlTheory" "Begin" stringarg($s) stringarg($f) "." ] ->
-     [(XMLTHEORYBEGIN $s $f)]
-| xml_theory_end [ "XmlTheory" "End" "." ] ->
-     [(XMLTHEORYEND)].
-*)
-
-Grammar vernac vernac : ast :=
-  xml_theory_begin [ "XmlTheory" "Begin" identarg($s) stringarg($f) "." ] ->
-     [(XMLTHEORYBEGIN $s $f)]
-| xml_theory_end [ "XmlTheory" "End" "." ] ->
-     [(XMLTHEORYEND)].

diff --git a/helm/xmltheory/XmlTheory/iXml.ml b/helm/xmltheory/XmlTheory/iXml.ml
deleted file mode 100644 (file)
index 98fb186..0000000
--- a/helm/xmltheory/XmlTheory/iXml.ml
+++ /dev/null
@@ -1,53 +0,0 @@
-exception NoOpenNonEmptyElements
-
-type sectionTree =
-   Leaf of Xml.token Stream.t
- | Node of string * (string * string) list * sectionTree list ref
-;;
-
-let rec token_stream_of_section_tree_list =
- function
-    he::tl ->
-     [< token_stream_of_section_tree_list tl; token_stream_of_section_tree he >]
-  | [] -> [<>]
-and token_stream_of_section_tree =
- function
-    Leaf t -> [< t >]
-  | Node (elem_name, attr_list, section_tree) ->
-     Xml.xml_nempty elem_name attr_list
-      (token_stream_of_section_tree_list !section_tree)
-;;
-
-let section_stack = ref [];;
-let xmloutput = ref (ref []);;
-let filename = ref "";;
-
-let reset_output fname =
- filename := fname ;
- xmloutput := ref [] ;
- section_stack := []
-;;
-
-let output n =
- let xmloutput = !xmloutput in
-  xmloutput := (Leaf n) :: !xmloutput
-;;
-
-let open_non_empty_element elem_name  attr_list = 
- let newxmloutput = ref [] in
-  !xmloutput := (Node (elem_name, attr_list, newxmloutput)) :: !(!xmloutput) ;
-  section_stack := !xmloutput :: !section_stack ;
-  xmloutput := newxmloutput
-;;
-
-let close_non_empty_element () =
- match !section_stack with
-    oldxmloutput::oldsection_stack ->
-     xmloutput := oldxmloutput ;
-     section_stack := oldsection_stack
-  | _ -> raise NoOpenNonEmptyElements
-;;
-
-let print_output () =
- Xml.pp (token_stream_of_section_tree_list !(!xmloutput)) (Some !filename)
-;;

diff --git a/helm/xmltheory/XmlTheory/iXml.mli b/helm/xmltheory/XmlTheory/iXml.mli
deleted file mode 100644 (file)
index 11fad82..0000000
--- a/helm/xmltheory/XmlTheory/iXml.mli
+++ /dev/null
@@ -1,7 +0,0 @@
-exception NoOpenNonEmptyElements
-
-val reset_output : string -> unit
-val output : Xml.token Stream.t -> unit
-val open_non_empty_element : string -> (string * string) list -> unit
-val close_non_empty_element : unit -> unit
-val print_output : unit -> unit

diff --git a/helm/xmltheory/XmlTheory/xmltheoryentries.ml b/helm/xmltheory/XmlTheory/xmltheoryentries.ml
deleted file mode 100644 (file)
index de3c503..0000000
--- a/helm/xmltheory/XmlTheory/xmltheoryentries.ml
+++ /dev/null
@@ -1,371 +0,0 @@
-(*********************)
-(* Utility functions *)
-(*********************)
-
-let fail () =
- Pp.warning "XmlTheory: AST not recognized"
-;;
-
-(* name is the name of the function to hook *)
-(* hook is an hook partial-function to recognize particular inputs *)
-let set_hook name hook =
- let module V = Vernacinterp in
-  let old = V.vinterp_map name in
-   V.vinterp_add name
-    (fun l () ->
-      old l () ;
-      hook l
-    )
-;;
-
-
-(*****************************************************)
-(* Vernacular administrative commands for the module *)
-(*****************************************************)
-
-let header =
-"<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n" ^
-"<!DOCTYPE Theory SYSTEM \"http://www.cs.unibo.it/helm/dtd/maththeory.dtd\">\n"
-;;
-
-(*Vecchio, ma funzionante
-let module V = Vernacinterp in
- V.vinterp_add "XMLTHEORYBEGIN"
-  (function
-      [V.VARG_STRING curi ; V.VARG_STRING filename] ->
-       fun () ->
-        IXml.reset_output filename ;
-        IXml.output (Xml.xml_cdata header) ;
-        IXml.open_non_empty_element "Theory" ["uri","cic:" ^ curi]
-    | _ -> V.bad_vernac_args "XMLTHEORYBEGIN"
-  )
-;;
-*)
-
-let module V = Vernacinterp in
-let module L = Library in
-let module S = System in
-let module N = Names in
- V.vinterp_add "XMLTHEORYBEGIN"
-  (function
-      [V.VARG_IDENTIFIER id ; V.VARG_STRING root_dir] ->
-       fun () ->
-        let s = N.string_of_id id in
-         let lpe,_ =
-          S.find_file_in_path (L.get_load_path ()) (s^".v")
-         in
-          let curi = "/" ^ String.concat "/" lpe.S.coq_dirpath in
-          let dirname = root_dir ^ curi in
-           Unix.system ("mkdir -p " ^ dirname) ;
-          let filename = dirname ^ "/" ^ s ^ ".theory" in
-           IXml.reset_output filename ;
-           IXml.output (Xml.xml_cdata header) ;
-           IXml.open_non_empty_element "Theory" ["uri","cic:" ^ curi ^ "/" ^ s]
-    | _ -> V.bad_vernac_args "XMLTHEORYBEGIN"
-  )
-;;
-
-let module V = Vernacinterp in
- V.vinterp_add "XMLTHEORYEND"
-  (function
-      [] ->
-       fun () ->
-        IXml.close_non_empty_element () ;
-        IXml.print_output ()
-    | _ -> V.bad_vernac_args "XMLTHEORYEND"
-  )
-;;
-
-
-(**********************************************************)
-(* All the vernacular commands on which one is interested *)
-(* should be overridden here                              *)
-(**********************************************************)
-
-let module V = Vernacinterp in
-let module N = Names in
-let module S = System in
-let module L = Library in
- set_hook "Require"
-  (function
-      [V.VARG_STRING import; V.VARG_STRING specif; V.VARG_IDENTIFIER id] ->
-       (* id is the identifier of the module, but we need the absolute *)
-       (* identifier as an URI.                                        *)
-       (* E.g.: Logic ==> theory:/Coq/Init/Logic.theory                *)
-        let name = N.string_of_id id in
-         let ({S.coq_dirpath = coq_dirpath},_) = L.module_filename name in
-          let uri =
-           "theory:/" ^ (String.concat "/" coq_dirpath) ^ "/" ^ name ^ ".theory"
-          in
-           IXml.output
-            (Xml.xml_nempty "vernacular" []
-             (Xml.xml_empty
-               "Require"
-               ["import",import; "specif",specif; "uri",uri]
-             )
-            )
-    | _ -> fail ()
-   )
-;;
-
-let module V = Vernacinterp in
-let module T = Nametab in
-let module N = Names in
- set_hook "HintsResolve"
-  (function
-      (V.VARG_VARGLIST l)::lh ->
-        IXml.output
-         (Xml.xml_nempty "vernacular" []
-          (Xml.xml_nempty
-            "HintsResolve" []
-            [< Xml.xml_nempty "dbs" []
-                (List.fold_right
-                  (function
-                      (V.VARG_IDENTIFIER x) ->
-                        (function i ->
-                          [< Xml.xml_empty "db" ["name",N.string_of_id x];
-                             i
-                          >]
-                        )
-                    | _ -> Vernacinterp.bad_vernac_args "HintsResolve"
-                  )
-                l [<>]) ;
-               Xml.xml_nempty "hints" []
-                (List.fold_right
-                  (function
-                      (V.VARG_QUALID x) ->
-                        (function i ->
-                          [< Xml.xml_empty "hint" ["name",T.string_of_qualid x];
-                             i
-                          >]
-                        )
-                    | _ -> Vernacinterp.bad_vernac_args "HintsResolve"
-                  )
-                lh [<>]
-                )
-            >]
-          )
-         )
-    | _ -> fail ()
-  )
-;;
-
-let module V = Vernacinterp in
- set_hook "IMPLICIT_ARGS_ON"
-  (function
-      [] ->
-        IXml.output
-         (Xml.xml_nempty "vernacular" []
-          (Xml.xml_empty
-            "ImplicitArguments"
-            ["status","ON"]
-          )
-         )
-    | _ -> fail ()
-  )
-;;
-
-let module V = Vernacinterp in
- set_hook "DEFINITION"
-  (function
-      (* Coq anomaly: a Local definition is a Definition at the syntax *)
-      (* level but a Variable at the logical level. Here we have to    *)
-      (* recognize the two cases and treat them differently            *)
-      (V.VARG_STRING "LOCAL":: V.VARG_IDENTIFIER id:: V.VARG_CONSTR c:: rest) ->
-        IXml.output
-         (Xml.xml_nempty "VARIABLES" ["as","LOCAL"]
-           (Xml.xml_empty
-             "VARIABLE"
-             ["uri",Names.string_of_id id ^ ".var"]
-           )
-         )
-    | (V.VARG_STRING kind:: V.VARG_IDENTIFIER id:: V.VARG_CONSTR c :: rest) ->
-        IXml.output
-         (Xml.xml_empty
-           "DEFINITION"
-           ["uri", Names.string_of_id id ^ ".con" ; "as",kind]
-         )
-    | _ -> fail ()
-  )
-;;
-
-let module V = Vernacinterp in
- set_hook "BeginSection"
-  (function
-      [V.VARG_IDENTIFIER id] ->
-        IXml.open_non_empty_element "SECTION" ["uri", Names.string_of_id id]
-    | _ -> fail ()
-  )
-;;
-
-let module V = Vernacinterp in
- set_hook "EndSection"
-  (function
-      [V.VARG_IDENTIFIER id] ->
-        IXml.close_non_empty_element ()
-    | _ -> fail ()
-  )
-;;
-
-let module V = Vernacinterp in
- set_hook "StartProof"
-  (function
-      [V.VARG_STRING kind;V.VARG_IDENTIFIER s;V.VARG_CONSTR com] ->
-       IXml.output
-        (Xml.xml_empty
-          "THEOREM"
-          ["uri", Names.string_of_id s ^ ".con"; "as",kind]
-        )
-    | _ -> fail ()
-  )
-;;
-
-let module V = Vernacinterp in
- set_hook "MUTUALINDUCTIVE"
-  (function
-      [V.VARG_STRING f; V.VARG_VARGLIST indl] ->
-        (* we need the name of the first inductive defined *)
-        (* type in the block to get the URI                *)
-        let name =
-         match indl with
-            (V.VARG_VARGLIST ((V.VARG_IDENTIFIER name)::_))::_ -> name
-          | _ -> assert false
-        in
-         IXml.output
-          (Xml.xml_empty
-            "DEFINITION"
-            ["uri", Names.string_of_id name ^ ".ind"; "as",f]
-          )
-    | _ -> fail ()
-  )
-;;
-
-let module V = Vernacinterp in
- set_hook "VARIABLE"
-  (function
-      [V.VARG_STRING kind; V.VARG_BINDERLIST slcl] ->
-       (* here we need all the names *)
-       let names =
-        List.flatten (List.map fst slcl)
-       in
-        IXml.output
-         (Xml.xml_nempty "VARIABLES" ["as",kind]
-          (List.fold_right
-            (fun name s ->
-              [< (Xml.xml_empty
-                   "VARIABLE"
-                   ["uri",Names.string_of_id name ^ ".var"]
-                 ) ; s
-              >]
-            ) names [<>]
-          )
-         )
-    | _ -> fail ()
-  )
-;;
-
-let module V = Vernacinterp in
-let module T = Nametab in
-let module N = Names in
- set_hook "COERCION"
-  (function
-      [V.VARG_STRING kind; V.VARG_STRING identity; V.VARG_QUALID qid;
-       V.VARG_QUALID qids; V.VARG_QUALID qidt] ->
-        (* let's substitute empty strings with non-empty strings *)
-        (* to get a stricter DTD                                 *)
-        let remove_empty_string s = if s = "" then "UNSPECIFIED" else s in
-        let kind     = remove_empty_string kind     in
-        let identity = remove_empty_string identity in
-         IXml.output
-          (Xml.xml_nempty "vernacular" []
-           (Xml.xml_empty
-             "Coercion"
-             ["kind",kind; "identity",identity ; "name",T.string_of_qualid qid ;
-              "source",T.string_of_qualid qids;"target",T.string_of_qualid qidt]
-           )
-          )
-    | _ -> fail ()
-  )
-;;
-
-let module V = Vernacinterp in
- set_hook "MUTUALRECURSIVE"
-  (function
-      [V.VARG_VARGLIST lmi] ->
-        (* we need the name of the first inductive defined *)
-        (* type in the block to get the URI                *)
-        let name =
-         match lmi with
-            (V.VARG_VARGLIST ((V.VARG_IDENTIFIER name)::_))::_ -> name
-          | _ -> assert false
-        in
-         IXml.output
-          (Xml.xml_empty
-            "DEFINITION"
-            ["uri", Names.string_of_id name ^ ".con" ; "as","Fixpoint"]
-          )
-     | _ -> fail ()
-  )
-;;
-
-let module V = Vernacinterp in
- set_hook "MUTUALCORECURSIVE"
-  (function
-      [V.VARG_VARGLIST lmi] ->
-        (* we need the name of the first inductive defined *)
-        (* type in the block to get the URI                *)
-        let name =
-         match lmi with
-            (V.VARG_VARGLIST ((V.VARG_IDENTIFIER name)::_))::_ -> name
-          | _ -> assert false
-        in
-         IXml.output
-          (Xml.xml_empty
-            "DEFINITION"
-            ["uri", Names.string_of_id name ^ ".con" ; "as","CoFixpoint"]
-          )
-     | _ -> fail ()
-  )
-;;
-
-let module V = Vernacinterp in
- set_hook "RECORD"
-  (function
-      [V.VARG_STRING coe;
-       V.VARG_IDENTIFIER struc;
-       V.VARG_BINDERLIST binders;
-       V.VARG_CONSTR sort;
-       V.VARG_VARGLIST namec;
-       V.VARG_VARGLIST cfs] ->
-         IXml.output
-          (Xml.xml_empty
-            "DEFINITION"
-            ["uri", Names.string_of_id struc ^ ".ind" ; "as","Record"]
-          )
-     | _ -> fail ()
-  )
-;;
-
-let module V = Vernacinterp in
- set_hook "PARAMETER"
-  (function
-      [V.VARG_STRING kind; V.VARG_BINDERLIST slcl] ->
-       (* here we need all the names *)
-       let names =
-        List.flatten (List.map fst slcl)
-       in
-        IXml.output
-         (Xml.xml_nempty "AXIOMS" ["as",kind]
-          (List.fold_right
-            (fun name s ->
-              [< (Xml.xml_empty
-                   "AXIOM"
-                   ["uri",Names.string_of_id name ^ ".con"]
-                 ) ; s
-              >]
-            ) names [<>]
-          )
-         )
-    | _ -> fail ()
-  )
-;;

diff --git a/helm/xmltheory/maththeory.dtd b/helm/xmltheory/maththeory.dtd
deleted file mode 100644 (file)
index f010b65..0000000
--- a/helm/xmltheory/maththeory.dtd
+++ /dev/null
@@ -1,78 +0,0 @@
-<?xml encoding="ISO-8859-1"?>
-
-<!--*****************************************************************-->
-<!-- DTD FOR THEORY OBJECTS AT LEVEL OF CIC XML FILES:               -->
-<!-- First draft: May 10 2000, Claudio Sacerdoti Coen, Irene Schena  -->
-<!-- Revised: February 2001, Claudio Sacerdoti Coen                  -->
-<!-- Revised: May 01 2001, Claudio Sacerdoti Coen                    -->
-<!--*****************************************************************-->
-
-<!ENTITY % mathstructure '(AXIOMS|DEFINITION|THEOREM|VARIABLES|SECTION|vernacular)*'>
-
-<!ELEMENT Theory (%mathstructure;)>
-<!ATTLIST Theory
-          uri CDATA #REQUIRED>
-
-<!ELEMENT AXIOMS (AXIOM*)>
-<!ATTLIST AXIOMS
-          as (AXIOM|PARAMETER|PARAMETERS) #REQUIRED>
-
-<!ELEMENT AXIOM EMPTY>
-<!ATTLIST AXIOM
-          uri CDATA #REQUIRED>
-
-<!ELEMENT DEFINITION EMPTY>
-<!ATTLIST DEFINITION
-          uri CDATA #REQUIRED
-          as (DEFINITION|Inductive|CoInductive|Fixpoint|CoFixpoint|Record) #REQUIRED>
-
-<!ELEMENT THEOREM EMPTY>
-<!ATTLIST THEOREM
-          uri CDATA #REQUIRED
-          as (THEOREM|LEMMA|FACT|REMARK|DECL) #REQUIRED>
-
-<!ELEMENT VARIABLES (VARIABLE*)>
-<!ATTLIST VARIABLES
-          as (VARIABLE|VARIABLES|HYPOTHESIS|HYPOTHESES|LOCAL) #REQUIRED>
-
-<!ELEMENT VARIABLE EMPTY>
-<!ATTLIST VARIABLE
-          uri CDATA #REQUIRED>
-
-<!ELEMENT SECTION (%mathstructure;)>
-<!ATTLIST SECTION
-          uri CDATA #REQUIRED>
-
-<!ELEMENT vernacular (Require|ImplicitArguments|Coercion|HintsResolve)>
-
-<!ELEMENT Require EMPTY>
-<!ATTLIST Require
-          import (EXPORT|IMPORT)                             #REQUIRED
-          specif (UNSPECIFIED|IMPLEMENTATION|SPECIFICATION)  #REQUIRED
-          uri    CDATA                                       #REQUIRED>
-
-<!ELEMENT ImplicitArguments (EMPTY)>
-<!ATTLIST ImplicitArguments
-          status (ON) #REQUIRED>
-
-<!ELEMENT Coercion EMPTY>
-<!ATTLIST Coercion
-          kind     (LOCAL|UNSPECIFIED)    #REQUIRED
-          identity (IDENTITY|UNSPECIFIED) #REQUIRED
-          name     CDATA                  #REQUIRED
-          source   CDATA                  #REQUIRED
-          target   CDATA                  #REQUIRED>
-
-<!ELEMENT HintsResolve (dbs,hints)>
-
-<!ELEMENT dbs (db*)>
-
-<!ELEMENT db (EMPTY)>
-<!ATTLIST db
-          name CDATA #REQUIRED>
-
-<!ELEMENT hints (hint*)>
-
-<!ELEMENT hint (EMPTY)>
-<!ATTLIST hint
-          name CDATA #REQUIRED>

diff --git a/helm/xsltd/.cvsignore b/helm/xsltd/.cvsignore
deleted file mode 100644 (file)
index 4b1a68e..0000000
--- a/helm/xsltd/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-Makefile configure config.log config.cache config.status start-xaland

diff --git a/helm/xsltd/AUTHORS b/helm/xsltd/AUTHORS
deleted file mode 100644 (file)
index 1088c56..0000000
--- a/helm/xsltd/AUTHORS
+++ /dev/null
@@ -1 +0,0 @@
-Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>

diff --git a/helm/xsltd/COPYING b/helm/xsltd/COPYING
deleted file mode 100644 (file)
index d60c31a..0000000
--- a/helm/xsltd/COPYING
+++ /dev/null
@@ -1,340 +0,0 @@
-                   GNU GENERAL PUBLIC LICENSE
-                      Version 2, June 1991
-
- Copyright (C) 1989, 1991 Free Software Foundation, Inc.
-     59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
-                           Preamble
-
-  The licenses for most software are designed to take away your
-freedom to share and change it.  By contrast, the GNU General Public
-License is intended to guarantee your freedom to share and change free
-software--to make sure the software is free for all its users.  This
-General Public License applies to most of the Free Software
-Foundation's software and to any other program whose authors commit to
-using it.  (Some other Free Software Foundation software is covered by
-the GNU Library General Public License instead.)  You can apply it to
-your programs, too.
-
-  When we speak of free software, we are referring to freedom, not
-price.  Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-this service if you wish), that you receive source code or can get it
-if you want it, that you can change the software or use pieces of it
-in new free programs; and that you know you can do these things.
-
-  To protect your rights, we need to make restrictions that forbid
-anyone to deny you these rights or to ask you to surrender the rights.
-These restrictions translate to certain responsibilities for you if you
-distribute copies of the software, or if you modify it.
-
-  For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must give the recipients all the rights that
-you have.  You must make sure that they, too, receive or can get the
-source code.  And you must show them these terms so they know their
-rights.
-
-  We protect your rights with two steps: (1) copyright the software, and
-(2) offer you this license which gives you legal permission to copy,
-distribute and/or modify the software.
-
-  Also, for each author's protection and ours, we want to make certain
-that everyone understands that there is no warranty for this free
-software.  If the software is modified by someone else and passed on, we
-want its recipients to know that what they have is not the original, so
-that any problems introduced by others will not reflect on the original
-authors' reputations.
-
-  Finally, any free program is threatened constantly by software
-patents.  We wish to avoid the danger that redistributors of a free
-program will individually obtain patent licenses, in effect making the
-program proprietary.  To prevent this, we have made it clear that any
-patent must be licensed for everyone's free use or not licensed at all.
-
-  The precise terms and conditions for copying, distribution and
-modification follow.
-\f
-                   GNU GENERAL PUBLIC LICENSE
-   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
-  0. This License applies to any program or other work which contains
-a notice placed by the copyright holder saying it may be distributed
-under the terms of this General Public License.  The "Program", below,
-refers to any such program or work, and a "work based on the Program"
-means either the Program or any derivative work under copyright law:
-that is to say, a work containing the Program or a portion of it,
-either verbatim or with modifications and/or translated into another
-language.  (Hereinafter, translation is included without limitation in
-the term "modification".)  Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not
-covered by this License; they are outside its scope.  The act of
-running the Program is not restricted, and the output from the Program
-is covered only if its contents constitute a work based on the
-Program (independent of having been made by running the Program).
-Whether that is true depends on what the Program does.
-
-  1. You may copy and distribute verbatim copies of the Program's
-source code as you receive it, in any medium, provided that you
-conspicuously and appropriately publish on each copy an appropriate
-copyright notice and disclaimer of warranty; keep intact all the
-notices that refer to this License and to the absence of any warranty;
-and give any other recipients of the Program a copy of this License
-along with the Program.
-
-You may charge a fee for the physical act of transferring a copy, and
-you may at your option offer warranty protection in exchange for a fee.
-
-  2. You may modify your copy or copies of the Program or any portion
-of it, thus forming a work based on the Program, and copy and
-distribute such modifications or work under the terms of Section 1
-above, provided that you also meet all of these conditions:
-
-    a) You must cause the modified files to carry prominent notices
-    stating that you changed the files and the date of any change.
-
-    b) You must cause any work that you distribute or publish, that in
-    whole or in part contains or is derived from the Program or any
-    part thereof, to be licensed as a whole at no charge to all third
-    parties under the terms of this License.
-
-    c) If the modified program normally reads commands interactively
-    when run, you must cause it, when started running for such
-    interactive use in the most ordinary way, to print or display an
-    announcement including an appropriate copyright notice and a
-    notice that there is no warranty (or else, saying that you provide
-    a warranty) and that users may redistribute the program under
-    these conditions, and telling the user how to view a copy of this
-    License.  (Exception: if the Program itself is interactive but
-    does not normally print such an announcement, your work based on
-    the Program is not required to print an announcement.)
-\f
-These requirements apply to the modified work as a whole.  If
-identifiable sections of that work are not derived from the Program,
-and can be reasonably considered independent and separate works in
-themselves, then this License, and its terms, do not apply to those
-sections when you distribute them as separate works.  But when you
-distribute the same sections as part of a whole which is a work based
-on the Program, the distribution of the whole must be on the terms of
-this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest
-your rights to work written entirely by you; rather, the intent is to
-exercise the right to control the distribution of derivative or
-collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program
-with the Program (or with a work based on the Program) on a volume of
-a storage or distribution medium does not bring the other work under
-the scope of this License.
-
-  3. You may copy and distribute the Program (or a work based on it,
-under Section 2) in object code or executable form under the terms of
-Sections 1 and 2 above provided that you also do one of the following:
-
-    a) Accompany it with the complete corresponding machine-readable
-    source code, which must be distributed under the terms of Sections
-    1 and 2 above on a medium customarily used for software interchange; or,
-
-    b) Accompany it with a written offer, valid for at least three
-    years, to give any third party, for a charge no more than your
-    cost of physically performing source distribution, a complete
-    machine-readable copy of the corresponding source code, to be
-    distributed under the terms of Sections 1 and 2 above on a medium
-    customarily used for software interchange; or,
-
-    c) Accompany it with the information you received as to the offer
-    to distribute corresponding source code.  (This alternative is
-    allowed only for noncommercial distribution and only if you
-    received the program in object code or executable form with such
-    an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for
-making modifications to it.  For an executable work, complete source
-code means all the source code for all modules it contains, plus any
-associated interface definition files, plus the scripts used to
-control compilation and installation of the executable.  However, as a
-special exception, the source code distributed need not include
-anything that is normally distributed (in either source or binary
-form) with the major components (compiler, kernel, and so on) of the
-operating system on which the executable runs, unless that component
-itself accompanies the executable.
-
-If distribution of executable or object code is made by offering
-access to copy from a designated place, then offering equivalent
-access to copy the source code from the same place counts as
-distribution of the source code, even though third parties are not
-compelled to copy the source along with the object code.
-\f
-  4. You may not copy, modify, sublicense, or distribute the Program
-except as expressly provided under this License.  Any attempt
-otherwise to copy, modify, sublicense or distribute the Program is
-void, and will automatically terminate your rights under this License.
-However, parties who have received copies, or rights, from you under
-this License will not have their licenses terminated so long as such
-parties remain in full compliance.
-
-  5. You are not required to accept this License, since you have not
-signed it.  However, nothing else grants you permission to modify or
-distribute the Program or its derivative works.  These actions are
-prohibited by law if you do not accept this License.  Therefore, by
-modifying or distributing the Program (or any work based on the
-Program), you indicate your acceptance of this License to do so, and
-all its terms and conditions for copying, distributing or modifying
-the Program or works based on it.
-
-  6. Each time you redistribute the Program (or any work based on the
-Program), the recipient automatically receives a license from the
-original licensor to copy, distribute or modify the Program subject to
-these terms and conditions.  You may not impose any further
-restrictions on the recipients' exercise of the rights granted herein.
-You are not responsible for enforcing compliance by third parties to
-this License.
-
-  7. If, as a consequence of a court judgment or allegation of patent
-infringement or for any other reason (not limited to patent issues),
-conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License.  If you cannot
-distribute so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you
-may not distribute the Program at all.  For example, if a patent
-license would not permit royalty-free redistribution of the Program by
-all those who receive copies directly or indirectly through you, then
-the only way you could satisfy both it and this License would be to
-refrain entirely from distribution of the Program.
-
-If any portion of this section is held invalid or unenforceable under
-any particular circumstance, the balance of the section is intended to
-apply and the section as a whole is intended to apply in other
-circumstances.
-
-It is not the purpose of this section to induce you to infringe any
-patents or other property right claims or to contest validity of any
-such claims; this section has the sole purpose of protecting the
-integrity of the free software distribution system, which is
-implemented by public license practices.  Many people have made
-generous contributions to the wide range of software distributed
-through that system in reliance on consistent application of that
-system; it is up to the author/donor to decide if he or she is willing
-to distribute software through any other system and a licensee cannot
-impose that choice.
-
-This section is intended to make thoroughly clear what is believed to
-be a consequence of the rest of this License.
-\f
-  8. If the distribution and/or use of the Program is restricted in
-certain countries either by patents or by copyrighted interfaces, the
-original copyright holder who places the Program under this License
-may add an explicit geographical distribution limitation excluding
-those countries, so that distribution is permitted only in or among
-countries not thus excluded.  In such case, this License incorporates
-the limitation as if written in the body of this License.
-
-  9. The Free Software Foundation may publish revised and/or new versions
-of the General Public License from time to time.  Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
-Each version is given a distinguishing version number.  If the Program
-specifies a version number of this License which applies to it and "any
-later version", you have the option of following the terms and conditions
-either of that version or of any later version published by the Free
-Software Foundation.  If the Program does not specify a version number of
-this License, you may choose any version ever published by the Free Software
-Foundation.
-
-  10. If you wish to incorporate parts of the Program into other free
-programs whose distribution conditions are different, write to the author
-to ask for permission.  For software which is copyrighted by the Free
-Software Foundation, write to the Free Software Foundation; we sometimes
-make exceptions for this.  Our decision will be guided by the two goals
-of preserving the free status of all derivatives of our free software and
-of promoting the sharing and reuse of software generally.
-
-                           NO WARRANTY
-
-  11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.  EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
-OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
-TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
-PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
-REPAIR OR CORRECTION.
-
-  12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
-INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
-OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
-TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
-YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
-PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGES.
-
-                    END OF TERMS AND CONDITIONS
-\f
-           How to Apply These Terms to Your New Programs
-
-  If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
-  To do so, attach the following notices to the program.  It is safest
-to attach them to the start of each source file to most effectively
-convey the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
-    <one line to give the program's name and a brief idea of what it does.>
-    Copyright (C) <year>  <name of author>
-
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-
-
-Also add information on how to contact you by electronic and paper mail.
-
-If the program is interactive, make it output a short notice like this
-when it starts in an interactive mode:
-
-    Gnomovision version 69, Copyright (C) year  name of author
-    Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
-    This is free software, and you are welcome to redistribute it
-    under certain conditions; type `show c' for details.
-
-The hypothetical commands `show w' and `show c' should show the appropriate
-parts of the General Public License.  Of course, the commands you use may
-be called something other than `show w' and `show c'; they could even be
-mouse-clicks or menu items--whatever suits your program.
-
-You should also get your employer (if you work as a programmer) or your
-school, if any, to sign a "copyright disclaimer" for the program, if
-necessary.  Here is a sample; alter the names:
-
-  Yoyodyne, Inc., hereby disclaims all copyright interest in the program
-  `Gnomovision' (which makes passes at compilers) written by James Hacker.
-
-  <signature of Ty Coon>, 1 April 1989
-  Ty Coon, President of Vice
-
-This General Public License does not permit incorporating your program into
-proprietary programs.  If your program is a subroutine library, you may
-consider it more useful to permit linking proprietary applications with the
-library.  If this is what you want to do, use the GNU Library General
-Public License instead of this License.

diff --git a/helm/xsltd/ChangeLog b/helm/xsltd/ChangeLog
deleted file mode 100644 (file)
index 20c36b4..0000000
--- a/helm/xsltd/ChangeLog
+++ /dev/null
@@ -1 +0,0 @@
-28/12/2000: First alpha release

diff --git a/helm/xsltd/Makefile.in b/helm/xsltd/Makefile.in
deleted file mode 100644 (file)
index 1d43f9c..0000000
--- a/helm/xsltd/Makefile.in
+++ /dev/null
@@ -1,16 +0,0 @@
-
-BIN_DIR=@BIN_DIR@
-HELM_LIB_DIR=@HELM_LIB_DIR@
-
-all:
-
-install:
-       cp start-xaland $(BIN_DIR)
-       cp xaland.class $(HELM_LIB_DIR)
-
-distclean:
-       rm -f Makefile configure config.log config.cache config.status \
-        etc/configuration.xml etc/helm-math-engine-configuration.xml \
-        lib/configuration.pl *.spec start-xaland
-
-.PHONY: all install distclean

diff --git a/helm/xsltd/Makefile.old b/helm/xsltd/Makefile.old
deleted file mode 100644 (file)
index a56803c..0000000
--- a/helm/xsltd/Makefile.old
+++ /dev/null
@@ -1,48 +0,0 @@
-JAVADIR = /opt/java/jdk1.3/bin
-HELM_STYLES_DIR = file:/home/lpadovan/miohelm/style
-
-start-xaland:
-       java -ss1024K -oss8192K \
-           xaland 12345 12346 \
-           $(HELM_STYLES_DIR)/rootcontent.xsl \
-           $(HELM_STYLES_DIR)/annotatedpres.xsl \
-           $(HELM_STYLES_DIR)/theory_content.xsl \
-           $(HELM_STYLES_DIR)/theory_pres.xsl
-
-start-xaland-DOM:
-       java -ss1024K -oss8192K \
-           xaland_DOM 12345 12346 \
-           $(HELM_STYLES_DIR)/rootcontent.xsl \
-           $(HELM_STYLES_DIR)/annotatedpres.xsl \
-           $(HELM_STYLES_DIR)/theory_content.xsl \
-           $(HELM_STYLES_DIR)/theory_pres.xsl
-
-start-xaland-2:
-       java -ss1024K -oss8192K \
-           xaland2 12345 12346 \
-           $(HELM_STYLES_DIR)/rootcontent.xsl \
-           $(HELM_STYLES_DIR)/annotatedpres.xsl \
-           $(HELM_STYLES_DIR)/theory_content.xsl \
-           $(HELM_STYLES_DIR)/theory_pres.xsl
-
-start-xaland-old:
-       java xaland 12345 12346 \
-         $(HELM_STYLES_DIR)/style_prima_del_linguaggio_naturale/rootcontent.xsl \
-         $(HELM_STYLES_DIR)/style_prima_del_linguaggio_naturale/annotatedpres.xsl \
-         $(HELM_STYLES_DIR)/style_prima_del_linguaggio_naturale/theory_content.xsl \
-         $(HELM_STYLES_DIR)/style_prima_del_linguaggio_naturale/theory_pres.xsl
-
-start-xaland-uwobo:
-       $(JAVADIR)/java -ss1024K -oss8192K \
-           xaland_uwobo 12345 12346 12347 \
-           $(HELM_STYLES_DIR)/rootcontent.xsl \
-           $(HELM_STYLES_DIR)/annotatedpres.xsl \
-           $(HELM_STYLES_DIR)/theory_content.xsl \
-           $(HELM_STYLES_DIR)/theory_pres.xsl
-
-start-xaland3:
-       java xaland 12347 12348 \
-           $(HELM_STYLES_DIR)/rootcontent.xsl \
-           $(HELM_STYLES_DIR)/annotatedpres.xsl \
-           $(HELM_STYLES_DIR)/theory_content.xsl \
-           $(HELM_STYLES_DIR)/theory_pres.xsl

diff --git a/helm/xsltd/NEWS b/helm/xsltd/NEWS
deleted file mode 100644 (file)
index 20c36b4..0000000
--- a/helm/xsltd/NEWS
+++ /dev/null
@@ -1 +0,0 @@
-28/12/2000: First alpha release

diff --git a/helm/xsltd/README b/helm/xsltd/README
deleted file mode 100644 (file)
index ab2790b..0000000
--- a/helm/xsltd/README
+++ /dev/null
@@ -1,8 +0,0 @@
-NOTE: This is the first alpha release of project HELM.
-
-HELM (Hypertextual Electronic Library of Mathematics) is a project aimed
-at the creation of tools for the development and exploitation of a huge
-distributed library of formal mathematical knowledge. This package holds
-an UDP-based XSLT daemon.
-
-For more information see http://www.cs.unibo.it/helm

diff --git a/helm/xsltd/config.cache.pkg b/helm/xsltd/config.cache.pkg
deleted file mode 100644 (file)
index 97be23b..0000000
--- a/helm/xsltd/config.cache.pkg
+++ /dev/null
@@ -1,4 +0,0 @@
-# This is the config.cache that holds the ``standard'' path for the
-# HELM library. It is supposed to be used when creating packages
-
-helm_cv_HELM_STYLES_DIR=${helm_cv_HELM_STYLES_DIR='$RESOLVED_PREFIX/share/helm/style'}

diff --git a/helm/xsltd/configure.in b/helm/xsltd/configure.in
deleted file mode 100644 (file)
index 2a8fcd0..0000000
--- a/helm/xsltd/configure.in
+++ /dev/null
@@ -1,92 +0,0 @@
-AC_INIT(xaland.class)
-
-PACKAGE=helm_xsltd
-MAJOR_VERSION=0
-MINOR_VERSION=0
-MICRO_VERSION=2
-VERSION=$MAJOR_VERSION.$MINOR_VERSION.$MICRO_VERSION
-
-DEFAULT_HELM_LIB_DIR=/usr/local/lib/helm
-DEFAULT_HELM_STYLE_DIR=/usr/local/share/helm/style
-
-AC_ARG_ENABLE(
-       defaults,
-       [  --enable-defaults[=ARG] if yes then use defaults (don't ask user) [default=auto]],
-       USE_DEFAULTS=$enableval,
-       USE_DEFAULTS=auto
-)
-
-if test "x$prefix" != xNONE; then
-  RESOLVED_PREFIX=$prefix
-else
-  RESOLVED_PREFIX=$ac_default_prefix
-fi
-
-if test "x$exec_prefix" != xNONE; then
-  RESOLVED_EXEC_PREFIX=$exec_prefix
-else
-  RESOLVED_EXEC_PREFIX=$RESOLVED_PREFIX
-fi
-
-BIN_DIR=$RESOLVED_EXEC_PREFIX/bin
-
-if test $USE_DEFAULTS = auto; then
-       AC_CHECK_PROG(HAVE_HELM_CONFIG, helm-config, yes, no)   
-       if test $HAVE_HELM_CONFIG = yes; then
-               HELM_LIB_DIR=`helm-config --lib-dir`
-               HELM_STYLE_DIR=`helm-config --style-dir`
-       else
-               USE_DEFAULTS=no
-       fi
-fi
-
-if test $USE_DEFAULTS = no; then
-       echo
-       echo "\`helm-config' is not installed (or I can't find it in your path)."
-       echo "Please, insert the lib directory for HELM..."
-       echo
-       echo -n "[[$DEFAULT_HELM_LIB_DIR]] ? "
-       read HELM_LIB_DIR
-       if test "x$HELM_LIB_DIR" = "x"; then
-               HELM_LIB_DIR=$DEFAULT_HELM_LIB_DIR
-       fi
-       echo
-       echo "Please, insert the directory where I can find the stylesheets for HELM..."
-       echo
-       echo -n "[[$DEFAULT_HELM_STYLE_DIR]] ? "
-       read HELM_STYLE_DIR
-       if test "x$HELM_STYLE_DIR" = "x"; then
-               HELM_STYLE_DIR=$DEFAULT_HELM_STYLE_DIR
-       fi
-elif test $USE_DEFAULTS = yes; then
-       HELM_LIB_DIR=$DEFAULT_HELM_LIB_DIR
-       HELM_STYLE_DIR=$DEFAULT_HELM_STYLE_DIR
-fi
-
-AC_MSG_CHECKING(for the $HELM_LIB_DIR)
-if test -d $HELM_LIB_DIR; then
-       AC_MSG_RESULT(ok)
-else
-       AC_MSG_RESULT(no)
-       AC_MSG_ERROR(please check your installation)
-fi
-
-AC_MSG_CHECKING(for $HELM_STYLE_DIR)
-if test -d $HELM_STYLE_DIR; then
-       AC_MSG_RESULT(ok)
-else
-       AC_MSG_RESULT(no)
-       AC_MSG_ERROR(please check your installation)
-fi
-
-AC_SUBST(PACKAGE)
-AC_SUBST(VERSION)
-AC_SUBST(BIN_DIR)
-AC_SUBST(HELM_LIB_DIR)
-AC_SUBST(HELM_STYLE_DIR)
-
-AC_OUTPUT([
-  Makefile
-  start-xaland
-  helm_xsltd.spec
-], chmod +x start-xaland)

diff --git a/helm/xsltd/helm_xsltd.spec.in b/helm/xsltd/helm_xsltd.spec.in
deleted file mode 100644 (file)
index 9d9dafe..0000000
--- a/helm/xsltd/helm_xsltd.spec.in
+++ /dev/null
@@ -1,32 +0,0 @@
-Summary: The UDP-based XSLTD daemon for project HELM.
-Name: @PACKAGE@
-Version: @VERSION@
-Release: 1
-Copyright: GPL
-URL: http://www.cs.unibo.it/helm
-Packager: Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>
-Requires: helm_configuration = 0.0.1, helm_data = 0.0.1, helm_http_getter = 0.0.1
-Group: Applications/Publishing
-Source: www.cs.unibo.it:/helm/@PACKAGE@-@VERSION@-1.tar.gz
-%description
-HELM (Hypertextual Electronic Library of Mathematics) is a project aimed
-at the creation of tools for the development and exploitation of a huge
-distributed library of formal mathematical knowledge. This package holds
-an UDP-based XSLT daemon.
-For more information see http://www.cs.unibo.it/helm
-
-%prep
-%setup
-
-%build
-cp config.cache.pkg config.cache
-./configure
-make
-
-%install
-make install
-
-%files
-%doc AUTHORS COPYING ChangeLog NEWS README
-/usr/local/lib/helm/xaland.class
-%attr(755,root,root) /usr/local/bin/start-xaland

diff --git a/helm/xsltd/start-xaland.in b/helm/xsltd/start-xaland.in
deleted file mode 100755 (executable)
index 687e09b..0000000
--- a/helm/xsltd/start-xaland.in
+++ /dev/null
@@ -1,55 +0,0 @@
-#!/bin/bash
-
-# Copyright (C) 2000, HELM Team.
-# 
-# This file is part of HELM, an Hypertextual, Electronic
-# Library of Mathematics, developed at the Computer Science
-# Department, University of Bologna, Italy.
-# 
-# HELM is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License
-# as published by the Free Software Foundation; either version 2
-# of the License, or (at your option) any later version.
-# 
-# HELM is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# 
-# You should have received a copy of the GNU General Public License
-# along with HELM; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
-# 
-# For details, see the HELM World-Wide-Web page,
-# http://cs.unibo.it/helm/.
-
-##########################################################################
-#        BEGIN OF THE PART TO CONFIGURE BEFORE USING THE SCRIPT          #
-##########################################################################
-
-# In the next line you have to set the path to the jdk1.3
-export PATH=/opt/java/jdk1.3/bin/:$PATH
-
-# In the next line you have to give the classpath to the 1.1 version of
-# xalan.jar
-export CLASSPATH1=/projects/helm/shared/libraries/java/xalan_1_1/xalan.jar
-
-# In the next line you have to give the classpath to the 1.1 version of
-# xerces.jar
-export CLASSPATH2=/projects/helm/shared/libraries/java/xalan_1_1/xerces.jar
-
-##########################################################################
-#                   END OF THE PART TO CONFIGURE                         #
-##########################################################################
-
-export CLASSPATH=$CLASSPATH1:$CLASSPATH2:$CLASSPATH:.
-export CLASS_DIR=@HELM_LIB_DIR@
-export HELM_STYLE_DIR=@HELM_STYLE_DIR@
-
-cd $CLASS_DIR &&
-java -ss1024K -oss8192K \
- xaland 12345 12346 \
- $HELM_STYLE_DIR/rootcontent.xsl \
- $HELM_STYLE_DIR/annotatedpres.xsl \
- $HELM_STYLE_DIR/theory_content.xsl \
- $HELM_STYLE_DIR/theory_pres.xsl

diff --git a/helm/xsltd/xaland-cpp/xaland.cpp b/helm/xsltd/xaland-cpp/xaland.cpp
deleted file mode 100644 (file)
index e221402..0000000
--- a/helm/xsltd/xaland-cpp/xaland.cpp
+++ /dev/null
@@ -1,207 +0,0 @@
-// Base header file.  Must be first.
-#include <Include/PlatformDefinitions.hpp>
-
-#include <iostream>
-#include <fstream>
-
-#include <util/PlatformUtils.hpp>
-
-#include <PlatformSupport/DOMStringHelper.hpp>
-
-#include <DOMSupport/DOMSupportDefault.hpp>
-
-#include <XPath/XObjectFactoryDefault.hpp>
-#include <XPath/XPathSupportDefault.hpp>
-#include <XPath/XPathFactoryDefault.hpp>
-
-#include <XSLT/StylesheetConstructionContextDefault.hpp>
-#include <XSLT/StylesheetExecutionContextDefault.hpp>
-#include <XSLT/XSLTEngineImpl.hpp>
-#include <XSLT/XSLTInit.hpp>
-#include <XSLT/XSLTInputSource.hpp>
-#include <XSLT/XSLTProcessorEnvSupportDefault.hpp>
-#include <XSLT/XSLTResultTarget.hpp>
-
-#include <XercesParserLiaison/XercesDOMSupport.hpp>
-#include <XercesParserLiaison/XercesParserLiaison.hpp>
-
-int main(int argc, const char* [])
-{
-#if !defined(XALAN_NO_NAMESPACES)
-   using std::cerr;
-   using std::endl;
-   using std::ofstream;
-#endif
-
-   if (argc != 1) {
-      cerr << "Usage: SimpleTransform"
-           << endl
-           << endl;
-   } else {
-      try {
-         // Call the static initializer for Xerces...
-         XMLPlatformUtils::Initialize();
-
-         {
-            // Initialize the Xalan XSLT subsystem...
-            XSLTInit theInit;
-
-            // Create the support objects that are necessary for
-            // running the processor...
-            XercesDOMSupport theDOMSupport;
-            XercesParserLiaison        theParserLiaison(theDOMSupport);
-            XPathSupportDefault        theXPathSupport(theDOMSupport);
-            XSLTProcessorEnvSupportDefault theXSLTProcessorEnvSupport;
-            XObjectFactoryDefault theXObjectFactory;
-            XPathFactoryDefault        theXPathFactory;
-
-            // Create a processor...
-            XSLTEngineImpl theProcessor(
-               theParserLiaison,
-               theXPathSupport,
-               theXSLTProcessorEnvSupport,
-               theDOMSupport,
-               theXObjectFactory,
-               theXPathFactory);
-
-            // Connect the processor to the support object...
-           theXSLTProcessorEnvSupport.setProcessor(&theProcessor);
-
-           // Create a stylesheet construction context, and a stylesheet
-           // execution context...
-           StylesheetConstructionContextDefault theConstructionContext(
-              theProcessor,
-              theXSLTProcessorEnvSupport,
-              theXPathFactory);
-
-           StylesheetExecutionContextDefault theExecutionContext(
-              theProcessor,
-              theXSLTProcessorEnvSupport,
-              theXPathSupport,
-              theXObjectFactory);
-
-           // Our input files...The assumption is that the executable will be
-           // run from same directory as the input files.
-           const XalanDOMString        theXMLFileName("foo.xml");
-           const XalanDOMString        theXSLFileName("foo.xsl");
-
-           // Our input sources...
-           XSLTInputSource theInputSource(c_wstr(theXMLFileName));
-           XSLTInputSource theStylesheetSource(c_wstr(theXSLFileName));
-
-           // Our output target...
-           const XalanDOMString theOutputFileName("foo.out");
-           XSLTResultTarget theResultTarget(theOutputFileName);
-
-           theProcessor.process(
-              theInputSource,
-              theStylesheetSource,
-              theResultTarget,
-              theConstructionContext,
-              theExecutionContext);
-
-         }
-
-         // Call the static terminator for Xerces...
-         XMLPlatformUtils::Terminate();
-      }
-      catch(...) {
-         cerr << "Exception caught!!!"
-              << endl
-              << endl;
-      }
-   }
-
-   return 0;
-}
-
-/**************************************************/
-/*
-
-public class xaland {
-   public static void Transform(StylesheetRoot style, String xmlSourceURL, String OutputURL) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
-   {
-      XSLTInputSource xmlSource = new XSLTInputSource (xmlSourceURL);
-      XSLTResultTarget xmlResult = new XSLTResultTarget (OutputURL);
-      style.process(xmlSource, xmlResult);
-   }
-
-   public static void main(String argv[]) throws  java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
-   {
-      int port    = Integer.parseInt(argv[0]);
-      int port2   = Integer.parseInt(argv[1]);
-      String xsl1 = argv[2];
-      String xsl2 = argv[3];
-      String theory_xsl1 = argv[4];
-      String theory_xsl2 = argv[5];
-
-      XSLTProcessor theory_processor =
-       XSLTProcessorFactory.getProcessor(new org.apache.xalan.xpath.xdom.XercesLiaison());
-      StylesheetRoot theory_style1 =
-         theory_processor.processStylesheet(theory_xsl1);
-      theory_processor.reset();
-      StylesheetRoot theory_style2 =
-         theory_processor.processStylesheet(theory_xsl2);
-      theory_processor.setStylesheet(theory_style2);
-
-      XSLTProcessor processor =
-       XSLTProcessorFactory.getProcessor(new org.apache.xalan.xpath.xdom.XercesLiaison());
-      StylesheetRoot style1 = processor.processStylesheet(xsl1);
-      processor.reset();
-      StylesheetRoot style2 = processor.processStylesheet(xsl2);
-      processor.setStylesheet(style2);
-
-      DatagramSocket socket = new DatagramSocket(port);
-
-      System.out.println("Demon activated on input port " + port +
-       " and output port " + port2);
-      while(true) {
-         System.out.print("Ready...");
-
-         /* Warning: the packet must be a fresh one! * /
-         DatagramPacket packet = new DatagramPacket(new byte[1024],1024);
-         socket.receive(packet);
-         byte data[] = packet.getData();
-         int datalen = packet.getLength();
-         String received = new String(data,0,datalen);
-
-         int first = received.indexOf(' ');
-         int last  = received.lastIndexOf(' ');
-         String mode = received.substring(0,first);
-         String input = received.substring(first+1,last);
-         String output = received.substring(last+1);
-
-         System.out.println("request received! Parameters are");
-         System.out.println("Mode: " + mode + " ");
-         System.out.println("Input file: \"" + input + "\"");
-         System.out.println("Output file: \"" + output  + "\"\n");
-
-         if ((new File(output)).exists()) {
-            System.out.println("Using cached version\n");
-         } else {
-            FileOutputStream fout = new FileOutputStream(output);
-            if (mode.equals("cic")) {
-               processor.setDocumentHandler(style2.getSAXSerializer(fout));
-               XSLTResultTarget content = new XSLTResultTarget(processor);
-               style1.process(new XSLTInputSource(input), content);
-            } else if (mode.equals("theory")) {
-               theory_processor.setDocumentHandler(
-                  theory_style2.getSAXSerializer(fout));
-               XSLTResultTarget content =
-                  new XSLTResultTarget(theory_processor);
-               theory_style1.process(new XSLTInputSource(input), content);
-            }
-         }
-
-         InetAddress address = InetAddress.getLocalHost();
-         DatagramSocket socket2 = new DatagramSocket();
-
-         byte buf[] = new byte[0];
-         DatagramPacket packet2 = new DatagramPacket(buf,0,address,port2);
-
-         socket2.send(packet2);
-      }
-   }
-}
-
-*/

diff --git a/helm/xsltd/xaland-java-DOM/xaland_DOM.class b/helm/xsltd/xaland-java-DOM/xaland_DOM.class
deleted file mode 100644 (file)
index 59c9683..0000000
Binary files a/helm/xsltd/xaland-java-DOM/xaland_DOM.class and /dev/null differ

diff --git a/helm/xsltd/xaland-java-DOM/xaland_DOM.java b/helm/xsltd/xaland-java-DOM/xaland_DOM.java
deleted file mode 100644 (file)
index 354f3b2..0000000
--- a/helm/xsltd/xaland-java-DOM/xaland_DOM.java
+++ /dev/null
@@ -1,114 +0,0 @@
-// Copyright (C) 2000, HELM Team.
-// 
-// This file is part of HELM, an Hypertextual, Electronic
-// Library of Mathematics, developed at the Computer Science
-// Department, University of Bologna, Italy.
-// 
-// HELM is free software; you can redistribute it and/or
-// modify it under the terms of the GNU General Public License
-// as published by the Free Software Foundation; either version 2
-// of the License, or (at your option) any later version.
-// 
-// HELM is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// GNU General Public License for more details.
-// 
-// You should have received a copy of the GNU General Public License
-// along with HELM; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
-// 
-// For details, see the HELM World-Wide-Web page,
-// http://cs.unibo.it/helm/.
-
-import org.apache.xalan.xslt.*;
-import org.w3c.dom.Document;
-import java.net.*;
-import java.io.*;
-
-public class xaland_DOM {
-   public static void main(String argv[]) throws  java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
-   {
-      int port    = Integer.parseInt(argv[0]);
-      int port2   = Integer.parseInt(argv[1]);
-      String xsl1 = argv[2];
-      String xsl2 = argv[3];
-      String theory_xsl1 = argv[4];
-      String theory_xsl2 = argv[5];
-
-      XSLTProcessor theory_processor =
-       XSLTProcessorFactory.getProcessor(new org.apache.xalan.xpath.xdom.XercesLiaison());
-      StylesheetRoot theory_style1 =
-         theory_processor.processStylesheet(theory_xsl1);
-      theory_processor.reset();
-      StylesheetRoot theory_style2 =
-         theory_processor.processStylesheet(theory_xsl2);
-      theory_processor.setStylesheet(theory_style2);
-
-      XSLTProcessor processor =
-       XSLTProcessorFactory.getProcessor(new org.apache.xalan.xpath.xdom.XercesLiaison());
-      StylesheetRoot style1 = processor.processStylesheet(xsl1);
-      processor.reset();
-      StylesheetRoot style2 = processor.processStylesheet(xsl2);
-      processor.setStylesheet(style2);
-
-      DatagramSocket socket = new DatagramSocket(port);
-
-      System.out.println("Demon activated on input port " + port +
-       " and output port " + port2);
-      while(true) {
-         System.out.print("Ready...");
-
-         /* Warning: the packet must be a fresh one! */
-         DatagramPacket packet = new DatagramPacket(new byte[1024],1024);
-         socket.receive(packet);
-         byte data[] = packet.getData();
-         int datalen = packet.getLength();
-         String received = new String(data,0,datalen);
-
-         int first = received.indexOf(' ');
-         int last  = received.lastIndexOf(' ');
-         String mode = received.substring(0,first);
-         String input = received.substring(first+1,last);
-         String output = received.substring(last+1);
-
-         System.out.println("request received! Parameters are");
-         System.out.println("Mode: " + mode + " ");
-         System.out.println("Input file: \"" + input + "\"");
-         System.out.println("Output file: \"" + output  + "\"\n");
-
-         if ((new File(output)).exists()) {
-            System.out.println("Using cached version\n");
-         } else {
-            FileOutputStream fout = new FileOutputStream(output);
-            if (mode.equals("cic")) {
-Document content_doc = new org.apache.xerces.dom.DocumentImpl();
-XSLTResultTarget content = new XSLTResultTarget(content_doc);
-/*
-               processor.setDocumentHandler(style2.getSAXSerializer(fout));
-               XSLTResultTarget content = new XSLTResultTarget(processor);
-*/
-System.out.print("Prima...\n");
-               style1.process(new XSLTInputSource(input), content);
-System.out.print("Durante...\n");
-               style2.process(new XSLTInputSource(content_doc),new XSLTResultTarget(fout));
-System.out.print("Dopo...\n");
-            } else if (mode.equals("theory")) {
-               theory_processor.setDocumentHandler(
-                  theory_style2.getSAXSerializer(fout));
-               XSLTResultTarget content =
-                  new XSLTResultTarget(theory_processor);
-               theory_style1.process(new XSLTInputSource(input), content);
-            }
-         }
-
-         InetAddress address = InetAddress.getLocalHost();
-         DatagramSocket socket2 = new DatagramSocket();
-
-         byte buf[] = new byte[0];
-         DatagramPacket packet2 = new DatagramPacket(buf,0,address,port2);
-
-         socket2.send(packet2);
-      }
-   }
-}

diff --git a/helm/xsltd/xaland-java/rompi.class b/helm/xsltd/xaland-java/rompi.class
deleted file mode 100644 (file)
index 4abfe38..0000000
Binary files a/helm/xsltd/xaland-java/rompi.class and /dev/null differ

diff --git a/helm/xsltd/xaland-java/rompi.java b/helm/xsltd/xaland-java/rompi.java
deleted file mode 100644 (file)
index 721b9b2..0000000
--- a/helm/xsltd/xaland-java/rompi.java
+++ /dev/null
@@ -1,35 +0,0 @@
-// Copyright (C) 2000, HELM Team.
-// 
-// This file is part of HELM, an Hypertextual, Electronic
-// Library of Mathematics, developed at the Computer Science
-// Department, University of Bologna, Italy.
-// 
-// HELM is free software; you can redistribute it and/or
-// modify it under the terms of the GNU General Public License
-// as published by the Free Software Foundation; either version 2
-// of the License, or (at your option) any later version.
-// 
-// HELM is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// GNU General Public License for more details.
-// 
-// You should have received a copy of the GNU General Public License
-// along with HELM; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
-// 
-// For details, see the HELM World-Wide-Web page,
-// http://cs.unibo.it/helm/.
-
-import java.net.*;
-
-public class rompi {
-   public static void main(String argv[]) throws java.io.IOException, java.net.MalformedURLException
-   {
-      /* Wait forever ;-) */
-      DatagramSocket socket2 = new DatagramSocket(12346);
-      DatagramPacket packet2 = new DatagramPacket(new byte[1],1);
-      System.out.println("Ho preso il socket e non lo lascio piu', caro pu, caro pu");
-      socket2.receive(packet2);
-   }
-}

diff --git a/helm/xsltd/xaland-java/sped.class b/helm/xsltd/xaland-java/sped.class
deleted file mode 100644 (file)
index cc6f53d..0000000
Binary files a/helm/xsltd/xaland-java/sped.class and /dev/null differ

diff --git a/helm/xsltd/xaland-java/sped.java b/helm/xsltd/xaland-java/sped.java
deleted file mode 100644 (file)
index 8082020..0000000
--- a/helm/xsltd/xaland-java/sped.java
+++ /dev/null
@@ -1,51 +0,0 @@
-// Copyright (C) 2000, HELM Team.
-// 
-// This file is part of HELM, an Hypertextual, Electronic
-// Library of Mathematics, developed at the Computer Science
-// Department, University of Bologna, Italy.
-// 
-// HELM is free software; you can redistribute it and/or
-// modify it under the terms of the GNU General Public License
-// as published by the Free Software Foundation; either version 2
-// of the License, or (at your option) any later version.
-// 
-// HELM is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// GNU General Public License for more details.
-// 
-// You should have received a copy of the GNU General Public License
-// along with HELM; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
-// 
-// For details, see the HELM World-Wide-Web page,
-// http://cs.unibo.it/helm/.
-
-import java.net.*;
-
-public class sped {
-   public static void main(String argv[]) throws java.io.IOException, java.net.MalformedURLException
-   {
-      String input = argv[0];
-      String out1  = argv[1];
-      String out2  = argv[2];
-
-      String sent = input + " " + out1 + " " + out2;
-      
-      InetAddress address = InetAddress.getLocalHost();
-      DatagramSocket socket = new DatagramSocket();
-
-      int strlen = sent.length();
-      byte buf[] = new byte[strlen];
-      sent.getBytes(0,strlen,buf,0);
-      DatagramPacket packet = new DatagramPacket(buf,strlen,address,12345);
-
-      socket.send(packet);
-
-
-      /* Wait for answer (or forever ;-) */
-      DatagramSocket socket2 = new DatagramSocket(12346);
-      DatagramPacket packet2 = new DatagramPacket(new byte[1],1);
-      socket2.receive(packet2);
-   }
-}

diff --git a/helm/xsltd/xaland-java/xaland.class b/helm/xsltd/xaland-java/xaland.class
deleted file mode 100644 (file)
index 6871fda..0000000
Binary files a/helm/xsltd/xaland-java/xaland.class and /dev/null differ

diff --git a/helm/xsltd/xaland-java/xaland.java b/helm/xsltd/xaland-java/xaland.java
deleted file mode 100644 (file)
index b32106c..0000000
--- a/helm/xsltd/xaland-java/xaland.java
+++ /dev/null
@@ -1,105 +0,0 @@
-// Copyright (C) 2000, HELM Team.
-// 
-// This file is part of HELM, an Hypertextual, Electronic
-// Library of Mathematics, developed at the Computer Science
-// Department, University of Bologna, Italy.
-// 
-// HELM is free software; you can redistribute it and/or
-// modify it under the terms of the GNU General Public License
-// as published by the Free Software Foundation; either version 2
-// of the License, or (at your option) any later version.
-// 
-// HELM is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// GNU General Public License for more details.
-// 
-// You should have received a copy of the GNU General Public License
-// along with HELM; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
-// 
-// For details, see the HELM World-Wide-Web page,
-// http://cs.unibo.it/helm/.
-
-import org.apache.xalan.xslt.*;
-import java.net.*;
-import java.io.*;
-
-public class xaland {
-   public static void main(String argv[]) throws  java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
-   {
-      int port    = Integer.parseInt(argv[0]);
-      int port2   = Integer.parseInt(argv[1]);
-      String xsl1 = argv[2];
-      String xsl2 = argv[3];
-      String theory_xsl1 = argv[4];
-      String theory_xsl2 = argv[5];
-
-      XSLTProcessor theory_processor =
-       XSLTProcessorFactory.getProcessor(new org.apache.xalan.xpath.xdom.XercesLiaison());
-      StylesheetRoot theory_style1 =
-         theory_processor.processStylesheet(theory_xsl1);
-      theory_processor.reset();
-      StylesheetRoot theory_style2 =
-         theory_processor.processStylesheet(theory_xsl2);
-      theory_processor.setStylesheet(theory_style2);
-
-      XSLTProcessor processor =
-       XSLTProcessorFactory.getProcessor(new org.apache.xalan.xpath.xdom.XercesLiaison());
-      StylesheetRoot style1 = processor.processStylesheet(xsl1);
-      processor.reset();
-      StylesheetRoot style2 = processor.processStylesheet(xsl2);
-      processor.setStylesheet(style2);
-
-      DatagramSocket socket = new DatagramSocket(port);
-
-      System.out.println("Demon activated on input port " + port +
-       " and output port " + port2);
-      while(true) {
-         System.out.print("Ready...");
-
-         /* Warning: the packet must be a fresh one! */
-         DatagramPacket packet = new DatagramPacket(new byte[1024],1024);
-         socket.receive(packet);
-         byte data[] = packet.getData();
-         int datalen = packet.getLength();
-         String received = new String(data,0,datalen);
-
-         int first = received.indexOf(' ');
-         int last  = received.lastIndexOf(' ');
-         String mode = received.substring(0,first);
-         String input = received.substring(first+1,last);
-         String output = received.substring(last+1);
-
-         System.out.println("request received! Parameters are");
-         System.out.println("Mode: " + mode + " ");
-         System.out.println("Input file: \"" + input + "\"");
-         System.out.println("Output file: \"" + output  + "\"\n");
-
-         if ((new File(output)).exists()) {
-            System.out.println("Using cached version\n");
-         } else {
-            FileOutputStream fout = new FileOutputStream(output);
-            if (mode.equals("cic")) {
-               processor.setDocumentHandler(style2.getSAXSerializer(fout));
-               XSLTResultTarget content = new XSLTResultTarget(processor);
-               style1.process(new XSLTInputSource(input), content);
-            } else if (mode.equals("theory")) {
-               theory_processor.setDocumentHandler(
-                  theory_style2.getSAXSerializer(fout));
-               XSLTResultTarget content =
-                  new XSLTResultTarget(theory_processor);
-               theory_style1.process(new XSLTInputSource(input), content);
-            }
-         }
-
-         InetAddress address = InetAddress.getLocalHost();
-         DatagramSocket socket2 = new DatagramSocket();
-
-         byte buf[] = new byte[0];
-         DatagramPacket packet2 = new DatagramPacket(buf,0,address,port2);
-
-         socket2.send(packet2);
-      }
-   }
-}

diff --git a/helm/xsltd/xaland-java/xaland.java.prima_del_loro_baco b/helm/xsltd/xaland-java/xaland.java.prima_del_loro_baco
deleted file mode 100644 (file)
index b46ffa6..0000000
--- a/helm/xsltd/xaland-java/xaland.java.prima_del_loro_baco
+++ /dev/null
@@ -1,85 +0,0 @@
-import org.apache.xalan.xslt.*;
-import java.net.*;
-import java.io.*;
-
-public class xaland {
-   public static void Transform(StylesheetRoot style, String xmlSourceURL, String OutputURL) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
-   {
-      XSLTInputSource xmlSource = new XSLTInputSource (xmlSourceURL);
-      XSLTResultTarget xmlResult = new XSLTResultTarget (OutputURL);
-      style.process(xmlSource, xmlResult);
-   }
-
-   public static void main(String argv[]) throws  java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
-   {
-      int port    = Integer.parseInt(argv[0]);
-      int port2   = Integer.parseInt(argv[1]);
-      String xsl1 = argv[2];
-      String xsl2 = argv[3];
-      String theory_xsl1 = argv[4];
-      String theory_xsl2 = argv[5];
-
-      XSLTProcessor theory_processor = XSLTProcessorFactory.getProcessor();
-      StylesheetRoot theory_style1 =
-         theory_processor.processStylesheet(theory_xsl1);
-      StylesheetRoot theory_style2 =
-         theory_processor.processStylesheet(theory_xsl2);
-      theory_processor.setStylesheet(theory_style2);
-
-      XSLTProcessor processor = XSLTProcessorFactory.getProcessor();
-      StylesheetRoot style1 = processor.processStylesheet(xsl1);
-      StylesheetRoot style2 = processor.processStylesheet(xsl2);
-      processor.setStylesheet(style2);
-
-      DatagramSocket socket = new DatagramSocket(port);
-
-      System.out.println("Demon activated on input port " + port +
-       " and output port " + port2);
-      while(true) {
-         System.out.print("Ready...");
-
-         /* Warning: the packet must be a fresh one! */
-         DatagramPacket packet = new DatagramPacket(new byte[1024],1024);
-         socket.receive(packet);
-         byte data[] = packet.getData();
-         int datalen = packet.getLength();
-         String received = new String(data,0,datalen);
-
-         int first = received.indexOf(' ');
-         int last  = received.lastIndexOf(' ');
-         String mode = received.substring(0,first);
-         String input = received.substring(first+1,last);
-         String output = received.substring(last+1);
-
-         System.out.println("request received! Parameters are");
-         System.out.println("Mode: " + mode + " ");
-         System.out.println("Input file: \"" + input + "\"");
-         System.out.println("Output file: \"" + output  + "\"\n");
-
-         if ((new File(output)).exists()) {
-            System.out.println("Using cached version\n");
-         } else {
-            FileOutputStream fout = new FileOutputStream(output);
-            if (mode.equals("cic")) {
-               processor.setDocumentHandler(style2.getSAXSerializer(fout));
-               XSLTResultTarget content = new XSLTResultTarget(processor);
-               style1.process(new XSLTInputSource(input), content);
-            } else if (mode.equals("theory")) {
-               theory_processor.setDocumentHandler(
-                  theory_style2.getSAXSerializer(fout));
-               XSLTResultTarget content =
-                  new XSLTResultTarget(theory_processor);
-               theory_style1.process(new XSLTInputSource(input), content);
-            }
-         }
-
-         InetAddress address = InetAddress.getLocalHost();
-         DatagramSocket socket2 = new DatagramSocket();
-
-         byte buf[] = new byte[0];
-         DatagramPacket packet2 = new DatagramPacket(buf,0,address,port2);
-
-         socket2.send(packet2);
-      }
-   }
-}

diff --git a/helm/xsltd/xaland-java/xaland.java.prima_del_loro_baco_ma_dopo_i_reset b/helm/xsltd/xaland-java/xaland.java.prima_del_loro_baco_ma_dopo_i_reset
deleted file mode 100644 (file)
index 1467cdd..0000000
--- a/helm/xsltd/xaland-java/xaland.java.prima_del_loro_baco_ma_dopo_i_reset
+++ /dev/null
@@ -1,87 +0,0 @@
-import org.apache.xalan.xslt.*;
-import java.net.*;
-import java.io.*;
-
-public class xaland {
-   public static void Transform(StylesheetRoot style, String xmlSourceURL, String OutputURL) throws java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
-   {
-      XSLTInputSource xmlSource = new XSLTInputSource (xmlSourceURL);
-      XSLTResultTarget xmlResult = new XSLTResultTarget (OutputURL);
-      style.process(xmlSource, xmlResult);
-   }
-
-   public static void main(String argv[]) throws  java.io.IOException, java.net.MalformedURLException, org.xml.sax.SAXException
-   {
-      int port    = Integer.parseInt(argv[0]);
-      int port2   = Integer.parseInt(argv[1]);
-      String xsl1 = argv[2];
-      String xsl2 = argv[3];
-      String theory_xsl1 = argv[4];
-      String theory_xsl2 = argv[5];
-
-      XSLTProcessor theory_processor = XSLTProcessorFactory.getProcessor();
-      StylesheetRoot theory_style1 =
-         theory_processor.processStylesheet(theory_xsl1);
-      theory_processor.reset();
-      StylesheetRoot theory_style2 =
-         theory_processor.processStylesheet(theory_xsl2);
-      theory_processor.setStylesheet(theory_style2);
-
-      XSLTProcessor processor = XSLTProcessorFactory.getProcessor();
-      StylesheetRoot style1 = processor.processStylesheet(xsl1);
-      processor.reset();
-      StylesheetRoot style2 = processor.processStylesheet(xsl2);
-      processor.setStylesheet(style2);
-
-      DatagramSocket socket = new DatagramSocket(port);
-
-      System.out.println("Demon activated on input port " + port +
-       " and output port " + port2);
-      while(true) {
-         System.out.print("Ready...");
-
-         /* Warning: the packet must be a fresh one! */
-         DatagramPacket packet = new DatagramPacket(new byte[1024],1024);
-         socket.receive(packet);
-         byte data[] = packet.getData();
-         int datalen = packet.getLength();
-         String received = new String(data,0,datalen);
-
-         int first = received.indexOf(' ');
-         int last  = received.lastIndexOf(' ');
-         String mode = received.substring(0,first);
-         String input = received.substring(first+1,last);
-         String output = received.substring(last+1);
-
-         System.out.println("request received! Parameters are");
-         System.out.println("Mode: " + mode + " ");
-         System.out.println("Input file: \"" + input + "\"");
-         System.out.println("Output file: \"" + output  + "\"\n");
-
-         if ((new File(output)).exists()) {
-            System.out.println("Using cached version\n");
-         } else {
-            FileOutputStream fout = new FileOutputStream(output);
-            if (mode.equals("cic")) {
-               processor.setDocumentHandler(style2.getSAXSerializer(fout));
-               XSLTResultTarget content = new XSLTResultTarget(processor);
-               style1.process(new XSLTInputSource(input), content);
-            } else if (mode.equals("theory")) {
-               theory_processor.setDocumentHandler(
-                  theory_style2.getSAXSerializer(fout));
-               XSLTResultTarget content =
-                  new XSLTResultTarget(theory_processor);
-               theory_style1.process(new XSLTInputSource(input), content);
-            }
-         }
-
-         InetAddress address = InetAddress.getLocalHost();
-         DatagramSocket socket2 = new DatagramSocket();
-
-         byte buf[] = new byte[0];
-         DatagramPacket packet2 = new DatagramPacket(buf,0,address,port2);
-
-         socket2.send(packet2);
-      }
-   }
-}

diff --git a/helm/xsltd/xaland-java2/xaland2.class b/helm/xsltd/xaland-java2/xaland2.class
deleted file mode 100644 (file)
index 95b42c7..0000000
Binary files a/helm/xsltd/xaland-java2/xaland2.class and /dev/null differ

diff --git a/helm/xsltd/xaland-java2/xaland2.java b/helm/xsltd/xaland-java2/xaland2.java
deleted file mode 100644 (file)
index fc5e20b..0000000
--- a/helm/xsltd/xaland-java2/xaland2.java
+++ /dev/null
@@ -1,157 +0,0 @@
-// Copyright (C) 2000, HELM Team.
-// 
-// This file is part of HELM, an Hypertextual, Electronic
-// Library of Mathematics, developed at the Computer Science
-// Department, University of Bologna, Italy.
-// 
-// HELM is free software; you can redistribute it and/or
-// modify it under the terms of the GNU General Public License
-// as published by the Free Software Foundation; either version 2
-// of the License, or (at your option) any later version.
-// 
-// HELM is distributed in the hope that it will be useful,
-// but WITHOUT ANY WARRANTY; without even the implied warranty of
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-// GNU General Public License for more details.
-// 
-// You should have received a copy of the GNU General Public License
-// along with HELM; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
-// 
-// For details, see the HELM World-Wide-Web page,
-// http://cs.unibo.it/helm/.
-
-import java.net.*;
-import java.io.*;
-
-// Imported TraX classes
-import org.apache.trax.Processor;
-import org.apache.trax.Templates;
-import org.apache.trax.Transformer;
-import org.apache.trax.Result;
-import org.apache.trax.ProcessorException;
-import org.apache.trax.ProcessorFactoryException;
-import org.apache.trax.TransformException;
-
-// Imported SAX classes
-import org.xml.sax.InputSource;
-import org.xml.sax.SAXException;
-import org.xml.sax.Parser;
-import org.xml.sax.helpers.ParserAdapter;
-import org.xml.sax.helpers.XMLReaderFactory;
-import org.xml.sax.XMLReader;
-import org.xml.sax.ContentHandler;
-import org.xml.sax.ext.LexicalHandler;
-
-// Imported DOM classes
-import org.w3c.dom.Node;
-
-// Imported Serializer classes
-import org.apache.serialize.OutputFormat;
-import org.apache.serialize.Serializer;
-import org.apache.serialize.SerializerFactory;
-
-// Imported JAVA API for XML Parsing 1.0 classes
-import javax.xml.parsers.DocumentBuilder;
-import javax.xml.parsers.DocumentBuilderFactory;
-import javax.xml.parsers.ParserConfigurationException;
-
-
-public class xaland2 {
-   public static void main(String argv[]) throws  IOException, MalformedURLException, SAXException, ParserConfigurationException
-   {
-      int port    = Integer.parseInt(argv[0]);
-      int port2   = Integer.parseInt(argv[1]);
-      String xsl1 = argv[2];
-      String xsl2 = argv[3];
-      String theory_xsl1 = argv[4];
-      String theory_xsl2 = argv[5];
-
-      Processor theory_processor = Processor.newInstance("xslt");
-      Templates theory_style1 = theory_processor.process(new InputSource(theory_xsl1));
-      Transformer theory_transformer1 = theory_style1.newTransformer();
-
-      Templates theory_style2 = theory_processor.process(new InputSource(theory_xsl2));
-      Transformer theory_transformer2 = theory_style2.newTransformer();
-
-
-      Processor processor = Processor.newInstance("xslt");
-      Templates style1 = processor.process(new InputSource(xsl1));
-      Transformer transformer1 = style1.newTransformer();
-
-      Templates style2 = processor.process(new InputSource(xsl2));
-      Transformer transformer2 = style2.newTransformer();
-
-
-      DatagramSocket socket = new DatagramSocket(port);
-
-      System.out.println("Demon activated on input port " + port +
-       " and output port " + port2);
-      while(true) {
-         System.out.print("Ready...");
-
-         /* Warning: the packet must be a fresh one! */
-         DatagramPacket packet = new DatagramPacket(new byte[1024],1024);
-         socket.receive(packet);
-         byte data[] = packet.getData();
-         int datalen = packet.getLength();
-         String received = new String(data,0,datalen);
-
-         int first = received.indexOf(' ');
-         int last  = received.lastIndexOf(' ');
-         String mode = received.substring(0,first);
-         String input = received.substring(first+1,last);
-         String output = received.substring(last+1);
-
-         System.out.println("request received! Parameters are");
-         System.out.println("Mode: " + mode + " ");
-         System.out.println("Input file: \"" + input + "\"");
-         System.out.println("Output file: \"" + output  + "\"\n");
-
-         if ((new File(output)).exists()) {
-            System.out.println("Using cached version\n");
-         } else {
-            FileOutputStream fout = new FileOutputStream(output);
-            if (mode.equals("cic")) {
-               XMLReader reader = XMLReaderFactory.createXMLReader();
-               ContentHandler chandler = transformer1.getInputContentHandler();
-               reader.setContentHandler(chandler);
-               if (chandler instanceof LexicalHandler)
-                reader.setProperty("http://xml.org/sax/properties/lexical-handler", chandler);
-               else
-                reader.setProperty("http://xml.org/sax/properties/lexical-handler", null);
-
-               transformer1.setContentHandler(transformer2.getInputContentHandler());
-               Serializer serializer = SerializerFactory.getSerializer("xml");
-               serializer.setOutputStream(fout);
-               transformer2.setContentHandler(serializer.asContentHandler());
-
-               reader.parse(input);
-            } else if (mode.equals("theory")) {
-               XMLReader reader = XMLReaderFactory.createXMLReader();
-               ContentHandler chandler = theory_transformer1.getInputContentHandler();
-               reader.setContentHandler(chandler);
-               if (chandler instanceof LexicalHandler)
-                reader.setProperty("http://xml.org/sax/properties/lexical-handler", chandler);
-               else
-                reader.setProperty("http://xml.org/sax/properties/lexical-handler", null);
-
-               theory_transformer1.setContentHandler(theory_transformer2.getInputContentHandler());
-               Serializer serializer = SerializerFactory.getSerializer("xml");
-               serializer.setOutputStream(fout);
-               theory_transformer2.setContentHandler(serializer.asContentHandler());
-
-               reader.parse(input);
-             }
-         }
-
-         InetAddress address = InetAddress.getLocalHost();
-         DatagramSocket socket2 = new DatagramSocket();
-
-         byte buf[] = new byte[0];
-         DatagramPacket packet2 = new DatagramPacket(buf,0,address,port2);
-
-         socket2.send(packet2);
-      }
-   }
-}

diff --git a/helm/xsltd/xaland-uwobo/.cvsignore b/helm/xsltd/xaland-uwobo/.cvsignore
deleted file mode 100644 (file)
index 6b468b6..0000000
--- a/helm/xsltd/xaland-uwobo/.cvsignore
+++ /dev/null
@@ -1 +0,0 @@
-*.class

diff --git a/helm/xsltd/xaland-uwobo/xaland_uwobo.java b/helm/xsltd/xaland-uwobo/xaland_uwobo.java
deleted file mode 100644 (file)
index 97f8cdf..0000000
--- a/helm/xsltd/xaland-uwobo/xaland_uwobo.java
+++ /dev/null
@@ -1,79 +0,0 @@
-//import org.apache.xalan.xslt.*;
-import java.net.*;
-import java.io.*;
-
-public class xaland_uwobo {
-   static DatagramSocket uwobo_socket;
-   static int portuwobo;
-
-   public static void send_to_uwobo(String cmd)
-   throws java.io.IOException
-   {
-      /*CSC: UDP based, but not fault-tolerant */
-      byte[] cmdBytes = cmd.getBytes();
-      DatagramPacket packet =
-       new DatagramPacket(cmdBytes, cmdBytes.length,
-        InetAddress.getLocalHost(), portuwobo);
-      uwobo_socket.send(packet);
-      DatagramPacket rcv = new DatagramPacket(new byte[0], 0);
-      uwobo_socket.receive(rcv);
-   }
-
-   public static void main(String argv[]) throws  java.io.IOException, java.net.MalformedURLException//, org.xml.sax.SAXException
-   {
-      int port  = Integer.parseInt(argv[0]);
-      int port2 = Integer.parseInt(argv[1]);
-      portuwobo = Integer.parseInt(argv[2]);
-      String xsl1 = argv[3];
-      String xsl2 = argv[4];
-      String theory_xsl1 = argv[5];
-      String theory_xsl2 = argv[6];
-
-      DatagramSocket socket = new DatagramSocket(port);
-      uwobo_socket = new DatagramSocket();
-
-      /* Initialize uwobo */
-      send_to_uwobo("add " + xsl1 + " ciccontent");
-      send_to_uwobo("add " + xsl2 + " cicpres");
-      send_to_uwobo("add " + theory_xsl1 + " theorycontent");
-      send_to_uwobo("add " + theory_xsl2 + " theorypres");
-
-
-      System.out.println("Demon activated on input port " + port +
-       " and output port " + port2);
-      while(true) {
-         System.out.print("Ready...");
-
-         /* Warning: the packet must be a fresh one! */
-         DatagramPacket packet = new DatagramPacket(new byte[1024],1024);
-         socket.receive(packet);
-         byte data[] = packet.getData();
-         int datalen = packet.getLength();
-         String received = new String(data,0,datalen);
-
-         int first = received.indexOf(' ');
-         int last  = received.lastIndexOf(' ');
-         String mode = received.substring(0,first-1);
-         String input = received.substring(first+1,last);
-         String output = received.substring(last+1);
-
-         System.out.println("request received! Parameters are");
-         System.out.println("Mode: \"" + mode + "\"");
-         System.out.println("Input file: \"" + input + "\"");
-         System.out.println("Output file: \"" + output  + "\"\n");
-
-         if (mode == "cic")
-            send_to_uwobo("apply " + input + " " + output + " ciccontent cicpres");
-         else
-            send_to_uwobo("apply " + input + " " + output + " theorycontent theorypres");
-
-         InetAddress address = InetAddress.getLocalHost();
-         DatagramSocket socket2 = new DatagramSocket();
-
-         byte buf[] = new byte[0];
-         DatagramPacket packet2 = new DatagramPacket(buf,0,address,port2);
-
-         socket2.send(packet2);
-      }
-   }
-}

diff --git a/helm/xsltd/xaland.class b/helm/xsltd/xaland.class
deleted file mode 100644 (file)
index 6871fda..0000000
Binary files a/helm/xsltd/xaland.class and /dev/null differ

diff --git a/helm/xsltd/xaland2.class b/helm/xsltd/xaland2.class
deleted file mode 100644 (file)
index 95b42c7..0000000
Binary files a/helm/xsltd/xaland2.class and /dev/null differ

diff --git a/helm/xsltd/xaland_DOM.class b/helm/xsltd/xaland_DOM.class
deleted file mode 100644 (file)
index 59c9683..0000000
Binary files a/helm/xsltd/xaland_DOM.class and /dev/null differ